diff --git a/build.sh b/build.sh
index e2cf9bb..7b55acc 100755
--- a/build.sh
+++ b/build.sh
@@ -8,12 +8,15 @@ echo "=== Building tools.simonwillison.net for Cloudflare Pages ==="
 
 # Install Python dependencies
 echo "Installing Python dependencies..."
-pip install --quiet markdown
+pip install --quiet markdown shot-scraper
 
 # Run Python build scripts (but NOT write_docs.py which generates LLM descriptions)
 echo "Gathering links and metadata..."
 python gather_links.py
 
+echo "Generating screenshots..."
+python generate_screenshots.py
+
 echo "Building colophon page..."
 python build_colophon.py
 
diff --git a/build_colophon.py b/build_colophon.py
index 0351e37..c759a71 100755
--- a/build_colophon.py
+++ b/build_colophon.py
@@ -5,6 +5,36 @@
 import html
 from pathlib import Path
 import markdown
+import hashlib
+
+
+def get_file_hash(file_path):
+    """Calculate SHA256 hash of file content."""
+    sha256_hash = hashlib.sha256()
+    with open(file_path, "rb") as f:
+        for byte_block in iter(lambda: f.read(4096), b""):
+            sha256_hash.update(byte_block)
+    return sha256_hash.hexdigest()
+
+
+def get_screenshot_path(page_name):
+    """Get the screenshot path for a given HTML file."""
+    # Check if the HTML file exists
+    html_path = Path(page_name)
+    if not html_path.exists():
+        return None
+
+    # Calculate the hash of the HTML file
+    file_hash = get_file_hash(html_path)
+
+    # Build the expected screenshot path
+    screenshot_name = f"{html_path.stem}.{file_hash}.jpeg"
+    screenshot_path = Path("screenshots") / screenshot_name
+
+    # Return the path if it exists, otherwise None
+    if screenshot_path.exists():
+        return str(screenshot_path)
+    return None
 
 
 def format_commit_message(message):
@@ -99,6 +129,15 @@ def get_most_recent_date(page_data):
             margin-bottom: 2rem;
             border-bottom: 1px solid #f0f0f0;
             padding-bottom: 1rem;
+            overflow: auto;
+        }
+        .tool-screenshot {
+            float: right;
+            max-width: 50%;
+            margin-left: 1rem;
+            margin-bottom: 1rem;
+            border: 1px solid #ddd;
+            border-radius: 4px;
         }
         .tool-name {
             font-weight: bold;
@@ -210,9 +249,16 @@ def get_most_recent_date(page_data):
         commits = list(reversed(commits))
         commit_count = len(commits)
 
+        # Get screenshot path if available
+        screenshot_path = get_screenshot_path(page_name)
+        screenshot_html = ""
+        if screenshot_path:
+            screenshot_html = f'<img src="{screenshot_path}" alt="Screenshot of {page_name.replace(".html", "")}" class="tool-screenshot">'
+
         # Modified tool heading with the new structure
         html_content += f"""
     <div class="tool" id="{page_name}">
+        {screenshot_html}
         <div class="tool-name">
             <h2 class="heading">
                 <span class="hash-text"><a class="hashref" href="#{page_name}">#</a></span>
diff --git a/generate_screenshots.py b/generate_screenshots.py
new file mode 100755
index 0000000..1a82a8c
--- /dev/null
+++ b/generate_screenshots.py
@@ -0,0 +1,83 @@
+#!/usr/bin/env python3
+"""Generate screenshots of all HTML tools using shot-scraper."""
+import hashlib
+import subprocess
+import sys
+from pathlib import Path
+
+
+def get_file_hash(file_path):
+    """Calculate SHA256 hash of file content."""
+    sha256_hash = hashlib.sha256()
+    with open(file_path, "rb") as f:
+        for byte_block in iter(lambda: f.read(4096), b""):
+            sha256_hash.update(byte_block)
+    return sha256_hash.hexdigest()
+
+
+def generate_screenshots():
+    """Generate screenshots for all HTML tools."""
+    # Create screenshots directory if it doesn't exist
+    screenshots_dir = Path("screenshots")
+    screenshots_dir.mkdir(exist_ok=True)
+
+    # Find all HTML files except index.html and colophon.html
+    html_files = [
+        f for f in Path(".").glob("*.html")
+        if f.name not in ["index.html", "colophon.html"]
+    ]
+
+    print(f"Found {len(html_files)} HTML files to screenshot")
+
+    # Check if shot-scraper is available
+    try:
+        subprocess.run(
+            ["shot-scraper", "--version"],
+            capture_output=True,
+            check=True
+        )
+    except (subprocess.CalledProcessError, FileNotFoundError):
+        print("Error: shot-scraper is not installed or not available")
+        print("Install it with: pip install shot-scraper")
+        sys.exit(1)
+
+    for html_file in sorted(html_files):
+        # Calculate hash of the file content
+        file_hash = get_file_hash(html_file)
+
+        # Generate screenshot filename
+        screenshot_name = f"{html_file.stem}.{file_hash}.jpeg"
+        screenshot_path = screenshots_dir / screenshot_name
+
+        # Skip if screenshot already exists
+        if screenshot_path.exists():
+            print(f"Screenshot already exists: {screenshot_name}")
+            continue
+
+        print(f"Generating screenshot for {html_file.name}...")
+
+        # Generate the screenshot using shot-scraper
+        try:
+            subprocess.run(
+                [
+                    "shot-scraper",
+                    str(html_file),
+                    "--width", "1024",
+                    "--height", "768",
+                    "--quality", "90",
+                    "--output", str(screenshot_path)
+                ],
+                check=True,
+                capture_output=True
+            )
+            print(f"  Created: {screenshot_name}")
+        except subprocess.CalledProcessError as e:
+            print(f"  Error generating screenshot for {html_file.name}: {e}")
+            print(f"  stdout: {e.stdout.decode()}")
+            print(f"  stderr: {e.stderr.decode()}")
+
+    print(f"\nScreenshot generation complete!")
+
+
+if __name__ == "__main__":
+    generate_screenshots()
diff --git a/lib/README.md b/lib/README.md
new file mode 100644
index 0000000..a0a0ae6
--- /dev/null
+++ b/lib/README.md
@@ -0,0 +1,78 @@
+# Third-Party Libraries and Assets
+
+This directory contains third-party software components used in the SLOCCount web application.
+
+## WebPerl (v0.09-beta)
+
+**WebPerl** is a WebAssembly port of Perl 5, allowing Perl code to run in web browsers.
+
+- **Author**: Hauke Dämpfling (haukex@zero-g.net)
+- **Institution**: Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB), Berlin, Germany
+- **Copyright**: © 2018 Hauke Dämpfling
+- **Source**: https://github.com/haukex/webperl
+- **Website**: http://webperl.zero-g.net
+- **Version**: v0.09-beta (prebuilt release from March 3, 2019)
+
+### License
+
+WebPerl is dual-licensed under the same terms as Perl 5 itself:
+
+- **GNU General Public License** (GPL) version 1 or later, OR
+- **Artistic License** (which comes with Perl 5)
+
+You may choose either license. See `webperl/LICENSE_gpl.txt` and `webperl/LICENSE_artistic.txt` for full license texts.
+
+### Files Included
+
+- `webperl.js` - Main WebPerl loader
+- `emperl.js` - Emscripten-compiled Perl JavaScript
+- `emperl.wasm` - WebAssembly Perl binary
+- `emperl.data` - Perl runtime data files
+- `LICENSE_artistic.txt` - Artistic License text
+- `LICENSE_gpl.txt` - GNU GPL text
+
+---
+
+## SLOCCount
+
+**SLOCCount** (Source Lines of Code Count) is a suite of programs for counting physical source lines of code (SLOC) in large software systems.
+
+- **Original Author**: David A. Wheeler (dwheeler@dwheeler.com)
+- **Maintainer**: Jeff Licquia
+- **Copyright**: © 2001-2004 David A. Wheeler
+- **Source**: https://github.com/licquia/sloccount
+- **Commit Used**: `7220ff627334a8f646617fe0fa542d401fb5287e`
+
+### License
+
+SLOCCount is licensed under the **GNU General Public License version 2** (GPL-2.0).
+
+### Files Included
+
+- `sloccount-perl.zip` - Archive containing the Perl scripts from SLOCCount that implement the actual line counting algorithms
+
+The zip file includes various language-specific counting scripts (e.g., `python_count`, `c_count`, `perl_count`) and supporting utilities.
+
+---
+
+## Attribution
+
+This SLOCCount web application makes use of:
+
+1. **WebPerl** for running Perl in the browser via WebAssembly
+2. **SLOCCount Perl scripts** for accurate source line counting with comment filtering
+
+Both projects are used in accordance with their respective open-source licenses. No modifications have been made to the WebPerl runtime or SLOCCount scripts themselves.
+
+## Compliance Notes
+
+- WebPerl runtime files are distributed as-is from the official prebuilt v0.09-beta release
+- SLOCCount scripts are loaded from the official repository commit `7220ff6`
+- License files are preserved in their original locations
+- This application is a web interface that uses these tools, not a modification of them
+
+## More Information
+
+- **WebPerl Documentation**: http://webperl.zero-g.net/using.html
+- **SLOCCount Documentation**: https://github.com/licquia/sloccount/blob/master/README
+- **COCOMO Cost Model**: The cost estimation feature uses the Basic COCOMO model as implemented in the original SLOCCount tool
diff --git a/lib/sloccount-perl.zip b/lib/sloccount-perl.zip
new file mode 100644
index 0000000..b5981b2
Binary files /dev/null and b/lib/sloccount-perl.zip differ
diff --git a/lib/webperl/LICENSE_artistic.txt b/lib/webperl/LICENSE_artistic.txt
new file mode 100644
index 0000000..a37cee6
--- /dev/null
+++ b/lib/webperl/LICENSE_artistic.txt
@@ -0,0 +1,158 @@
+NAME
+    perlartistic - the Perl Artistic License
+
+SYNOPSIS
+     You can refer to this document in Pod via "L<perlartistic>"
+     Or you can see this document by entering "perldoc perlartistic"
+
+DESCRIPTION
+    Perl is free software; you can redistribute it and/or modify it under
+    the terms of either:
+
+            a) the GNU General Public License as published by the Free
+            Software Foundation; either version 1, or (at your option) any
+            later version, or
+
+            b) the "Artistic License" which comes with this Kit.
+
+    This is "The Artistic License". It's here so that modules, programs,
+    etc., that want to declare this as their distribution license can link
+    to it.
+
+    For the GNU General Public License, see perlgpl.
+
+The "Artistic License"
+  Preamble
+    The intent of this document is to state the conditions under which a
+    Package may be copied, such that the Copyright Holder maintains some
+    semblance of artistic control over the development of the package, while
+    giving the users of the package the right to use and distribute the
+    Package in a more-or-less customary fashion, plus the right to make
+    reasonable modifications.
+
+  Definitions
+    "Package"
+        refers to the collection of files distributed by the Copyright
+        Holder, and derivatives of that collection of files created through
+        textual modification.
+
+    "Standard Version"
+        refers to such a Package if it has not been modified, or has been
+        modified in accordance with the wishes of the Copyright Holder as
+        specified below.
+
+    "Copyright Holder"
+        is whoever is named in the copyright or copyrights for the package.
+
+    "You"
+        is you, if you're thinking about copying or distributing this
+        Package.
+
+    "Reasonable copying fee"
+        is whatever you can justify on the basis of media cost, duplication
+        charges, time of people involved, and so on. (You will not be
+        required to justify it to the Copyright Holder, but only to the
+        computing community at large as a market that must bear the fee.)
+
+    "Freely Available"
+        means that no fee is charged for the item itself, though there may
+        be fees involved in handling the item. It also means that recipients
+        of the item may redistribute it under the same conditions they
+        received it.
+
+  Conditions
+    1.  You may make and give away verbatim copies of the source form of the
+        Standard Version of this Package without restriction, provided that
+        you duplicate all of the original copyright notices and associated
+        disclaimers.
+
+    2.  You may apply bug fixes, portability fixes and other modifications
+        derived from the Public Domain or from the Copyright Holder. A
+        Package modified in such a way shall still be considered the
+        Standard Version.
+
+    3.  You may otherwise modify your copy of this Package in any way,
+        provided that you insert a prominent notice in each changed file
+        stating how and when you changed that file, and provided that you do
+        at least ONE of the following:
+
+        a)  place your modifications in the Public Domain or otherwise make
+            them Freely Available, such as by posting said modifications to
+            Usenet or an equivalent medium, or placing the modifications on
+            a major archive site such as uunet.uu.net, or by allowing the
+            Copyright Holder to include your modifications in the Standard
+            Version of the Package.
+
+        b)  use the modified Package only within your corporation or
+            organization.
+
+        c)  rename any non-standard executables so the names do not conflict
+            with standard executables, which must also be provided, and
+            provide a separate manual page for each non-standard executable
+            that clearly documents how it differs from the Standard Version.
+
+        d)  make other distribution arrangements with the Copyright Holder.
+
+    4.  You may distribute the programs of this Package in object code or
+        executable form, provided that you do at least ONE of the following:
+
+        a)  distribute a Standard Version of the executables and library
+            files, together with instructions (in the manual page or
+            equivalent) on where to get the Standard Version.
+
+        b)  accompany the distribution with the machine-readable source of
+            the Package with your modifications.
+
+        c)  give non-standard executables non-standard names, and clearly
+            document the differences in manual pages (or equivalent),
+            together with instructions on where to get the Standard Version.
+
+        d)  make other distribution arrangements with the Copyright Holder.
+
+    5.  You may charge a reasonable copying fee for any distribution of this
+        Package. You may charge any fee you choose for support of this
+        Package. You may not charge a fee for this Package itself. However,
+        you may distribute this Package in aggregate with other (possibly
+        commercial) programs as part of a larger (possibly commercial)
+        software distribution provided that you do not advertise this
+        Package as a product of your own. You may embed this Package's
+        interpreter within an executable of yours (by linking); this shall
+        be construed as a mere form of aggregation, provided that the
+        complete Standard Version of the interpreter is so embedded.
+
+    6.  The scripts and library files supplied as input to or produced as
+        output from the programs of this Package do not automatically fall
+        under the copyright of this Package, but belong to whoever generated
+        them, and may be sold commercially, and may be aggregated with this
+        Package. If such scripts or library files are aggregated with this
+        Package via the so-called "undump" or "unexec" methods of producing
+        a binary executable image, then distribution of such an image shall
+        neither be construed as a distribution of this Package nor shall it
+        fall under the restrictions of Paragraphs 3 and 4, provided that you
+        do not represent such an executable image as a Standard Version of
+        this Package.
+
+    7.  C subroutines (or comparably compiled subroutines in other
+        languages) supplied by you and linked into this Package in order to
+        emulate subroutines and variables of the language defined by this
+        Package shall not be considered part of this Package, but are the
+        equivalent of input as in Paragraph 6, provided these subroutines do
+        not change the language in any way that would cause it to fail the
+        regression tests for the language.
+
+    8.  Aggregation of this Package with a commercial distribution is always
+        permitted provided that the use of this Package is embedded; that
+        is, when no overt attempt is made to make this Package's interfaces
+        visible to the end user of the commercial distribution. Such use
+        shall not be construed as a distribution of this Package.
+
+    9.  The name of the Copyright Holder may not be used to endorse or
+        promote products derived from this software without specific prior
+        written permission.
+
+    10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+        WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+        MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+    The End
+
diff --git a/lib/webperl/LICENSE_gpl.txt b/lib/webperl/LICENSE_gpl.txt
new file mode 100644
index 0000000..d29d956
--- /dev/null
+++ b/lib/webperl/LICENSE_gpl.txt
@@ -0,0 +1,281 @@
+NAME
+    perlgpl - the GNU General Public License, version 1
+
+SYNOPSIS
+     You can refer to this document in Pod via "L<perlgpl>"
+     Or you can see this document by entering "perldoc perlgpl"
+
+DESCRIPTION
+    Perl is free software; you can redistribute it and/or modify it under
+    the terms of either:
+
+            a) the GNU General Public License as published by the Free
+            Software Foundation; either version 1, or (at your option) any
+            later version, or
+
+            b) the "Artistic License" which comes with this Kit.
+
+    This is the "GNU General Public License, version 1". It's here so that
+    modules, programs, etc., that want to declare this as their distribution
+    license can link to it.
+
+    For the Perl Artistic License, see perlartistic.
+
+GNU GENERAL PUBLIC LICENSE
+                        GNU GENERAL PUBLIC LICENSE
+                         Version 1, February 1989
+
+      Copyright (C) 1989 Free Software Foundation, Inc.
+                    51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+      Everyone is permitted to copy and distribute verbatim copies
+      of this license document, but changing it is not allowed.
+
+                                Preamble
+
+       The license agreements of most software companies try to keep users
+     at the mercy of those companies.  By contrast, our General Public
+     License is intended to guarantee your freedom to share and change free
+     software--to make sure the software is free for all its users.  The
+     General Public License applies to the Free Software Foundation's
+     software and to any other program whose authors commit to using it.
+     You can use it for your programs, too.
+
+       When we speak of free software, we are referring to freedom, not
+     price.  Specifically, the General Public License is designed to make
+     sure that you have the freedom to give away or sell copies of free
+     software, that you receive source code or can get it if you want it,
+     that you can change the software or use pieces of it in new free
+     programs; and that you know you can do these things.
+
+       To protect your rights, we need to make restrictions that forbid
+     anyone to deny you these rights or to ask you to surrender the rights.
+     These restrictions translate to certain responsibilities for you if you
+     distribute copies of the software, or if you modify it.
+
+       For example, if you distribute copies of a such a program, whether
+     gratis or for a fee, you must give the recipients all the rights that
+     you have.  You must make sure that they, too, receive or can get the
+     source code.  And you must tell them their rights.
+
+       We protect your rights with two steps: (1) copyright the software,
+     and (2) offer you this license which gives you legal permission to
+     copy, distribute and/or modify the software.
+
+       Also, for each author's protection and ours, we want to make certain
+     that everyone understands that there is no warranty for this free
+     software.  If the software is modified by someone else and passed on,
+     we want its recipients to know that what they have is not the original,
+     so that any problems introduced by others will not reflect on the
+     original authors' reputations.
+
+       The precise terms and conditions for copying, distribution and
+     modification follow.
+
+                        GNU GENERAL PUBLIC LICENSE
+        TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+       0. This License Agreement applies to any program or other work which
+     contains a notice placed by the copyright holder saying it may be
+     distributed under the terms of this General Public License.  The
+     "Program", below, refers to any such program or work, and a "work based
+     on the Program" means either the Program or any work containing the
+     Program or a portion of it, either verbatim or with modifications.
+     Each licensee is addressed as "you".
+
+       1. You may copy and distribute verbatim copies of the Program's
+     source code as you receive it, in any medium, provided that you
+     conspicuously and appropriately publish on each copy an appropriate
+     copyright notice and disclaimer of warranty; keep intact all the
+     notices that refer to this General Public License and to the absence of
+     any warranty; and give any other recipients of the Program a copy of
+     this General Public License along with the Program.  You may charge a
+     fee for the physical act of transferring a copy.
+
+       2. You may modify your copy or copies of the Program or any portion
+     of it, and copy and distribute such modifications under the terms of
+     Paragraph 1 above, provided that you also do the following:
+
+         a) cause the modified files to carry prominent notices stating that
+         you changed the files and the date of any change; and
+
+         b) cause the whole of any work that you distribute or publish, that
+         in whole or in part contains the Program or any part thereof,
+         either with or without modifications, to be licensed at no charge
+         to all third parties under the terms of this General Public License
+         (except that you may choose to grant warranty protection to some or
+         all third parties, at your option).
+
+         c) If the modified program normally reads commands interactively
+         when run, you must cause it, when started running for such
+         interactive use in the simplest and most usual way, to print or
+         display an announcement including an appropriate copyright notice
+         and a notice that there is no warranty (or else, saying that you
+         provide a warranty) and that users may redistribute the program
+         under these conditions, and telling the user how to view a copy of
+         this General Public License.
+
+         d) You may charge a fee for the physical act of transferring a
+         copy, and you may at your option offer warranty protection in
+         exchange for a fee.
+
+     Mere aggregation of another independent work with the Program (or its
+     derivative) on a volume of a storage or distribution medium does not
+     bring the other work under the scope of these terms.
+
+       3. You may copy and distribute the Program (or a portion or
+     derivative of it, under Paragraph 2) in object code or executable form
+     under the terms of Paragraphs 1 and 2 above provided that you also do
+     one of the following:
+
+         a) accompany it with the complete corresponding machine-readable
+         source code, which must be distributed under the terms of
+         Paragraphs 1 and 2 above; or,
+
+         b) accompany it with a written offer, valid for at least three
+         years, to give any third party free (except for a nominal charge
+         for the cost of distribution) a complete machine-readable copy of
+         the corresponding source code, to be distributed under the terms of
+         Paragraphs 1 and 2 above; or,
+
+         c) accompany it with the information you received as to where the
+         corresponding source code may be obtained.  (This alternative is
+         allowed only for noncommercial distribution and only if you
+         received the program in object code or executable form alone.)
+
+     Source code for a work means the preferred form of the work for making
+     modifications to it.  For an executable file, complete source code
+     means all the source code for all modules it contains; but, as a
+     special exception, it need not include source code for modules which
+     are standard libraries that accompany the operating system on which the
+     executable file runs, or for standard header files or definitions files
+     that accompany that operating system.
+
+       4. You may not copy, modify, sublicense, distribute or transfer the
+     Program except as expressly provided under this General Public License.
+     Any attempt otherwise to copy, modify, sublicense, distribute or
+     transfer the Program is void, and will automatically terminate your
+     rights to use the Program under this License.  However, parties who
+     have received copies, or rights to use copies, from you under this
+     General Public License will not have their licenses terminated so long
+     as such parties remain in full compliance.
+
+       5. By copying, distributing or modifying the Program (or any work
+     based on the Program) you indicate your acceptance of this license to
+     do so, and all its terms and conditions.
+
+       6. Each time you redistribute the Program (or any work based on the
+     Program), the recipient automatically receives a license from the
+     original licensor to copy, distribute or modify the Program subject to
+     these terms and conditions.  You may not impose any further
+     restrictions on the recipients' exercise of the rights granted herein.
+
+       7. The Free Software Foundation may publish revised and/or new
+     versions of the General Public License from time to time.  Such new
+     versions will be similar in spirit to the present version, but may
+     differ in detail to address new problems or concerns.
+
+     Each version is given a distinguishing version number.  If the Program
+     specifies a version number of the license which applies to it and "any
+     later version", you have the option of following the terms and
+     conditions either of that version or of any later version published by
+     the Free Software Foundation.  If the Program does not specify a
+     version number of the license, you may choose any version ever
+     published by the Free Software Foundation.
+
+       8. If you wish to incorporate parts of the Program into other free
+     programs whose distribution conditions are different, write to the
+     author to ask for permission.  For software which is copyrighted by the
+     Free Software Foundation, write to the Free Software Foundation; we
+     sometimes make exceptions for this.  Our decision will be guided by the
+     two goals of preserving the free status of all derivatives of our free
+     software and of promoting the sharing and reuse of software generally.
+
+                                NO WARRANTY
+
+       9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO
+     WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+     EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+     OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND,
+     EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+     WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+     THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS
+     WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+     ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+       10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+     WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+     AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU
+     FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+     CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+     PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+     RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+     FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF
+     SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+     DAMAGES.
+
+                         END OF TERMS AND CONDITIONS
+
+            Appendix: How to Apply These Terms to Your New Programs
+
+       If you develop a new program, and you want it to be of the greatest
+     possible use to humanity, the best way to achieve this is to make it
+     free software which everyone can redistribute and change under these
+     terms.
+
+       To do so, attach the following notices to the program.  It is safest
+     to attach them to the start of each source file to most effectively
+     convey the exclusion of warranty; and each file should have at least
+     the "copyright" line and a pointer to where the full notice is found.
+
+         <one line to give the program's name and a brief idea of what it
+         does.>
+         Copyright (C) 19yy  <name of author>
+
+         This program is free software; you can redistribute it and/or
+         modify it under the terms of the GNU General Public License as
+         published by the Free Software Foundation; either version 1, or (at
+         your option) any later version.
+
+         This program is distributed in the hope that it will be useful,
+         but WITHOUT ANY WARRANTY; without even the implied warranty of
+         MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+         GNU General Public License for more details.
+
+         You should have received a copy of the GNU General Public License
+         along with this program; if not, write to the Free Software
+         Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA
+         02110-1301 USA
+
+
+     Also add information on how to contact you by electronic and paper
+     mail.
+
+     If the program is interactive, make it output a short notice like this
+     when it starts in an interactive mode:
+
+         Gnomovision version 69, Copyright (C) 19xx name of author
+         Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type
+         'show w'.  This is free software, and you are welcome to
+         redistribute it under certain conditions; type 'show c' for
+         details.
+
+     The hypothetical commands 'show w' and 'show c' should show the
+     appropriate parts of the General Public License.  Of course, the
+     commands you use may be called something other than 'show w' and 'show
+     c'; they could even be mouse-clicks or menu items--whatever suits your
+     program.
+
+     You should also get your employer (if you work as a programmer) or your
+     school, if any, to sign a "copyright disclaimer" for the program, if
+     necessary.  Here a sample; alter the names:
+
+       Yoyodyne, Inc., hereby disclaims all copyright interest in the
+       program 'Gnomovision' (a program to direct compilers to make passes
+       at assemblers) written by James Hacker.
+
+       <signature of Ty Coon>, 1 April 1989
+       Ty Coon, President of Vice
+
+     That's all there is to it!
+
diff --git a/lib/webperl/emperl.data b/lib/webperl/emperl.data
new file mode 100644
index 0000000..8db44a4
--- /dev/null
+++ b/lib/webperl/emperl.data
@@ -0,0 +1,567811 @@
+use warnings;
+use 5.028;
+use Test::More;
+
+=head1 SYNOPSIS
+
+Tests for F<WebPerl.pm>, to be run in the browser.
+
+=head1 Author, Copyright, and License
+
+B<< WebPerl - L<http://webperl.zero-g.net> >>
+
+Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, L<http://www.igb-berlin.de>
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+B<WITHOUT ANY WARRANTY>; without even the implied warranty of
+B<MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE>.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see L<http://perldoc.perl.org/index-licence.html>.
+
+=cut
+
+# A couple of debugging aides:
+#$WebPerl::TRACE = 1;
+#js('Perl.trace = true');
+#$Carp::Verbose = 1; # or:
+#use Devel::StackTrace ();
+#$SIG{__DIE__} = sub { die join '', shift, map {"\t".$_->as_string."\n"}
+#		Devel::StackTrace->new(skip_frames=>2)->frames };
+
+BEGIN { use_ok('WebPerl', qw/ js encode_json sub1 /) }
+
+subtest 'basic js() tests' => sub {
+	is js(undef), undef, 'undef';
+	is js(q{ undefined }), undef, 'undefined';
+	is js(q{ true }), !0, 'true';
+	is js(q{ false }), !1, 'false';
+	is js(q{ 5 }), 5, 'number 1';
+	is js(q{ 3.14159 }), 3.14159, 'number 2';
+	is js(q{ 3.14159e6 }), 3.14159e6, 'number 3';
+	is js(q{ 3.14159e60 }), 3.14159e60, 'number 4';
+	is js(q{ "" }), "", 'string 1';
+	is js(q{ "foo" }), "foo", 'string 2';
+	is js(qq{"\0\\0\N{U+E4}\\u00E4"}), "\0\0\N{U+E4}\N{U+E4}", 'nuls and unicode'; #"
+};
+
+subtest 'basic function tests' => sub {
+	my $func = js(q{ (function (x,y) { return "x"+x+"y"+y+"z" }) });
+	isa_ok $func, 'WebPerl::JSObject';
+	is $func->("a","b"), "xaybz", 'func call';
+	is js('(function (d) {return d})')->("\0\N{U+E4}\x{2665}"),
+		"\0\N{U+E4}\x{2665}", 'unicode passed as arg & rv';
+	
+	my $pl = $func->toperl;
+	is ref $pl, 'CODE', 'toperl gives code ref';
+	is $pl->('i','j'), 'xiyjz', 'code ref works';
+	
+	is js( '('.js([qw/foo bar quz/])->jscode.')[1]' ), "bar", 'basic jscode test';
+	ok js( '('.js('document')->jscode.')===('.js('document')->jscode.')' ), 'jscode equality test';
+	ok !js( '('.js('document')->jscode.')===('.js('window')->jscode.')' ), 'jscode inequality test';
+};
+
+subtest 'basic array test' => sub {
+	my $arr = js(q{ testarray = [3,1,4,1,5,9]; (testarray) });
+	isa_ok $arr, 'WebPerl::JSObject';
+	is_deeply [@$arr], [3,1,4,1,5,9], 'array values';
+	$arr->[4] = 'x';
+	is js('testarray[4]'), 'x', 'setting successful';
+	
+	my $ref = $arr->arrayref;
+	is_deeply $ref, [3,1,4,1,'x',9], 'arrayref values';
+	is ref $ref, 'ARRAY', 'arrayref gives arrayref';
+	isa_ok tied(@$ref), 'WebPerl::JSObject::TiedArray';
+	$ref->[5] = 'y';
+	is js('testarray[5]'), 'y', 'setting successful 2';
+	
+	my $plain = $arr->toperl;
+	is_deeply $plain, [3,1,4,1,'x','y'], 'toperl values';
+	is ref $plain, 'ARRAY', 'toperl gives arrayref';
+	ok !tied(@$plain), 'toperl result isn\'t tied';
+};
+
+subtest 'basic object test' => sub {
+	my $obj = js(q{ ({ hello: "world!", foo : function () { return "foobar!" } }) });
+	isa_ok $obj, 'WebPerl::JSObject';
+	is_deeply [sort keys %$obj], ['foo','hello'], 'keys on object';
+	is $obj->{hello}, "world!", 'simple object value';
+	isa_ok $obj->{foo}, 'WebPerl::JSObject';
+	is $obj->foo, 'foobar!', 'method call';
+};
+
+subtest 'encode_json' => sub {
+	my $json = encode_json( { Hello=>"World!" } );
+	my $jo = js( "($json)" );
+	isa_ok $jo, 'WebPerl::JSObject', 'json';
+	is $jo->{Hello}, 'World!', 'json object key/value';
+};
+
+subtest 'advanced function tests' => sub {
+	js(' (function (cb) { cb("yup") }) ')
+		->( sub1 {
+			is shift, "yup", "calling between JS<->Perl";
+		} );
+	my $passthru =
+		js(q{ (function (cb) { var rv = cb({hello:"world"}); return rv } ) })
+		->(sub { return shift });
+	isa_ok $passthru, 'WebPerl::JSObject', 'passthru worked 1';
+	is $passthru->{hello}, 'world', 'passthru worked 2';
+};
+
+done_testing;
+
+note "All tests passed!" if Test::More->builder->is_passing;
+
+# -*- buffer-read-only: t -*-
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/warnings.pl.
+# Any changes made here will be lost!
+
+package warnings;
+
+our $VERSION = "1.42";
+
+# Verify that we're called correctly so that warnings will work.
+# Can't use Carp, since Carp uses us!
+# String regexps because constant folding = smaller optree = less memory vs regexp literal
+# see also strict.pm.
+die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
+    if __FILE__ !~ ( '(?x) \b     '.__PACKAGE__.'  \.pmc? \z' )
+    && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
+
+our %Offsets = (
+    # Warnings Categories added in Perl 5.008
+    'all'				=> 0,
+    'closure'				=> 2,
+    'deprecated'			=> 4,
+    'exiting'				=> 6,
+    'glob'				=> 8,
+    'io'				=> 10,
+    'closed'				=> 12,
+    'exec'				=> 14,
+    'layer'				=> 16,
+    'newline'				=> 18,
+    'pipe'				=> 20,
+    'unopened'				=> 22,
+    'misc'				=> 24,
+    'numeric'				=> 26,
+    'once'				=> 28,
+    'overflow'				=> 30,
+    'pack'				=> 32,
+    'portable'				=> 34,
+    'recursion'				=> 36,
+    'redefine'				=> 38,
+    'regexp'				=> 40,
+    'severe'				=> 42,
+    'debugging'				=> 44,
+    'inplace'				=> 46,
+    'internal'				=> 48,
+    'malloc'				=> 50,
+    'signal'				=> 52,
+    'substr'				=> 54,
+    'syntax'				=> 56,
+    'ambiguous'				=> 58,
+    'bareword'				=> 60,
+    'digit'				=> 62,
+    'parenthesis'			=> 64,
+    'precedence'			=> 66,
+    'printf'				=> 68,
+    'prototype'				=> 70,
+    'qw'				=> 72,
+    'reserved'				=> 74,
+    'semicolon'				=> 76,
+    'taint'				=> 78,
+    'threads'				=> 80,
+    'uninitialized'			=> 82,
+    'unpack'				=> 84,
+    'untie'				=> 86,
+    'utf8'				=> 88,
+    'void'				=> 90,
+
+    # Warnings Categories added in Perl 5.011
+    'imprecision'			=> 92,
+    'illegalproto'			=> 94,
+
+    # Warnings Categories added in Perl 5.013
+    'non_unicode'			=> 96,
+    'nonchar'				=> 98,
+    'surrogate'				=> 100,
+
+    # Warnings Categories added in Perl 5.017
+    'experimental'			=> 102,
+    'experimental::lexical_subs'	=> 104,
+    'experimental::regex_sets'		=> 106,
+    'experimental::smartmatch'		=> 108,
+
+    # Warnings Categories added in Perl 5.019
+    'experimental::postderef'		=> 110,
+    'experimental::signatures'		=> 112,
+    'syscalls'				=> 114,
+
+    # Warnings Categories added in Perl 5.021
+    'experimental::bitwise'		=> 116,
+    'experimental::const_attr'		=> 118,
+    'experimental::re_strict'		=> 120,
+    'experimental::refaliasing'		=> 122,
+    'experimental::win32_perlio'	=> 124,
+    'locale'				=> 126,
+    'missing'				=> 128,
+    'redundant'				=> 130,
+
+    # Warnings Categories added in Perl 5.025
+    'experimental::declared_refs'	=> 132,
+
+    # Warnings Categories added in Perl 5.027
+    'experimental::alpha_assertions'	=> 134,
+    'experimental::script_run'		=> 136,
+    'shadow'				=> 138,
+);
+
+our %Bits = (
+    'all'				=> "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..71]
+    'ambiguous'				=> "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
+    'bareword'				=> "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
+    'closed'				=> "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
+    'closure'				=> "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'debugging'				=> "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]
+    'deprecated'			=> "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'digit'				=> "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
+    'exec'				=> "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
+    'exiting'				=> "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'experimental'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x51\x15\x50\x01", # [51..56,58..62,66..68]
+    'experimental::alpha_assertions'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [67]
+    'experimental::bitwise'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [58]
+    'experimental::const_attr'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [59]
+    'experimental::declared_refs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [66]
+    'experimental::lexical_subs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [52]
+    'experimental::postderef'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [55]
+    'experimental::re_strict'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [60]
+    'experimental::refaliasing'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [61]
+    'experimental::regex_sets'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [53]
+    'experimental::script_run'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [68]
+    'experimental::signatures'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [56]
+    'experimental::smartmatch'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [54]
+    'experimental::win32_perlio'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [62]
+    'glob'				=> "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
+    'illegalproto'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [47]
+    'imprecision'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [46]
+    'inplace'				=> "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]
+    'internal'				=> "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24]
+    'io'				=> "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [5..11,57]
+    'layer'				=> "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
+    'locale'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [63]
+    'malloc'				=> "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
+    'misc'				=> "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
+    'missing'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [64]
+    'newline'				=> "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
+    'non_unicode'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [48]
+    'nonchar'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [49]
+    'numeric'				=> "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
+    'once'				=> "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
+    'overflow'				=> "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
+    'pack'				=> "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
+    'parenthesis'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [32]
+    'pipe'				=> "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
+    'portable'				=> "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
+    'precedence'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [33]
+    'printf'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [34]
+    'prototype'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [35]
+    'qw'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [36]
+    'recursion'				=> "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
+    'redefine'				=> "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
+    'redundant'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [65]
+    'regexp'				=> "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
+    'reserved'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [37]
+    'semicolon'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [38]
+    'severe'				=> "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]
+    'shadow'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [69]
+    'signal'				=> "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26]
+    'substr'				=> "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27]
+    'surrogate'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [50]
+    'syntax'				=> "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x40\x00\x00\x00\x00\x00\x00", # [28..38,47]
+    'syscalls'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [57]
+    'taint'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [39]
+    'threads'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [40]
+    'uninitialized'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [41]
+    'unopened'				=> "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
+    'unpack'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [42]
+    'untie'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [43]
+    'utf8'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x15\x00\x00\x00\x00\x00", # [44,48..50]
+    'void'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [45]
+);
+
+our %DeadBits = (
+    'all'				=> "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..71]
+    'ambiguous'				=> "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
+    'bareword'				=> "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
+    'closed'				=> "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
+    'closure'				=> "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'debugging'				=> "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]
+    'deprecated'			=> "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'digit'				=> "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
+    'exec'				=> "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
+    'exiting'				=> "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'experimental'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\xa2\x2a\xa0\x02", # [51..56,58..62,66..68]
+    'experimental::alpha_assertions'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [67]
+    'experimental::bitwise'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [58]
+    'experimental::const_attr'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [59]
+    'experimental::declared_refs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [66]
+    'experimental::lexical_subs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [52]
+    'experimental::postderef'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [55]
+    'experimental::re_strict'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [60]
+    'experimental::refaliasing'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [61]
+    'experimental::regex_sets'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [53]
+    'experimental::script_run'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [68]
+    'experimental::signatures'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [56]
+    'experimental::smartmatch'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [54]
+    'experimental::win32_perlio'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [62]
+    'glob'				=> "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
+    'illegalproto'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [47]
+    'imprecision'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [46]
+    'inplace'				=> "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]
+    'internal'				=> "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24]
+    'io'				=> "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [5..11,57]
+    'layer'				=> "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
+    'locale'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [63]
+    'malloc'				=> "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
+    'misc'				=> "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
+    'missing'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [64]
+    'newline'				=> "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
+    'non_unicode'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [48]
+    'nonchar'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [49]
+    'numeric'				=> "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
+    'once'				=> "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
+    'overflow'				=> "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
+    'pack'				=> "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
+    'parenthesis'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [32]
+    'pipe'				=> "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
+    'portable'				=> "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
+    'precedence'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [33]
+    'printf'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [34]
+    'prototype'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [35]
+    'qw'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [36]
+    'recursion'				=> "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
+    'redefine'				=> "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
+    'redundant'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [65]
+    'regexp'				=> "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
+    'reserved'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [37]
+    'semicolon'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [38]
+    'severe'				=> "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]
+    'shadow'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [69]
+    'signal'				=> "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26]
+    'substr'				=> "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27]
+    'surrogate'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [50]
+    'syntax'				=> "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x80\x00\x00\x00\x00\x00\x00", # [28..38,47]
+    'syscalls'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [57]
+    'taint'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [39]
+    'threads'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [40]
+    'uninitialized'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [41]
+    'unopened'				=> "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
+    'unpack'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [42]
+    'untie'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [43]
+    'utf8'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x2a\x00\x00\x00\x00\x00", # [44,48..50]
+    'void'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [45]
+);
+
+# These are used by various things, including our own tests
+our $NONE				=  "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
+our $DEFAULT				=  "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x50\x01", # [2,4,22,23,25,52..56,58..63,66..68]
+our $LAST_BIT				=  140 ;
+our $BYTES				=  18 ;
+
+sub Croaker
+{
+    require Carp; # this initializes %CarpInternal
+    local $Carp::CarpInternal{'warnings'};
+    delete $Carp::CarpInternal{'warnings'};
+    Carp::croak(@_);
+}
+
+sub _expand_bits {
+    my $bits = shift;
+    my $want_len = ($LAST_BIT + 7) >> 3;
+    my $len = length($bits);
+    if ($len != $want_len) {
+	if ($bits eq "") {
+	    $bits = "\x00" x $want_len;
+	} elsif ($len > $want_len) {
+	    substr $bits, $want_len, $len-$want_len, "";
+	} else {
+	    my $a = vec($bits, $Offsets{all} >> 1, 2);
+	    $a |= $a << 2;
+	    $a |= $a << 4;
+	    $bits .= chr($a) x ($want_len - $len);
+	}
+    }
+    return $bits;
+}
+
+sub _bits {
+    my $mask = shift ;
+    my $catmask ;
+    my $fatal = 0 ;
+    my $no_fatal = 0 ;
+
+    $mask = _expand_bits($mask);
+    foreach my $word ( @_ ) {
+	if ($word eq 'FATAL') {
+	    $fatal = 1;
+	    $no_fatal = 0;
+	}
+	elsif ($word eq 'NONFATAL') {
+	    $fatal = 0;
+	    $no_fatal = 1;
+	}
+	elsif ($catmask = $Bits{$word}) {
+	    $mask |= $catmask ;
+	    $mask |= $DeadBits{$word} if $fatal ;
+	    $mask = ~(~$mask | $DeadBits{$word}) if $no_fatal ;
+	}
+	else
+	  { Croaker("Unknown warnings category '$word'")}
+    }
+
+    return $mask ;
+}
+
+sub bits
+{
+    # called from B::Deparse.pm
+    push @_, 'all' unless @_ ;
+    return _bits("", @_) ;
+}
+
+sub import
+{
+    shift;
+
+    my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;
+
+    # append 'all' when implied (empty import list or after a lone
+    # "FATAL" or "NONFATAL")
+    push @_, 'all'
+	if !@_ || (@_==1 && ($_[0] eq 'FATAL' || $_[0] eq 'NONFATAL'));
+
+    ${^WARNING_BITS} = _bits($mask, @_);
+}
+
+sub unimport
+{
+    shift;
+
+    my $catmask ;
+    my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;
+
+    # append 'all' when implied (empty import list or after a lone "FATAL")
+    push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL';
+
+    $mask = _expand_bits($mask);
+    foreach my $word ( @_ ) {
+	if ($word eq 'FATAL') {
+	    next;
+	}
+	elsif ($catmask = $Bits{$word}) {
+	    $mask = ~(~$mask | $catmask | $DeadBits{$word});
+	}
+	else
+	  { Croaker("Unknown warnings category '$word'")}
+    }
+
+    ${^WARNING_BITS} = $mask ;
+}
+
+my %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = ();
+
+sub LEVEL () { 8 };
+sub MESSAGE () { 4 };
+sub FATAL () { 2 };
+sub NORMAL () { 1 };
+
+sub __chk
+{
+    my $category ;
+    my $offset ;
+    my $isobj = 0 ;
+    my $wanted = shift;
+    my $has_message = $wanted & MESSAGE;
+    my $has_level   = $wanted & LEVEL  ;
+
+    if ($has_level) {
+	if (@_ != ($has_message ? 3 : 2)) {
+	    my $sub = (caller 1)[3];
+	    my $syntax = $has_message
+		? "category, level, 'message'"
+		: 'category, level';
+	    Croaker("Usage: $sub($syntax)");
+        }
+    }
+    elsif (not @_ == 1 || @_ == ($has_message ? 2 : 0)) {
+	my $sub = (caller 1)[3];
+	my $syntax = $has_message ? "[category,] 'message'" : '[category]';
+	Croaker("Usage: $sub($syntax)");
+    }
+
+    my $message = pop if $has_message;
+
+    if (@_) {
+	# check the category supplied.
+	$category = shift ;
+	if (my $type = ref $category) {
+	    Croaker("not an object")
+		if exists $builtin_type{$type};
+	    $category = $type;
+	    $isobj = 1 ;
+	}
+	$offset = $Offsets{$category};
+	Croaker("Unknown warnings category '$category'")
+	    unless defined $offset;
+    }
+    else {
+	$category = (caller(1))[0] ;
+	$offset = $Offsets{$category};
+	Croaker("package '$category' not registered for warnings")
+	    unless defined $offset ;
+    }
+
+    my $i;
+
+    if ($isobj) {
+	my $pkg;
+	$i = 2;
+	while (do { { package DB; $pkg = (caller($i++))[0] } } ) {
+	    last unless @DB::args && $DB::args[0] =~ /^$category=/ ;
+	}
+	$i -= 2 ;
+    }
+    elsif ($has_level) {
+	$i = 2 + shift;
+    }
+    else {
+	$i = _error_loc(); # see where Carp will allocate the error
+    }
+
+    # Default to 0 if caller returns nothing.  Default to $DEFAULT if it
+    # explicitly returns undef.
+    my(@callers_bitmask) = (caller($i))[9] ;
+    my $callers_bitmask =
+	 @callers_bitmask ? $callers_bitmask[0] // $DEFAULT : 0 ;
+    length($callers_bitmask) > ($offset >> 3) or $offset = $Offsets{all};
+
+    my @results;
+    foreach my $type (FATAL, NORMAL) {
+	next unless $wanted & $type;
+
+	push @results, vec($callers_bitmask, $offset + $type - 1, 1);
+    }
+
+    # &enabled and &fatal_enabled
+    return $results[0] unless $has_message;
+
+    # &warnif, and the category is neither enabled as warning nor as fatal
+    return if ($wanted & (NORMAL | FATAL | MESSAGE))
+		      == (NORMAL | FATAL | MESSAGE)
+	&& !($results[0] || $results[1]);
+
+    # If we have an explicit level, bypass Carp.
+    if ($has_level and @callers_bitmask) {
+	# logic copied from util.c:mess_sv
+	my $stuff = " at " . join " line ", (caller $i)[1,2];
+	$stuff .= sprintf ", <%s> %s %d",
+			   *${^LAST_FH}{NAME},
+			   ($/ eq "\n" ? "line" : "chunk"), $.
+	    if $. && ${^LAST_FH};
+	die "$message$stuff.\n" if $results[0];
+	return warn "$message$stuff.\n";
+    }
+
+    require Carp;
+    Carp::croak($message) if $results[0];
+    # will always get here for &warn. will only get here for &warnif if the
+    # category is enabled
+    Carp::carp($message);
+}
+
+sub _mkMask
+{
+    my ($bit) = @_;
+    my $mask = "";
+
+    vec($mask, $bit, 1) = 1;
+    return $mask;
+}
+
+sub register_categories
+{
+    my @names = @_;
+
+    for my $name (@names) {
+	if (! defined $Bits{$name}) {
+	    $Offsets{$name}  = $LAST_BIT;
+	    $Bits{$name}     = _mkMask($LAST_BIT++);
+	    $DeadBits{$name} = _mkMask($LAST_BIT++);
+	    if (length($Bits{$name}) > length($Bits{all})) {
+		$Bits{all} .= "\x55";
+		$DeadBits{all} .= "\xaa";
+	    }
+	}
+    }
+}
+
+sub _error_loc {
+    require Carp;
+    goto &Carp::short_error_loc; # don't introduce another stack frame
+}
+
+sub enabled
+{
+    return __chk(NORMAL, @_);
+}
+
+sub fatal_enabled
+{
+    return __chk(FATAL, @_);
+}
+
+sub warn
+{
+    return __chk(FATAL | MESSAGE, @_);
+}
+
+sub warnif
+{
+    return __chk(NORMAL | FATAL | MESSAGE, @_);
+}
+
+sub enabled_at_level
+{
+    return __chk(NORMAL | LEVEL, @_);
+}
+
+sub fatal_enabled_at_level
+{
+    return __chk(FATAL | LEVEL, @_);
+}
+
+sub warn_at_level
+{
+    return __chk(FATAL | MESSAGE | LEVEL, @_);
+}
+
+sub warnif_at_level
+{
+    return __chk(NORMAL | FATAL | MESSAGE | LEVEL, @_);
+}
+
+# These are not part of any public interface, so we can delete them to save
+# space.
+delete @warnings::{qw(NORMAL FATAL MESSAGE LEVEL)};
+
+1;
+__END__
+
+# ex: set ro:
+package DBM_Filter ;
+
+use strict;
+use warnings;
+our $VERSION = '0.06';
+
+package Tie::Hash ;
+
+use strict;
+use warnings;
+
+use Carp;
+
+
+our %LayerStack = ();
+our %origDESTROY = ();
+
+our %Filters = map { $_, undef } qw(
+            Fetch_Key
+            Fetch_Value
+            Store_Key
+            Store_Value
+	);
+
+our %Options = map { $_, 1 } qw(
+            fetch
+            store
+	);
+
+#sub Filter_Enable
+#{
+#}
+#
+#sub Filter_Disable
+#{
+#}
+
+sub Filtered
+{
+    my $this = shift;
+    return defined $LayerStack{$this} ;
+}
+
+sub Filter_Pop
+{
+    my $this = shift;
+    my $stack = $LayerStack{$this} || return undef ;
+    my $filter = pop @{ $stack };
+
+    # remove the filter hooks if this is the last filter to pop
+    if ( @{ $stack } == 0 ) {
+        $this->filter_store_key  ( undef );
+        $this->filter_store_value( undef );
+        $this->filter_fetch_key  ( undef );
+        $this->filter_fetch_value( undef );
+        delete $LayerStack{$this};
+    }
+
+    return $filter;
+}
+
+sub Filter_Key_Push
+{
+    &_do_Filter_Push;
+}
+
+sub Filter_Value_Push
+{
+    &_do_Filter_Push;
+}
+
+
+sub Filter_Push
+{
+    &_do_Filter_Push;
+}
+
+sub _do_Filter_Push
+{
+    my $this = shift;
+    my %callbacks = ();
+    my $caller = (caller(1))[3];
+    $caller =~ s/^.*:://;
+ 
+    croak "$caller: no parameters present" unless @_ ;
+
+    if ( ! $Options{lc $_[0]} ) {
+        my $class = shift;
+        my @params = @_;
+
+        # if $class already contains "::", don't prefix "DBM_Filter::"
+        $class = "DBM_Filter::$class" unless $class =~ /::/;
+    
+        no strict 'refs';
+        # does the "DBM_Filter::$class" exist?
+	if ( ! %{ "${class}::"} ) {
+	    # Nope, so try to load it.
+            eval " require $class ; " ;
+            croak "$caller: Cannot Load DBM Filter '$class': $@" if $@;
+        }
+    
+        my $fetch  = *{ "${class}::Fetch"  }{CODE};
+        my $store  = *{ "${class}::Store"  }{CODE};
+        my $filter = *{ "${class}::Filter" }{CODE};
+        use strict 'refs';
+
+        my $count = defined($filter) + defined($store) + defined($fetch) ;
+
+        if ( $count == 0 )
+          { croak "$caller: No methods (Filter, Fetch or Store) found in class '$class'" }
+        elsif ( $count == 1 && ! defined $filter) {
+           my $need = defined($fetch) ? 'Store' : 'Fetch';
+           croak "$caller: Missing method '$need' in class '$class'" ;
+        }
+        elsif ( $count >= 2 && defined $filter)
+          { croak "$caller: Can't mix Filter with Store and Fetch in class '$class'" }
+
+        if (defined $filter) {
+            my $callbacks = &{ $filter }(@params);
+            croak "$caller: '${class}::Filter' did not return a hash reference" 
+                unless ref $callbacks && ref $callbacks eq 'HASH';
+            %callbacks = %{ $callbacks } ;
+        }
+        else {
+            $callbacks{Fetch} = $fetch;
+            $callbacks{Store} = $store;
+        }
+    }
+    else {
+        croak "$caller: not even params" unless @_ % 2 == 0;
+        %callbacks = @_;
+    }
+    
+    my %filters = %Filters ;
+    my @got = ();
+    while (my ($k, $v) = each %callbacks )
+    {
+        my $key = $k;
+        $k = lc $k;
+        if ($k eq 'fetch') {
+            push @got, 'Fetch';
+            if ($caller eq 'Filter_Push')
+              { $filters{Fetch_Key} = $filters{Fetch_Value} = $v }
+            elsif ($caller eq 'Filter_Key_Push')
+              { $filters{Fetch_Key} = $v }
+            elsif ($caller eq 'Filter_Value_Push')
+              { $filters{Fetch_Value} = $v }
+        }
+        elsif ($k eq 'store') {
+            push @got, 'Store';
+            if ($caller eq 'Filter_Push')
+              { $filters{Store_Key} = $filters{Store_Value} = $v }
+            elsif ($caller eq 'Filter_Key_Push')
+              { $filters{Store_Key} = $v }
+            elsif ($caller eq 'Filter_Value_Push')
+              { $filters{Store_Value} = $v }
+        }
+        else
+          { croak "$caller: Unknown key '$key'" }
+
+        croak "$caller: value associated with key '$key' is not a code reference"
+            unless ref $v && ref $v eq 'CODE';
+    }
+
+    if ( @got != 2 ) {
+        push @got, 'neither' if @got == 0 ;
+        croak "$caller: expected both Store & Fetch - got @got";
+    }
+
+    # remember the class
+    push @{ $LayerStack{$this} }, \%filters ;
+
+    my $str_this = "$this" ; # Avoid a closure with $this in the subs below
+
+    $this->filter_store_key  ( sub { store_hook($str_this, 'Store_Key')   });
+    $this->filter_store_value( sub { store_hook($str_this, 'Store_Value') });
+    $this->filter_fetch_key  ( sub { fetch_hook($str_this, 'Fetch_Key')   });
+    $this->filter_fetch_value( sub { fetch_hook($str_this, 'Fetch_Value') });
+
+    # Hijack the callers DESTROY method
+    $this =~ /^(.*)=/;
+    my $type = $1 ;
+    no strict 'refs';
+    if ( *{ "${type}::DESTROY" }{CODE} ne \&MyDESTROY )
+    {
+        $origDESTROY{$type} = *{ "${type}::DESTROY" }{CODE};
+        no warnings 'redefine';
+        *{ "${type}::DESTROY" } = \&MyDESTROY ;
+    }
+}
+
+sub store_hook
+{
+    my $this = shift ;
+    my $type = shift ;
+    foreach my $layer (@{ $LayerStack{$this} })
+    {
+        &{ $layer->{$type} }() if defined $layer->{$type} ;
+    }
+}
+
+sub fetch_hook
+{
+    my $this = shift ;
+    my $type = shift ;
+    foreach my $layer (reverse @{ $LayerStack{$this} })
+    {
+        &{ $layer->{$type} }() if defined $layer->{$type} ;
+    }
+}
+
+sub MyDESTROY
+{
+    my $this = shift ;
+    delete $LayerStack{$this} ;
+
+    # call real DESTROY
+    $this =~ /^(.*)=/;
+    &{ $origDESTROY{$1} }($this);
+}
+
+1;
+
+__END__
+
+# Generated from XSLoader_pm.PL (resolved %Config::Config value)
+# This file is unique for every OS
+
+package XSLoader;
+
+$VERSION = "0.30"; # remember to update version in POD!
+
+#use strict;
+
+package DynaLoader;
+
+# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
+boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
+                                !defined(&dl_error);
+package XSLoader;
+
+sub load {
+    package DynaLoader;
+
+    my ($caller, $modlibname) = caller();
+    my $module = $caller;
+
+    if (@_) {
+        $module = $_[0];
+    } else {
+        $_[0] = $module;
+    }
+
+    # work with static linking too
+    my $boots = "$module\::bootstrap";
+    goto &$boots if defined &$boots;
+
+    goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file;
+
+    my @modparts = split(/::/,$module);
+    my $modfname = $modparts[-1];
+    my $modfname_orig = $modfname; # For .bs file search
+
+    # Some systems have restrictions on files names for DLL's etc.
+    # mod2fname returns appropriate file base name (typically truncated)
+    # It may also edit @modparts if required.
+    $modfname = &DynaLoader::mod2fname(\@modparts) if defined &DynaLoader::mod2fname;
+
+    my $modpname = join('/',@modparts);
+    my $c = () = split(/::/,$caller,-1);
+    $modlibname =~ s,[\\/][^\\/]+$,, while $c--;    # Q&D basename
+    # Does this look like a relative path?
+    if ($modlibname !~ m{^/}) {
+        # Someone may have a #line directive that changes the file name, or
+        # may be calling XSLoader::load from inside a string eval.  We cer-
+        # tainly do not want to go loading some code that is not in @INC,
+        # as it could be untrusted.
+        #
+        # We could just fall back to DynaLoader here, but then the rest of
+        # this function would go untested in the perl core, since all @INC
+        # paths are relative during testing.  That would be a time bomb
+        # waiting to happen, since bugs could be introduced into the code.
+        #
+        # So look through @INC to see if $modlibname is in it.  A rela-
+        # tive $modlibname is not a common occurrence, so this block is
+        # not hot code.
+        FOUND: {
+            for (@INC) {
+                if ($_ eq $modlibname) {
+                    last FOUND;
+                }
+            }
+            # Not found.  Fall back to DynaLoader.
+            goto \&XSLoader::bootstrap_inherit;
+        }
+    }
+    my $file = "$modlibname/auto/$modpname/$modfname.none";
+
+#   print STDERR "XSLoader::load for $module ($file)\n" if $dl_debug;
+
+    # N.B. The .bs file does not following the naming convention used
+    # by mod2fname, so use the unedited version of the name.
+
+    my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs";
+
+    # This calls DynaLoader::bootstrap, which will load the .bs file if present
+    goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs;
+
+    my $bootname = "boot_$module";
+    $bootname =~ s/\W/_/g;
+    @DynaLoader::dl_require_symbols = ($bootname);
+
+    my $boot_symbol_ref;
+
+    # Many dynamic extension loading problems will appear to come from
+    # this section of code: XYZ failed at line 123 of DynaLoader.pm.
+    # Often these errors are actually occurring in the initialisation
+    # C code of the extension XS file. Perl reports the error as being
+    # in this perl code simply because this was the last perl code
+    # it executed.
+
+    my $libref = dl_load_file($file, 0) or do { 
+        require Carp;
+        Carp::croak("Can't load '$file' for module $module: " . dl_error());
+    };
+    push(@DynaLoader::dl_librefs,$libref);  # record loaded object
+
+    $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do {
+        require Carp;
+        Carp::croak("Can't find '$bootname' symbol in $file\n");
+    };
+
+    push(@DynaLoader::dl_modules, $module); # record loaded module
+
+  boot:
+    my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file);
+
+    # See comment block above
+    push(@DynaLoader::dl_shared_objects, $file); # record files loaded
+    return &$xs(@_);
+}
+
+sub bootstrap_inherit {
+    require DynaLoader;
+    goto \&DynaLoader::bootstrap_inherit;
+}
+
+1;
+
+
+__END__
+
+package bigrat;
+
+use 5.010;
+use strict;
+use warnings;
+
+our $VERSION = '0.49';
+
+use Exporter;
+our @ISA            = qw( bigint );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+use bigint ();
+
+##############################################################################
+
+BEGIN {
+    *inf = \&bigint::inf;
+    *NaN = \&bigint::NaN;
+    *hex = \&bigint::hex;
+    *oct = \&bigint::oct;
+}
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bigrat::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      Math::BigInt->$name($_[0]);
+                      Math::BigFloat->$name($_[0]);
+                      return Math::BigRat->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bigrat\-\>$name, not a valid method");
+}
+
+sub unimport {
+    $^H{bigrat} = undef;        # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bigrat};
+}
+
+#############################################################################
+
+sub import {
+    my $self = shift;
+
+    # see also bignum->import() for additional comments
+
+    $^H{bigrat} = 1;                            # we are in effect
+
+    # for newer Perls always override hex() and oct() with a lexical version:
+    if ($] > 5.009004) {
+        bigint::_override();
+    }
+    # some defaults
+    my $lib      = '';
+    my $lib_kind = 'try';
+    my $upgrade  = 'Math::BigFloat';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($a, $p);
+    my ($ver, $trace);                          # version? trace?
+    for (my $i = 0; $i < $l ; $i++, $j++) {
+        if ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i + 1];              # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+        }
+        elsif ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] !~ /^(PI|e|bpi|bexp|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class   = 'Math::BigInt::Trace';
+        $upgrade = 'Math::BigFloat::Trace';
+    }
+    else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import, upgrade => $upgrade);
+
+    require Math::BigFloat;
+    Math::BigFloat->import(upgrade => 'Math::BigRat', ':constant');
+    require Math::BigRat;
+    Math::BigRat->import(@import);
+
+    bigrat->accuracy($a)  if defined $a;
+    bigrat->precision($p) if defined $p;
+    if ($ver) {
+        print "bigrat\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        print "Math::BigFloat\t\t v$Math::BigFloat::VERSION\n";
+        print "Math::BigRat\t\t v$Math::BigRat::VERSION\n";
+        exit;
+    }
+
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            bigint::_binary_constant(shift);
+          };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN
+    }
+}
+
+sub PI () { Math::BigFloat->new('3.141592653589793238462643383279502884197'); }
+sub e  () { Math::BigFloat->new('2.718281828459045235360287471352662497757'); }
+
+sub bpi ($) {
+    local $Math::BigFloat::upgrade;
+    Math::BigFloat->bpi(@_);
+}
+
+sub bexp ($$) {
+    local $Math::BigFloat::upgrade;
+    my $x = Math::BigFloat->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+package Fatal;
+
+# ABSTRACT: Replace functions with equivalents which succeed or die
+
+use 5.008;  # 5.8.x needed for autodie
+use Carp;
+use strict;
+use warnings;
+use Tie::RefHash;   # To cache subroutine refs
+use Config;
+use Scalar::Util qw(set_prototype);
+
+use autodie::Util qw(
+  fill_protos
+  install_subs
+  make_core_trampoline
+  on_end_of_compile_scope
+);
+
+use constant PERL510     => ( $] >= 5.010 );
+
+use constant LEXICAL_TAG => q{:lexical};
+use constant VOID_TAG    => q{:void};
+use constant INSIST_TAG  => q{!};
+
+# Keys for %Cached_fatalised_sub  (used in 3rd level)
+use constant CACHE_AUTODIE_LEAK_GUARD    => 0;
+use constant CACHE_FATAL_WRAPPER         => 1;
+use constant CACHE_FATAL_VOID            => 2;
+
+
+use constant ERROR_NOARGS    => 'Cannot use lexical %s with no arguments';
+use constant ERROR_VOID_LEX  => VOID_TAG.' cannot be used with lexical scope';
+use constant ERROR_LEX_FIRST => LEXICAL_TAG.' must be used as first argument';
+use constant ERROR_NO_LEX    => "no %s can only start with ".LEXICAL_TAG;
+use constant ERROR_BADNAME   => "Bad subroutine name for %s: %s";
+use constant ERROR_NOTSUB    => "%s is not a Perl subroutine";
+use constant ERROR_NOT_BUILT => "%s is neither a builtin, nor a Perl subroutine";
+use constant ERROR_NOHINTS   => "No user hints defined for %s";
+
+use constant ERROR_CANT_OVERRIDE => "Cannot make the non-overridable builtin %s fatal";
+
+use constant ERROR_NO_IPC_SYS_SIMPLE => "IPC::System::Simple required for Fatalised/autodying system()";
+
+use constant ERROR_IPC_SYS_SIMPLE_OLD => "IPC::System::Simple version %f required for Fatalised/autodying system().  We only have version %f";
+
+use constant ERROR_AUTODIE_CONFLICT => q{"no autodie '%s'" is not allowed while "use Fatal '%s'" is in effect};
+
+use constant ERROR_FATAL_CONFLICT => q{"use Fatal '%s'" is not allowed while "no autodie '%s'" is in effect};
+
+use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supported under Perl 5.8.x};
+
+# Older versions of IPC::System::Simple don't support all the
+# features we need.
+
+use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version
+
+our $Debug ||= 0;
+
+# EWOULDBLOCK values for systems that don't supply their own.
+# Even though this is defined with our, that's to help our
+# test code.  Please don't rely upon this variable existing in
+# the future.
+
+our %_EWOULDBLOCK = (
+    MSWin32 => 33,
+);
+
+$Carp::CarpInternal{'Fatal'} = 1;
+$Carp::CarpInternal{'autodie'} = 1;
+$Carp::CarpInternal{'autodie::exception'} = 1;
+
+# the linux parisc port has separate EAGAIN and EWOULDBLOCK,
+# and the kernel returns EAGAIN
+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
+
+# We have some tags that can be passed in for use with import.
+# These are all assumed to be CORE::
+
+my %TAGS = (
+    ':io'      => [qw(:dbm :file :filesys :ipc :socket
+                       read seek sysread syswrite sysseek )],
+    ':dbm'     => [qw(dbmopen dbmclose)],
+    ':file'    => [qw(open close flock sysopen fcntl binmode
+                     ioctl truncate)],
+    ':filesys' => [qw(opendir closedir chdir link unlink rename mkdir
+                      symlink rmdir readlink chmod chown utime)],
+    ':ipc'     => [qw(:msg :semaphore :shm pipe kill)],
+    ':msg'     => [qw(msgctl msgget msgrcv msgsnd)],
+    ':threads' => [qw(fork)],
+    ':semaphore'=>[qw(semctl semget semop)],
+    ':shm'     => [qw(shmctl shmget shmread)],
+    ':system'  => [qw(system exec)],
+
+    # Can we use qw(getpeername getsockname)? What do they do on failure?
+    # TODO - Can socket return false?
+    ':socket'  => [qw(accept bind connect getsockopt listen recv send
+                   setsockopt shutdown socketpair)],
+
+    # Our defaults don't include system(), because it depends upon
+    # an optional module, and it breaks the exotic form.
+    #
+    # This *may* change in the future.  I'd love IPC::System::Simple
+    # to be a dependency rather than a recommendation, and hence for
+    # system() to be autodying by default.
+
+    ':default' => [qw(:io :threads)],
+
+    # Everything in v2.07 and before. This was :default less chmod and chown
+    ':v207'    => [qw(:threads :dbm :socket read seek sysread
+                   syswrite sysseek open close flock sysopen fcntl fileno
+                   binmode ioctl truncate opendir closedir chdir link unlink
+                   rename mkdir symlink rmdir readlink umask
+                   :msg :semaphore :shm pipe)],
+
+    # Chmod was added in 2.13
+    ':v213'    => [qw(:v207 chmod)],
+
+    # chown, utime, kill were added in 2.14
+    ':v214'    => [qw(:v213 chown utime kill)],
+
+    # umask was removed in 2.26
+    ':v225' => [qw(:io :threads umask fileno)],
+
+    # Version specific tags.  These allow someone to specify
+    # use autodie qw(:1.994) and know exactly what they'll get.
+
+    ':1.994' => [qw(:v207)],
+    ':1.995' => [qw(:v207)],
+    ':1.996' => [qw(:v207)],
+    ':1.997' => [qw(:v207)],
+    ':1.998' => [qw(:v207)],
+    ':1.999' => [qw(:v207)],
+    ':1.999_01' => [qw(:v207)],
+    ':2.00'  => [qw(:v207)],
+    ':2.01'  => [qw(:v207)],
+    ':2.02'  => [qw(:v207)],
+    ':2.03'  => [qw(:v207)],
+    ':2.04'  => [qw(:v207)],
+    ':2.05'  => [qw(:v207)],
+    ':2.06'  => [qw(:v207)],
+    ':2.06_01' => [qw(:v207)],
+    ':2.07'  => [qw(:v207)],     # Last release without chmod
+    ':2.08'  => [qw(:v213)],
+    ':2.09'  => [qw(:v213)],
+    ':2.10'  => [qw(:v213)],
+    ':2.11'  => [qw(:v213)],
+    ':2.12'  => [qw(:v213)],
+    ':2.13'  => [qw(:v213)],     # Last release without chown
+    ':2.14'  => [qw(:v225)],
+    ':2.15'  => [qw(:v225)],
+    ':2.16'  => [qw(:v225)],
+    ':2.17'  => [qw(:v225)],
+    ':2.18'  => [qw(:v225)],
+    ':2.19'  => [qw(:v225)],
+    ':2.20'  => [qw(:v225)],
+    ':2.21'  => [qw(:v225)],
+    ':2.22'  => [qw(:v225)],
+    ':2.23'  => [qw(:v225)],
+    ':2.24'  => [qw(:v225)],
+    ':2.25'  => [qw(:v225)],
+    ':2.26'  => [qw(:default)],
+    ':2.27'  => [qw(:default)],
+    ':2.28'  => [qw(:default)],
+    ':2.29'  => [qw(:default)],
+);
+
+
+{
+    # Expand :all immediately by expanding and flattening all tags.
+    # _expand_tag is not really optimised for expanding the ":all"
+    # case (i.e. keys %TAGS, or values %TAGS for that matter), so we
+    # just do it here.
+    #
+    # NB: The %tag_cache/_expand_tag relies on $TAGS{':all'} being
+    # pre-expanded.
+    my %seen;
+    my @all = grep {
+        !/^:/ && !$seen{$_}++
+    } map { @{$_} } values %TAGS;
+    $TAGS{':all'} = \@all;
+}
+
+# This hash contains subroutines for which we should
+# subroutine() // die() rather than subroutine() || die()
+
+my %Use_defined_or;
+
+# CORE::open returns undef on failure.  It can legitimately return
+# 0 on success, eg: open(my $fh, '-|') || exec(...);
+
+@Use_defined_or{qw(
+    CORE::fork
+    CORE::recv
+    CORE::send
+    CORE::open
+    CORE::fileno
+    CORE::read
+    CORE::readlink
+    CORE::sysread
+    CORE::syswrite
+    CORE::sysseek
+    CORE::umask
+)} = ();
+
+# Some functions can return true because they changed *some* things, but
+# not all of them.  This is a list of offending functions, and how many
+# items to subtract from @_ to determine the "success" value they return.
+
+my %Returns_num_things_changed = (
+    'CORE::chmod'  => 1,
+    'CORE::chown'  => 2,
+    'CORE::kill'   => 1,  # TODO: Could this return anything on negative args?
+    'CORE::unlink' => 0,
+    'CORE::utime'  => 2,
+);
+
+# Optional actions to take on the return value before returning it.
+
+my %Retval_action = (
+    "CORE::open"        => q{
+
+    # apply the open pragma from our caller
+    if( defined $retval && !( @_ >= 3 && $_[1] =~ /:/ )) {
+        # Get the caller's hint hash
+        my $hints = (caller 0)[10];
+
+        # Decide if we're reading or writing and apply the appropriate encoding
+        # These keys are undocumented.
+        # Match what PerlIO_context_layers() does.  Read gets the read layer,
+        # everything else gets the write layer.
+        my $encoding = $_[1] =~ /^\+?>/ ? $hints->{"open>"} : $hints->{"open<"};
+
+        # Apply the encoding, if any.
+        if( $encoding ) {
+            binmode $_[0], $encoding;
+        }
+    }
+
+},
+    "CORE::sysopen"     => q{
+
+    # apply the open pragma from our caller
+    if( defined $retval ) {
+        # Get the caller's hint hash
+        my $hints = (caller 0)[10];
+
+        require Fcntl;
+
+        # Decide if we're reading or writing and apply the appropriate encoding.
+        # Match what PerlIO_context_layers() does.  Read gets the read layer,
+        # everything else gets the write layer.
+        my $open_read_only = !($_[2] ^ Fcntl::O_RDONLY());
+        my $encoding = $open_read_only ? $hints->{"open<"} : $hints->{"open>"};
+
+        # Apply the encoding, if any.
+        if( $encoding ) {
+            binmode $_[0], $encoding;
+        }
+    }
+
+},
+);
+
+my %reusable_builtins;
+
+# "Wait!" I hear you cry, "truncate() and chdir() are not reuseable! They can
+# take file and directory handles, which are package depedent."
+#
+# You would be correct, except that prototype() returns signatures which don't
+# allow for passing of globs, and nobody's complained about that. You can
+# still use \*FILEHANDLE, but that results in a reference coming through,
+# and it's already pointing to the filehandle in the caller's packge, so
+# it's all okay.
+
+@reusable_builtins{qw(
+    CORE::fork
+    CORE::kill
+    CORE::truncate
+    CORE::chdir
+    CORE::link
+    CORE::unlink
+    CORE::rename
+    CORE::mkdir
+    CORE::symlink
+    CORE::rmdir
+    CORE::readlink
+    CORE::umask
+    CORE::chmod
+    CORE::chown
+    CORE::utime
+    CORE::msgctl
+    CORE::msgget
+    CORE::msgrcv
+    CORE::msgsnd
+    CORE::semctl
+    CORE::semget
+    CORE::semop
+    CORE::shmctl
+    CORE::shmget
+    CORE::shmread
+    CORE::exec
+    CORE::system
+)} = ();
+
+# Cached_fatalised_sub caches the various versions of our
+# fatalised subs as they're produced.  This means we don't
+# have to build our own replacement of CORE::open and friends
+# for every single package that wants to use them.
+
+my %Cached_fatalised_sub = ();
+
+# Every time we're called with package scope, we record the subroutine
+# (including package or CORE::) in %Package_Fatal.  This allows us
+# to detect illegal combinations of autodie and Fatal, and makes sure
+# we don't accidently make a Fatal function autodying (which isn't
+# very useful).
+
+my %Package_Fatal = ();
+
+# The first time we're called with a user-sub, we cache it here.
+# In the case of a "no autodie ..." we put back the cached copy.
+
+my %Original_user_sub = ();
+
+# Is_fatalised_sub simply records a big map of fatalised subroutine
+# refs.  It means we can avoid repeating work, or fatalising something
+# we've already processed.
+
+my  %Is_fatalised_sub = ();
+tie %Is_fatalised_sub, 'Tie::RefHash';
+
+# Our trampoline cache allows us to cache trampolines which are used to
+# bounce leaked wrapped core subroutines to their actual core counterparts.
+
+my %Trampoline_cache;
+
+# A cache mapping "CORE::<name>" to their prototype.  Turns out that if
+# you "use autodie;" enough times, this pays off.
+my %CORE_prototype_cache;
+
+# We use our package in a few hash-keys.  Having it in a scalar is
+# convenient.  The "guard $PACKAGE" string is used as a key when
+# setting up lexical guards.
+
+my $PACKAGE       = __PACKAGE__;
+my $NO_PACKAGE    = "no $PACKAGE";      # Used to detect 'no autodie'
+
+# Here's where all the magic happens when someone write 'use Fatal'
+# or 'use autodie'.
+
+sub import {
+    my $class        = shift(@_);
+    my @original_args = @_;
+    my $void         = 0;
+    my $lexical      = 0;
+    my $insist_hints = 0;
+
+    my ($pkg, $filename) = caller();
+
+    @_ or return;   # 'use Fatal' is a no-op.
+
+    # If we see the :lexical flag, then _all_ arguments are
+    # changed lexically
+
+    if ($_[0] eq LEXICAL_TAG) {
+        $lexical = 1;
+        shift @_;
+
+        # It is currently an implementation detail that autodie is
+        # implemented as "use Fatal qw(:lexical ...)".  For backwards
+        # compatibility, we allow it - but not without a warning.
+        # NB: Optimise for autodie as it is quite possibly the most
+        # freq. consumer of this case.
+        if ($class ne 'autodie' and not $class->isa('autodie')) {
+            if ($class eq 'Fatal') {
+                warnings::warnif(
+                    'deprecated',
+                    '[deprecated] The "use Fatal qw(:lexical ...)" '
+                    . 'should be replaced by "use autodie qw(...)". '
+                    . 'Seen' # warnif appends " at <...>"
+                    );
+            } else {
+                warnings::warnif(
+                    'deprecated',
+                    "[deprecated] The class/Package $class is a "
+                    . 'subclass of Fatal and used the :lexical. '
+                    . 'If $class provides lexical error checking '
+                    . 'it should extend autodie instead of using :lexical. '
+                    . 'Seen' # warnif appends " at <...>"
+                    );
+            }
+            # "Promote" the call to autodie from here on.  This is
+            # already mostly the case (e.g. use Fatal qw(:lexical ...)
+            # would throw autodie::exceptions on error rather than the
+            # Fatal errors.
+            $class = 'autodie';
+            # This requires that autodie is in fact loaded; otherwise
+            # the "$class->X()" method calls below will explode.
+            require autodie;
+            # TODO, when autodie and Fatal are cleanly separated, we
+            # should go a "goto &autodie::import" here instead.
+        }
+
+        # If we see no arguments and :lexical, we assume they
+        # wanted ':default'.
+
+        if (@_ == 0) {
+            push(@_, ':default');
+        }
+
+        # Don't allow :lexical with :void, it's needlessly confusing.
+        if ( grep { $_ eq VOID_TAG } @_ ) {
+            croak(ERROR_VOID_LEX);
+        }
+    }
+
+    if ( grep { $_ eq LEXICAL_TAG } @_ ) {
+        # If we see the lexical tag as the non-first argument, complain.
+        croak(ERROR_LEX_FIRST);
+    }
+
+    my @fatalise_these =  @_;
+
+    # These subs will get unloaded at the end of lexical scope.
+    my %unload_later;
+    # These subs are to be installed into callers namespace.
+    my %install_subs;
+
+    # Use _translate_import_args to expand tags for us.  It will
+    # pass-through unknown tags (i.e. we have to manually handle
+    # VOID_TAG).
+    #
+    # NB: _translate_import_args re-orders everything for us, so
+    # we don't have to worry about stuff like:
+    #
+    #     :default :void :io
+    #
+    # That will (correctly) translated into
+    #
+    #     expand(:defaults-without-io) :void :io
+    #
+    # by _translate_import_args.
+    for my $func ($class->_translate_import_args(@fatalise_these)) {
+
+        if ($func eq VOID_TAG) {
+
+            # When we see :void, set the void flag.
+            $void = 1;
+
+        } elsif ($func eq INSIST_TAG) {
+
+            $insist_hints = 1;
+
+        } else {
+
+            # Otherwise, fatalise it.
+
+            # Check to see if there's an insist flag at the front.
+            # If so, remove it, and insist we have hints for this sub.
+            my $insist_this = $insist_hints;
+
+            if (substr($func, 0, 1) eq '!') {
+                $func = substr($func, 1);
+                $insist_this = 1;
+            }
+
+            # We're going to make a subroutine fatalistic.
+            # However if we're being invoked with 'use Fatal qw(x)'
+            # and we've already been called with 'no autodie qw(x)'
+            # in the same scope, we consider this to be an error.
+            # Mixing Fatal and autodie effects was considered to be
+            # needlessly confusing on p5p.
+
+            my $sub = $func;
+            $sub = "${pkg}::$sub" unless $sub =~ /::/;
+
+            # If we're being called as Fatal, and we've previously
+            # had a 'no X' in scope for the subroutine, then complain
+            # bitterly.
+
+            if (! $lexical and $^H{$NO_PACKAGE}{$sub}) {
+                 croak(sprintf(ERROR_FATAL_CONFLICT, $func, $func));
+            }
+
+            # We're not being used in a confusing way, so make
+            # the sub fatal.  Note that _make_fatal returns the
+            # old (original) version of the sub, or undef for
+            # built-ins.
+
+            my $sub_ref = $class->_make_fatal(
+                $func, $pkg, $void, $lexical, $filename,
+                $insist_this, \%install_subs,
+            );
+
+            $Original_user_sub{$sub} ||= $sub_ref;
+
+            # If we're making lexical changes, we need to arrange
+            # for them to be cleaned at the end of our scope, so
+            # record them here.
+
+            $unload_later{$func} = $sub_ref if $lexical;
+        }
+    }
+
+    install_subs($pkg, \%install_subs);
+
+    if ($lexical) {
+
+        # Dark magic to have autodie work under 5.8
+        # Copied from namespace::clean, that copied it from
+        # autobox, that found it on an ancient scroll written
+        # in blood.
+
+        # This magic bit causes %^H to be lexically scoped.
+
+        $^H |= 0x020000;
+
+        # Our package guard gets invoked when we leave our lexical
+        # scope.
+
+        on_end_of_compile_scope(sub {
+            install_subs($pkg, \%unload_later);
+        });
+
+        # To allow others to determine when autodie was in scope,
+        # and with what arguments, we also set a %^H hint which
+        # is how we were called.
+
+        # This feature should be considered EXPERIMENTAL, and
+        # may change without notice.  Please e-mail pjf@cpan.org
+        # if you're actually using it.
+
+        $^H{autodie} = "$PACKAGE @original_args";
+
+    }
+
+    return;
+
+}
+
+sub unimport {
+    my $class = shift;
+
+    # Calling "no Fatal" must start with ":lexical"
+    if ($_[0] ne LEXICAL_TAG) {
+        croak(sprintf(ERROR_NO_LEX,$class));
+    }
+
+    shift @_;   # Remove :lexical
+
+    my $pkg = (caller)[0];
+
+    # If we've been called with arguments, then the developer
+    # has explicitly stated 'no autodie qw(blah)',
+    # in which case, we disable Fatalistic behaviour for 'blah'.
+
+    my @unimport_these = @_ ? @_ : ':all';
+    my (%uninstall_subs, %reinstall_subs);
+
+    for my $symbol ($class->_translate_import_args(@unimport_these)) {
+
+        my $sub = $symbol;
+        $sub = "${pkg}::$sub" unless $sub =~ /::/;
+
+        # If 'blah' was already enabled with Fatal (which has package
+        # scope) then, this is considered an error.
+
+        if (exists $Package_Fatal{$sub}) {
+            croak(sprintf(ERROR_AUTODIE_CONFLICT,$symbol,$symbol));
+        }
+
+        # Record 'no autodie qw($sub)' as being in effect.
+        # This is to catch conflicting semantics elsewhere
+        # (eg, mixing Fatal with no autodie)
+
+        $^H{$NO_PACKAGE}{$sub} = 1;
+        # Record the current sub to be reinstalled at end of scope
+        # and then restore the original (can be undef for "CORE::"
+        # subs)
+        $reinstall_subs{$symbol} = \&$sub;
+        $uninstall_subs{$symbol} = $Original_user_sub{$sub};
+
+    }
+
+    install_subs($pkg, \%uninstall_subs);
+    on_end_of_compile_scope(sub {
+        install_subs($pkg, \%reinstall_subs);
+    });
+
+    return;
+
+}
+
+sub _translate_import_args {
+    my ($class, @args) = @_;
+    my @result;
+    my %seen;
+
+    if (@args < 2) {
+        # Optimize for this case, as it is fairly common.  (e.g. use
+        # autodie; or use autodie qw(:all); both trigger this).
+        return unless @args;
+
+        # Not a (known) tag, pass through.
+        return @args unless exists($TAGS{$args[0]});
+
+        # Strip "CORE::" from all elements in the list as import and
+        # unimport does not handle the "CORE::" prefix too well.
+        #
+        # NB: we use substr as it is faster than s/^CORE::// and
+        # it does not change the elements.
+        return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) };
+    }
+
+    # We want to translate
+    #
+    #     :default :void :io
+    #
+    # into (pseudo-ish):
+    #
+    #     expanded(:threads) :void expanded(:io)
+    #
+    # We accomplish this by "reverse, expand + filter, reverse".
+    for my $a (reverse(@args)) {
+        if (exists $TAGS{$a}) {
+            my $expanded = $class->_expand_tag($a);
+            push(@result,
+                 # Remove duplicates after ...
+                 grep { !$seen{$_}++ }
+                 # we have stripped CORE:: (see above)
+                 map { substr($_, 6) }
+                 # We take the elements in reverse order
+                 # (as @result be reversed later).
+                 reverse(@{$expanded}));
+        } else {
+            # pass through - no filtering here for tags.
+            #
+            # The reason for not filtering tags cases like:
+            #
+            #    ":default :void :io :void :threads"
+            #
+            # As we have reversed args, we see this as:
+            #
+            #    ":threads :void :io :void* :default*"
+            #
+            # (Entries marked with "*" will be filtered out completely).  When
+            # reversed again, this will be:
+            #
+            #    ":io :void :threads"
+            #
+            # But we would rather want it to be:
+            #
+            #    ":void :io :threads" or ":void :io :void :threads"
+            #
+
+            my $letter = substr($a, 0, 1);
+            if ($letter ne ':' && $a ne INSIST_TAG) {
+                next if $seen{$a}++;
+                if ($letter eq '!' and $seen{substr($a, 1)}++) {
+                    my $name = substr($a, 1);
+                    # People are being silly and doing:
+                    #
+                    #    use autodie qw(!a a);
+                    #
+                    # Enjoy this little O(n) clean up...
+                    @result = grep { $_ ne $name } @result;
+                }
+            }
+            push @result, $a;
+        }
+    }
+    # Reverse the result to restore the input order
+    return reverse(@result);
+}
+
+
+# NB: Perl::Critic's dump-autodie-tag-contents depends upon this
+# continuing to work.
+
+{
+    # We assume that $TAGS{':all'} is pre-expanded and just fill it in
+    # from the beginning.
+    my %tag_cache = (
+        'all' => [map { "CORE::$_" } @{$TAGS{':all'}}],
+    );
+
+    # Expand a given tag (e.g. ":default") into a listref containing
+    # all sub names covered by that tag.  Each sub is returned as
+    # "CORE::<name>" (i.e. "CORE::open" rather than "open").
+    #
+    # NB: the listref must not be modified.
+    sub _expand_tag {
+        my ($class, $tag) = @_;
+
+        if (my $cached = $tag_cache{$tag}) {
+            return $cached;
+        }
+
+        if (not exists $TAGS{$tag}) {
+            croak "Invalid exception class $tag";
+        }
+
+        my @to_process = @{$TAGS{$tag}};
+
+        # If the tag is basically an alias of another tag (like e.g. ":2.11"),
+        # then just share the resulting reference with the original content (so
+        # we only pay for an extra reference for the alias memory-wise).
+        if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') {
+            # We could do this for "non-tags" as well, but that only occurs
+            # once at the time of writing (":threads" => ["fork"]), so
+            # probably not worth it.
+            my $expanded = $class->_expand_tag($to_process[0]);
+            $tag_cache{$tag} = $expanded;
+            return $expanded;
+        }
+
+        my %seen = ();
+        my @taglist = ();
+
+        for my $item (@to_process) {
+            # substr is more efficient than m/^:/ for stuff like this,
+            # at the price of being a bit more verbose/low-level.
+            if (substr($item, 0, 1) eq ':') {
+                # Use recursion here to ensure we expand a tag at most once.
+
+                my $expanded = $class->_expand_tag($item);
+                push @taglist, grep { !$seen{$_}++ } @{$expanded};
+            } else {
+                my $subname = "CORE::$item";
+                push @taglist, $subname
+                    unless $seen{$subname}++;
+            }
+        }
+
+        $tag_cache{$tag} = \@taglist;
+
+        return \@taglist;
+
+    }
+
+}
+
+# This is a backwards compatible version of _write_invocation.  It's
+# recommended you don't use it.
+
+sub write_invocation {
+    my ($core, $call, $name, $void, @args) = @_;
+
+    return Fatal->_write_invocation(
+        $core, $call, $name, $void,
+        0,      # Lexical flag
+        undef,  # Sub, unused in legacy mode
+        undef,  # Subref, unused in legacy mode.
+        @args
+    );
+}
+
+# This version of _write_invocation is used internally.  It's not
+# recommended you call it from external code, as the interface WILL
+# change in the future.
+
+sub _write_invocation {
+
+    my ($class, $core, $call, $name, $void, $lexical, $sub, $sref, @argvs) = @_;
+
+    if (@argvs == 1) {        # No optional arguments
+
+        my @argv = @{$argvs[0]};
+        shift @argv;
+
+        return $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
+
+    } else {
+        my $else = "\t";
+        my (@out, @argv, $n);
+        while (@argvs) {
+            @argv = @{shift @argvs};
+            $n = shift @argv;
+
+            my $condition = "\@_ == $n";
+
+            if (@argv and $argv[-1] =~ /[#@]_/) {
+                # This argv ends with '@' in the prototype, so it matches
+                # any number of args >= the number of expressions in the
+                # argv.
+                $condition = "\@_ >= $n";
+            }
+
+            push @out, "${else}if ($condition) {\n";
+
+            $else = "\t} els";
+
+        push @out, $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
+        }
+        push @out, qq[
+            }
+            die "Internal error: $name(\@_): Do not expect to get ", scalar(\@_), " arguments";
+    ];
+
+        return join '', @out;
+    }
+}
+
+
+# This is a slim interface to ensure backward compatibility with
+# anyone doing very foolish things with old versions of Fatal.
+
+sub one_invocation {
+    my ($core, $call, $name, $void, @argv) = @_;
+
+    return Fatal->_one_invocation(
+        $core, $call, $name, $void,
+        undef,   # Sub.  Unused in back-compat mode.
+        1,       # Back-compat flag
+        undef,   # Subref, unused in back-compat mode.
+        @argv
+    );
+
+}
+
+# This is the internal interface that generates code.
+# NOTE: This interface WILL change in the future.  Please do not
+# call this subroutine directly.
+
+# TODO: Whatever's calling this code has already looked up hints.  Pass
+# them in, rather than look them up a second time.
+
+sub _one_invocation {
+    my ($class, $core, $call, $name, $void, $sub, $back_compat, $sref, @argv) = @_;
+
+
+    # If someone is calling us directly (a child class perhaps?) then
+    # they could try to mix void without enabling backwards
+    # compatibility.  We just don't support this at all, so we gripe
+    # about it rather than doing something unwise.
+
+    if ($void and not $back_compat) {
+        Carp::confess("Internal error: :void mode not supported with $class");
+    }
+
+    # @argv only contains the results of the in-built prototype
+    # function, and is therefore safe to interpolate in the
+    # code generators below.
+
+    # TODO - The following clobbers context, but that's what the
+    #        old Fatal did.  Do we care?
+
+    if ($back_compat) {
+
+        # Use Fatal qw(system) will never be supported.  It generated
+        # a compile-time error with legacy Fatal, and there's no reason
+        # to support it when autodie does a better job.
+
+        if ($call eq 'CORE::system') {
+            return q{
+                croak("UNIMPLEMENTED: use Fatal qw(system) not supported.");
+            };
+        }
+
+        local $" = ', ';
+
+        if ($void) {
+            return qq/return (defined wantarray)?$call(@argv):
+                   $call(@argv) || Carp::croak("Can't $name(\@_)/ .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")'
+        } else {
+            return qq{return $call(@argv) || Carp::croak("Can't $name(\@_)} .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")';
+        }
+    }
+
+    # The name of our original function is:
+    #   $call if the function is CORE
+    #   $sub if our function is non-CORE
+
+    # The reason for this is that $call is what we're actually
+    # calling.  For our core functions, this is always
+    # CORE::something.  However for user-defined subs, we're about to
+    # replace whatever it is that we're calling; as such, we actually
+    # calling a subroutine ref.
+
+    my $human_sub_name = $core ? $call : $sub;
+
+    # Should we be testing to see if our result is defined, or
+    # just true?
+
+    my $use_defined_or;
+
+    my $hints;      # All user-sub hints, including list hints.
+
+    if ( $core ) {
+
+        # Core hints are built into autodie.
+
+        $use_defined_or = exists ( $Use_defined_or{$call} );
+
+    }
+    else {
+
+        # User sub hints are looked up using autodie::hints,
+        # since users may wish to add their own hints.
+
+        require autodie::hints;
+
+        $hints = autodie::hints->get_hints_for( $sref );
+
+        # We'll look up the sub's fullname.  This means we
+        # get better reports of where it came from in our
+        # error messages, rather than what imported it.
+
+        $human_sub_name = autodie::hints->sub_fullname( $sref );
+
+    }
+
+    # Checks for special core subs.
+
+    if ($call eq 'CORE::system') {
+
+        # Leverage IPC::System::Simple if we're making an autodying
+        # system.
+
+        local $" = ", ";
+
+        # We need to stash $@ into $E, rather than using
+        # local $@ for the whole sub.  If we don't then
+        # any exceptions from internal errors in autodie/Fatal
+        # will mysteriously disappear before propagating
+        # upwards.
+
+        return qq{
+            my \$retval;
+            my \$E;
+
+
+            {
+                local \$@;
+
+                eval {
+                    \$retval = IPC::System::Simple::system(@argv);
+                };
+
+                \$E = \$@;
+            }
+
+            if (\$E) {
+
+                # TODO - This can't be overridden in child
+                # classes!
+
+                die autodie::exception::system->new(
+                    function => q{CORE::system}, args => [ @argv ],
+                    message => "\$E", errno => \$!,
+                );
+            }
+
+            return \$retval;
+        };
+
+    }
+
+    local $" = ', ';
+
+    # If we're going to throw an exception, here's the code to use.
+    my $die = qq{
+        die $class->throw(
+            function => q{$human_sub_name}, args => [ @argv ],
+            pragma => q{$class}, errno => \$!,
+            context => \$context, return => \$retval,
+            eval_error => \$@
+        )
+    };
+
+    if ($call eq 'CORE::flock') {
+
+        # flock needs special treatment.  When it fails with
+        # LOCK_UN and EWOULDBLOCK, then it's not really fatal, it just
+        # means we couldn't get the lock right now.
+
+        require POSIX;      # For POSIX::EWOULDBLOCK
+
+        local $@;   # Don't blat anyone else's $@.
+
+        # Ensure that our vendor supports EWOULDBLOCK.  If they
+        # don't (eg, Windows), then we use known values for its
+        # equivalent on other systems.
+
+        my $EWOULDBLOCK = eval { POSIX::EWOULDBLOCK(); }
+                          || $_EWOULDBLOCK{$^O}
+                          || _autocroak("Internal error - can't overload flock - EWOULDBLOCK not defined on this system.");
+        my $EAGAIN = $EWOULDBLOCK;
+        if ($try_EAGAIN) {
+            $EAGAIN = eval { POSIX::EAGAIN(); }
+                          || _autocroak("Internal error - can't overload flock - EAGAIN not defined on this system.");
+        }
+
+        require Fcntl;      # For Fcntl::LOCK_NB
+
+        return qq{
+
+            my \$context = wantarray() ? "list" : "scalar";
+
+            # Try to flock.  If successful, return it immediately.
+
+            my \$retval = $call(@argv);
+            return \$retval if \$retval;
+
+            # If we failed, but we're using LOCK_NB and
+            # returned EWOULDBLOCK, it's not a real error.
+
+            if (\$_[1] & Fcntl::LOCK_NB() and
+                (\$! == $EWOULDBLOCK or
+                ($try_EAGAIN and \$! == $EAGAIN ))) {
+                return \$retval;
+            }
+
+            # Otherwise, we failed.  Die noisily.
+
+            $die;
+
+        };
+    }
+
+    if (exists $Returns_num_things_changed{$call}) {
+
+        # Some things return the number of things changed (like
+        # chown, kill, chmod, etc). We only consider these successful
+        # if *all* the things are changed.
+
+        return qq[
+            my \$num_things = \@_ - $Returns_num_things_changed{$call};
+            my \$retval = $call(@argv);
+
+            if (\$retval != \$num_things) {
+
+                # We need \$context to throw an exception.
+                # It's *always* set to scalar, because that's how
+                # autodie calls chown() above.
+
+                my \$context = "scalar";
+                $die;
+            }
+
+            return \$retval;
+        ];
+    }
+
+    # AFAIK everything that can be given an unopned filehandle
+    # will fail if it tries to use it, so we don't really need
+    # the 'unopened' warning class here.  Especially since they
+    # then report the wrong line number.
+
+    # Other warnings are disabled because they produce excessive
+    # complaints from smart-match hints under 5.10.1.
+
+    my $code = qq[
+        no warnings qw(unopened uninitialized numeric);
+        no if \$\] >= 5.017011, warnings => "experimental::smartmatch";
+
+        if (wantarray) {
+            my \@results = $call(@argv);
+            my \$retval  = \\\@results;
+            my \$context = "list";
+
+    ];
+
+    my $retval_action = $Retval_action{$call} || '';
+
+    if ( $hints and ( ref($hints->{list} ) || "" ) eq 'CODE' ) {
+
+        # NB: Subroutine hints are passed as a full list.
+        # This differs from the 5.10.0 smart-match behaviour,
+        # but means that context unaware subroutines can use
+        # the same hints in both list and scalar context.
+
+        $code .= qq{
+            if ( \$hints->{list}->(\@results) ) { $die };
+        };
+    }
+    elsif ( PERL510 and $hints ) {
+        $code .= qq{
+            if ( \@results ~~ \$hints->{list} ) { $die };
+        };
+    }
+    elsif ( $hints ) {
+        croak sprintf(ERROR_58_HINTS, 'list', $sub);
+    }
+    else {
+        $code .= qq{
+            # An empty list, or a single undef is failure
+            if (! \@results or (\@results == 1 and ! defined \$results[0])) {
+                $die;
+            }
+        }
+    }
+
+    # Tidy up the end of our wantarray call.
+
+    $code .= qq[
+            return \@results;
+        }
+    ];
+
+
+    # Otherwise, we're in scalar context.
+    # We're never in a void context, since we have to look
+    # at the result.
+
+    $code .= qq{
+        my \$retval  = $call(@argv);
+        my \$context = "scalar";
+    };
+
+    if ( $hints and ( ref($hints->{scalar} ) || "" ) eq 'CODE' ) {
+
+        # We always call code refs directly, since that always
+        # works in 5.8.x, and always works in 5.10.1
+
+        return $code .= qq{
+            if ( \$hints->{scalar}->(\$retval) ) { $die };
+            $retval_action
+            return \$retval;
+        };
+
+    }
+    elsif (PERL510 and $hints) {
+        return $code . qq{
+
+            if ( \$retval ~~ \$hints->{scalar} ) { $die };
+            $retval_action
+            return \$retval;
+        };
+    }
+    elsif ( $hints ) {
+        croak sprintf(ERROR_58_HINTS, 'scalar', $sub);
+    }
+
+    return $code .
+    ( $use_defined_or ? qq{
+
+        $die if not defined \$retval;
+        $retval_action
+        return \$retval;
+
+    } : qq{
+
+        $retval_action
+        return \$retval || $die;
+
+    } ) ;
+
+}
+
+# This returns the old copy of the sub, so we can
+# put it back at end of scope.
+
+# TODO : Check to make sure prototypes are restored correctly.
+
+# TODO: Taking a huge list of arguments is awful.  Rewriting to
+#       take a hash would be lovely.
+
+# TODO - BACKCOMPAT - This is not yet compatible with 5.10.0
+
+sub _make_fatal {
+    my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_;
+    my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type);
+    my $ini = $sub;
+    my $name = $sub;
+
+
+    if (index($sub, '::') == -1) {
+        $sub = "${pkg}::$sub";
+        if (substr($name, 0, 1) eq '&') {
+            $name = substr($name, 1);
+        }
+    } else {
+        $name =~ s/.*:://;
+    }
+
+
+    # Figure if we're using lexical or package semantics and
+    # twiddle the appropriate bits.
+
+    if (not $lexical) {
+        $Package_Fatal{$sub} = 1;
+    }
+
+    # TODO - We *should* be able to do skipping, since we know when
+    # we've lexicalised / unlexicalised a subroutine.
+
+
+    warn  "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug;
+    croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/;
+
+    if (defined(&$sub)) {   # user subroutine
+
+        # NOTE: Previously we would localise $@ at this point, so
+        # the following calls to eval {} wouldn't interfere with anything
+        # that's already in $@.  Unfortunately, it would also stop
+        # any of our croaks from triggering(!), which is even worse.
+
+        # This could be something that we've fatalised that
+        # was in core.
+
+	# Store the current sub in case we need to restore it.
+	$sref = \&$sub;
+
+        if ( $Package_Fatal{$sub} and exists($CORE_prototype_cache{"CORE::$name"})) {
+
+            # Something we previously made Fatal that was core.
+            # This is safe to replace with an autodying to core
+            # version.
+
+            $core  = 1;
+            $call  = "CORE::$name";
+            $proto = $CORE_prototype_cache{$call};
+
+            # We return our $sref from this subroutine later
+            # on, indicating this subroutine should be placed
+            # back when we're finished.
+
+
+
+        } else {
+
+            # If this is something we've already fatalised or played with,
+            # then look-up the name of the original sub for the rest of
+            # our processing.
+
+            if (exists($Is_fatalised_sub{$sref})) {
+                # $sub is one of our wrappers around a CORE sub or a
+                # user sub.  Instead of wrapping our wrapper, lets just
+                # generate a new wrapper for the original sub.
+                # - NB: the current wrapper might be for a different class
+                #   than the one we are generating now (e.g. some limited
+                #   mixing between use Fatal + use autodie can occur).
+                # - Even for nested autodie, we need this as the leak guards
+                #   differ.
+                my $s = $Is_fatalised_sub{$sref};
+                if (defined($s)) {
+                    # It is a wrapper for a user sub
+                    $sub = $s;
+                } else {
+                    # It is a wrapper for a CORE:: sub
+                    $core = 1;
+                    $call = "CORE::$name";
+                    $proto = $CORE_prototype_cache{$call};
+                }
+            }
+
+            # A regular user sub, or a user sub wrapping a
+            # core sub.
+
+            if (!$core) {
+                # A non-CORE sub might have hints and such...
+                $proto = prototype($sref);
+                $call = '&$sref';
+                require autodie::hints;
+
+                $hints = autodie::hints->get_hints_for( $sref );
+
+                # If we've insisted on hints, but don't have them, then
+                # bail out!
+
+                if ($insist and not $hints) {
+                    croak(sprintf(ERROR_NOHINTS, $name));
+                }
+
+                # Otherwise, use the default hints if we don't have
+                # any.
+
+                $hints ||= autodie::hints::DEFAULT_HINTS();
+            }
+
+        }
+
+    } elsif ($sub eq $ini && $sub !~ /^CORE::GLOBAL::/) {
+        # Stray user subroutine
+        croak(sprintf(ERROR_NOTSUB,$sub));
+
+    } elsif ($name eq 'system') {
+
+        # If we're fatalising system, then we need to load
+        # helper code.
+
+        # The business with $E is to avoid clobbering our caller's
+        # $@, and to avoid $@ being localised when we croak.
+
+        my $E;
+
+        {
+            local $@;
+
+            eval {
+                require IPC::System::Simple; # Only load it if we need it.
+                require autodie::exception::system;
+            };
+            $E = $@;
+        }
+
+        if ($E) { croak ERROR_NO_IPC_SYS_SIMPLE; }
+
+        # Make sure we're using a recent version of ISS that actually
+        # support fatalised system.
+        if ($IPC::System::Simple::VERSION < MIN_IPC_SYS_SIMPLE_VER) {
+            croak sprintf(
+            ERROR_IPC_SYS_SIMPLE_OLD, MIN_IPC_SYS_SIMPLE_VER,
+            $IPC::System::Simple::VERSION
+            );
+        }
+
+        $call = 'CORE::system';
+        $core = 1;
+
+    } elsif ($name eq 'exec') {
+        # Exec doesn't have a prototype.  We don't care.  This
+        # breaks the exotic form with lexical scope, and gives
+        # the regular form a "do or die" behavior as expected.
+
+        $call = 'CORE::exec';
+        $core = 1;
+
+    } else {            # CORE subroutine
+        $call = "CORE::$name";
+        if (exists($CORE_prototype_cache{$call})) {
+            $proto = $CORE_prototype_cache{$call};
+        } else {
+            my $E;
+            {
+                local $@;
+                $proto = eval { prototype $call };
+                $E = $@;
+            }
+            croak(sprintf(ERROR_NOT_BUILT,$name)) if $E;
+            croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto;
+            $CORE_prototype_cache{$call} = $proto;
+        }
+        $core = 1;
+    }
+
+    # TODO: This caching works, but I don't like using $void and
+    # $lexical as keys.  In particular, I suspect our code may end up
+    # wrapping already wrapped code when autodie and Fatal are used
+    # together.
+
+    # NB: We must use '$sub' (the name plus package) and not
+    # just '$name' (the short name) here.  Failing to do so
+    # results code that's in the wrong package, and hence has
+    # access to the wrong package filehandles.
+
+    $cache = $Cached_fatalised_sub{$class}{$sub};
+    if ($lexical) {
+        $cache_type = CACHE_AUTODIE_LEAK_GUARD;
+    } else {
+        $cache_type = CACHE_FATAL_WRAPPER;
+        $cache_type = CACHE_FATAL_VOID if $void;
+    }
+
+    if (my $subref = $cache->{$cache_type}) {
+        $install_subs->{$name} = $subref;
+        return $sref;
+    }
+
+    # If our subroutine is reusable (ie, not package depdendent),
+    # then check to see if we've got a cached copy, and use that.
+    # See RT #46984. (Thanks to Niels Thykier for being awesome!)
+
+    if ($core && exists $reusable_builtins{$call}) {
+        # For non-lexical subs, we can just use this cache directly
+        # - for lexical variants, we need a leak guard as well.
+        $code = $reusable_builtins{$call}{$lexical};
+        if (!$lexical && defined($code)) {
+            $install_subs->{$name} = $code;
+            return $sref;
+        }
+    }
+
+    if (!($lexical && $core) && !defined($code)) {
+        # No code available, generate it now.
+        my $wrapper_pkg = $pkg;
+        $wrapper_pkg = undef if (exists($reusable_builtins{$call}));
+        $code = $class->_compile_wrapper($wrapper_pkg, $core, $call, $name,
+                                         $void, $lexical, $sub, $sref,
+                                         $hints, $proto);
+        if (!defined($wrapper_pkg)) {
+            # cache it so we don't recompile this part again
+            $reusable_builtins{$call}{$lexical} = $code;
+        }
+    }
+
+    # Now we need to wrap our fatalised sub inside an itty bitty
+    # closure, which can detect if we've leaked into another file.
+    # Luckily, we only need to do this for lexical (autodie)
+    # subs.  Fatal subs can leak all they want, it's considered
+    # a "feature" (or at least backwards compatible).
+
+    # TODO: Cache our leak guards!
+
+    # TODO: This is pretty hairy code.  A lot more tests would
+    # be really nice for this.
+
+    my $installed_sub = $code;
+
+    if ($lexical) {
+        $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call,
+                                                  $pkg, $proto);
+    }
+
+    $cache->{$cache_type} = $code;
+
+    $install_subs->{$name} = $installed_sub;
+
+    # Cache that we've now overridden this sub.  If we get called
+    # again, we may need to find that find subroutine again (eg, for hints).
+
+    $Is_fatalised_sub{$installed_sub} = $sref;
+
+    return $sref;
+
+}
+
+# This subroutine exists primarily so that child classes can override
+# it to point to their own exception class.  Doing this is significantly
+# less complex than overriding throw()
+
+sub exception_class { return "autodie::exception" };
+
+{
+    my %exception_class_for;
+    my %class_loaded;
+
+    sub throw {
+        my ($class, @args) = @_;
+
+        # Find our exception class if we need it.
+        my $exception_class =
+             $exception_class_for{$class} ||= $class->exception_class;
+
+        if (not $class_loaded{$exception_class}) {
+            if ($exception_class =~ /[^\w:']/) {
+                confess "Bad exception class '$exception_class'.\nThe '$class->exception_class' method wants to use $exception_class\nfor exceptions, but it contains characters which are not word-characters or colons.";
+            }
+
+            # Alas, Perl does turn barewords into modules unless they're
+            # actually barewords.  As such, we're left doing a string eval
+            # to make sure we load our file correctly.
+
+            my $E;
+
+            {
+                local $@;   # We can't clobber $@, it's wrong!
+                my $pm_file = $exception_class . ".pm";
+                $pm_file =~ s{ (?: :: | ' ) }{/}gx;
+                eval { require $pm_file };
+                $E = $@;    # Save $E despite ending our local.
+            }
+
+            # We need quotes around $@ to make sure it's stringified
+            # while still in scope.  Without them, we run the risk of
+            # $@ having been cleared by us exiting the local() block.
+
+            confess "Failed to load '$exception_class'.\nThis may be a typo in the '$class->exception_class' method,\nor the '$exception_class' module may not exist.\n\n $E" if $E;
+
+            $class_loaded{$exception_class}++;
+
+        }
+
+        return $exception_class->new(@args);
+    }
+}
+
+# Creates and returns a leak guard (with prototype if needed).
+sub _make_leak_guard {
+    my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_;
+
+    # The leak guard is rather lengthly (in fact it makes up the most
+    # of _make_leak_guard).  It is possible to split it into a large
+    # "generic" part and a small wrapper with call-specific
+    # information.  This was done in v2.19 and profiling suggested
+    # that we ended up using a substantial amount of runtime in "goto"
+    # between the leak guard(s) and the final sub.  Therefore, the two
+    # parts were merged into one to reduce the runtime overhead.
+
+    my $leak_guard = sub {
+        my $caller_level = 0;
+        my $caller;
+
+        while ( ($caller = (caller $caller_level)[1]) =~ m{^\(eval \d+\)$} ) {
+
+            # If our filename is actually an eval, and we
+            # reach it, then go to our autodying code immediatately.
+
+            last if ($caller eq $filename);
+            $caller_level++;
+        }
+
+        # We're now out of the eval stack.
+
+        if ($caller eq $filename) {
+            # No leak, call the wrapper.  NB: In this case, it doesn't
+            # matter if it is a CORE sub or not.
+            if (!defined($wrapped_sub)) {
+                # CORE sub that we were too lazy to compile when we
+                # created this leak guard.
+                die "$call is not CORE::<something>"
+                    if substr($call, 0, 6) ne 'CORE::';
+
+                my $name = substr($call, 6);
+                my $sub = $name;
+                my $lexical = 1;
+                my $wrapper_pkg = $pkg;
+                my $code;
+                if (exists($reusable_builtins{$call})) {
+                    $code = $reusable_builtins{$call}{$lexical};
+                    $wrapper_pkg = undef;
+                }
+                if (!defined($code)) {
+                    $code = $class->_compile_wrapper($wrapper_pkg,
+                                                     1, # core
+                                                     $call,
+                                                     $name,
+                                                     0, # void
+                                                     $lexical,
+                                                     $sub,
+                                                     undef, # subref (not used for core)
+                                                     undef, # hints (not used for core)
+                                                     $proto);
+
+                    if (!defined($wrapper_pkg)) {
+                        # cache it so we don't recompile this part again
+                        $reusable_builtins{$call}{$lexical} = $code;
+                    }
+                }
+                # As $wrapped_sub is "closed over", updating its value will
+                # be "remembered" for the next call.
+                $wrapped_sub = $code;
+            }
+            goto $wrapped_sub;
+        }
+
+        # We leaked, time to call the original function.
+        # - for non-core functions that will be $orig_sub
+        # - for CORE functions, $orig_sub may be a trampoline
+        goto $orig_sub if defined($orig_sub);
+
+        # We are wrapping a CORE sub and we do not have a trampoline
+        # yet.
+        #
+        # If we've cached a trampoline, then use it.  Usually only
+        # resuable subs will have cache hits, but non-reusuably ones
+        # can get it as well in (very) rare cases.  It is mostly in
+        # cases where a package uses autodie multiple times and leaks
+        # from multiple places.  Possibly something like:
+        #
+        #  package Pkg::With::LeakyCode;
+        #  sub a {
+        #      use autodie;
+        #      code_that_leaks();
+        #  }
+        #
+        #  sub b {
+        #      use autodie;
+        #      more_leaky_code();
+        #  }
+        #
+        # Note that we use "Fatal" as package name for reusable subs
+        # because A) that allows us to trivially re-use the
+        # trampolines as well and B) because the reusable sub is
+        # compiled into "package Fatal" as well.
+
+        $pkg = 'Fatal' if exists $reusable_builtins{$call};
+        $orig_sub = $Trampoline_cache{$pkg}{$call};
+
+        if (not $orig_sub) {
+            # If we don't have a trampoline, we need to build it.
+            #
+            # We only generate trampolines when we need them, and
+            # we can cache them by subroutine + package.
+            #
+            # As $orig_sub is "closed over", updating its value will
+            # be "remembered" for the next call.
+
+            $orig_sub = make_core_trampoline($call, $pkg, $proto);
+
+            # We still cache it despite remembering it in $orig_sub as
+            # well.  In particularly, we rely on this to avoid
+            # re-compiling the reusable trampolines.
+            $Trampoline_cache{$pkg}{$call} = $orig_sub;
+        }
+
+        # Bounce to our trampoline, which takes us to our core sub.
+        goto $orig_sub;
+    };  # <-- end of leak guard
+
+    # If there is a prototype on the original sub, copy it to the leak
+    # guard.
+    if (defined $proto) {
+        # The "\&" may appear to be redundant but set_prototype
+        # croaks when it is removed.
+        set_prototype(\&$leak_guard, $proto);
+    }
+
+    return $leak_guard;
+}
+
+sub _compile_wrapper {
+    my ($class, $wrapper_pkg, $core, $call, $name, $void, $lexical, $sub, $sref, $hints, $proto) = @_;
+    my $real_proto = '';
+    my @protos;
+    my $code;
+    if (defined $proto) {
+        $real_proto = " ($proto)";
+    } else {
+        $proto = '@';
+    }
+
+    @protos = fill_protos($proto);
+    $code = qq[
+        sub$real_proto {
+    ];
+
+    if (!$lexical) {
+        $code .= q[
+           local($", $!) = (', ', 0);
+        ];
+    }
+
+    # Don't have perl whine if exec fails, since we'll be handling
+    # the exception now.
+    $code .= "no warnings qw(exec);\n" if $call eq "CORE::exec";
+
+    $code .= $class->_write_invocation($core, $call, $name, $void, $lexical,
+                                       $sub, $sref, @protos);
+    $code .= "}\n";
+    warn $code if $Debug;
+
+    # I thought that changing package was a monumental waste of
+    # time for CORE subs, since they'll always be the same.  However
+    # that's not the case, since they may refer to package-based
+    # filehandles (eg, with open).
+    #
+    # The %reusable_builtins hash defines ones we can aggressively
+    # cache as they never depend upon package-based symbols.
+
+    my $E;
+
+    {
+        no strict 'refs'; ## no critic # to avoid: Can't use string (...) as a symbol ref ...
+        local $@;
+        if (defined($wrapper_pkg)) {
+            $code = eval("package $wrapper_pkg; require Carp; $code");  ## no critic
+        } else {
+            $code = eval("require Carp; $code");  ## no critic
+
+        }
+        $E = $@;
+    }
+
+    if (not $code) {
+        my $true_name = $core ? $call : $sub;
+        croak("Internal error in autodie/Fatal processing $true_name: $E");
+    }
+    return $code;
+}
+
+# For some reason, dying while replacing our subs doesn't
+# kill our calling program.  It simply stops the loading of
+# autodie and keeps going with everything else.  The _autocroak
+# sub allows us to die with a vengeance.  It should *only* ever be
+# used for serious internal errors, since the results of it can't
+# be captured.
+
+sub _autocroak {
+    warn Carp::longmess(@_);
+    exit(255);  # Ugh!
+}
+
+1;
+
+__END__
+
+
+require 5.004;
+package Test;
+
+use strict;
+
+use Carp;
+our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, $ntest, $TestLevel); #public-is
+our ($TESTOUT, $TESTERR, %Program_Lines, $told_about_diff,
+             $ONFAIL, %todo, %history, $planned, @FAILDETAIL); #private-ish
+
+# In case a test is run in a persistent environment.
+sub _reset_globals {
+    %todo       = ();
+    %history    = ();
+    @FAILDETAIL = ();
+    $ntest      = 1;
+    $TestLevel  = 0;		# how many extra stack frames to skip
+    $planned    = 0;
+}
+
+$VERSION = '1.31';
+require Exporter;
+@ISA=('Exporter');
+
+@EXPORT    = qw(&plan &ok &skip);
+@EXPORT_OK = qw($ntest $TESTOUT $TESTERR);
+
+$|=1;
+$TESTOUT = *STDOUT{IO};
+$TESTERR = *STDERR{IO};
+
+# Use of this variable is strongly discouraged.  It is set mainly to
+# help test coverage analyzers know which test is running.
+$ENV{REGRESSION_TEST} = $0;
+
+
+
+sub plan {
+    croak "Test::plan(%args): odd number of arguments" if @_ & 1;
+    croak "Test::plan(): should not be called more than once" if $planned;
+
+    local($\, $,);   # guard against -l and other things that screw with
+                     # print
+
+    _reset_globals();
+
+    _read_program( (caller)[1] );
+
+    my $max=0;
+    while (@_) {
+	my ($k,$v) = splice(@_, 0, 2);
+	if ($k =~ /^test(s)?$/) { $max = $v; }
+	elsif ($k eq 'todo' or
+	       $k eq 'failok') { for (@$v) { $todo{$_}=1; }; }
+	elsif ($k eq 'onfail') {
+	    ref $v eq 'CODE' or croak "Test::plan(onfail => $v): must be CODE";
+	    $ONFAIL = $v;
+	}
+	else { carp "Test::plan(): skipping unrecognized directive '$k'" }
+    }
+    my @todo = sort { $a <=> $b } keys %todo;
+    if (@todo) {
+	print $TESTOUT "1..$max todo ".join(' ', @todo).";\n";
+    } else {
+	print $TESTOUT "1..$max\n";
+    }
+    ++$planned;
+    print $TESTOUT "# Running under perl version $] for $^O",
+      (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
+
+    print $TESTOUT "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
+      if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
+
+    print $TESTOUT "# MacPerl version $MacPerl::Version\n"
+      if defined $MacPerl::Version;
+
+    printf $TESTOUT
+      "# Current time local: %s\n# Current time GMT:   %s\n",
+      scalar(localtime($^T)), scalar(gmtime($^T));
+
+    print $TESTOUT "# Using Test.pm version $VERSION\n";
+
+    # Retval never used:
+    return undef;
+}
+
+sub _read_program {
+  my($file) = shift;
+  return unless defined $file and length $file
+    and -e $file and -f _ and -r _;
+  open(SOURCEFILE, '<', $file) || return;
+  $Program_Lines{$file} = [<SOURCEFILE>];
+  close(SOURCEFILE);
+
+  foreach my $x (@{$Program_Lines{$file}})
+   { $x =~ tr/\cm\cj\n\r//d }
+
+  unshift @{$Program_Lines{$file}}, '';
+  return 1;
+}
+
+
+sub _to_value {
+    my ($v) = @_;
+    return ref $v eq 'CODE' ? $v->() : $v;
+}
+
+sub _quote {
+    my $str = $_[0];
+    return "<UNDEF>" unless defined $str;
+    $str =~ s/\\/\\\\/g;
+    $str =~ s/"/\\"/g;
+    $str =~ s/\a/\\a/g;
+    $str =~ s/[\b]/\\b/g;
+    $str =~ s/\e/\\e/g;
+    $str =~ s/\f/\\f/g;
+    $str =~ s/\n/\\n/g;
+    $str =~ s/\r/\\r/g;
+    $str =~ s/\t/\\t/g;
+    if (defined $^V && $^V ge v5.6) {
+        $str =~ s/([[:cntrl:]])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([[:^print:]])/sprintf('\\x%02X',ord($1))/eg;
+        $str =~ s/([[:^ascii:]])/sprintf('\\x{%X}',ord($1))/eg;
+    }
+    elsif (ord("A") == 65) {
+        $str =~ s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
+        $str =~ s/([^\0-\176])/sprintf('\\x{%X}',ord($1))/eg;
+    }
+    else { # Assuming EBCDIC on this ancient Perl
+
+        # The controls except for one are 0-\077, so almost all controls on
+        # EBCDIC platforms will be expressed in octal, instead of just the C0
+        # ones.
+        $str =~ s/([\0-\077])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([\0-\077])/sprintf('\\x%02X',ord($1))/eg;
+
+        $str =~ s/([^\0-\xFF])/sprintf('\\x{%X}',ord($1))/eg;
+
+        # What remains to be escaped are the non-ASCII-range characters,
+        # including the one control that isn't in the 0-077 range.
+        # (We don't escape further any ASCII printables.)
+        $str =~ s<[^ !"\$\%#'()*+,\-./0123456789:;\<=\>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~]><sprintf('\\x%02X',ord($1))>eg;
+    }
+    #if( $_[1] ) {
+    #  substr( $str , 218-3 ) = "..."
+    #   if length($str) >= 218 and !$ENV{PERL_TEST_NO_TRUNC};
+    #}
+    return qq("$str");
+}
+
+
+
+# A past maintainer of this module said:
+# <<ok(...)'s special handling of subroutine references is an unfortunate
+#   "feature" that can't be removed due to compatibility.>>
+#
+
+sub ok ($;$$) {
+    croak "ok: plan before you test!" if !$planned;
+
+    local($\,$,);   # guard against -l and other things that screw with
+                    # print
+
+    my ($pkg,$file,$line) = caller($TestLevel);
+    my $repetition = ++$history{"$file:$line"};
+    my $context = ("$file at line $line".
+		   ($repetition > 1 ? " fail \#$repetition" : ''));
+
+    # Are we comparing two values?
+    my $compare = 0;
+
+    my $ok=0;
+    my $result = _to_value(shift);
+    my ($expected, $isregex, $regex);
+    if (@_ == 0) {
+	$ok = $result;
+    } else {
+        $compare = 1;
+	$expected = _to_value(shift);
+	if (!defined $expected) {
+	    $ok = !defined $result;
+	} elsif (!defined $result) {
+	    $ok = 0;
+	} elsif (ref($expected) eq 'Regexp') {
+	    $ok = $result =~ /$expected/;
+            $regex = $expected;
+	} elsif (($regex) = ($expected =~ m,^ / (.+) / $,sx) or
+	    (undef, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) {
+	    $ok = $result =~ /$regex/;
+	} else {
+	    $ok = $result eq $expected;
+	}
+    }
+    my $todo = $todo{$ntest};
+    if ($todo and $ok) {
+	$context .= ' TODO?!' if $todo;
+	print $TESTOUT "ok $ntest # ($context)\n";
+    } else {
+        # Issuing two seperate prints() causes problems on VMS.
+        if (!$ok) {
+            print $TESTOUT "not ok $ntest\n";
+        }
+	else {
+            print $TESTOUT "ok $ntest\n";
+        }
+
+        $ok or _complain($result, $expected,
+        {
+          'repetition' => $repetition, 'package' => $pkg,
+          'result' => $result, 'todo' => $todo,
+          'file' => $file, 'line' => $line,
+          'context' => $context, 'compare' => $compare,
+          @_ ? ('diagnostic' =>  _to_value(shift)) : (),
+        });
+
+    }
+    ++ $ntest;
+    $ok;
+}
+
+
+sub _complain {
+    my($result, $expected, $detail) = @_;
+    $$detail{expected} = $expected if defined $expected;
+
+    # Get the user's diagnostic, protecting against multi-line
+    # diagnostics.
+    my $diag = $$detail{diagnostic};
+    $diag =~ s/\n/\n#/g if defined $diag;
+
+    my $out = $$detail{todo} ? $TESTOUT : $TESTERR;
+    $$detail{context} .= ' *TODO*' if $$detail{todo};
+    if (!$$detail{compare}) {
+        if (!$diag) {
+            print $out "# Failed test $ntest in $$detail{context}\n";
+        } else {
+            print $out "# Failed test $ntest in $$detail{context}: $diag\n";
+        }
+    } else {
+        my $prefix = "Test $ntest";
+
+        print $out "# $prefix got: " . _quote($result) .
+                       " ($$detail{context})\n";
+        $prefix = ' ' x (length($prefix) - 5);
+        my $expected_quoted = (defined $$detail{regex})
+         ?  'qr{'.($$detail{regex}).'}'  :  _quote($expected);
+
+        print $out "# $prefix Expected: $expected_quoted",
+           $diag ? " ($diag)" : (), "\n";
+
+        _diff_complain( $result, $expected, $detail, $prefix )
+          if defined($expected) and 2 < ($expected =~ tr/\n//);
+    }
+
+    if(defined $Program_Lines{ $$detail{file} }[ $$detail{line} ]) {
+        print $out
+          "#  $$detail{file} line $$detail{line} is: $Program_Lines{ $$detail{file} }[ $$detail{line} ]\n"
+         if $Program_Lines{ $$detail{file} }[ $$detail{line} ]
+          =~ m/[^\s\#\(\)\{\}\[\]\;]/;  # Otherwise it's uninformative
+
+        undef $Program_Lines{ $$detail{file} }[ $$detail{line} ];
+         # So we won't repeat it.
+    }
+
+    push @FAILDETAIL, $detail;
+    return;
+}
+
+
+
+sub _diff_complain {
+    my($result, $expected, $detail, $prefix) = @_;
+    return _diff_complain_external(@_) if $ENV{PERL_TEST_DIFF};
+    return _diff_complain_algdiff(@_)
+      if eval {
+          local @INC = @INC;
+          pop @INC if $INC[-1] eq '.';
+          require Algorithm::Diff; Algorithm::Diff->VERSION(1.15);
+          1;
+      };
+
+    $told_about_diff++ or print $TESTERR <<"EOT";
+# $prefix   (Install the Algorithm::Diff module to have differences in multiline
+# $prefix    output explained.  You might also set the PERL_TEST_DIFF environment
+# $prefix    variable to run a diff program on the output.)
+EOT
+    ;
+    return;
+}
+
+
+
+sub _diff_complain_external {
+    my($result, $expected, $detail, $prefix) = @_;
+    my $diff = $ENV{PERL_TEST_DIFF} || die "WHAAAA?";
+
+    require File::Temp;
+    my($got_fh, $got_filename) = File::Temp::tempfile("test-got-XXXXX");
+    my($exp_fh, $exp_filename) = File::Temp::tempfile("test-exp-XXXXX");
+    unless ($got_fh && $exp_fh) {
+      warn "Can't get tempfiles";
+      return;
+    }
+
+    print $got_fh $result;
+    print $exp_fh $expected;
+    if (close($got_fh) && close($exp_fh)) {
+        my $diff_cmd = "$diff $exp_filename $got_filename";
+        print $TESTERR "#\n# $prefix $diff_cmd\n";
+        if (open(DIFF, '-|', $diff_cmd)) {
+            local $_;
+            while (<DIFF>) {
+                print $TESTERR "# $prefix $_";
+            }
+            close(DIFF);
+        }
+        else {
+            warn "Can't run diff: $!";
+        }
+    } else {
+        warn "Can't write to tempfiles: $!";
+    }
+    unlink($got_filename);
+    unlink($exp_filename);
+    return;
+}
+
+
+
+sub _diff_complain_algdiff {
+    my($result, $expected, $detail, $prefix) = @_;
+
+    my @got = split(/^/, $result);
+    my @exp = split(/^/, $expected);
+
+    my $diff_kind;
+    my @diff_lines;
+
+    my $diff_flush = sub {
+        return unless $diff_kind;
+
+        my $count_lines = @diff_lines;
+        my $s = $count_lines == 1 ? "" : "s";
+        my $first_line = $diff_lines[0][0] + 1;
+
+        print $TESTERR "# $prefix ";
+        if ($diff_kind eq "GOT") {
+            print $TESTERR "Got $count_lines extra line$s at line $first_line:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  + " . _quote($got[$i->[0]]) . "\n";
+            }
+        } elsif ($diff_kind eq "EXP") {
+            if ($count_lines > 1) {
+                my $last_line = $diff_lines[-1][0] + 1;
+                print $TESTERR "Lines $first_line-$last_line are";
+            }
+            else {
+                print $TESTERR "Line $first_line is";
+            }
+            print $TESTERR " missing:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  - " . _quote($exp[$i->[1]]) . "\n";
+            }
+        } elsif ($diff_kind eq "CH") {
+            if ($count_lines > 1) {
+                my $last_line = $diff_lines[-1][0] + 1;
+                print $TESTERR "Lines $first_line-$last_line are";
+            }
+            else {
+                print $TESTERR "Line $first_line is";
+            }
+            print $TESTERR " changed:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  - " . _quote($exp[$i->[1]]) . "\n";
+                print $TESTERR "# $prefix  + " . _quote($got[$i->[0]]) . "\n";
+            }
+        }
+
+        # reset
+        $diff_kind = undef;
+        @diff_lines = ();
+    };
+
+    my $diff_collect = sub {
+        my $kind = shift;
+        &$diff_flush() if $diff_kind && $diff_kind ne $kind;
+        $diff_kind = $kind;
+        push(@diff_lines, [@_]);
+    };
+
+
+    Algorithm::Diff::traverse_balanced(
+        \@got, \@exp,
+        {
+            DISCARD_A => sub { &$diff_collect("GOT", @_) },
+            DISCARD_B => sub { &$diff_collect("EXP", @_) },
+            CHANGE    => sub { &$diff_collect("CH",  @_) },
+            MATCH     => sub { &$diff_flush() },
+        },
+    );
+    &$diff_flush();
+
+    return;
+}
+
+
+
+
+#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~
+
+
+
+sub skip ($;$$$) {
+    local($\, $,);   # guard against -l and other things that screw with
+                     # print
+
+    my $whyskip = _to_value(shift);
+    if (!@_ or $whyskip) {
+	$whyskip = '' if $whyskip =~ m/^\d+$/;
+        $whyskip =~ s/^[Ss]kip(?:\s+|$)//;  # backwards compatibility, old
+                                            # versions required the reason
+                                            # to start with 'skip'
+        # We print in one shot for VMSy reasons.
+        my $ok = "ok $ntest # skip";
+        $ok .= " $whyskip" if length $whyskip;
+        $ok .= "\n";
+        print $TESTOUT $ok;
+        ++ $ntest;
+        return 1;
+    } else {
+        # backwards compatibility (I think).  skip() used to be
+        # called like ok(), which is weird.  I haven't decided what to do with
+        # this yet.
+#        warn <<WARN if $^W;
+#This looks like a skip() using the very old interface.  Please upgrade to
+#the documented interface as this has been deprecated.
+#WARN
+
+	local($TestLevel) = $TestLevel+1;  #to ignore this stack frame
+        return &ok(@_);
+    }
+}
+
+
+END {
+    $ONFAIL->(\@FAILDETAIL) if @FAILDETAIL && $ONFAIL;
+}
+
+1;
+__END__
+
+
+# "Your mistake was a hidden intention."
+#  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
+package NEXT;
+
+use Carp;
+use strict;
+use warnings;
+use overload ();
+
+our $VERSION = '0.67_01';
+
+sub NEXT::ELSEWHERE::ancestors
+{
+	my @inlist = shift;
+	my @outlist = ();
+	while (my $next = shift @inlist) {
+		push @outlist, $next;
+		no strict 'refs';
+		unshift @inlist, @{"$outlist[-1]::ISA"};
+	}
+	return @outlist;
+}
+
+sub NEXT::ELSEWHERE::ordered_ancestors
+{
+	my @inlist = shift;
+	my @outlist = ();
+	while (my $next = shift @inlist) {
+		push @outlist, $next;
+		no strict 'refs';
+		push @inlist, @{"$outlist[-1]::ISA"};
+	}
+	return sort { $a->isa($b) ? -1
+	            : $b->isa($a) ? +1
+	            :                0 } @outlist;
+}
+
+sub NEXT::ELSEWHERE::buildAUTOLOAD
+{
+    my $autoload_name = caller() . '::AUTOLOAD';
+
+    no strict 'refs';
+    *{$autoload_name} = sub {
+        my ($self) = @_;
+        my $depth = 1;
+        until (((caller($depth))[3]||q{}) !~ /^\(eval\)$/) { $depth++ }
+        my $caller = (caller($depth))[3];
+        my $wanted = $NEXT::AUTOLOAD || $autoload_name;
+        undef $NEXT::AUTOLOAD;
+        my ($caller_class, $caller_method) = do { $caller =~ m{(.*)::(.*)}g };
+        my ($wanted_class, $wanted_method) = do { $wanted =~ m{(.*)::(.*)}g };
+        croak "Can't call $wanted from $caller"
+            unless $caller_method eq $wanted_method;
+
+        my $key = ref $self && overload::Overloaded($self)
+            ? overload::StrVal($self) : $self;
+
+        local ($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN) =
+            ($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN);
+
+        unless ($NEXT::NEXT{$key,$wanted_method}) {
+            my @forebears =
+                NEXT::ELSEWHERE::ancestors ref $self || $self,
+                            $wanted_class;
+            while (@forebears) {
+                last if shift @forebears eq $caller_class
+            }
+            no strict 'refs';
+            # Use *{"..."} when first accessing the CODE slot, to make sure
+            # any typeglob stub is upgraded to a full typeglob.
+            @{$NEXT::NEXT{$key,$wanted_method}} =
+                map {
+                    my $stash = \%{"${_}::"};
+                    ($stash->{$caller_method} && (*{"${_}::$caller_method"}{CODE}))
+                        ? *{$stash->{$caller_method}}{CODE}
+                        : () } @forebears
+                    unless $wanted_method eq 'AUTOLOAD';
+            @{$NEXT::NEXT{$key,$wanted_method}} =
+                map {
+                    my $stash = \%{"${_}::"};
+                    ($stash->{AUTOLOAD} && (*{"${_}::AUTOLOAD"}{CODE}))
+                        ? "${_}::AUTOLOAD"
+                        : () } @forebears
+                    unless @{$NEXT::NEXT{$key,$wanted_method}||[]};
+            $NEXT::SEEN->{$key,*{$caller}{CODE}}++;
+        }
+        my $call_method = shift @{$NEXT::NEXT{$key,$wanted_method}};
+        while (do { $wanted_class =~ /^NEXT\b.*\b(UNSEEN|DISTINCT)\b/ }
+            && defined $call_method
+            && $NEXT::SEEN->{$key,$call_method}++) {
+            $call_method = shift @{$NEXT::NEXT{$key,$wanted_method}};
+        }
+        unless (defined $call_method) {
+            return unless do { $wanted_class =~ /^NEXT:.*:ACTUAL/ };
+            (local $Carp::CarpLevel)++;
+            croak qq(Can't locate object method "$wanted_method" ),
+                qq(via package "$caller_class");
+        };
+        return $self->$call_method(@_[1..$#_]) if ref $call_method eq 'CODE';
+        no strict 'refs';
+        do { ($wanted_method=${$caller_class."::AUTOLOAD"}) =~ s/.*::// }
+            if $wanted_method eq 'AUTOLOAD';
+        $$call_method = $caller_class."::NEXT::".$wanted_method;
+        return $call_method->(@_);
+    };
+}
+
+no strict 'vars';
+package NEXT;                                  NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::UNSEEN;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::DISTINCT;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL::UNSEEN;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL::DISTINCT;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::UNSEEN::ACTUAL;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::DISTINCT::ACTUAL;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+
+package
+    EVERY;
+
+sub EVERY::ELSEWHERE::buildAUTOLOAD {
+    my $autoload_name = caller() . '::AUTOLOAD';
+
+    no strict 'refs';
+    *{$autoload_name} = sub {
+        my ($self) = @_;
+        my $depth = 1;
+        until (((caller($depth))[3]||q{}) !~ /^\(eval\)$/) { $depth++ }
+        my $caller = (caller($depth))[3];
+        my $wanted = $EVERY::AUTOLOAD || $autoload_name;
+        undef $EVERY::AUTOLOAD;
+        my ($wanted_class, $wanted_method) = do { $wanted =~ m{(.*)::(.*)}g };
+
+        my $key = ref($self) && overload::Overloaded($self)
+            ? overload::StrVal($self) : $self;
+
+        local $NEXT::ALREADY_IN_EVERY{$key,$wanted_method} =
+            $NEXT::ALREADY_IN_EVERY{$key,$wanted_method};
+
+        return if $NEXT::ALREADY_IN_EVERY{$key,$wanted_method}++;
+
+        my @forebears = NEXT::ELSEWHERE::ordered_ancestors ref $self || $self,
+                                        $wanted_class;
+        @forebears = reverse @forebears if do { $wanted_class =~ /\bLAST\b/ };
+        no strict 'refs';
+        my %seen;
+        my @every = map { my $sub = "${_}::$wanted_method";
+                    !*{$sub}{CODE} || $seen{$sub}++ ? () : $sub
+                    } @forebears
+                    unless $wanted_method eq 'AUTOLOAD';
+
+        my $want = wantarray;
+        if (@every) {
+            if ($want) {
+                return map {($_, [$self->$_(@_[1..$#_])])} @every;
+            }
+            elsif (defined $want) {
+                return { map {($_, scalar($self->$_(@_[1..$#_])))}
+                        @every
+                    };
+            }
+            else {
+                $self->$_(@_[1..$#_]) for @every;
+                return;
+            }
+        }
+
+        @every = map { my $sub = "${_}::AUTOLOAD";
+                !*{$sub}{CODE} || $seen{$sub}++ ? () : "${_}::AUTOLOAD"
+                } @forebears;
+        if ($want) {
+            return map { $$_ = ref($self)."::EVERY::".$wanted_method;
+                    ($_, [$self->$_(@_[1..$#_])]);
+                } @every;
+        }
+        elsif (defined $want) {
+            return { map { $$_ = ref($self)."::EVERY::".$wanted_method;
+                    ($_, scalar($self->$_(@_[1..$#_])))
+                    } @every
+                };
+        }
+        else {
+            for (@every) {
+                $$_ = ref($self)."::EVERY::".$wanted_method;
+                $self->$_(@_[1..$#_]);
+            }
+            return;
+        }
+    };
+}
+
+package EVERY::LAST;   @ISA = 'EVERY';   EVERY::ELSEWHERE::buildAUTOLOAD();
+package
+    EVERY;             @ISA = 'NEXT';    EVERY::ELSEWHERE::buildAUTOLOAD();
+
+1;
+
+__END__
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+use strict;
+package CPAN;
+$CPAN::VERSION = '2.20';
+$CPAN::VERSION =~ s/_//;
+
+# we need to run chdir all over and we would get at wrong libraries
+# there
+use File::Spec ();
+BEGIN {
+    if (File::Spec->can("rel2abs")) {
+        for my $inc (@INC) {
+            $inc = File::Spec->rel2abs($inc) unless ref $inc;
+        }
+    }
+    $SIG{WINCH} = 'IGNORE' if exists $SIG{WINCH};
+}
+use CPAN::Author;
+use CPAN::HandleConfig;
+use CPAN::Version;
+use CPAN::Bundle;
+use CPAN::CacheMgr;
+use CPAN::Complete;
+use CPAN::Debug;
+use CPAN::Distribution;
+use CPAN::Distrostatus;
+use CPAN::FTP;
+use CPAN::Index 1.93; # https://rt.cpan.org/Ticket/Display.html?id=43349
+use CPAN::InfoObj;
+use CPAN::Module;
+use CPAN::Prompt;
+use CPAN::URL;
+use CPAN::Queue;
+use CPAN::Tarzip;
+use CPAN::DeferredCode;
+use CPAN::Shell;
+use CPAN::LWP::UserAgent;
+use CPAN::Exception::RecursiveDependency;
+use CPAN::Exception::yaml_not_installed;
+use CPAN::Exception::yaml_process_error;
+
+use Carp ();
+use Config ();
+use Cwd qw(chdir);
+use DirHandle ();
+use Exporter ();
+use ExtUtils::MakeMaker qw(prompt); # for some unknown reason,
+                                    # 5.005_04 does not work without
+                                    # this
+use File::Basename ();
+use File::Copy ();
+use File::Find;
+use File::Path ();
+use FileHandle ();
+use Fcntl qw(:flock);
+use Safe ();
+use Sys::Hostname qw(hostname);
+use Text::ParseWords ();
+use Text::Wrap ();
+
+# protect against "called too early"
+sub find_perl ();
+sub anycwd ();
+sub _uniq;
+
+no lib ".";
+
+require Mac::BuildTools if $^O eq 'MacOS';
+if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) {
+    $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING};
+    my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$;
+    $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} = join ",", @rec;
+    # warn "# Note: Recursive call of CPAN.pm detected\n";
+    my $w = sprintf "# Note: CPAN.pm is running in process %d now", pop @rec;
+    my %sleep = (
+                 5 => 30,
+                 6 => 60,
+                 7 => 120,
+                );
+    my $sleep = @rec > 7 ? 300 : ($sleep{scalar @rec}||0);
+    my $verbose = @rec >= 4;
+    while (@rec) {
+        $w .= sprintf " which has been called by process %d", pop @rec;
+    }
+    if ($sleep) {
+        $w .= ".\n\n# Sleeping $sleep seconds to protect other processes\n";
+    }
+    if ($verbose) {
+        warn $w;
+    }
+    local $| = 1;
+    while ($sleep > 0) {
+        printf "\r#%5d", --$sleep;
+        sleep 1;
+    }
+    print "\n";
+}
+$ENV{PERL5_CPAN_IS_RUNNING}=$$;
+$ENV{PERL5_CPANPLUS_IS_RUNNING}=$$; # https://rt.cpan.org/Ticket/Display.html?id=23735
+
+END { $CPAN::End++; &cleanup; }
+
+$CPAN::Signal ||= 0;
+$CPAN::Frontend ||= "CPAN::Shell";
+unless (@CPAN::Defaultsites) {
+    @CPAN::Defaultsites = map {
+        CPAN::URL->new(TEXT => $_, FROM => "DEF")
+    }
+        "http://www.perl.org/CPAN/",
+        "ftp://ftp.perl.org/pub/CPAN/";
+}
+# $CPAN::iCwd (i for initial)
+$CPAN::iCwd ||= CPAN::anycwd();
+$CPAN::Perl ||= CPAN::find_perl();
+$CPAN::Defaultdocs ||= "http://search.cpan.org/perldoc?";
+$CPAN::Defaultrecent ||= "http://search.cpan.org/uploads.rdf";
+$CPAN::Defaultrecent ||= "http://cpan.uwinnipeg.ca/htdocs/cpan.xml";
+
+# our globals are getting a mess
+use vars qw(
+            $AUTOLOAD
+            $Be_Silent
+            $CONFIG_DIRTY
+            $Defaultdocs
+            $Echo_readline
+            $Frontend
+            $GOTOSHELL
+            $HAS_USABLE
+            $Have_warned
+            $MAX_RECURSION
+            $META
+            $RUN_DEGRADED
+            $Signal
+            $SQLite
+            $Suppress_readline
+            $VERSION
+            $autoload_recursion
+            $term
+            @Defaultsites
+            @EXPORT
+           );
+
+$MAX_RECURSION = 32;
+
+@CPAN::ISA = qw(CPAN::Debug Exporter);
+
+# note that these functions live in CPAN::Shell and get executed via
+# AUTOLOAD when called directly
+@EXPORT = qw(
+             autobundle
+             bundle
+             clean
+             cvs_import
+             expand
+             force
+             fforce
+             get
+             install
+             install_tested
+             is_tested
+             make
+             mkmyconfig
+             notest
+             perldoc
+             readme
+             recent
+             recompile
+             report
+             shell
+             smoke
+             test
+             upgrade
+            );
+
+sub soft_chdir_with_alternatives ($);
+
+{
+    $autoload_recursion ||= 0;
+
+    #-> sub CPAN::AUTOLOAD ;
+    sub AUTOLOAD { ## no critic
+        $autoload_recursion++;
+        my($l) = $AUTOLOAD;
+        $l =~ s/.*:://;
+        if ($CPAN::Signal) {
+            warn "Refusing to autoload '$l' while signal pending";
+            $autoload_recursion--;
+            return;
+        }
+        if ($autoload_recursion > 1) {
+            my $fullcommand = join " ", map { "'$_'" } $l, @_;
+            warn "Refusing to autoload $fullcommand in recursion\n";
+            $autoload_recursion--;
+            return;
+        }
+        my(%export);
+        @export{@EXPORT} = '';
+        CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+        if (exists $export{$l}) {
+            CPAN::Shell->$l(@_);
+        } else {
+            die(qq{Unknown CPAN command "$AUTOLOAD". }.
+                qq{Type ? for help.\n});
+        }
+        $autoload_recursion--;
+    }
+}
+
+{
+    my $x = *SAVEOUT; # avoid warning
+    open($x,">&STDOUT") or die "dup failed";
+    my $redir = 0;
+    sub _redirect(@) {
+        #die if $redir;
+        local $_;
+        push(@_,undef);
+        while(defined($_=shift)) {
+            if (s/^\s*>//){
+                my ($m) = s/^>// ? ">" : "";
+                s/\s+//;
+                $_=shift unless length;
+                die "no dest" unless defined;
+                open(STDOUT,">$m$_") or die "open:$_:$!\n";
+                $redir=1;
+            } elsif ( s/^\s*\|\s*// ) {
+                my $pipe="| $_";
+                while(defined($_[0])){
+                    $pipe .= ' ' . shift;
+                }
+                open(STDOUT,$pipe) or die "open:$pipe:$!\n";
+                $redir=1;
+            } else {
+                push(@_,$_);
+            }
+        }
+        return @_;
+    }
+    sub _unredirect {
+        return unless $redir;
+        $redir = 0;
+        ## redirect: unredirect and propagate errors.  explicit close to wait for pipe.
+        close(STDOUT);
+        open(STDOUT,">&SAVEOUT");
+        die "$@" if "$@";
+        ## redirect: done
+    }
+}
+
+sub _uniq {
+    my(@list) = @_;
+    my %seen;
+    return grep { !$seen{$_}++ } @list;
+}
+
+#-> sub CPAN::shell ;
+sub shell {
+    my($self) = @_;
+    $Suppress_readline = ! -t STDIN unless defined $Suppress_readline;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+
+    my $oprompt = shift || CPAN::Prompt->new;
+    my $prompt = $oprompt;
+    my $commandline = shift || "";
+    $CPAN::CurrentCommandId ||= 1;
+
+    local($^W) = 1;
+    unless ($Suppress_readline) {
+        require Term::ReadLine;
+        if (! $term
+            or
+            $term->ReadLine eq "Term::ReadLine::Stub"
+           ) {
+            $term = Term::ReadLine->new('CPAN Monitor');
+        }
+        if ($term->ReadLine eq "Term::ReadLine::Gnu") {
+            my $attribs = $term->Attribs;
+            $attribs->{attempted_completion_function} = sub {
+                &CPAN::Complete::gnu_cpl;
+            }
+        } else {
+            $readline::rl_completion_function =
+                $readline::rl_completion_function = 'CPAN::Complete::cpl';
+        }
+        if (my $histfile = $CPAN::Config->{'histfile'}) {{
+            unless ($term->can("AddHistory")) {
+                $CPAN::Frontend->mywarn("Terminal does not support AddHistory.\n");
+                last;
+            }
+            $META->readhist($term,$histfile);
+        }}
+        for ($CPAN::Config->{term_ornaments}) { # alias
+            local $Term::ReadLine::termcap_nowarn = 1;
+            $term->ornaments($_) if defined;
+        }
+        # $term->OUT is autoflushed anyway
+        my $odef = select STDERR;
+        $| = 1;
+        select STDOUT;
+        $| = 1;
+        select $odef;
+    }
+
+    $META->checklock();
+    my @cwd = grep { defined $_ and length $_ }
+        CPAN::anycwd(),
+              File::Spec->can("tmpdir") ? File::Spec->tmpdir() : (),
+                    File::Spec->rootdir();
+    my $try_detect_readline;
+    $try_detect_readline = $term->ReadLine eq "Term::ReadLine::Stub" if $term;
+    unless ($CPAN::Config->{inhibit_startup_message}) {
+        my $rl_avail = $Suppress_readline ? "suppressed" :
+            ($term->ReadLine ne "Term::ReadLine::Stub") ? "enabled" :
+                "available (maybe install Bundle::CPAN or Bundle::CPANxxl?)";
+        $CPAN::Frontend->myprint(
+                                 sprintf qq{
+cpan shell -- CPAN exploration and modules installation (v%s)
+Enter 'h' for help.
+
+},
+                                 $CPAN::VERSION,
+                                )
+    }
+    my($continuation) = "";
+    my $last_term_ornaments;
+  SHELLCOMMAND: while () {
+        if ($Suppress_readline) {
+            if ($Echo_readline) {
+                $|=1;
+            }
+            print $prompt;
+            last SHELLCOMMAND unless defined ($_ = <> );
+            if ($Echo_readline) {
+                # backdoor: I could not find a way to record sessions
+                print $_;
+            }
+            chomp;
+        } else {
+            last SHELLCOMMAND unless
+                defined ($_ = $term->readline($prompt, $commandline));
+        }
+        $_ = "$continuation$_" if $continuation;
+        s/^\s+//;
+        next SHELLCOMMAND if /^$/;
+        s/^\s*\?\s*/help /;
+        if (/^(?:q(?:uit)?|bye|exit)\s*$/i) {
+            last SHELLCOMMAND;
+        } elsif (s/\\$//s) {
+            chomp;
+            $continuation = $_;
+            $prompt = "    > ";
+        } elsif (/^\!/) {
+            s/^\!//;
+            my($eval) = $_;
+            package
+                CPAN::Eval; # hide from the indexer
+            use strict;
+            use vars qw($import_done);
+            CPAN->import(':DEFAULT') unless $import_done++;
+            CPAN->debug("eval[$eval]") if $CPAN::DEBUG;
+            eval($eval);
+            warn $@ if $@;
+            $continuation = "";
+            $prompt = $oprompt;
+        } elsif (/./) {
+            my(@line);
+            eval { @line = Text::ParseWords::shellwords($_) };
+            warn($@), next SHELLCOMMAND if $@;
+            warn("Text::Parsewords could not parse the line [$_]"),
+                next SHELLCOMMAND unless @line;
+            $CPAN::META->debug("line[".join("|",@line)."]") if $CPAN::DEBUG;
+            my $command = shift @line;
+            eval {
+                local (*STDOUT)=*STDOUT;
+                @line = _redirect(@line);
+                CPAN::Shell->$command(@line)
+              };
+            my $command_error = $@;
+            _unredirect;
+            my $reported_error;
+            if ($command_error) {
+                my $err = $command_error;
+                if (ref $err and $err->isa('CPAN::Exception::blocked_urllist')) {
+                    $CPAN::Frontend->mywarn("Client not fully configured, please proceed with configuring.$err");
+                    $reported_error = ref $err;
+                } else {
+                    # I'd prefer never to arrive here and make all errors exception objects
+                    if ($err =~ /\S/) {
+                        require Carp;
+                        require Dumpvalue;
+                        my $dv = Dumpvalue->new(tick => '"');
+                        Carp::cluck(sprintf "Catching error: %s", $dv->stringify($err));
+                    }
+                }
+            }
+            if ($command =~ /^(
+                             # classic commands
+                             make
+                             |test
+                             |install
+                             |clean
+
+                             # pragmas for classic commands
+                             |ff?orce
+                             |notest
+
+                             # compounds
+                             |report
+                             |smoke
+                             |upgrade
+                            )$/x) {
+                # only commands that tell us something about failed distros
+                # eval necessary for people without an urllist
+                eval {CPAN::Shell->failed($CPAN::CurrentCommandId,1);};
+                if (my $err = $@) {
+                    unless (ref $err and $reported_error eq ref $err) {
+                        die $@;
+                    }
+                }
+            }
+            soft_chdir_with_alternatives(\@cwd);
+            $CPAN::Frontend->myprint("\n");
+            $continuation = "";
+            $CPAN::CurrentCommandId++;
+            $prompt = $oprompt;
+        }
+    } continue {
+        $commandline = ""; # I do want to be able to pass a default to
+                           # shell, but on the second command I see no
+                           # use in that
+        $Signal=0;
+        CPAN::Queue->nullify_queue;
+        if ($try_detect_readline) {
+            if ($CPAN::META->has_inst("Term::ReadLine::Gnu")
+                ||
+                $CPAN::META->has_inst("Term::ReadLine::Perl")
+            ) {
+                delete $INC{"Term/ReadLine.pm"};
+                my $redef = 0;
+                local($SIG{__WARN__}) = CPAN::Shell::paintdots_onreload(\$redef);
+                require Term::ReadLine;
+                $CPAN::Frontend->myprint("\n$redef subroutines in ".
+                                         "Term::ReadLine redefined\n");
+                $GOTOSHELL = 1;
+            }
+        }
+        if ($term and $term->can("ornaments")) {
+            for ($CPAN::Config->{term_ornaments}) { # alias
+                if (defined $_) {
+                    if (not defined $last_term_ornaments
+                        or $_ != $last_term_ornaments
+                    ) {
+                        local $Term::ReadLine::termcap_nowarn = 1;
+                        $term->ornaments($_);
+                        $last_term_ornaments = $_;
+                    }
+                } else {
+                    undef $last_term_ornaments;
+                }
+            }
+        }
+        for my $class (qw(Module Distribution)) {
+            # again unsafe meta access?
+            for my $dm (sort keys %{$CPAN::META->{readwrite}{"CPAN::$class"}}) {
+                next unless $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor};
+                CPAN->debug("BUG: $class '$dm' was in command state, resetting");
+                delete $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor};
+            }
+        }
+        if ($GOTOSHELL) {
+            $GOTOSHELL = 0; # not too often
+            $META->savehist if $CPAN::term && $CPAN::term->can("GetHistory");
+            @_ = ($oprompt,"");
+            goto &shell;
+        }
+    }
+    soft_chdir_with_alternatives(\@cwd);
+}
+
+#-> CPAN::soft_chdir_with_alternatives ;
+sub soft_chdir_with_alternatives ($) {
+    my($cwd) = @_;
+    unless (@$cwd) {
+        my $root = File::Spec->rootdir();
+        $CPAN::Frontend->mywarn(qq{Warning: no good directory to chdir to!
+Trying '$root' as temporary haven.
+});
+        push @$cwd, $root;
+    }
+    while () {
+        if (chdir $cwd->[0]) {
+            return;
+        } else {
+            if (@$cwd>1) {
+                $CPAN::Frontend->mywarn(qq{Could not chdir to "$cwd->[0]": $!
+Trying to chdir to "$cwd->[1]" instead.
+});
+                shift @$cwd;
+            } else {
+                $CPAN::Frontend->mydie(qq{Could not chdir to "$cwd->[0]": $!});
+            }
+        }
+    }
+}
+
+sub _flock {
+    my($fh,$mode) = @_;
+    if ( $Config::Config{d_flock} || $Config::Config{d_fcntl_can_lock} ) {
+        return flock $fh, $mode;
+    } elsif (!$Have_warned->{"d_flock"}++) {
+        $CPAN::Frontend->mywarn("Your OS does not seem to support locking; continuing and ignoring all locking issues\n");
+        $CPAN::Frontend->mysleep(5);
+        return 1;
+    } else {
+        return 1;
+    }
+}
+
+sub _yaml_module () {
+    my $yaml_module = $CPAN::Config->{yaml_module} || "YAML";
+    if (
+        $yaml_module ne "YAML"
+        &&
+        !$CPAN::META->has_inst($yaml_module)
+       ) {
+        # $CPAN::Frontend->mywarn("'$yaml_module' not installed, falling back to 'YAML'\n");
+        $yaml_module = "YAML";
+    }
+    if ($yaml_module eq "YAML"
+        &&
+        $CPAN::META->has_inst($yaml_module)
+        &&
+        $YAML::VERSION < 0.60
+        &&
+        !$Have_warned->{"YAML"}++
+       ) {
+        $CPAN::Frontend->mywarn("Warning: YAML version '$YAML::VERSION' is too low, please upgrade!\n".
+                                "I'll continue but problems are *very* likely to happen.\n"
+                               );
+        $CPAN::Frontend->mysleep(5);
+    }
+    return $yaml_module;
+}
+
+# CPAN::_yaml_loadfile
+sub _yaml_loadfile {
+    my($self,$local_file) = @_;
+    return +[] unless -s $local_file;
+    my $yaml_module = _yaml_module;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        # temporarily enable yaml code deserialisation
+        no strict 'refs';
+        # 5.6.2 could not do the local() with the reference
+        # so we do it manually instead
+        my $old_loadcode = ${"$yaml_module\::LoadCode"};
+        ${ "$yaml_module\::LoadCode" } = $CPAN::Config->{yaml_load_code} || 0;
+
+        my ($code, @yaml);
+        if ($code = UNIVERSAL::can($yaml_module, "LoadFile")) {
+            eval { @yaml = $code->($local_file); };
+            if ($@) {
+                # this shall not be done by the frontend
+                die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@);
+            }
+        } elsif ($code = UNIVERSAL::can($yaml_module, "Load")) {
+            local *FH;
+            unless (open FH, $local_file) {
+                $CPAN::Frontend->mywarn("Could not open '$local_file': $!");
+                return +[];
+            }
+            local $/;
+            my $ystream = <FH>;
+            eval { @yaml = $code->($ystream); };
+            if ($@) {
+                # this shall not be done by the frontend
+                die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@);
+            }
+        }
+        ${"$yaml_module\::LoadCode"} = $old_loadcode;
+        return \@yaml;
+    } else {
+        # this shall not be done by the frontend
+        die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "parse");
+    }
+    return +[];
+}
+
+# CPAN::_yaml_dumpfile
+sub _yaml_dumpfile {
+    my($self,$local_file,@what) = @_;
+    my $yaml_module = _yaml_module;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        my $code;
+        if (UNIVERSAL::isa($local_file, "FileHandle")) {
+            $code = UNIVERSAL::can($yaml_module, "Dump");
+            eval { print $local_file $code->(@what) };
+        } elsif ($code = UNIVERSAL::can($yaml_module, "DumpFile")) {
+            eval { $code->($local_file,@what); };
+        } elsif ($code = UNIVERSAL::can($yaml_module, "Dump")) {
+            local *FH;
+            open FH, ">$local_file" or die "Could not open '$local_file': $!";
+            print FH $code->(@what);
+        }
+        if ($@) {
+            die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"dump",$@);
+        }
+    } else {
+        if (UNIVERSAL::isa($local_file, "FileHandle")) {
+            # I think this case does not justify a warning at all
+        } else {
+            die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "dump");
+        }
+    }
+}
+
+sub _init_sqlite () {
+    unless ($CPAN::META->has_inst("CPAN::SQLite")) {
+        $CPAN::Frontend->mywarn(qq{CPAN::SQLite not installed, trying to work without\n})
+            unless $Have_warned->{"CPAN::SQLite"}++;
+        return;
+    }
+    require CPAN::SQLite::META; # not needed since CVS version of 2006-12-17
+    $CPAN::SQLite ||= CPAN::SQLite::META->new($CPAN::META);
+}
+
+{
+    my $negative_cache = {};
+    sub _sqlite_running {
+        if ($negative_cache->{time} && time < $negative_cache->{time} + 60) {
+            # need to cache the result, otherwise too slow
+            return $negative_cache->{fact};
+        } else {
+            $negative_cache = {}; # reset
+        }
+        my $ret = $CPAN::Config->{use_sqlite} && ($CPAN::SQLite || _init_sqlite());
+        return $ret if $ret; # fast anyway
+        $negative_cache->{time} = time;
+        return $negative_cache->{fact} = $ret;
+    }
+}
+
+$META ||= CPAN->new; # In case we re-eval ourselves we need the ||
+
+# from here on only subs.
+################################################################################
+
+sub _perl_fingerprint {
+    my($self,$other_fingerprint) = @_;
+    my $dll = eval {OS2::DLLname()};
+    my $mtime_dll = 0;
+    if (defined $dll) {
+        $mtime_dll = (-f $dll ? (stat(_))[9] : '-1');
+    }
+    my $mtime_perl = (-f CPAN::find_perl ? (stat(_))[9] : '-1');
+    my $this_fingerprint = {
+                            '$^X' => CPAN::find_perl,
+                            sitearchexp => $Config::Config{sitearchexp},
+                            'mtime_$^X' => $mtime_perl,
+                            'mtime_dll' => $mtime_dll,
+                           };
+    if ($other_fingerprint) {
+        if (exists $other_fingerprint->{'stat($^X)'}) { # repair fp from rev. 1.88_57
+            $other_fingerprint->{'mtime_$^X'} = $other_fingerprint->{'stat($^X)'}[9];
+        }
+        # mandatory keys since 1.88_57
+        for my $key (qw($^X sitearchexp mtime_dll mtime_$^X)) {
+            return unless $other_fingerprint->{$key} eq $this_fingerprint->{$key};
+        }
+        return 1;
+    } else {
+        return $this_fingerprint;
+    }
+}
+
+sub suggest_myconfig () {
+  SUGGEST_MYCONFIG: if(!$INC{'CPAN/MyConfig.pm'}) {
+        $CPAN::Frontend->myprint("You don't seem to have a user ".
+                                 "configuration (MyConfig.pm) yet.\n");
+        my $new = CPAN::Shell::colorable_makemaker_prompt("Do you want to create a ".
+                                              "user configuration now? (Y/n)",
+                                              "yes");
+        if($new =~ m{^y}i) {
+            CPAN::Shell->mkmyconfig();
+            return &checklock;
+        } else {
+            $CPAN::Frontend->mydie("OK, giving up.");
+        }
+    }
+}
+
+#-> sub CPAN::all_objects ;
+sub all_objects {
+    my($mgr,$class) = @_;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    CPAN->debug("mgr[$mgr] class[$class]") if $CPAN::DEBUG;
+    CPAN::Index->reload;
+    values %{ $META->{readwrite}{$class} }; # unsafe meta access, ok
+}
+
+# Called by shell, not in batch mode. In batch mode I see no risk in
+# having many processes updating something as installations are
+# continually checked at runtime. In shell mode I suspect it is
+# unintentional to open more than one shell at a time
+
+#-> sub CPAN::checklock ;
+sub checklock {
+    my($self) = @_;
+    my $lockfile = File::Spec->catfile($CPAN::Config->{cpan_home},".lock");
+    if (-f $lockfile && -M _ > 0) {
+        my $fh = FileHandle->new($lockfile) or
+            $CPAN::Frontend->mydie("Could not open lockfile '$lockfile': $!");
+        my $otherpid  = <$fh>;
+        my $otherhost = <$fh>;
+        $fh->close;
+        if (defined $otherpid && length $otherpid) {
+            chomp $otherpid;
+        }
+        if (defined $otherhost && length $otherhost) {
+            chomp $otherhost;
+        }
+        my $thishost  = hostname();
+        my $ask_if_degraded_wanted = 0;
+        if (defined $otherhost && defined $thishost &&
+            $otherhost ne '' && $thishost ne '' &&
+            $otherhost ne $thishost) {
+            $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Lockfile '$lockfile'\n".
+                                           "reports other host $otherhost and other ".
+                                           "process $otherpid.\n".
+                                           "Cannot proceed.\n"));
+        } elsif ($RUN_DEGRADED) {
+            $CPAN::Frontend->mywarn("Running in downgraded mode (experimental)\n");
+        } elsif (defined $otherpid && $otherpid) {
+            return if $$ == $otherpid; # should never happen
+            $CPAN::Frontend->mywarn(
+                                    qq{
+There seems to be running another CPAN process (pid $otherpid).  Contacting...
+});
+            if (kill 0, $otherpid or $!{EPERM}) {
+                $CPAN::Frontend->mywarn(qq{Other job is running.\n});
+                $ask_if_degraded_wanted = 1;
+            } elsif (-w $lockfile) {
+                my($ans) =
+                    CPAN::Shell::colorable_makemaker_prompt
+                        (qq{Other job not responding. Shall I overwrite }.
+                        qq{the lockfile '$lockfile'? (Y/n)},"y");
+            $CPAN::Frontend->myexit("Ok, bye\n")
+                unless $ans =~ /^y/i;
+            } else {
+                Carp::croak(
+                    qq{Lockfile '$lockfile' not writable by you. }.
+                    qq{Cannot proceed.\n}.
+                    qq{    On UNIX try:\n}.
+                    qq{    rm '$lockfile'\n}.
+                    qq{  and then rerun us.\n}
+                );
+            }
+        } elsif ($^O eq "MSWin32") {
+            $CPAN::Frontend->mywarn(
+                                    qq{
+There seems to be running another CPAN process according to '$lockfile'.
+});
+            $ask_if_degraded_wanted = 1;
+        } else {
+            $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Found invalid lockfile ".
+                                           "'$lockfile', please remove. Cannot proceed.\n"));
+        }
+        if ($ask_if_degraded_wanted) {
+            my($ans) =
+                CPAN::Shell::colorable_makemaker_prompt
+                    (qq{Shall I try to run in downgraded }.
+                     qq{mode? (Y/n)},"y");
+            if ($ans =~ /^y/i) {
+                $CPAN::Frontend->mywarn("Running in downgraded mode (experimental).
+Please report if something unexpected happens\n");
+                $RUN_DEGRADED = 1;
+                for ($CPAN::Config) {
+                    # XXX
+                    # $_->{build_dir_reuse} = 0; # 2006-11-17 akoenig Why was that?
+                    $_->{commandnumber_in_prompt} = 0; # visibility
+                    $_->{histfile}       = "";  # who should win otherwise?
+                    $_->{cache_metadata} = 0;   # better would be a lock?
+                    $_->{use_sqlite}     = 0;   # better would be a write lock!
+                    $_->{auto_commit}    = 0;   # we are violent, do not persist
+                    $_->{test_report}    = 0;   # Oliver Paukstadt had sent wrong reports in degraded mode
+                }
+            } else {
+                my $msg = "You may want to kill the other job and delete the lockfile.";
+                if (defined $otherpid) {
+                    $msg .= " Something like:
+    kill $otherpid
+    rm $lockfile
+";
+                }
+                $CPAN::Frontend->mydie("\n$msg");
+            }
+        }
+    }
+    my $dotcpan = $CPAN::Config->{cpan_home};
+    eval { File::Path::mkpath($dotcpan);};
+    if ($@) {
+        # A special case at least for Jarkko.
+        my $firsterror = $@;
+        my $seconderror;
+        my $symlinkcpan;
+        if (-l $dotcpan) {
+            $symlinkcpan = readlink $dotcpan;
+            die "readlink $dotcpan failed: $!" unless defined $symlinkcpan;
+            eval { File::Path::mkpath($symlinkcpan); };
+            if ($@) {
+                $seconderror = $@;
+            } else {
+                $CPAN::Frontend->mywarn(qq{
+Working directory $symlinkcpan created.
+});
+            }
+        }
+        unless (-d $dotcpan) {
+            my $mess = qq{
+Your configuration suggests "$dotcpan" as your
+CPAN.pm working directory. I could not create this directory due
+to this error: $firsterror\n};
+            $mess .= qq{
+As "$dotcpan" is a symlink to "$symlinkcpan",
+I tried to create that, but I failed with this error: $seconderror
+} if $seconderror;
+            $mess .= qq{
+Please make sure the directory exists and is writable.
+};
+            $CPAN::Frontend->mywarn($mess);
+            return suggest_myconfig;
+        }
+    } # $@ after eval mkpath $dotcpan
+    if (0) { # to test what happens when a race condition occurs
+        for (reverse 1..10) {
+            print $_, "\n";
+            sleep 1;
+        }
+    }
+    # locking
+    if (!$RUN_DEGRADED && !$self->{LOCKFH}) {
+        my $fh;
+        unless ($fh = FileHandle->new("+>>$lockfile")) {
+            $CPAN::Frontend->mywarn(qq{
+
+Your configuration suggests that CPAN.pm should use a working
+directory of
+    $CPAN::Config->{cpan_home}
+Unfortunately we could not create the lock file
+    $lockfile
+due to '$!'.
+
+Please make sure that the configuration variable
+    \$CPAN::Config->{cpan_home}
+points to a directory where you can write a .lock file. You can set
+this variable in either a CPAN/MyConfig.pm or a CPAN/Config.pm in your
+\@INC path;
+});
+            return suggest_myconfig;
+        }
+        my $sleep = 1;
+        while (!CPAN::_flock($fh, LOCK_EX|LOCK_NB)) {
+            my $err = $! || "unknown error";
+            if ($sleep>3) {
+                $CPAN::Frontend->mydie("Could not lock '$lockfile' with flock: $err; giving up\n");
+            }
+            $CPAN::Frontend->mysleep($sleep+=0.1);
+            $CPAN::Frontend->mywarn("Could not lock '$lockfile' with flock: $err; retrying\n");
+        }
+
+        seek $fh, 0, 0;
+        truncate $fh, 0;
+        $fh->autoflush(1);
+        $fh->print($$, "\n");
+        $fh->print(hostname(), "\n");
+        $self->{LOCK} = $lockfile;
+        $self->{LOCKFH} = $fh;
+    }
+    $SIG{TERM} = sub {
+        my $sig = shift;
+        &cleanup;
+        $CPAN::Frontend->mydie("Got SIG$sig, leaving");
+    };
+    $SIG{INT} = sub {
+      # no blocks!!!
+        my $sig = shift;
+        &cleanup if $Signal;
+        die "Got yet another signal" if $Signal > 1;
+        $CPAN::Frontend->mydie("Got another SIG$sig") if $Signal;
+        $CPAN::Frontend->mywarn("Caught SIG$sig, trying to continue\n");
+        $Signal++;
+    };
+
+#       From: Larry Wall <larry@wall.org>
+#       Subject: Re: deprecating SIGDIE
+#       To: perl5-porters@perl.org
+#       Date: Thu, 30 Sep 1999 14:58:40 -0700 (PDT)
+#
+#       The original intent of __DIE__ was only to allow you to substitute one
+#       kind of death for another on an application-wide basis without respect
+#       to whether you were in an eval or not.  As a global backstop, it should
+#       not be used any more lightly (or any more heavily :-) than class
+#       UNIVERSAL.  Any attempt to build a general exception model on it should
+#       be politely squashed.  Any bug that causes every eval {} to have to be
+#       modified should be not so politely squashed.
+#
+#       Those are my current opinions.  It is also my opinion that polite
+#       arguments degenerate to personal arguments far too frequently, and that
+#       when they do, it's because both people wanted it to, or at least didn't
+#       sufficiently want it not to.
+#
+#       Larry
+
+    # global backstop to cleanup if we should really die
+    $SIG{__DIE__} = \&cleanup;
+    $self->debug("Signal handler set.") if $CPAN::DEBUG;
+}
+
+#-> sub CPAN::DESTROY ;
+sub DESTROY {
+    &cleanup; # need an eval?
+}
+
+#-> sub CPAN::anycwd ;
+sub anycwd () {
+    my $getcwd;
+    $getcwd = $CPAN::Config->{'getcwd'} || 'cwd';
+    CPAN->$getcwd();
+}
+
+#-> sub CPAN::cwd ;
+sub cwd {Cwd::cwd();}
+
+#-> sub CPAN::getcwd ;
+sub getcwd {Cwd::getcwd();}
+
+#-> sub CPAN::fastcwd ;
+sub fastcwd {Cwd::fastcwd();}
+
+#-> sub CPAN::getdcwd ;
+sub getdcwd {Cwd::getdcwd();}
+
+#-> sub CPAN::backtickcwd ;
+sub backtickcwd {my $cwd = `cwd`; chomp $cwd; $cwd}
+
+# Adapted from Probe::Perl
+#-> sub CPAN::_perl_is_same
+sub _perl_is_same {
+  my ($perl) = @_;
+  return MM->maybe_command($perl)
+    && `$perl -MConfig=myconfig -e print -e myconfig` eq Config->myconfig;
+}
+
+# Adapted in part from Probe::Perl
+#-> sub CPAN::find_perl ;
+sub find_perl () {
+    if ( File::Spec->file_name_is_absolute($^X) ) {
+        return $^X;
+    }
+    else {
+        my $exe = $Config::Config{exe_ext};
+        my @candidates = (
+            File::Spec->catfile($CPAN::iCwd,$^X),
+            $Config::Config{'perlpath'},
+        );
+        for my $perl_name ($^X, 'perl', 'perl5', "perl$]") {
+            for my $path (File::Spec->path(), $Config::Config{'binexp'}) {
+                if ( defined($path) && length $path && -d $path ) {
+                    my $perl = File::Spec->catfile($path,$perl_name);
+                    push @candidates, $perl;
+                    # try with extension if not provided already
+                    if ($^O eq 'VMS') {
+                        # VMS might have a file version at the end
+                        push @candidates, $perl . $exe
+                            unless $perl =~ m/$exe(;\d+)?$/i;
+                    } elsif (defined $exe && length $exe) {
+                        push @candidates, $perl . $exe
+                            unless $perl =~ m/$exe$/i;
+                    }
+                }
+            }
+        }
+        for my $perl ( @candidates ) {
+            if (MM->maybe_command($perl) && _perl_is_same($perl)) {
+                $^X = $perl;
+                return $perl;
+            }
+        }
+    }
+    return $^X; # default fall back
+}
+
+#-> sub CPAN::exists ;
+sub exists {
+    my($mgr,$class,$id) = @_;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    CPAN::Index->reload;
+    ### Carp::croak "exists called without class argument" unless $class;
+    $id ||= "";
+    $id =~ s/:+/::/g if $class eq "CPAN::Module";
+    my $exists;
+    if (CPAN::_sqlite_running) {
+        $exists = (exists $META->{readonly}{$class}{$id} or
+                   $CPAN::SQLite->set($class, $id));
+    } else {
+        $exists =  exists $META->{readonly}{$class}{$id};
+    }
+    $exists ||= exists $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
+}
+
+#-> sub CPAN::delete ;
+sub delete {
+  my($mgr,$class,$id) = @_;
+  delete $META->{readonly}{$class}{$id}; # unsafe meta access, ok
+  delete $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
+}
+
+#-> sub CPAN::has_usable
+# has_inst is sometimes too optimistic, we should replace it with this
+# has_usable whenever a case is given
+sub has_usable {
+    my($self,$mod,$message) = @_;
+    return 1 if $HAS_USABLE->{$mod};
+    my $has_inst = $self->has_inst($mod,$message);
+    return unless $has_inst;
+    my $usable;
+    $usable = {
+
+               #
+               # these subroutines die if they believe the installed version is unusable;
+               #
+               'CPAN::Meta' => [
+                            sub {
+                                require CPAN::Meta;
+                                unless (CPAN::Version->vge(CPAN::Meta->VERSION, 2.110350)) {
+                                    for ("Will not use CPAN::Meta, need version 2.110350\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+
+               'CPAN::Meta::Requirements' => [
+                            sub {
+                                if (defined $CPAN::Meta::Requirements::VERSION
+                                    && CPAN::Version->vlt($CPAN::Meta::Requirements::VERSION, "2.120920")
+                                   ) {
+                                    delete $INC{"CPAN/Meta/Requirements.pm"};
+                                }
+                                require CPAN::Meta::Requirements;
+                                unless (CPAN::Version->vge(CPAN::Meta::Requirements->VERSION, 2.120920)) {
+                                    for ("Will not use CPAN::Meta::Requirements, need version 2.120920\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+
+               LWP => [ # we frequently had "Can't locate object
+                        # method "new" via package "LWP::UserAgent" at
+                        # (eval 69) line 2006
+                       sub {require LWP},
+                       sub {require LWP::UserAgent},
+                       sub {require HTTP::Request},
+                       sub {require URI::URL;
+                            unless (CPAN::Version->vge(URI::URL::->VERSION,0.08)) {
+                                for ("Will not use URI::URL, need 0.08\n") {
+                                    $CPAN::Frontend->mywarn($_);
+                                    die $_;
+                                }
+                            }
+                       },
+                      ],
+               'Net::FTP' => [
+                            sub {
+                                my $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy};
+                                if ($var and $var =~ /^http:/i) {
+                                    # rt #110833
+                                    for ("Net::FTP cannot handle http proxy") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                            sub {require Net::FTP},
+                            sub {require Net::Config},
+                           ],
+               'HTTP::Tiny' => [
+                            sub {
+                                require HTTP::Tiny;
+                                unless (CPAN::Version->vge(HTTP::Tiny->VERSION, 0.005)) {
+                                    for ("Will not use HTTP::Tiny, need version 0.005\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+               'File::HomeDir' => [
+                                   sub {require File::HomeDir;
+                                        unless (CPAN::Version->vge(File::HomeDir::->VERSION, 0.52)) {
+                                            for ("Will not use File::HomeDir, need 0.52\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                                die $_;
+                                            }
+                                        }
+                                    },
+                                  ],
+               'Archive::Tar' => [
+                                  sub {require Archive::Tar;
+                                       my $demand = "1.50";
+                                       unless (CPAN::Version->vge(Archive::Tar::->VERSION, $demand)) {
+                                            my $atv = Archive::Tar->VERSION;
+                                            for ("You have Archive::Tar $atv, but $demand or later is recommended. Please upgrade.\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                            # don't die, because we may need
+                                            # Archive::Tar to upgrade
+                                            }
+
+                                       }
+                                  },
+                                 ],
+               'File::Temp' => [
+                                # XXX we should probably delete from
+                                # %INC too so we can load after we
+                                # installed a new enough version --
+                                # I'm not sure.
+                                sub {require File::Temp;
+                                     unless (CPAN::Version->vge(File::Temp::->VERSION,0.16)) {
+                                         for ("Will not use File::Temp, need 0.16\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                                die $_;
+                                         }
+                                     }
+                                },
+                               ]
+              };
+    if ($usable->{$mod}) {
+        local @INC = @INC;
+        pop @INC if $INC[-1] eq '.';
+        for my $c (0..$#{$usable->{$mod}}) {
+            my $code = $usable->{$mod}[$c];
+            my $ret = eval { &$code() };
+            $ret = "" unless defined $ret;
+            if ($@) {
+                # warn "DEBUG: c[$c]\$\@[$@]ret[$ret]";
+                return;
+            }
+        }
+    }
+    return $HAS_USABLE->{$mod} = 1;
+}
+
+sub frontend {
+    shift;
+    $CPAN::Frontend = shift if @_;
+    $CPAN::Frontend;
+}
+
+sub use_inst {
+    my ($self, $module) = @_;
+
+    unless ($self->has_inst($module)) {
+        $self->frontend->mydie("$module not installed, cannot continue");
+    }
+}
+
+#-> sub CPAN::has_inst
+sub has_inst {
+    my($self,$mod,$message) = @_;
+    Carp::croak("CPAN->has_inst() called without an argument")
+        unless defined $mod;
+    my %dont = map { $_ => 1 } keys %{$CPAN::META->{dontload_hash}||{}},
+        keys %{$CPAN::Config->{dontload_hash}||{}},
+            @{$CPAN::Config->{dontload_list}||[]};
+    if (defined $message && $message eq "no"  # as far as I remember only used by Nox
+        ||
+        $dont{$mod}
+       ) {
+      $CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok
+      return 0;
+    }
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $file = $mod;
+    my $obj;
+    $file =~ s|::|/|g;
+    $file .= ".pm";
+    if ($INC{$file}) {
+        # checking %INC is wrong, because $INC{LWP} may be true
+        # although $INC{"URI/URL.pm"} may have failed. But as
+        # I really want to say "blah loaded OK", I have to somehow
+        # cache results.
+        ### warn "$file in %INC"; #debug
+        return 1;
+    } elsif (eval { require $file }) {
+        # eval is good: if we haven't yet read the database it's
+        # perfect and if we have installed the module in the meantime,
+        # it tries again. The second require is only a NOOP returning
+        # 1 if we had success, otherwise it's retrying
+
+        my $mtime = (stat $INC{$file})[9];
+        # privileged files loaded by has_inst; Note: we use $mtime
+        # as a proxy for a checksum.
+        $CPAN::Shell::reload->{$file} = $mtime;
+        my $v = eval "\$$mod\::VERSION";
+        $v = $v ? " (v$v)" : "";
+        CPAN::Shell->optprint("load_module","CPAN: $mod loaded ok$v\n");
+        if ($mod eq "CPAN::WAIT") {
+            push @CPAN::Shell::ISA, 'CPAN::WAIT';
+        }
+        return 1;
+    } elsif ($mod eq "Net::FTP") {
+        $CPAN::Frontend->mywarn(qq{
+  Please, install Net::FTP as soon as possible. CPAN.pm installs it for you
+  if you just type
+      install Bundle::libnet
+
+}) unless $Have_warned->{"Net::FTP"}++;
+        $CPAN::Frontend->mysleep(3);
+    } elsif ($mod eq "Digest::SHA") {
+        if ($Have_warned->{"Digest::SHA"}++) {
+            $CPAN::Frontend->mywarn(qq{CPAN: checksum security checks disabled }.
+                                     qq{because Digest::SHA not installed.\n});
+        } else {
+            $CPAN::Frontend->mywarn(qq{
+  CPAN: checksum security checks disabled because Digest::SHA not installed.
+  Please consider installing the Digest::SHA module.
+
+});
+            $CPAN::Frontend->mysleep(2);
+        }
+    } elsif ($mod eq "Module::Signature") {
+        # NOT prefs_lookup, we are not a distro
+        my $check_sigs = $CPAN::Config->{check_sigs};
+        if (not $check_sigs) {
+            # they do not want us:-(
+        } elsif (not $Have_warned->{"Module::Signature"}++) {
+            # No point in complaining unless the user can
+            # reasonably install and use it.
+            if (eval { require Crypt::OpenPGP; 1 } ||
+                (
+                 defined $CPAN::Config->{'gpg'}
+                 &&
+                 $CPAN::Config->{'gpg'} =~ /\S/
+                )
+               ) {
+                $CPAN::Frontend->mywarn(qq{
+  CPAN: Module::Signature security checks disabled because Module::Signature
+  not installed.  Please consider installing the Module::Signature module.
+  You may also need to be able to connect over the Internet to the public
+  key servers like pool.sks-keyservers.net or pgp.mit.edu.
+
+});
+                $CPAN::Frontend->mysleep(2);
+            }
+        }
+    } else {
+        delete $INC{$file}; # if it inc'd LWP but failed during, say, URI
+    }
+    return 0;
+}
+
+#-> sub CPAN::instance ;
+sub instance {
+    my($mgr,$class,$id) = @_;
+    CPAN::Index->reload;
+    $id ||= "";
+    # unsafe meta access, ok?
+    return $META->{readwrite}{$class}{$id} if exists $META->{readwrite}{$class}{$id};
+    $META->{readwrite}{$class}{$id} ||= $class->new(ID => $id);
+}
+
+#-> sub CPAN::new ;
+sub new {
+    bless {}, shift;
+}
+
+#-> sub CPAN::_exit_messages ;
+sub _exit_messages {
+    my ($self) = @_;
+    $self->{exit_messages} ||= [];
+}
+
+#-> sub CPAN::cleanup ;
+sub cleanup {
+  # warn "cleanup called with arg[@_] End[$CPAN::End] Signal[$Signal]";
+  local $SIG{__DIE__} = '';
+  my($message) = @_;
+  my $i = 0;
+  my $ineval = 0;
+  my($subroutine);
+  while ((undef,undef,undef,$subroutine) = caller(++$i)) {
+      $ineval = 1, last if
+        $subroutine eq '(eval)';
+  }
+  return if $ineval && !$CPAN::End;
+  return unless defined $META->{LOCK};
+  return unless -f $META->{LOCK};
+  $META->savehist;
+  $META->{cachemgr} ||= CPAN::CacheMgr->new('atexit');
+  close $META->{LOCKFH};
+  unlink $META->{LOCK};
+  # require Carp;
+  # Carp::cluck("DEBUGGING");
+  if ( $CPAN::CONFIG_DIRTY ) {
+      $CPAN::Frontend->mywarn("Warning: Configuration not saved.\n");
+  }
+  $CPAN::Frontend->myprint("Lockfile removed.\n");
+  for my $msg ( @{ $META->_exit_messages } ) {
+      $CPAN::Frontend->myprint($msg);
+  }
+}
+
+#-> sub CPAN::readhist
+sub readhist {
+    my($self,$term,$histfile) = @_;
+    my $histsize = $CPAN::Config->{'histsize'} || 100;
+    $term->Attribs->{'MaxHistorySize'} = $histsize if (defined($term->Attribs->{'MaxHistorySize'}));
+    my($fh) = FileHandle->new;
+    open $fh, "<$histfile" or return;
+    local $/ = "\n";
+    while (<$fh>) {
+        chomp;
+        $term->AddHistory($_);
+    }
+    close $fh;
+}
+
+#-> sub CPAN::savehist
+sub savehist {
+    my($self) = @_;
+    my($histfile,$histsize);
+    unless ($histfile = $CPAN::Config->{'histfile'}) {
+        $CPAN::Frontend->mywarn("No history written (no histfile specified).\n");
+        return;
+    }
+    $histsize = $CPAN::Config->{'histsize'} || 100;
+    if ($CPAN::term) {
+        unless ($CPAN::term->can("GetHistory")) {
+            $CPAN::Frontend->mywarn("Terminal does not support GetHistory.\n");
+            return;
+        }
+    } else {
+        return;
+    }
+    my @h = $CPAN::term->GetHistory;
+    splice @h, 0, @h-$histsize if @h>$histsize;
+    my($fh) = FileHandle->new;
+    open $fh, ">$histfile" or $CPAN::Frontend->mydie("Couldn't open >$histfile: $!");
+    local $\ = local $, = "\n";
+    print $fh @h;
+    close $fh;
+}
+
+#-> sub CPAN::is_tested
+sub is_tested {
+    my($self,$what,$when) = @_;
+    unless ($what) {
+        Carp::cluck("DEBUG: empty what");
+        return;
+    }
+    $self->{is_tested}{$what} = $when;
+}
+
+#-> sub CPAN::reset_tested
+# forget all distributions tested -- resets what gets included in PERL5LIB
+sub reset_tested {
+    my ($self) = @_;
+    $self->{is_tested} = {};
+}
+
+#-> sub CPAN::is_installed
+# unsets the is_tested flag: as soon as the thing is installed, it is
+# not needed in set_perl5lib anymore
+sub is_installed {
+    my($self,$what) = @_;
+    delete $self->{is_tested}{$what};
+}
+
+sub _list_sorted_descending_is_tested {
+    my($self) = @_;
+    my $foul = 0;
+    my @sorted = sort
+        { ($self->{is_tested}{$b}||0) <=> ($self->{is_tested}{$a}||0) }
+            grep
+                { if ($foul){ 0 } elsif (-e) { 1 } else { $foul = $_; 0 } }
+                    keys %{$self->{is_tested}};
+    if ($foul) {
+        $CPAN::Frontend->mywarn("Lost build_dir detected ($foul), giving up all cached test results of currently running session.\n");
+        for my $dbd (sort keys %{$self->{is_tested}}) { # distro-build-dir
+        SEARCH: for my $d (sort { $a->id cmp $b->id } $CPAN::META->all_objects("CPAN::Distribution")) {
+                if ($d->{build_dir} && $d->{build_dir} eq $dbd) {
+                    $CPAN::Frontend->mywarn(sprintf "Flushing cache for %s\n", $d->pretty_id);
+                    $d->fforce("");
+                    last SEARCH;
+                }
+            }
+            delete $self->{is_tested}{$dbd};
+        }
+        return ();
+    } else {
+        return @sorted;
+    }
+}
+
+#-> sub CPAN::set_perl5lib
+# Notes on max environment variable length:
+#   - Win32 : XP or later, 8191; Win2000 or NT4, 2047
+{
+my $fh;
+sub set_perl5lib {
+    my($self,$for) = @_;
+    unless ($for) {
+        (undef,undef,undef,$for) = caller(1);
+        $for =~ s/.*://;
+    }
+    $self->{is_tested} ||= {};
+    return unless %{$self->{is_tested}};
+    my $env = $ENV{PERL5LIB};
+    $env = $ENV{PERLLIB} unless defined $env;
+    my @env;
+    push @env, split /\Q$Config::Config{path_sep}\E/, $env if defined $env and length $env;
+    #my @dirs = map {("$_/blib/arch", "$_/blib/lib")} keys %{$self->{is_tested}};
+    #$CPAN::Frontend->myprint("Prepending @dirs to PERL5LIB.\n");
+
+    my @dirs = map {("$_/blib/arch", "$_/blib/lib")} $self->_list_sorted_descending_is_tested;
+    return if !@dirs;
+
+    if (@dirs < 12) {
+        $CPAN::Frontend->optprint('perl5lib', "Prepending @dirs to PERL5LIB for '$for'\n");
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    } elsif (@dirs < 24 ) {
+        my @d = map {my $cp = $_;
+                     $cp =~ s/^\Q$CPAN::Config->{build_dir}\E/%BUILDDIR%/;
+                     $cp
+                 } @dirs;
+        $CPAN::Frontend->optprint('perl5lib', "Prepending @d to PERL5LIB; ".
+                                 "%BUILDDIR%=$CPAN::Config->{build_dir} ".
+                                 "for '$for'\n"
+                                );
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    } else {
+        my $cnt = keys %{$self->{is_tested}};
+        $CPAN::Frontend->optprint('perl5lib', "Prepending blib/arch and blib/lib of ".
+                                 "$cnt build dirs to PERL5LIB; ".
+                                 "for '$for'\n"
+                                );
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    }
+}}
+
+
+1;
+
+
+__END__
+
+package vmsish;
+
+our $VERSION = '1.04';
+
+
+my $IsVMS = $^O eq 'VMS';
+
+sub bits {
+    my $bits = 0;
+    my $sememe;
+    foreach $sememe (@_) {
+	# Those hints are defined in vms/vmsish.h :
+	# HINT_M_VMSISH_STATUS and HINT_M_VMSISH_TIME
+        $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?';
+	$bits |= 0x80000000, next if $sememe eq 'time';
+    }
+    $bits;
+}
+
+sub import {
+    return unless $IsVMS;
+
+    shift;
+    $^H |= bits(@_ ? @_ : qw(status time));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit hushed)) {
+        $^H{'vmsish_exit'}   = 1 if $sememe eq 'exit';
+        vmsish::hushed(1) if $sememe eq 'hushed';
+    }
+}
+
+sub unimport {
+    return unless $IsVMS;
+
+    shift;
+    $^H &= ~ bits(@_ ? @_ : qw(status time));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit hushed)) {
+        $^H{'vmsish_exit'}   = 0 if $sememe eq 'exit';
+        vmsish::hushed(0) if $sememe eq 'hushed';
+    }
+}
+
+1;
+use 5.008;
+package base;
+
+use strict 'vars';
+our $VERSION = '2.27';
+$VERSION =~ tr/_//d;
+
+# simplest way to avoid indexing of the package: no package statement
+sub base::__inc::unhook { @INC = grep !(ref eq 'CODE' && $_ == $_[0]), @INC }
+# instance is blessed array of coderefs to be removed from @INC at scope exit
+sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_ for @{$_[0]} }
+
+# constant.pm is slow
+sub SUCCESS () { 1 }
+
+sub PUBLIC     () { 2**0  }
+sub PRIVATE    () { 2**1  }
+sub INHERITED  () { 2**2  }
+sub PROTECTED  () { 2**3  }
+
+
+my $Fattr = \%fields::attr;
+
+sub has_fields {
+    my($base) = shift;
+    my $fglob = ${"$base\::"}{FIELDS};
+    return( ($fglob && 'GLOB' eq ref($fglob) && *$fglob{HASH}) ? 1 : 0 );
+}
+
+sub has_attr {
+    my($proto) = shift;
+    my($class) = ref $proto || $proto;
+    return exists $Fattr->{$class};
+}
+
+sub get_attr {
+    $Fattr->{$_[0]} = [1] unless $Fattr->{$_[0]};
+    return $Fattr->{$_[0]};
+}
+
+if ($] < 5.009) {
+    *get_fields = sub {
+        # Shut up a possible typo warning.
+        () = \%{$_[0].'::FIELDS'};
+        my $f = \%{$_[0].'::FIELDS'};
+
+        # should be centralized in fields? perhaps
+        # fields::mk_FIELDS_be_OK. Peh. As long as %{ $package . '::FIELDS' }
+        # is used here anyway, it doesn't matter.
+        bless $f, 'pseudohash' if (ref($f) ne 'pseudohash');
+
+        return $f;
+    }
+}
+else {
+    *get_fields = sub {
+        # Shut up a possible typo warning.
+        () = \%{$_[0].'::FIELDS'};
+        return \%{$_[0].'::FIELDS'};
+    }
+}
+
+if ($] < 5.008) {
+    *_module_to_filename = sub {
+        (my $fn = $_[0]) =~ s!::!/!g;
+        $fn .= '.pm';
+        return $fn;
+    }
+}
+else {
+    *_module_to_filename = sub {
+        (my $fn = $_[0]) =~ s!::!/!g;
+        $fn .= '.pm';
+        utf8::encode($fn);
+        return $fn;
+    }
+}
+
+
+sub import {
+    my $class = shift;
+
+    return SUCCESS unless @_;
+
+    # List of base classes from which we will inherit %FIELDS.
+    my $fields_base;
+
+    my $inheritor = caller(0);
+
+    my @bases;
+    foreach my $base (@_) {
+        if ( $inheritor eq $base ) {
+            warn "Class '$inheritor' tried to inherit from itself\n";
+        }
+
+        next if grep $_->isa($base), ($inheritor, @bases);
+
+        # Following blocks help isolate $SIG{__DIE__} and @INC changes
+        {
+            my $sigdie;
+            {
+                local $SIG{__DIE__};
+                my $fn = _module_to_filename($base);
+                my $dot_hidden;
+                eval {
+                    my $guard;
+                    if ($INC[-1] eq '.' && %{"$base\::"}) {
+                        # So:  the package already exists   => this an optional load
+                        # And: there is a dot at the end of @INC  => we want to hide it
+                        # However: we only want to hide it during our *own* require()
+                        # (i.e. without affecting nested require()s).
+                        # So we add a hook to @INC whose job is to hide the dot, but which
+                        # first checks checks the callstack depth, because within nested
+                        # require()s the callstack is deeper.
+                        # Since CORE::GLOBAL::require makes it unknowable in advance what
+                        # the exact relevant callstack depth will be, we have to record it
+                        # inside a hook. So we put another hook just for that at the front
+                        # of @INC, where it's guaranteed to run -- immediately.
+                        # The dot-hiding hook does its job by sitting directly in front of
+                        # the dot and removing itself from @INC when reached. This causes
+                        # the dot to move up one index in @INC, causing the loop inside
+                        # pp_require() to skip it.
+                        # Loaded coded may disturb this precise arrangement, but that's OK
+                        # because the hook is inert by that time. It is only active during
+                        # the top-level require(), when @INC is in our control. The only
+                        # possible gotcha is if other hooks already in @INC modify @INC in
+                        # some way during that initial require().
+                        # Note that this jiggery hookery works just fine recursively: if
+                        # a module loaded via base.pm uses base.pm itself, there will be
+                        # one pair of hooks in @INC per base::import call frame, but the
+                        # pairs from different nestings do not interfere with each other.
+                        my $lvl;
+                        unshift @INC,        sub { return if defined $lvl; 1 while defined caller ++$lvl; () };
+                        splice  @INC, -1, 0, sub { return if defined caller $lvl; ++$dot_hidden, &base::__inc::unhook; () };
+                        $guard = bless [ @INC[0,-2] ], 'base::__inc::scope_guard';
+                    }
+                    require $fn
+                };
+                if ($dot_hidden && (my @fn = grep -e && !( -d _ || -b _ ), $fn.'c', $fn)) {
+                    require Carp;
+                    Carp::croak(<<ERROR);
+Base class package "$base" is not empty but "$fn[0]" exists in the current directory.
+    To help avoid security issues, base.pm now refuses to load optional modules
+    from the current working directory when it is the last entry in \@INC.
+    If your software worked on previous versions of Perl, the best solution
+    is to use FindBin to detect the path properly and to add that path to
+    \@INC.  As a last resort, you can re-enable looking in the current working
+    directory by adding "use lib '.'" to your code.
+ERROR
+                }
+                # Only ignore "Can't locate" errors from our eval require.
+                # Other fatal errors (syntax etc) must be reported.
+                #
+                # changing the check here is fragile - if the check
+                # here isn't catching every error you want, you should
+                # probably be using parent.pm, which doesn't try to
+                # guess whether require is needed or failed,
+                # see [perl #118561]
+                die if $@ && $@ !~ /^Can't locate \Q$fn\E .*? at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/s
+                          || $@ =~ /Compilation failed in require at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/;
+                unless (%{"$base\::"}) {
+                    require Carp;
+                    local $" = " ";
+                    Carp::croak(<<ERROR);
+Base class package "$base" is empty.
+    (Perhaps you need to 'use' the module which defines that package first,
+    or make that module available in \@INC (\@INC contains: @INC).
+ERROR
+                }
+                $sigdie = $SIG{__DIE__} || undef;
+            }
+            # Make sure a global $SIG{__DIE__} makes it out of the localization.
+            $SIG{__DIE__} = $sigdie if defined $sigdie;
+        }
+        push @bases, $base;
+
+        if ( has_fields($base) || has_attr($base) ) {
+            # No multiple fields inheritance *suck*
+            if ($fields_base) {
+                require Carp;
+                Carp::croak("Can't multiply inherit fields");
+            } else {
+                $fields_base = $base;
+            }
+        }
+    }
+    # Save this until the end so it's all or nothing if the above loop croaks.
+    push @{"$inheritor\::ISA"}, @bases;
+
+    if( defined $fields_base ) {
+        inherit_fields($inheritor, $fields_base);
+    }
+}
+
+
+sub inherit_fields {
+    my($derived, $base) = @_;
+
+    return SUCCESS unless $base;
+
+    my $battr = get_attr($base);
+    my $dattr = get_attr($derived);
+    my $dfields = get_fields($derived);
+    my $bfields = get_fields($base);
+
+    $dattr->[0] = @$battr;
+
+    if( keys %$dfields ) {
+        warn <<"END";
+$derived is inheriting from $base but already has its own fields!
+This will cause problems.  Be sure you use base BEFORE declaring fields.
+END
+
+    }
+
+    # Iterate through the base's fields adding all the non-private
+    # ones to the derived class.  Hang on to the original attribute
+    # (Public, Private, etc...) and add Inherited.
+    # This is all too complicated to do efficiently with add_fields().
+    while (my($k,$v) = each %$bfields) {
+        my $fno;
+        if ($fno = $dfields->{$k} and $fno != $v) {
+            require Carp;
+            Carp::croak ("Inherited fields can't override existing fields");
+        }
+
+        if( $battr->[$v] & PRIVATE ) {
+            $dattr->[$v] = PRIVATE | INHERITED;
+        }
+        else {
+            $dattr->[$v] = INHERITED | $battr->[$v];
+            $dfields->{$k} = $v;
+        }
+    }
+
+    foreach my $idx (1..$#{$battr}) {
+        next if defined $dattr->[$idx];
+        $dattr->[$idx] = $battr->[$idx] & INHERITED;
+    }
+}
+
+
+1;
+
+__END__
+
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2011-2018 -- leonerd@leonerd.org.uk
+
+package Future;
+
+use strict;
+use warnings;
+no warnings 'recursion'; # Disable the "deep recursion" warning
+
+our $VERSION = '0.39';
+
+use Carp qw(); # don't import croak
+use Scalar::Util qw( weaken blessed reftype );
+use B qw( svref_2object );
+use Time::HiRes qw( gettimeofday tv_interval );
+
+# we are not overloaded, but we want to check if other objects are
+require overload;
+
+our @CARP_NOT = qw( Future::Utils );
+
+use constant DEBUG => !!$ENV{PERL_FUTURE_DEBUG};
+
+our $TIMES = DEBUG || $ENV{PERL_FUTURE_TIMES};
+
+
+
+
+# Callback flags
+use constant {
+   CB_DONE   => 1<<0, # Execute callback on done
+   CB_FAIL   => 1<<1, # Execute callback on fail
+   CB_CANCEL => 1<<2, # Execute callback on cancellation
+
+   CB_SELF   => 1<<3, # Pass $self as first argument
+   CB_RESULT => 1<<4, # Pass result/failure as a list
+
+   CB_SEQ_ONDONE => 1<<5, # Sequencing on success (->then)
+   CB_SEQ_ONFAIL => 1<<6, # Sequencing on failure (->else)
+
+   CB_SEQ_IMDONE => 1<<7, # $code is in fact immediate ->done result
+   CB_SEQ_IMFAIL => 1<<8, # $code is in fact immediate ->fail result
+};
+
+use constant CB_ALWAYS => CB_DONE|CB_FAIL|CB_CANCEL;
+
+# Useful for identifying CODE references
+sub CvNAME_FILE_LINE
+{
+   my ( $code ) = @_;
+   my $cv = svref_2object( $code );
+
+   my $name = join "::", $cv->STASH->NAME, $cv->GV->NAME;
+   return $name unless $cv->GV->NAME eq "__ANON__";
+
+   # $cv->GV->LINE isn't reliable, as outside of perl -d mode all anon CODE
+   # in the same file actually shares the same GV. :(
+   # Walk the optree looking for the first COP
+   my $cop = $cv->START;
+   $cop = $cop->next while $cop and ref $cop ne "B::COP" and ref $cop ne "B::NULL";
+
+   return $cv->GV->NAME if ref $cop eq "B::NULL";
+   sprintf "%s(%s line %d)", $cv->GV->NAME, $cop->file, $cop->line;
+}
+
+sub _callable
+{
+   my ( $cb ) = @_;
+   defined $cb and ( reftype($cb) eq 'CODE' || overload::Method($cb, '&{}') );
+}
+
+sub new
+{
+   my $proto = shift;
+   return bless {
+      ready     => 0,
+      callbacks => [], # [] = [$type, ...]
+      ( DEBUG ?
+         ( do { my $at = Carp::shortmess( "constructed" );
+                chomp $at; $at =~ s/\.$//;
+                constructed_at => $at } )
+         : () ),
+      ( $TIMES ?
+         ( btime => [ gettimeofday ] )
+         : () ),
+   }, ( ref $proto || $proto );
+}
+
+my $GLOBAL_END;
+END { $GLOBAL_END = 1; }
+
+sub DESTROY_debug {
+   my $self = shift;
+   return if $GLOBAL_END;
+   return if $self->{ready} and ( $self->{reported} or !$self->{failure} );
+
+   my $lost_at = join " line ", (caller)[1,2];
+   # We can't actually know the real line where the last reference was lost; 
+   # a variable set to 'undef' or close of scope, because caller can't see it;
+   # the current op has already been updated. The best we can do is indicate
+   # 'near'.
+
+   if( $self->{ready} and $self->{failure} ) {
+      warn "${\$self->__selfstr} was $self->{constructed_at} and was lost near $lost_at with an unreported failure of: " .
+         $self->{failure}[0] . "\n";
+   }
+   elsif( !$self->{ready} ) {
+      warn "${\$self->__selfstr} was $self->{constructed_at} and was lost near $lost_at before it was ready.\n";
+   }
+}
+*DESTROY = \&DESTROY_debug if DEBUG;
+
+
+sub wrap
+{
+   my $class = shift;
+   my @values = @_;
+
+   if( @values == 1 and blessed $values[0] and $values[0]->isa( __PACKAGE__ ) ) {
+      return $values[0];
+   }
+   else {
+      return $class->done( @values );
+   }
+}
+
+
+sub call
+{
+   my $class = shift;
+   my ( $code, @args ) = @_;
+
+   my $f;
+   eval { $f = $code->( @args ); 1 } or $f = $class->fail( $@ );
+   blessed $f and $f->isa( "Future" ) or $f = $class->fail( "Expected " . CvNAME_FILE_LINE($code) . " to return a Future" );
+
+   return $f;
+}
+
+sub _shortmess
+{
+   my $at = Carp::shortmess( $_[0] );
+   chomp $at; $at =~ s/\.$//;
+   return $at;
+}
+
+sub _mark_ready
+{
+   my $self = shift;
+   $self->{ready} = 1;
+   $self->{ready_at} = _shortmess $_[0] if DEBUG;
+
+   if( $TIMES ) {
+      $self->{rtime} = [ gettimeofday ];
+   }
+
+   delete $self->{on_cancel};
+   my $callbacks = delete $self->{callbacks} or return;
+
+   my $cancelled = $self->{cancelled};
+   my $fail      = defined $self->{failure};
+   my $done      = !$fail && !$cancelled;
+
+   my @result  = $done ? $self->get :
+                 $fail ? $self->failure :
+                         ();
+
+   foreach my $cb ( @$callbacks ) {
+      my ( $flags, $code ) = @$cb;
+      my $is_future = blessed( $code ) && $code->isa( "Future" );
+
+      next if $done      and not( $flags & CB_DONE );
+      next if $fail      and not( $flags & CB_FAIL );
+      next if $cancelled and not( $flags & CB_CANCEL );
+
+      $self->{reported} = 1 if $fail;
+
+      if( $is_future ) {
+         $done ? $code->done( @result ) :
+         $fail ? $code->fail( @result ) :
+                 $code->cancel;
+      }
+      elsif( $flags & (CB_SEQ_ONDONE|CB_SEQ_ONFAIL) ) {
+         my ( undef, undef, $fseq ) = @$cb;
+         if( !$fseq ) { # weaken()ed; it might be gone now
+            # This warning should always be printed, even not in DEBUG mode.
+            # It's always an indication of a bug
+            Carp::carp +(DEBUG ? "${\$self->__selfstr} ($self->{constructed_at})"
+                               : "${\$self->__selfstr} $self" ) .
+               " lost a sequence Future";
+            next;
+         }
+
+         my $f2;
+         if( $done and $flags & CB_SEQ_ONDONE or
+             $fail and $flags & CB_SEQ_ONFAIL ) {
+
+            if( $flags & CB_SEQ_IMDONE ) {
+               $fseq->done( @$code );
+               next;
+            }
+            elsif( $flags & CB_SEQ_IMFAIL ) {
+               $fseq->fail( @$code );
+               next;
+            }
+
+            my @args = (
+               ( $flags & CB_SELF   ? $self : () ),
+               ( $flags & CB_RESULT ? @result : () ),
+            );
+
+            unless( eval { $f2 = $code->( @args ); 1 } ) {
+               $fseq->fail( $@ );
+               next;
+            }
+
+            unless( blessed $f2 and $f2->isa( "Future" ) ) {
+               $fseq->fail( "Expected " . CvNAME_FILE_LINE($code) . " to return a Future" );
+               next;
+            }
+
+            $fseq->on_cancel( $f2 );
+         }
+         else {
+            $f2 = $self;
+         }
+
+         if( $f2->is_ready ) {
+            $f2->on_ready( $fseq ) if !$f2->{cancelled};
+         }
+         else {
+            push @{ $f2->{callbacks} }, [ CB_DONE|CB_FAIL, $fseq ];
+            weaken( $f2->{callbacks}[-1][1] );
+         }
+      }
+      else {
+         $code->(
+            ( $flags & CB_SELF   ? $self : () ),
+            ( $flags & CB_RESULT ? @result : () ),
+         );
+      }
+   }
+}
+
+
+
+
+sub is_ready
+{
+   my $self = shift;
+   return $self->{ready};
+}
+
+
+sub is_done
+{
+   my $self = shift;
+   return $self->{ready} && !$self->{failure} && !$self->{cancelled};
+}
+
+
+sub is_failed
+{
+   my $self = shift;
+   return $self->{ready} && !!$self->{failure}; # boolify
+}
+
+
+sub is_cancelled
+{
+   my $self = shift;
+   return $self->{cancelled};
+}
+
+
+sub state
+{
+   my $self = shift;
+   return !$self->{ready}     ? "pending" :
+           DEBUG              ? $self->{ready_at} :
+           $self->{failure}   ? "failed" :
+           $self->{cancelled} ? "cancelled" :
+                                "done";
+}
+
+
+
+sub done
+{
+   my $self = shift;
+
+   if( ref $self ) {
+      $self->{cancelled} and return $self;
+      $self->{ready} and Carp::croak "${\$self->__selfstr} is already ".$self->state." and cannot be ->done";
+      $self->{subs} and Carp::croak "${\$self->__selfstr} is not a leaf Future, cannot be ->done";
+      $self->{result} = [ @_ ];
+      $self->_mark_ready( "done" );
+   }
+   else {
+      $self = $self->new;
+      $self->{ready} = 1;
+      $self->{ready_at} = _shortmess "done" if DEBUG;
+      $self->{result} = [ @_ ];
+   }
+
+   return $self;
+}
+
+my $warned_done_cb;
+sub done_cb
+{
+   my $self = shift;
+   $warned_done_cb or
+      $warned_done_cb++, warnings::warnif( deprecated => "Future->done_cb is now deprecated; use ->curry::done or sub {...}" );
+   return sub { $self->done( @_ ) };
+}
+
+
+sub fail
+{
+   my $self = shift;
+   my ( $exception, @details ) = @_;
+
+   $_[0] or Carp::croak "$self ->fail requires an exception that is true";
+
+   if( ref $self ) {
+      $self->{cancelled} and return $self;
+      $self->{ready} and Carp::croak "${\$self->__selfstr} is already ".$self->state." and cannot be ->fail'ed";
+      $self->{subs} and Carp::croak "${\$self->__selfstr} is not a leaf Future, cannot be ->fail'ed";
+      $self->{failure} = [ $exception, @details ];
+      $self->_mark_ready( "failed" );
+   }
+   else {
+      $self = $self->new;
+      $self->{ready} = 1;
+      $self->{ready_at} = _shortmess "failed" if DEBUG;
+      $self->{failure} = [ $exception, @details ];
+   }
+
+   return $self;
+}
+
+my $warned_fail_cb;
+sub fail_cb
+{
+   my $self = shift;
+   $warned_fail_cb or
+      $warned_fail_cb++, warnings::warnif( deprecated => "Future->fail_cb is now deprecated; use ->curry::fail or sub {...}" );
+   return sub { $self->fail( @_ ) };
+}
+
+
+sub die :method
+{
+   my $self = shift;
+   my ( $exception, @details ) = @_;
+
+   if( !ref $exception and $exception !~ m/\n$/ ) {
+      $exception .= sprintf " at %s line %d\n", (caller)[1,2];
+   }
+
+   $self->fail( $exception, @details );
+}
+
+
+sub on_cancel
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   my $is_future = blessed( $code ) && $code->isa( "Future" );
+   $is_future or _callable( $code ) or
+      Carp::croak "Expected \$code to be callable or a Future in ->on_cancel";
+
+   $self->{ready} and return $self;
+
+   push @{ $self->{on_cancel} }, $code;
+
+   return $self;
+}
+
+
+
+sub on_ready
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   my $is_future = blessed( $code ) && $code->isa( "Future" );
+   $is_future or _callable( $code ) or
+      Carp::croak "Expected \$code to be callable or a Future in ->on_ready";
+
+   if( $self->{ready} ) {
+      my $fail = defined $self->{failure};
+      my $done = !$fail && !$self->{cancelled};
+
+      $self->{reported} = 1 if $fail;
+
+      $is_future ? ( $done ? $code->done( $self->get ) :
+                     $fail ? $code->fail( $self->failure ) :
+                             $code->cancel )
+                 : $code->( $self );
+   }
+   else {
+      push @{ $self->{callbacks} }, [ CB_ALWAYS|CB_SELF, $self->wrap_cb( on_ready => $code ) ];
+   }
+
+   return $self;
+}
+
+
+sub await
+{
+   my $self = shift;
+   Carp::croak "$self is not yet complete and does not provide ->await";
+}
+
+sub get
+{
+   my $self = shift;
+   until( $self->{ready} ) { $self->await }
+   if( $self->{failure} ) {
+      $self->{reported} = 1;
+      my $exception = $self->{failure}->[0];
+      !ref $exception && $exception =~ m/\n$/ ? CORE::die $exception : Carp::croak $exception;
+   }
+   $self->{cancelled} and Carp::croak "${\$self->__selfstr} was cancelled";
+   return $self->{result}->[0] unless wantarray;
+   return @{ $self->{result} };
+}
+
+
+sub unwrap
+{
+   shift; # $class
+   my @values = @_;
+
+   if( @values == 1 and blessed $values[0] and $values[0]->isa( __PACKAGE__ ) ) {
+      return $values[0]->get;
+   }
+   else {
+      return $values[0] if !wantarray;
+      return @values;
+   }
+}
+
+
+sub on_done
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   my $is_future = blessed( $code ) && $code->isa( "Future" );
+   $is_future or _callable( $code ) or
+      Carp::croak "Expected \$code to be callable or a Future in ->on_done";
+
+   if( $self->{ready} ) {
+      return $self if $self->{failure} or $self->{cancelled};
+
+      $is_future ? $code->done( $self->get ) 
+                 : $code->( $self->get );
+   }
+   else {
+      push @{ $self->{callbacks} }, [ CB_DONE|CB_RESULT, $self->wrap_cb( on_done => $code ) ];
+   }
+
+   return $self;
+}
+
+
+sub failure
+{
+   my $self = shift;
+   until( $self->{ready} ) { $self->await }
+   return unless $self->{failure};
+   $self->{reported} = 1;
+   return $self->{failure}->[0] if !wantarray;
+   return @{ $self->{failure} };
+}
+
+
+sub on_fail
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   my $is_future = blessed( $code ) && $code->isa( "Future" );
+   $is_future or _callable( $code ) or
+      Carp::croak "Expected \$code to be callable or a Future in ->on_fail";
+
+   if( $self->{ready} ) {
+      return $self if not $self->{failure};
+      $self->{reported} = 1;
+
+      $is_future ? $code->fail( $self->failure )
+                 : $code->( $self->failure );
+   }
+   else {
+      push @{ $self->{callbacks} }, [ CB_FAIL|CB_RESULT, $self->wrap_cb( on_fail => $code ) ];
+   }
+
+   return $self;
+}
+
+
+sub cancel
+{
+   my $self = shift;
+
+   return $self if $self->{ready};
+
+   $self->{cancelled}++;
+   foreach my $code ( reverse @{ $self->{on_cancel} || [] } ) {
+      my $is_future = blessed( $code ) && $code->isa( "Future" );
+      $is_future ? $code->cancel
+                 : $code->( $self );
+   }
+   $self->_mark_ready( "cancel" );
+
+   return $self;
+}
+
+my $warned_cancel_cb;
+sub cancel_cb
+{
+   my $self = shift;
+   $warned_cancel_cb or
+      $warned_cancel_cb++, warnings::warnif( deprecated => "Future->cancel_cb is now deprecated; use ->curry::cancel or sub {...}" );
+   return sub { $self->cancel };
+}
+
+
+sub _sequence
+{
+   my $f1 = shift;
+   my ( $code, $flags ) = @_;
+
+   # For later, we might want to know where we were called from
+   my $func = (caller 1)[3];
+   $func =~ s/^.*:://;
+
+   $flags & (CB_SEQ_IMDONE|CB_SEQ_IMFAIL) or _callable( $code ) or
+      Carp::croak "Expected \$code to be callable in ->$func";
+
+   if( !defined wantarray ) {
+      Carp::carp "Calling ->$func in void context";
+   }
+
+   if( $f1->is_ready ) {
+      # Take a shortcut
+      return $f1 if $f1->is_done and not( $flags & CB_SEQ_ONDONE ) or
+                    $f1->failure and not( $flags & CB_SEQ_ONFAIL );
+
+      if( $flags & CB_SEQ_IMDONE ) {
+         return Future->done( @$code );
+      }
+      elsif( $flags & CB_SEQ_IMFAIL ) {
+         return Future->fail( @$code );
+      }
+
+      my @args = (
+         ( $flags & CB_SELF ? $f1 : () ),
+         ( $flags & CB_RESULT ? $f1->is_done ? $f1->get :
+                                $f1->failure ? $f1->failure :
+                                               () : () ),
+      );
+
+      my $fseq;
+      unless( eval { $fseq = $code->( @args ); 1 } ) {
+         return Future->fail( $@ );
+      }
+
+      unless( blessed $fseq and $fseq->isa( "Future" ) ) {
+         return Future->fail( "Expected " . CvNAME_FILE_LINE($code) . " to return a Future" );
+      }
+
+      return $fseq;
+   }
+
+   my $fseq = $f1->new;
+   $fseq->on_cancel( $f1 );
+
+   # TODO: if anyone cares about the op name, we might have to synthesize it
+   # from $flags
+   $code = $f1->wrap_cb( sequence => $code ) unless $flags & (CB_SEQ_IMDONE|CB_SEQ_IMFAIL);
+
+   push @{ $f1->{callbacks} }, [ CB_DONE|CB_FAIL|$flags, $code, $fseq ];
+   weaken( $f1->{callbacks}[-1][2] );
+
+   return $fseq;
+}
+
+
+my $make_donecatchfail_sub = sub {
+   my ( $with_f, $done_code, $fail_code, @catch_list ) = @_;
+
+   my $func = (caller 1)[3];
+   $func =~ s/^.*:://;
+
+   !$done_code or _callable( $done_code ) or
+      Carp::croak "Expected \$done_code to be callable in ->$func";
+   !$fail_code or _callable( $fail_code ) or
+      Carp::croak "Expected \$fail_code to be callable in ->$func";
+
+   my %catch_handlers = @catch_list;
+   _callable( $catch_handlers{$_} ) or
+      Carp::croak "Expected catch handler for '$_' to be callable in ->$func"
+      for keys %catch_handlers;
+
+   sub {
+      my $self = shift;
+      my @maybe_self = $with_f ? ( $self ) : ();
+
+      if( !$self->{failure} ) {
+         return $self unless $done_code;
+         return $done_code->( @maybe_self, $self->get );
+      }
+      else {
+         my $name = $self->{failure}[1];
+         if( defined $name and $catch_handlers{$name} ) {
+            return $catch_handlers{$name}->( @maybe_self, $self->failure );
+         }
+         return $self unless $fail_code;
+         return $fail_code->( @maybe_self, $self->failure );
+      }
+   };
+};
+
+sub then
+{
+   my $self = shift;
+   my $done_code = shift;
+   my $fail_code = ( @_ % 2 ) ? pop : undef;
+   my @catch_list = @_;
+
+   if( $done_code and !@catch_list and !$fail_code ) {
+      return $self->_sequence( $done_code, CB_SEQ_ONDONE|CB_RESULT );
+   }
+
+   # Complex
+   return $self->_sequence( $make_donecatchfail_sub->(
+      0, $done_code, $fail_code, @catch_list,
+   ), CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+sub else
+{
+   my $self = shift;
+   my ( $fail_code ) = @_;
+
+   return $self->_sequence( $fail_code, CB_SEQ_ONFAIL|CB_RESULT );
+}
+
+
+sub catch
+{
+   my $self = shift;
+   my $fail_code = ( @_ % 2 ) ? pop : undef;
+   my @catch_list = @_;
+
+   return $self->_sequence( $make_donecatchfail_sub->(
+      0, undef, $fail_code, @catch_list,
+   ), CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+
+sub transform
+{
+   my $self = shift;
+   my %args = @_;
+
+   my $xfrm_done = $args{done};
+   my $xfrm_fail = $args{fail};
+
+   return $self->_sequence( sub {
+      my $self = shift;
+      if( !$self->{failure} ) {
+         return $self unless $xfrm_done;
+         my @result = $xfrm_done->( $self->get );
+         return $self->new->done( @result );
+      }
+      else {
+         return $self unless $xfrm_fail;
+         my @failure = $xfrm_fail->( $self->failure );
+         return $self->new->fail( @failure );
+      }
+   }, CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+
+sub then_with_f
+{
+   my $self = shift;
+   my $done_code = shift;
+   my $fail_code = ( @_ % 2 ) ? pop : undef;
+   my @catch_list = @_;
+
+   if( $done_code and !@catch_list and !$fail_code ) {
+      return $self->_sequence( $done_code, CB_SEQ_ONDONE|CB_SELF|CB_RESULT );
+   }
+
+   return $self->_sequence( $make_donecatchfail_sub->(
+      1, $done_code, $fail_code, @catch_list,
+   ), CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+
+sub then_done
+{
+   my $self = shift;
+   my ( @result ) = @_;
+   return $self->_sequence( \@result, CB_SEQ_ONDONE|CB_SEQ_IMDONE );
+}
+
+sub then_fail
+{
+   my $self = shift;
+   my ( @failure ) = @_;
+   return $self->_sequence( \@failure, CB_SEQ_ONDONE|CB_SEQ_IMFAIL );
+}
+
+
+sub else_with_f
+{
+   my $self = shift;
+   my ( $fail_code ) = @_;
+
+   return $self->_sequence( $fail_code, CB_SEQ_ONFAIL|CB_SELF|CB_RESULT );
+}
+
+
+sub else_done
+{
+   my $self = shift;
+   my ( @result ) = @_;
+   return $self->_sequence( \@result, CB_SEQ_ONFAIL|CB_SEQ_IMDONE );
+}
+
+sub else_fail
+{
+   my $self = shift;
+   my ( @failure ) = @_;
+   return $self->_sequence( \@failure, CB_SEQ_ONFAIL|CB_SEQ_IMFAIL );
+}
+
+
+sub catch_with_f
+{
+   my $self = shift;
+   my $fail_code = ( @_ % 2 ) ? pop : undef;
+   my @catch_list = @_;
+
+   return $self->_sequence( $make_donecatchfail_sub->(
+      1, undef, $fail_code, @catch_list,
+   ), CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+
+sub followed_by
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   return $self->_sequence( $code, CB_SEQ_ONDONE|CB_SEQ_ONFAIL|CB_SELF );
+}
+
+
+sub without_cancel
+{
+   my $self = shift;
+   my $new = $self->new;
+
+   $self->on_ready( sub {
+      my $self = shift;
+      if( $self->failure ) {
+         $new->fail( $self->failure );
+      }
+      else {
+         $new->done( $self->get );
+      }
+   });
+
+   $new->{orig} = $self; # just to strongref it - RT122920
+   $new->on_ready( sub { undef $_[0]->{orig} } );
+
+   return $new;
+}
+
+
+sub retain
+{
+   my $self = shift;
+   return $self->on_ready( sub { undef $self } );
+}
+
+
+sub _new_convergent
+{
+   shift; # ignore this class
+   my ( $subs ) = @_;
+
+   foreach my $sub ( @$subs ) {
+      blessed $sub and $sub->isa( "Future" ) or Carp::croak "Expected a Future, got $sub";
+   }
+
+   # Find the best prototype. Ideally anything derived if we can find one.
+   my $self;
+   ref($_) eq "Future" or $self = $_->new, last for @$subs;
+
+   # No derived ones; just have to be a basic class then
+   $self ||= Future->new;
+
+   $self->{subs} = $subs;
+
+   # This might be called by a DESTROY during global destruction so it should
+   # be as defensive as possible (see RT88967)
+   $self->on_cancel( sub {
+      foreach my $sub ( @$subs ) {
+         $sub->cancel if $sub and !$sub->{ready};
+      }
+   } );
+
+   return $self;
+}
+
+
+sub wait_all
+{
+   my $class = shift;
+   my @subs = @_;
+
+   unless( @subs ) {
+      my $self = $class->done;
+      $self->{subs} = [];
+      return $self;
+   }
+
+   my $self = Future->_new_convergent( \@subs );
+
+   my $pending = 0;
+   $_->{ready} or $pending++ for @subs;
+
+   # Look for immediate ready
+   if( !$pending ) {
+      $self->{result} = [ @subs ];
+      $self->_mark_ready( "wait_all" );
+      return $self;
+   }
+
+   weaken( my $weakself = $self );
+   my $sub_on_ready = sub {
+      return unless my $self = $weakself;
+
+      $pending--;
+      $pending and return;
+
+      $self->{result} = [ @subs ];
+      $self->_mark_ready( "wait_all" );
+   };
+
+   foreach my $sub ( @subs ) {
+      $sub->{ready} or $sub->on_ready( $sub_on_ready );
+   }
+
+   return $self;
+}
+
+
+sub wait_any
+{
+   my $class = shift;
+   my @subs = @_;
+
+   unless( @subs ) {
+      my $self = $class->fail( "Cannot ->wait_any with no subfutures" );
+      $self->{subs} = [];
+      return $self;
+   }
+
+   my $self = Future->_new_convergent( \@subs );
+
+   # Look for immediate ready
+   my $immediate_ready;
+   foreach my $sub ( @subs ) {
+      $sub->{ready} and $immediate_ready = $sub, last;
+   }
+
+   if( $immediate_ready ) {
+      foreach my $sub ( @subs ) {
+         $sub->{ready} or $sub->cancel;
+      }
+
+      if( $immediate_ready->{failure} ) {
+         $self->{failure} = [ $immediate_ready->failure ];
+      }
+      else {
+         $self->{result} = [ $immediate_ready->get ];
+      }
+      $self->_mark_ready( "wait_any" );
+      return $self;
+   }
+
+   my $pending = 0;
+
+   weaken( my $weakself = $self );
+   my $sub_on_ready = sub {
+      return unless my $self = $weakself;
+      return if $self->{result} or $self->{failure}; # don't recurse on child ->cancel
+
+      return if --$pending and $_[0]->{cancelled};
+
+      if( $_[0]->{cancelled} ) {
+         $self->{failure} = [ "All component futures were cancelled" ];
+      }
+      elsif( $_[0]->{failure} ) {
+         $self->{failure} = [ $_[0]->failure ];
+      }
+      else {
+         $self->{result}  = [ $_[0]->get ];
+      }
+
+      foreach my $sub ( @subs ) {
+         $sub->{ready} or $sub->cancel;
+      }
+
+      $self->_mark_ready( "wait_any" );
+   };
+
+   foreach my $sub ( @subs ) {
+      # No need to test $sub->{ready} since we know none of them are
+      $sub->on_ready( $sub_on_ready );
+      $pending++;
+   }
+
+   return $self;
+}
+
+
+sub needs_all
+{
+   my $class = shift;
+   my @subs = @_;
+
+   unless( @subs ) {
+      my $self = $class->done;
+      $self->{subs} = [];
+      return $self;
+   }
+
+   my $self = Future->_new_convergent( \@subs );
+
+   # Look for immediate fail
+   my $immediate_fail;
+   foreach my $sub ( @subs ) {
+      $sub->{ready} and $sub->{failure} and $immediate_fail = $sub, last;
+   }
+
+   if( $immediate_fail ) {
+      foreach my $sub ( @subs ) {
+         $sub->{ready} or $sub->cancel;
+      }
+
+      $self->{failure} = [ $immediate_fail->failure ];
+      $self->_mark_ready( "needs_all" );
+      return $self;
+   }
+
+   my $pending = 0;
+   $_->{ready} or $pending++ for @subs;
+
+   # Look for immediate done
+   if( !$pending ) {
+      $self->{result} = [ map { $_->get } @subs ];
+      $self->_mark_ready( "needs_all" );
+      return $self;
+   }
+
+   weaken( my $weakself = $self );
+   my $sub_on_ready = sub {
+      return unless my $self = $weakself;
+      return if $self->{result} or $self->{failure}; # don't recurse on child ->cancel
+
+      if( $_[0]->{cancelled} ) {
+         $self->{failure} = [ "A component future was cancelled" ];
+         foreach my $sub ( @subs ) {
+            $sub->cancel if !$sub->{ready};
+         }
+         $self->_mark_ready( "needs_all" );
+      }
+      elsif( my @failure = $_[0]->failure ) {
+         $self->{failure} = \@failure;
+         foreach my $sub ( @subs ) {
+            $sub->cancel if !$sub->{ready};
+         }
+         $self->_mark_ready( "needs_all" );
+      }
+      else {
+         $pending--;
+         $pending and return;
+
+         $self->{result} = [ map { $_->get } @subs ];
+         $self->_mark_ready( "needs_all" );
+      }
+   };
+
+   foreach my $sub ( @subs ) {
+      $sub->{ready} or $sub->on_ready( $sub_on_ready );
+   }
+
+   return $self;
+}
+
+
+sub needs_any
+{
+   my $class = shift;
+   my @subs = @_;
+
+   unless( @subs ) {
+      my $self = $class->fail( "Cannot ->needs_any with no subfutures" );
+      $self->{subs} = [];
+      return $self;
+   }
+
+   my $self = Future->_new_convergent( \@subs );
+
+   # Look for immediate done
+   my $immediate_done;
+   my $pending = 0;
+   foreach my $sub ( @subs ) {
+      $sub->{ready} and !$sub->{failure} and $immediate_done = $sub, last;
+      $sub->{ready} or $pending++;
+   }
+
+   if( $immediate_done ) {
+      foreach my $sub ( @subs ) {
+         $sub->{ready} ? $sub->{reported} = 1 : $sub->cancel;
+      }
+
+      $self->{result} = [ $immediate_done->get ];
+      $self->_mark_ready( "needs_any" );
+      return $self;
+   }
+
+   # Look for immediate fail
+   my $immediate_fail = 1;
+   foreach my $sub ( @subs ) {
+      $sub->{ready} or $immediate_fail = 0, last;
+   }
+
+   if( $immediate_fail ) {
+      $_->{reported} = 1 for @subs;
+      # For consistency we'll pick the last one for the failure
+      $self->{failure} = [ $subs[-1]->{failure} ];
+      $self->_mark_ready( "needs_any" );
+      return $self;
+   }
+
+   weaken( my $weakself = $self );
+   my $sub_on_ready = sub {
+      return unless my $self = $weakself;
+      return if $self->{result} or $self->{failure}; # don't recurse on child ->cancel
+
+      return if --$pending and $_[0]->{cancelled};
+
+      if( $_[0]->{cancelled} ) {
+         $self->{failure} = [ "All component futures were cancelled" ];
+         $self->_mark_ready( "needs_any" );
+      }
+      elsif( my @failure = $_[0]->failure ) {
+         $pending and return;
+
+         $self->{failure} = \@failure;
+         $self->_mark_ready( "needs_any" );
+      }
+      else {
+         $self->{result} = [ $_[0]->get ];
+         foreach my $sub ( @subs ) {
+            $sub->cancel if !$sub->{ready};
+         }
+         $self->_mark_ready( "needs_any" );
+      }
+   };
+
+   foreach my $sub ( @subs ) {
+      $sub->{ready} or $sub->on_ready( $sub_on_ready );
+   }
+
+   return $self;
+}
+
+
+
+sub pending_futures
+{
+   my $self = shift;
+   $self->{subs} or Carp::croak "Cannot call ->pending_futures on a non-convergent Future";
+   return grep { not $_->{ready} } @{ $self->{subs} };
+}
+
+sub ready_futures
+{
+   my $self = shift;
+   $self->{subs} or Carp::croak "Cannot call ->ready_futures on a non-convergent Future";
+   return grep { $_->{ready} } @{ $self->{subs} };
+}
+
+sub done_futures
+{
+   my $self = shift;
+   $self->{subs} or Carp::croak "Cannot call ->done_futures on a non-convergent Future";
+   return grep { $_->{ready} and not $_->{failure} and not $_->{cancelled} } @{ $self->{subs} };
+}
+
+sub failed_futures
+{
+   my $self = shift;
+   $self->{subs} or Carp::croak "Cannot call ->failed_futures on a non-convergent Future";
+   return grep { $_->{ready} and $_->{failure} } @{ $self->{subs} };
+}
+
+sub cancelled_futures
+{
+   my $self = shift;
+   $self->{subs} or Carp::croak "Cannot call ->cancelled_futures on a non-convergent Future";
+   return grep { $_->{ready} and $_->{cancelled} } @{ $self->{subs} };
+}
+
+
+sub set_label
+{
+   my $self = shift;
+   ( $self->{label} ) = @_;
+   return $self;
+}
+
+sub label
+{
+   my $self = shift;
+   return $self->{label};
+}
+
+sub __selfstr
+{
+   my $self = shift;
+   return "$self" unless defined $self->{label};
+   return "$self (\"$self->{label}\")";
+}
+
+
+sub btime
+{
+   my $self = shift;
+   return $self->{btime};
+}
+
+sub rtime
+{
+   my $self = shift;
+   return $self->{rtime};
+}
+
+
+sub elapsed
+{
+   my $self = shift;
+   return undef unless defined $self->{btime} and defined $self->{rtime};
+   return $self->{elapsed} ||= tv_interval( $self->{btime}, $self->{rtime} );
+}
+
+
+sub wrap_cb
+{
+   my $self = shift;
+   my ( $op, $cb ) = @_;
+   return $cb;
+}
+
+
+
+
+
+
+0x55AA;
+package bytes;
+
+sub length (_) {
+    BEGIN { bytes::import() }
+    return CORE::length($_[0]);
+}
+
+sub substr ($$;$$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::substr($_[0], $_[1]) :
+	@_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
+	          CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
+}
+
+sub ord (_) {
+    BEGIN { bytes::import() }
+    return CORE::ord($_[0]);
+}
+
+sub chr (_) {
+    BEGIN { bytes::import() }
+    return CORE::chr($_[0]);
+}
+
+sub index ($$;$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::index($_[0], $_[1]) :
+	          CORE::index($_[0], $_[1], $_[2]) ;
+}
+
+sub rindex ($$;$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::rindex($_[0], $_[1]) :
+	          CORE::rindex($_[0], $_[1], $_[2]) ;
+}
+
+1;
+package constant;
+use 5.008;
+use strict;
+use warnings::register;
+
+our $VERSION = '1.33';
+our %declared;
+
+#=======================================================================
+
+# Some names are evil choices.
+my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
+$keywords{UNITCHECK}++ if $] > 5.009;
+
+my %forced_into_main = map +($_, 1),
+    qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
+
+my %forbidden = (%keywords, %forced_into_main);
+
+my $normal_constant_name = qr/^_?[^\W_0-9]\w*\z/;
+my $tolerable = qr/^[A-Za-z_]\w*\z/;
+my $boolean = qr/^[01]?\z/;
+
+BEGIN {
+    # We'd like to do use constant _CAN_PCS => $] > 5.009002
+    # but that's a bit tricky before we load the constant module :-)
+    # By doing this, we save several run time checks for *every* call
+    # to import.
+    my $const = $] > 5.009002;
+    my $downgrade = $] < 5.015004; # && $] >= 5.008
+    my $constarray = exists &_make_const;
+    if ($const) {
+	Internals::SvREADONLY($const, 1);
+	Internals::SvREADONLY($downgrade, 1);
+	$constant::{_CAN_PCS}   = \$const;
+	$constant::{_DOWNGRADE} = \$downgrade;
+	$constant::{_CAN_PCS_FOR_ARRAY} = \$constarray;
+    }
+    else {
+	no strict 'refs';
+	*{"_CAN_PCS"}   = sub () {$const};
+	*{"_DOWNGRADE"} = sub () { $downgrade };
+	*{"_CAN_PCS_FOR_ARRAY"} = sub () { $constarray };
+    }
+}
+
+#=======================================================================
+# import() - import symbols into user's namespace
+#
+# What we actually do is define a function in the caller's namespace
+# which returns the value. The function we create will normally
+# be inlined as a constant, thereby avoiding further sub calling 
+# overhead.
+#=======================================================================
+sub import {
+    my $class = shift;
+    return unless @_;			# Ignore 'use constant;'
+    my $constants;
+    my $multiple  = ref $_[0];
+    my $caller = caller;
+    my $flush_mro;
+    my $symtab;
+
+    if (_CAN_PCS) {
+	no strict 'refs';
+	$symtab = \%{$caller . '::'};
+    };
+
+    if ( $multiple ) {
+	if (ref $_[0] ne 'HASH') {
+	    require Carp;
+	    Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
+	}
+	$constants = shift;
+    } else {
+	unless (defined $_[0]) {
+	    require Carp;
+	    Carp::croak("Can't use undef as constant name");
+	}
+	$constants->{+shift} = undef;
+    }
+
+    foreach my $name ( keys %$constants ) {
+	my $pkg;
+	my $symtab = $symtab;
+	my $orig_name = $name;
+	if ($name =~ s/(.*)(?:::|')(?=.)//s) {
+	    $pkg = $1;
+	    if (_CAN_PCS && $pkg ne $caller) {
+		no strict 'refs';
+		$symtab = \%{$pkg . '::'};
+	    }
+	}
+	else {
+	    $pkg = $caller;
+	}
+
+	# Normal constant name
+	if ($name =~ $normal_constant_name and !$forbidden{$name}) {
+	    # Everything is okay
+
+	# Name forced into main, but we're not in main. Fatal.
+	} elsif ($forced_into_main{$name} and $pkg ne 'main') {
+	    require Carp;
+	    Carp::croak("Constant name '$name' is forced into main::");
+
+	# Starts with double underscore. Fatal.
+	} elsif ($name =~ /^__/) {
+	    require Carp;
+	    Carp::croak("Constant name '$name' begins with '__'");
+
+	# Maybe the name is tolerable
+	} elsif ($name =~ $tolerable) {
+	    # Then we'll warn only if you've asked for warnings
+	    if (warnings::enabled()) {
+		if ($keywords{$name}) {
+		    warnings::warn("Constant name '$name' is a Perl keyword");
+		} elsif ($forced_into_main{$name}) {
+		    warnings::warn("Constant name '$name' is " .
+			"forced into package main::");
+		}
+	    }
+
+	# Looks like a boolean
+	# use constant FRED == fred;
+	} elsif ($name =~ $boolean) {
+            require Carp;
+	    if (@_) {
+		Carp::croak("Constant name '$name' is invalid");
+	    } else {
+		Carp::croak("Constant name looks like boolean value");
+	    }
+
+	} else {
+	   # Must have bad characters
+            require Carp;
+	    Carp::croak("Constant name '$name' has invalid characters");
+	}
+
+	{
+	    no strict 'refs';
+	    my $full_name = "${pkg}::$name";
+	    $declared{$full_name}++;
+	    if ($multiple || @_ == 1) {
+		my $scalar = $multiple ? $constants->{$orig_name} : $_[0];
+
+		if (_DOWNGRADE) { # for 5.8 to 5.14
+		    # Work around perl bug #31991: Sub names (actually glob
+		    # names in general) ignore the UTF8 flag. So we have to
+		    # turn it off to get the "right" symbol table entry.
+		    utf8::is_utf8 $name and utf8::encode $name;
+		}
+
+		# The constant serves to optimise this entire block out on
+		# 5.8 and earlier.
+		if (_CAN_PCS) {
+		    # Use a reference as a proxy for a constant subroutine.
+		    # If this is not a glob yet, it saves space.  If it is
+		    # a glob, we must still create it this way to get the
+		    # right internal flags set, as constants are distinct
+		    # from subroutines created with sub(){...}.
+		    # The check in Perl_ck_rvconst knows that inlinable
+		    # constants from cv_const_sv are read only. So we have to:
+		    Internals::SvREADONLY($scalar, 1);
+		    if (!exists $symtab->{$name}) {
+			$symtab->{$name} = \$scalar;
+			++$flush_mro->{$pkg};
+		    }
+		    else {
+			local $constant::{_dummy} = \$scalar;
+			*$full_name = \&{"_dummy"};
+		    }
+		} else {
+		    *$full_name = sub () { $scalar };
+		}
+	    } elsif (@_) {
+		my @list = @_;
+		if (_CAN_PCS_FOR_ARRAY) {
+		    _make_const($list[$_]) for 0..$#list;
+		    _make_const(@list);
+		    if (!exists $symtab->{$name}) {
+			$symtab->{$name} = \@list;
+			$flush_mro->{$pkg}++;
+		    }
+		    else {
+			local $constant::{_dummy} = \@list;
+			*$full_name = \&{"_dummy"};
+		    }
+		}
+		else { *$full_name = sub () { @list }; }
+	    } else {
+		*$full_name = sub () { };
+	    }
+	}
+    }
+    # Flush the cache exactly once if we make any direct symbol table changes.
+    if (_CAN_PCS && $flush_mro) {
+	mro::method_changed_in($_) for keys %$flush_mro;
+    }
+}
+
+1;
+
+__END__
+
+package AutoLoader;
+
+use strict;
+use 5.006_001;
+
+our($VERSION, $AUTOLOAD);
+
+my $is_dosish;
+my $is_epoc;
+my $is_vms;
+my $is_macos;
+
+BEGIN {
+    $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare';
+    $is_epoc = $^O eq 'epoc';
+    $is_vms = $^O eq 'VMS';
+    $is_macos = $^O eq 'MacOS';
+    $VERSION = '5.74';
+}
+
+AUTOLOAD {
+    my $sub = $AUTOLOAD;
+    autoload_sub($sub);
+    goto &$sub;
+}
+
+sub autoload_sub {
+    my $sub = shift;
+
+    my $filename = AutoLoader::find_filename( $sub );
+
+    my $save = $@;
+    local $!; # Do not munge the value. 
+    eval { local $SIG{__DIE__}; require $filename };
+    if ($@) {
+	if (substr($sub,-9) eq '::DESTROY') {
+	    no strict 'refs';
+	    *$sub = sub {};
+	    $@ = undef;
+	} elsif ($@ =~ /^Can't locate/) {
+	    # The load might just have failed because the filename was too
+	    # long for some old SVR3 systems which treat long names as errors.
+	    # If we can successfully truncate a long name then it's worth a go.
+	    # There is a slight risk that we could pick up the wrong file here
+	    # but autosplit should have warned about that when splitting.
+	    if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
+		eval { local $SIG{__DIE__}; require $filename };
+	    }
+	}
+	if ($@){
+	    $@ =~ s/ at .*\n//;
+	    my $error = $@;
+	    require Carp;
+	    Carp::croak($error);
+	}
+    }
+    $@ = $save;
+
+    return 1;
+}
+
+sub find_filename {
+    my $sub = shift;
+    my $filename;
+    # Braces used to preserve $1 et al.
+    {
+	# Try to find the autoloaded file from the package-qualified
+	# name of the sub. e.g., if the sub needed is
+	# Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is
+	# something like '/usr/lib/perl5/Getopt/Long.pm', and the
+	# autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'.
+	#
+	# However, if @INC is a relative path, this might not work.  If,
+	# for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is
+	# 'lib/Getopt/Long.pm', and we want to require
+	# 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib').
+	# In this case, we simple prepend the 'auto/' and let the
+	# C<require> take care of the searching for us.
+
+	my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/);
+	$pkg =~ s#::#/#g;
+	if (defined($filename = $INC{"$pkg.pm"})) {
+	    if ($is_macos) {
+		$pkg =~ tr#/#:#;
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
+	    } else {
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
+	    }
+
+	    # if the file exists, then make sure that it is a
+	    # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
+	    # or './lib/auto/foo/bar.al'.  This avoids C<require> searching
+	    # (and failing) to find the 'lib/auto/foo/bar.al' because it
+	    # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
+
+	    if (defined $filename and -r $filename) {
+		unless ($filename =~ m|^/|s) {
+		    if ($is_dosish) {
+			unless ($filename =~ m{^([a-z]:)?[\\/]}is) {
+			    if ($^O ne 'NetWare') {
+				$filename = "./$filename";
+			    } else {
+				$filename = "$filename";
+			    }
+			}
+		    }
+		    elsif ($is_epoc) {
+			unless ($filename =~ m{^([a-z?]:)?[\\/]}is) {
+			     $filename = "./$filename";
+			}
+		    }
+		    elsif ($is_vms) {
+			# XXX todo by VMSmiths
+			$filename = "./$filename";
+		    }
+		    elsif (!$is_macos) {
+			$filename = "./$filename";
+		    }
+		}
+	    }
+	    else {
+		$filename = undef;
+	    }
+	}
+	unless (defined $filename) {
+	    # let C<require> do the searching
+	    $filename = "auto/$sub.al";
+	    $filename =~ s#::#/#g;
+	}
+    }
+    return $filename;
+}
+
+sub import {
+    my $pkg = shift;
+    my $callpkg = caller;
+
+    #
+    # Export symbols, but not by accident of inheritance.
+    #
+
+    if ($pkg eq 'AutoLoader') {
+	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) {
+	    no strict 'refs';
+	    *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
+	}
+    }
+
+    #
+    # Try to find the autosplit index file.  Eg., if the call package
+    # is POSIX, then $INC{POSIX.pm} is something like
+    # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in
+    # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that.
+    #
+    # However, if @INC is a relative path, this might not work.  If,
+    # for example, @INC = ('lib'), then
+    # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require
+    # 'auto/POSIX/autosplit.ix' (without the leading 'lib').
+    #
+
+    (my $calldir = $callpkg) =~ s#::#/#g;
+    my $path = $INC{$calldir . '.pm'};
+    if (defined($path)) {
+	# Try absolute path name, but only eval it if the
+        # transformation from module path to autosplit.ix path
+        # succeeded!
+	my $replaced_okay;
+	if ($is_macos) {
+	    (my $malldir = $calldir) =~ tr#/#:#;
+	    $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
+	} else {
+	    $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#);
+	}
+
+	eval { require $path; } if $replaced_okay;
+	# If that failed, try relative path with normal @INC searching.
+	if (!$replaced_okay or $@) {
+	    $path ="auto/$calldir/autosplit.ix";
+	    eval { require $path; };
+	}
+	if ($@) {
+	    my $error = $@;
+	    require Carp;
+	    Carp::carp($error);
+	}
+    } 
+}
+
+sub unimport {
+    my $callpkg = caller;
+
+    no strict 'refs';
+
+    for my $exported (qw( AUTOLOAD )) {
+	my $symname = $callpkg . '::' . $exported;
+	undef *{ $symname } if \&{ $symname } == \&{ $exported };
+	*{ $symname } = \&{ $symname };
+    }
+}
+
+1;
+
+__END__
+
+require 5.014;			# For more reliable $@ after eval
+package dumpvar;
+
+# Needed for PrettyPrinter only:
+
+# require 5.001;  # Well, it coredumps anyway undef DB in 5.000 (not now)
+
+# translate control chars to ^X - Randal Schwartz
+# Modifications to print types by Peter Gordon v1.0
+
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+
+# Won't dump symbol tables and contents of debugged files by default
+
+$winsize = 80 unless defined $winsize;
+
+sub ASCII { return ord('A') == 65; }
+
+
+# Defaults
+
+# $globPrint = 1;
+$printUndef = 1 unless defined $printUndef;
+$tick = "auto" unless defined $tick;
+$unctrl = 'quote' unless defined $unctrl;
+$subdump = 1;
+$dumpReused = 0 unless defined $dumpReused;
+$bareStringify = 1 unless defined $bareStringify;
+
+my $APC = chr utf8::unicode_to_native(0x9F);
+my $backslash_c_question = (ASCII) ? '\177' : $APC;
+
+sub main::dumpValue {
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  (print &stringify($_[0]), "\n"), return unless ref $_[0];
+  push @_, -1 if @_ == 1;
+  dumpvar::unwrap($_[0], 0, $_[1]);
+}
+
+# This one is good for variable names:
+
+sub unctrl {
+    for (my($dummy) = shift) {
+	local($v) ; 
+
+	return \$_ if ref \$_ eq "GLOB";
+        s/([\000-\037])/ '^' . chr(utf8::unicode_to_native(ord($1)^64))/eg;
+        s/ $backslash_c_question /^?/xg;
+	return $_;
+    }
+}
+
+sub uniescape {
+    join("",
+	 map { $_ > 255 ? sprintf("\\x{%04X}", $_) : chr($_) }
+	     unpack("W*", $_[0]));
+}
+
+sub stringify {
+  my $string;
+  if (eval { $string = _stringify(@_); 1 }) {
+    return $string;
+  }
+
+  return "<< value could not be dumped: $@ >>";
+}
+
+sub _stringify {
+    (my $__, local $noticks) = @_;
+    for ($__) {
+	local($v) ; 
+	my $tick = $tick;
+
+	return 'undef' unless defined $_ or not $printUndef;
+	return $_ . "" if ref \$_ eq 'GLOB';
+	$_ = &{'overload::StrVal'}($_) 
+	  if $bareStringify and ref $_ 
+	    and %overload:: and defined &{'overload::StrVal'};
+	
+	if ($tick eq 'auto') {
+            if (/[^[:^cntrl:]\n]/u) {   # All controls but \n get '"'
+                $tick = '"';
+            } else {
+                $tick = "'";
+            }
+	}
+	if ($tick eq "'") {
+	  s/([\'\\])/\\$1/g;
+	} elsif ($unctrl eq 'unctrl') {
+	  s/([\"\\])/\\$1/g ;
+          $_ = &unctrl($_);
+	  # uniescape?
+	  s/([[:^ascii:]])/'\\0x'.sprintf('%2X',ord($1))/eg
+	    if $quoteHighBit;
+	} elsif ($unctrl eq 'quote') {
+	  s/([\"\\\$\@])/\\$1/g if $tick eq '"';
+	  s/\e/\\e/g;
+          s/([\000-\037$backslash_c_question])/'\\c'._escaped_ord($1)/eg;
+	}
+	$_ = uniescape($_);
+	s/([[:^ascii:]])/'\\'.sprintf('%3o',ord($1))/eg if $quoteHighBit;
+	return ($noticks || /^\d+(\.\d*)?\Z/) 
+	  ? $_ 
+	  : $tick . $_ . $tick;
+    }
+}
+
+# Ensure a resulting \ is escaped to be \\
+sub _escaped_ord {
+    my $chr = shift;
+    if ($chr eq $backslash_c_question) {
+        $chr = '?';
+    }
+    else {
+        $chr = chr(utf8::unicode_to_native(ord($chr)^64));
+        $chr =~ s{\\}{\\\\}g;
+    }
+    return $chr;
+}
+
+sub ShortArray {
+  my $tArrayDepth = $#{$_[0]} ; 
+  $tArrayDepth = $#{$_[0]} < $arrayDepth-1 ? $#{$_[0]} : $arrayDepth-1 
+    unless  $arrayDepth eq '' ; 
+  my $shortmore = "";
+  $shortmore = " ..." if $tArrayDepth < $#{$_[0]} ;
+  if (!grep(ref $_, @{$_[0]})) {
+    $short = "0..$#{$_[0]}  '" . 
+      join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore";
+    return $short if length $short <= $compactDump;
+  }
+  undef;
+}
+
+sub DumpElem {
+  my $short = &stringify($_[0], ref $_[0]);
+  if ($veryCompact && ref $_[0]
+      && (ref $_[0] eq 'ARRAY' and !grep(ref $_, @{$_[0]}) )) {
+    my $end = "0..$#{$v}  '" . 
+      join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore";
+  } elsif ($veryCompact && ref $_[0]
+      && (ref $_[0] eq 'HASH') and !grep(ref $_, values %{$_[0]})) {
+    my $end = 1;
+	  $short = $sp . "0..$#{$v}  '" . 
+	    join("' '", @{$v}[0..$tArrayDepth]) . "'$shortmore";
+  } else {
+    print "$short\n";
+    unwrap($_[0],$_[1],$_[2]) if ref $_[0];
+  }
+}
+
+sub unwrap {
+    return if $DB::signal;
+    local($v) = shift ; 
+    local($s) = shift ; # extra no of spaces
+    local($m) = shift ; # maximum recursion depth
+    return if $m == 0;
+    local(%v,@v,$sp,$value,$key,@sortKeys,$more,$shortmore,$short) ;
+    local($tHashDepth,$tArrayDepth) ;
+
+    $sp = " " x $s ;
+    $s += 3 ; 
+
+    eval {
+    # Check for reused addresses
+    if (ref $v) { 
+      my $val = $v;
+      $val = &{'overload::StrVal'}($v) 
+	if %overload:: and defined &{'overload::StrVal'};
+      # Match type and address.                      
+      # Unblessed references will look like TYPE(0x...)
+      # Blessed references will look like Class=TYPE(0x...)
+      $val =~ s/^.*=//; # suppress the Class part, just keep TYPE(0x...)
+      ($item_type, $address) = 
+        $val =~ /([^\(]+)        # Keep stuff that's     
+                                 # not an open paren
+                 \(              # Skip open paren
+                 (0x[0-9a-f]+)   # Save the address
+                 \)              # Skip close paren
+                 $/x;            # Should be at end now
+
+      if (!$dumpReused && defined $address) { 
+	$address{$address}++ ;
+	if ( $address{$address} > 1 ) { 
+	  print "${sp}-> REUSED_ADDRESS\n" ; 
+	  return ; 
+	} 
+      }
+    } elsif (ref \$v eq 'GLOB') {
+      # This is a raw glob. Special handling for that.
+      $address = "$v" . "";	# To avoid a bug with globs
+      $address{$address}++ ;
+      if ( $address{$address} > 1 ) { 
+	print "${sp}*DUMPED_GLOB*\n" ; 
+	return ; 
+      } 
+    }
+
+    if (ref $v eq 'Regexp') {
+      # Reformat the regexp to look the standard way.
+      my $re = "$v";
+      $re =~ s,/,\\/,g;
+      print "$sp-> qr/$re/\n";
+      return;
+    }
+
+    if ( $item_type eq 'HASH' ) { 
+        # Hash ref or hash-based object.
+	my @sortKeys = sort keys(%$v) ;
+	undef $more ; 
+	$tHashDepth = $#sortKeys ; 
+	$tHashDepth = $#sortKeys < $hashDepth-1 ? $#sortKeys : $hashDepth-1
+	  unless $hashDepth eq '' ; 
+	$more = "....\n" if $tHashDepth < $#sortKeys ; 
+	$shortmore = "";
+	$shortmore = ", ..." if $tHashDepth < $#sortKeys ; 
+	$#sortKeys = $tHashDepth ; 
+	if ($compactDump && !grep(ref $_, values %{$v})) {
+	  #$short = $sp . 
+	  #  (join ', ', 
+# Next row core dumps during require from DB on 5.000, even with map {"_"}
+	  #   map {&stringify($_) . " => " . &stringify($v->{$_})} 
+	  #   @sortKeys) . "'$shortmore";
+	  $short = $sp;
+	  my @keys;
+	  for (@sortKeys) {
+	    push @keys, &stringify($_) . " => " . &stringify($v->{$_});
+	  }
+	  $short .= join ', ', @keys;
+	  $short .= $shortmore;
+	  (print "$short\n"), return if length $short <= $compactDump;
+	}
+	for $key (@sortKeys) {
+	    return if $DB::signal;
+	    $value = $ {$v}{$key} ;
+	    print "$sp", &stringify($key), " => ";
+	    DumpElem $value, $s, $m-1;
+	}
+	print "$sp  empty hash\n" unless @sortKeys;
+	print "$sp$more" if defined $more ;
+    } elsif ( $item_type eq 'ARRAY' ) { 
+        # Array ref or array-based object. Also: undef.
+        # See how big the array is.
+	$tArrayDepth = $#{$v} ; 
+	undef $more ; 
+        # Bigger than the max?
+	$tArrayDepth = $#{$v} < $arrayDepth-1 ? $#{$v} : $arrayDepth-1 
+	  if defined $arrayDepth && $arrayDepth ne '';
+        # Yep. Don't show it all.
+	$more = "....\n" if $tArrayDepth < $#{$v} ; 
+	$shortmore = "";
+	$shortmore = " ..." if $tArrayDepth < $#{$v} ;
+
+	if ($compactDump && !grep(ref $_, @{$v})) {
+	  if ($#$v >= 0) {
+	    $short = $sp . "0..$#{$v}  " . 
+	      join(" ", 
+		   map {exists $v->[$_] ? stringify $v->[$_] : "empty"} (0..$tArrayDepth)
+		  ) . "$shortmore";
+	  } else {
+	    $short = $sp . "empty array";
+	  }
+	  (print "$short\n"), return if length $short <= $compactDump;
+	}
+	#if ($compactDump && $short = ShortArray($v)) {
+	#  print "$short\n";
+	#  return;
+	#}
+	for $num (0 .. $tArrayDepth) {
+	    return if $DB::signal;
+	    print "$sp$num  ";
+	    if (exists $v->[$num]) {
+                if (defined $v->[$num]) {
+	          DumpElem $v->[$num], $s, $m-1;
+                } 
+                else {
+                  print "undef\n";
+                }
+	    } else {
+	    	print "empty slot\n";
+	    }
+	}
+	print "$sp  empty array\n" unless @$v;
+	print "$sp$more" if defined $more ;  
+    } elsif ( $item_type eq 'SCALAR' ) { 
+            unless (defined $$v) {
+              print "$sp-> undef\n";
+              return;
+            }
+	    print "$sp-> ";
+	    DumpElem $$v, $s, $m-1;
+    } elsif ( $item_type eq 'REF' ) { 
+	    print "$sp-> $$v\n";
+            return unless defined $$v;
+	    unwrap($$v, $s+3, $m-1);
+    } elsif ( $item_type eq 'CODE' ) { 
+            # Code object or reference.
+	    print "$sp-> ";
+	    dumpsub (0, $v);
+    } elsif ( $item_type eq 'GLOB' ) {
+      # Glob object or reference.
+      print "$sp-> ",&stringify($$v,1),"\n";
+      if ($globPrint) {
+	$s += 3;
+       dumpglob($s, "{$$v}", $$v, 1, $m-1);
+      } elsif (defined ($fileno = eval {fileno($v)})) {
+	print( (' ' x ($s+3)) .  "FileHandle({$$v}) => fileno($fileno)\n" );
+      }
+    } elsif (ref \$v eq 'GLOB') {
+      # Raw glob (again?)
+      if ($globPrint) {
+       dumpglob($s, "{$v}", $v, 1, $m-1) if $globPrint;
+      } elsif (defined ($fileno = eval {fileno(\$v)})) {
+	print( (' ' x $s) .  "FileHandle({$v}) => fileno($fileno)\n" );
+      }
+    }
+    };
+    if ($@) {
+      print( (' ' x $s) .  "<< value could not be dumped: $@ >>\n");
+    }
+
+    return;
+}
+
+sub matchlex {
+  (my $var = $_[0]) =~ s/.//;
+  $var eq $_[1] or 
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and 
+      ($1 eq '!') ^ (eval { $var =~ /$2$3/ });
+}
+
+sub matchvar {
+  $_[0] eq $_[1] or 
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and 
+      ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/});
+}
+
+sub compactDump {
+  $compactDump = shift if @_;
+  $compactDump = 6*80-1 if $compactDump and $compactDump < 2;
+  $compactDump;
+}
+
+sub veryCompact {
+  $veryCompact = shift if @_;
+  compactDump(1) if !$compactDump and $veryCompact;
+  $veryCompact;
+}
+
+sub unctrlSet {
+  if (@_) {
+    my $in = shift;
+    if ($in eq 'unctrl' or $in eq 'quote') {
+      $unctrl = $in;
+    } else {
+      print "Unknown value for 'unctrl'.\n";
+    }
+  }
+  $unctrl;
+}
+
+sub quote {
+  if (@_ and $_[0] eq '"') {
+    $tick = '"';
+    $unctrl = 'quote';
+  } elsif (@_ and $_[0] eq 'auto') {
+    $tick = 'auto';
+    $unctrl = 'quote';
+  } elsif (@_) {		# Need to set
+    $tick = "'";
+    $unctrl = 'unctrl';
+  }
+  $tick;
+}
+
+sub dumpglob {
+    return if $DB::signal;
+    my ($off,$key, $val, $all, $m) = @_;
+    local(*entry) = $val;
+    my $fileno;
+    if (($key !~ /^_</ or $dumpDBFiles) and defined $entry) {
+      print( (' ' x $off) . "\$", &unctrl($key), " = " );
+      DumpElem $entry, 3+$off, $m;
+    }
+    if (($key !~ /^_</ or $dumpDBFiles) and @entry) {
+      print( (' ' x $off) . "\@$key = (\n" );
+      unwrap(\@entry,3+$off,$m) ;
+      print( (' ' x $off) .  ")\n" );
+    }
+    if ($key ne "main::" && $key ne "DB::" && %entry
+	&& ($dumpPackages or $key !~ /::$/)
+	&& ($key !~ /^_</ or $dumpDBFiles)
+	&& !($package eq "dumpvar" and $key eq "stab")) {
+      print( (' ' x $off) . "\%$key = (\n" );
+      unwrap(\%entry,3+$off,$m) ;
+      print( (' ' x $off) .  ")\n" );
+    }
+    if (defined ($fileno = eval{fileno(*entry)})) {
+      print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+    }
+    if ($all) {
+      if (defined &entry) {
+	dumpsub($off, $key);
+      }
+    }
+}
+
+sub dumplex {
+  return if $DB::signal;
+  my ($key, $val, $m, @vars) = @_;
+  return if @vars && !grep( matchlex($key, $_), @vars );
+  local %address;
+  my $off = 0;  # It reads better this way
+  my $fileno;
+  if (UNIVERSAL::isa($val,'ARRAY')) {
+    print( (' ' x $off) . "$key = (\n" );
+    unwrap($val,3+$off,$m) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  elsif (UNIVERSAL::isa($val,'HASH')) {
+    print( (' ' x $off) . "$key = (\n" );
+    unwrap($val,3+$off,$m) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  elsif (UNIVERSAL::isa($val,'IO')) {
+    print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+  }
+  #  No lexical subroutines yet...
+  #  elsif (UNIVERSAL::isa($val,'CODE')) {
+  #    dumpsub($off, $$val);
+  #  }
+  else {
+    print( (' ' x $off) . &unctrl($key), " = " );
+    DumpElem $$val, 3+$off, $m;
+  }
+}
+
+sub CvGV_name_or_bust {
+  my $in = shift;
+  return if $skipCvGV;		# Backdoor to avoid problems if XS broken...
+  $in = \&$in;			# Hard reference...
+  eval {require Devel::Peek; 1} or return;
+  my $gv = Devel::Peek::CvGV($in) or return;
+  *$gv{PACKAGE} . '::' . *$gv{NAME};
+}
+
+sub dumpsub {
+    my ($off,$sub) = @_;
+    my $ini = $sub;
+    my $s;
+    $sub = $1 if $sub =~ /^\{\*(.*)\}$/;
+    my $subref = defined $1 ? \&$sub : \&$ini;
+    my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
+      || (($s = CvGV_name_or_bust($subref)) && $DB::sub{$s})
+      || ($subdump && ($s = findsubs("$subref")) && $DB::sub{$s});
+    $place = '???' unless defined $place;
+    $s = $sub unless defined $s;
+    print( (' ' x $off) .  "&$s in $place\n" );
+}
+
+sub findsubs {
+  return undef unless %DB::sub;
+  my ($addr, $name, $loc);
+  while (($name, $loc) = each %DB::sub) {
+    $addr = \&$name;
+    $subs{"$addr"} = $name;
+  }
+  $subdump = 0;
+  $subs{ shift() };
+}
+
+sub main::dumpvar {
+    my ($package,$m,@vars) = @_;
+    local(%address,$key,$val,$^W);
+    $package .= "::" unless $package =~ /::$/;
+    *stab = *{"main::"};
+    while ($package =~ /(\w+?::)/g){
+      *stab = $ {stab}{$1};
+    }
+    local $TotalStrings = 0;
+    local $Strings = 0;
+    local $CompleteTotal = 0;
+    while (($key,$val) = each(%stab)) {
+      return if $DB::signal;
+      next if @vars && !grep( matchvar($key, $_), @vars );
+      if ($usageOnly) {
+	globUsage(\$val, $key)
+	  if ($package ne 'dumpvar' or $key ne 'stab')
+	     and ref(\$val) eq 'GLOB';
+      } else {
+       dumpglob(0,$key, $val, 0, $m);
+      }
+    }
+    if ($usageOnly) {
+      print "String space: $TotalStrings bytes in $Strings strings.\n";
+      $CompleteTotal += $TotalStrings;
+      print "Grand total = $CompleteTotal bytes (1 level deep) + overhead.\n";
+    }
+}
+
+sub scalarUsage {
+  my $size = length($_[0]);
+  $TotalStrings += $size;
+  $Strings++;
+  $size;
+}
+
+sub arrayUsage {		# array ref, name
+  my $size = 0;
+  map {$size += scalarUsage($_)} @{$_[0]};
+  my $len = @{$_[0]};
+  print "\@$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (data: $size bytes)\n"
+      if defined $_[1];
+  $CompleteTotal +=  $size;
+  $size;
+}
+
+sub hashUsage {		# hash ref, name
+  my @keys = keys %{$_[0]};
+  my @values = values %{$_[0]};
+  my $keys = arrayUsage \@keys;
+  my $values = arrayUsage \@values;
+  my $len = @keys;
+  my $total = $keys + $values;
+  print "\%$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (keys: $keys; values: $values; total: $total bytes)\n"
+      if defined $_[1];
+  $total;
+}
+
+sub globUsage {			# glob ref, name
+  local *name = *{$_[0]};
+  $total = 0;
+  $total += scalarUsage $name if defined $name;
+  $total += arrayUsage \@name, $_[1] if @name;
+  $total += hashUsage \%name, $_[1] if %name and $_[1] ne "main::" 
+    and $_[1] ne "DB::";   #and !($package eq "dumpvar" and $key eq "stab"));
+  $total;
+}
+
+sub packageUsage {
+  my ($package,@vars) = @_;
+  $package .= "::" unless $package =~ /::$/;
+  local *stab = *{"main::"};
+  while ($package =~ /(\w+?::)/g){
+    *stab = $ {stab}{$1};
+  }
+  local $TotalStrings = 0;
+  local $CompleteTotal = 0;
+  my ($key,$val);
+  while (($key,$val) = each(%stab)) {
+    next if @vars && !grep($key eq $_,@vars);
+    globUsage \$val, $key unless $package eq 'dumpvar' and $key eq 'stab';
+  }
+  print "String space: $TotalStrings.\n";
+  $CompleteTotal += $TotalStrings;
+  print "\nGrand total = $CompleteTotal bytes\n";
+}
+
+1;
+
+package deprecate;
+use strict;
+use warnings;
+our $VERSION = 0.03;
+
+# our %Config can ignore %Config::Config, e.g. for testing
+our %Config;
+unless (%Config) { require Config; *Config = \%Config::Config; }
+
+# This isn't a public API. It's internal to code maintained by the perl-porters
+# If you would like it to be a public API, please send a patch with
+# documentation and tests. Until then, it may change without warning.
+sub __loaded_from_core {
+    my ($package, $file, $expect_leaf) = @_;
+
+    foreach my $pair ([qw(sitearchexp archlibexp)],
+		      [qw(sitelibexp privlibexp)]) {
+	my ($site, $priv) = @Config{@$pair};
+	if ($^O eq 'VMS') {
+	    for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) };
+	}
+	# Just in case anyone managed to configure with trailing /s
+	s!/*$!!g foreach $site, $priv;
+
+	next if $site eq $priv;
+	if (uc("$priv/$expect_leaf") eq uc($file)) {
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+sub import {
+    my ($package, $file) = caller;
+
+    my $expect_leaf = "$package.pm";
+    $expect_leaf =~ s!::!/!g;
+
+    if (__loaded_from_core($package, $file, $expect_leaf)) {
+	my $call_depth=1;
+	my @caller;
+	while (@caller = caller $call_depth++) {
+	    last if $caller[7]			# use/require
+		and $caller[6] eq $expect_leaf;	# the package file
+	}
+	unless (@caller) {
+	    require Carp;
+	    Carp::cluck(<<"EOM");
+Can't find use/require $expect_leaf in caller stack
+EOM
+	    return;
+	}
+
+	# This is fragile, because it
+	# is directly poking in the internals of warnings.pm
+	my ($call_file, $call_line, $callers_bitmask) = @caller[1,2,9];
+
+	if (defined $callers_bitmask
+	    && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1)
+		|| vec($callers_bitmask, $warnings::Offsets{all}, 1))) {
+	    warn <<"EOM";
+$package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line.
+EOM
+	}
+    }
+}
+
+1;
+
+__END__
+
+package AutoSplit;
+
+use Exporter ();
+use Config qw(%Config);
+use File::Basename ();
+use File::Path qw(mkpath);
+use File::Spec::Functions qw(curdir catfile catdir);
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
+    $CheckForAutoloader, $CheckModTime);
+
+$VERSION = "1.06";
+@ISA = qw(Exporter);
+@EXPORT = qw(&autosplit &autosplit_lib_modules);
+@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
+
+
+# for portability warn about names longer than $maxlen
+$Maxlen  = 8;	# 8 for dos, 11 (14-".al") for SYSVR3
+$Verbose = 1;	# 0=none, 1=minimal, 2=list .al files
+$Keep    = 0;
+$CheckForAutoloader = 1;
+$CheckModTime = 1;
+
+my $IndexFile = "autosplit.ix";	# file also serves as timestamp
+my $maxflen = 255;
+$maxflen = 14 if $Config{'d_flexfnam'} ne 'define';
+if (defined (&Dos::UseLFN)) {
+     $maxflen = Dos::UseLFN() ? 255 : 11;
+}
+my $Is_VMS = ($^O eq 'VMS');
+
+# allow checking for valid ': attrlist' attachments.
+# extra jugglery required to support both 5.8 and 5.9/5.10 features
+# (support for 5.8 required for cross-compiling environments)
+
+my $attr_list = 
+  $] >= 5.009005 ?
+  eval <<'__QR__'
+  qr{
+    \s* : \s*
+    (?:
+	# one attribute
+	(?> # no backtrack
+	    (?! \d) \w+
+	    (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ?
+	)
+	(?: \s* : \s* | \s+ (?! :) )
+    )*
+  }x
+__QR__
+  :
+  do {
+    # In pre-5.9.5 world we have to do dirty tricks.
+    # (we use 'our' rather than 'my' here, due to the rather complex and buggy
+    # behaviour of lexicals with qr// and (??{$lex}) )
+    our $trick1; # yes, cannot our and assign at the same time.
+    $trick1 = qr{ \( (?: (?> [^()]+ ) | (??{ $trick1 }) )* \) }x;
+    our $trick2 = qr{ (?> (?! \d) \w+ (?:$trick1)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
+    qr{ \s* : \s* (?: $trick2 )* }x;
+  };
+
+sub autosplit{
+    my($file, $autodir,  $keep, $ckal, $ckmt) = @_;
+    # $file    - the perl source file to be split (after __END__)
+    # $autodir - the ".../auto" dir below which to write split subs
+    # Handle optional flags:
+    $keep = $Keep unless defined $keep;
+    $ckal = $CheckForAutoloader unless defined $ckal;
+    $ckmt = $CheckModTime unless defined $ckmt;
+    autosplit_file($file, $autodir, $keep, $ckal, $ckmt);
+}
+
+sub carp{
+    require Carp;
+    goto &Carp::carp;
+}
+
+# This function is used during perl building/installation
+# ./miniperl -e 'use AutoSplit; autosplit_lib_modules(@ARGV)' ...
+
+sub autosplit_lib_modules {
+    my(@modules) = @_; # list of Module names
+    local $_; # Avoid clobber.
+    while (defined($_ = shift @modules)) {
+	while (m#([^:]+)::([^:].*)#) { # in case specified as ABC::XYZ
+	    $_ = catfile($1, $2);
+	}
+	s|\\|/|g;		# bug in ksh OS/2
+	s#^lib/##s; # incase specified as lib/*.pm
+	my($lib) = catfile(curdir(), "lib");
+	if ($Is_VMS) { # may need to convert VMS-style filespecs
+	    $lib =~ s#^\[\]#.\/#;
+	}
+	s#^$lib\W+##s; # incase specified as ./lib/*.pm
+	if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs
+	    my ($dir,$name) = (/(.*])(.*)/s);
+	    $dir =~ s/.*lib[\.\]]//s;
+	    $dir =~ s#[\.\]]#/#g;
+	    $_ = $dir . $name;
+	}
+	autosplit_file(catfile($lib, $_), catfile($lib, "auto"),
+		       $Keep, $CheckForAutoloader, $CheckModTime);
+    }
+    0;
+}
+
+
+# private functions
+
+my $self_mod_time = (stat __FILE__)[9];
+
+sub autosplit_file {
+    my($filename, $autodir, $keep, $check_for_autoloader, $check_mod_time)
+	= @_;
+    my(@outfiles);
+    local($_);
+    local($/) = "\n";
+
+    # where to write output files
+    $autodir ||= catfile(curdir(), "lib", "auto");
+    if ($Is_VMS) {
+	($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/\z||;
+	$filename = VMS::Filespec::unixify($filename); # may have dirs
+    }
+    unless (-d $autodir){
+	mkpath($autodir,0,0755);
+	# We should never need to create the auto dir
+	# here. installperl (or similar) should have done
+	# it. Expecting it to exist is a valuable sanity check against
+	# autosplitting into some random directory by mistake.
+	print "Warning: AutoSplit had to create top-level " .
+	    "$autodir unexpectedly.\n";
+    }
+
+    # allow just a package name to be used
+    $filename .= ".pm" unless ($filename =~ m/\.pm\z/);
+
+    open(my $in, "<$filename") or die "AutoSplit: Can't open $filename: $!\n";
+    my($pm_mod_time) = (stat($filename))[9];
+    my($autoloader_seen) = 0;
+    my($in_pod) = 0;
+    my($def_package,$last_package,$this_package,$fnr);
+    while (<$in>) {
+	# Skip pod text.
+	$fnr++;
+	$in_pod = 1 if /^=\w/;
+	$in_pod = 0 if /^=cut/;
+	next if ($in_pod || /^=cut/);
+        next if /^\s*#/;
+
+	# record last package name seen
+	$def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);
+	++$autoloader_seen if m/^\s*(use|require)\s+AutoLoader\b/;
+	++$autoloader_seen if m/\bISA\s*=.*\bAutoLoader\b/;
+	last if /^__END__/;
+    }
+    if ($check_for_autoloader && !$autoloader_seen){
+	print "AutoSplit skipped $filename: no AutoLoader used\n"
+	    if ($Verbose>=2);
+	return 0;
+    }
+    $_ or die "Can't find __END__ in $filename\n";
+
+    $def_package or die "Can't find 'package Name;' in $filename\n";
+
+    my($modpname) = _modpname($def_package); 
+
+    # this _has_ to match so we have a reasonable timestamp file
+    die "Package $def_package ($modpname.pm) does not ".
+	"match filename $filename"
+	    unless ($filename =~ m/\Q$modpname.pm\E$/ or
+		    ($^O eq 'dos') or ($^O eq 'MSWin32') or ($^O eq 'NetWare') or
+	            $Is_VMS && $filename =~ m/$modpname.pm/i);
+
+    my($al_idx_file) = catfile($autodir, $modpname, $IndexFile);
+
+    if ($check_mod_time){
+	my($al_ts_time) = (stat("$al_idx_file"))[9] || 1;
+	if ($al_ts_time >= $pm_mod_time and
+	    $al_ts_time >= $self_mod_time){
+	    print "AutoSplit skipped ($al_idx_file newer than $filename)\n"
+		if ($Verbose >= 2);
+	    return undef;	# one undef, not a list
+	}
+    }
+
+    my($modnamedir) = catdir($autodir, $modpname);
+    print "AutoSplitting $filename ($modnamedir)\n"
+	if $Verbose;
+
+    unless (-d $modnamedir){
+	mkpath($modnamedir,0,0777);
+    }
+
+    # We must try to deal with some SVR3 systems with a limit of 14
+    # characters for file names. Sadly we *cannot* simply truncate all
+    # file names to 14 characters on these systems because we *must*
+    # create filenames which exactly match the names used by AutoLoader.pm.
+    # This is a problem because some systems silently truncate the file
+    # names while others treat long file names as an error.
+
+    my $Is83 = $maxflen==11;  # plain, case INSENSITIVE dos filenames
+
+    my(@subnames, $subname, %proto, %package);
+    my @cache = ();
+    my $caching = 1;
+    $last_package = '';
+    my $out;
+    while (<$in>) {
+	$fnr++;
+	$in_pod = 1 if /^=\w/;
+	$in_pod = 0 if /^=cut/;
+	next if ($in_pod || /^=cut/);
+	# the following (tempting) old coding gives big troubles if a
+	# cut is forgotten at EOF:
+	# next if /^=\w/ .. /^=cut/;
+	if (/^package\s+([\w:]+)\s*;/) {
+	    $this_package = $def_package = $1;
+	}
+
+	if (/^sub\s+([\w:]+)(\s*(?:\(.*?\))?(?:$attr_list)?)/) {
+	    print $out "# end of $last_package\::$subname\n1;\n"
+		if $last_package;
+	    $subname = $1;
+	    my $proto = $2 || '';
+	    if ($subname =~ s/(.*):://){
+		$this_package = $1;
+	    } else {
+		$this_package = $def_package;
+	    }
+	    my $fq_subname = "$this_package\::$subname";
+	    $package{$fq_subname} = $this_package;
+	    $proto{$fq_subname} = $proto;
+	    push(@subnames, $fq_subname);
+	    my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3));
+	    $modpname = _modpname($this_package);
+            my($modnamedir) = catdir($autodir, $modpname);
+	    mkpath($modnamedir,0,0777);
+	    my($lpath) = catfile($modnamedir, "$lname.al");
+	    my($spath) = catfile($modnamedir, "$sname.al");
+	    my $path;
+
+	    if (!$Is83 and open($out, ">$lpath")){
+	        $path=$lpath;
+		print "  writing $lpath\n" if ($Verbose>=2);
+	    } else {
+		open($out, ">$spath") or die "Can't create $spath: $!\n";
+		$path=$spath;
+		print "  writing $spath (with truncated name)\n"
+			if ($Verbose>=1);
+	    }
+	    push(@outfiles, $path);
+	    my $lineno = $fnr - @cache;
+	    print $out <<EOT;
+# NOTE: Derived from $filename.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package $this_package;
+
+#line $lineno "$filename (autosplit into $path)"
+EOT
+	    print $out @cache;
+	    @cache = ();
+	    $caching = 0;
+	}
+	if($caching) {
+	    push(@cache, $_) if @cache || /\S/;
+	} else {
+	    print $out $_;
+	}
+	if(/^\}/) {
+	    if($caching) {
+		print $out @cache;
+		@cache = ();
+	    }
+	    print $out "\n";
+	    $caching = 1;
+	}
+	$last_package = $this_package if defined $this_package;
+    }
+    if ($subname) {
+	print $out @cache,"1;\n# end of $last_package\::$subname\n";
+	close($out);
+    }
+    close($in);
+    
+    if (!$keep){  # don't keep any obsolete *.al files in the directory
+	my(%outfiles);
+	# @outfiles{@outfiles} = @outfiles;
+	# perl downcases all filenames on VMS (which upcases all filenames) so
+	# we'd better downcase the sub name list too, or subs with upper case
+	# letters in them will get their .al files deleted right after they're
+	# created. (The mixed case sub name won't match the all-lowercase
+	# filename, and so be cleaned up as a scrap file)
+	if ($Is_VMS or $Is83) {
+	    %outfiles = map {lc($_) => lc($_) } @outfiles;
+	} else {
+	    @outfiles{@outfiles} = @outfiles;
+	}  
+	my(%outdirs,@outdirs);
+	for (@outfiles) {
+	    $outdirs{File::Basename::dirname($_)}||=1;
+	}
+	for my $dir (keys %outdirs) {
+	    opendir(my $outdir,$dir);
+	    foreach (sort readdir($outdir)){
+		next unless /\.al\z/;
+		my($file) = catfile($dir, $_);
+		$file = lc $file if $Is83 or $Is_VMS;
+		next if $outfiles{$file};
+		print "  deleting $file\n" if ($Verbose>=2);
+		my($deleted,$thistime);  # catch all versions on VMS
+		do { $deleted += ($thistime = unlink $file) } while ($thistime);
+		carp ("Unable to delete $file: $!") unless $deleted;
+	    }
+	    closedir($outdir);
+	}
+    }
+
+    open(my $ts,">$al_idx_file") or
+	carp ("AutoSplit: unable to create timestamp file ($al_idx_file): $!");
+    print $ts "# Index created by AutoSplit for $filename\n";
+    print $ts "#    (file acts as timestamp)\n";
+    $last_package = '';
+    for my $fqs (@subnames) {
+	my($subname) = $fqs;
+	$subname =~ s/.*:://;
+	print $ts "package $package{$fqs};\n"
+	    unless $last_package eq $package{$fqs};
+	print $ts "sub $subname $proto{$fqs};\n";
+	$last_package = $package{$fqs};
+    }
+    print $ts "1;\n";
+    close($ts);
+
+    _check_unique($filename, $Maxlen, 1, @outfiles);
+
+    @outfiles;
+}
+
+sub _modpname ($) {
+    my($package) = @_;
+    my $modpname = $package;
+    if ($^O eq 'MSWin32') {
+	$modpname =~ s#::#\\#g; 
+    } else {
+	my @modpnames = ();
+	while ($modpname =~ m#(.*?[^:])::([^:].*)#) {
+	       push @modpnames, $1;
+	       $modpname = $2;
+         }
+	$modpname = catfile(@modpnames, $modpname);
+    }
+    if ($Is_VMS) {
+        $modpname = VMS::Filespec::unixify($modpname); # may have dirs
+    }
+    $modpname;
+}
+
+sub _check_unique {
+    my($filename, $maxlen, $warn, @outfiles) = @_;
+    my(%notuniq) = ();
+    my(%shorts)  = ();
+    my(@toolong) = grep(
+			length(File::Basename::basename($_))
+			> $maxlen,
+			@outfiles
+		       );
+
+    foreach (@toolong){
+	my($dir) = File::Basename::dirname($_);
+	my($file) = File::Basename::basename($_);
+	my($trunc) = substr($file,0,$maxlen);
+	$notuniq{$dir}{$trunc} = 1 if $shorts{$dir}{$trunc};
+	$shorts{$dir}{$trunc} = $shorts{$dir}{$trunc} ?
+	    "$shorts{$dir}{$trunc}, $file" : $file;
+    }
+    if (%notuniq && $warn){
+	print "$filename: some names are not unique when " .
+	    "truncated to $maxlen characters:\n";
+	foreach my $dir (sort keys %notuniq){
+	    print " directory $dir:\n";
+	    foreach my $trunc (sort keys %{$notuniq{$dir}}) {
+		print "  $shorts{$dir}{$trunc} truncate to $trunc\n";
+	    }
+	}
+    }
+}
+
+1;
+__END__
+
+# test functions so AutoSplit.pm can be applied to itself:
+sub test1 ($)   { "test 1\n"; }
+sub test2 ($$)  { "test 2\n"; }
+sub test3 ($$$) { "test 3\n"; }
+sub testtesttesttest4_1  { "test 4\n"; }
+sub testtesttesttest4_2  { "duplicate test 4\n"; }
+sub Just::Another::test5 { "another test 5\n"; }
+sub test6       { return join ":", __FILE__,__LINE__; }
+package Yet::Another::AutoSplit;
+sub testtesttesttest4_1 ($)  { "another test 4\n"; }
+sub testtesttesttest4_2 ($$) { "another duplicate test 4\n"; }
+package Yet::More::Attributes;
+sub test_a1 ($) : locked :locked { 1; }
+sub test_a2 : locked { 1; }
+package diagnostics;
+
+
+use strict;
+use 5.009001;
+use Carp;
+$Carp::Internal{__PACKAGE__.""}++;
+
+our $VERSION = '1.36';
+our $DEBUG;
+our $VERBOSE;
+our $PRETTY;
+our $TRACEONLY = 0;
+our $WARNTRACE = 0;
+
+use Config;
+use Text::Tabs 'expand';
+my $privlib = $Config{privlibexp};
+if ($^O eq 'VMS') {
+    require VMS::Filespec;
+    $privlib = VMS::Filespec::unixify($privlib);
+}
+my @trypod = (
+	   "$privlib/pod/perldiag.pod",
+	   "$privlib/pods/perldiag.pod",
+	  );
+# handy for development testing of new warnings etc
+unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod";
+(my $PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0];
+
+$DEBUG ||= 0;
+
+local $| = 1;
+local $_;
+local $.;
+
+my $standalone;
+my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7);
+
+CONFIG: {
+    our $opt_p = our $opt_d = our $opt_v = our $opt_f = '';
+
+    unless (caller) {
+	$standalone++;
+	require Getopt::Std;
+	Getopt::Std::getopts('pdvf:')
+	    or die "Usage: $0 [-v] [-p] [-f splainpod]";
+	$PODFILE = $opt_f if $opt_f;
+	$DEBUG = 2 if $opt_d;
+	$VERBOSE = $opt_v;
+	$PRETTY = $opt_p;
+    }
+
+    if (open(POD_DIAG, '<', $PODFILE)) {
+	warn "Happy happy podfile from real $PODFILE\n" if $DEBUG;
+	last CONFIG;
+    } 
+
+    if (caller) {
+	INCPATH: {
+	    for my $file ( (map { "$_/".__PACKAGE__.".pm" } @INC), $0) {
+		warn "Checking $file\n" if $DEBUG;
+		if (open(POD_DIAG, '<', $file)) {
+		    while (<POD_DIAG>) {
+			next unless
+			    /^__END__\s*# wish diag dbase were more accessible/;
+			print STDERR "podfile is $file\n" if $DEBUG;
+			last INCPATH;
+		    }
+		}
+	    } 
+	}
+    } else { 
+	print STDERR "podfile is <DATA>\n" if $DEBUG;
+	*POD_DIAG = *main::DATA;
+    }
+}
+if (eof(POD_DIAG)) { 
+    die "couldn't find diagnostic data in $PODFILE @INC $0";
+}
+
+
+%HTML_2_Troff = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"A\\*'",	#   capital A, acute accent
+    # etc
+
+);
+
+%HTML_2_Latin_1 = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"\xC1"	#   capital A, acute accent
+
+    # etc
+);
+
+%HTML_2_ASCII_7 = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"A"	#   capital A, acute accent
+    # etc
+);
+
+our %HTML_Escapes;
+*HTML_Escapes = do {
+    if ($standalone) {
+	$PRETTY ? \%HTML_2_Latin_1 : \%HTML_2_ASCII_7; 
+    } else {
+	\%HTML_2_Latin_1; 
+    }
+}; 
+
+*THITHER = $standalone ? *STDOUT : *STDERR;
+
+my %transfmt = (); 
+my $transmo = <<EOFUNC;
+sub transmo {
+    #local \$^W = 0;  # recursive warnings we do NOT need!
+EOFUNC
+
+my %msg;
+my $over_level = 0;     # We look only at =item lines at the first =over level
+{
+    print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG;
+    local $/ = '';
+    local $_;
+    my $header;
+    my @headers;
+    my $for_item;
+    my $seen_body;
+    while (<POD_DIAG>) {
+
+	sub _split_pod_link {
+	    $_[0] =~ m'(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?'s;
+	    ($1,$2,$4);
+	}
+
+	unescape();
+	if ($PRETTY) {
+	    sub noop   { return $_[0] }  # spensive for a noop
+	    sub bold   { my $str =$_[0];  $str =~ s/(.)/$1\b$1/g; return $str; } 
+	    sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g;  return $str; } 
+	    s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/bold($+)/ges;
+	    s/[IF]<(.*?)>/italic($1)/ges;
+	    s/L<(.*?)>/
+	       my($text,$page,$sect) = _split_pod_link($1);
+	       defined $text
+	        ? $text
+	        : defined $sect
+	           ? italic($sect) . ' in ' . italic($page)
+	           : italic($page)
+	     /ges;
+	     s/S<(.*?)>/
+               $1
+             /ges;
+	} else {
+	    s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs;
+	    s/[IF]<(.*?)>/$1/gs;
+	    s/L<(.*?)>/
+	       my($text,$page,$sect) = _split_pod_link($1);
+	       defined $text
+	        ? $text
+	        : defined $sect
+	           ? qq '"$sect" in $page'
+	           : $page
+	     /ges;
+	    s/S<(.*?)>/
+               $1
+             /ges;
+	} 
+	unless (/^=/) {
+	    if (defined $header) { 
+		if ( $header eq 'DESCRIPTION' && 
+		    (   /Optional warnings are enabled/ 
+		     || /Some of these messages are generic./
+		    ) )
+		{
+		    next;
+		}
+		$_ = expand $_;
+		s/^/    /gm;
+		$msg{$header} .= $_;
+		for my $h(@headers) { $msg{$h} .= $_ }
+		++$seen_body;
+	 	undef $for_item;	
+	    }
+	    next;
+	} 
+
+	# If we have not come across the body of the description yet, then
+	# the previous header needs to share the same description.
+	if ($seen_body) {
+	    @headers = ();
+	}
+	else {
+	    push @headers, $header if defined $header;
+	}
+
+	if ( ! s/=item (.*?)\s*\z//s || $over_level != 1) {
+
+	    if ( s/=head1\sDESCRIPTION//) {
+		$msg{$header = 'DESCRIPTION'} = '';
+		undef $for_item;
+	    }
+	    elsif( s/^=for\s+diagnostics\s*\n(.*?)\s*\z// ) {
+		$for_item = $1;
+	    }
+	    elsif( /^=over\b/ ) {
+                $over_level++;
+            }
+	    elsif( /^=back\b/ ) { # Stop processing body here
+                $over_level--;
+                if ($over_level == 0) {
+                    undef $header;
+                    undef $for_item;
+                    $seen_body = 0;
+                    next;
+                }
+	    }
+	    next;
+	}
+
+	if( $for_item ) { $header = $for_item; undef $for_item } 
+	else {
+	    $header = $1;
+
+	    $header =~ s/\n/ /gs; # Allow multi-line headers
+	}
+
+	# strip formatting directives from =item line
+	$header =~ s/[A-Z]<(.*?)>/$1/g;
+
+	# Since we strip "(\.\s*)\n" when we search a warning, strip it here as well
+	$header =~ s/(\.\s*)?$//;
+
+        my @toks = split( /(%l?[dxX]|%[ucp]|%(?:\.\d+)?[fs])/, $header );
+	if (@toks > 1) {
+            my $conlen = 0;
+            for my $i (0..$#toks){
+                if( $i % 2 ){
+                    if(      $toks[$i] eq '%c' ){
+                        $toks[$i] = '.';
+                    } elsif( $toks[$i] =~ /^%(?:d|u)$/ ){
+                        $toks[$i] = '\d+';
+                    } elsif( $toks[$i] =~ '^%(?:s|.*f)$' ){
+                        $toks[$i] = $i == $#toks ? '.*' : '.*?';
+                    } elsif( $toks[$i] =~ '%.(\d+)s' ){
+                        $toks[$i] = ".{$1}";
+                    } elsif( $toks[$i] =~ '^%l*([pxX])$' ){
+                        $toks[$i] = $1 eq 'X' ? '[\dA-F]+' : '[\da-f]+';
+                    }
+                } elsif( length( $toks[$i] ) ){
+                    $toks[$i] = quotemeta $toks[$i];
+                    $conlen += length( $toks[$i] );
+                }
+            }  
+            my $lhs = join( '', @toks );
+            $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match
+	    $transfmt{$header}{pat} =
+              "    s^\\s*$lhs\\s*\Q$header\Es\n\t&& return 1;\n";
+            $transfmt{$header}{len} = $conlen;
+	} else {
+            my $lhs = "\Q$header\E";
+            $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match
+            $transfmt{$header}{pat} =
+	      "    s^\\s*$lhs\\s*\Q$header\E\n\t && return 1;\n";
+            $transfmt{$header}{len} = length( $header );
+	} 
+
+	print STDERR __PACKAGE__.": Duplicate entry: \"$header\"\n"
+	    if $msg{$header};
+
+	$msg{$header} = '';
+	$seen_body = 0;
+    } 
+
+
+    close POD_DIAG unless *main::DATA eq *POD_DIAG;
+
+    die "No diagnostics?" unless %msg;
+
+    # Apply patterns in order of decreasing sum of lengths of fixed parts
+    # Seems the best way of hitting the right one.
+    for my $hdr ( sort { $transfmt{$b}{len} <=> $transfmt{$a}{len} }
+                  keys %transfmt ){
+        $transmo .= $transfmt{$hdr}{pat};
+    }
+    $transmo .= "    return 0;\n}\n";
+    print STDERR $transmo if $DEBUG;
+    eval $transmo;
+    die $@ if $@;
+}
+
+if ($standalone) {
+    if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" } 
+    while (defined (my $error = <>)) {
+	splainthis($error) || print THITHER $error;
+    } 
+    exit;
+} 
+
+my $olddie;
+my $oldwarn;
+
+sub import {
+    shift;
+    $^W = 1; # yup, clobbered the global variable; 
+	     # tough, if you want diags, you want diags.
+    return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap);
+
+    for (@_) {
+
+	/^-d(ebug)?$/ 	   	&& do {
+				    $DEBUG++;
+				    next;
+				   };
+
+	/^-v(erbose)?$/ 	&& do {
+				    $VERBOSE++;
+				    next;
+				   };
+
+	/^-p(retty)?$/ 		&& do {
+				    print STDERR "$0: I'm afraid it's too late for prettiness.\n";
+				    $PRETTY++;
+				    next;
+			       };
+	# matches trace and traceonly for legacy doc mixup reasons
+	/^-t(race(only)?)?$/	&& do {
+				    $TRACEONLY++;
+				    next;
+			       };
+	/^-w(arntrace)?$/ 	&& do {
+				    $WARNTRACE++;
+				    next;
+			       };
+
+	warn "Unknown flag: $_";
+    } 
+
+    $oldwarn = $SIG{__WARN__};
+    $olddie = $SIG{__DIE__};
+    $SIG{__WARN__} = \&warn_trap;
+    $SIG{__DIE__} = \&death_trap;
+} 
+
+sub enable { &import }
+
+sub disable {
+    shift;
+    return unless $SIG{__WARN__} eq \&warn_trap;
+    $SIG{__WARN__} = $oldwarn || '';
+    $SIG{__DIE__} = $olddie || '';
+} 
+
+sub warn_trap {
+    my $warning = $_[0];
+    if (caller eq __PACKAGE__ or !splainthis($warning)) {
+	if ($WARNTRACE) {
+	    print STDERR Carp::longmess($warning);
+	} else {
+	    print STDERR $warning;
+	}
+    } 
+    goto &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap;
+};
+
+sub death_trap {
+    my $exception = $_[0];
+
+    # See if we are coming from anywhere within an eval. If so we don't
+    # want to explain the exception because it's going to get caught.
+    my $in_eval = 0;
+    my $i = 0;
+    while (my $caller = (caller($i++))[3]) {
+      if ($caller eq '(eval)') {
+	$in_eval = 1;
+	last;
+      }
+    }
+
+    splainthis($exception) unless $in_eval;
+    if (caller eq __PACKAGE__) {
+	print STDERR "INTERNAL EXCEPTION: $exception";
+    } 
+    &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap;
+
+    return if $in_eval;
+
+    # We don't want to unset these if we're coming from an eval because
+    # then we've turned off diagnostics.
+
+    # Switch off our die/warn handlers so we don't wind up in our own
+    # traps.
+    $SIG{__DIE__} = $SIG{__WARN__} = '';
+
+    $exception =~ s/\n(?=.)/\n\t/gas;
+
+    die Carp::longmess("__diagnostics__")
+	  =~ s/^__diagnostics__.*?line \d+\.?\n/
+		  "Uncaught exception from user code:\n\t$exception"
+	      /re;
+	# up we go; where we stop, nobody knows, but i think we die now
+	# but i'm deeply afraid of the &$olddie guy reraising and us getting
+	# into an indirect recursion loop
+};
+
+my %exact_duplicate;
+my %old_diag;
+my $count;
+my $wantspace;
+sub splainthis {
+  return 0 if $TRACEONLY;
+  for (my $tmp = shift) {
+    local $\;
+    local $!;
+    ### &finish_compilation unless %msg;
+    s/(\.\s*)?\n+$//;
+    my $orig = $_;
+    # return unless defined;
+
+    # get rid of the where-are-we-in-input part
+    s/, <.*?> (?:line|chunk).*$//;
+
+    # Discard 1st " at <file> line <no>" and all text beyond
+    # but be aware of messages containing " at this-or-that"
+    my $real = 0;
+    my @secs = split( / at / );
+    return unless @secs;
+    $_ = $secs[0];
+    for my $i ( 1..$#secs ){
+        if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){
+            $real = 1;
+            last;
+        } else {
+            $_ .= ' at ' . $secs[$i];
+	}
+    }
+
+    # remove parenthesis occurring at the end of some messages 
+    s/^\((.*)\)$/$1/;
+
+    if ($exact_duplicate{$orig}++) {
+	return &transmo;
+    } else {
+	return 0 unless &transmo;
+    }
+
+    my $short = shorten($orig);
+    if ($old_diag{$_}) {
+	autodescribe();
+	print THITHER "$short (#$old_diag{$_})\n";
+	$wantspace = 1;
+    } elsif (!$msg{$_} && $orig =~ /\n./s) {
+	# A multiline message, like "Attempt to reload /
+	# Compilation failed"
+	my $found;
+	for (split /^/, $orig) {
+	    splainthis($_) and $found = 1;
+	}
+	return $found;
+    } else {
+	autodescribe();
+	$old_diag{$_} = ++$count;
+	print THITHER "\n" if $wantspace;
+	$wantspace = 0;
+	print THITHER "$short (#$old_diag{$_})\n";
+	if ($msg{$_}) {
+	    print THITHER $msg{$_};
+	} else {
+	    if (0 and $standalone) { 
+		print THITHER "    **** Error #$old_diag{$_} ",
+			($real ? "is" : "appears to be"),
+			" an unknown diagnostic message.\n\n";
+	    }
+	    return 0;
+	} 
+    }
+    return 1;
+  }
+} 
+
+sub autodescribe {
+    if ($VERBOSE and not $count) {
+	print THITHER &{$PRETTY ? \&bold : \&noop}("DESCRIPTION OF DIAGNOSTICS"),
+		"\n$msg{DESCRIPTION}\n";
+    } 
+} 
+
+sub unescape { 
+    s {
+            E<  
+            ( [A-Za-z]+ )       
+            >   
+    } { 
+         do {   
+             exists $HTML_Escapes{$1}
+                ? do { $HTML_Escapes{$1} }
+                : do {
+                    warn "Unknown escape: E<$1> in $_";
+                    "E<$1>";
+                } 
+         } 
+    }egx;
+}
+
+sub shorten {
+    my $line = $_[0];
+    if (length($line) > 79 and index($line, "\n") == -1) {
+	my $space_place = rindex($line, ' ', 79);
+	if ($space_place != -1) {
+	    substr($line, $space_place, 1) = "\n\t";
+	} 
+    } 
+    return $line;
+} 
+
+
+1 unless $standalone;  # or it'll complain about itself
+__END__ # wish diag dbase were more accessible
+package ok;
+our $VERSION = '1.302133';
+
+use strict;
+use Test::More ();
+
+sub import {
+    shift;
+
+    if (@_) {
+        goto &Test::More::pass if $_[0] eq 'ok';
+        goto &Test::More::use_ok;
+    }
+
+    # No argument list - croak as if we are prototyped like use_ok()
+    my (undef, $file, $line) = caller();
+    ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n";
+}
+
+
+__END__
+
+package Safe;
+
+use 5.003_11;
+use Scalar::Util qw(reftype refaddr);
+
+$Safe::VERSION = "2.40";
+
+# *** Don't declare any lexicals above this point ***
+#
+# This function should return a closure which contains an eval that can't
+# see any lexicals in scope (apart from __ExPr__ which is unavoidable)
+
+sub lexless_anon_sub {
+                 # $_[0] is package;
+                 # $_[1] is strict flag;
+    my $__ExPr__ = $_[2];   # must be a lexical to create the closure that
+                            # can be used to pass the value into the safe
+                            # world
+
+    # Create anon sub ref in root of compartment.
+    # Uses a closure (on $__ExPr__) to pass in the code to be executed.
+    # (eval on one line to keep line numbers as expected by caller)
+    eval sprintf
+    'package %s; %s sub { @_=(); eval q[local *SIG; my $__ExPr__;] . $__ExPr__; }',
+                $_[0], $_[1] ? 'use strict;' : '';
+}
+
+use strict;
+use Carp;
+BEGIN { eval q{
+    use Carp::Heavy;
+} }
+
+use B ();
+BEGIN {
+    no strict 'refs';
+    if (defined &B::sub_generation) {
+        *sub_generation = \&B::sub_generation;
+    }
+    else {
+        # fake sub generation changing for perls < 5.8.9
+        my $sg; *sub_generation = sub { ++$sg };
+    }
+}
+
+use Opcode 1.01, qw(
+    opset opset_to_ops opmask_add
+    empty_opset full_opset invert_opset verify_opset
+    opdesc opcodes opmask define_optag opset_to_hex
+);
+
+*ops_to_opset = \&opset;   # Temporary alias for old Penguins
+
+# Regular expressions and other unicode-aware code may need to call
+# utf8->SWASHNEW (via perl's utf8.c).  That will fail unless we share the
+# SWASHNEW method.
+# Sadly we can't just add utf8::SWASHNEW to $default_share because perl's
+# utf8.c code does a fetchmethod on SWASHNEW to check if utf8.pm is loaded,
+# and sharing makes it look like the method exists.
+# The simplest and most robust fix is to ensure the utf8 module is loaded when
+# Safe is loaded. Then we can add utf8::SWASHNEW to $default_share.
+require utf8;
+# we must ensure that utf8_heavy.pl, where SWASHNEW is defined, is loaded
+# but without depending on too much knowledge of that implementation detail.
+# This code (//i on a unicode string) should ensure utf8 is fully loaded
+# and also loads the ToFold SWASH, unless things change so that these
+# particular code points don't cause it to load.
+# (Swashes are cached internally by perl in PL_utf8_* variables
+# independent of being inside/outside of Safe. So once loaded they can be)
+do { my $a = pack('U',0x100); my $b = chr 0x101; utf8::upgrade $b; $a =~ /$b/i };
+# now we can safely include utf8::SWASHNEW in $default_share defined below.
+
+my $default_root  = 0;
+# share *_ and functions defined in universal.c
+# Don't share stuff like *UNIVERSAL:: otherwise code from the
+# compartment can 0wn functions in UNIVERSAL
+my $default_share = [qw[
+    *_
+    &PerlIO::get_layers
+    &UNIVERSAL::isa
+    &UNIVERSAL::can
+    &UNIVERSAL::VERSION
+    &utf8::is_utf8
+    &utf8::valid
+    &utf8::encode
+    &utf8::decode
+    &utf8::upgrade
+    &utf8::downgrade
+    &utf8::native_to_unicode
+    &utf8::unicode_to_native
+    &utf8::SWASHNEW
+    $version::VERSION
+    $version::CLASS
+    $version::STRICT
+    $version::LAX
+    @version::ISA
+], ($] < 5.010 && qw[
+    &utf8::SWASHGET
+]), ($] >= 5.008001 && qw[
+    &Regexp::DESTROY
+]), ($] >= 5.010 && qw[
+    &re::is_regexp
+    &re::regname
+    &re::regnames
+    &re::regnames_count
+    &UNIVERSAL::DOES
+    &version::()
+    &version::new
+    &version::(""
+    &version::stringify
+    &version::(0+
+    &version::numify
+    &version::normal
+    &version::(cmp
+    &version::(<=>
+    &version::vcmp
+    &version::(bool
+    &version::boolean
+    &version::(nomethod
+    &version::noop
+    &version::is_alpha
+    &version::qv
+    &version::vxs::declare
+    &version::vxs::qv
+    &version::vxs::_VERSION
+    &version::vxs::stringify
+    &version::vxs::new
+    &version::vxs::parse
+    &version::vxs::VCMP
+]), ($] >= 5.011 && qw[
+    &re::regexp_pattern
+]), ($] >= 5.010 && $] < 5.014 && qw[
+    &Tie::Hash::NamedCapture::FETCH
+    &Tie::Hash::NamedCapture::STORE
+    &Tie::Hash::NamedCapture::DELETE
+    &Tie::Hash::NamedCapture::CLEAR
+    &Tie::Hash::NamedCapture::EXISTS
+    &Tie::Hash::NamedCapture::FIRSTKEY
+    &Tie::Hash::NamedCapture::NEXTKEY
+    &Tie::Hash::NamedCapture::SCALAR
+    &Tie::Hash::NamedCapture::flags
+])];
+if (defined $Devel::Cover::VERSION) {
+    push @$default_share, '&Devel::Cover::use_file';
+}
+
+sub new {
+    my($class, $root, $mask) = @_;
+    my $obj = {};
+    bless $obj, $class;
+
+    if (defined($root)) {
+        croak "Can't use \"$root\" as root name"
+            if $root =~ /^main\b/ or $root !~ /^\w[:\w]*$/;
+        $obj->{Root}  = $root;
+        $obj->{Erase} = 0;
+    }
+    else {
+        $obj->{Root}  = "Safe::Root".$default_root++;
+        $obj->{Erase} = 1;
+    }
+
+    # use permit/deny methods instead till interface issues resolved
+    # XXX perhaps new Safe 'Root', mask => $mask, foo => bar, ...;
+    croak "Mask parameter to new no longer supported" if defined $mask;
+    $obj->permit_only(':default');
+
+    # We must share $_ and @_ with the compartment or else ops such
+    # as split, length and so on won't default to $_ properly, nor
+    # will passing argument to subroutines work (via @_). In fact,
+    # for reasons I don't completely understand, we need to share
+    # the whole glob *_ rather than $_ and @_ separately, otherwise
+    # @_ in non default packages within the compartment don't work.
+    $obj->share_from('main', $default_share);
+
+    Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04);
+
+    return $obj;
+}
+
+sub DESTROY {
+    my $obj = shift;
+    $obj->erase('DESTROY') if $obj->{Erase};
+}
+
+sub erase {
+    my ($obj, $action) = @_;
+    my $pkg = $obj->root();
+    my ($stem, $leaf);
+
+    no strict 'refs';
+    $pkg = "main::$pkg\::";     # expand to full symbol table name
+    ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
+
+    # The 'my $foo' is needed! Without it you get an
+    # 'Attempt to free unreferenced scalar' warning!
+    my $stem_symtab = *{$stem}{HASH};
+
+    #warn "erase($pkg) stem=$stem, leaf=$leaf";
+    #warn " stem_symtab hash ".scalar(%$stem_symtab)."\n";
+    # ", join(', ', %$stem_symtab),"\n";
+
+#    delete $stem_symtab->{$leaf};
+
+    my $leaf_glob   = $stem_symtab->{$leaf};
+    my $leaf_symtab = *{$leaf_glob}{HASH};
+#    warn " leaf_symtab ", join(', ', %$leaf_symtab),"\n";
+    %$leaf_symtab = ();
+    #delete $leaf_symtab->{'__ANON__'};
+    #delete $leaf_symtab->{'foo'};
+    #delete $leaf_symtab->{'main::'};
+#    my $foo = undef ${"$stem\::"}{"$leaf\::"};
+
+    if ($action and $action eq 'DESTROY') {
+        delete $stem_symtab->{$leaf};
+    } else {
+        $obj->share_from('main', $default_share);
+    }
+    1;
+}
+
+
+sub reinit {
+    my $obj= shift;
+    $obj->erase;
+    $obj->share_redo;
+}
+
+sub root {
+    my $obj = shift;
+    croak("Safe root method now read-only") if @_;
+    return $obj->{Root};
+}
+
+
+sub mask {
+    my $obj = shift;
+    return $obj->{Mask} unless @_;
+    $obj->deny_only(@_);
+}
+
+# v1 compatibility methods
+sub trap   { shift->deny(@_)   }
+sub untrap { shift->permit(@_) }
+
+sub deny {
+    my $obj = shift;
+    $obj->{Mask} |= opset(@_);
+}
+sub deny_only {
+    my $obj = shift;
+    $obj->{Mask} = opset(@_);
+}
+
+sub permit {
+    my $obj = shift;
+    # XXX needs testing
+    $obj->{Mask} &= invert_opset opset(@_);
+}
+sub permit_only {
+    my $obj = shift;
+    $obj->{Mask} = invert_opset opset(@_);
+}
+
+
+sub dump_mask {
+    my $obj = shift;
+    print opset_to_hex($obj->{Mask}),"\n";
+}
+
+
+sub share {
+    my($obj, @vars) = @_;
+    $obj->share_from(scalar(caller), \@vars);
+}
+
+
+sub share_from {
+    my $obj = shift;
+    my $pkg = shift;
+    my $vars = shift;
+    my $no_record = shift || 0;
+    my $root = $obj->root();
+    croak("vars not an array ref") unless ref $vars eq 'ARRAY';
+    no strict 'refs';
+    # Check that 'from' package actually exists
+    croak("Package \"$pkg\" does not exist")
+        unless keys %{"$pkg\::"};
+    my $arg;
+    foreach $arg (@$vars) {
+        # catch some $safe->share($var) errors:
+        my ($var, $type);
+        $type = $1 if ($var = $arg) =~ s/^(\W)//;
+        # warn "share_from $pkg $type $var";
+        for (1..2) { # assign twice to avoid any 'used once' warnings
+            *{$root."::$var"} = (!$type)   ? \&{$pkg."::$var"}
+                          : ($type eq '&') ? \&{$pkg."::$var"}
+                          : ($type eq '$') ? \${$pkg."::$var"}
+                          : ($type eq '@') ? \@{$pkg."::$var"}
+                          : ($type eq '%') ? \%{$pkg."::$var"}
+                          : ($type eq '*') ?  *{$pkg."::$var"}
+                          : croak(qq(Can't share "$type$var" of unknown type));
+        }
+    }
+    $obj->share_record($pkg, $vars) unless $no_record or !$vars;
+}
+
+
+sub share_record {
+    my $obj = shift;
+    my $pkg = shift;
+    my $vars = shift;
+    my $shares = \%{$obj->{Shares} ||= {}};
+    # Record shares using keys of $obj->{Shares}. See reinit.
+    @{$shares}{@$vars} = ($pkg) x @$vars if @$vars;
+}
+
+
+sub share_redo {
+    my $obj = shift;
+    my $shares = \%{$obj->{Shares} ||= {}};
+    my($var, $pkg);
+    while(($var, $pkg) = each %$shares) {
+        # warn "share_redo $pkg\:: $var";
+        $obj->share_from($pkg,  [ $var ], 1);
+    }
+}
+
+
+sub share_forget {
+    delete shift->{Shares};
+}
+
+
+sub varglob {
+    my ($obj, $var) = @_;
+    no strict 'refs';
+    return *{$obj->root()."::$var"};
+}
+
+sub _clean_stash {
+    my ($root, $saved_refs) = @_;
+    $saved_refs ||= [];
+    no strict 'refs';
+    foreach my $hook (qw(DESTROY AUTOLOAD), grep /^\(/, keys %$root) {
+        push @$saved_refs, \*{$root.$hook};
+        delete ${$root}{$hook};
+    }
+
+    for (grep /::$/, keys %$root) {
+        next if \%{$root.$_} eq \%$root;
+        _clean_stash($root.$_, $saved_refs);
+    }
+}
+
+sub reval {
+    my ($obj, $expr, $strict) = @_;
+    die "Bad Safe object" unless $obj->isa('Safe');
+
+    my $root = $obj->{Root};
+
+    my $evalsub = lexless_anon_sub($root, $strict, $expr);
+    # propagate context
+    my $sg = sub_generation();
+    my @subret;
+    if (defined wantarray) {
+        @subret = (wantarray)
+               ?        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub)
+               : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    }
+    else {
+        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    }
+    _clean_stash($root.'::') if $sg != sub_generation();
+    $obj->wrap_code_refs_within(@subret);
+    return (wantarray) ? @subret : $subret[0];
+}
+
+my %OID;
+
+sub wrap_code_refs_within {
+    my $obj = shift;
+
+    %OID = ();
+    $obj->_find_code_refs('wrap_code_ref', @_);
+}
+
+
+sub _find_code_refs {
+    my $obj = shift;
+    my $visitor = shift;
+
+    for my $item (@_) {
+        my $reftype = $item && reftype $item
+            or next;
+
+        # skip references already seen
+        next if ++$OID{refaddr $item} > 1;
+
+        if ($reftype eq 'ARRAY') {
+            $obj->_find_code_refs($visitor, @$item);
+        }
+        elsif ($reftype eq 'HASH') {
+            $obj->_find_code_refs($visitor, values %$item);
+        }
+        # XXX GLOBs?
+        elsif ($reftype eq 'CODE') {
+            $item = $obj->$visitor($item);
+        }
+    }
+}
+
+
+sub wrap_code_ref {
+    my ($obj, $sub) = @_;
+    die "Bad safe object" unless $obj->isa('Safe');
+
+    # wrap code ref $sub with _safe_call_sv so that, when called, the
+    # execution will happen with the compartment fully 'in effect'.
+
+    croak "Not a CODE reference"
+        if reftype $sub ne 'CODE';
+
+    my $ret = sub {
+        my @args = @_; # lexical to close over
+        my $sub_with_args = sub { $sub->(@args) };
+
+        my @subret;
+        my $error;
+        do {
+            local $@;  # needed due to perl_call_sv(sv, G_EVAL|G_KEEPERR)
+            my $sg = sub_generation();
+            @subret = (wantarray)
+                ?        Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args)
+                : scalar Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args);
+            $error = $@;
+            _clean_stash($obj->{Root}.'::') if $sg != sub_generation();
+        };
+        if ($error) { # rethrow exception
+            $error =~ s/\t\(in cleanup\) //; # prefix added by G_KEEPERR
+            die $error;
+        }
+        return (wantarray) ? @subret : $subret[0];
+    };
+
+    return $ret;
+}
+
+
+sub rdo {
+    my ($obj, $file) = @_;
+    die "Bad Safe object" unless $obj->isa('Safe');
+
+    my $root = $obj->{Root};
+
+    my $sg = sub_generation();
+    my $evalsub = eval
+            sprintf('package %s; sub { @_ = (); do $file }', $root);
+    my @subret = (wantarray)
+               ?        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub)
+               : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    _clean_stash($root.'::') if $sg != sub_generation();
+    $obj->wrap_code_refs_within(@subret);
+    return (wantarray) ? @subret : $subret[0];
+}
+
+
+1;
+
+__END__
+
+
+package Env;
+
+our $VERSION = '1.04';
+
+
+sub import {
+    my ($callpack) = caller(0);
+    my $pack = shift;
+    my @vars = grep /^[\$\@]?[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV));
+    return unless @vars;
+
+    @vars = map { m/^[\$\@]/ ? $_ : '$'.$_ } @vars;
+
+    eval "package $callpack; use vars qw(" . join(' ', @vars) . ")";
+    die $@ if $@;
+    foreach (@vars) {
+	my ($type, $name) = m/^([\$\@])(.*)$/;
+	if ($type eq '$') {
+	    tie ${"${callpack}::$name"}, Env, $name;
+	} else {
+	    if ($^O eq 'VMS') {
+		tie @{"${callpack}::$name"}, Env::Array::VMS, $name;
+	    } else {
+		tie @{"${callpack}::$name"}, Env::Array, $name;
+	    }
+	}
+    }
+}
+
+sub TIESCALAR {
+    bless \($_[1]);
+}
+
+sub FETCH {
+    my ($self) = @_;
+    $ENV{$$self};
+}
+
+sub STORE {
+    my ($self, $value) = @_;
+    if (defined($value)) {
+	$ENV{$$self} = $value;
+    } else {
+	delete $ENV{$$self};
+    }
+}
+
+######################################################################
+
+package Env::Array;
+ 
+use Config;
+use Tie::Array;
+
+@ISA = qw(Tie::Array);
+
+my $sep = $Config::Config{path_sep};
+
+sub TIEARRAY {
+    bless \($_[1]);
+}
+
+sub FETCHSIZE {
+    my ($self) = @_;
+    return 1 + scalar(() = $ENV{$$self} =~ /\Q$sep\E/g);
+}
+
+sub STORESIZE {
+    my ($self, $size) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    $#temp = $size - 1;
+    $ENV{$$self} = join($sep, @temp);
+}
+
+sub CLEAR {
+    my ($self) = @_;
+    $ENV{$$self} = '';
+}
+
+sub FETCH {
+    my ($self, $index) = @_;
+    return (split($sep, $ENV{$$self}))[$index];
+}
+
+sub STORE {
+    my ($self, $index, $value) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    $temp[$index] = $value;
+    $ENV{$$self} = join($sep, @temp);
+    return $value;
+}
+
+sub EXISTS {
+    my ($self, $index) = @_;
+    return $index < $self->FETCHSIZE;
+}
+
+sub DELETE {
+    my ($self, $index) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $value = splice(@temp, $index, 1, ());
+    $ENV{$$self} = join($sep, @temp);
+    return $value;
+}
+
+sub PUSH {
+    my $self = shift;
+    my @temp = split($sep, $ENV{$$self});
+    push @temp, @_;
+    $ENV{$$self} = join($sep, @temp);
+    return scalar(@temp);
+}
+
+sub POP {
+    my ($self) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = pop @temp;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub UNSHIFT {
+    my $self = shift;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = unshift @temp, @_;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub SHIFT {
+    my ($self) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = shift @temp;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub SPLICE {
+    my $self = shift;
+    my $offset = shift;
+    my $length = shift;
+    my @temp = split($sep, $ENV{$$self});
+    if (wantarray) {
+	my @result = splice @temp, $offset, $length, @_;
+	$ENV{$$self} = join($sep, @temp);
+	return @result;
+    } else {
+	my $result = scalar splice @temp, $offset, $length, @_;
+	$ENV{$$self} = join($sep, @temp);
+	return $result;
+    }
+}
+
+######################################################################
+
+package Env::Array::VMS;
+use Tie::Array;
+
+@ISA = qw(Tie::Array);
+ 
+sub TIEARRAY {
+    bless \($_[1]);
+}
+
+sub FETCHSIZE {
+    my ($self) = @_;
+    my $i = 0;
+    while ($i < 127 and defined $ENV{$$self . ';' . $i}) { $i++; };
+    return $i;
+}
+
+sub FETCH {
+    my ($self, $index) = @_;
+    return $ENV{$$self . ';' . $index};
+}
+
+sub EXISTS {
+    my ($self, $index) = @_;
+    return $index < $self->FETCHSIZE;
+}
+
+sub DELETE { }
+
+1;
+# FindBin.pm
+#
+# Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved.
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+
+package FindBin;
+use Carp;
+require 5.000;
+require Exporter;
+use Cwd qw(getcwd cwd abs_path);
+use File::Basename;
+use File::Spec;
+
+@EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir);
+%EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
+@ISA = qw(Exporter);
+
+$VERSION = "1.51";
+
+
+# needed for VMS-specific filename translation
+if( $^O eq 'VMS' ) {
+    require VMS::Filespec;
+    VMS::Filespec->import;
+}
+
+sub cwd2 {
+   my $cwd = getcwd();
+   # getcwd might fail if it hasn't access to the current directory.
+   # try harder.
+   defined $cwd or $cwd = cwd();
+   $cwd;
+}
+
+sub init
+{
+ *Dir = \$Bin;
+ *RealDir = \$RealBin;
+
+ if($0 eq '-e' || $0 eq '-')
+  {
+   # perl invoked with -e or script is on C<STDIN>
+   $Script = $RealScript = $0;
+   $Bin    = $RealBin    = cwd2();
+   $Bin = VMS::Filespec::unixify($Bin) if $^O eq 'VMS';
+  }
+ else
+  {
+   my $script = $0;
+
+   if ($^O eq 'VMS')
+    {
+     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>\/]+)(.*)/s;
+     # C<use disk:[dev]/lib> isn't going to work, so unixify first
+     ($Bin = VMS::Filespec::unixify($Bin)) =~ s/\/\z//;
+     ($RealBin,$RealScript) = ($Bin,$Script);
+    }
+   else
+    {
+     croak("Cannot find current script '$0'") unless(-f $script);
+
+     # Ensure $script contains the complete path in case we C<chdir>
+
+     $script = File::Spec->catfile(cwd2(), $script)
+       unless File::Spec->file_name_is_absolute($script);
+
+     ($Script,$Bin) = fileparse($script);
+
+     # Resolve $script if it is a link
+     while(1)
+      {
+       my $linktext = readlink($script);
+
+       ($RealScript,$RealBin) = fileparse($script);
+       last unless defined $linktext;
+
+       $script = (File::Spec->file_name_is_absolute($linktext))
+                  ? $linktext
+                  : File::Spec->catfile($RealBin, $linktext);
+      }
+
+     # Get absolute paths to directories
+     if ($Bin) {
+      my $BinOld = $Bin;
+      $Bin = abs_path($Bin);
+      defined $Bin or $Bin = File::Spec->canonpath($BinOld);
+     }
+     $RealBin = abs_path($RealBin) if($RealBin);
+    }
+  }
+}
+
+BEGIN { init }
+
+*again = \&init;
+
+1; # Keep require happy
+package Symbol;
+
+
+BEGIN { require 5.005; }
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
+@EXPORT_OK = qw(delete_package geniosym);
+
+$VERSION = '1.08';
+
+my $genpkg = "Symbol::";
+my $genseq = 0;
+
+my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT);
+
+#
+# Note that we never _copy_ the glob; we just make a ref to it.
+# If we did copy it, then SVf_FAKE would be set on the copy, and
+# glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work.
+#
+sub gensym () {
+    my $name = "GEN" . $genseq++;
+    my $ref = \*{$genpkg . $name};
+    delete $$genpkg{$name};
+    $ref;
+}
+
+sub geniosym () {
+    my $sym = gensym();
+    # force the IO slot to be filled
+    select(select $sym);
+    *$sym{IO};
+}
+
+sub ungensym ($) {}
+
+sub qualify ($;$) {
+    my ($name) = @_;
+    if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
+	my $pkg;
+	# Global names: special character, "^xyz", or other. 
+	if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) {
+	    # RGS 2001-11-05 : translate leading ^X to control-char
+	    $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei;
+	    $pkg = "main";
+	}
+	else {
+	    $pkg = (@_ > 1) ? $_[1] : caller;
+	}
+	$name = $pkg . "::" . $name;
+    }
+    $name;
+}
+
+sub qualify_to_ref ($;$) {
+    return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller };
+}
+
+#
+# of Safe.pm lineage
+#
+sub delete_package ($) {
+    my $pkg = shift;
+
+    # expand to full symbol table name if needed
+
+    unless ($pkg =~ /^main::.*::$/) {
+        $pkg = "main$pkg"	if	$pkg =~ /^::/;
+        $pkg = "main::$pkg"	unless	$pkg =~ /^main::/;
+        $pkg .= '::'		unless	$pkg =~ /::$/;
+    }
+
+    my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
+    my $stem_symtab = *{$stem}{HASH};
+    return unless defined $stem_symtab and exists $stem_symtab->{$leaf};
+
+
+    # free all the symbols in the package
+
+    my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH};
+    foreach my $name (keys %$leaf_symtab) {
+        undef *{$pkg . $name};
+    }
+
+    # delete the symbol table
+
+    %$leaf_symtab = ();
+    delete $stem_symtab->{$leaf};
+}
+
+1;
+package blib;
+
+
+use Cwd;
+use File::Spec;
+
+our $VERSION = '1.07';
+our $Verbose = 0;
+
+sub import
+{
+ my $package = shift;
+ my $dir;
+ if ($^O eq "MSWin32" && -f "Win32.xs") {
+     # We don't use getcwd() on Windows because it will internally
+     # call Win32::GetCwd(), which will get the Win32 module loaded.
+     # That means that it would not be possible to run `make test`
+     # for the Win32 module because blib.pm would always load the
+     # installed version before @INC gets updated with the blib path.
+     chomp($dir = `cd`);
+ }
+ else {
+     $dir = getcwd;
+ }
+ if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
+ if (@_)
+  {
+   $dir = shift;
+   $dir =~ s/blib\z//;
+   $dir =~ s,/+\z,,;
+   $dir = File::Spec->curdir unless ($dir);
+   die "$dir is not a directory\n" unless (-d $dir);
+  }
+
+ # detaint: if the user asked for blib, s/he presumably knew
+ # what s/he wanted
+ $dir = $1 if $dir =~ /^(.*)$/;
+
+ my $i = 5;
+ my($blib, $blib_lib, $blib_arch);
+ while ($i--)
+  {
+   $blib = File::Spec->catdir($dir, "blib");
+   $blib_lib = File::Spec->catdir($blib, "lib");
+   $blib_arch = File::Spec->catdir($blib, "arch");
+
+   if (-d $blib && -d $blib_arch && -d $blib_lib)
+    {
+     unshift(@INC,$blib_arch,$blib_lib);
+     warn "Using $blib\n" if $Verbose;
+     return;
+    }
+   $dir = File::Spec->catdir($dir, File::Spec->updir);
+  }
+ die "Cannot find blib even in $dir\n";
+}
+
+1;
+package autouse;
+
+#use strict;		# debugging only
+use 5.006;		# use warnings
+
+$autouse::VERSION = '1.11';
+
+$autouse::DEBUG ||= 0;
+
+sub vet_import ($);
+
+sub croak {
+    require Carp;
+    Carp::croak(@_);
+}
+
+sub import {
+    my $class = @_ ? shift : 'autouse';
+    croak "usage: use $class MODULE [,SUBS...]" unless @_;
+    my $module = shift;
+
+    (my $pm = $module) =~ s{::}{/}g;
+    $pm .= '.pm';
+    if (exists $INC{$pm}) {
+	vet_import $module;
+	local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+	# $Exporter::Verbose = 1;
+	return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_);
+    }
+
+    # It is not loaded: need to do real work.
+    my $callpkg = caller(0);
+    print "autouse called from $callpkg\n" if $autouse::DEBUG;
+
+    my $index;
+    for my $f (@_) {
+	my $proto;
+	$proto = $1 if (my $func = $f) =~ s/\((.*)\)$//;
+
+	my $closure_import_func = $func;	# Full name
+	my $closure_func = $func;		# Name inside package
+	my $index = rindex($func, '::');
+	if ($index == -1) {
+	    $closure_import_func = "${callpkg}::$func";
+	} else {
+	    $closure_func = substr $func, $index + 2;
+	    croak "autouse into different package attempted"
+		unless substr($func, 0, $index) eq $module;
+	}
+
+	my $load_sub = sub {
+	    unless ($INC{$pm}) {
+		require $pm;
+		vet_import $module;
+	    }
+            no warnings qw(redefine prototype);
+	    *$closure_import_func = \&{"${module}::$closure_func"};
+	    print "autousing $module; "
+		  ."imported $closure_func as $closure_import_func\n"
+		if $autouse::DEBUG;
+	    goto &$closure_import_func;
+	};
+
+	if (defined $proto) {
+	    *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }"
+	        || die;
+	} else {
+	    *$closure_import_func = $load_sub;
+	}
+    }
+}
+
+sub vet_import ($) {
+    my $module = shift;
+    if (my $import = $module->can('import')) {
+	croak "autoused module $module has unique import() method"
+	    unless defined(&Exporter::import)
+		   && ($import == \&Exporter::import ||
+		       $import == \&UNIVERSAL::import)
+    }
+}
+
+1;
+
+__END__
+
+# -*- mode: perl; perl-indent-level: 2; -*-
+# Memoize.pm
+#
+# Transparent memoization of idempotent functions
+#
+# Copyright 1998, 1999, 2000, 2001, 2012 M. J. Dominus.
+# You may copy and distribute this program under the
+# same terms as Perl itself.  If in doubt, 
+# write to mjd-perl-memoize+@plover.com for a license.
+
+package Memoize;
+$VERSION = '1.03_01';
+
+# Compile-time constants
+sub SCALAR () { 0 } 
+sub LIST () { 1 } 
+
+
+#
+# Usage memoize(functionname/ref,
+#               { NORMALIZER => coderef, INSTALL => name,
+#                 LIST_CACHE => descriptor, SCALAR_CACHE => descriptor }
+#
+
+use Carp;
+use Exporter;
+use vars qw($DEBUG);
+use Config;                     # Dammit.
+@ISA = qw(Exporter);
+@EXPORT = qw(memoize);
+@EXPORT_OK = qw(unmemoize flush_cache);
+use strict;
+
+my %memotable;
+my %revmemotable;
+my @CONTEXT_TAGS = qw(MERGE TIE MEMORY FAULT HASH);
+my %IS_CACHE_TAG = map {($_ => 1)} @CONTEXT_TAGS;
+
+# Raise an error if the user tries to specify one of thesepackage as a
+# tie for LIST_CACHE
+
+my %scalar_only = map {($_ => 1)} qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File);
+
+sub memoize {
+  my $fn = shift;
+  my %options = @_;
+  my $options = \%options;
+  
+  unless (defined($fn) && 
+	  (ref $fn eq 'CODE' || ref $fn eq '')) {
+    croak "Usage: memoize 'functionname'|coderef {OPTIONS}";
+  }
+
+  my $uppack = caller;		# TCL me Elmo!
+  my $cref;			# Code reference to original function
+  my $name = (ref $fn ? undef : $fn);
+
+  # Convert function names to code references
+  $cref = &_make_cref($fn, $uppack);
+
+  # Locate function prototype, if any
+  my $proto = prototype $cref;
+  if (defined $proto) { $proto = "($proto)" }
+  else { $proto = "" }
+
+  # I would like to get rid of the eval, but there seems not to be any
+  # other way to set the prototype properly.  The switch here for
+  # 'usethreads' works around a bug in threadperl having to do with
+  # magic goto.  It would be better to fix the bug and use the magic
+  # goto version everywhere.
+  my $wrapper = 
+      $Config{usethreads} 
+        ? eval "sub $proto { &_memoizer(\$cref, \@_); }" 
+        : eval "sub $proto { unshift \@_, \$cref; goto &_memoizer; }";
+
+  my $normalizer = $options{NORMALIZER};
+  if (defined $normalizer  && ! ref $normalizer) {
+    $normalizer = _make_cref($normalizer, $uppack);
+  }
+  
+  my $install_name;
+  if (defined $options->{INSTALL}) {
+    # INSTALL => name
+    $install_name = $options->{INSTALL};
+  } elsif (! exists $options->{INSTALL}) {
+    # No INSTALL option provided; use original name if possible
+    $install_name = $name;
+  } else {
+    # INSTALL => undef  means don't install
+  }
+
+  if (defined $install_name) {
+    $install_name = $uppack . '::' . $install_name
+	unless $install_name =~ /::/;
+    no strict;
+    local($^W) = 0;	       # ``Subroutine $install_name redefined at ...''
+    *{$install_name} = $wrapper; # Install memoized version
+  }
+
+  $revmemotable{$wrapper} = "" . $cref; # Turn code ref into hash key
+
+  # These will be the caches
+  my %caches;
+  for my $context (qw(SCALAR LIST)) {
+    # suppress subsequent 'uninitialized value' warnings
+    $options{"${context}_CACHE"} ||= ''; 
+
+    my $cache_opt = $options{"${context}_CACHE"};
+    my @cache_opt_args;
+    if (ref $cache_opt) {
+      @cache_opt_args = @$cache_opt;
+      $cache_opt = shift @cache_opt_args;
+    }
+    if ($cache_opt eq 'FAULT') { # no cache
+      $caches{$context} = undef;
+    } elsif ($cache_opt eq 'HASH') { # user-supplied hash
+      my $cache = $cache_opt_args[0];
+      my $package = ref(tied %$cache);
+      if ($context eq 'LIST' && $scalar_only{$package}) {
+        croak("You can't use $package for LIST_CACHE because it can only store scalars");
+      }
+      $caches{$context} = $cache;
+    } elsif ($cache_opt eq '' ||  $IS_CACHE_TAG{$cache_opt}) {
+      # default is that we make up an in-memory hash
+      $caches{$context} = {};
+      # (this might get tied later, or MERGEd away)
+    } else {
+      croak "Unrecognized option to `${context}_CACHE': `$cache_opt' should be one of (@CONTEXT_TAGS); aborting";
+    }
+  }
+
+  # Perhaps I should check here that you didn't supply *both* merge
+  # options.  But if you did, it does do something reasonable: They
+  # both get merged to the same in-memory hash.
+  if ($options{SCALAR_CACHE} eq 'MERGE' || $options{LIST_CACHE} eq 'MERGE') {
+    $options{MERGED} = 1;
+    $caches{SCALAR} = $caches{LIST};
+  }
+
+  # Now deal with the TIE options
+  {
+    my $context;
+    foreach $context (qw(SCALAR LIST)) {
+      # If the relevant option wasn't `TIE', this call does nothing.
+      _my_tie($context, $caches{$context}, $options);  # Croaks on failure
+    }
+  }
+  
+  # We should put some more stuff in here eventually.
+  # We've been saying that for serveral versions now.
+  # And you know what?  More stuff keeps going in!
+  $memotable{$cref} = 
+  {
+    O => $options,  # Short keys here for things we need to access frequently
+    N => $normalizer,
+    U => $cref,
+    MEMOIZED => $wrapper,
+    PACKAGE => $uppack,
+    NAME => $install_name,
+    S => $caches{SCALAR},
+    L => $caches{LIST},
+  };
+
+  $wrapper			# Return just memoized version
+}
+
+# This function tries to load a tied hash class and tie the hash to it.
+sub _my_tie {
+  my ($context, $hash, $options) = @_;
+  my $fullopt = $options->{"${context}_CACHE"};
+
+  # We already checked to make sure that this works.
+  my $shortopt = (ref $fullopt) ? $fullopt->[0] : $fullopt;
+  
+  return unless defined $shortopt && $shortopt eq 'TIE';
+  carp("TIE option to memoize() is deprecated; use HASH instead")
+      if $^W;
+
+  my @args = ref $fullopt ? @$fullopt : ();
+  shift @args;
+  my $module = shift @args;
+  if ($context eq 'LIST' && $scalar_only{$module}) {
+    croak("You can't use $module for LIST_CACHE because it can only store scalars");
+  }
+  my $modulefile = $module . '.pm';
+  $modulefile =~ s{::}{/}g;
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require $modulefile
+  };
+  if ($@) {
+    croak "Memoize: Couldn't load hash tie module `$module': $@; aborting";
+  }
+  my $rc = (tie %$hash => $module, @args);
+  unless ($rc) {
+    croak "Memoize: Couldn't tie hash to `$module': $!; aborting";
+  }
+  1;
+}
+
+sub flush_cache {
+  my $func = _make_cref($_[0], scalar caller);
+  my $info = $memotable{$revmemotable{$func}};
+  die "$func not memoized" unless defined $info;
+  for my $context (qw(S L)) {
+    my $cache = $info->{$context};
+    if (tied %$cache && ! (tied %$cache)->can('CLEAR')) {
+      my $funcname = defined($info->{NAME}) ? 
+          "function $info->{NAME}" : "anonymous function $func";
+      my $context = {S => 'scalar', L => 'list'}->{$context};
+      croak "Tied cache hash for $context-context $funcname does not support flushing";
+    } else {
+      %$cache = ();
+    }
+  }
+}
+
+# This is the function that manages the memo tables.
+sub _memoizer {
+  my $orig = shift;		# stringized version of ref to original func.
+  my $info = $memotable{$orig};
+  my $normalizer = $info->{N};
+  
+  my $argstr;
+  my $context = (wantarray() ? LIST : SCALAR);
+
+  if (defined $normalizer) { 
+    no strict;
+    if ($context == SCALAR) {
+      $argstr = &{$normalizer}(@_);
+    } elsif ($context == LIST) {
+      ($argstr) = &{$normalizer}(@_);
+    } else {
+      croak "Internal error \#41; context was neither LIST nor SCALAR\n";
+    }
+  } else {                      # Default normalizer
+    local $^W = 0;
+    $argstr = join chr(28),@_;  
+  }
+
+  if ($context == SCALAR) {
+    my $cache = $info->{S};
+    _crap_out($info->{NAME}, 'scalar') unless $cache;
+    if (exists $cache->{$argstr}) { 
+      return $info->{O}{MERGED}
+        ? $cache->{$argstr}[0] : $cache->{$argstr};
+    } else {
+      my $val = &{$info->{U}}(@_);
+      # Scalars are considered to be lists; store appropriately
+      if ($info->{O}{MERGED}) {
+	$cache->{$argstr} = [$val];
+      } else {
+	$cache->{$argstr} = $val;
+      }
+      $val;
+    }
+  } elsif ($context == LIST) {
+    my $cache = $info->{L};
+    _crap_out($info->{NAME}, 'list') unless $cache;
+    if (exists $cache->{$argstr}) {
+      return @{$cache->{$argstr}};
+    } else {
+      my @q = &{$info->{U}}(@_);
+      $cache->{$argstr} = \@q;
+      @q;
+    }
+  } else {
+    croak "Internal error \#42; context was neither LIST nor SCALAR\n";
+  }
+}
+
+sub unmemoize {
+  my $f = shift;
+  my $uppack = caller;
+  my $cref = _make_cref($f, $uppack);
+
+  unless (exists $revmemotable{$cref}) {
+    croak "Could not unmemoize function `$f', because it was not memoized to begin with";
+  }
+  
+  my $tabent = $memotable{$revmemotable{$cref}};
+  unless (defined $tabent) {
+    croak "Could not figure out how to unmemoize function `$f'";
+  }
+  my $name = $tabent->{NAME};
+  if (defined $name) {
+    no strict;
+    local($^W) = 0;	       # ``Subroutine $install_name redefined at ...''
+    *{$name} = $tabent->{U}; # Replace with original function
+  }
+  undef $memotable{$revmemotable{$cref}};
+  undef $revmemotable{$cref};
+
+  # This removes the last reference to the (possibly tied) memo tables
+  # my ($old_function, $memotabs) = @{$tabent}{'U','S','L'};
+  # undef $tabent; 
+
+#  # Untie the memo tables if they were tied.
+#  my $i;
+#  for $i (0,1) {
+#    if (tied %{$memotabs->[$i]}) {
+#      warn "Untying hash #$i\n";
+#      untie %{$memotabs->[$i]};
+#    }
+#  }
+
+  $tabent->{U};
+}
+
+sub _make_cref {
+  my $fn = shift;
+  my $uppack = shift;
+  my $cref;
+  my $name;
+
+  if (ref $fn eq 'CODE') {
+    $cref = $fn;
+  } elsif (! ref $fn) {
+    if ($fn =~ /::/) {
+      $name = $fn;
+    } else {
+      $name = $uppack . '::' . $fn;
+    }
+    no strict;
+    if (defined $name and !defined(&$name)) {
+      croak "Cannot operate on nonexistent function `$fn'";
+    }
+#    $cref = \&$name;
+    $cref = *{$name}{CODE};
+  } else {
+    my $parent = (caller(1))[3]; # Function that called _make_cref
+    croak "Usage: argument 1 to `$parent' must be a function name or reference.\n";
+  }
+  $DEBUG and warn "${name}($fn) => $cref in _make_cref\n";
+  $cref;
+}
+
+sub _crap_out {
+  my ($funcname, $context) = @_;
+  if (defined $funcname) {
+    croak "Function `$funcname' called in forbidden $context context; faulting";
+  } else {
+    croak "Anonymous function called in forbidden $context context; faulting";
+  }
+}
+
+1;
+
+
+
+
+
+package charnames;
+use strict;
+use warnings;
+our $VERSION = '1.45';
+use unicore::Name;    # mktables-generated algorithmically-defined names
+use _charnames ();    # The submodule for this where most of the work gets done
+
+use bytes ();          # for $bytes::hint_bits
+use re "/aa";          # Everything in here should be ASCII
+
+# Translate between Unicode character names and their code points.
+# This is a wrapper around the submodule C<_charnames>.  This design allows
+# C<_charnames> to be autoloaded to enable use of \N{...}, but requires this
+# module to be explicitly requested for the functions API.
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+sub import
+{
+  shift; ## ignore class name
+  _charnames->import(@_);
+}
+
+# Cache of already looked-up values.  This is set to only contain
+# official values, and user aliases can't override them, so scoping is
+# not an issue.
+my %viacode;
+
+sub viacode {
+  return _charnames::viacode(@_);
+}
+
+sub vianame
+{
+  if (@_ != 1) {
+    _charnames::carp "charnames::vianame() expects one name argument";
+    return ()
+  }
+
+  # Looks up the character name and returns its ordinal if
+  # found, undef otherwise.
+
+  my $arg = shift;
+
+  if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
+
+    # khw claims that this is poor interface design.  The function should
+    # return either a an ord or a chr for all inputs; not be bipolar.  But
+    # can't change it because of backward compatibility.  New code can use
+    # string_vianame() instead.
+    my $ord = CORE::hex $1;
+    return pack("U", $ord) if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
+    _charnames::carp _charnames::not_legal_use_bytes_msg($arg, chr $ord);
+    return;
+  }
+
+  # The first 1 arg means wants an ord returned; the second that we are in
+  # runtime, and this is the first level routine called from the user
+  return _charnames::lookup_name($arg, 1, 1);
+} # vianame
+
+sub string_vianame {
+
+  # Looks up the character name and returns its string representation if
+  # found, undef otherwise.
+
+  if (@_ != 1) {
+    _charnames::carp "charnames::string_vianame() expects one name argument";
+    return;
+  }
+
+  my $arg = shift;
+
+  if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
+
+    my $ord = CORE::hex $1;
+    return pack("U", $ord) if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
+
+    _charnames::carp _charnames::not_legal_use_bytes_msg($arg, chr $ord);
+    return;
+  }
+
+  # The 0 arg means wants a string returned; the 1 arg means that we are in
+  # runtime, and this is the first level routine called from the user
+  return _charnames::lookup_name($arg, 0, 1);
+} # string_vianame
+
+1;
+__END__
+
+
+# ex: set ts=8 sts=2 sw=2 et:
+use 5.008;
+package fields;
+
+require 5.005;
+use strict;
+no strict 'refs';
+unless( eval q{require warnings::register; warnings::register->import; 1} ) {
+    *warnings::warnif = sub { 
+        require Carp;
+        Carp::carp(@_);
+    }
+}
+our %attr;
+
+our $VERSION = '2.24';
+$VERSION =~ tr/_//d;
+
+# constant.pm is slow
+sub PUBLIC     () { 2**0  }
+sub PRIVATE    () { 2**1  }
+sub INHERITED  () { 2**2  }
+sub PROTECTED  () { 2**3  }
+
+
+# The %attr hash holds the attributes of the currently assigned fields
+# per class.  The hash is indexed by class names and the hash value is
+# an array reference.  The first element in the array is the lowest field
+# number not belonging to a base class.  The remaining elements' indices
+# are the field numbers.  The values are integer bit masks, or undef
+# in the case of base class private fields (which occupy a slot but are
+# otherwise irrelevant to the class).
+
+sub import {
+    my $class = shift;
+    return unless @_;
+    my $package = caller(0);
+    # avoid possible typo warnings
+    %{"$package\::FIELDS"} = () unless %{"$package\::FIELDS"};
+    my $fields = \%{"$package\::FIELDS"};
+    my $fattr = ($attr{$package} ||= [1]);
+    my $next = @$fattr;
+
+    # Quiet pseudo-hash deprecation warning for uses of fields::new.
+    bless \%{"$package\::FIELDS"}, 'pseudohash';
+
+    if ($next > $fattr->[0]
+        and ($fields->{$_[0]} || 0) >= $fattr->[0])
+    {
+        # There are already fields not belonging to base classes.
+        # Looks like a possible module reload...
+        $next = $fattr->[0];
+    }
+    foreach my $f (@_) {
+        my $fno = $fields->{$f};
+
+        # Allow the module to be reloaded so long as field positions
+        # have not changed.
+        if ($fno and $fno != $next) {
+            require Carp;
+            if ($fno < $fattr->[0]) {
+              if ($] < 5.006001) {
+                warn("Hides field '$f' in base class") if $^W;
+              } else {
+                warnings::warnif("Hides field '$f' in base class") ;
+              }
+            } else {
+                Carp::croak("Field name '$f' already in use");
+            }
+        }
+        $fields->{$f} = $next;
+        $fattr->[$next] = ($f =~ /^_/) ? PRIVATE : PUBLIC;
+        $next += 1;
+    }
+    if (@$fattr > $next) {
+        # Well, we gave them the benefit of the doubt by guessing the
+        # module was reloaded, but they appear to be declaring fields
+        # in more than one place.  We can't be sure (without some extra
+        # bookkeeping) that the rest of the fields will be declared or
+        # have the same positions, so punt.
+        require Carp;
+        Carp::croak ("Reloaded module must declare all fields at once");
+    }
+}
+
+sub inherit {
+    require base;
+    goto &base::inherit_fields;
+}
+
+sub _dump  # sometimes useful for debugging
+{
+    for my $pkg (sort keys %attr) {
+        print "\n$pkg";
+        if (@{"$pkg\::ISA"}) {
+            print " (", join(", ", @{"$pkg\::ISA"}), ")";
+        }
+        print "\n";
+        my $fields = \%{"$pkg\::FIELDS"};
+        for my $f (sort {$fields->{$a} <=> $fields->{$b}} keys %$fields) {
+            my $no = $fields->{$f};
+            print "   $no: $f";
+            my $fattr = $attr{$pkg}[$no];
+            if (defined $fattr) {
+                my @a;
+                push(@a, "public")    if $fattr & PUBLIC;
+                push(@a, "private")   if $fattr & PRIVATE;
+                push(@a, "inherited") if $fattr & INHERITED;
+                print "\t(", join(", ", @a), ")";
+            }
+            print "\n";
+        }
+    }
+}
+
+if ($] < 5.009) {
+  *new = sub {
+    my $class = shift;
+    $class = ref $class if ref $class;
+    return bless [\%{$class . "::FIELDS"}], $class;
+  }
+} else {
+  *new = sub {
+    my $class = shift;
+    $class = ref $class if ref $class;
+    require Hash::Util;
+    my $self = bless {}, $class;
+
+    # The lock_keys() prototype won't work since we require Hash::Util :(
+    &Hash::Util::lock_keys(\%$self, _accessible_keys($class));
+    return $self;
+  }
+}
+
+sub _accessible_keys {
+    my ($class) = @_;
+    return (
+        keys %{$class.'::FIELDS'},
+        map(_accessible_keys($_), @{$class.'::ISA'}),
+    );
+}
+
+sub phash {
+    die "Pseudo-hashes have been removed from Perl" if $] >= 5.009;
+    my $h;
+    my $v;
+    if (@_) {
+       if (ref $_[0] eq 'ARRAY') {
+           my $a = shift;
+           @$h{@$a} = 1 .. @$a;
+           if (@_) {
+               $v = shift;
+               unless (! @_ and ref $v eq 'ARRAY') {
+                   require Carp;
+                   Carp::croak ("Expected at most two array refs\n");
+               }
+           }
+       }
+       else {
+           if (@_ % 2) {
+               require Carp;
+               Carp::croak ("Odd number of elements initializing pseudo-hash\n");
+           }
+           my $i = 0;
+           @$h{grep ++$i % 2, @_} = 1 .. @_ / 2;
+           $i = 0;
+           $v = [grep $i++ % 2, @_];
+       }
+    }
+    else {
+       $h = {};
+       $v = [];
+    }
+    [ $h, @$v ];
+
+}
+
+1;
+
+__END__
+
+package Thread;
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+our $VERSION = '3.04';
+$VERSION = eval $VERSION;
+
+BEGIN {
+    use Config;
+    if (! $Config{useithreads}) {
+        die("This Perl not built to support threads\n");
+    }
+}
+
+use threads 'yield';
+use threads::shared;
+
+require Exporter;
+our @ISA = qw(Exporter threads);
+our @EXPORT = qw(cond_wait cond_broadcast cond_signal);
+our @EXPORT_OK = qw(async yield);
+
+sub async (&;@) { return Thread->new(shift); }
+
+sub done { return ! shift->is_running(); }
+
+sub eval  { die("'eval' not implemented with 'ithreads'\n"); };
+sub flags { die("'flags' not implemented with 'ithreads'\n"); };
+
+1;
+
+__END__
+
+package parent;
+use strict;
+use vars qw($VERSION);
+$VERSION = '0.236';
+
+sub import {
+    my $class = shift;
+
+    my $inheritor = caller(0);
+
+    if ( @_ and $_[0] eq '-norequire' ) {
+        shift @_;
+    } else {
+        for ( my @filename = @_ ) {
+            s{::|'}{/}g;
+            require "$_.pm"; # dies if the file is not found
+        }
+    }
+
+    {
+        no strict 'refs';
+        push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected
+    };
+};
+
+1;
+
+__END__
+
+package less;
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+sub _pack_tags {
+    return join ' ', @_;
+}
+
+sub _unpack_tags {
+    return grep { defined and length }
+        map  { split ' ' }
+        grep {defined} @_;
+}
+
+sub stash_name { $_[0] }
+
+sub of {
+    my $class = shift @_;
+
+    # If no one wants the result, don't bother computing it.
+    return unless defined wantarray;
+
+    my $hinthash = ( caller 0 )[10];
+    my %tags;
+    @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
+
+    if (@_) {
+        exists $tags{$_} and return !!1 for @_;
+        return;
+    }
+    else {
+        return keys %tags;
+    }
+}
+
+sub import {
+    my $class = shift @_;
+    my $stash = $class->stash_name;
+
+    @_ = 'please' if not @_;
+    my %tags;
+    @tags{ _unpack_tags( @_, $^H{ $stash } ) } = ();
+
+    $^H{$stash} = _pack_tags( keys %tags );
+    return;
+}
+
+sub unimport {
+    my $class = shift @_;
+
+    if (@_) {
+        my %tags;
+        @tags{ _unpack_tags( $^H{$class} ) } = ();
+        delete @tags{ _unpack_tags(@_) };
+        my $new = _pack_tags( keys %tags );
+
+        if ( not length $new ) {
+            delete $^H{ $class->stash_name };
+        }
+        else {
+            $^H{ $class->stash_name } = $new;
+        }
+    }
+    else {
+        delete $^H{ $class->stash_name };
+    }
+
+    return;
+}
+
+1;
+
+__END__
+
+package Benchmark;
+
+use strict;
+
+
+
+# evaluate something in a clean lexical environment
+sub _doeval { no strict;  eval shift }
+
+#
+# put any lexicals at file scope AFTER here
+#
+
+use Carp;
+use Exporter;
+
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+
+@ISA=qw(Exporter);
+@EXPORT=qw(timeit timethis timethese timediff timestr);
+@EXPORT_OK=qw(timesum cmpthese countit
+	      clearcache clearallcache disablecache enablecache);
+%EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ;
+
+$VERSION = 1.22;
+
+# --- ':hireswallclock' special handling
+
+my $hirestime;
+
+sub mytime () { time }
+
+init();
+
+sub BEGIN {
+    if (eval 'require Time::HiRes') {
+	import Time::HiRes qw(time);
+	$hirestime = \&Time::HiRes::time;
+    }
+}
+
+sub import {
+    my $class = shift;
+    if (grep { $_ eq ":hireswallclock" } @_) {
+	@_ = grep { $_ ne ":hireswallclock" } @_;
+	local $^W=0;
+	*mytime = $hirestime if defined $hirestime;
+    }
+    Benchmark->export_to_level(1, $class, @_);
+}
+
+our($Debug, $Min_Count, $Min_CPU, $Default_Format, $Default_Style,
+    %_Usage, %Cache, $Do_Cache);
+
+sub init {
+    $Debug = 0;
+    $Min_Count = 4;
+    $Min_CPU   = 0.4;
+    $Default_Format = '5.2f';
+    $Default_Style = 'auto';
+    # The cache can cause a slight loss of sys time accuracy. If a
+    # user does many tests (>10) with *very* large counts (>10000)
+    # or works on a very slow machine the cache may be useful.
+    disablecache();
+    clearallcache();
+}
+
+sub debug { $Debug = ($_[1] != 0); }
+
+sub usage {
+    my $calling_sub = (caller(1))[3];
+    $calling_sub =~ s/^Benchmark:://;
+    return $_Usage{$calling_sub} || '';
+}
+
+# The cache needs two branches: 's' for strings and 'c' for code.  The
+# empty loop is different in these two cases.
+
+$_Usage{clearcache} = <<'USAGE';
+usage: clearcache($count);
+USAGE
+
+sub clearcache    {
+    die usage unless @_ == 1;
+    delete $Cache{"$_[0]c"}; delete $Cache{"$_[0]s"};
+}
+
+$_Usage{clearallcache} = <<'USAGE';
+usage: clearallcache();
+USAGE
+
+sub clearallcache {
+    die usage if @_;
+    %Cache = ();
+}
+
+$_Usage{enablecache} = <<'USAGE';
+usage: enablecache();
+USAGE
+
+sub enablecache   {
+    die usage if @_;
+    $Do_Cache = 1;
+}
+
+$_Usage{disablecache} = <<'USAGE';
+usage: disablecache();
+USAGE
+
+sub disablecache  {
+    die usage if @_;
+    $Do_Cache = 0;
+}
+
+
+# --- Functions to process the 'time' data type
+
+sub new { my @t = (mytime, times, @_ == 2 ? $_[1] : 0);
+	  print STDERR "new=@t\n" if $Debug;
+	  bless \@t; }
+
+sub cpu_p { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps         ; }
+sub cpu_c { my($r,$pu,$ps,$cu,$cs) = @{$_[0]};         $cu+$cs ; }
+sub cpu_a { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps+$cu+$cs ; }
+sub real  { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $r              ; }
+sub iters { $_[0]->[5] ; }
+
+# return the sum of various times: which ones depending on $style
+
+sub elapsed {
+    my ($self, $style) = @_;
+    $style = "" unless defined $style;
+
+    return $self->cpu_c if $style eq 'nop';
+    return $self->cpu_p if $style eq 'noc';
+    return $self->cpu_a;
+}
+
+
+$_Usage{timediff} = <<'USAGE';
+usage: $result_diff = timediff($result1, $result2);
+USAGE
+
+sub timediff {
+    my($a, $b) = @_;
+
+    die usage unless ref $a and ref $b;
+
+    my @r;
+    for (my $i=0; $i < @$a; ++$i) {
+	push(@r, $a->[$i] - $b->[$i]);
+    }
+    #die "Bad timediff(): ($r[1] + $r[2]) <= 0 (@$a[1,2]|@$b[1,2])\n"
+    #        if ($r[1] + $r[2]) < 0;
+    bless \@r;
+}
+
+$_Usage{timesum} = <<'USAGE';
+usage: $sum = timesum($result1, $result2);
+USAGE
+
+sub timesum {
+    my($a, $b) = @_;
+
+    die usage unless ref $a and ref $b;
+
+    my @r;
+    for (my $i=0; $i < @$a; ++$i) {
+ 	push(@r, $a->[$i] + $b->[$i]);
+    }
+    bless \@r;
+}
+
+
+$_Usage{timestr} = <<'USAGE';
+usage: $formatted_result = timestr($result1);
+USAGE
+
+sub timestr {
+    my($tr, $style, $f) = @_;
+
+    die usage unless ref $tr;
+
+    my @t = @$tr;
+    warn "bad time value (@t)" unless @t==6;
+    my($r, $pu, $ps, $cu, $cs, $n) = @t;
+    my($pt, $ct, $tt) = ($tr->cpu_p, $tr->cpu_c, $tr->cpu_a);
+    $f = $Default_Format unless defined $f;
+    # format a time in the required style, other formats may be added here
+    $style ||= $Default_Style;
+    return '' if $style eq 'none';
+    $style = ($ct>0) ? 'all' : 'noc' if $style eq 'auto';
+    my $s = "@t $style"; # default for unknown style
+    my $w = $hirestime ? "%2g" : "%2d";
+    $s = sprintf("$w wallclock secs (%$f usr %$f sys + %$f cusr %$f csys = %$f CPU)",
+			    $r,$pu,$ps,$cu,$cs,$tt) if $style eq 'all';
+    $s = sprintf("$w wallclock secs (%$f usr + %$f sys = %$f CPU)",
+			    $r,$pu,$ps,$pt) if $style eq 'noc';
+    $s = sprintf("$w wallclock secs (%$f cusr + %$f csys = %$f CPU)",
+			    $r,$cu,$cs,$ct) if $style eq 'nop';
+    my $elapsed = $tr->elapsed($style);
+    $s .= sprintf(" @ %$f/s (n=$n)",$n/($elapsed)) if $n && $elapsed;
+    $s;
+}
+
+sub timedebug {
+    my($msg, $t) = @_;
+    print STDERR "$msg",timestr($t),"\n" if $Debug;
+}
+
+# --- Functions implementing low-level support for timing loops
+
+$_Usage{runloop} = <<'USAGE';
+usage: runloop($number, [$string | $coderef])
+USAGE
+
+sub runloop {
+    my($n, $c) = @_;
+
+    $n+=0; # force numeric now, so garbage won't creep into the eval
+    croak "negative loopcount $n" if $n<0;
+    confess usage unless defined $c;
+    my($t0, $t1, $td); # before, after, difference
+
+    # find package of caller so we can execute code there
+    my($curpack) = caller(0);
+    my($i, $pack)= 0;
+    while (($pack) = caller(++$i)) {
+	last if $pack ne $curpack;
+    }
+
+    my ($subcode, $subref);
+    if (ref $c eq 'CODE') {
+	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }";
+        $subref  = eval $subcode;
+    }
+    else {
+	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c;} }";
+        $subref  = _doeval($subcode);
+    }
+    croak "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@;
+    print STDERR "runloop $n '$subcode'\n" if $Debug;
+
+    # Wait for the user timer to tick.  This makes the error range more like
+    # -0.01, +0.  If we don't wait, then it's more like -0.01, +0.01.  This
+    # may not seem important, but it significantly reduces the chances of
+    # getting a too low initial $n in the initial, 'find the minimum' loop
+    # in &countit.  This, in turn, can reduce the number of calls to
+    # &runloop a lot, and thus reduce additive errors.
+    #
+    # Note that its possible for the act of reading the system clock to
+    # burn lots of system CPU while we burn very little user clock in the
+    # busy loop, which can cause the loop to run for a very long wall time.
+    # So gradually ramp up the duration of the loop. See RT #122003
+    #
+    my $tbase = Benchmark->new(0)->[1];
+    my $limit = 1;
+    while ( ( $t0 = Benchmark->new(0) )->[1] == $tbase ) {
+        for (my $i=0; $i < $limit; $i++) { my $x = $i / 1.5 } # burn user CPU
+        $limit *= 1.1;
+    }
+    $subref->();
+    $t1 = Benchmark->new($n);
+    $td = &timediff($t1, $t0);
+    timedebug("runloop:",$td);
+    $td;
+}
+
+$_Usage{timeit} = <<'USAGE';
+usage: $result = timeit($count, 'code' );        or
+       $result = timeit($count, sub { code } );
+USAGE
+
+sub timeit {
+    my($n, $code) = @_;
+    my($wn, $wc, $wd);
+
+    die usage unless defined $code and
+                     (!ref $code or ref $code eq 'CODE');
+
+    printf STDERR "timeit $n $code\n" if $Debug;
+    my $cache_key = $n . ( ref( $code ) ? 'c' : 's' );
+    if ($Do_Cache && exists $Cache{$cache_key} ) {
+	$wn = $Cache{$cache_key};
+    } else {
+	$wn = &runloop($n, ref( $code ) ? sub { } : '' );
+	# Can't let our baseline have any iterations, or they get subtracted
+	# out of the result.
+	$wn->[5] = 0;
+	$Cache{$cache_key} = $wn;
+    }
+
+    $wc = &runloop($n, $code);
+
+    $wd = timediff($wc, $wn);
+    timedebug("timeit: ",$wc);
+    timedebug("      - ",$wn);
+    timedebug("      = ",$wd);
+
+    $wd;
+}
+
+
+my $default_for = 3;
+my $min_for     = 0.1;
+
+
+$_Usage{countit} = <<'USAGE';
+usage: $result = countit($time, 'code' );        or
+       $result = countit($time, sub { code } );
+USAGE
+
+sub countit {
+    my ( $tmax, $code ) = @_;
+
+    die usage unless @_;
+
+    if ( not defined $tmax or $tmax == 0 ) {
+	$tmax = $default_for;
+    } elsif ( $tmax < 0 ) {
+	$tmax = -$tmax;
+    }
+
+    die "countit($tmax, ...): timelimit cannot be less than $min_for.\n"
+	if $tmax < $min_for;
+
+    my ($n, $tc);
+
+    # First find the minimum $n that gives a significant timing.
+    my $zeros=0;
+    for ($n = 1; ; $n *= 2 ) {
+	my $t0 = Benchmark->new(0);
+	my $td = timeit($n, $code);
+	my $t1 = Benchmark->new(0);
+	$tc = $td->[1] + $td->[2];
+	if ( $tc <= 0 and $n > 1024 ) {
+	    my $d = timediff($t1, $t0);
+	    # note that $d is the total CPU time taken to call timeit(),
+	    # while $tc is is difference in CPU secs between the empty run
+	    # and the code run. If the code is trivial, its possible
+	    # for $d to get large while $tc is still zero (or slightly
+	    # negative). Bail out once timeit() starts taking more than a
+	    # few seconds without noticeable difference.
+	    if ($d->[1] + $d->[2] > 8
+		|| ++$zeros > 16)
+	    {
+	        die "Timing is consistently zero in estimation loop, cannot benchmark. N=$n\n";
+            }
+	} else {
+	    $zeros = 0;
+	}
+	last if $tc > 0.1;
+    }
+
+    my $nmin = $n;
+
+    # Get $n high enough that we can guess the final $n with some accuracy.
+    my $tpra = 0.1 * $tmax; # Target/time practice.
+    while ( $tc < $tpra ) {
+	# The 5% fudge is to keep us from iterating again all
+	# that often (this speeds overall responsiveness when $tmax is big
+	# and we guess a little low).  This does not noticeably affect
+	# accuracy since we're not counting these times.
+	$n = int( $tpra * 1.05 * $n / $tc ); # Linear approximation.
+	my $td = timeit($n, $code);
+	my $new_tc = $td->[1] + $td->[2];
+        # Make sure we are making progress.
+        $tc = $new_tc > 1.2 * $tc ? $new_tc : 1.2 * $tc;
+    }
+
+    # Now, do the 'for real' timing(s), repeating until we exceed
+    # the max.
+    my $ntot  = 0;
+    my $rtot  = 0;
+    my $utot  = 0.0;
+    my $stot  = 0.0;
+    my $cutot = 0.0;
+    my $cstot = 0.0;
+    my $ttot  = 0.0;
+
+    # The 5% fudge is because $n is often a few % low even for routines
+    # with stable times and avoiding extra timeit()s is nice for
+    # accuracy's sake.
+    $n = int( $n * ( 1.05 * $tmax / $tc ) );
+    $zeros=0;
+    while () {
+	my $td = timeit($n, $code);
+	$ntot  += $n;
+	$rtot  += $td->[0];
+	$utot  += $td->[1];
+	$stot  += $td->[2];
+	$cutot += $td->[3];
+	$cstot += $td->[4];
+	$ttot = $utot + $stot;
+	last if $ttot >= $tmax;
+	if ( $ttot <= 0 ) {
+	    ++$zeros > 16
+	        and die "Timing is consistently zero, cannot benchmark. N=$n\n";
+	} else {
+	    $zeros = 0;
+	}
+        $ttot = 0.01 if $ttot < 0.01;
+	my $r = $tmax / $ttot - 1; # Linear approximation.
+	$n = int( $r * $ntot );
+	$n = $nmin if $n < $nmin;
+    }
+
+    return bless [ $rtot, $utot, $stot, $cutot, $cstot, $ntot ];
+}
+
+# --- Functions implementing high-level time-then-print utilities
+
+sub n_to_for {
+    my $n = shift;
+    return $n == 0 ? $default_for : $n < 0 ? -$n : undef;
+}
+
+$_Usage{timethis} = <<'USAGE';
+usage: $result = timethis($time, 'code' );        or
+       $result = timethis($time, sub { code } );
+USAGE
+
+sub timethis{
+    my($n, $code, $title, $style) = @_;
+    my($t, $forn);
+
+    die usage unless defined $code and
+                     (!ref $code or ref $code eq 'CODE');
+
+    if ( $n > 0 ) {
+	croak "non-integer loopcount $n, stopped" if int($n)<$n;
+	$t = timeit($n, $code);
+	$title = "timethis $n" unless defined $title;
+    } else {
+	my $fort  = n_to_for( $n );
+	$t     = countit( $fort, $code );
+	$title = "timethis for $fort" unless defined $title;
+	$forn  = $t->[-1];
+    }
+    local $| = 1;
+    $style = "" unless defined $style;
+    printf("%10s: ", $title) unless $style eq 'none';
+    print timestr($t, $style, $Default_Format),"\n" unless $style eq 'none';
+
+    $n = $forn if defined $forn;
+
+    if ($t->elapsed($style) < 0) {
+        # due to clock granularity and variable CPU speed and load,
+        # on quick code with a small number of loops, it's possible for
+        # the empty loop to appear to take longer than the real loop
+        # (e.g. 1 tick versus 0 ticks). This leads to a negative elapsed
+        # time. In this case, floor it at zero, to stop bizarre results.
+        print "            (warning: too few iterations for a reliable count)\n";
+        $t->[$_] = 0 for 1..4;
+    }
+
+    # A conservative warning to spot very silly tests.
+    # Don't assume that your benchmark is ok simply because
+    # you don't get this warning!
+    print "            (warning: too few iterations for a reliable count)\n"
+	if     $n < $Min_Count
+	    || ($t->real < 1 && $n < 1000)
+	    || $t->cpu_a < $Min_CPU;
+    $t;
+}
+
+
+$_Usage{timethese} = <<'USAGE';
+usage: timethese($count, { Name1 => 'code1', ... });        or
+       timethese($count, { Name1 => sub { code1 }, ... });
+USAGE
+
+sub timethese{
+    my($n, $alt, $style) = @_;
+    die usage unless ref $alt eq 'HASH';
+
+    my @names = sort keys %$alt;
+    $style = "" unless defined $style;
+    print "Benchmark: " unless $style eq 'none';
+    if ( $n > 0 ) {
+	croak "non-integer loopcount $n, stopped" if int($n)<$n;
+	print "timing $n iterations of" unless $style eq 'none';
+    } else {
+	print "running" unless $style eq 'none';
+    }
+    print " ", join(', ',@names) unless $style eq 'none';
+    unless ( $n > 0 ) {
+	my $for = n_to_for( $n );
+	print ", each" if $n > 1 && $style ne 'none';
+	print " for at least $for CPU seconds" unless $style eq 'none';
+    }
+    print "...\n" unless $style eq 'none';
+
+    # we could save the results in an array and produce a summary here
+    # sum, min, max, avg etc etc
+    my %results;
+    foreach my $name (@names) {
+        $results{$name} = timethis ($n, $alt -> {$name}, $name, $style);
+    }
+
+    return \%results;
+}
+
+
+$_Usage{cmpthese} = <<'USAGE';
+usage: cmpthese($count, { Name1 => 'code1', ... });        or
+       cmpthese($count, { Name1 => sub { code1 }, ... });  or
+       cmpthese($result, $style);
+USAGE
+
+sub cmpthese{
+    my ($results, $style);
+
+    # $count can be a blessed object.
+    if ( ref $_[0] eq 'HASH' ) {
+        ($results, $style) = @_;
+    }
+    else {
+        my($count, $code) = @_[0,1];
+        $style = $_[2] if defined $_[2];
+
+        die usage unless ref $code eq 'HASH';
+
+        $results = timethese($count, $code, ($style || "none"));
+    }
+
+    $style = "" unless defined $style;
+
+    # Flatten in to an array of arrays with the name as the first field
+    my @vals = map{ [ $_, @{$results->{$_}} ] } keys %$results;
+
+    for (@vals) {
+        # recreate the pre-flattened Benchmark object
+        my $tmp_bm = bless [ @{$_}[1..$#$_] ];
+	my $elapsed = $tmp_bm->elapsed($style);
+	# The epsilon fudge here is to prevent div by 0.  Since clock
+	# resolutions are much larger, it's below the noise floor.
+	my $rate = $_->[6]/(($elapsed)+0.000000000000001);
+	$_->[7] = $rate;
+    }
+
+    # Sort by rate
+    @vals = sort { $a->[7] <=> $b->[7] } @vals;
+
+    # If more than half of the rates are greater than one...
+    my $display_as_rate = @vals ? ($vals[$#vals>>1]->[7] > 1) : 0;
+
+    my @rows;
+    my @col_widths;
+
+    my @top_row = (
+        '',
+	$display_as_rate ? 'Rate' : 's/iter',
+	map { $_->[0] } @vals
+    );
+
+    push @rows, \@top_row;
+    @col_widths = map { length( $_ ) } @top_row;
+
+    # Build the data rows
+    # We leave the last column in even though it never has any data.  Perhaps
+    # it should go away.  Also, perhaps a style for a single column of
+    # percentages might be nice.
+    for my $row_val ( @vals ) {
+	my @row;
+
+        # Column 0 = test name
+	push @row, $row_val->[0];
+	$col_widths[0] = length( $row_val->[0] )
+	    if length( $row_val->[0] ) > $col_widths[0];
+
+        # Column 1 = performance
+	my $row_rate = $row_val->[7];
+
+	# We assume that we'll never get a 0 rate.
+	my $rate = $display_as_rate ? $row_rate : 1 / $row_rate;
+
+	# Only give a few decimal places before switching to sci. notation,
+	# since the results aren't usually that accurate anyway.
+	my $format =
+	   $rate >= 100 ?
+	       "%0.0f" :
+	   $rate >= 10 ?
+	       "%0.1f" :
+	   $rate >= 1 ?
+	       "%0.2f" :
+	   $rate >= 0.1 ?
+	       "%0.3f" :
+	       "%0.2e";
+
+	$format .= "/s"
+	    if $display_as_rate;
+
+	my $formatted_rate = sprintf( $format, $rate );
+	push @row, $formatted_rate;
+	$col_widths[1] = length( $formatted_rate )
+	    if length( $formatted_rate ) > $col_widths[1];
+
+        # Columns 2..N = performance ratios
+	my $skip_rest = 0;
+	for ( my $col_num = 0 ; $col_num < @vals ; ++$col_num ) {
+	    my $col_val = $vals[$col_num];
+	    my $out;
+	    if ( $skip_rest ) {
+		$out = '';
+	    }
+	    elsif ( $col_val->[0] eq $row_val->[0] ) {
+		$out = "--";
+		# $skip_rest = 1;
+	    }
+	    else {
+		my $col_rate = $col_val->[7];
+		$out = sprintf( "%.0f%%", 100*$row_rate/$col_rate - 100 );
+	    }
+	    push @row, $out;
+	    $col_widths[$col_num+2] = length( $out )
+		if length( $out ) > $col_widths[$col_num+2];
+
+	    # A little weirdness to set the first column width properly
+	    $col_widths[$col_num+2] = length( $col_val->[0] )
+		if length( $col_val->[0] ) > $col_widths[$col_num+2];
+	}
+	push @rows, \@row;
+    }
+
+    return \@rows if $style eq "none";
+
+    # Equalize column widths in the chart as much as possible without
+    # exceeding 80 characters.  This does not use or affect cols 0 or 1.
+    my @sorted_width_refs =
+       sort { $$a <=> $$b } map { \$_ } @col_widths[2..$#col_widths];
+    my $max_width = ${$sorted_width_refs[-1]};
+
+    my $total = @col_widths - 1 ;
+    for ( @col_widths ) { $total += $_ }
+
+    STRETCHER:
+    while ( $total < 80 ) {
+	my $min_width = ${$sorted_width_refs[0]};
+	last
+	   if $min_width == $max_width;
+	for ( @sorted_width_refs ) {
+	    last
+		if $$_ > $min_width;
+	    ++$$_;
+	    ++$total;
+	    last STRETCHER
+		if $total >= 80;
+	}
+    }
+
+    # Dump the output
+    my $format = join( ' ', map { "%${_}s" } @col_widths ) . "\n";
+    substr( $format, 1, 0 ) = '-';
+    for ( @rows ) {
+	printf $format, @$_;
+    }
+
+    return \@rows ;
+}
+
+
+1;
+package Carp;
+
+{ use 5.006; }
+use strict;
+use warnings;
+BEGIN {
+    # Very old versions of warnings.pm load Carp.  This can go wrong due
+    # to the circular dependency.  If warnings is invoked before Carp,
+    # then warnings starts by loading Carp, then Carp (above) tries to
+    # invoke warnings, and gets nothing because warnings is in the process
+    # of loading and hasn't defined its import method yet.  If we were
+    # only turning on warnings ("use warnings" above) this wouldn't be too
+    # bad, because Carp would just gets the state of the -w switch and so
+    # might not get some warnings that it wanted.  The real problem is
+    # that we then want to turn off Unicode warnings, but "no warnings
+    # 'utf8'" won't be effective if we're in this circular-dependency
+    # situation.  So, if warnings.pm is an affected version, we turn
+    # off all warnings ourselves by directly setting ${^WARNING_BITS}.
+    # On unaffected versions, we turn off just Unicode warnings, via
+    # the proper API.
+    if(!defined($warnings::VERSION) || eval($warnings::VERSION) < 1.06) {
+	${^WARNING_BITS} = "";
+    } else {
+	"warnings"->unimport("utf8");
+    }
+}
+
+sub _fetch_sub { # fetch sub without autovivifying
+    my($pack, $sub) = @_;
+    $pack .= '::';
+    # only works with top-level packages
+    return unless exists($::{$pack});
+    for ($::{$pack}) {
+	return unless ref \$_ eq 'GLOB' && *$_{HASH} && exists $$_{$sub};
+	for ($$_{$sub}) {
+	    return ref \$_ eq 'GLOB' ? *$_{CODE} : undef
+	}
+    }
+}
+
+# UTF8_REGEXP_PROBLEM is a compile-time constant indicating whether Carp
+# must avoid applying a regular expression to an upgraded (is_utf8)
+# string.  There are multiple problems, on different Perl versions,
+# that require this to be avoided.  All versions prior to 5.13.8 will
+# load utf8_heavy.pl for the swash system, even if the regexp doesn't
+# use character classes.  Perl 5.6 and Perls [5.11.2, 5.13.11) exhibit
+# specific problems when Carp is being invoked in the aftermath of a
+# syntax error.
+BEGIN {
+    if("$]" < 5.013011) {
+	*UTF8_REGEXP_PROBLEM = sub () { 1 };
+    } else {
+	*UTF8_REGEXP_PROBLEM = sub () { 0 };
+    }
+}
+
+# is_utf8() is essentially the utf8::is_utf8() function, which indicates
+# whether a string is represented in the upgraded form (using UTF-8
+# internally).  As utf8::is_utf8() is only available from Perl 5.8
+# onwards, extra effort is required here to make it work on Perl 5.6.
+BEGIN {
+    if(defined(my $sub = _fetch_sub utf8 => 'is_utf8')) {
+	*is_utf8 = $sub;
+    } else {
+	# black magic for perl 5.6
+	*is_utf8 = sub { unpack("C", "\xaa".$_[0]) != 170 };
+    }
+}
+
+# The downgrade() function defined here is to be used for attempts to
+# downgrade where it is acceptable to fail.  It must be called with a
+# second argument that is a true value.
+BEGIN {
+    if(defined(my $sub = _fetch_sub utf8 => 'downgrade')) {
+	*downgrade = \&{"utf8::downgrade"};
+    } else {
+	*downgrade = sub {
+	    my $r = "";
+	    my $l = length($_[0]);
+	    for(my $i = 0; $i != $l; $i++) {
+		my $o = ord(substr($_[0], $i, 1));
+		return if $o > 255;
+		$r .= chr($o);
+	    }
+	    $_[0] = $r;
+	};
+    }
+}
+
+# is_safe_printable_codepoint() indicates whether a character, specified
+# by integer codepoint, is OK to output literally in a trace.  Generally
+# this is if it is a printable character in the ancestral character set
+# (ASCII or EBCDIC).  This is used on some Perls in situations where a
+# regexp can't be used.
+BEGIN {
+    *is_safe_printable_codepoint =
+	"$]" >= 5.007_003 ?
+	    eval(q(sub ($) {
+		my $u = utf8::native_to_unicode($_[0]);
+		$u >= 0x20 && $u <= 0x7e;
+	    }))
+	: ord("A") == 65 ?
+	    sub ($) { $_[0] >= 0x20 && $_[0] <= 0x7e }
+	:
+	    sub ($) {
+		# Early EBCDIC
+		# 3 EBCDIC code pages supported then;  all controls but one
+		# are the code points below SPACE.  The other one is 0x5F on
+		# POSIX-BC; FF on the other two.
+		# FIXME: there are plenty of unprintable codepoints other
+		# than those that this code and the comment above identifies
+		# as "controls".
+		$_[0] >= ord(" ") && $_[0] <= 0xff &&
+		    $_[0] != (ord ("^") == 106 ? 0x5f : 0xff);
+	    }
+	;
+}
+
+sub _univ_mod_loaded {
+    return 0 unless exists($::{"UNIVERSAL::"});
+    for ($::{"UNIVERSAL::"}) {
+	return 0 unless ref \$_ eq "GLOB" && *$_{HASH} && exists $$_{"$_[0]::"};
+	for ($$_{"$_[0]::"}) {
+	    return 0 unless ref \$_ eq "GLOB" && *$_{HASH} && exists $$_{"VERSION"};
+	    for ($$_{"VERSION"}) {
+		return 0 unless ref \$_ eq "GLOB";
+		return ${*$_{SCALAR}};
+	    }
+	}
+    }
+}
+
+# _maybe_isa() is usually the UNIVERSAL::isa function.  We have to avoid
+# the latter if the UNIVERSAL::isa module has been loaded, to avoid infi-
+# nite recursion; in that case _maybe_isa simply returns true.
+my $isa;
+BEGIN {
+    if (_univ_mod_loaded('isa')) {
+        *_maybe_isa = sub { 1 }
+    }
+    else {
+        # Since we have already done the check, record $isa for use below
+        # when defining _StrVal.
+        *_maybe_isa = $isa = _fetch_sub(UNIVERSAL => "isa");
+    }
+}
+
+
+# We need an overload::StrVal or equivalent function, but we must avoid
+# loading any modules on demand, as Carp is used from __DIE__ handlers and
+# may be invoked after a syntax error.
+# We can copy recent implementations of overload::StrVal and use
+# overloading.pm, which is the fastest implementation, so long as
+# overloading is available.  If it is not available, we use our own pure-
+# Perl StrVal.  We never actually use overload::StrVal, for various rea-
+# sons described below.
+# overload versions are as follows:
+#     undef-1.00 (up to perl 5.8.0)   uses bless (avoid!)
+#     1.01-1.17  (perl 5.8.1 to 5.14) uses Scalar::Util
+#     1.18+      (perl 5.16+)         uses overloading
+# The ancient 'bless' implementation (that inspires our pure-Perl version)
+# blesses unblessed references and must be avoided.  Those using
+# Scalar::Util use refaddr, possibly the pure-Perl implementation, which
+# has the same blessing bug, and must be avoided.  Also, Scalar::Util is
+# loaded on demand.  Since we avoid the Scalar::Util implementations, we
+# end up having to implement our own overloading.pm-based version for perl
+# 5.10.1 to 5.14.  Since it also works just as well in more recent ver-
+# sions, we use it there, too.
+BEGIN {
+    if (eval { require "overloading.pm" }) {
+        *_StrVal = eval 'sub { no overloading; "$_[0]" }'
+    }
+    else {
+        # Work around the UNIVERSAL::can/isa modules to avoid recursion.
+
+        # _mycan is either UNIVERSAL::can, or, in the presence of an
+        # override, overload::mycan.
+        *_mycan = _univ_mod_loaded('can')
+            ? do { require "overload.pm"; _fetch_sub overload => 'mycan' }
+            : \&UNIVERSAL::can;
+
+        # _blessed is either UNIVERAL::isa(...), or, in the presence of an
+        # override, a hideous, but fairly reliable, workaround.
+        *_blessed = $isa
+            ? sub { &$isa($_[0], "UNIVERSAL") }
+            : sub {
+                my $probe = "UNIVERSAL::Carp_probe_" . rand;
+                no strict 'refs';
+                local *$probe = sub { "unlikely string" };
+                local $@;
+                local $SIG{__DIE__} = sub{};
+                (eval { $_[0]->$probe } || '') eq 'unlikely string'
+              };
+
+        *_StrVal = sub {
+            my $pack = ref $_[0];
+            # Perl's overload mechanism uses the presence of a special
+            # "method" named "((" or "()" to signal it is in effect.
+            # This test seeks to see if it has been set up.  "((" post-
+            # dates overloading.pm, so we can skip it.
+            return "$_[0]" unless _mycan($pack, "()");
+            # Even at this point, the invocant may not be blessed, so
+            # check for that.
+            return "$_[0]" if not _blessed($_[0]);
+            bless $_[0], "Carp";
+            my $str = "$_[0]";
+            bless $_[0], $pack;
+            $pack . substr $str, index $str, "=";
+        }
+    }
+}
+
+
+our $VERSION = '1.50';
+$VERSION =~ tr/_//d;
+
+our $MaxEvalLen = 0;
+our $Verbose    = 0;
+our $CarpLevel  = 0;
+our $MaxArgLen  = 64;    # How much of each argument to print. 0 = all.
+our $MaxArgNums = 8;     # How many arguments to print. 0 = all.
+our $RefArgFormatter = undef; # allow caller to format reference arguments
+
+require Exporter;
+our @ISA       = ('Exporter');
+our @EXPORT    = qw(confess croak carp);
+our @EXPORT_OK = qw(cluck verbose longmess shortmess);
+our @EXPORT_FAIL = qw(verbose);    # hook to enable verbose mode
+
+# The members of %Internal are packages that are internal to perl.
+# Carp will not report errors from within these packages if it
+# can.  The members of %CarpInternal are internal to Perl's warning
+# system.  Carp will not report errors from within these packages
+# either, and will not report calls *to* these packages for carp and
+# croak.  They replace $CarpLevel, which is deprecated.    The
+# $Max(EvalLen|(Arg(Len|Nums)) variables are used to specify how the eval
+# text and function arguments should be formatted when printed.
+
+our %CarpInternal;
+our %Internal;
+
+# disable these by default, so they can live w/o require Carp
+$CarpInternal{Carp}++;
+$CarpInternal{warnings}++;
+$Internal{Exporter}++;
+$Internal{'Exporter::Heavy'}++;
+
+# if the caller specifies verbose usage ("perl -MCarp=verbose script.pl")
+# then the following method will be called by the Exporter which knows
+# to do this thanks to @EXPORT_FAIL, above.  $_[1] will contain the word
+# 'verbose'.
+
+sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ }
+
+sub _cgc {
+    no strict 'refs';
+    return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
+    return;
+}
+
+sub longmess {
+    local($!, $^E);
+    # Icky backwards compatibility wrapper. :-(
+    #
+    # The story is that the original implementation hard-coded the
+    # number of call levels to go back, so calls to longmess were off
+    # by one.  Other code began calling longmess and expecting this
+    # behaviour, so the replacement has to emulate that behaviour.
+    my $cgc = _cgc();
+    my $call_pack = $cgc ? $cgc->() : caller();
+    if ( $Internal{$call_pack} or $CarpInternal{$call_pack} ) {
+        return longmess_heavy(@_);
+    }
+    else {
+        local $CarpLevel = $CarpLevel + 1;
+        return longmess_heavy(@_);
+    }
+}
+
+our @CARP_NOT;
+
+sub shortmess {
+    local($!, $^E);
+    my $cgc = _cgc();
+
+    # Icky backwards compatibility wrapper. :-(
+    local @CARP_NOT = $cgc ? $cgc->() : caller();
+    shortmess_heavy(@_);
+}
+
+sub croak   { die shortmess @_ }
+sub confess { die longmess @_ }
+sub carp    { warn shortmess @_ }
+sub cluck   { warn longmess @_ }
+
+BEGIN {
+    if("$]" >= 5.015002 || ("$]" >= 5.014002 && "$]" < 5.015) ||
+	    ("$]" >= 5.012005 && "$]" < 5.013)) {
+	*CALLER_OVERRIDE_CHECK_OK = sub () { 1 };
+    } else {
+	*CALLER_OVERRIDE_CHECK_OK = sub () { 0 };
+    }
+}
+
+sub caller_info {
+    my $i = shift(@_) + 1;
+    my %call_info;
+    my $cgc = _cgc();
+    {
+	# Some things override caller() but forget to implement the
+	# @DB::args part of it, which we need.  We check for this by
+	# pre-populating @DB::args with a sentinel which no-one else
+	# has the address of, so that we can detect whether @DB::args
+	# has been properly populated.  However, on earlier versions
+	# of perl this check tickles a bug in CORE::caller() which
+	# leaks memory.  So we only check on fixed perls.
+        @DB::args = \$i if CALLER_OVERRIDE_CHECK_OK;
+        package DB;
+        @call_info{
+            qw(pack file line sub has_args wantarray evaltext is_require) }
+            = $cgc ? $cgc->($i) : caller($i);
+    }
+
+    unless ( defined $call_info{file} ) {
+        return ();
+    }
+
+    my $sub_name = Carp::get_subname( \%call_info );
+    if ( $call_info{has_args} ) {
+        # Guard our serialization of the stack from stack refcounting bugs
+        # NOTE this is NOT a complete solution, we cannot 100% guard against
+        # these bugs.  However in many cases Perl *is* capable of detecting
+        # them and throws an error when it does.  Unfortunately serializing
+        # the arguments on the stack is a perfect way of finding these bugs,
+        # even when they would not affect normal program flow that did not
+        # poke around inside the stack.  Inside of Carp.pm it makes little
+        # sense reporting these bugs, as Carp's job is to report the callers
+        # errors, not the ones it might happen to tickle while doing so.
+        # See: https://rt.perl.org/Public/Bug/Display.html?id=131046
+        # and: https://rt.perl.org/Public/Bug/Display.html?id=52610
+        # for more details and discussion. - Yves
+        my @args = map {
+                my $arg;
+                local $@= $@;
+                eval {
+                    $arg = $_;
+                    1;
+                } or do {
+                    $arg = '** argument not available anymore **';
+                };
+                $arg;
+            } @DB::args;
+        if (CALLER_OVERRIDE_CHECK_OK && @args == 1
+            && ref $args[0] eq ref \$i
+            && $args[0] == \$i ) {
+            @args = ();    # Don't let anyone see the address of $i
+            local $@;
+            my $where = eval {
+                my $func    = $cgc or return '';
+                my $gv      =
+                    (_fetch_sub B => 'svref_2object' or return '')
+                        ->($func)->GV;
+                my $package = $gv->STASH->NAME;
+                my $subname = $gv->NAME;
+                return unless defined $package && defined $subname;
+
+                # returning CORE::GLOBAL::caller isn't useful for tracing the cause:
+                return if $package eq 'CORE::GLOBAL' && $subname eq 'caller';
+                " in &${package}::$subname";
+            } || '';
+            @args
+                = "** Incomplete caller override detected$where; \@DB::args were not set **";
+        }
+        else {
+            my $overflow;
+            if ( $MaxArgNums and @args > $MaxArgNums )
+            {    # More than we want to show?
+                $#args = $MaxArgNums - 1;
+                $overflow = 1;
+            }
+
+            @args = map { Carp::format_arg($_) } @args;
+
+            if ($overflow) {
+                push @args, '...';
+            }
+        }
+
+        # Push the args onto the subroutine
+        $sub_name .= '(' . join( ', ', @args ) . ')';
+    }
+    $call_info{sub_name} = $sub_name;
+    return wantarray() ? %call_info : \%call_info;
+}
+
+# Transform an argument to a function into a string.
+our $in_recurse;
+sub format_arg {
+    my $arg = shift;
+
+    if ( my $pack= ref($arg) ) {
+
+         # legitimate, let's not leak it.
+        if (!$in_recurse && _maybe_isa( $arg, 'UNIVERSAL' ) &&
+	    do {
+                local $@;
+	        local $in_recurse = 1;
+		local $SIG{__DIE__} = sub{};
+                eval {$arg->can('CARP_TRACE') }
+            })
+        {
+            return $arg->CARP_TRACE();
+        }
+        elsif (!$in_recurse &&
+	       defined($RefArgFormatter) &&
+	       do {
+                local $@;
+	        local $in_recurse = 1;
+		local $SIG{__DIE__} = sub{};
+                eval {$arg = $RefArgFormatter->($arg); 1}
+                })
+        {
+            return $arg;
+        }
+        else
+        {
+            # Argument may be blessed into a class with overloading, and so
+            # might have an overloaded stringification.  We don't want to
+            # risk getting the overloaded stringification, so we need to
+            # use _StrVal, our overload::StrVal()-equivalent.
+            return _StrVal $arg;
+        }
+    }
+    return "undef" if !defined($arg);
+    downgrade($arg, 1);
+    return $arg if !(UTF8_REGEXP_PROBLEM && is_utf8($arg)) &&
+	    $arg =~ /\A-?[0-9]+(?:\.[0-9]*)?(?:[eE][-+]?[0-9]+)?\z/;
+    my $suffix = "";
+    if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) {
+        substr ( $arg, $MaxArgLen - 3 ) = "";
+	$suffix = "...";
+    }
+    if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) {
+	for(my $i = length($arg); $i--; ) {
+	    my $c = substr($arg, $i, 1);
+	    my $x = substr($arg, 0, 0);   # work around bug on Perl 5.8.{1,2}
+	    if($c eq "\"" || $c eq "\\" || $c eq "\$" || $c eq "\@") {
+		substr $arg, $i, 0, "\\";
+		next;
+	    }
+	    my $o = ord($c);
+	    substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+		unless is_safe_printable_codepoint($o);
+	}
+    } else {
+	$arg =~ s/([\"\\\$\@])/\\$1/g;
+        # This is all the ASCII printables spelled-out.  It is portable to all
+        # Perl versions and platforms (such as EBCDIC).  There are other more
+        # compact ways to do this, but may not work everywhere every version.
+        $arg =~ s/([^ !"#\$\%\&'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg;
+    }
+    downgrade($arg, 1);
+    return "\"".$arg."\"".$suffix;
+}
+
+sub Regexp::CARP_TRACE {
+    my $arg = "$_[0]";
+    downgrade($arg, 1);
+    if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) {
+	for(my $i = length($arg); $i--; ) {
+	    my $o = ord(substr($arg, $i, 1));
+	    my $x = substr($arg, 0, 0);   # work around bug on Perl 5.8.{1,2}
+	    substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+		unless is_safe_printable_codepoint($o);
+	}
+    } else {
+        # See comment in format_arg() about this same regex.
+        $arg =~ s/([^ !"#\$\%\&'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg;
+    }
+    downgrade($arg, 1);
+    my $suffix = "";
+    if($arg =~ /\A\(\?\^?([a-z]*)(?:-[a-z]*)?:(.*)\)\z/s) {
+	($suffix, $arg) = ($1, $2);
+    }
+    if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) {
+        substr ( $arg, $MaxArgLen - 3 ) = "";
+	$suffix = "...".$suffix;
+    }
+    return "qr($arg)$suffix";
+}
+
+# Takes an inheritance cache and a package and returns
+# an anon hash of known inheritances and anon array of
+# inheritances which consequences have not been figured
+# for.
+sub get_status {
+    my $cache = shift;
+    my $pkg   = shift;
+    $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
+    return @{ $cache->{$pkg} };
+}
+
+# Takes the info from caller() and figures out the name of
+# the sub/require/eval
+sub get_subname {
+    my $info = shift;
+    if ( defined( $info->{evaltext} ) ) {
+        my $eval = $info->{evaltext};
+        if ( $info->{is_require} ) {
+            return "require $eval";
+        }
+        else {
+            $eval =~ s/([\\\'])/\\$1/g;
+            return "eval '" . str_len_trim( $eval, $MaxEvalLen ) . "'";
+        }
+    }
+
+    # this can happen on older perls when the sub (or the stash containing it)
+    # has been deleted
+    if ( !defined( $info->{sub} ) ) {
+        return '__ANON__::__ANON__';
+    }
+
+    return ( $info->{sub} eq '(eval)' ) ? 'eval {...}' : $info->{sub};
+}
+
+# Figures out what call (from the point of view of the caller)
+# the long error backtrace should start at.
+sub long_error_loc {
+    my $i;
+    my $lvl = $CarpLevel;
+    {
+        ++$i;
+        my $cgc = _cgc();
+        my @caller = $cgc ? $cgc->($i) : caller($i);
+        my $pkg = $caller[0];
+        unless ( defined($pkg) ) {
+
+            # This *shouldn't* happen.
+            if (%Internal) {
+                local %Internal;
+                $i = long_error_loc();
+                last;
+            }
+            elsif (defined $caller[2]) {
+                # this can happen when the stash has been deleted
+                # in that case, just assume that it's a reasonable place to
+                # stop (the file and line data will still be intact in any
+                # case) - the only issue is that we can't detect if the
+                # deleted package was internal (so don't do that then)
+                # -doy
+                redo unless 0 > --$lvl;
+                last;
+            }
+            else {
+                return 2;
+            }
+        }
+        redo if $CarpInternal{$pkg};
+        redo unless 0 > --$lvl;
+        redo if $Internal{$pkg};
+    }
+    return $i - 1;
+}
+
+sub longmess_heavy {
+    if ( ref( $_[0] ) ) {   # don't break references as exceptions
+        return wantarray ? @_ : $_[0];
+    }
+    my $i = long_error_loc();
+    return ret_backtrace( $i, @_ );
+}
+
+BEGIN {
+    if("$]" >= 5.017004) {
+        # The LAST_FH constant is a reference to the variable.
+        $Carp::{LAST_FH} = \eval '\${^LAST_FH}';
+    } else {
+        eval '*LAST_FH = sub () { 0 }';
+    }
+}
+
+# Returns a full stack backtrace starting from where it is
+# told.
+sub ret_backtrace {
+    my ( $i, @error ) = @_;
+    my $mess;
+    my $err = join '', @error;
+    $i++;
+
+    my $tid_msg = '';
+    if ( defined &threads::tid ) {
+        my $tid = threads->tid;
+        $tid_msg = " thread $tid" if $tid;
+    }
+
+    my %i = caller_info($i);
+    $mess = "$err at $i{file} line $i{line}$tid_msg";
+    if( $. ) {
+      # Use ${^LAST_FH} if available.
+      if (LAST_FH) {
+        if (${+LAST_FH}) {
+            $mess .= sprintf ", <%s> %s %d",
+                              *${+LAST_FH}{NAME},
+                              ($/ eq "\n" ? "line" : "chunk"), $.
+        }
+      }
+      else {
+        local $@ = '';
+        local $SIG{__DIE__};
+        eval {
+            CORE::die;
+        };
+        if($@ =~ /^Died at .*(, <.*?> (?:line|chunk) \d+).$/ ) {
+            $mess .= $1;
+        }
+      }
+    }
+    $mess .= "\.\n";
+
+    while ( my %i = caller_info( ++$i ) ) {
+        $mess .= "\t$i{sub_name} called at $i{file} line $i{line}$tid_msg\n";
+    }
+
+    return $mess;
+}
+
+sub ret_summary {
+    my ( $i, @error ) = @_;
+    my $err = join '', @error;
+    $i++;
+
+    my $tid_msg = '';
+    if ( defined &threads::tid ) {
+        my $tid = threads->tid;
+        $tid_msg = " thread $tid" if $tid;
+    }
+
+    my %i = caller_info($i);
+    return "$err at $i{file} line $i{line}$tid_msg\.\n";
+}
+
+sub short_error_loc {
+    # You have to create your (hash)ref out here, rather than defaulting it
+    # inside trusts *on a lexical*, as you want it to persist across calls.
+    # (You can default it on $_[2], but that gets messy)
+    my $cache = {};
+    my $i     = 1;
+    my $lvl   = $CarpLevel;
+    {
+        my $cgc = _cgc();
+        my $called = $cgc ? $cgc->($i) : caller($i);
+        $i++;
+        my $caller = $cgc ? $cgc->($i) : caller($i);
+
+        if (!defined($caller)) {
+            my @caller = $cgc ? $cgc->($i) : caller($i);
+            if (@caller) {
+                # if there's no package but there is other caller info, then
+                # the package has been deleted - treat this as a valid package
+                # in this case
+                redo if defined($called) && $CarpInternal{$called};
+                redo unless 0 > --$lvl;
+                last;
+            }
+            else {
+                return 0;
+            }
+        }
+        redo if $Internal{$caller};
+        redo if $CarpInternal{$caller};
+        redo if $CarpInternal{$called};
+        redo if trusts( $called, $caller, $cache );
+        redo if trusts( $caller, $called, $cache );
+        redo unless 0 > --$lvl;
+    }
+    return $i - 1;
+}
+
+sub shortmess_heavy {
+    return longmess_heavy(@_) if $Verbose;
+    return @_ if ref( $_[0] );    # don't break references as exceptions
+    my $i = short_error_loc();
+    if ($i) {
+        ret_summary( $i, @_ );
+    }
+    else {
+        longmess_heavy(@_);
+    }
+}
+
+# If a string is too long, trims it with ...
+sub str_len_trim {
+    my $str = shift;
+    my $max = shift || 0;
+    if ( 2 < $max and $max < length($str) ) {
+        substr( $str, $max - 3 ) = '...';
+    }
+    return $str;
+}
+
+# Takes two packages and an optional cache.  Says whether the
+# first inherits from the second.
+#
+# Recursive versions of this have to work to avoid certain
+# possible endless loops, and when following long chains of
+# inheritance are less efficient.
+sub trusts {
+    my $child  = shift;
+    my $parent = shift;
+    my $cache  = shift;
+    my ( $known, $partial ) = get_status( $cache, $child );
+
+    # Figure out consequences until we have an answer
+    while ( @$partial and not exists $known->{$parent} ) {
+        my $anc = shift @$partial;
+        next if exists $known->{$anc};
+        $known->{$anc}++;
+        my ( $anc_knows, $anc_partial ) = get_status( $cache, $anc );
+        my @found = keys %$anc_knows;
+        @$known{@found} = ();
+        push @$partial, @$anc_partial;
+    }
+    return exists $known->{$parent};
+}
+
+# Takes a package and gives a list of those trusted directly
+sub trusts_directly {
+    my $class = shift;
+    no strict 'refs';
+    my $stash = \%{"$class\::"};
+    for my $var (qw/ CARP_NOT ISA /) {
+        # Don't try using the variable until we know it exists,
+        # to avoid polluting the caller's namespace.
+        if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
+          && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
+           return @{$stash->{$var}}
+        }
+    }
+    return;
+}
+
+if(!defined($warnings::VERSION) ||
+	do { no warnings "numeric"; $warnings::VERSION < 1.03 }) {
+    # Very old versions of warnings.pm import from Carp.  This can go
+    # wrong due to the circular dependency.  If Carp is invoked before
+    # warnings, then Carp starts by loading warnings, then warnings
+    # tries to import from Carp, and gets nothing because Carp is in
+    # the process of loading and hasn't defined its import method yet.
+    # So we work around that by manually exporting to warnings here.
+    no strict "refs";
+    *{"warnings::$_"} = \&$_ foreach @EXPORT;
+}
+
+1;
+
+__END__
+
+#
+# Documentation is at the __END__
+#
+
+package DB;
+
+# "private" globals
+
+my ($running, $ready, $deep, $usrctxt, $evalarg, 
+    @stack, @saved, @skippkg, @clients);
+my $preeval = {};
+my $posteval = {};
+my $ineval = {};
+
+####
+#
+# Globals - must be defined at startup so that clients can refer to 
+# them right after a C<require DB;>
+#
+####
+
+BEGIN {
+
+  # these are hardcoded in perl source (some are magical)
+
+  $DB::sub = '';        # name of current subroutine
+  %DB::sub = ();        # "filename:fromline-toline" for every known sub
+  $DB::single = 0;      # single-step flag (set it to 1 to enable stops in BEGIN/use)
+  $DB::signal = 0;      # signal flag (will cause a stop at the next line)
+  $DB::trace = 0;       # are we tracing through subroutine calls?
+  @DB::args = ();       # arguments of current subroutine or @ARGV array
+  @DB::dbline = ();     # list of lines in currently loaded file
+  %DB::dbline = ();     # actions in current file (keyed by line number)
+  @DB::ret = ();        # return value of last sub executed in list context
+  $DB::ret = '';        # return value of last sub executed in scalar context
+
+  # other "public" globals  
+
+  $DB::package = '';    # current package space
+  $DB::filename = '';   # current filename
+  $DB::subname = '';    # currently executing sub (fully qualified name)
+  $DB::lineno = '';     # current line number
+
+  $DB::VERSION = $DB::VERSION = '1.08';
+
+  # initialize private globals to avoid warnings
+
+  $running = 1;         # are we running, or are we stopped?
+  @stack = (0);
+  @clients = ();
+  $deep = 1000;
+  $ready = 0;
+  @saved = ();
+  @skippkg = ();
+  $usrctxt = '';
+  $evalarg = '';
+}
+
+####
+# entry point for all subroutine calls
+#
+sub sub {
+  push(@stack, $DB::single);
+  $DB::single &= 1;
+  $DB::single |= 4 if $#stack == $deep;
+  if ($DB::sub eq 'DESTROY' or substr($DB::sub, -9) eq '::DESTROY' or not defined wantarray) {
+    &$DB::sub;
+    $DB::single |= pop(@stack);
+    $DB::ret = undef;
+  }
+  elsif (wantarray) {
+    @DB::ret = &$DB::sub;
+    $DB::single |= pop(@stack);
+    @DB::ret;
+  }
+  else {
+    $DB::ret = &$DB::sub;
+    $DB::single |= pop(@stack);
+    $DB::ret;
+  }
+}
+
+####
+# this is called by perl for every statement
+#
+sub DB {
+  return unless $ready;
+  &save;
+  ($DB::package, $DB::filename, $DB::lineno) = caller;
+
+  return if @skippkg and grep { $_ eq $DB::package } @skippkg;
+
+  $usrctxt = "package $DB::package;";		# this won't let them modify, alas
+  local(*DB::dbline) = "::_<$DB::filename";
+
+  my ($stop, $action);
+  if (($stop,$action) = split(/\0/,$DB::dbline{$DB::lineno})) {
+    if ($stop eq '1') {
+      $DB::signal |= 1;
+    }
+    else {
+      $stop = 0 unless $stop;			# avoid un_init warning
+      $evalarg = "\$DB::signal |= do { $stop; }"; &eval;
+      $DB::dbline{$DB::lineno} =~ s/;9($|\0)/$1/;    # clear any temp breakpt
+    }
+  }
+  if ($DB::single || $DB::trace || $DB::signal) {
+    $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
+    DB->loadfile($DB::filename, $DB::lineno);
+  }
+  $evalarg = $action, &eval if $action;
+  if ($DB::single || $DB::signal) {
+    _outputall($#stack . " levels deep in subroutine calls.\n") if $DB::single & 4;
+    $DB::single = 0;
+    $DB::signal = 0;
+    $running = 0;
+    
+    &eval if ($evalarg = DB->prestop);
+    my $c;
+    for $c (@clients) {
+      # perform any client-specific prestop actions
+      &eval if ($evalarg = $c->cprestop);
+      
+      # Now sit in an event loop until something sets $running
+      do {
+	$c->idle;                     # call client event loop; must not block
+	if ($running == 2) {          # client wants something eval-ed
+	  &eval if ($evalarg = $c->evalcode);
+	  $running = 0;
+	}
+      } until $running;
+      
+      # perform any client-specific poststop actions
+      &eval if ($evalarg = $c->cpoststop);
+    }
+    &eval if ($evalarg = DB->poststop);
+  }
+  ($@, $!, $,, $/, $\, $^W) = @saved;
+  ();
+}
+  
+####
+# this takes its argument via $evalarg to preserve current @_
+#    
+sub eval {
+  ($@, $!, $,, $/, $\, $^W) = @saved;
+  eval "$usrctxt $evalarg; &DB::save";
+  _outputall($@) if $@;
+}
+
+###############################################################################
+#         no compile-time subroutine call allowed before this point           #
+###############################################################################
+
+use strict;                # this can run only after DB() and sub() are defined
+
+sub save {
+  @saved = ($@, $!, $,, $/, $\, $^W);
+  $, = ""; $/ = "\n"; $\ = ""; $^W = 0;
+}
+
+sub catch {
+  for (@clients) { $_->awaken; }
+  $DB::signal = 1;
+  $ready = 1;
+}
+
+####
+#
+# Client callable (read inheritable) methods defined after this point
+#
+####
+
+sub register {
+  my $s = shift;
+  $s = _clientname($s) if ref($s);
+  push @clients, $s;
+}
+
+sub done {
+  my $s = shift;
+  $s = _clientname($s) if ref($s);
+  @clients = grep {$_ ne $s} @clients;
+  $s->cleanup;
+#  $running = 3 unless @clients;
+  exit(0) unless @clients;
+}
+
+sub _clientname {
+  my $name = shift;
+  "$name" =~ /^(.+)=[A-Z]+\(.+\)$/;
+  return $1;
+}
+
+sub next {
+  my $s = shift;
+  $DB::single = 2;
+  $running = 1;
+}
+
+sub step {
+  my $s = shift;
+  $DB::single = 1;
+  $running = 1;
+}
+
+sub cont {
+  my $s = shift;
+  my $i = shift;
+  $s->set_tbreak($i) if $i;
+  for ($i = 0; $i <= $#stack;) {
+	$stack[$i++] &= ~1;
+  }
+  $DB::single = 0;
+  $running = 1;
+}
+
+####
+# XXX caller must experimentally determine $i (since it depends
+# on how many client call frames are between this call and the DB call).
+# Such is life.
+#
+sub ret {
+  my $s = shift;
+  my $i = shift;      # how many levels to get to DB sub
+  $i = 0 unless defined $i;
+  $stack[$#stack-$i] |= 1;
+  $DB::single = 0;
+  $running = 1;
+}
+
+####
+# XXX caller must experimentally determine $start (since it depends
+# on how many client call frames are between this call and the DB call).
+# Such is life.
+#
+sub backtrace {
+  my $self = shift;
+  my $start = shift;
+  my($p,$f,$l,$s,$h,$w,$e,$r,$a, @a, @ret,$i);
+  $start = 1 unless $start;
+  for ($i = $start; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
+    @a = @DB::args;
+    for (@a) {
+      s/'/\\'/g;
+      s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
+      require 'meta_notation.pm';
+      $_ = _meta_notation($_) if /[[:^print:]]/a;
+    }
+    $w = $w ? '@ = ' : '$ = ';
+    $a = $h ? '(' . join(', ', @a) . ')' : '';
+    $e =~ s/\n\s*\;\s*\Z// if $e;
+    $e =~ s/[\\\']/\\$1/g if $e;
+    if ($r) {
+      $s = "require '$e'";
+    } elsif (defined $r) {
+      $s = "eval '$e'";
+    } elsif ($s eq '(eval)') {
+      $s = "eval {...}";
+    }
+    $f = "file '$f'" unless $f eq '-e';
+    push @ret, "$w&$s$a from $f line $l";
+    last if $DB::signal;
+  }
+  return @ret;
+}
+
+sub _outputall {
+  my $c;
+  for $c (@clients) {
+    $c->output(@_);
+  }
+}
+
+sub trace_toggle {
+  my $s = shift;
+  $DB::trace = !$DB::trace;
+}
+
+
+####
+# without args: returns all defined subroutine names
+# with subname args: returns a listref [file, start, end]
+#
+sub subs {
+  my $s = shift;
+  if (@_) {
+    my(@ret) = ();
+    while (@_) {
+      my $name = shift;
+      push @ret, [$DB::sub{$name} =~ /^(.*)\:(\d+)-(\d+)$/] 
+	if exists $DB::sub{$name};
+    }
+    return @ret;
+  }
+  return keys %DB::sub;
+}
+
+####
+# first argument is a filename whose subs will be returned
+# if a filename is not supplied, all subs in the current
+# filename are returned.
+#
+sub filesubs {
+  my $s = shift;
+  my $fname = shift;
+  $fname = $DB::filename unless $fname;
+  return grep { $DB::sub{$_} =~ /^$fname/ } keys %DB::sub;
+}
+
+####
+# returns a list of all filenames that DB knows about
+#
+sub files {
+  my $s = shift;
+  my(@f) = grep(m|^_<|, keys %main::);
+  return map { substr($_,2) } @f;
+}
+
+####
+# returns reference to an array holding the lines in currently
+# loaded file
+#
+sub lines {
+  my $s = shift;
+  return \@DB::dbline;
+}
+
+####
+# loadfile($file, $line)
+#
+sub loadfile {
+  my $s = shift;
+  my($file, $line) = @_;
+  if (!defined $main::{'_<' . $file}) {
+    my $try;
+    if (($try) = grep(m|^_<.*$file|, keys %main::)) {  
+      $file = substr($try,2);
+    }
+  }
+  if (defined($main::{'_<' . $file})) {
+    my $c;
+#    _outputall("Loading file $file..");
+    *DB::dbline = "::_<$file";
+    $DB::filename = $file;
+    for $c (@clients) {
+#      print "2 ", $file, '|', $line, "\n";
+      $c->showfile($file, $line);
+    }
+    return $file;
+  }
+  return undef;
+}
+
+sub lineevents {
+  my $s = shift;
+  my $fname = shift;
+  my(%ret) = ();
+  my $i;
+  $fname = $DB::filename unless $fname;
+  local(*DB::dbline) = "::_<$fname";
+  for ($i = 1; $i <= $#DB::dbline; $i++) {
+    $ret{$i} = [$DB::dbline[$i], split(/\0/, $DB::dbline{$i})] 
+      if defined $DB::dbline{$i};
+  }
+  return %ret;
+}
+
+sub set_break {
+  my $s = shift;
+  my $i = shift;
+  my $cond = shift;
+  $i ||= $DB::lineno;
+  $cond ||= '1';
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not breakable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/^[^\0]*/$cond/;
+    }
+  }
+}
+
+sub set_tbreak {
+  my $s = shift;
+  my $i = shift;
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not breakable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/($|\0)/;9$1/; # add one-time-only b.p.
+    }
+  }
+}
+
+sub _find_subline {
+  my $name = shift;
+  $name =~ s/\'/::/;
+  $name = "${DB::package}\:\:" . $name if $name !~ /::/;
+  $name = "main" . $name if substr($name,0,2) eq "::";
+  my($fname, $from, $to) = ($DB::sub{$name} =~ /^(.*):(\d+)-(\d+)$/);
+  if ($from) {
+    local *DB::dbline = "::_<$fname";
+    ++$from while $DB::dbline[$from] == 0 && $from < $to;
+    return $from;
+  }
+  return undef;
+}
+
+sub clr_breaks {
+  my $s = shift;
+  my $i;
+  if (@_) {
+    while (@_) {
+      $i = shift;
+      $i = _find_subline($i) if ($i =~ /\D/);
+      $s->output("Subroutine not found.\n") unless $i;
+      if (defined $DB::dbline{$i}) {
+        $DB::dbline{$i} =~ s/^[^\0]+//;
+        if ($DB::dbline{$i} =~ s/^\0?$//) {
+          delete $DB::dbline{$i};
+        }
+      }
+    }
+  }
+  else {
+    for ($i = 1; $i <= $#DB::dbline ; $i++) {
+      if (defined $DB::dbline{$i}) {
+        $DB::dbline{$i} =~ s/^[^\0]+//;
+        if ($DB::dbline{$i} =~ s/^\0?$//) {
+          delete $DB::dbline{$i};
+        }
+      }
+    }
+  }
+}
+
+sub set_action {
+  my $s = shift;
+  my $i = shift;
+  my $act = shift;
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not actionable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/\0[^\0]*//;
+      $DB::dbline{$i} .= "\0" . $act;
+    }
+  }
+}
+
+sub clr_actions {
+  my $s = shift;
+  my $i;
+  if (@_) {
+    while (@_) {
+      my $i = shift;
+      $i = _find_subline($i) if ($i =~ /\D/);
+      $s->output("Subroutine not found.\n") unless $i;
+      if ($i && $DB::dbline[$i] != 0) {
+	$DB::dbline{$i} =~ s/\0[^\0]*//;
+	delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
+      }
+    }
+  }
+  else {
+    for ($i = 1; $i <= $#DB::dbline ; $i++) {
+      if (defined $DB::dbline{$i}) {
+	$DB::dbline{$i} =~ s/\0[^\0]*//;
+	delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
+      }
+    }
+  }
+}
+
+sub prestop {
+  my ($client, $val) = @_;
+  return defined($val) ? $preeval->{$client} = $val : $preeval->{$client};
+}
+
+sub poststop {
+  my ($client, $val) = @_;
+  return defined($val) ? $posteval->{$client} = $val : $posteval->{$client};
+}
+
+#
+# "pure virtual" methods
+#
+
+# client-specific pre/post-stop actions.
+sub cprestop {}
+sub cpoststop {}
+
+# client complete startup
+sub awaken {}
+
+sub skippkg {
+  my $s = shift;
+  push @skippkg, @_ if @_;
+}
+
+sub evalcode {
+  my ($client, $val) = @_;
+  if (defined $val) {
+    $running = 2;    # hand over to DB() to evaluate in its context
+    $ineval->{$client} = $val;
+  }
+  return $ineval->{$client};
+}
+
+sub ready {
+  my $s = shift;
+  return $ready = 1;
+}
+
+# stubs
+    
+sub init {}
+sub stop {}
+sub idle {}
+sub cleanup {}
+sub output {}
+
+#
+# client init
+#
+for (@clients) { $_->init }
+
+$SIG{'INT'} = \&DB::catch;
+
+# disable this if stepping through END blocks is desired
+# (looks scary and deconstructivist with Swat)
+END { $ready = 0 }
+
+1;
+__END__
+
+package FileHandle;
+
+use 5.006;
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
+
+$VERSION = "2.03";
+
+require IO::File;
+@ISA = qw(IO::File);
+
+@EXPORT = qw(_IOFBF _IOLBF _IONBF);
+
+@EXPORT_OK = qw(
+    pipe
+
+    autoflush
+    output_field_separator
+    output_record_separator
+    input_record_separator
+    input_line_number
+    format_page_number
+    format_lines_per_page
+    format_lines_left
+    format_name
+    format_top_name
+    format_line_break_characters
+    format_formfeed
+
+    print
+    printf
+    getline
+    getlines
+);
+
+#
+# Everything we're willing to export, we must first import.
+#
+IO::Handle->import( grep { !defined(&$_) } @EXPORT, @EXPORT_OK );
+
+#
+# Some people call "FileHandle::function", so all the functions
+# that were in the old FileHandle class must be imported, too.
+#
+{
+    no strict 'refs';
+
+    my %import = (
+	'IO::Handle' =>
+	    [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets
+		eof flush error clearerr setbuf setvbuf _open_mode_string)],
+	'IO::Seekable' =>
+	    [qw(seek tell getpos setpos)],
+	'IO::File' =>
+	    [qw(new new_tmpfile open)]
+    );
+    for my $pkg (keys %import) {
+	for my $func (@{$import{$pkg}}) {
+	    my $c = *{"${pkg}::$func"}{CODE}
+		or die "${pkg}::$func missing";
+	    *$func = $c;
+	}
+    }
+}
+
+#
+# Specialized importer for Fcntl magic.
+#
+sub import {
+    my $pkg = shift;
+    my $callpkg = caller;
+    require Exporter;
+    Exporter::export($pkg, $callpkg, @_);
+
+    #
+    # If the Fcntl extension is available,
+    #  export its constants.
+    #
+    eval {
+	require Fcntl;
+	Exporter::export('Fcntl', $callpkg);
+    };
+}
+
+################################################
+# This is the only exported function we define;
+# the rest come from other classes.
+#
+
+sub pipe {
+    my $r = IO::Handle->new;
+    my $w = IO::Handle->new;
+    CORE::pipe($r, $w) or return undef;
+    ($r, $w);
+}
+
+# Rebless standard file handles
+bless *STDIN{IO},  "FileHandle" if ref *STDIN{IO}  eq "IO::Handle";
+bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle";
+bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle";
+
+1;
+
+__END__
+
+package filetest;
+
+our $VERSION = '1.03';
+
+
+$filetest::hint_bits = 0x00400000; # HINT_FILETEST_ACCESS
+
+sub import {
+    if ( $_[1] eq 'access' ) {
+	$^H |= $filetest::hint_bits;
+    } else {
+	die "filetest: the only implemented subpragma is 'access'.\n";
+    }
+}
+
+sub unimport {
+    if ( $_[1] eq 'access' ) {
+	$^H &= ~$filetest::hint_bits;
+    } else {
+	die "filetest: the only implemented subpragma is 'access'.\n";
+    }
+}
+
+1;
+package bignum;
+
+use 5.010;
+use strict;
+use warnings;
+
+our $VERSION = '0.49';
+
+use Exporter;
+our @ISA            = qw( bigint );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+use bigint ();
+
+##############################################################################
+
+BEGIN {
+    *inf = \&bigint::inf;
+    *NaN = \&bigint::NaN;
+    *hex = \&bigint::hex;
+    *oct = \&bigint::oct;
+}
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bignum::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      Math::BigInt->$name($_[0]);
+                      return Math::BigFloat->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bignum\-\>$name, not a valid method");
+}
+
+sub unimport {
+    $^H{bignum} = undef;                                # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bignum};
+}
+
+#############################################################################
+
+sub import {
+    my $self = shift;
+
+    $^H{bignum} = 1;                                    # we are in effect
+
+    # for newer Perls override hex() and oct() with a lexical version:
+    if ($] > 5.009004) {
+        bigint::_override();
+    }
+
+    # some defaults
+    my $lib       = '';
+    my $lib_kind  = 'try';
+    my $upgrade   = 'Math::BigFloat';
+    my $downgrade = 'Math::BigInt';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($ver, $trace);                          # version? trace?
+    my ($a, $p);                                # accuracy, precision
+    for (my $i = 0; $i < $l; $i++, $j++) {
+        if ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i + 1];              # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] eq 'downgrade') {
+            # this causes downgrading
+            $downgrade = $_[$i + 1];            # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] !~ /^(PI|e|bexp|bpi|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class   = 'Math::BigInt::Trace';
+        $upgrade = 'Math::BigFloat::Trace';
+    }
+    else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import, upgrade => $upgrade);
+
+    if ($trace) {
+        require Math::BigFloat::Trace;
+        $class     = 'Math::BigFloat::Trace';
+        $downgrade = 'Math::BigInt::Trace';
+    }
+    else {
+        require Math::BigFloat;
+        $class = 'Math::BigFloat';
+    }
+    $class->import(':constant', 'downgrade', $downgrade);
+
+    bignum->accuracy($a)  if defined $a;
+    bignum->precision($p) if defined $p;
+    if ($ver) {
+        print "bignum\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        print "Math::BigFloat\t\t v$Math::BigFloat::VERSION\n";
+        exit;
+    }
+
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            bigint::_binary_constant(shift);
+        };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN
+    }
+}
+
+sub PI () { Math::BigFloat->new('3.141592653589793238462643383279502884197'); }
+sub e () { Math::BigFloat->new('2.718281828459045235360287471352662497757'); }
+sub bpi ($) { Math::BigFloat->bpi(@_); }
+sub bexp ($$) {
+    my $x = Math::BigFloat->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This helper module is for internal use by core Perl only.  This module is
+# subject to change or removal at any time without notice.  Don't use it
+# directly.  Use the public <charnames> module instead.
+
+package _charnames;
+use strict;
+use warnings;
+our $VERSION = '1.45';
+use unicore::Name;    # mktables-generated algorithmically-defined names
+
+use bytes ();          # for $bytes::hint_bits
+use re "/aa";          # Everything in here should be ASCII
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+# Translate between Unicode character names and their code points.  This is a
+# submodule of package <charnames>, used to allow \N{...} to be autoloaded,
+# but it was decided not to autoload the various functions in charnames; the
+# splitting allows this behavior.
+#
+# The official names with their code points are stored in a table in
+# lib/unicore/Name.pl which is read in as a large string (almost 3/4 Mb in
+# Unicode 6.0).  Each code point/name combination is separated by a \n in the
+# string.  (Some of the CJK and the Hangul syllable names are instead
+# determined algorithmically via subroutines stored instead in
+# lib/unicore/Name.pm).  Because of the large size of this table, it isn't
+# converted into hashes for faster lookup.
+#
+# But, user defined aliases are stored in their own hashes, as are Perl
+# extensions to the official names.  These are checked first before looking at
+# the official table.
+#
+# Basically, the table is grepped for the input code point (viacode()) or
+# name (the other functions), and the corresponding value on the same line is
+# returned.  The grepping is done by turning the input into a regular
+# expression.  Thus, the same table does double duty, used by both name and
+# code point lookup.  (If we were to have hashes, we would need two, one for
+# each lookup direction.)
+#
+# For loose name matching, the logical thing would be to have a table
+# with all the ignorable characters squeezed out, and then grep it with the
+# similiarly-squeezed input name.  (And this is in fact how the lookups are
+# done with the small Perl extension hashes.)  But since we need to be able to
+# go from code point to official name, the original table would still need to
+# exist.  Due to the large size of the table, it was decided to not read
+# another very large string into memory for a second table.  Instead, the
+# regular expression of the input name is modified to have optional spaces and
+# dashes between characters.  For example, in strict matching, the regular
+# expression would be:
+#   qr/\tDIGIT ONE$/m
+# Under loose matching, the blank would be squeezed out, and the re would be:
+#   qr/\tD[- ]?I[- ]?G[- ]?I[- ]?T[- ]?O[- ]?N[- ]?E$/m
+# which matches a blank or dash between any characters in the official table.
+#
+# This is also how script lookup is done.  Basically the re looks like
+#   qr/ (?:LATIN|GREEK|CYRILLIC) (?:SMALL )?LETTER $name/
+# where $name is the loose or strict regex for the remainder of the name.
+
+# The hashes are stored as utf8 strings.  This makes it easier to deal with
+# sequences.  I (khw) also tried making Name.pl utf8, but it slowed things
+# down by a factor of 7.  I then tried making Name.pl store the ut8
+# equivalents but not calling them utf8.  That led to similar speed as leaving
+# it alone, but since that is harder for a human to parse, I left it as-is.
+
+my %system_aliases = (
+
+    'SINGLE-SHIFT 2'                => chr utf8::unicode_to_native(0x8E),
+    'SINGLE-SHIFT 3'                => chr utf8::unicode_to_native(0x8F),
+    'PRIVATE USE 1'                 => chr utf8::unicode_to_native(0x91),
+    'PRIVATE USE 2'                 => chr utf8::unicode_to_native(0x92),
+);
+
+# These are the aliases above that differ under :loose and :full matching
+# because the :full versions have blanks or hyphens in them.
+#my %loose_system_aliases = (
+#);
+
+#my %deprecated_aliases;
+#$deprecated_aliases{'BELL'} = chr utf8::unicode_to_native(0x07) if $^V lt v5.17.0;
+
+#my %loose_deprecated_aliases = (
+#);
+
+# These are special cased in :loose matching, differing only in a medial
+# hyphen
+my $HANGUL_JUNGSEONG_O_E_utf8 = chr 0x1180;
+my $HANGUL_JUNGSEONG_OE_utf8 = chr 0x116C;
+
+
+my $txt;  # The table of official character names
+
+my %full_names_cache; # Holds already-looked-up names, so don't have to
+# re-look them up again.  The previous versions of charnames had scoping
+# bugs.  For example if we use script A in one scope and find and cache
+# what Z resolves to, we can't use that cache in a different scope that
+# uses script B instead of A, as Z might be an entirely different letter
+# there; or there might be different aliases in effect in different
+# scopes, or :short may be in effect or not effect in different scopes,
+# or various combinations thereof.  This was solved in this version
+# mostly by moving things to %^H.  But some things couldn't be moved
+# there.  One of them was the cache of runtime looked-up names, in part
+# because %^H is read-only at runtime.  I (khw) don't know why the cache
+# was run-time only in the previous versions: perhaps oversight; perhaps
+# that compile time looking doesn't happen in a loop so didn't think it
+# was worthwhile; perhaps not wanting to make the cache too large.  But
+# I decided to make it compile time as well; this could easily be
+# changed.
+# Anyway, this hash is not scoped, and is added to at runtime.  It
+# doesn't have scoping problems because the data in it is restricted to
+# official names, which are always invariant, and we only set it and
+# look at it at during :full lookups, so is unaffected by any other
+# scoped options.  I put this in to maintain parity with the older
+# version.  If desired, a %short_names cache could also be made, as well
+# as one for each script, say in %script_names_cache, with each key
+# being a hash for a script named in a 'use charnames' statement.  I
+# decided not to do that for now, just because it's added complication,
+# and because I'm just trying to maintain parity, not extend it.
+
+# Like %full_names_cache, but for use when :loose is in effect.  There needs
+# to be two caches because :loose may not be in effect for a scope, and a
+# loose name could inappropriately be returned when only exact matching is
+# called for.
+my %loose_names_cache;
+
+# Designed so that test decimal first, and then hex.  Leading zeros
+# imply non-decimal, as do non-[0-9]
+my $decimal_qr = qr/^[1-9]\d*$/;
+
+# Returns the hex number in $1.
+my $hex_qr = qr/^(?:[Uu]\+|0[xX])?([[:xdigit:]]+)$/;
+
+sub croak
+{
+  require Carp; goto &Carp::croak;
+} # croak
+
+sub carp
+{
+  require Carp; goto &Carp::carp;
+} # carp
+
+sub alias (@) # Set up a single alias
+{
+  my @errors;
+  my $nbsp = chr utf8::unicode_to_native(0xA0);
+
+  my $alias = ref $_[0] ? $_[0] : { @_ };
+  foreach my $name (sort keys %$alias) {  # Sort only because it helps having
+                                          # deterministic output for
+                                          # t/lib/charnames/alias
+    my $value = $alias->{$name};
+    next unless defined $value;          # Omit if screwed up.
+
+    # Is slightly slower to just after this statement see if it is
+    # decimal, since we already know it is after having converted from
+    # hex, but makes the code easier to maintain, and is called
+    # infrequently, only at compile-time
+    if ($value !~ $decimal_qr && $value =~ $hex_qr) {
+      my $temp = CORE::hex $1;
+      $temp = utf8::unicode_to_native($temp) if $value =~ /^[Uu]\+/;
+      $value = $temp;
+    }
+    if ($value =~ $decimal_qr) {
+        no warnings qw(non_unicode surrogate nonchar); # Allow any of these
+        $^H{charnames_ord_aliases}{$name} = chr $value;
+
+        # Use a canonical form.
+        $^H{charnames_inverse_ords}{sprintf("%05X", $value)} = $name;
+    }
+    else {
+        my $ok_portion = "";
+        $ok_portion = $1 if $name =~ / ^ (
+                                            \p{_Perl_Charname_Begin}
+                                            \p{_Perl_Charname_Continue}*
+                                         ) /x;
+
+        # If the name was fully correct, the above should have matched all of
+        # it.
+        if (length $ok_portion < length $name) {
+          my $first_bad = substr($name, length($ok_portion), 1);
+          push @errors, "Invalid character in charnames alias definition; "
+                        . "marked by <-- HERE in '$ok_portion$first_bad<-- HERE "
+                        . substr($name, length($ok_portion) + 1)
+                        . "'";
+        }
+        else {
+            if ($name =~ / ( .* \s ) ( \s* ) $ /x) {
+              push @errors, "charnames alias definitions may not contain "
+                            . "trailing white-space; marked by <-- HERE in "
+                            . "'$1 <-- HERE " . $2 . "'";
+              next;
+            }
+
+            # Use '+' instead of '*' in this regex, because any trailing
+            # blanks have already been found
+            if ($name =~ / ( .*? \s{2} ) ( .+ ) /x) {
+              push @errors, "charnames alias definitions may not contain a "
+                            . "sequence of multiple spaces; marked by <-- HERE "
+                            . "in '$1 <-- HERE " . $2 . "'";
+              next;
+            }
+
+            $^H{charnames_name_aliases}{$name} = $value;
+        }
+    }
+  }
+
+  # We find and output all errors from this :alias definition, rather than
+  # failing on the first one, so fewer runs are needed to get it to compile
+  if (@errors) {
+    croak join "\n", @errors;
+  }
+
+  return;
+} # alias
+
+sub not_legal_use_bytes_msg {
+  my ($name, $utf8) = @_;
+  my $return;
+
+  if (length($utf8) == 1) {
+    $return = sprintf("Character 0x%04x with name '%s' is", ord $utf8, $name);
+  } else {
+    $return = sprintf("String with name '%s' (and ordinals %s) contains character(s)", $name, join(" ", map { sprintf "0x%04X", ord $_ } split(//, $utf8)));
+  }
+  return $return . " above 0xFF with 'use bytes' in effect";
+}
+
+sub alias_file ($)  # Reads a file containing alias definitions
+{
+  require File::Spec;
+  my ($arg, $file) = @_;
+  if (-f $arg && File::Spec->file_name_is_absolute ($arg)) {
+    $file = $arg;
+  }
+  elsif ($arg =~ m/ ^ \p{_Perl_IDStart} \p{_Perl_IDCont}* $/x) {
+    $file = "unicore/${arg}_alias.pl";
+  }
+  else {
+    croak "Charnames alias file names can only have identifier characters";
+  }
+  if (my @alias = do $file) {
+    @alias == 1 && !defined $alias[0] and
+      croak "$file cannot be used as alias file for charnames";
+    @alias % 2 and
+      croak "$file did not return a (valid) list of alias pairs";
+    alias (@alias);
+    return (1);
+  }
+  0;
+} # alias_file
+
+# For use when don't import anything.  This structure must be kept in
+# sync with the one that import() fills up.
+my %dummy_H = (
+                charnames_stringified_names => "",
+                charnames_stringified_ords => "",
+                charnames_scripts => "",
+                charnames_full => 1,
+                charnames_loose => 0,
+                charnames_short => 0,
+              );
+
+
+sub lookup_name ($$$) {
+  my ($name, $wants_ord, $runtime) = @_;
+
+  # Lookup the name or sequence $name in the tables.  If $wants_ord is false,
+  # returns the string equivalent of $name; if true, returns the ordinal value
+  # instead, but in this case $name must not be a sequence; otherwise undef is
+  # returned and a warning raised.  $runtime is 0 if compiletime, otherwise
+  # gives the number of stack frames to go back to get the application caller
+  # info.
+  # If $name is not found, returns undef in runtime with no warning; and in
+  # compiletime, the Unicode replacement character, with a warning.
+
+  # It looks first in the aliases, then in the large table of official Unicode
+  # names.
+
+  my $result;       # The string result
+  my $save_input;
+
+  if ($runtime) {
+
+    my $hints_ref = (caller($runtime))[10];
+
+    # If we didn't import anything (which happens with 'use charnames ()',
+    # substitute a dummy structure.
+    $hints_ref = \%dummy_H if ! defined $hints_ref
+                              || (! defined $hints_ref->{charnames_full}
+                                  && ! defined $hints_ref->{charnames_loose});
+
+    # At runtime, but currently not at compile time, %^H gets
+    # stringified, so un-stringify back to the original data structures.
+    # These get thrown away by perl before the next invocation
+    # Also fill in the hash with the non-stringified data.
+    # N.B.  New fields must be also added to %dummy_H
+
+    %{$^H{charnames_name_aliases}} = split ',',
+                                      $hints_ref->{charnames_stringified_names};
+    %{$^H{charnames_ord_aliases}} = split ',',
+                                      $hints_ref->{charnames_stringified_ords};
+    $^H{charnames_scripts} = $hints_ref->{charnames_scripts};
+    $^H{charnames_full} = $hints_ref->{charnames_full};
+    $^H{charnames_loose} = $hints_ref->{charnames_loose};
+    $^H{charnames_short} = $hints_ref->{charnames_short};
+  }
+
+  my $loose = $^H{charnames_loose};
+  my $lookup_name;  # Input name suitably modified for grepping for in the
+                    # table
+
+  # User alias should be checked first or else can't override ours, and if we
+  # were to add any, could conflict with theirs.
+  if (exists $^H{charnames_ord_aliases}{$name}) {
+    $result = $^H{charnames_ord_aliases}{$name};
+  }
+  elsif (exists $^H{charnames_name_aliases}{$name}) {
+    $name = $^H{charnames_name_aliases}{$name};
+    $save_input = $lookup_name = $name;  # Cache the result for any error
+                                         # message
+    # The aliases are documented to not match loosely, so change loose match
+    # into full.
+    if ($loose) {
+      $loose = 0;
+      $^H{charnames_full} = 1;
+    }
+  }
+  else {
+
+    # Here, not a user alias.  That means that loose matching may be in
+    # effect; will have to modify the input name.
+    $lookup_name = $name;
+    if ($loose) {
+      $lookup_name = uc $lookup_name;
+
+      # Squeeze out all underscores
+      $lookup_name =~ s/_//g;
+
+      # Remove all medial hyphens
+      $lookup_name =~ s/ (?<= \S  ) - (?= \S  )//gx;
+
+      # Squeeze out all spaces
+      $lookup_name =~ s/\s//g;
+    }
+
+    # Here, $lookup_name has been modified as necessary for looking in the
+    # hashes.  Check the system alias files next.  Most of these aliases are
+    # the same for both strict and loose matching.  To save space, the ones
+    # which differ are in their own separate hash, which is checked if loose
+    # matching is selected and the regular match fails.  To save time, the
+    # loose hashes could be expanded to include all aliases, and there would
+    # only have to be one check.  But if someone specifies :loose, they are
+    # interested in convenience over speed, and the time for this second check
+    # is miniscule compared to the rest of the routine.
+    if (exists $system_aliases{$lookup_name}) {
+      $result = $system_aliases{$lookup_name};
+    }
+    # There are currently no entries in this hash, so don't waste time looking
+    # for them.  But the code is retained for the unlikely possibility that
+    # some will be added in the future.
+#    elsif ($loose && exists $loose_system_aliases{$lookup_name}) {
+#      $result = $loose_system_aliases{$lookup_name};
+#    }
+#    if (exists $deprecated_aliases{$lookup_name}) {
+#      require warnings;
+#      warnings::warnif('deprecated',
+#                       "Unicode character name \"$name\" is deprecated, use \""
+#                       . viacode(ord $deprecated_aliases{$lookup_name})
+#                       . "\" instead");
+#      $result = $deprecated_aliases{$lookup_name};
+#    }
+    # There are currently no entries in this hash, so don't waste time looking
+    # for them.  But the code is retained for the unlikely possibility that
+    # some will be added in the future.
+#    elsif ($loose && exists $loose_deprecated_aliases{$lookup_name}) {
+#      require warnings;
+#      warnings::warnif('deprecated',
+#                       "Unicode character name \"$name\" is deprecated, use \""
+#                       . viacode(ord $loose_deprecated_aliases{$lookup_name})
+#                       . "\" instead");
+#      $result = $loose_deprecated_aliases{$lookup_name};
+#    }
+  }
+
+  my @off;  # Offsets into table of pattern match begin and end
+
+  # If haven't found it yet...
+  if (! defined $result) {
+
+    # See if has looked this input up earlier.
+    if (! $loose && $^H{charnames_full} && exists $full_names_cache{$name}) {
+      $result = $full_names_cache{$name};
+    }
+    elsif ($loose && exists $loose_names_cache{$name}) {
+      $result = $loose_names_cache{$name};
+    }
+    else { # Here, must do a look-up
+
+      # If full or loose matching succeeded, points to where to cache the
+      # result
+      my $cache_ref;
+
+      ## Suck in the code/name list as a big string.
+      ## Lines look like:
+      ##     "00052\tLATIN CAPITAL LETTER R\n"
+      # or
+      #      "0052 0303\tLATIN CAPITAL LETTER R WITH TILDE\n"
+      $txt = do "unicore/Name.pl" unless $txt;
+
+      ## @off will hold the index into the code/name string of the start and
+      ## end of the name as we find it.
+
+      ## If :loose, look for a loose match; if :full, look for the name
+      ## exactly
+      # First, see if the name is one which is algorithmically determinable.
+      # The subroutine is included in Name.pl.  The table contained in
+      # $txt doesn't contain these.  Experiments show that checking
+      # for these before checking for the regular names has no
+      # noticeable impact on performance for the regular names, but
+      # the other way around slows down finding these immensely.
+      # Algorithmically determinables are not placed in the cache because
+      # that uses up memory, and finding these again is fast.
+      if (($loose || $^H{charnames_full})
+          && (defined (my $ord = charnames::name_to_code_point_special($lookup_name, $loose))))
+      {
+        $result = chr $ord;
+      }
+      else {
+
+        # Not algorithmically determinable; look up in the table.  The name
+        # will be turned into a regex, so quote any meta characters.
+        $lookup_name = quotemeta $lookup_name;
+
+        if ($loose) {
+
+          # For loose matches, $lookup_name has already squeezed out the
+          # non-essential characters.  We have to add in code to make the
+          # squeezed version match the non-squeezed equivalent in the table.
+          # The only remaining hyphens are ones that start or end a word in
+          # the original.  They have been quoted in $lookup_name so they look
+          # like "\-".  Change all other characters except the backslash
+          # quotes for any metacharacters, and the final character, so that
+          # e.g., COLON gets transformed into: /C[- ]?O[- ]?L[- ]?O[- ]?N/
+          $lookup_name =~ s/ (?! \\ -)    # Don't do this to the \- sequence
+                             ( [^-\\] )   # Nor the "-" within that sequence,
+                                          # nor the "\" that quotes metachars,
+                                          # but otherwise put the char into $1
+                             (?=.)        # And don't do it for the final char
+                           /$1\[- \]?/gx; # And add an optional blank or
+                                          # '-' after each $1 char
+
+          # Those remaining hyphens were originally at the beginning or end of
+          # a word, so they can match either a blank before or after, but not
+          # both.  (Keep in mind that they have been quoted, so are a '\-'
+          # sequence)
+          $lookup_name =~ s/\\ -/(?:- | -)/xg;
+        }
+
+        # Do the lookup in the full table if asked for, and if succeeds
+        # save the offsets and set where to cache the result.
+        if (($loose || $^H{charnames_full}) && $txt =~ /\t$lookup_name$/m) {
+          @off = ($-[0] + 1, $+[0]);    # The 1 is for the tab
+          $cache_ref = ($loose) ? \%loose_names_cache : \%full_names_cache;
+        }
+        else {
+
+          # Here, didn't look for, or didn't find the name.
+          # If :short is allowed, see if input is like "greek:Sigma".
+          # Keep in mind that $lookup_name has had the metas quoted.
+          my $scripts_trie = "";
+          my $name_has_uppercase;
+          if (($^H{charnames_short})
+              && $lookup_name =~ /^ (?: \\ \s)*   # Quoted space
+                                    (.+?)         # $1 = the script
+                                    (?: \\ \s)*
+                                    \\ :          # Quoted colon
+                                    (?: \\ \s)*
+                                    (.+?)         # $2 = the name
+                                    (?: \\ \s)* $
+                                  /xs)
+          {
+              # Even in non-loose matching, the script traditionally has been
+              # case insensitive
+              $scripts_trie = "\U$1";
+              $lookup_name = $2;
+
+              # Use original name to find its input casing, but ignore the
+              # script part of that to make the determination.
+              $save_input = $name if ! defined $save_input;
+              $name =~ s/.*?://;
+              $name_has_uppercase = $name =~ /[[:upper:]]/;
+          }
+          else { # Otherwise look in allowed scripts
+              $scripts_trie = $^H{charnames_scripts};
+
+              # Use original name to find its input casing
+              $name_has_uppercase = $name =~ /[[:upper:]]/;
+          }
+
+          my $case = $name_has_uppercase ? "CAPITAL" : "SMALL";
+          return if (! $scripts_trie || $txt !~
+             /\t (?: $scripts_trie ) \ (?:$case\ )? LETTER \ \U$lookup_name $/xm);
+
+          # Here have found the input name in the table.
+          @off = ($-[0] + 1, $+[0]);  # The 1 is for the tab
+        }
+
+        # Here, the input name has been found; we haven't set up the output,
+        # but we know where in the string
+        # the name starts.  The string is set up so that for single characters
+        # (and not named sequences), the name is preceded immediately by a
+        # tab and 5 hex digits for its code, with a \n before those.  Named
+        # sequences won't have the 7th preceding character be a \n.
+        # (Actually, for the very first entry in the table this isn't strictly
+        # true: subtracting 7 will yield -1, and the substr below will
+        # therefore yield the very last character in the table, which should
+        # also be a \n, so the statement works anyway.)
+        if (substr($txt, $off[0] - 7, 1) eq "\n") {
+          $result = chr CORE::hex substr($txt, $off[0] - 6, 5);
+
+          # Handle the single loose matching special case, in which two names
+          # differ only by a single medial hyphen.  If the original had a
+          # hyphen (or more) in the right place, then it is that one.
+          $result = $HANGUL_JUNGSEONG_O_E_utf8
+                  if $loose
+                     && $result eq $HANGUL_JUNGSEONG_OE_utf8
+                     && $name =~ m/O \s* - [-\s]* E/ix;
+                     # Note that this wouldn't work if there were a 2nd
+                     # OE in the name
+        }
+        else {
+
+          # Here, is a named sequence.  Need to go looking for the beginning,
+          # which is just after the \n from the previous entry in the table.
+          # The +1 skips past that newline, or, if the rindex() fails, to put
+          # us to an offset of zero.
+          my $charstart = rindex($txt, "\n", $off[0] - 7) + 1;
+          $result = pack("W*", map { CORE::hex }
+              split " ", substr($txt, $charstart, $off[0] - $charstart - 1));
+        }
+      }
+
+      # Cache the input so as to not have to search the large table
+      # again, but only if it came from the one search that we cache.
+      # (Haven't bothered with the pain of sorting out scoping issues for the
+      # scripts searches.)
+      $cache_ref->{$name} = $result if defined $cache_ref;
+    }
+  }
+
+  # Here, have the result character.  If the return is to be an ord, must be
+  # any single character.
+  if ($wants_ord) {
+    return ord($result) if length $result == 1;
+  }
+  elsif (! utf8::is_utf8($result)) {
+
+    # Here isn't UTF-8.  That's OK if it is all ASCII, or we are being called
+    # at compile time where we know we can guarantee that Unicode rules are
+    # correctly imposed on the result, or under 'bytes' where we don't want
+    # those rules.  But otherwise we have to make it UTF8 to guarantee Unicode
+    # rules on the returned string.
+    return $result if ! $runtime
+                      || (caller $runtime)[8] & $bytes::hint_bits
+                      || $result !~ /[[:^ascii:]]/;
+    utf8::upgrade($result);
+    return $result;
+  }
+  else {
+
+    # Here, wants string output.  If utf8 is acceptable, just return what
+    # we've got; otherwise attempt to convert it to non-utf8 and return that.
+    my $in_bytes = ($runtime)
+                   ? (caller $runtime)[8] & $bytes::hint_bits
+                   : $^H & $bytes::hint_bits;
+    return $result if (! $in_bytes || utf8::downgrade($result, 1)) # The 1 arg
+                                                  # means don't die on failure
+  }
+
+  # Here, there is an error:  either there are too many characters, or the
+  # result string needs to be non-utf8, and at least one character requires
+  # utf8.  Prefer any official name over the input one for the error message.
+  if (@off) {
+    $name = substr($txt, $off[0], $off[1] - $off[0]) if @off;
+  }
+  else {
+    $name = (defined $save_input) ? $save_input : $_[0];
+  }
+
+  if ($wants_ord) {
+    # Only way to get here in this case is if result too long.  Message
+    # assumes that our only caller that requires single char result is
+    # vianame.
+    carp "charnames::vianame() doesn't handle named sequences ($name).  Use charnames::string_vianame() instead";
+    return;
+  }
+
+  # Only other possible failure here is from use bytes.
+  if ($runtime) {
+    carp not_legal_use_bytes_msg($name, $result);
+    return;
+  } else {
+    croak not_legal_use_bytes_msg($name, $result);
+  }
+
+} # lookup_name
+
+sub charnames {
+
+  # For \N{...}.  Looks up the character name and returns the string
+  # representation of it.
+
+  # The first 0 arg means wants a string returned; the second that we are in
+  # compile time
+  return lookup_name($_[0], 0, 0);
+}
+
+sub import
+{
+  shift; ## ignore class name
+
+  if (not @_) {
+    carp("'use charnames' needs explicit imports list");
+  }
+  $^H{charnames} = \&charnames ;
+  $^H{charnames_ord_aliases} = {};
+  $^H{charnames_name_aliases} = {};
+  $^H{charnames_inverse_ords} = {};
+  # New fields must be added to %dummy_H, and the code in lookup_name()
+  # that copies fields from the runtime structure
+
+  ##
+  ## fill %h keys with our @_ args.
+  ##
+  my ($promote, %h, @args) = (0);
+  while (my $arg = shift) {
+    if ($arg eq ":alias") {
+      @_ or
+        croak ":alias needs an argument in charnames";
+      my $alias = shift;
+      if (ref $alias) {
+        ref $alias eq "HASH" or
+          croak "Only HASH reference supported as argument to :alias";
+        alias ($alias);
+        $promote = 1;
+        next;
+      }
+      if ($alias =~ m{:(\w+)$}) {
+        $1 eq "full" || $1 eq "loose" || $1 eq "short" and
+          croak ":alias cannot use existing pragma :$1 (reversed order?)";
+        alias_file ($1) and $promote = 1;
+        next;
+      }
+      alias_file ($alias) and $promote = 1;
+      next;
+    }
+    if (substr($arg, 0, 1) eq ':'
+      and ! ($arg eq ":full" || $arg eq ":short" || $arg eq ":loose"))
+    {
+      warn "unsupported special '$arg' in charnames";
+      next;
+    }
+    push @args, $arg;
+  }
+
+  @args == 0 && $promote and @args = (":full");
+  @h{@args} = (1) x @args;
+
+  # Don't leave these undefined as are tested for in lookup_names
+  $^H{charnames_full} = delete $h{':full'} || 0;
+  $^H{charnames_loose} = delete $h{':loose'} || 0;
+  $^H{charnames_short} = delete $h{':short'} || 0;
+  my @scripts = map { uc quotemeta } keys %h;
+
+  ##
+  ## If utf8? warnings are enabled, and some scripts were given,
+  ## see if at least we can find one letter from each script.
+  ##
+  if (warnings::enabled('utf8') && @scripts) {
+    $txt = do "unicore/Name.pl" unless $txt;
+
+    for my $script (@scripts) {
+      if (not $txt =~ m/\t$script (?:CAPITAL |SMALL )?LETTER /) {
+        warnings::warn('utf8',  "No such script: '$script'");
+        $script = quotemeta $script;  # Escape it, for use in the re.
+      }
+    }
+  }
+
+  # %^H gets stringified, so serialize it ourselves so can extract the
+  # real data back later.
+  $^H{charnames_stringified_ords} = join ",", %{$^H{charnames_ord_aliases}};
+  $^H{charnames_stringified_names} = join ",", %{$^H{charnames_name_aliases}};
+  $^H{charnames_stringified_inverse_ords} = join ",", %{$^H{charnames_inverse_ords}};
+
+  # Modify the input script names for loose name matching if that is also
+  # specified, similar to the way the base character name is prepared.  They
+  # don't (currently, and hopefully never will) have dashes.  These go into a
+  # regex, and have already been uppercased and quotemeta'd.  Squeeze out all
+  # input underscores, blanks, and dashes.  Then convert so will match a blank
+  # between any characters.
+  if ($^H{charnames_loose}) {
+    for (my $i = 0; $i < @scripts; $i++) {
+      $scripts[$i] =~ s/[_ -]//g;
+      $scripts[$i] =~ s/ ( [^\\] ) (?= . ) /$1\\ ?/gx;
+    }
+  }
+
+  $^H{charnames_scripts} = join "|", @scripts;  # Stringifiy them as a trie
+} # import
+
+# Cache of already looked-up values.  This is set to only contain
+# official values, and user aliases can't override them, so scoping is
+# not an issue.
+my %viacode;
+
+my $no_name_code_points_re = join "|", map { sprintf("%05X",
+                                             utf8::unicode_to_native($_)) }
+                                            0x80, 0x81, 0x84, 0x99;
+$no_name_code_points_re = qr/$no_name_code_points_re/;
+
+sub viacode {
+
+  # Returns the name of the code point argument
+
+  if (@_ != 1) {
+    carp "charnames::viacode() expects one argument";
+    return;
+  }
+
+  my $arg = shift;
+
+  # This is derived from Unicode::UCD, where it is nearly the same as the
+  # function _getcode(), but here it makes sure that even a hex argument
+  # has the proper number of leading zeros, which is critical in
+  # matching against $txt below
+  # Must check if decimal first; see comments at that definition
+  my $hex;
+  if ($arg =~ $decimal_qr) {
+    $hex = sprintf "%05X", $arg;
+  } elsif ($arg =~ $hex_qr) {
+    $hex = CORE::hex $1;
+    $hex = utf8::unicode_to_native($hex) if $arg =~ /^[Uu]\+/;
+    # Below is the line that differs from the _getcode() source
+    $hex = sprintf "%05X", $hex;
+  } else {
+    carp("unexpected arg \"$arg\" to charnames::viacode()");
+    return;
+  }
+
+  return $viacode{$hex} if exists $viacode{$hex};
+
+  my $return;
+
+  # If the code point is above the max in the table, there's no point
+  # looking through it.  Checking the length first is slightly faster
+  if (length($hex) <= 5 || CORE::hex($hex) <= 0x10FFFF) {
+    $txt = do "unicore/Name.pl" unless $txt;
+
+    # See if the name is algorithmically determinable.
+    my $algorithmic = charnames::code_point_to_name_special(CORE::hex $hex);
+    if (defined $algorithmic) {
+      $viacode{$hex} = $algorithmic;
+      return $algorithmic;
+    }
+
+    # Return the official name, if exists.  It's unclear to me (khw) at
+    # this juncture if it is better to return a user-defined override, so
+    # leaving it as is for now.
+    if ($txt =~ m/^$hex\t/m) {
+
+        # The name starts with the next character and goes up to the
+        # next new-line.  Using capturing parentheses above instead of
+        # @+ more than doubles the execution time in Perl 5.13
+        $return = substr($txt, $+[0], index($txt, "\n", $+[0]) - $+[0]);
+
+        # If not one of these 4 code points, return what we've found.
+        if ($hex !~ / ^ $no_name_code_points_re $ /x) {
+          $viacode{$hex} = $return;
+          return $return;
+        }
+
+        # For backwards compatibility, we don't return the official name of
+        # the 4 code points if there are user-defined aliases for them -- so
+        # continue looking.
+    }
+  }
+
+  # See if there is a user name for it, before giving up completely.
+  # First get the scoped aliases, give up if have none.
+  my $H_ref = (caller(1))[10];
+  return if ! defined $return
+              && (! defined $H_ref
+                  || ! exists $H_ref->{charnames_stringified_inverse_ords});
+
+  my %code_point_aliases;
+  if (defined $H_ref->{charnames_stringified_inverse_ords}) {
+    %code_point_aliases = split ',',
+                          $H_ref->{charnames_stringified_inverse_ords};
+    return $code_point_aliases{$hex} if exists $code_point_aliases{$hex};
+  }
+
+  # Here there is no user-defined alias, return any official one.
+  return $return if defined $return;
+
+  if (CORE::hex($hex) > 0x10FFFF
+      && warnings::enabled('non_unicode'))
+  {
+      carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)";
+  }
+  return;
+
+} # viacode
+
+1;
+
+# ex: set ts=8 sts=2 sw=2 et:
+package open;
+use warnings;
+
+our $VERSION = '1.11';
+
+require 5.008001; # for PerlIO::get_layers()
+
+my $locale_encoding;
+
+sub _get_encname {
+    return ($1, Encode::resolve_alias($1)) if $_[0] =~ /^:?encoding\((.+)\)$/;
+    return;
+}
+
+sub croak {
+    require Carp; goto &Carp::croak;
+}
+
+sub _drop_oldenc {
+    # If by the time we arrive here there already is at the top of the
+    # perlio layer stack an encoding identical to what we would like
+    # to push via this open pragma, we will pop away the old encoding
+    # (+utf8) so that we can push ourselves in place (this is easier
+    # than ignoring pushing ourselves because of the way how ${^OPEN}
+    # works).  So we are looking for something like
+    #
+    #   stdio encoding(xxx) utf8
+    #
+    # in the existing layer stack, and in the new stack chunk for
+    #
+    #   :encoding(xxx)
+    #
+    # If we find a match, we pop the old stack (once, since
+    # the utf8 is just a flag on the encoding layer)
+    my ($h, @new) = @_;
+    return unless @new >= 1 && $new[-1] =~ /^:encoding\(.+\)$/;
+    my @old = PerlIO::get_layers($h);
+    return unless @old >= 3 &&
+	          $old[-1] eq 'utf8' &&
+                  $old[-2] =~ /^encoding\(.+\)$/;
+    require Encode;
+    my ($loname, $lcname) = _get_encname($old[-2]);
+    unless (defined $lcname) { # Should we trust get_layers()?
+	croak("open: Unknown encoding '$loname'");
+    }
+    my ($voname, $vcname) = _get_encname($new[-1]);
+    unless (defined $vcname) {
+	croak("open: Unknown encoding '$voname'");
+    }
+    if ($lcname eq $vcname) {
+	binmode($h, ":pop"); # utf8 is part of the encoding layer
+    }
+}
+
+sub import {
+    my ($class,@args) = @_;
+    croak("open: needs explicit list of PerlIO layers") unless @args;
+    my $std;
+    my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1);
+    while (@args) {
+	my $type = shift(@args);
+	my $dscp;
+	if ($type =~ /^:?(utf8|locale|encoding\(.+\))$/) {
+	    $type = 'IO';
+	    $dscp = ":$1";
+	} elsif ($type eq ':std') {
+	    $std = 1;
+	    next;
+	} else {
+	    $dscp = shift(@args) || '';
+	}
+	my @val;
+	foreach my $layer (split(/\s+/,$dscp)) {
+            $layer =~ s/^://;
+	    if ($layer eq 'locale') {
+		require Encode;
+		require encoding;
+		$locale_encoding = encoding::_get_locale_encoding()
+		    unless defined $locale_encoding;
+		(warnings::warnif("layer", "Cannot figure out an encoding to use"), last)
+		    unless defined $locale_encoding;
+                $layer = "encoding($locale_encoding)";
+		$std = 1;
+	    } else {
+		my $target = $layer;		# the layer name itself
+		$target =~ s/^(\w+)\(.+\)$/$1/;	# strip parameters
+
+		unless(PerlIO::Layer::->find($target,1)) {
+		    warnings::warnif("layer", "Unknown PerlIO layer '$target'");
+		}
+	    }
+	    push(@val,":$layer");
+	    if ($layer =~ /^(crlf|raw)$/) {
+		$^H{"open_$type"} = $layer;
+	    }
+	}
+	if ($type eq 'IN') {
+	    _drop_oldenc(*STDIN, @val) if $std;
+	    $in  = join(' ', @val);
+	}
+	elsif ($type eq 'OUT') {
+	    if ($std) {
+		_drop_oldenc(*STDOUT, @val);
+		_drop_oldenc(*STDERR, @val);
+	    }
+	    $out = join(' ', @val);
+	}
+	elsif ($type eq 'IO') {
+	    if ($std) {
+		_drop_oldenc(*STDIN, @val);
+		_drop_oldenc(*STDOUT, @val);
+		_drop_oldenc(*STDERR, @val);
+	    }
+	    $in = $out = join(' ', @val);
+	}
+	else {
+	    croak "Unknown PerlIO layer class '$type' (need IN, OUT or IO)";
+	}
+    }
+    ${^OPEN} = join("\0", $in, $out);
+    if ($std) {
+	if ($in) {
+	    if ($in =~ /:utf8\b/) {
+		    binmode(STDIN,  ":utf8");
+		} elsif ($in =~ /(\w+\(.+\))/) {
+		    binmode(STDIN,  ":$1");
+		}
+	}
+	if ($out) {
+	    if ($out =~ /:utf8\b/) {
+		binmode(STDOUT,  ":utf8");
+		binmode(STDERR,  ":utf8");
+	    } elsif ($out =~ /(\w+\(.+\))/) {
+		binmode(STDOUT,  ":$1");
+		binmode(STDERR,  ":$1");
+	    }
+	}
+    }
+}
+
+1;
+__END__
+
+package UNIVERSAL;
+
+our $VERSION = '1.13';
+
+# UNIVERSAL should not contain any extra subs/methods beyond those
+# that it exists to define. The existence of import() below is a historical
+# accident that can't be fixed without breaking code.
+
+# Make sure that even though the import method is called, it doesn't do
+# anything unless called on UNIVERSAL.
+sub import {
+    return unless $_[0] eq __PACKAGE__;
+    return unless @_ > 1;
+    require Carp;
+    Carp::croak("UNIVERSAL does not export anything");
+}
+
+1;
+__END__
+
+
+
+package DB;
+
+use strict;
+
+use Cwd ();
+
+my $_initial_cwd;
+
+BEGIN {eval 'use IO::Handle'}; # Needed for flush only? breaks under miniperl
+
+BEGIN {
+    require feature;
+    $^V =~ /^v(\d+\.\d+)/;
+    feature->import(":$1");
+    $_initial_cwd = Cwd::getcwd();
+}
+
+# Debugger for Perl 5.00x; perl5db.pl patch level:
+use vars qw($VERSION $header);
+
+# bump to X.XX in blead, only use X.XX_XX in maint
+$VERSION = '1.53';
+
+$header = "perl5db.pl version $VERSION";
+
+
+############################################## Begin lexical danger zone
+
+# 'my' variables used here could leak into (that is, be visible in)
+# the context that the code being evaluated is executing in. This means that
+# the code could modify the debugger's variables.
+#
+# Fiddling with the debugger's context could be Bad. We insulate things as
+# much as we can.
+
+use vars qw(
+    @args
+    %break_on_load
+    $CommandSet
+    $CreateTTY
+    $DBGR
+    @dbline
+    $dbline
+    %dbline
+    $dieLevel
+    $filename
+    $histfile
+    $histsize
+    $IN
+    $inhibit_exit
+    @ini_INC
+    $ini_warn
+    $maxtrace
+    $od
+    @options
+    $osingle
+    $otrace
+    $pager
+    $post
+    %postponed
+    $prc
+    $pre
+    $pretype
+    $psh
+    @RememberOnROptions
+    $remoteport
+    @res
+    $rl
+    @saved
+    $signalLevel
+    $sub
+    $term
+    $usercontext
+    $warnLevel
+);
+
+our (
+    @cmdfhs,
+    $evalarg,
+    $frame,
+    $hist,
+    $ImmediateStop,
+    $line,
+    $onetimeDump,
+    $onetimedumpDepth,
+    %option,
+    $OUT,
+    $packname,
+    $signal,
+    $single,
+    $start,
+    %sub,
+    $subname,
+    $trace,
+    $window,
+);
+
+# Used to save @ARGV and extract any debugger-related flags.
+use vars qw(@ARGS);
+
+# Used to prevent multiple entries to diesignal()
+# (if for instance diesignal() itself dies)
+use vars qw($panic);
+
+# Used to prevent the debugger from running nonstop
+# after a restart
+our ($second_time);
+
+sub _calc_usercontext {
+    my ($package) = @_;
+
+    # Cancel strict completely for the evaluated code, so the code
+    # the user evaluates won't be affected by it. (Shlomi Fish)
+    return 'no strict; ($@, $!, $^E, $,, $/, $\, $^W) = @DB::saved;'
+    . "package $package;";    # this won't let them modify, alas
+}
+
+sub eval {
+
+    # 'my' would make it visible from user code
+    #    but so does local! --tchrist
+    # Remember: this localizes @DB::res, not @main::res.
+    local @res;
+    {
+
+        # Try to keep the user code from messing  with us. Save these so that
+        # even if the eval'ed code changes them, we can put them back again.
+        # Needed because the user could refer directly to the debugger's
+        # package globals (and any 'my' variables in this containing scope)
+        # inside the eval(), and we want to try to stay safe.
+        local $otrace  = $trace;
+        local $osingle = $single;
+        local $od      = $^D;
+
+        # Untaint the incoming eval() argument.
+        { ($evalarg) = $evalarg =~ /(.*)/s; }
+
+        # $usercontext built in DB::DB near the comment
+        # "set up the context for DB::eval ..."
+        # Evaluate and save any results.
+        @res = eval "$usercontext $evalarg;\n";  # '\n' for nice recursive debug
+
+        # Restore those old values.
+        $trace  = $otrace;
+        $single = $osingle;
+        $^D     = $od;
+    }
+
+    # Save the current value of $@, and preserve it in the debugger's copy
+    # of the saved precious globals.
+    my $at = $@;
+
+    # Since we're only saving $@, we only have to localize the array element
+    # that it will be stored in.
+    local $saved[0];    # Preserve the old value of $@
+    eval { &DB::save };
+
+    # Now see whether we need to report an error back to the user.
+    if ($at) {
+        local $\ = '';
+        print $OUT $at;
+    }
+
+    # Display as required by the caller. $onetimeDump and $onetimedumpDepth
+    # are package globals.
+    elsif ($onetimeDump) {
+        if ( $onetimeDump eq 'dump' ) {
+            local $option{dumpDepth} = $onetimedumpDepth
+              if defined $onetimedumpDepth;
+            dumpit( $OUT, \@res );
+        }
+        elsif ( $onetimeDump eq 'methods' ) {
+            methods( $res[0] );
+        }
+    } ## end elsif ($onetimeDump)
+    @res;
+} ## end sub eval
+
+############################################## End lexical danger zone
+
+# After this point it is safe to introduce lexicals.
+# The code being debugged will be executing in its own context, and
+# can't see the inside of the debugger.
+#
+# However, one should not overdo it: leave as much control from outside as
+# possible. If you make something a lexical, it's not going to be addressable
+# from outside the debugger even if you know its name.
+
+# This file is automatically included if you do perl -d.
+# It's probably not useful to include this yourself.
+#
+# Before venturing further into these twisty passages, it is
+# wise to read the perldebguts man page or risk the ire of dragons.
+#
+# (It should be noted that perldebguts will tell you a lot about
+# the underlying mechanics of how the debugger interfaces into the
+# Perl interpreter, but not a lot about the debugger itself. The new
+# comments in this code try to address this problem.)
+
+# Note that no subroutine call is possible until &DB::sub is defined
+# (for subroutines defined outside of the package DB). In fact the same is
+# true if $deep is not defined.
+
+# Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich)
+
+# modified Perl debugger, to be run from Emacs in perldb-mode
+# Ray Lischner (uunet!mntgfx!lisch) as of 5 Nov 1990
+# Johan Vromans -- upgrade to 4.0 pl 10
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+########################################################################
+
+
+# Needed for the statement after exec():
+#
+# This BEGIN block is simply used to switch off warnings during debugger
+# compilation. Probably it would be better practice to fix the warnings,
+# but this is how it's done at the moment.
+
+BEGIN {
+    $ini_warn = $^W;
+    $^W       = 0;
+}    # Switch compilation warnings off until another BEGIN.
+
+local ($^W) = 0;    # Switch run-time warnings off during init.
+
+
+BEGIN {
+    # ensure we can share our non-threaded variables or no-op
+    if ($ENV{PERL5DB_THREADED}) {
+        require threads;
+        require threads::shared;
+        import threads::shared qw(share);
+        $DBGR;
+        share(\$DBGR);
+        lock($DBGR);
+        print "Threads support enabled\n";
+    } else {
+        *lock = sub(*) {};
+        *share = sub(\[$@%]) {};
+    }
+}
+
+# These variables control the execution of 'dumpvar.pl'.
+{
+    package dumpvar;
+    use vars qw(
+    $hashDepth
+    $arrayDepth
+    $dumpDBFiles
+    $dumpPackages
+    $quoteHighBit
+    $printUndef
+    $globPrint
+    $usageOnly
+    );
+}
+
+# used to control die() reporting in diesignal()
+{
+    package Carp;
+    use vars qw($CarpLevel);
+}
+
+# without threads, $filename is not defined until DB::DB is called
+share($main::{'_<'.$filename}) if defined $filename;
+
+# Command-line + PERLLIB:
+# Save the contents of @INC before they are modified elsewhere.
+@ini_INC = @INC;
+
+# This was an attempt to clear out the previous values of various
+# trapped errors. Apparently it didn't help. XXX More info needed!
+# $prevwarn = $prevdie = $prevbus = $prevsegv = ''; # Does not help?!
+
+# We set these variables to safe values. We don't want to blindly turn
+# off warnings, because other packages may still want them.
+$trace = $signal = $single = 0;    # Uninitialized warning suppression
+                                   # (local $^W cannot help - other packages!).
+
+# Default to not exiting when program finishes; print the return
+# value when the 'r' command is used to return from a subroutine.
+$inhibit_exit = $option{PrintRet} = 1;
+
+use vars qw($trace_to_depth);
+
+# Default to 1E9 so it won't be limited to a certain recursion depth.
+$trace_to_depth = 1E9;
+
+
+@options = qw(
+  CommandSet   HistFile      HistSize
+  hashDepth    arrayDepth    dumpDepth
+  DumpDBFiles  DumpPackages  DumpReused
+  compactDump  veryCompact   quote
+  HighBit      undefPrint    globPrint
+  PrintRet     UsageOnly     frame
+  AutoTrace    TTY           noTTY
+  ReadLine     NonStop       LineInfo
+  maxTraceLen  recallCommand ShellBang
+  pager        tkRunning     ornaments
+  signalLevel  warnLevel     dieLevel
+  inhibit_exit ImmediateStop bareStringify
+  CreateTTY    RemotePort    windowSize
+  DollarCaretP
+);
+
+@RememberOnROptions = qw(DollarCaretP);
+
+
+use vars qw(%optionVars);
+
+%optionVars = (
+    hashDepth     => \$dumpvar::hashDepth,
+    arrayDepth    => \$dumpvar::arrayDepth,
+    CommandSet    => \$CommandSet,
+    DumpDBFiles   => \$dumpvar::dumpDBFiles,
+    DumpPackages  => \$dumpvar::dumpPackages,
+    DumpReused    => \$dumpvar::dumpReused,
+    HighBit       => \$dumpvar::quoteHighBit,
+    undefPrint    => \$dumpvar::printUndef,
+    globPrint     => \$dumpvar::globPrint,
+    UsageOnly     => \$dumpvar::usageOnly,
+    CreateTTY     => \$CreateTTY,
+    bareStringify => \$dumpvar::bareStringify,
+    frame         => \$frame,
+    AutoTrace     => \$trace,
+    inhibit_exit  => \$inhibit_exit,
+    maxTraceLen   => \$maxtrace,
+    ImmediateStop => \$ImmediateStop,
+    RemotePort    => \$remoteport,
+    windowSize    => \$window,
+    HistFile      => \$histfile,
+    HistSize      => \$histsize,
+);
+
+
+use vars qw(%optionAction);
+
+%optionAction = (
+    compactDump   => \&dumpvar::compactDump,
+    veryCompact   => \&dumpvar::veryCompact,
+    quote         => \&dumpvar::quote,
+    TTY           => \&TTY,
+    noTTY         => \&noTTY,
+    ReadLine      => \&ReadLine,
+    NonStop       => \&NonStop,
+    LineInfo      => \&LineInfo,
+    recallCommand => \&recallCommand,
+    ShellBang     => \&shellBang,
+    pager         => \&pager,
+    signalLevel   => \&signalLevel,
+    warnLevel     => \&warnLevel,
+    dieLevel      => \&dieLevel,
+    tkRunning     => \&tkRunning,
+    ornaments     => \&ornaments,
+    RemotePort    => \&RemotePort,
+    DollarCaretP  => \&DollarCaretP,
+);
+
+
+# Note that this list is not complete: several options not listed here
+# actually require that dumpvar.pl be loaded for them to work, but are
+# not in the table. A subsequent patch will correct this problem; for
+# the moment, we're just recommenting, and we are NOT going to change
+# function.
+use vars qw(%optionRequire);
+
+%optionRequire = (
+    compactDump => 'dumpvar.pl',
+    veryCompact => 'dumpvar.pl',
+    quote       => 'dumpvar.pl',
+);
+
+
+# These guys may be defined in $ENV{PERL5DB} :
+$rl          = 1     unless defined $rl;
+$warnLevel   = 1     unless defined $warnLevel;
+$dieLevel    = 1     unless defined $dieLevel;
+$signalLevel = 1     unless defined $signalLevel;
+$pre         = []    unless defined $pre;
+$post        = []    unless defined $post;
+$pretype     = []    unless defined $pretype;
+$CreateTTY   = 3     unless defined $CreateTTY;
+$CommandSet  = '580' unless defined $CommandSet;
+
+share($rl);
+share($warnLevel);
+share($dieLevel);
+share($signalLevel);
+share($pre);
+share($post);
+share($pretype);
+share($rl);
+share($CreateTTY);
+share($CommandSet);
+
+
+warnLevel($warnLevel);
+dieLevel($dieLevel);
+signalLevel($signalLevel);
+
+
+# This routine makes sure $pager is set up so that '|' can use it.
+pager(
+
+    # If PAGER is defined in the environment, use it.
+    defined $ENV{PAGER}
+    ? $ENV{PAGER}
+
+      # If not, see if Config.pm defines it.
+    : eval { require Config }
+      && defined $Config::Config{pager}
+    ? $Config::Config{pager}
+
+      # If not, fall back to 'more'.
+    : 'more'
+  )
+  unless defined $pager;
+
+
+setman();
+
+# Set up defaults for command recall and shell escape (note:
+# these currently don't work in linemode debugging).
+recallCommand("!") unless defined $prc;
+shellBang("!")     unless defined $psh;
+
+
+sethelp();
+
+# If we didn't get a default for the length of eval/stack trace args,
+# set it here.
+$maxtrace = 400 unless defined $maxtrace;
+
+
+# Save the current contents of the environment; we're about to
+# much with it. We'll need this if we have to restart.
+use vars qw($ini_pids);
+$ini_pids = $ENV{PERLDB_PIDS};
+
+use vars qw ($pids $term_pid);
+
+if ( defined $ENV{PERLDB_PIDS} ) {
+
+    # We're a child. Make us a label out of the current PID structure
+    # recorded in PERLDB_PIDS plus our (new) PID. Mark us as not having
+    # a term yet so the parent will give us one later via resetterm().
+
+    my $env_pids = $ENV{PERLDB_PIDS};
+    $pids = "[$env_pids]";
+
+    # Unless we are on OpenVMS, all programs under the DCL shell run under
+    # the same PID.
+
+    if (($^O eq 'VMS') && ($env_pids =~ /\b$$\b/)) {
+        $term_pid         = $$;
+    }
+    else {
+        $ENV{PERLDB_PIDS} .= "->$$";
+        $term_pid = -1;
+    }
+
+} ## end if (defined $ENV{PERLDB_PIDS...
+else {
+
+    # We're the parent PID. Initialize PERLDB_PID in case we end up with a
+    # child debugger, and mark us as the parent, so we'll know to set up
+    # more TTY's is we have to.
+    $ENV{PERLDB_PIDS} = "$$";
+    $pids             = "[pid=$$]";
+    $term_pid         = $$;
+}
+
+use vars qw($pidprompt);
+$pidprompt = '';
+
+# Sets up $emacs as a synonym for $slave_editor.
+our ($slave_editor);
+*emacs = $slave_editor if $slave_editor;    # May be used in afterinit()...
+
+
+# As noted, this test really doesn't check accurately that the debugger
+# is running at a terminal or not.
+
+use vars qw($rcfile);
+{
+    my $dev_tty = (($^O eq 'VMS') ? 'TT:' : '/dev/tty');
+    # this is the wrong metric!
+    $rcfile = ((-e $dev_tty) ? ".perldb" : "perldb.ini");
+}
+
+
+# This wraps a safety test around "do" to read and evaluate the init file.
+#
+# This isn't really safe, because there's a race
+# between checking and opening.  The solution is to
+# open and fstat the handle, but then you have to read and
+# eval the contents.  But then the silly thing gets
+# your lexical scope, which is unfortunate at best.
+sub safe_do {
+    my $file = shift;
+
+    # Just exactly what part of the word "CORE::" don't you understand?
+    local $SIG{__WARN__};
+    local $SIG{__DIE__};
+
+    unless ( is_safe_file($file) ) {
+        CORE::warn <<EO_GRIPE;
+perldb: Must not source insecure rcfile $file.
+        You or the superuser must be the owner, and it must not
+        be writable by anyone but its owner.
+EO_GRIPE
+        return;
+    } ## end unless (is_safe_file($file...
+
+    do $file;
+    CORE::warn("perldb: couldn't parse $file: $@") if $@;
+} ## end sub safe_do
+
+# This is the safety test itself.
+#
+# Verifies that owner is either real user or superuser and that no
+# one but owner may write to it.  This function is of limited use
+# when called on a path instead of upon a handle, because there are
+# no guarantees that filename (by dirent) whose file (by ino) is
+# eventually accessed is the same as the one tested.
+# Assumes that the file's existence is not in doubt.
+sub is_safe_file {
+    my $path = shift;
+    stat($path) || return;    # mysteriously vaporized
+    my ( $dev, $ino, $mode, $nlink, $uid, $gid ) = stat(_);
+
+    return 0 if $uid != 0 && $uid != $<;
+    return 0 if $mode & 022;
+    return 1;
+} ## end sub is_safe_file
+
+# If the rcfile (whichever one we decided was the right one to read)
+# exists, we safely do it.
+if ( -f $rcfile ) {
+    safe_do("./$rcfile");
+}
+
+# If there isn't one here, try the user's home directory.
+elsif ( defined $ENV{HOME} && -f "$ENV{HOME}/$rcfile" ) {
+    safe_do("$ENV{HOME}/$rcfile");
+}
+
+# Else try the login directory.
+elsif ( defined $ENV{LOGDIR} && -f "$ENV{LOGDIR}/$rcfile" ) {
+    safe_do("$ENV{LOGDIR}/$rcfile");
+}
+
+# If the PERLDB_OPTS variable has options in it, parse those out next.
+if ( defined $ENV{PERLDB_OPTS} ) {
+    parse_options( $ENV{PERLDB_OPTS} );
+}
+
+
+# Set up the get_fork_TTY subroutine to be aliased to the proper routine.
+# Works if you're running an xterm or xterm-like window, or you're on
+# OS/2, or on Mac OS X. This may need some expansion.
+
+if (not defined &get_fork_TTY)       # only if no routine exists
+{
+    if ( defined $remoteport ) {
+                                                 # Expect an inetd-like server
+        *get_fork_TTY = \&socket_get_fork_TTY;   # to listen to us
+    }
+    elsif (defined $ENV{TERM}                    # If we know what kind
+                                                 # of terminal this is,
+        and $ENV{TERM} eq 'xterm'                # and it's an xterm,
+        and defined $ENV{DISPLAY}                # and what display it's on,
+      )
+    {
+        *get_fork_TTY = \&xterm_get_fork_TTY;    # use the xterm version
+    }
+    elsif ( $ENV{TMUX} ) {
+        *get_fork_TTY = \&tmux_get_fork_TTY;
+    }
+    elsif ( $^O eq 'os2' ) {                     # If this is OS/2,
+        *get_fork_TTY = \&os2_get_fork_TTY;      # use the OS/2 version
+    }
+    elsif ( $^O eq 'darwin'                      # If this is Mac OS X
+            and defined $ENV{TERM_PROGRAM}       # and we're running inside
+            and $ENV{TERM_PROGRAM}
+                eq 'Apple_Terminal'              # Terminal.app
+            )
+    {
+        *get_fork_TTY = \&macosx_get_fork_TTY;   # use the Mac OS X version
+    }
+} ## end if (not defined &get_fork_TTY...
+
+# untaint $^O, which may have been tainted by the last statement.
+# see bug [perl #24674]
+$^O =~ m/^(.*)\z/;
+$^O = $1;
+
+# Here begin the unreadable code.  It needs fixing.
+
+
+use vars qw(%postponed_file @typeahead);
+
+our (@hist, @truehist);
+
+sub _restore_shared_globals_after_restart
+{
+    @hist          = get_list('PERLDB_HIST');
+    %break_on_load = get_list("PERLDB_ON_LOAD");
+    %postponed     = get_list("PERLDB_POSTPONE");
+
+    share(@hist);
+    share(@truehist);
+    share(%break_on_load);
+    share(%postponed);
+}
+
+sub _restore_breakpoints_and_actions {
+
+    my @had_breakpoints = get_list("PERLDB_VISITED");
+
+    for my $file_idx ( 0 .. $#had_breakpoints ) {
+        my $filename = $had_breakpoints[$file_idx];
+        my %pf = get_list("PERLDB_FILE_$file_idx");
+        $postponed_file{ $filename } = \%pf if %pf;
+        my @lines = sort {$a <=> $b} keys(%pf);
+        my @enabled_statuses = get_list("PERLDB_FILE_ENABLED_$file_idx");
+        for my $line_idx (0 .. $#lines) {
+            _set_breakpoint_enabled_status(
+                $filename,
+                $lines[$line_idx],
+                ($enabled_statuses[$line_idx] ? 1 : ''),
+            );
+        }
+    }
+
+    return;
+}
+
+sub _restore_options_after_restart
+{
+    my %options_map = get_list("PERLDB_OPT");
+
+    while ( my ( $opt, $val ) = each %options_map ) {
+        $val =~ s/[\\\']/\\$1/g;
+        parse_options("$opt'$val'");
+    }
+
+    return;
+}
+
+sub _restore_globals_after_restart
+{
+    # restore original @INC
+    @INC     = get_list("PERLDB_INC");
+    @ini_INC = @INC;
+
+    # return pre/postprompt actions and typeahead buffer
+    $pretype   = [ get_list("PERLDB_PRETYPE") ];
+    $pre       = [ get_list("PERLDB_PRE") ];
+    $post      = [ get_list("PERLDB_POST") ];
+    @typeahead = get_list( "PERLDB_TYPEAHEAD", @typeahead );
+
+    return;
+}
+
+
+if ( exists $ENV{PERLDB_RESTART} ) {
+
+    # We're restarting, so we don't need the flag that says to restart anymore.
+    delete $ENV{PERLDB_RESTART};
+
+    # $restart = 1;
+    _restore_shared_globals_after_restart();
+
+    _restore_breakpoints_and_actions();
+
+    # restore options
+    _restore_options_after_restart();
+
+    _restore_globals_after_restart();
+} ## end if (exists $ENV{PERLDB_RESTART...
+
+
+use vars qw($notty $console $tty $LINEINFO);
+use vars qw($lineinfo $doccmd);
+
+our ($runnonstop);
+
+# Local autoflush to avoid rt#116769,
+# as calling IO::File methods causes an unresolvable loop
+# that results in debugger failure.
+sub _autoflush {
+    my $o = select($_[0]);
+    $|++;
+    select($o);
+}
+
+if ($notty) {
+    $runnonstop = 1;
+    share($runnonstop);
+}
+
+
+else {
+
+    # Is Perl being run from a slave editor or graphical debugger?
+    # If so, don't use readline, and set $slave_editor = 1.
+    if ($slave_editor = ( @main::ARGV && ( $main::ARGV[0] eq '-emacs' ) )) {
+        $rl = 0;
+        shift(@main::ARGV);
+    }
+
+    #require Term::ReadLine;
+
+
+    if ( $^O eq 'cygwin' ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        undef $console;
+    }
+
+
+    elsif ( $^O eq 'dos' or -e "con" or $^O eq 'MSWin32' ) {
+        $console = "con";
+    }
+
+
+    elsif ( $^O eq 'amigaos' ) {
+        $console = "CONSOLE:";
+    }
+
+
+    elsif ($^O eq 'VMS') {
+        $console = 'sys$command';
+    }
+
+# Keep this penultimate, on the grounds that it satisfies a wide variety of
+# Unix-like systems that would otherwise need to be identified individually.
+
+
+    elsif ( -e "/dev/tty" ) {
+        $console = "/dev/tty";
+    }
+
+# Keep this last.
+
+    else {
+        _db_warn("Can't figure out your console, using stdin");
+        undef $console;
+    }
+
+
+    if ( ( $^O eq 'MSWin32' ) and ( $slave_editor or defined $ENV{EMACS} ) ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        $console = undef;
+    }
+
+    if ( $^O eq 'NetWare' ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        $console = undef;
+    }
+
+    # In OS/2, we need to use STDIN to get textmode too, even though
+    # it pretty much looks like Unix otherwise.
+    if ( defined $ENV{OS2_SHELL} and ( $slave_editor or $ENV{WINDOWID} ) )
+    {    # In OS/2
+        $console = undef;
+    }
+
+
+    $console = $tty if defined $tty;
+
+
+    # Handle socket stuff.
+
+    if ( defined $remoteport ) {
+
+        # If RemotePort was defined in the options, connect input and output
+        # to the socket.
+        $IN = $OUT = connect_remoteport();
+    } ## end if (defined $remoteport)
+
+
+    # Non-socket.
+    else {
+
+        # Two debuggers running (probably a system or a backtick that invokes
+        # the debugger itself under the running one). create a new IN and OUT
+        # filehandle, and do the necessary mojo to create a new tty if we
+        # know how, and we can.
+        create_IN_OUT(4) if $CreateTTY & 4;
+        if ($console) {
+
+            # If we have a console, check to see if there are separate ins and
+            # outs to open. (They are assumed identical if not.)
+
+            my ( $i, $o ) = split /,/, $console;
+            $o = $i unless defined $o;
+
+            # read/write on in, or just read, or read on STDIN.
+                 open( IN, '+<', $i )
+              || open( IN, '<',  $i )
+              || open( IN, "<&STDIN" );
+
+            # read/write/create/clobber out, or write/create/clobber out,
+            # or merge with STDERR, or merge with STDOUT.
+                 open( OUT, '+>', $o )
+              || open( OUT, '>',  $o )
+              || open( OUT, ">&STDERR" )
+              || open( OUT, ">&STDOUT" );    # so we don't dongle stdout
+
+        } ## end if ($console)
+        elsif ( not defined $console ) {
+
+            # No console. Open STDIN.
+            open( IN, "<&STDIN" );
+
+            # merge with STDERR, or with STDOUT.
+            open( OUT,      ">&STDERR" )
+              || open( OUT, ">&STDOUT" );    # so we don't dongle stdout
+            $console = 'STDIN/OUT';
+        } ## end elsif (not defined $console)
+
+        # Keep copies of the filehandles so that when the pager runs, it
+        # can close standard input without clobbering ours.
+        if ($console or (not defined($console))) {
+            $IN = \*IN;
+            $OUT = \*OUT;
+        }
+    } ## end elsif (from if(defined $remoteport))
+
+    # Unbuffer DB::OUT. We need to see responses right away.
+    _autoflush($OUT);
+
+    # Line info goes to debugger output unless pointed elsewhere.
+    # Pointing elsewhere makes it possible for slave editors to
+    # keep track of file and position. We have both a filehandle
+    # and a I/O description to keep track of.
+    $LINEINFO = $OUT     unless defined $LINEINFO;
+    $lineinfo = $console unless defined $lineinfo;
+    # share($LINEINFO); # <- unable to share globs
+    share($lineinfo);   #
+
+
+    # Show the debugger greeting.
+    $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
+    unless ($runnonstop) {
+        local $\ = '';
+        local $, = '';
+        if ( $term_pid eq '-1' ) {
+            print $OUT "\nDaughter DB session started...\n";
+        }
+        else {
+            print $OUT "\nLoading DB routines from $header\n";
+            print $OUT (
+                "Editor support ",
+                $slave_editor ? "enabled" : "available", ".\n"
+            );
+            print $OUT
+"\nEnter h or 'h h' for help, or '$doccmd perldebug' for more help.\n\n";
+        } ## end else [ if ($term_pid eq '-1')
+    } ## end unless ($runnonstop)
+} ## end else [ if ($notty)
+
+# XXX This looks like a bug to me.
+# Why copy to @ARGS and then futz with @args?
+@ARGS = @ARGV;
+# for (@args) {
+    # Make sure backslashes before single quotes are stripped out, and
+    # keep args unless they are numeric (XXX why?)
+    # s/\'/\\\'/g;                      # removed while not justified understandably
+    # s/(.*)/'$1'/ unless /^-?[\d.]+$/; # ditto
+# }
+
+# If there was an afterinit() sub defined, call it. It will get
+# executed in our scope, so it can fiddle with debugger globals.
+if ( defined &afterinit ) {    # May be defined in $rcfile
+    afterinit();
+}
+
+# Inform us about "Stack dump during die enabled ..." in dieLevel().
+use vars qw($I_m_init);
+
+$I_m_init = 1;
+
+############################################################ Subroutines
+
+
+# $cmd cannot be an our() variable unfortunately (possible perl bug?).
+
+use vars qw(
+    $action
+    $cmd
+    $file
+    $filename_ini
+    $finished
+    %had_breakpoints
+    $level
+    $max
+    $package
+    $try
+);
+
+our (
+    %alias,
+    $doret,
+    $end,
+    $fall_off_end,
+    $incr,
+    $laststep,
+    $rc,
+    $sh,
+    $stack_depth,
+    @stack,
+    @to_watch,
+    @old_watch,
+);
+
+sub _DB__determine_if_we_should_break
+{
+    # if we have something here, see if we should break.
+    # $stop is lexical and local to this block - $action on the other hand
+    # is global.
+    my $stop;
+
+    if ( $dbline{$line}
+        && _is_breakpoint_enabled($filename, $line)
+        && (( $stop, $action ) = split( /\0/, $dbline{$line} ) ) )
+    {
+
+        # Stop if the stop criterion says to just stop.
+        if ( $stop eq '1' ) {
+            $signal |= 1;
+        }
+
+        # It's a conditional stop; eval it in the user's context and
+        # see if we should stop. If so, remove the one-time sigil.
+        elsif ($stop) {
+            $evalarg = "\$DB::signal |= 1 if do {$stop}";
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+            # If the breakpoint is temporary, then delete its enabled status.
+            if ($dbline{$line} =~ s/;9($|\0)/$1/) {
+                _cancel_breakpoint_temp_enabled_status($filename, $line);
+            }
+        }
+    } ## end if ($dbline{$line} && ...
+}
+
+sub _DB__is_finished {
+    if ($finished and $level <= 1) {
+        end_report();
+        return 1;
+    }
+    else {
+        return;
+    }
+}
+
+sub _DB__read_next_cmd
+{
+    my ($tid) = @_;
+
+    # We have a terminal, or can get one ...
+    if (!$term) {
+        setterm();
+    }
+
+    # ... and it belongs to this PID or we get one for this PID ...
+    if ($term_pid != $$) {
+        resetterm(1);
+    }
+
+    # ... and we got a line of command input ...
+    $cmd = DB::readline(
+        "$pidprompt $tid DB"
+        . ( '<' x $level )
+        . ( $#hist + 1 )
+        . ( '>' x $level ) . " "
+    );
+
+    return defined($cmd);
+}
+
+sub _DB__trim_command_and_return_first_component {
+    my ($obj) = @_;
+
+    $cmd =~ s/\A\s+//s;    # trim annoying leading whitespace
+    $cmd =~ s/\s+\z//s;    # trim annoying trailing whitespace
+
+    # A single-character debugger command can be immediately followed by its
+    # argument if they aren't both alphanumeric; otherwise require space
+    # between commands and arguments:
+    my ($verb, $args) = $cmd =~ m{\A(.\b|\S*)\s*(.*)}s;
+
+    $obj->cmd_verb($verb);
+    $obj->cmd_args($args);
+
+    return;
+}
+
+sub _DB__handle_f_command {
+    my ($obj) = @_;
+
+    if ($file = $obj->cmd_args) {
+        # help for no arguments (old-style was return from sub).
+        if ( !$file ) {
+            print $OUT
+            "The old f command is now the r command.\n";    # hint
+            print $OUT "The new f command switches filenames.\n";
+            next CMD;
+        } ## end if (!$file)
+
+        # if not in magic file list, try a close match.
+        if ( !defined $main::{ '_<' . $file } ) {
+            if ( ($try) = grep( m#^_<.*$file#, keys %main:: ) ) {
+                {
+                    $try = substr( $try, 2 );
+                    print $OUT "Choosing $try matching '$file':\n";
+                    $file = $try;
+                }
+            } ## end if (($try) = grep(m#^_<.*$file#...
+        } ## end if (!defined $main::{ ...
+
+        # If not successfully switched now, we failed.
+        if ( !defined $main::{ '_<' . $file } ) {
+            print $OUT "No file matching '$file' is loaded.\n";
+            next CMD;
+        }
+
+        # We switched, so switch the debugger internals around.
+        elsif ( $file ne $filename ) {
+            *dbline   = $main::{ '_<' . $file };
+            $max      = $#dbline;
+            $filename = $file;
+            $start    = 1;
+            $cmd      = "l";
+        } ## end elsif ($file ne $filename)
+
+        # We didn't switch; say we didn't.
+        else {
+            print $OUT "Already in $file.\n";
+            next CMD;
+        }
+    }
+
+    return;
+}
+
+sub _DB__handle_dot_command {
+    my ($obj) = @_;
+
+    # . command.
+    if ($obj->_is_full('.')) {
+        $incr = -1;    # stay at current line
+
+        # Reset everything to the old location.
+        $start    = $line;
+        $filename = $filename_ini;
+        *dbline   = $main::{ '_<' . $filename };
+        $max      = $#dbline;
+
+        # Now where are we?
+        print_lineinfo($obj->position());
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_y_command {
+    my ($obj) = @_;
+
+    if (my ($match_level, $match_vars)
+        = $obj->cmd_args =~ /\A(?:(\d*)\s*(.*))?\z/) {
+
+        # See if we've got the necessary support.
+        if (!eval {
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            require PadWalker; PadWalker->VERSION(0.08) }) {
+            my $Err = $@;
+            _db_warn(
+                $Err =~ /locate/
+                ? "PadWalker module not found - please install\n"
+                : $Err
+            );
+            next CMD;
+        }
+
+        # Load up dumpvar if we don't have it. If we can, that is.
+        do 'dumpvar.pl' || die $@ unless defined &main::dumpvar;
+        defined &main::dumpvar
+            or print $OUT "dumpvar.pl not available.\n"
+            and next CMD;
+
+        # Got all the modules we need. Find them and print them.
+        my @vars = split( ' ', $match_vars || '' );
+
+        # Find the pad.
+        my $h = eval { PadWalker::peek_my( ( $match_level || 0 ) + 2 ) };
+
+        # Oops. Can't find it.
+        if (my $Err = $@) {
+            $Err =~ s/ at .*//;
+            _db_warn($Err);
+            next CMD;
+        }
+
+        # Show the desired vars with dumplex().
+        my $savout = select($OUT);
+
+        # Have dumplex dump the lexicals.
+        foreach my $key (sort keys %$h) {
+            dumpvar::dumplex( $key, $h->{$key},
+                defined $option{dumpDepth} ? $option{dumpDepth} : -1,
+                @vars );
+        }
+        select($savout);
+        next CMD;
+    }
+}
+
+sub _DB__handle_c_command {
+    my ($obj) = @_;
+
+    my $i = $obj->cmd_args;
+
+    if ($i =~ m#\A[\w:]*\z#) {
+
+        # Hey, show's over. The debugged program finished
+        # executing already.
+        next CMD if _DB__is_finished();
+
+        # Capture the place to put a one-time break.
+        $subname = $i;
+
+        #  Probably not needed, since we finish an interactive
+        #  sub-session anyway...
+        # local $filename = $filename;
+        # local *dbline = *dbline; # XXX Would this work?!
+        #
+        # The above question wonders if localizing the alias
+        # to the magic array works or not. Since it's commented
+        # out, we'll just leave that to speculation for now.
+
+        # If the "subname" isn't all digits, we'll assume it
+        # is a subroutine name, and try to find it.
+        if ( $subname =~ /\D/ ) {    # subroutine name
+            # Qualify it to the current package unless it's
+            # already qualified.
+            $subname = $package . "::" . $subname
+            unless $subname =~ /::/;
+
+            # find_sub will return "file:line_number" corresponding
+            # to where the subroutine is defined; we call find_sub,
+            # break up the return value, and assign it in one
+            # operation.
+            ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(.*)$/ );
+
+            # Force the line number to be numeric.
+            $i = $i + 0;
+
+            # If we got a line number, we found the sub.
+            if ($i) {
+
+                # Switch all the debugger's internals around so
+                # we're actually working with that file.
+                $filename = $file;
+                *dbline   = $main::{ '_<' . $filename };
+
+                # Mark that there's a breakpoint in this file.
+                $had_breakpoints{$filename} |= 1;
+
+                # Scan forward to the first executable line
+                # after the 'sub whatever' line.
+                $max = $#dbline;
+                my $_line_num = $i;
+                while ($dbline[$_line_num] == 0 && $_line_num< $max)
+                {
+                    $_line_num++;
+                }
+                $i = $_line_num;
+            } ## end if ($i)
+
+            # We didn't find a sub by that name.
+            else {
+                print $OUT "Subroutine $subname not found.\n";
+                next CMD;
+            }
+        } ## end if ($subname =~ /\D/)
+
+        # At this point, either the subname was all digits (an
+        # absolute line-break request) or we've scanned through
+        # the code following the definition of the sub, looking
+        # for an executable, which we may or may not have found.
+        #
+        # If $i (which we set $subname from) is non-zero, we
+        # got a request to break at some line somewhere. On
+        # one hand, if there wasn't any real subroutine name
+        # involved, this will be a request to break in the current
+        # file at the specified line, so we have to check to make
+        # sure that the line specified really is breakable.
+        #
+        # On the other hand, if there was a subname supplied, the
+        # preceding block has moved us to the proper file and
+        # location within that file, and then scanned forward
+        # looking for the next executable line. We have to make
+        # sure that one was found.
+        #
+        # On the gripping hand, we can't do anything unless the
+        # current value of $i points to a valid breakable line.
+        # Check that.
+        if ($i) {
+
+            # Breakable?
+            if ( $dbline[$i] == 0 ) {
+                print $OUT "Line $i not breakable.\n";
+                next CMD;
+            }
+
+            # Yes. Set up the one-time-break sigil.
+            $dbline{$i} =~ s/($|\0)/;9$1/;  # add one-time-only b.p.
+            _enable_breakpoint_temp_enabled_status($filename, $i);
+        } ## end if ($i)
+
+        # Turn off stack tracing from here up.
+        for my $j (0 .. $stack_depth) {
+            $stack[ $j ] &= ~1;
+        }
+        last CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_forward_slash_command {
+    my ($obj) = @_;
+
+    # The pattern as a string.
+    use vars qw($inpat);
+
+    if (($inpat) = $cmd =~ m#\A/(.*)\z#) {
+
+        # Remove the final slash.
+        $inpat =~ s:([^\\])/$:$1:;
+
+        # If the pattern isn't null ...
+        if ( $inpat ne "" ) {
+
+            # Turn off warn and die processing for a bit.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+
+            # Create the pattern.
+            eval 'no strict q/vars/; $inpat =~ m' . "\a$inpat\a";
+            if ( $@ ne "" ) {
+
+                # Oops. Bad pattern. No biscuit.
+                # Print the eval error and go back for more
+                # commands.
+                print {$OUT} "$@";
+                next CMD;
+            }
+            $obj->pat($inpat);
+        } ## end if ($inpat ne "")
+
+        # Set up to stop on wrap-around.
+        $end = $start;
+
+        # Don't move off the current line.
+        $incr = -1;
+
+        my $pat = $obj->pat;
+
+        # Done in eval so nothing breaks if the pattern
+        # does something weird.
+        eval
+        {
+            no strict q/vars/;
+            for (;;) {
+                # Move ahead one line.
+                ++$start;
+
+                # Wrap if we pass the last line.
+                if ($start > $max) {
+                    $start = 1;
+                }
+
+                # Stop if we have gotten back to this line again,
+                last if ($start == $end);
+
+                # A hit! (Note, though, that we are doing
+                # case-insensitive matching. Maybe a qr//
+                # expression would be better, so the user could
+                # do case-sensitive matching if desired.
+                if ($dbline[$start] =~ m/$pat/i) {
+                    if ($slave_editor) {
+                        # Handle proper escaping in the slave.
+                        print {$OUT} "\032\032$filename:$start:0\n";
+                    }
+                    else {
+                        # Just print the line normally.
+                        print {$OUT} "$start:\t",$dbline[$start],"\n";
+                    }
+                    # And quit since we found something.
+                    last;
+                }
+            }
+        };
+
+        if ($@) {
+            warn $@;
+        }
+
+        # If we wrapped, there never was a match.
+        if ( $start == $end ) {
+            print {$OUT} "/$pat/: not found\n";
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_question_mark_command {
+    my ($obj) = @_;
+
+    # ? - backward pattern search.
+    if (my ($inpat) = $cmd =~ m#\A\?(.*)\z#) {
+
+        # Get the pattern, remove trailing question mark.
+        $inpat =~ s:([^\\])\?$:$1:;
+
+        # If we've got one ...
+        if ( $inpat ne "" ) {
+
+            # Turn off die & warn handlers.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+            eval '$inpat =~ m' . "\a$inpat\a";
+
+            if ( $@ ne "" ) {
+
+                # Ouch. Not good. Print the error.
+                print $OUT $@;
+                next CMD;
+            }
+            $obj->pat($inpat);
+        } ## end if ($inpat ne "")
+
+        # Where we are now is where to stop after wraparound.
+        $end = $start;
+
+        # Don't move away from this line.
+        $incr = -1;
+
+        my $pat = $obj->pat;
+        # Search inside the eval to prevent pattern badness
+        # from killing us.
+        eval {
+            no strict q/vars/;
+            for (;;) {
+                # Back up a line.
+                --$start;
+
+                # Wrap if we pass the first line.
+
+                $start = $max if ($start <= 0);
+
+                # Quit if we get back where we started,
+                last if ($start == $end);
+
+                # Match?
+                if ($dbline[$start] =~ m/$pat/i) {
+                    if ($slave_editor) {
+                        # Yep, follow slave editor requirements.
+                        print $OUT "\032\032$filename:$start:0\n";
+                    }
+                    else {
+                        # Yep, just print normally.
+                        print $OUT "$start:\t",$dbline[$start],"\n";
+                    }
+
+                    # Found, so done.
+                    last;
+                }
+            }
+        };
+
+        # Say we failed if the loop never found anything,
+        if ( $start == $end ) {
+            print {$OUT} "?$pat?: not found\n";
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_restart_and_rerun_commands {
+    my ($obj) = @_;
+
+    my $cmd_cmd = $obj->cmd_verb;
+    my $cmd_params = $obj->cmd_args;
+    # R - restart execution.
+    # rerun - controlled restart execution.
+    if ($cmd_cmd eq 'rerun' or $cmd_params eq '') {
+
+        # Change directory to the initial current working directory on
+        # the script startup, so if the debugged program changed the
+        # directory, then we will still be able to find the path to the
+        # the program. (perl 5 RT #121509 ).
+        chdir ($_initial_cwd);
+
+        my @args = ($cmd_cmd eq 'R' ? restart() : rerun($cmd_params));
+
+        # Close all non-system fds for a clean restart.  A more
+        # correct method would be to close all fds that were not
+        # open when the process started, but this seems to be
+        # hard.  See "debugger 'R'estart and open database
+        # connections" on p5p.
+
+        my $max_fd = 1024; # default if POSIX can't be loaded
+        if (eval { require POSIX }) {
+            eval { $max_fd = POSIX::sysconf(POSIX::_SC_OPEN_MAX()) };
+        }
+
+        if (defined $max_fd) {
+            foreach ($^F+1 .. $max_fd-1) {
+                next unless open FD_TO_CLOSE, "<&=$_";
+                close(FD_TO_CLOSE);
+            }
+        }
+
+        # And run Perl again.  We use exec() to keep the
+        # PID stable (and that way $ini_pids is still valid).
+        exec(@args) or print {$OUT} "exec failed: $!\n";
+
+        last CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_run_command_in_pager_command {
+    my ($obj) = @_;
+
+    if ($cmd =~ m#\A\|\|?\s*[^|]#) {
+        if ( $pager =~ /^\|/ ) {
+
+            # Default pager is into a pipe. Redirect I/O.
+            open( SAVEOUT, ">&STDOUT" )
+            || _db_warn("Can't save STDOUT");
+            open( STDOUT, ">&OUT" )
+            || _db_warn("Can't redirect STDOUT");
+        } ## end if ($pager =~ /^\|/)
+        else {
+
+            # Not into a pipe. STDOUT is safe.
+            open( SAVEOUT, ">&OUT" ) || _db_warn("Can't save DB::OUT");
+        }
+
+        # Fix up environment to record we have less if so.
+        fix_less();
+
+        unless ( $obj->piped(scalar ( open( OUT, $pager ) ) ) ) {
+
+            # Couldn't open pipe to pager.
+            _db_warn("Can't pipe output to '$pager'");
+            if ( $pager =~ /^\|/ ) {
+
+                # Redirect I/O back again.
+                open( OUT, ">&STDOUT" )    # XXX: lost message
+                || _db_warn("Can't restore DB::OUT");
+                open( STDOUT, ">&SAVEOUT" )
+                || _db_warn("Can't restore STDOUT");
+                close(SAVEOUT);
+            } ## end if ($pager =~ /^\|/)
+            else {
+
+                # Redirect I/O. STDOUT already safe.
+                open( OUT, ">&STDOUT" )    # XXX: lost message
+                || _db_warn("Can't restore DB::OUT");
+            }
+            next CMD;
+        } ## end unless ($piped = open(OUT,...
+
+        # Set up broken-pipe handler if necessary.
+        $SIG{PIPE} = \&DB::catch
+        if $pager =~ /^\|/
+        && ( "" eq $SIG{PIPE} || "DEFAULT" eq $SIG{PIPE} );
+
+        _autoflush(\*OUT);
+        # Save current filehandle, and put it back.
+        $obj->selected(scalar( select(OUT) ));
+        # Don't put it back if pager was a pipe.
+        if ($cmd !~ /\A\|\|/)
+        {
+            select($obj->selected());
+            $obj->selected("");
+        }
+
+        # Trim off the pipe symbols and run the command now.
+        $cmd =~ s#\A\|+\s*##;
+        redo PIPE;
+    }
+
+    return;
+}
+
+sub _DB__handle_m_command {
+    my ($obj) = @_;
+
+    if ($cmd =~ s#\Am\s+([\w:]+)\s*\z# #) {
+        methods($1);
+        next CMD;
+    }
+
+    # m expr - set up DB::eval to do the work
+    if ($cmd =~ s#\Am\b# #) {    # Rest gets done by DB::eval()
+        $onetimeDump = 'methods';   #  method output gets used there
+    }
+
+    return;
+}
+
+sub _DB__at_end_of_every_command {
+    my ($obj) = @_;
+
+    # At the end of every command:
+    if ($obj->piped) {
+
+        # Unhook the pipe mechanism now.
+        if ( $pager =~ /^\|/ ) {
+
+            # No error from the child.
+            $? = 0;
+
+            # we cannot warn here: the handle is missing --tchrist
+            close(OUT) || print SAVEOUT "\nCan't close DB::OUT\n";
+
+            # most of the $? crud was coping with broken cshisms
+            # $? is explicitly set to 0, so this never runs.
+            if ($?) {
+                print SAVEOUT "Pager '$pager' failed: ";
+                if ( $? == -1 ) {
+                    print SAVEOUT "shell returned -1\n";
+                }
+                elsif ( $? >> 8 ) {
+                    print SAVEOUT ( $? & 127 )
+                    ? " (SIG#" . ( $? & 127 ) . ")"
+                    : "", ( $? & 128 ) ? " -- core dumped" : "", "\n";
+                }
+                else {
+                    print SAVEOUT "status ", ( $? >> 8 ), "\n";
+                }
+            } ## end if ($?)
+
+            # Reopen filehandle for our output (if we can) and
+            # restore STDOUT (if we can).
+            open( OUT, ">&STDOUT" ) || _db_warn("Can't restore DB::OUT");
+            open( STDOUT, ">&SAVEOUT" )
+            || _db_warn("Can't restore STDOUT");
+
+            # Turn off pipe exception handler if necessary.
+            $SIG{PIPE} = "DEFAULT" if $SIG{PIPE} eq \&DB::catch;
+
+            # Will stop ignoring SIGPIPE if done like nohup(1)
+            # does SIGINT but Perl doesn't give us a choice.
+        } ## end if ($pager =~ /^\|/)
+        else {
+
+            # Non-piped "pager". Just restore STDOUT.
+            open( OUT, ">&SAVEOUT" ) || _db_warn("Can't restore DB::OUT");
+        }
+
+        # Let Readline know about the new filehandles.
+        reset_IN_OUT( \*IN, \*OUT );
+
+        # Close filehandle pager was using, restore the normal one
+        # if necessary,
+        close(SAVEOUT);
+
+        if ($obj->selected() ne "") {
+            select($obj->selected);
+            $obj->selected("");
+        }
+
+        # No pipes now.
+        $obj->piped("");
+    } ## end if ($piped)
+
+    return;
+}
+
+sub _DB__handle_watch_expressions
+{
+    my $self = shift;
+
+    if ( $DB::trace & 2 ) {
+        for my $n (0 .. $#DB::to_watch) {
+            $DB::evalarg = $DB::to_watch[$n];
+            local $DB::onetimeDump;    # Tell DB::eval() to not output results
+
+            # Fix context DB::eval() wants to return an array, but
+            # we need a scalar here.
+            my ($val) = join( "', '", DB::eval(@_) );
+            $val = ( ( defined $val ) ? "'$val'" : 'undef' );
+
+            # Did it change?
+            if ( $val ne $DB::old_watch[$n] ) {
+
+                # Yep! Show the difference, and fake an interrupt.
+                $DB::signal = 1;
+                print {$DB::OUT} <<EOP;
+Watchpoint $n:\t$DB::to_watch[$n] changed:
+    old value:\t$DB::old_watch[$n]
+    new value:\t$val
+EOP
+                $DB::old_watch[$n] = $val;
+            } ## end if ($val ne $old_watch...
+        } ## end for my $n (0 ..
+    } ## end if ($trace & 2)
+
+    return;
+}
+
+# 't' is type.
+# 'm' is method.
+# 'v' is the value (i.e: method name or subroutine ref).
+# 's' is subroutine.
+my %cmd_lookup;
+
+BEGIN
+{
+    %cmd_lookup =
+(
+    '-' => { t => 'm', v => '_handle_dash_command', },
+    '.' => { t => 's', v => \&_DB__handle_dot_command, },
+    '=' => { t => 'm', v => '_handle_equal_sign_command', },
+    'H' => { t => 'm', v => '_handle_H_command', },
+    'S' => { t => 'm', v => '_handle_S_command', },
+    'T' => { t => 'm', v => '_handle_T_command', },
+    'W' => { t => 'm', v => '_handle_W_command', },
+    'c' => { t => 's', v => \&_DB__handle_c_command, },
+    'f' => { t => 's', v => \&_DB__handle_f_command, },
+    'm' => { t => 's', v => \&_DB__handle_m_command, },
+    'n' => { t => 'm', v => '_handle_n_command', },
+    'p' => { t => 'm', v => '_handle_p_command', },
+    'q' => { t => 'm', v => '_handle_q_command', },
+    'r' => { t => 'm', v => '_handle_r_command', },
+    's' => { t => 'm', v => '_handle_s_command', },
+    'save' => { t => 'm', v => '_handle_save_command', },
+    'source' => { t => 'm', v => '_handle_source_command', },
+    't' => { t => 'm', v => '_handle_t_command', },
+    'w' => { t => 'm', v => '_handle_w_command', },
+    'x' => { t => 'm', v => '_handle_x_command', },
+    'y' => { t => 's', v => \&_DB__handle_y_command, },
+    (map { $_ => { t => 'm', v => '_handle_V_command_and_X_command', }, }
+        ('X', 'V')),
+    (map { $_ => { t => 'm', v => '_handle_enable_disable_commands', }, }
+        qw(enable disable)),
+    (map { $_ =>
+        { t => 's', v => \&_DB__handle_restart_and_rerun_commands, },
+        } qw(R rerun)),
+    (map { $_ => {t => 'm', v => '_handle_cmd_wrapper_commands' }, }
+        qw(a A b B e E h i l L M o O v w W)),
+);
+};
+
+sub DB {
+
+    # lock the debugger and get the thread id for the prompt
+    lock($DBGR);
+    my $tid;
+    my $position;
+    my ($prefix, $after, $infix);
+    my $pat;
+    my $explicit_stop;
+    my $piped;
+    my $selected;
+
+    if ($ENV{PERL5DB_THREADED}) {
+        $tid = eval { "[".threads->tid."]" };
+    }
+
+    my $cmd_verb;
+    my $cmd_args;
+
+    my $obj = DB::Obj->new(
+        {
+            position => \$position,
+            prefix => \$prefix,
+            after => \$after,
+            explicit_stop => \$explicit_stop,
+            infix => \$infix,
+            cmd_args => \$cmd_args,
+            cmd_verb => \$cmd_verb,
+            pat => \$pat,
+            piped => \$piped,
+            selected => \$selected,
+        },
+    );
+
+    $obj->_DB_on_init__initialize_globals(@_);
+
+    # Preserve current values of $@, $!, $^E, $,, $/, $\, $^W.
+    # The code being debugged may have altered them.
+    DB::save();
+
+    # Since DB::DB gets called after every line, we can use caller() to
+    # figure out where we last were executing. Sneaky, eh? This works because
+    # caller is returning all the extra information when called from the
+    # debugger.
+    local ( $package, $filename, $line ) = caller;
+    $filename_ini = $filename;
+
+    # set up the context for DB::eval, so it can properly execute
+    # code on behalf of the user. We add the package in so that the
+    # code is eval'ed in the proper package (not in the debugger!).
+    local $usercontext = _calc_usercontext($package);
+
+    # Create an alias to the active file magical array to simplify
+    # the code here.
+    local (*dbline) = $main::{ '_<' . $filename };
+
+    # Last line in the program.
+    $max = $#dbline;
+
+    # The &-call is here to ascertain the mutability of @_.
+    &_DB__determine_if_we_should_break;
+
+    # Preserve the current stop-or-not, and see if any of the W
+    # (watch expressions) has changed.
+    my $was_signal = $signal;
+
+    # If we have any watch expressions ...
+    _DB__handle_watch_expressions($obj);
+
+
+    # If there's a user-defined DB::watchfunction, call it with the
+    # current package, filename, and line. The function executes in
+    # the DB:: package.
+    if ( $trace & 4 ) {    # User-installed watch
+        return
+          if watchfunction( $package, $filename, $line )
+          and not $single
+          and not $was_signal
+          and not( $trace & ~4 );
+    } ## end if ($trace & 4)
+
+    # Pick up any alteration to $signal in the watchfunction, and
+    # turn off the signal now.
+    $was_signal = $signal;
+    $signal     = 0;
+
+
+    # Make sure that we always print if asked for explicitly regardless
+    # of $trace_to_depth .
+    $explicit_stop = ($single || $was_signal);
+
+    # Check to see if we should grab control ($single true,
+    # trace set appropriately, or we got a signal).
+    if ( $explicit_stop || ( $trace & 1 ) ) {
+        $obj->_DB__grab_control(@_);
+    } ## end if ($single || ($trace...
+
+
+    # If there's an action, do it now.
+    if ($action) {
+        $evalarg = $action;
+        # The &-call is here to ascertain the mutability of @_.
+        &DB::eval;
+    }
+
+    # Are we nested another level (e.g., did we evaluate a function
+    # that had a breakpoint in it at the debugger prompt)?
+    if ( $single || $was_signal ) {
+
+        # Yes, go down a level.
+        local $level = $level + 1;
+
+        # Do any pre-prompt actions.
+        foreach $evalarg (@$pre) {
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+        }
+
+        # Complain about too much recursion if we passed the limit.
+        if ($single & 4) {
+            print $OUT $stack_depth . " levels deep in subroutine calls!\n";
+        }
+
+        # The line we're currently on. Set $incr to -1 to stay here
+        # until we get a command that tells us to advance.
+        $start = $line;
+        $incr  = -1;      # for backward motion.
+
+        # Tack preprompt debugger actions ahead of any actual input.
+        @typeahead = ( @$pretype, @typeahead );
+
+
+        # The big command dispatch loop. It keeps running until the
+        # user yields up control again.
+        #
+        # If we have a terminal for input, and we get something back
+        # from readline(), keep on processing.
+
+      CMD:
+        while (_DB__read_next_cmd($tid))
+        {
+
+            share($cmd);
+            # ... try to execute the input as debugger commands.
+
+            # Don't stop running.
+            $single = 0;
+
+            # No signal is active.
+            $signal = 0;
+
+            # Handle continued commands (ending with \):
+            if ($cmd =~ s/\\\z/\n/) {
+                $cmd .= DB::readline("  cont: ");
+                redo CMD;
+            }
+
+
+            # Empty input means repeat the last command.
+            if ($cmd eq '') {
+                $cmd = $laststep;
+            }
+            chomp($cmd);    # get rid of the annoying extra newline
+            if (length($cmd) >= 2) {
+                push( @hist, $cmd );
+            }
+            push( @truehist, $cmd );
+            share(@hist);
+            share(@truehist);
+
+            # This is a restart point for commands that didn't arrive
+            # via direct user input. It allows us to 'redo PIPE' to
+            # re-execute command processing without reading a new command.
+          PIPE: {
+                _DB__trim_command_and_return_first_component($obj);
+
+
+                # See if there's an alias for the command, and set it up if so.
+                if ( $alias{$cmd_verb} ) {
+
+                    # Squelch signal handling; we want to keep control here
+                    # if something goes loco during the alias eval.
+                    local $SIG{__DIE__};
+                    local $SIG{__WARN__};
+
+                    # This is a command, so we eval it in the DEBUGGER's
+                    # scope! Otherwise, we can't see the special debugger
+                    # variables, or get to the debugger's subs. (Well, we
+                    # _could_, but why make it even more complicated?)
+                    eval "\$cmd =~ $alias{$cmd_verb}";
+                    if ($@) {
+                        local $\ = '';
+                        print $OUT "Couldn't evaluate '$cmd_verb' alias: $@";
+                        next CMD;
+                    }
+                    _DB__trim_command_and_return_first_component($obj);
+                } ## end if ($alias{$cmd_verb})
+
+
+                # All of these commands were remapped in perl 5.8.0;
+                # we send them off to the secondary dispatcher (see below).
+                $obj->_handle_special_char_cmd_wrapper_commands;
+                _DB__trim_command_and_return_first_component($obj);
+
+                if (my $cmd_rec = $cmd_lookup{$cmd_verb}) {
+                    my $type = $cmd_rec->{t};
+                    my $val = $cmd_rec->{v};
+                    if ($type eq 'm') {
+                        $obj->$val();
+                    }
+                    elsif ($type eq 's') {
+                        $val->($obj);
+                    }
+                }
+
+
+                _DB__handle_forward_slash_command($obj);
+
+
+                _DB__handle_question_mark_command($obj);
+
+
+                # $rc - recall command.
+                $obj->_handle_rc_recall_command;
+
+
+                $obj->_handle_sh_command;
+
+
+                $obj->_handle_rc_search_history_command;
+
+
+
+                $obj->_handle_doc_command;
+
+
+                # || - run command in the pager, with output to DB::OUT.
+                _DB__handle_run_command_in_pager_command($obj);
+
+
+            }    # PIPE:
+
+            # trace an expression
+            $cmd =~ s/^t\s/\$DB::trace |= 1;\n/;
+
+            # Make sure the flag that says "the debugger's running" is
+            # still on, to make sure we get control again.
+            $evalarg = "\$^D = \$^D | \$DB::db_stop;\n$cmd";
+
+            # Run *our* eval that executes in the caller's context.
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+
+            # Turn off the one-time-dump stuff now.
+            if ($onetimeDump) {
+                $onetimeDump      = undef;
+                $onetimedumpDepth = undef;
+            }
+            elsif ( $term_pid == $$ ) {
+                eval { # May run under miniperl, when not available...
+                    STDOUT->flush();
+                    STDERR->flush();
+                };
+
+                # XXX If this is the master pid, print a newline.
+                print {$OUT} "\n";
+            }
+        } ## end while (($term || &setterm...
+
+
+        continue {    # CMD:
+            _DB__at_end_of_every_command($obj);
+        }    # CMD:
+
+
+        # No more commands? Quit.
+        $fall_off_end = 1 unless defined $cmd;    # Emulate 'q' on EOF
+
+        # Evaluate post-prompt commands.
+        foreach $evalarg (@$post) {
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+        }
+    }    # if ($single || $signal)
+
+    # Put the user's globals back where you found them.
+    ( $@, $!, $^E, $,, $/, $\, $^W ) = @saved;
+    ();
+} ## end sub DB
+
+# Because DB::Obj is used above,
+#
+#   my $obj = DB::Obj->new(
+#
+# The following package declaration must come before that,
+# or else runtime errors will occur with
+#
+#   PERLDB_OPTS="autotrace nonstop"
+#
+# ( rt#116771 )
+BEGIN {
+
+package DB::Obj;
+
+sub new {
+    my $class = shift;
+
+    my $self = bless {}, $class;
+
+    $self->_init(@_);
+
+    return $self;
+}
+
+sub _init {
+    my ($self, $args) = @_;
+
+    %{$self} = (%$self, %$args);
+
+    return;
+}
+
+{
+    no strict 'refs';
+    foreach my $slot_name (qw(
+        after explicit_stop infix pat piped position prefix selected cmd_verb
+        cmd_args
+        )) {
+        my $slot = $slot_name;
+        *{$slot} = sub {
+            my $self = shift;
+
+            if (@_) {
+                ${ $self->{$slot} } = shift;
+            }
+
+            return ${ $self->{$slot} };
+        };
+
+        *{"append_to_$slot"} = sub {
+            my $self = shift;
+            my $s = shift;
+
+            return $self->$slot($self->$slot . $s);
+        };
+    }
+}
+
+sub _DB_on_init__initialize_globals
+{
+    my $self = shift;
+
+    # Check for whether we should be running continuously or not.
+    # _After_ the perl program is compiled, $single is set to 1:
+    if ( $single and not $second_time++ ) {
+
+        # Options say run non-stop. Run until we get an interrupt.
+        if ($runnonstop) {    # Disable until signal
+                # If there's any call stack in place, turn off single
+                # stepping into subs throughout the stack.
+            for my $i (0 .. $stack_depth) {
+                $stack[ $i ] &= ~1;
+            }
+
+            # And we are now no longer in single-step mode.
+            $single = 0;
+
+            # If we simply returned at this point, we wouldn't get
+            # the trace info. Fall on through.
+            # return;
+        } ## end if ($runnonstop)
+
+        elsif ($ImmediateStop) {
+
+            # We are supposed to stop here; XXX probably a break.
+            $ImmediateStop = 0;    # We've processed it; turn it off
+            $signal        = 1;    # Simulate an interrupt to force
+                                   # us into the command loop
+        }
+    } ## end if ($single and not $second_time...
+
+    # If we're in single-step mode, or an interrupt (real or fake)
+    # has occurred, turn off non-stop mode.
+    $runnonstop = 0 if $single or $signal;
+
+    return;
+}
+
+sub _my_print_lineinfo
+{
+    my ($self, $i, $incr_pos) = @_;
+
+    if ($frame) {
+        # Print it indented if tracing is on.
+        DB::print_lineinfo( ' ' x $stack_depth,
+            "$i:\t$DB::dbline[$i]" . $self->after );
+    }
+    else {
+        DB::depth_print_lineinfo($self->explicit_stop, $incr_pos);
+    }
+}
+
+sub _curr_line {
+    return $DB::dbline[$line];
+}
+
+sub _is_full {
+    my ($self, $letter) = @_;
+
+    return ($DB::cmd eq $letter);
+}
+
+sub _DB__grab_control
+{
+    my $self = shift;
+
+    # Yes, grab control.
+    if ($slave_editor) {
+
+        # Tell the editor to update its position.
+        $self->position("\032\032${DB::filename}:$line:0\n");
+        DB::print_lineinfo($self->position());
+    }
+
+
+    elsif ( $DB::package eq 'DB::fake' ) {
+
+        # Fallen off the end already.
+        if (!$DB::term) {
+            DB::setterm();
+        }
+
+        DB::print_help(<<EOP);
+Debugged program terminated.  Use B<q> to quit or B<R> to restart,
+use B<o> I<inhibit_exit> to avoid stopping after program termination,
+B<h q>, B<h R> or B<h o> to get additional info.
+EOP
+
+        # Set the DB::eval context appropriately.
+        # At program termination disable any user actions.
+        $DB::action = undef;
+
+        $DB::package     = 'main';
+        $DB::usercontext = DB::_calc_usercontext($DB::package);
+    } ## end elsif ($package eq 'DB::fake')
+
+
+    else {
+
+
+        # Still somewhere in the midst of execution. Set up the
+        #  debugger prompt.
+        $DB::sub =~ s/\'/::/;    # Swap Perl 4 package separators (') to
+                             # Perl 5 ones (sorry, we don't print Klingon
+                             #module names)
+
+        $self->prefix($DB::sub =~ /::/ ? "" : ($DB::package . '::'));
+        $self->append_to_prefix( "$DB::sub(${DB::filename}:" );
+        $self->after( $self->_curr_line =~ /\n$/ ? '' : "\n" );
+
+        # Break up the prompt if it's really long.
+        if ( length($self->prefix()) > 30 ) {
+            $self->position($self->prefix . "$line):\n$line:\t" . $self->_curr_line . $self->after);
+            $self->prefix("");
+            $self->infix(":\t");
+        }
+        else {
+            $self->infix("):\t");
+            $self->position(
+                $self->prefix . $line. $self->infix
+                . $self->_curr_line . $self->after
+            );
+        }
+
+        # Print current line info, indenting if necessary.
+        $self->_my_print_lineinfo($line, $self->position);
+
+        my $i;
+        my $line_i = sub { return $DB::dbline[$i]; };
+
+        # Scan forward, stopping at either the end or the next
+        # unbreakable line.
+        for ( $i = $line + 1 ; $i <= $DB::max && $line_i->() == 0 ; ++$i )
+        {    #{ vi
+
+            # Drop out on null statements, block closers, and comments.
+            last if $line_i->() =~ /^\s*[\;\}\#\n]/;
+
+            # Drop out if the user interrupted us.
+            last if $signal;
+
+            # Append a newline if the line doesn't have one. Can happen
+            # in eval'ed text, for instance.
+            $self->after( $line_i->() =~ /\n$/ ? '' : "\n" );
+
+            # Next executable line.
+            my $incr_pos = $self->prefix . $i . $self->infix . $line_i->()
+                . $self->after;
+            $self->append_to_position($incr_pos);
+            $self->_my_print_lineinfo($i, $incr_pos);
+        } ## end for ($i = $line + 1 ; $i...
+    } ## end else [ if ($slave_editor)
+
+    return;
+}
+
+sub _handle_t_command {
+    my $self = shift;
+
+    my $levels = $self->cmd_args();
+
+    if ((!length($levels)) or ($levels !~ /\D/)) {
+        $trace ^= 1;
+        local $\ = '';
+        $DB::trace_to_depth = $levels ? $stack_depth + $levels : 1E9;
+        print {$OUT} "Trace = "
+        . ( ( $trace & 1 )
+            ? ( $levels ? "on (to level $DB::trace_to_depth)" : "on" )
+            : "off" ) . "\n";
+        next CMD;
+    }
+
+    return;
+}
+
+
+sub _handle_S_command {
+    my $self = shift;
+
+    if (my ($print_all_subs, $should_reverse, $Spatt)
+        = $self->cmd_args =~ /\A((!)?(.+))?\z/) {
+        # $Spatt is the pattern (if any) to use.
+        # Reverse scan?
+        my $Srev     = defined $should_reverse;
+        # No args - print all subs.
+        my $Snocheck = !defined $print_all_subs;
+
+        # Need to make these sane here.
+        local $\ = '';
+        local $, = '';
+
+        # Search through the debugger's magical hash of subs.
+        # If $nocheck is true, just print the sub name.
+        # Otherwise, check it against the pattern. We then use
+        # the XOR trick to reverse the condition as required.
+        foreach $subname ( sort( keys %sub ) ) {
+            if ( $Snocheck or $Srev ^ ( $subname =~ /$Spatt/ ) ) {
+                print $OUT $subname, "\n";
+            }
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_V_command_and_X_command {
+    my $self = shift;
+
+    $DB::cmd =~ s/^X\b/V $DB::package/;
+
+    # Bare V commands get the currently-being-debugged package
+    # added.
+    if ($self->_is_full('V')) {
+        $DB::cmd = "V $DB::package";
+    }
+
+    # V - show variables in package.
+    if (my ($new_packname, $new_vars_str) =
+        $DB::cmd =~ /\AV\b\s*(\S+)\s*(.*)/) {
+
+        # Save the currently selected filehandle and
+        # force output to debugger's filehandle (dumpvar
+        # just does "print" for output).
+        my $savout = select($OUT);
+
+        # Grab package name and variables to dump.
+        $packname = $new_packname;
+        my @vars     = split( ' ', $new_vars_str );
+
+        # If main::dumpvar isn't here, get it.
+        do 'dumpvar.pl' || die $@ unless defined &main::dumpvar;
+        if ( defined &main::dumpvar ) {
+
+            # We got it. Turn off subroutine entry/exit messages
+            # for the moment, along with return values.
+            local $frame = 0;
+            local $doret = -2;
+
+            # must detect sigpipe failures  - not catching
+            # then will cause the debugger to die.
+            eval {
+                main::dumpvar(
+                    $packname,
+                    defined $option{dumpDepth}
+                    ? $option{dumpDepth}
+                    : -1,    # assume -1 unless specified
+                    @vars
+                );
+            };
+
+            # The die doesn't need to include the $@, because
+            # it will automatically get propagated for us.
+            if ($@) {
+                die unless $@ =~ /dumpvar print failed/;
+            }
+        } ## end if (defined &main::dumpvar)
+        else {
+
+            # Couldn't load dumpvar.
+            print $OUT "dumpvar.pl not available.\n";
+        }
+
+        # Restore the output filehandle, and go round again.
+        select($savout);
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_dash_command {
+    my $self = shift;
+
+    if ($self->_is_full('-')) {
+
+        # back up by a window; go to 1 if back too far.
+        $start -= $incr + $window + 1;
+        $start = 1 if $start <= 0;
+        $incr  = $window - 1;
+
+        # Generate and execute a "l +" command (handled below).
+        $DB::cmd = 'l ' . ($start) . '+';
+        redo CMD;
+    }
+    return;
+}
+
+sub _n_or_s_commands_generic {
+    my ($self, $new_val) = @_;
+    # n - next
+    next CMD if DB::_DB__is_finished();
+
+    # Single step, but don't enter subs.
+    $single = $new_val;
+
+    # Save for empty command (repeat last).
+    $laststep = $DB::cmd;
+    last CMD;
+}
+
+sub _n_or_s {
+    my ($self, $letter, $new_val) = @_;
+
+    if ($self->_is_full($letter)) {
+        $self->_n_or_s_commands_generic($new_val);
+    }
+    else {
+        $self->_n_or_s_and_arg_commands_generic($letter, $new_val);
+    }
+
+    return;
+}
+
+sub _handle_n_command {
+    my $self = shift;
+
+    return $self->_n_or_s('n', 2);
+}
+
+sub _handle_s_command {
+    my $self = shift;
+
+    return $self->_n_or_s('s', 1);
+}
+
+sub _handle_r_command {
+    my $self = shift;
+
+    # r - return from the current subroutine.
+    if ($self->_is_full('r')) {
+
+        # Can't do anything if the program's over.
+        next CMD if DB::_DB__is_finished();
+
+        # Turn on stack trace.
+        $stack[$stack_depth] |= 1;
+
+        # Print return value unless the stack is empty.
+        $doret = $option{PrintRet} ? $stack_depth - 1 : -2;
+        last CMD;
+    }
+
+    return;
+}
+
+sub _handle_T_command {
+    my $self = shift;
+
+    if ($self->_is_full('T')) {
+        DB::print_trace( $OUT, 1 );    # skip DB
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_w_command {
+    my $self = shift;
+
+    DB::cmd_w( 'w', $self->cmd_args() );
+    next CMD;
+
+    return;
+}
+
+sub _handle_W_command {
+    my $self = shift;
+
+    if (my $arg = $self->cmd_args) {
+        DB::cmd_W( 'W', $arg );
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_rc_recall_command {
+    my $self = shift;
+
+    # $rc - recall command.
+    if (my ($minus, $arg) = $DB::cmd =~ m#\A$rc+\s*(-)?(\d+)?\z#) {
+
+        # No arguments, take one thing off history.
+        pop(@hist) if length($DB::cmd) > 1;
+
+        # Relative (- found)?
+        #  Y - index back from most recent (by 1 if bare minus)
+        #  N - go to that particular command slot or the last
+        #      thing if nothing following.
+
+        $self->cmd_verb(
+            scalar($minus ? ( $#hist - ( $arg || 1 ) ) : ( $arg || $#hist ))
+        );
+
+        # Pick out the command desired.
+        $DB::cmd = $hist[$self->cmd_verb];
+
+        # Print the command to be executed and restart the loop
+        # with that command in the buffer.
+        print {$OUT} $DB::cmd, "\n";
+        redo CMD;
+    }
+
+    return;
+}
+
+sub _handle_rc_search_history_command {
+    my $self = shift;
+
+    # $rc pattern $rc - find a command in the history.
+    if (my ($arg) = $DB::cmd =~ /\A$rc([^$rc].*)\z/) {
+
+        # Create the pattern to use.
+        my $pat = "^$arg";
+        $self->pat($pat);
+
+        # Toss off last entry if length is >1 (and it always is).
+        pop(@hist) if length($DB::cmd) > 1;
+
+        my $i;
+
+        # Look backward through the history.
+        SEARCH_HIST:
+        for ( $i = $#hist ; $i ; --$i ) {
+            # Stop if we find it.
+            last SEARCH_HIST if $hist[$i] =~ /$pat/;
+        }
+
+        if ( !$i ) {
+
+            # Never found it.
+            print $OUT "No such command!\n\n";
+            next CMD;
+        }
+
+        # Found it. Put it in the buffer, print it, and process it.
+        $DB::cmd = $hist[$i];
+        print $OUT $DB::cmd, "\n";
+        redo CMD;
+    }
+
+    return;
+}
+
+sub _handle_H_command {
+    my $self = shift;
+
+    if ($self->cmd_args =~ m#\A\*#) {
+        @hist = @truehist = ();
+        print $OUT "History cleansed\n";
+        next CMD;
+    }
+
+    if (my ($num) = $self->cmd_args =~ /\A(?:-(\d+))?/) {
+
+        # Anything other than negative numbers is ignored by
+        # the (incorrect) pattern, so this test does nothing.
+        $end = $num ? ( $#hist - $num ) : 0;
+
+        # Set to the minimum if less than zero.
+        $hist = 0 if $hist < 0;
+
+        # Start at the end of the array.
+        # Stay in while we're still above the ending value.
+        # Tick back by one each time around the loop.
+        my $i;
+
+        for ( $i = $#hist ; $i > $end ; $i-- ) {
+
+            # Print the command  unless it has no arguments.
+            print $OUT "$i: ", $hist[$i], "\n"
+            unless $hist[$i] =~ /^.?$/;
+        }
+
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_doc_command {
+    my $self = shift;
+
+    # man, perldoc, doc - show manual pages.
+    if (my ($man_page)
+        = $DB::cmd =~ /\A(?:man|(?:perl)?doc)\b(?:\s+([^(]*))?\z/) {
+        DB::runman($man_page);
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_p_command {
+    my $self = shift;
+
+    my $print_cmd = 'print {$DB::OUT} ';
+    # p - print (no args): print $_.
+    if ($self->_is_full('p')) {
+        $DB::cmd = $print_cmd . '$_';
+    }
+    else {
+        # p - print the given expression.
+        $DB::cmd =~ s/\Ap\b/$print_cmd /;
+    }
+
+    return;
+}
+
+sub _handle_equal_sign_command {
+    my $self = shift;
+
+    if ($DB::cmd =~ s/\A=\s*//) {
+        my @keys;
+        if ( length $DB::cmd == 0 ) {
+
+            # No args, get current aliases.
+            @keys = sort keys %alias;
+        }
+        elsif ( my ( $k, $v ) = ( $DB::cmd =~ /^(\S+)\s+(\S.*)/ ) ) {
+
+            # Creating a new alias. $k is alias name, $v is
+            # alias value.
+
+            # can't use $_ or kill //g state
+            for my $x ( $k, $v ) {
+
+                # Escape "alarm" characters.
+                $x =~ s/\a/\\a/g;
+            }
+
+            # Substitute key for value, using alarm chars
+            # as separators (which is why we escaped them in
+            # the command).
+            $alias{$k} = "s\a$k\a$v\a";
+
+            # Turn off standard warn and die behavior.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+
+            # Is it valid Perl?
+            unless ( eval "sub { s\a$k\a$v\a }; 1" ) {
+
+                # Nope. Bad alias. Say so and get out.
+                print $OUT "Can't alias $k to $v: $@\n";
+                delete $alias{$k};
+                next CMD;
+            }
+
+            # We'll only list the new one.
+            @keys = ($k);
+        } ## end elsif (my ($k, $v) = ($DB::cmd...
+
+        # The argument is the alias to list.
+        else {
+            @keys = ($DB::cmd);
+        }
+
+        # List aliases.
+        for my $k (@keys) {
+
+            # Messy metaquoting: Trim the substitution code off.
+            # We use control-G as the delimiter because it's not
+            # likely to appear in the alias.
+            if ( ( my $v = $alias{$k} ) =~ ss\a$k\a(.*)\a$1 ) {
+
+                # Print the alias.
+                print $OUT "$k\t= $1\n";
+            }
+            elsif ( defined $alias{$k} ) {
+
+                # Couldn't trim it off; just print the alias code.
+                print $OUT "$k\t$alias{$k}\n";
+            }
+            else {
+
+                # No such, dude.
+                print "No alias for $k\n";
+            }
+        } ## end for my $k (@keys)
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_source_command {
+    my $self = shift;
+
+    # source - read commands from a file (or pipe!) and execute.
+    if (my $sourced_fn = $self->cmd_args) {
+        if ( open my $fh, $sourced_fn ) {
+
+            # Opened OK; stick it in the list of file handles.
+            push @cmdfhs, $fh;
+        }
+        else {
+
+            # Couldn't open it.
+            DB::_db_warn("Can't execute '$sourced_fn': $!\n");
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_enable_disable_commands {
+    my $self = shift;
+
+    my $which_cmd = $self->cmd_verb;
+    my $position = $self->cmd_args;
+
+    if ($position !~ /\s/) {
+        my ($fn, $line_num);
+        if ($position =~ m{\A\d+\z})
+        {
+            $fn = $DB::filename;
+            $line_num = $position;
+        }
+        elsif (my ($new_fn, $new_line_num)
+            = $position =~ m{\A(.*):(\d+)\z}) {
+            ($fn, $line_num) = ($new_fn, $new_line_num);
+        }
+        else
+        {
+            DB::_db_warn("Wrong spec for enable/disable argument.\n");
+        }
+
+        if (defined($fn)) {
+            if (DB::_has_breakpoint_data_ref($fn, $line_num)) {
+                DB::_set_breakpoint_enabled_status($fn, $line_num,
+                    ($which_cmd eq 'enable' ? 1 : '')
+                );
+            }
+            else {
+                DB::_db_warn("No breakpoint set at ${fn}:${line_num}\n");
+            }
+        }
+
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_save_command {
+    my $self = shift;
+
+    if (my $new_fn = $self->cmd_args) {
+        my $filename = $new_fn || '.perl5dbrc';    # default?
+        if ( open my $fh, '>', $filename ) {
+
+            # chomp to remove extraneous newlines from source'd files
+            chomp( my @truelist =
+                map { m/\A\s*(save|source)/ ? "#$_" : $_ }
+                @truehist );
+            print {$fh} join( "\n", @truelist );
+            print "commands saved in $filename\n";
+        }
+        else {
+            DB::_db_warn("Can't save debugger commands in '$new_fn': $!\n");
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _n_or_s_and_arg_commands_generic {
+    my ($self, $letter, $new_val) = @_;
+
+    # s - single-step. Remember the last command was 's'.
+    if ($DB::cmd =~ s#\A\Q$letter\E\s#\$DB::single = $new_val;\n#) {
+        $laststep = $letter;
+    }
+
+    return;
+}
+
+sub _handle_sh_command {
+    my $self = shift;
+
+    # $sh$sh - run a shell command (if it's all ASCII).
+    # Can't run shell commands with Unicode in the debugger, hmm.
+    my $my_cmd = $DB::cmd;
+    if ($my_cmd =~ m#\A$sh#gms) {
+
+        if ($my_cmd =~ m#\G\z#cgms) {
+            # Run the user's shell. If none defined, run Bourne.
+            # We resume execution when the shell terminates.
+            DB::_db_system( $ENV{SHELL} || "/bin/sh" );
+            next CMD;
+        }
+        elsif ($my_cmd =~ m#\G$sh\s*(.*)#cgms) {
+            # System it.
+            DB::_db_system($1);
+            next CMD;
+        }
+        elsif ($my_cmd =~ m#\G\s*(.*)#cgms) {
+            DB::_db_system( $ENV{SHELL} || "/bin/sh", "-c", $1 );
+            next CMD;
+        }
+    }
+}
+
+sub _handle_x_command {
+    my $self = shift;
+
+    if ($DB::cmd =~ s#\Ax\b# #) {    # Remainder gets done by DB::eval()
+        $onetimeDump = 'dump';    # main::dumpvar shows the output
+
+        # handle special  "x 3 blah" syntax XXX propagate
+        # doc back to special variables.
+        if ( $DB::cmd =~ s#\A\s*(\d+)(?=\s)# #) {
+            $onetimedumpDepth = $1;
+        }
+    }
+
+    return;
+}
+
+sub _handle_q_command {
+    my $self = shift;
+
+    if ($self->_is_full('q')) {
+        $fall_off_end = 1;
+        DB::clean_ENV();
+        exit $?;
+    }
+
+    return;
+}
+
+sub _handle_cmd_wrapper_commands {
+    my $self = shift;
+
+    DB::cmd_wrapper( $self->cmd_verb, $self->cmd_args, $line );
+    next CMD;
+}
+
+sub _handle_special_char_cmd_wrapper_commands {
+    my $self = shift;
+
+    # All of these commands were remapped in perl 5.8.0;
+    # we send them off to the secondary dispatcher (see below).
+    if (my ($cmd_letter, $my_arg) = $DB::cmd =~ /\A([<>\{]{1,2})\s*(.*)/so) {
+        DB::cmd_wrapper( $cmd_letter, $my_arg, $line );
+        next CMD;
+    }
+
+    return;
+}
+
+} ## end DB::Obj
+
+package DB;
+
+# The following code may be executed now:
+# BEGIN {warn 4}
+
+
+use vars qw($deep);
+
+# We need to fully qualify the name ("DB::sub") to make "use strict;"
+# happy. -- Shlomi Fish
+
+sub _indent_print_line_info {
+    my ($offset, $str) = @_;
+
+    print_lineinfo( ' ' x ($stack_depth - $offset), $str);
+
+    return;
+}
+
+sub _print_frame_message {
+    my ($al) = @_;
+
+    if ($frame) {
+        if ($frame & 4) {   # Extended frame entry message
+            _indent_print_line_info(-1, "in  ");
+
+            # Why -1? But it works! :-(
+            # Because print_trace will call add 1 to it and then call
+            # dump_trace; this results in our skipping -1+1 = 0 stack frames
+            # in dump_trace.
+            #
+            # Now it's 0 because we extracted a function.
+            print_trace( $LINEINFO, 0, 1, 1, "$sub$al" );
+        }
+        else {
+            _indent_print_line_info(-1, "entering $sub$al\n" );
+        }
+    }
+
+    return;
+}
+
+sub DB::sub {
+    # lock ourselves under threads
+    lock($DBGR);
+
+    # Whether or not the autoloader was running, a scalar to put the
+    # sub's return value in (if needed), and an array to put the sub's
+    # return value in (if needed).
+    my ( $al, $ret, @ret ) = "";
+    if ($sub eq 'threads::new' && $ENV{PERL5DB_THREADED}) {
+        print "creating new thread\n";
+    }
+
+    # If the last ten characters are '::AUTOLOAD', note we've traced
+    # into AUTOLOAD for $sub.
+    if ( length($sub) > 10 && substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) {
+        no strict 'refs';
+        $al = " for $$sub" if defined $$sub;
+    }
+
+    # We stack the stack pointer and then increment it to protect us
+    # from a situation that might unwind a whole bunch of call frames
+    # at once. Localizing the stack pointer means that it will automatically
+    # unwind the same amount when multiple stack frames are unwound.
+    local $stack_depth = $stack_depth + 1;    # Protect from non-local exits
+
+    # Expand @stack.
+    $#stack = $stack_depth;
+
+    # Save current single-step setting.
+    $stack[-1] = $single;
+
+    # Turn off all flags except single-stepping.
+    $single &= 1;
+
+    # If we've gotten really deeply recursed, turn on the flag that will
+    # make us stop with the 'deep recursion' message.
+    $single |= 4 if $stack_depth == $deep;
+
+    # If frame messages are on ...
+
+    _print_frame_message($al);
+    # standard frame entry message
+
+    my $print_exit_msg = sub {
+        # Check for exit trace messages...
+        if ($frame & 2)
+        {
+            if ($frame & 4)    # Extended exit message
+            {
+                _indent_print_line_info(0, "out ");
+                print_trace( $LINEINFO, 0, 1, 1, "$sub$al" );
+            }
+            else
+            {
+                _indent_print_line_info(0, "exited $sub$al\n" );
+            }
+        }
+        return;
+    };
+
+    # Determine the sub's return type, and capture appropriately.
+    if (wantarray) {
+
+        # Called in array context. call sub and capture output.
+        # DB::DB will recursively get control again if appropriate; we'll come
+        # back here when the sub is finished.
+        {
+            no strict 'refs';
+            @ret = &$sub;
+        }
+
+        # Pop the single-step value back off the stack.
+        $single |= $stack[ $stack_depth-- ];
+
+        $print_exit_msg->();
+
+        # Print the return info if we need to.
+        if ( $doret eq $stack_depth or $frame & 16 ) {
+
+            # Turn off output record separator.
+            local $\ = '';
+            my $fh = ( $doret eq $stack_depth ? $OUT : $LINEINFO );
+
+            # Indent if we're printing because of $frame tracing.
+            if ($frame & 16)
+            {
+                print {$fh} ' ' x $stack_depth;
+            }
+
+            # Print the return value.
+            print {$fh} "list context return from $sub:\n";
+            dumpit( $fh, \@ret );
+
+            # And don't print it again.
+            $doret = -2;
+        } ## end if ($doret eq $stack_depth...
+            # And we have to return the return value now.
+        @ret;
+    } ## end if (wantarray)
+
+    # Scalar context.
+    else {
+        if ( defined wantarray ) {
+            no strict 'refs';
+            # Save the value if it's wanted at all.
+            $ret = &$sub;
+        }
+        else {
+            no strict 'refs';
+            # Void return, explicitly.
+            &$sub;
+            undef $ret;
+        }
+
+        # Pop the single-step value off the stack.
+        $single |= $stack[ $stack_depth-- ];
+
+        # If we're doing exit messages...
+        $print_exit_msg->();
+
+        # If we are supposed to show the return value... same as before.
+        if ( $doret eq $stack_depth or $frame & 16 and defined wantarray ) {
+            local $\ = '';
+            my $fh = ( $doret eq $stack_depth ? $OUT : $LINEINFO );
+            print $fh ( ' ' x $stack_depth ) if $frame & 16;
+            print $fh (
+                defined wantarray
+                ? "scalar context return from $sub: "
+                : "void context return from $sub\n"
+            );
+            dumpit( $fh, $ret ) if defined wantarray;
+            $doret = -2;
+        } ## end if ($doret eq $stack_depth...
+
+        # Return the appropriate scalar value.
+        $ret;
+    } ## end else [ if (wantarray)
+} ## end sub _sub
+
+sub lsub : lvalue {
+
+    no strict 'refs';
+
+    # lock ourselves under threads
+    lock($DBGR);
+
+    # Whether or not the autoloader was running, a scalar to put the
+    # sub's return value in (if needed), and an array to put the sub's
+    # return value in (if needed).
+    my ( $al, $ret, @ret ) = "";
+    if ($sub =~ /^threads::new$/ && $ENV{PERL5DB_THREADED}) {
+        print "creating new thread\n";
+    }
+
+    # If the last ten characters are C'::AUTOLOAD', note we've traced
+    # into AUTOLOAD for $sub.
+    if ( length($sub) > 10 && substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) {
+        $al = " for $$sub";
+    }
+
+    # We stack the stack pointer and then increment it to protect us
+    # from a situation that might unwind a whole bunch of call frames
+    # at once. Localizing the stack pointer means that it will automatically
+    # unwind the same amount when multiple stack frames are unwound.
+    local $stack_depth = $stack_depth + 1;    # Protect from non-local exits
+
+    # Expand @stack.
+    $#stack = $stack_depth;
+
+    # Save current single-step setting.
+    $stack[-1] = $single;
+
+    # Turn off all flags except single-stepping.
+    # Use local so the single-step value is popped back off the
+    # stack for us.
+    local $single = $single & 1;
+
+    # If we've gotten really deeply recursed, turn on the flag that will
+    # make us stop with the 'deep recursion' message.
+    $single |= 4 if $stack_depth == $deep;
+
+    # If frame messages are on ...
+    _print_frame_message($al);
+
+    # call the original lvalue sub.
+    &$sub;
+}
+
+# Abstracting common code from multiple places elsewhere:
+sub depth_print_lineinfo {
+    my $always_print = shift;
+
+    print_lineinfo( @_ ) if ($always_print or $stack_depth < $trace_to_depth);
+}
+
+
+### The API section
+
+my %set = (    #
+    'pre580' => {
+        'a' => 'pre580_a',
+        'A' => 'pre580_null',
+        'b' => 'pre580_b',
+        'B' => 'pre580_null',
+        'd' => 'pre580_null',
+        'D' => 'pre580_D',
+        'h' => 'pre580_h',
+        'M' => 'pre580_null',
+        'O' => 'o',
+        'o' => 'pre580_null',
+        'v' => 'M',
+        'w' => 'v',
+        'W' => 'pre580_W',
+    },
+    'pre590' => {
+        '<'  => 'pre590_prepost',
+        '<<' => 'pre590_prepost',
+        '>'  => 'pre590_prepost',
+        '>>' => 'pre590_prepost',
+        '{'  => 'pre590_prepost',
+        '{{' => 'pre590_prepost',
+    },
+);
+
+my %breakpoints_data;
+
+sub _has_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    return (
+        exists( $breakpoints_data{$filename} )
+            and
+        exists( $breakpoints_data{$filename}{$line} )
+    );
+}
+
+sub _get_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    return ($breakpoints_data{$filename}{$line} ||= +{});
+}
+
+sub _delete_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    delete($breakpoints_data{$filename}{$line});
+    if (! scalar(keys( %{$breakpoints_data{$filename}} )) ) {
+        delete($breakpoints_data{$filename});
+    }
+
+    return;
+}
+
+sub _set_breakpoint_enabled_status {
+    my ($filename, $line, $status) = @_;
+
+    _get_breakpoint_data_ref($filename, $line)->{'enabled'} =
+        ($status ? 1 : '')
+        ;
+
+    return;
+}
+
+sub _enable_breakpoint_temp_enabled_status {
+    my ($filename, $line) = @_;
+
+    _get_breakpoint_data_ref($filename, $line)->{'temp_enabled'} = 1;
+
+    return;
+}
+
+sub _cancel_breakpoint_temp_enabled_status {
+    my ($filename, $line) = @_;
+
+    my $ref = _get_breakpoint_data_ref($filename, $line);
+
+    delete ($ref->{'temp_enabled'});
+
+    if (! %$ref) {
+        _delete_breakpoint_data_ref($filename, $line);
+    }
+
+    return;
+}
+
+sub _is_breakpoint_enabled {
+    my ($filename, $line) = @_;
+
+    my $data_ref = _get_breakpoint_data_ref($filename, $line);
+    return ($data_ref->{'enabled'} || $data_ref->{'temp_enabled'});
+}
+
+
+sub cmd_wrapper {
+    my $cmd      = shift;
+    my $line     = shift;
+    my $dblineno = shift;
+
+    # Assemble the command subroutine's name by looking up the
+    # command set and command name in %set. If we can't find it,
+    # default to the older version of the command.
+    my $call = 'cmd_'
+      . ( $set{$CommandSet}{$cmd}
+          || ( $cmd =~ /\A[<>{]+/o ? 'prepost' : $cmd ) );
+
+    # Call the command subroutine, call it by name.
+    return __PACKAGE__->can($call)->( $cmd, $line, $dblineno );
+} ## end sub cmd_wrapper
+
+
+sub cmd_a {
+    my $cmd    = shift;
+    my $line   = shift || '';    # [.|line] expr
+    my $dbline = shift;
+
+    # If it's dot (here), or not all digits,  use the current line.
+    $line =~ s/\A\./$dbline/;
+
+    # Should be a line number followed by an expression.
+    if ( my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.+)/ ) {
+
+        if (! length($lineno)) {
+            $lineno = $dbline;
+        }
+
+        # If we have an expression ...
+        if ( length $expr ) {
+
+            # ... but the line isn't breakable, complain.
+            if ( $dbline[$lineno] == 0 ) {
+                print $OUT
+                  "Line $lineno($dbline[$lineno]) does not have an action?\n";
+            }
+            else {
+
+                # It's executable. Record that the line has an action.
+                $had_breakpoints{$filename} |= 2;
+
+                # Remove any action, temp breakpoint, etc.
+                $dbline{$lineno} =~ s/\0[^\0]*//;
+
+                # Add the action to the line.
+                $dbline{$lineno} .= "\0" . action($expr);
+
+                _set_breakpoint_enabled_status($filename, $lineno, 1);
+            }
+        } ## end if (length $expr)
+    } ## end if ($line =~ /^\s*(\d*)\s*(\S.+)/)
+    else {
+
+        # Syntax wrong.
+        print $OUT
+          "Adding an action requires an optional lineno and an expression\n"
+          ;    # hint
+    }
+} ## end sub cmd_a
+
+
+sub cmd_A {
+    my $cmd    = shift;
+    my $line   = shift || '';
+    my $dbline = shift;
+
+    # Dot is this line.
+    $line =~ s/^\./$dbline/;
+
+    # Call delete_action with a null param to delete them all.
+    # The '1' forces the eval to be true. It'll be false only
+    # if delete_action blows up for some reason, in which case
+    # we print $@ and get out.
+    if ( $line eq '*' ) {
+        if (! eval { _delete_all_actions(); 1 }) {
+            print {$OUT} $@;
+            return;
+        }
+    }
+
+    # There's a real line  number. Pass it to delete_action.
+    # Error trapping is as above.
+    elsif ( $line =~ /^(\S.*)/ ) {
+        if (! eval { delete_action($1); 1 }) {
+            print {$OUT} $@;
+            return;
+        }
+    }
+
+    # Swing and a miss. Bad syntax.
+    else {
+        print $OUT
+          "Deleting an action requires a line number, or '*' for all\n" ; # hint
+    }
+} ## end sub cmd_A
+
+
+sub _remove_action_from_dbline {
+    my $i = shift;
+
+    $dbline{$i} =~ s/\0[^\0]*//;    # \^a
+    delete $dbline{$i} if $dbline{$i} eq '';
+
+    return;
+}
+
+sub _delete_all_actions {
+    print {$OUT} "Deleting all actions...\n";
+
+    for my $file ( keys %had_breakpoints ) {
+        local *dbline = $main::{ '_<' . $file };
+        $max = $#dbline;
+        my $was;
+        for my $i (1 .. $max) {
+            if ( defined $dbline{$i} ) {
+                _remove_action_from_dbline($i);
+            }
+        }
+
+        unless ( $had_breakpoints{$file} &= ~2 ) {
+            delete $had_breakpoints{$file};
+        }
+    }
+
+    return;
+}
+
+sub delete_action {
+    my $i = shift;
+
+    if ( defined($i) ) {
+        # Can there be one?
+        die "Line $i has no action .\n" if $dbline[$i] == 0;
+
+        # Nuke whatever's there.
+        _remove_action_from_dbline($i);
+    }
+    else {
+        _delete_all_actions();
+    }
+}
+
+
+sub cmd_b {
+    my $cmd    = shift;
+    my $line   = shift;    # [.|line] [cond]
+    my $dbline = shift;
+
+    my $default_cond = sub {
+        my $cond = shift;
+        return length($cond) ? $cond : '1';
+    };
+
+    # Make . the current line number if it's there..
+    $line =~ s/^\.(\s|\z)/$dbline$1/;
+
+    # No line number, no condition. Simple break on current line.
+    if ( $line =~ /^\s*$/ ) {
+        cmd_b_line( $dbline, 1 );
+    }
+
+    # Break on load for a file.
+    elsif ( my ($file) = $line =~ /^load\b\s*(.*)/ ) {
+        $file =~ s/\s+\z//;
+        cmd_b_load($file);
+    }
+
+    # b compile|postpone <some sub> [<condition>]
+    # The interpreter actually traps this one for us; we just put the
+    # necessary condition in the %postponed hash.
+    elsif ( my ($action, $subname, $cond)
+        = $line =~ /^(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/ ) {
+
+        # De-Perl4-ify the name - ' separators to ::.
+        $subname =~ s/'/::/g;
+
+        # Qualify it into the current package unless it's already qualified.
+        $subname = "${package}::" . $subname unless $subname =~ /::/;
+
+        # Add main if it starts with ::.
+        $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+        # Save the break type for this sub.
+        $postponed{$subname} = (($action eq 'postpone')
+            ? ( "break +0 if " . $default_cond->($cond) )
+            : "compile");
+    } ## end elsif ($line =~ ...
+    # b <filename>:<line> [<condition>]
+    elsif (my ($filename, $line_num, $cond)
+        = $line =~ /\A(\S+[^:]):(\d+)\s*(.*)/ms) {
+        cmd_b_filename_line(
+            $filename,
+            $line_num,
+            (length($cond) ? $cond : '1'),
+        );
+    }
+    # b <sub name> [<condition>]
+    elsif ( my ($new_subname, $new_cond) =
+        $line =~ /^([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/ ) {
+
+        #
+        $subname = $new_subname;
+        cmd_b_sub( $subname, $default_cond->($new_cond) );
+    }
+
+    # b <line> [<condition>].
+    elsif ( my ($line_n, $cond) = $line =~ /^(\d*)\s*(.*)/ ) {
+
+        # Capture the line. If none, it's the current line.
+        $line = $line_n || $dbline;
+
+        # Break on line.
+        cmd_b_line( $line, $default_cond->($cond) );
+    }
+
+    # Line didn't make sense.
+    else {
+        print "confused by line($line)?\n";
+    }
+
+    return;
+} ## end sub cmd_b
+
+
+sub break_on_load {
+    my $file = shift;
+    $break_on_load{$file} = 1;
+    $had_breakpoints{$file} |= 1;
+}
+
+
+sub report_break_on_load {
+    sort keys %break_on_load;
+}
+
+
+sub cmd_b_load {
+    my $file = shift;
+    my @files;
+
+    # This is a block because that way we can use a redo inside it
+    # even without there being any looping structure at all outside it.
+    {
+
+        # Save short name and full path if found.
+        push @files, $file;
+        push @files, $::INC{$file} if $::INC{$file};
+
+        # Tack on .pm and do it again unless there was a '.' in the name
+        # already.
+        $file .= '.pm', redo unless $file =~ /\./;
+    }
+
+    # Do the real work here.
+    break_on_load($_) for @files;
+
+    # All the files that have break-on-load breakpoints.
+    @files = report_break_on_load;
+
+    # Normalize for the purposes of our printing this.
+    local $\ = '';
+    local $" = ' ';
+    print $OUT "Will stop on load of '@files'.\n";
+} ## end sub cmd_b_load
+
+
+use vars qw($filename_error);
+$filename_error = '';
+
+
+sub breakable_line {
+
+    my ( $from, $to ) = @_;
+
+    # $i is the start point. (Where are the FORTRAN programs of yesteryear?)
+    my $i = $from;
+
+    # If there are at least 2 arguments, we're trying to search a range.
+    if ( @_ >= 2 ) {
+
+        # $delta is positive for a forward search, negative for a backward one.
+        my $delta = $from < $to ? +1 : -1;
+
+        # Keep us from running off the ends of the file.
+        my $limit = $delta > 0 ? $#dbline : 1;
+
+        # Clever test. If you're a mathematician, it's obvious why this
+        # test works. If not:
+        # If $delta is positive (going forward), $limit will be $#dbline.
+        #    If $to is less than $limit, ($limit - $to) will be positive, times
+        #    $delta of 1 (positive), so the result is > 0 and we should use $to
+        #    as the stopping point.
+        #
+        #    If $to is greater than $limit, ($limit - $to) is negative,
+        #    times $delta of 1 (positive), so the result is < 0 and we should
+        #    use $limit ($#dbline) as the stopping point.
+        #
+        # If $delta is negative (going backward), $limit will be 1.
+        #    If $to is zero, ($limit - $to) will be 1, times $delta of -1
+        #    (negative) so the result is > 0, and we use $to as the stopping
+        #    point.
+        #
+        #    If $to is less than zero, ($limit - $to) will be positive,
+        #    times $delta of -1 (negative), so the result is not > 0, and
+        #    we use $limit (1) as the stopping point.
+        #
+        #    If $to is 1, ($limit - $to) will zero, times $delta of -1
+        #    (negative), still giving zero; the result is not > 0, and
+        #    we use $limit (1) as the stopping point.
+        #
+        #    if $to is >1, ($limit - $to) will be negative, times $delta of -1
+        #    (negative), giving a positive (>0) value, so we'll set $limit to
+        #    $to.
+
+        $limit = $to if ( $limit - $to ) * $delta > 0;
+
+        # The real search loop.
+        # $i starts at $from (the point we want to start searching from).
+        # We move through @dbline in the appropriate direction (determined
+        # by $delta: either -1 (back) or +1 (ahead).
+        # We stay in as long as we haven't hit an executable line
+        # ($dbline[$i] == 0 means not executable) and we haven't reached
+        # the limit yet (test similar to the above).
+        $i += $delta while $dbline[$i] == 0 and ( $limit - $i ) * $delta > 0;
+
+    } ## end if (@_ >= 2)
+
+    # If $i points to a line that is executable, return that.
+    return $i unless $dbline[$i] == 0;
+
+    # Format the message and print it: no breakable lines in range.
+    my ( $pl, $upto ) = ( '', '' );
+    ( $pl, $upto ) = ( 's', "..$to" ) if @_ >= 2 and $from != $to;
+
+    # If there's a filename in filename_error, we'll see it.
+    # If not, not.
+    die "Line$pl $from$upto$filename_error not breakable\n";
+} ## end sub breakable_line
+
+
+sub breakable_line_in_filename {
+
+    # Capture the file name.
+    my ($f) = shift;
+
+    # Swap the magic line array over there temporarily.
+    local *dbline = $main::{ '_<' . $f };
+
+    # If there's an error, it's in this other file.
+    local $filename_error = " of '$f'";
+
+    # Find the breakable line.
+    breakable_line(@_);
+
+    # *dbline and $filename_error get restored when this block ends.
+
+} ## end sub breakable_line_in_filename
+
+
+sub break_on_line {
+    my $i = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    my $inii  = $i;
+    my $after = '';
+    my $pl    = '';
+
+    # Woops, not a breakable line. $filename_error allows us to say
+    # if it was in a different file.
+    die "Line $i$filename_error not breakable.\n" if $dbline[$i] == 0;
+
+    # Mark this file as having breakpoints in it.
+    $had_breakpoints{$filename} |= 1;
+
+    # If there is an action or condition here already ...
+    if ( $dbline{$i} ) {
+
+        # ... swap this condition for the existing one.
+        $dbline{$i} =~ s/^[^\0]*/$cond/;
+    }
+    else {
+
+        # Nothing here - just add the condition.
+        $dbline{$i} = $cond;
+
+        _set_breakpoint_enabled_status($filename, $i, 1);
+    }
+
+    return;
+} ## end sub break_on_line
+
+
+sub cmd_b_line {
+    if (not eval { break_on_line(@_); 1 }) {
+        local $\ = '';
+        print $OUT $@ and return;
+    }
+
+    return;
+} ## end sub cmd_b_line
+
+
+sub cmd_b_filename_line {
+    if (not eval { break_on_filename_line(@_); 1 }) {
+        local $\ = '';
+        print $OUT $@ and return;
+    }
+
+    return;
+}
+
+
+sub break_on_filename_line {
+    my $f = shift;
+    my $i = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Switch the magical hash temporarily.
+    local *dbline = $main::{ '_<' . $f };
+
+    # Localize the variables that break_on_line uses to make its message.
+    local $filename_error = " of '$f'";
+    local $filename       = $f;
+
+    # Add the breakpoint.
+    break_on_line( $i, $cond );
+
+    return;
+} ## end sub break_on_filename_line
+
+
+sub break_on_filename_line_range {
+    my $f = shift;
+    my $from = shift;
+    my $to = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Find a breakable line if there is one.
+    my $i = breakable_line_in_filename( $f, $from, $to );
+
+    # Add the breakpoint.
+    break_on_filename_line( $f, $i, $cond );
+
+    return;
+} ## end sub break_on_filename_line_range
+
+
+sub subroutine_filename_lines {
+    my ( $subname ) = @_;
+
+    # Returned value from find_sub() is fullpathname:startline-endline.
+    # The match creates the list (fullpathname, start, end).
+    return (find_sub($subname) =~ /^(.*):(\d+)-(\d+)$/);
+} ## end sub subroutine_filename_lines
+
+
+sub break_subroutine {
+    my $subname = shift;
+
+    # Get filename, start, and end.
+    my ( $file, $s, $e ) = subroutine_filename_lines($subname)
+      or die "Subroutine $subname not found.\n";
+
+
+    # Null condition changes to '1' (always true).
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Put a break the first place possible in the range of lines
+    # that make up this subroutine.
+    break_on_filename_line_range( $file, $s, $e, $cond );
+
+    return;
+} ## end sub break_subroutine
+
+
+sub cmd_b_sub {
+    my $subname = shift;
+    my $cond = @_ ? shift : 1;
+
+    # If the subname isn't a code reference, qualify it so that
+    # break_subroutine() will work right.
+    if ( ref($subname) ne 'CODE' ) {
+
+        # Not Perl 4.
+        $subname =~ s/'/::/g;
+        my $s = $subname;
+
+        # Put it in this package unless it's already qualified.
+        if ($subname !~ /::/)
+        {
+            $subname = $package . '::' . $subname;
+        };
+
+        # Requalify it into CORE::GLOBAL if qualifying it into this
+        # package resulted in its not being defined, but only do so
+        # if it really is in CORE::GLOBAL.
+        my $core_name = "CORE::GLOBAL::$s";
+        if ((!defined(&$subname))
+                and ($s !~ /::/)
+                and (defined &{$core_name}))
+        {
+            $subname = $core_name;
+        }
+
+        # Put it in package 'main' if it has a leading ::.
+        if ($subname =~ /\A::/)
+        {
+            $subname = "main" . $subname;
+        }
+    } ## end if ( ref($subname) ne 'CODE' ) {
+
+    # Try to set the breakpoint.
+    if (not eval { break_subroutine( $subname, $cond ); 1 }) {
+        local $\ = '';
+        print {$OUT} $@;
+        return;
+    }
+
+    return;
+} ## end sub cmd_b_sub
+
+
+sub cmd_B {
+    my $cmd = shift;
+
+    # No line spec? Use dbline.
+    # If there is one, use it if it's non-zero, or wipe it out if it is.
+    my $line   = ( $_[0] =~ /\A\./ ) ? $dbline : (shift || '');
+    my $dbline = shift;
+
+    # If the line was dot, make the line the current one.
+    $line =~ s/^\./$dbline/;
+
+    # If it's * we're deleting all the breakpoints.
+    if ( $line eq '*' ) {
+        if (not eval { delete_breakpoint(); 1 }) {
+            print {$OUT} $@;
+        }
+    }
+
+    # If there is a line spec, delete the breakpoint on that line.
+    elsif ( $line =~ /\A(\S.*)/ ) {
+        if (not eval { delete_breakpoint( $line || $dbline ); 1 }) {
+            local $\ = '';
+            print {$OUT} $@;
+        }
+    } ## end elsif ($line =~ /^(\S.*)/)
+
+    # No line spec.
+    else {
+        print {$OUT}
+          "Deleting a breakpoint requires a line number, or '*' for all\n"
+          ;    # hint
+    }
+
+    return;
+} ## end sub cmd_B
+
+
+sub _remove_breakpoint_entry {
+    my ($fn, $i) = @_;
+
+    delete $dbline{$i};
+    _delete_breakpoint_data_ref($fn, $i);
+
+    return;
+}
+
+sub _delete_all_breakpoints {
+    print {$OUT} "Deleting all breakpoints...\n";
+
+    # %had_breakpoints lists every file that had at least one
+    # breakpoint in it.
+    for my $fn ( keys %had_breakpoints ) {
+
+        # Switch to the desired file temporarily.
+        local *dbline = $main::{ '_<' . $fn };
+
+        $max = $#dbline;
+
+        # For all lines in this file ...
+        for my $i (1 .. $max) {
+
+            # If there's a breakpoint or action on this line ...
+            if ( defined $dbline{$i} ) {
+
+                # ... remove the breakpoint.
+                $dbline{$i} =~ s/\A[^\0]+//;
+                if ( $dbline{$i} =~ s/\A\0?\z// ) {
+                    # Remove the entry altogether if no action is there.
+                    _remove_breakpoint_entry($fn, $i);
+                }
+            } ## end if (defined $dbline{$i...
+        } ## end for $i (1 .. $max)
+
+        # If, after we turn off the "there were breakpoints in this file"
+        # bit, the entry in %had_breakpoints for this file is zero,
+        # we should remove this file from the hash.
+        if ( not $had_breakpoints{$fn} &= (~1) ) {
+            delete $had_breakpoints{$fn};
+        }
+    } ## end for my $fn (keys %had_breakpoints)
+
+    # Kill off all the other breakpoints that are waiting for files that
+    # haven't been loaded yet.
+    undef %postponed;
+    undef %postponed_file;
+    undef %break_on_load;
+
+    return;
+}
+
+sub _delete_breakpoint_from_line {
+    my ($i) = @_;
+
+    # Woops. This line wasn't breakable at all.
+    die "Line $i not breakable.\n" if $dbline[$i] == 0;
+
+    # Kill the condition, but leave any action.
+    $dbline{$i} =~ s/\A[^\0]*//;
+
+    # Remove the entry entirely if there's no action left.
+    if ($dbline{$i} eq '') {
+        _remove_breakpoint_entry($filename, $i);
+    }
+
+    return;
+}
+
+sub delete_breakpoint {
+    my $i = shift;
+
+    # If we got a line, delete just that one.
+    if ( defined($i) ) {
+        _delete_breakpoint_from_line($i);
+    }
+    # No line; delete them all.
+    else {
+        _delete_all_breakpoints();
+    }
+
+    return;
+}
+
+
+sub cmd_stop {    # As on ^C, but not signal-safy.
+    $signal = 1;
+}
+
+
+sub cmd_e {
+    my $cmd  = shift;
+    my $line = shift;
+    unless (exists($INC{'threads.pm'})) {
+        print "threads not loaded($ENV{PERL5DB_THREADED})
+        please run the debugger with PERL5DB_THREADED=1 set in the environment\n";
+    } else {
+        my $tid = threads->tid;
+        print "thread id: $tid\n";
+    }
+} ## end sub cmd_e
+
+
+sub cmd_E {
+    my $cmd  = shift;
+    my $line = shift;
+    unless (exists($INC{'threads.pm'})) {
+        print "threads not loaded($ENV{PERL5DB_THREADED})
+        please run the debugger with PERL5DB_THREADED=1 set in the environment\n";
+    } else {
+        my $tid = threads->tid;
+        print "thread ids: ".join(', ',
+            map { ($tid == $_->tid ? '<'.$_->tid.'>' : $_->tid) } threads->list
+        )."\n";
+    }
+} ## end sub cmd_E
+
+
+use vars qw($help);
+use vars qw($summary);
+
+sub cmd_h {
+    my $cmd = shift;
+
+    # If we have no operand, assume null.
+    my $line = shift || '';
+
+    # 'h h'. Print the long-format help.
+    if ( $line =~ /\Ah\s*\z/ ) {
+        print_help($help);
+    }
+
+    # 'h <something>'. Search for the command and print only its help.
+    elsif ( my ($asked) = $line =~ /\A(\S.*)\z/ ) {
+
+        # support long commands; otherwise bogus errors
+        # happen when you ask for h on <CR> for example
+        my $qasked = quotemeta($asked);    # for searching; we don't
+                                           # want to use it as a pattern.
+                                           # XXX: finds CR but not <CR>
+
+        # Search the help string for the command.
+        if (
+            $help =~ /^                    # Start of a line
+                      <?                   # Optional '<'
+                      (?:[IB]<)            # Optional markup
+                      $qasked              # The requested command
+                     /mx
+          )
+        {
+
+            # It's there; pull it out and print it.
+            while (
+                $help =~ /^
+                              (<?            # Optional '<'
+                                 (?:[IB]<)   # Optional markup
+                                 $qasked     # The command
+                                 ([\s\S]*?)  # Description line(s)
+                              \n)            # End of last description line
+                              (?!\s)         # Next line not starting with
+                                             # whitespace
+                             /mgx
+              )
+            {
+                print_help($1);
+            }
+        }
+
+        # Not found; not a debugger command.
+        else {
+            print_help("B<$asked> is not a debugger command.\n");
+        }
+    } ## end elsif ($line =~ /^(\S.*)$/)
+
+    # 'h' - print the summary help.
+    else {
+        print_help($summary);
+    }
+} ## end sub cmd_h
+
+
+sub cmd_i {
+    my $cmd  = shift;
+    my $line = shift;
+    foreach my $isa ( split( /\s+/, $line ) ) {
+        $evalarg = $isa;
+        # The &-call is here to ascertain the mutability of @_.
+        ($isa) = &DB::eval;
+        no strict 'refs';
+        print join(
+            ', ',
+            map {
+                "$_"
+                  . (
+                    defined( ${"$_\::VERSION"} )
+                    ? ' ' . ${"$_\::VERSION"}
+                    : undef )
+              } @{mro::get_linear_isa(ref($isa) || $isa)}
+        );
+        print "\n";
+    }
+} ## end sub cmd_i
+
+
+sub _min {
+    my $min = shift;
+    foreach my $v (@_) {
+        if ($min > $v) {
+            $min = $v;
+        }
+    }
+    return $min;
+}
+
+sub _max {
+    my $max = shift;
+    foreach my $v (@_) {
+        if ($max < $v) {
+            $max = $v;
+        }
+    }
+    return $max;
+}
+
+sub _minify_to_max {
+    my $ref = shift;
+
+    $$ref = _min($$ref, $max);
+
+    return;
+}
+
+sub _cmd_l_handle_var_name {
+    my $var_name = shift;
+
+    $evalarg = $var_name;
+
+    my ($s) = DB::eval();
+
+    # Ooops. Bad scalar.
+    if ($@) {
+        print {$OUT} "Error: $@\n";
+        next CMD;
+    }
+
+    # Good scalar. If it's a reference, find what it points to.
+    $s = CvGV_name($s);
+    print {$OUT} "Interpreted as: $1 $s\n";
+    $line = "$1 $s";
+
+    # Call self recursively to really do the command.
+    return _cmd_l_main( $s );
+}
+
+sub _cmd_l_handle_subname {
+
+    my $s = $subname;
+
+    # De-Perl4.
+    $subname =~ s/\'/::/;
+
+    # Put it in this package unless it starts with ::.
+    $subname = $package . "::" . $subname unless $subname =~ /::/;
+
+    # Put it in CORE::GLOBAL if t doesn't start with :: and
+    # it doesn't live in this package and it lives in CORE::GLOBAL.
+    $subname = "CORE::GLOBAL::$s"
+    if not defined &$subname
+        and $s !~ /::/
+        and defined &{"CORE::GLOBAL::$s"};
+
+    # Put leading '::' names into 'main::'.
+    $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+    # Get name:start-stop from find_sub, and break this up at
+    # colons.
+    my @pieces = split( /:/, find_sub($subname) || $sub{$subname} );
+
+    # Pull off start-stop.
+    my $subrange = pop @pieces;
+
+    # If the name contained colons, the split broke it up.
+    # Put it back together.
+    $file = join( ':', @pieces );
+
+    # If we're not in that file, switch over to it.
+    if ( $file ne $filename ) {
+        if (! $slave_editor) {
+            print {$OUT} "Switching to file '$file'.\n";
+        }
+
+        # Switch debugger's magic structures.
+        *dbline   = $main::{ '_<' . $file };
+        $max      = $#dbline;
+        $filename = $file;
+    } ## end if ($file ne $filename)
+
+    # Subrange is 'start-stop'. If this is less than a window full,
+    # swap it to 'start+', which will list a window from the start point.
+    if ($subrange) {
+        if ( eval($subrange) < -$window ) {
+            $subrange =~ s/-.*/+/;
+        }
+
+        # Call self recursively to list the range.
+        return _cmd_l_main( $subrange );
+    } ## end if ($subrange)
+
+    # Couldn't find it.
+    else {
+        print {$OUT} "Subroutine $subname not found.\n";
+        return;
+    }
+}
+
+sub _cmd_l_empty {
+    # Compute new range to list.
+    $incr = $window - 1;
+
+    # Recurse to do it.
+    return _cmd_l_main( $start . '-' . ( $start + $incr ) );
+}
+
+sub _cmd_l_plus {
+    my ($new_start, $new_incr) = @_;
+
+    # Don't reset start for 'l +nnn'.
+    $start = $new_start if $new_start;
+
+    # Increment for list. Use window size if not specified.
+    # (Allows 'l +' to work.)
+    $incr = $new_incr || ($window - 1);
+
+    # Create a line range we'll understand, and recurse to do it.
+    return _cmd_l_main( $start . '-' . ( $start + $incr ) );
+}
+
+sub _cmd_l_calc_initial_end_and_i {
+    my ($spec, $start_match, $end_match) = @_;
+
+    # Determine end point; use end of file if not specified.
+    my $end = ( !defined $start_match ) ? $max :
+    ( $end_match ? $end_match : $start_match );
+
+    # Go on to the end, and then stop.
+    _minify_to_max(\$end);
+
+    # Determine start line.
+    my $i = $start_match;
+
+    if ($i eq '.') {
+        $i = $spec;
+    }
+
+    $i = _max($i, 1);
+
+    $incr = $end - $i;
+
+    return ($end, $i);
+}
+
+sub _cmd_l_range {
+    my ($spec, $current_line, $start_match, $end_match) = @_;
+
+    my ($end, $i) =
+        _cmd_l_calc_initial_end_and_i($spec, $start_match, $end_match);
+
+    # If we're running under a slave editor, force it to show the lines.
+    if ($slave_editor) {
+        print {$OUT} "\032\032$filename:$i:0\n";
+        $i = $end;
+    }
+    # We're doing it ourselves. We want to show the line and special
+    # markers for:
+    # - the current line in execution
+    # - whether a line is breakable or not
+    # - whether a line has a break or not
+    # - whether a line has an action or not
+    else {
+        I_TO_END:
+        for ( ; $i <= $end ; $i++ ) {
+
+            # Check for breakpoints and actions.
+            my ( $stop, $action );
+            if ($dbline{$i}) {
+                ( $stop, $action ) = split( /\0/, $dbline{$i} );
+            }
+
+            # ==> if this is the current line in execution,
+            # : if it's breakable.
+            my $arrow =
+            ( $i == $current_line and $filename eq $filename_ini )
+            ? '==>'
+            : ( $dbline[$i] + 0 ? ':' : ' ' );
+
+            # Add break and action indicators.
+            $arrow .= 'b' if $stop;
+            $arrow .= 'a' if $action;
+
+            # Print the line.
+            print {$OUT} "$i$arrow\t", $dbline[$i];
+
+            # Move on to the next line. Drop out on an interrupt.
+            if ($signal) {
+                $i++;
+                last I_TO_END;
+            }
+        } ## end for (; $i <= $end ; $i++)
+
+        # Line the prompt up; print a newline if the last line listed
+        # didn't have a newline.
+        if ($dbline[ $i - 1 ] !~ /\n\z/) {
+            print {$OUT} "\n";
+        }
+    } ## end else [ if ($slave_editor)
+
+    # Save the point we last listed to in case another relative 'l'
+    # command is desired. Don't let it run off the end.
+    $start = $i;
+    _minify_to_max(\$start);
+
+    return;
+}
+
+sub _cmd_l_main {
+    my $spec = shift;
+
+    # If this is '-something', delete any spaces after the dash.
+    $spec =~ s/\A-\s*\z/-/;
+
+    # If the line is '$something', assume this is a scalar containing a
+    # line number.
+    # Set up for DB::eval() - evaluate in *user* context.
+    if ( my ($var_name) = $spec =~ /\A(\$.*)/s ) {
+        return _cmd_l_handle_var_name($var_name);
+    }
+    # l name. Try to find a sub by that name.
+    elsif ( ($subname) = $spec =~ /\A([\':A-Za-z_][\':\w]*(?:\[.*\])?)/s ) {
+        return _cmd_l_handle_subname();
+    }
+    # Bare 'l' command.
+    elsif ( $spec !~ /\S/ ) {
+        return _cmd_l_empty();
+    }
+    # l [start]+number_of_lines
+    elsif ( my ($new_start, $new_incr) = $spec =~ /\A(\d*)\+(\d*)\z/ ) {
+        return _cmd_l_plus($new_start, $new_incr);
+    }
+    # l start-stop or l start,stop
+    elsif (my ($s, $e) = $spec =~ /^(?:(-?[\d\$\.]+)(?:[-,]([\d\$\.]+))?)?/ ) {
+        return _cmd_l_range($spec, $line, $s, $e);
+    }
+
+    return;
+} ## end sub cmd_l
+
+sub cmd_l {
+    my (undef, $line) = @_;
+
+    return _cmd_l_main($line);
+}
+
+
+sub _cmd_L_calc_arg {
+    # If no argument, list everything. Pre-5.8.0 version always lists
+    # everything
+    my $arg = shift || 'abw';
+    if ($CommandSet ne '580')
+    {
+        $arg = 'abw';
+    }
+
+    return $arg;
+}
+
+sub _cmd_L_calc_wanted_flags {
+    my $arg = _cmd_L_calc_arg(shift);
+
+    return (map { index($arg, $_) >= 0 ? 1 : 0 } qw(a b w));
+}
+
+
+sub _cmd_L_handle_breakpoints {
+    my ($handle_db_line) = @_;
+
+    BREAKPOINTS_SCAN:
+    # Look in all the files with breakpoints...
+    for my $file ( keys %had_breakpoints ) {
+
+        # Temporary switch to this file.
+        local *dbline = $main::{ '_<' . $file };
+
+        # Set up to look through the whole file.
+        $max = $#dbline;
+        my $was;    # Flag: did we print something
+        # in this file?
+
+        # For each line in the file ...
+        for my $i (1 .. $max) {
+
+            # We've got something on this line.
+            if ( defined $dbline{$i} ) {
+
+                # Print the header if we haven't.
+                if (not $was++) {
+                    print {$OUT} "$file:\n";
+                }
+
+                # Print the line.
+                print {$OUT} " $i:\t", $dbline[$i];
+
+                $handle_db_line->($dbline{$i});
+
+                # Quit if the user hit interrupt.
+                if ($signal) {
+                    last BREAKPOINTS_SCAN;
+                }
+            } ## end if (defined $dbline{$i...
+        } ## end for my $i (1 .. $max)
+    } ## end for my $file (keys %had_breakpoints)
+
+    return;
+}
+
+sub _cmd_L_handle_postponed_breakpoints {
+    my ($handle_db_line) = @_;
+
+    print {$OUT} "Postponed breakpoints in files:\n";
+
+    POSTPONED_SCANS:
+    for my $file ( keys %postponed_file ) {
+        my $db = $postponed_file{$file};
+        print {$OUT} " $file:\n";
+        for my $line ( sort { $a <=> $b } keys %$db ) {
+            print {$OUT} "  $line:\n";
+
+            $handle_db_line->($db->{$line});
+
+            if ($signal) {
+                last POSTPONED_SCANS;
+            }
+        }
+        if ($signal) {
+            last POSTPONED_SCANS;
+        }
+    }
+
+    return;
+}
+
+
+sub cmd_L {
+    my $cmd = shift;
+
+    my ($action_wanted, $break_wanted, $watch_wanted) =
+        _cmd_L_calc_wanted_flags(shift);
+
+    my $handle_db_line = sub {
+        my ($l) = @_;
+
+        my ( $stop, $action ) = split( /\0/, $l );
+
+        if ($stop and $break_wanted) {
+            print {$OUT} "    break if (", $stop, ")\n"
+        }
+
+        if ($action && $action_wanted) {
+            print {$OUT} "    action:  ", $action, "\n"
+        }
+
+        return;
+    };
+
+    # Breaks and actions are found together, so we look in the same place
+    # for both.
+    if ( $break_wanted or $action_wanted ) {
+        _cmd_L_handle_breakpoints($handle_db_line);
+    }
+
+    # Look for breaks in not-yet-compiled subs:
+    if ( %postponed and $break_wanted ) {
+        print {$OUT} "Postponed breakpoints in subroutines:\n";
+        my $subname;
+        SUBS_SCAN:
+        for $subname ( keys %postponed ) {
+            print {$OUT} " $subname\t$postponed{$subname}\n";
+            if ($signal) {
+                last SUBS_SCAN;
+            }
+        }
+    } ## end if (%postponed and $break_wanted)
+
+    # Find files that have not-yet-loaded breaks:
+    my @have = map {    # Combined keys
+        keys %{ $postponed_file{$_} }
+    } keys %postponed_file;
+
+    # If there are any, list them.
+    if ( @have and ( $break_wanted or $action_wanted ) ) {
+        _cmd_L_handle_postponed_breakpoints($handle_db_line);
+    } ## end if (@have and ($break_wanted...
+
+    if ( %break_on_load and $break_wanted ) {
+        print {$OUT} "Breakpoints on load:\n";
+        BREAK_ON_LOAD: for my $filename ( keys %break_on_load ) {
+            print {$OUT} " $filename\n";
+            last BREAK_ON_LOAD if $signal;
+        }
+    } ## end if (%break_on_load and...
+
+    if ($watch_wanted and ( $trace & 2 )) {
+        print {$OUT} "Watch-expressions:\n" if @to_watch;
+        TO_WATCH: for my $expr (@to_watch) {
+            print {$OUT} " $expr\n";
+            last TO_WATCH if $signal;
+        }
+    }
+
+    return;
+} ## end sub cmd_L
+
+
+sub cmd_M {
+    list_modules();
+
+    return;
+}
+
+
+sub cmd_o {
+    my $cmd = shift;
+    my $opt = shift || '';    # opt[=val]
+
+    # Nonblank. Try to parse and process.
+    if ( $opt =~ /^(\S.*)/ ) {
+        parse_options($1);
+    }
+
+    # Blank. List the current option settings.
+    else {
+        for (@options) {
+            dump_option($_);
+        }
+    }
+} ## end sub cmd_o
+
+
+sub cmd_O {
+    print $OUT "The old O command is now the o command.\n";             # hint
+    print $OUT "Use 'h' to get current command help synopsis or\n";     #
+    print $OUT "use 'o CommandSet=pre580' to revert to old usage\n";    #
+}
+
+
+use vars qw($preview);
+
+sub cmd_v {
+    my $cmd  = shift;
+    my $line = shift;
+
+    # Extract the line to list around. (Astute readers will have noted that
+    # this pattern will match whether or not a numeric line is specified,
+    # which means that we'll always enter this loop (though a non-numeric
+    # argument results in no action at all)).
+    if ( $line =~ /^(\d*)$/ ) {
+
+        # Total number of lines to list (a windowful).
+        $incr = $window - 1;
+
+        # Set the start to the argument given (if there was one).
+        $start = $1 if $1;
+
+        # Back up by the context amount.
+        $start -= $preview;
+
+        # Put together a linespec that cmd_l will like.
+        $line = $start . '-' . ( $start + $incr );
+
+        # List the lines.
+        cmd_l( 'l', $line );
+    } ## end if ($line =~ /^(\d*)$/)
+} ## end sub cmd_v
+
+
+sub _add_watch_expr {
+    my $expr = shift;
+
+    # ... save it.
+    push @to_watch, $expr;
+
+    # Parameterize DB::eval and call it to get the expression's value
+    # in the user's context. This version can handle expressions which
+    # return a list value.
+    $evalarg = $expr;
+    # The &-call is here to ascertain the mutability of @_.
+    my ($val) = join( ' ', &DB::eval);
+    $val = ( defined $val ) ? "'$val'" : 'undef';
+
+    # Save the current value of the expression.
+    push @old_watch, $val;
+
+    # We are now watching expressions.
+    $trace |= 2;
+
+    return;
+}
+
+sub cmd_w {
+    my $cmd = shift;
+
+    # Null expression if no arguments.
+    my $expr = shift || '';
+
+    # If expression is not null ...
+    if ( $expr =~ /\A\S/ ) {
+        _add_watch_expr($expr);
+    } ## end if ($expr =~ /^(\S.*)/)
+
+    # You have to give one to get one.
+    else {
+        print $OUT "Adding a watch-expression requires an expression\n";  # hint
+    }
+
+    return;
+}
+
+
+sub cmd_W {
+    my $cmd  = shift;
+    my $expr = shift || '';
+
+    # Delete them all.
+    if ( $expr eq '*' ) {
+
+        # Not watching now.
+        $trace &= ~2;
+
+        print $OUT "Deleting all watch expressions ...\n";
+
+        # And all gone.
+        @to_watch = @old_watch = ();
+    }
+
+    # Delete one of them.
+    elsif ( $expr =~ /^(\S.*)/ ) {
+
+        # Where we are in the list.
+        my $i_cnt = 0;
+
+        # For each expression ...
+        foreach (@to_watch) {
+            my $val = $to_watch[$i_cnt];
+
+            # Does this one match the command argument?
+            if ( $val eq $expr ) {    # =~ m/^\Q$i$/) {
+                                      # Yes. Turn it off, and its value too.
+                splice( @to_watch,  $i_cnt, 1 );
+                splice( @old_watch, $i_cnt, 1 );
+            }
+            $i_cnt++;
+        } ## end foreach (@to_watch)
+
+        # We don't bother to turn watching off because
+        #  a) we don't want to stop calling watchfunction() if it exists
+        #  b) foreach over a null list doesn't do anything anyway
+
+    } ## end elsif ($expr =~ /^(\S.*)/)
+
+    # No command arguments entered.
+    else {
+        print $OUT
+          "Deleting a watch-expression requires an expression, or '*' for all\n"
+          ;    # hint
+    }
+} ## end sub cmd_W
+
+### END of the API section
+
+
+sub save {
+
+    # Save eval failure, command failure, extended OS error, output field
+    # separator, input record separator, output record separator and
+    # the warning setting.
+    @saved = ( $@, $!, $^E, $,, $/, $\, $^W );
+
+    $,  = "";      # output field separator is null string
+    $/  = "\n";    # input record separator is newline
+    $\  = "";      # output record separator is null string
+    $^W = 0;       # warnings are off
+} ## end sub save
+
+
+sub print_lineinfo {
+
+    # Make the terminal sensible if we're not the primary debugger.
+    resetterm(1) if $LINEINFO eq $OUT and $term_pid != $$;
+    local $\ = '';
+    local $, = '';
+    # $LINEINFO may be undef if $noTTY is set or some other issue.
+    if ($LINEINFO)
+    {
+        print {$LINEINFO} @_;
+    }
+} ## end sub print_lineinfo
+
+
+# The following takes its argument via $evalarg to preserve current @_
+
+sub postponed_sub {
+
+    # Get the subroutine name.
+    my $subname = shift;
+
+    # If this is a 'break +<n> if <condition>' ...
+    if ( $postponed{$subname} =~ s/^break\s([+-]?\d+)\s+if\s// ) {
+
+        # If there's no offset, use '+0'.
+        my $offset = $1 || 0;
+
+        # find_sub's value is 'fullpath-filename:start-stop'. It's
+        # possible that the filename might have colons in it too.
+        my ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(\d+)-.*$/ );
+        if ($i) {
+
+            # We got the start line. Add the offset '+<n>' from
+            # $postponed{subname}.
+            $i += $offset;
+
+            # Switch to the file this sub is in, temporarily.
+            local *dbline = $main::{ '_<' . $file };
+
+            # No warnings, please.
+            local $^W = 0;    # != 0 is magical below
+
+            # This file's got a breakpoint in it.
+            $had_breakpoints{$file} |= 1;
+
+            # Last line in file.
+            $max = $#dbline;
+
+            # Search forward until we hit a breakable line or get to
+            # the end of the file.
+            ++$i until $dbline[$i] != 0 or $i >= $max;
+
+            # Copy the breakpoint in and delete it from %postponed.
+            $dbline{$i} = delete $postponed{$subname};
+        } ## end if ($i)
+
+        # find_sub didn't find the sub.
+        else {
+            local $\ = '';
+            print $OUT "Subroutine $subname not found.\n";
+        }
+        return;
+    } ## end if ($postponed{$subname...
+    elsif ( $postponed{$subname} eq 'compile' ) { $signal = 1 }
+
+    #print $OUT "In postponed_sub for '$subname'.\n";
+} ## end sub postponed_sub
+
+
+sub postponed {
+
+    # If there's a break, process it.
+    if ($ImmediateStop) {
+
+        # Right, we've stopped. Turn it off.
+        $ImmediateStop = 0;
+
+        # Enter the command loop when DB::DB gets called.
+        $signal = 1;
+    }
+
+    # If this is a subroutine, let postponed_sub() deal with it.
+    if (ref(\$_[0]) ne 'GLOB') {
+        return postponed_sub(@_);
+    }
+
+    # Not a subroutine. Deal with the file.
+    local *dbline = shift;
+    my $filename = $dbline;
+    $filename =~ s/^_<//;
+    local $\ = '';
+    $signal = 1, print $OUT "'$filename' loaded...\n"
+      if $break_on_load{$filename};
+    print_lineinfo( ' ' x $stack_depth, "Package $filename.\n" ) if $frame;
+
+    # Do we have any breakpoints to put in this file?
+    return unless $postponed_file{$filename};
+
+    # Yes. Mark this file as having breakpoints.
+    $had_breakpoints{$filename} |= 1;
+
+    # "Cannot be done: insufficient magic" - we can't just put the
+    # breakpoints saved in %postponed_file into %dbline by assigning
+    # the whole hash; we have to do it one item at a time for the
+    # breakpoints to be set properly.
+    #%dbline = %{$postponed_file{$filename}};
+
+    # Set the breakpoints, one at a time.
+    my $key;
+
+    for $key ( keys %{ $postponed_file{$filename} } ) {
+
+        # Stash the saved breakpoint into the current file's magic line array.
+        $dbline{$key} = ${ $postponed_file{$filename} }{$key};
+    }
+
+    # This file's been compiled; discard the stored breakpoints.
+    delete $postponed_file{$filename};
+
+} ## end sub postponed
+
+
+sub dumpit {
+
+    # Save the current output filehandle and switch to the one
+    # passed in as the first parameter.
+    my $savout = select(shift);
+
+    # Save current settings of $single and $trace, and then turn them off.
+    my $osingle = $single;
+    my $otrace  = $trace;
+    $single = $trace = 0;
+
+    # XXX Okay, what do $frame and $doret do, again?
+    local $frame = 0;
+    local $doret = -2;
+
+    # Load dumpvar.pl unless we've already got the sub we need from it.
+    unless ( defined &main::dumpValue ) {
+        do 'dumpvar.pl' or die $@;
+    }
+
+    # If the load succeeded (or we already had dumpvalue()), go ahead
+    # and dump things.
+    if ( defined &main::dumpValue ) {
+        local $\ = '';
+        local $, = '';
+        local $" = ' ';
+        my $v = shift;
+        my $maxdepth = shift || $option{dumpDepth};
+        $maxdepth = -1 unless defined $maxdepth;    # -1 means infinite depth
+        main::dumpValue( $v, $maxdepth );
+    } ## end if (defined &main::dumpValue)
+
+    # Oops, couldn't load dumpvar.pl.
+    else {
+        local $\ = '';
+        print $OUT "dumpvar.pl not available.\n";
+    }
+
+    # Reset $single and $trace to their old values.
+    $single = $osingle;
+    $trace  = $otrace;
+
+    # Restore the old filehandle.
+    select($savout);
+} ## end sub dumpit
+
+
+# Tied method do not create a context, so may get wrong message:
+
+sub print_trace {
+    local $\ = '';
+    my $fh = shift;
+
+    # If this is going to a slave editor, but we're not the primary
+    # debugger, reset it first.
+    resetterm(1)
+      if $fh        eq $LINEINFO    # slave editor
+      and $LINEINFO eq $OUT         # normal output
+      and $term_pid != $$;          # not the primary
+
+    # Collect the actual trace information to be formatted.
+    # This is an array of hashes of subroutine call info.
+    my @sub = dump_trace( $_[0] + 1, $_[1] );
+
+    # Grab the "short report" flag from @_.
+    my $short = $_[2];              # Print short report, next one for sub name
+
+    # Run through the traceback info, format it, and print it.
+    my $s;
+    for my $i (0 .. $#sub) {
+
+        # Drop out if the user has lost interest and hit control-C.
+        last if $signal;
+
+        # Set the separator so arrays print nice.
+        local $" = ', ';
+
+        # Grab and stringify the arguments if they are there.
+        my $args =
+          defined $sub[$i]{args}
+          ? "(@{ $sub[$i]{args} })"
+          : '';
+
+        # Shorten them up if $maxtrace says they're too long.
+        $args = ( substr $args, 0, $maxtrace - 3 ) . '...'
+          if length $args > $maxtrace;
+
+        # Get the file name.
+        my $file = $sub[$i]{file};
+
+        # Put in a filename header if short is off.
+        $file = $file eq '-e' ? $file : "file '$file'" unless $short;
+
+        # Get the actual sub's name, and shorten to $maxtrace's requirement.
+        $s = $sub[$i]{'sub'};
+        $s = ( substr $s, 0, $maxtrace - 3 ) . '...' if length $s > $maxtrace;
+
+        # Short report uses trimmed file and sub names.
+        if ($short) {
+            my $sub = @_ >= 4 ? $_[3] : $s;
+            print $fh "$sub[$i]{context}=$sub$args from $file:$sub[$i]{line}\n";
+        } ## end if ($short)
+
+        # Non-short report includes full names.
+        else {
+            print $fh "$sub[$i]{context} = $s$args"
+              . " called from $file"
+              . " line $sub[$i]{line}\n";
+        }
+    } ## end for my $i (0 .. $#sub)
+} ## end sub print_trace
+
+
+sub _dump_trace_calc_saved_single_arg
+{
+    my ($nothard, $arg) = @_;
+
+    my $type;
+    if ( not defined $arg ) {    # undefined parameter
+        return "undef";
+    }
+
+    elsif ( $nothard and tied $arg ) {    # tied parameter
+        return "tied";
+    }
+    elsif ( $nothard and $type = ref $arg ) {    # reference
+        return "ref($type)";
+    }
+    else {                                       # can be stringified
+        local $_ =
+        "$arg";    # Safe to stringify now - should not call f().
+
+        # Backslash any single-quotes or backslashes.
+        s/([\'\\])/\\$1/g;
+
+        # Single-quote it unless it's a number or a colon-separated
+        # name.
+        s/(.*)/'$1'/s
+        unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
+
+        # Turn high-bit characters into meta-whatever, and controls into like
+        # '^D'.
+        require 'meta_notation.pm';
+        $_ = _meta_notation($_) if /[[:^print:]]/a;
+
+        return $_;
+    }
+}
+
+sub _dump_trace_calc_save_args {
+    my ($nothard) = @_;
+
+    return [
+        map { _dump_trace_calc_saved_single_arg($nothard, $_) } @args
+    ];
+}
+
+sub dump_trace {
+
+    # How many levels to skip.
+    my $skip = shift;
+
+    # How many levels to show. (1e9 is a cheap way of saying "all of them";
+    # it's unlikely that we'll have more than a billion stack frames. If you
+    # do, you've got an awfully big machine...)
+    my $count = shift || 1e9;
+
+    # We increment skip because caller(1) is the first level *back* from
+    # the current one.  Add $skip to the count of frames so we have a
+    # simple stop criterion, counting from $skip to $count+$skip.
+    $skip++;
+    $count += $skip;
+
+    # These variables are used to capture output from caller();
+    my ( $p, $file, $line, $sub, $h, $context );
+
+    my ( $e, $r, @sub, $args );
+
+    # XXX Okay... why'd we do that?
+    my $nothard = not $frame & 8;
+    local $frame = 0;
+
+    # Do not want to trace this.
+    my $otrace = $trace;
+    $trace = 0;
+
+    # Start out at the skip count.
+    # If we haven't reached the number of frames requested, and caller() is
+    # still returning something, stay in the loop. (If we pass the requested
+    # number of stack frames, or we run out - caller() returns nothing - we
+    # quit.
+    # Up the stack frame index to go back one more level each time.
+    for (
+        my $i = $skip ;
+        $i < $count
+        and ( $p, $file, $line, $sub, $h, $context, $e, $r ) = caller($i) ;
+        $i++
+    )
+    {
+        # if the sub has args ($h true), make an anonymous array of the
+        # dumped args.
+        my $args = $h ? _dump_trace_calc_save_args($nothard) : undef;
+
+        # If context is true, this is array (@)context.
+        # If context is false, this is scalar ($) context.
+        # If neither, context isn't defined. (This is apparently a 'can't
+        # happen' trap.)
+        $context = $context ? '@' : ( defined $context ? "\$" : '.' );
+
+        # remove trailing newline-whitespace-semicolon-end of line sequence
+        # from the eval text, if any.
+        $e =~ s/\n\s*\;\s*\Z// if $e;
+
+        # Escape backslashed single-quotes again if necessary.
+        $e =~ s/([\\\'])/\\$1/g if $e;
+
+        # if the require flag is true, the eval text is from a require.
+        if ($r) {
+            $sub = "require '$e'";
+        }
+
+        # if it's false, the eval text is really from an eval.
+        elsif ( defined $r ) {
+            $sub = "eval '$e'";
+        }
+
+        # If the sub is '(eval)', this is a block eval, meaning we don't
+        # know what the eval'ed text actually was.
+        elsif ( $sub eq '(eval)' ) {
+            $sub = "eval {...}";
+        }
+
+        # Stick the collected information into @sub as an anonymous hash.
+        push(
+            @sub,
+            {
+                context => $context,
+                sub     => $sub,
+                args    => $args,
+                file    => $file,
+                line    => $line
+            }
+        );
+
+        # Stop processing frames if the user hit control-C.
+        last if $signal;
+    } ## end for ($i = $skip ; $i < ...
+
+    # Restore the trace value again.
+    $trace = $otrace;
+    @sub;
+} ## end sub dump_trace
+
+
+sub action {
+    my $action = shift;
+
+    while ( $action =~ s/\\$// ) {
+
+        # We have a backslash on the end. Read more.
+        $action .= gets();
+    } ## end while ($action =~ s/\\$//)
+
+    # Return the assembled action.
+    $action;
+} ## end sub action
+
+
+use vars qw($balanced_brace_re);
+
+sub unbalanced {
+
+    # I hate using globals!
+    $balanced_brace_re ||= qr{
+        ^ \{
+             (?:
+                 (?> [^{}] + )              # Non-parens without backtracking
+                |
+                 (??{ $balanced_brace_re }) # Group with matching parens
+              ) *
+          \} $
+   }x;
+    return $_[0] !~ m/$balanced_brace_re/;
+} ## end sub unbalanced
+
+
+sub gets {
+    return DB::readline("cont: ");
+}
+
+
+sub _db_system {
+
+    # We save, change, then restore STDIN and STDOUT to avoid fork() since
+    # some non-Unix systems can do system() but have problems with fork().
+    open( SAVEIN,  "<&STDIN" )  || _db_warn("Can't save STDIN");
+    open( SAVEOUT, ">&STDOUT" ) || _db_warn("Can't save STDOUT");
+    open( STDIN,   "<&IN" )     || _db_warn("Can't redirect STDIN");
+    open( STDOUT,  ">&OUT" )    || _db_warn("Can't redirect STDOUT");
+
+    # XXX: using csh or tcsh destroys sigint retvals!
+    system(@_);
+    open( STDIN,  "<&SAVEIN" )  || _db_warn("Can't restore STDIN");
+    open( STDOUT, ">&SAVEOUT" ) || _db_warn("Can't restore STDOUT");
+    close(SAVEIN);
+    close(SAVEOUT);
+
+    # most of the $? crud was coping with broken cshisms
+    if ( $? >> 8 ) {
+        _db_warn( "(Command exited ", ( $? >> 8 ), ")\n" );
+    }
+    elsif ($?) {
+        _db_warn(
+            "(Command died of SIG#",
+            ( $? & 127 ),
+            ( ( $? & 128 ) ? " -- core dumped" : "" ),
+            ")", "\n"
+        );
+    } ## end elsif ($?)
+
+    return $?;
+
+} ## end sub system
+
+*system = \&_db_system;
+
+
+use vars qw($ornaments);
+use vars qw($rl_attribs);
+
+sub setterm {
+
+    # Load Term::Readline, but quietly; don't debug it and don't trace it.
+    local $frame = 0;
+    local $doret = -2;
+    require Term::ReadLine;
+
+    # If noTTY is set, but we have a TTY name, go ahead and hook up to it.
+    if ($notty) {
+        if ($tty) {
+            my ( $i, $o ) = split $tty, /,/;
+            $o = $i unless defined $o;
+            open( IN,  '<', $i ) or die "Cannot open TTY '$i' for read: $!";
+            open( OUT, '>', $o ) or die "Cannot open TTY '$o' for write: $!";
+            $IN  = \*IN;
+            $OUT = \*OUT;
+            _autoflush($OUT);
+        } ## end if ($tty)
+
+        # We don't have a TTY - try to find one via Term::Rendezvous.
+        else {
+            require Term::Rendezvous;
+
+            # See if we have anything to pass to Term::Rendezvous.
+            # Use $HOME/.perldbtty$$ if not.
+            my $rv = $ENV{PERLDB_NOTTY} || "$ENV{HOME}/.perldbtty$$";
+
+            # Rendezvous and get the filehandles.
+            my $term_rv = Term::Rendezvous->new( $rv );
+            $IN  = $term_rv->IN;
+            $OUT = $term_rv->OUT;
+        } ## end else [ if ($tty)
+    } ## end if ($notty)
+
+    # We're a daughter debugger. Try to fork off another TTY.
+    if ( $term_pid eq '-1' ) {    # In a TTY with another debugger
+        resetterm(2);
+    }
+
+    # If we shouldn't use Term::ReadLine, don't.
+    if ( !$rl ) {
+        $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+    }
+
+    # We're using Term::ReadLine. Get all the attributes for this terminal.
+    else {
+        $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+
+        $rl_attribs = $term->Attribs;
+        $rl_attribs->{basic_word_break_characters} .= '-:+/*,[])}'
+          if defined $rl_attribs->{basic_word_break_characters}
+          and index( $rl_attribs->{basic_word_break_characters}, ":" ) == -1;
+        $rl_attribs->{special_prefixes} = '$@&%';
+        $rl_attribs->{completer_word_break_characters} .= '$@&%';
+        $rl_attribs->{completion_function} = \&db_complete;
+    } ## end else [ if (!$rl)
+
+    # Set up the LINEINFO filehandle.
+    $LINEINFO = $OUT     unless defined $LINEINFO;
+    $lineinfo = $console unless defined $lineinfo;
+
+    $term->MinLine(2);
+
+    load_hist();
+
+    if ( $term->Features->{setHistory} and "@hist" ne "?" ) {
+        $term->SetHistory(@hist);
+    }
+
+    # XXX Ornaments are turned on unconditionally, which is not
+    # always a good thing.
+    ornaments($ornaments) if defined $ornaments;
+    $term_pid = $$;
+} ## end sub setterm
+
+sub load_hist {
+    $histfile //= option_val("HistFile", undef);
+    return unless defined $histfile;
+    open my $fh, "<", $histfile or return;
+    local $/ = "\n";
+    @hist = ();
+    while (<$fh>) {
+        chomp;
+        push @hist, $_;
+    }
+    close $fh;
+}
+
+sub save_hist {
+    return unless defined $histfile;
+    eval { require File::Path } or return;
+    eval { require File::Basename } or return;
+    File::Path::mkpath(File::Basename::dirname($histfile));
+    open my $fh, ">", $histfile or die "Could not open '$histfile': $!";
+    $histsize //= option_val("HistSize",100);
+    my @copy = grep { $_ ne '?' } @hist;
+    my $start = scalar(@copy) > $histsize ? scalar(@copy)-$histsize : 0;
+    for ($start .. $#copy) {
+        print $fh "$copy[$_]\n";
+    }
+    close $fh or die "Could not write '$histfile': $!";
+}
+
+
+sub connect_remoteport {
+    require IO::Socket;
+
+    my $socket = IO::Socket::INET->new(
+        Timeout  => '10',
+        PeerAddr => $remoteport,
+        Proto    => 'tcp',
+    );
+    if ( ! $socket ) {
+        die "Unable to connect to remote host: $remoteport\n";
+    }
+    return $socket;
+}
+
+sub socket_get_fork_TTY {
+    $tty = $LINEINFO = $IN = $OUT = connect_remoteport();
+
+    # Do I need to worry about setting $term?
+
+    reset_IN_OUT( $IN, $OUT );
+    return '';
+}
+
+
+sub xterm_get_fork_TTY {
+    ( my $name = $0 ) =~ s,^.*[/\\],,s;
+    open XT,
+qq[3>&1 xterm -title "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\
+ sleep 10000000' |];
+
+    # Get the output from 'tty' and clean it up a little.
+    my $tty = <XT>;
+    chomp $tty;
+
+    $pidprompt = '';    # Shown anyway in titlebar
+
+    # We need $term defined or we can not switch to the newly created xterm
+    if ($tty ne '' && !defined $term) {
+        require Term::ReadLine;
+        if ( !$rl ) {
+            $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+        }
+        else {
+            $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+        }
+    }
+    # There's our new TTY.
+    return $tty;
+} ## end sub xterm_get_fork_TTY
+
+
+# This example function resets $IN, $OUT itself
+my $c_pipe = 0;
+sub os2_get_fork_TTY { # A simplification of the following (and works without):
+    local $\  = '';
+    ( my $name = $0 ) =~ s,^.*[/\\],,s;
+    my %opt = ( title => "Daughter Perl debugger $pids $name",
+        ($rl ? (read_by_key => 1) : ()) );
+    require OS2::Process;
+    my ($in, $out, $pid) = eval { OS2::Process::io_term(related => 0, %opt) }
+      or return;
+    $pidprompt = '';    # Shown anyway in titlebar
+    reset_IN_OUT($in, $out);
+    $tty = '*reset*';
+    return '';          # Indicate that reset_IN_OUT is called
+} ## end sub os2_get_fork_TTY
+
+
+# Notes about Terminal.app's AppleScript support,
+# (aka things that might break in future OS versions).
+#
+# The "do script" command doesn't return a reference to the new window
+# it creates, but since it appears frontmost and windows are enumerated
+# front to back, we can use "first window" === "window 1".
+#
+# Since "do script" is implemented by supplying the argument (plus a
+# return character) as terminal input, there's a potential race condition
+# where the debugger could beat the shell to reading the command.
+# To prevent this, we wait for the screen to clear before proceeding.
+#
+# 10.3 and 10.4:
+# There's no direct accessor for the tty device name, so we fiddle
+# with the window title options until it says what we want.
+#
+# 10.5:
+# There _is_ a direct accessor for the tty device name, _and_ there's
+# a new possible component of the window title (the name of the settings
+# set).  A separate version is needed.
+
+my @script_versions=
+
+    ([237, <<'__LEOPARD__'],
+tell application "Terminal"
+    do script "clear;exec sleep 100000"
+    tell first tab of first window
+        copy tty to thetty
+        set custom title to "forked perl debugger"
+        set title displays custom title to true
+        repeat while (length of first paragraph of (get contents)) > 0
+            delay 0.1
+        end repeat
+    end tell
+end tell
+thetty
+__LEOPARD__
+
+     [100, <<'__JAGUAR_TIGER__'],
+tell application "Terminal"
+    do script "clear;exec sleep 100000"
+    tell first window
+        set title displays shell path to false
+        set title displays window size to false
+        set title displays file name to false
+        set title displays device name to true
+        set title displays custom title to true
+        set custom title to ""
+        copy "/dev/" & name to thetty
+        set custom title to "forked perl debugger"
+        repeat while (length of first paragraph of (get contents)) > 0
+            delay 0.1
+        end repeat
+    end tell
+end tell
+thetty
+__JAGUAR_TIGER__
+
+);
+
+sub macosx_get_fork_TTY
+{
+    my($version,$script,$pipe,$tty);
+
+    return unless $version=$ENV{TERM_PROGRAM_VERSION};
+    foreach my $entry (@script_versions) {
+        if ($version>=$entry->[0]) {
+            $script=$entry->[1];
+            last;
+        }
+    }
+    return unless defined($script);
+    return unless open($pipe,'-|','/usr/bin/osascript','-e',$script);
+    $tty=readline($pipe);
+    close($pipe);
+    return unless defined($tty) && $tty =~ m(^/dev/);
+    chomp $tty;
+    return $tty;
+}
+
+
+sub tmux_get_fork_TTY {
+    return unless $ENV{TMUX};
+
+    my $pipe;
+
+    my $status = open $pipe, '-|', 'tmux', 'split-window',
+        '-P', '-F', '#{pane_tty}', 'sleep 100000';
+
+    if ( !$status ) {
+        return;
+    }
+
+    my $tty = <$pipe>;
+    close $pipe;
+
+    if ( $tty ) {
+        chomp $tty;
+
+        if ( !defined $term ) {
+            require Term::ReadLine;
+            if ( !$rl ) {
+                $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+            }
+            else {
+                $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+            }
+        }
+    }
+
+    return $tty;
+}
+
+
+use vars qw($fork_TTY);
+
+sub create_IN_OUT {    # Create a window with IN/OUT handles redirected there
+
+    # If we know how to get a new TTY, do it! $in will have
+    # the TTY name if get_fork_TTY works.
+    my $in = get_fork_TTY(@_) if defined &get_fork_TTY;
+
+    # It used to be that
+    $in = $fork_TTY if defined $fork_TTY;    # Backward compatibility
+
+    if ( not defined $in ) {
+        my $why = shift;
+
+        # We don't know how.
+        print_help(<<EOP) if $why == 1;
+I<#########> Forked, but do not know how to create a new B<TTY>. I<#########>
+EOP
+
+        # Forked debugger.
+        print_help(<<EOP) if $why == 2;
+I<#########> Daughter session, do not know how to change a B<TTY>. I<#########>
+  This may be an asynchronous session, so the parent debugger may be active.
+EOP
+
+        # Note that both debuggers are fighting over the same input.
+        print_help(<<EOP) if $why != 4;
+  Since two debuggers fight for the same TTY, input is severely entangled.
+
+EOP
+        print_help(<<EOP);
+  I know how to switch the output to a different window in xterms, OS/2
+  consoles, and Mac OS X Terminal.app only.  For a manual switch, put the name
+  of the created I<TTY> in B<\$DB::fork_TTY>, or define a function
+  B<DB::get_fork_TTY()> returning this.
+
+  On I<UNIX>-like systems one can get the name of a I<TTY> for the given window
+  by typing B<tty>, and disconnect the I<shell> from I<TTY> by B<sleep 1000000>.
+
+EOP
+    } ## end if (not defined $in)
+    elsif ( $in ne '' ) {
+        TTY($in);
+    }
+    else {
+        $console = '';    # Indicate no need to open-from-the-console
+    }
+    undef $fork_TTY;
+} ## end sub create_IN_OUT
+
+
+sub resetterm {    # We forked, so we need a different TTY
+
+    # Needs to be passed to create_IN_OUT() as well.
+    my $in = shift;
+
+    # resetterm(2): got in here because of a system() starting a debugger.
+    # resetterm(1): just forked.
+    my $systemed = $in > 1 ? '-' : '';
+
+    # If there's already a list of pids, add this to the end.
+    if ($pids) {
+        $pids =~ s/\]/$systemed->$$]/;
+    }
+
+    # No pid list. Time to make one.
+    else {
+        $pids = "[$term_pid->$$]";
+    }
+
+    # The prompt we're going to be using for this debugger.
+    $pidprompt = $pids;
+
+    # We now 0wnz this terminal.
+    $term_pid = $$;
+
+    # Just return if we're not supposed to try to create a new TTY.
+    return unless $CreateTTY & $in;
+
+    # Try to create a new IN/OUT pair.
+    create_IN_OUT($in);
+} ## end sub resetterm
+
+
+sub readline {
+
+    # Localize to prevent it from being smashed in the program being debugged.
+    local $.;
+
+    # If there are stacked filehandles to read from ...
+    # (Handle it before the typeahead, because we may call source/etc. from
+    # the typeahead.)
+    while (@cmdfhs) {
+
+        # Read from the last one in the stack.
+        my $line = CORE::readline( $cmdfhs[-1] );
+
+        # If we got a line ...
+        defined $line
+          ? ( print $OUT ">> $line" and return $line )    # Echo and return
+          : close pop @cmdfhs;                            # Pop and close
+    } ## end while (@cmdfhs)
+
+    # Pull a line out of the typeahead if there's stuff there.
+    if (@typeahead) {
+
+        # How many lines left.
+        my $left = @typeahead;
+
+        # Get the next line.
+        my $got = shift @typeahead;
+
+        # Print a message saying we got input from the typeahead.
+        local $\ = '';
+        print $OUT "auto(-$left)", shift, $got, "\n";
+
+        # Add it to the terminal history (if possible).
+        $term->AddHistory($got)
+          if length($got) > 1
+          and defined $term->Features->{addHistory};
+        return $got;
+    } ## end if (@typeahead)
+
+    # We really need to read some input. Turn off entry/exit trace and
+    # return value printing.
+    local $frame = 0;
+    local $doret = -2;
+
+    # Nothing on the filehandle stack. Socket?
+    if ( ref $OUT and UNIVERSAL::isa( $OUT, 'IO::Socket::INET' ) ) {
+
+        # Send anything we have to send.
+        $OUT->write( join( '', @_ ) );
+
+        # Receive anything there is to receive.
+        my $stuff = '';
+        my $buf;
+        my $first_time = 1;
+
+        while ($first_time or (length($buf) && ($stuff .= $buf) !~ /\n/))
+        {
+            $first_time = 0;
+            $IN->recv( $buf = '', 2048 );   # XXX "what's wrong with sysread?"
+                                            # XXX Don't know. You tell me.
+        }
+
+        # What we got.
+        return $stuff;
+    } ## end if (ref $OUT and UNIVERSAL::isa...
+
+    # No socket. Just read from the terminal.
+    else {
+        return $term->readline(@_);
+    }
+} ## end sub readline
+
+
+sub dump_option {
+    my ( $opt, $val ) = @_;
+    $val = option_val( $opt, 'N/A' );
+    $val =~ s/([\\\'])/\\$1/g;
+    printf $OUT "%20s = '%s'\n", $opt, $val;
+} ## end sub dump_option
+
+sub options2remember {
+    foreach my $k (@RememberOnROptions) {
+        $option{$k} = option_val( $k, 'N/A' );
+    }
+    return %option;
+}
+
+
+sub option_val {
+    my ( $opt, $default ) = @_;
+    my $val;
+
+    # Does this option exist, and is it a variable?
+    # If so, retrieve the value via the value in %optionVars.
+    if (    defined $optionVars{$opt}
+        and defined ${ $optionVars{$opt} } )
+    {
+        $val = ${ $optionVars{$opt} };
+    }
+
+    # Does this option exist, and it's a subroutine?
+    # If so, call the subroutine via the ref in %optionAction
+    # and capture the value.
+    elsif ( defined $optionAction{$opt}
+        and defined &{ $optionAction{$opt} } )
+    {
+        $val = &{ $optionAction{$opt} }();
+    }
+
+    # If there's an action or variable for the supplied option,
+    # but no value was set, use the default.
+    elsif (defined $optionAction{$opt} and not defined $option{$opt}
+        or defined $optionVars{$opt} and not defined ${ $optionVars{$opt} } )
+    {
+        $val = $default;
+    }
+
+    # Otherwise, do the simple hash lookup.
+    else {
+        $val = $option{$opt};
+    }
+
+    # If the value isn't defined, use the default.
+    # Then return whatever the value is.
+    $val = $default unless defined $val;
+    $val;
+} ## end sub option_val
+
+
+sub parse_options {
+    my ($s) = @_;
+    local $\ = '';
+
+    my $option;
+
+    # These options need a value. Don't allow them to be clobbered by accident.
+    my %opt_needs_val = map { ( $_ => 1 ) } qw{
+      dumpDepth arrayDepth hashDepth LineInfo maxTraceLen ornaments windowSize
+      pager quote ReadLine recallCommand RemotePort ShellBang TTY CommandSet
+    };
+
+    while (length($s)) {
+        my $val_defaulted;
+
+        # Clean off excess leading whitespace.
+        $s =~ s/^\s+// && next;
+
+        # Options are always all word characters, followed by a non-word
+        # separator.
+        if ($s !~ s/^(\w+)(\W?)//) {
+            print {$OUT} "Invalid option '$s'\n";
+            last;
+        }
+        my ( $opt, $sep ) = ( $1, $2 );
+
+        # Make sure that such an option exists.
+        my $matches = ( grep { /^\Q$opt/ && ( $option = $_ ) } @options )
+          || ( grep { /^\Q$opt/i && ( $option = $_ ) } @options );
+
+        unless ($matches) {
+            print {$OUT} "Unknown option '$opt'\n";
+            next;
+        }
+        if ($matches > 1) {
+            print {$OUT} "Ambiguous option '$opt'\n";
+            next;
+        }
+        my $val;
+
+        # '?' as separator means query, but must have whitespace after it.
+        if ( "?" eq $sep ) {
+            if ($s =~ /\A\S/) {
+                print {$OUT} "Option query '$opt?' followed by non-space '$s'\n" ;
+
+                last;
+            }
+
+            #&dump_option($opt);
+        } ## end if ("?" eq $sep)
+
+        # Separator is whitespace (or just a carriage return).
+        # They're going for a default, which we assume is 1.
+        elsif ( $sep !~ /\S/ ) {
+            $val_defaulted = 1;
+            $val           = "1";   #  this is an evil default; make 'em set it!
+        }
+
+        # Separator is =. Trying to set a value.
+        elsif ( $sep eq "=" ) {
+
+            # If quoted, extract a quoted string.
+            if ($s =~ s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x) {
+                my $quote = $1;
+                ( $val = $2 ) =~ s/\\([$quote\\])/$1/g;
+            }
+
+            # Not quoted. Use the whole thing. Warn about 'option='.
+            else {
+                $s =~ s/^(\S*)//;
+                $val = $1;
+                print OUT qq(Option better cleared using $opt=""\n)
+                  unless length $val;
+            } ## end else [ if (s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x)
+
+        } ## end elsif ($sep eq "=")
+
+        # "Quoted" with [], <>, or {}.
+        else {    #{ to "let some poor schmuck bounce on the % key in B<vi>."
+            my ($end) =
+              "\\" . substr( ")]>}$sep", index( "([<{", $sep ), 1 );    #}
+            $s =~ s/^(([^\\$end]|\\[\\$end])*)$end($|\s+)//
+              or print( $OUT "Unclosed option value '$opt$sep$_'\n" ), last;
+            ( $val = $1 ) =~ s/\\([\\$end])/$1/g;
+        } ## end else [ if ("?" eq $sep)
+
+        # Exclude non-booleans from getting set to 1 by default.
+        if ( $opt_needs_val{$option} && $val_defaulted ) {
+            my $cmd = ( $CommandSet eq '580' ) ? 'o' : 'O';
+            print {$OUT}
+"Option '$opt' is non-boolean.  Use '$cmd $option=VAL' to set, '$cmd $option?' to query\n";
+            next;
+        } ## end if ($opt_needs_val{$option...
+
+        # Save the option value.
+        $option{$option} = $val if defined $val;
+
+        # Load any module that this option requires.
+        if ( defined($optionRequire{$option}) && defined($val) ) {
+            eval qq{
+            local \$frame = 0;
+            local \$doret = -2;
+            require '$optionRequire{$option}';
+            1;
+            } || die $@   # XXX: shouldn't happen
+        }
+
+        # Set it.
+        # Stick it in the proper variable if it goes in a variable.
+        if (defined($optionVars{$option}) && defined($val)) {
+            ${ $optionVars{$option} } = $val;
+        }
+
+        # Call the appropriate sub if it gets set via sub.
+        if (defined($optionAction{$option})
+          && defined (&{ $optionAction{$option} })
+          && defined ($val))
+        {
+          &{ $optionAction{$option} }($val);
+        }
+
+        # Not initialization - echo the value we set it to.
+        dump_option($option) if ($OUT ne \*STDERR);
+    } ## end while (length)
+} ## end sub parse_options
+
+
+sub set_list {
+    my ( $stem, @list ) = @_;
+    my $val;
+
+    # VAR_n: how many we have. Scalar assignment gets the number of items.
+    $ENV{"${stem}_n"} = @list;
+
+    # Grab each item in the list, escape the backslashes, encode the non-ASCII
+    # as hex, and then save in the appropriate VAR_0, VAR_1, etc.
+    for my $i ( 0 .. $#list ) {
+        $val = $list[$i];
+        $val =~ s/\\/\\\\/g;
+        no warnings 'experimental::regex_sets';
+        $val =~ s/ ( (?[ [\000-\xFF] & [:^print:] ]) ) /
+                                                "\\0x" . unpack('H2',$1)/xaeg;
+        $ENV{"${stem}_$i"} = $val;
+    } ## end for $i (0 .. $#list)
+} ## end sub set_list
+
+
+sub get_list {
+    my $stem = shift;
+    my @list;
+    my $n = delete $ENV{"${stem}_n"};
+    my $val;
+    for my $i ( 0 .. $n - 1 ) {
+        $val = delete $ENV{"${stem}_$i"};
+        $val =~ s/\\((\\)|0x(..))/ $2 ? $2 : pack('H2', $3) /ge;
+        push @list, $val;
+    }
+    @list;
+} ## end sub get_list
+
+
+sub catch {
+    $signal = 1;
+    return;    # Put nothing on the stack - malloc/free land!
+}
+
+
+sub _db_warn {
+    my ($msg) = join( "", @_ );
+    $msg .= ": $!\n" unless $msg =~ /\n$/;
+    local $\ = '';
+    print $OUT $msg;
+} ## end sub warn
+
+*warn = \&_db_warn;
+
+
+sub reset_IN_OUT {
+    my $switch_li = $LINEINFO eq $OUT;
+
+    # If there's a term and it's able to get a new tty, try to get one.
+    if ( $term and $term->Features->{newTTY} ) {
+        ( $IN, $OUT ) = ( shift, shift );
+        $term->newTTY( $IN, $OUT );
+    }
+
+    # This term can't get a new tty now. Better luck later.
+    elsif ($term) {
+        _db_warn("Too late to set IN/OUT filehandles, enabled on next 'R'!\n");
+    }
+
+    # Set the filehndles up as they were.
+    else {
+        ( $IN, $OUT ) = ( shift, shift );
+    }
+
+    # Unbuffer the output filehandle.
+    _autoflush($OUT);
+
+    # Point LINEINFO to the same output filehandle if it was there before.
+    $LINEINFO = $OUT if $switch_li;
+} ## end sub reset_IN_OUT
+
+
+sub TTY {
+
+    if ( @_ and $term and $term->Features->{newTTY} ) {
+
+        # This terminal supports switching to a new TTY.
+        # Can be a list of two files, or on string containing both names,
+        # comma-separated.
+        # XXX Should this perhaps be an assignment from @_?
+        my ( $in, $out ) = shift;
+        if ( $in =~ /,/ ) {
+
+            # Split list apart if supplied.
+            ( $in, $out ) = split /,/, $in, 2;
+        }
+        else {
+
+            # Use the same file for both input and output.
+            $out = $in;
+        }
+
+        # Open file onto the debugger's filehandles, if you can.
+        open IN,  '<', $in or die "cannot open '$in' for read: $!";
+        open OUT, '>', $out or die "cannot open '$out' for write: $!";
+
+        # Swap to the new filehandles.
+        reset_IN_OUT( \*IN, \*OUT );
+
+        # Save the setting for later.
+        return $tty = $in;
+    } ## end if (@_ and $term and $term...
+
+    # Terminal doesn't support new TTY, or doesn't support readline.
+    # Can't do it now, try restarting.
+    if ($term and @_) {
+        _db_warn("Too late to set TTY, enabled on next 'R'!\n");
+    }
+
+    # Useful if done through PERLDB_OPTS:
+    $console = $tty = shift if @_;
+
+    # Return whatever the TTY is.
+    $tty or $console;
+} ## end sub TTY
+
+
+sub noTTY {
+    if ($term) {
+        _db_warn("Too late to set noTTY, enabled on next 'R'!\n") if @_;
+    }
+    $notty = shift if @_;
+    $notty;
+} ## end sub noTTY
+
+
+sub ReadLine {
+    if ($term) {
+        _db_warn("Too late to set ReadLine, enabled on next 'R'!\n") if @_;
+    }
+    $rl = shift if @_;
+    $rl;
+} ## end sub ReadLine
+
+
+sub RemotePort {
+    if ($term) {
+        _db_warn("Too late to set RemotePort, enabled on next 'R'!\n") if @_;
+    }
+    $remoteport = shift if @_;
+    $remoteport;
+} ## end sub RemotePort
+
+
+sub tkRunning {
+    if ( ${ $term->Features }{tkRunning} ) {
+        return $term->tkRunning(@_);
+    }
+    else {
+        local $\ = '';
+        print $OUT "tkRunning not supported by current ReadLine package.\n";
+        0;
+    }
+} ## end sub tkRunning
+
+
+sub NonStop {
+    if ($term) {
+        _db_warn("Too late to set up NonStop mode, enabled on next 'R'!\n")
+          if @_;
+    }
+    $runnonstop = shift if @_;
+    $runnonstop;
+} ## end sub NonStop
+
+sub DollarCaretP {
+    if ($term) {
+        _db_warn("Some flag changes could not take effect until next 'R'!\n")
+          if @_;
+    }
+    $^P = parse_DollarCaretP_flags(shift) if @_;
+    expand_DollarCaretP_flags($^P);
+}
+
+
+sub pager {
+    if (@_) {
+        $pager = shift;
+        $pager = "|" . $pager unless $pager =~ /^(\+?\>|\|)/;
+    }
+    $pager;
+} ## end sub pager
+
+
+sub shellBang {
+
+    # If we got an argument, meta-quote it, and add '\b' if it
+    # ends in a word character.
+    if (@_) {
+        $sh = quotemeta shift;
+        $sh .= "\\b" if $sh =~ /\w$/;
+    }
+
+    # Generate the printable version for the help:
+    $psh = $sh;    # copy it
+    $psh =~ s/\\b$//;        # Take off trailing \b if any
+    $psh =~ s/\\(.)/$1/g;    # De-escape
+    $psh;                    # return the printable version
+} ## end sub shellBang
+
+
+sub ornaments {
+    if ( defined $term ) {
+
+        # We don't want to show warning backtraces, but we do want die() ones.
+        local $warnLevel = 0;
+        local $dieLevel = 1;
+
+        # No ornaments if the terminal doesn't support them.
+        if (not $term->Features->{ornaments}) {
+            return '';
+        }
+
+        return (eval { $term->ornaments(@_) } || '');
+    }
+
+    # Use what was passed in if we can't determine it ourselves.
+    else {
+        $ornaments = shift;
+
+        return $ornaments;
+    }
+
+} ## end sub ornaments
+
+
+sub recallCommand {
+
+    # If there is input, metaquote it. Add '\b' if it ends with a word
+    # character.
+    if (@_) {
+        $rc = quotemeta shift;
+        $rc .= "\\b" if $rc =~ /\w$/;
+    }
+
+    # Build it into a printable version.
+    $prc = $rc;              # Copy it
+    $prc =~ s/\\b$//;        # Remove trailing \b
+    $prc =~ s/\\(.)/$1/g;    # Remove escapes
+    return $prc;             # Return the printable version
+} ## end sub recallCommand
+
+
+sub LineInfo {
+    if (@_) {
+        $lineinfo = shift;
+
+        #  If this is a valid "thing to be opened for output", tack a
+        # '>' onto the front.
+        my $stream = ( $lineinfo =~ /^(\+?\>|\|)/ ) ? $lineinfo : ">$lineinfo";
+
+        # If this is a pipe, the stream points to a slave editor.
+        $slave_editor = ( $stream =~ /^\|/ );
+
+        my $new_lineinfo_fh;
+        # Open it up and unbuffer it.
+        open ($new_lineinfo_fh , $stream )
+            or _db_warn("Cannot open '$stream' for write");
+        $LINEINFO = $new_lineinfo_fh;
+        _autoflush($LINEINFO);
+    }
+
+    return $lineinfo;
+} ## end sub LineInfo
+
+
+sub list_modules {    # versions
+    my %version;
+    my $file;
+
+    # keys are the "as-loaded" name, values are the fully-qualified path
+    # to the file itself.
+    for ( keys %INC ) {
+        $file = $_;                                # get the module name
+        s,\.p[lm]$,,i;                             # remove '.pl' or '.pm'
+        s,/,::,g;                                  # change '/' to '::'
+        s/^perl5db$/DB/;                           # Special case: debugger
+                                                   # moves to package DB
+        s/^Term::ReadLine::readline$/readline/;    # simplify readline
+
+        # If the package has a $VERSION package global (as all good packages
+        # should!) decode it and save as partial message.
+        my $pkg_version = do { no strict 'refs'; ${ $_ . '::VERSION' } };
+        if ( defined $pkg_version ) {
+            $version{$file} = "$pkg_version from ";
+        }
+
+        # Finish up the message with the file the package came from.
+        $version{$file} .= $INC{$file};
+    } ## end for (keys %INC)
+
+    # Hey, dumpit() formats a hash nicely, so why not use it?
+    dumpit( $OUT, \%version );
+} ## end sub list_modules
+
+
+use vars qw($pre580_help);
+use vars qw($pre580_summary);
+
+sub sethelp {
+
+    # XXX: make sure there are tabs between the command and explanation,
+    #      or print_help will screw up your formatting if you have
+    #      eeevil ornaments enabled.  This is an insane mess.
+
+    $help = "
+Help is currently only available for the new 5.8 command set.
+No help is available for the old command set.
+We assume you know what you're doing if you switch to it.
+
+B<T>        Stack trace.
+B<s> [I<expr>]    Single step [in I<expr>].
+B<n> [I<expr>]    Next, steps over subroutine calls [in I<expr>].
+<B<CR>>        Repeat last B<n> or B<s> command.
+B<r>        Return from current subroutine.
+B<c> [I<line>|I<sub>]    Continue; optionally inserts a one-time-only breakpoint
+        at the specified position.
+B<l> I<min>B<+>I<incr>    List I<incr>+1 lines starting at I<min>.
+B<l> I<min>B<->I<max>    List lines I<min> through I<max>.
+B<l> I<line>        List single I<line>.
+B<l> I<subname>    List first window of lines from subroutine.
+B<l> I<\$var>        List first window of lines from subroutine referenced by I<\$var>.
+B<l>        List next window of lines.
+B<->        List previous window of lines.
+B<v> [I<line>]    View window around I<line>.
+B<.>        Return to the executed line.
+B<f> I<filename>    Switch to viewing I<filename>. File must be already loaded.
+        I<filename> may be either the full name of the file, or a regular
+        expression matching the full file name:
+        B<f> I</home/me/foo.pl> and B<f> I<oo\\.> may access the same file.
+        Evals (with saved bodies) are considered to be filenames:
+        B<f> I<(eval 7)> and B<f> I<eval 7\\b> access the body of the 7th eval
+        (in the order of execution).
+B</>I<pattern>B</>    Search forwards for I<pattern>; final B</> is optional.
+B<?>I<pattern>B<?>    Search backwards for I<pattern>; final B<?> is optional.
+B<L> [I<a|b|w>]        List actions and or breakpoints and or watch-expressions.
+B<S> [[B<!>]I<pattern>]    List subroutine names [not] matching I<pattern>.
+B<t> [I<n>]       Toggle trace mode (to max I<n> levels below current stack depth).
+B<t> [I<n>] I<expr>        Trace through execution of I<expr>.
+B<b>        Sets breakpoint on current line)
+B<b> [I<line>] [I<condition>]
+        Set breakpoint; I<line> defaults to the current execution line;
+        I<condition> breaks if it evaluates to true, defaults to '1'.
+B<b> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine.
+B<b> I<\$var>        Set breakpoint at first line of subroutine referenced by I<\$var>.
+B<b> B<load> I<filename> Set breakpoint on 'require'ing the given file.
+B<b> B<postpone> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine after
+        it is compiled.
+B<b> B<compile> I<subname>
+        Stop after the subroutine is compiled.
+B<B> [I<line>]    Delete the breakpoint for I<line>.
+B<B> I<*>             Delete all breakpoints.
+B<a> [I<line>] I<command>
+        Set an action to be done before the I<line> is executed;
+        I<line> defaults to the current execution line.
+        Sequence is: check for breakpoint/watchpoint, print line
+        if necessary, do action, prompt user if necessary,
+        execute line.
+B<a>        Does nothing
+B<A> [I<line>]    Delete the action for I<line>.
+B<A> I<*>             Delete all actions.
+B<w> I<expr>        Add a global watch-expression.
+B<w>             Does nothing
+B<W> I<expr>        Delete a global watch-expression.
+B<W> I<*>             Delete all watch-expressions.
+B<V> [I<pkg> [I<vars>]]    List some (default all) variables in package (default current).
+        Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps.
+B<X> [I<vars>]    Same as \"B<V> I<currentpackage> [I<vars>]\".
+B<x> I<expr>        Evals expression in list context, dumps the result.
+B<m> I<expr>        Evals expression in list context, prints methods callable
+        on the first element of the result.
+B<m> I<class>        Prints methods callable via the given class.
+B<M>        Show versions of loaded modules.
+B<i> I<class>       Prints nested parents of given class.
+B<e>         Display current thread id.
+B<E>         Display all thread ids the current one will be identified: <n>.
+B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+
+B<<> ?            List Perl commands to run before each prompt.
+B<<> I<expr>        Define Perl command to run before each prompt.
+B<<<> I<expr>        Add to the list of Perl commands to run before each prompt.
+B<< *>                Delete the list of perl commands to run before each prompt.
+B<>> ?            List Perl commands to run after each prompt.
+B<>> I<expr>        Define Perl command to run after each prompt.
+B<>>B<>> I<expr>        Add to the list of Perl commands to run after each prompt.
+B<>>B< *>        Delete the list of Perl commands to run after each prompt.
+B<{> I<db_command>    Define debugger command to run before each prompt.
+B<{> ?            List debugger commands to run before each prompt.
+B<{{> I<db_command>    Add to the list of debugger commands to run before each prompt.
+B<{ *>             Delete the list of debugger commands to run before each prompt.
+B<$prc> I<number>    Redo a previous command (default previous command).
+B<$prc> I<-number>    Redo number'th-to-last command.
+B<$prc> I<pattern>    Redo last command that started with I<pattern>.
+        See 'B<O> I<recallCommand>' too.
+B<$psh$psh> I<cmd>      Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT)"
+      . (
+        $rc eq $sh
+        ? ""
+        : "
+B<$psh> [I<cmd>] Run I<cmd> in subshell (forces \"\$SHELL -c 'cmd'\")."
+      ) . "
+        See 'B<O> I<shellBang>' too.
+B<source> I<file>     Execute I<file> containing debugger commands (may nest).
+B<save> I<file>       Save current debugger session (actual history) to I<file>.
+B<rerun>           Rerun session to current position.
+B<rerun> I<n>         Rerun session to numbered command.
+B<rerun> I<-n>        Rerun session to number'th-to-last command.
+B<H> I<-number>    Display last number commands (default all).
+B<H> I<*>          Delete complete history.
+B<p> I<expr>        Same as \"I<print {DB::OUT} expr>\" in current package.
+B<|>I<dbcmd>        Run debugger command, piping DB::OUT to current pager.
+B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarily select()ed as well.
+B<\=> [I<alias> I<value>]    Define a command alias, or list current aliases.
+I<command>        Execute as a perl statement in current package.
+B<R>        Pure-man-restart of debugger, some of debugger state
+        and command-line options may be lost.
+        Currently the following settings are preserved:
+        history, breakpoints and actions, debugger B<O>ptions
+        and the following command-line options: I<-w>, I<-I>, I<-e>.
+
+B<o> [I<opt>] ...    Set boolean option to true
+B<o> [I<opt>B<?>]    Query options
+B<o> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
+        Set options.  Use quotes if spaces in value.
+    I<recallCommand>, I<ShellBang>    chars used to recall command or spawn shell;
+    I<pager>            program for output of \"|cmd\";
+    I<tkRunning>            run Tk while prompting (with ReadLine);
+    I<signalLevel> I<warnLevel> I<dieLevel>    level of verbosity;
+    I<inhibit_exit>        Allows stepping off the end of the script.
+    I<ImmediateStop>        Debugger should stop as early as possible.
+    I<RemotePort>            Remote hostname:port for remote debugging
+  The following options affect what happens with B<V>, B<X>, and B<x> commands:
+    I<arrayDepth>, I<hashDepth>     print only first N elements ('' for all);
+    I<compactDump>, I<veryCompact>     change style of array and hash dump;
+    I<globPrint>             whether to print contents of globs;
+    I<DumpDBFiles>         dump arrays holding debugged files;
+    I<DumpPackages>         dump symbol tables of packages;
+    I<DumpReused>             dump contents of \"reused\" addresses;
+    I<quote>, I<HighBit>, I<undefPrint>     change style of string dump;
+    I<bareStringify>         Do not print the overload-stringified value;
+  Other options include:
+    I<PrintRet>        affects printing of return value after B<r> command,
+    I<frame>        affects printing messages on subroutine entry/exit.
+    I<AutoTrace>    affects printing messages on possible breaking points.
+    I<maxTraceLen>    gives max length of evals/args listed in stack trace.
+    I<ornaments>     affects screen appearance of the command line.
+    I<CreateTTY>     bits control attempts to create a new TTY on events:
+            1: on fork()    2: debugger is started inside debugger
+            4: on startup
+    During startup options are initialized from \$ENV{PERLDB_OPTS}.
+    You can put additional initialization options I<TTY>, I<noTTY>,
+    I<ReadLine>, I<NonStop>, and I<RemotePort> there (or use
+    B<R> after you set them).
+
+B<q> or B<^D>        Quit. Set B<\$DB::finished = 0> to debug global destruction.
+B<h>        Summary of debugger commands.
+B<h> [I<db_command>]    Get help [on a specific debugger command], enter B<|h> to page.
+B<h h>        Long help for debugger commands
+B<$doccmd> I<manpage>    Runs the external doc viewer B<$doccmd> command on the
+        named Perl I<manpage>, or on B<$doccmd> itself if omitted.
+        Set B<\$DB::doccmd> to change viewer.
+
+Type '|h h' for a paged display if this was too hard to read.
+
+";    # Fix balance of vi % matching: }}}}
+
+    #  note: tabs in the following section are not-so-helpful
+    $summary = <<"END_SUM";
+I<List/search source lines:>               I<Control script execution:>
+  B<l> [I<ln>|I<sub>]  List source code            B<T>           Stack trace
+  B<-> or B<.>      List previous/current line  B<s> [I<expr>]    Single step [in expr]
+  B<v> [I<line>]    View around line            B<n> [I<expr>]    Next, steps over subs
+  B<f> I<filename>  View source in file         <B<CR>/B<Enter>>  Repeat last B<n> or B<s>
+  B</>I<pattern>B</> B<?>I<patt>B<?>   Search forw/backw    B<r>           Return from subroutine
+  B<M>           Show module versions        B<c> [I<ln>|I<sub>]  Continue until position
+I<Debugger controls:>                        B<L>           List break/watch/actions
+  B<o> [...]     Set debugger options        B<t> [I<n>] [I<expr>] Toggle trace [max depth] ][trace expr]
+  B<<>[B<<>]|B<{>[B<{>]|B<>>[B<>>] [I<cmd>] Do pre/post-prompt B<b> [I<ln>|I<event>|I<sub>] [I<cnd>] Set breakpoint
+  B<$prc> [I<N>|I<pat>]   Redo a previous command     B<B> I<ln|*>      Delete a/all breakpoints
+  B<H> [I<-num>]    Display last num commands   B<a> [I<ln>] I<cmd>  Do cmd before line
+  B<=> [I<a> I<val>]   Define/list an alias        B<A> I<ln|*>      Delete a/all actions
+  B<h> [I<db_cmd>]  Get help on command         B<w> I<expr>      Add a watch expression
+  B<h h>         Complete help page          B<W> I<expr|*>    Delete a/all watch exprs
+  B<|>[B<|>]I<db_cmd>  Send output to pager        B<$psh>\[B<$psh>\] I<syscmd> Run cmd in a subprocess
+  B<q> or B<^D>     Quit                        B<R>           Attempt a restart
+I<Data Examination:>     B<expr>     Execute perl code, also see: B<s>,B<n>,B<t> I<expr>
+  B<x>|B<m> I<expr>       Evals expr in list context, dumps the result or lists methods.
+  B<p> I<expr>         Print expression (uses script's current package).
+  B<S> [[B<!>]I<pat>]     List subroutine names [not] matching pattern
+  B<V> [I<Pk> [I<Vars>]]  List Variables in Package.  Vars can be ~pattern or !pattern.
+  B<X> [I<Vars>]       Same as \"B<V> I<current_package> [I<Vars>]\".  B<i> I<class> inheritance tree.
+  B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+  B<e>     Display thread id     B<E> Display all thread ids.
+For more help, type B<h> I<cmd_letter>, or run B<$doccmd perldebug> for all docs.
+END_SUM
+
+    # ')}}; # Fix balance of vi % matching
+
+    # and this is really numb...
+    $pre580_help = "
+B<T>        Stack trace.
+B<s> [I<expr>]    Single step [in I<expr>].
+B<n> [I<expr>]    Next, steps over subroutine calls [in I<expr>].
+B<CR>>        Repeat last B<n> or B<s> command.
+B<r>        Return from current subroutine.
+B<c> [I<line>|I<sub>]    Continue; optionally inserts a one-time-only breakpoint
+        at the specified position.
+B<l> I<min>B<+>I<incr>    List I<incr>+1 lines starting at I<min>.
+B<l> I<min>B<->I<max>    List lines I<min> through I<max>.
+B<l> I<line>        List single I<line>.
+B<l> I<subname>    List first window of lines from subroutine.
+B<l> I<\$var>        List first window of lines from subroutine referenced by I<\$var>.
+B<l>        List next window of lines.
+B<->        List previous window of lines.
+B<w> [I<line>]    List window around I<line>.
+B<.>        Return to the executed line.
+B<f> I<filename>    Switch to viewing I<filename>. File must be already loaded.
+        I<filename> may be either the full name of the file, or a regular
+        expression matching the full file name:
+        B<f> I</home/me/foo.pl> and B<f> I<oo\\.> may access the same file.
+        Evals (with saved bodies) are considered to be filenames:
+        B<f> I<(eval 7)> and B<f> I<eval 7\\b> access the body of the 7th eval
+        (in the order of execution).
+B</>I<pattern>B</>    Search forwards for I<pattern>; final B</> is optional.
+B<?>I<pattern>B<?>    Search backwards for I<pattern>; final B<?> is optional.
+B<L>        List all breakpoints and actions.
+B<S> [[B<!>]I<pattern>]    List subroutine names [not] matching I<pattern>.
+B<t> [I<n>]       Toggle trace mode (to max I<n> levels below current stack depth) .
+B<t> [I<n>] I<expr>        Trace through execution of I<expr>.
+B<b> [I<line>] [I<condition>]
+        Set breakpoint; I<line> defaults to the current execution line;
+        I<condition> breaks if it evaluates to true, defaults to '1'.
+B<b> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine.
+B<b> I<\$var>        Set breakpoint at first line of subroutine referenced by I<\$var>.
+B<b> B<load> I<filename> Set breakpoint on 'require'ing the given file.
+B<b> B<postpone> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine after
+        it is compiled.
+B<b> B<compile> I<subname>
+        Stop after the subroutine is compiled.
+B<d> [I<line>]    Delete the breakpoint for I<line>.
+B<D>        Delete all breakpoints.
+B<a> [I<line>] I<command>
+        Set an action to be done before the I<line> is executed;
+        I<line> defaults to the current execution line.
+        Sequence is: check for breakpoint/watchpoint, print line
+        if necessary, do action, prompt user if necessary,
+        execute line.
+B<a> [I<line>]    Delete the action for I<line>.
+B<A>        Delete all actions.
+B<W> I<expr>        Add a global watch-expression.
+B<W>        Delete all watch-expressions.
+B<V> [I<pkg> [I<vars>]]    List some (default all) variables in package (default current).
+        Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps.
+B<X> [I<vars>]    Same as \"B<V> I<currentpackage> [I<vars>]\".
+B<x> I<expr>        Evals expression in list context, dumps the result.
+B<m> I<expr>        Evals expression in list context, prints methods callable
+        on the first element of the result.
+B<m> I<class>        Prints methods callable via the given class.
+
+B<<> ?            List Perl commands to run before each prompt.
+B<<> I<expr>        Define Perl command to run before each prompt.
+B<<<> I<expr>        Add to the list of Perl commands to run before each prompt.
+B<>> ?            List Perl commands to run after each prompt.
+B<>> I<expr>        Define Perl command to run after each prompt.
+B<>>B<>> I<expr>        Add to the list of Perl commands to run after each prompt.
+B<{> I<db_command>    Define debugger command to run before each prompt.
+B<{> ?            List debugger commands to run before each prompt.
+B<{{> I<db_command>    Add to the list of debugger commands to run before each prompt.
+B<$prc> I<number>    Redo a previous command (default previous command).
+B<$prc> I<-number>    Redo number'th-to-last command.
+B<$prc> I<pattern>    Redo last command that started with I<pattern>.
+        See 'B<O> I<recallCommand>' too.
+B<$psh$psh> I<cmd>      Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT)"
+      . (
+        $rc eq $sh
+        ? ""
+        : "
+B<$psh> [I<cmd>]     Run I<cmd> in subshell (forces \"\$SHELL -c 'cmd'\")."
+      ) . "
+        See 'B<O> I<shellBang>' too.
+B<source> I<file>        Execute I<file> containing debugger commands (may nest).
+B<H> I<-number>    Display last number commands (default all).
+B<p> I<expr>        Same as \"I<print {DB::OUT} expr>\" in current package.
+B<|>I<dbcmd>        Run debugger command, piping DB::OUT to current pager.
+B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarilly select()ed as well.
+B<\=> [I<alias> I<value>]    Define a command alias, or list current aliases.
+I<command>        Execute as a perl statement in current package.
+B<v>        Show versions of loaded modules.
+B<R>        Pure-man-restart of debugger, some of debugger state
+        and command-line options may be lost.
+        Currently the following settings are preserved:
+        history, breakpoints and actions, debugger B<O>ptions
+        and the following command-line options: I<-w>, I<-I>, I<-e>.
+
+B<O> [I<opt>] ...    Set boolean option to true
+B<O> [I<opt>B<?>]    Query options
+B<O> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
+        Set options.  Use quotes if spaces in value.
+    I<recallCommand>, I<ShellBang>    chars used to recall command or spawn shell;
+    I<pager>            program for output of \"|cmd\";
+    I<tkRunning>            run Tk while prompting (with ReadLine);
+    I<signalLevel> I<warnLevel> I<dieLevel>    level of verbosity;
+    I<inhibit_exit>        Allows stepping off the end of the script.
+    I<ImmediateStop>        Debugger should stop as early as possible.
+    I<RemotePort>            Remote hostname:port for remote debugging
+  The following options affect what happens with B<V>, B<X>, and B<x> commands:
+    I<arrayDepth>, I<hashDepth>     print only first N elements ('' for all);
+    I<compactDump>, I<veryCompact>     change style of array and hash dump;
+    I<globPrint>             whether to print contents of globs;
+    I<DumpDBFiles>         dump arrays holding debugged files;
+    I<DumpPackages>         dump symbol tables of packages;
+    I<DumpReused>             dump contents of \"reused\" addresses;
+    I<quote>, I<HighBit>, I<undefPrint>     change style of string dump;
+    I<bareStringify>         Do not print the overload-stringified value;
+  Other options include:
+    I<PrintRet>        affects printing of return value after B<r> command,
+    I<frame>        affects printing messages on subroutine entry/exit.
+    I<AutoTrace>    affects printing messages on possible breaking points.
+    I<maxTraceLen>    gives max length of evals/args listed in stack trace.
+    I<ornaments>     affects screen appearance of the command line.
+    I<CreateTTY>     bits control attempts to create a new TTY on events:
+            1: on fork()    2: debugger is started inside debugger
+            4: on startup
+    During startup options are initialized from \$ENV{PERLDB_OPTS}.
+    You can put additional initialization options I<TTY>, I<noTTY>,
+    I<ReadLine>, I<NonStop>, and I<RemotePort> there (or use
+    B<R> after you set them).
+
+B<q> or B<^D>        Quit. Set B<\$DB::finished = 0> to debug global destruction.
+B<h> [I<db_command>]    Get help [on a specific debugger command], enter B<|h> to page.
+B<h h>        Summary of debugger commands.
+B<$doccmd> I<manpage>    Runs the external doc viewer B<$doccmd> command on the
+        named Perl I<manpage>, or on B<$doccmd> itself if omitted.
+        Set B<\$DB::doccmd> to change viewer.
+
+Type '|h' for a paged display if this was too hard to read.
+
+";    # Fix balance of vi % matching: }}}}
+
+    #  note: tabs in the following section are not-so-helpful
+    $pre580_summary = <<"END_SUM";
+I<List/search source lines:>               I<Control script execution:>
+  B<l> [I<ln>|I<sub>]  List source code            B<T>           Stack trace
+  B<-> or B<.>      List previous/current line  B<s> [I<expr>]    Single step [in expr]
+  B<w> [I<line>]    List around line            B<n> [I<expr>]    Next, steps over subs
+  B<f> I<filename>  View source in file         <B<CR>/B<Enter>>  Repeat last B<n> or B<s>
+  B</>I<pattern>B</> B<?>I<patt>B<?>   Search forw/backw    B<r>           Return from subroutine
+  B<v>           Show versions of modules    B<c> [I<ln>|I<sub>]  Continue until position
+I<Debugger controls:>                        B<L>           List break/watch/actions
+  B<O> [...]     Set debugger options        B<t> [I<expr>]    Toggle trace [trace expr]
+  B<<>[B<<>]|B<{>[B<{>]|B<>>[B<>>] [I<cmd>] Do pre/post-prompt B<b> [I<ln>|I<event>|I<sub>] [I<cnd>] Set breakpoint
+  B<$prc> [I<N>|I<pat>]   Redo a previous command     B<d> [I<ln>] or B<D> Delete a/all breakpoints
+  B<H> [I<-num>]    Display last num commands   B<a> [I<ln>] I<cmd>  Do cmd before line
+  B<=> [I<a> I<val>]   Define/list an alias        B<W> I<expr>      Add a watch expression
+  B<h> [I<db_cmd>]  Get help on command         B<A> or B<W>      Delete all actions/watch
+  B<|>[B<|>]I<db_cmd>  Send output to pager        B<$psh>\[B<$psh>\] I<syscmd> Run cmd in a subprocess
+  B<q> or B<^D>     Quit                        B<R>           Attempt a restart
+I<Data Examination:>     B<expr>     Execute perl code, also see: B<s>,B<n>,B<t> I<expr>
+  B<x>|B<m> I<expr>       Evals expr in list context, dumps the result or lists methods.
+  B<p> I<expr>         Print expression (uses script's current package).
+  B<S> [[B<!>]I<pat>]     List subroutine names [not] matching pattern
+  B<V> [I<Pk> [I<Vars>]]  List Variables in Package.  Vars can be ~pattern or !pattern.
+  B<X> [I<Vars>]       Same as \"B<V> I<current_package> [I<Vars>]\".
+  B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+For more help, type B<h> I<cmd_letter>, or run B<$doccmd perldebug> for all docs.
+END_SUM
+
+    # ')}}; # Fix balance of vi % matching
+
+} ## end sub sethelp
+
+
+sub print_help {
+    my $help_str = shift;
+
+    # Restore proper alignment destroyed by eeevil I<> and B<>
+    # ornaments: A pox on both their houses!
+    #
+    # A help command will have everything up to and including
+    # the first tab sequence padded into a field 16 (or if indented 20)
+    # wide.  If it's wider than that, an extra space will be added.
+    $help_str =~ s{
+        ^                       # only matters at start of line
+          ( \ {4} | \t )*       # some subcommands are indented
+          ( < ?                 # so <CR> works
+            [BI] < [^\t\n] + )  # find an eeevil ornament
+          ( \t+ )               # original separation, discarded
+          ( .* )                # this will now start (no earlier) than
+                                # column 16
+    } {
+        my($leadwhite, $command, $midwhite, $text) = ($1, $2, $3, $4);
+        my $clean = $command;
+        $clean =~ s/[BI]<([^>]*)>/$1/g;
+
+        # replace with this whole string:
+        ($leadwhite ? " " x 4 : "")
+      . $command
+      . ((" " x (16 + ($leadwhite ? 4 : 0) - length($clean))) || " ")
+      . $text;
+
+    }mgex;
+
+    $help_str =~ s{                          # handle bold ornaments
+       B < ( [^>] + | > ) >
+    } {
+          $Term::ReadLine::TermCap::rl_term_set[2]
+        . $1
+        . $Term::ReadLine::TermCap::rl_term_set[3]
+    }gex;
+
+    $help_str =~ s{                         # handle italic ornaments
+       I < ( [^>] + | > ) >
+    } {
+          $Term::ReadLine::TermCap::rl_term_set[0]
+        . $1
+        . $Term::ReadLine::TermCap::rl_term_set[1]
+    }gex;
+
+    local $\ = '';
+    print {$OUT} $help_str;
+
+    return;
+} ## end sub print_help
+
+
+use vars qw($fixed_less);
+
+sub _calc_is_less {
+    if ($pager =~ /\bless\b/)
+    {
+        return 1;
+    }
+    elsif ($pager =~ /\bmore\b/)
+    {
+        # Nope, set to more. See what's out there.
+        my @st_more = stat('/usr/bin/more');
+        my @st_less = stat('/usr/bin/less');
+
+        # is it really less, pretending to be more?
+        return (
+            @st_more
+            && @st_less
+            && $st_more[0] == $st_less[0]
+            && $st_more[1] == $st_less[1]
+        );
+    }
+    else {
+        return;
+    }
+}
+
+sub fix_less {
+
+    # We already know if this is set.
+    return if $fixed_less;
+
+    # changes environment!
+    # 'r' added so we don't do (slow) stats again.
+    $fixed_less = 1 if _calc_is_less();
+
+    return;
+} ## end sub fix_less
+
+
+sub diesignal {
+
+    # No entry/exit messages.
+    local $frame = 0;
+
+    # No return value prints.
+    local $doret = -2;
+
+    # set the abort signal handling to the default (just terminate).
+    $SIG{'ABRT'} = 'DEFAULT';
+
+    # If we enter the signal handler recursively, kill myself with an
+    # abort signal (so we just terminate).
+    kill 'ABRT', $$ if $panic++;
+
+    # If we can show detailed info, do so.
+    if ( defined &Carp::longmess ) {
+
+        # Don't recursively enter the warn handler, since we're carping.
+        local $SIG{__WARN__} = '';
+
+        # Skip two levels before reporting traceback: we're skipping
+        # mydie and confess.
+        local $Carp::CarpLevel = 2;    # mydie + confess
+
+        # Tell us all about it.
+        _db_warn( Carp::longmess("Signal @_") );
+    }
+
+    # No Carp. Tell us about the signal as best we can.
+    else {
+        local $\ = '';
+        print $DB::OUT "Got signal @_\n";
+    }
+
+    # Drop dead.
+    kill 'ABRT', $$;
+} ## end sub diesignal
+
+
+sub dbwarn {
+
+    # No entry/exit trace.
+    local $frame = 0;
+
+    # No return value printing.
+    local $doret = -2;
+
+    # Turn off warn and die handling to prevent recursive entries to this
+    # routine.
+    local $SIG{__WARN__} = '';
+    local $SIG{__DIE__}  = '';
+
+    # Load Carp if we can. If $^S is false (current thing being compiled isn't
+    # done yet), we may not be able to do a require.
+    eval { require Carp }
+      if defined $^S;    # If error/warning during compilation,
+                         # require may be broken.
+
+    # Use the core warn() unless Carp loaded OK.
+    CORE::warn( @_,
+        "\nCannot print stack trace, load with -MCarp option to see stack" ),
+      return
+      unless defined &Carp::longmess;
+
+    # Save the current values of $single and $trace, and then turn them off.
+    my ( $mysingle, $mytrace ) = ( $single, $trace );
+    $single = 0;
+    $trace  = 0;
+
+    # We can call Carp::longmess without its being "debugged" (which we
+    # don't want - we just want to use it!). Capture this for later.
+    my $mess = Carp::longmess(@_);
+
+    # Restore $single and $trace to their original values.
+    ( $single, $trace ) = ( $mysingle, $mytrace );
+
+    # Use the debugger's own special way of printing warnings to print
+    # the stack trace message.
+    _db_warn($mess);
+} ## end sub dbwarn
+
+
+sub dbdie {
+    local $frame         = 0;
+    local $doret         = -2;
+    local $SIG{__DIE__}  = '';
+    local $SIG{__WARN__} = '';
+    if ( $dieLevel > 2 ) {
+        local $SIG{__WARN__} = \&dbwarn;
+        _db_warn(@_);    # Yell no matter what
+        return;
+    }
+    if ( $dieLevel < 2 ) {
+        die @_ if $^S;    # in eval propagate
+    }
+
+    # The code used to check $^S to see if compilation of the current thing
+    # hadn't finished. We don't do it anymore, figuring eval is pretty stable.
+    eval { require Carp };
+
+    die( @_,
+        "\nCannot print stack trace, load with -MCarp option to see stack" )
+      unless defined &Carp::longmess;
+
+    # We do not want to debug this chunk (automatic disabling works
+    # inside DB::DB, but not in Carp). Save $single and $trace, turn them off,
+    # get the stack trace from Carp::longmess (if possible), restore $signal
+    # and $trace, and then die with the stack trace.
+    my ( $mysingle, $mytrace ) = ( $single, $trace );
+    $single = 0;
+    $trace  = 0;
+    my $mess = "@_";
+    {
+
+        package Carp;    # Do not include us in the list
+        eval { $mess = Carp::longmess(@_); };
+    }
+    ( $single, $trace ) = ( $mysingle, $mytrace );
+    die $mess;
+} ## end sub dbdie
+
+
+sub warnLevel {
+    if (@_) {
+        my $prevwarn = $SIG{__WARN__} unless $warnLevel;
+        $warnLevel = shift;
+        if ($warnLevel) {
+            $SIG{__WARN__} = \&DB::dbwarn;
+        }
+        elsif ($prevwarn) {
+            $SIG{__WARN__} = $prevwarn;
+        } else {
+            undef $SIG{__WARN__};
+        }
+    } ## end if (@_)
+    $warnLevel;
+} ## end sub warnLevel
+
+
+sub dieLevel {
+    local $\ = '';
+    if (@_) {
+        my $prevdie = $SIG{__DIE__} unless $dieLevel;
+        $dieLevel = shift;
+        if ($dieLevel) {
+
+            # Always set it to dbdie() for non-zero values.
+            $SIG{__DIE__} = \&DB::dbdie;    # if $dieLevel < 2;
+
+            # No longer exists, so don't try  to use it.
+            #$SIG{__DIE__} = \&DB::diehard if $dieLevel >= 2;
+
+            # If we've finished initialization, mention that stack dumps
+            # are enabled, If dieLevel is 1, we won't stack dump if we die
+            # in an eval().
+            print $OUT "Stack dump during die enabled",
+              ( $dieLevel == 1 ? " outside of evals" : "" ), ".\n"
+              if $I_m_init;
+
+            # XXX This is probably obsolete, given that diehard() is gone.
+            print $OUT "Dump printed too.\n" if $dieLevel > 2;
+        } ## end if ($dieLevel)
+
+        # Put the old one back if there was one.
+        elsif ($prevdie) {
+            $SIG{__DIE__} = $prevdie;
+            print $OUT "Default die handler restored.\n";
+        } else {
+            undef $SIG{__DIE__};
+            print $OUT "Die handler removed.\n";
+        }
+    } ## end if (@_)
+    $dieLevel;
+} ## end sub dieLevel
+
+
+sub signalLevel {
+    if (@_) {
+        my $prevsegv = $SIG{SEGV} unless $signalLevel;
+        my $prevbus  = $SIG{BUS}  unless $signalLevel;
+        $signalLevel = shift;
+        if ($signalLevel) {
+            $SIG{SEGV} = \&DB::diesignal;
+            $SIG{BUS}  = \&DB::diesignal;
+        }
+        else {
+            $SIG{SEGV} = $prevsegv;
+            $SIG{BUS}  = $prevbus;
+        }
+    } ## end if (@_)
+    $signalLevel;
+} ## end sub signalLevel
+
+
+sub CvGV_name {
+    my $in   = shift;
+    my $name = CvGV_name_or_bust($in);
+    defined $name ? $name : $in;
+}
+
+
+use vars qw($skipCvGV);
+
+sub CvGV_name_or_bust {
+    my $in = shift;
+    return if $skipCvGV;    # Backdoor to avoid problems if XS broken...
+    return unless ref $in;
+    $in = \&$in;            # Hard reference...
+    eval { require Devel::Peek; 1 } or return;
+    my $gv = Devel::Peek::CvGV($in) or return;
+    *$gv{PACKAGE} . '::' . *$gv{NAME};
+} ## end sub CvGV_name_or_bust
+
+
+sub _find_sub_helper {
+    my $subr = shift;
+
+    return unless defined &$subr;
+    my $name = CvGV_name_or_bust($subr);
+    my $data;
+    $data = $sub{$name} if defined $name;
+    return $data if defined $data;
+
+    # Old stupid way...
+    $subr = \&$subr;    # Hard reference
+    my $s;
+    for ( keys %sub ) {
+        $s = $_, last if $subr eq \&$_;
+    }
+    if ($s)
+    {
+        return $sub{$s};
+    }
+    else
+    {
+        return;
+    }
+
+}
+
+sub find_sub {
+    my $subr = shift;
+    return ( $sub{$subr} || _find_sub_helper($subr) );
+} ## end sub find_sub
+
+
+use vars qw(%seen);
+
+sub methods {
+
+    # Figure out the class - either this is the class or it's a reference
+    # to something blessed into that class.
+    my $class = shift;
+    $class = ref $class if ref $class;
+
+    local %seen;
+
+    # Show the methods that this class has.
+    methods_via( $class, '', 1 );
+
+    # Show the methods that UNIVERSAL has.
+    methods_via( 'UNIVERSAL', 'UNIVERSAL', 0 );
+} ## end sub methods
+
+
+sub methods_via {
+
+    # If we've processed this class already, just quit.
+    my $class = shift;
+    return if $seen{$class}++;
+
+    # This is a package that is contributing the methods we're about to print.
+    my $prefix  = shift;
+    my $prepend = $prefix ? "via $prefix: " : '';
+    my @to_print;
+
+    # Extract from all the symbols in this class.
+    my $class_ref = do { no strict "refs"; \%{$class . '::'} };
+    while (my ($name, $glob) = each %$class_ref) {
+        # references directly in the symbol table are Proxy Constant
+        # Subroutines, and are by their very nature defined
+        # Otherwise, check if the thing is a typeglob, and if it is, it decays
+        # to a subroutine reference, which can be tested by defined.
+        # $glob might also be the value -1  (from sub foo;)
+        # or (say) '$$' (from sub foo ($$);)
+        # \$glob will be SCALAR in both cases.
+        if ((ref $glob || ($glob && ref \$glob eq 'GLOB' && defined &$glob))
+            && !$seen{$name}++) {
+            push @to_print, "$prepend$name\n";
+        }
+    }
+
+    {
+        local $\ = '';
+        local $, = '';
+        print $DB::OUT $_ foreach sort @to_print;
+    }
+
+    # If the $crawl_upward argument is false, just quit here.
+    return unless shift;
+
+    # $crawl_upward true: keep going up the tree.
+    # Find all the classes this one is a subclass of.
+    my $class_ISA_ref = do { no strict "refs"; \@{"${class}::ISA"} };
+    for my $name ( @$class_ISA_ref ) {
+
+        # Set up the new prefix.
+        $prepend = $prefix ? $prefix . " -> $name" : $name;
+
+        # Crawl up the tree and keep trying to crawl up.
+        methods_via( $name, $prepend, 1 );
+    }
+} ## end sub methods_via
+
+
+sub setman {
+    $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos|NetWare)\z/s
+      ? "man"         # O Happy Day!
+      : "perldoc";    # Alas, poor unfortunates
+} ## end sub setman
+
+
+sub runman {
+    my $page = shift;
+    unless ($page) {
+        _db_system("$doccmd $doccmd");
+        return;
+    }
+
+    # this way user can override, like with $doccmd="man -Mwhatever"
+    # or even just "man " to disable the path check.
+    if ( $doccmd ne 'man' ) {
+        _db_system("$doccmd $page");
+        return;
+    }
+
+    $page = 'perl' if lc($page) eq 'help';
+
+    require Config;
+    my $man1dir = $Config::Config{man1direxp};
+    my $man3dir = $Config::Config{man3direxp};
+    for ( $man1dir, $man3dir ) { s#/[^/]*\z## if /\S/ }
+    my $manpath = '';
+    $manpath .= "$man1dir:" if $man1dir =~ /\S/;
+    $manpath .= "$man3dir:" if $man3dir =~ /\S/ && $man1dir ne $man3dir;
+    chop $manpath if $manpath;
+
+    # harmless if missing, I figure
+    local $ENV{MANPATH} = $manpath if $manpath;
+    my $nopathopt = $^O =~ /dunno what goes here/;
+    if (
+        CORE::system(
+            $doccmd,
+
+            # I just *know* there are men without -M
+            ( ( $manpath && !$nopathopt ) ? ( "-M", $manpath ) : () ),
+            split ' ', $page
+        )
+      )
+    {
+        unless ( $page =~ /^perl\w/ ) {
+            # Previously the debugger contained a list which it slurped in,
+            # listing the known "perl" manpages. However, it was out of date,
+            # with errors both of omission and inclusion. This approach is
+            # considerably less complex. The failure mode on a butchered
+            # install is simply that the user has to run man or perldoc
+            # "manually" with the full manpage name.
+
+            # There is a list of $^O values in installperl to determine whether
+            # the directory is 'pods' or 'pod'. However, we can avoid tight
+            # coupling to that by simply checking the "non-standard" 'pods'
+            # first.
+            my $pods = "$Config::Config{privlibexp}/pods";
+            $pods = "$Config::Config{privlibexp}/pod"
+                unless -d $pods;
+            if (-f "$pods/perl$page.pod") {
+                CORE::system( $doccmd,
+                    ( ( $manpath && !$nopathopt ) ? ( "-M", $manpath ) : () ),
+                    "perl$page" );
+            }
+        }
+    } ## end if (CORE::system($doccmd...
+} ## end sub runman
+
+#use Carp;                          # This did break, left for debugging
+
+
+# The following BEGIN is very handy if debugger goes havoc, debugging debugger?
+
+use vars qw($db_stop);
+
+BEGIN {    # This does not compile, alas. (XXX eh?)
+    $IN  = \*STDIN;     # For bugs before DB::OUT has been opened
+    $OUT = \*STDERR;    # For errors before DB::OUT has been opened
+
+    # Define characters used by command parsing.
+    $sh       = '!';      # Shell escape (does not work)
+    $rc       = ',';      # Recall command (does not work)
+    @hist     = ('?');    # Show history (does not work)
+    @truehist = ();       # Can be saved for replay (per session)
+
+    # This defines the point at which you get the 'deep recursion'
+    # warning. It MUST be defined or the debugger will not load.
+    $deep = 1000;
+
+    # Number of lines around the current one that are shown in the
+    # 'w' command.
+    $window = 10;
+
+    # How much before-the-current-line context the 'v' command should
+    # use in calculating the start of the window it will display.
+    $preview = 3;
+
+    # We're not in any sub yet, but we need this to be a defined value.
+    $sub = '';
+
+    # Set up the debugger's interrupt handler. It simply sets a flag
+    # ($signal) that DB::DB() will check before each command is executed.
+    $SIG{INT} = \&DB::catch;
+
+    # The following lines supposedly, if uncommented, allow the debugger to
+    # debug itself. Perhaps we can try that someday.
+    # This may be enabled to debug debugger:
+    #$warnLevel = 1 unless defined $warnLevel;
+    #$dieLevel = 1 unless defined $dieLevel;
+    #$signalLevel = 1 unless defined $signalLevel;
+
+    # This is the flag that says "a debugger is running, please call
+    # DB::DB and DB::sub". We will turn it on forcibly before we try to
+    # execute anything in the user's context, because we always want to
+    # get control back.
+    $db_stop = 0;          # Compiler warning ...
+    $db_stop = 1 << 30;    # ... because this is only used in an eval() later.
+
+    # This variable records how many levels we're nested in debugging. Used
+    # Used in the debugger prompt, and in determining whether it's all over or
+    # not.
+    $level = 0;            # Level of recursive debugging
+
+    # "Triggers bug (?) in perl if we postpone this until runtime."
+    # XXX No details on this yet, or whether we should fix the bug instead
+    # of work around it. Stay tuned.
+    @stack = (0);
+
+    # Used to track the current stack depth using the auto-stacked-variable
+    # trick.
+    $stack_depth = 0;      # Localized repeatedly; simple way to track $#stack
+
+    # Don't print return values on exiting a subroutine.
+    $doret = -2;
+
+    # No extry/exit tracing.
+    $frame = 0;
+
+} ## end BEGIN
+
+BEGIN { $^W = $ini_warn; }    # Switch warnings back
+
+
+sub db_complete {
+
+    # Specific code for b c l V m f O, &blah, $blah, @blah, %blah
+    # $text is the text to be completed.
+    # $line is the incoming line typed by the user.
+    # $start is the start of the text to be completed in the incoming line.
+    my ( $text, $line, $start ) = @_;
+
+    # Save the initial text.
+    # The search pattern is current package, ::, extract the next qualifier
+    # Prefix and pack are set to undef.
+    my ( $itext, $search, $prefix, $pack ) =
+      ( $text, "^\Q${package}::\E([^:]+)\$" );
+
+
+    return sort grep /^\Q$text/, ( keys %sub ),
+      qw(postpone load compile),    # subroutines
+      ( map { /$search/ ? ($1) : () } keys %sub )
+      if ( substr $line, 0, $start ) =~ /^\|*[blc]\s+((postpone|compile)\s+)?$/;
+
+
+    return sort grep /^\Q$text/, values %INC    # files
+      if ( substr $line, 0, $start ) =~ /^\|*b\s+load\s+$/;
+
+
+    return sort map { ( $_, db_complete( $_ . "::", "V ", 2 ) ) }
+      grep /^\Q$text/, map { /^(.*)::$/ ? ($1) : () } keys %::    # top-packages
+      if ( substr $line, 0, $start ) =~ /^\|*[Vm]\s+$/ and $text =~ /^\w*$/;
+
+
+    return sort map { ( $_, db_complete( $_ . "::", "V ", 2 ) ) }
+      grep !/^main::/, grep /^\Q$text/,
+      map { /^(.*)::$/ ? ( $prefix . "::$1" ) : () }
+      do { no strict 'refs'; keys %{ $prefix . '::' } }
+      if ( substr $line, 0, $start ) =~ /^\|*[Vm]\s+$/
+      and $text =~ /^(.*[^:])::?(\w*)$/
+      and $prefix = $1;
+
+
+    if ( $line =~ /^\|*f\s+(.*)/ ) {    # Loaded files
+           # We might possibly want to switch to an eval (which has a "filename"
+           # like '(eval 9)'), so we may need to clean up the completion text
+           # before proceeding.
+        $prefix = length($1) - length($text);
+        $text   = $1;
+
+
+        return sort
+          map { substr $_, 2 + $prefix } grep /^_<\Q$text/, ( keys %main:: ),
+          $0;
+    } ## end if ($line =~ /^\|*f\s+(.*)/)
+
+
+    if ( ( substr $text, 0, 1 ) eq '&' ) {    # subroutines
+        $text = substr $text, 1;
+        $prefix = "&";
+        return sort map "$prefix$_", grep /^\Q$text/, ( keys %sub ),
+          (
+            map { /$search/ ? ($1) : () }
+              keys %sub
+          );
+    } ## end if ((substr $text, 0, ...
+
+
+    if ( $text =~ /^[\$@%](.*)::(.*)/ ) {    # symbols in a package
+
+
+        $pack = ( $1 eq 'main' ? '' : $1 ) . '::';
+
+
+        $prefix = ( substr $text, 0, 1 ) . $1 . '::';
+        $text   = $2;
+
+
+        my @out = do {
+            no strict 'refs';
+            map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
+            keys %$pack;
+        };
+
+
+        if ( @out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext ) {
+            return db_complete( $out[0], $line, $start );
+        }
+
+        # Return the list of possibles.
+        return sort @out;
+
+    } ## end if ($text =~ /^[\$@%](.*)::(.*)/)
+
+
+    if ( $text =~ /^[\$@%]/ ) {    # symbols (in $package + packages in main)
+
+        $pack = ( $package eq 'main' ? '' : $package ) . '::';
+
+
+        $prefix = substr $text, 0, 1;
+        $text   = substr $text, 1;
+
+        my @out;
+
+
+        if (not $text =~ /::/ and eval {
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            require PadWalker } ) {
+            my $level = 1;
+            while (1) {
+                my @info = caller($level);
+                $level++;
+                $level = -1, last
+                  if not @info;
+                last if $info[3] eq 'DB::DB';
+            }
+            if ($level > 0) {
+                my $lexicals = PadWalker::peek_my($level);
+                push @out, grep /^\Q$prefix$text/, keys %$lexicals;
+            }
+        }
+
+
+        push @out, map "$prefix$_", grep /^\Q$text/,
+          ( grep /^_?[a-zA-Z]/, do { no strict 'refs'; keys %$pack } ),
+          ( $pack eq '::' ? () : ( grep /::$/, keys %:: ) );
+
+
+        if ( @out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext ) {
+            return db_complete( $out[0], $line, $start );
+        }
+
+        # Return the list of possibles.
+        return sort @out;
+    } ## end if ($text =~ /^[\$@%]/)
+
+
+    if ( ( substr $line, 0, $start ) =~ /^\|*[oO]\b.*\s$/ )
+    {    # Options after space
+           # We look for the text to be matched in the list of possible options,
+           # and fetch the current value.
+        my @out = grep /^\Q$text/, @options;
+        my $val = option_val( $out[0], undef );
+
+        # Set up a 'query option's value' command.
+        my $out = '? ';
+        if ( not defined $val or $val =~ /[\n\r]/ ) {
+
+            # There's really nothing else we can do.
+        }
+
+        # We have a value. Create a proper option-setting command.
+        elsif ( $val =~ /\s/ ) {
+
+            # XXX This may be an extraneous variable.
+            my $found;
+
+            # We'll want to quote the string (because of the embedded
+            # whtespace), but we want to make sure we don't end up with
+            # mismatched quote characters. We try several possibilities.
+            foreach my $l ( split //, qq/\"\'\#\|/ ) {
+
+                # If we didn't find this quote character in the value,
+                # quote it using this quote character.
+                $out = "$l$val$l ", last if ( index $val, $l ) == -1;
+            }
+        } ## end elsif ($val =~ /\s/)
+
+        # Don't need any quotes.
+        else {
+            $out = "=$val ";
+        }
+
+        # If there were multiple possible values, return '? ', which
+        # makes the command into a query command. If there was just one,
+        # have readline append that.
+        $rl_attribs->{completer_terminator_character} =
+          ( @out == 1 ? $out : '? ' );
+
+        # Return list of possibilities.
+        return sort @out;
+    } ## end if ((substr $line, 0, ...
+
+
+    return $term->filename_list($text);    # filenames
+
+} ## end sub db_complete
+
+
+sub end_report {
+    local $\ = '';
+    print $OUT "Use 'q' to quit or 'R' to restart.  'h q' for details.\n";
+}
+
+
+sub clean_ENV {
+    if ( defined($ini_pids) ) {
+        $ENV{PERLDB_PIDS} = $ini_pids;
+    }
+    else {
+        delete( $ENV{PERLDB_PIDS} );
+    }
+} ## end sub clean_ENV
+
+# PERLDBf_... flag names from perl.h
+our ( %DollarCaretP_flags, %DollarCaretP_flags_r );
+
+BEGIN {
+    %DollarCaretP_flags = (
+        PERLDBf_SUB       => 0x01,     # Debug sub enter/exit
+        PERLDBf_LINE      => 0x02,     # Keep line #
+        PERLDBf_NOOPT     => 0x04,     # Switch off optimizations
+        PERLDBf_INTER     => 0x08,     # Preserve more data
+        PERLDBf_SUBLINE   => 0x10,     # Keep subr source lines
+        PERLDBf_SINGLE    => 0x20,     # Start with single-step on
+        PERLDBf_NONAME    => 0x40,     # For _SUB: no name of the subr
+        PERLDBf_GOTO      => 0x80,     # Report goto: call DB::goto
+        PERLDBf_NAMEEVAL  => 0x100,    # Informative names for evals
+        PERLDBf_NAMEANON  => 0x200,    # Informative names for anon subs
+        PERLDBf_SAVESRC   => 0x400,    # Save source lines into @{"_<$filename"}
+        PERLDB_ALL        => 0x33f,    # No _NONAME, _GOTO
+    );
+    # PERLDBf_LINE also enables the actions of PERLDBf_SAVESRC, so the debugger
+    # doesn't need to set it. It's provided for the benefit of profilers and
+    # other code analysers.
+
+    %DollarCaretP_flags_r = reverse %DollarCaretP_flags;
+}
+
+sub parse_DollarCaretP_flags {
+    my $flags = shift;
+    $flags =~ s/^\s+//;
+    $flags =~ s/\s+$//;
+    my $acu = 0;
+    foreach my $f ( split /\s*\|\s*/, $flags ) {
+        my $value;
+        if ( $f =~ /^0x([[:xdigit:]]+)$/ ) {
+            $value = hex $1;
+        }
+        elsif ( $f =~ /^(\d+)$/ ) {
+            $value = int $1;
+        }
+        elsif ( $f =~ /^DEFAULT$/i ) {
+            $value = $DollarCaretP_flags{PERLDB_ALL};
+        }
+        else {
+            $f =~ /^(?:PERLDBf_)?(.*)$/i;
+            $value = $DollarCaretP_flags{ 'PERLDBf_' . uc($1) };
+            unless ( defined $value ) {
+                print $OUT (
+                    "Unrecognized \$^P flag '$f'!\n",
+                    "Acceptable flags are: "
+                      . join( ', ', sort keys %DollarCaretP_flags ),
+                    ", and hexadecimal and decimal numbers.\n"
+                );
+                return undef;
+            }
+        }
+        $acu |= $value;
+    }
+    $acu;
+}
+
+sub expand_DollarCaretP_flags {
+    my $DollarCaretP = shift;
+    my @bits         = (
+        map {
+            my $n = ( 1 << $_ );
+            ( $DollarCaretP & $n )
+              ? ( $DollarCaretP_flags_r{$n}
+                  || sprintf( '0x%x', $n ) )
+              : ()
+          } 0 .. 31
+    );
+    return @bits ? join( '|', @bits ) : 0;
+}
+
+
+sub rerun {
+    my $i = shift;
+    my @args;
+    pop(@truehist);                      # strim
+    unless (defined $truehist[$i]) {
+        print "Unable to return to non-existent command: $i\n";
+    } else {
+        $#truehist = ($i < 0 ? $#truehist + $i : $i > 0 ? $i : $#truehist);
+        my @temp = @truehist;            # store
+        push(@DB::typeahead, @truehist); # saved
+        @truehist = @hist = ();          # flush
+        @args = restart();              # setup
+        get_list("PERLDB_HIST");        # clean
+        set_list("PERLDB_HIST", @temp); # reset
+    }
+    return @args;
+}
+
+
+sub restart {
+    # I may not be able to resurrect you, but here goes ...
+    print $OUT
+"Warning: some settings and command-line options may be lost!\n";
+    my ( @script, @flags, $cl );
+
+    # If warn was on before, turn it on again.
+    push @flags, '-w' if $ini_warn;
+
+    # Rebuild the -I flags that were on the initial
+    # command line.
+    for (@ini_INC) {
+        push @flags, '-I', $_;
+    }
+
+    # Turn on taint if it was on before.
+    push @flags, '-T' if ${^TAINT};
+
+    # Arrange for setting the old INC:
+    # Save the current @init_INC in the environment.
+    set_list( "PERLDB_INC", @ini_INC );
+
+    # If this was a perl one-liner, go to the "file"
+    # corresponding to the one-liner read all the lines
+    # out of it (except for the first one, which is going
+    # to be added back on again when 'perl -d' runs: that's
+    # the 'require perl5db.pl;' line), and add them back on
+    # to the command line to be executed.
+    if ( $0 eq '-e' ) {
+        my $lines = *{$main::{'_<-e'}}{ARRAY};
+        for ( 1 .. $#$lines ) {  # The first line is PERL5DB
+            chomp( $cl = $lines->[$_] );
+            push @script, '-e', $cl;
+        }
+    } ## end if ($0 eq '-e')
+
+    # Otherwise we just reuse the original name we had
+    # before.
+    else {
+        @script = $0;
+    }
+
+
+    # If the terminal supported history, grab it and
+    # save that in the environment.
+    set_list( "PERLDB_HIST",
+          $term->Features->{getHistory}
+        ? $term->GetHistory
+        : @hist );
+
+    # Find all the files that were visited during this
+    # session (i.e., the debugger had magic hashes
+    # corresponding to them) and stick them in the environment.
+    my @had_breakpoints = keys %had_breakpoints;
+    set_list( "PERLDB_VISITED", @had_breakpoints );
+
+    # Save the debugger options we chose.
+    set_list( "PERLDB_OPT", %option );
+    # set_list( "PERLDB_OPT", options2remember() );
+
+    # Save the break-on-loads.
+    set_list( "PERLDB_ON_LOAD", %break_on_load );
+
+
+    # Go through all the breakpoints and make sure they're
+    # still valid.
+    my @hard;
+    for ( 0 .. $#had_breakpoints ) {
+
+        # We were in this file.
+        my $file = $had_breakpoints[$_];
+
+        # Grab that file's magic line hash.
+        *dbline = $main::{ '_<' . $file };
+
+        # Skip out if it doesn't exist, or if the breakpoint
+        # is in a postponed file (we'll do postponed ones
+        # later).
+        next unless %dbline or $postponed_file{$file};
+
+        # In an eval. This is a little harder, so we'll
+        # do more processing on that below.
+        ( push @hard, $file ), next
+          if $file =~ /^\(\w*eval/;
+
+        # XXX I have no idea what this is doing. Yet.
+        my @add;
+        @add = %{ $postponed_file{$file} }
+          if $postponed_file{$file};
+
+        # Save the list of all the breakpoints for this file.
+        set_list( "PERLDB_FILE_$_", %dbline, @add );
+
+        # Serialize the extra data %breakpoints_data hash.
+        # That's a bug fix.
+        set_list( "PERLDB_FILE_ENABLED_$_",
+            map { _is_breakpoint_enabled($file, $_) ? 1 : 0 }
+            sort { $a <=> $b } keys(%dbline)
+        )
+    } ## end for (0 .. $#had_breakpoints)
+
+    # The breakpoint was inside an eval. This is a little
+    # more difficult. XXX and I don't understand it.
+    foreach my $hard_file (@hard) {
+        # Get over to the eval in question.
+        *dbline = $main::{ '_<' . $hard_file };
+        my $quoted = quotemeta $hard_file;
+        my %subs;
+        for my $sub ( keys %sub ) {
+            if (my ($n1, $n2) = $sub{$sub} =~ /\A$quoted:(\d+)-(\d+)\z/) {
+                $subs{$sub} = [ $n1, $n2 ];
+            }
+        }
+        unless (%subs) {
+            print {$OUT}
+            "No subroutines in $hard_file, ignoring breakpoints.\n";
+            next;
+        }
+        LINES: foreach my $line ( keys %dbline ) {
+
+            # One breakpoint per sub only:
+            my ( $offset, $found );
+            SUBS: foreach my $sub ( keys %subs ) {
+                if (
+                    $subs{$sub}->[1] >= $line    # Not after the subroutine
+                    and (
+                        not defined $offset    # Not caught
+                            or $offset < 0
+                    )
+                )
+                {                              # or badly caught
+                    $found  = $sub;
+                    $offset = $line - $subs{$sub}->[0];
+                    if ($offset >= 0) {
+                        $offset = "+$offset";
+                        last SUBS;
+                    }
+                } ## end if ($subs{$sub}->[1] >=...
+            } ## end for $sub (keys %subs)
+            if ( defined $offset ) {
+                $postponed{$found} =
+                "break $offset if $dbline{$line}";
+            }
+            else {
+                print {$OUT}
+                ("Breakpoint in ${hard_file}:$line ignored:"
+                . " after all the subroutines.\n");
+            }
+        } ## end for $line (keys %dbline)
+    } ## end for (@hard)
+
+    # Save the other things that don't need to be
+    # processed.
+    set_list( "PERLDB_POSTPONE",  %postponed );
+    set_list( "PERLDB_PRETYPE",   @$pretype );
+    set_list( "PERLDB_PRE",       @$pre );
+    set_list( "PERLDB_POST",      @$post );
+    set_list( "PERLDB_TYPEAHEAD", @typeahead );
+
+    # We are officially restarting.
+    $ENV{PERLDB_RESTART} = 1;
+
+    # We are junking all child debuggers.
+    delete $ENV{PERLDB_PIDS};    # Restore ini state
+
+    # Set this back to the initial pid.
+    $ENV{PERLDB_PIDS} = $ini_pids if defined $ini_pids;
+
+
+    # And run Perl again. Add the "-d" flag, all the
+    # flags we built up, the script (whether a one-liner
+    # or a file), add on the -emacs flag for a slave editor,
+    # and then the old arguments.
+
+    return ($^X, '-d', @flags, @script, ($slave_editor ? '-emacs' : ()), @ARGS);
+
+};  # end restart
+
+
+END {
+    $finished = 1 if $inhibit_exit;    # So that some commands may be disabled.
+    $fall_off_end = 1 unless $inhibit_exit;
+
+    # Do not stop in at_exit() and destructors on exit:
+    if ($fall_off_end or $runnonstop) {
+        save_hist();
+    } else {
+        $DB::single = 1;
+        DB::fake::at_exit();
+    }
+} ## end END
+
+
+sub cmd_pre580_null {
+
+    # do nothing...
+}
+
+
+sub cmd_pre580_a {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Argument supplied. Add the action.
+    if ( $cmd =~ /^(\d*)\s*(.*)/ ) {
+
+        # If the line isn't there, use the current line.
+        my $i = $1 || $line;
+        my $j = $2;
+
+        # If there is an action ...
+        if ( length $j ) {
+
+            # ... but the line isn't breakable, skip it.
+            if ( $dbline[$i] == 0 ) {
+                print $OUT "Line $i may not have an action.\n";
+            }
+            else {
+
+                # ... and the line is breakable:
+                # Mark that there's an action in this file.
+                $had_breakpoints{$filename} |= 2;
+
+                # Delete any current action.
+                $dbline{$i} =~ s/\0[^\0]*//;
+
+                # Add the new action, continuing the line as needed.
+                $dbline{$i} .= "\0" . action($j);
+            }
+        } ## end if (length $j)
+
+        # No action supplied.
+        else {
+
+            # Delete the action.
+            $dbline{$i} =~ s/\0[^\0]*//;
+
+            # Mark as having no break or action if nothing's left.
+            delete $dbline{$i} if $dbline{$i} eq '';
+        }
+    } ## end if ($cmd =~ /^(\d*)\s*(.*)/)
+} ## end sub cmd_pre580_a
+
+
+sub cmd_pre580_b {
+    my $xcmd   = shift;
+    my $cmd    = shift;
+    my $dbline = shift;
+
+    # Break on load.
+    if ( $cmd =~ /^load\b\s*(.*)/ ) {
+        my $file = $1;
+        $file =~ s/\s+$//;
+        cmd_b_load($file);
+    }
+
+    # b compile|postpone <some sub> [<condition>]
+    # The interpreter actually traps this one for us; we just put the
+    # necessary condition in the %postponed hash.
+    elsif ( $cmd =~ /^(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/ ) {
+
+        # Capture the condition if there is one. Make it true if none.
+        my $cond = length $3 ? $3 : '1';
+
+        # Save the sub name and set $break to 1 if $1 was 'postpone', 0
+        # if it was 'compile'.
+        my ( $subname, $break ) = ( $2, $1 eq 'postpone' );
+
+        # De-Perl4-ify the name - ' separators to ::.
+        $subname =~ s/\'/::/g;
+
+        # Qualify it into the current package unless it's already qualified.
+        $subname = "${package}::" . $subname
+          unless $subname =~ /::/;
+
+        # Add main if it starts with ::.
+        $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+        # Save the break type for this sub.
+        $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
+    } ## end elsif ($cmd =~ ...
+
+    # b <sub name> [<condition>]
+    elsif ( $cmd =~ /^([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/ ) {
+        my $subname = $1;
+        my $cond = length $2 ? $2 : '1';
+        cmd_b_sub( $subname, $cond );
+    }
+    # b <line> [<condition>].
+    elsif ( $cmd =~ /^(\d*)\s*(.*)/ ) {
+        my $i = $1 || $dbline;
+        my $cond = length $2 ? $2 : '1';
+        cmd_b_line( $i, $cond );
+    }
+} ## end sub cmd_pre580_b
+
+
+sub cmd_pre580_D {
+    my $xcmd = shift;
+    my $cmd  = shift;
+    if ( $cmd =~ /^\s*$/ ) {
+        print $OUT "Deleting all breakpoints...\n";
+
+        # %had_breakpoints lists every file that had at least one
+        # breakpoint in it.
+        my $file;
+        for $file ( keys %had_breakpoints ) {
+
+            # Switch to the desired file temporarily.
+            local *dbline = $main::{ '_<' . $file };
+
+            $max = $#dbline;
+            my $was;
+
+            # For all lines in this file ...
+            for my $i (1 .. $max) {
+
+                # If there's a breakpoint or action on this line ...
+                if ( defined $dbline{$i} ) {
+
+                    # ... remove the breakpoint.
+                    $dbline{$i} =~ s/^[^\0]+//;
+                    if ( $dbline{$i} =~ s/^\0?$// ) {
+
+                        # Remove the entry altogether if no action is there.
+                        delete $dbline{$i};
+                    }
+                } ## end if (defined $dbline{$i...
+            } ## end for my $i (1 .. $max)
+
+            # If, after we turn off the "there were breakpoints in this file"
+            # bit, the entry in %had_breakpoints for this file is zero,
+            # we should remove this file from the hash.
+            if ( not $had_breakpoints{$file} &= ~1 ) {
+                delete $had_breakpoints{$file};
+            }
+        } ## end for $file (keys %had_breakpoints)
+
+        # Kill off all the other breakpoints that are waiting for files that
+        # haven't been loaded yet.
+        undef %postponed;
+        undef %postponed_file;
+        undef %break_on_load;
+    } ## end if ($cmd =~ /^\s*$/)
+} ## end sub cmd_pre580_D
+
+
+sub cmd_pre580_h {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Print the *right* help, long format.
+    if ( $cmd =~ /^\s*$/ ) {
+        print_help($pre580_help);
+    }
+
+    # 'h h' - explicitly-requested summary.
+    elsif ( $cmd =~ /^h\s*/ ) {
+        print_help($pre580_summary);
+    }
+
+    # Find and print a command's help.
+    elsif ( $cmd =~ /^h\s+(\S.*)$/ ) {
+        my $asked  = $1;                   # for proper errmsg
+        my $qasked = quotemeta($asked);    # for searching
+                                           # XXX: finds CR but not <CR>
+        if (
+            $pre580_help =~ /^
+                              <?           # Optional '<'
+                              (?:[IB]<)    # Optional markup
+                              $qasked      # The command name
+                            /mx
+          )
+        {
+
+            while (
+                $pre580_help =~ /^
+                                  (             # The command help:
+                                   <?           # Optional '<'
+                                   (?:[IB]<)    # Optional markup
+                                   $qasked      # The command name
+                                   ([\s\S]*?)   # Lines starting with tabs
+                                   \n           # Final newline
+                                  )
+                                  (?!\s)/mgx
+              )    # Line not starting with space
+                   # (Next command's help)
+            {
+                print_help($1);
+            }
+        } ## end if ($pre580_help =~ /^<?(?:[IB]<)$qasked/m)
+
+        # Help not found.
+        else {
+            print_help("B<$asked> is not a debugger command.\n");
+        }
+    } ## end elsif ($cmd =~ /^h\s+(\S.*)$/)
+} ## end sub cmd_pre580_h
+
+
+sub cmd_pre580_W {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Delete all watch expressions.
+    if ( $cmd =~ /^$/ ) {
+
+        # No watching is going on.
+        $trace &= ~2;
+
+        # Kill all the watch expressions and values.
+        @to_watch = @old_watch = ();
+    }
+
+    # Add a watch expression.
+    elsif ( $cmd =~ /^(.*)/s ) {
+
+        # add it to the list to be watched.
+        push @to_watch, $1;
+
+        # Get the current value of the expression.
+        # Doesn't handle expressions returning list values!
+        $evalarg = $1;
+        # The &-call is here to ascertain the mutability of @_.
+        my ($val) = &DB::eval;
+        $val = ( defined $val ) ? "'$val'" : 'undef';
+
+        # Save it.
+        push @old_watch, $val;
+
+        # We're watching stuff.
+        $trace |= 2;
+
+    } ## end elsif ($cmd =~ /^(.*)/s)
+} ## end sub cmd_pre580_W
+
+
+sub cmd_pre590_prepost {
+    my $cmd    = shift;
+    my $line   = shift || '*';
+    my $dbline = shift;
+
+    return cmd_prepost( $cmd, $line, $dbline );
+} ## end sub cmd_pre590_prepost
+
+
+sub cmd_prepost {
+    my $cmd = shift;
+
+    # No action supplied defaults to 'list'.
+    my $line = shift || '?';
+
+    # Figure out what to put in the prompt.
+    my $which = '';
+
+    # Make sure we have some array or another to address later.
+    # This means that if for some reason the tests fail, we won't be
+    # trying to stash actions or delete them from the wrong place.
+    my $aref = [];
+
+    # < - Perl code to run before prompt.
+    if ( $cmd =~ /^\</o ) {
+        $which = 'pre-perl';
+        $aref  = $pre;
+    }
+
+    # > - Perl code to run after prompt.
+    elsif ( $cmd =~ /^\>/o ) {
+        $which = 'post-perl';
+        $aref  = $post;
+    }
+
+    # { - first check for properly-balanced braces.
+    elsif ( $cmd =~ /^\{/o ) {
+        if ( $cmd =~ /^\{.*\}$/o && unbalanced( substr( $cmd, 1 ) ) ) {
+            print $OUT
+"$cmd is now a debugger command\nuse ';$cmd' if you mean Perl code\n";
+        }
+
+        # Properly balanced. Pre-prompt debugger actions.
+        else {
+            $which = 'pre-debugger';
+            $aref  = $pretype;
+        }
+    } ## end elsif ( $cmd =~ /^\{/o )
+
+    # Did we find something that makes sense?
+    unless ($which) {
+        print $OUT "Confused by command: $cmd\n";
+    }
+
+    # Yes.
+    else {
+
+        # List actions.
+        if ( $line =~ /^\s*\?\s*$/o ) {
+            unless (@$aref) {
+
+                # Nothing there. Complain.
+                print $OUT "No $which actions.\n";
+            }
+            else {
+
+                # List the actions in the selected list.
+                print $OUT "$which commands:\n";
+                foreach my $action (@$aref) {
+                    print $OUT "\t$cmd -- $action\n";
+                }
+            } ## end else
+        } ## end if ( $line =~ /^\s*\?\s*$/o)
+
+        # Might be a delete.
+        else {
+            if ( length($cmd) == 1 ) {
+                if ( $line =~ /^\s*\*\s*$/o ) {
+
+                    # It's a delete. Get rid of the old actions in the
+                    # selected list..
+                    @$aref = ();
+                    print $OUT "All $cmd actions cleared.\n";
+                }
+                else {
+
+                    # Replace all the actions. (This is a <, >, or {).
+                    @$aref = action($line);
+                }
+            } ## end if ( length($cmd) == 1)
+            elsif ( length($cmd) == 2 ) {
+
+                # Add the action to the line. (This is a <<, >>, or {{).
+                push @$aref, action($line);
+            }
+            else {
+
+                # <<<, >>>>, {{{{{{ ... something not a command.
+                print $OUT
+                  "Confused by strange length of $which command($cmd)...\n";
+            }
+        } ## end else [ if ( $line =~ /^\s*\?\s*$/o)
+    } ## end else
+} ## end sub cmd_prepost
+
+
+package DB::fake;
+
+sub at_exit {
+    "Debugged program terminated.  Use 'q' to quit or 'R' to restart.";
+}
+
+package DB;    # Do not trace this 1; below!
+
+1;
+
+
+package if;
+
+$VERSION = '0.0608';
+
+sub work {
+  my $method = shift() ? 'import' : 'unimport';
+  unless (@_ >= 2) {
+    my $type = ($method eq 'import') ? 'use' : 'no';
+    die "Too few arguments to '$type if' (some code returning an empty list in list context?)"
+  }
+  return unless shift;		# CONDITION
+
+  my $p = $_[0];		# PACKAGE
+  (my $file = "$p.pm") =~ s!::!/!g;
+  require $file;		# Works even if $_[0] is a keyword (like open)
+  my $m = $p->can($method);
+  goto &$m if $m;
+}
+
+sub import   { shift; unshift @_, 1; goto &work }
+sub unimport { shift; unshift @_, 0; goto &work }
+
+1;
+__END__
+
+package FileCache;
+
+our $VERSION = '1.10';
+
+
+require 5.006;
+use Carp;
+use strict;
+no strict 'refs';
+
+# These are not C<my> for legacy reasons.
+# Previous versions requested the user set $cacheout_maxopen by hand.
+# Some authors fiddled with %saw to overcome the clobber on initial open.
+our %saw;
+our $cacheout_maxopen = 16;
+
+use parent 'Exporter';
+our @EXPORT = qw[cacheout cacheout_close];
+
+
+my %isopen;
+my $cacheout_seq = 0;
+
+sub import {
+    my ($pkg,%args) = @_;
+
+    # Use Exporter. %args are for us, not Exporter.
+    # Make sure to up export_to_level, or we will import into ourselves,
+    # rather than our calling package;
+
+    __PACKAGE__->export_to_level(1);
+    Exporter::import( $pkg );
+
+    # Truth is okay here because setting maxopen to 0 would be bad
+    return $cacheout_maxopen = $args{maxopen} if $args{maxopen};
+
+    # XXX This code is crazy.  Why is it a one element foreach loop?
+    # Why is it using $param both as a filename and filehandle?
+    foreach my $param ( '/usr/include/sys/param.h' ){
+      if (open($param, '<', $param)) {
+	local ($_, $.);
+	while (<$param>) {
+	  if( /^\s*#\s*define\s+NOFILE\s+(\d+)/ ){
+	    $cacheout_maxopen = $1 - 4;
+	    close($param);
+	    last;
+	  }
+	}
+	close $param;
+      }
+    }
+    $cacheout_maxopen ||= 16;
+}
+
+# Open in their package.
+sub cacheout_open {
+  return open(*{caller(1) . '::' . $_[1]}, $_[0], $_[1]) && $_[1];
+}
+
+# Close in their package.
+sub cacheout_close {
+  # Short-circuit in case the filehandle disappeared
+  my $pkg = caller($_[1]||0);
+  defined fileno(*{$pkg . '::' . $_[0]}) &&
+    CORE::close(*{$pkg . '::' . $_[0]});
+  delete $isopen{$_[0]};
+}
+
+# But only this sub name is visible to them.
+sub cacheout {
+    my($mode, $file, $class, $ret, $ref, $narg);
+    croak "Not enough arguments for cacheout"  unless $narg = scalar @_;
+    croak "Too many arguments for cacheout"    if $narg > 2;
+
+    ($mode, $file) = @_;
+    ($file, $mode) = ($mode, $file) if $narg == 1;
+    croak "Invalid mode for cacheout" if $mode &&
+      ( $mode !~ /^\s*(?:>>|\+?>|\+?<|\|\-|)|\-\|\s*$/ );
+
+    # Mode changed?
+    if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[1] ){
+      &cacheout_close($file, 1);
+    }
+
+    if( $isopen{$file}) {
+      $ret = $file;
+      $isopen{$file}->[0]++;
+    }
+    else{
+      if( scalar keys(%isopen) > $cacheout_maxopen -1 ) {
+	my @lru = sort{ $isopen{$a}->[0] <=> $isopen{$b}->[0] } keys(%isopen);
+	$cacheout_seq = 0;
+	$isopen{$_}->[0] = $cacheout_seq++ for
+	  splice(@lru, int($cacheout_maxopen / 3)||$cacheout_maxopen);
+	&cacheout_close($_, 1) for @lru;
+      }
+
+      unless( $ref ){
+	$mode ||= $saw{$file} ? '>>' : ($saw{$file}=1, '>');
+      }
+      #XXX should we just return the value from cacheout_open, no croak?
+      $ret = cacheout_open($mode, $file) or croak("Can't create $file: $!");
+
+      $isopen{$file} = [++$cacheout_seq, $mode];
+    }
+    return $ret;
+}
+1;
+package Digest;
+
+use strict;
+use vars qw($VERSION %MMAP $AUTOLOAD);
+
+$VERSION = "1.17_01";
+
+%MMAP = (
+  "SHA-1"      => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
+  "SHA-224"    => [["Digest::SHA", 224]],
+  "SHA-256"    => [["Digest::SHA", 256], ["Digest::SHA2", 256]],
+  "SHA-384"    => [["Digest::SHA", 384], ["Digest::SHA2", 384]],
+  "SHA-512"    => [["Digest::SHA", 512], ["Digest::SHA2", 512]],
+  "HMAC-MD5"   => "Digest::HMAC_MD5",
+  "HMAC-SHA-1" => "Digest::HMAC_SHA1",
+  "CRC-16"     => [["Digest::CRC", type => "crc16"]],
+  "CRC-32"     => [["Digest::CRC", type => "crc32"]],
+  "CRC-CCITT"  => [["Digest::CRC", type => "crcccitt"]],
+  "RIPEMD-160" => "Crypt::RIPEMD160",
+);
+
+sub new
+{
+    shift;  # class ignored
+    my $algorithm = shift;
+    my $impl = $MMAP{$algorithm} || do {
+        $algorithm =~ s/\W+//g;
+        "Digest::$algorithm";
+    };
+    $impl = [$impl] unless ref($impl);
+    local $@;  # don't clobber it for our caller
+    my $err;
+    for  (@$impl) {
+        my $class = $_;
+        my @args;
+        ($class, @args) = @$class if ref($class);
+        no strict 'refs';
+        unless (exists ${"$class\::"}{"VERSION"}) {
+            my $pm_file = $class . ".pm";
+            $pm_file =~ s{::}{/}g;
+            eval {
+                local @INC = @INC;
+                pop @INC if $INC[-1] eq '.';
+                require $pm_file
+	    };
+            if ($@) {
+                $err ||= $@;
+                next;
+            }
+        }
+        return $class->new(@args, @_);
+    }
+    die $err;
+}
+
+sub AUTOLOAD
+{
+    my $class = shift;
+    my $algorithm = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
+    $class->new($algorithm, @_);
+}
+
+1;
+
+__END__
+
+package utf8;
+
+$utf8::hint_bits = 0x00800000;
+
+our $VERSION = '1.21';
+
+sub import {
+    $^H |= $utf8::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$utf8::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "utf8_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+1;
+__END__
+
+package overloading;
+use warnings;
+
+our $VERSION = '0.02';
+
+my $HINT_NO_AMAGIC = 0x01000000; # see perl.h
+
+require 5.010001;
+
+sub _ops_to_nums {
+    require overload::numbers;
+
+    map { exists $overload::numbers::names{"($_"}
+	? $overload::numbers::names{"($_"}
+	: do { require Carp; Carp::croak("'$_' is not a valid overload") }
+    } @_;
+}
+
+sub import {
+    my ( $class, @ops ) = @_;
+
+    if ( @ops ) {
+	if ( $^H{overloading} ) {
+	    vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops);
+	}
+
+	if ( $^H{overloading} !~ /[^\0]/ ) {
+	    delete $^H{overloading};
+	    $^H &= ~$HINT_NO_AMAGIC;
+	}
+    } else {
+	delete $^H{overloading};
+	$^H &= ~$HINT_NO_AMAGIC;
+    }
+}
+
+sub unimport {
+    my ( $class, @ops ) = @_;
+
+    if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) {
+	if ( @ops ) {
+	    vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops);
+	} else {
+	    delete $^H{overloading};
+	}
+    }
+
+    $^H |= $HINT_NO_AMAGIC;
+}
+
+1;
+__END__
+
+package SelectSaver;
+
+our $VERSION = '1.02';
+
+
+require 5.000;
+use Carp;
+use Symbol;
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
+    my $fh = select;
+    my $self = bless \$fh, $_[0];
+    select qualify($_[1], caller) if @_ > 1;
+    $self;
+}
+
+sub DESTROY {
+    my $self = $_[0];
+    select $$self;
+}
+
+1;
+package bytes;
+
+our $VERSION = '1.06';
+
+$bytes::hint_bits = 0x00000008;
+
+sub import {
+    $^H |= $bytes::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$bytes::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "bytes_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+sub length (_);
+sub chr (_);
+sub ord (_);
+sub substr ($$;$$);
+sub index ($$;$);
+sub rindex ($$;$);
+
+1;
+__END__
+
+package experimental;
+$experimental::VERSION = '0.019';
+use strict;
+use warnings;
+use version ();
+
+BEGIN { eval { require feature } };
+use Carp qw/croak carp/;
+
+my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets;
+my %features = map { $_ => 1 } $] > 5.015006 ? keys %feature::feature : do {
+	my @features;
+	if ($] >= 5.010) {
+		push @features, qw/switch say state/;
+		push @features, 'unicode_strings' if $] > 5.011002;
+	}
+	@features;
+};
+
+my %min_version = (
+	array_base      => '5',
+	autoderef       => '5.14.0',
+	bitwise         => '5.22.0',
+	const_attr      => '5.22.0',
+	current_sub     => '5.16.0',
+	evalbytes       => '5.16.0',
+	fc              => '5.16.0',
+	lexical_topic   => '5.10.0',
+	lexical_subs    => '5.18.0',
+	postderef       => '5.20.0',
+	postderef_qq    => '5.20.0',
+	refaliasing     => '5.22.0',
+	regex_sets      => '5.18.0',
+	say             => '5.10.0',
+	smartmatch      => '5.10.0',
+	signatures      => '5.20.0',
+	state           => '5.10.0',
+	switch          => '5.10.0',
+	unicode_eval    => '5.16.0',
+	unicode_strings => '5.12.0',
+);
+my %max_version = (
+	autoderef       => '5.23.1',
+	lexical_topic   => '5.23.4',
+);
+
+$_ = version->new($_) for values %min_version;
+$_ = version->new($_) for values %max_version;
+
+my %additional = (
+	postderef  => ['postderef_qq'],
+	switch     => ['smartmatch'],
+);
+
+sub _enable {
+	my $pragma = shift;
+	if ($warnings{"experimental::$pragma"}) {
+		warnings->unimport("experimental::$pragma");
+		feature->import($pragma) if exists $features{$pragma};
+		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif ($features{$pragma}) {
+		feature->import($pragma);
+		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif (not exists $min_version{$pragma}) {
+		croak "Can't enable unknown feature $pragma";
+	}
+	elsif ($] < $min_version{$pragma}) {
+		my $stable = $min_version{$pragma};
+		if ($stable->{version}[1] % 2) {
+			$stable = version->new(
+				"5.".($stable->{version}[1]+1).'.0'
+			);
+		}
+		croak "Need perl $stable or later for feature $pragma";
+	}
+	elsif ($] >= ($max_version{$pragma} || 7)) {
+		croak "Experimental feature $pragma has been removed from perl in version $max_version{$pragma}";
+	}
+}
+
+sub import {
+	my ($self, @pragmas) = @_;
+
+	for my $pragma (@pragmas) {
+		_enable($pragma);
+	}
+	return;
+}
+
+sub _disable {
+	my $pragma = shift;
+	if ($warnings{"experimental::$pragma"}) {
+		warnings->import("experimental::$pragma");
+		feature->unimport($pragma) if exists $features{$pragma};
+		_disable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif ($features{$pragma}) {
+		feature->unimport($pragma);
+		_disable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif (not exists $min_version{$pragma}) {
+		carp "Can't disable unknown feature $pragma, ignoring";
+	}
+}
+
+sub unimport {
+	my ($self, @pragmas) = @_;
+
+	for my $pragma (@pragmas) {
+		_disable($pragma);
+	}
+	return;
+}
+
+1;
+
+#ABSTRACT: Experimental features made easy
+
+__END__
+
+package Test2;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+1;
+
+__END__
+
+package utf8;
+use strict;
+use warnings;
+use re "/aa";  # So we won't even try to look at above Latin1, potentially
+               # resulting in a recursive call
+
+sub DEBUG () { 0 }
+$|=1 if DEBUG;
+
+sub DESTROY {}
+
+my %Cache;
+
+sub croak { require Carp; Carp::croak(@_) }
+
+sub _loose_name ($) {
+    # Given a lowercase property or property-value name, return its
+    # standardized version that is expected for look-up in the 'loose' hashes
+    # in Heavy.pl (hence, this depends on what mktables does).  This squeezes
+    # out blanks, underscores and dashes.  The complication stems from the
+    # grandfathered-in 'L_', which retains a single trailing underscore.
+
+    (my $loose = $_[0]) =~ s/[-_ \t]//g;
+
+    return $loose if $loose !~ / ^ (?: is | to )? l $/x;
+    return 'l_' if $_[0] =~ / l .* _ /x;    # If original had a trailing '_'
+    return $loose;
+}
+
+##
+## "SWASH" == "SWATCH HASH". A "swatch" is a swatch of the Unicode landscape.
+## It's a data structure that encodes a set of Unicode characters.
+##
+
+{
+    # If a floating point number is within this distance from the value of a
+    # fraction, it is considered to be that fraction, even if many more digits
+    # are specified that don't exactly match.
+    my $min_floating_slop;
+
+    # To guard against this program calling something that in turn ends up
+    # calling this program with the same inputs, and hence infinitely
+    # recursing, we keep a stack of the properties that are currently in
+    # progress, pushed upon entry, popped upon return.
+    my @recursed;
+
+    sub SWASHNEW {
+        my ($class, $type, $list, $minbits, $none) = @_;
+        my $user_defined = 0;
+        local $^D = 0 if $^D;
+
+        $class = "" unless defined $class;
+        print STDERR __LINE__, ": class=$class, type=$type, list=",
+                                (defined $list) ? $list : ':undef:',
+                                ", minbits=$minbits, none=$none\n" if DEBUG;
+
+        ##
+        ## Get the list of codepoints for the type.
+        ## Called from swash_init (see utf8.c) or SWASHNEW itself.
+        ##
+        ## Callers of swash_init:
+        ##     op.c:pmtrans             -- for tr/// and y///
+        ##     regexec.c:regclass_swash -- for /[]/, \p, and \P
+        ##     utf8.c:is_utf8_common    -- for common Unicode properties
+        ##     utf8.c:S__to_utf8_case   -- for lc, uc, ucfirst, etc. and //i
+        ##     Unicode::UCD::prop_invlist
+        ##     Unicode::UCD::prop_invmap
+        ##
+        ## Given a $type, our goal is to fill $list with the set of codepoint
+        ## ranges. If $type is false, $list passed is used.
+        ##
+        ## $minbits:
+        ##     For binary properties, $minbits must be 1.
+        ##     For character mappings (case and transliteration), $minbits must
+        ##     be a number except 1.
+        ##
+        ## $list (or that filled according to $type):
+        ##     Refer to perlunicode.pod, "User-Defined Character Properties."
+        ##     
+        ##     For binary properties, only characters with the property value
+        ##     of True should be listed. The 3rd column, if any, will be ignored
+        ##
+        ## $none is undocumented, so I'm (khw) trying to do some documentation
+        ## of it now.  It appears to be if there is a mapping in an input file
+        ## that maps to 'XXXX', then that is replaced by $none+1, expressed in
+        ## hexadecimal.  It is used somehow in tr///.
+        ##
+        ## To make the parsing of $type clear, this code takes the a rather
+        ## unorthodox approach of last'ing out of the block once we have the
+        ## info we need. Were this to be a subroutine, the 'last' would just
+        ## be a 'return'.
+        ##
+        #   If a problem is found $type is returned;
+        #   Upon success, a new (or cached) blessed object is returned with
+        #   keys TYPE, BITS, EXTRAS, LIST, and NONE with values having the
+        #   same meanings as the input parameters.
+        #   SPECIALS contains a reference to any special-treatment hash in the
+        #       property.
+        #   INVERT_IT is non-zero if the result should be inverted before use
+        #   USER_DEFINED is non-zero if the result came from a user-defined
+        my $file; ## file to load data from, and also part of the %Cache key.
+
+        # Change this to get a different set of Unicode tables
+        my $unicore_dir = 'unicore';
+        my $invert_it = 0;
+        my $list_is_from_mktables = 0;  # Is $list returned from a mktables
+                                        # generated file?  If so, we know it's
+                                        # well behaved.
+
+        if ($type)
+        {
+            # Verify that this isn't a recursive call for this property.
+            # Can't use croak, as it may try to recurse to here itself.
+            my $class_type = $class . "::$type";
+            if (grep { $_ eq $class_type } @recursed) {
+                CORE::die "panic: Infinite recursion in SWASHNEW for '$type'\n";
+            }
+            push @recursed, $class_type;
+
+            $type =~ s/^\s+//;
+            $type =~ s/\s+$//;
+
+            # regcomp.c surrounds the property name with '__" and '_i' if this
+            # is to be caseless matching.
+            my $caseless = $type =~ s/^(.*)__(.*)_i$/$1$2/;
+
+            print STDERR __LINE__, ": type=$type, caseless=$caseless\n" if DEBUG;
+
+        GETFILE:
+            {
+                ##
+                ## It could be a user-defined property.  Look in current
+                ## package if no package given
+                ##
+
+
+                my $caller0 = caller(0);
+                my $caller1 = $type =~ s/(.+):://
+                              ? $1
+                              : $caller0 eq 'main'
+                                ? 'main'
+                                : caller(1);
+
+                if (defined $caller1 && $type =~ /^I[ns]\w+$/) {
+                    my $prop = "${caller1}::$type";
+                    if (exists &{$prop}) {
+                        # stolen from Scalar::Util::PP::tainted()
+                        my $tainted;
+                        {
+                            local($@, $SIG{__DIE__}, $SIG{__WARN__});
+                            local $^W = 0;
+                            no warnings;
+                            eval { kill 0 * $prop };
+                            $tainted = 1 if $@ =~ /^Insecure/;
+                        }
+                        die "Insecure user-defined property \\p{$prop}\n"
+                            if $tainted;
+                        no strict 'refs';
+                        $list = &{$prop}($caseless);
+                        $user_defined = 1;
+                        last GETFILE;
+                    }
+                }
+
+                # During Perl's compilation, this routine may be called before
+                # the tables are constructed.  If so, we have a chicken/egg
+                # problem.  If we die, the tables never get constructed, so
+                # keep going, but return an empty table so only what the code
+                # has compiled in internally (currently ASCII/Latin1 range
+                # matching) will work.
+                BEGIN {
+                    # Poor man's constant, to avoid a run-time check.
+                    $utf8::{miniperl}
+                        = \! defined &DynaLoader::boot_DynaLoader;
+                }
+                if (miniperl) {
+                    eval "require '$unicore_dir/Heavy.pl'";
+                    if ($@) {
+                        print STDERR __LINE__, ": '$@'\n" if DEBUG;
+                        pop @recursed if @recursed;
+                        return $type;
+                    }
+                }
+                else {
+                    require "$unicore_dir/Heavy.pl";
+                }
+                BEGIN { delete $utf8::{miniperl} }
+
+                # All property names are matched caselessly
+                my $property_and_table = CORE::lc $type;
+                print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+
+                # See if is of the compound form 'property=value', where the
+                # value indicates the table we should use.
+                my ($property, $table, @remainder) =
+                                    split /\s*[:=]\s*/, $property_and_table, -1;
+                if (@remainder) {
+                    pop @recursed if @recursed;
+                    return $type;
+                }
+
+                my $prefix;
+                if (! defined $table) {
+                        
+                    # Here, is the single form.  The property becomes empty, and
+                    # the whole value is the table.
+                    $table = $property;
+                    $prefix = $property = "";
+                } else {
+                    print STDERR __LINE__, ": $property\n" if DEBUG;
+
+                    # Here it is the compound property=table form.  The property
+                    # name is always loosely matched, and always can have an
+                    # optional 'is' prefix (which isn't true in the single
+                    # form).
+                    $property = _loose_name($property) =~ s/^is//r;
+
+                    # And convert to canonical form.  Quit if not valid.
+                    $property = $utf8::loose_property_name_of{$property};
+                    if (! defined $property) {
+                        pop @recursed if @recursed;
+                        return $type;
+                    }
+
+                    $prefix = "$property=";
+
+                    # If the rhs looks like it is a number...
+                    print STDERR __LINE__, ": table=$table\n" if DEBUG;
+                    if ($table =~ m{ ^ [ \s 0-9 _  + / . -]+ $ }x) {
+                        print STDERR __LINE__, ": table=$table\n" if DEBUG;
+
+                        # Don't allow leading nor trailing slashes 
+                        if ($table =~ / ^ \/ | \/ $ /x) {
+                            pop @recursed if @recursed;
+                            return $type;
+                        }
+
+                        # Split on slash, in case it is a rational, like \p{1/5}
+                        my @parts = split m{ \s* / \s* }x, $table, -1;
+                        print __LINE__, ": $type\n" if @parts > 2 && DEBUG;
+
+                        # Can have maximum of one slash
+                        if (@parts > 2) {
+                            pop @recursed if @recursed;
+                            return $type;
+                        }
+
+                        foreach my $part (@parts) {
+                            print __LINE__, ": part=$part\n" if DEBUG;
+
+                            $part =~ s/^\+\s*//;    # Remove leading plus
+                            $part =~ s/^-\s*/-/;    # Remove blanks after unary
+                                                    # minus
+
+                            # Remove underscores between digits.
+                            $part =~ s/(?<= [0-9] ) _ (?= [0-9] ) //xg;
+
+                            # No leading zeros (but don't make a single '0'
+                            # into a null string)
+                            $part =~ s/ ^ ( -? ) 0+ /$1/x;
+                            $part .= '0' if $part eq '-' || $part eq "";
+
+                            # No trailing zeros after a decimal point
+                            $part =~ s/ ( \. .*? ) 0+ $ /$1/x;
+
+                            # Begin with a 0 if a leading decimal point
+                            $part =~ s/ ^ ( -? ) \. /${1}0./x;
+
+                            # Ensure not a trailing decimal point: turn into an
+                            # integer
+                            $part =~ s/ \. $ //x;
+
+                            print STDERR __LINE__, ": part=$part\n" if DEBUG;
+                            #return $type if $part eq "";
+                            
+                            # Result better look like a number.  (This test is
+                            # needed because, for example could have a plus in
+                            # the middle.)
+                            if ($part !~ / ^ -? [0-9]+ ( \. [0-9]+)? $ /x) {
+                                pop @recursed if @recursed;
+                                return $type;
+                            }
+                        }
+
+                        #  If a rational...
+                        if (@parts == 2) {
+
+                            # If denominator is negative, get rid of it, and ...
+                            if ($parts[1] =~ s/^-//) {
+
+                                # If numerator is also negative, convert the
+                                # whole thing to positive, else move the minus
+                                # to the numerator
+                                if ($parts[0] !~ s/^-//) {
+                                    $parts[0] = '-' . $parts[0];
+                                }
+                            }
+                            $table = join '/', @parts;
+                        }
+                        elsif ($property ne 'nv' || $parts[0] !~ /\./) {
+
+                            # Here is not numeric value, or doesn't have a
+                            # decimal point.  No further manipulation is
+                            # necessary.  (Note the hard-coded property name.
+                            # This could fail if other properties eventually
+                            # had fractions as well; perhaps the cjk ones
+                            # could evolve to do that.  This hard-coding could
+                            # be fixed by mktables generating a list of
+                            # properties that could have fractions.)
+                            $table = $parts[0];
+                        } else {
+
+                            # Here is a floating point numeric_value.  Try to
+                            # convert to rational.  First see if is in the list
+                            # of known ones.
+                            if (exists $utf8::nv_floating_to_rational{$parts[0]}) {
+                                $table = $utf8::nv_floating_to_rational{$parts[0]};
+                            } else {
+
+                                # Here not in the list.  See if is close
+                                # enough to something in the list.  First
+                                # determine what 'close enough' means.  It has
+                                # to be as tight as what mktables says is the
+                                # maximum slop, and as tight as how many
+                                # digits we were passed.  That is, if the user
+                                # said .667, .6667, .66667, etc.  we match as
+                                # many digits as they passed until get to
+                                # where it doesn't matter any more due to the
+                                # machine's precision.  If they said .6666668,
+                                # we fail.
+                                (my $fraction = $parts[0]) =~ s/^.*\.//;
+                                my $epsilon = 10 ** - (length($fraction));
+                                if ($epsilon > $utf8::max_floating_slop) {
+                                    $epsilon = $utf8::max_floating_slop;
+                                }
+
+                                # But it can't be tighter than the minimum
+                                # precision for this machine.  If haven't
+                                # already calculated that minimum, do so now.
+                                if (! defined $min_floating_slop) {
+
+                                    # Keep going down an order of magnitude
+                                    # until find that adding this quantity to
+                                    # 1 remains 1; but put an upper limit on
+                                    # this so in case this algorithm doesn't
+                                    # work properly on some platform, that we
+                                    # won't loop forever.
+                                    my $count = 0;
+                                    $min_floating_slop = 1;
+                                    while (1+ $min_floating_slop != 1
+                                           && $count++ < 50)
+                                    {
+                                        my $next = $min_floating_slop / 10;
+                                        last if $next == 0; # If underflows,
+                                                            # use previous one
+                                        $min_floating_slop = $next;
+                                        print STDERR __LINE__, ": min_float_slop=$min_floating_slop\n" if DEBUG;
+                                    }
+
+                                    # Back off a couple orders of magnitude,
+                                    # just to be safe.
+                                    $min_floating_slop *= 100;
+                                }
+                                    
+                                if ($epsilon < $min_floating_slop) {
+                                    $epsilon = $min_floating_slop;
+                                }
+                                print STDERR __LINE__, ": fraction=.$fraction; epsilon=$epsilon\n" if DEBUG;
+
+                                undef $table;
+
+                                # And for each possible rational in the table,
+                                # see if it is within epsilon of the input.
+                                foreach my $official
+                                        (keys %utf8::nv_floating_to_rational)
+                                {
+                                    print STDERR __LINE__, ": epsilon=$epsilon, official=$official, diff=", abs($parts[0] - $official), "\n" if DEBUG;
+                                    if (abs($parts[0] - $official) < $epsilon) {
+                                      $table =
+                                      $utf8::nv_floating_to_rational{$official};
+                                        last;
+                                    }
+                                }
+
+                                # Quit if didn't find one.
+                                if (! defined $table) {
+                                    pop @recursed if @recursed;
+                                    return $type;
+                                }
+                            }
+                        }
+                        print STDERR __LINE__, ": $property=$table\n" if DEBUG;
+                    }
+                }
+
+                # Combine lhs (if any) and rhs to get something that matches
+                # the syntax of the lookups.
+                $property_and_table = "$prefix$table";
+                print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+
+                # First try stricter matching.
+                $file = $utf8::stricter_to_file_of{$property_and_table};
+
+                # If didn't find it, try again with looser matching by editing
+                # out the applicable characters on the rhs and looking up
+                # again.
+                my $strict_property_and_table;
+                if (! defined $file) {
+
+                    # This isn't used unless the name begins with 'to'
+                    $strict_property_and_table = $property_and_table =~  s/^to//r;
+                    $table = _loose_name($table);
+                    $property_and_table = "$prefix$table";
+                    print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+                    $file = $utf8::loose_to_file_of{$property_and_table};
+                }
+
+                # Add the constant and go fetch it in.
+                if (defined $file) {
+
+                    # If the file name contains a !, it means to invert.  The
+                    # 0+ makes sure result is numeric
+                    $invert_it = 0 + $file =~ s/!//;
+
+                    if ($utf8::why_deprecated{$file}) {
+                        warnings::warnif('deprecated', "Use of '$type' in \\p{} or \\P{} is deprecated because: $utf8::why_deprecated{$file};");
+                    }
+
+                    if ($caseless
+                        && exists $utf8::caseless_equivalent{$property_and_table})
+                    {
+                        $file = $utf8::caseless_equivalent{$property_and_table};
+                    }
+
+                    # The pseudo-directory '#' means that there really isn't a
+                    # file to read, the data is in-line as part of the string;
+                    # we extract it below.
+                    $file = "$unicore_dir/lib/$file.pl" unless $file =~ m!^#/!;
+                    last GETFILE;
+                }
+                print STDERR __LINE__, ": didn't find $property_and_table\n" if DEBUG;
+
+                ##
+                ## Last attempt -- see if it's a standard "To" name
+                ## (e.g. "ToLower")  ToTitle is used by ucfirst().
+                ## The user-level way to access ToDigit() and ToFold()
+                ## is to use Unicode::UCD.
+                ##
+                # Only check if caller wants non-binary
+                if ($minbits != 1) {
+                    if ($property_and_table =~ s/^to//) {
+                    # Look input up in list of properties for which we have
+                    # mapping files.  First do it with the strict approach
+                        if (defined ($file = $utf8::strict_property_to_file_of{
+                                                    $strict_property_and_table}))
+                        {
+                            $type = $utf8::file_to_swash_name{$file};
+                            print STDERR __LINE__, ": type set to $type\n"
+                                                                        if DEBUG;
+                            $file = "$unicore_dir/$file.pl";
+                            last GETFILE;
+                        }
+                        elsif (defined ($file =
+                          $utf8::loose_property_to_file_of{$property_and_table}))
+                        {
+                            $type = $utf8::file_to_swash_name{$file};
+                            print STDERR __LINE__, ": type set to $type\n"
+                                                                        if DEBUG;
+                            $file = "$unicore_dir/$file.pl";
+                            last GETFILE;
+                        }   # If that fails see if there is a corresponding binary
+                            # property file
+                        elsif (defined ($file =
+                                    $utf8::loose_to_file_of{$property_and_table}))
+                        {
+
+                            # Here, there is no map file for the property we
+                            # are trying to get the map of, but this is a
+                            # binary property, and there is a file for it that
+                            # can easily be translated to a mapping, so use
+                            # that, treating this as a binary property.
+                            # Setting 'minbits' here causes it to be stored as
+                            # such in the cache, so if someone comes along
+                            # later looking for just a binary, they get it.
+                            $minbits = 1;
+
+                            # The 0+ makes sure is numeric
+                            $invert_it = 0 + $file =~ s/!//;
+                            $file = "$unicore_dir/lib/$file.pl"
+                                                         unless $file =~ m!^#/!;
+                            last GETFILE;
+                        }
+                    }
+                }
+
+                ##
+                ## If we reach this line, it's because we couldn't figure
+                ## out what to do with $type. Ouch.
+                ##
+
+                pop @recursed if @recursed;
+                return $type;
+            } # end of GETFILE block
+
+            if (defined $file) {
+                print STDERR __LINE__, ": found it (file='$file')\n" if DEBUG;
+
+                ##
+                ## If we reach here, it was due to a 'last GETFILE' above
+                ## (exception: user-defined properties and mappings), so we
+                ## have a filename, so now we load it if we haven't already.
+
+                # The pseudo-directory '#' means the result isn't really a
+                # file, but is in-line, with semi-colons to be turned into
+                # new-lines.  Since it is in-line there is no advantage to
+                # caching the result
+                if ($file =~ s!^#/!!) {
+                    $list = $utf8::inline_definitions[$file];
+                }
+                else {
+                    # Here, we have an actual file to read in and load, but it
+                    # may already have been read-in and cached.  The cache key
+                    # is the class and file to load, and whether the results
+                    # need to be inverted.
+                    my $found = $Cache{$class, $file, $invert_it};
+                    if ($found and ref($found) eq $class) {
+                        print STDERR __LINE__, ": Returning cached swash for '$class,$file,$invert_it' for \\p{$type}\n" if DEBUG;
+                        pop @recursed if @recursed;
+                        return $found;
+                    }
+
+                    local $@;
+                    local $!;
+                    $list = do $file; die $@ if $@;
+                }
+
+                $list_is_from_mktables = 1;
+            }
+        } # End of $type is non-null
+
+        # Here, either $type was null, or we found the requested property and
+        # read it into $list
+
+        my $extras = "";
+
+        my $bits = $minbits;
+
+        # mktables lists don't have extras, like '&utf8::prop', so don't need
+        # to separate them; also lists are already sorted, so don't need to do
+        # that.
+        if ($list && ! $list_is_from_mktables) {
+            my $taint = substr($list,0,0); # maintain taint
+
+            # Separate the extras from the code point list, and make sure
+            # user-defined properties and tr/// are well-behaved for
+            # downstream code.
+            if ($user_defined || $none) {
+                my @tmp = split(/^/m, $list);
+                my %seen;
+                no warnings;
+
+                # The extras are anything that doesn't begin with a hex digit.
+                $extras = join '', $taint, grep /^[^0-9a-fA-F]/, @tmp;
+
+                # Remove the extras, and sort the remaining entries by the
+                # numeric value of their beginning hex digits, removing any
+                # duplicates.
+                $list = join '', $taint,
+                        map  { $_->[1] }
+                        sort { $a->[0] <=> $b->[0] }
+                        map  { /^([0-9a-fA-F]+)/ && !$seen{$1}++ ? [ CORE::hex($1), $_ ] : () }
+                        @tmp; # XXX doesn't do ranges right
+            }
+            else {
+                # mktables has gone to some trouble to make non-user defined
+                # properties well-behaved, so we can skip the effort we do for
+                # user-defined ones.  Any extras are at the very beginning of
+                # the string.
+
+                # This regex splits out the first lines of $list into $1 and
+                # strips them off from $list, until we get one that begins
+                # with a hex number, alone on the line, or followed by a tab.
+                # Either portion may be empty.
+                $list =~ s/ \A ( .*? )
+                            (?: \z | (?= ^ [0-9a-fA-F]+ (?: \t | $) ) )
+                          //msx;
+
+                $extras = "$taint$1";
+            }
+        }
+
+        if ($none) {
+            my $hextra = sprintf "%04x", $none + 1;
+            $list =~ s/\tXXXX$/\t$hextra/mg;
+        }
+
+        if ($minbits != 1 && $minbits < 32) { # not binary property
+            my $top = 0;
+            while ($list =~ /^([0-9a-fA-F]+)(?:[\t]([0-9a-fA-F]+)?)(?:[ \t]([0-9a-fA-F]+))?/mg) {
+                my $min = CORE::hex $1;
+                my $max = defined $2 ? CORE::hex $2 : $min;
+                my $val = defined $3 ? CORE::hex $3 : 0;
+                $val += $max - $min if defined $3;
+                $top = $val if $val > $top;
+            }
+            my $topbits =
+                $top > 0xffff ? 32 :
+                $top > 0xff ? 16 : 8;
+            $bits = $topbits if $bits < $topbits;
+        }
+
+        my @extras;
+        if ($extras) {
+            for my $x ($extras) {
+                my $taint = substr($x,0,0); # maintain taint
+                pos $x = 0;
+                while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) {
+                    my $char = "$1$taint";
+                    my $name = "$2$taint";
+                    print STDERR __LINE__, ": char [$char] => name [$name]\n"
+                        if DEBUG;
+                    if ($char =~ /[-+!&]/) {
+                        my ($c,$t) = split(/::/, $name, 2);	# bogus use of ::, really
+                        my $subobj;
+                        if ($c eq 'utf8') {
+                            $subobj = utf8->SWASHNEW($t, "", $minbits, 0);
+                        }
+                        elsif (exists &$name) {
+                            $subobj = utf8->SWASHNEW($name, "", $minbits, 0);
+                        }
+                        elsif ($c =~ /^([0-9a-fA-F]+)/) {
+                            $subobj = utf8->SWASHNEW("", $c, $minbits, 0);
+                        }
+                        print STDERR __LINE__, ": returned from getting sub object for $name\n" if DEBUG;
+                        if (! ref $subobj) {
+                            pop @recursed if @recursed && $type;
+                            return $subobj;
+                        }
+                        push @extras, $name => $subobj;
+                        $bits = $subobj->{BITS} if $bits < $subobj->{BITS};
+                        $user_defined = $subobj->{USER_DEFINED}
+                                              if $subobj->{USER_DEFINED};
+                    }
+                }
+            }
+        }
+
+        if (DEBUG) {
+            print STDERR __LINE__, ": CLASS = $class, TYPE => $type, BITS => $bits, NONE => $none, INVERT_IT => $invert_it, USER_DEFINED => $user_defined";
+            print STDERR "\nLIST =>\n$list" if defined $list;
+            print STDERR "\nEXTRAS =>\n$extras" if defined $extras;
+            print STDERR "\n";
+        }
+
+        my $SWASH = bless {
+            TYPE => $type,
+            BITS => $bits,
+            EXTRAS => $extras,
+            LIST => $list,
+            NONE => $none,
+            USER_DEFINED => $user_defined,
+            @extras,
+        } => $class;
+
+        if ($file) {
+            $Cache{$class, $file, $invert_it} = $SWASH;
+            if ($type
+                && exists $utf8::SwashInfo{$type}
+                && exists $utf8::SwashInfo{$type}{'specials_name'})
+            {
+                my $specials_name = $utf8::SwashInfo{$type}{'specials_name'};
+                no strict "refs";
+                print STDERR "\nspecials_name => $specials_name\n" if DEBUG;
+                $SWASH->{'SPECIALS'} = \%$specials_name;
+            }
+            $SWASH->{'INVERT_IT'} = $invert_it;
+        }
+
+        pop @recursed if @recursed && $type;
+
+        return $SWASH;
+    }
+}
+
+# Now SWASHGET is recasted into a C function S_swatch_get (see utf8.c).
+
+1;
+use 5.006_001;			# for (defined ref) and $#$v and our
+package Dumpvalue;
+use strict;
+our $VERSION = '1.18';
+our(%address, $stab, @stab, %stab, %subs);
+
+sub ASCII { return ord('A') == 65; }
+
+# This module will give incorrect results for some inputs on EBCDIC platforms
+# before v5.8
+*to_native = ($] lt "5.008")
+             ? sub { return shift }
+             : sub { return utf8::unicode_to_native(shift) };
+
+my $APC = chr to_native(0x9F);
+my $backslash_c_question = (ASCII) ? '\177' : $APC;
+
+# documentation nits, handle complex data structures better by chromatic
+# translate control chars to ^X - Randal Schwartz
+# Modifications to print types by Peter Gordon v1.0
+
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+
+# Won't dump symbol tables and contents of debugged files by default
+
+# (IZ) changes for objectification:
+#   c) quote() renamed to method set_quote();
+#   d) unctrlSet() renamed to method set_unctrl();
+#   f) Compiles with 'use strict', but in two places no strict refs is needed:
+#      maybe more problems are waiting...
+
+my %defaults = (
+		globPrint	      => 0,
+		printUndef	      => 1,
+		tick		      => "auto",
+		unctrl		      => 'quote',
+		subdump		      => 1,
+		dumpReused	      => 0,
+		bareStringify	      => 1,
+		hashDepth	      => '',
+		arrayDepth	      => '',
+		dumpDBFiles	      => '',
+		dumpPackages	      => '',
+		quoteHighBit	      => '',
+		usageOnly	      => '',
+		compactDump	      => '',
+		veryCompact	      => '',
+		stopDbSignal	      => '',
+	       );
+
+sub new {
+  my $class = shift;
+  my %opt = (%defaults, @_);
+  bless \%opt, $class;
+}
+
+sub set {
+  my $self = shift;
+  my %opt = @_;
+  @$self{keys %opt} = values %opt;
+}
+
+sub get {
+  my $self = shift;
+  wantarray ? @$self{@_} : $$self{pop @_};
+}
+
+sub dumpValue {
+  my $self = shift;
+  die "usage: \$dumper->dumpValue(value)" unless @_ == 1;
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  (print $self->stringify($_[0]), "\n"), return unless ref $_[0];
+  $self->unwrap($_[0],0);
+}
+
+sub dumpValues {
+  my $self = shift;
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  $self->unwrap(\@_,0);
+}
+
+# This one is good for variable names:
+
+sub unctrl {
+  local($_) = @_;
+
+  return \$_ if ref \$_ eq "GLOB";
+  s/([\000-\037])/'^' . chr(to_native(ord($1)^64))/eg;
+  s/ $backslash_c_question /^?/xg;
+  $_;
+}
+
+sub stringify {
+  my $self = shift;
+  local $_ = shift;
+  my $noticks = shift;
+  my $tick = $self->{tick};
+
+  return 'undef' unless defined $_ or not $self->{printUndef};
+  return $_ . "" if ref \$_ eq 'GLOB';
+  { no strict 'refs';
+    $_ = &{'overload::StrVal'}($_)
+      if $self->{bareStringify} and ref $_
+	and %overload:: and defined &{'overload::StrVal'};
+  }
+  if ($tick eq 'auto') {
+    if (/[^[:^cntrl:]\n]/) {   # All ASCII controls but \n get '"'
+      $tick = '"';
+    } else {
+      $tick = "'";
+    }
+  }
+  if ($tick eq "'") {
+    s/([\'\\])/\\$1/g;
+  } elsif ($self->{unctrl} eq 'unctrl') {
+    s/([\"\\])/\\$1/g ;
+    $_ = &unctrl($_);
+    s/([[:^ascii:]])/'\\0x'.sprintf('%2X',ord($1))/eg
+      if $self->{quoteHighBit};
+  } elsif ($self->{unctrl} eq 'quote') {
+    s/([\"\\\$\@])/\\$1/g if $tick eq '"';
+    s/\e/\\e/g;
+    s/([\000-\037$backslash_c_question])/'\\c'._escaped_ord($1)/eg;
+  }
+  s/([[:^ascii:]])/'\\'.sprintf('%3o',ord($1))/eg if $self->{quoteHighBit};
+  ($noticks || /^\d+(\.\d*)?\Z/)
+    ? $_
+      : $tick . $_ . $tick;
+}
+
+# Ensure a resulting \ is escaped to be \\
+sub _escaped_ord {
+    my $chr = shift;
+    if ($chr eq $backslash_c_question) {
+        $chr = '?';
+    }
+    else {
+        $chr = chr(to_native(ord($chr)^64));
+        $chr =~ s{\\}{\\\\}g;
+    }
+    return $chr;
+}
+
+sub DumpElem {
+  my ($self, $v) = (shift, shift);
+  my $short = $self->stringify($v, ref $v);
+  my $shortmore = '';
+  if ($self->{veryCompact} && ref $v
+      && (ref $v eq 'ARRAY' and !grep(ref $_, @$v) )) {
+    my $depth = $#$v;
+    ($shortmore, $depth) = (' ...', $self->{arrayDepth} - 1)
+      if $self->{arrayDepth} and $depth >= $self->{arrayDepth};
+    my @a = map $self->stringify($_), @$v[0..$depth];
+    print "0..$#{$v}  @a$shortmore\n";
+  } elsif ($self->{veryCompact} && ref $v
+	   && (ref $v eq 'HASH') and !grep(ref $_, values %$v)) {
+    my @a = sort keys %$v;
+    my $depth = $#a;
+    ($shortmore, $depth) = (' ...', $self->{hashDepth} - 1)
+      if $self->{hashDepth} and $depth >= $self->{hashDepth};
+    my @b = map {$self->stringify($_) . " => " . $self->stringify($$v{$_})}
+      @a[0..$depth];
+    local $" = ', ';
+    print "@b$shortmore\n";
+  } else {
+    print "$short\n";
+    $self->unwrap($v,shift);
+  }
+}
+
+sub unwrap {
+  my $self = shift;
+  return if $DB::signal and $self->{stopDbSignal};
+  my ($v) = shift ;
+  my ($s) = shift ;		# extra no of spaces
+  my $sp;
+  my (%v,@v,$address,$short,$fileno);
+
+  $sp = " " x $s ;
+  $s += 3 ;
+
+  # Check for reused addresses
+  if (ref $v) {
+    my $val = $v;
+    { no strict 'refs';
+      $val = &{'overload::StrVal'}($v)
+	if %overload:: and defined &{'overload::StrVal'};
+    }
+    ($address) = $val =~ /(0x[0-9a-f]+)\)$/ ;
+    if (!$self->{dumpReused} && defined $address) {
+      $address{$address}++ ;
+      if ( $address{$address} > 1 ) {
+	print "${sp}-> REUSED_ADDRESS\n" ;
+	return ;
+      }
+    }
+  } elsif (ref \$v eq 'GLOB') {
+    $address = "$v" . "";	# To avoid a bug with globs
+    $address{$address}++ ;
+    if ( $address{$address} > 1 ) {
+      print "${sp}*DUMPED_GLOB*\n" ;
+      return ;
+    }
+  }
+
+  if (ref $v eq 'Regexp') {
+    my $re = "$v";
+    $re =~ s,/,\\/,g;
+    print "$sp-> qr/$re/\n";
+    return;
+  }
+
+  if ( UNIVERSAL::isa($v, 'HASH') ) {
+    my @sortKeys = sort keys(%$v) ;
+    my $more;
+    my $tHashDepth = $#sortKeys ;
+    $tHashDepth = $#sortKeys < $self->{hashDepth}-1 ? $#sortKeys : $self->{hashDepth}-1
+      unless $self->{hashDepth} eq '' ;
+    $more = "....\n" if $tHashDepth < $#sortKeys ;
+    my $shortmore = "";
+    $shortmore = ", ..." if $tHashDepth < $#sortKeys ;
+    $#sortKeys = $tHashDepth ;
+    if ($self->{compactDump} && !grep(ref $_, values %{$v})) {
+      $short = $sp;
+      my @keys;
+      for (@sortKeys) {
+	push @keys, $self->stringify($_) . " => " . $self->stringify($v->{$_});
+      }
+      $short .= join ', ', @keys;
+      $short .= $shortmore;
+      (print "$short\n"), return if length $short <= $self->{compactDump};
+    }
+    for my $key (@sortKeys) {
+      return if $DB::signal and $self->{stopDbSignal};
+      my $value = $ {$v}{$key} ;
+      print $sp, $self->stringify($key), " => ";
+      $self->DumpElem($value, $s);
+    }
+    print "$sp  empty hash\n" unless @sortKeys;
+    print "$sp$more" if defined $more ;
+  } elsif ( UNIVERSAL::isa($v, 'ARRAY') ) {
+    my $tArrayDepth = $#{$v} ;
+    my $more ;
+    $tArrayDepth = $#$v < $self->{arrayDepth}-1 ? $#$v : $self->{arrayDepth}-1
+      unless  $self->{arrayDepth} eq '' ;
+    $more = "....\n" if $tArrayDepth < $#{$v} ;
+    my $shortmore = "";
+    $shortmore = " ..." if $tArrayDepth < $#{$v} ;
+    if ($self->{compactDump} && !grep(ref $_, @{$v})) {
+      if ($#$v >= 0) {
+	$short = $sp . "0..$#{$v}  " .
+	  join(" ", 
+	       map {exists $v->[$_] ? $self->stringify($v->[$_]) : "empty"} (0..$tArrayDepth)
+	      ) . "$shortmore";
+      } else {
+	$short = $sp . "empty array";
+      }
+      (print "$short\n"), return if length $short <= $self->{compactDump};
+    }
+    for my $num (0 .. $tArrayDepth) {
+      return if $DB::signal and $self->{stopDbSignal};
+      print "$sp$num  ";
+      if (exists $v->[$num]) {
+        $self->DumpElem($v->[$num], $s);
+      } else {
+	print "empty slot\n";
+      }
+    }
+    print "$sp  empty array\n" unless @$v;
+    print "$sp$more" if defined $more ;
+  } elsif (  UNIVERSAL::isa($v, 'SCALAR') or ref $v eq 'REF' ) {
+    print "$sp-> ";
+    $self->DumpElem($$v, $s);
+  } elsif ( UNIVERSAL::isa($v, 'CODE') ) {
+    print "$sp-> ";
+    $self->dumpsub(0, $v);
+  } elsif ( UNIVERSAL::isa($v, 'GLOB') ) {
+    print "$sp-> ",$self->stringify($$v,1),"\n";
+    if ($self->{globPrint}) {
+      $s += 3;
+      $self->dumpglob('', $s, "{$$v}", $$v, 1);
+    } elsif (defined ($fileno = fileno($v))) {
+      print( (' ' x ($s+3)) .  "FileHandle({$$v}) => fileno($fileno)\n" );
+    }
+  } elsif (ref \$v eq 'GLOB') {
+    if ($self->{globPrint}) {
+      $self->dumpglob('', $s, "{$v}", $v, 1);
+    } elsif (defined ($fileno = fileno(\$v))) {
+      print( (' ' x $s) .  "FileHandle({$v}) => fileno($fileno)\n" );
+    }
+  }
+}
+
+sub matchvar {
+  $_[0] eq $_[1] or
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and
+      ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/});
+}
+
+sub compactDump {
+  my $self = shift;
+  $self->{compactDump} = shift if @_;
+  $self->{compactDump} = 6*80-1 
+    if $self->{compactDump} and $self->{compactDump} < 2;
+  $self->{compactDump};
+}
+
+sub veryCompact {
+  my $self = shift;
+  $self->{veryCompact} = shift if @_;
+  $self->compactDump(1) if !$self->{compactDump} and $self->{veryCompact};
+  $self->{veryCompact};
+}
+
+sub set_unctrl {
+  my $self = shift;
+  if (@_) {
+    my $in = shift;
+    if ($in eq 'unctrl' or $in eq 'quote') {
+      $self->{unctrl} = $in;
+    } else {
+      print "Unknown value for 'unctrl'.\n";
+    }
+  }
+  $self->{unctrl};
+}
+
+sub set_quote {
+  my $self = shift;
+  if (@_ and $_[0] eq '"') {
+    $self->{tick} = '"';
+    $self->{unctrl} = 'quote';
+  } elsif (@_ and $_[0] eq 'auto') {
+    $self->{tick} = 'auto';
+    $self->{unctrl} = 'quote';
+  } elsif (@_) {		# Need to set
+    $self->{tick} = "'";
+    $self->{unctrl} = 'unctrl';
+  }
+  $self->{tick};
+}
+
+sub dumpglob {
+  my $self = shift;
+  return if $DB::signal and $self->{stopDbSignal};
+  my ($package, $off, $key, $val, $all) = @_;
+  local(*stab) = $val;
+  my $fileno;
+  if (($key !~ /^_</ or $self->{dumpDBFiles}) and defined $stab) {
+    print( (' ' x $off) . "\$", &unctrl($key), " = " );
+    $self->DumpElem($stab, 3+$off);
+  }
+  if (($key !~ /^_</ or $self->{dumpDBFiles}) and @stab) {
+    print( (' ' x $off) . "\@$key = (\n" );
+    $self->unwrap(\@stab,3+$off) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  if ($key ne "main::" && $key ne "DB::" && %stab
+      && ($self->{dumpPackages} or $key !~ /::$/)
+      && ($key !~ /^_</ or $self->{dumpDBFiles})
+      && !($package eq "Dumpvalue" and $key eq "stab")) {
+    print( (' ' x $off) . "\%$key = (\n" );
+    $self->unwrap(\%stab,3+$off) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  if (defined ($fileno = fileno(*stab))) {
+    print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+  }
+  if ($all) {
+    if (defined &stab) {
+      $self->dumpsub($off, $key);
+    }
+  }
+}
+
+sub CvGV_name {
+  my $self = shift;
+  my $in = shift;
+  return if $self->{skipCvGV};	# Backdoor to avoid problems if XS broken...
+  $in = \&$in;			# Hard reference...
+  eval {require Devel::Peek; 1} or return;
+  my $gv = Devel::Peek::CvGV($in) or return;
+  *$gv{PACKAGE} . '::' . *$gv{NAME};
+}
+
+sub dumpsub {
+  my $self = shift;
+  my ($off,$sub) = @_;
+  my $ini = $sub;
+  my $s;
+  $sub = $1 if $sub =~ /^\{\*(.*)\}$/;
+  my $subref = defined $1 ? \&$sub : \&$ini;
+  my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
+    || (($s = $self->CvGV_name($subref)) && $DB::sub{$s})
+    || ($self->{subdump} && ($s = $self->findsubs("$subref"))
+	&& $DB::sub{$s});
+  $s = $sub unless defined $s;
+  $place = '???' unless defined $place;
+  print( (' ' x $off) .  "&$s in $place\n" );
+}
+
+sub findsubs {
+  my $self = shift;
+  return undef unless %DB::sub;
+  my ($addr, $name, $loc);
+  while (($name, $loc) = each %DB::sub) {
+    $addr = \&$name;
+    $subs{"$addr"} = $name;
+  }
+  $self->{subdump} = 0;
+  $subs{ shift() };
+}
+
+sub dumpvars {
+  my $self = shift;
+  my ($package,@vars) = @_;
+  local(%address,$^W);
+  my ($key,$val);
+  $package .= "::" unless $package =~ /::$/;
+  *stab = *main::;
+
+  while ($package =~ /(\w+?::)/g) {
+    *stab = $ {stab}{$1};
+  }
+  $self->{TotalStrings} = 0;
+  $self->{Strings} = 0;
+  $self->{CompleteTotal} = 0;
+  while (($key,$val) = each(%stab)) {
+    return if $DB::signal and $self->{stopDbSignal};
+    next if @vars && !grep( matchvar($key, $_), @vars );
+    if ($self->{usageOnly}) {
+      $self->globUsage(\$val, $key)
+	if ($package ne 'Dumpvalue' or $key ne 'stab')
+	   and ref(\$val) eq 'GLOB';
+    } else {
+      $self->dumpglob($package, 0,$key, $val);
+    }
+  }
+  if ($self->{usageOnly}) {
+    print <<EOP;
+String space: $self->{TotalStrings} bytes in $self->{Strings} strings.
+EOP
+    $self->{CompleteTotal} += $self->{TotalStrings};
+    print <<EOP;
+Grand total = $self->{CompleteTotal} bytes (1 level deep) + overhead.
+EOP
+  }
+}
+
+sub scalarUsage {
+  my $self = shift;
+  my $size;
+  if (UNIVERSAL::isa($_[0], 'ARRAY')) {
+	$size = $self->arrayUsage($_[0]);
+  } elsif (UNIVERSAL::isa($_[0], 'HASH')) {
+	$size = $self->hashUsage($_[0]);
+  } elsif (!ref($_[0])) {
+	$size = length($_[0]);
+  }
+  $self->{TotalStrings} += $size;
+  $self->{Strings}++;
+  $size;
+}
+
+sub arrayUsage {		# array ref, name
+  my $self = shift;
+  my $size = 0;
+  map {$size += $self->scalarUsage($_)} @{$_[0]};
+  my $len = @{$_[0]};
+  print "\@$_[1] = $len item", ($len > 1 ? "s" : ""), " (data: $size bytes)\n"
+      if defined $_[1];
+  $self->{CompleteTotal} +=  $size;
+  $size;
+}
+
+sub hashUsage {			# hash ref, name
+  my $self = shift;
+  my @keys = keys %{$_[0]};
+  my @values = values %{$_[0]};
+  my $keys = $self->arrayUsage(\@keys);
+  my $values = $self->arrayUsage(\@values);
+  my $len = @keys;
+  my $total = $keys + $values;
+  print "\%$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (keys: $keys; values: $values; total: $total bytes)\n"
+      if defined $_[1];
+  $total;
+}
+
+sub globUsage {			# glob ref, name
+  my $self = shift;
+  local *stab = *{$_[0]};
+  my $total = 0;
+  $total += $self->scalarUsage($stab) if defined $stab;
+  $total += $self->arrayUsage(\@stab, $_[1]) if @stab;
+  $total += $self->hashUsage(\%stab, $_[1]) 
+    if %stab and $_[1] ne "main::" and $_[1] ne "DB::";	
+  #and !($package eq "Dumpvalue" and $key eq "stab"));
+  $total;
+}
+
+1;
+
+
+package sort;
+
+our $VERSION = '2.04';
+
+# The hints for pp_sort are now stored in $^H{sort}; older versions
+# of perl used the global variable $sort::hints. -- rjh 2005-12-19
+
+$sort::stable_bit      = 0x00000100;
+$sort::unstable_bit    = 0x00000200;
+
+use strict;
+
+sub import {
+    shift;
+    if (@_ == 0) {
+	require Carp;
+	Carp::croak("sort pragma requires arguments");
+    }
+    local $_;
+    $^H{sort} //= 0;
+    while ($_ = shift(@_)) {
+	if ($_ eq 'stable') {
+	    $^H{sort} |=  $sort::stable_bit;
+	    $^H{sort} &= ~$sort::unstable_bit;
+	} elsif ($_ eq 'defaults') {
+	    $^H{sort} =   0;
+	} else {
+	    require Carp;
+	    Carp::croak("sort: unknown subpragma '$_'");
+	}
+    }
+}
+
+sub unimport {
+    shift;
+    if (@_ == 0) {
+	require Carp;
+	Carp::croak("sort pragma requires arguments");
+    }
+    local $_;
+    no warnings 'uninitialized';	# bitops would warn
+    while ($_ = shift(@_)) {
+	if ($_ eq 'stable') {
+	    $^H{sort} &= ~$sort::stable_bit;
+	    $^H{sort} |=  $sort::unstable_bit;
+	} else {
+	    require Carp;
+	    Carp::croak("sort: unknown subpragma '$_'");
+	}
+    }
+}
+
+sub current {
+    my @sort;
+    if ($^H{sort}) {
+	push @sort, 'stable'    if $^H{sort} & $sort::stable_bit;
+    }
+    join(' ', @sort);
+}
+
+1;
+__END__
+
+
+package AnyDBM_File;
+use warnings;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
+
+my $mod;
+for $mod (@ISA) {
+    if (eval "require $mod") {
+	@ISA = ($mod);	# if we leave @ISA alone, warnings abound
+	return 1;
+    }
+}
+
+die "No DBM package was successfully found or installed";
+
+__END__
+
+# -*- buffer-read-only: t -*-
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/feature.pl.
+# Any changes made here will be lost!
+
+package feature;
+
+our $VERSION = '1.52';
+
+our %feature = (
+    fc              => 'feature_fc',
+    say             => 'feature_say',
+    state           => 'feature_state',
+    switch          => 'feature_switch',
+    bitwise         => 'feature_bitwise',
+    evalbytes       => 'feature_evalbytes',
+    array_base      => 'feature_arybase',
+    signatures      => 'feature_signatures',
+    current_sub     => 'feature___SUB__',
+    refaliasing     => 'feature_refaliasing',
+    postderef_qq    => 'feature_postderef_qq',
+    unicode_eval    => 'feature_unieval',
+    declared_refs   => 'feature_myref',
+    unicode_strings => 'feature_unicode',
+);
+
+our %feature_bundle = (
+    "5.10"    => [qw(array_base say state switch)],
+    "5.11"    => [qw(array_base say state switch unicode_strings)],
+    "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
+    "5.23"    => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
+    "5.27"    => [qw(bitwise current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
+    "default" => [qw(array_base)],
+);
+
+$feature_bundle{"5.12"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.13"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.14"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.16"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.17"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.18"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.19"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.20"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.21"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.22"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.24"} = $feature_bundle{"5.23"};
+$feature_bundle{"5.25"} = $feature_bundle{"5.23"};
+$feature_bundle{"5.26"} = $feature_bundle{"5.23"};
+$feature_bundle{"5.28"} = $feature_bundle{"5.27"};
+$feature_bundle{"5.9.5"} = $feature_bundle{"5.10"};
+my %noops = (
+    postderef => 1,
+    lexical_subs => 1,
+);
+
+our $hint_shift   = 26;
+our $hint_mask    = 0x1c000000;
+our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 5.27 );
+
+# This gets set (for now) in $^H as well as in %^H,
+# for runtime speed of the uc/lc/ucfirst/lcfirst functions.
+# See HINT_UNI_8_BIT in perl.h.
+our $hint_uni8bit = 0x00000800;
+
+# TODO:
+# - think about versioned features (use feature switch => 2)
+
+
+sub import {
+    shift;
+
+    if (!@_) {
+        croak("No features specified");
+    }
+
+    __common(1, @_);
+}
+
+sub unimport {
+    shift;
+
+    # A bare C<no feature> should reset to the default bundle
+    if (!@_) {
+	$^H &= ~($hint_uni8bit|$hint_mask);
+	return;
+    }
+
+    __common(0, @_);
+}
+
+
+sub __common {
+    my $import = shift;
+    my $bundle_number = $^H & $hint_mask;
+    my $features = $bundle_number != $hint_mask
+	&& $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]};
+    if ($features) {
+	# Features are enabled implicitly via bundle hints.
+	# Delete any keys that may be left over from last time.
+	delete @^H{ values(%feature) };
+	$^H |= $hint_mask;
+	for (@$features) {
+	    $^H{$feature{$_}} = 1;
+	    $^H |= $hint_uni8bit if $_ eq 'unicode_strings';
+	}
+    }
+    while (@_) {
+        my $name = shift;
+        if (substr($name, 0, 1) eq ":") {
+            my $v = substr($name, 1);
+            if (!exists $feature_bundle{$v}) {
+                $v =~ s/^([0-9]+)\.([0-9]+).[0-9]+$/$1.$2/;
+                if (!exists $feature_bundle{$v}) {
+                    unknown_feature_bundle(substr($name, 1));
+                }
+            }
+            unshift @_, @{$feature_bundle{$v}};
+            next;
+        }
+        if (!exists $feature{$name}) {
+            if (exists $noops{$name}) {
+                next;
+            }
+            unknown_feature($name);
+        }
+	if ($import) {
+	    $^H{$feature{$name}} = 1;
+	    $^H |= $hint_uni8bit if $name eq 'unicode_strings';
+	} else {
+            delete $^H{$feature{$name}};
+            $^H &= ~ $hint_uni8bit if $name eq 'unicode_strings';
+        }
+    }
+}
+
+sub unknown_feature {
+    my $feature = shift;
+    croak(sprintf('Feature "%s" is not supported by Perl %vd',
+            $feature, $^V));
+}
+
+sub unknown_feature_bundle {
+    my $feature = shift;
+    croak(sprintf('Feature bundle "%s" is not supported by Perl %vd',
+            $feature, $^V));
+}
+
+sub croak {
+    require Carp;
+    Carp::croak(@_);
+}
+
+1;
+
+# ex: set ro:
+package subs;
+
+our $VERSION = '1.03';
+
+
+require 5.000;
+
+sub import {
+    my $callpack = caller;
+    my $pack = shift;
+    my @imports = @_;
+    foreach my $sym (@imports) {
+	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
+    }
+};
+
+1;
+package SelfLoader;
+use 5.008;
+use strict;
+use IO::Handle;
+our $VERSION = "1.25";
+
+# The following bit of eval-magic is necessary to make this work on
+# perls < 5.009005.
+our $AttrList;
+BEGIN {
+  if ($] > 5.009004) {
+    eval <<'NEWERPERL';
+use 5.009005; # due to new regexp features
+# allow checking for valid ': attrlist' attachments
+# see also AutoSplit
+$AttrList = qr{
+    \s* : \s*
+    (?:
+	# one attribute
+	(?> # no backtrack
+	    (?! \d) \w+
+	    (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ?
+	)
+	(?: \s* : \s* | \s+ (?! :) )
+    )*
+}x;
+
+NEWERPERL
+  }
+  else {
+    eval <<'OLDERPERL';
+# allow checking for valid ': attrlist' attachments
+# (we use 'our' rather than 'my' here, due to the rather complex and buggy
+# behaviour of lexicals with qr// and (??{$lex}) )
+our $nested;
+$nested = qr{ \( (?: (?> [^()]+ ) | (??{ $nested }) )* \) }x;
+our $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
+$AttrList = qr{ \s* : \s* (?: $one_attr )* }x;
+OLDERPERL
+  }
+}
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(AUTOLOAD);
+sub Version {$VERSION}
+sub DEBUG () { 0 }
+
+my %Cache;      # private cache for all SelfLoader's client packages
+
+# in croak and carp, protect $@ from "require Carp;" RT #40216
+
+sub croak { { local $@; require Carp; } goto &Carp::croak }
+sub carp { { local $@; require Carp; } goto &Carp::carp }
+
+AUTOLOAD {
+    our $AUTOLOAD;
+    print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if DEBUG;
+    my $SL_code = $Cache{$AUTOLOAD};
+    my $save = $@; # evals in both AUTOLOAD and _load_stubs can corrupt $@
+    unless ($SL_code) {
+        # Maybe this pack had stubs before __DATA__, and never initialized.
+        # Or, this maybe an automatic DESTROY method call when none exists.
+        $AUTOLOAD =~ m/^(.*)::/;
+        SelfLoader->_load_stubs($1) unless exists $Cache{"${1}::<DATA"};
+        $SL_code = $Cache{$AUTOLOAD};
+        $SL_code = "sub $AUTOLOAD { }"
+            if (!$SL_code and $AUTOLOAD =~ m/::DESTROY$/);
+        croak "Undefined subroutine $AUTOLOAD" unless $SL_code;
+    }
+    print STDERR "SelfLoader::AUTOLOAD eval: $SL_code\n" if DEBUG;
+
+    {
+	no strict;
+	eval $SL_code;
+    }
+    if ($@) {
+        $@ =~ s/ at .*\n//;
+        croak $@;
+    }
+    $@ = $save;
+    defined(&$AUTOLOAD) || die "SelfLoader inconsistency error";
+    delete $Cache{$AUTOLOAD};
+    goto &$AUTOLOAD
+}
+
+sub load_stubs { shift->_load_stubs((caller)[0]) }
+
+sub _load_stubs {
+    # $endlines is used by Devel::SelfStubber to capture lines after __END__
+    my($self, $callpack, $endlines) = @_;
+    no strict "refs";
+    my $fh = \*{"${callpack}::DATA"};
+    use strict;
+    my $currpack = $callpack;
+    my($line,$name,@lines, @stubs, $protoype);
+
+    print STDERR "SelfLoader::load_stubs($callpack)\n" if DEBUG;
+    croak("$callpack doesn't contain an __DATA__ token")
+        unless defined fileno($fh);
+    # Protect: fork() shares the file pointer between the parent and the kid
+    if(sysseek($fh, tell($fh), 0)) {
+      open my $nfh, '<&', $fh or croak "reopen: $!";# dup() the fd
+      close $fh or die "close: $!";                 # autocloses, but be
+                                                    # paranoid
+      open $fh, '<&', $nfh or croak "reopen2: $!";  # dup() the fd "back"
+      close $nfh or die "close after reopen: $!";   # autocloses, but be
+                                                    # paranoid
+      $fh->untaint;
+    }
+    $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
+
+    local($/) = "\n";
+    while(defined($line = <$fh>) and $line !~ m/^__END__/) {
+	if ($line =~ m/ ^\s*                        # indentation
+	                sub\s+([\w:]+)\s*           # 'sub' and sub name
+	                (
+	                 (?:\([\\\$\@\%\&\*\;]*\))? # optional prototype sigils
+	                 (?:$AttrList)?             # optional attribute list
+	                )/x) {
+            push(@stubs, $self->_add_to_cache($name, $currpack,
+                                              \@lines, $protoype));
+            $protoype = $2;
+            @lines = ($line);
+            if (index($1,'::') == -1) {         # simple sub name
+                $name = "${currpack}::$1";
+            } else {                            # sub name with package
+                $name = $1;
+                $name =~ m/^(.*)::/;
+                if (defined(&{"${1}::AUTOLOAD"})) {
+                    \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD ||
+                        die 'SelfLoader Error: attempt to specify Selfloading',
+                            " sub $name in non-selfloading module $1";
+                } else {
+                    $self->export($1,'AUTOLOAD');
+                }
+            }
+        } elsif ($line =~ m/^package\s+([\w:]+)/) { # A package declared
+            push(@stubs, $self->_add_to_cache($name, $currpack,
+                                              \@lines, $protoype));
+            $self->_package_defined($line);
+            $name = '';
+            @lines = ();
+            $currpack = $1;
+            $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
+            if (defined(&{"${1}::AUTOLOAD"})) {
+                \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD ||
+                    die 'SelfLoader Error: attempt to specify Selfloading',
+                        " package $currpack which already has AUTOLOAD";
+            } else {
+                $self->export($currpack,'AUTOLOAD');
+            }
+        } else {
+            push(@lines,$line);
+        }
+    }
+    if (defined($line) && $line =~ /^__END__/) { # __END__
+        unless ($line =~ /^__END__\s*DATA/) {
+            if ($endlines) {
+                # Devel::SelfStubber would like us to capture the lines after
+                # __END__ so it can write out the entire file
+                @$endlines = <$fh>;
+            }
+            close($fh);
+        }
+    }
+    push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype));
+    no strict;
+    eval join('', @stubs) if @stubs;
+}
+
+
+sub _add_to_cache {
+    my($self,$fullname,$pack,$lines, $protoype) = @_;
+    return () unless $fullname;
+    carp("Redefining sub $fullname")
+      if exists $Cache{$fullname};
+    $Cache{$fullname} = join('',
+                             "\n\#line 1 \"sub $fullname\"\npackage $pack; ",
+                             @$lines);
+    #$Cache{$fullname} = join('', "package $pack; ",@$lines);
+    print STDERR "SelfLoader cached $fullname: $Cache{$fullname}" if DEBUG;
+    # return stub to be eval'd
+    defined($protoype) ? "sub $fullname $protoype;" : "sub $fullname;"
+}
+
+sub _package_defined {}
+
+1;
+__END__
+
+package overload;
+
+our $VERSION = '1.30';
+
+%ops = (
+    with_assign         => "+ - * / % ** << >> x .",
+    assign              => "+= -= *= /= %= **= <<= >>= x= .=",
+    num_comparison      => "< <= >  >= == !=",
+    '3way_comparison'   => "<=> cmp",
+    str_comparison      => "lt le gt ge eq ne",
+    binary              => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
+    unary               => "neg ! ~ ~.",
+    mutators            => '++ --',
+    func                => "atan2 cos sin exp abs log sqrt int",
+    conversion          => 'bool "" 0+ qr',
+    iterators           => '<>',
+    filetest            => "-X",
+    dereferencing       => '${} @{} %{} &{} *{}',
+    matching            => '~~',
+    special             => 'nomethod fallback =',
+);
+
+my %ops_seen;
+@ops_seen{ map split(/ /), values %ops } = ();
+
+sub nil {}
+
+sub OVERLOAD {
+  $package = shift;
+  my %arg = @_;
+  my $sub;
+  *{$package . "::(("} = \&nil; # Make it findable via fetchmethod.
+  for (keys %arg) {
+    if ($_ eq 'fallback') {
+      for my $sym (*{$package . "::()"}) {
+	*$sym = \&nil; # Make it findable via fetchmethod.
+	$$sym = $arg{$_};
+      }
+    } else {
+      warnings::warnif("overload arg '$_' is invalid")
+        unless exists $ops_seen{$_};
+      $sub = $arg{$_};
+      if (not ref $sub) {
+	$ {$package . "::(" . $_} = $sub;
+	$sub = \&nil;
+      }
+      #print STDERR "Setting '$ {'package'}::\cO$_' to \\&'$sub'.\n";
+      *{$package . "::(" . $_} = \&{ $sub };
+    }
+  }
+}
+
+sub import {
+  $package = (caller())[0];
+  # *{$package . "::OVERLOAD"} = \&OVERLOAD;
+  shift;
+  $package->overload::OVERLOAD(@_);
+}
+
+sub unimport {
+  $package = (caller())[0];
+  shift;
+  *{$package . "::(("} = \&nil;
+  for (@_) {
+      warnings::warnif("overload arg '$_' is invalid")
+        unless exists $ops_seen{$_};
+      delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
+  }
+}
+
+sub Overloaded {
+  my $package = shift;
+  $package = ref $package if ref $package;
+  mycan ($package, '()') || mycan ($package, '((');
+}
+
+sub ov_method {
+  my $globref = shift;
+  return undef unless $globref;
+  my $sub = \&{*$globref};
+  no overloading;
+  return $sub if $sub != \&nil;
+  return shift->can($ {*$globref});
+}
+
+sub OverloadedStringify {
+  my $package = shift;
+  $package = ref $package if ref $package;
+  #$package->can('(""')
+  ov_method mycan($package, '(""'), $package
+    or ov_method mycan($package, '(0+'), $package
+    or ov_method mycan($package, '(bool'), $package
+    or ov_method mycan($package, '(nomethod'), $package;
+}
+
+sub Method {
+  my $package = shift;
+  if(ref $package) {
+    local $@;
+    local $!;
+    require Scalar::Util;
+    $package = Scalar::Util::blessed($package);
+    return undef if !defined $package;
+  }
+  #my $meth = $package->can('(' . shift);
+  ov_method mycan($package, '(' . shift), $package;
+  #return $meth if $meth ne \&nil;
+  #return $ {*{$meth}};
+}
+
+sub AddrRef {
+  no overloading;
+  "$_[0]";
+}
+
+*StrVal = *AddrRef;
+
+sub mycan {				# Real can would leave stubs.
+  my ($package, $meth) = @_;
+
+  local $@;
+  local $!;
+  require mro;
+
+  my $mro = mro::get_linear_isa($package);
+  foreach my $p (@$mro) {
+    my $fqmeth = $p . q{::} . $meth;
+    return \*{$fqmeth} if defined &{$fqmeth};
+  }
+
+  return undef;
+}
+
+%constants = (
+	      'integer'	  =>  0x1000, # HINT_NEW_INTEGER
+	      'float'	  =>  0x2000, # HINT_NEW_FLOAT
+	      'binary'	  =>  0x4000, # HINT_NEW_BINARY
+	      'q'	  =>  0x8000, # HINT_NEW_STRING
+	      'qr'	  => 0x10000, # HINT_NEW_RE
+	     );
+
+use warnings::register;
+sub constant {
+  # Arguments: what, sub
+  while (@_) {
+    if (@_ == 1) {
+        warnings::warnif ("Odd number of arguments for overload::constant");
+        last;
+    }
+    elsif (!exists $constants {$_ [0]}) {
+        warnings::warnif ("'$_[0]' is not an overloadable type");
+    }
+    elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE\(0x[0-9a-f]+\)$/) {
+        # Can't use C<ref $_[1] eq "CODE"> above as code references can be
+        # blessed, and C<ref> would return the package the ref is blessed into.
+        if (warnings::enabled) {
+            $_ [1] = "undef" unless defined $_ [1];
+            warnings::warn ("'$_[1]' is not a code reference");
+        }
+    }
+    else {
+        $^H{$_[0]} = $_[1];
+        $^H |= $constants{$_[0]};
+    }
+    shift, shift;
+  }
+}
+
+sub remove_constant {
+  # Arguments: what, sub
+  while (@_) {
+    delete $^H{$_[0]};
+    $^H &= ~ $constants{$_[0]};
+    shift, shift;
+  }
+}
+
+1;
+
+__END__
+
+
+package strict;
+
+$strict::VERSION = "1.11";
+
+my ( %bitmask, %explicit_bitmask );
+
+BEGIN {
+    # Verify that we're called correctly so that strictures will work.
+    # Can't use Carp, since Carp uses us!
+    # see also warnings.pm.
+    die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
+        if __FILE__ !~ ( '(?x) \b     '.__PACKAGE__.'  \.pmc? \z' )
+        && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
+
+    %bitmask = (
+        refs => 0x00000002,
+        subs => 0x00000200,
+        vars => 0x00000400,
+    );
+
+    %explicit_bitmask = (
+        refs => 0x00000020,
+        subs => 0x00000040,
+        vars => 0x00000080,
+    );
+
+    my $bits = 0;
+    $bits |= $_ for values %bitmask;
+
+    my $inline_all_bits = $bits;
+    *all_bits = sub () { $inline_all_bits };
+
+    $bits = 0;
+    $bits |= $_ for values %explicit_bitmask;
+
+    my $inline_all_explicit_bits = $bits;
+    *all_explicit_bits = sub () { $inline_all_explicit_bits };
+}
+
+sub bits {
+    my $bits = 0;
+    my @wrong;
+    foreach my $s (@_) {
+        if (exists $bitmask{$s}) {
+            $^H |= $explicit_bitmask{$s};
+
+            $bits |= $bitmask{$s};
+        }
+        else {
+            push @wrong, $s;
+        }
+    }
+    if (@wrong) {
+        require Carp;
+        Carp::croak("Unknown 'strict' tag(s) '@wrong'");
+    }
+    $bits;
+}
+
+sub import {
+    shift;
+    $^H |= @_ ? &bits : all_bits | all_explicit_bits;
+}
+
+sub unimport {
+    shift;
+
+    if (@_) {
+        $^H &= ~&bits;
+    }
+    else {
+        $^H &= ~all_bits;
+        $^H |= all_explicit_bits;
+    }
+}
+
+1;
+__END__
+
+package English;
+
+our $VERSION = '1.10';
+
+require Exporter;
+@ISA = qw(Exporter);
+
+
+no warnings;
+
+my $globbed_match ;
+
+# Grandfather $NAME import
+sub import {
+    my $this = shift;
+    my @list = grep { ! /^-no_match_vars$/ } @_ ;
+    local $Exporter::ExportLevel = 1;
+    if ( @_ == @list ) {
+        *EXPORT = \@COMPLETE_EXPORT ;
+        $globbed_match ||= (
+	    eval q{
+		*MATCH				= *&	;
+		*PREMATCH			= *`	;
+		*POSTMATCH			= *'	;
+		1 ;
+	       }
+	    || do {
+		require Carp ;
+		Carp::croak("Can't create English for match leftovers: $@") ;
+	    }
+	) ;
+    }
+    else {
+        *EXPORT = \@MINIMAL_EXPORT ;
+    }
+    Exporter::import($this,grep {s/^\$/*/} @list);
+}
+
+@MINIMAL_EXPORT = qw(
+	*ARG
+	*LAST_PAREN_MATCH
+	*INPUT_LINE_NUMBER
+	*NR
+	*INPUT_RECORD_SEPARATOR
+	*RS
+	*OUTPUT_AUTOFLUSH
+	*OUTPUT_FIELD_SEPARATOR
+	*OFS
+	*OUTPUT_RECORD_SEPARATOR
+	*ORS
+	*LIST_SEPARATOR
+	*SUBSCRIPT_SEPARATOR
+	*SUBSEP
+	*FORMAT_PAGE_NUMBER
+	*FORMAT_LINES_PER_PAGE
+	*FORMAT_LINES_LEFT
+	*FORMAT_NAME
+	*FORMAT_TOP_NAME
+	*FORMAT_LINE_BREAK_CHARACTERS
+	*FORMAT_FORMFEED
+	*CHILD_ERROR
+	*OS_ERROR
+	*ERRNO
+	*EXTENDED_OS_ERROR
+	*EVAL_ERROR
+	*PROCESS_ID
+	*PID
+	*REAL_USER_ID
+	*UID
+	*EFFECTIVE_USER_ID
+	*EUID
+	*REAL_GROUP_ID
+	*GID
+	*EFFECTIVE_GROUP_ID
+	*EGID
+	*PROGRAM_NAME
+	*PERL_VERSION
+	*OLD_PERL_VERSION
+	*ACCUMULATOR
+	*COMPILING
+	*DEBUGGING
+	*SYSTEM_FD_MAX
+	*INPLACE_EDIT
+	*PERLDB
+	*BASETIME
+	*WARNING
+	*EXECUTABLE_NAME
+	*OSNAME
+	*LAST_REGEXP_CODE_RESULT
+	*EXCEPTIONS_BEING_CAUGHT
+	*LAST_SUBMATCH_RESULT
+	@LAST_MATCH_START
+	@LAST_MATCH_END
+);
+
+
+@MATCH_EXPORT = qw(
+	*MATCH
+	*PREMATCH
+	*POSTMATCH
+);
+
+@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;
+
+# The ground of all being.
+
+	*ARG					= *_	;
+
+# Matching.
+
+	*LAST_PAREN_MATCH			= *+	;
+	*LAST_SUBMATCH_RESULT			= *^N ;
+	*LAST_MATCH_START			= *-{ARRAY} ;
+	*LAST_MATCH_END				= *+{ARRAY} ;
+
+# Input.
+
+	*INPUT_LINE_NUMBER			= *.	;
+	    *NR					= *.	;
+	*INPUT_RECORD_SEPARATOR			= */	;
+	    *RS					= */	;
+
+# Output.
+
+	*OUTPUT_AUTOFLUSH			= *|	;
+	*OUTPUT_FIELD_SEPARATOR			= *,	;
+	    *OFS				= *,	;
+	*OUTPUT_RECORD_SEPARATOR		= *\	;
+	    *ORS				= *\	;
+
+# Interpolation "constants".
+
+	*LIST_SEPARATOR				= *"	;
+	*SUBSCRIPT_SEPARATOR			= *;	;
+	    *SUBSEP				= *;	;
+
+# Formats
+
+	*FORMAT_PAGE_NUMBER			= *%	;
+	*FORMAT_LINES_PER_PAGE			= *=	;
+	*FORMAT_LINES_LEFT			= *-{SCALAR}	;
+	*FORMAT_NAME				= *~	;
+	*FORMAT_TOP_NAME			= *^	;
+	*FORMAT_LINE_BREAK_CHARACTERS		= *:	;
+	*FORMAT_FORMFEED			= *^L	;
+
+# Error status.
+
+	*CHILD_ERROR				= *?	;
+	*OS_ERROR				= *!	;
+	    *ERRNO				= *!	;
+	*OS_ERROR				= *!	;
+	    *ERRNO				= *!	;
+	*EXTENDED_OS_ERROR			= *^E	;
+	*EVAL_ERROR				= *@	;
+
+# Process info.
+
+	*PROCESS_ID				= *$	;
+	    *PID				= *$	;
+	*REAL_USER_ID				= *<	;
+	    *UID				= *<	;
+	*EFFECTIVE_USER_ID			= *>	;
+	    *EUID				= *>	;
+	*REAL_GROUP_ID				= *(	;
+	    *GID				= *(	;
+	*EFFECTIVE_GROUP_ID			= *)	;
+	    *EGID				= *)	;
+	*PROGRAM_NAME				= *0	;
+
+# Internals.
+
+	*PERL_VERSION				= *^V	;
+	*OLD_PERL_VERSION			= *]	;
+	*ACCUMULATOR				= *^A	;
+	*COMPILING				= *^C	;
+	*DEBUGGING				= *^D	;
+	*SYSTEM_FD_MAX				= *^F	;
+	*INPLACE_EDIT				= *^I	;
+	*PERLDB					= *^P	;
+	*LAST_REGEXP_CODE_RESULT		= *^R	;
+	*EXCEPTIONS_BEING_CAUGHT		= *^S	;
+	*BASETIME				= *^T	;
+	*WARNING				= *^W	;
+	*EXECUTABLE_NAME			= *^X	;
+	*OSNAME					= *^O	;
+
+# Deprecated.
+
+#	*ARRAY_BASE				= *[	;
+#	*OFMT					= *#	;
+
+1;
+package integer;
+
+our $VERSION = '1.01';
+
+
+$integer::hint_bits = 0x1;
+
+sub import {
+    $^H |= $integer::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$integer::hint_bits;
+}
+
+1;
+#!perl -w
+package version;
+
+use 5.006002;
+use strict;
+use warnings::register;
+if ($] >= 5.015) {
+    warnings::register_categories(qw/version/);
+}
+
+our $VERSION = 0.9923;
+our $CLASS = 'version';
+our (@ISA, $STRICT, $LAX);
+
+# avoid using Exporter
+require version::regex;
+*version::is_lax = \&version::regex::is_lax;
+*version::is_strict = \&version::regex::is_strict;
+*LAX = \$version::regex::LAX;
+*LAX_DECIMAL_VERSION = \$version::regex::LAX_DECIMAL_VERSION;
+*LAX_DOTTED_DECIMAL_VERSION = \$version::regex::LAX_DOTTED_DECIMAL_VERSION;
+*STRICT = \$version::regex::STRICT;
+*STRICT_DECIMAL_VERSION = \$version::regex::STRICT_DECIMAL_VERSION;
+*STRICT_DOTTED_DECIMAL_VERSION = \$version::regex::STRICT_DOTTED_DECIMAL_VERSION;
+
+sub import {
+    no strict 'refs';
+    my ($class) = shift;
+
+    # Set up any derived class
+    unless ($class eq $CLASS) {
+	local $^W;
+	*{$class.'::declare'} =  \&{$CLASS.'::declare'};
+	*{$class.'::qv'} = \&{$CLASS.'::qv'};
+    }
+
+    my %args;
+    if (@_) { # any remaining terms are arguments
+	map { $args{$_} = 1 } @_
+    }
+    else { # no parameters at all on use line
+	%args =
+	(
+	    qv => 1,
+	    'UNIVERSAL::VERSION' => 1,
+	);
+    }
+
+    my $callpkg = caller();
+
+    if (exists($args{declare})) {
+	*{$callpkg.'::declare'} =
+	    sub {return $class->declare(shift) }
+	  unless defined(&{$callpkg.'::declare'});
+    }
+
+    if (exists($args{qv})) {
+	*{$callpkg.'::qv'} =
+	    sub {return $class->qv(shift) }
+	  unless defined(&{$callpkg.'::qv'});
+    }
+
+    if (exists($args{'UNIVERSAL::VERSION'})) {
+	local $^W;
+	*UNIVERSAL::VERSION
+		= \&{$CLASS.'::_VERSION'};
+    }
+
+    if (exists($args{'VERSION'})) {
+	*{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'};
+    }
+
+    if (exists($args{'is_strict'})) {
+	*{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'}
+	  unless defined(&{$callpkg.'::is_strict'});
+    }
+
+    if (exists($args{'is_lax'})) {
+	*{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'}
+	  unless defined(&{$callpkg.'::is_lax'});
+    }
+}
+
+
+1;
+package bigint;
+
+use 5.010;
+use strict;
+use warnings;
+
+our $VERSION = '0.49';
+
+use Exporter;
+our @ISA            = qw( Exporter );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+
+##############################################################################
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bigint::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      return Math::BigInt->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bigint\-\>$name, not a valid method");
+}
+
+sub upgrade {
+    $Math::BigInt::upgrade;
+}
+
+sub _binary_constant {
+    # this takes a binary/hexadecimal/octal constant string and returns it
+    # as string suitable for new. Basically it converts octal to decimal, and
+    # passes every thing else unmodified back.
+    my $string = shift;
+
+    return Math::BigInt->new($string) if $string =~ /^0[bx]/;
+
+    # so it must be an octal constant
+    Math::BigInt->from_oct($string);
+}
+
+sub _float_constant {
+    # this takes a floating point constant string and returns it truncated to
+    # integer. For instance, '4.5' => '4', '1.234e2' => '123' etc
+    my $float = shift;
+
+    # some simple cases first
+    return $float if ($float =~ /^[+-]?[0-9]+$/);       # '+123','-1','0' etc
+    return $float
+      if ($float =~ /^[+-]?[0-9]+\.?[eE]\+?[0-9]+$/);   # 123e2, 123.e+2
+    return '0' if ($float =~ /^[+-]?[0]*\.[0-9]+$/);    # .2, 0.2, -.1
+    if ($float =~ /^[+-]?[0-9]+\.[0-9]*$/) {            # 1., 1.23, -1.2 etc
+        $float =~ s/\..*//;
+        return $float;
+    }
+    my ($mis, $miv, $mfv, $es, $ev) = Math::BigInt::_split($float);
+    return $float if !defined $mis;       # doesn't look like a number to me
+    my $ec = int($$ev);
+    my $sign = $$mis;
+    $sign = '' if $sign eq '+';
+    if ($$es eq '-') {
+        # ignore fraction part entirely
+        if ($ec >= length($$miv)) {                     # 123.23E-4
+            return '0';
+        }
+        return $sign . substr($$miv, 0, length($$miv) - $ec); # 1234.45E-2 = 12
+    }
+    # xE+y
+    if ($ec >= length($$mfv)) {
+        $ec -= length($$mfv);
+        return $sign.$$miv.$$mfv if $ec == 0;           # 123.45E+2 => 12345
+        return $sign.$$miv.$$mfv.'E'.$ec;               # 123.45e+3 => 12345e1
+    }
+    $mfv = substr($$mfv, 0, $ec);
+    $sign.$$miv.$mfv;                                   # 123.45e+1 => 1234
+}
+
+sub unimport {
+    $^H{bigint} = undef;                                # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bigint};
+}
+
+#############################################################################
+# the following two routines are for "use bigint qw/hex oct/;":
+
+use constant LEXICAL => $] > 5.009004;
+
+# Internal function with the same semantics as CORE::hex(). This function is
+# not used directly, but rather by other front-end functions.
+
+sub _hex_core {
+    my $str = shift;
+
+    # Strip off, clean, and parse as much as we can from the beginning.
+
+    my $x;
+    if ($str =~ s/ ^ (0?[xX])? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) {
+        my $chrs = $2;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+        $x = Math::BigInt -> from_hex($chrs);
+    } else {
+        $x = Math::BigInt -> bzero();
+    }
+
+    # Warn about trailing garbage.
+
+    if (CORE::length($str)) {
+        require Carp;
+        Carp::carp(sprintf("Illegal hexadecimal digit '%s' ignored",
+                           substr($str, 0, 1)));
+    }
+
+    return $x;
+}
+
+# Internal function with the same semantics as CORE::oct(). This function is
+# not used directly, but rather by other front-end functions.
+
+sub _oct_core {
+    my $str = shift;
+
+    $str =~ s/^\s*//;
+
+    # Hexadecimal input.
+
+    return _hex_core($str) if $str =~ /^0?[xX]/;
+
+    my $x;
+
+    # Binary input.
+
+    if ($str =~ /^0?[bB]/) {
+
+        # Strip off, clean, and parse as much as we can from the beginning.
+
+        if ($str =~ s/ ^ (0?[bB])? ( [01]* ( _ [01]+ )* ) //x) {
+            my $chrs = $2;
+            $chrs =~ tr/_//d;
+            $chrs = '0' unless CORE::length $chrs;
+            $x = Math::BigInt -> from_bin($chrs);
+        }
+
+        # Warn about trailing garbage.
+
+        if (CORE::length($str)) {
+            require Carp;
+            Carp::carp(sprintf("Illegal binary digit '%s' ignored",
+                               substr($str, 0, 1)));
+        }
+
+        return $x;
+    }
+
+    # Octal input. Strip off, clean, and parse as much as we can from the
+    # beginning.
+
+    if ($str =~ s/ ^ ( [0-7]* ( _ [0-7]+ )* ) //x) {
+        my $chrs = $1;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+        $x = Math::BigInt -> from_oct($chrs);
+    }
+
+    # Warn about trailing garbage. CORE::oct() only warns about 8 and 9.
+
+    if (CORE::length($str)) {
+        my $chr = substr($str, 0, 1);
+        if ($chr eq '8' || $chr eq '9') {
+            require Carp;
+            Carp::carp(sprintf("Illegal octal digit '%s' ignored", $chr));
+        }
+    }
+
+    return $x;
+}
+
+{
+    my $proto = LEXICAL ? '_' : ';$';
+    eval '
+sub hex(' . $proto . ') {' . <<'.';
+    my $str = @_ ? $_[0] : $_;
+    _hex_core($str);
+}
+.
+
+    eval '
+sub oct(' . $proto . ') {' . <<'.';
+    my $str = @_ ? $_[0] : $_;
+    _oct_core($str);
+}
+.
+}
+
+#############################################################################
+# the following two routines are for Perl 5.9.4 or later and are lexical
+
+my ($prev_oct, $prev_hex, $overridden);
+
+if (LEXICAL) { eval <<'.' }
+sub _hex(_) {
+    my $hh = (caller 0)[10];
+    return $prev_hex ? &$prev_hex($_[0]) : CORE::hex($_[0])
+      unless $$hh{bigint}||$$hh{bignum}||$$hh{bigrat};
+    _hex_core($_[0]);
+}
+
+sub _oct(_) {
+    my $hh = (caller 0)[10];
+    return $prev_oct ? &$prev_oct($_[0]) : CORE::oct($_[0])
+      unless $$hh{bigint}||$$hh{bignum}||$$hh{bigrat};
+    _oct_core($_[0]);
+}
+.
+
+sub _override {
+    return if $overridden;
+    $prev_oct = *CORE::GLOBAL::oct{CODE};
+    $prev_hex = *CORE::GLOBAL::hex{CODE};
+    no warnings 'redefine';
+    *CORE::GLOBAL::oct = \&_oct;
+    *CORE::GLOBAL::hex = \&_hex;
+    $overridden++;
+}
+
+sub import {
+    my $self = shift;
+
+    $^H{bigint} = 1;                            # we are in effect
+
+    # for newer Perls always override hex() and oct() with a lexical version:
+    if (LEXICAL) {
+        _override();
+    }
+    # some defaults
+    my $lib = '';
+    my $lib_kind = 'try';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($ver, $trace);                          # version? trace?
+    my ($a, $p);                                # accuracy, precision
+    for (my $i = 0; $i < $l; $i++, $j++) {
+        if ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        } elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        } elsif ($_[$i] !~ /^(PI|e|bpi|bexp|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class = 'Math::BigInt::Trace';
+    } else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import);
+
+    bigint->accuracy($a)  if defined $a;
+    bigint->precision($p) if defined $p;
+    if ($ver) {
+        print "bigint\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        exit;
+    }
+    # we take care of floating point constants, since BigFloat isn't available
+    # and BigInt doesn't like them:
+    overload::constant float =>
+        sub {
+            Math::BigInt->new(_float_constant(shift));
+        };
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            _binary_constant(shift);
+        };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN, e and PI
+    }
+}
+
+sub inf () { Math::BigInt->binf(); }
+sub NaN () { Math::BigInt->bnan(); }
+
+sub PI () { Math::BigInt->new(3); }
+sub e () { Math::BigInt->new(2); }
+sub bpi ($) { Math::BigInt->new(3); }
+sub bexp ($$) {
+    my $x = Math::BigInt->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+package autodie;
+use 5.008;
+use strict;
+use warnings;
+
+use parent qw(Fatal);
+our $VERSION;
+
+# ABSTRACT: Replace functions with ones that succeed or die with lexical scope
+
+BEGIN {
+    our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version
+}
+
+use constant ERROR_WRONG_FATAL => q{
+Incorrect version of Fatal.pm loaded by autodie.
+
+The autodie pragma uses an updated version of Fatal to do its
+heavy lifting.  We seem to have loaded Fatal version %s, which is
+probably the version that came with your version of Perl.  However
+autodie needs version %s, which would have come bundled with
+autodie.
+
+You may be able to solve this problem by adding the following
+line of code to your main program, before any use of Fatal or
+autodie.
+
+    use lib "%s";
+
+};
+
+# We have to check we've got the right version of Fatal before we
+# try to compile the rest of our code, lest we use a constant
+# that doesn't exist.
+
+BEGIN {
+
+    # If we have the wrong Fatal, then we've probably loaded the system
+    # one, not our own.  Complain, and give a useful hint. ;)
+
+    if (defined($Fatal::VERSION) and defined($VERSION) and $Fatal::VERSION ne $VERSION) {
+        my $autodie_path = $INC{'autodie.pm'};
+
+        $autodie_path =~ s/autodie\.pm//;
+
+        require Carp;
+
+        Carp::croak sprintf(
+            ERROR_WRONG_FATAL, $Fatal::VERSION, $VERSION, $autodie_path
+        );
+    }
+}
+
+# When passing args to Fatal we want to keep the first arg
+# (our package) in place.  Hence the splice.
+
+sub import {
+        splice(@_,1,0,Fatal::LEXICAL_TAG);
+        goto &Fatal::import;
+}
+
+sub unimport {
+        splice(@_,1,0,Fatal::LEXICAL_TAG);
+        goto &Fatal::unimport;
+}
+
+1;
+
+__END__
+
+package PerlIO;
+
+our $VERSION = '1.10';
+
+# Map layer name to package that defines it
+our %alias;
+
+sub import
+{
+ my $class = shift;
+ while (@_)
+  {
+   my $layer = shift;
+   if (exists $alias{$layer})
+    {
+     $layer = $alias{$layer}
+    }
+   else
+    {
+     $layer = "${class}::$layer";
+    }
+   eval { require $layer =~ s{::}{/}gr . '.pm' };
+   warn $@ if $@;
+  }
+}
+
+sub F_UTF8 () { 0x8000 }
+
+1;
+__END__
+
+use strict;
+use warnings;
+package perlfaq;
+$perlfaq::VERSION = '5.021011';
+1;
+package vars;
+
+use 5.006;
+
+our $VERSION = '1.04';
+
+use warnings::register;
+use strict qw(vars subs);
+
+sub import {
+    my $callpack = caller;
+    my (undef, @imports) = @_;
+    my ($sym, $ch);
+    foreach (@imports) {
+        if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
+	    if ($sym =~ /\W/) {
+		# time for a more-detailed check-up
+		if ($sym =~ /^\w+[[{].*[]}]$/) {
+		    require Carp;
+		    Carp::croak("Can't declare individual elements of hash or array");
+		} elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
+		    warnings::warn("No need to declare built-in vars");
+		} elsif  (($^H &= strict::bits('vars'))) {
+		    require Carp;
+		    Carp::croak("'$_' is not a valid variable name under strict vars");
+		}
+	    }
+	    $sym = "${callpack}::$sym" unless $sym =~ /::/;
+	    *$sym =
+		(  $ch eq "\$" ? \$$sym
+		 : $ch eq "\@" ? \@$sym
+		 : $ch eq "\%" ? \%$sym
+		 : $ch eq "\*" ? \*$sym
+		 : $ch eq "\&" ? \&$sym 
+		 : do {
+		     require Carp;
+		     Carp::croak("'$_' is not a valid variable name");
+		 });
+	} else {
+	    require Carp;
+	    Carp::croak("'$_' is not a valid variable name");
+	}
+    }
+};
+
+1;
+__END__
+
+package Exporter;
+
+require 5.006;
+
+# Be lean.
+#use strict;
+#no strict 'refs';
+
+our $Debug = 0;
+our $ExportLevel = 0;
+our $Verbose ||= 0;
+our $VERSION = '5.73';
+our (%Cache);
+
+sub as_heavy {
+  require Exporter::Heavy;
+  # Unfortunately, this does not work if the caller is aliased as *name = \&foo
+  # Thus the need to create a lot of identical subroutines
+  my $c = (caller(1))[3];
+  $c =~ s/.*:://;
+  \&{"Exporter::Heavy::heavy_$c"};
+}
+
+sub export {
+  goto &{as_heavy()};
+}
+
+sub import {
+  my $pkg = shift;
+  my $callpkg = caller($ExportLevel);
+
+  if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
+    *{$callpkg."::import"} = \&import;
+    return;
+  }
+
+  # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-(
+  my $exports = \@{"$pkg\::EXPORT"};
+  # But, avoid creating things if they don't exist, which saves a couple of
+  # hundred bytes per package processed.
+  my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
+  return export $pkg, $callpkg, @_
+    if $Verbose or $Debug or $fail && @$fail > 1;
+  my $export_cache = ($Cache{$pkg} ||= {});
+  my $args = @_ or @_ = @$exports;
+
+  if ($args and not %$export_cache) {
+    s/^&//, $export_cache->{$_} = 1
+      foreach (@$exports, @{"$pkg\::EXPORT_OK"});
+  }
+  my $heavy;
+  # Try very hard not to use {} and hence have to  enter scope on the foreach
+  # We bomb out of the loop with last as soon as heavy is set.
+  if ($args or $fail) {
+    ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
+               or $fail and @$fail and $_ eq $fail->[0])) and last
+                 foreach (@_);
+  } else {
+    ($heavy = /\W/) and last
+      foreach (@_);
+  }
+  return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
+  local $SIG{__WARN__} = 
+	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
+  # shortcut for the common case of no type character
+  *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
+}
+
+# Default methods
+
+sub export_fail {
+    my $self = shift;
+    @_;
+}
+
+# Unfortunately, caller(1)[3] "does not work" if the caller is aliased as
+# *name = \&foo.  Thus the need to create a lot of identical subroutines
+# Otherwise we could have aliased them to export().
+
+sub export_to_level {
+  goto &{as_heavy()};
+}
+
+sub export_tags {
+  goto &{as_heavy()};
+}
+
+sub export_ok_tags {
+  goto &{as_heavy()};
+}
+
+sub require_version {
+  goto &{as_heavy()};
+}
+
+1;
+__END__
+
+
+
+
+package locale;
+
+our $VERSION = '1.09';
+use Config;
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+
+# A separate bit is used for each of the two forms of the pragma, to save
+# having to look at %^H for the normal case of a plain 'use locale' without an
+# argument.
+
+$locale::hint_bits = 0x4;
+$locale::partial_hint_bits = 0x10;  # If pragma has an argument
+
+# The pseudo-category :characters consists of 2 real ones; but it also is
+# given its own number, -1, because in the complement form it also has the
+# side effect of "use feature 'unicode_strings'"
+
+sub import {
+    shift;  # should be 'locale'; not checked
+
+    $^H{locale} = 0 unless defined $^H{locale};
+    if (! @_) { # If no parameter, use the plain form that changes all categories
+        $^H |= $locale::hint_bits;
+
+    }
+    else {
+        my @categories = ( qw(:ctype :collate :messages
+                              :numeric :monetary :time) );
+        for (my $i = 0; $i < @_; $i++) {
+            my $arg = $_[$i];
+            $complement = $arg =~ s/ : ( ! | not_ ) /:/x;
+            if (! grep { $arg eq $_ } @categories, ":characters") {
+                require Carp;
+                Carp::croak("Unknown parameter '$_[$i]' to 'use locale'");
+            }
+
+            if ($complement) {
+                if ($i != 0 || $i < @_ - 1)  {
+                    require Carp;
+                    Carp::croak("Only one argument to 'use locale' allowed"
+                                . "if is $complement");
+                }
+
+                if ($arg eq ':characters') {
+                    push @_, grep { $_ ne ':ctype' && $_ ne ':collate' }
+                                  @categories;
+                    # We add 1 to the category number;  This category number
+                    # is -1
+                    $^H{locale} |= (1 << 0);
+                }
+                else {
+                    push @_, grep { $_ ne $arg } @categories;
+                }
+                next;
+            }
+            elsif ($arg eq ':characters') {
+                push @_, ':ctype', ':collate';
+                next;
+            }
+
+            $^H |= $locale::partial_hint_bits;
+
+            # This form of the pragma overrides the other
+            $^H &= ~$locale::hint_bits;
+
+            $arg =~ s/^://;
+
+            eval { require POSIX; import POSIX 'locale_h'; };
+
+            # Map our names to the ones defined by POSIX
+            my $LC = "LC_" . uc($arg);
+
+            my $bit = eval "&POSIX::$LC";
+            if (defined $bit) { # XXX Should we warn that this category isn't
+                                # supported on this platform, or make it
+                                # always be the C locale?
+
+                # Verify our assumption.
+                if (! ($bit >= 0 && $bit < 31)) {
+                    require Carp;
+                    Carp::croak("Cannot have ':$arg' parameter to 'use locale'"
+                              . " on this platform.  Use the 'perlbug' utility"
+                              . " to report this problem, or send email to"
+                              . " 'perlbug\@perl.org'.  $LC=$bit");
+                }
+
+                # 1 is added so that the pseudo-category :characters, which is
+                # -1, comes out 0.
+                $^H{locale} |= 1 << ($bit + 1);
+            }
+        }
+    }
+
+}
+
+sub unimport {
+    $^H &= ~($locale::hint_bits|$locale::partial_hint_bits);
+    $^H{locale} = 0;
+}
+
+1;
+package sigtrap;
+
+
+use Carp;
+
+$VERSION = 1.08;
+$Verbose ||= 0;
+
+sub import {
+    my $pkg = shift;
+    my $handler = \&handler_traceback;
+    my $saw_sig = 0;
+    my $untrapped = 0;
+    local $_;
+
+  Arg_loop:
+    while (@_) {
+	$_ = shift;
+	if (/^[A-Z][A-Z0-9]*$/) {
+	    $saw_sig++;
+	    unless ($untrapped and $SIG{$_} and $SIG{$_} ne 'DEFAULT') {
+		print "Installing handler $handler for $_\n" if $Verbose;
+		$SIG{$_} = $handler;
+	    }
+	}
+	elsif ($_ eq 'normal-signals') {
+	    unshift @_, grep(exists $SIG{$_}, qw(HUP INT PIPE TERM));
+	}
+	elsif ($_ eq 'error-signals') {
+	    unshift @_, grep(exists $SIG{$_},
+			     qw(ABRT BUS EMT FPE ILL QUIT SEGV SYS TRAP));
+	}
+	elsif ($_ eq 'old-interface-signals') {
+	    unshift @_,
+	    grep(exists $SIG{$_},
+		 qw(ABRT BUS EMT FPE ILL PIPE QUIT SEGV SYS TERM TRAP));
+	}
+    	elsif ($_ eq 'stack-trace') {
+	    $handler = \&handler_traceback;
+	}
+	elsif ($_ eq 'die') {
+	    $handler = \&handler_die;
+	}
+	elsif ($_ eq 'handler') {
+	    @_ or croak "No argument specified after 'handler'";
+	    $handler = shift;
+	    unless (ref $handler or $handler eq 'IGNORE'
+			or $handler eq 'DEFAULT') {
+    	    	require Symbol;
+		$handler = Symbol::qualify($handler, (caller)[0]);
+	    }
+	}
+	elsif ($_ eq 'untrapped') {
+	    $untrapped = 1;
+	}
+	elsif ($_ eq 'any') {
+	    $untrapped = 0;
+	}
+	elsif ($_ =~ /^\d/) {
+	    $VERSION >= $_ or croak "sigtrap.pm version $_ required,"
+		    	    	    	. " but this is only version $VERSION";
+	}
+	else {
+	    croak "Unrecognized argument $_";
+	}
+    }
+    unless ($saw_sig) {
+	@_ = qw(old-interface-signals);
+	goto Arg_loop;
+    }
+}
+
+sub handler_die {
+    croak "Caught a SIG$_[0]";
+}
+
+sub handler_traceback {
+    package DB;		# To get subroutine args.
+    $SIG{'ABRT'} = DEFAULT;
+    kill 'ABRT', $$ if $panic++;
+    syswrite(STDERR, 'Caught a SIG', 12);
+    syswrite(STDERR, $_[0], length($_[0]));
+    syswrite(STDERR, ' at ', 4);
+    ($pack,$file,$line) = caller;
+    syswrite(STDERR, $file, length($file));
+    syswrite(STDERR, ' line ', 6);
+    syswrite(STDERR, $line, length($line));
+    syswrite(STDERR, "\n", 1);
+
+    # Now go for broke.
+    for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
+        @a = ();
+	for (@{[@args]}) {
+	    s/([\'\\])/\\$1/g;
+	    s/([^\0]*)/'$1'/
+	      unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
+            require 'meta_notation.pm';
+            $_ = _meta_notation($_) if /[[:^print:]]/a;
+	    push(@a, $_);
+	}
+	$w = $w ? '@ = ' : '$ = ';
+	$a = $h ? '(' . join(', ', @a) . ')' : '';
+	$e =~ s/\n\s*\;\s*\Z// if $e;
+	$e =~ s/[\\\']/\\$1/g if $e;
+	if ($r) {
+	    $s = "require '$e'";
+	} elsif (defined $r) {
+	    $s = "eval '$e'";
+	} elsif ($s eq '(eval)') {
+	    $s = "eval {...}";
+	}
+	$f = "file '$f'" unless $f eq '-e';
+	$mess = "$w$s$a called from $f line $l\n";
+	syswrite(STDERR, $mess, length($mess));
+    }
+    kill 'ABRT', $$;
+}
+
+1;
+
+__END__
+
+package DirHandle;
+
+our $VERSION = '1.05';
+
+
+require 5.000;
+use Carp;
+use Symbol;
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
+    my $class = shift;
+    my $dh = gensym;
+    if (@_) {
+	DirHandle::open($dh, $_[0])
+	    or return undef;
+    }
+    bless $dh, $class;
+}
+
+sub DESTROY {
+    my ($dh) = @_;
+    # Don't warn about already being closed as it may have been closed 
+    # correctly, or maybe never opened at all.
+    local($., $@, $!, $^E, $?);
+    no warnings 'io';
+    closedir($dh);
+}
+
+sub open {
+    @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
+    my ($dh, $dirname) = @_;
+    opendir($dh, $dirname);
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $dh->close()';
+    my ($dh) = @_;
+    closedir($dh);
+}
+
+sub read {
+    @_ == 1 or croak 'usage: $dh->read()';
+    my ($dh) = @_;
+    readdir($dh);
+}
+
+sub rewind {
+    @_ == 1 or croak 'usage: $dh->rewind()';
+    my ($dh) = @_;
+    rewinddir($dh);
+}
+
+1;
+use strict;
+use warnings;
+
+# A tiny private library routine which is a helper to several Perl core
+# modules, to allow a paradigm to be implemented in a single place.  The name,
+# contents, or even the existence of this file may be changed at any time and
+# are NOT to be used by anything outside the Perl core.
+
+sub _meta_notation ($) {
+
+    # Returns a copy of the input string with the nonprintable characters
+    # below 0x100 changed into printables.  Any ASCII printables or above 0xFF
+    # are unchanged.  (XXX Probably above-Latin1 characters should be
+    # converted to \X{...})
+    #
+    # \0 .. \x1F (which are "\c@" .. "\c_") are changed into ^@, ^A, ^B, ...
+    # ^Z, ^[, ^\, ^], ^^, ^_
+    # \c? is changed into ^?.
+    #
+    # The above accounts for all the ASCII-range nonprintables.
+    #
+    # On ASCII platforms, the upper-Latin1-range characters are converted to
+    # Meta notation, so that \xC1 becomes 'M-A', \xE2 becomes 'M-b', etc.
+    # This is how it always has worked, so is continued that way for backwards
+    # compatibility.  The range \x80 .. \x9F becomes M-^@ .. M-^A, M-^B, ...
+    # M-^Z, M-^[, M-^\, M-^], M-^, M-^_
+    #
+    # On EBCDIC platforms, the upper-Latin1-range characters are converted
+    # into '\x{...}'  Meta notation doesn't make sense on EBCDIC platforms
+    # because the ASCII-range printables are a mixture of upper bit set or
+    # not.  [A-Za-Z0-9] all have the upper bit set.  The underscore likely
+    # doesn't; and other punctuation may or may not.  There's no simple
+    # pattern.
+
+    my $string = shift;
+
+    $string =~ s/([\0-\037])/
+               sprintf("^%c",utf8::unicode_to_native(ord($1)^64))/xeg;
+    $string =~ s/\c?/^?/g;
+    if (ord("A") == 65) {
+        $string =~ s/([\200-\237])/sprintf("M-^%c",(ord($1)&0177)^64)/eg;
+        $string =~ s/([\240-\377])/sprintf("M-%c"  ,ord($1)&0177)/eg;
+    }
+    else {
+        no warnings 'experimental::regex_sets';
+        # Leave alone things above \xff
+        $string =~ s/( (?[ [\x00-\xFF] & [:^print:]])) /
+                  sprintf("\\x{%X}", ord($1))/xaeg;
+    }
+
+    return $string;
+}
+1
+package autodie::Util;
+
+use strict;
+use warnings;
+
+use Exporter 5.57 qw(import);
+
+use autodie::Scope::GuardStack;
+
+our @EXPORT_OK = qw(
+  fill_protos
+  install_subs
+  make_core_trampoline
+  on_end_of_compile_scope
+);
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+
+# ABSTRACT: Internal Utility subroutines for autodie and Fatal
+
+# docs says we should pick __PACKAGE__ /<whatever>
+my $H_STACK_KEY = __PACKAGE__ . '/stack';
+
+sub on_end_of_compile_scope {
+    my ($hook) = @_;
+
+    # Dark magic to have autodie work under 5.8
+    # Copied from namespace::clean, that copied it from
+    # autobox, that found it on an ancient scroll written
+    # in blood.
+
+    # This magic bit causes %^H to be lexically scoped.
+    $^H |= 0x020000;
+
+    my $stack = $^H{$H_STACK_KEY};
+    if (not defined($stack)) {
+        $stack = autodie::Scope::GuardStack->new;
+        $^H{$H_STACK_KEY} = $stack;
+    }
+
+    $stack->push_hook($hook);
+    return;
+}
+
+# This code is based on code from the original Fatal.  The "XXXX"
+# remark is from the original code and its meaning is (sadly) unknown.
+sub fill_protos {
+    my ($proto) = @_;
+    my ($n, $isref, @out, @out1, $seen_semi) = -1;
+    if ($proto =~ m{^\s* (?: [;] \s*)? \@}x) {
+        # prototype is entirely slurply - special case that does not
+        # require any handling.
+        return ([0, '@_']);
+    }
+
+    while ($proto =~ /\S/) {
+        $n++;
+        push(@out1,[$n,@out]) if $seen_semi;
+        push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([\@%\$\&])//;
+        push(@out, "\$_[$n]"),        next if $proto =~ s/^\s*([_*\$&])//;
+        push(@out, "\@_[$n..\$#_]"),  last if $proto =~ s/^\s*(;\s*)?\@//;
+        $seen_semi = 1, $n--,         next if $proto =~ s/^\s*;//; # XXXX ????
+        die "Internal error: Unknown prototype letters: \"$proto\"";
+    }
+    push(@out1,[$n+1,@out]);
+    return @out1;
+}
+
+
+sub make_core_trampoline {
+    my ($call, $pkg, $proto_str) = @_;
+    my $trampoline_code = 'sub {';
+    my $trampoline_sub;
+    my @protos = fill_protos($proto_str);
+
+    foreach my $proto (@protos) {
+        local $" = ", ";    # So @args is formatted correctly.
+        my ($count, @args) = @$proto;
+        if (@args && $args[-1] =~ m/[@#]_/) {
+            $trampoline_code .= qq/
+                if (\@_ >= $count) {
+                    return $call(@args);
+                }
+             /;
+        } else {
+            $trampoline_code .= qq<
+                if (\@_ == $count) {
+                    return $call(@args);
+                }
+             >;
+        }
+    }
+
+    $trampoline_code .= qq< require Carp; Carp::croak("Internal error in Fatal/autodie.  Leak-guard failure"); } >;
+    my $E;
+
+    {
+        local $@;
+        $trampoline_sub = eval "package $pkg;\n $trampoline_code"; ## no critic
+        $E = $@;
+    }
+    die "Internal error in Fatal/autodie: Leak-guard installation failure: $E"
+        if $E;
+
+    return $trampoline_sub;
+}
+
+# The code here is originally lifted from namespace::clean,
+# by Robert "phaylon" Sedlacek.
+#
+# It's been redesigned after feedback from ikegami on perlmonks.
+# See http://perlmonks.org/?node_id=693338 .  Ikegami rocks.
+#
+# Given a package, and hash of (subname => subref) pairs,
+# we install the given subroutines into the package.  If
+# a subref is undef, the subroutine is removed.  Otherwise
+# it replaces any existing subs which were already there.
+
+sub install_subs {
+    my ($target_pkg, $subs_to_reinstate) = @_;
+
+    my $pkg_sym = "${target_pkg}::";
+
+    # It does not hurt to do this in a predictable order, and might help debugging.
+    foreach my $sub_name (sort keys(%{$subs_to_reinstate})) {
+
+        # We will repeatedly mess with stuff that strict "refs" does
+        # not like.  So lets just disable it once for this entire
+        # scope.
+        no strict qw(refs);   ## no critic
+
+        my $sub_ref = $subs_to_reinstate->{$sub_name};
+
+        my $full_path = ${pkg_sym}.${sub_name};
+        my $oldglob = *$full_path;
+
+        # Nuke the old glob.
+        delete($pkg_sym->{$sub_name});
+
+        # For some reason this local *alias = *$full_path triggers an
+        # "only used once" warning.  Not entirely sure why, but at
+        # least it is easy to silence.
+        no warnings qw(once);
+        local *alias = *$full_path;
+        use warnings qw(once);
+
+        # Copy innocent bystanders back.  Note that we lose
+        # formats; it seems that Perl versions up to 5.10.0
+        # have a bug which causes copying formats to end up in
+        # the scalar slot.  Thanks to Ben Morrow for spotting this.
+
+        foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) {
+            next unless defined(*$oldglob{$slot});
+            *alias = *$oldglob{$slot};
+        }
+
+        if ($sub_ref) {
+            *$full_path = $sub_ref;
+        }
+    }
+
+    return;
+}
+
+1;
+
+__END__
+
+package autodie::skip;
+use strict;
+use warnings;
+
+our $VERSION = '2.29'; # VERSION
+
+# This package exists purely so people can inherit from it,
+# which isn't at all how roles are supposed to work, but it's
+# how people will use them anyway.
+
+if ($] < 5.010) {
+    # Older Perls don't have a native ->DOES.  Let's provide a cheap
+    # imitation here.
+
+    *DOES = sub { return shift->isa(@_); };
+}
+
+1;
+
+__END__
+
+package autodie::hints;
+
+use strict;
+use warnings;
+
+use constant PERL58 => ( $] < 5.009 );
+
+our $VERSION = '2.29001';
+
+# ABSTRACT: Provide hints about user subroutines to autodie
+
+
+# TODO: implement regular expression hints
+
+use constant UNDEF_ONLY       => sub { not defined $_[0] };
+use constant EMPTY_OR_UNDEF   => sub {
+    ! @_ or
+    @_==1 && !defined $_[0]
+};
+
+use constant EMPTY_ONLY     => sub { @_ == 0 };
+use constant EMPTY_OR_FALSE => sub {
+    ! @_ or
+    @_==1 && !$_[0]
+};
+
+use constant SINGLE_TRUE => sub { @_ == 1 and not $_[0] };
+
+use constant DEFAULT_HINTS => {
+    scalar => UNDEF_ONLY,
+    list   => EMPTY_OR_UNDEF,
+};
+
+
+use constant HINTS_PROVIDER => 'autodie::hints::provider';
+
+our $DEBUG = 0;
+
+# Only ( undef ) is a strange but possible situation for very
+# badly written code.  It's not supported yet.
+
+my %Hints = (
+    'File::Copy::copy' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::move' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::cp'   => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::mv'   => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+);
+
+# Start by using Sub::Identify if it exists on this system.
+
+eval { require Sub::Identify; Sub::Identify->import('get_code_info'); };
+
+# If it doesn't exist, we'll define our own.  This code is directly
+# taken from Rafael Garcia's Sub::Identify 0.04, used under the same
+# license as Perl itself.
+
+if ($@) {
+    require B;
+
+    no warnings 'once';
+
+    *get_code_info = sub ($) {
+
+        my ($coderef) = @_;
+        ref $coderef or return;
+        my $cv = B::svref_2object($coderef);
+        $cv->isa('B::CV') or return;
+        # bail out if GV is undefined
+        $cv->GV->isa('B::SPECIAL') and return;
+
+        return ($cv->GV->STASH->NAME, $cv->GV->NAME);
+    };
+
+}
+
+sub sub_fullname {
+    return join( '::', get_code_info( $_[1] ) );
+}
+
+my %Hints_loaded = ();
+
+sub load_hints {
+    my ($class, $sub) = @_;
+
+    my ($package) = ( $sub =~ /(.*)::/ );
+
+    if (not defined $package) {
+        require Carp;
+        Carp::croak(
+            "Internal error in autodie::hints::load_hints - no package found.
+        ");
+    }
+
+    # Do nothing if we've already tried to load hints for
+    # this package.
+    return if $Hints_loaded{$package}++;
+
+    my $hints_available = 0;
+
+    {
+        no strict 'refs';   ## no critic
+
+        if ($package->can('DOES') and $package->DOES(HINTS_PROVIDER) ) {
+            $hints_available = 1;
+        }
+        elsif ( PERL58 and $package->isa(HINTS_PROVIDER) ) {
+            $hints_available = 1;
+        }
+        elsif ( ${"${package}::DOES"}{HINTS_PROVIDER.""} ) {
+            $hints_available = 1;
+        }
+    }
+
+    return if not $hints_available;
+
+    my %package_hints = %{ $package->AUTODIE_HINTS };
+
+    foreach my $sub (keys %package_hints) {
+
+        my $hint = $package_hints{$sub};
+
+        # Ensure we have a package name.
+        $sub = "${package}::$sub" if $sub !~ /::/;
+
+        # TODO - Currently we don't check for conflicts, should we?
+        $Hints{$sub} = $hint;
+
+        $class->normalise_hints(\%Hints, $sub);
+    }
+
+    return;
+
+}
+
+sub normalise_hints {
+    my ($class, $hints, $sub) = @_;
+
+    if ( exists $hints->{$sub}->{fail} ) {
+
+        if ( exists $hints->{$sub}->{scalar} or
+             exists $hints->{$sub}->{list}
+        ) {
+            # TODO: Turn into a proper diagnostic.
+            require Carp;
+            local $Carp::CarpLevel = 1;
+            Carp::croak("fail hints cannot be provided with either scalar or list hints for $sub");
+        }
+
+        # Set our scalar and list hints.
+
+        $hints->{$sub}->{scalar} = 
+        $hints->{$sub}->{list} = delete $hints->{$sub}->{fail};
+
+        return;
+
+    }
+
+    # Check to make sure all our hints exist.
+
+    foreach my $hint (qw(scalar list)) {
+        if ( not exists $hints->{$sub}->{$hint} ) {
+            # TODO: Turn into a proper diagnostic.
+            require Carp;
+            local $Carp::CarpLevel = 1;
+            Carp::croak("$hint hint missing for $sub");
+        }
+    }
+
+    return;
+}
+
+sub get_hints_for {
+    my ($class, $sub) = @_;
+
+    my $subname = $class->sub_fullname( $sub );
+
+    # If we have hints loaded for a sub, then return them.
+
+    if ( exists $Hints{ $subname } ) {
+        return $Hints{ $subname };
+    }
+
+    # If not, we try to load them...
+
+    $class->load_hints( $subname );
+
+    # ...and try again!
+
+    if ( exists $Hints{ $subname } ) {
+        return $Hints{ $subname };
+    }
+
+    # It's the caller's responsibility to use defaults if desired.
+    # This allows on autodie to insist on hints if needed.
+
+    return;
+
+}
+
+sub set_hints_for {
+    my ($class, $sub, $hints) = @_;
+
+    if (ref $sub) {
+        $sub = $class->sub_fullname( $sub );
+
+        require Carp;
+
+        $sub or Carp::croak("Attempts to set_hints_for unidentifiable subroutine");
+    }
+
+    if ($DEBUG) {
+        warn "autodie::hints: Setting $sub to hints: $hints\n";
+    }
+
+    $Hints{ $sub } = $hints;
+
+    $class->normalise_hints(\%Hints, $sub);
+
+    return;
+}
+
+1;
+
+__END__
+
+
+package autodie::exception;
+use 5.008;
+use strict;
+use warnings;
+use Carp qw(croak);
+
+our $VERSION = '2.29002';
+# ABSTRACT: Exceptions from autodying functions.
+
+our $DEBUG = 0;
+
+use overload
+    q{""} => "stringify",
+    # Overload smart-match only if we're using 5.10 or up
+    ($] >= 5.010 ? ('~~'  => "matches") : ()),
+    fallback => 1
+;
+
+my $PACKAGE = __PACKAGE__;  # Useful to have a scalar for hash keys.
+
+
+
+sub args        { return $_[0]->{$PACKAGE}{args}; }
+
+
+sub function   { return $_[0]->{$PACKAGE}{function};  }
+
+
+sub file        { return $_[0]->{$PACKAGE}{file};  }
+
+
+sub package     { return $_[0]->{$PACKAGE}{package}; }
+
+
+sub caller      { return $_[0]->{$PACKAGE}{caller};  }
+
+
+sub line        { return $_[0]->{$PACKAGE}{line};  }
+
+
+# TODO: The comments above say this can be undefined. Is that actually
+# the case? (With 'system', perhaps?)
+
+sub context     { return $_[0]->{$PACKAGE}{context} }
+
+
+sub return      { return $_[0]->{$PACKAGE}{return} }
+
+
+# TODO: Make errno part of a role.  It doesn't make sense for
+# everything.
+
+sub errno       { return $_[0]->{$PACKAGE}{errno}; }
+
+
+sub eval_error { return $_[0]->{$PACKAGE}{eval_error}; }
+
+
+{
+    my (%cache);
+
+    sub matches {
+        my ($this, $that) = @_;
+
+        # TODO - Handle references
+        croak "UNIMPLEMENTED" if ref $that;
+
+        my $sub = $this->function;
+
+        if ($DEBUG) {
+            my $sub2 = $this->function;
+            warn "Smart-matching $that against $sub / $sub2\n";
+        }
+
+        # Direct subname match.
+        return 1 if $that eq $sub;
+        return 1 if $that !~ /:/ and "CORE::$that" eq $sub;
+        return 0 if $that !~ /^:/;
+
+        # Cached match / check tags.
+        require Fatal;
+
+        if (exists $cache{$sub}{$that}) {
+            return $cache{$sub}{$that};
+        }
+
+        # This rather awful looking line checks to see if our sub is in the
+        # list of expanded tags, caches it, and returns the result.
+
+        return $cache{$sub}{$that} = grep { $_ eq $sub } @{ $this->_expand_tag($that) };
+    }
+}
+
+# This exists primarily so that child classes can override or
+# augment it if they wish.
+
+sub _expand_tag {
+    my ($this, @args) = @_;
+
+    return Fatal->_expand_tag(@args);
+}
+
+
+# The table below records customer formatters.
+# TODO - Should this be a package var instead?
+# TODO - Should these be in a completely different file, or
+#        perhaps loaded on demand?  Most formatters will never
+#        get used in most programs.
+
+my %formatter_of = (
+    'CORE::close'    => \&_format_close,
+    'CORE::open'     => \&_format_open,
+    'CORE::dbmopen'  => \&_format_dbmopen,
+    'CORE::flock'    => \&_format_flock,
+    'CORE::read'     => \&_format_readwrite,
+    'CORE::sysread'  => \&_format_readwrite,
+    'CORE::syswrite' => \&_format_readwrite,
+    'CORE::chmod'    => \&_format_chmod,
+    'CORE::mkdir'    => \&_format_mkdir,
+);
+
+sub _beautify_arguments {
+    shift @_;
+
+    # Walk through all our arguments, and...
+    #
+    #   * Replace undef with the word 'undef'
+    #   * Replace globs with the string '$fh'
+    #   * Quote all other args.
+    foreach my $arg (@_) {
+       if    (not defined($arg))   { $arg = 'undef' }
+       elsif (ref($arg) eq "GLOB") { $arg = '$fh'   }
+       else                        { $arg = qq{'$arg'} }
+    }
+
+    return @_;
+}
+
+sub _trim_package_name {
+    # Info: The following is done since 05/2008 (which is before v1.10)
+
+    # TODO: This is probably a good idea for CORE, is it
+    # a good idea for other subs?
+
+    # Trim package name off dying sub for error messages
+    (my $name = $_[1]) =~ s/.*:://;
+    return $name;
+}
+
+# Returns the parameter formatted as octal number
+sub _octalize_number {
+    my $number = $_[1];
+
+    # Only reformat if it looks like a whole number
+    if ($number =~ /^\d+$/) {
+        $number = sprintf("%#04lo", $number);
+    }
+
+    return $number;
+}
+
+# TODO: Our tests only check LOCK_EX | LOCK_NB is properly
+# formatted.  Try other combinations and ensure they work
+# correctly.
+
+sub _format_flock {
+    my ($this) = @_;
+
+    require Fcntl;
+
+    my $filehandle = $this->args->[0];
+    my $raw_mode   = $this->args->[1];
+
+    my $mode_type;
+    my $lock_unlock;
+
+    if ($raw_mode & Fcntl::LOCK_EX() ) {
+        $lock_unlock = "lock";
+        $mode_type = "for exclusive access";
+    }
+    elsif ($raw_mode & Fcntl::LOCK_SH() ) {
+        $lock_unlock = "lock";
+        $mode_type = "for shared access";
+    }
+    elsif ($raw_mode & Fcntl::LOCK_UN() ) {
+        $lock_unlock = "unlock";
+        $mode_type = "";
+    }
+    else {
+        # I've got no idea what they're trying to do.
+        $lock_unlock = "lock";
+        $mode_type = "with mode $raw_mode";
+    }
+
+    my $cooked_filehandle;
+
+    if ($filehandle and not ref $filehandle) {
+
+        # A package filehandle with a name!
+
+        $cooked_filehandle = " $filehandle";
+    }
+    else {
+        # Otherwise we have a scalar filehandle.
+
+        $cooked_filehandle = '';
+
+    }
+
+    local $! = $this->errno;
+
+    return "Can't $lock_unlock filehandle$cooked_filehandle $mode_type: $!";
+
+}
+
+# Default formatter for CORE::chmod
+sub _format_chmod {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    my $mode   = shift @args;
+    local $!   = $this->errno;
+
+    $mode = $this->_octalize_number($mode);
+
+    @args = $this->_beautify_arguments(@args);
+
+    return "Can't chmod($mode, ". join(q{, }, @args) ."): $!";
+}
+
+# Default formatter for CORE::mkdir
+sub _format_mkdir {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    # If no mask is specified use default formatter
+    if (@args < 2) {
+      return $this->format_default;
+    }
+
+    my $file = $args[0];
+    my $mask = $args[1];
+    local $! = $this->errno;
+
+    $mask = $this->_octalize_number($mask);
+
+    return "Can't mkdir('$file', $mask): '$!'";
+}
+
+# Default formatter for CORE::dbmopen
+sub _format_dbmopen {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    # TODO: Presently, $args flattens out the (usually empty) hash
+    # which is passed as the first argument to dbmopen.  This is
+    # a bug in our args handling code (taking a reference to it would
+    # be better), but for the moment we'll just examine the end of
+    # our arguments list for message formatting.
+
+    my $mode = $args[-1];
+    my $file = $args[-2];
+
+    $mode = $this->_octalize_number($mode);
+
+    local $! = $this->errno;
+
+    return "Can't dbmopen(%hash, '$file', $mode): '$!'";
+}
+
+# Default formatter for CORE::close
+
+sub _format_close {
+    my ($this) = @_;
+    my $close_arg = $this->args->[0];
+
+    local $! = $this->errno;
+
+    # If we've got an old-style filehandle, mention it.
+    if ($close_arg and not ref $close_arg) {
+        return "Can't close filehandle '$close_arg': '$!'";
+    }
+
+    # TODO - This will probably produce an ugly error.  Test and fix.
+    return "Can't close($close_arg) filehandle: '$!'";
+
+}
+
+# Default formatter for CORE::read, CORE::sysread and CORE::syswrite
+#
+# Similar to default formatter with the buffer filtered out as it
+# may contain binary data.
+sub _format_readwrite {
+    my ($this) = @_;
+    my $call = $this->_trim_package_name($this->function);
+    local $! = $this->errno;
+
+    # These subs receive the following arguments (in order):
+    #
+    # * FILEHANDLE
+    # * SCALAR (buffer, we do not want to write this)
+    # * LENGTH (optional for syswrite)
+    # * OFFSET (optional for all)
+    my (@args) = @{$this->args};
+    my $arg_name = $args[1];
+    if (defined($arg_name)) {
+        if (ref($arg_name)) {
+            my $name = blessed($arg_name) || ref($arg_name);
+            $arg_name = "<${name}>";
+        } else {
+            $arg_name = '<BUFFER>';
+        }
+    } else {
+        $arg_name = '<UNDEF>';
+    }
+    $args[1] = $arg_name;
+
+    return "Can't $call(" . join(q{, }, @args) . "): $!";
+}
+
+# Default formatter for CORE::open
+
+use constant _FORMAT_OPEN => "Can't open '%s' for %s: '%s'";
+
+sub _format_open_with_mode {
+    my ($this, $mode, $file, $error) = @_;
+
+    my $wordy_mode;
+
+    if    ($mode eq '<')  { $wordy_mode = 'reading';   }
+    elsif ($mode eq '>')  { $wordy_mode = 'writing';   }
+    elsif ($mode eq '>>') { $wordy_mode = 'appending'; }
+
+    $file = '<undef>' if not defined $file;
+
+    return sprintf _FORMAT_OPEN, $file, $wordy_mode, $error if $wordy_mode;
+
+    Carp::confess("Internal autodie::exception error: Don't know how to format mode '$mode'.");
+
+}
+
+sub _format_open {
+    my ($this) = @_;
+
+    my @open_args = @{$this->args};
+
+    # Use the default formatter for single-arg and many-arg open
+    if (@open_args <= 1 or @open_args >= 4) {
+        return $this->format_default;
+    }
+
+    # For two arg open, we have to extract the mode
+    if (@open_args == 2) {
+        my ($fh, $file) = @open_args;
+
+        if (ref($fh) eq "GLOB") {
+            $fh = '$fh';
+        }
+
+        my ($mode) = $file =~ m{
+            ^\s*                # Spaces before mode
+            (
+                (?>             # Non-backtracking subexp.
+                    <           # Reading
+                    |>>?        # Writing/appending
+                )
+            )
+            [^&]                # Not an ampersand (which means a dup)
+        }x;
+
+        if (not $mode) {
+            # Maybe it's a 2-arg open without any mode at all?
+            # Detect the most simple case for this, where our
+            # file consists only of word characters.
+
+            if ( $file =~ m{^\s*\w+\s*$} ) {
+                $mode = '<'
+            }
+            else {
+                # Otherwise, we've got no idea what's going on.
+                # Use the default.
+                return $this->format_default;
+            }
+        }
+
+        # Localising $! means perl makes it a pretty error for us.
+        local $! = $this->errno;
+
+        return $this->_format_open_with_mode($mode, $file, $!);
+    }
+
+    # Here we must be using three arg open.
+
+    my $file = $open_args[2];
+
+    local $! = $this->errno;
+
+    my $mode = $open_args[1];
+
+    local $@;
+
+    my $msg = eval { $this->_format_open_with_mode($mode, $file, $!); };
+
+    return $msg if $msg;
+
+    # Default message (for pipes and odd things)
+
+    return "Can't open '$file' with mode '$open_args[1]': '$!'";
+}
+
+
+sub register {
+    my ($class, $symbol, $handler) = @_;
+
+    croak "Incorrect call to autodie::register" if @_ != 3;
+
+    $formatter_of{$symbol} = $handler;
+
+}
+
+
+# Simply produces the file and line number; intended to be added
+# to the end of error messages.
+
+sub add_file_and_line {
+    my ($this) = @_;
+
+    return sprintf(" at %s line %d\n", $this->file, $this->line);
+}
+
+
+sub stringify {
+    my ($this) = @_;
+
+    my $call        =  $this->function;
+    my $msg;
+
+    if ($DEBUG) {
+        my $dying_pkg   = $this->package;
+        my $sub   = $this->function;
+        my $caller = $this->caller;
+        warn "Stringifing exception for $dying_pkg :: $sub / $caller / $call\n";
+    }
+
+    # TODO - This isn't using inheritance.  Should it?
+    if ( my $sub = $formatter_of{$call} ) {
+        $msg = $sub->($this) . $this->add_file_and_line;
+    } else {
+        $msg = $this->format_default . $this->add_file_and_line;
+    }
+    $msg .=  $this->{$PACKAGE}{_stack_trace}
+        if $Carp::Verbose;
+
+    return $msg;
+}
+
+
+# TODO: This produces ugly errors.  Is there any way we can
+# dig around to find the actual variable names?  I know perl 5.10
+# does some dark and terrible magicks to find them for undef warnings.
+
+sub format_default {
+    my ($this) = @_;
+
+    my $call   =  $this->_trim_package_name($this->function);
+
+    local $! = $this->errno;
+
+    my @args = @{ $this->args() };
+    @args = $this->_beautify_arguments(@args);
+
+    # Format our beautiful error.
+
+    return "Can't $call(".  join(q{, }, @args) . "): $!" ;
+
+    # TODO - Handle user-defined errors from hash.
+
+    # TODO - Handle default error messages.
+
+}
+
+
+sub new {
+    my ($class, @args) = @_;
+
+    my $this = {};
+
+    bless($this,$class);
+
+    # I'd love to use EVERY here, but it causes our code to die
+    # because it wants to stringify our objects before they're
+    # initialised, causing everything to explode.
+
+    $this->_init(@args);
+
+    return $this;
+}
+
+sub _init {
+
+    my ($this, %args) = @_;
+
+    # Capturing errno here is not necessarily reliable.
+    my $original_errno = $!;
+
+    our $init_called = 1;
+
+    my $class = ref $this;
+
+    # We're going to walk up our call stack, looking for the
+    # first thing that doesn't look like our exception
+    # code, autodie/Fatal, or some whacky eval.
+
+    my ($package, $file, $line, $sub);
+
+    my $depth = 0;
+
+    while (1) {
+        $depth++;
+
+        ($package, $file, $line, $sub) = CORE::caller($depth);
+
+        # Skip up the call stack until we find something outside
+        # of the Fatal/autodie/eval space.
+
+        next if $package->isa('Fatal');
+        next if $package->isa($class);
+        next if $package->isa(__PACKAGE__);
+
+        # Anything with the 'autodie::skip' role wants us to skip it.
+        # https://github.com/pjf/autodie/issues/15
+
+        next if ($package->can('DOES') and $package->DOES('autodie::skip'));
+
+        next if $file =~ /^\(eval\s\d+\)$/;
+
+        last;
+
+    }
+
+    # We now have everything correct, *except* for our subroutine
+    # name.  If it's __ANON__ or (eval), then we need to keep on
+    # digging deeper into our stack to find the real name.  However we
+    # don't update our other information, since that will be correct
+    # for our current exception.
+
+    my $first_guess_subroutine = $sub;
+
+    while (defined $sub and $sub =~ /^\(eval\)$|::__ANON__$/) {
+        $depth++;
+
+        $sub = (CORE::caller($depth))[3];
+    }
+
+    # If we end up falling out the bottom of our stack, then our
+    # __ANON__ guess is the best we can get.  This includes situations
+    # where we were called from the top level of a program.
+
+    if (not defined $sub) {
+        $sub = $first_guess_subroutine;
+    }
+
+    $this->{$PACKAGE}{package} = $package;
+    $this->{$PACKAGE}{file}    = $file;
+    $this->{$PACKAGE}{line}    = $line;
+    $this->{$PACKAGE}{caller}  = $sub;
+
+    # Tranks to %Carp::CarpInternal all Fatal, autodie and
+    # autodie::exception stack frames are filtered already, but our
+    # nameless wrapper is still present, so strip that.
+
+    my $trace = Carp::longmess();
+    $trace =~ s/^\s*at \(eval[^\n]+\n//;
+
+    # And if we see an __ANON__, then we'll replace that with the actual
+    # name of our autodying function.
+
+    my $short_func = $args{function};
+    $short_func =~ s/^CORE:://;
+    $trace =~ s/(\s*[\w:]+)__ANON__/$1$short_func/;
+
+    # And now we just fill in all our attributes.
+
+    $this->{$PACKAGE}{_stack_trace} = $trace;
+
+    $this->{$PACKAGE}{errno}   = $args{errno} || 0;
+
+    $this->{$PACKAGE}{context} = $args{context};
+    $this->{$PACKAGE}{return}  = $args{return};
+    $this->{$PACKAGE}{eval_error}  = $args{eval_error};
+
+    $this->{$PACKAGE}{args}    = $args{args} || [];
+    $this->{$PACKAGE}{function}= $args{function} or
+              croak("$class->new() called without function arg");
+
+    return $this;
+
+}
+
+1;
+
+__END__
+
+package autodie::exception::system;
+use 5.008;
+use strict;
+use warnings;
+use parent 'autodie::exception';
+use Carp qw(croak);
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+
+# ABSTRACT: Exceptions from autodying system().
+
+my $PACKAGE = __PACKAGE__;
+
+
+sub _init {
+    my ($this, %args) = @_;
+
+    $this->{$PACKAGE}{message} = $args{message}
+        || croak "'message' arg not supplied to autodie::exception::system->new";
+
+    return $this->SUPER::_init(%args);
+
+}
+
+
+sub stringify {
+
+    my ($this) = @_;
+
+    return $this->{$PACKAGE}{message} . $this->add_file_and_line;
+
+}
+
+1;
+
+__END__
+
+package autodie::Scope::Guard;
+
+use strict;
+use warnings;
+
+# ABSTRACT: Wrapper class for calling subs at end of scope
+our $VERSION = '2.29'; # VERSION
+
+# This code schedules the cleanup of subroutines at the end of
+# scope.  It's directly inspired by chocolateboy's excellent
+# Scope::Guard module.
+
+sub new {
+    my ($class, $handler) = @_;
+    return bless($handler, $class);
+}
+
+sub DESTROY {
+    my ($self) = @_;
+
+    $self->();
+}
+
+1;
+
+__END__
+
+package autodie::Scope::GuardStack;
+
+use strict;
+use warnings;
+
+use autodie::Scope::Guard;
+
+# ABSTRACT: Hook stack for managing scopes via %^H
+our $VERSION = '2.29'; # VERSION
+
+my $H_KEY_STEM = __PACKAGE__ . '/guard';
+my $COUNTER = 0;
+
+# This code schedules the cleanup of subroutines at the end of
+# scope.  It's directly inspired by chocolateboy's excellent
+# Scope::Guard module.
+
+sub new {
+    my ($class) = @_;
+
+    return bless([], $class);
+}
+
+sub push_hook {
+    my ($self, $hook) = @_;
+    my $h_key = $H_KEY_STEM . ($COUNTER++);
+    my $size = @{$self};
+    $^H{$h_key} = autodie::Scope::Guard->new(sub {
+        # Pop the stack until we reach the right size
+        # - this may seem weird, but it is to avoid relying
+        #   on "destruction order" of keys in %^H.
+        #
+        # Example:
+        #  {
+        #     use autodie;  # hook 1
+        #     no autodie;   # hook 2
+        #     use autodie;  # hook 3
+        #  }
+        #
+        #  Here we want call hook 3, then hook 2 and finally hook 1.
+        #  Any other order could have undesired consequences.
+        #
+        #  Suppose hook 2 is destroyed first, it will pop hook 3 and
+        #  then hook 2.  hook 3 will then be destroyed, but do nothing
+        #  since its "frame" was already popped and finally hook 1
+        #  will be popped and take its own frame with it.
+        #
+        #  We need to check that $self still exists since things can get weird
+        #  during global destruction.
+        $self->_pop_hook while $self && @{$self} > $size;
+    });
+    push(@{$self}, [$hook, $h_key]);
+    return;
+}
+
+sub _pop_hook {
+    my ($self) = @_;
+    my ($hook, $key) = @{ pop(@{$self}) };
+    my $ref = delete($^H{$key});
+    $hook->();
+    return;
+}
+
+sub DESTROY {
+    my ($self) = @_;
+
+    # To be honest, I suspect @{$self} will always be empty here due
+    # to the subs in %^H having references to the stack (which would
+    # keep the stack alive until those have been destroyed).  Anyhow,
+    # it never hurt to be careful.
+    $self->_pop_hook while @{$self};
+    return;
+}
+
+1;
+
+__END__
+
+package Tie::Array;
+
+use 5.006_001;
+use strict;
+use Carp;
+our $VERSION = '1.07';
+
+# Pod documentation after __END__ below.
+
+sub DESTROY { }
+sub EXTEND  { }
+sub UNSHIFT { scalar shift->SPLICE(0,0,@_) }
+sub SHIFT { shift->SPLICE(0,1) }
+sub CLEAR   { shift->STORESIZE(0) }
+
+sub PUSH
+{
+ my $obj = shift;
+ my $i   = $obj->FETCHSIZE;
+ $obj->STORE($i++, shift) while (@_);
+}
+
+sub POP
+{
+ my $obj = shift;
+ my $newsize = $obj->FETCHSIZE - 1;
+ my $val;
+ if ($newsize >= 0)
+  {
+   $val = $obj->FETCH($newsize);
+   $obj->STORESIZE($newsize);
+  }
+ $val;
+}
+
+sub SPLICE {
+    my $obj = shift;
+    my $sz  = $obj->FETCHSIZE;
+    my $off = (@_) ? shift : 0;
+    $off += $sz if ($off < 0);
+    my $len = (@_) ? shift : $sz - $off;
+    $len += $sz - $off if $len < 0;
+    my @result;
+    for (my $i = 0; $i < $len; $i++) {
+        push(@result,$obj->FETCH($off+$i));
+    }
+    $off = $sz if $off > $sz;
+    $len -= $off + $len - $sz if $off + $len > $sz;
+    if (@_ > $len) {
+        # Move items up to make room
+        my $d = @_ - $len;
+        my $e = $off+$len;
+        $obj->EXTEND($sz+$d);
+        for (my $i=$sz-1; $i >= $e; $i--) {
+            my $val = $obj->FETCH($i);
+            $obj->STORE($i+$d,$val);
+        }
+    }
+    elsif (@_ < $len) {
+        # Move items down to close the gap
+        my $d = $len - @_;
+        my $e = $off+$len;
+        for (my $i=$off+$len; $i < $sz; $i++) {
+            my $val = $obj->FETCH($i);
+            $obj->STORE($i-$d,$val);
+        }
+        $obj->STORESIZE($sz-$d);
+    }
+    for (my $i=0; $i < @_; $i++) {
+        $obj->STORE($off+$i,$_[$i]);
+    }
+    return wantarray ? @result : pop @result;
+}
+
+sub EXISTS {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define an EXISTS method";
+}
+
+sub DELETE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a DELETE method";
+}
+
+package Tie::StdArray;
+our @ISA = 'Tie::Array';
+
+sub TIEARRAY  { bless [], $_[0] }
+sub FETCHSIZE { scalar @{$_[0]} }
+sub STORESIZE { $#{$_[0]} = $_[1]-1 }
+sub STORE     { $_[0]->[$_[1]] = $_[2] }
+sub FETCH     { $_[0]->[$_[1]] }
+sub CLEAR     { @{$_[0]} = () }
+sub POP       { pop(@{$_[0]}) }
+sub PUSH      { my $o = shift; push(@$o,@_) }
+sub SHIFT     { shift(@{$_[0]}) }
+sub UNSHIFT   { my $o = shift; unshift(@$o,@_) }
+sub EXISTS    { exists $_[0]->[$_[1]] }
+sub DELETE    { delete $_[0]->[$_[1]] }
+
+sub SPLICE
+{
+ my $ob  = shift;
+ my $sz  = $ob->FETCHSIZE;
+ my $off = @_ ? shift : 0;
+ $off   += $sz if $off < 0;
+ my $len = @_ ? shift : $sz-$off;
+ return splice(@$ob,$off,$len,@_);
+}
+
+1;
+
+__END__
+
+package Tie::SubstrHash;
+
+our $VERSION = '1.00';
+
+
+use Carp;
+
+sub TIEHASH {
+    my $pack = shift;
+    my ($klen, $vlen, $tsize) = @_;
+    my $rlen = 1 + $klen + $vlen;
+    $tsize = [$tsize,
+	      findgteprime($tsize * 1.1)]; # Allow 10% empty.
+    local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
+    $$self[0] x= $rlen * $tsize->[1];
+    $self;
+}
+
+sub CLEAR {
+    local($self) = @_;
+    $$self[0] = "\0" x ($$self[4] * $$self[3]->[1]);
+    $$self[5] =  0;
+    $$self[6] = -1;
+}
+
+sub FETCH {
+    local($self,$key) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    return undef;
+	}
+	elsif (ord($record) == 1) {
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    return substr($record, 1+$klen, $vlen);
+	}
+	&rehash;
+    }
+}
+
+sub STORE {
+    local($self,$key,$val) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    croak("Table is full ($tsize->[0] elements)") if $$self[5] > $tsize->[0];
+    croak(qq/Value "$val" is not $vlen characters long/)
+	if length($val) != $vlen;
+    my $writeoffset;
+
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    $record = "\2". $key . $val;
+	    die "panic" unless length($record) == $rlen;
+	    $writeoffset = $offset unless defined $writeoffset;
+	    substr($$self[0], $writeoffset, $rlen) = $record;
+	    ++$$self[5];
+	    return;
+	}
+	elsif (ord($record) == 1) {
+	    $writeoffset = $offset unless defined $writeoffset;
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    $record = "\2". $key . $val;
+	    die "panic" unless length($record) == $rlen;
+	    substr($$self[0], $offset, $rlen) = $record;
+	    return;
+	}
+	&rehash;
+    }
+}
+
+sub DELETE {
+    local($self,$key) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    return undef;
+	}
+	elsif (ord($record) == 1) {
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    substr($$self[0], $offset, 1) = "\1";
+	    return substr($record, 1+$klen, $vlen);
+	    --$$self[5];
+	}
+	&rehash;
+    }
+}
+
+sub FIRSTKEY {
+    local($self) = @_;
+    $$self[6] = -1;
+    &NEXTKEY;
+}
+
+sub NEXTKEY {
+    local($self) = @_;
+    local($klen, $vlen, $tsize, $rlen, $entries, $iterix) = @$self[1..6];
+    for (++$iterix; $iterix < $tsize->[1]; ++$iterix) {
+	next unless substr($$self[0], $iterix * $rlen, 1) eq "\2";
+	$$self[6] = $iterix;
+	return substr($$self[0], $iterix * $rlen + 1, $klen);
+    }
+    $$self[6] = -1;
+    undef;
+}
+
+sub EXISTS {
+    croak "Tie::SubstrHash does not support exists()";
+}
+
+sub hashkey {
+    croak(qq/Key "$key" is not $klen characters long/)
+	if length($key) != $klen;
+    $hash = 2;
+    for (unpack('C*', $key)) {
+	$hash = $hash * 33 + $_;
+	&_hashwrap if $hash >= 1e13;
+    }
+    &_hashwrap if $hash >= $tsize->[1];
+    $hash = 1 unless $hash;
+    $hashbase = $hash;
+}
+
+sub _hashwrap {
+    $hash -= int($hash / $tsize->[1]) * $tsize->[1];
+}
+
+sub rehash {
+    $hash += $hashbase;
+    $hash -= $tsize->[1] if $hash >= $tsize->[1];
+}
+
+# using POSIX::ceil() would be too heavy, and not all platforms have it.
+sub ceil {
+    my $num = shift;
+    $num = int($num + 1) unless $num == int $num;
+    return $num;
+}
+
+# See:
+#
+# http://www-groups.dcs.st-andrews.ac.uk/~history/HistTopics/Prime_numbers.html
+#
+
+sub findgteprime { # find the smallest prime integer greater than or equal to
+    use integer;
+
+    my $num = ceil(shift);
+    return 2 if $num <= 2;
+
+    $num++ unless $num % 2;
+    my $i;
+    my $sqrtnum = int sqrt $num;
+    my $sqrtnumsquared = $sqrtnum * $sqrtnum;
+
+  NUM:
+    for (;; $num += 2) {
+	if ($sqrtnumsquared < $num) {
+	    $sqrtnum++;
+	    $sqrtnumsquared = $sqrtnum * $sqrtnum;
+	}
+        for ($i = 3; $i <= $sqrtnum; $i += 2) {
+            next NUM unless $num % $i;
+        }
+        return $num;
+    }
+}
+
+1;
+package Tie::StdHandle; 
+
+use strict;
+
+use Tie::Handle;
+our @ISA = 'Tie::Handle';
+our $VERSION = '4.5';
+
+
+sub TIEHANDLE 
+{
+ my $class = shift;
+ my $fh    = \do { local *HANDLE};
+ bless $fh,$class;
+ $fh->OPEN(@_) if (@_);
+ return $fh;
+}
+
+sub EOF     { eof($_[0]) }
+sub TELL    { tell($_[0]) }
+sub FILENO  { fileno($_[0]) }
+sub SEEK    { seek($_[0],$_[1],$_[2]) }
+sub CLOSE   { close($_[0]) }
+sub BINMODE { binmode($_[0]) }
+
+sub OPEN
+{
+ $_[0]->CLOSE if defined($_[0]->FILENO);
+ @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
+}
+
+sub READ     { &CORE::read(shift, \shift, @_) }
+sub READLINE { my $fh = $_[0]; <$fh> }
+sub GETC     { getc($_[0]) }
+
+sub WRITE
+{
+ my $fh = $_[0];
+ local $\; # don't print any line terminator
+ print $fh substr($_[1], $_[3], $_[2]);
+}
+
+
+1;
+use strict;
+package Tie::Memoize;
+use Tie::Hash;
+our @ISA = 'Tie::ExtraHash';
+our $VERSION = '1.1';
+
+our $exists_token = \undef;
+
+sub croak {require Carp; goto &Carp::croak}
+
+# Format: [0: STORAGE, 1: EXISTS-CACHE, 2: FETCH_function;
+#	   3: EXISTS_function, 4: DATA, 5: EXISTS_different ]
+
+sub FETCH {
+  my ($h,$key) = ($_[0][0], $_[1]);
+  my $res = $h->{$key};
+  return $res if defined $res;	# Shortcut if accessible
+  return $res if exists $h->{$key}; # Accessible, but undef
+  my $cache = $_[0][1]{$key};
+  return if defined $cache and not $cache; # Known to not exist
+  my @res = $_[0][2]->($key, $_[0][4]);	# Autoload
+  $_[0][1]{$key} = 0, return unless @res; # Cache non-existence
+  delete $_[0][1]{$key};	# Clear existence cache, not needed any more
+  $_[0][0]{$key} = $res[0];	# Store data and return
+}
+
+sub EXISTS   {
+  my ($a,$key) = (shift, shift);
+  return 1 if exists $a->[0]{$key}; # Have data
+  my $cache = $a->[1]{$key};
+  return $cache if defined $cache; # Existence cache
+  my @res = $a->[3]($key,$a->[4]);
+  $a->[1]{$key} = 0, return unless @res; # Cache non-existence
+  # Now we know it exists
+  return ($a->[1]{$key} = 1) if $a->[5]; # Only existence reported
+  # Now know the value
+  $a->[0]{$key} = $res[0];    # Store data
+  return 1
+}
+
+sub TIEHASH  {
+  croak 'syntax: tie %hash, \'Tie::AutoLoad\', \&fetch_subr' if @_ < 2;
+  croak 'syntax: tie %hash, \'Tie::AutoLoad\', \&fetch_subr, $data, \&exists_subr, \%data_cache, \%existence_cache' if @_ > 6;
+  push @_, undef if @_ < 3;	# Data
+  push @_, $_[1] if @_ < 4;	# exists
+  push @_, {} while @_ < 6;	# initial value and caches
+  bless [ @_[4,5,1,3,2], $_[1] ne $_[3]], $_[0]
+}
+
+1;
+
+
+
+package Tie::File;
+require 5.005;
+use Carp ':DEFAULT', 'confess';
+use POSIX 'SEEK_SET';
+use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY';
+sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY }
+
+
+$VERSION = "1.02";
+my $DEFAULT_MEMORY_SIZE = 1<<21;    # 2 megabytes
+my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records
+my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful
+
+my %good_opt = map {$_ => 1, "-$_" => 1}
+                 qw(memory dw_size mode recsep discipline 
+                    autodefer autochomp autodefer_threshhold concurrent);
+
+sub TIEARRAY {
+  if (@_ % 2 != 0) {
+    croak "usage: tie \@array, $_[0], filename, [option => value]...";
+  }
+  my ($pack, $file, %opts) = @_;
+
+  # transform '-foo' keys into 'foo' keys
+  for my $key (keys %opts) {
+    unless ($good_opt{$key}) {
+      croak("$pack: Unrecognized option '$key'\n");
+    }
+    my $okey = $key;
+    if ($key =~ s/^-+//) {
+      $opts{$key} = delete $opts{$okey};
+    }
+  }
+
+  if ($opts{concurrent}) {
+    croak("$pack: concurrent access not supported yet\n");
+  }
+
+  unless (defined $opts{memory}) {
+    # default is the larger of the default cache size and the 
+    # deferred-write buffer size (if specified)
+    $opts{memory} = $DEFAULT_MEMORY_SIZE;
+    $opts{memory} = $opts{dw_size}
+      if defined $opts{dw_size} && $opts{dw_size} > $DEFAULT_MEMORY_SIZE;
+    # Dora Winifred Read
+  }
+  $opts{dw_size} = $opts{memory} unless defined $opts{dw_size};
+  if ($opts{dw_size} > $opts{memory}) {
+      croak("$pack: dw_size may not be larger than total memory allocation\n");
+  }
+  # are we in deferred-write mode?
+  $opts{defer} = 0 unless defined $opts{defer};
+  $opts{deferred} = {};         # no records are presently deferred
+  $opts{deferred_s} = 0;        # count of total bytes in ->{deferred}
+  $opts{deferred_max} = -1;     # empty
+
+  # What's a good way to arrange that this class can be overridden?
+  $opts{cache} = Tie::File::Cache->new($opts{memory});
+
+  # autodeferment is enabled by default
+  $opts{autodefer} = 1 unless defined $opts{autodefer};
+  $opts{autodeferring} = 0;     # but is not initially active
+  $opts{ad_history} = [];
+  $opts{autodefer_threshhold} = $DEFAULT_AUTODEFER_THRESHHOLD
+    unless defined $opts{autodefer_threshhold};
+  $opts{autodefer_filelen_threshhold} = $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD
+    unless defined $opts{autodefer_filelen_threshhold};
+
+  $opts{offsets} = [0];
+  $opts{filename} = $file;
+  unless (defined $opts{recsep}) { 
+    $opts{recsep} = _default_recsep();
+  }
+  $opts{recseplen} = length($opts{recsep});
+  if ($opts{recseplen} == 0) {
+    croak "Empty record separator not supported by $pack";
+  }
+
+  $opts{autochomp} = 1 unless defined $opts{autochomp};
+
+  $opts{mode} = O_CREAT|O_RDWR unless defined $opts{mode};
+  $opts{rdonly} = (($opts{mode} & O_ACCMODE) == O_RDONLY);
+  $opts{sawlastrec} = undef;
+
+  my $fh;
+
+  if (UNIVERSAL::isa($file, 'GLOB')) {
+    # We use 1 here on the theory that some systems 
+    # may not indicate failure if we use 0.
+    # MSWin32 does not indicate failure with 0, but I don't know if
+    # it will indicate failure with 1 or not.
+    unless (seek $file, 1, SEEK_SET) {
+      croak "$pack: your filehandle does not appear to be seekable";
+    }
+    seek $file, 0, SEEK_SET;    # put it back
+    $fh = $file;                # setting binmode is the user's problem
+  } elsif (ref $file) {
+    croak "usage: tie \@array, $pack, filename, [option => value]...";
+  } else {
+    # $fh = \do { local *FH };  # XXX this is buggy
+    if ($] < 5.006) {
+	# perl 5.005 and earlier don't autovivify filehandles
+	require Symbol;
+	$fh = Symbol::gensym();
+    }
+    sysopen $fh, $file, $opts{mode}, 0666 or return;
+    binmode $fh;
+    ++$opts{ourfh};
+  }
+  { my $ofh = select $fh; $| = 1; select $ofh } # autoflush on write
+  if (defined $opts{discipline} && $] >= 5.006) {
+    # This avoids a compile-time warning under 5.005
+    eval 'binmode($fh, $opts{discipline})';
+    croak $@ if $@ =~ /unknown discipline/i;
+    die if $@;
+  }
+  $opts{fh} = $fh;
+
+  bless \%opts => $pack;
+}
+
+sub FETCH {
+  my ($self, $n) = @_;
+  my $rec;
+
+  # check the defer buffer
+  $rec = $self->{deferred}{$n} if exists $self->{deferred}{$n};
+  $rec = $self->_fetch($n) unless defined $rec;
+
+  # inlined _chomp1
+  substr($rec, - $self->{recseplen}) = ""
+    if defined $rec && $self->{autochomp};
+  $rec;
+}
+
+# Chomp many records in-place; return nothing useful
+sub _chomp {
+  my $self = shift;
+  return unless $self->{autochomp};
+  if ($self->{autochomp}) {
+    for (@_) {
+      next unless defined;
+      substr($_, - $self->{recseplen}) = "";
+    }
+  }
+}
+
+# Chomp one record in-place; return modified record
+sub _chomp1 {
+  my ($self, $rec) = @_;
+  return $rec unless $self->{autochomp};
+  return unless defined $rec;
+  substr($rec, - $self->{recseplen}) = "";
+  $rec;
+}
+
+sub _fetch {
+  my ($self, $n) = @_;
+
+  # check the record cache
+  { my $cached = $self->{cache}->lookup($n);
+    return $cached if defined $cached;
+  }
+
+  if ($#{$self->{offsets}} < $n) {
+    return if $self->{eof};  # request for record beyond end of file
+    my $o = $self->_fill_offsets_to($n);
+    # If it's still undefined, there is no such record, so return 'undef'
+    return unless defined $o;
+  }
+
+  my $fh = $self->{FH};
+  $self->_seek($n);             # we can do this now that offsets is populated
+  my $rec = $self->_read_record;
+
+# If we happen to have just read the first record, check to see if
+# the length of the record matches what 'tell' says.  If not, Tie::File
+# won't work, and should drop dead.
+#
+#  if ($n == 0 && defined($rec) && tell($self->{fh}) != length($rec)) {
+#    if (defined $self->{discipline}) {
+#      croak "I/O discipline $self->{discipline} not supported";
+#    } else {
+#      croak "File encoding not supported";
+#    }
+#  }
+
+  $self->{cache}->insert($n, $rec) if defined $rec && not $self->{flushing};
+  $rec;
+}
+
+sub STORE {
+  my ($self, $n, $rec) = @_;
+  die "STORE called from _check_integrity!" if $DIAGNOSTIC;
+
+  $self->_fixrecs($rec);
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history($n);
+  }
+
+  return $self->_store_deferred($n, $rec) if $self->_is_deferring;
+
+
+  # We need this to decide whether the new record will fit
+  # It incidentally populates the offsets table 
+  # Note we have to do this before we alter the cache
+  # 20020324 Wait, but this DOES alter the cache.  TODO BUG?
+  my $oldrec = $self->_fetch($n);
+
+  if (not defined $oldrec) {
+    # We're storing a record beyond the end of the file
+    $self->_extend_file_to($n+1);
+    $oldrec = $self->{recsep};
+  }
+#  return if $oldrec eq $rec;    # don't bother
+  my $len_diff = length($rec) - length($oldrec);
+
+  # length($oldrec) here is not consistent with text mode  TODO XXX BUG
+  $self->_mtwrite($rec, $self->{offsets}[$n], length($oldrec));
+  $self->_oadjust([$n, 1, $rec]);
+  $self->{cache}->update($n, $rec);
+}
+
+sub _store_deferred {
+  my ($self, $n, $rec) = @_;
+  $self->{cache}->remove($n);
+  my $old_deferred = $self->{deferred}{$n};
+
+  if (defined $self->{deferred_max} && $n > $self->{deferred_max}) {
+    $self->{deferred_max} = $n;
+  }
+  $self->{deferred}{$n} = $rec;
+
+  my $len_diff = length($rec);
+  $len_diff -= length($old_deferred) if defined $old_deferred;
+  $self->{deferred_s} += $len_diff;
+  $self->{cache}->adj_limit(-$len_diff);
+  if ($self->{deferred_s} > $self->{dw_size}) {
+    $self->_flush;
+  } elsif ($self->_cache_too_full) {
+    $self->_cache_flush;
+  }
+}
+
+# Remove a single record from the deferred-write buffer without writing it
+# The record need not be present
+sub _delete_deferred {
+  my ($self, $n) = @_;
+  my $rec = delete $self->{deferred}{$n};
+  return unless defined $rec;
+
+  if (defined $self->{deferred_max} 
+      && $n == $self->{deferred_max}) {
+    undef $self->{deferred_max};
+  }
+
+  $self->{deferred_s} -= length $rec;
+  $self->{cache}->adj_limit(length $rec);
+}
+
+sub FETCHSIZE {
+  my $self = shift;
+  my $n = $self->{eof} ? $#{$self->{offsets}} : $self->_fill_offsets;
+
+  my $top_deferred = $self->_defer_max;
+  $n = $top_deferred+1 if defined $top_deferred && $n < $top_deferred+1;
+  $n;
+}
+
+sub STORESIZE {
+  my ($self, $len) = @_;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('STORESIZE');
+  }
+
+  my $olen = $self->FETCHSIZE;
+  return if $len == $olen;      # Woo-hoo!
+
+  # file gets longer
+  if ($len > $olen) {
+    if ($self->_is_deferring) {
+      for ($olen .. $len-1) {
+        $self->_store_deferred($_, $self->{recsep});
+      }
+    } else {
+      $self->_extend_file_to($len);
+    }
+    return;
+  }
+
+  # file gets shorter
+  if ($self->_is_deferring) {
+    # TODO maybe replace this with map-plus-assignment?
+    for (grep $_ >= $len, keys %{$self->{deferred}}) {
+      $self->_delete_deferred($_);
+    }
+    $self->{deferred_max} = $len-1;
+  }
+
+  $self->_seek($len);
+  $self->_chop_file;
+  $#{$self->{offsets}} = $len;
+#  $self->{offsets}[0] = 0;      # in case we just chopped this
+
+  $self->{cache}->remove(grep $_ >= $len, $self->{cache}->ckeys);
+}
+
+### OPTIMIZE ME
+### It should not be necessary to do FETCHSIZE
+### Just seek to the end of the file.
+sub PUSH {
+  my $self = shift;
+  $self->SPLICE($self->FETCHSIZE, scalar(@_), @_);
+
+  # No need to return:
+  #  $self->FETCHSIZE;  # because av.c takes care of this for me
+}
+
+sub POP {
+  my $self = shift;
+  my $size = $self->FETCHSIZE;
+  return if $size == 0;
+#  print STDERR "# POPPITY POP POP POP\n";
+  scalar $self->SPLICE($size-1, 1);
+}
+
+sub SHIFT {
+  my $self = shift;
+  scalar $self->SPLICE(0, 1);
+}
+
+sub UNSHIFT {
+  my $self = shift;
+  $self->SPLICE(0, 0, @_);
+  # $self->FETCHSIZE; # av.c takes care of this for me
+}
+
+sub CLEAR {
+  my $self = shift;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('CLEAR');
+  }
+
+  $self->_seekb(0);
+  $self->_chop_file;
+    $self->{cache}->set_limit($self->{memory});
+    $self->{cache}->empty;
+  @{$self->{offsets}} = (0);
+  %{$self->{deferred}}= ();
+    $self->{deferred_s} = 0;
+    $self->{deferred_max} = -1;
+}
+
+sub EXTEND {
+  my ($self, $n) = @_;
+
+  # No need to pre-extend anything in this case
+  return if $self->_is_deferring;
+
+  $self->_fill_offsets_to($n);
+  $self->_extend_file_to($n);
+}
+
+sub DELETE {
+  my ($self, $n) = @_;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('DELETE');
+  }
+
+  my $lastrec = $self->FETCHSIZE-1;
+  my $rec = $self->FETCH($n);
+  $self->_delete_deferred($n) if $self->_is_deferring;
+  if ($n == $lastrec) {
+    $self->_seek($n);
+    $self->_chop_file;
+    $#{$self->{offsets}}--;
+    $self->{cache}->remove($n);
+    # perhaps in this case I should also remove trailing null records?
+    # 20020316
+    # Note that delete @a[-3..-1] deletes the records in the wrong order,
+    # so we only chop the very last one out of the file.  We could repair this
+    # by tracking deleted records inside the object.
+  } elsif ($n < $lastrec) {
+    $self->STORE($n, "");
+  }
+  $rec;
+}
+
+sub EXISTS {
+  my ($self, $n) = @_;
+  return 1 if exists $self->{deferred}{$n};
+  $n < $self->FETCHSIZE;
+}
+
+sub SPLICE {
+  my $self = shift;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('SPLICE');
+  }
+
+  $self->_flush if $self->_is_deferring; # move this up?
+  if (wantarray) {
+    $self->_chomp(my @a = $self->_splice(@_));
+    @a;
+  } else {
+    $self->_chomp1(scalar $self->_splice(@_));
+  }
+}
+
+sub DESTROY {
+  my $self = shift;
+  $self->flush if $self->_is_deferring;
+  $self->{cache}->delink if defined $self->{cache}; # break circular link
+  if ($self->{fh} and $self->{ourfh}) {
+      delete $self->{ourfh};
+      close delete $self->{fh};
+  }
+}
+
+sub _splice {
+  my ($self, $pos, $nrecs, @data) = @_;
+  my @result;
+
+  $pos = 0 unless defined $pos;
+
+  # Deal with negative and other out-of-range positions
+  # Also set default for $nrecs 
+  {
+    my $oldsize = $self->FETCHSIZE;
+    $nrecs = $oldsize unless defined $nrecs;
+    my $oldpos = $pos;
+
+    if ($pos < 0) {
+      $pos += $oldsize;
+      if ($pos < 0) {
+        croak "Modification of non-creatable array value attempted, " .
+              "subscript $oldpos";
+      }
+    }
+
+    if ($pos > $oldsize) {
+      return unless @data;
+      $pos = $oldsize;          # This is what perl does for normal arrays
+    }
+
+    # The manual is very unclear here
+    if ($nrecs < 0) {
+      $nrecs = $oldsize - $pos + $nrecs;
+      $nrecs = 0 if $nrecs < 0;
+    }
+
+    # nrecs is too big---it really means "until the end"
+    # 20030507
+    if ($nrecs + $pos > $oldsize) {
+      $nrecs = $oldsize - $pos;
+    }
+  }
+
+  $self->_fixrecs(@data);
+  my $data = join '', @data;
+  my $datalen = length $data;
+  my $oldlen = 0;
+
+  # compute length of data being removed
+  for ($pos .. $pos+$nrecs-1) {
+    last unless defined $self->_fill_offsets_to($_);
+    my $rec = $self->_fetch($_);
+    last unless defined $rec;
+    push @result, $rec;
+
+    # Why don't we just use length($rec) here?
+    # Because that record might have come from the cache.  _splice
+    # might have been called to flush out the deferred-write records,
+    # and in this case length($rec) is the length of the record to be
+    # *written*, not the length of the actual record in the file.  But
+    # the offsets are still true. 20020322
+    $oldlen += $self->{offsets}[$_+1] - $self->{offsets}[$_]
+      if defined $self->{offsets}[$_+1];
+  }
+  $self->_fill_offsets_to($pos+$nrecs);
+
+  # Modify the file
+  $self->_mtwrite($data, $self->{offsets}[$pos], $oldlen);
+  # Adjust the offsets table
+  $self->_oadjust([$pos, $nrecs, @data]);
+
+  { # Take this read cache stuff out into a separate function
+    # You made a half-attempt to put it into _oadjust.  
+    # Finish something like that up eventually.
+    # STORE also needs to do something similarish
+
+    # update the read cache, part 1
+    # modified records
+    for ($pos .. $pos+$nrecs-1) {
+      my $new = $data[$_-$pos];
+      if (defined $new) {
+        $self->{cache}->update($_, $new);
+      } else {
+        $self->{cache}->remove($_);
+      }
+    }
+    
+    # update the read cache, part 2
+    # moved records - records past the site of the change
+    # need to be renumbered
+    # Maybe merge this with the previous block?
+    {
+      my @oldkeys = grep $_ >= $pos + $nrecs, $self->{cache}->ckeys;
+      my @newkeys = map $_-$nrecs+@data, @oldkeys;
+      $self->{cache}->rekey(\@oldkeys, \@newkeys);
+    }
+
+    # Now there might be too much data in the cache, if we spliced out
+    # some short records and spliced in some long ones.  If so, flush
+    # the cache.
+    $self->_cache_flush;
+  }
+
+  # Yes, the return value of 'splice' *is* actually this complicated
+  wantarray ? @result : @result ? $result[-1] : undef;
+}
+
+
+# write data into the file
+# $data is the data to be written.
+# it should be written at position $pos, and should overwrite
+# exactly $len of the following bytes.  
+# Note that if length($data) > $len, the subsequent bytes will have to 
+# be moved up, and if length($data) < $len, they will have to
+# be moved down
+sub _twrite {
+  my ($self, $data, $pos, $len) = @_;
+
+  unless (defined $pos) {
+    die "\$pos was undefined in _twrite";
+  }
+
+  my $len_diff = length($data) - $len;
+
+  if ($len_diff == 0) {          # Woo-hoo!
+    my $fh = $self->{fh};
+    $self->_seekb($pos);
+    $self->_write_record($data);
+    return;                     # well, that was easy.
+  }
+
+  # the two records are of different lengths
+  # our strategy here: rewrite the tail of the file,
+  # reading ahead one buffer at a time
+  # $bufsize is required to be at least as large as the data we're overwriting
+  my $bufsize = _bufsize($len_diff);
+  my ($writepos, $readpos) = ($pos, $pos+$len);
+  my $next_block;
+  my $more_data;
+
+  # Seems like there ought to be a way to avoid the repeated code
+  # and the special case here.  The read(1) is also a little weird.
+  # Think about this.
+  do {
+    $self->_seekb($readpos);
+    my $br = read $self->{fh}, $next_block, $bufsize;
+    $more_data = read $self->{fh}, my($dummy), 1;
+    $self->_seekb($writepos);
+    $self->_write_record($data);
+    $readpos += $br;
+    $writepos += length $data;
+    $data = $next_block;
+  } while $more_data;
+  $self->_seekb($writepos);
+  $self->_write_record($next_block);
+
+  # There might be leftover data at the end of the file
+  $self->_chop_file if $len_diff < 0;
+}
+
+# _iwrite(D, S, E)
+# Insert text D at position S.
+# Let C = E-S-|D|.  If C < 0; die.  
+# Data in [S,S+C) is copied to [S+D,S+D+C) = [S+D,E).
+# Data in [S+C = E-D, E) is returned.  Data in [E, oo) is untouched.
+#
+# In a later version, don't read the entire intervening area into
+# memory at once; do the copying block by block.
+sub _iwrite {
+  my $self = shift;
+  my ($D, $s, $e) = @_;
+  my $d = length $D;
+  my $c = $e-$s-$d;
+  local *FH = $self->{fh};
+  confess "Not enough space to insert $d bytes between $s and $e"
+    if $c < 0;
+  confess "[$s,$e) is an invalid insertion range" if $e < $s;
+
+  $self->_seekb($s);
+  read FH, my $buf, $e-$s;
+
+  $D .= substr($buf, 0, $c, "");
+
+  $self->_seekb($s);
+  $self->_write_record($D);
+
+  return $buf;
+}
+
+# Like _twrite, but the data-pos-len triple may be repeated; you may
+# write several chunks.  All the writing will be done in
+# one pass.   Chunks SHALL be in ascending order and SHALL NOT overlap.
+sub _mtwrite {
+  my $self = shift;
+  my $unwritten = "";
+  my $delta = 0;
+
+  @_ % 3 == 0 
+    or die "Arguments to _mtwrite did not come in groups of three";
+
+  while (@_) {
+    my ($data, $pos, $len) = splice @_, 0, 3;
+    my $end = $pos + $len;  # The OLD end of the segment to be replaced
+    $data = $unwritten . $data;
+    $delta -= length($unwritten);
+    $unwritten  = "";
+    $pos += $delta;             # This is where the data goes now
+    my $dlen = length $data;
+    $self->_seekb($pos);
+    if ($len >= $dlen) {        # the data will fit
+      $self->_write_record($data);
+      $delta += ($dlen - $len); # everything following moves down by this much
+      $data = ""; # All the data in the buffer has been written
+    } else {                    # won't fit
+      my $writable = substr($data, 0, $len - $delta, "");
+      $self->_write_record($writable);
+      $delta += ($dlen - $len); # everything following moves down by this much
+    } 
+
+    # At this point we've written some but maybe not all of the data.
+    # There might be a gap to close up, or $data might still contain a
+    # bunch of unwritten data that didn't fit.
+    my $ndlen = length $data;
+    if ($delta == 0) {
+      $self->_write_record($data);
+    } elsif ($delta < 0) {
+      # upcopy (close up gap)
+      if (@_) {
+        $self->_upcopy($end, $end + $delta, $_[1] - $end);  
+      } else {
+        $self->_upcopy($end, $end + $delta);  
+      }
+    } else {
+      # downcopy (insert data that didn't fit; replace this data in memory
+      # with _later_ data that doesn't fit)
+      if (@_) {
+        $unwritten = $self->_downcopy($data, $end, $_[1] - $end);
+      } else {
+        # Make the file longer to accommodate the last segment that doesn't
+        $unwritten = $self->_downcopy($data, $end);
+      }
+    }
+  }
+}
+
+# Copy block of data of length $len from position $spos to position $dpos
+# $dpos must be <= $spos
+#
+# If $len is undefined, go all the way to the end of the file
+# and then truncate it ($spos - $dpos bytes will be removed)
+sub _upcopy {
+  my $blocksize = 8192;
+  my ($self, $spos, $dpos, $len) = @_;
+  if ($dpos > $spos) {
+    die "source ($spos) was upstream of destination ($dpos) in _upcopy";
+  } elsif ($dpos == $spos) {
+    return;
+  }
+
+  while (! defined ($len) || $len > 0) {
+    my $readsize = ! defined($len) ? $blocksize
+               : $len > $blocksize ? $blocksize
+               : $len;
+      
+    my $fh = $self->{fh};
+    $self->_seekb($spos);
+    my $bytes_read = read $fh, my($data), $readsize;
+    $self->_seekb($dpos);
+    if ($data eq "") { 
+      $self->_chop_file;
+      last;
+    }
+    $self->_write_record($data);
+    $spos += $bytes_read;
+    $dpos += $bytes_read;
+    $len -= $bytes_read if defined $len;
+  }
+}
+
+# Write $data into a block of length $len at position $pos,
+# moving everything in the block forwards to make room.
+# Instead of writing the last length($data) bytes from the block
+# (because there isn't room for them any longer) return them.
+#
+# Undefined $len means 'until the end of the file'
+sub _downcopy {
+  my $blocksize = 8192;
+  my ($self, $data, $pos, $len) = @_;
+  my $fh = $self->{fh};
+
+  while (! defined $len || $len > 0) {
+    my $readsize = ! defined($len) ? $blocksize 
+      : $len > $blocksize? $blocksize : $len;
+    $self->_seekb($pos);
+    read $fh, my($old), $readsize;
+    my $last_read_was_short = length($old) < $readsize;
+    $data .= $old;
+    my $writable;
+    if ($last_read_was_short) {
+      # If last read was short, then $data now contains the entire rest
+      # of the file, so there's no need to write only one block of it
+      $writable = $data;
+      $data = "";
+    } else {
+      $writable = substr($data, 0, $readsize, "");
+    }
+    last if $writable eq "";
+    $self->_seekb($pos);
+    $self->_write_record($writable);
+    last if $last_read_was_short && $data eq "";
+    $len -= $readsize if defined $len;
+    $pos += $readsize;
+  }
+  return $data;
+}
+
+# Adjust the object data structures following an '_mtwrite'
+# Arguments are
+#  [$pos, $nrecs, @length]  items
+# indicating that $nrecs records were removed at $recpos (a record offset)
+# and replaced with records of length @length...
+# Arguments guarantee that $recpos is strictly increasing.
+# No return value
+sub _oadjust {
+  my $self = shift;
+  my $delta = 0;
+  my $delta_recs = 0;
+  my $prev_end = -1;
+  my %newkeys;
+
+  for (@_) {
+    my ($pos, $nrecs, @data) = @$_;
+    $pos += $delta_recs;
+
+    # Adjust the offsets of the records after the previous batch up
+    # to the first new one of this batch
+    for my $i ($prev_end+2 .. $pos - 1) {
+      $self->{offsets}[$i] += $delta;
+      $newkey{$i} = $i + $delta_recs;
+    }
+
+    $prev_end = $pos + @data - 1; # last record moved on this pass 
+
+    # Remove the offsets for the removed records;
+    # replace with the offsets for the inserted records
+    my @newoff = ($self->{offsets}[$pos] + $delta);
+    for my $i (0 .. $#data) {
+      my $newlen = length $data[$i];
+      push @newoff, $newoff[$i] + $newlen;
+      $delta += $newlen;
+    }
+
+    for my $i ($pos .. $pos+$nrecs-1) {
+      last if $i+1 > $#{$self->{offsets}};
+      my $oldlen = $self->{offsets}[$i+1] - $self->{offsets}[$i];
+      $delta -= $oldlen;
+    }
+
+#    # also this data has changed, so update it in the cache
+#    for (0 .. $#data) {
+#      $self->{cache}->update($pos + $_, $data[$_]);
+#    }
+#    if ($delta_recs) {
+#      my @oldkeys = grep $_ >= $pos + @data, $self->{cache}->ckeys;
+#      my @newkeys = map $_ + $delta_recs, @oldkeys;
+#      $self->{cache}->rekey(\@oldkeys, \@newkeys);
+#    }
+
+    # replace old offsets with new
+    splice @{$self->{offsets}}, $pos, $nrecs+1, @newoff;
+    # What if we just spliced out the end of the offsets table?
+    # shouldn't we clear $self->{eof}?   Test for this XXX BUG TODO
+
+    $delta_recs += @data - $nrecs; # net change in total number of records
+  }
+
+  # The trailing records at the very end of the file
+  if ($delta) {
+    for my $i ($prev_end+2 .. $#{$self->{offsets}}) {
+      $self->{offsets}[$i] += $delta;
+    }
+  }
+
+  # If we scrubbed out all known offsets, regenerate the trivial table
+  # that knows that the file does indeed start at 0.
+  $self->{offsets}[0] = 0 unless @{$self->{offsets}};
+  # If the file got longer, the offsets table is no longer complete
+  # $self->{eof} = 0 if $delta_recs > 0;
+
+  # Now there might be too much data in the cache, if we spliced out
+  # some short records and spliced in some long ones.  If so, flush
+  # the cache.
+  $self->_cache_flush;
+}
+
+# If a record does not already end with the appropriate terminator
+# string, append one.
+sub _fixrecs {
+  my $self = shift;
+  for (@_) {
+    $_ = "" unless defined $_;
+    $_ .= $self->{recsep}
+      unless substr($_, - $self->{recseplen}) eq $self->{recsep};
+  }
+}
+
+
+################################################################
+#
+# Basic read, write, and seek
+#
+
+# seek to the beginning of record #$n
+# Assumes that the offsets table is already correctly populated
+#
+# Note that $n=-1 has a special meaning here: It means the start of
+# the last known record; this may or may not be the very last record
+# in the file, depending on whether the offsets table is fully populated.
+#
+sub _seek {
+  my ($self, $n) = @_;
+  my $o = $self->{offsets}[$n];
+  defined($o)
+    or confess("logic error: undefined offset for record $n");
+  seek $self->{fh}, $o, SEEK_SET
+    or confess "Couldn't seek filehandle: $!";  # "Should never happen."
+}
+
+# seek to byte $b in the file
+sub _seekb {
+  my ($self, $b) = @_;
+  seek $self->{fh}, $b, SEEK_SET
+    or die "Couldn't seek filehandle: $!";  # "Should never happen."
+}
+
+# populate the offsets table up to the beginning of record $n
+# return the offset of record $n
+sub _fill_offsets_to {
+  my ($self, $n) = @_;
+
+  return $self->{offsets}[$n] if $self->{eof};
+
+  my $fh = $self->{fh};
+  local *OFF = $self->{offsets};
+  my $rec;
+
+  until ($#OFF >= $n) {
+    $self->_seek(-1);           # tricky -- see comment at _seek
+    $rec = $self->_read_record;
+    if (defined $rec) {
+      push @OFF, int(tell $fh);  # Tels says that int() saves memory here
+    } else {
+      $self->{eof} = 1;
+      return;                   # It turns out there is no such record
+    }
+  }
+
+  # we have now read all the records up to record n-1,
+  # so we can return the offset of record n
+  $OFF[$n];
+}
+
+sub _fill_offsets {
+  my ($self) = @_;
+
+  my $fh = $self->{fh};
+  local *OFF = $self->{offsets};
+
+  $self->_seek(-1);           # tricky -- see comment at _seek
+
+  # Tels says that inlining read_record() would make this loop
+  # five times faster. 20030508
+  while ( defined $self->_read_record()) {
+    # int() saves us memory here
+    push @OFF, int(tell $fh);
+  }
+
+  $self->{eof} = 1;
+  $#OFF;
+}
+
+# assumes that $rec is already suitably terminated
+sub _write_record {
+  my ($self, $rec) = @_;
+  my $fh = $self->{fh};
+  local $\ = "";
+  print $fh $rec
+    or die "Couldn't write record: $!";  # "Should never happen."
+#  $self->{_written} += length($rec);
+}
+
+sub _read_record {
+  my $self = shift;
+  my $rec;
+  { local $/ = $self->{recsep};
+    my $fh = $self->{fh};
+    $rec = <$fh>;
+  }
+  return unless defined $rec;
+  if (substr($rec, -$self->{recseplen}) ne $self->{recsep}) {
+    # improperly terminated final record --- quietly fix it.
+#    my $ac = substr($rec, -$self->{recseplen});
+#    $ac =~ s/\n/\\n/g;
+    $self->{sawlastrec} = 1;
+    unless ($self->{rdonly}) {
+      local $\ = "";
+      my $fh = $self->{fh};
+      print $fh $self->{recsep};
+    }
+    $rec .= $self->{recsep};
+  }
+#  $self->{_read} += length($rec) if defined $rec;
+  $rec;
+}
+
+sub _rw_stats {
+  my $self = shift;
+  @{$self}{'_read', '_written'};
+}
+
+################################################################
+#
+# Read cache management
+
+sub _cache_flush {
+  my ($self) = @_;
+  $self->{cache}->reduce_size_to($self->{memory} - $self->{deferred_s});
+}
+
+sub _cache_too_full {
+  my $self = shift;
+  $self->{cache}->bytes + $self->{deferred_s} >= $self->{memory};
+}
+
+################################################################
+#
+# File custodial services
+#
+
+
+# We have read to the end of the file and have the offsets table
+# entirely populated.  Now we need to write a new record beyond
+# the end of the file.  We prepare for this by writing
+# empty records into the file up to the position we want
+#
+# assumes that the offsets table already contains the offset of record $n,
+# if it exists, and extends to the end of the file if not.
+sub _extend_file_to {
+  my ($self, $n) = @_;
+  $self->_seek(-1);             # position after the end of the last record
+  my $pos = $self->{offsets}[-1];
+
+  # the offsets table has one entry more than the total number of records
+  my $extras = $n - $#{$self->{offsets}};
+
+  # Todo : just use $self->{recsep} x $extras here?
+  while ($extras-- > 0) {
+    $self->_write_record($self->{recsep});
+    push @{$self->{offsets}}, int(tell $self->{fh});
+  }
+}
+
+# Truncate the file at the current position
+sub _chop_file {
+  my $self = shift;
+  truncate $self->{fh}, tell($self->{fh});
+}
+
+
+# compute the size of a buffer suitable for moving
+# all the data in a file forward $n bytes
+# ($n may be negative)
+# The result should be at least $n.
+sub _bufsize {
+  my $n = shift;
+  return 8192 if $n <= 0;
+  my $b = $n & ~8191;
+  $b += 8192 if $n & 8191;
+  $b;
+}
+
+################################################################
+#
+# Miscellaneous public methods
+#
+
+# Lock the file
+sub flock {
+  my ($self, $op) = @_;
+  unless (@_ <= 3) {
+    my $pack = ref $self;
+    croak "Usage: $pack\->flock([OPERATION])";
+  }
+  my $fh = $self->{fh};
+  $op = LOCK_EX unless defined $op;
+  my $locked = flock $fh, $op;
+
+  if ($locked && ($op & (LOCK_EX | LOCK_SH))) {
+    # If you're locking the file, then presumably it's because
+    # there might have been a write access by another process.
+    # In that case, the read cache contents and the offsets table
+    # might be invalid, so discard them.  20030508
+    $self->{offsets} = [0];
+    $self->{cache}->empty;
+  }
+
+  $locked;
+}
+
+# Get/set autochomp option
+sub autochomp {
+  my $self = shift;
+  if (@_) {
+    my $old = $self->{autochomp};
+    $self->{autochomp} = shift;
+    $old;
+  } else {
+    $self->{autochomp};
+  }
+}
+
+# Get offset table entries; returns offset of nth record
+sub offset {
+  my ($self, $n) = @_;
+
+  if ($#{$self->{offsets}} < $n) {
+    return if $self->{eof};     # request for record beyond the end of file
+    my $o = $self->_fill_offsets_to($n);
+    # If it's still undefined, there is no such record, so return 'undef'
+    return unless defined $o;
+   }
+
+  $self->{offsets}[$n];
+}
+
+sub discard_offsets {
+  my $self = shift;
+  $self->{offsets} = [0];
+}
+
+################################################################
+#
+# Matters related to deferred writing
+#
+
+# Defer writes
+sub defer {
+  my $self = shift;
+  $self->_stop_autodeferring;
+  @{$self->{ad_history}} = ();
+  $self->{defer} = 1;
+}
+
+# Flush deferred writes
+#
+# This could be better optimized to write the file in one pass, instead
+# of one pass per block of records.  But that will require modifications
+# to _twrite, so I should have a good _twrite test suite first.
+sub flush {
+  my $self = shift;
+
+  $self->_flush;
+  $self->{defer} = 0;
+}
+
+sub _old_flush {
+  my $self = shift;
+  my @writable = sort {$a<=>$b} (keys %{$self->{deferred}});
+
+  while (@writable) {
+    # gather all consecutive records from the front of @writable
+    my $first_rec = shift @writable;
+    my $last_rec = $first_rec+1;
+    ++$last_rec, shift @writable while @writable && $last_rec == $writable[0];
+    --$last_rec;
+    $self->_fill_offsets_to($last_rec);
+    $self->_extend_file_to($last_rec);
+    $self->_splice($first_rec, $last_rec-$first_rec+1, 
+                   @{$self->{deferred}}{$first_rec .. $last_rec});
+  }
+
+  $self->_discard;               # clear out defered-write-cache
+}
+
+sub _flush {
+  my $self = shift;
+  my @writable = sort {$a<=>$b} (keys %{$self->{deferred}});
+  my @args;
+  my @adjust;
+
+  while (@writable) {
+    # gather all consecutive records from the front of @writable
+    my $first_rec = shift @writable;
+    my $last_rec = $first_rec+1;
+    ++$last_rec, shift @writable while @writable && $last_rec == $writable[0];
+    --$last_rec;
+    my $end = $self->_fill_offsets_to($last_rec+1);
+    if (not defined $end) {
+      $self->_extend_file_to($last_rec);
+      $end = $self->{offsets}[$last_rec];
+    }
+    my ($start) = $self->{offsets}[$first_rec];
+    push @args,
+         join("", @{$self->{deferred}}{$first_rec .. $last_rec}), # data
+         $start,                                                  # position
+         $end-$start;                                             # length
+    push @adjust, [$first_rec, # starting at this position...
+                   $last_rec-$first_rec+1,  # this many records...
+                   # are replaced with these...
+                   @{$self->{deferred}}{$first_rec .. $last_rec},
+                  ];
+  }
+
+  $self->_mtwrite(@args);  # write multiple record groups
+  $self->_discard;               # clear out defered-write-cache
+  $self->_oadjust(@adjust);
+}
+
+# Discard deferred writes and disable future deferred writes
+sub discard {
+  my $self = shift;
+  $self->_discard;
+  $self->{defer} = 0;
+}
+
+# Discard deferred writes, but retain old deferred writing mode
+sub _discard {
+  my $self = shift;
+  %{$self->{deferred}} = ();
+  $self->{deferred_s}  = 0;
+  $self->{deferred_max}  = -1;
+  $self->{cache}->set_limit($self->{memory});
+}
+
+# Deferred writing is enabled, either explicitly ($self->{defer})
+# or automatically ($self->{autodeferring})
+sub _is_deferring {
+  my $self = shift;
+  $self->{defer} || $self->{autodeferring};
+}
+
+# The largest record number of any deferred record
+sub _defer_max {
+  my $self = shift;
+  return $self->{deferred_max} if defined $self->{deferred_max};
+  my $max = -1;
+  for my $key (keys %{$self->{deferred}}) {
+    $max = $key if $key > $max;
+  }
+  $self->{deferred_max} = $max;
+  $max;
+}
+
+################################################################
+#
+# Matters related to autodeferment
+#
+
+# Get/set autodefer option
+sub autodefer {
+  my $self = shift;
+  if (@_) {
+    my $old = $self->{autodefer};
+    $self->{autodefer} = shift;
+    if ($old) {
+      $self->_stop_autodeferring;
+      @{$self->{ad_history}} = ();
+    }
+    $old;
+  } else {
+    $self->{autodefer};
+  }
+}
+
+# The user is trying to store record #$n Record that in the history,
+# and then enable (or disable) autodeferment if that seems useful.
+# Note that it's OK for $n to be a non-number, as long as the function
+# is prepared to deal with that.  Nobody else looks at the ad_history.
+#
+# Now, what does the ad_history mean, and what is this function doing?
+# Essentially, the idea is to enable autodeferring when we see that the
+# user has made three consecutive STORE calls to three consecutive records.
+# ("Three" is actually ->{autodefer_threshhold}.)
+# A STORE call for record #$n inserts $n into the autodefer history,
+# and if the history contains three consecutive records, we enable 
+# autodeferment.  An ad_history of [X, Y] means that the most recent
+# STOREs were for records X, X+1, ..., Y, in that order.  
+#
+# Inserting a nonconsecutive number erases the history and starts over.
+#
+# Performing a special operation like SPLICE erases the history.
+#
+# There's one special case: CLEAR means that CLEAR was just called.
+# In this case, we prime the history with [-2, -1] so that if the next
+# write is for record 0, autodeferring goes on immediately.  This is for
+# the common special case of "@a = (...)".
+#
+sub _annotate_ad_history {
+  my ($self, $n) = @_;
+  return unless $self->{autodefer}; # feature is disabled
+  return if $self->{defer};     # already in explicit defer mode
+  return unless $self->{offsets}[-1] >= $self->{autodefer_filelen_threshhold};
+
+  local *H = $self->{ad_history};
+  if ($n eq 'CLEAR') {
+    @H = (-2, -1);              # prime the history with fake records
+    $self->_stop_autodeferring;
+  } elsif ($n =~ /^\d+$/) {
+    if (@H == 0) {
+      @H =  ($n, $n);
+    } else {                    # @H == 2
+      if ($H[1] == $n-1) {      # another consecutive record
+        $H[1]++;
+        if ($H[1] - $H[0] + 1 >= $self->{autodefer_threshhold}) {
+          $self->{autodeferring} = 1;
+        }
+      } else {                  # nonconsecutive- erase and start over
+        @H = ($n, $n);
+        $self->_stop_autodeferring;
+      }
+    }
+  } else {                      # SPLICE or STORESIZE or some such
+    @H = ();
+    $self->_stop_autodeferring;
+  }
+}
+
+# If autodeferring was enabled, cut it out and discard the history
+sub _stop_autodeferring {
+  my $self = shift;
+  if ($self->{autodeferring}) {
+    $self->_flush;
+  }
+  $self->{autodeferring} = 0;
+}
+
+################################################################
+
+
+# This is NOT a method.  It is here for two reasons:
+#  1. To factor a fairly complicated block out of the constructor
+#  2. To provide access for the test suite, which need to be sure
+#     files are being written properly.
+sub _default_recsep {
+  my $recsep = $/;
+  if ($^O eq 'MSWin32') {       # Dos too?
+    # Windows users expect files to be terminated with \r\n
+    # But $/ is set to \n instead
+    # Note that this also transforms \n\n into \r\n\r\n.
+    # That is a feature.
+    $recsep =~ s/\n/\r\n/g;
+  }
+  $recsep;
+}
+
+# Utility function for _check_integrity
+sub _ci_warn {
+  my $msg = shift;
+  $msg =~ s/\n/\\n/g;
+  $msg =~ s/\r/\\r/g;
+  print "# $msg\n";
+}
+
+# Given a file, make sure the cache is consistent with the
+# file contents and the internal data structures are consistent with
+# each other.  Returns true if everything checks out, false if not
+#
+# The $file argument is no longer used.  It is retained for compatibility
+# with the existing test suite.
+sub _check_integrity {
+  my ($self, $file, $warn) = @_;
+  my $rsl = $self->{recseplen};
+  my $rs  = $self->{recsep};
+  my $good = 1; 
+  local *_;                     # local $_ does not work here
+  local $DIAGNOSTIC = 1;
+
+  if (not defined $rs) {
+    _ci_warn("recsep is undef!");
+    $good = 0;
+  } elsif ($rs eq "") {
+    _ci_warn("recsep is empty!");
+    $good = 0;
+  } elsif ($rsl != length $rs) {
+    my $ln = length $rs;
+    _ci_warn("recsep <$rs> has length $ln, should be $rsl");
+    $good = 0;
+  }
+
+  if (not defined $self->{offsets}[0]) {
+    _ci_warn("offset 0 is missing!");
+    $good = 0;
+
+  } elsif ($self->{offsets}[0] != 0) {
+    _ci_warn("rec 0: offset <$self->{offsets}[0]> s/b 0!");
+    $good = 0;
+  }
+
+  my $cached = 0;
+  {
+    local *F = $self->{fh};
+    seek F, 0, SEEK_SET;
+    local $. = 0;
+    local $/ = $rs;
+
+    while (<F>) {
+      my $n = $. - 1;
+      my $cached = $self->{cache}->_produce($n);
+      my $offset = $self->{offsets}[$.];
+      my $ao = tell F;
+      if (defined $offset && $offset != $ao) {
+        _ci_warn("rec $n: offset <$offset> actual <$ao>");
+        $good = 0;
+      }
+      if (defined $cached && $_ ne $cached && ! $self->{deferred}{$n}) {
+        $good = 0;
+        _ci_warn("rec $n: cached <$cached> actual <$_>");
+      }
+      if (defined $cached && substr($cached, -$rsl) ne $rs) {
+        $good = 0;
+        _ci_warn("rec $n in the cache is missing the record separator");
+      }
+      if (! defined $offset && $self->{eof}) {
+        $good = 0;
+        _ci_warn("The offset table was marked complete, but it is missing " .
+                 "element $.");
+      }
+    }
+    if (@{$self->{offsets}} > $.+1) {
+        $good = 0;
+        my $n = @{$self->{offsets}};
+        _ci_warn("The offset table has $n items, but the file has only $.");
+    }
+
+    my $deferring = $self->_is_deferring;
+    for my $n ($self->{cache}->ckeys) {
+      my $r = $self->{cache}->_produce($n);
+      $cached += length($r);
+      next if $n+1 <= $.;         # checked this already
+      _ci_warn("spurious caching of record $n");
+      $good = 0;
+    }
+    my $b = $self->{cache}->bytes;
+    if ($cached != $b) {
+      _ci_warn("cache size is $b, should be $cached");
+      $good = 0;
+    }
+  }
+
+  # That cache has its own set of tests
+  $good = 0 unless $self->{cache}->_check_integrity;
+
+  # Now let's check the deferbuffer
+  # Unless deferred writing is enabled, it should be empty
+  if (! $self->_is_deferring && %{$self->{deferred}}) {
+    _ci_warn("deferred writing disabled, but deferbuffer nonempty");
+    $good = 0;
+  }
+
+  # Any record in the deferbuffer should *not* be present in the readcache
+  my $deferred_s = 0;
+  while (my ($n, $r) = each %{$self->{deferred}}) {
+    $deferred_s += length($r);
+    if (defined $self->{cache}->_produce($n)) {
+      _ci_warn("record $n is in the deferbuffer *and* the readcache");
+      $good = 0;
+    }
+    if (substr($r, -$rsl) ne $rs) {
+      _ci_warn("rec $n in the deferbuffer is missing the record separator");
+      $good = 0;
+    }
+  }
+
+  # Total size of deferbuffer should match internal total
+  if ($deferred_s != $self->{deferred_s}) {
+    _ci_warn("buffer size is $self->{deferred_s}, should be $deferred_s");
+    $good = 0;
+  }
+
+  # Total size of deferbuffer should not exceed the specified limit
+  if ($deferred_s > $self->{dw_size}) {
+    _ci_warn("buffer size is $self->{deferred_s} which exceeds the limit " .
+             "of $self->{dw_size}");
+    $good = 0;
+  }
+
+  # Total size of cached data should not exceed the specified limit
+  if ($deferred_s + $cached > $self->{memory}) {
+    my $total = $deferred_s + $cached;
+    _ci_warn("total stored data size is $total which exceeds the limit " .
+             "of $self->{memory}");
+    $good = 0;
+  }
+
+  # Stuff related to autodeferment
+  if (!$self->{autodefer} && @{$self->{ad_history}}) {
+    _ci_warn("autodefer is disabled, but ad_history is nonempty");
+    $good = 0;
+  }
+  if ($self->{autodeferring} && $self->{defer}) {
+    _ci_warn("both autodeferring and explicit deferring are active");
+    $good = 0;
+  }
+  if (@{$self->{ad_history}} == 0) {
+    # That's OK, no additional tests required
+  } elsif (@{$self->{ad_history}} == 2) {
+    my @non_number = grep !/^-?\d+$/, @{$self->{ad_history}};
+    if (@non_number) {
+      my $msg;
+      { local $" = ')(';
+        $msg = "ad_history contains non-numbers (@{$self->{ad_history}})";
+      }
+      _ci_warn($msg);
+      $good = 0;
+    } elsif ($self->{ad_history}[1] < $self->{ad_history}[0]) {
+      _ci_warn("ad_history has nonsensical values @{$self->{ad_history}}");
+      $good = 0;
+    }
+  } else {
+    _ci_warn("ad_history has bad length <@{$self->{ad_history}}>");
+    $good = 0;
+  }
+
+  $good;
+}
+
+################################################################
+#
+# Tie::File::Cache
+#
+# Read cache
+
+package Tie::File::Cache;
+$Tie::File::Cache::VERSION = $Tie::File::VERSION;
+use Carp ':DEFAULT', 'confess';
+
+sub HEAP () { 0 }
+sub HASH () { 1 }
+sub MAX  () { 2 }
+sub BYTES() { 3 }
+#sub STAT () { 4 } # Array with request statistics for each record
+#sub MISS () { 5 } # Total number of cache misses
+#sub REQ  () { 6 } # Total number of cache requests 
+use strict 'vars';
+
+sub new {
+  my ($pack, $max) = @_;
+  local *_;
+  croak "missing argument to ->new" unless defined $max;
+  my $self = [];
+  bless $self => $pack;
+  @$self = (Tie::File::Heap->new($self), {}, $max, 0);
+  $self;
+}
+
+sub adj_limit {
+  my ($self, $n) = @_;
+  $self->[MAX] += $n;
+}
+
+sub set_limit {
+  my ($self, $n) = @_;
+  $self->[MAX] = $n;
+}
+
+# For internal use only
+# Will be called by the heap structure to notify us that a certain 
+# piece of data has moved from one heap element to another.
+# $k is the hash key of the item
+# $n is the new index into the heap at which it is stored
+# If $n is undefined, the item has been removed from the heap.
+sub _heap_move {
+  my ($self, $k, $n) = @_;
+  if (defined $n) {
+    $self->[HASH]{$k} = $n;
+  } else {
+    delete $self->[HASH]{$k};
+  }
+}
+
+sub insert {
+  my ($self, $key, $val) = @_;
+  local *_;
+  croak "missing argument to ->insert" unless defined $key;
+  unless (defined $self->[MAX]) {
+    confess "undefined max" ;
+  }
+  confess "undefined val" unless defined $val;
+  return if length($val) > $self->[MAX];
+
+#  if ($self->[STAT]) {
+#    $self->[STAT][$key] = 1;
+#    return;
+#  }
+
+  my $oldnode = $self->[HASH]{$key};
+  if (defined $oldnode) {
+    my $oldval = $self->[HEAP]->set_val($oldnode, $val);
+    $self->[BYTES] -= length($oldval);
+  } else {
+    $self->[HEAP]->insert($key, $val);
+  }
+  $self->[BYTES] += length($val);
+  $self->flush if $self->[BYTES] > $self->[MAX];
+}
+
+sub expire {
+  my $self = shift;
+  my $old_data = $self->[HEAP]->popheap;
+  return unless defined $old_data;
+  $self->[BYTES] -= length $old_data;
+  $old_data;
+}
+
+sub remove {
+  my ($self, @keys) = @_;
+  my @result;
+
+#  if ($self->[STAT]) {
+#    for my $key (@keys) {
+#      $self->[STAT][$key] = 0;
+#    }
+#    return;
+#  }
+
+  for my $key (@keys) {
+    next unless exists $self->[HASH]{$key};
+    my $old_data = $self->[HEAP]->remove($self->[HASH]{$key});
+    $self->[BYTES] -= length $old_data;
+    push @result, $old_data;
+  }
+  @result;
+}
+
+sub lookup {
+  my ($self, $key) = @_;
+  local *_;
+  croak "missing argument to ->lookup" unless defined $key;
+
+#  if ($self->[STAT]) {
+#    $self->[MISS]++  if $self->[STAT][$key]++ == 0;
+#    $self->[REQ]++;
+#    my $hit_rate = 1 - $self->[MISS] / $self->[REQ];
+#    # Do some testing to determine this threshhold
+#    $#$self = STAT - 1 if $hit_rate > 0.20; 
+#  }
+
+  if (exists $self->[HASH]{$key}) {
+    $self->[HEAP]->lookup($self->[HASH]{$key});
+  } else {
+    return;
+  }
+}
+
+# For internal use only
+sub _produce {
+  my ($self, $key) = @_;
+  my $loc = $self->[HASH]{$key};
+  return unless defined $loc;
+  $self->[HEAP][$loc][2];
+}
+
+# For internal use only
+sub _promote {
+  my ($self, $key) = @_;
+  $self->[HEAP]->promote($self->[HASH]{$key});
+}
+
+sub empty {
+  my ($self) = @_;
+  %{$self->[HASH]} = ();
+    $self->[BYTES] = 0;
+    $self->[HEAP]->empty;
+#  @{$self->[STAT]} = ();
+#    $self->[MISS] = 0;
+#    $self->[REQ] = 0;
+}
+
+sub is_empty {
+  my ($self) = @_;
+  keys %{$self->[HASH]} == 0;
+}
+
+sub update {
+  my ($self, $key, $val) = @_;
+  local *_;
+  croak "missing argument to ->update" unless defined $key;
+  if (length($val) > $self->[MAX]) {
+    my ($oldval) = $self->remove($key);
+    $self->[BYTES] -= length($oldval) if defined $oldval;
+  } elsif (exists $self->[HASH]{$key}) {
+    my $oldval = $self->[HEAP]->set_val($self->[HASH]{$key}, $val);
+    $self->[BYTES] += length($val);
+    $self->[BYTES] -= length($oldval) if defined $oldval;
+  } else {
+    $self->[HEAP]->insert($key, $val);
+    $self->[BYTES] += length($val);
+  }
+  $self->flush;
+}
+
+sub rekey {
+  my ($self, $okeys, $nkeys) = @_;
+  local *_;
+  my %map;
+  @map{@$okeys} = @$nkeys;
+  croak "missing argument to ->rekey" unless defined $nkeys;
+  croak "length mismatch in ->rekey arguments" unless @$nkeys == @$okeys;
+  my %adjusted;                 # map new keys to heap indices
+  # You should be able to cut this to one loop TODO XXX
+  for (0 .. $#$okeys) {
+    $adjusted{$nkeys->[$_]} = delete $self->[HASH]{$okeys->[$_]};
+  }
+  while (my ($nk, $ix) = each %adjusted) {
+    # @{$self->[HASH]}{keys %adjusted} = values %adjusted;
+    $self->[HEAP]->rekey($ix, $nk);
+    $self->[HASH]{$nk} = $ix;
+  }
+}
+
+sub ckeys {
+  my $self = shift;
+  my @a = keys %{$self->[HASH]};
+  @a;
+}
+
+# Return total amount of cached data
+sub bytes {
+  my $self = shift;
+  $self->[BYTES];
+}
+
+# Expire oldest item from cache until cache size is smaller than $max
+sub reduce_size_to {
+  my ($self, $max) = @_;
+  until ($self->[BYTES] <= $max) {
+    # Note that Tie::File::Cache::expire has been inlined here
+    my $old_data = $self->[HEAP]->popheap;
+    return unless defined $old_data;
+    $self->[BYTES] -= length $old_data;
+  }
+}
+
+# Why not just $self->reduce_size_to($self->[MAX])?
+# Try this when things stabilize   TODO XXX
+# If the cache is too full, expire the oldest records
+sub flush {
+  my $self = shift;
+  $self->reduce_size_to($self->[MAX]) if $self->[BYTES] > $self->[MAX];
+}
+
+# For internal use only
+sub _produce_lru {
+  my $self = shift;
+  $self->[HEAP]->expire_order;
+}
+
+BEGIN { *_ci_warn = \&Tie::File::_ci_warn }
+
+sub _check_integrity {          # For CACHE
+  my $self = shift;
+  my $good = 1;
+
+  # Test HEAP
+  $self->[HEAP]->_check_integrity or $good = 0;
+
+  # Test HASH
+  my $bytes = 0;
+  for my $k (keys %{$self->[HASH]}) {
+    if ($k ne '0' && $k !~ /^[1-9][0-9]*$/) {
+      $good = 0;
+      _ci_warn "Cache hash key <$k> is non-numeric";
+    }
+
+    my $h = $self->[HASH]{$k};
+    if (! defined $h) {
+      $good = 0;
+      _ci_warn "Heap index number for key $k is undefined";
+    } elsif ($h == 0) {
+      $good = 0;
+      _ci_warn "Heap index number for key $k is zero";
+    } else {
+      my $j = $self->[HEAP][$h];
+      if (! defined $j) {
+        $good = 0;
+        _ci_warn "Heap contents key $k (=> $h) are undefined";
+      } else {
+        $bytes += length($j->[2]);
+        if ($k ne $j->[1]) {
+          $good = 0;
+          _ci_warn "Heap contents key $k (=> $h) is $j->[1], should be $k";
+        }
+      }
+    }
+  }
+
+  # Test BYTES
+  if ($bytes != $self->[BYTES]) {
+    $good = 0;
+    _ci_warn "Total data in cache is $bytes, expected $self->[BYTES]";
+  }
+
+  # Test MAX
+  if ($bytes > $self->[MAX]) {
+    $good = 0;
+    _ci_warn "Total data in cache is $bytes, exceeds maximum $self->[MAX]";
+  }
+
+  return $good;
+}
+
+sub delink {
+  my $self = shift;
+  $self->[HEAP] = undef;        # Bye bye heap
+}
+
+################################################################
+#
+# Tie::File::Heap
+#
+# Heap data structure for use by cache LRU routines
+
+package Tie::File::Heap;
+use Carp ':DEFAULT', 'confess';
+$Tie::File::Heap::VERSION = $Tie::File::Cache::VERSION;
+sub SEQ () { 0 };
+sub KEY () { 1 };
+sub DAT () { 2 };
+
+sub new {
+  my ($pack, $cache) = @_;
+  die "$pack: Parent cache object $cache does not support _heap_move method"
+    unless eval { $cache->can('_heap_move') };
+  my $self = [[0,$cache,0]];
+  bless $self => $pack;
+}
+
+# Allocate a new sequence number, larger than all previously allocated numbers
+sub _nseq {
+  my $self = shift;
+  $self->[0][0]++;
+}
+
+sub _cache {
+  my $self = shift;
+  $self->[0][1];
+}
+
+sub _nelts {
+  my $self = shift;
+  $self->[0][2];
+}
+
+sub _nelts_inc {
+  my $self = shift;
+  ++$self->[0][2];
+}  
+
+sub _nelts_dec {
+  my $self = shift;
+  --$self->[0][2];
+}  
+
+sub is_empty {
+  my $self = shift;
+  $self->_nelts == 0;
+}
+
+sub empty {
+  my $self = shift;
+  $#$self = 0;
+  $self->[0][2] = 0;
+  $self->[0][0] = 0;            # might as well reset the sequence numbers
+}
+
+# notify the parent cache object that we moved something
+sub _heap_move {
+  my $self = shift;
+  $self->_cache->_heap_move(@_);
+}
+
+# Insert a piece of data into the heap with the indicated sequence number.
+# The item with the smallest sequence number is always at the top.
+# If no sequence number is specified, allocate a new one and insert the
+# item at the bottom.
+sub insert {
+  my ($self, $key, $data, $seq) = @_;
+  $seq = $self->_nseq unless defined $seq;
+  $self->_insert_new([$seq, $key, $data]);
+}
+
+# Insert a new, fresh item at the bottom of the heap
+sub _insert_new {
+  my ($self, $item) = @_;
+  my $i = @$self;
+  $i = int($i/2) until defined $self->[$i/2];
+  $self->[$i] = $item;
+  $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+  $self->_nelts_inc;
+}
+
+# Insert [$data, $seq] pair at or below item $i in the heap.
+# If $i is omitted, default to 1 (the top element.)
+sub _insert {
+  my ($self, $item, $i) = @_;
+#  $self->_check_loc($i) if defined $i;
+  $i = 1 unless defined $i;
+  until (! defined $self->[$i]) {
+    if ($self->[$i][SEQ] > $item->[SEQ]) { # inserted item is older
+      ($self->[$i], $item) = ($item, $self->[$i]);
+      $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+    }
+    # If either is undefined, go that way.  Otherwise, choose at random
+    my $dir;
+    $dir = 0 if !defined $self->[2*$i];
+    $dir = 1 if !defined $self->[2*$i+1];
+    $dir = int(rand(2)) unless defined $dir;
+    $i = 2*$i + $dir;
+  }
+  $self->[$i] = $item;
+  $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+  $self->_nelts_inc;
+}
+
+# Remove the item at node $i from the heap, moving child items upwards.
+# The item with the smallest sequence number is always at the top.
+# Moving items upwards maintains this condition.
+# Return the removed item.  Return undef if there was no item at node $i.
+sub remove {
+  my ($self, $i) = @_;
+  $i = 1 unless defined $i;
+  my $top = $self->[$i];
+  return unless defined $top;
+  while (1) {
+    my $ii;
+    my ($L, $R) = (2*$i, 2*$i+1);
+
+    # If either is undefined, go the other way.
+    # Otherwise, go towards the smallest.
+    last unless defined $self->[$L] || defined $self->[$R];
+    $ii = $R if not defined $self->[$L];
+    $ii = $L if not defined $self->[$R];
+    unless (defined $ii) {
+      $ii = $self->[$L][SEQ] < $self->[$R][SEQ] ? $L : $R;
+    }
+
+    $self->[$i] = $self->[$ii]; # Promote child to fill vacated spot
+    $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+    $i = $ii; # Fill new vacated spot
+  }
+  $self->[0][1]->_heap_move($top->[KEY], undef);
+  undef $self->[$i];
+  $self->_nelts_dec;
+  return $top->[DAT];
+}
+
+sub popheap {
+  my $self = shift;
+  $self->remove(1);
+}
+
+# set the sequence number of the indicated item to a higher number
+# than any other item in the heap, and bubble the item down to the
+# bottom.
+sub promote {
+  my ($self, $n) = @_;
+#  $self->_check_loc($n);
+  $self->[$n][SEQ] = $self->_nseq;
+  my $i = $n;
+  while (1) {
+    my ($L, $R) = (2*$i, 2*$i+1);
+    my $dir;
+    last unless defined $self->[$L] || defined $self->[$R];
+    $dir = $R unless defined $self->[$L];
+    $dir = $L unless defined $self->[$R];
+    unless (defined $dir) {
+      $dir = $self->[$L][SEQ] < $self->[$R][SEQ] ? $L : $R;
+    }
+    @{$self}[$i, $dir] = @{$self}[$dir, $i];
+    for ($i, $dir) {
+      $self->[0][1]->_heap_move($self->[$_][KEY], $_) if defined $self->[$_];
+    }
+    $i = $dir;
+  }
+}
+
+# Return item $n from the heap, promoting its LRU status
+sub lookup {
+  my ($self, $n) = @_;
+#  $self->_check_loc($n);
+  my $val = $self->[$n];
+  $self->promote($n);
+  $val->[DAT];
+}
+
+
+# Assign a new value for node $n, promoting it to the bottom of the heap
+sub set_val {
+  my ($self, $n, $val) = @_;
+#  $self->_check_loc($n);
+  my $oval = $self->[$n][DAT];
+  $self->[$n][DAT] = $val;
+  $self->promote($n);
+  return $oval;
+}
+
+# The hash key has changed for an item;
+# alter the heap's record of the hash key
+sub rekey {
+  my ($self, $n, $new_key) = @_;
+#  $self->_check_loc($n);
+  $self->[$n][KEY] = $new_key;
+}
+
+sub _check_loc {
+  my ($self, $n) = @_;
+  unless (1 || defined $self->[$n]) {
+    confess "_check_loc($n) failed";
+  }
+}
+
+BEGIN { *_ci_warn = \&Tie::File::_ci_warn }
+
+sub _check_integrity {
+  my $self = shift;
+  my $good = 1;
+  my %seq;
+
+  unless (eval {$self->[0][1]->isa("Tie::File::Cache")}) {
+    _ci_warn "Element 0 of heap corrupt";
+    $good = 0;
+  }
+  $good = 0 unless $self->_satisfies_heap_condition(1);
+  for my $i (2 .. $#{$self}) {
+    my $p = int($i/2);          # index of parent node
+    if (defined $self->[$i] && ! defined $self->[$p]) {
+      _ci_warn "Element $i of heap defined, but parent $p isn't";
+      $good = 0;
+    }
+
+    if (defined $self->[$i]) {
+      if ($seq{$self->[$i][SEQ]}) {
+        my $seq = $self->[$i][SEQ];
+        _ci_warn "Nodes $i and $seq{$seq} both have SEQ=$seq";
+        $good = 0;
+      } else {
+        $seq{$self->[$i][SEQ]} = $i;
+      }
+    }
+  }
+
+  return $good;
+}
+
+sub _satisfies_heap_condition {
+  my $self = shift;
+  my $n = shift || 1;
+  my $good = 1;
+  for (0, 1) {
+    my $c = $n*2 + $_;
+    next unless defined $self->[$c];
+    if ($self->[$n][SEQ] >= $self->[$c]) {
+      _ci_warn "Node $n of heap does not predate node $c";
+      $good = 0 ;
+    }
+    $good = 0 unless $self->_satisfies_heap_condition($c);
+  }
+  return $good;
+}
+
+# Return a list of all the values, sorted by expiration order
+sub expire_order {
+  my $self = shift;
+  my @nodes = sort {$a->[SEQ] <=> $b->[SEQ]} $self->_nodes;
+  map { $_->[KEY] } @nodes;
+}
+
+sub _nodes {
+  my $self = shift;
+  my $i = shift || 1;
+  return unless defined $self->[$i];
+  ($self->[$i], $self->_nodes($i*2), $self->_nodes($i*2+1));
+}
+
+"Cogito, ergo sum.";  # don't forget to return a true value from the file
+
+__END__
+
+
+package Tie::Hash;
+
+our $VERSION = '1.05';
+
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIEHASH(@_);
+}
+
+# Grandfather "new"
+
+sub TIEHASH {
+    my $pkg = shift;
+    my $pkg_new = $pkg -> can ('new');
+
+    if ($pkg_new and $pkg ne __PACKAGE__) {
+        my $my_new = __PACKAGE__ -> can ('new');
+        if ($pkg_new == $my_new) {  
+            #
+            # Prevent recursion
+            #
+            croak "$pkg must define either a TIEHASH() or a new() method";
+        }
+
+	warnings::warnif ("WARNING: calling ${pkg}->new since " .
+                          "${pkg}->TIEHASH is missing");
+	$pkg -> new (@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIEHASH method";
+    }
+}
+
+sub EXISTS {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define an EXISTS method";
+}
+
+sub CLEAR {
+    my $self = shift;
+    my $key = $self->FIRSTKEY(@_);
+    my @keys;
+
+    while (defined $key) {
+	push @keys, $key;
+	$key = $self->NEXTKEY(@_, $key);
+    }
+    foreach $key (@keys) {
+	$self->DELETE(@_, $key);
+    }
+}
+
+# The Tie::StdHash package implements standard perl hash behaviour.
+# It exists to act as a base class for classes which only wish to
+# alter some parts of their behaviour.
+
+package Tie::StdHash;
+# @ISA = qw(Tie::Hash);		# would inherit new() only
+
+sub TIEHASH  { bless {}, $_[0] }
+sub STORE    { $_[0]->{$_[1]} = $_[2] }
+sub FETCH    { $_[0]->{$_[1]} }
+sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
+sub NEXTKEY  { each %{$_[0]} }
+sub EXISTS   { exists $_[0]->{$_[1]} }
+sub DELETE   { delete $_[0]->{$_[1]} }
+sub CLEAR    { %{$_[0]} = () }
+sub SCALAR   { scalar %{$_[0]} }
+
+package Tie::ExtraHash;
+
+sub TIEHASH  { my $p = shift; bless [{}, @_], $p }
+sub STORE    { $_[0][0]{$_[1]} = $_[2] }
+sub FETCH    { $_[0][0]{$_[1]} }
+sub FIRSTKEY { my $a = scalar keys %{$_[0][0]}; each %{$_[0][0]} }
+sub NEXTKEY  { each %{$_[0][0]} }
+sub EXISTS   { exists $_[0][0]->{$_[1]} }
+sub DELETE   { delete $_[0][0]->{$_[1]} }
+sub CLEAR    { %{$_[0][0]} = () }
+sub SCALAR   { scalar %{$_[0][0]} }
+
+1;
+package Tie::Handle;
+
+use 5.006_001;
+our $VERSION = '4.2';
+
+# Tie::StdHandle used to be inside Tie::Handle.  For backwards compatibility
+# loading Tie::Handle has to make Tie::StdHandle available.
+use Tie::StdHandle;
+
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIEHANDLE(@_);
+}
+
+# "Grandfather" the new, a la Tie::Hash
+
+sub TIEHANDLE {
+    my $pkg = shift;
+    if (defined &{"{$pkg}::new"}) {
+	warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing");
+	$pkg->new(@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIEHANDLE method";
+    }
+}
+
+sub PRINT {
+    my $self = shift;
+    if($self->can('WRITE') != \&WRITE) {
+	my $buf = join(defined $, ? $, : "",@_);
+	$buf .= $\ if defined $\;
+	$self->WRITE($buf,length($buf),0);
+    }
+    else {
+	croak ref($self)," doesn't define a PRINT method";
+    }
+}
+
+sub PRINTF {
+    my $self = shift;
+    
+    if($self->can('WRITE') != \&WRITE) {
+	my $buf = sprintf(shift,@_);
+	$self->WRITE($buf,length($buf),0);
+    }
+    else {
+	croak ref($self)," doesn't define a PRINTF method";
+    }
+}
+
+sub READLINE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a READLINE method";
+}
+
+sub GETC {
+    my $self = shift;
+    
+    if($self->can('READ') != \&READ) {
+	my $buf;
+	$self->READ($buf,1);
+	return $buf;
+    }
+    else {
+	croak ref($self)," doesn't define a GETC method";
+    }
+}
+
+sub READ {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a READ method";
+}
+
+sub WRITE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a WRITE method";
+}
+
+sub CLOSE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a CLOSE method";
+}
+
+1;
+package Tie::RefHash;
+
+use vars qw/$VERSION/;
+
+$VERSION = "1.39";
+
+use 5.005;
+
+
+use Tie::Hash;
+use vars '@ISA';
+@ISA = qw(Tie::Hash);
+use strict;
+use Carp qw/croak/;
+
+BEGIN {
+  local $@;
+  # determine whether we need to take care of threads
+  use Config ();
+  my $usethreads = $Config::Config{usethreads}; # && exists $INC{"threads.pm"}
+  *_HAS_THREADS = $usethreads ? sub () { 1 } : sub () { 0 };
+  *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 };
+  *_HAS_WEAKEN = defined(&Scalar::Util::weaken) ? sub () { 1 } : sub () { 0 };
+}
+
+BEGIN {
+  # create a refaddr function
+
+  local $@;
+
+  if ( _HAS_SCALAR_UTIL ) {
+    Scalar::Util->import("refaddr");
+  } else {
+    require overload;
+
+    *refaddr = sub {
+      if ( overload::StrVal($_[0]) =~ /\( 0x ([a-zA-Z0-9]+) \)$/x) {
+          return $1;
+      } else {
+        die "couldn't parse StrVal: " . overload::StrVal($_[0]);
+      }
+    };
+  }
+}
+
+my (@thread_object_registry, $count); # used by the CLONE method to rehash the keys after their refaddr changed
+
+sub TIEHASH {
+  my $c = shift;
+  my $s = [];
+  bless $s, $c;
+  while (@_) {
+    $s->STORE(shift, shift);
+  }
+
+  if (_HAS_THREADS ) {
+
+    if ( _HAS_WEAKEN ) {
+      # remember the object so that we can rekey it on CLONE
+      push @thread_object_registry, $s;
+      # but make this a weak reference, so that there are no leaks
+      Scalar::Util::weaken( $thread_object_registry[-1] );
+
+      if ( ++$count > 1000 ) {
+        # this ensures we don't fill up with a huge array dead weakrefs
+        @thread_object_registry = grep { defined } @thread_object_registry;
+        $count = 0;
+      }
+    } else {
+      $count++; # used in the warning
+    }
+  }
+
+  return $s;
+}
+
+my $storable_format_version = join("/", __PACKAGE__, "0.01");
+
+sub STORABLE_freeze {
+  my ( $self, $is_cloning ) = @_;
+  my ( $refs, $reg ) = @$self;
+  return ( $storable_format_version, [ values %$refs ], $reg || {} );
+}
+
+sub STORABLE_thaw {
+  my ( $self, $is_cloning, $version, $refs, $reg ) = @_;
+  croak "incompatible versions of Tie::RefHash between freeze and thaw"
+    unless $version eq $storable_format_version;
+
+  @$self = ( {}, $reg );
+  $self->_reindex_keys( $refs );
+}
+
+sub CLONE {
+  my $pkg = shift;
+
+  if ( $count and not _HAS_WEAKEN ) {
+    warn "Tie::RefHash is not threadsafe without Scalar::Util::weaken";
+  }
+
+  # when the thread has been cloned all the objects need to be updated.
+  # dead weakrefs are undefined, so we filter them out
+  @thread_object_registry = grep { defined && do { $_->_reindex_keys; 1 } } @thread_object_registry;
+  $count = 0; # we just cleaned up
+}
+
+sub _reindex_keys {
+  my ( $self, $extra_keys ) = @_;
+  # rehash all the ref keys based on their new StrVal
+  %{ $self->[0] } = map { refaddr($_->[0]) => $_ } (values(%{ $self->[0] }), @{ $extra_keys || [] });
+}
+
+sub FETCH {
+  my($s, $k) = @_;
+  if (ref $k) {
+      my $kstr = refaddr($k);
+      if (defined $s->[0]{$kstr}) {
+        $s->[0]{$kstr}[1];
+      }
+      else {
+        undef;
+      }
+  }
+  else {
+      $s->[1]{$k};
+  }
+}
+
+sub STORE {
+  my($s, $k, $v) = @_;
+  if (ref $k) {
+    $s->[0]{refaddr($k)} = [$k, $v];
+  }
+  else {
+    $s->[1]{$k} = $v;
+  }
+  $v;
+}
+
+sub DELETE {
+  my($s, $k) = @_;
+  (ref $k)
+    ? (delete($s->[0]{refaddr($k)}) || [])->[1]
+    : delete($s->[1]{$k});
+}
+
+sub EXISTS {
+  my($s, $k) = @_;
+  (ref $k) ? exists($s->[0]{refaddr($k)}) : exists($s->[1]{$k});
+}
+
+sub FIRSTKEY {
+  my $s = shift;
+  keys %{$s->[0]};  # reset iterator
+  keys %{$s->[1]};  # reset iterator
+  $s->[2] = 0;      # flag for iteration, see NEXTKEY
+  $s->NEXTKEY;
+}
+
+sub NEXTKEY {
+  my $s = shift;
+  my ($k, $v);
+  if (!$s->[2]) {
+    if (($k, $v) = each %{$s->[0]}) {
+      return $v->[0];
+    }
+    else {
+      $s->[2] = 1;
+    }
+  }
+  return each %{$s->[1]};
+}
+
+sub CLEAR {
+  my $s = shift;
+  $s->[2] = 0;
+  %{$s->[0]} = ();
+  %{$s->[1]} = ();
+}
+
+package Tie::RefHash::Nestable;
+use vars '@ISA';
+@ISA = 'Tie::RefHash';
+
+sub STORE {
+  my($s, $k, $v) = @_;
+  if (ref($v) eq 'HASH' and not tied %$v) {
+      my @elems = %$v;
+      tie %$v, ref($s), @elems;
+  }
+  $s->SUPER::STORE($k, $v);
+}
+
+1;
+package Tie::Scalar;
+
+our $VERSION = '1.04';
+
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIESCALAR(@_);
+}
+
+# "Grandfather" the new, a la Tie::Hash
+
+sub TIESCALAR {
+    my $pkg = shift;
+    my $pkg_new = $pkg -> can ('new');
+
+    if ($pkg_new and $pkg ne __PACKAGE__) {
+        my $my_new = __PACKAGE__ -> can ('new');
+        if ($pkg_new == $my_new) {  
+            #
+            # Prevent recursion
+            #
+            croak "$pkg must define either a TIESCALAR() or a new() method";
+        }
+
+	warnings::warnif ("WARNING: calling ${pkg}->new since " .
+                          "${pkg}->TIESCALAR is missing");
+	$pkg -> new (@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIESCALAR method";
+    }
+}
+
+sub FETCH {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a FETCH method";
+}
+
+sub STORE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a STORE method";
+}
+
+#
+# The Tie::StdScalar package provides scalars that behave exactly like
+# Perl's built-in scalars. Good base to inherit from, if you're only going to
+# tweak a small bit.
+#
+package Tie::StdScalar;
+@ISA = qw(Tie::Scalar);
+
+sub TIESCALAR {
+    my $class = shift;
+    my $instance = @_ ? shift : undef;
+    return bless \$instance => $class;
+}
+
+sub FETCH {
+    return ${$_[0]};
+}
+
+sub STORE {
+    ${$_[0]} = $_[1];
+}
+
+sub DESTROY {
+    undef ${$_[0]};
+}
+
+1;
+package DBM_Filter::null ;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+sub Store
+{
+    no warnings 'uninitialized';
+    $_ .= "\x00" ;
+}
+
+sub Fetch
+{
+    no warnings 'uninitialized';
+    s/\x00$// ;
+}
+
+1;
+
+__END__
+
+package DBM_Filter::compress ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Compress::Zlib; Compress::Zlib->import() };
+
+    croak "Compress::Zlib module not found.\n"
+        if $@;
+}
+
+
+
+sub Store { $_ = compress($_) }
+sub Fetch { $_ = uncompress($_) }
+
+1;
+
+__END__
+
+package DBM_Filter::int32 ;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+# todo get Filter to figure endian.
+
+sub Store
+{
+    $_ = 0 if ! defined $_ || $_ eq "" ;
+    $_ = pack("i", $_);
+}
+
+sub Fetch
+{
+    no warnings 'uninitialized';
+    $_ = unpack("i", $_);
+}
+
+1;
+
+__END__
+
+package DBM_Filter::utf8 ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Encode; };
+
+    croak "Encode module not found.\n"
+        if $@;
+}
+
+sub Store { $_ = Encode::encode_utf8($_) if defined $_ }
+
+sub Fetch { $_ = Encode::decode_utf8($_) if defined $_ }
+
+1;
+
+__END__
+
+package DBM_Filter::encode ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Encode; };
+
+    croak "Encode module not found.\n"
+        if $@;
+}
+
+
+sub Filter
+{
+    my $encoding_name = shift || "utf8";
+
+    my $encoding = Encode::find_encoding($encoding_name) ;
+
+    croak "Encoding '$encoding_name' is not available"
+        unless $encoding;
+
+    return {
+        Store   => sub {
+			 $_ = $encoding->encode($_)
+			     if defined $_ ;
+		   },
+        Fetch   => sub {
+			 $_ = $encoding->decode($_)
+			     if defined $_ ;
+			}
+        } ;
+}
+
+1;
+
+__END__
+
+### the gnu tar specification:
+### http://www.gnu.org/software/tar/manual/tar.html
+###
+### and the pax format spec, which tar derives from:
+### http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html
+
+package Archive::Tar;
+require 5.005_03;
+
+use Cwd;
+use IO::Zlib;
+use IO::File;
+use Carp                qw(carp croak);
+use File::Spec          ();
+use File::Spec::Unix    ();
+use File::Path          ();
+
+use Archive::Tar::File;
+use Archive::Tar::Constant;
+
+require Exporter;
+
+use strict;
+use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
+            $DO_NOT_USE_PREFIX $HAS_PERLIO $HAS_IO_STRING $SAME_PERMISSIONS
+            $INSECURE_EXTRACT_MODE $ZERO_PAD_NUMBERS @ISA @EXPORT $RESOLVE_SYMLINK
+         ];
+
+@ISA                    = qw[Exporter];
+@EXPORT                 = qw[ COMPRESS_GZIP COMPRESS_BZIP ];
+$DEBUG                  = 0;
+$WARN                   = 1;
+$FOLLOW_SYMLINK         = 0;
+$VERSION                = "2.30";
+$CHOWN                  = 1;
+$CHMOD                  = 1;
+$SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
+$DO_NOT_USE_PREFIX      = 0;
+$INSECURE_EXTRACT_MODE  = 0;
+$ZERO_PAD_NUMBERS       = 0;
+$RESOLVE_SYMLINK        = $ENV{'PERL5_AT_RESOLVE_SYMLINK'} || 'speed';
+
+BEGIN {
+    use Config;
+    $HAS_PERLIO = $Config::Config{useperlio};
+
+    ### try and load IO::String anyway, so you can dynamically
+    ### switch between perlio and IO::String
+    $HAS_IO_STRING = eval {
+        require IO::String;
+        import IO::String;
+        1;
+    } || 0;
+}
+
+
+my $tmpl = {
+    _data   => [ ],
+    _file   => 'Unknown',
+};
+
+### install get/set accessors for this object.
+for my $key ( keys %$tmpl ) {
+    no strict 'refs';
+    *{__PACKAGE__."::$key"} = sub {
+        my $self = shift;
+        $self->{$key} = $_[0] if @_;
+        return $self->{$key};
+    }
+}
+
+sub new {
+    my $class = shift;
+    $class = ref $class if ref $class;
+
+    ### copying $tmpl here since a shallow copy makes it use the
+    ### same aref, causing for files to remain in memory always.
+    my $obj = bless { _data => [ ], _file => 'Unknown', _error => '' }, $class;
+
+    if (@_) {
+        unless ( $obj->read( @_ ) ) {
+            $obj->_error(qq[No data could be read from file]);
+            return;
+        }
+    }
+
+    return $obj;
+}
+
+
+sub read {
+    my $self = shift;
+    my $file = shift;
+    my $gzip = shift || 0;
+    my $opts = shift || {};
+
+    unless( defined $file ) {
+        $self->_error( qq[No file to read from!] );
+        return;
+    } else {
+        $self->_file( $file );
+    }
+
+    my $handle = $self->_get_handle($file, $gzip, READ_ONLY->( ZLIB ) )
+                    or return;
+
+    my $data = $self->_read_tar( $handle, $opts ) or return;
+
+    $self->_data( $data );
+
+    return wantarray ? @$data : scalar @$data;
+}
+
+sub _get_handle {
+    my $self     = shift;
+    my $file     = shift;   return unless defined $file;
+    my $compress = shift || 0;
+    my $mode     = shift || READ_ONLY->( ZLIB ); # default to read only
+
+    ### Check if file is a file handle or IO glob
+    if ( ref $file ) {
+	return $file if eval{ *$file{IO} };
+	return $file if eval{ $file->isa(q{IO::Handle}) };
+	$file = q{}.$file;
+    }
+
+    ### get a FH opened to the right class, so we can use it transparently
+    ### throughout the program
+    my $fh;
+    {   ### reading magic only makes sense if we're opening a file for
+        ### reading. otherwise, just use what the user requested.
+        my $magic = '';
+        if( MODE_READ->($mode) ) {
+            open my $tmp, $file or do {
+                $self->_error( qq[Could not open '$file' for reading: $!] );
+                return;
+            };
+
+            ### read the first 4 bites of the file to figure out which class to
+            ### use to open the file.
+            sysread( $tmp, $magic, 4 );
+            close $tmp;
+        }
+
+        ### is it bzip?
+        ### if you asked specifically for bzip compression, or if we're in
+        ### read mode and the magic numbers add up, use bzip
+        if( BZIP and (
+                ($compress eq COMPRESS_BZIP) or
+                ( MODE_READ->($mode) and $magic =~ BZIP_MAGIC_NUM )
+            )
+        ) {
+
+            ### different reader/writer modules, different error vars... sigh
+            if( MODE_READ->($mode) ) {
+                $fh = IO::Uncompress::Bunzip2->new( $file, MultiStream => 1 ) or do {
+                    $self->_error( qq[Could not read '$file': ] .
+                        $IO::Uncompress::Bunzip2::Bunzip2Error
+                    );
+                    return;
+                };
+
+            } else {
+                $fh = IO::Compress::Bzip2->new( $file ) or do {
+                    $self->_error( qq[Could not write to '$file': ] .
+                        $IO::Compress::Bzip2::Bzip2Error
+                    );
+                    return;
+                };
+            }
+
+        ### is it gzip?
+        ### if you asked for compression, if you wanted to read or the gzip
+        ### magic number is present (redundant with read)
+        } elsif( ZLIB and (
+                    $compress or MODE_READ->($mode) or $magic =~ GZIP_MAGIC_NUM
+                 )
+        ) {
+            $fh = IO::Zlib->new;
+
+            unless( $fh->open( $file, $mode ) ) {
+                $self->_error(qq[Could not create filehandle for '$file': $!]);
+                return;
+            }
+
+        ### is it plain tar?
+        } else {
+            $fh = IO::File->new;
+
+            unless( $fh->open( $file, $mode ) ) {
+                $self->_error(qq[Could not create filehandle for '$file': $!]);
+                return;
+            }
+
+            ### enable bin mode on tar archives
+            binmode $fh;
+        }
+    }
+
+    return $fh;
+}
+
+
+sub _read_tar {
+    my $self    = shift;
+    my $handle  = shift or return;
+    my $opts    = shift || {};
+
+    my $count   = $opts->{limit}    || 0;
+    my $filter  = $opts->{filter};
+    my $md5  = $opts->{md5} || 0;	# cdrake
+    my $filter_cb = $opts->{filter_cb};
+    my $extract = $opts->{extract}  || 0;
+
+    ### set a cap on the amount of files to extract ###
+    my $limit   = 0;
+    $limit = 1 if $count > 0;
+
+    my $tarfile = [ ];
+    my $chunk;
+    my $read = 0;
+    my $real_name;  # to set the name of a file when
+                    # we're encountering @longlink
+    my $data;
+
+    LOOP:
+    while( $handle->read( $chunk, HEAD ) ) {
+        ### IO::Zlib doesn't support this yet
+        my $offset;
+        if ( ref($handle) ne 'IO::Zlib' ) {
+            local $@;
+            $offset = eval { tell $handle } || 'unknown';
+            $@ = '';
+        }
+        else {
+            $offset = 'unknown';
+        }
+
+        unless( $read++ ) {
+            my $gzip = GZIP_MAGIC_NUM;
+            if( $chunk =~ /$gzip/ ) {
+                $self->_error( qq[Cannot read compressed format in tar-mode] );
+                return;
+            }
+
+            ### size is < HEAD, which means a corrupted file, as the minimum
+            ### length is _at least_ HEAD
+            if (length $chunk != HEAD) {
+                $self->_error( qq[Cannot read enough bytes from the tarfile] );
+                return;
+            }
+        }
+
+        ### if we can't read in all bytes... ###
+        last if length $chunk != HEAD;
+
+        ### Apparently this should really be two blocks of 512 zeroes,
+        ### but GNU tar sometimes gets it wrong. See comment in the
+        ### source code (tar.c) to GNU cpio.
+        next if $chunk eq TAR_END;
+
+        ### according to the posix spec, the last 12 bytes of the header are
+        ### null bytes, to pad it to a 512 byte block. That means if these
+        ### bytes are NOT null bytes, it's a corrupt header. See:
+        ### www.koders.com/c/fidCE473AD3D9F835D690259D60AD5654591D91D5BA.aspx
+        ### line 111
+        {   my $nulls = join '', "\0" x 12;
+            unless( $nulls eq substr( $chunk, 500, 12 ) ) {
+                $self->_error( qq[Invalid header block at offset $offset] );
+                next LOOP;
+            }
+        }
+
+        ### pass the realname, so we can set it 'proper' right away
+        ### some of the heuristics are done on the name, so important
+        ### to set it ASAP
+        my $entry;
+        {   my %extra_args = ();
+            $extra_args{'name'} = $$real_name if defined $real_name;
+
+            unless( $entry = Archive::Tar::File->new(   chunk => $chunk,
+                                                        %extra_args )
+            ) {
+                $self->_error( qq[Couldn't read chunk at offset $offset] );
+                next LOOP;
+            }
+        }
+
+        ### ignore labels:
+        ### http://www.gnu.org/software/tar/manual/html_chapter/Media.html#SEC159
+        next if $entry->is_label;
+
+        if( length $entry->type and ($entry->is_file || $entry->is_longlink) ) {
+
+            if ( $entry->is_file && !$entry->validate ) {
+                ### sometimes the chunk is rather fux0r3d and a whole 512
+                ### bytes ends up in the ->name area.
+                ### clean it up, if need be
+                my $name = $entry->name;
+                $name = substr($name, 0, 100) if length $name > 100;
+                $name =~ s/\n/ /g;
+
+                $self->_error( $name . qq[: checksum error] );
+                next LOOP;
+            }
+
+            my $block = BLOCK_SIZE->( $entry->size );
+
+            $data = $entry->get_content_by_ref;
+
+	    my $skip = 0;
+	    my $ctx;			# cdrake
+	    ### skip this entry if we're filtering
+
+	    if($md5) {			# cdrake
+	      $ctx = Digest::MD5->new;	# cdrake
+	        $skip=5;		# cdrake
+
+	    } elsif ($filter && $entry->name !~ $filter) {
+		$skip = 1;
+
+	    } elsif ($filter_cb && ! $filter_cb->($entry)) {
+		$skip = 2;
+
+	    ### skip this entry if it's a pax header. This is a special file added
+	    ### by, among others, git-generated tarballs. It holds comments and is
+	    ### not meant for extracting. See #38932: pax_global_header extracted
+	    } elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) {
+		$skip = 3;
+	    }
+
+	    if ($skip) {
+		#
+		# Since we're skipping, do not allocate memory for the
+		# whole file.  Read it 64 BLOCKS at a time.  Do not
+		# complete the skip yet because maybe what we read is a
+		# longlink and it won't get skipped after all
+		#
+		my $amt = $block;
+		my $fsz=$entry->size;	# cdrake
+		while ($amt > 0) {
+		    $$data = '';
+		    my $this = 64 * BLOCK;
+		    $this = $amt if $this > $amt;
+		    if( $handle->read( $$data, $this ) < $this ) {
+			$self->_error( qq[Read error on tarfile (missing data) '].
+					    $entry->full_path ."' at offset $offset" );
+			next LOOP;
+		    }
+		    $amt -= $this;
+		    $fsz -= $this;	# cdrake
+		substr ($$data, $fsz) = "" if ($fsz<0);	# remove external junk prior to md5	# cdrake
+		$ctx->add($$data) if($skip==5);	# cdrake
+		}
+		$$data = $ctx->hexdigest if($skip==5 && !$entry->is_longlink && !$entry->is_unknown && !$entry->is_label ) ;	# cdrake
+            } else {
+
+		### just read everything into memory
+		### can't do lazy loading since IO::Zlib doesn't support 'seek'
+		### this is because Compress::Zlib doesn't support it =/
+		### this reads in the whole data in one read() call.
+		if ( $handle->read( $$data, $block ) < $block ) {
+		    $self->_error( qq[Read error on tarfile (missing data) '].
+                                    $entry->full_path ."' at offset $offset" );
+		    next LOOP;
+		}
+		### throw away trailing garbage ###
+		substr ($$data, $entry->size) = "" if defined $$data;
+            }
+
+            ### part II of the @LongLink munging -- need to do /after/
+            ### the checksum check.
+            if( $entry->is_longlink ) {
+                ### weird thing in tarfiles -- if the file is actually a
+                ### @LongLink, the data part seems to have a trailing ^@
+                ### (unprintable) char. to display, pipe output through less.
+                ### but that doesn't *always* happen.. so check if the last
+                ### character is a control character, and if so remove it
+                ### at any rate, we better remove that character here, or tests
+                ### like 'eq' and hash lookups based on names will SO not work
+                ### remove it by calculating the proper size, and then
+                ### tossing out everything that's longer than that size.
+
+                ### count number of nulls
+                my $nulls = $$data =~ tr/\0/\0/;
+
+                ### cut data + size by that many bytes
+                $entry->size( $entry->size - $nulls );
+                substr ($$data, $entry->size) = "";
+            }
+        }
+
+        ### clean up of the entries.. posix tar /apparently/ has some
+        ### weird 'feature' that allows for filenames > 255 characters
+        ### they'll put a header in with as name '././@LongLink' and the
+        ### contents will be the name of the /next/ file in the archive
+        ### pretty crappy and kludgy if you ask me
+
+        ### set the name for the next entry if this is a @LongLink;
+        ### this is one ugly hack =/ but needed for direct extraction
+        if( $entry->is_longlink ) {
+            $real_name = $data;
+            next LOOP;
+        } elsif ( defined $real_name ) {
+            $entry->name( $$real_name );
+            $entry->prefix('');
+            undef $real_name;
+        }
+
+	if ($filter && $entry->name !~ $filter) {
+	    next LOOP;
+
+	} elsif ($filter_cb && ! $filter_cb->($entry)) {
+	    next LOOP;
+
+	### skip this entry if it's a pax header. This is a special file added
+	### by, among others, git-generated tarballs. It holds comments and is
+	### not meant for extracting. See #38932: pax_global_header extracted
+	} elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) {
+	    next LOOP;
+	}
+
+        if ( $extract && !$entry->is_longlink
+                      && !$entry->is_unknown
+                      && !$entry->is_label ) {
+            $self->_extract_file( $entry ) or return;
+        }
+
+        ### Guard against tarfiles with garbage at the end
+	    last LOOP if $entry->name eq '';
+
+        ### push only the name on the rv if we're extracting
+        ### -- for extract_archive
+        push @$tarfile, ($extract ? $entry->name : $entry);
+
+        if( $limit ) {
+            $count-- unless $entry->is_longlink || $entry->is_dir;
+            last LOOP unless $count;
+        }
+    } continue {
+        undef $data;
+    }
+
+    return $tarfile;
+}
+
+
+sub contains_file {
+    my $self = shift;
+    my $full = shift;
+
+    return unless defined $full;
+
+    ### don't warn if the entry isn't there.. that's what this function
+    ### is for after all.
+    local $WARN = 0;
+    return 1 if $self->_find_entry($full);
+    return;
+}
+
+
+sub extract {
+    my $self    = shift;
+    my @args    = @_;
+    my @files;
+    my $hashmap;
+
+    # use the speed optimization for all extracted files
+    local($self->{cwd}) = cwd() unless $self->{cwd};
+
+    ### you requested the extraction of only certain files
+    if( @args ) {
+        for my $file ( @args ) {
+
+            ### it's already an object?
+            if( UNIVERSAL::isa( $file, 'Archive::Tar::File' ) ) {
+                push @files, $file;
+                next;
+
+            ### go find it then
+            } else {
+
+                # create hash-map once to speed up lookup
+                $hashmap = $hashmap || {
+                    map { $_->full_path, $_ } @{$self->_data}
+                };
+
+                if (exists $hashmap->{$file}) {
+                    ### we found the file you're looking for
+                    push @files, $hashmap->{$file};
+                } else {
+                    return $self->_error(
+                        qq[Could not find '$file' in archive] );
+                }
+            }
+        }
+
+    ### just grab all the file items
+    } else {
+        @files = $self->get_files;
+    }
+
+    ### nothing found? that's an error
+    unless( scalar @files ) {
+        $self->_error( qq[No files found for ] . $self->_file );
+        return;
+    }
+
+    ### now extract them
+    for my $entry ( @files ) {
+        unless( $self->_extract_file( $entry ) ) {
+            $self->_error(q[Could not extract ']. $entry->full_path .q['] );
+            return;
+        }
+    }
+
+    return @files;
+}
+
+
+sub extract_file {
+    my $self = shift;
+    my $file = shift;   return unless defined $file;
+    my $alt  = shift;
+
+    my $entry = $self->_find_entry( $file )
+        or $self->_error( qq[Could not find an entry for '$file'] ), return;
+
+    return $self->_extract_file( $entry, $alt );
+}
+
+sub _extract_file {
+    my $self    = shift;
+    my $entry   = shift or return;
+    my $alt     = shift;
+
+    ### you wanted an alternate extraction location ###
+    my $name = defined $alt ? $alt : $entry->full_path;
+
+                            ### splitpath takes a bool at the end to indicate
+                            ### that it's splitting a dir
+    my ($vol,$dirs,$file);
+    if ( defined $alt ) { # It's a local-OS path
+        ($vol,$dirs,$file) = File::Spec->splitpath(       $alt,
+                                                          $entry->is_dir );
+    } else {
+        ($vol,$dirs,$file) = File::Spec::Unix->splitpath( $name,
+                                                          $entry->is_dir );
+    }
+
+    my $dir;
+    ### is $name an absolute path? ###
+    if( $vol || File::Spec->file_name_is_absolute( $dirs ) ) {
+
+        ### absolute names are not allowed to be in tarballs under
+        ### strict mode, so only allow it if a user tells us to do it
+        if( not defined $alt and not $INSECURE_EXTRACT_MODE ) {
+            $self->_error(
+                q[Entry ']. $entry->full_path .q[' is an absolute path. ].
+                q[Not extracting absolute paths under SECURE EXTRACT MODE]
+            );
+            return;
+        }
+
+        ### user asked us to, it's fine.
+        $dir = File::Spec->catpath( $vol, $dirs, "" );
+
+    ### it's a relative path ###
+    } else {
+        my $cwd     = (ref $self and defined $self->{cwd})
+                        ? $self->{cwd}
+                        : cwd();
+
+        my @dirs = defined $alt
+            ? File::Spec->splitdir( $dirs )         # It's a local-OS path
+            : File::Spec::Unix->splitdir( $dirs );  # it's UNIX-style, likely
+                                                    # straight from the tarball
+
+        if( not defined $alt            and
+            not $INSECURE_EXTRACT_MODE
+        ) {
+
+            ### paths that leave the current directory are not allowed under
+            ### strict mode, so only allow it if a user tells us to do this.
+            if( grep { $_ eq '..' } @dirs ) {
+
+                $self->_error(
+                    q[Entry ']. $entry->full_path .q[' is attempting to leave ].
+                    q[the current working directory. Not extracting under ].
+                    q[SECURE EXTRACT MODE]
+                );
+                return;
+            }
+
+            ### the archive may be asking us to extract into a symlink. This
+            ### is not sane and a possible security issue, as outlined here:
+            ### https://rt.cpan.org/Ticket/Display.html?id=30380
+            ### https://bugzilla.redhat.com/show_bug.cgi?id=295021
+            ### https://issues.rpath.com/browse/RPL-1716
+            my $full_path = $cwd;
+            for my $d ( @dirs ) {
+                $full_path = File::Spec->catdir( $full_path, $d );
+
+                ### we've already checked this one, and it's safe. Move on.
+                next if ref $self and $self->{_link_cache}->{$full_path};
+
+                if( -l $full_path ) {
+                    my $to   = readlink $full_path;
+                    my $diag = "symlinked directory ($full_path => $to)";
+
+                    $self->_error(
+                        q[Entry ']. $entry->full_path .q[' is attempting to ].
+                        qq[extract to a $diag. This is considered a security ].
+                        q[vulnerability and not allowed under SECURE EXTRACT ].
+                        q[MODE]
+                    );
+                    return;
+                }
+
+                ### XXX keep a cache if possible, so the stats become cheaper:
+                $self->{_link_cache}->{$full_path} = 1 if ref $self;
+            }
+        }
+
+        ### '.' is the directory delimiter on VMS, which has to be escaped
+        ### or changed to '_' on vms.  vmsify is used, because older versions
+        ### of vmspath do not handle this properly.
+        ### Must not add a '/' to an empty directory though.
+        map { length() ? VMS::Filespec::vmsify($_.'/') : $_ } @dirs if ON_VMS;
+
+        my ($cwd_vol,$cwd_dir,$cwd_file)
+                    = File::Spec->splitpath( $cwd );
+        my @cwd     = File::Spec->splitdir( $cwd_dir );
+        push @cwd, $cwd_file if length $cwd_file;
+
+        ### We need to pass '' as the last element to catpath. Craig Berry
+        ### explains why (msgid <p0624083dc311ae541393@[172.16.52.1]>):
+        ### The root problem is that splitpath on UNIX always returns the
+        ### final path element as a file even if it is a directory, and of
+        ### course there is no way it can know the difference without checking
+        ### against the filesystem, which it is documented as not doing.  When
+        ### you turn around and call catpath, on VMS you have to know which bits
+        ### are directory bits and which bits are file bits.  In this case we
+        ### know the result should be a directory.  I had thought you could omit
+        ### the file argument to catpath in such a case, but apparently on UNIX
+        ### you can't.
+        $dir        = File::Spec->catpath(
+                            $cwd_vol, File::Spec->catdir( @cwd, @dirs ), ''
+                        );
+
+        ### catdir() returns undef if the path is longer than 255 chars on
+        ### older VMS systems.
+        unless ( defined $dir ) {
+            $^W && $self->_error( qq[Could not compose a path for '$dirs'\n] );
+            return;
+        }
+
+    }
+
+    if( -e $dir && !-d _ ) {
+        $^W && $self->_error( qq['$dir' exists, but it's not a directory!\n] );
+        return;
+    }
+
+    unless ( -d _ ) {
+        eval { File::Path::mkpath( $dir, 0, 0777 ) };
+        if( $@ ) {
+            my $fp = $entry->full_path;
+            $self->_error(qq[Could not create directory '$dir' for '$fp': $@]);
+            return;
+        }
+
+        ### XXX chown here? that might not be the same as in the archive
+        ### as we're only chown'ing to the owner of the file we're extracting
+        ### not to the owner of the directory itself, which may or may not
+        ### be another entry in the archive
+        ### Answer: no, gnu tar doesn't do it either, it'd be the wrong
+        ### way to go.
+        #if( $CHOWN && CAN_CHOWN ) {
+        #    chown $entry->uid, $entry->gid, $dir or
+        #        $self->_error( qq[Could not set uid/gid on '$dir'] );
+        #}
+    }
+
+    ### we're done if we just needed to create a dir ###
+    return 1 if $entry->is_dir;
+
+    my $full = File::Spec->catfile( $dir, $file );
+
+    if( $entry->is_unknown ) {
+        $self->_error( qq[Unknown file type for file '$full'] );
+        return;
+    }
+
+    ### If a file system already contains a block device with the same name as
+    ### the being extracted regular file, we would write the file's content
+    ### to the block device. So remove the existing file (block device) now.
+    ### If an archive contains multiple same-named entries, the last one
+    ### should replace the previous ones. So remove the old file now.
+    ### If the old entry is a symlink to a file outside of the CWD, the new
+    ### entry would create a file there. This is CVE-2018-12015
+    ### <https://rt.cpan.org/Ticket/Display.html?id=125523>.
+    if (-l $full || -e _) {
+	if (!unlink $full) {
+	    $self->_error( qq[Could not remove old file '$full': $!] );
+	    return;
+	}
+    }
+    if( length $entry->type && $entry->is_file ) {
+        my $fh = IO::File->new;
+        $fh->open( $full, '>' ) or (
+            $self->_error( qq[Could not open file '$full': $!] ),
+            return
+        );
+
+        if( $entry->size ) {
+            binmode $fh;
+            syswrite $fh, $entry->data or (
+                $self->_error( qq[Could not write data to '$full'] ),
+                return
+            );
+        }
+
+        close $fh or (
+            $self->_error( qq[Could not close file '$full'] ),
+            return
+        );
+
+    } else {
+        $self->_make_special_file( $entry, $full ) or return;
+    }
+
+    ### only update the timestamp if it's not a symlink; that will change the
+    ### timestamp of the original. This addresses bug #33669: Could not update
+    ### timestamp warning on symlinks
+    if( not -l $full ) {
+        utime time, $entry->mtime - TIME_OFFSET, $full or
+            $self->_error( qq[Could not update timestamp] );
+    }
+
+    if( $CHOWN && CAN_CHOWN->() and not -l $full ) {
+        chown $entry->uid, $entry->gid, $full or
+            $self->_error( qq[Could not set uid/gid on '$full'] );
+    }
+
+    ### only chmod if we're allowed to, but never chmod symlinks, since they'll
+    ### change the perms on the file they're linking too...
+    if( $CHMOD and not -l $full ) {
+        my $mode = $entry->mode;
+        unless ($SAME_PERMISSIONS) {
+            $mode &= ~(oct(7000) | umask);
+        }
+        chmod $mode, $full or
+            $self->_error( qq[Could not chown '$full' to ] . $entry->mode );
+    }
+
+    return 1;
+}
+
+sub _make_special_file {
+    my $self    = shift;
+    my $entry   = shift     or return;
+    my $file    = shift;    return unless defined $file;
+
+    my $err;
+
+    if( $entry->is_symlink ) {
+        my $fail;
+        if( ON_UNIX ) {
+            symlink( $entry->linkname, $file ) or $fail++;
+
+        } else {
+            $self->_extract_special_file_as_plain_file( $entry, $file )
+                or $fail++;
+        }
+
+        $err =  qq[Making symbolic link '$file' to '] .
+                $entry->linkname .q[' failed] if $fail;
+
+    } elsif ( $entry->is_hardlink ) {
+        my $fail;
+        if( ON_UNIX ) {
+            link( $entry->linkname, $file ) or $fail++;
+
+        } else {
+            $self->_extract_special_file_as_plain_file( $entry, $file )
+                or $fail++;
+        }
+
+        $err =  qq[Making hard link from '] . $entry->linkname .
+                qq[' to '$file' failed] if $fail;
+
+    } elsif ( $entry->is_fifo ) {
+        ON_UNIX && !system('mknod', $file, 'p') or
+            $err = qq[Making fifo ']. $entry->name .qq[' failed];
+
+    } elsif ( $entry->is_blockdev or $entry->is_chardev ) {
+        my $mode = $entry->is_blockdev ? 'b' : 'c';
+
+        ON_UNIX && !system('mknod', $file, $mode,
+                            $entry->devmajor, $entry->devminor) or
+            $err =  qq[Making block device ']. $entry->name .qq[' (maj=] .
+                    $entry->devmajor . qq[ min=] . $entry->devminor .
+                    qq[) failed.];
+
+    } elsif ( $entry->is_socket ) {
+        ### the original doesn't do anything special for sockets.... ###
+        1;
+    }
+
+    return $err ? $self->_error( $err ) : 1;
+}
+
+### don't know how to make symlinks, let's just extract the file as
+### a plain file
+sub _extract_special_file_as_plain_file {
+    my $self    = shift;
+    my $entry   = shift     or return;
+    my $file    = shift;    return unless defined $file;
+
+    my $err;
+    TRY: {
+        my $orig = $self->_find_entry( $entry->linkname, $entry );
+
+        unless( $orig ) {
+            $err =  qq[Could not find file '] . $entry->linkname .
+                    qq[' in memory.];
+            last TRY;
+        }
+
+        ### clone the entry, make it appear as a normal file ###
+        my $clone = $orig->clone;
+        $clone->_downgrade_to_plainfile;
+        $self->_extract_file( $clone, $file ) or last TRY;
+
+        return 1;
+    }
+
+    return $self->_error($err);
+}
+
+
+sub list_files {
+    my $self = shift;
+    my $aref = shift || [ ];
+
+    unless( $self->_data ) {
+        $self->read() or return;
+    }
+
+    if( @$aref == 0 or ( @$aref == 1 and $aref->[0] eq 'name' ) ) {
+        return map { $_->full_path } @{$self->_data};
+    } else {
+
+        #my @rv;
+        #for my $obj ( @{$self->_data} ) {
+        #    push @rv, { map { $_ => $obj->$_() } @$aref };
+        #}
+        #return @rv;
+
+        ### this does the same as the above.. just needs a +{ }
+        ### to make sure perl doesn't confuse it for a block
+        return map {    my $o=$_;
+                        +{ map { $_ => $o->$_() } @$aref }
+                    } @{$self->_data};
+    }
+}
+
+sub _find_entry {
+    my $self = shift;
+    my $file = shift;
+
+    unless( defined $file ) {
+        $self->_error( qq[No file specified] );
+        return;
+    }
+
+    ### it's an object already
+    return $file if UNIVERSAL::isa( $file, 'Archive::Tar::File' );
+
+seach_entry:
+		if($self->_data){
+			for my $entry ( @{$self->_data} ) {
+					my $path = $entry->full_path;
+					return $entry if $path eq $file;
+			}
+		}
+
+		if($Archive::Tar::RESOLVE_SYMLINK!~/none/){
+			if(my $link_entry = shift()){#fallback mode when symlinks are using relative notations ( ../a/./b/text.bin )
+				$file = _symlinks_resolver( $link_entry->name, $file );
+				goto seach_entry if $self->_data;
+
+				#this will be slower than never, but won't failed!
+
+				my $iterargs = $link_entry->{'_archive'};
+				if($Archive::Tar::RESOLVE_SYMLINK=~/speed/ && @$iterargs==3){
+				#faster	but whole archive will be read in memory
+					#read whole archive and share data
+					my $archive = Archive::Tar->new;
+					$archive->read( @$iterargs );
+					push @$iterargs, $archive; #take a trace for destruction
+					if($archive->_data){
+						$self->_data( $archive->_data );
+						goto seach_entry;
+					}
+				}#faster
+
+				{#slower but lower memory usage
+					# $iterargs = [$filename, $compressed, $opts];
+					my $next = Archive::Tar->iter( @$iterargs );
+					while(my $e = $next->()){
+						if($e->full_path eq $file){
+							undef $next;
+							return $e;
+						}
+					}
+				}#slower
+			}
+		}
+
+    $self->_error( qq[No such file in archive: '$file'] );
+    return;
+}
+
+
+sub get_files {
+    my $self = shift;
+
+    return @{ $self->_data } unless @_;
+
+    my @list;
+    for my $file ( @_ ) {
+        push @list, grep { defined } $self->_find_entry( $file );
+    }
+
+    return @list;
+}
+
+
+sub get_content {
+    my $self = shift;
+    my $entry = $self->_find_entry( shift ) or return;
+
+    return $entry->data;
+}
+
+
+sub replace_content {
+    my $self = shift;
+    my $entry = $self->_find_entry( shift ) or return;
+
+    return $entry->replace_content( shift );
+}
+
+
+sub rename {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $new  = shift; return unless defined $new;
+
+    my $entry = $self->_find_entry( $file ) or return;
+
+    return $entry->rename( $new );
+}
+
+
+sub chmod {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
+    my @args = ("$mode");
+
+    my $entry = $self->_find_entry( $file ) or return;
+    my $x = $entry->chmod( @args );
+    return $x;
+}
+
+
+sub chown {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $uname  = shift; return unless defined $uname;
+    my @args   = ($uname);
+    push(@args, shift);
+
+    my $entry = $self->_find_entry( $file ) or return;
+    my $x = $entry->chown( @args );
+    return $x;
+}
+
+
+sub remove {
+    my $self = shift;
+    my @list = @_;
+
+    my %seen = map { $_->full_path => $_ } @{$self->_data};
+    delete $seen{ $_ } for @list;
+
+    $self->_data( [values %seen] );
+
+    return values %seen;
+}
+
+
+sub clear {
+    my $self = shift or return;
+
+    $self->_data( [] );
+    $self->_file( '' );
+
+    return 1;
+}
+
+
+
+sub write {
+    my $self        = shift;
+    my $file        = shift; $file = '' unless defined $file;
+    my $gzip        = shift || 0;
+    my $ext_prefix  = shift; $ext_prefix = '' unless defined $ext_prefix;
+    my $dummy       = '';
+
+    ### only need a handle if we have a file to print to ###
+    my $handle = length($file)
+                    ? ( $self->_get_handle($file, $gzip, WRITE_ONLY->($gzip) )
+                        or return )
+                    : $HAS_PERLIO    ? do { open my $h, '>', \$dummy; $h }
+                    : $HAS_IO_STRING ? IO::String->new
+                    : __PACKAGE__->no_string_support();
+
+    ### Addresses: #41798: Nonempty $\ when writing a TAR file produces a
+    ### corrupt TAR file. Must clear out $\ to make sure no garbage is
+    ### printed to the archive
+    local $\;
+
+    for my $entry ( @{$self->_data} ) {
+        ### entries to be written to the tarfile ###
+        my @write_me;
+
+        ### only now will we change the object to reflect the current state
+        ### of the name and prefix fields -- this needs to be limited to
+        ### write() only!
+        my $clone = $entry->clone;
+
+
+        ### so, if you don't want use to use the prefix, we'll stuff
+        ### everything in the name field instead
+        if( $DO_NOT_USE_PREFIX ) {
+
+            ### you might have an extended prefix, if so, set it in the clone
+            ### XXX is ::Unix right?
+            $clone->name( length $ext_prefix
+                            ? File::Spec::Unix->catdir( $ext_prefix,
+                                                        $clone->full_path)
+                            : $clone->full_path );
+            $clone->prefix( '' );
+
+        ### otherwise, we'll have to set it properly -- prefix part in the
+        ### prefix and name part in the name field.
+        } else {
+
+            ### split them here, not before!
+            my ($prefix,$name) = $clone->_prefix_and_file( $clone->full_path );
+
+            ### you might have an extended prefix, if so, set it in the clone
+            ### XXX is ::Unix right?
+            $prefix = File::Spec::Unix->catdir( $ext_prefix, $prefix )
+                if length $ext_prefix;
+
+            $clone->prefix( $prefix );
+            $clone->name( $name );
+        }
+
+        ### names are too long, and will get truncated if we don't add a
+        ### '@LongLink' file...
+        my $make_longlink = (   length($clone->name)    > NAME_LENGTH or
+                                length($clone->prefix)  > PREFIX_LENGTH
+                            ) || 0;
+
+        ### perhaps we need to make a longlink file?
+        if( $make_longlink ) {
+            my $longlink = Archive::Tar::File->new(
+                            data => LONGLINK_NAME,
+                            $clone->full_path,
+                            { type => LONGLINK }
+                        );
+
+            unless( $longlink ) {
+                $self->_error(  qq[Could not create 'LongLink' entry for ] .
+                                qq[oversize file '] . $clone->full_path ."'" );
+                return;
+            };
+
+            push @write_me, $longlink;
+        }
+
+        push @write_me, $clone;
+
+        ### write the one, optionally 2 a::t::file objects to the handle
+        for my $clone (@write_me) {
+
+            ### if the file is a symlink, there are 2 options:
+            ### either we leave the symlink intact, but then we don't write any
+            ### data OR we follow the symlink, which means we actually make a
+            ### copy. if we do the latter, we have to change the TYPE of the
+            ### clone to 'FILE'
+            my $link_ok =  $clone->is_symlink && $Archive::Tar::FOLLOW_SYMLINK;
+            my $data_ok = !$clone->is_symlink && $clone->has_content;
+
+            ### downgrade to a 'normal' file if it's a symlink we're going to
+            ### treat as a regular file
+            $clone->_downgrade_to_plainfile if $link_ok;
+
+            ### get the header for this block
+            my $header = $self->_format_tar_entry( $clone );
+            unless( $header ) {
+                $self->_error(q[Could not format header for: ] .
+                                    $clone->full_path );
+                return;
+            }
+
+            unless( print $handle $header ) {
+                $self->_error(q[Could not write header for: ] .
+                                    $clone->full_path);
+                return;
+            }
+
+            if( $link_ok or $data_ok ) {
+                unless( print $handle $clone->data ) {
+                    $self->_error(q[Could not write data for: ] .
+                                    $clone->full_path);
+                    return;
+                }
+
+                ### pad the end of the clone if required ###
+                print $handle TAR_PAD->( $clone->size ) if $clone->size % BLOCK
+            }
+
+        } ### done writing these entries
+    }
+
+    ### write the end markers ###
+    print $handle TAR_END x 2 or
+            return $self->_error( qq[Could not write tar end markers] );
+
+    ### did you want it written to a file, or returned as a string? ###
+    my $rv =  length($file) ? 1
+                        : $HAS_PERLIO ? $dummy
+                        : do { seek $handle, 0, 0; local $/; <$handle> };
+
+    ### make sure to close the handle if we created it
+    if ( $file ne $handle ) {
+	unless( close $handle ) {
+	    $self->_error( qq[Could not write tar] );
+	    return;
+	}
+    }
+
+    return $rv;
+}
+
+sub _format_tar_entry {
+    my $self        = shift;
+    my $entry       = shift or return;
+    my $ext_prefix  = shift; $ext_prefix = '' unless defined $ext_prefix;
+    my $no_prefix   = shift || 0;
+
+    my $file    = $entry->name;
+    my $prefix  = $entry->prefix; $prefix = '' unless defined $prefix;
+
+    ### remove the prefix from the file name
+    ### not sure if this is still needed --kane
+    ### no it's not -- Archive::Tar::File->_new_from_file will take care of
+    ### this for us. Even worse, this would break if we tried to add a file
+    ### like x/x.
+    #if( length $prefix ) {
+    #    $file =~ s/^$match//;
+    #}
+
+    $prefix = File::Spec::Unix->catdir($ext_prefix, $prefix)
+                if length $ext_prefix;
+
+    ### not sure why this is... ###
+    my $l = PREFIX_LENGTH; # is ambiguous otherwise...
+    substr ($prefix, 0, -$l) = "" if length $prefix >= PREFIX_LENGTH;
+
+    my $f1 = "%06o"; my $f2  = $ZERO_PAD_NUMBERS ? "%011o" : "%11o";
+
+    ### this might be optimizable with a 'changed' flag in the file objects ###
+    my $tar = pack (
+                PACK,
+                $file,
+
+                (map { sprintf( $f1, $entry->$_() ) } qw[mode uid gid]),
+                (map { sprintf( $f2, $entry->$_() ) } qw[size mtime]),
+
+                "",  # checksum field - space padded a bit down
+
+                (map { $entry->$_() }                 qw[type linkname magic]),
+
+                $entry->version || TAR_VERSION,
+
+                (map { $entry->$_() }                 qw[uname gname]),
+                (map { sprintf( $f1, $entry->$_() ) } qw[devmajor devminor]),
+
+                ($no_prefix ? '' : $prefix)
+    );
+
+    ### add the checksum ###
+    my $checksum_fmt = $ZERO_PAD_NUMBERS ? "%06o\0" : "%06o\0";
+    substr($tar,148,7) = sprintf("%6o\0", unpack("%16C*",$tar));
+
+    return $tar;
+}
+
+
+sub add_files {
+    my $self    = shift;
+    my @files   = @_ or return;
+
+    my @rv;
+    for my $file ( @files ) {
+
+        ### you passed an Archive::Tar::File object
+        ### clone it so we don't accidentally have a reference to
+        ### an object from another archive
+        if( UNIVERSAL::isa( $file,'Archive::Tar::File' ) ) {
+            push @rv, $file->clone;
+            next;
+        }
+
+        eval {
+            if( utf8::is_utf8( $file )) {
+              utf8::encode( $file );
+            }
+        };
+
+        unless( -e $file || -l $file ) {
+            $self->_error( qq[No such file: '$file'] );
+            next;
+        }
+
+        my $obj = Archive::Tar::File->new( file => $file );
+        unless( $obj ) {
+            $self->_error( qq[Unable to add file: '$file'] );
+            next;
+        }
+
+        push @rv, $obj;
+    }
+
+    push @{$self->{_data}}, @rv;
+
+    return @rv;
+}
+
+
+sub add_data {
+    my $self    = shift;
+    my ($file, $data, $opt) = @_;
+
+    my $obj = Archive::Tar::File->new( data => $file, $data, $opt );
+    unless( $obj ) {
+        $self->_error( qq[Unable to add file: '$file'] );
+        return;
+    }
+
+    push @{$self->{_data}}, $obj;
+
+    return $obj;
+}
+
+
+{
+    $error = '';
+    my $longmess;
+
+    sub _error {
+        my $self    = shift;
+        my $msg     = $error = shift;
+        $longmess   = Carp::longmess($error);
+        if (ref $self) {
+            $self->{_error} = $error;
+            $self->{_longmess} = $longmess;
+        }
+
+        ### set Archive::Tar::WARN to 0 to disable printing
+        ### of errors
+        if( $WARN ) {
+            carp $DEBUG ? $longmess : $msg;
+        }
+
+        return;
+    }
+
+    sub error {
+        my $self = shift;
+        if (ref $self) {
+            return shift() ? $self->{_longmess} : $self->{_error};
+        } else {
+            return shift() ? $longmess : $error;
+        }
+    }
+}
+
+
+sub setcwd {
+    my $self     = shift;
+    my $cwd      = shift;
+
+    $self->{cwd} = $cwd;
+}
+
+
+sub create_archive {
+    my $class = shift;
+
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+    my @files   = @_;
+
+    unless( @files ) {
+        return $class->_error( qq[Cowardly refusing to create empty archive!] );
+    }
+
+    my $tar = $class->new;
+    $tar->add_files( @files );
+    return $tar->write( $file, $gzip );
+}
+
+
+
+sub iter {
+    my $class       = shift;
+    my $filename    = shift;
+    return unless defined $filename;
+    my $compressed  = shift || 0;
+    my $opts        = shift || {};
+
+    ### get a handle to read from.
+    my $handle = $class->_get_handle(
+        $filename,
+        $compressed,
+        READ_ONLY->( ZLIB )
+    ) or return;
+
+    my @data;
+		my $CONSTRUCT_ARGS = [ $filename, $compressed, $opts ];
+    return sub {
+        return shift(@data)     if @data;       # more than one file returned?
+        return                  unless $handle; # handle exhausted?
+
+        ### read data, should only return file
+        my $tarfile = $class->_read_tar($handle, { %$opts, limit => 1 });
+        @data = @$tarfile if ref $tarfile && ref $tarfile eq 'ARRAY';
+				if($Archive::Tar::RESOLVE_SYMLINK!~/none/){
+					foreach(@data){
+						#may refine this heuristic for ON_UNIX?
+						if($_->linkname){
+							#is there a better slot to store/share it ?
+							$_->{'_archive'} = $CONSTRUCT_ARGS;
+						}
+					}
+				}
+
+        ### return one piece of data
+        return shift(@data)     if @data;
+
+        ### data is exhausted, free the filehandle
+        undef $handle;
+				if(@$CONSTRUCT_ARGS == 4){
+					#free archive in memory
+					undef $CONSTRUCT_ARGS->[-1];
+				}
+        return;
+    };
+}
+
+
+sub list_archive {
+    my $class   = shift;
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+
+    my $tar = $class->new($file, $gzip);
+    return unless $tar;
+
+    return $tar->list_files( @_ );
+}
+
+
+sub extract_archive {
+    my $class   = shift;
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+
+    my $tar = $class->new( ) or return;
+
+    return $tar->read( $file, $gzip, { extract => 1 } );
+}
+
+
+sub has_io_string { return $HAS_IO_STRING; }
+
+
+sub has_perlio { return $HAS_PERLIO; }
+
+
+sub has_zlib_support { return ZLIB }
+
+
+sub has_bzip2_support { return BZIP }
+
+
+sub can_handle_compressed_files { return ZLIB && BZIP ? 1 : 0 }
+
+sub no_string_support {
+    croak("You have to install IO::String to support writing archives to strings");
+}
+
+sub _symlinks_resolver{
+  my ($src, $trg) = @_;
+  my @src = split /[\/\\]/, $src;
+  my @trg = split /[\/\\]/, $trg;
+  pop @src; #strip out current object name
+  if(@trg and $trg[0] eq ''){
+    shift @trg;
+    #restart path from scratch
+    @src = ( );
+  }
+  foreach my $part ( @trg ){
+    next if $part eq '.'; #ignore current
+    if($part eq '..'){
+      #got to parent
+      pop @src;
+    }
+    else{
+      #append it
+      push @src, $part;
+    }
+  }
+  my $path = join('/', @src);
+  warn "_symlinks_resolver('$src','$trg') = $path" if $DEBUG;
+  return $path;
+}
+
+1;
+
+__END__
+
+
+package Archive::Tar::Constant;
+
+BEGIN {
+    require Exporter;
+
+    $VERSION    = '2.30';
+    @ISA        = qw[Exporter];
+
+    require Time::Local if $^O eq "MacOS";
+}
+
+@EXPORT = Archive::Tar::Constant->_list_consts( __PACKAGE__ );
+
+use strict;
+use warnings;
+
+use constant FILE           => 0;
+use constant HARDLINK       => 1;
+use constant SYMLINK        => 2;
+use constant CHARDEV        => 3;
+use constant BLOCKDEV       => 4;
+use constant DIR            => 5;
+use constant FIFO           => 6;
+use constant SOCKET         => 8;
+use constant UNKNOWN        => 9;
+use constant LONGLINK       => 'L';
+use constant LABEL          => 'V';
+
+use constant BUFFER         => 4096;
+use constant HEAD           => 512;
+use constant BLOCK          => 512;
+
+use constant COMPRESS_GZIP  => 9;
+use constant COMPRESS_BZIP  => 'bzip2';
+
+use constant BLOCK_SIZE     => sub { my $n = int($_[0]/BLOCK); $n++ if $_[0] % BLOCK; $n * BLOCK };
+use constant TAR_PAD        => sub { my $x = shift || return; return "\0" x (BLOCK - ($x % BLOCK) ) };
+use constant TAR_END        => "\0" x BLOCK;
+
+use constant READ_ONLY      => sub { shift() ? 'rb' : 'r' };
+use constant WRITE_ONLY     => sub { $_[0] ? 'wb' . shift : 'w' };
+use constant MODE_READ      => sub { $_[0] =~ /^r/ ? 1 : 0 };
+
+# Pointless assignment to make -w shut up
+my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
+my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
+use constant UNAME          => sub { $getpwuid || scalar getpwuid( shift() ) || '' };
+use constant GNAME          => sub { $getgrgid || scalar getgrgid( shift() ) || '' };
+use constant UID            => $>;
+use constant GID            => (split ' ', $) )[0];
+
+use constant MODE           => do { 0666 & (0777 & ~umask) };
+use constant STRIP_MODE     => sub { shift() & 0777 };
+use constant CHECK_SUM      => "      ";
+
+use constant UNPACK         => 'a100 a8 a8 a8 a12 a12 a8 a1 a100 A6 a2 a32 a32 a8 a8 a155 x12';	# cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb)
+use constant PACK           => 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12';
+use constant NAME_LENGTH    => 100;
+use constant PREFIX_LENGTH  => 155;
+
+use constant TIME_OFFSET    => ($^O eq "MacOS") ? Time::Local::timelocal(0,0,0,1,0,70) : 0;
+use constant MAGIC          => "ustar";
+use constant TAR_VERSION    => "00";
+use constant LONGLINK_NAME  => '././@LongLink';
+use constant PAX_HEADER     => 'pax_global_header';
+
+                            ### allow ZLIB to be turned off using ENV: DEBUG only
+use constant ZLIB           => do { !$ENV{'PERL5_AT_NO_ZLIB'} and
+                                        eval { require IO::Zlib };
+                                    $ENV{'PERL5_AT_NO_ZLIB'} || $@ ? 0 : 1
+                                };
+
+                            ### allow BZIP to be turned off using ENV: DEBUG only
+use constant BZIP           => do { !$ENV{'PERL5_AT_NO_BZIP'} and
+                                        eval { require IO::Uncompress::Bunzip2;
+                                               require IO::Compress::Bzip2; };
+                                    $ENV{'PERL5_AT_NO_BZIP'} || $@ ? 0 : 1
+                                };
+
+use constant GZIP_MAGIC_NUM => qr/^(?:\037\213|\037\235)/;
+use constant BZIP_MAGIC_NUM => qr/^BZh\d/;
+
+use constant CAN_CHOWN      => sub { ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32") };
+use constant CAN_READLINK   => ($^O ne 'MSWin32' and $^O !~ /RISC(?:[ _])?OS/i and $^O ne 'VMS');
+use constant ON_UNIX        => ($^O ne 'MSWin32' and $^O ne 'MacOS' and $^O ne 'VMS');
+use constant ON_VMS         => $^O eq 'VMS';
+
+sub _list_consts {
+    my $class = shift;
+    my $pkg   = shift;
+    return unless defined $pkg; # some joker might use '0' as a pkg...
+
+    my @rv;
+    {   no strict 'refs';
+        my $stash = $pkg . '::';
+
+        for my $name (sort keys %$stash ) {
+
+            ### is it a subentry?
+            my $sub = $pkg->can( $name );
+            next unless defined $sub;
+
+            next unless defined prototype($sub) and
+                     not length prototype($sub);
+
+            push @rv, $name;
+        }
+    }
+
+    return sort @rv;
+}
+
+1;
+package Archive::Tar::File;
+use strict;
+
+use Carp                ();
+use IO::File;
+use File::Spec::Unix    ();
+use File::Spec          ();
+use File::Basename      ();
+
+### avoid circular use, so only require;
+require Archive::Tar;
+use Archive::Tar::Constant;
+
+use vars qw[@ISA $VERSION];
+#@ISA        = qw[Archive::Tar];
+$VERSION    = '2.30';
+
+### set value to 1 to oct() it during the unpack ###
+
+my $tmpl = [
+        name        => 0,   # string					A100
+        mode        => 1,   # octal					A8
+        uid         => 1,   # octal					A8
+        gid         => 1,   # octal					A8
+        size        => 0,   # octal	# cdrake - not *always* octal..	A12
+        mtime       => 1,   # octal					A12
+        chksum      => 1,   # octal					A8
+        type        => 0,   # character					A1
+        linkname    => 0,   # string					A100
+        magic       => 0,   # string					A6
+        version     => 0,   # 2 bytes					A2
+        uname       => 0,   # string					A32
+        gname       => 0,   # string					A32
+        devmajor    => 1,   # octal					A8
+        devminor    => 1,   # octal					A8
+        prefix      => 0,	#					A155 x 12
+
+### end UNPACK items ###
+        raw         => 0,   # the raw data chunk
+        data        => 0,   # the data associated with the file --
+                            # This  might be very memory intensive
+];
+
+### install get/set accessors for this object.
+for ( my $i=0; $i<scalar @$tmpl ; $i+=2 ) {
+    my $key = $tmpl->[$i];
+    no strict 'refs';
+    *{__PACKAGE__."::$key"} = sub {
+        my $self = shift;
+        $self->{$key} = $_[0] if @_;
+
+        ### just in case the key is not there or undef or something ###
+        {   local $^W = 0;
+            return $self->{$key};
+        }
+    }
+}
+
+
+sub new {
+    my $class   = shift;
+    my $what    = shift;
+
+    my $obj =   ($what eq 'chunk') ? __PACKAGE__->_new_from_chunk( @_ ) :
+                ($what eq 'file' ) ? __PACKAGE__->_new_from_file( @_ ) :
+                ($what eq 'data' ) ? __PACKAGE__->_new_from_data( @_ ) :
+                undef;
+
+    return $obj;
+}
+
+### copies the data, creates a clone ###
+sub clone {
+    my $self = shift;
+    return bless { %$self }, ref $self;
+}
+
+sub _new_from_chunk {
+    my $class = shift;
+    my $chunk = shift or return;    # 512 bytes of tar header
+    my %hash  = @_;
+
+    ### filter any arguments on defined-ness of values.
+    ### this allows overriding from what the tar-header is saying
+    ### about this tar-entry. Particularly useful for @LongLink files
+    my %args  = map { $_ => $hash{$_} } grep { defined $hash{$_} } keys %hash;
+
+    ### makes it start at 0 actually... :) ###
+    my $i = -1;
+    my %entry = map {
+	my ($s,$v)=($tmpl->[++$i],$tmpl->[++$i]);	# cdrake
+	($_)=($_=~/^([^\0]*)/) unless($s eq 'size');	# cdrake
+	$s=> $v ? oct $_ : $_				# cdrake
+	# $tmpl->[++$i] => $tmpl->[++$i] ? oct $_ : $_	# removed by cdrake - mucks up binary sizes >8gb
+    } unpack( UNPACK, $chunk );				# cdrake
+    # } map { /^([^\0]*)/ } unpack( UNPACK, $chunk );	# old - replaced now by cdrake
+
+
+    if(substr($entry{'size'}, 0, 1) eq "\x80") {	# binary size extension for files >8gigs (> octal 77777777777777)	# cdrake
+      my @sz=unpack("aCSNN",$entry{'size'}); $entry{'size'}=$sz[4]+(2**32)*$sz[3]+$sz[2]*(2**64);	# Use the low 80 bits (should use the upper 15 as well, but as at year 2011, that seems unlikely to ever be needed - the numbers are just too big...) # cdrake
+    } else {	# cdrake
+      ($entry{'size'})=($entry{'size'}=~/^([^\0]*)/); $entry{'size'}=oct $entry{'size'};	# cdrake
+    }	# cdrake
+
+
+    my $obj = bless { %entry, %args }, $class;
+
+	### magic is a filetype string.. it should have something like 'ustar' or
+	### something similar... if the chunk is garbage, skip it
+	return unless $obj->magic !~ /\W/;
+
+    ### store the original chunk ###
+    $obj->raw( $chunk );
+
+    $obj->type(FILE) if ( (!length $obj->type) or ($obj->type =~ /\W/) );
+    $obj->type(DIR)  if ( ($obj->is_file) && ($obj->name =~ m|/$|) );
+
+
+    return $obj;
+
+}
+
+sub _new_from_file {
+    my $class       = shift;
+    my $path        = shift;
+
+    ### path has to at least exist
+    return unless defined $path;
+
+    my $type        = __PACKAGE__->_filetype($path);
+    my $data        = '';
+
+    READ: {
+        unless ($type == DIR ) {
+            my $fh = IO::File->new;
+
+            unless( $fh->open($path) ) {
+                ### dangling symlinks are fine, stop reading but continue
+                ### creating the object
+                last READ if $type == SYMLINK;
+
+                ### otherwise, return from this function --
+                ### anything that's *not* a symlink should be
+                ### resolvable
+                return;
+            }
+
+            ### binmode needed to read files properly on win32 ###
+            binmode $fh;
+            $data = do { local $/; <$fh> };
+            close $fh;
+        }
+    }
+
+    my @items       = qw[mode uid gid size mtime];
+    my %hash        = map { shift(@items), $_ } (lstat $path)[2,4,5,7,9];
+
+    if (ON_VMS) {
+        ### VMS has two UID modes, traditional and POSIX.  Normally POSIX is
+        ### not used.  We currently do not have an easy way to see if we are in
+        ### POSIX mode.  In traditional mode, the UID is actually the VMS UIC.
+        ### The VMS UIC has the upper 16 bits is the GID, which in many cases
+        ### the VMS UIC will be larger than 209715, the largest that TAR can
+        ### handle.  So for now, assume it is traditional if the UID is larger
+        ### than 0x10000.
+
+        if ($hash{uid} > 0x10000) {
+            $hash{uid} = $hash{uid} & 0xFFFF;
+        }
+
+        ### The file length from stat() is the physical length of the file
+        ### However the amount of data read in may be more for some file types.
+        ### Fixed length files are read past the logical EOF to end of the block
+        ### containing.  Other file types get expanded on read because record
+        ### delimiters are added.
+
+        my $data_len = length $data;
+        $hash{size} = $data_len if $hash{size} < $data_len;
+
+    }
+    ### you *must* set size == 0 on symlinks, or the next entry will be
+    ### though of as the contents of the symlink, which is wrong.
+    ### this fixes bug #7937
+    $hash{size}     = 0 if ($type == DIR or $type == SYMLINK);
+    $hash{mtime}    -= TIME_OFFSET;
+
+    ### strip the high bits off the mode, which we don't need to store
+    $hash{mode}     = STRIP_MODE->( $hash{mode} );
+
+
+    ### probably requires some file path munging here ... ###
+    ### name and prefix are set later
+    my $obj = {
+        %hash,
+        name        => '',
+        chksum      => CHECK_SUM,
+        type        => $type,
+        linkname    => ($type == SYMLINK and CAN_READLINK)
+                            ? readlink $path
+                            : '',
+        magic       => MAGIC,
+        version     => TAR_VERSION,
+        uname       => UNAME->( $hash{uid} ),
+        gname       => GNAME->( $hash{gid} ),
+        devmajor    => 0,   # not handled
+        devminor    => 0,   # not handled
+        prefix      => '',
+        data        => $data,
+    };
+
+    bless $obj, $class;
+
+    ### fix up the prefix and file from the path
+    my($prefix,$file) = $obj->_prefix_and_file( $path );
+    $obj->prefix( $prefix );
+    $obj->name( $file );
+
+    return $obj;
+}
+
+sub _new_from_data {
+    my $class   = shift;
+    my $path    = shift;    return unless defined $path;
+    my $data    = shift;    return unless defined $data;
+    my $opt     = shift;
+
+    my $obj = {
+        data        => $data,
+        name        => '',
+        mode        => MODE,
+        uid         => UID,
+        gid         => GID,
+        size        => length $data,
+        mtime       => time - TIME_OFFSET,
+        chksum      => CHECK_SUM,
+        type        => FILE,
+        linkname    => '',
+        magic       => MAGIC,
+        version     => TAR_VERSION,
+        uname       => UNAME->( UID ),
+        gname       => GNAME->( GID ),
+        devminor    => 0,
+        devmajor    => 0,
+        prefix      => '',
+    };
+
+    ### overwrite with user options, if provided ###
+    if( $opt and ref $opt eq 'HASH' ) {
+        for my $key ( keys %$opt ) {
+
+            ### don't write bogus options ###
+            next unless exists $obj->{$key};
+            $obj->{$key} = $opt->{$key};
+        }
+    }
+
+    bless $obj, $class;
+
+    ### fix up the prefix and file from the path
+    my($prefix,$file) = $obj->_prefix_and_file( $path );
+    $obj->prefix( $prefix );
+    $obj->name( $file );
+
+    return $obj;
+}
+
+sub _prefix_and_file {
+    my $self = shift;
+    my $path = shift;
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath( $path, $self->is_dir );
+    my @dirs = File::Spec->splitdir( File::Spec->canonpath($dirs) );
+
+    ### if it's a directory, then $file might be empty
+    $file = pop @dirs if $self->is_dir and not length $file;
+
+    ### splitting ../ gives you the relative path in native syntax
+    map { $_ = '..' if $_  eq '-' } @dirs if ON_VMS;
+
+    my $prefix = File::Spec::Unix->catdir(@dirs);
+    return( $prefix, $file );
+}
+
+sub _filetype {
+    my $self = shift;
+    my $file = shift;
+
+    return unless defined $file;
+
+    return SYMLINK  if (-l $file);	# Symlink
+
+    return FILE     if (-f _);		# Plain file
+
+    return DIR      if (-d _);		# Directory
+
+    return FIFO     if (-p _);		# Named pipe
+
+    return SOCKET   if (-S _);		# Socket
+
+    return BLOCKDEV if (-b _);		# Block special
+
+    return CHARDEV  if (-c _);		# Character special
+
+    ### shouldn't happen, this is when making archives, not reading ###
+    return LONGLINK if ( $file eq LONGLINK_NAME );
+
+    return UNKNOWN;		            # Something else (like what?)
+
+}
+
+### this method 'downgrades' a file to plain file -- this is used for
+### symlinks when FOLLOW_SYMLINKS is true.
+sub _downgrade_to_plainfile {
+    my $entry = shift;
+    $entry->type( FILE );
+    $entry->mode( MODE );
+    $entry->linkname('');
+
+    return 1;
+}
+
+
+sub extract {
+    my $self = shift;
+
+    local $Carp::CarpLevel += 1;
+
+    return Archive::Tar->_extract_file( $self, @_ );
+}
+
+
+sub full_path {
+    my $self = shift;
+
+    ### if prefix field is empty
+    return $self->name unless defined $self->prefix and length $self->prefix;
+
+    ### or otherwise, catfile'd
+    return File::Spec::Unix->catfile( $self->prefix, $self->name );
+}
+
+
+
+sub validate {
+    my $self = shift;
+
+    my $raw = $self->raw;
+
+    ### don't know why this one is different from the one we /write/ ###
+    substr ($raw, 148, 8) = "        ";
+
+    ### bug #43513: [PATCH] Accept wrong checksums from SunOS and HP-UX tar
+    ### like GNU tar does. See here for details:
+    ### http://www.gnu.org/software/tar/manual/tar.html#SEC139
+    ### so we do both a signed AND unsigned validate. if one succeeds, that's
+    ### good enough
+	return (   (unpack ("%16C*", $raw) == $self->chksum)
+	        or (unpack ("%16c*", $raw) == $self->chksum)) ? 1 : 0;
+}
+
+
+sub has_content {
+    my $self = shift;
+    return defined $self->data() && length $self->data() ? 1 : 0;
+}
+
+
+sub get_content {
+    my $self = shift;
+    $self->data( );
+}
+
+
+sub get_content_by_ref {
+    my $self = shift;
+
+    return \$self->{data};
+}
+
+
+sub replace_content {
+    my $self = shift;
+    my $data = shift || '';
+
+    $self->data( $data );
+    $self->size( length $data );
+    return 1;
+}
+
+
+sub rename {
+    my $self = shift;
+    my $path = shift;
+
+    return unless defined $path;
+
+    my ($prefix,$file) = $self->_prefix_and_file( $path );
+
+    $self->name( $file );
+    $self->prefix( $prefix );
+
+	return 1;
+}
+
+
+sub chmod {
+    my $self  = shift;
+    my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
+    $self->{mode} = oct($mode);
+    return 1;
+}
+
+
+sub chown {
+    my $self = shift;
+    my $uname = shift;
+    return unless defined $uname;
+    my $gname;
+    if (-1 != index($uname, ':')) {
+	($uname, $gname) = split(/:/, $uname);
+    } else {
+	$gname = shift if @_ > 0;
+    }
+
+    $self->uname( $uname );
+    $self->gname( $gname ) if $gname;
+	return 1;
+}
+
+
+#stupid perl5.5.3 needs to warn if it's not numeric
+sub is_file     { local $^W;    FILE      == $_[0]->type }
+sub is_dir      { local $^W;    DIR       == $_[0]->type }
+sub is_hardlink { local $^W;    HARDLINK  == $_[0]->type }
+sub is_symlink  { local $^W;    SYMLINK   == $_[0]->type }
+sub is_chardev  { local $^W;    CHARDEV   == $_[0]->type }
+sub is_blockdev { local $^W;    BLOCKDEV  == $_[0]->type }
+sub is_fifo     { local $^W;    FIFO      == $_[0]->type }
+sub is_socket   { local $^W;    SOCKET    == $_[0]->type }
+sub is_unknown  { local $^W;    UNKNOWN   == $_[0]->type }
+sub is_longlink { local $^W;    LONGLINK  eq $_[0]->type }
+sub is_label    { local $^W;    LABEL     eq $_[0]->type }
+
+1;
+package Config::Extensions;
+use strict;
+our (%Extensions, $VERSION, @ISA, @EXPORT_OK);
+use Config;
+require Exporter;
+
+$VERSION = '0.02';
+@ISA = 'Exporter';
+@EXPORT_OK = '%Extensions';
+
+foreach my $type (qw(static dynamic nonxs)) {
+    foreach (split /\s+/, $Config{$type . '_ext'}) {
+	s!/!::!g;
+	$Extensions{$_} = $type;
+    }
+}
+
+1;
+__END__
+#!/pro/bin/perl
+
+package Config::Perl::V;
+
+use strict;
+use warnings;
+
+use Config;
+use Exporter;
+use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
+$VERSION     = "0.29";
+@ISA         = qw( Exporter );
+@EXPORT_OK   = qw( plv2hash summary myconfig signature );
+%EXPORT_TAGS = (
+    all => [ @EXPORT_OK  ],
+    sig => [ "signature" ],
+    );
+
+#  Characteristics of this binary (from libperl):
+#    Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
+#                          USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
+
+# The list are as the perl binary has stored it in PL_bincompat_options
+#  search for it in
+#   perl.c line 1643 S_Internals_V ()
+#     perl -ne'(/^S_Internals_V/../^}/)&&s/^\s+"( .*)"/$1/ and print' perl.c
+#   perl.h line 4566 PL_bincompat_options
+#     perl -ne'(/^\w.*PL_bincompat/../^\w}/)&&s/^\s+"( .*)"/$1/ and print' perl.h
+my %BTD = map { $_ => 0 } qw(
+
+    DEBUGGING
+    NO_HASH_SEED
+    NO_MATHOMS
+    NO_TAINT_SUPPORT
+    PERL_BOOL_AS_CHAR
+    PERL_COPY_ON_WRITE
+    PERL_DISABLE_PMC
+    PERL_DONT_CREATE_GVSV
+    PERL_EXTERNAL_GLOB
+    PERL_HASH_FUNC_DJB2
+    PERL_HASH_FUNC_MURMUR3
+    PERL_HASH_FUNC_ONE_AT_A_TIME
+    PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
+    PERL_HASH_FUNC_ONE_AT_A_TIME_OLD
+    PERL_HASH_FUNC_SDBM
+    PERL_HASH_FUNC_SIPHASH
+    PERL_HASH_FUNC_SUPERFAST
+    PERL_IS_MINIPERL
+    PERL_MALLOC_WRAP
+    PERL_MEM_LOG
+    PERL_MEM_LOG_ENV
+    PERL_MEM_LOG_ENV_FD
+    PERL_MEM_LOG_NOIMPL
+    PERL_MEM_LOG_STDERR
+    PERL_MEM_LOG_TIMESTAMP
+    PERL_NEW_COPY_ON_WRITE
+    PERL_OP_PARENT
+    PERL_PERTURB_KEYS_DETERMINISTIC
+    PERL_PERTURB_KEYS_DISABLED
+    PERL_PERTURB_KEYS_RANDOM
+    PERL_PRESERVE_IVUV
+    PERL_RELOCATABLE_INCPUSH
+    PERL_USE_DEVEL
+    PERL_USE_SAFE_PUTENV
+    SILENT_NO_TAINT_SUPPORT
+    UNLINK_ALL_VERSIONS
+    USE_ATTRIBUTES_FOR_PERLIO
+    USE_FAST_STDIO
+    USE_HASH_SEED_EXPLICIT
+    USE_LOCALE
+    USE_LOCALE_CTYPE
+    USE_NO_REGISTRY
+    USE_PERL_ATOF
+    USE_SITECUSTOMIZE
+
+    DEBUG_LEAKING_SCALARS
+    DEBUG_LEAKING_SCALARS_FORK_DUMP
+    DECCRTL_SOCKETS
+    FAKE_THREADS
+    FCRYPT
+    HAS_TIMES
+    HAVE_INTERP_INTERN
+    MULTIPLICITY
+    MYMALLOC
+    PERL_DEBUG_READONLY_COW
+    PERL_DEBUG_READONLY_OPS
+    PERL_GLOBAL_STRUCT
+    PERL_GLOBAL_STRUCT_PRIVATE
+    PERL_IMPLICIT_CONTEXT
+    PERL_IMPLICIT_SYS
+    PERLIO_LAYERS
+    PERL_MAD
+    PERL_MICRO
+    PERL_NEED_APPCTX
+    PERL_NEED_TIMESBASE
+    PERL_OLD_COPY_ON_WRITE
+    PERL_POISON
+    PERL_SAWAMPERSAND
+    PERL_TRACK_MEMPOOL
+    PERL_USES_PL_PIDSTATUS
+    PL_OP_SLAB_ALLOC
+    THREADS_HAVE_PIDS
+    USE_64_BIT_ALL
+    USE_64_BIT_INT
+    USE_IEEE
+    USE_ITHREADS
+    USE_LARGE_FILES
+    USE_LOCALE_COLLATE
+    USE_LOCALE_NUMERIC
+    USE_LOCALE_TIME
+    USE_LONG_DOUBLE
+    USE_PERLIO
+    USE_QUADMATH
+    USE_REENTRANT_API
+    USE_SFIO
+    USE_SOCKS
+    VMS_DO_SOCKETS
+    VMS_SHORTEN_LONG_SYMBOLS
+    VMS_SYMBOL_CASE_AS_IS
+    );
+
+# These are all the keys that are
+# 1. Always present in %Config - lib/Config.pm #87 tie %Config
+# 2. Reported by 'perl -V' (the rest)
+my @config_vars = qw(
+
+    api_subversion
+    api_version
+    api_versionstring
+    archlibexp
+    dont_use_nlink
+    d_readlink
+    d_symlink
+    exe_ext
+    inc_version_list
+    ldlibpthname
+    patchlevel
+    path_sep
+    perl_patchlevel
+    privlibexp
+    scriptdir
+    sitearchexp
+    sitelibexp
+    subversion
+    usevendorprefix
+    version
+
+    git_commit_id
+    git_describe
+    git_branch
+    git_uncommitted_changes
+    git_commit_id_title
+    git_snapshot_date
+
+    package revision version_patchlevel_string
+
+    osname osvers archname
+    myuname
+    config_args
+    hint useposix d_sigaction
+    useithreads usemultiplicity
+    useperlio d_sfio uselargefiles usesocks
+    use64bitint use64bitall uselongdouble
+    usemymalloc default_inc_excludes_dot bincompat5005
+
+    cc ccflags
+    optimize
+    cppflags
+    ccversion gccversion gccosandvers
+    intsize longsize ptrsize doublesize byteorder
+    d_longlong longlongsize d_longdbl longdblsize
+    ivtype ivsize nvtype nvsize lseektype lseeksize
+    alignbytes prototype
+
+    ld ldflags
+    libpth
+    libs
+    perllibs
+    libc so useshrplib libperl
+    gnulibc_version
+
+    dlsrc dlext d_dlsymun ccdlflags
+    cccdlflags lddlflags
+    );
+
+my %empty_build = (
+    osname  => "",
+    stamp   => 0,
+    options => { %BTD },
+    patches => [],
+    );
+
+sub _make_derived {
+    my $conf = shift;
+
+    for ( [ lseektype		=> "Off_t"	],
+	  [ myuname		=> "uname"	],
+	  [ perl_patchlevel	=> "patch"	],
+	  ) {
+	my ($official, $derived) = @$_;
+	$conf->{config}{$derived}  ||= $conf->{config}{$official};
+	$conf->{config}{$official} ||= $conf->{config}{$derived};
+	$conf->{derived}{$derived} = delete $conf->{config}{$derived};
+	}
+
+    if (exists $conf->{config}{version_patchlevel_string} &&
+       !exists $conf->{config}{api_version}) {
+	my $vps = $conf->{config}{version_patchlevel_string};
+	$vps =~ s{\b revision   \s+ (\S+) }{}x and
+	    $conf->{config}{revision}        ||= $1;
+
+	$vps =~ s{\b version    \s+ (\S+) }{}x and
+	    $conf->{config}{api_version}     ||= $1;
+	$vps =~ s{\b subversion \s+ (\S+) }{}x and
+	    $conf->{config}{subversion}      ||= $1;
+	$vps =~ s{\b patch      \s+ (\S+) }{}x and
+	    $conf->{config}{perl_patchlevel} ||= $1;
+	}
+
+    ($conf->{config}{version_patchlevel_string} ||= join " ",
+	map  { ($_, $conf->{config}{$_} ) }
+	grep {      $conf->{config}{$_}   }
+	qw( api_version subversion perl_patchlevel )) =~ s/\bperl_//; 
+
+    $conf->{config}{perl_patchlevel}  ||= "";	# 0 is not a valid patchlevel
+
+    if ($conf->{config}{perl_patchlevel} =~ m{^git\w*-([^-]+)}i) {
+	$conf->{config}{git_branch}   ||= $1;
+	$conf->{config}{git_describe} ||= $conf->{config}{perl_patchlevel};
+	}
+
+    $conf->{config}{$_} ||= "undef" for grep m/^(?:use|def)/ => @config_vars;
+
+    $conf;
+    } # _make_derived
+
+sub plv2hash {
+    my %config;
+
+    my $pv = join "\n" => @_;
+
+    if ($pv =~ m/^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)/m) {
+	$config{"package"} = $1;
+	my $rev = $2;
+	$rev =~ s/^ revision \s+ (\S+) \s*//x and $config{revision} = $1;
+	$rev and $config{version_patchlevel_string} = $rev;
+	my ($rel) = $config{"package"} =~ m{perl(\d)};
+	my ($vers, $subvers) = $rev =~ m{version\s+(\d+)\s+subversion\s+(\d+)};
+	defined $vers && defined $subvers && defined $rel and
+	    $config{version} = "$rel.$vers.$subvers";
+	}
+
+    if ($pv =~ m/^\s+(Snapshot of:)\s+(\S+)/) {
+	$config{git_commit_id_title} = $1;
+	$config{git_commit_id}       = $2;
+	}
+
+    # these are always last on line and can have multiple quotation styles
+    for my $k (qw( ccflags ldflags lddlflags )) {
+	$pv =~ s{, \s* $k \s*=\s* (.*) \s*$}{}mx or next;
+	my $v = $1;
+	$v =~ s/\s*,\s*$//;
+	$v =~ s/^(['"])(.*)\1$/$2/;
+	$config{$k} = $v;
+	}
+
+    if (my %kv = ($pv =~ m{\b
+	    (\w+)		# key
+	    \s*=		# assign
+	    ( '\s*[^']*?\s*'	# quoted value
+	    | \S+[^=]*?\s*\n	# unquoted running till end of line
+	    | \S+		# unquoted value
+	    | \s*\n		# empty
+	    )
+	    (?:,?\s+|\s*\n)?	# separator (5.8.x reports did not have a ','
+	    }gx)) {		# between every kv pair
+
+	while (my ($k, $v) = each %kv) {
+	    $k =~ s/\s+$//;
+	    $v =~ s/\s*\n\z//;
+	    $v =~ s/,$//;
+	    $v =~ m/^'(.*)'$/ and $v = $1;
+	    $v =~ s/\s+$//;
+	    $config{$k} = $v;
+	    }
+	}
+
+    my $build = { %empty_build };
+
+    $pv =~ m{^\s+Compiled at\s+(.*)}m
+	and $build->{stamp}   = $1;
+    $pv =~ m{^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)}ms
+	and $build->{patches} = [ split m/\n+\s*/, $1 ];
+    $pv =~ m{^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))}ms
+	and map { $build->{options}{$_} = 1 } split m/\s+|\n/ => $1;
+
+    $build->{osname} = $config{osname};
+    $pv =~ m{^\s+Built under\s+(.*)}m
+	and $build->{osname}  = $1;
+    $config{osname} ||= $build->{osname};
+
+    return _make_derived ({
+	build		=> $build,
+	environment	=> {},
+	config		=> \%config,
+	derived		=> {},
+	inc		=> [],
+	});
+    } # plv2hash
+
+sub summary {
+    my $conf = shift || myconfig ();
+    ref $conf eq "HASH"
+    && exists $conf->{config}
+    && exists $conf->{build}
+    && ref $conf->{config} eq "HASH"
+    && ref $conf->{build}  eq "HASH" or return;
+
+    my %info = map {
+	exists $conf->{config}{$_} ? ( $_ => $conf->{config}{$_} ) : () }
+	qw( archname osname osvers revision patchlevel subversion version
+	    cc ccversion gccversion config_args inc_version_list
+	    d_longdbl d_longlong use64bitall use64bitint useithreads
+	    uselongdouble usemultiplicity usemymalloc useperlio useshrplib 
+	    doublesize intsize ivsize nvsize longdblsize longlongsize lseeksize
+	    default_inc_excludes_dot
+	    );
+    $info{$_}++ for grep { $conf->{build}{options}{$_} } keys %{$conf->{build}{options}};
+
+    return \%info;
+    } # summary
+
+sub signature {
+    my $no_md5 = "0" x 32;
+    my $conf = summary (shift) or return $no_md5;
+
+    eval { require Digest::MD5 };
+    $@ and return $no_md5;
+
+    $conf->{cc} =~ s{.*\bccache\s+}{};
+    $conf->{cc} =~ s{.*[/\\]}{};
+
+    delete $conf->{config_args};
+    return Digest::MD5::md5_hex (join "\xFF" => map {
+	"$_=".(defined $conf->{$_} ? $conf->{$_} : "\xFE");
+	} sort keys %$conf);
+    } # signature
+
+sub myconfig {
+    my $args = shift;
+    my %args = ref $args eq "HASH"  ? %$args :
+               ref $args eq "ARRAY" ? @$args : ();
+
+    my $build = { %empty_build };
+
+    # 5.14.0 and later provide all the information without shelling out
+    my $stamp = eval { Config::compile_date () };
+    if (defined $stamp) {
+	$stamp =~ s/^Compiled at //;
+	$build->{osname}      = $^O;
+	$build->{stamp}       = $stamp;
+	$build->{patches}     =     [ Config::local_patches () ];
+	$build->{options}{$_} = 1 for Config::bincompat_options (),
+				      Config::non_bincompat_options ();
+	}
+    else {
+	#y $pv = qx[$^X -e"sub Config::myconfig{};" -V];
+	my $cnf = plv2hash (qx[$^X -V]);
+
+	$build->{$_} = $cnf->{build}{$_} for qw( osname stamp patches options );
+	}
+
+    my @KEYS = keys %ENV;
+    my %env  =
+	map {      $_ => $ENV{$_} } grep m/^PERL/      => @KEYS;
+    $args{env} and
+	map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
+
+    my %config = map { $_ => $Config{$_} } @config_vars;
+
+    return _make_derived ({
+	build		=> $build,
+	environment	=> \%env,
+	config		=> \%config,
+	derived		=> {},
+	inc		=> \@INC,
+	});
+    } # myconfig
+
+1;
+
+__END__
+
+package ExtUtils::MM_UWIN;
+
+use strict;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+
+sub os_flavor {
+    return('Unix', 'U/WIN');
+}
+
+
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+
+    $man =~ s,/+,.,g;
+    return $man;
+}
+
+
+1;
+package ExtUtils::Manifest;
+
+require Exporter;
+use Config;
+use File::Basename;
+use File::Copy 'copy';
+use File::Find;
+use File::Spec 0.8;
+use Carp;
+use strict;
+use warnings;
+
+our $VERSION = '1.70';
+our @ISA = ('Exporter');
+our @EXPORT_OK = qw(mkmanifest
+                manicheck  filecheck  fullcheck  skipcheck
+                manifind   maniread   manicopy   maniadd
+                maniskip
+               );
+
+our $Is_MacOS = $^O eq 'MacOS';
+our $Is_VMS   = $^O eq 'VMS';
+our $Is_VMS_mode = 0;
+our $Is_VMS_lc = 0;
+our $Is_VMS_nodot = 0;  # No dots in dir names or double dots in files
+
+if ($Is_VMS) {
+    require VMS::Filespec if $Is_VMS;
+    my $vms_unix_rpt;
+    my $vms_efs;
+    my $vms_case;
+
+    $Is_VMS_mode = 1;
+    $Is_VMS_lc = 1;
+    $Is_VMS_nodot = 1;
+    if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
+        $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
+        $vms_efs = VMS::Feature::current("efs_charset");
+        $vms_case = VMS::Feature::current("efs_case_preserve");
+    } else {
+        my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
+        my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || '';
+        $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
+        $vms_efs = $efs_charset =~ /^[ET1]/i;
+        $vms_case = $efs_case =~ /^[ET1]/i;
+    }
+    $Is_VMS_lc = 0 if ($vms_case);
+    $Is_VMS_mode = 0 if ($vms_unix_rpt);
+    $Is_VMS_nodot = 0 if ($vms_efs);
+}
+
+our $Debug   = $ENV{PERL_MM_MANIFEST_DEBUG} || 0;
+our $Verbose = defined $ENV{PERL_MM_MANIFEST_VERBOSE} ?
+                   $ENV{PERL_MM_MANIFEST_VERBOSE} : 1;
+our $Quiet = 0;
+our $MANIFEST = 'MANIFEST';
+
+our $DEFAULT_MSKIP = File::Spec->catfile( dirname(__FILE__), "$MANIFEST.SKIP" );
+
+
+
+sub _sort {
+    return sort { lc $a cmp lc $b } @_;
+}
+
+sub mkmanifest {
+    my $manimiss = 0;
+    my $read = (-r 'MANIFEST' && maniread()) or $manimiss++;
+    $read = {} if $manimiss;
+    local *M;
+    my $bakbase = $MANIFEST;
+    $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots
+    rename $MANIFEST, "$bakbase.bak" unless $manimiss;
+    open M, "> $MANIFEST" or die "Could not open $MANIFEST: $!";
+    binmode M, ':raw';
+    my $skip = maniskip();
+    my $found = manifind();
+    my($key,$val,$file,%all);
+    %all = (%$found, %$read);
+    $all{$MANIFEST} = ($Is_VMS_mode ? "$MANIFEST\t\t" : '') .
+                     'This list of files'
+        if $manimiss; # add new MANIFEST to known file list
+    foreach $file (_sort keys %all) {
+	if ($skip->($file)) {
+	    # Policy: only remove files if they're listed in MANIFEST.SKIP.
+	    # Don't remove files just because they don't exist.
+	    warn "Removed from $MANIFEST: $file\n" if $Verbose and exists $read->{$file};
+	    next;
+	}
+	if ($Verbose){
+	    warn "Added to $MANIFEST: $file\n" unless exists $read->{$file};
+	}
+	my $text = $all{$file};
+	$file = _unmacify($file);
+	my $tabs = (5 - (length($file)+1)/8);
+	$tabs = 1 if $tabs < 1;
+	$tabs = 0 unless $text;
+        if ($file =~ /\s/) {
+            $file =~ s/([\\'])/\\$1/g;
+            $file = "'$file'";
+        }
+	print M $file, "\t" x $tabs, $text, "\n";
+    }
+    close M;
+}
+
+# Geez, shouldn't this use File::Spec or File::Basename or something?
+# Why so careful about dependencies?
+sub clean_up_filename {
+  my $filename = shift;
+  $filename =~ s|^\./||;
+  $filename =~ s/^:([^:]+)$/$1/ if $Is_MacOS;
+  if ( $Is_VMS ) {
+      $filename =~ s/\.$//;                           # trim trailing dot
+      $filename = VMS::Filespec::unixify($filename);  # unescape spaces, etc.
+      if( $Is_VMS_lc ) {
+          $filename = lc($filename);
+          $filename = uc($filename) if $filename =~ /^MANIFEST(\.SKIP)?$/i;
+      }
+  }
+  return $filename;
+}
+
+
+
+sub manifind {
+    my $p = shift || {};
+    my $found = {};
+
+    my $wanted = sub {
+	my $name = clean_up_filename($File::Find::name);
+	warn "Debug: diskfile $name\n" if $Debug;
+	return if -d $_;
+	$found->{$name} = "";
+    };
+
+    # We have to use "$File::Find::dir/$_" in preprocess, because
+    # $File::Find::name is unavailable.
+    # Also, it's okay to use / here, because MANIFEST files use Unix-style
+    # paths.
+    find({wanted => $wanted, follow_fast => 1},
+	 $Is_MacOS ? ":" : ".");
+
+    return $found;
+}
+
+
+
+sub manicheck {
+    return _check_files();
+}
+
+
+
+sub filecheck {
+    return _check_manifest();
+}
+
+
+
+sub fullcheck {
+    return [_check_files()], [_check_manifest()];
+}
+
+
+
+sub skipcheck {
+    my($p) = @_;
+    my $found = manifind();
+    my $matches = maniskip();
+
+    my @skipped = ();
+    foreach my $file (_sort keys %$found){
+        if (&$matches($file)){
+            warn "Skipping $file\n" unless $Quiet;
+            push @skipped, $file;
+            next;
+        }
+    }
+
+    return @skipped;
+}
+
+
+sub _check_files {
+    my $p = shift;
+    my $dosnames=(defined(&Dos::UseLFN) && Dos::UseLFN()==0);
+    my $read = maniread() || {};
+    my $found = manifind($p);
+
+    my(@missfile) = ();
+    foreach my $file (_sort keys %$read){
+        warn "Debug: manicheck checking from $MANIFEST $file\n" if $Debug;
+        if ($dosnames){
+            $file = lc $file;
+            $file =~ s=(\.(\w|-)+)=substr ($1,0,4)=ge;
+            $file =~ s=((\w|-)+)=substr ($1,0,8)=ge;
+        }
+        unless ( exists $found->{$file} ) {
+            warn "No such file: $file\n" unless $Quiet;
+            push @missfile, $file;
+        }
+    }
+
+    return @missfile;
+}
+
+
+sub _check_manifest {
+    my($p) = @_;
+    my $read = maniread() || {};
+    my $found = manifind($p);
+    my $skip  = maniskip();
+
+    my @missentry = ();
+    foreach my $file (_sort keys %$found){
+        next if $skip->($file);
+        warn "Debug: manicheck checking from disk $file\n" if $Debug;
+        unless ( exists $read->{$file} ) {
+            my $canon = $Is_MacOS ? "\t" . _unmacify($file) : '';
+            warn "Not in $MANIFEST: $file$canon\n" unless $Quiet;
+            push @missentry, $file;
+        }
+    }
+
+    return @missentry;
+}
+
+
+
+sub maniread {
+    my ($mfile) = @_;
+    $mfile ||= $MANIFEST;
+    my $read = {};
+    local *M;
+    unless (open M, "< $mfile"){
+        warn "Problem opening $mfile: $!";
+        return $read;
+    }
+    local $_;
+    while (<M>){
+        chomp;
+        next if /^\s*#/;
+
+        my($file, $comment);
+
+        # filename may contain spaces if enclosed in ''
+        # (in which case, \\ and \' are escapes)
+        if (($file, $comment) = /^'((?:\\[\\']|.+)+)'\s*(.*)/) {
+            $file =~ s/\\([\\'])/$1/g;
+        }
+        else {
+            ($file, $comment) = /^(\S+)\s*(.*)/;
+        }
+        next unless $file;
+
+        if ($Is_MacOS) {
+            $file = _macify($file);
+            $file =~ s/\\([0-3][0-7][0-7])/sprintf("%c", oct($1))/ge;
+        }
+        elsif ($Is_VMS_mode) {
+            require File::Basename;
+            my($base,$dir) = File::Basename::fileparse($file);
+            # Resolve illegal file specifications in the same way as tar
+            if ($Is_VMS_nodot) {
+                $dir =~ tr/./_/;
+                my(@pieces) = split(/\./,$base);
+                if (@pieces > 2)
+                    { $base = shift(@pieces) . '.' . join('_',@pieces); }
+                my $okfile = "$dir$base";
+                warn "Debug: Illegal name $file changed to $okfile\n" if $Debug;
+                $file = $okfile;
+            }
+            if( $Is_VMS_lc ) {
+                $file = lc($file);
+                $file = uc($file) if $file =~ /^MANIFEST(\.SKIP)?$/i;
+            }
+        }
+
+        $read->{$file} = $comment;
+    }
+    close M;
+    $read;
+}
+
+
+# returns an anonymous sub that decides if an argument matches
+sub maniskip {
+    my @skip ;
+    my $mfile = shift || "$MANIFEST.SKIP";
+    _check_mskip_directives($mfile) if -f $mfile;
+    local(*M, $_);
+    open M, "< $mfile" or open M, "< $DEFAULT_MSKIP" or return sub {0};
+    while (<M>){
+      chomp;
+      s/\r//;
+      $_ =~ qr{^\s*(?:(?:'([^\\']*(?:\\.[^\\']*)*)')|([^#\s]\S*))?(?:(?:\s*)|(?:\s+(.*?)\s*))$};
+      #my $comment = $3;
+      my $filename = $2;
+      if ( defined($1) ) {
+        $filename = $1;
+        $filename =~ s/\\(['\\])/$1/g;
+      }
+      next if (not defined($filename) or not $filename);
+      push @skip, _macify($filename);
+    }
+    close M;
+    return sub {0} unless (scalar @skip > 0);
+
+    my $opts = $Is_VMS_mode ? '(?i)' : '';
+
+    # Make sure each entry is isolated in its own parentheses, in case
+    # any of them contain alternations
+    my $regex = join '|', map "(?:$_)", @skip;
+
+    return sub { $_[0] =~ qr{$opts$regex} };
+}
+
+# checks for the special directives
+#   #!include_default
+#   #!include /path/to/some/manifest.skip
+# in a custom MANIFEST.SKIP for, for including
+# the content of, respectively, the default MANIFEST.SKIP
+# and an external manifest.skip file
+sub _check_mskip_directives {
+    my $mfile = shift;
+    local (*M, $_);
+    my @lines = ();
+    my $flag = 0;
+    unless (open M, "< $mfile") {
+        warn "Problem opening $mfile: $!";
+        return;
+    }
+    while (<M>) {
+        if (/^#!include_default\s*$/) {
+	    if (my @default = _include_mskip_file()) {
+	        push @lines, @default;
+		warn "Debug: Including default MANIFEST.SKIP\n" if $Debug;
+		$flag++;
+	    }
+	    next;
+        }
+	if (/^#!include\s+(.*)\s*$/) {
+	    my $external_file = $1;
+	    if (my @external = _include_mskip_file($external_file)) {
+	        push @lines, @external;
+		warn "Debug: Including external $external_file\n" if $Debug;
+		$flag++;
+	    }
+            next;
+        }
+        push @lines, $_;
+    }
+    close M;
+    return unless $flag;
+    my $bakbase = $mfile;
+    $bakbase =~ s/\./_/g if $Is_VMS_nodot;  # avoid double dots
+    rename $mfile, "$bakbase.bak";
+    warn "Debug: Saving original $mfile as $bakbase.bak\n" if $Debug;
+    unless (open M, "> $mfile") {
+        warn "Problem opening $mfile: $!";
+        return;
+    }
+    binmode M, ':raw';
+    print M $_ for (@lines);
+    close M;
+    return;
+}
+
+# returns an array containing the lines of an external
+# manifest.skip file, if given, or $DEFAULT_MSKIP
+sub _include_mskip_file {
+    my $mskip = shift || $DEFAULT_MSKIP;
+    unless (-f $mskip) {
+        warn qq{Included file "$mskip" not found - skipping};
+        return;
+    }
+    local (*M, $_);
+    unless (open M, "< $mskip") {
+        warn "Problem opening $mskip: $!";
+        return;
+    }
+    my @lines = ();
+    push @lines, "\n#!start included $mskip\n";
+    push @lines, $_ while <M>;
+    close M;
+    push @lines, "#!end included $mskip\n\n";
+    return @lines;
+}
+
+
+sub manicopy {
+    my($read,$target,$how)=@_;
+    croak "manicopy() called without target argument" unless defined $target;
+    $how ||= 'cp';
+    require File::Path;
+    require File::Basename;
+
+    $target = VMS::Filespec::unixify($target) if $Is_VMS_mode;
+    File::Path::mkpath([ $target ],! $Quiet,$Is_VMS ? undef : 0755);
+    foreach my $file (keys %$read){
+	if ($Is_MacOS) {
+	    if ($file =~ m!:!) {
+		my $dir = _maccat($target, $file);
+		$dir =~ s/[^:]+$//;
+		File::Path::mkpath($dir,1,0755);
+	    }
+	    cp_if_diff($file, _maccat($target, $file), $how);
+	} else {
+	    $file = VMS::Filespec::unixify($file) if $Is_VMS_mode;
+	    if ($file =~ m!/!) { # Ilya, that hurts, I fear, or maybe not?
+		my $dir = File::Basename::dirname($file);
+		$dir = VMS::Filespec::unixify($dir) if $Is_VMS_mode;
+		File::Path::mkpath(["$target/$dir"],! $Quiet,$Is_VMS ? undef : 0755);
+	    }
+	    cp_if_diff($file, "$target/$file", $how);
+	}
+    }
+}
+
+sub cp_if_diff {
+    my($from, $to, $how)=@_;
+    if (! -f $from) {
+        carp "$from not found";
+        return;
+    }
+    my($diff) = 0;
+    local(*F,*T);
+    open(F,"< $from\0") or die "Can't read $from: $!\n";
+    if (open(T,"< $to\0")) {
+        local $_;
+	while (<F>) { $diff++,last if $_ ne <T>; }
+	$diff++ unless eof(T);
+	close T;
+    }
+    else { $diff++; }
+    close F;
+    if ($diff) {
+	if (-e $to) {
+	    unlink($to) or confess "unlink $to: $!";
+	}
+        STRICT_SWITCH: {
+	    best($from,$to), last STRICT_SWITCH if $how eq 'best';
+	    cp($from,$to), last STRICT_SWITCH if $how eq 'cp';
+	    ln($from,$to), last STRICT_SWITCH if $how eq 'ln';
+	    croak("ExtUtils::Manifest::cp_if_diff " .
+		  "called with illegal how argument [$how]. " .
+		  "Legal values are 'best', 'cp', and 'ln'.");
+	}
+    }
+}
+
+sub cp {
+    my ($srcFile, $dstFile) = @_;
+    my ($access,$mod) = (stat $srcFile)[8,9];
+
+    copy($srcFile,$dstFile);
+    utime $access, $mod + ($Is_VMS ? 1 : 0), $dstFile;
+    _manicopy_chmod($srcFile, $dstFile);
+}
+
+
+sub ln {
+    my ($srcFile, $dstFile) = @_;
+    # Fix-me - VMS can support links.
+    return &cp if $Is_VMS or ($^O eq 'MSWin32' and Win32::IsWin95());
+    link($srcFile, $dstFile);
+
+    unless( _manicopy_chmod($srcFile, $dstFile) ) {
+        unlink $dstFile;
+        return;
+    }
+    1;
+}
+
+# 1) Strip off all group and world permissions.
+# 2) Let everyone read it.
+# 3) If the owner can execute it, everyone can.
+sub _manicopy_chmod {
+    my($srcFile, $dstFile) = @_;
+
+    my $perm = 0444 | (stat $srcFile)[2] & 0700;
+    chmod( $perm | ( $perm & 0100 ? 0111 : 0 ), $dstFile );
+}
+
+# Files that are often modified in the distdir.  Don't hard link them.
+my @Exceptions = qw(MANIFEST META.yml SIGNATURE);
+sub best {
+    my ($srcFile, $dstFile) = @_;
+
+    my $is_exception = grep $srcFile =~ /$_/, @Exceptions;
+    if ($is_exception or !$Config{d_link} or -l $srcFile) {
+	cp($srcFile, $dstFile);
+    } else {
+	ln($srcFile, $dstFile) or cp($srcFile, $dstFile);
+    }
+}
+
+sub _macify {
+    my($file) = @_;
+
+    return $file unless $Is_MacOS;
+
+    $file =~ s|^\./||;
+    if ($file =~ m|/|) {
+	$file =~ s|/+|:|g;
+	$file = ":$file";
+    }
+
+    $file;
+}
+
+sub _maccat {
+    my($f1, $f2) = @_;
+
+    return "$f1/$f2" unless $Is_MacOS;
+
+    $f1 .= ":$f2";
+    $f1 =~ s/([^:]:):/$1/g;
+    return $f1;
+}
+
+sub _unmacify {
+    my($file) = @_;
+
+    return $file unless $Is_MacOS;
+
+    $file =~ s|^:||;
+    $file =~ s|([/ \n])|sprintf("\\%03o", unpack("c", $1))|ge;
+    $file =~ y|:|/|;
+
+    $file;
+}
+
+
+
+sub maniadd {
+    my($additions) = shift;
+
+    _normalize($additions);
+    _fix_manifest($MANIFEST);
+
+    my $manifest = maniread();
+    my @needed = grep { !exists $manifest->{$_} } keys %$additions;
+    return 1 unless @needed;
+
+    open(MANIFEST, ">>$MANIFEST") or
+      die "maniadd() could not open $MANIFEST: $!";
+    binmode MANIFEST, ':raw';
+
+    foreach my $file (_sort @needed) {
+        my $comment = $additions->{$file} || '';
+        if ($file =~ /\s/) {
+            $file =~ s/([\\'])/\\$1/g;
+            $file = "'$file'";
+        }
+        printf MANIFEST "%-40s %s\n", $file, $comment;
+    }
+    close MANIFEST or die "Error closing $MANIFEST: $!";
+
+    return 1;
+}
+
+
+# Make sure this MANIFEST is consistently written with native
+# newlines and has a terminal newline.
+sub _fix_manifest {
+    my $manifest_file = shift;
+
+    open MANIFEST, $MANIFEST or die "Could not open $MANIFEST: $!";
+    local $/;
+    my @manifest = split /(\015\012|\012|\015)/, <MANIFEST>, -1;
+    close MANIFEST;
+    my $must_rewrite = "";
+    if ($manifest[-1] eq ""){
+        # sane case: last line had a terminal newline
+        pop @manifest;
+        for (my $i=1; $i<=$#manifest; $i+=2) {
+            unless ($manifest[$i] eq "\n") {
+                $must_rewrite = "not a newline at pos $i";
+                last;
+            }
+        }
+    } else {
+        $must_rewrite = "last line without newline";
+    }
+
+    if ( $must_rewrite ) {
+        1 while unlink $MANIFEST; # avoid multiple versions on VMS
+        open MANIFEST, ">", $MANIFEST or die "(must_rewrite=$must_rewrite) Could not open >$MANIFEST: $!";
+	binmode MANIFEST, ':raw';
+        for (my $i=0; $i<=$#manifest; $i+=2) {
+            print MANIFEST "$manifest[$i]\n";
+        }
+        close MANIFEST or die "could not write $MANIFEST: $!";
+    }
+}
+
+
+# UNIMPLEMENTED
+sub _normalize {
+    return;
+}
+
+
+
+1;
+package ExtUtils::Mkbootstrap;
+
+# There's just too much Dynaloader incest here to turn on strict vars.
+use strict 'refs';
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require Exporter;
+our @ISA = ('Exporter');
+our @EXPORT = ('&Mkbootstrap');
+
+use Config;
+
+our $Verbose = 0;
+
+
+sub Mkbootstrap {
+    my($baseext, @bsloadlibs)=@_;
+    @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs
+
+    print "	bsloadlibs=@bsloadlibs\n" if $Verbose;
+
+    # We need DynaLoader here because we and/or the *_BS file may
+    # call dl_findfile(). We don't say `use' here because when
+    # first building perl extensions the DynaLoader will not have
+    # been built when MakeMaker gets first used.
+    require DynaLoader;
+
+    rename "$baseext.bs", "$baseext.bso"
+      if -s "$baseext.bs";
+
+    if (-f "${baseext}_BS"){
+	$_ = "${baseext}_BS";
+	package DynaLoader; # execute code as if in DynaLoader
+	local($osname, $dlsrc) = (); # avoid warnings
+	($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)};
+	$bscode = "";
+	unshift @INC, ".";
+	require $_;
+	shift @INC;
+    }
+
+    if ($Config{'dlsrc'} =~ /^dl_dld/){
+	package DynaLoader;
+	push(@dl_resolve_using, dl_findfile('-lc'));
+    }
+
+    my(@all) = (@bsloadlibs, @DynaLoader::dl_resolve_using);
+    my($method) = '';
+    if (@all || (defined $DynaLoader::bscode && length $DynaLoader::bscode)){
+	open my $bs, ">", "$baseext.bs"
+		or die "Unable to open $baseext.bs: $!";
+	print "Writing $baseext.bs\n";
+	print "	containing: @all" if $Verbose;
+	print $bs "# $baseext DynaLoader bootstrap file for $^O architecture.\n";
+	print $bs "# Do not edit this file, changes will be lost.\n";
+	print $bs "# This file was automatically generated by the\n";
+	print $bs "# Mkbootstrap routine in ExtUtils::Mkbootstrap (v$VERSION).\n";
+	if (@all) {
+	    print $bs "\@DynaLoader::dl_resolve_using = ";
+	    # If @all contains names in the form -lxxx or -Lxxx then it's asking for
+	    # runtime library location so we automatically add a call to dl_findfile()
+	    if (" @all" =~ m/ -[lLR]/){
+		print $bs "  dl_findfile(qw(\n  @all\n  ));\n";
+	    } else {
+		print $bs "  qw(@all);\n";
+	    }
+	}
+	# write extra code if *_BS says so
+	print $bs $DynaLoader::bscode if $DynaLoader::bscode;
+	print $bs "\n1;\n";
+	close $bs;
+    }
+}
+
+1;
+
+__END__
+
+package ExtUtils::MM_Win32;
+
+use strict;
+
+
+
+use ExtUtils::MakeMaker::Config;
+use File::Basename;
+use File::Spec;
+use ExtUtils::MakeMaker qw(neatvalue _sprintf562);
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+$ENV{EMXSHELL} = 'sh'; # to run `commands`
+
+my ( $BORLAND, $GCC, $MSVC ) = _identify_compiler_environment( \%Config );
+
+sub _identify_compiler_environment {
+	my ( $config ) = @_;
+
+	my $BORLAND = $config->{cc} =~ /\bbcc/i ? 1 : 0;
+	my $GCC     = $config->{cc} =~ /\bgcc\b/i ? 1 : 0;
+	my $MSVC    = $config->{cc} =~ /\b(?:cl|icl)/i ? 1 : 0; # MSVC can come as clarm.exe, icl=Intel C
+
+	return ( $BORLAND, $GCC, $MSVC );
+}
+
+
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+    return '' if $self->{SKIPHASH}{'dynamic'};
+    $self->xs_dlsyms_iterator(\%attribs);
+}
+
+
+sub xs_dlsyms_ext {
+    '.def';
+}
+
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man =~ s,/+,.,g;
+    $man;
+}
+
+
+
+sub maybe_command {
+    my($self,$file) = @_;
+    my @e = exists($ENV{'PATHEXT'})
+          ? split(/;/, $ENV{PATHEXT})
+	  : qw(.com .exe .bat .cmd);
+    my $e = '';
+    for (@e) { $e .= "\Q$_\E|" }
+    chop $e;
+    # see if file ends in one of the known extensions
+    if ($file =~ /($e)$/i) {
+	return $file if -e $file;
+    }
+    else {
+	for (@e) {
+	    return "$file$_" if -e "$file$_";
+	}
+    }
+    return;
+}
+
+
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    # The ^ makes sure its not interpreted as an escape in nmake
+    $self->{DIRFILESEP} = $self->is_make_type('nmake') ? '^\\' :
+                          $self->is_make_type('dmake') ? '\\\\' :
+                          $self->is_make_type('gmake') ? '/'
+                                                       : '\\';
+}
+
+
+sub init_tools {
+    my ($self) = @_;
+
+    $self->{NOOP}     ||= 'rem';
+    $self->{DEV_NULL} ||= '> NUL';
+
+    $self->{FIXIN}    ||= $self->{PERL_CORE} ?
+      "\$(PERLRUN) $self->{PERL_SRC}\\win32\\bin\\pl2bat.pl" :
+      'pl2bat.bat';
+
+    $self->SUPER::init_tools;
+
+    # Setting SHELL from $Config{sh} can break dmake.  Its ok without it.
+    delete $self->{SHELL};
+
+    return;
+}
+
+
+
+sub init_others {
+    my $self = shift;
+
+    $self->{LD}     ||= 'link';
+    $self->{AR}     ||= 'lib';
+
+    $self->SUPER::init_others;
+
+    $self->{LDLOADLIBS} ||= $Config{libs};
+    # -Lfoo must come first for Borland, so we put it in LDDLFLAGS
+    if ($BORLAND) {
+        my $libs = $self->{LDLOADLIBS};
+        my $libpath = '';
+        while ($libs =~ s/(?:^|\s)(("?)-L.+?\2)(?:\s|$)/ /) {
+            $libpath .= ' ' if length $libpath;
+            $libpath .= $1;
+        }
+        $self->{LDLOADLIBS} = $libs;
+        $self->{LDDLFLAGS} ||= $Config{lddlflags};
+        $self->{LDDLFLAGS} .= " $libpath";
+    }
+
+    return;
+}
+
+
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_Win32_VERSION} = $VERSION;
+
+    return;
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(MM_Win32_VERSION))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+sub specify_shell {
+    my $self = shift;
+    return '' unless $self->is_make_type('gmake');
+    "\nSHELL = $ENV{COMSPEC}\n";
+}
+
+
+sub constants {
+    my $self = shift;
+
+    my $make_text = $self->SUPER::constants;
+    return $make_text unless $self->is_make_type('dmake');
+
+    # dmake won't read any single "line" (even those with escaped newlines)
+    # larger than a certain size which can be as small as 8k.  PM_TO_BLIB
+    # on large modules like DateTime::TimeZone can create lines over 32k.
+    # So we'll crank it up to a <ironic>WHOPPING</ironic> 64k.
+    #
+    # This has to come here before all the constants and not in
+    # platform_constants which is after constants.
+    my $size = $self->{MAXLINELENGTH} || 800000;
+    my $prefix = qq{
+# Get dmake to read long commands like PM_TO_BLIB
+MAXLINELENGTH = $size
+
+};
+
+    return $prefix . $make_text;
+}
+
+
+
+sub special_targets {
+    my($self) = @_;
+
+    my $make_frag = $self->SUPER::special_targets;
+
+    $make_frag .= <<'MAKE_FRAG' if $self->is_make_type('dmake');
+.USESHELL :
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+
+sub static_lib_pure_cmd {
+    my ($self, $from) = @_;
+    $from =~ s/(\$\(\w+)(\))/$1:^"+"$2/g if $BORLAND;
+    sprintf qq{\t\$(AR) %s\n}, ($BORLAND ? '$@ ' . $from
+                          : ($GCC ? '-ru $@ ' . $from
+                                  : '-out:$@ ' . $from));
+}
+
+
+sub xs_make_dynamic_lib {
+    my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_;
+    my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(INST_DYNAMIC_DEP)'."\n", $to, $from, $todir, $exportlist;
+    if ($GCC) {
+      # per https://rt.cpan.org/Ticket/Display.html?id=78395 no longer
+      # uses dlltool - relies on post 2002 MinGW
+      #                             1            2
+      push @m, _sprintf562 <<'EOF', $exportlist, $ldfrom;
+	$(LD) %1$s -o $@ $(LDDLFLAGS) %2$s $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -Wl,--enable-auto-image-base
+EOF
+    } elsif ($BORLAND) {
+      my $ldargs = $self->is_make_type('dmake')
+          ? q{"$(PERL_ARCHIVE:s,/,\,)" $(LDLOADLIBS:s,/,\,) $(MYEXTLIB:s,/,\,),}
+          : q{"$(subst /,\,$(PERL_ARCHIVE))" $(subst /,\,$(LDLOADLIBS)) $(subst /,\,$(MYEXTLIB)),};
+      my $subbed;
+      if ($exportlist eq '$(EXPORT_LIST)') {
+          $subbed = $self->is_make_type('dmake')
+              ? q{$(EXPORT_LIST:s,/,\,)}
+              : q{$(subst /,\,$(EXPORT_LIST))};
+      } else {
+            # in XSMULTI, exportlist is per-XS, so have to sub in perl not make
+          ($subbed = $exportlist) =~ s#/#\\#g;
+      }
+      push @m, sprintf <<'EOF', $ldfrom, $ldargs . $subbed;
+        $(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) %s,$@,,%s,$(RESFILES)
+EOF
+    } else {	# VC
+      push @m, sprintf <<'EOF', $ldfrom, $exportlist;
+	$(LD) -out:$@ $(LDDLFLAGS) %s $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -def:%s
+EOF
+      # Embed the manifest file if it exists
+      push(@m, q{	if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2
+	if exist $@.manifest del $@.manifest});
+    }
+    push @m, "\n\t\$(CHMOD) \$(PERM_RWX) \$\@\n";
+
+    join '', @m;
+}
+
+sub xs_dynamic_lib_macros {
+    my ($self, $attribs) = @_;
+    my $otherldflags = $attribs->{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
+    my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || "";
+    sprintf <<'EOF', $otherldflags, $inst_dynamic_dep;
+# This section creates the dynamically loadable objects from relevant
+# objects and possibly $(MYEXTLIB).
+OTHERLDFLAGS = %s
+INST_DYNAMIC_DEP = %s
+EOF
+}
+
+
+sub extra_clean_files {
+    my $self = shift;
+
+    return $GCC ? (qw(dll.base dll.exp)) : ('*.pdb');
+}
+
+
+sub init_linker {
+    my $self = shift;
+
+    $self->{PERL_ARCHIVE}       = "\$(PERL_INC)\\$Config{libperl}";
+    $self->{PERL_ARCHIVEDEP}    = "\$(PERL_INCDEP)\\$Config{libperl}";
+    $self->{PERL_ARCHIVE_AFTER} = '';
+    $self->{EXPORT_LIST}        = '$(BASEEXT).def';
+}
+
+
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && -f _;
+    return "$file.pl"  if -r "$file.pl" && -f _;
+    return "$file.plx" if -r "$file.plx" && -f _;
+    return "$file.bat" if -r "$file.bat" && -f _;
+    return;
+}
+
+sub can_dep_space {
+    my $self = shift;
+    1; # with Win32::GetShortPathName
+}
+
+
+sub quote_dep {
+    my ($self, $arg) = @_;
+    if ($arg =~ / / and not $self->is_make_type('gmake')) {
+        require Win32;
+        $arg = Win32::GetShortPathName($arg);
+        die <<EOF if not defined $arg or $arg =~ / /;
+Tried to use make dependency with space for non-GNU make:
+  '$arg'
+Fallback to short pathname failed.
+EOF
+        return $arg;
+    }
+    return $self->SUPER::quote_dep($arg);
+}
+
+
+
+sub xs_obj_opt {
+    my ($self, $output_file) = @_;
+    ($MSVC ? "/Fo" : "-o ") . $output_file;
+}
+
+
+
+sub pasthru {
+    my($self) = shift;
+    my $old = $self->SUPER::pasthru;
+    return $old unless $self->is_make_type('nmake');
+    $old =~ s/(PASTHRU\s*=\s*)/$1 -nologo /;
+    $old;
+}
+
+
+
+sub arch_check {
+    my $self = shift;
+
+    # Win32 is an XS module, minperl won't have it.
+    # arch_check() is not critical, so just fake it.
+    return 1 unless $self->can_load_xs;
+    return $self->SUPER::arch_check( map { $self->_normalize_path_name($_) } @_);
+}
+
+sub _normalize_path_name {
+    my $self = shift;
+    my $file = shift;
+
+    require Win32;
+    my $short = Win32::GetShortPathName($file);
+    return defined $short ? lc $short : lc $file;
+}
+
+
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    $cmd = $self->quote_literal($cmd);
+    $cmd = $self->escape_newlines($cmd);
+
+    $switches = join ' ', @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd --};
+}
+
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # See: http://www.autohotkey.net/~deleyd/parameters/parameters.htm#CPP
+
+    # Apply the Microsoft C/C++ parsing rules
+    $text =~ s{\\\\"}{\\\\\\\\\\"}g;  # \\" -> \\\\\"
+    $text =~ s{(?<!\\)\\"}{\\\\\\"}g; # \"  -> \\\"
+    $text =~ s{(?<!\\)"}{\\"}g;       # "   -> \"
+    $text = qq{"$text"} if $text =~ /[ \t]/;
+
+    # Apply the Command Prompt parsing rules (cmd.exe)
+    my @text = split /("[^"]*")/, $text;
+    # We should also escape parentheses, but it breaks one-liners containing
+    # $(MACRO)s in makefiles.
+    s{([<>|&^@!])}{^$1}g foreach grep { !/^"[^"]*"$/ } @text;
+    $text = join('', @text);
+
+    # dmake expands {{ to { and }} to }.
+    if( $self->is_make_type('dmake') ) {
+        $text =~ s/{/{{/g;
+        $text =~ s/}/}}/g;
+    }
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return $text;
+}
+
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    # Escape newlines
+    $text =~ s{\n}{\\\n}g;
+
+    return $text;
+}
+
+
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    return $self->SUPER::cd($dir, @cmds) unless $self->is_make_type('nmake');
+
+    my $cmd = join "\n\t", map "$_", @cmds;
+
+    my $updirs = $self->catdir(map { $self->updir } $self->splitdir($dir));
+
+    # No leading tab and no trailing newline makes for easier embedding.
+    my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd, $updirs;
+cd %s
+	%s
+	cd %s
+MAKE_FRAG
+
+    chomp $make_frag;
+
+    return $make_frag;
+}
+
+
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 2 * 1024;
+}
+
+
+
+sub os_flavor {
+    return('Win32');
+}
+
+
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my $base = $self->SUPER::cflags($libperl);
+    foreach (split /\n/, $base) {
+        /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
+    };
+    $self->{CCFLAGS} .= " -DPERLDLL" if ($self->{LINKTYPE} eq 'static');
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+
+}
+
+
+sub make_type {
+    my ($self) = @_;
+    my $make = $self->make;
+    $make = +( File::Spec->splitpath( $make ) )[-1];
+    $make =~ s!\.exe$!!i;
+    if ( $make =~ m![^A-Z0-9]!i ) {
+      ($make) = grep { m!make!i } split m![^A-Z0-9]!i, $make;
+    }
+    return "$make-style";
+}
+
+1;
+__END__
+
+package ExtUtils::Mksymlists;
+
+use 5.006;
+use strict qw[ subs refs ];
+# no strict 'vars';  # until filehandles are exempted
+
+use Carp;
+use Exporter;
+use Config;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&Mksymlists);
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+sub Mksymlists {
+    my(%spec) = @_;
+    my($osname) = $^O;
+
+    croak("Insufficient information specified to Mksymlists")
+        unless ( $spec{NAME} or
+                 ($spec{FILE} and ($spec{DL_FUNCS} or $spec{FUNCLIST})) );
+
+    $spec{DL_VARS} = [] unless $spec{DL_VARS};
+    ($spec{FILE} = $spec{NAME}) =~ s/.*::// unless $spec{FILE};
+    $spec{FUNCLIST} = [] unless $spec{FUNCLIST};
+    $spec{DL_FUNCS} = { $spec{NAME} => [] }
+        unless ( ($spec{DL_FUNCS} and keys %{$spec{DL_FUNCS}}) or
+                 @{$spec{FUNCLIST}});
+    if (defined $spec{DL_FUNCS}) {
+        foreach my $package (sort keys %{$spec{DL_FUNCS}}) {
+            my($packprefix,$bootseen);
+            ($packprefix = $package) =~ s/\W/_/g;
+            foreach my $sym (@{$spec{DL_FUNCS}->{$package}}) {
+                if ($sym =~ /^boot_/) {
+                    push(@{$spec{FUNCLIST}},$sym);
+                    $bootseen++;
+                }
+                else {
+                    push(@{$spec{FUNCLIST}},"XS_${packprefix}_$sym");
+                }
+            }
+            push(@{$spec{FUNCLIST}},"boot_$packprefix") unless $bootseen;
+        }
+    }
+
+#    We'll need this if we ever add any OS which uses mod2fname
+#    not as pseudo-builtin.
+#    require DynaLoader;
+    if (defined &DynaLoader::mod2fname and not $spec{DLBASE}) {
+        $spec{DLBASE} = DynaLoader::mod2fname([ split(/::/,$spec{NAME}) ]);
+    }
+
+    if    ($osname eq 'aix') { _write_aix(\%spec); }
+    elsif ($osname eq 'MacOS'){ _write_aix(\%spec) }
+    elsif ($osname eq 'VMS') { _write_vms(\%spec) }
+    elsif ($osname eq 'os2') { _write_os2(\%spec) }
+    elsif ($osname eq 'MSWin32') { _write_win32(\%spec) }
+    else {
+        croak("Don't know how to create linker option file for $osname\n");
+    }
+}
+
+
+sub _write_aix {
+    my($data) = @_;
+
+    rename "$data->{FILE}.exp", "$data->{FILE}.exp_old";
+
+    open( my $exp, ">", "$data->{FILE}.exp")
+        or croak("Can't create $data->{FILE}.exp: $!\n");
+    print $exp join("\n",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}};
+    print $exp join("\n",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}};
+    close $exp;
+}
+
+
+sub _write_os2 {
+    my($data) = @_;
+    require Config;
+    my $threaded = ($Config::Config{archname} =~ /-thread/ ? " threaded" : "");
+
+    if (not $data->{DLBASE}) {
+        ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://;
+        $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_';
+    }
+    my $distname = $data->{DISTNAME} || $data->{NAME};
+    $distname = "Distribution $distname";
+    my $patchlevel = " pl$Config{perl_patchlevel}" || '';
+    my $comment = sprintf "Perl (v%s%s%s) module %s",
+      $Config::Config{version}, $threaded, $patchlevel, $data->{NAME};
+    chomp $comment;
+    if ($data->{INSTALLDIRS} and $data->{INSTALLDIRS} eq 'perl') {
+        $distname = 'perl5-porters@perl.org';
+        $comment = "Core $comment";
+    }
+    $comment = "$comment (Perl-config: $Config{config_args})";
+    $comment = substr($comment, 0, 200) . "...)" if length $comment > 203;
+    rename "$data->{FILE}.def", "$data->{FILE}_def.old";
+
+    open(my $def, ">", "$data->{FILE}.def")
+        or croak("Can't create $data->{FILE}.def: $!\n");
+    print $def "LIBRARY '$data->{DLBASE}' INITINSTANCE TERMINSTANCE\n";
+    print $def "DESCRIPTION '\@#$distname:$data->{VERSION}#\@ $comment'\n";
+    print $def "CODE LOADONCALL\n";
+    print $def "DATA LOADONCALL NONSHARED MULTIPLE\n";
+    print $def "EXPORTS\n  ";
+    print $def join("\n  ",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}};
+    print $def join("\n  ",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}};
+    _print_imports($def, $data);
+    close $def;
+}
+
+sub _print_imports {
+    my ($def, $data)= @_;
+    my $imports= $data->{IMPORTS}
+        or return;
+    if ( keys %$imports ) {
+        print $def "IMPORTS\n";
+        foreach my $name (sort keys %$imports) {
+            print $def "  $name=$imports->{$name}\n";
+        }
+    }
+}
+
+sub _write_win32 {
+    my($data) = @_;
+
+    require Config;
+    if (not $data->{DLBASE}) {
+        ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://;
+        $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_';
+    }
+    rename "$data->{FILE}.def", "$data->{FILE}_def.old";
+
+    open( my $def, ">", "$data->{FILE}.def" )
+        or croak("Can't create $data->{FILE}.def: $!\n");
+    # put library name in quotes (it could be a keyword, like 'Alias')
+    if ($Config::Config{'cc'} !~ /\bgcc/i) {
+        print $def "LIBRARY \"$data->{DLBASE}\"\n";
+    }
+    print $def "EXPORTS\n  ";
+    my @syms;
+    # Export public symbols both with and without underscores to
+    # ensure compatibility between DLLs from Borland C and Visual C
+    # NOTE: DynaLoader itself only uses the names without underscores,
+    # so this is only to cover the case when the extension DLL may be
+    # linked to directly from C. GSAR 97-07-10
+
+    #bcc dropped in 5.16, so dont create useless extra symbols for export table
+    unless($] >= 5.016) {
+        if ($Config::Config{'cc'} =~ /^bcc/i) {
+            push @syms, "_$_", "$_ = _$_"
+                for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+        }
+        else {
+            push @syms, "$_", "_$_ = $_"
+                for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+        }
+    } else {
+        push @syms, "$_"
+            for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+    }
+    print $def join("\n  ",@syms, "\n") if @syms;
+    _print_imports($def, $data);
+    close $def;
+}
+
+
+sub _write_vms {
+    my($data) = @_;
+
+    require Config; # a reminder for once we do $^O
+    require ExtUtils::XSSymSet;
+
+    my($isvax) = $Config::Config{'archname'} =~ /VAX/i;
+    my($set) = new ExtUtils::XSSymSet;
+
+    rename "$data->{FILE}.opt", "$data->{FILE}.opt_old";
+
+    open(my $opt,">", "$data->{FILE}.opt")
+        or croak("Can't create $data->{FILE}.opt: $!\n");
+
+    # Options file declaring universal symbols
+    # Used when linking shareable image for dynamic extension,
+    # or when linking PerlShr into which we've added this package
+    # as a static extension
+    # We don't do anything to preserve order, so we won't relax
+    # the GSMATCH criteria for a dynamic extension
+
+    print $opt "case_sensitive=yes\n"
+        if $Config::Config{d_vms_case_sensitive_symbols};
+
+    foreach my $sym (@{$data->{FUNCLIST}}) {
+        my $safe = $set->addsym($sym);
+        if ($isvax) { print $opt "UNIVERSAL=$safe\n" }
+        else        { print $opt "SYMBOL_VECTOR=($safe=PROCEDURE)\n"; }
+    }
+
+    foreach my $sym (@{$data->{DL_VARS}}) {
+        my $safe = $set->addsym($sym);
+        print $opt "PSECT_ATTR=${sym},PIC,OVR,RD,NOEXE,WRT,NOSHR\n";
+        if ($isvax) { print $opt "UNIVERSAL=$safe\n" }
+        else        { print $opt "SYMBOL_VECTOR=($safe=DATA)\n"; }
+    }
+
+    close $opt;
+}
+
+1;
+
+__END__
+
+#!perl
+use 5.006;
+BEGIN { pop @INC if $INC[-1] eq '.' }
+use strict;
+eval {
+  require ExtUtils::ParseXS;
+  1;
+}
+or do {
+  my $err = $@ || 'Zombie error';
+  my $v = $ExtUtils::ParseXS::VERSION;
+  $v = '<undef>' if not defined $v;
+  die "Failed to load or import from ExtUtils::ParseXS (version $v). Please check that ExtUtils::ParseXS is installed correctly and that the newest version will be found in your \@INC path: $err";
+};
+
+use Getopt::Long;
+
+my %args = ();
+
+my $usage = "Usage: xsubpp [-v] [-csuffix csuffix] [-except] [-prototypes] [-noversioncheck] [-nolinenumbers] [-nooptimize] [-noinout] [-noargtypes] [-strip|s pattern] [-typemap typemap]... file.xs\n";
+
+Getopt::Long::Configure qw(no_auto_abbrev no_ignore_case);
+
+@ARGV = grep {$_ ne '-C++'} @ARGV;  # Allow -C++ for backward compatibility
+GetOptions(\%args, qw(hiertype!
+		      prototypes!
+		      versioncheck!
+		      linenumbers!
+		      optimize!
+		      inout!
+		      argtypes!
+		      object_capi!
+		      except!
+		      v
+		      typemap=s@
+		      output=s
+		      s|strip=s
+		      csuffix=s
+		     ))
+  or die $usage;
+
+if ($args{v}) {
+  print "xsubpp version $ExtUtils::ParseXS::VERSION\n";
+  exit;
+}
+
+@ARGV == 1 or die $usage;
+
+$args{filename} = shift @ARGV;
+
+my $pxs = ExtUtils::ParseXS->new;
+$pxs->process_file(%args);
+exit( $pxs->report_error_count() ? 1 : 0 );
+
+__END__
+
+=head1 NAME
+
+xsubpp - compiler to convert Perl XS code into C code
+
+=head1 SYNOPSIS
+
+B<xsubpp> [B<-v>] [B<-except>] [B<-s pattern>] [B<-prototypes>] [B<-noversioncheck>] [B<-nolinenumbers>] [B<-nooptimize>] [B<-typemap typemap>] [B<-output filename>]... file.xs
+
+=head1 DESCRIPTION
+
+This compiler is typically run by the makefiles created by L<ExtUtils::MakeMaker>
+or by L<Module::Build> or other Perl module build tools.
+
+I<xsubpp> will compile XS code into C code by embedding the constructs
+necessary to let C functions manipulate Perl values and creates the glue
+necessary to let Perl access those functions.  The compiler uses typemaps to
+determine how to map C function parameters and variables to Perl values.
+
+The compiler will search for typemap files called I<typemap>.  It will use
+the following search path to find default typemaps, with the rightmost
+typemap taking precedence.
+
+	../../../typemap:../../typemap:../typemap:typemap
+
+It will also use a default typemap installed as C<ExtUtils::typemap>.
+
+=head1 OPTIONS
+
+Note that the C<XSOPT> MakeMaker option may be used to add these options to
+any makefiles generated by MakeMaker.
+
+=over 5
+
+=item B<-hiertype>
+
+Retains '::' in type names so that C++ hierarchical types can be mapped.
+
+=item B<-except>
+
+Adds exception handling stubs to the C code.
+
+=item B<-typemap typemap>
+
+Indicates that a user-supplied typemap should take precedence over the
+default typemaps.  This option may be used multiple times, with the last
+typemap having the highest precedence.
+
+=item B<-output filename>
+
+Specifies the name of the output file to generate.  If no file is
+specified, output will be written to standard output.
+
+=item B<-v>
+
+Prints the I<xsubpp> version number to standard output, then exits.
+
+=item B<-prototypes>
+
+By default I<xsubpp> will not automatically generate prototype code for
+all xsubs. This flag will enable prototypes.
+
+=item B<-noversioncheck>
+
+Disables the run time test that determines if the object file (derived
+from the C<.xs> file) and the C<.pm> files have the same version
+number.
+
+=item B<-nolinenumbers>
+
+Prevents the inclusion of '#line' directives in the output.
+
+=item B<-nooptimize>
+
+Disables certain optimizations.  The only optimization that is currently
+affected is the use of I<target>s by the output C code (see L<perlguts>).
+This may significantly slow down the generated code, but this is the way
+B<xsubpp> of 5.005 and earlier operated.
+
+=item B<-noinout>
+
+Disable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST> declarations.
+
+=item B<-noargtypes>
+
+Disable recognition of ANSI-like descriptions of function signature.
+
+=item B<-C++>
+
+Currently doesn't do anything at all.  This flag has been a no-op for
+many versions of perl, at least as far back as perl5.003_07.  It's
+allowed here for backwards compatibility.
+
+=item B<-s=...> or B<-strip=...>
+
+I<This option is obscure and discouraged.>
+
+If specified, the given string will be stripped off from the beginning
+of the C function name in the generated XS functions (if it starts with that prefix).
+This only applies to XSUBs without C<CODE> or C<PPCODE> blocks.
+For example, the XS:
+
+  void foo_bar(int i);
+
+when C<xsubpp> is invoked with C<-s foo_> will install a C<foo_bar>
+function in Perl, but really call C<bar(i)> in C. Most of the time,
+this is the opposite of what you want and failure modes are somewhat
+obscure, so please avoid this option where possible.
+
+=back
+
+=head1 ENVIRONMENT
+
+No environment variables are used.
+
+=head1 AUTHOR
+
+Originally by Larry Wall.  Turned into the C<ExtUtils::ParseXS> module
+by Ken Williams.
+
+=head1 MODIFICATION HISTORY
+
+See the file F<Changes>.
+
+=head1 SEE ALSO
+
+perl(1), perlxs(1), perlxstut(1), ExtUtils::ParseXS
+
+=cut
+
+package ExtUtils::MM_Win95;
+
+use strict;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Win32;
+our @ISA = qw(ExtUtils::MM_Win32);
+
+use ExtUtils::MakeMaker::Config;
+
+
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 1024;
+}
+
+
+
+sub os_flavor {
+    my $self = shift;
+    return ($self->SUPER::os_flavor, 'Win9x');
+}
+
+
+
+
+1;
+package ExtUtils::Embed;
+require Exporter;
+use Config;
+require File::Spec;
+
+our ( @Extensions, $opt_o, $opt_s );
+use strict;
+
+# This is not a dual-life module, so no need for development version numbers
+our $VERSION = '1.35';
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&xsinit &ldopts 
+	     &ccopts &ccflags &ccdlflags &perl_inc
+	     &xsi_header &xsi_protos &xsi_body);
+
+our $Verbose = 0;
+our $lib_ext = $Config{lib_ext} || '.a';
+
+sub is_cmd { $0 eq '-e' }
+
+sub my_return {
+    my $val = shift;
+    if(is_cmd) {
+	print $val;
+    }
+    else {
+	return $val;
+    }
+}
+
+sub xsinit { 
+    my($file, $std, $mods) = @_;
+    my($fh,@mods,%seen);
+    $file ||= "perlxsi.c";
+    my $xsinit_proto = "pTHX";
+
+    if (@_) {
+       @mods = @$mods if $mods;
+    }
+    else {
+       require Getopt::Std;
+       Getopt::Std::getopts('o:s:');
+       $file = $opt_o if defined $opt_o;
+       $std  = $opt_s  if defined $opt_s;
+       @mods = @ARGV;
+    }
+    $std = 1 unless scalar @mods;
+
+    if ($file eq "STDOUT") {
+	$fh = \*STDOUT;
+    }
+    else {
+        open $fh, '>', $file
+            or die "Can't open '$file': $!";
+    }
+
+    push(@mods, static_ext()) if defined $std;
+    @mods = grep(!$seen{$_}++, @mods);
+
+    print $fh &xsi_header();
+    print $fh "\nEXTERN_C void xs_init ($xsinit_proto);\n\n";
+    print $fh &xsi_protos(@mods);
+
+    print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n";
+    print $fh &xsi_body(@mods);
+    print $fh "}\n";
+
+}
+
+sub xsi_header {
+    return <<EOF;
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+EOF
+}    
+
+sub xsi_protos {
+    my @exts = @_;
+    my %seen;
+    my $retval = '';
+    foreach my $cname (canon('__', @exts)) {
+        my $ccode = "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
+        $retval .= $ccode
+            unless $seen{$ccode}++;
+    }
+    return $retval;
+}
+
+sub xsi_body {
+    my @exts = @_;
+    my %seen;
+    my $retval;
+    $retval .= "    static const char file[] = __FILE__;\n"
+        if @exts;
+    $retval .= <<'EOT';
+    dXSUB_SYS;
+    PERL_UNUSED_CONTEXT;
+EOT
+    $retval .= "\n"
+        if @exts;
+
+    foreach my $pname (canon('/', @exts)) {
+        next
+            if $seen{$pname}++;
+        (my $mname = $pname) =~ s!/!::!g;
+        (my $cname = $pname) =~ s!/!__!g;
+        my $fname;
+        if ($pname eq 'DynaLoader'){
+            # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
+            # boot_DynaLoader is called directly in DynaLoader.pm
+            $retval .= "    /* DynaLoader is a special case */\n";
+            $fname = "${mname}::boot_DynaLoader";
+        } else {
+            $fname = "${mname}::bootstrap";
+        }
+        $retval .= "    newXS(\"$fname\", boot_${cname}, file);\n"
+    }
+    return $retval;
+}
+
+sub static_ext {
+    @Extensions = ('DynaLoader', sort $Config{static_ext} =~ /(\S+)/g)
+        unless @Extensions;
+    @Extensions;
+}
+
+sub _escape {
+    my $arg = shift;
+    return $$arg if $^O eq 'VMS'; # parens legal in qualifier lists
+    $$arg =~ s/([\(\)])/\\$1/g;
+}
+
+sub _ldflags {
+    my $ldflags = $Config{ldflags};
+    _escape(\$ldflags);
+    return $ldflags;
+}
+
+sub _ccflags {
+    my $ccflags = $Config{ccflags};
+    _escape(\$ccflags);
+    return $ccflags;
+}
+
+sub _ccdlflags {
+    my $ccdlflags = $Config{ccdlflags};
+    _escape(\$ccdlflags);
+    return $ccdlflags;
+}
+
+sub ldopts {
+    require ExtUtils::MakeMaker;
+    require ExtUtils::Liblist;
+    my($std,$mods,$link_args,$path) = @_;
+    my(@mods,@link_args,@argv);
+    my($dllib,$config_libs,@potential_libs,@path);
+    local($") = ' ' unless $" eq ' ';
+    if (scalar @_) {
+       @link_args = @$link_args if $link_args;
+       @mods = @$mods if $mods;
+    }
+    else {
+       @argv = @ARGV;
+       #hmm
+       while($_ = shift @argv) {
+	   /^-std$/  && do { $std = 1; next; };
+	   /^--$/    && do { @link_args = @argv; last; };
+	   /^-I(.*)/ && do { $path = $1 || shift @argv; next; };
+	   push(@mods, $_); 
+       }
+    }
+    $std = 1 unless scalar @link_args;
+    my $sep = $Config{path_sep} || ':';
+    @path = $path ? split(/\Q$sep/, $path) : @INC;
+
+    push(@potential_libs, @link_args)    if scalar @link_args;
+    # makemaker includes std libs on windows by default
+    if ($^O ne 'MSWin32' and defined($std)) {
+	push(@potential_libs, $Config{perllibs});
+    }
+
+    push(@mods, static_ext()) if $std;
+
+    my($mod,@ns,$root,$sub,$extra,$archive,@archives);
+    print STDERR "Searching (@path) for archives\n" if $Verbose;
+    foreach $mod (@mods) {
+	@ns = split(/::|\/|\\/, $mod);
+	$sub = $ns[-1];
+	$root = File::Spec->catdir(@ns);
+	
+	print STDERR "searching for '$sub${lib_ext}'\n" if $Verbose;
+	foreach (@path) {
+	    next unless -e ($archive = File::Spec->catdir($_,"auto",$root,"$sub$lib_ext"));
+	    push @archives, $archive;
+	    if(-e ($extra = File::Spec->catdir($_,"auto",$root,"extralibs.ld"))) {
+		local(*FH); 
+		if(open(FH, '<', $extra)) {
+		    my($libs) = <FH>; chomp $libs;
+		    push @potential_libs, split /\s+/, $libs;
+		}
+		else {  
+		    warn "Couldn't open '$extra'"; 
+		}
+	    }
+	    last;
+	}
+    }
+    #print STDERR "\@potential_libs = @potential_libs\n";
+
+    my $libperl;
+    if ($^O eq 'MSWin32') {
+	$libperl = $Config{libperl};
+    }
+    elsif ($^O eq 'os390' && $Config{usedl}) {
+	# Nothing for OS/390 (z/OS) dynamic.
+    } else {
+	$libperl = (grep(/^-l\w*perl\w*$/, @link_args))[0]
+	    || ($Config{libperl} =~ /^lib(\w+)(\Q$lib_ext\E|\.\Q$Config{dlext}\E)$/
+		? "-l$1" : '')
+		|| "-lperl";
+    }
+
+    my $lpath = File::Spec->catdir($Config{archlibexp}, 'CORE');
+    $lpath = qq["$lpath"] if $^O eq 'MSWin32';
+    my($extralibs, $bsloadlibs, $ldloadlibs, $ld_run_path) =
+	MM->ext(join ' ', "-L$lpath", $libperl, @potential_libs);
+
+    my $ld_or_bs = $bsloadlibs || $ldloadlibs;
+    print STDERR "bs: $bsloadlibs ** ld: $ldloadlibs" if $Verbose;
+    my $ccdlflags = _ccdlflags();
+    my $ldflags   = _ldflags();
+    my $linkage = "$ccdlflags $ldflags @archives $ld_or_bs";
+    print STDERR "ldopts: '$linkage'\n" if $Verbose;
+
+    return $linkage if scalar @_;
+    my_return("$linkage\n");
+}
+
+sub ccflags {
+    my $ccflags = _ccflags();
+    my_return(" $ccflags ");
+}
+
+sub ccdlflags {
+    my $ccdlflags = _ccdlflags();
+    my_return(" $ccdlflags ");
+}
+
+sub perl_inc {
+    my $dir = File::Spec->catdir($Config{archlibexp}, 'CORE');
+    $dir = qq["$dir"] if $^O eq 'MSWin32';
+    my_return(" -I$dir ");
+}
+
+sub ccopts {
+   ccflags . perl_inc;
+}
+
+sub canon {
+    my($as, @ext) = @_;
+    foreach(@ext) {
+        # might be X::Y or lib/auto/X/Y/Y.a
+        next
+            if s!::!/!g;
+        s!^(?:lib|ext|dist|cpan)/(?:auto/)?!!;
+        s!/\w+\.\w+$!!;
+    }
+    if ($as ne '/') {
+        s!/!$as!g
+            foreach @ext;
+    }
+    @ext;
+}
+
+__END__
+
+# basic C types
+int			T_IV
+unsigned		T_UV
+unsigned int		T_UV
+long			T_IV
+unsigned long		T_UV
+short			T_IV
+unsigned short		T_UV
+char			T_CHAR
+unsigned char		T_U_CHAR
+char *			T_PV
+unsigned char *		T_PV
+const char *		T_PV
+caddr_t			T_PV
+wchar_t *		T_PV
+wchar_t			T_IV
+# bool_t is defined in <rpc/rpc.h>
+bool_t			T_IV
+size_t			T_UV
+ssize_t			T_IV
+time_t			T_NV
+unsigned long *		T_OPAQUEPTR
+char **			T_PACKEDARRAY
+void *			T_PTR
+Time_t *		T_PV
+SV *			T_SV
+
+# These are the backwards-compatibility AV*/HV* typemaps that
+# do not decrement refcounts. Locally override with
+# "AV*	T_AVREF_REFCOUNT_FIXED", "HV*	T_HVREF_REFCOUNT_FIXED",
+# "CV*	T_CVREF_REFCOUNT_FIXED", "SVREF	T_SVREF_REFCOUNT_FIXED",
+# to get the fixed versions.
+SVREF			T_SVREF
+CV *			T_CVREF
+AV *			T_AVREF
+HV *			T_HVREF
+
+IV			T_IV
+UV			T_UV
+NV                      T_NV
+I32			T_IV
+I16			T_IV
+I8			T_IV
+STRLEN			T_UV
+U32			T_U_LONG
+U16			T_U_SHORT
+U8			T_UV
+Result			T_U_CHAR
+Boolean			T_BOOL
+float                   T_FLOAT
+double			T_DOUBLE
+SysRet			T_SYSRET
+SysRetLong		T_SYSRET
+FILE *			T_STDIO
+PerlIO *		T_INOUT
+FileHandle		T_PTROBJ
+InputStream		T_IN
+InOutStream		T_INOUT
+OutputStream		T_OUT
+bool			T_BOOL
+
+#############################################################################
+INPUT
+T_SV
+	$var = $arg
+T_SVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv)){
+		    $var = SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_SVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv)){
+		    $var = SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_AVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
+		    $var = (AV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_AVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
+		    $var = (AV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_HVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
+		    $var = (HV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a HASH reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_HVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
+		    $var = (HV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a HASH reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_CVREF
+	STMT_START {
+                HV *st;
+                GV *gvp;
+		SV * const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+                $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0);
+		if (!$var) {
+		    Perl_croak_nocontext(\"%s: %s is not a CODE reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_CVREF_REFCOUNT_FIXED
+	STMT_START {
+                HV *st;
+                GV *gvp;
+		SV * const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+                $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0);
+		if (!$var) {
+		    Perl_croak_nocontext(\"%s: %s is not a CODE reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_SYSRET
+	$var NOT IMPLEMENTED
+T_UV
+	$var = ($type)SvUV($arg)
+T_IV
+	$var = ($type)SvIV($arg)
+T_INT
+	$var = (int)SvIV($arg)
+T_ENUM
+	$var = ($type)SvIV($arg)
+T_BOOL
+	$var = (bool)SvTRUE($arg)
+T_U_INT
+	$var = (unsigned int)SvUV($arg)
+T_SHORT
+	$var = (short)SvIV($arg)
+T_U_SHORT
+	$var = (unsigned short)SvUV($arg)
+T_LONG
+	$var = (long)SvIV($arg)
+T_U_LONG
+	$var = (unsigned long)SvUV($arg)
+T_CHAR
+	$var = (char)*SvPV_nolen($arg)
+T_U_CHAR
+	$var = (unsigned char)SvUV($arg)
+T_FLOAT
+	$var = (float)SvNV($arg)
+T_NV
+	$var = ($type)SvNV($arg)
+T_DOUBLE
+	$var = (double)SvNV($arg)
+T_PV
+	$var = ($type)SvPV_nolen($arg)
+T_PTR
+	$var = INT2PTR($type,SvIV($arg))
+T_PTRREF
+	if (SvROK($arg)) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not a reference\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\")
+T_REF_IV_REF
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type *, tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_REF_IV_PTR
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type, tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_PTROBJ
+	if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_PTRDESC
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    ${type}_desc = (\U${type}_DESC\E*) tmp;
+	    $var = ${type}_desc->ptr;
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_REFREF
+	if (SvROK($arg)) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not a reference\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\")
+T_REFOBJ
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_OPAQUE
+	$var = *($type *)SvPV_nolen($arg)
+T_OPAQUEPTR
+	$var = ($type)SvPV_nolen($arg)
+T_PACKED
+	$var = XS_unpack_$ntype($arg)
+T_PACKEDARRAY
+	$var = XS_unpack_$ntype($arg)
+T_ARRAY
+	U32 ix_$var = $argoff;
+	$var = $ntype(items -= $argoff);
+	while (items--) {
+	    DO_ARRAY_ELEM;
+	    ix_$var++;
+	}
+        /* this is the number of elements in the array */
+        ix_$var -= $argoff
+T_STDIO
+	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
+T_IN
+	$var = IoIFP(sv_2io($arg))
+T_INOUT
+	$var = IoIFP(sv_2io($arg))
+T_OUT
+	$var = IoOFP(sv_2io($arg))
+#############################################################################
+OUTPUT
+T_SV
+	$arg = $var;
+T_SVREF
+	$arg = newRV((SV*)$var);
+T_SVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_AVREF
+	$arg = newRV((SV*)$var);
+T_AVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_HVREF
+	$arg = newRV((SV*)$var);
+T_HVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_CVREF
+	$arg = newRV((SV*)$var);
+T_CVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_IV
+	sv_setiv($arg, (IV)$var);
+T_UV
+	sv_setuv($arg, (UV)$var);
+T_INT
+	sv_setiv($arg, (IV)$var);
+T_SYSRET
+	if ($var != -1) {
+	    if ($var == 0)
+		sv_setpvn($arg, "0 but true", 10);
+	    else
+		sv_setiv($arg, (IV)$var);
+	}
+T_ENUM
+	sv_setiv($arg, (IV)$var);
+T_BOOL
+	${"$var" eq "RETVAL" ? \"$arg = boolSV($var);" : \"sv_setsv($arg, boolSV($var));"}
+T_U_INT
+	sv_setuv($arg, (UV)$var);
+T_SHORT
+	sv_setiv($arg, (IV)$var);
+T_U_SHORT
+	sv_setuv($arg, (UV)$var);
+T_LONG
+	sv_setiv($arg, (IV)$var);
+T_U_LONG
+	sv_setuv($arg, (UV)$var);
+T_CHAR
+	sv_setpvn($arg, (char *)&$var, 1);
+T_U_CHAR
+	sv_setuv($arg, (UV)$var);
+T_FLOAT
+	sv_setnv($arg, (double)$var);
+T_NV
+	sv_setnv($arg, (NV)$var);
+T_DOUBLE
+	sv_setnv($arg, (double)$var);
+T_PV
+	sv_setpv((SV*)$arg, $var);
+T_PTR
+	sv_setiv($arg, PTR2IV($var));
+T_PTRREF
+	sv_setref_pv($arg, Nullch, (void*)$var);
+T_REF_IV_REF
+	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
+T_REF_IV_PTR
+	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
+T_PTROBJ
+	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
+T_PTRDESC
+	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
+T_REFREF
+	NOT_IMPLEMENTED
+T_REFOBJ
+	NOT IMPLEMENTED
+T_OPAQUE
+	sv_setpvn($arg, (char *)&$var, sizeof($var));
+T_OPAQUEPTR
+	sv_setpvn($arg, (char *)$var, sizeof(*$var));
+T_PACKED
+	XS_pack_$ntype($arg, $var);
+T_PACKEDARRAY
+	XS_pack_$ntype($arg, $var, count_$ntype);
+T_ARRAY
+        {
+	    U32 ix_$var;
+            SSize_t extend_size =
+                /* The weird way this is written is because g++ is dumb
+                 * enough to warn "comparison is always false" on something
+                 * like:
+                 *
+                 * sizeof(a) > sizeof(b) && a > B_t_MAX
+                 *
+                 * (where the LH condition is false)
+                 */
+                (size_$var > (sizeof(size_$var) > sizeof(SSize_t)
+                              ? SSize_t_MAX : size_$var))
+                ? -1 : (SSize_t)size_$var;
+	    EXTEND(SP, extend_size);
+	    for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
+		ST(ix_$var) = sv_newmortal();
+	DO_ARRAY_ELEM
+	    }
+        }
+T_STDIO
+	{
+	    GV *gv = (GV *)sv_newmortal();
+	    PerlIO *fp = PerlIO_importFILE($var,0);
+	    gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
+	    if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_IN
+	{
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
+	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_INOUT
+	{
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
+	    if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_OUT
+	{
+	    GV *gv = (GV *)sv_newmortal();
+	    gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
+	    if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+package ExtUtils::MM_AIX;
+
+use strict;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use ExtUtils::MakeMaker::Config;
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+    return '' unless $self->needs_linking;
+    join "\n", $self->xs_dlsyms_iterator(\%attribs);
+}
+
+
+sub xs_dlsyms_ext {
+    '.exp';
+}
+
+sub xs_dlsyms_arg {
+    my($self, $file) = @_;
+    return qq{-bE:${file}};
+}
+
+sub init_others {
+    my $self = shift;
+    $self->SUPER::init_others;
+    # perl "hints" add -bE:$(BASEEXT).exp to LDDLFLAGS. strip that out
+    # so right value can be added by xs_make_dynamic_lib to work for XSMULTI
+    $self->{LDDLFLAGS} ||= $Config{lddlflags};
+    $self->{LDDLFLAGS} =~ s#(\s*)\S*\Q$(BASEEXT)\E\S*(\s*)#$1$2#;
+    return;
+}
+
+
+
+1;
+package ExtUtils::Constant;
+use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS);
+$VERSION = '0.25';
+
+
+if ($] >= 5.006) {
+  eval "use warnings; 1" or die $@;
+}
+use strict;
+use Carp qw(croak cluck);
+
+use Exporter;
+use ExtUtils::Constant::Utils qw(C_stringify);
+use ExtUtils::Constant::XS qw(%XS_Constant %XS_TypeSet);
+
+@ISA = 'Exporter';
+
+%EXPORT_TAGS = ( 'all' => [ qw(
+	XS_constant constant_types return_clause memEQ_clause C_stringify
+	C_constant autoload WriteConstants WriteMakefileSnippet
+) ] );
+
+@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+
+
+sub constant_types {
+  ExtUtils::Constant::XS->header();
+}
+
+sub memEQ_clause {
+  cluck "ExtUtils::Constant::memEQ_clause is deprecated";
+  ExtUtils::Constant::XS->memEQ_clause({name=>$_[0], checked_at=>$_[1],
+					indent=>$_[2]});
+}
+
+sub return_clause ($$) {
+  cluck "ExtUtils::Constant::return_clause is deprecated";
+  my $indent = shift;
+  ExtUtils::Constant::XS->return_clause({indent=>$indent}, @_);
+}
+
+sub switch_clause {
+  cluck "ExtUtils::Constant::switch_clause is deprecated";
+  my $indent = shift;
+  my $comment = shift;
+  ExtUtils::Constant::XS->switch_clause({indent=>$indent, comment=>$comment},
+					@_);
+}
+
+sub C_constant {
+  my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
+    = @_;
+  ExtUtils::Constant::XS->C_constant({package => $package, subname => $subname,
+				      default_type => $default_type,
+				      types => $what, indent => $indent,
+				      breakout => $breakout}, @items);
+}
+
+
+sub XS_constant {
+  my $package = shift;
+  my $what = shift;
+  my $XS_subname = shift;
+  my $C_subname = shift;
+  $XS_subname ||= 'constant';
+  $C_subname ||= $XS_subname;
+
+  if (!ref $what) {
+    # Convert line of the form IV,UV,NV to hash
+    $what = {map {$_ => 1} split /,\s*/, ($what)};
+  }
+  my $params = ExtUtils::Constant::XS->params ($what);
+  my $type;
+
+  my $xs = <<"EOT";
+void
+$XS_subname(sv)
+    PREINIT:
+#ifdef dXSTARG
+	dXSTARG; /* Faster if we have it.  */
+#else
+	dTARGET;
+#endif
+	STRLEN		len;
+        int		type;
+EOT
+
+  if ($params->{IV}) {
+    $xs .= "	IV		iv = 0; /* avoid uninit var warning */\n";
+  } else {
+    $xs .= "	/* IV\t\tiv;\tUncomment this if you need to return IVs */\n";
+  }
+  if ($params->{NV}) {
+    $xs .= "	NV		nv = 0.0; /* avoid uninit var warning */\n";
+  } else {
+    $xs .= "	/* NV\t\tnv;\tUncomment this if you need to return NVs */\n";
+  }
+  if ($params->{PV}) {
+    $xs .= "	const char	*pv = NULL; /* avoid uninit var warning */\n";
+  } else {
+    $xs .=
+      "	/* const char\t*pv;\tUncomment this if you need to return PVs */\n";
+  }
+
+  $xs .= << 'EOT';
+    INPUT:
+	SV *		sv;
+        const char *	s = SvPV(sv, len);
+EOT
+  if ($params->{''}) {
+  $xs .= << 'EOT';
+    INPUT:
+	int		utf8 = SvUTF8(sv);
+EOT
+  }
+  $xs .= << 'EOT';
+    PPCODE:
+EOT
+
+  if ($params->{IV} xor $params->{NV}) {
+    $xs .= << "EOT";
+        /* Change this to $C_subname(aTHX_ s, len, &iv, &nv);
+           if you need to return both NVs and IVs */
+EOT
+  }
+  $xs .= "	type = $C_subname(aTHX_ s, len";
+  $xs .= ', utf8' if $params->{''};
+  $xs .= ', &iv' if $params->{IV};
+  $xs .= ', &nv' if $params->{NV};
+  $xs .= ', &pv' if $params->{PV};
+  $xs .= ', &sv' if $params->{SV};
+  $xs .= ");\n";
+
+  # If anyone is insane enough to suggest a package name containing %
+  my $package_sprintf_safe = $package;
+  $package_sprintf_safe =~ s/%/%%/g;
+
+  $xs .= << "EOT";
+      /* Return 1 or 2 items. First is error message, or undef if no error.
+           Second, if present, is found value */
+        switch (type) {
+        case PERL_constant_NOTFOUND:
+          sv =
+	    sv_2mortal(newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
+          PUSHs(sv);
+          break;
+        case PERL_constant_NOTDEF:
+          sv = sv_2mortal(newSVpvf(
+	    "Your vendor has not defined $package_sprintf_safe macro %s, used",
+				   s));
+          PUSHs(sv);
+          break;
+EOT
+
+  foreach $type (sort keys %XS_Constant) {
+    # '' marks utf8 flag needed.
+    next if $type eq '';
+    $xs .= "\t/* Uncomment this if you need to return ${type}s\n"
+      unless $what->{$type};
+    $xs .= "        case PERL_constant_IS$type:\n";
+    if (length $XS_Constant{$type}) {
+      $xs .= << "EOT";
+          EXTEND(SP, 2);
+          PUSHs(&PL_sv_undef);
+          $XS_Constant{$type};
+EOT
+    } else {
+      # Do nothing. return (), which will be correctly interpreted as
+      # (undef, undef)
+    }
+    $xs .= "          break;\n";
+    unless ($what->{$type}) {
+      chop $xs; # Yes, another need for chop not chomp.
+      $xs .= " */\n";
+    }
+  }
+  $xs .= << "EOT";
+        default:
+          sv = sv_2mortal(newSVpvf(
+	    "Unexpected return type %d while processing $package_sprintf_safe macro %s, used",
+               type, s));
+          PUSHs(sv);
+        }
+EOT
+
+  return $xs;
+}
+
+
+
+# ' # Grr. syntax highlighters that don't grok pod.
+
+sub autoload {
+  my ($module, $compat_version, $autoloader) = @_;
+  $compat_version ||= $];
+  croak "Can't maintain compatibility back as far as version $compat_version"
+    if $compat_version < 5;
+  my $func = "sub AUTOLOAD {\n"
+  . "    # This AUTOLOAD is used to 'autoload' constants from the constant()\n"
+  . "    # XS function.";
+  $func .= "  If a constant is not found then control is passed\n"
+  . "    # to the AUTOLOAD in AutoLoader." if $autoloader;
+
+
+  $func .= "\n\n"
+  . "    my \$constname;\n";
+  $func .=
+    "    our \$AUTOLOAD;\n"  if ($compat_version >= 5.006);
+
+  $func .= <<"EOT";
+    (\$constname = \$AUTOLOAD) =~ s/.*:://;
+    croak "&${module}::constant not defined" if \$constname eq 'constant';
+    my (\$error, \$val) = constant(\$constname);
+EOT
+
+  if ($autoloader) {
+    $func .= <<'EOT';
+    if ($error) {
+	if ($error =~  /is not a valid/) {
+	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
+	    goto &AutoLoader::AUTOLOAD;
+	} else {
+	    croak $error;
+	}
+    }
+EOT
+  } else {
+    $func .=
+      "    if (\$error) { croak \$error; }\n";
+  }
+
+  $func .= <<'END';
+    {
+	no strict 'refs';
+	# Fixed between 5.005_53 and 5.005_61
+#XXX	if ($] >= 5.00561) {
+#XXX	    *$AUTOLOAD = sub () { $val };
+#XXX	}
+#XXX	else {
+	    *$AUTOLOAD = sub { $val };
+#XXX	}
+    }
+    goto &$AUTOLOAD;
+}
+
+END
+
+  return $func;
+}
+
+
+
+sub WriteMakefileSnippet {
+  my %args = @_;
+  my $indent = $args{INDENT} || 2;
+
+  my $result = <<"EOT";
+ExtUtils::Constant::WriteConstants(
+                                   NAME         => '$args{NAME}',
+                                   NAMES        => \\\@names,
+                                   DEFAULT_TYPE => '$args{DEFAULT_TYPE}',
+EOT
+  foreach (qw (C_FILE XS_FILE)) {
+    next unless exists $args{$_};
+    $result .= sprintf "                                   %-12s => '%s',\n",
+      $_, $args{$_};
+  }
+  $result .= <<'EOT';
+                                );
+EOT
+
+  $result =~ s/^/' 'x$indent/gem;
+  return ExtUtils::Constant::XS->dump_names({default_type=>$args{DEFAULT_TYPE},
+					     indent=>$indent,},
+					    @{$args{NAMES}})
+    . $result;
+}
+
+
+sub WriteConstants {
+  my %ARGS =
+    ( # defaults
+     C_FILE =>       'const-c.inc',
+     XS_FILE =>      'const-xs.inc',
+     XS_SUBNAME =>   'constant',
+     DEFAULT_TYPE => 'IV',
+     @_);
+
+  $ARGS{C_SUBNAME} ||= $ARGS{XS_SUBNAME}; # No-one sane will have C_SUBNAME eq '0'
+
+  croak "Module name not specified" unless length $ARGS{NAME};
+
+  # Do this before creating (empty) files, in case it fails:
+  require ExtUtils::Constant::ProxySubs if $ARGS{PROXYSUBS};
+
+  my $c_fh = $ARGS{C_FH};
+  if (!$c_fh) {
+      if ($] <= 5.008) {
+	  # We need these little games, rather than doing things
+	  # unconditionally, because we're used in core Makefile.PLs before
+	  # IO is available (needed by filehandle), but also we want to work on
+	  # older perls where undefined scalars do not automatically turn into
+	  # anonymous file handles.
+	  require FileHandle;
+	  $c_fh = FileHandle->new();
+      }
+      open $c_fh, ">$ARGS{C_FILE}" or die "Can't open $ARGS{C_FILE}: $!";
+  }
+
+  my $xs_fh = $ARGS{XS_FH};
+  if (!$xs_fh) {
+      if ($] <= 5.008) {
+	  require FileHandle;
+	  $xs_fh = FileHandle->new();
+      }
+      open $xs_fh, ">$ARGS{XS_FILE}" or die "Can't open $ARGS{XS_FILE}: $!";
+  }
+
+  # As this subroutine is intended to make code that isn't edited, there's no
+  # need for the user to specify any types that aren't found in the list of
+  # names.
+  
+  if ($ARGS{PROXYSUBS}) {
+      $ARGS{C_FH} = $c_fh;
+      $ARGS{XS_FH} = $xs_fh;
+      ExtUtils::Constant::ProxySubs->WriteConstants(%ARGS);
+  } else {
+      my $types = {};
+
+      print $c_fh constant_types(); # macro defs
+      print $c_fh "\n";
+
+      # indent is still undef. Until anyone implements indent style rules with
+      # it.
+      foreach (ExtUtils::Constant::XS->C_constant({package => $ARGS{NAME},
+						   subname => $ARGS{C_SUBNAME},
+						   default_type =>
+						       $ARGS{DEFAULT_TYPE},
+						       types => $types,
+						       breakout =>
+						       $ARGS{BREAKOUT_AT}},
+						  @{$ARGS{NAMES}})) {
+	  print $c_fh $_, "\n"; # C constant subs
+      }
+      print $xs_fh XS_constant ($ARGS{NAME}, $types, $ARGS{XS_SUBNAME},
+				$ARGS{C_SUBNAME});
+  }
+
+  close $c_fh or warn "Error closing $ARGS{C_FILE}: $!" unless $ARGS{C_FH};
+  close $xs_fh or warn "Error closing $ARGS{XS_FILE}: $!" unless $ARGS{XS_FH};
+}
+
+1;
+__END__
+
+package ExtUtils::MM_OS2;
+
+use strict;
+
+use ExtUtils::MakeMaker qw(neatvalue);
+use File::Spec;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Any ExtUtils::MM_Unix);
+
+
+sub init_dist {
+    my($self) = @_;
+
+    $self->{TO_UNIX} ||= <<'MAKE_TEXT';
+$(NOECHO) $(TEST_F) tmp.zip && $(RM_F) tmp.zip; $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM_F) tmp.zip
+MAKE_TEXT
+
+    $self->SUPER::init_dist;
+}
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+    if ($self->{IMPORTS} && %{$self->{IMPORTS}}) {
+	# Make import files (needed for static build)
+	-d 'tmp_imp' or mkdir 'tmp_imp', 0777 or die "Can't mkdir tmp_imp";
+	open my $imp, '>', 'tmpimp.imp' or die "Can't open tmpimp.imp";
+	foreach my $name (sort keys %{$self->{IMPORTS}}) {
+	    my $exp = $self->{IMPORTS}->{$name};
+	    my ($lib, $id) = ($exp =~ /(.*)\.(.*)/) or die "Malformed IMPORT `$exp'";
+	    print $imp "$name $lib $id ?\n";
+	}
+	close $imp or die "Can't close tmpimp.imp";
+	# print "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp\n";
+	system "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp"
+	    and die "Cannot make import library: $!, \$?=$?";
+	# May be running under miniperl, so have no glob...
+	eval { unlink <tmp_imp/*>; 1 } or system "rm tmp_imp/*";
+	system "cd tmp_imp; $Config::Config{ar} x ../tmpimp$Config::Config{lib_ext}"
+	    and die "Cannot extract import objects: $!, \$?=$?";
+    }
+    return '' if $self->{SKIPHASH}{'dynamic'};
+    $self->xs_dlsyms_iterator(\%attribs);
+}
+
+sub xs_dlsyms_ext {
+    '.def';
+}
+
+sub xs_dlsyms_extra {
+    join '', map { qq{, "$_" => "\$($_)"} } qw(VERSION DISTNAME INSTALLDIRS);
+}
+
+sub static_lib_pure_cmd {
+    my($self) = @_;
+    my $old = $self->SUPER::static_lib_pure_cmd;
+    return $old unless $self->{IMPORTS} && %{$self->{IMPORTS}};
+    $old . <<'EOC';
+	$(AR) $(AR_STATIC_ARGS) "$@" tmp_imp/*
+	$(RANLIB) "$@"
+EOC
+}
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man =~ s,/+,.,g;
+    $man;
+}
+
+sub maybe_command {
+    my($self,$file) = @_;
+    $file =~ s,[/\\]+,/,g;
+    return $file if -x $file && ! -d _;
+    return "$file.exe" if -x "$file.exe" && ! -d _;
+    return "$file.cmd" if -x "$file.cmd" && ! -d _;
+    return;
+}
+
+
+sub init_linker {
+    my $self = shift;
+
+    $self->{PERL_ARCHIVE} = "\$(PERL_INC)/libperl\$(LIB_EXT)";
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} = $OS2::is_aout
+      ? ''
+      : '$(PERL_INC)/libperl_override$(LIB_EXT)';
+    $self->{EXPORT_LIST} = '$(BASEEXT).def';
+}
+
+
+sub os_flavor {
+    return('OS/2');
+}
+
+
+sub xs_static_lib_is_xs {
+    return 1;
+}
+
+
+1;
+package ExtUtils::CBuilder;
+
+use File::Spec ();
+use File::Path ();
+use File::Basename ();
+use Perl::OSType qw/os_type/;
+
+use warnings;
+use strict;
+our $VERSION = '0.280230'; # VERSION
+our @ISA;
+
+# We only use this once - don't waste a symbol table entry on it.
+# More importantly, don't make it an inheritable method.
+my $load = sub {
+  my $mod = shift;
+  eval "use $mod";
+  die $@ if $@;
+  @ISA = ($mod);
+};
+
+{
+  my @package = split /::/, __PACKAGE__;
+
+  my $ostype = os_type();
+
+  if (grep {-e File::Spec->catfile($_, @package, 'Platform', $^O) . '.pm'} @INC) {
+      $load->(__PACKAGE__ . "::Platform::$^O");
+
+  } elsif ( $ostype &&
+            grep {-e File::Spec->catfile($_, @package, 'Platform', $ostype) . '.pm'} @INC) {
+      $load->(__PACKAGE__ . "::Platform::$ostype");
+
+  } else {
+      $load->(__PACKAGE__ . "::Base");
+  }
+}
+
+1;
+__END__
+
+package ExtUtils::Install;
+use strict;
+
+use Config qw(%Config);
+use Cwd qw(cwd);
+use Exporter ();
+use File::Basename qw(dirname);
+use File::Copy;
+use File::Path;
+use File::Spec;
+
+our @ISA = ('Exporter');
+our @EXPORT = ('install','uninstall','pm_to_blib', 'install_default');
+
+our $MUST_REBOOT;
+
+
+our $VERSION = '2.14';  # <-- do not forget to update the POD section just above this line!
+$VERSION = eval $VERSION;
+
+
+BEGIN {
+    *Is_VMS        = $^O eq 'VMS'     ? sub(){1} : sub(){0};
+    *Is_Win32      = $^O eq 'MSWin32' ? sub(){1} : sub(){0};
+    *Is_cygwin     = $^O eq 'cygwin'  ? sub(){1} : sub(){0};
+    *CanMoveAtBoot = ($^O eq 'MSWin32' || $^O eq 'cygwin') ? sub(){1} : sub(){0};
+}
+
+my $Inc_uninstall_warn_handler;
+
+# install relative to here
+
+my $INSTALL_ROOT = $ENV{PERL_INSTALL_ROOT};
+my $INSTALL_QUIET = $ENV{PERL_INSTALL_QUIET};
+$INSTALL_QUIET = 1
+  if (!exists $ENV{PERL_INSTALL_QUIET} and
+      defined $ENV{MAKEFLAGS} and
+      $ENV{MAKEFLAGS} =~ /\b(s|silent|quiet)\b/);
+
+my $Curdir = File::Spec->curdir;
+
+sub _estr(@) {
+    return join "\n",'!' x 72,@_,'!' x 72,'';
+}
+
+{my %warned;
+sub _warnonce(@) {
+    my $first=shift;
+    my $msg=_estr "WARNING: $first",@_;
+    warn $msg unless $warned{$msg}++;
+}}
+
+sub _choke(@) {
+    my $first=shift;
+    my $msg=_estr "ERROR: $first",@_;
+    require Carp;
+    Carp::croak($msg);
+}
+
+sub _croak {
+    require Carp;
+    Carp::croak(@_);
+}
+sub _confess {
+    require Carp;
+    Carp::confess(@_);
+}
+
+sub _compare {
+    require File::Compare;
+    File::Compare::compare(@_);
+}
+
+
+sub _chmod($$;$) {
+    my ( $mode, $item, $verbose )=@_;
+    $verbose ||= 0;
+    if (chmod $mode, $item) {
+        printf "chmod(0%o, %s)\n",$mode, $item if $verbose > 1;
+    } else {
+        my $err="$!";
+        _warnonce sprintf "WARNING: Failed chmod(0%o, %s): %s\n",
+                  $mode, $item, $err
+            if -e $item;
+    }
+}
+
+
+{
+    my $Has_Win32API_File;
+    sub _move_file_at_boot { #XXX OS-SPECIFIC
+        my ( $file, $target, $moan  )= @_;
+        _confess("Panic: Can't _move_file_at_boot on this platform!")
+             unless CanMoveAtBoot;
+
+        my $descr= ref $target
+                    ? "'$file' for deletion"
+                    : "'$file' for installation as '$target'";
+
+        # *note* CanMoveAtBoot is only incidentally the same condition as below
+        # this needs not hold true in the future.
+        $Has_Win32API_File = (Is_Win32 || Is_cygwin)
+            ? (eval {require Win32API::File; 1} || 0)
+            : 0 unless defined $Has_Win32API_File;
+        if ( ! $Has_Win32API_File ) {
+
+            my @msg=(
+                "Cannot schedule $descr at reboot.",
+                "Try installing Win32API::File to allow operations on locked files",
+                "to be scheduled during reboot. Or try to perform the operation by",
+                "hand yourself. (You may need to close other perl processes first)"
+            );
+            if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) }
+            return 0;
+        }
+        my $opts= Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT();
+        $opts= $opts | Win32API::File::MOVEFILE_REPLACE_EXISTING()
+            unless ref $target;
+
+        _chmod( 0666, $file );
+        _chmod( 0666, $target ) unless ref $target;
+
+        if (Win32API::File::MoveFileEx( $file, $target, $opts )) {
+            $MUST_REBOOT ||= ref $target ? 0 : 1;
+            return 1;
+        } else {
+            my @msg=(
+                "MoveFileEx $descr at reboot failed: $^E",
+                "You may try to perform the operation by hand yourself. ",
+                "(You may need to close other perl processes first).",
+            );
+            if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) }
+        }
+        return 0;
+    }
+}
+
+
+
+
+
+sub _unlink_or_rename { #XXX OS-SPECIFIC
+    my ( $file, $tryhard, $installing )= @_;
+
+    # this chmod was originally unconditional. However, its not needed on
+    # POSIXy systems since permission to unlink a file is specified by the
+    # directory rather than the file; and in fact it screwed up hard- and
+    # symlinked files. Keep it for other platforms in case its still
+    # needed there.
+    if ($^O =~ /^(dos|os2|MSWin32|VMS)$/) {
+        _chmod( 0666, $file );
+    }
+    my $unlink_count = 0;
+    while (unlink $file) { $unlink_count++; }
+    return $file if $unlink_count > 0;
+    my $error="$!";
+
+    _choke("Cannot unlink '$file': $!")
+          unless CanMoveAtBoot && $tryhard;
+
+    my $tmp= "AAA";
+    ++$tmp while -e "$file.$tmp";
+    $tmp= "$file.$tmp";
+
+    warn "WARNING: Unable to unlink '$file': $error\n",
+         "Going to try to rename it to '$tmp'.\n";
+
+    if ( rename $file, $tmp ) {
+        warn "Rename successful. Scheduling '$tmp'\nfor deletion at reboot.\n";
+        # when $installing we can set $moan to true.
+        # IOW, if we cant delete the renamed file at reboot its
+        # not the end of the world. The other cases are more serious
+        # and need to be fatal.
+        _move_file_at_boot( $tmp, [], $installing );
+        return $file;
+    } elsif ( $installing ) {
+        _warnonce("Rename failed: $!. Scheduling '$tmp'\nfor".
+             " installation as '$file' at reboot.\n");
+        _move_file_at_boot( $tmp, $file );
+        return $tmp;
+    } else {
+        _choke("Rename failed:$!", "Cannot proceed.");
+    }
+
+}
+
+
+
+
+
+sub _get_install_skip {
+    my ( $skip, $verbose )= @_;
+    if ($ENV{EU_INSTALL_IGNORE_SKIP}) {
+        print "EU_INSTALL_IGNORE_SKIP is set, ignore skipfile settings\n"
+            if $verbose>2;
+        return [];
+    }
+    if ( ! defined $skip ) {
+        print "Looking for install skip list\n"
+            if $verbose>2;
+        for my $file ( 'INSTALL.SKIP', $ENV{EU_INSTALL_SITE_SKIPFILE} ) {
+            next unless $file;
+            print "\tChecking for $file\n"
+                if $verbose>2;
+            if (-e $file) {
+                $skip= $file;
+                last;
+            }
+        }
+    }
+    if ($skip && !ref $skip) {
+        print "Reading skip patterns from '$skip'.\n"
+            if $verbose;
+        if (open my $fh,$skip ) {
+            my @patterns;
+            while (<$fh>) {
+                chomp;
+                next if /^\s*(?:#|$)/;
+                print "\tSkip pattern: $_\n" if $verbose>3;
+                push @patterns, $_;
+            }
+            $skip= \@patterns;
+        } else {
+            warn "Can't read skip file:'$skip':$!\n";
+            $skip=[];
+        }
+    } elsif ( UNIVERSAL::isa($skip,'ARRAY') ) {
+        print "Using array for skip list\n"
+            if $verbose>2;
+    } elsif ($verbose) {
+        print "No skip list found.\n"
+            if $verbose>1;
+        $skip= [];
+    }
+    warn "Got @{[0+@$skip]} skip patterns.\n"
+        if $verbose>3;
+    return $skip
+}
+
+
+{
+    my  $has_posix;
+    sub _have_write_access {
+        my $dir=shift;
+        unless (defined $has_posix) {
+            $has_posix = (!Is_cygwin && !Is_Win32
+             && eval { local $^W; require POSIX; 1} ) || 0;
+        }
+        if ($has_posix) {
+            return POSIX::access($dir, POSIX::W_OK());
+        } else {
+            return -w $dir;
+        }
+    }
+}
+
+
+
+sub _can_write_dir {
+    my $dir=shift;
+    return
+        unless defined $dir and length $dir;
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath($dir,1);
+    my @dirs = File::Spec->splitdir($dirs);
+    unshift @dirs, File::Spec->curdir
+        unless File::Spec->file_name_is_absolute($dir);
+
+    my $path='';
+    my @make;
+    while (@dirs) {
+        if (Is_VMS) {
+            $dir = File::Spec->catdir($vol,@dirs);
+        }
+        else {
+            $dir = File::Spec->catdir(@dirs);
+            $dir = File::Spec->catpath($vol,$dir,'')
+                    if defined $vol and length $vol;
+        }
+        next if ( $dir eq $path );
+        if ( ! -e $dir ) {
+            unshift @make,$dir;
+            next;
+        }
+        if ( _have_write_access($dir) ) {
+            return 1,$dir,@make
+        } else {
+            return 0,$dir,@make
+        }
+    } continue {
+        pop @dirs;
+    }
+    return 0;
+}
+
+
+sub _mkpath {
+    my ($dir,$show,$mode,$verbose,$dry_run)=@_;
+    if ( $verbose && $verbose > 1 && ! -d $dir) {
+        $show= 1;
+        printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode;
+    }
+    if (!$dry_run) {
+        if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) {
+            _choke("Can't create '$dir'","$@");
+        }
+
+    }
+    my ($can,$root,@make)=_can_write_dir($dir);
+    if (!$can) {
+        my @msg=(
+            "Can't create '$dir'",
+            $root ? "Do not have write permissions on '$root'"
+                  : "Unknown Error"
+        );
+        if ($dry_run) {
+            _warnonce @msg;
+        } else {
+            _choke @msg;
+        }
+    } elsif ($show and $dry_run) {
+        print "$_\n" for @make;
+    }
+
+}
+
+
+
+sub _copy {
+    my ( $from, $to, $verbose, $dry_run)=@_;
+    if ($verbose && $verbose>1) {
+        printf "copy(%s,%s)\n", $from, $to;
+    }
+    if (!$dry_run) {
+        File::Copy::copy($from,$to)
+            or _croak( _estr "ERROR: Cannot copy '$from' to '$to': $!" );
+    }
+}
+
+
+sub _chdir {
+    my ($dir)= @_;
+    my $ret;
+    if (defined wantarray) {
+        $ret= cwd;
+    }
+    chdir $dir
+        or _choke("Couldn't chdir to '$dir': $!");
+    return $ret;
+}
+
+
+sub install { #XXX OS-SPECIFIC
+    my($from_to,$verbose,$dry_run,$uninstall_shadows,$skip,$always_copy,$result) = @_;
+    if (@_==1 and eval { 1+@$from_to }) {
+        my %opts        = @$from_to;
+        $from_to        = $opts{from_to}
+                            or _confess("from_to is a mandatory parameter");
+        $verbose        = $opts{verbose};
+        $dry_run        = $opts{dry_run};
+        $uninstall_shadows  = $opts{uninstall_shadows};
+        $skip           = $opts{skip};
+        $always_copy    = $opts{always_copy};
+        $result         = $opts{result};
+    }
+
+    $result ||= {};
+    $verbose ||= 0;
+    $dry_run  ||= 0;
+
+    $skip= _get_install_skip($skip,$verbose);
+    $always_copy =  $ENV{EU_INSTALL_ALWAYS_COPY}
+                 || $ENV{EU_ALWAYS_COPY}
+                 || 0
+        unless defined $always_copy;
+
+    my(%from_to) = %$from_to;
+    my(%pack, $dir, %warned);
+    require ExtUtils::Packlist;
+    my($packlist) = ExtUtils::Packlist->new();
+
+    local(*DIR);
+    for (qw/read write/) {
+        $pack{$_}=$from_to{$_};
+        delete $from_to{$_};
+    }
+    my $tmpfile = install_rooted_file($pack{"read"});
+    $packlist->read($tmpfile) if (-f $tmpfile);
+    my $cwd = cwd();
+    my @found_files;
+    my %check_dirs;
+    require File::Find;
+
+    my $blib_lib  = File::Spec->catdir('blib', 'lib');
+    my $blib_arch = File::Spec->catdir('blib', 'arch');
+
+    # File::Find seems to always be Unixy except on MacPerl :(
+    my $current_directory = $^O eq 'MacOS' ? $Curdir : '.';
+
+    MOD_INSTALL: foreach my $source (sort keys %from_to) {
+        #copy the tree to the target directory without altering
+        #timestamp and permission and remember for the .packlist
+        #file. The packlist file contains the absolute paths of the
+        #install locations. AFS users may call this a bug. We'll have
+        #to reconsider how to add the means to satisfy AFS users also.
+
+        #October 1997: we want to install .pm files into archlib if
+        #there are any files in arch. So we depend on having ./blib/arch
+        #hardcoded here.
+
+        my $targetroot = install_rooted_dir($from_to{$source});
+
+        if ($source eq $blib_lib and
+            exists $from_to{$blib_arch} and
+            directory_not_empty($blib_arch)
+        ){
+            $targetroot = install_rooted_dir($from_to{$blib_arch});
+            print "Files found in $blib_arch: installing files in $blib_lib into architecture dependent library tree\n";
+        }
+
+        next unless -d $source;
+        _chdir($source);
+        # 5.5.3's File::Find missing no_chdir option
+        # XXX OS-SPECIFIC
+        File::Find::find(sub {
+            my ($mode,$size,$atime,$mtime) = (stat)[2,7,8,9];
+
+            return if !-f _;
+            my $origfile = $_;
+
+            return if $origfile eq ".exists";
+            my $targetdir  = File::Spec->catdir($targetroot, $File::Find::dir);
+            my $targetfile = File::Spec->catfile($targetdir, $origfile);
+            my $sourcedir  = File::Spec->catdir($source, $File::Find::dir);
+            my $sourcefile = File::Spec->catfile($sourcedir, $origfile);
+
+            for my $pat (@$skip) {
+                if ( $sourcefile=~/$pat/ ) {
+                    print "Skipping $targetfile (filtered)\n"
+                        if $verbose>1;
+                    $result->{install_filtered}{$sourcefile} = $pat;
+                    return;
+                }
+            }
+            # we have to do this for back compat with old File::Finds
+            # and because the target is relative
+            my $save_cwd = _chdir($cwd);
+            my $diff = 0;
+            # XXX: I wonder how useful this logic is actually -- demerphq
+            if ( $always_copy or !-f $targetfile or -s $targetfile != $size) {
+                $diff++;
+            } else {
+                # we might not need to copy this file
+                $diff = _compare($sourcefile, $targetfile);
+            }
+            $check_dirs{$targetdir}++
+                unless -w $targetfile;
+
+            push @found_files,
+                [ $diff, $File::Find::dir, $origfile,
+                  $mode, $size, $atime, $mtime,
+                  $targetdir, $targetfile, $sourcedir, $sourcefile,
+
+                ];
+            #restore the original directory we were in when File::Find
+            #called us so that it doesn't get horribly confused.
+            _chdir($save_cwd);
+        }, $current_directory );
+        _chdir($cwd);
+    }
+    foreach my $targetdir (sort keys %check_dirs) {
+        _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
+    }
+    foreach my $found (@found_files) {
+        my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime,
+            $targetdir, $targetfile, $sourcedir, $sourcefile)= @$found;
+
+        my $realtarget= $targetfile;
+        if ($diff) {
+            eval {
+                if (-f $targetfile) {
+                    print "_unlink_or_rename($targetfile)\n" if $verbose>1;
+                    $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' )
+                        unless $dry_run;
+                } elsif ( ! -d $targetdir ) {
+                    _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
+                }
+                print "Installing $targetfile\n";
+
+                _copy( $sourcefile, $targetfile, $verbose, $dry_run, );
+
+
+                #XXX OS-SPECIFIC
+                print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
+                utime($atime,$mtime + Is_VMS,$targetfile) unless $dry_run>1;
+
+
+                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+                $mode = $mode | 0222
+                    if $realtarget ne $targetfile;
+                _chmod( $mode, $targetfile, $verbose );
+                $result->{install}{$targetfile} = $sourcefile;
+                1
+            } or do {
+                $result->{install_fail}{$targetfile} = $sourcefile;
+                die $@;
+            };
+        } else {
+            $result->{install_unchanged}{$targetfile} = $sourcefile;
+            print "Skipping $targetfile (unchanged)\n" if $verbose;
+        }
+
+        if ( $uninstall_shadows ) {
+            inc_uninstall($sourcefile,$ffd, $verbose,
+                          $dry_run,
+                          $realtarget ne $targetfile ? $realtarget : "",
+                          $result);
+        }
+
+        # Record the full pathname.
+        $packlist->{$targetfile}++;
+    }
+
+    if ($pack{'write'}) {
+        $dir = install_rooted_dir(dirname($pack{'write'}));
+        _mkpath( $dir, 0, 0755, $verbose, $dry_run );
+        print "Writing $pack{'write'}\n" if $verbose;
+        $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run;
+    }
+
+    _do_cleanup($verbose);
+    return $result;
+}
+
+
+sub _do_cleanup {
+    my ($verbose) = @_;
+    if ($MUST_REBOOT) {
+        die _estr "Operation not completed! ",
+            "You must reboot to complete the installation.",
+            "Sorry.";
+    } elsif (defined $MUST_REBOOT & $verbose) {
+        warn _estr "Installation will be completed at the next reboot.\n",
+             "However it is not necessary to reboot immediately.\n";
+    }
+}
+
+
+
+sub install_rooted_file {
+    if (defined $INSTALL_ROOT) {
+        File::Spec->catfile($INSTALL_ROOT, $_[0]);
+    } else {
+        $_[0];
+    }
+}
+
+
+sub install_rooted_dir {
+    if (defined $INSTALL_ROOT) {
+        File::Spec->catdir($INSTALL_ROOT, $_[0]);
+    } else {
+        $_[0];
+    }
+}
+
+
+
+sub forceunlink {
+    my ( $file, $tryhard )= @_; #XXX OS-SPECIFIC
+    _unlink_or_rename( $file, $tryhard, not("installing") );
+}
+
+
+sub directory_not_empty ($) {
+  my($dir) = @_;
+  my $files = 0;
+  require File::Find;
+  File::Find::find(sub {
+           return if $_ eq ".exists";
+           if (-f) {
+             $File::Find::prune++;
+             $files = 1;
+           }
+       }, $dir);
+  return $files;
+}
+
+
+sub install_default {
+  @_ < 2 or _croak("install_default should be called with 0 or 1 argument");
+  my $FULLEXT = @_ ? shift : $ARGV[0];
+  defined $FULLEXT or die "Do not know to where to write install log";
+  my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib");
+  my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch");
+  my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin');
+  my $INST_SCRIPT = File::Spec->catdir($Curdir,'blib','script');
+  my $INST_MAN1DIR = File::Spec->catdir($Curdir,'blib','man1');
+  my $INST_MAN3DIR = File::Spec->catdir($Curdir,'blib','man3');
+
+  my @INST_HTML;
+  if($Config{installhtmldir}) {
+      my $INST_HTMLDIR = File::Spec->catdir($Curdir,'blib','html');
+      @INST_HTML = ($INST_HTMLDIR => $Config{installhtmldir});
+  }
+
+  install({
+           read => "$Config{sitearchexp}/auto/$FULLEXT/.packlist",
+           write => "$Config{installsitearch}/auto/$FULLEXT/.packlist",
+           $INST_LIB => (directory_not_empty($INST_ARCHLIB)) ?
+                         $Config{installsitearch} :
+                         $Config{installsitelib},
+           $INST_ARCHLIB => $Config{installsitearch},
+           $INST_BIN => $Config{installbin} ,
+           $INST_SCRIPT => $Config{installscript},
+           $INST_MAN1DIR => $Config{installman1dir},
+           $INST_MAN3DIR => $Config{installman3dir},
+       @INST_HTML,
+          },1,0,0);
+}
+
+
+
+sub uninstall {
+    my($fil,$verbose,$dry_run) = @_;
+    $verbose ||= 0;
+    $dry_run  ||= 0;
+
+    die _estr "ERROR: no packlist file found: '$fil'"
+        unless -f $fil;
+    # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
+    # require $my_req; # Hairy, but for the first
+    require ExtUtils::Packlist;
+    my ($packlist) = ExtUtils::Packlist->new($fil);
+    foreach (sort(keys(%$packlist))) {
+        chomp;
+        print "unlink $_\n" if $verbose;
+        forceunlink($_,'tryhard') unless $dry_run;
+    }
+    print "unlink $fil\n" if $verbose;
+    forceunlink($fil, 'tryhard') unless $dry_run;
+    _do_cleanup($verbose);
+}
+
+
+sub inc_uninstall {
+    my($filepath,$libdir,$verbose,$dry_run,$ignore,$results) = @_;
+    my($dir);
+    $ignore||="";
+    my $file = (File::Spec->splitpath($filepath))[2];
+    my %seen_dir = ();
+
+    my @PERL_ENV_LIB = split $Config{path_sep}, defined $ENV{'PERL5LIB'}
+      ? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'} || '';
+
+    my @dirs=( @PERL_ENV_LIB,
+               @INC,
+               @Config{qw(archlibexp
+                          privlibexp
+                          sitearchexp
+                          sitelibexp)});
+
+    #warn join "\n","---",@dirs,"---";
+    my $seen_ours;
+    foreach $dir ( @dirs ) {
+        my $canonpath = Is_VMS ? $dir : File::Spec->canonpath($dir);
+        next if $canonpath eq $Curdir;
+        next if $seen_dir{$canonpath}++;
+        my $targetfile = File::Spec->catfile($canonpath,$libdir,$file);
+        next unless -f $targetfile;
+
+        # The reason why we compare file's contents is, that we cannot
+        # know, which is the file we just installed (AFS). So we leave
+        # an identical file in place
+        my $diff = 0;
+        if ( -f $targetfile && -s _ == -s $filepath) {
+            # We have a good chance, we can skip this one
+            $diff = _compare($filepath,$targetfile);
+        } else {
+            $diff++;
+        }
+        print "#$file and $targetfile differ\n" if $diff && $verbose > 1;
+
+        if (!$diff or $targetfile eq $ignore) {
+            $seen_ours = 1;
+            next;
+        }
+        if ($dry_run) {
+            $results->{uninstall}{$targetfile} = $filepath;
+            if ($verbose) {
+                $Inc_uninstall_warn_handler ||= ExtUtils::Install::Warn->new();
+                $libdir =~ s|^\./||s ; # That's just cosmetics, no need to port. It looks prettier.
+                $Inc_uninstall_warn_handler->add(
+                                     File::Spec->catfile($libdir, $file),
+                                     $targetfile
+                                    );
+            }
+            # if not verbose, we just say nothing
+        } else {
+            print "Unlinking $targetfile (shadowing?)\n" if $verbose;
+            eval {
+                die "Fake die for testing"
+                    if $ExtUtils::Install::Testing and
+                       ucase(File::Spec->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile);
+                forceunlink($targetfile,'tryhard');
+                $results->{uninstall}{$targetfile} = $filepath;
+                1;
+            } or do {
+                $results->{fail_uninstall}{$targetfile} = $filepath;
+                if ($seen_ours) {
+                    warn "Failed to remove probably harmless shadow file '$targetfile'\n";
+                } else {
+                    die "$@\n";
+                }
+            };
+        }
+    }
+}
+
+
+sub run_filter {
+    my ($cmd, $src, $dest) = @_;
+    local(*CMD, *SRC);
+    open(CMD, "|$cmd >$dest") || die "Cannot fork: $!";
+    open(SRC, $src)           || die "Cannot open $src: $!";
+    my $buf;
+    my $sz = 1024;
+    while (my $len = sysread(SRC, $buf, $sz)) {
+        syswrite(CMD, $buf, $len);
+    }
+    close SRC;
+    close CMD or die "Filter command '$cmd' failed for $src";
+}
+
+
+sub pm_to_blib {
+    my($fromto,$autodir,$pm_filter) = @_;
+
+    _mkpath($autodir,0,0755) if defined $autodir;
+    while(my($from, $to) = each %$fromto) {
+        if( -f $to && -s $from == -s $to && -M $to < -M $from ) {
+            print "Skip $to (unchanged)\n" unless $INSTALL_QUIET;
+            next;
+        }
+
+        # When a pm_filter is defined, we need to pre-process the source first
+        # to determine whether it has changed or not.  Therefore, only perform
+        # the comparison check when there's no filter to be ran.
+        #    -- RAM, 03/01/2001
+
+        my $need_filtering = defined $pm_filter && length $pm_filter &&
+                             $from =~ /\.pm$/;
+
+        if (!$need_filtering && 0 == _compare($from,$to)) {
+            print "Skip $to (unchanged)\n" unless $INSTALL_QUIET;
+            next;
+        }
+        if (-f $to){
+            # we wont try hard here. its too likely to mess things up.
+            forceunlink($to);
+        } else {
+            _mkpath(dirname($to),0,0755);
+        }
+        if ($need_filtering) {
+            run_filter($pm_filter, $from, $to);
+            print "$pm_filter <$from >$to\n";
+        } else {
+            _copy( $from, $to );
+            print "cp $from $to\n" unless $INSTALL_QUIET;
+        }
+        my($mode,$atime,$mtime) = (stat $from)[2,8,9];
+        utime($atime,$mtime+Is_VMS,$to);
+        _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
+        next unless $from =~ /\.pm$/;
+        _autosplit($to,$autodir) if defined $autodir;
+    }
+}
+
+
+
+sub _autosplit { #XXX OS-SPECIFIC
+    require AutoSplit;
+    my $retval = AutoSplit::autosplit(@_);
+    close *AutoSplit::IN if defined *AutoSplit::IN{IO};
+
+    return $retval;
+}
+
+
+package ExtUtils::Install::Warn;
+
+sub new { bless {}, shift }
+
+sub add {
+    my($self,$file,$targetfile) = @_;
+    push @{$self->{$file}}, $targetfile;
+}
+
+sub DESTROY {
+    unless(defined $INSTALL_ROOT) {
+        my $self = shift;
+        my($file,$i,$plural);
+        foreach $file (sort keys %$self) {
+            $plural = @{$self->{$file}} > 1 ? "s" : "";
+            print "## Differing version$plural of $file found. You might like to\n";
+            for (0..$#{$self->{$file}}) {
+                print "rm ", $self->{$file}[$_], "\n";
+                $i++;
+            }
+        }
+        $plural = $i>1 ? "all those files" : "this file";
+        my $inst = (_invokant() eq 'ExtUtils::MakeMaker')
+                 ? ( $Config::Config{make} || 'make' ).' install'
+                     . ( ExtUtils::Install::Is_VMS ? '/MACRO="UNINST"=1' : ' UNINST=1' )
+                 : './Build install uninst=1';
+        print "## Running '$inst' will unlink $plural for you.\n";
+    }
+}
+
+
+sub _invokant {
+    my @stack;
+    my $frame = 0;
+    while (my $file = (caller($frame++))[1]) {
+        push @stack, (File::Spec->splitpath($file))[2];
+    }
+
+    my $builder;
+    my $top = pop @stack;
+    if ($top =~ /^Build/i || exists($INC{'Module/Build.pm'})) {
+        $builder = 'Module::Build';
+    } else {
+        $builder = 'ExtUtils::MakeMaker';
+    }
+    return $builder;
+}
+
+
+1;
+package ExtUtils::MM_Cygwin;
+
+use strict;
+
+use ExtUtils::MakeMaker::Config;
+use File::Spec;
+
+require ExtUtils::MM_Unix;
+require ExtUtils::MM_Win32;
+our @ISA = qw( ExtUtils::MM_Unix );
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+
+
+sub os_flavor {
+    return('Unix', 'Cygwin');
+}
+
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my $base = $self->SUPER::cflags($libperl);
+    foreach (split /\n/, $base) {
+        /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
+    };
+    $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true');
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+
+}
+
+
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+    $man =~ s{/+}{.}g;
+    return $man;
+}
+
+
+sub init_linker {
+    my $self = shift;
+
+    if ($Config{useshrplib} eq 'true') {
+        my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}";
+        if( $] >= 5.006002 ) {
+            $libperl =~ s/(dll\.)?a$/dll.a/;
+        }
+        $self->{PERL_ARCHIVE} = $libperl;
+    } else {
+        $self->{PERL_ARCHIVE} =
+          '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
+    }
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+
+sub maybe_command {
+    my ($self, $file) = @_;
+
+    my $cygpath = Cygwin::posix_to_win_path('/', 1);
+    my $filepath = Cygwin::posix_to_win_path($file, 1);
+
+    return (substr($filepath,0,length($cygpath)) eq $cygpath)
+    ? $self->SUPER::maybe_command($file) # Unix
+    : ExtUtils::MM_Win32->maybe_command($file); # Win32
+}
+
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    my $s = ExtUtils::MM_Unix::dynamic_lib($self, %attribs);
+    return '' unless $s;
+    return $s unless %{$self->{XS}};
+
+    # do an ephemeral rebase so the new DLL fits to the current rebase map
+    $s .= "\t/bin/find \$\(INST_ARCHLIB\)/auto -xdev -name \\*.$self->{DLEXT} | /bin/rebase -sOT -" if (( $Config{myarchname} eq 'i686-cygwin' ) and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} ));
+    $s;
+}
+
+
+sub install {
+    my($self, %attribs) = @_;
+    my $s = ExtUtils::MM_Unix::install($self, %attribs);
+    return '' unless $s;
+    return $s unless %{$self->{XS}};
+
+    my $INSTALLDIRS = $self->{INSTALLDIRS};
+    my $INSTALLLIB = $self->{"INSTALL". ($INSTALLDIRS eq 'perl' ? 'ARCHLIB' : uc($INSTALLDIRS)."ARCH")};
+    my $dop = "\$\(DESTDIR\)$INSTALLLIB/auto/";
+    my $dll = "$dop/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}";
+    $s =~ s|^(pure_install :: pure_\$\(INSTALLDIRS\)_install\n\t)\$\(NOECHO\) \$\(NOOP\)\n|$1\$(CHMOD) \$(PERM_RWX) $dll\n\t/bin/find $dop -xdev -name \\*.$self->{DLEXT} \| /bin/rebase -sOT -\n|m if (( $Config{myarchname} eq 'i686-cygwin') and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} ));
+    $s;
+}
+
+
+sub all_target {
+    ExtUtils::MM_Unix::all_target(shift);
+}
+
+
+1;
+package ExtUtils::MM_BeOS;
+
+use strict;
+
+
+use ExtUtils::MakeMaker::Config;
+use File::Spec;
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+
+
+sub os_flavor {
+    return('BeOS');
+}
+
+
+sub init_linker {
+    my($self) = shift;
+
+    $self->{PERL_ARCHIVE} ||=
+      File::Spec->catdir('$(PERL_INC)',$Config{libperl});
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+package ExtUtils::Packlist;
+
+use 5.00503;
+use strict;
+use Carp qw();
+use Config;
+use vars qw($VERSION $Relocations);
+$VERSION = '2.14';
+$VERSION = eval $VERSION;
+
+# Used for generating filehandle globs.  IO::File might not be available!
+my $fhname = "FH1";
+
+
+sub mkfh()
+{
+no strict;
+local $^W;
+my $fh = \*{$fhname++};
+use strict;
+return($fh);
+}
+
+
+sub __find_relocations
+{
+    my %paths;
+    while (my ($raw_key, $raw_val) = each %Config) {
+	my $exp_key = $raw_key . "exp";
+	next unless exists $Config{$exp_key};
+	next unless $raw_val =~ m!\.\.\./!;
+	$paths{$Config{$exp_key}}++;
+    }
+    # Longest prefixes go first in the alternatives
+    my $alternations = join "|", map {quotemeta $_}
+    sort {length $b <=> length $a} keys %paths;
+    qr/^($alternations)/o;
+}
+
+sub new($$)
+{
+my ($class, $packfile) = @_;
+$class = ref($class) || $class;
+my %self;
+tie(%self, $class, $packfile);
+return(bless(\%self, $class));
+}
+
+sub TIEHASH
+{
+my ($class, $packfile) = @_;
+my $self = { packfile => $packfile };
+bless($self, $class);
+$self->read($packfile) if (defined($packfile) && -f $packfile);
+return($self);
+}
+
+sub STORE
+{
+$_[0]->{data}->{$_[1]} = $_[2];
+}
+
+sub FETCH
+{
+return($_[0]->{data}->{$_[1]});
+}
+
+sub FIRSTKEY
+{
+my $reset = scalar(keys(%{$_[0]->{data}}));
+return(each(%{$_[0]->{data}}));
+}
+
+sub NEXTKEY
+{
+return(each(%{$_[0]->{data}}));
+}
+
+sub EXISTS
+{
+return(exists($_[0]->{data}->{$_[1]}));
+}
+
+sub DELETE
+{
+return(delete($_[0]->{data}->{$_[1]}));
+}
+
+sub CLEAR
+{
+%{$_[0]->{data}} = ();
+}
+
+sub DESTROY
+{
+}
+
+sub read($;$)
+{
+my ($self, $packfile) = @_;
+$self = tied(%$self) || $self;
+
+if (defined($packfile)) { $self->{packfile} = $packfile; }
+else { $packfile = $self->{packfile}; }
+Carp::croak("No packlist filename specified") if (! defined($packfile));
+my $fh = mkfh();
+open($fh, "<$packfile") || Carp::croak("Can't open file $packfile: $!");
+$self->{data} = {};
+my ($line);
+while (defined($line = <$fh>))
+   {
+   chomp $line;
+   my ($key, $data) = $line;
+   if ($key =~ /^(.*?)( \w+=.*)$/)
+      {
+      $key = $1;
+      $data = { map { split('=', $_) } split(' ', $2)};
+
+      if ($Config{userelocatableinc} && $data->{relocate_as})
+      {
+	  require File::Spec;
+	  require Cwd;
+	  my ($vol, $dir) = File::Spec->splitpath($packfile);
+	  my $newpath = File::Spec->catpath($vol, $dir, $data->{relocate_as});
+	  $key = Cwd::realpath($newpath);
+      }
+         }
+   $key =~ s!/\./!/!g;   # Some .packlists have spurious '/./' bits in the paths
+      $self->{data}->{$key} = $data;
+      }
+close($fh);
+}
+
+sub write($;$)
+{
+my ($self, $packfile) = @_;
+$self = tied(%$self) || $self;
+if (defined($packfile)) { $self->{packfile} = $packfile; }
+else { $packfile = $self->{packfile}; }
+Carp::croak("No packlist filename specified") if (! defined($packfile));
+my $fh = mkfh();
+open($fh, ">$packfile") || Carp::croak("Can't open file $packfile: $!");
+foreach my $key (sort(keys(%{$self->{data}})))
+   {
+       my $data = $self->{data}->{$key};
+       if ($Config{userelocatableinc}) {
+	   $Relocations ||= __find_relocations();
+	   if ($packfile =~ $Relocations) {
+	       # We are writing into a subdirectory of a run-time relocated
+	       # path. Figure out if the this file is also within a subdir.
+	       my $prefix = $1;
+	       if (File::Spec->no_upwards(File::Spec->abs2rel($key, $prefix)))
+	       {
+		   # The relocated path is within the found prefix
+		   my $packfile_prefix;
+		   (undef, $packfile_prefix)
+		       = File::Spec->splitpath($packfile);
+
+		   my $relocate_as
+		       = File::Spec->abs2rel($key, $packfile_prefix);
+
+		   if (!ref $data) {
+		       $data = {};
+		   }
+		   $data->{relocate_as} = $relocate_as;
+	       }
+	   }
+       }
+   print $fh ("$key");
+   if (ref($data))
+      {
+      foreach my $k (sort(keys(%$data)))
+         {
+         print $fh (" $k=$data->{$k}");
+         }
+      }
+   print $fh ("\n");
+   }
+close($fh);
+}
+
+sub validate($;$)
+{
+my ($self, $remove) = @_;
+$self = tied(%$self) || $self;
+my @missing;
+foreach my $key (sort(keys(%{$self->{data}})))
+   {
+   if (! -e $key)
+      {
+      push(@missing, $key);
+      delete($self->{data}{$key}) if ($remove);
+      }
+   }
+return(@missing);
+}
+
+sub packlist_file($)
+{
+my ($self) = @_;
+$self = tied(%$self) || $self;
+return($self->{packfile});
+}
+
+1;
+
+__END__
+
+package ExtUtils::MY;
+
+use strict;
+require ExtUtils::MM;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+our @ISA = qw(ExtUtils::MM);
+
+{
+    package MY;
+    our @ISA = qw(ExtUtils::MY);
+}
+
+sub DESTROY {}
+
+
+package ExtUtils::Typemaps;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.38';
+
+require ExtUtils::ParseXS;
+require ExtUtils::ParseXS::Constants;
+require ExtUtils::Typemaps::InputMap;
+require ExtUtils::Typemaps::OutputMap;
+require ExtUtils::Typemaps::Type;
+
+
+
+sub new {
+  my $class = shift;
+  my %args = @_;
+
+  if (defined $args{file} and defined $args{string}) {
+    die("Cannot handle both 'file' and 'string' arguments to constructor");
+  }
+
+  my $self = bless {
+    file            => undef,
+    %args,
+    typemap_section => [],
+    typemap_lookup  => {},
+    input_section   => [],
+    input_lookup    => {},
+    output_section  => [],
+    output_lookup   => {},
+  } => $class;
+
+  $self->_init();
+
+  return $self;
+}
+
+sub _init {
+  my $self = shift;
+  if (defined $self->{string}) {
+    $self->_parse(\($self->{string}), $self->{lineno_offset}, $self->{fake_filename});
+    delete $self->{string};
+  }
+  elsif (defined $self->{file} and -e $self->{file}) {
+    open my $fh, '<', $self->{file}
+      or die "Cannot open typemap file '"
+             . $self->{file} . "' for reading: $!";
+    local $/ = undef;
+    my $string = <$fh>;
+    $self->_parse(\$string, $self->{lineno_offset}, $self->{file});
+  }
+}
+
+
+
+sub file {
+  $_[0]->{file} = $_[1] if @_ > 1;
+  $_[0]->{file}
+}
+
+
+sub add_typemap {
+  my $self = shift;
+  my $type;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $type = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $ctype = $args{ctype};
+    die("Need ctype argument") if not defined $ctype;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+
+    $type = ExtUtils::Typemaps::Type->new(
+      xstype      => $xstype,
+      'prototype' => $args{'prototype'},
+      ctype       => $ctype,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_typemap(ctype => $type->ctype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{typemap_lookup}{$type->ctype};
+  }
+  else {
+    $self->validate(typemap_xstype => $type->xstype, ctype => $type->ctype);
+  }
+
+  # store
+  push @{$self->{typemap_section}}, $type;
+  # remember type for lookup, too.
+  $self->{typemap_lookup}{$type->tidy_ctype} = $#{$self->{typemap_section}};
+
+  return 1;
+}
+
+
+sub add_inputmap {
+  my $self = shift;
+  my $input;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $input = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+    my $code = $args{code};
+    die("Need code argument") if not defined $code;
+
+    $input = ExtUtils::Typemaps::InputMap->new(
+      xstype => $xstype,
+      code   => $code,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_inputmap(xstype => $input->xstype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{input_lookup}{$input->xstype};
+  }
+  else {
+    $self->validate(inputmap_xstype => $input->xstype);
+  }
+
+  # store
+  push @{$self->{input_section}}, $input;
+  # remember type for lookup, too.
+  $self->{input_lookup}{$input->xstype} = $#{$self->{input_section}};
+
+  return 1;
+}
+
+
+sub add_outputmap {
+  my $self = shift;
+  my $output;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $output = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+    my $code = $args{code};
+    die("Need code argument") if not defined $code;
+
+    $output = ExtUtils::Typemaps::OutputMap->new(
+      xstype => $xstype,
+      code   => $code,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_outputmap(xstype => $output->xstype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{output_lookup}{$output->xstype};
+  }
+  else {
+    $self->validate(outputmap_xstype => $output->xstype);
+  }
+
+  # store
+  push @{$self->{output_section}}, $output;
+  # remember type for lookup, too.
+  $self->{output_lookup}{$output->xstype} = $#{$self->{output_section}};
+
+  return 1;
+}
+
+
+sub add_string {
+  my $self = shift;
+  my %args = @_;
+  die("Need 'string' argument") if not defined $args{string};
+
+  # no, this is not elegant.
+  my $other = ExtUtils::Typemaps->new(string => $args{string});
+  $self->merge(typemap => $other);
+}
+
+
+sub remove_typemap {
+  my $self = shift;
+  my $ctype;
+  if (@_ > 1) {
+    my %args = @_;
+    $ctype = $args{ctype};
+    die("Need ctype argument") if not defined $ctype;
+    $ctype = tidy_type($ctype);
+  }
+  else {
+    $ctype = $_[0]->tidy_ctype;
+  }
+
+  return $self->_remove($ctype, $self->{typemap_section}, $self->{typemap_lookup});
+}
+
+
+sub remove_inputmap {
+  my $self = shift;
+  my $xstype;
+  if (@_ > 1) {
+    my %args = @_;
+    $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+  }
+  else {
+    $xstype = $_[0]->xstype;
+  }
+  
+  return $self->_remove($xstype, $self->{input_section}, $self->{input_lookup});
+}
+
+
+sub remove_outputmap {
+  my $self = shift;
+  my $xstype;
+  if (@_ > 1) {
+    my %args = @_;
+    $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+  }
+  else {
+    $xstype = $_[0]->xstype;
+  }
+  
+  return $self->_remove($xstype, $self->{output_section}, $self->{output_lookup});
+}
+
+sub _remove {
+  my $self   = shift;
+  my $rm     = shift;
+  my $array  = shift;
+  my $lookup = shift;
+
+  # Just fetch the index of the item from the lookup table
+  my $index = $lookup->{$rm};
+  return() if not defined $index;
+
+  # Nuke the item from storage
+  splice(@$array, $index, 1);
+
+  # Decrement the storage position of all items thereafter
+  foreach my $key (keys %$lookup) {
+    if ($lookup->{$key} > $index) {
+      $lookup->{$key}--;
+    }
+  }
+  return();
+}
+
+
+sub get_typemap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $ctype = $args{ctype};
+  die("Need ctype argument") if not defined $ctype;
+  $ctype = tidy_type($ctype);
+
+  my $index = $self->{typemap_lookup}{$ctype};
+  return() if not defined $index;
+  return $self->{typemap_section}[$index];
+}
+
+
+sub get_inputmap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $xstype = $args{xstype};
+  my $ctype  = $args{ctype};
+  die("Need xstype or ctype argument")
+    if not defined $xstype
+    and not defined $ctype;
+  die("Need xstype OR ctype arguments, not both")
+    if defined $xstype and defined $ctype;
+
+  if (defined $ctype) {
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
+  }
+
+  my $index = $self->{input_lookup}{$xstype};
+  return() if not defined $index;
+  return $self->{input_section}[$index];
+}
+
+
+sub get_outputmap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $xstype = $args{xstype};
+  my $ctype  = $args{ctype};
+  die("Need xstype or ctype argument")
+    if not defined $xstype
+    and not defined $ctype;
+  die("Need xstype OR ctype arguments, not both")
+    if defined $xstype and defined $ctype;
+
+  if (defined $ctype) {
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
+  }
+
+  my $index = $self->{output_lookup}{$xstype};
+  return() if not defined $index;
+  return $self->{output_section}[$index];
+}
+
+
+sub write {
+  my $self = shift;
+  my %args = @_;
+  my $file = defined $args{file} ? $args{file} : $self->file();
+  die("write() needs a file argument (or set the file name of the typemap using the 'file' method)")
+    if not defined $file;
+
+  open my $fh, '>', $file
+    or die "Cannot open typemap file '$file' for writing: $!";
+  print $fh $self->as_string();
+  close $fh;
+}
+
+
+sub as_string {
+  my $self = shift;
+  my $typemap = $self->{typemap_section};
+  my @code;
+  push @code, "TYPEMAP\n";
+  foreach my $entry (@$typemap) {
+    # type kind proto
+    # /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o
+    push @code, $entry->ctype . "\t" . $entry->xstype
+              . ($entry->proto ne '' ? "\t".$entry->proto : '') . "\n";
+  }
+
+  my $input = $self->{input_section};
+  if (@$input) {
+    push @code, "\nINPUT\n";
+    foreach my $entry (@$input) {
+      push @code, $entry->xstype, "\n", $entry->code, "\n";
+    }
+  }
+
+  my $output = $self->{output_section};
+  if (@$output) {
+    push @code, "\nOUTPUT\n";
+    foreach my $entry (@$output) {
+      push @code, $entry->xstype, "\n", $entry->code, "\n";
+    }
+  }
+  return join '', @code;
+}
+
+
+sub as_embedded_typemap {
+  my $self = shift;
+  my $string = $self->as_string;
+
+  my @ident_cand = qw(END_TYPEMAP END_OF_TYPEMAP END);
+  my $icand = 0;
+  my $cand_suffix = "";
+  while ($string =~ /^\Q$ident_cand[$icand]$cand_suffix\E\s*$/m) {
+    $icand++;
+    if ($icand == @ident_cand) {
+      $icand = 0;
+      ++$cand_suffix;
+    }
+  }
+
+  my $marker = "$ident_cand[$icand]$cand_suffix";
+  return "TYPEMAP: <<$marker;\n$string\n$marker\n";
+}
+
+
+sub merge {
+  my $self = shift;
+  my %args = @_;
+
+  if (exists $args{typemap} and exists $args{file}) {
+    die("Need {file} OR {typemap} argument. Not both!");
+  }
+  elsif (not exists $args{typemap} and not exists $args{file}) {
+    die("Need {file} or {typemap} argument!");
+  }
+
+  my @params;
+  push @params, 'replace' => $args{replace} if exists $args{replace};
+  push @params, 'skip' => $args{skip} if exists $args{skip};
+
+  my $typemap = $args{typemap};
+  if (not defined $typemap) {
+    $typemap = ref($self)->new(file => $args{file}, @params);
+  }
+
+  # FIXME breaking encapsulation. Add accessor code.
+  foreach my $entry (@{$typemap->{typemap_section}}) {
+    $self->add_typemap( $entry, @params );
+  }
+
+  foreach my $entry (@{$typemap->{input_section}}) {
+    $self->add_inputmap( $entry, @params );
+  }
+
+  foreach my $entry (@{$typemap->{output_section}}) {
+    $self->add_outputmap( $entry, @params );
+  }
+
+  return 1;
+}
+
+
+sub is_empty {
+  my $self = shift;
+
+  return @{ $self->{typemap_section} } == 0
+      && @{ $self->{input_section} } == 0
+      && @{ $self->{output_section} } == 0;
+}
+
+
+sub list_mapped_ctypes {
+  my $self = shift;
+  return sort keys %{ $self->{typemap_lookup} };
+}
+
+
+sub _get_typemap_hash {
+  my $self = shift;
+  my $lookup  = $self->{typemap_lookup};
+  my $storage = $self->{typemap_section};
+
+  my %rv;
+  foreach my $ctype (keys %$lookup) {
+    $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->xstype;
+  }
+
+  return \%rv;
+}
+
+
+sub _get_inputmap_hash {
+  my $self = shift;
+  my $lookup  = $self->{input_lookup};
+  my $storage = $self->{input_section};
+
+  my %rv;
+  foreach my $xstype (keys %$lookup) {
+    $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code;
+
+    # Squash trailing whitespace to one line break
+    # This isn't strictly necessary, but makes the output more similar
+    # to the original ExtUtils::ParseXS.
+    $rv{$xstype} =~ s/\s*\z/\n/;
+  }
+
+  return \%rv;
+}
+
+
+
+sub _get_outputmap_hash {
+  my $self = shift;
+  my $lookup  = $self->{output_lookup};
+  my $storage = $self->{output_section};
+
+  my %rv;
+  foreach my $xstype (keys %$lookup) {
+    $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code;
+
+    # Squash trailing whitespace to one line break
+    # This isn't strictly necessary, but makes the output more similar
+    # to the original ExtUtils::ParseXS.
+    $rv{$xstype} =~ s/\s*\z/\n/;
+  }
+
+  return \%rv;
+}
+
+
+sub _get_prototype_hash {
+  my $self = shift;
+  my $lookup  = $self->{typemap_lookup};
+  my $storage = $self->{typemap_section};
+
+  my %rv;
+  foreach my $ctype (keys %$lookup) {
+    $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->proto || '$';
+  }
+
+  return \%rv;
+}
+
+
+
+# make sure that the provided types wouldn't collide with what's
+# in the object already.
+sub validate {
+  my $self = shift;
+  my %args = @_;
+
+  if ( exists $args{ctype}
+       and exists $self->{typemap_lookup}{tidy_type($args{ctype})} )
+  {
+    die("Multiple definition of ctype '$args{ctype}' in TYPEMAP section");
+  }
+
+  if ( exists $args{inputmap_xstype}
+       and exists $self->{input_lookup}{$args{inputmap_xstype}} )
+  {
+    die("Multiple definition of xstype '$args{inputmap_xstype}' in INPUTMAP section");
+  }
+
+  if ( exists $args{outputmap_xstype}
+       and exists $self->{output_lookup}{$args{outputmap_xstype}} )
+  {
+    die("Multiple definition of xstype '$args{outputmap_xstype}' in OUTPUTMAP section");
+  }
+
+  return 1;
+}
+
+
+sub clone {
+  my $proto = shift;
+  my %args = @_;
+
+  my $self;
+  if ($args{shallow}) {
+    $self = bless( {
+      %$proto,
+      typemap_section => [@{$proto->{typemap_section}}],
+      typemap_lookup  => {%{$proto->{typemap_lookup}}},
+      input_section   => [@{$proto->{input_section}}],
+      input_lookup    => {%{$proto->{input_lookup}}},
+      output_section  => [@{$proto->{output_section}}],
+      output_lookup   => {%{$proto->{output_lookup}}},
+    } => ref($proto) );
+  }
+  else {
+    $self = bless( {
+      %$proto,
+      typemap_section => [map $_->new, @{$proto->{typemap_section}}],
+      typemap_lookup  => {%{$proto->{typemap_lookup}}},
+      input_section   => [map $_->new, @{$proto->{input_section}}],
+      input_lookup    => {%{$proto->{input_lookup}}},
+      output_section  => [map $_->new, @{$proto->{output_section}}],
+      output_lookup   => {%{$proto->{output_lookup}}},
+    } => ref($proto) );
+  }
+
+  return $self;
+}
+
+
+sub tidy_type {
+  local $_ = shift;
+
+  # for templated C++ types, do some bit of flawed canonicalization
+  # wrt. templates at least
+  if (/[<>]/) {
+    s/\s*([<>])\s*/$1/g;
+    s/>>/> >/g;
+  }
+
+  # rationalise any '*' by joining them into bunches and removing whitespace
+  s#\s*(\*+)\s*#$1#g;
+  s#(\*+)# $1 #g ;
+
+  # trim leading & trailing whitespace
+  s/^\s+//; s/\s+$//;
+
+  # change multiple whitespace into a single space
+  s/\s+/ /g;
+
+  $_;
+}
+
+
+
+sub _parse {
+  my $self = shift;
+  my $stringref = shift;
+  my $lineno_offset = shift;
+  $lineno_offset = 0 if not defined $lineno_offset;
+  my $filename = shift;
+  $filename = '<string>' if not defined $filename;
+
+  my $replace = $self->{replace};
+  my $skip    = $self->{skip};
+  die "Can only replace OR skip" if $replace and $skip;
+  my @add_params;
+  push @add_params, replace => 1 if $replace;
+  push @add_params, skip    => 1 if $skip;
+
+  # TODO comments should round-trip, currently ignoring
+  # TODO order of sections, multiple sections of same type
+  # Heavily influenced by ExtUtils::ParseXS
+  my $section = 'typemap';
+  my $lineno = $lineno_offset;
+  my $junk = "";
+  my $current = \$junk;
+  my @input_expr;
+  my @output_expr;
+  while ($$stringref =~ /^(.*)$/gcm) {
+    local $_ = $1;
+    ++$lineno;
+    chomp;
+    next if /^\s*#/;
+    if (/^INPUT\s*$/) {
+      $section = 'input';
+      $current = \$junk;
+      next;
+    }
+    elsif (/^OUTPUT\s*$/) {
+      $section = 'output';
+      $current = \$junk;
+      next;
+    }
+    elsif (/^TYPEMAP\s*$/) {
+      $section = 'typemap';
+      $current = \$junk;
+      next;
+    }
+    
+    if ($section eq 'typemap') {
+      my $line = $_;
+      s/^\s+//; s/\s+$//;
+      next if $_ eq '' or /^#/;
+      my($type, $kind, $proto) = /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o
+        or warn("Warning: File '$filename' Line $lineno '$line' TYPEMAP entry needs 2 or 3 columns\n"),
+           next;
+      # prototype defaults to '$'
+      $proto = '$' unless $proto;
+      warn("Warning: File '$filename' Line $lineno '$line' Invalid prototype '$proto'\n")
+        unless _valid_proto_string($proto);
+      $self->add_typemap(
+        ExtUtils::Typemaps::Type->new(
+          xstype => $kind, proto => $proto, ctype => $type
+        ),
+        @add_params
+      );
+    } elsif (/^\s/) {
+      s/\s+$//;
+      $$current .= $$current eq '' ? $_ : "\n".$_;
+    } elsif ($_ eq '') {
+      next;
+    } elsif ($section eq 'input') {
+      s/\s+$//;
+      push @input_expr, {xstype => $_, code => ''};
+      $current = \$input_expr[-1]{code};
+    } else { # output section
+      s/\s+$//;
+      push @output_expr, {xstype => $_, code => ''};
+      $current = \$output_expr[-1]{code};
+    }
+
+  } # end while lines
+
+  foreach my $inexpr (@input_expr) {
+    $self->add_inputmap( ExtUtils::Typemaps::InputMap->new(%$inexpr), @add_params );
+  }
+  foreach my $outexpr (@output_expr) {
+    $self->add_outputmap( ExtUtils::Typemaps::OutputMap->new(%$outexpr), @add_params );
+  }
+
+  return 1;
+}
+
+# taken from ExtUtils::ParseXS
+sub _valid_proto_string {
+  my $string = shift;
+  if ($string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/o) {
+    return $string;
+  }
+
+  return 0 ;
+}
+
+# taken from ExtUtils::ParseXS (C_string)
+sub _escape_backslashes {
+  my $string = shift;
+  $string =~ s[\\][\\\\]g;
+  $string;
+}
+
+
+1;
+
+package ExtUtils::Command;
+
+use 5.00503;
+use strict;
+require Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
+@ISA       = qw(Exporter);
+@EXPORT    = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
+                dos2unix);
+$VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+my $Is_VMS   = $^O eq 'VMS';
+my $Is_VMS_mode = $Is_VMS;
+my $Is_VMS_noefs = $Is_VMS;
+my $Is_Win32 = $^O eq 'MSWin32';
+
+if( $Is_VMS ) {
+    my $vms_unix_rpt;
+    my $vms_efs;
+    my $vms_case;
+
+    if (eval { local $SIG{__DIE__};
+               local @INC = @INC;
+               pop @INC if $INC[-1] eq '.';
+               require VMS::Feature; }) {
+        $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
+        $vms_efs = VMS::Feature::current("efs_charset");
+        $vms_case = VMS::Feature::current("efs_case_preserve");
+    } else {
+        my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
+        my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || '';
+        $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
+        $vms_efs = $efs_charset =~ /^[ET1]/i;
+        $vms_case = $efs_case =~ /^[ET1]/i;
+    }
+    $Is_VMS_mode = 0 if $vms_unix_rpt;
+    $Is_VMS_noefs = 0 if ($vms_efs);
+}
+
+
+
+# VMS uses % instead of ? to mean "one character"
+my $wild_regex = $Is_VMS ? '*%' : '*?';
+sub expand_wildcards
+{
+ @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
+}
+
+
+
+sub cat ()
+{
+ expand_wildcards();
+ print while (<>);
+}
+
+
+sub eqtime
+{
+ my ($src,$dst) = @ARGV;
+ local @ARGV = ($dst);  touch();  # in case $dst doesn't exist
+ utime((stat($src))[8,9],$dst);
+}
+
+
+sub rm_rf
+{
+ expand_wildcards();
+ require File::Path;
+ File::Path::rmtree([grep -e $_,@ARGV],0,0);
+}
+
+
+sub rm_f {
+    expand_wildcards();
+
+    foreach my $file (@ARGV) {
+        next unless -f $file;
+
+        next if _unlink($file);
+
+        chmod(0777, $file);
+
+        next if _unlink($file);
+
+        require Carp;
+        Carp::carp("Cannot delete $file: $!");
+    }
+}
+
+sub _unlink {
+    my $files_unlinked = 0;
+    foreach my $file (@_) {
+        my $delete_count = 0;
+        $delete_count++ while unlink $file;
+        $files_unlinked++ if $delete_count;
+    }
+    return $files_unlinked;
+}
+
+
+
+sub touch {
+    my $t    = time;
+    expand_wildcards();
+    foreach my $file (@ARGV) {
+        open(FILE,">>$file") || die "Cannot write $file:$!";
+        close(FILE);
+        utime($t,$t,$file);
+    }
+}
+
+
+sub mv {
+    expand_wildcards();
+    my @src = @ARGV;
+    my $dst = pop @src;
+
+    if (@src > 1 && ! -d $dst) {
+        require Carp;
+        Carp::croak("Too many arguments");
+    }
+
+    require File::Copy;
+    my $nok = 0;
+    foreach my $src (@src) {
+        $nok ||= !File::Copy::move($src,$dst);
+    }
+    return !$nok;
+}
+
+
+sub cp {
+    expand_wildcards();
+    my @src = @ARGV;
+    my $dst = pop @src;
+
+    if (@src > 1 && ! -d $dst) {
+        require Carp;
+        Carp::croak("Too many arguments");
+    }
+
+    require File::Copy;
+    my $nok = 0;
+    foreach my $src (@src) {
+        $nok ||= !File::Copy::copy($src,$dst);
+
+        # Win32 does not update the mod time of a copied file, just the
+        # created time which make does not look at.
+        utime(time, time, $dst) if $Is_Win32;
+    }
+    return $nok;
+}
+
+
+sub chmod {
+    local @ARGV = @ARGV;
+    my $mode = shift(@ARGV);
+    expand_wildcards();
+
+    if( $Is_VMS_mode && $Is_VMS_noefs) {
+        require File::Spec;
+        foreach my $idx (0..$#ARGV) {
+            my $path = $ARGV[$idx];
+            next unless -d $path;
+
+            # chmod 0777, [.foo.bar] doesn't work on VMS, you have to do
+            # chmod 0777, [.foo]bar.dir
+            my @dirs = File::Spec->splitdir( $path );
+            $dirs[-1] .= '.dir';
+            $path = File::Spec->catfile(@dirs);
+
+            $ARGV[$idx] = $path;
+        }
+    }
+
+    chmod(oct $mode,@ARGV) || die "Cannot chmod ".join(' ',$mode,@ARGV).":$!";
+}
+
+
+sub mkpath
+{
+ expand_wildcards();
+ require File::Path;
+ File::Path::mkpath([@ARGV],0,0777);
+}
+
+
+sub test_f
+{
+ exit(-f $ARGV[0] ? 0 : 1);
+}
+
+
+sub test_d
+{
+ exit(-d $ARGV[0] ? 0 : 1);
+}
+
+
+sub dos2unix {
+    require File::Find;
+    File::Find::find(sub {
+        return if -d;
+        return unless -w _;
+        return unless -r _;
+        return if -B _;
+
+        local $\;
+
+	my $orig = $_;
+	my $temp = '.dos2unix_tmp';
+	open ORIG, $_ or do { warn "dos2unix can't open $_: $!"; return };
+	open TEMP, ">$temp" or
+	    do { warn "dos2unix can't create .dos2unix_tmp: $!"; return };
+        binmode ORIG; binmode TEMP;
+        while (my $line = <ORIG>) {
+            $line =~ s/\015\012/\012/g;
+            print TEMP $line;
+        }
+	close ORIG;
+	close TEMP;
+	rename $temp, $orig;
+
+    }, @ARGV);
+}
+
+
+package ExtUtils::MM_NW5;
+
+
+use strict;
+use ExtUtils::MakeMaker::Config;
+use File::Basename;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Win32;
+our @ISA = qw(ExtUtils::MM_Win32);
+
+use ExtUtils::MakeMaker qw(&neatvalue &_sprintf562);
+
+$ENV{EMXSHELL} = 'sh'; # to run `commands`
+
+my $BORLAND  = $Config{'cc'} =~ /\bbcc/i;
+my $GCC      = $Config{'cc'} =~ /\bgcc/i;
+
+
+
+sub os_flavor {
+    my $self = shift;
+    return ($self->SUPER::os_flavor, 'Netware');
+}
+
+
+sub init_platform {
+    my($self) = shift;
+
+    # To get Win32's setup.
+    $self->SUPER::init_platform;
+
+    # incpath is copied to makefile var INCLUDE in constants sub, here just
+    # make it empty
+    my $libpth = $Config{'libpth'};
+    $libpth =~ s( )(;);
+    $self->{'LIBPTH'} = $libpth;
+
+    $self->{'BASE_IMPORT'} = $Config{'base_import'};
+
+    # Additional import file specified from Makefile.pl
+    if($self->{'base_import'}) {
+        $self->{'BASE_IMPORT'} .= ', ' . $self->{'base_import'};
+    }
+
+    $self->{'NLM_VERSION'} = $Config{'nlm_version'};
+    $self->{'MPKTOOL'}	= $Config{'mpktool'};
+    $self->{'TOOLPATH'}	= $Config{'toolpath'};
+
+    (my $boot = $self->{'NAME'}) =~ s/:/_/g;
+    $self->{'BOOT_SYMBOL'}=$boot;
+
+    # If the final binary name is greater than 8 chars,
+    # truncate it here.
+    if(length($self->{'BASEEXT'}) > 8) {
+        $self->{'NLM_SHORT_NAME'} = substr($self->{'BASEEXT'},0,8);
+    }
+
+    # Get the include path and replace the spaces with ;
+    # Copy this to makefile as INCLUDE = d:\...;d:\;
+    ($self->{INCLUDE} = $Config{'incpath'}) =~ s/([ ]*)-I/;/g;
+
+    # Set the path to CodeWarrior binaries which might not have been set in
+    # any other place
+    $self->{PATH} = '$(PATH);$(TOOLPATH)';
+
+    $self->{MM_NW5_VERSION} = $VERSION;
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    # Setup Win32's constants.
+    $make_frag .= $self->SUPER::platform_constants;
+
+    foreach my $macro (qw(LIBPTH BASE_IMPORT NLM_VERSION MPKTOOL
+                          TOOLPATH BOOT_SYMBOL NLM_SHORT_NAME INCLUDE PATH
+                          MM_NW5_VERSION
+                      ))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+sub static_lib_pure_cmd {
+    my ($self, $src) = @_;
+    $src =~ s/(\$\(\w+)(\))/$1:^"+"$2/g if $BORLAND;
+    sprintf qq{\t\$(AR) %s\n}, ($BORLAND ? '$@ ' . $src
+                          : ($GCC ? '-ru $@ ' . $src
+                                  : '-type library -o $@ ' . $src));
+}
+
+
+sub xs_static_lib_is_xs {
+    return 1;
+}
+
+
+sub xs_make_dynamic_lib {
+    my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_;
+    my @m;
+    # Taking care of long names like FileHandle, ByteLoader, SDBM_File etc
+    if ($to =~ /^\$/) {
+        if ($self->{NLM_SHORT_NAME}) {
+            # deal with shortnames
+            my $newto = q{$(INST_AUTODIR)\\$(NLM_SHORT_NAME).$(DLEXT)};
+            push @m, "$to: $newto\n\n";
+            $to = $newto;
+        }
+    } else {
+        my ($v, $d, $f) = File::Spec->splitpath($to);
+        # relies on $f having a literal "." in it, unlike for $(OBJ_EXT)
+        if ($f =~ /[^\.]{9}\./) {
+            # 9+ chars before '.', need to shorten
+            $f = substr $f, 0, 8;
+        }
+        my $newto = File::Spec->catpath($v, $d, $f);
+        push @m, "$to: $newto\n\n";
+        $to = $newto;
+    }
+    # bits below should be in dlsyms, not here
+    #                                   1    2      3       4
+    push @m, _sprintf562 <<'MAKE_FRAG', $to, $from, $todir, $exportlist;
+# Create xdc data for an MT safe NLM in case of mpk build
+%1$s: %2$s $(MYEXTLIB) $(BOOTSTRAP) %3$s$(DFSEP).exists
+	$(NOECHO) $(ECHO) Export boot_$(BOOT_SYMBOL) > %4$s
+	$(NOECHO) $(ECHO) $(BASE_IMPORT) >> %4$s
+	$(NOECHO) $(ECHO) Import @$(PERL_INC)\perl.imp >> %4$s
+MAKE_FRAG
+    if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) {
+        (my $xdc = $exportlist) =~ s#def\z#xdc#;
+        $xdc = '$(BASEEXT).xdc';
+        push @m, sprintf <<'MAKE_FRAG', $xdc, $exportlist;
+	$(MPKTOOL) $(XDCFLAGS) %s
+	$(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> %s
+MAKE_FRAG
+    }
+    # Reconstruct the X.Y.Z version.
+    my $version = join '.', map { sprintf "%d", $_ }
+                              $] =~ /(\d)\.(\d{3})(\d{2})/;
+    push @m, sprintf <<'EOF', $from, $version, $to, $exportlist;
+	$(LD) $(LDFLAGS) %s -desc "Perl %s Extension ($(BASEEXT))  XS_VERSION: $(XS_VERSION)" -nlmversion $(NLM_VERSION) -o %s $(MYEXTLIB) $(PERL_INC)\Main.lib -commandfile %s
+	$(CHMOD) 755 $@
+EOF
+    join '', @m;
+}
+
+1;
+__END__
+
+package ExtUtils::MM_Any;
+
+use strict;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use Carp;
+use File::Spec;
+use File::Basename;
+BEGIN { our @ISA = qw(File::Spec); }
+
+# We need $Verbose
+use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562);
+
+use ExtUtils::MakeMaker::Config;
+
+
+# So we don't have to keep calling the methods over and over again,
+# we have these globals to cache the values.  Faster and shrtr.
+my $Curdir  = __PACKAGE__->curdir;
+#my $Updir   = __PACKAGE__->updir;
+
+my $METASPEC_URL = 'https://metacpan.org/pod/CPAN::Meta::Spec';
+my $METASPEC_V = 2;
+
+
+sub os_flavor_is {
+    my $self = shift;
+    my %flavors = map { ($_ => 1) } $self->os_flavor;
+    return (grep { $flavors{$_} } @_) ? 1 : 0;
+}
+
+
+
+sub can_load_xs {
+    return defined &DynaLoader::boot_DynaLoader ? 1 : 0;
+}
+
+
+
+sub can_run {
+    my ($self, $command) = @_;
+
+    # a lot of VMS executables have a symbol defined
+    # check those first
+    if ( $^O eq 'VMS' ) {
+        require VMS::DCLsym;
+        my $syms = VMS::DCLsym->new;
+        return $command if scalar $syms->getsym( uc $command );
+    }
+
+    my @possibles;
+
+    if( File::Spec->file_name_is_absolute($command) ) {
+        return $self->maybe_command($command);
+
+    } else {
+        for my $dir (
+            File::Spec->path,
+            File::Spec->curdir
+        ) {
+            next if ! $dir || ! -d $dir;
+            my $abs = File::Spec->catfile($self->os_flavor_is('Win32') ? Win32::GetShortPathName( $dir ) : $dir, $command);
+            push @possibles, $abs if $abs = $self->maybe_command($abs);
+        }
+    }
+    return @possibles if wantarray;
+    return shift @possibles;
+}
+
+
+
+sub can_redirect_error {
+  my $self = shift;
+  $self->os_flavor_is('Unix')
+      or ($self->os_flavor_is('Win32') and !$self->os_flavor_is('Win9x'))
+      or $self->os_flavor_is('OS/2')
+}
+
+
+
+my %maketype2true;
+# undocumented - so t/cd.t can still do its thing
+sub _clear_maketype_cache { %maketype2true = () }
+
+sub is_make_type {
+    my($self, $type) = @_;
+    return $maketype2true{$type} if defined $maketype2true{$type};
+    (undef, undef, my $make_basename) = $self->splitpath($self->make);
+    return $maketype2true{$type} = 1
+        if $make_basename =~ /\b$type\b/i; # executable's filename
+    return $maketype2true{$type} = 0
+        if $make_basename =~ /\b[gdn]make\b/i; # Never fall through for dmake/nmake/gmake
+    # now have to run with "-v" and guess
+    my $redirect = $self->can_redirect_error ? '2>&1' : '';
+    my $make = $self->make || $self->{MAKE};
+    my $minus_v = `"$make" -v $redirect`;
+    return $maketype2true{$type} = 1
+        if $type eq 'gmake' and $minus_v =~ /GNU make/i;
+    return $maketype2true{$type} = 1
+        if $type eq 'bsdmake'
+      and $minus_v =~ /^usage: make \[-BeikNnqrstWwX\]/im;
+    $maketype2true{$type} = 0; # it wasn't whatever you asked
+}
+
+
+
+my $cached_dep_space;
+sub can_dep_space {
+    my $self = shift;
+    return $cached_dep_space if defined $cached_dep_space;
+    return $cached_dep_space = 1 if $self->is_make_type('gmake');
+    return $cached_dep_space = 0 if $self->is_make_type('dmake'); # only on W32
+    return $cached_dep_space = 0 if $self->is_make_type('bsdmake');
+    return $cached_dep_space = 0; # assume no
+}
+
+
+
+sub quote_dep {
+    my ($self, $arg) = @_;
+    die <<EOF if $arg =~ / / and not $self->can_dep_space;
+Tried to use make dependency with space for make that can't:
+  '$arg'
+EOF
+    $arg =~ s/( )/\\$1/g; # how GNU make does it
+    return $arg;
+}
+
+
+
+sub split_command {
+    my($self, $cmd, @args) = @_;
+
+    my @cmds = ();
+    return(@cmds) unless @args;
+
+    # If the command was given as a here-doc, there's probably a trailing
+    # newline.
+    chomp $cmd;
+
+    # set aside 30% for macro expansion.
+    my $len_left = int($self->max_exec_len * 0.70);
+    $len_left -= length $self->_expand_macros($cmd);
+
+    do {
+        my $arg_str = '';
+        my @next_args;
+        while( @next_args = splice(@args, 0, 2) ) {
+            # Two at a time to preserve pairs.
+            my $next_arg_str = "\t  ". join ' ', @next_args, "\n";
+
+            if( !length $arg_str ) {
+                $arg_str .= $next_arg_str
+            }
+            elsif( length($arg_str) + length($next_arg_str) > $len_left ) {
+                unshift @args, @next_args;
+                last;
+            }
+            else {
+                $arg_str .= $next_arg_str;
+            }
+        }
+        chop $arg_str;
+
+        push @cmds, $self->escape_newlines("$cmd \n$arg_str");
+    } while @args;
+
+    return @cmds;
+}
+
+
+sub _expand_macros {
+    my($self, $cmd) = @_;
+
+    $cmd =~ s{\$\((\w+)\)}{
+        defined $self->{$1} ? $self->{$1} : "\$($1)"
+    }e;
+    return $cmd;
+}
+
+
+
+# override if this isn't suitable!
+sub make_type { return 'Unix-style'; }
+
+
+
+sub stashmeta {
+    my($self, $text, $file) = @_;
+    $self->echo($text, $file, { allow_variables => 0, append => 0 });
+}
+
+
+
+sub echo {
+    my($self, $text, $file, $opts) = @_;
+
+    # Compatibility with old options
+    if( !ref $opts ) {
+        my $append = $opts;
+        $opts = { append => $append || 0 };
+    }
+    $opts->{allow_variables} = 0 unless defined $opts->{allow_variables};
+
+    my $ql_opts = { allow_variables => $opts->{allow_variables} };
+    my @cmds = map { '$(NOECHO) $(ECHO) '.$self->quote_literal($_, $ql_opts) }
+               split /\n/, $text;
+    if( $file ) {
+        my $redirect = $opts->{append} ? '>>' : '>';
+        $cmds[0] .= " $redirect $file";
+        $_ .= " >> $file" foreach @cmds[1..$#cmds];
+    }
+
+    return @cmds;
+}
+
+
+
+sub wraplist {
+    my $self = shift;
+    return join " \\\n\t", @_;
+}
+
+
+
+sub maketext_filter { return $_[1] }
+
+
+
+sub escape_dollarsigns {
+    my($self, $text) = @_;
+
+    # Escape dollar signs which are not starting a variable
+    $text =~ s{\$ (?!\() }{\$\$}gx;
+
+    return $text;
+}
+
+
+
+sub escape_all_dollarsigns {
+    my($self, $text) = @_;
+
+    # Escape dollar signs
+    $text =~ s{\$}{\$\$}gx;
+
+    return $text;
+}
+
+
+
+sub make {
+    my $self = shift;
+
+    my $make = lc $self->{MAKE};
+
+    # Truncate anything like foomake6 to just foomake.
+    $make =~ s/^(\w+make).*/$1/;
+
+    # Turn gnumake into gmake.
+    $make =~ s/^gnu/g/;
+
+    return $make;
+}
+
+
+
+sub all_target {
+    my $self = shift;
+
+    return <<'MAKE_EXT';
+all :: pure_all
+	$(NOECHO) $(NOOP)
+MAKE_EXT
+
+}
+
+
+
+sub _xs_list_basenames {
+    my ($self) = @_;
+    map { (my $b = $_) =~ s/\.xs$//; $b } sort keys %{ $self->{XS} };
+}
+
+sub blibdirs_target {
+    my $self = shift;
+
+    my @dirs = map { uc "\$(INST_$_)" } qw(libdir archlib
+                                           autodir archautodir
+                                           bin script
+                                           man1dir man3dir
+                                          );
+    if ($self->{XSMULTI}) {
+        for my $ext ($self->_xs_list_basenames) {
+            my ($v, $d, $f) = File::Spec->splitpath($ext);
+            my @d = File::Spec->splitdir($d);
+            shift @d if $d[0] eq 'lib';
+            push @dirs, $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
+	}
+    }
+
+    my @exists = map { $_.'$(DFSEP).exists' } @dirs;
+
+    my $make = sprintf <<'MAKE', join(' ', @exists);
+blibdirs : %s
+	$(NOECHO) $(NOOP)
+
+# Backwards compat with 6.18 through 6.25
+blibdirs.ts : blibdirs
+	$(NOECHO) $(NOOP)
+
+MAKE
+
+    $make .= $self->dir_target(@dirs);
+
+    return $make;
+}
+
+
+
+sub clean {
+# --- Cleanup and Distribution Sections ---
+
+    my($self, %attribs) = @_;
+    my @m;
+    push(@m, '
+# Delete temporary files but do not touch installed files. We don\'t delete
+# the Makefile here so a later make realclean still has a makefile to use.
+
+clean :: clean_subdirs
+');
+
+    my @files = sort values %{$self->{XS}}; # .c files from *.xs files
+    push @files, map {
+	my $file = $_;
+	map { $file.$_ } $self->{OBJ_EXT}, qw(.def _def.old .bs .bso .exp .base);
+    } $self->_xs_list_basenames;
+    my @dirs  = qw(blib);
+
+    # Normally these are all under blib but they might have been
+    # redefined.
+    # XXX normally this would be a good idea, but the Perl core sets
+    # INST_LIB = ../../lib rather than actually installing the files.
+    # So a "make clean" in an ext/ directory would blow away lib.
+    # Until the core is adjusted let's leave this out.
+#     push @dirs, qw($(INST_ARCHLIB) $(INST_LIB)
+#                    $(INST_BIN) $(INST_SCRIPT)
+#                    $(INST_MAN1DIR) $(INST_MAN3DIR)
+#                    $(INST_LIBDIR) $(INST_ARCHLIBDIR) $(INST_AUTODIR)
+#                    $(INST_STATIC) $(INST_DYNAMIC)
+#                 );
+
+
+    if( $attribs{FILES} ) {
+        # Use @dirs because we don't know what's in here.
+        push @dirs, ref $attribs{FILES}                ?
+                        @{$attribs{FILES}}             :
+                        split /\s+/, $attribs{FILES}   ;
+    }
+
+    push(@files, qw[$(MAKE_APERL_FILE)
+                    MYMETA.json MYMETA.yml perlmain.c tmon.out mon.out so_locations
+                    blibdirs.ts pm_to_blib pm_to_blib.ts
+                    *$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT)
+                    $(BOOTSTRAP) $(BASEEXT).bso
+                    $(BASEEXT).def lib$(BASEEXT).def
+                    $(BASEEXT).exp $(BASEEXT).x
+                   ]);
+
+    push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'));
+    push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld'));
+
+    # core files
+    if ($^O eq 'vos') {
+        push(@files, qw[perl*.kp]);
+    }
+    else {
+        push(@files, qw[core core.*perl.*.? *perl.core]);
+    }
+
+    push(@files, map { "core." . "[0-9]"x$_ } (1..5));
+
+    # OS specific things to clean up.  Use @dirs since we don't know
+    # what might be in here.
+    push @dirs, $self->extra_clean_files;
+
+    # Occasionally files are repeated several times from different sources
+    { my(%f) = map { ($_ => 1) } @files; @files = sort keys %f; }
+    { my(%d) = map { ($_ => 1) } @dirs;  @dirs  = sort keys %d; }
+
+    push @m, map "\t$_\n", $self->split_command('- $(RM_F)',  @files);
+    push @m, map "\t$_\n", $self->split_command('- $(RM_RF)', @dirs);
+
+    # Leave Makefile.old around for realclean
+    push @m, <<'MAKE';
+	  $(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
+MAKE
+
+    push(@m, "\t$attribs{POSTOP}\n")   if $attribs{POSTOP};
+
+    join("", @m);
+}
+
+
+
+sub clean_subdirs_target {
+    my($self) = shift;
+
+    # No subdirectories, no cleaning.
+    return <<'NOOP_FRAG' unless @{$self->{DIR}};
+clean_subdirs :
+	$(NOECHO) $(NOOP)
+NOOP_FRAG
+
+
+    my $clean = "clean_subdirs :\n";
+
+    for my $dir (@{$self->{DIR}}) {
+        my $subclean = $self->oneliner(sprintf <<'CODE', $dir);
+exit 0 unless chdir '%s';  system '$(MAKE) clean' if -f '$(FIRST_MAKEFILE)';
+CODE
+
+        $clean .= "\t$subclean\n";
+    }
+
+    return $clean;
+}
+
+
+
+sub dir_target {
+    my($self, @dirs) = @_;
+
+    my $make = '';
+    foreach my $dir (@dirs) {
+        $make .= sprintf <<'MAKE', ($dir) x 4;
+%s$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) %s
+	$(NOECHO) $(CHMOD) $(PERM_DIR) %s
+	$(NOECHO) $(TOUCH) %s$(DFSEP).exists
+
+MAKE
+
+    }
+
+    return $make;
+}
+
+
+
+# For backwards compatibility.
+*dist_dir = *distdir;
+
+sub distdir {
+    my($self) = shift;
+
+    my $meta_target = $self->{NO_META} ? '' : 'distmeta';
+    my $sign_target = !$self->{SIGN}   ? '' : 'distsignature';
+
+    return sprintf <<'MAKE_FRAG', $meta_target, $sign_target;
+create_distdir :
+	$(RM_RF) $(DISTVNAME)
+	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
+		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
+
+distdir : create_distdir %s %s
+	$(NOECHO) $(NOOP)
+
+MAKE_FRAG
+
+}
+
+
+
+sub dist_test {
+    my($self) = shift;
+
+    my $mpl_args = join " ", map qq["$_"], @ARGV;
+
+    my $test = $self->cd('$(DISTVNAME)',
+                         '$(ABSPERLRUN) Makefile.PL '.$mpl_args,
+                         '$(MAKE) $(PASTHRU)',
+                         '$(MAKE) test $(PASTHRU)'
+                        );
+
+    return sprintf <<'MAKE_FRAG', $test;
+disttest : distdir
+	%s
+
+MAKE_FRAG
+
+
+}
+
+
+
+sub xs_dlsyms_arg {
+    return '';
+}
+
+
+sub xs_dlsyms_ext {
+    die "Pure virtual method";
+}
+
+
+sub xs_dlsyms_extra {
+    '';
+}
+
+
+sub xs_dlsyms_iterator {
+    my ($self, $attribs) = @_;
+    if ($self->{XSMULTI}) {
+        my @m;
+        for my $ext ($self->_xs_list_basenames) {
+            my @parts = File::Spec->splitdir($ext);
+            shift @parts if $parts[0] eq 'lib';
+            my $name = join '::', @parts;
+            push @m, $self->xs_make_dlsyms(
+                $attribs,
+                $ext . $self->xs_dlsyms_ext,
+                "$ext.xs",
+                $name,
+                $parts[-1],
+                {}, [], {}, [],
+                $self->xs_dlsyms_extra . q!, 'FILE' => ! . neatvalue($ext),
+            );
+        }
+        return join "\n", @m;
+    } else {
+        return $self->xs_make_dlsyms(
+            $attribs,
+            $self->{BASEEXT} . $self->xs_dlsyms_ext,
+            'Makefile.PL',
+            $self->{NAME},
+            $self->{DLBASE},
+            $attribs->{DL_FUNCS} || $self->{DL_FUNCS} || {},
+            $attribs->{FUNCLIST} || $self->{FUNCLIST} || [],
+            $attribs->{IMPORTS} || $self->{IMPORTS} || {},
+            $attribs->{DL_VARS} || $self->{DL_VARS} || [],
+            $self->xs_dlsyms_extra,
+        );
+    }
+}
+
+
+sub xs_make_dlsyms {
+    my ($self, $attribs, $target, $dep, $name, $dlbase, $funcs, $funclist, $imports, $vars, $extra) = @_;
+    my @m = (
+     "\n$target: $dep\n",
+     q!	$(PERLRUN) -MExtUtils::Mksymlists \\
+     -e "Mksymlists('NAME'=>\"!, $name,
+     q!\", 'DLBASE' => '!,$dlbase,
+     # The above two lines quoted differently to work around
+     # a bug in the 4DOS/4NT command line interpreter.  The visible
+     # result of the bug was files named q('extension_name',) *with the
+     # single quotes and the comma* in the extension build directories.
+     q!', 'DL_FUNCS' => !,neatvalue($funcs),
+     q!, 'FUNCLIST' => !,neatvalue($funclist),
+     q!, 'IMPORTS' => !,neatvalue($imports),
+     q!, 'DL_VARS' => !, neatvalue($vars)
+    );
+    push @m, $extra if defined $extra;
+    push @m, qq!);"\n!;
+    join '', @m;
+}
+
+
+sub dynamic {
+# --- Dynamic Loading Sections ---
+
+    my($self) = shift;
+    '
+dynamic :: $(FIRST_MAKEFILE) config $(INST_BOOT) $(INST_DYNAMIC)
+	$(NOECHO) $(NOOP)
+';
+}
+
+
+
+sub makemakerdflt_target {
+    return <<'MAKE_FRAG';
+makemakerdflt : all
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+
+}
+
+
+
+sub manifypods_target {
+    my($self) = shift;
+
+    my $man1pods      = '';
+    my $man3pods      = '';
+    my $dependencies  = '';
+
+    # populate manXpods & dependencies:
+    foreach my $name (sort keys %{$self->{MAN1PODS}}, sort keys %{$self->{MAN3PODS}}) {
+        $dependencies .= " \\\n\t$name";
+    }
+
+    my $manify = <<END;
+manifypods : pure_all config $dependencies
+END
+
+    my @man_cmds;
+    foreach my $section (qw(1 3)) {
+        my $pods = $self->{"MAN${section}PODS"};
+        my $p2m = sprintf <<'CMD', $section, $] > 5.008 ? " -u" : "";
+	$(NOECHO) $(POD2MAN) --section=%s --perm_rw=$(PERM_RW)%s
+CMD
+        push @man_cmds, $self->split_command($p2m, map {($_,$pods->{$_})} sort keys %$pods);
+    }
+
+    $manify .= "\t\$(NOECHO) \$(NOOP)\n" unless @man_cmds;
+    $manify .= join '', map { "$_\n" } @man_cmds;
+
+    return $manify;
+}
+
+{
+    my $has_cpan_meta;
+    sub _has_cpan_meta {
+        return $has_cpan_meta if defined $has_cpan_meta;
+        return $has_cpan_meta = !!eval {
+            require CPAN::Meta;
+            CPAN::Meta->VERSION(2.112150);
+            1;
+        };
+    }
+}
+
+
+sub metafile_target {
+    my $self = shift;
+    return <<'MAKE_FRAG' if $self->{NO_META} or ! _has_cpan_meta();
+metafile :
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+
+    my $metadata   = $self->metafile_data(
+        $self->{META_ADD}   || {},
+        $self->{META_MERGE} || {},
+    );
+
+    my $meta = $self->_fix_metadata_before_conversion( $metadata );
+
+    my @write_metayml = $self->stashmeta(
+      $meta->as_string({version => "1.4"}), 'META_new.yml'
+    );
+    my @write_metajson = $self->stashmeta(
+      $meta->as_string({version => "2.0"}), 'META_new.json'
+    );
+
+    my $metayml = join("\n\t", @write_metayml);
+    my $metajson = join("\n\t", @write_metajson);
+    return sprintf <<'MAKE_FRAG', $metayml, $metajson;
+metafile : create_distdir
+	$(NOECHO) $(ECHO) Generating META.yml
+	%s
+	-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
+	$(NOECHO) $(ECHO) Generating META.json
+	%s
+	-$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json
+MAKE_FRAG
+
+}
+
+
+sub _fix_metadata_before_conversion {
+    my ( $self, $metadata ) = @_;
+
+    # we should never be called unless this already passed but
+    # prefer to be defensive in case somebody else calls this
+
+    return unless _has_cpan_meta;
+
+    my $bad_version = $metadata->{version} &&
+                      !CPAN::Meta::Validator->new->version( 'version', $metadata->{version} );
+    # just delete all invalid versions
+    if( $bad_version ) {
+        warn "Can't parse version '$metadata->{version}'\n";
+        $metadata->{version} = '';
+    }
+
+    my $validator2 = CPAN::Meta::Validator->new( $metadata );
+    my @errors;
+    push @errors, $validator2->errors if !$validator2->is_valid;
+    my $validator14 = CPAN::Meta::Validator->new(
+        {
+            %$metadata,
+            'meta-spec' => { version => 1.4 },
+        }
+    );
+    push @errors, $validator14->errors if !$validator14->is_valid;
+    # fix non-camelcase custom resource keys (only other trick we know)
+    for my $error ( @errors ) {
+        my ( $key ) = ( $error =~ /Custom resource '(.*)' must be in CamelCase./ );
+        next if !$key;
+
+        # first try to remove all non-alphabetic chars
+        ( my $new_key = $key ) =~ s/[^_a-zA-Z]//g;
+
+        # if that doesn't work, uppercase first one
+        $new_key = ucfirst $new_key if !$validator14->custom_1( $new_key );
+
+        # copy to new key if that worked
+        $metadata->{resources}{$new_key} = $metadata->{resources}{$key}
+          if $validator14->custom_1( $new_key );
+
+        # and delete old one in any case
+        delete $metadata->{resources}{$key};
+    }
+
+    # paper over validation issues, but still complain, necessary because
+    # there's no guarantee that the above will fix ALL errors
+    my $meta = eval { CPAN::Meta->create( $metadata, { lazy_validation => 1 } ) };
+    warn $@ if $@ and
+               $@ !~ /encountered CODE.*, but JSON can only represent references to arrays or hashes/;
+
+    # use the original metadata straight if the conversion failed
+    # or if it can't be stringified.
+    if( !$meta                                                  ||
+        !eval { $meta->as_string( { version => $METASPEC_V } ) }      ||
+        !eval { $meta->as_string }
+    ) {
+        $meta = bless $metadata, 'CPAN::Meta';
+    }
+
+    my $now_license = $meta->as_struct({ version => 2 })->{license};
+    if ($self->{LICENSE} and $self->{LICENSE} ne 'unknown' and
+        @{$now_license} == 1 and $now_license->[0] eq 'unknown'
+    ) {
+        warn "Invalid LICENSE value '$self->{LICENSE}' ignored\n";
+    }
+
+    $meta;
+}
+
+
+
+sub _sort_pairs {
+    my $sort  = shift;
+    my $pairs = shift;
+    return map  { $_ => $pairs->{$_} }
+           sort $sort
+           keys %$pairs;
+}
+
+
+# Taken from Module::Build::Base
+sub _hash_merge {
+    my ($self, $h, $k, $v) = @_;
+    if (ref $h->{$k} eq 'ARRAY') {
+        push @{$h->{$k}}, ref $v ? @$v : $v;
+    } elsif (ref $h->{$k} eq 'HASH') {
+        $self->_hash_merge($h->{$k}, $_, $v->{$_}) foreach keys %$v;
+    } else {
+        $h->{$k} = $v;
+    }
+}
+
+
+
+sub metafile_data {
+    my $self = shift;
+    my($meta_add, $meta_merge) = @_;
+
+    $meta_add ||= {};
+    $meta_merge ||= {};
+
+    my $version = _normalize_version($self->{VERSION});
+    my $release_status = ($version =~ /_/) ? 'unstable' : 'stable';
+    my %meta = (
+        # required
+        abstract     => $self->{ABSTRACT} || 'unknown',
+        author       => defined($self->{AUTHOR}) ? $self->{AUTHOR} : ['unknown'],
+        dynamic_config => 1,
+        generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION",
+        license      => [ $self->{LICENSE} || 'unknown' ],
+        'meta-spec'  => {
+            url         => $METASPEC_URL,
+            version     => $METASPEC_V,
+        },
+        name         => $self->{DISTNAME},
+        release_status => $release_status,
+        version      => $version,
+
+        # optional
+        no_index     => { directory => [qw(t inc)] },
+    );
+    $self->_add_requirements_to_meta(\%meta);
+
+    if (!eval { require JSON::PP; require CPAN::Meta::Converter; CPAN::Meta::Converter->VERSION(2.141170) }) {
+      return \%meta;
+    }
+
+    # needs to be based on the original version
+    my $v1_add = _metaspec_version($meta_add) !~ /^2/;
+
+    my ($add_v, $merge_v) = map _metaspec_version($_), $meta_add, $meta_merge;
+    for my $frag ($meta_add, $meta_merge) {
+        my $def_v = $frag == $meta_add ? $merge_v : $add_v;
+        $frag = CPAN::Meta::Converter->new($frag, default_version => $def_v)->upgrade_fragment;
+    }
+
+    # if we upgraded a 1.x _ADD fragment, we gave it a prereqs key that
+    # will override all prereqs, which is more than the user asked for;
+    # instead, we'll go inside the prereqs and override all those
+    while( my($key, $val) = each %$meta_add ) {
+        if ($v1_add and $key eq 'prereqs') {
+            $meta{$key}{$_} = $val->{$_} for keys %$val;
+        } elsif ($key ne 'meta-spec') {
+            $meta{$key} = $val;
+        }
+    }
+
+    while( my($key, $val) = each %$meta_merge ) {
+        next if $key eq 'meta-spec';
+        $self->_hash_merge(\%meta, $key, $val);
+    }
+
+    return \%meta;
+}
+
+
+
+sub _add_requirements_to_meta {
+    my ( $self, $meta ) = @_;
+    # Check the original args so we can tell between the user setting it
+    # to an empty hash and it just being initialized.
+    $meta->{prereqs}{configure}{requires} = $self->{ARGS}{CONFIGURE_REQUIRES}
+        ? $self->{CONFIGURE_REQUIRES}
+        : { 'ExtUtils::MakeMaker' => 0, };
+    $meta->{prereqs}{build}{requires} = $self->{ARGS}{BUILD_REQUIRES}
+        ? $self->{BUILD_REQUIRES}
+        : { 'ExtUtils::MakeMaker' => 0, };
+    $meta->{prereqs}{test}{requires} = $self->{TEST_REQUIRES}
+        if $self->{ARGS}{TEST_REQUIRES};
+    $meta->{prereqs}{runtime}{requires} = $self->{PREREQ_PM}
+        if $self->{ARGS}{PREREQ_PM};
+    $meta->{prereqs}{runtime}{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION})
+        if $self->{MIN_PERL_VERSION};
+}
+
+# spec version of given fragment - if not given, assume 1.4
+sub _metaspec_version {
+  my ( $meta ) = @_;
+  return $meta->{'meta-spec'}->{version}
+    if defined $meta->{'meta-spec'}
+       and defined $meta->{'meta-spec'}->{version};
+  return '1.4';
+}
+
+sub _add_requirements_to_meta_v1_4 {
+    my ( $self, $meta ) = @_;
+    # Check the original args so we can tell between the user setting it
+    # to an empty hash and it just being initialized.
+    if( $self->{ARGS}{CONFIGURE_REQUIRES} ) {
+        $meta->{configure_requires} = $self->{CONFIGURE_REQUIRES};
+    } else {
+        $meta->{configure_requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+    if( $self->{ARGS}{BUILD_REQUIRES} ) {
+        $meta->{build_requires} = $self->{BUILD_REQUIRES};
+    } else {
+        $meta->{build_requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+    if( $self->{ARGS}{TEST_REQUIRES} ) {
+        $meta->{build_requires} = {
+          %{ $meta->{build_requires} },
+          %{ $self->{TEST_REQUIRES} },
+        };
+    }
+    $meta->{requires} = $self->{PREREQ_PM}
+        if defined $self->{PREREQ_PM};
+    $meta->{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION})
+        if $self->{MIN_PERL_VERSION};
+}
+
+# Adapted from Module::Build::Base
+sub _normalize_version {
+  my ($version) = @_;
+  $version = 0 unless defined $version;
+
+  if ( ref $version eq 'version' ) { # version objects
+    $version = $version->stringify;
+  }
+  elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots
+    # normalize string tuples without "v": "1.2.3" -> "v1.2.3"
+    $version = "v$version";
+  }
+  else {
+    # leave alone
+  }
+  return $version;
+}
+
+
+sub _dump_hash {
+    croak "first argument should be a hash ref" unless ref $_[0] eq 'HASH';
+    my $options = shift;
+    my %hash = @_;
+
+    # Use a list to preserve order.
+    my @pairs;
+
+    my $k_sort
+        = exists $options->{key_sort} ? $options->{key_sort}
+                                      : sub { lc $a cmp lc $b };
+    if ($k_sort) {
+        croak "'key_sort' should be a coderef" unless ref $k_sort eq 'CODE';
+        @pairs = _sort_pairs($k_sort, \%hash);
+    } else { # list of pairs, no sorting
+        @pairs = @_;
+    }
+
+    my $yaml     = $options->{use_header} ? "--- #YAML:1.0\n" : '';
+    my $indent   = $options->{indent} || '';
+    my $k_length = min(
+        ($options->{max_key_length} || 20),
+        max(map { length($_) + 1 } grep { !ref $hash{$_} } keys %hash)
+    );
+    my $customs  = $options->{customs} || {};
+
+    # printf format for key
+    my $k_format = "%-${k_length}s";
+
+    while( @pairs ) {
+        my($key, $val) = splice @pairs, 0, 2;
+        $val = '~' unless defined $val;
+        if(ref $val eq 'HASH') {
+            if ( keys %$val ) {
+                my %k_options = ( # options for recursive call
+                    delta => $options->{delta},
+                    use_header => 0,
+                    indent => $indent . $options->{delta},
+                );
+                if (exists $customs->{$key}) {
+                    my %k_custom = %{$customs->{$key}};
+                    foreach my $k (qw(key_sort max_key_length customs)) {
+                        $k_options{$k} = $k_custom{$k} if exists $k_custom{$k};
+                    }
+                }
+                $yaml .= $indent . "$key:\n"
+                  . _dump_hash(\%k_options, %$val);
+            }
+            else {
+                $yaml .= $indent . "$key:  {}\n";
+            }
+        }
+        elsif (ref $val eq 'ARRAY') {
+            if( @$val ) {
+                $yaml .= $indent . "$key:\n";
+
+                for (@$val) {
+                    croak "only nested arrays of non-refs are supported" if ref $_;
+                    $yaml .= $indent . $options->{delta} . "- $_\n";
+                }
+            }
+            else {
+                $yaml .= $indent . "$key:  []\n";
+            }
+        }
+        elsif( ref $val and !blessed($val) ) {
+            croak "only nested hashes, arrays and objects are supported";
+        }
+        else {  # if it's an object, just stringify it
+            $yaml .= $indent . sprintf "$k_format  %s\n", "$key:", $val;
+        }
+    };
+
+    return $yaml;
+
+}
+
+sub blessed {
+    return eval { $_[0]->isa("UNIVERSAL"); };
+}
+
+sub max {
+    return (sort { $b <=> $a } @_)[0];
+}
+
+sub min {
+    return (sort { $a <=> $b } @_)[0];
+}
+
+
+sub metafile_file {
+    my $self = shift;
+
+    my %dump_options = (
+        use_header => 1,
+        delta      => ' ' x 4,
+        key_sort   => undef,
+    );
+    return _dump_hash(\%dump_options, @_);
+
+}
+
+
+
+sub distmeta_target {
+    my $self = shift;
+
+    my @add_meta = (
+      $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']),
+exit unless -e q{META.yml};
+eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }
+    or die "Could not add META.yml to MANIFEST: ${'@'}"
+CODE
+      $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd'])
+exit unless -f q{META.json};
+eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }
+    or die "Could not add META.json to MANIFEST: ${'@'}"
+CODE
+    );
+
+    my @add_meta_to_distdir = map { $self->cd('$(DISTVNAME)', $_) } @add_meta;
+
+    return sprintf <<'MAKE', @add_meta_to_distdir;
+distmeta : create_distdir metafile
+	$(NOECHO) %s
+	$(NOECHO) %s
+
+MAKE
+
+}
+
+
+
+sub mymeta {
+    my $self = shift;
+    my $file = shift || ''; # for testing
+
+    my $mymeta = $self->_mymeta_from_meta($file);
+    my $v2 = 1;
+
+    unless ( $mymeta ) {
+        $mymeta = $self->metafile_data(
+            $self->{META_ADD}   || {},
+            $self->{META_MERGE} || {},
+        );
+        $v2 = 0;
+    }
+
+    # Overwrite the non-configure dependency hashes
+    $self->_add_requirements_to_meta($mymeta);
+
+    $mymeta->{dynamic_config} = 0;
+
+    return $mymeta;
+}
+
+
+sub _mymeta_from_meta {
+    my $self = shift;
+    my $metafile = shift || ''; # for testing
+
+    return unless _has_cpan_meta();
+
+    my $meta;
+    for my $file ( $metafile, "META.json", "META.yml" ) {
+      next unless -e $file;
+      eval {
+          $meta = CPAN::Meta->load_file($file)->as_struct( { version => 2 } );
+      };
+      last if $meta;
+    }
+    return unless $meta;
+
+    # META.yml before 6.25_01 cannot be trusted.  META.yml lived in the source directory.
+    # There was a good chance the author accidentally uploaded a stale META.yml if they
+    # rolled their own tarball rather than using "make dist".
+    if ($meta->{generated_by} &&
+        $meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
+        my $eummv = do { local $^W = 0; $1+0; };
+        if ($eummv < 6.2501) {
+            return;
+        }
+    }
+
+    return $meta;
+}
+
+
+sub write_mymeta {
+    my $self = shift;
+    my $mymeta = shift;
+
+    return unless _has_cpan_meta();
+
+    my $meta_obj = $self->_fix_metadata_before_conversion( $mymeta );
+
+    $meta_obj->save( 'MYMETA.json', { version => "2.0" } );
+    $meta_obj->save( 'MYMETA.yml', { version => "1.4" } );
+    return 1;
+}
+
+
+sub realclean {
+    my($self, %attribs) = @_;
+
+    my @dirs  = qw($(DISTVNAME));
+    my @files = qw($(FIRST_MAKEFILE) $(MAKEFILE_OLD));
+
+    # Special exception for the perl core where INST_* is not in blib.
+    # This cleans up the files built from the ext/ directory (all XS).
+    if( $self->{PERL_CORE} ) {
+        push @dirs, qw($(INST_AUTODIR) $(INST_ARCHAUTODIR));
+        push @files, values %{$self->{PM}};
+    }
+
+    if( $self->has_link_code ){
+        push @files, qw($(OBJECT));
+    }
+
+    if( $attribs{FILES} ) {
+        if( ref $attribs{FILES} ) {
+            push @dirs, @{ $attribs{FILES} };
+        }
+        else {
+            push @dirs, split /\s+/, $attribs{FILES};
+        }
+    }
+
+    # Occasionally files are repeated several times from different sources
+    { my(%f) = map { ($_ => 1) } @files;  @files = sort keys %f; }
+    { my(%d) = map { ($_ => 1) } @dirs;   @dirs  = sort keys %d; }
+
+    my $rm_cmd  = join "\n\t", map { "$_" }
+                    $self->split_command('- $(RM_F)',  @files);
+    my $rmf_cmd = join "\n\t", map { "$_" }
+                    $self->split_command('- $(RM_RF)', @dirs);
+
+    my $m = sprintf <<'MAKE', $rm_cmd, $rmf_cmd;
+# Delete temporary files (via clean) and also delete dist files
+realclean purge :: realclean_subdirs
+	%s
+	%s
+MAKE
+
+    $m .= "\t$attribs{POSTOP}\n" if $attribs{POSTOP};
+
+    return $m;
+}
+
+
+
+sub realclean_subdirs_target {
+    my $self = shift;
+    my @m = <<'EOF';
+# so clean is forced to complete before realclean_subdirs runs
+realclean_subdirs : clean
+EOF
+    return join '', @m, "\t\$(NOECHO) \$(NOOP)\n" unless @{$self->{DIR}};
+    foreach my $dir (@{$self->{DIR}}) {
+        foreach my $makefile ('$(MAKEFILE_OLD)', '$(FIRST_MAKEFILE)' ) {
+            my $subrclean .= $self->oneliner(_sprintf562 <<'CODE', $dir, $makefile);
+chdir '%1$s';  system '$(MAKE) $(USEMAKEFILE) %2$s realclean' if -f '%2$s';
+CODE
+            push @m, "\t- $subrclean\n";
+        }
+    }
+    return join '', @m;
+}
+
+
+
+sub signature_target {
+    my $self = shift;
+
+    return <<'MAKE_FRAG';
+signature :
+	cpansign -s
+MAKE_FRAG
+
+}
+
+
+
+sub distsignature_target {
+    my $self = shift;
+
+    my $add_sign = $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']);
+eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }
+    or die "Could not add SIGNATURE to MANIFEST: ${'@'}"
+CODE
+
+    my $sign_dist        = $self->cd('$(DISTVNAME)' => 'cpansign -s');
+
+    # cpansign -s complains if SIGNATURE is in the MANIFEST yet does not
+    # exist
+    my $touch_sig        = $self->cd('$(DISTVNAME)' => '$(TOUCH) SIGNATURE');
+    my $add_sign_to_dist = $self->cd('$(DISTVNAME)' => $add_sign );
+
+    return sprintf <<'MAKE', $add_sign_to_dist, $touch_sig, $sign_dist
+distsignature : distmeta
+	$(NOECHO) %s
+	$(NOECHO) %s
+	%s
+
+MAKE
+
+}
+
+
+
+sub special_targets {
+    my $make_frag = <<'MAKE_FRAG';
+.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
+
+.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir pure_all subdirs clean_subdirs makemakerdflt manifypods realclean_subdirs subdirs_dynamic subdirs_pure_nolink subdirs_static subdirs-test_dynamic subdirs-test_static test_dynamic test_static
+
+MAKE_FRAG
+
+    $make_frag .= <<'MAKE_FRAG' if $ENV{CLEARCASE_ROOT};
+.NO_CONFIG_REC: Makefile
+
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+
+
+
+
+sub init_ABSTRACT {
+    my $self = shift;
+
+    if( $self->{ABSTRACT_FROM} and $self->{ABSTRACT} ) {
+        warn "Both ABSTRACT_FROM and ABSTRACT are set.  ".
+             "Ignoring ABSTRACT_FROM.\n";
+        return;
+    }
+
+    if ($self->{ABSTRACT_FROM}){
+        $self->{ABSTRACT} = $self->parse_abstract($self->{ABSTRACT_FROM}) or
+            carp "WARNING: Setting ABSTRACT via file ".
+                 "'$self->{ABSTRACT_FROM}' failed\n";
+    }
+
+    if ($self->{ABSTRACT} && $self->{ABSTRACT} =~ m![[:cntrl:]]+!) {
+            warn "WARNING: ABSTRACT contains control character(s),".
+                 " they will be removed\n";
+            $self->{ABSTRACT} =~ s![[:cntrl:]]+!!g;
+            return;
+    }
+}
+
+
+sub init_INST {
+    my($self) = shift;
+
+    $self->{INST_ARCHLIB} ||= $self->catdir($Curdir,"blib","arch");
+    $self->{INST_BIN}     ||= $self->catdir($Curdir,'blib','bin');
+
+    # INST_LIB typically pre-set if building an extension after
+    # perl has been built and installed. Setting INST_LIB allows
+    # you to build directly into, say $Config{privlibexp}.
+    unless ($self->{INST_LIB}){
+        if ($self->{PERL_CORE}) {
+            $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
+        } else {
+            $self->{INST_LIB} = $self->catdir($Curdir,"blib","lib");
+        }
+    }
+
+    my @parentdir = split(/::/, $self->{PARENT_NAME});
+    $self->{INST_LIBDIR}      = $self->catdir('$(INST_LIB)',     @parentdir);
+    $self->{INST_ARCHLIBDIR}  = $self->catdir('$(INST_ARCHLIB)', @parentdir);
+    $self->{INST_AUTODIR}     = $self->catdir('$(INST_LIB)', 'auto',
+                                              '$(FULLEXT)');
+    $self->{INST_ARCHAUTODIR} = $self->catdir('$(INST_ARCHLIB)', 'auto',
+                                              '$(FULLEXT)');
+
+    $self->{INST_SCRIPT}  ||= $self->catdir($Curdir,'blib','script');
+
+    $self->{INST_MAN1DIR} ||= $self->catdir($Curdir,'blib','man1');
+    $self->{INST_MAN3DIR} ||= $self->catdir($Curdir,'blib','man3');
+
+    return 1;
+}
+
+
+
+sub init_INSTALL {
+    my($self) = shift;
+
+    if( $self->{ARGS}{INSTALL_BASE} and $self->{ARGS}{PREFIX} ) {
+        die "Only one of PREFIX or INSTALL_BASE can be given.  Not both.\n";
+    }
+
+    if( $self->{ARGS}{INSTALL_BASE} ) {
+        $self->init_INSTALL_from_INSTALL_BASE;
+    }
+    else {
+        $self->init_INSTALL_from_PREFIX;
+    }
+}
+
+
+
+sub init_INSTALL_from_PREFIX {
+    my $self = shift;
+
+    $self->init_lib2arch;
+
+    # There are often no Config.pm defaults for these new man variables so
+    # we fall back to the old behavior which is to use installman*dir
+    foreach my $num (1, 3) {
+        my $k = 'installsiteman'.$num.'dir';
+
+        $self->{uc $k} ||= uc "\$(installman${num}dir)"
+          unless $Config{$k};
+    }
+
+    foreach my $num (1, 3) {
+        my $k = 'installvendorman'.$num.'dir';
+
+        unless( $Config{$k} ) {
+            $self->{uc $k}  ||= $Config{usevendorprefix}
+                              ? uc "\$(installman${num}dir)"
+                              : '';
+        }
+    }
+
+    $self->{INSTALLSITEBIN} ||= '$(INSTALLBIN)'
+      unless $Config{installsitebin};
+    $self->{INSTALLSITESCRIPT} ||= '$(INSTALLSCRIPT)'
+      unless $Config{installsitescript};
+
+    unless( $Config{installvendorbin} ) {
+        $self->{INSTALLVENDORBIN} ||= $Config{usevendorprefix}
+                                    ? $Config{installbin}
+                                    : '';
+    }
+    unless( $Config{installvendorscript} ) {
+        $self->{INSTALLVENDORSCRIPT} ||= $Config{usevendorprefix}
+                                       ? $Config{installscript}
+                                       : '';
+    }
+
+
+    my $iprefix = $Config{installprefixexp} || $Config{installprefix} ||
+                  $Config{prefixexp}        || $Config{prefix} || '';
+    my $vprefix = $Config{usevendorprefix}  ? $Config{vendorprefixexp} : '';
+    my $sprefix = $Config{siteprefixexp}    || '';
+
+    # 5.005_03 doesn't have a siteprefix.
+    $sprefix = $iprefix unless $sprefix;
+
+
+    $self->{PREFIX}       ||= '';
+
+    if( $self->{PREFIX} ) {
+        @{$self}{qw(PERLPREFIX SITEPREFIX VENDORPREFIX)} =
+          ('$(PREFIX)') x 3;
+    }
+    else {
+        $self->{PERLPREFIX}   ||= $iprefix;
+        $self->{SITEPREFIX}   ||= $sprefix;
+        $self->{VENDORPREFIX} ||= $vprefix;
+
+        # Lots of MM extension authors like to use $(PREFIX) so we
+        # put something sensible in there no matter what.
+        $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)';
+    }
+
+    my $arch    = $Config{archname};
+    my $version = $Config{version};
+
+    # default style
+    my $libstyle = $Config{installstyle} || 'lib/perl5';
+    my $manstyle = '';
+
+    if( $self->{LIBSTYLE} ) {
+        $libstyle = $self->{LIBSTYLE};
+        $manstyle = $self->{LIBSTYLE} eq 'lib/perl5' ? 'lib/perl5' : '';
+    }
+
+    # Some systems, like VOS, set installman*dir to '' if they can't
+    # read man pages.
+    for my $num (1, 3) {
+        $self->{'INSTALLMAN'.$num.'DIR'} ||= 'none'
+          unless $Config{'installman'.$num.'dir'};
+    }
+
+    my %bin_layouts =
+    (
+        bin         => { s => $iprefix,
+                         t => 'perl',
+                         d => 'bin' },
+        vendorbin   => { s => $vprefix,
+                         t => 'vendor',
+                         d => 'bin' },
+        sitebin     => { s => $sprefix,
+                         t => 'site',
+                         d => 'bin' },
+        script      => { s => $iprefix,
+                         t => 'perl',
+                         d => 'bin' },
+        vendorscript=> { s => $vprefix,
+                         t => 'vendor',
+                         d => 'bin' },
+        sitescript  => { s => $sprefix,
+                         t => 'site',
+                         d => 'bin' },
+    );
+
+    my %man_layouts =
+    (
+        man1dir         => { s => $iprefix,
+                             t => 'perl',
+                             d => 'man/man1',
+                             style => $manstyle, },
+        siteman1dir     => { s => $sprefix,
+                             t => 'site',
+                             d => 'man/man1',
+                             style => $manstyle, },
+        vendorman1dir   => { s => $vprefix,
+                             t => 'vendor',
+                             d => 'man/man1',
+                             style => $manstyle, },
+
+        man3dir         => { s => $iprefix,
+                             t => 'perl',
+                             d => 'man/man3',
+                             style => $manstyle, },
+        siteman3dir     => { s => $sprefix,
+                             t => 'site',
+                             d => 'man/man3',
+                             style => $manstyle, },
+        vendorman3dir   => { s => $vprefix,
+                             t => 'vendor',
+                             d => 'man/man3',
+                             style => $manstyle, },
+    );
+
+    my %lib_layouts =
+    (
+        privlib     => { s => $iprefix,
+                         t => 'perl',
+                         d => '',
+                         style => $libstyle, },
+        vendorlib   => { s => $vprefix,
+                         t => 'vendor',
+                         d => '',
+                         style => $libstyle, },
+        sitelib     => { s => $sprefix,
+                         t => 'site',
+                         d => 'site_perl',
+                         style => $libstyle, },
+
+        archlib     => { s => $iprefix,
+                         t => 'perl',
+                         d => "$version/$arch",
+                         style => $libstyle },
+        vendorarch  => { s => $vprefix,
+                         t => 'vendor',
+                         d => "$version/$arch",
+                         style => $libstyle },
+        sitearch    => { s => $sprefix,
+                         t => 'site',
+                         d => "site_perl/$version/$arch",
+                         style => $libstyle },
+    );
+
+
+    # Special case for LIB.
+    if( $self->{LIB} ) {
+        foreach my $var (keys %lib_layouts) {
+            my $Installvar = uc "install$var";
+
+            if( $var =~ /arch/ ) {
+                $self->{$Installvar} ||=
+                  $self->catdir($self->{LIB}, $Config{archname});
+            }
+            else {
+                $self->{$Installvar} ||= $self->{LIB};
+            }
+        }
+    }
+
+    my %type2prefix = ( perl    => 'PERLPREFIX',
+                        site    => 'SITEPREFIX',
+                        vendor  => 'VENDORPREFIX'
+                      );
+
+    my %layouts = (%bin_layouts, %man_layouts, %lib_layouts);
+    while( my($var, $layout) = each(%layouts) ) {
+        my($s, $t, $d, $style) = @{$layout}{qw(s t d style)};
+        my $r = '$('.$type2prefix{$t}.')';
+
+        warn "Prefixing $var\n" if $Verbose >= 2;
+
+        my $installvar = "install$var";
+        my $Installvar = uc $installvar;
+        next if $self->{$Installvar};
+
+        $d = "$style/$d" if $style;
+        $self->prefixify($installvar, $s, $r, $d);
+
+        warn "  $Installvar == $self->{$Installvar}\n"
+          if $Verbose >= 2;
+    }
+
+    # Generate these if they weren't figured out.
+    $self->{VENDORARCHEXP} ||= $self->{INSTALLVENDORARCH};
+    $self->{VENDORLIBEXP}  ||= $self->{INSTALLVENDORLIB};
+
+    return 1;
+}
+
+
+
+my %map = (
+           lib      => [qw(lib perl5)],
+           arch     => [('lib', 'perl5', $Config{archname})],
+           bin      => [qw(bin)],
+           man1dir  => [qw(man man1)],
+           man3dir  => [qw(man man3)]
+          );
+$map{script} = $map{bin};
+
+sub init_INSTALL_from_INSTALL_BASE {
+    my $self = shift;
+
+    @{$self}{qw(PREFIX VENDORPREFIX SITEPREFIX PERLPREFIX)} =
+                                                         '$(INSTALL_BASE)';
+
+    my %install;
+    foreach my $thing (keys %map) {
+        foreach my $dir (('', 'SITE', 'VENDOR')) {
+            my $uc_thing = uc $thing;
+            my $key = "INSTALL".$dir.$uc_thing;
+
+            $install{$key} ||=
+              $self->catdir('$(INSTALL_BASE)', @{$map{$thing}});
+        }
+    }
+
+    # Adjust for variable quirks.
+    $install{INSTALLARCHLIB} ||= delete $install{INSTALLARCH};
+    $install{INSTALLPRIVLIB} ||= delete $install{INSTALLLIB};
+
+    foreach my $key (keys %install) {
+        $self->{$key} ||= $install{$key};
+    }
+
+    return 1;
+}
+
+
+
+sub init_VERSION {
+    my($self) = shift;
+
+    $self->{MAKEMAKER}  = $ExtUtils::MakeMaker::Filename;
+    $self->{MM_VERSION} = $ExtUtils::MakeMaker::VERSION;
+    $self->{MM_REVISION}= $ExtUtils::MakeMaker::Revision;
+    $self->{VERSION_FROM} ||= '';
+
+    if ($self->{VERSION_FROM}){
+        $self->{VERSION} = $self->parse_version($self->{VERSION_FROM});
+        if( $self->{VERSION} eq 'undef' ) {
+            carp("WARNING: Setting VERSION via file ".
+                 "'$self->{VERSION_FROM}' failed\n");
+        }
+    }
+
+    if (defined $self->{VERSION}) {
+        if ( $self->{VERSION} !~ /^\s*v?[\d_\.]+\s*$/ ) {
+          require version;
+          my $normal = eval { version->new( $self->{VERSION} ) };
+          $self->{VERSION} = $normal if defined $normal;
+        }
+        $self->{VERSION} =~ s/^\s+//;
+        $self->{VERSION} =~ s/\s+$//;
+    }
+    else {
+        $self->{VERSION} = '';
+    }
+
+
+    $self->{VERSION_MACRO}  = 'VERSION';
+    ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
+    $self->{DEFINE_VERSION} = '-D$(VERSION_MACRO)=\"$(VERSION)\"';
+
+
+    # Graham Barr and Paul Marquess had some ideas how to ensure
+    # version compatibility between the *.pm file and the
+    # corresponding *.xs file. The bottom line was, that we need an
+    # XS_VERSION macro that defaults to VERSION:
+    $self->{XS_VERSION} ||= $self->{VERSION};
+
+    $self->{XS_VERSION_MACRO}  = 'XS_VERSION';
+    $self->{XS_DEFINE_VERSION} = '-D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"';
+
+}
+
+
+
+sub init_tools {
+    my $self = shift;
+
+    $self->{ECHO}     ||= $self->oneliner('binmode STDOUT, qq{:raw}; print qq{@ARGV}', ['-l']);
+    $self->{ECHO_N}   ||= $self->oneliner('print qq{@ARGV}');
+
+    $self->{TOUCH}    ||= $self->oneliner('touch', ["-MExtUtils::Command"]);
+    $self->{CHMOD}    ||= $self->oneliner('chmod', ["-MExtUtils::Command"]);
+    $self->{RM_F}     ||= $self->oneliner('rm_f',  ["-MExtUtils::Command"]);
+    $self->{RM_RF}    ||= $self->oneliner('rm_rf', ["-MExtUtils::Command"]);
+    $self->{TEST_F}   ||= $self->oneliner('test_f', ["-MExtUtils::Command"]);
+    $self->{TEST_S}   ||= $self->oneliner('test_s', ["-MExtUtils::Command::MM"]);
+    $self->{CP_NONEMPTY} ||= $self->oneliner('cp_nonempty', ["-MExtUtils::Command::MM"]);
+    $self->{FALSE}    ||= $self->oneliner('exit 1');
+    $self->{TRUE}     ||= $self->oneliner('exit 0');
+
+    $self->{MKPATH}   ||= $self->oneliner('mkpath', ["-MExtUtils::Command"]);
+
+    $self->{CP}       ||= $self->oneliner('cp', ["-MExtUtils::Command"]);
+    $self->{MV}       ||= $self->oneliner('mv', ["-MExtUtils::Command"]);
+
+    $self->{MOD_INSTALL} ||=
+      $self->oneliner(<<'CODE', ['-MExtUtils::Install']);
+install([ from_to => {@ARGV}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]);
+CODE
+    $self->{DOC_INSTALL} ||= $self->oneliner('perllocal_install', ["-MExtUtils::Command::MM"]);
+    $self->{UNINSTALL}   ||= $self->oneliner('uninstall', ["-MExtUtils::Command::MM"]);
+    $self->{WARN_IF_OLD_PACKLIST} ||=
+      $self->oneliner('warn_if_old_packlist', ["-MExtUtils::Command::MM"]);
+    $self->{FIXIN}       ||= $self->oneliner('MY->fixin(shift)', ["-MExtUtils::MY"]);
+    $self->{EQUALIZE_TIMESTAMP} ||= $self->oneliner('eqtime', ["-MExtUtils::Command"]);
+
+    $self->{UNINST}     ||= 0;
+    $self->{VERBINST}   ||= 0;
+
+    $self->{SHELL}              ||= $Config{sh};
+
+    # UMASK_NULL is not used by MakeMaker but some CPAN modules
+    # make use of it.
+    $self->{UMASK_NULL}         ||= "umask 0";
+
+    # Not the greatest default, but its something.
+    $self->{DEV_NULL}           ||= "> /dev/null 2>&1";
+
+    $self->{NOOP}               ||= '$(TRUE)';
+    $self->{NOECHO}             = '@' unless defined $self->{NOECHO};
+
+    $self->{FIRST_MAKEFILE}     ||= $self->{MAKEFILE} || 'Makefile';
+    $self->{MAKEFILE}           ||= $self->{FIRST_MAKEFILE};
+    $self->{MAKEFILE_OLD}       ||= $self->{MAKEFILE}.'.old';
+    $self->{MAKE_APERL_FILE}    ||= $self->{MAKEFILE}.'.aperl';
+
+    # Not everybody uses -f to indicate "use this Makefile instead"
+    $self->{USEMAKEFILE}        ||= '-f';
+
+    # Some makes require a wrapper around macros passed in on the command
+    # line.
+    $self->{MACROSTART}         ||= '';
+    $self->{MACROEND}           ||= '';
+
+    return;
+}
+
+
+
+sub init_others {
+    my $self = shift;
+
+    $self->{LD_RUN_PATH} = "";
+
+    $self->{LIBS} = $self->_fix_libs($self->{LIBS});
+
+    # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
+    foreach my $libs ( @{$self->{LIBS}} ){
+        $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
+        my(@libs) = $self->extliblist($libs);
+        if ($libs[0] or $libs[1] or $libs[2]){
+            # LD_RUN_PATH now computed by ExtUtils::Liblist
+            ($self->{EXTRALIBS},  $self->{BSLOADLIBS},
+             $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
+            last;
+        }
+    }
+
+    if ( $self->{OBJECT} ) {
+        $self->{OBJECT} = join(" ", @{$self->{OBJECT}}) if ref $self->{OBJECT};
+        $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
+    } elsif ( ($self->{MAGICXS} || $self->{XSMULTI}) && @{$self->{O_FILES}||[]} ) {
+        $self->{OBJECT} = join(" ", @{$self->{O_FILES}});
+        $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
+    } else {
+        # init_dirscan should have found out, if we have C files
+        $self->{OBJECT} = "";
+        $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]};
+    }
+    $self->{OBJECT} =~ s/\n+/ \\\n\t/g;
+
+    $self->{BOOTDEP}  = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : "";
+    $self->{PERLMAINCC} ||= '$(CC)';
+    $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM};
+
+    # Sanity check: don't define LINKTYPE = dynamic if we're skipping
+    # the 'dynamic' section of MM.  We don't have this problem with
+    # 'static', since we either must use it (%Config says we can't
+    # use dynamic loading) or the caller asked for it explicitly.
+    if (!$self->{LINKTYPE}) {
+       $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'}
+                        ? 'static'
+                        : ($Config{usedl} ? 'dynamic' : 'static');
+    }
+
+    return;
+}
+
+
+# Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
+# undefined. In any case we turn it into an anon array
+sub _fix_libs {
+    my($self, $libs) = @_;
+
+    return !defined $libs       ? ['']          :
+           !ref $libs           ? [$libs]       :
+           !defined $libs->[0]  ? ['']          :
+                                  $libs         ;
+}
+
+
+
+sub tools_other {
+    my($self) = shift;
+    my @m;
+
+    # We set PM_FILTER as late as possible so it can see all the earlier
+    # on macro-order sensitive makes such as nmake.
+    for my $tool (qw{ SHELL CHMOD CP MV NOOP NOECHO RM_F RM_RF TEST_F TOUCH
+                      UMASK_NULL DEV_NULL MKPATH EQUALIZE_TIMESTAMP
+                      FALSE TRUE
+                      ECHO ECHO_N
+                      UNINST VERBINST
+                      MOD_INSTALL DOC_INSTALL UNINSTALL
+                      WARN_IF_OLD_PACKLIST
+                      MACROSTART MACROEND
+                      USEMAKEFILE
+                      PM_FILTER
+                      FIXIN
+                      CP_NONEMPTY
+                    } )
+    {
+        next unless defined $self->{$tool};
+        push @m, "$tool = $self->{$tool}\n";
+    }
+
+    return join "", @m;
+}
+
+
+
+sub init_platform {
+    return '';
+}
+
+
+
+sub init_MAKE {
+    my $self = shift;
+
+    $self->{MAKE} ||= $ENV{MAKE} || $Config{make};
+}
+
+
+
+sub manifypods {
+    my $self          = shift;
+
+    my $POD2MAN_macro = $self->POD2MAN_macro();
+    my $manifypods_target = $self->manifypods_target();
+
+    return <<END_OF_TARGET;
+
+$POD2MAN_macro
+
+$manifypods_target
+
+END_OF_TARGET
+
+}
+
+
+
+sub POD2MAN_macro {
+    my $self = shift;
+
+# Need the trailing '--' so perl stops gobbling arguments and - happens
+# to be an alternative end of line separator on VMS so we quote it
+    return <<'END_OF_DEF';
+POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
+POD2MAN = $(POD2MAN_EXE)
+END_OF_DEF
+}
+
+
+
+sub test_via_harness {
+    my($self, $perl, $tests) = @_;
+
+    return qq{\t$perl "-MExtUtils::Command::MM" "-MTest::Harness" }.
+           qq{"-e" "undef *Test::Harness::Switches; test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
+}
+
+
+sub test_via_script {
+    my($self, $perl, $script) = @_;
+    return qq{\t$perl "-I\$(INST_LIB)" "-I\$(INST_ARCHLIB)" $script\n};
+}
+
+
+
+sub tool_autosplit {
+    my($self, %attribs) = @_;
+
+    my $maxlen = $attribs{MAXLEN} ? '$$AutoSplit::Maxlen=$attribs{MAXLEN};'
+                                  : '';
+
+    my $asplit = $self->oneliner(sprintf <<'PERL_CODE', $maxlen);
+use AutoSplit; %s autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)
+PERL_CODE
+
+    return sprintf <<'MAKE_FRAG', $asplit;
+# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
+AUTOSPLITFILE = %s
+
+MAKE_FRAG
+
+}
+
+
+
+sub arch_check {
+    my $self = shift;
+    my($pconfig, $cconfig) = @_;
+
+    return 1 if $self->{PERL_SRC};
+
+    my($pvol, $pthinks) = $self->splitpath($pconfig);
+    my($cvol, $cthinks) = $self->splitpath($cconfig);
+
+    $pthinks = $self->canonpath($pthinks);
+    $cthinks = $self->canonpath($cthinks);
+
+    my $ret = 1;
+    if ($pthinks ne $cthinks) {
+        print "Have $pthinks\n";
+        print "Want $cthinks\n";
+
+        $ret = 0;
+
+        my $arch = (grep length, $self->splitdir($pthinks))[-1];
+
+        print <<END unless $self->{UNINSTALLED_PERL};
+Your perl and your Config.pm seem to have different ideas about the
+architecture they are running on.
+Perl thinks: [$arch]
+Config says: [$Config{archname}]
+This may or may not cause problems. Please check your installation of perl
+if you have problems building this extension.
+END
+    }
+
+    return $ret;
+}
+
+
+
+
+sub catfile {
+    my $self = shift;
+    return $self->canonpath($self->SUPER::catfile(@_));
+}
+
+
+
+
+sub find_tests {
+    my($self) = shift;
+    return -d 't' ? 't/*.t' : '';
+}
+
+
+sub find_tests_recursive {
+    my $self = shift;
+    return $self->find_tests_recursive_in('t');
+}
+
+
+sub find_tests_recursive_in {
+    my($self, $dir) = @_;
+    return '' unless -d $dir;
+
+    require File::Find;
+
+    my $base_depth = grep { $_ ne '' } File::Spec->splitdir( (File::Spec->splitpath($dir))[1] );
+    my %depths;
+
+    my $wanted = sub {
+        return unless m!\.t$!;
+        my ($volume,$directories,$file) =
+            File::Spec->splitpath( $File::Find::name  );
+        my $depth = grep { $_ ne '' } File::Spec->splitdir( $directories );
+        $depth -= $base_depth;
+        $depths{ $depth } = 1;
+    };
+
+    File::Find::find( $wanted, $dir );
+
+    return join ' ',
+        map { $dir . '/*' x $_ . '.t' }
+        sort { $a <=> $b }
+        keys %depths;
+}
+
+
+# An empty method here tickled a perl 5.8.1 bug and would return its object.
+sub extra_clean_files {
+    return;
+}
+
+
+
+sub installvars {
+    return qw(PRIVLIB SITELIB  VENDORLIB
+              ARCHLIB SITEARCH VENDORARCH
+              BIN     SITEBIN  VENDORBIN
+              SCRIPT  SITESCRIPT  VENDORSCRIPT
+              MAN1DIR SITEMAN1DIR VENDORMAN1DIR
+              MAN3DIR SITEMAN3DIR VENDORMAN3DIR
+             );
+}
+
+
+
+sub libscan {
+    my($self,$path) = @_;
+
+    if ($path =~ m<^README\.pod$>i) {
+        warn "WARNING: Older versions of ExtUtils::MakeMaker may errantly install $path as part of this distribution. It is recommended to avoid using this path in CPAN modules.\n"
+          unless $ENV{PERL_CORE};
+        return '';
+    }
+
+    my($dirs,$file) = ($self->splitpath($path))[1,2];
+    return '' if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/,
+                     $self->splitdir($dirs), $file;
+
+    return $path;
+}
+
+
+
+sub platform_constants {
+    return '';
+}
+
+
+sub post_constants {
+    "";
+}
+
+
+sub post_initialize {
+    "";
+}
+
+
+sub postamble {
+    "";
+}
+
+
+sub _PREREQ_PRINT {
+    my $self = shift;
+
+    require Data::Dumper;
+    my @what = ('PREREQ_PM');
+    push @what, 'MIN_PERL_VERSION' if $self->{MIN_PERL_VERSION};
+    push @what, 'BUILD_REQUIRES'   if $self->{BUILD_REQUIRES};
+    print Data::Dumper->Dump([@{$self}{@what}], \@what);
+    exit 0;
+}
+
+
+
+sub _PRINT_PREREQ {
+    my $self = shift;
+
+    my $prereqs= $self->{PREREQ_PM};
+    my @prereq = map { [$_, $prereqs->{$_}] } keys %$prereqs;
+
+    if ( $self->{MIN_PERL_VERSION} ) {
+        push @prereq, ['perl' => $self->{MIN_PERL_VERSION}];
+    }
+
+    print join(" ", map { "perl($_->[0])>=$_->[1] " }
+                 sort { $a->[0] cmp $b->[0] } @prereq), "\n";
+    exit 0;
+}
+
+
+
+sub _perl_header_files {
+    my $self = shift;
+
+    my $header_dir = $self->{PERL_SRC} || $ENV{PERL_SRC} || $self->catdir($Config{archlibexp}, 'CORE');
+    opendir my $dh, $header_dir
+        or die "Failed to opendir '$header_dir' to find header files: $!";
+
+    # we need to use a temporary here as the sort in scalar context would have undefined results.
+    my @perl_headers= sort grep { /\.h\z/ } readdir($dh);
+
+    closedir $dh;
+
+    return @perl_headers;
+}
+
+
+sub _perl_header_files_fragment {
+    my ($self, $separator)= @_;
+    $separator ||= "";
+    return join("\\\n",
+                "PERL_HDRS = ",
+                map {
+                    sprintf( "        \$(PERL_INCDEP)%s%s            ", $separator, $_ )
+                } $self->_perl_header_files()
+           ) . "\n\n"
+           . "\$(OBJECT) : \$(PERL_HDRS)\n";
+}
+
+
+
+1;
+package ExtUtils::MM_QNX;
+
+use strict;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+
+sub extra_clean_files {
+    my $self = shift;
+
+    my @errfiles = @{$self->{C}};
+    for ( @errfiles ) {
+	s/.c$/.err/;
+    }
+
+    return( @errfiles, 'perlmain.err' );
+}
+
+
+
+
+1;
+package ExtUtils::MM_VOS;
+
+use strict;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+
+sub extra_clean_files {
+    return qw(*.kp);
+}
+
+
+
+
+1;
+package ExtUtils::MM_Darwin;
+
+use strict;
+
+BEGIN {
+    require ExtUtils::MM_Unix;
+    our @ISA = qw( ExtUtils::MM_Unix );
+}
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+
+
+sub init_dist {
+    my $self = shift;
+
+    # Thank you, Apple, for breaking tar and then breaking the work around.
+    # 10.4 wants COPY_EXTENDED_ATTRIBUTES_DISABLE while 10.5 wants
+    # COPYFILE_DISABLE.  I'm not going to push my luck and instead just
+    # set both.
+    $self->{TAR} ||=
+        'COPY_EXTENDED_ATTRIBUTES_DISABLE=1 COPYFILE_DISABLE=1 tar';
+
+    $self->SUPER::init_dist(@_);
+}
+
+1;
+# $Id$
+package ExtUtils::MakeMaker;
+
+use strict;
+
+BEGIN {require 5.006;}
+
+require Exporter;
+use ExtUtils::MakeMaker::Config;
+use ExtUtils::MakeMaker::version; # ensure we always have our fake version.pm
+use Carp;
+use File::Path;
+my $CAN_DECODE = eval { require ExtUtils::MakeMaker::Locale; }; # 2 birds, 1 stone
+eval { ExtUtils::MakeMaker::Locale::reinit('UTF-8') }
+  if $CAN_DECODE and Encode::find_encoding('locale')->name eq 'ascii';
+
+our $Verbose = 0;       # exported
+our @Parent;            # needs to be localized
+our @Get_from_Config;   # referenced by MM_Unix
+our @MM_Sections;
+our @Overridable;
+my @Prepend_parent;
+my %Recognized_Att_Keys;
+our %macro_fsentity; # whether a macro is a filesystem name
+our %macro_dep; # whether a macro is a dependency
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
+
+# Emulate something resembling CVS $Revision$
+(our $Revision = $VERSION) =~ s{_}{};
+$Revision = int $Revision * 10000;
+
+our $Filename = __FILE__;   # referenced outside MakeMaker
+
+our @ISA = qw(Exporter);
+our @EXPORT    = qw(&WriteMakefile $Verbose &prompt &os_unsupported);
+our @EXPORT_OK = qw($VERSION &neatvalue &mkbootstrap &mksymlists
+                    &WriteEmptyMakefile &open_for_writing &write_file_via_tmp
+                    &_sprintf562);
+
+# These will go away once the last of the Win32 & VMS specific code is
+# purged.
+my $Is_VMS     = $^O eq 'VMS';
+my $Is_Win32   = $^O eq 'MSWin32';
+our $UNDER_CORE = $ENV{PERL_CORE}; # needs to be our
+
+full_setup();
+
+require ExtUtils::MM;  # Things like CPAN assume loading ExtUtils::MakeMaker
+                       # will give them MM.
+
+require ExtUtils::MY;  # XXX pre-5.8 versions of ExtUtils::Embed expect
+                       # loading ExtUtils::MakeMaker will give them MY.
+                       # This will go when Embed is its own CPAN module.
+
+
+# 5.6.2 can't do sprintf "%1$s" - this can only do %s
+sub _sprintf562 {
+    my ($format, @args) = @_;
+    for (my $i = 1; $i <= @args; $i++) {
+        $format =~ s#%$i\$s#$args[$i-1]#g;
+    }
+    $format;
+}
+
+sub WriteMakefile {
+    croak "WriteMakefile: Need even number of args" if @_ % 2;
+
+    require ExtUtils::MY;
+    my %att = @_;
+
+    _convert_compat_attrs(\%att);
+
+    _verify_att(\%att);
+
+    my $mm = MM->new(\%att);
+    $mm->flush;
+
+    return $mm;
+}
+
+
+# Basic signatures of the attributes WriteMakefile takes.  Each is the
+# reference type.  Empty value indicate it takes a non-reference
+# scalar.
+my %Att_Sigs;
+my %Special_Sigs = (
+ AUTHOR             => 'ARRAY',
+ C                  => 'ARRAY',
+ CONFIG             => 'ARRAY',
+ CONFIGURE          => 'CODE',
+ DIR                => 'ARRAY',
+ DL_FUNCS           => 'HASH',
+ DL_VARS            => 'ARRAY',
+ EXCLUDE_EXT        => 'ARRAY',
+ EXE_FILES          => 'ARRAY',
+ FUNCLIST           => 'ARRAY',
+ H                  => 'ARRAY',
+ IMPORTS            => 'HASH',
+ INCLUDE_EXT        => 'ARRAY',
+ LIBS               => ['ARRAY',''],
+ MAN1PODS           => 'HASH',
+ MAN3PODS           => 'HASH',
+ META_ADD           => 'HASH',
+ META_MERGE         => 'HASH',
+ OBJECT             => ['ARRAY', ''],
+ PL_FILES           => 'HASH',
+ PM                 => 'HASH',
+ PMLIBDIRS          => 'ARRAY',
+ PMLIBPARENTDIRS    => 'ARRAY',
+ PREREQ_PM          => 'HASH',
+ BUILD_REQUIRES     => 'HASH',
+ CONFIGURE_REQUIRES => 'HASH',
+ TEST_REQUIRES      => 'HASH',
+ SKIP               => 'ARRAY',
+ TYPEMAPS           => 'ARRAY',
+ XS                 => 'HASH',
+ XSBUILD            => 'HASH',
+ VERSION            => ['version',''],
+ _KEEP_AFTER_FLUSH  => '',
+
+ clean      => 'HASH',
+ depend     => 'HASH',
+ dist       => 'HASH',
+ dynamic_lib=> 'HASH',
+ linkext    => 'HASH',
+ macro      => 'HASH',
+ postamble  => 'HASH',
+ realclean  => 'HASH',
+ test       => 'HASH',
+ tool_autosplit => 'HASH',
+);
+
+@Att_Sigs{keys %Recognized_Att_Keys} = ('') x keys %Recognized_Att_Keys;
+@Att_Sigs{keys %Special_Sigs} = values %Special_Sigs;
+
+sub _convert_compat_attrs { #result of running several times should be same
+    my($att) = @_;
+    if (exists $att->{AUTHOR}) {
+        if ($att->{AUTHOR}) {
+            if (!ref($att->{AUTHOR})) {
+                my $t = $att->{AUTHOR};
+                $att->{AUTHOR} = [$t];
+            }
+        } else {
+                $att->{AUTHOR} = [];
+        }
+    }
+}
+
+sub _verify_att {
+    my($att) = @_;
+
+    foreach my $key (sort keys %$att) {
+        my $val = $att->{$key};
+        my $sig = $Att_Sigs{$key};
+        unless( defined $sig ) {
+            warn "WARNING: $key is not a known parameter.\n";
+            next;
+        }
+
+        my @sigs   = ref $sig ? @$sig : $sig;
+        my $given  = ref $val;
+        unless( grep { _is_of_type($val, $_) } @sigs ) {
+            my $takes = join " or ", map { _format_att($_) } @sigs;
+
+            my $has = _format_att($given);
+            warn "WARNING: $key takes a $takes not a $has.\n".
+                 "         Please inform the author.\n";
+        }
+    }
+}
+
+
+# Check if a given thing is a reference or instance of $type
+sub _is_of_type {
+    my($thing, $type) = @_;
+
+    return 1 if ref $thing eq $type;
+
+    local $SIG{__DIE__};
+    return 1 if eval{ $thing->isa($type) };
+
+    return 0;
+}
+
+
+sub _format_att {
+    my $given = shift;
+
+    return $given eq ''        ? "string/number"
+         : uc $given eq $given ? "$given reference"
+         :                       "$given object"
+         ;
+}
+
+
+sub prompt ($;$) {  ## no critic
+    my($mess, $def) = @_;
+    confess("prompt function called without an argument")
+        unless defined $mess;
+
+    my $isa_tty = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ;
+
+    my $dispdef = defined $def ? "[$def] " : " ";
+    $def = defined $def ? $def : "";
+
+    local $|=1;
+    local $\;
+    print "$mess $dispdef";
+
+    my $ans;
+    if ($ENV{PERL_MM_USE_DEFAULT} || (!$isa_tty && eof STDIN)) {
+        print "$def\n";
+    }
+    else {
+        $ans = <STDIN>;
+        if( defined $ans ) {
+            $ans =~ s{\015?\012$}{};
+        }
+        else { # user hit ctrl-D
+            print "\n";
+        }
+    }
+
+    return (!defined $ans || $ans eq '') ? $def : $ans;
+}
+
+sub os_unsupported {
+    die "OS unsupported\n";
+}
+
+sub eval_in_subdirs {
+    my($self) = @_;
+    use Cwd qw(cwd abs_path);
+    my $pwd = cwd() || die "Can't figure out your cwd!";
+
+    local @INC = map eval {abs_path($_) if -e} || $_, @INC;
+    push @INC, '.';     # '.' has to always be at the end of @INC
+
+    foreach my $dir (@{$self->{DIR}}){
+        my($abs) = $self->catdir($pwd,$dir);
+        eval { $self->eval_in_x($abs); };
+        last if $@;
+    }
+    chdir $pwd;
+    die $@ if $@;
+}
+
+sub eval_in_x {
+    my($self,$dir) = @_;
+    chdir $dir or carp("Couldn't change to directory $dir: $!");
+
+    {
+        package main;
+        do './Makefile.PL';
+    };
+    if ($@) {
+#         if ($@ =~ /prerequisites/) {
+#             die "MakeMaker WARNING: $@";
+#         } else {
+#             warn "WARNING from evaluation of $dir/Makefile.PL: $@";
+#         }
+        die "ERROR from evaluation of $dir/Makefile.PL: $@";
+    }
+}
+
+
+# package name for the classes into which the first object will be blessed
+my $PACKNAME = 'PACK000';
+
+sub full_setup {
+    $Verbose ||= 0;
+
+    my @dep_macros = qw/
+    PERL_INCDEP        PERL_ARCHLIBDEP     PERL_ARCHIVEDEP
+    /;
+
+    my @fs_macros = qw/
+    FULLPERL XSUBPPDIR
+
+    INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB INST_MAN1DIR INST_MAN3DIR
+    INSTALLDIRS
+    DESTDIR PREFIX INSTALL_BASE
+    PERLPREFIX      SITEPREFIX      VENDORPREFIX
+    INSTALLPRIVLIB  INSTALLSITELIB  INSTALLVENDORLIB
+    INSTALLARCHLIB  INSTALLSITEARCH INSTALLVENDORARCH
+    INSTALLBIN      INSTALLSITEBIN  INSTALLVENDORBIN
+    INSTALLMAN1DIR          INSTALLMAN3DIR
+    INSTALLSITEMAN1DIR      INSTALLSITEMAN3DIR
+    INSTALLVENDORMAN1DIR    INSTALLVENDORMAN3DIR
+    INSTALLSCRIPT   INSTALLSITESCRIPT  INSTALLVENDORSCRIPT
+    PERL_LIB        PERL_ARCHLIB
+    SITELIBEXP      SITEARCHEXP
+
+    MAKE LIBPERL_A LIB PERL_SRC PERL_INC
+    PPM_INSTALL_EXEC PPM_UNINSTALL_EXEC
+    PPM_INSTALL_SCRIPT PPM_UNINSTALL_SCRIPT
+    /;
+
+    my @attrib_help = qw/
+
+    AUTHOR ABSTRACT ABSTRACT_FROM BINARY_LOCATION
+    C CAPI CCFLAGS CONFIG CONFIGURE DEFINE DIR DISTNAME DISTVNAME
+    DL_FUNCS DL_VARS
+    EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE
+    FULLPERLRUN FULLPERLRUNINST
+    FUNCLIST H IMPORTS
+
+    INC INCLUDE_EXT LDFROM LIBS LICENSE
+    LINKTYPE MAKEAPERL MAKEFILE MAKEFILE_OLD MAN1PODS MAN3PODS MAP_TARGET
+    META_ADD META_MERGE MIN_PERL_VERSION BUILD_REQUIRES CONFIGURE_REQUIRES
+    MYEXTLIB NAME NEEDS_LINKING NOECHO NO_META NO_MYMETA NO_PACKLIST NO_PERLLOCAL
+    NORECURS NO_VC OBJECT OPTIMIZE PERL_MALLOC_OK PERL PERLMAINCC PERLRUN
+    PERLRUNINST PERL_CORE
+    PERM_DIR PERM_RW PERM_RWX MAGICXS
+    PL_FILES PM PM_FILTER PMLIBDIRS PMLIBPARENTDIRS POLLUTE
+    PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ
+    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS
+    XSBUILD XSMULTI XSOPT XSPROTOARG XS_VERSION
+    clean depend dist dynamic_lib linkext macro realclean tool_autosplit
+
+    MAN1EXT MAN3EXT
+
+    MACPERL_SRC MACPERL_LIB MACLIBS_68K MACLIBS_PPC MACLIBS_SC MACLIBS_MRC
+    MACLIBS_ALL_68K MACLIBS_ALL_PPC MACLIBS_SHARED
+        /;
+    push @attrib_help, @fs_macros;
+    @macro_fsentity{@fs_macros, @dep_macros} = (1) x (@fs_macros+@dep_macros);
+    @macro_dep{@dep_macros} = (1) x @dep_macros;
+
+    # IMPORTS is used under OS/2 and Win32
+
+    # @Overridable is close to @MM_Sections but not identical.  The
+    # order is important. Many subroutines declare macros. These
+    # depend on each other. Let's try to collect the macros up front,
+    # then pasthru, then the rules.
+
+    # MM_Sections are the sections we have to call explicitly
+    # in Overridable we have subroutines that are used indirectly
+
+
+    @MM_Sections =
+        qw(
+
+ post_initialize const_config constants platform_constants
+ tool_autosplit tool_xsubpp tools_other
+
+ makemakerdflt
+
+ dist macro depend cflags const_loadlibs const_cccmd
+ post_constants
+
+ pasthru
+
+ special_targets
+ c_o xs_c xs_o
+ top_targets blibdirs linkext dlsyms dynamic_bs dynamic
+ dynamic_lib static static_lib manifypods processPL
+ installbin subdirs
+ clean_subdirs clean realclean_subdirs realclean
+ metafile signature
+ dist_basics dist_core distdir dist_test dist_ci distmeta distsignature
+ install force perldepend makefile staticmake test ppd
+
+          ); # loses section ordering
+
+    @Overridable = @MM_Sections;
+    push @Overridable, qw[
+
+ libscan makeaperl needs_linking
+ subdir_x test_via_harness test_via_script
+
+ init_VERSION init_dist init_INST init_INSTALL init_DEST init_dirscan
+ init_PM init_MANPODS init_xs init_PERL init_DIRFILESEP init_linker
+                         ];
+
+    push @MM_Sections, qw[
+
+ pm_to_blib selfdocument
+
+                         ];
+
+    # Postamble needs to be the last that was always the case
+    push @MM_Sections, "postamble";
+    push @Overridable, "postamble";
+
+    # All sections are valid keys.
+    @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections;
+
+    # we will use all these variables in the Makefile
+    @Get_from_Config =
+        qw(
+           ar cc cccdlflags ccdlflags dlext dlsrc exe_ext full_ar ld
+           lddlflags ldflags libc lib_ext obj_ext osname osvers ranlib
+           sitelibexp sitearchexp so
+          );
+
+    # 5.5.3 doesn't have any concept of vendor libs
+    push @Get_from_Config, qw( vendorarchexp vendorlibexp ) if $] >= 5.006;
+
+    foreach my $item (@attrib_help){
+        $Recognized_Att_Keys{$item} = 1;
+    }
+    foreach my $item (@Get_from_Config) {
+        $Recognized_Att_Keys{uc $item} = $Config{$item};
+        print "Attribute '\U$item\E' => '$Config{$item}'\n"
+            if ($Verbose >= 2);
+    }
+
+    #
+    # When we eval a Makefile.PL in a subdirectory, that one will ask
+    # us (the parent) for the values and will prepend "..", so that
+    # all files to be installed end up below OUR ./blib
+    #
+    @Prepend_parent = qw(
+           INST_BIN INST_LIB INST_ARCHLIB INST_SCRIPT
+           MAP_TARGET INST_MAN1DIR INST_MAN3DIR PERL_SRC
+           PERL FULLPERL
+    );
+}
+
+sub _has_cpan_meta_requirements {
+    return eval {
+      require CPAN::Meta::Requirements;
+      CPAN::Meta::Requirements->VERSION(2.130);
+      require B; # CMR requires this, for core we have to too.
+    };
+}
+
+sub new {
+    my($class,$self) = @_;
+    my($key);
+
+    _convert_compat_attrs($self) if defined $self && $self;
+
+    # Store the original args passed to WriteMakefile()
+    foreach my $k (keys %$self) {
+        $self->{ARGS}{$k} = $self->{$k};
+    }
+
+    $self = {} unless defined $self;
+
+    # Temporarily bless it into MM so it can be used as an
+    # object.  It will be blessed into a temp package later.
+    bless $self, "MM";
+
+    # Cleanup all the module requirement bits
+    my %key2cmr;
+    for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) {
+        $self->{$key}      ||= {};
+        if (_has_cpan_meta_requirements) {
+            my $cmr = CPAN::Meta::Requirements->from_string_hash(
+                $self->{$key},
+                {
+                  bad_version_hook => sub {
+                    #no warnings 'numeric'; # module doesn't use warnings
+                    my $fallback;
+                    if ( $_[0] =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) {
+                      $fallback = sprintf "%f", $_[0];
+                    } else {
+                      ($fallback) = $_[0] ? ($_[0] =~ /^([0-9.]+)/) : 0;
+                      $fallback += 0;
+                      carp "Unparsable version '$_[0]' for prerequisite $_[1] treated as $fallback";
+                    }
+                    version->new($fallback);
+                  },
+                },
+            );
+            $self->{$key} = $cmr->as_string_hash;
+            $key2cmr{$key} = $cmr;
+        } else {
+            for my $module (sort keys %{ $self->{$key} }) {
+                my $version = $self->{$key}->{$module};
+                my $fallback = 0;
+                if (!defined($version) or !length($version)) {
+                    carp "Undefined requirement for $module treated as '0' (CPAN::Meta::Requirements not available)";
+                }
+                elsif ($version =~ /^\d+(?:\.\d+(?:_\d+)*)?$/) {
+                    next;
+                }
+                else {
+                    if ( $version =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) {
+                      $fallback = sprintf "%f", $version;
+                    } else {
+                      ($fallback) = $version ? ($version =~ /^([0-9.]+)/) : 0;
+                      $fallback += 0;
+                      carp "Unparsable version '$version' for prerequisite $module treated as $fallback (CPAN::Meta::Requirements not available)";
+                    }
+                }
+                $self->{$key}->{$module} = $fallback;
+            }
+        }
+    }
+
+    if ("@ARGV" =~ /\bPREREQ_PRINT\b/) {
+        $self->_PREREQ_PRINT;
+    }
+
+    # PRINT_PREREQ is RedHatism.
+    if ("@ARGV" =~ /\bPRINT_PREREQ\b/) {
+        $self->_PRINT_PREREQ;
+   }
+
+    print "MakeMaker (v$VERSION)\n" if $Verbose;
+    if (-f "MANIFEST" && ! -f "Makefile" && ! $UNDER_CORE){
+        check_manifest();
+    }
+
+    check_hints($self);
+
+    if ( defined $self->{MIN_PERL_VERSION}
+          && $self->{MIN_PERL_VERSION} !~ /^v?[\d_\.]+$/ ) {
+      require version;
+      my $normal = eval {
+        local $SIG{__WARN__} = sub {
+            # simulate "use warnings FATAL => 'all'" for vintage perls
+            die @_;
+        };
+        version->new( $self->{MIN_PERL_VERSION} )
+      };
+      $self->{MIN_PERL_VERSION} = $normal if defined $normal && !$@;
+    }
+
+    # Translate X.Y.Z to X.00Y00Z
+    if( defined $self->{MIN_PERL_VERSION} ) {
+        $self->{MIN_PERL_VERSION} =~ s{ ^v? (\d+) \. (\d+) \. (\d+) $ }
+                                      {sprintf "%d.%03d%03d", $1, $2, $3}ex;
+    }
+
+    my $perl_version_ok = eval {
+        local $SIG{__WARN__} = sub {
+            # simulate "use warnings FATAL => 'all'" for vintage perls
+            die @_;
+        };
+        !$self->{MIN_PERL_VERSION} or $self->{MIN_PERL_VERSION} <= $]
+    };
+    if (!$perl_version_ok) {
+        if (!defined $perl_version_ok) {
+            die <<'END';
+Warning: MIN_PERL_VERSION is not in a recognized format.
+Recommended is a quoted numerical value like '5.005' or '5.008001'.
+END
+        }
+        elsif ($self->{PREREQ_FATAL}) {
+            die sprintf <<"END", $self->{MIN_PERL_VERSION}, $];
+MakeMaker FATAL: perl version too low for this distribution.
+Required is %s. We run %s.
+END
+        }
+        else {
+            warn sprintf
+                "Warning: Perl version %s or higher required. We run %s.\n",
+                $self->{MIN_PERL_VERSION}, $];
+        }
+    }
+
+    my %configure_att;         # record &{$self->{CONFIGURE}} attributes
+    my(%initial_att) = %$self; # record initial attributes
+
+    my(%unsatisfied) = ();
+    my %prereq2version;
+    my $cmr;
+    if (_has_cpan_meta_requirements) {
+        $cmr = CPAN::Meta::Requirements->new;
+        for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) {
+            $cmr->add_requirements($key2cmr{$key}) if $key2cmr{$key};
+        }
+        foreach my $prereq ($cmr->required_modules) {
+            $prereq2version{$prereq} = $cmr->requirements_for_module($prereq);
+        }
+    } else {
+        for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) {
+            next unless my $module2version = $self->{$key};
+            $prereq2version{$_} = $module2version->{$_} for keys %$module2version;
+        }
+    }
+    foreach my $prereq (sort keys %prereq2version) {
+        my $required_version = $prereq2version{$prereq};
+
+        my $pr_version = 0;
+        my $installed_file;
+
+        if ( $prereq eq 'perl' ) {
+          if ( defined $required_version && $required_version =~ /^v?[\d_\.]+$/
+               || $required_version !~ /^v?[\d_\.]+$/ ) {
+            require version;
+            my $normal = eval { version->new( $required_version ) };
+            $required_version = $normal if defined $normal;
+          }
+          $installed_file = $prereq;
+          $pr_version = $];
+        }
+        else {
+          $installed_file = MM->_installed_file_for_module($prereq);
+          $pr_version = MM->parse_version($installed_file) if $installed_file;
+          $pr_version = 0 if $pr_version eq 'undef';
+          if ( !eval { version->new( $pr_version ); 1 } ) {
+            #no warnings 'numeric'; # module doesn't use warnings
+            my $fallback;
+            if ( $pr_version =~ m!^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$! ) {
+              $fallback = sprintf '%f', $pr_version;
+            } else {
+              ($fallback) = $pr_version ? ($pr_version =~ /^([0-9.]+)/) : 0;
+              $fallback += 0;
+              carp "Unparsable version '$pr_version' for installed prerequisite $prereq treated as $fallback";
+            }
+            $pr_version = $fallback;
+          }
+        }
+
+        # convert X.Y_Z alpha version #s to X.YZ for easier comparisons
+        $pr_version =~ s/(\d+)\.(\d+)_(\d+)/$1.$2$3/;
+
+        if (!$installed_file) {
+            warn sprintf "Warning: prerequisite %s %s not found.\n",
+              $prereq, $required_version
+                   unless $self->{PREREQ_FATAL}
+                       or $UNDER_CORE;
+
+            $unsatisfied{$prereq} = 'not installed';
+        }
+        elsif (
+            $cmr
+                ? !$cmr->accepts_module($prereq, $pr_version)
+                : $required_version > $pr_version
+        ) {
+            warn sprintf "Warning: prerequisite %s %s not found. We have %s.\n",
+              $prereq, $required_version, ($pr_version || 'unknown version')
+                  unless $self->{PREREQ_FATAL}
+                       or $UNDER_CORE;
+
+            $unsatisfied{$prereq} = $required_version || 'unknown version' ;
+        }
+    }
+
+    if (%unsatisfied && $self->{PREREQ_FATAL}){
+        my $failedprereqs = join "\n", map {"    $_ $unsatisfied{$_}"}
+                            sort { $a cmp $b } keys %unsatisfied;
+        die <<"END";
+MakeMaker FATAL: prerequisites not found.
+$failedprereqs
+
+Please install these modules first and rerun 'perl Makefile.PL'.
+END
+    }
+
+    if (defined $self->{CONFIGURE}) {
+        if (ref $self->{CONFIGURE} eq 'CODE') {
+            %configure_att = %{&{$self->{CONFIGURE}}};
+            _convert_compat_attrs(\%configure_att);
+            $self = { %$self, %configure_att };
+        } else {
+            croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
+        }
+    }
+
+    my $newclass = ++$PACKNAME;
+    local @Parent = @Parent;    # Protect against non-local exits
+    {
+        print "Blessing Object into class [$newclass]\n" if $Verbose>=2;
+        mv_all_methods("MY",$newclass);
+        bless $self, $newclass;
+        push @Parent, $self;
+        require ExtUtils::MY;
+
+        no strict 'refs';   ## no critic;
+        @{"$newclass\:\:ISA"} = 'MM';
+    }
+
+    if (defined $Parent[-2]){
+        $self->{PARENT} = $Parent[-2];
+        for my $key (@Prepend_parent) {
+            next unless defined $self->{PARENT}{$key};
+
+            # Don't stomp on WriteMakefile() args.
+            next if defined $self->{ARGS}{$key} and
+                    $self->{ARGS}{$key} eq $self->{$key};
+
+            $self->{$key} = $self->{PARENT}{$key};
+
+            if ($Is_VMS && $key =~ /PERL$/) {
+                # PERL or FULLPERL will be a command verb or even a
+                # command with an argument instead of a full file
+                # specification under VMS.  So, don't turn the command
+                # into a filespec, but do add a level to the path of
+                # the argument if not already absolute.
+                my @cmd = split /\s+/, $self->{$key};
+                $cmd[1] = $self->catfile('[-]',$cmd[1])
+                  unless (@cmd < 2) || $self->file_name_is_absolute($cmd[1]);
+                $self->{$key} = join(' ', @cmd);
+            } else {
+                my $value = $self->{$key};
+                # not going to test in FS so only stripping start
+                $value =~ s/^"// if $key =~ /PERL$/;
+                $value = $self->catdir("..", $value)
+                  unless $self->file_name_is_absolute($value);
+                $value = qq{"$value} if $key =~ /PERL$/;
+                $self->{$key} = $value;
+            }
+        }
+        if ($self->{PARENT}) {
+            $self->{PARENT}->{CHILDREN}->{$newclass} = $self;
+            foreach my $opt (qw(POLLUTE PERL_CORE LINKTYPE LD OPTIMIZE)) {
+                if (exists $self->{PARENT}->{$opt}
+                    and not exists $self->{$opt})
+                    {
+                        # inherit, but only if already unspecified
+                        $self->{$opt} = $self->{PARENT}->{$opt};
+                    }
+            }
+        }
+        my @fm = grep /^FIRST_MAKEFILE=/, @ARGV;
+        parse_args($self,@fm) if @fm;
+    }
+    else {
+        parse_args($self, _shellwords($ENV{PERL_MM_OPT} || ''),@ARGV);
+    }
+
+    # RT#91540 PREREQ_FATAL not recognized on command line
+    if (%unsatisfied && $self->{PREREQ_FATAL}){
+        my $failedprereqs = join "\n", map {"    $_ $unsatisfied{$_}"}
+                            sort { $a cmp $b } keys %unsatisfied;
+        die <<"END";
+MakeMaker FATAL: prerequisites not found.
+$failedprereqs
+
+Please install these modules first and rerun 'perl Makefile.PL'.
+END
+    }
+
+    $self->{NAME} ||= $self->guess_name;
+
+    warn "Warning: NAME must be a package name\n"
+      unless $self->{NAME} =~ m!^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$!;
+
+    ($self->{NAME_SYM} = $self->{NAME}) =~ s/\W+/_/g;
+
+    $self->init_MAKE;
+    $self->init_main;
+    $self->init_VERSION;
+    $self->init_dist;
+    $self->init_INST;
+    $self->init_INSTALL;
+    $self->init_DEST;
+    $self->init_dirscan;
+    $self->init_PM;
+    $self->init_MANPODS;
+    $self->init_xs;
+    $self->init_PERL;
+    $self->init_DIRFILESEP;
+    $self->init_linker;
+    $self->init_ABSTRACT;
+
+    $self->arch_check(
+        $INC{'Config.pm'},
+        $self->catfile($Config{'archlibexp'}, "Config.pm")
+    );
+
+    $self->init_tools();
+    $self->init_others();
+    $self->init_platform();
+    $self->init_PERM();
+    my @args = @ARGV;
+    @args = map { Encode::decode(locale => $_) } @args if $CAN_DECODE;
+    my($argv) = neatvalue(\@args);
+    $argv =~ s/^\[/(/;
+    $argv =~ s/\]$/)/;
+
+    push @{$self->{RESULT}}, <<END;
+# This Makefile is for the $self->{NAME} extension to perl.
+#
+# It was generated automatically by MakeMaker version
+# $VERSION (Revision: $Revision) from the contents of
+# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
+#
+#       ANY CHANGES MADE HERE WILL BE LOST!
+#
+#   MakeMaker ARGV: $argv
+#
+END
+
+    push @{$self->{RESULT}}, $self->_MakeMaker_Parameters_section(\%initial_att);
+
+    if (defined $self->{CONFIGURE}) {
+       push @{$self->{RESULT}}, <<END;
+
+#   MakeMaker 'CONFIGURE' Parameters:
+END
+        if (scalar(keys %configure_att) > 0) {
+            foreach my $key (sort keys %configure_att){
+               next if $key eq 'ARGS';
+               my($v) = neatvalue($configure_att{$key});
+               $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+               $v =~ tr/\n/ /s;
+               push @{$self->{RESULT}}, "#     $key => $v";
+            }
+        }
+        else
+        {
+           push @{$self->{RESULT}}, "# no values returned";
+        }
+        undef %configure_att;  # free memory
+    }
+
+    # turn the SKIP array into a SKIPHASH hash
+    for my $skip (@{$self->{SKIP} || []}) {
+        $self->{SKIPHASH}{$skip} = 1;
+    }
+    delete $self->{SKIP}; # free memory
+
+    if ($self->{PARENT}) {
+        for (qw/install dist dist_basics dist_core distdir dist_test dist_ci/) {
+            $self->{SKIPHASH}{$_} = 1;
+        }
+    }
+
+    # We run all the subdirectories now. They don't have much to query
+    # from the parent, but the parent has to query them: if they need linking!
+    unless ($self->{NORECURS}) {
+        $self->eval_in_subdirs if @{$self->{DIR}};
+    }
+
+    foreach my $section ( @MM_Sections ){
+        # Support for new foo_target() methods.
+        my $method = $section;
+        $method .= '_target' unless $self->can($method);
+
+        print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
+        my($skipit) = $self->skipcheck($section);
+        if ($skipit){
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
+        } else {
+            my(%a) = %{$self->{$section} || {}};
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
+            push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
+            push @{$self->{RESULT}}, $self->maketext_filter(
+                $self->$method( %a )
+            );
+        }
+    }
+
+    push @{$self->{RESULT}}, "\n# End.";
+
+    $self;
+}
+
+sub WriteEmptyMakefile {
+    croak "WriteEmptyMakefile: Need an even number of args" if @_ % 2;
+
+    my %att = @_;
+    $att{DIR} = [] unless $att{DIR}; # don't recurse by default
+    my $self = MM->new(\%att);
+
+    my $new = $self->{MAKEFILE};
+    my $old = $self->{MAKEFILE_OLD};
+    if (-f $old) {
+        _unlink($old) or warn "unlink $old: $!";
+    }
+    if ( -f $new ) {
+        _rename($new, $old) or warn "rename $new => $old: $!"
+    }
+    open my $mfh, '>', $new or die "open $new for write: $!";
+    print $mfh <<'EOP';
+all :
+
+manifypods :
+
+subdirs :
+
+dynamic :
+
+static :
+
+clean :
+
+install :
+
+makemakerdflt :
+
+test :
+
+test_dynamic :
+
+test_static :
+
+EOP
+    close $mfh or die "close $new for write: $!";
+}
+
+
+
+sub _installed_file_for_module {
+    my $class  = shift;
+    my $prereq = shift;
+
+    my $file = "$prereq.pm";
+    $file =~ s{::}{/}g;
+
+    my $path;
+    for my $dir (@INC) {
+        my $tmp = File::Spec->catfile($dir, $file);
+        if ( -r $tmp ) {
+            $path = $tmp;
+            last;
+        }
+    }
+
+    return $path;
+}
+
+
+# Extracted from MakeMaker->new so we can test it
+sub _MakeMaker_Parameters_section {
+    my $self = shift;
+    my $att  = shift;
+
+    my @result = <<'END';
+#   MakeMaker Parameters:
+END
+
+    foreach my $key (sort keys %$att){
+        next if $key eq 'ARGS';
+        my $v;
+        if ($key eq 'PREREQ_PM') {
+            # CPAN.pm takes prereqs from this field in 'Makefile'
+            # and does not know about BUILD_REQUIRES
+            $v = neatvalue({
+                %{ $att->{PREREQ_PM} || {} },
+                %{ $att->{BUILD_REQUIRES} || {} },
+                %{ $att->{TEST_REQUIRES} || {} },
+            });
+        } else {
+            $v = neatvalue($att->{$key});
+        }
+
+        $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+        $v =~ tr/\n/ /s;
+        push @result, "#     $key => $v";
+    }
+
+    return @result;
+}
+
+# _shellwords and _parseline borrowed from Text::ParseWords
+sub _shellwords {
+    my (@lines) = @_;
+    my @allwords;
+
+    foreach my $line (@lines) {
+      $line =~ s/^\s+//;
+      my @words = _parse_line('\s+', 0, $line);
+      pop @words if (@words and !defined $words[-1]);
+      return() unless (@words || !length($line));
+      push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+sub _parse_line {
+    my($delimiter, $keep, $line) = @_;
+    my($word, @pieces);
+
+    no warnings 'uninitialized';  # we will be testing undef strings
+
+    while (length($line)) {
+        # This pattern is optimised to be stack conservative on older perls.
+        # Do not refactor without being careful and testing it on very long strings.
+        # See Perl bug #42980 for an example of a stack busting input.
+        $line =~ s/^
+                    (?:
+                        # double quoted string
+                        (")                             # $quote
+                        ((?>[^\\"]*(?:\\.[^\\"]*)*))"   # $quoted
+        | # --OR--
+                        # singe quoted string
+                        (')                             # $quote
+                        ((?>[^\\']*(?:\\.[^\\']*)*))'   # $quoted
+                    |   # --OR--
+                        # unquoted string
+            (                               # $unquoted
+                            (?:\\.|[^\\"'])*?
+                        )
+                        # followed by
+            (                               # $delim
+                            \Z(?!\n)                    # EOL
+                        |   # --OR--
+                            (?-x:$delimiter)            # delimiter
+                        |   # --OR--
+                            (?!^)(?=["'])               # a quote
+                        )
+        )//xs or return;    # extended layout
+        my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6);
+
+
+  return() unless( defined($quote) || length($unquoted) || length($delim));
+
+        if ($keep) {
+      $quoted = "$quote$quoted$quote";
+  }
+        else {
+      $unquoted =~ s/\\(.)/$1/sg;
+      if (defined $quote) {
+    $quoted =~ s/\\(.)/$1/sg if ($quote eq '"');
+    #$quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+            }
+  }
+        $word .= substr($line, 0, 0); # leave results tainted
+        $word .= defined $quote ? $quoted : $unquoted;
+
+        if (length($delim)) {
+            push(@pieces, $word);
+            push(@pieces, $delim) if ($keep eq 'delimiters');
+            undef $word;
+        }
+        if (!length($line)) {
+            push(@pieces, $word);
+  }
+    }
+    return(@pieces);
+}
+
+sub check_manifest {
+    print "Checking if your kit is complete...\n";
+    require ExtUtils::Manifest;
+    # avoid warning
+    $ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1;
+    my(@missed) = ExtUtils::Manifest::manicheck();
+    if (@missed) {
+        print "Warning: the following files are missing in your kit:\n";
+        print "\t", join "\n\t", @missed;
+        print "\n";
+        print "Please inform the author.\n";
+    } else {
+        print "Looks good\n";
+    }
+}
+
+sub parse_args{
+    my($self, @args) = @_;
+    @args = map { Encode::decode(locale => $_) } @args if $CAN_DECODE;
+    foreach (@args) {
+        unless (m/(.*?)=(.*)/) {
+            ++$Verbose if m/^verb/;
+            next;
+        }
+        my($name, $value) = ($1, $2);
+        if ($value =~ m/^~(\w+)?/) { # tilde with optional username
+            $value =~ s [^~(\w*)]
+                [$1 ?
+                 ((getpwnam($1))[7] || "~$1") :
+                 (getpwuid($>))[7]
+                 ]ex;
+        }
+
+        # Remember the original args passed it.  It will be useful later.
+        $self->{ARGS}{uc $name} = $self->{uc $name} = $value;
+    }
+
+    # catch old-style 'potential_libs' and inform user how to 'upgrade'
+    if (defined $self->{potential_libs}){
+        my($msg)="'potential_libs' => '$self->{potential_libs}' should be";
+        if ($self->{potential_libs}){
+            print "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n";
+        } else {
+            print "$msg deleted.\n";
+        }
+        $self->{LIBS} = [$self->{potential_libs}];
+        delete $self->{potential_libs};
+    }
+    # catch old-style 'ARMAYBE' and inform user how to 'upgrade'
+    if (defined $self->{ARMAYBE}){
+        my($armaybe) = $self->{ARMAYBE};
+        print "ARMAYBE => '$armaybe' should be changed to:\n",
+                        "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n";
+        my(%dl) = %{$self->{dynamic_lib} || {}};
+        $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe};
+        delete $self->{ARMAYBE};
+    }
+    if (defined $self->{LDTARGET}){
+        print "LDTARGET should be changed to LDFROM\n";
+        $self->{LDFROM} = $self->{LDTARGET};
+        delete $self->{LDTARGET};
+    }
+    # Turn a DIR argument on the command line into an array
+    if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') {
+        # So they can choose from the command line, which extensions they want
+        # the grep enables them to have some colons too much in case they
+        # have to build a list with the shell
+        $self->{DIR} = [grep $_, split ":", $self->{DIR}];
+    }
+    # Turn a INCLUDE_EXT argument on the command line into an array
+    if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') {
+        $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
+    }
+    # Turn a EXCLUDE_EXT argument on the command line into an array
+    if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') {
+        $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
+    }
+
+    foreach my $mmkey (sort keys %$self){
+        next if $mmkey eq 'ARGS';
+        print "  $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
+        print "'$mmkey' is not a known MakeMaker parameter name.\n"
+            unless exists $Recognized_Att_Keys{$mmkey};
+    }
+    $| = 1 if $Verbose;
+}
+
+sub check_hints {
+    my($self) = @_;
+    # We allow extension-specific hints files.
+
+    require File::Spec;
+    my $curdir = File::Spec->curdir;
+
+    my $hint_dir = File::Spec->catdir($curdir, "hints");
+    return unless -d $hint_dir;
+
+    # First we look for the best hintsfile we have
+    my($hint)="${^O}_$Config{osvers}";
+    $hint =~ s/\./_/g;
+    $hint =~ s/_$//;
+    return unless $hint;
+
+    # Also try without trailing minor version numbers.
+    while (1) {
+        last if -f File::Spec->catfile($hint_dir, "$hint.pl");  # found
+    } continue {
+        last unless $hint =~ s/_[^_]*$//; # nothing to cut off
+    }
+    my $hint_file = File::Spec->catfile($hint_dir, "$hint.pl");
+
+    return unless -f $hint_file;    # really there
+
+    _run_hintfile($self, $hint_file);
+}
+
+sub _run_hintfile {
+    our $self;
+    local($self) = shift;       # make $self available to the hint file.
+    my($hint_file) = shift;
+
+    local($@, $!);
+    print "Processing hints file $hint_file\n" if $Verbose;
+
+    # Just in case the ./ isn't on the hint file, which File::Spec can
+    # often strip off, we bung the curdir into @INC
+    local @INC = (File::Spec->curdir, @INC);
+    my $ret = do $hint_file;
+    if( !defined $ret ) {
+        my $error = $@ || $!;
+        warn $error;
+    }
+}
+
+sub mv_all_methods {
+    my($from,$to) = @_;
+    local $SIG{__WARN__} = sub {
+        # can't use 'no warnings redefined', 5.6 only
+        warn @_ unless $_[0] =~ /^Subroutine .* redefined/
+    };
+    foreach my $method (@Overridable) {
+        next unless defined &{"${from}::$method"};
+        no strict 'refs';   ## no critic
+        *{"${to}::$method"} = \&{"${from}::$method"};
+
+        # If we delete a method, then it will be undefined and cannot
+        # be called.  But as long as we have Makefile.PLs that rely on
+        # %MY:: being intact, we have to fill the hole with an
+        # inheriting method:
+
+        {
+            package MY;
+            my $super = "SUPER::".$method;
+            *{$method} = sub {
+                shift->$super(@_);
+            };
+        }
+    }
+}
+
+sub skipcheck {
+    my($self) = shift;
+    my($section) = @_;
+    return 'skipped' if $section eq 'metafile' && $UNDER_CORE;
+    if ($section eq 'dynamic') {
+        print "Warning (non-fatal): Target 'dynamic' depends on targets ",
+        "in skipped section 'dynamic_bs'\n"
+            if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
+        print "Warning (non-fatal): Target 'dynamic' depends on targets ",
+        "in skipped section 'dynamic_lib'\n"
+            if $self->{SKIPHASH}{dynamic_lib} && $Verbose;
+    }
+    if ($section eq 'dynamic_lib') {
+        print "Warning (non-fatal): Target '\$(INST_DYNAMIC)' depends on ",
+        "targets in skipped section 'dynamic_bs'\n"
+            if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
+    }
+    if ($section eq 'static') {
+        print "Warning (non-fatal): Target 'static' depends on targets ",
+        "in skipped section 'static_lib'\n"
+            if $self->{SKIPHASH}{static_lib} && $Verbose;
+    }
+    return 'skipped' if $self->{SKIPHASH}{$section};
+    return '';
+}
+
+# returns filehandle, dies on fail. :raw so no :crlf
+sub open_for_writing {
+    my ($file) = @_;
+    open my $fh ,">", $file or die "Unable to open $file: $!";
+    my @layers = ':raw';
+    push @layers, join ' ', ':encoding(locale)' if $CAN_DECODE;
+    binmode $fh, join ' ', @layers;
+    $fh;
+}
+
+sub flush {
+    my $self = shift;
+
+    my $finalname = $self->{MAKEFILE};
+    printf "Generating a %s %s\n", $self->make_type, $finalname if $Verbose || !$self->{PARENT};
+    print "Writing $finalname for $self->{NAME}\n" if $Verbose || !$self->{PARENT};
+
+    unlink($finalname, "MakeMaker.tmp", $Is_VMS ? 'Descrip.MMS' : ());
+
+    write_file_via_tmp($finalname, $self->{RESULT});
+
+    # Write MYMETA.yml to communicate metadata up to the CPAN clients
+    print "Writing MYMETA.yml and MYMETA.json\n"
+      if !$self->{NO_MYMETA} and $self->write_mymeta( $self->mymeta );
+
+    # save memory
+    if ($self->{PARENT} && !$self->{_KEEP_AFTER_FLUSH}) {
+        my %keep = map { ($_ => 1) } qw(NEEDS_LINKING HAS_LINK_CODE);
+        delete $self->{$_} for grep !$keep{$_}, keys %$self;
+    }
+
+    system("$Config::Config{eunicefix} $finalname")
+      if $Config::Config{eunicefix} ne ":";
+
+    return;
+}
+
+sub write_file_via_tmp {
+    my ($finalname, $contents) = @_;
+    my $fh = open_for_writing("MakeMaker.tmp");
+    die "write_file_via_tmp: 2nd arg must be ref" unless ref $contents;
+    for my $chunk (@$contents) {
+        my $to_write = $chunk;
+        utf8::encode $to_write if !$CAN_DECODE && $] > 5.008;
+        print $fh "$to_write\n" or die "Can't write to MakeMaker.tmp: $!";
+    }
+    close $fh or die "Can't write to MakeMaker.tmp: $!";
+    _rename("MakeMaker.tmp", $finalname) or
+      warn "rename MakeMaker.tmp => $finalname: $!";
+    chmod 0644, $finalname if !$Is_VMS;
+    return;
+}
+
+# This is a rename for OS's where the target must be unlinked first.
+sub _rename {
+    my($src, $dest) = @_;
+    _unlink($dest);
+    return rename $src, $dest;
+}
+
+# This is an unlink for OS's where the target must be writable first.
+sub _unlink {
+    my @files = @_;
+    chmod 0666, @files;
+    return unlink @files;
+}
+
+
+# The following mkbootstrap() is only for installations that are calling
+# the pre-4.1 mkbootstrap() from their old Makefiles. This MakeMaker
+# writes Makefiles, that use ExtUtils::Mkbootstrap directly.
+sub mkbootstrap {
+    die <<END;
+!!! Your Makefile has been built such a long time ago, !!!
+!!! that is unlikely to work with current MakeMaker.   !!!
+!!! Please rebuild your Makefile                       !!!
+END
+}
+
+# Ditto for mksymlists() as of MakeMaker 5.17
+sub mksymlists {
+    die <<END;
+!!! Your Makefile has been built such a long time ago, !!!
+!!! that is unlikely to work with current MakeMaker.   !!!
+!!! Please rebuild your Makefile                       !!!
+END
+}
+
+sub neatvalue {
+    my($v) = @_;
+    return "undef" unless defined $v;
+    my($t) = ref $v;
+    return "q[$v]" unless $t;
+    if ($t eq 'ARRAY') {
+        my(@m, @neat);
+        push @m, "[";
+        foreach my $elem (@$v) {
+            push @neat, "q[$elem]";
+        }
+        push @m, join ", ", @neat;
+        push @m, "]";
+        return join "", @m;
+    }
+    return $v unless $t eq 'HASH';
+    my(@m, $key, $val);
+    for my $key (sort keys %$v) {
+        last unless defined $key; # cautious programming in case (undef,undef) is true
+        push @m,"$key=>".neatvalue($v->{$key});
+    }
+    return "{ ".join(', ',@m)." }";
+}
+
+sub _find_magic_vstring {
+    my $value = shift;
+    return $value if $UNDER_CORE;
+    my $tvalue = '';
+    require B;
+    my $sv = B::svref_2object(\$value);
+    my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
+    while ( $magic ) {
+        if ( $magic->TYPE eq 'V' ) {
+            $tvalue = $magic->PTR;
+            $tvalue =~ s/^v?(.+)$/v$1/;
+            last;
+        }
+        else {
+            $magic = $magic->MOREMAGIC;
+        }
+    }
+    return $tvalue;
+}
+
+sub selfdocument {
+    my($self) = @_;
+    my(@m);
+    if ($Verbose){
+        push @m, "\n# Full list of MakeMaker attribute values:";
+        foreach my $key (sort keys %$self){
+            next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/;
+            my($v) = neatvalue($self->{$key});
+            $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+            $v =~ tr/\n/ /s;
+            push @m, "# $key => $v";
+        }
+    }
+    # added here as selfdocument is not overridable
+    push @m, <<'EOF';
+
+# here so even if top_targets is overridden, these will still be defined
+# gmake will silently still work if any are .PHONY-ed but nmake won't
+EOF
+    push @m, join "\n", map "$_ ::\n\t\$(NOECHO) \$(NOOP)\n",
+        # config is so manifypods won't puke if no subdirs
+        grep !$self->{SKIPHASH}{$_},
+        qw(static dynamic config);
+    join "\n", @m;
+}
+
+1;
+
+__END__
+
+package ExtUtils::Liblist;
+
+use strict;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use File::Spec;
+require ExtUtils::Liblist::Kid;
+our @ISA = qw(ExtUtils::Liblist::Kid File::Spec);
+
+# Backwards compatibility with old interface.
+sub ext {
+    goto &ExtUtils::Liblist::Kid::ext;
+}
+
+sub lsdir {
+  shift;
+  my $rex = qr/$_[1]/;
+  opendir my $dir_fh, $_[0];
+  my @out = grep /$rex/, readdir $dir_fh;
+  closedir $dir_fh;
+  return @out;
+}
+
+__END__
+
+
+package ExtUtils::Installed;
+
+use 5.00503;
+use strict;
+#use warnings; # XXX requires 5.6
+use Carp qw();
+use ExtUtils::Packlist;
+use ExtUtils::MakeMaker;
+use Config;
+use File::Find;
+use File::Basename;
+use File::Spec;
+
+my $Is_VMS = $^O eq 'VMS';
+my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/);
+
+require VMS::Filespec if $Is_VMS;
+
+use vars qw($VERSION);
+$VERSION = '2.14';
+$VERSION = eval $VERSION;
+
+sub _is_prefix {
+    my ($self, $path, $prefix) = @_;
+    return unless defined $prefix && defined $path;
+
+    if( $Is_VMS ) {
+        $prefix = VMS::Filespec::unixify($prefix);
+        $path   = VMS::Filespec::unixify($path);
+    }
+
+    # Unix path normalization.
+    $prefix = File::Spec->canonpath($prefix);
+
+    return 1 if substr($path, 0, length($prefix)) eq $prefix;
+
+    if ($DOSISH) {
+        $path =~ s|\\|/|g;
+        $prefix =~ s|\\|/|g;
+        return 1 if $path =~ m{^\Q$prefix\E}i;
+    }
+    return(0);
+}
+
+sub _is_doc {
+    my ($self, $path) = @_;
+
+    my $man1dir = $self->{':private:'}{Config}{man1direxp};
+    my $man3dir = $self->{':private:'}{Config}{man3direxp};
+    return(($man1dir && $self->_is_prefix($path, $man1dir))
+           ||
+           ($man3dir && $self->_is_prefix($path, $man3dir))
+           ? 1 : 0)
+}
+
+sub _is_type {
+    my ($self, $path, $type) = @_;
+    return 1 if $type eq "all";
+
+    return($self->_is_doc($path)) if $type eq "doc";
+    my $conf= $self->{':private:'}{Config};
+    if ($type eq "prog") {
+        return($self->_is_prefix($path, $conf->{prefix} || $conf->{prefixexp})
+               && !($self->_is_doc($path)) ? 1 : 0);
+    }
+    return(0);
+}
+
+sub _is_under {
+    my ($self, $path, @under) = @_;
+    $under[0] = "" if (! @under);
+    foreach my $dir (@under) {
+        return(1) if ($self->_is_prefix($path, $dir));
+    }
+
+    return(0);
+}
+
+sub _fix_dirs {
+    my ($self, @dirs)= @_;
+    # File::Find does not know how to deal with VMS filepaths.
+    if( $Is_VMS ) {
+        $_ = VMS::Filespec::unixify($_)
+            for @dirs;
+    }
+
+    if ($DOSISH) {
+        s|\\|/|g for @dirs;
+    }
+    return wantarray ? @dirs : $dirs[0];
+}
+
+sub _make_entry {
+    my ($self, $module, $packlist_file, $modfile)= @_;
+
+    my $data= {
+        module => $module,
+        packlist => scalar(ExtUtils::Packlist->new($packlist_file)),
+        packlist_file => $packlist_file,
+    };
+
+    if (!$modfile) {
+        $data->{version} = $self->{':private:'}{Config}{version};
+    } else {
+        $data->{modfile} = $modfile;
+        # Find the top-level module file in @INC
+        $data->{version} = '';
+        foreach my $dir (@{$self->{':private:'}{INC}}) {
+            my $p = File::Spec->catfile($dir, $modfile);
+            if (-r $p) {
+                $module = _module_name($p, $module) if $Is_VMS;
+
+                $data->{version} = MM->parse_version($p);
+                $data->{version_from} = $p;
+                $data->{packlist_valid} = exists $data->{packlist}{$p};
+                last;
+            }
+        }
+    }
+    $self->{$module}= $data;
+}
+
+our $INSTALLED;
+sub new {
+    my ($class) = shift(@_);
+    $class = ref($class) || $class;
+
+    my %args = @_;
+
+    return $INSTALLED if $INSTALLED and ($args{default_get} || $args{default});
+
+    my $self = bless {}, $class;
+
+    $INSTALLED= $self if $args{default_set} || $args{default};
+
+
+    if ($args{config_override}) {
+        eval {
+            $self->{':private:'}{Config} = { %{$args{config_override}} };
+        } or Carp::croak(
+            "The 'config_override' parameter must be a hash reference."
+        );
+    }
+    else {
+        $self->{':private:'}{Config} = \%Config;
+    }
+
+    for my $tuple ([inc_override => INC => [ @INC ] ],
+                   [ extra_libs => EXTRA => [] ])
+    {
+        my ($arg,$key,$val)=@$tuple;
+        if ( $args{$arg} ) {
+            eval {
+                $self->{':private:'}{$key} = [ @{$args{$arg}} ];
+            } or Carp::croak(
+                "The '$arg' parameter must be an array reference."
+            );
+        }
+        elsif ($val) {
+            $self->{':private:'}{$key} = $val;
+        }
+    }
+    {
+        my %dupe;
+        @{$self->{':private:'}{LIBDIRS}} =
+            grep { $_ ne '.' || ! $args{skip_cwd} }
+            grep { -e $_ && !$dupe{$_}++ }
+            @{$self->{':private:'}{EXTRA}}, @{$self->{':private:'}{INC}};
+    }
+
+    my @dirs= $self->_fix_dirs(@{$self->{':private:'}{LIBDIRS}});
+
+    # Read the core packlist
+    my $archlib = $self->_fix_dirs($self->{':private:'}{Config}{archlibexp});
+    $self->_make_entry("Perl",File::Spec->catfile($archlib, '.packlist'));
+
+    my $root;
+    # Read the module packlists
+    my $sub = sub {
+        # Only process module .packlists
+        return if $_ ne ".packlist" || $File::Find::dir eq $archlib;
+
+        # Hack of the leading bits of the paths & convert to a module name
+        my $module = $File::Find::name;
+        my $found = $module =~ s!^.*?/auto/(.*)/.packlist!$1!s
+            or do {
+            # warn "Woah! \$_=$_\n\$module=$module\n\$File::Find::dir=$File::Find::dir\n",
+            #    join ("\n",@dirs);
+            return;
+        };
+
+        my $modfile = "$module.pm";
+        $module =~ s!/!::!g;
+
+        return if $self->{$module}; #shadowing?
+        $self->_make_entry($module,$File::Find::name,$modfile);
+    };
+    while (@dirs) {
+        $root= shift @dirs;
+        next if !-d $root;
+        find($sub,$root);
+    }
+
+    return $self;
+}
+
+# VMS's non-case preserving file-system means the package name can't
+# be reconstructed from the filename.
+sub _module_name {
+    my($file, $orig_module) = @_;
+
+    my $module = '';
+    if (open PACKFH, $file) {
+        while (<PACKFH>) {
+            if (/package\s+(\S+)\s*;/) {
+                my $pack = $1;
+                # Make a sanity check, that lower case $module
+                # is identical to lowercase $pack before
+                # accepting it
+                if (lc($pack) eq lc($orig_module)) {
+                    $module = $pack;
+                    last;
+                }
+            }
+        }
+        close PACKFH;
+    }
+
+    print STDERR "Couldn't figure out the package name for $file\n"
+      unless $module;
+
+    return $module;
+}
+
+sub modules {
+    my ($self) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+
+    # Bug/feature of sort in scalar context requires this.
+    return wantarray
+        ? sort grep { not /^:private:$/ } keys %$self
+        : grep { not /^:private:$/ } keys %$self;
+}
+
+sub files {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+
+    # Validate arguments
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    $type = "all" if (! defined($type));
+    Carp::croak('type must be "all", "prog" or "doc"')
+        if ($type ne "all" && $type ne "prog" && $type ne "doc");
+
+    my (@files);
+    foreach my $file (keys(%{$self->{$module}{packlist}})) {
+        push(@files, $file)
+          if ($self->_is_type($file, $type) &&
+              $self->_is_under($file, @under));
+    }
+    return(@files);
+}
+
+sub directories {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    my (%dirs);
+    foreach my $file ($self->files($module, $type, @under)) {
+        $dirs{dirname($file)}++;
+    }
+    return sort keys %dirs;
+}
+
+sub directory_tree {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    my (%dirs);
+    foreach my $dir ($self->directories($module, $type, @under)) {
+        $dirs{$dir}++;
+        my ($last) = ("");
+        while ($last ne $dir) {
+            $last = $dir;
+            $dir = dirname($dir);
+            last if !$self->_is_under($dir, @under);
+            $dirs{$dir}++;
+        }
+    }
+    return(sort(keys(%dirs)));
+}
+
+sub validate {
+    my ($self, $module, $remove) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{packlist}->validate($remove));
+}
+
+sub packlist {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{packlist});
+}
+
+sub version {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{version});
+}
+
+sub debug_dump {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    local $self->{":private:"}{Config};
+    require Data::Dumper;
+    print Data::Dumper->new([$self])->Sortkeys(1)->Indent(1)->Dump();
+}
+
+
+1;
+
+__END__
+
+package ExtUtils::MM_MacOS;
+
+use strict;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+sub new {
+    die 'MacOS Classic (MacPerl) is no longer supported by MakeMaker';
+}
+
+
+1;
+#!./perl -w
+package ExtUtils::Miniperl;
+use strict;
+require Exporter;
+use ExtUtils::Embed 1.31, qw(xsi_header xsi_protos xsi_body);
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(writemain);
+our $VERSION = '1.08';
+
+# blead will run this with miniperl, hence we can't use autodie or File::Temp
+my $temp;
+
+END {
+    return if !defined $temp || !-e $temp;
+    unlink $temp or warn "Can't unlink '$temp': $!";
+}
+
+sub writemain{
+    my ($fh, $real);
+
+    if (ref $_[0] eq 'SCALAR') {
+        $real = ${+shift};
+        $temp = $real;
+        $temp =~ s/(?:.c)?\z/.new/;
+        open $fh, '>', $temp
+            or die "Can't open '$temp' for writing: $!";
+    } elsif (ref $_[0]) {
+        $fh = shift;
+    } else {
+        $fh = \*STDOUT;
+    }
+
+    my(@exts) = @_;
+
+    printf $fh <<'EOF!HEAD', xsi_header();
+/*    miniperlmain.c or perlmain.c - a generated file
+ *
+ *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
+ *    2004, 2005, 2006, 2007, 2016 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ *      The Road goes ever on and on
+ *          Down from the door where it began.
+ *
+ *     [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ *     [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
+ */
+
+/* This file contains the main() function for the perl interpreter.
+ * Note that miniperlmain.c contains main() for the 'miniperl' binary,
+ * while perlmain.c contains main() for the 'perl' binary. The typical
+ * difference being that the latter includes Dynaloader.
+ *
+ * Miniperl is like perl except that it does not support dynamic loading,
+ * and in fact is used to build the dynamic modules needed for the 'real'
+ * perl executable.
+ *
+ * The content of the body of this generated file is mostly contained
+ * in Miniperl.pm - edit that file if you want to change anything.
+ * miniperlmain.c is generated by running regen/miniperlmain.pl.pl, while
+ * perlmain.c is built automatically by Makefile (so the former is
+ * included in the tarball while the latter isn't).
+ */
+
+#ifdef OEMVS
+#ifdef MYMALLOC
+/* sbrk is limited to first heap segment so make it big */
+#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
+#else
+#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
+#endif
+#endif
+
+#define PERL_IN_MINIPERLMAIN_C
+%s
+static void xs_init (pTHX);
+static PerlInterpreter *my_perl;
+
+#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
+/* The static struct perl_vars* may seem counterproductive since the
+ * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note
+ * that this static is not in the shared perl library, the globals PL_Vars
+ * and PL_VarsPtr will stay away. */
+static struct perl_vars* my_plvarsp;
+struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
+#endif
+
+#ifdef NO_ENV_ARRAY_IN_MAIN
+extern char **environ;
+int
+main(int argc, char **argv)
+#else
+int
+main(int argc, char **argv, char **env)
+#endif
+{
+    int exitstatus, i;
+#ifdef PERL_GLOBAL_STRUCT
+    struct perl_vars *my_vars = init_global_struct();
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    int veto;
+
+    my_plvarsp = my_vars;
+#  endif
+#endif /* PERL_GLOBAL_STRUCT */
+#ifndef NO_ENV_ARRAY_IN_MAIN
+    PERL_UNUSED_ARG(env);
+#endif
+#ifndef PERL_USE_SAFE_PUTENV
+    PL_use_safe_putenv = FALSE;
+#endif /* PERL_USE_SAFE_PUTENV */
+
+    /* if user wants control of gprof profiling off by default */
+    /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
+    PERL_GPROF_MONCONTROL(0);
+
+#ifdef NO_ENV_ARRAY_IN_MAIN
+    PERL_SYS_INIT3(&argc,&argv,&environ);
+#else
+    PERL_SYS_INIT3(&argc,&argv,&env);
+#endif
+
+#if defined(USE_ITHREADS)
+    /* XXX Ideally, this should really be happening in perl_alloc() or
+     * perl_construct() to keep libperl.a transparently fork()-safe.
+     * It is currently done here only because Apache/mod_perl have
+     * problems due to lack of a call to cancel pthread_atfork()
+     * handlers when shared objects that contain the handlers may
+     * be dlclose()d.  This forces applications that embed perl to
+     * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
+     * been called at least once before in the current process.
+     * --GSAR 2001-07-20 */
+    PTHREAD_ATFORK(Perl_atfork_lock,
+                   Perl_atfork_unlock,
+                   Perl_atfork_unlock);
+#endif
+
+    PERL_SYS_FPU_INIT;
+
+    if (!PL_do_undump) {
+	my_perl = perl_alloc();
+	if (!my_perl)
+	    exit(1);
+	perl_construct(my_perl);
+	PL_perl_destruct_level = 0;
+    }
+    PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+    if (!perl_parse(my_perl, xs_init, argc, argv, (char **)NULL))
+        perl_run(my_perl);
+
+#ifndef PERL_MICRO
+    /* Unregister our signal handler before destroying my_perl */
+    for (i = 1; PL_sig_name[i]; i++) {
+	if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
+	    rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
+	}
+    }
+#endif
+
+    exitstatus = perl_destruct(my_perl);
+
+    perl_free(my_perl);
+
+#if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN)
+    /*
+     * The old environment may have been freed by perl_free()
+     * when PERL_TRACK_MEMPOOL is defined, but without having
+     * been restored by perl_destruct() before (this is only
+     * done if destruct_level > 0).
+     *
+     * It is important to have a valid environment for atexit()
+     * routines that are eventually called.
+     */
+    environ = env;
+#endif
+
+    PERL_SYS_TERM();
+
+#ifdef PERL_GLOBAL_STRUCT
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    veto = my_plvarsp->Gveto_cleanup;
+#  endif
+    free_global_struct(my_vars);
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    if (!veto)
+        my_plvarsp = NULL;
+    /* Remember, functions registered with atexit() can run after this point,
+       and may access "global" variables, and hence end up calling
+       Perl_GetVarsPrivate()  */
+#endif
+#endif /* PERL_GLOBAL_STRUCT */
+
+    exit(exitstatus);
+}
+
+/* Register any extra external extensions */
+
+EOF!HEAD
+
+    print $fh xsi_protos(@exts), <<'EOT', xsi_body(@exts), "}\n";
+
+static void
+xs_init(pTHX)
+{
+EOT
+
+    if ($real) {
+        close $fh or die "Can't close '$temp': $!";
+        rename $temp, $real or die "Can't rename '$temp' to '$real': $!";
+    }
+}
+
+1;
+__END__
+
+
+# ex: set ts=8 sts=4 sw=4 et:
+package ExtUtils::MM_DOS;
+
+use strict;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+
+
+
+sub os_flavor {
+    return('DOS');
+}
+
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+
+    $man =~ s,/+,__,g;
+    return $man;
+}
+
+
+sub xs_static_lib_is_xs {
+    return 1;
+}
+
+
+1;
+package ExtUtils::testlib;
+
+use strict;
+use warnings;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use Cwd;
+use File::Spec;
+
+# So the tests can chdir around and not break @INC.
+# We use getcwd() because otherwise rel2abs will blow up under taint
+# mode pre-5.8.  We detaint is so @INC won't be tainted.  This is
+# no worse, and probably better, than just shoving an untainted,
+# relative "blib/lib" onto @INC.
+my $cwd;
+BEGIN {
+    ($cwd) = getcwd() =~ /(.*)/;
+}
+use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
+1;
+__END__
+
+package ExtUtils::ParseXS;
+use strict;
+
+use 5.006001;
+use Cwd;
+use Config;
+use Exporter 'import';
+use File::Basename;
+use File::Spec;
+use Symbol;
+
+our $VERSION;
+BEGIN {
+  $VERSION = '3.39';
+  require ExtUtils::ParseXS::Constants; ExtUtils::ParseXS::Constants->VERSION($VERSION);
+  require ExtUtils::ParseXS::CountLines; ExtUtils::ParseXS::CountLines->VERSION($VERSION);
+  require ExtUtils::ParseXS::Utilities; ExtUtils::ParseXS::Utilities->VERSION($VERSION);
+  require ExtUtils::ParseXS::Eval; ExtUtils::ParseXS::Eval->VERSION($VERSION);
+}
+$VERSION = eval $VERSION if $VERSION =~ /_/;
+
+use ExtUtils::ParseXS::Utilities qw(
+  standard_typemap_locations
+  trim_whitespace
+  C_string
+  valid_proto_string
+  process_typemaps
+  map_type
+  standard_XS_defs
+  assign_func_args
+  analyze_preprocessor_statements
+  set_cond
+  Warn
+  current_line_number
+  blurt
+  death
+  check_conditional_preprocessor_statements
+  escape_file_for_line_directive
+  report_typemap_failure
+);
+
+our @EXPORT_OK = qw(
+  process_file
+  report_error_count
+);
+
+##############################
+# A number of "constants"
+
+our ($C_group_rex, $C_arg);
+# Group in C (no support for comments or literals)
+$C_group_rex = qr/ [({\[]
+             (?: (?> [^()\[\]{}]+ ) | (??{ $C_group_rex }) )*
+             [)}\]] /x;
+# Chunk in C without comma at toplevel (no comments):
+$C_arg = qr/ (?: (?> [^()\[\]{},"']+ )
+       |   (??{ $C_group_rex })
+       |   " (?: (?> [^\\"]+ )
+         |   \\.
+         )* "        # String literal
+              |   ' (?: (?> [^\\']+ ) | \\. )* ' # Char literal
+       )* /xs;
+
+# "impossible" keyword (multiple newline)
+my $END = "!End!\n\n";
+# Match an XS Keyword
+my $BLOCK_regexp = '\s*(' . $ExtUtils::ParseXS::Constants::XSKeywordsAlternation . "|$END)\\s*:";
+
+
+
+sub new {
+  return bless {} => shift;
+}
+
+our $Singleton = __PACKAGE__->new;
+
+sub process_file {
+  my $self;
+  # Allow for $package->process_file(%hash), $obj->process_file, and process_file()
+  if (@_ % 2) {
+    my $invocant = shift;
+    $self = ref($invocant) ? $invocant : $invocant->new;
+  }
+  else {
+    $self = $Singleton;
+  }
+
+  my %options = @_;
+  $self->{ProtoUsed} = exists $options{prototypes};
+
+  # Set defaults.
+  my %args = (
+    argtypes        => 1,
+    csuffix         => '.c',
+    except          => 0,
+    hiertype        => 0,
+    inout           => 1,
+    linenumbers     => 1,
+    optimize        => 1,
+    output          => \*STDOUT,
+    prototypes      => 0,
+    typemap         => [],
+    versioncheck    => 1,
+    FH              => Symbol::gensym(),
+    %options,
+  );
+  $args{except} = $args{except} ? ' TRY' : '';
+
+  # Global Constants
+
+  my ($Is_VMS, $SymSet);
+  if ($^O eq 'VMS') {
+    $Is_VMS = 1;
+    # Establish set of global symbols with max length 28, since xsubpp
+    # will later add the 'XS_' prefix.
+    require ExtUtils::XSSymSet;
+    $SymSet = ExtUtils::XSSymSet->new(28);
+  }
+  @{ $self->{XSStack} } = ({type => 'none'});
+  $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ];
+  $self->{Overload}     = 0; # bool
+  $self->{errors}       = 0; # count
+  $self->{Fallback}     = '&PL_sv_undef';
+
+  # Most of the 1500 lines below uses these globals.  We'll have to
+  # clean this up sometime, probably.  For now, we just pull them out
+  # of %args.  -Ken
+
+  $self->{RetainCplusplusHierarchicalTypes} = $args{hiertype};
+  $self->{WantPrototypes} = $args{prototypes};
+  $self->{WantVersionChk} = $args{versioncheck};
+  $self->{WantLineNumbers} = $args{linenumbers};
+  $self->{IncludedFiles} = {};
+
+  die "Missing required parameter 'filename'" unless $args{filename};
+  $self->{filepathname} = $args{filename};
+  ($self->{dir}, $self->{filename}) =
+    (dirname($args{filename}), basename($args{filename}));
+  $self->{filepathname} =~ s/\\/\\\\/g;
+  $self->{IncludedFiles}->{$args{filename}}++;
+
+  # Open the output file if given as a string.  If they provide some
+  # other kind of reference, trust them that we can print to it.
+  if (not ref $args{output}) {
+    open my($fh), "> $args{output}" or die "Can't create $args{output}: $!";
+    $args{outfile} = $args{output};
+    $args{output} = $fh;
+  }
+
+  # Really, we shouldn't have to chdir() or select() in the first
+  # place.  For now, just save and restore.
+  my $orig_cwd = cwd();
+  my $orig_fh = select();
+
+  chdir($self->{dir});
+  my $pwd = cwd();
+  my $csuffix = $args{csuffix};
+
+  if ($self->{WantLineNumbers}) {
+    my $cfile;
+    if ( $args{outfile} ) {
+      $cfile = $args{outfile};
+    }
+    else {
+      $cfile = $args{filename};
+      $cfile =~ s/\.xs$/$csuffix/i or $cfile .= $csuffix;
+    }
+    tie(*PSEUDO_STDOUT, 'ExtUtils::ParseXS::CountLines', $cfile, $args{output});
+    select PSEUDO_STDOUT;
+  }
+  else {
+    select $args{output};
+  }
+
+  $self->{typemap} = process_typemaps( $args{typemap}, $pwd );
+
+  # Move more settings from parameters to object
+  foreach my $datum ( qw| argtypes except inout optimize | ) {
+    $self->{$datum} = $args{$datum};
+  }
+  $self->{strip_c_func_prefix} = $args{s};
+
+  # Identify the version of xsubpp used
+  print <<EOM;
+/*
+ * This file was generated automatically by ExtUtils::ParseXS version $VERSION from the
+ * contents of $self->{filename}. Do not edit this file, edit $self->{filename} instead.
+ *
+ *    ANY CHANGES MADE HERE WILL BE LOST!
+ *
+ */
+
+EOM
+
+
+  print("#line 1 \"" . escape_file_for_line_directive($self->{filepathname}) . "\"\n")
+    if $self->{WantLineNumbers};
+
+  # Open the input file (using $self->{filename} which
+  # is a basename'd $args{filename} due to chdir above)
+  open($self->{FH}, '<', $self->{filename}) or die "cannot open $self->{filename}: $!\n";
+
+  FIRSTMODULE:
+  while (readline($self->{FH})) {
+    if (/^=/) {
+      my $podstartline = $.;
+      do {
+        if (/^=cut\s*$/) {
+          # We can't just write out a /* */ comment, as our embedded
+          # POD might itself be in a comment. We can't put a /**/
+          # comment inside #if 0, as the C standard says that the source
+          # file is decomposed into preprocessing characters in the stage
+          # before preprocessing commands are executed.
+          # I don't want to leave the text as barewords, because the spec
+          # isn't clear whether macros are expanded before or after
+          # preprocessing commands are executed, and someone pathological
+          # may just have defined one of the 3 words as a macro that does
+          # something strange. Multiline strings are illegal in C, so
+          # the "" we write must be a string literal. And they aren't
+          # concatenated until 2 steps later, so we are safe.
+          #     - Nicholas Clark
+          print("#if 0\n  \"Skipped embedded POD.\"\n#endif\n");
+          printf("#line %d \"%s\"\n", $. + 1, escape_file_for_line_directive($self->{filepathname}))
+            if $self->{WantLineNumbers};
+          next FIRSTMODULE;
+        }
+
+      } while (readline($self->{FH}));
+      # At this point $. is at end of file so die won't state the start
+      # of the problem, and as we haven't yet read any lines &death won't
+      # show the correct line in the message either.
+      die ("Error: Unterminated pod in $self->{filename}, line $podstartline\n")
+        unless $self->{lastline};
+    }
+    last if ($self->{Package}, $self->{Prefix}) =
+      /^MODULE\s*=\s*[\w:]+(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/;
+
+    print $_;
+  }
+  unless (defined $_) {
+    warn "Didn't find a 'MODULE ... PACKAGE ... PREFIX' line\n";
+    exit 0; # Not a fatal error for the caller process
+  }
+
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  standard_XS_defs();
+
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  $self->{lastline}    = $_;
+  $self->{lastline_no} = $.;
+
+  my $BootCode_ref = [];
+  my $XSS_work_idx = 0;
+  my $cpp_next_tmp = 'XSubPPtmpAAAA';
+ PARAGRAPH:
+  while ($self->fetch_para()) {
+    my $outlist_ref  = [];
+    # Print initial preprocessor statements and blank lines
+    while (@{ $self->{line} } && $self->{line}->[0] !~ /^[^\#]/) {
+      my $ln = shift(@{ $self->{line} });
+      print $ln, "\n";
+      next unless $ln =~ /^\#\s*((if)(?:n?def)?|elsif|else|endif)\b/;
+      my $statement = $+;
+      ( $self, $XSS_work_idx, $BootCode_ref ) =
+        analyze_preprocessor_statements(
+          $self, $statement, $XSS_work_idx, $BootCode_ref
+        );
+    }
+
+    next PARAGRAPH unless @{ $self->{line} };
+
+    if ($XSS_work_idx && !$self->{XSStack}->[$XSS_work_idx]{varname}) {
+      # We are inside an #if, but have not yet #defined its xsubpp variable.
+      print "#define $cpp_next_tmp 1\n\n";
+      push(@{ $self->{InitFileCode} }, "#if $cpp_next_tmp\n");
+      push(@{ $BootCode_ref },     "#if $cpp_next_tmp");
+      $self->{XSStack}->[$XSS_work_idx]{varname} = $cpp_next_tmp++;
+    }
+
+    $self->death(
+      "Code is not inside a function"
+        ." (maybe last function was ended by a blank line "
+        ." followed by a statement on column one?)")
+      if $self->{line}->[0] =~ /^\s/;
+
+    # initialize info arrays
+    foreach my $member (qw(args_match var_types defaults arg_list
+                           argtype_seen in_out lengthof))
+    {
+      $self->{$member} = {};
+    }
+    $self->{proto_arg} = [];
+    $self->{processing_arg_with_types} = 0; # bool
+    $self->{proto_in_this_xsub}        = 0; # counter & bool
+    $self->{scope_in_this_xsub}        = 0; # counter & bool
+    $self->{interface}                 = 0; # bool
+    $self->{interface_macro}           = 'XSINTERFACE_FUNC';
+    $self->{interface_macro_set}       = 'XSINTERFACE_FUNC_SET';
+    $self->{ProtoThisXSUB}             = $self->{WantPrototypes}; # states 0 (none), 1 (yes), 2 (empty prototype)
+    $self->{ScopeThisXSUB}             = 0; # bool
+
+    my $xsreturn = 0;
+
+    $_ = shift(@{ $self->{line} });
+    while (my $kwd = $self->check_keyword("REQUIRE|PROTOTYPES|EXPORT_XSUB_SYMBOLS|FALLBACK|VERSIONCHECK|INCLUDE(?:_COMMAND)?|SCOPE")) {
+      my $method = $kwd . "_handler";
+      $self->$method($_);
+      next PARAGRAPH unless @{ $self->{line} };
+      $_ = shift(@{ $self->{line} });
+    }
+
+    if ($self->check_keyword("BOOT")) {
+      check_conditional_preprocessor_statements($self);
+      push (@{ $BootCode_ref }, "#line $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} }] \""
+                                . escape_file_for_line_directive($self->{filepathname}) . "\"")
+        if $self->{WantLineNumbers} && $self->{line}->[0] !~ /^\s*#\s*line\b/;
+      push (@{ $BootCode_ref }, @{ $self->{line} }, "");
+      next PARAGRAPH;
+    }
+
+    # extract return type, function name and arguments
+    ($self->{ret_type}) = ExtUtils::Typemaps::tidy_type($_);
+    my $RETVAL_no_return = 1 if $self->{ret_type} =~ s/^NO_OUTPUT\s+//;
+
+    # Allow one-line ANSI-like declaration
+    unshift @{ $self->{line} }, $2
+      if $self->{argtypes}
+        and $self->{ret_type} =~ s/^(.*?\w.*?)\s*\b(\w+\s*\(.*)/$1/s;
+
+    # a function definition needs at least 2 lines
+    $self->blurt("Error: Function definition too short '$self->{ret_type}'"), next PARAGRAPH
+      unless @{ $self->{line} };
+
+    my $externC = 1 if $self->{ret_type} =~ s/^extern "C"\s+//;
+    my $static  = 1 if $self->{ret_type} =~ s/^static\s+//;
+
+    my $func_header = shift(@{ $self->{line} });
+    $self->blurt("Error: Cannot parse function definition from '$func_header'"), next PARAGRAPH
+      unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*(const)?\s*(;\s*)?$/s;
+
+    my ($class, $orig_args);
+    ($class, $self->{func_name}, $orig_args) =  ($1, $2, $3);
+    $class = "$4 $class" if $4;
+    ($self->{pname} = $self->{func_name}) =~ s/^($self->{Prefix})?/$self->{Packprefix}/;
+    my $clean_func_name;
+    ($clean_func_name = $self->{func_name}) =~ s/^$self->{Prefix}//;
+    $self->{Full_func_name} = "$self->{Packid}_$clean_func_name";
+    if ($Is_VMS) {
+      $self->{Full_func_name} = $SymSet->addsym( $self->{Full_func_name} );
+    }
+
+    # Check for duplicate function definition
+    for my $tmp (@{ $self->{XSStack} }) {
+      next unless defined $tmp->{functions}{ $self->{Full_func_name} };
+      Warn( $self, "Warning: duplicate function definition '$clean_func_name' detected");
+      last;
+    }
+    $self->{XSStack}->[$XSS_work_idx]{functions}{ $self->{Full_func_name} }++;
+    delete $self->{XsubAliases};
+    delete $self->{XsubAliasValues};
+    %{ $self->{Interfaces} }      = ();
+    @{ $self->{Attributes} }      = ();
+    $self->{DoSetMagic} = 1;
+
+    $orig_args =~ s/\\\s*/ /g;    # process line continuations
+    my @args;
+
+    my (@fake_INPUT_pre);    # For length(s) generated variables
+    my (@fake_INPUT);
+    my $only_C_inlist_ref = {};        # Not in the signature of Perl function
+    if ($self->{argtypes} and $orig_args =~ /\S/) {
+      my $args = "$orig_args ,";
+      use re 'eval';
+      if ($args =~ /^( (??{ $C_arg }) , )* $ /x) {
+        @args = ($args =~ /\G ( (??{ $C_arg }) ) , /xg);
+        no re 'eval';
+        for ( @args ) {
+          s/^\s+//;
+          s/\s+$//;
+          my ($arg, $default) = ($_ =~ m/ ( [^=]* ) ( (?: = .* )? ) /x);
+          my ($pre, $len_name) = ($arg =~ /(.*?) \s*
+                             \b ( \w+ | length\( \s*\w+\s* \) )
+                             \s* $ /x);
+          next unless defined($pre) && length($pre);
+          my $out_type = '';
+          my $inout_var;
+          if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//) {
+            my $type = $1;
+            $out_type = $type if $type ne 'IN';
+            $arg =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
+            $pre =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
+          }
+          my $islength;
+          if ($len_name =~ /^length\( \s* (\w+) \s* \)\z/x) {
+            $len_name = "XSauto_length_of_$1";
+            $islength = 1;
+            die "Default value on length() argument: '$_'"
+              if length $default;
+          }
+          if (length $pre or $islength) { # Has a type
+            if ($islength) {
+              push @fake_INPUT_pre, $arg;
+            }
+            else {
+              push @fake_INPUT, $arg;
+            }
+            # warn "pushing '$arg'\n";
+            $self->{argtype_seen}->{$len_name}++;
+            $_ = "$len_name$default"; # Assigns to @args
+          }
+          $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST" or $islength;
+          push @{ $outlist_ref }, $len_name if $out_type =~ /OUTLIST$/;
+          $self->{in_out}->{$len_name} = $out_type if $out_type;
+        }
+      }
+      else {
+        no re 'eval';
+        @args = split(/\s*,\s*/, $orig_args);
+        Warn( $self, "Warning: cannot parse argument list '$orig_args', fallback to split");
+      }
+    }
+    else {
+      @args = split(/\s*,\s*/, $orig_args);
+      for (@args) {
+        if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\b\s*//) {
+          my $out_type = $1;
+          next if $out_type eq 'IN';
+          $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST";
+          if ($out_type =~ /OUTLIST$/) {
+              push @{ $outlist_ref }, undef;
+          }
+          $self->{in_out}->{$_} = $out_type;
+        }
+      }
+    }
+    if (defined($class)) {
+      my $arg0 = ((defined($static) or $self->{func_name} eq 'new')
+          ? "CLASS" : "THIS");
+      unshift(@args, $arg0);
+    }
+    my $extra_args = 0;
+    my @args_num = ();
+    my $num_args = 0;
+    my $report_args = '';
+    my $ellipsis;
+    foreach my $i (0 .. $#args) {
+      if ($args[$i] =~ s/\.\.\.//) {
+        $ellipsis = 1;
+        if ($args[$i] eq '' && $i == $#args) {
+          $report_args .= ", ...";
+          pop(@args);
+          last;
+        }
+      }
+      if ($only_C_inlist_ref->{$args[$i]}) {
+        push @args_num, undef;
+      }
+      else {
+        push @args_num, ++$num_args;
+          $report_args .= ", $args[$i]";
+      }
+      if ($args[$i] =~ /^([^=]*[^\s=])\s*=\s*(.*)/s) {
+        $extra_args++;
+        $args[$i] = $1;
+        $self->{defaults}->{$args[$i]} = $2;
+        $self->{defaults}->{$args[$i]} =~ s/"/\\"/g;
+      }
+      $self->{proto_arg}->[$i+1] = '$';
+    }
+    my $min_args = $num_args - $extra_args;
+    $report_args =~ s/"/\\"/g;
+    $report_args =~ s/^,\s+//;
+    $self->{func_args} = assign_func_args($self, \@args, $class);
+    @{ $self->{args_match} }{@args} = @args_num;
+
+    my $PPCODE = grep(/^\s*PPCODE\s*:/, @{ $self->{line} });
+    my $CODE = grep(/^\s*CODE\s*:/, @{ $self->{line} });
+    # Detect CODE: blocks which use ST(n)= or XST_m*(n,v)
+    # to set explicit return values.
+    my $EXPLICIT_RETURN = ($CODE &&
+            ("@{ $self->{line} }" =~ /(\bST\s*\([^;]*=) | (\bXST_m\w+\s*\()/x ));
+
+    $self->{ALIAS}  = grep(/^\s*ALIAS\s*:/,  @{ $self->{line} });
+
+    my $INTERFACE  = grep(/^\s*INTERFACE\s*:/,  @{ $self->{line} });
+
+    $xsreturn = 1 if $EXPLICIT_RETURN;
+
+    $externC = $externC ? qq[extern "C"] : "";
+
+    # print function header
+    print Q(<<"EOF");
+#$externC
+#XS_EUPXS(XS_$self->{Full_func_name}); /* prototype to pass -Wmissing-prototypes */
+#XS_EUPXS(XS_$self->{Full_func_name})
+#[[
+#    dVAR; dXSARGS;
+EOF
+    print Q(<<"EOF") if $self->{ALIAS};
+#    dXSI32;
+EOF
+    print Q(<<"EOF") if $INTERFACE;
+#    dXSFUNCTION($self->{ret_type});
+EOF
+
+    $self->{cond} = set_cond($ellipsis, $min_args, $num_args);
+
+    print Q(<<"EOF") if $self->{except};
+#    char errbuf[1024];
+#    *errbuf = '\\0';
+EOF
+
+    if($self->{cond}) {
+      print Q(<<"EOF");
+#    if ($self->{cond})
+#       croak_xs_usage(cv,  "$report_args");
+EOF
+    }
+    else {
+    # cv and items likely to be unused
+    print Q(<<"EOF");
+#    PERL_UNUSED_VAR(cv); /* -W */
+#    PERL_UNUSED_VAR(items); /* -W */
+EOF
+    }
+
+    #gcc -Wall: if an xsub has PPCODE is used
+    #it is possible none of ST, XSRETURN or XSprePUSH macros are used
+    #hence 'ax' (setup by dXSARGS) is unused
+    #XXX: could breakup the dXSARGS; into dSP;dMARK;dITEMS
+    #but such a move could break third-party extensions
+    print Q(<<"EOF") if $PPCODE;
+#    PERL_UNUSED_VAR(ax); /* -Wall */
+EOF
+
+    print Q(<<"EOF") if $PPCODE;
+#    SP -= items;
+EOF
+
+    # Now do a block of some sort.
+
+    $self->{condnum} = 0;
+    $self->{cond} = '';            # last CASE: conditional
+    push(@{ $self->{line} }, "$END:");
+    push(@{ $self->{line_no} }, $self->{line_no}->[-1]);
+    $_ = '';
+    check_conditional_preprocessor_statements();
+    while (@{ $self->{line} }) {
+
+      $self->CASE_handler($_) if $self->check_keyword("CASE");
+      print Q(<<"EOF");
+#   $self->{except} [[
+EOF
+
+      # do initialization of input variables
+      $self->{thisdone} = 0;
+      $self->{retvaldone} = 0;
+      $self->{deferred} = "";
+      %{ $self->{arg_list} } = ();
+      $self->{gotRETVAL} = 0;
+      $self->INPUT_handler($_);
+      $self->process_keyword("INPUT|PREINIT|INTERFACE_MACRO|C_ARGS|ALIAS|ATTRS|PROTOTYPE|SCOPE|OVERLOAD");
+
+      print Q(<<"EOF") if $self->{ScopeThisXSUB};
+#   ENTER;
+#   [[
+EOF
+
+      if (!$self->{thisdone} && defined($class)) {
+        if (defined($static) or $self->{func_name} eq 'new') {
+          print "\tchar *";
+          $self->{var_types}->{"CLASS"} = "char *";
+          $self->generate_init( {
+            type          => "char *",
+            num           => 1,
+            var           => "CLASS",
+            printed_name  => undef,
+          } );
+        }
+        else {
+          print "\t" . map_type($self, "$class *");
+          $self->{var_types}->{"THIS"} = "$class *";
+          $self->generate_init( {
+            type          => "$class *",
+            num           => 1,
+            var           => "THIS",
+            printed_name  => undef,
+          } );
+        }
+      }
+
+      # These are set if OUTPUT is found and/or CODE using RETVAL
+      $self->{have_OUTPUT} = $self->{have_CODE_with_RETVAL} = 0;
+
+      my ($wantRETVAL);
+      # do code
+      if (/^\s*NOT_IMPLEMENTED_YET/) {
+        print "\n\tPerl_croak(aTHX_ \"$self->{pname}: not implemented yet\");\n";
+        $_ = '';
+      }
+      else {
+        if ($self->{ret_type} ne "void") {
+          print "\t" . map_type($self, $self->{ret_type}, 'RETVAL') . ";\n"
+            if !$self->{retvaldone};
+          $self->{args_match}->{"RETVAL"} = 0;
+          $self->{var_types}->{"RETVAL"} = $self->{ret_type};
+          my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} );
+          print "\tdXSTARG;\n"
+            if $self->{optimize} and $outputmap and $outputmap->targetable;
+        }
+
+        if (@fake_INPUT or @fake_INPUT_pre) {
+          unshift @{ $self->{line} }, @fake_INPUT_pre, @fake_INPUT, $_;
+          $_ = "";
+          $self->{processing_arg_with_types} = 1;
+          $self->INPUT_handler($_);
+        }
+        print $self->{deferred};
+
+        $self->process_keyword("INIT|ALIAS|ATTRS|PROTOTYPE|INTERFACE_MACRO|INTERFACE|C_ARGS|OVERLOAD");
+
+        if ($self->check_keyword("PPCODE")) {
+          $self->print_section();
+          $self->death("PPCODE must be last thing") if @{ $self->{line} };
+          print "\tLEAVE;\n" if $self->{ScopeThisXSUB};
+          print "\tPUTBACK;\n\treturn;\n";
+        }
+        elsif ($self->check_keyword("CODE")) {
+          my $consumed_code = $self->print_section();
+          if ($consumed_code =~ /\bRETVAL\b/) {
+            $self->{have_CODE_with_RETVAL} = 1;
+          }
+        }
+        elsif (defined($class) and $self->{func_name} eq "DESTROY") {
+          print "\n\t";
+          print "delete THIS;\n";
+        }
+        else {
+          print "\n\t";
+          if ($self->{ret_type} ne "void") {
+            print "RETVAL = ";
+            $wantRETVAL = 1;
+          }
+          if (defined($static)) {
+            if ($self->{func_name} eq 'new') {
+              $self->{func_name} = "$class";
+            }
+            else {
+              print "${class}::";
+            }
+          }
+          elsif (defined($class)) {
+            if ($self->{func_name} eq 'new') {
+              $self->{func_name} .= " $class";
+            }
+            else {
+              print "THIS->";
+            }
+          }
+          my $strip = $self->{strip_c_func_prefix};
+          $self->{func_name} =~ s/^\Q$strip//
+            if defined $strip;
+          $self->{func_name} = 'XSFUNCTION' if $self->{interface};
+          print "$self->{func_name}($self->{func_args});\n";
+        }
+      }
+
+      # do output variables
+      $self->{gotRETVAL} = 0;        # 1 if RETVAL seen in OUTPUT section;
+      undef $self->{RETVAL_code} ;    # code to set RETVAL (from OUTPUT section);
+      # $wantRETVAL set if 'RETVAL =' autogenerated
+      ($wantRETVAL, $self->{ret_type}) = (0, 'void') if $RETVAL_no_return;
+      undef %{ $self->{outargs} };
+
+      $self->process_keyword("POSTCALL|OUTPUT|ALIAS|ATTRS|PROTOTYPE|OVERLOAD");
+
+      # A CODE section with RETVAL, but no OUTPUT? FAIL!
+      if ($self->{have_CODE_with_RETVAL} and not $self->{have_OUTPUT} and $self->{ret_type} ne 'void') {
+        $self->Warn("Warning: Found a 'CODE' section which seems to be using 'RETVAL' but no 'OUTPUT' section.");
+      }
+
+      $self->generate_output( {
+        type        => $self->{var_types}->{$_},
+        num         => $self->{args_match}->{$_},
+        var         => $_,
+        do_setmagic => $self->{DoSetMagic},
+        do_push     => undef,
+      } ) for grep $self->{in_out}->{$_} =~ /OUT$/, sort keys %{ $self->{in_out} };
+
+      my $prepush_done;
+      # all OUTPUT done, so now push the return value on the stack
+      if ($self->{gotRETVAL} && $self->{RETVAL_code}) {
+        print "\t$self->{RETVAL_code}\n";
+      }
+      elsif ($self->{gotRETVAL} || $wantRETVAL) {
+        my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} );
+        my $trgt = $self->{optimize} && $outputmap && $outputmap->targetable;
+        my $var = 'RETVAL';
+        my $type = $self->{ret_type};
+
+        if ($trgt) {
+          my $what = $self->eval_output_typemap_code(
+            qq("$trgt->{what}"),
+            {var => $var, type => $self->{ret_type}}
+          );
+          if (not $trgt->{with_size} and $trgt->{type} eq 'p') { # sv_setpv
+            # PUSHp corresponds to sv_setpvn.  Treat sv_setpv directly
+            print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n";
+            $prepush_done = 1;
+          }
+          else {
+            my $tsize = $trgt->{what_size};
+            $tsize = '' unless defined $tsize;
+            $tsize = $self->eval_output_typemap_code(
+              qq("$tsize"),
+              {var => $var, type => $self->{ret_type}}
+            );
+            print "\tXSprePUSH; PUSH$trgt->{type}($what$tsize);\n";
+            $prepush_done = 1;
+          }
+        }
+        else {
+          # RETVAL almost never needs SvSETMAGIC()
+          $self->generate_output( {
+            type        => $self->{ret_type},
+            num         => 0,
+            var         => 'RETVAL',
+            do_setmagic => 0,
+            do_push     => undef,
+          } );
+        }
+      }
+
+      $xsreturn = 1 if $self->{ret_type} ne "void";
+      my $num = $xsreturn;
+      my $c = @{ $outlist_ref };
+      print "\tXSprePUSH;" if $c and not $prepush_done;
+      print "\tEXTEND(SP,$c);\n" if $c;
+      $xsreturn += $c;
+      $self->generate_output( {
+        type        => $self->{var_types}->{$_},
+        num         => $num++,
+        var         => $_,
+        do_setmagic => 0,
+        do_push     => 1,
+      } ) for @{ $outlist_ref };
+
+      # do cleanup
+      $self->process_keyword("CLEANUP|ALIAS|ATTRS|PROTOTYPE|OVERLOAD");
+
+      print Q(<<"EOF") if $self->{ScopeThisXSUB};
+#   ]]
+EOF
+      print Q(<<"EOF") if $self->{ScopeThisXSUB} and not $PPCODE;
+#   LEAVE;
+EOF
+
+      # print function trailer
+      print Q(<<"EOF");
+#    ]]
+EOF
+      print Q(<<"EOF") if $self->{except};
+#    BEGHANDLERS
+#    CATCHALL
+#    sprintf(errbuf, "%s: %s\\tpropagated", Xname, Xreason);
+#    ENDHANDLERS
+EOF
+      if ($self->check_keyword("CASE")) {
+        $self->blurt("Error: No 'CASE:' at top of function")
+          unless $self->{condnum};
+        $_ = "CASE: $_";    # Restore CASE: label
+        next;
+      }
+      last if $_ eq "$END:";
+      $self->death(/^$BLOCK_regexp/o ? "Misplaced '$1:'" : "Junk at end of function ($_)");
+    }
+
+    print Q(<<"EOF") if $self->{except};
+#    if (errbuf[0])
+#    Perl_croak(aTHX_ errbuf);
+EOF
+
+    if ($xsreturn) {
+      print Q(<<"EOF") unless $PPCODE;
+#    XSRETURN($xsreturn);
+EOF
+    }
+    else {
+      print Q(<<"EOF") unless $PPCODE;
+#    XSRETURN_EMPTY;
+EOF
+    }
+
+    print Q(<<"EOF");
+#]]
+#
+EOF
+
+    $self->{proto} = "";
+    unless($self->{ProtoThisXSUB}) {
+      $self->{newXS} = "newXS_deffile";
+      $self->{file} = "";
+    }
+    else {
+    # Build the prototype string for the xsub
+      $self->{newXS} = "newXSproto_portable";
+      $self->{file} = ", file";
+
+      if ($self->{ProtoThisXSUB} eq 2) {
+        # User has specified empty prototype
+      }
+      elsif ($self->{ProtoThisXSUB} eq 1) {
+        my $s = ';';
+        if ($min_args < $num_args)  {
+          $s = '';
+          $self->{proto_arg}->[$min_args] .= ";";
+        }
+        push @{ $self->{proto_arg} }, "$s\@"
+          if $ellipsis;
+
+        $self->{proto} = join ("", grep defined, @{ $self->{proto_arg} } );
+      }
+      else {
+        # User has specified a prototype
+        $self->{proto} = $self->{ProtoThisXSUB};
+      }
+      $self->{proto} = qq{, "$self->{proto}"};
+    }
+
+    if ($self->{XsubAliases} and keys %{ $self->{XsubAliases} }) {
+      $self->{XsubAliases}->{ $self->{pname} } = 0
+        unless defined $self->{XsubAliases}->{ $self->{pname} };
+      foreach my $xname (sort keys %{ $self->{XsubAliases} }) {
+        my $value = $self->{XsubAliases}{$xname};
+        push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$xname\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        XSANY.any_i32 = $value;
+EOF
+      }
+    }
+    elsif (@{ $self->{Attributes} }) {
+      push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        apply_attrs_string("$self->{Package}", cv, "@{ $self->{Attributes} }", 0);
+EOF
+    }
+    elsif ($self->{interface}) {
+      foreach my $yname (sort keys %{ $self->{Interfaces} }) {
+        my $value = $self->{Interfaces}{$yname};
+        $yname = "$self->{Package}\::$yname" unless $yname =~ /::/;
+        push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$yname\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        $self->{interface_macro_set}(cv,$value);
+EOF
+      }
+    }
+    elsif($self->{newXS} eq 'newXS_deffile'){ # work around P5NCI's empty newXS macro
+      push(@{ $self->{InitFileCode} },
+       "        $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+    else {
+      push(@{ $self->{InitFileCode} },
+       "        (void)$self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+  } # END 'PARAGRAPH' 'while' loop
+
+  if ($self->{Overload}) { # make it findable with fetchmethod
+    print Q(<<"EOF");
+#XS_EUPXS(XS_$self->{Packid}_nil); /* prototype to pass -Wmissing-prototypes */
+#XS_EUPXS(XS_$self->{Packid}_nil)
+#{
+#   dXSARGS;
+#   PERL_UNUSED_VAR(items);
+#   XSRETURN_EMPTY;
+#}
+#
+EOF
+    unshift(@{ $self->{InitFileCode} }, <<"MAKE_FETCHMETHOD_WORK");
+    /* Making a sub named "$self->{Package}::()" allows the package */
+    /* to be findable via fetchmethod(), and causes */
+    /* overload::Overloaded("$self->{Package}") to return true. */
+    (void)$self->{newXS}("$self->{Package}::()", XS_$self->{Packid}_nil$self->{file}$self->{proto});
+MAKE_FETCHMETHOD_WORK
+  }
+
+  # print initialization routine
+
+  print Q(<<"EOF");
+##ifdef __cplusplus
+#extern "C"
+##endif
+EOF
+
+  print Q(<<"EOF");
+#XS_EXTERNAL(boot_$self->{Module_cname}); /* prototype to pass -Wmissing-prototypes */
+#XS_EXTERNAL(boot_$self->{Module_cname})
+#[[
+##if PERL_VERSION_LE(5, 21, 5)
+#    dVAR; dXSARGS;
+##else
+#    dVAR; ${\($self->{WantVersionChk} ?
+     'dXSBOOTARGSXSAPIVERCHK;' : 'dXSBOOTARGSAPIVERCHK;')}
+##endif
+EOF
+
+  #Under 5.8.x and lower, newXS is declared in proto.h as expecting a non-const
+  #file name argument. If the wrong qualifier is used, it causes breakage with
+  #C++ compilers and warnings with recent gcc.
+  #-Wall: if there is no $self->{Full_func_name} there are no xsubs in this .xs
+  #so 'file' is unused
+  print Q(<<"EOF") if $self->{Full_func_name};
+##if (PERL_REVISION == 5 && PERL_VERSION < 9)
+#    char* file = __FILE__;
+##else
+#    const char* file = __FILE__;
+##endif
+#
+#    PERL_UNUSED_VAR(file);
+EOF
+
+  print Q("#\n");
+
+  print Q(<<"EOF");
+#    PERL_UNUSED_VAR(cv); /* -W */
+#    PERL_UNUSED_VAR(items); /* -W */
+EOF
+
+  if( $self->{WantVersionChk}){
+    print Q(<<"EOF") ;
+##if PERL_VERSION_LE(5, 21, 5)
+#    XS_VERSION_BOOTCHECK;
+##  ifdef XS_APIVERSION_BOOTCHECK
+#    XS_APIVERSION_BOOTCHECK;
+##  endif
+##endif
+
+EOF
+  } else {
+    print Q(<<"EOF") ;
+##if PERL_VERSION_LE(5, 21, 5) && defined(XS_APIVERSION_BOOTCHECK)
+#  XS_APIVERSION_BOOTCHECK;
+##endif
+
+EOF
+  }
+
+  print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces};
+#    {
+#        CV * cv;
+#
+EOF
+
+  print Q(<<"EOF") if ($self->{Overload});
+#    /* register the overloading (type 'A') magic */
+##if (PERL_REVISION == 5 && PERL_VERSION < 9)
+#    PL_amagic_generation++;
+##endif
+#    /* The magic for overload gets a GV* via gv_fetchmeth as */
+#    /* mentioned above, and looks in the SV* slot of it for */
+#    /* the "fallback" status. */
+#    sv_setsv(
+#        get_sv( "$self->{Package}::()", TRUE ),
+#        $self->{Fallback}
+#    );
+EOF
+
+  print @{ $self->{InitFileCode} };
+
+  print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces};
+#    }
+EOF
+
+  if (@{ $BootCode_ref }) {
+    print "\n    /* Initialisation Section */\n\n";
+    @{ $self->{line} } = @{ $BootCode_ref };
+    $self->print_section();
+    print "\n    /* End of Initialisation Section */\n\n";
+  }
+
+  print Q(<<'EOF');
+##if PERL_VERSION_LE(5, 21, 5)
+##  if PERL_VERSION_GE(5, 9, 0)
+#    if (PL_unitcheckav)
+#        call_list(PL_scopestack_ix, PL_unitcheckav);
+##  endif
+#    XSRETURN_YES;
+##else
+#    Perl_xs_boot_epilog(aTHX_ ax);
+##endif
+#]]
+#
+EOF
+
+  warn("Please specify prototyping behavior for $self->{filename} (see perlxs manual)\n")
+    unless $self->{ProtoUsed};
+
+  chdir($orig_cwd);
+  select($orig_fh);
+  untie *PSEUDO_STDOUT if tied *PSEUDO_STDOUT;
+  close $self->{FH};
+
+  return 1;
+}
+
+sub report_error_count {
+  if (@_) {
+    return $_[0]->{errors}||0;
+  }
+  else {
+    return $Singleton->{errors}||0;
+  }
+}
+
+# Input:  ($self, $_, @{ $self->{line} }) == unparsed input.
+# Output: ($_, @{ $self->{line} }) == (rest of line, following lines).
+# Return: the matched keyword if found, otherwise 0
+sub check_keyword {
+  my $self = shift;
+  $_ = shift(@{ $self->{line} }) while !/\S/ && @{ $self->{line} };
+  s/^(\s*)($_[0])\s*:\s*(?:#.*)?/$1/s && $2;
+}
+
+sub print_section {
+  my $self = shift;
+
+  # the "do" is required for right semantics
+  do { $_ = shift(@{ $self->{line} }) } while !/\S/ && @{ $self->{line} };
+
+  my $consumed_code = '';
+
+  print("#line ", $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1], " \"",
+        escape_file_for_line_directive($self->{filepathname}), "\"\n")
+    if $self->{WantLineNumbers} && !/^\s*#\s*line\b/ && !/^#if XSubPPtmp/;
+  for (;  defined($_) && !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    print "$_\n";
+    $consumed_code .= "$_\n";
+  }
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  return $consumed_code;
+}
+
+sub merge_section {
+  my $self = shift;
+  my $in = '';
+
+  while (!/\S/ && @{ $self->{line} }) {
+    $_ = shift(@{ $self->{line} });
+  }
+
+  for (;  defined($_) && !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    $in .= "$_\n";
+  }
+  chomp $in;
+  return $in;
+}
+
+sub process_keyword {
+  my($self, $pattern) = @_;
+
+  while (my $kwd = $self->check_keyword($pattern)) {
+    my $method = $kwd . "_handler";
+    $self->$method($_);
+  }
+}
+
+sub CASE_handler {
+  my $self = shift;
+  $_ = shift;
+  $self->blurt("Error: 'CASE:' after unconditional 'CASE:'")
+    if $self->{condnum} && $self->{cond} eq '';
+  $self->{cond} = $_;
+  trim_whitespace($self->{cond});
+  print "   ", ($self->{condnum}++ ? " else" : ""), ($self->{cond} ? " if ($self->{cond})\n" : "\n");
+  $_ = '';
+}
+
+sub INPUT_handler {
+  my $self = shift;
+  $_ = shift;
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    last if /^\s*NOT_IMPLEMENTED_YET/;
+    next unless /\S/;        # skip blank lines
+
+    trim_whitespace($_);
+    my $ln = $_;
+
+    # remove trailing semicolon if no initialisation
+    s/\s*;$//g unless /[=;+].*\S/;
+
+    # Process the length(foo) declarations
+    if (s/^([^=]*)\blength\(\s*(\w+)\s*\)\s*$/$1 XSauto_length_of_$2=NO_INIT/x) {
+      print "\tSTRLEN\tSTRLEN_length_of_$2;\n";
+      $self->{lengthof}->{$2} = undef;
+      $self->{deferred} .= "\n\tXSauto_length_of_$2 = STRLEN_length_of_$2;\n";
+    }
+
+    # check for optional initialisation code
+    my $var_init = '';
+    $var_init = $1 if s/\s*([=;+].*)$//s;
+    $var_init =~ s/"/\\"/g;
+    # *sigh* It's valid to supply explicit input typemaps in the argument list...
+    my $is_overridden_typemap = $var_init =~ /ST\s*\(|\$arg\b/;
+
+    s/\s+/ /g;
+    my ($var_type, $var_addr, $var_name) = /^(.*?[^&\s])\s*(\&?)\s*\b(\w+)$/s
+      or $self->blurt("Error: invalid argument declaration '$ln'"), next;
+
+    # Check for duplicate definitions
+    $self->blurt("Error: duplicate definition of argument '$var_name' ignored"), next
+      if $self->{arg_list}->{$var_name}++
+        or defined $self->{argtype_seen}->{$var_name} and not $self->{processing_arg_with_types};
+
+    $self->{thisdone} |= $var_name eq "THIS";
+    $self->{retvaldone} |= $var_name eq "RETVAL";
+    $self->{var_types}->{$var_name} = $var_type;
+    # XXXX This check is a safeguard against the unfinished conversion of
+    # generate_init().  When generate_init() is fixed,
+    # one can use 2-args map_type() unconditionally.
+    my $printed_name;
+    if ($var_type =~ / \( \s* \* \s* \) /x) {
+      # Function pointers are not yet supported with output_init()!
+      print "\t" . map_type($self, $var_type, $var_name);
+      $printed_name = 1;
+    }
+    else {
+      print "\t" . map_type($self, $var_type, undef);
+      $printed_name = 0;
+    }
+    $self->{var_num} = $self->{args_match}->{$var_name};
+
+    if ($self->{var_num}) {
+      my $typemap = $self->{typemap}->get_typemap(ctype => $var_type);
+      $self->report_typemap_failure($self->{typemap}, $var_type, "death")
+        if not $typemap and not $is_overridden_typemap;
+      $self->{proto_arg}->[$self->{var_num}] = ($typemap && $typemap->proto) || "\$";
+    }
+    $self->{func_args} =~ s/\b($var_name)\b/&$1/ if $var_addr;
+    if ($var_init =~ /^[=;]\s*NO_INIT\s*;?\s*$/
+      or $self->{in_out}->{$var_name} and $self->{in_out}->{$var_name} =~ /^OUT/
+      and $var_init !~ /\S/) {
+      if ($printed_name) {
+        print ";\n";
+      }
+      else {
+        print "\t$var_name;\n";
+      }
+    }
+    elsif ($var_init =~ /\S/) {
+      $self->output_init( {
+        type          => $var_type,
+        num           => $self->{var_num},
+        var           => $var_name,
+        init          => $var_init,
+        printed_name  => $printed_name,
+      } );
+    }
+    elsif ($self->{var_num}) {
+      $self->generate_init( {
+        type          => $var_type,
+        num           => $self->{var_num},
+        var           => $var_name,
+        printed_name  => $printed_name,
+      } );
+    }
+    else {
+      print ";\n";
+    }
+  }
+}
+
+sub OUTPUT_handler {
+  my $self = shift;
+  $self->{have_OUTPUT} = 1;
+
+  $_ = shift;
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    if (/^\s*SETMAGIC\s*:\s*(ENABLE|DISABLE)\s*/) {
+      $self->{DoSetMagic} = ($1 eq "ENABLE" ? 1 : 0);
+      next;
+    }
+    my ($outarg, $outcode) = /^\s*(\S+)\s*(.*?)\s*$/s;
+    $self->blurt("Error: duplicate OUTPUT argument '$outarg' ignored"), next
+      if $self->{outargs}->{$outarg}++;
+    if (!$self->{gotRETVAL} and $outarg eq 'RETVAL') {
+      # deal with RETVAL last
+      $self->{RETVAL_code} = $outcode;
+      $self->{gotRETVAL} = 1;
+      next;
+    }
+    $self->blurt("Error: OUTPUT $outarg not an argument"), next
+      unless defined($self->{args_match}->{$outarg});
+    $self->blurt("Error: No input definition for OUTPUT argument '$outarg' - ignored"), next
+      unless defined $self->{var_types}->{$outarg};
+    $self->{var_num} = $self->{args_match}->{$outarg};
+    if ($outcode) {
+      print "\t$outcode\n";
+      print "\tSvSETMAGIC(ST(" , $self->{var_num} - 1 , "));\n" if $self->{DoSetMagic};
+    }
+    else {
+      $self->generate_output( {
+        type        => $self->{var_types}->{$outarg},
+        num         => $self->{var_num},
+        var         => $outarg,
+        do_setmagic => $self->{DoSetMagic},
+        do_push     => undef,
+      } );
+    }
+    delete $self->{in_out}->{$outarg}     # No need to auto-OUTPUT
+      if exists $self->{in_out}->{$outarg} and $self->{in_out}->{$outarg} =~ /OUT$/;
+  }
+}
+
+sub C_ARGS_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+  $self->{func_args} = $in;
+}
+
+sub INTERFACE_MACRO_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+  if ($in =~ /\s/) {        # two
+    ($self->{interface_macro}, $self->{interface_macro_set}) = split ' ', $in;
+  }
+  else {
+    $self->{interface_macro} = $in;
+    $self->{interface_macro_set} = 'UNKNOWN_CVT'; # catch later
+  }
+  $self->{interface} = 1;        # local
+  $self->{interfaces} = 1;        # global
+}
+
+sub INTERFACE_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+
+  foreach (split /[\s,]+/, $in) {
+    my $iface_name = $_;
+    $iface_name =~ s/^$self->{Prefix}//;
+    $self->{Interfaces}->{$iface_name} = $_;
+  }
+  print Q(<<"EOF");
+#    XSFUNCTION = $self->{interface_macro}($self->{ret_type},cv,XSANY.any_dptr);
+EOF
+  $self->{interface} = 1;        # local
+  $self->{interfaces} = 1;        # global
+}
+
+sub CLEANUP_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub PREINIT_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub POSTCALL_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub INIT_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub get_aliases {
+  my $self = shift;
+  my ($line) = @_;
+  my ($orig) = $line;
+
+  # Parse alias definitions
+  # format is
+  #    alias = value alias = value ...
+
+  while ($line =~ s/^\s*([\w:]+)\s*=\s*(\w+)\s*//) {
+    my ($alias, $value) = ($1, $2);
+    my $orig_alias = $alias;
+
+    # check for optional package definition in the alias
+    $alias = $self->{Packprefix} . $alias if $alias !~ /::/;
+
+    # check for duplicate alias name & duplicate value
+    Warn( $self, "Warning: Ignoring duplicate alias '$orig_alias'")
+      if defined $self->{XsubAliases}->{$alias};
+
+    Warn( $self, "Warning: Aliases '$orig_alias' and '$self->{XsubAliasValues}->{$value}' have identical values")
+      if $self->{XsubAliasValues}->{$value};
+
+    $self->{XsubAliases}->{$alias} = $value;
+    $self->{XsubAliasValues}->{$value} = $orig_alias;
+  }
+
+  blurt( $self, "Error: Cannot parse ALIAS definitions from '$orig'")
+    if $line;
+}
+
+sub ATTRS_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    push @{ $self->{Attributes} }, $_;
+  }
+}
+
+sub ALIAS_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    $self->get_aliases($_) if $_;
+  }
+}
+
+sub OVERLOAD_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    while ( s/^\s*([\w:"\\)\+\-\*\/\%\<\>\.\&\|\^\!\~\{\}\=]+)\s*//) {
+      $self->{Overload} = 1 unless $self->{Overload};
+      my $overload = "$self->{Package}\::(".$1;
+      push(@{ $self->{InitFileCode} },
+       "        (void)$self->{newXS}(\"$overload\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+  }
+}
+
+sub FALLBACK_handler {
+  my ($self, $setting) = @_;
+
+  # the rest of the current line should contain either TRUE,
+  # FALSE or UNDEF
+
+  trim_whitespace($setting);
+  $setting = uc($setting);
+
+  my %map = (
+    TRUE => "&PL_sv_yes", 1 => "&PL_sv_yes",
+    FALSE => "&PL_sv_no", 0 => "&PL_sv_no",
+    UNDEF => "&PL_sv_undef",
+  );
+
+  # check for valid FALLBACK value
+  $self->death("Error: FALLBACK: TRUE/FALSE/UNDEF") unless exists $map{$setting};
+
+  $self->{Fallback} = $map{$setting};
+}
+
+
+sub REQUIRE_handler {
+  # the rest of the current line should contain a version number
+  my ($self, $ver) = @_;
+
+  trim_whitespace($ver);
+
+  $self->death("Error: REQUIRE expects a version number")
+    unless $ver;
+
+  # check that the version number is of the form n.n
+  $self->death("Error: REQUIRE: expected a number, got '$ver'")
+    unless $ver =~ /^\d+(\.\d*)?/;
+
+  $self->death("Error: xsubpp $ver (or better) required--this is only $VERSION.")
+    unless $VERSION >= $ver;
+}
+
+sub VERSIONCHECK_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: VERSIONCHECK: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  $self->{WantVersionChk} = 1 if $1 eq 'ENABLE';
+  $self->{WantVersionChk} = 0 if $1 eq 'DISABLE';
+
+}
+
+sub PROTOTYPE_handler {
+  my $self = shift;
+  $_ = shift;
+
+  my $specified;
+
+  $self->death("Error: Only 1 PROTOTYPE definition allowed per xsub")
+    if $self->{proto_in_this_xsub}++;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    $specified = 1;
+    trim_whitespace($_);
+    if ($_ eq 'DISABLE') {
+      $self->{ProtoThisXSUB} = 0;
+    }
+    elsif ($_ eq 'ENABLE') {
+      $self->{ProtoThisXSUB} = 1;
+    }
+    else {
+      # remove any whitespace
+      s/\s+//g;
+      $self->death("Error: Invalid prototype '$_'")
+        unless valid_proto_string($_);
+      $self->{ProtoThisXSUB} = C_string($_);
+    }
+  }
+
+  # If no prototype specified, then assume empty prototype ""
+  $self->{ProtoThisXSUB} = 2 unless $specified;
+
+  $self->{ProtoUsed} = 1;
+}
+
+sub SCOPE_handler {
+  # Rest of line should be either ENABLE or DISABLE
+  my ($self, $setting) = @_;
+
+  $self->death("Error: Only 1 SCOPE declaration allowed per xsub")
+    if $self->{scope_in_this_xsub}++;
+
+  trim_whitespace($setting);
+  $self->death("Error: SCOPE: ENABLE/DISABLE")
+      unless $setting =~ /^(ENABLE|DISABLE)\b/i;
+  $self->{ScopeThisXSUB} = ( uc($1) eq 'ENABLE' );
+}
+
+sub PROTOTYPES_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: PROTOTYPES: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  $self->{WantPrototypes} = 1 if $1 eq 'ENABLE';
+  $self->{WantPrototypes} = 0 if $1 eq 'DISABLE';
+  $self->{ProtoUsed} = 1;
+}
+
+sub EXPORT_XSUB_SYMBOLS_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: EXPORT_XSUB_SYMBOLS: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  my $xs_impl = $1 eq 'ENABLE' ? 'XS_EXTERNAL' : 'XS_INTERNAL';
+
+  print Q(<<"EOF");
+##undef XS_EUPXS
+##if defined(PERL_EUPXS_ALWAYS_EXPORT)
+##  define XS_EUPXS(name) XS_EXTERNAL(name)
+##elif defined(PERL_EUPXS_NEVER_EXPORT)
+##  define XS_EUPXS(name) XS_INTERNAL(name)
+##else
+##  define XS_EUPXS(name) $xs_impl(name)
+##endif
+EOF
+}
+
+
+sub PushXSStack {
+  my $self = shift;
+  my %args = @_;
+  # Save the current file context.
+  push(@{ $self->{XSStack} }, {
+          type            => 'file',
+          LastLine        => $self->{lastline},
+          LastLineNo      => $self->{lastline_no},
+          Line            => $self->{line},
+          LineNo          => $self->{line_no},
+          Filename        => $self->{filename},
+          Filepathname    => $self->{filepathname},
+          Handle          => $self->{FH},
+          IsPipe          => scalar($self->{filename} =~ /\|\s*$/),
+          %args,
+         });
+
+}
+
+sub INCLUDE_handler {
+  my $self = shift;
+  $_ = shift;
+  # the rest of the current line should contain a valid filename
+
+  trim_whitespace($_);
+
+  $self->death("INCLUDE: filename missing")
+    unless $_;
+
+  $self->death("INCLUDE: output pipe is illegal")
+    if /^\s*\|/;
+
+  # simple minded recursion detector
+  $self->death("INCLUDE loop detected")
+    if $self->{IncludedFiles}->{$_};
+
+  ++$self->{IncludedFiles}->{$_} unless /\|\s*$/;
+
+  if (/\|\s*$/ && /^\s*perl\s/) {
+    Warn( $self, "The INCLUDE directive with a command is discouraged." .
+          " Use INCLUDE_COMMAND instead! In particular using 'perl'" .
+          " in an 'INCLUDE: ... |' directive is not guaranteed to pick" .
+          " up the correct perl. The INCLUDE_COMMAND directive allows" .
+          " the use of \$^X as the currently running perl, see" .
+          " 'perldoc perlxs' for details.");
+  }
+
+  $self->PushXSStack();
+
+  $self->{FH} = Symbol::gensym();
+
+  # open the new file
+  open($self->{FH}, $_) or $self->death("Cannot open '$_': $!");
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE:  Including '$_' from '$self->{filename}' */
+#
+EOF
+
+  $self->{filename} = $_;
+  $self->{filepathname} = ( $^O =~ /^mswin/i )
+                          ? qq($self->{dir}/$self->{filename}) # See CPAN RT #61908: gcc doesn't like backslashes on win32?
+                          : File::Spec->catfile($self->{dir}, $self->{filename});
+
+  # Prime the pump by reading the first
+  # non-blank line
+
+  # skip leading blank lines
+  while (readline($self->{FH})) {
+    last unless /^\s*$/;
+  }
+
+  $self->{lastline} = $_;
+  $self->{lastline_no} = $.;
+}
+
+sub QuoteArgs {
+  my $cmd = shift;
+  my @args = split /\s+/, $cmd;
+  $cmd = shift @args;
+  for (@args) {
+    $_ = q(").$_.q(") if !/^\"/ && length($_) > 0;
+  }
+  return join (' ', ($cmd, @args));
+}
+
+# code copied from CPAN::HandleConfig::safe_quote
+#  - that has doc saying leave if start/finish with same quote, but no code
+# given text, will conditionally quote it to protect from shell
+{
+  my ($quote, $use_quote) = $^O eq 'MSWin32'
+      ? (q{"}, q{"})
+      : (q{"'}, q{'});
+  sub _safe_quote {
+      my ($self, $command) = @_;
+      # Set up quote/default quote
+      if (defined($command)
+          and $command =~ /\s/
+          and $command !~ /[$quote]/) {
+          return qq{$use_quote$command$use_quote}
+      }
+      return $command;
+  }
+}
+
+sub INCLUDE_COMMAND_handler {
+  my $self = shift;
+  $_ = shift;
+  # the rest of the current line should contain a valid command
+
+  trim_whitespace($_);
+
+  $_ = QuoteArgs($_) if $^O eq 'VMS';
+
+  $self->death("INCLUDE_COMMAND: command missing")
+    unless $_;
+
+  $self->death("INCLUDE_COMMAND: pipes are illegal")
+    if /^\s*\|/ or /\|\s*$/;
+
+  $self->PushXSStack( IsPipe => 1 );
+
+  $self->{FH} = Symbol::gensym();
+
+  # If $^X is used in INCLUDE_COMMAND, we know it's supposed to be
+  # the same perl interpreter as we're currently running
+  my $X = $self->_safe_quote($^X); # quotes if has spaces
+  s/^\s*\$\^X/$X/;
+
+  # open the new file
+  open ($self->{FH}, "-|", $_)
+    or $self->death( $self, "Cannot run command '$_' to include its output: $!");
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE_COMMAND:  Including output of '$_' from '$self->{filename}' */
+#
+EOF
+
+  $self->{filename} = $_;
+  $self->{filepathname} = $self->{filename};
+  #$self->{filepathname} =~ s/\"/\\"/g; # Fails? See CPAN RT #53938: MinGW Broken after 2.21
+  $self->{filepathname} =~ s/\\/\\\\/g; # Works according to reporter of #53938
+
+  # Prime the pump by reading the first
+  # non-blank line
+
+  # skip leading blank lines
+  while (readline($self->{FH})) {
+    last unless /^\s*$/;
+  }
+
+  $self->{lastline} = $_;
+  $self->{lastline_no} = $.;
+}
+
+sub PopFile {
+  my $self = shift;
+
+  return 0 unless $self->{XSStack}->[-1]{type} eq 'file';
+
+  my $data     = pop @{ $self->{XSStack} };
+  my $ThisFile = $self->{filename};
+  my $isPipe   = $data->{IsPipe};
+
+  --$self->{IncludedFiles}->{$self->{filename}}
+    unless $isPipe;
+
+  close $self->{FH};
+
+  $self->{FH}         = $data->{Handle};
+  # $filename is the leafname, which for some reason is used for diagnostic
+  # messages, whereas $filepathname is the full pathname, and is used for
+  # #line directives.
+  $self->{filename}   = $data->{Filename};
+  $self->{filepathname} = $data->{Filepathname};
+  $self->{lastline}   = $data->{LastLine};
+  $self->{lastline_no} = $data->{LastLineNo};
+  @{ $self->{line} }       = @{ $data->{Line} };
+  @{ $self->{line_no} }    = @{ $data->{LineNo} };
+
+  if ($isPipe and $? ) {
+    --$self->{lastline_no};
+    print STDERR "Error reading from pipe '$ThisFile': $! in $self->{filename}, line $self->{lastline_no}\n" ;
+    exit 1;
+  }
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE: Returning to '$self->{filename}' from '$ThisFile' */
+#
+EOF
+
+  return 1;
+}
+
+sub Q {
+  my($text) = @_;
+  $text =~ s/^#//gm;
+  $text =~ s/\[\[/{/g;
+  $text =~ s/\]\]/}/g;
+  $text;
+}
+
+# Process "MODULE = Foo ..." lines and update global state accordingly
+sub _process_module_xs_line {
+  my ($self, $module, $pkg, $prefix) = @_;
+
+  ($self->{Module_cname} = $module) =~ s/\W/_/g;
+
+  $self->{Package} = defined($pkg) ? $pkg : '';
+  $self->{Prefix}  = quotemeta( defined($prefix) ? $prefix : '' );
+
+  ($self->{Packid} = $self->{Package}) =~ tr/:/_/;
+
+  $self->{Packprefix} = $self->{Package};
+  $self->{Packprefix} .= "::" if $self->{Packprefix} ne "";
+
+  $self->{lastline} = "";
+}
+
+# Skip any embedded POD sections
+sub _maybe_skip_pod {
+  my ($self) = @_;
+
+  while ($self->{lastline} =~ /^=/) {
+    while ($self->{lastline} = readline($self->{FH})) {
+      last if ($self->{lastline} =~ /^=cut\s*$/);
+    }
+    $self->death("Error: Unterminated pod") unless defined $self->{lastline};
+    $self->{lastline} = readline($self->{FH});
+    chomp $self->{lastline};
+    $self->{lastline} =~ s/^\s+$//;
+  }
+}
+
+# This chunk of code strips out (and parses) embedded TYPEMAP blocks
+# which support a HEREdoc-alike block syntax.
+sub _maybe_parse_typemap_block {
+  my ($self) = @_;
+
+  # This is special cased from the usual paragraph-handler logic
+  # due to the HEREdoc-ish syntax.
+  if ($self->{lastline} =~ /^TYPEMAP\s*:\s*<<\s*(?:(["'])(.+?)\1|([^\s'"]+?))\s*;?\s*$/)
+  {
+    my $end_marker = quotemeta(defined($1) ? $2 : $3);
+
+    # Scan until we find $end_marker alone on a line.
+    my @tmaplines;
+    while (1) {
+      $self->{lastline} = readline($self->{FH});
+      $self->death("Error: Unterminated TYPEMAP section") if not defined $self->{lastline};
+      last if $self->{lastline} =~ /^$end_marker\s*$/;
+      push @tmaplines, $self->{lastline};
+    }
+
+    my $tmap = ExtUtils::Typemaps->new(
+      string        => join("", @tmaplines),
+      lineno_offset => 1 + ($self->current_line_number() || 0),
+      fake_filename => $self->{filename},
+    );
+    $self->{typemap}->merge(typemap => $tmap, replace => 1);
+
+    $self->{lastline} = "";
+  }
+}
+
+# Read next xsub into @{ $self->{line} } from ($lastline, readline($self->{FH})).
+sub fetch_para {
+  my $self = shift;
+
+  # parse paragraph
+  $self->death("Error: Unterminated '#if/#ifdef/#ifndef'")
+    if !defined $self->{lastline} && $self->{XSStack}->[-1]{type} eq 'if';
+  @{ $self->{line} } = ();
+  @{ $self->{line_no} } = ();
+  return $self->PopFile() if not defined $self->{lastline}; # EOF
+
+  if ($self->{lastline} =~
+      /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/)
+  {
+    $self->_process_module_xs_line($1, $2, $3);
+  }
+
+  for (;;) {
+    $self->_maybe_skip_pod;
+
+    $self->_maybe_parse_typemap_block;
+
+    if ($self->{lastline} !~ /^\s*#/ # not a CPP directive
+        # CPP directives:
+        #    ANSI:    if ifdef ifndef elif else endif define undef
+        #        line error pragma
+        #    gcc:    warning include_next
+        #   obj-c:    import
+        #   others:    ident (gcc notes that some cpps have this one)
+        || $self->{lastline} =~ /^\#[ \t]*
+                                  (?:
+                                        (?:if|ifn?def|elif|else|endif|
+                                           define|undef|pragma|error|
+                                           warning|line\s+\d+|ident)
+                                        \b
+                                      | (?:include(?:_next)?|import)
+                                        \s* ["<] .* [>"]
+                                 )
+                                /x
+    )
+    {
+      last if $self->{lastline} =~ /^\S/ && @{ $self->{line} } && $self->{line}->[-1] eq "";
+      push(@{ $self->{line} }, $self->{lastline});
+      push(@{ $self->{line_no} }, $self->{lastline_no});
+    }
+
+    # Read next line and continuation lines
+    last unless defined($self->{lastline} = readline($self->{FH}));
+    $self->{lastline_no} = $.;
+    my $tmp_line;
+    $self->{lastline} .= $tmp_line
+      while ($self->{lastline} =~ /\\$/ && defined($tmp_line = readline($self->{FH})));
+
+    chomp $self->{lastline};
+    $self->{lastline} =~ s/^\s+$//;
+  }
+
+  # Nuke trailing "line" entries until there's one that's not empty
+  pop(@{ $self->{line} }), pop(@{ $self->{line_no} })
+    while @{ $self->{line} } && $self->{line}->[-1] eq "";
+
+  return 1;
+}
+
+sub output_init {
+  my $self = shift;
+  my $argsref = shift;
+
+  my ($type, $num, $var, $init, $printed_name)
+    = @{$argsref}{qw(type num var init printed_name)};
+
+  # local assign for efficiently passing in to eval_input_typemap_code
+  local $argsref->{arg} = $num
+                          ? "ST(" . ($num-1) . ")"
+                          : "/* not a parameter */";
+
+  if ( $init =~ /^=/ ) {
+    if ($printed_name) {
+      $self->eval_input_typemap_code(qq/print " $init\\n"/, $argsref);
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var $init\\n"/, $argsref);
+    }
+  }
+  else {
+    if (  $init =~ s/^\+//  &&  $num  ) {
+      $self->generate_init( {
+        type          => $type,
+        num           => $num,
+        var           => $var,
+        printed_name  => $printed_name,
+      } );
+    }
+    elsif ($printed_name) {
+      print ";\n";
+      $init =~ s/^;//;
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $argsref);
+      $init =~ s/^;//;
+    }
+    $self->{deferred}
+      .= $self->eval_input_typemap_code(qq/"\\n\\t$init\\n"/, $argsref);
+  }
+}
+
+sub generate_init {
+  my $self = shift;
+  my $argsref = shift;
+
+  my ($type, $num, $var, $printed_name)
+    = @{$argsref}{qw(type num var printed_name)};
+
+  my $argoff = $num - 1;
+  my $arg = "ST($argoff)";
+
+  my $typemaps = $self->{typemap};
+
+  $type = ExtUtils::Typemaps::tidy_type($type);
+  if (not $typemaps->get_typemap(ctype => $type)) {
+    $self->report_typemap_failure($typemaps, $type);
+    return;
+  }
+
+  (my $ntype = $type) =~ s/\s*\*/Ptr/g;
+  (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//;
+
+  my $typem = $typemaps->get_typemap(ctype => $type);
+  my $xstype = $typem->xstype;
+  #this is an optimization from perl 5.0 alpha 6, class check is skipped
+  #T_REF_IV_REF is missing since it has no untyped analog at the moment
+  $xstype =~ s/OBJ$/REF/ || $xstype =~ s/^T_REF_IV_PTR$/T_PTRREF/
+    if $self->{func_name} =~ /DESTROY$/;
+  if ($xstype eq 'T_PV' and exists $self->{lengthof}->{$var}) {
+    print "\t$var" unless $printed_name;
+    print " = ($type)SvPV($arg, STRLEN_length_of_$var);\n";
+    die "default value not supported with length(NAME) supplied"
+      if defined $self->{defaults}->{$var};
+    return;
+  }
+  $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes};
+
+  my $inputmap = $typemaps->get_inputmap(xstype => $xstype);
+  if (not defined $inputmap) {
+    $self->blurt("Error: No INPUT definition for type '$type', typekind '" . $type->xstype . "' found");
+    return;
+  }
+
+  my $expr = $inputmap->cleaned_code;
+  # Note: This gruesome bit either needs heavy rethinking or documentation. I vote for the former. --Steffen
+  if ($expr =~ /DO_ARRAY_ELEM/) {
+    my $subtypemap  = $typemaps->get_typemap(ctype => $subtype);
+    if (not $subtypemap) {
+      $self->report_typemap_failure($typemaps, $subtype);
+      return;
+    }
+
+    my $subinputmap = $typemaps->get_inputmap(xstype => $subtypemap->xstype);
+    if (not $subinputmap) {
+      $self->blurt("Error: No INPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found");
+      return;
+    }
+
+    my $subexpr = $subinputmap->cleaned_code;
+    $subexpr =~ s/\$type/\$subtype/g;
+    $subexpr =~ s/ntype/subtype/g;
+    $subexpr =~ s/\$arg/ST(ix_$var)/g;
+    $subexpr =~ s/\n\t/\n\t\t/g;
+    $subexpr =~ s/is not of (.*\")/[arg %d] is not of $1, ix_$var + 1/g;
+    $subexpr =~ s/\$var/${var}\[ix_$var - $argoff]/;
+    $expr =~ s/DO_ARRAY_ELEM/$subexpr/;
+  }
+  if ($expr =~ m#/\*.*scope.*\*/#i) {  # "scope" in C comments
+    $self->{ScopeThisXSUB} = 1;
+  }
+
+  my $eval_vars = {
+    var           => $var,
+    printed_name  => $printed_name,
+    type          => $type,
+    ntype         => $ntype,
+    subtype       => $subtype,
+    num           => $num,
+    arg           => $arg,
+    argoff        => $argoff,
+  };
+
+  if (defined($self->{defaults}->{$var})) {
+    $expr =~ s/(\t+)/$1    /g;
+    $expr =~ s/        /\t/g;
+    if ($printed_name) {
+      print ";\n";
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars);
+    }
+    if ($self->{defaults}->{$var} eq 'NO_INIT') {
+      $self->{deferred} .= $self->eval_input_typemap_code(
+        qq/"\\n\\tif (items >= $num) {\\n$expr;\\n\\t}\\n"/,
+        $eval_vars
+      );
+    }
+    else {
+      $self->{deferred} .= $self->eval_input_typemap_code(
+        qq/"\\n\\tif (items < $num)\\n\\t    $var = $self->{defaults}->{$var};\\n\\telse {\\n$expr;\\n\\t}\\n"/,
+        $eval_vars
+      );
+    }
+  }
+  elsif ($self->{ScopeThisXSUB} or $expr !~ /^\s*\$var =/) {
+    if ($printed_name) {
+      print ";\n";
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars);
+    }
+    $self->{deferred}
+      .= $self->eval_input_typemap_code(qq/"\\n$expr;\\n"/, $eval_vars);
+  }
+  else {
+    die "panic: do not know how to handle this branch for function pointers"
+      if $printed_name;
+    $self->eval_input_typemap_code(qq/print "$expr;\\n"/, $eval_vars);
+  }
+}
+
+sub generate_output {
+  my $self = shift;
+  my $argsref = shift;
+  my ($type, $num, $var, $do_setmagic, $do_push)
+    = @{$argsref}{qw(type num var do_setmagic do_push)};
+
+  my $arg = "ST(" . ($num - ($num != 0)) . ")";
+
+  my $typemaps = $self->{typemap};
+
+  $type = ExtUtils::Typemaps::tidy_type($type);
+  local $argsref->{type} = $type;
+
+  if ($type =~ /^array\(([^,]*),(.*)\)/) {
+    print "\t$arg = sv_newmortal();\n";
+    print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n";
+    print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+  }
+  else {
+    my $typemap = $typemaps->get_typemap(ctype => $type);
+    if (not $typemap) {
+      $self->report_typemap_failure($typemaps, $type);
+      return;
+    }
+
+    my $outputmap = $typemaps->get_outputmap(xstype => $typemap->xstype);
+    if (not $outputmap) {
+      $self->blurt("Error: No OUTPUT definition for type '$type', typekind '" . $typemap->xstype . "' found");
+      return;
+    }
+
+    (my $ntype = $type) =~ s/\s*\*/Ptr/g;
+    $ntype =~ s/\(\)//g;
+    (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//;
+
+    my $eval_vars = {%$argsref, subtype => $subtype, ntype => $ntype, arg => $arg};
+    my $expr = $outputmap->cleaned_code;
+    if ($expr =~ /DO_ARRAY_ELEM/) {
+      my $subtypemap = $typemaps->get_typemap(ctype => $subtype);
+      if (not $subtypemap) {
+        $self->report_typemap_failure($typemaps, $subtype);
+        return;
+      }
+
+      my $suboutputmap = $typemaps->get_outputmap(xstype => $subtypemap->xstype);
+      if (not $suboutputmap) {
+        $self->blurt("Error: No OUTPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found");
+        return;
+      }
+
+      my $subexpr = $suboutputmap->cleaned_code;
+      $subexpr =~ s/ntype/subtype/g;
+      $subexpr =~ s/\$arg/ST(ix_$var)/g;
+      $subexpr =~ s/\$var/${var}\[ix_$var]/g;
+      $subexpr =~ s/\n\t/\n\t\t/g;
+      $expr =~ s/DO_ARRAY_ELEM\n/$subexpr/;
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\t\tSvSETMAGIC(ST(ix_$var));\n" if $do_setmagic;
+    }
+    elsif ($var eq 'RETVAL') {
+      my $orig_arg = $arg;
+      my $indent;
+      my $use_RETVALSV = 1;
+      my $do_mortal = 0;
+      my $do_copy_tmp = 1;
+      my $pre_expr;
+      local $eval_vars->{arg} = $arg = 'RETVALSV';
+      my $evalexpr = $self->eval_output_typemap_code("qq\a$expr\a", $eval_vars);
+
+      if ($expr =~ /^\t\Q$arg\E = new/) {
+        # We expect that $arg has refcnt 1, so we need to
+        # mortalize it.
+        $do_mortal = 1;
+      }
+      # If RETVAL is immortal, don't mortalize it. This code is not perfect:
+      # It won't detect a func or expression that only returns immortals, for
+      # example, this RE must be tried before next elsif.
+      elsif ($evalexpr =~ /^\t\Q$arg\E\s*=\s*(boolSV\(|(&PL_sv_yes|&PL_sv_no|&PL_sv_undef)\s*;)/) {
+        $do_copy_tmp = 0; #$arg will be a ST(X), no SV* RETVAL, no RETVALSV
+        $use_RETVALSV = 0;
+      }
+      elsif ($evalexpr =~ /^\s*\Q$arg\E\s*=/) {
+        # We expect that $arg has refcnt >=1, so we need
+        # to mortalize it!
+        $use_RETVALSV = 0 if $ntype eq "SVPtr";#reuse SV* RETVAL vs open new block
+        $do_mortal = 1;
+      }
+      else {
+        # Just hope that the entry would safely write it
+        # over an already mortalized value. By
+        # coincidence, something like $arg = &PL_sv_undef
+        # works too, but should be caught above.
+        $pre_expr = "RETVALSV = sv_newmortal();\n";
+        # new mortals don't have set magic
+        $do_setmagic = 0;
+      }
+      if($use_RETVALSV) {
+        print "\t{\n\t    SV * RETVALSV;\n";
+        $indent = "\t    ";
+      } else {
+        $indent = "\t";
+      }
+      print $indent.$pre_expr if $pre_expr;
+
+      if($use_RETVALSV) {
+        #take control of 1 layer of indent, may or may not indent more
+        $evalexpr =~ s/^(\t|        )/$indent/gm;
+        #"\t    \t" doesn't draw right in some IDEs
+        #break down all \t into spaces
+        $evalexpr =~ s/\t/        /g;
+        #rebuild back into \t'es, \t==8 spaces, indent==4 spaces
+        $evalexpr =~ s/        /\t/g;
+      }
+      else {
+        if($do_mortal || $do_setmagic) {
+        #typemap entry evaled with RETVALSV, if we aren't using RETVALSV replace
+          $evalexpr =~ s/RETVALSV/RETVAL/g; #all uses with RETVAL for prettier code
+        }
+        else { #if no extra boilerplate (no mortal, no set magic) is needed
+            #after $evalexport, get rid of RETVALSV's visual cluter and change
+          $evalexpr =~ s/RETVALSV/$orig_arg/g;#the lvalue to ST(X)
+        }
+      }
+      #stop "	RETVAL = RETVAL;" for SVPtr type
+      print $evalexpr if $evalexpr !~ /^\s*RETVAL = RETVAL;$/;
+      print $indent.'RETVAL'.($use_RETVALSV ? 'SV':'')
+            .' = sv_2mortal(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_mortal;
+      print $indent.'SvSETMAGIC(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_setmagic;
+      #dont do "RETVALSV = boolSV(RETVAL); ST(0) = RETVALSV;", it is visual clutter
+      print $indent."$orig_arg = RETVAL".($use_RETVALSV ? 'SV':'').";\n"
+        if $do_mortal || $do_setmagic || $do_copy_tmp;
+      print "\t}\n" if $use_RETVALSV;
+    }
+    elsif ($do_push) {
+      print "\tPUSHs(sv_newmortal());\n";
+      local $eval_vars->{arg} = "ST($num)";
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+    }
+    elsif ($arg =~ /^ST\(\d+\)$/) {
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+    }
+  }
+}
+
+
+# Just delegates to a clean package.
+# Shim to evaluate Perl code in the right variable context
+# for typemap code (having things such as $ALIAS set up).
+sub eval_output_typemap_code {
+  my ($self, $code, $other) = @_;
+  return ExtUtils::ParseXS::Eval::eval_output_typemap_code($self, $code, $other);
+}
+
+sub eval_input_typemap_code {
+  my ($self, $code, $other) = @_;
+  return ExtUtils::ParseXS::Eval::eval_input_typemap_code($self, $code, $other);
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
+package ExtUtils::MM_VMS;
+
+use strict;
+
+use ExtUtils::MakeMaker::Config;
+require Exporter;
+
+BEGIN {
+    # so we can compile the thing on non-VMS platforms.
+    if( $^O eq 'VMS' ) {
+        require VMS::Filespec;
+        VMS::Filespec->import;
+    }
+}
+
+use File::Basename;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+
+use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562);
+our $Revision = $ExtUtils::MakeMaker::Revision;
+
+
+
+sub wraplist {
+    my($self) = shift;
+    my($line,$hlen) = ('',0);
+
+    foreach my $word (@_) {
+      # Perl bug -- seems to occasionally insert extra elements when
+      # traversing array (scalar(@array) doesn't show them, but
+      # foreach(@array) does) (5.00307)
+      next unless $word =~ /\w/;
+      $line .= ' ' if length($line);
+      if ($hlen > 80) { $line .= "\\\n\t"; $hlen = 0; }
+      $line .= $word;
+      $hlen += length($word) + 2;
+    }
+    $line;
+}
+
+
+# This isn't really an override.  It's just here because ExtUtils::MM_VMS
+# appears in @MM::ISA before ExtUtils::Liblist::Kid, so if there isn't an ext()
+# in MM_VMS, then AUTOLOAD is called, and bad things happen.  So, we just
+# mimic inheritance here and hand off to ExtUtils::Liblist::Kid.
+# XXX This hackery will die soon. --Schwern
+sub ext {
+    require ExtUtils::Liblist::Kid;
+    goto &ExtUtils::Liblist::Kid::ext;
+}
+
+
+sub guess_name {
+    my($self) = @_;
+    my($defname,$defpm,@pm,%xs);
+    local *PM;
+
+    $defname = basename(fileify($ENV{'DEFAULT'}));
+    $defname =~ s![\d\-_]*\.dir.*$!!;  # Clip off .dir;1 suffix, and package version
+    $defpm = $defname;
+    # Fallback in case for some reason a user has copied the files for an
+    # extension into a working directory whose name doesn't reflect the
+    # extension's name.  We'll use the name of a unique .pm file, or the
+    # first .pm file with a matching .xs file.
+    if (not -e "${defpm}.pm") {
+      @pm = glob('*.pm');
+      s/.pm$// for @pm;
+      if (@pm == 1) { ($defpm = $pm[0]) =~ s/.pm$//; }
+      elsif (@pm) {
+        %xs = map { s/.xs$//; ($_,1) } glob('*.xs');  ## no critic
+        if (keys %xs) {
+            foreach my $pm (@pm) {
+                $defpm = $pm, last if exists $xs{$pm};
+            }
+        }
+      }
+    }
+    if (open(my $pm, '<', "${defpm}.pm")){
+        while (<$pm>) {
+            if (/^\s*package\s+([^;]+)/i) {
+                $defname = $1;
+                last;
+            }
+        }
+        print "Warning (non-fatal): Couldn't find package name in ${defpm}.pm;\n\t",
+                     "defaulting package name to $defname\n"
+            if eof($pm);
+        close $pm;
+    }
+    else {
+        print "Warning (non-fatal): Couldn't find ${defpm}.pm;\n\t",
+                     "defaulting package name to $defname\n";
+    }
+    $defname =~ s#[\d.\-_]+$##;
+    $defname;
+}
+
+
+sub find_perl {
+    my($self, $ver, $names, $dirs, $trace) = @_;
+    my($vmsfile,@sdirs,@snames,@cand);
+    my($rslt);
+    my($inabs) = 0;
+    local *TCF;
+
+    if( $self->{PERL_CORE} ) {
+        # Check in relative directories first, so we pick up the current
+        # version of Perl if we're running MakeMaker as part of the main build.
+        @sdirs = sort { my($absa) = $self->file_name_is_absolute($a);
+                        my($absb) = $self->file_name_is_absolute($b);
+                        if ($absa && $absb) { return $a cmp $b }
+                        else { return $absa ? 1 : ($absb ? -1 : ($a cmp $b)); }
+                      } @$dirs;
+        # Check miniperl before perl, and check names likely to contain
+        # version numbers before "generic" names, so we pick up an
+        # executable that's less likely to be from an old installation.
+        @snames = sort { my($ba) = $a =~ m!([^:>\]/]+)$!;  # basename
+                         my($bb) = $b =~ m!([^:>\]/]+)$!;
+                         my($ahasdir) = (length($a) - length($ba) > 0);
+                         my($bhasdir) = (length($b) - length($bb) > 0);
+                         if    ($ahasdir and not $bhasdir) { return 1; }
+                         elsif ($bhasdir and not $ahasdir) { return -1; }
+                         else { $bb =~ /\d/ <=> $ba =~ /\d/
+                                  or substr($ba,0,1) cmp substr($bb,0,1)
+                                  or length($bb) <=> length($ba) } } @$names;
+    }
+    else {
+        @sdirs  = @$dirs;
+        @snames = @$names;
+    }
+
+    # Image names containing Perl version use '_' instead of '.' under VMS
+    s/\.(\d+)$/_$1/ for @snames;
+    if ($trace >= 2){
+        print "Looking for perl $ver by these names:\n";
+        print "\t@snames,\n";
+        print "in these dirs:\n";
+        print "\t@sdirs\n";
+    }
+    foreach my $dir (@sdirs){
+        next unless defined $dir; # $self->{PERL_SRC} may be undefined
+        $inabs++ if $self->file_name_is_absolute($dir);
+        if ($inabs == 1) {
+            # We've covered relative dirs; everything else is an absolute
+            # dir (probably an installed location).  First, we'll try
+            # potential command names, to see whether we can avoid a long
+            # MCR expression.
+            foreach my $name (@snames) {
+                push(@cand,$name) if $name =~ /^[\w\-\$]+$/;
+            }
+            $inabs++; # Should happen above in next $dir, but just in case...
+        }
+        foreach my $name (@snames){
+            push @cand, ($name !~ m![/:>\]]!) ? $self->catfile($dir,$name)
+                                              : $self->fixpath($name,0);
+        }
+    }
+    foreach my $name (@cand) {
+        print "Checking $name\n" if $trace >= 2;
+        # If it looks like a potential command, try it without the MCR
+        if ($name =~ /^[\w\-\$]+$/) {
+            open(my $tcf, ">", "temp_mmvms.com")
+                or die('unable to open temp file');
+            print $tcf "\$ set message/nofacil/nosever/noident/notext\n";
+            print $tcf "\$ $name -e \"require $ver; print \"\"VER_OK\\n\"\"\"\n";
+            close $tcf;
+            $rslt = `\@temp_mmvms.com` ;
+            unlink('temp_mmvms.com');
+            if ($rslt =~ /VER_OK/) {
+                print "Using PERL=$name\n" if $trace;
+                return $name;
+            }
+        }
+        next unless $vmsfile = $self->maybe_command($name);
+        $vmsfile =~ s/;[\d\-]*$//;  # Clip off version number; we can use a newer version as well
+        print "Executing $vmsfile\n" if ($trace >= 2);
+        open(my $tcf, '>', "temp_mmvms.com")
+                or die('unable to open temp file');
+        print $tcf "\$ set message/nofacil/nosever/noident/notext\n";
+        print $tcf "\$ mcr $vmsfile -e \"require $ver; print \"\"VER_OK\\n\"\"\" \n";
+        close $tcf;
+        $rslt = `\@temp_mmvms.com`;
+        unlink('temp_mmvms.com');
+        if ($rslt =~ /VER_OK/) {
+            print "Using PERL=MCR $vmsfile\n" if $trace;
+            return "MCR $vmsfile";
+        }
+    }
+    print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
+    0; # false and not empty
+}
+
+
+sub _fixin_replace_shebang {
+    my ( $self, $file, $line ) = @_;
+
+    my ( undef, $arg ) = split ' ', $line, 2;
+
+    return $Config{startperl} . "\n" . $Config{sharpbang} . "perl $arg\n";
+}
+
+
+sub maybe_command {
+    my($self,$file) = @_;
+    return $file if -x $file && ! -d _;
+    my(@dirs) = ('');
+    my(@exts) = ('',$Config{'exe_ext'},'.exe','.com');
+
+    if ($file !~ m![/:>\]]!) {
+        for (my $i = 0; defined $ENV{"DCL\$PATH;$i"}; $i++) {
+            my $dir = $ENV{"DCL\$PATH;$i"};
+            $dir .= ':' unless $dir =~ m%[\]:]$%;
+            push(@dirs,$dir);
+        }
+        push(@dirs,'Sys$System:');
+        foreach my $dir (@dirs) {
+            my $sysfile = "$dir$file";
+            foreach my $ext (@exts) {
+                return $file if -x "$sysfile$ext" && ! -d _;
+            }
+        }
+    }
+    return 0;
+}
+
+
+
+sub pasthru {
+    my($self) = shift;
+    my $pasthru = $self->SUPER::pasthru;
+    $pasthru =~ s|(PASTHRU\s*=\s*)|$1/MACRO=(|;
+    $pasthru =~ s|\n\z|)\n|m;
+    $pasthru =~ s|/defi?n?e?=\(?([^\),]+)\)?|,$1|ig;
+
+    return $pasthru;
+}
+
+
+
+sub pm_to_blib {
+    my $self = shift;
+
+    my $make = $self->SUPER::pm_to_blib;
+
+    $make =~ s{^pm_to_blib :}{pm_to_blib.ts :}m;
+    $make =~ s{\$\(TOUCH\) pm_to_blib}{\$(TOUCH) pm_to_blib.ts};
+
+    $make = <<'MAKE' . $make;
+# Dummy target to match Unix target name; we use pm_to_blib.ts as
+# timestamp file to avoid repeated invocations under VMS
+pm_to_blib : pm_to_blib.ts
+	$(NOECHO) $(NOOP)
+
+MAKE
+
+    return $make;
+}
+
+
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && ! -d _;
+    return "$file.com" if -r "$file.com";
+    return "$file.pl" if -r "$file.pl";
+    return '';
+}
+
+
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man = unixify($man);
+    $man =~ s#/+#__#g;
+    $man;
+}
+
+
+sub init_DEST {
+    my $self = shift;
+
+    $self->SUPER::init_DEST;
+
+    # Expand DEST variables.
+    foreach my $var ($self->installvars) {
+        my $destvar = 'DESTINSTALL'.$var;
+        $self->{$destvar} = $self->eliminate_macros($self->{$destvar});
+    }
+}
+
+
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    $self->{DIRFILESEP} = '';
+    return 1;
+}
+
+
+
+sub init_main {
+    my($self) = shift;
+
+    $self->SUPER::init_main;
+
+    $self->{DEFINE} ||= '';
+    if ($self->{DEFINE} ne '') {
+        my(@terms) = split(/\s+/,$self->{DEFINE});
+        my(@defs,@udefs);
+        foreach my $def (@terms) {
+            next unless $def;
+            my $targ = \@defs;
+            if ($def =~ s/^-([DU])//) {    # If it was a Unix-style definition
+                $targ = \@udefs if $1 eq 'U';
+                $def =~ s/='(.*)'$/=$1/;  # then remove shell-protection ''
+                $def =~ s/^'(.*)'$/$1/;   # from entire term or argument
+            }
+            if ($def =~ /=/) {
+                $def =~ s/"/""/g;  # Protect existing " from DCL
+                $def = qq["$def"]; # and quote to prevent parsing of =
+            }
+            push @$targ, $def;
+        }
+
+        $self->{DEFINE} = '';
+        if (@defs)  {
+            $self->{DEFINE}  = '/Define=(' . join(',',@defs)  . ')';
+        }
+        if (@udefs) {
+            $self->{DEFINE} .= '/Undef=('  . join(',',@udefs) . ')';
+        }
+    }
+}
+
+
+sub init_tools {
+    my($self) = @_;
+
+    $self->{NOOP}               = 'Continue';
+    $self->{NOECHO}             ||= '@ ';
+
+    $self->{MAKEFILE}           ||= $self->{FIRST_MAKEFILE} || 'Descrip.MMS';
+    $self->{FIRST_MAKEFILE}     ||= $self->{MAKEFILE};
+    $self->{MAKE_APERL_FILE}    ||= 'Makeaperl.MMS';
+    $self->{MAKEFILE_OLD}       ||= $self->eliminate_macros('$(FIRST_MAKEFILE)_old');
+#
+#   If an extension is not specified, then MMS/MMK assumes an
+#   an extension of .MMS.  If there really is no extension,
+#   then a trailing "." needs to be appended to specify a
+#   a null extension.
+#
+    $self->{MAKEFILE} .= '.' unless $self->{MAKEFILE} =~ m/\./;
+    $self->{FIRST_MAKEFILE} .= '.' unless $self->{FIRST_MAKEFILE} =~ m/\./;
+    $self->{MAKE_APERL_FILE} .= '.' unless $self->{MAKE_APERL_FILE} =~ m/\./;
+    $self->{MAKEFILE_OLD} .= '.' unless $self->{MAKEFILE_OLD} =~ m/\./;
+
+    $self->{MACROSTART}         ||= '/Macro=(';
+    $self->{MACROEND}           ||= ')';
+    $self->{USEMAKEFILE}        ||= '/Descrip=';
+
+    $self->{EQUALIZE_TIMESTAMP} ||= '$(ABSPERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"';
+
+    $self->{MOD_INSTALL} ||=
+      $self->oneliner(<<'CODE', ['-MExtUtils::Install']);
+install([ from_to => {split('\|', <STDIN>)}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]);
+CODE
+
+    $self->{UMASK_NULL} = '! ';
+
+    $self->SUPER::init_tools;
+
+    # Use the default shell
+    $self->{SHELL}    ||= 'Posix';
+
+    # Redirection on VMS goes before the command, not after as on Unix.
+    # $(DEV_NULL) is used once and its not worth going nuts over making
+    # it work.  However, Unix's DEV_NULL is quite wrong for VMS.
+    $self->{DEV_NULL}   = '';
+
+    return;
+}
+
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_VMS_REVISION} = $Revision;
+    $self->{MM_VMS_VERSION}  = $VERSION;
+    $self->{PERL_VMS} = $self->catdir($self->{PERL_SRC}, 'VMS')
+      if $self->{PERL_SRC};
+}
+
+
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(PERL_VMS MM_VMS_REVISION MM_VMS_VERSION))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+
+sub init_VERSION {
+    my $self = shift;
+
+    $self->SUPER::init_VERSION;
+
+    $self->{DEFINE_VERSION}    = '"$(VERSION_MACRO)=""$(VERSION)"""';
+    $self->{XS_DEFINE_VERSION} = '"$(XS_VERSION_MACRO)=""$(XS_VERSION)"""';
+    $self->{MAKEMAKER} = vmsify($INC{'ExtUtils/MakeMaker.pm'});
+}
+
+
+
+sub constants {
+    my($self) = @_;
+
+    # Be kind about case for pollution
+    for (@ARGV) { $_ = uc($_) if /POLLUTE/i; }
+
+    # Cleanup paths for directories in MMS macros.
+    foreach my $macro ( qw [
+            INST_BIN INST_SCRIPT INST_LIB INST_ARCHLIB
+            PERL_LIB PERL_ARCHLIB
+            PERL_INC PERL_SRC ],
+                        (map { 'INSTALL'.$_ } $self->installvars)
+                      )
+    {
+        next unless defined $self->{$macro};
+        next if $macro =~ /MAN/ && $self->{$macro} eq 'none';
+        $self->{$macro} = $self->fixpath($self->{$macro},1);
+    }
+
+    # Cleanup paths for files in MMS macros.
+    foreach my $macro ( qw[LIBPERL_A FIRST_MAKEFILE MAKEFILE_OLD
+                           MAKE_APERL_FILE MYEXTLIB] )
+    {
+        next unless defined $self->{$macro};
+        $self->{$macro} = $self->fixpath($self->{$macro},0);
+    }
+
+    # Fixup files for MMS macros
+    # XXX is this list complete?
+    for my $macro (qw/
+                   FULLEXT VERSION_FROM
+	      /	) {
+        next unless defined $self->{$macro};
+        $self->{$macro} = $self->fixpath($self->{$macro},0);
+    }
+
+
+    for my $macro (qw/
+                   OBJECT LDFROM
+	      /	) {
+        next unless defined $self->{$macro};
+
+        # Must expand macros before splitting on unescaped whitespace.
+        $self->{$macro} = $self->eliminate_macros($self->{$macro});
+        if ($self->{$macro} =~ /(?<!\^)\s/) {
+            $self->{$macro} =~ s/(\\)?\n+\s+/ /g;
+            $self->{$macro} = $self->wraplist(
+                map $self->fixpath($_,0), split /,?(?<!\^)\s+/, $self->{$macro}
+            );
+        }
+        else {
+            $self->{$macro} = $self->fixpath($self->{$macro},0);
+        }
+    }
+
+    for my $macro (qw/ XS MAN1PODS MAN3PODS PM /) {
+        # Where is the space coming from? --jhi
+        next unless $self ne " " && defined $self->{$macro};
+        my %tmp = ();
+        for my $key (keys %{$self->{$macro}}) {
+            $tmp{$self->fixpath($key,0)} =
+                                     $self->fixpath($self->{$macro}{$key},0);
+        }
+        $self->{$macro} = \%tmp;
+    }
+
+    for my $macro (qw/ C O_FILES H /) {
+        next unless defined $self->{$macro};
+        my @tmp = ();
+        for my $val (@{$self->{$macro}}) {
+            push(@tmp,$self->fixpath($val,0));
+        }
+        $self->{$macro} = \@tmp;
+    }
+
+    # mms/k does not define a $(MAKE) macro.
+    $self->{MAKE} = '$(MMS)$(MMSQUALIFIERS)';
+
+    return $self->SUPER::constants;
+}
+
+
+
+sub special_targets {
+    my $self = shift;
+
+    my $make_frag .= <<'MAKE_FRAG';
+.SUFFIXES :
+.SUFFIXES : $(OBJ_EXT) .c .cpp .cxx .xs
+
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+
+sub cflags {
+    my($self,$libperl) = @_;
+    my($quals) = $self->{CCFLAGS} || $Config{'ccflags'};
+    my($definestr,$undefstr,$flagoptstr) = ('','','');
+    my($incstr) = '/Include=($(PERL_INC)';
+    my($name,$sys,@m);
+
+    ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
+    print "Unix shell script ".$Config{"$self->{'BASEEXT'}_cflags"}.
+         " required to modify CC command for $self->{'BASEEXT'}\n"
+    if ($Config{$name});
+
+    if ($quals =~ / -[DIUOg]/) {
+	while ($quals =~ / -([Og])(\d*)\b/) {
+	    my($type,$lvl) = ($1,$2);
+	    $quals =~ s/ -$type$lvl\b\s*//;
+	    if ($type eq 'g') { $flagoptstr = '/NoOptimize'; }
+	    else { $flagoptstr = '/Optimize' . (defined($lvl) ? "=$lvl" : ''); }
+	}
+	while ($quals =~ / -([DIU])(\S+)/) {
+	    my($type,$def) = ($1,$2);
+	    $quals =~ s/ -$type$def\s*//;
+	    $def =~ s/"/""/g;
+	    if    ($type eq 'D') { $definestr .= qq["$def",]; }
+	    elsif ($type eq 'I') { $incstr .= ',' . $self->fixpath($def,1); }
+	    else                 { $undefstr  .= qq["$def",]; }
+	}
+    }
+    if (length $quals and $quals !~ m!/!) {
+	warn "MM_VMS: Ignoring unrecognized CCFLAGS elements \"$quals\"\n";
+	$quals = '';
+    }
+    $definestr .= q["PERL_POLLUTE",] if $self->{POLLUTE};
+    if (length $definestr) { chop($definestr); $quals .= "/Define=($definestr)"; }
+    if (length $undefstr)  { chop($undefstr);  $quals .= "/Undef=($undefstr)";   }
+    # Deal with $self->{DEFINE} here since some C compilers pay attention
+    # to only one /Define clause on command line, so we have to
+    # conflate the ones from $Config{'ccflags'} and $self->{DEFINE}
+    # ($self->{DEFINE} has already been VMSified in constants() above)
+    if ($self->{DEFINE}) { $quals .= $self->{DEFINE}; }
+    for my $type (qw(Def Undef)) {
+	my(@terms);
+	while ($quals =~ m:/${type}i?n?e?=([^/]+):ig) {
+		my $term = $1;
+		$term =~ s:^\((.+)\)$:$1:;
+		push @terms, $term;
+	}
+	if ($type eq 'Def') {
+	    push @terms, qw[ $(DEFINE_VERSION) $(XS_DEFINE_VERSION) ];
+	}
+	if (@terms) {
+	    $quals =~ s:/${type}i?n?e?=[^/]+::ig;
+            # PASTHRU_DEFINE will have its own comma
+	    $quals .= "/${type}ine=(" . join(',',@terms) . ($type eq 'Def' ? '$(PASTHRU_DEFINE)' : '') . ')';
+	}
+    }
+
+    $libperl or $libperl = $self->{LIBPERL_A} || "libperl.olb";
+
+    # Likewise with $self->{INC} and /Include
+    if ($self->{'INC'}) {
+	my(@includes) = split(/\s+/,$self->{INC});
+	foreach (@includes) {
+	    s/^-I//;
+	    $incstr .= ','.$self->fixpath($_,1);
+	}
+    }
+    $quals .= "$incstr)";
+#    $quals =~ s/,,/,/g; $quals =~ s/\(,/(/g;
+    $self->{CCFLAGS} = $quals;
+
+    $self->{PERLTYPE} ||= '';
+
+    $self->{OPTIMIZE} ||= $flagoptstr || $Config{'optimize'};
+    if ($self->{OPTIMIZE} !~ m!/!) {
+	if    ($self->{OPTIMIZE} =~ m!-g!) { $self->{OPTIMIZE} = '/Debug/NoOptimize' }
+	elsif ($self->{OPTIMIZE} =~ /-O(\d*)/) {
+	    $self->{OPTIMIZE} = '/Optimize' . (defined($1) ? "=$1" : '');
+	}
+	else {
+	    warn "MM_VMS: Can't parse OPTIMIZE \"$self->{OPTIMIZE}\"; using default\n" if length $self->{OPTIMIZE};
+	    $self->{OPTIMIZE} = '/Optimize';
+	}
+    }
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+}
+
+
+sub const_cccmd {
+    my($self,$libperl) = @_;
+    my(@m);
+
+    return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
+    return '' unless $self->needs_linking();
+    if ($Config{'vms_cc_type'} eq 'gcc') {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" Then Define/NoLog SYS GNU_CC_Include:[VMS]';
+    }
+    elsif ($Config{'vms_cc_type'} eq 'vaxc') {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").eqs."" Then Define/NoLog SYS Sys$Library
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").nes."" Then Define/NoLog SYS VAXC$Include';
+    }
+    else {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").eqs."" Then Define/NoLog SYS ',
+		($Config{'archname'} eq 'VMS_AXP' ? 'Sys$Library' : 'DECC$Library_Include'),'
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").nes."" Then Define/NoLog SYS DECC$System_Include';
+    }
+
+    push(@m, "\n\nCCCMD = $Config{'cc'} \$(CCFLAGS)\$(OPTIMIZE)\n");
+
+    $self->{CONST_CCCMD} = join('',@m);
+}
+
+
+
+sub tools_other {
+    my($self) = @_;
+
+    # XXX Are these necessary?  Does anyone override them?  They're longer
+    # than just typing the literal string.
+    my $extra_tools = <<'EXTRA_TOOLS';
+
+# Just in case anyone is using the old macro.
+USEMACROS = $(MACROSTART)
+SAY = $(ECHO)
+
+EXTRA_TOOLS
+
+    return $self->SUPER::tools_other . $extra_tools;
+}
+
+
+sub init_dist {
+    my($self) = @_;
+    $self->{ZIPFLAGS}     ||= '-Vu';
+    $self->{COMPRESS}     ||= 'gzip';
+    $self->{SUFFIX}       ||= '-gz';
+    $self->{SHAR}         ||= 'vms_share';
+    $self->{DIST_DEFAULT} ||= 'zipdist';
+
+    $self->SUPER::init_dist;
+
+    $self->{DISTVNAME} = "$self->{DISTNAME}-$self->{VERSION_SYM}"
+      unless $self->{ARGS}{DISTVNAME};
+
+    return;
+}
+
+
+sub c_o {
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+    '
+.c$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT)
+
+.cpp$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cpp /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT)
+
+.cxx$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cxx /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT)
+
+';
+}
+
+
+sub xs_c {
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+    '
+.xs.c :
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET_NAME).xsc
+	$(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c
+';
+}
+
+
+sub xs_o {
+    my ($self) = @_;
+    return '' unless $self->needs_linking();
+    my $frag = '
+.xs$(OBJ_EXT) :
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET_NAME).xsc
+	$(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT)
+';
+    if ($self->{XSMULTI}) {
+	for my $ext ($self->_xs_list_basenames) {
+	    my $version = $self->parse_version("$ext.pm");
+	    my $ccflags = $self->{CCFLAGS};
+	    $ccflags =~ s/\$\(DEFINE_VERSION\)/\"VERSION_MACRO=\\"\"$version\\"\"/;
+	    $ccflags =~ s/\$\(XS_DEFINE_VERSION\)/\"XS_VERSION_MACRO=\\"\"$version\\"\"/;
+	    $self->_xsbuild_replace_macro($ccflags, 'xs', $ext, 'INC');
+	    $self->_xsbuild_replace_macro($ccflags, 'xs', $ext, 'DEFINE');
+
+	    $frag .= _sprintf562 <<'EOF', $ext, $ccflags;
+
+%1$s$(OBJ_EXT) : %1$s.xs
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs > $(MMS$TARGET_NAME).xsc
+	$(MV) $(MMS$TARGET_NAME).xsc $(MMS$TARGET_NAME).c
+	$(CC)%2$s$(OPTIMIZE) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c /OBJECT=$(MMS$TARGET_NAME)$(OBJ_EXT)
+EOF
+	}
+    }
+    $frag;
+}
+
+
+sub _xsbuild_replace_macro {
+    my ($self, undef, $xstype, $ext, $varname) = @_;
+    my $value = $self->_xsbuild_value($xstype, $ext, $varname);
+    return unless defined $value;
+    $_[1] = _vms_replace_qualifier($self, $_[1], $value, $varname);
+}
+
+
+sub _xsbuild_value {
+    my ($self, $xstype, $ext, $varname) = @_;
+    $ext = unixify($ext);
+    return $self->SUPER::_xsbuild_value($xstype, $ext, $varname);
+}
+
+sub _vms_replace_qualifier {
+    my ($self, $flags, $newflag, $macro) = @_;
+    my $qual_type;
+    my $type_suffix;
+    my $quote_subquals = 0;
+    my @subquals_new = split /\s+/, $newflag;
+
+    if ($macro eq 'DEFINE') {
+        $qual_type = 'Def';
+        $type_suffix = 'ine';
+        map { $_ =~ s/^-D// } @subquals_new;
+        $quote_subquals = 1;
+    }
+    elsif ($macro eq 'INC') {
+        $qual_type = 'Inc';
+        $type_suffix = 'lude';
+        map { $_ =~ s/^-I//; $_ = $self->fixpath($_) } @subquals_new;
+    }
+
+    my @subquals = ();
+    while ($flags =~ m:/${qual_type}\S{0,4}=([^/]+):ig) {
+        my $term = $1;
+        $term =~ s/\"//g;
+        $term =~ s:^\((.+)\)$:$1:;
+        push @subquals, split /,/, $term;
+    }
+    for my $new (@subquals_new) {
+        my ($sq_new, $sqval_new) = split /=/, $new;
+        my $replaced_old = 0;
+        for my $old (@subquals) {
+            my ($sq, $sqval) = split /=/, $old;
+            if ($sq_new eq $sq) {
+                $old = $sq_new;
+                $old .= '=' . $sqval_new if defined($sqval_new) and length($sqval_new);
+                $replaced_old = 1;
+                last;
+            }
+        }
+        push @subquals, $new unless $replaced_old;
+    }
+
+    if (@subquals) {
+        $flags =~ s:/${qual_type}\S{0,4}=[^/]+::ig;
+        # add quotes if requested but not for unexpanded macros
+        map { $_ = qq/"$_"/ if $_ !~ m/^\$\(/ } @subquals if $quote_subquals;
+        $flags .= "/${qual_type}$type_suffix=(" . join(',',@subquals) . ')';
+    }
+
+    return $flags;
+}
+
+
+sub xs_dlsyms_ext {
+    '.opt';
+}
+
+
+sub dlsyms {
+    my ($self, %attribs) = @_;
+    return '' unless $self->needs_linking;
+    $self->xs_dlsyms_iterator;
+}
+
+sub xs_make_dlsyms {
+    my ($self, $attribs, $target, $dep, $name, $dlbase, $funcs, $funclist, $imports, $vars, $extra) = @_;
+    my @m;
+    my $instloc;
+    if ($self->{XSMULTI}) {
+	my ($v, $d, $f) = File::Spec->splitpath($target);
+	my @d = File::Spec->splitdir($d);
+	shift @d if $d[0] eq 'lib';
+	$instloc = $self->catfile('$(INST_ARCHLIB)', 'auto', @d, $f);
+	push @m,"\ndynamic :: $instloc\n\t\$(NOECHO) \$(NOOP)\n"
+	  unless $self->{SKIPHASH}{'dynamic'};
+	push @m,"\nstatic :: $instloc\n\t\$(NOECHO) \$(NOOP)\n"
+	  unless $self->{SKIPHASH}{'static'};
+	push @m, "\n", sprintf <<'EOF', $instloc, $target;
+%s : %s
+	$(CP) $(MMS$SOURCE) $(MMS$TARGET)
+EOF
+    }
+    else {
+	push @m,"\ndynamic :: \$(INST_ARCHAUTODIR)$self->{BASEEXT}.opt\n\t\$(NOECHO) \$(NOOP)\n"
+	  unless $self->{SKIPHASH}{'dynamic'};
+	push @m,"\nstatic :: \$(INST_ARCHAUTODIR)$self->{BASEEXT}.opt\n\t\$(NOECHO) \$(NOOP)\n"
+	  unless $self->{SKIPHASH}{'static'};
+	push @m, "\n", sprintf <<'EOF', $target;
+$(INST_ARCHAUTODIR)$(BASEEXT).opt : %s
+	$(CP) $(MMS$SOURCE) $(MMS$TARGET)
+EOF
+    }
+    push @m,
+     "\n$target : $dep\n\t",
+     q!$(PERLRUN) -MExtUtils::Mksymlists -e "Mksymlists('NAME'=>'!, $name,
+     q!', 'DLBASE' => '!,$dlbase,
+     q!', 'DL_FUNCS' => !,neatvalue($funcs),
+     q!, 'FUNCLIST' => !,neatvalue($funclist),
+     q!, 'IMPORTS' => !,neatvalue($imports),
+     q!, 'DL_VARS' => !, neatvalue($vars);
+    push @m, $extra if defined $extra;
+    push @m, qq!);"\n\t!;
+    # Can't use dlbase as it's been through mod2fname.
+    my $olb_base = basename($target, '.opt');
+    if ($self->{XSMULTI}) {
+        # We've been passed everything but the kitchen sink -- and the location of the
+        # static library we're using to build the dynamic library -- so concoct that
+        # location from what we do have.
+        my $olb_dir = $self->catdir(dirname($instloc), $olb_base);
+        push @m, qq!\$(PERL) -e "print ""${olb_dir}${olb_base}\$(LIB_EXT)/Include=!;
+        push @m, ($Config{d_vms_case_sensitive_symbols} ? uc($olb_base) : $olb_base);
+        push @m, '\n' . $olb_dir . $olb_base . '$(LIB_EXT)/Library\n"";" >>$(MMS$TARGET)',"\n";
+    }
+    else {
+        push @m, qq!\$(PERL) -e "print ""\$(INST_ARCHAUTODIR)${olb_base}\$(LIB_EXT)/Include=!;
+        if ($self->{OBJECT} =~ /\bBASEEXT\b/ or
+            $self->{OBJECT} =~ /\b$self->{BASEEXT}\b/i) {
+            push @m, ($Config{d_vms_case_sensitive_symbols}
+	              ? uc($self->{BASEEXT}) :'$(BASEEXT)');
+        }
+        else {  # We don't have a "main" object file, so pull 'em all in
+            # Upcase module names if linker is being case-sensitive
+            my($upcase) = $Config{d_vms_case_sensitive_symbols};
+            my(@omods) = split ' ', $self->eliminate_macros($self->{OBJECT});
+            for (@omods) {
+                s/\.[^.]*$//;         # Trim off file type
+                s[\$\(\w+_EXT\)][];   # even as a macro
+                s/.*[:>\/\]]//;       # Trim off dir spec
+                $_ = uc if $upcase;
+            };
+            my(@lines);
+            my $tmp = shift @omods;
+            foreach my $elt (@omods) {
+                $tmp .= ",$elt";
+                if (length($tmp) > 80) { push @lines, $tmp;  $tmp = ''; }
+            }
+            push @lines, $tmp;
+            push @m, '(', join( qq[, -\\n\\t"";" >>\$(MMS\$TARGET)\n\t\$(PERL) -e "print ""], @lines),')';
+        }
+        push @m, '\n$(INST_ARCHAUTODIR)' . $olb_base . '$(LIB_EXT)/Library\n"";" >>$(MMS$TARGET)',"\n";
+    }
+    if (length $self->{LDLOADLIBS}) {
+        my($line) = '';
+        foreach my $lib (split ' ', $self->{LDLOADLIBS}) {
+            $lib =~ s%\$%\\\$%g;  # Escape '$' in VMS filespecs
+            if (length($line) + length($lib) > 160) {
+                push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n";
+                $line = $lib . '\n';
+            }
+            else { $line .= $lib . '\n'; }
+        }
+        push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n" if $line;
+    }
+    join '', @m;
+}
+
+
+
+sub xs_obj_opt {
+    my ($self, $output_file) = @_;
+    "/OBJECT=$output_file";
+}
+
+
+sub xs_dynamic_lib_macros {
+    my ($self, $attribs) = @_;
+    my $otherldflags = $attribs->{OTHERLDFLAGS} || "";
+    my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || "";
+    sprintf <<'EOF', $otherldflags, $inst_dynamic_dep;
+# This section creates the dynamically loadable objects from relevant
+# objects and possibly $(MYEXTLIB).
+OTHERLDFLAGS = %s
+INST_DYNAMIC_DEP = %s
+EOF
+}
+
+sub xs_make_dynamic_lib {
+    my ($self, $attribs, $from, $to, $todir, $ldfrom, $exportlist) = @_;
+    my $shr = $Config{'dbgprefix'} . 'PerlShr';
+    $exportlist =~ s/.def$/.opt/;  # it's a linker options file
+    #                    1    2       3            4     5
+    _sprintf562 <<'EOF', $to, $todir, $exportlist, $shr, "$shr Sys\$Share:$shr.$Config{'dlext'}";
+%1$s : $(INST_STATIC) $(PERL_INC)perlshr_attr.opt %2$s$(DFSEP).exists %3$s $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
+	If F$TrnLNm("%4$s").eqs."" Then Define/NoLog/User %5$s
+	Link $(LDFLAGS) /Shareable=$(MMS$TARGET)$(OTHERLDFLAGS) %3$s/Option,$(PERL_INC)perlshr_attr.opt/Option
+EOF
+}
+
+
+sub xs_make_static_lib {
+    my ($self, $object, $to, $todir) = @_;
+
+    my @objects;
+    if ($self->{XSMULTI}) {
+        # The extension name should be the main object file name minus file type.
+        my $lib = $object;
+        $lib =~ s/\$\(OBJ_EXT\)\z//;
+        my $override = $self->_xsbuild_value('xs', $lib, 'OBJECT');
+        $object = $override if defined $override;
+        @objects = map { $self->fixpath($_,0) } split /(?<!\^)\s+/, $object;
+    }
+    else {
+        push @objects, $object;
+    }
+
+    my @m;
+    for my $obj (@objects) {
+        push(@m, sprintf "\n%s : %s\$(DFSEP).exists", $obj, $todir);
+    }
+    push(@m, sprintf "\n\n%s : %s \$(MYEXTLIB)\n", $to, (join ' ', @objects));
+
+    # If this extension has its own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    push(@m, "\t",'$(CP) $(MYEXTLIB) $(MMS$TARGET)',"\n") if $self->{MYEXTLIB};
+
+    push(@m,"\t",'If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)',"\n");
+
+    # if there was a library to copy, then we can't use MMS$SOURCE_LIST,
+    # 'cause it's a library and you can't stick them in other libraries.
+    # In that case, we use $OBJECT instead and hope for the best
+    if ($self->{MYEXTLIB}) {
+        for my $obj (@objects) {
+            push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) ' . $obj,"\n");
+        }
+    }
+    else {
+      push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST)',"\n");
+    }
+
+    push @m, "\t\$(NOECHO) \$(PERL) -e 1 >\$(INST_ARCHAUTODIR)extralibs.ld\n";
+    foreach my $lib (split ' ', $self->{EXTRALIBS}) {
+      push(@m,"\t",'$(NOECHO) $(PERL) -e "print qq{',$lib,'\n}" >>$(INST_ARCHAUTODIR)extralibs.ld',"\n");
+    }
+    join('',@m);
+}
+
+
+
+sub static_lib_pure_cmd {
+    my ($self, $from) = @_;
+
+    sprintf <<'MAKE_FRAG', $from;
+	If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)
+	Library/Object/Replace $(MMS$TARGET) %s
+MAKE_FRAG
+}
+
+
+sub xs_static_lib_is_xs {
+    return 1;
+}
+
+
+sub extra_clean_files {
+    return qw(
+              *.Map *.Dmp *.Lis *.cpp *.$(DLEXT) *.Opt $(BASEEXT).bso
+              .MM_Tmp cxx_repository
+             );
+}
+
+
+
+sub zipfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).zip : distdir
+	$(PREOP)
+	$(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) [.$(DISTVNAME)...]*.*;
+	$(RM_RF) $(DISTVNAME)
+	$(POSTOP)
+MAKE_FRAG
+}
+
+sub tarfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).tar$(SUFFIX) : distdir
+	$(PREOP)
+	$(TO_UNIX)
+	$(TAR) "$(TARFLAGS)" $(DISTVNAME).tar [.$(DISTVNAME)...]
+	$(RM_RF) $(DISTVNAME)
+	$(COMPRESS) $(DISTVNAME).tar
+	$(POSTOP)
+MAKE_FRAG
+}
+
+sub shdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+shdist : distdir
+	$(PREOP)
+	$(SHAR) [.$(DISTVNAME)...]*.*; $(DISTVNAME).share
+	$(RM_RF) $(DISTVNAME)
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+# --- Test and Installation Sections ---
+
+
+sub install {
+    my($self, %attribs) = @_;
+    my(@m);
+
+    push @m, q[
+install :: all pure_install doc_install
+	$(NOECHO) $(NOOP)
+
+install_perl :: all pure_perl_install doc_perl_install
+	$(NOECHO) $(NOOP)
+
+install_site :: all pure_site_install doc_site_install
+	$(NOECHO) $(NOOP)
+
+install_vendor :: all pure_vendor_install doc_vendor_install
+	$(NOECHO) $(NOOP)
+
+pure_install :: pure_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+doc_install :: doc_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+pure__install : pure_site_install
+	$(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site"
+
+doc__install : doc_site_install
+	$(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site"
+
+# This hack brought to you by DCL's 255-character command line limit
+pure_perl_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLPRIVLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLARCHLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) " >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q["
+
+# Likewise
+pure_site_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLSITELIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLSITEARCH)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLSITEBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLSITEMAN1DIR)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLSITEMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q["
+
+pure_vendor_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLVENDORLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLVENDORARCH)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLVENDORBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLVENDORMAN1DIR)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLVENDORMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+
+];
+
+    push @m, q[
+# Ditto
+doc_perl_install ::
+	$(NOECHO) $(NOOP)
+
+# And again
+doc_site_install ::
+	$(NOECHO) $(NOOP)
+
+doc_vendor_install ::
+	$(NOECHO) $(NOOP)
+
+] if $self->{NO_PERLLOCAL};
+
+    push @m, q[
+# Ditto
+doc_perl_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLPRIVLIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+# And again
+doc_site_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLSITELIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+doc_vendor_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLVENDORLIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+] unless $self->{NO_PERLLOCAL};
+
+    push @m, q[
+uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+	$(NOECHO) $(NOOP)
+
+uninstall_from_perldirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q[
+
+uninstall_from_sitedirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[
+
+uninstall_from_vendordirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{VENDORARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[
+];
+
+    join('',@m);
+}
+
+
+sub perldepend {
+    my($self) = @_;
+    my(@m);
+
+    if ($self->{OBJECT}) {
+        # Need to add an object file dependency on the perl headers.
+        # this is very important for XS modules in perl.git development.
+
+        push @m, $self->_perl_header_files_fragment(""); # empty separator on VMS as its in the $(PERL_INC)
+    }
+
+    if ($self->{PERL_SRC}) {
+	my(@macros);
+	my($mmsquals) = '$(USEMAKEFILE)[.vms]$(FIRST_MAKEFILE)';
+	push(@macros,'__AXP__=1') if $Config{'archname'} eq 'VMS_AXP';
+	push(@macros,'DECC=1')    if $Config{'vms_cc_type'} eq 'decc';
+	push(@macros,'GNUC=1')    if $Config{'vms_cc_type'} eq 'gcc';
+	push(@macros,'SOCKET=1')  if $Config{'d_has_sockets'};
+	push(@macros,qq["CC=$Config{'cc'}"])  if $Config{'cc'} =~ m!/!;
+	$mmsquals .= '$(USEMACROS)' . join(',',@macros) . '$(MACROEND)' if @macros;
+	push(@m,q[
+# Check for unpropagated config.sh changes. Should never happen.
+# We do NOT just update config.h because that is not sufficient.
+# An out of date config.h is not fatal but complains loudly!
+$(PERL_INC)config.h : $(PERL_SRC)config.sh
+	$(NOOP)
+
+$(PERL_ARCHLIB)Config.pm : $(PERL_SRC)config.sh
+	$(NOECHO) Write Sys$Error "$(PERL_ARCHLIB)Config.pm may be out of date with config.h or genconfig.pl"
+	olddef = F$Environment("Default")
+	Set Default $(PERL_SRC)
+	$(MMS)],$mmsquals,);
+	if ($self->{PERL_ARCHLIB} =~ m|\[-| && $self->{PERL_SRC} =~ m|(\[-+)|) {
+	    my($prefix,$target) = ($1,$self->fixpath('$(PERL_ARCHLIB)Config.pm',0));
+	    $target =~ s/\Q$prefix/[/;
+	    push(@m," $target");
+	}
+	else { push(@m,' $(MMS$TARGET)'); }
+	push(@m,q[
+	Set Default 'olddef'
+]);
+    }
+
+    push(@m, join(" ", map($self->fixpath($_,0),sort values %{$self->{XS}}))." : \$(XSUBPPDEPS)\n")
+      if %{$self->{XS}};
+
+    join('',@m);
+}
+
+
+
+our %olbs;  # needs to be localized
+
+sub makeaperl {
+    my($self, %attribs) = @_;
+    my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmpdir, $libperl) =
+      @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
+    my(@m);
+    push @m, "
+# --- MakeMaker makeaperl section ---
+MAP_TARGET    = $target
+";
+    return join '', @m if $self->{PARENT};
+
+    my($dir) = join ":", @{$self->{DIR}};
+
+    unless ($self->{MAKEAPERL}) {
+	push @m, q{
+$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
+	$(NOECHO) $(ECHO) "Writing ""$(MMS$TARGET)"" for this $(MAP_TARGET)"
+	$(NOECHO) $(PERLRUNINST) \
+		Makefile.PL DIR=}, $dir, q{ \
+		FIRST_MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
+		MAKEAPERL=1 NORECURS=1 };
+
+	push @m, map(q[ \\\n\t\t"$_"], @ARGV),q{
+
+$(MAP_TARGET) :: $(MAKE_APERL_FILE)
+	$(MAKE)$(USEMAKEFILE)$(MAKE_APERL_FILE) static $(MMS$TARGET)
+};
+	push @m, "\n";
+
+	return join '', @m;
+    }
+
+
+    my($linkcmd,@optlibs,@staticpkgs,$extralist,$targdir,$libperldir,%libseen);
+    local($_);
+
+    # The front matter of the linkcommand...
+    $linkcmd = join ' ', $Config{'ld'},
+	    grep($_, @Config{qw(large split ldflags ccdlflags)});
+    $linkcmd =~ s/\s+/ /g;
+
+    # Which *.olb files could we make use of...
+    local(%olbs);       # XXX can this be lexical?
+    $olbs{$self->{INST_ARCHAUTODIR}} = "$self->{BASEEXT}\$(LIB_EXT)";
+    require File::Find;
+    File::Find::find(sub {
+	return unless m/\Q$self->{LIB_EXT}\E$/;
+	return if m/^libperl/;
+
+	if( exists $self->{INCLUDE_EXT} ){
+		my $found = 0;
+
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything not explicitly marked for inclusion.
+		# DynaLoader is implied.
+		foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
+			if( $xx eq $incl ){
+				$found++;
+				last;
+			}
+		}
+		return unless $found;
+	}
+	elsif( exists $self->{EXCLUDE_EXT} ){
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything explicitly marked for exclusion
+		foreach my $excl (@{$self->{EXCLUDE_EXT}}){
+			return if( $xx eq $excl );
+		}
+	}
+
+	$olbs{$ENV{DEFAULT}} = $_;
+    }, grep( -d $_, @{$searchdirs || []}));
+
+    # We trust that what has been handed in as argument will be buildable
+    $static = [] unless $static;
+    @olbs{@{$static}} = (1) x @{$static};
+
+    $extra = [] unless $extra && ref $extra eq 'ARRAY';
+    # Sort the object libraries in inverse order of
+    # filespec length to try to insure that dependent extensions
+    # will appear before their parents, so the linker will
+    # search the parent library to resolve references.
+    # (e.g. Intuit::DWIM will precede Intuit, so unresolved
+    # references from [.intuit.dwim]dwim.obj can be found
+    # in [.intuit]intuit.olb).
+    for (sort { length($a) <=> length($b) || $a cmp $b } keys %olbs) {
+	next unless $olbs{$_} =~ /\Q$self->{LIB_EXT}\E$/;
+	my($dir) = $self->fixpath($_,1);
+	my($extralibs) = $dir . "extralibs.ld";
+	my($extopt) = $dir . $olbs{$_};
+	$extopt =~ s/$self->{LIB_EXT}$/.opt/;
+	push @optlibs, "$dir$olbs{$_}";
+	# Get external libraries this extension will need
+	if (-f $extralibs ) {
+	    my %seenthis;
+	    open my $list, "<", $extralibs or warn $!,next;
+	    while (<$list>) {
+		chomp;
+		# Include a library in the link only once, unless it's mentioned
+		# multiple times within a single extension's options file, in which
+		# case we assume the builder needed to search it again later in the
+		# link.
+		my $skip = exists($libseen{$_}) && !exists($seenthis{$_});
+		$libseen{$_}++;  $seenthis{$_}++;
+		next if $skip;
+		push @$extra,$_;
+	    }
+	}
+	# Get full name of extension for ExtUtils::Miniperl
+	if (-f $extopt) {
+	    open my $opt, '<', $extopt or die $!;
+	    while (<$opt>) {
+		next unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/;
+		my $pkg = $1;
+		$pkg =~ s#__*#::#g;
+		push @staticpkgs,$pkg;
+	    }
+	}
+    }
+    # Place all of the external libraries after all of the Perl extension
+    # libraries in the final link, in order to maximize the opportunity
+    # for XS code from multiple extensions to resolve symbols against the
+    # same external library while only including that library once.
+    push @optlibs, @$extra;
+
+    $target = "Perl$Config{'exe_ext'}" unless $target;
+    my $shrtarget;
+    ($shrtarget,$targdir) = fileparse($target);
+    $shrtarget =~ s/^([^.]*)/$1Shr/;
+    $shrtarget = $targdir . $shrtarget;
+    $target = "Perlshr.$Config{'dlext'}" unless $target;
+    $tmpdir = "[]" unless $tmpdir;
+    $tmpdir = $self->fixpath($tmpdir,1);
+    if (@optlibs) { $extralist = join(' ',@optlibs); }
+    else          { $extralist = ''; }
+    # Let ExtUtils::Liblist find the necessary libs for us (but skip PerlShr)
+    # that's what we're building here).
+    push @optlibs, grep { !/PerlShr/i } split ' ', +($self->ext())[2];
+    if ($libperl) {
+	unless (-f $libperl || -f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',$libperl))) {
+	    print "Warning: $libperl not found\n";
+	    undef $libperl;
+	}
+    }
+    unless ($libperl) {
+	if (defined $self->{PERL_SRC}) {
+	    $libperl = $self->catfile($self->{PERL_SRC},"libperl$self->{LIB_EXT}");
+	} elsif (-f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',"libperl$self->{LIB_EXT}")) ) {
+	} else {
+	    print "Warning: $libperl not found
+    If you're going to build a static perl binary, make sure perl is installed
+    otherwise ignore this warning\n";
+	}
+    }
+    $libperldir = $self->fixpath((fileparse($libperl))[1],1);
+
+    push @m, '
+# Fill in the target you want to produce if it\'s not perl
+MAP_TARGET    = ',$self->fixpath($target,0),'
+MAP_SHRTARGET = ',$self->fixpath($shrtarget,0),"
+MAP_LINKCMD   = $linkcmd
+MAP_PERLINC   = ", $perlinc ? map('"$_" ',@{$perlinc}) : '',"
+MAP_EXTRA     = $extralist
+MAP_LIBPERL = ",$self->fixpath($libperl,0),'
+';
+
+
+    push @m,"\n${tmpdir}Makeaperl.Opt : \$(MAP_EXTRA)\n";
+    foreach (@optlibs) {
+	push @m,'	$(NOECHO) $(PERL) -e "print q{',$_,'}" >>$(MMS$TARGET)',"\n";
+    }
+    push @m,"\n${tmpdir}PerlShr.Opt :\n\t";
+    push @m,'$(NOECHO) $(PERL) -e "print q{$(MAP_SHRTARGET)}" >$(MMS$TARGET)',"\n";
+
+    push @m,'
+$(MAP_SHRTARGET) : $(MAP_LIBPERL) Makeaperl.Opt ',"${libperldir}Perlshr_Attr.Opt",'
+	$(MAP_LINKCMD)/Shareable=$(MMS$TARGET) $(MAP_LIBPERL), Makeaperl.Opt/Option ',"${libperldir}Perlshr_Attr.Opt/Option",'
+$(MAP_TARGET) : $(MAP_SHRTARGET) ',"${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}PerlShr.Opt",'
+	$(MAP_LINKCMD) ',"${tmpdir}perlmain\$(OBJ_EXT)",', PerlShr.Opt/Option
+	$(NOECHO) $(ECHO) "To install the new ""$(MAP_TARGET)"" binary, say"
+	$(NOECHO) $(ECHO) "    $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) inst_perl $(USEMACROS)MAP_TARGET=$(MAP_TARGET)$(ENDMACRO)"
+	$(NOECHO) $(ECHO) "To remove the intermediate files, say
+	$(NOECHO) $(ECHO) "    $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) map_clean"
+';
+    push @m,"\n${tmpdir}perlmain.c : \$(FIRST_MAKEFILE)\n\t\$(NOECHO) \$(PERL) -e 1 >${tmpdir}Writemain.tmp\n";
+    push @m, "# More from the 255-char line length limit\n";
+    foreach (@staticpkgs) {
+	push @m,'	$(NOECHO) $(PERL) -e "print q{',$_,qq[}" >>${tmpdir}Writemain.tmp\n];
+    }
+
+    push @m, sprintf <<'MAKE_FRAG', $tmpdir, $tmpdir;
+	$(NOECHO) $(PERL) $(MAP_PERLINC) -ane "use ExtUtils::Miniperl; writemain(@F)" %sWritemain.tmp >$(MMS$TARGET)
+	$(NOECHO) $(RM_F) %sWritemain.tmp
+MAKE_FRAG
+
+    push @m, q[
+# Still more from the 255-char line length limit
+doc_inst_perl :
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO) "Perl binary $(MAP_TARGET)|" >.MM_tmp
+	$(NOECHO) $(ECHO) "MAP_STATIC|$(MAP_STATIC)|" >>.MM_tmp
+	$(NOECHO) $(PERL) -pl040 -e " " ].$self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'),q[ >>.MM_tmp
+	$(NOECHO) $(ECHO) -e "MAP_LIBPERL|$(MAP_LIBPERL)|" >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) <.MM_tmp >>].$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+];
+
+    push @m, "
+inst_perl : pure_inst_perl doc_inst_perl
+	\$(NOECHO) \$(NOOP)
+
+pure_inst_perl : \$(MAP_TARGET)
+	$self->{CP} \$(MAP_SHRTARGET) ",$self->fixpath($Config{'installbin'},1),"
+	$self->{CP} \$(MAP_TARGET) ",$self->fixpath($Config{'installbin'},1),"
+
+clean :: map_clean
+	\$(NOECHO) \$(NOOP)
+
+map_clean :
+	\$(RM_F) ${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}perlmain.c \$(FIRST_MAKEFILE)
+	\$(RM_F) ${tmpdir}Makeaperl.Opt ${tmpdir}PerlShr.Opt \$(MAP_TARGET)
+";
+
+    join '', @m;
+}
+
+
+# --- Output postprocessing section ---
+
+
+sub maketext_filter {
+    my($self, $text) = @_;
+
+    $text =~ s/^([^\s:=]+)(:+\s)/$1 $2/mg;
+    return $text;
+}
+
+
+sub prefixify {
+    my($self, $var, $sprefix, $rprefix, $default) = @_;
+
+    # Translate $(PERLPREFIX) to a real path.
+    $rprefix = $self->eliminate_macros($rprefix);
+    $rprefix = vmspath($rprefix) if $rprefix;
+    $sprefix = vmspath($sprefix) if $sprefix;
+
+    $default = vmsify($default)
+      unless $default =~ /\[.*\]/;
+
+    (my $var_no_install = $var) =~ s/^install//;
+    my $path = $self->{uc $var} ||
+               $ExtUtils::MM_Unix::Config_Override{lc $var} ||
+               $Config{lc $var} || $Config{lc $var_no_install};
+
+    if( !$path ) {
+        warn "  no Config found for $var.\n" if $Verbose >= 2;
+        $path = $self->_prefixify_default($rprefix, $default);
+    }
+    elsif( !$self->{ARGS}{PREFIX} || !$self->file_name_is_absolute($path) ) {
+        # do nothing if there's no prefix or if its relative
+    }
+    elsif( $sprefix eq $rprefix ) {
+        warn "  no new prefix.\n" if $Verbose >= 2;
+    }
+    else {
+
+        warn "  prefixify $var => $path\n"     if $Verbose >= 2;
+        warn "    from $sprefix to $rprefix\n" if $Verbose >= 2;
+
+        my($path_vol, $path_dirs) = $self->splitpath( $path );
+        if( $path_vol eq $Config{vms_prefix}.':' ) {
+            warn "  $Config{vms_prefix}: seen\n" if $Verbose >= 2;
+
+            $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.};
+            $path = $self->_catprefix($rprefix, $path_dirs);
+        }
+        else {
+            $path = $self->_prefixify_default($rprefix, $default);
+        }
+    }
+
+    print "    now $path\n" if $Verbose >= 2;
+    return $self->{uc $var} = $path;
+}
+
+
+sub _prefixify_default {
+    my($self, $rprefix, $default) = @_;
+
+    warn "  cannot prefix, using default.\n" if $Verbose >= 2;
+
+    if( !$default ) {
+        warn "No default!\n" if $Verbose >= 1;
+        return;
+    }
+    if( !$rprefix ) {
+        warn "No replacement prefix!\n" if $Verbose >= 1;
+        return '';
+    }
+
+    return $self->_catprefix($rprefix, $default);
+}
+
+sub _catprefix {
+    my($self, $rprefix, $default) = @_;
+
+    my($rvol, $rdirs) = $self->splitpath($rprefix);
+    if( $rvol ) {
+        return $self->catpath($rvol,
+                                   $self->catdir($rdirs, $default),
+                                   ''
+                                  )
+    }
+    else {
+        return $self->catdir($rdirs, $default);
+    }
+}
+
+
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    $dir = vmspath($dir);
+
+    my $cmd = join "\n\t", map "$_", @cmds;
+
+    # No leading tab makes it look right when embedded
+    my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd;
+startdir = F$Environment("Default")
+	Set Default %s
+	%s
+	Set Default 'startdir'
+MAKE_FRAG
+
+    # No trailing newline makes this easier to embed
+    chomp $make_frag;
+
+    return $make_frag;
+}
+
+
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    my @cmds = split /\n/, $cmd;
+    $cmd = join " \n\t  -e ", map $self->quote_literal($_), @cmds;
+    $cmd = $self->escape_newlines($cmd);
+
+    # Switches must be quoted else they will be lowercased.
+    $switches = join ' ', map { qq{"$_"} } @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd "--"};
+}
+
+
+
+sub echo {
+    my($self, $text, $file, $opts) = @_;
+
+    # Compatibility with old options
+    if( !ref $opts ) {
+        my $append = $opts;
+        $opts = { append => $append || 0 };
+    }
+    my $opencmd = $opts->{append} ? 'Open/Append' : 'Open/Write';
+
+    $opts->{allow_variables} = 0 unless defined $opts->{allow_variables};
+
+    my $ql_opts = { allow_variables => $opts->{allow_variables} };
+
+    my @cmds = ("\$(NOECHO) $opencmd MMECHOFILE $file ");
+    push @cmds, map { '$(NOECHO) Write MMECHOFILE '.$self->quote_literal($_, $ql_opts) }
+                split /\n/, $text;
+    push @cmds, '$(NOECHO) Close MMECHOFILE';
+    return @cmds;
+}
+
+
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # I believe this is all we should need.
+    $text =~ s{"}{""}g;
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return qq{"$text"};
+}
+
+
+sub escape_dollarsigns {
+    my($self, $text) = @_;
+
+    # Quote dollar signs which are not starting a variable
+    $text =~ s{\$ (?!\() }{"\$"}gx;
+
+    return $text;
+}
+
+
+
+sub escape_all_dollarsigns {
+    my($self, $text) = @_;
+
+    # Quote dollar signs
+    $text =~ s{\$}{"\$\"}gx;
+
+    return $text;
+}
+
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    $text =~ s{\n}{-\n}g;
+
+    return $text;
+}
+
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 256;
+}
+
+
+sub init_linker {
+    my $self = shift;
+    $self->{EXPORT_LIST} ||= '$(BASEEXT).opt';
+
+    my $shr = $Config{dbgprefix} . 'PERLSHR';
+    if ($self->{PERL_SRC}) {
+        $self->{PERL_ARCHIVE} ||=
+          $self->catfile($self->{PERL_SRC}, "$shr.$Config{'dlext'}");
+    }
+    else {
+        $self->{PERL_ARCHIVE} ||=
+          $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$Config{'dlext'}";
+    }
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+}
+
+
+
+sub catdir {
+    my $self = shift;
+
+    # Process the macros on VMS MMS/MMK
+    my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_  } @_;
+
+    my $dir = $self->SUPER::catdir(@args);
+
+    # Fix up the directory and force it to VMS format.
+    $dir = $self->fixpath($dir, 1);
+
+    return $dir;
+}
+
+sub catfile {
+    my $self = shift;
+
+    # Process the macros on VMS MMS/MMK
+    my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_  } @_;
+
+    my $file = $self->SUPER::catfile(@args);
+
+    $file = vmsify($file);
+
+    return $file
+}
+
+
+
+sub eliminate_macros {
+    my($self,$path) = @_;
+    return '' unless $path;
+    $self = {} unless ref $self;
+
+    my($npath) = unixify($path);
+    # sometimes unixify will return a string with an off-by-one trailing null
+    $npath =~ s{\0$}{};
+
+    my($complex) = 0;
+    my($head,$macro,$tail);
+
+    # perform m##g in scalar context so it acts as an iterator
+    while ($npath =~ m#(.*?)\$\((\S+?)\)(.*)#gs) {
+        if (defined $self->{$2}) {
+            ($head,$macro,$tail) = ($1,$2,$3);
+            if (ref $self->{$macro}) {
+                if (ref $self->{$macro} eq 'ARRAY') {
+                    $macro = join ' ', @{$self->{$macro}};
+                }
+                else {
+                    print "Note: can't expand macro \$($macro) containing ",ref($self->{$macro}),
+                          "\n\t(using MMK-specific deferred substitutuon; MMS will break)\n";
+                    $macro = "\cB$macro\cB";
+                    $complex = 1;
+                }
+            }
+            else {
+                $macro = $self->{$macro};
+                # Don't unixify if there is unescaped whitespace
+                $macro = unixify($macro) unless ($macro =~ /(?<!\^)\s/);
+                $macro =~ s#/\Z(?!\n)##;
+            }
+            $npath = "$head$macro$tail";
+        }
+    }
+    if ($complex) { $npath =~ s#\cB(.*?)\cB#\${$1}#gs; }
+    $npath;
+}
+
+
+sub fixpath {
+    my($self,$path,$force_path) = @_;
+    return '' unless $path;
+    $self = bless {}, $self unless ref $self;
+    my($fixedpath,$prefix,$name);
+
+    if ($path =~ m#^\$\([^\)]+\)\Z(?!\n)#s || $path =~ m#[/:>\]]#) {
+        if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) {
+            $fixedpath = vmspath($self->eliminate_macros($path));
+        }
+        else {
+            $fixedpath = vmsify($self->eliminate_macros($path));
+        }
+    }
+    elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#s)) && $self->{$prefix}) {
+        my($vmspre) = $self->eliminate_macros("\$($prefix)");
+        # is it a dir or just a name?
+        $vmspre = ($vmspre =~ m|/| or $prefix =~ /DIR\Z(?!\n)/) ? vmspath($vmspre) : '';
+        $fixedpath = ($vmspre ? $vmspre : $self->{$prefix}) . $name;
+        $fixedpath = vmspath($fixedpath) if $force_path;
+    }
+    else {
+        $fixedpath = $path;
+        $fixedpath = vmspath($fixedpath) if $force_path;
+    }
+    # No hints, so we try to guess
+    if (!defined($force_path) and $fixedpath !~ /[:>(.\]]/) {
+        $fixedpath = vmspath($fixedpath) if -d $fixedpath;
+    }
+
+    # Trim off root dirname if it's had other dirs inserted in front of it.
+    $fixedpath =~ s/\.000000([\]>])/$1/;
+    # Special case for VMS absolute directory specs: these will have had device
+    # prepended during trip through Unix syntax in eliminate_macros(), since
+    # Unix syntax has no way to express "absolute from the top of this device's
+    # directory tree".
+    if ($path =~ /^[\[>][^.\-]/) { $fixedpath =~ s/^[^\[<]+//; }
+
+    return $fixedpath;
+}
+
+
+
+sub os_flavor {
+    return('VMS');
+}
+
+
+
+sub is_make_type {
+    my($self, $type) = @_;
+    return 0;
+}
+
+
+
+sub make_type { "$Config{make}-style"; }
+
+
+
+1;
+
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$         # 6.18 through 6.25 generated this
+\b_eumm/                # 7.05_05 and above
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# and Module::Build::Tiny generated files
+\b_build_params$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+\..*\.sw.?$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid prove files
+\B\.prove$
+
+# Avoid MYMETA files
+^MYMETA\.
+package ExtUtils::MM_Unix;
+
+require 5.006;
+
+use strict;
+
+use Carp;
+use ExtUtils::MakeMaker::Config;
+use File::Basename qw(basename dirname);
+
+our %Config_Override;
+
+use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562);
+
+# If we make $VERSION an our variable parse_version() breaks
+use vars qw($VERSION);
+$VERSION = '7.34';
+$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
+
+require ExtUtils::MM_Any;
+our @ISA = qw(ExtUtils::MM_Any);
+
+my %Is;
+BEGIN {
+    $Is{OS2}     = $^O eq 'os2';
+    $Is{Win32}   = $^O eq 'MSWin32' || $Config{osname} eq 'NetWare';
+    $Is{Dos}     = $^O eq 'dos';
+    $Is{VMS}     = $^O eq 'VMS';
+    $Is{OSF}     = $^O eq 'dec_osf';
+    $Is{IRIX}    = $^O eq 'irix';
+    $Is{NetBSD}  = $^O eq 'netbsd';
+    $Is{Interix} = $^O eq 'interix';
+    $Is{SunOS4}  = $^O eq 'sunos';
+    $Is{Solaris} = $^O eq 'solaris';
+    $Is{SunOS}   = $Is{SunOS4} || $Is{Solaris};
+    $Is{BSD}     = ($^O =~ /^(?:free|net|open)bsd$/ or
+                   grep( $^O eq $_, qw(bsdos interix dragonfly) )
+                  );
+    $Is{Android} = $^O =~ /android/;
+}
+
+BEGIN {
+    if( $Is{VMS} ) {
+        # For things like vmsify()
+        require VMS::Filespec;
+        VMS::Filespec->import;
+    }
+}
+
+
+
+# So we don't have to keep calling the methods over and over again,
+# we have these globals to cache the values.  Faster and shrtr.
+my $Curdir  = __PACKAGE__->curdir;
+my $Updir   = __PACKAGE__->updir;
+
+
+
+sub os_flavor {
+    return('Unix');
+}
+
+
+
+sub c_o {
+# --- Translation Sections ---
+
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    my(@m);
+
+    my $command = '$(CCCMD)';
+    my $flags   = '$(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE)';
+
+    if (my $cpp = $Config{cpprun}) {
+        my $cpp_cmd = $self->const_cccmd;
+        $cpp_cmd =~ s/^CCCMD\s*=\s*\$\(CC\)/$cpp/;
+        push @m, qq{
+.c.i:
+	$cpp_cmd $flags \$*.c > \$*.i
+};
+    }
+
+    my $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*.s') : '';
+    push @m, sprintf <<'EOF', $command, $flags, $m_o;
+
+.c.s :
+	%s -S %s $*.c %s
+EOF
+
+    my @exts = qw(c cpp cxx cc);
+    push @exts, 'C' if !$Is{OS2} and !$Is{Win32} and !$Is{Dos}; #Case-specific
+    $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*$(OBJ_EXT)') : '';
+    for my $ext (@exts) {
+	push @m, "\n.$ext\$(OBJ_EXT) :\n\t$command $flags \$*.$ext" . ( $m_o ? " $m_o" : '' ) . "\n";
+    }
+    return join "", @m;
+}
+
+
+
+sub xs_obj_opt {
+    my ($self, $output_file) = @_;
+    "-o $output_file";
+}
+
+
+
+#'
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my($prog, $uc, $perltype, %cflags);
+    $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
+    $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
+
+    @cflags{qw(cc ccflags optimize shellflags)}
+	= @Config{qw(cc ccflags optimize shellflags)};
+
+    # Perl 5.21.4 adds the (gcc) warning (-Wall ...) and std (-std=c89)
+    # flags to the %Config, and the modules in the core should be built
+    # with the warning flags, but NOT the -std=c89 flags (the latter
+    # would break using any system header files that are strict C99).
+    my @ccextraflags = qw(ccwarnflags);
+    if ($ENV{PERL_CORE}) {
+      for my $x (@ccextraflags) {
+        if (exists $Config{$x}) {
+          $cflags{$x} = $Config{$x};
+        }
+      }
+    }
+
+    my($optdebug) = "";
+
+    $cflags{shellflags} ||= '';
+
+    my(%map) =  (
+		D =>   '-DDEBUGGING',
+		E =>   '-DEMBED',
+		DE =>  '-DDEBUGGING -DEMBED',
+		M =>   '-DEMBED -DMULTIPLICITY',
+		DM =>  '-DDEBUGGING -DEMBED -DMULTIPLICITY',
+		);
+
+    if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
+	$uc = uc($1);
+    } else {
+	$uc = ""; # avoid warning
+    }
+    $perltype = $map{$uc} ? $map{$uc} : "";
+
+    if ($uc =~ /^D/) {
+	$optdebug = "-g";
+    }
+
+
+    my($name);
+    ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
+    if ($prog = $Config{$name}) {
+	# Expand hints for this extension via the shell
+	print "Processing $name hint:\n" if $Verbose;
+	my(@o)=`cc=\"$cflags{cc}\"
+	  ccflags=\"$cflags{ccflags}\"
+	  optimize=\"$cflags{optimize}\"
+	  perltype=\"$cflags{perltype}\"
+	  optdebug=\"$cflags{optdebug}\"
+	  eval '$prog'
+	  echo cc=\$cc
+	  echo ccflags=\$ccflags
+	  echo optimize=\$optimize
+	  echo perltype=\$perltype
+	  echo optdebug=\$optdebug
+	  `;
+	foreach my $line (@o){
+	    chomp $line;
+	    if ($line =~ /(.*?)=\s*(.*)\s*$/){
+		$cflags{$1} = $2;
+		print "	$1 = $2\n" if $Verbose;
+	    } else {
+		print "Unrecognised result from hint: '$line'\n";
+	    }
+	}
+    }
+
+    if ($optdebug) {
+	$cflags{optimize} = $optdebug;
+    }
+
+    for (qw(ccflags optimize perltype)) {
+        $cflags{$_} ||= '';
+	$cflags{$_} =~ s/^\s+//;
+	$cflags{$_} =~ s/\s+/ /g;
+	$cflags{$_} =~ s/\s+$//;
+	$self->{uc $_} ||= $cflags{$_};
+    }
+
+    if ($self->{POLLUTE}) {
+	$self->{CCFLAGS} .= ' -DPERL_POLLUTE ';
+    }
+
+    for my $x (@ccextraflags) {
+      next unless exists $cflags{$x};
+      $self->{CCFLAGS} .= $cflags{$x} =~ m!^\s! ? $cflags{$x} : ' ' . $cflags{$x};
+    }
+
+    my $pollute = '';
+    if ($Config{usemymalloc} and not $Config{bincompat5005}
+	and not $Config{ccflags} =~ /-DPERL_POLLUTE_MALLOC\b/
+	and $self->{PERL_MALLOC_OK}) {
+	$pollute = '$(PERL_MALLOC_DEF)';
+    }
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+MPOLLUTE = $pollute
+};
+
+}
+
+
+
+sub const_cccmd {
+    my($self,$libperl)=@_;
+    return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
+    return '' unless $self->needs_linking();
+    return $self->{CONST_CCCMD} =
+	q{CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \\
+	$(CCFLAGS) $(OPTIMIZE) \\
+	$(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \\
+	$(XS_DEFINE_VERSION)};
+}
+
+
+sub const_config {
+# --- Constants Sections ---
+
+    my($self) = shift;
+    my @m = $self->specify_shell(); # Usually returns empty string
+    push @m, <<"END";
+
+# These definitions are from config.sh (via $INC{'Config.pm'}).
+# They may have been overridden via Makefile.PL or on the command line.
+END
+
+    my(%once_only);
+    foreach my $key (@{$self->{CONFIG}}){
+        # SITE*EXP macros are defined in &constants; avoid duplicates here
+        next if $once_only{$key};
+        push @m, uc($key) , ' = ' , $self->{uc $key}, "\n";
+        $once_only{$key} = 1;
+    }
+    join('', @m);
+}
+
+
+sub const_loadlibs {
+    my($self) = shift;
+    return "" unless $self->needs_linking;
+    my @m;
+    push @m, qq{
+# $self->{NAME} might depend on some other libraries:
+# See ExtUtils::Liblist for details
+#
+};
+    for my $tmp (qw/
+         EXTRALIBS LDLOADLIBS BSLOADLIBS
+         /) {
+        next unless defined $self->{$tmp};
+        push @m, "$tmp = $self->{$tmp}\n";
+    }
+    # don't set LD_RUN_PATH if empty
+    for my $tmp (qw/
+         LD_RUN_PATH
+         /) {
+        next unless $self->{$tmp};
+        push @m, "$tmp = $self->{$tmp}\n";
+    }
+    return join "", @m;
+}
+
+
+sub constants {
+    my($self) = @_;
+    my @m = ();
+
+    $self->{DFSEP} = '$(DIRFILESEP)';  # alias for internal use
+
+    for my $macro (qw(
+
+              AR_STATIC_ARGS DIRFILESEP DFSEP
+              NAME NAME_SYM
+              VERSION    VERSION_MACRO    VERSION_SYM DEFINE_VERSION
+              XS_VERSION XS_VERSION_MACRO             XS_DEFINE_VERSION
+              INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB
+              INST_MAN1DIR INST_MAN3DIR
+              MAN1EXT      MAN3EXT
+              INSTALLDIRS INSTALL_BASE DESTDIR PREFIX
+              PERLPREFIX      SITEPREFIX      VENDORPREFIX
+                   ),
+                   (map { ("INSTALL".$_,
+                          "DESTINSTALL".$_)
+                        } $self->installvars),
+                   qw(
+              PERL_LIB
+              PERL_ARCHLIB PERL_ARCHLIBDEP
+              LIBPERL_A MYEXTLIB
+              FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE
+              PERLMAINCC PERL_SRC PERL_INC PERL_INCDEP
+              PERL            FULLPERL          ABSPERL
+              PERLRUN         FULLPERLRUN       ABSPERLRUN
+              PERLRUNINST     FULLPERLRUNINST   ABSPERLRUNINST
+              PERL_CORE
+              PERM_DIR PERM_RW PERM_RWX
+
+	      ) )
+    {
+	next unless defined $self->{$macro};
+
+        # pathnames can have sharp signs in them; escape them so
+        # make doesn't think it is a comment-start character.
+        $self->{$macro} =~ s/#/\\#/g;
+	$self->{$macro} = $self->quote_dep($self->{$macro})
+	  if $ExtUtils::MakeMaker::macro_dep{$macro};
+	push @m, "$macro = $self->{$macro}\n";
+    }
+
+    push @m, qq{
+MAKEMAKER   = $self->{MAKEMAKER}
+MM_VERSION  = $self->{MM_VERSION}
+MM_REVISION = $self->{MM_REVISION}
+};
+
+    push @m, q{
+# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
+# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
+# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
+# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
+};
+
+    for my $macro (qw/
+              MAKE
+	      FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
+	      LDFROM LINKTYPE BOOTDEP
+	      /	)
+    {
+	next unless defined $self->{$macro};
+	push @m, "$macro = $self->{$macro}\n";
+    }
+
+    push @m, "
+# Handy lists of source code files:
+XS_FILES = ".$self->wraplist(sort keys %{$self->{XS}})."
+C_FILES  = ".$self->wraplist(sort @{$self->{C}})."
+O_FILES  = ".$self->wraplist(sort @{$self->{O_FILES}})."
+H_FILES  = ".$self->wraplist(sort @{$self->{H}})."
+MAN1PODS = ".$self->wraplist(sort keys %{$self->{MAN1PODS}})."
+MAN3PODS = ".$self->wraplist(sort keys %{$self->{MAN3PODS}})."
+";
+
+
+    push @m, q{
+# Where is the Config information that we are using/depend on
+CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h
+} if -e $self->catfile( $self->{PERL_INC}, 'config.h' );
+
+
+    push @m, qq{
+# Where to build things
+INST_LIBDIR      = $self->{INST_LIBDIR}
+INST_ARCHLIBDIR  = $self->{INST_ARCHLIBDIR}
+
+INST_AUTODIR     = $self->{INST_AUTODIR}
+INST_ARCHAUTODIR = $self->{INST_ARCHAUTODIR}
+
+INST_STATIC      = $self->{INST_STATIC}
+INST_DYNAMIC     = $self->{INST_DYNAMIC}
+INST_BOOT        = $self->{INST_BOOT}
+};
+
+    push @m, qq{
+# Extra linker info
+EXPORT_LIST        = $self->{EXPORT_LIST}
+PERL_ARCHIVE       = $self->{PERL_ARCHIVE}
+PERL_ARCHIVEDEP    = $self->{PERL_ARCHIVEDEP}
+PERL_ARCHIVE_AFTER = $self->{PERL_ARCHIVE_AFTER}
+};
+
+    push @m, "
+
+TO_INST_PM = ".$self->wraplist(map $self->quote_dep($_), sort keys %{$self->{PM}})."\n";
+
+    join('',@m);
+}
+
+
+
+sub depend {
+    my($self,%attribs) = @_;
+    my(@m,$key,$val);
+    for my $key (sort keys %attribs){
+	my $val = $attribs{$key};
+	next unless defined $key and defined $val;
+	push @m, "$key : $val\n";
+    }
+    join "", @m;
+}
+
+
+
+sub init_DEST {
+    my $self = shift;
+
+    # Initialize DESTDIR
+    $self->{DESTDIR} ||= '';
+
+    # Make DEST variables.
+    foreach my $var ($self->installvars) {
+        my $destvar = 'DESTINSTALL'.$var;
+        $self->{$destvar} ||= '$(DESTDIR)$(INSTALL'.$var.')';
+    }
+}
+
+
+
+sub init_dist {
+    my $self = shift;
+
+    $self->{TAR}      ||= 'tar';
+    $self->{TARFLAGS} ||= 'cvf';
+    $self->{ZIP}      ||= 'zip';
+    $self->{ZIPFLAGS} ||= '-r';
+    $self->{COMPRESS} ||= 'gzip --best';
+    $self->{SUFFIX}   ||= '.gz';
+    $self->{SHAR}     ||= 'shar';
+    $self->{PREOP}    ||= '$(NOECHO) $(NOOP)'; # eg update MANIFEST
+    $self->{POSTOP}   ||= '$(NOECHO) $(NOOP)'; # eg remove the distdir
+    $self->{TO_UNIX}  ||= '$(NOECHO) $(NOOP)';
+
+    $self->{CI}       ||= 'ci -u';
+    $self->{RCS_LABEL}||= 'rcs -Nv$(VERSION_SYM): -q';
+    $self->{DIST_CP}  ||= 'best';
+    $self->{DIST_DEFAULT} ||= 'tardist';
+
+    ($self->{DISTNAME} = $self->{NAME}) =~ s{::}{-}g unless $self->{DISTNAME};
+    $self->{DISTVNAME} ||= $self->{DISTNAME}.'-'.$self->{VERSION};
+}
+
+
+sub dist {
+    my($self, %attribs) = @_;
+
+    my $make = '';
+    if ( $attribs{SUFFIX} && $attribs{SUFFIX} !~ m!^\.! ) {
+      $attribs{SUFFIX} = '.' . $attribs{SUFFIX};
+    }
+    foreach my $key (qw(
+            TAR TARFLAGS ZIP ZIPFLAGS COMPRESS SUFFIX SHAR
+            PREOP POSTOP TO_UNIX
+            CI RCS_LABEL DIST_CP DIST_DEFAULT
+            DISTNAME DISTVNAME
+           ))
+    {
+        my $value = $attribs{$key} || $self->{$key};
+        $make .= "$key = $value\n";
+    }
+
+    return $make;
+}
+
+
+sub dist_basics {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+distclean :: realclean distcheck
+	$(NOECHO) $(NOOP)
+
+distcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
+
+skipcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
+
+manifest :
+	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
+
+veryclean : realclean
+	$(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old
+
+MAKE_FRAG
+
+}
+
+
+sub dist_ci {
+    my($self) = shift;
+    return sprintf "ci :\n\t%s\n", $self->oneliner(<<'EOF', [qw(-MExtUtils::Manifest=maniread)]);
+@all = sort keys %{ maniread() };
+print(qq{Executing $(CI) @all\n});
+system(qq{$(CI) @all}) == 0 or die $!;
+print(qq{Executing $(RCS_LABEL) ...\n});
+system(qq{$(RCS_LABEL) @all}) == 0 or die $!;
+EOF
+}
+
+
+sub dist_core {
+    my($self) = shift;
+
+    my $make_frag = '';
+    foreach my $target (qw(dist tardist uutardist tarfile zipdist zipfile
+                           shdist))
+    {
+        my $method = $target.'_target';
+        $make_frag .= "\n";
+        $make_frag .= $self->$method();
+    }
+
+    return $make_frag;
+}
+
+
+
+sub dist_target {
+    my($self) = shift;
+
+    my $date_check = $self->oneliner(<<'CODE', ['-l']);
+print 'Warning: Makefile possibly out of date with $(VERSION_FROM)'
+    if -e '$(VERSION_FROM)' and -M '$(VERSION_FROM)' < -M '$(FIRST_MAKEFILE)';
+CODE
+
+    return sprintf <<'MAKE_FRAG', $date_check;
+dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
+	$(NOECHO) %s
+MAKE_FRAG
+}
+
+
+sub tardist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+tardist : $(DISTVNAME).tar$(SUFFIX)
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+}
+
+
+sub zipdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+zipdist : $(DISTVNAME).zip
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+}
+
+
+sub tarfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).tar$(SUFFIX) : distdir
+	$(PREOP)
+	$(TO_UNIX)
+	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(COMPRESS) $(DISTVNAME).tar
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+sub zipfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).zip : distdir
+	$(PREOP)
+	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).zip'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+sub uutardist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+uutardist : $(DISTVNAME).tar$(SUFFIX)
+	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)_uu'
+MAKE_FRAG
+}
+
+
+
+sub shdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+shdist : distdir
+	$(PREOP)
+	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).shar'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+
+sub dlsyms {
+    return '';
+}
+
+
+
+sub dynamic_bs {
+    my($self, %attribs) = @_;
+    return "\nBOOTSTRAP =\n" unless $self->has_link_code();
+    my @exts;
+    if ($self->{XSMULTI}) {
+	@exts = $self->_xs_list_basenames;
+    } else {
+	@exts = '$(BASEEXT)';
+    }
+    return join "\n",
+        "BOOTSTRAP = @{[map { qq{$_.bs} } @exts]}\n",
+        map { $self->_xs_make_bs($_) } @exts;
+}
+
+sub _xs_make_bs {
+    my ($self, $basename) = @_;
+    my ($v, $d, $f) = File::Spec->splitpath($basename);
+    my @d = File::Spec->splitdir($d);
+    shift @d if $self->{XSMULTI} and $d[0] eq 'lib';
+    my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
+    $instdir = '$(INST_ARCHAUTODIR)' if $basename eq '$(BASEEXT)';
+    my $instfile = $self->catfile($instdir, "$f.bs");
+    my $exists = "$instdir\$(DFSEP).exists"; # match blibdirs_target
+    #                                 1          2          3
+    return _sprintf562 <<'MAKE_FRAG', $basename, $instfile, $exists;
+# As Mkbootstrap might not write a file (if none is required)
+# we use touch to prevent make continually trying to remake it.
+# The DynaLoader only reads a non-empty file.
+%1$s.bs : $(FIRST_MAKEFILE) $(BOOTDEP)
+	$(NOECHO) $(ECHO) "Running Mkbootstrap for %1$s ($(BSLOADLIBS))"
+	$(NOECHO) $(PERLRUN) \
+		"-MExtUtils::Mkbootstrap" \
+		-e "Mkbootstrap('%1$s','$(BSLOADLIBS)');"
+	$(NOECHO) $(TOUCH) "%1$s.bs"
+	$(CHMOD) $(PERM_RW) "%1$s.bs"
+
+%2$s : %1$s.bs %3$s
+	$(NOECHO) $(RM_RF) %2$s
+	- $(CP_NONEMPTY) %1$s.bs %2$s $(PERM_RW)
+MAKE_FRAG
+}
+
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    return '' unless $self->needs_linking(); #might be because of a subdir
+    return '' unless $self->has_link_code;
+    my @m = $self->xs_dynamic_lib_macros(\%attribs);
+    my @libs;
+    my $dlsyms_ext = eval { $self->xs_dlsyms_ext };
+    if ($self->{XSMULTI}) {
+        my @exts = $self->_xs_list_basenames;
+        for my $ext (@exts) {
+            my ($v, $d, $f) = File::Spec->splitpath($ext);
+            my @d = File::Spec->splitdir($d);
+            shift @d if $d[0] eq 'lib';
+            my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
+
+            # Dynamic library names may need special handling.
+            eval { require DynaLoader };
+            if (defined &DynaLoader::mod2fname) {
+                $f = &DynaLoader::mod2fname([@d, $f]);
+            }
+
+            my $instfile = $self->catfile($instdir, "$f.\$(DLEXT)");
+            my $objfile = $self->_xsbuild_value('xs', $ext, 'OBJECT');
+            $objfile = "$ext\$(OBJ_EXT)" unless defined $objfile;
+            my $ldfrom = $self->_xsbuild_value('xs', $ext, 'LDFROM');
+            $ldfrom = $objfile unless defined $ldfrom;
+            my $exportlist = "$ext.def";
+            my @libchunk = ($objfile, $instfile, $instdir, $ldfrom, $exportlist);
+            push @libchunk, $dlsyms_ext ? $ext.$dlsyms_ext : undef;
+            push @libs, \@libchunk;
+        }
+    } else {
+        my @libchunk = qw($(OBJECT) $(INST_DYNAMIC) $(INST_ARCHAUTODIR) $(LDFROM) $(EXPORT_LIST));
+        push @libchunk, $dlsyms_ext ? '$(BASEEXT)'.$dlsyms_ext : undef;
+        @libs = (\@libchunk);
+    }
+    push @m, map { $self->xs_make_dynamic_lib(\%attribs, @$_); } @libs;
+
+    return join("\n",@m);
+}
+
+
+sub xs_dynamic_lib_macros {
+    my ($self, $attribs) = @_;
+    my $otherldflags = $attribs->{OTHERLDFLAGS} || "";
+    my $inst_dynamic_dep = $attribs->{INST_DYNAMIC_DEP} || "";
+    my $armaybe = $self->_xs_armaybe($attribs);
+    my $ld_opt = $Is{OS2} ? '$(OPTIMIZE) ' : ''; # Useful on other systems too?
+    my $ld_fix = $Is{OS2} ? '|| ( $(RM_F) $@ && sh -c false )' : '';
+    sprintf <<'EOF', $armaybe, $ld_opt.$otherldflags, $inst_dynamic_dep, $ld_fix;
+# This section creates the dynamically loadable objects from relevant
+# objects and possibly $(MYEXTLIB).
+ARMAYBE = %s
+OTHERLDFLAGS = %s
+INST_DYNAMIC_DEP = %s
+INST_DYNAMIC_FIX = %s
+EOF
+}
+
+sub _xs_armaybe {
+    my ($self, $attribs) = @_;
+    my $armaybe = $attribs->{ARMAYBE} || $self->{ARMAYBE} || ":";
+    $armaybe = 'ar' if ($Is{OSF} and $armaybe eq ':');
+    $armaybe;
+}
+
+
+sub xs_make_dynamic_lib {
+    my ($self, $attribs, $object, $to, $todir, $ldfrom, $exportlist, $dlsyms) = @_;
+    $exportlist = '' if $exportlist ne '$(EXPORT_LIST)';
+    my $armaybe = $self->_xs_armaybe($attribs);
+    my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) %s'."\n", $to, $object, $todir, $exportlist, ($dlsyms || '');
+    my $dlsyms_arg = $self->xs_dlsyms_arg($dlsyms);
+    if ($armaybe ne ':'){
+        $ldfrom = 'tmp$(LIB_EXT)';
+        push(@m,"	\$(ARMAYBE) cr $ldfrom $object\n");
+        push(@m,"	\$(RANLIB) $ldfrom\n");
+    }
+    $ldfrom = "-all $ldfrom -none" if $Is{OSF};
+
+    # The IRIX linker doesn't use LD_RUN_PATH
+    my $ldrun = $Is{IRIX} && $self->{LD_RUN_PATH} ?
+                       qq{-rpath "$self->{LD_RUN_PATH}"} : '';
+
+    # For example in AIX the shared objects/libraries from previous builds
+    # linger quite a while in the shared dynalinker cache even when nobody
+    # is using them.  This is painful if one for instance tries to restart
+    # a failed build because the link command will fail unnecessarily 'cos
+    # the shared object/library is 'busy'.
+    push(@m,"	\$(RM_F) \$\@\n");
+
+    my $libs = '$(LDLOADLIBS)';
+    if (($Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
+        # Use nothing on static perl platforms, and to the flags needed
+        # to link against the shared libperl library on shared perl
+        # platforms.  We peek at lddlflags to see if we need -Wl,-R
+        # or -R to add paths to the run-time library search path.
+        if ($Config{'lddlflags'} =~ /-Wl,-R/) {
+            $libs .= ' "-L$(PERL_INC)" "-Wl,-R$(INSTALLARCHLIB)/CORE" "-Wl,-R$(PERL_ARCHLIB)/CORE" -lperl';
+        } elsif ($Config{'lddlflags'} =~ /-R/) {
+            $libs .= ' "-L$(PERL_INC)" "-R$(INSTALLARCHLIB)/CORE" "-R$(PERL_ARCHLIB)/CORE" -lperl';
+        } elsif ( $Is{Android} ) {
+            # The Android linker will not recognize symbols from
+            # libperl unless the module explicitly depends on it.
+            $libs .= ' "-L$(PERL_INC)" -lperl';
+        }
+    }
+
+    my $ld_run_path_shell = "";
+    if ($self->{LD_RUN_PATH} ne "") {
+        $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
+    }
+
+    push @m, sprintf <<'MAKE', $ld_run_path_shell, $ldrun, $dlsyms_arg, $ldfrom, $self->xs_obj_opt('$@'), $libs, $exportlist;
+	%s$(LD) %s $(LDDLFLAGS) %s %s $(OTHERLDFLAGS) %s $(MYEXTLIB) \
+	  $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) %s \
+	  $(INST_DYNAMIC_FIX)
+	$(CHMOD) $(PERM_RWX) $@
+MAKE
+    join '', @m;
+}
+
+
+sub exescan {
+    my($self,$path) = @_;
+    $path;
+}
+
+
+sub extliblist {
+    my($self,$libs) = @_;
+    require ExtUtils::Liblist;
+    $self->ext($libs, $Verbose);
+}
+
+
+sub find_perl {
+    my($self, $ver, $names, $dirs, $trace) = @_;
+
+    if ($trace >= 2){
+        print "Looking for perl $ver by these names:
+@$names
+in these dirs:
+@$dirs
+";
+    }
+
+    my $stderr_duped = 0;
+    local *STDERR_COPY;
+
+    unless ($Is{BSD}) {
+        # >& and lexical filehandles together give 5.6.2 indigestion
+        if( open(STDERR_COPY, '>&STDERR') ) {  ## no critic
+            $stderr_duped = 1;
+        }
+        else {
+            warn <<WARNING;
+find_perl() can't dup STDERR: $!
+You might see some garbage while we search for Perl
+WARNING
+        }
+    }
+
+    foreach my $name (@$names){
+        my ($abs, $use_dir);
+        if ($self->file_name_is_absolute($name)) {     # /foo/bar
+            $abs = $name;
+        } elsif ($self->canonpath($name) eq
+                 $self->canonpath(basename($name))) {  # foo
+            $use_dir = 1;
+        } else {                                            # foo/bar
+            $abs = $self->catfile($Curdir, $name);
+        }
+        foreach my $dir ($use_dir ? @$dirs : 1){
+            next unless defined $dir; # $self->{PERL_SRC} may be undefined
+
+            $abs = $self->catfile($dir, $name)
+                if $use_dir;
+
+            print "Checking $abs\n" if ($trace >= 2);
+            next unless $self->maybe_command($abs);
+            print "Executing $abs\n" if ($trace >= 2);
+
+            my $val;
+            my $version_check = qq{"$abs" -le "require $ver; print qq{VER_OK}"};
+
+            # To avoid using the unportable 2>&1 to suppress STDERR,
+            # we close it before running the command.
+            # However, thanks to a thread library bug in many BSDs
+            # ( http://www.freebsd.org/cgi/query-pr.cgi?pr=51535 )
+            # we cannot use the fancier more portable way in here
+            # but instead need to use the traditional 2>&1 construct.
+            if ($Is{BSD}) {
+                $val = `$version_check 2>&1`;
+            } else {
+                close STDERR if $stderr_duped;
+                $val = `$version_check`;
+
+                # 5.6.2's 3-arg open doesn't work with >&
+                open STDERR, ">&STDERR_COPY"  ## no critic
+                        if $stderr_duped;
+            }
+
+            if ($val =~ /^VER_OK/m) {
+                print "Using PERL=$abs\n" if $trace;
+                return $abs;
+            } elsif ($trace >= 2) {
+                print "Result: '$val' ".($? >> 8)."\n";
+            }
+        }
+    }
+    print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
+    0; # false and not empty
+}
+
+
+
+sub fixin {    # stolen from the pink Camel book, more or less
+    my ( $self, @files ) = @_;
+
+    for my $file (@files) {
+        my $file_new = "$file.new";
+        my $file_bak = "$file.bak";
+
+        open( my $fixin, '<', $file ) or croak "Can't process '$file': $!";
+        local $/ = "\n";
+        chomp( my $line = <$fixin> );
+        next unless $line =~ s/^\s*\#!\s*//;    # Not a shebang file.
+
+        my $shb = $self->_fixin_replace_shebang( $file, $line );
+        next unless defined $shb;
+
+        open( my $fixout, ">", "$file_new" ) or do {
+            warn "Can't create new $file: $!\n";
+            next;
+        };
+
+        # Print out the new #! line (or equivalent).
+        local $\;
+        local $/;
+        print $fixout $shb, <$fixin>;
+        close $fixin;
+        close $fixout;
+
+        chmod 0666, $file_bak;
+        unlink $file_bak;
+        unless ( _rename( $file, $file_bak ) ) {
+            warn "Can't rename $file to $file_bak: $!";
+            next;
+        }
+        unless ( _rename( $file_new, $file ) ) {
+            warn "Can't rename $file_new to $file: $!";
+            unless ( _rename( $file_bak, $file ) ) {
+                warn "Can't rename $file_bak back to $file either: $!";
+                warn "Leaving $file renamed as $file_bak\n";
+            }
+            next;
+        }
+        unlink $file_bak;
+    }
+    continue {
+        system("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
+    }
+}
+
+
+sub _rename {
+    my($old, $new) = @_;
+
+    foreach my $file ($old, $new) {
+        if( $Is{VMS} and basename($file) !~ /\./ ) {
+            # rename() in 5.8.0 on VMS will not rename a file if it
+            # does not contain a dot yet it returns success.
+            $file = "$file.";
+        }
+    }
+
+    return rename($old, $new);
+}
+
+sub _fixin_replace_shebang {
+    my ( $self, $file, $line ) = @_;
+
+    # Now figure out the interpreter name.
+    my ( $cmd, $arg ) = split ' ', $line, 2;
+    $cmd =~ s!^.*/!!;
+
+    # Now look (in reverse) for interpreter in absolute PATH (unless perl).
+    my $interpreter;
+    if ( $cmd =~ m{^perl(?:\z|[^a-z])} ) {
+        if ( $Config{startperl} =~ m,^\#!.*/perl, ) {
+            $interpreter = $Config{startperl};
+            $interpreter =~ s,^\#!,,;
+        }
+        else {
+            $interpreter = $Config{perlpath};
+        }
+    }
+    else {
+        my (@absdirs)
+            = reverse grep { $self->file_name_is_absolute($_) } $self->path;
+        $interpreter = '';
+
+        foreach my $dir (@absdirs) {
+            my $maybefile = $self->catfile($dir,$cmd);
+            if ( $self->maybe_command($maybefile) ) {
+                warn "Ignoring $interpreter in $file\n"
+                    if $Verbose && $interpreter;
+                $interpreter = $maybefile;
+            }
+        }
+    }
+
+    # Figure out how to invoke interpreter on this machine.
+
+    my ($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/;
+    my ($shb) = "";
+    if ($interpreter) {
+        print "Changing sharpbang in $file to $interpreter"
+            if $Verbose;
+         # this is probably value-free on DOSISH platforms
+        if ($does_shbang) {
+            $shb .= "$Config{'sharpbang'}$interpreter";
+            $shb .= ' ' . $arg if defined $arg;
+            $shb .= "\n";
+        }
+    }
+    else {
+        warn "Can't find $cmd in PATH, $file unchanged"
+            if $Verbose;
+        return;
+    }
+    return $shb
+}
+
+
+sub force {
+    my($self) = shift;
+    '# Phony target to force checking subdirectories.
+FORCE :
+	$(NOECHO) $(NOOP)
+';
+}
+
+
+# ';
+
+sub guess_name {
+    my($self) = @_;
+    use Cwd 'cwd';
+    my $name = basename(cwd());
+    $name =~ s|[\-_][\d\.\-]+\z||;  # this is new with MM 5.00, we
+                                    # strip minus or underline
+                                    # followed by a float or some such
+    print "Warning: Guessing NAME [$name] from current directory name.\n";
+    $name;
+}
+
+
+sub has_link_code {
+    my($self) = shift;
+    return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE};
+    if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){
+	$self->{HAS_LINK_CODE} = 1;
+	return 1;
+    }
+    return $self->{HAS_LINK_CODE} = 0;
+}
+
+
+
+sub init_dirscan {	# --- File and Directory Lists (.xs .pm .pod etc)
+    my($self) = @_;
+    my(%dir, %xs, %c, %o, %h, %pl_files, %pm);
+
+    my %ignore = map {( $_ => 1 )} qw(Makefile.PL Build.PL test.pl t);
+
+    # ignore the distdir
+    $Is{VMS} ? $ignore{"$self->{DISTVNAME}.dir"} = 1
+            : $ignore{$self->{DISTVNAME}} = 1;
+
+    my $distprefix = $Is{VMS} ? qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+\.dir$/i
+                              : qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+$/;
+
+    @ignore{map lc, keys %ignore} = values %ignore if $Is{VMS};
+
+    if ( defined $self->{XS} and !defined $self->{C} ) {
+	my @c_files = grep { m/\.c(pp|xx)?\z/i } values %{$self->{XS}};
+	my @o_files = grep { m/(?:.(?:o(?:bj)?)|\$\(OBJ_EXT\))\z/i } values %{$self->{XS}};
+	%c = map { $_ => 1 } @c_files;
+	%o = map { $_ => 1 } @o_files;
+    }
+
+    foreach my $name ($self->lsdir($Curdir)){
+	next if $name =~ /\#/;
+	next if $name =~ $distprefix && -d $name;
+	$name = lc($name) if $Is{VMS};
+	next if $name eq $Curdir or $name eq $Updir or $ignore{$name};
+	next unless $self->libscan($name);
+	if (-d $name){
+	    next if -l $name; # We do not support symlinks at all
+            next if $self->{NORECURS};
+	    $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL"));
+	} elsif ($name =~ /\.xs\z/){
+	    my($c); ($c = $name) =~ s/\.xs\z/.c/;
+	    $xs{$name} = $c;
+	    $c{$c} = 1;
+	} elsif ($name =~ /\.c(pp|xx|c)?\z/i){  # .c .C .cpp .cxx .cc
+	    $c{$name} = 1
+		unless $name =~ m/perlmain\.c/; # See MAP_TARGET
+	} elsif ($name =~ /\.h\z/i){
+	    $h{$name} = 1;
+	} elsif ($name =~ /\.PL\z/) {
+	    ($pl_files{$name} = $name) =~ s/\.PL\z// ;
+	} elsif (($Is{VMS} || $Is{Dos}) && $name =~ /[._]pl$/i) {
+	    # case-insensitive filesystem, one dot per name, so foo.h.PL
+	    # under Unix appears as foo.h_pl under VMS or fooh.pl on Dos
+	    local($/); open(my $pl, '<', $name); my $txt = <$pl>; close $pl;
+	    if ($txt =~ /Extracting \S+ \(with variable substitutions/) {
+		($pl_files{$name} = $name) =~ s/[._]pl\z//i ;
+	    }
+	    else {
+                $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
+            }
+	} elsif ($name =~ /\.(p[ml]|pod)\z/){
+	    $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
+	}
+    }
+
+    $self->{PL_FILES}   ||= \%pl_files;
+    $self->{DIR}        ||= [sort keys %dir];
+    $self->{XS}         ||= \%xs;
+    $self->{C}          ||= [sort keys %c];
+    $self->{H}          ||= [sort keys %h];
+    $self->{PM}         ||= \%pm;
+
+    my @o_files = @{$self->{C}};
+    %o = (%o, map { $_ => 1 } grep s/\.c(pp|xx|c)?\z/$self->{OBJ_EXT}/i, @o_files);
+    $self->{O_FILES} = [sort keys %o];
+}
+
+
+
+sub init_MANPODS {
+    my $self = shift;
+
+    # Set up names of manual pages to generate from pods
+    foreach my $man (qw(MAN1 MAN3)) {
+        if ( $self->{"${man}PODS"}
+             or $self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/
+        ) {
+            $self->{"${man}PODS"} ||= {};
+        }
+        else {
+            my $init_method = "init_${man}PODS";
+            $self->$init_method();
+        }
+    }
+}
+
+
+sub _has_pod {
+    my($self, $file) = @_;
+
+    my($ispod)=0;
+    if (open( my $fh, '<', $file )) {
+        while (<$fh>) {
+            if (/^=(?:head\d+|item|pod)\b/) {
+                $ispod=1;
+                last;
+            }
+        }
+        close $fh;
+    } else {
+        # If it doesn't exist yet, we assume, it has pods in it
+        $ispod = 1;
+    }
+
+    return $ispod;
+}
+
+
+
+sub init_MAN1PODS {
+    my($self) = @_;
+
+    if ( exists $self->{EXE_FILES} ) {
+	foreach my $name (@{$self->{EXE_FILES}}) {
+	    next unless $self->_has_pod($name);
+
+	    $self->{MAN1PODS}->{$name} =
+		$self->catfile("\$(INST_MAN1DIR)",
+			       basename($name).".\$(MAN1EXT)");
+	}
+    }
+}
+
+
+
+sub init_MAN3PODS {
+    my $self = shift;
+
+    my %manifypods = (); # we collect the keys first, i.e. the files
+                         # we have to convert to pod
+
+    foreach my $name (keys %{$self->{PM}}) {
+	if ($name =~ /\.pod\z/ ) {
+	    $manifypods{$name} = $self->{PM}{$name};
+	} elsif ($name =~ /\.p[ml]\z/ ) {
+	    if( $self->_has_pod($name) ) {
+		$manifypods{$name} = $self->{PM}{$name};
+	    }
+	}
+    }
+
+    my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}};
+
+    # Remove "Configure.pm" and similar, if it's not the only pod listed
+    # To force inclusion, just name it "Configure.pod", or override
+    # MAN3PODS
+    foreach my $name (keys %manifypods) {
+	if (
+            ($self->{PERL_CORE} and $name =~ /(config|setup).*\.pm/is) or
+            ( $name =~ m/^README\.pod$/i ) # don't manify top-level README.pod
+        ) {
+	    delete $manifypods{$name};
+	    next;
+	}
+	my($manpagename) = $name;
+	$manpagename =~ s/\.p(od|m|l)\z//;
+	# everything below lib is ok
+	unless($manpagename =~ s!^\W*($parentlibs_re)\W+!!s) {
+	    $manpagename = $self->catfile(
+	        split(/::/,$self->{PARENT_NAME}),$manpagename
+	    );
+	}
+	$manpagename = $self->replace_manpage_separator($manpagename);
+	$self->{MAN3PODS}->{$name} =
+	    $self->catfile("\$(INST_MAN3DIR)", "$manpagename.\$(MAN3EXT)");
+    }
+}
+
+
+
+sub init_PM {
+    my $self = shift;
+
+    # Some larger extensions often wish to install a number of *.pm/pl
+    # files into the library in various locations.
+
+    # The attribute PMLIBDIRS holds an array reference which lists
+    # subdirectories which we should search for library files to
+    # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ].  We
+    # recursively search through the named directories (skipping any
+    # which don't exist or contain Makefile.PL files).
+
+    # For each *.pm or *.pl file found $self->libscan() is called with
+    # the default installation path in $_[1]. The return value of
+    # libscan defines the actual installation location.  The default
+    # libscan function simply returns the path.  The file is skipped
+    # if libscan returns false.
+
+    # The default installation location passed to libscan in $_[1] is:
+    #
+    #  ./*.pm		=> $(INST_LIBDIR)/*.pm
+    #  ./xyz/...	=> $(INST_LIBDIR)/xyz/...
+    #  ./lib/...	=> $(INST_LIB)/...
+    #
+    # In this way the 'lib' directory is seen as the root of the actual
+    # perl library whereas the others are relative to INST_LIBDIR
+    # (which includes PARENT_NAME). This is a subtle distinction but one
+    # that's important for nested modules.
+
+    unless( $self->{PMLIBDIRS} ) {
+        if( $Is{VMS} ) {
+            # Avoid logical name vs directory collisions
+            $self->{PMLIBDIRS} = ['./lib', "./$self->{BASEEXT}"];
+        }
+        else {
+            $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}];
+        }
+    }
+
+    #only existing directories that aren't in $dir are allowed
+
+    # Avoid $_ wherever possible:
+    # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
+    my (@pmlibdirs) = @{$self->{PMLIBDIRS}};
+    @{$self->{PMLIBDIRS}} = ();
+    my %dir = map { ($_ => $_) } @{$self->{DIR}};
+    foreach my $pmlibdir (@pmlibdirs) {
+	-d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
+    }
+
+    unless( $self->{PMLIBPARENTDIRS} ) {
+	@{$self->{PMLIBPARENTDIRS}} = ('lib');
+    }
+
+    return if $self->{PM} and $self->{ARGS}{PM};
+
+    if (@{$self->{PMLIBDIRS}}){
+	print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
+	    if ($Verbose >= 2);
+	require File::Find;
+        File::Find::find(sub {
+            if (-d $_){
+                unless ($self->libscan($_)){
+                    $File::Find::prune = 1;
+                }
+                return;
+            }
+            return if /\#/;
+            return if /~$/;             # emacs temp files
+            return if /,v$/;            # RCS files
+            return if m{\.swp$};        # vim swap files
+
+	    my $path   = $File::Find::name;
+            my $prefix = $self->{INST_LIBDIR};
+            my $striplibpath;
+
+	    my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}};
+	    $prefix =  $self->{INST_LIB}
+                if ($striplibpath = $path) =~ s{^(\W*)($parentlibs_re)\W}
+	                                       {$1}i;
+
+	    my($inst) = $self->catfile($prefix,$striplibpath);
+	    local($_) = $inst; # for backwards compatibility
+	    $inst = $self->libscan($inst);
+	    print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
+	    return unless $inst;
+	    if ($self->{XSMULTI} and $inst =~ /\.xs\z/) {
+		my($base); ($base = $path) =~ s/\.xs\z//;
+		$self->{XS}{$path} = "$base.c";
+		push @{$self->{C}}, "$base.c";
+		push @{$self->{O_FILES}}, "$base$self->{OBJ_EXT}";
+	    } else {
+		$self->{PM}{$path} = $inst;
+	    }
+	}, @{$self->{PMLIBDIRS}});
+    }
+}
+
+
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    $self->{DIRFILESEP} = '/';
+}
+
+
+
+sub init_main {
+    my($self) = @_;
+
+    # --- Initialize Module Name and Paths
+
+    # NAME    = Foo::Bar::Oracle
+    # FULLEXT = Foo/Bar/Oracle
+    # BASEEXT = Oracle
+    # PARENT_NAME = Foo::Bar
+### Only UNIX:
+###    ($self->{FULLEXT} =
+###     $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket
+    $self->{FULLEXT} = $self->catdir(split /::/, $self->{NAME});
+
+
+    # Copied from DynaLoader:
+
+    my(@modparts) = split(/::/,$self->{NAME});
+    my($modfname) = $modparts[-1];
+
+    # Some systems have restrictions on files names for DLL's etc.
+    # mod2fname returns appropriate file base name (typically truncated)
+    # It may also edit @modparts if required.
+    # We require DynaLoader to make sure that mod2fname is loaded
+    eval { require DynaLoader };
+    if (defined &DynaLoader::mod2fname) {
+        $modfname = &DynaLoader::mod2fname(\@modparts);
+    }
+
+    ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!(?:([\w:]+)::)?(\w+)\z! ;
+    $self->{PARENT_NAME} ||= '';
+
+    if (defined &DynaLoader::mod2fname) {
+	# As of 5.001m, dl_os2 appends '_'
+	$self->{DLBASE} = $modfname;
+    } else {
+	$self->{DLBASE} = '$(BASEEXT)';
+    }
+
+
+    # --- Initialize PERL_LIB, PERL_SRC
+
+    # *Real* information: where did we get these two from? ...
+    my $inc_config_dir = dirname($INC{'Config.pm'});
+    my $inc_carp_dir   = dirname($INC{'Carp.pm'});
+
+    unless ($self->{PERL_SRC}){
+        foreach my $dir_count (1..8) { # 8 is the VMS limit for nesting
+            my $dir = $self->catdir(($Updir) x $dir_count);
+
+            if (-f $self->catfile($dir,"config_h.SH")   &&
+                -f $self->catfile($dir,"perl.h")        &&
+                -f $self->catfile($dir,"lib","strict.pm")
+            ) {
+                $self->{PERL_SRC}=$dir ;
+                last;
+            }
+        }
+    }
+
+    warn "PERL_CORE is set but I can't find your PERL_SRC!\n" if
+      $self->{PERL_CORE} and !$self->{PERL_SRC};
+
+    if ($self->{PERL_SRC}){
+	$self->{PERL_LIB}     ||= $self->catdir("$self->{PERL_SRC}","lib");
+
+        $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
+        $self->{PERL_INC}     = ($Is{Win32}) ?
+            $self->catdir($self->{PERL_LIB},"CORE") : $self->{PERL_SRC};
+
+	# catch a situation that has occurred a few times in the past:
+	unless (
+		-s $self->catfile($self->{PERL_SRC},'cflags')
+		or
+		$Is{VMS}
+		&&
+		-s $self->catfile($self->{PERL_SRC},'vmsish.h')
+		or
+		$Is{Win32}
+	       ){
+	    warn qq{
+You cannot build extensions below the perl source tree after executing
+a 'make clean' in the perl source tree.
+
+To rebuild extensions distributed with the perl source you should
+simply Configure (to include those extensions) and then build perl as
+normal. After installing perl the source tree can be deleted. It is
+not needed for building extensions by running 'perl Makefile.PL'
+usually without extra arguments.
+
+It is recommended that you unpack and build additional extensions away
+from the perl source tree.
+};
+	}
+    } else {
+	# we should also consider $ENV{PERL5LIB} here
+        my $old = $self->{PERL_LIB} || $self->{PERL_ARCHLIB} || $self->{PERL_INC};
+	$self->{PERL_LIB}     ||= $Config{privlibexp};
+	$self->{PERL_ARCHLIB} ||= $Config{archlibexp};
+	$self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
+	my $perl_h;
+
+	if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))
+	    and not $old){
+	    # Maybe somebody tries to build an extension with an
+	    # uninstalled Perl outside of Perl build tree
+	    my $lib;
+	    for my $dir (@INC) {
+	      $lib = $dir, last if -e $self->catfile($dir, "Config.pm");
+	    }
+	    if ($lib) {
+              # Win32 puts its header files in /perl/src/lib/CORE.
+              # Unix leaves them in /perl/src.
+	      my $inc = $Is{Win32} ? $self->catdir($lib, "CORE" )
+                                  : dirname $lib;
+	      if (-e $self->catfile($inc, "perl.h")) {
+		$self->{PERL_LIB}	   = $lib;
+		$self->{PERL_ARCHLIB}	   = $lib;
+		$self->{PERL_INC}	   = $inc;
+		$self->{UNINSTALLED_PERL}  = 1;
+		print <<EOP;
+... Detected uninstalled Perl.  Trying to continue.
+EOP
+	      }
+	    }
+	}
+    }
+
+    if ($Is{Android}) {
+    	# Android fun times!
+    	# ../../perl -I../../lib -MFile::Glob -e1 works
+    	# ../../../perl -I../../../lib -MFile::Glob -e1 fails to find
+    	# the .so for File::Glob.
+    	# This always affects core perl, but may also affect an installed
+    	# perl built with -Duserelocatableinc.
+    	$self->{PERL_LIB} = File::Spec->rel2abs($self->{PERL_LIB});
+    	$self->{PERL_ARCHLIB} = File::Spec->rel2abs($self->{PERL_ARCHLIB});
+    }
+    $self->{PERL_INCDEP} = $self->{PERL_INC};
+    $self->{PERL_ARCHLIBDEP} = $self->{PERL_ARCHLIB};
+
+    # We get SITELIBEXP and SITEARCHEXP directly via
+    # Get_from_Config. When we are running standard modules, these
+    # won't matter, we will set INSTALLDIRS to "perl". Otherwise we
+    # set it to "site". I prefer that INSTALLDIRS be set from outside
+    # MakeMaker.
+    $self->{INSTALLDIRS} ||= "site";
+
+    $self->{MAN1EXT} ||= $Config{man1ext};
+    $self->{MAN3EXT} ||= $Config{man3ext};
+
+    # Get some stuff out of %Config if we haven't yet done so
+    print "CONFIG must be an array ref\n"
+        if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY');
+    $self->{CONFIG} = [] unless (ref $self->{CONFIG});
+    push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);
+    push(@{$self->{CONFIG}}, 'shellflags') if $Config{shellflags};
+    my(%once_only);
+    foreach my $m (@{$self->{CONFIG}}){
+        next if $once_only{$m};
+        print "CONFIG key '$m' does not exist in Config.pm\n"
+                unless exists $Config{$m};
+        $self->{uc $m} ||= $Config{$m};
+        $once_only{$m} = 1;
+    }
+
+# This is too dangerous:
+#    if ($^O eq "next") {
+#	$self->{AR} = "libtool";
+#	$self->{AR_STATIC_ARGS} = "-o";
+#    }
+# But I leave it as a placeholder
+
+    $self->{AR_STATIC_ARGS} ||= "cr";
+
+    # These should never be needed
+    $self->{OBJ_EXT} ||= '.o';
+    $self->{LIB_EXT} ||= '.a';
+
+    $self->{MAP_TARGET} ||= "perl";
+
+    $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}";
+
+    # make a simple check if we find strict
+    warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
+        (strict.pm not found)"
+        unless -f $self->catfile("$self->{PERL_LIB}","strict.pm") ||
+               $self->{NAME} eq "ExtUtils::MakeMaker";
+}
+
+
+sub init_tools {
+    my $self = shift;
+
+    $self->{ECHO}       ||= 'echo';
+    $self->{ECHO_N}     ||= 'echo -n';
+    $self->{RM_F}       ||= "rm -f";
+    $self->{RM_RF}      ||= "rm -rf";
+    $self->{TOUCH}      ||= "touch";
+    $self->{TEST_F}     ||= "test -f";
+    $self->{TEST_S}     ||= "test -s";
+    $self->{CP}         ||= "cp";
+    $self->{MV}         ||= "mv";
+    $self->{CHMOD}      ||= "chmod";
+    $self->{FALSE}      ||= 'false';
+    $self->{TRUE}       ||= 'true';
+
+    $self->{LD}         ||= 'ld';
+
+    return $self->SUPER::init_tools(@_);
+
+    # After SUPER::init_tools so $Config{shell} has a
+    # chance to get set.
+    $self->{SHELL}      ||= '/bin/sh';
+
+    return;
+}
+
+
+
+sub init_linker {
+    my($self) = shift;
+    $self->{PERL_ARCHIVE} ||= '';
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+
+
+sub init_lib2arch {
+    my($self) = shift;
+
+    # The user who requests an installation directory explicitly
+    # should not have to tell us an architecture installation directory
+    # as well. We look if a directory exists that is named after the
+    # architecture. If not we take it as a sign that it should be the
+    # same as the requested installation directory. Otherwise we take
+    # the found one.
+    for my $libpair ({l=>"privlib",   a=>"archlib"},
+                     {l=>"sitelib",   a=>"sitearch"},
+                     {l=>"vendorlib", a=>"vendorarch"},
+                    )
+    {
+        my $lib = "install$libpair->{l}";
+        my $Lib = uc $lib;
+        my $Arch = uc "install$libpair->{a}";
+        if( $self->{$Lib} && ! $self->{$Arch} ){
+            my($ilib) = $Config{$lib};
+
+            $self->prefixify($Arch,$ilib,$self->{$Lib});
+
+            unless (-d $self->{$Arch}) {
+                print "Directory $self->{$Arch} not found\n"
+                  if $Verbose;
+                $self->{$Arch} = $self->{$Lib};
+            }
+            print "Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
+        }
+    }
+}
+
+
+
+sub init_PERL {
+    my($self) = shift;
+
+    my @defpath = ();
+    foreach my $component ($self->{PERL_SRC}, $self->path(),
+                           $Config{binexp})
+    {
+	push @defpath, $component if defined $component;
+    }
+
+    # Build up a set of file names (not command names).
+    my $thisperl = $self->canonpath($^X);
+    $thisperl .= $Config{exe_ext} unless
+                # VMS might have a file version # at the end
+      $Is{VMS} ? $thisperl =~ m/$Config{exe_ext}(;\d+)?$/i
+              : $thisperl =~ m/$Config{exe_ext}$/i;
+
+    # We need a relative path to perl when in the core.
+    $thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
+
+    my @perls = ($thisperl);
+    push @perls, map { "$_$Config{exe_ext}" }
+                     ("perl$Config{version}", 'perl5', 'perl');
+
+    # miniperl has priority over all but the canonical perl when in the
+    # core.  Otherwise its a last resort.
+    my $miniperl = "miniperl$Config{exe_ext}";
+    if( $self->{PERL_CORE} ) {
+        splice @perls, 1, 0, $miniperl;
+    }
+    else {
+        push @perls, $miniperl;
+    }
+
+    $self->{PERL} ||=
+        $self->find_perl(5.0, \@perls, \@defpath, $Verbose );
+
+    my $perl = $self->{PERL};
+    $perl =~ s/^"//;
+    my $has_mcr = $perl =~ s/^MCR\s*//;
+    my $perlflags = '';
+    my $stripped_perl;
+    while ($perl) {
+	($stripped_perl = $perl) =~ s/"$//;
+	last if -x $stripped_perl;
+	last unless $perl =~ s/(\s+\S+)$//;
+	$perlflags = $1.$perlflags;
+    }
+    $self->{PERL} = $stripped_perl;
+    $self->{PERL} = 'MCR '.$self->{PERL} if $has_mcr || $Is{VMS};
+
+    # When built for debugging, VMS doesn't create perl.exe but ndbgperl.exe.
+    my $perl_name = 'perl';
+    $perl_name = 'ndbgperl' if $Is{VMS} &&
+      defined $Config{usevmsdebug} && $Config{usevmsdebug} eq 'define';
+
+    # XXX This logic is flawed.  If "miniperl" is anywhere in the path
+    # it will get confused.  It should be fixed to work only on the filename.
+    # Define 'FULLPERL' to be a non-miniperl (used in test: target)
+    unless ($self->{FULLPERL}) {
+      ($self->{FULLPERL} = $self->{PERL}) =~ s/\Q$miniperl\E$/$perl_name$Config{exe_ext}/i;
+      $self->{FULLPERL} = qq{"$self->{FULLPERL}"}.$perlflags;
+    }
+    # Can't have an image name with quotes, and findperl will have
+    # already escaped spaces.
+    $self->{FULLPERL} =~ tr/"//d if $Is{VMS};
+
+    # Little hack to get around VMS's find_perl putting "MCR" in front
+    # sometimes.
+    $self->{ABSPERL} = $self->{PERL};
+    $has_mcr = $self->{ABSPERL} =~ s/^MCR\s*//;
+    if( $self->file_name_is_absolute($self->{ABSPERL}) ) {
+        $self->{ABSPERL} = '$(PERL)';
+    }
+    else {
+        $self->{ABSPERL} = $self->rel2abs($self->{ABSPERL});
+
+        # Quote the perl command if it contains whitespace
+        $self->{ABSPERL} = $self->quote_literal($self->{ABSPERL})
+          if $self->{ABSPERL} =~ /\s/;
+
+        $self->{ABSPERL} = 'MCR '.$self->{ABSPERL} if $has_mcr;
+    }
+    $self->{PERL} = qq{"$self->{PERL}"}.$perlflags;
+
+    # Can't have an image name with quotes, and findperl will have
+    # already escaped spaces.
+    $self->{PERL} =~ tr/"//d if $Is{VMS};
+
+    # Are we building the core?
+    $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
+    $self->{PERL_CORE} = 0               unless defined $self->{PERL_CORE};
+
+    # Make sure perl can find itself before it's installed.
+    my $lib_paths = $self->{UNINSTALLED_PERL} || $self->{PERL_CORE}
+        ? ( $self->{PERL_ARCHLIB} && $self->{PERL_LIB} && $self->{PERL_ARCHLIB} ne $self->{PERL_LIB} ) ?
+            q{ "-I$(PERL_LIB)" "-I$(PERL_ARCHLIB)"} : q{ "-I$(PERL_LIB)"}
+        : undef;
+    my $inst_lib_paths = $self->{INST_ARCHLIB} ne $self->{INST_LIB}
+        ? 'RUN)'.$perlflags.' "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"'
+        : 'RUN)'.$perlflags.' "-I$(INST_LIB)"';
+    # How do we run perl?
+    foreach my $perl (qw(PERL FULLPERL ABSPERL)) {
+        my $run  = $perl.'RUN';
+
+        $self->{$run}  = qq{\$($perl)};
+        $self->{$run} .= $lib_paths if $lib_paths;
+
+        $self->{$perl.'RUNINST'} = '$('.$perl.$inst_lib_paths;
+    }
+
+    return 1;
+}
+
+
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_Unix_VERSION} = $VERSION;
+    $self->{PERL_MALLOC_DEF} = '-DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc '.
+                               '-Dfree=Perl_mfree -Drealloc=Perl_realloc '.
+                               '-Dcalloc=Perl_calloc';
+
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(MM_Unix_VERSION PERL_MALLOC_DEF))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+
+sub init_PERM {
+    my($self) = shift;
+
+    $self->{PERM_DIR} = 755  unless defined $self->{PERM_DIR};
+    $self->{PERM_RW}  = 644  unless defined $self->{PERM_RW};
+    $self->{PERM_RWX} = 755  unless defined $self->{PERM_RWX};
+
+    return 1;
+}
+
+
+
+sub init_xs {
+    my $self = shift;
+
+    if ($self->has_link_code()) {
+        $self->{INST_STATIC}  =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT)$(LIB_EXT)');
+        $self->{INST_DYNAMIC} =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(DLBASE).$(DLEXT)');
+        $self->{INST_BOOT}    =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT).bs');
+	if ($self->{XSMULTI}) {
+	    my @exts = $self->_xs_list_basenames;
+	    my (@statics, @dynamics, @boots);
+	    for my $ext (@exts) {
+		my ($v, $d, $f) = File::Spec->splitpath($ext);
+		my @d = File::Spec->splitdir($d);
+		shift @d if defined $d[0] and $d[0] eq 'lib';
+		my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
+		my $instfile = $self->catfile($instdir, $f);
+		push @statics, "$instfile\$(LIB_EXT)";
+
+                # Dynamic library names may need special handling.
+                my $dynfile = $instfile;
+                eval { require DynaLoader };
+                if (defined &DynaLoader::mod2fname) {
+                    $dynfile = $self->catfile($instdir, &DynaLoader::mod2fname([@d, $f]));
+                }
+
+		push @dynamics, "$dynfile.\$(DLEXT)";
+		push @boots, "$instfile.bs";
+	    }
+	    $self->{INST_STATIC} = join ' ', @statics;
+	    $self->{INST_DYNAMIC} = join ' ', @dynamics;
+	    $self->{INST_BOOT} = join ' ', @boots;
+	}
+    } else {
+        $self->{INST_STATIC}  = '';
+        $self->{INST_DYNAMIC} = '';
+        $self->{INST_BOOT}    = '';
+    }
+}
+
+
+sub install {
+    my($self, %attribs) = @_;
+    my(@m);
+
+    push @m, q{
+install :: pure_install doc_install
+	$(NOECHO) $(NOOP)
+
+install_perl :: pure_perl_install doc_perl_install
+	$(NOECHO) $(NOOP)
+
+install_site :: pure_site_install doc_site_install
+	$(NOECHO) $(NOOP)
+
+install_vendor :: pure_vendor_install doc_vendor_install
+	$(NOECHO) $(NOOP)
+
+pure_install :: pure_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+doc_install :: doc_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+pure__install : pure_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+doc__install : doc_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+pure_perl_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+
+    push @m,
+q{		read "}.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLPRIVLIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLARCHLIB)" \
+		"$(INST_BIN)" "$(DESTINSTALLBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLSCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLMAN3DIR)"
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		"}.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{"
+
+
+pure_site_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+    push @m,
+q{		read "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLSITELIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLSITEARCH)" \
+		"$(INST_BIN)" "$(DESTINSTALLSITEBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLSITESCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLSITEMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLSITEMAN3DIR)"
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		"}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{"
+
+pure_vendor_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+    push @m,
+q{		read "}.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLVENDORLIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLVENDORARCH)" \
+		"$(INST_BIN)" "$(DESTINSTALLVENDORBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLVENDORSCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLVENDORMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLVENDORMAN3DIR)"
+
+};
+
+    push @m, q{
+doc_perl_install :: all
+	$(NOECHO) $(NOOP)
+
+doc_site_install :: all
+	$(NOECHO) $(NOOP)
+
+doc_vendor_install :: all
+	$(NOECHO) $(NOOP)
+
+} if $self->{NO_PERLLOCAL};
+
+    push @m, q{
+doc_perl_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLPRIVLIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+doc_site_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLSITELIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+doc_vendor_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" "$(INSTALLVENDORLIB)" \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+} unless $self->{NO_PERLLOCAL};
+
+    push @m, q{
+uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+	$(NOECHO) $(NOOP)
+
+uninstall_from_perldirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{"
+
+uninstall_from_sitedirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{"
+
+uninstall_from_vendordirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{"
+};
+
+    join("",@m);
+}
+
+
+sub installbin {
+    my($self) = shift;
+
+    return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
+    my @exefiles = sort @{$self->{EXE_FILES}};
+    return "" unless @exefiles;
+
+    @exefiles = map vmsify($_), @exefiles if $Is{VMS};
+
+    my %fromto;
+    for my $from (@exefiles) {
+	my($path)= $self->catfile('$(INST_SCRIPT)', basename($from));
+
+	local($_) = $path; # for backwards compatibility
+	my $to = $self->libscan($path);
+	print "libscan($from) => '$to'\n" if ($Verbose >=2);
+
+        $to = vmsify($to) if $Is{VMS};
+	$fromto{$from} = $to;
+    }
+    my @to   = sort values %fromto;
+
+    my @m;
+    push(@m, qq{
+EXE_FILES = @exefiles
+
+pure_all :: @to
+	\$(NOECHO) \$(NOOP)
+
+realclean ::
+});
+
+    # realclean can get rather large.
+    push @m, map "\t$_\n", $self->split_command('$(RM_F)', @to);
+    push @m, "\n";
+
+    # A target for each exe file.
+    my @froms = sort keys %fromto;
+    for my $from (@froms) {
+        #                              1      2
+        push @m, _sprintf562 <<'MAKE', $from, $fromto{$from};
+%2$s : %1$s $(FIRST_MAKEFILE) $(INST_SCRIPT)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists
+	$(NOECHO) $(RM_F) %2$s
+	$(CP) %1$s %2$s
+	$(FIXIN) %2$s
+	-$(NOECHO) $(CHMOD) $(PERM_RWX) %2$s
+
+MAKE
+
+    }
+
+    join "", @m;
+}
+
+
+# LINKTYPE => static or dynamic or ''
+sub linkext {
+    my($self, %attribs) = @_;
+    my $linktype = $attribs{LINKTYPE};
+    $linktype = $self->{LINKTYPE} unless defined $linktype;
+    if (defined $linktype and $linktype eq '') {
+        warn "Warning: LINKTYPE set to '', no longer necessary\n";
+    }
+    $linktype = '$(LINKTYPE)' unless defined $linktype;
+    "
+linkext :: $linktype
+	\$(NOECHO) \$(NOOP)
+";
+}
+
+
+sub lsdir {
+    #  $self
+    my(undef, $dir, $regex) = @_;
+    opendir(my $dh, defined($dir) ? $dir : ".")
+        or return;
+    my @ls = readdir $dh;
+    closedir $dh;
+    @ls = grep(/$regex/, @ls) if defined $regex;
+    @ls;
+}
+
+
+sub macro {
+    my($self,%attribs) = @_;
+    my @m;
+    foreach my $key (sort keys %attribs) {
+	my $val = $attribs{$key};
+	push @m, "$key = $val\n";
+    }
+    join "", @m;
+}
+
+
+sub makeaperl {
+    my($self, %attribs) = @_;
+    my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
+	@attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
+    s/^(.*)/"-I$1"/ for @{$perlinc || []};
+    my(@m);
+    push @m, "
+# --- MakeMaker makeaperl section ---
+MAP_TARGET    = $target
+FULLPERL      = $self->{FULLPERL}
+MAP_PERLINC   = @{$perlinc || []}
+";
+    return join '', @m if $self->{PARENT};
+
+    my($dir) = join ":", @{$self->{DIR}};
+
+    unless ($self->{MAKEAPERL}) {
+	push @m, q{
+$(MAP_TARGET) :: $(MAKE_APERL_FILE)
+	$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
+
+$(MAKE_APERL_FILE) : static $(FIRST_MAKEFILE) pm_to_blib
+	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
+	$(NOECHO) $(PERLRUNINST) \
+		Makefile.PL DIR="}, $dir, q{" \
+		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
+		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
+
+	foreach (@ARGV){
+		my $arg = $_; # avoid lvalue aliasing
+		if ( $arg =~ /(^.*?=)(.*['\s].*)/ ) {
+			$arg = $1 . $self->quote_literal($2);
+		}
+		push @m, " \\\n\t\t$arg";
+	}
+	push @m, "\n";
+
+	return join '', @m;
+    }
+
+    my $cccmd = $self->const_cccmd($libperl);
+    $cccmd =~ s/^CCCMD\s*=\s*//;
+    $cccmd =~ s/\$\(INC\)/ "-I$self->{PERL_INC}" /;
+    $cccmd .= " $Config{cccdlflags}"
+	if ($Config{useshrplib} eq 'true');
+    $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
+
+    # The front matter of the linkcommand...
+    my $linkcmd = join ' ', "\$(CC)",
+	    grep($_, @Config{qw(ldflags ccdlflags)});
+    $linkcmd =~ s/\s+/ /g;
+    $linkcmd =~ s,(perl\.exp),\$(PERL_INC)/$1,;
+
+    # Which *.a files could we make use of...
+    my $staticlib21 = $self->_find_static_libs($searchdirs);
+    # We trust that what has been handed in as argument, will be buildable
+    $static = [] unless $static;
+    @$staticlib21{@{$static}} = (1) x @{$static};
+
+    $extra = [] unless $extra && ref $extra eq 'ARRAY';
+    for (sort keys %$staticlib21) {
+	next unless /\Q$self->{LIB_EXT}\E\z/;
+	$_ = dirname($_) . "/extralibs.ld";
+	push @$extra, $_;
+    }
+
+    s/^(.*)/"-I$1"/ for @{$perlinc || []};
+
+    $target ||= "perl";
+    $tmp    ||= ".";
+
+# MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
+# regenerate the Makefiles, MAP_STATIC and the dependencies for
+# extralibs.all are computed correctly
+    my @map_static = reverse sort keys %$staticlib21;
+    push @m, "
+MAP_LINKCMD   = $linkcmd
+MAP_STATIC    = ", join(" \\\n\t", map { qq{"$_"} } @map_static), "
+MAP_STATICDEP = ", join(' ', map { $self->quote_dep($_) } @map_static), "
+
+MAP_PRELIBS   = $Config{perllibs} $Config{cryptlib}
+";
+
+    my $lperl;
+    if (defined $libperl) {
+	($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
+    }
+    unless ($libperl && -f $lperl) { # Ilya's code...
+	my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
+	$dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL};
+	$libperl ||= "libperl$self->{LIB_EXT}";
+	$libperl   = "$dir/$libperl";
+	$lperl   ||= "libperl$self->{LIB_EXT}";
+	$lperl     = "$dir/$lperl";
+
+        if (! -f $libperl and ! -f $lperl) {
+          # We did not find a static libperl. Maybe there is a shared one?
+          if ($Is{SunOS}) {
+            $lperl  = $libperl = "$dir/$Config{libperl}";
+            # SUNOS ld does not take the full path to a shared library
+            $libperl = '' if $Is{SunOS4};
+          }
+        }
+
+	print <<EOF unless -f $lperl || defined($self->{PERL_SRC});
+Warning: $libperl not found
+If you're going to build a static perl binary, make sure perl is installed
+otherwise ignore this warning
+EOF
+    }
+
+    # SUNOS ld does not take the full path to a shared library
+    my $llibperl = $libperl ? '$(MAP_LIBPERL)' : '-lperl';
+    my $libperl_dep = $self->quote_dep($libperl);
+
+    push @m, "
+MAP_LIBPERL = $libperl
+MAP_LIBPERLDEP = $libperl_dep
+LLIBPERL    = $llibperl
+";
+
+    push @m, '
+$(INST_ARCHAUTODIR)/extralibs.all : $(INST_ARCHAUTODIR)$(DFSEP).exists '.join(" \\\n\t", @$extra).'
+	$(NOECHO) $(RM_F)  $@
+	$(NOECHO) $(TOUCH) $@
+';
+
+    foreach my $catfile (@$extra){
+	push @m, "\tcat $catfile >> \$\@\n";
+    }
+
+    my $ldfrom = $self->{XSMULTI} ? '' : '$(LDFROM)';
+    #                             1     2                        3        4
+    push @m, _sprintf562 <<'EOF', $tmp, $ldfrom, $self->xs_obj_opt('$@'), $makefilename;
+$(MAP_TARGET) :: %1$s/perlmain$(OBJ_EXT) $(MAP_LIBPERLDEP) $(MAP_STATICDEP) $(INST_ARCHAUTODIR)/extralibs.all
+	$(MAP_LINKCMD) %2$s $(OPTIMIZE) %1$s/perlmain$(OBJ_EXT) %3$s $(MAP_STATIC) "$(LLIBPERL)" `cat $(INST_ARCHAUTODIR)/extralibs.all` $(MAP_PRELIBS)
+	$(NOECHO) $(ECHO) "To install the new '$(MAP_TARGET)' binary, call"
+	$(NOECHO) $(ECHO) "    $(MAKE) $(USEMAKEFILE) %4$s inst_perl MAP_TARGET=$(MAP_TARGET)"
+	$(NOECHO) $(ECHO) "    $(MAKE) $(USEMAKEFILE) %4$s map_clean"
+
+%1$s/perlmain\$(OBJ_EXT): %1$s/perlmain.c
+EOF
+    push @m, "\t".$self->cd($tmp, qq[$cccmd "-I\$(PERL_INC)" perlmain.c])."\n";
+
+    my $maybe_DynaLoader = $Config{usedl} ? 'q(DynaLoader)' : '';
+    push @m, _sprintf562 <<'EOF', $tmp, $makefilename, $maybe_DynaLoader;
+
+%1$s/perlmain.c: %2$s
+	$(NOECHO) $(ECHO) Writing $@
+	$(NOECHO) $(PERL) $(MAP_PERLINC) "-MExtUtils::Miniperl" \
+		-e "writemain(grep(s#.*/auto/##s, @ARGV), %3$s)" $(MAP_STATIC) > $@t
+	$(MV) $@t $@
+
+EOF
+    push @m, "\t", q{$(NOECHO) $(PERL) "$(INSTALLSCRIPT)/fixpmain"
+} if (defined (&Dos::UseLFN) && Dos::UseLFN()==0);
+
+
+    push @m, q{
+doc_inst_perl :
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Perl binary" "$(MAP_TARGET)" \
+		MAP_STATIC "$(MAP_STATIC)" \
+		MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
+		MAP_LIBPERL "$(MAP_LIBPERL)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+};
+
+    push @m, q{
+inst_perl : pure_inst_perl doc_inst_perl
+
+pure_inst_perl : $(MAP_TARGET)
+	}.$self->{CP}.q{ $(MAP_TARGET) "}.$self->catfile('$(DESTINSTALLBIN)','$(MAP_TARGET)').q{"
+
+clean :: map_clean
+
+map_clean :
+	}.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
+};
+
+    join '', @m;
+}
+
+# utility method
+sub _find_static_libs {
+    my ($self, $searchdirs) = @_;
+    # don't use File::Spec here because on Win32 F::F still uses "/"
+    my $installed_version = join('/',
+	'auto', $self->{FULLEXT}, "$self->{BASEEXT}$self->{LIB_EXT}"
+    );
+    my %staticlib21;
+    require File::Find;
+    File::Find::find(sub {
+	if ($File::Find::name =~ m{/auto/share\z}) {
+	    # in a subdir of auto/share, prune because e.g.
+	    # Alien::pkgconfig uses File::ShareDir to put .a files
+	    # there. do not want
+	    $File::Find::prune = 1;
+	    return;
+	}
+
+	return unless m/\Q$self->{LIB_EXT}\E$/;
+
+	return unless -f 'extralibs.ld'; # this checks is a "proper" XS installation
+
+        # Skip perl's libraries.
+        return if m/^libperl/ or m/^perl\Q$self->{LIB_EXT}\E$/;
+
+	# Skip purified versions of libraries
+        # (e.g., DynaLoader_pure_p1_c0_032.a)
+	return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure";
+
+	if( exists $self->{INCLUDE_EXT} ){
+		my $found = 0;
+
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,s;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything not explicitly marked for inclusion.
+		# DynaLoader is implied.
+		foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
+			if( $xx eq $incl ){
+				$found++;
+				last;
+			}
+		}
+		return unless $found;
+	}
+	elsif( exists $self->{EXCLUDE_EXT} ){
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,s;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything explicitly marked for exclusion
+		foreach my $excl (@{$self->{EXCLUDE_EXT}}){
+			return if( $xx eq $excl );
+		}
+	}
+
+	# don't include the installed version of this extension. I
+	# leave this line here, although it is not necessary anymore:
+	# I patched minimod.PL instead, so that Miniperl.pm won't
+	# include duplicates
+
+	# Once the patch to minimod.PL is in the distribution, I can
+	# drop it
+	return if $File::Find::name =~ m:\Q$installed_version\E\z:;
+	return if !$self->xs_static_lib_is_xs($_);
+	use Cwd 'cwd';
+	$staticlib21{cwd() . "/" . $_}++;
+    }, grep( -d $_, map { $self->catdir($_, 'auto') } @{$searchdirs || []}) );
+    return \%staticlib21;
+}
+
+
+sub xs_static_lib_is_xs {
+    my ($self, $libfile) = @_;
+    my $devnull = File::Spec->devnull;
+    return `nm $libfile 2>$devnull` =~ /\bboot_/;
+}
+
+
+sub makefile {
+    my($self) = shift;
+    my $m;
+    # We do not know what target was originally specified so we
+    # must force a manual rerun to be sure. But as it should only
+    # happen very rarely it is not a significant problem.
+    $m = '
+$(OBJECT) : $(FIRST_MAKEFILE)
+
+' if $self->{OBJECT};
+
+    my $newer_than_target = $Is{VMS} ? '$(MMS$SOURCE_LIST)' : '$?';
+    my $mpl_args = join " ", map qq["$_"], @ARGV;
+    my $cross = '';
+    if (defined $::Cross::platform) {
+        # Inherited from win32/buildext.pl
+        $cross = "-MCross=$::Cross::platform ";
+    }
+    $m .= sprintf <<'MAKE_FRAG', $newer_than_target, $cross, $mpl_args;
+# We take a very conservative approach here, but it's worth it.
+# We move Makefile to Makefile.old here to avoid gnu make looping.
+$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
+	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to %s"
+	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
+	-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	-$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
+	- $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL)
+	$(PERLRUN) %sMakefile.PL %s
+	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
+	$(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command.  <=="
+	$(FALSE)
+
+MAKE_FRAG
+
+    return $m;
+}
+
+
+
+sub maybe_command {
+    my($self,$file) = @_;
+    return $file if -x $file && ! -d $file;
+    return;
+}
+
+
+
+sub needs_linking {
+    my($self) = shift;
+
+    my $caller = (caller(0))[3];
+    confess("needs_linking called too early") if
+      $caller =~ /^ExtUtils::MakeMaker::/;
+    return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING};
+    if ($self->has_link_code or $self->{MAKEAPERL}){
+	$self->{NEEDS_LINKING} = 1;
+	return 1;
+    }
+    foreach my $child (keys %{$self->{CHILDREN}}) {
+	if ($self->{CHILDREN}->{$child}->needs_linking) {
+	    $self->{NEEDS_LINKING} = 1;
+	    return 1;
+	}
+    }
+    return $self->{NEEDS_LINKING} = 0;
+}
+
+
+
+sub parse_abstract {
+    my($self,$parsefile) = @_;
+    my $result;
+
+    local $/ = "\n";
+    open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!";
+    binmode $fh;
+    my $inpod = 0;
+    my $pod_encoding;
+    my $package = $self->{DISTNAME};
+    $package =~ s/-/::/g;
+    while (<$fh>) {
+        $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
+        next if !$inpod;
+        s#\r*\n\z##; # handle CRLF input
+
+        if ( /^=encoding\s*(.*)$/i ) {
+            $pod_encoding = $1;
+        }
+
+        if ( /^($package(?:\.pm)? \s+ -+ \s+)(.*)/x ) {
+          $result = $2;
+          next;
+        }
+        next unless $result;
+
+        if ( $result && ( /^\s*$/ || /^\=/ ) ) {
+          last;
+        }
+        $result = join ' ', $result, $_;
+    }
+    close $fh;
+
+    if ( $pod_encoding and !( $] < 5.008 or !$Config{useperlio} ) ) {
+        # Have to wrap in an eval{} for when running under PERL_CORE
+        # Encode isn't available during build phase and parsing
+        # ABSTRACT isn't important there
+        eval {
+          require Encode;
+          $result = Encode::decode($pod_encoding, $result);
+        }
+    }
+
+    return $result;
+}
+
+
+sub parse_version {
+    my($self,$parsefile) = @_;
+    my $result;
+
+    local $/ = "\n";
+    local $_;
+    open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!";
+    my $inpod = 0;
+    while (<$fh>) {
+        $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
+        next if $inpod || /^\s*#/;
+        chop;
+        next if /^\s*(if|unless|elsif)/;
+        if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{)  }x ) {
+            local $^W = 0;
+            $result = $1;
+        }
+        elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]}x ) {
+			$result = $self->get_version($parsefile, $1, $2);
+        }
+        else {
+          next;
+        }
+        last if defined $result;
+    }
+    close $fh;
+
+    if ( defined $result && $result !~ /^v?[\d_\.]+$/ ) {
+      require version;
+      my $normal = eval { version->new( $result ) };
+      $result = $normal if defined $normal;
+    }
+    $result = "undef" unless defined $result;
+    return $result;
+}
+
+sub get_version {
+    my ($self, $parsefile, $sigil, $name) = @_;
+    my $line = $_; # from the while() loop in parse_version
+    {
+        package ExtUtils::MakeMaker::_version;
+        undef *version; # in case of unexpected version() sub
+        eval {
+            require version;
+            version::->import;
+        };
+        no strict;
+        local *{$name};
+        local $^W = 0;
+        $line = $1 if $line =~ m{^(.+)}s;
+        eval($line); ## no critic
+        return ${$name};
+    }
+}
+
+
+sub pasthru {
+    my($self) = shift;
+    my(@m);
+
+    my(@pasthru);
+    my($sep) = $Is{VMS} ? ',' : '';
+    $sep .= "\\\n\t";
+
+    foreach my $key (qw(LIB LIBPERL_A LINKTYPE OPTIMIZE
+                     PREFIX INSTALL_BASE)
+                 )
+    {
+        next unless defined $self->{$key};
+	push @pasthru, "$key=\"\$($key)\"";
+    }
+
+    foreach my $key (qw(DEFINE INC)) {
+        # default to the make var
+        my $val = qq{\$($key)};
+        # expand within perl if given since need to use quote_literal
+        # since INC might include space-protecting ""!
+        chomp($val = $self->{$key}) if defined $self->{$key};
+        $val .= " \$(PASTHRU_$key)";
+        my $quoted = $self->quote_literal($val);
+        push @pasthru, qq{PASTHRU_$key=$quoted};
+    }
+
+    push @m, "\nPASTHRU = ", join ($sep, @pasthru), "\n";
+    join "", @m;
+}
+
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && -f _;
+    return;
+}
+
+
+sub perldepend {
+    my($self) = shift;
+    my(@m);
+
+    my $make_config = $self->cd('$(PERL_SRC)', '$(MAKE) lib/Config.pm');
+
+    push @m, sprintf <<'MAKE_FRAG', $make_config if $self->{PERL_SRC};
+# Check for unpropogated config.sh changes. Should never happen.
+# We do NOT just update config.h because that is not sufficient.
+# An out of date config.h is not fatal but complains loudly!
+$(PERL_INCDEP)/config.h: $(PERL_SRC)/config.sh
+	-$(NOECHO) $(ECHO) "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; $(FALSE)
+
+$(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
+	$(NOECHO) $(ECHO) "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
+	%s
+MAKE_FRAG
+
+    return join "", @m unless $self->needs_linking;
+
+    if ($self->{OBJECT}) {
+        # Need to add an object file dependency on the perl headers.
+        # this is very important for XS modules in perl.git development.
+        push @m, $self->_perl_header_files_fragment("/"); # Directory separator between $(PERL_INC)/header.h
+    }
+
+    push @m, join(" ", sort values %{$self->{XS}})." : \$(XSUBPPDEPS)\n"  if %{$self->{XS}};
+
+    return join "\n", @m;
+}
+
+
+
+sub pm_to_blib {
+    my $self = shift;
+    my($autodir) = $self->catdir('$(INST_LIB)','auto');
+    my $r = q{
+pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
+};
+
+    # VMS will swallow '' and PM_FILTER is often empty.  So use q[]
+    my $pm_to_blib = $self->oneliner(<<CODE, ['-MExtUtils::Install']);
+pm_to_blib({\@ARGV}, '$autodir', q[\$(PM_FILTER)], '\$(PERM_DIR)')
+CODE
+
+    my @cmds = $self->split_command($pm_to_blib,
+                  map { ($self->quote_literal($_) => $self->quote_literal($self->{PM}->{$_})) } sort keys %{$self->{PM}});
+
+    $r .= join '', map { "\t\$(NOECHO) $_\n" } @cmds;
+    $r .= qq{\t\$(NOECHO) \$(TOUCH) pm_to_blib\n};
+
+    return $r;
+}
+
+# transform dot-separated version string into comma-separated quadruple
+# examples:  '1.2.3.4.5' => '1,2,3,4'
+#            '1.2.3'     => '1,2,3,0'
+sub _ppd_version {
+    my ($self, $string) = @_;
+    return join ',', ((split /\./, $string), (0) x 4)[0..3];
+}
+
+
+sub ppd {
+    my($self) = @_;
+
+    my $abstract = $self->{ABSTRACT} || '';
+    $abstract =~ s/\n/\\n/sg;
+    $abstract =~ s/</&lt;/g;
+    $abstract =~ s/>/&gt;/g;
+
+    my $author = join(', ',@{ ref $self->{AUTHOR} eq 'ARRAY' ? $self->{AUTHOR} : [ $self->{AUTHOR} || '']});
+    $author =~ s/</&lt;/g;
+    $author =~ s/>/&gt;/g;
+
+    my $ppd_file = "$self->{DISTNAME}.ppd";
+
+    my @ppd_chunks = qq(<SOFTPKG NAME="$self->{DISTNAME}" VERSION="$self->{VERSION}">\n);
+
+    push @ppd_chunks, sprintf <<'PPD_HTML', $abstract, $author;
+    <ABSTRACT>%s</ABSTRACT>
+    <AUTHOR>%s</AUTHOR>
+PPD_HTML
+
+    push @ppd_chunks, "    <IMPLEMENTATION>\n";
+    if ( $self->{MIN_PERL_VERSION} ) {
+        my $min_perl_version = $self->_ppd_version($self->{MIN_PERL_VERSION});
+        push @ppd_chunks, sprintf <<'PPD_PERLVERS', $min_perl_version;
+        <PERLCORE VERSION="%s" />
+PPD_PERLVERS
+
+    }
+
+    # Don't add "perl" to requires.  perl dependencies are
+    # handles by ARCHITECTURE.
+    my %prereqs = %{$self->{PREREQ_PM}};
+    delete $prereqs{perl};
+
+    # Build up REQUIRE
+    foreach my $prereq (sort keys %prereqs) {
+        my $name = $prereq;
+        $name .= '::' unless $name =~ /::/;
+        my $version = $prereqs{$prereq};
+
+        my %attrs = ( NAME => $name );
+        $attrs{VERSION} = $version if $version;
+        my $attrs = join " ", map { qq[$_="$attrs{$_}"] } sort keys %attrs;
+        push @ppd_chunks, qq(        <REQUIRE $attrs />\n);
+    }
+
+    my $archname = $Config{archname};
+    if ($] >= 5.008) {
+        # archname did not change from 5.6 to 5.8, but those versions may
+        # not be not binary compatible so now we append the part of the
+        # version that changes when binary compatibility may change
+        $archname .= "-$Config{PERL_REVISION}.$Config{PERL_VERSION}";
+    }
+    push @ppd_chunks, sprintf <<'PPD_OUT', $archname;
+        <ARCHITECTURE NAME="%s" />
+PPD_OUT
+
+    if ($self->{PPM_INSTALL_SCRIPT}) {
+        if ($self->{PPM_INSTALL_EXEC}) {
+            push @ppd_chunks, sprintf qq{        <INSTALL EXEC="%s">%s</INSTALL>\n},
+                  $self->{PPM_INSTALL_EXEC}, $self->{PPM_INSTALL_SCRIPT};
+        }
+        else {
+            push @ppd_chunks, sprintf qq{        <INSTALL>%s</INSTALL>\n},
+                  $self->{PPM_INSTALL_SCRIPT};
+        }
+    }
+
+    if ($self->{PPM_UNINSTALL_SCRIPT}) {
+        if ($self->{PPM_UNINSTALL_EXEC}) {
+            push @ppd_chunks, sprintf qq{        <UNINSTALL EXEC="%s">%s</UNINSTALL>\n},
+                  $self->{PPM_UNINSTALL_EXEC}, $self->{PPM_UNINSTALL_SCRIPT};
+        }
+        else {
+            push @ppd_chunks, sprintf qq{        <UNINSTALL>%s</UNINSTALL>\n},
+                  $self->{PPM_UNINSTALL_SCRIPT};
+        }
+    }
+
+    my ($bin_location) = $self->{BINARY_LOCATION} || '';
+    $bin_location =~ s/\\/\\\\/g;
+
+    push @ppd_chunks, sprintf <<'PPD_XML', $bin_location;
+        <CODEBASE HREF="%s" />
+    </IMPLEMENTATION>
+</SOFTPKG>
+PPD_XML
+
+    my @ppd_cmds = $self->stashmeta(join('', @ppd_chunks), $ppd_file);
+
+    return sprintf <<'PPD_OUT', join "\n\t", @ppd_cmds;
+# Creates a PPD (Perl Package Description) for a binary distribution.
+ppd :
+	%s
+PPD_OUT
+
+}
+
+
+sub prefixify {
+    my($self,$var,$sprefix,$rprefix,$default) = @_;
+
+    my $path = $self->{uc $var} ||
+               $Config_Override{lc $var} || $Config{lc $var} || '';
+
+    $rprefix .= '/' if $sprefix =~ m|/$|;
+
+    warn "  prefixify $var => $path\n" if $Verbose >= 2;
+    warn "    from $sprefix to $rprefix\n" if $Verbose >= 2;
+
+    if( $self->{ARGS}{PREFIX} &&
+        $path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
+    {
+
+        warn "    cannot prefix, using default.\n" if $Verbose >= 2;
+        warn "    no default!\n" if !$default && $Verbose >= 2;
+
+        $path = $self->catdir($rprefix, $default) if $default;
+    }
+
+    print "    now $path\n" if $Verbose >= 2;
+    return $self->{uc $var} = $path;
+}
+
+
+
+sub processPL {
+    my $self = shift;
+    my $pl_files = $self->{PL_FILES};
+
+    return "" unless $pl_files;
+
+    my $m = '';
+    foreach my $plfile (sort keys %$pl_files) {
+        my $list = ref($pl_files->{$plfile})
+                     ?  $pl_files->{$plfile}
+                     : [$pl_files->{$plfile}];
+
+        foreach my $target (@$list) {
+            if( $Is{VMS} ) {
+                $plfile = vmsify($self->eliminate_macros($plfile));
+                $target = vmsify($self->eliminate_macros($target));
+            }
+
+            # Normally a .PL file runs AFTER pm_to_blib so it can have
+            # blib in its @INC and load the just built modules.  BUT if
+            # the generated module is something in $(TO_INST_PM) which
+            # pm_to_blib depends on then it can't depend on pm_to_blib
+            # else we have a dependency loop.
+            my $pm_dep;
+            my $perlrun;
+            if( defined $self->{PM}{$target} ) {
+                $pm_dep  = '';
+                $perlrun = 'PERLRUN';
+            }
+            else {
+                $pm_dep  = 'pm_to_blib';
+                $perlrun = 'PERLRUNINST';
+            }
+
+            $m .= <<MAKE_FRAG;
+
+pure_all :: $target
+	\$(NOECHO) \$(NOOP)
+
+$target :: $plfile $pm_dep
+	\$($perlrun) $plfile $target
+MAKE_FRAG
+
+        }
+    }
+
+    return $m;
+}
+
+
+sub specify_shell {
+  return '';
+}
+
+
+sub quote_paren {
+    my $arg = shift;
+    $arg =~ s{\$\((.+?)\)}{\$\\\\($1\\\\)}g;	# protect $(...)
+    $arg =~ s{(?<!\\)([()])}{\\$1}g;		# quote unprotected
+    $arg =~ s{\$\\\\\((.+?)\\\\\)}{\$($1)}g;	# unprotect $(...)
+    return $arg;
+}
+
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+
+    $man =~ s,/+,::,g;
+    return $man;
+}
+
+
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    # No leading tab and no trailing newline makes for easier embedding
+    my $make_frag = join "\n\t", map { "cd $dir && $_" } @cmds;
+
+    return $make_frag;
+}
+
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    my @cmds = split /\n/, $cmd;
+    $cmd = join " \n\t  -e ", map $self->quote_literal($_), @cmds;
+    $cmd = $self->escape_newlines($cmd);
+
+    $switches = join ' ', @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd --};
+}
+
+
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # Quote single quotes
+    $text =~ s{'}{'\\''}g;
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return "'$text'";
+}
+
+
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    $text =~ s{\n}{\\\n}g;
+
+    return $text;
+}
+
+
+
+sub max_exec_len {
+    my $self = shift;
+
+    if (!defined $self->{_MAX_EXEC_LEN}) {
+        if (my $arg_max = eval { require POSIX;  &POSIX::ARG_MAX }) {
+            $self->{_MAX_EXEC_LEN} = $arg_max;
+        }
+        else {      # POSIX minimum exec size
+            $self->{_MAX_EXEC_LEN} = 4096;
+        }
+    }
+
+    return $self->{_MAX_EXEC_LEN};
+}
+
+
+
+sub static {
+# --- Static Loading Sections ---
+
+    my($self) = shift;
+    '
+## $(INST_PM) has been moved to the all: target.
+## It remains here for awhile to allow for old usage: "make static"
+static :: $(FIRST_MAKEFILE) $(INST_STATIC)
+	$(NOECHO) $(NOOP)
+';
+}
+
+sub static_lib {
+    my($self) = @_;
+    return '' unless $self->has_link_code;
+    my(@m);
+    my @libs;
+    if ($self->{XSMULTI}) {
+	for my $ext ($self->_xs_list_basenames) {
+	    my ($v, $d, $f) = File::Spec->splitpath($ext);
+	    my @d = File::Spec->splitdir($d);
+	    shift @d if $d[0] eq 'lib';
+	    my $instdir = $self->catdir('$(INST_ARCHLIB)', 'auto', @d, $f);
+	    my $instfile = $self->catfile($instdir, "$f\$(LIB_EXT)");
+	    my $objfile = "$ext\$(OBJ_EXT)";
+	    push @libs, [ $objfile, $instfile, $instdir ];
+	}
+    } else {
+	@libs = ([ qw($(OBJECT) $(INST_STATIC) $(INST_ARCHAUTODIR)) ]);
+    }
+    push @m, map { $self->xs_make_static_lib(@$_); } @libs;
+    join "\n", @m;
+}
+
+
+sub xs_make_static_lib {
+    my ($self, $from, $to, $todir) = @_;
+    my @m = sprintf '%s: %s $(MYEXTLIB) %s$(DFSEP).exists'."\n", $to, $from, $todir;
+    push @m, "\t\$(RM_F) \"\$\@\"\n";
+    push @m, $self->static_lib_fixtures;
+    push @m, $self->static_lib_pure_cmd($from);
+    push @m, "\t\$(CHMOD) \$(PERM_RWX) \$\@\n";
+    push @m, $self->static_lib_closures($todir);
+    join '', @m;
+}
+
+
+sub static_lib_closures {
+    my ($self, $todir) = @_;
+    my @m = sprintf <<'MAKE_FRAG', $todir;
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" > %s$(DFSEP)extralibs.ld
+MAKE_FRAG
+    # Old mechanism - still available:
+    push @m, <<'MAKE_FRAG' if $self->{PERL_SRC} && $self->{EXTRALIBS};
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" >> $(PERL_SRC)$(DFSEP)ext.libs
+MAKE_FRAG
+    @m;
+}
+
+
+sub static_lib_fixtures {
+    my ($self) = @_;
+    # If this extension has its own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    return unless $self->{MYEXTLIB};
+    "\t\$(CP) \$(MYEXTLIB) \"\$\@\"\n";
+}
+
+
+sub static_lib_pure_cmd {
+    my ($self, $from) = @_;
+    my $ar;
+    if (exists $self->{FULL_AR} && -x $self->{FULL_AR}) {
+        # Prefer the absolute pathed ar if available so that PATH
+        # doesn't confuse us.  Perl itself is built with the full_ar.
+        $ar = 'FULL_AR';
+    } else {
+        $ar = 'AR';
+    }
+    sprintf <<'MAKE_FRAG', $ar, $from;
+	$(%s) $(AR_STATIC_ARGS) "$@" %s
+	$(RANLIB) "$@"
+MAKE_FRAG
+}
+
+
+sub staticmake {
+    my($self, %attribs) = @_;
+    my(@static);
+
+    my(@searchdirs)=($self->{PERL_ARCHLIB}, $self->{SITEARCHEXP},  $self->{INST_ARCHLIB});
+
+    # And as it's not yet built, we add the current extension
+    # but only if it has some C code (or XS code, which implies C code)
+    if (@{$self->{C}}) {
+	@static = $self->catfile($self->{INST_ARCHLIB},
+				 "auto",
+				 $self->{FULLEXT},
+				 "$self->{BASEEXT}$self->{LIB_EXT}"
+				);
+    }
+
+    # Either we determine now, which libraries we will produce in the
+    # subdirectories or we do it at runtime of the make.
+
+    # We could ask all subdir objects, but I cannot imagine, why it
+    # would be necessary.
+
+    # Instead we determine all libraries for the new perl at
+    # runtime.
+    my(@perlinc) = ($self->{INST_ARCHLIB}, $self->{INST_LIB}, $self->{PERL_ARCHLIB}, $self->{PERL_LIB});
+
+    $self->makeaperl(MAKE	=> $self->{MAKEFILE},
+		     DIRS	=> \@searchdirs,
+		     STAT	=> \@static,
+		     INCL	=> \@perlinc,
+		     TARGET	=> $self->{MAP_TARGET},
+		     TMP	=> "",
+		     LIBPERL	=> $self->{LIBPERL_A}
+		    );
+}
+
+
+sub subdir_x {
+    my($self, $subdir) = @_;
+
+    my $subdir_cmd = $self->cd($subdir,
+      '$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU)'
+    );
+    return sprintf <<'EOT', $subdir_cmd;
+
+subdirs ::
+	$(NOECHO) %s
+EOT
+
+}
+
+
+sub subdirs {
+# --- Sub-directory Sections ---
+    my($self) = shift;
+    my(@m);
+    # This method provides a mechanism to automatically deal with
+    # subdirectories containing further Makefile.PL scripts.
+    # It calls the subdir_x() method for each subdirectory.
+    foreach my $dir (@{$self->{DIR}}){
+	push @m, $self->subdir_x($dir);
+####	print "Including $dir subdirectory\n";
+    }
+    if (@m){
+	unshift @m, <<'EOF';
+
+# The default clean, realclean and test targets in this Makefile
+# have automatically been given entries for each subdir.
+
+EOF
+    } else {
+	push(@m, "\n# none")
+    }
+    join('',@m);
+}
+
+
+sub test {
+    my($self, %attribs) = @_;
+    my $tests = $attribs{TESTS} || '';
+    if (!$tests && -d 't' && defined $attribs{RECURSIVE_TEST_FILES}) {
+        $tests = $self->find_tests_recursive;
+    }
+    elsif (!$tests && -d 't') {
+        $tests = $self->find_tests;
+    }
+    # have to do this because nmake is broken
+    $tests =~ s!/!\\!g if $self->is_make_type('nmake');
+    # note: 'test.pl' name is also hardcoded in init_dirscan()
+    my @m;
+    my $default_testtype = $Config{usedl} ? 'dynamic' : 'static';
+    push @m, <<EOF;
+TEST_VERBOSE=0
+TEST_TYPE=test_\$(LINKTYPE)
+TEST_FILE = test.pl
+TEST_FILES = $tests
+TESTDB_SW = -d
+
+testdb :: testdb_\$(LINKTYPE)
+	\$(NOECHO) \$(NOOP)
+
+test :: \$(TEST_TYPE)
+	\$(NOECHO) \$(NOOP)
+
+# Occasionally we may face this degenerate target:
+test_ : test_$default_testtype
+	\$(NOECHO) \$(NOOP)
+
+EOF
+
+    for my $linktype (qw(dynamic static)) {
+        my $directdeps = join ' ', grep !$self->{SKIPHASH}{$_}, $linktype, "pure_all"; # no depend on a linktype if SKIPped
+        push @m, "subdirs-test_$linktype :: $directdeps\n";
+        foreach my $dir (@{ $self->{DIR} }) {
+            my $test = $self->cd($dir, "\$(MAKE) test_$linktype \$(PASTHRU)");
+            push @m, "\t\$(NOECHO) $test\n";
+        }
+        push @m, "\n";
+        if ($tests or -f "test.pl") {
+            for my $testspec ([ '', '' ], [ 'db', ' $(TESTDB_SW)' ]) {
+                my ($db, $switch) = @$testspec;
+                my ($command, $deps);
+                # if testdb, build all but don't test all
+                $deps = $db eq 'db' ? $directdeps : "subdirs-test_$linktype";
+                if ($linktype eq 'static' and $self->needs_linking) {
+                    my $target = File::Spec->rel2abs('$(MAP_TARGET)');
+                    $command = qq{"$target" \$(MAP_PERLINC)};
+                    $deps .= ' $(MAP_TARGET)';
+                } else {
+                    $command = '$(FULLPERLRUN)' . $switch;
+                }
+                push @m, "test${db}_$linktype :: $deps\n";
+                if ($db eq 'db') {
+                    push @m, $self->test_via_script($command, '$(TEST_FILE)')
+                } else {
+                    push @m, $self->test_via_script($command, '$(TEST_FILE)')
+                        if -f "test.pl";
+                    push @m, $self->test_via_harness($command, '$(TEST_FILES)')
+                        if $tests;
+                }
+                push @m, "\n";
+            }
+        } else {
+            push @m, _sprintf562 <<'EOF', $linktype;
+testdb_%1$s test_%1$s :: subdirs-test_%1$s
+	$(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
+
+EOF
+        }
+    }
+
+    join "", @m;
+}
+
+
+sub test_via_harness {
+    my($self, $perl, $tests) = @_;
+    return $self->SUPER::test_via_harness("PERL_DL_NONLAZY=1 $perl", $tests);
+}
+
+
+sub test_via_script {
+    my($self, $perl, $script) = @_;
+    return $self->SUPER::test_via_script("PERL_DL_NONLAZY=1 $perl", $script);
+}
+
+
+
+sub tool_xsubpp {
+    my($self) = shift;
+    return "" unless $self->needs_linking;
+
+    my $xsdir;
+    my @xsubpp_dirs = @INC;
+
+    # Make sure we pick up the new xsubpp if we're building perl.
+    unshift @xsubpp_dirs, $self->{PERL_LIB} if $self->{PERL_CORE};
+
+    my $foundxsubpp = 0;
+    foreach my $dir (@xsubpp_dirs) {
+        $xsdir = $self->catdir($dir, 'ExtUtils');
+        if( -r $self->catfile($xsdir, "xsubpp") ) {
+            $foundxsubpp = 1;
+            last;
+        }
+    }
+    die "ExtUtils::MM_Unix::tool_xsubpp : Can't find xsubpp" if !$foundxsubpp;
+
+    my $tmdir   = $self->catdir($self->{PERL_LIB},"ExtUtils");
+    my(@tmdeps) = $self->catfile($tmdir,'typemap');
+    if( $self->{TYPEMAPS} ){
+        foreach my $typemap (@{$self->{TYPEMAPS}}){
+            if( ! -f  $typemap ) {
+                warn "Typemap $typemap not found.\n";
+            }
+            else {
+                $typemap = vmsify($typemap) if $Is{VMS};
+                push(@tmdeps, $typemap);
+            }
+        }
+    }
+    push(@tmdeps, "typemap") if -f "typemap";
+    # absolutised because with deep-located typemaps, eg "lib/XS/typemap",
+    # if xsubpp is called from top level with
+    #     $(XSUBPP) ... -typemap "lib/XS/typemap" "lib/XS/Test.xs"
+    # it says:
+    #     Can't find lib/XS/type map in (fulldir)/lib/XS
+    # because ExtUtils::ParseXS::process_file chdir's to .xs file's
+    # location. This is the only way to get all specified typemaps used,
+    # wherever located.
+    my @tmargs = map { '-typemap '.$self->quote_literal(File::Spec->rel2abs($_)) } @tmdeps;
+    $_ = $self->quote_dep($_) for @tmdeps;
+    if( exists $self->{XSOPT} ){
+        unshift( @tmargs, $self->{XSOPT} );
+    }
+
+    if ($Is{VMS}                          &&
+        $Config{'ldflags'}               &&
+        $Config{'ldflags'} =~ m!/Debug!i &&
+        (!exists($self->{XSOPT}) || $self->{XSOPT} !~ /linenumbers/)
+       )
+    {
+        unshift(@tmargs,'-nolinenumbers');
+    }
+
+
+    $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG};
+    my $xsdirdep = $self->quote_dep($xsdir);
+    # -dep for use when dependency not command
+
+    return qq{
+XSUBPPDIR = $xsdir
+XSUBPP = "\$(XSUBPPDIR)\$(DFSEP)xsubpp"
+XSUBPPRUN = \$(PERLRUN) \$(XSUBPP)
+XSPROTOARG = $self->{XSPROTOARG}
+XSUBPPDEPS = @tmdeps $xsdirdep\$(DFSEP)xsubpp
+XSUBPPARGS = @tmargs
+XSUBPP_EXTRA_ARGS =
+};
+}
+
+
+
+sub all_target {
+    my $self = shift;
+
+    return <<'MAKE_EXT';
+all :: pure_all manifypods
+	$(NOECHO) $(NOOP)
+MAKE_EXT
+}
+
+
+sub top_targets {
+# --- Target Sections ---
+
+    my($self) = shift;
+    my(@m);
+
+    push @m, $self->all_target, "\n" unless $self->{SKIPHASH}{'all'};
+
+    push @m, sprintf <<'EOF';
+pure_all :: config pm_to_blib subdirs linkext
+	$(NOECHO) $(NOOP)
+
+	$(NOECHO) $(NOOP)
+
+subdirs :: $(MYEXTLIB)
+	$(NOECHO) $(NOOP)
+
+config :: $(FIRST_MAKEFILE) blibdirs
+	$(NOECHO) $(NOOP)
+EOF
+
+    push @m, '
+$(O_FILES) : $(H_FILES)
+' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
+
+    push @m, q{
+help :
+	perldoc ExtUtils::MakeMaker
+};
+
+    join('',@m);
+}
+
+
+sub writedoc {
+# --- perllocal.pod section ---
+    my($self,$what,$name,@attribs)=@_;
+    my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time);
+    print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
+    print join "\n\n=item *\n\n", map("C<$_>",@attribs);
+    print "\n\n=back\n\n";
+}
+
+
+sub xs_c {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.c:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc
+	$(MV) $*.xsc $*.c
+';
+}
+
+
+sub xs_cpp {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.cpp:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc
+	$(MV) $*.xsc $*.cpp
+';
+}
+
+
+sub xs_o {
+    my ($self) = @_;
+    return '' unless $self->needs_linking();
+    my $m_o = $self->{XSMULTI} ? $self->xs_obj_opt('$*$(OBJ_EXT)') : '';
+    my $frag = '';
+    # dmake makes noise about ambiguous rule
+    $frag .= sprintf <<'EOF', $m_o unless $self->is_make_type('dmake');
+.xs$(OBJ_EXT) :
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc
+	$(MV) $*.xsc $*.c
+	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c %s
+EOF
+    if ($self->{XSMULTI}) {
+	for my $ext ($self->_xs_list_basenames) {
+	    my $pmfile = "$ext.pm";
+	    croak "$ext.xs has no matching $pmfile: $!" unless -f $pmfile;
+	    my $version = $self->parse_version($pmfile);
+	    my $cccmd = $self->{CONST_CCCMD};
+	    $cccmd =~ s/^\s*CCCMD\s*=\s*//;
+	    $cccmd =~ s/\$\(DEFINE_VERSION\)/-DVERSION=\\"$version\\"/;
+	    $cccmd =~ s/\$\(XS_DEFINE_VERSION\)/-DXS_VERSION=\\"$version\\"/;
+            $self->_xsbuild_replace_macro($cccmd, 'xs', $ext, 'INC');
+            my $define = '$(DEFINE)';
+            $self->_xsbuild_replace_macro($define, 'xs', $ext, 'DEFINE');
+            #                             1     2       3     4
+            $frag .= _sprintf562 <<'EOF', $ext, $cccmd, $m_o, $define;
+
+%1$s$(OBJ_EXT): %1$s.xs
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc
+	$(MV) $*.xsc $*.c
+	%2$s $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) %4$s $*.c %3$s
+EOF
+	}
+    }
+    $frag;
+}
+
+# param gets modified
+sub _xsbuild_replace_macro {
+    my ($self, undef, $xstype, $ext, $varname) = @_;
+    my $value = $self->_xsbuild_value($xstype, $ext, $varname);
+    return unless defined $value;
+    $_[1] =~ s/\$\($varname\)/$value/;
+}
+
+sub _xsbuild_value {
+    my ($self, $xstype, $ext, $varname) = @_;
+    return $self->{XSBUILD}{$xstype}{$ext}{$varname}
+        if $self->{XSBUILD}{$xstype}{$ext}{$varname};
+    return $self->{XSBUILD}{$xstype}{all}{$varname}
+        if $self->{XSBUILD}{$xstype}{all}{$varname};
+    ();
+}
+
+1;
+
+
+__END__
+package ExtUtils::MM;
+
+use strict;
+use ExtUtils::MakeMaker::Config;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+require ExtUtils::Liblist;
+require ExtUtils::MakeMaker;
+our @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
+
+
+{
+    # Convenient alias.
+    package MM;
+    our @ISA = qw(ExtUtils::MM);
+    sub DESTROY {}
+}
+
+sub _is_win95 {
+    # miniperl might not have the Win32 functions available and we need
+    # to run in miniperl.
+    my $have_win32 = eval { require Win32 };
+    return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95()
+                                                  : ! defined $ENV{SYSTEMROOT};
+}
+
+my %Is = ();
+$Is{VMS}    = $^O eq 'VMS';
+$Is{OS2}    = $^O eq 'os2';
+$Is{MacOS}  = $^O eq 'MacOS';
+if( $^O eq 'MSWin32' ) {
+    _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
+}
+$Is{UWIN}   = $^O =~ /^uwin(-nt)?$/;
+$Is{Cygwin} = $^O eq 'cygwin';
+$Is{NW5}    = $Config{osname} eq 'NetWare';  # intentional
+$Is{BeOS}   = ($^O =~ /beos/i or $^O eq 'haiku');
+$Is{DOS}    = $^O eq 'dos';
+if( $Is{NW5} ) {
+    $^O = 'NetWare';
+    delete $Is{Win32};
+}
+$Is{VOS}    = $^O eq 'vos';
+$Is{QNX}    = $^O eq 'qnx';
+$Is{AIX}    = $^O eq 'aix';
+$Is{Darwin} = $^O eq 'darwin';
+
+$Is{Unix}   = !grep { $_ } values %Is;
+
+map { delete $Is{$_} unless $Is{$_} } keys %Is;
+_assert( keys %Is == 1 );
+my($OS) = keys %Is;
+
+
+my $class = "ExtUtils::MM_$OS";
+eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"}; ## no critic
+die $@ if $@;
+unshift @ISA, $class;
+
+
+sub _assert {
+    my $sanity = shift;
+    die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
+    return;
+}
+#--------------------------------------------------------------------------#
+# This is a modified copy of version.pm 0.9909, bundled exclusively for
+# use by ExtUtils::Makemaker and its dependencies to bootstrap when
+# version.pm is not available.  It should not be used by ordinary modules.
+#
+# When loaded, it will try to load version.pm.  If that fails, it will load
+# ExtUtils::MakeMaker::version::vpp and alias various *version functions
+# to functions in that module.  It will also override UNIVERSAL::VERSION.
+#--------------------------------------------------------------------------#
+
+package ExtUtils::MakeMaker::version;
+
+use 5.006001;
+use strict;
+
+use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
+
+$VERSION = '7.34';
+$VERSION = eval $VERSION;
+$CLASS = 'version';
+
+{
+    local $SIG{'__DIE__'};
+    eval "use version";
+    if ( $@ ) { # don't have any version.pm installed
+        eval "use ExtUtils::MakeMaker::version::vpp";
+        die "$@" if ( $@ );
+        local $^W;
+        delete $INC{'version.pm'};
+        $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'};
+        push @version::ISA, "ExtUtils::MakeMaker::version::vpp";
+        $version::VERSION = $VERSION;
+        *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv;
+        *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare;
+        *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION;
+        *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp;
+        *version::new = \&ExtUtils::MakeMaker::version::vpp::new;
+        if ($] >= 5.009000) {
+            no strict 'refs';
+            *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify;
+            *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify;
+            *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp;
+            *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse;
+        }
+        require ExtUtils::MakeMaker::version::regex;
+        *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax;
+        *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict;
+        *LAX = \$ExtUtils::MakeMaker::version::regex::LAX;
+        *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT;
+    }
+    elsif ( ! version->can('is_qv') ) {
+        *version::is_qv = sub { exists $_[0]->{qv} };
+    }
+}
+
+1;
+package ExtUtils::MakeMaker::Config;
+
+use strict;
+
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use Config ();
+
+# Give us an overridable config.
+our %Config = %Config::Config;
+
+sub import {
+    my $caller = caller;
+
+    no strict 'refs';   ## no critic
+    *{$caller.'::Config'} = \%Config;
+}
+
+1;
+
+
+package ExtUtils::MakeMaker::Locale;
+
+use strict;
+our $VERSION = "7.34";
+$VERSION = eval $VERSION;
+
+use base 'Exporter';
+our @EXPORT_OK = qw(
+    decode_argv env
+    $ENCODING_LOCALE $ENCODING_LOCALE_FS
+    $ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT
+);
+
+use Encode ();
+use Encode::Alias ();
+
+our $ENCODING_LOCALE;
+our $ENCODING_LOCALE_FS;
+our $ENCODING_CONSOLE_IN;
+our $ENCODING_CONSOLE_OUT;
+
+sub DEBUG () { 0 }
+
+sub _init {
+    if ($^O eq "MSWin32") {
+	unless ($ENCODING_LOCALE) {
+	    # Try to obtain what the Windows ANSI code page is
+	    eval {
+		unless (defined &GetConsoleCP) {
+		    require Win32;
+                    # manually "import" it since Win32->import refuses
+		    *GetConsoleCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP;
+		}
+		unless (defined &GetConsoleCP) {
+		    require Win32::API;
+		    Win32::API->Import('kernel32', 'int GetConsoleCP()');
+		}
+		if (defined &GetConsoleCP) {
+		    my $cp = GetConsoleCP();
+		    $ENCODING_LOCALE = "cp$cp" if $cp;
+		}
+	    };
+	}
+
+	unless ($ENCODING_CONSOLE_IN) {
+            # only test one since set together
+            unless (defined &GetInputCP) {
+                eval {
+                    require Win32;
+                    eval { Win32::GetConsoleCP() };
+                    # manually "import" it since Win32->import refuses
+                    *GetInputCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP;
+                    *GetOutputCP = sub { &Win32::GetConsoleOutputCP } if defined &Win32::GetConsoleOutputCP;
+                };
+                unless (defined &GetInputCP) {
+                    eval {
+                        # try Win32::Console module for codepage to use
+                        require Win32::Console;
+                        *GetInputCP = sub { &Win32::Console::InputCP }
+                            if defined &Win32::Console::InputCP;
+                        *GetOutputCP = sub { &Win32::Console::OutputCP }
+                            if defined &Win32::Console::OutputCP;
+                    };
+                }
+                unless (defined &GetInputCP) {
+                    # final fallback
+                    *GetInputCP = *GetOutputCP = sub {
+                        # another fallback that could work is:
+                        # reg query HKLM\System\CurrentControlSet\Control\Nls\CodePage /v ACP
+                        ((qx(chcp) || '') =~ /^Active code page: (\d+)/)
+                            ? $1 : ();
+                    };
+                }
+	    }
+            my $cp = GetInputCP();
+            $ENCODING_CONSOLE_IN = "cp$cp" if $cp;
+            $cp = GetOutputCP();
+            $ENCODING_CONSOLE_OUT = "cp$cp" if $cp;
+	}
+    }
+
+    unless ($ENCODING_LOCALE) {
+	eval {
+	    require I18N::Langinfo;
+	    $ENCODING_LOCALE = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET());
+
+	    # Workaround of Encode < v2.25.  The "646" encoding  alias was
+	    # introduced in Encode-2.25, but we don't want to require that version
+	    # quite yet.  Should avoid the CPAN testers failure reported from
+	    # openbsd-4.7/perl-5.10.0 combo.
+	    $ENCODING_LOCALE = "ascii" if $ENCODING_LOCALE eq "646";
+
+	    # https://rt.cpan.org/Ticket/Display.html?id=66373
+	    $ENCODING_LOCALE = "hp-roman8" if $^O eq "hpux" && $ENCODING_LOCALE eq "roman8";
+	};
+	$ENCODING_LOCALE ||= $ENCODING_CONSOLE_IN;
+    }
+
+    if ($^O eq "darwin") {
+	$ENCODING_LOCALE_FS ||= "UTF-8";
+    }
+
+    # final fallback
+    $ENCODING_LOCALE ||= $^O eq "MSWin32" ? "cp1252" : "UTF-8";
+    $ENCODING_LOCALE_FS ||= $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_IN ||= $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_OUT ||= $ENCODING_CONSOLE_IN;
+
+    unless (Encode::find_encoding($ENCODING_LOCALE)) {
+	my $foundit;
+	if (lc($ENCODING_LOCALE) eq "gb18030") {
+	    eval {
+		require Encode::HanExtra;
+	    };
+	    if ($@) {
+		die "Need Encode::HanExtra to be installed to support locale codeset ($ENCODING_LOCALE), stopped";
+	    }
+	    $foundit++ if Encode::find_encoding($ENCODING_LOCALE);
+	}
+	die "The locale codeset ($ENCODING_LOCALE) isn't one that perl can decode, stopped"
+	    unless $foundit;
+
+    }
+
+    # use Data::Dump; ddx $ENCODING_LOCALE, $ENCODING_LOCALE_FS, $ENCODING_CONSOLE_IN, $ENCODING_CONSOLE_OUT;
+}
+
+_init();
+Encode::Alias::define_alias(sub {
+    no strict 'refs';
+    no warnings 'once';
+    return ${"ENCODING_" . uc(shift)};
+}, "locale");
+
+sub _flush_aliases {
+    no strict 'refs';
+    for my $a (sort keys %Encode::Alias::Alias) {
+	if (defined ${"ENCODING_" . uc($a)}) {
+	    delete $Encode::Alias::Alias{$a};
+	    warn "Flushed alias cache for $a" if DEBUG;
+	}
+    }
+}
+
+sub reinit {
+    $ENCODING_LOCALE = shift;
+    $ENCODING_LOCALE_FS = shift;
+    $ENCODING_CONSOLE_IN = $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_OUT = $ENCODING_LOCALE;
+    _init();
+    _flush_aliases();
+}
+
+sub decode_argv {
+    die if defined wantarray;
+    for (@ARGV) {
+	$_ = Encode::decode(locale => $_, @_);
+    }
+}
+
+sub env {
+    my $k = Encode::encode(locale => shift);
+    my $old = $ENV{$k};
+    if (@_) {
+	my $v = shift;
+	if (defined $v) {
+	    $ENV{$k} = Encode::encode(locale => $v);
+	}
+	else {
+	    delete $ENV{$k};
+	}
+    }
+    return Encode::decode(locale => $old) if defined wantarray;
+}
+
+1;
+
+__END__
+
+package ExtUtils::Constant::Utils;
+
+use strict;
+use vars qw($VERSION @EXPORT_OK @ISA);
+use Carp;
+
+@ISA = 'Exporter';
+@EXPORT_OK = qw(C_stringify perl_stringify);
+$VERSION = '0.04';
+
+use constant is_perl55 => ($] < 5.005_50);
+use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
+use constant is_sane_perl => $] > 5.007;
+
+
+# Hopefully make a happy C identifier.
+sub C_stringify {
+  local $_ = shift;
+  return unless defined $_;
+  # grr 5.6.1
+  confess "Wide character in '$_' intended as a C identifier"
+    if tr/\0-\377// != length;
+  # grr 5.6.1 more so because its regexps will break on data that happens to
+  # be utf8, which includes my 8 bit test cases.
+  $_ = pack 'C*', unpack 'U*', $_ . pack 'U*' if is_perl56;
+  s/\\/\\\\/g;
+  s/([\"\'])/\\$1/g;	# Grr. fix perl mode.
+  s/\n/\\n/g;		# Ensure newlines don't end up in octal
+  s/\r/\\r/g;
+  s/\t/\\t/g;
+  s/\f/\\f/g;
+  s/\a/\\a/g;
+  unless (is_perl55) {
+    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
+    # I cheat
+    my $cheat = '([[:^print:]])';
+
+    if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
+      s/$cheat/sprintf "\\%03o", ord $1/ge;
+    } else {
+      s/([^\0-\177])/sprintf "\\%03o", ord $1/ge;
+    }
+
+    s/$cheat/sprintf "\\%03o", ord $1/ge;
+  } else {
+    require POSIX;
+    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge;
+  }
+  $_;
+}
+
+
+# Hopefully make a happy perl identifier.
+sub perl_stringify {
+  local $_ = shift;
+  return unless defined $_;
+  s/\\/\\\\/g;
+  s/([\"\'])/\\$1/g;	# Grr. fix perl mode.
+  s/\n/\\n/g;		# Ensure newlines don't end up in octal
+  s/\r/\\r/g;
+  s/\t/\\t/g;
+  s/\f/\\f/g;
+  s/\a/\\a/g;
+  unless (is_perl55) {
+    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
+    # I cheat
+    my $cheat = '([[:^print:]])';
+    if (is_sane_perl) {
+	if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
+	    s/$cheat/sprintf "\\x{%X}", ord $1/ge;
+	} else {
+	    s/([^\0-\177])/sprintf "\\x{%X}", ord $1/ge;
+	}
+    } else {
+      # Grr 5.6.1. And I don't think I can use utf8; to force the regexp
+      # because 5.005_03 will fail.
+      # This is grim, but I also can't split on //
+      my $copy;
+      foreach my $index (0 .. length ($_) - 1) {
+        my $char = substr ($_, $index, 1);
+        $copy .= ($char le "\177") ? $char : sprintf "\\x{%X}", ord $char;
+      }
+      $_ = $copy;
+    }
+    s/$cheat/sprintf "\\%03o", ord $1/ge;
+  } else {
+    # Turns out "\x{}" notation only arrived with 5.6
+    s/([^\0-\177])/sprintf "\\x%02X", ord $1/ge;
+    require POSIX;
+    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge;
+  }
+  $_;
+}
+
+1;
+__END__
+
+package ExtUtils::Constant::ProxySubs;
+
+use strict;
+use vars qw($VERSION @ISA %type_to_struct %type_from_struct %type_to_sv
+	    %type_to_C_value %type_is_a_problem %type_num_args
+	    %type_temporary);
+use Carp;
+require ExtUtils::Constant::XS;
+use ExtUtils::Constant::Utils qw(C_stringify);
+use ExtUtils::Constant::XS qw(%XS_TypeSet);
+
+$VERSION = '0.09';
+@ISA = 'ExtUtils::Constant::XS';
+
+%type_to_struct =
+    (
+     IV => '{const char *name; I32 namelen; IV value;}',
+     NV => '{const char *name; I32 namelen; NV value;}',
+     UV => '{const char *name; I32 namelen; UV value;}',
+     PV => '{const char *name; I32 namelen; const char *value;}',
+     PVN => '{const char *name; I32 namelen; const char *value; STRLEN len;}',
+     YES => '{const char *name; I32 namelen;}',
+     NO => '{const char *name; I32 namelen;}',
+     UNDEF => '{const char *name; I32 namelen;}',
+     '' => '{const char *name; I32 namelen;} ',
+     );
+
+%type_from_struct =
+    (
+     IV => sub { $_[0] . '->value' },
+     NV => sub { $_[0] . '->value' },
+     UV => sub { $_[0] . '->value' },
+     PV => sub { $_[0] . '->value' },
+     PVN => sub { $_[0] . '->value', $_[0] . '->len' },
+     YES => sub {},
+     NO => sub {},
+     UNDEF => sub {},
+     '' => sub {},
+    );
+
+%type_to_sv = 
+    (
+     IV => sub { "newSViv($_[0])" },
+     NV => sub { "newSVnv($_[0])" },
+     UV => sub { "newSVuv($_[0])" },
+     PV => sub { "newSVpv($_[0], 0)" },
+     PVN => sub { "newSVpvn($_[0], $_[1])" },
+     YES => sub { '&PL_sv_yes' },
+     NO => sub { '&PL_sv_no' },
+     UNDEF => sub { '&PL_sv_undef' },
+     '' => sub { '&PL_sv_yes' },
+     SV => sub {"SvREFCNT_inc($_[0])"},
+     );
+
+%type_to_C_value = 
+    (
+     YES => sub {},
+     NO => sub {},
+     UNDEF => sub {},
+     '' => sub {},
+     );
+
+sub type_to_C_value {
+    my ($self, $type) = @_;
+    return $type_to_C_value{$type} || sub {return map {ref $_ ? @$_ : $_} @_};
+}
+
+# TODO - figure out if there is a clean way for the type_to_sv code to
+# attempt s/sv_2mortal// and if it succeeds tell type_to_sv not to add
+# SvREFCNT_inc
+%type_is_a_problem =
+    (
+     # The documentation says *mortal SV*, but we now need a non-mortal copy.
+     SV => 1,
+     );
+
+%type_temporary =
+    (
+     SV => ['SV *'],
+     PV => ['const char *'],
+     PVN => ['const char *', 'STRLEN'],
+     );
+$type_temporary{$_} = [$_] foreach qw(IV UV NV);
+     
+while (my ($type, $value) = each %XS_TypeSet) {
+    $type_num_args{$type}
+	= defined $value ? ref $value ? scalar @$value : 1 : 0;
+}
+$type_num_args{''} = 0;
+
+sub partition_names {
+    my ($self, $default_type, @items) = @_;
+    my (%found, @notfound, @trouble);
+
+    while (my $item = shift @items) {
+	my $default = delete $item->{default};
+	if ($default) {
+	    # If we find a default value, convert it into a regular item and
+	    # append it to the queue of items to process
+	    my $default_item = {%$item};
+	    $default_item->{invert_macro} = 1;
+	    $default_item->{pre} = delete $item->{def_pre};
+	    $default_item->{post} = delete $item->{def_post};
+	    $default_item->{type} = shift @$default;
+	    $default_item->{value} = $default;
+	    push @items, $default_item;
+	} else {
+	    # It can be "not found" unless it's the default (invert the macro)
+	    # or the "macro" is an empty string (ie no macro)
+	    push @notfound, $item unless $item->{invert_macro}
+		or !$self->macro_to_ifdef($self->macro_from_item($item));
+	}
+
+	if ($item->{pre} or $item->{post} or $item->{not_constant}
+	    or $type_is_a_problem{$item->{type}}) {
+	    push @trouble, $item;
+	} else {
+	    push @{$found{$item->{type}}}, $item;
+	}
+    }
+    # use Data::Dumper; print Dumper \%found;
+    (\%found, \@notfound, \@trouble);
+}
+
+sub boottime_iterator {
+    my ($self, $type, $iterator, $hash, $subname, $push) = @_;
+    my $extractor = $type_from_struct{$type};
+    die "Can't find extractor code for type $type"
+	unless defined $extractor;
+    my $generator = $type_to_sv{$type};
+    die "Can't find generator code for type $type"
+	unless defined $generator;
+
+    my $athx = $self->C_constant_prefix_param();
+
+    if ($push) {
+	return sprintf <<"EOBOOT", &$generator(&$extractor($iterator));
+        while ($iterator->name) {
+	    he = $subname($athx $hash, $iterator->name,
+				     $iterator->namelen, %s);
+	    av_push(push, newSVhek(HeKEY_hek(he)));
+            ++$iterator;
+	}
+EOBOOT
+    } else {
+	return sprintf <<"EOBOOT", &$generator(&$extractor($iterator));
+        while ($iterator->name) {
+	    $subname($athx $hash, $iterator->name,
+				$iterator->namelen, %s);
+            ++$iterator;
+	}
+EOBOOT
+    }
+}
+
+sub name_len_value_macro {
+    my ($self, $item) = @_;
+    my $name = $item->{name};
+    my $value = $item->{value};
+    $value = $item->{name} unless defined $value;
+
+    my $namelen = length $name;
+    if ($name =~ tr/\0-\377// != $namelen) {
+	# the hash API signals UTF-8 by passing the length negated.
+	utf8::encode($name);
+	$namelen = -length $name;
+    }
+    $name = C_stringify($name);
+
+    my $macro = $self->macro_from_item($item);
+    ($name, $namelen, $value, $macro);
+}
+
+sub WriteConstants {
+    my $self = shift;
+    my $ARGS = {@_};
+
+    my ($c_fh, $xs_fh, $c_subname, $default_type, $package)
+	= @{$ARGS}{qw(C_FH XS_FH C_SUBNAME DEFAULT_TYPE NAME)};
+
+    my $xs_subname
+	= exists $ARGS->{XS_SUBNAME} ? $ARGS->{XS_SUBNAME} : 'constant';
+
+    my $options = $ARGS->{PROXYSUBS};
+    $options = {} unless ref $options;
+    my $push = $options->{push};
+    my $explosives = $options->{croak_on_read};
+    my $croak_on_error = $options->{croak_on_error};
+    my $autoload = $options->{autoload};
+    {
+	my $exclusive = 0;
+	++$exclusive if $explosives;
+	++$exclusive if $croak_on_error;
+	++$exclusive if $autoload;
+
+	# Until someone patches this (with test cases):
+	carp ("PROXYSUBS options 'autoload', 'croak_on_read' and 'croak_on_error' cannot be used together")
+	    if $exclusive > 1;
+    }
+    # Strictly it requires Perl_caller_cx
+    carp ("PROXYSUBS option 'croak_on_error' requires v5.13.5 or later")
+	if $croak_on_error && $^V < v5.13.5;
+    # Strictly this is actually 5.8.9, but it's not well tested there
+    my $can_do_pcs = $] >= 5.009;
+    # Until someone patches this (with test cases)
+    carp ("PROXYSUBS option 'push' requires v5.10 or later")
+	if $push && !$can_do_pcs;
+    # Until someone patches this (with test cases)
+    carp ("PROXYSUBS options 'push' and 'croak_on_read' cannot be used together")
+	if $explosives && $push;
+
+    # If anyone is insane enough to suggest a package name containing %
+    my $package_sprintf_safe = $package;
+    $package_sprintf_safe =~ s/%/%%/g;
+
+    # All the types we see
+    my $what = {};
+    # A hash to lookup items with.
+    my $items = {};
+
+    my @items = $self->normalise_items ({disable_utf8_duplication => 1},
+					$default_type, $what, $items,
+					@{$ARGS->{NAMES}});
+
+    # Partition the values by type. Also include any defaults in here
+    # Everything that doesn't have a default needs alternative code for
+    # "I'm missing"
+    # And everything that has pre or post code ends up in a private block
+    my ($found, $notfound, $trouble)
+	= $self->partition_names($default_type, @items);
+
+    my $pthx = $self->C_constant_prefix_param_defintion();
+    my $athx = $self->C_constant_prefix_param();
+    my $symbol_table = C_stringify($package) . '::';
+    $push = C_stringify($package . '::' . $push) if $push;
+    my $cast_CONSTSUB = $] < 5.010 ? '(char *)' : '';
+
+    print $c_fh $self->header();
+    if ($autoload || $croak_on_error) {
+	print $c_fh <<'EOC';
+
+/* This allows slightly more efficient code on !USE_ITHREADS: */
+#ifdef USE_ITHREADS
+#  define COP_FILE(c)	CopFILE(c)
+#  define COP_FILE_F	"s"
+#else
+#  define COP_FILE(c)	CopFILESV(c)
+#  define COP_FILE_F	SVf
+#endif
+EOC
+    }
+
+    my $return_type = $push ? 'HE *' : 'void';
+
+    print $c_fh <<"EOADD";
+
+static $return_type
+${c_subname}_add_symbol($pthx HV *hash, const char *name, I32 namelen, SV *value) {
+EOADD
+    if (!$can_do_pcs) {
+	print $c_fh <<'EO_NOPCS';
+    if (namelen == namelen) {
+EO_NOPCS
+    } else {
+	print $c_fh <<"EO_PCS";
+    HE *he = (HE*) hv_common_key_len(hash, name, namelen, HV_FETCH_LVALUE, NULL,
+				     0);
+    SV *sv;
+
+    if (!he) {
+        croak("Couldn't add key '%s' to %%$package_sprintf_safe\::",
+		   name);
+    }
+    sv = HeVAL(he);
+    if (SvOK(sv) || SvTYPE(sv) == SVt_PVGV) {
+	/* Someone has been here before us - have to make a real sub.  */
+EO_PCS
+    }
+    # This piece of code is common to both
+    print $c_fh <<"EOADD";
+	newCONSTSUB(hash, ${cast_CONSTSUB}name, value);
+EOADD
+    if ($can_do_pcs) {
+	print $c_fh <<'EO_PCS';
+    } else {
+	SvUPGRADE(sv, SVt_RV);
+	SvRV_set(sv, value);
+	SvROK_on(sv);
+	SvREADONLY_on(value);
+    }
+EO_PCS
+    } else {
+	print $c_fh <<'EO_NOPCS';
+    }
+EO_NOPCS
+    }
+    print $c_fh "    return he;\n" if $push;
+    print $c_fh <<'EOADD';
+}
+
+EOADD
+
+    print $c_fh $explosives ? <<"EXPLODE" : "\n";
+
+static int
+Im_sorry_Dave(pTHX_ SV *sv, MAGIC *mg)
+{
+    PERL_UNUSED_ARG(mg);
+    croak("Your vendor has not defined $package_sprintf_safe macro %"SVf
+	  " used", sv);
+    NORETURN_FUNCTION_END;
+}
+
+static MGVTBL not_defined_vtbl = {
+ Im_sorry_Dave, /* get - I'm afraid I can't do that */
+ Im_sorry_Dave, /* set */
+ 0, /* len */
+ 0, /* clear */
+ 0, /* free */
+ 0, /* copy */
+ 0, /* dup */
+};
+
+EXPLODE
+
+{
+    my $key = $symbol_table;
+    # Just seems tidier (and slightly more space efficient) not to have keys
+    # such as Fcntl::
+    $key =~ s/::$//;
+    my $key_len = length $key;
+
+    print $c_fh <<"MISSING";
+
+#ifndef SYMBIAN
+
+/* Store a hash of all symbols missing from the package. To avoid trampling on
+   the package namespace (uninvited) put each package's hash in our namespace.
+   To avoid creating lots of typeblogs and symbol tables for sub-packages, put
+   each package's hash into one hash in our namespace.  */
+
+static HV *
+get_missing_hash(pTHX) {
+    HV *const parent
+	= get_hv("ExtUtils::Constant::ProxySubs::Missing", GVf_MULTI);
+    /* We could make a hash of hashes directly, but this would confuse anything
+	at Perl space that looks at us, and as we're visible in Perl space,
+	best to play nice. */
+    SV *const *const ref
+	= hv_fetch(parent, "$key", $key_len, TRUE);
+    HV *new_hv;
+
+    if (!ref)
+	return NULL;
+
+    if (SvROK(*ref))
+	return (HV*) SvRV(*ref);
+
+    new_hv = newHV();
+    SvUPGRADE(*ref, SVt_RV);
+    SvRV_set(*ref, (SV *)new_hv);
+    SvROK_on(*ref);
+    return new_hv;
+}
+
+#endif
+
+MISSING
+
+}
+
+    print $xs_fh <<"EOBOOT";
+BOOT:
+  {
+#if defined(dTHX) && !defined(PERL_NO_GET_CONTEXT)
+    dTHX;
+#endif
+    HV *symbol_table = get_hv("$symbol_table", GV_ADD);
+EOBOOT
+    if ($push) {
+	print $xs_fh <<"EOC";
+    AV *push = get_av(\"$push\", GV_ADD);
+    HE *he;
+EOC
+    }
+
+    my %iterator;
+
+    $found->{''}
+        = [map {{%$_, type=>'', invert_macro => 1}} @$notfound];
+
+    foreach my $type (sort keys %$found) {
+	my $struct = $type_to_struct{$type};
+	my $type_to_value = $self->type_to_C_value($type);
+	my $number_of_args = $type_num_args{$type};
+	die "Can't find structure definition for type $type"
+	    unless defined $struct;
+
+	my $lc_type = $type ? lc($type) : 'notfound';
+	my $struct_type = $lc_type . '_s';
+	my $array_name = 'values_for_' . $lc_type;
+	$iterator{$type} = 'value_for_' . $lc_type;
+	# Give the notfound struct file scope. The others are scoped within the
+	# BOOT block
+	my $struct_fh = $type ? $xs_fh : $c_fh;
+
+	print $c_fh "struct $struct_type $struct;\n";
+
+	print $struct_fh <<"EOBOOT";
+
+    static const struct $struct_type $array_name\[] =
+      {
+EOBOOT
+
+
+	foreach my $item (@{$found->{$type}}) {
+            my ($name, $namelen, $value, $macro)
+                 = $self->name_len_value_macro($item);
+
+	    my $ifdef = $self->macro_to_ifdef($macro);
+	    if (!$ifdef && $item->{invert_macro}) {
+		carp("Attempting to supply a default for '$name' which has no conditional macro");
+		next;
+	    }
+	    if ($item->{invert_macro}) {
+		print $struct_fh $self->macro_to_ifndef($macro);
+		print $struct_fh
+			"        /* This is the default value: */\n" if $type;
+	    } else {
+		print $struct_fh $ifdef;
+	    }
+	    print $struct_fh "        { ", join (', ', "\"$name\"", $namelen,
+						 &$type_to_value($value)),
+						 " },\n",
+						 $self->macro_to_endif($macro);
+	}
+
+    # Terminate the list with a NULL
+	print $struct_fh "        { NULL, 0", (", 0" x $number_of_args), " } };\n";
+
+	print $xs_fh <<"EOBOOT" if $type;
+	const struct $struct_type *$iterator{$type} = $array_name;
+EOBOOT
+    }
+
+    delete $found->{''};
+
+    my $add_symbol_subname = $c_subname . '_add_symbol';
+    foreach my $type (sort keys %$found) {
+	print $xs_fh $self->boottime_iterator($type, $iterator{$type}, 
+					      'symbol_table',
+					      $add_symbol_subname, $push);
+    }
+
+    print $xs_fh <<"EOBOOT";
+	if (C_ARRAY_LENGTH(values_for_notfound) > 1) {
+#ifndef SYMBIAN
+	    HV *const ${c_subname}_missing = get_missing_hash(aTHX);
+#endif
+	    const struct notfound_s *value_for_notfound = values_for_notfound;
+	    do {
+EOBOOT
+
+    print $xs_fh $explosives ? <<"EXPLODE" : << "DONT";
+		SV *tripwire = newSV(0);
+		
+		sv_magicext(tripwire, 0, PERL_MAGIC_ext, &not_defined_vtbl, 0, 0);
+		SvPV_set(tripwire, (char *)value_for_notfound->name);
+		if(value_for_notfound->namelen >= 0) {
+		    SvCUR_set(tripwire, value_for_notfound->namelen);
+	    	} else {
+		    SvCUR_set(tripwire, -value_for_notfound->namelen);
+		    SvUTF8_on(tripwire);
+		}
+		SvPOKp_on(tripwire);
+		SvREADONLY_on(tripwire);
+		assert(SvLEN(tripwire) == 0);
+
+		$add_symbol_subname($athx symbol_table, value_for_notfound->name,
+				    value_for_notfound->namelen, tripwire);
+EXPLODE
+
+		/* Need to add prototypes, else parsing will vary by platform.  */
+		HE *he = (HE*) hv_common_key_len(symbol_table,
+						 value_for_notfound->name,
+						 value_for_notfound->namelen,
+						 HV_FETCH_LVALUE, NULL, 0);
+		SV *sv;
+#ifndef SYMBIAN
+		HEK *hek;
+#endif
+		if (!he) {
+		    croak("Couldn't add key '%s' to %%$package_sprintf_safe\::",
+			  value_for_notfound->name);
+		}
+		sv = HeVAL(he);
+		if (!SvOK(sv) && SvTYPE(sv) != SVt_PVGV) {
+		    /* Nothing was here before, so mark a prototype of ""  */
+		    sv_setpvn(sv, "", 0);
+		} else if (SvPOK(sv) && SvCUR(sv) == 0) {
+		    /* There is already a prototype of "" - do nothing  */
+		} else {
+		    /* Someone has been here before us - have to make a real
+		       typeglob.  */
+		    /* It turns out to be incredibly hard to deal with all the
+		       corner cases of sub foo (); and reporting errors correctly,
+		       so lets cheat a bit.  Start with a constant subroutine  */
+		    CV *cv = newCONSTSUB(symbol_table,
+					 ${cast_CONSTSUB}value_for_notfound->name,
+					 &PL_sv_yes);
+		    /* and then turn it into a non constant declaration only.  */
+		    SvREFCNT_dec(CvXSUBANY(cv).any_ptr);
+		    CvCONST_off(cv);
+		    CvXSUB(cv) = NULL;
+		    CvXSUBANY(cv).any_ptr = NULL;
+		}
+#ifndef SYMBIAN
+		hek = HeKEY_hek(he);
+		if (!hv_common(${c_subname}_missing, NULL, HEK_KEY(hek),
+ 			       HEK_LEN(hek), HEK_FLAGS(hek), HV_FETCH_ISSTORE,
+			       &PL_sv_yes, HEK_HASH(hek)))
+		    croak("Couldn't add key '%s' to missing_hash",
+			  value_for_notfound->name);
+#endif
+DONT
+
+    print $xs_fh "		av_push(push, newSVhek(hek));\n"
+	if $push;
+
+    print $xs_fh <<"EOBOOT";
+	    } while ((++value_for_notfound)->name);
+	}
+EOBOOT
+
+    foreach my $item (@$trouble) {
+        my ($name, $namelen, $value, $macro)
+	    = $self->name_len_value_macro($item);
+        my $ifdef = $self->macro_to_ifdef($macro);
+        my $type = $item->{type};
+	my $type_to_value = $self->type_to_C_value($type);
+
+        print $xs_fh $ifdef;
+	if ($item->{invert_macro}) {
+	    print $xs_fh
+		 "        /* This is the default value: */\n" if $type;
+	    print $xs_fh "#else\n";
+	}
+	my $generator = $type_to_sv{$type};
+	die "Can't find generator code for type $type"
+	    unless defined $generator;
+
+	print $xs_fh "        {\n";
+	# We need to use a temporary value because some really troublesome
+	# items use C pre processor directives in their values, and in turn
+	# these don't fit nicely in the macro-ised generator functions
+	my $counter = 0;
+	printf $xs_fh "            %s temp%d;\n", $_, $counter++
+	    foreach @{$type_temporary{$type}};
+
+	print $xs_fh "            $item->{pre}\n" if $item->{pre};
+
+	# And because the code in pre might be both declarations and
+	# statements, we can't declare and assign to the temporaries in one.
+	$counter = 0;
+	printf $xs_fh "            temp%d = %s;\n", $counter++, $_
+	    foreach &$type_to_value($value);
+
+	my @tempvarnames = map {sprintf 'temp%d', $_} 0 .. $counter - 1;
+	printf $xs_fh <<"EOBOOT", $name, &$generator(@tempvarnames);
+	    ${c_subname}_add_symbol($athx symbol_table, "%s",
+				    $namelen, %s);
+EOBOOT
+	print $xs_fh "        $item->{post}\n" if $item->{post};
+	print $xs_fh "        }\n";
+
+        print $xs_fh $self->macro_to_endif($macro);
+    }
+
+    if ($] >= 5.009) {
+	print $xs_fh <<EOBOOT;
+    /* As we've been creating subroutines, we better invalidate any cached
+       methods  */
+    mro_method_changed_in(symbol_table);
+  }
+EOBOOT
+    } else {
+	print $xs_fh <<EOBOOT;
+    /* As we've been creating subroutines, we better invalidate any cached
+       methods  */
+    ++PL_sub_generation;
+  }
+EOBOOT
+    }
+
+    return if !defined $xs_subname;
+
+    if ($croak_on_error || $autoload) {
+        print $xs_fh $croak_on_error ? <<"EOC" : <<'EOA';
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PREINIT:
+	const PERL_CONTEXT *cx = caller_cx(0, NULL);
+	/* cx is NULL if we've been called from the top level. PL_curcop isn't
+	   ideal, but it's much cheaper than other ways of not going SEGV.  */
+	const COP *cop = cx ? cx->blk_oldcop : PL_curcop;
+EOC
+
+void
+AUTOLOAD()
+    PROTOTYPE: DISABLE
+    PREINIT:
+	SV *sv = newSVpvn_flags(SvPVX(cv), SvCUR(cv), SVs_TEMP | SvUTF8(cv));
+	const COP *cop = PL_curcop;
+EOA
+        print $xs_fh <<"EOC";
+    PPCODE:
+#ifndef SYMBIAN
+	/* It's not obvious how to calculate this at C pre-processor time.
+	   However, any compiler optimiser worth its salt should be able to
+	   remove the dead code, and hopefully the now-obviously-unused static
+	   function too.  */
+	HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? get_missing_hash(aTHX) : NULL;
+	if ((C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) {
+	    sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used at %" COP_FILE_F " line %" UVuf "\\n", 
+			  sv, COP_FILE(cop), (UV)CopLINE(cop));
+	} else
+#endif
+	{
+	    sv = newSVpvf("%" SVf
+                          " is not a valid $package_sprintf_safe macro at %"
+			  COP_FILE_F " line %" UVuf "\\n",
+			  sv, COP_FILE(cop), (UV)CopLINE(cop));
+	}
+	croak_sv(sv_2mortal(sv));
+EOC
+    } else {
+        print $xs_fh $explosives ? <<"EXPLODE" : <<"DONT";
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PPCODE:
+	sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used", sv);
+        PUSHs(sv_2mortal(sv));
+EXPLODE
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PPCODE:
+#ifndef SYMBIAN
+	/* It's not obvious how to calculate this at C pre-processor time.
+	   However, any compiler optimiser worth its salt should be able to
+	   remove the dead code, and hopefully the now-obviously-unused static
+	   function too.  */
+	HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? get_missing_hash(aTHX) : NULL;
+	if ((C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) {
+	    sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used", sv);
+	} else
+#endif
+	{
+	    sv = newSVpvf("%" SVf " is not a valid $package_sprintf_safe macro",
+			  sv);
+	}
+	PUSHs(sv_2mortal(sv));
+DONT
+    }
+}
+
+1;
+package ExtUtils::Constant::Base;
+
+use strict;
+use vars qw($VERSION);
+use Carp;
+use Text::Wrap;
+use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
+$VERSION = '0.06';
+
+use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
+
+
+
+sub valid_type {
+  # Default to assuming that you don't need different types of return data.
+  1;
+}
+sub default_type {
+  '';
+}
+
+
+sub header {
+  ''
+}
+
+# This might actually be a return statement. Note that you are responsible
+# for any space you might need before your value, as it lets to perform
+# "tricks" such as "return KEY_" and have strings appended.
+sub assignment_clause_for_type;
+# In which case this might be an empty string
+sub return_statement_for_type {undef};
+sub return_statement_for_notdef;
+sub return_statement_for_notfound;
+
+# "#if 1" is true to a C pre-processor
+sub macro_from_name {
+  1;
+}
+
+sub macro_from_item {
+  1;
+}
+
+sub macro_to_ifdef {
+    my ($self, $macro) = @_;
+    if (ref $macro) {
+	return $macro->[0];
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return $macro ? "#ifdef $macro\n" : "#if 0\n";
+    }
+    return "";
+}
+
+sub macro_to_ifndef {
+    my ($self, $macro) = @_;
+    if (ref $macro) {
+	# Can't invert these stylishly, so "bodge it"
+	return "$macro->[0]#else\n";
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return $macro ? "#ifndef $macro\n" : "#if 1\n";
+    }
+    croak "Can't generate an ifndef for unconditional code";
+}
+
+sub macro_to_endif {
+    my ($self, $macro) = @_;
+
+    if (ref $macro) {
+	return $macro->[1];
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return "#endif\n";
+    }
+    return "";
+}
+
+sub name_param {
+  'name';
+}
+
+# This is possibly buggy, in that it's not mandatory (below, in the main
+# C_constant parameters, but is expected to exist here, if it's needed)
+# Buggy because if you're definitely pure 8 bit only, and will never be
+# presented with your constants in utf8, the default form of C_constant can't
+# be told not to do the utf8 version.
+
+sub is_utf8_param {
+  'utf8';
+}
+
+sub memEQ {
+  "!memcmp";
+}
+
+
+sub memEQ_clause {
+#    if (memEQ(name, "thingy", 6)) {
+  # Which could actually be a character comparison or even ""
+  my ($self, $args) = @_;
+  my ($name, $checked_at, $indent) = @{$args}{qw(name checked_at indent)};
+  $indent = ' ' x ($indent || 4);
+  my $front_chop;
+  if (ref $checked_at) {
+    # regexp won't work on 5.6.1 without use utf8; in turn that won't work
+    # on 5.005_03.
+    substr ($name, 0, length $$checked_at,) = '';
+    $front_chop = C_stringify ($$checked_at);
+    undef $checked_at;
+  }
+  my $len = length $name;
+
+  if ($len < 2) {
+    return $indent . "{\n"
+	if (defined $checked_at and $checked_at == 0) or $len == 0;
+    # We didn't switch, drop through to the code for the 2 character string
+    $checked_at = 1;
+  }
+
+  my $name_param = $self->name_param;
+
+  if ($len < 3 and defined $checked_at) {
+    my $check;
+    if ($checked_at == 1) {
+      $check = 0;
+    } elsif ($checked_at == 0) {
+      $check = 1;
+    }
+    if (defined $check) {
+      my $char = C_stringify (substr $name, $check, 1);
+      # Placate 5.005 with a break in the string. I can't see a good way of
+      # getting it to not take [ as introducing an array lookup, even with
+      # ${name_param}[$check]
+      return $indent . "if ($name_param" . "[$check] == '$char') {\n";
+    }
+  }
+  if (($len == 2 and !defined $checked_at)
+     or ($len == 3 and defined ($checked_at) and $checked_at == 2)) {
+    my $char1 = C_stringify (substr $name, 0, 1);
+    my $char2 = C_stringify (substr $name, 1, 1);
+    return $indent .
+      "if ($name_param" . "[0] == '$char1' && $name_param" . "[1] == '$char2') {\n";
+  }
+  if (($len == 3 and defined ($checked_at) and $checked_at == 1)) {
+    my $char1 = C_stringify (substr $name, 0, 1);
+    my $char2 = C_stringify (substr $name, 2, 1);
+    return $indent .
+      "if ($name_param" . "[0] == '$char1' && $name_param" . "[2] == '$char2') {\n";
+  }
+
+  my $pointer = '^';
+  my $have_checked_last = defined ($checked_at) && $len == $checked_at + 1;
+  if ($have_checked_last) {
+    # Checked at the last character, so no need to memEQ it.
+    $pointer = C_stringify (chop $name);
+    $len--;
+  }
+
+  $name = C_stringify ($name);
+  my $memEQ = $self->memEQ();
+  my $body = $indent . "if ($memEQ($name_param, \"$name\", $len)) {\n";
+  # Put a little ^ under the letter we checked at
+  # Screws up for non printable and non-7 bit stuff, but that's too hard to
+  # get right.
+  if (defined $checked_at) {
+    $body .= $indent . "/*      " . (' ' x length $memEQ)
+      . (' ' x length $name_param)
+      . (' ' x $checked_at) . $pointer
+      . (' ' x ($len - $checked_at + length $len)) . "    */\n";
+  } elsif (defined $front_chop) {
+    $body .= $indent . "/*                $front_chop"
+      . (' ' x ($len + 1 + length $len)) . "    */\n";
+  }
+  return $body;
+}
+
+
+sub dump_names {
+  my ($self, $args, @items) = @_;
+  my ($default_type, $what, $indent, $declare_types)
+    = @{$args}{qw(default_type what indent declare_types)};
+  $indent = ' ' x ($indent || 0);
+
+  my $result;
+  my (@simple, @complex, %used_types);
+  foreach (@items) {
+    my $type;
+    if (ref $_) {
+      $type = $_->{type} || $default_type;
+      if ($_->{utf8}) {
+        # For simplicity always skip the bytes case, and reconstitute this entry
+        # from its utf8 twin.
+        next if $_->{utf8} eq 'no';
+        # Copy the hashref, as we don't want to mess with the caller's hashref.
+        $_ = {%$_};
+        unless (is_perl56) {
+          utf8::decode ($_->{name});
+        } else {
+          $_->{name} = pack 'U*', unpack 'U0U*', $_->{name};
+        }
+        delete $_->{utf8};
+      }
+    } else {
+      $_ = {name=>$_};
+      $type = $default_type;
+    }
+    $used_types{$type}++;
+    if ($type eq $default_type
+        # grr 5.6.1
+        and length $_->{name}
+        and length $_->{name} == ($_->{name} =~ tr/A-Za-z0-9_//)
+        and !defined ($_->{macro}) and !defined ($_->{value})
+        and !defined ($_->{default}) and !defined ($_->{pre})
+        and !defined ($_->{post}) and !defined ($_->{def_pre})
+        and !defined ($_->{def_post}) and !defined ($_->{weight})) {
+      # It's the default type, and the name consists only of A-Za-z0-9_
+      push @simple, $_->{name};
+    } else {
+      push @complex, $_;
+    }
+  }
+
+  if (!defined $declare_types) {
+    # Do they pass in any types we weren't already using?
+    foreach (keys %$what) {
+      next if $used_types{$_};
+      $declare_types++; # Found one in $what that wasn't used.
+      last; # And one is enough to terminate this loop
+    }
+  }
+  if ($declare_types) {
+    $result = $indent . 'my $types = {map {($_, 1)} qw('
+      . join (" ", sort keys %$what) . ")};\n";
+  }
+  local $Text::Wrap::huge = 'overflow';
+  local $Text::Wrap::columns = 80;
+  $result .= wrap ($indent . "my \@names = (qw(",
+		   $indent . "               ", join (" ", sort @simple) . ")");
+  if (@complex) {
+    foreach my $item (sort {$a->{name} cmp $b->{name}} @complex) {
+      my $name = perl_stringify $item->{name};
+      my $line = ",\n$indent            {name=>\"$name\"";
+      $line .= ", type=>\"$item->{type}\"" if defined $item->{type};
+      foreach my $thing (qw (macro value default pre post def_pre def_post)) {
+        my $value = $item->{$thing};
+        if (defined $value) {
+          if (ref $value) {
+            $line .= ", $thing=>[\""
+              . join ('", "', map {perl_stringify $_} @$value) . '"]';
+          } else {
+            $line .= ", $thing=>\"" . perl_stringify($value) . "\"";
+          }
+        }
+      }
+      $line .= "}";
+      # Ensure that the enclosing C comment doesn't end
+      # by turning */  into *" . "/
+      $line =~ s!\*\/!\*" . "/!gs;
+      # gcc -Wall doesn't like finding /* inside a comment
+      $line =~ s!\/\*!/" . "\*!gs;
+      $result .= $line;
+    }
+  }
+  $result .= ");\n";
+
+  $result;
+}
+
+# Hmm. value undef to do NOTDEF? value () to do NOTFOUND?
+
+sub assign {
+  my $self = shift;
+  my $args = shift;
+  my ($indent, $type, $pre, $post, $item)
+      = @{$args}{qw(indent type pre post item)};
+  $post ||= '';
+  my $clause;
+  my $close;
+  if ($pre) {
+    chomp $pre;
+    $close = "$indent}\n";
+    $clause = $indent . "{\n";
+    $indent .= "  ";
+    $clause .= "$indent$pre";
+    $clause .= ";" unless $pre =~ /;$/;
+    $clause .= "\n";
+  }
+  confess "undef \$type" unless defined $type;
+  confess "Can't generate code for type $type"
+    unless $self->valid_type($type);
+
+  $clause .= join '', map {"$indent$_\n"}
+    $self->assignment_clause_for_type({type=>$type,item=>$item}, @_);
+  chomp $post;
+  if (length $post) {
+    $clause .= "$post";
+    $clause .= ";" unless $post =~ /;$/;
+    $clause .= "\n";
+  }
+  my $return = $self->return_statement_for_type($type);
+  $clause .= "$indent$return\n" if defined $return;
+  $clause .= $close if $close;
+  return $clause;
+}
+
+
+sub return_clause {
+
+##ifdef thingy
+#      *iv_return = thingy;
+#      return PERL_constant_ISIV;
+##else
+#      return PERL_constant_NOTDEF;
+##endif
+  my ($self, $args, $item) = @_;
+  my $indent = $args->{indent};
+
+  my ($name, $value, $default, $pre, $post, $def_pre, $def_post, $type)
+    = @$item{qw (name value default pre post def_pre def_post type)};
+  $value = $name unless defined $value;
+  my $macro = $self->macro_from_item($item);
+  $indent = ' ' x ($indent || 6);
+  unless (defined $type) {
+    # use Data::Dumper; print STDERR Dumper ($item);
+    confess "undef \$type";
+  }
+
+  ##ifdef thingy
+  my $clause = $self->macro_to_ifdef($macro);
+
+  #      *iv_return = thingy;
+  #      return PERL_constant_ISIV;
+  $clause
+    .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre, post=>$post,
+		       item=>$item}, ref $value ? @$value : $value);
+
+  if (defined $macro && $macro ne "" && $macro ne "1") {
+    ##else
+    $clause .= "#else\n";
+
+    #      return PERL_constant_NOTDEF;
+    if (!defined $default) {
+      my $notdef = $self->return_statement_for_notdef();
+      $clause .= "$indent$notdef\n" if defined $notdef;
+    } else {
+      my @default = ref $default ? @$default : $default;
+      $type = shift @default;
+      $clause .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre,
+				 post=>$post, item=>$item}, @default);
+    }
+  }
+  ##endif
+  $clause .= $self->macro_to_endif($macro);
+
+  return $clause;
+}
+
+sub match_clause {
+  # $offset defined if we have checked an offset.
+  my ($self, $args, $item) = @_;
+  my ($offset, $indent) = @{$args}{qw(checked_at indent)};
+  $indent = ' ' x ($indent || 4);
+  my $body = '';
+  my ($no, $yes, $either, $name, $inner_indent);
+  if (ref $item eq 'ARRAY') {
+    ($yes, $no) = @$item;
+    $either = $yes || $no;
+    confess "$item is $either expecting hashref in [0] || [1]"
+      unless ref $either eq 'HASH';
+    $name = $either->{name};
+  } else {
+    confess "$item->{name} has utf8 flag '$item->{utf8}', should be false"
+      if $item->{utf8};
+    $name = $item->{name};
+    $inner_indent = $indent;
+  }
+
+  $body .= $self->memEQ_clause ({name => $name, checked_at => $offset,
+				 indent => length $indent});
+  # If we've been presented with an arrayref for $item, then the user string
+  # contains in the range 128-255, and we need to check whether it was utf8
+  # (or not).
+  # In the worst case we have two named constants, where one's name happens
+  # encoded in UTF8 happens to be the same byte sequence as the second's
+  # encoded in (say) ISO-8859-1.
+  # In this case, $yes and $no both have item hashrefs.
+  if ($yes) {
+    $body .= $indent . "  if (" . $self->is_utf8_param . ") {\n";
+  } elsif ($no) {
+    $body .= $indent . "  if (!" . $self->is_utf8_param . ") {\n";
+  }
+  if ($either) {
+    $body .= $self->return_clause ({indent=>4 + length $indent}, $either);
+    if ($yes and $no) {
+      $body .= $indent . "  } else {\n";
+      $body .= $self->return_clause ({indent=>4 + length $indent}, $no);
+    }
+    $body .= $indent . "  }\n";
+  } else {
+    $body .= $self->return_clause ({indent=>2 + length $indent}, $item);
+  }
+  $body .= $indent . "}\n";
+}
+
+
+
+sub switch_clause {
+  my ($self, $args, $namelen, $items, @items) = @_;
+  my ($indent, $comment) = @{$args}{qw(indent comment)};
+  $indent = ' ' x ($indent || 2);
+
+  local $Text::Wrap::huge = 'overflow';
+  local $Text::Wrap::columns = 80;
+
+  my @names = sort map {$_->{name}} @items;
+  my $leader = $indent . '/* ';
+  my $follower = ' ' x length $leader;
+  my $body = $indent . "/* Names all of length $namelen.  */\n";
+  if (defined $comment) {
+    $body = wrap ($leader, $follower, $comment) . "\n";
+    $leader = $follower;
+  }
+  my @safe_names = @names;
+  foreach (@safe_names) {
+    confess sprintf "Name '$_' is length %d, not $namelen", length
+      unless length == $namelen;
+    # Argh. 5.6.1
+    # next unless tr/A-Za-z0-9_//c;
+    next if tr/A-Za-z0-9_// == length;
+    $_ = '"' . perl_stringify ($_) . '"';
+    # Ensure that the enclosing C comment doesn't end
+    # by turning */  into *" . "/
+    s!\*\/!\*"."/!gs;
+    # gcc -Wall doesn't like finding /* inside a comment
+    s!\/\*!/"."\*!gs;
+  }
+  $body .= wrap ($leader, $follower, join (" ", @safe_names) . " */") . "\n";
+  # Figure out what to switch on.
+  # (RMS, Spread of jump table, Position, Hashref)
+  my @best = (1e38, ~0);
+  # Prefer the last character over the others. (As it lets us shorten the
+  # memEQ clause at no cost).
+  foreach my $i ($namelen - 1, 0 .. ($namelen - 2)) {
+    my ($min, $max) = (~0, 0);
+    my %spread;
+    if (is_perl56) {
+      # Need proper Unicode preserving hash keys for bytes in range 128-255
+      # here too, for some reason. grr 5.6.1 yet again.
+      tie %spread, 'ExtUtils::Constant::Aaargh56Hash';
+    }
+    foreach (@names) {
+      my $char = substr $_, $i, 1;
+      my $ord = ord $char;
+      confess "char $ord is out of range" if $ord > 255;
+      $max = $ord if $ord > $max;
+      $min = $ord if $ord < $min;
+      push @{$spread{$char}}, $_;
+      # warn "$_ $char";
+    }
+    # I'm going to pick the character to split on that minimises the root
+    # mean square of the number of names in each case. Normally this should
+    # be the one with the most keys, but it may pick a 7 where the 8 has
+    # one long linear search. I'm not sure if RMS or just sum of squares is
+    # actually better.
+    # $max and $min are for the tie-breaker if the root mean squares match.
+    # Assuming that the compiler may be building a jump table for the
+    # switch() then try to minimise the size of that jump table.
+    # Finally use < not <= so that if it still ties the earliest part of
+    # the string wins. Because if that passes but the memEQ fails, it may
+    # only need the start of the string to bin the choice.
+    # I think. But I'm micro-optimising. :-)
+    # OK. Trump that. Now favour the last character of the string, before the
+    # rest.
+    my $ss;
+    $ss += @$_ * @$_ foreach values %spread;
+    my $rms = sqrt ($ss / keys %spread);
+    if ($rms < $best[0] || ($rms == $best[0] && ($max - $min) < $best[1])) {
+      @best = ($rms, $max - $min, $i, \%spread);
+    }
+  }
+  confess "Internal error. Failed to pick a switch point for @names"
+    unless defined $best[2];
+  # use Data::Dumper; print Dumper (@best);
+  my ($offset, $best) = @best[2,3];
+  $body .= $indent . "/* Offset $offset gives the best switch position.  */\n";
+
+  my $do_front_chop = $offset == 0 && $namelen > 2;
+  if ($do_front_chop) {
+    $body .= $indent . "switch (*" . $self->name_param() . "++) {\n";
+  } else {
+    $body .= $indent . "switch (" . $self->name_param() . "[$offset]) {\n";
+  }
+  foreach my $char (sort keys %$best) {
+    confess sprintf "'$char' is %d bytes long, not 1", length $char
+      if length ($char) != 1;
+    confess sprintf "char %#X is out of range", ord $char if ord ($char) > 255;
+    $body .= $indent . "case '" . C_stringify ($char) . "':\n";
+    foreach my $thisone (sort {
+	# Deal with the case of an item actually being an array ref to 1 or 2
+	# hashrefs. Don't assign to $a or $b, as they're aliases to the
+        # original
+	my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;
+	my $r = ref $b eq 'ARRAY' ? ($b->[0] || $->[1]) : $b;
+	# Sort by weight first
+	($r->{weight} || 0) <=> ($l->{weight} || 0)
+	    # Sort equal weights by name
+	    or $l->{name} cmp $r->{name}}
+			 # If this looks evil, maybe it is.  $items is a
+			 # hashref, and we're doing a hash slice on it
+			 @{$items}{@{$best->{$char}}}) {
+      # warn "You are here";
+      if ($do_front_chop) {
+        $body .= $self->match_clause ({indent => 2 + length $indent,
+				       checked_at => \$char}, $thisone);
+      } else {
+        $body .= $self->match_clause ({indent => 2 + length $indent,
+				       checked_at => $offset}, $thisone);
+      }
+    }
+    $body .= $indent . "  break;\n";
+  }
+  $body .= $indent . "}\n";
+  return $body;
+}
+
+sub C_constant_return_type {
+  "static int";
+}
+
+sub C_constant_prefix_param {
+  '';
+}
+
+sub C_constant_prefix_param_defintion {
+  '';
+}
+
+sub name_param_definition {
+  "const char *" . $_[0]->name_param;
+}
+
+sub namelen_param {
+  'len';
+}
+
+sub namelen_param_definition {
+  'size_t ' . $_[0]->namelen_param;
+}
+
+sub C_constant_other_params {
+  '';
+}
+
+sub C_constant_other_params_defintion {
+  '';
+}
+
+
+sub params {
+  '';
+}
+
+
+
+sub dogfood {
+  ''
+}
+
+
+sub normalise_items
+{
+    my $self = shift;
+    my $args = shift;
+    my $default_type = shift;
+    my $what = shift;
+    my $items = shift;
+    my @new_items;
+    foreach my $orig (@_) {
+	my ($name, $item);
+      if (ref $orig) {
+        # Make a copy which is a normalised version of the ref passed in.
+        $name = $orig->{name};
+        my ($type, $macro, $value) = @$orig{qw (type macro value)};
+        $type ||= $default_type;
+        $what->{$type} = 1;
+        $item = {name=>$name, type=>$type};
+
+        undef $macro if defined $macro and $macro eq $name;
+        $item->{macro} = $macro if defined $macro;
+        undef $value if defined $value and $value eq $name;
+        $item->{value} = $value if defined $value;
+        foreach my $key (qw(default pre post def_pre def_post weight
+			    not_constant)) {
+          my $value = $orig->{$key};
+          $item->{$key} = $value if defined $value;
+          # warn "$key $value";
+        }
+      } else {
+        $name = $orig;
+        $item = {name=>$name, type=>$default_type};
+        $what->{$default_type} = 1;
+      }
+      warn +(ref ($self) || $self)
+	. "doesn't know how to handle values of type $_ used in macro $name"
+	  unless $self->valid_type ($item->{type});
+      # tr///c is broken on 5.6.1 for utf8, so my original tr/\0-\177//c
+      # doesn't work. Upgrade to 5.8
+      # if ($name !~ tr/\0-\177//c || $] < 5.005_50) {
+      if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50
+	 || $args->{disable_utf8_duplication}) {
+        # No characters outside 7 bit ASCII.
+        if (exists $items->{$name}) {
+          die "Multiple definitions for macro $name";
+        }
+        $items->{$name} = $item;
+      } else {
+        # No characters outside 8 bit. This is hardest.
+        if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') {
+          confess "Unexpected ASCII definition for macro $name";
+        }
+        # Again, 5.6.1 tr broken, so s/5\.6.*/5\.8\.0/;
+        # if ($name !~ tr/\0-\377//c) {
+        if ($name =~ tr/\0-\377// == length $name) {
+#          if ($] < 5.007) {
+#            $name = pack "C*", unpack "U*", $name;
+#          }
+          $item->{utf8} = 'no';
+          $items->{$name}[1] = $item;
+          push @new_items, $item;
+          # Copy item, to create the utf8 variant.
+          $item = {%$item};
+        }
+        # Encode the name as utf8 bytes.
+        unless (is_perl56) {
+          utf8::encode($name);
+        } else {
+#          warn "Was >$name< " . length ${name};
+          $name = pack 'C*', unpack 'C*', $name . pack 'U*';
+#          warn "Now '${name}' " . length ${name};
+        }
+        if ($items->{$name}[0]) {
+          die "Multiple definitions for macro $name";
+        }
+        $item->{utf8} = 'yes';
+        $item->{name} = $name;
+        $items->{$name}[0] = $item;
+        # We have need for the utf8 flag.
+        $what->{''} = 1;
+      }
+      push @new_items, $item;
+    }
+    @new_items;
+}
+
+
+# The parameter now BREAKOUT was previously documented as:
+#
+# I<NAMELEN> if defined signals that all the I<name>s of the I<ITEM>s are of
+# this length, and that the constant name passed in by perl is checked and
+# also of this length. It is used during recursion, and should be C<undef>
+# unless the caller has checked all the lengths during code generation, and
+# the generated subroutine is only to be called with a name of this length.
+#
+# As you can see it now performs this function during recursion by being a
+# scalar reference.
+
+sub C_constant {
+  my ($self, $args, @items) = @_;
+  my ($package, $subname, $default_type, $what, $indent, $breakout) =
+    @{$args}{qw(package subname default_type types indent breakout)};
+  $package ||= 'Foo';
+  $subname ||= 'constant';
+  # I'm not using this. But a hashref could be used for full formatting without
+  # breaking this API
+  # $indent ||= 0;
+
+  my ($namelen, $items);
+  if (ref $breakout) {
+    # We are called recursively. We trust @items to be normalised, $what to
+    # be a hashref, and pinch %$items from our parent to save recalculation.
+    ($namelen, $items) = @$breakout;
+  } else {
+    $items = {};
+    if (is_perl56) {
+      # Need proper Unicode preserving hash keys.
+      require ExtUtils::Constant::Aaargh56Hash;
+      tie %$items, 'ExtUtils::Constant::Aaargh56Hash';
+    }
+    $breakout ||= 3;
+    $default_type ||= $self->default_type();
+    if (!ref $what) {
+      # Convert line of the form IV,UV,NV to hash
+      $what = {map {$_ => 1} split /,\s*/, ($what || '')};
+      # Figure out what types we're dealing with, and assign all unknowns to the
+      # default type
+    }
+    @items = $self->normalise_items ({}, $default_type, $what, $items, @items);
+    # use Data::Dumper; print Dumper @items;
+  }
+  my $params = $self->params ($what);
+
+  # Probably "static int"
+  my ($body, @subs);
+  $body = $self->C_constant_return_type($params) . "\n$subname ("
+    # Eg "pTHX_ "
+    . $self->C_constant_prefix_param_defintion($params)
+      # Probably "const char *name"
+      . $self->name_param_definition($params);
+  # Something like ", STRLEN len"
+  $body .= ", " . $self->namelen_param_definition($params)
+    unless defined $namelen;
+  $body .= $self->C_constant_other_params_defintion($params);
+  $body .= ") {\n";
+
+  if (defined $namelen) {
+    # We are a child subroutine. Print the simple description
+    my $comment = 'When generated this function returned values for the list'
+      . ' of names given here.  However, subsequent manual editing may have'
+        . ' added or removed some.';
+    $body .= $self->switch_clause ({indent=>2, comment=>$comment},
+				   $namelen, $items, @items);
+  } else {
+    # We are the top level.
+    $body .= "  /* Initially switch on the length of the name.  */\n";
+    $body .= $self->dogfood ({package => $package, subname => $subname,
+			      default_type => $default_type, what => $what,
+			      indent => $indent, breakout => $breakout},
+			     @items);
+    $body .= '  switch ('.$self->namelen_param().") {\n";
+    # Need to group names of the same length
+    my @by_length;
+    foreach (@items) {
+      push @{$by_length[length $_->{name}]}, $_;
+    }
+    foreach my $i (0 .. $#by_length) {
+      next unless $by_length[$i];	# None of this length
+      $body .= "  case $i:\n";
+      if (@{$by_length[$i]} == 1) {
+        my $only_thing = $by_length[$i]->[0];
+        if ($only_thing->{utf8}) {
+          if ($only_thing->{utf8} eq 'yes') {
+            # With utf8 on flag item is passed in element 0
+            $body .= $self->match_clause (undef, [$only_thing]);
+          } else {
+            # With utf8 off flag item is passed in element 1
+            $body .= $self->match_clause (undef, [undef, $only_thing]);
+          }
+        } else {
+          $body .= $self->match_clause (undef, $only_thing);
+        }
+      } elsif (@{$by_length[$i]} < $breakout) {
+        $body .= $self->switch_clause ({indent=>4},
+				       $i, $items, @{$by_length[$i]});
+      } else {
+        # Only use the minimal set of parameters actually needed by the types
+        # of the names of this length.
+        my $what = {};
+        foreach (@{$by_length[$i]}) {
+          $what->{$_->{type}} = 1;
+          $what->{''} = 1 if $_->{utf8};
+        }
+        $params = $self->params ($what);
+        push @subs, $self->C_constant ({package=>$package,
+					subname=>"${subname}_$i",
+					default_type => $default_type,
+					types => $what, indent => $indent,
+					breakout => [$i, $items]},
+				       @{$by_length[$i]});
+        $body .= "    return ${subname}_$i ("
+	  # Eg "aTHX_ "
+	  . $self->C_constant_prefix_param($params)
+	    # Probably "name"
+	    . $self->name_param($params);
+	$body .= $self->C_constant_other_params($params);
+        $body .= ");\n";
+      }
+      $body .= "    break;\n";
+    }
+    $body .= "  }\n";
+  }
+  my $notfound = $self->return_statement_for_notfound();
+  $body .= "  $notfound\n" if $notfound;
+  $body .= "}\n";
+  return (@subs, $body);
+}
+
+1;
+__END__
+
+package ExtUtils::Constant::XS;
+
+use strict;
+use vars qw($VERSION %XS_Constant %XS_TypeSet @ISA @EXPORT_OK $is_perl56);
+use Carp;
+use ExtUtils::Constant::Utils 'perl_stringify';
+require ExtUtils::Constant::Base;
+
+
+@ISA = qw(ExtUtils::Constant::Base Exporter);
+@EXPORT_OK = qw(%XS_Constant %XS_TypeSet);
+
+$VERSION = '0.03';
+
+$is_perl56 = ($] < 5.007 && $] > 5.005_50);
+
+
+# '' is used as a flag to indicate non-ascii macro names, and hence the need
+# to pass in the utf8 on/off flag.
+%XS_Constant = (
+		''    => '',
+		IV    => 'PUSHi(iv)',
+		UV    => 'PUSHu((UV)iv)',
+		NV    => 'PUSHn(nv)',
+		PV    => 'PUSHp(pv, strlen(pv))',
+		PVN   => 'PUSHp(pv, iv)',
+		SV    => 'PUSHs(sv)',
+		YES   => 'PUSHs(&PL_sv_yes)',
+		NO    => 'PUSHs(&PL_sv_no)',
+		UNDEF => '',	# implicit undef
+);
+
+%XS_TypeSet = (
+		IV    => '*iv_return = ',
+		UV    => '*iv_return = (IV)',
+		NV    => '*nv_return = ',
+		PV    => '*pv_return = ',
+		PVN   => ['*pv_return = ', '*iv_return = (IV)'],
+		SV    => '*sv_return = ',
+		YES   => undef,
+		NO    => undef,
+		UNDEF => undef,
+);
+
+sub header {
+  my $start = 1;
+  my @lines;
+  push @lines, "#define PERL_constant_NOTFOUND\t$start\n"; $start++;
+  push @lines, "#define PERL_constant_NOTDEF\t$start\n"; $start++;
+  foreach (sort keys %XS_Constant) {
+    next if $_ eq '';
+    push @lines, "#define PERL_constant_IS$_\t$start\n"; $start++;
+  }
+  push @lines, << 'EOT';
+
+#ifndef NVTYPE
+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
+#endif
+#ifndef aTHX_
+#define aTHX_ /* 5.6 or later define this for threading support.  */
+#endif
+#ifndef pTHX_
+#define pTHX_ /* 5.6 or later define this for threading support.  */
+#endif
+EOT
+
+  return join '', @lines;
+}
+
+sub valid_type {
+  my ($self, $type) = @_;
+  return exists $XS_TypeSet{$type};
+}
+
+# This might actually be a return statement
+sub assignment_clause_for_type {
+  my $self = shift;
+  my $args = shift;
+  my $type = $args->{type};
+  my $typeset = $XS_TypeSet{$type};
+  if (ref $typeset) {
+    die "Type $type is aggregate, but only single value given"
+      if @_ == 1;
+    return map {"$typeset->[$_]$_[$_];"} 0 .. $#$typeset;
+  } elsif (defined $typeset) {
+    confess "Aggregate value given for type $type"
+      if @_ > 1;
+    return "$typeset$_[0];";
+  }
+  return ();
+}
+
+sub return_statement_for_type {
+  my ($self, $type) = @_;
+  # In the future may pass in an options hash
+  $type = $type->{type} if ref $type;
+  "return PERL_constant_IS$type;";
+}
+
+sub return_statement_for_notdef {
+  # my ($self) = @_;
+  "return PERL_constant_NOTDEF;";
+}
+
+sub return_statement_for_notfound {
+  # my ($self) = @_;
+  "return PERL_constant_NOTFOUND;";
+}
+
+sub default_type {
+  'IV';
+}
+
+sub macro_from_name {
+  my ($self, $item) = @_;
+  my $macro = $item->{name};
+  $macro = $item->{value} unless defined $macro;
+  $macro;
+}
+
+sub macro_from_item {
+  my ($self, $item) = @_;
+  my $macro = $item->{macro};
+  $macro = $self->macro_from_name($item) unless defined $macro;
+  $macro;
+}
+
+# Keep to the traditional perl source macro
+sub memEQ {
+  "memEQ";
+}
+
+sub params {
+  my ($self, $what) = @_;
+  foreach (sort keys %$what) {
+    warn "ExtUtils::Constant doesn't know how to handle values of type $_" unless defined $XS_Constant{$_};
+  }
+  my $params = {};
+  $params->{''} = 1 if $what->{''};
+  $params->{IV} = 1 if $what->{IV} || $what->{UV} || $what->{PVN};
+  $params->{NV} = 1 if $what->{NV};
+  $params->{PV} = 1 if $what->{PV} || $what->{PVN};
+  $params->{SV} = 1 if $what->{SV};
+  return $params;
+}
+
+
+sub C_constant_prefix_param {
+  "aTHX_ ";
+}
+
+sub C_constant_prefix_param_defintion {
+  "pTHX_ ";
+}
+
+sub namelen_param_definition {
+  'STRLEN ' . $_[0] -> namelen_param;
+}
+
+sub C_constant_other_params_defintion {
+  my ($self, $params) = @_;
+  my $body = '';
+  $body .= ", int utf8" if $params->{''};
+  $body .= ", IV *iv_return" if $params->{IV};
+  $body .= ", NV *nv_return" if $params->{NV};
+  $body .= ", const char **pv_return" if $params->{PV};
+  $body .= ", SV **sv_return" if $params->{SV};
+  $body;
+}
+
+sub C_constant_other_params {
+  my ($self, $params) = @_;
+  my $body = '';
+  $body .= ", utf8" if $params->{''};
+  $body .= ", iv_return" if $params->{IV};
+  $body .= ", nv_return" if $params->{NV};
+  $body .= ", pv_return" if $params->{PV};
+  $body .= ", sv_return" if $params->{SV};
+  $body;
+}
+
+sub dogfood {
+  my ($self, $args, @items) = @_;
+  my ($package, $subname, $default_type, $what, $indent, $breakout) =
+    @{$args}{qw(package subname default_type what indent breakout)};
+  my $result = <<"EOT";
+  /* When generated this function returned values for the list of names given
+     in this section of perl code.  Rather than manually editing these functions
+     to add or remove constants, which would result in this comment and section
+     of code becoming inaccurate, we recommend that you edit this section of
+     code, and use it to regenerate a new set of constant functions which you
+     then use to replace the originals.
+
+     Regenerate these constant functions by feeding this entire source file to
+     perl -x
+
+#!$^X -w
+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
+
+EOT
+  $result .= $self->dump_names ({default_type=>$default_type, what=>$what,
+				 indent=>0, declare_types=>1},
+				@items);
+  $result .= <<'EOT';
+
+print constant_types(), "\n"; # macro defs
+EOT
+  $package = perl_stringify($package);
+  $result .=
+    "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, ";
+  # The form of the indent parameter isn't defined. (Yet)
+  if (defined $indent) {
+    require Data::Dumper;
+    $Data::Dumper::Terse=1;
+    $Data::Dumper::Terse=1; # Not used once. :-)
+    chomp ($indent = Data::Dumper::Dumper ($indent));
+    $result .= $indent;
+  } else {
+    $result .= 'undef';
+  }
+  $result .= ", $breakout" . ', @names) ) {
+    print $_, "\n"; # C constant subs
+}
+print "\n#### XS Section:\n";
+print XS_constant ("' . $package . '", $types);
+__END__
+   */
+
+';
+
+  $result;
+}
+
+1;
+package ExtUtils::CBuilder::Base;
+use strict;
+use warnings;
+use File::Spec;
+use File::Basename;
+use Cwd ();
+use Config;
+use Text::ParseWords;
+use IPC::Cmd qw(can_run);
+use File::Temp qw(tempfile);
+
+our $VERSION = '0.280230'; # VERSION
+
+# More details about C/C++ compilers:
+# http://developers.sun.com/sunstudio/documentation/product/compiler.jsp
+# http://gcc.gnu.org/
+# http://publib.boulder.ibm.com/infocenter/comphelp/v101v121/index.jsp
+# http://msdn.microsoft.com/en-us/vstudio/default.aspx
+
+my %cc2cxx = (
+    # first line order is important to support wrappers like in pkgsrc
+    cc => [ 'c++', 'CC', 'aCC', 'cxx', ], # Sun Studio, HP ANSI C/C++ Compilers
+    gcc => [ 'g++' ], # GNU Compiler Collection
+    xlc => [ 'xlC' ], # IBM C/C++ Set, xlc without thread-safety
+    xlc_r => [ 'xlC_r' ], # IBM C/C++ Set, xlc with thread-safety
+    cl    => [ 'cl' ], # Microsoft Visual Studio
+);
+
+sub new {
+  my $class = shift;
+  my $self = bless {@_}, $class;
+
+  $self->{properties}{perl} = $class->find_perl_interpreter
+    or warn "Warning: Can't locate your perl binary";
+
+  while (my ($k,$v) = each %Config) {
+    $self->{config}{$k} = $v unless exists $self->{config}{$k};
+  }
+  $self->{config}{cc} = $ENV{CC} if defined $ENV{CC};
+  $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS})
+     if defined $ENV{CFLAGS};
+  $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX};
+  $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS};
+  $self->{config}{ld} = $ENV{LD} if defined $ENV{LD};
+  $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS})
+     if defined $ENV{LDFLAGS};
+
+  unless ( exists $self->{config}{cxx} ) {
+
+    my ($ccbase, $ccpath, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/);
+
+    ## If the path is just "cc", fileparse returns $ccpath as "./"
+    $ccpath = "" if $self->{config}{cc} =~ /^$ccbase$ccsfx$/;
+      
+    foreach my $cxx (@{$cc2cxx{$ccbase}}) {
+      my $cxx1 = File::Spec->catfile( $ccpath, $cxx . $ccsfx);
+
+      if( can_run( $cxx1 ) ) {
+        $self->{config}{cxx} = $cxx1;
+	last;
+      }
+      my $cxx2 = $cxx . $ccsfx;
+
+      if( can_run( $cxx2 ) ) {
+        $self->{config}{cxx} = $cxx2;
+	last;
+      }
+
+      if( can_run( $cxx ) ) {
+        $self->{config}{cxx} = $cxx;
+	last;
+      }
+    }
+    unless ( exists $self->{config}{cxx} ) {
+      $self->{config}{cxx} = $self->{config}{cc};
+      my $cflags = $self->{config}{ccflags};
+      $self->{config}{cxxflags} = '-x c++';
+      $self->{config}{cxxflags} .= " $cflags" if defined $cflags;
+    }
+  }
+
+  return $self;
+}
+
+sub find_perl_interpreter {
+  my $perl;
+  File::Spec->file_name_is_absolute($perl = $^X)
+    or -f ($perl = $Config::Config{perlpath})
+    or ($perl = $^X); # XXX how about using IPC::Cmd::can_run here?
+  return $perl;
+}
+
+sub add_to_cleanup {
+  my $self = shift;
+  foreach (@_) {
+    $self->{files_to_clean}{$_} = 1;
+  }
+}
+
+sub cleanup {
+  my $self = shift;
+  foreach my $file (keys %{$self->{files_to_clean}}) {
+    unlink $file;
+  }
+}
+
+sub get_config {
+    return %{ $_[0]->{config} };
+}
+
+sub object_file {
+  my ($self, $filename) = @_;
+
+  # File name, minus the suffix
+  (my $file_base = $filename) =~ s/\.[^.]+$//;
+  return "$file_base$self->{config}{obj_ext}";
+}
+
+sub arg_include_dirs {
+  my $self = shift;
+  return map {"-I$_"} @_;
+}
+
+sub arg_nolink { '-c' }
+
+sub arg_object_file {
+  my ($self, $file) = @_;
+  return ('-o', $file);
+}
+
+sub arg_share_object_file {
+  my ($self, $file) = @_;
+  return ($self->split_like_shell($self->{config}{lddlflags}), '-o', $file);
+}
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return ('-o', $file);
+}
+
+sub arg_defines {
+  my ($self, %args) = @_;
+  return map "-D$_=$args{$_}", sort keys %args;
+}
+
+sub compile {
+  my ($self, %args) = @_;
+  die "Missing 'source' argument to compile()" unless defined $args{source};
+
+  my $cf = $self->{config}; # For convenience
+
+  my $object_file = $args{object_file}
+    ? $args{object_file}
+    : $self->object_file($args{source});
+
+  my $include_dirs_ref =
+    (exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY")
+      ? [ $args{include_dirs} ]
+      : $args{include_dirs};
+  my @include_dirs = $self->arg_include_dirs(
+    @{ $include_dirs_ref || [] },
+    $self->perl_inc(),
+  );
+
+  my @defines = $self->arg_defines( %{$args{defines} || {}} );
+
+  my @extra_compiler_flags =
+    $self->split_like_shell($args{extra_compiler_flags});
+  my @cccdlflags = $self->split_like_shell($cf->{cccdlflags});
+  my @ccflags = $self->split_like_shell($args{'C++'} ? $cf->{cxxflags} : $cf->{ccflags});
+  my @optimize = $self->split_like_shell($cf->{optimize});
+  my @flags = (
+    @include_dirs,
+    @defines,
+    @cccdlflags,
+    @extra_compiler_flags,
+    $self->arg_nolink,
+    @ccflags,
+    @optimize,
+    $self->arg_object_file($object_file),
+  );
+  my @cc = $self->split_like_shell($args{'C++'} ? $cf->{cxx} : $cf->{cc});
+
+  $self->do_system(@cc, @flags, $args{source})
+    or die "error building $object_file from '$args{source}'";
+
+  return $object_file;
+}
+
+sub have_compiler {
+  my ($self, $is_cplusplus) = @_;
+  my $have_compiler_flag = $is_cplusplus ? "have_cxx" : "have_cc";
+  my $suffix = $is_cplusplus ? ".cc" : ".c";
+  return $self->{$have_compiler_flag} if defined $self->{$have_compiler_flag};
+
+  my $result;
+  my $attempts = 3;
+  # tmpdir has issues for some people so fall back to current dir
+
+  # don't clobber existing files (rare, but possible)
+  my ( $FH, $tmpfile ) = tempfile( "compilet-XXXXX", SUFFIX => $suffix );
+  binmode $FH;
+
+  if ( $is_cplusplus ) {
+    print $FH "class Bogus { public: int boot_compilet() { return 1; } };\n";
+  }
+  else {
+    print $FH "int boot_compilet() { return 1; }\n";
+  }
+  close $FH;
+
+  my ($obj_file, @lib_files);
+  eval {
+    local $^W = 0;
+    local $self->{quiet} = 1;
+    $obj_file = $self->compile('C++' => $is_cplusplus, source => $tmpfile);
+    @lib_files = $self->link(objects => $obj_file, module_name => 'compilet');
+  };
+  $result = $@ ? 0 : 1;
+
+  foreach (grep defined, $tmpfile, $obj_file, @lib_files) {
+    1 while unlink;
+  }
+
+  return $self->{$have_compiler_flag} = $result;
+}
+
+sub have_cplusplus {
+  push @_, 1;
+  goto &have_compiler;
+}
+
+sub lib_file {
+  my ($self, $dl_file, %args) = @_;
+  $dl_file =~ s/\.[^.]+$//;
+  $dl_file =~ tr/"//d;
+
+  if (defined $args{module_name} and length $args{module_name}) {
+    # Need to create with the same name as DynaLoader will load with.
+    require DynaLoader;
+    if (defined &DynaLoader::mod2fname) {
+      my $lib = DynaLoader::mod2fname([split /::/, $args{module_name}]);
+      my ($dev, $lib_dir, undef) = File::Spec->splitpath($dl_file);
+      $dl_file = File::Spec->catpath($dev, $lib_dir, $lib);
+    }
+  }
+
+  $dl_file .= ".$self->{config}{dlext}";
+
+  return $dl_file;
+}
+
+
+sub exe_file {
+  my ($self, $dl_file) = @_;
+  $dl_file =~ s/\.[^.]+$//;
+  $dl_file =~ tr/"//d;
+  return "$dl_file$self->{config}{_exe}";
+}
+
+sub need_prelink { 0 }
+
+sub extra_link_args_after_prelink { return }
+
+sub prelink {
+  my ($self, %args) = @_;
+
+  my ($dl_file_out, $mksymlists_args) = _prepare_mksymlists_args(\%args);
+
+  require ExtUtils::Mksymlists;
+  # dl. abbrev for dynamic library
+  ExtUtils::Mksymlists::Mksymlists( %{ $mksymlists_args } );
+
+  # Mksymlists will create one of these files
+  return grep -e, map "$dl_file_out.$_", qw(ext def opt);
+}
+
+sub _prepare_mksymlists_args {
+  my $args = shift;
+  ($args->{dl_file} = $args->{dl_name}) =~ s/.*::// unless $args->{dl_file};
+
+  my %mksymlists_args = (
+    DL_VARS  => $args->{dl_vars}      || [],
+    DL_FUNCS => $args->{dl_funcs}     || {},
+    FUNCLIST => $args->{dl_func_list} || [],
+    IMPORTS  => $args->{dl_imports}   || {},
+    NAME     => $args->{dl_name},    # Name of the Perl module
+    DLBASE   => $args->{dl_base},    # Basename of DLL file
+    FILE     => $args->{dl_file},    # Dir + Basename of symlist file
+    VERSION  => (defined $args->{dl_version} ? $args->{dl_version} : '0.0'),
+  );
+  return ($args->{dl_file}, \%mksymlists_args);
+}
+
+sub link {
+  my ($self, %args) = @_;
+  return $self->_do_link('lib_file', lddl => 1, %args);
+}
+
+sub link_executable {
+  my ($self, %args) = @_;
+  return $self->_do_link('exe_file', lddl => 0, %args);
+}
+
+sub _do_link {
+  my ($self, $type, %args) = @_;
+
+  my $cf = $self->{config}; # For convenience
+
+  my $objects = delete $args{objects};
+  $objects = [$objects] unless ref $objects;
+  my $out = $args{$type} || $self->$type($objects->[0], %args);
+
+  my @temp_files;
+  @temp_files =
+    $self->prelink(%args, dl_name => $args{module_name})
+      if $args{lddl} && $self->need_prelink;
+
+  my @linker_flags = (
+    $self->split_like_shell($args{extra_linker_flags}),
+    $self->extra_link_args_after_prelink(
+       %args, dl_name => $args{module_name}, prelink_res => \@temp_files
+    )
+  );
+
+  my @output = $args{lddl}
+    ? $self->arg_share_object_file($out)
+    : $self->arg_exec_file($out);
+  my @shrp = $self->split_like_shell($cf->{shrpenv});
+  my @ld = $self->split_like_shell($cf->{ld});
+
+  $self->do_system(@shrp, @ld, @output, @$objects, @linker_flags)
+    or die "error building $out from @$objects";
+
+  return wantarray ? ($out, @temp_files) : $out;
+}
+
+
+sub do_system {
+  my ($self, @cmd) = @_;
+  print "@cmd\n" if !$self->{quiet};
+  return !system(@cmd);
+}
+
+sub split_like_shell {
+  my ($self, $string) = @_;
+
+  return () unless defined($string);
+  return @$string if UNIVERSAL::isa($string, 'ARRAY');
+  $string =~ s/^\s+|\s+$//g;
+  return () unless length($string);
+
+  # Text::ParseWords replaces all 'escaped' characters with themselves, which completely
+  # breaks paths under windows. As such, we forcibly replace backwards slashes with forward
+  # slashes on windows.
+  $string =~ s@\\@/@g if $^O eq 'MSWin32';
+
+  return Text::ParseWords::shellwords($string);
+}
+
+# if building perl, perl's main source directory
+sub perl_src {
+  # N.B. makemaker actually searches regardless of PERL_CORE, but
+  # only squawks at not finding it if PERL_CORE is set
+
+  return unless $ENV{PERL_CORE};
+
+  my $Updir = File::Spec->updir;
+  my $dir   = File::Spec->curdir;
+
+  # Try up to 5 levels upwards
+  for (0..10) {
+    if (
+      -f File::Spec->catfile($dir,"config_h.SH")
+      &&
+      -f File::Spec->catfile($dir,"perl.h")
+      &&
+      -f File::Spec->catfile($dir,"lib","Exporter.pm")
+    ) {
+      return Cwd::realpath( $dir );
+    }
+
+    $dir = File::Spec->catdir($dir, $Updir);
+  }
+
+  warn "PERL_CORE is set but I can't find your perl source!\n";
+  return ''; # return empty string if $ENV{PERL_CORE} but can't find dir ???
+}
+
+# directory of perl's include files
+sub perl_inc {
+  my $self = shift;
+
+  $self->perl_src() || File::Spec->catdir($self->{config}{archlibexp},"CORE");
+}
+
+sub DESTROY {
+  my $self = shift;
+  local($., $@, $!, $^E, $?);
+  $self->cleanup();
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
+package ExtUtils::CBuilder::Platform::Windows;
+use strict;
+use warnings;
+
+use File::Basename;
+use File::Spec;
+
+use ExtUtils::CBuilder::Base;
+use IO::File;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Base);
+
+
+sub new {
+  my $class = shift;
+  my $self = $class->SUPER::new(@_);
+  my $cf = $self->{config};
+
+  # Inherit from an appropriate compiler driver class
+  my $driver = "ExtUtils::CBuilder::Platform::Windows::" . $self->_compiler_type;
+  eval "require $driver" or die "Could not load compiler driver: $@";
+  unshift @ISA, $driver;
+
+  return $self;
+}
+
+sub _compiler_type {
+  my $self = shift;
+  my $cc = $self->{config}{cc};
+
+  return (  $cc =~ /cl(\.exe)?$/ ? 'MSVC'
+	  : $cc =~ /bcc32(\.exe)?$/ ? 'BCC'
+	  : 'GCC');
+}
+
+sub split_like_shell {
+  # Since Windows will pass the whole command string (not an argument
+  # array) to the target program and make the program parse it itself,
+  # we don't actually need to do any processing here.
+  (my $self, local $_) = @_;
+
+  return @$_ if defined() && UNIVERSAL::isa($_, 'ARRAY');
+  return unless defined() && length();
+  return ($_);
+}
+
+sub do_system {
+  # See above
+  my $self = shift;
+  my $cmd = join(" ",
+		 grep length,
+		 map {$a=$_;$a=~s/\t/ /g;$a=~s/^\s+|\s+$//;$a}
+		 grep defined, @_);
+  return $self->SUPER::do_system($cmd);
+}
+
+sub arg_defines {
+  my ($self, %args) = @_;
+  s/"/\\"/g foreach values %args;
+  return map qq{"-D$_=$args{$_}"}, sort keys %args;
+}
+
+sub compile {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  die "Missing 'source' argument to compile()" unless defined $args{source};
+
+  $args{include_dirs} = [ $args{include_dirs} ]
+    if exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY";
+
+  my ($basename, $srcdir) =
+    ( File::Basename::fileparse($args{source}, '\.[^.]+$') )[0,1];
+
+  $srcdir ||= File::Spec->curdir();
+
+  my @defines = $self->arg_defines( %{ $args{defines} || {} } );
+
+  my %spec = (
+    srcdir      => $srcdir,
+    builddir    => $srcdir,
+    basename    => $basename,
+    source      => $args{source},
+    output      => $args{object_file} || File::Spec->catfile($srcdir, $basename) . $cf->{obj_ext},
+    cc          => $cf->{cc},
+    cflags      => [
+                     $self->split_like_shell($cf->{ccflags}),
+                     $self->split_like_shell($cf->{cccdlflags}),
+                     $self->split_like_shell($args{extra_compiler_flags}),
+                   ],
+    optimize    => [ $self->split_like_shell($cf->{optimize})    ],
+    defines     => \@defines,
+    includes    => [ @{$args{include_dirs} || []} ],
+    perlinc     => [
+                     $self->perl_inc(),
+                     $self->split_like_shell($cf->{incpath}),
+                   ],
+    use_scripts => 1, # XXX provide user option to change this???
+  );
+
+  $self->normalize_filespecs(
+    \$spec{source},
+    \$spec{output},
+     $spec{includes},
+     $spec{perlinc},
+  );
+
+  my @cmds = $self->format_compiler_cmd(%spec);
+  while ( my $cmd = shift @cmds ) {
+    $self->do_system( @$cmd )
+      or die "error building $cf->{dlext} file from '$args{source}'";
+  }
+
+  (my $out = $spec{output}) =~ tr/'"//d;
+  return $out;
+}
+
+sub need_prelink { 1 }
+
+sub link {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  my @objects = ( ref $args{objects} eq 'ARRAY' ? @{$args{objects}} : $args{objects} );
+  my $to = join '', (File::Spec->splitpath($objects[0]))[0,1];
+  $to ||= File::Spec->curdir();
+
+  (my $file_base = $args{module_name}) =~ s/.*:://;
+  my $output = $args{lib_file} ||
+    File::Spec->catfile($to, "$file_base.$cf->{dlext}");
+
+  # if running in perl source tree, look for libs there, not installed
+  my $lddlflags = $cf->{lddlflags};
+  my $perl_src = $self->perl_src();
+  $lddlflags =~ s{\Q$cf->{archlibexp}\E[\\/]CORE}{$perl_src/lib/CORE} if $perl_src;
+
+  my %spec = (
+    srcdir        => $to,
+    builddir      => $to,
+    startup       => [ ],
+    objects       => \@objects,
+    libs          => [ ],
+    output        => $output,
+    ld            => $cf->{ld},
+    libperl       => $cf->{libperl},
+    perllibs      => [ $self->split_like_shell($cf->{perllibs})  ],
+    libpath       => [ $self->split_like_shell($cf->{libpth})    ],
+    lddlflags     => [ $self->split_like_shell($lddlflags) ],
+    other_ldflags => [ $self->split_like_shell($args{extra_linker_flags} || '') ],
+    use_scripts   => 1, # XXX provide user option to change this???
+  );
+
+  unless ( $spec{basename} ) {
+    ($spec{basename} = $args{module_name}) =~ s/.*:://;
+  }
+
+  $spec{srcdir}   = File::Spec->canonpath( $spec{srcdir}   );
+  $spec{builddir} = File::Spec->canonpath( $spec{builddir} );
+
+  $spec{output}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.'.$cf->{dlext}   );
+  $spec{manifest}  ||= $spec{output} . '.manifest';
+  $spec{implib}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . $cf->{lib_ext} );
+  $spec{explib}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.exp'  );
+  if ($cf->{cc} eq 'cl') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.pdb'  );
+  }
+  elsif ($cf->{cc} eq 'bcc32') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.tds'  );
+  }
+  $spec{def_file}  ||= File::Spec->catfile( $spec{srcdir}  ,
+                                            $spec{basename}  . '.def'  );
+  $spec{base_file} ||= File::Spec->catfile( $spec{srcdir}  ,
+                                            $spec{basename}  . '.base' );
+
+  $self->add_to_cleanup(
+    grep defined,
+    @{[ @spec{qw(manifest implib explib dbg_file def_file base_file map_file)} ]}
+  );
+
+  foreach my $opt ( qw(output manifest implib explib dbg_file def_file map_file base_file) ) {
+    $self->normalize_filespecs( \$spec{$opt} );
+  }
+
+  foreach my $opt ( qw(libpath startup objects) ) {
+    $self->normalize_filespecs( $spec{$opt} );
+  }
+
+  (my $def_base = $spec{def_file}) =~ tr/'"//d;
+  $def_base =~ s/\.def$//;
+  $self->prelink( %args,
+                  dl_name => $args{module_name},
+                  dl_file => $def_base,
+                  dl_base => $spec{basename} );
+
+  my @cmds = $self->format_linker_cmd(%spec);
+  while ( my $cmd = shift @cmds ) {
+    $self->do_system( @$cmd );
+  }
+
+  $spec{output} =~ tr/'"//d;
+  return wantarray
+    ? grep defined, @spec{qw[output manifest implib explib dbg_file def_file map_file base_file]}
+    : $spec{output};
+}
+
+# canonize & quote paths
+sub normalize_filespecs {
+  my ($self, @specs) = @_;
+  foreach my $spec ( grep defined, @specs ) {
+    if ( ref $spec eq 'ARRAY') {
+      $self->normalize_filespecs( map {\$_} grep defined, @$spec )
+    } elsif ( ref $spec eq 'SCALAR' ) {
+      $$spec =~ tr/"//d if $$spec;
+      next unless $$spec;
+      $$spec = '"' . File::Spec->canonpath($$spec) . '"';
+    } elsif ( ref $spec eq '' ) {
+      $spec = '"' . File::Spec->canonpath($spec) . '"';
+    } else {
+      die "Don't know how to normalize " . (ref $spec || $spec) . "\n";
+    }
+  }
+}
+
+# directory of perl's include files
+sub perl_inc {
+  my $self = shift;
+
+  my $perl_src = $self->perl_src();
+
+  if ($perl_src) {
+    File::Spec->catdir($perl_src, "lib", "CORE");
+  } else {
+    File::Spec->catdir($self->{config}{archlibexp},"CORE");
+  }
+}
+
+1;
+
+__END__
+
+package ExtUtils::CBuilder::Platform::VMS;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Base;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Base);
+
+use File::Spec::Functions qw(catfile catdir);
+use Config;
+
+# We do prelink, but don't want the parent to redo it.
+
+sub need_prelink { 0 }
+
+sub arg_defines {
+  my ($self, %args) = @_;
+
+  s/"/""/g foreach values %args;
+
+  my @config_defines;
+
+  # VMS can only have one define qualifier; add the one from config, if any.
+  if ($self->{config}{ccflags} =~ s{/  def[^=]+  =+  \(?  ([^\/\)]*)  } {}ix) {
+    push @config_defines, $1;
+  }
+
+  return '' unless keys(%args) || @config_defines;
+
+  return ('/define=('
+          . join(',',
+		 @config_defines,
+                 map "\"$_" . ( length($args{$_}) ? "=$args{$_}" : '') . "\"",
+                     sort keys %args)
+          . ')');
+}
+
+sub arg_include_dirs {
+  my ($self, @dirs) = @_;
+
+  # VMS can only have one include list, add the one from config.
+  if ($self->{config}{ccflags} =~ s{/inc[^=]+(?:=)+(?:\()?([^\/\)]*)} {}i) {
+    unshift @dirs, $1;
+  }
+  return unless @dirs;
+
+  return ('/include=(' . join(',', @dirs) . ')');
+}
+
+# We override the compile method because we consume the includes and defines
+# parts of ccflags in the process of compiling but don't save those parts
+# anywhere, so $self->{config}{ccflags} needs to be reset for each compile
+# operation.
+
+sub compile {
+  my ($self, %args) = @_;
+
+  $self->{config}{ccflags} = $Config{ccflags};
+  $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS};
+
+  return $self->SUPER::compile(%args);
+}
+
+sub _do_link {
+  my ($self, $type, %args) = @_;
+
+  my $objects = delete $args{objects};
+  $objects = [$objects] unless ref $objects;
+
+  if ($args{lddl}) {
+
+    # prelink will call Mksymlists, which creates the extension-specific
+    # linker options file and populates it with the boot symbol.
+
+    my @temp_files = $self->prelink(%args, dl_name => $args{module_name});
+
+    # We now add the rest of what we need to the linker options file.  We
+    # should replicate the functionality of C<ExtUtils::MM_VMS::dlsyms>,
+    # but there is as yet no infrastructure for handling object libraries,
+    # so for now we depend on object files being listed individually on the
+    # command line, which should work for simple cases.  We do bring in our
+    # own version of C<ExtUtils::Liblist::Kid::ext> so that any additional
+    # libraries (including PERLSHR) can be added to the options file.
+
+    my @optlibs = $self->_liblist_ext( $args{'libs'} );
+
+    my $optfile = 'sys$disk:[]' . $temp_files[0];
+    open my $opt_fh, '>>', $optfile
+        or die "_do_link: Unable to open $optfile: $!";
+    for my $lib (@optlibs) {print $opt_fh "$lib\n" if length $lib }
+    close $opt_fh;
+
+    $objects->[-1] .= ',';
+    push @$objects, $optfile . '/OPTIONS,';
+
+    # This one not needed for DEC C, but leave for completeness.
+    push @$objects, $self->perl_inc() . 'perlshr_attr.opt/OPTIONS';
+  }
+
+  return $self->SUPER::_do_link($type, %args, objects => $objects);
+}
+
+sub arg_nolink { return; }
+
+sub arg_object_file {
+  my ($self, $file) = @_;
+  return "/obj=$file";
+}
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return ("/exe=$file");
+}
+
+sub arg_share_object_file {
+  my ($self, $file) = @_;
+  return ("$self->{config}{lddlflags}=$file");
+}
+
+# The following is reproduced almost verbatim from ExtUtils::Liblist::Kid::_vms_ext.
+# We can't just call that because it's tied up with the MakeMaker object hierarchy.
+
+sub _liblist_ext {
+  my($self, $potential_libs,$verbose,$give_libs) = @_;
+  $verbose ||= 0;
+
+  my(@crtls,$crtlstr);
+  @crtls = ( ($self->{'config'}{'ldflags'} =~ m-/Debug-i ? $self->{'config'}{'dbgprefix'} : '')
+              . 'PerlShr/Share' );
+  push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'perllibs'});
+  push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'libc'});
+  # In general, we pass through the basic libraries from %Config unchanged.
+  # The one exception is that if we're building in the Perl source tree, and
+  # a library spec could be resolved via a logical name, we go to some trouble
+  # to ensure that the copy in the local tree is used, rather than one to
+  # which a system-wide logical may point.
+  if ($self->perl_src) {
+    my($lib,$locspec,$type);
+    foreach $lib (@crtls) {
+      if (($locspec,$type) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i) {
+        if    (lc $type eq '/share')   { $locspec .= $self->{'config'}{'exe_ext'}; }
+        elsif (lc $type eq '/library') { $locspec .= $self->{'config'}{'lib_ext'}; }
+        else                           { $locspec .= $self->{'config'}{'obj_ext'}; }
+        $locspec = catfile($self->perl_src, $locspec);
+        $lib = "$locspec$type" if -e $locspec;
+      }
+    }
+  }
+  $crtlstr = @crtls ? join(' ',@crtls) : '';
+
+  unless ($potential_libs) {
+    warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose;
+    return ('', '', $crtlstr, '', ($give_libs ? [] : ()));
+  }
+
+  my(@dirs,@libs,$dir,$lib,%found,@fndlibs,$ldlib);
+  my $cwd = cwd();
+  my($so,$lib_ext,$obj_ext) = @{$self->{'config'}}{'so','lib_ext','obj_ext'};
+  # List of common Unix library names and their VMS equivalents
+  # (VMS equivalent of '' indicates that the library is automatically
+  # searched by the linker, and should be skipped here.)
+  my(@flibs, %libs_seen);
+  my %libmap = ( 'm' => '', 'f77' => '', 'F77' => '', 'V77' => '', 'c' => '',
+                 'malloc' => '', 'crypt' => '', 'resolv' => '', 'c_s' => '',
+                 'socket' => '', 'X11' => 'DECW$XLIBSHR',
+                 'Xt' => 'DECW$XTSHR', 'Xm' => 'DECW$XMLIBSHR',
+                 'Xmu' => 'DECW$XMULIBSHR');
+
+  warn "Potential libraries are '$potential_libs'\n" if $verbose;
+
+  # First, sort out directories and library names in the input
+  foreach $lib (split ' ',$potential_libs) {
+    push(@dirs,$1),   next if $lib =~ /^-L(.*)/;
+    push(@dirs,$lib), next if $lib =~ /[:>\]]$/;
+    push(@dirs,$lib), next if -d $lib;
+    push(@libs,$1),   next if $lib =~ /^-l(.*)/;
+    push(@libs,$lib);
+  }
+  push(@dirs,split(' ',$self->{'config'}{'libpth'}));
+
+  # Now make sure we've got VMS-syntax absolute directory specs
+  # (We don't, however, check whether someone's hidden a relative
+  # path in a logical name.)
+  foreach $dir (@dirs) {
+    unless (-d $dir) {
+      warn "Skipping nonexistent Directory $dir\n" if $verbose > 1;
+      $dir = '';
+      next;
+    }
+    warn "Resolving directory $dir\n" if $verbose;
+    if (!File::Spec->file_name_is_absolute($dir)) {
+        $dir = catdir($cwd,$dir);
+    }
+  }
+  @dirs = grep { length($_) } @dirs;
+  unshift(@dirs,''); # Check each $lib without additions first
+
+  LIB: foreach $lib (@libs) {
+    if (exists $libmap{$lib}) {
+      next unless length $libmap{$lib};
+      $lib = $libmap{$lib};
+    }
+
+    my(@variants,$variant,$cand);
+    my($ctype) = '';
+
+    # If we don't have a file type, consider it a possibly abbreviated name and
+    # check for common variants.  We try these first to grab libraries before
+    # a like-named executable image (e.g. -lperl resolves to perlshr.exe
+    # before perl.exe).
+    if ($lib !~ /\.[^:>\]]*$/) {
+      push(@variants,"${lib}shr","${lib}rtl","${lib}lib");
+      push(@variants,"lib$lib") if $lib !~ /[:>\]]/;
+    }
+    push(@variants,$lib);
+    warn "Looking for $lib\n" if $verbose;
+    foreach $variant (@variants) {
+      my($fullname, $name);
+
+      foreach $dir (@dirs) {
+        my($type);
+
+        $name = "$dir$variant";
+        warn "\tChecking $name\n" if $verbose > 2;
+        $fullname = VMS::Filespec::rmsexpand($name);
+        if (defined $fullname and -f $fullname) {
+          # It's got its own suffix, so we'll have to figure out the type
+          if    ($fullname =~ /(?:$so|exe)$/i)      { $type = 'SHR'; }
+          elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { $type = 'OLB'; }
+          elsif ($fullname =~ /(?:$obj_ext|obj)$/i) {
+            warn "Note (probably harmless): "
+                ."Plain object file $fullname found in library list\n";
+            $type = 'OBJ';
+          }
+          else {
+            warn "Note (probably harmless): "
+                ."Unknown library type for $fullname; assuming shared\n";
+            $type = 'SHR';
+          }
+        }
+        elsif (-f ($fullname = VMS::Filespec::rmsexpand($name,$so))      or
+               -f ($fullname = VMS::Filespec::rmsexpand($name,'.exe')))     {
+          $type = 'SHR';
+          $name = $fullname unless $fullname =~ /exe;?\d*$/i;
+        }
+        elsif (not length($ctype) and  # If we've got a lib already,
+                                       # don't bother
+               ( -f ($fullname = VMS::Filespec::rmsexpand($name,$lib_ext)) or
+                 -f ($fullname = VMS::Filespec::rmsexpand($name,'.olb'))))  {
+          $type = 'OLB';
+          $name = $fullname unless $fullname =~ /olb;?\d*$/i;
+        }
+        elsif (not length($ctype) and  # If we've got a lib already,
+                                       # don't bother
+               ( -f ($fullname = VMS::Filespec::rmsexpand($name,$obj_ext)) or
+                 -f ($fullname = VMS::Filespec::rmsexpand($name,'.obj'))))  {
+          warn "Note (probably harmless): "
+		       ."Plain object file $fullname found in library list\n";
+          $type = 'OBJ';
+          $name = $fullname unless $fullname =~ /obj;?\d*$/i;
+        }
+        if (defined $type) {
+          $ctype = $type; $cand = $name;
+          last if $ctype eq 'SHR';
+        }
+      }
+      if ($ctype) {
+        push @{$found{$ctype}}, $cand;
+        warn "\tFound as $cand (really $fullname), type $ctype\n"
+          if $verbose > 1;
+	push @flibs, $name unless $libs_seen{$fullname}++;
+        next LIB;
+      }
+    }
+    warn "Note (probably harmless): "
+		 ."No library found for $lib\n";
+  }
+
+  push @fndlibs, @{$found{OBJ}}                      if exists $found{OBJ};
+  push @fndlibs, map { "$_/Library" } @{$found{OLB}} if exists $found{OLB};
+  push @fndlibs, map { "$_/Share"   } @{$found{SHR}} if exists $found{SHR};
+  $lib = join(' ',@fndlibs);
+
+  $ldlib = $crtlstr ? "$lib $crtlstr" : $lib;
+  warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose;
+  wantarray ? ($lib, '', $ldlib, '', ($give_libs ? \@flibs : ())) : $lib;
+}
+
+1;
+package ExtUtils::CBuilder::Platform::os2;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub need_prelink { 1 }
+
+sub prelink {
+  # Generate import libraries (XXXX currently near .DEF; should be near DLL!)
+  my $self = shift;
+  my %args = @_;
+
+  my @res = $self->SUPER::prelink(%args);
+  die "Unexpected number of DEF files" unless @res == 1;
+  die "Can't find DEF file in the output"
+    unless $res[0] =~ m,^(.*)\.def$,si;
+  my $libname = "$1$self->{config}{lib_ext}";	# Put .LIB file near .DEF file
+  $self->do_system('emximp', '-o', $libname, $res[0]) or die "emxexp: res=$?";
+  return (@res, $libname);
+}
+
+sub _do_link {
+  my $self = shift;
+  my ($how, %args) = @_;
+  if ($how eq 'lib_file'
+      and (defined $args{module_name} and length $args{module_name})) {
+
+    # Now know the basename, find directory parts via lib_file, or objects
+    my $objs = ( (ref $args{objects}) ? $args{objects} : [$args{objects}] );
+    my $near_obj = $self->lib_file(@$objs);
+    my $exp_dir = ($near_obj =~ m,(.*)[/\\],s ? "$1/" : '' );
+
+    $args{dl_file} = $1 if $near_obj =~ m,(.*)\.,s; # put ExportList near OBJ
+
+    # XXX _do_link does not have place to put libraries?
+    push @$objs, $self->perl_inc() . "/libperl$self->{config}{lib_ext}";
+    $args{objects} = $objs;
+  }
+  # Some 'env' do exec(), thus return too early when run from ksh;
+  # To avoid 'env', remove (useless) shrpenv
+  local $self->{config}{shrpenv} = '';
+  return $self->SUPER::_do_link($how, %args);
+}
+
+sub extra_link_args_after_prelink {
+  # Add .DEF file to the link line
+  my ($self, %args) = @_;
+
+  my @DEF = grep /\.def$/i, @{$args{prelink_res}};
+  die "More than one .def files created by 'prelink' stage" if @DEF > 1;
+  # XXXX No "$how" argument here, so how to test for dynamic link?
+  die "No .def file created by 'prelink' stage"
+    unless @DEF or not @{$args{prelink_res}};
+
+  my @after_libs = ($OS2::is_aout ? ()
+      : $self->perl_inc() . "/libperl_override$self->{config}{lib_ext}");
+  # , "-L", "-lperl"
+  (@after_libs, @DEF);
+}
+
+sub link_executable {
+  # ldflags is not expecting .exe extension given on command line; remove -Zexe
+  my $self = shift;
+  local $self->{config}{ldflags} = $self->{config}{ldflags};
+  $self->{config}{ldflags} =~ s/(?<!\S)-Zexe(?!\S)//;
+  return $self->SUPER::link_executable(@_);
+}
+
+
+1;
+package ExtUtils::CBuilder::Platform::dec_osf;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+use File::Spec;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub link_executable {
+  my $self = shift;
+  # $Config{ld} is 'ld' but that won't work: use the cc instead.
+  local $self->{config}{ld} = $self->{config}{cc};
+  return $self->SUPER::link_executable(@_);
+}
+
+1;
+package ExtUtils::CBuilder::Platform::darwin;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub compile {
+  my $self = shift;
+  my $cf = $self->{config};
+
+  # -flat_namespace isn't a compile flag, it's a linker flag.  But
+  # it's mistakenly in Config.pm as both.  Make the correction here.
+  local $cf->{ccflags} = $cf->{ccflags};
+  $cf->{ccflags} =~ s/-flat_namespace//;
+  $self->SUPER::compile(@_);
+}
+
+
+1;
+package ExtUtils::CBuilder::Platform::cygwin;
+
+use warnings;
+use strict;
+use File::Spec;
+use ExtUtils::CBuilder::Platform::Unix;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+# TODO: If a specific exe_file name is requested, if the exe created
+# doesn't have that name, we might want to rename it.  Apparently asking
+# for an exe of "foo" might result in "foo.exe".  Alternatively, we should
+# make sure the return value is correctly "foo.exe".
+# C.f http://rt.cpan.org/Public/Bug/Display.html?id=41003
+sub link_executable {
+  my $self = shift;
+  return $self->SUPER::link_executable(@_);
+}
+
+sub link {
+  my ($self, %args) = @_;
+
+  my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
+  $args{extra_linker_flags} = [
+    File::Spec->catfile($self->perl_inc(), $lib),
+    $self->split_like_shell($args{extra_linker_flags})
+  ];
+
+  return $self->SUPER::link(%args);
+}
+
+1;
+package ExtUtils::CBuilder::Platform::android;
+
+use warnings;
+use strict;
+use File::Spec;
+use ExtUtils::CBuilder::Platform::Unix;
+use Config;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+# The Android linker will not recognize symbols from
+# libperl unless the module explicitly depends on it.
+sub link {
+  my ($self, %args) = @_;
+
+  if ($self->{config}{useshrplib} eq 'true') {
+    $args{extra_linker_flags} = [
+      $self->split_like_shell($args{extra_linker_flags}),
+      '-L' . $self->perl_inc(),
+      '-lperl',
+      $self->split_like_shell($Config{perllibs}),
+    ];
+  }
+
+  # Several modules on CPAN rather rightfully expect being
+  # able to pass $so_file to DynaLoader::dl_load_file and
+  # have it Just Work.  However, $so_file will more likely
+  # than not be a relative path, and unless the module 
+  # author subclasses MakeMaker/Module::Build to modify
+  # LD_LIBRARY_PATH, which would be insane, Android's linker
+  # won't find the .so
+  # So we make this all work by returning an absolute path.
+  my($so_file, @so_tmps) = $self->SUPER::link(%args);
+  $so_file = File::Spec->rel2abs($so_file);
+  return wantarray ? ($so_file, @so_tmps) : $so_file;
+}
+
+1;
+package ExtUtils::CBuilder::Platform::aix;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+use File::Spec;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub need_prelink { 1 }
+
+sub link {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  (my $baseext = $args{module_name}) =~ s/.*:://;
+  my $perl_inc = $self->perl_inc();
+
+  # Massage some very naughty bits in %Config
+  local $cf->{lddlflags} = $cf->{lddlflags};
+  for ($cf->{lddlflags}) {
+    s/\Q$(BASEEXT)\E/$baseext/;
+    s/\Q$(PERL_INC)\E/$perl_inc/;
+  }
+
+  return $self->SUPER::link(%args);
+}
+
+
+1;
+package ExtUtils::CBuilder::Platform::Unix;
+
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Base;
+
+our $VERSION = '0.280230'; # VERSION
+our @ISA = qw(ExtUtils::CBuilder::Base);
+
+sub link_executable {
+  my $self = shift;
+
+  # On some platforms (which ones??) $Config{cc} seems to be a better
+  # bet for linking executables than $Config{ld}.  Cygwin is a notable
+  # exception.
+  local $self->{config}{ld} =
+    $self->{config}{cc} . " " . $self->{config}{ldflags};
+  return $self->SUPER::link_executable(@_);
+}
+
+sub link {
+  my $self = shift;
+  my $cf = $self->{config};
+
+  # Some platforms (notably Mac OS X 10.3, but some others too) expect
+  # the syntax "FOO=BAR /bin/command arg arg" to work in %Config
+  # (notably $Config{ld}).  It usually works in system(SCALAR), but we
+  # use system(LIST). We fix it up here with 'env'.
+
+  local $cf->{ld} = $cf->{ld};
+  if (ref $cf->{ld}) {
+    unshift @{$cf->{ld}}, 'env' if $cf->{ld}[0] =~ /^\s*\w+=/;
+  } else {
+    $cf->{ld} =~ s/^(\s*\w+=)/env $1/;
+  }
+
+  return $self->SUPER::link(@_);
+}
+
+1;
+package ExtUtils::CBuilder::Platform::Windows::MSVC;
+
+our $VERSION = '0.280230'; # VERSION
+
+use warnings;
+use strict;
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return "/OUT:$file";
+}
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  %spec = $self->write_compiler_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{cc},'-nologo','-c',
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    "-Fo$spec{output}"      ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub write_compiler_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.ccs' );
+
+  $self->add_to_cleanup($script);
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(includes cflags optimize defines perlinc) } )
+  );
+
+  push @{$spec{includes}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+  my $cf = $self->{config};
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-libpath:$path";
+  }
+
+  my $output = $spec{output};
+  my $manifest = $spec{manifest};
+
+  $spec{def_file}  &&= '-def:'      . $spec{def_file};
+  $spec{output}    &&= '-out:'      . $spec{output};
+  $spec{manifest}  &&= '-manifest ' . $spec{manifest};
+  $spec{implib}    &&= '-implib:'   . $spec{implib};
+  $spec{map_file}  &&= '-map:'      . $spec{map_file};
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  my @cmds; # Stores the series of commands needed to build the module.
+
+  push @cmds, [ grep {defined && length} (
+    $spec{ld}               ,
+    @{$spec{lddlflags}}     ,
+    @{$spec{libpath}}       ,
+    @{$spec{other_ldflags}} ,
+    @{$spec{startup}}       ,
+    @{$spec{objects}}       ,
+    $spec{map_file}         ,
+    $spec{libperl}          ,
+    @{$spec{perllibs}}      ,
+    $spec{def_file}         ,
+    $spec{implib}           ,
+    $spec{output}           ,
+  ) ];
+
+  # Embed the manifest file if it exists
+  push @cmds, [
+    'if', 'exist', $manifest, 'mt', '-nologo', $spec{manifest}, '-outputresource:' . "$output;2"
+  ];
+
+  return @cmds;
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.lds' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(lddlflags libpath other_ldflags
+                startup objects libperl perllibs
+                def_file implib map_file)            } )
+  );
+
+  push @{$spec{lddlflags}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+1;
+
+
+package ExtUtils::CBuilder::Platform::Windows::BCC;
+
+our $VERSION = '0.280230'; # VERSION
+
+use strict;
+use warnings;
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  %spec = $self->write_compiler_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{cc}, '-c'         ,
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    "-o$spec{output}"       ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub write_compiler_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.ccs' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  # XXX Borland "response files" seem to be unable to accept macro
+  # definitions containing quoted strings. Escaping strings with
+  # backslash doesn't work, and any level of quotes are stripped. The
+  # result is a floating point number in the source file where a
+  # string is expected. So we leave the macros on the command line.
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(includes cflags optimize perlinc) } )
+  );
+
+  push @{$spec{includes}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-L$path";
+  }
+
+  push( @{$spec{startup}}, 'c0d32.obj' )
+    unless ( $spec{startup} && @{$spec{startup}} );
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{ld}               ,
+    @{$spec{lddlflags}}     ,
+    @{$spec{libpath}}       ,
+    @{$spec{other_ldflags}} ,
+    @{$spec{startup}}       ,
+    @{$spec{objects}}       , ',',
+    $spec{output}           , ',',
+    $spec{map_file}         , ',',
+    $spec{libperl}          ,
+    @{$spec{perllibs}}      , ',',
+    $spec{def_file}
+  ) ];
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  # To work around Borlands "unique" commandline syntax,
+  # two scripts are used:
+
+  my $ld_script = File::Spec->catfile( $spec{srcdir},
+                                       $spec{basename} . '.lds' );
+  my $ld_libs   = File::Spec->catfile( $spec{srcdir},
+                                       $spec{basename} . '.lbs' );
+
+  $self->add_to_cleanup($ld_script, $ld_libs);
+
+  print "Generating scripts '$ld_script' and '$ld_libs'.\n" if !$self->{quiet};
+
+  # Script 1: contains options & names of object files.
+  my $LD_SCRIPT = IO::File->new( ">$ld_script" )
+    or die( "Could not create linker script '$ld_script': $!" );
+
+  print $LD_SCRIPT join( " +\n",
+    map { @{$_} }
+    grep defined,
+    delete(
+      @spec{ qw(lddlflags libpath other_ldflags startup objects) } )
+  );
+
+  # Script 2: contains name of libs to link against.
+  my $LD_LIBS = IO::File->new( ">$ld_libs" )
+    or die( "Could not create linker script '$ld_libs': $!" );
+
+  print $LD_LIBS join( " +\n",
+     (delete $spec{libperl}  || ''),
+    @{delete $spec{perllibs} || []},
+  );
+
+  push @{$spec{lddlflags}}, '@"' . $ld_script  . '"';
+  push @{$spec{perllibs}},  '@"' . $ld_libs    . '"';
+
+  return %spec;
+}
+
+1;
+
+
+package ExtUtils::CBuilder::Platform::Windows::GCC;
+
+our $VERSION = '0.280230'; # VERSION
+
+use warnings;
+use strict;
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  # split off any -arguments included in cc
+  my @cc = split / (?=-)/, $spec{cc};
+
+  return [ grep {defined && length} (
+    @cc, '-c'               ,
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    '-o', $spec{output}     ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+  my $cf = $self->{config};
+
+  # The Config.pm variable 'libperl' is hardcoded to the full name
+  # of the perl import library (i.e. 'libperl56.a'). GCC will not
+  # find it unless the 'lib' prefix & the extension are stripped.
+  $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;
+
+  unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
+    if ( $spec{startup} && @{$spec{startup}} );
+
+  # From ExtUtils::MM_Win32:
+  #
+  ## one thing for GCC/Mingw32:
+  ## we try to overcome non-relocateable-DLL problems by generating
+  ##    a (hopefully unique) image-base from the dll's name
+  ## -- BKS, 10-19-1999
+  File::Basename::basename( $spec{output} ) =~ /(....)(.{0,4})/;
+  $spec{image_base} = sprintf( "0x%x0000", unpack('n', $1 ^ $2) );
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-L$path";
+  }
+
+  my @cmds; # Stores the series of commands needed to build the module.
+
+  my $DLLTOOL = $cf->{dlltool} || 'dlltool';
+
+  push @cmds, [
+    $DLLTOOL, '--def'        , $spec{def_file},
+              '--output-exp' , $spec{explib}
+  ];
+
+  # split off any -arguments included in ld
+  my @ld = split / (?=-)/, $spec{ld};
+
+  push @cmds, [ grep {defined && length} (
+    @ld                       ,
+    '-o', $spec{output}       ,
+    "-Wl,--base-file,$spec{base_file}"   ,
+    "-Wl,--image-base,$spec{image_base}" ,
+    @{$spec{lddlflags}}       ,
+    @{$spec{libpath}}         ,
+    @{$spec{startup}}         ,
+    @{$spec{objects}}         ,
+    @{$spec{other_ldflags}}   ,
+    $spec{libperl}            ,
+    @{$spec{perllibs}}        ,
+    $spec{explib}             ,
+    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
+  ) ];
+
+  push @cmds, [
+    $DLLTOOL, '--def'        , $spec{def_file},
+              '--output-exp' , $spec{explib},
+              '--base-file'  , $spec{base_file}
+  ];
+
+  push @cmds, [ grep {defined && length} (
+    @ld                       ,
+    '-o', $spec{output}       ,
+    "-Wl,--image-base,$spec{image_base}" ,
+    @{$spec{lddlflags}}       ,
+    @{$spec{libpath}}         ,
+    @{$spec{startup}}         ,
+    @{$spec{objects}}         ,
+    @{$spec{other_ldflags}}   ,
+    $spec{libperl}            ,
+    @{$spec{perllibs}}        ,
+    $spec{explib}             ,
+    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
+  ) ];
+
+  return @cmds;
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.lds' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT ( 'SEARCH_DIR(' . $_ . ")\n" )
+    for @{delete $spec{libpath} || []};
+
+  # gcc takes only one startup file, so the first object in startup is
+  # specified as the startup file and any others are shifted into the
+  # beginning of the list of objects.
+  if ( $spec{startup} && @{$spec{startup}} ) {
+    print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . ")\n";
+    unshift @{$spec{objects}},
+      @{delete $spec{startup} || []};
+  }
+
+  print $SCRIPT 'INPUT(' . join( ',',
+    @{delete $spec{objects}  || []}
+  ) . ")\n";
+
+  print $SCRIPT 'INPUT(' . join( ' ',
+     (delete $spec{libperl}  || ''),
+    @{delete $spec{perllibs} || []},
+  ) . ")\n";
+
+  #it is important to keep the order 1.linker_script - 2.other_ldflags
+  unshift @{$spec{other_ldflags}}, '"' . $script . '"';
+
+  return %spec;
+}
+
+1;
+
+
+package ExtUtils::Command::MM;
+
+require 5.006;
+
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our @EXPORT  = qw(test_harness pod2man perllocal_install uninstall
+                  warn_if_old_packlist test_s cp_nonempty);
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+my $Is_VMS = $^O eq 'VMS';
+
+sub mtime {
+  no warnings 'redefine';
+  local $@;
+  *mtime = (eval { require Time::HiRes } && defined &Time::HiRes::stat)
+    ? sub { (Time::HiRes::stat($_[0]))[9] }
+    : sub { (             stat($_[0]))[9] }
+  ;
+  goto &mtime;
+}
+
+
+sub test_harness {
+    require Test::Harness;
+    require File::Spec;
+
+    $Test::Harness::verbose = shift;
+
+    # Because Windows doesn't do this for us and listing all the *.t files
+    # out on the command line can blow over its exec limit.
+    require ExtUtils::Command;
+    my @argv = ExtUtils::Command::expand_wildcards(@ARGV);
+
+    local @INC = @INC;
+    unshift @INC, map { File::Spec->rel2abs($_) } @_;
+    Test::Harness::runtests(sort { lc $a cmp lc $b } @argv);
+}
+
+
+
+
+sub pod2man {
+    local @ARGV = @_ ? @_ : @ARGV;
+
+    {
+        local $@;
+        if( !eval { require Pod::Man } ) {
+            warn "Pod::Man is not available: $@".
+                 "Man pages will not be generated during this install.\n";
+            return 0;
+        }
+    }
+    require Getopt::Long;
+
+    # We will cheat and just use Getopt::Long.  We fool it by putting
+    # our arguments into @ARGV.  Should be safe.
+    my %options = ();
+    Getopt::Long::config ('bundling_override');
+    Getopt::Long::GetOptions (\%options,
+                'section|s=s', 'release|r=s', 'center|c=s',
+                'date|d=s', 'fixed=s', 'fixedbold=s', 'fixeditalic=s',
+                'fixedbolditalic=s', 'official|o', 'quotes|q=s', 'lax|l',
+                'name|n=s', 'perm_rw=i', 'utf8|u'
+    );
+    delete $options{utf8} unless $Pod::Man::VERSION >= 2.17;
+
+    # If there's no files, don't bother going further.
+    return 0 unless @ARGV;
+
+    # Official sets --center, but don't override things explicitly set.
+    if ($options{official} && !defined $options{center}) {
+        $options{center} = q[Perl Programmer's Reference Guide];
+    }
+
+    # This isn't a valid Pod::Man option and is only accepted for backwards
+    # compatibility.
+    delete $options{lax};
+    my $count = scalar @ARGV / 2;
+    my $plural = $count == 1 ? 'document' : 'documents';
+    print "Manifying $count pod $plural\n";
+
+    do {{  # so 'next' works
+        my ($pod, $man) = splice(@ARGV, 0, 2);
+
+        next if ((-e $man) &&
+                 (mtime($man) > mtime($pod)) &&
+                 (mtime($man) > mtime("Makefile")));
+
+        my $parser = Pod::Man->new(%options);
+        $parser->parse_from_file($pod, $man)
+          or do { warn("Could not install $man\n");  next };
+
+        if (exists $options{perm_rw}) {
+            chmod(oct($options{perm_rw}), $man)
+              or do { warn("chmod $options{perm_rw} $man: $!\n"); next };
+        }
+    }} while @ARGV;
+
+    return 1;
+}
+
+
+
+sub warn_if_old_packlist {
+    my $packlist = $ARGV[0];
+
+    return unless -f $packlist;
+    print <<"PACKLIST_WARNING";
+WARNING: I have found an old package in
+    $packlist.
+Please make sure the two installations are not conflicting
+PACKLIST_WARNING
+
+}
+
+
+
+sub perllocal_install {
+    my($type, $name) = splice(@ARGV, 0, 2);
+
+    # VMS feeds args as a piped file on STDIN since it usually can't
+    # fit all the args on a single command line.
+    my @mod_info = $Is_VMS ? split /\|/, <STDIN>
+                           : @ARGV;
+
+    my $pod;
+    my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time);
+    $pod = sprintf <<'POD', scalar($time), $type, $name, $name;
+ =head2 %s: C<%s> L<%s|%s>
+
+ =over 4
+
+POD
+
+    do {
+        my($key, $val) = splice(@mod_info, 0, 2);
+
+        $pod .= <<POD
+ =item *
+
+ C<$key: $val>
+
+POD
+
+    } while(@mod_info);
+
+    $pod .= "=back\n\n";
+    $pod =~ s/^ //mg;
+    print $pod;
+
+    return 1;
+}
+
+
+sub uninstall {
+    my($packlist) = shift @ARGV;
+
+    require ExtUtils::Install;
+
+    print <<'WARNING';
+
+Uninstall is unsafe and deprecated, the uninstallation was not performed.
+We will show what would have been done.
+
+WARNING
+
+    ExtUtils::Install::uninstall($packlist, 1, 1);
+
+    print <<'WARNING';
+
+Uninstall is unsafe and deprecated, the uninstallation was not performed.
+Please check the list above carefully, there may be errors.
+Remove the appropriate files manually.
+Sorry for the inconvenience.
+
+WARNING
+
+}
+
+
+sub test_s {
+  exit(-s $ARGV[0] ? 0 : 1);
+}
+
+
+sub cp_nonempty {
+  my @args = @ARGV;
+  return 0 unless -s $args[0];
+  require ExtUtils::Command;
+  {
+    local @ARGV = @args[0,1];
+    ExtUtils::Command::cp(@ARGV);
+  }
+  {
+    local @ARGV = @args[2,1];
+    ExtUtils::Command::chmod(@ARGV);
+  }
+}
+
+
+1;
+package ExtUtils::ParseXS::Constants;
+use strict;
+use warnings;
+use Symbol;
+
+our $VERSION = '3.39';
+
+
+# FIXME: THESE ARE NOT CONSTANTS!
+our @InitFileCode;
+
+# Note that to reduce maintenance, $PrototypeRegexp is used
+# by ExtUtils::Typemaps, too!
+our $PrototypeRegexp = "[" . quotemeta('\$%&*@;[]_') . "]";
+our @XSKeywords      = qw( 
+  REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
+  OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
+  VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
+  INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
+  EXPORT_XSUB_SYMBOLS
+);
+
+our $XSKeywordsAlternation = join('|', @XSKeywords);
+
+1;
+package ExtUtils::ParseXS::Eval;
+use strict;
+use warnings;
+
+our $VERSION = '3.39';
+
+
+sub eval_output_typemap_code {
+  my ($_pxs, $_code, $_other) = @_;
+
+  my ($Package, $ALIAS, $func_name, $Full_func_name, $pname)
+    = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)};
+
+  my ($var, $type, $ntype, $subtype, $arg)
+    = @{$_other}{qw(var type ntype subtype arg)};
+
+  my $rv = eval $_code;
+  warn $@ if $@;
+  return $rv;
+}
+
+
+sub eval_input_typemap_code {
+  my ($_pxs, $_code, $_other) = @_;
+
+  my ($Package, $ALIAS, $func_name, $Full_func_name, $pname)
+    = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)};
+
+  my ($var, $type, $num, $init, $printed_name, $arg, $ntype, $argoff, $subtype)
+    = @{$_other}{qw(var type num init printed_name arg ntype argoff subtype)};
+
+  my $rv = eval $_code;
+  warn $@ if $@;
+  return $rv;
+}
+
+
+1;
+
+# vim: ts=2 sw=2 et:
+package ExtUtils::ParseXS::CountLines;
+use strict;
+
+our $VERSION = '3.39';
+
+our $SECTION_END_MARKER;
+
+sub TIEHANDLE {
+  my ($class, $cfile, $fh) = @_;
+  $cfile =~ s/\\/\\\\/g;
+  $cfile =~ s/"/\\"/g;
+  $SECTION_END_MARKER = qq{#line --- "$cfile"};
+
+  return bless {
+    buffer => '',
+    fh => $fh,
+    line_no => 1,
+  }, $class;
+}
+
+sub PRINT {
+  my $self = shift;
+  for (@_) {
+    $self->{buffer} .= $_;
+    while ($self->{buffer} =~ s/^([^\n]*\n)//) {
+      my $line = $1;
+      ++$self->{line_no};
+      $line =~ s|^\#line\s+---(?=\s)|#line $self->{line_no}|;
+      print {$self->{fh}} $line;
+    }
+  }
+}
+
+sub PRINTF {
+  my $self = shift;
+  my $fmt = shift;
+  $self->PRINT(sprintf($fmt, @_));
+}
+
+sub DESTROY {
+  # Not necessary if we're careful to end with a "\n"
+  my $self = shift;
+  print {$self->{fh}} $self->{buffer};
+}
+
+sub UNTIE {
+  # This sub does nothing, but is necessary for references to be released.
+}
+
+sub end_marker {
+  return $SECTION_END_MARKER;
+}
+
+1;
+package ExtUtils::ParseXS::Utilities;
+use strict;
+use warnings;
+use Exporter;
+use File::Spec;
+use ExtUtils::ParseXS::Constants ();
+
+our $VERSION = '3.39';
+
+our (@ISA, @EXPORT_OK);
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(
+  standard_typemap_locations
+  trim_whitespace
+  C_string
+  valid_proto_string
+  process_typemaps
+  map_type
+  standard_XS_defs
+  assign_func_args
+  analyze_preprocessor_statements
+  set_cond
+  Warn
+  current_line_number
+  blurt
+  death
+  check_conditional_preprocessor_statements
+  escape_file_for_line_directive
+  report_typemap_failure
+);
+
+
+SCOPE: {
+  my @tm_template;
+
+  sub standard_typemap_locations {
+    my $include_ref = shift;
+
+    if (not @tm_template) {
+      @tm_template = qw(typemap);
+
+      my $updir = File::Spec->updir();
+      foreach my $dir (
+          File::Spec->catdir(($updir) x 1),
+          File::Spec->catdir(($updir) x 2),
+          File::Spec->catdir(($updir) x 3),
+          File::Spec->catdir(($updir) x 4),
+      ) {
+        unshift @tm_template, File::Spec->catfile($dir, 'typemap');
+        unshift @tm_template, File::Spec->catfile($dir, lib => ExtUtils => 'typemap');
+      }
+    }
+
+    my @tm = @tm_template;
+    foreach my $dir (@{ $include_ref}) {
+      my $file = File::Spec->catfile($dir, ExtUtils => 'typemap');
+      unshift @tm, $file if -e $file;
+    }
+    return @tm;
+  }
+} # end SCOPE
+
+
+sub trim_whitespace {
+  $_[0] =~ s/^\s+|\s+$//go;
+}
+
+
+sub C_string {
+  my($string) = @_;
+
+  $string =~ s[\\][\\\\]g;
+  $string;
+}
+
+
+sub valid_proto_string {
+  my ($string) = @_;
+
+  if ( $string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/ ) {
+    return $string;
+  }
+
+  return 0;
+}
+
+
+sub process_typemaps {
+  my ($tmap, $pwd) = @_;
+
+  my @tm = ref $tmap ? @{$tmap} : ($tmap);
+
+  foreach my $typemap (@tm) {
+    die "Can't find $typemap in $pwd\n" unless -r $typemap;
+  }
+
+  push @tm, standard_typemap_locations( \@INC );
+
+  require ExtUtils::Typemaps;
+  my $typemap = ExtUtils::Typemaps->new;
+  foreach my $typemap_loc (@tm) {
+    next unless -f $typemap_loc;
+    # skip directories, binary files etc.
+    warn("Warning: ignoring non-text typemap file '$typemap_loc'\n"), next
+      unless -T $typemap_loc;
+
+    $typemap->merge(file => $typemap_loc, replace => 1);
+  }
+
+  return $typemap;
+}
+
+
+sub map_type {
+  my ($self, $type, $varname) = @_;
+
+  # C++ has :: in types too so skip this
+  $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes};
+  $type =~ s/^array\(([^,]*),(.*)\).*/$1 */s;
+  if ($varname) {
+    if ($type =~ / \( \s* \* (?= \s* \) ) /xg) {
+      (substr $type, pos $type, 0) = " $varname ";
+    }
+    else {
+      $type .= "\t$varname";
+    }
+  }
+  return $type;
+}
+
+
+sub standard_XS_defs {
+  print <<"EOF";
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(var) if (0) var = var
+#endif
+
+#ifndef dVAR
+#  define dVAR		dNOOP
+#endif
+
+
+/* This stuff is not part of the API! You have been warned. */
+#ifndef PERL_VERSION_DECIMAL
+#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
+#endif
+#ifndef PERL_DECIMAL_VERSION
+#  define PERL_DECIMAL_VERSION \\
+	  PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
+#endif
+#ifndef PERL_VERSION_GE
+#  define PERL_VERSION_GE(r,v,s) \\
+	  (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
+#endif
+#ifndef PERL_VERSION_LE
+#  define PERL_VERSION_LE(r,v,s) \\
+	  (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
+#endif
+
+/* XS_INTERNAL is the explicit static-linkage variant of the default
+ * XS macro.
+ *
+ * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
+ * "STATIC", ie. it exports XSUB symbols. You probably don't want that
+ * for anything but the BOOT XSUB.
+ *
+ * See XSUB.h in core!
+ */
+
+
+/* TODO: This might be compatible further back than 5.10.0. */
+#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
+#  undef XS_EXTERNAL
+#  undef XS_INTERNAL
+#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
+#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
+#    define XS_INTERNAL(name) STATIC XSPROTO(name)
+#  endif
+#  if defined(__SYMBIAN32__)
+#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
+#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
+#  endif
+#  ifndef XS_EXTERNAL
+#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
+#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
+#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
+#    else
+#      ifdef __cplusplus
+#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
+#        define XS_INTERNAL(name) static XSPROTO(name)
+#      else
+#        define XS_EXTERNAL(name) XSPROTO(name)
+#        define XS_INTERNAL(name) STATIC XSPROTO(name)
+#      endif
+#    endif
+#  endif
+#endif
+
+/* perl >= 5.10.0 && perl <= 5.15.1 */
+
+
+/* The XS_EXTERNAL macro is used for functions that must not be static
+ * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
+ * macro defined, the best we can do is assume XS is the same.
+ * Dito for XS_INTERNAL.
+ */
+#ifndef XS_EXTERNAL
+#  define XS_EXTERNAL(name) XS(name)
+#endif
+#ifndef XS_INTERNAL
+#  define XS_INTERNAL(name) XS(name)
+#endif
+
+/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
+ * internal macro that we're free to redefine for varying linkage due
+ * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
+ * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
+ */
+
+#undef XS_EUPXS
+#if defined(PERL_EUPXS_ALWAYS_EXPORT)
+#  define XS_EUPXS(name) XS_EXTERNAL(name)
+#else
+   /* default to internal */
+#  define XS_EUPXS(name) XS_INTERNAL(name)
+#endif
+
+EOF
+
+  print <<"EOF";
+#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
+#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
+
+/* prototype to pass -Wmissing-prototypes */
+STATIC void
+S_croak_xs_usage(const CV *const cv, const char *const params);
+
+STATIC void
+S_croak_xs_usage(const CV *const cv, const char *const params)
+{
+    const GV *const gv = CvGV(cv);
+
+    PERL_ARGS_ASSERT_CROAK_XS_USAGE;
+
+    if (gv) {
+        const char *const gvname = GvNAME(gv);
+        const HV *const stash = GvSTASH(gv);
+        const char *const hvname = stash ? HvNAME(stash) : NULL;
+
+        if (hvname)
+	    Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params);
+        else
+	    Perl_croak_nocontext("Usage: %s(%s)", gvname, params);
+    } else {
+        /* Pants. I don't think that it should be possible to get here. */
+	Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
+    }
+}
+#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE
+
+#define croak_xs_usage        S_croak_xs_usage
+
+#endif
+
+/* NOTE: the prototype of newXSproto() is different in versions of perls,
+ * so we define a portable version of newXSproto()
+ */
+#ifdef newXS_flags
+#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
+#else
+#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
+#endif /* !defined(newXS_flags) */
+
+#if PERL_VERSION_LE(5, 21, 5)
+#  define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file)
+#else
+#  define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b)
+#endif
+
+EOF
+  return 1;
+}
+
+
+sub assign_func_args {
+  my ($self, $argsref, $class) = @_;
+  my @func_args = @{$argsref};
+  shift @func_args if defined($class);
+
+  for my $arg (@func_args) {
+    $arg =~ s/^/&/ if $self->{in_out}->{$arg};
+  }
+  return join(", ", @func_args);
+}
+
+
+sub analyze_preprocessor_statements {
+  my ($self, $statement, $XSS_work_idx, $BootCode_ref) = @_;
+
+  if ($statement eq 'if') {
+    $XSS_work_idx = @{ $self->{XSStack} };
+    push(@{ $self->{XSStack} }, {type => 'if'});
+  }
+  else {
+    $self->death("Error: '$statement' with no matching 'if'")
+      if $self->{XSStack}->[-1]{type} ne 'if';
+    if ($self->{XSStack}->[-1]{varname}) {
+      push(@{ $self->{InitFileCode} }, "#endif\n");
+      push(@{ $BootCode_ref },     "#endif");
+    }
+
+    my(@fns) = keys %{$self->{XSStack}->[-1]{functions}};
+    if ($statement ne 'endif') {
+      # Hide the functions defined in other #if branches, and reset.
+      @{$self->{XSStack}->[-1]{other_functions}}{@fns} = (1) x @fns;
+      @{$self->{XSStack}->[-1]}{qw(varname functions)} = ('', {});
+    }
+    else {
+      my($tmp) = pop(@{ $self->{XSStack} });
+      0 while (--$XSS_work_idx
+           && $self->{XSStack}->[$XSS_work_idx]{type} ne 'if');
+      # Keep all new defined functions
+      push(@fns, keys %{$tmp->{other_functions}});
+      @{$self->{XSStack}->[$XSS_work_idx]{functions}}{@fns} = (1) x @fns;
+    }
+  }
+  return ($self, $XSS_work_idx, $BootCode_ref);
+}
+
+
+sub set_cond {
+  my ($ellipsis, $min_args, $num_args) = @_;
+  my $cond;
+  if ($ellipsis) {
+    $cond = ($min_args ? qq(items < $min_args) : 0);
+  }
+  elsif ($min_args == $num_args) {
+    $cond = qq(items != $min_args);
+  }
+  else {
+    $cond = qq(items < $min_args || items > $num_args);
+  }
+  return $cond;
+}
+
+
+sub current_line_number {
+  my $self = shift;
+  my $line_number = $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1];
+  return $line_number;
+}
+
+
+sub Warn {
+  my $self = shift;
+  my $warn_line_number = $self->current_line_number();
+  print STDERR "@_ in $self->{filename}, line $warn_line_number\n";
+}
+
+
+sub blurt {
+  my $self = shift;
+  $self->Warn(@_);
+  $self->{errors}++
+}
+
+
+sub death {
+  my $self = shift;
+  $self->Warn(@_);
+  exit 1;
+}
+
+
+sub check_conditional_preprocessor_statements {
+  my ($self) = @_;
+  my @cpp = grep(/^\#\s*(?:if|e\w+)/, @{ $self->{line} });
+  if (@cpp) {
+    my $cpplevel;
+    for my $cpp (@cpp) {
+      if ($cpp =~ /^\#\s*if/) {
+        $cpplevel++;
+      }
+      elsif (!$cpplevel) {
+        $self->Warn("Warning: #else/elif/endif without #if in this function");
+        print STDERR "    (precede it with a blank line if the matching #if is outside the function)\n"
+          if $self->{XSStack}->[-1]{type} eq 'if';
+        return;
+      }
+      elsif ($cpp =~ /^\#\s*endif/) {
+        $cpplevel--;
+      }
+    }
+    $self->Warn("Warning: #if without #endif in this function") if $cpplevel;
+  }
+}
+
+
+sub escape_file_for_line_directive {
+  my $string = shift;
+  $string =~ s/\\/\\\\/g;
+  $string =~ s/"/\\"/g;
+  return $string;
+}
+
+
+sub report_typemap_failure {
+  my ($self, $tm, $ctype, $error_method) = @_;
+  $error_method ||= 'blurt';
+
+  my @avail_ctypes = $tm->list_mapped_ctypes;
+
+  my $err = "Could not find a typemap for C type '$ctype'.\n"
+            . "The following C types are mapped by the current typemap:\n'"
+            . join("', '", @avail_ctypes) . "'\n";
+
+  $self->$error_method($err);
+  return();
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
+package ExtUtils::Typemaps::Type;
+use 5.006001;
+use strict;
+use warnings;
+require ExtUtils::Typemaps;
+
+our $VERSION = '3.38';
+
+
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{ctype}) {
+      die("Need xstype and ctype parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {proto => ''})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{ctype} = $args{ctype} if defined $args{ctype};
+  $self->{tidy_ctype} = ExtUtils::Typemaps::tidy_type($self->{ctype});
+  $self->{proto} = $args{'prototype'} if defined $args{'prototype'};
+
+  return $self;
+}
+
+
+sub proto {
+  $_[0]->{proto} = $_[1] if @_ > 1;
+  return $_[0]->{proto};
+}
+
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+
+sub ctype {
+  return defined($_[0]->{ctype}) ? $_[0]->{ctype} : $_[0]->{tidy_ctype};
+}
+
+
+sub tidy_ctype {
+  return $_[0]->{tidy_ctype};
+}
+
+
+1;
+
+package ExtUtils::Typemaps::OutputMap;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.38';
+
+
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{code}) {
+      die("Need xstype and code parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{code} = $args{code} if defined $args{code};
+  $self->{code} =~ s/^(?=\S)/\t/mg;
+
+  return $self;
+}
+
+
+sub code {
+  $_[0]->{code} = $_[1] if @_ > 1;
+  return $_[0]->{code};
+}
+
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+
+sub cleaned_code {
+  my $self = shift;
+  my $code = $self->code;
+
+  # Move C pre-processor instructions to column 1 to be strictly ANSI
+  # conformant. Some pre-processors are fussy about this.
+  $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
+
+  return $code;
+}
+
+
+sub targetable {
+  my $self = shift;
+  return $self->{targetable} if exists $self->{targetable};
+
+  our $bal; # ()-balanced
+  $bal = qr[
+    (?:
+      (?>[^()]+)
+      |
+      \( (??{ $bal }) \)
+    )*
+  ]x;
+  my $bal_no_comma = qr[
+    (?:
+      (?>[^(),]+)
+      |
+      \( (??{ $bal }) \)
+    )+
+  ]x;
+
+  # matches variations on (SV*)
+  my $sv_cast = qr[
+    (?:
+      \( \s* SV \s* \* \s* \) \s*
+    )?
+  ]x;
+
+  my $size = qr[ # Third arg (to setpvn)
+    , \s* (??{ $bal })
+  ]xo;
+
+  my $code = $self->code;
+
+  # We can still bootstrap compile 're', because in code re.pm is
+  # available to miniperl, and does not attempt to load the XS code.
+  use re 'eval';
+
+  my ($type, $with_size, $arg, $sarg) =
+    ($code =~
+      m[^
+        \s+
+        sv_set([iunp])v(n)?    # Type, is_setpvn
+        \s*
+        \( \s*
+          $sv_cast \$arg \s* , \s*
+          ( $bal_no_comma )    # Set from
+          ( $size )?           # Possible sizeof set-from
+        \s* \) \s* ; \s* $
+      ]xo
+  );
+
+  my $rv = undef;
+  if ($type) {
+    $rv = {
+      type      => $type,
+      with_size => $with_size,
+      what      => $arg,
+      what_size => $sarg,
+    };
+  }
+  $self->{targetable} = $rv;
+  return $rv;
+}
+
+
+1;
+
+package ExtUtils::Typemaps::InputMap;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.38';
+
+
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{code}) {
+      die("Need xstype and code parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{code} = $args{code} if defined $args{code};
+  $self->{code} =~ s/^(?=\S)/\t/mg;
+
+  return $self;
+}
+
+
+sub code {
+  $_[0]->{code} = $_[1] if @_ > 1;
+  return $_[0]->{code};
+}
+
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+
+sub cleaned_code {
+  my $self = shift;
+  my $code = $self->code;
+
+  $code =~ s/(?:;+\s*|;*\s+)\z//s;
+
+  # Move C pre-processor instructions to column 1 to be strictly ANSI
+  # conformant. Some pre-processors are fussy about this.
+  $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
+
+  return $code;
+}
+
+
+1;
+
+package ExtUtils::Typemaps::Cmd;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.38';
+
+use ExtUtils::Typemaps;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(embeddable_typemap);
+our %EXPORT_TAGS = (all => \@EXPORT);
+
+sub embeddable_typemap {
+  my @tms = @_;
+
+  # Get typemap objects
+  my @tm_objs = map [$_, _intuit_typemap_source($_)], @tms;
+
+  # merge or short-circuit
+  my $final_tm;
+  if (@tm_objs == 1) {
+    # just one, merge would be pointless
+    $final_tm = shift(@tm_objs)->[1];
+  }
+  else {
+    # multiple, need merge
+    $final_tm = ExtUtils::Typemaps->new;
+    foreach my $other_tm (@tm_objs) {
+      my ($tm_ident, $tm_obj) = @$other_tm;
+      eval {
+        $final_tm->merge(typemap => $tm_obj);
+        1
+      } or do {
+        my $err = $@ || 'Zombie error';
+        die "Failed to merge typ";
+      }
+    }
+  }
+
+  # stringify for embedding
+  return $final_tm->as_embedded_typemap();
+}
+
+sub _load_module {
+  my $name = shift;
+  return eval "require $name; 1";
+}
+
+SCOPE: {
+  my %sources = (
+    module => sub {
+      my $ident = shift;
+      my $tm;
+      if (/::/) { # looks like FQ module name, try that first
+        foreach my $module ($ident, "ExtUtils::Typemaps::$ident") {
+          if (_load_module($module)) {
+            eval { $tm = $module->new }
+              and return $tm;
+          }
+        }
+      }
+      else {
+        foreach my $module ("ExtUtils::Typemaps::$ident", "$ident") {
+          if (_load_module($module)) {
+            eval { $tm = $module->new }
+              and return $tm;
+          }
+        }
+      }
+      return();
+    },
+    file => sub {
+      my $ident = shift;
+      return unless -e $ident and -r _;
+      return ExtUtils::Typemaps->new(file => $ident);
+    },
+  );
+  # Try to find typemap either from module or file
+  sub _intuit_typemap_source {
+    my $identifier = shift;
+
+    my @locate_attempts;
+    if ($identifier =~ /::/ || $identifier !~ /[^\w_]/) {
+      @locate_attempts = qw(module file);
+    }
+    else {
+      @locate_attempts = qw(file module);
+    }
+
+    foreach my $source (@locate_attempts) {
+      my $tm = $sources{$source}->($identifier);
+      return $tm if defined $tm;
+    }
+
+    die "Unable to find typemap for '$identifier': "
+        . "Tried to load both as file or module and failed.\n";
+  }
+} # end SCOPE
+
+
+1;
+
+package ExtUtils::Liblist::Kid;
+
+# XXX Splitting this out into its own .pm is a temporary solution.
+
+# This kid package is to be used by MakeMaker.  It will not work if
+# $self is not a Makemaker.
+
+use 5.006;
+
+# Broken out of MakeMaker from version 4.11
+
+use strict;
+use warnings;
+our $VERSION = '7.34';
+$VERSION = eval $VERSION;
+
+use ExtUtils::MakeMaker::Config;
+use Cwd 'cwd';
+use File::Basename;
+use File::Spec;
+
+sub ext {
+    if    ( $^O eq 'VMS' )     { return &_vms_ext; }
+    elsif ( $^O eq 'MSWin32' ) { return &_win32_ext; }
+    else                       { return &_unix_os2_ext; }
+}
+
+sub _unix_os2_ext {
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    if ( $^O =~ /os2|android/ and $Config{perllibs} ) {
+
+        # Dynamic libraries are not transitive, so we may need including
+        # the libraries linked against perl.dll/libperl.so again.
+
+        $potential_libs .= " " if $potential_libs;
+        $potential_libs .= $Config{perllibs};
+    }
+    return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs;
+    warn "Potential libraries are '$potential_libs':\n" if $verbose;
+
+    my ( $so ) = $Config{so};
+    my ( $libs ) = defined $Config{perllibs} ? $Config{perllibs} : $Config{libs};
+    my $Config_libext = $Config{lib_ext} || ".a";
+    my $Config_dlext = $Config{dlext};
+
+    # compute $extralibs, $bsloadlibs and $ldloadlibs from
+    # $potential_libs
+    # this is a rewrite of Andy Dougherty's extliblist in perl
+
+    my ( @searchpath );    # from "-L/path" entries in $potential_libs
+    my ( @libpath ) = split " ", $Config{'libpth'} || '';
+    my ( @ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen );
+    my ( @libs,       %libs_seen );
+    my ( $fullname,   @fullname );
+    my ( $pwd )   = cwd();    # from Cwd.pm
+    my ( $found ) = 0;
+
+    if ( $^O eq 'darwin' or $^O eq 'next' )  {
+        # 'escape' Mach-O ld -framework and -F flags, so they aren't dropped later on
+        $potential_libs =~ s/(^|\s)(-(?:weak_|reexport_|lazy_)?framework)\s+(\S+)/$1-Wl,$2 -Wl,$3/g;
+        $potential_libs =~ s/(^|\s)(-F)\s*(\S+)/$1-Wl,$2 -Wl,$3/g;
+    }
+
+    foreach my $thislib ( split ' ', $potential_libs ) {
+        my ( $custom_name ) = '';
+
+        # Handle possible linker path arguments.
+        if ( $thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)// ) {    # save path flag type
+            my ( $ptype ) = $1;
+            unless ( -d $thislib ) {
+                warn "$ptype$thislib ignored, directory does not exist\n"
+                  if $verbose;
+                next;
+            }
+            my ( $rtype ) = $ptype;
+            if ( ( $ptype eq '-R' ) or ( $ptype =~ m!^-Wl,-[Rr]! ) ) {
+                if ( $Config{'lddlflags'} =~ /-Wl,-[Rr]/ ) {
+                    $rtype = '-Wl,-R';
+                }
+                elsif ( $Config{'lddlflags'} =~ /-R/ ) {
+                    $rtype = '-R';
+                }
+            }
+            unless ( File::Spec->file_name_is_absolute( $thislib ) ) {
+                warn "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
+                $thislib = $self->catdir( $pwd, $thislib );
+            }
+            push( @searchpath, $thislib );
+            push( @extralibs,  "$ptype$thislib" );
+            push( @ldloadlibs, "$rtype$thislib" );
+            next;
+        }
+
+        if ( $thislib =~ m!^-Wl,! ) {
+            push( @extralibs,  $thislib );
+            push( @ldloadlibs, $thislib );
+            next;
+        }
+
+        # Handle possible library arguments.
+        if ( $thislib =~ s/^-l(:)?// ) {
+            # Handle -l:foo.so, which means that the library will
+            # actually be called foo.so, not libfoo.so.  This
+            # is used in Android by ExtUtils::Depends to allow one XS
+            # module to link to another.
+            $custom_name = $1 || '';
+        }
+        else {
+            warn "Unrecognized argument in LIBS ignored: '$thislib'\n";
+            next;
+        }
+
+        my ( $found_lib ) = 0;
+        foreach my $thispth ( @searchpath, @libpath ) {
+
+            # Try to find the full name of the library.  We need this to
+            # determine whether it's a dynamically-loadable library or not.
+            # This tends to be subject to various os-specific quirks.
+            # For gcc-2.6.2 on linux (March 1995), DLD can not load
+            # .sa libraries, with the exception of libm.sa, so we
+            # deliberately skip them.
+            if ((@fullname =
+                 $self->lsdir($thispth, "^\Qlib$thislib.$so.\E[0-9]+")) ||
+                (@fullname =
+                 $self->lsdir($thispth, "^\Qlib$thislib.\E[0-9]+\Q\.$so"))) {
+                # Take care that libfoo.so.10 wins against libfoo.so.9.
+                # Compare two libraries to find the most recent version
+                # number.  E.g.  if you have libfoo.so.9.0.7 and
+                # libfoo.so.10.1, first convert all digits into two
+                # decimal places.  Then we'll add ".00" to the shorter
+                # strings so that we're comparing strings of equal length
+                # Thus we'll compare libfoo.so.09.07.00 with
+                # libfoo.so.10.01.00.  Some libraries might have letters
+                # in the version.  We don't know what they mean, but will
+                # try to skip them gracefully -- we'll set any letter to
+                # '0'.  Finally, sort in reverse so we can take the
+                # first element.
+
+                #TODO: iterate through the directory instead of sorting
+
+                $fullname = "$thispth/" . (
+                    sort {
+                        my ( $ma ) = $a;
+                        my ( $mb ) = $b;
+                        $ma =~ tr/A-Za-z/0/s;
+                        $ma =~ s/\b(\d)\b/0$1/g;
+                        $mb =~ tr/A-Za-z/0/s;
+                        $mb =~ s/\b(\d)\b/0$1/g;
+                        while ( length( $ma ) < length( $mb ) ) { $ma .= ".00"; }
+                        while ( length( $mb ) < length( $ma ) ) { $mb .= ".00"; }
+
+                        # Comparison deliberately backwards
+                        $mb cmp $ma;
+                      } @fullname
+                )[0];
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib.$so" )
+                && ( ( $Config{'dlsrc'} ne "dl_dld.xs" ) || ( $thislib eq "m" ) ) )
+            {
+            }
+            elsif (-f ( $fullname = "$thispth/lib${thislib}_s$Config_libext" )
+                && ( $Config{'archname'} !~ /RM\d\d\d-svr4/ )
+                && ( $thislib .= "_s" ) )
+            {    # we must explicitly use _s version
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib$Config_libext" ) ) {
+            }
+            elsif ( defined( $Config_dlext )
+                && -f ( $fullname = "$thispth/lib$thislib.$Config_dlext" ) )
+            {
+            }
+            elsif ( -f ( $fullname = "$thispth/$thislib$Config_libext" ) ) {
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib.dll$Config_libext" ) ) {
+            }
+            elsif ( $^O eq 'cygwin' && -f ( $fullname = "$thispth/$thislib.dll" ) ) {
+            }
+            elsif ( -f ( $fullname = "$thispth/Slib$thislib$Config_libext" ) ) {
+            }
+            elsif ($^O eq 'dgux'
+                && -l ( $fullname = "$thispth/lib$thislib$Config_libext" )
+                && readlink( $fullname ) =~ /^elink:/s )
+            {
+
+                # Some of DG's libraries look like misconnected symbolic
+                # links, but development tools can follow them.  (They
+                # look like this:
+                #
+                #    libm.a -> elink:${SDE_PATH:-/usr}/sde/\
+                #    ${TARGET_BINARY_INTERFACE:-m88kdgux}/usr/lib/libm.a
+                #
+                # , the compilation tools expand the environment variables.)
+            }
+            elsif ( $custom_name && -f ( $fullname = "$thispth/$thislib" ) ) {
+            }
+            else {
+                warn "$thislib not found in $thispth\n" if $verbose;
+                next;
+            }
+            warn "'-l$thislib' found at $fullname\n" if $verbose;
+            push @libs, $fullname unless $libs_seen{$fullname}++;
+            $found++;
+            $found_lib++;
+
+            # Now update library lists
+
+            # what do we know about this library...
+            my $is_dyna = ( $fullname !~ /\Q$Config_libext\E\z/ );
+            my $in_perl = ( $libs =~ /\B-l:?\Q${thislib}\E\b/s );
+
+            # include the path to the lib once in the dynamic linker path
+            # but only if it is a dynamic lib and not in Perl itself
+            my ( $fullnamedir ) = dirname( $fullname );
+            push @ld_run_path, $fullnamedir
+              if $is_dyna
+                  && !$in_perl
+                  && !$ld_run_path_seen{$fullnamedir}++;
+
+            # Do not add it into the list if it is already linked in
+            # with the main perl executable.
+            # We have to special-case the NeXT, because math and ndbm
+            # are both in libsys_s
+            unless (
+                $in_perl
+                || ( $Config{'osname'} eq 'next'
+                    && ( $thislib eq 'm' || $thislib eq 'ndbm' ) )
+              )
+            {
+                push( @extralibs, "-l$custom_name$thislib" );
+            }
+
+            # We might be able to load this archive file dynamically
+            if (   ( $Config{'dlsrc'} =~ /dl_next/ && $Config{'osvers'} lt '4_0' )
+                || ( $Config{'dlsrc'} =~ /dl_dld/ ) )
+            {
+
+                # We push -l$thislib instead of $fullname because
+                # it avoids hardwiring a fixed path into the .bs file.
+                # Mkbootstrap will automatically add dl_findfile() to
+                # the .bs file if it sees a name in the -l format.
+                # USE THIS, when dl_findfile() is fixed:
+                # push(@bsloadlibs, "-l$thislib");
+                # OLD USE WAS while checking results against old_extliblist
+                push( @bsloadlibs, "$fullname" );
+            }
+            else {
+                if ( $is_dyna ) {
+
+                    # For SunOS4, do not add in this shared library if
+                    # it is already linked in the main perl executable
+                    push( @ldloadlibs, "-l$custom_name$thislib" )
+                      unless ( $in_perl and $^O eq 'sunos' );
+                }
+                else {
+                    push( @ldloadlibs, "-l$custom_name$thislib" );
+                }
+            }
+            last;    # found one here so don't bother looking further
+        }
+        warn "Warning (mostly harmless): " . "No library found for -l$thislib\n"
+          unless $found_lib > 0;
+    }
+
+    unless ( $found ) {
+        return ( '', '', '', '', ( $give_libs ? \@libs : () ) );
+    }
+    else {
+        return ( "@extralibs", "@bsloadlibs", "@ldloadlibs", join( ":", @ld_run_path ), ( $give_libs ? \@libs : () ) );
+    }
+}
+
+sub _win32_ext {
+
+    require Text::ParseWords;
+
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    # If user did not supply a list, we punt.
+    # (caller should probably use the list in $Config{libs})
+    return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs;
+
+    # TODO: make this use MM_Win32.pm's compiler detection
+    my %libs_seen;
+    my @extralibs;
+    my $cc = $Config{cc} || '';
+    my $VC = $cc =~ /\bcl\b/i;
+    my $GC = $cc =~ /\bgcc\b/i;
+
+    my $libext     = _win32_lib_extensions();
+    my @searchpath = ( '' );                                    # from "-L/path" entries in $potential_libs
+    my @libpath    = _win32_default_search_paths( $VC, $GC );
+    my $pwd        = cwd();                                     # from Cwd.pm
+    my $search     = 1;
+
+    # compute @extralibs from $potential_libs
+    my @lib_search_list = _win32_make_lib_search_list( $potential_libs, $verbose );
+    for ( @lib_search_list ) {
+
+        my $thislib = $_;
+
+        # see if entry is a flag
+        if ( /^:\w+$/ ) {
+            $search = 0 if lc eq ':nosearch';
+            $search = 1 if lc eq ':search';
+            _debug( "Ignoring unknown flag '$thislib'\n", $verbose ) if !/^:(no)?(search|default)$/i;
+            next;
+        }
+
+        # if searching is disabled, do compiler-specific translations
+        unless ( $search ) {
+            s/^-l(.+)$/$1.lib/ unless $GC;
+            s/^-L/-libpath:/ if $VC;
+            push( @extralibs, $_ );
+            next;
+        }
+
+        # handle possible linker path arguments
+        if ( s/^-L// and not -d ) {
+            _debug( "$thislib ignored, directory does not exist\n", $verbose );
+            next;
+        }
+        elsif ( -d ) {
+            unless ( File::Spec->file_name_is_absolute( $_ ) ) {
+                warn "Warning: '$thislib' changed to '-L$pwd/$_'\n";
+                $_ = $self->catdir( $pwd, $_ );
+            }
+            push( @searchpath, $_ );
+            next;
+        }
+
+        my @paths = ( @searchpath, @libpath );
+        my ( $fullname, $path ) = _win32_search_file( $thislib, $libext, \@paths, $verbose, $GC );
+
+        if ( !$fullname ) {
+            warn "Warning (mostly harmless): No library found for $thislib\n";
+            next;
+        }
+
+        _debug( "'$thislib' found as '$fullname'\n", $verbose );
+        push( @extralibs, $fullname );
+        $libs_seen{$fullname} = 1 if $path;    # why is this a special case?
+    }
+
+    my @libs = sort keys %libs_seen;
+
+    return ( '', '', '', '', ( $give_libs ? \@libs : () ) ) unless @extralibs;
+
+    # make sure paths with spaces are properly quoted
+    @extralibs = map { qq["$_"] } @extralibs;
+    @libs      = map { qq["$_"] } @libs;
+
+    my $lib = join( ' ', @extralibs );
+
+    # normalize back to backward slashes (to help braindead tools)
+    # XXX this may break equally braindead GNU tools that don't understand
+    # backslashes, either.  Seems like one can't win here.  Cursed be CP/M.
+    $lib =~ s,/,\\,g;
+
+    _debug( "Result: $lib\n", $verbose );
+    wantarray ? ( $lib, '', $lib, '', ( $give_libs ? \@libs : () ) ) : $lib;
+}
+
+sub _win32_make_lib_search_list {
+    my ( $potential_libs, $verbose ) = @_;
+
+    # If Config.pm defines a set of default libs, we always
+    # tack them on to the user-supplied list, unless the user
+    # specified :nodefault
+    my $libs = $Config{'perllibs'};
+    $potential_libs = join( ' ', $potential_libs, $libs ) if $libs and $potential_libs !~ /:nodefault/i;
+    _debug( "Potential libraries are '$potential_libs':\n", $verbose );
+
+    $potential_libs =~ s,\\,/,g;    # normalize to forward slashes
+
+    my @list = Text::ParseWords::quotewords( '\s+', 0, $potential_libs );
+
+    return @list;
+}
+
+sub _win32_default_search_paths {
+    my ( $VC, $GC ) = @_;
+
+    my $libpth = $Config{'libpth'} || '';
+    $libpth =~ s,\\,/,g;            # normalize to forward slashes
+
+    my @libpath = Text::ParseWords::quotewords( '\s+', 0, $libpth );
+    push @libpath, "$Config{installarchlib}/CORE";    # add "$Config{installarchlib}/CORE" to default search path
+
+    push @libpath, split /;/, $ENV{LIB}          if $VC and $ENV{LIB};
+    push @libpath, split /;/, $ENV{LIBRARY_PATH} if $GC and $ENV{LIBRARY_PATH};
+
+    return @libpath;
+}
+
+sub _win32_search_file {
+    my ( $thislib, $libext, $paths, $verbose, $GC ) = @_;
+
+    my @file_list = _win32_build_file_list( $thislib, $GC, $libext );
+
+    for my $lib_file ( @file_list ) {
+        for my $path ( @{$paths} ) {
+            my $fullname = $lib_file;
+            $fullname = "$path\\$fullname" if $path;
+
+            return ( $fullname, $path ) if -f $fullname;
+
+            _debug( "'$thislib' not found as '$fullname'\n", $verbose );
+        }
+    }
+
+    return;
+}
+
+sub _win32_build_file_list {
+    my ( $lib, $GC, $extensions ) = @_;
+
+    my @pre_fixed = _win32_build_prefixed_list( $lib, $GC );
+    return map _win32_attach_extensions( $_, $extensions ), @pre_fixed;
+}
+
+sub _win32_build_prefixed_list {
+    my ( $lib, $GC ) = @_;
+
+    return $lib if $lib !~ s/^-l//;
+    return $lib if $lib =~ /^lib/ and !$GC;
+
+    ( my $no_prefix = $lib ) =~ s/^lib//i;
+    $lib = "lib$lib" if $no_prefix eq $lib;
+
+    return ( $lib, $no_prefix ) if $GC;
+    return ( $no_prefix, $lib );
+}
+
+sub _win32_attach_extensions {
+    my ( $lib, $extensions ) = @_;
+    return map _win32_try_attach_extension( $lib, $_ ), @{$extensions};
+}
+
+sub _win32_try_attach_extension {
+    my ( $lib, $extension ) = @_;
+
+    return $lib if $lib =~ /\Q$extension\E$/i;
+    return "$lib$extension";
+}
+
+sub _win32_lib_extensions {
+    my @extensions;
+    push @extensions, $Config{'lib_ext'} if $Config{'lib_ext'};
+    push @extensions, '.dll.a' if grep { m!^\.a$! } @extensions;
+    push @extensions, '.lib' unless grep { m!^\.lib$! } @extensions;
+    return \@extensions;
+}
+
+sub _debug {
+    my ( $message, $verbose ) = @_;
+    return if !$verbose;
+    warn $message;
+    return;
+}
+
+sub _vms_ext {
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    my ( @crtls, $crtlstr );
+    @crtls = ( ( $Config{'ldflags'} =~ m-/Debug-i ? $Config{'dbgprefix'} : '' ) . 'PerlShr/Share' );
+    push( @crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'} );
+    push( @crtls, grep { not /\(/ } split /\s+/, $Config{'libc'} );
+
+    # In general, we pass through the basic libraries from %Config unchanged.
+    # The one exception is that if we're building in the Perl source tree, and
+    # a library spec could be resolved via a logical name, we go to some trouble
+    # to insure that the copy in the local tree is used, rather than one to
+    # which a system-wide logical may point.
+    if ( $self->{PERL_SRC} ) {
+        my ( $locspec, $type );
+        foreach my $lib ( @crtls ) {
+            if ( ( $locspec, $type ) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i ) {
+                if    ( lc $type eq '/share' )   { $locspec .= $Config{'exe_ext'}; }
+                elsif ( lc $type eq '/library' ) { $locspec .= $Config{'lib_ext'}; }
+                else                             { $locspec .= $Config{'obj_ext'}; }
+                $locspec = $self->catfile( $self->{PERL_SRC}, $locspec );
+                $lib = "$locspec$type" if -e $locspec;
+            }
+        }
+    }
+    $crtlstr = @crtls ? join( ' ', @crtls ) : '';
+
+    unless ( $potential_libs ) {
+        warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose;
+        return ( '', '', $crtlstr, '', ( $give_libs ? [] : () ) );
+    }
+
+    my ( %found, @fndlibs, $ldlib );
+    my $cwd = cwd();
+    my ( $so, $lib_ext, $obj_ext ) = @Config{ 'so', 'lib_ext', 'obj_ext' };
+
+    # List of common Unix library names and their VMS equivalents
+    # (VMS equivalent of '' indicates that the library is automatically
+    # searched by the linker, and should be skipped here.)
+    my ( @flibs, %libs_seen );
+    my %libmap = (
+        'm'      => '',
+        'f77'    => '',
+        'F77'    => '',
+        'V77'    => '',
+        'c'      => '',
+        'malloc' => '',
+        'crypt'  => '',
+        'resolv' => '',
+        'c_s'    => '',
+        'socket' => '',
+        'X11'    => 'DECW$XLIBSHR',
+        'Xt'     => 'DECW$XTSHR',
+        'Xm'     => 'DECW$XMLIBSHR',
+        'Xmu'    => 'DECW$XMULIBSHR'
+    );
+
+    warn "Potential libraries are '$potential_libs'\n" if $verbose;
+
+    # First, sort out directories and library names in the input
+    my ( @dirs, @libs );
+    foreach my $lib ( split ' ', $potential_libs ) {
+        push( @dirs, $1 ),   next if $lib =~ /^-L(.*)/;
+        push( @dirs, $lib ), next if $lib =~ /[:>\]]$/;
+        push( @dirs, $lib ), next if -d $lib;
+        push( @libs, $1 ),   next if $lib =~ /^-l(.*)/;
+        push( @libs, $lib );
+    }
+    push( @dirs, split( ' ', $Config{'libpth'} ) );
+
+    # Now make sure we've got VMS-syntax absolute directory specs
+    # (We don't, however, check whether someone's hidden a relative
+    # path in a logical name.)
+    foreach my $dir ( @dirs ) {
+        unless ( -d $dir ) {
+            warn "Skipping nonexistent Directory $dir\n" if $verbose > 1;
+            $dir = '';
+            next;
+        }
+        warn "Resolving directory $dir\n" if $verbose;
+        if ( File::Spec->file_name_is_absolute( $dir ) ) {
+            $dir = VMS::Filespec::vmspath( $dir );
+        }
+        else {
+            $dir = $self->catdir( $cwd, $dir );
+        }
+    }
+    @dirs = grep { length( $_ ) } @dirs;
+    unshift( @dirs, '' );    # Check each $lib without additions first
+
+  LIB: foreach my $lib ( @libs ) {
+        if ( exists $libmap{$lib} ) {
+            next unless length $libmap{$lib};
+            $lib = $libmap{$lib};
+        }
+
+        my ( @variants, $cand );
+        my ( $ctype ) = '';
+
+        # If we don't have a file type, consider it a possibly abbreviated name and
+        # check for common variants.  We try these first to grab libraries before
+        # a like-named executable image (e.g. -lperl resolves to perlshr.exe
+        # before perl.exe).
+        if ( $lib !~ /\.[^:>\]]*$/ ) {
+            push( @variants, "${lib}shr", "${lib}rtl", "${lib}lib" );
+            push( @variants, "lib$lib" ) if $lib !~ /[:>\]]/;
+        }
+        push( @variants, $lib );
+        warn "Looking for $lib\n" if $verbose;
+        foreach my $variant ( @variants ) {
+            my ( $fullname, $name );
+
+            foreach my $dir ( @dirs ) {
+                my ( $type );
+
+                $name = "$dir$variant";
+                warn "\tChecking $name\n" if $verbose > 2;
+                $fullname = VMS::Filespec::rmsexpand( $name );
+                if ( defined $fullname and -f $fullname ) {
+
+                    # It's got its own suffix, so we'll have to figure out the type
+                    if    ( $fullname =~ /(?:$so|exe)$/i )      { $type = 'SHR'; }
+                    elsif ( $fullname =~ /(?:$lib_ext|olb)$/i ) { $type = 'OLB'; }
+                    elsif ( $fullname =~ /(?:$obj_ext|obj)$/i ) {
+                        warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n";
+                        $type = 'OBJ';
+                    }
+                    else {
+                        warn "Warning (mostly harmless): " . "Unknown library type for $fullname; assuming shared\n";
+                        $type = 'SHR';
+                    }
+                }
+                elsif (-f ( $fullname = VMS::Filespec::rmsexpand( $name, $so ) )
+                    or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.exe' ) ) )
+                {
+                    $type = 'SHR';
+                    $name = $fullname unless $fullname =~ /exe;?\d*$/i;
+                }
+                elsif (
+                    not length( $ctype ) and    # If we've got a lib already,
+                                                # don't bother
+                    ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $lib_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.olb' ) ) )
+                  )
+                {
+                    $type = 'OLB';
+                    $name = $fullname unless $fullname =~ /olb;?\d*$/i;
+                }
+                elsif (
+                    not length( $ctype ) and    # If we've got a lib already,
+                                                # don't bother
+                    ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $obj_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.obj' ) ) )
+                  )
+                {
+                    warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n";
+                    $type = 'OBJ';
+                    $name = $fullname unless $fullname =~ /obj;?\d*$/i;
+                }
+                if ( defined $type ) {
+                    $ctype = $type;
+                    $cand  = $name;
+                    last if $ctype eq 'SHR';
+                }
+            }
+            if ( $ctype ) {
+
+                push @{ $found{$ctype} }, $cand;
+                warn "\tFound as $cand (really $fullname), type $ctype\n"
+                  if $verbose > 1;
+                push @flibs, $name unless $libs_seen{$fullname}++;
+                next LIB;
+            }
+        }
+        warn "Warning (mostly harmless): " . "No library found for $lib\n";
+    }
+
+    push @fndlibs, @{ $found{OBJ} } if exists $found{OBJ};
+    push @fndlibs, map { "$_/Library" } @{ $found{OLB} } if exists $found{OLB};
+    push @fndlibs, map { "$_/Share" } @{ $found{SHR} }   if exists $found{SHR};
+    my $lib = join( ' ', @fndlibs );
+
+    $ldlib = $crtlstr ? "$lib $crtlstr" : $lib;
+    $ldlib =~ s/^\s+|\s+$//g;
+    warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose;
+    wantarray ? ( $lib, '', $ldlib, '', ( $give_libs ? \@flibs : () ) ) : $lib;
+}
+
+1;
+package Filter::Simple;
+
+use Text::Balanced ':ALL';
+
+our $VERSION = '0.95';
+
+use Filter::Util::Call;
+use Carp;
+
+our @EXPORT = qw( FILTER FILTER_ONLY );
+
+
+sub import {
+    if (@_>1) { shift; goto &FILTER }
+    else      { *{caller()."::$_"} = \&$_ foreach @EXPORT }
+}
+
+sub fail {
+    croak "FILTER_ONLY: ", @_;
+}
+
+my $exql = sub {
+    my @bits = extract_quotelike $_[0], qr//;
+    return unless $bits[0];
+    return \@bits;
+};
+
+my $ncws = qr/\s+/;
+my $comment = qr/(?<![\$\@%])#.*/;
+my $ws = qr/(?:$ncws|$comment)+/;
+my $id = qr/\b(?!([ysm]|q[rqxw]?|tr)\b)\w+/;
+my $EOP = qr/\n\n|\Z/;
+my $CUT = qr/\n=cut.*$EOP/;
+my $pod_or_DATA = qr/
+              ^=(?:head[1-4]|item) .*? $CUT
+            | ^=pod .*? $CUT
+            | ^=for .*? $CUT
+            | ^=begin .*? $CUT
+            | ^__(DATA|END)__\r?\n.*
+            /smx;
+my $variable = qr{
+        [\$*\@%]\s*
+            \{\s*(?!::)(?:\d+|[][&`'#+*./|,";%=~:?!\@<>()-]|\^[A-Z]?)\}
+      | (?:\$#?|[*\@\%]|\\&)\$*\s*
+               (?:  \{\s*(?:\^(?=[A-Z_]))?(?:\w|::|'\w)*\s*\}
+                  |      (?:\^(?=[A-Z_]))?(?:\w|::|'\w)*
+                  | (?=\{)  # ${ block }
+               )
+        )
+      | \$\s*(?!::)(?:\d+|[][&`'#+*./|,";%=~:?!\@<>()-]|\^[A-Z]?)
+   }x;
+
+my %extractor_for = (
+    quotelike  => [ $ws,  $variable, $id, { MATCH  => \&extract_quotelike } ],
+    regex      => [ $ws,  $pod_or_DATA, $id, $exql           ],
+    string     => [ $ws,  $pod_or_DATA, $id, $exql           ],
+    code       => [ $ws, { DONT_MATCH => $pod_or_DATA }, $variable,
+                    $id, { DONT_MATCH => \&extract_quotelike }   ],
+    code_no_comments
+               => [ { DONT_MATCH => $comment },
+                    $ncws, { DONT_MATCH => $pod_or_DATA }, $variable,
+                    $id, { DONT_MATCH => \&extract_quotelike }   ],
+    executable => [ $ws, { DONT_MATCH => $pod_or_DATA }      ],
+    executable_no_comments
+               => [ { DONT_MATCH => $comment },
+                    $ncws, { DONT_MATCH => $pod_or_DATA }      ],
+    all        => [        { MATCH  => qr/(?s:.*)/         } ],
+);
+
+my %selector_for = (
+    all   => sub { my ($t)=@_; sub{ $_=$$_; $t->(@_); $_} },
+    executable=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} }, 
+    quotelike => sub { my ($t)=@_; sub{ref() && do{$_=$$_; $t->(@_)}; $_} },
+    regex     => sub { my ($t)=@_;
+               sub{ref() or return $_;
+                   my ($ql,undef,$pre,$op,$ld,$pat) = @$_;
+                   return $_->[0] unless $op =~ /^(qr|m|s)/
+                         || !$op && ($ld eq '/' || $ld eq '?');
+                   $_ = $pat;
+                   $t->(@_);
+                   $ql =~ s/^(\s*\Q$op\E\s*\Q$ld\E)\Q$pat\E/$1$_/;
+                   return "$pre$ql";
+                  };
+            },
+    string     => sub { my ($t)=@_;
+               sub{ref() or return $_;
+                   local *args = \@_;
+                   my ($pre,$op,$ld1,$str1,$rd1,$ld2,$str2,$rd2,$flg) = @{$_}[2..10];
+                   return $_->[0] if $op =~ /^(qr|m)/
+                         || !$op && ($ld1 eq '/' || $ld1 eq '?');
+                   if (!$op || $op eq 'tr' || $op eq 'y') {
+                       local *_ = \$str1;
+                       $t->(@args);
+                   }
+                   if ($op =~ /^(tr|y|s)/) {
+                       local *_ = \$str2;
+                       $t->(@args);
+                   }
+                   my $result = "$pre$op$ld1$str1$rd1";
+                   $result .= $ld2 if $ld1 =~ m/[[({<]/; #])}>
+                   $result .= "$str2$rd2$flg";
+                   return $result;
+                  };
+              },
+);
+
+
+sub gen_std_filter_for {
+    my ($type, $transform) = @_;
+    return sub {
+        my $instr;
+        local @components;
+		for (extract_multiple($_,$extractor_for{$type})) {
+            if (ref())     { push @components, $_; $instr=0 }
+            elsif ($instr) { $components[-1] .= $_ }
+            else           { push @components, $_; $instr=1 }
+        }
+        if ($type =~ /^code/) {
+            my $count = 0;
+            local $placeholder = qr/\Q$;\E(.{4})\Q$;\E/s;
+            my $extractor =      qr/\Q$;\E(.{4})\Q$;\E/s;
+            $_ = join "",
+                  map { ref $_ ? $;.pack('N',$count++).$; : $_ }
+                      @components;
+            @components = grep { ref $_ } @components;
+            $transform->(@_);
+            s/$extractor/${$components[unpack('N',$1)]}/g;
+        }
+        else {
+            my $selector = $selector_for{$type}->($transform);
+            $_ = join "", map $selector->(@_), @components;
+        }
+    }
+};
+
+sub FILTER (&;$) {
+    my $caller = caller;
+    my ($filter, $terminator) = @_;
+    no warnings 'redefine';
+    *{"${caller}::import"} = gen_filter_import($caller,$filter,$terminator);
+    *{"${caller}::unimport"} = gen_filter_unimport($caller);
+}
+
+sub FILTER_ONLY {
+    my $caller = caller;
+    while (@_ > 1) {
+        my ($what, $how) = splice(@_, 0, 2);
+        fail "Unknown selector: $what"
+            unless exists $extractor_for{$what};
+        fail "Filter for $what is not a subroutine reference"
+            unless ref $how eq 'CODE';
+        push @transforms, gen_std_filter_for($what,$how);
+    }
+    my $terminator = shift;
+
+    my $multitransform = sub {
+        foreach my $transform ( @transforms ) {
+            $transform->(@_);
+        }
+    };
+    no warnings 'redefine';
+    *{"${caller}::import"} =
+        gen_filter_import($caller,$multitransform,$terminator);
+    *{"${caller}::unimport"} = gen_filter_unimport($caller);
+}
+
+my $ows    = qr/(?:[ \t]+|#[^\n]*)*/;
+
+sub gen_filter_import {
+    my ($class, $filter, $terminator) = @_;
+    my %terminator;
+    my $prev_import = *{$class."::import"}{CODE};
+    return sub {
+        my ($imported_class, @args) = @_;
+        my $def_terminator =
+            qr/^(?:\s*no\s+$imported_class\s*;$ows|__(?:END|DATA)__)\r?$/;
+        if (!defined $terminator) {
+            $terminator{terminator} = $def_terminator;
+        }
+        elsif (!ref $terminator || ref $terminator eq 'Regexp') {
+            $terminator{terminator} = $terminator;
+        }
+        elsif (ref $terminator ne 'HASH') {
+            croak "Terminator must be specified as scalar or hash ref"
+        }
+        elsif (!exists $terminator->{terminator}) {
+            $terminator{terminator} = $def_terminator;
+        }
+        filter_add(
+            sub {
+                my ($status, $lastline);
+                my $count = 0;
+                my $data = "";
+                while ($status = filter_read()) {
+                    return $status if $status < 0;
+                    if ($terminator{terminator} &&
+                        m/$terminator{terminator}/) {
+                        $lastline = $_;
+                        $count++;
+                        last;
+                    }
+                    $data .= $_;
+                    $count++;
+                    $_ = "";
+                }
+                return $count if not $count;
+                $_ = $data;
+                $filter->($imported_class, @args) unless $status < 0;
+                if (defined $lastline) {
+                    if (defined $terminator{becomes}) {
+                        $_ .= $terminator{becomes};
+                    }
+                    elsif ($lastline =~ $def_terminator) {
+                        $_ .= $lastline;
+                    }
+                }
+                return $count;
+            }
+        );
+        if ($prev_import) {
+            goto &$prev_import;
+        }
+        elsif ($class->isa('Exporter')) {
+            $class->export_to_level(1,@_);
+        }
+    }
+}
+
+sub gen_filter_unimport {
+    my ($class) = @_;
+    return sub {
+        filter_del();
+        goto &$prev_unimport if $prev_unimport;
+    }
+}
+
+1;
+
+__END__
+
+# B::Deparse.pm
+# Copyright (c) 1998-2000, 2002, 2003, 2004, 2005, 2006 Stephen McCamant.
+# All rights reserved.
+# This module is free software; you can redistribute and/or modify
+# it under the same terms as Perl itself.
+
+# This is based on the module of the same name by Malcolm Beattie,
+# but essentially none of his code remains.
+
+package B::Deparse;
+use Carp;
+use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
+	 OPf_WANT OPf_WANT_VOID OPf_WANT_SCALAR OPf_WANT_LIST
+	 OPf_KIDS OPf_REF OPf_STACKED OPf_SPECIAL OPf_MOD OPf_PARENS
+	 OPpLVAL_INTRO OPpOUR_INTRO OPpENTERSUB_AMPER OPpSLICE OPpKVSLICE
+         OPpCONST_BARE
+	 OPpTRANS_SQUASH OPpTRANS_DELETE OPpTRANS_COMPLEMENT OPpTARGET_MY
+	 OPpEXISTS_SUB OPpSORT_NUMERIC OPpSORT_INTEGER OPpREPEAT_DOLIST
+	 OPpSORT_REVERSE OPpMULTIDEREF_EXISTS OPpMULTIDEREF_DELETE
+         OPpSPLIT_ASSIGN OPpSPLIT_LEX
+         OPpPADHV_ISKEYS OPpRV2HV_ISKEYS
+         OPpCONCAT_NESTED
+         OPpMULTICONCAT_APPEND OPpMULTICONCAT_STRINGIFY OPpMULTICONCAT_FAKE
+         OPpTRUEBOOL OPpINDEX_BOOLNEG
+	 SVf_IOK SVf_NOK SVf_ROK SVf_POK SVpad_OUR SVf_FAKE SVs_RMG SVs_SMG
+	 SVs_PADTMP SVpad_TYPED
+         CVf_METHOD CVf_LVALUE
+	 PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
+	 PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED PMf_EXTENDED_MORE
+	 PADNAMEt_OUTER
+        MDEREF_reload
+        MDEREF_AV_pop_rv2av_aelem
+        MDEREF_AV_gvsv_vivify_rv2av_aelem
+        MDEREF_AV_padsv_vivify_rv2av_aelem
+        MDEREF_AV_vivify_rv2av_aelem
+        MDEREF_AV_padav_aelem
+        MDEREF_AV_gvav_aelem
+        MDEREF_HV_pop_rv2hv_helem
+        MDEREF_HV_gvsv_vivify_rv2hv_helem
+        MDEREF_HV_padsv_vivify_rv2hv_helem
+        MDEREF_HV_vivify_rv2hv_helem
+        MDEREF_HV_padhv_helem
+        MDEREF_HV_gvhv_helem
+        MDEREF_ACTION_MASK
+        MDEREF_INDEX_none
+        MDEREF_INDEX_const
+        MDEREF_INDEX_padsv
+        MDEREF_INDEX_gvsv
+        MDEREF_INDEX_MASK
+        MDEREF_FLAG_last
+        MDEREF_MASK
+        MDEREF_SHIFT
+    );
+
+$VERSION = '1.48';
+use strict;
+our $AUTOLOAD;
+use warnings ();
+require feature;
+
+use Config;
+
+BEGIN {
+    # List version-specific constants here.
+    # Easiest way to keep this code portable between version looks to
+    # be to fake up a dummy constant that will never actually be true.
+    foreach (qw(OPpSORT_INPLACE OPpSORT_DESCEND OPpITER_REVERSED OPpCONST_NOVER
+		OPpPAD_STATE PMf_SKIPWHITE RXf_SKIPWHITE
+		PMf_CHARSET PMf_KEEPCOPY PMf_NOCAPTURE CVf_ANONCONST
+		CVf_LOCKED OPpREVERSE_INPLACE OPpSUBSTR_REPL_FIRST
+		PMf_NONDESTRUCT OPpCONST_ARYBASE OPpEVAL_BYTES
+		OPpLVREF_TYPE OPpLVREF_SV OPpLVREF_AV OPpLVREF_HV
+		OPpLVREF_CV OPpLVREF_ELEM SVpad_STATE)) {
+	eval { B->import($_) };
+	no strict 'refs';
+	*{$_} = sub () {0} unless *{$_}{CODE};
+    }
+}
+
+# Todo:
+#  (See also BUGS section at the end of this file)
+#
+# - finish tr/// changes
+# - add option for even more parens (generalize \&foo change)
+# - left/right context
+# - copy comments (look at real text with $^P?)
+# - avoid semis in one-statement blocks
+# - associativity of &&=, ||=, ?:
+# - ',' => '=>' (auto-unquote?)
+# - break long lines ("\r" as discretionary break?)
+# - configurable syntax highlighting: ANSI color, HTML, TeX, etc.
+# - more style options: brace style, hex vs. octal, quotes, ...
+# - print big ints as hex/octal instead of decimal (heuristic?)
+# - handle 'my $x if 0'?
+# - version using op_next instead of op_first/sibling?
+# - avoid string copies (pass arrays, one big join?)
+# - here-docs?
+
+# Current test.deparse failures
+# comp/hints 6 - location of BEGIN blocks wrt. block openings
+# run/switchI 1 - missing -I switches entirely
+#    perl -Ifoo -e 'print @INC'
+# op/caller 2 - warning mask propagates backwards before warnings::register
+#    'use warnings; BEGIN {${^WARNING_BITS} eq "U"x12;} use warnings::register'
+# op/getpid 2 - can't assign to shared my() declaration (threads only)
+#    'my $x : shared = 5'
+# op/override 7 - parens on overridden require change v-string interpretation
+#    'BEGIN{*CORE::GLOBAL::require=sub {}} require v5.6'
+#    c.f. 'BEGIN { *f = sub {0} }; f 2'
+# op/pat 774 - losing Unicode-ness of Latin1-only strings
+#    'use charnames ":short"; $x="\N{latin:a with acute}"'
+# op/recurse 12 - missing parens on recursive call makes it look like method
+#    'sub f { f($x) }'
+# op/subst 90 - inconsistent handling of utf8 under "use utf8"
+# op/taint 29 - "use re 'taint'" deparsed in the wrong place wrt. block open
+# op/tiehandle compile - "use strict" deparsed in the wrong place
+# uni/tr_ several
+# ext/B/t/xref 11 - line numbers when we add newlines to one-line subs
+# ext/Data/Dumper/t/dumper compile
+# ext/DB_file/several
+# ext/Encode/several
+# ext/Ernno/Errno warnings
+# ext/IO/lib/IO/t/io_sel 23
+# ext/PerlIO/t/encoding compile
+# ext/POSIX/t/posix 6
+# ext/Socket/Socket 8
+# ext/Storable/t/croak compile
+# lib/Attribute/Handlers/t/multi compile
+# lib/bignum/ several
+# lib/charnames 35
+# lib/constant 32
+# lib/English 40
+# lib/ExtUtils/t/bytes 4
+# lib/File/DosGlob compile
+# lib/Filter/Simple/t/data 1
+# lib/Math/BigInt/t/constant 1
+# lib/Net/t/config Deparse-warning
+# lib/overload compile
+# lib/Switch/ several
+# lib/Symbol 4
+# lib/Test/Simple several
+# lib/Term/Complete
+# lib/Tie/File/t/29_downcopy 5
+# lib/vars 22
+
+# Object fields:
+#
+# in_coderef2text:
+# True when deparsing via $deparse->coderef2text; false when deparsing the
+# main program.
+#
+# avoid_local:
+# (local($a), local($b)) and local($a, $b) have the same internal
+# representation but the short form looks better. We notice we can
+# use a large-scale local when checking the list, but need to prevent
+# individual locals too. This hash holds the addresses of OPs that
+# have already had their local-ness accounted for. The same thing
+# is done with my().
+#
+# curcv:
+# CV for current sub (or main program) being deparsed
+#
+# curcvlex:
+# Cached hash of lexical variables for curcv: keys are
+# names prefixed with "m" or "o" (representing my/our), and
+# each value is an array with two elements indicating the cop_seq
+# of scopes in which a var of that name is valid and a third ele-
+# ment referencing the pad name.
+#
+# curcop:
+# COP for statement being deparsed
+#
+# curstash:
+# name of the current package for deparsed code
+#
+# subs_todo:
+# array of [cop_seq, CV, is_format?, name] for subs and formats we still
+# want to deparse.  The fourth element is a pad name thingy for lexical
+# subs or a string for special blocks.  For other subs, it is undef.  For
+# lexical subs, CV may be undef, indicating a stub declaration.
+#
+# protos_todo:
+# as above, but [name, prototype] for subs that never got a GV
+#
+# subs_done, forms_done:
+# keys are addresses of GVs for subs and formats we've already
+# deparsed (or at least put into subs_todo)
+#
+# subs_declared
+# keys are names of subs for which we've printed declarations.
+# That means we can omit parentheses from the arguments. It also means we
+# need to put CORE:: on core functions of the same name.
+#
+# in_subst_repl
+# True when deparsing the replacement part of a substitution.
+#
+# in_refgen
+# True when deparsing the argument to \.
+#
+# parens: -p
+# linenums: -l
+# unquote: -q
+# cuddle: ' ' or '\n', depending on -sC
+# indent_size: -si
+# use_tabs: -sT
+# ex_const: -sv
+
+# A little explanation of how precedence contexts and associativity
+# work:
+#
+# deparse() calls each per-op subroutine with an argument $cx (short
+# for context, but not the same as the cx* in the perl core), which is
+# a number describing the op's parents in terms of precedence, whether
+# they're inside an expression or at statement level, etc.  (see
+# chart below). When ops with children call deparse on them, they pass
+# along their precedence. Fractional values are used to implement
+# associativity ('($x + $y) + $z' => '$x + $y + $y') and related
+# parentheses hacks. The major disadvantage of this scheme is that
+# it doesn't know about right sides and left sides, so say if you
+# assign a listop to a variable, it can't tell it's allowed to leave
+# the parens off the listop.
+
+# Precedences:
+# 26             [TODO] inside interpolation context ("")
+# 25 left        terms and list operators (leftward)
+# 24 left        ->
+# 23 nonassoc    ++ --
+# 22 right       **
+# 21 right       ! ~ \ and unary + and -
+# 20 left        =~ !~
+# 19 left        * / % x
+# 18 left        + - .
+# 17 left        << >>
+# 16 nonassoc    named unary operators
+# 15 nonassoc    < > <= >= lt gt le ge
+# 14 nonassoc    == != <=> eq ne cmp
+# 13 left        &
+# 12 left        | ^
+# 11 left        &&
+# 10 left        ||
+#  9 nonassoc    ..  ...
+#  8 right       ?:
+#  7 right       = += -= *= etc.
+#  6 left        , =>
+#  5 nonassoc    list operators (rightward)
+#  4 right       not
+#  3 left        and
+#  2 left        or xor
+#  1             statement modifiers
+#  0.5           statements, but still print scopes as do { ... }
+#  0             statement level
+# -1             format body
+
+# Nonprinting characters with special meaning:
+# \cS - steal parens (see maybe_parens_unop)
+# \n - newline and indent
+# \t - increase indent
+# \b - decrease indent ('outdent')
+# \f - flush left (no indent)
+# \cK - kill following semicolon, if any
+
+# Semicolon handling:
+#  - Individual statements are not deparsed with trailing semicolons.
+#    (If necessary, \cK is tacked on to the end.)
+#  - Whatever code joins statements together or emits them (lineseq,
+#    scopeop, deparse_root) is responsible for adding semicolons where
+#    necessary.
+#  - use statements are deparsed with trailing semicolons because they are
+#    immediately concatenated with the following statement.
+#  - indent() removes semicolons wherever it sees \cK.
+
+
+BEGIN { for (qw[ const stringify rv2sv list glob pushmark null aelem
+		 kvaslice kvhslice padsv
+                 nextstate dbstate rv2av rv2hv helem custom ]) {
+    eval "sub OP_\U$_ () { " . opnumber($_) . "}"
+}}
+
+# _pessimise_walk(): recursively walk the optree of a sub,
+# possibly undoing optimisations along the way.
+
+sub _pessimise_walk {
+    my ($self, $startop) = @_;
+
+    return unless $$startop;
+    my ($op, $prevop);
+    for ($op = $startop; $$op; $prevop = $op, $op = $op->sibling) {
+	my $ppname = $op->name;
+
+	# pessimisations start here
+
+	if ($ppname eq "padrange") {
+	    # remove PADRANGE:
+	    # the original optimisation either (1) changed this:
+	    #    pushmark -> (various pad and list and null ops) -> the_rest
+	    # or (2), for the = @_ case, changed this:
+	    #    pushmark -> gv[_] -> rv2av -> (pad stuff)       -> the_rest
+	    # into this:
+	    #    padrange ----------------------------------------> the_rest
+	    # so we just need to convert the padrange back into a
+	    # pushmark, and in case (1), set its op_next to op_sibling,
+	    # which is the head of the original chain of optimised-away
+	    # pad ops, or for (2), set it to sibling->first, which is
+	    # the original gv[_].
+
+	    $B::overlay->{$$op} = {
+		    type => OP_PUSHMARK,
+		    name => 'pushmark',
+		    private => ($op->private & OPpLVAL_INTRO),
+	    };
+	}
+
+	# pessimisations end here
+
+	if (class($op) eq 'PMOP') {
+	    if (ref($op->pmreplroot)
+                && ${$op->pmreplroot}
+                && $op->pmreplroot->isa( 'B::OP' ))
+            {
+                $self-> _pessimise_walk($op->pmreplroot);
+            }
+
+            # pessimise any /(?{...})/ code blocks
+            my ($re, $cv);
+            my $code_list = $op->code_list;
+            if ($$code_list) {
+                $self->_pessimise_walk($code_list);
+            }
+            elsif (${$re = $op->pmregexp} && ${$cv = $re->qr_anoncv}) {
+                $code_list = $cv->ROOT      # leavesub
+                               ->first      #   qr
+                               ->code_list; #     list
+                $self->_pessimise_walk($code_list);
+            }
+        }
+
+	if ($op->flags & OPf_KIDS) {
+	    $self-> _pessimise_walk($op->first);
+	}
+
+    }
+}
+
+
+# _pessimise_walk_exe(): recursively walk the op_next chain of a sub,
+# possibly undoing optimisations along the way.
+
+sub _pessimise_walk_exe {
+    my ($self, $startop, $visited) = @_;
+
+    no warnings 'recursion';
+
+    return unless $$startop;
+    return if $visited->{$$startop};
+    my ($op, $prevop);
+    for ($op = $startop; $$op; $prevop = $op, $op = $op->next) {
+	last if $visited->{$$op};
+	$visited->{$$op} = 1;
+	my $ppname = $op->name;
+	if ($ppname =~
+	    /^((and|d?or)(assign)?|(map|grep)while|range|cond_expr|once)$/
+	    # entertry is also a logop, but its op_other invariably points
+	    # into the same chain as the main execution path, so we skip it
+	) {
+	    $self->_pessimise_walk_exe($op->other, $visited);
+	}
+	elsif ($ppname eq "subst") {
+	    $self->_pessimise_walk_exe($op->pmreplstart, $visited);
+	}
+	elsif ($ppname =~ /^(enter(loop|iter))$/) {
+	    # redoop and nextop will already be covered by the main block
+	    # of the loop
+	    $self->_pessimise_walk_exe($op->lastop, $visited);
+	}
+
+	# pessimisations start here
+    }
+}
+
+# Go through an optree and "remove" some optimisations by using an
+# overlay to selectively modify or un-null some ops. Deparsing in the
+# absence of those optimisations is then easier.
+#
+# Note that older optimisations are not removed, as Deparse was already
+# written to recognise them before the pessimise/overlay system was added.
+
+sub pessimise {
+    my ($self, $root, $start) = @_;
+
+    no warnings 'recursion';
+    # walk tree in root-to-branch order
+    $self->_pessimise_walk($root);
+
+    my %visited;
+    # walk tree in execution order
+    $self->_pessimise_walk_exe($start, \%visited);
+}
+
+
+sub null {
+    my $op = shift;
+    return class($op) eq "NULL";
+}
+
+
+# Add a CV to the list of subs that still need deparsing.
+
+sub todo {
+    my $self = shift;
+    my($cv, $is_form, $name) = @_;
+    my $cvfile = $cv->FILE//'';
+    return unless ($cvfile eq $0 || exists $self->{files}{$cvfile});
+    my $seq;
+    if ($cv->OUTSIDE_SEQ) {
+	$seq = $cv->OUTSIDE_SEQ;
+    } elsif (!null($cv->START) and is_state($cv->START)) {
+	$seq = $cv->START->cop_seq;
+    } else {
+	$seq = 0;
+    }
+    my $stash = $cv->STASH;
+    if (class($stash) eq 'HV') {
+        $self->{packs}{$stash->NAME}++;
+    }
+    push @{$self->{'subs_todo'}}, [$seq, $cv, $is_form, $name];
+}
+
+
+# Pop the next sub from the todo list and deparse it
+
+sub next_todo {
+    my $self = shift;
+    my $ent = shift @{$self->{'subs_todo'}};
+    my ($seq, $cv, $is_form, $name) = @$ent;
+
+    # any 'use strict; package foo' that should come before the sub
+    # declaration to sync with the first COP of the sub
+    my $pragmata = '';
+    if ($cv and !null($cv->START) and is_state($cv->START))  {
+        $pragmata = $self->pragmata($cv->START);
+    }
+
+    if (ref $name) { # lexical sub
+	# emit the sub.
+	my @text;
+	my $flags = $name->FLAGS;
+	push @text,
+	    !$cv || $seq <= $name->COP_SEQ_RANGE_LOW
+		? $self->keyword($flags & SVpad_OUR
+				    ? "our"
+				    : $flags & SVpad_STATE
+					? "state"
+					: "my") . " "
+		: "";
+	# XXX We would do $self->keyword("sub"), but ‘my CORE::sub’
+	#     doesn’t work and ‘my sub’ ignores a &sub in scope.  I.e.,
+	#     we have a core bug here.
+	push @text, "sub " . substr $name->PVX, 1;
+	if ($cv) {
+	    # my sub foo { }
+	    push @text,  " " . $self->deparse_sub($cv);
+	    $text[-1] =~ s/ ;$/;/;
+	}
+	else {
+	    # my sub foo;
+	    push @text, ";\n";
+	}
+	return $pragmata . join "", @text;
+    }
+
+    my $gv = $cv->GV;
+    $name //= $self->gv_name($gv);
+    if ($is_form) {
+	return $pragmata . $self->keyword("format") . " $name =\n"
+	    . $self->deparse_format($cv). "\n";
+    } else {
+	my $use_dec;
+	if ($name eq "BEGIN") {
+	    $use_dec = $self->begin_is_use($cv);
+	    if (defined ($use_dec) and $self->{'expand'} < 5) {
+		return $pragmata if 0 == length($use_dec);
+
+                #  XXX bit of a hack: Test::More's use_ok() method
+                #  builds a fake use statement which deparses as, e.g.
+                #      use Net::Ping (@{$args[0];});
+                #  As well as being superfluous (the use_ok() is deparsed
+                #  too) and ugly, it fails under use strict and otherwise
+                #  makes use of a lexical var that's not in scope.
+                #  So strip it out.
+                return $pragmata
+                        if $use_dec =~
+                            m/
+                                \A
+                                use \s \S+ \s \(\@\{
+                                (
+                                    \s*\#line\ \d+\ \".*"\s*
+                                )?
+                                \$args\[0\];\}\);
+                                \n
+                                \Z
+                            /x;
+
+		$use_dec =~ s/^(use|no)\b/$self->keyword($1)/e;
+	    }
+	}
+	my $l = '';
+	if ($self->{'linenums'}) {
+	    my $line = $gv->LINE;
+	    my $file = $gv->FILE;
+	    $l = "\n\f#line $line \"$file\"\n";
+	}
+	my $p = '';
+	my $stash;
+	if (class($cv->STASH) ne "SPECIAL") {
+	    $stash = $cv->STASH->NAME;
+	    if ($stash ne $self->{'curstash'}) {
+		$p = $self->keyword("package") . " $stash;\n";
+		$name = "$self->{'curstash'}::$name" unless $name =~ /::/;
+		$self->{'curstash'} = $stash;
+	    }
+	}
+	if ($use_dec) {
+	    return "$pragmata$p$l$use_dec";
+	}
+        if ( $name !~ /::/ and $self->lex_in_scope("&$name")
+                            || $self->lex_in_scope("&$name", 1) )
+        {
+            $name = "$self->{'curstash'}::$name";
+        } elsif (defined $stash) {
+            $name =~ s/^\Q$stash\E::(?!\z|.*::)//;
+        }
+	my $ret = "$pragmata${p}${l}" . $self->keyword("sub") . " $name "
+	      . $self->deparse_sub($cv);
+	$self->{'subs_declared'}{$name} = 1;
+	return $ret;
+    }
+}
+
+
+# Return a "use" declaration for this BEGIN block, if appropriate
+sub begin_is_use {
+    my ($self, $cv) = @_;
+    my $root = $cv->ROOT;
+    local @$self{qw'curcv curcvlex'} = ($cv);
+    local $B::overlay = {};
+    $self->pessimise($root, $cv->START);
+#require B::Debug;
+#B::walkoptree($cv->ROOT, "debug");
+    my $lineseq = $root->first;
+    return if $lineseq->name ne "lineseq";
+
+    my $req_op = $lineseq->first->sibling;
+    return if $req_op->name ne "require";
+
+    # maybe it's C<require expr> rather than C<require 'foo'>
+    return if ($req_op->first->name ne 'const');
+
+    my $module;
+    if ($req_op->first->private & OPpCONST_BARE) {
+	# Actually it should always be a bareword
+	$module = $self->const_sv($req_op->first)->PV;
+	$module =~ s[/][::]g;
+	$module =~ s/.pm$//;
+    }
+    else {
+	$module = $self->const($self->const_sv($req_op->first), 6);
+    }
+
+    my $version;
+    my $version_op = $req_op->sibling;
+    return if class($version_op) eq "NULL";
+    if ($version_op->name eq "lineseq") {
+	# We have a version parameter; skip nextstate & pushmark
+	my $constop = $version_op->first->next->next;
+
+	return unless $self->const_sv($constop)->PV eq $module;
+	$constop = $constop->sibling;
+	$version = $self->const_sv($constop);
+	if (class($version) eq "IV") {
+	    $version = $version->int_value;
+	} elsif (class($version) eq "NV") {
+	    $version = $version->NV;
+	} elsif (class($version) ne "PVMG") {
+	    # Includes PVIV and PVNV
+	    $version = $version->PV;
+	} else {
+	    # version specified as a v-string
+	    $version = 'v'.join '.', map ord, split //, $version->PV;
+	}
+	$constop = $constop->sibling;
+	return if $constop->name ne "method_named";
+	return if $self->meth_sv($constop)->PV ne "VERSION";
+    }
+
+    $lineseq = $version_op->sibling;
+    return if $lineseq->name ne "lineseq";
+    my $entersub = $lineseq->first->sibling;
+    if ($entersub->name eq "stub") {
+	return "use $module $version ();\n" if defined $version;
+	return "use $module ();\n";
+    }
+    return if $entersub->name ne "entersub";
+
+    # See if there are import arguments
+    my $args = '';
+
+    my $svop = $entersub->first->sibling; # Skip over pushmark
+    return unless $self->const_sv($svop)->PV eq $module;
+
+    # Pull out the arguments
+    for ($svop=$svop->sibling; index($svop->name, "method_") != 0;
+		$svop = $svop->sibling) {
+	$args .= ", " if length($args);
+	$args .= $self->deparse($svop, 6);
+    }
+
+    my $use = 'use';
+    my $method_named = $svop;
+    return if $method_named->name ne "method_named";
+    my $method_name = $self->meth_sv($method_named)->PV;
+
+    if ($method_name eq "unimport") {
+	$use = 'no';
+    }
+
+    # Certain pragmas are dealt with using hint bits,
+    # so we ignore them here
+    if ($module eq 'strict' || $module eq 'integer'
+	|| $module eq 'bytes' || $module eq 'warnings'
+	|| $module eq 'feature') {
+	return "";
+    }
+
+    if (defined $version && length $args) {
+	return "$use $module $version ($args);\n";
+    } elsif (defined $version) {
+	return "$use $module $version;\n";
+    } elsif (length $args) {
+	return "$use $module ($args);\n";
+    } else {
+	return "$use $module;\n";
+    }
+}
+
+sub stash_subs {
+    my ($self, $pack, $seen) = @_;
+    my (@ret, $stash);
+    if (!defined $pack) {
+	$pack = '';
+	$stash = \%::;
+    }
+    else {
+	$pack =~ s/(::)?$/::/;
+	no strict 'refs';
+	$stash = \%{"main::$pack"};
+    }
+    return
+	if ($seen ||= {})->{
+	    $INC{"overload.pm"} ? overload::StrVal($stash) : $stash
+	   }++;
+    my $stashobj = svref_2object($stash);
+    my %stash = $stashobj->ARRAY;
+    while (my ($key, $val) = each %stash) {
+	my $flags = $val->FLAGS;
+	if ($flags & SVf_ROK) {
+	    # A reference.  Dump this if it is a reference to a CV.  If it
+	    # is a constant acting as a proxy for a full subroutine, then
+	    # we may or may not have to dump it.  If some form of perl-
+	    # space visible code must have created it, be it a use
+	    # statement, or some direct symbol-table manipulation code that
+	    # we will deparse, then we don’t want to dump it.  If it is the
+	    # result of a declaration like sub f () { 42 } then we *do*
+	    # want to dump it.  The only way to distinguish these seems
+	    # to be the SVs_PADTMP flag on the constant, which is admit-
+	    # tedly a hack.
+	    my $class = class(my $referent = $val->RV);
+	    if ($class eq "CV") {
+		$self->todo($referent, 0);
+	    } elsif (
+		$class !~ /^(AV|HV|CV|FM|IO|SPECIAL)\z/
+		# A more robust way to write that would be this, but B does
+		# not provide the SVt_ constants:
+		# ($referent->FLAGS & B::SVTYPEMASK) < B::SVt_PVAV
+		and $referent->FLAGS & SVs_PADTMP
+	    ) {
+		push @{$self->{'protos_todo'}}, [$pack . $key, $val];
+	    }
+	} elsif ($flags & (SVf_POK|SVf_IOK)) {
+	    # Just a prototype. As an ugly but fairly effective way
+	    # to find out if it belongs here is to see if the AUTOLOAD
+	    # (if any) for the stash was defined in one of our files.
+	    my $A = $stash{"AUTOLOAD"};
+	    if (defined ($A) && class($A) eq "GV" && defined($A->CV)
+		&& class($A->CV) eq "CV") {
+		my $AF = $A->FILE;
+		next unless $AF eq $0 || exists $self->{'files'}{$AF};
+	    }
+	    push @{$self->{'protos_todo'}},
+		 [$pack . $key, $flags & SVf_POK ? $val->PV: undef];
+	} elsif (class($val) eq "GV") {
+	    if (class(my $cv = $val->CV) ne "SPECIAL") {
+		next if $self->{'subs_done'}{$$val}++;
+
+                # Ignore imposters (aliases etc)
+                my $name = $cv->NAME_HEK;
+                if(defined $name) {
+                    # avoid using $cv->GV here because if the $val GV is
+                    # an alias, CvGV() could upgrade the real stash entry
+                    # from an RV to a GV
+                    next unless $name eq $key;
+                    next unless $$stashobj == ${$cv->STASH};
+                }
+                else {
+                   next if $$val != ${$cv->GV};
+                }
+
+		$self->todo($cv, 0);
+	    }
+	    if (class(my $cv = $val->FORM) ne "SPECIAL") {
+		next if $self->{'forms_done'}{$$val}++;
+		next if $$val != ${$cv->GV};   # Ignore imposters
+		$self->todo($cv, 1);
+	    }
+	    if (class($val->HV) ne "SPECIAL" && $key =~ /::$/) {
+		$self->stash_subs($pack . $key, $seen);
+	    }
+	}
+    }
+}
+
+sub print_protos {
+    my $self = shift;
+    my $ar;
+    my @ret;
+    foreach $ar (@{$self->{'protos_todo'}}) {
+	if (ref $ar->[1]) {
+	    # Only print a constant if it occurs in the same package as a
+	    # dumped sub.  This is not perfect, but a heuristic that will
+	    # hopefully work most of the time.  Ideally we would use
+	    # CvFILE, but a constant stub has no CvFILE.
+	    my $pack = ($ar->[0] =~ /(.*)::/)[0];
+	    next if $pack and !$self->{packs}{$pack}
+	}
+	my $body = defined $ar->[1]
+		? ref $ar->[1]
+		    ? " () {\n    " . $self->const($ar->[1]->RV,0) . ";\n}"
+		    : " (". $ar->[1] . ");"
+		: ";";
+	push @ret, "sub " . $ar->[0] .  "$body\n";
+    }
+    delete $self->{'protos_todo'};
+    return @ret;
+}
+
+sub style_opts {
+    my $self = shift;
+    my $opts = shift;
+    my $opt;
+    while (length($opt = substr($opts, 0, 1))) {
+	if ($opt eq "C") {
+	    $self->{'cuddle'} = " ";
+	    $opts = substr($opts, 1);
+	} elsif ($opt eq "i") {
+	    $opts =~ s/^i(\d+)//;
+	    $self->{'indent_size'} = $1;
+	} elsif ($opt eq "T") {
+	    $self->{'use_tabs'} = 1;
+	    $opts = substr($opts, 1);
+	} elsif ($opt eq "v") {
+	    $opts =~ s/^v([^.]*)(.|$)//;
+	    $self->{'ex_const'} = $1;
+	}
+    }
+}
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+    $self->{'cuddle'} = "\n";
+    $self->{'curcop'} = undef;
+    $self->{'curstash'} = "main";
+    $self->{'ex_const'} = "'???'";
+    $self->{'expand'} = 0;
+    $self->{'files'} = {};
+    $self->{'packs'} = {};
+    $self->{'indent_size'} = 4;
+    $self->{'linenums'} = 0;
+    $self->{'parens'} = 0;
+    $self->{'subs_todo'} = [];
+    $self->{'unquote'} = 0;
+    $self->{'use_dumper'} = 0;
+    $self->{'use_tabs'} = 0;
+
+    $self->{'ambient_arybase'} = 0;
+    $self->{'ambient_warnings'} = undef; # Assume no lexical warnings
+    $self->{'ambient_hints'} = 0;
+    $self->{'ambient_hinthash'} = undef;
+    $self->init();
+
+    while (my $arg = shift @_) {
+	if ($arg eq "-d") {
+	    $self->{'use_dumper'} = 1;
+	    require Data::Dumper;
+	} elsif ($arg =~ /^-f(.*)/) {
+	    $self->{'files'}{$1} = 1;
+	} elsif ($arg eq "-l") {
+	    $self->{'linenums'} = 1;
+	} elsif ($arg eq "-p") {
+	    $self->{'parens'} = 1;
+	} elsif ($arg eq "-P") {
+	    $self->{'noproto'} = 1;
+	} elsif ($arg eq "-q") {
+	    $self->{'unquote'} = 1;
+	} elsif (substr($arg, 0, 2) eq "-s") {
+	    $self->style_opts(substr $arg, 2);
+	} elsif ($arg =~ /^-x(\d)$/) {
+	    $self->{'expand'} = $1;
+	}
+    }
+    return $self;
+}
+
+{
+    # Mask out the bits that L<warnings::register> uses
+    my $WARN_MASK;
+    BEGIN {
+	$WARN_MASK = $warnings::Bits{all} | $warnings::DeadBits{all};
+    }
+    sub WARN_MASK () {
+	return $WARN_MASK;
+    }
+}
+
+# Initialise the contextual information, either from
+# defaults provided with the ambient_pragmas method,
+# or from perl's own defaults otherwise.
+sub init {
+    my $self = shift;
+
+    $self->{'arybase'}  = $self->{'ambient_arybase'};
+    $self->{'warnings'} = defined ($self->{'ambient_warnings'})
+				? $self->{'ambient_warnings'} & WARN_MASK
+				: undef;
+    $self->{'hints'}    = $self->{'ambient_hints'};
+    $self->{'hinthash'} = $self->{'ambient_hinthash'};
+
+    # also a convenient place to clear out subs_declared
+    delete $self->{'subs_declared'};
+}
+
+sub compile {
+    my(@args) = @_;
+    return sub {
+	my $self = B::Deparse->new(@args);
+	# First deparse command-line args
+	if (defined $^I) { # deparse -i
+	    print q(BEGIN { $^I = ).perlstring($^I).qq(; }\n);
+	}
+	if ($^W) { # deparse -w
+	    print qq(BEGIN { \$^W = $^W; }\n);
+	}
+	if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0
+	    my $fs = perlstring($/) || 'undef';
+	    my $bs = perlstring($O::savebackslash) || 'undef';
+	    print qq(BEGIN { \$/ = $fs; \$\\ = $bs; }\n);
+	}
+	my @BEGINs  = B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : ();
+	my @UNITCHECKs = B::unitcheck_av->isa("B::AV")
+	    ? B::unitcheck_av->ARRAY
+	    : ();
+	my @CHECKs  = B::check_av->isa("B::AV") ? B::check_av->ARRAY : ();
+	my @INITs   = B::init_av->isa("B::AV") ? B::init_av->ARRAY : ();
+	my @ENDs    = B::end_av->isa("B::AV") ? B::end_av->ARRAY : ();
+	my @names = qw(BEGIN UNITCHECK CHECK INIT END);
+	my @blocks = \(@BEGINs, @UNITCHECKs, @CHECKs, @INITs, @ENDs);
+	while (@names) {
+	    my ($name, $blocks) = (shift @names, shift @blocks);
+	    for my $block (@$blocks) {
+		$self->todo($block, 0, $name);
+	    }
+	}
+	$self->stash_subs();
+	local($SIG{"__DIE__"}) =
+	  sub {
+	      if ($self->{'curcop'}) {
+		  my $cop = $self->{'curcop'};
+		  my($line, $file) = ($cop->line, $cop->file);
+		  print STDERR "While deparsing $file near line $line,\n";
+	      }
+	    };
+	$self->{'curcv'} = main_cv;
+	$self->{'curcvlex'} = undef;
+	print $self->print_protos;
+	@{$self->{'subs_todo'}} =
+	  sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}};
+	my $root = main_root;
+	local $B::overlay = {};
+	unless (null $root) {
+	    $self->pad_subs($self->{'curcv'});
+	    # Check for a stub-followed-by-ex-cop, resulting from a program
+	    # consisting solely of sub declarations.  For backward-compati-
+	    # bility (and sane output) we don’t want to emit the stub.
+	    #   leave
+	    #     enter
+	    #     stub
+	    #     ex-nextstate (or ex-dbstate)
+	    my $kid;
+	    if ( $root->name eq 'leave'
+	     and ($kid = $root->first)->name eq 'enter'
+	     and !null($kid = $kid->sibling) and $kid->name eq 'stub'
+	     and !null($kid = $kid->sibling) and $kid->name eq 'null'
+	     and class($kid) eq 'COP' and null $kid->sibling )
+	    {
+		# ignore
+	    } else {
+		$self->pessimise($root, main_start);
+		print $self->indent($self->deparse_root($root)), "\n";
+	    }
+	}
+	my @text;
+	while (scalar(@{$self->{'subs_todo'}})) {
+	    push @text, $self->next_todo;
+	}
+	print $self->indent(join("", @text)), "\n" if @text;
+
+	# Print __DATA__ section, if necessary
+	no strict 'refs';
+	my $laststash = defined $self->{'curcop'}
+	    ? $self->{'curcop'}->stash->NAME : $self->{'curstash'};
+	if (defined *{$laststash."::DATA"}{IO}) {
+	    print $self->keyword("package") . " $laststash;\n"
+		unless $laststash eq $self->{'curstash'};
+	    print $self->keyword("__DATA__") . "\n";
+	    print readline(*{$laststash."::DATA"});
+	}
+    }
+}
+
+sub coderef2text {
+    my $self = shift;
+    my $sub = shift;
+    croak "Usage: ->coderef2text(CODEREF)" unless UNIVERSAL::isa($sub, "CODE");
+
+    $self->init();
+    local $self->{in_coderef2text} = 1;
+    return $self->indent($self->deparse_sub(svref_2object($sub)));
+}
+
+my %strict_bits = do {
+    local $^H;
+    map +($_ => strict::bits($_)), qw/refs subs vars/
+};
+
+sub ambient_pragmas {
+    my $self = shift;
+    my ($arybase, $hint_bits, $warning_bits, $hinthash) = (0, 0);
+
+    while (@_ > 1) {
+	my $name = shift();
+	my $val  = shift();
+
+	if ($name eq 'strict') {
+	    require strict;
+
+	    if ($val eq 'none') {
+		$hint_bits &= $strict_bits{$_} for qw/refs subs vars/;
+		next();
+	    }
+
+	    my @names;
+	    if ($val eq "all") {
+		@names = qw/refs subs vars/;
+	    }
+	    elsif (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split' ', $val;
+	    }
+	    $hint_bits |= $strict_bits{$_} for @names;
+	}
+
+	elsif ($name eq '$[') {
+	    if (OPpCONST_ARYBASE) {
+		$arybase = $val;
+	    } else {
+		croak "\$[ can't be non-zero on this perl" unless $val == 0;
+	    }
+	}
+
+	elsif ($name eq 'integer'
+	    || $name eq 'bytes'
+	    || $name eq 'utf8') {
+	    require "$name.pm";
+	    if ($val) {
+		$hint_bits |= ${$::{"${name}::"}{"hint_bits"}};
+	    }
+	    else {
+		$hint_bits &= ~${$::{"${name}::"}{"hint_bits"}};
+	    }
+	}
+
+	elsif ($name eq 're') {
+	    require re;
+	    if ($val eq 'none') {
+		$hint_bits &= ~re::bits(qw/taint eval/);
+		next();
+	    }
+
+	    my @names;
+	    if ($val eq 'all') {
+		@names = qw/taint eval/;
+	    }
+	    elsif (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split' ',$val;
+	    }
+	    $hint_bits |= re::bits(@names);
+	}
+
+	elsif ($name eq 'warnings') {
+	    if ($val eq 'none') {
+		$warning_bits = $warnings::NONE;
+		next();
+	    }
+
+	    my @names;
+	    if (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split/\s+/, $val;
+	    }
+
+	    $warning_bits = $warnings::NONE if !defined ($warning_bits);
+	    $warning_bits |= warnings::bits(@names);
+	}
+
+	elsif ($name eq 'warning_bits') {
+	    $warning_bits = $val;
+	}
+
+	elsif ($name eq 'hint_bits') {
+	    $hint_bits = $val;
+	}
+
+	elsif ($name eq '%^H') {
+	    $hinthash = $val;
+	}
+
+	else {
+	    croak "Unknown pragma type: $name";
+	}
+    }
+    if (@_) {
+	croak "The ambient_pragmas method expects an even number of args";
+    }
+
+    $self->{'ambient_arybase'} = $arybase;
+    $self->{'ambient_warnings'} = $warning_bits;
+    $self->{'ambient_hints'} = $hint_bits;
+    $self->{'ambient_hinthash'} = $hinthash;
+}
+
+# This method is the inner loop, so try to keep it simple
+sub deparse {
+    my $self = shift;
+    my($op, $cx) = @_;
+
+    Carp::confess("Null op in deparse") if !defined($op)
+					|| class($op) eq "NULL";
+    my $meth = "pp_" . $op->name;
+    return $self->$meth($op, $cx);
+}
+
+sub indent {
+    my $self = shift;
+    my $txt = shift;
+    # \cK also swallows a preceding line break when followed by a
+    # semicolon.
+    $txt =~ s/\n\cK;//g;
+    my @lines = split(/\n/, $txt);
+    my $leader = "";
+    my $level = 0;
+    my $line;
+    for $line (@lines) {
+	my $cmd = substr($line, 0, 1);
+	if ($cmd eq "\t" or $cmd eq "\b") {
+	    $level += ($cmd eq "\t" ? 1 : -1) * $self->{'indent_size'};
+	    if ($self->{'use_tabs'}) {
+		$leader = "\t" x ($level / 8) . " " x ($level % 8);
+	    } else {
+		$leader = " " x $level;
+	    }
+	    $line = substr($line, 1);
+	}
+	if (index($line, "\f") > 0) {
+		$line =~ s/\f/\n/;
+	}
+	if (substr($line, 0, 1) eq "\f") {
+	    $line = substr($line, 1); # no indent
+	} else {
+	    $line = $leader . $line;
+	}
+	$line =~ s/\cK;?//g;
+    }
+    return join("\n", @lines);
+}
+
+sub pad_subs {
+    my ($self, $cv) = @_;
+    my $padlist = $cv->PADLIST;
+    my @names = $padlist->ARRAYelt(0)->ARRAY;
+    my @values = $padlist->ARRAYelt(1)->ARRAY;
+    my @todo;
+  PADENTRY:
+    for my $ix (0.. $#names) { for $_ ($names[$ix]) {
+	next if class($_) eq "SPECIAL";
+	my $name = $_->PVX;
+	if (defined $name && $name =~ /^&./) {
+	    my $low = $_->COP_SEQ_RANGE_LOW;
+	    my $flags = $_->FLAGS;
+	    my $outer = $flags & PADNAMEt_OUTER;
+	    if ($flags & SVpad_OUR) {
+		push @todo, [$low, undef, 0, $_]
+		          # [seq, no cv, not format, padname]
+		    unless $outer;
+		next;
+	    }
+	    my $protocv = $flags & SVpad_STATE
+		? $values[$ix]
+		: $_->PROTOCV;
+	    if (class ($protocv) ne 'CV') {
+		my $flags = $flags;
+		my $cv = $cv;
+		my $name = $_;
+		while ($flags & PADNAMEt_OUTER && class ($protocv) ne 'CV')
+		{
+		    $cv = $cv->OUTSIDE;
+		    next PADENTRY if class($cv) eq 'SPECIAL'; # XXX freed?
+		    my $padlist = $cv->PADLIST;
+		    my $ix = $name->PARENT_PAD_INDEX;
+		    $name = $padlist->NAMES->ARRAYelt($ix);
+		    $flags = $name->FLAGS;
+		    $protocv = $flags & SVpad_STATE
+			? $padlist->ARRAYelt(1)->ARRAYelt($ix)
+			: $name->PROTOCV;
+		}
+	    }
+	    my $defined_in_this_sub = ${$protocv->OUTSIDE} == $$cv || do {
+		my $other = $protocv->PADLIST;
+		$$other && $other->outid == $padlist->id;
+	    };
+	    if ($flags & PADNAMEt_OUTER) {
+		next unless $defined_in_this_sub;
+		push @todo, [$protocv->OUTSIDE_SEQ, $protocv, 0, $_];
+		next;
+	    }
+	    my $outseq = $protocv->OUTSIDE_SEQ;
+	    if ($outseq <= $low) {
+		# defined before its name is visible, so it’s gotta be
+		# declared and defined at once: my sub foo { ... }
+		push @todo, [$low, $protocv, 0, $_];
+	    }
+	    else {
+		# declared and defined separately: my sub f; sub f { ... }
+		push @todo, [$low, undef, 0, $_];
+		push @todo, [$outseq, $protocv, 0, $_]
+		    if $defined_in_this_sub;
+	    }
+	}
+    }}
+    @{$self->{'subs_todo'}} =
+	sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}}, @todo
+}
+
+
+# deparse_argops(): deparse, if possible, a sequence of argcheck + argelem
+# ops into a subroutine signature. If successful, return the first op
+# following the signature ops plus the signature string; else return the
+# empty list.
+#
+# Normally a bunch of argelem ops will have been generated by the
+# signature parsing, but it's possible that ops have been added manually
+# or altered. In this case we return "()" and fall back to general
+# deparsing of the individual sigelems as 'my $x = $_[N]' etc.
+#
+# We're only called if the first two ops are nextstate and argcheck.
+
+sub deparse_argops {
+    my ($self, $firstop, $cv) = @_;
+
+    my @sig;
+    my $o = $firstop;
+    return if $o->label; #first nextstate;
+
+    # OP_ARGCHECK
+
+    $o = $o->sibling;
+    my ($params, $opt_params, $slurpy) = $o->aux_list($cv);
+    my $mandatory = $params - $opt_params;
+    my $seen_slurpy = 0;
+    my $last_ix = -1;
+
+    # keep looking for valid nextstate + argelem pairs
+
+    while (1) {
+        # OP_NEXTSTATE
+        $o = $o->sibling;
+        last unless $$o;
+        last unless $o->name =~ /^(next|db)state$/;
+        last if $o->label;
+
+        # OP_ARGELEM
+        my $o2 = $o->sibling;
+        last unless $$o2;
+
+        if ($o2->name eq 'argelem') {
+            my $ix  = $o2->string($cv);
+            while (++$last_ix < $ix) {
+                push @sig, $last_ix <  $mandatory ? '$' : '$=';
+            }
+            my $var = $self->padname($o2->targ);
+            if ($var =~ /^[@%]/) {
+                return if $seen_slurpy;
+                $seen_slurpy = 1;
+                return if $ix != $params or !$slurpy
+                            or substr($var,0,1) ne $slurpy;
+            }
+            else {
+                return if $ix >= $params;
+            }
+            if ($o2->flags & OPf_KIDS) {
+                my $kid = $o2->first;
+                return unless $$kid and $kid->name eq 'argdefelem';
+                my $def = $self->deparse($kid->first, 7);
+                $def = "($def)" if $kid->first->flags & OPf_PARENS;
+                $var .= " = $def";
+            }
+            push @sig, $var;
+        }
+        elsif ($o2->name eq 'null'
+               and ($o2->flags & OPf_KIDS)
+               and $o2->first->name eq 'argdefelem')
+        {
+            # special case - a void context default expression: $ = expr
+
+            my $defop = $o2->first;
+            my $ix = $defop->targ;
+            while (++$last_ix < $ix) {
+                push @sig, $last_ix <  $mandatory ? '$' : '$=';
+            }
+            return if $last_ix >= $params
+                    or $last_ix < $mandatory;
+            my $def = $self->deparse($defop->first, 7);
+            $def = "($def)" if $defop->first->flags & OPf_PARENS;
+            push @sig, '$ = ' . $def;
+        }
+        else {
+            last;
+        }
+
+        $o = $o2;
+    }
+
+    while (++$last_ix < $params) {
+        push @sig, $last_ix <  $mandatory ? '$' : '$=';
+    }
+    push @sig, $slurpy if $slurpy and !$seen_slurpy;
+
+    return ($o, join(', ', @sig));
+}
+
+# Deparse a sub. Returns everything except the 'sub foo',
+# e.g.  ($$) : method { ...; }
+# or    : prototype($$) lvalue ($a, $b) { ...; };
+
+sub deparse_sub {
+    my $self = shift;
+    my $cv = shift;
+    my @attrs;
+    my $proto;
+    my $sig;
+
+Carp::confess("NULL in deparse_sub") if !defined($cv) || $cv->isa("B::NULL");
+Carp::confess("SPECIAL in deparse_sub") if $cv->isa("B::SPECIAL");
+    local $self->{'curcop'} = $self->{'curcop'};
+
+    my $has_sig = $self->{hinthash}{feature_signatures};
+    if ($cv->FLAGS & SVf_POK) {
+	my $myproto = $cv->PV;
+	if ($has_sig) {
+            push @attrs, "prototype($myproto)";
+        }
+        else {
+            $proto = $myproto;
+        }
+    }
+    if ($cv->CvFLAGS & (CVf_METHOD|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) {
+        push @attrs, "lvalue" if $cv->CvFLAGS & CVf_LVALUE;
+        push @attrs, "method" if $cv->CvFLAGS & CVf_METHOD;
+        push @attrs, "const"  if $cv->CvFLAGS & CVf_ANONCONST;
+    }
+
+    local($self->{'curcv'}) = $cv;
+    local($self->{'curcvlex'});
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $body;
+    my $root = $cv->ROOT;
+    local $B::overlay = {};
+    if (not null $root) {
+	$self->pad_subs($cv);
+	$self->pessimise($root, $cv->START);
+	my $lineseq = $root->first;
+	if ($lineseq->name eq "lineseq") {
+	    my $firstop = $lineseq->first;
+
+            if ($has_sig) {
+                my $o2;
+                # try to deparse first few ops as a signature if possible
+                if (     $$firstop
+                     and $firstop->name =~  /^(next|db)state$/
+                     and (($o2 = $firstop->sibling))
+                     and $$o2)
+                {
+                    if ($o2->name eq 'argcheck') {
+                        my ($nexto, $mysig) = $self->deparse_argops($firstop, $cv);
+                        if (defined $nexto) {
+                            $firstop = $nexto;
+                            $sig = $mysig;
+                        }
+                    }
+                }
+            }
+
+            my @ops;
+	    for (my $o = $firstop; $$o; $o=$o->sibling) {
+		push @ops, $o;
+	    }
+	    $body = $self->lineseq(undef, 0, @ops).";";
+            if (!$has_sig and $ops[-1]->name =~ /^(next|db)state$/) {
+                # this handles void context in
+                #   use feature signatures; sub ($=1) {}
+                $body .= "\n()";
+            }
+	    my $scope_en = $self->find_scope_en($lineseq);
+	    if (defined $scope_en) {
+		my $subs = join"", $self->seq_subs($scope_en);
+		$body .= ";\n$subs" if length($subs);
+	    }
+	}
+	else {
+	    $body = $self->deparse($root->first, 0);
+	}
+
+        my $l = '';
+        if ($self->{'linenums'}) {
+            # a glob's gp_line is set from the line containing a
+            # sub's closing '}' if the CV is the first use of the GV.
+            # So make sure the linenum is set correctly for '}'
+            my $gv = $cv->GV;
+            my $line = $gv->LINE;
+            my $file = $gv->FILE;
+            $l = "\f#line $line \"$file\"\n";
+        }
+        $body = "{\n\t$body\n$l\b}";
+    }
+    else {
+	my $sv = $cv->const_sv;
+	if ($$sv) {
+	    # uh-oh. inlinable sub... format it differently
+	    $body = "{ " . $self->const($sv, 0) . " }\n";
+	} else { # XSUB? (or just a declaration)
+	    $body = ';'
+	}
+    }
+    $proto = defined $proto ? "($proto) " : "";
+    $sig   = defined $sig   ? "($sig) "   : "";
+    my $attrs = '';
+    $attrs = ': ' . join('', map "$_ ", @attrs) if @attrs;
+    return "$proto$attrs$sig$body\n";
+}
+
+sub deparse_format {
+    my $self = shift;
+    my $form = shift;
+    my @text;
+    local($self->{'curcv'}) = $form;
+    local($self->{'curcvlex'});
+    local($self->{'in_format'}) = 1;
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $op = $form->ROOT;
+    local $B::overlay = {};
+    $self->pessimise($op, $form->START);
+    my $kid;
+    return "\f." if $op->first->name eq 'stub'
+                || $op->first->name eq 'nextstate';
+    $op = $op->first->first; # skip leavewrite, lineseq
+    while (not null $op) {
+	$op = $op->sibling; # skip nextstate
+	my @exprs;
+	$kid = $op->first->sibling; # skip pushmark
+	push @text, "\f".$self->const_sv($kid)->PV;
+	$kid = $kid->sibling;
+	for (; not null $kid; $kid = $kid->sibling) {
+	    push @exprs, $self->deparse($kid, -1);
+	    $exprs[-1] =~ s/;\z//;
+	}
+	push @text, "\f".join(", ", @exprs)."\n" if @exprs;
+	$op = $op->sibling;
+    }
+    return join("", @text) . "\f.";
+}
+
+sub is_scope {
+    my $op = shift;
+    return $op->name eq "leave" || $op->name eq "scope"
+      || $op->name eq "lineseq"
+	|| ($op->name eq "null" && class($op) eq "UNOP"
+	    && (is_scope($op->first) || $op->first->name eq "enter"));
+}
+
+sub is_state {
+    my $name = $_[0]->name;
+    return $name eq "nextstate" || $name eq "dbstate" || $name eq "setstate";
+}
+
+sub is_miniwhile { # check for one-line loop ('foo() while $y--')
+    my $op = shift;
+    return (!null($op) and null($op->sibling)
+	    and $op->name eq "null" and class($op) eq "UNOP"
+	    and (($op->first->name =~ /^(and|or)$/
+		  and $op->first->first->sibling->name eq "lineseq")
+		 or ($op->first->name eq "lineseq"
+		     and not null $op->first->first->sibling
+		     and $op->first->first->sibling->name eq "unstack")
+		 ));
+}
+
+# Check if the op and its sibling are the initialization and the rest of a
+# for (..;..;..) { ... } loop
+sub is_for_loop {
+    my $op = shift;
+    # This OP might be almost anything, though it won't be a
+    # nextstate. (It's the initialization, so in the canonical case it
+    # will be an sassign.) The sibling is (old style) a lineseq whose
+    # first child is a nextstate and whose second is a leaveloop, or
+    # (new style) an unstack whose sibling is a leaveloop.
+    my $lseq = $op->sibling;
+    return 0 unless !is_state($op) and !null($lseq);
+    if ($lseq->name eq "lineseq") {
+	if ($lseq->first && !null($lseq->first) && is_state($lseq->first)
+	    && (my $sib = $lseq->first->sibling)) {
+	    return (!null($sib) && $sib->name eq "leaveloop");
+	}
+    } elsif ($lseq->name eq "unstack" && ($lseq->flags & OPf_SPECIAL)) {
+	my $sib = $lseq->sibling;
+	return $sib && !null($sib) && $sib->name eq "leaveloop";
+    }
+    return 0;
+}
+
+sub is_scalar {
+    my $op = shift;
+    return ($op->name eq "rv2sv" or
+	    $op->name eq "padsv" or
+	    $op->name eq "gv" or # only in array/hash constructs
+	    $op->flags & OPf_KIDS && !null($op->first)
+	      && $op->first->name eq "gvsv");
+}
+
+sub maybe_parens {
+    my $self = shift;
+    my($text, $cx, $prec) = @_;
+    if ($prec < $cx              # unary ops nest just fine
+	or $prec == $cx and $cx != 4 and $cx != 16 and $cx != 21
+	or $self->{'parens'})
+    {
+	$text = "($text)";
+	# In a unop, let parent reuse our parens; see maybe_parens_unop
+	$text = "\cS" . $text if $cx == 16;
+	return $text;
+    } else {
+	return $text;
+    }
+}
+
+# same as above, but get around the 'if it looks like a function' rule
+sub maybe_parens_unop {
+    my $self = shift;
+    my($name, $kid, $cx) = @_;
+    if ($cx > 16 or $self->{'parens'}) {
+	$kid =  $self->deparse($kid, 1);
+ 	if ($name eq "umask" && $kid =~ /^\d+$/) {
+	    $kid = sprintf("%#o", $kid);
+	}
+	return $self->keyword($name) . "($kid)";
+    } else {
+	$kid = $self->deparse($kid, 16);
+ 	if ($name eq "umask" && $kid =~ /^\d+$/) {
+	    $kid = sprintf("%#o", $kid);
+	}
+	$name = $self->keyword($name);
+	if (substr($kid, 0, 1) eq "\cS") {
+	    # use kid's parens
+	    return $name . substr($kid, 1);
+	} elsif (substr($kid, 0, 1) eq "(") {
+	    # avoid looks-like-a-function trap with extra parens
+	    # ('+' can lead to ambiguities)
+	    return "$name(" . $kid  . ")";
+	} else {
+	    return "$name $kid";
+	}
+    }
+}
+
+sub maybe_parens_func {
+    my $self = shift;
+    my($func, $text, $cx, $prec) = @_;
+    if ($prec <= $cx or substr($text, 0, 1) eq "(" or $self->{'parens'}) {
+	return "$func($text)";
+    } else {
+	return "$func $text";
+    }
+}
+
+sub find_our_type {
+    my ($self, $name) = @_;
+    $self->populate_curcvlex() if !defined $self->{'curcvlex'};
+    my $seq = $self->{'curcop'} ? $self->{'curcop'}->cop_seq : 0;
+    for my $a (@{$self->{'curcvlex'}{"o$name"}}) {
+	my ($st, undef, $padname) = @$a;
+	if ($st >= $seq && $padname->FLAGS & SVpad_TYPED) {
+	    return $padname->SvSTASH->NAME;
+	}
+    }
+    return '';
+}
+
+sub maybe_local {
+    my $self = shift;
+    my($op, $cx, $text) = @_;
+    my $name = $op->name;
+    my $our_intro = ($name =~ /^(?:(?:gv|rv2)[ash]v|split|refassign
+				  |lv(?:av)?ref)$/x)
+			? OPpOUR_INTRO
+			: 0;
+    my $lval_intro = $name eq 'split' ? 0 : OPpLVAL_INTRO;
+    # The @a in \(@a) isn't in ref context, but only when the
+    # parens are there.
+    my $need_parens = $self->{'in_refgen'} && $name =~ /[ah]v\z/
+		   && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS;
+    if ((my $priv = $op->private) & ($lval_intro|$our_intro)) {
+	my @our_local;
+	push @our_local, "local" if $priv & $lval_intro;
+	push @our_local, "our"   if $priv & $our_intro;
+	my $our_local = join " ", map $self->keyword($_), @our_local;
+	if( $our_local[-1] eq 'our' ) {
+	    if ( $text !~ /^\W(\w+::)*\w+\z/
+	     and !utf8::decode($text) || $text !~ /^\W(\w+::)*\w+\z/
+	    ) {
+		die "Unexpected our($text)\n";
+	    }
+	    $text =~ s/(\w+::)+//;
+
+	    if (my $type = $self->find_our_type($text)) {
+		$our_local .= ' ' . $type;
+	    }
+	}
+	return $need_parens ? "($text)" : $text
+	    if $self->{'avoid_local'}{$$op};
+	if ($need_parens) {
+	    return "$our_local($text)";
+	} elsif (want_scalar($op) || $our_local eq 'our') {
+	    return "$our_local $text";
+	} else {
+	    return $self->maybe_parens_func("$our_local", $text, $cx, 16);
+	}
+    } else {
+	return $need_parens ? "($text)" : $text;
+    }
+}
+
+sub maybe_targmy {
+    my $self = shift;
+    my($op, $cx, $func, @args) = @_;
+    if ($op->private & OPpTARGET_MY) {
+	my $var = $self->padname($op->targ);
+	my $val = $func->($self, $op, 7, @args);
+	return $self->maybe_parens("$var = $val", $cx, 7);
+    } else {
+	return $func->($self, $op, $cx, @args);
+    }
+}
+
+sub padname_sv {
+    my $self = shift;
+    my $targ = shift;
+    return $self->{'curcv'}->PADLIST->ARRAYelt(0)->ARRAYelt($targ);
+}
+
+sub maybe_my {
+    my $self = shift;
+    my($op, $cx, $text, $padname, $forbid_parens) = @_;
+    # The @a in \(@a) isn't in ref context, but only when the
+    # parens are there.
+    my $need_parens = !$forbid_parens && $self->{'in_refgen'}
+		   && $op->name =~ /[ah]v\z/
+		   && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS;
+    # The @a in \my @a must not have parens.
+    if (!$need_parens && $self->{'in_refgen'}) {
+	$forbid_parens = 1;
+    }
+    if ($op->private & OPpLVAL_INTRO and not $self->{'avoid_local'}{$$op}) {
+	# Check $padname->FLAGS for statehood, rather than $op->private,
+	# because enteriter ops do not carry the flag.
+	my $my =
+	    $self->keyword($padname->FLAGS & SVpad_STATE ? "state" : "my");
+	if ($padname->FLAGS & SVpad_TYPED) {
+	    $my .= ' ' . $padname->SvSTASH->NAME;
+	}
+	if ($need_parens) {
+	    return "$my($text)";
+	} elsif ($forbid_parens || want_scalar($op)) {
+	    return "$my $text";
+	} else {
+	    return $self->maybe_parens_func($my, $text, $cx, 16);
+	}
+    } else {
+	return $need_parens ? "($text)" : $text;
+    }
+}
+
+# The following OPs don't have functions:
+
+# pp_padany -- does not exist after parsing
+
+sub AUTOLOAD {
+    if ($AUTOLOAD =~ s/^.*::pp_//) {
+	warn "unexpected OP_".
+	  ($_[1]->type == OP_CUSTOM ? "CUSTOM ($AUTOLOAD)" : uc $AUTOLOAD);
+	return "XXX";
+    } else {
+	die "Undefined subroutine $AUTOLOAD called";
+    }
+}
+
+sub DESTROY {}	#	Do not AUTOLOAD
+
+# $root should be the op which represents the root of whatever
+# we're sequencing here. If it's undefined, then we don't append
+# any subroutine declarations to the deparsed ops, otherwise we
+# append appropriate declarations.
+sub lineseq {
+    my($self, $root, $cx, @ops) = @_;
+    my($expr, @exprs);
+
+    my $out_cop = $self->{'curcop'};
+    my $out_seq = defined($out_cop) ? $out_cop->cop_seq : undef;
+    my $limit_seq;
+    if (defined $root) {
+	$limit_seq = $out_seq;
+	my $nseq;
+	$nseq = $self->find_scope_st($root->sibling) if ${$root->sibling};
+	$limit_seq = $nseq if !defined($limit_seq)
+			   or defined($nseq) && $nseq < $limit_seq;
+    }
+    $limit_seq = $self->{'limit_seq'}
+	if defined($self->{'limit_seq'})
+	&& (!defined($limit_seq) || $self->{'limit_seq'} < $limit_seq);
+    local $self->{'limit_seq'} = $limit_seq;
+
+    $self->walk_lineseq($root, \@ops,
+		       sub { push @exprs, $_[0]} );
+
+    my $sep = $cx ? '; ' : ";\n";
+    my $body = join($sep, grep {length} @exprs);
+    my $subs = "";
+    if (defined $root && defined $limit_seq && !$self->{'in_format'}) {
+	$subs = join "\n", $self->seq_subs($limit_seq);
+    }
+    return join($sep, grep {length} $body, $subs);
+}
+
+sub scopeop {
+    my($real_block, $self, $op, $cx) = @_;
+    my $kid;
+    my @kids;
+
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'} if $real_block;
+    if ($real_block) {
+	$kid = $op->first->sibling; # skip enter
+	if (is_miniwhile($kid)) {
+	    my $top = $kid->first;
+	    my $name = $top->name;
+	    if ($name eq "and") {
+		$name = $self->keyword("while");
+	    } elsif ($name eq "or") {
+		$name = $self->keyword("until");
+	    } else { # no conditional -> while 1 or until 0
+		return $self->deparse($top->first, 1) . " "
+		     . $self->keyword("while") . " 1";
+	    }
+	    my $cond = $top->first;
+	    my $body = $cond->sibling->first; # skip lineseq
+	    $cond = $self->deparse($cond, 1);
+	    $body = $self->deparse($body, 1);
+	    return "$body $name $cond";
+	}
+    } else {
+	$kid = $op->first;
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	push @kids, $kid;
+    }
+    if ($cx > 0) { # inside an expression, (a do {} while for lineseq)
+	my $body = $self->lineseq($op, 0, @kids);
+	return is_lexical_subs(@kids)
+		? $body
+		: ($self->lex_in_scope("&do") ? "CORE::do" : "do")
+		 . " {\n\t$body\n\b}";
+    } else {
+	my $lineseq = $self->lineseq($op, $cx, @kids);
+	return (length ($lineseq) ? "$lineseq;" : "");
+    }
+}
+
+sub pp_scope { scopeop(0, @_); }
+sub pp_lineseq { scopeop(0, @_); }
+sub pp_leave { scopeop(1, @_); }
+
+# This is a special case of scopeop and lineseq, for the case of the
+# main_root. The difference is that we print the output statements as
+# soon as we get them, for the sake of impatient users.
+sub deparse_root {
+    my $self = shift;
+    my($op) = @_;
+    local(@$self{qw'curstash warnings hints hinthash'})
+      = @$self{qw'curstash warnings hints hinthash'};
+    my @kids;
+    return if null $op->first; # Can happen, e.g., for Bytecode without -k
+    for (my $kid = $op->first->sibling; !null($kid); $kid = $kid->sibling) {
+	push @kids, $kid;
+    }
+    $self->walk_lineseq($op, \@kids,
+			sub { return unless length $_[0];
+			      print $self->indent($_[0].';');
+			      print "\n"
+				unless $_[1] == $#kids;
+			  });
+}
+
+sub walk_lineseq {
+    my ($self, $op, $kids, $callback) = @_;
+    my @kids = @$kids;
+    for (my $i = 0; $i < @kids; $i++) {
+	my $expr = "";
+	if (is_state $kids[$i]) {
+	    $expr = $self->deparse($kids[$i++], 0);
+	    if ($i > $#kids) {
+		$callback->($expr, $i);
+		last;
+	    }
+	}
+	if (is_for_loop($kids[$i])) {
+	    $callback->($expr . $self->for_loop($kids[$i], 0),
+		$i += $kids[$i]->sibling->name eq "unstack" ? 2 : 1);
+	    next;
+	}
+	my $expr2 = $self->deparse($kids[$i], (@kids != 1)/2);
+	$expr2 =~ s/^sub :(?!:)/+sub :/; # statement label otherwise
+	$expr .= $expr2;
+	$callback->($expr, $i);
+    }
+}
+
+# The BEGIN {} is used here because otherwise this code isn't executed
+# when you run B::Deparse on itself.
+my %globalnames;
+BEGIN { map($globalnames{$_}++, "SIG", "STDIN", "STDOUT", "STDERR", "INC",
+	    "ENV", "ARGV", "ARGVOUT", "_"); }
+
+sub gv_name {
+    my $self = shift;
+    my $gv = shift;
+    my $raw = shift;
+#Carp::confess() unless ref($gv) eq "B::GV";
+    my $cv = $gv->FLAGS & SVf_ROK ? $gv->RV : 0;
+    my $stash = ($cv || $gv)->STASH->NAME;
+    my $name = $raw
+	? $cv ? $cv->NAME_HEK || $cv->GV->NAME : $gv->NAME
+	: $cv
+	    ? B::safename($cv->NAME_HEK || $cv->GV->NAME)
+	    : $gv->SAFENAME;
+    if ($stash eq 'main' && $name =~ /^::/) {
+	$stash = '::';
+    }
+    elsif (($stash eq 'main'
+	    && ($globalnames{$name} || $name =~ /^[^A-Za-z_:]/))
+	or ($stash eq $self->{'curstash'} && !$globalnames{$name}
+	    && ($stash eq 'main' || $name !~ /::/))
+	  )
+    {
+	$stash = "";
+    } else {
+	$stash = $stash . "::";
+    }
+    if (!$raw and $name =~ /^(\^..|{)/) {
+        $name = "{$name}";       # ${^WARNING_BITS}, etc and ${
+    }
+    return $stash . $name;
+}
+
+# Return the name to use for a stash variable.
+# If a lexical with the same name is in scope, or
+# if strictures are enabled, it may need to be
+# fully-qualified.
+sub stash_variable {
+    my ($self, $prefix, $name, $cx) = @_;
+
+    return $prefix.$self->maybe_qualify($prefix, $name) if $name =~ /::/;
+
+    unless ($prefix eq '$' || $prefix eq '@' || $prefix eq '&' || #'
+	    $prefix eq '%' || $prefix eq '$#') {
+	return "$prefix$name";
+    }
+
+    if ($name =~ /^[^[:alpha:]_+-]$/) {
+      if (defined $cx && $cx == 26) {
+	if ($prefix eq '@') {
+	    return "$prefix\{$name}";
+	}
+	elsif ($name eq '#') { return '${#}' } #  "${#}a" vs "$#a"
+      }
+      if ($prefix eq '$#') {
+	return "\$#{$name}";
+      }
+    }
+
+    return $prefix . $self->maybe_qualify($prefix, $name);
+}
+
+my %unctrl = # portable to EBCDIC
+    (
+     "\c@" => '@',	# unused
+     "\cA" => 'A',
+     "\cB" => 'B',
+     "\cC" => 'C',
+     "\cD" => 'D',
+     "\cE" => 'E',
+     "\cF" => 'F',
+     "\cG" => 'G',
+     "\cH" => 'H',
+     "\cI" => 'I',
+     "\cJ" => 'J',
+     "\cK" => 'K',
+     "\cL" => 'L',
+     "\cM" => 'M',
+     "\cN" => 'N',
+     "\cO" => 'O',
+     "\cP" => 'P',
+     "\cQ" => 'Q',
+     "\cR" => 'R',
+     "\cS" => 'S',
+     "\cT" => 'T',
+     "\cU" => 'U',
+     "\cV" => 'V',
+     "\cW" => 'W',
+     "\cX" => 'X',
+     "\cY" => 'Y',
+     "\cZ" => 'Z',
+     "\c[" => '[',	# unused
+     "\c\\" => '\\',	# unused
+     "\c]" => ']',	# unused
+     "\c_" => '_',	# unused
+    );
+
+# Return just the name, without the prefix.  It may be returned as a quoted
+# string.  The second return value is a boolean indicating that.
+sub stash_variable_name {
+    my($self, $prefix, $gv) = @_;
+    my $name = $self->gv_name($gv, 1);
+    $name = $self->maybe_qualify($prefix,$name);
+    if ($name =~ /^(?:\S|(?!\d)[\ca-\cz]?(?:\w|::)*|\d+)\z/) {
+	$name =~ s/^([\ca-\cz])/'^' . $unctrl{$1}/e;
+	$name =~ /^(\^..|{)/ and $name = "{$name}";
+	return $name, 0; # not quoted
+    }
+    else {
+	single_delim("q", "'", $name, $self), 1;
+    }
+}
+
+sub maybe_qualify {
+    my ($self,$prefix,$name) = @_;
+    my $v = ($prefix eq '$#' ? '@' : $prefix) . $name;
+    if ($prefix eq "") {
+	$name .= "::" if $name =~ /(?:\ACORE::[^:]*|::)\z/;
+	return $name;
+    }
+    return $name if $name =~ /::/;
+    return $self->{'curstash'}.'::'. $name
+	if
+	    $name =~ /^(?!\d)\w/         # alphabetic
+	 && $v    !~ /^\$[ab]\z/	 # not $a or $b
+	 && $v =~ /\A[\$\@\%\&]/         # scalar, array, hash, or sub
+	 && !$globalnames{$name}         # not a global name
+	 && $self->{hints} & $strict_bits{vars}  # strict vars
+	 && !$self->lex_in_scope($v,1)   # no "our"
+      or $self->lex_in_scope($v);        # conflicts with "my" variable
+    return $name;
+}
+
+sub lex_in_scope {
+    my ($self, $name, $our) = @_;
+    substr $name, 0, 0, = $our ? 'o' : 'm'; # our/my
+    $self->populate_curcvlex() if !defined $self->{'curcvlex'};
+
+    return 0 if !defined($self->{'curcop'});
+    my $seq = $self->{'curcop'}->cop_seq;
+    return 0 if !exists $self->{'curcvlex'}{$name};
+    for my $a (@{$self->{'curcvlex'}{$name}}) {
+	my ($st, $en) = @$a;
+	return 1 if $seq > $st && $seq <= $en;
+    }
+    return 0;
+}
+
+sub populate_curcvlex {
+    my $self = shift;
+    for (my $cv = $self->{'curcv'}; class($cv) eq "CV"; $cv = $cv->OUTSIDE) {
+	my $padlist = $cv->PADLIST;
+	# an undef CV still in lexical chain
+	next if class($padlist) eq "SPECIAL";
+	my @padlist = $padlist->ARRAY;
+	my @ns = $padlist[0]->ARRAY;
+
+	for (my $i=0; $i<@ns; ++$i) {
+	    next if class($ns[$i]) eq "SPECIAL";
+	    if (class($ns[$i]) eq "PV") {
+		# Probably that pesky lexical @_
+		next;
+	    }
+            my $name = $ns[$i]->PVX;
+	    next unless defined $name;
+	    my ($seq_st, $seq_en) =
+		($ns[$i]->FLAGS & SVf_FAKE)
+		    ? (0, 999999)
+		    : ($ns[$i]->COP_SEQ_RANGE_LOW, $ns[$i]->COP_SEQ_RANGE_HIGH);
+
+	    push @{$self->{'curcvlex'}{
+			($ns[$i]->FLAGS & SVpad_OUR ? 'o' : 'm') . $name
+		  }}, [$seq_st, $seq_en, $ns[$i]];
+	}
+    }
+}
+
+sub find_scope_st { ((find_scope(@_))[0]); }
+sub find_scope_en { ((find_scope(@_))[1]); }
+
+# Recurses down the tree, looking for pad variable introductions and COPs
+sub find_scope {
+    my ($self, $op, $scope_st, $scope_en) = @_;
+    carp("Undefined op in find_scope") if !defined $op;
+    return ($scope_st, $scope_en) unless $op->flags & OPf_KIDS;
+
+    my @queue = ($op);
+    while(my $op = shift @queue ) {
+	for (my $o=$op->first; $$o; $o=$o->sibling) {
+	    if ($o->name =~ /^pad.v$/ && $o->private & OPpLVAL_INTRO) {
+		my $s = int($self->padname_sv($o->targ)->COP_SEQ_RANGE_LOW);
+		my $e = $self->padname_sv($o->targ)->COP_SEQ_RANGE_HIGH;
+		$scope_st = $s if !defined($scope_st) || $s < $scope_st;
+		$scope_en = $e if !defined($scope_en) || $e > $scope_en;
+		return ($scope_st, $scope_en);
+	    }
+	    elsif (is_state($o)) {
+		my $c = $o->cop_seq;
+		$scope_st = $c if !defined($scope_st) || $c < $scope_st;
+		$scope_en = $c if !defined($scope_en) || $c > $scope_en;
+		return ($scope_st, $scope_en);
+	    }
+	    elsif ($o->flags & OPf_KIDS) {
+		unshift (@queue, $o);
+	    }
+	}
+    }
+
+    return ($scope_st, $scope_en);
+}
+
+# Returns a list of subs which should be inserted before the COP
+sub cop_subs {
+    my ($self, $op, $out_seq) = @_;
+    my $seq = $op->cop_seq;
+    $seq = $out_seq if defined($out_seq) && $out_seq < $seq;
+    return $self->seq_subs($seq);
+}
+
+sub seq_subs {
+    my ($self, $seq) = @_;
+    my @text;
+#push @text, "# ($seq)\n";
+
+    return "" if !defined $seq;
+    my @pending;
+    while (scalar(@{$self->{'subs_todo'}})
+	   and $seq > $self->{'subs_todo'}[0][0]) {
+	my $cv = $self->{'subs_todo'}[0][1];
+	# Skip the OUTSIDE check for lexical subs.  We may be deparsing a
+	# cloned anon sub with lexical subs declared in it, in which case
+	# the OUTSIDE pointer points to the anon protosub.
+	my $lexical = ref $self->{'subs_todo'}[0][3];
+	my $outside = !$lexical && $cv && $cv->OUTSIDE;
+	if (!$lexical and $cv
+	 and ${$cv->OUTSIDE || \0} != ${$self->{'curcv'}})
+	{
+	    push @pending, shift @{$self->{'subs_todo'}};
+	    next;
+	}
+	push @text, $self->next_todo;
+    }
+    unshift @{$self->{'subs_todo'}}, @pending;
+    return @text;
+}
+
+sub _features_from_bundle {
+    my ($hints, $hh) = @_;
+    foreach (@{$feature::feature_bundle{@feature::hint_bundles[$hints >> $feature::hint_shift]}}) {
+	$hh->{$feature::feature{$_}} = 1;
+    }
+    return $hh;
+}
+
+# generate any pragmas, 'package foo' etc needed to synchronise
+# with the given cop
+
+sub pragmata {
+    my $self = shift;
+    my($op) = @_;
+
+    my @text;
+
+    my $stash = $op->stashpv;
+    if ($stash ne $self->{'curstash'}) {
+	push @text, $self->keyword("package") . " $stash;\n";
+	$self->{'curstash'} = $stash;
+    }
+
+    if (OPpCONST_ARYBASE && $self->{'arybase'} != $op->arybase) {
+	push @text, '$[ = '. $op->arybase .";\n";
+	$self->{'arybase'} = $op->arybase;
+    }
+
+    my $warnings = $op->warnings;
+    my $warning_bits;
+    if ($warnings->isa("B::SPECIAL") && $$warnings == 4) {
+	$warning_bits = $warnings::Bits{"all"} & WARN_MASK;
+    }
+    elsif ($warnings->isa("B::SPECIAL") && $$warnings == 5) {
+        $warning_bits = $warnings::NONE;
+    }
+    elsif ($warnings->isa("B::SPECIAL")) {
+	$warning_bits = undef;
+    }
+    else {
+	$warning_bits = $warnings->PV & WARN_MASK;
+    }
+
+    if (defined ($warning_bits) and
+       !defined($self->{warnings}) || $self->{'warnings'} ne $warning_bits) {
+	push @text,
+	    $self->declare_warnings($self->{'warnings'}, $warning_bits);
+	$self->{'warnings'} = $warning_bits;
+    }
+
+    my $hints = $op->hints;
+    my $old_hints = $self->{'hints'};
+    if ($self->{'hints'} != $hints) {
+	push @text, $self->declare_hints($self->{'hints'}, $hints);
+	$self->{'hints'} = $hints;
+    }
+
+    my $newhh;
+    $newhh = $op->hints_hash->HASH;
+
+    {
+	# feature bundle hints
+	my $from = $old_hints & $feature::hint_mask;
+	my $to   = $    hints & $feature::hint_mask;
+	if ($from != $to) {
+	    if ($to == $feature::hint_mask) {
+		if ($self->{'hinthash'}) {
+		    delete $self->{'hinthash'}{$_}
+			for grep /^feature_/, keys %{$self->{'hinthash'}};
+		}
+		else { $self->{'hinthash'} = {} }
+		$self->{'hinthash'}
+		    = _features_from_bundle($from, $self->{'hinthash'});
+	    }
+	    else {
+		my $bundle =
+		    $feature::hint_bundles[$to >> $feature::hint_shift];
+		$bundle =~ s/(\d[13579])\z/$1+1/e; # 5.11 => 5.12
+		push @text,
+		    $self->keyword("no") . " feature ':all';\n",
+		    $self->keyword("use") . " feature ':$bundle';\n";
+	    }
+	}
+    }
+
+    {
+	push @text, $self->declare_hinthash(
+	    $self->{'hinthash'}, $newhh,
+	    $self->{indent_size}, $self->{hints},
+	);
+	$self->{'hinthash'} = $newhh;
+    }
+
+    return join("", @text);
+}
+
+
+# Notice how subs and formats are inserted between statements here;
+# also $[ assignments and pragmas.
+sub pp_nextstate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    $self->{'curcop'} = $op;
+
+    my @text;
+
+    my @subs = $self->cop_subs($op);
+    if (@subs) {
+	# Special marker to swallow up the semicolon
+	push @subs, "\cK";
+    }
+    push @text, @subs;
+
+    push @text, $self->pragmata($op);
+
+
+    # This should go after of any branches that add statements, to
+    # increase the chances that it refers to the same line it did in
+    # the original program.
+    if ($self->{'linenums'} && $cx != .5) { # $cx == .5 means in a format
+	push @text, "\f#line " . $op->line .
+	  ' "' . $op->file, qq'"\n';
+    }
+
+    push @text, $op->label . ": " if $op->label;
+
+    return join("", @text);
+}
+
+sub declare_warnings {
+    my ($self, $from, $to) = @_;
+    $from //= '';
+    my $all = (warnings::bits("all") & WARN_MASK);
+    unless ((($from & WARN_MASK) & ~$all) =~ /[^\0]/) {
+        # no FATAL bits need turning off
+        if (   ($to & WARN_MASK) eq $all) {
+            return $self->keyword("use") . " warnings;\n";
+        }
+        elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) {
+            return $self->keyword("no") . " warnings;\n";
+        }
+    }
+
+    return "BEGIN {\${^WARNING_BITS} = \""
+           . join("", map { sprintf("\\x%02x", ord $_) } split "", $to)
+           . "\"}\n\cK";
+}
+
+sub declare_hints {
+    my ($self, $from, $to) = @_;
+    my $use = $to   & ~$from;
+    my $no  = $from & ~$to;
+    my $decls = "";
+    for my $pragma (hint_pragmas($use)) {
+	$decls .= $self->keyword("use") . " $pragma;\n";
+    }
+    for my $pragma (hint_pragmas($no)) {
+        $decls .= $self->keyword("no") . " $pragma;\n";
+    }
+    return $decls;
+}
+
+# Internal implementation hints that the core sets automatically, so don't need
+# (or want) to be passed back to the user
+my %ignored_hints = (
+    'open<' => 1,
+    'open>' => 1,
+    ':'     => 1,
+    'strict/refs' => 1,
+    'strict/subs' => 1,
+    'strict/vars' => 1,
+);
+
+my %rev_feature;
+
+sub declare_hinthash {
+    my ($self, $from, $to, $indent, $hints) = @_;
+    my $doing_features =
+	($hints & $feature::hint_mask) == $feature::hint_mask;
+    my @decls;
+    my @features;
+    my @unfeatures; # bugs?
+    for my $key (sort keys %$to) {
+	next if $ignored_hints{$key};
+	my $is_feature = $key =~ /^feature_/;
+	next if $is_feature and not $doing_features;
+	if (!exists $from->{$key} or $from->{$key} ne $to->{$key}) {
+	    push(@features, $key), next if $is_feature;
+	    push @decls,
+		qq(\$^H{) . single_delim("q", "'", $key, $self) . qq(} = )
+	      . (
+		   defined $to->{$key}
+			? single_delim("q", "'", $to->{$key}, $self)
+			: 'undef'
+		)
+	      . qq(;);
+	}
+    }
+    for my $key (sort keys %$from) {
+	next if $ignored_hints{$key};
+	my $is_feature = $key =~ /^feature_/;
+	next if $is_feature and not $doing_features;
+	if (!exists $to->{$key}) {
+	    push(@unfeatures, $key), next if $is_feature;
+	    push @decls, qq(delete \$^H{'$key'};);
+	}
+    }
+    my @ret;
+    if (@features || @unfeatures) {
+	if (!%rev_feature) { %rev_feature = reverse %feature::feature }
+    }
+    if (@features) {
+	push @ret, $self->keyword("use") . " feature "
+		 . join(", ", map "'$rev_feature{$_}'", @features) . ";\n";
+    }
+    if (@unfeatures) {
+	push @ret, $self->keyword("no") . " feature "
+		 . join(", ", map "'$rev_feature{$_}'", @unfeatures)
+		 . ";\n";
+    }
+    @decls and
+	push @ret,
+	     join("\n" . (" " x $indent), "BEGIN {", @decls) . "\n}\n\cK";
+    return @ret;
+}
+
+sub hint_pragmas {
+    my ($bits) = @_;
+    my (@pragmas, @strict);
+    push @pragmas, "integer" if $bits & 0x1;
+    for (sort keys %strict_bits) {
+	push @strict, "'$_'" if $bits & $strict_bits{$_};
+    }
+    if (@strict == keys %strict_bits) {
+	push @pragmas, "strict";
+    }
+    elsif (@strict) {
+	push @pragmas, "strict " . join ', ', @strict;
+    }
+    push @pragmas, "bytes" if $bits & 0x8;
+    return @pragmas;
+}
+
+sub pp_dbstate { pp_nextstate(@_) }
+sub pp_setstate { pp_nextstate(@_) }
+
+sub pp_unstack { return "" } # see also leaveloop
+
+my %feature_keywords = (
+  # keyword => 'feature',
+    state   => 'state',
+    say     => 'say',
+    given   => 'switch',
+    when    => 'switch',
+    default => 'switch',
+    break   => 'switch',
+    evalbytes=>'evalbytes',
+    __SUB__ => '__SUB__',
+   fc       => 'fc',
+);
+
+# keywords that are strong and also have a prototype
+#
+my %strong_proto_keywords = map { $_ => 1 } qw(
+    pos
+    prototype
+    scalar
+    study
+    undef
+);
+
+sub feature_enabled {
+	my($self,$name) = @_;
+	my $hh;
+	my $hints = $self->{hints} & $feature::hint_mask;
+	if ($hints && $hints != $feature::hint_mask) {
+	    $hh = _features_from_bundle($hints);
+	}
+	elsif ($hints) { $hh = $self->{'hinthash'} }
+	return $hh && $hh->{"feature_$feature_keywords{$name}"}
+}
+
+sub keyword {
+    my $self = shift;
+    my $name = shift;
+    return $name if $name =~ /^CORE::/; # just in case
+    if (exists $feature_keywords{$name}) {
+	return "CORE::$name" if not $self->feature_enabled($name);
+    }
+    # This sub may be called for a program that has no nextstate ops.  In
+    # that case we may have a lexical sub named no/use/sub in scope but
+    # but $self->lex_in_scope will return false because it depends on the
+    # current nextstate op.  So we need this alternate method if there is
+    # no current cop.
+    if (!$self->{'curcop'}) {
+	$self->populate_curcvlex() if !defined $self->{'curcvlex'};
+	return "CORE::$name" if exists $self->{'curcvlex'}{"m&$name"}
+			     || exists $self->{'curcvlex'}{"o&$name"};
+    } elsif ($self->lex_in_scope("&$name")
+	  || $self->lex_in_scope("&$name", 1)) {
+	return "CORE::$name";
+    }
+    if ($strong_proto_keywords{$name}
+        || ($name !~ /^(?:chom?p|do|exec|glob|s(?:elect|ystem))\z/
+	    && !defined eval{prototype "CORE::$name"})
+    ) { return $name }
+    if (
+	exists $self->{subs_declared}{$name}
+	 or
+	exists &{"$self->{curstash}::$name"}
+    ) {
+	return "CORE::$name"
+    }
+    return $name;
+}
+
+sub baseop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    return $self->keyword($name);
+}
+
+sub pp_stub { "()" }
+sub pp_wantarray { baseop(@_, "wantarray") }
+sub pp_fork { baseop(@_, "fork") }
+sub pp_wait { maybe_targmy(@_, \&baseop, "wait") }
+sub pp_getppid { maybe_targmy(@_, \&baseop, "getppid") }
+sub pp_time { maybe_targmy(@_, \&baseop, "time") }
+sub pp_tms { baseop(@_, "times") }
+sub pp_ghostent { baseop(@_, "gethostent") }
+sub pp_gnetent { baseop(@_, "getnetent") }
+sub pp_gprotoent { baseop(@_, "getprotoent") }
+sub pp_gservent { baseop(@_, "getservent") }
+sub pp_ehostent { baseop(@_, "endhostent") }
+sub pp_enetent { baseop(@_, "endnetent") }
+sub pp_eprotoent { baseop(@_, "endprotoent") }
+sub pp_eservent { baseop(@_, "endservent") }
+sub pp_gpwent { baseop(@_, "getpwent") }
+sub pp_spwent { baseop(@_, "setpwent") }
+sub pp_epwent { baseop(@_, "endpwent") }
+sub pp_ggrent { baseop(@_, "getgrent") }
+sub pp_sgrent { baseop(@_, "setgrent") }
+sub pp_egrent { baseop(@_, "endgrent") }
+sub pp_getlogin { baseop(@_, "getlogin") }
+
+sub POSTFIX () { 1 }
+
+# I couldn't think of a good short name, but this is the category of
+# symbolic unary operators with interesting precedence
+
+sub pfixop {
+    my $self = shift;
+    my($op, $cx, $name, $prec, $flags) = (@_, 0);
+    my $kid = $op->first;
+    $kid = $self->deparse($kid, $prec);
+    return $self->maybe_parens(($flags & POSTFIX)
+				 ? "$kid$name"
+				   # avoid confusion with filetests
+				 : $name eq '-'
+				   && $kid =~ /^[a-zA-Z](?!\w)/
+					? "$name($kid)"
+					: "$name$kid",
+			       $cx, $prec);
+}
+
+sub pp_preinc { pfixop(@_, "++", 23) }
+sub pp_predec { pfixop(@_, "--", 23) }
+sub pp_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) }
+sub pp_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) }
+sub pp_i_preinc { pfixop(@_, "++", 23) }
+sub pp_i_predec { pfixop(@_, "--", 23) }
+sub pp_i_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) }
+sub pp_i_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) }
+sub pp_complement { maybe_targmy(@_, \&pfixop, "~", 21) }
+*pp_ncomplement = *pp_complement;
+sub pp_scomplement { maybe_targmy(@_, \&pfixop, "~.", 21) }
+
+sub pp_negate { maybe_targmy(@_, \&real_negate) }
+sub real_negate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($op->first->name =~ /^(i_)?negate$/) {
+	# avoid --$x
+	$self->pfixop($op, $cx, "-", 21.5);
+    } else {
+	$self->pfixop($op, $cx, "-", 21);	
+    }
+}
+sub pp_i_negate { pp_negate(@_) }
+
+sub pp_not {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($cx <= 4) {
+	$self->listop($op, $cx, "not", $op->first);
+    } else {
+	$self->pfixop($op, $cx, "!", 21);	
+    }
+}
+
+sub unop {
+    my $self = shift;
+    my($op, $cx, $name, $nollafr) = @_;
+    my $kid;
+    if ($op->flags & OPf_KIDS) {
+	$kid = $op->first;
+ 	if (not $name) {
+ 	    # this deals with 'boolkeys' right now
+ 	    return $self->deparse($kid,$cx);
+ 	}
+	my $builtinname = $name;
+	$builtinname =~ /^CORE::/ or $builtinname = "CORE::$name";
+	if (defined prototype($builtinname)
+	   && $builtinname ne 'CORE::readline'
+	   && prototype($builtinname) =~ /^;?\*/
+	   && $kid->name eq "rv2gv") {
+	    $kid = $kid->first;
+	}
+
+	if ($nollafr) {
+	    if (($kid = $self->deparse($kid, 16)) !~ s/^\cS//) {
+		# require foo() is a syntax error.
+		$kid =~ /^(?!\d)\w/ and $kid = "($kid)";
+	    }
+	    return $self->maybe_parens(
+			$self->keyword($name) . " $kid", $cx, 16
+		   );
+	}   
+	return $self->maybe_parens_unop($name, $kid, $cx);
+    } else {
+	return $self->maybe_parens(
+	    $self->keyword($name) . ($op->flags & OPf_SPECIAL ? "()" : ""),
+	    $cx, 16,
+	);
+    }
+}
+
+sub pp_chop { maybe_targmy(@_, \&unop, "chop") }
+sub pp_chomp { maybe_targmy(@_, \&unop, "chomp") }
+sub pp_schop { maybe_targmy(@_, \&unop, "chop") }
+sub pp_schomp { maybe_targmy(@_, \&unop, "chomp") }
+sub pp_defined { unop(@_, "defined") }
+sub pp_undef { unop(@_, "undef") }
+sub pp_study { unop(@_, "study") }
+sub pp_ref { unop(@_, "ref") }
+sub pp_pos { maybe_local(@_, unop(@_, "pos")) }
+
+sub pp_sin { maybe_targmy(@_, \&unop, "sin") }
+sub pp_cos { maybe_targmy(@_, \&unop, "cos") }
+sub pp_rand { maybe_targmy(@_, \&unop, "rand") }
+sub pp_srand { unop(@_, "srand") }
+sub pp_exp { maybe_targmy(@_, \&unop, "exp") }
+sub pp_log { maybe_targmy(@_, \&unop, "log") }
+sub pp_sqrt { maybe_targmy(@_, \&unop, "sqrt") }
+sub pp_int { maybe_targmy(@_, \&unop, "int") }
+sub pp_hex { maybe_targmy(@_, \&unop, "hex") }
+sub pp_oct { maybe_targmy(@_, \&unop, "oct") }
+sub pp_abs { maybe_targmy(@_, \&unop, "abs") }
+
+sub pp_length { maybe_targmy(@_, \&unop, "length") }
+sub pp_ord { maybe_targmy(@_, \&unop, "ord") }
+sub pp_chr { maybe_targmy(@_, \&unop, "chr") }
+
+sub pp_each { unop(@_, "each") }
+sub pp_values { unop(@_, "values") }
+sub pp_keys { unop(@_, "keys") }
+{ no strict 'refs'; *{"pp_r$_"} = *{"pp_$_"} for qw< keys each values >; }
+sub pp_boolkeys { 
+    # no name because its an optimisation op that has no keyword
+    unop(@_,"");
+}
+sub pp_aeach { unop(@_, "each") }
+sub pp_avalues { unop(@_, "values") }
+sub pp_akeys { unop(@_, "keys") }
+sub pp_pop { unop(@_, "pop") }
+sub pp_shift { unop(@_, "shift") }
+
+sub pp_caller { unop(@_, "caller") }
+sub pp_reset { unop(@_, "reset") }
+sub pp_exit { unop(@_, "exit") }
+sub pp_prototype { unop(@_, "prototype") }
+
+sub pp_close { unop(@_, "close") }
+sub pp_fileno { unop(@_, "fileno") }
+sub pp_umask { unop(@_, "umask") }
+sub pp_untie { unop(@_, "untie") }
+sub pp_tied { unop(@_, "tied") }
+sub pp_dbmclose { unop(@_, "dbmclose") }
+sub pp_getc { unop(@_, "getc") }
+sub pp_eof { unop(@_, "eof") }
+sub pp_tell { unop(@_, "tell") }
+sub pp_getsockname { unop(@_, "getsockname") }
+sub pp_getpeername { unop(@_, "getpeername") }
+
+sub pp_chdir {
+    my ($self, $op, $cx) = @_;
+    if (($op->flags & (OPf_SPECIAL|OPf_KIDS)) == (OPf_SPECIAL|OPf_KIDS)) {
+	my $kw = $self->keyword("chdir");
+	my $kid = $self->const_sv($op->first)->PV;
+	my $code = $kw
+		 . ($cx >= 16 || $self->{'parens'} ? "($kid)" : " $kid");
+	maybe_targmy(@_, sub { $_[3] }, $code);
+    } else {
+	maybe_targmy(@_, \&unop, "chdir")
+    }
+}
+
+sub pp_chroot { maybe_targmy(@_, \&unop, "chroot") }
+sub pp_readlink { unop(@_, "readlink") }
+sub pp_rmdir { maybe_targmy(@_, \&unop, "rmdir") }
+sub pp_readdir { unop(@_, "readdir") }
+sub pp_telldir { unop(@_, "telldir") }
+sub pp_rewinddir { unop(@_, "rewinddir") }
+sub pp_closedir { unop(@_, "closedir") }
+sub pp_getpgrp { maybe_targmy(@_, \&unop, "getpgrp") }
+sub pp_localtime { unop(@_, "localtime") }
+sub pp_gmtime { unop(@_, "gmtime") }
+sub pp_alarm { unop(@_, "alarm") }
+sub pp_sleep { maybe_targmy(@_, \&unop, "sleep") }
+
+sub pp_dofile {
+    my $code = unop(@_, "do", 1); # llafr does not apply
+    if ($code =~ s/^((?:CORE::)?do) \{/$1({/) { $code .= ')' }
+    $code;
+}
+sub pp_entereval {
+    unop(
+      @_,
+      $_[1]->private & OPpEVAL_BYTES ? 'evalbytes' : "eval"
+    )
+}
+
+sub pp_ghbyname { unop(@_, "gethostbyname") }
+sub pp_gnbyname { unop(@_, "getnetbyname") }
+sub pp_gpbyname { unop(@_, "getprotobyname") }
+sub pp_shostent { unop(@_, "sethostent") }
+sub pp_snetent { unop(@_, "setnetent") }
+sub pp_sprotoent { unop(@_, "setprotoent") }
+sub pp_sservent { unop(@_, "setservent") }
+sub pp_gpwnam { unop(@_, "getpwnam") }
+sub pp_gpwuid { unop(@_, "getpwuid") }
+sub pp_ggrnam { unop(@_, "getgrnam") }
+sub pp_ggrgid { unop(@_, "getgrgid") }
+
+sub pp_lock { unop(@_, "lock") }
+
+sub pp_continue { unop(@_, "continue"); }
+sub pp_break { unop(@_, "break"); }
+
+sub givwhen {
+    my $self = shift;
+    my($op, $cx, $givwhen) = @_;
+
+    my $enterop = $op->first;
+    my ($head, $block);
+    if ($enterop->flags & OPf_SPECIAL) {
+	$head = $self->keyword("default");
+	$block = $self->deparse($enterop->first, 0);
+    }
+    else {
+	my $cond = $enterop->first;
+	my $cond_str = $self->deparse($cond, 1);
+	$head = "$givwhen ($cond_str)";
+	$block = $self->deparse($cond->sibling, 0);
+    }
+
+    return "$head {\n".
+	"\t$block\n".
+	"\b}\cK";
+}
+
+sub pp_leavegiven { givwhen(@_, $_[0]->keyword("given")); }
+sub pp_leavewhen  { givwhen(@_, $_[0]->keyword("when")); }
+
+sub pp_exists {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $arg;
+    my $name = $self->keyword("exists");
+    if ($op->private & OPpEXISTS_SUB) {
+	# Checking for the existence of a subroutine
+	return $self->maybe_parens_func($name,
+				$self->pp_rv2cv($op->first, 16), $cx, 16);
+    }
+    if ($op->flags & OPf_SPECIAL) {
+	# Array element, not hash element
+	return $self->maybe_parens_func($name,
+				$self->pp_aelem($op->first, 16), $cx, 16);
+    }
+    return $self->maybe_parens_func($name, $self->pp_helem($op->first, 16),
+				    $cx, 16);
+}
+
+sub pp_delete {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $arg;
+    my $name = $self->keyword("delete");
+    if ($op->private & (OPpSLICE|OPpKVSLICE)) {
+	if ($op->flags & OPf_SPECIAL) {
+	    # Deleting from an array, not a hash
+	    return $self->maybe_parens_func($name,
+					$self->pp_aslice($op->first, 16),
+					$cx, 16);
+	}
+	return $self->maybe_parens_func($name,
+					$self->pp_hslice($op->first, 16),
+					$cx, 16);
+    } else {
+	if ($op->flags & OPf_SPECIAL) {
+	    # Deleting from an array, not a hash
+	    return $self->maybe_parens_func($name,
+					$self->pp_aelem($op->first, 16),
+					$cx, 16);
+	}
+	return $self->maybe_parens_func($name,
+					$self->pp_helem($op->first, 16),
+					$cx, 16);
+    }
+}
+
+sub pp_require {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $opname = $op->flags & OPf_SPECIAL ? 'CORE::require' : 'require';
+    my $kid = $op->first;
+    if ($kid->name eq 'const') {
+	my $priv = $kid->private;
+	my $sv = $self->const_sv($kid);
+	my $arg;
+	if ($priv & OPpCONST_BARE) {
+	    $arg = $sv->PV;
+	    $arg =~ s[/][::]g;
+	    $arg =~ s/\.pm//g;
+	} elsif ($priv & OPpCONST_NOVER) {
+	    $opname = $self->keyword('no');
+	    $arg = $self->const($sv, 16);
+	} elsif ((my $tmp = $self->const($sv, 16)) =~ /^v/) {
+	    $arg = $tmp;
+	}
+	if ($arg) {
+	    return $self->maybe_parens("$opname $arg", $cx, 16);
+	}
+    }
+    $self->unop(
+	    $op, $cx,
+	    $opname,
+	    1, # llafr does not apply
+    );
+}
+
+sub pp_scalar {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if (not null $kid->sibling) {
+	# XXX Was a here-doc
+	return $self->dquote($op);
+    }
+    $self->unop(@_, "scalar");
+}
+
+
+sub padval {
+    my $self = shift;
+    my $targ = shift;
+    return $self->{'curcv'}->PADLIST->ARRAYelt(1)->ARRAYelt($targ);
+}
+
+sub anon_hash_or_list {
+    my $self = shift;
+    my($op, $cx) = @_;
+
+    my($pre, $post) = @{{"anonlist" => ["[","]"],
+			 "anonhash" => ["{","}"]}->{$op->name}};
+    my($expr, @exprs);
+    $op = $op->first->sibling; # skip pushmark
+    for (; !null($op); $op = $op->sibling) {
+	$expr = $self->deparse($op, 6);
+	push @exprs, $expr;
+    }
+    if ($pre eq "{" and $cx < 1) {
+	# Disambiguate that it's not a block
+	$pre = "+{";
+    }
+    return $pre . join(", ", @exprs) . $post;
+}
+
+sub pp_anonlist {
+    my $self = shift;
+    my ($op, $cx) = @_;
+    if ($op->flags & OPf_SPECIAL) {
+	return $self->anon_hash_or_list($op, $cx);
+    }
+    warn "Unexpected op pp_" . $op->name() . " without OPf_SPECIAL";
+    return 'XXX';
+}
+
+*pp_anonhash = \&pp_anonlist;
+
+sub pp_refgen {
+    my $self = shift;	
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if ($kid->name eq "null") {
+	my $anoncode = $kid = $kid->first;
+	if ($anoncode->name eq "anonconst") {
+	    $anoncode = $anoncode->first->first->sibling;
+	}
+	if ($anoncode->name eq "anoncode"
+	 or !null($anoncode = $kid->sibling) and
+		 $anoncode->name eq "anoncode") {
+            return $self->e_anoncode({ code => $self->padval($anoncode->targ) });
+	} elsif ($kid->name eq "pushmark") {
+            my $sib_name = $kid->sibling->name;
+            if ($sib_name eq 'entersub') {
+                my $text = $self->deparse($kid->sibling, 1);
+                # Always show parens for \(&func()), but only with -p otherwise
+                $text = "($text)" if $self->{'parens'}
+                                 or $kid->sibling->private & OPpENTERSUB_AMPER;
+                return "\\$text";
+            }
+        }
+    }
+    local $self->{'in_refgen'} = 1;
+    $self->pfixop($op, $cx, "\\", 20);
+}
+
+sub e_anoncode {
+    my ($self, $info) = @_;
+    my $text = $self->deparse_sub($info->{code});
+    return $self->keyword("sub") . " $text";
+}
+
+sub pp_srefgen { pp_refgen(@_) }
+
+sub pp_readline {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if (is_scalar($kid)
+        and $op->flags & OPf_SPECIAL
+        and $self->deparse($kid, 1) eq 'ARGV')
+    {
+        return '<<>>';
+    }
+    return $self->unop($op, $cx, "readline");
+}
+
+sub pp_rcatline {
+    my $self = shift;
+    my($op) = @_;
+    return "<" . $self->gv_name($self->gv_or_padgv($op)) . ">";
+}
+
+# Unary operators that can occur as pseudo-listops inside double quotes
+sub dq_unop {
+    my $self = shift;
+    my($op, $cx, $name, $prec, $flags) = (@_, 0, 0);
+    my $kid;
+    if ($op->flags & OPf_KIDS) {
+       $kid = $op->first;
+       # If there's more than one kid, the first is an ex-pushmark.
+       $kid = $kid->sibling if not null $kid->sibling;
+       return $self->maybe_parens_unop($name, $kid, $cx);
+    } else {
+       return $name .  ($op->flags & OPf_SPECIAL ? "()" : "");
+    }
+}
+
+sub pp_ucfirst { dq_unop(@_, "ucfirst") }
+sub pp_lcfirst { dq_unop(@_, "lcfirst") }
+sub pp_uc { dq_unop(@_, "uc") }
+sub pp_lc { dq_unop(@_, "lc") }
+sub pp_quotemeta { maybe_targmy(@_, \&dq_unop, "quotemeta") }
+sub pp_fc { dq_unop(@_, "fc") }
+
+sub loopex {
+    my $self = shift;
+    my ($op, $cx, $name) = @_;
+    if (class($op) eq "PVOP") {
+	$name .= " " . $op->pv;
+    } elsif (class($op) eq "OP") {
+	# no-op
+    } elsif (class($op) eq "UNOP") {
+	(my $kid = $self->deparse($op->first, 7)) =~ s/^\cS//;
+	# last foo() is a syntax error.
+	$kid =~ /^(?!\d)\w/ and $kid = "($kid)";
+	$name .= " $kid";
+    }
+    return $self->maybe_parens($name, $cx, 7);
+}
+
+sub pp_last { loopex(@_, "last") }
+sub pp_next { loopex(@_, "next") }
+sub pp_redo { loopex(@_, "redo") }
+sub pp_goto { loopex(@_, "goto") }
+sub pp_dump { loopex(@_, "CORE::dump") }
+
+sub ftst {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    if (class($op) eq "UNOP") {
+	# Genuine '-X' filetests are exempt from the LLAFR, but not
+	# l?stat()
+	if ($name =~ /^-/) {
+	    (my $kid = $self->deparse($op->first, 16)) =~ s/^\cS//;
+	    return $self->maybe_parens("$name $kid", $cx, 16);
+	}
+	return $self->maybe_parens_unop($name, $op->first, $cx);
+    } elsif (class($op) =~ /^(SV|PAD)OP$/) {
+	return $self->maybe_parens_func($name, $self->pp_gv($op, 1), $cx, 16);
+    } else { # I don't think baseop filetests ever survive ck_ftst, but...
+	return $name;
+    }
+}
+
+sub pp_lstat    { ftst(@_, "lstat") }
+sub pp_stat     { ftst(@_, "stat") }
+sub pp_ftrread  { ftst(@_, "-R") }
+sub pp_ftrwrite { ftst(@_, "-W") }
+sub pp_ftrexec  { ftst(@_, "-X") }
+sub pp_fteread  { ftst(@_, "-r") }
+sub pp_ftewrite { ftst(@_, "-w") }
+sub pp_fteexec  { ftst(@_, "-x") }
+sub pp_ftis     { ftst(@_, "-e") }
+sub pp_fteowned { ftst(@_, "-O") }
+sub pp_ftrowned { ftst(@_, "-o") }
+sub pp_ftzero   { ftst(@_, "-z") }
+sub pp_ftsize   { ftst(@_, "-s") }
+sub pp_ftmtime  { ftst(@_, "-M") }
+sub pp_ftatime  { ftst(@_, "-A") }
+sub pp_ftctime  { ftst(@_, "-C") }
+sub pp_ftsock   { ftst(@_, "-S") }
+sub pp_ftchr    { ftst(@_, "-c") }
+sub pp_ftblk    { ftst(@_, "-b") }
+sub pp_ftfile   { ftst(@_, "-f") }
+sub pp_ftdir    { ftst(@_, "-d") }
+sub pp_ftpipe   { ftst(@_, "-p") }
+sub pp_ftlink   { ftst(@_, "-l") }
+sub pp_ftsuid   { ftst(@_, "-u") }
+sub pp_ftsgid   { ftst(@_, "-g") }
+sub pp_ftsvtx   { ftst(@_, "-k") }
+sub pp_fttty    { ftst(@_, "-t") }
+sub pp_fttext   { ftst(@_, "-T") }
+sub pp_ftbinary { ftst(@_, "-B") }
+
+sub SWAP_CHILDREN () { 1 }
+sub ASSIGN () { 2 } # has OP= variant
+sub LIST_CONTEXT () { 4 } # Assignment is in list context
+
+my(%left, %right);
+
+sub assoc_class {
+    my $op = shift;
+    my $name = $op->name;
+    if ($name eq "concat" and $op->first->name eq "concat") {
+	# avoid spurious '=' -- see comment in pp_concat
+	return "concat";
+    }
+    if ($name eq "null" and class($op) eq "UNOP"
+	and $op->first->name =~ /^(and|x?or)$/
+	and null $op->first->sibling)
+    {
+	# Like all conditional constructs, OP_ANDs and OP_ORs are topped
+	# with a null that's used as the common end point of the two
+	# flows of control. For precedence purposes, ignore it.
+	# (COND_EXPRs have these too, but we don't bother with
+	# their associativity).
+	return assoc_class($op->first);
+    }
+    return $name . ($op->flags & OPf_STACKED ? "=" : "");
+}
+
+# Left associative operators, like '+', for which
+# $a + $b + $c is equivalent to ($a + $b) + $c
+
+BEGIN {
+    %left = ('multiply' => 19, 'i_multiply' => 19,
+	     'divide' => 19, 'i_divide' => 19,
+	     'modulo' => 19, 'i_modulo' => 19,
+	     'repeat' => 19,
+	     'add' => 18, 'i_add' => 18,
+	     'subtract' => 18, 'i_subtract' => 18,
+	     'concat' => 18,
+	     'left_shift' => 17, 'right_shift' => 17,
+	     'bit_and' => 13, 'nbit_and' => 13, 'sbit_and' => 13,
+	     'bit_or' => 12, 'bit_xor' => 12,
+	     'sbit_or' => 12, 'sbit_xor' => 12,
+	     'nbit_or' => 12, 'nbit_xor' => 12,
+	     'and' => 3,
+	     'or' => 2, 'xor' => 2,
+	    );
+}
+
+sub deparse_binop_left {
+    my $self = shift;
+    my($op, $left, $prec) = @_;
+    if ($left{assoc_class($op)} && $left{assoc_class($left)}
+	and $left{assoc_class($op)} == $left{assoc_class($left)})
+    {
+	return $self->deparse($left, $prec - .00001);
+    } else {
+	return $self->deparse($left, $prec);	
+    }
+}
+
+# Right associative operators, like '=', for which
+# $a = $b = $c is equivalent to $a = ($b = $c)
+
+BEGIN {
+    %right = ('pow' => 22,
+	      'sassign=' => 7, 'aassign=' => 7,
+	      'multiply=' => 7, 'i_multiply=' => 7,
+	      'divide=' => 7, 'i_divide=' => 7,
+	      'modulo=' => 7, 'i_modulo=' => 7,
+	      'repeat=' => 7, 'refassign' => 7, 'refassign=' => 7,
+	      'add=' => 7, 'i_add=' => 7,
+	      'subtract=' => 7, 'i_subtract=' => 7,
+	      'concat=' => 7,
+	      'left_shift=' => 7, 'right_shift=' => 7,
+	      'bit_and=' => 7, 'sbit_and=' => 7, 'nbit_and=' => 7,
+	      'nbit_or=' => 7, 'nbit_xor=' => 7,
+	      'sbit_or=' => 7, 'sbit_xor=' => 7,
+	      'andassign' => 7,
+	      'orassign' => 7,
+	     );
+}
+
+sub deparse_binop_right {
+    my $self = shift;
+    my($op, $right, $prec) = @_;
+    if ($right{assoc_class($op)} && $right{assoc_class($right)}
+	and $right{assoc_class($op)} == $right{assoc_class($right)})
+    {
+	return $self->deparse($right, $prec - .00001);
+    } else {
+	return $self->deparse($right, $prec);	
+    }
+}
+
+sub binop {
+    my $self = shift;
+    my ($op, $cx, $opname, $prec, $flags) = (@_, 0);
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    if ($op->flags & OPf_STACKED && $flags & ASSIGN) {
+	$eq = "=";
+	$prec = 7;
+    }
+    if ($flags & SWAP_CHILDREN) {
+	($left, $right) = ($right, $left);
+    }
+    my $leftop = $left;
+    $left = $self->deparse_binop_left($op, $left, $prec);
+    $left = "($left)" if $flags & LIST_CONTEXT
+		     and    $left !~ /^(my|our|local|state|)\s*[\@%\(]/
+			 || do {
+				# Parenthesize if the left argument is a
+				# lone repeat op.
+				my $left = $leftop->first->sibling;
+				$left->name eq 'repeat'
+				    && null($left->sibling);
+			    };
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left $opname$eq $right", $cx, $prec);
+}
+
+sub pp_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) }
+sub pp_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) }
+sub pp_subtract { maybe_targmy(@_, \&binop, "-",18,  ASSIGN) }
+sub pp_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) }
+sub pp_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) }
+sub pp_i_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) }
+sub pp_i_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) }
+sub pp_i_subtract { maybe_targmy(@_, \&binop, "-", 18, ASSIGN) }
+sub pp_i_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) }
+sub pp_i_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) }
+sub pp_pow { maybe_targmy(@_, \&binop, "**", 22, ASSIGN) }
+
+sub pp_left_shift { maybe_targmy(@_, \&binop, "<<", 17, ASSIGN) }
+sub pp_right_shift { maybe_targmy(@_, \&binop, ">>", 17, ASSIGN) }
+sub pp_bit_and { maybe_targmy(@_, \&binop, "&", 13, ASSIGN) }
+sub pp_bit_or { maybe_targmy(@_, \&binop, "|", 12, ASSIGN) }
+sub pp_bit_xor { maybe_targmy(@_, \&binop, "^", 12, ASSIGN) }
+*pp_nbit_and = *pp_bit_and;
+*pp_nbit_or  = *pp_bit_or;
+*pp_nbit_xor = *pp_bit_xor;
+sub pp_sbit_and { maybe_targmy(@_, \&binop, "&.", 13, ASSIGN) }
+sub pp_sbit_or { maybe_targmy(@_, \&binop, "|.", 12, ASSIGN) }
+sub pp_sbit_xor { maybe_targmy(@_, \&binop, "^.", 12, ASSIGN) }
+
+sub pp_eq { binop(@_, "==", 14) }
+sub pp_ne { binop(@_, "!=", 14) }
+sub pp_lt { binop(@_, "<", 15) }
+sub pp_gt { binop(@_, ">", 15) }
+sub pp_ge { binop(@_, ">=", 15) }
+sub pp_le { binop(@_, "<=", 15) }
+sub pp_ncmp { binop(@_, "<=>", 14) }
+sub pp_i_eq { binop(@_, "==", 14) }
+sub pp_i_ne { binop(@_, "!=", 14) }
+sub pp_i_lt { binop(@_, "<", 15) }
+sub pp_i_gt { binop(@_, ">", 15) }
+sub pp_i_ge { binop(@_, ">=", 15) }
+sub pp_i_le { binop(@_, "<=", 15) }
+sub pp_i_ncmp { maybe_targmy(@_, \&binop, "<=>", 14) }
+
+sub pp_seq { binop(@_, "eq", 14) }
+sub pp_sne { binop(@_, "ne", 14) }
+sub pp_slt { binop(@_, "lt", 15) }
+sub pp_sgt { binop(@_, "gt", 15) }
+sub pp_sge { binop(@_, "ge", 15) }
+sub pp_sle { binop(@_, "le", 15) }
+sub pp_scmp { maybe_targmy(@_, \&binop, "cmp", 14) }
+
+sub pp_sassign { binop(@_, "=", 7, SWAP_CHILDREN) }
+sub pp_aassign { binop(@_, "=", 7, SWAP_CHILDREN | LIST_CONTEXT) }
+
+sub pp_smartmatch {
+    my ($self, $op, $cx) = @_;
+    if (($op->flags & OPf_SPECIAL) && $self->{expand} < 2) {
+	return $self->deparse($op->last, $cx);
+    }
+    else {
+	binop(@_, "~~", 14);
+    }
+}
+
+# '.' is special because concats-of-concats are optimized to save copying
+# by making all but the first concat stacked. The effect is as if the
+# programmer had written '($a . $b) .= $c', except legal.
+sub pp_concat { maybe_targmy(@_, \&real_concat) }
+sub real_concat {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    my $prec = 18;
+    if (($op->flags & OPf_STACKED) and !($op->private & OPpCONCAT_NESTED)) {
+        # '.=' rather than optimised '.'
+	$eq = "=";
+	$prec = 7;
+    }
+    $left = $self->deparse_binop_left($op, $left, $prec);
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left .$eq $right", $cx, $prec);
+}
+
+sub pp_repeat { maybe_targmy(@_, \&repeat) }
+
+# 'x' is weird when the left arg is a list
+sub repeat {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    my $prec = 19;
+    if ($op->flags & OPf_STACKED) {
+	$eq = "=";
+	$prec = 7;
+    }
+    if (null($right)) { # list repeat; count is inside left-side ex-list
+			# in 5.21.5 and earlier
+	my $kid = $left->first->sibling; # skip pushmark
+	my @exprs;
+	for (; !null($kid->sibling); $kid = $kid->sibling) {
+	    push @exprs, $self->deparse($kid, 6);
+	}
+	$right = $kid;
+	$left = "(" . join(", ", @exprs). ")";
+    } else {
+	my $dolist = $op->private & OPpREPEAT_DOLIST;
+	$left = $self->deparse_binop_left($op, $left, $dolist ? 1 : $prec);
+	if ($dolist) {
+	    $left = "($left)";
+	}
+    }
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left x$eq $right", $cx, $prec);
+}
+
+sub range {
+    my $self = shift;
+    my ($op, $cx, $type) = @_;
+    my $left = $op->first;
+    my $right = $left->sibling;
+    $left = $self->deparse($left, 9);
+    $right = $self->deparse($right, 9);
+    return $self->maybe_parens("$left $type $right", $cx, 9);
+}
+
+sub pp_flop {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $flip = $op->first;
+    my $type = ($flip->flags & OPf_SPECIAL) ? "..." : "..";
+    return $self->range($flip->first, $cx, $type);
+}
+
+# one-line while/until is handled in pp_leave
+
+sub logop {
+    my $self = shift;
+    my ($op, $cx, $lowop, $lowprec, $highop, $highprec, $blockname) = @_;
+    my $left = $op->first;
+    my $right = $op->first->sibling;
+    $blockname &&= $self->keyword($blockname);
+    if ($cx < 1 and is_scope($right) and $blockname
+	and $self->{'expand'} < 7)
+    { # if ($a) {$b}
+	$left = $self->deparse($left, 1);
+	$right = $self->deparse($right, 0);
+	return "$blockname ($left) {\n\t$right\n\b}\cK";
+    } elsif ($cx < 1 and $blockname and not $self->{'parens'}
+	     and $self->{'expand'} < 7) { # $b if $a
+	$right = $self->deparse($right, 1);
+	$left = $self->deparse($left, 1);
+	return "$right $blockname $left";
+    } elsif ($cx > $lowprec and $highop) { # $a && $b
+	$left = $self->deparse_binop_left($op, $left, $highprec);
+	$right = $self->deparse_binop_right($op, $right, $highprec);
+	return $self->maybe_parens("$left $highop $right", $cx, $highprec);
+    } else { # $a and $b
+	$left = $self->deparse_binop_left($op, $left, $lowprec);
+	$right = $self->deparse_binop_right($op, $right, $lowprec);
+	return $self->maybe_parens("$left $lowop $right", $cx, $lowprec);
+    }
+}
+
+sub pp_and { logop(@_, "and", 3, "&&", 11, "if") }
+sub pp_or  { logop(@_, "or",  2, "||", 10, "unless") }
+sub pp_dor { logop(@_, "//", 10) }
+
+# xor is syntactically a logop, but it's really a binop (contrary to
+# old versions of opcode.pl). Syntax is what matters here.
+sub pp_xor { logop(@_, "xor", 2, "",   0,  "") }
+
+sub logassignop {
+    my $self = shift;
+    my ($op, $cx, $opname) = @_;
+    my $left = $op->first;
+    my $right = $op->first->sibling->first; # skip sassign
+    $left = $self->deparse($left, 7);
+    $right = $self->deparse($right, 7);
+    return $self->maybe_parens("$left $opname $right", $cx, 7);
+}
+
+sub pp_andassign { logassignop(@_, "&&=") }
+sub pp_orassign  { logassignop(@_, "||=") }
+sub pp_dorassign { logassignop(@_, "//=") }
+
+sub rv2gv_or_string {
+    my($self,$op) = @_;
+    if ($op->name eq "gv") { # could be open("open") or open("###")
+	my($name,$quoted) =
+	    $self->stash_variable_name("", $self->gv_or_padgv($op));
+	$quoted ? $name : "*$name";
+    }
+    else {
+	$self->deparse($op, 6);
+    }
+}
+
+sub listop {
+    my $self = shift;
+    my($op, $cx, $name, $kid, $nollafr) = @_;
+    my(@exprs);
+    my $parens = ($cx >= 5) || $self->{'parens'};
+    $kid ||= $op->first->sibling;
+    # If there are no arguments, add final parentheses (or parenthesize the
+    # whole thing if the llafr does not apply) to account for cases like
+    # (return)+1 or setpgrp()+1.  When the llafr does not apply, we use a
+    # precedence of 6 (< comma), as "return, 1" does not need parentheses.
+    if (null $kid) {
+	return $nollafr
+		? $self->maybe_parens($self->keyword($name), $cx, 7)
+		: $self->keyword($name) . '()' x (7 < $cx);
+    }
+    my $first;
+    my $fullname = $self->keyword($name);
+    my $proto = prototype("CORE::$name");
+    if (
+	 (     (defined $proto && $proto =~ /^;?\*/)
+	    || $name eq 'select' # select(F) doesn't have a proto
+	 )
+	 && $kid->name eq "rv2gv"
+	 && !($kid->private & OPpLVAL_INTRO)
+    ) {
+	$first = $self->rv2gv_or_string($kid->first);
+    }
+    else {
+	$first = $self->deparse($kid, 6);
+    }
+    if ($name eq "chmod" && $first =~ /^\d+$/) {
+	$first = sprintf("%#o", $first);
+    }
+    $first = "+$first"
+	if not $parens and not $nollafr and substr($first, 0, 1) eq "(";
+    push @exprs, $first;
+    $kid = $kid->sibling;
+    if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv"
+	 && !($kid->private & OPpLVAL_INTRO)) {
+	push @exprs, $first = $self->rv2gv_or_string($kid->first);
+	$kid = $kid->sibling;
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	push @exprs, $self->deparse($kid, 6);
+    }
+    if ($name eq "reverse" && ($op->private & OPpREVERSE_INPLACE)) {
+	return "$exprs[0] = $fullname"
+	         . ($parens ? "($exprs[0])" : " $exprs[0]");
+    }
+
+    if ($parens && $nollafr) {
+	return "($fullname " . join(", ", @exprs) . ")";
+    } elsif ($parens) {
+	return "$fullname(" . join(", ", @exprs) . ")";
+    } else {
+	return "$fullname " . join(", ", @exprs);
+    }
+}
+
+sub pp_bless { listop(@_, "bless") }
+sub pp_atan2 { maybe_targmy(@_, \&listop, "atan2") }
+sub pp_substr {
+    my ($self,$op,$cx) = @_;
+    if ($op->private & OPpSUBSTR_REPL_FIRST) {
+	return
+	   listop($self, $op, 7, "substr", $op->first->sibling->sibling)
+	 . " = "
+	 . $self->deparse($op->first->sibling, 7);
+    }
+    maybe_local(@_, listop(@_, "substr"))
+}
+
+sub pp_index {
+    # Also handles pp_rindex.
+    #
+    # The body of this function includes an unrolled maybe_targmy(),
+    # since the two parts of that sub's actions need to have have the
+    # '== -1' bit in between
+
+    my($self, $op, $cx) = @_;
+
+    my $lex  = ($op->private & OPpTARGET_MY);
+    my $bool = ($op->private & OPpTRUEBOOL);
+
+    my $val = $self->listop($op, ($bool ? 14 : $lex ? 7 : $cx), $op->name);
+
+    # (index() == -1) has op_eq and op_const optimised away
+    if ($bool) {
+        $val .= ($op->private & OPpINDEX_BOOLNEG) ? " == -1" : " != -1";
+        $val = "($val)" if ($op->flags & OPf_PARENS);
+    }
+    if ($lex) {
+	my $var = $self->padname($op->targ);
+	$val = $self->maybe_parens("$var = $val", $cx, 7);
+    }
+    $val;
+}
+
+sub pp_rindex { pp_index(@_); }
+sub pp_vec { maybe_targmy(@_, \&maybe_local, listop(@_, "vec")) }
+sub pp_sprintf { maybe_targmy(@_, \&listop, "sprintf") }
+sub pp_formline { listop(@_, "formline") } # see also deparse_format
+sub pp_crypt { maybe_targmy(@_, \&listop, "crypt") }
+sub pp_unpack { listop(@_, "unpack") }
+sub pp_pack { listop(@_, "pack") }
+sub pp_join { maybe_targmy(@_, \&listop, "join") }
+sub pp_splice { listop(@_, "splice") }
+sub pp_push { maybe_targmy(@_, \&listop, "push") }
+sub pp_unshift { maybe_targmy(@_, \&listop, "unshift") }
+sub pp_reverse { listop(@_, "reverse") }
+sub pp_warn { listop(@_, "warn") }
+sub pp_die { listop(@_, "die") }
+sub pp_return { listop(@_, "return", undef, 1) } # llafr does not apply
+sub pp_open { listop(@_, "open") }
+sub pp_pipe_op { listop(@_, "pipe") }
+sub pp_tie { listop(@_, "tie") }
+sub pp_binmode { listop(@_, "binmode") }
+sub pp_dbmopen { listop(@_, "dbmopen") }
+sub pp_sselect { listop(@_, "select") }
+sub pp_select { listop(@_, "select") }
+sub pp_read { listop(@_, "read") }
+sub pp_sysopen { listop(@_, "sysopen") }
+sub pp_sysseek { listop(@_, "sysseek") }
+sub pp_sysread { listop(@_, "sysread") }
+sub pp_syswrite { listop(@_, "syswrite") }
+sub pp_send { listop(@_, "send") }
+sub pp_recv { listop(@_, "recv") }
+sub pp_seek { listop(@_, "seek") }
+sub pp_fcntl { listop(@_, "fcntl") }
+sub pp_ioctl { listop(@_, "ioctl") }
+sub pp_flock { maybe_targmy(@_, \&listop, "flock") }
+sub pp_socket { listop(@_, "socket") }
+sub pp_sockpair { listop(@_, "socketpair") }
+sub pp_bind { listop(@_, "bind") }
+sub pp_connect { listop(@_, "connect") }
+sub pp_listen { listop(@_, "listen") }
+sub pp_accept { listop(@_, "accept") }
+sub pp_shutdown { listop(@_, "shutdown") }
+sub pp_gsockopt { listop(@_, "getsockopt") }
+sub pp_ssockopt { listop(@_, "setsockopt") }
+sub pp_chown { maybe_targmy(@_, \&listop, "chown") }
+sub pp_unlink { maybe_targmy(@_, \&listop, "unlink") }
+sub pp_chmod { maybe_targmy(@_, \&listop, "chmod") }
+sub pp_utime { maybe_targmy(@_, \&listop, "utime") }
+sub pp_rename { maybe_targmy(@_, \&listop, "rename") }
+sub pp_link { maybe_targmy(@_, \&listop, "link") }
+sub pp_symlink { maybe_targmy(@_, \&listop, "symlink") }
+sub pp_mkdir { maybe_targmy(@_, \&listop, "mkdir") }
+sub pp_open_dir { listop(@_, "opendir") }
+sub pp_seekdir { listop(@_, "seekdir") }
+sub pp_waitpid { maybe_targmy(@_, \&listop, "waitpid") }
+sub pp_system { maybe_targmy(@_, \&indirop, "system") }
+sub pp_exec { maybe_targmy(@_, \&indirop, "exec") }
+sub pp_kill { maybe_targmy(@_, \&listop, "kill") }
+sub pp_setpgrp { maybe_targmy(@_, \&listop, "setpgrp") }
+sub pp_getpriority { maybe_targmy(@_, \&listop, "getpriority") }
+sub pp_setpriority { maybe_targmy(@_, \&listop, "setpriority") }
+sub pp_shmget { listop(@_, "shmget") }
+sub pp_shmctl { listop(@_, "shmctl") }
+sub pp_shmread { listop(@_, "shmread") }
+sub pp_shmwrite { listop(@_, "shmwrite") }
+sub pp_msgget { listop(@_, "msgget") }
+sub pp_msgctl { listop(@_, "msgctl") }
+sub pp_msgsnd { listop(@_, "msgsnd") }
+sub pp_msgrcv { listop(@_, "msgrcv") }
+sub pp_semget { listop(@_, "semget") }
+sub pp_semctl { listop(@_, "semctl") }
+sub pp_semop { listop(@_, "semop") }
+sub pp_ghbyaddr { listop(@_, "gethostbyaddr") }
+sub pp_gnbyaddr { listop(@_, "getnetbyaddr") }
+sub pp_gpbynumber { listop(@_, "getprotobynumber") }
+sub pp_gsbyname { listop(@_, "getservbyname") }
+sub pp_gsbyport { listop(@_, "getservbyport") }
+sub pp_syscall { listop(@_, "syscall") }
+
+sub pp_glob {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling;  # skip pushmark
+    my $keyword =
+	$op->flags & OPf_SPECIAL ? 'glob' : $self->keyword('glob');
+    my $text = $self->deparse($kid);
+    return $cx >= 5 || $self->{'parens'}
+	? "$keyword($text)"
+	: "$keyword $text";
+}
+
+# Truncate is special because OPf_SPECIAL makes a bareword first arg
+# be a filehandle. This could probably be better fixed in the core
+# by moving the GV lookup into ck_truc.
+
+sub pp_truncate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my(@exprs);
+    my $parens = ($cx >= 5) || $self->{'parens'};
+    my $kid = $op->first->sibling;
+    my $fh;
+    if ($op->flags & OPf_SPECIAL) {
+	# $kid is an OP_CONST
+	$fh = $self->const_sv($kid)->PV;
+    } else {
+	$fh = $self->deparse($kid, 6);
+        $fh = "+$fh" if not $parens and substr($fh, 0, 1) eq "(";
+    }
+    my $len = $self->deparse($kid->sibling, 6);
+    my $name = $self->keyword('truncate');
+    if ($parens) {
+	return "$name($fh, $len)";
+    } else {
+	return "$name $fh, $len";
+    }
+}
+
+sub indirop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    my($expr, @exprs);
+    my $firstkid = my $kid = $op->first->sibling;
+    my $indir = "";
+    if ($op->flags & OPf_STACKED) {
+	$indir = $kid;
+	$indir = $indir->first; # skip rv2gv
+	if (is_scope($indir)) {
+	    $indir = "{" . $self->deparse($indir, 0) . "}";
+	    $indir = "{;}" if $indir eq "{}";
+	} elsif ($indir->name eq "const" && $indir->private & OPpCONST_BARE) {
+	    $indir = $self->const_sv($indir)->PV;
+	} else {
+	    $indir = $self->deparse($indir, 24);
+	}
+	$indir = $indir . " ";
+	$kid = $kid->sibling;
+    }
+    if ($name eq "sort" && $op->private & (OPpSORT_NUMERIC | OPpSORT_INTEGER)) {
+	$indir = ($op->private & OPpSORT_DESCEND) ? '{$b <=> $a} '
+						  : '{$a <=> $b} ';
+    }
+    elsif ($name eq "sort" && $op->private & OPpSORT_DESCEND) {
+	$indir = '{$b cmp $a} ';
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	$expr = $self->deparse($kid, !$indir && $kid == $firstkid && $name eq "sort" && $firstkid->name eq "entersub" ? 16 : 6);
+	push @exprs, $expr;
+    }
+    my $name2;
+    if ($name eq "sort" && $op->private & OPpSORT_REVERSE) {
+	$name2 = $self->keyword('reverse') . ' ' . $self->keyword('sort');
+    }
+    else { $name2 = $self->keyword($name) }
+    if ($name eq "sort" && ($op->private & OPpSORT_INPLACE)) {
+	return "$exprs[0] = $name2 $indir $exprs[0]";
+    }
+
+    my $args = $indir . join(", ", @exprs);
+    if ($indir ne "" && $name eq "sort") {
+	# We don't want to say "sort(f 1, 2, 3)", since perl -w will
+	# give bareword warnings in that case. Therefore if context
+	# requires, we'll put parens around the outside "(sort f 1, 2,
+	# 3)". Unfortunately, we'll currently think the parens are
+	# necessary more often that they really are, because we don't
+	# distinguish which side of an assignment we're on.
+	if ($cx >= 5) {
+	    return "($name2 $args)";
+	} else {
+	    return "$name2 $args";
+	}
+    } elsif (
+	!$indir && $name eq "sort"
+      && !null($op->first->sibling)
+      && $op->first->sibling->name eq 'entersub'
+    ) {
+	# We cannot say sort foo(bar), as foo will be interpreted as a
+	# comparison routine.  We have to say sort(...) in that case.
+	return "$name2($args)";
+    } else {
+	return length $args
+		? $self->maybe_parens_func($name2, $args, $cx, 5)
+		: $name2 . '()' x (7 < $cx);
+    }
+
+}
+
+sub pp_prtf { indirop(@_, "printf") }
+sub pp_print { indirop(@_, "print") }
+sub pp_say  { indirop(@_, "say") }
+sub pp_sort { indirop(@_, "sort") }
+
+sub mapop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    my($expr, @exprs);
+    my $kid = $op->first; # this is the (map|grep)start
+    $kid = $kid->first->sibling; # skip a pushmark
+    my $code = $kid->first; # skip a null
+    if (is_scope $code) {
+	$code = "{" . $self->deparse($code, 0) . "} ";
+    } else {
+	$code = $self->deparse($code, 24);
+	$code .= ", " if !null($kid->sibling);
+    }
+    $kid = $kid->sibling;
+    for (; !null($kid); $kid = $kid->sibling) {
+	$expr = $self->deparse($kid, 6);
+	push @exprs, $expr if defined $expr;
+    }
+    return $self->maybe_parens_func($self->keyword($name),
+				    $code . join(", ", @exprs), $cx, 5);
+}
+
+sub pp_mapwhile { mapop(@_, "map") }
+sub pp_grepwhile { mapop(@_, "grep") }
+sub pp_mapstart { baseop(@_, "map") }
+sub pp_grepstart { baseop(@_, "grep") }
+
+my %uses_intro;
+BEGIN {
+    @uses_intro{
+	eval { require B::Op_private }
+	  ? @{$B::Op_private::ops_using{OPpLVAL_INTRO}}
+	  : qw(gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice
+	       hslice delete padsv padav padhv enteriter entersub padrange
+	       pushmark cond_expr refassign list)
+    } = ();
+    delete @uses_intro{qw( lvref lvrefslice lvavref entersub )};
+}
+
+
+# Look for a my/state attribute declaration in a list or ex-list.
+# Returns undef if not found, 'my($x, @a) :Foo(bar)' etc otherwise.
+#
+# There are three basic tree structs that are expected:
+#
+# my $x :foo;
+#      <1> ex-list vK/LVINTRO ->c
+#         <0> ex-pushmark v ->3
+#         <1> entersub[t2] vKRS*/TARG ->b
+#                ....
+#         <0> padsv[$x:64,65] vM/LVINTRO ->c
+#
+# my @a :foo;
+# my %h :foo;
+#
+#      <1> ex-list vK ->c
+#         <0> ex-pushmark v ->3
+#         <0> padav[@a:64,65] vM/LVINTRO ->4
+#         <1> entersub[t2] vKRS*/TARG ->c
+#            ....
+#
+# my ($x,@a,%h) :foo;
+#
+#      <;> nextstate(main 64 -e:1) v:{ ->3
+#      <@> list vKP ->w
+#         <0> pushmark vM/LVINTRO ->4
+#         <0> padsv[$x:64,65] vM/LVINTRO ->5
+#         <0> padav[@a:64,65] vM/LVINTRO ->6
+#         <0> padhv[%h:64,65] vM/LVINTRO ->7
+#         <1> entersub[t4] vKRS*/TARG ->f
+#            ....
+#         <1> entersub[t5] vKRS*/TARG ->n
+#            ....
+#         <1> entersub[t6] vKRS*/TARG ->v
+#           ....
+# where the entersub in all cases looks like
+#        <1> entersub[t2] vKRS*/TARG ->c
+#           <0> pushmark s ->5
+#           <$> const[PV "attributes"] sM ->6
+#           <$> const[PV "main"] sM ->7
+#           <1> srefgen sKM/1 ->9
+#              <1> ex-list lKRM ->8
+#                 <0> padsv[@a:64,65] sRM ->8
+#           <$> const[PV "foo"] sM ->a
+#           <.> method_named[PV "import"] ->b
+
+sub maybe_var_attr {
+    my ($self, $op, $cx) = @_;
+
+    my $kid = $op->first->sibling; # skip pushmark
+    return if class($kid) eq 'NULL';
+
+    my $lop;
+    my $type;
+
+    # Extract out all the pad ops and entersub ops into
+    # @padops and @entersubops. Return if anything else seen.
+    # Also determine what class (if any) all the pad vars belong to
+    my $class;
+    my $decl; # 'my' or 'state'
+    my (@padops, @entersubops);
+    for ($lop = $kid; !null($lop); $lop = $lop->sibling) {
+	my $lopname = $lop->name;
+	my $loppriv = $lop->private;
+        if ($lopname =~ /^pad[sah]v$/) {
+            return unless $loppriv & OPpLVAL_INTRO;
+
+            my $padname = $self->padname_sv($lop->targ);
+            my $thisclass = ($padname->FLAGS & SVpad_TYPED)
+                                ? $padname->SvSTASH->NAME : 'main';
+
+            # all pad vars must be in the same class
+            $class //= $thisclass;
+            return unless $thisclass eq $class;
+
+            # all pad vars must be the same sort of declaration
+            # (all my, all state, etc)
+            my $this = ($loppriv & OPpPAD_STATE) ? 'state' : 'my';
+            if (defined $decl) {
+                return unless $this eq $decl;
+            }
+            $decl = $this;
+
+            push @padops, $lop;
+        }
+        elsif ($lopname eq 'entersub') {
+            push @entersubops, $lop;
+        }
+        else {
+            return;
+        }
+    }
+
+    return unless @padops && @padops == @entersubops;
+
+    # there should be a balance: each padop has a corresponding
+    # 'attributes'->import() method call, in the same order.
+
+    my @varnames;
+    my $attr_text;
+
+    for my $i (0..$#padops) {
+        my $padop = $padops[$i];
+        my $esop  = $entersubops[$i];
+
+        push @varnames, $self->padname($padop->targ);
+
+        return unless ($esop->flags & OPf_KIDS);
+
+        my $kid = $esop->first;
+        return unless $kid->type == OP_PUSHMARK;
+
+        $kid = $kid->sibling;
+        return unless $$kid && $kid->type == OP_CONST;
+	return unless $self->const_sv($kid)->PV eq 'attributes';
+
+        $kid = $kid->sibling;
+        return unless $$kid && $kid->type == OP_CONST; # __PACKAGE__
+
+        $kid = $kid->sibling;
+        return unless  $$kid
+                    && $kid->name eq "srefgen"
+                    && ($kid->flags & OPf_KIDS)
+                    && ($kid->first->flags & OPf_KIDS)
+                    && $kid->first->first->name =~ /^pad[sah]v$/
+                    && $kid->first->first->targ == $padop->targ;
+
+        $kid = $kid->sibling;
+        my @attr;
+        while ($$kid) {
+            last if ($kid->type != OP_CONST);
+            push @attr, $self->const_sv($kid)->PV;
+            $kid = $kid->sibling;
+        }
+        return unless @attr;
+        my $thisattr = ":" . join(' ', @attr);
+        $attr_text //= $thisattr;
+        # all import calls must have the same list of attributes
+        return unless $attr_text eq $thisattr;
+
+        return unless $kid->name eq 'method_named';
+	return unless $self->meth_sv($kid)->PV eq 'import';
+
+        $kid = $kid->sibling;
+        return if $$kid;
+    }
+
+    my $res = $decl;
+    $res .= " $class " if $class ne 'main';
+    $res .=
+            (@varnames > 1)
+            ? "(" . join(', ', @varnames) . ')'
+            : " $varnames[0]";
+
+    return "$res $attr_text";
+}
+
+
+sub pp_list {
+    my $self = shift;
+    my($op, $cx) = @_;
+
+    {
+        # might be my ($s,@a,%h) :Foo(bar);
+        my $my_attr = maybe_var_attr($self, $op, $cx);
+        return $my_attr if defined $my_attr;
+    }
+
+    my($expr, @exprs);
+    my $kid = $op->first->sibling; # skip pushmark
+    return '' if class($kid) eq 'NULL';
+    my $lop;
+    my $local = "either"; # could be local(...), my(...), state(...) or our(...)
+    my $type;
+    for ($lop = $kid; !null($lop); $lop = $lop->sibling) {
+	my $lopname = $lop->name;
+	my $loppriv = $lop->private;
+	my $newtype;
+	if ($lopname =~ /^pad[ash]v$/ && $loppriv & OPpLVAL_INTRO) {
+	    if ($loppriv & OPpPAD_STATE) { # state()
+		($local = "", last) if $local !~ /^(?:either|state)$/;
+		$local = "state";
+	    } else { # my()
+		($local = "", last) if $local !~ /^(?:either|my)$/;
+		$local = "my";
+	    }
+	    my $padname = $self->padname_sv($lop->targ);
+	    if ($padname->FLAGS & SVpad_TYPED) {
+		$newtype = $padname->SvSTASH->NAME;
+	    }
+	} elsif ($lopname =~ /^(?:gv|rv2)([ash])v$/
+			&& $loppriv & OPpOUR_INTRO
+		or $lopname eq "null" && class($lop) eq 'UNOP'
+			&& $lop->first->name eq "gvsv"
+			&& $lop->first->private & OPpOUR_INTRO) { # our()
+	    my $newlocal = "local " x !!($loppriv & OPpLVAL_INTRO) . "our";
+	    ($local = "", last)
+		if $local ne 'either' && $local ne $newlocal;
+	    $local = $newlocal;
+	    my $funny = !$1 || $1 eq 's' ? '$' : $1 eq 'a' ? '@' : '%';
+	    if (my $t = $self->find_our_type(
+		    $funny . $self->gv_or_padgv($lop->first)->NAME
+	       )) {
+		$newtype = $t;
+	    }
+	} elsif ($lopname ne 'undef'
+	   and    !($loppriv & OPpLVAL_INTRO)
+	       || !exists $uses_intro{$lopname eq 'null'
+					? substr B::ppname($lop->targ), 3
+					: $lopname})
+	{
+	    $local = ""; # or not
+	    last;
+	} elsif ($lopname ne "undef")
+	{
+	    # local()
+	    ($local = "", last) if $local !~ /^(?:either|local)$/;
+	    $local = "local";
+	}
+	if (defined $type && defined $newtype && $newtype ne $type) {
+	    $local = '';
+	    last;
+	}
+	$type = $newtype;
+    }
+    $local = "" if $local eq "either"; # no point if it's all undefs
+    $local &&= join ' ', map $self->keyword($_), split / /, $local;
+    $local .= " $type " if $local && length $type;
+    return $self->deparse($kid, $cx) if null $kid->sibling and not $local;
+    for (; !null($kid); $kid = $kid->sibling) {
+	if ($local) {
+	    if (class($kid) eq "UNOP" and $kid->first->name eq "gvsv") {
+		$lop = $kid->first;
+	    } else {
+		$lop = $kid;
+	    }
+	    $self->{'avoid_local'}{$$lop}++;
+	    $expr = $self->deparse($kid, 6);
+	    delete $self->{'avoid_local'}{$$lop};
+	} else {
+	    $expr = $self->deparse($kid, 6);
+	}
+	push @exprs, $expr;
+    }
+    if ($local) {
+        if (@exprs == 1 && ($local eq 'state' || $local eq 'CORE::state')) {
+            # 'state @a = ...' is legal, while 'state(@a) = ...' currently isn't
+            return "$local $exprs[0]";
+        }
+	return "$local(" . join(", ", @exprs) . ")";
+    } else {
+	return $self->maybe_parens( join(", ", @exprs), $cx, 6);	
+    }
+}
+
+sub is_ifelse_cont {
+    my $op = shift;
+    return ($op->name eq "null" and class($op) eq "UNOP"
+	    and $op->first->name =~ /^(and|cond_expr)$/
+	    and is_scope($op->first->first->sibling));
+}
+
+sub pp_cond_expr {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $cond = $op->first;
+    my $true = $cond->sibling;
+    my $false = $true->sibling;
+    my $cuddle = $self->{'cuddle'};
+    unless ($cx < 1 and (is_scope($true) and $true->name ne "null") and
+	    (is_scope($false) || is_ifelse_cont($false))
+	    and $self->{'expand'} < 7) {
+	$cond = $self->deparse($cond, 8);
+	$true = $self->deparse($true, 6);
+	$false = $self->deparse($false, 8);
+	return $self->maybe_parens("$cond ? $true : $false", $cx, 8);
+    }
+
+    $cond = $self->deparse($cond, 1);
+    $true = $self->deparse($true, 0);
+    my $head = $self->keyword("if") . " ($cond) {\n\t$true\n\b}";
+    my @elsifs;
+    my $elsif;
+    while (!null($false) and is_ifelse_cont($false)) {
+	my $newop = $false->first;
+	my $newcond = $newop->first;
+	my $newtrue = $newcond->sibling;
+	$false = $newtrue->sibling; # last in chain is OP_AND => no else
+	if ($newcond->name eq "lineseq")
+	{
+	    # lineseq to ensure correct line numbers in elsif()
+	    # Bug #37302 fixed by change #33710.
+	    $newcond = $newcond->first->sibling;
+	}
+	$newcond = $self->deparse($newcond, 1);
+	$newtrue = $self->deparse($newtrue, 0);
+	$elsif ||= $self->keyword("elsif");
+	push @elsifs, "$elsif ($newcond) {\n\t$newtrue\n\b}";
+    }
+    if (!null($false)) {
+	$false = $cuddle . $self->keyword("else") . " {\n\t" .
+	  $self->deparse($false, 0) . "\n\b}\cK";
+    } else {
+	$false = "\cK";
+    }
+    return $head . join($cuddle, "", @elsifs) . $false;
+}
+
+sub pp_once {
+    my ($self, $op, $cx) = @_;
+    my $cond = $op->first;
+    my $true = $cond->sibling;
+
+    my $ret = $self->deparse($true, $cx);
+    $ret =~ s/^(\(?)\$/$1 . $self->keyword("state") . ' $'/e;
+    $ret;
+}
+
+sub loop_common {
+    my $self = shift;
+    my($op, $cx, $init) = @_;
+    my $enter = $op->first;
+    my $kid = $enter->sibling;
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $head = "";
+    my $bare = 0;
+    my $body;
+    my $cond = undef;
+    my $name;
+    if ($kid->name eq "lineseq") { # bare or infinite loop
+	if ($kid->last->name eq "unstack") { # infinite
+	    $head = "while (1) "; # Can't use for(;;) if there's a continue
+	    $cond = "";
+	} else {
+	    $bare = 1;
+	}
+	$body = $kid;
+    } elsif ($enter->name eq "enteriter") { # foreach
+	my $ary = $enter->first->sibling; # first was pushmark
+	my $var = $ary->sibling;
+	if ($ary->name eq 'null' and $enter->private & OPpITER_REVERSED) {
+	    # "reverse" was optimised away
+	    $ary = listop($self, $ary->first->sibling, 1, 'reverse');
+	} elsif ($enter->flags & OPf_STACKED
+	    and not null $ary->first->sibling->sibling)
+	{
+	    $ary = $self->deparse($ary->first->sibling, 9) . " .. " .
+	      $self->deparse($ary->first->sibling->sibling, 9);
+	} else {
+	    $ary = $self->deparse($ary, 1);
+	}
+	if (null $var) {
+            $var = $self->pp_padsv($enter, 1, 1);
+	} elsif ($var->name eq "rv2gv") {
+	    $var = $self->pp_rv2sv($var, 1);
+	    if ($enter->private & OPpOUR_INTRO) {
+		# our declarations don't have package names
+		$var =~ s/^(.).*::/$1/;
+		$var = "our $var";
+	    }
+	} elsif ($var->name eq "gv") {
+	    $var = "\$" . $self->deparse($var, 1);
+	} else {
+	    $var = $self->deparse($var, 1);
+	}
+	$body = $kid->first->first->sibling; # skip OP_AND and OP_ITER
+	if (!is_state $body->first and $body->first->name !~ /^(?:stub|leave|scope)$/) {
+	    confess unless $var eq '$_';
+	    $body = $body->first;
+	    return $self->deparse($body, 2) . " "
+		 . $self->keyword("foreach") . " ($ary)";
+	}
+	$head = "foreach $var ($ary) ";
+    } elsif ($kid->name eq "null") { # while/until
+	$kid = $kid->first;
+	$name = {"and" => "while", "or" => "until"}->{$kid->name};
+	$cond = $kid->first;
+	$body = $kid->first->sibling;
+    } elsif ($kid->name eq "stub") { # bare and empty
+	return "{;}"; # {} could be a hashref
+    }
+    # If there isn't a continue block, then the next pointer for the loop
+    # will point to the unstack, which is kid's last child, except
+    # in a bare loop, when it will point to the leaveloop. When neither of
+    # these conditions hold, then the second-to-last child is the continue
+    # block (or the last in a bare loop).
+    my $cont_start = $enter->nextop;
+    my $cont;
+    my $precond;
+    my $postcond;
+    if ($$cont_start != $$op && ${$cont_start} != ${$body->last}) {
+	if ($bare) {
+	    $cont = $body->last;
+	} else {
+	    $cont = $body->first;
+	    while (!null($cont->sibling->sibling)) {
+		$cont = $cont->sibling;
+	    }
+	}
+	my $state = $body->first;
+	my $cuddle = $self->{'cuddle'};
+	my @states;
+	for (; $$state != $$cont; $state = $state->sibling) {
+	    push @states, $state;
+	}
+	$body = $self->lineseq(undef, 0, @states);
+	if (defined $cond and not is_scope $cont and $self->{'expand'} < 3) {
+	    $precond = "for ($init; ";
+	    $postcond = "; " . $self->deparse($cont, 1) .") ";
+	    $cont = "\cK";
+	} else {
+	    $cont = $cuddle . "continue {\n\t" .
+	      $self->deparse($cont, 0) . "\n\b}\cK";
+	}
+    } else {
+	return "" if !defined $body;
+	if (length $init) {
+	    $precond = "for ($init; ";
+	    $postcond = ";) ";
+	}
+	$cont = "\cK";
+	$body = $self->deparse($body, 0);
+    }
+    if ($precond) { # for(;;)
+	$cond &&= $name eq 'until'
+		    ? listop($self, undef, 1, "not", $cond->first)
+		    : $self->deparse($cond, 1);
+	$head = "$precond$cond$postcond";
+    }
+    if ($name && !$head) {
+	ref $cond and $cond = $self->deparse($cond, 1);
+	$head = "$name ($cond) ";
+    }
+    $head =~ s/^(for(?:each)?|while|until)/$self->keyword($1)/e;
+    $body =~ s/;?$/;\n/;
+
+    return $head . "{\n\t" . $body . "\b}" . $cont;
+}
+
+sub pp_leaveloop { shift->loop_common(@_, "") }
+
+sub for_loop {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $init = $self->deparse($op, 1);
+    my $s = $op->sibling;
+    my $ll = $s->name eq "unstack" ? $s->sibling : $s->first->sibling;
+    return $self->loop_common($ll, $cx, $init);
+}
+
+sub pp_leavetry {
+    my $self = shift;
+    return "eval {\n\t" . $self->pp_leave(@_) . "\n\b}";
+}
+
+sub _op_is_or_was {
+  my ($op, $expect_type) = @_;
+  my $type = $op->type;
+  return($type == $expect_type
+         || ($type == OP_NULL && $op->targ == $expect_type));
+}
+
+sub pp_null {
+    my($self, $op, $cx) = @_;
+
+    # might be 'my $s :Foo(bar);'
+    if ($op->targ == OP_LIST) {
+        my $my_attr = maybe_var_attr($self, $op, $cx);
+        return $my_attr if defined $my_attr;
+    }
+
+    if (class($op) eq "OP") {
+	# old value is lost
+	return $self->{'ex_const'} if $op->targ == OP_CONST;
+    } elsif (class ($op) eq "COP") {
+	    return &pp_nextstate;
+    } elsif ($op->first->name eq 'pushmark'
+             or $op->first->name eq 'null'
+                && $op->first->targ == OP_PUSHMARK
+                && _op_is_or_was($op, OP_LIST)) {
+	return $self->pp_list($op, $cx);
+    } elsif ($op->first->name eq "enter") {
+	return $self->pp_leave($op, $cx);
+    } elsif ($op->first->name eq "leave") {
+	return $self->pp_leave($op->first, $cx);
+    } elsif ($op->first->name eq "scope") {
+	return $self->pp_scope($op->first, $cx);
+    } elsif ($op->targ == OP_STRINGIFY) {
+	return $self->dquote($op, $cx);
+    } elsif ($op->targ == OP_GLOB) {
+	return $self->pp_glob(
+	         $op->first    # entersub
+	            ->first    # ex-list
+	            ->first    # pushmark
+	            ->sibling, # glob
+	         $cx
+	       );
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name eq "readline" and
+	     $op->first->sibling->flags & OPf_STACKED) {
+	return $self->maybe_parens($self->deparse($op->first, 7) . " = "
+				   . $self->deparse($op->first->sibling, 7),
+				   $cx, 7);
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name =~ /^transr?\z/ and
+	     $op->first->sibling->flags & OPf_STACKED) {
+	return $self->maybe_parens($self->deparse($op->first, 20) . " =~ "
+				   . $self->deparse($op->first->sibling, 20),
+				   $cx, 20);
+    } elsif ($op->flags & OPf_SPECIAL && $cx < 1 && !$op->targ) {
+	return ($self->lex_in_scope("&do") ? "CORE::do" : "do")
+	     . " {\n\t". $self->deparse($op->first, $cx) ."\n\b};";
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name eq "null" and
+	     class($op->first->sibling) eq "UNOP" and
+	     $op->first->sibling->first->flags & OPf_STACKED and
+	     $op->first->sibling->first->name eq "rcatline") {
+	return $self->maybe_parens($self->deparse($op->first, 18) . " .= "
+				   . $self->deparse($op->first->sibling, 18),
+				   $cx, 18);
+    } else {
+	return $self->deparse($op->first, $cx);
+    }
+}
+
+sub padname {
+    my $self = shift;
+    my $targ = shift;
+    return $self->padname_sv($targ)->PVX;
+}
+
+sub padany {
+    my $self = shift;
+    my $op = shift;
+    return substr($self->padname($op->targ), 1); # skip $/@/%
+}
+
+sub pp_padsv {
+    my $self = shift;
+    my($op, $cx, $forbid_parens) = @_;
+    my $targ = $op->targ;
+    return $self->maybe_my($op, $cx, $self->padname($targ),
+			   $self->padname_sv($targ),
+			   $forbid_parens);
+}
+
+sub pp_padav { pp_padsv(@_) }
+
+# prepend 'keys' where its been optimised away, with suitable handling
+# of CORE:: and parens
+
+sub add_keys_keyword {
+    my ($self, $str, $cx) = @_;
+    $str = $self->maybe_parens($str, $cx, 16);
+    # 'keys %h' versus 'keys(%h)'
+    $str = " $str" unless $str =~ /^\(/;
+    return $self->keyword("keys") . $str;
+}
+
+sub pp_padhv {
+    my ($self, $op, $cx) = @_;
+    my $str =  pp_padsv(@_);
+    # with OPpPADHV_ISKEYS the keys op is optimised away, except
+    # in scalar context the old op is kept (but not executed) so its targ
+    # can be used.
+    if (     ($op->private & OPpPADHV_ISKEYS)
+        && !(($op->flags & OPf_WANT) == OPf_WANT_SCALAR))
+    {
+        $str = $self->add_keys_keyword($str, $cx);
+    }
+    $str;
+}
+
+sub gv_or_padgv {
+    my $self = shift;
+    my $op = shift;
+    if (class($op) eq "PADOP") {
+	return $self->padval($op->padix);
+    } else { # class($op) eq "SVOP"
+	return $op->gv;
+    }
+}
+
+sub pp_gvsv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $gv = $self->gv_or_padgv($op);
+    return $self->maybe_local($op, $cx, $self->stash_variable("\$",
+				 $self->gv_name($gv), $cx));
+}
+
+sub pp_gv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $gv = $self->gv_or_padgv($op);
+    return $self->maybe_qualify("", $self->gv_name($gv));
+}
+
+sub pp_aelemfast_lex {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $name = $self->padname($op->targ);
+    $name =~ s/^@/\$/;
+    my $i = $op->private;
+    $i -= 256 if $i > 127;
+    return $name . "[" .  ($i + $self->{'arybase'}) . "]";
+}
+
+sub pp_aelemfast {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # optimised PADAV, pre 5.15
+    return $self->pp_aelemfast_lex(@_) if ($op->flags & OPf_SPECIAL);
+
+    my $gv = $self->gv_or_padgv($op);
+    my($name,$quoted) = $self->stash_variable_name('@',$gv);
+    $name = $quoted ? "$name->" : '$' . $name;
+    my $i = $op->private;
+    $i -= 256 if $i > 127;
+    return $name . "[" .  ($i + $self->{'arybase'}) . "]";
+}
+
+sub rv2x {
+    my $self = shift;
+    my($op, $cx, $type) = @_;
+
+    if (class($op) eq 'NULL' || !$op->can("first")) {
+	carp("Unexpected op in pp_rv2x");
+	return 'XXX';
+    }
+    my $kid = $op->first;
+    if ($kid->name eq "gv") {
+	return $self->stash_variable($type,
+		    $self->gv_name($self->gv_or_padgv($kid)), $cx);
+    } elsif (is_scalar $kid) {
+	my $str = $self->deparse($kid, 0);
+	if ($str =~ /^\$([^\w\d])\z/) {
+	    # "$$+" isn't a legal way to write the scalar dereference
+	    # of $+, since the lexer can't tell you aren't trying to
+	    # do something like "$$ + 1" to get one more than your
+	    # PID. Either "${$+}" or "$${+}" are workable
+	    # disambiguations, but if the programmer did the former,
+	    # they'd be in the "else" clause below rather than here.
+	    # It's not clear if this should somehow be unified with
+	    # the code in dq and re_dq that also adds lexer
+	    # disambiguation braces.
+	    $str = '$' . "{$1}"; #'
+	}
+	return $type . $str;
+    } else {
+	return $type . "{" . $self->deparse($kid, 0) . "}";
+    }
+}
+
+sub pp_rv2sv { maybe_local(@_, rv2x(@_, "\$")) }
+sub pp_rv2gv { maybe_local(@_, rv2x(@_, "*")) }
+
+sub pp_rv2hv {
+    my ($self, $op, $cx) = @_;
+    my $str = rv2x(@_, "%");
+    if ($op->private & OPpRV2HV_ISKEYS) {
+        $str = $self->add_keys_keyword($str, $cx);
+    }
+    return maybe_local(@_, $str);
+}
+
+# skip rv2av
+sub pp_av2arylen {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if ($kid->name eq "padav") {
+	return $self->maybe_local($op, $cx, '$#' . $self->padany($kid));
+    } else {
+        my $kkid;
+        if (   $kid->name eq "rv2av"
+           && ($kkid = $kid->first)
+           && $kkid->name !~ /^(scope|leave|gv)$/)
+        {
+            # handle (expr)->$#* postfix form
+            my $expr;
+            $expr = $self->deparse($kkid, 24); # 24 is '->'
+            $expr = "$expr->\$#*";
+            # XXX maybe_local is probably wrong here: local($#-expression)
+            # doesn't "do" local (the is no INTRO flag set)
+            return $self->maybe_local($op, $cx, $expr);
+        }
+        else {
+            # handle $#{expr} form
+            # XXX see maybe_local comment above
+            return $self->maybe_local($op, $cx, $self->rv2x($kid, $cx, '$#'));
+        }
+    }
+}
+
+# skip down to the old, ex-rv2cv
+sub pp_rv2cv {
+    my ($self, $op, $cx) = @_;
+    if (!null($op->first) && $op->first->name eq 'null' &&
+	$op->first->targ == OP_LIST)
+    {
+	return $self->rv2x($op->first->first->sibling, $cx, "&")
+    }
+    else {
+	return $self->rv2x($op, $cx, "")
+    }
+}
+
+sub list_const {
+    my $self = shift;
+    my($cx, @list) = @_;
+    my @a = map $self->const($_, 6), @list;
+    if (@a == 0) {
+	return "()";
+    } elsif (@a == 1) {
+	return $a[0];
+    } elsif ( @a > 2 and !grep(!/^-?\d+$/, @a)) {
+	# collapse (-1,0,1,2) into (-1..2)
+	my ($s, $e) = @a[0,-1];
+	my $i = $s;
+	return $self->maybe_parens("$s..$e", $cx, 9)
+	  unless grep $i++ != $_, @a;
+    }
+    return $self->maybe_parens(join(", ", @a), $cx, 6);
+}
+
+sub pp_rv2av {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if ($kid->name eq "const") { # constant list
+	my $av = $self->const_sv($kid);
+	return $self->list_const($cx, $av->ARRAY);
+    } else {
+	return $self->maybe_local($op, $cx, $self->rv2x($op, $cx, "\@"));
+    }
+ }
+
+sub is_subscriptable {
+    my $op = shift;
+    if ($op->name =~ /^([ahg]elem|multideref$)/) {
+	return 1;
+    } elsif ($op->name eq "entersub") {
+	my $kid = $op->first;
+	return 0 unless null $kid->sibling;
+	$kid = $kid->first;
+	$kid = $kid->sibling until null $kid->sibling;
+	return 0 if is_scope($kid);
+	$kid = $kid->first;
+	return 0 if $kid->name eq "gv" || $kid->name eq "padcv";
+	return 0 if is_scalar($kid);
+	return is_subscriptable($kid);	
+    } else {
+	return 0;
+    }
+}
+
+sub elem_or_slice_array_name
+{
+    my $self = shift;
+    my ($array, $left, $padname, $allow_arrow) = @_;
+
+    if ($array->name eq $padname) {
+	return $self->padany($array);
+    } elsif (is_scope($array)) { # ${expr}[0]
+	return "{" . $self->deparse($array, 0) . "}";
+    } elsif ($array->name eq "gv") {
+	($array, my $quoted) =
+	    $self->stash_variable_name(
+		$left eq '[' ? '@' : '%', $self->gv_or_padgv($array)
+	    );
+	if (!$allow_arrow && $quoted) {
+	    # This cannot happen.
+	    die "Invalid variable name $array for slice";
+	}
+	return $quoted ? "$array->" : $array;
+    } elsif (!$allow_arrow || is_scalar $array) { # $x[0], $$x[0], ...
+	return $self->deparse($array, 24);
+    } else {
+	return undef;
+    }
+}
+
+sub elem_or_slice_single_index
+{
+    my $self = shift;
+    my ($idx) = @_;
+
+    $idx = $self->deparse($idx, 1);
+
+    # Outer parens in an array index will confuse perl
+    # if we're interpolating in a regular expression, i.e.
+    # /$x$foo[(-1)]/ is *not* the same as /$x$foo[-1]/
+    #
+    # If $self->{parens}, then an initial '(' will
+    # definitely be paired with a final ')'. If
+    # !$self->{parens}, the misleading parens won't
+    # have been added in the first place.
+    #
+    # [You might think that we could get "(...)...(...)"
+    # where the initial and final parens do not match
+    # each other. But we can't, because the above would
+    # only happen if there's an infix binop between the
+    # two pairs of parens, and *that* means that the whole
+    # expression would be parenthesized as well.]
+    #
+    $idx =~ s/^\((.*)\)$/$1/ if $self->{'parens'};
+
+    # Hash-element braces will autoquote a bareword inside themselves.
+    # We need to make sure that C<$hash{warn()}> doesn't come out as
+    # C<$hash{warn}>, which has a quite different meaning. Currently
+    # B::Deparse will always quote strings, even if the string was a
+    # bareword in the original (i.e. the OPpCONST_BARE flag is ignored
+    # for constant strings.) So we can cheat slightly here - if we see
+    # a bareword, we know that it is supposed to be a function call.
+    #
+    $idx =~ s/^([A-Za-z_]\w*)$/$1()/;
+
+    return $idx;
+}
+
+sub elem {
+    my $self = shift;
+    my ($op, $cx, $left, $right, $padname) = @_;
+    my($array, $idx) = ($op->first, $op->first->sibling);
+
+    $idx = $self->elem_or_slice_single_index($idx);
+
+    unless ($array->name eq $padname) { # Maybe this has been fixed	
+	$array = $array->first; # skip rv2av (or ex-rv2av in _53+)
+    }
+    if (my $array_name=$self->elem_or_slice_array_name
+	    ($array, $left, $padname, 1)) {
+	return ($array_name =~ /->\z/
+		    ? $array_name
+		    : $array_name eq '#' ? '${#}' : "\$" . $array_name)
+	      . $left . $idx . $right;
+    } else {
+	# $x[20][3]{hi} or expr->[20]
+	my $arrow = is_subscriptable($array) ? "" : "->";
+	return $self->deparse($array, 24) . $arrow . $left . $idx . $right;
+    }
+
+}
+
+# a simplified version of elem_or_slice_array_name()
+# for the use of pp_multideref
+
+sub multideref_var_name {
+    my $self = shift;
+    my ($gv, $is_hash) = @_;
+
+    my ($name, $quoted) =
+        $self->stash_variable_name( $is_hash  ? '%' : '@', $gv);
+    return $quoted ? "$name->"
+                   : $name eq '#'
+                        ? '${#}'       # avoid ${#}[1] => $#[1]
+                        : '$' . $name;
+}
+
+
+# deparse an OP_MULTICONCAT. If $in_dq is 1, we're within
+# a double-quoted string, so for example.
+#     "abc\Qdef$x\Ebar"
+# might get compiled as
+#    multiconcat("abc", metaquote(multiconcat("def", $x)), "bar")
+# and the inner multiconcat should be deparsed as C<def$x> rather than
+# the normal C<def . $x>
+# Ditto if  $in_dq is 2, handle qr/...\Qdef$x\E.../.
+
+sub do_multiconcat {
+    my $self = shift;
+    my($op, $cx, $in_dq) = @_;
+
+    my $kid;
+    my @kids;
+    my $assign;
+    my $append;
+    my $lhs = "";
+
+    for ($kid = $op->first; !null $kid; $kid = $kid->sibling) {
+        # skip the consts and/or padsv we've optimised away
+        push @kids, $kid
+            unless $kid->type == OP_NULL
+              && (   $kid->targ == OP_PADSV
+                  || $kid->targ == OP_CONST
+                  || $kid->targ == OP_PUSHMARK);
+    }
+
+    $append = ($op->private & OPpMULTICONCAT_APPEND);
+
+    if ($op->private & OPpTARGET_MY) {
+        # '$lex  = ...' or '$lex .= ....' or 'my $lex = '
+        $lhs = $self->padname($op->targ);
+        $lhs = "my $lhs" if ($op->private & OPpLVAL_INTRO);
+        $assign = 1;
+    }
+    elsif ($op->flags & OPf_STACKED) {
+        # 'expr  = ...' or 'expr .= ....'
+        my $expr = $append ? shift(@kids) : pop(@kids);
+        $lhs = $self->deparse($expr, 7);
+        $assign = 1;
+    }
+
+    if ($assign) {
+        $lhs .=  $append ? ' .= ' : ' = ';
+    }
+
+    my ($nargs, $const_str, @const_lens) = $op->aux_list($self->{curcv});
+
+    my @consts;
+    my $i = 0;
+    for (@const_lens) {
+        if ($_ == -1) {
+            push @consts, undef;
+        }
+        else {
+            push @consts, substr($const_str, $i, $_);
+        my @args;
+            $i += $_;
+        }
+    }
+
+    my $rhs = "";
+
+    if (   $in_dq
+        || (($op->private & OPpMULTICONCAT_STRINGIFY) && !$self->{'unquote'}))
+    {
+        # "foo=$foo bar=$bar "
+        my $not_first;
+        while (@consts) {
+            if ($not_first) {
+                my $s = $self->dq(shift(@kids), 18);
+                # don't deparse "a${$}b" as "a$$b"
+                $s = '${$}' if $s eq '$$';
+                $rhs = dq_disambiguate($rhs, $s);
+            }
+            $not_first = 1;
+            my $c = shift @consts;
+            if (defined $c) {
+                if ($in_dq == 2) {
+                    # in pattern: don't convert newline to '\n' etc etc
+                    my $s = re_uninterp(escape_re(re_unback($c)));
+                    $rhs = re_dq_disambiguate($rhs, $s)
+                }
+                else {
+                    my $s = uninterp(escape_str(unback($c)));
+                    $rhs = dq_disambiguate($rhs, $s)
+                }
+            }
+        }
+        return $rhs if $in_dq;
+        $rhs = single_delim("qq", '"', $rhs, $self);
+    }
+    elsif ($op->private & OPpMULTICONCAT_FAKE) {
+        # sprintf("foo=%s bar=%s ", $foo, $bar)
+
+        my @all;
+        @consts = map { $_ //= ''; s/%/%%/g; $_ } @consts;
+        my $fmt = join '%s', @consts;
+        push @all, $self->quoted_const_str($fmt);
+
+        # the following is a stripped down copy of sub listop {}
+        my $parens = $assign || ($cx >= 5) || $self->{'parens'};
+        my $fullname = $self->keyword('sprintf');
+        push @all, map $self->deparse($_, 6), @kids;
+
+        $rhs = $parens
+                ? "$fullname(" . join(", ", @all) . ")"
+                : "$fullname " . join(", ", @all);
+    }
+    else {
+        # "foo=" . $foo . " bar=" . $bar
+        my @all;
+        my $not_first;
+        while (@consts) {
+            push @all, $self->deparse(shift(@kids), 18) if $not_first;
+            $not_first = 1;
+            my $c = shift @consts;
+            if (defined $c) {
+                push @all, $self->quoted_const_str($c);
+            }
+        }
+        $rhs .= join ' . ', @all;
+    }
+
+    my $text = $lhs . $rhs;
+
+    $text = "($text)" if     ($cx >= (($assign) ? 7 : 18+1))
+                          || $self->{'parens'};
+
+    return $text;
+}
+
+
+sub pp_multiconcat {
+    my $self = shift;
+    $self->do_multiconcat(@_, 0);
+}
+
+
+sub pp_multideref {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $text = "";
+
+    if ($op->private & OPpMULTIDEREF_EXISTS) {
+        $text = $self->keyword("exists"). " ";
+    }
+    elsif ($op->private & OPpMULTIDEREF_DELETE) {
+        $text = $self->keyword("delete"). " ";
+    }
+    elsif ($op->private & OPpLVAL_INTRO) {
+        $text = $self->keyword("local"). " ";
+    }
+
+    if ($op->first && ($op->first->flags & OPf_KIDS)) {
+        # arbitrary initial expression, e.g. f(1,2,3)->[...]
+        my $expr = $self->deparse($op->first, 24);
+        # stop "exists (expr)->{...}" being interpreted as
+        #"(exists (expr))->{...}"
+        $expr = "+$expr" if $expr =~ /^\(/;
+        $text .=  $expr;
+    }
+
+    my @items = $op->aux_list($self->{curcv});
+    my $actions = shift @items;
+
+    my $is_hash;
+    my $derefs = 0;
+
+    while (1) {
+        if (($actions & MDEREF_ACTION_MASK) == MDEREF_reload) {
+            $actions = shift @items;
+            next;
+        }
+
+        $is_hash = (
+           ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_pop_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvsv_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padsv_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem
+        );
+
+        if (   ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_padav_aelem
+            || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem)
+        {
+            $derefs = 1;
+            $text .= '$' . substr($self->padname(shift @items), 1);
+        }
+        elsif (   ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_gvav_aelem
+               || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem)
+        {
+            $derefs = 1;
+            $text .= $self->multideref_var_name(shift @items, $is_hash);
+        }
+        else {
+            if (   ($actions & MDEREF_ACTION_MASK) ==
+                                        MDEREF_AV_padsv_vivify_rv2av_aelem
+                || ($actions & MDEREF_ACTION_MASK) ==
+                                        MDEREF_HV_padsv_vivify_rv2hv_helem)
+            {
+                $text .= $self->padname(shift @items);
+            }
+            elsif (   ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_AV_gvsv_vivify_rv2av_aelem
+                   || ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_HV_gvsv_vivify_rv2hv_helem)
+            {
+                $text .= $self->multideref_var_name(shift @items, $is_hash);
+            }
+            elsif (   ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_AV_pop_rv2av_aelem
+                   || ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_HV_pop_rv2hv_helem)
+            {
+                if (   ($op->flags & OPf_KIDS)
+                    && (   _op_is_or_was($op->first, OP_RV2AV)
+                        || _op_is_or_was($op->first, OP_RV2HV))
+                    && ($op->first->flags & OPf_KIDS)
+                    && (   _op_is_or_was($op->first->first, OP_AELEM)
+                        || _op_is_or_was($op->first->first, OP_HELEM))
+                    )
+                {
+                    $derefs++;
+                }
+            }
+
+            $text .= '->' if !$derefs++;
+        }
+
+
+        if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_none) {
+            last;
+        }
+
+        $text .= $is_hash ? '{' : '[';
+
+        if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_const) {
+            my $key = shift @items;
+            if ($is_hash) {
+                $text .= $self->const($key, $cx);
+            }
+            else {
+                $text .= $key;
+            }
+        }
+        elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_padsv) {
+            $text .= $self->padname(shift @items);
+        }
+        elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_gvsv) {
+            $text .= '$' .  ($self->stash_variable_name('$', shift @items))[0];
+        }
+
+        $text .= $is_hash ? '}' : ']';
+
+        if ($actions & MDEREF_FLAG_last) {
+            last;
+        }
+        $actions >>= MDEREF_SHIFT;
+    }
+
+    return $text;
+}
+
+
+sub pp_aelem { maybe_local(@_, elem(@_, "[", "]", "padav")) }
+sub pp_helem { maybe_local(@_, elem(@_, "{", "}", "padhv")) }
+
+sub pp_gelem {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my($glob, $part) = ($op->first, $op->last);
+    $glob = $glob->first; # skip rv2gv
+    $glob = $glob->first if $glob->name eq "rv2gv"; # this one's a bug
+    my $scope = is_scope($glob);
+    $glob = $self->deparse($glob, 0);
+    $part = $self->deparse($part, 1);
+    $glob =~ s/::\z// unless $scope;
+    return "*" . ($scope ? "{$glob}" : $glob) . "{$part}";
+}
+
+sub slice {
+    my $self = shift;
+    my ($op, $cx, $left, $right, $regname, $padname) = @_;
+    my $last;
+    my(@elems, $kid, $array, $list);
+    if (class($op) eq "LISTOP") {
+	$last = $op->last;
+    } else { # ex-hslice inside delete()
+	for ($kid = $op->first; !null $kid->sibling; $kid = $kid->sibling) {}
+	$last = $kid;
+    }
+    $array = $last;
+    $array = $array->first
+	if $array->name eq $regname or $array->name eq "null";
+    $array = $self->elem_or_slice_array_name($array,$left,$padname,0);
+    $kid = $op->first->sibling; # skip pushmark
+    if ($kid->name eq "list") {
+	$kid = $kid->first->sibling; # skip list, pushmark
+	for (; !null $kid; $kid = $kid->sibling) {
+	    push @elems, $self->deparse($kid, 6);
+	}
+	$list = join(", ", @elems);
+    } else {
+	$list = $self->elem_or_slice_single_index($kid);
+    }
+    my $lead = (   _op_is_or_was($op, OP_KVHSLICE)
+                || _op_is_or_was($op, OP_KVASLICE))
+               ? '%' : '@';
+    return $lead . $array . $left . $list . $right;
+}
+
+sub pp_aslice   { maybe_local(@_, slice(@_, "[", "]", "rv2av", "padav")) }
+sub pp_kvaslice {                 slice(@_, "[", "]", "rv2av", "padav")  }
+sub pp_hslice   { maybe_local(@_, slice(@_, "{", "}", "rv2hv", "padhv")) }
+sub pp_kvhslice {                 slice(@_, "{", "}", "rv2hv", "padhv")  }
+
+sub pp_lslice {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $idx = $op->first;
+    my $list = $op->last;
+    my(@elems, $kid);
+    $list = $self->deparse($list, 1);
+    $idx = $self->deparse($idx, 1);
+    return "($list)" . "[$idx]";
+}
+
+sub want_scalar {
+    my $op = shift;
+    return ($op->flags & OPf_WANT) == OPf_WANT_SCALAR;
+}
+
+sub want_list {
+    my $op = shift;
+    return ($op->flags & OPf_WANT) == OPf_WANT_LIST;
+}
+
+sub _method {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling; # skip pushmark
+    my($meth, $obj, @exprs);
+    if ($kid->name eq "list" and want_list $kid) {
+	# When an indirect object isn't a bareword but the args are in
+	# parens, the parens aren't part of the method syntax (the LLAFR
+	# doesn't apply), but they make a list with OPf_PARENS set that
+	# doesn't get flattened by the append_elem that adds the method,
+	# making a (object, arg1, arg2, ...) list where the object
+	# usually is. This can be distinguished from
+	# '($obj, $arg1, $arg2)->meth()' (which is legal if $arg2 is an
+	# object) because in the later the list is in scalar context
+	# as the left side of -> always is, while in the former
+	# the list is in list context as method arguments always are.
+	# (Good thing there aren't method prototypes!)
+	$meth = $kid->sibling;
+	$kid = $kid->first->sibling; # skip pushmark
+	$obj = $kid;
+	$kid = $kid->sibling;
+	for (; not null $kid; $kid = $kid->sibling) {
+	    push @exprs, $kid;
+	}
+    } else {
+	$obj = $kid;
+	$kid = $kid->sibling;
+	for (; !null ($kid->sibling) && $kid->name!~/^method(?:_named)?\z/;
+	      $kid = $kid->sibling) {
+	    push @exprs, $kid
+	}
+	$meth = $kid;
+    }
+
+    if ($meth->name eq "method_named") {
+	$meth = $self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_super") {
+	$meth = "SUPER::".$self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_redir") {
+        $meth = $self->meth_rclass_sv($meth)->PV.'::'.$self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_redir_super") {
+        $meth = $self->meth_rclass_sv($meth)->PV.'::SUPER::'.
+                $self->meth_sv($meth)->PV;
+    } else {
+	$meth = $meth->first;
+	if ($meth->name eq "const") {
+	    # As of 5.005_58, this case is probably obsoleted by the
+	    # method_named case above
+	    $meth = $self->const_sv($meth)->PV; # needs to be bare
+	}
+    }
+
+    return { method => $meth, variable_method => ref($meth),
+             object => $obj, args => \@exprs  },
+	   $cx;
+}
+
+# compat function only
+sub method {
+    my $self = shift;
+    my $info = $self->_method(@_);
+    return $self->e_method( $self->_method(@_) );
+}
+
+sub e_method {
+    my ($self, $info, $cx) = @_;
+    my $obj = $self->deparse($info->{object}, 24);
+
+    my $meth = $info->{method};
+    $meth = $self->deparse($meth, 1) if $info->{variable_method};
+    my $args = join(", ", map { $self->deparse($_, 6) } @{$info->{args}} );
+    if ($info->{object}->name eq 'scope' && want_list $info->{object}) {
+	# method { $object }
+	# This must be deparsed this way to preserve list context
+	# of $object.
+	my $need_paren = $cx >= 6;
+	return '(' x $need_paren
+	     . $meth . substr($obj,2) # chop off the "do"
+	     . " $args"
+	     . ')' x $need_paren;
+    }
+    my $kid = $obj . "->" . $meth;
+    if (length $args) {
+	return $kid . "(" . $args . ")"; # parens mandatory
+    } else {
+	return $kid;
+    }
+}
+
+# returns "&" if the prototype doesn't match the args,
+# or ("", $args_after_prototype_demunging) if it does.
+sub check_proto {
+    my $self = shift;
+    return "&" if $self->{'noproto'};
+    my($proto, @args) = @_;
+    my($arg, $real);
+    my $doneok = 0;
+    my @reals;
+    # An unbackslashed @ or % gobbles up the rest of the args
+    1 while $proto =~ s/(?<!\\)([@%])[^\]]+$/$1/;
+    $proto =~ s/^\s*//;
+    while ($proto) {
+	$proto =~ s/^(\\?[\$\@&%*_]|\\\[[\$\@&%*]+\]|;|)\s*//;
+	my $chr = $1;
+	if ($chr eq "") {
+	    return "&" if @args;
+	} elsif ($chr eq ";") {
+	    $doneok = 1;
+	} elsif ($chr eq "@" or $chr eq "%") {
+	    push @reals, map($self->deparse($_, 6), @args);
+	    @args = ();
+	} else {
+	    $arg = shift @args;
+	    last unless $arg;
+	    if ($chr eq "\$" || $chr eq "_") {
+		if (want_scalar $arg) {
+		    push @reals, $self->deparse($arg, 6);
+		} else {
+		    return "&";
+		}
+	    } elsif ($chr eq "&") {
+		if ($arg->name =~ /^(s?refgen|undef)$/) {
+		    push @reals, $self->deparse($arg, 6);
+		} else {
+		    return "&";
+		}
+	    } elsif ($chr eq "*") {
+		if ($arg->name =~ /^s?refgen$/
+		    and $arg->first->first->name eq "rv2gv")
+		  {
+		      $real = $arg->first->first; # skip refgen, null
+		      if ($real->first->name eq "gv") {
+			  push @reals, $self->deparse($real, 6);
+		      } else {
+			  push @reals, $self->deparse($real->first, 6);
+		      }
+		  } else {
+		      return "&";
+		  }
+	    } elsif (substr($chr, 0, 1) eq "\\") {
+		$chr =~ tr/\\[]//d;
+		if ($arg->name =~ /^s?refgen$/ and
+		    !null($real = $arg->first) and
+		    ($chr =~ /\$/ && is_scalar($real->first)
+		     or ($chr =~ /@/
+			 && class($real->first->sibling) ne 'NULL'
+			 && $real->first->sibling->name
+			 =~ /^(rv2|pad)av$/)
+		     or ($chr =~ /%/
+			 && class($real->first->sibling) ne 'NULL'
+			 && $real->first->sibling->name
+			 =~ /^(rv2|pad)hv$/)
+		     #or ($chr =~ /&/ # This doesn't work
+		     #   && $real->first->name eq "rv2cv")
+		     or ($chr =~ /\*/
+			 && $real->first->name eq "rv2gv")))
+		  {
+		      push @reals, $self->deparse($real, 6);
+		  } else {
+		      return "&";
+		  }
+	    }
+       }
+    }
+    return "&" if $proto and !$doneok; # too few args and no ';'
+    return "&" if @args;               # too many args
+    return ("", join ", ", @reals);
+}
+
+sub retscalar {
+    my $name = $_[0]->name;
+    # XXX There has to be a better way of doing this scalar-op check.
+    #     Currently PL_opargs is not exposed.
+    if ($name eq 'null') {
+        $name = substr B::ppname($_[0]->targ), 3
+    }
+    $name =~ /^(?:scalar|pushmark|wantarray|const|gvsv|gv|padsv|rv2gv
+                 |rv2sv|av2arylen|anoncode|prototype|srefgen|ref|bless
+                 |regcmaybe|regcreset|regcomp|qr|subst|substcont|trans
+                 |transr|sassign|chop|schop|chomp|schomp|defined|undef
+                 |study|pos|preinc|i_preinc|predec|i_predec|postinc
+                 |i_postinc|postdec|i_postdec|pow|multiply|i_multiply
+                 |divide|i_divide|modulo|i_modulo|add|i_add|subtract
+                 |i_subtract|concat|multiconcat|stringify|left_shift|right_shift|lt
+                 |i_lt|gt|i_gt|le|i_le|ge|i_ge|eq|i_eq|ne|i_ne|ncmp|i_ncmp
+                 |slt|sgt|sle|sge|seq|sne|scmp|[sn]?bit_(?:and|x?or)|negate
+                 |i_negate|not|[sn]?complement|smartmatch|atan2|sin|cos
+                 |rand|srand|exp|log|sqrt|int|hex|oct|abs|length|substr
+                 |vec|index|rindex|sprintf|formline|ord|chr|crypt|ucfirst
+                 |lcfirst|uc|lc|quotemeta|aelemfast|aelem|exists|helem
+                 |pack|join|anonlist|anonhash|push|pop|shift|unshift|xor
+                 |andassign|orassign|dorassign|warn|die|reset|nextstate
+                 |dbstate|unstack|last|next|redo|dump|goto|exit|open|close
+                 |pipe_op|fileno|umask|binmode|tie|untie|tied|dbmopen
+                 |dbmclose|select|getc|read|enterwrite|prtf|print|say
+                 |sysopen|sysseek|sysread|syswrite|eof|tell|seek|truncate
+                 |fcntl|ioctl|flock|send|recv|socket|sockpair|bind|connect
+                 |listen|accept|shutdown|gsockopt|ssockopt|getsockname
+                 |getpeername|ftrread|ftrwrite|ftrexec|fteread|ftewrite
+                 |fteexec|ftis|ftsize|ftmtime|ftatime|ftctime|ftrowned
+                 |fteowned|ftzero|ftsock|ftchr|ftblk|ftfile|ftdir|ftpipe
+                 |ftsuid|ftsgid|ftsvtx|ftlink|fttty|fttext|ftbinary|chdir
+                 |chown|chroot|unlink|chmod|utime|rename|link|symlink
+                 |readlink|mkdir|rmdir|open_dir|telldir|seekdir|rewinddir
+                 |closedir|fork|wait|waitpid|system|exec|kill|getppid
+                 |getpgrp|setpgrp|getpriority|setpriority|time|alarm|sleep
+                 |shmget|shmctl|shmread|shmwrite|msgget|msgctl|msgsnd
+                 |msgrcv|semop|semget|semctl|hintseval|shostent|snetent
+                 |sprotoent|sservent|ehostent|enetent|eprotoent|eservent
+                 |spwent|epwent|sgrent|egrent|getlogin|syscall|lock|runcv
+                 |fc)\z/x
+}
+
+sub pp_entersub {
+    my $self = shift;
+    my($op, $cx) = @_;
+    return $self->e_method($self->_method($op, $cx))
+        unless null $op->first->sibling;
+    my $prefix = "";
+    my $amper = "";
+    my($kid, @exprs);
+    if ($op->flags & OPf_SPECIAL && !($op->flags & OPf_MOD)) {
+	$prefix = "do ";
+    } elsif ($op->private & OPpENTERSUB_AMPER) {
+	$amper = "&";
+    }
+    $kid = $op->first;
+    $kid = $kid->first->sibling; # skip ex-list, pushmark
+    for (; not null $kid->sibling; $kid = $kid->sibling) {
+	push @exprs, $kid;
+    }
+    my $simple = 0;
+    my $proto = undef;
+    my $lexical;
+    if (is_scope($kid)) {
+	$amper = "&";
+	$kid = "{" . $self->deparse($kid, 0) . "}";
+    } elsif ($kid->first->name eq "gv") {
+	my $gv = $self->gv_or_padgv($kid->first);
+	my $cv;
+	if (class($gv) eq 'GV' && class($cv = $gv->CV) ne "SPECIAL"
+	 || $gv->FLAGS & SVf_ROK && class($cv = $gv->RV) eq 'CV') {
+	    $proto = $cv->PV if $cv->FLAGS & SVf_POK;
+	}
+	$simple = 1; # only calls of named functions can be prototyped
+	$kid = $self->maybe_qualify("!", $self->gv_name($gv));
+	my $fq;
+	# Fully qualify any sub name that conflicts with a lexical.
+	if ($self->lex_in_scope("&$kid")
+	 || $self->lex_in_scope("&$kid", 1))
+	{
+	    $fq++;
+	} elsif (!$amper) {
+	    if ($kid eq 'main::') {
+		$kid = '::';
+	    }
+	    else {
+	      if ($kid !~ /::/ && $kid ne 'x') {
+		# Fully qualify any sub name that is also a keyword.  While
+		# we could check the import flag, we cannot guarantee that
+		# the code deparsed so far would set that flag, so we qual-
+		# ify the names regardless of importation.
+		if (exists $feature_keywords{$kid}) {
+		    $fq++ if $self->feature_enabled($kid);
+		} elsif (do { local $@; local $SIG{__DIE__};
+			      eval { () = prototype "CORE::$kid"; 1 } }) {
+		    $fq++
+		}
+	      }
+	      if ($kid !~ /^(?:\w|::)(?:[\w\d]|::(?!\z))*\z/) {
+		$kid = single_delim("q", "'", $kid, $self) . '->';
+	      }
+	    }
+	}
+	$fq and substr $kid, 0, 0, = $self->{'curstash'}.'::';
+    } elsif (is_scalar ($kid->first) && $kid->first->name ne 'rv2cv') {
+	$amper = "&";
+	$kid = $self->deparse($kid, 24);
+    } else {
+	$prefix = "";
+	my $grandkid = $kid->first;
+	my $arrow = ($lexical = $grandkid->name eq "padcv")
+		 || is_subscriptable($grandkid)
+		    ? ""
+		    : "->";
+	$kid = $self->deparse($kid, 24) . $arrow;
+	if ($lexical) {
+	    my $padlist = $self->{'curcv'}->PADLIST;
+	    my $padoff = $grandkid->targ;
+	    my $padname = $padlist->ARRAYelt(0)->ARRAYelt($padoff);
+	    my $protocv = $padname->FLAGS & SVpad_STATE
+		? $padlist->ARRAYelt(1)->ARRAYelt($padoff)
+		: $padname->PROTOCV;
+	    if ($protocv->FLAGS & SVf_POK) {
+		$proto = $protocv->PV
+	    }
+	    $simple = 1;
+	}
+    }
+
+    # Doesn't matter how many prototypes there are, if
+    # they haven't happened yet!
+    my $declared = $lexical || exists $self->{'subs_declared'}{$kid};
+    if (not $declared and $self->{'in_coderef2text'}) {
+	no strict 'refs';
+	no warnings 'uninitialized';
+	$declared =
+	       (
+		 defined &{ ${$self->{'curstash'}."::"}{$kid} }
+		 && !exists
+		     $self->{'subs_deparsed'}{$self->{'curstash'}."::".$kid}
+		 && defined prototype $self->{'curstash'}."::".$kid
+	       );
+    }
+    if (!$declared && defined($proto)) {
+	# Avoid "too early to check prototype" warning
+	($amper, $proto) = ('&');
+    }
+
+    my $args;
+    my $listargs = 1;
+    if ($declared and defined $proto and not $amper) {
+	($amper, $args) = $self->check_proto($proto, @exprs);
+	$listargs = $amper;
+    }
+    if ($listargs) {
+	$args = join(", ", map(
+		    ($_->flags & OPf_WANT) == OPf_WANT_SCALAR
+		 && !retscalar($_)
+			? $self->maybe_parens_unop('scalar', $_, 6)
+			: $self->deparse($_, 6),
+		    @exprs
+		));
+    }
+    if ($prefix or $amper) {
+	if ($kid eq '&') { $kid = "{$kid}" } # &{&} cannot be written as &&
+	if ($op->flags & OPf_STACKED) {
+	    return $prefix . $amper . $kid . "(" . $args . ")";
+	} else {
+	    return $prefix . $amper. $kid;
+	}
+    } else {
+	# It's a syntax error to call CORE::GLOBAL::foo with a prefix,
+	# so it must have been translated from a keyword call. Translate
+	# it back.
+	$kid =~ s/^CORE::GLOBAL:://;
+
+	my $dproto = defined($proto) ? $proto : "undefined";
+	my $scalar_proto = $dproto =~ /^;*(?:[\$*_+]|\\.|\\\[[^]]\])\z/;
+        if (!$declared) {
+	    return "$kid(" . $args . ")";
+	} elsif ($dproto =~ /^\s*\z/) {
+	    return $kid;
+	} elsif ($scalar_proto and is_scalar($exprs[0])) {
+	    # is_scalar is an excessively conservative test here:
+	    # really, we should be comparing to the precedence of the
+	    # top operator of $exprs[0] (ala unop()), but that would
+	    # take some major code restructuring to do right.
+	    return $self->maybe_parens_func($kid, $args, $cx, 16);
+	} elsif (not $scalar_proto and defined($proto) || $simple) { #'
+	    return $self->maybe_parens_func($kid, $args, $cx, 5);
+	} else {
+	    return "$kid(" . $args . ")";
+	}
+    }
+}
+
+sub pp_enterwrite { unop(@_, "write") }
+
+# escape things that cause interpolation in double quotes,
+# but not character escapes
+sub uninterp {
+    my($str) = @_;
+    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@]|\\[uUlLQE])/$1$2\\$3/g;
+    return $str;
+}
+
+{
+my $bal;
+BEGIN {
+    use re "eval";
+    # Matches any string which is balanced with respect to {braces}
+    $bal = qr(
+      (?:
+	[^\\{}]
+      | \\\\
+      | \\[{}]
+      | \{(??{$bal})\}
+      )*
+    )x;
+}
+
+# the same, but treat $|, $), $( and $ at the end of the string differently
+# and leave comments unmangled for the sake of /x and (?x).
+sub re_uninterp {
+    my($str) = @_;
+
+    $str =~ s/
+	  ( ^|\G                  # $1
+          | [^\\]
+          )
+
+          (                       # $2
+            (?:\\\\)*
+          )
+
+          (                       # $3
+            ( \(\?\??\{$bal\}\)   # $4  (skip over (?{}) and (??{}) blocks)
+            | \#[^\n]*            #     (skip over comments)
+            )
+          | [\$\@]
+            (?!\||\)|\(|$|\s)
+          | \\[uUlLQE]
+          )
+
+	/defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg;
+
+    return $str;
+}
+}
+
+# character escapes, but not delimiters that might need to be escaped
+sub escape_str { # ASCII, UTF8
+    my($str) = @_;
+    $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg;
+    $str =~ s/\a/\\a/g;
+#    $str =~ s/\cH/\\b/g; # \b means something different in a regex; and \cH
+                          # isn't a backspace in EBCDIC
+    $str =~ s/\t/\\t/g;
+    $str =~ s/\n/\\n/g;
+    $str =~ s/\e/\\e/g;
+    $str =~ s/\f/\\f/g;
+    $str =~ s/\r/\\r/g;
+    $str =~ s/([\cA-\cZ])/'\\c' . $unctrl{$1}/ge;
+    $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/age;
+    return $str;
+}
+
+# For regexes.  Leave whitespace unmangled in case of /x or (?x).
+sub escape_re {
+    my($str) = @_;
+    $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg;
+    $str =~ s/([[:^print:]])/
+	($1 =~ y! \t\n!!) ? $1 : sprintf("\\%03o", ord($1))/age;
+    $str =~ s/\n/\n\f/g;
+    return $str;
+}
+
+# Don't do this for regexen
+sub unback {
+    my($str) = @_;
+    $str =~ s/\\/\\\\/g;
+    return $str;
+}
+
+# Remove backslashes which precede literal control characters,
+# to avoid creating ambiguity when we escape the latter.
+#
+# Don't remove a backslash from escaped whitespace: where the T represents
+# a literal tab character, /T/x is not equivalent to /\T/x
+
+sub re_unback {
+    my($str) = @_;
+
+    # the insane complexity here is due to the behaviour of "\c\"
+    $str =~ s/
+                # these two lines ensure that the backslash we're about to
+                # remove isn't preceeded by something which makes it part
+                # of a \c
+
+                (^ | [^\\] | \\c\\)             # $1
+                (?<!\\c)
+
+                # the backslash to remove
+                \\
+
+                # keep pairs of backslashes
+                (\\\\)*                         # $2
+
+                # only remove if the thing following is a control char
+                (?=[[:^print:]])
+                # and not whitespace
+                (?=\S)
+            /$1$2/xg;
+    return $str;
+}
+
+sub balanced_delim {
+    my($str) = @_;
+    my @str = split //, $str;
+    my($ar, $open, $close, $fail, $c, $cnt, $last_bs);
+    for $ar (['[',']'], ['(',')'], ['<','>'], ['{','}']) {
+	($open, $close) = @$ar;
+	$fail = 0; $cnt = 0; $last_bs = 0;
+	for $c (@str) {
+	    if ($c eq $open) {
+		$fail = 1 if $last_bs;
+		$cnt++;
+	    } elsif ($c eq $close) {
+		$fail = 1 if $last_bs;
+		$cnt--;
+		if ($cnt < 0) {
+		    # qq()() isn't ")("
+		    $fail = 1;
+		    last;
+		}
+	    }
+	    $last_bs = $c eq '\\';
+	}
+	$fail = 1 if $cnt != 0;
+	return ($open, "$open$str$close") if not $fail;
+    }
+    return ("", $str);
+}
+
+sub single_delim {
+    my($q, $default, $str, $self) = @_;
+    return "$default$str$default" if $default and index($str, $default) == -1;
+    my $coreq = $self->keyword($q); # maybe CORE::q
+    if ($q ne 'qr') {
+	(my $succeed, $str) = balanced_delim($str);
+	return "$coreq$str" if $succeed;
+    }
+    for my $delim ('/', '"', '#') {
+	return "$coreq$delim" . $str . $delim if index($str, $delim) == -1;
+    }
+    if ($default) {
+	$str =~ s/$default/\\$default/g;
+	return "$default$str$default";
+    } else {
+	$str =~ s[/][\\/]g;
+	return "$coreq/$str/";
+    }
+}
+
+my $max_prec;
+BEGIN { $max_prec = int(0.999 + 8*length(pack("F", 42))*log(2)/log(10)); }
+
+# Split a floating point number into an integer mantissa and a binary
+# exponent. Assumes you've already made sure the number isn't zero or
+# some weird infinity or NaN.
+sub split_float {
+    my($f) = @_;
+    my $exponent = 0;
+    if ($f == int($f)) {
+	while ($f % 2 == 0) {
+	    $f /= 2;
+	    $exponent++;
+	}
+    } else {
+	while ($f != int($f)) {
+	    $f *= 2;
+	    $exponent--;
+	}
+    }
+    my $mantissa = sprintf("%.0f", $f);
+    return ($mantissa, $exponent);
+}
+
+
+# suitably single- or double-quote a literal constant string
+
+sub quoted_const_str {
+    my ($self, $str) =@_;
+    if ($str =~ /[[:^print:]]/a) {
+        return single_delim("qq", '"',
+                             uninterp(escape_str unback $str), $self);
+    } else {
+        return single_delim("q", "'", unback($str), $self);
+    }
+}
+
+
+sub const {
+    my $self = shift;
+    my($sv, $cx) = @_;
+    if ($self->{'use_dumper'}) {
+	return $self->const_dumper($sv, $cx);
+    }
+    if (class($sv) eq "SPECIAL") {
+	# sv_undef, sv_yes, sv_no
+	return $$sv == 3 ? $self->maybe_parens("!1", $cx, 21)
+			 : ('undef', '1')[$$sv-1];
+    }
+    if (class($sv) eq "NULL") {
+       return 'undef';
+    }
+    # convert a version object into the "v1.2.3" string in its V magic
+    if ($sv->FLAGS & SVs_RMG) {
+	for (my $mg = $sv->MAGIC; $mg; $mg = $mg->MOREMAGIC) {
+	    return $mg->PTR if $mg->TYPE eq 'V';
+	}
+    }
+
+    if ($sv->FLAGS & SVf_IOK) {
+	my $str = $sv->int_value;
+	$str = $self->maybe_parens($str, $cx, 21) if $str < 0;
+	return $str;
+    } elsif ($sv->FLAGS & SVf_NOK) {
+	my $nv = $sv->NV;
+	if ($nv == 0) {
+	    if (pack("F", $nv) eq pack("F", 0)) {
+		# positive zero
+		return "0";
+	    } else {
+		# negative zero
+		return $self->maybe_parens("-.0", $cx, 21);
+	    }
+	} elsif (1/$nv == 0) {
+	    if ($nv > 0) {
+		# positive infinity
+		return $self->maybe_parens("9**9**9", $cx, 22);
+	    } else {
+		# negative infinity
+		return $self->maybe_parens("-9**9**9", $cx, 21);
+	    }
+	} elsif ($nv != $nv) {
+	    # NaN
+	    if (pack("F", $nv) eq pack("F", sin(9**9**9))) {
+		# the normal kind
+		return "sin(9**9**9)";
+	    } elsif (pack("F", $nv) eq pack("F", -sin(9**9**9))) {
+		# the inverted kind
+		return $self->maybe_parens("-sin(9**9**9)", $cx, 21);
+	    } else {
+		# some other kind
+		my $hex = unpack("h*", pack("F", $nv));
+		return qq'unpack("F", pack("h*", "$hex"))';
+	    }
+	}
+	# first, try the default stringification
+	my $str = "$nv";
+	if ($str != $nv) {
+	    # failing that, try using more precision
+	    $str = sprintf("%.${max_prec}g", $nv);
+#	    if (pack("F", $str) ne pack("F", $nv)) {
+	    if ($str != $nv) {
+		# not representable in decimal with whatever sprintf()
+		# and atof() Perl is using here.
+		my($mant, $exp) = split_float($nv);
+		return $self->maybe_parens("$mant * 2**$exp", $cx, 19);
+	    }
+	}
+	$str = $self->maybe_parens($str, $cx, 21) if $nv < 0;
+	return $str;
+    } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) {
+	my $ref = $sv->RV;
+	my $class = class($ref);
+	if ($class eq "AV") {
+	    return "[" . $self->list_const(2, $ref->ARRAY) . "]";
+	} elsif ($class eq "HV") {
+	    my %hash = $ref->ARRAY;
+	    my @elts;
+	    for my $k (sort keys %hash) {
+		push @elts, "$k => " . $self->const($hash{$k}, 6);
+	    }
+	    return "{" . join(", ", @elts) . "}";
+	} elsif ($class eq "CV") {
+	    no overloading;
+	    if ($self->{curcv} &&
+		 $self->{curcv}->object_2svref == $ref->object_2svref) {
+		return $self->keyword("__SUB__");
+	    }
+	    return "sub " . $self->deparse_sub($ref);
+	}
+	if ($class ne 'SPECIAL' and $ref->FLAGS & SVs_SMG) {
+	    for (my $mg = $ref->MAGIC; $mg; $mg = $mg->MOREMAGIC) {
+		if ($mg->TYPE eq 'r') {
+		    my $re = re_uninterp(escape_re(re_unback($mg->precomp)));
+		    return single_delim("qr", "", $re, $self);
+		}
+	    }
+	}
+	
+	my $const = $self->const($ref, 20);
+	if ($self->{in_subst_repl} && $const =~ /^[0-9]/) {
+	    $const = "($const)";
+	}
+	return $self->maybe_parens("\\$const", $cx, 20);
+    } elsif ($sv->FLAGS & SVf_POK) {
+	my $str = $sv->PV;
+        return $self->quoted_const_str($str);
+    } else {
+	return "undef";
+    }
+}
+
+sub const_dumper {
+    my $self = shift;
+    my($sv, $cx) = @_;
+    my $ref = $sv->object_2svref();
+    my $dumper = Data::Dumper->new([$$ref], ['$v']);
+    $dumper->Purity(1)->Terse(1)->Deparse(1)->Indent(0)->Useqq(1)->Sortkeys(1);
+    my $str = $dumper->Dump();
+    if ($str =~ /^\$v/) {
+	return '${my ' . $str . ' \$v}';
+    } else {
+	return $str;
+    }
+}
+
+sub const_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->sv;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($op->targ) unless $$sv;
+    return $sv;
+}
+
+sub meth_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->meth_sv;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($op->targ) unless $$sv;
+    return $sv;
+}
+
+sub meth_rclass_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->rclass;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($sv) unless ref $sv;
+    return $sv;
+}
+
+sub pp_const {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($op->private & OPpCONST_ARYBASE) {
+        return '$[';
+    }
+#    if ($op->private & OPpCONST_BARE) { # trouble with '=>' autoquoting
+#	return $self->const_sv($op)->PV;
+#    }
+    my $sv = $self->const_sv($op);
+    return $self->const($sv, $cx);
+}
+
+
+# Join two components of a double-quoted string, disambiguating
+# "${foo}bar", "${foo}{bar}", "${foo}[1]", "$foo\::bar"
+
+sub dq_disambiguate {
+    my ($first, $last) = @_;
+    ($last =~ /^[A-Z\\\^\[\]_?]/ &&
+        $first =~ s/([\$@])\^$/${1}{^}/)  # "${^}W" etc
+        || ($last =~ /^[:'{\[\w_]/ && #'
+            $first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/);
+    return $first . $last;
+}
+
+
+# Deparse a double-quoted optree. For example, "$a[0]\Q$b\Efo\"o" gets
+# compiled to concat(concat($[0],quotemeta($b)),const("fo\"o")), and this
+# sub deparses it back to $a[0]\Q$b\Efo"o
+# (It does not add delimiters)
+
+sub dq {
+    my $self = shift;
+    my $op = shift;
+    my $type = $op->name;
+    if ($type eq "const") {
+	return '$[' if $op->private & OPpCONST_ARYBASE;
+	return uninterp(escape_str(unback($self->const_sv($op)->as_string)));
+    } elsif ($type eq "concat") {
+        return dq_disambiguate($self->dq($op->first), $self->dq($op->last));
+    } elsif ($type eq "multiconcat") {
+        return $self->do_multiconcat($op, 26, 1);
+    } elsif ($type eq "uc") {
+	return '\U' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "lc") {
+	return '\L' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "ucfirst") {
+	return '\u' . $self->dq($op->first->sibling);
+    } elsif ($type eq "lcfirst") {
+	return '\l' . $self->dq($op->first->sibling);
+    } elsif ($type eq "quotemeta") {
+	return '\Q' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "fc") {
+	return '\F' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "join") {
+	return $self->deparse($op->last, 26); # was join($", @ary)
+    } else {
+	return $self->deparse($op, 26);
+    }
+}
+
+sub pp_backtick {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # skip pushmark if it exists (readpipe() vs ``)
+    my $child = $op->first->sibling->isa('B::NULL')
+	? $op->first : $op->first->sibling;
+    if ($self->pure_string($child)) {
+	return single_delim("qx", '`', $self->dq($child, 1), $self);
+    }
+    unop($self, @_, "readpipe");
+}
+
+sub dquote {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling; # skip ex-stringify, pushmark
+    return $self->deparse($kid, $cx) if $self->{'unquote'};
+    $self->maybe_targmy($kid, $cx,
+			sub {single_delim("qq", '"', $self->dq($_[1]),
+					   $self)});
+}
+
+# OP_STRINGIFY is a listop, but it only ever has one arg
+sub pp_stringify {
+    my ($self, $op, $cx) = @_;
+    my $kid = $op->first->sibling;
+    while ($kid->name eq 'null' && !null($kid->first)) {
+	$kid = $kid->first;
+    }
+    if ($kid->name =~ /^(?:const|padsv|rv2sv|av2arylen|gvsv|multideref
+			  |aelemfast(?:_lex)?|[ah]elem|join|concat)\z/x) {
+	maybe_targmy(@_, \&dquote);
+    }
+    else {
+	# Actually an optimised join.
+	my $result = listop(@_,"join");
+	$result =~ s/join([( ])/join$1$self->{'ex_const'}, /;
+	$result;
+    }
+}
+
+# tr/// and s/// (and tr[][], tr[]//, tr###, etc)
+# note that tr(from)/to/ is OK, but not tr/from/(to)
+sub double_delim {
+    my($from, $to) = @_;
+    my($succeed, $delim);
+    if ($from !~ m[/] and $to !~ m[/]) {
+	return "/$from/$to/";
+    } elsif (($succeed, $from) = balanced_delim($from) and $succeed) {
+	if (($succeed, $to) = balanced_delim($to) and $succeed) {
+	    return "$from$to";
+	} else {
+	    for $delim ('/', '"', '#') { # note no "'" -- s''' is special
+		return "$from$delim$to$delim" if index($to, $delim) == -1;
+	    }
+	    $to =~ s[/][\\/]g;
+	    return "$from/$to/";
+	}
+    } else {
+	for $delim ('/', '"', '#') { # note no '
+	    return "$delim$from$delim$to$delim"
+		if index($to . $from, $delim) == -1;
+	}
+	$from =~ s[/][\\/]g;
+	$to =~ s[/][\\/]g;
+	return "/$from/$to/";	
+    }
+}
+
+# Escape a characrter.
+# Only used by tr///, so backslashes hyphens
+
+sub pchr { # ASCII
+    my($n) = @_;
+    if ($n == ord '\\') {
+	return '\\\\';
+    } elsif ($n == ord "-") {
+	return "\\-";
+    } elsif (utf8::native_to_unicode($n) >= utf8::native_to_unicode(ord(' '))
+             and utf8::native_to_unicode($n) <= utf8::native_to_unicode(ord('~')))
+    {
+        # I'm presuming a regex is not ok here, otherwise we could have used
+        # /[[:print:]]/a to get here
+	return chr($n);
+    } elsif ($n == ord "\a") {
+	return '\\a';
+    } elsif ($n == ord "\b") {
+	return '\\b';
+    } elsif ($n == ord "\t") {
+	return '\\t';
+    } elsif ($n == ord "\n") {
+	return '\\n';
+    } elsif ($n == ord "\e") {
+	return '\\e';
+    } elsif ($n == ord "\f") {
+	return '\\f';
+    } elsif ($n == ord "\r") {
+	return '\\r';
+    } elsif ($n >= ord("\cA") and $n <= ord("\cZ")) {
+	return '\\c' . $unctrl{chr $n};
+    } else {
+#	return '\x' . sprintf("%02x", $n);
+	return '\\' . sprintf("%03o", $n);
+    }
+}
+
+# Convert a list of characters into a string suitable for tr/// search or
+# replacement, with suitable escaping and collapsing of ranges
+
+sub collapse {
+    my(@chars) = @_;
+    my($str, $c, $tr) = ("");
+    for ($c = 0; $c < @chars; $c++) {
+	$tr = $chars[$c];
+	$str .= pchr($tr);
+	if ($c <= $#chars - 2 and $chars[$c + 1] == $tr + 1 and
+	    $chars[$c + 2] == $tr + 2)
+	{
+	    for (; $c <= $#chars-1 and $chars[$c + 1] == $chars[$c] + 1; $c++)
+	      {}
+	    $str .= "-";
+	    $str .= pchr($chars[$c]);
+	}
+    }
+    return $str;
+}
+
+sub tr_decode_byte {
+    my($table, $flags) = @_;
+    my $ssize_t = $Config{ptrsize} == 8 ? 'q' : 'l';
+    my ($size, @table) = unpack("${ssize_t}s*", $table);
+    pop @table; # remove the wildcard final entry
+
+    my($c, $tr, @from, @to, @delfrom, $delhyphen);
+    if ($table[ord "-"] != -1 and
+	$table[ord("-") - 1] == -1 || $table[ord("-") + 1] == -1)
+    {
+	$tr = $table[ord "-"];
+	$table[ord "-"] = -1;
+	if ($tr >= 0) {
+	    @from = ord("-");
+	    @to = $tr;
+	} else { # -2 ==> delete
+	    $delhyphen = 1;
+	}
+    }
+    for ($c = 0; $c < @table; $c++) {
+	$tr = $table[$c];
+	if ($tr >= 0) {
+	    push @from, $c; push @to, $tr;
+	} elsif ($tr == -2) {
+	    push @delfrom, $c;
+	}
+    }
+    @from = (@from, @delfrom);
+
+    if ($flags & OPpTRANS_COMPLEMENT) {
+        unless ($flags & OPpTRANS_DELETE) {
+            @to = () if ("@from" eq "@to");
+        }
+
+	my @newfrom = ();
+	my %from;
+	@from{@from} = (1) x @from;
+	for ($c = 0; $c < 256; $c++) {
+	    push @newfrom, $c unless $from{$c};
+	}
+	@from = @newfrom;
+    }
+    unless ($flags & OPpTRANS_DELETE || !@to) {
+	pop @to while $#to and $to[$#to] == $to[$#to -1];
+    }
+    my($from, $to);
+    $from = collapse(@from);
+    $to = collapse(@to);
+    $from .= "-" if $delhyphen;
+    return ($from, $to);
+}
+
+sub tr_chr {
+    my $x = shift;
+    if ($x == ord "-") {
+	return "\\-";
+    } elsif ($x == ord "\\") {
+	return "\\\\";
+    } else {
+	return chr $x;
+    }
+}
+
+# XXX This doesn't yet handle all cases correctly either
+
+sub tr_decode_utf8 {
+    my($swash_hv, $flags) = @_;
+    my %swash = $swash_hv->ARRAY;
+    my $final = undef;
+    $final = $swash{'FINAL'}->IV if exists $swash{'FINAL'};
+    my $none = $swash{"NONE"}->IV;
+    my $extra = $none + 1;
+    my(@from, @delfrom, @to);
+    my $line;
+    foreach $line (split /\n/, $swash{'LIST'}->PV) {
+	my($min, $max, $result) = split(/\t/, $line);
+	$min = hex $min;
+	if (length $max) {
+	    $max = hex $max;
+	} else {
+	    $max = $min;
+	}
+	$result = hex $result;
+	if ($result == $extra) {
+	    push @delfrom, [$min, $max];
+	} else {
+	    push @from, [$min, $max];
+	    push @to, [$result, $result + $max - $min];
+	}
+    }
+    for my $i (0 .. $#from) {
+	if ($from[$i][0] == ord '-') {
+	    unshift @from, splice(@from, $i, 1);
+	    unshift @to, splice(@to, $i, 1);
+	    last;
+	} elsif ($from[$i][1] == ord '-') {
+	    $from[$i][1]--;
+	    $to[$i][1]--;
+	    unshift @from, ord '-';
+	    unshift @to, ord '-';
+	    last;
+	}
+    }
+    for my $i (0 .. $#delfrom) {
+	if ($delfrom[$i][0] == ord '-') {
+	    push @delfrom, splice(@delfrom, $i, 1);
+	    last;
+	} elsif ($delfrom[$i][1] == ord '-') {
+	    $delfrom[$i][1]--;
+	    push @delfrom, ord '-';
+	    last;
+	}
+    }
+    if (defined $final and $to[$#to][1] != $final) {
+	push @to, [$final, $final];
+    }
+    push @from, @delfrom;
+    if ($flags & OPpTRANS_COMPLEMENT) {
+	my @newfrom;
+	my $next = 0;
+	for my $i (0 .. $#from) {
+	    push @newfrom, [$next, $from[$i][0] - 1];
+	    $next = $from[$i][1] + 1;
+	}
+	@from = ();
+	for my $range (@newfrom) {
+	    if ($range->[0] <= $range->[1]) {
+		push @from, $range;
+	    }
+	}
+    }
+    my($from, $to, $diff);
+    for my $chunk (@from) {
+	$diff = $chunk->[1] - $chunk->[0];
+	if ($diff > 1) {
+	    $from .= tr_chr($chunk->[0]) . "-" . tr_chr($chunk->[1]);
+	} elsif ($diff == 1) {
+	    $from .= tr_chr($chunk->[0]) . tr_chr($chunk->[1]);
+	} else {
+	    $from .= tr_chr($chunk->[0]);
+	}
+    }
+    for my $chunk (@to) {
+	$diff = $chunk->[1] - $chunk->[0];
+	if ($diff > 1) {
+	    $to .= tr_chr($chunk->[0]) . "-" . tr_chr($chunk->[1]);
+	} elsif ($diff == 1) {
+	    $to .= tr_chr($chunk->[0]) . tr_chr($chunk->[1]);
+	} else {
+	    $to .= tr_chr($chunk->[0]);
+	}
+    }
+    #$final = sprintf("%04x", $final) if defined $final;
+    #$none = sprintf("%04x", $none) if defined $none;
+    #$extra = sprintf("%04x", $extra) if defined $extra;
+    #print STDERR "final: $final\n none: $none\nextra: $extra\n";
+    #print STDERR $swash{'LIST'}->PV;
+    return (escape_str($from), escape_str($to));
+}
+
+sub pp_trans {
+    my $self = shift;
+    my($op, $cx, $morflags) = @_;
+    my($from, $to);
+    my $class = class($op);
+    my $priv_flags = $op->private;
+    if ($class eq "PVOP") {
+	($from, $to) = tr_decode_byte($op->pv, $priv_flags);
+    } elsif ($class eq "PADOP") {
+	($from, $to)
+	  = tr_decode_utf8($self->padval($op->padix)->RV, $priv_flags);
+    } else { # class($op) eq "SVOP"
+	($from, $to) = tr_decode_utf8($op->sv->RV, $priv_flags);
+    }
+    my $flags = "";
+    $flags .= "c" if $priv_flags & OPpTRANS_COMPLEMENT;
+    $flags .= "d" if $priv_flags & OPpTRANS_DELETE;
+    $to = "" if $from eq $to and $flags eq "";
+    $flags .= "s" if $priv_flags & OPpTRANS_SQUASH;
+    $flags .= $morflags if defined $morflags;
+    my $ret = $self->keyword("tr") . double_delim($from, $to) . $flags;
+    if (my $targ = $op->targ) {
+	return $self->maybe_parens($self->padname($targ) . " =~ $ret",
+				   $cx, 20);
+    }
+    return $ret;
+}
+
+sub pp_transr { push @_, 'r'; goto &pp_trans }
+
+# Join two components of a double-quoted re, disambiguating
+# "${foo}bar", "${foo}{bar}", "${foo}[1]".
+
+sub re_dq_disambiguate {
+    my ($first, $last) = @_;
+    ($last =~ /^[A-Z\\\^\[\]_?]/ &&
+	$first =~ s/([\$@])\^$/${1}{^}/)  # "${^}W" etc
+	|| ($last =~ /^[{\[\w_]/ &&
+	    $first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/);
+    return $first . $last;
+}
+
+# Like dq(), but different
+sub re_dq {
+    my $self = shift;
+    my ($op) = @_;
+
+    my $type = $op->name;
+    if ($type eq "const") {
+	return '$[' if $op->private & OPpCONST_ARYBASE;
+	my $unbacked = re_unback($self->const_sv($op)->as_string);
+	return re_uninterp(escape_re($unbacked));
+    } elsif ($type eq "concat") {
+	my $first = $self->re_dq($op->first);
+	my $last  = $self->re_dq($op->last);
+	return re_dq_disambiguate($first, $last);
+    } elsif ($type eq "multiconcat") {
+        return $self->do_multiconcat($op, 26, 2);
+    } elsif ($type eq "uc") {
+	return '\U' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "lc") {
+	return '\L' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "ucfirst") {
+	return '\u' . $self->re_dq($op->first->sibling);
+    } elsif ($type eq "lcfirst") {
+	return '\l' . $self->re_dq($op->first->sibling);
+    } elsif ($type eq "quotemeta") {
+	return '\Q' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "fc") {
+	return '\F' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "join") {
+	return $self->deparse($op->last, 26); # was join($", @ary)
+    } else {
+	my $ret = $self->deparse($op, 26);
+	$ret =~ s/^\$([(|)])\z/\${$1}/ # $( $| $) need braces
+	or $ret =~ s/^\@([-+])\z/\@{$1}/; # @- @+ need braces
+	return $ret;
+    }
+}
+
+sub pure_string {
+    my ($self, $op) = @_;
+    return 0 if null $op;
+    my $type = $op->name;
+
+    if ($type eq 'const' || $type eq 'av2arylen') {
+	return 1;
+    }
+    elsif ($type =~ /^(?:[ul]c(first)?|fc)$/ || $type eq 'quotemeta') {
+	return $self->pure_string($op->first->sibling);
+    }
+    elsif ($type eq 'join') {
+	my $join_op = $op->first->sibling;  # Skip pushmark
+	return 0 unless $join_op->name eq 'null' && $join_op->targ == OP_RV2SV;
+
+	my $gvop = $join_op->first;
+	return 0 unless $gvop->name eq 'gvsv';
+        return 0 unless '"' eq $self->gv_name($self->gv_or_padgv($gvop));
+
+	return 0 unless ${$join_op->sibling} eq ${$op->last};
+	return 0 unless $op->last->name =~ /^(?:[ah]slice|(?:rv2|pad)av)$/;
+    }
+    elsif ($type eq 'concat') {
+	return $self->pure_string($op->first)
+            && $self->pure_string($op->last);
+    }
+    elsif ($type eq 'multiconcat') {
+        my ($kid, @kids);
+        for ($kid = $op->first; !null $kid; $kid = $kid->sibling) {
+            # skip the consts and/or padsv we've optimised away
+            push @kids, $kid
+                unless $kid->type == OP_NULL
+                  && (   $kid->targ == OP_PADSV
+                      || $kid->targ == OP_CONST
+                      || $kid->targ == OP_PUSHMARK);
+        }
+
+        if ($op->flags & OPf_STACKED) {
+            # remove expr from @kids where 'expr  = ...' or 'expr .= ....'
+            if ($op->private & OPpMULTICONCAT_APPEND) {
+                shift(@kids);
+            }
+            else {
+                pop(@kids);
+            }
+        }
+        for (@kids) {
+            return 0 unless $self->pure_string($_);
+        }
+        return 1;
+    }
+    elsif (is_scalar($op) || $type =~ /^[ah]elem$/) {
+	return 1;
+    }
+    elsif ($type eq "null" and $op->can('first') and not null $op->first) {
+        my $first = $op->first;
+
+        return 1 if $first->name eq "multideref";
+        return 1 if $first->name eq "aelemfast_lex";
+
+        if (    $first->name eq "null"
+            and $first->can('first')
+	    and not null $first->first
+            and $first->first->name eq "aelemfast"
+	   )
+        {
+            return 1;
+        }
+    }
+
+    return 0;
+}
+
+sub code_list {
+    my ($self,$op,$cv) = @_;
+
+    # localise stuff relating to the current sub
+    $cv and
+	local($self->{'curcv'}) = $cv,
+	local($self->{'curcvlex'}),
+	local(@$self{qw'curstash warnings hints hinthash curcop'})
+	    = @$self{qw'curstash warnings hints hinthash curcop'};
+
+    my $re;
+    for ($op = $op->first->sibling; !null($op); $op = $op->sibling) {
+	if ($op->name eq 'null' and $op->flags & OPf_SPECIAL) {
+	    my $scope = $op->first;
+	    # 0 context (last arg to scopeop) means statement context, so
+	    # the contents of the block will not be wrapped in do{...}.
+	    my $block = scopeop($scope->first->name eq "enter", $self,
+				$scope, 0);
+	    # next op is the source code of the block
+	    $op = $op->sibling;
+	    $re .= ($self->const_sv($op)->PV =~ m|^(\(\?\??\{)|)[0];
+	    my $multiline = $block =~ /\n/;
+	    $re .= $multiline ? "\n\t" : ' ';
+	    $re .= $block;
+	    $re .= $multiline ? "\n\b})" : " })";
+	} else {
+	    $re = re_dq_disambiguate($re, $self->re_dq($op));
+	}
+    }
+    $re;
+}
+
+sub regcomp {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    $kid = $kid->first if $kid->name eq "regcmaybe";
+    $kid = $kid->first if $kid->name eq "regcreset";
+    my $kname = $kid->name;
+    if ($kname eq "null" and !null($kid->first)
+	and $kid->first->name eq 'pushmark')
+    {
+	my $str = '';
+	$kid = $kid->first->sibling;
+	while (!null($kid)) {
+	    my $first = $str;
+	    my $last = $self->re_dq($kid);
+	    $str = re_dq_disambiguate($first, $last);
+	    $kid = $kid->sibling;
+	}
+	return $str, 1;
+    }
+
+    return ($self->re_dq($kid), 1)
+	if $kname =~ /^(?:rv2|pad)av/ or $self->pure_string($kid);
+    return ($self->deparse($kid, $cx), 0);
+}
+
+sub pp_regcomp {
+    my ($self, $op, $cx) = @_;
+    return (($self->regcomp($op, $cx, 0))[0]);
+}
+
+sub re_flags {
+    my ($self, $op) = @_;
+    my $flags = '';
+    my $pmflags = $op->pmflags;
+    if (!$pmflags) {
+	my $re = $op->pmregexp;
+	if ($$re) {
+	    $pmflags = $re->compflags;
+	}
+    }
+    $flags .= "g" if $pmflags & PMf_GLOBAL;
+    $flags .= "i" if $pmflags & PMf_FOLD;
+    $flags .= "m" if $pmflags & PMf_MULTILINE;
+    $flags .= "o" if $pmflags & PMf_KEEP;
+    $flags .= "s" if $pmflags & PMf_SINGLELINE;
+    $flags .= "x" if $pmflags & PMf_EXTENDED;
+    $flags .= "x" if $pmflags & PMf_EXTENDED_MORE;
+    $flags .= "p" if $pmflags & PMf_KEEPCOPY;
+    $flags .= "n" if $pmflags & PMf_NOCAPTURE;
+    if (my $charset = $pmflags & PMf_CHARSET) {
+	# Hardcoding this is fragile, but B does not yet export the
+	# constants we need.
+	$flags .= qw(d l u a aa)[$charset >> 7]
+    }
+    # The /d flag is indicated by 0; only show it if necessary.
+    elsif ($self->{hinthash} and
+	     $self->{hinthash}{reflags_charset}
+	    || $self->{hinthash}{feature_unicode}
+	or $self->{hints} & $feature::hint_mask
+	  && ($self->{hints} & $feature::hint_mask)
+	       != $feature::hint_mask
+	  && $self->{hints} & $feature::hint_uni8bit
+    ) {
+	$flags .= 'd';
+    }
+    $flags;
+}
+
+# osmic acid -- see osmium tetroxide
+
+my %matchwords;
+map($matchwords{join "", sort split //, $_} = $_, 'cig', 'cog', 'cos', 'cogs',
+    'cox', 'go', 'is', 'ism', 'iso', 'mig', 'mix', 'osmic', 'ox', 'sic',
+    'sig', 'six', 'smog', 'so', 'soc', 'sog', 'xi', 'soup', 'soupmix');
+
+# When deparsing a regular expression with code blocks, we have to look in
+# various places to find the blocks.
+#
+# For qr/(?{...})/ without interpolation, the CV is under $qr->qr_anoncv
+# and the code list (list of blocks and constants, maybe vars) is under
+# $cv->ROOT->first->code_list:
+#   ./perl -Ilib -MB -e 'use O "Concise", B::svref_2object(sub {qr/(?{die})/})->ROOT->first->first->sibling->pmregexp->qr_anoncv->object_2svref'
+#
+# For qr/$a(?{...})/ with interpolation, the code list is more accessible,
+# under $pmop->code_list, but the $cv is something you have to dig for in
+# the regcomp op’s kids:
+#   ./perl -Ilib -mO=Concise -e 'qr/$a(?{die})/'
+#
+# For m// and split //, things are much simpler.  There is no CV.  The code
+# list is under $pmop->code_list.
+
+sub matchop {
+    my $self = shift;
+    my($op, $cx, $name, $delim) = @_;
+    my $kid = $op->first;
+    my ($binop, $var, $re) = ("", "", "");
+    if ($op->name ne 'split' && $op->flags & OPf_STACKED) {
+	$binop = 1;
+	$var = $self->deparse($kid, 20);
+	$kid = $kid->sibling;
+    }
+           # not $name; $name will be 'm' for both match and split
+    elsif ($op->name eq 'match' and my $targ = $op->targ) {
+	$binop = 1;
+	$var = $self->padname($targ);
+    }
+    my $quote = 1;
+    my $pmflags = $op->pmflags;
+    my $rhs_bound_to_defsv;
+    my ($cv, $bregexp);
+    my $have_kid = !null $kid;
+    # Check for code blocks first
+    if (not null my $code_list = $op->code_list) {
+	$re = $self->code_list($code_list,
+			       $op->name eq 'qr'
+				   ? $self->padval(
+				         $kid->first   # ex-list
+					     ->first   #   pushmark
+					     ->sibling #   entersub
+					     ->first   #     ex-list
+					     ->first   #       pushmark
+					     ->sibling #       srefgen
+					     ->first   #         ex-list
+					     ->first   #           anoncode
+					     ->targ
+				     )
+				   : undef);
+    } elsif (${$bregexp = $op->pmregexp} && ${$cv = $bregexp->qr_anoncv}) {
+	my $patop = $cv->ROOT      # leavesub
+		       ->first     #   qr
+		       ->code_list;#     list
+	$re = $self->code_list($patop, $cv);
+    } elsif (!$have_kid) {
+	$re = re_uninterp(escape_re(re_unback($op->precomp)));
+    } elsif ($kid->name ne 'regcomp') {
+        if ($op->name eq 'split') {
+            # split has other kids, not just regcomp
+            $re = re_uninterp(escape_re(re_unback($op->precomp)));
+        }
+        else {
+            carp("found ".$kid->name." where regcomp expected");
+        }
+    } else {
+	($re, $quote) = $self->regcomp($kid, 21);
+    }
+    if ($have_kid and $kid->name eq 'regcomp') {
+	my $matchop = $kid->first;
+	if ($matchop->name eq 'regcreset') {
+	    $matchop = $matchop->first;
+	}
+	if ($matchop->name =~ /^(?:match|transr?|subst)\z/
+	   && $matchop->flags & OPf_SPECIAL) {
+	    $rhs_bound_to_defsv = 1;
+	}
+    }
+    my $flags = "";
+    $flags .= "c" if $pmflags & PMf_CONTINUE;
+    $flags .= $self->re_flags($op);
+    $flags = join '', sort split //, $flags;
+    $flags = $matchwords{$flags} if $matchwords{$flags};
+    if ($pmflags & PMf_ONCE) { # only one kind of delimiter works here
+	$re =~ s/\?/\\?/g;
+	$re = $self->keyword("m") . "?$re?";     # explicit 'm' is required
+    } elsif ($quote) {
+	$re = single_delim($name, $delim, $re, $self);
+    }
+    $re = $re . $flags if $quote;
+    if ($binop) {
+	return
+	 $self->maybe_parens(
+	  $rhs_bound_to_defsv
+	   ? "$var =~ (\$_ =~ $re)"
+	   : "$var =~ $re",
+	  $cx, 20
+	 );
+    } else {
+	return $re;
+    }
+}
+
+sub pp_match { matchop(@_, "m", "/") }
+sub pp_qr { matchop(@_, "qr", "") }
+
+sub pp_runcv { unop(@_, "__SUB__"); }
+
+sub pp_split {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my($kid, @exprs, $ary, $expr);
+    my $stacked = $op->flags & OPf_STACKED;
+
+    $kid = $op->first;
+    $kid = $kid->sibling if $kid->name eq 'regcomp';
+    for (; !null($kid); $kid = $kid->sibling) {
+	push @exprs, $self->deparse($kid, 6);
+    }
+
+    unshift @exprs, $self->matchop($op, $cx, "m", "/");
+
+    if ($op->private & OPpSPLIT_ASSIGN) {
+        # With C<@array = split(/pat/, str);>,
+        #  array is stored in split's pmreplroot; either
+        # as an integer index into the pad (for a lexical array)
+        # or as GV for a package array (which will be a pad index
+        # on threaded builds)
+        # With my/our @array = split(/pat/, str), the array is instead
+        # accessed via an extra padav/rv2av op at the end of the
+        # split's kid ops.
+
+        if ($stacked) {
+            $ary = pop @exprs;
+        }
+        else {
+            if ($op->private & OPpSPLIT_LEX) {
+                $ary = $self->padname($op->pmreplroot);
+            }
+            else {
+                # union with op_pmtargetoff, op_pmtargetgv
+                my $gv = $op->pmreplroot;
+                $gv = $self->padval($gv) if !ref($gv);
+                $ary = $self->maybe_local(@_,
+			      $self->stash_variable('@',
+						     $self->gv_name($gv),
+						     $cx))
+            }
+            if ($op->private & OPpLVAL_INTRO) {
+                $ary = $op->private & OPpSPLIT_LEX ? "my $ary" : "local $ary";
+            }
+        }
+    }
+
+    # handle special case of split(), and split(' ') that compiles to /\s+/
+    $exprs[0] = q{' '} if ($op->reflags // 0) & RXf_SKIPWHITE();
+
+    $expr = "split(" . join(", ", @exprs) . ")";
+    if ($ary) {
+	return $self->maybe_parens("$ary = $expr", $cx, 7);
+    } else {
+	return $expr;
+    }
+}
+
+# oxime -- any of various compounds obtained chiefly by the action of
+# hydroxylamine on aldehydes and ketones and characterized by the
+# bivalent grouping C=NOH [Webster's Tenth]
+
+my %substwords;
+map($substwords{join "", sort split //, $_} = $_, 'ego', 'egoism', 'em',
+    'es', 'ex', 'exes', 'gee', 'go', 'goes', 'ie', 'ism', 'iso', 'me',
+    'meese', 'meso', 'mig', 'mix', 'os', 'ox', 'oxime', 'see', 'seem',
+    'seg', 'sex', 'sig', 'six', 'smog', 'sog', 'some', 'xi', 'rogue',
+    'sir', 'rise', 'smore', 'more', 'seer', 'rome', 'gore', 'grim', 'grime',
+    'or', 'rose', 'rosie');
+
+sub pp_subst {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    my($binop, $var, $re, $repl) = ("", "", "", "");
+    if ($op->flags & OPf_STACKED) {
+	$binop = 1;
+	$var = $self->deparse($kid, 20);
+	$kid = $kid->sibling;
+    }
+    elsif (my $targ = $op->targ) {
+	$binop = 1;
+	$var = $self->padname($targ);
+    }
+    my $flags = "";
+    my $pmflags = $op->pmflags;
+    if (null($op->pmreplroot)) {
+	$repl = $kid;
+	$kid = $kid->sibling;
+    } else {
+	$repl = $op->pmreplroot->first; # skip substcont
+    }
+    while ($repl->name eq "entereval") {
+	    $repl = $repl->first;
+	    $flags .= "e";
+    }
+    {
+	local $self->{in_subst_repl} = 1;
+	if ($pmflags & PMf_EVAL) {
+	    $repl = $self->deparse($repl->first, 0);
+	} else {
+	    $repl = $self->dq($repl);	
+	}
+    }
+    if (not null my $code_list = $op->code_list) {
+	$re = $self->code_list($code_list);
+    } elsif (null $kid) {
+	$re = re_uninterp(escape_re(re_unback($op->precomp)));
+    } else {
+	($re) = $self->regcomp($kid, 1);
+    }
+    $flags .= "r" if $pmflags & PMf_NONDESTRUCT;
+    $flags .= "e" if $pmflags & PMf_EVAL;
+    $flags .= $self->re_flags($op);
+    $flags = join '', sort split //, $flags;
+    $flags = $substwords{$flags} if $substwords{$flags};
+    my $core_s = $self->keyword("s"); # maybe CORE::s
+    if ($binop) {
+	return $self->maybe_parens("$var =~ $core_s"
+				   . double_delim($re, $repl) . $flags,
+				   $cx, 20);
+    } else {
+	return "$core_s". double_delim($re, $repl) . $flags;	
+    }
+}
+
+sub is_lexical_subs {
+    my (@ops) = shift;
+    for my $op (@ops) {
+        return 0 if $op->name !~ /\A(?:introcv|clonecv)\z/;
+    }
+    return 1;
+}
+
+# Pretend these two ops do not exist.  The perl parser adds them to the
+# beginning of any block containing my-sub declarations, whereas we handle
+# the subs in pad_subs and next_todo.
+*pp_clonecv = *pp_introcv;
+sub pp_introcv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # For now, deparsing doesn't worry about the distinction between introcv
+    # and clonecv, so pretend this op doesn't exist:
+    return '';
+}
+
+sub pp_padcv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    return $self->padany($op);
+}
+
+my %lvref_funnies = (
+    OPpLVREF_SV, => '$',
+    OPpLVREF_AV, => '@',
+    OPpLVREF_HV, => '%',
+    OPpLVREF_CV, => '&',
+);
+
+sub pp_refassign {
+    my ($self, $op, $cx) = @_;
+    my $left;
+    if ($op->private & OPpLVREF_ELEM) {
+	$left = $op->first->sibling;
+	$left = maybe_local(@_, elem($self, $left, undef,
+				     $left->targ == OP_AELEM
+					? qw([ ] padav)
+					: qw({ } padhv)));
+    } elsif ($op->flags & OPf_STACKED) {
+	$left = maybe_local(@_,
+			    $lvref_funnies{$op->private & OPpLVREF_TYPE}
+			  . $self->deparse($op->first->sibling));
+    } else {
+	$left = &pp_padsv;
+    }
+    my $right = $self->deparse_binop_right($op, $op->first, 7);
+    return $self->maybe_parens("\\$left = $right", $cx, 7);
+}
+
+sub pp_lvref {
+    my ($self, $op, $cx) = @_;
+    my $code;
+    if ($op->private & OPpLVREF_ELEM) {
+	$code = $op->first->name =~ /av\z/ ? &pp_aelem : &pp_helem;
+    } elsif ($op->flags & OPf_STACKED) {
+	$code = maybe_local(@_,
+			    $lvref_funnies{$op->private & OPpLVREF_TYPE}
+			  . $self->deparse($op->first));
+    } else {
+	$code = &pp_padsv;
+    }
+    "\\$code";
+}
+
+sub pp_lvrefslice {
+    my ($self, $op, $cx) = @_;
+    '\\' . ($op->last->name =~ /av\z/ ? &pp_aslice : &pp_hslice);
+}
+
+sub pp_lvavref {
+    my ($self, $op, $cx) = @_;
+    '\\(' . ($op->flags & OPf_STACKED
+		? maybe_local(@_, rv2x(@_, "\@"))
+		: &pp_padsv)  . ')'
+}
+
+
+sub pp_argcheck {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my ($params, $opt_params, $slurpy) = $op->aux_list($self->{curcv});
+    my $mandatory = $params - $opt_params;
+    my $check = '';
+
+    $check .= <<EOF if !$slurpy;
+die sprintf("Too many arguments for subroutine at %s line %d.\\n", (caller)[1, 2]) unless \@_ <= $params;
+EOF
+
+    $check .= <<EOF if $mandatory > 0;
+die sprintf("Too few arguments for subroutine at %s line %d.\\n", (caller)[1, 2]) unless \@_ >= $mandatory;
+EOF
+
+    my $cond = ($params & 1) ? 'unless' : 'if';
+    $check .= <<EOF if $slurpy eq '%';
+die sprintf("Odd name/value argument for subroutine at %s line %d.\\n", (caller)[1, 2]) if \@_ > $params && ((\@_ - $params) & 1);
+EOF
+
+    $check =~ s/;\n\z//;
+    return $check;
+}
+
+
+sub pp_argelem {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $var = $self->padname($op->targ);
+    my $ix  = $op->string($self->{curcv});
+    my $expr;
+    if ($op->flags & OPf_KIDS) {
+        $expr = $self->deparse($op->first, 7);
+    }
+    elsif ($var =~ /^[@%]/) {
+        $expr = $ix ? "\@_[$ix .. \$#_]" : '@_';
+    }
+    else {
+        $expr = "\$_[$ix]";
+    }
+    return "my $var = $expr";
+}
+
+
+sub pp_argdefelem {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $ix  = $op->targ;
+    my $expr = "\@_ >= " . ($ix+1) . " ? \$_[$ix] : ";
+    my $def = $self->deparse($op->first, 7);
+    $def = "($def)" if $op->first->flags & OPf_PARENS;
+    $expr .= $self->deparse($op->first, $cx);
+    return $expr;
+}
+
+
+1;
+__END__
+
+# -*- buffer-read-only: t -*-
+#
+#    lib/B/Op_private.pm
+#
+#    Copyright (C) 2014 by Larry Wall and others
+#
+#    You may distribute under the terms of either the GNU General Public
+#    License or the Artistic License, as specified in the README file.
+#
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/opcode.pl from data in
+# regen/op_private and pod embedded in regen/opcode.pl.
+# Any changes made here will be lost!
+
+
+package B::Op_private;
+
+our %bits;
+
+
+our $VERSION = "5.028001";
+
+$bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv);
+$bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv);
+$bits{$_}{2} = 'OPpENTERSUB_HASTARG' for qw(entersub rv2cv);
+$bits{$_}{6} = 'OPpFLIP_LINENUM' for qw(flip flop);
+$bits{$_}{1} = 'OPpFT_ACCESS' for qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite);
+$bits{$_}{4} = 'OPpFT_AFTER_t' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{2} = 'OPpFT_STACKED' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{3} = 'OPpFT_STACKING' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{1} = 'OPpHINT_STRICT_REFS' for qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv);
+$bits{$_}{5} = 'OPpHUSH_VMSISH' for qw(dbstate nextstate);
+$bits{$_}{6} = 'OPpINDEX_BOOLNEG' for qw(index rindex);
+$bits{$_}{1} = 'OPpITER_REVERSED' for qw(enteriter iter);
+$bits{$_}{7} = 'OPpLVALUE' for qw(leave leaveloop);
+$bits{$_}{6} = 'OPpLVAL_DEFER' for qw(aelem helem multideref);
+$bits{$_}{7} = 'OPpLVAL_INTRO' for qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multiconcat multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv split);
+$bits{$_}{2} = 'OPpLVREF_ELEM' for qw(lvref refassign);
+$bits{$_}{3} = 'OPpLVREF_ITER' for qw(lvref refassign);
+$bits{$_}{3} = 'OPpMAYBE_LVSUB' for qw(aassign aelem akeys aslice av2arylen avhvswitch helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr values vec);
+$bits{$_}{4} = 'OPpMAYBE_TRUEBOOL' for qw(padhv ref rv2hv);
+$bits{$_}{7} = 'OPpOFFBYONE' for qw(caller runcv wantarray);
+$bits{$_}{5} = 'OPpOPEN_IN_CRLF' for qw(backtick open);
+$bits{$_}{4} = 'OPpOPEN_IN_RAW' for qw(backtick open);
+$bits{$_}{7} = 'OPpOPEN_OUT_CRLF' for qw(backtick open);
+$bits{$_}{6} = 'OPpOPEN_OUT_RAW' for qw(backtick open);
+$bits{$_}{6} = 'OPpOUR_INTRO' for qw(enteriter gvsv rv2av rv2hv rv2sv split);
+$bits{$_}{6} = 'OPpPAD_STATE' for qw(lvavref lvref padav padhv padsv pushmark refassign);
+$bits{$_}{7} = 'OPpPV_IS_UTF8' for qw(dump goto last next redo);
+$bits{$_}{6} = 'OPpREFCOUNTED' for qw(leave leaveeval leavesub leavesublv leavewrite);
+$bits{$_}{2} = 'OPpSLICEWARNING' for qw(aslice hslice padav padhv rv2av rv2hv);
+$bits{$_}{4} = 'OPpTARGET_MY' for qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid);
+$bits{$_}{5} = 'OPpTRANS_COMPLEMENT' for qw(trans transr);
+$bits{$_}{7} = 'OPpTRANS_DELETE' for qw(trans transr);
+$bits{$_}{0} = 'OPpTRANS_FROM_UTF' for qw(trans transr);
+$bits{$_}{6} = 'OPpTRANS_GROWS' for qw(trans transr);
+$bits{$_}{2} = 'OPpTRANS_IDENTICAL' for qw(trans transr);
+$bits{$_}{3} = 'OPpTRANS_SQUASH' for qw(trans transr);
+$bits{$_}{1} = 'OPpTRANS_TO_UTF' for qw(trans transr);
+$bits{$_}{5} = 'OPpTRUEBOOL' for qw(grepwhile index length padav padhv pos ref rindex rv2av rv2hv subst);
+
+my @bf = (
+    {
+        label     => '-',
+        mask_def  => 'OPpARG1_MASK',
+        bitmin    => 0,
+        bitmax    => 0,
+        bitmask   => 1,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG2_MASK',
+        bitmin    => 0,
+        bitmax    => 1,
+        bitmask   => 3,
+    },
+    {
+        label     => 'offset',
+        mask_def  => 'OPpAVHVSWITCH_MASK',
+        bitmin    => 0,
+        bitmax    => 1,
+        bitmask   => 3,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG3_MASK',
+        bitmin    => 0,
+        bitmax    => 2,
+        bitmask   => 7,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG4_MASK',
+        bitmin    => 0,
+        bitmax    => 3,
+        bitmask   => 15,
+    },
+    {
+        label     => 'range',
+        mask_def  => 'OPpPADRANGE_COUNTMASK',
+        bitcount_def => 'OPpPADRANGE_COUNTSHIFT',
+        bitmin    => 0,
+        bitmax    => 6,
+        bitmask   => 127,
+    },
+    {
+        label     => 'key',
+        bitmin    => 0,
+        bitmax    => 7,
+        bitmask   => 255,
+    },
+    {
+        mask_def  => 'OPpARGELEM_MASK',
+        bitmin    => 1,
+        bitmax    => 2,
+        bitmask   => 6,
+        enum      => [
+            0, 'OPpARGELEM_SV', 'SV',
+            1, 'OPpARGELEM_AV', 'AV',
+            2, 'OPpARGELEM_HV', 'HV',
+        ],
+    },
+    {
+        mask_def  => 'OPpDEREF',
+        bitmin    => 4,
+        bitmax    => 5,
+        bitmask   => 48,
+        enum      => [
+            1, 'OPpDEREF_AV', 'DREFAV',
+            2, 'OPpDEREF_HV', 'DREFHV',
+            3, 'OPpDEREF_SV', 'DREFSV',
+        ],
+    },
+    {
+        mask_def  => 'OPpLVREF_TYPE',
+        bitmin    => 4,
+        bitmax    => 5,
+        bitmask   => 48,
+        enum      => [
+            0, 'OPpLVREF_SV', 'SV',
+            1, 'OPpLVREF_AV', 'AV',
+            2, 'OPpLVREF_HV', 'HV',
+            3, 'OPpLVREF_CV', 'CV',
+        ],
+    },
+);
+
+@{$bits{aassign}}{6,5,4,2,1,0} = ('OPpASSIGN_COMMON_SCALAR', 'OPpASSIGN_COMMON_RC1', 'OPpASSIGN_COMMON_AGG', 'OPpASSIGN_TRUEBOOL', $bf[1], $bf[1]);
+$bits{abs}{0} = $bf[0];
+@{$bits{accept}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{add}}{1,0} = ($bf[1], $bf[1]);
+$bits{aeach}{0} = $bf[0];
+@{$bits{aelem}}{5,4,1,0} = ($bf[8], $bf[8], $bf[1], $bf[1]);
+@{$bits{aelemfast}}{7,6,5,4,3,2,1,0} = ($bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6]);
+@{$bits{aelemfast_lex}}{7,6,5,4,3,2,1,0} = ($bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6], $bf[6]);
+$bits{akeys}{0} = $bf[0];
+$bits{alarm}{0} = $bf[0];
+$bits{and}{0} = $bf[0];
+$bits{andassign}{0} = $bf[0];
+$bits{anonconst}{0} = $bf[0];
+@{$bits{anonhash}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{anonlist}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{argcheck}{0} = $bf[0];
+$bits{argdefelem}{0} = $bf[0];
+@{$bits{argelem}}{2,1,0} = ($bf[7], $bf[7], $bf[0]);
+@{$bits{atan2}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{av2arylen}{0} = $bf[0];
+$bits{avalues}{0} = $bf[0];
+@{$bits{avhvswitch}}{1,0} = ($bf[2], $bf[2]);
+$bits{backtick}{0} = $bf[0];
+@{$bits{bind}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{binmode}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{bit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bit_xor}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bless}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{caller}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{chdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{chmod}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{chomp}{0} = $bf[0];
+$bits{chop}{0} = $bf[0];
+@{$bits{chown}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{chr}{0} = $bf[0];
+$bits{chroot}{0} = $bf[0];
+@{$bits{close}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{closedir}{0} = $bf[0];
+$bits{complement}{0} = $bf[0];
+@{$bits{concat}}{6,1,0} = ('OPpCONCAT_NESTED', $bf[1], $bf[1]);
+$bits{cond_expr}{0} = $bf[0];
+@{$bits{connect}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{const}}{6,4,3,2,1} = ('OPpCONST_BARE', 'OPpCONST_ENTERED', 'OPpCONST_STRICT', 'OPpCONST_SHORTCIRCUIT', 'OPpCONST_NOVER');
+@{$bits{coreargs}}{7,6,1,0} = ('OPpCOREARGS_PUSHMARK', 'OPpCOREARGS_SCALARMOD', 'OPpCOREARGS_DEREF2', 'OPpCOREARGS_DEREF1');
+$bits{cos}{0} = $bf[0];
+@{$bits{crypt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{dbmclose}{0} = $bf[0];
+@{$bits{dbmopen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{defined}{0} = $bf[0];
+@{$bits{delete}}{6,5,0} = ('OPpSLICE', 'OPpKVSLICE', $bf[0]);
+@{$bits{die}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{divide}}{1,0} = ($bf[1], $bf[1]);
+$bits{dofile}{0} = $bf[0];
+$bits{dor}{0} = $bf[0];
+$bits{dorassign}{0} = $bf[0];
+$bits{dump}{0} = $bf[0];
+$bits{each}{0} = $bf[0];
+@{$bits{entereval}}{5,4,3,2,1,0} = ('OPpEVAL_RE_REPARSING', 'OPpEVAL_COPHH', 'OPpEVAL_BYTES', 'OPpEVAL_UNICODE', 'OPpEVAL_HAS_HH', $bf[0]);
+$bits{entergiven}{0} = $bf[0];
+$bits{enteriter}{3} = 'OPpITER_DEF';
+@{$bits{entersub}}{5,4,0} = ($bf[8], $bf[8], 'OPpENTERSUB_INARGS');
+$bits{entertry}{0} = $bf[0];
+$bits{enterwhen}{0} = $bf[0];
+@{$bits{enterwrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{eof}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{eq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{exec}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{exists}}{6,0} = ('OPpEXISTS_SUB', $bf[0]);
+@{$bits{exit}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{exp}{0} = $bf[0];
+$bits{fc}{0} = $bf[0];
+@{$bits{fcntl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{fileno}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{flip}{0} = $bf[0];
+@{$bits{flock}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{flop}{0} = $bf[0];
+@{$bits{formline}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{ftatime}{0} = $bf[0];
+$bits{ftbinary}{0} = $bf[0];
+$bits{ftblk}{0} = $bf[0];
+$bits{ftchr}{0} = $bf[0];
+$bits{ftctime}{0} = $bf[0];
+$bits{ftdir}{0} = $bf[0];
+$bits{fteexec}{0} = $bf[0];
+$bits{fteowned}{0} = $bf[0];
+$bits{fteread}{0} = $bf[0];
+$bits{ftewrite}{0} = $bf[0];
+$bits{ftfile}{0} = $bf[0];
+$bits{ftis}{0} = $bf[0];
+$bits{ftlink}{0} = $bf[0];
+$bits{ftmtime}{0} = $bf[0];
+$bits{ftpipe}{0} = $bf[0];
+$bits{ftrexec}{0} = $bf[0];
+$bits{ftrowned}{0} = $bf[0];
+$bits{ftrread}{0} = $bf[0];
+$bits{ftrwrite}{0} = $bf[0];
+$bits{ftsgid}{0} = $bf[0];
+$bits{ftsize}{0} = $bf[0];
+$bits{ftsock}{0} = $bf[0];
+$bits{ftsuid}{0} = $bf[0];
+$bits{ftsvtx}{0} = $bf[0];
+$bits{fttext}{0} = $bf[0];
+$bits{fttty}{0} = $bf[0];
+$bits{ftzero}{0} = $bf[0];
+@{$bits{ge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{gelem}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{getc}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{getpeername}{0} = $bf[0];
+@{$bits{getpgrp}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{getpriority}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{getsockname}{0} = $bf[0];
+$bits{ggrgid}{0} = $bf[0];
+$bits{ggrnam}{0} = $bf[0];
+@{$bits{ghbyaddr}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{ghbyname}{0} = $bf[0];
+@{$bits{glob}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{gmtime}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{gnbyaddr}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{gnbyname}{0} = $bf[0];
+$bits{goto}{0} = $bf[0];
+$bits{gpbyname}{0} = $bf[0];
+@{$bits{gpbynumber}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{gpwnam}{0} = $bf[0];
+$bits{gpwuid}{0} = $bf[0];
+$bits{grepstart}{0} = $bf[0];
+$bits{grepwhile}{0} = $bf[0];
+@{$bits{gsbyname}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{gsbyport}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{gsockopt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{gt}}{1,0} = ($bf[1], $bf[1]);
+$bits{gv}{5} = 'OPpEARLY_CV';
+@{$bits{helem}}{5,4,1,0} = ($bf[8], $bf[8], $bf[1], $bf[1]);
+$bits{hex}{0} = $bf[0];
+@{$bits{i_add}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_divide}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_eq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_gt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_le}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_lt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_modulo}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_multiply}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ncmp}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ne}}{1,0} = ($bf[1], $bf[1]);
+$bits{i_negate}{0} = $bf[0];
+$bits{i_postdec}{0} = $bf[0];
+$bits{i_postinc}{0} = $bf[0];
+$bits{i_predec}{0} = $bf[0];
+$bits{i_preinc}{0} = $bf[0];
+@{$bits{i_subtract}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{index}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{int}{0} = $bf[0];
+@{$bits{ioctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{join}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{keys}{0} = $bf[0];
+@{$bits{kill}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{last}{0} = $bf[0];
+$bits{lc}{0} = $bf[0];
+$bits{lcfirst}{0} = $bf[0];
+@{$bits{le}}{1,0} = ($bf[1], $bf[1]);
+$bits{leaveeval}{0} = $bf[0];
+$bits{leavegiven}{0} = $bf[0];
+@{$bits{leaveloop}}{1,0} = ($bf[1], $bf[1]);
+$bits{leavesub}{0} = $bf[0];
+$bits{leavesublv}{0} = $bf[0];
+$bits{leavewhen}{0} = $bf[0];
+$bits{leavewrite}{0} = $bf[0];
+@{$bits{left_shift}}{1,0} = ($bf[1], $bf[1]);
+$bits{length}{0} = $bf[0];
+@{$bits{link}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{list}{6} = 'OPpLIST_GUESSED';
+@{$bits{listen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{localtime}{0} = $bf[0];
+$bits{lock}{0} = $bf[0];
+$bits{log}{0} = $bf[0];
+@{$bits{lslice}}{1,0} = ($bf[1], $bf[1]);
+$bits{lstat}{0} = $bf[0];
+@{$bits{lt}}{1,0} = ($bf[1], $bf[1]);
+$bits{lvavref}{0} = $bf[0];
+@{$bits{lvref}}{5,4,0} = ($bf[9], $bf[9], $bf[0]);
+$bits{mapstart}{0} = $bf[0];
+$bits{mapwhile}{0} = $bf[0];
+$bits{method}{0} = $bf[0];
+$bits{method_named}{0} = $bf[0];
+$bits{method_redir}{0} = $bf[0];
+$bits{method_redir_super}{0} = $bf[0];
+$bits{method_super}{0} = $bf[0];
+@{$bits{mkdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{modulo}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{msgctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{msgget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{msgrcv}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{msgsnd}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{multiconcat}}{6,5,3,0} = ('OPpMULTICONCAT_APPEND', 'OPpMULTICONCAT_FAKE', 'OPpMULTICONCAT_STRINGIFY', $bf[0]);
+@{$bits{multideref}}{5,4,0} = ('OPpMULTIDEREF_DELETE', 'OPpMULTIDEREF_EXISTS', $bf[0]);
+@{$bits{multiply}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_xor}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{ncmp}}{1,0} = ($bf[1], $bf[1]);
+$bits{ncomplement}{0} = $bf[0];
+@{$bits{ne}}{1,0} = ($bf[1], $bf[1]);
+$bits{negate}{0} = $bf[0];
+$bits{next}{0} = $bf[0];
+$bits{not}{0} = $bf[0];
+$bits{oct}{0} = $bf[0];
+$bits{once}{0} = $bf[0];
+@{$bits{open}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{open_dir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{or}{0} = $bf[0];
+$bits{orassign}{0} = $bf[0];
+$bits{ord}{0} = $bf[0];
+@{$bits{pack}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{padhv}{0} = 'OPpPADHV_ISKEYS';
+@{$bits{padrange}}{6,5,4,3,2,1,0} = ($bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5]);
+@{$bits{padsv}}{5,4} = ($bf[8], $bf[8]);
+@{$bits{pipe_op}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{pop}{0} = $bf[0];
+$bits{pos}{0} = $bf[0];
+$bits{postdec}{0} = $bf[0];
+$bits{postinc}{0} = $bf[0];
+@{$bits{pow}}{1,0} = ($bf[1], $bf[1]);
+$bits{predec}{0} = $bf[0];
+$bits{preinc}{0} = $bf[0];
+$bits{prototype}{0} = $bf[0];
+@{$bits{push}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{quotemeta}{0} = $bf[0];
+@{$bits{rand}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{range}{0} = $bf[0];
+@{$bits{read}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{readdir}{0} = $bf[0];
+$bits{readline}{0} = $bf[0];
+$bits{readlink}{0} = $bf[0];
+@{$bits{recv}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{redo}{0} = $bf[0];
+$bits{ref}{0} = $bf[0];
+@{$bits{refassign}}{5,4,1,0} = ($bf[9], $bf[9], $bf[1], $bf[1]);
+$bits{refgen}{0} = $bf[0];
+$bits{regcmaybe}{0} = $bf[0];
+$bits{regcomp}{0} = $bf[0];
+$bits{regcreset}{0} = $bf[0];
+@{$bits{rename}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{repeat}}{6,1,0} = ('OPpREPEAT_DOLIST', $bf[1], $bf[1]);
+$bits{require}{0} = $bf[0];
+@{$bits{reset}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{reverse}}{3,0} = ('OPpREVERSE_INPLACE', $bf[0]);
+$bits{rewinddir}{0} = $bf[0];
+@{$bits{right_shift}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{rindex}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{rmdir}{0} = $bf[0];
+$bits{rv2av}{0} = $bf[0];
+@{$bits{rv2cv}}{7,5,0} = ('OPpENTERSUB_NOPAREN', 'OPpMAY_RETURN_CONSTANT', $bf[0]);
+@{$bits{rv2gv}}{6,5,4,2,0} = ('OPpALLOW_FAKE', $bf[8], $bf[8], 'OPpDONT_INIT_GV', $bf[0]);
+$bits{rv2hv}{0} = 'OPpRV2HV_ISKEYS';
+@{$bits{rv2sv}}{5,4,0} = ($bf[8], $bf[8], $bf[0]);
+@{$bits{sassign}}{7,6,1,0} = ('OPpASSIGN_CV_TO_GV', 'OPpASSIGN_BACKWARDS', $bf[1], $bf[1]);
+@{$bits{sbit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sbit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sbit_xor}}{1,0} = ($bf[1], $bf[1]);
+$bits{scalar}{0} = $bf[0];
+$bits{schomp}{0} = $bf[0];
+$bits{schop}{0} = $bf[0];
+@{$bits{scmp}}{1,0} = ($bf[1], $bf[1]);
+$bits{scomplement}{0} = $bf[0];
+@{$bits{seek}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{seekdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{select}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{semctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{semget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{semop}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{send}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{seq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{setpgrp}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{setpriority}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sgt}}{1,0} = ($bf[1], $bf[1]);
+$bits{shift}{0} = $bf[0];
+@{$bits{shmctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{shmget}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{shmread}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{shmwrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{shostent}{0} = $bf[0];
+@{$bits{shutdown}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{sin}{0} = $bf[0];
+@{$bits{sle}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sleep}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{slt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{smartmatch}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sne}}{1,0} = ($bf[1], $bf[1]);
+$bits{snetent}{0} = $bf[0];
+@{$bits{socket}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sockpair}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sort}}{7,6,4,3,2,1,0} = ('OPpSORT_UNSTABLE', 'OPpSORT_STABLE', 'OPpSORT_DESCEND', 'OPpSORT_INPLACE', 'OPpSORT_REVERSE', 'OPpSORT_INTEGER', 'OPpSORT_NUMERIC');
+@{$bits{splice}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{split}}{4,3,2} = ('OPpSPLIT_ASSIGN', 'OPpSPLIT_LEX', 'OPpSPLIT_IMPLIM');
+@{$bits{sprintf}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{sprotoent}{0} = $bf[0];
+$bits{sqrt}{0} = $bf[0];
+@{$bits{srand}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{srefgen}{0} = $bf[0];
+@{$bits{sselect}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{sservent}{0} = $bf[0];
+@{$bits{ssockopt}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{stat}{0} = $bf[0];
+@{$bits{stringify}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{study}{0} = $bf[0];
+$bits{substcont}{0} = $bf[0];
+@{$bits{substr}}{4,2,1,0} = ('OPpSUBSTR_REPL_FIRST', $bf[3], $bf[3], $bf[3]);
+@{$bits{subtract}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{symlink}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{syscall}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sysopen}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sysread}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{sysseek}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{system}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{syswrite}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{tell}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{telldir}{0} = $bf[0];
+@{$bits{tie}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{tied}{0} = $bf[0];
+@{$bits{truncate}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{uc}{0} = $bf[0];
+$bits{ucfirst}{0} = $bf[0];
+@{$bits{umask}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{undef}{0} = $bf[0];
+@{$bits{unlink}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{unpack}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{unshift}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{untie}{0} = $bf[0];
+@{$bits{utime}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+$bits{values}{0} = $bf[0];
+@{$bits{vec}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{waitpid}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{warn}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{xor}}{1,0} = ($bf[1], $bf[1]);
+
+
+our %defines = (
+    OPpALLOW_FAKE            =>  64,
+    OPpARG1_MASK             =>   1,
+    OPpARG2_MASK             =>   3,
+    OPpARG3_MASK             =>   7,
+    OPpARG4_MASK             =>  15,
+    OPpARGELEM_AV            =>   2,
+    OPpARGELEM_HV            =>   4,
+    OPpARGELEM_MASK          =>   6,
+    OPpARGELEM_SV            =>   0,
+    OPpASSIGN_BACKWARDS      =>  64,
+    OPpASSIGN_COMMON_AGG     =>  16,
+    OPpASSIGN_COMMON_RC1     =>  32,
+    OPpASSIGN_COMMON_SCALAR  =>  64,
+    OPpASSIGN_CV_TO_GV       => 128,
+    OPpASSIGN_TRUEBOOL       =>   4,
+    OPpAVHVSWITCH_MASK       =>   3,
+    OPpCONCAT_NESTED         =>  64,
+    OPpCONST_BARE            =>  64,
+    OPpCONST_ENTERED         =>  16,
+    OPpCONST_NOVER           =>   2,
+    OPpCONST_SHORTCIRCUIT    =>   4,
+    OPpCONST_STRICT          =>   8,
+    OPpCOREARGS_DEREF1       =>   1,
+    OPpCOREARGS_DEREF2       =>   2,
+    OPpCOREARGS_PUSHMARK     => 128,
+    OPpCOREARGS_SCALARMOD    =>  64,
+    OPpDEREF                 =>  48,
+    OPpDEREF_AV              =>  16,
+    OPpDEREF_HV              =>  32,
+    OPpDEREF_SV              =>  48,
+    OPpDONT_INIT_GV          =>   4,
+    OPpEARLY_CV              =>  32,
+    OPpENTERSUB_AMPER        =>   8,
+    OPpENTERSUB_DB           =>  64,
+    OPpENTERSUB_HASTARG      =>   4,
+    OPpENTERSUB_INARGS       =>   1,
+    OPpENTERSUB_NOPAREN      => 128,
+    OPpEVAL_BYTES            =>   8,
+    OPpEVAL_COPHH            =>  16,
+    OPpEVAL_HAS_HH           =>   2,
+    OPpEVAL_RE_REPARSING     =>  32,
+    OPpEVAL_UNICODE          =>   4,
+    OPpEXISTS_SUB            =>  64,
+    OPpFLIP_LINENUM          =>  64,
+    OPpFT_ACCESS             =>   2,
+    OPpFT_AFTER_t            =>  16,
+    OPpFT_STACKED            =>   4,
+    OPpFT_STACKING           =>   8,
+    OPpHINT_STRICT_REFS      =>   2,
+    OPpHUSH_VMSISH           =>  32,
+    OPpINDEX_BOOLNEG         =>  64,
+    OPpITER_DEF              =>   8,
+    OPpITER_REVERSED         =>   2,
+    OPpKVSLICE               =>  32,
+    OPpLIST_GUESSED          =>  64,
+    OPpLVALUE                => 128,
+    OPpLVAL_DEFER            =>  64,
+    OPpLVAL_INTRO            => 128,
+    OPpLVREF_AV              =>  16,
+    OPpLVREF_CV              =>  48,
+    OPpLVREF_ELEM            =>   4,
+    OPpLVREF_HV              =>  32,
+    OPpLVREF_ITER            =>   8,
+    OPpLVREF_SV              =>   0,
+    OPpLVREF_TYPE            =>  48,
+    OPpMAYBE_LVSUB           =>   8,
+    OPpMAYBE_TRUEBOOL        =>  16,
+    OPpMAY_RETURN_CONSTANT   =>  32,
+    OPpMULTICONCAT_APPEND    =>  64,
+    OPpMULTICONCAT_FAKE      =>  32,
+    OPpMULTICONCAT_STRINGIFY  =>   8,
+    OPpMULTIDEREF_DELETE     =>  32,
+    OPpMULTIDEREF_EXISTS     =>  16,
+    OPpOFFBYONE              => 128,
+    OPpOPEN_IN_CRLF          =>  32,
+    OPpOPEN_IN_RAW           =>  16,
+    OPpOPEN_OUT_CRLF         => 128,
+    OPpOPEN_OUT_RAW          =>  64,
+    OPpOUR_INTRO             =>  64,
+    OPpPADHV_ISKEYS          =>   1,
+    OPpPADRANGE_COUNTMASK    => 127,
+    OPpPADRANGE_COUNTSHIFT   =>   7,
+    OPpPAD_STATE             =>  64,
+    OPpPV_IS_UTF8            => 128,
+    OPpREFCOUNTED            =>  64,
+    OPpREPEAT_DOLIST         =>  64,
+    OPpREVERSE_INPLACE       =>   8,
+    OPpRV2HV_ISKEYS          =>   1,
+    OPpSLICE                 =>  64,
+    OPpSLICEWARNING          =>   4,
+    OPpSORT_DESCEND          =>  16,
+    OPpSORT_INPLACE          =>   8,
+    OPpSORT_INTEGER          =>   2,
+    OPpSORT_NUMERIC          =>   1,
+    OPpSORT_REVERSE          =>   4,
+    OPpSORT_STABLE           =>  64,
+    OPpSORT_UNSTABLE         => 128,
+    OPpSPLIT_ASSIGN          =>  16,
+    OPpSPLIT_IMPLIM          =>   4,
+    OPpSPLIT_LEX             =>   8,
+    OPpSUBSTR_REPL_FIRST     =>  16,
+    OPpTARGET_MY             =>  16,
+    OPpTRANS_COMPLEMENT      =>  32,
+    OPpTRANS_DELETE          => 128,
+    OPpTRANS_FROM_UTF        =>   1,
+    OPpTRANS_GROWS           =>  64,
+    OPpTRANS_IDENTICAL       =>   4,
+    OPpTRANS_SQUASH          =>   8,
+    OPpTRANS_TO_UTF          =>   2,
+    OPpTRUEBOOL              =>  32,
+);
+
+our %labels = (
+    OPpALLOW_FAKE            => 'FAKE',
+    OPpARGELEM_AV            => 'AV',
+    OPpARGELEM_HV            => 'HV',
+    OPpARGELEM_SV            => 'SV',
+    OPpASSIGN_BACKWARDS      => 'BKWARD',
+    OPpASSIGN_COMMON_AGG     => 'COM_AGG',
+    OPpASSIGN_COMMON_RC1     => 'COM_RC1',
+    OPpASSIGN_COMMON_SCALAR  => 'COM_SCALAR',
+    OPpASSIGN_CV_TO_GV       => 'CV2GV',
+    OPpASSIGN_TRUEBOOL       => 'BOOL',
+    OPpCONCAT_NESTED         => 'NESTED',
+    OPpCONST_BARE            => 'BARE',
+    OPpCONST_ENTERED         => 'ENTERED',
+    OPpCONST_NOVER           => 'NOVER',
+    OPpCONST_SHORTCIRCUIT    => 'SHORT',
+    OPpCONST_STRICT          => 'STRICT',
+    OPpCOREARGS_DEREF1       => 'DEREF1',
+    OPpCOREARGS_DEREF2       => 'DEREF2',
+    OPpCOREARGS_PUSHMARK     => 'MARK',
+    OPpCOREARGS_SCALARMOD    => '$MOD',
+    OPpDEREF_AV              => 'DREFAV',
+    OPpDEREF_HV              => 'DREFHV',
+    OPpDEREF_SV              => 'DREFSV',
+    OPpDONT_INIT_GV          => 'NOINIT',
+    OPpEARLY_CV              => 'EARLYCV',
+    OPpENTERSUB_AMPER        => 'AMPER',
+    OPpENTERSUB_DB           => 'DBG',
+    OPpENTERSUB_HASTARG      => 'TARG',
+    OPpENTERSUB_INARGS       => 'INARGS',
+    OPpENTERSUB_NOPAREN      => 'NO()',
+    OPpEVAL_BYTES            => 'BYTES',
+    OPpEVAL_COPHH            => 'COPHH',
+    OPpEVAL_HAS_HH           => 'HAS_HH',
+    OPpEVAL_RE_REPARSING     => 'REPARSE',
+    OPpEVAL_UNICODE          => 'UNI',
+    OPpEXISTS_SUB            => 'SUB',
+    OPpFLIP_LINENUM          => 'LINENUM',
+    OPpFT_ACCESS             => 'FTACCESS',
+    OPpFT_AFTER_t            => 'FTAFTERt',
+    OPpFT_STACKED            => 'FTSTACKED',
+    OPpFT_STACKING           => 'FTSTACKING',
+    OPpHINT_STRICT_REFS      => 'STRICT',
+    OPpHUSH_VMSISH           => 'HUSH',
+    OPpINDEX_BOOLNEG         => 'NEG',
+    OPpITER_DEF              => 'DEF',
+    OPpITER_REVERSED         => 'REVERSED',
+    OPpKVSLICE               => 'KVSLICE',
+    OPpLIST_GUESSED          => 'GUESSED',
+    OPpLVALUE                => 'LV',
+    OPpLVAL_DEFER            => 'LVDEFER',
+    OPpLVAL_INTRO            => 'LVINTRO',
+    OPpLVREF_AV              => 'AV',
+    OPpLVREF_CV              => 'CV',
+    OPpLVREF_ELEM            => 'ELEM',
+    OPpLVREF_HV              => 'HV',
+    OPpLVREF_ITER            => 'ITER',
+    OPpLVREF_SV              => 'SV',
+    OPpMAYBE_LVSUB           => 'LVSUB',
+    OPpMAYBE_TRUEBOOL        => 'BOOL?',
+    OPpMAY_RETURN_CONSTANT   => 'CONST',
+    OPpMULTICONCAT_APPEND    => 'APPEND',
+    OPpMULTICONCAT_FAKE      => 'FAKE',
+    OPpMULTICONCAT_STRINGIFY  => 'STRINGIFY',
+    OPpMULTIDEREF_DELETE     => 'DELETE',
+    OPpMULTIDEREF_EXISTS     => 'EXISTS',
+    OPpOFFBYONE              => '+1',
+    OPpOPEN_IN_CRLF          => 'INCR',
+    OPpOPEN_IN_RAW           => 'INBIN',
+    OPpOPEN_OUT_CRLF         => 'OUTCR',
+    OPpOPEN_OUT_RAW          => 'OUTBIN',
+    OPpOUR_INTRO             => 'OURINTR',
+    OPpPADHV_ISKEYS          => 'KEYS',
+    OPpPAD_STATE             => 'STATE',
+    OPpPV_IS_UTF8            => 'UTF',
+    OPpREFCOUNTED            => 'REFC',
+    OPpREPEAT_DOLIST         => 'DOLIST',
+    OPpREVERSE_INPLACE       => 'INPLACE',
+    OPpRV2HV_ISKEYS          => 'KEYS',
+    OPpSLICE                 => 'SLICE',
+    OPpSLICEWARNING          => 'SLICEWARN',
+    OPpSORT_DESCEND          => 'DESC',
+    OPpSORT_INPLACE          => 'INPLACE',
+    OPpSORT_INTEGER          => 'INT',
+    OPpSORT_NUMERIC          => 'NUM',
+    OPpSORT_REVERSE          => 'REV',
+    OPpSORT_STABLE           => 'STABLE',
+    OPpSORT_UNSTABLE         => 'UNSTABLE',
+    OPpSPLIT_ASSIGN          => 'ASSIGN',
+    OPpSPLIT_IMPLIM          => 'IMPLIM',
+    OPpSPLIT_LEX             => 'LEX',
+    OPpSUBSTR_REPL_FIRST     => 'REPL1ST',
+    OPpTARGET_MY             => 'TARGMY',
+    OPpTRANS_COMPLEMENT      => 'COMPL',
+    OPpTRANS_DELETE          => 'DEL',
+    OPpTRANS_FROM_UTF        => '<UTF',
+    OPpTRANS_GROWS           => 'GROWS',
+    OPpTRANS_IDENTICAL       => 'IDENT',
+    OPpTRANS_SQUASH          => 'SQUASH',
+    OPpTRANS_TO_UTF          => '>UTF',
+    OPpTRUEBOOL              => 'BOOL',
+);
+
+
+our %ops_using = (
+    OPpALLOW_FAKE            => [qw(rv2gv)],
+    OPpASSIGN_BACKWARDS      => [qw(sassign)],
+    OPpASSIGN_COMMON_AGG     => [qw(aassign)],
+    OPpCONCAT_NESTED         => [qw(concat)],
+    OPpCONST_BARE            => [qw(const)],
+    OPpCOREARGS_DEREF1       => [qw(coreargs)],
+    OPpEARLY_CV              => [qw(gv)],
+    OPpENTERSUB_AMPER        => [qw(entersub rv2cv)],
+    OPpENTERSUB_INARGS       => [qw(entersub)],
+    OPpENTERSUB_NOPAREN      => [qw(rv2cv)],
+    OPpEVAL_BYTES            => [qw(entereval)],
+    OPpEXISTS_SUB            => [qw(exists)],
+    OPpFLIP_LINENUM          => [qw(flip flop)],
+    OPpFT_ACCESS             => [qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite)],
+    OPpFT_AFTER_t            => [qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero)],
+    OPpHINT_STRICT_REFS      => [qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv)],
+    OPpHUSH_VMSISH           => [qw(dbstate nextstate)],
+    OPpINDEX_BOOLNEG         => [qw(index rindex)],
+    OPpITER_DEF              => [qw(enteriter)],
+    OPpITER_REVERSED         => [qw(enteriter iter)],
+    OPpKVSLICE               => [qw(delete)],
+    OPpLIST_GUESSED          => [qw(list)],
+    OPpLVALUE                => [qw(leave leaveloop)],
+    OPpLVAL_DEFER            => [qw(aelem helem multideref)],
+    OPpLVAL_INTRO            => [qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multiconcat multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv split)],
+    OPpLVREF_ELEM            => [qw(lvref refassign)],
+    OPpMAYBE_LVSUB           => [qw(aassign aelem akeys aslice av2arylen avhvswitch helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr values vec)],
+    OPpMAYBE_TRUEBOOL        => [qw(padhv ref rv2hv)],
+    OPpMULTICONCAT_APPEND    => [qw(multiconcat)],
+    OPpMULTIDEREF_DELETE     => [qw(multideref)],
+    OPpOFFBYONE              => [qw(caller runcv wantarray)],
+    OPpOPEN_IN_CRLF          => [qw(backtick open)],
+    OPpOUR_INTRO             => [qw(enteriter gvsv rv2av rv2hv rv2sv split)],
+    OPpPADHV_ISKEYS          => [qw(padhv)],
+    OPpPAD_STATE             => [qw(lvavref lvref padav padhv padsv pushmark refassign)],
+    OPpPV_IS_UTF8            => [qw(dump goto last next redo)],
+    OPpREFCOUNTED            => [qw(leave leaveeval leavesub leavesublv leavewrite)],
+    OPpREPEAT_DOLIST         => [qw(repeat)],
+    OPpREVERSE_INPLACE       => [qw(reverse)],
+    OPpRV2HV_ISKEYS          => [qw(rv2hv)],
+    OPpSLICEWARNING          => [qw(aslice hslice padav padhv rv2av rv2hv)],
+    OPpSORT_DESCEND          => [qw(sort)],
+    OPpSPLIT_ASSIGN          => [qw(split)],
+    OPpSUBSTR_REPL_FIRST     => [qw(substr)],
+    OPpTARGET_MY             => [qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiconcat multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid)],
+    OPpTRANS_COMPLEMENT      => [qw(trans transr)],
+    OPpTRUEBOOL              => [qw(grepwhile index length padav padhv pos ref rindex rv2av rv2hv subst)],
+);
+
+$ops_using{OPpASSIGN_COMMON_RC1} = $ops_using{OPpASSIGN_COMMON_AGG};
+$ops_using{OPpASSIGN_COMMON_SCALAR} = $ops_using{OPpASSIGN_COMMON_AGG};
+$ops_using{OPpASSIGN_CV_TO_GV} = $ops_using{OPpASSIGN_BACKWARDS};
+$ops_using{OPpASSIGN_TRUEBOOL} = $ops_using{OPpASSIGN_COMMON_AGG};
+$ops_using{OPpCONST_ENTERED} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_NOVER} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_SHORTCIRCUIT} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_STRICT} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCOREARGS_DEREF2} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpCOREARGS_PUSHMARK} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpCOREARGS_SCALARMOD} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpDONT_INIT_GV} = $ops_using{OPpALLOW_FAKE};
+$ops_using{OPpENTERSUB_DB} = $ops_using{OPpENTERSUB_AMPER};
+$ops_using{OPpENTERSUB_HASTARG} = $ops_using{OPpENTERSUB_AMPER};
+$ops_using{OPpEVAL_COPHH} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_HAS_HH} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_RE_REPARSING} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_UNICODE} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpFT_STACKED} = $ops_using{OPpFT_AFTER_t};
+$ops_using{OPpFT_STACKING} = $ops_using{OPpFT_AFTER_t};
+$ops_using{OPpLVREF_ITER} = $ops_using{OPpLVREF_ELEM};
+$ops_using{OPpMAY_RETURN_CONSTANT} = $ops_using{OPpENTERSUB_NOPAREN};
+$ops_using{OPpMULTICONCAT_FAKE} = $ops_using{OPpMULTICONCAT_APPEND};
+$ops_using{OPpMULTICONCAT_STRINGIFY} = $ops_using{OPpMULTICONCAT_APPEND};
+$ops_using{OPpMULTIDEREF_EXISTS} = $ops_using{OPpMULTIDEREF_DELETE};
+$ops_using{OPpOPEN_IN_RAW} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpOPEN_OUT_CRLF} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpOPEN_OUT_RAW} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpSLICE} = $ops_using{OPpKVSLICE};
+$ops_using{OPpSORT_INPLACE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_INTEGER} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_NUMERIC} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_REVERSE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_STABLE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_UNSTABLE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSPLIT_IMPLIM} = $ops_using{OPpSPLIT_ASSIGN};
+$ops_using{OPpSPLIT_LEX} = $ops_using{OPpSPLIT_ASSIGN};
+$ops_using{OPpTRANS_DELETE} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_FROM_UTF} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_GROWS} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_IDENTICAL} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_SQUASH} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_TO_UTF} = $ops_using{OPpTRANS_COMPLEMENT};
+
+# ex: set ro:
+package B::Debug;
+
+our $VERSION = '1.26';
+BEGIN { if ($] >= 5.027001) { require deprecate; import deprecate; } }
+
+use strict;
+require 5.006;
+use B qw(peekop walkoptree walkoptree_exec
+         main_start main_root cstring sv_undef SVf_NOK SVf_IOK);
+use Config;
+my (@optype, @specialsv_name);
+require B;
+if ($] < 5.009) {
+  require B::Asmdata;
+  B::Asmdata->import (qw(@optype @specialsv_name));
+} else {
+  B->import (qw(@optype @specialsv_name));
+}
+
+if ($] < 5.006002) {
+  eval q|sub B::GV::SAFENAME {
+    my $name = (shift())->NAME;
+    # The regex below corresponds to the isCONTROLVAR macro from toke.c
+    $name =~ s/^([\cA-\cZ\c\\c[\c]\c?\c_\c^])/"^".chr(64 ^ ord($1))/e;
+    return $name;
+  }|;
+}
+
+my ($have_B_Flags, $have_B_Flags_extra);
+if (!$ENV{PERL_CORE}){ # avoid CORE test crashes
+  eval { require B::Flags and $have_B_Flags++ };
+  $have_B_Flags_extra++ if $have_B_Flags and $B::Flags::VERSION gt '0.03';
+}
+my %done_gv;
+
+sub _printop {
+  my $op = shift;
+  my $addr = ${$op} ? $op->ppaddr : '';
+  $addr =~ s/^PL_ppaddr// if $addr;
+  if (${$op}) {
+    return sprintf "0x%08x %6s %s", ${$op}, B::class($op), $addr;
+  } else {
+    return sprintf "0x%x %6s %s", ${$op}, '', $addr;
+  }
+}
+
+sub B::OP::debug {
+    my ($op) = @_;
+    printf <<'EOT', B::class($op), $$op, _printop($op), _printop($op->next), _printop($op->sibling), $op->targ, $op->type, $op->name;
+%s (0x%lx)
+	op_ppaddr	%s
+	op_next		%s
+	op_sibling	%s
+	op_targ		%d
+	op_type		%d	%s
+EOT
+    if ($] > 5.009) {
+	printf <<'EOT', $op->opt;
+	op_opt		%d
+EOT
+    } else {
+	printf <<'EOT', $op->seq;
+	op_seq		%d
+EOT
+    }
+    if ($have_B_Flags) {
+        printf <<'EOT', $op->flags, $op->flagspv, $op->private, $op->privatepv;
+	op_flags	%u	%s
+	op_private	%u	%s
+EOT
+    } else {
+        printf <<'EOT', $op->flags, $op->private;
+	op_flags	%u
+	op_private	%u
+EOT
+    }
+    if ($op->can('rettype')) {
+        printf <<'EOT', $op->rettype;
+	op_rettype	%u
+EOT
+    }
+}
+
+sub B::UNOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_first\t%s\n", _printop($op->first);
+}
+
+sub B::BINOP::debug {
+    my ($op) = @_;
+    $op->B::UNOP::debug();
+    printf "\top_last \t%s\n", _printop($op->last);
+}
+
+sub B::LOOP::debug {
+    my ($op) = @_;
+    $op->B::BINOP::debug();
+    printf <<'EOT', _printop($op->redoop), _printop($op->nextop), _printop($op->lastop);
+	op_redoop	%s
+	op_nextop	%s
+	op_lastop	%s
+EOT
+}
+
+sub B::LOGOP::debug {
+    my ($op) = @_;
+    $op->B::UNOP::debug();
+    printf "\top_other\t%s\n", _printop($op->other);
+}
+
+sub B::LISTOP::debug {
+    my ($op) = @_;
+    $op->B::BINOP::debug();
+    printf "\top_children\t%d\n", $op->children;
+}
+
+sub B::PMOP::debug {
+    my ($op) = @_;
+    $op->B::LISTOP::debug();
+    printf "\top_pmreplroot\t0x%x\n", $] < 5.008 ? ${$op->pmreplroot} : $op->pmreplroot;
+    printf "\top_pmreplstart\t0x%x\n", ${$op->pmreplstart};
+    printf "\top_pmnext\t0x%x\n", ${$op->pmnext} if $] < 5.009005;
+    if ($Config{'useithreads'}) {
+      printf "\top_pmstashpv\t%s\n", cstring($op->pmstashpv);
+      printf "\top_pmoffset\t%d\n", $op->pmoffset;
+    } else {
+      printf "\top_pmstash\t%s\n", cstring($op->pmstash);
+    }
+    printf "\top_precomp\t%s\n", cstring($op->precomp);
+    printf "\top_pmflags\t0x%x\n", $op->pmflags;
+    printf "\top_reflags\t0x%x\n", $op->reflags if $] >= 5.009;
+    printf "\top_pmpermflags\t0x%x\n", $op->pmpermflags if $] < 5.009;
+    printf "\top_pmdynflags\t0x%x\n", $op->pmdynflags if $] < 5.009;
+    $op->pmreplroot->debug if $] < 5.008;
+}
+
+sub B::COP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    my $warnings = ref $op->warnings ? ${$op->warnings} : 0;
+    printf <<'EOT', $op->label, $op->stashpv, $op->file, $op->cop_seq, $op->arybase, $op->line, $warnings;
+	cop_label	"%s"
+	cop_stashpv	"%s"
+	cop_file	"%s"
+	cop_seq		%d
+	cop_arybase	%d
+	cop_line	%d
+	cop_warnings	0x%x
+EOT
+  if ($] > 5.008 and $] < 5.011) {
+    my $cop_io = B::class($op->io) eq 'SPECIAL' ? '' : $op->io->as_string;
+    printf("	cop_io		%s\n", cstring($cop_io));
+  }
+}
+
+sub B::SVOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_sv\t\t0x%x\n", ${$op->sv};
+    $op->sv->debug;
+}
+
+sub B::METHOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    if (${$op->first})  {
+      printf "\top_first\t0x%x\n", ${$op->first};
+      $op->first->debug;
+    } else {
+      printf "\top_meth_sv\t0x%x\n", ${$op->meth_sv};
+      $op->meth_sv->debug;
+    }
+}
+
+sub B::UNOP_AUX::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    # string and perl5 aux_list needs the cv
+    # cperl has aux, Concise,-debug leaves it empty
+    if ($op->can('aux')) {
+        printf "\top_aux\t%s\n", cstring($op->aux);
+    }
+}
+
+sub B::PVOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_pv\t\t%s\n", cstring($op->pv);
+}
+
+sub B::PADOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_padix\t%ld\n", $op->padix;
+}
+
+sub B::NULL::debug {
+    my ($sv) = @_;
+    if ($$sv == ${sv_undef()}) {
+	print "&sv_undef\n";
+    } else {
+	printf "NULL (0x%x)\n", $$sv;
+    }
+}
+
+sub B::SV::debug {
+    my ($sv) = @_;
+    if (!$$sv) {
+	print B::class($sv), " = NULL\n";
+	return;
+    }
+    printf <<'EOT', B::class($sv), $$sv, $sv->REFCNT;
+%s (0x%x)
+	REFCNT		%d
+EOT
+    printf "\tFLAGS\t\t0x%x", $sv->FLAGS;
+    if ($have_B_Flags) {
+      printf "\t%s", $have_B_Flags_extra ? $sv->flagspv(0) : $sv->flagspv;
+    }
+    print "\n";
+}
+
+sub B::RV::debug {
+    my ($rv) = @_;
+    B::SV::debug($rv);
+    printf <<'EOT', ${$rv->RV};
+	RV		0x%x
+EOT
+    $rv->RV->debug;
+}
+
+sub B::PV::debug {
+    my ($sv) = @_;
+    $sv->B::SV::debug();
+    my $pv = $sv->PV();
+    printf <<'EOT', cstring($pv), $sv->CUR, $sv->LEN;
+	xpv_pv		%s
+	xpv_cur		%d
+	xpv_len		%d
+EOT
+}
+
+sub B::IV::debug {
+    my ($sv) = @_;
+    $sv->B::SV::debug();
+    printf "\txiv_iv\t\t%d\n", $sv->IV if $sv->FLAGS & SVf_IOK;
+}
+
+sub B::NV::debug {
+    my ($sv) = @_;
+    $sv->B::IV::debug();
+    printf "\txnv_nv\t\t%s\n", $sv->NV if $sv->FLAGS & SVf_NOK;
+}
+
+sub B::PVIV::debug {
+    my ($sv) = @_;
+    $sv->B::PV::debug();
+    printf "\txiv_iv\t\t%d\n", $sv->IV if $sv->FLAGS & SVf_IOK;
+}
+
+sub B::PVNV::debug {
+    my ($sv) = @_;
+    $sv->B::PVIV::debug();
+    printf "\txnv_nv\t\t%s\n", $sv->NV if $sv->FLAGS & SVf_NOK;
+}
+
+sub B::PVLV::debug {
+    my ($sv) = @_;
+    $sv->B::PVNV::debug();
+    printf "\txlv_targoff\t%d\n", $sv->TARGOFF;
+    printf "\txlv_targlen\t%u\n", $sv->TARGLEN;
+    printf "\txlv_type\t%s\n", cstring(chr($sv->TYPE));
+}
+
+sub B::BM::debug {
+    my ($sv) = @_;
+    $sv->B::PVNV::debug();
+    printf "\txbm_useful\t%d\n", $sv->USEFUL;
+    printf "\txbm_previous\t%u\n", $sv->PREVIOUS;
+    printf "\txbm_rare\t%s\n", cstring(chr($sv->RARE));
+}
+
+sub B::CV::debug {
+    my ($cv) = @_;
+    $cv->B::PVNV::debug();
+    my $stash = $cv->STASH;
+    my $start = $cv->START;
+    my $root  = $cv->ROOT;
+    my $padlist = $cv->PADLIST;
+    my $file = $cv->FILE;
+    my $gv;
+    printf <<'EOT', $$stash, $$start, $$root;
+	STASH		0x%x
+	START		0x%x
+	ROOT		0x%x
+EOT
+    if ($cv->can('NAME_HEK') && $cv->NAME_HEK) {
+        printf("\tNAME\t%%s\n", $cv->NAME_HEK);
+    }
+    elsif ( $]>5.017 && ($cv->FLAGS & 0x40000)) { #lexsub
+        printf("\tNAME\t%%s\n", $cv->NAME_HEK);
+    } else {
+        $gv = $cv->GV;
+        printf("\tGV\t%0x%x\t%s\n", $$gv, $gv->SAFENAME);
+    }
+    printf <<'EOT', $file, $cv->DEPTH, $padlist, ${$cv->OUTSIDE};
+	FILE		%s
+	DEPTH		%d
+	PADLIST		0x%x
+	OUTSIDE		0x%x
+EOT
+    printf("\tOUTSIDE_SEQ\t%d\n", $cv->OUTSIDE_SEQ) if $] > 5.007;
+    if ($have_B_Flags) {
+        my $SVt_PVCV = $] < 5.010 ? 12 : 13;
+        printf("\tCvFLAGS\t0x%x\t%s\n", $cv->CvFLAGS,
+               $have_B_Flags_extra ? $cv->flagspv($SVt_PVCV) : $cv->flagspv);
+    } else {
+        printf("\tCvFLAGS\t0x%x\n", $cv->CvFLAGS);
+    }
+    printf("\tSIGOP\t0x%x\n", $cv->SIGOP) if $cv->can('SIGOP');
+    $start->debug if $start;
+    $root->debug if $root;
+    $gv->debug if $gv;
+    $padlist->debug if $padlist;
+}
+
+sub B::AV::debug {
+    my ($av) = @_;
+    $av->B::SV::debug;
+    _array_debug($av);
+}
+
+sub _array_debug {
+    my ($av) = @_;
+    # tied arrays may leave out FETCHSIZE
+    my (@array) = eval { $av->ARRAY; };
+    print "\tARRAY\t\t(", join(", ", map("0x" . $$_, @array)), ")\n";
+    my $fill = eval { scalar(@array) };
+    if ($Config{'useithreads'} && B::class($av) ne 'PADLIST') {
+      printf <<'EOT', $fill, $av->MAX, $av->OFF;
+	FILL		%d
+	MAX		%d
+	OFF		%d
+EOT
+    } else {
+      printf <<'EOT', $fill, $av->MAX;
+	FILL		%d
+	MAX		%d
+EOT
+    }
+    if ($] < 5.009) {
+      if ($have_B_Flags) {
+	printf("\tAvFLAGS\t0x%x\t%s\n", $av->AvFLAGS,
+	       $have_B_Flags_extra ? $av->flagspv(10) : $av->flagspv);
+      } else {
+	printf("\tAvFLAGS\t0x%x\n", $av->AvFLAGS);
+      }
+    }
+}
+
+sub B::GV::debug {
+    my ($gv) = @_;
+    if ($done_gv{$$gv}++) {
+	printf "GV %s::%s\n", $gv->STASH->NAME, $gv->SAFENAME;
+	return;
+    }
+    my $sv = $gv->SV;
+    my $av = $gv->AV;
+    my $cv = $gv->CV;
+    $gv->B::SV::debug;
+    printf <<'EOT', $gv->SAFENAME, $gv->STASH->NAME, $gv->STASH, $$sv, $gv->GvREFCNT, $gv->FORM, $$av, ${$gv->HV}, ${$gv->EGV}, $$cv, $gv->CVGEN, $gv->LINE, $gv->FILE, $gv->GvFLAGS;
+	NAME		%s
+	STASH		%s (0x%x)
+	SV		0x%x
+	GvREFCNT	%d
+	FORM		0x%x
+	AV		0x%x
+	HV		0x%x
+	EGV		0x%x
+	CV		0x%x
+	CVGEN		%d
+	LINE		%d
+	FILE		%s
+EOT
+    if ($have_B_Flags) {
+      my $SVt_PVGV = $] < 5.010 ? 13 : 9;
+      printf("\tGvFLAGS\t0x%x\t%s\n", $gv->GvFLAGS,
+	     $have_B_Flags_extra ? $gv->flagspv($SVt_PVGV) : $gv->flagspv);
+    } else {
+      printf("\tGvFLAGS\t0x%x\n", $gv->GvFLAGS);
+    }
+    $sv->debug if $sv;
+    $av->debug if $av;
+    $cv->debug if $cv;
+}
+
+sub B::SPECIAL::debug {
+    my $sv = shift;
+    my $i = ref $sv ? $$sv : 0;
+    print defined $specialsv_name[$i] ? $specialsv_name[$i] : "", "\n";
+}
+
+sub B::PADLIST::debug {
+    my ($padlist) = @_;
+    printf <<'EOT', B::class($padlist), $$padlist, $padlist->REFCNT;
+%s (0x%x)
+	REFCNT		%d
+EOT
+    _array_debug($padlist);
+}
+
+sub compile {
+    my $order = shift;
+    B::clearsym();
+    $DB::single = 1 if defined &DB::DB;
+    if ($order && $order eq "exec") {
+        return sub { walkoptree_exec(main_start, "debug") }
+    } else {
+        return sub { walkoptree(main_root, "debug") }
+    }
+}
+
+1;
+
+__END__
+
+
+# Net::SMTP.pm
+#
+# Copyright (C) 1995-2004 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2016 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::SMTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Socket;
+
+our $VERSION = "3.11";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.25) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if !$ssl_class;
+    $arg{Port} ||= 465;
+  }
+
+  my $hosts = defined $host ? $host : $NetConfig{smtp_hosts};
+  my $obj;
+
+  $arg{Timeout} = 120 if ! defined $arg{Timeout};
+
+  foreach my $h (@{ref($hosts) ? $hosts : [$hosts]}) {
+    $obj = $type->SUPER::new(
+      PeerAddr => ($host = $h),
+      PeerPort => $arg{Port} || 'smtp(25)',
+      LocalAddr => $arg{LocalAddr},
+      LocalPort => $arg{LocalPort},
+      $family_key => $arg{Domain} || $arg{Family},
+      Proto     => 'tcp',
+      Timeout   => $arg{Timeout}
+      )
+      and last;
+  }
+
+  return
+    unless defined $obj;
+
+  ${*$obj}{'net_smtp_arg'} = \%arg;
+  ${*$obj}{'net_smtp_host'} = $host;
+
+  if ($arg{SSL}) {
+    Net::SMTP::_SSL->start_SSL($obj,%arg)
+      or return;
+  }
+
+  $obj->autoflush(1);
+
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    my $err = ref($obj) . ": " . $obj->code . " " . $obj->message;
+    $obj->close();
+    $@ = $err;
+    return;
+  }
+
+  ${*$obj}{'net_smtp_exact_addr'} = $arg{ExactAddresses};
+
+  (${*$obj}{'net_smtp_banner'}) = $obj->message;
+  (${*$obj}{'net_smtp_domain'}) = $obj->message =~ /\A\s*(\S+)/;
+
+  if (!exists $arg{SendHello} || $arg{SendHello}) {
+    unless ($obj->hello($arg{Hello} || "")) {
+      my $err = ref($obj) . ": " . $obj->code . " " . $obj->message;
+      $obj->close();
+      $@ = $err;
+      return;
+    }
+  }
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_smtp_host'};
+}
+
+##
+## User interface methods
+##
+
+
+sub banner {
+  my $me = shift;
+
+  return ${*$me}{'net_smtp_banner'} || undef;
+}
+
+
+sub domain {
+  my $me = shift;
+
+  return ${*$me}{'net_smtp_domain'} || undef;
+}
+
+
+sub etrn {
+  my $self = shift;
+  defined($self->supports('ETRN', 500, ["Command unknown: 'ETRN'"]))
+    && $self->_ETRN(@_);
+}
+
+
+sub auth {
+  my ($self, $username, $password) = @_;
+
+  eval {
+    require MIME::Base64;
+    require Authen::SASL;
+  } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo auth"]), return 0;
+
+  my $mechanisms = $self->supports('AUTH', 500, ["Command unknown: 'AUTH'"]);
+  return unless defined $mechanisms;
+
+  my $sasl;
+
+  if (ref($username) and UNIVERSAL::isa($username, 'Authen::SASL')) {
+    $sasl = $username;
+    my $requested_mechanisms = $sasl->mechanism();
+    if (! defined($requested_mechanisms) || $requested_mechanisms eq '') {
+      $sasl->mechanism($mechanisms);
+    }
+  }
+  else {
+    die "auth(username, password)" if not length $username;
+    $sasl = Authen::SASL->new(
+      mechanism => $mechanisms,
+      callback  => {
+        user     => $username,
+        pass     => $password,
+        authname => $username,
+      },
+      debug => $self->debug
+    );
+  }
+
+  my $client;
+  my $str;
+  do {
+    if ($client) {
+      # $client mechanism failed, so we need to exclude this mechanism from list
+      my $failed_mechanism = $client->mechanism;
+      return unless defined $failed_mechanism;
+      $self->debug_text("Auth mechanism failed: $failed_mechanism")
+        if $self->debug;
+      $mechanisms =~ s/\b\Q$failed_mechanism\E\b//;
+      return unless $mechanisms =~ /\S/;
+      $sasl->mechanism($mechanisms);
+    }
+    
+    # We should probably allow the user to pass the host, but I don't
+    # currently know and SASL mechanisms that are used by smtp that need it
+
+    $client = $sasl->client_new('smtp', ${*$self}{'net_smtp_host'}, 0);
+    $str    = $client->client_start;
+  } while (!defined $str);
+
+  # We don't support sasl mechanisms that encrypt the socket traffic.
+  # todo that we would really need to change the ISA hierarchy
+  # so we don't inherit from IO::Socket, but instead hold it in an attribute
+
+  my @cmd = ("AUTH", $client->mechanism);
+  my $code;
+
+  push @cmd, MIME::Base64::encode_base64($str, '')
+    if defined $str and length $str;
+
+  while (($code = $self->command(@cmd)->response()) == CMD_MORE) {
+    my $str2 = MIME::Base64::decode_base64(($self->message)[0]);
+    $self->debug_print(0, "(decoded) " . $str2 . "\n") if $self->debug;
+
+    $str = $client->client_step($str2);
+    @cmd = (
+      MIME::Base64::encode_base64($str, '')
+    );
+
+    $self->debug_print(1, "(decoded) " . $str . "\n") if $self->debug;
+  }
+
+  $code == CMD_OK;
+}
+
+
+sub hello {
+  my $me     = shift;
+  my $domain = shift || "localhost.localdomain";
+  my $ok     = $me->_EHLO($domain);
+  my @msg    = $me->message;
+
+  if ($ok) {
+    my $h = ${*$me}{'net_smtp_esmtp'} = {};
+    foreach my $ln (@msg) {
+      $h->{uc $1} = $2
+        if $ln =~ /([-\w]+)\b[= \t]*([^\n]*)/;
+    }
+  }
+  elsif ($me->status == CMD_ERROR) {
+    @msg = $me->message
+      if $ok = $me->_HELO($domain);
+  }
+
+  return unless $ok;
+  ${*$me}{net_smtp_hello_domain} = $domain;
+
+  $msg[0] =~ /\A\s*(\S+)/;
+  return ($1 || " ");
+}
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STARTTLS or return;
+  Net::SMTP::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+
+  # another hello after starttls to read new ESMTP capabilities
+  return $self->hello(${*$self}{net_smtp_hello_domain});
+}
+
+
+sub supports {
+  my $self = shift;
+  my $cmd  = uc shift;
+  return ${*$self}{'net_smtp_esmtp'}->{$cmd}
+    if exists ${*$self}{'net_smtp_esmtp'}->{$cmd};
+  $self->set_status(@_)
+    if @_;
+  return;
+}
+
+
+sub _addr {
+  my $self = shift;
+  my $addr = shift;
+  $addr = "" unless defined $addr;
+
+  if (${*$self}{'net_smtp_exact_addr'}) {
+    return $1 if $addr =~ /^\s*(<.*>)\s*$/s;
+  }
+  else {
+    return $1 if $addr =~ /(<[^>]*>)/;
+    $addr =~ s/^\s+|\s+$//sg;
+  }
+
+  "<$addr>";
+}
+
+
+sub mail {
+  my $me   = shift;
+  my $addr = _addr($me, shift);
+  my $opts = "";
+
+  if (@_) {
+    my %opt = @_;
+    my ($k, $v);
+
+    if (exists ${*$me}{'net_smtp_esmtp'}) {
+      my $esmtp = ${*$me}{'net_smtp_esmtp'};
+
+      if (defined($v = delete $opt{Size})) {
+        if (exists $esmtp->{SIZE}) {
+          $opts .= sprintf " SIZE=%d", $v + 0;
+        }
+        else {
+          carp 'Net::SMTP::mail: SIZE option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Return})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " RET=" . ((uc($v) eq "FULL") ? "FULL" : "HDRS");
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Bits})) {
+        if ($v eq "8") {
+          if (exists $esmtp->{'8BITMIME'}) {
+            $opts .= " BODY=8BITMIME";
+          }
+          else {
+            carp 'Net::SMTP::mail: 8BITMIME option not supported by host';
+          }
+        }
+        elsif ($v eq "binary") {
+          if (exists $esmtp->{'BINARYMIME'} && exists $esmtp->{'CHUNKING'}) {
+            $opts .= " BODY=BINARYMIME";
+            ${*$me}{'net_smtp_chunking'} = 1;
+          }
+          else {
+            carp 'Net::SMTP::mail: BINARYMIME option not supported by host';
+          }
+        }
+        elsif (exists $esmtp->{'8BITMIME'} or exists $esmtp->{'BINARYMIME'}) {
+          $opts .= " BODY=7BIT";
+        }
+        else {
+          carp 'Net::SMTP::mail: 8BITMIME and BINARYMIME options not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Transaction})) {
+        if (exists $esmtp->{CHECKPOINT}) {
+          $opts .= " TRANSID=" . _addr($me, $v);
+        }
+        else {
+          carp 'Net::SMTP::mail: CHECKPOINT option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Envelope})) {
+        if (exists $esmtp->{DSN}) {
+          $v =~ s/([^\041-\176]|=|\+)/sprintf "+%02X", ord($1)/sge;
+          $opts .= " ENVID=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{ENVID})) {
+
+        # expected to be in a format as required by RFC 3461, xtext-encoded
+        if (exists $esmtp->{DSN}) {
+          $opts .= " ENVID=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{AUTH})) {
+
+        # expected to be in a format as required by RFC 2554,
+        # rfc2821-quoted and xtext-encoded, or <>
+        if (exists $esmtp->{AUTH}) {
+          $v = '<>' if !defined($v) || $v eq '';
+          $opts .= " AUTH=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: AUTH option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{XVERP})) {
+        if (exists $esmtp->{'XVERP'}) {
+          $opts .= " XVERP";
+        }
+        else {
+          carp 'Net::SMTP::mail: XVERP option not supported by host';
+        }
+      }
+
+      carp 'Net::SMTP::recipient: unknown option(s) ' . join(" ", keys %opt) . ' - ignored'
+        if scalar keys %opt;
+    }
+    else {
+      carp 'Net::SMTP::mail: ESMTP not supported by host - options discarded :-(';
+    }
+  }
+
+  $me->_MAIL("FROM:" . $addr . $opts);
+}
+
+
+sub send          { my $me = shift; $me->_SEND("FROM:" . _addr($me, $_[0])) }
+sub send_or_mail  { my $me = shift; $me->_SOML("FROM:" . _addr($me, $_[0])) }
+sub send_and_mail { my $me = shift; $me->_SAML("FROM:" . _addr($me, $_[0])) }
+
+
+sub reset {
+  my $me = shift;
+
+  $me->dataend()
+    if (exists ${*$me}{'net_smtp_lastch'});
+
+  $me->_RSET();
+}
+
+
+sub recipient {
+  my $smtp     = shift;
+  my $opts     = "";
+  my $skip_bad = 0;
+
+  if (@_ && ref($_[-1])) {
+    my %opt = %{pop(@_)};
+    my $v;
+
+    $skip_bad = delete $opt{'SkipBad'};
+
+    if (exists ${*$smtp}{'net_smtp_esmtp'}) {
+      my $esmtp = ${*$smtp}{'net_smtp_esmtp'};
+
+      if (defined($v = delete $opt{Notify})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " NOTIFY=" . join(",", map { uc $_ } @$v);
+        }
+        else {
+          carp 'Net::SMTP::recipient: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{ORcpt})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " ORCPT=" . $v;
+        }
+        else {
+          carp 'Net::SMTP::recipient: DSN option not supported by host';
+        }
+      }
+
+      carp 'Net::SMTP::recipient: unknown option(s) ' . join(" ", keys %opt) . ' - ignored'
+        if scalar keys %opt;
+    }
+    elsif (%opt) {
+      carp 'Net::SMTP::recipient: ESMTP not supported by host - options discarded :-(';
+    }
+  }
+
+  my @ok;
+  foreach my $addr (@_) {
+    if ($smtp->_RCPT("TO:" . _addr($smtp, $addr) . $opts)) {
+      push(@ok, $addr) if $skip_bad;
+    }
+    elsif (!$skip_bad) {
+      return 0;
+    }
+  }
+
+  return $skip_bad ? @ok : 1;
+}
+
+BEGIN {
+  *to  = \&recipient;
+  *cc  = \&recipient;
+  *bcc = \&recipient;
+}
+
+
+sub data {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    carp 'Net::SMTP::data: CHUNKING extension in use, must call bdat instead';
+  }
+  else {
+    my $ok = $me->_DATA() && $me->datasend(@_);
+
+    $ok && @_
+      ? $me->dataend
+      : $ok;
+  }
+}
+
+
+sub bdat {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    my $data = shift;
+
+    $me->_BDAT(length $data)
+      && $me->rawdatasend($data)
+      && $me->response() == CMD_OK;
+  }
+  else {
+    carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead';
+  }
+}
+
+
+sub bdatlast {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    my $data = shift;
+
+    $me->_BDAT(length $data, "LAST")
+      && $me->rawdatasend($data)
+      && $me->response() == CMD_OK;
+  }
+  else {
+    carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead';
+  }
+}
+
+
+sub datafh {
+  my $me = shift;
+  return unless $me->_DATA();
+  return $me->tied_fh;
+}
+
+
+sub expand {
+  my $me = shift;
+
+  $me->_EXPN(@_)
+    ? ($me->message)
+    : ();
+}
+
+
+sub verify { shift->_VRFY(@_) }
+
+
+sub help {
+  my $me = shift;
+
+  $me->_HELP(@_)
+    ? scalar $me->message
+    : undef;
+}
+
+
+sub quit {
+  my $me = shift;
+
+  $me->_QUIT;
+  $me->close;
+}
+
+
+sub DESTROY {
+
+  # ignore
+}
+
+##
+## RFC821 commands
+##
+
+
+sub _EHLO { shift->command("EHLO", @_)->response() == CMD_OK }
+sub _HELO { shift->command("HELO", @_)->response() == CMD_OK }
+sub _MAIL { shift->command("MAIL", @_)->response() == CMD_OK }
+sub _RCPT { shift->command("RCPT", @_)->response() == CMD_OK }
+sub _SEND { shift->command("SEND", @_)->response() == CMD_OK }
+sub _SAML { shift->command("SAML", @_)->response() == CMD_OK }
+sub _SOML { shift->command("SOML", @_)->response() == CMD_OK }
+sub _VRFY { shift->command("VRFY", @_)->response() == CMD_OK }
+sub _EXPN { shift->command("EXPN", @_)->response() == CMD_OK }
+sub _HELP { shift->command("HELP", @_)->response() == CMD_OK }
+sub _RSET { shift->command("RSET")->response() == CMD_OK }
+sub _NOOP { shift->command("NOOP")->response() == CMD_OK }
+sub _QUIT { shift->command("QUIT")->response() == CMD_OK }
+sub _DATA { shift->command("DATA")->response() == CMD_MORE }
+sub _BDAT { shift->command("BDAT", @_) }
+sub _TURN { shift->unsupported(@_); }
+sub _ETRN { shift->command("ETRN", @_)->response() == CMD_OK }
+sub _AUTH { shift->command("AUTH", @_)->response() == CMD_OK }
+sub _STARTTLS { shift->command("STARTTLS")->response() == CMD_OK }
+
+
+{
+  package Net::SMTP::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' );
+  sub starttls { die "SMTP connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$smtp,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $smtp->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    $arg{SSL_verifycn_scheme} ||= 'smtp';
+    my $ok = $class->SUPER::start_SSL($smtp,%arg);
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+1;
+
+__END__
+
+package Net::hostent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.02';
+our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our (
+      $h_name, @h_aliases,
+      $h_addrtype, $h_length,
+      @h_addr_list, $h_addr
+);
+ 
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(gethostbyname gethostbyaddr gethost);
+    @EXPORT_OK   = qw(
+			$h_name	    	@h_aliases
+			$h_addrtype 	$h_length
+			@h_addr_list 	$h_addr
+		   );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::hostent' => [
+   name		=> '$',
+   aliases	=> '@',
+   addrtype	=> '$',
+   'length'	=> '$',
+   addr_list	=> '@',
+];
+
+sub addr { shift->addr_list->[0] }
+
+sub populate (@) {
+    return unless @_;
+    my $hob = new();
+    $h_name 	 =    $hob->[0]     	     = $_[0];
+    @h_aliases	 = @{ $hob->[1] } = split ' ', $_[1];
+    $h_addrtype  =    $hob->[2] 	     = $_[2];
+    $h_length	 =    $hob->[3] 	     = $_[3];
+    $h_addr 	 =                             $_[4];
+    @h_addr_list = @{ $hob->[4] } =          @_[ (4 .. $#_) ];
+    return $hob;
+} 
+
+sub gethostbyname ($)  { populate(CORE::gethostbyname(shift)) } 
+
+sub gethostbyaddr ($;$) { 
+    my ($addr, $addrtype);
+    $addr = shift;
+    require Socket unless @_;
+    $addrtype = @_ ? shift : Socket::AF_INET();
+    populate(CORE::gethostbyaddr($addr, $addrtype)) 
+} 
+
+sub gethost($) {
+    if ($_[0] =~ /^\d+(?:\.\d+(?:\.\d+(?:\.\d+)?)?)?$/) {
+	require Socket;
+	&gethostbyaddr(Socket::inet_aton(shift));
+    } else {
+	&gethostbyname;
+    } 
+} 
+
+1;
+__END__
+
+# Net::Domain.pm
+#
+# Copyright (C) 1995-1998 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2014 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Domain;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use Net::Config;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
+our $VERSION = "3.11";
+
+my ($host, $domain, $fqdn) = (undef, undef, undef);
+
+# Try every conceivable way to get hostname.
+
+
+sub _hostname {
+
+  # we already know it
+  return $host
+    if (defined $host);
+
+  if ($^O eq 'MSWin32') {
+    require Socket;
+    my ($name, $alias, $type, $len, @addr) = gethostbyname($ENV{'COMPUTERNAME'} || 'localhost');
+    while (@addr) {
+      my $a = shift(@addr);
+      $host = gethostbyaddr($a, Socket::AF_INET());
+      last if defined $host;
+    }
+    if (defined($host) && index($host, '.') > 0) {
+      $fqdn = $host;
+      ($host, $domain) = $fqdn =~ /^([^.]+)\.(.*)$/;
+    }
+    return $host;
+  }
+  elsif ($^O eq 'MacOS') {
+    chomp($host = `hostname`);
+  }
+  elsif ($^O eq 'VMS') {    ## multiple varieties of net s/w makes this hard
+    $host = $ENV{'UCX$INET_HOST'}      if defined($ENV{'UCX$INET_HOST'});
+    $host = $ENV{'MULTINET_HOST_NAME'} if defined($ENV{'MULTINET_HOST_NAME'});
+    if (index($host, '.') > 0) {
+      $fqdn = $host;
+      ($host, $domain) = $fqdn =~ /^([^.]+)\.(.*)$/;
+    }
+    return $host;
+  }
+  else {
+    local $SIG{'__DIE__'};
+
+    # syscall is preferred since it avoids tainting problems
+    eval {
+      my $tmp = "\0" x 256;    ## preload scalar
+      eval {
+        package main;
+        require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        defined(&main::SYS_gethostname);
+        }
+        || eval {
+        package main;
+        require "sys/syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        defined(&main::SYS_gethostname);
+        }
+        and $host =
+        (syscall(&main::SYS_gethostname, $tmp, 256) == 0)
+        ? $tmp
+        : undef;
+      }
+
+      # POSIX
+      || eval {
+      require POSIX;
+      $host = (POSIX::uname())[1];
+      }
+
+      # trusty old hostname command
+      || eval {
+      chop($host = `(hostname) 2>/dev/null`);    # BSD'ish
+      }
+
+      # sysV/POSIX uname command (may truncate)
+      || eval {
+      chop($host = `uname -n 2>/dev/null`);      ## SYSV'ish && POSIX'ish
+      }
+
+      # Apollo pre-SR10
+      || eval { $host = (split(/[:. ]/, `/com/host`, 6))[0]; }
+
+      || eval { $host = ""; };
+  }
+
+  # remove garbage
+  $host =~ s/[\0\r\n]+//go;
+  $host =~ s/(\A\.+|\.+\Z)//go;
+  $host =~ s/\.\.+/\./go;
+
+  $host;
+}
+
+
+sub _hostdomain {
+
+  # we already know it
+  return $domain
+    if (defined $domain);
+
+  local $SIG{'__DIE__'};
+
+  return $domain = $NetConfig{'inet_domain'}
+    if defined $NetConfig{'inet_domain'};
+
+  # try looking in /etc/resolv.conf
+  # putting this here and assuming that it is correct, eliminates
+  # calls to gethostbyname, and therefore DNS lookups. This helps
+  # those on dialup systems.
+
+  local ($_);
+
+  if (open(my $res, '<', "/etc/resolv.conf")) {
+    while (<$res>) {
+      $domain = $1
+        if (/\A\s*(?:domain|search)\s+(\S+)/);
+    }
+    close($res);
+
+    return $domain
+      if (defined $domain);
+  }
+
+  # just try hostname and system calls
+
+  my $host = _hostname();
+  my (@hosts);
+
+  @hosts = ($host, "localhost");
+
+  unless (defined($host) && $host =~ /\./) {
+    my $dom = undef;
+    eval {
+      my $tmp = "\0" x 256;    ## preload scalar
+      eval {
+        package main;
+        require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        }
+        || eval {
+        package main;
+        require "sys/syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        }
+        and $dom =
+        (syscall(&main::SYS_getdomainname, $tmp, 256) == 0)
+        ? $tmp
+        : undef;
+    };
+
+    if ($^O eq 'VMS') {
+      $dom ||= $ENV{'TCPIP$INET_DOMAIN'}
+        || $ENV{'UCX$INET_DOMAIN'};
+    }
+
+    chop($dom = `domainname 2>/dev/null`)
+      unless (defined $dom || $^O =~ /^(?:cygwin|MSWin32|android)/);
+
+    if (defined $dom) {
+      my @h = ();
+      $dom =~ s/^\.+//;
+      while (length($dom)) {
+        push(@h, "$host.$dom");
+        $dom =~ s/^[^.]+.+// or last;
+      }
+      unshift(@hosts, @h);
+    }
+  }
+
+  # Attempt to locate FQDN
+
+  foreach (grep { defined $_ } @hosts) {
+    my @info = gethostbyname($_);
+
+    next unless @info;
+
+    # look at real name & aliases
+    foreach my $site ($info[0], split(/ /, $info[1])) {
+      if (rindex($site, ".") > 0) {
+
+        # Extract domain from FQDN
+
+        ($domain = $site) =~ s/\A[^.]+\.//;
+        return $domain;
+      }
+    }
+  }
+
+  # Look for environment variable
+
+  $domain ||= $ENV{LOCALDOMAIN} || $ENV{DOMAIN};
+
+  if (defined $domain) {
+    $domain =~ s/[\r\n\0]+//g;
+    $domain =~ s/(\A\.+|\.+\Z)//g;
+    $domain =~ s/\.\.+/\./g;
+  }
+
+  $domain;
+}
+
+
+sub domainname {
+
+  return $fqdn
+    if (defined $fqdn);
+
+  _hostname();
+
+  # *.local names are special on darwin. If we call gethostbyname below, it
+  # may hang while waiting for another, non-existent computer to respond.
+  if($^O eq 'darwin' && $host =~ /\.local$/) {
+    return $host;
+  }
+
+  _hostdomain();
+
+  # Assumption: If the host name does not contain a period
+  # and the domain name does, then assume that they are correct
+  # this helps to eliminate calls to gethostbyname, and therefore
+  # eliminate DNS lookups
+
+  return $fqdn = $host . "." . $domain
+    if (defined $host
+    and defined $domain
+    and $host !~ /\./
+    and $domain =~ /\./);
+
+  # For hosts that have no name, just an IP address
+  return $fqdn = $host if defined $host and $host =~ /^\d+(\.\d+){3}$/;
+
+  my @host   = defined $host   ? split(/\./, $host)   : ('localhost');
+  my @domain = defined $domain ? split(/\./, $domain) : ();
+  my @fqdn   = ();
+
+  # Determine from @host & @domain the FQDN
+
+  my @d = @domain;
+
+LOOP:
+  while (1) {
+    my @h = @host;
+    while (@h) {
+      my $tmp = join(".", @h, @d);
+      if ((gethostbyname($tmp))[0]) {
+        @fqdn = (@h, @d);
+        $fqdn = $tmp;
+        last LOOP;
+      }
+      pop @h;
+    }
+    last unless shift @d;
+  }
+
+  if (@fqdn) {
+    $host = shift @fqdn;
+    until ((gethostbyname($host))[0]) {
+      $host .= "." . shift @fqdn;
+    }
+    $domain = join(".", @fqdn);
+  }
+  else {
+    undef $host;
+    undef $domain;
+    undef $fqdn;
+  }
+
+  $fqdn;
+}
+
+
+sub hostfqdn { domainname() }
+
+
+sub hostname {
+  domainname()
+    unless (defined $host);
+  return $host;
+}
+
+
+sub hostdomain {
+  domainname()
+    unless (defined $domain);
+  return $domain;
+}
+
+1;    # Keep require happy
+
+__END__
+
+package Net::protoent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our ( $p_name, @p_aliases, $p_proto );
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getprotobyname getprotobynumber getprotoent getproto);
+    @EXPORT_OK   = qw( $p_name @p_aliases $p_proto );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::protoent' => [
+   name		=> '$',
+   aliases	=> '@',
+   proto	=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $pob = new();
+    $p_name 	 =    $pob->[0]     	     = $_[0];
+    @p_aliases	 = @{ $pob->[1] } = split ' ', $_[1];
+    $p_proto	 =    $pob->[2] 	     = $_[2];
+    return $pob;
+} 
+
+sub getprotoent      ( )  { populate(CORE::getprotoent()) } 
+sub getprotobyname   ($)  { populate(CORE::getprotobyname(shift)) } 
+sub getprotobynumber ($)  { populate(CORE::getprotobynumber(shift)) } 
+
+sub getproto ($;$) {
+    no strict 'refs';
+    return &{'getprotoby' . ($_[0]=~/^\d+$/ ? 'number' : 'name')}(@_);
+}
+
+1;
+
+__END__
+
+# Net::Time.pm
+#
+# Copyright (C) 1995-2004 Graham Barr.  All rights reserved.
+# Copyright (C) 2014 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Time;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use IO::Select;
+use IO::Socket;
+use Net::Config;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(inet_time inet_daytime);
+
+our $VERSION = "3.11";
+
+our $TIMEOUT = 120;
+
+sub _socket {
+  my ($pname, $pnum, $host, $proto, $timeout) = @_;
+
+  $proto ||= 'udp';
+
+  my $port = (getservbyname($pname, $proto))[2] || $pnum;
+
+  my $hosts = defined $host ? [$host] : $NetConfig{$pname . '_hosts'};
+
+  my $me;
+
+  foreach my $addr (@$hosts) {
+    $me = IO::Socket::INET->new(
+      PeerAddr => $addr,
+      PeerPort => $port,
+      Proto    => $proto
+      )
+      and last;
+  }
+
+  return unless $me;
+
+  $me->send("\n")
+    if $proto eq 'udp';
+
+  $timeout = $TIMEOUT
+    unless defined $timeout;
+
+  IO::Select->new($me)->can_read($timeout)
+    ? $me
+    : undef;
+}
+
+
+sub inet_time {
+  my $s      = _socket('time', 37, @_) || return;
+  my $buf    = '';
+  my $offset = 0 | 0;
+
+  return
+    unless defined $s->recv($buf, length(pack("N", 0)));
+
+  # unpack, we | 0 to ensure we have an unsigned
+  my $time = (unpack("N", $buf))[0] | 0;
+
+  # the time protocol return time in seconds since 1900, convert
+  # it to a the required format
+
+  if ($^O eq "MacOS") {
+
+    # MacOS return seconds since 1904, 1900 was not a leap year.
+    $offset = (4 * 31536000) | 0;
+  }
+  else {
+
+    # otherwise return seconds since 1972, there were 17 leap years between
+    # 1900 and 1972
+    $offset = (70 * 31536000 + 17 * 86400) | 0;
+  }
+
+  $time - $offset;
+}
+
+
+sub inet_daytime {
+  my $s   = _socket('daytime', 13, @_) || return;
+  my $buf = '';
+
+  defined($s->recv($buf, 1024))
+    ? $buf
+    : undef;
+}
+
+1;
+
+__END__
+
+package Net::servent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.02';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our ( $s_name, @s_aliases, $s_port, $s_proto );
+BEGIN {
+    use Exporter   ();
+    @EXPORT      = qw(getservbyname getservbyport getservent getserv);
+    @EXPORT_OK   = qw( $s_name @s_aliases $s_port $s_proto );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::servent' => [
+   name		=> '$',
+   aliases	=> '@',
+   port		=> '$',
+   proto	=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $sob = new();
+    $s_name 	 =    $sob->[0]     	     = $_[0];
+    @s_aliases	 = @{ $sob->[1] } = split ' ', $_[1];
+    $s_port	 =    $sob->[2] 	     = $_[2];
+    $s_proto	 =    $sob->[3] 	     = $_[3];
+    return $sob;
+}
+
+sub getservent    (   ) { populate(CORE::getservent()) }
+sub getservbyname ($;$) { populate(CORE::getservbyname(shift,shift||'tcp')) }
+sub getservbyport ($;$) { populate(CORE::getservbyport(shift,shift||'tcp')) }
+
+sub getserv ($;$) {
+    no strict 'refs';
+    return &{'getservby' . ($_[0]=~/^\d+$/ ? 'port' : 'name')}(@_);
+}
+
+1;
+
+__END__
+
+package Net::Ping;
+
+require 5.002;
+require Exporter;
+
+use strict;
+our $hires;
+use Fcntl qw( F_GETFL F_SETFL O_NONBLOCK );
+use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW AF_INET PF_INET IPPROTO_TCP
+	       SOL_SOCKET SO_ERROR SO_BROADCAST
+               IPPROTO_IP IP_TOS IP_TTL
+               inet_ntoa inet_aton getnameinfo sockaddr_in );
+use POSIX qw( ENOTCONN ECONNREFUSED ECONNRESET EINPROGRESS EWOULDBLOCK EAGAIN
+	      WNOHANG );
+use FileHandle;
+use Carp;
+use Time::HiRes;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(pingecho);
+our @EXPORT_OK = qw(wakeonlan);
+our $VERSION = "2.62";
+
+# Globals
+
+our $def_timeout = 5;           # Default timeout to wait for a reply
+our $def_proto = "tcp";         # Default protocol to use for pinging
+our $def_factor = 1.2;          # Default exponential backoff rate.
+our $def_family = AF_INET;      # Default family.
+our $max_datasize = 1024;       # Maximum data bytes in a packet
+# The data we exchange with the server for the stream protocol
+our $pingstring = "pingschwingping!\n";
+our $source_verify = 1;         # Default is to verify source endpoint
+our $syn_forking = 0;
+
+# Constants
+
+my $AF_INET6  = eval { Socket::AF_INET6() } || 30;
+my $AF_UNSPEC = eval { Socket::AF_UNSPEC() };
+my $AI_NUMERICHOST = eval { Socket::AI_NUMERICHOST() } || 4;
+my $NI_NUMERICHOST = eval { Socket::NI_NUMERICHOST() } || 2;
+my $IPPROTO_IPV6   = eval { Socket::IPPROTO_IPV6() }   || 41;
+#my $IPV6_HOPLIMIT  = eval { Socket::IPV6_HOPLIMIT() };  # ping6 -h 0-255
+my $qr_family = qr/^(?:(?:(:?ip)?v?(?:4|6))|${\AF_INET}|$AF_INET6)$/;
+my $qr_family4 = qr/^(?:(?:(:?ip)?v?4)|${\AF_INET})$/;
+
+if ($^O =~ /Win32/i) {
+  # Hack to avoid this Win32 spewage:
+  # Your vendor has not defined POSIX macro ECONNREFUSED
+  my @pairs = (ECONNREFUSED => 10061, # "Unknown Error" Special Win32 Response?
+	       ENOTCONN     => 10057,
+	       ECONNRESET   => 10054,
+	       EINPROGRESS  => 10036,
+	       EWOULDBLOCK  => 10035,
+	  );
+  while (my $name = shift @pairs) {
+    my $value = shift @pairs;
+    # When defined, these all are non-zero
+    unless (eval $name) {
+      no strict 'refs';
+      *{$name} = defined prototype \&{$name} ? sub () {$value} : sub {$value};
+    }
+  }
+#  $syn_forking = 1;    # XXX possibly useful in < Win2K ?
+};
+
+# Description:  The pingecho() subroutine is provided for backward
+# compatibility with the original Net::Ping.  It accepts a host
+# name/IP and an optional timeout in seconds.  Create a tcp ping
+# object and try pinging the host.  The result of the ping is returned.
+
+sub pingecho
+{
+  my ($host,              # Name or IP number of host to ping
+      $timeout            # Optional timeout in seconds
+      ) = @_;
+  my ($p);                # A ping object
+
+  $p = Net::Ping->new("tcp", $timeout);
+  $p->ping($host);        # Going out of scope closes the connection
+}
+
+# Description:  The new() method creates a new ping object.  Optional
+# parameters may be specified for the protocol to use, the timeout in
+# seconds and the size in bytes of additional data which should be
+# included in the packet.
+#   After the optional parameters are checked, the data is constructed
+# and a socket is opened if appropriate.  The object is returned.
+
+sub new
+{
+  my ($this,
+      $proto,             # Optional protocol to use for pinging
+      $timeout,           # Optional timeout in seconds
+      $data_size,         # Optional additional bytes of data
+      $device,            # Optional device to use
+      $tos,               # Optional ToS to set
+      $ttl,               # Optional TTL to set
+      $family,            # Optional address family (AF_INET)
+      ) = @_;
+  my  $class = ref($this) || $this;
+  my  $self = {};
+  my ($cnt,               # Count through data bytes
+      $min_datasize       # Minimum data bytes required
+      );
+
+  bless($self, $class);
+  if (ref $proto eq 'HASH') { # support named args
+    for my $k (qw(proto timeout data_size device tos ttl family
+                  gateway host port bind retrans pingstring source_verify
+                  econnrefused dontfrag
+                  IPV6_USE_MIN_MTU IPV6_RECVPATHMTU IPV6_HOPLIMIT))
+    {
+      if (exists $proto->{$k}) {
+        $self->{$k} = $proto->{$k};
+        # some are still globals
+        if ($k eq 'pingstring') { $pingstring = $proto->{$k} }
+        if ($k eq 'source_verify') { $source_verify = $proto->{$k} }
+        delete $proto->{$k};
+      }
+    }
+    if (%$proto) {
+      croak("Invalid named argument: ",join(" ",keys (%$proto)));
+    }
+    $proto = $self->{'proto'};
+  }
+
+  $proto = $def_proto unless $proto;          # Determine the protocol
+  croak('Protocol for ping must be "icmp", "icmpv6", "udp", "tcp", "syn", "stream" or "external"')
+    unless $proto =~ m/^(icmp|icmpv6|udp|tcp|syn|stream|external)$/;
+  $self->{proto} = $proto;
+
+  $timeout = $def_timeout unless $timeout;    # Determine the timeout
+  croak("Default timeout for ping must be greater than 0 seconds")
+    if $timeout <= 0;
+  $self->{timeout} = $timeout;
+
+  $self->{device} = $device;
+
+  $self->{tos} = $tos;
+
+  if ($self->{'host'}) {
+    my $host = $self->{'host'};
+    my $ip = _resolv($host)
+      or croak("could not resolve host $host");
+    $self->{host} = $ip;
+    $self->{family} = $ip->{family};
+  }
+
+  if ($self->{bind}) {
+    my $addr = $self->{bind};
+    my $ip = _resolv($addr)
+      or croak("could not resolve local addr $addr");
+    $self->{local_addr} = $ip;
+  } else {
+    $self->{local_addr} = undef;              # Don't bind by default
+  }
+
+  if ($self->{proto} eq 'icmp') {
+    croak('TTL must be from 0 to 255')
+      if ($ttl && ($ttl < 0 || $ttl > 255));
+    $self->{ttl} = $ttl;
+  }
+
+  if ($family) {
+    if ($family =~ $qr_family) {
+      if ($family =~ $qr_family4) {
+        $self->{family} = AF_INET;
+      } else {
+        $self->{family} = $AF_INET6;
+      }
+    } else {
+      croak('Family must be "ipv4" or "ipv6"')
+    }
+  } else {
+    $self->{family} = $def_family;
+  }
+
+  $min_datasize = ($proto eq "udp") ? 1 : 0;  # Determine data size
+  $data_size = $min_datasize unless defined($data_size) && $proto ne "tcp";
+  croak("Data for ping must be from $min_datasize to $max_datasize bytes")
+    if ($data_size < $min_datasize) || ($data_size > $max_datasize);
+  $data_size-- if $self->{proto} eq "udp";  # We provide the first byte
+  $self->{data_size} = $data_size;
+
+  $self->{data} = "";                       # Construct data bytes
+  for ($cnt = 0; $cnt < $self->{data_size}; $cnt++)
+  {
+    $self->{data} .= chr($cnt % 256);
+  }
+
+  # Default exponential backoff rate
+  $self->{retrans} = $def_factor unless exists $self->{retrans};
+  # Default Connection refused behavior
+  $self->{econnrefused} = undef unless exists $self->{econnrefused};
+
+  $self->{seq} = 0;                         # For counting packets
+  if ($self->{proto} eq "udp")              # Open a socket
+  {
+    $self->{proto_num} = eval { (getprotobyname('udp'))[2] } ||
+      croak("Can't udp protocol by name");
+    $self->{port_num} = $self->{port}
+      || (getservbyname('echo', 'udp'))[2]
+      || croak("Can't get udp echo port by name");
+    $self->{fh} = FileHandle->new();
+    socket($self->{fh}, PF_INET, SOCK_DGRAM,
+           $self->{proto_num}) ||
+             croak("udp socket error - $!");
+    $self->_setopts();
+  }
+  elsif ($self->{proto} eq "icmp")
+  {
+    croak("icmp ping requires root privilege") if !_isroot();
+    $self->{proto_num} = eval { (getprotobyname('icmp'))[2] } ||
+      croak("Can't get icmp protocol by name");
+    $self->{pid} = $$ & 0xffff;           # Save lower 16 bits of pid
+    $self->{fh} = FileHandle->new();
+    socket($self->{fh}, PF_INET, SOCK_RAW, $self->{proto_num}) ||
+      croak("icmp socket error - $!");
+    $self->_setopts();
+    if ($self->{'ttl'}) {
+      setsockopt($self->{fh}, IPPROTO_IP, IP_TTL, pack("I*", $self->{'ttl'}))
+        or croak "error configuring ttl to $self->{'ttl'} $!";
+    }
+  }
+  elsif ($self->{proto} eq "icmpv6")
+  {
+    croak("icmpv6 ping requires root privilege") if !_isroot();
+    croak("Wrong family $self->{family} for icmpv6 protocol")
+      if $self->{family} and $self->{family} != $AF_INET6;
+    $self->{family} = $AF_INET6;
+    $self->{proto_num} = eval { (getprotobyname('ipv6-icmp'))[2] } ||
+      croak("Can't get ipv6-icmp protocol by name"); # 58
+    $self->{pid} = $$ & 0xffff;           # Save lower 16 bits of pid
+    $self->{fh} = FileHandle->new();
+    socket($self->{fh}, $AF_INET6, SOCK_RAW, $self->{proto_num}) ||
+      croak("icmp socket error - $!");
+    $self->_setopts();
+    if ($self->{'gateway'}) {
+      my $g = $self->{gateway};
+      my $ip = _resolv($g)
+        or croak("nonexistent gateway $g");
+      $self->{family} eq $AF_INET6
+        or croak("gateway requires the AF_INET6 family");
+      $ip->{family} eq $AF_INET6
+        or croak("gateway address needs to be IPv6");
+      my $IPV6_NEXTHOP = eval { Socket::IPV6_NEXTHOP() } || 48; # IPV6_3542NEXTHOP, or 21
+      setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_NEXTHOP, _pack_sockaddr_in($ip))
+        or croak "error configuring gateway to $g NEXTHOP $!";
+    }
+    if (exists $self->{IPV6_USE_MIN_MTU}) {
+      my $IPV6_USE_MIN_MTU = eval { Socket::IPV6_USE_MIN_MTU() } || 42;
+      setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_USE_MIN_MTU,
+                 pack("I*", $self->{'IPV6_USE_MIN_MT'}))
+        or croak "error configuring IPV6_USE_MIN_MT} $!";
+    }
+    if (exists $self->{IPV6_RECVPATHMTU}) {
+      my $IPV6_RECVPATHMTU = eval { Socket::IPV6_RECVPATHMTU() } || 43;
+      setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_RECVPATHMTU,
+                 pack("I*", $self->{'RECVPATHMTU'}))
+        or croak "error configuring IPV6_RECVPATHMTU $!";
+    }
+    if ($self->{'tos'}) {
+      my $proto = $self->{family} == AF_INET ? IPPROTO_IP : $IPPROTO_IPV6;
+      setsockopt($self->{fh}, $proto, IP_TOS, pack("I*", $self->{'tos'}))
+        or croak "error configuring tos to $self->{'tos'} $!";
+    }
+    if ($self->{'ttl'}) {
+      my $proto = $self->{family} == AF_INET ? IPPROTO_IP : $IPPROTO_IPV6;
+      setsockopt($self->{fh}, $proto, IP_TTL, pack("I*", $self->{'ttl'}))
+        or croak "error configuring ttl to $self->{'ttl'} $!";
+    }
+  }
+  elsif ($self->{proto} eq "tcp" || $self->{proto} eq "stream")
+  {
+    $self->{proto_num} = eval { (getprotobyname('tcp'))[2] } ||
+      croak("Can't get tcp protocol by name");
+    $self->{port_num} = $self->{port}
+      || (getservbyname('echo', 'tcp'))[2]
+      ||  croak("Can't get tcp echo port by name");
+    $self->{fh} = FileHandle->new();
+  }
+  elsif ($self->{proto} eq "syn")
+  {
+    $self->{proto_num} = eval { (getprotobyname('tcp'))[2] } ||
+      croak("Can't get tcp protocol by name");
+    $self->{port_num} = (getservbyname('echo', 'tcp'))[2] ||
+      croak("Can't get tcp echo port by name");
+    if ($syn_forking) {
+      $self->{fork_rd} = FileHandle->new();
+      $self->{fork_wr} = FileHandle->new();
+      pipe($self->{fork_rd}, $self->{fork_wr});
+      $self->{fh} = FileHandle->new();
+      $self->{good} = {};
+      $self->{bad} = {};
+    } else {
+      $self->{wbits} = "";
+      $self->{bad} = {};
+    }
+    $self->{syn} = {};
+    $self->{stop_time} = 0;
+  }
+
+  return($self);
+}
+
+# Description: Set the local IP address from which pings will be sent.
+# For ICMP, UDP and TCP pings, just saves the address to be used when 
+# the socket is opened.  Returns non-zero if successful; croaks on error.
+sub bind
+{
+  my ($self,
+      $local_addr         # Name or IP number of local interface
+      ) = @_;
+  my ($ip,                # Hash of addr (string), addr_in (packed), family
+      $h		  # resolved hash
+      );
+
+  croak("Usage: \$p->bind(\$local_addr)") unless @_ == 2;
+  croak("already bound") if defined($self->{local_addr}) &&
+    ($self->{proto} eq "udp" || $self->{proto} eq "icmp");
+
+  $ip = $self->_resolv($local_addr);
+  croak("nonexistent local address $local_addr") unless defined($ip);
+  $self->{local_addr} = $ip;
+
+  if (($self->{proto} ne "udp") && 
+      ($self->{proto} ne "icmp") && 
+      ($self->{proto} ne "tcp") && 
+      ($self->{proto} ne "syn"))
+  {
+    croak("Unknown protocol \"$self->{proto}\" in bind()");
+  }
+
+  return 1;
+}
+
+# Description: A select() wrapper that compensates for platform
+# peculiarities.
+sub mselect
+{
+    if ($_[3] > 0 and $^O eq 'MSWin32') {
+	# On windows, select() doesn't process the message loop,
+	# but sleep() will, allowing alarm() to interrupt the latter.
+	# So we chop up the timeout into smaller pieces and interleave
+	# select() and sleep() calls.
+	my $t = $_[3];
+	my $gran = 0.5;  # polling granularity in seconds
+	my @args = @_;
+	while (1) {
+	    $gran = $t if $gran > $t;
+	    my $nfound = select($_[0], $_[1], $_[2], $gran);
+	    undef $nfound if $nfound == -1;
+	    $t -= $gran;
+	    return $nfound if $nfound or !defined($nfound) or $t <= 0;
+
+	    sleep(0);
+	    ($_[0], $_[1], $_[2]) = @args;
+	}
+    }
+    else {
+	my $nfound = select($_[0], $_[1], $_[2], $_[3]);
+	undef $nfound if $nfound == -1;
+	return $nfound;
+    }
+}
+
+# Description: Allow UDP source endpoint comparison to be
+#              skipped for those remote interfaces that do
+#              not response from the same endpoint.
+
+sub source_verify
+{
+  my $self = shift;
+  $source_verify = 1 unless defined
+    ($source_verify = ((defined $self) && (ref $self)) ? shift() : $self);
+}
+
+# Description: Set whether or not the connect
+# behavior should enforce remote service
+# availability as well as reachability.
+
+sub service_check
+{
+  my $self = shift;
+  $self->{econnrefused} = 1 unless defined
+    ($self->{econnrefused} = shift());
+}
+
+sub tcp_service_check
+{
+  service_check(@_);
+}
+
+# Description: Set exponential backoff for retransmission.
+# Should be > 1 to retain exponential properties.
+# If set to 0, retransmissions are disabled.
+
+sub retrans
+{
+  my $self = shift;
+  $self->{retrans} = shift;
+}
+
+sub _IsAdminUser {
+  return unless $^O eq 'MSWin32' or $^O eq "cygwin";
+  return unless eval { require Win32 };
+  return unless defined &Win32::IsAdminUser;
+  return Win32::IsAdminUser();
+}
+
+sub _isroot {
+  if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
+    or (($^O eq 'MSWin32' or $^O eq 'cygwin')
+        and !_IsAdminUser())
+    or ($^O eq 'VMS'
+        and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
+      return 0;
+  }
+  else {
+    return 1;
+  }
+}
+
+# Description: Sets ipv6 reachability
+# REACHCONF was removed in RFC3542, ping6 -R supports it. requires root.
+
+sub IPV6_REACHCONF
+{
+  my $self = shift;
+  my $on = shift;
+  if ($on) {
+    my $reachconf = eval { Socket::IPV6_REACHCONF() };
+    if (!$reachconf) {
+      carp "IPV6_REACHCONF not supported on this platform";
+      return 0;
+    }
+    if (!_isroot()) {
+      carp "IPV6_REACHCONF requires root permissions";
+      return 0;
+    }
+    $self->{IPV6_REACHCONF} = 1;
+  }
+  else {
+    return $self->{IPV6_REACHCONF};
+  }
+}
+
+# Description: set it on or off.
+
+sub IPV6_USE_MIN_MTU
+{
+  my $self = shift;
+  my $on = shift;
+  if (defined $on) {
+    my $IPV6_USE_MIN_MTU = eval { Socket::IPV6_USE_MIN_MTU() } || 43;
+    #if (!$IPV6_USE_MIN_MTU) {
+    #  carp "IPV6_USE_MIN_MTU not supported on this platform";
+    #  return 0;
+    #}
+    $self->{IPV6_USE_MIN_MTU} = $on ? 1 : 0;
+    setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_USE_MIN_MTU,
+               pack("I*", $self->{'IPV6_USE_MIN_MT'}))
+      or croak "error configuring IPV6_USE_MIN_MT} $!";
+  }
+  else {
+    return $self->{IPV6_USE_MIN_MTU};
+  }
+}
+
+# Description: notify an according MTU
+
+sub IPV6_RECVPATHMTU
+{
+  my $self = shift;
+  my $on = shift;
+  if ($on) {
+    my $IPV6_RECVPATHMTU = eval { Socket::IPV6_RECVPATHMTU() } || 43;
+    #if (!$RECVPATHMTU) {
+    #  carp "IPV6_RECVPATHMTU not supported on this platform";
+    #  return 0;
+    #}
+    $self->{IPV6_RECVPATHMTU} = 1;
+    setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_RECVPATHMTU,
+               pack("I*", $self->{'IPV6_RECVPATHMTU'}))
+      or croak "error configuring IPV6_RECVPATHMTU} $!";
+  }
+  else {
+    return $self->{IPV6_RECVPATHMTU};
+  }
+}
+
+# Description: allows the module to use milliseconds as returned by
+# the Time::HiRes module
+
+$hires = 1;
+sub hires
+{
+  my $self = shift;
+  $hires = 1 unless defined
+    ($hires = ((defined $self) && (ref $self)) ? shift() : $self);
+}
+
+sub time
+{
+  return $hires ? Time::HiRes::time() : CORE::time();
+}
+
+# Description: Sets or clears the O_NONBLOCK flag on a file handle.
+sub socket_blocking_mode
+{
+  my ($self,
+      $fh,              # the file handle whose flags are to be modified
+      $block) = @_;     # if true then set the blocking
+                        # mode (clear O_NONBLOCK), otherwise
+                        # set the non-blocking mode (set O_NONBLOCK)
+
+  my $flags;
+  if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+      # FIONBIO enables non-blocking sockets on windows and vms.
+      # FIONBIO is (0x80000000|(4<<16)|(ord('f')<<8)|126), as per winsock.h, ioctl.h
+      my $f = 0x8004667e;
+      my $v = pack("L", $block ? 0 : 1);
+      ioctl($fh, $f, $v) or croak("ioctl failed: $!");
+      return;
+  }
+  if ($flags = fcntl($fh, F_GETFL, 0)) {
+    $flags = $block ? ($flags & ~O_NONBLOCK) : ($flags | O_NONBLOCK);
+    if (!fcntl($fh, F_SETFL, $flags)) {
+      croak("fcntl F_SETFL: $!");
+    }
+  } else {
+    croak("fcntl F_GETFL: $!");
+  }
+}
+
+# Description: Ping a host name or IP number with an optional timeout.
+# First lookup the host, and return undef if it is not found.  Otherwise
+# perform the specific ping method based on the protocol.  Return the
+# result of the ping.
+
+sub ping
+{
+  my ($self,
+      $host,              # Name or IP number of host to ping
+      $timeout,           # Seconds after which ping times out
+      $family,            # Address family
+      ) = @_;
+  my ($ip,                # Hash of addr (string), addr_in (packed), family
+      $ret,               # The return value
+      $ping_time,         # When ping began
+      );
+
+  $host = $self->{host} if !defined $host and $self->{host};
+  croak("Usage: \$p->ping([ \$host [, \$timeout [, \$family]]])") if @_ > 4 or !$host;
+  $timeout = $self->{timeout} unless $timeout;
+  croak("Timeout must be greater than 0 seconds") if $timeout <= 0;
+
+  if ($family) {
+    if ($family =~ $qr_family) {
+      if ($family =~ $qr_family4) {
+        $self->{family_local} = AF_INET;
+      } else {
+        $self->{family_local} = $AF_INET6;
+      }
+    } else {
+      croak('Family must be "ipv4" or "ipv6"')
+    }
+  } else {
+    $self->{family_local} = $self->{family};
+  }
+  
+  $ip = $self->_resolv($host);
+  return () unless defined($ip);      # Does host exist?
+
+  # Dispatch to the appropriate routine.
+  $ping_time = &time();
+  if ($self->{proto} eq "external") {
+    $ret = $self->ping_external($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "udp") {
+    $ret = $self->ping_udp($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "icmp") {
+    $ret = $self->ping_icmp($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "icmpv6") {
+    $ret = $self->ping_icmpv6($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "tcp") {
+    $ret = $self->ping_tcp($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "stream") {
+    $ret = $self->ping_stream($ip, $timeout);
+  }
+  elsif ($self->{proto} eq "syn") {
+    $ret = $self->ping_syn($host, $ip, $ping_time, $ping_time+$timeout);
+  } else {
+    croak("Unknown protocol \"$self->{proto}\" in ping()");
+  }
+
+  return wantarray ? ($ret, &time() - $ping_time, $self->ntop($ip)) : $ret;
+}
+
+# Uses Net::Ping::External to do an external ping.
+sub ping_external {
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout,           # Seconds after which ping times out
+      $family
+     ) = @_;
+
+  $ip = $self->{host} if !defined $ip and $self->{host};
+  $timeout = $self->{timeout} if !defined $timeout and $self->{timeout};
+  my @addr = exists $ip->{addr_in}
+    ? ('ip' => $ip->{addr_in})
+    : ('host' => $ip->{host});
+
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Net::Ping::External;
+  } or croak('Protocol "external" not supported on your system: Net::Ping::External not found');
+  return Net::Ping::External::ping(@addr, timeout => $timeout,
+                                   family => $family);
+}
+
+# h2ph "asm/socket.h"
+# require "asm/socket.ph";
+use constant SO_BINDTODEVICE  => 25;
+use constant ICMP_ECHOREPLY   => 0; # ICMP packet types
+use constant ICMPv6_ECHOREPLY => 129; # ICMP packet types
+use constant ICMP_UNREACHABLE => 3; # ICMP packet types
+use constant ICMPv6_UNREACHABLE => 1; # ICMP packet types
+use constant ICMP_ECHO        => 8;
+use constant ICMPv6_ECHO      => 128;
+use constant ICMP_TIME_EXCEEDED => 11; # ICMP packet types
+use constant ICMP_PARAMETER_PROBLEM => 12; # ICMP packet types
+use constant ICMP_STRUCT      => "C2 n3 A"; # Structure of a minimal ICMP packet
+use constant SUBCODE          => 0; # No ICMP subcode for ECHO and ECHOREPLY
+use constant ICMP_FLAGS       => 0; # No special flags for send or recv
+use constant ICMP_PORT        => 0; # No port with ICMP
+use constant IP_MTU_DISCOVER  => 10; # linux only
+
+sub ping_icmp
+{
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  my ($saddr,             # sockaddr_in with port and ip
+      $checksum,          # Checksum of ICMP packet
+      $msg,               # ICMP packet to send
+      $len_msg,           # Length of $msg
+      $rbits,             # Read bits, filehandles for reading
+      $nfound,            # Number of ready filehandles found
+      $finish_time,       # Time ping should be finished
+      $done,              # set to 1 when we are done
+      $ret,               # Return value
+      $recv_msg,          # Received message including IP header
+      $from_saddr,        # sockaddr_in of sender
+      $from_port,         # Port packet was sent from
+      $from_ip,           # Packed IP of sender
+      $from_type,         # ICMP type
+      $from_subcode,      # ICMP subcode
+      $from_chk,          # ICMP packet checksum
+      $from_pid,          # ICMP packet id
+      $from_seq,          # ICMP packet sequence
+      $from_msg           # ICMP message
+      );
+
+  $ip = $self->{host} if !defined $ip and $self->{host};
+  $timeout = $self->{timeout} if !defined $timeout and $self->{timeout};
+
+  socket($self->{fh}, $ip->{family}, SOCK_RAW, $self->{proto_num}) ||
+    croak("icmp socket error - $!");
+
+  if (defined $self->{local_addr} &&
+      !CORE::bind($self->{fh}, _pack_sockaddr_in(0, $self->{local_addr}))) {
+    croak("icmp bind error - $!");
+  }
+  $self->_setopts();
+
+  $self->{seq} = ($self->{seq} + 1) % 65536; # Increment sequence
+  $checksum = 0;                          # No checksum for starters
+  if ($ip->{family} == AF_INET) {
+    $msg = pack(ICMP_STRUCT . $self->{data_size}, ICMP_ECHO, SUBCODE,
+                $checksum, $self->{pid}, $self->{seq}, $self->{data});
+  } else {
+                                          # how to get SRC
+    my $pseudo_header = pack('a16a16Nnn', $ip->{addr_in}, $ip->{addr_in}, 8+length($self->{data}), "\0", 0x003a);
+    $msg = pack(ICMP_STRUCT . $self->{data_size}, ICMPv6_ECHO, SUBCODE,
+                $checksum, $self->{pid}, $self->{seq}, $self->{data});
+    $msg = $pseudo_header.$msg
+  }
+  $checksum = Net::Ping->checksum($msg);
+  if ($ip->{family} == AF_INET) {
+    $msg = pack(ICMP_STRUCT . $self->{data_size}, ICMP_ECHO, SUBCODE,
+                $checksum, $self->{pid}, $self->{seq}, $self->{data});
+  } else {
+    $msg = pack(ICMP_STRUCT . $self->{data_size}, ICMPv6_ECHO, SUBCODE,
+                $checksum, $self->{pid}, $self->{seq}, $self->{data});
+  }
+  $len_msg = length($msg);
+  $saddr = _pack_sockaddr_in(ICMP_PORT, $ip);
+  $self->{from_ip} = undef;
+  $self->{from_type} = undef;
+  $self->{from_subcode} = undef;
+  send($self->{fh}, $msg, ICMP_FLAGS, $saddr); # Send the message
+
+  $rbits = "";
+  vec($rbits, $self->{fh}->fileno(), 1) = 1;
+  $ret = 0;
+  $done = 0;
+  $finish_time = &time() + $timeout;      # Must be done by this time
+  while (!$done && $timeout > 0)          # Keep trying if we have time
+  {
+    $nfound = mselect((my $rout=$rbits), undef, undef, $timeout); # Wait for packet
+    $timeout = $finish_time - &time();    # Get remaining time
+    if (!defined($nfound))                # Hmm, a strange error
+    {
+      $ret = undef;
+      $done = 1;
+    }
+    elsif ($nfound)                     # Got a packet from somewhere
+    {
+      $recv_msg = "";
+      $from_pid = -1;
+      $from_seq = -1;
+      $from_saddr = recv($self->{fh}, $recv_msg, 1500, ICMP_FLAGS);
+      ($from_port, $from_ip) = _unpack_sockaddr_in($from_saddr, $ip->{family});
+      ($from_type, $from_subcode) = unpack("C2", substr($recv_msg, 20, 2));
+      if ($from_type == ICMP_ECHOREPLY) {
+        ($from_pid, $from_seq) = unpack("n3", substr($recv_msg, 24, 4))
+          if length $recv_msg >= 28;
+      } elsif ($from_type == ICMPv6_ECHOREPLY) {
+        ($from_pid, $from_seq) = unpack("n3", substr($recv_msg, 24, 4))
+          if length $recv_msg >= 28;
+      } else {
+        ($from_pid, $from_seq) = unpack("n3", substr($recv_msg, 52, 4))
+          if length $recv_msg >= 56;
+      }
+      $self->{from_ip} = $from_ip;
+      $self->{from_type} = $from_type;
+      $self->{from_subcode} = $from_subcode;
+      next if ($from_pid != $self->{pid});
+      next if ($from_seq != $self->{seq});
+      if (! $source_verify || ($self->ntop($from_ip) eq $self->ntop($ip))) { # Does the packet check out?
+        if (($from_type == ICMP_ECHOREPLY) || ($from_type == ICMPv6_ECHOREPLY)) {
+          $ret = 1;
+          $done = 1;
+        } elsif (($from_type == ICMP_UNREACHABLE) || ($from_type == ICMPv6_UNREACHABLE)) {
+          $done = 1;
+        } elsif ($from_type == ICMP_TIME_EXCEEDED) {
+          $ret = 0;
+          $done = 1;
+        }
+      }
+    } else {     # Oops, timed out
+      $done = 1;
+    }
+  }
+  return $ret;
+}
+
+sub ping_icmpv6
+{
+  shift->ping_icmp(@_);
+}
+
+sub icmp_result {
+  my ($self) = @_;
+  my $addr = $self->{from_ip} || "";
+  $addr = "\0\0\0\0" unless 4 == length $addr;
+  return ($self->ntop($addr),($self->{from_type} || 0), ($self->{from_subcode} || 0));
+}
+
+# Description:  Do a checksum on the message.  Basically sum all of
+# the short words and fold the high order bits into the low order bits.
+
+sub checksum
+{
+  my ($class,
+      $msg            # The message to checksum
+      ) = @_;
+  my ($len_msg,       # Length of the message
+      $num_short,     # The number of short words in the message
+      $short,         # One short word
+      $chk            # The checksum
+      );
+
+  $len_msg = length($msg);
+  $num_short = int($len_msg / 2);
+  $chk = 0;
+  foreach $short (unpack("n$num_short", $msg))
+  {
+    $chk += $short;
+  }                                           # Add the odd byte in
+  $chk += (unpack("C", substr($msg, $len_msg - 1, 1)) << 8) if $len_msg % 2;
+  $chk = ($chk >> 16) + ($chk & 0xffff);      # Fold high into low
+  return(~(($chk >> 16) + $chk) & 0xffff);    # Again and complement
+}
+
+
+# Description:  Perform a tcp echo ping.  Since a tcp connection is
+# host specific, we have to open and close each connection here.  We
+# can't just leave a socket open.  Because of the robust nature of
+# tcp, it will take a while before it gives up trying to establish a
+# connection.  Therefore, we use select() on a non-blocking socket to
+# check against our timeout.  No data bytes are actually
+# sent since the successful establishment of a connection is proof
+# enough of the reachability of the remote host.  Also, tcp is
+# expensive and doesn't need our help to add to the overhead.
+
+sub ping_tcp
+{
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+  my ($ret                # The return value
+      );
+
+  $ip = $self->{host} if !defined $ip and $self->{host};
+  $timeout = $self->{timeout} if !defined $timeout and $self->{timeout};
+
+  $! = 0;
+  $ret = $self -> tcp_connect( $ip, $timeout);
+  if (!$self->{econnrefused} &&
+      $! == ECONNREFUSED) {
+    $ret = 1;  # "Connection refused" means reachable
+  }
+  $self->{fh}->close();
+  return $ret;
+}
+
+sub tcp_connect
+{
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout            # Seconds after which connect times out
+      ) = @_;
+  my ($saddr);            # Packed IP and Port
+
+  $ip = $self->{host} if !defined $ip and $self->{host};
+  $timeout = $self->{timeout} if !defined $timeout and $self->{timeout};
+
+  $saddr = _pack_sockaddr_in($self->{port_num}, $ip);
+
+  my $ret = 0;            # Default to unreachable
+
+  my $do_socket = sub {
+    socket($self->{fh}, $ip->{family}, SOCK_STREAM, $self->{proto_num}) ||
+      croak("tcp socket error - $!");
+    if (defined $self->{local_addr} &&
+        !CORE::bind($self->{fh}, _pack_sockaddr_in(0, $self->{local_addr}))) {
+      croak("tcp bind error - $!");
+    }
+    $self->_setopts();
+  };
+  my $do_connect = sub {
+    $self->{ip} = $ip->{addr_in};
+    # ECONNREFUSED is 10061 on MSWin32. If we pass it as child error through $?,
+    # we'll get (10061 & 255) = 77, so we cannot check it in the parent process.
+    return ($ret = connect($self->{fh}, $saddr) || ($! == ECONNREFUSED && !$self->{econnrefused}));
+  };
+  my $do_connect_nb = sub {
+    # Set O_NONBLOCK property on filehandle
+    $self->socket_blocking_mode($self->{fh}, 0);
+
+    # start the connection attempt
+    if (!connect($self->{fh}, $saddr)) {
+      if ($! == ECONNREFUSED) {
+        $ret = 1 unless $self->{econnrefused};
+      } elsif ($! != EINPROGRESS && ($^O ne 'MSWin32' || $! != EWOULDBLOCK)) {
+        # EINPROGRESS is the expected error code after a connect()
+        # on a non-blocking socket.  But if the kernel immediately
+        # determined that this connect() will never work,
+        # Simply respond with "unreachable" status.
+        # (This can occur on some platforms with errno
+        # EHOSTUNREACH or ENETUNREACH.)
+        return 0;
+      } else {
+        # Got the expected EINPROGRESS.
+        # Just wait for connection completion...
+        my ($wbits, $wout, $wexc);
+        $wout = $wexc = $wbits = "";
+        vec($wbits, $self->{fh}->fileno, 1) = 1;
+
+        my $nfound = mselect(undef,
+			    ($wout = $wbits),
+			    ($^O eq 'MSWin32' ? ($wexc = $wbits) : undef),
+			    $timeout);
+        warn("select: $!") unless defined $nfound;
+
+        if ($nfound && vec($wout, $self->{fh}->fileno, 1)) {
+          # the socket is ready for writing so the connection
+          # attempt completed. test whether the connection
+          # attempt was successful or not
+
+          if (getpeername($self->{fh})) {
+            # Connection established to remote host
+            $ret = 1;
+          } else {
+            # TCP ACK will never come from this host
+            # because there was an error connecting.
+
+            # This should set $! to the correct error.
+            my $char;
+            sysread($self->{fh},$char,1);
+            $! = ECONNREFUSED if ($! == EAGAIN && $^O =~ /cygwin/i);
+
+            $ret = 1 if (!$self->{econnrefused}
+                         && $! == ECONNREFUSED);
+          }
+        } else {
+          # the connection attempt timed out (or there were connect
+	  # errors on Windows)
+	  if ($^O =~ 'MSWin32') {
+	      # If the connect will fail on a non-blocking socket,
+	      # winsock reports ECONNREFUSED as an exception, and we
+	      # need to fetch the socket-level error code via getsockopt()
+	      # instead of using the thread-level error code that is in $!.
+	      if ($nfound && vec($wexc, $self->{fh}->fileno, 1)) {
+		  $! = unpack("i", getsockopt($self->{fh}, SOL_SOCKET,
+			                      SO_ERROR));
+	      }
+	  }
+        }
+      }
+    } else {
+      # Connection established to remote host
+      $ret = 1;
+    }
+
+    # Unset O_NONBLOCK property on filehandle
+    $self->socket_blocking_mode($self->{fh}, 1);
+    $self->{ip} = $ip->{addr_in};
+    return $ret;
+  };
+
+  if ($syn_forking) {
+    # Buggy Winsock API doesn't allow nonblocking connect.
+    # Hence, if our OS is Windows, we need to create a separate
+    # process to do the blocking connect attempt.
+    # XXX Above comments are not true at least for Win2K, where
+    # nonblocking connect works.
+
+    $| = 1; # Clear buffer prior to fork to prevent duplicate flushing.
+    $self->{'tcp_chld'} = fork;
+    if (!$self->{'tcp_chld'}) {
+      if (!defined $self->{'tcp_chld'}) {
+        # Fork did not work
+        warn "Fork error: $!";
+        return 0;
+      }
+      &{ $do_socket }();
+
+      # Try a slow blocking connect() call
+      # and report the status to the parent.
+      if ( &{ $do_connect }() ) {
+        $self->{fh}->close();
+        # No error
+        exit 0;
+      } else {
+        # Pass the error status to the parent
+        # Make sure that $! <= 255
+        exit($! <= 255 ? $! : 255);
+      }
+    }
+
+    &{ $do_socket }();
+
+    my $patience = &time() + $timeout;
+
+    my ($child, $child_errno);
+    $? = 0; $child_errno = 0;
+    # Wait up to the timeout
+    # And clean off the zombie
+    do {
+      $child = waitpid($self->{'tcp_chld'}, &WNOHANG());
+      $child_errno = $? >> 8;
+      select(undef, undef, undef, 0.1);
+    } while &time() < $patience && $child != $self->{'tcp_chld'};
+
+    if ($child == $self->{'tcp_chld'}) {
+      if ($self->{proto} eq "stream") {
+        # We need the socket connected here, in parent
+        # Should be safe to connect because the child finished
+        # within the timeout
+        &{ $do_connect }();
+      }
+      # $ret cannot be set by the child process
+      $ret = !$child_errno;
+    } else {
+      # Time must have run out.
+      # Put that choking client out of its misery
+      kill "KILL", $self->{'tcp_chld'};
+      # Clean off the zombie
+      waitpid($self->{'tcp_chld'}, 0);
+      $ret = 0;
+    }
+    delete $self->{'tcp_chld'};
+    $! = $child_errno;
+  } else {
+    # Otherwise don't waste the resources to fork
+
+    &{ $do_socket }();
+
+    &{ $do_connect_nb }();
+  }
+
+  return $ret;
+}
+
+sub DESTROY {
+  my $self = shift;
+  if ($self->{'proto'} eq 'tcp' &&
+      $self->{'tcp_chld'}) {
+    # Put that choking client out of its misery
+    kill "KILL", $self->{'tcp_chld'};
+    # Clean off the zombie
+    waitpid($self->{'tcp_chld'}, 0);
+  }
+}
+
+# This writes the given string to the socket and then reads it
+# back.  It returns 1 on success, 0 on failure.
+sub tcp_echo
+{
+  my ($self, $timeout, $pingstring) = @_;
+
+  $timeout = $self->{timeout} if !defined $timeout and $self->{timeout};
+  $pingstring = $self->{pingstring} if !defined $pingstring and $self->{pingstring};
+
+  my $ret = undef;
+  my $time = &time();
+  my $wrstr = $pingstring;
+  my $rdstr = "";
+
+  eval <<'EOM';
+    do {
+      my $rin = "";
+      vec($rin, $self->{fh}->fileno(), 1) = 1;
+
+      my $rout = undef;
+      if($wrstr) {
+        $rout = "";
+        vec($rout, $self->{fh}->fileno(), 1) = 1;
+      }
+
+      if(mselect($rin, $rout, undef, ($time + $timeout) - &time())) {
+
+        if($rout && vec($rout,$self->{fh}->fileno(),1)) {
+          my $num = syswrite($self->{fh}, $wrstr, length $wrstr);
+          if($num) {
+            # If it was a partial write, update and try again.
+            $wrstr = substr($wrstr,$num);
+          } else {
+            # There was an error.
+            $ret = 0;
+          }
+        }
+
+        if(vec($rin,$self->{fh}->fileno(),1)) {
+          my $reply;
+          if(sysread($self->{fh},$reply,length($pingstring)-length($rdstr))) {
+            $rdstr .= $reply;
+            $ret = 1 if $rdstr eq $pingstring;
+          } else {
+            # There was an error.
+            $ret = 0;
+          }
+        }
+
+      }
+    } until &time() > ($time + $timeout) || defined($ret);
+EOM
+
+  return $ret;
+}
+
+# Description: Perform a stream ping.  If the tcp connection isn't
+# already open, it opens it.  It then sends some data and waits for
+# a reply.  It leaves the stream open on exit.
+
+sub ping_stream
+{
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  # Open the stream if it's not already open
+  if(!defined $self->{fh}->fileno()) {
+    $self->tcp_connect($ip, $timeout) or return 0;
+  }
+
+  croak "tried to switch servers while stream pinging"
+    if $self->{ip} ne $ip->{addr_in};
+
+  return $self->tcp_echo($timeout, $pingstring);
+}
+
+# Description: opens the stream.  You would do this if you want to
+# separate the overhead of opening the stream from the first ping.
+
+sub open
+{
+  my ($self,
+      $host,              # Host or IP address
+      $timeout,           # Seconds after which open times out
+      $family
+      ) = @_;
+  my $ip;                 # Hash of addr (string), addr_in (packed), family
+  $host = $self->{host} unless defined $host;
+
+  if ($family) {
+    if ($family =~ $qr_family) {
+      if ($family =~ $qr_family4) {
+        $self->{family_local} = AF_INET;
+      } else {
+        $self->{family_local} = $AF_INET6;
+      }
+    } else {
+      croak('Family must be "ipv4" or "ipv6"')
+    }
+  } else {
+    $self->{family_local} = $self->{family};
+  }
+
+  $ip = $self->_resolv($host);
+  $timeout = $self->{timeout} unless $timeout;
+
+  if($self->{proto} eq "stream") {
+    if(defined($self->{fh}->fileno())) {
+      croak("socket is already open");
+    } else {
+      $self->tcp_connect($ip, $timeout);
+    }
+  }
+}
+
+sub _dontfrag {
+  my $self = shift;
+  # bsd solaris
+  my $IP_DONTFRAG = eval { Socket::IP_DONTFRAG() };
+  if ($IP_DONTFRAG) {
+    my $i = 1;
+    setsockopt($self->{fh}, IPPROTO_IP, $IP_DONTFRAG, pack("I*", $i))
+      or croak "error configuring IP_DONTFRAG $!";
+    # Linux needs more: Path MTU Discovery as defined in RFC 1191
+    # For non SOCK_STREAM sockets it is the user's responsibility to packetize
+    # the data in MTU sized chunks and to do the retransmits if necessary.
+    # The kernel will reject packets that are bigger than the known path
+    # MTU if this flag is set (with EMSGSIZE).
+    if ($^O eq 'linux') {
+      my $i = 2; # IP_PMTUDISC_DO
+      setsockopt($self->{fh}, IPPROTO_IP, IP_MTU_DISCOVER, pack("I*", $i))
+        or croak "error configuring IP_MTU_DISCOVER $!";
+    }
+  }
+}
+
+# SO_BINDTODEVICE + IP_TOS
+sub _setopts {
+  my $self = shift;
+  if ($self->{'device'}) {
+    setsockopt($self->{fh}, SOL_SOCKET, SO_BINDTODEVICE, pack("Z*", $self->{'device'}))
+      or croak "error binding to device $self->{'device'} $!";
+  }
+  if ($self->{'tos'}) { # need to re-apply ToS (RT #6706)
+    setsockopt($self->{fh}, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+      or croak "error applying tos to $self->{'tos'} $!";
+  }
+  if ($self->{'dontfrag'}) {
+    $self->_dontfrag;
+  }
+}  
+
+
+# Description:  Perform a udp echo ping.  Construct a message of
+# at least the one-byte sequence number and any additional data bytes.
+# Send the message out and wait for a message to come back.  If we
+# get a message, make sure all of its parts match.  If they do, we are
+# done.  Otherwise go back and wait for the message until we run out
+# of time.  Return the result of our efforts.
+
+use constant UDP_FLAGS => 0; # Nothing special on send or recv
+sub ping_udp
+{
+  my ($self,
+      $ip,                # Hash of addr (string), addr_in (packed), family
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  my ($saddr,             # sockaddr_in with port and ip
+      $ret,               # The return value
+      $msg,               # Message to be echoed
+      $finish_time,       # Time ping should be finished
+      $flush,             # Whether socket needs to be disconnected
+      $connect,           # Whether socket needs to be connected
+      $done,              # Set to 1 when we are done pinging
+      $rbits,             # Read bits, filehandles for reading
+      $nfound,            # Number of ready filehandles found
+      $from_saddr,        # sockaddr_in of sender
+      $from_msg,          # Characters echoed by $host
+      $from_port,         # Port message was echoed from
+      $from_ip            # Packed IP number of sender
+      );
+
+  $saddr = _pack_sockaddr_in($self->{port_num}, $ip);
+  $self->{seq} = ($self->{seq} + 1) % 256;    # Increment sequence
+  $msg = chr($self->{seq}) . $self->{data};   # Add data if any
+
+  socket($self->{fh}, $ip->{family}, SOCK_DGRAM,
+         $self->{proto_num}) ||
+           croak("udp socket error - $!");
+
+  if (defined $self->{local_addr} &&
+      !CORE::bind($self->{fh}, _pack_sockaddr_in(0, $self->{local_addr}))) {
+    croak("udp bind error - $!");
+  }
+
+  $self->_setopts();
+
+  if ($self->{connected}) {
+    if ($self->{connected} ne $saddr) {
+      # Still connected to wrong destination.
+      # Need to flush out the old one.
+      $flush = 1;
+    }
+  } else {
+    # Not connected yet.
+    # Need to connect() before send()
+    $connect = 1;
+  }
+
+  # Have to connect() and send() instead of sendto()
+  # in order to pick up on the ECONNREFUSED setting
+  # from recv() or double send() errno as utilized in
+  # the concept by rdw @ perlmonks.  See:
+  # http://perlmonks.thepen.com/42898.html
+  if ($flush) {
+    # Need to socket() again to flush the descriptor
+    # This will disconnect from the old saddr.
+    socket($self->{fh}, $ip->{family}, SOCK_DGRAM,
+           $self->{proto_num});
+    $self->_setopts();
+  }
+  # Connect the socket if it isn't already connected
+  # to the right destination.
+  if ($flush || $connect) {
+    connect($self->{fh}, $saddr);               # Tie destination to socket
+    $self->{connected} = $saddr;
+  }
+  send($self->{fh}, $msg, UDP_FLAGS);           # Send it
+
+  $rbits = "";
+  vec($rbits, $self->{fh}->fileno(), 1) = 1;
+  $ret = 0;                   # Default to unreachable
+  $done = 0;
+  my $retrans = 0.01;
+  my $factor = $self->{retrans};
+  $finish_time = &time() + $timeout;       # Ping needs to be done by then
+  while (!$done && $timeout > 0)
+  {
+    if ($factor > 1)
+    {
+      $timeout = $retrans if $timeout > $retrans;
+      $retrans*= $factor; # Exponential backoff
+    }
+    $nfound  = mselect((my $rout=$rbits), undef, undef, $timeout); # Wait for response
+    my $why = $!;
+    $timeout = $finish_time - &time();   # Get remaining time
+
+    if (!defined($nfound))  # Hmm, a strange error
+    {
+      $ret = undef;
+      $done = 1;
+    }
+    elsif ($nfound)         # A packet is waiting
+    {
+      $from_msg = "";
+      $from_saddr = recv($self->{fh}, $from_msg, 1500, UDP_FLAGS);
+      if (!$from_saddr) {
+        # For example an unreachable host will make recv() fail.
+        if (!$self->{econnrefused} &&
+            ($! == ECONNREFUSED ||
+             $! == ECONNRESET)) {
+          # "Connection refused" means reachable
+          # Good, continue
+          $ret = 1;
+        }
+        $done = 1;
+      } else {
+        ($from_port, $from_ip) = _unpack_sockaddr_in($from_saddr, $ip->{family});
+        my $addr_in = ref($ip) eq "HASH" ? $ip->{addr_in} : $ip;
+        if (!$source_verify ||
+            (($from_ip eq $addr_in) &&        # Does the packet check out?
+             ($from_port == $self->{port_num}) &&
+             ($from_msg eq $msg)))
+        {
+          $ret = 1;       # It's a winner
+          $done = 1;
+        }
+      }
+    }
+    elsif ($timeout <= 0)              # Oops, timed out
+    {
+      $done = 1;
+    }
+    else
+    {
+      # Send another in case the last one dropped
+      if (send($self->{fh}, $msg, UDP_FLAGS)) {
+        # Another send worked?  The previous udp packet
+        # must have gotten lost or is still in transit.
+        # Hopefully this new packet will arrive safely.
+      } else {
+        if (!$self->{econnrefused} &&
+            $! == ECONNREFUSED) {
+          # "Connection refused" means reachable
+          # Good, continue
+          $ret = 1;
+        }
+        $done = 1;
+      }
+    }
+  }
+  return $ret;
+}
+
+# Description: Send a TCP SYN packet to host specified.
+sub ping_syn
+{
+  my $self = shift;
+  my $host = shift;
+  my $ip = shift;
+  my $start_time = shift;
+  my $stop_time = shift;
+
+  if ($syn_forking) {
+    return $self->ping_syn_fork($host, $ip, $start_time, $stop_time);
+  }
+
+  my $fh = FileHandle->new();
+  my $saddr = _pack_sockaddr_in($self->{port_num}, $ip);
+
+  # Create TCP socket
+  if (!socket ($fh, $ip->{family}, SOCK_STREAM, $self->{proto_num})) {
+    croak("tcp socket error - $!");
+  }
+
+  if (defined $self->{local_addr} &&
+      !CORE::bind($fh, _pack_sockaddr_in(0, $self->{local_addr}))) {
+    croak("tcp bind error - $!");
+  }
+
+  $self->_setopts();
+  # Set O_NONBLOCK property on filehandle
+  $self->socket_blocking_mode($fh, 0);
+
+  # Attempt the non-blocking connect
+  # by just sending the TCP SYN packet
+  if (connect($fh, $saddr)) {
+    # Non-blocking, yet still connected?
+    # Must have connected very quickly,
+    # or else it wasn't very non-blocking.
+    #warn "WARNING: Nonblocking connect connected anyway? ($^O)";
+  } else {
+    # Error occurred connecting.
+    if ($! == EINPROGRESS || ($^O eq 'MSWin32' && $! == EWOULDBLOCK)) {
+      # The connection is just still in progress.
+      # This is the expected condition.
+    } else {
+      # Just save the error and continue on.
+      # The ack() can check the status later.
+      $self->{bad}->{$host} = $!;
+    }
+  }
+
+  my $entry = [ $host, $ip, $fh, $start_time, $stop_time, $self->{port_num} ];
+  $self->{syn}->{$fh->fileno} = $entry;
+  if ($self->{stop_time} < $stop_time) {
+    $self->{stop_time} = $stop_time;
+  }
+  vec($self->{wbits}, $fh->fileno, 1) = 1;
+
+  return 1;
+}
+
+sub ping_syn_fork {
+  my ($self, $host, $ip, $start_time, $stop_time) = @_;
+
+  # Buggy Winsock API doesn't allow nonblocking connect.
+  # Hence, if our OS is Windows, we need to create a separate
+  # process to do the blocking connect attempt.
+  my $pid = fork();
+  if (defined $pid) {
+    if ($pid) {
+      # Parent process
+      my $entry = [ $host, $ip, $pid, $start_time, $stop_time ];
+      $self->{syn}->{$pid} = $entry;
+      if ($self->{stop_time} < $stop_time) {
+        $self->{stop_time} = $stop_time;
+      }
+    } else {
+      # Child process
+      my $saddr = _pack_sockaddr_in($self->{port_num}, $ip);
+
+      # Create TCP socket
+      if (!socket ($self->{fh}, $ip->{family}, SOCK_STREAM, $self->{proto_num})) {
+        croak("tcp socket error - $!");
+      }
+
+      if (defined $self->{local_addr} &&
+          !CORE::bind($self->{fh}, _pack_sockaddr_in(0, $self->{local_addr}))) {
+        croak("tcp bind error - $!");
+      }
+
+      $self->_setopts();
+
+      $!=0;
+      # Try to connect (could take a long time)
+      connect($self->{fh}, $saddr);
+      # Notify parent of connect error status
+      my $err = $!+0;
+      my $wrstr = "$$ $err";
+      # Force to 16 chars including \n
+      $wrstr .= " "x(15 - length $wrstr). "\n";
+      syswrite($self->{fork_wr}, $wrstr, length $wrstr);
+      exit;
+    }
+  } else {
+    # fork() failed?
+    die "fork: $!";
+  }
+  return 1;
+}
+
+# Description: Wait for TCP ACK from host specified
+# from ping_syn above.  If no host is specified, wait
+# for TCP ACK from any of the hosts in the SYN queue.
+sub ack
+{
+  my $self = shift;
+
+  if ($self->{proto} eq "syn") {
+    if ($syn_forking) {
+      my @answer = $self->ack_unfork(shift);
+      return wantarray ? @answer : $answer[0];
+    }
+    my $wbits = "";
+    my $stop_time = 0;
+    if (my $host = shift or $self->{host}) {
+      # Host passed as arg or as option to new
+      $host = $self->{host} unless defined $host;
+      if (exists $self->{bad}->{$host}) {
+        if (!$self->{econnrefused} &&
+            $self->{bad}->{ $host } &&
+            (($! = ECONNREFUSED)>0) &&
+            $self->{bad}->{ $host } eq "$!") {
+          # "Connection refused" means reachable
+          # Good, continue
+        } else {
+          # ECONNREFUSED means no good
+          return ();
+        }
+      }
+      my $host_fd = undef;
+      foreach my $fd (keys %{ $self->{syn} }) {
+        my $entry = $self->{syn}->{$fd};
+        if ($entry->[0] eq $host) {
+          $host_fd = $fd;
+          $stop_time = $entry->[4]
+            || croak("Corrupted SYN entry for [$host]");
+          last;
+        }
+      }
+      croak("ack called on [$host] without calling ping first!")
+        unless defined $host_fd;
+      vec($wbits, $host_fd, 1) = 1;
+    } else {
+      # No $host passed so scan all hosts
+      # Use the latest stop_time
+      $stop_time = $self->{stop_time};
+      # Use all the bits
+      $wbits = $self->{wbits};
+    }
+
+    while ($wbits !~ /^\0*\z/) {
+      my $timeout = $stop_time - &time();
+      # Force a minimum of 10 ms timeout.
+      $timeout = 0.01 if $timeout <= 0.01;
+
+      my $winner_fd = undef;
+      my $wout = $wbits;
+      my $fd = 0;
+      # Do "bad" fds from $wbits first
+      while ($wout !~ /^\0*\z/) {
+        if (vec($wout, $fd, 1)) {
+          # Wipe it from future scanning.
+          vec($wout, $fd, 1) = 0;
+          if (my $entry = $self->{syn}->{$fd}) {
+            if ($self->{bad}->{ $entry->[0] }) {
+              $winner_fd = $fd;
+              last;
+            }
+          }
+        }
+        $fd++;
+      }
+
+      if (defined($winner_fd) or my $nfound = mselect(undef, ($wout=$wbits), undef, $timeout)) {
+        if (defined $winner_fd) {
+          $fd = $winner_fd;
+        } else {
+          # Done waiting for one of the ACKs
+          $fd = 0;
+          # Determine which one
+          while ($wout !~ /^\0*\z/ &&
+                 !vec($wout, $fd, 1)) {
+            $fd++;
+          }
+        }
+        if (my $entry = $self->{syn}->{$fd}) {
+          # Wipe it from future scanning.
+          delete $self->{syn}->{$fd};
+          vec($self->{wbits}, $fd, 1) = 0;
+          vec($wbits, $fd, 1) = 0;
+          if (!$self->{econnrefused} &&
+              $self->{bad}->{ $entry->[0] } &&
+              (($! = ECONNREFUSED)>0) &&
+              $self->{bad}->{ $entry->[0] } eq "$!") {
+            # "Connection refused" means reachable
+            # Good, continue
+          } elsif (getpeername($entry->[2])) {
+            # Connection established to remote host
+            # Good, continue
+          } else {
+            # TCP ACK will never come from this host
+            # because there was an error connecting.
+
+            # This should set $! to the correct error.
+            my $char;
+            sysread($entry->[2],$char,1);
+            # Store the excuse why the connection failed.
+            $self->{bad}->{$entry->[0]} = $!;
+            if (!$self->{econnrefused} &&
+                (($! == ECONNREFUSED) ||
+                 ($! == EAGAIN && $^O =~ /cygwin/i))) {
+              # "Connection refused" means reachable
+              # Good, continue
+            } else {
+              # No good, try the next socket...
+              next;
+            }
+          }
+          # Everything passed okay, return the answer
+          return wantarray ?
+            ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]), $entry->[5])
+            : $entry->[0];
+        } else {
+          warn "Corrupted SYN entry: unknown fd [$fd] ready!";
+          vec($wbits, $fd, 1) = 0;
+          vec($self->{wbits}, $fd, 1) = 0;
+        }
+      } elsif (defined $nfound) {
+        # Timed out waiting for ACK
+        foreach my $fd (keys %{ $self->{syn} }) {
+          if (vec($wbits, $fd, 1)) {
+            my $entry = $self->{syn}->{$fd};
+            $self->{bad}->{$entry->[0]} = "Timed out";
+            vec($wbits, $fd, 1) = 0;
+            vec($self->{wbits}, $fd, 1) = 0;
+            delete $self->{syn}->{$fd};
+          }
+        }
+      } else {
+        # Weird error occurred with select()
+        warn("select: $!");
+        $self->{syn} = {};
+        $wbits = "";
+      }
+    }
+  }
+  return ();
+}
+
+sub ack_unfork {
+  my ($self,$host) = @_;
+  my $stop_time = $self->{stop_time};
+  if ($host) {
+    # Host passed as arg
+    if (my $entry = $self->{good}->{$host}) {
+      delete $self->{good}->{$host};
+      return ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]));
+    }
+  }
+
+  my $rbits = "";
+  my $timeout;
+
+  if (keys %{ $self->{syn} }) {
+    # Scan all hosts that are left
+    vec($rbits, fileno($self->{fork_rd}), 1) = 1;
+    $timeout = $stop_time - &time();
+    # Force a minimum of 10 ms timeout.
+    $timeout = 0.01 if $timeout < 0.01;
+  } else {
+    # No hosts left to wait for
+    $timeout = 0;
+  }
+
+  if ($timeout > 0) {
+    my $nfound;
+    while ( keys %{ $self->{syn} } and
+           $nfound = mselect((my $rout=$rbits), undef, undef, $timeout)) {
+      # Done waiting for one of the ACKs
+      if (!sysread($self->{fork_rd}, $_, 16)) {
+        # Socket closed, which means all children are done.
+        return ();
+      }
+      my ($pid, $how) = split;
+      if ($pid) {
+        # Flush the zombie
+        waitpid($pid, 0);
+        if (my $entry = $self->{syn}->{$pid}) {
+          # Connection attempt to remote host is done
+          delete $self->{syn}->{$pid};
+          if (!$how || # If there was no error connecting
+              (!$self->{econnrefused} &&
+               $how == ECONNREFUSED)) {  # "Connection refused" means reachable
+            if ($host && $entry->[0] ne $host) {
+              # A good connection, but not the host we need.
+              # Move it from the "syn" hash to the "good" hash.
+              $self->{good}->{$entry->[0]} = $entry;
+              # And wait for the next winner
+              next;
+            }
+            return ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]));
+          }
+        } else {
+          # Should never happen
+          die "Unknown ping from pid [$pid]";
+        }
+      } else {
+        die "Empty response from status socket?";
+      }
+    }
+    if (defined $nfound) {
+      # Timed out waiting for ACK status
+    } else {
+      # Weird error occurred with select()
+      warn("select: $!");
+    }
+  }
+  if (my @synners = keys %{ $self->{syn} }) {
+    # Kill all the synners
+    kill 9, @synners;
+    foreach my $pid (@synners) {
+      # Wait for the deaths to finish
+      # Then flush off the zombie
+      waitpid($pid, 0);
+    }
+  }
+  $self->{syn} = {};
+  return ();
+}
+
+# Description:  Tell why the ack() failed
+sub nack {
+  my $self = shift;
+  my $host = shift || croak('Usage> nack($failed_ack_host)');
+  return $self->{bad}->{$host} || undef;
+}
+
+# Description:  Close the connection.
+
+sub close
+{
+  my ($self) = @_;
+
+  if ($self->{proto} eq "syn") {
+    delete $self->{syn};
+  } elsif ($self->{proto} eq "tcp") {
+    # The connection will already be closed
+  } elsif ($self->{proto} eq "external") {
+    # Nothing to close
+  } else {
+    $self->{fh}->close();
+  }
+}
+
+sub port_number {
+   my $self = shift;
+   if(@_) {
+       $self->{port_num} = shift @_;
+       $self->service_check(1);
+   }
+   return $self->{port_num};
+}
+
+sub ntop {
+    my($self, $ip) = @_;
+
+    # Vista doesn't define a inet_ntop.  It has InetNtop instead.
+    # Not following ANSI... priceless.  getnameinfo() is defined
+    # for Windows 2000 and later, so that may be the choice.
+
+    # Any port will work, even undef, but this will work for now.
+    # Socket warns when undef is passed in, but it still works.
+    my $port = getservbyname('echo', 'udp');
+    my $sockaddr = _pack_sockaddr_in($port, $ip);
+    my ($error, $address) = getnameinfo($sockaddr, $NI_NUMERICHOST);
+    croak $error if $error;
+    return $address;
+}
+
+sub wakeonlan {
+  my ($mac_addr, $host, $port) = @_;
+
+  # use the discard service if $port not passed in
+  if (! defined $host) { $host = '255.255.255.255' }
+  if (! defined $port || $port !~ /^\d+$/ ) { $port = 9 }
+
+  require IO::Socket::INET;
+  my $sock = IO::Socket::INET->new(Proto=>'udp') || return undef;
+
+  my $ip_addr = inet_aton($host);
+  my $sock_addr = sockaddr_in($port, $ip_addr);
+  $mac_addr =~ s/://g;
+  my $packet = pack('C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16);
+
+  setsockopt($sock, SOL_SOCKET, SO_BROADCAST, 1);
+  send($sock, $packet, 0, $sock_addr);
+  $sock->close;
+
+  return 1;
+}
+
+########################################################
+# DNS hostname resolution
+# return:
+#   $h->{name}    = host - as passed in
+#   $h->{host}    = host - as passed in without :port
+#   $h->{port}    = OPTIONAL - if :port, then value of port
+#   $h->{addr}    = resolved numeric address
+#   $h->{addr_in} = aton/pton result
+#   $h->{family}  = AF_INET/6
+############################
+sub _resolv {
+  my ($self,
+      $name,
+      ) = @_;
+
+  my %h;
+  $h{name} = $name;
+  my $family = $self->{family};
+
+  if (defined($self->{family_local})) {
+    $family = $self->{family_local}
+  }
+
+# START - host:port
+  my $cnt = 0;
+
+  # Count ":"
+  $cnt++ while ($name =~ m/:/g);
+
+  # 0 = hostname or IPv4 address
+  if ($cnt == 0) {
+    $h{host} = $name
+  # 1 = IPv4 address with port
+  } elsif ($cnt == 1) {
+    ($h{host}, $h{port}) = split /:/, $name
+  # >=2 = IPv6 address
+  } elsif ($cnt >= 2) {
+    #IPv6 with port - [2001::1]:port
+    if ($name =~ /^\[.*\]:\d{1,5}$/) {
+      ($h{host}, $h{port}) = split /:([^:]+)$/, $name # split after last :
+    # IPv6 without port
+    } else {
+      $h{host} = $name
+    }
+  }
+
+  # Clean up host
+  $h{host} =~ s/\[//g;
+  $h{host} =~ s/\]//g;
+  # Clean up port
+  if (defined($h{port}) && (($h{port} !~ /^\d{1,5}$/) || ($h{port} < 1) || ($h{port} > 65535))) {
+    croak("Invalid port `$h{port}' in `$name'");
+  }
+# END - host:port
+
+  # address check
+  # new way
+  if ($Socket::VERSION >= 1.94) {
+    my %hints = (
+      family   => $AF_UNSPEC,
+      protocol => IPPROTO_TCP,
+      flags => $AI_NUMERICHOST
+    );
+
+    # numeric address, return
+    my ($err, @getaddr) = Socket::getaddrinfo($h{host}, undef, \%hints);
+    if (defined($getaddr[0])) {
+      $h{addr} = $h{host};
+      $h{family} = $getaddr[0]->{family};
+      if ($h{family} == AF_INET) {
+        (undef, $h{addr_in}, undef, undef) = Socket::unpack_sockaddr_in $getaddr[0]->{addr};
+      } else {
+        (undef, $h{addr_in}, undef, undef) = Socket::unpack_sockaddr_in6 $getaddr[0]->{addr};
+      }
+      return \%h
+    }
+  # old way
+  } else {
+    # numeric address, return
+    my $ret = gethostbyname($h{host});
+    if (defined($ret) && (_inet_ntoa($ret) eq $h{host})) {
+      $h{addr} = $h{host};
+      $h{addr_in} = $ret;
+      $h{family} = AF_INET;
+      return \%h
+    }
+  }
+
+  # resolve
+  # new way
+  if ($Socket::VERSION >= 1.94) {
+    my %hints = (
+      family   => $family,
+      protocol => IPPROTO_TCP
+    );
+
+    my ($err, @getaddr) = Socket::getaddrinfo($h{host}, undef, \%hints);
+    if (defined($getaddr[0])) {
+      my ($err, $address) = Socket::getnameinfo($getaddr[0]->{addr}, $NI_NUMERICHOST);
+      if (defined($address)) {
+        $h{addr} = $address;
+        $h{addr} =~ s/\%(.)*$//; # remove %ifID if IPv6
+        $h{family} = $getaddr[0]->{family};
+        if ($h{family} == AF_INET) {
+          (undef, $h{addr_in}, undef, undef) = Socket::unpack_sockaddr_in $getaddr[0]->{addr};
+        } else {
+          (undef, $h{addr_in}, undef, undef) = Socket::unpack_sockaddr_in6 $getaddr[0]->{addr};
+        }
+        return \%h
+      } else {
+        croak("getnameinfo($getaddr[0]->{addr}) failed - $err");
+      }
+    } else {
+      croak(sprintf("getaddrinfo($h{host},,%s) failed - $err",
+                    $family == AF_INET ? "AF_INET" : "AF_INET6"));
+    }
+  # old way
+  } else {
+    if ($family == $AF_INET6) {
+      croak("Socket >= 1.94 required for IPv6 - found Socket $Socket::VERSION");
+    }
+
+    my @gethost = gethostbyname($h{host});
+    if (defined($gethost[4])) {
+      $h{addr} = inet_ntoa($gethost[4]);
+      $h{addr_in} = $gethost[4];
+      $h{family} = AF_INET;
+      return \%h
+    } else {
+      croak("gethostbyname($h{host}) failed - $^E");
+    }
+  }
+}
+
+sub _pack_sockaddr_in($$) {
+  my ($port,
+      $ip,
+      ) = @_;
+
+  my $addr = ref($ip) eq "HASH" ? $ip->{addr_in} : $ip;
+  if (length($addr) <= 4 ) {
+    return Socket::pack_sockaddr_in($port, $addr);
+  } else {
+    return Socket::pack_sockaddr_in6($port, $addr);
+  }
+}
+
+sub _unpack_sockaddr_in($;$) {
+  my ($addr,
+      $family,
+      ) = @_;
+
+  my ($port, $host);
+  if ($family == AF_INET || (!defined($family) and length($addr) <= 16 )) {
+    ($port, $host) = Socket::unpack_sockaddr_in($addr);
+  } else {
+    ($port, $host) = Socket::unpack_sockaddr_in6($addr);
+  }
+  return $port, $host
+}
+
+sub _inet_ntoa {
+  my ($addr
+      ) = @_;
+
+  my $ret;
+  if ($Socket::VERSION >= 1.94) {
+    my ($err, $address) = Socket::getnameinfo($addr, $NI_NUMERICHOST);
+    if (defined($address)) {
+      $ret = $address;
+    } else {
+      croak("getnameinfo($addr) failed - $err");
+    }
+  } else {
+    $ret = inet_ntoa($addr)
+  }
+    
+  return $ret
+}
+
+1;
+__END__
+
+# Net::NNTP.pm
+#
+# Copyright (C) 1995-1997 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2016 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::NNTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Time::Local;
+
+our $VERSION = "3.11";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.25) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+  my $obj;
+
+  $host ||= $ENV{NNTPSERVER} || $ENV{NEWSHOST};
+
+  my $hosts = defined $host ? [$host] : $NetConfig{nntp_hosts};
+
+  @{$hosts} = qw(news)
+    unless @{$hosts};
+
+  my %connect = ( Proto => 'tcp');
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if ! $ssl_class;
+    $arg{Port} ||= 563;
+    $connect{$_} = $arg{$_} for(grep { m{^SSL_} } keys %arg);
+  }
+
+  foreach my $o (qw(LocalAddr LocalPort Timeout)) {
+    $connect{$o} = $arg{$o} if exists $arg{$o};
+  }
+  $connect{$family_key} = $arg{Domain} || $arg{Family};
+  $connect{Timeout} = 120 unless defined $connect{Timeout};
+  $connect{PeerPort} = $arg{Port} || 'nntp(119)';
+  foreach my $h (@{$hosts}) {
+    $connect{PeerAddr} = $h;
+    $obj = $type->SUPER::new(%connect) or next;
+    ${*$obj}{'net_nntp_host'} = $h;
+    ${*$obj}{'net_nntp_arg'} = \%arg;
+    if ($arg{SSL}) {
+      Net::NNTP::_SSL->start_SSL($obj,%arg) or next;
+    }
+    last:
+  }
+
+  return
+    unless defined $obj;
+
+  $obj->autoflush(1);
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    $obj->close;
+    return;
+  }
+
+  my $c = $obj->code;
+  my @m = $obj->message;
+
+  unless (exists $arg{Reader} && $arg{Reader} == 0) {
+
+    # if server is INN and we have transfer rights the we are currently
+    # talking to innd not nnrpd
+    if ($obj->reader) {
+
+      # If reader succeeds the we need to consider this code to determine postok
+      $c = $obj->code;
+    }
+    else {
+
+      # I want to ignore this failure, so restore the previous status.
+      $obj->set_status($c, \@m);
+    }
+  }
+
+  ${*$obj}{'net_nntp_post'} = $c == 200 ? 1 : 0;
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_nntp_host'};
+}
+
+
+sub debug_text {
+  my $nntp  = shift;
+  my $inout = shift;
+  my $text  = shift;
+
+  if ( (ref($nntp) and $nntp->code == 350 and $text =~ /^(\S+)/)
+    || ($text =~ /^(authinfo\s+pass)/io))
+  {
+    $text = "$1 ....\n";
+  }
+
+  $text;
+}
+
+
+sub postok {
+  @_ == 1 or croak 'usage: $nntp->postok()';
+  my $nntp = shift;
+  ${*$nntp}{'net_nntp_post'} || 0;
+}
+
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STARTTLS or return;
+  Net::NNTP::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_nntp_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+  return 1;
+}
+
+
+sub article {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->article( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && (ref($_[0]) || ref(\$_[0]) eq 'GLOB'));
+
+  $nntp->_ARTICLE(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub articlefh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->articlefh( [ MSGID ] )';
+  my $nntp = shift;
+
+  return unless $nntp->_ARTICLE(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub authinfo {
+  @_ == 3 or croak 'usage: $nntp->authinfo( USER, PASS )';
+  my ($nntp, $user, $pass) = @_;
+
+  $nntp->_AUTHINFO("USER",      $user) == CMD_MORE
+    && $nntp->_AUTHINFO("PASS", $pass) == CMD_OK;
+}
+
+
+sub authinfo_simple {
+  @_ == 3 or croak 'usage: $nntp->authinfo( USER, PASS )';
+  my ($nntp, $user, $pass) = @_;
+
+  $nntp->_AUTHINFO('SIMPLE') == CMD_MORE
+    && $nntp->command($user, $pass)->response == CMD_OK;
+}
+
+
+sub body {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->body( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB');
+
+  $nntp->_BODY(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub bodyfh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->bodyfh( [ MSGID ] )';
+  my $nntp = shift;
+  return unless $nntp->_BODY(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub head {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->head( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB');
+
+  $nntp->_HEAD(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub headfh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->headfh( [ MSGID ] )';
+  my $nntp = shift;
+  return unless $nntp->_HEAD(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub nntpstat {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->nntpstat( [ MSGID ] )';
+  my $nntp = shift;
+
+  $nntp->_STAT(@_) && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub group {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->group( [ GROUP ] )';
+  my $nntp = shift;
+  my $grp  = ${*$nntp}{'net_nntp_group'};
+
+  return $grp
+    unless (@_ || wantarray);
+
+  my $newgrp = shift;
+
+  $newgrp = (defined($grp) and length($grp)) ? $grp : ""
+    unless defined($newgrp) and length($newgrp);
+
+  return 
+    unless $nntp->_GROUP($newgrp) and $nntp->message =~ /(\d+)\s+(\d+)\s+(\d+)\s+(\S+)/;
+
+  my ($count, $first, $last, $group) = ($1, $2, $3, $4);
+
+  # group may be replied as '(current group)'
+  $group = ${*$nntp}{'net_nntp_group'}
+    if $group =~ /\(/;
+
+  ${*$nntp}{'net_nntp_group'} = $group;
+
+  wantarray
+    ? ($count, $first, $last, $group)
+    : $group;
+}
+
+
+sub help {
+  @_ == 1 or croak 'usage: $nntp->help()';
+  my $nntp = shift;
+
+  $nntp->_HELP
+    ? $nntp->read_until_dot
+    : undef;
+}
+
+
+sub ihave {
+  @_ >= 2 or croak 'usage: $nntp->ihave( MESSAGE-ID [, MESSAGE ])';
+  my $nntp = shift;
+  my $mid  = shift;
+
+  $nntp->_IHAVE($mid) && $nntp->datasend(@_)
+    ? @_ == 0 || $nntp->dataend
+    : undef;
+}
+
+
+sub last {
+  @_ == 1 or croak 'usage: $nntp->last()';
+  my $nntp = shift;
+
+  $nntp->_LAST && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub list {
+  @_ == 1 or croak 'usage: $nntp->list()';
+  my $nntp = shift;
+
+  $nntp->_LIST
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub newgroups {
+  @_ >= 2 or croak 'usage: $nntp->newgroups( SINCE [, DISTRIBUTIONS ])';
+  my $nntp = shift;
+  my $time = _timestr(shift);
+  my $dist = shift || "";
+
+  $dist = join(",", @{$dist})
+    if ref($dist);
+
+  $nntp->_NEWGROUPS($time, $dist)
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub newnews {
+  @_ >= 2 && @_ <= 4
+    or croak 'usage: $nntp->newnews( SINCE [, GROUPS [, DISTRIBUTIONS ]])';
+  my $nntp = shift;
+  my $time = _timestr(shift);
+  my $grp  = @_ ? shift: $nntp->group;
+  my $dist = shift || "";
+
+  $grp ||= "*";
+  $grp = join(",", @{$grp})
+    if ref($grp);
+
+  $dist = join(",", @{$dist})
+    if ref($dist);
+
+  $nntp->_NEWNEWS($grp, $time, $dist)
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub next {
+  @_ == 1 or croak 'usage: $nntp->next()';
+  my $nntp = shift;
+
+  $nntp->_NEXT && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub post {
+  @_ >= 1 or croak 'usage: $nntp->post( [ MESSAGE ] )';
+  my $nntp = shift;
+
+  $nntp->_POST() && $nntp->datasend(@_)
+    ? @_ == 0 || $nntp->dataend
+    : undef;
+}
+
+
+sub postfh {
+  my $nntp = shift;
+  return unless $nntp->_POST();
+  return $nntp->tied_fh;
+}
+
+
+sub quit {
+  @_ == 1 or croak 'usage: $nntp->quit()';
+  my $nntp = shift;
+
+  $nntp->_QUIT;
+  $nntp->close;
+}
+
+
+sub slave {
+  @_ == 1 or croak 'usage: $nntp->slave()';
+  my $nntp = shift;
+
+  $nntp->_SLAVE;
+}
+
+##
+## The following methods are not implemented by all servers
+##
+
+
+sub active {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->active( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_LIST('ACTIVE', @_)
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub active_times {
+  @_ == 1 or croak 'usage: $nntp->active_times()';
+  my $nntp = shift;
+
+  $nntp->_LIST('ACTIVE.TIMES')
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub distributions {
+  @_ == 1 or croak 'usage: $nntp->distributions()';
+  my $nntp = shift;
+
+  $nntp->_LIST('DISTRIBUTIONS')
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub distribution_patterns {
+  @_ == 1 or croak 'usage: $nntp->distributions()';
+  my $nntp = shift;
+
+  my $arr;
+  local $_;
+
+  ## no critic (ControlStructures::ProhibitMutatingListFunctions)
+  $nntp->_LIST('DISTRIB.PATS')
+    && ($arr = $nntp->read_until_dot)
+    ? [grep { /^\d/ && (chomp, $_ = [split /:/]) } @$arr]
+    : undef;
+}
+
+
+sub newsgroups {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->newsgroups( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_LIST('NEWSGROUPS', @_)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub overview_fmt {
+  @_ == 1 or croak 'usage: $nntp->overview_fmt()';
+  my $nntp = shift;
+
+  $nntp->_LIST('OVERVIEW.FMT')
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub subscriptions {
+  @_ == 1 or croak 'usage: $nntp->subscriptions()';
+  my $nntp = shift;
+
+  $nntp->_LIST('SUBSCRIPTIONS')
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub listgroup {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->listgroup( [ GROUP ] )';
+  my $nntp = shift;
+
+  $nntp->_LISTGROUP(@_)
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub reader {
+  @_ == 1 or croak 'usage: $nntp->reader()';
+  my $nntp = shift;
+
+  $nntp->_MODE('READER');
+}
+
+
+sub xgtitle {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->xgtitle( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_XGTITLE(@_)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xhdr {
+  @_ >= 2 && @_ <= 4 or croak 'usage: $nntp->xhdr( HEADER, [ MESSAGE-SPEC ] )';
+  my $nntp = shift;
+  my $hdr  = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XHDR($hdr, $arg)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xover {
+  @_ == 2 || @_ == 3 or croak 'usage: $nntp->xover( MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XOVER($arg)
+    ? $nntp->_fieldlist
+    : undef;
+}
+
+
+sub xpat {
+  @_ == 4 || @_ == 5 or croak '$nntp->xpat( HEADER, PATTERN, MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $hdr  = shift;
+  my $pat  = shift;
+  my $arg  = _msg_arg(@_);
+
+  $pat = join(" ", @$pat)
+    if ref($pat);
+
+  $nntp->_XPAT($hdr, $arg, $pat)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xpath {
+  @_ == 2 or croak 'usage: $nntp->xpath( MESSAGE-ID )';
+  my ($nntp, $mid) = @_;
+
+  return
+    unless $nntp->_XPATH($mid);
+
+  my $m;
+  ($m = $nntp->message) =~ s/^\d+\s+//o;
+  my @p = split /\s+/, $m;
+
+  wantarray ? @p : $p[0];
+}
+
+
+sub xrover {
+  @_ == 2 || @_ == 3 or croak 'usage: $nntp->xrover( MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XROVER($arg)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub date {
+  @_ == 1 or croak 'usage: $nntp->date()';
+  my $nntp = shift;
+
+  $nntp->_DATE
+    && $nntp->message =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
+    ? timegm($6, $5, $4, $3, $2 - 1, $1 - 1900)
+    : undef;
+}
+
+
+##
+## Private subroutines
+##
+
+
+sub _msg_arg {
+  my $spec = shift;
+  my $arg  = "";
+
+  if (@_) {
+    carp "Depriciated passing of two message numbers, " . "pass a reference"
+      if $^W;
+    $spec = [$spec, $_[0]];
+  }
+
+  if (defined $spec) {
+    if (ref($spec)) {
+      $arg = $spec->[0];
+      if (defined $spec->[1]) {
+        $arg .= "-"
+          if $spec->[1] != $spec->[0];
+        $arg .= $spec->[1]
+          if $spec->[1] > $spec->[0];
+      }
+    }
+    else {
+      $arg = $spec;
+    }
+  }
+
+  $arg;
+}
+
+
+sub _timestr {
+  my $time = shift;
+  my @g    = reverse((gmtime($time))[0 .. 5]);
+  $g[1] += 1;
+  $g[0] %= 100;
+  sprintf "%02d%02d%02d %02d%02d%02d GMT", @g;
+}
+
+
+sub _grouplist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    my @a = split(/[\s\n]+/, $ln);
+    $hash->{$a[0]} = [@a[1, 2, 3]];
+  }
+
+  $hash;
+}
+
+
+sub _fieldlist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    my @a = split(/[\t\n]/, $ln);
+    my $m = shift @a;
+    $hash->{$m} = [@a];
+  }
+
+  $hash;
+}
+
+
+sub _articlelist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot;
+
+  chomp(@$arr)
+    if $arr;
+
+  $arr;
+}
+
+
+sub _description {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    chomp($ln);
+
+    $hash->{$1} = $ln
+      if $ln =~ s/^\s*(\S+)\s*//o;
+  }
+
+  $hash;
+
+}
+
+##
+## The commands
+##
+
+
+sub _ARTICLE  { shift->command('ARTICLE',  @_)->response == CMD_OK }
+sub _AUTHINFO { shift->command('AUTHINFO', @_)->response }
+sub _BODY     { shift->command('BODY',     @_)->response == CMD_OK }
+sub _DATE      { shift->command('DATE')->response == CMD_INFO }
+sub _GROUP     { shift->command('GROUP', @_)->response == CMD_OK }
+sub _HEAD      { shift->command('HEAD', @_)->response == CMD_OK }
+sub _HELP      { shift->command('HELP', @_)->response == CMD_INFO }
+sub _IHAVE     { shift->command('IHAVE', @_)->response == CMD_MORE }
+sub _LAST      { shift->command('LAST')->response == CMD_OK }
+sub _LIST      { shift->command('LIST', @_)->response == CMD_OK }
+sub _LISTGROUP { shift->command('LISTGROUP', @_)->response == CMD_OK }
+sub _NEWGROUPS { shift->command('NEWGROUPS', @_)->response == CMD_OK }
+sub _NEWNEWS   { shift->command('NEWNEWS', @_)->response == CMD_OK }
+sub _NEXT      { shift->command('NEXT')->response == CMD_OK }
+sub _POST      { shift->command('POST', @_)->response == CMD_MORE }
+sub _QUIT      { shift->command('QUIT', @_)->response == CMD_OK }
+sub _SLAVE     { shift->command('SLAVE', @_)->response == CMD_OK }
+sub _STARTTLS  { shift->command("STARTTLS")->response() == CMD_MORE }
+sub _STAT      { shift->command('STAT', @_)->response == CMD_OK }
+sub _MODE      { shift->command('MODE', @_)->response == CMD_OK }
+sub _XGTITLE   { shift->command('XGTITLE', @_)->response == CMD_OK }
+sub _XHDR      { shift->command('XHDR', @_)->response == CMD_OK }
+sub _XPAT      { shift->command('XPAT', @_)->response == CMD_OK }
+sub _XPATH     { shift->command('XPATH', @_)->response == CMD_OK }
+sub _XOVER     { shift->command('XOVER', @_)->response == CMD_OK }
+sub _XROVER    { shift->command('XROVER', @_)->response == CMD_OK }
+sub _XTHREAD   { shift->unsupported }
+sub _XSEARCH   { shift->unsupported }
+sub _XINDEX    { shift->unsupported }
+
+##
+## IO/perl methods
+##
+
+
+sub DESTROY {
+  my $nntp = shift;
+  defined(fileno($nntp)) && $nntp->quit;
+}
+
+{
+  package Net::NNTP::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::NNTP' );
+  sub starttls { die "NNTP connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$nntp,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $nntp->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    my $ok = $class->SUPER::start_SSL($nntp,
+      SSL_verifycn_scheme => 'nntp',
+      %arg
+    );
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+
+1;
+
+__END__
+
+# Net::FTP.pm
+#
+# Copyright (C) 1995-2004 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2017 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+#
+# Documentation (at end) improved 1996 by Nathan Torkington <gnat@frii.com>.
+
+package Net::FTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Socket;
+use Time::Local;
+
+our $VERSION = '3.11';
+
+our $IOCLASS;
+my $family_key;
+BEGIN {
+  # Code for detecting if we can use SSL
+  my $ssl_class = eval {
+    require IO::Socket::SSL;
+    # first version with default CA on most platforms
+    no warnings 'numeric';
+    IO::Socket::SSL->VERSION(2.007);
+  } && 'IO::Socket::SSL';
+
+  my $nossl_warn = !$ssl_class &&
+    'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+  # Code for detecting if we can use IPv6
+  my $inet6_class = eval {
+    require IO::Socket::IP;
+    no warnings 'numeric';
+    IO::Socket::IP->VERSION(0.25);
+  } && 'IO::Socket::IP' || eval {
+    require IO::Socket::INET6;
+    no warnings 'numeric';
+    IO::Socket::INET6->VERSION(2.62);
+  } && 'IO::Socket::INET6';
+
+  sub can_ssl   { $ssl_class };
+  sub can_inet6 { $inet6_class };
+
+  $IOCLASS = $ssl_class || $inet6_class || 'IO::Socket::INET';
+  $family_key =
+    ( $ssl_class ? $ssl_class->can_ipv6 : $inet6_class || '' )
+      eq 'IO::Socket::IP'
+      ? 'Family' : 'Domain';
+}
+
+our @ISA = ('Exporter','Net::Cmd',$IOCLASS);
+
+use constant TELNET_IAC => 255;
+use constant TELNET_IP  => 244;
+use constant TELNET_DM  => 242;
+
+use constant EBCDIC => $^O eq 'os390';
+
+sub new {
+  my $pkg = shift;
+  my ($peer, %arg);
+  if (@_ % 2) {
+    $peer = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $peer = delete $arg{Host};
+  }
+
+  my $host      = $peer;
+  my $fire      = undef;
+  my $fire_type = undef;
+
+  if (exists($arg{Firewall}) || Net::Config->requires_firewall($peer)) {
+         $fire = $arg{Firewall}
+      || $ENV{FTP_FIREWALL}
+      || $NetConfig{ftp_firewall}
+      || undef;
+
+    if (defined $fire) {
+      $peer = $fire;
+      delete $arg{Port};
+           $fire_type = $arg{FirewallType}
+        || $ENV{FTP_FIREWALL_TYPE}
+        || $NetConfig{firewall_type}
+        || undef;
+    }
+  }
+
+  my %tlsargs;
+  if (can_ssl()) {
+    # for name verification strip port from domain:port, ipv4:port, [ipv6]:port
+    (my $hostname = $host) =~s{(?<!:):\d+$}{};
+    %tlsargs = (
+      SSL_verifycn_scheme => 'ftp',
+      SSL_verifycn_name => $hostname,
+      # use SNI if supported by IO::Socket::SSL
+      $pkg->can_client_sni ? (SSL_hostname => $hostname):(),
+      # reuse SSL session of control connection in data connections
+      SSL_session_cache => Net::FTP::_SSL_SingleSessionCache->new,
+    );
+    # user defined SSL arg
+    $tlsargs{$_} = $arg{$_} for(grep { m{^SSL_} } keys %arg);
+
+  } elsif ($arg{SSL}) {
+    croak("IO::Socket::SSL >= 2.007 needed for SSL support");
+  }
+
+  my $ftp = $pkg->SUPER::new(
+    PeerAddr  => $peer,
+    PeerPort  => $arg{Port} || ($arg{SSL} ? 'ftps(990)' : 'ftp(21)'),
+    LocalAddr => $arg{'LocalAddr'},
+    $family_key => $arg{Domain} || $arg{Family},
+    Proto     => 'tcp',
+    Timeout   => defined $arg{Timeout} ? $arg{Timeout} : 120,
+    %tlsargs,
+    $arg{SSL} ? ():( SSL_startHandshake => 0 ),
+  ) or return;
+
+  ${*$ftp}{'net_ftp_host'}    = $host;                             # Remote hostname
+  ${*$ftp}{'net_ftp_type'}    = 'A';                               # ASCII/binary/etc mode
+  ${*$ftp}{'net_ftp_blksize'} = abs($arg{'BlockSize'} || 10240);
+
+  ${*$ftp}{'net_ftp_localaddr'} = $arg{'LocalAddr'};
+  ${*$ftp}{'net_ftp_domain'} = $arg{Domain} || $arg{Family};
+
+  ${*$ftp}{'net_ftp_firewall'} = $fire
+    if (defined $fire);
+  ${*$ftp}{'net_ftp_firewall_type'} = $fire_type
+    if (defined $fire_type);
+
+  ${*$ftp}{'net_ftp_passive'} =
+      int exists $arg{Passive} ? $arg{Passive}
+    : exists $ENV{FTP_PASSIVE} ? $ENV{FTP_PASSIVE}
+    : defined $fire            ? $NetConfig{ftp_ext_passive}
+    : $NetConfig{ftp_int_passive};    # Whew! :-)
+
+  ${*$ftp}{net_ftp_tlsargs} = \%tlsargs if %tlsargs;
+  if ($arg{SSL}) {
+    ${*$ftp}{net_ftp_tlsprot} = 'P';
+    ${*$ftp}{net_ftp_tlsdirect} = 1;
+  }
+
+  $ftp->hash(exists $arg{Hash} ? $arg{Hash} : 0, 1024);
+
+  $ftp->autoflush(1);
+
+  $ftp->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($ftp->response() == CMD_OK) {
+    $ftp->close();
+    # keep @$ if no message. Happens, when response did not start with a code.
+    $@ = $ftp->message || $@;
+    undef $ftp;
+  }
+
+  $ftp;
+}
+
+##
+## User interface methods
+##
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_ftp_host'};
+}
+
+sub passive {
+  my $ftp = shift;
+  return ${*$ftp}{'net_ftp_passive'} unless @_;
+  ${*$ftp}{'net_ftp_passive'} = shift;
+}
+
+
+sub hash {
+  my $ftp = shift;    # self
+
+  my ($h, $b) = @_;
+  unless ($h) {
+    delete ${*$ftp}{'net_ftp_hash'};
+    return [\*STDERR, 0];
+  }
+  ($h, $b) = (ref($h) ? $h : \*STDERR, $b || 1024);
+  select((select($h), $| = 1)[0]);
+  $b = 512 if $b < 512;
+  ${*$ftp}{'net_ftp_hash'} = [$h, $b];
+}
+
+
+sub quit {
+  my $ftp = shift;
+
+  $ftp->_QUIT;
+  $ftp->close;
+}
+
+
+sub DESTROY { }
+
+
+sub ascii  { shift->type('A', @_); }
+sub binary { shift->type('I', @_); }
+
+
+sub ebcdic {
+  carp "TYPE E is unsupported, shall default to I";
+  shift->type('E', @_);
+}
+
+
+sub byte {
+  carp "TYPE L is unsupported, shall default to I";
+  shift->type('L', @_);
+}
+
+# Allow the user to send a command directly, BE CAREFUL !!
+
+
+sub quot {
+  my $ftp = shift;
+  my $cmd = shift;
+
+  $ftp->command(uc $cmd, @_);
+  $ftp->response();
+}
+
+
+sub site {
+  my $ftp = shift;
+
+  $ftp->command("SITE", @_);
+  $ftp->response();
+}
+
+
+sub mdtm {
+  my $ftp  = shift;
+  my $file = shift;
+
+  # Server Y2K bug workaround
+  #
+  # sigh; some idiotic FTP servers use ("19%d",tm.tm_year) instead of
+  # ("%d",tm.tm_year+1900).  This results in an extra digit in the
+  # string returned. To account for this we allow an optional extra
+  # digit in the year. Then if the first two digits are 19 we use the
+  # remainder, otherwise we subtract 1900 from the whole year.
+
+  $ftp->_MDTM($file)
+    && $ftp->message =~ /((\d\d)(\d\d\d?))(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
+    ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? $3 : ($1 - 1900))
+    : undef;
+}
+
+
+sub size {
+  my $ftp  = shift;
+  my $file = shift;
+  my $io;
+  if ($ftp->supported("SIZE")) {
+    return $ftp->_SIZE($file)
+      ? ($ftp->message =~ /(\d+)\s*(bytes?\s*)?$/)[0]
+      : undef;
+  }
+  elsif ($ftp->supported("STAT")) {
+    my @msg;
+    return
+      unless $ftp->_STAT($file) && (@msg = $ftp->message) == 3;
+    foreach my $line (@msg) {
+      return (split(/\s+/, $line))[4]
+        if $line =~ /^[-rwxSsTt]{10}/;
+    }
+  }
+  else {
+    my @files = $ftp->dir($file);
+    if (@files) {
+      return (split(/\s+/, $1))[4]
+        if $files[0] =~ /^([-rwxSsTt]{10}.*)$/;
+    }
+  }
+  undef;
+}
+
+
+sub starttls {
+  my $ftp = shift;
+  can_ssl() or croak("IO::Socket::SSL >= 2.007 needed for SSL support");
+  $ftp->is_SSL and croak("called starttls within SSL session");
+  $ftp->_AUTH('TLS') == CMD_OK or return;
+
+  $ftp->connect_SSL or return;
+  $ftp->prot('P');
+  return 1;
+}
+
+sub prot {
+  my ($ftp,$prot) = @_;
+  $prot eq 'C' or $prot eq 'P' or croak("prot must by C or P");
+  $ftp->_PBSZ(0) or return;
+  $ftp->_PROT($prot) or return;
+  ${*$ftp}{net_ftp_tlsprot} = $prot;
+  return 1;
+}
+
+sub stoptls {
+  my $ftp = shift;
+  $ftp->is_SSL or croak("called stoptls outside SSL session");
+  ${*$ftp}{net_ftp_tlsdirect} and croak("cannot stoptls direct SSL session");
+  $ftp->_CCC() or return;
+  $ftp->stop_SSL();
+  return 1;
+}
+
+sub login {
+  my ($ftp, $user, $pass, $acct) = @_;
+  my ($ok, $ruser, $fwtype);
+
+  unless (defined $user) {
+    require Net::Netrc;
+
+    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_host'});
+
+    ($user, $pass, $acct) = $rc->lpa()
+      if ($rc);
+  }
+
+  $user ||= "anonymous";
+  $ruser = $user;
+
+  $fwtype = ${*$ftp}{'net_ftp_firewall_type'}
+    || $NetConfig{'ftp_firewall_type'}
+    || 0;
+
+  if ($fwtype && defined ${*$ftp}{'net_ftp_firewall'}) {
+    if ($fwtype == 1 || $fwtype == 7) {
+      $user .= '@' . ${*$ftp}{'net_ftp_host'};
+    }
+    else {
+      require Net::Netrc;
+
+      my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
+
+      my ($fwuser, $fwpass, $fwacct) = $rc ? $rc->lpa() : ();
+
+      if ($fwtype == 5) {
+        $user = join('@', $user, $fwuser, ${*$ftp}{'net_ftp_host'});
+        $pass = $pass . '@' . $fwpass;
+      }
+      else {
+        if ($fwtype == 2) {
+          $user .= '@' . ${*$ftp}{'net_ftp_host'};
+        }
+        elsif ($fwtype == 6) {
+          $fwuser .= '@' . ${*$ftp}{'net_ftp_host'};
+        }
+
+        $ok = $ftp->_USER($fwuser);
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+
+        $ok = $ftp->_PASS($fwpass || "");
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+
+        $ok = $ftp->_ACCT($fwacct)
+          if defined($fwacct);
+
+        if ($fwtype == 3) {
+          $ok = $ftp->command("SITE", ${*$ftp}{'net_ftp_host'})->response;
+        }
+        elsif ($fwtype == 4) {
+          $ok = $ftp->command("OPEN", ${*$ftp}{'net_ftp_host'})->response;
+        }
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+      }
+    }
+  }
+
+  $ok = $ftp->_USER($user);
+
+  # Some dumb firewalls don't prefix the connection messages
+  $ok = $ftp->response()
+    if ($ok == CMD_OK && $ftp->code == 220 && $user =~ /\@/);
+
+  if ($ok == CMD_MORE) {
+    unless (defined $pass) {
+      require Net::Netrc;
+
+      my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_host'}, $ruser);
+
+      ($ruser, $pass, $acct) = $rc->lpa()
+        if ($rc);
+
+      $pass = '-anonymous@'
+        if (!defined $pass && (!defined($ruser) || $ruser =~ /^anonymous/o));
+    }
+
+    $ok = $ftp->_PASS($pass || "");
+  }
+
+  $ok = $ftp->_ACCT($acct)
+    if (defined($acct) && ($ok == CMD_MORE || $ok == CMD_OK));
+
+  if ($fwtype == 7 && $ok == CMD_OK && defined ${*$ftp}{'net_ftp_firewall'}) {
+    my ($f, $auth, $resp) = _auth_id($ftp);
+    $ftp->authorize($auth, $resp) if defined($resp);
+  }
+
+  $ok == CMD_OK;
+}
+
+
+sub account {
+  @_ == 2 or croak 'usage: $ftp->account( ACCT )';
+  my $ftp  = shift;
+  my $acct = shift;
+  $ftp->_ACCT($acct) == CMD_OK;
+}
+
+
+sub _auth_id {
+  my ($ftp, $auth, $resp) = @_;
+
+  unless (defined $resp) {
+    require Net::Netrc;
+
+    $auth ||= eval { (getpwuid($>))[0] } || $ENV{NAME};
+
+    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'}, $auth)
+      || Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
+
+    ($auth, $resp) = $rc->lpa()
+      if ($rc);
+  }
+  ($ftp, $auth, $resp);
+}
+
+
+sub authorize {
+  @_ >= 1 || @_ <= 3 or croak 'usage: $ftp->authorize( [AUTH [, RESP]])';
+
+  my ($ftp, $auth, $resp) = &_auth_id;
+
+  my $ok = $ftp->_AUTH($auth || "");
+
+  return $ftp->_RESP($resp || "")
+    if ($ok == CMD_MORE);
+
+  $ok == CMD_OK;
+}
+
+
+sub rename {
+  @_ == 3 or croak 'usage: $ftp->rename(FROM, TO)';
+
+  my ($ftp, $from, $to) = @_;
+
+  $ftp->_RNFR($from)
+    && $ftp->_RNTO($to);
+}
+
+
+sub type {
+  my $ftp    = shift;
+  my $type   = shift;
+  my $oldval = ${*$ftp}{'net_ftp_type'};
+
+  return $oldval
+    unless (defined $type);
+
+  return
+    unless ($ftp->_TYPE($type, @_));
+
+  ${*$ftp}{'net_ftp_type'} = join(" ", $type, @_);
+
+  $oldval;
+}
+
+
+sub alloc {
+  my $ftp    = shift;
+  my $size   = shift;
+  my $oldval = ${*$ftp}{'net_ftp_allo'};
+
+  return $oldval
+    unless (defined $size);
+
+  return
+    unless ($ftp->supported("ALLO") and $ftp->_ALLO($size, @_));
+
+  ${*$ftp}{'net_ftp_allo'} = join(" ", $size, @_);
+
+  $oldval;
+}
+
+
+sub abort {
+  my $ftp = shift;
+
+  send($ftp, pack("CCC", TELNET_IAC, TELNET_IP, TELNET_IAC), MSG_OOB);
+
+  $ftp->command(pack("C", TELNET_DM) . "ABOR");
+
+  ${*$ftp}{'net_ftp_dataconn'}->close()
+    if defined ${*$ftp}{'net_ftp_dataconn'};
+
+  $ftp->response();
+
+  $ftp->status == CMD_OK;
+}
+
+
+sub get {
+  my ($ftp, $remote, $local, $where) = @_;
+
+  my ($loc, $len, $buf, $resp, $data);
+  local *FD;
+
+  my $localfd = ref($local) || ref(\$local) eq "GLOB";
+
+  ($local = $remote) =~ s#^.*/##
+    unless (defined $local);
+
+  croak("Bad remote filename '$remote'\n")
+    if $remote =~ /[\r\n]/s;
+
+  ${*$ftp}{'net_ftp_rest'} = $where if defined $where;
+  my $rest = ${*$ftp}{'net_ftp_rest'};
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  $data = $ftp->retr($remote)
+    or return;
+
+  if ($localfd) {
+    $loc = $local;
+  }
+  else {
+    $loc = \*FD;
+
+    unless (sysopen($loc, $local, O_CREAT | O_WRONLY | ($rest ? O_APPEND: O_TRUNC))) {
+      carp "Cannot open Local file $local: $!\n";
+      $data->abort;
+      return;
+    }
+  }
+
+  if ($ftp->type eq 'I' && !binmode($loc)) {
+    carp "Cannot binmode Local file $local: $!\n";
+    $data->abort;
+    close($loc) unless $localfd;
+    return;
+  }
+
+  $buf = '';
+  my ($count, $hashh, $hashb, $ref) = (0);
+
+  ($hashh, $hashb) = @$ref
+    if ($ref = ${*$ftp}{'net_ftp_hash'});
+
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+  local $\;    # Just in case
+
+  while (1) {
+    last unless $len = $data->read($buf, $blksize);
+
+    if (EBCDIC && $ftp->type ne 'I') {
+      $buf = $ftp->toebcdic($buf);
+      $len = length($buf);
+    }
+
+    if ($hashh) {
+      $count += $len;
+      print $hashh "#" x (int($count / $hashb));
+      $count %= $hashb;
+    }
+    unless (print $loc $buf) {
+      carp "Cannot write to Local file $local: $!\n";
+      $data->abort;
+      close($loc)
+        unless $localfd;
+      return;
+    }
+  }
+
+  print $hashh "\n" if $hashh;
+
+  unless ($localfd) {
+    unless (close($loc)) {
+      carp "Cannot close file $local (perhaps disk space) $!\n";
+      return;
+    }
+  }
+
+  unless ($data->close())    # implied $ftp->response
+  {
+    carp "Unable to close datastream";
+    return;
+  }
+
+  return $local;
+}
+
+
+sub cwd {
+  @_ == 1 || @_ == 2 or croak 'usage: $ftp->cwd( [ DIR ] )';
+
+  my ($ftp, $dir) = @_;
+
+  $dir = "/" unless defined($dir) && $dir =~ /\S/;
+
+  $dir eq ".."
+    ? $ftp->_CDUP()
+    : $ftp->_CWD($dir);
+}
+
+
+sub cdup {
+  @_ == 1 or croak 'usage: $ftp->cdup()';
+  $_[0]->_CDUP;
+}
+
+
+sub pwd {
+  @_ == 1 || croak 'usage: $ftp->pwd()';
+  my $ftp = shift;
+
+  $ftp->_PWD();
+  $ftp->_extract_path;
+}
+
+# rmdir( $ftp, $dir, [ $recurse ] )
+#
+# Removes $dir on remote host via FTP.
+# $ftp is handle for remote host
+#
+# If $recurse is TRUE, the directory and deleted recursively.
+# This means all of its contents and subdirectories.
+#
+# Initial version contributed by Dinkum Software
+#
+sub rmdir {
+  @_ == 2 || @_ == 3 or croak('usage: $ftp->rmdir( DIR [, RECURSE ] )');
+
+  # Pick off the args
+  my ($ftp, $dir, $recurse) = @_;
+  my $ok;
+
+  return $ok
+    if $ok = $ftp->_RMD($dir)
+    or !$recurse;
+
+  # Try to delete the contents
+  # Get a list of all the files in the directory, excluding the current and parent directories
+  my @filelist = map { /^(?:\S+;)+ (.+)$/ ? ($1) : () } grep { !/^(?:\S+;)*type=[cp]dir;/i } $ftp->_list_cmd("MLSD", $dir);
+
+  # Fallback to using the less well-defined NLST command if MLSD fails
+  @filelist = grep { !/^\.{1,2}$/ } $ftp->ls($dir)
+    unless @filelist;
+
+  return
+    unless @filelist;    # failed, it is probably not a directory
+
+  return $ftp->delete($dir)
+    if @filelist == 1 and $dir eq $filelist[0];
+
+  # Go thru and delete each file or the directory
+  foreach my $file (map { m,/, ? $_ : "$dir/$_" } @filelist) {
+    next                 # successfully deleted the file
+      if $ftp->delete($file);
+
+    # Failed to delete it, assume its a directory
+    # Recurse and ignore errors, the final rmdir() will
+    # fail on any errors here
+    return $ok
+      unless $ok = $ftp->rmdir($file, 1);
+  }
+
+  # Directory should be empty
+  # Try to remove the directory again
+  # Pass results directly to caller
+  # If any of the prior deletes failed, this
+  # rmdir() will fail because directory is not empty
+  return $ftp->_RMD($dir);
+}
+
+
+sub restart {
+  @_ == 2 || croak 'usage: $ftp->restart( BYTE_OFFSET )';
+
+  my ($ftp, $where) = @_;
+
+  ${*$ftp}{'net_ftp_rest'} = $where;
+
+  return;
+}
+
+
+sub mkdir {
+  @_ == 2 || @_ == 3 or croak 'usage: $ftp->mkdir( DIR [, RECURSE ] )';
+
+  my ($ftp, $dir, $recurse) = @_;
+
+  $ftp->_MKD($dir) || $recurse
+    or return;
+
+  my $path = $dir;
+
+  unless ($ftp->ok) {
+    my @path = split(m#(?=/+)#, $dir);
+
+    $path = "";
+
+    while (@path) {
+      $path .= shift @path;
+
+      $ftp->_MKD($path);
+
+      $path = $ftp->_extract_path($path);
+    }
+
+    # If the creation of the last element was not successful, see if we
+    # can cd to it, if so then return path
+
+    unless ($ftp->ok) {
+      my ($status, $message) = ($ftp->status, $ftp->message);
+      my $pwd = $ftp->pwd;
+
+      if ($pwd && $ftp->cwd($dir)) {
+        $path = $dir;
+        $ftp->cwd($pwd);
+      }
+      else {
+        undef $path;
+      }
+      $ftp->set_status($status, $message);
+    }
+  }
+
+  $path;
+}
+
+
+sub delete {
+  @_ == 2 || croak 'usage: $ftp->delete( FILENAME )';
+
+  $_[0]->_DELE($_[1]);
+}
+
+
+sub put        { shift->_store_cmd("stor", @_) }
+sub put_unique { shift->_store_cmd("stou", @_) }
+sub append     { shift->_store_cmd("appe", @_) }
+
+
+sub nlst { shift->_data_cmd("NLST", @_) }
+sub list { shift->_data_cmd("LIST", @_) }
+sub retr { shift->_data_cmd("RETR", @_) }
+sub stor { shift->_data_cmd("STOR", @_) }
+sub stou { shift->_data_cmd("STOU", @_) }
+sub appe { shift->_data_cmd("APPE", @_) }
+
+
+sub _store_cmd {
+  my ($ftp, $cmd, $local, $remote) = @_;
+  my ($loc, $sock, $len, $buf);
+  local *FD;
+
+  my $localfd = ref($local) || ref(\$local) eq "GLOB";
+
+  if (!defined($remote) and 'STOU' ne uc($cmd)) {
+    croak 'Must specify remote filename with stream input'
+      if $localfd;
+
+    require File::Basename;
+    $remote = File::Basename::basename($local);
+  }
+  if (defined ${*$ftp}{'net_ftp_allo'}) {
+    delete ${*$ftp}{'net_ftp_allo'};
+  }
+  else {
+
+    # if the user hasn't already invoked the alloc method since the last
+    # _store_cmd call, figure out if the local file is a regular file(not
+    # a pipe, or device) and if so get the file size from stat, and send
+    # an ALLO command before sending the STOR, STOU, or APPE command.
+    my $size = do { local $^W; -f $local && -s _ };    # no ALLO if sending data from a pipe
+    ${*$ftp}{'net_ftp_allo'} = $size if $size;
+  }
+  croak("Bad remote filename '$remote'\n")
+    if defined($remote) and $remote =~ /[\r\n]/s;
+
+  if ($localfd) {
+    $loc = $local;
+  }
+  else {
+    $loc = \*FD;
+
+    unless (sysopen($loc, $local, O_RDONLY)) {
+      carp "Cannot open Local file $local: $!\n";
+      return;
+    }
+  }
+
+  if ($ftp->type eq 'I' && !binmode($loc)) {
+    carp "Cannot binmode Local file $local: $!\n";
+    return;
+  }
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  $sock = $ftp->_data_cmd($cmd, grep { defined } $remote)
+    or return;
+
+  $remote = ($ftp->message =~ /\w+\s*:\s*(.*)/)[0]
+    if 'STOU' eq uc $cmd;
+
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+
+  my ($count, $hashh, $hashb, $ref) = (0);
+
+  ($hashh, $hashb) = @$ref
+    if ($ref = ${*$ftp}{'net_ftp_hash'});
+
+  while (1) {
+    last unless $len = read($loc, $buf = "", $blksize);
+
+    if (EBCDIC && $ftp->type ne 'I') {
+      $buf = $ftp->toascii($buf);
+      $len = length($buf);
+    }
+
+    if ($hashh) {
+      $count += $len;
+      print $hashh "#" x (int($count / $hashb));
+      $count %= $hashb;
+    }
+
+    my $wlen;
+    unless (defined($wlen = $sock->write($buf, $len)) && $wlen == $len) {
+      $sock->abort;
+      close($loc)
+        unless $localfd;
+      print $hashh "\n" if $hashh;
+      return;
+    }
+  }
+
+  print $hashh "\n" if $hashh;
+
+  close($loc)
+    unless $localfd;
+
+  $sock->close()
+    or return;
+
+  if ('STOU' eq uc $cmd and $ftp->message =~ m/unique\s+file\s*name\s*:\s*(.*)\)|"(.*)"/) {
+    require File::Basename;
+    $remote = File::Basename::basename($+);
+  }
+
+  return $remote;
+}
+
+
+sub port {
+    @_ == 1 || @_ == 2 or croak 'usage: $self->port([PORT])';
+    return _eprt('PORT',@_);
+}
+
+sub eprt {
+  @_ == 1 || @_ == 2 or croak 'usage: $self->eprt([PORT])';
+  return _eprt('EPRT',@_);
+}
+
+sub _eprt {
+  my ($cmd,$ftp,$port) = @_;
+  delete ${*$ftp}{net_ftp_intern_port};
+  unless ($port) {
+    my $listen = ${*$ftp}{net_ftp_listen} ||= $IOCLASS->new(
+      Listen    => 1,
+      Timeout   => $ftp->timeout,
+      LocalAddr => $ftp->sockhost,
+      $family_key  => $ftp->sockdomain,
+      can_ssl() ? (
+        %{ ${*$ftp}{net_ftp_tlsargs} },
+        SSL_startHandshake => 0,
+      ):(),
+    );
+    ${*$ftp}{net_ftp_intern_port} = 1;
+    my $fam = ($listen->sockdomain == AF_INET) ? 1:2;
+    if ( $cmd eq 'EPRT' || $fam == 2 ) {
+      $port = "|$fam|".$listen->sockhost."|".$listen->sockport."|";
+      $cmd = 'EPRT';
+    } else {
+      my $p = $listen->sockport;
+      $port = join(',',split(m{\.},$listen->sockhost),$p >> 8,$p & 0xff);
+    }
+  } elsif (ref($port) eq 'ARRAY') {
+    $port = join(',',split(m{\.},@$port[0]),@$port[1] >> 8,@$port[1] & 0xff);
+  }
+  my $ok = $cmd eq 'EPRT' ? $ftp->_EPRT($port) : $ftp->_PORT($port);
+  ${*$ftp}{net_ftp_port} = $port if $ok;
+  return $ok;
+}
+
+
+sub ls  { shift->_list_cmd("NLST", @_); }
+sub dir { shift->_list_cmd("LIST", @_); }
+
+
+sub pasv {
+  my $ftp = shift;
+  @_ and croak 'usage: $ftp->port()';
+  return $ftp->epsv if $ftp->sockdomain != AF_INET;
+  delete ${*$ftp}{net_ftp_intern_port};
+
+  if ( $ftp->_PASV &&
+    $ftp->message =~ m{(\d+,\d+,\d+,\d+),(\d+),(\d+)} ) {
+    my $port = 256 * $2 + $3;
+    ( my $ip = $1 ) =~s{,}{.}g;
+    return ${*$ftp}{net_ftp_pasv} = [ $ip,$port ];
+  }
+  return;
+}
+
+sub epsv {
+  my $ftp = shift;
+  @_ and croak 'usage: $ftp->epsv()';
+  delete ${*$ftp}{net_ftp_intern_port};
+
+  $ftp->_EPSV && $ftp->message =~ m{\(([\x33-\x7e])\1\1(\d+)\1\)}
+    ? ${*$ftp}{net_ftp_pasv} = [ $ftp->peerhost, $2 ]
+    : undef;
+}
+
+
+sub unique_name {
+  my $ftp = shift;
+  ${*$ftp}{'net_ftp_unique'} || undef;
+}
+
+
+sub supported {
+  @_ == 2 or croak 'usage: $ftp->supported( CMD )';
+  my $ftp  = shift;
+  my $cmd  = uc shift;
+  my $hash = ${*$ftp}{'net_ftp_supported'} ||= {};
+
+  return $hash->{$cmd}
+    if exists $hash->{$cmd};
+
+  return $hash->{$cmd} = 1
+    if $ftp->feature($cmd);
+
+  return $hash->{$cmd} = 0
+    unless $ftp->_HELP($cmd);
+
+  my $text = $ftp->message;
+  if ($text =~ /following.+commands/i) {
+    $text =~ s/^.*\n//;
+    while ($text =~ /(\*?)(\w+)(\*?)/sg) {
+      $hash->{"\U$2"} = !length("$1$3");
+    }
+  }
+  else {
+    $hash->{$cmd} = $text !~ /unimplemented/i;
+  }
+
+  $hash->{$cmd} ||= 0;
+}
+
+##
+## Deprecated methods
+##
+
+
+sub lsl {
+  carp "Use of Net::FTP::lsl deprecated, use 'dir'"
+    if $^W;
+  goto &dir;
+}
+
+
+sub authorise {
+  carp "Use of Net::FTP::authorise deprecated, use 'authorize'"
+    if $^W;
+  goto &authorize;
+}
+
+
+##
+## Private methods
+##
+
+
+sub _extract_path {
+  my ($ftp, $path) = @_;
+
+  # This tries to work both with and without the quote doubling
+  # convention (RFC 959 requires it, but the first 3 servers I checked
+  # didn't implement it).  It will fail on a server which uses a quote in
+  # the message which isn't a part of or surrounding the path.
+  $ftp->ok
+    && $ftp->message =~ /(?:^|\s)\"(.*)\"(?:$|\s)/
+    && ($path = $1) =~ s/\"\"/\"/g;
+
+  $path;
+}
+
+##
+## Communication methods
+##
+
+
+sub _dataconn {
+  my $ftp = shift;
+  my $pkg = "Net::FTP::" . $ftp->type;
+  eval "require " . $pkg ## no critic (BuiltinFunctions::ProhibitStringyEval)
+    or croak("cannot load $pkg required for type ".$ftp->type);
+  $pkg =~ s/ /_/g;
+  delete ${*$ftp}{net_ftp_dataconn};
+
+  my $conn;
+  my $pasv = ${*$ftp}{net_ftp_pasv};
+  if ($pasv) {
+    $conn = $pkg->new(
+      PeerAddr  => $pasv->[0],
+      PeerPort  => $pasv->[1],
+      LocalAddr => ${*$ftp}{net_ftp_localaddr},
+      $family_key => ${*$ftp}{net_ftp_domain},
+      Timeout   => $ftp->timeout,
+      can_ssl() ? (
+        SSL_startHandshake => 0,
+        $ftp->is_SSL ? (
+          SSL_reuse_ctx => $ftp,
+          SSL_verifycn_name => ${*$ftp}{net_ftp_tlsargs}{SSL_verifycn_name},
+          # This will cause the use of SNI if supported by IO::Socket::SSL.
+          $ftp->can_client_sni ? (
+            SSL_hostname  => ${*$ftp}{net_ftp_tlsargs}{SSL_hostname}
+          ):(),
+        ) :( %{${*$ftp}{net_ftp_tlsargs}} ),
+      ):(),
+    ) or return;
+  } elsif (my $listen =  delete ${*$ftp}{net_ftp_listen}) {
+    $conn = $listen->accept($pkg) or return;
+    $conn->timeout($ftp->timeout);
+    close($listen);
+  } else {
+    croak("no listener in active mode");
+  }
+
+  if (( ${*$ftp}{net_ftp_tlsprot} || '') eq 'P') {
+    if ($conn->connect_SSL) {
+      # SSL handshake ok
+    } else {
+      carp("failed to ssl upgrade dataconn: $IO::Socket::SSL::SSL_ERROR");
+      return;
+    }
+  }
+
+  ${*$ftp}{net_ftp_dataconn} = $conn;
+  ${*$conn} = "";
+  ${*$conn}{net_ftp_cmd} = $ftp;
+  ${*$conn}{net_ftp_blksize} = ${*$ftp}{net_ftp_blksize};
+  return $conn;
+}
+
+
+sub _list_cmd {
+  my $ftp = shift;
+  my $cmd = uc shift;
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  my $data = $ftp->_data_cmd($cmd, @_);
+
+  return
+    unless (defined $data);
+
+  require Net::FTP::A;
+  bless $data, "Net::FTP::A";    # Force ASCII mode
+
+  my $databuf = '';
+  my $buf     = '';
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+
+  while ($data->read($databuf, $blksize)) {
+    $buf .= $databuf;
+  }
+
+  my $list = [split(/\n/, $buf)];
+
+  $data->close();
+
+  if (EBCDIC) {
+    for (@$list) { $_ = $ftp->toebcdic($_) }
+  }
+
+  wantarray
+    ? @{$list}
+    : $list;
+}
+
+
+sub _data_cmd {
+  my $ftp   = shift;
+  my $cmd   = uc shift;
+  my $ok    = 1;
+  my $where = delete ${*$ftp}{'net_ftp_rest'} || 0;
+  my $arg;
+
+  for my $arg (@_) {
+    croak("Bad argument '$arg'\n")
+      if $arg =~ /[\r\n]/s;
+  }
+
+  if ( ${*$ftp}{'net_ftp_passive'}
+    && !defined ${*$ftp}{'net_ftp_pasv'}
+    && !defined ${*$ftp}{'net_ftp_port'})
+  {
+    return unless defined $ftp->pasv;
+
+    if ($where and !$ftp->_REST($where)) {
+      my ($status, $message) = ($ftp->status, $ftp->message);
+      $ftp->abort;
+      $ftp->set_status($status, $message);
+      return;
+    }
+
+    # first send command, then open data connection
+    # otherwise the peer might not do a full accept (with SSL
+    # handshake if PROT P)
+    $ftp->command($cmd, @_);
+    my $data = $ftp->_dataconn();
+    if (CMD_INFO == $ftp->response()) {
+      $data->reading
+        if $data && $cmd =~ /RETR|LIST|NLST|MLSD/;
+      return $data;
+    }
+    $data->_close if $data;
+
+    return;
+  }
+
+  $ok = $ftp->port
+    unless (defined ${*$ftp}{'net_ftp_port'}
+    || defined ${*$ftp}{'net_ftp_pasv'});
+
+  $ok = $ftp->_REST($where)
+    if $ok && $where;
+
+  return
+    unless $ok;
+
+  if ($cmd =~ /(STOR|APPE|STOU)/ and exists ${*$ftp}{net_ftp_allo} and
+      $ftp->supported("ALLO"))
+  {
+    $ftp->_ALLO(delete ${*$ftp}{net_ftp_allo})
+      or return;
+  }
+
+  $ftp->command($cmd, @_);
+
+  return 1
+    if (defined ${*$ftp}{'net_ftp_pasv'});
+
+  $ok = CMD_INFO == $ftp->response();
+
+  return $ok
+    unless exists ${*$ftp}{'net_ftp_intern_port'};
+
+  if ($ok) {
+    my $data = $ftp->_dataconn();
+
+    $data->reading
+      if $data && $cmd =~ /RETR|LIST|NLST|MLSD/;
+
+    return $data;
+  }
+
+
+  close(delete ${*$ftp}{'net_ftp_listen'});
+
+  return;
+}
+
+##
+## Over-ride methods (Net::Cmd)
+##
+
+
+sub debug_text { $_[2] =~ /^(pass|resp|acct)/i ? "$1 ....\n" : $_[2]; }
+
+
+sub command {
+  my $ftp = shift;
+
+  delete ${*$ftp}{'net_ftp_port'};
+  $ftp->SUPER::command(@_);
+}
+
+
+sub response {
+  my $ftp  = shift;
+  my $code = $ftp->SUPER::response() || 5;    # assume 500 if undef
+
+  delete ${*$ftp}{'net_ftp_pasv'}
+    if ($code != CMD_MORE && $code != CMD_INFO);
+
+  $code;
+}
+
+
+sub parse_response {
+  return ($1, $2 eq "-")
+    if $_[1] =~ s/^(\d\d\d)([- ]?)//o;
+
+  my $ftp = shift;
+
+  # Darn MS FTP server is a load of CRAP !!!!
+  # Expect to see undef here.
+  return ()
+    unless 0 + (${*$ftp}{'net_cmd_code'} || 0);
+
+  (${*$ftp}{'net_cmd_code'}, 1);
+}
+
+##
+## Allow 2 servers to talk directly
+##
+
+
+sub pasv_xfer_unique {
+  my ($sftp, $sfile, $dftp, $dfile) = @_;
+  $sftp->pasv_xfer($sfile, $dftp, $dfile, 1);
+}
+
+
+sub pasv_xfer {
+  my ($sftp, $sfile, $dftp, $dfile, $unique) = @_;
+
+  ($dfile = $sfile) =~ s#.*/##
+    unless (defined $dfile);
+
+  my $port = $sftp->pasv
+    or return;
+
+  $dftp->port($port)
+    or return;
+
+  return
+    unless ($unique ? $dftp->stou($dfile) : $dftp->stor($dfile));
+
+  unless ($sftp->retr($sfile) && $sftp->response == CMD_INFO) {
+    $sftp->retr($sfile);
+    $dftp->abort;
+    $dftp->response();
+    return;
+  }
+
+  $dftp->pasv_wait($sftp);
+}
+
+
+sub pasv_wait {
+  @_ == 2 or croak 'usage: $ftp->pasv_wait(NON_PASV_FTP)';
+
+  my ($ftp, $non_pasv) = @_;
+  my ($file, $rin, $rout);
+
+  vec($rin = '', fileno($ftp), 1) = 1;
+  select($rout = $rin, undef, undef, undef);
+
+  my $dres = $ftp->response();
+  my $sres = $non_pasv->response();
+
+  return
+    unless $dres == CMD_OK && $sres == CMD_OK;
+
+  return
+    unless $ftp->ok() && $non_pasv->ok();
+
+  return $1
+    if $ftp->message =~ /unique file name:\s*(\S*)\s*\)/;
+
+  return $1
+    if $non_pasv->message =~ /unique file name:\s*(\S*)\s*\)/;
+
+  return 1;
+}
+
+
+sub feature {
+  @_ == 2 or croak 'usage: $ftp->feature( NAME )';
+  my ($ftp, $feat) = @_;
+
+  my $feature = ${*$ftp}{net_ftp_feature} ||= do {
+    my @feat;
+
+    # Example response
+    # 211-Features:
+    #  MDTM
+    #  REST STREAM
+    #  SIZE
+    # 211 End
+
+    @feat = map { /^\s+(.*\S)/ } $ftp->message
+      if $ftp->_FEAT;
+
+    \@feat;
+  };
+
+  return grep { /^\Q$feat\E\b/i } @$feature;
+}
+
+
+sub cmd { shift->command(@_)->response() }
+
+########################################
+#
+# RFC959 + RFC2428 + RFC4217 commands
+#
+
+
+sub _ABOR { shift->command("ABOR")->response() == CMD_OK }
+sub _ALLO { shift->command("ALLO", @_)->response() == CMD_OK }
+sub _CDUP { shift->command("CDUP")->response() == CMD_OK }
+sub _NOOP { shift->command("NOOP")->response() == CMD_OK }
+sub _PASV { shift->command("PASV")->response() == CMD_OK }
+sub _QUIT { shift->command("QUIT")->response() == CMD_OK }
+sub _DELE { shift->command("DELE", @_)->response() == CMD_OK }
+sub _CWD  { shift->command("CWD", @_)->response() == CMD_OK }
+sub _PORT { shift->command("PORT", @_)->response() == CMD_OK }
+sub _RMD  { shift->command("RMD", @_)->response() == CMD_OK }
+sub _MKD  { shift->command("MKD", @_)->response() == CMD_OK }
+sub _PWD  { shift->command("PWD", @_)->response() == CMD_OK }
+sub _TYPE { shift->command("TYPE", @_)->response() == CMD_OK }
+sub _RNTO { shift->command("RNTO", @_)->response() == CMD_OK }
+sub _RESP { shift->command("RESP", @_)->response() == CMD_OK }
+sub _MDTM { shift->command("MDTM", @_)->response() == CMD_OK }
+sub _SIZE { shift->command("SIZE", @_)->response() == CMD_OK }
+sub _HELP { shift->command("HELP", @_)->response() == CMD_OK }
+sub _STAT { shift->command("STAT", @_)->response() == CMD_OK }
+sub _FEAT { shift->command("FEAT", @_)->response() == CMD_OK }
+sub _PBSZ { shift->command("PBSZ", @_)->response() == CMD_OK }
+sub _PROT { shift->command("PROT", @_)->response() == CMD_OK }
+sub _CCC  { shift->command("CCC", @_)->response() == CMD_OK }
+sub _EPRT { shift->command("EPRT", @_)->response() == CMD_OK }
+sub _EPSV { shift->command("EPSV", @_)->response() == CMD_OK }
+sub _APPE { shift->command("APPE", @_)->response() == CMD_INFO }
+sub _LIST { shift->command("LIST", @_)->response() == CMD_INFO }
+sub _NLST { shift->command("NLST", @_)->response() == CMD_INFO }
+sub _RETR { shift->command("RETR", @_)->response() == CMD_INFO }
+sub _STOR { shift->command("STOR", @_)->response() == CMD_INFO }
+sub _STOU { shift->command("STOU", @_)->response() == CMD_INFO }
+sub _RNFR { shift->command("RNFR", @_)->response() == CMD_MORE }
+sub _REST { shift->command("REST", @_)->response() == CMD_MORE }
+sub _PASS { shift->command("PASS", @_)->response() }
+sub _ACCT { shift->command("ACCT", @_)->response() }
+sub _AUTH { shift->command("AUTH", @_)->response() }
+
+
+sub _USER {
+  my $ftp = shift;
+  my $ok  = $ftp->command("USER", @_)->response();
+
+  # A certain brain dead firewall :-)
+  $ok = $ftp->command("user", @_)->response()
+    unless $ok == CMD_MORE or $ok == CMD_OK;
+
+  $ok;
+}
+
+
+sub _SMNT { shift->unsupported(@_) }
+sub _MODE { shift->unsupported(@_) }
+sub _SYST { shift->unsupported(@_) }
+sub _STRU { shift->unsupported(@_) }
+sub _REIN { shift->unsupported(@_) }
+
+{
+  # Session Cache with single entry
+  # used to make sure that we reuse same session for control and data channels
+  package Net::FTP::_SSL_SingleSessionCache;
+  sub new { my $x; return bless \$x,shift }
+  sub add_session {
+    my ($cache,$key,$session) = @_;
+    Net::SSLeay::SESSION_free($$cache) if $$cache;
+    $$cache = $session;
+  }
+  sub get_session {
+    my $cache = shift;
+    return $$cache
+  }
+  sub DESTROY {
+    my $cache = shift;
+    Net::SSLeay::SESSION_free($$cache) if $$cache;
+  }
+}
+
+1;
+
+__END__
+
+# Net::Netrc.pm
+#
+# Copyright (C) 1995-1998 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2014 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Netrc;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use FileHandle;
+
+our $VERSION = "3.11";
+
+our $TESTING;
+
+my %netrc = ();
+
+sub _readrc {
+  my($class, $host) = @_;
+  my ($home, $file);
+
+  if ($^O eq "MacOS") {
+    $home = $ENV{HOME} || `pwd`;
+    chomp($home);
+    $file = ($home =~ /:$/ ? $home . "netrc" : $home . ":netrc");
+  }
+  else {
+
+    # Some OS's don't have "getpwuid", so we default to $ENV{HOME}
+    $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
+    $home ||= $ENV{HOMEDRIVE} . ($ENV{HOMEPATH} || '') if defined $ENV{HOMEDRIVE};
+    if (-e $home . "/.netrc") {
+      $file = $home . "/.netrc";
+    }
+    elsif (-e $home . "/_netrc") {
+      $file = $home . "/_netrc";
+    }
+    else {
+      return unless $TESTING;
+    }
+  }
+
+  my ($login, $pass, $acct) = (undef, undef, undef);
+  my $fh;
+  local $_;
+
+  $netrc{default} = undef;
+
+  # OS/2 and Win32 do not handle stat in a way compatible with this check :-(
+  unless ($^O eq 'os2'
+    || $^O eq 'MSWin32'
+    || $^O eq 'MacOS'
+    || $^O =~ /^cygwin/)
+  {
+    my @stat = stat($file);
+
+    if (@stat) {
+      if ($stat[2] & 077) { ## no critic (ValuesAndExpressions::ProhibitLeadingZeros)
+        carp "Bad permissions: $file";
+        return;
+      }
+      if ($stat[4] != $<) {
+        carp "Not owner: $file";
+        return;
+      }
+    }
+  }
+
+  if ($fh = FileHandle->new($file, "r")) {
+    my ($mach, $macdef, $tok, @tok) = (0, 0);
+
+    while (<$fh>) {
+      undef $macdef if /\A\n\Z/;
+
+      if ($macdef) {
+        push(@$macdef, $_);
+        next;
+      }
+
+      s/^\s*//;
+      chomp;
+
+      while (length && s/^("((?:[^"]+|\\.)*)"|((?:[^\\\s]+|\\.)*))\s*//) {
+        (my $tok = $+) =~ s/\\(.)/$1/g;
+        push(@tok, $tok);
+      }
+
+    TOKEN:
+      while (@tok) {
+        if ($tok[0] eq "default") {
+          shift(@tok);
+          $mach = bless {}, $class;
+          $netrc{default} = [$mach];
+
+          next TOKEN;
+        }
+
+        last TOKEN
+          unless @tok > 1;
+
+        $tok = shift(@tok);
+
+        if ($tok eq "machine") {
+          my $host = shift @tok;
+          $mach = bless {machine => $host}, $class;
+
+          $netrc{$host} = []
+            unless exists($netrc{$host});
+          push(@{$netrc{$host}}, $mach);
+        }
+        elsif ($tok =~ /^(login|password|account)$/) {
+          next TOKEN unless $mach;
+          my $value = shift @tok;
+
+          # Following line added by rmerrell to remove '/' escape char in .netrc
+          $value =~ s/\/\\/\\/g;
+          $mach->{$1} = $value;
+        }
+        elsif ($tok eq "macdef") {
+          next TOKEN unless $mach;
+          my $value = shift @tok;
+          $mach->{macdef} = {}
+            unless exists $mach->{macdef};
+          $macdef = $mach->{machdef}{$value} = [];
+        }
+      }
+    }
+    $fh->close();
+  }
+}
+
+
+sub lookup {
+  my ($class, $mach, $login) = @_;
+
+  $class->_readrc()
+    unless exists $netrc{default};
+
+  $mach ||= 'default';
+  undef $login
+    if $mach eq 'default';
+
+  if (exists $netrc{$mach}) {
+    if (defined $login) {
+      foreach my $m (@{$netrc{$mach}}) {
+        return $m
+          if (exists $m->{login} && $m->{login} eq $login);
+      }
+      return;
+    }
+    return $netrc{$mach}->[0];
+  }
+
+  return $netrc{default}->[0]
+    if defined $netrc{default};
+
+  return;
+}
+
+
+sub login {
+  my $me = shift;
+
+  exists $me->{login}
+    ? $me->{login}
+    : undef;
+}
+
+
+sub account {
+  my $me = shift;
+
+  exists $me->{account}
+    ? $me->{account}
+    : undef;
+}
+
+
+sub password {
+  my $me = shift;
+
+  exists $me->{password}
+    ? $me->{password}
+    : undef;
+}
+
+
+sub lpa {
+  my $me = shift;
+  ($me->login, $me->password, $me->account);
+}
+
+1;
+
+__END__
+
+# Net::Config.pm
+#
+# Copyright (C) 2000 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2014, 2016 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Config;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Exporter;
+use Socket qw(inet_aton inet_ntoa);
+
+our @EXPORT  = qw(%NetConfig);
+our @ISA     = qw(Net::LocalCfg Exporter);
+our $VERSION = "3.11";
+
+our($CONFIGURE, $LIBNET_CFG);
+
+eval {
+  local @INC = @INC;
+  pop @INC if $INC[-1] eq '.';
+  local $SIG{__DIE__};
+  require Net::LocalCfg;
+};
+
+our %NetConfig = (
+  nntp_hosts      => [],
+  snpp_hosts      => [],
+  pop3_hosts      => [],
+  smtp_hosts      => [],
+  ph_hosts        => [],
+  daytime_hosts   => [],
+  time_hosts      => [],
+  inet_domain     => undef,
+  ftp_firewall    => undef,
+  ftp_ext_passive => 1,
+  ftp_int_passive => 1,
+  test_hosts      => 1,
+  test_exist      => 1,
+);
+
+#
+# Try to get as much configuration info as possible from InternetConfig
+#
+{
+## no critic (BuiltinFunctions::ProhibitStringyEval)
+$^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
+use Mac::InternetConfig;
+
+{
+my %nc = (
+    nntp_hosts      => [ \$InternetConfig{ kICNNTPHost() } ],
+    pop3_hosts      => [ \$InternetConfig{ kICMailAccount() } =~ /\@(.*)/ ],
+    smtp_hosts      => [ \$InternetConfig{ kICSMTPHost() } ],
+    ftp_testhost    => \$InternetConfig{ kICFTPHost() } ? \$InternetConfig{ kICFTPHost()} : undef,
+    ph_hosts        => [ \$InternetConfig{ kICPhHost() }   ],
+    ftp_ext_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
+    ftp_int_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
+    socks_hosts     => 
+        \$InternetConfig{ kICUseSocks() }    ? [ \$InternetConfig{ kICSocksHost() }    ] : [],
+    ftp_firewall    => 
+        \$InternetConfig{ kICUseFTPProxy() } ? [ \$InternetConfig{ kICFTPProxyHost() } ] : [],
+);
+\@NetConfig{keys %nc} = values %nc;
+}
+TRY_INTERNET_CONFIG
+}
+
+my $file = __FILE__;
+my $ref;
+$file =~ s/Config.pm/libnet.cfg/;
+if (-f $file) {
+  $ref = eval { local $SIG{__DIE__}; do $file };
+  if (ref($ref) eq 'HASH') {
+    %NetConfig = (%NetConfig, %{$ref});
+    $LIBNET_CFG = $file;
+  }
+}
+if ($< == $> and !$CONFIGURE) {
+  my $home = eval { local $SIG{__DIE__}; (getpwuid($>))[7] } || $ENV{HOME};
+  $home ||= $ENV{HOMEDRIVE} . ($ENV{HOMEPATH} || '') if defined $ENV{HOMEDRIVE};
+  if (defined $home) {
+    $file      = $home . "/.libnetrc";
+    $ref       = eval { local $SIG{__DIE__}; do $file } if -f $file;
+    %NetConfig = (%NetConfig, %{$ref})
+      if ref($ref) eq 'HASH';
+  }
+}
+my ($k, $v);
+while (($k, $v) = each %NetConfig) {
+  $NetConfig{$k} = [$v]
+    if ($k =~ /_hosts$/ and $k ne "test_hosts" and defined($v) and !ref($v));
+}
+
+# Take a hostname and determine if it is inside the firewall
+
+
+sub requires_firewall {
+  shift;    # ignore package
+  my $host = shift;
+
+  return 0 unless defined $NetConfig{'ftp_firewall'};
+
+  $host = inet_aton($host) or return -1;
+  $host = inet_ntoa($host);
+
+  if (exists $NetConfig{'local_netmask'}) {
+    my $quad = unpack("N", pack("C*", split(/\./, $host)));
+    my $list = $NetConfig{'local_netmask'};
+    $list = [$list] unless ref($list);
+    foreach (@$list) {
+      my ($net, $bits) = (m#^(\d+\.\d+\.\d+\.\d+)/(\d+)$#) or next;
+      my $mask = ~0 << (32 - $bits);
+      my $addr = unpack("N", pack("C*", split(/\./, $net)));
+
+      return 0 if (($addr & $mask) == ($quad & $mask));
+    }
+    return 1;
+  }
+
+  return 0;
+}
+
+*is_external = \&requires_firewall;
+
+1;
+
+__END__
+
+# Net::Cmd.pm
+#
+# Copyright (C) 1995-2006 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2016 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Cmd;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use Symbol 'gensym';
+use Errno 'EINTR';
+
+BEGIN {
+  if ($^O eq 'os390') {
+    require Convert::EBCDIC;
+
+    #    Convert::EBCDIC->import;
+  }
+}
+
+our $VERSION = "3.11";
+our @ISA     = qw(Exporter);
+our @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
+
+use constant CMD_INFO    => 1;
+use constant CMD_OK      => 2;
+use constant CMD_MORE    => 3;
+use constant CMD_REJECT  => 4;
+use constant CMD_ERROR   => 5;
+use constant CMD_PENDING => 0;
+
+use constant DEF_REPLY_CODE => 421;
+
+my %debug = ();
+
+my $tr = $^O eq 'os390' ? Convert::EBCDIC->new() : undef;
+
+sub toebcdic {
+  my $cmd = shift;
+
+  unless (exists ${*$cmd}{'net_cmd_asciipeer'}) {
+    my $string    = $_[0];
+    my $ebcdicstr = $tr->toebcdic($string);
+    ${*$cmd}{'net_cmd_asciipeer'} = $string !~ /^\d+/ && $ebcdicstr =~ /^\d+/;
+  }
+
+  ${*$cmd}{'net_cmd_asciipeer'}
+    ? $tr->toebcdic($_[0])
+    : $_[0];
+}
+
+
+sub toascii {
+  my $cmd = shift;
+  ${*$cmd}{'net_cmd_asciipeer'}
+    ? $tr->toascii($_[0])
+    : $_[0];
+}
+
+
+sub _print_isa {
+  no strict 'refs'; ## no critic (TestingAndDebugging::ProhibitNoStrict)
+
+  my $pkg = shift;
+  my $cmd = $pkg;
+
+  $debug{$pkg} ||= 0;
+
+  my %done = ();
+  my @do   = ($pkg);
+  my %spc  = ($pkg, "");
+
+  while ($pkg = shift @do) {
+    next if defined $done{$pkg};
+
+    $done{$pkg} = 1;
+
+    my $v =
+      defined ${"${pkg}::VERSION"}
+      ? "(" . ${"${pkg}::VERSION"} . ")"
+      : "";
+
+    my $spc = $spc{$pkg};
+    $cmd->debug_print(1, "${spc}${pkg}${v}\n");
+
+    if (@{"${pkg}::ISA"}) {
+      @spc{@{"${pkg}::ISA"}} = ("  " . $spc{$pkg}) x @{"${pkg}::ISA"};
+      unshift(@do, @{"${pkg}::ISA"});
+    }
+  }
+}
+
+
+sub debug {
+  @_ == 1 or @_ == 2 or croak 'usage: $obj->debug([LEVEL])';
+
+  my ($cmd, $level) = @_;
+  my $pkg    = ref($cmd) || $cmd;
+  my $oldval = 0;
+
+  if (ref($cmd)) {
+    $oldval = ${*$cmd}{'net_cmd_debug'} || 0;
+  }
+  else {
+    $oldval = $debug{$pkg} || 0;
+  }
+
+  return $oldval
+    unless @_ == 2;
+
+  $level = $debug{$pkg} || 0
+    unless defined $level;
+
+  _print_isa($pkg)
+    if ($level && !exists $debug{$pkg});
+
+  if (ref($cmd)) {
+    ${*$cmd}{'net_cmd_debug'} = $level;
+  }
+  else {
+    $debug{$pkg} = $level;
+  }
+
+  $oldval;
+}
+
+
+sub message {
+  @_ == 1 or croak 'usage: $obj->message()';
+
+  my $cmd = shift;
+
+  wantarray
+    ? @{${*$cmd}{'net_cmd_resp'}}
+    : join("", @{${*$cmd}{'net_cmd_resp'}});
+}
+
+
+sub debug_text { $_[2] }
+
+
+sub debug_print {
+  my ($cmd, $out, $text) = @_;
+  print STDERR $cmd, ($out ? '>>> ' : '<<< '), $cmd->debug_text($out, $text);
+}
+
+
+sub code {
+  @_ == 1 or croak 'usage: $obj->code()';
+
+  my $cmd = shift;
+
+  ${*$cmd}{'net_cmd_code'} = $cmd->DEF_REPLY_CODE
+    unless exists ${*$cmd}{'net_cmd_code'};
+
+  ${*$cmd}{'net_cmd_code'};
+}
+
+
+sub status {
+  @_ == 1 or croak 'usage: $obj->status()';
+
+  my $cmd = shift;
+
+  substr(${*$cmd}{'net_cmd_code'}, 0, 1);
+}
+
+
+sub set_status {
+  @_ == 3 or croak 'usage: $obj->set_status(CODE, MESSAGE)';
+
+  my $cmd = shift;
+  my ($code, $resp) = @_;
+
+  $resp = defined $resp ? [$resp] : []
+    unless ref($resp);
+
+  (${*$cmd}{'net_cmd_code'}, ${*$cmd}{'net_cmd_resp'}) = ($code, $resp);
+
+  1;
+}
+
+sub _syswrite_with_timeout {
+  my $cmd = shift;
+  my $line = shift;
+
+  my $len    = length($line);
+  my $offset = 0;
+  my $win    = "";
+  vec($win, fileno($cmd), 1) = 1;
+  my $timeout = $cmd->timeout || undef;
+  my $initial = time;
+  my $pending = $timeout;
+
+  local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
+
+  while ($len) {
+    my $wout;
+    my $nfound = select(undef, $wout = $win, undef, $pending);
+    if ((defined $nfound and $nfound > 0) or -f $cmd)    # -f for testing on win32
+    {
+      my $w = syswrite($cmd, $line, $len, $offset);
+      if (! defined($w) ) {
+        my $err = $!;
+        $cmd->close;
+        $cmd->_set_status_closed($err);
+        return;
+      }
+      $len -= $w;
+      $offset += $w;
+    }
+    elsif ($nfound == -1) {
+      if ( $! == EINTR ) {
+        if ( defined($timeout) ) {
+          redo if ($pending = $timeout - ( time - $initial ) ) > 0;
+          $cmd->_set_status_timeout;
+          return;
+        }
+        redo;
+      }
+      my $err = $!;
+      $cmd->close;
+      $cmd->_set_status_closed($err);
+      return;
+    }
+    else {
+      $cmd->_set_status_timeout;
+      return;
+    }
+  }
+
+  return 1;
+}
+
+sub _set_status_timeout {
+  my $cmd = shift;
+  my $pkg = ref($cmd) || $cmd;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, "[$pkg] Timeout");
+  carp(ref($cmd) . ": " . (caller(1))[3] . "(): timeout") if $cmd->debug;
+}
+
+sub _set_status_closed {
+  my $cmd = shift;
+  my $err = shift;
+  my $pkg = ref($cmd) || $cmd;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, "[$pkg] Connection closed");
+  carp(ref($cmd) . ": " . (caller(1))[3]
+    . "(): unexpected EOF on command channel: $err") if $cmd->debug;
+}
+
+sub _is_closed {
+  my $cmd = shift;
+  if (!defined fileno($cmd)) {
+     $cmd->_set_status_closed($!);
+     return 1;
+  }
+  return 0;
+}
+
+sub command {
+  my $cmd = shift;
+
+  return $cmd
+    if $cmd->_is_closed;
+
+  $cmd->dataend()
+    if (exists ${*$cmd}{'net_cmd_last_ch'});
+
+  if (scalar(@_)) {
+    my $str = join(
+      " ",
+      map {
+        /\n/
+          ? do { my $n = $_; $n =~ tr/\n/ /; $n }
+          : $_;
+        } @_
+    );
+    $str = $cmd->toascii($str) if $tr;
+    $str .= "\015\012";
+
+    $cmd->debug_print(1, $str)
+      if ($cmd->debug);
+
+    # though documented to return undef on failure, the legacy behavior
+    # was to return $cmd even on failure, so this odd construct does that
+    $cmd->_syswrite_with_timeout($str)
+      or return $cmd;
+  }
+
+  $cmd;
+}
+
+
+sub ok {
+  @_ == 1 or croak 'usage: $obj->ok()';
+
+  my $code = $_[0]->code;
+  0 < $code && $code < 400;
+}
+
+
+sub unsupported {
+  my $cmd = shift;
+
+  $cmd->set_status(580, 'Unsupported command');
+
+  0;
+}
+
+
+sub getline {
+  my $cmd = shift;
+
+  ${*$cmd}{'net_cmd_lines'} ||= [];
+
+  return shift @{${*$cmd}{'net_cmd_lines'}}
+    if scalar(@{${*$cmd}{'net_cmd_lines'}});
+
+  my $partial = defined(${*$cmd}{'net_cmd_partial'}) ? ${*$cmd}{'net_cmd_partial'} : "";
+
+  return
+    if $cmd->_is_closed;
+
+  my $fd = fileno($cmd);
+  my $rin = "";
+  vec($rin, $fd, 1) = 1;
+
+  my $buf;
+
+  until (scalar(@{${*$cmd}{'net_cmd_lines'}})) {
+    my $timeout = $cmd->timeout || undef;
+    my $rout;
+
+    my $select_ret = select($rout = $rin, undef, undef, $timeout);
+    if ($select_ret > 0) {
+      unless (sysread($cmd, $buf = "", 1024)) {
+        my $err = $!;
+        $cmd->close;
+        $cmd->_set_status_closed($err);
+        return;
+      }
+
+      substr($buf, 0, 0) = $partial;    ## prepend from last sysread
+
+      my @buf = split(/\015?\012/, $buf, -1);    ## break into lines
+
+      $partial = pop @buf;
+
+      push(@{${*$cmd}{'net_cmd_lines'}}, map {"$_\n"} @buf);
+
+    }
+    else {
+      $cmd->_set_status_timeout;
+      return;
+    }
+  }
+
+  ${*$cmd}{'net_cmd_partial'} = $partial;
+
+  if ($tr) {
+    foreach my $ln (@{${*$cmd}{'net_cmd_lines'}}) {
+      $ln = $cmd->toebcdic($ln);
+    }
+  }
+
+  shift @{${*$cmd}{'net_cmd_lines'}};
+}
+
+
+sub ungetline {
+  my ($cmd, $str) = @_;
+
+  ${*$cmd}{'net_cmd_lines'} ||= [];
+  unshift(@{${*$cmd}{'net_cmd_lines'}}, $str);
+}
+
+
+sub parse_response {
+  return ()
+    unless $_[1] =~ s/^(\d\d\d)(.?)//o;
+  ($1, $2 eq "-");
+}
+
+
+sub response {
+  my $cmd = shift;
+  my ($code, $more) = (undef) x 2;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, undef); # initialize the response
+
+  while (1) {
+    my $str = $cmd->getline();
+
+    return CMD_ERROR
+      unless defined($str);
+
+    $cmd->debug_print(0, $str)
+      if ($cmd->debug);
+
+    ($code, $more) = $cmd->parse_response($str);
+    unless (defined $code) {
+      carp("$cmd: response(): parse error in '$str'") if ($cmd->debug);
+      $cmd->ungetline($str);
+      $@ = $str;   # $@ used as tunneling hack
+      return CMD_ERROR;
+    }
+
+    ${*$cmd}{'net_cmd_code'} = $code;
+
+    push(@{${*$cmd}{'net_cmd_resp'}}, $str);
+
+    last unless ($more);
+  }
+
+  return unless defined $code;
+  substr($code, 0, 1);
+}
+
+
+sub read_until_dot {
+  my $cmd = shift;
+  my $fh  = shift;
+  my $arr = [];
+
+  while (1) {
+    my $str = $cmd->getline() or return;
+
+    $cmd->debug_print(0, $str)
+      if ($cmd->debug & 4);
+
+    last if ($str =~ /^\.\r?\n/o);
+
+    $str =~ s/^\.\././o;
+
+    if (defined $fh) {
+      print $fh $str;
+    }
+    else {
+      push(@$arr, $str);
+    }
+  }
+
+  $arr;
+}
+
+
+sub datasend {
+  my $cmd  = shift;
+  my $arr  = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
+  my $line = join("", @$arr);
+
+  # Perls < 5.10.1 (with the exception of 5.8.9) have a performance problem with
+  # the substitutions below when dealing with strings stored internally in
+  # UTF-8, so downgrade them (if possible).
+  # Data passed to datasend() should be encoded to octets upstream already so
+  # shouldn't even have the UTF-8 flag on to start with, but if it so happens
+  # that the octets are stored in an upgraded string (as can sometimes occur)
+  # then they would still downgrade without fail anyway.
+  # Only Unicode codepoints > 0xFF stored in an upgraded string will fail to
+  # downgrade. We fail silently in that case, and a "Wide character in print"
+  # warning will be emitted later by syswrite().
+  utf8::downgrade($line, 1) if $] < 5.010001 && $] != 5.008009;
+
+  return 0
+    if $cmd->_is_closed;
+
+  my $last_ch = ${*$cmd}{'net_cmd_last_ch'};
+
+  # We have not send anything yet, so last_ch = "\012" means we are at the start of a line
+  $last_ch = ${*$cmd}{'net_cmd_last_ch'} = "\012" unless defined $last_ch;
+
+  return 1 unless length $line;
+
+  if ($cmd->debug) {
+    foreach my $b (split(/\n/, $line)) {
+      $cmd->debug_print(1, "$b\n");
+    }
+  }
+
+  $line =~ tr/\r\n/\015\012/ unless "\r" eq "\015";
+
+  my $first_ch = '';
+
+  if ($last_ch eq "\015") {
+    # Remove \012 so it does not get prefixed with another \015 below
+    # and escape the . if there is one following it because the fixup
+    # below will not find it
+    $first_ch = "\012" if $line =~ s/^\012(\.?)/$1$1/;
+  }
+  elsif ($last_ch eq "\012") {
+    # Fixup below will not find the . as the first character of the buffer
+    $first_ch = "." if $line =~ /^\./;
+  }
+
+  $line =~ s/\015?\012(\.?)/\015\012$1$1/sg;
+
+  substr($line, 0, 0) = $first_ch;
+
+  ${*$cmd}{'net_cmd_last_ch'} = substr($line, -1, 1);
+
+  $cmd->_syswrite_with_timeout($line)
+    or return;
+
+  1;
+}
+
+
+sub rawdatasend {
+  my $cmd  = shift;
+  my $arr  = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
+  my $line = join("", @$arr);
+
+  return 0
+    if $cmd->_is_closed;
+
+  return 1
+    unless length($line);
+
+  if ($cmd->debug) {
+    my $b = "$cmd>>> ";
+    print STDERR $b, join("\n$b", split(/\n/, $line)), "\n";
+  }
+
+  $cmd->_syswrite_with_timeout($line)
+    or return;
+
+  1;
+}
+
+
+sub dataend {
+  my $cmd = shift;
+
+  return 0
+    if $cmd->_is_closed;
+
+  my $ch = ${*$cmd}{'net_cmd_last_ch'};
+  my $tosend;
+
+  if (!defined $ch) {
+    return 1;
+  }
+  elsif ($ch ne "\012") {
+    $tosend = "\015\012";
+  }
+
+  $tosend .= ".\015\012";
+
+  $cmd->debug_print(1, ".\n")
+    if ($cmd->debug);
+
+  $cmd->_syswrite_with_timeout($tosend)
+    or return 0;
+
+  delete ${*$cmd}{'net_cmd_last_ch'};
+
+  $cmd->response() == CMD_OK;
+}
+
+# read and write to tied filehandle
+sub tied_fh {
+  my $cmd = shift;
+  ${*$cmd}{'net_cmd_readbuf'} = '';
+  my $fh = gensym();
+  tie *$fh, ref($cmd), $cmd;
+  return $fh;
+}
+
+# tie to myself
+sub TIEHANDLE {
+  my $class = shift;
+  my $cmd   = shift;
+  return $cmd;
+}
+
+# Tied filehandle read.  Reads requested data length, returning
+# end-of-file when the dot is encountered.
+sub READ {
+  my $cmd = shift;
+  my ($len, $offset) = @_[1, 2];
+  return unless exists ${*$cmd}{'net_cmd_readbuf'};
+  my $done = 0;
+  while (!$done and length(${*$cmd}{'net_cmd_readbuf'}) < $len) {
+    ${*$cmd}{'net_cmd_readbuf'} .= $cmd->getline() or return;
+    $done++ if ${*$cmd}{'net_cmd_readbuf'} =~ s/^\.\r?\n\Z//m;
+  }
+
+  $_[0] = '';
+  substr($_[0], $offset + 0) = substr(${*$cmd}{'net_cmd_readbuf'}, 0, $len);
+  substr(${*$cmd}{'net_cmd_readbuf'}, 0, $len) = '';
+  delete ${*$cmd}{'net_cmd_readbuf'} if $done;
+
+  return length $_[0];
+}
+
+
+sub READLINE {
+  my $cmd = shift;
+
+  # in this context, we use the presence of readbuf to
+  # indicate that we have not yet reached the eof
+  return unless exists ${*$cmd}{'net_cmd_readbuf'};
+  my $line = $cmd->getline;
+  return if $line =~ /^\.\r?\n/;
+  $line;
+}
+
+
+sub PRINT {
+  my $cmd = shift;
+  my ($buf, $len, $offset) = @_;
+  $len ||= length($buf);
+  $offset += 0;
+  return unless $cmd->datasend(substr($buf, $offset, $len));
+  ${*$cmd}{'net_cmd_sending'}++;    # flag that we should call dataend()
+  return $len;
+}
+
+
+sub CLOSE {
+  my $cmd = shift;
+  my $r = exists(${*$cmd}{'net_cmd_sending'}) ? $cmd->dataend : 1;
+  delete ${*$cmd}{'net_cmd_readbuf'};
+  delete ${*$cmd}{'net_cmd_sending'};
+  $r;
+}
+
+1;
+
+__END__
+
+
+# Net::POP3.pm
+#
+# Copyright (C) 1995-2004 Graham Barr.  All rights reserved.
+# Copyright (C) 2013-2016 Steve Hay.  All rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::POP3;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+
+our $VERSION = "3.11";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.25) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+  my $hosts = defined $host ? [$host] : $NetConfig{pop3_hosts};
+  my $obj;
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if !$ssl_class;
+    $arg{Port} ||= 995;
+  }
+
+  $arg{Timeout} = 120 if ! defined $arg{Timeout};
+
+  foreach my $h (@{$hosts}) {
+    $obj = $type->SUPER::new(
+      PeerAddr => ($host = $h),
+      PeerPort => $arg{Port} || 'pop3(110)',
+      Proto => 'tcp',
+      $family_key => $arg{Domain} || $arg{Family},
+      LocalAddr => $arg{LocalAddr},
+      LocalPort => exists($arg{ResvPort}) ? $arg{ResvPort} : $arg{LocalPort},
+      Timeout => $arg{Timeout},
+      )
+      and last;
+  }
+
+  return
+    unless defined $obj;
+
+  ${*$obj}{'net_pop3_arg'} = \%arg;
+  ${*$obj}{'net_pop3_host'} = $host;
+  if ($arg{SSL}) {
+    Net::POP3::_SSL->start_SSL($obj,%arg) or return;
+  }
+
+  $obj->autoflush(1);
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    $obj->close();
+    return;
+  }
+
+  ${*$obj}{'net_pop3_banner'} = $obj->message;
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_pop3_host'};
+}
+
+##
+## We don't want people sending me their passwords when they report problems
+## now do we :-)
+##
+
+
+sub debug_text { $_[2] =~ /^(pass|rpop)/i ? "$1 ....\n" : $_[2]; }
+
+
+sub login {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $pop3->login( USER, PASS )';
+  my ($me, $user, $pass) = @_;
+
+  if (@_ <= 2) {
+    ($user, $pass) = $me->_lookup_credentials($user);
+  }
+
+  $me->user($user)
+    and $me->pass($pass);
+}
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STLS or return;
+  Net::POP3::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_pop3_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+  return 1;
+}
+
+sub apop {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $pop3->apop( USER, PASS )';
+  my ($me, $user, $pass) = @_;
+  my $banner;
+  my $md;
+
+  if (eval { local $SIG{__DIE__}; require Digest::MD5 }) {
+    $md = Digest::MD5->new();
+  }
+  elsif (eval { local $SIG{__DIE__}; require MD5 }) {
+    $md = MD5->new();
+  }
+  else {
+    carp "You need to install Digest::MD5 or MD5 to use the APOP command";
+    return;
+  }
+
+  return
+    unless ($banner = (${*$me}{'net_pop3_banner'} =~ /(<.*>)/)[0]);
+
+  if (@_ <= 2) {
+    ($user, $pass) = $me->_lookup_credentials($user);
+  }
+
+  $md->add($banner, $pass);
+
+  return
+    unless ($me->_APOP($user, $md->hexdigest));
+
+  $me->_get_mailbox_count();
+}
+
+
+sub user {
+  @_ == 2 or croak 'usage: $pop3->user( USER )';
+  $_[0]->_USER($_[1]) ? 1 : undef;
+}
+
+
+sub pass {
+  @_ == 2 or croak 'usage: $pop3->pass( PASS )';
+
+  my ($me, $pass) = @_;
+
+  return
+    unless ($me->_PASS($pass));
+
+  $me->_get_mailbox_count();
+}
+
+
+sub reset {
+  @_ == 1 or croak 'usage: $obj->reset()';
+
+  my $me = shift;
+
+  return 0
+    unless ($me->_RSET);
+
+  if (defined ${*$me}{'net_pop3_mail'}) {
+    local $_;
+    foreach (@{${*$me}{'net_pop3_mail'}}) {
+      delete $_->{'net_pop3_deleted'};
+    }
+  }
+}
+
+
+sub last {
+  @_ == 1 or croak 'usage: $obj->last()';
+
+  return
+    unless $_[0]->_LAST && $_[0]->message =~ /(\d+)/;
+
+  return $1;
+}
+
+
+sub top {
+  @_ == 2 || @_ == 3 or croak 'usage: $pop3->top( MSGNUM [, NUMLINES ])';
+  my $me = shift;
+
+  return
+    unless $me->_TOP($_[0], $_[1] || 0);
+
+  $me->read_until_dot;
+}
+
+
+sub popstat {
+  @_ == 1 or croak 'usage: $pop3->popstat()';
+  my $me = shift;
+
+  return ()
+    unless $me->_STAT && $me->message =~ /(\d+)\D+(\d+)/;
+
+  ($1 || 0, $2 || 0);
+}
+
+
+sub list {
+  @_ == 1 || @_ == 2 or croak 'usage: $pop3->list( [ MSGNUM ] )';
+  my $me = shift;
+
+  return
+    unless $me->_LIST(@_);
+
+  if (@_) {
+    $me->message =~ /\d+\D+(\d+)/;
+    return $1 || undef;
+  }
+
+  my $info = $me->read_until_dot
+    or return;
+
+  my %hash = map { (/(\d+)\D+(\d+)/) } @$info;
+
+  return \%hash;
+}
+
+
+sub get {
+  @_ == 2 or @_ == 3 or croak 'usage: $pop3->get( MSGNUM [, FH ])';
+  my $me = shift;
+
+  return
+    unless $me->_RETR(shift);
+
+  $me->read_until_dot(@_);
+}
+
+
+sub getfh {
+  @_ == 2 or croak 'usage: $pop3->getfh( MSGNUM )';
+  my $me = shift;
+
+  return unless $me->_RETR(shift);
+  return $me->tied_fh;
+}
+
+
+sub delete {
+  @_ == 2 or croak 'usage: $pop3->delete( MSGNUM )';
+  my $me = shift;
+  return 0 unless $me->_DELE(@_);
+  ${*$me}{'net_pop3_deleted'} = 1;
+}
+
+
+sub uidl {
+  @_ == 1 || @_ == 2 or croak 'usage: $pop3->uidl( [ MSGNUM ] )';
+  my $me = shift;
+  my $uidl;
+
+  $me->_UIDL(@_)
+    or return;
+  if (@_) {
+    $uidl = ($me->message =~ /\d+\s+([\041-\176]+)/)[0];
+  }
+  else {
+    my $ref = $me->read_until_dot
+      or return;
+    $uidl = {};
+    foreach my $ln (@$ref) {
+      my ($msg, $uid) = $ln =~ /^\s*(\d+)\s+([\041-\176]+)/;
+      $uidl->{$msg} = $uid;
+    }
+  }
+  return $uidl;
+}
+
+
+sub ping {
+  @_ == 2 or croak 'usage: $pop3->ping( USER )';
+  my $me = shift;
+
+  return () unless $me->_PING(@_) && $me->message =~ /(\d+)\D+(\d+)/;
+
+  ($1 || 0, $2 || 0);
+}
+
+
+sub _lookup_credentials {
+  my ($me, $user) = @_;
+
+  require Net::Netrc;
+
+       $user ||= eval { local $SIG{__DIE__}; (getpwuid($>))[0] }
+    || $ENV{NAME}
+    || $ENV{USER}
+    || $ENV{LOGNAME};
+
+  my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'}, $user);
+  $m ||= Net::Netrc->lookup(${*$me}{'net_pop3_host'});
+
+  my $pass = $m
+    ? $m->password || ""
+    : "";
+
+  ($user, $pass);
+}
+
+
+sub _get_mailbox_count {
+  my ($me) = @_;
+  my $ret = ${*$me}{'net_pop3_count'} =
+    ($me->message =~ /(\d+)\s+message/io) ? $1 : ($me->popstat)[0];
+
+  $ret ? $ret : "0E0";
+}
+
+
+sub _STAT { shift->command('STAT'       )->response() == CMD_OK }
+sub _LIST { shift->command('LIST',    @_)->response() == CMD_OK }
+sub _RETR { shift->command('RETR', $_[0])->response() == CMD_OK }
+sub _DELE { shift->command('DELE', $_[0])->response() == CMD_OK }
+sub _NOOP { shift->command('NOOP'       )->response() == CMD_OK }
+sub _RSET { shift->command('RSET'       )->response() == CMD_OK }
+sub _QUIT { shift->command('QUIT'       )->response() == CMD_OK }
+sub _TOP  { shift->command( 'TOP',    @_)->response() == CMD_OK }
+sub _UIDL { shift->command('UIDL',    @_)->response() == CMD_OK }
+sub _USER { shift->command('USER', $_[0])->response() == CMD_OK }
+sub _PASS { shift->command('PASS', $_[0])->response() == CMD_OK }
+sub _APOP { shift->command('APOP',    @_)->response() == CMD_OK }
+sub _PING { shift->command('PING', $_[0])->response() == CMD_OK }
+sub _RPOP { shift->command('RPOP', $_[0])->response() == CMD_OK }
+sub _LAST { shift->command('LAST'       )->response() == CMD_OK }
+sub _CAPA { shift->command('CAPA'       )->response() == CMD_OK }
+sub _STLS { shift->command("STLS",     )->response() == CMD_OK }
+
+
+sub quit {
+  my $me = shift;
+
+  $me->_QUIT;
+  $me->close;
+}
+
+
+sub DESTROY {
+  my $me = shift;
+
+  if (defined fileno($me) and ${*$me}{'net_pop3_deleted'}) {
+    $me->reset;
+    $me->quit;
+  }
+}
+
+##
+## POP3 has weird responses, so we emulate them to look the same :-)
+##
+
+
+sub response {
+  my $cmd  = shift;
+  my $str  = $cmd->getline() or return;
+  my $code = "500";
+
+  $cmd->debug_print(0, $str)
+    if ($cmd->debug);
+
+  if ($str =~ s/^\+OK\s*//io) {
+    $code = "200";
+  }
+  elsif ($str =~ s/^\+\s*//io) {
+    $code = "300";
+  }
+  else {
+    $str =~ s/^-ERR\s*//io;
+  }
+
+  ${*$cmd}{'net_cmd_resp'} = [$str];
+  ${*$cmd}{'net_cmd_code'} = $code;
+
+  substr($code, 0, 1);
+}
+
+
+sub capa {
+  my $this = shift;
+  my ($capa, %capabilities);
+
+  # Fake a capability here
+  $capabilities{APOP} = '' if ($this->banner() =~ /<.*>/);
+
+  if ($this->_CAPA()) {
+    $capabilities{CAPA} = 1;
+    $capa = $this->read_until_dot();
+    %capabilities = (%capabilities, map {/^\s*(\S+)\s*(.*)/} @$capa);
+  }
+  else {
+
+    # Check AUTH for SASL capabilities
+    if ($this->command('AUTH')->response() == CMD_OK) {
+      my $mechanism = $this->read_until_dot();
+      $capabilities{SASL} = join " ", map {m/([A-Z0-9_-]+)/} @{$mechanism};
+    }
+  }
+
+  return ${*$this}{'net_pop3e_capabilities'} = \%capabilities;
+}
+
+
+sub capabilities {
+  my $this = shift;
+
+  ${*$this}{'net_pop3e_capabilities'} || $this->capa;
+}
+
+
+sub auth {
+  my ($self, $username, $password) = @_;
+
+  eval {
+    require MIME::Base64;
+    require Authen::SASL;
+  } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo auth"]), return 0;
+
+  my $capa       = $self->capa;
+  my $mechanisms = $capa->{SASL} || 'CRAM-MD5';
+
+  my $sasl;
+
+  if (ref($username) and UNIVERSAL::isa($username, 'Authen::SASL')) {
+    $sasl = $username;
+    my $user_mech = $sasl->mechanism || '';
+    my @user_mech = split(/\s+/, $user_mech);
+    my %user_mech;
+    @user_mech{@user_mech} = ();
+
+    my @server_mech = split(/\s+/, $mechanisms);
+    my @mech = @user_mech
+      ? grep { exists $user_mech{$_} } @server_mech
+      : @server_mech;
+    unless (@mech) {
+      $self->set_status(
+        500,
+        [ 'Client SASL mechanisms (',
+          join(', ', @user_mech),
+          ') do not match the SASL mechnism the server announces (',
+          join(', ', @server_mech), ')',
+        ]
+      );
+      return 0;
+    }
+
+    $sasl->mechanism(join(" ", @mech));
+  }
+  else {
+    die "auth(username, password)" if not length $username;
+    $sasl = Authen::SASL->new(
+      mechanism => $mechanisms,
+      callback  => {
+        user     => $username,
+        pass     => $password,
+        authname => $username,
+      }
+    );
+  }
+
+  # We should probably allow the user to pass the host, but I don't
+  # currently know and SASL mechanisms that are used by smtp that need it
+  my ($hostname) = split /:/, ${*$self}{'net_pop3_host'};
+  my $client = eval { $sasl->client_new('pop', $hostname, 0) };
+
+  unless ($client) {
+    my $mech = $sasl->mechanism;
+    $self->set_status(
+      500,
+      [ " Authen::SASL failure: $@",
+        '(please check if your local Authen::SASL installation',
+        "supports mechanism '$mech'"
+      ]
+    );
+    return 0;
+  }
+
+  my ($token) = $client->client_start
+    or do {
+    my $mech = $client->mechanism;
+    $self->set_status(
+      500,
+      [ ' Authen::SASL failure:  $client->client_start ',
+        "mechanism '$mech' hostname #$hostname#",
+        $client->error
+      ]
+    );
+    return 0;
+    };
+
+  # We don't support sasl mechanisms that encrypt the socket traffic.
+  # todo that we would really need to change the ISA hierarchy
+  # so we don't inherit from IO::Socket, but instead hold it in an attribute
+
+  my @cmd = ("AUTH", $client->mechanism);
+  my $code;
+
+  push @cmd, MIME::Base64::encode_base64($token, '')
+    if defined $token and length $token;
+
+  while (($code = $self->command(@cmd)->response()) == CMD_MORE) {
+
+    my ($token) = $client->client_step(MIME::Base64::decode_base64(($self->message)[0])) or do {
+      $self->set_status(
+        500,
+        [ ' Authen::SASL failure:  $client->client_step ',
+          "mechanism '", $client->mechanism, " hostname #$hostname#, ",
+          $client->error
+        ]
+      );
+      return 0;
+    };
+
+    @cmd = (MIME::Base64::encode_base64(defined $token ? $token : '', ''));
+  }
+
+  $code == CMD_OK;
+}
+
+
+sub banner {
+  my $this = shift;
+
+  return ${*$this}{'net_pop3_banner'};
+}
+
+{
+  package Net::POP3::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::POP3' );
+  sub starttls { die "POP3 connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$pop3,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $pop3->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    $arg{SSL_verifycn_scheme} ||= 'pop3';
+    my $ok = $class->SUPER::start_SSL($pop3,%arg);
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+1;
+
+__END__
+
+package Net::netent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our (
+    $n_name, @n_aliases,
+    $n_addrtype, $n_net
+);
+ 
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getnetbyname getnetbyaddr getnet);
+    @EXPORT_OK   = qw(
+			$n_name	    	@n_aliases
+			$n_addrtype 	$n_net
+		   );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::netent' => [
+   name		=> '$',
+   aliases	=> '@',
+   addrtype	=> '$',
+   net		=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $nob = new();
+    $n_name 	 =    $nob->[0]     	     = $_[0];
+    @n_aliases	 = @{ $nob->[1] } = split ' ', $_[1];
+    $n_addrtype  =    $nob->[2] 	     = $_[2];
+    $n_net	 =    $nob->[3] 	     = $_[3];
+    return $nob;
+} 
+
+sub getnetbyname ($)  { populate(CORE::getnetbyname(shift)) } 
+
+sub getnetbyaddr ($;$) { 
+    my ($net, $addrtype);
+    $net = shift;
+    require Socket if @_;
+    $addrtype = @_ ? shift : Socket::AF_INET();
+    populate(CORE::getnetbyaddr($net, $addrtype)) 
+} 
+
+sub getnet($) {
+    if ($_[0] =~ /^\d+(?:\.\d+(?:\.\d+(?:\.\d+)?)?)?$/) {
+	require Socket;
+	&getnetbyaddr(Socket::inet_aton(shift));
+    } else {
+	&getnetbyname;
+    } 
+} 
+
+1;
+__END__
+
+##
+## Generic data connection package
+##
+
+package Net::FTP::dataconn;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Errno;
+use Net::Cmd;
+
+our $VERSION = '3.11';
+
+$Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn";
+our @ISA = $Net::FTP::IOCLASS;
+
+sub reading {
+  my $data = shift;
+  ${*$data}{'net_ftp_bytesread'} = 0;
+}
+
+
+sub abort {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  # no need to abort if we have finished the xfer
+  return $data->close
+    if ${*$data}{'net_ftp_eof'};
+
+  # for some reason if we continuously open RETR connections and not
+  # read a single byte, then abort them after a while the server will
+  # close our connection, this prevents the unexpected EOF on the
+  # command channel -- GMB
+  if (exists ${*$data}{'net_ftp_bytesread'}
+    && (${*$data}{'net_ftp_bytesread'} == 0))
+  {
+    my $buf     = "";
+    my $timeout = $data->timeout;
+    $data->can_read($timeout) && sysread($data, $buf, 1);
+  }
+
+  ${*$data}{'net_ftp_eof'} = 1;    # fake
+
+  $ftp->abort;                     # this will close me
+}
+
+
+sub _close {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  $data->SUPER::close();
+
+  delete ${*$ftp}{'net_ftp_dataconn'}
+    if defined $ftp
+    && exists ${*$ftp}{'net_ftp_dataconn'}
+    && $data == ${*$ftp}{'net_ftp_dataconn'};
+}
+
+
+sub close {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  if (exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) {
+    my $junk;
+    eval { local($SIG{__DIE__}); $data->read($junk, 1, 0) };
+    return $data->abort unless ${*$data}{'net_ftp_eof'};
+  }
+
+  $data->_close;
+
+  return unless defined $ftp;
+
+  $ftp->response() == CMD_OK
+    && $ftp->message =~ /unique file name:\s*(\S*)\s*\)/
+    && (${*$ftp}{'net_ftp_unique'} = $1);
+
+  $ftp->status == CMD_OK;
+}
+
+
+sub _select {
+  my ($data, $timeout, $do_read) = @_;
+  my ($rin, $rout, $win, $wout, $tout, $nfound);
+
+  vec($rin = '', fileno($data), 1) = 1;
+
+  ($win, $rin) = ($rin, $win) unless $do_read;
+
+  while (1) {
+    $nfound = select($rout = $rin, $wout = $win, undef, $tout = $timeout);
+
+    last if $nfound >= 0;
+
+    croak "select: $!"
+      unless $!{EINTR};
+  }
+
+  $nfound;
+}
+
+
+sub can_read {
+  _select(@_[0, 1], 1);
+}
+
+
+sub can_write {
+  _select(@_[0, 1], 0);
+}
+
+
+sub cmd {
+  my $ftp = shift;
+
+  ${*$ftp}{'net_ftp_cmd'};
+}
+
+
+sub bytes_read {
+  my $ftp = shift;
+
+  ${*$ftp}{'net_ftp_bytesread'} || 0;
+}
+
+1;
+
+__END__
+
+## 
+## Package to read/write on BINARY data connections
+##
+
+package Net::FTP::I;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Net::FTP::dataconn;
+
+our @ISA     = qw(Net::FTP::dataconn);
+our $VERSION = "3.11";
+
+our $buf;
+
+sub read {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'read($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  my $n;
+
+  if ($size > length ${*$data} and !${*$data}{'net_ftp_eof'}) {
+    $data->can_read($timeout)
+      or croak "Timeout";
+
+    my $blksize = ${*$data}{'net_ftp_blksize'};
+    $blksize = $size if $size > $blksize;
+
+    unless ($n = sysread($data, ${*$data}, $blksize, length ${*$data})) {
+      return unless defined $n;
+      ${*$data}{'net_ftp_eof'} = 1;
+    }
+  }
+
+  $buf = substr(${*$data}, 0, $size);
+
+  $n = length($buf);
+
+  substr(${*$data}, 0, $n) = '';
+
+  ${*$data}{'net_ftp_bytesread'} += $n;
+
+  $n;
+}
+
+
+sub write {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'write($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  # If the remote server has closed the connection we will be signal'd
+  # when we write. This can happen if the disk on the remote server fills up
+
+  local $SIG{PIPE} = 'IGNORE'
+    unless ($SIG{PIPE} || '') eq 'IGNORE'
+    or $^O eq 'MacOS';
+  my $sent = $size;
+  my $off  = 0;
+
+  my $blksize = ${*$data}{'net_ftp_blksize'};
+  while ($sent > 0) {
+    $data->can_write($timeout)
+      or croak "Timeout";
+
+    my $n = syswrite($data, $buf, $sent > $blksize ? $blksize : $sent, $off);
+    return unless defined($n);
+    $sent -= $n;
+    $off += $n;
+  }
+
+  $size;
+}
+
+1;
+## 
+## Package to read/write on ASCII data connections
+##
+
+package Net::FTP::A;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Net::FTP::dataconn;
+
+our @ISA     = qw(Net::FTP::dataconn);
+our $VERSION = "3.11";
+
+our $buf;
+
+sub read {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'read($buf,$size,[$offset])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  if (length(${*$data}) < $size && !${*$data}{'net_ftp_eof'}) {
+    my $blksize = ${*$data}{'net_ftp_blksize'};
+    $blksize = $size if $size > $blksize;
+
+    my $l = 0;
+    my $n;
+
+  READ:
+    {
+      my $readbuf = defined(${*$data}{'net_ftp_cr'}) ? "\015" : '';
+
+      $data->can_read($timeout)
+        or croak "Timeout";
+
+      if ($n = sysread($data, $readbuf, $blksize, length $readbuf)) {
+        ${*$data}{'net_ftp_bytesread'} += $n;
+        ${*$data}{'net_ftp_cr'} =
+          substr($readbuf, -1) eq "\015"
+          ? chop($readbuf)
+          : undef;
+      }
+      else {
+        return
+          unless defined $n;
+
+        ${*$data}{'net_ftp_eof'} = 1;
+      }
+
+      $readbuf =~ s/\015\012/\n/sgo;
+      ${*$data} .= $readbuf;
+
+      unless (length(${*$data})) {
+
+        redo READ
+          if ($n > 0);
+
+        $size = length(${*$data})
+          if ($n == 0);
+      }
+    }
+  }
+
+  $buf = substr(${*$data}, 0, $size);
+  substr(${*$data}, 0, $size) = '';
+
+  length $buf;
+}
+
+
+sub write {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'write($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  my $nr = (my $tmp = substr($buf, 0, $size)) =~ tr/\r\n/\015\012/;
+  $tmp =~ s/(?<!\015)\012/\015\012/sg if $nr;
+  $tmp =~ s/^\015// if ${*$data}{'net_ftp_outcr'};
+  ${*$data}{'net_ftp_outcr'} = substr($tmp, -1) eq "\015";
+
+  # If the remote server has closed the connection we will be signal'd
+  # when we write. This can happen if the disk on the remote server fills up
+
+  local $SIG{PIPE} = 'IGNORE'
+    unless ($SIG{PIPE} || '') eq 'IGNORE'
+    or $^O eq 'MacOS';
+
+  my $len   = length($tmp);
+  my $off   = 0;
+  my $wrote = 0;
+
+  my $blksize = ${*$data}{'net_ftp_blksize'};
+
+  while ($len) {
+    $data->can_write($timeout)
+      or croak "Timeout";
+
+    $off += $wrote;
+    $wrote = syswrite($data, substr($tmp, $off), $len > $blksize ? $blksize : $len);
+    return
+      unless defined($wrote);
+    $len -= $wrote;
+  }
+
+  $size;
+}
+
+1;
+package Net::FTP::L;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Net::FTP::I;
+
+our @ISA = qw(Net::FTP::I);
+our $VERSION = "3.11";
+
+1;
+package Net::FTP::E;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Net::FTP::I;
+
+our @ISA = qw(Net::FTP::I);
+our $VERSION = "3.11";
+
+1;
+package Time::gmtime;
+use strict;
+use 5.006_001;
+
+use Time::tm;
+
+our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+our (   $tm_sec, $tm_min, $tm_hour, $tm_mday,
+        $tm_mon, $tm_year, $tm_wday, $tm_yday, 
+		$tm_isdst,
+);
+ 
+BEGIN { 
+    use Exporter   ();
+    @ISA         = qw(Exporter Time::tm);
+    @EXPORT      = qw(gmtime gmctime);
+    @EXPORT_OK   = qw(  
+			$tm_sec $tm_min $tm_hour $tm_mday 
+			$tm_mon $tm_year $tm_wday $tm_yday 
+			$tm_isdst
+		    );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+    $VERSION     = 1.04;
+}
+
+sub populate (@) {
+    return unless @_;
+    my $tmob = Time::tm->new();
+    @$tmob = (
+		$tm_sec, $tm_min, $tm_hour, $tm_mday, 
+		$tm_mon, $tm_year, $tm_wday, $tm_yday, 
+		$tm_isdst )
+	    = @_;
+    return $tmob;
+} 
+
+sub gmtime (;$)    { populate CORE::gmtime(@_ ? shift : time)}
+sub gmctime (;$)   { scalar   CORE::gmtime(@_ ? shift : time)} 
+
+1;
+__END__
+
+package Time::localtime;
+use strict;
+use 5.006_001;
+
+use Time::tm;
+
+our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+our (  
+      $tm_sec, $tm_min, $tm_hour, $tm_mday,
+      $tm_mon, $tm_year, $tm_wday, $tm_yday,
+      $tm_isdst
+);
+ 
+BEGIN {
+    use Exporter   ();
+    @ISA         = qw(Exporter Time::tm);
+    @EXPORT      = qw(localtime ctime);
+    @EXPORT_OK   = qw(  
+			$tm_sec $tm_min $tm_hour $tm_mday 
+			$tm_mon $tm_year $tm_wday $tm_yday 
+			$tm_isdst
+		    );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+    $VERSION     = 1.03;
+}
+
+sub populate (@) {
+    return unless @_;
+    my $tmob = Time::tm->new();
+    @$tmob = (
+		$tm_sec, $tm_min, $tm_hour, $tm_mday, 
+		$tm_mon, $tm_year, $tm_wday, $tm_yday, 
+		$tm_isdst )
+	    = @_;
+    return $tmob;
+} 
+
+sub localtime (;$) { populate CORE::localtime(@_ ? shift : time)}
+sub ctime (;$)     { scalar   CORE::localtime(@_ ? shift : time) } 
+
+1;
+
+__END__
+
+package Time::Local;
+
+use strict;
+
+use Carp ();
+use Exporter;
+
+our $VERSION = '1.25';
+
+use parent 'Exporter';
+
+our @EXPORT    = qw( timegm timelocal );
+our @EXPORT_OK = qw( timegm_nocheck timelocal_nocheck );
+
+my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+
+# Determine breakpoint for rolling century
+my $ThisYear    = ( localtime() )[5];
+my $Breakpoint  = ( $ThisYear + 50 ) % 100;
+my $NextCentury = $ThisYear - $ThisYear % 100;
+$NextCentury += 100 if $Breakpoint < 50;
+my $Century = $NextCentury - 100;
+my $SecOff  = 0;
+
+my ( %Options, %Cheat );
+
+use constant SECS_PER_MINUTE => 60;
+use constant SECS_PER_HOUR   => 3600;
+use constant SECS_PER_DAY    => 86400;
+
+my $MaxDay;
+if ( $] < 5.012000 ) {
+    require Config;
+    ## no critic (Variables::ProhibitPackageVars)
+
+    my $MaxInt;
+    if ( $^O eq 'MacOS' ) {
+
+        # time_t is unsigned...
+        $MaxInt = ( 1 << ( 8 * $Config::Config{ivsize} ) )
+            - 1;    ## no critic qw(ProhibitPackageVars)
+    }
+    else {
+        $MaxInt
+            = ( ( 1 << ( 8 * $Config::Config{ivsize} - 2 ) ) - 1 ) * 2
+            + 1;    ## no critic qw(ProhibitPackageVars)
+    }
+
+    $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;
+}
+else {
+    # recent localtime()'s limit is the year 2**31
+    $MaxDay = 365 * ( 2**31 );
+}
+
+# Determine the EPOC day for this machine
+my $Epoc = 0;
+if ( $^O eq 'vos' ) {
+
+    # work around posix-977 -- VOS doesn't handle dates in the range
+    # 1970-1980.
+    $Epoc = _daygm( 0, 0, 0, 1, 0, 70, 4, 0 );
+}
+elsif ( $^O eq 'MacOS' ) {
+    $MaxDay *= 2 if $^O eq 'MacOS';    # time_t unsigned ... quick hack?
+          # MacOS time() is seconds since 1 Jan 1904, localtime
+          # so we need to calculate an offset to apply later
+    $Epoc   = 693901;
+    $SecOff = timelocal( localtime(0) ) - timelocal( gmtime(0) );
+    $Epoc += _daygm( gmtime(0) );
+}
+else {
+    $Epoc = _daygm( gmtime(0) );
+}
+
+%Cheat = ();    # clear the cache as epoc has changed
+
+sub _daygm {
+
+    # This is written in such a byzantine way in order to avoid
+    # lexical variables and sub calls, for speed
+    return $_[3] + (
+        $Cheat{ pack( 'ss', @_[ 4, 5 ] ) } ||= do {
+            my $month = ( $_[4] + 10 ) % 12;
+            my $year  = $_[5] + 1900 - int( $month / 10 );
+
+            ( ( 365 * $year )
+                + int( $year / 4 )
+                    - int( $year / 100 )
+                    + int( $year / 400 )
+                    + int( ( ( $month * 306 ) + 5 ) / 10 ) ) - $Epoc;
+            }
+    );
+}
+
+sub _timegm {
+    my $sec
+        = $SecOff + $_[0]
+        + ( SECS_PER_MINUTE * $_[1] )
+        + ( SECS_PER_HOUR * $_[2] );
+
+    return $sec + ( SECS_PER_DAY * &_daygm );
+}
+
+sub timegm {
+    my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
+
+    if ( $year >= 1000 ) {
+        $year -= 1900;
+    }
+    elsif ( $year < 100 and $year >= 0 ) {
+        $year += ( $year > $Breakpoint ) ? $Century : $NextCentury;
+    }
+
+    unless ( $Options{no_range_check} ) {
+        Carp::croak("Month '$month' out of range 0..11")
+            if $month > 11
+            or $month < 0;
+
+        my $md = $MonthDays[$month];
+        ++$md
+            if $month == 1 && _is_leap_year( $year + 1900 );
+
+        Carp::croak("Day '$mday' out of range 1..$md")
+            if $mday > $md or $mday < 1;
+        Carp::croak("Hour '$hour' out of range 0..23")
+            if $hour > 23 or $hour < 0;
+        Carp::croak("Minute '$min' out of range 0..59")
+            if $min > 59 or $min < 0;
+        Carp::croak("Second '$sec' out of range 0..59")
+            if $sec >= 60 or $sec < 0;
+    }
+
+    my $days = _daygm( undef, undef, undef, $mday, $month, $year );
+
+    unless ( $Options{no_range_check} or abs($days) < $MaxDay ) {
+        my $msg = q{};
+        $msg .= "Day too big - $days > $MaxDay\n" if $days > $MaxDay;
+
+        $year += 1900;
+        $msg
+            .= "Cannot handle date ($sec, $min, $hour, $mday, $month, $year)";
+
+        Carp::croak($msg);
+    }
+
+    return
+          $sec + $SecOff
+        + ( SECS_PER_MINUTE * $min )
+        + ( SECS_PER_HOUR * $hour )
+        + ( SECS_PER_DAY * $days );
+}
+
+sub _is_leap_year {
+    return 0 if $_[0] % 4;
+    return 1 if $_[0] % 100;
+    return 0 if $_[0] % 400;
+
+    return 1;
+}
+
+sub timegm_nocheck {
+    local $Options{no_range_check} = 1;
+    return &timegm;
+}
+
+sub timelocal {
+    my $ref_t         = &timegm;
+    my $loc_for_ref_t = _timegm( localtime($ref_t) );
+
+    my $zone_off = $loc_for_ref_t - $ref_t
+        or return $loc_for_ref_t;
+
+    # Adjust for timezone
+    my $loc_t = $ref_t - $zone_off;
+
+    # Are we close to a DST change or are we done
+    my $dst_off = $ref_t - _timegm( localtime($loc_t) );
+
+    # If this evaluates to true, it means that the value in $loc_t is
+    # the _second_ hour after a DST change where the local time moves
+    # backward.
+    if (
+        !$dst_off
+        && ( ( $ref_t - SECS_PER_HOUR )
+            - _timegm( localtime( $loc_t - SECS_PER_HOUR ) ) < 0 )
+        ) {
+        return $loc_t - SECS_PER_HOUR;
+    }
+
+    # Adjust for DST change
+    $loc_t += $dst_off;
+
+    return $loc_t if $dst_off > 0;
+
+    # If the original date was a non-extent gap in a forward DST jump,
+    # we should now have the wrong answer - undo the DST adjustment
+    my ( $s, $m, $h ) = localtime($loc_t);
+    $loc_t -= $dst_off if $s != $_[0] || $m != $_[1] || $h != $_[2];
+
+    return $loc_t;
+}
+
+sub timelocal_nocheck {
+    local $Options{no_range_check} = 1;
+    return &timelocal;
+}
+
+1;
+
+# ABSTRACT: Efficiently compute time from local and GMT time
+
+__END__
+
+package Time::tm;
+use strict;
+
+our $VERSION = '1.00';
+
+use Class::Struct qw(struct);
+struct('Time::tm' => [
+     map { $_ => '$' } qw{ sec min hour mday mon year wday yday isdst }
+]);
+
+1;
+__END__
+
+use strict;
+use warnings;
+
+package Perl::OSType;
+# ABSTRACT: Map Perl operating system names to generic types
+
+our $VERSION = '1.010';
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our %EXPORT_TAGS = ( all => [qw( os_type is_os_type )] );
+
+our @EXPORT_OK = @{ $EXPORT_TAGS{all} };
+
+# originally taken from Module::Build by Ken Williams et al.
+my %OSTYPES = qw(
+  aix         Unix
+  bsdos       Unix
+  beos        Unix
+  bitrig      Unix
+  dgux        Unix
+  dragonfly   Unix
+  dynixptx    Unix
+  freebsd     Unix
+  linux       Unix
+  haiku       Unix
+  hpux        Unix
+  iphoneos    Unix
+  irix        Unix
+  darwin      Unix
+  machten     Unix
+  midnightbsd Unix
+  minix       Unix
+  mirbsd      Unix
+  next        Unix
+  openbsd     Unix
+  netbsd      Unix
+  dec_osf     Unix
+  nto         Unix
+  svr4        Unix
+  svr5        Unix
+  sco         Unix
+  sco_sv      Unix
+  unicos      Unix
+  unicosmk    Unix
+  solaris     Unix
+  sunos       Unix
+  cygwin      Unix
+  msys        Unix
+  os2         Unix
+  interix     Unix
+  gnu         Unix
+  gnukfreebsd Unix
+  nto         Unix
+  qnx         Unix
+  android     Unix
+
+  dos         Windows
+  MSWin32     Windows
+
+  os390       EBCDIC
+  os400       EBCDIC
+  posix-bc    EBCDIC
+  vmesa       EBCDIC
+
+  MacOS       MacOS
+  VMS         VMS
+  vos         VOS
+  riscos      RiscOS
+  amigaos     Amiga
+  mpeix       MPEiX
+);
+
+sub os_type {
+    my ($os) = @_;
+    $os = $^O unless defined $os;
+    return $OSTYPES{$os} || q{};
+}
+
+sub is_os_type {
+    my ( $type, $os ) = @_;
+    return unless $type;
+    $os = $^O unless defined $os;
+    return os_type($os) eq $type;
+}
+
+1;
+
+
+__END__
+
+
+# vim: ts=4 sts=4 sw=4 et:
+package User::grent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.02';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our ($gr_name, $gr_gid, $gr_passwd, $gr_mem, @gr_members);
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getgrent getgrgid getgrnam getgr);
+    @EXPORT_OK   = qw($gr_name $gr_gid $gr_passwd $gr_mem @gr_members);
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'User::grent' => [
+    name    => '$',
+    passwd  => '$',
+    gid	    => '$',
+    members => '@',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $gob = new();
+    ($gr_name, $gr_passwd, $gr_gid) = @$gob[0,1,2] = @_[0,1,2];
+    @gr_members = @{$gob->[3]} = split ' ', $_[3];
+    return $gob;
+} 
+
+sub getgrent ( ) { populate(CORE::getgrent()) } 
+sub getgrnam ($) { populate(CORE::getgrnam(shift)) } 
+sub getgrgid ($) { populate(CORE::getgrgid(shift)) } 
+sub getgr    ($) { ($_[0] =~ /^\d+/) ? &getgrgid : &getgrnam } 
+
+1;
+__END__
+
+package User::pwent;
+
+use 5.006;
+our $VERSION = '1.01';
+
+use strict;
+use warnings;
+
+use Config;
+use Carp;
+
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our ( $pw_name,    $pw_passwd,  $pw_uid,  $pw_gid,
+    $pw_gecos,   $pw_dir,     $pw_shell,
+    $pw_expire,  $pw_change,  $pw_class,
+    $pw_age,
+    $pw_quota,   $pw_comment,
+    );
+BEGIN {
+    use Exporter   ();
+    @EXPORT      = qw(getpwent getpwuid getpwnam getpw);
+    @EXPORT_OK   = qw(
+                        pw_has
+
+                        $pw_name    $pw_passwd  $pw_uid  $pw_gid
+                        $pw_gecos   $pw_dir     $pw_shell
+                        $pw_expire  $pw_change  $pw_class
+                        $pw_age
+                        $pw_quota   $pw_comment
+                   );
+    %EXPORT_TAGS = (
+        FIELDS => [ grep(/^\$pw_/, @EXPORT_OK), @EXPORT ],
+        ALL    => [ @EXPORT, @EXPORT_OK ],
+    );
+}
+
+#
+# XXX: these mean somebody hacked this module's source
+#      without understanding the underlying assumptions.
+#
+my $IE = "[INTERNAL ERROR]";
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'User::pwent' => [
+    name    => '$',         # pwent[0]
+    passwd  => '$',         # pwent[1]
+    uid     => '$',         # pwent[2]
+    gid     => '$',         # pwent[3]
+
+    # you'll only have one/none of these three
+    change  => '$',         # pwent[4]
+    age     => '$',         # pwent[4]
+    quota   => '$',         # pwent[4]
+
+    # you'll only have one/none of these two
+    comment => '$',         # pwent[5]
+    class   => '$',         # pwent[5]
+
+    # you might not have this one
+    gecos   => '$',         # pwent[6]
+
+    dir     => '$',         # pwent[7]
+    shell   => '$',         # pwent[8]
+
+    # you might not have this one
+    expire  => '$',         # pwent[9]
+
+];
+
+
+# init our groks hash to be true if the built platform knew how
+# to do each struct pwd field that perl can ever under any circumstances
+# know about.  we do not use /^pw_?/, but just the tails.
+sub _feature_init {
+    our %Groks;         # whether build system knew how to do this feature
+    for my $feep ( qw{
+                         pwage      pwchange   pwclass    pwcomment
+                         pwexpire   pwgecos    pwpasswd   pwquota
+                     }
+                 )
+    {
+        my $short = $feep =~ /^pw(.*)/
+                  ? $1
+                  : do {
+                        # not cluck, as we know we called ourselves,
+                        # and a confession is probably imminent anyway
+                        warn("$IE $feep is a funny struct pwd field");
+                        $feep;
+                    };
+
+        exists $Config{ "d_" . $feep }
+            || confess("$IE Configure doesn't d_$feep");
+        $Groks{$short} = defined $Config{ "d_" . $feep };
+    }
+    # assume that any that are left are always there
+    for my $feep (grep /^\$pw_/s, @EXPORT_OK) {
+        $feep =~ /^\$pw_(.*)/;
+        $Groks{$1} = 1 unless defined $Groks{$1};
+    }
+}
+
+# With arguments, reports whether one or more fields are all implemented
+# in the build machine's struct pwd pw_*.  May be whitespace separated.
+# We do not use /^pw_?/, just the tails.
+#
+# Without arguments, returns the list of fields implemented on build
+# machine, space separated in scalar context.
+#
+# Takes exception to being asked whether this machine's struct pwd has
+# a field that Perl never knows how to provide under any circumstances.
+# If the module does this idiocy to itself, the explosion is noisier.
+#
+sub pw_has {
+    our %Groks;         # whether build system knew how to do this feature
+    my $cando = 1;
+    my $sploder = caller() ne __PACKAGE__
+                    ? \&croak
+                    : sub { confess("$IE @_") };
+    if (@_ == 0) {
+        my @valid = sort grep { $Groks{$_} } keys %Groks;
+        return wantarray ? @valid : "@valid";
+    }
+    for my $feep (map { split } @_) {
+        defined $Groks{$feep}
+            || $sploder->("$feep is never a valid struct pwd field");
+        $cando &&= $Groks{$feep};
+    }
+    return $cando;
+}
+
+sub _populate (@) {
+    return unless @_;
+    my $pwob = new();
+
+    # Any that haven't been pw_had are assumed on "all" platforms of
+    # course, this may not be so, but you can't get here otherwise,
+    # since the underlying core call already took exception to your
+    # impudence.
+
+    $pw_name    = $pwob->name   ( $_[0] );
+    $pw_passwd  = $pwob->passwd ( $_[1] )   if pw_has("passwd");
+    $pw_uid     = $pwob->uid    ( $_[2] );
+    $pw_gid     = $pwob->gid    ( $_[3] );
+
+    if (pw_has("change")) {
+        $pw_change      = $pwob->change ( $_[4] );
+    }
+    elsif (pw_has("age")) {
+        $pw_age         = $pwob->age    ( $_[4] );
+    }
+    elsif (pw_has("quota")) {
+        $pw_quota       = $pwob->quota  ( $_[4] );
+    }
+
+    if (pw_has("class")) {
+        $pw_class       = $pwob->class  ( $_[5] );
+    }
+    elsif (pw_has("comment")) {
+        $pw_comment     = $pwob->comment( $_[5] );
+    }
+
+    $pw_gecos   = $pwob->gecos  ( $_[6] ) if pw_has("gecos");
+
+    $pw_dir     = $pwob->dir    ( $_[7] );
+    $pw_shell   = $pwob->shell  ( $_[8] );
+
+    $pw_expire  = $pwob->expire ( $_[9] ) if pw_has("expire");
+
+    return $pwob;
+}
+
+sub getpwent ( ) { _populate(CORE::getpwent()) }
+sub getpwnam ($) { _populate(CORE::getpwnam(shift)) }
+sub getpwuid ($) { _populate(CORE::getpwuid(shift)) }
+sub getpw    ($) { ($_[0] =~ /^\d+\z/s) ? &getpwuid : &getpwnam }
+
+_feature_init();
+
+1;
+__END__
+
+package Attribute::Handlers;
+use 5.006;
+use Carp;
+use warnings;
+use strict;
+our $AUTOLOAD;
+our $VERSION = '1.01'; # remember to update version in POD!
+# $DB::single=1;
+
+my %symcache;
+sub findsym {
+	my ($pkg, $ref, $type) = @_;
+	return $symcache{$pkg,$ref} if $symcache{$pkg,$ref};
+	$type ||= ref($ref);
+	no strict 'refs';
+	my $symtab = \%{$pkg."::"};
+	for ( keys %$symtab ) { for my $sym ( $$symtab{$_} ) {
+	    if (ref $sym && $sym == $ref) {
+		return $symcache{$pkg,$ref} = \*{"$pkg:\:$_"};
+	    }
+	    use strict;
+	    next unless ref ( \$sym ) eq 'GLOB';
+            return $symcache{$pkg,$ref} = \$sym
+		if *{$sym}{$type} && *{$sym}{$type} == $ref;
+	}}
+}
+
+my %validtype = (
+	VAR	=> [qw[SCALAR ARRAY HASH]],
+        ANY	=> [qw[SCALAR ARRAY HASH CODE]],
+        ""	=> [qw[SCALAR ARRAY HASH CODE]],
+        SCALAR	=> [qw[SCALAR]],
+        ARRAY	=> [qw[ARRAY]],
+        HASH	=> [qw[HASH]],
+        CODE	=> [qw[CODE]],
+);
+my %lastattr;
+my @declarations;
+my %raw;
+my %phase;
+my %sigil = (SCALAR=>'$', ARRAY=>'@', HASH=>'%');
+my $global_phase = 0;
+my %global_phases = (
+	BEGIN	=> 0,
+	CHECK	=> 1,
+	INIT	=> 2,
+	END	=> 3,
+);
+my @global_phases = qw(BEGIN CHECK INIT END);
+
+sub _usage_AH_ {
+	croak "Usage: use $_[0] autotie => {AttrName => TieClassName,...}";
+}
+
+my $qual_id = qr/^[_a-z]\w*(::[_a-z]\w*)*$/i;
+
+sub import {
+    my $class = shift @_;
+    return unless $class eq "Attribute::Handlers";
+    while (@_) {
+	my $cmd = shift;
+        if ($cmd =~ /^autotie((?:ref)?)$/) {
+	    my $tiedata = ($1 ? '$ref, ' : '') . '@$data';
+            my $mapping = shift;
+	    _usage_AH_ $class unless ref($mapping) eq 'HASH';
+	    while (my($attr, $tieclass) = each %$mapping) {
+                $tieclass =~ s/^([_a-z]\w*(::[_a-z]\w*)*)(.*)/$1/is;
+		my $args = $3||'()';
+		_usage_AH_ $class unless $attr =~ $qual_id
+		                 && $tieclass =~ $qual_id
+		                 && eval "use base q\0$tieclass\0; 1";
+	        if ($tieclass->isa('Exporter')) {
+		    local $Exporter::ExportLevel = 2;
+		    $tieclass->import(eval $args);
+	        }
+		$attr =~ s/__CALLER__/caller(1)/e;
+		$attr = caller()."::".$attr unless $attr =~ /::/;
+	        eval qq{
+	            sub $attr : ATTR(VAR) {
+			my (\$ref, \$data) = \@_[2,4];
+			my \$was_arrayref = ref \$data eq 'ARRAY';
+			\$data = [ \$data ] unless \$was_arrayref;
+			my \$type = ref(\$ref)||"value (".(\$ref||"<undef>").")";
+			 (\$type eq 'SCALAR')? tie \$\$ref,'$tieclass',$tiedata
+			:(\$type eq 'ARRAY') ? tie \@\$ref,'$tieclass',$tiedata
+			:(\$type eq 'HASH')  ? tie \%\$ref,'$tieclass',$tiedata
+			: die "Can't autotie a \$type\n"
+	            } 1
+	        } or die "Internal error: $@";
+	    }
+        }
+        else {
+            croak "Can't understand $_"; 
+        }
+    }
+}
+
+# On older perls, code attribute handlers run before the sub gets placed
+# in its package.  Since the :ATTR handlers need to know the name of the
+# sub they're applied to, the name lookup (via findsym) needs to be
+# delayed: we do it immediately before we might need to find attribute
+# handlers from their name.  However, on newer perls (which fix some
+# problems relating to attribute application), a sub gets placed in its
+# package before its attributes are processed.  In this case, the
+# delayed name lookup might be too late, because the sub we're looking
+# for might have already been replaced.  So we need to detect which way
+# round this perl does things, and time the name lookup accordingly.
+BEGIN {
+	my $delayed;
+	sub Attribute::Handlers::_TEST_::MODIFY_CODE_ATTRIBUTES {
+		$delayed = \&Attribute::Handlers::_TEST_::t != $_[1];
+		return ();
+	}
+	sub Attribute::Handlers::_TEST_::t :T { }
+	*_delayed_name_resolution = sub() { $delayed };
+	undef &Attribute::Handlers::_TEST_::MODIFY_CODE_ATTRIBUTES;
+	undef &Attribute::Handlers::_TEST_::t;
+}
+
+sub _resolve_lastattr {
+	return unless $lastattr{ref};
+	my $sym = findsym @lastattr{'pkg','ref'}
+		or die "Internal error: $lastattr{pkg} symbol went missing";
+	my $name = *{$sym}{NAME};
+	warn "Declaration of $name attribute in package $lastattr{pkg} may clash with future reserved word\n"
+		if $^W and $name !~ /[A-Z]/;
+	foreach ( @{$validtype{$lastattr{type}}} ) {
+		no strict 'refs';
+		*{"$lastattr{pkg}::_ATTR_${_}_${name}"} = $lastattr{ref};
+	}
+	%lastattr = ();
+}
+
+sub AUTOLOAD {
+	return if $AUTOLOAD =~ /::DESTROY$/;
+	my ($class) = $AUTOLOAD =~ m/(.*)::/g;
+	$AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or
+	    croak "Can't locate class method '$AUTOLOAD' via package '$class'";
+	croak "Attribute handler '$2' doesn't handle $1 attributes";
+}
+
+my $builtin = $] ge '5.027000'
+    ? qr/lvalue|method|shared/
+    : qr/lvalue|method|locked|shared|unique/;
+
+sub _gen_handler_AH_() {
+	return sub {
+	    _resolve_lastattr if _delayed_name_resolution;
+	    my ($pkg, $ref, @attrs) = @_;
+	    my (undef, $filename, $linenum) = caller 2;
+	    foreach (@attrs) {
+		my ($attr, $data) = /^([a-z_]\w*)(?:[(](.*)[)])?$/is or next;
+		if ($attr eq 'ATTR') {
+			no strict 'refs';
+			$data ||= "ANY";
+			$raw{$ref} = $data =~ s/\s*,?\s*RAWDATA\s*,?\s*//;
+			$phase{$ref}{BEGIN} = 1
+				if $data =~ s/\s*,?\s*(BEGIN)\s*,?\s*//;
+			$phase{$ref}{INIT} = 1
+				if $data =~ s/\s*,?\s*(INIT)\s*,?\s*//;
+			$phase{$ref}{END} = 1
+				if $data =~ s/\s*,?\s*(END)\s*,?\s*//;
+			$phase{$ref}{CHECK} = 1
+				if $data =~ s/\s*,?\s*(CHECK)\s*,?\s*//
+				|| ! keys %{$phase{$ref}};
+			# Added for cleanup to not pollute next call.
+			(%lastattr = ()),
+			croak "Can't have two ATTR specifiers on one subroutine"
+				if keys %lastattr;
+			croak "Bad attribute type: ATTR($data)"
+				unless $validtype{$data};
+			%lastattr=(pkg=>$pkg,ref=>$ref,type=>$data);
+			_resolve_lastattr unless _delayed_name_resolution;
+		}
+		else {
+			my $type = ref $ref;
+			my $handler = $pkg->can("_ATTR_${type}_${attr}");
+			next unless $handler;
+		        my $decl = [$pkg, $ref, $attr, $data,
+				    $raw{$handler}, $phase{$handler}, $filename, $linenum];
+			foreach my $gphase (@global_phases) {
+			    _apply_handler_AH_($decl,$gphase)
+				if $global_phases{$gphase} <= $global_phase;
+			}
+			if ($global_phase != 0) {
+				# if _gen_handler_AH_ is being called after 
+				# CHECK it's for a lexical, so make sure
+				# it didn't want to run anything later
+			
+				local $Carp::CarpLevel = 2;
+				carp "Won't be able to apply END handler"
+					if $phase{$handler}{END};
+			}
+			else {
+				push @declarations, $decl
+			}
+		}
+		$_ = undef;
+	    }
+	    return grep {defined && !/$builtin/} @attrs;
+	}
+}
+
+{
+    no strict 'refs';
+    *{"Attribute::Handlers::UNIVERSAL::MODIFY_${_}_ATTRIBUTES"} =
+	_gen_handler_AH_ foreach @{$validtype{ANY}};
+}
+push @UNIVERSAL::ISA, 'Attribute::Handlers::UNIVERSAL'
+       unless grep /^Attribute::Handlers::UNIVERSAL$/, @UNIVERSAL::ISA;
+
+sub _apply_handler_AH_ {
+	my ($declaration, $phase) = @_;
+	my ($pkg, $ref, $attr, $data, $raw, $handlerphase, $filename, $linenum) = @$declaration;
+	return unless $handlerphase->{$phase};
+	# print STDERR "Handling $attr on $ref in $phase with [$data]\n";
+	my $type = ref $ref;
+	my $handler = "_ATTR_${type}_${attr}";
+	my $sym = findsym($pkg, $ref);
+	$sym ||= $type eq 'CODE' ? 'ANON' : 'LEXICAL';
+	no warnings;
+	if (!$raw && defined($data)) {
+	    if ($data ne '') {
+		my $evaled = eval("package $pkg; no warnings; no strict;
+				   local \$SIG{__WARN__}=sub{die}; [$data]");
+		$data = $evaled unless $@;
+	    }
+	    else { $data = undef }
+	}
+	$pkg->$handler($sym,
+		       (ref $sym eq 'GLOB' ? *{$sym}{ref $ref}||$ref : $ref),
+		       $attr,
+		       $data,
+		       $phase,
+		       $filename,
+		       $linenum,
+		      );
+	return 1;
+}
+
+{
+        no warnings 'void';
+        CHECK {
+                $global_phase++;
+                _resolve_lastattr if _delayed_name_resolution;
+                foreach my $decl (@declarations) {
+                        _apply_handler_AH_($decl, 'CHECK');
+                }
+        }
+
+        INIT {
+                $global_phase++;
+                foreach my $decl (@declarations) {
+                        _apply_handler_AH_($decl, 'INIT');
+                }
+        }
+}
+
+END {
+        $global_phase++;
+        foreach my $decl (@declarations) {
+                _apply_handler_AH_($decl, 'END');
+        }
+}
+
+1;
+__END__
+
+Encode::$_Name_ version 0.1
+========
+
+NAME
+       Encode::$_Name_ - <describe encoding>
+
+SYNOPSIS
+       use Encode::$_Name_;
+       #<put more words here>
+ABSTRACT
+      <fill this in>
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+DEPENDENCIES
+
+This module requires perl version 5.7.3 or later.
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2002 Your Name <your@address.domain>
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+#
+# This file is auto-generated by:
+# enc2xs version $_Version_
+# $_Now_
+#
+use 5.7.2;
+use strict;
+use ExtUtils::MakeMaker;
+use Config;
+
+# Please edit the following to the taste!
+my $name = '$_Name_';
+my %tables = (
+         $_Name__t   => [ $_TableFiles_ ],
+         );
+
+#### DO NOT EDIT BEYOND THIS POINT!
+require File::Spec;
+my ($enc2xs, $encode_h) = ();
+my @path_ext = ('');
+@path_ext = split(';', $ENV{PATHEXT}) if $^O eq 'MSWin32';
+PATHLOOP:
+for my $d (@Config{qw/bin sitebin vendorbin/}, 
+       (split /$Config{path_sep}/o, $ENV{PATH})){
+    for my $f (qw/enc2xs enc2xs5.7.3/){
+        my $path = File::Spec->catfile($d, $f);
+        for my $ext (@path_ext) {
+            my $bin = "$path$ext";
+            -r "$bin" and $enc2xs = $bin and last PATHLOOP;
+        }
+    }
+}
+$enc2xs or die "enc2xs not found!";
+print "enc2xs is $enc2xs\n";
+my %encode_h = ();
+for my $d (@INC){
+    my $dir = File::Spec->catfile($d, "Encode");
+    my $file =  File::Spec->catfile($dir, "encode.h");
+    -f $file and $encode_h{$dir} = -M $file;
+}
+%encode_h or die "encode.h not found!";
+# find the latest one
+($encode_h) = sort {$encode_h{$b} <=> $encode_h{$a}} keys %encode_h;
+print "encode.h is at $encode_h\n";
+
+WriteMakefile(
+              INC		=> "-I$encode_h",
+#### END_OF_HEADER -- DO NOT EDIT THIS LINE BY HAND! ####
+          NAME		=> 'Encode::'.$name,
+          VERSION_FROM	=> "$name.pm",
+          OBJECT		=> '$(O_FILES)',
+          'dist'		=> {
+          COMPRESS	=> 'gzip -9f',
+          SUFFIX	=> 'gz',
+          DIST_DEFAULT => 'all tardist',
+          },
+          MAN3PODS	=> {},
+          PREREQ_PM => {
+                'Encode'     => "1.41",
+                           },
+          # OS 390 winges about line numbers > 64K ???
+          XSOPT => '-nolinenumbers',
+          );
+
+package MY;
+
+sub post_initialize
+{
+    my ($self) = @_;
+    my %o;
+    my $x = $self->{'OBJ_EXT'};
+    # Add the table O_FILES
+    foreach my $e (keys %tables)
+    {
+    $o{$e.$x} = 1;
+    }
+    $o{"$name$x"} = 1;
+    $self->{'O_FILES'} = [sort keys %o];
+    my @files = ("$name.xs");
+    $self->{'C'} = ["$name.c"];
+    # The next two lines to make MacPerl Happy -- dankogai via pudge
+    $self->{SOURCE} .= " $name.c"
+        if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
+    # $self->{'H'} = [$self->catfile($self->updir,'encode.h')];
+    my %xs;
+    foreach my $table (sort keys %tables) {
+    push (@{$self->{'C'}},"$table.c");
+    # Do NOT add $table.h etc. to H_FILES unless we own up as to how they
+    # get built.
+    foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
+        push (@files,$table.$ext);
+    }
+    }
+    $self->{'XS'} = { "$name.xs" => "$name.c" };
+    $self->{'clean'}{'FILES'} .= join(' ',@files);
+    open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
+    print XS <<'END';
+#include <EXTERN.h>
+#include <perl.h>
+#include <XSUB.h>
+#include "encode.h"
+END
+    foreach my $table (sort keys %tables) {
+    print XS qq[#include "${table}.h"\n];
+    }
+    print XS <<"END";
+
+static void
+Encode_XSEncoding(pTHX_ encode_t *enc)
+{
+ dSP;
+ HV *stash = gv_stashpv("Encode::XS", TRUE);
+ SV *iv    = newSViv(PTR2IV(enc));
+ SV *sv    = sv_bless(newRV_noinc(iv),stash);
+ int i = 0;
+ /* with the SvLEN() == 0 hack, PVX won't be freed. We cast away name's
+ constness, in the hope that perl won't mess with it. */
+ assert(SvTYPE(iv) >= SVt_PV); assert(SvLEN(iv) == 0);
+ SvFLAGS(iv) |= SVp_POK;
+ SvPVX(iv) = (char*) enc->name[0];
+ PUSHMARK(sp);
+ XPUSHs(sv);
+ while (enc->name[i])
+  {
+   const char *name = enc->name[i++];
+   XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
+  }
+ PUTBACK;
+ call_pv("Encode::define_encoding",G_DISCARD);
+ SvREFCNT_dec(sv);
+}
+
+MODULE = Encode::$name	PACKAGE = Encode::$name
+PROTOTYPES: DISABLE
+BOOT:
+{
+END
+    foreach my $table (sort keys %tables) {
+    print XS qq[#include "${table}.exh"\n];
+    }
+    print XS "}\n";
+    close(XS);
+    return "# Built $name.xs\n\n";
+}
+
+sub postamble
+{
+    my $self = shift;
+    my $dir  = "."; # $self->catdir('Encode');
+    my $str  = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
+    $str    .= "$name.c : $name.xs ";
+    foreach my $table (sort keys %tables)
+    {
+    $str .= " $table.c";
+    }
+    $str .= "\n\n";
+    $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
+
+    foreach my $table (sort keys %tables)
+    {
+    my $numlines = 1;
+    my $lengthsofar = length($str);
+    my $continuator = '';
+    $str .= "$table.c : Makefile.PL";
+    foreach my $file (@{$tables{$table}})
+    {
+        $str .= $continuator.' '.$self->catfile($dir,$file);
+        if ( length($str)-$lengthsofar > 128*$numlines )
+        {
+        $continuator .= " \\\n\t";
+        $numlines++;
+        } else {
+        $continuator = '';
+        }
+    }
+    my $plib   = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
+    my $ucopts = '-"Q"';
+    $str .=  
+        qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
+    open (FILELIST, ">$table.fnm")
+        || die "Could not open $table.fnm: $!";
+    foreach my $file (@{$tables{$table}})
+    {
+        print FILELIST $self->catfile($dir,$file) . "\n";
+    }
+    close(FILELIST);
+    }
+    return $str;
+}
+
+#
+# $Id: Changes.e2x,v 2.0 2004/05/16 20:55:15 dankogai Exp $
+# Revision history for Perl extension Encode::$_Name_.
+#
+
+0.01  $_Now_
+  Autogenerated by enc2xs version $_Version_.
+#
+# Local demand-load module list
+#
+# You should not edit this file by hand!  use "enc2xs -C"
+# 
+package Encode::ConfigLocal;
+our $VERSION = $_LocalVer_;
+
+use strict;
+
+$_ModLines_
+
+1;
+package Encode::$_Name_;
+our $VERSION = "0.01";
+ 
+use Encode;
+use XSLoader;
+XSLoader::load(__PACKAGE__,$VERSION);
+
+1;
+__END__
+
+=head1 NAME
+ 
+Encode::$_Name_ - New Encoding
+ 
+=head1 SYNOPSIS
+
+You got to fill this in!
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
+use strict;
+# Adjust the number here!
+use Test::More tests => 2;
+
+BEGIN {
+    use_ok('Encode');
+    use_ok('Encode::$_Name_');
+}
+# Add more test here!
+use 5.008001;
+use strict;
+use warnings;
+package Parse::CPAN::Meta;
+# ABSTRACT: Parse META.yml and META.json CPAN metadata files
+
+our $VERSION = '2.150010';
+
+use Exporter;
+use Carp 'croak';
+
+our @ISA = qw/Exporter/;
+our @EXPORT_OK = qw/Load LoadFile/;
+
+sub load_file {
+  my ($class, $filename) = @_;
+
+  my $meta = _slurp($filename);
+
+  if ($filename =~ /\.ya?ml$/) {
+    return $class->load_yaml_string($meta);
+  }
+  elsif ($filename =~ /\.json$/) {
+    return $class->load_json_string($meta);
+  }
+  else {
+    $class->load_string($meta); # try to detect yaml/json
+  }
+}
+
+sub load_string {
+  my ($class, $string) = @_;
+  if ( $string =~ /^---/ ) { # looks like YAML
+    return $class->load_yaml_string($string);
+  }
+  elsif ( $string =~ /^\s*\{/ ) { # looks like JSON
+    return $class->load_json_string($string);
+  }
+  else { # maybe doc-marker-free YAML
+    return $class->load_yaml_string($string);
+  }
+}
+
+sub load_yaml_string {
+  my ($class, $string) = @_;
+  my $backend = $class->yaml_backend();
+  my $data = eval { no strict 'refs'; &{"$backend\::Load"}($string) };
+  croak $@ if $@;
+  return $data || {}; # in case document was valid but empty
+}
+
+sub load_json_string {
+  my ($class, $string) = @_;
+  require Encode;
+  # load_json_string takes characters, decode_json expects bytes
+  my $encoded = Encode::encode('UTF-8', $string, Encode::PERLQQ());
+  my $data = eval { $class->json_decoder()->can('decode_json')->($encoded) };
+  croak $@ if $@;
+  return $data || {};
+}
+
+sub yaml_backend {
+  if ($ENV{PERL_CORE} or not defined $ENV{PERL_YAML_BACKEND} ) {
+    _can_load( 'CPAN::Meta::YAML', 0.011 )
+      or croak "CPAN::Meta::YAML 0.011 is not available\n";
+    return "CPAN::Meta::YAML";
+  }
+  else {
+    my $backend = $ENV{PERL_YAML_BACKEND};
+    _can_load( $backend )
+      or croak "Could not load PERL_YAML_BACKEND '$backend'\n";
+    $backend->can("Load")
+      or croak "PERL_YAML_BACKEND '$backend' does not implement Load()\n";
+    return $backend;
+  }
+}
+
+sub json_decoder {
+  if ($ENV{PERL_CORE}) {
+    _can_load( 'JSON::PP' => 2.27300 )
+      or croak "JSON::PP 2.27300 is not available\n";
+    return 'JSON::PP';
+  }
+  if (my $decoder = $ENV{CPAN_META_JSON_DECODER}) {
+    _can_load( $decoder )
+      or croak "Could not load CPAN_META_JSON_DECODER '$decoder'\n";
+    $decoder->can('decode_json')
+      or croak "No decode_json sub provided by CPAN_META_JSON_DECODER '$decoder'\n";
+    return $decoder;
+  }
+  return $_[0]->json_backend;
+}
+
+sub json_backend {
+  if ($ENV{PERL_CORE}) {
+    _can_load( 'JSON::PP' => 2.27300 )
+      or croak "JSON::PP 2.27300 is not available\n";
+    return 'JSON::PP';
+  }
+  if (my $backend = $ENV{CPAN_META_JSON_BACKEND}) {
+    _can_load( $backend )
+      or croak "Could not load CPAN_META_JSON_BACKEND '$backend'\n";
+    $backend->can('new')
+      or croak "No constructor provided by CPAN_META_JSON_BACKEND '$backend'\n";
+    return $backend;
+  }
+  if (! $ENV{PERL_JSON_BACKEND} or $ENV{PERL_JSON_BACKEND} eq 'JSON::PP') {
+    _can_load( 'JSON::PP' => 2.27300 )
+      or croak "JSON::PP 2.27300 is not available\n";
+    return 'JSON::PP';
+  }
+  else {
+    _can_load( 'JSON' => 2.5 )
+      or croak  "JSON 2.5 is required for " .
+                "\$ENV{PERL_JSON_BACKEND} = '$ENV{PERL_JSON_BACKEND}'\n";
+    return "JSON";
+  }
+}
+
+sub _slurp {
+  require Encode;
+  open my $fh, "<:raw", "$_[0]" ## no critic
+    or die "can't open $_[0] for reading: $!";
+  my $content = do { local $/; <$fh> };
+  $content = Encode::decode('UTF-8', $content, Encode::PERLQQ());
+  return $content;
+}
+
+sub _can_load {
+  my ($module, $version) = @_;
+  (my $file = $module) =~ s{::}{/}g;
+  $file .= ".pm";
+  return 1 if $INC{$file};
+  return 0 if exists $INC{$file}; # prior load failed
+  eval { require $file; 1 }
+    or return 0;
+  if ( defined $version ) {
+    eval { $module->VERSION($version); 1 }
+      or return 0;
+  }
+  return 1;
+}
+
+# Kept for backwards compatibility only
+# Create an object from a file
+sub LoadFile ($) { ## no critic
+  return Load(_slurp(shift));
+}
+
+# Parse a document from a string.
+sub Load ($) { ## no critic
+  require CPAN::Meta::YAML;
+  my $object = eval { CPAN::Meta::YAML::Load(shift) };
+  croak $@ if $@;
+  return $object;
+}
+
+1;
+
+__END__
+
+package Thread::Queue;
+
+use strict;
+use warnings;
+
+our $VERSION = '3.12';
+$VERSION = eval $VERSION;
+
+use threads::shared 1.21;
+use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr);
+
+# Carp errors from threads::shared calls should complain about caller
+our @CARP_NOT = ("threads::shared");
+
+# Create a new queue possibly pre-populated with items
+sub new
+{
+    my $class = shift;
+    my @queue :shared = map { shared_clone($_) } @_;
+    my %self :shared = ( 'queue' => \@queue );
+    return bless(\%self, $class);
+}
+
+# Add items to the tail of a queue
+sub enqueue
+{
+    my $self = shift;
+    lock(%$self);
+
+    if ($$self{'ENDED'}) {
+        require Carp;
+        Carp::croak("'enqueue' method called on queue that has been 'end'ed");
+    }
+
+    # Block if queue size exceeds any specified limit
+    my $queue = $$self{'queue'};
+    cond_wait(%$self) while ($$self{'LIMIT'} && (@$queue >= $$self{'LIMIT'}));
+
+    # Add items to queue, and then signal other threads
+    push(@$queue, map { shared_clone($_) } @_)
+        and cond_signal(%$self);
+}
+
+# Set or return the max. size for a queue
+sub limit : lvalue
+{
+    my $self = shift;
+    lock(%$self);
+    $$self{'LIMIT'};
+}
+
+# Return a count of the number of items on a queue
+sub pending
+{
+    my $self = shift;
+    lock(%$self);
+    return if ($$self{'ENDED'} && ! @{$$self{'queue'}});
+    return scalar(@{$$self{'queue'}});
+}
+
+# Indicate that no more data will enter the queue
+sub end
+{
+    my $self = shift;
+    lock(%$self);
+    # No more data is coming
+    $$self{'ENDED'} = 1;
+
+    cond_signal(%$self);  # Unblock possibly waiting threads
+}
+
+# Return 1 or more items from the head of a queue, blocking if needed
+sub dequeue
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Wait for requisite number of items
+    cond_wait(%$self) while ((@$queue < $count) && ! $$self{'ENDED'});
+
+    # If no longer blocking, try getting whatever is left on the queue
+    return $self->dequeue_nb($count) if ($$self{'ENDED'});
+
+    # Return single item
+    if ($count == 1) {
+        my $item = shift(@$queue);
+        cond_signal(%$self);  # Unblock possibly waiting threads
+        return $item;
+    }
+
+    # Return multiple items
+    my @items;
+    push(@items, shift(@$queue)) for (1..$count);
+    cond_signal(%$self);  # Unblock possibly waiting threads
+    return @items;
+}
+
+# Return items from the head of a queue with no blocking
+sub dequeue_nb
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Return single item
+    if ($count == 1) {
+        my $item = shift(@$queue);
+        cond_signal(%$self);  # Unblock possibly waiting threads
+        return $item;
+    }
+
+    # Return multiple items
+    my @items;
+    for (1..$count) {
+        last if (! @$queue);
+        push(@items, shift(@$queue));
+    }
+    cond_signal(%$self);  # Unblock possibly waiting threads
+    return @items;
+}
+
+# Return items from the head of a queue, blocking if needed up to a timeout
+sub dequeue_timed
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    # Timeout may be relative or absolute
+    my $timeout = @_ ? $self->_validate_timeout(shift) : -1;
+    # Convert to an absolute time for use with cond_timedwait()
+    if ($timeout < 32000000) {   # More than one year
+        $timeout += time();
+    }
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Wait for requisite number of items, or until timeout
+    while ((@$queue < $count) && ! $$self{'ENDED'}) {
+        last if (! cond_timedwait(%$self, $timeout));
+    }
+
+    # Get whatever we need off the queue if available
+    return $self->dequeue_nb($count);
+}
+
+# Return an item without removing it from a queue
+sub peek
+{
+    my $self = shift;
+    lock(%$self);
+    my $index = @_ ? $self->_validate_index(shift) : 0;
+    return $$self{'queue'}[$index];
+}
+
+# Insert items anywhere into a queue
+sub insert
+{
+    my $self = shift;
+    lock(%$self);
+
+    if ($$self{'ENDED'}) {
+        require Carp;
+        Carp::croak("'insert' method called on queue that has been 'end'ed");
+    }
+
+    my $queue = $$self{'queue'};
+
+    my $index = $self->_validate_index(shift);
+
+    return if (! @_);   # Nothing to insert
+
+    # Support negative indices
+    if ($index < 0) {
+        $index += @$queue;
+        if ($index < 0) {
+            $index = 0;
+        }
+    }
+
+    # Dequeue items from $index onward
+    my @tmp;
+    while (@$queue > $index) {
+        unshift(@tmp, pop(@$queue))
+    }
+
+    # Add new items to the queue
+    push(@$queue, map { shared_clone($_) } @_);
+
+    # Add previous items back onto the queue
+    push(@$queue, @tmp);
+
+    cond_signal(%$self);  # Unblock possibly waiting threads
+}
+
+# Remove items from anywhere in a queue
+sub extract
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $index = @_ ? $self->_validate_index(shift) : 0;
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Support negative indices
+    if ($index < 0) {
+        $index += @$queue;
+        if ($index < 0) {
+            $count += $index;
+            return if ($count <= 0);           # Beyond the head of the queue
+            return $self->dequeue_nb($count);  # Extract from the head
+        }
+    }
+
+    # Dequeue items from $index+$count onward
+    my @tmp;
+    while (@$queue > ($index+$count)) {
+        unshift(@tmp, pop(@$queue))
+    }
+
+    # Extract desired items
+    my @items;
+    unshift(@items, pop(@$queue)) while (@$queue > $index);
+
+    # Add back any removed items
+    push(@$queue, @tmp);
+
+    cond_signal(%$self);  # Unblock possibly waiting threads
+
+    # Return single item
+    return $items[0] if ($count == 1);
+
+    # Return multiple items
+    return @items;
+}
+
+### Internal Methods ###
+
+# Check value of the requested index
+sub _validate_index
+{
+    my $self = shift;
+    my $index = shift;
+
+    if (! defined($index) ||
+        ! looks_like_number($index) ||
+        (int($index) != $index))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $index = 'undef' if (! defined($index));
+        Carp::croak("Invalid 'index' argument ($index) to '$method' method");
+    }
+
+    return $index;
+};
+
+# Check value of the requested count
+sub _validate_count
+{
+    my $self = shift;
+    my $count = shift;
+
+    if (! defined($count) ||
+        ! looks_like_number($count) ||
+        (int($count) != $count) ||
+        ($count < 1) ||
+        ($$self{'LIMIT'} && $count > $$self{'LIMIT'}))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $count = 'undef' if (! defined($count));
+        if ($$self{'LIMIT'} && $count > $$self{'LIMIT'}) {
+            Carp::croak("'count' argument ($count) to '$method' method exceeds queue size limit ($$self{'LIMIT'})");
+        } else {
+            Carp::croak("Invalid 'count' argument ($count) to '$method' method");
+        }
+    }
+
+    return $count;
+};
+
+# Check value of the requested timeout
+sub _validate_timeout
+{
+    my $self = shift;
+    my $timeout = shift;
+
+    if (! defined($timeout) ||
+        ! looks_like_number($timeout))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $timeout = 'undef' if (! defined($timeout));
+        Carp::croak("Invalid 'timeout' argument ($timeout) to '$method' method");
+    }
+
+    return $timeout;
+};
+
+1;
+
+package Thread::Semaphore;
+
+use strict;
+use warnings;
+
+our $VERSION = '2.13';
+$VERSION = eval $VERSION;
+
+use threads::shared;
+use Scalar::Util 1.10 qw(looks_like_number);
+
+# Predeclarations for internal functions
+my ($validate_arg);
+
+# Create a new semaphore optionally with specified count (count defaults to 1)
+sub new {
+    my $class = shift;
+
+    my $val :shared = 1;
+    if (@_) {
+        $val = shift;
+        if (! defined($val) ||
+            ! looks_like_number($val) ||
+            (int($val) != $val))
+        {
+            require Carp;
+            $val = 'undef' if (! defined($val));
+            Carp::croak("Semaphore initializer is not an integer: $val");
+        }
+    }
+
+    return bless(\$val, $class);
+}
+
+# Decrement a semaphore's count (decrement amount defaults to 1)
+sub down {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    cond_wait($$sema) until ($$sema >= $dec);
+    $$sema -= $dec;
+}
+
+# Decrement a semaphore's count only if count >= decrement value
+#  (decrement amount defaults to 1)
+sub down_nb {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    my $ok = ($$sema >= $dec);
+    $$sema -= $dec if $ok;
+    return $ok;
+}
+
+# Decrement a semaphore's count even if the count goes below 0
+#  (decrement amount defaults to 1)
+sub down_force {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    $$sema -= $dec;
+}
+
+# Decrement a semaphore's count with timeout
+#  (timeout in seconds; decrement amount defaults to 1)
+sub down_timed {
+    my $sema = shift;
+    my $timeout = $validate_arg->(shift);
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    my $abs = time() + $timeout;
+    until ($$sema >= $dec) {
+        return if !cond_timedwait($$sema, $abs);
+    }
+    $$sema -= $dec;
+    return 1;
+}
+
+# Increment a semaphore's count (increment amount defaults to 1)
+sub up {
+    my $sema = shift;
+    my $inc = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    ($$sema += $inc) > 0 and cond_broadcast($$sema);
+}
+
+### Internal Functions ###
+
+# Validate method argument
+$validate_arg = sub {
+    my $arg = shift;
+
+    if (! defined($arg) ||
+        ! looks_like_number($arg) ||
+        (int($arg) != $arg) ||
+        ($arg < 1))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        $method =~ s/Thread::Semaphore:://;
+        $arg = 'undef' if (! defined($arg));
+        Carp::croak("Argument to semaphore method '$method' is not a positive integer: $arg");
+    }
+
+    return $arg;
+};
+
+1;
+
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2013-2016 -- leonerd@leonerd.org.uk
+
+package Future::Utils;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.39';
+
+use Exporter 'import';
+# Can't import the one from Exporter as it relies on package inheritance
+sub export_to_level
+{
+   my $pkg = shift; local $Exporter::ExportLevel = 1 + shift; $pkg->import(@_);
+}
+
+our @EXPORT_OK = qw(
+   call
+   call_with_escape
+
+   repeat
+   try_repeat try_repeat_until_success
+   repeat_until_success
+
+   fmap  fmap_concat
+   fmap1 fmap_scalar
+   fmap0 fmap_void
+);
+
+use Carp;
+our @CARP_NOT = qw( Future );
+
+use Future;
+
+
+
+sub call(&)
+{
+   my ( $code ) = @_;
+   return Future->call( $code );
+}
+
+
+sub call_with_escape(&)
+{
+   my ( $code ) = @_;
+
+   my $escape_f = Future->new;
+
+   return Future->wait_any(
+      Future->call( $code, $escape_f ),
+      $escape_f,
+   );
+}
+
+
+sub _repeat
+{
+   my ( $code, $return, $trialp, $cond, $sense, $is_try ) = @_;
+
+   my $prev = $$trialp;
+
+   while(1) {
+      my $trial = $$trialp ||= Future->call( $code, $prev );
+      $prev = $trial;
+
+      if( !$trial->is_ready ) {
+         # defer
+         $return ||= $trial->new;
+         $trial->on_ready( sub {
+            return if $$trialp->is_cancelled;
+            _repeat( $code, $return, $trialp, $cond, $sense, $is_try );
+         });
+         return $return;
+      }
+
+      my $stop;
+      if( not eval { $stop = !$cond->( $trial ) ^ $sense; 1 } ) {
+         $return ||= $trial->new;
+         $return->fail( $@ );
+         return $return;
+      }
+
+      if( $stop ) {
+         # Return result
+         $return ||= $trial->new;
+         $trial->on_done( $return );
+         $trial->on_fail( $return );
+         return $return;
+      }
+
+      if( !$is_try and $trial->failure ) {
+         carp "Using Future::Utils::repeat to retry a failure is deprecated; use try_repeat instead";
+      }
+
+      # redo
+      undef $$trialp;
+   }
+}
+
+sub repeat(&@)
+{
+   my $code = shift;
+   my %args = @_;
+
+   # This makes it easier to account for other conditions
+   defined($args{while}) + defined($args{until}) == 1 
+      or defined($args{foreach})
+      or defined($args{generate})
+      or croak "Expected one of 'while', 'until', 'foreach' or 'generate'";
+
+   if( $args{foreach} ) {
+      $args{generate} and croak "Cannot use both 'foreach' and 'generate'";
+
+      my $array = delete $args{foreach};
+      $args{generate} = sub {
+         @$array ? shift @$array : ();
+      };
+   }
+
+   if( $args{generate} ) {
+      my $generator = delete $args{generate};
+      my $otherwise = delete $args{otherwise};
+
+      # TODO: This is slightly messy as this lexical is captured by both
+      #   blocks of code. Can we do better somehow?
+      my $done;
+
+      my $orig_code = $code;
+      $code = sub {
+         my ( $last_trial_f ) = @_;
+         my $again = my ( $value ) = $generator->( $last_trial_f );
+
+         if( $again ) {
+            unshift @_, $value; goto &$orig_code;
+         }
+
+         $done++;
+         if( $otherwise ) {
+            goto &$otherwise;
+         }
+         else {
+            return $last_trial_f || Future->done;
+         }
+      };
+
+      if( my $orig_while = delete $args{while} ) {
+         $args{while} = sub {
+            $orig_while->( $_[0] ) and !$done;
+         };
+      }
+      elsif( my $orig_until = delete $args{until} ) {
+         $args{while} = sub {
+            !$orig_until->( $_[0] ) and !$done;
+         };
+      }
+      else {
+         $args{while} = sub { !$done };
+      }
+   }
+
+   my $future = $args{return};
+
+   my $trial;
+   $args{while} and $future = _repeat( $code, $future, \$trial, $args{while}, 0, $args{try} );
+   $args{until} and $future = _repeat( $code, $future, \$trial, $args{until}, 1, $args{try} );
+
+   $future->on_cancel( sub { $trial->cancel } );
+
+   return $future;
+}
+
+
+sub try_repeat(&@)
+{
+   # defeat prototype
+   &repeat( @_, try => 1 );
+}
+
+
+sub try_repeat_until_success(&@)
+{
+   my $code = shift;
+   my %args = @_;
+
+   # TODO: maybe merge while/until conditions one day...
+   defined($args{while}) or defined($args{until})
+      and croak "Cannot pass 'while' or 'until' to try_repeat_until_success";
+
+   # defeat prototype
+   &try_repeat( $code, while => sub { shift->failure }, %args );
+}
+
+# Legacy name
+*repeat_until_success = \&try_repeat_until_success;
+
+
+# This function is invoked in two circumstances:
+#  a) to create an item Future in a slot,
+#  b) once a non-immediate item Future is complete, to check its results
+# It can tell which circumstance by whether the slot itself is defined or not
+sub _fmap_slot
+{
+   my ( $slots, undef, $code, $generator, $collect, $results, $return ) = @_;
+
+   SLOT: while(1) {
+      # Capture args each call because we mutate them
+      my ( undef, $idx ) = my @args = @_;
+
+      unless( $slots->[$idx] ) {
+         # No item Future yet (case a), so create one
+         my $item;
+         unless( ( $item ) = $generator->() ) {
+            # All out of items, so now just wait for the slots to be finished
+            undef $slots->[$idx];
+            defined and return $return for @$slots;
+
+            # All the slots are done
+            $return ||= Future->new;
+
+            $return->done( @$results );
+            return $return;
+         }
+
+         my $f = $slots->[$idx] = Future->call( $code, local $_ = $item );
+
+         if( $collect eq "array" ) {
+            push @$results, my $r = [];
+            $f->on_done( sub { @$r = @_ });
+         }
+         elsif( $collect eq "scalar" ) {
+            push @$results, undef;
+            my $r = \$results->[-1];
+            $f->on_done( sub { $$r = $_[0] });
+         }
+      }
+
+      my $f = $slots->[$idx];
+
+      # Slot is non-immediate; arrange for us to be invoked again later when it's ready
+      if( !$f->is_ready ) {
+         $args[-1] = ( $return ||= $f->new );
+         $f->on_done( sub { _fmap_slot( @args ) } );
+         $f->on_fail( $return );
+
+         # Try looking for more that might be ready
+         my $i = $idx + 1;
+         while( $i != $idx ) {
+            $i++;
+            $i %= @$slots;
+            next if defined $slots->[$i];
+
+            $_[1] = $i;
+            redo SLOT;
+         }
+         return $return;
+      }
+
+      # Either we've been invoked again (case b), or the immediate Future was
+      # already ready.
+      if( $f->failure ) {
+         $return ||= $f->new;
+         $return->fail( $f->failure );
+         return $return;
+      }
+
+      undef $slots->[$idx];
+      # next
+   }
+}
+
+sub _fmap
+{
+   my $code = shift;
+   my %args = @_;
+
+   my $concurrent = $args{concurrent} || 1;
+   my @slots;
+
+   my $results = [];
+   my $future = $args{return};
+
+   my $generator;
+   if( $generator = $args{generate} ) {
+      # OK
+   }
+   elsif( my $array = $args{foreach} ) {
+      $generator = sub { return unless @$array; shift @$array };
+   }
+   else {
+      croak "Expected either 'generate' or 'foreach'";
+   }
+
+   # If any of these immediately fail, don't bother continuing
+   foreach my $idx ( 0 .. $concurrent-1 ) {
+      $future = _fmap_slot( \@slots, $idx, $code, $generator, $args{collect}, $results, $future );
+      last if $future->is_ready;
+   }
+
+   $future->on_fail( sub {
+      !defined $_ or $_->is_ready or $_->cancel for @slots;
+   });
+   $future->on_cancel( sub {
+      !defined $_ or $_->is_ready or $_->cancel for @slots;
+   });
+
+   return $future;
+}
+
+
+sub fmap_concat(&@)
+{
+   my $code = shift;
+   my %args = @_;
+
+   _fmap( $code, %args, collect => "array" )->then( sub {
+      return Future->done( map { @$_ } @_ );
+   });
+}
+*fmap = \&fmap_concat;
+
+
+sub fmap_scalar(&@)
+{
+   my $code = shift;
+   my %args = @_;
+
+   _fmap( $code, %args, collect => "scalar" )
+}
+*fmap1 = \&fmap_scalar;
+
+
+sub fmap_void(&@)
+{
+   my $code = shift;
+   my %args = @_;
+
+   _fmap( $code, %args, collect => "void" )
+}
+*fmap0 = \&fmap_void;
+
+
+0x55AA;
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2016-2017 -- leonerd@leonerd.org.uk
+
+package Future::Mutex;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.39';
+
+use Future;
+
+
+
+
+sub new
+{
+   my $class = shift;
+   my %params = @_;
+
+   return bless {
+      avail => $params{count} // 1,
+      queue => [],
+   }, $class;
+}
+
+
+
+sub enter
+{
+   my $self = shift;
+   my ( $code ) = @_;
+
+   my $down_f;
+   if( $self->{avail} ) {
+      $self->{avail}--;
+      $down_f = Future->done;
+   }
+   else {
+      push @{ $self->{queue} }, $down_f = Future->new;
+   }
+
+   my $up = sub {
+      if( my $next_f = shift @{ $self->{queue} } ) {
+         $next_f->done;
+      }
+      else {
+         $self->{avail}++;
+      }
+   };
+
+   $down_f->then( $code )->on_ready( $up );
+}
+
+
+sub available
+{
+   my $self = shift;
+   return $self->{avail};
+}
+
+
+0x55AA;
+
+# Time-stamp: "2004-10-06 23:26:33 ADT"
+# Sean M. Burke <sburke@cpan.org>
+
+require 5.000;
+package I18N::LangTags;
+use strict;
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw();
+our @EXPORT_OK = qw(is_language_tag same_language_tag
+                extract_language_tags super_languages
+                similarity_language_tag is_dialect_of
+                locale2language_tag alternate_language_tags
+                encode_language_tag panic_languages
+                implicate_supers
+                implicate_supers_strictly
+               );
+our %EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
+
+our $VERSION = "0.43";
+our %Panic;
+
+sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function
+
+
+
+###########################################################################
+
+
+sub is_language_tag {
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($tag) = lc($_[0]);
+
+  return 0 if $tag eq "i" or $tag eq "x";
+  # Bad degenerate cases that the following
+  #  regexp would erroneously let pass
+
+  return $tag =~ 
+    /^(?:  # First subtag
+         [xi] | [a-z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-z0-9]{1,8}  # subtag  
+      )*
+    $/xs ? 1 : 0;
+}
+
+###########################################################################
+
+
+sub extract_language_tags {
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($text) =
+    $_[0] =~ m/(.+)/  # to make for an untainted result
+    ? $1 : ''
+  ;
+  
+  return grep(!m/^[ixIX]$/s, # 'i' and 'x' aren't good tags
+    $text =~ 
+    m/
+      \b
+      (?:  # First subtag
+         [iIxX] | [a-zA-Z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-zA-Z0-9]{1,8}  # subtag  
+      )*
+      \b
+    /xsg
+  );
+}
+
+###########################################################################
+
+
+sub same_language_tag {
+  my $el1 = &encode_language_tag($_[0]);
+  return 0 unless defined $el1;
+   # this avoids the problem of
+   # encode_language_tag($lang1) eq and encode_language_tag($lang2)
+   # being true if $lang1 and $lang2 are both undef
+
+  return $el1 eq &encode_language_tag($_[1]) ? 1 : 0;
+}
+
+###########################################################################
+
+
+sub similarity_language_tag {
+  my $lang1 = &encode_language_tag($_[0]);
+  my $lang2 = &encode_language_tag($_[1]);
+   # And encode_language_tag takes care of the whole
+   #  no-nyn==nn, i-hakka==zh-hakka, etc, things
+   
+  # NB: (i-sil-...)?  (i-sgn-...)?
+
+  return undef if !defined($lang1) and !defined($lang2);
+  return 0 if !defined($lang1) or !defined($lang2);
+
+  my @l1_subtags = split('-', $lang1);
+  my @l2_subtags = split('-', $lang2);
+  my $similarity = 0;
+
+  while(@l1_subtags and @l2_subtags) {
+    if(shift(@l1_subtags) eq shift(@l2_subtags)) {
+      ++$similarity;
+    } else {
+      last;
+    } 
+  }
+  return $similarity;
+}
+
+###########################################################################
+
+
+sub is_dialect_of {
+
+  my $lang1 = &encode_language_tag($_[0]);
+  my $lang2 = &encode_language_tag($_[1]);
+
+  return undef if !defined($lang1) and !defined($lang2);
+  return 0 if !defined($lang1) or !defined($lang2);
+
+  return 1 if $lang1 eq $lang2;
+  return 0 if length($lang1) < length($lang2);
+
+  $lang1 .= '-';
+  $lang2 .= '-';
+  return
+    (substr($lang1, 0, length($lang2)) eq $lang2) ? 1 : 0;
+}
+
+###########################################################################
+
+
+sub super_languages {
+  my $lang1 = $_[0];
+  return() unless defined($lang1) && &is_language_tag($lang1);
+
+  # a hack for those annoying new (2001) tags:
+  $lang1 =~ s/^nb\b/no-bok/i; # yes, backwards
+  $lang1 =~ s/^nn\b/no-nyn/i; # yes, backwards
+  $lang1 =~ s/^[ix](-hakka\b)/zh$1/i; # goes the right way
+   # i-hakka-bork-bjork-bjark => zh-hakka-bork-bjork-bjark
+
+  my @l1_subtags = split('-', $lang1);
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  # NB: (i-sil-...)?
+
+  my @supers = ();
+  foreach my $bit (@l1_subtags) {
+    push @supers, 
+      scalar(@supers) ? ($supers[-1] . '-' . $bit) : $bit;
+  }
+  pop @supers if @supers;
+  shift @supers if @supers && $supers[0] =~ m<^[iIxX]$>s;
+  return reverse @supers;
+}
+
+###########################################################################
+
+
+sub locale2language_tag {
+  my $lang =
+    $_[0] =~ m/(.+)/  # to make for an untainted result
+    ? $1 : ''
+  ;
+
+  return $lang if &is_language_tag($lang); # like "en"
+
+  $lang =~ tr<_><->;  # "en_US" -> en-US
+  $lang =~ s<(?:[\.\@][-_a-zA-Z0-9]+)+$><>s;  # "en_US.ISO8859-1" -> en-US
+   # it_IT.utf8@euro => it-IT
+
+  return $lang if &is_language_tag($lang);
+
+  return;
+}
+
+###########################################################################
+
+
+sub encode_language_tag {
+  # Only similarity_language_tag() is allowed to analyse encodings!
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($tag) = $_[0] || return undef;
+  return undef unless &is_language_tag($tag);
+
+  # For the moment, these legacy variances are few enough that
+  #  we can just handle them here with regexps.
+  $tag =~ s/^iw\b/he/i; # Hebrew
+  $tag =~ s/^in\b/id/i; # Indonesian
+  $tag =~ s/^cre\b/cr/i; # Cree
+  $tag =~ s/^jw\b/jv/i; # Javanese
+  $tag =~ s/^[ix]-lux\b/lb/i;  # Luxemburger
+  $tag =~ s/^[ix]-navajo\b/nv/i;  # Navajo
+  $tag =~ s/^ji\b/yi/i;  # Yiddish
+  # SMB 2003 -- Hm.  There's a bunch of new XXX->YY variances now,
+  #  but maybe they're all so obscure I can ignore them.   "Obscure"
+  #  meaning either that the language is obscure, and/or that the
+  #  XXX form was extant so briefly that it's unlikely it was ever
+  #  used.  I hope.
+  #
+  # These go FROM the simplex to complex form, to get
+  #  similarity-comparison right.  And that's okay, since
+  #  similarity_language_tag is the only thing that
+  #  analyzes our output.
+  $tag =~ s/^[ix]-hakka\b/zh-hakka/i;  # Hakka
+  $tag =~ s/^nb\b/no-bok/i;  # BACKWARDS for Bokmal
+  $tag =~ s/^nn\b/no-nyn/i;  # BACKWARDS for Nynorsk
+
+  $tag =~ s/^[xiXI]-//s;
+   # Just lop off any leading "x/i-"
+
+  return "~" . uc($tag);
+}
+
+#--------------------------------------------------------------------------
+
+
+my %alt = qw( i x   x i   I X   X I );
+sub alternate_language_tags {
+  my $tag = $_[0];
+  return() unless &is_language_tag($tag);
+
+  my @em; # push 'em real goood!
+
+  # For the moment, these legacy variances are few enough that
+  #  we can just handle them here with regexps.
+  
+  if(     $tag =~ m/^[ix]-hakka\b(.*)/i) {push @em, "zh-hakka$1";
+  } elsif($tag =~ m/^zh-hakka\b(.*)/i) {  push @em, "x-hakka$1", "i-hakka$1";
+
+  } elsif($tag =~ m/^he\b(.*)/i) { push @em, "iw$1";
+  } elsif($tag =~ m/^iw\b(.*)/i) { push @em, "he$1";
+
+  } elsif($tag =~ m/^in\b(.*)/i) { push @em, "id$1";
+  } elsif($tag =~ m/^id\b(.*)/i) { push @em, "in$1";
+
+  } elsif($tag =~ m/^[ix]-lux\b(.*)/i) { push @em, "lb$1";
+  } elsif($tag =~ m/^lb\b(.*)/i) {       push @em, "i-lux$1", "x-lux$1";
+
+  } elsif($tag =~ m/^[ix]-navajo\b(.*)/i) { push @em, "nv$1";
+  } elsif($tag =~ m/^nv\b(.*)/i) {          push @em, "i-navajo$1", "x-navajo$1";
+
+  } elsif($tag =~ m/^yi\b(.*)/i) { push @em, "ji$1";
+  } elsif($tag =~ m/^ji\b(.*)/i) { push @em, "yi$1";
+
+  } elsif($tag =~ m/^nb\b(.*)/i) {     push @em, "no-bok$1";
+  } elsif($tag =~ m/^no-bok\b(.*)/i) { push @em, "nb$1";
+  
+  } elsif($tag =~ m/^nn\b(.*)/i) {     push @em, "no-nyn$1";
+  } elsif($tag =~ m/^no-nyn\b(.*)/i) { push @em, "nn$1";
+  }
+
+  push @em, $alt{$1} . $2 if $tag =~ /^([XIxi])(-.+)/;
+  return @em;
+}
+
+###########################################################################
+
+{
+  # Init %Panic...
+  
+  my @panic = (  # MUST all be lowercase!
+   # Only large ("national") languages make it in this list.
+   #  If you, as a user, are so bizarre that the /only/ language
+   #  you claim to accept is Galician, then no, we won't do you
+   #  the favor of providing Catalan as a panic-fallback for
+   #  you.  Because if I start trying to add "little languages" in
+   #  here, I'll just go crazy.
+
+   # Scandinavian lgs.  All based on opinion and hearsay.
+   'sv' => [qw(nb no da nn)],
+   'da' => [qw(nb no sv nn)], # I guess
+   [qw(no nn nb)], [qw(no nn nb sv da)],
+   'is' => [qw(da sv no nb nn)],
+   'fo' => [qw(da is no nb nn sv)], # I guess
+   
+   # I think this is about the extent of tolerable intelligibility
+   #  among large modern Romance languages.
+   'pt' => [qw(es ca it fr)], # Portuguese, Spanish, Catalan, Italian, French
+   'ca' => [qw(es pt it fr)],
+   'es' => [qw(ca it fr pt)],
+   'it' => [qw(es fr ca pt)],
+   'fr' => [qw(es it ca pt)],
+   
+   # Also assume that speakers of the main Indian languages prefer
+   #  to read/hear Hindi over English
+   [qw(
+     as bn gu kn ks kok ml mni mr ne or pa sa sd te ta ur
+   )] => 'hi',
+    # Assamese, Bengali, Gujarati, [Hindi,] Kannada (Kanarese), Kashmiri,
+    # Konkani, Malayalam, Meithei (Manipuri), Marathi, Nepali, Oriya,
+    # Punjabi, Sanskrit, Sindhi, Telugu, Tamil, and Urdu.
+   'hi' => [qw(bn pa as or)],
+   # I welcome finer data for the other Indian languages.
+   #  E.g., what should Oriya's list be, besides just Hindi?
+   
+   # And the panic languages for English is, of course, nil!
+
+   # My guesses at Slavic intelligibility:
+   ([qw(ru be uk)]) x 2,  # Russian, Belarusian, Ukranian
+   ([qw(sr hr bs)]) x 2,  # Serbian, Croatian, Bosnian
+   'cs' => 'sk', 'sk' => 'cs', # Czech + Slovak
+
+   'ms' => 'id', 'id' => 'ms', # Malay + Indonesian
+
+   'et' => 'fi', 'fi' => 'et', # Estonian + Finnish
+
+   #?? 'lo' => 'th', 'th' => 'lo', # Lao + Thai
+
+  );
+  my($k,$v);
+  while(@panic) {
+    ($k,$v) = splice(@panic,0,2);
+    foreach my $k (ref($k) ? @$k : $k) {
+      foreach my $v (ref($v) ? @$v : $v) {
+        push @{$Panic{$k} ||= []}, $v unless $k eq $v;
+      }
+    }
+  }
+}
+
+
+sub panic_languages {
+  # When in panic or in doubt, run in circles, scream, and shout!
+  my(@out, %seen);
+  foreach my $t (@_) {
+    next unless $t;
+    next if $seen{$t}++; # so we don't return it or hit it again
+    # push @out, super_languages($t); # nah, keep that separate
+    push @out, @{ $Panic{lc $t} || next };
+  }
+  return grep !$seen{$_}++,  @out, 'en';
+}
+
+#---------------------------------------------------------------------------
+#---------------------------------------------------------------------------
+
+
+sub implicate_supers {
+  my @languages = grep is_language_tag($_), @_;
+  my %seen_encoded;
+  foreach my $lang (@languages) {
+    $seen_encoded{ I18N::LangTags::encode_language_tag($lang) } = 1
+  }
+
+  my(@output_languages);
+  foreach my $lang (@languages) {
+    push @output_languages, $lang;
+    foreach my $s ( I18N::LangTags::super_languages($lang) ) {
+      # Note that super_languages returns the longest first.
+      last if $seen_encoded{ I18N::LangTags::encode_language_tag($s) };
+      push @output_languages, $s;
+    }
+  }
+  return uniq( @output_languages );
+
+}
+
+sub implicate_supers_strictly {
+  my @tags = grep is_language_tag($_), @_;
+  return uniq( @_,   map super_languages($_), @_ );
+}
+
+
+
+###########################################################################
+1;
+__END__
+
+
+package I18N::Collate;
+
+use strict;
+our $VERSION = '1.02';
+
+
+# I18N::Collate.pm
+#
+# Author:	Jarkko Hietaniemi <F<jhi@iki.fi>>
+#		Helsinki University of Technology, Finland
+#
+# Acks:		Guy Decoux <F<decoux@moulon.inra.fr>> understood
+#		overloading magic much deeper than I and told
+#		how to cut the size of this code by more than half.
+#		(my first version did overload all of lt gt eq le ge cmp)
+#
+# Purpose:      compare 8-bit scalar data according to the current locale
+#
+# Requirements:	Perl5 POSIX::setlocale() and POSIX::strxfrm()
+#
+# Exports:	setlocale 1)
+#		collate_xfrm 2)
+#
+# Overloads:	cmp # 3)
+#
+# Usage:	use I18N::Collate;
+#	        setlocale(LC_COLLATE, 'locale-of-your-choice'); # 4)
+#		$s1 = I18N::Collate->("scalar_data_1");
+#		$s2 = I18N::Collate->("scalar_data_2");
+#
+#		now you can compare $s1 and $s2: $s1 le $s2
+#		to extract the data itself, you need to deref: $$s1
+#
+# Notes:
+#		1) this uses POSIX::setlocale
+#		2) the basic collation conversion is done by strxfrm() which
+#		   terminates at NUL characters being a decent C routine.
+#		   collate_xfrm handles embedded NUL characters gracefully.
+#		3) due to cmp and overload magic, lt le eq ge gt work also
+#		4) the available locales depend on your operating system;
+#		   try whether "locale -a" shows them or man pages for
+#		   "locale" or "nlsinfo" work or the more direct
+#		   approach "ls /usr/lib/nls/loc" or "ls /usr/lib/nls".
+#		   Not all the locales that your vendor supports
+#		   are necessarily installed: please consult your
+#		   operating system's documentation.
+#		   The locale names are probably something like
+#		   'xx_XX.(ISO)?8859-N' or 'xx_XX.(ISO)?8859N',
+#		   for example 'fr_CH.ISO8859-1' is the Swiss (CH)
+#		   variant of French (fr), ISO Latin (8859) 1 (-1)
+#		   which is the Western European character set.
+#
+# Updated:	19961005
+#
+# ---
+
+use POSIX qw(strxfrm LC_COLLATE);
+use warnings::register;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(collate_xfrm setlocale LC_COLLATE);
+our @EXPORT_OK = qw();
+
+use overload qw(
+fallback	1
+cmp		collate_cmp
+);
+
+our($LOCALE, $C);
+
+our $please_use_I18N_Collate_even_if_deprecated = 0;
+sub new {
+  my $new = $_[1];
+
+  if (warnings::enabled() && $] >= 5.003_06) {
+    unless ($please_use_I18N_Collate_even_if_deprecated) {
+      warnings::warn <<___EOD___;
+***
+
+  WARNING: starting from the Perl version 5.003_06
+  the I18N::Collate interface for comparing 8-bit scalar data
+  according to the current locale
+
+	HAS BEEN DEPRECATED
+
+  That is, please do not use it anymore for any new applications
+  and please migrate the old applications away from it because its
+  functionality was integrated into the Perl core language in the
+  release 5.003_06.
+
+  See the perllocale manual page for further information.
+
+***
+___EOD___
+      $please_use_I18N_Collate_even_if_deprecated++;
+    }
+  }
+
+  bless \$new;
+}
+
+sub setlocale {
+ my ($category, $locale) = @_[0,1];
+
+ POSIX::setlocale($category, $locale) if (defined $category);
+ # the current $LOCALE
+ $LOCALE = $locale || $ENV{'LC_COLLATE'} || $ENV{'LC_ALL'} || '';
+}
+
+sub C {
+  my $s = ${$_[0]};
+
+  $C->{$LOCALE}->{$s} = collate_xfrm($s)
+    unless (defined $C->{$LOCALE}->{$s}); # cache when met
+
+  $C->{$LOCALE}->{$s};
+}
+
+sub collate_xfrm {
+  my $s = $_[0];
+  my $x = '';
+
+  for (split(/(\000+)/, $s)) {
+    $x .= (/^\000/) ? $_ : strxfrm("$_\000");
+  }
+
+  $x;
+}
+
+sub collate_cmp {
+  &C($_[0]) cmp &C($_[1]);
+}
+
+# init $LOCALE
+
+&I18N::Collate::setlocale();
+
+1; # keep require happy
+
+require 5;
+package I18N::LangTags::List;
+#  Time-stamp: "2004-10-06 23:26:21 ADT"
+use strict;
+our (%Name, %Is_Disrec, $Debug);
+our $VERSION = '0.40';
+# POD at the end.
+
+#----------------------------------------------------------------------
+{
+# read the table out of our own POD!
+  my $seeking = 1;
+  my $count = 0;
+  my($disrec,$tag,$name);
+  my $last_name = '';
+  while(<I18N::LangTags::List::DATA>) {
+    if($seeking) {
+      $seeking = 0 if m/=for woohah/;
+    } elsif( ($disrec, $tag, $name) =
+          m/(\[?)\{([-0-9a-zA-Z]+)\}(?:\s*:)?\s*([^\[\]]+)/
+    ) {
+      $name =~ s/\s*[;\.]*\s*$//g;
+      next unless $name;
+      ++$count;
+      print "<$tag> <$name>\n" if $Debug;
+      $last_name = $Name{$tag} = $name;
+      $Is_Disrec{$tag} = 1 if $disrec;
+    } elsif (m/[Ff]ormerly \"([-a-z0-9]+)\"/) {
+      $Name{$1} = "$last_name (old tag)" if $last_name;
+      $Is_Disrec{$1} = 1;
+    }
+  }
+  die "No tags read??" unless $count;
+}
+#----------------------------------------------------------------------
+
+sub name {
+  my $tag = lc($_[0] || return);
+  $tag =~ s/^\s+//s;
+  $tag =~ s/\s+$//s;
+  
+  my $alt;
+  if($tag =~ m/^x-(.+)/) {
+    $alt = "i-$1";
+  } elsif($tag =~ m/^i-(.+)/) {
+    $alt = "x-$1";
+  } else {
+    $alt = '';
+  }
+  
+  my $subform = '';
+  my $name = '';
+  print "Input: {$tag}\n" if $Debug;
+  while(length $tag) {
+    last if $name = $Name{$tag};
+    last if $name = $Name{$alt};
+    if($tag =~ s/(-[a-z0-9]+)$//s) {
+      print "Shaving off: $1 leaving $tag\n" if $Debug;
+      $subform = "$1$subform";
+       # and loop around again
+       
+      $alt =~ s/(-[a-z0-9]+)$//s && $Debug && print " alt -> $alt\n";
+    } else {
+      # we're trying to pull a subform off a primary tag. TILT!
+      print "Aborting on: {$name}{$subform}\n" if $Debug;
+      last;
+    }
+  }
+  print "Output: {$name}{$subform}\n" if $Debug;
+  
+  return unless $name;   # Failure
+  return $name unless $subform;   # Exact match
+  $subform =~ s/^-//s;
+  $subform =~ s/-$//s;
+  return "$name (Subform \"$subform\")";
+}
+
+#--------------------------------------------------------------------------
+
+sub is_decent {
+  my $tag = lc($_[0] || return 0);
+  #require I18N::LangTags;
+
+  return 0 unless
+    $tag =~ 
+    /^(?:  # First subtag
+         [xi] | [a-z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-z0-9]{1,8}  # subtag  
+      )*
+    $/xs;
+
+  my @supers = ();
+  foreach my $bit (split('-', $tag)) {
+    push @supers, 
+      scalar(@supers) ? ($supers[-1] . '-' . $bit) : $bit;
+  }
+  return 0 unless @supers;
+  shift @supers if $supers[0] =~ m<^(i|x|sgn)$>s;
+  return 0 unless @supers;
+
+  foreach my $f ($tag, @supers) {
+    return 0 if $Is_Disrec{$f};
+    return 2 if $Name{$f};
+     # so that decent subforms of indecent tags are decent
+  }
+  return 2 if $Name{$tag}; # not only is it decent, it's known!
+  return 1;
+}
+
+#--------------------------------------------------------------------------
+1;
+
+__DATA__
+
+
+
+# To generate a list of just the two and three-letter codes:
+
+#!/usr/local/bin/perl -w
+
+require 5; # Time-stamp: "2001-03-13 21:53:39 MST"
+ # Sean M. Burke, sburke@cpan.org
+ # This program is for generating the language_codes.txt file
+use strict;
+use LWP::Simple;
+use HTML::TreeBuilder 3.10;
+my $root = HTML::TreeBuilder->new();
+my $url = 'http://lcweb.loc.gov/standards/iso639-2/bibcodes.html';
+$root->parse(get($url) || die "Can't get $url");
+$root->eof();
+
+my @codes;
+
+foreach my $tr ($root->find_by_tag_name('tr')) {
+  my @f = map $_->as_text(), $tr->content_list();
+  #print map("<$_> ", @f), "\n";
+  next unless @f == 5;
+  pop @f; # nix the French name
+  next if $f[-1] eq 'Language Name (English)'; # it's a header line
+  my $xx = splice(@f, 2,1); # pull out the two-letter code
+  $f[-1] =~ s/^\s+//;
+  $f[-1] =~ s/\s+$//;
+  if($xx =~ m/[a-zA-Z]/) {   # there's a two-letter code for it
+    push   @codes, [ lc($f[-1]),   "$xx\t$f[-1]\n" ];
+  } else { # print the three-letter codes.
+    if($f[0] eq $f[1]) {
+      push @codes, [ lc($f[-1]), "$f[1]\t$f[2]\n" ];
+    } else { # shouldn't happen
+      push @codes, [ lc($f[-1]), "@f !!!!!!!!!!\n" ]; 
+    }
+  }
+}
+
+print map $_->[1], sort {; $a->[0] cmp $b->[0] } @codes;
+print "[ based on $url\n at ", scalar(localtime), "]\n",
+  "[Note: doesn't include IANA-registered codes.]\n";
+exit;
+__END__
+
+
+# Time-stamp: "2004-06-20 21:47:55 ADT"
+
+require 5;
+package I18N::LangTags::Detect;
+use strict;
+
+our ( $MATCH_SUPERS, $USING_LANGUAGE_TAGS,
+             $USE_LITERALS, $MATCH_SUPERS_TIGHTLY);
+
+BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
+ # define the constant 'DEBUG' at compile-time
+
+our $VERSION = "1.07";
+our @ISA = ();
+use I18N::LangTags qw(alternate_language_tags locale2language_tag);
+
+sub _uniq { my %seen; return grep(!($seen{$_}++), @_); }
+sub _normalize {
+  my(@languages) =
+    map lc($_),
+    grep $_,
+    map {; $_, alternate_language_tags($_) } @_;
+  return _uniq(@languages) if wantarray;
+  return $languages[0];
+}
+
+#---------------------------------------------------------------------------
+# The extent of our functional interface:
+
+sub detect () { return __PACKAGE__->ambient_langprefs; }
+
+#===========================================================================
+
+sub ambient_langprefs { # always returns things untainted
+  my $base_class = $_[0];
+  
+  return $base_class->http_accept_langs
+   if length( $ENV{'REQUEST_METHOD'} || '' ); # I'm a CGI
+       # it's off in its own routine because it's complicated
+
+  # Not running as a CGI: try to puzzle out from the environment
+  my @languages;
+
+  foreach my $envname (qw( LANGUAGE LC_ALL LC_MESSAGES LANG )) {
+    next unless $ENV{$envname};
+    DEBUG and print "Noting \$$envname: $ENV{$envname}\n";
+    push @languages,
+      map locale2language_tag($_),
+        # if it's a lg tag, fine, pass thru (untainted)
+        # if it's a locale ID, try converting to a lg tag (untainted),
+        # otherwise nix it.
+
+      split m/[,:]/,
+      $ENV{$envname}
+    ;
+    last; # first one wins
+  }
+  
+  if($ENV{'IGNORE_WIN32_LOCALE'}) {
+    # no-op
+  } elsif(&_try_use('Win32::Locale')) {
+    # If we have that module installed...
+    push @languages, Win32::Locale::get_language() || ''
+     if defined &Win32::Locale::get_language;
+  }
+  return _normalize @languages;
+}
+
+#---------------------------------------------------------------------------
+
+sub http_accept_langs {
+  # Deal with HTTP "Accept-Language:" stuff.  Hassle.
+  # This code is more lenient than RFC 3282, which you must read.
+  # Hm.  Should I just move this into I18N::LangTags at some point?
+  no integer;
+
+  my $in = (@_ > 1) ? $_[1] : $ENV{'HTTP_ACCEPT_LANGUAGE'};
+  # (always ends up untainting)
+
+  return() unless defined $in and length $in;
+
+  $in =~ s/\([^\)]*\)//g; # nix just about any comment
+  
+  if( $in =~ m/^\s*([a-zA-Z][-a-zA-Z]+)\s*$/s ) {
+    # Very common case: just one language tag
+    return _normalize $1;
+  } elsif( $in =~ m/^\s*[a-zA-Z][-a-zA-Z]+(?:\s*,\s*[a-zA-Z][-a-zA-Z]+)*\s*$/s ) {
+    # Common case these days: just "foo, bar, baz"
+    return _normalize( $in =~ m/([a-zA-Z][-a-zA-Z]+)/g );
+  }
+
+  # Else it's complicated...
+
+  $in =~ s/\s+//g;  # Yes, we can just do without the WS!
+  my @in = $in =~ m/([^,]+)/g;
+  my %pref;
+  
+  my $q;
+  foreach my $tag (@in) {
+    next unless $tag =~
+     m/^([a-zA-Z][-a-zA-Z]+)
+        (?:
+         ;q=
+         (
+          \d*   # a bit too broad of a RE, but so what.
+          (?:
+            \.\d+
+          )?
+         )
+        )?
+       $
+      /sx
+    ;
+    $q = (defined $2 and length $2) ? $2 : 1;
+    #print "$1 with q=$q\n";
+    push @{ $pref{$q} }, lc $1;
+  }
+
+  return _normalize(
+    # Read off %pref, in descending key order...
+    map @{$pref{$_}},
+    sort {$b <=> $a}
+    keys %pref
+  );
+}
+
+#===========================================================================
+
+my %tried = ();
+  # memoization of whether we've used this module, or found it unusable.
+
+sub _try_use {   # Basically a wrapper around "require Modulename"
+  # "Many men have tried..."  "They tried and failed?"  "They tried and died."
+  return $tried{$_[0]} if exists $tried{$_[0]};  # memoization
+
+  my $module = $_[0];   # ASSUME sane module name!
+  { no strict 'refs';
+    no warnings 'once';
+    return($tried{$module} = 1)
+     if %{$module . "::Lexicon"} or @{$module . "::ISA"};
+    # weird case: we never use'd it, but there it is!
+  }
+
+  print " About to use $module ...\n" if DEBUG;
+  {
+    local $SIG{'__DIE__'};
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval "require $module"; # used to be "use $module", but no point in that.
+  }
+  if($@) {
+    print "Error using $module \: $@\n" if DEBUG > 1;
+    return $tried{$module} = 0;
+  } else {
+    print " OK, $module is used\n" if DEBUG;
+    return $tried{$module} = 1;
+  }
+}
+
+#---------------------------------------------------------------------------
+1;
+__END__
+
+
+
+# a tip: Put a bit of chopped up pickled ginger in your salad. It's tasty!
+# Pod::PlainText -- Convert POD data to formatted ASCII text.
+# $Id: Text.pm,v 2.1 1999/09/20 11:53:33 eagle Exp $
+#
+# Copyright 1999-2000 by Russ Allbery <rra@stanford.edu>
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# This module is intended to be a replacement for Pod::Text, and attempts to
+# match its output except for some specific circumstances where other
+# decisions seemed to produce better output.  It uses Pod::Parser and is
+# designed to be very easy to subclass.
+
+############################################################################
+# Modules and declarations
+############################################################################
+
+package Pod::PlainText;
+use strict;
+
+require 5.005;
+
+use Carp qw(carp croak);
+use Pod::Select ();
+
+use vars qw(@ISA %ESCAPES $VERSION);
+
+# We inherit from Pod::Select instead of Pod::Parser so that we can be used
+# by Pod::Usage.
+@ISA = qw(Pod::Select);
+
+$VERSION = '2.07';
+
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+
+############################################################################
+# Table of supported E<> escapes
+############################################################################
+
+# This table is taken near verbatim from Pod::PlainText in Pod::Parser,
+# which got it near verbatim from the original Pod::Text.  It is therefore
+# credited to Tom Christiansen, and I'm glad I didn't have to write it.  :)
+%ESCAPES = (
+    'amp'       =>    '&',      # ampersand
+    'lt'        =>    '<',      # left chevron, less-than
+    'gt'        =>    '>',      # right chevron, greater-than
+    'quot'      =>    '"',      # double quote
+
+    "Aacute"    =>    "\xC1",   # capital A, acute accent
+    "aacute"    =>    "\xE1",   # small a, acute accent
+    "Acirc"     =>    "\xC2",   # capital A, circumflex accent
+    "acirc"     =>    "\xE2",   # small a, circumflex accent
+    "AElig"     =>    "\xC6",   # capital AE diphthong (ligature)
+    "aelig"     =>    "\xE6",   # small ae diphthong (ligature)
+    "Agrave"    =>    "\xC0",   # capital A, grave accent
+    "agrave"    =>    "\xE0",   # small a, grave accent
+    "Aring"     =>    "\xC5",   # capital A, ring
+    "aring"     =>    "\xE5",   # small a, ring
+    "Atilde"    =>    "\xC3",   # capital A, tilde
+    "atilde"    =>    "\xE3",   # small a, tilde
+    "Auml"      =>    "\xC4",   # capital A, dieresis or umlaut mark
+    "auml"      =>    "\xE4",   # small a, dieresis or umlaut mark
+    "Ccedil"    =>    "\xC7",   # capital C, cedilla
+    "ccedil"    =>    "\xE7",   # small c, cedilla
+    "Eacute"    =>    "\xC9",   # capital E, acute accent
+    "eacute"    =>    "\xE9",   # small e, acute accent
+    "Ecirc"     =>    "\xCA",   # capital E, circumflex accent
+    "ecirc"     =>    "\xEA",   # small e, circumflex accent
+    "Egrave"    =>    "\xC8",   # capital E, grave accent
+    "egrave"    =>    "\xE8",   # small e, grave accent
+    "ETH"       =>    "\xD0",   # capital Eth, Icelandic
+    "eth"       =>    "\xF0",   # small eth, Icelandic
+    "Euml"      =>    "\xCB",   # capital E, dieresis or umlaut mark
+    "euml"      =>    "\xEB",   # small e, dieresis or umlaut mark
+    "Iacute"    =>    "\xCD",   # capital I, acute accent
+    "iacute"    =>    "\xED",   # small i, acute accent
+    "Icirc"     =>    "\xCE",   # capital I, circumflex accent
+    "icirc"     =>    "\xEE",   # small i, circumflex accent
+    "Igrave"    =>    "\xCD",   # capital I, grave accent
+    "igrave"    =>    "\xED",   # small i, grave accent
+    "Iuml"      =>    "\xCF",   # capital I, dieresis or umlaut mark
+    "iuml"      =>    "\xEF",   # small i, dieresis or umlaut mark
+    "Ntilde"    =>    "\xD1",   # capital N, tilde
+    "ntilde"    =>    "\xF1",   # small n, tilde
+    "Oacute"    =>    "\xD3",   # capital O, acute accent
+    "oacute"    =>    "\xF3",   # small o, acute accent
+    "Ocirc"     =>    "\xD4",   # capital O, circumflex accent
+    "ocirc"     =>    "\xF4",   # small o, circumflex accent
+    "Ograve"    =>    "\xD2",   # capital O, grave accent
+    "ograve"    =>    "\xF2",   # small o, grave accent
+    "Oslash"    =>    "\xD8",   # capital O, slash
+    "oslash"    =>    "\xF8",   # small o, slash
+    "Otilde"    =>    "\xD5",   # capital O, tilde
+    "otilde"    =>    "\xF5",   # small o, tilde
+    "Ouml"      =>    "\xD6",   # capital O, dieresis or umlaut mark
+    "ouml"      =>    "\xF6",   # small o, dieresis or umlaut mark
+    "szlig"     =>    "\xDF",   # small sharp s, German (sz ligature)
+    "THORN"     =>    "\xDE",   # capital THORN, Icelandic
+    "thorn"     =>    "\xFE",   # small thorn, Icelandic
+    "Uacute"    =>    "\xDA",   # capital U, acute accent
+    "uacute"    =>    "\xFA",   # small u, acute accent
+    "Ucirc"     =>    "\xDB",   # capital U, circumflex accent
+    "ucirc"     =>    "\xFB",   # small u, circumflex accent
+    "Ugrave"    =>    "\xD9",   # capital U, grave accent
+    "ugrave"    =>    "\xF9",   # small u, grave accent
+    "Uuml"      =>    "\xDC",   # capital U, dieresis or umlaut mark
+    "uuml"      =>    "\xFC",   # small u, dieresis or umlaut mark
+    "Yacute"    =>    "\xDD",   # capital Y, acute accent
+    "yacute"    =>    "\xFD",   # small y, acute accent
+    "yuml"      =>    "\xFF",   # small y, dieresis or umlaut mark
+
+    "lchevron"  =>    "\xAB",   # left chevron (double less than)
+    "rchevron"  =>    "\xBB",   # right chevron (double greater than)
+);
+
+
+############################################################################
+# Initialization
+############################################################################
+
+# Initialize the object.  Must be sure to call our parent initializer.
+sub initialize {
+    my $self = shift;
+
+    $$self{alt}      = 0  unless defined $$self{alt};
+    $$self{indent}   = 4  unless defined $$self{indent};
+    $$self{loose}    = 0  unless defined $$self{loose};
+    $$self{sentence} = 0  unless defined $$self{sentence};
+    $$self{width}    = 76 unless defined $$self{width};
+
+    $$self{INDENTS}  = [];              # Stack of indentations.
+    $$self{MARGIN}   = $$self{indent};  # Current left margin in spaces.
+
+    return $self->SUPER::initialize;
+}
+
+
+############################################################################
+# Core overrides
+############################################################################
+
+# Called for each command paragraph.  Gets the command, the associated
+# paragraph, the line number, and a Pod::Paragraph object.  Just dispatches
+# the command to a method named the same as the command.  =cut is handled
+# internally by Pod::Parser.
+sub command {
+    my $self = shift;
+    my $command = shift;
+    return if $command eq 'pod';
+    return if ($$self{EXCLUDE} && $command ne 'end');
+    if (defined $$self{ITEM}) {
+      $self->item ("\n");
+      local $_ = "\n";
+      $self->output($_) if($command eq 'back');
+    }
+    $command = 'cmd_' . $command;
+    return $self->$command (@_);
+}
+
+# Called for a verbatim paragraph.  Gets the paragraph, the line number, and
+# a Pod::Paragraph object.  Just output it verbatim, but with tabs converted
+# to spaces.
+sub verbatim {
+    my $self = shift;
+    return if $$self{EXCLUDE};
+    $self->item if defined $$self{ITEM};
+    local $_ = shift;
+    return if /^\s*$/;
+    s/^(\s*\S+)/(' ' x $$self{MARGIN}) . $1/gme;
+    return $self->output($_);
+}
+
+# Called for a regular text block.  Gets the paragraph, the line number, and
+# a Pod::Paragraph object.  Perform interpolation and output the results.
+sub textblock {
+    my $self = shift;
+    return if $$self{EXCLUDE};
+    if($$self{VERBATIM}) {
+      $self->output($_[0]);
+      return;
+    }
+    local $_ = shift;
+    my $line = shift;
+
+    # Perform a little magic to collapse multiple L<> references.  This is
+    # here mostly for backwards-compatibility.  We'll just rewrite the whole
+    # thing into actual text at this part, bypassing the whole internal
+    # sequence parsing thing.
+    s{
+        (
+          L<                    # A link of the form L</something>.
+              /
+              (
+                  [:\w]+        # The item has to be a simple word...
+                  (\(\))?       # ...or simple function.
+              )
+          >
+          (
+              ,?\s+(and\s+)?    # Allow lots of them, conjuncted.
+              L<  
+                  /
+                  (
+                      [:\w]+
+                      (\(\))?
+                  )
+              >
+          )+
+        )
+    } {
+        local $_ = $1;
+        s%L</([^>]+)>%$1%g;
+        my @items = split /(?:,?\s+(?:and\s+)?)/;
+        my $string = "the ";
+        my $i;
+        for ($i = 0; $i < @items; $i++) {
+            $string .= $items[$i];
+            $string .= ", " if @items > 2 && $i != $#items;
+            $string .= " and " if ($i == $#items - 1);
+        }
+        $string .= " entries elsewhere in this document";
+        $string;
+    }gex;
+
+    # Now actually interpolate and output the paragraph.
+    $_ = $self->interpolate ($_, $line);
+    s/\s*$/\n/s;
+    if (defined $$self{ITEM}) {
+        $self->item ($_ . "\n");
+    } else {
+        $self->output ($self->reformat ($_ . "\n"));
+    }
+}
+
+# Called for an interior sequence.  Gets the command, argument, and a
+# Pod::InteriorSequence object and is expected to return the resulting text.
+# Calls code, bold, italic, file, and link to handle those types of
+# sequences, and handles S<>, E<>, X<>, and Z<> directly.
+sub interior_sequence {
+    my $self = shift;
+    my $command = shift;
+    local $_ = shift;
+    return '' if ($command eq 'X' || $command eq 'Z');
+
+    # Expand escapes into the actual character now, carping if invalid.
+    if ($command eq 'E') {
+        return $ESCAPES{$_} if defined $ESCAPES{$_};
+        carp "Unknown escape: E<$_>";
+        return "E<$_>";
+    }
+
+    # For all the other sequences, empty content produces no output.
+    return if $_ eq '';
+
+    # For S<>, compress all internal whitespace and then map spaces to \01.
+    # When we output the text, we'll map this back.
+    if ($command eq 'S') {
+        s/\s{2,}/ /g;
+        tr/ /\01/;
+        return $_;
+    }
+
+    # Anything else needs to get dispatched to another method.
+    if    ($command eq 'B') { return $self->seq_b ($_) }
+    elsif ($command eq 'C') { return $self->seq_c ($_) }
+    elsif ($command eq 'F') { return $self->seq_f ($_) }
+    elsif ($command eq 'I') { return $self->seq_i ($_) }
+    elsif ($command eq 'L') { return $self->seq_l ($_) }
+    else { carp "Unknown sequence $command<$_>" }
+}
+
+# Called for each paragraph that's actually part of the POD.  We take
+# advantage of this opportunity to untabify the input.
+sub preprocess_paragraph {
+    my $self = shift;
+    local $_ = shift;
+    1 while s/^(.*?)(\t+)/$1 . ' ' x (length ($2) * 8 - length ($1) % 8)/me;
+    return $_;
+}
+
+
+############################################################################
+# Command paragraphs
+############################################################################
+
+# All command paragraphs take the paragraph and the line number.
+
+# First level heading.
+sub cmd_head1 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n==== $_ ====\n\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output ($_ . "\n");
+    }
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n==   $_   ==\n\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output (' ' x ($$self{indent} / 2) . $_ . "\n");
+    }
+}
+
+# third level heading - not strictly perlpodspec compliant
+sub cmd_head3 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n= $_ =\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output (' ' x ($$self{indent}) . $_ . "\n");
+    }
+}
+
+# fourth level heading - not strictly perlpodspec compliant
+# just like head3
+*cmd_head4 = \&cmd_head3;
+
+# Start a list.
+sub cmd_over {
+    my $self = shift;
+    local $_ = shift;
+    unless (/^[-+]?\d+\s+$/) { $_ = $$self{indent} }
+    push (@{ $$self{INDENTS} }, $$self{MARGIN});
+    $$self{MARGIN} += ($_ + 0);
+}
+
+# End a list.
+sub cmd_back {
+    my $self = shift;
+    $$self{MARGIN} = pop @{ $$self{INDENTS} };
+    unless (defined $$self{MARGIN}) {
+        carp 'Unmatched =back';
+        $$self{MARGIN} = $$self{indent};
+    }
+}
+
+# An individual list item.
+sub cmd_item {
+    my $self = shift;
+    if (defined $$self{ITEM}) { $self->item }
+    local $_ = shift;
+    s/\s+$//s;
+    $$self{ITEM} = $self->interpolate ($_);
+}
+
+# Begin a block for a particular translator.  Setting VERBATIM triggers
+# special handling in textblock().
+sub cmd_begin {
+    my $self = shift;
+    local $_ = shift;
+    my ($kind) = /^(\S+)/ or return;
+    if ($kind eq 'text') {
+        $$self{VERBATIM} = 1;
+    } else {
+        $$self{EXCLUDE} = 1;
+    }
+}
+
+# End a block for a particular translator.  We assume that all =begin/=end
+# pairs are properly closed.
+sub cmd_end {
+    my $self = shift;
+    $$self{EXCLUDE} = 0;
+    $$self{VERBATIM} = 0;
+}
+
+# One paragraph for a particular translator.  Ignore it unless it's intended
+# for text, in which case we treat it as a verbatim text block.
+sub cmd_for {
+    my $self = shift;
+    local $_ = shift;
+    my $line = shift;
+    return unless s/^text\b[ \t]*\r?\n?//;
+    $self->verbatim ($_, $line);
+}
+
+# just a dummy method for the time being
+sub cmd_encoding {
+  return;
+}
+
+############################################################################
+# Interior sequences
+############################################################################
+
+# The simple formatting ones.  These are here mostly so that subclasses can
+# override them and do more complicated things.
+sub seq_b { return $_[0]{alt} ? "``$_[1]''" : $_[1] }
+sub seq_c { return $_[0]{alt} ? "``$_[1]''" : "`$_[1]'" }
+sub seq_f { return $_[0]{alt} ? "\"$_[1]\"" : $_[1] }
+sub seq_i { return '*' . $_[1] . '*' }
+
+# The complicated one.  Handle links.  Since this is plain text, we can't
+# actually make any real links, so this is all to figure out what text we
+# print out.
+sub seq_l {
+    my $self = shift;
+    local $_ = shift;
+
+    # Smash whitespace in case we were split across multiple lines.
+    s/\s+/ /g;
+
+    # If we were given any explicit text, just output it.
+    if (/^([^|]+)\|/) { return $1 }
+
+    # Okay, leading and trailing whitespace isn't important; get rid of it.
+    s/^\s+//;
+    s/\s+$//;
+
+    # Default to using the whole content of the link entry as a section
+    # name.  Note that L<manpage/> forces a manpage interpretation, as does
+    # something looking like L<manpage(section)>.  The latter is an
+    # enhancement over the original Pod::Text.
+    my ($manpage, $section) = ('', $_);
+    if (/^(?:https?|ftp|news):/) {
+        # a URL
+        return $_;
+    } elsif (/^"\s*(.*?)\s*"$/) {
+        $section = '"' . $1 . '"';
+    } elsif (m/^[-:.\w]+(?:\(\S+\))?$/) {
+        ($manpage, $section) = ($_, '');
+    } elsif (m{/}) {
+        ($manpage, $section) = split (/\s*\/\s*/, $_, 2);
+    }
+
+    my $text = '';
+    # Now build the actual output text.
+    if (!length $section) {
+        $text = "the $manpage manpage" if length $manpage;
+    } elsif ($section =~ /^[:\w]+(?:\(\))?/) {
+        $text .= 'the ' . $section . ' entry';
+        $text .= (length $manpage) ? " in the $manpage manpage"
+                                   : ' elsewhere in this document';
+    } else {
+        $section =~ s/^\"\s*//;
+        $section =~ s/\s*\"$//;
+        $text .= 'the section on "' . $section . '"';
+        $text .= " in the $manpage manpage" if length $manpage;
+    }
+    return $text;
+}
+
+
+############################################################################
+# List handling
+############################################################################
+
+# This method is called whenever an =item command is complete (in other
+# words, we've seen its associated paragraph or know for certain that it
+# doesn't have one).  It gets the paragraph associated with the item as an
+# argument.  If that argument is empty, just output the item tag; if it
+# contains a newline, output the item tag followed by the newline.
+# Otherwise, see if there's enough room for us to output the item tag in the
+# margin of the text or if we have to put it on a separate line.
+sub item {
+    my $self = shift;
+    local $_ = shift;
+    my $tag = $$self{ITEM};
+    unless (defined $tag) {
+        carp 'item called without tag';
+        return;
+    }
+    undef $$self{ITEM};
+    my $indent = $$self{INDENTS}[-1];
+    unless (defined $indent) { $indent = $$self{indent} }
+    my $space = ' ' x $indent;
+    $space =~ s/^ /:/ if $$self{alt};
+    if (!$_ || /^\s+$/ || ($$self{MARGIN} - $indent < length ($tag) + 1)) {
+        my $margin = $$self{MARGIN};
+        $$self{MARGIN} = $indent;
+        my $output = $self->reformat ($tag);
+        $output =~ s/[\r\n]*$/\n/;
+        $self->output ($output);
+        $$self{MARGIN} = $margin;
+        $self->output ($self->reformat ($_)) if /\S/;
+    } else {
+        $_ = $self->reformat ($_);
+        s/^ /:/ if ($$self{alt} && $indent > 0);
+        my $tagspace = ' ' x length $tag;
+        s/^($space)$tagspace/$1$tag/ or carp 'Bizarre space in item';
+        $self->output ($_);
+    }
+}
+
+
+############################################################################
+# Output formatting
+############################################################################
+
+# Wrap a line, indenting by the current left margin.  We can't use
+# Text::Wrap because it plays games with tabs.  We can't use formline, even
+# though we'd really like to, because it screws up non-printing characters.
+# So we have to do the wrapping ourselves.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{width} - $$self{MARGIN};
+    while (length > $width) {
+        if (s/^([^\r\n]{0,$width})\s+// || s/^([^\r\n]{$width})//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+# Reformat a paragraph of text for the current margin.  Takes the text to
+# reformat and returns the formatted text.
+sub reformat {
+    my $self = shift;
+    local $_ = shift;
+
+    # If we're trying to preserve two spaces after sentences, do some
+    # munging to support that.  Otherwise, smash all repeated whitespace.
+    if ($$self{sentence}) {
+        s/ +$//mg;
+        s/\.\r?\n/. \n/g;
+        s/[\r\n]+/ /g;
+        s/   +/  /g;
+    } else {
+        s/\s+/ /g;
+    }
+    return $self->wrap($_);
+}
+
+# Output text to the output device.
+sub output { $_[1] =~ tr/\01/ /; print { $_[0]->output_handle } $_[1] }
+
+
+############################################################################
+# Backwards compatibility
+############################################################################
+
+# The old Pod::Text module did everything in a pod2text() function.  This
+# tries to provide the same interface for legacy applications.
+sub pod2text {
+    my @args;
+
+    # This is really ugly; I hate doing option parsing in the middle of a
+    # module.  But the old Pod::Text module supported passing flags to its
+    # entry function, so handle -a and -<number>.
+    while ($_[0] =~ /^-/) {
+        my $flag = shift;
+        if    ($flag eq '-a')       { push (@args, alt => 1)    }
+        elsif ($flag =~ /^-(\d+)$/) { push (@args, width => $1) }
+        else {
+            unshift (@_, $flag);
+            last;
+        }
+    }
+
+    # Now that we know what arguments we're using, create the parser.
+    my $parser = Pod::PlainText->new (@args);
+
+    # If two arguments were given, the second argument is going to be a file
+    # handle.  That means we want to call parse_from_filehandle(), which
+    # means we need to turn the first argument into a file handle.  Magic
+    # open will handle the <&STDIN case automagically.
+    if (defined $_[1]) {
+        my $infh;
+        if ($] < 5.006) {
+          $infh = gensym();
+        }
+        unless (open ($infh, $_[0])) {
+            croak ("Can't open $_[0] for reading: $!\n");
+        }
+        $_[0] = $infh;
+        return $parser->parse_from_filehandle (@_);
+    } else {
+        return $parser->parse_from_file (@_);
+    }
+}
+
+
+############################################################################
+# Module return value and documentation
+############################################################################
+
+1;
+__END__
+
+# Pod::ParseLink -- Parse an L<> formatting code in POD text.
+#
+# Copyright 2001, 2008, 2009, 2014 by Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# This module implements parsing of the text of an L<> formatting code as
+# defined in perlpodspec.  It should be suitable for any POD formatter.  It
+# exports only one function, parselink(), which returns the five-item parse
+# defined in perlpodspec.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::ParseLink;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@EXPORT @ISA $VERSION);
+
+use Exporter;
+@ISA    = qw(Exporter);
+@EXPORT = qw(parselink);
+
+$VERSION = '4.10';
+
+##############################################################################
+# Implementation
+##############################################################################
+
+# Parse the name and section portion of a link into a name and section.
+sub _parse_section {
+    my ($link) = @_;
+    $link =~ s/^\s+//;
+    $link =~ s/\s+$//;
+
+    # If the whole link is enclosed in quotes, interpret it all as a section
+    # even if it contains a slash.
+    return (undef, $1) if ($link =~ /^"\s*(.*?)\s*"$/);
+
+    # Split into page and section on slash, and then clean up quoting in the
+    # section.  If there is no section and the name contains spaces, also
+    # guess that it's an old section link.
+    my ($page, $section) = split (/\s*\/\s*/, $link, 2);
+    $section =~ s/^"\s*(.*?)\s*"$/$1/ if $section;
+    if ($page && $page =~ / / && !defined ($section)) {
+        $section = $page;
+        $page = undef;
+    } else {
+        $page = undef unless $page;
+        $section = undef unless $section;
+    }
+    return ($page, $section);
+}
+
+# Infer link text from the page and section.
+sub _infer_text {
+    my ($page, $section) = @_;
+    my $inferred;
+    if ($page && !$section) {
+        $inferred = $page;
+    } elsif (!$page && $section) {
+        $inferred = '"' . $section . '"';
+    } elsif ($page && $section) {
+        $inferred = '"' . $section . '" in ' . $page;
+    }
+    return $inferred;
+}
+
+# Given the contents of an L<> formatting code, parse it into the link text,
+# the possibly inferred link text, the name or URL, the section, and the type
+# of link (pod, man, or url).
+sub parselink {
+    my ($link) = @_;
+    $link =~ s/\s+/ /g;
+    my $text;
+    if ($link =~ /\|/) {
+        ($text, $link) = split (/\|/, $link, 2);
+    }
+    if ($link =~ /\A\w+:[^:\s]\S*\Z/) {
+        my $inferred;
+        if (defined ($text) && length ($text) > 0) {
+            return ($text, $text, $link, undef, 'url');
+        } else {
+            return ($text, $link, $link, undef, 'url');
+        }
+    } else {
+        my ($name, $section) = _parse_section ($link);
+        my $inferred;
+        if (defined ($text) && length ($text) > 0) {
+            $inferred = $text;
+        } else {
+            $inferred = _infer_text ($name, $section);
+        }
+        my $type = ($name && $name =~ /\(\S*\)/) ? 'man' : 'pod';
+        return ($text, $inferred, $name, $section, $type);
+    }
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+# Ensure we evaluate to true.
+1;
+__END__
+
+# Convert POD data to formatted text.
+#
+# This module converts POD to formatted text.  It replaces the old Pod::Text
+# module that came with versions of Perl prior to 5.6.0 and attempts to match
+# its output except for some specific circumstances where other decisions
+# seemed to produce better output.  It uses Pod::Parser and is designed to be
+# very easy to subclass.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+#
+# Copyright 1999, 2000, 2001, 2002, 2004, 2006, 2008, 2009, 2012, 2013, 2014,
+#     2015, 2016 Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@ISA @EXPORT %ESCAPES $VERSION);
+
+use Carp qw(carp croak);
+use Encode qw(encode);
+use Exporter ();
+use Pod::Simple ();
+
+@ISA = qw(Pod::Simple Exporter);
+
+# We have to export pod2text for backward compatibility.
+@EXPORT = qw(pod2text);
+
+$VERSION = '4.10';
+
+# Ensure that $Pod::Simple::nbsp and $Pod::Simple::shy are available.  Code
+# taken from Pod::Simple 3.32, but was only added in 3.30.
+my ($NBSP, $SHY);
+if ($Pod::Simple::VERSION ge 3.30) {
+    $NBSP = $Pod::Simple::nbsp;
+    $SHY  = $Pod::Simple::shy;
+} else {
+    if ($] ge 5.007_003) {
+        $NBSP = chr utf8::unicode_to_native(0xA0);
+        $SHY  = chr utf8::unicode_to_native(0xAD);
+    } elsif (Pod::Simple::ASCII) {
+        $NBSP = "\xA0";
+        $SHY  = "\xAD";
+    } else {
+        $NBSP = "\x41";
+        $SHY  = "\xCA";
+    }
+}
+
+##############################################################################
+# Initialization
+##############################################################################
+
+# This function handles code blocks.  It's registered as a callback to
+# Pod::Simple and therefore doesn't work as a regular method call, but all it
+# does is call output_code with the line.
+sub handle_code {
+    my ($line, $number, $parser) = @_;
+    $parser->output_code ($line . "\n");
+}
+
+# Initialize the object and set various Pod::Simple options that we need.
+# Here, we also process any additional options passed to the constructor or
+# set up defaults if none were given.  Note that all internal object keys are
+# in all-caps, reserving all lower-case object keys for Pod::Simple and user
+# arguments.
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new;
+
+    # Tell Pod::Simple to handle S<> by automatically inserting &nbsp;.
+    $self->nbsp_for_S (1);
+
+    # Tell Pod::Simple to keep whitespace whenever possible.
+    if ($self->can ('preserve_whitespace')) {
+        $self->preserve_whitespace (1);
+    } else {
+        $self->fullstop_space_harden (1);
+    }
+
+    # The =for and =begin targets that we accept.
+    $self->accept_targets (qw/text TEXT/);
+
+    # Ensure that contiguous blocks of code are merged together.  Otherwise,
+    # some of the guesswork heuristics don't work right.
+    $self->merge_text (1);
+
+    # Pod::Simple doesn't do anything useful with our arguments, but we want
+    # to put them in our object as hash keys and values.  This could cause
+    # problems if we ever clash with Pod::Simple's own internal class
+    # variables.
+    my %opts = @_;
+    my @opts = map { ("opt_$_", $opts{$_}) } keys %opts;
+    %$self = (%$self, @opts);
+
+    # Send errors to stderr if requested.
+    if ($$self{opt_stderr} and not $$self{opt_errors}) {
+        $$self{opt_errors} = 'stderr';
+    }
+    delete $$self{opt_stderr};
+
+    # Validate the errors parameter and act on it.
+    if (not defined $$self{opt_errors}) {
+        $$self{opt_errors} = 'pod';
+    }
+    if ($$self{opt_errors} eq 'stderr' || $$self{opt_errors} eq 'die') {
+        $self->no_errata_section (1);
+        $self->complain_stderr (1);
+        if ($$self{opt_errors} eq 'die') {
+            $$self{complain_die} = 1;
+        }
+    } elsif ($$self{opt_errors} eq 'pod') {
+        $self->no_errata_section (0);
+        $self->complain_stderr (0);
+    } elsif ($$self{opt_errors} eq 'none') {
+        $self->no_whining (1);
+    } else {
+        croak (qq(Invalid errors setting: "$$self{errors}"));
+    }
+    delete $$self{errors};
+
+    # Initialize various things from our parameters.
+    $$self{opt_alt}      = 0  unless defined $$self{opt_alt};
+    $$self{opt_indent}   = 4  unless defined $$self{opt_indent};
+    $$self{opt_margin}   = 0  unless defined $$self{opt_margin};
+    $$self{opt_loose}    = 0  unless defined $$self{opt_loose};
+    $$self{opt_sentence} = 0  unless defined $$self{opt_sentence};
+    $$self{opt_width}    = 76 unless defined $$self{opt_width};
+
+    # Figure out what quotes we'll be using for C<> text.
+    $$self{opt_quotes} ||= '"';
+    if ($$self{opt_quotes} eq 'none') {
+        $$self{LQUOTE} = $$self{RQUOTE} = '';
+    } elsif (length ($$self{opt_quotes}) == 1) {
+        $$self{LQUOTE} = $$self{RQUOTE} = $$self{opt_quotes};
+    } elsif (length ($$self{opt_quotes}) % 2 == 0) {
+        my $length = length ($$self{opt_quotes}) / 2;
+        $$self{LQUOTE} = substr ($$self{opt_quotes}, 0, $length);
+        $$self{RQUOTE} = substr ($$self{opt_quotes}, $length);
+    } else {
+        croak qq(Invalid quote specification "$$self{opt_quotes}");
+    }
+
+    # If requested, do something with the non-POD text.
+    $self->code_handler (\&handle_code) if $$self{opt_code};
+
+    # Return the created object.
+    return $self;
+}
+
+##############################################################################
+# Core parsing
+##############################################################################
+
+# This is the glue that connects the code below with Pod::Simple itself.  The
+# goal is to convert the event stream coming from the POD parser into method
+# calls to handlers once the complete content of a tag has been seen.  Each
+# paragraph or POD command will have textual content associated with it, and
+# as soon as all of a paragraph or POD command has been seen, that content
+# will be passed in to the corresponding method for handling that type of
+# object.  The exceptions are handlers for lists, which have opening tag
+# handlers and closing tag handlers that will be called right away.
+#
+# The internal hash key PENDING is used to store the contents of a tag until
+# all of it has been seen.  It holds a stack of open tags, each one
+# represented by a tuple of the attributes hash for the tag and the contents
+# of the tag.
+
+# Add a block of text to the contents of the current node, formatting it
+# according to the current formatting instructions as we do.
+sub _handle_text {
+    my ($self, $text) = @_;
+    my $tag = $$self{PENDING}[-1];
+    $$tag[1] .= $text;
+}
+
+# Given an element name, get the corresponding method name.
+sub method_for_element {
+    my ($self, $element) = @_;
+    $element =~ tr/-/_/;
+    $element =~ tr/A-Z/a-z/;
+    $element =~ tr/_a-z0-9//cd;
+    return $element;
+}
+
+# Handle the start of a new element.  If cmd_element is defined, assume that
+# we need to collect the entire tree for this element before passing it to the
+# element method, and create a new tree into which we'll collect blocks of
+# text and nested elements.  Otherwise, if start_element is defined, call it.
+sub _handle_element_start {
+    my ($self, $element, $attrs) = @_;
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, we need to accumulate the contents of the
+    # tag before calling it.
+    if ($self->can ("cmd_$method")) {
+        push (@{ $$self{PENDING} }, [ $attrs, '' ]);
+    } elsif ($self->can ("start_$method")) {
+        my $method = 'start_' . $method;
+        $self->$method ($attrs, '');
+    }
+}
+
+# Handle the end of an element.  If we had a cmd_ method for this element,
+# this is where we pass along the text that we've accumulated.  Otherwise, if
+# we have an end_ method for the element, call that.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, pull off the pending text and pass it to
+    # the handler along with the saved attribute hash.
+    if ($self->can ("cmd_$method")) {
+        my $tag = pop @{ $$self{PENDING} };
+        my $method = 'cmd_' . $method;
+        my $text = $self->$method (@$tag);
+        if (defined $text) {
+            if (@{ $$self{PENDING} } > 1) {
+                $$self{PENDING}[-1][1] .= $text;
+            } else {
+                $self->output ($text);
+            }
+        }
+    } elsif ($self->can ("end_$method")) {
+        my $method = 'end_' . $method;
+        $self->$method ();
+    }
+}
+
+##############################################################################
+# Output formatting
+##############################################################################
+
+# Wrap a line, indenting by the current left margin.  We can't use Text::Wrap
+# because it plays games with tabs.  We can't use formline, even though we'd
+# really like to, because it screws up non-printing characters.  So we have to
+# do the wrapping ourselves.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+    while (length > $width) {
+        if (s/^([^\n]{0,$width})\s+// || s/^([^\n]{$width})//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+# Reformat a paragraph of text for the current margin.  Takes the text to
+# reformat and returns the formatted text.
+sub reformat {
+    my $self = shift;
+    local $_ = shift;
+
+    # If we're trying to preserve two spaces after sentences, do some munging
+    # to support that.  Otherwise, smash all repeated whitespace.
+    if ($$self{opt_sentence}) {
+        s/ +$//mg;
+        s/\.\n/. \n/g;
+        s/\n/ /g;
+        s/   +/  /g;
+    } else {
+        s/\s+/ /g;
+    }
+    return $self->wrap ($_);
+}
+
+# Output text to the output device.  Replace non-breaking spaces with spaces
+# and soft hyphens with nothing, and then try to fix the output encoding if
+# necessary to match the input encoding unless UTF-8 output is forced.  This
+# preserves the traditional pass-through behavior of Pod::Text.
+sub output {
+    my ($self, @text) = @_;
+    my $text = join ('', @text);
+    if ($NBSP) {
+        $text =~ s/$NBSP/ /g;
+    }
+    if ($SHY) {
+        $text =~ s/$SHY//g;
+    }
+    unless ($$self{opt_utf8}) {
+        my $encoding = $$self{encoding} || '';
+        if ($encoding && $encoding ne $$self{ENCODING}) {
+            $$self{ENCODING} = $encoding;
+            eval { binmode ($$self{output_fh}, ":encoding($encoding)") };
+        }
+    }
+    if ($$self{ENCODE}) {
+        print { $$self{output_fh} } encode ('UTF-8', $text);
+    } else {
+        print { $$self{output_fh} } $text;
+    }
+}
+
+# Output a block of code (something that isn't part of the POD text).  Called
+# by preprocess_paragraph only if we were given the code option.  Exists here
+# only so that it can be overridden by subclasses.
+sub output_code { $_[0]->output ($_[1]) }
+
+##############################################################################
+# Document initialization
+##############################################################################
+
+# Set up various things that have to be initialized on a per-document basis.
+sub start_document {
+    my ($self, $attrs) = @_;
+    if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) {
+        $$self{CONTENTLESS} = 1;
+    } else {
+        delete $$self{CONTENTLESS};
+    }
+    my $margin = $$self{opt_indent} + $$self{opt_margin};
+
+    # Initialize a few per-document variables.
+    $$self{INDENTS} = [];       # Stack of indentations.
+    $$self{MARGIN}  = $margin;  # Default left margin.
+    $$self{PENDING} = [[]];     # Pending output.
+
+    # We have to redo encoding handling for each document.
+    $$self{ENCODING} = '';
+
+    # When UTF-8 output is set, check whether our output file handle already
+    # has a PerlIO encoding layer set.  If it does not, we'll need to encode
+    # our output before printing it (handled in the output() sub).  Wrap the
+    # check in an eval to handle versions of Perl without PerlIO.
+    $$self{ENCODE} = 0;
+    if ($$self{opt_utf8}) {
+        $$self{ENCODE} = 1;
+        eval {
+            my @options = (output => 1, details => 1);
+            my $flag = (PerlIO::get_layers ($$self{output_fh}, @options))[-1];
+            if ($flag & PerlIO::F_UTF8 ()) {
+                $$self{ENCODE} = 0;
+                $$self{ENCODING} = 'UTF-8';
+            }
+        };
+    }
+
+    return '';
+}
+
+# Handle the end of the document.  The only thing we do is handle dying on POD
+# errors, since Pod::Parser currently doesn't.
+sub end_document {
+    my ($self) = @_;
+    if ($$self{complain_die} && $self->errors_seen) {
+        croak ("POD document had syntax errors");
+    }
+}
+
+##############################################################################
+# Text blocks
+##############################################################################
+
+# Intended for subclasses to override, this method returns text with any
+# non-printing formatting codes stripped out so that length() correctly
+# returns the length of the text.  For basic Pod::Text, it does nothing.
+sub strip_format {
+    my ($self, $string) = @_;
+    return $string;
+}
+
+# This method is called whenever an =item command is complete (in other words,
+# we've seen its associated paragraph or know for certain that it doesn't have
+# one).  It gets the paragraph associated with the item as an argument.  If
+# that argument is empty, just output the item tag; if it contains a newline,
+# output the item tag followed by the newline.  Otherwise, see if there's
+# enough room for us to output the item tag in the margin of the text or if we
+# have to put it on a separate line.
+sub item {
+    my ($self, $text) = @_;
+    my $tag = $$self{ITEM};
+    unless (defined $tag) {
+        carp "Item called without tag";
+        return;
+    }
+    undef $$self{ITEM};
+
+    # Calculate the indentation and margin.  $fits is set to true if the tag
+    # will fit into the margin of the paragraph given our indentation level.
+    my $indent = $$self{INDENTS}[-1];
+    $indent = $$self{opt_indent} unless defined $indent;
+    my $margin = ' ' x $$self{opt_margin};
+    my $tag_length = length ($self->strip_format ($tag));
+    my $fits = ($$self{MARGIN} - $indent >= $tag_length + 1);
+
+    # If the tag doesn't fit, or if we have no associated text, print out the
+    # tag separately.  Otherwise, put the tag in the margin of the paragraph.
+    if (!$text || $text =~ /^\s+$/ || !$fits) {
+        my $realindent = $$self{MARGIN};
+        $$self{MARGIN} = $indent;
+        my $output = $self->reformat ($tag);
+        $output =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0);
+        $output =~ s/\n*$/\n/;
+
+        # If the text is just whitespace, we have an empty item paragraph;
+        # this can result from =over/=item/=back without any intermixed
+        # paragraphs.  Insert some whitespace to keep the =item from merging
+        # into the next paragraph.
+        $output .= "\n" if $text && $text =~ /^\s*$/;
+
+        $self->output ($output);
+        $$self{MARGIN} = $realindent;
+        $self->output ($self->reformat ($text)) if ($text && $text =~ /\S/);
+    } else {
+        my $space = ' ' x $indent;
+        $space =~ s/^$margin /$margin:/ if $$self{opt_alt};
+        $text = $self->reformat ($text);
+        $text =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0);
+        my $tagspace = ' ' x $tag_length;
+        $text =~ s/^($space)$tagspace/$1$tag/ or warn "Bizarre space in item";
+        $self->output ($text);
+    }
+}
+
+# Handle a basic block of text.  The only tricky thing here is that if there
+# is a pending item tag, we need to format this as an item paragraph.
+sub cmd_para {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$/\n/;
+    if (defined $$self{ITEM}) {
+        $self->item ($text . "\n");
+    } else {
+        $self->output ($self->reformat ($text . "\n"));
+    }
+    return '';
+}
+
+# Handle a verbatim paragraph.  Just print it out, but indent it according to
+# our margin.
+sub cmd_verbatim {
+    my ($self, $attrs, $text) = @_;
+    $self->item if defined $$self{ITEM};
+    return if $text =~ /^\s*$/;
+    $text =~ s/^(\n*)([ \t]*\S+)/$1 . (' ' x $$self{MARGIN}) . $2/gme;
+    $text =~ s/\s*$/\n\n/;
+    $self->output ($text);
+    return '';
+}
+
+# Handle literal text (produced by =for and similar constructs).  Just output
+# it with the minimum of changes.
+sub cmd_data {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/^\n+//;
+    $text =~ s/\n{0,2}$/\n/;
+    $self->output ($text);
+    return '';
+}
+
+##############################################################################
+# Headings
+##############################################################################
+
+# The common code for handling all headers.  Takes the header text, the
+# indentation, and the surrounding marker for the alt formatting method.
+sub heading {
+    my ($self, $text, $indent, $marker) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $text =~ s/\s+$//;
+    if ($$self{opt_alt}) {
+        my $closemark = reverse (split (//, $marker));
+        my $margin = ' ' x $$self{opt_margin};
+        $self->output ("\n" . "$margin$marker $text $closemark" . "\n\n");
+    } else {
+        $text .= "\n" if $$self{opt_loose};
+        my $margin = ' ' x ($$self{opt_margin} + $indent);
+        $self->output ($margin . $text . "\n");
+    }
+    return '';
+}
+
+# First level heading.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, 0, '====');
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} / 2, '==  ');
+}
+
+# Third level heading.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} * 2 / 3 + 0.5, '=   ');
+}
+
+# Fourth level heading.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} * 3 / 4 + 0.5, '-   ');
+}
+
+##############################################################################
+# List handling
+##############################################################################
+
+# Handle the beginning of an =over block.  Takes the type of the block as the
+# first argument, and then the attr hash.  This is called by the handlers for
+# the four different types of lists (bullet, number, text, and block).
+sub over_common_start {
+    my ($self, $attrs) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+
+    # Find the indentation level.
+    my $indent = $$attrs{indent};
+    unless (defined ($indent) && $indent =~ /^\s*[-+]?\d{1,4}\s*$/) {
+        $indent = $$self{opt_indent};
+    }
+
+    # Add this to our stack of indents and increase our current margin.
+    push (@{ $$self{INDENTS} }, $$self{MARGIN});
+    $$self{MARGIN} += ($indent + 0);
+    return '';
+}
+
+# End an =over block.  Takes no options other than the class pointer.  Output
+# any pending items and then pop one level of indentation.
+sub over_common_end {
+    my ($self) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $$self{MARGIN} = pop @{ $$self{INDENTS} };
+    return '';
+}
+
+# Dispatch the start and end calls as appropriate.
+sub start_over_bullet { $_[0]->over_common_start ($_[1]) }
+sub start_over_number { $_[0]->over_common_start ($_[1]) }
+sub start_over_text   { $_[0]->over_common_start ($_[1]) }
+sub start_over_block  { $_[0]->over_common_start ($_[1]) }
+sub end_over_bullet { $_[0]->over_common_end }
+sub end_over_number { $_[0]->over_common_end }
+sub end_over_text   { $_[0]->over_common_end }
+sub end_over_block  { $_[0]->over_common_end }
+
+# The common handler for all item commands.  Takes the type of the item, the
+# attributes, and then the text of the item.
+sub item_common {
+    my ($self, $type, $attrs, $text) = @_;
+    $self->item if defined $$self{ITEM};
+
+    # Clean up the text.  We want to end up with two variables, one ($text)
+    # which contains any body text after taking out the item portion, and
+    # another ($item) which contains the actual item text.  Note the use of
+    # the internal Pod::Simple attribute here; that's a potential land mine.
+    $text =~ s/\s+$//;
+    my ($item, $index);
+    if ($type eq 'bullet') {
+        $item = '*';
+    } elsif ($type eq 'number') {
+        $item = $$attrs{'~orig_content'};
+    } else {
+        $item = $text;
+        $item =~ s/\s*\n\s*/ /g;
+        $text = '';
+    }
+    $$self{ITEM} = $item;
+
+    # If body text for this item was included, go ahead and output that now.
+    if ($text) {
+        $text =~ s/\s*$/\n/;
+        $self->item ($text);
+    }
+    return '';
+}
+
+# Dispatch the item commands to the appropriate place.
+sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) }
+sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) }
+sub cmd_item_text   { my $self = shift; $self->item_common ('text',   @_) }
+sub cmd_item_block  { my $self = shift; $self->item_common ('block',  @_) }
+
+##############################################################################
+# Formatting codes
+##############################################################################
+
+# The simple ones.
+sub cmd_b { return $_[0]{alt} ? "``$_[2]''" : $_[2] }
+sub cmd_f { return $_[0]{alt} ? "\"$_[2]\"" : $_[2] }
+sub cmd_i { return '*' . $_[2] . '*' }
+sub cmd_x { return '' }
+
+# Apply a whole bunch of messy heuristics to not quote things that don't
+# benefit from being quoted.  These originally come from Barrie Slaymaker and
+# largely duplicate code in Pod::Man.
+sub cmd_c {
+    my ($self, $attrs, $text) = @_;
+
+    # A regex that matches the portion of a variable reference that's the
+    # array or hash index, separated out just because we want to use it in
+    # several places in the following regex.
+    my $index = '(?: \[.*\] | \{.*\} )?';
+
+    # Check for things that we don't want to quote, and if we find any of
+    # them, return the string with just a font change and no quoting.
+    $text =~ m{
+      ^\s*
+      (?:
+         ( [\'\`\"] ) .* \1                             # already quoted
+       | \` .* \'                                       # `quoted'
+       | \$+ [\#^]? \S $index                           # special ($^Foo, $")
+       | [\$\@%&*]+ \#? [:\'\w]+ $index                 # plain var or func
+       | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
+       | [+-]? ( \d[\d.]* | \.\d+ ) (?: [eE][+-]?\d+ )? # a number
+       | 0x [a-fA-F\d]+                                 # a hex constant
+      )
+      \s*\z
+     }xo && return $text;
+
+    # If we didn't return, go ahead and quote the text.
+    return $$self{opt_alt}
+        ? "``$text''"
+        : "$$self{LQUOTE}$text$$self{RQUOTE}";
+}
+
+# Links reduce to the text that we're given, wrapped in angle brackets if it's
+# a URL.
+sub cmd_l {
+    my ($self, $attrs, $text) = @_;
+    if ($$attrs{type} eq 'url') {
+        if (not defined($$attrs{to}) or $$attrs{to} eq $text) {
+            return "<$text>";
+        } elsif ($$self{opt_nourls}) {
+            return $text;
+        } else {
+            return "$text <$$attrs{to}>";
+        }
+    } else {
+        return $text;
+    }
+}
+
+##############################################################################
+# Backwards compatibility
+##############################################################################
+
+# The old Pod::Text module did everything in a pod2text() function.  This
+# tries to provide the same interface for legacy applications.
+sub pod2text {
+    my @args;
+
+    # This is really ugly; I hate doing option parsing in the middle of a
+    # module.  But the old Pod::Text module supported passing flags to its
+    # entry function, so handle -a and -<number>.
+    while ($_[0] =~ /^-/) {
+        my $flag = shift;
+        if    ($flag eq '-a')       { push (@args, alt => 1)    }
+        elsif ($flag =~ /^-(\d+)$/) { push (@args, width => $1) }
+        else {
+            unshift (@_, $flag);
+            last;
+        }
+    }
+
+    # Now that we know what arguments we're using, create the parser.
+    my $parser = Pod::Text->new (@args);
+
+    # If two arguments were given, the second argument is going to be a file
+    # handle.  That means we want to call parse_from_filehandle(), which means
+    # we need to turn the first argument into a file handle.  Magic open will
+    # handle the <&STDIN case automagically.
+    if (defined $_[1]) {
+        my @fhs = @_;
+        local *IN;
+        unless (open (IN, $fhs[0])) {
+            croak ("Can't open $fhs[0] for reading: $!\n");
+            return;
+        }
+        $fhs[0] = \*IN;
+        $parser->output_fh ($fhs[1]);
+        my $retval = $parser->parse_file ($fhs[0]);
+        my $fh = $parser->output_fh ();
+        close $fh;
+        return $retval;
+    } else {
+        $parser->output_fh (\*STDOUT);
+        return $parser->parse_file (@_);
+    }
+}
+
+# Reset the underlying Pod::Simple object between calls to parse_from_file so
+# that the same object can be reused to convert multiple pages.
+sub parse_from_file {
+    my $self = shift;
+    $self->reinit;
+
+    # Fake the old cutting option to Pod::Parser.  This fiddles with internal
+    # Pod::Simple state and is quite ugly; we need a better approach.
+    if (ref ($_[0]) eq 'HASH') {
+        my $opts = shift @_;
+        if (defined ($$opts{-cutting}) && !$$opts{-cutting}) {
+            $$self{in_pod} = 1;
+            $$self{last_was_blank} = 1;
+        }
+    }
+
+    # Do the work.
+    my $retval = $self->Pod::Simple::parse_from_file (@_);
+
+    # Flush output, since Pod::Simple doesn't do this.  Ideally we should also
+    # close the file descriptor if we had to open one, but we can't easily
+    # figure this out.
+    my $fh = $self->output_fh ();
+    my $oldfh = select $fh;
+    my $oldflush = $|;
+    $| = 1;
+    print $fh '';
+    $| = $oldflush;
+    select $oldfh;
+    return $retval;
+}
+
+# Pod::Simple failed to provide this backward compatibility function, so
+# implement it ourselves.  File handles are one of the inputs that
+# parse_from_file supports.
+sub parse_from_filehandle {
+    my $self = shift;
+    $self->parse_from_file (@_);
+}
+
+# Pod::Simple's parse_file doesn't set output_fh.  Wrap the call and do so
+# ourself unless it was already set by the caller, since our documentation has
+# always said that this should work.
+sub parse_file {
+    my ($self, $in) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_file ($in);
+}
+
+# Do the same for parse_lines, just to be polite.  Pod::Simple's man page
+# implies that the caller is responsible for setting this, but I don't see any
+# reason not to set a default.
+sub parse_lines {
+    my ($self, @lines) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_lines (@lines);
+}
+
+# Likewise for parse_string_document.
+sub parse_string_document {
+    my ($self, $doc) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_string_document ($doc);
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+package Pod::Escapes;
+use strict;
+use warnings;
+use 5.006;
+
+use vars qw(
+  %Code2USASCII
+  %Name2character
+  %Name2character_number
+  %Latin1Code_to_fallback
+  %Latin1Char_to_fallback
+  $FAR_CHAR
+  $FAR_CHAR_NUMBER
+  $NOT_ASCII
+  @ISA $VERSION @EXPORT_OK %EXPORT_TAGS
+);
+
+require Exporter;
+@ISA = ('Exporter');
+$VERSION = '1.07';
+@EXPORT_OK = qw(
+  %Code2USASCII
+  %Name2character
+  %Name2character_number
+  %Latin1Code_to_fallback
+  %Latin1Char_to_fallback
+  e2char
+  e2charnum
+);
+%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
+
+#==========================================================================
+
+$FAR_CHAR = "?" unless defined $FAR_CHAR;
+$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;
+
+$NOT_ASCII = 'A' ne chr(65) unless defined $NOT_ASCII;
+
+#--------------------------------------------------------------------------
+sub e2char {
+  my $in = $_[0];
+  return undef unless defined $in and length $in;
+  
+  # Convert to decimal:
+  if($in =~ m/^(0[0-7]*)$/s ) {
+    $in = oct $in;
+  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
+    $in = hex $1;
+  } # else it's decimal, or named
+
+  if($in =~ m/^\d+$/s) {
+    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
+      return $FAR_CHAR;
+    } elsif ($] >= 5.007003) {
+      return chr(utf8::unicode_to_native($in));
+    } elsif ($NOT_ASCII) {
+      return $Code2USASCII{$in} # so "65" => "A" everywhere
+             || $Latin1Code_to_fallback{$in} # Fallback.
+             || $FAR_CHAR; # Fall further back
+    } else {
+      return chr($in);
+    }
+  } else {
+    return $Name2character{$in}; # returns undef if unknown
+  }
+}
+
+#--------------------------------------------------------------------------
+sub e2charnum {
+  my $in = $_[0];
+  return undef unless defined $in and length $in;
+  
+  # Convert to decimal:
+  if($in =~ m/^(0[0-7]*)$/s ) {
+    $in = oct $in;
+  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
+    $in = hex $1;
+  } # else it's decimal, or named
+
+  if($in =~ m/^[0-9]+$/s) {
+    return 0 + $in;
+  } else {
+    return $Name2character_number{$in}; # returns undef if unknown
+  }
+}
+
+#--------------------------------------------------------------------------
+
+%Code2USASCII = (
+# mostly generated by
+#  perl -e "printf qq{  \x25 3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)"
+   32, ' ',
+   33, '!',
+   34, '"',
+   35, '#',
+   36, '$',
+   37, '%',
+   38, '&',
+   39, "'", #!
+   40, '(',
+   41, ')',
+   42, '*',
+   43, '+',
+   44, ',',
+   45, '-',
+   46, '.',
+   47, '/',
+   48, '0',
+   49, '1',
+   50, '2',
+   51, '3',
+   52, '4',
+   53, '5',
+   54, '6',
+   55, '7',
+   56, '8',
+   57, '9',
+   58, ':',
+   59, ';',
+   60, '<',
+   61, '=',
+   62, '>',
+   63, '?',
+   64, '@',
+   65, 'A',
+   66, 'B',
+   67, 'C',
+   68, 'D',
+   69, 'E',
+   70, 'F',
+   71, 'G',
+   72, 'H',
+   73, 'I',
+   74, 'J',
+   75, 'K',
+   76, 'L',
+   77, 'M',
+   78, 'N',
+   79, 'O',
+   80, 'P',
+   81, 'Q',
+   82, 'R',
+   83, 'S',
+   84, 'T',
+   85, 'U',
+   86, 'V',
+   87, 'W',
+   88, 'X',
+   89, 'Y',
+   90, 'Z',
+   91, '[',
+   92, "\\", #!
+   93, ']',
+   94, '^',
+   95, '_',
+   96, '`',
+   97, 'a',
+   98, 'b',
+   99, 'c',
+  100, 'd',
+  101, 'e',
+  102, 'f',
+  103, 'g',
+  104, 'h',
+  105, 'i',
+  106, 'j',
+  107, 'k',
+  108, 'l',
+  109, 'm',
+  110, 'n',
+  111, 'o',
+  112, 'p',
+  113, 'q',
+  114, 'r',
+  115, 's',
+  116, 't',
+  117, 'u',
+  118, 'v',
+  119, 'w',
+  120, 'x',
+  121, 'y',
+  122, 'z',
+  123, '{',
+  124, '|',
+  125, '}',
+  126, '~',
+);
+
+#--------------------------------------------------------------------------
+
+%Latin1Code_to_fallback = ();
+@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
+# Copied from Text/Unidecode/x00.pm:
+
+' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-},
+'deg', qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
+'A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
+'D', 'N', 'O', 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss',
+'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
+'d', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u', 'y', 'th', 'y',
+
+);
+
+{
+  # Now stuff %Latin1Char_to_fallback:
+  %Latin1Char_to_fallback = ();
+  my($k,$v);
+  while( ($k,$v) = each %Latin1Code_to_fallback) {
+    $Latin1Char_to_fallback{chr $k} = $v;
+    #print chr($k), ' => ', $v, "\n";
+  }
+}
+
+#--------------------------------------------------------------------------
+
+%Name2character_number = (
+ # General XML/XHTML:
+ 'lt'   => 60,
+ 'gt'   => 62,
+ 'quot' => 34,
+ 'amp'  => 38,
+ 'apos' => 39,
+
+ # POD-specific:
+ 'sol'    => 47,
+ 'verbar' => 124,
+
+ 'lchevron' => 171, # legacy for laquo
+ 'rchevron' => 187, # legacy for raquo
+
+ # Remember, grave looks like \ (as in virtu\)
+ #           acute looks like / (as in re/sume/)
+ #           circumflex looks like ^ (as in papier ma^che/)
+ #           umlaut/dieresis looks like " (as in nai"ve, Chloe")
+
+ # From the XHTML 1 .ent files:
+ 'nbsp'     , 160,
+ 'iexcl'    , 161,
+ 'cent'     , 162,
+ 'pound'    , 163,
+ 'curren'   , 164,
+ 'yen'      , 165,
+ 'brvbar'   , 166,
+ 'sect'     , 167,
+ 'uml'      , 168,
+ 'copy'     , 169,
+ 'ordf'     , 170,
+ 'laquo'    , 171,
+ 'not'      , 172,
+ 'shy'      , 173,
+ 'reg'      , 174,
+ 'macr'     , 175,
+ 'deg'      , 176,
+ 'plusmn'   , 177,
+ 'sup2'     , 178,
+ 'sup3'     , 179,
+ 'acute'    , 180,
+ 'micro'    , 181,
+ 'para'     , 182,
+ 'middot'   , 183,
+ 'cedil'    , 184,
+ 'sup1'     , 185,
+ 'ordm'     , 186,
+ 'raquo'    , 187,
+ 'frac14'   , 188,
+ 'frac12'   , 189,
+ 'frac34'   , 190,
+ 'iquest'   , 191,
+ 'Agrave'   , 192,
+ 'Aacute'   , 193,
+ 'Acirc'    , 194,
+ 'Atilde'   , 195,
+ 'Auml'     , 196,
+ 'Aring'    , 197,
+ 'AElig'    , 198,
+ 'Ccedil'   , 199,
+ 'Egrave'   , 200,
+ 'Eacute'   , 201,
+ 'Ecirc'    , 202,
+ 'Euml'     , 203,
+ 'Igrave'   , 204,
+ 'Iacute'   , 205,
+ 'Icirc'    , 206,
+ 'Iuml'     , 207,
+ 'ETH'      , 208,
+ 'Ntilde'   , 209,
+ 'Ograve'   , 210,
+ 'Oacute'   , 211,
+ 'Ocirc'    , 212,
+ 'Otilde'   , 213,
+ 'Ouml'     , 214,
+ 'times'    , 215,
+ 'Oslash'   , 216,
+ 'Ugrave'   , 217,
+ 'Uacute'   , 218,
+ 'Ucirc'    , 219,
+ 'Uuml'     , 220,
+ 'Yacute'   , 221,
+ 'THORN'    , 222,
+ 'szlig'    , 223,
+ 'agrave'   , 224,
+ 'aacute'   , 225,
+ 'acirc'    , 226,
+ 'atilde'   , 227,
+ 'auml'     , 228,
+ 'aring'    , 229,
+ 'aelig'    , 230,
+ 'ccedil'   , 231,
+ 'egrave'   , 232,
+ 'eacute'   , 233,
+ 'ecirc'    , 234,
+ 'euml'     , 235,
+ 'igrave'   , 236,
+ 'iacute'   , 237,
+ 'icirc'    , 238,
+ 'iuml'     , 239,
+ 'eth'      , 240,
+ 'ntilde'   , 241,
+ 'ograve'   , 242,
+ 'oacute'   , 243,
+ 'ocirc'    , 244,
+ 'otilde'   , 245,
+ 'ouml'     , 246,
+ 'divide'   , 247,
+ 'oslash'   , 248,
+ 'ugrave'   , 249,
+ 'uacute'   , 250,
+ 'ucirc'    , 251,
+ 'uuml'     , 252,
+ 'yacute'   , 253,
+ 'thorn'    , 254,
+ 'yuml'     , 255,
+
+ 'fnof'     , 402,
+ 'Alpha'    , 913,
+ 'Beta'     , 914,
+ 'Gamma'    , 915,
+ 'Delta'    , 916,
+ 'Epsilon'  , 917,
+ 'Zeta'     , 918,
+ 'Eta'      , 919,
+ 'Theta'    , 920,
+ 'Iota'     , 921,
+ 'Kappa'    , 922,
+ 'Lambda'   , 923,
+ 'Mu'       , 924,
+ 'Nu'       , 925,
+ 'Xi'       , 926,
+ 'Omicron'  , 927,
+ 'Pi'       , 928,
+ 'Rho'      , 929,
+ 'Sigma'    , 931,
+ 'Tau'      , 932,
+ 'Upsilon'  , 933,
+ 'Phi'      , 934,
+ 'Chi'      , 935,
+ 'Psi'      , 936,
+ 'Omega'    , 937,
+ 'alpha'    , 945,
+ 'beta'     , 946,
+ 'gamma'    , 947,
+ 'delta'    , 948,
+ 'epsilon'  , 949,
+ 'zeta'     , 950,
+ 'eta'      , 951,
+ 'theta'    , 952,
+ 'iota'     , 953,
+ 'kappa'    , 954,
+ 'lambda'   , 955,
+ 'mu'       , 956,
+ 'nu'       , 957,
+ 'xi'       , 958,
+ 'omicron'  , 959,
+ 'pi'       , 960,
+ 'rho'      , 961,
+ 'sigmaf'   , 962,
+ 'sigma'    , 963,
+ 'tau'      , 964,
+ 'upsilon'  , 965,
+ 'phi'      , 966,
+ 'chi'      , 967,
+ 'psi'      , 968,
+ 'omega'    , 969,
+ 'thetasym' , 977,
+ 'upsih'    , 978,
+ 'piv'      , 982,
+ 'bull'     , 8226,
+ 'hellip'   , 8230,
+ 'prime'    , 8242,
+ 'Prime'    , 8243,
+ 'oline'    , 8254,
+ 'frasl'    , 8260,
+ 'weierp'   , 8472,
+ 'image'    , 8465,
+ 'real'     , 8476,
+ 'trade'    , 8482,
+ 'alefsym'  , 8501,
+ 'larr'     , 8592,
+ 'uarr'     , 8593,
+ 'rarr'     , 8594,
+ 'darr'     , 8595,
+ 'harr'     , 8596,
+ 'crarr'    , 8629,
+ 'lArr'     , 8656,
+ 'uArr'     , 8657,
+ 'rArr'     , 8658,
+ 'dArr'     , 8659,
+ 'hArr'     , 8660,
+ 'forall'   , 8704,
+ 'part'     , 8706,
+ 'exist'    , 8707,
+ 'empty'    , 8709,
+ 'nabla'    , 8711,
+ 'isin'     , 8712,
+ 'notin'    , 8713,
+ 'ni'       , 8715,
+ 'prod'     , 8719,
+ 'sum'      , 8721,
+ 'minus'    , 8722,
+ 'lowast'   , 8727,
+ 'radic'    , 8730,
+ 'prop'     , 8733,
+ 'infin'    , 8734,
+ 'ang'      , 8736,
+ 'and'      , 8743,
+ 'or'       , 8744,
+ 'cap'      , 8745,
+ 'cup'      , 8746,
+ 'int'      , 8747,
+ 'there4'   , 8756,
+ 'sim'      , 8764,
+ 'cong'     , 8773,
+ 'asymp'    , 8776,
+ 'ne'       , 8800,
+ 'equiv'    , 8801,
+ 'le'       , 8804,
+ 'ge'       , 8805,
+ 'sub'      , 8834,
+ 'sup'      , 8835,
+ 'nsub'     , 8836,
+ 'sube'     , 8838,
+ 'supe'     , 8839,
+ 'oplus'    , 8853,
+ 'otimes'   , 8855,
+ 'perp'     , 8869,
+ 'sdot'     , 8901,
+ 'lceil'    , 8968,
+ 'rceil'    , 8969,
+ 'lfloor'   , 8970,
+ 'rfloor'   , 8971,
+ 'lang'     , 9001,
+ 'rang'     , 9002,
+ 'loz'      , 9674,
+ 'spades'   , 9824,
+ 'clubs'    , 9827,
+ 'hearts'   , 9829,
+ 'diams'    , 9830,
+ 'OElig'    , 338,
+ 'oelig'    , 339,
+ 'Scaron'   , 352,
+ 'scaron'   , 353,
+ 'Yuml'     , 376,
+ 'circ'     , 710,
+ 'tilde'    , 732,
+ 'ensp'     , 8194,
+ 'emsp'     , 8195,
+ 'thinsp'   , 8201,
+ 'zwnj'     , 8204,
+ 'zwj'      , 8205,
+ 'lrm'      , 8206,
+ 'rlm'      , 8207,
+ 'ndash'    , 8211,
+ 'mdash'    , 8212,
+ 'lsquo'    , 8216,
+ 'rsquo'    , 8217,
+ 'sbquo'    , 8218,
+ 'ldquo'    , 8220,
+ 'rdquo'    , 8221,
+ 'bdquo'    , 8222,
+ 'dagger'   , 8224,
+ 'Dagger'   , 8225,
+ 'permil'   , 8240,
+ 'lsaquo'   , 8249,
+ 'rsaquo'   , 8250,
+ 'euro'     , 8364,
+);
+
+
+# Fill out %Name2character...
+{
+  %Name2character = ();
+  my($name, $number);
+  while( ($name, $number) = each %Name2character_number) {
+    if($] < 5.007  and  $number > 255) {
+      $Name2character{$name} = $FAR_CHAR;
+      # substitute for Unicode characters, for perls
+      #  that can't reliably handle them
+    } elsif ($] >= 5.007003) {
+      $Name2character{$name} = chr utf8::unicode_to_native($number);
+      # normal case for more recent Perls where we can translate from Unicode
+      # to the native character set.
+    }
+    elsif (exists $Code2USASCII{$number}) {
+      $Name2character{$name} = $Code2USASCII{$number};
+      # on older Perls, we can use the translations we have hard-coded in this
+      # file, but these don't include the non-ASCII-range characters
+    }
+    elsif ($NOT_ASCII && $number > 127 && $number < 256) {
+      # this range on old non-ASCII-platform perls is wrong
+      if (exists $Latin1Code_to_fallback{$number})  {
+        $Name2character{$name} = $Latin1Code_to_fallback{$number};
+      } else {
+        $Name2character{$name} = $FAR_CHAR;
+      }
+    } else {
+      $Name2character{$name} = chr $number;
+    }
+  }
+}
+
+#--------------------------------------------------------------------------
+1;
+__END__
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# What I used for reading the XHTML .ent files:
+
+my(@norms, @good, @bad);
+my $dir = 'c:/sgml/docbook/';
+my %escapes;
+foreach my $file (qw(
+  xhtml-symbol.ent
+  xhtml-lat1.ent
+  xhtml-special.ent
+)) {
+  open(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
+  print "Reading $file...\n";
+  while(<IN>) {
+    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
+      my($name, $value) = ($1,$2);
+      next if $name eq 'quot' or $name eq 'apos' or $name eq 'gt';
+    
+      $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+)$/s;
+      print "ILLEGAL VALUE $value" unless $value =~ m/^\d+$/s;
+      if($value > 255) {
+        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $value;
+        push @bad  , sprintf "   %-10s , \$bad,\n", "'$name'", $value;
+      } else {
+        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
+      }
+    } elsif(m/<!ENT/) {
+      print "# Skipping $_";
+    }
+  
+  }
+  close(IN);
+}
+
+print @norms;
+print "\n ( \$] .= 5.006001 ? (\n";
+print @good;
+print " ) : (\n";
+print @bad;
+print " )\n);\n";
+
+__END__
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+#############################################################################
+# Pod/Usage.pm -- print usage messages for the running script.
+#
+# Copyright (c) 1996-2000 by Bradford Appleton. All rights reserved.
+# Copyright (c) 2001-2016 by Marek Rouchal.
+# This file is part of "Pod-Usage". Pod-Usage is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Usage;
+use strict;
+
+use vars qw($VERSION @ISA @EXPORT);
+$VERSION = '1.69';  ## Current version of this package
+require  5.006;    ## requires this Perl version or later
+
+#use diagnostics;
+use Carp;
+use Config;
+use Exporter;
+use File::Spec;
+
+@EXPORT = qw(&pod2usage);
+BEGIN {
+    $Pod::Usage::Formatter ||= 'Pod::Text';
+    eval "require $Pod::Usage::Formatter";
+    die $@ if $@;
+    @ISA = ( $Pod::Usage::Formatter );
+}
+
+our $MAX_HEADING_LEVEL = 3;
+
+##---------------------------------------------------------------------------
+
+##---------------------------------
+## Function definitions begin here
+##---------------------------------
+
+sub pod2usage {
+    local($_) = shift;
+    my %opts;
+    ## Collect arguments
+    if (@_ > 0) {
+        ## Too many arguments - assume that this is a hash and
+        ## the user forgot to pass a reference to it.
+        %opts = ($_, @_);
+    }
+    elsif (!defined $_) {
+      $_ = '';
+    }
+    elsif (ref $_) {
+        ## User passed a ref to a hash
+        %opts = %{$_}  if (ref($_) eq 'HASH');
+    }
+    elsif (/^[-+]?\d+$/) {
+        ## User passed in the exit value to use
+        $opts{'-exitval'} =  $_;
+    }
+    else {
+        ## User passed in a message to print before issuing usage.
+        $_  and  $opts{'-message'} = $_;
+    }
+
+    ## Need this for backward compatibility since we formerly used
+    ## options that were all uppercase words rather than ones that
+    ## looked like Unix command-line options.
+    ## to be uppercase keywords)
+    %opts = map {
+        my ($key, $val) = ($_, $opts{$_});
+        $key =~ s/^(?=\w)/-/;
+        $key =~ /^-msg/i   and  $key = '-message';
+        $key =~ /^-exit/i  and  $key = '-exitval';
+        lc($key) => $val;
+    } (keys %opts);
+
+    ## Now determine default -exitval and -verbose values to use
+    if ((! defined $opts{'-exitval'}) && (! defined $opts{'-verbose'})) {
+        $opts{'-exitval'} = 2;
+        $opts{'-verbose'} = 0;
+    }
+    elsif (! defined $opts{'-exitval'}) {
+        $opts{'-exitval'} = ($opts{'-verbose'} > 0) ? 1 : 2;
+    }
+    elsif (! defined $opts{'-verbose'}) {
+        $opts{'-verbose'} = (lc($opts{'-exitval'}) eq 'noexit' ||
+                             $opts{'-exitval'} < 2);
+    }
+
+    ## Default the output file
+    $opts{'-output'} = (lc($opts{'-exitval'}) eq 'noexit' ||
+                        $opts{'-exitval'} < 2) ? \*STDOUT : \*STDERR
+            unless (defined $opts{'-output'});
+    ## Default the input file
+    $opts{'-input'} = $0  unless (defined $opts{'-input'});
+
+    ## Look up input file in path if it doesn't exist.
+    unless ((ref $opts{'-input'}) || (-e $opts{'-input'})) {
+        my $basename = $opts{'-input'};
+        my $pathsep = ($^O =~ /^(?:dos|os2|MSWin32)$/i) ? ';'
+                            : (($^O eq 'MacOS' || $^O eq 'VMS') ? ',' :  ':');
+        my $pathspec = $opts{'-pathlist'} || $ENV{PATH} || $ENV{PERL5LIB};
+
+        my @paths = (ref $pathspec) ? @$pathspec : split($pathsep, $pathspec);
+        for my $dirname (@paths) {
+            $_ = File::Spec->catfile($dirname, $basename)  if length;
+            last if (-e $_) && ($opts{'-input'} = $_);
+        }
+    }
+
+    ## Now create a pod reader and constrain it to the desired sections.
+    my $parser = new Pod::Usage(USAGE_OPTIONS => \%opts);
+    if ($opts{'-verbose'} == 0) {
+        $parser->select('(?:SYNOPSIS|USAGE)\s*');
+    }
+    elsif ($opts{'-verbose'} == 1) {
+        my $opt_re = '(?i)' .
+                     '(?:OPTIONS|ARGUMENTS)' .
+                     '(?:\s*(?:AND|\/)\s*(?:OPTIONS|ARGUMENTS))?';
+        $parser->select( '(?:SYNOPSIS|USAGE)\s*', $opt_re, "DESCRIPTION/$opt_re" );
+    }
+    elsif ($opts{'-verbose'} >= 2 && $opts{'-verbose'} != 99) {
+        $parser->select('.*');
+    }
+    elsif ($opts{'-verbose'} == 99) {
+        my $sections = $opts{'-sections'};
+        $parser->select( (ref $sections) ? @$sections : $sections );
+        $opts{'-verbose'} = 1;
+    }
+
+    ## Check for perldoc
+    my $progpath = $opts{'-perldoc'} ? $opts{'-perldoc'} :
+        File::Spec->catfile($Config{scriptdirexp} 
+	|| $Config{scriptdir}, 'perldoc');
+
+    my $version = sprintf("%vd",$^V);
+    if ($Config{versiononly} and $Config{startperl} =~ /\Q$version\E$/ ) {
+      $progpath .= $version;
+    }
+    $opts{'-noperldoc'} = 1 unless -e $progpath;
+
+    ## Now translate the pod document and then exit with the desired status
+    if (      !$opts{'-noperldoc'}
+         and  $opts{'-verbose'} >= 2
+         and  !ref($opts{'-input'})
+         and  $opts{'-output'} == \*STDOUT )
+    {
+       ## spit out the entire PODs. Might as well invoke perldoc
+       print { $opts{'-output'} } ($opts{'-message'}, "\n") if($opts{'-message'});
+       if(defined $opts{-input} && $opts{-input} =~ /^\s*(\S.*?)\s*$/) {
+         # the perldocs back to 5.005 should all have -F
+	 # without -F there are warnings in -T scripts
+	 my $f = $1;
+         my @perldoc_cmd = ($progpath);
+	 if ($opts{'-perldocopt'}) {
+           $opts{'-perldocopt'} =~ s/^\s+|\s+$//g;
+	   push @perldoc_cmd, split(/\s+/, $opts{'-perldocopt'});
+	 }
+	 push @perldoc_cmd, ('-F', $f);
+         unshift @perldoc_cmd, $opts{'-perlcmd'} if $opts{'-perlcmd'};
+         system(@perldoc_cmd);
+         if($?) {
+           # RT16091: fall back to more if perldoc failed
+           system(($Config{pager} || $ENV{PAGER} || '/bin/more'), $1);
+         }
+       } else {
+         croak "Unspecified input file or insecure argument.\n";
+       }
+    }
+    else {
+       $parser->parse_from_file($opts{'-input'}, $opts{'-output'});
+    }
+
+    exit($opts{'-exitval'})  unless (lc($opts{'-exitval'}) eq 'noexit');
+}
+
+##---------------------------------------------------------------------------
+
+##-------------------------------
+## Method definitions begin here
+##-------------------------------
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    if ($self->can('initialize')) {
+        $self->initialize();
+    } else {
+        # pass through options to Pod::Text
+        my %opts;
+       	for (qw(alt code indent loose margin quotes sentence stderr utf8 width)) {
+            my $val = $params{USAGE_OPTIONS}{"-$_"};
+            $opts{$_} = $val if defined $val;
+        }
+        $self = $self->SUPER::new(%opts);
+        %$self = (%$self, %params);
+    }
+    return $self;
+}
+
+# This subroutine was copied in whole-cloth from Pod::Select 1.60 in order to
+# allow the ejection of Pod::Select from the core without breaking Pod::Usage.
+# -- rjbs, 2013-03-18
+sub _compile_section_spec {
+    my ($section_spec) = @_;
+    my (@regexs, $negated);
+
+    ## Compile the spec into a list of regexs
+    local $_ = $section_spec;
+    s{\\\\}{\001}g;  ## handle escaped backward slashes
+    s{\\/}{\002}g;   ## handle escaped forward slashes
+
+    ## Parse the regexs for the heading titles
+    @regexs = split(/\//, $_, $MAX_HEADING_LEVEL);
+
+    ## Set default regex for ommitted levels
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        $regexs[$i]  = '.*'  unless ((defined $regexs[$i])
+                                     && (length $regexs[$i]));
+    }
+    ## Modify the regexs as needed and validate their syntax
+    my $bad_regexs = 0;
+    for (@regexs) {
+        $_ .= '.+'  if ($_ eq '!');
+        s{\001}{\\\\}g;       ## restore escaped backward slashes
+        s{\002}{\\/}g;        ## restore escaped forward slashes
+        $negated = s/^\!//;   ## check for negation
+        eval "m{$_}";         ## check regex syntax
+        if ($@) {
+            ++$bad_regexs;
+            carp qq{Bad regular expression /$_/ in "$section_spec": $@\n};
+        }
+        else {
+            ## Add the forward and rear anchors (and put the negator back)
+            $_ = '^' . $_  unless (/^\^/);
+            $_ = $_ . '$'  unless (/\$$/);
+            $_ = '!' . $_  if ($negated);
+        }
+    }
+    return  (! $bad_regexs) ? [ @regexs ] : undef;
+}
+
+sub select {
+    my ($self, @sections) = @_;
+    if ($ISA[0]->can('select')) {
+        $self->SUPER::select(@sections);
+    } else {
+        # we're using Pod::Simple - need to mimic the behavior of Pod::Select
+        my $add = ($sections[0] eq '+') ? shift(@sections) : '';
+        ## Reset the set of sections to use
+        unless (@sections) {
+          delete $self->{USAGE_SELECT} unless ($add);
+          return;
+        }
+        $self->{USAGE_SELECT} = []
+          unless ($add && $self->{USAGE_SELECT});
+        my $sref = $self->{USAGE_SELECT};
+        ## Compile each spec
+        for my $spec (@sections) {
+          my $cs = _compile_section_spec($spec);
+          if ( defined $cs ) {
+            ## Store them in our sections array
+            push(@$sref, $cs);
+          } else {
+            carp qq{Ignoring section spec "$spec"!\n};
+          }
+        }
+    }
+}
+
+# Override Pod::Text->seq_i to return just "arg", not "*arg*".
+sub seq_i { return $_[1] }
+# Override Pod::Text->cmd_i to return just "arg", not "*arg*".
+# newer version based on Pod::Simple
+sub cmd_i { return $_[2] }
+
+# This overrides the Pod::Text method to do something very akin to what
+# Pod::Select did as well as the work done below by preprocess_paragraph.
+# Note that the below is very, very specific to Pod::Text and Pod::Simple.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    if ($element eq 'head1') {
+        $self->{USAGE_HEADINGS} = [ $$self{PENDING}[-1][1] ];
+        if ($self->{USAGE_OPTIONS}->{-verbose} < 2) {
+            $$self{PENDING}[-1][1] =~ s/^\s*SYNOPSIS\s*$/USAGE/;
+        }
+    } elsif ($element =~ /^head(\d+)$/ && $1) { # avoid 0
+        my $idx = $1 - 1;
+        $self->{USAGE_HEADINGS} = [] unless($self->{USAGE_HEADINGS});
+        $self->{USAGE_HEADINGS}->[$idx] = $$self{PENDING}[-1][1];
+        # we have to get rid of the lower headings
+        splice(@{$self->{USAGE_HEADINGS}},$idx+1);
+    }
+    if ($element =~ /^head\d+$/) {
+        $$self{USAGE_SKIPPING} = 1;
+        if (!$$self{USAGE_SELECT} || !@{ $$self{USAGE_SELECT} }) {
+            $$self{USAGE_SKIPPING} = 0;
+        } else {
+            my @headings = @{$$self{USAGE_HEADINGS}};
+            for my $section_spec ( @{$$self{USAGE_SELECT}} ) {
+                my $match = 1;
+                for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+                    $headings[$i] = '' unless defined $headings[$i];
+                    my $regex   = $section_spec->[$i];
+                    my $negated = ($regex =~ s/^\!//);
+                    $match  &= ($negated ? ($headings[$i] !~ /${regex}/)
+                                         : ($headings[$i] =~ /${regex}/));
+                    last unless ($match);
+                } # end heading levels
+                if ($match) {
+                  $$self{USAGE_SKIPPING} = 0;
+                  last;
+                }
+            } # end sections
+        }
+
+        # Try to do some lowercasing instead of all-caps in headings, and use
+        # a colon to end all headings.
+        if($self->{USAGE_OPTIONS}->{-verbose} < 2) {
+            local $_ = $$self{PENDING}[-1][1];
+            s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge;
+            s/\s*$/:/  unless (/:\s*$/);
+            $_ .= "\n";
+            $$self{PENDING}[-1][1] = $_;
+        }
+    }
+    if ($$self{USAGE_SKIPPING} && $element !~ m/^over-|^[BCFILSZ]$/) {
+        pop @{ $$self{PENDING} };
+    } else {
+        $self->SUPER::_handle_element_end($element);
+    }
+}
+
+# required for Pod::Simple API
+sub start_document {
+    my $self = shift;
+    $self->SUPER::start_document();
+    my $msg = $self->{USAGE_OPTIONS}->{-message}  or  return 1;
+    my $out_fh = $self->output_fh();
+    print $out_fh "$msg\n";
+}
+
+# required for old Pod::Parser API
+sub begin_pod {
+    my $self = shift;
+    $self->SUPER::begin_pod();  ## Have to call superclass
+    my $msg = $self->{USAGE_OPTIONS}->{-message}  or  return 1;
+    my $out_fh = $self->output_handle();
+    print $out_fh "$msg\n";
+}
+
+sub preprocess_paragraph {
+    my $self = shift;
+    local $_ = shift;
+    my $line = shift;
+    ## See if this is a heading and we aren't printing the entire manpage.
+    if (($self->{USAGE_OPTIONS}->{-verbose} < 2) && /^=head/) {
+        ## Change the title of the SYNOPSIS section to USAGE
+        s/^=head1\s+SYNOPSIS\s*$/=head1 USAGE/;
+        ## Try to do some lowercasing instead of all-caps in headings
+        s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge;
+        ## Use a colon to end all headings
+        s/\s*$/:/  unless (/:\s*$/);
+        $_ .= "\n";
+    }
+    return  $self->SUPER::preprocess_paragraph($_);
+}
+
+1; # keep require happy
+
+__END__
+
+
+#############################################################################  
+# Pod/Find.pm -- finds files containing POD documentation
+#
+# Author: Marek Rouchal <marekr@cpan.org>
+# 
+# Copyright (C) 1999-2000 by Marek Rouchal (and borrowing code
+# from Nick Ing-Simmon's PodToHtml). All rights reserved.
+# This file is part of "PodParser". Pod::Find is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Find;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63';   ## Current version of this package
+require  5.005;   ## requires this Perl version or later
+use Carp;
+
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+
+#############################################################################
+
+
+#use diagnostics;
+use Exporter;
+use File::Spec;
+use File::Find;
+use Cwd qw(abs_path cwd);
+
+use vars qw(@ISA @EXPORT_OK $VERSION);
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(&pod_find &simplify_name &pod_where &contains_pod);
+
+# package global variables
+my $SIMPLIFY_RX;
+
+
+# return a hash of the POD files found
+# first argument may be a hashref (options),
+# rest is a list of directories to search recursively
+sub pod_find
+{
+    my %opts;
+    if(ref $_[0]) {
+        %opts = %{shift()};
+    }
+
+    $opts{-verbose} ||= 0;
+    $opts{-perl}    ||= 0;
+
+    my (@search) = @_;
+
+    if($opts{-script}) {
+        require Config;
+        push(@search, $Config::Config{scriptdir})
+            if -d $Config::Config{scriptdir};
+        $opts{-perl} = 1;
+    }
+
+    if($opts{-inc}) {
+        if ($^O eq 'MacOS') {
+            # tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+            my @new_INC = @INC;
+            for (@new_INC) {
+                if ( $_ eq '.' ) {
+                    $_ = ':';
+                } elsif ( $_ =~ s{^((?:\.\./)+)}{':' x (length($1)/3)}e ) {
+                    $_ = ':'. $_;
+                } else {
+                    $_ =~ s{^\./}{:};
+                }
+            }
+            push(@search, grep($_ ne File::Spec->curdir, @new_INC));
+        } else {
+            my %seen;
+            my $curdir = File::Spec->curdir;
+	    foreach(@INC) {
+                next if $_ eq $curdir;
+		my $path = abs_path($_);
+                push(@search, $path) unless $seen{$path}++;
+            }
+        }
+
+        $opts{-perl} = 1;
+    }
+
+    if($opts{-perl}) {
+        require Config;
+        # this code simplifies the POD name for Perl modules:
+        # * remove "site_perl"
+        # * remove e.g. "i586-linux" (from 'archname')
+        # * remove e.g. 5.00503
+        # * remove pod/ if followed by *.pod (e.g. in pod/perlfunc.pod)
+
+        # Mac OS:
+        # * remove ":?site_perl:"
+        # * remove :?pod: if followed by *.pod (e.g. in :pod:perlfunc.pod)
+
+        if ($^O eq 'MacOS') {
+            $SIMPLIFY_RX =
+              qq!^(?i:\:?site_perl\:|\:?pod\:(?=.*?\\.pod\\z))*!;
+        } else {
+            $SIMPLIFY_RX =
+              qq!^(?i:site(_perl)?/|\Q$Config::Config{archname}\E/|\\d+\\.\\d+([_.]?\\d+)?/|pod/(?=.*?\\.pod\\z))*!;
+        }
+    }
+
+    my %dirs_visited;
+    my %pods;
+    my %names;
+    my $pwd = cwd();
+
+    foreach my $try (@search) {
+        unless(File::Spec->file_name_is_absolute($try)) {
+            # make path absolute
+            $try = File::Spec->catfile($pwd,$try);
+        }
+        # simplify path
+        # on VMS canonpath will vmsify:[the.path], but File::Find::find
+        # wants /unixy/paths
+        if ($^O eq 'VMS') {
+            $try = VMS::Filespec::unixify($try);
+        }
+        else {
+            $try = File::Spec->canonpath($try);
+        }
+        my $name;
+        if(-f $try) {
+            if($name = _check_and_extract_name($try, $opts{-verbose})) {
+                _check_for_duplicates($try, $name, \%names, \%pods);
+            }
+            next;
+        }
+        my $root_rx = $^O eq 'MacOS' ? qq!^\Q$try\E! : qq!^\Q$try\E/!;
+        $root_rx=~ s|//$|/|;  # remove trailing double slash
+        File::Find::find( sub {
+            my $item = $File::Find::name;
+            if(-d) {
+                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn|\.hg|\.git|\.sync)$}) {
+                    $File::Find::prune = 1;
+                    return;
+                }
+                elsif($dirs_visited{$item}) {
+                    warn "Directory '$item' already seen, skipping.\n"
+                        if($opts{-verbose});
+                    $File::Find::prune = 1;
+                    return;
+                }
+                else {
+                    $dirs_visited{$item} = 1;
+                }
+                if($opts{-perl} && /^(\d+\.[\d_]+)\z/s && eval "$1" != $]) {
+                    $File::Find::prune = 1;
+                    warn "Perl $] version mismatch on $_, skipping.\n"
+                        if($opts{-verbose});
+                }
+                return;
+            }
+            if($name = _check_and_extract_name($item, $opts{-verbose}, $root_rx)) {
+                _check_for_duplicates($item, $name, \%names, \%pods);
+            }
+        }, $try); # end of File::Find::find
+    }
+    chdir $pwd;
+    return %pods;
+}
+
+sub _check_for_duplicates {
+    my ($file, $name, $names_ref, $pods_ref) = @_;
+    if($$names_ref{$name}) {
+        warn "Duplicate POD found (shadowing?): $name ($file)\n";
+        warn '    Already seen in ',
+            join(' ', grep($$pods_ref{$_} eq $name, keys %$pods_ref)),"\n";
+    }
+    else {
+        $$names_ref{$name} = 1;
+    }
+    return $$pods_ref{$file} = $name;
+}
+
+sub _check_and_extract_name {
+    my ($file, $verbose, $root_rx) = @_;
+
+    # check extension or executable flag
+    # this involves testing the .bat extension on Win32!
+    unless(-f $file && -T $file && ($file =~ /\.(pod|pm|plx?)\z/i || -x $file )) {
+      return;
+    }
+
+    return unless contains_pod($file,$verbose);
+
+    # strip non-significant path components
+    # TODO what happens on e.g. Win32?
+    my $name = $file;
+    if(defined $root_rx) {
+        $name =~ s/$root_rx//is;
+        $name =~ s/$SIMPLIFY_RX//is if(defined $SIMPLIFY_RX);
+    }
+    else {
+        if ($^O eq 'MacOS') {
+            $name =~ s/^.*://s;
+        } else {
+            $name =~ s{^.*/}{}s;
+        }
+    }
+    _simplify($name);
+    $name =~ s{/+}{::}g;
+    if ($^O eq 'MacOS') {
+        $name =~ s{:+}{::}g; # : -> ::
+    } else {
+        $name =~ s{/+}{::}g; # / -> ::
+    }
+    return $name;
+}
+
+
+# basic simplification of the POD name:
+# basename & strip extension
+sub simplify_name {
+    my ($str) = @_;
+    # remove all path components
+    if ($^O eq 'MacOS') {
+        $str =~ s/^.*://s;
+    } else {
+        $str =~ s{^.*/}{}s;
+    }
+    _simplify($str);
+    return $str;
+}
+
+# internal sub only
+sub _simplify {
+    # strip Perl's own extensions
+    $_[0] =~ s/\.(pod|pm|plx?)\z//i;
+    # strip meaningless extensions on Win32 and OS/2
+    $_[0] =~ s/\.(bat|exe|cmd)\z//i if($^O =~ /mswin|os2/i);
+    # strip meaningless extensions on VMS
+    $_[0] =~ s/\.(com)\z//i if($^O eq 'VMS');
+}
+
+# contribution from Tim Jenness <t.jenness@jach.hawaii.edu>
+
+
+sub pod_where {
+
+  # default options
+  my %options = (
+         '-inc' => 0,
+         '-verbose' => 0,
+         '-dirs' => [ File::Spec->curdir ],
+        );
+
+  # Check for an options hash as first argument
+  if (defined $_[0] && ref($_[0]) eq 'HASH') {
+    my $opt = shift;
+
+    # Merge default options with supplied options
+    %options = (%options, %$opt);
+  }
+
+  # Check usage
+  carp 'Usage: pod_where({options}, $pod)' unless (scalar(@_));
+
+  # Read argument
+  my $pod = shift;
+
+  # Split on :: and then join the name together using File::Spec
+  my @parts = split (/::/, $pod);
+
+  # Get full directory list
+  my @search_dirs = @{ $options{'-dirs'} };
+
+  if ($options{'-inc'}) {
+
+    require Config;
+
+    # Add @INC
+    if ($^O eq 'MacOS' && $options{'-inc'}) {
+        # tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+        my @new_INC = @INC;
+        for (@new_INC) {
+            if ( $_ eq '.' ) {
+                $_ = ':';
+            } elsif ( $_ =~ s{^((?:\.\./)+)}{':' x (length($1)/3)}e ) {
+                $_ = ':'. $_;
+            } else {
+                $_ =~ s{^\./}{:};
+            }
+        }
+        push (@search_dirs, @new_INC);
+    } elsif ($options{'-inc'}) {
+        push (@search_dirs, @INC);
+    }
+
+    # Add location of pod documentation for perl man pages (eg perlfunc)
+    # This is a pod directory in the private install tree
+    #my $perlpoddir = File::Spec->catdir($Config::Config{'installprivlib'},
+    #					'pod');
+    #push (@search_dirs, $perlpoddir)
+    #  if -d $perlpoddir;
+
+    # Add location of binaries such as pod2text
+    push (@search_dirs, $Config::Config{'scriptdir'})
+      if -d $Config::Config{'scriptdir'};
+  }
+
+  warn 'Search path is: '.join(' ', @search_dirs)."\n"
+        if $options{'-verbose'};
+
+  # Loop over directories
+  Dir: foreach my $dir ( @search_dirs ) {
+
+    # Don't bother if can't find the directory
+    if (-d $dir) {
+      warn "Looking in directory $dir\n"
+        if $options{'-verbose'};
+
+      # Now concatenate this directory with the pod we are searching for
+      my $fullname = File::Spec->catfile($dir, @parts);
+      $fullname = VMS::Filespec::unixify($fullname) if $^O eq 'VMS';
+      warn "Filename is now $fullname\n"
+        if $options{'-verbose'};
+
+      # Loop over possible extensions
+      foreach my $ext ('', '.pod', '.pm', '.pl') {
+        my $fullext = $fullname . $ext;
+        if (-f $fullext &&
+         contains_pod($fullext, $options{'-verbose'}) ) {
+          warn "FOUND: $fullext\n" if $options{'-verbose'};
+          return $fullext;
+        }
+      }
+    } else {
+      warn "Directory $dir does not exist\n"
+        if $options{'-verbose'};
+      next Dir;
+    }
+    # for some strange reason the path on MacOS/darwin/cygwin is
+    # 'pods' not 'pod'
+    # this could be the case also for other systems that
+    # have a case-tolerant file system, but File::Spec
+    # does not recognize 'darwin' yet. And cygwin also has "pods",
+    # but is not case tolerant. Oh well...
+    if((File::Spec->case_tolerant || $^O =~ /macos|darwin|cygwin/i)
+     && -d File::Spec->catdir($dir,'pods')) {
+      $dir = File::Spec->catdir($dir,'pods');
+      redo Dir;
+    }
+    if(-d File::Spec->catdir($dir,'pod')) {
+      $dir = File::Spec->catdir($dir,'pod');
+      redo Dir;
+    }
+  }
+  # No match;
+  return;
+}
+
+
+sub contains_pod {
+  my $file = shift;
+  my $verbose = 0;
+  $verbose = shift if @_;
+
+  # check for one line of POD
+  my $podfh;
+  if ($] < 5.006) {
+    $podfh = gensym();
+  }
+
+  unless(open($podfh,"<$file")) {
+    warn "Error: $file is unreadable: $!\n";
+    return;
+  }
+  
+  local $/ = undef;
+  my $pod = <$podfh>;
+  close($podfh) || die "Error closing $file: $!\n";
+  unless($pod =~ /^=(head\d|pod|over|item|cut)\b/m) {
+    warn "No POD in $file, skipping.\n"
+      if($verbose);
+    return 0;
+  }
+
+  return 1;
+}
+
+
+1;
+
+package Pod::Functions;
+use strict;
+
+
+our $VERSION = '1.13';
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(%Kinds %Type %Flavor %Type_Description @Type_Order);
+
+our(%Kinds, %Type, %Flavor, %Type_Description, @Type_Order);
+
+foreach (
+    [String     => 'Functions for SCALARs or strings'],
+    [Regexp     => 'Regular expressions and pattern matching'],
+    [Math       => 'Numeric functions'],
+    [ARRAY      => 'Functions for real @ARRAYs'],
+    [LIST       => 'Functions for list data'],
+    [HASH       => 'Functions for real %HASHes'],
+    ['I/O'      => 'Input and output functions'],
+    [Binary     => 'Functions for fixed-length data or records'],
+    [File       => 'Functions for filehandles, files, or directories'],
+    [Flow       => 'Keywords related to the control flow of your Perl program'],
+    [Namespace  => 'Keywords related to scoping'],
+    [Misc       => 'Miscellaneous functions'],
+    [Process    => 'Functions for processes and process groups'],
+    [Modules    => 'Keywords related to Perl modules'],
+    [Objects    => 'Keywords related to classes and object-orientation'],
+    [Socket     => 'Low-level socket functions'],
+    [SysV       => 'System V interprocess communication functions'],
+    [User       => 'Fetching user and group info'],
+    [Network    => 'Fetching network info'],
+    [Time       => 'Time-related functions'],
+	) {
+    push @Type_Order, $_->[0];
+    $Type_Description{$_->[0]} = $_->[1];
+};
+
+while (<DATA>) {
+    chomp;
+    s/^#.*//;
+    next unless $_;
+    my($name, @data) = split "\t", $_;
+    $Flavor{$name} = pop @data;
+    $Type{$name} = join ',', @data;
+    for my $t (@data) {
+        push @{$Kinds{$t}}, $name;
+    }
+}
+
+close DATA;
+
+my( $typedesc, $list );
+unless (caller) { 
+    foreach my $type ( @Type_Order ) {
+	$list = join(", ", sort @{$Kinds{$type}});
+	$typedesc = $Type_Description{$type} . ":";
+	write;
+    } 
+}
+
+format = 
+
+^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+    $typedesc 
+~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+    $typedesc 
+ ~~  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+	$list
+.
+
+1;
+
+__DATA__
+-X	File	a file test (-r, -x, etc)
+abs	Math	absolute value function
+accept	Socket	accept an incoming socket connect
+alarm	Process	schedule a SIGALRM
+atan2	Math	arctangent of Y/X in the range -PI to PI
+bind	Socket	binds an address to a socket
+binmode	I/O	prepare binary files for I/O
+bless	Objects	create an object
+break	Flow	break out of a C<given> block
+caller	Flow	Namespace	get context of the current subroutine call
+chdir	File	change your current working directory
+chmod	File	changes the permissions on a list of files
+chomp	String	remove a trailing record separator from a string
+chop	String	remove the last character from a string
+chown	File	change the ownership on a list of files
+chr	String	get character this number represents
+chroot	File	make directory new root for path lookups
+close	I/O	close file (or pipe or socket) handle
+closedir	I/O	close directory handle
+connect	Socket	connect to a remote socket
+continue	Flow	optional trailing block in a while or foreach
+cos	Math	cosine function
+crypt	String	one-way passwd-style encryption
+dbmclose	I/O	Objects	breaks binding on a tied dbm file
+dbmopen	I/O	Objects	create binding on a tied dbm file
+defined	Misc	test whether a value, variable, or function is defined
+delete	HASH	deletes a value from a hash
+die	Flow	I/O	raise an exception or bail out
+do	Flow	Modules	turn a BLOCK into a TERM
+dump	Flow	create an immediate core dump
+each	ARRAY	HASH	retrieve the next key/value pair from a hash
+endgrent	User	be done using group file
+endhostent	User	be done using hosts file
+endnetent	User	be done using networks file
+endprotoent	Network	be done using protocols file
+endpwent	User	be done using passwd file
+endservent	Network	be done using services file
+eof	I/O	test a filehandle for its end
+eval	Flow	catch exceptions or compile and run code
+evalbytes	Flow	similar to string eval, but intend to parse a bytestream
+exec	Process	abandon this program to run another
+exists	HASH	test whether a hash key is present
+exit	Flow	terminate this program
+exp	Math	raise I<e> to a power
+fc	String	return casefolded version of a string
+fcntl	File	file control system call
+__FILE__	Flow	the name of the current source file
+fileno	I/O	return file descriptor from filehandle
+flock	I/O	lock an entire file with an advisory lock
+fork	Process	create a new process just like this one
+format	I/O	declare a picture format with use by the write() function
+formline	Misc	internal function used for formats
+getc	I/O	get the next character from the filehandle
+getgrent	User	get next group record
+getgrgid	User	get group record given group user ID
+getgrnam	User	get group record given group name
+gethostbyaddr	Network	get host record given its address
+gethostbyname	Network	get host record given name
+gethostent	Network	get next hosts record
+getlogin	User	return who logged in at this tty
+getnetbyaddr	Network	get network record given its address
+getnetbyname	Network	get networks record given name
+getnetent	Network	get next networks record
+getpeername	Socket	find the other end of a socket connection
+getpgrp	Process	get process group
+getppid	Process	get parent process ID
+getpriority	Process	get current nice value
+getprotobyname	Network	get protocol record given name
+getprotobynumber	Network	get protocol record numeric protocol
+getprotoent	Network	get next protocols record
+getpwent	User	get next passwd record
+getpwnam	User	get passwd record given user login name
+getpwuid	User	get passwd record given user ID
+getservbyname	Network	get services record given its name
+getservbyport	Network	get services record given numeric port
+getservent	Network	get next services record
+getsockname	Socket	retrieve the sockaddr for a given socket
+getsockopt	Socket	get socket options on a given socket
+glob	File	expand filenames using wildcards
+gmtime	Time	convert UNIX time into record or string using Greenwich time
+goto	Flow	create spaghetti code
+grep	LIST	locate elements in a list test true against a given criterion
+hex	Math	String	convert a hexadecimal string to a number
+import	Modules	Namespace	patch a module's namespace into your own
+index	String	find a substring within a string
+int	Math	get the integer portion of a number
+ioctl	File	system-dependent device control system call
+join	LIST	join a list into a string using a separator
+keys	ARRAY	HASH	retrieve list of indices from a hash
+kill	Process	send a signal to a process or process group
+last	Flow	exit a block prematurely
+lc	String	return lower-case version of a string
+lcfirst	String	return a string with just the next letter in lower case
+length	String	return the number of characters in a string
+__LINE__	Flow	the current source line number
+link	File	create a hard link in the filesystem
+listen	Socket	register your socket as a server
+local	Namespace	create a temporary value for a global variable (dynamic scoping)
+localtime	Time	convert UNIX time into record or string using local time
+lock	Misc	get a thread lock on a variable, subroutine, or method
+log	Math	retrieve the natural logarithm for a number
+lstat	File	stat a symbolic link
+m//	Regexp	match a string with a regular expression pattern
+map	LIST	apply a change to a list to get back a new list with the changes
+mkdir	File	create a directory
+msgctl	SysV	SysV IPC message control operations
+msgget	SysV	get SysV IPC message queue
+msgrcv	SysV	receive a SysV IPC message from a message queue
+msgsnd	SysV	send a SysV IPC message to a message queue
+my	Namespace	declare and assign a local variable (lexical scoping)
+next	Flow	iterate a block prematurely
+no	Modules	unimport some module symbols or semantics at compile time
+oct	Math	String	convert a string to an octal number
+open	File	open a file, pipe, or descriptor
+opendir	File	open a directory
+ord	String	find a character's numeric representation
+our	Namespace	declare and assign a package variable (lexical scoping)
+pack	Binary	String	convert a list into a binary representation
+package	Modules	Namespace	Objects	declare a separate global namespace
+__PACKAGE__	Flow	the current package
+pipe	Process	open a pair of connected filehandles
+pop	ARRAY	remove the last element from an array and return it
+pos	Regexp	find or set the offset for the last/next m//g search
+print	I/O	output a list to a filehandle
+printf	I/O	output a formatted list to a filehandle
+prototype	Misc	get the prototype (if any) of a subroutine
+push	ARRAY	append one or more elements to an array
+q/STRING/	String	singly quote a string
+qq/STRING/	String	doubly quote a string
+qr/STRING/	Regexp	compile pattern
+quotemeta	Regexp	quote regular expression magic characters
+qw/STRING/	LIST	quote a list of words
+qx/STRING/	Process	backquote quote a string
+rand	Math	retrieve the next pseudorandom number
+read	Binary	I/O	fixed-length buffered input from a filehandle
+readdir	I/O	get a directory from a directory handle
+readline	I/O	fetch a record from a file
+readlink	File	determine where a symbolic link is pointing
+readpipe	Process	execute a system command and collect standard output
+recv	Socket	receive a message over a Socket
+redo	Flow	start this loop iteration over again
+ref	Objects	find out the type of thing being referenced
+rename	File	change a filename
+require	Modules	load in external functions from a library at runtime
+reset	Misc	clear all variables of a given name
+return	Flow	get out of a function early
+reverse	LIST	String	flip a string or a list
+rewinddir	I/O	reset directory handle
+rindex	String	right-to-left substring search
+rmdir	File	remove a directory
+s///	Regexp	replace a pattern with a string
+say	I/O	output a list to a filehandle, appending a newline
+scalar	Misc	force a scalar context
+seek	I/O	reposition file pointer for random-access I/O
+seekdir	I/O	reposition directory pointer
+select	File	I/O	reset default output or do I/O multiplexing
+semctl	SysV	SysV semaphore control operations
+semget	SysV	get set of SysV semaphores
+semop	SysV	SysV semaphore operations
+send	Socket	send a message over a socket
+setgrent	User	prepare group file for use
+sethostent	Network	prepare hosts file for use
+setnetent	Network	prepare networks file for use
+setpgrp	Process	set the process group of a process
+setpriority	Process	set a process's nice value
+setprotoent	Network	prepare protocols file for use
+setpwent	User	prepare passwd file for use
+setservent	Network	prepare services file for use
+setsockopt	Socket	set some socket options
+shift	ARRAY	remove the first element of an array, and return it
+shmctl	SysV	SysV shared memory operations
+shmget	SysV	get SysV shared memory segment identifier
+shmread	SysV	read SysV shared memory
+shmwrite	SysV	write SysV shared memory
+shutdown	Socket	close down just half of a socket connection
+sin	Math	return the sine of a number
+sleep	Process	block for some number of seconds
+socket	Socket	create a socket
+socketpair	Socket	create a pair of sockets
+sort	LIST	sort a list of values
+splice	ARRAY	add or remove elements anywhere in an array
+split	Regexp	split up a string using a regexp delimiter
+sprintf	String	formatted print into a string
+sqrt	Math	square root function
+srand	Math	seed the random number generator
+stat	File	get a file's status information
+state	Namespace	declare and assign a persistent lexical variable
+study	Regexp	no-op, formerly optimized input data for repeated searches
+sub	Flow	declare a subroutine, possibly anonymously
+__SUB__	Flow	the current subroutine, or C<undef> if not in a subroutine
+substr	String	get or alter a portion of a string
+symlink	File	create a symbolic link to a file
+syscall	Binary	I/O	execute an arbitrary system call
+sysopen	File	open a file, pipe, or descriptor
+sysread	Binary	I/O	fixed-length unbuffered input from a filehandle
+sysseek	Binary	I/O	position I/O pointer on handle used with sysread and syswrite
+system	Process	run a separate program
+syswrite	Binary	I/O	fixed-length unbuffered output to a filehandle
+tell	I/O	get current seekpointer on a filehandle
+telldir	I/O	get current seekpointer on a directory handle
+tie	Objects	bind a variable to an object class
+tied	Objects	get a reference to the object underlying a tied variable
+time	Time	return number of seconds since 1970
+times	Process	Time	return elapsed time for self and child processes
+tr///	String	transliterate a string
+truncate	I/O	shorten a file
+uc	String	return upper-case version of a string
+ucfirst	String	return a string with just the next letter in upper case
+umask	File	set file creation mode mask
+undef	Misc	remove a variable or function definition
+unlink	File	remove one link to a file
+unpack	Binary	LIST	convert binary structure into normal perl variables
+unshift	ARRAY	prepend more elements to the beginning of a list
+untie	Objects	break a tie binding to a variable
+use	Modules	Namespace	Objects	load in a module at compile time and import its namespace
+utime	File	set a file's last access and modify times
+values	ARRAY	HASH	return a list of the values in a hash
+vec	Binary	test or set particular bits in a string
+wait	Process	wait for any child process to die
+waitpid	Process	wait for a particular child process to die
+wantarray	Flow	get void vs scalar vs list context of current subroutine call
+warn	I/O	print debugging info
+write	I/O	print a picture record
+y///	String	transliterate a string
+
+require 5;
+package Pod::Simple;
+use strict;
+use Carp ();
+BEGIN           { *DEBUG = sub () {0} unless defined &DEBUG }
+use integer;
+use Pod::Escapes 1.04 ();
+use Pod::Simple::LinkSection ();
+use Pod::Simple::BlackBox ();
+#use utf8;
+
+use vars qw(
+  $VERSION @ISA
+  @Known_formatting_codes  @Known_directives
+  %Known_formatting_codes  %Known_directives
+  $NL
+);
+
+@ISA = ('Pod::Simple::BlackBox');
+$VERSION = '3.35';
+
+@Known_formatting_codes = qw(I B C L E F S X Z); 
+%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
+@Known_directives       = qw(head1 head2 head3 head4 item over back); 
+%Known_directives       = map(($_=>'Plain'), @Known_directives);
+$NL = $/ unless defined $NL;
+
+#-----------------------------------------------------------------------------
+# Set up some constants:
+
+BEGIN {
+  if(defined &ASCII)    { }
+  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
+  else                  { *ASCII = sub () {''} }
+
+  unless(defined &MANY_LINES) { *MANY_LINES = sub () {20} }
+  DEBUG > 4 and print STDERR "MANY_LINES is ", MANY_LINES(), "\n";
+  unless(MANY_LINES() >= 1) {
+    die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
+  }
+  if(defined &UNICODE) { }
+  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
+  else                 { *UNICODE = sub() {''} }
+}
+if(DEBUG > 2) {
+  print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
+  print STDERR "# We are under a Unicode-safe Perl.\n";
+}
+
+# The NO BREAK SPACE and SOFT HYHPEN are used in several submodules.
+if ($] ge 5.007_003) {  # On sufficiently modern Perls we can handle any
+                        # character set
+  $Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0);
+  $Pod::Simple::shy  = chr utf8::unicode_to_native(0xAD);
+}
+elsif (Pod::Simple::ASCII) {  # Hard code ASCII early Perl
+  $Pod::Simple::nbsp = "\xA0";
+  $Pod::Simple::shy  = "\xAD";
+}
+else { # EBCDIC on early Perl.  We know what the values are for the code
+        # pages supported then.
+  $Pod::Simple::nbsp = "\x41";
+  $Pod::Simple::shy  = "\xCA";
+}
+
+# Design note:
+# This is a parser for Pod.  It is not a parser for the set of Pod-like
+#  languages which happens to contain Pod -- it is just for Pod, plus possibly
+#  some extensions.
+
+# @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
+#@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+__PACKAGE__->_accessorize(
+  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 characters
+  'source_filename',   # Filename of the source, for use in warnings
+  'source_dead',       # Whether to consider this parser's source dead
+
+  'output_fh',         # The filehandle we're writing to, if applicable.
+                       # Used only in some derived classes.
+
+  'hide_line_numbers', # For some dumping subclasses: whether to pointedly
+                       # suppress the start_line attribute
+
+  'line_count',        # the current line number
+  'pod_para_count',    # count of pod paragraphs seen so far
+
+  'no_whining',        # whether to suppress whining
+  'no_errata_section', # whether to suppress the errata section
+  'complain_stderr',   # whether to complain to stderr
+
+  'doc_has_started',   # whether we've fired the open-Document event yet
+
+  'bare_output',       # For some subclasses: whether to prepend
+                       #  header-code and postpend footer-code
+
+  'keep_encoding_directive',  # whether to emit =encoding
+  'nix_X_codes',       # whether to ignore X<...> codes
+  'merge_text',        # whether to avoid breaking a single piece of
+                       #  text up into several events
+
+  'preserve_whitespace', # whether to try to keep whitespace as-is
+  'strip_verbatim_indent', # What indent to strip from verbatim
+
+  'parse_characters',  # Whether parser should expect chars rather than octets
+
+ 'content_seen',      # whether we've seen any real Pod content
+ 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)
+
+ 'codes_in_verbatim', # for PseudoPod extensions
+
+ 'code_handler',      # coderef to call when a code (non-pod) line is seen
+ 'cut_handler',       # ... when a =cut line is seen
+ 'pod_handler',       # ... when a =pod line is seen
+ 'whiteline_handler', # ... when a line with only whitespace is seen
+ #Called like:
+ # $code_handler->($line, $self->{'line_count'}, $self) if $code_handler;
+ #  $cut_handler->($line, $self->{'line_count'}, $self) if $cut_handler;
+ #  $pod_handler->($line, $self->{'line_count'}, $self) if $pod_handler;
+ #   $wl_handler->($line, $self->{'line_count'}, $self) if $wl_handler;
+ 'parse_empty_lists', # whether to acknowledge empty =over/=back blocks
+ 'raw_mode',          # to report entire raw lines instead of Pod elements
+);
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub any_errata_seen {  # good for using as an exit() value...
+  return shift->{'errors_seen'} || 0;
+}
+
+sub errata_seen {
+  return shift->{'all_errata'} || {};
+}
+
+# Returns the encoding only if it was recognized as being handled and set
+sub detected_encoding {
+  return shift->{'detected_encoding'};
+}
+
+sub encoding {
+  my $this = shift;
+  return $this->{'encoding'} unless @_;  # GET.
+
+  $this->_handle_encoding_line("=encoding $_[0]");
+  if ($this->{'_processed_encoding'}) {
+    delete $this->{'_processed_encoding'};
+    if(! $this->{'encoding_command_statuses'} ) {
+      DEBUG > 2 and print STDERR " CRAZY ERROR: encoding wasn't really handled?!\n";
+    } elsif( $this->{'encoding_command_statuses'}[-1] ) {
+      $this->scream( "=encoding $_[0]",
+         sprintf "Couldn't do %s: %s",
+         $this->{'encoding_command_reqs'  }[-1],
+         $this->{'encoding_command_statuses'}[-1],
+      );
+    } else {
+      DEBUG > 2 and print STDERR " (encoding successfully handled.)\n";
+    }
+    return $this->{'encoding'};
+  } else {
+    return undef;
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+# Pull in some functions that, for some reason, I expect to see here too:
+BEGIN {
+  *pretty        = \&Pod::Simple::BlackBox::pretty;
+  *stringify_lol = \&Pod::Simple::BlackBox::stringify_lol;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub version_report {
+  my $class = ref($_[0]) || $_[0];
+  if($class eq __PACKAGE__) {
+    return "$class $VERSION";
+  } else {
+    my $v = $class->VERSION;
+    return "$class $v (" . __PACKAGE__ . " $VERSION)";
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+#sub curr_open { # read-only list accessor
+#  return @{ $_[0]{'curr_open'} || return() };
+#}
+#sub _curr_open_listref { $_[0]{'curr_open'} ||= [] }
+
+
+sub output_string {
+  # Works by faking out output_fh.  Simplifies our code.
+  #
+  my $this = shift;
+  return $this->{'output_string'} unless @_;  # GET.
+  
+  require Pod::Simple::TiedOutFH;
+  my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : \( $_[0] );
+  $$x = '' unless defined $$x;
+  DEBUG > 4 and print STDERR "# Output string set to $x ($$x)\n";
+  $this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
+  return
+    $this->{'output_string'} = $_[0];
+    #${ ${ $this->{'output_fh'} } };
+}
+
+sub abandon_output_string { $_[0]->abandon_output_fh; delete $_[0]{'output_string'} }
+sub abandon_output_fh     { $_[0]->output_fh(undef) }
+# These don't delete the string or close the FH -- they just delete our
+#  references to it/them.
+# TODO: document these
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub new {
+  # takes no parameters
+  my $class = ref($_[0]) || $_[0];
+  #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldoc "
+  #  . __PACKAGE__ );
+  return bless {
+    'accept_codes'      => { map( ($_=>$_), @Known_formatting_codes ) },
+    'accept_directives' => { %Known_directives },
+    'accept_targets'    => {},
+  }, $class;
+}
+
+
+
+# TODO: an option for whether to interpolate E<...>'s, or just resolve to codes.
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {     # OVERRIDE IN DERIVED CLASS
+  my($self, $element_name, $attr_hash_r) = @_;
+  return;
+}
+
+sub _handle_element_end {       # OVERRIDE IN DERIVED CLASS
+  my($self, $element_name) = @_;
+  return;
+}
+
+sub _handle_text          {     # OVERRIDE IN DERIVED CLASS
+  my($self, $text) = @_;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now directives (not targets)
+
+sub accept_directive_as_verbatim  { shift->_accept_directives('Verbatim', @_) }
+sub accept_directive_as_data      { shift->_accept_directives('Data',     @_) }
+sub accept_directive_as_processed { shift->_accept_directives('Plain',    @_) }
+
+sub _accept_directives {
+  my($this, $type) = splice @_,0,2;
+  foreach my $d (@_) {
+    next unless defined $d and length $d;
+    Carp::croak "\"$d\" isn't a valid directive name"
+     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
+    Carp::croak "\"$d\" is already a reserved Pod directive name"
+     if exists $Known_directives{$d};
+    $this->{'accept_directives'}{$d} = $type;
+    DEBUG > 2 and print STDERR "Learning to accept \"=$d\" as directive of type $type\n";
+  }
+  DEBUG > 6 and print STDERR "$this\'s accept_directives : ",
+   pretty($this->{'accept_directives'}), "\n";
+  
+  return sort keys %{ $this->{'accept_directives'} } if wantarray;
+  return;
+}
+
+#--------------------------------------------------------------------------
+# TODO: document these:
+
+sub unaccept_directive { shift->unaccept_directives(@_) };
+
+sub unaccept_directives {
+  my $this = shift;
+  foreach my $d (@_) {
+    next unless defined $d and length $d;
+    Carp::croak "\"$d\" isn't a valid directive name"
+     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
+    Carp::croak "But you must accept \"$d\" directives -- it's a builtin!"
+     if exists $Known_directives{$d};
+    delete $this->{'accept_directives'}{$d};
+    DEBUG > 2 and print STDERR "OK, won't accept \"=$d\" as directive.\n";
+  }
+  return sort keys %{ $this->{'accept_directives'} } if wantarray;
+  return
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now targets (not directives)
+
+sub accept_target         { shift->accept_targets(@_)         } # alias
+sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias
+
+
+sub accept_targets         { shift->_accept_targets('1', @_) }
+
+sub accept_targets_as_text { shift->_accept_targets('force_resolve', @_) }
+ # forces them to be processed, even when there's no ":".
+
+sub _accept_targets {
+  my($this, $type) = splice @_,0,2;
+  foreach my $t (@_) {
+    next unless defined $t and length $t;
+    # TODO: enforce some limitations on what a target name can be?
+    $this->{'accept_targets'}{$t} = $type;
+    DEBUG > 2 and print STDERR "Learning to accept \"$t\" as target of type $type\n";
+  }    
+  return sort keys %{ $this->{'accept_targets'} } if wantarray;
+  return;
+}
+
+#--------------------------------------------------------------------------
+sub unaccept_target         { shift->unaccept_targets(@_) }
+
+sub unaccept_targets {
+  my $this = shift;
+  foreach my $t (@_) {
+    next unless defined $t and length $t;
+    # TODO: enforce some limitations on what a target name can be?
+    delete $this->{'accept_targets'}{$t};
+    DEBUG > 2 and print STDERR "OK, won't accept \"$t\" as target.\n";
+  }    
+  return sort keys %{ $this->{'accept_targets'} } if wantarray;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now codes (not targets or directives)
+
+# XXX Probably it is an error that the digit '9' is excluded from these re's.
+# Broken for early Perls on EBCDIC
+my $xml_name_re = eval "qr/[^-.0-8:A-Z_a-z[:^ascii:]]/";
+if (! defined $xml_name_re) {
+    $xml_name_re = qr/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/;
+}
+
+sub accept_code { shift->accept_codes(@_) } # alias
+
+sub accept_codes {  # Add some codes
+  my $this = shift;
+  
+  foreach my $new_code (@_) {
+    next unless defined $new_code and length $new_code;
+    # A good-enough check that it's good as an XML Name symbol:
+    Carp::croak "\"$new_code\" isn't a valid element name"
+      if $new_code =~ $xml_name_re
+          # Characters under 0x80 that aren't legal in an XML Name.
+      or $new_code =~ m/^[-\.0-9]/s
+      or $new_code =~ m/:[-\.0-9]/s;
+          # The legal under-0x80 Name characters that
+          #  an XML Name still can't start with.
+
+    $this->{'accept_codes'}{$new_code} = $new_code;
+
+    # Yes, map to itself -- just so that when we
+    #  see "=extend W [whatever] thatelementname", we say that W maps
+    #  to whatever $this->{accept_codes}{thatelementname} is,
+    #  i.e., "thatelementname".  Then when we go re-mapping,
+    #  a "W" in the treelet turns into "thatelementname".  We only
+    #  remap once.
+    # If we say we accept "W", then a "W" in the treelet simply turns
+    #  into "W".
+  }
+  
+  return;
+}
+
+#--------------------------------------------------------------------------
+sub unaccept_code { shift->unaccept_codes(@_) }
+
+sub unaccept_codes { # remove some codes
+  my $this = shift;
+  
+  foreach my $new_code (@_) {
+    next unless defined $new_code and length $new_code;
+    # A good-enough check that it's good as an XML Name symbol:
+    Carp::croak "\"$new_code\" isn't a valid element name"
+      if $new_code =~ $xml_name_re
+          # Characters under 0x80 that aren't legal in an XML Name.
+      or $new_code =~ m/^[-\.0-9]/s
+      or $new_code =~ m/:[-\.0-9]/s;
+          # The legal under-0x80 Name characters that
+          #  an XML Name still can't start with.
+
+    Carp::croak "But you must accept \"$new_code\" codes -- it's a builtin!"
+     if grep $new_code eq $_, @Known_formatting_codes;
+
+    delete $this->{'accept_codes'}{$new_code};
+
+    DEBUG > 2 and print STDERR "OK, won't accept the code $new_code<...>.\n";
+  }
+  
+  return;
+}
+
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub parse_string_document {
+  my $self = shift;
+  my @lines;
+  foreach my $line_group (@_) {
+    next unless defined $line_group and length $line_group;
+    pos($line_group) = 0;
+    while($line_group =~
+      m/([^\n\r]*)(\r?\n?)/g # supports \r, \n ,\r\n
+      #m/([^\n\r]*)((?:\r?\n)?)/g
+    ) {
+      #print(">> $1\n"),
+      $self->parse_lines($1)
+       if length($1) or length($2)
+        or pos($line_group) != length($line_group);
+       # I.e., unless it's a zero-length "empty line" at the very
+       #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
+    }
+  }
+  $self->parse_lines(undef); # to signal EOF
+  return $self;
+}
+
+sub _init_fh_source {
+  my($self, $source) = @_;
+
+  #DEBUG > 1 and print STDERR "Declaring $source as :raw for starters\n";
+  #$self->_apply_binmode($source, ':raw');
+  #binmode($source, ":raw");
+
+  return;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+#
+
+sub parse_file {
+  my($self, $source) = (@_);
+
+  if(!defined $source) {
+    Carp::croak("Can't use empty-string as a source for parse_file");
+  } elsif(ref(\$source) eq 'GLOB') {
+    $self->{'source_filename'} = '' . ($source);
+  } elsif(ref $source) {
+    $self->{'source_filename'} = '' . ($source);
+  } elsif(!length $source) {
+    Carp::croak("Can't use empty-string as a source for parse_file");
+  } else {
+    {
+      local *PODSOURCE;
+      open(PODSOURCE, "<$source") || Carp::croak("Can't open $source: $!");
+      $self->{'source_filename'} = $source;
+      $source = *PODSOURCE{IO};
+    }
+    $self->_init_fh_source($source);
+  }
+  # By here, $source is a FH.
+
+  $self->{'source_fh'} = $source;
+
+  my($i, @lines);
+  until( $self->{'source_dead'} ) {
+    splice @lines;
+
+    for($i = MANY_LINES; $i--;) {  # read those many lines at a time
+      local $/ = $NL;
+      push @lines, scalar(<$source>);  # readline
+      last unless defined $lines[-1];
+       # but pass thru the undef, which will set source_dead to true
+    }
+
+    my $at_eof = ! $lines[-1]; # keep track of the undef
+    pop @lines if $at_eof; # silence warnings
+
+    # be eol agnostic
+    s/\r\n?/\n/g for @lines;
+ 
+    # make sure there are only one line elements for parse_lines
+    @lines = split(/(?<=\n)/, join('', @lines));
+
+    # push the undef back after popping it to set source_dead to true
+    push @lines, undef if $at_eof;
+
+    $self->parse_lines(@lines);
+  }
+  delete($self->{'source_fh'}); # so it can be GC'd
+  return $self;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub parse_from_file {
+  # An emulation of Pod::Parser's interface, for the sake of Perldoc.
+  # Basically just a wrapper around parse_file.
+
+  my($self, $source, $to) = @_;
+  $self = $self->new unless ref($self); # so we tolerate being a class method
+  
+  if(!defined $source)             { $source = *STDIN{IO}
+  } elsif(ref(\$source) eq 'GLOB') { # stet
+  } elsif(ref($source)           ) { # stet
+  } elsif(!length $source
+     or $source eq '-' or $source =~ m/^<&(?:STDIN|0)$/i
+  ) { 
+    $source = *STDIN{IO};
+  }
+
+  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
+  } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $to );
+  } elsif(ref($to)) {            $self->output_fh( $to );
+  } elsif(!length $to
+     or $to eq '-' or $to =~ m/^>&?(?:STDOUT|1)$/i
+  ) {
+    $self->output_fh( *STDOUT{IO} );
+  } elsif($to =~ m/^>&(?:STDERR|2)$/i) {
+    $self->output_fh( *STDERR{IO} );
+  } else {
+    require Symbol;
+    my $out_fh = Symbol::gensym();
+    DEBUG and print STDERR "Write-opening to $to\n";
+    open($out_fh, ">$to")  or  Carp::croak "Can't write-open $to: $!";
+    binmode($out_fh)
+     if $self->can('write_with_binmode') and $self->write_with_binmode;
+    $self->output_fh($out_fh);
+  }
+
+  return $self->parse_file($source);
+}
+
+#-----------------------------------------------------------------------------
+
+sub whine {
+  #my($self,$line,$complaint) = @_;
+  my $self = shift(@_);
+  ++$self->{'errors_seen'};
+  if($self->{'no_whining'}) {
+    DEBUG > 9 and print STDERR "Discarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n";
+    return;
+  }
+  push @{$self->{'all_errata'}{$_[0]}}, $_[1];
+  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
+  return $self->_complain_errata(@_);
+}
+
+sub scream {    # like whine, but not suppressible
+  #my($self,$line,$complaint) = @_;
+  my $self = shift(@_);
+  ++$self->{'errors_seen'};
+  push @{$self->{'all_errata'}{$_[0]}}, $_[1];
+  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
+  return $self->_complain_errata(@_);
+}
+
+sub _complain_warn {
+  my($self,$line,$complaint) = @_;
+  return printf STDERR "%s around line %s: %s\n",
+    $self->{'source_filename'} || 'Pod input', $line, $complaint;
+}
+
+sub _complain_errata {
+  my($self,$line,$complaint) = @_;
+  if( $self->{'no_errata_section'} ) {
+    DEBUG > 9 and print STDERR "Discarding erratum (at line $line) $complaint\n because no_errata_section is on.\n";
+  } else {
+    DEBUG > 9 and print STDERR "Queuing erratum (at line $line) $complaint\n";
+    push @{$self->{'errata'}{$line}}, $complaint
+      # for a report to be generated later!
+  }
+  return 1;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _get_initial_item_type {
+  # A hack-wrapper here for when you have like "=over\n\n=item 456\n\n"
+  my($self, $para) = @_;
+  return $para->[1]{'~type'}  if $para->[1]{'~type'};
+
+  return $para->[1]{'~type'} = 'text'
+   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
+  # Else fall thru to the general case:
+  return $self->_get_item_type($para);
+}
+
+
+
+sub _get_item_type {       # mutates the item!!
+  my($self, $para) = @_;
+  return $para->[1]{'~type'} if $para->[1]{'~type'};
+
+
+  # Otherwise we haven't yet been to this node.  Maybe alter it...
+  
+  my $content = join "\n", @{$para}[2 .. $#$para];
+
+  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
+    # Like: "=item *", "=item   *   ", "=item"
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    $para->[1]{'~orig_content'} = $content;
+    return $para->[1]{'~type'} = 'bullet';
+
+  } elsif($content =~ m/^\s*\*\s+(.+)/s) {  # tolerance
+  
+    # Like: "=item * Foo bar baz";
+    $para->[1]{'~orig_content'}      = $content;
+    $para->[1]{'~_freaky_para_hack'} = $1;
+    DEBUG > 2 and print STDERR " Tolerating $$para[2] as =item *\\n\\n$1\n";
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    return $para->[1]{'~type'} = 'bullet';
+
+  } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) {
+    # Like: "=item 1.", "=item    123412"
+    
+    $para->[1]{'~orig_content'} = $content;
+    $para->[1]{'number'} = $1;  # Yes, stores the number there!
+
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    return $para->[1]{'~type'} = 'number';
+    
+  } else {
+    # It's anything else.
+    return $para->[1]{'~type'} = 'text';
+
+  }
+}
+
+#-----------------------------------------------------------------------------
+
+sub _make_treelet {
+  my $self = shift;  # and ($para, $start_line)
+  my $treelet;
+  if(!@_) {
+    return [''];
+  } if(ref $_[0] and ref $_[0][0] and $_[0][0][0] eq '~Top') {
+    # Hack so we can pass in fake-o pre-cooked paragraphs:
+    #  just have the first line be a reference to a ['~Top', {}, ...]
+    # We use this feechure in gen_errata and stuff.
+
+    DEBUG and print STDERR "Applying precooked treelet hack to $_[0][0]\n";
+    $treelet = $_[0][0];
+    splice @$treelet, 0, 2;  # lop the top off
+    return $treelet;
+  } else {
+    $treelet = $self->_treelet_from_formatting_codes(@_);
+  }
+  
+  if( $self->_remap_sequences($treelet) ) {
+    $self->_treat_Zs($treelet);  # Might as well nix these first
+    $self->_treat_Ls($treelet);  # L has to precede E and S
+    $self->_treat_Es($treelet);
+    $self->_treat_Ss($treelet);  # S has to come after E
+
+    $self->_wrap_up($treelet); # Nix X's and merge texties
+    
+  } else {
+    DEBUG and print STDERR "Formatless treelet gets fast-tracked.\n";
+     # Very common case!
+  }
+  
+  splice @$treelet, 0, 2;  # lop the top off
+
+  return $treelet;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _wrap_up {
+  my($self, @stack) = @_;
+  my $nixx  = $self->{'nix_X_codes'};
+  my $merge = $self->{'merge_text' };
+  return unless $nixx or $merge;
+
+  DEBUG > 2 and print STDERR "\nStarting _wrap_up traversal.\n",
+   $merge ? (" Merge mode on\n") : (),
+   $nixx  ? (" Nix-X mode on\n") : (),
+  ;    
+  
+
+  my($i, $treelet);
+  while($treelet = shift @stack) {
+    DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n";
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      DEBUG > 3 and print STDERR " Considering child at $i ", pretty($treelet->[$i]), "\n";
+      if($nixx and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') {
+        DEBUG > 3 and print STDERR "   Nixing X node at $i\n";
+        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
+        # no need to back-update the counter just yet
+        redo;
+
+      } elsif($merge and $i != 2 and  # non-initial
+         !ref $treelet->[$i] and !ref $treelet->[$i - 1]
+      ) {
+        DEBUG > 3 and print STDERR "   Merging ", $i-1,
+         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
+        $treelet->[$i-1] .= ( splice(@$treelet, $i, 1) )[0];
+        DEBUG > 4 and print STDERR "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
+        --$i;
+        next; 
+        # since we just pulled the possibly last node out from under
+        #  ourselves, we can't just redo()
+
+      } elsif( ref $treelet->[$i] ) {
+        DEBUG > 4 and print STDERR "  Enqueuing ", pretty($treelet->[$i]), " for traversal.\n";
+        push @stack, $treelet->[$i];
+
+        if($treelet->[$i][0] eq 'L') {
+          my $thing;
+          foreach my $attrname ('section', 'to') {        
+            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
+              unshift @stack, $thing;
+              DEBUG > 4 and print STDERR "  +Enqueuing ",
+               pretty( $treelet->[$i][1]{$attrname} ),
+               " as an attribute value to tweak.\n";
+            }
+          }
+        }
+      }
+    }
+  }
+  DEBUG > 2 and print STDERR "End of _wrap_up traversal.\n\n";
+
+  return;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _remap_sequences {
+  my($self,@stack) = @_;
+  
+  if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) {
+    # VERY common case: abort it.
+    DEBUG and print STDERR "Skipping _remap_sequences: formatless treelet.\n";
+    return 0;
+  }
+  
+  my $map = ($self->{'accept_codes'} || die "NO accept_codes in $self?!?");
+
+  my $start_line = $stack[0][1]{'start_line'};
+  DEBUG > 2 and printf
+   "\nAbout to start _remap_sequences on treelet from line %s.\n",
+   $start_line || '[?]'
+  ;
+  DEBUG > 3 and print STDERR " Map: ",
+    join('; ', map "$_=" . (
+        ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
+      ),
+      sort keys %$map ),
+    ("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
+     ? "  (all normal)\n" : "\n"
+  ;
+
+  # A recursive algorithm implemented iteratively!  Whee!
+  
+  my($is, $was, $i, $treelet); # scratch
+  while($treelet = shift @stack) {
+    DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n";
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      
+      DEBUG > 4 and print STDERR "  Noting child $i : $treelet->[$i][0]<...>\n";
+      
+      $is = $treelet->[$i][0] = $map->{ $was = $treelet->[$i][0] };
+      if( DEBUG > 3 ) {
+        if(!defined $is) {
+          print STDERR "   Code $was<> is UNKNOWN!\n";
+        } elsif($is eq $was) {
+          DEBUG > 4 and print STDERR "   Code $was<> stays the same.\n";
+        } else  {
+          print STDERR "   Code $was<> maps to ",
+           ref($is)
+            ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" )
+            : "tag $is<...>.\n";
+        }
+      }
+      
+      if(!defined $is) {
+        $self->whine($start_line, "Deleting unknown formatting code $was<>");
+        $is = $treelet->[$i][0] = '1';  # But saving the children!
+        # I could also insert a leading "$was<" and tailing ">" as
+        # children of this node, but something about that seems icky.
+      }
+      if(ref $is) {
+        my @dynasty = @$is;
+        DEBUG > 4 and print STDERR "    Renaming $was node to $dynasty[-1]\n";
+        $treelet->[$i][0] = pop @dynasty;
+        my $nugget;
+        while(@dynasty) {
+          DEBUG > 4 and printf
+           "    Grafting a new %s node between %s and %s\n",
+           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
+          ;
+          
+          #$nugget = ;
+          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
+            # relace node with a new parent
+        }
+      } elsif($is eq '0') {
+        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
+        --$i;  # back-update the counter
+      } elsif($is eq '1') {
+        splice(@$treelet, $i, 1 # replace this node with its children!
+          => splice @{ $treelet->[$i] },2
+              # (not catching its first two (non-child) items)
+        );
+        --$i;  # back up for new stuff
+      } else {
+        # otherwise it's unremarkable
+        unshift @stack, $treelet->[$i];  # just recurse
+      }
+    }
+  }
+  
+  DEBUG > 2 and print STDERR "End of _remap_sequences traversal.\n\n";
+
+  if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1][2]) {
+    DEBUG and print STDERR "Noting that the treelet is now formatless.\n";
+    return 0;
+  }
+  return 1;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _ponder_extend {
+
+  # "Go to an extreme, move back to a more comfortable place"
+  #  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
+  
+  my($self, $para) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+
+  DEBUG > 2 and print STDERR "Ogling extensor: =extend $content\n";
+
+  if($content =~
+    m/^
+      (\S+)         # 1 : new item
+      \s+
+      (\S+)         # 2 : fallback(s)
+      (?:\s+(\S+))? # 3 : element name(s)
+      \s*
+      $
+    /xs
+  ) {
+    my $new_letter = $1;
+    my $fallbacks_one = $2;
+    my $elements_one;
+    $elements_one = defined($3) ? $3 : $1;
+
+    DEBUG > 2 and print STDERR "Extensor has good syntax.\n";
+
+    unless($new_letter =~ m/^[A-Z]$/s or $new_letter) {
+      DEBUG > 2 and print STDERR " $new_letter isn't a valid thing to entend.\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You can extend only formatting codes A-Z, not like \"$new_letter\""
+      );
+      return;
+    }
+    
+    if(grep $new_letter eq $_, @Known_formatting_codes) {
+      DEBUG > 2 and print STDERR " $new_letter isn't a good thing to extend, because known.\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You can't extend an established code like \"$new_letter\""
+      );
+      
+      #TODO: or allow if last bit is same?
+      
+      return;
+    }
+
+    unless($fallbacks_one =~ m/^[A-Z](,[A-Z])*$/s  # like "B", "M,I", etc.
+      or $fallbacks_one eq '0' or $fallbacks_one eq '1'
+    ) {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Format for second =extend parameter must be like"
+        . " M or 1 or 0 or M,N or M,N,O but you have it like "
+        . $fallbacks_one
+      );
+      return;
+    }
+    
+    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Format for third =extend parameter: like foo or bar,Baz,qu:ux but not like "
+        . $elements_one
+      );
+      return;
+    }
+
+    my @fallbacks  = split ',', $fallbacks_one,  -1;
+    my @elements   = split ',', $elements_one, -1;
+
+    foreach my $f (@fallbacks) {
+      next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
+      DEBUG > 2 and print STDERR "  Can't fall back on unknown code $f\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Can't use unknown formatting code '$f' as a fallback for '$new_letter'"
+      );
+      return;
+    }
+
+    DEBUG > 3 and printf STDERR "Extensor: Fallbacks <%s> Elements <%s>.\n",
+     @fallbacks, @elements;
+
+    my $canonical_form;
+    foreach my $e (@elements) {
+      if(exists $self->{'accept_codes'}{$e}) {
+        DEBUG > 1 and print STDERR " Mapping '$new_letter' to known extension '$e'\n";
+        $canonical_form = $e;
+        last; # first acceptable elementname wins!
+      } else {
+        DEBUG > 1 and print STDERR " Can't map '$new_letter' to unknown extension '$e'\n";
+      }
+    }
+
+
+    if( defined $canonical_form ) {
+      # We found a good N => elementname mapping
+      $self->{'accept_codes'}{$new_letter} = $canonical_form;
+      DEBUG > 2 and print
+       "Extensor maps $new_letter => known element $canonical_form.\n";
+    } else {
+      # We have to use the fallback(s), which might be '0', or '1'.
+      $self->{'accept_codes'}{$new_letter}
+        = (@fallbacks == 1) ? $fallbacks[0] : \@fallbacks;
+      DEBUG > 2 and print
+       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
+    }
+
+  } else {
+    DEBUG > 2 and print STDERR "Extensor has bad syntax.\n";
+    $self->whine(
+      $para->[1]{'start_line'},
+      "Unknown =extend syntax: $content"
+    )
+  }
+  return;
+}
+
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _treat_Zs {  # Nix Z<...>'s
+  my($self,@stack) = @_;
+
+  my($i, $treelet);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+  while($treelet = shift @stack) {
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      unless($treelet->[$i][0] eq 'Z') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+        
+      DEBUG > 1 and print STDERR "Nixing Z node @{$treelet->[$i]}\n";
+        
+      # bitch UNLESS it's empty
+      unless(  @{$treelet->[$i]} == 2
+           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
+      ) {
+        $self->whine( $start_line, "A non-empty Z<>" );
+      }      # but kill it anyway
+        
+      splice(@$treelet, $i, 1); # thereby just nix this node.
+      --$i;
+        
+    }
+  }
+  
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+# Quoting perlpodspec:
+
+# In parsing an L<...> code, Pod parsers must distinguish at least four
+# attributes:
+
+############# Not used.  Expressed via the element children plus
+#############  the value of the "content-implicit" flag.
+# First:
+# The link-text. If there is none, this must be undef. (E.g., in "L<Perl
+# Functions|perlfunc>", the link-text is "Perl Functions". In
+# "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text. Note
+# that link text may contain formatting.)
+# 
+
+############# The element children
+# Second:
+# The possibly inferred link-text -- i.e., if there was no real link text,
+# then this is the text that we'll infer in its place. (E.g., for
+# "L<Getopt::Std>", the inferred link text is "Getopt::Std".)
+#
+
+############# The "to" attribute (which might be text, or a treelet)
+# Third:
+# The name or URL, or undef if none. (E.g., in "L<Perl
+# Functions|perlfunc>", the name -- also sometimes called the page -- is
+# "perlfunc". In "L</CAVEATS>", the name is undef.)
+# 
+
+############# The "section" attribute (which might be next, or a treelet)
+# Fourth:
+# The section (AKA "item" in older perlpods), or undef if none. E.g., in
+# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the section. (Note that this
+# is not the same as a manpage section like the "5" in "man 5 crontab".
+# "Section Foo" in the Pod sense means the part of the text that's
+# introduced by the heading or item whose text is "Foo".)
+# 
+# Pod parsers may also note additional attributes including:
+#
+
+############# The "type" attribute.
+# Fifth:
+# A flag for whether item 3 (if present) is a URL (like
+# "http://lists.perl.org" is), in which case there should be no section
+# attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
+# possibly a man page name (like "crontab(5)" is).
+#
+
+############# The "raw" attribute that is already there.
+# Sixth:
+# The raw original L<...> content, before text is split on "|", "/", etc,
+# and before E<...> codes are expanded.
+
+
+# For L<...> codes without a "name|" part, only E<...> and Z<> codes may
+# occur -- no other formatting codes. That is, authors should not use
+# "L<B<Foo::Bar>>".
+#
+# Note, however, that formatting codes and Z<>'s can occur in any and all
+# parts of an L<...> (i.e., in name, section, text, and url).
+
+sub _treat_Ls {  # Process our dear dear friends, the L<...> sequences
+
+  # L<name>
+  # L<name/"sec"> or L<name/sec>
+  # L</"sec"> or L</sec> or L<"sec">
+  # L<text|name>
+  # L<text|name/"sec"> or L<text|name/sec>
+  # L<text|/"sec"> or L<text|/sec> or L<text|"sec">
+  # L<scheme:...>
+  # L<text|scheme:...>
+
+  my($self,@stack) = @_;
+
+  my($i, $treelet);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+  while($treelet = shift @stack) {
+    for(my $i = 2; $i < @$treelet; ++$i) {
+      # iterate over children of current tree node
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      unless($treelet->[$i][0] eq 'L') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+      
+      
+      # By here, $treelet->[$i] is definitely an L node
+      my $ell = $treelet->[$i];
+      DEBUG > 1 and print STDERR "Ogling L node $ell\n";
+        
+      # bitch if it's empty
+      if(  @{$ell} == 2
+       or (@{$ell} == 3 and $ell->[2] eq '')
+      ) {
+        $self->whine( $start_line, "An empty L<>" );
+        $treelet->[$i] = 'L<>';  # just make it a text node
+        next;  # and move on
+      }
+
+      if( (! ref $ell->[2]  && $ell->[2] =~ /\A\s/)
+        ||(! ref $ell->[-1] && $ell->[-1] =~ /\s\z/)
+      ) {
+        $self->whine( $start_line, "L<> starts or ends with whitespace" );
+      }
+     
+      # Catch URLs:
+
+      # there are a number of possible cases:
+      # 1) text node containing url: http://foo.com
+      #   -> [ 'http://foo.com' ]
+      # 2) text node containing url and text: foo|http://foo.com
+      #   -> [ 'foo|http://foo.com' ]
+      # 3) text node containing url start: mailto:xE<at>foo.com
+      #   -> [ 'mailto:x', [ E ... ], 'foo.com' ]
+      # 4) text node containing url start and text: foo|mailto:xE<at>foo.com
+      #   -> [ 'foo|mailto:x', [ E ... ], 'foo.com' ]
+      # 5) other nodes containing text and url start: OE<39>Malley|http://foo.com
+      #   -> [ 'O', [ E ... ], 'Malley', '|http://foo.com' ]
+      # ... etc.
+
+      # anything before the url is part of the text.
+      # anything after it is part of the url.
+      # the url text node itself may contain parts of both.
+
+      if (my ($url_index, $text_part, $url_part) =
+        # grep is no good here; we want to bail out immediately so that we can
+        # use $1, $2, etc. without having to do the match twice.
+        sub {
+          for (2..$#$ell) {
+            next if ref $ell->[$_];
+            next unless $ell->[$_] =~ m/^(?:([^|]*)\|)?(\w+:[^:\s]\S*)$/s;
+            return ($_, $1, $2);
+          }
+          return;
+        }->()
+      ) {
+        $ell->[1]{'type'} = 'url';
+
+        my @text = @{$ell}[2..$url_index-1];
+        push @text, $text_part if defined $text_part;
+
+        my @url  = @{$ell}[$url_index+1..$#$ell];
+        unshift @url, $url_part;
+
+        unless (@text) {
+          $ell->[1]{'content-implicit'} = 'yes';
+          @text = @url;
+        }
+
+        $ell->[1]{to} = Pod::Simple::LinkSection->new(
+          @url == 1
+          ? $url[0]
+          : [ '', {}, @url ],
+        );
+
+        splice @$ell, 2, $#$ell, @text;
+
+        next;
+      }
+      
+      # Catch some very simple and/or common cases
+      if(@{$ell} == 3 and ! ref $ell->[2]) {
+        my $it = $ell->[2];
+        if($it =~ m{^[^/|]+[(][-a-zA-Z0-9]+[)]$}s) { # man sections
+          # Hopefully neither too broad nor too restrictive a RE
+          DEBUG > 1 and print STDERR "Catching \"$it\" as manpage link.\n";
+          $ell->[1]{'type'} = 'man';
+          # This's the only place where man links can get made.
+          $ell->[1]{'content-implicit'} = 'yes';
+          $ell->[1]{'to'  } =
+            Pod::Simple::LinkSection->new( $it ); # treelet!
+
+          next;
+        }
+        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) {
+          # Extremely forgiving idea of what constitutes a bare
+          #  modulename link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
+          DEBUG > 1 and print STDERR "Catching \"$it\" as ho-hum L<Modulename> link.\n";
+          $ell->[1]{'type'} = 'pod';
+          $ell->[1]{'content-implicit'} = 'yes';
+          $ell->[1]{'to'  } =
+            Pod::Simple::LinkSection->new( $it ); # treelet!
+          next;
+        }
+        # else fall thru...
+      }
+      
+      
+
+      # ...Uhoh, here's the real L<...> parsing stuff...
+      # "With the ill behavior, with the ill behavior, with the ill behavior..."
+
+      DEBUG > 1 and print STDERR "Running a real parse on this non-trivial L\n";
+      
+      
+      my $link_text; # set to an arrayref if found
+      my @ell_content = @$ell;
+      splice @ell_content,0,2; # Knock off the 'L' and {} bits
+
+      DEBUG > 3 and print STDERR " Ell content to start: ",
+       pretty(@ell_content), "\n";
+
+
+      # Look for the "|" -- only in CHILDREN (not all underlings!)
+      # Like L<I like the strictness|strict>
+      DEBUG > 3 and
+         print STDERR "  Peering at L content for a '|' ...\n";
+      for(my $j = 0; $j < @ell_content; ++$j) {
+        next if ref $ell_content[$j];
+        DEBUG > 3 and
+         print STDERR "    Peering at L-content text bit \"$ell_content[$j]\" for a '|'.\n";
+
+        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
+          my @link_text = ($1);   # might be 0-length
+          $ell_content[$j] = $2;  # might be 0-length
+
+          DEBUG > 3 and
+           print STDERR "     FOUND a '|' in it.  Splitting into [$1] + [$2]\n";
+
+          if ($link_text[0] =~ m{[|/]}) {
+            $self->whine(
+              $start_line,
+              "alternative text '$link_text[0]' contains non-escaped | or /"
+            );
+          }
+
+          unshift @link_text, splice @ell_content, 0, $j;
+            # leaving only things at J and after
+          @ell_content =  grep ref($_)||length($_), @ell_content ;
+          $link_text   = [grep ref($_)||length($_), @link_text  ];
+          DEBUG > 3 and printf
+           "  So link text is %s\n  and remaining ell content is %s\n",
+            pretty($link_text), pretty(@ell_content);
+          last;
+        }
+      }
+      
+      
+      # Now look for the "/" -- only in CHILDREN (not all underlings!)
+      # And afterward, anything left in @ell_content will be the raw name
+      # Like L<Foo::Bar/Object Methods>
+      my $section_name;  # set to arrayref if found
+      DEBUG > 3 and print STDERR "  Peering at L-content for a '/' ...\n";
+      for(my $j = 0; $j < @ell_content; ++$j) {
+        next if ref $ell_content[$j];
+        DEBUG > 3 and
+         print STDERR "    Peering at L-content text bit \"$ell_content[$j]\" for a '/'.\n";
+
+        if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) {
+          my @section_name = ($2); # might be 0-length
+          $ell_content[$j] =  $1;  # might be 0-length
+
+          DEBUG > 3 and
+           print STDERR "     FOUND a '/' in it.",
+             "  Splitting to page [...$1] + section [$2...]\n";
+
+          push @section_name, splice @ell_content, 1+$j;
+            # leaving only things before and including J
+          
+          @ell_content  = grep ref($_)||length($_), @ell_content  ;
+          @section_name = grep ref($_)||length($_), @section_name ;
+
+          # Turn L<.../"foo"> into L<.../foo>
+          if(@section_name
+            and !ref($section_name[0]) and !ref($section_name[-1])
+            and $section_name[ 0] =~ m/^\"/s
+            and $section_name[-1] =~ m/\"$/s
+            and !( # catch weird degenerate case of L<"> !
+              @section_name == 1 and $section_name[0] eq '"'
+            )
+          ) {
+            $section_name[ 0] =~ s/^\"//s;
+            $section_name[-1] =~ s/\"$//s;
+            DEBUG > 3 and
+             print STDERR "     Quotes removed: ", pretty(@section_name), "\n";
+          } else {
+            DEBUG > 3 and
+             print STDERR "     No need to remove quotes in ", pretty(@section_name), "\n";
+          }
+
+          $section_name = \@section_name;
+          last;
+        }
+      }
+
+      # Turn L<"Foo Bar"> into L</Foo Bar>
+      if(!$section_name and @ell_content
+         and !ref($ell_content[0]) and !ref($ell_content[-1])
+         and $ell_content[ 0] =~ m/^\"/s
+         and $ell_content[-1] =~ m/\"$/s
+         and !( # catch weird degenerate case of L<"> !
+           @ell_content == 1 and $ell_content[0] eq '"'
+         )
+      ) {
+        $section_name = [splice @ell_content];
+        $section_name->[ 0] =~ s/^\"//s;
+        $section_name->[-1] =~ s/\"$//s;
+      }
+
+      # Turn L<Foo Bar> into L</Foo Bar>.
+      if(!$section_name and !$link_text and @ell_content
+         and grep !ref($_) && m/ /s, @ell_content
+      ) {
+        $section_name = [splice @ell_content];
+        # That's support for the now-deprecated syntax.
+        # (Maybe generate a warning eventually?)
+        # Note that it deliberately won't work on L<...|Foo Bar>
+      }
+
+
+      # Now make up the link_text
+      # L<Foo>     -> L<Foo|Foo>
+      # L</Bar>    -> L<"Bar"|Bar>
+      # L<Foo/Bar> -> L<"Bar" in Foo/Foo>
+      unless($link_text) {
+        $ell->[1]{'content-implicit'} = 'yes';
+        $link_text = [];
+        push @$link_text, '"', @$section_name, '"' if $section_name;
+
+        if(@ell_content) {
+          $link_text->[-1] .= ' in ' if $section_name;
+          push @$link_text, @ell_content;
+        }
+      }
+
+
+      # And the E resolver will have to deal with all our treeletty things:
+
+      if(@ell_content == 1 and !ref($ell_content[0])
+         and $ell_content[0] =~ m{^[^/]+[(][-a-zA-Z0-9]+[)]$}s
+      ) {
+        $ell->[1]{'type'}    = 'man';
+        DEBUG > 3 and print STDERR "Considering this ($ell_content[0]) a man link.\n";
+      } else {
+        $ell->[1]{'type'}    = 'pod';
+        DEBUG > 3 and print STDERR "Considering this a pod link (not man or url).\n";
+      }
+
+      if( defined $section_name ) {
+        $ell->[1]{'section'} = Pod::Simple::LinkSection->new(
+          ['', {}, @$section_name]
+        );
+        DEBUG > 3 and print STDERR "L-section content: ", pretty($ell->[1]{'section'}), "\n";
+      }
+
+      if( @ell_content ) {
+        $ell->[1]{'to'} = Pod::Simple::LinkSection->new(
+          ['', {}, @ell_content]
+        );
+        DEBUG > 3 and print STDERR "L-to content: ", pretty($ell->[1]{'to'}), "\n";
+      }
+      
+      # And update children to be the link-text:
+      @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : '');
+      
+      DEBUG > 2 and print STDERR "End of L-parsing for this node $treelet->[$i]\n";
+
+      unshift @stack, $treelet->[$i]; # might as well recurse
+    }
+  }
+
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _treat_Es {
+  my($self,@stack) = @_;
+
+  my($i, $treelet, $content, $replacer, $charnum);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+
+  # Has frightening side effects on L nodes' attributes.
+
+  #my @ells_to_tweak;
+
+  while($treelet = shift @stack) {
+    for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      if($treelet->[$i][0] eq 'L') {
+        # SPECIAL STUFF for semi-processed L<>'s
+        
+        my $thing;
+        foreach my $attrname ('section', 'to') {        
+          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
+            unshift @stack, $thing;
+            DEBUG > 2 and print STDERR "  Enqueuing ",
+             pretty( $treelet->[$i][1]{$attrname} ),
+             " as an attribute value to tweak.\n";
+          }
+        }
+        
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      } elsif($treelet->[$i][0] ne 'E') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+      
+      DEBUG > 1 and print STDERR "Ogling E node ", pretty($treelet->[$i]), "\n";
+
+      # bitch if it's empty
+      if(  @{$treelet->[$i]} == 2
+       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
+      ) {
+        $self->whine( $start_line, "An empty E<>" );
+        $treelet->[$i] = 'E<>'; # splice in a literal
+        next;
+      }
+        
+      # bitch if content is weird
+      unless(@{$treelet->[$i]} == 3 and !ref($content = $treelet->[$i][2])) {
+        $self->whine( $start_line, "An E<...> surrounding strange content" );
+        $replacer = $treelet->[$i]; # scratch
+        splice(@$treelet, $i, 1,   # fake out a literal
+          'E<',
+          splice(@$replacer,2), # promote its content
+          '>'
+        );
+        # Don't need to do --$i, as the 'E<' we just added isn't interesting.
+        next;
+      }
+
+      DEBUG > 1 and print STDERR "Ogling E<$content>\n";
+
+      # XXX E<>'s contents *should* be a valid char in the scope of the current
+      # =encoding directive. Defaults to iso-8859-1, I believe. Fix this in the
+      # future sometime.
+
+      $charnum  = Pod::Escapes::e2charnum($content);
+      DEBUG > 1 and print STDERR " Considering E<$content> with char ",
+        defined($charnum) ? $charnum : "undef", ".\n";
+
+      if(!defined( $charnum )) {
+        DEBUG > 1 and print STDERR "I don't know how to deal with E<$content>.\n";
+        $self->whine( $start_line, "Unknown E content in E<$content>" );
+        $replacer = "E<$content>"; # better than nothing
+      } elsif($charnum >= 255 and !UNICODE) {
+        $replacer = ASCII ? "\xA4" : "?";
+        DEBUG > 1 and print STDERR "This Perl version can't handle ",
+          "E<$content> (chr $charnum), so replacing with $replacer\n";
+      } else {
+        $replacer = Pod::Escapes::e2char($content);
+        DEBUG > 1 and print STDERR " Replacing E<$content> with $replacer\n";
+      }
+
+      splice(@$treelet, $i, 1, $replacer); # no need to back up $i, tho
+    }
+  }
+
+  return;
+}
+
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _treat_Ss {
+  my($self,$treelet) = @_;
+  
+  _change_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'};
+
+  # TODO: or a change_nbsp_to_S
+  #  Normalizing nbsp's to S is harder: for each text node, make S content
+  #  out of anything matching m/([^ \xA0]*(?:\xA0+[^ \xA0]*)+)/
+
+
+  return;
+}
+
+sub _change_S_to_nbsp { #  a recursive function
+  # Sanely assumes that the top node in the excursion won't be an S node.
+  my($treelet, $in_s) = @_;
+  
+  my $is_s = ('S' eq $treelet->[0]);
+  $in_s ||= $is_s; # So in_s is on either by this being an S element,
+                   #  or by an ancestor being an S element.
+
+  for(my $i = 2; $i < @$treelet; ++$i) {
+    if(ref $treelet->[$i]) {
+      if( _change_S_to_nbsp( $treelet->[$i], $in_s ) ) {
+        my $to_pull_up = $treelet->[$i];
+        splice @$to_pull_up,0,2;   # ...leaving just its content
+        splice @$treelet, $i, 1, @$to_pull_up;  # Pull up content
+        $i +=  @$to_pull_up - 1;   # Make $i skip the pulled-up stuff
+      }
+    } else {
+      $treelet->[$i] =~ s/\s/$Pod::Simple::nbsp/g if $in_s;
+       
+       # Note that if you apply nbsp_for_S to text, and so turn
+       # "foo S<bar baz> quux" into "foo bar&#160;faz quux", you
+       # end up with something that fails to say "and don't hyphenate
+       # any part of 'bar baz'".  However, hyphenation is such a vexing
+       # problem anyway, that most Pod renderers just don't render it
+       # at all.  But if you do want to implement hyphenation, I guess
+       # that you'd better have nbsp_for_S off.
+    }
+  }
+
+  return $is_s;
+}
+
+#-----------------------------------------------------------------------------
+
+sub _accessorize {  # A simple-minded method-maker
+  no strict 'refs';
+  foreach my $attrname (@_) {
+    next if $attrname =~ m/::/; # a hack
+    *{caller() . '::' . $attrname} = sub {
+      use strict;
+      $Carp::CarpLevel = 1,  Carp::croak(
+       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
+      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
+      (@_ == 1) ?  $_[0]->{$attrname}
+                : ($_[0]->{$attrname} = $_[1]);
+    };
+  }
+  # Ya know, they say accessories make the ensemble!
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+#=============================================================================
+
+sub filter {
+  my($class, $source) = @_;
+  my $new = $class->new;
+  $new->output_fh(*STDOUT{IO});
+  
+  if(ref($source || '') eq 'SCALAR') {
+    $new->parse_string_document( $$source );
+  } elsif(ref($source)) {  # it's a file handle
+    $new->parse_file($source);
+  } else {  # it's a filename
+    $new->parse_file($source);
+  }
+  
+  return $new;
+}
+
+
+#-----------------------------------------------------------------------------
+
+sub _out {
+  # For use in testing: Class->_out($source)
+  #  returns the transformation of $source
+  
+  my $class = shift(@_);
+
+  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';
+
+  DEBUG and print STDERR "\n\n", '#' x 76,
+   "\nAbout to parse source: {{\n$_[0]\n}}\n\n";
+  
+  
+  my $parser = ref $class && $class->isa(__PACKAGE__) ? $class : $class->new;
+  $parser->hide_line_numbers(1);
+
+  my $out = '';
+  $parser->output_string( \$out );
+  DEBUG and print STDERR " _out to ", \$out, "\n";
+  
+  $mutor->($parser) if $mutor;
+
+  $parser->parse_string_document( $_[0] );
+  # use Data::Dumper; print STDERR Dumper($parser), "\n";
+  return $out;
+}
+
+
+sub _duo {
+  # For use in testing: Class->_duo($source1, $source2)
+  #  returns the parse trees of $source1 and $source2.
+  # Good in things like: &ok( Class->duo(... , ...) );
+  
+  my $class = shift(@_);
+  
+  Carp::croak "But $class->_duo is useful only in list context!"
+   unless wantarray;
+
+  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';
+
+  Carp::croak "But $class->_duo takes two parameters, not: @_"
+   unless @_ == 2;
+
+  my(@out);
+  
+  while( @_ ) {
+    my $parser = $class->new;
+
+    push @out, '';
+    $parser->output_string( \( $out[-1] ) );
+
+    DEBUG and print STDERR " _duo out to ", $parser->output_string(),
+      " = $parser->{'output_string'}\n";
+
+    $parser->hide_line_numbers(1);
+    $mutor->($parser) if $mutor;
+    $parser->parse_string_document( shift( @_ ) );
+    # use Data::Dumper; print STDERR Dumper($parser), "\n";
+  }
+
+  return @out;
+}
+
+
+
+#-----------------------------------------------------------------------------
+1;
+__END__
+
+TODO:
+A start_formatting_code and end_formatting_code methods, which in the
+base class call start_L, end_L, start_C, end_C, etc., if they are
+defined.
+
+have the POD FORMATTING ERRORS section note the localtime, and the
+version of Pod::Simple.
+
+option to delete all E<shy>s?
+option to scream if under-0x20 literals are found in the input, or
+under-E<32> E codes are found in the tree. And ditto \x7f-\x9f
+
+Option to turn highbit characters into their compromised form? (applies
+to E parsing too)
+
+TODO: BOM/encoding things.
+
+TODO: ascii-compat things in the XML classes?
+
+#############################################################################
+# Pod/ParseUtils.pm -- helpers for POD parsing and conversion
+#
+# Copyright (C) 1999-2000 by Marek Rouchal. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::ParseUtils;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63'; ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+
+#-----------------------------------------------------------------------------
+# Pod::List
+#
+# class to hold POD list info (=over, =item, =back)
+#-----------------------------------------------------------------------------
+
+package Pod::List;
+
+use Carp;
+
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-file} ||= 'unknown';
+    $self->{-start} ||= 'unknown';
+    $self->{-indent} ||= 4; # perlpod: "should be the default"
+    $self->{_items} = [];
+    $self->{-type} ||= '';
+}
+
+
+# The POD file name the list appears in
+sub file {
+   return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+
+# The line in the file the node appears
+sub start {
+   return (@_ > 1) ? ($_[0]->{-start} = $_[1]) : $_[0]->{-start};
+}
+
+
+# indent level
+sub indent {
+   return (@_ > 1) ? ($_[0]->{-indent} = $_[1]) : $_[0]->{-indent};
+}
+
+
+# The type of the list (UL, OL, ...)
+sub type {
+   return (@_ > 1) ? ($_[0]->{-type} = $_[1]) : $_[0]->{-type};
+}
+
+
+# The regular expression to simplify the items
+sub rx {
+   return (@_ > 1) ? ($_[0]->{-rx} = $_[1]) : $_[0]->{-rx};
+}
+
+
+# The individual =items of this list
+sub item {
+    my ($self,$item) = @_;
+    if(defined $item) {
+        push(@{$self->{_items}}, $item);
+        return $item;
+    }
+    else {
+        return @{$self->{_items}};
+    }
+}
+
+
+# possibility for parsers/translators to store information about the
+# lists's parent object
+sub parent {
+   return (@_ > 1) ? ($_[0]->{-parent} = $_[1]) : $_[0]->{-parent};
+}
+
+
+# possibility for parsers/translators to store information about the
+# list's object
+sub tag {
+   return (@_ > 1) ? ($_[0]->{-tag} = $_[1]) : $_[0]->{-tag};
+}
+
+#-----------------------------------------------------------------------------
+# Pod::Hyperlink
+#
+# class to manipulate POD hyperlinks (L<>)
+#-----------------------------------------------------------------------------
+
+package Pod::Hyperlink;
+
+
+use Carp;
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my $self = +{};
+    bless $self, $class;
+    $self->initialize();
+    if(defined $_[0]) {
+        if(ref($_[0])) {
+            # called with a list of parameters
+            %$self = %{$_[0]};
+            $self->_construct_text();
+        }
+        else {
+            # called with L<> contents
+            return unless($self->parse($_[0]));
+        }
+    }
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-line} ||= 'undef';
+    $self->{-file} ||= 'undef';
+    $self->{-page} ||= '';
+    $self->{-node} ||= '';
+    $self->{-alttext} ||= '';
+    $self->{-type} ||= 'undef';
+    $self->{_warnings} = [];
+}
+
+
+sub parse {
+    my $self = shift;
+    local($_) = $_[0];
+    # syntax check the link and extract destination
+    my ($alttext,$page,$node,$type,$quoted) = (undef,'','','',0);
+
+    $self->{_warnings} = [];
+
+    # collapse newlines with whitespace
+    s/\s*\n+\s*/ /g;
+
+    # strip leading/trailing whitespace
+    if(s/^[\s\n]+//) {
+        $self->warning('ignoring leading whitespace in link');
+    }
+    if(s/[\s\n]+$//) {
+        $self->warning('ignoring trailing whitespace in link');
+    }
+    unless(length($_)) {
+        _invalid_link('empty link');
+        return;
+    }
+
+    ## Check for different possibilities. This is tedious and error-prone
+    # we match all possibilities (alttext, page, section/item)
+    #warn "DEBUG: link=$_\n";
+
+    # only page
+    # problem: a lot of people use (), or (1) or the like to indicate
+    # man page sections. But this collides with L<func()> that is supposed
+    # to point to an internal function...
+    my $page_rx = '[\w.-]+(?:::[\w.-]+)*(?:[(](?:\d\w*|)[)]|)';
+    # page name only
+    if(/^($page_rx)$/o) {
+        $page = $1;
+        $type = 'page';
+    }
+    # alttext, page and "section"
+    elsif(m{^(.*?)\s*[|]\s*($page_rx)\s*/\s*"(.+)"$}o) {
+        ($alttext, $page, $node) = ($1, $2, $3);
+        $type = 'section';
+        $quoted = 1; #... therefore | and / are allowed
+    }
+    # alttext and page
+    elsif(/^(.*?)\s*[|]\s*($page_rx)$/o) {
+        ($alttext, $page) = ($1, $2);
+        $type = 'page';
+    }
+    # alttext and "section"
+    elsif(m{^(.*?)\s*[|]\s*(?:/\s*|)"(.+)"$}) {
+        ($alttext, $node) = ($1,$2);
+        $type = 'section';
+        $quoted = 1;
+    }
+    # page and "section"
+    elsif(m{^($page_rx)\s*/\s*"(.+)"$}o) {
+        ($page, $node) = ($1, $2);
+        $type = 'section';
+        $quoted = 1;
+    }
+    # page and item
+    elsif(m{^($page_rx)\s*/\s*(.+)$}o) {
+        ($page, $node) = ($1, $2);
+        $type = 'item';
+    }
+    # only "section"
+    elsif(m{^/?"(.+)"$}) {
+        $node = $1;
+        $type = 'section';
+        $quoted = 1;
+    }
+    # only item
+    elsif(m{^\s*/(.+)$}) {
+        $node = $1;
+        $type = 'item';
+    }
+
+    # non-standard: Hyperlink with alt-text - doesn't remove protocol prefix, maybe it should?
+    elsif(/^ \s* (.*?) \s* [|] \s* (\w+:[^:\s] [^\s|]*?) \s* $/ix) {
+      ($alttext,$node) = ($1,$2);
+      $type = 'hyperlink';
+    }
+
+    # non-standard: Hyperlink
+    elsif(/^(\w+:[^:\s]\S*)$/i) {
+        $node = $1;
+        $type = 'hyperlink';
+    }
+    # alttext, page and item
+    elsif(m{^(.*?)\s*[|]\s*($page_rx)\s*/\s*(.+)$}o) {
+        ($alttext, $page, $node) = ($1, $2, $3);
+        $type = 'item';
+    }
+    # alttext and item
+    elsif(m{^(.*?)\s*[|]\s*/(.+)$}) {
+        ($alttext, $node) = ($1,$2);
+    }
+    # must be an item or a "malformed" section (without "")
+    else {
+        $node = $_;
+        $type = 'item';
+    }
+    # collapse whitespace in nodes
+    $node =~ s/\s+/ /gs;
+
+    # empty alternative text expands to node name
+    if(defined $alttext) {
+        if(!length($alttext)) {
+          $alttext = $node || $page;
+        }
+    }
+    else {
+        $alttext = '';
+    }
+
+    if($page =~ /[(]\w*[)]$/) {
+        $self->warning("(section) in '$page' deprecated");
+    }
+    if(!$quoted && $node =~ m{[|/]} && $type ne 'hyperlink') {
+        $self->warning("node '$node' contains non-escaped | or /");
+    }
+    if($alttext =~ m{[|/]}) {
+        $self->warning("alternative text '$node' contains non-escaped | or /");
+    }
+    $self->{-page} = $page;
+    $self->{-node} = $node;
+    $self->{-alttext} = $alttext;
+    #warn "DEBUG: page=$page section=$section item=$item alttext=$alttext\n";
+    $self->{-type} = $type;
+    $self->_construct_text();
+    1;
+}
+
+sub _construct_text {
+    my $self = shift;
+    my $alttext = $self->alttext();
+    my $type = $self->type();
+    my $section = $self->node();
+    my $page = $self->page();
+    my $page_ext = '';
+    $page =~ s/([(]\w*[)])$// && ($page_ext = $1);
+    if($alttext) {
+        $self->{_text} = $alttext;
+    }
+    elsif($type eq 'hyperlink') {
+        $self->{_text} = $section;
+    }
+    else {
+        $self->{_text} = ($section || '') .
+            (($page && $section) ? ' in ' : '') .
+            "$page$page_ext";
+    }
+    # for being marked up later
+    # use the non-standard markers P<> and Q<>, so that the resulting
+    # text can be parsed by the translators. It's their job to put
+    # the correct hypertext around the linktext
+    if($alttext) {
+        $self->{_markup} = "Q<$alttext>";
+    }
+    elsif($type eq 'hyperlink') {
+        $self->{_markup} = "Q<$section>";
+    }
+    else {
+        $self->{_markup} = (!$section ? '' : "Q<$section>") .
+            ($page ? ($section ? ' in ':'') . "P<$page>$page_ext" : '');
+    }
+}
+
+
+#' retrieve/set markuped text
+sub markup {
+    return (@_ > 1) ? ($_[0]->{_markup} = $_[1]) : $_[0]->{_markup};
+}
+
+
+# The complete link's text
+sub text {
+    return $_[0]->{_text};
+}
+
+
+# Set/retrieve warnings
+sub warning {
+    my $self = shift;
+    if(@_) {
+        push(@{$self->{_warnings}}, @_);
+        return @_;
+    }
+    return @{$self->{_warnings}};
+}
+
+
+# The line in the file the link appears
+sub line {
+    return (@_ > 1) ? ($_[0]->{-line} = $_[1]) : $_[0]->{-line};
+}
+
+# The POD file name the link appears in
+sub file {
+    return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+
+# The POD page the link appears on
+sub page {
+    if (@_ > 1) {
+        $_[0]->{-page} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-page};
+}
+
+
+# The link destination
+sub node {
+    if (@_ > 1) {
+        $_[0]->{-node} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-node};
+}
+
+
+# Potential alternative text
+sub alttext {
+    if (@_ > 1) {
+        $_[0]->{-alttext} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-alttext};
+}
+
+
+# The type: item or headn
+sub type {
+    return (@_ > 1) ? ($_[0]->{-type} = $_[1]) : $_[0]->{-type};
+}
+
+
+# The link itself
+sub link {
+    my $self = shift;
+    my $link = $self->page() || '';
+    if($self->node()) {
+        my $node = $self->node();
+        $node =~ s/\|/E<verbar>/g;
+        $node =~ s{/}{E<sol>}g;
+        if($self->type() eq 'section') {
+            $link .= ($link ? '/' : '') . '"' . $node . '"';
+        }
+        elsif($self->type() eq 'hyperlink') {
+            $link = $self->node();
+        }
+        else { # item
+            $link .= '/' . $node;
+        }
+    }
+    if($self->alttext()) {
+        my $text = $self->alttext();
+        $text =~ s/\|/E<verbar>/g;
+        $text =~ s{/}{E<sol>}g;
+        $link = "$text|$link";
+    }
+    return $link;
+}
+
+sub _invalid_link {
+    my ($msg) = @_;
+    # this sets @_
+    #eval { die "$msg\n" };
+    #chomp $@;
+    $@ = $msg; # this seems to work, too!
+    return;
+}
+
+#-----------------------------------------------------------------------------
+# Pod::Cache
+#
+# class to hold POD page details
+#-----------------------------------------------------------------------------
+
+package Pod::Cache;
+
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my $self = [];
+    bless $self, $class;
+    return $self;
+}
+
+
+sub item {
+    my ($self,%param) = @_;
+    if(%param) {
+        my $item = Pod::Cache::Item->new(%param);
+        push(@$self, $item);
+        return $item;
+    }
+    else {
+        return @{$self};
+    }
+}
+
+
+sub find_page {
+    my ($self,$page) = @_;
+    foreach(@$self) {
+        if($_->page() eq $page) {
+            return $_;
+        }
+    }
+    return;
+}
+
+package Pod::Cache::Item;
+
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-nodes} = [] unless(defined $self->{-nodes});
+}
+
+
+# The POD page
+sub page {
+   return (@_ > 1) ? ($_[0]->{-page} = $_[1]) : $_[0]->{-page};
+}
+
+
+# The POD description, taken out of NAME if present
+sub description {
+   return (@_ > 1) ? ($_[0]->{-description} = $_[1]) : $_[0]->{-description};
+}
+
+
+# The file path
+sub path {
+   return (@_ > 1) ? ($_[0]->{-path} = $_[1]) : $_[0]->{-path};
+}
+
+
+# The POD file name
+sub file {
+   return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+
+# The POD nodes
+sub nodes {
+    my ($self,@nodes) = @_;
+    if(@nodes) {
+        push(@{$self->{-nodes}}, @nodes);
+        return @nodes;
+    }
+    else {
+        return @{$self->{-nodes}};
+    }
+}
+
+
+sub find_node {
+    my ($self,$node) = @_;
+    my @search;
+    push(@search, @{$self->{-nodes}}) if($self->{-nodes});
+    push(@search, @{$self->{-idx}}) if($self->{-idx});
+    foreach(@search) {
+        if($_->[0] eq $node) {
+            return $_->[1]; # id
+        }
+    }
+    return;
+}
+
+
+# The POD index entries
+sub idx {
+    my ($self,@idx) = @_;
+    if(@idx) {
+        push(@{$self->{-idx}}, @idx);
+        return @idx;
+    }
+    else {
+        return @{$self->{-idx}};
+    }
+}
+
+
+1;
+#############################################################################
+# Pod/Parser.pm -- package which defines a base class for parsing POD docs.
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Parser;
+use strict;
+
+## These "variables" are used as local "glob aliases" for performance
+use vars qw($VERSION @ISA %myData %myOpts @input_stack);
+$VERSION = '1.63';  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+
+#############################################################################
+
+#use diagnostics;
+use Pod::InputObjects;
+use Carp;
+use Exporter;
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+@ISA = qw(Exporter);
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub command {
+    my ($self, $cmd, $text, $line_num, $pod_para)  = @_;
+    ## Just treat this like a textblock
+    $self->textblock($pod_para->raw_text(), $line_num, $pod_para);
+}
+
+##---------------------------------------------------------------------------
+
+
+sub verbatim {
+    my ($self, $text, $line_num, $pod_para) = @_;
+    my $out_fh = $self->{_OUTPUT};
+    print $out_fh $text;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub textblock {
+    my ($self, $text, $line_num, $pod_para) = @_;
+    my $out_fh = $self->{_OUTPUT};
+    print $out_fh $self->interpolate($text, $line_num);
+}
+
+##---------------------------------------------------------------------------
+
+
+sub interior_sequence {
+    my ($self, $seq_cmd, $seq_arg, $pod_seq) = @_;
+    ## Just return the raw text of the interior sequence
+    return  $pod_seq->raw_text();
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my ($this,%params) = @_;
+    my $class = ref($this) || $this;
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object.
+    my $self = { %params };
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub initialize {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub begin_pod {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub begin_input {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub end_input {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub end_pod {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub preprocess_line {
+    my ($self, $text, $line_num) = @_;
+    return  $text;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub preprocess_paragraph {
+    my ($self, $text, $line_num) = @_;
+    return  $text;
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub parse_text {
+    my $self = shift;
+    local $_ = '';
+
+    ## Get options and set any defaults
+    my %opts = (ref $_[0]) ? %{ shift() } : ();
+    my $expand_seq   = $opts{'-expand_seq'}   || undef;
+    my $expand_text  = $opts{'-expand_text'}  || undef;
+    my $expand_ptree = $opts{'-expand_ptree'} || undef;
+
+    my $text = shift;
+    my $line = shift;
+    my $file = $self->input_file();
+    my $cmd  = "";
+
+    ## Convert method calls into closures, for our convenience
+    my $xseq_sub   = $expand_seq;
+    my $xtext_sub  = $expand_text;
+    my $xptree_sub = $expand_ptree;
+    if (defined $expand_seq  and  $expand_seq eq 'interior_sequence') {
+        ## If 'interior_sequence' is the method to use, we have to pass
+        ## more than just the sequence object, we also need to pass the
+        ## sequence name and text.
+        $xseq_sub = sub {
+            my ($sself, $iseq) = @_;
+            my $args = join('', $iseq->parse_tree->children);
+            return  $sself->interior_sequence($iseq->name, $args, $iseq);
+        };
+    }
+    ref $xseq_sub    or  $xseq_sub   = sub { shift()->$expand_seq(@_) };
+    ref $xtext_sub   or  $xtext_sub  = sub { shift()->$expand_text(@_) };
+    ref $xptree_sub  or  $xptree_sub = sub { shift()->$expand_ptree(@_) };
+
+    ## Keep track of the "current" interior sequence, and maintain a stack
+    ## of "in progress" sequences.
+    ##
+    ## NOTE that we push our own "accumulator" at the very beginning of the
+    ## stack. It's really a parse-tree, not a sequence; but it implements
+    ## the methods we need so we can use it to gather-up all the sequences
+    ## and strings we parse. Thus, by the end of our parsing, it should be
+    ## the only thing left on our stack and all we have to do is return it!
+    ##
+    my $seq       = Pod::ParseTree->new();
+    my @seq_stack = ($seq);
+    my ($ldelim, $rdelim) = ('', '');
+
+    ## Iterate over all sequence starts text (NOTE: split with
+    ## capturing parens keeps the delimiters)
+    $_ = $text;
+    my @tokens = split /([A-Z]<(?:<+(?:\r?\n|[ \t]))?)/;
+    while ( @tokens ) {
+        $_ = shift @tokens;
+        ## Look for the beginning of a sequence
+        if ( /^([A-Z])(<(?:<+(?:\r?\n|[ \t]))?)$/ ) {
+            ## Push a new sequence onto the stack of those "in-progress"
+            my $ldelim_orig;
+            ($cmd, $ldelim_orig) = ($1, $2);
+            ($ldelim = $ldelim_orig) =~ s/\s+$//;
+            ($rdelim = $ldelim) =~ tr/</>/;
+            $seq = Pod::InteriorSequence->new(
+                       -name   => $cmd,
+                       -ldelim => $ldelim_orig,  -rdelim => $rdelim,
+                       -file   => $file,    -line   => $line
+                   );
+            (@seq_stack > 1)  and  $seq->nested($seq_stack[-1]);
+            push @seq_stack, $seq;
+        }
+        ## Look for sequence ending
+        elsif ( @seq_stack > 1 ) {
+            ## Make sure we match the right kind of closing delimiter
+            my ($seq_end, $post_seq) = ('', '');
+            if ( ($ldelim eq '<'   and  /\A(.*?)(>)/s)
+                 or  /\A(.*?)(\s+$rdelim)/s )
+            {
+                ## Found end-of-sequence, capture the interior and the
+                ## closing the delimiter, and put the rest back on the
+                ## token-list
+                $post_seq = substr($_, length($1) + length($2));
+                ($_, $seq_end) = ($1, $2);
+                (length $post_seq)  and  unshift @tokens, $post_seq;
+            }
+            if (length) {
+                ## In the middle of a sequence, append this text to it, and
+                ## don't forget to "expand" it if that's what the caller wanted
+                $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);
+                $_ .= $seq_end;
+            }
+            if (length $seq_end) {
+                ## End of current sequence, record terminating delimiter
+                $seq->rdelim($seq_end);
+                ## Pop it off the stack of "in progress" sequences
+                pop @seq_stack;
+                ## Append result to its parent in current parse tree
+                $seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq)
+                                                   : $seq);
+                ## Remember the current cmd-name and left-delimiter
+                if(@seq_stack > 1) {
+                    $cmd = $seq_stack[-1]->name;
+                    $ldelim = $seq_stack[-1]->ldelim;
+                    $rdelim = $seq_stack[-1]->rdelim;
+                } else {
+                    $cmd = $ldelim = $rdelim = '';
+                }
+            }
+        }
+        elsif (length) {
+            ## In the middle of a sequence, append this text to it, and
+            ## don't forget to "expand" it if that's what the caller wanted
+            $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);
+        }
+        ## Keep track of line count
+        $line += /\n/;
+        ## Remember the "current" sequence
+        $seq = $seq_stack[-1];
+    }
+
+    ## Handle unterminated sequences
+    my $errorsub = (@seq_stack > 1) ? $self->errorsub() : undef;
+    while (@seq_stack > 1) {
+       ($cmd, $file, $line) = ($seq->name, $seq->file_line);
+       $ldelim  = $seq->ldelim;
+       ($rdelim = $ldelim) =~ tr/</>/;
+       $rdelim  =~ s/^(\S+)(\s*)$/$2$1/;
+       pop @seq_stack;
+       my $errmsg = "*** ERROR: unterminated ${cmd}${ldelim}...${rdelim}".
+                    " at line $line in file $file\n";
+       (ref $errorsub) and &{$errorsub}($errmsg)
+           or (defined $errorsub) and $self->$errorsub($errmsg)
+               or  carp($errmsg);
+       $seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq) : $seq);
+       $seq = $seq_stack[-1];
+    }
+
+    ## Return the resulting parse-tree
+    my $ptree = (pop @seq_stack)->parse_tree;
+    return  $expand_ptree ? &$xptree_sub($self, $ptree) : $ptree;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub interpolate {
+    my($self, $text, $line_num) = @_;
+    my %parse_opts = ( -expand_seq => 'interior_sequence' );
+    my $ptree = $self->parse_text( \%parse_opts, $text, $line_num );
+    return  join '', $ptree->children();
+}
+
+##---------------------------------------------------------------------------
+
+
+sub parse_paragraph {
+    my ($self, $text, $line_num) = @_;
+    local *myData = $self;  ## alias to avoid deref-ing overhead
+    local *myOpts = ($myData{_PARSEOPTS} ||= {});  ## get parse-options
+    local $_;
+
+    ## See if we want to preprocess nonPOD paragraphs as well as POD ones.
+    my $wantNonPods = $myOpts{'-want_nonPODs'};
+
+    ## Update cutting status
+    $myData{_CUTTING} = 0 if $text =~ /^={1,2}\S/;
+
+    ## Perform any desired preprocessing if we wanted it this early
+    $wantNonPods  and  $text = $self->preprocess_paragraph($text, $line_num);
+
+    ## Ignore up until next POD directive if we are cutting
+    return if $myData{_CUTTING};
+
+    ## Now we know this is block of text in a POD section!
+
+    ##-----------------------------------------------------------------
+    ## This is a hook (hack ;-) for Pod::Select to do its thing without
+    ## having to override methods, but also without Pod::Parser assuming
+    ## $self is an instance of Pod::Select (if the _SELECTED_SECTIONS
+    ## field exists then we assume there is an is_selected() method for
+    ## us to invoke (calling $self->can('is_selected') could verify this
+    ## but that is more overhead than I want to incur)
+    ##-----------------------------------------------------------------
+
+    ## Ignore this block if it isn't in one of the selected sections
+    if (exists $myData{_SELECTED_SECTIONS}) {
+        $self->is_selected($text)  or  return ($myData{_CUTTING} = 1);
+    }
+
+    ## If we haven't already, perform any desired preprocessing and
+    ## then re-check the "cutting" state
+    unless ($wantNonPods) {
+       $text = $self->preprocess_paragraph($text, $line_num);
+       return 1  unless ((defined $text) and (length $text));
+       return 1  if ($myData{_CUTTING});
+    }
+
+    ## Look for one of the three types of paragraphs
+    my ($pfx, $cmd, $arg, $sep) = ('', '', '', '');
+    my $pod_para = undef;
+    if ($text =~ /^(={1,2})(?=\S)/) {
+        ## Looks like a command paragraph. Capture the command prefix used
+        ## ("=" or "=="), as well as the command-name, its paragraph text,
+        ## and whatever sequence of characters was used to separate them
+        $pfx = $1;
+        $_ = substr($text, length $pfx);
+        ($cmd, $sep, $text) = split /(\s+)/, $_, 2;
+        $sep = '' unless defined $sep;
+        $text = '' unless defined $text;
+        ## If this is a "cut" directive then we don't need to do anything
+        ## except return to "cutting" mode.
+        if ($cmd eq 'cut') {
+           $myData{_CUTTING} = 1;
+           return  unless $myOpts{'-process_cut_cmd'};
+        }
+    }
+    ## Save the attributes indicating how the command was specified.
+    $pod_para = new Pod::Paragraph(
+          -name      => $cmd,
+          -text      => $text,
+          -prefix    => $pfx,
+          -separator => $sep,
+          -file      => $myData{_INFILE},
+          -line      => $line_num
+    );
+    # ## Invoke appropriate callbacks
+    # if (exists $myData{_CALLBACKS}) {
+    #    ## Look through the callback list, invoke callbacks,
+    #    ## then see if we need to do the default actions
+    #    ## (invoke_callbacks will return true if we do).
+    #    return  1  unless $self->invoke_callbacks($cmd, $text, $line_num, $pod_para);
+    # }
+
+    # If the last paragraph ended in whitespace, and we're not between verbatim blocks, carp
+    if ($myData{_WHITESPACE} and $myOpts{'-warnings'}
+            and not ($text =~ /^\s+/ and ($myData{_PREVIOUS}||"") eq "verbatim")) {
+        my $errorsub = $self->errorsub();
+        my $line = $line_num - 1;
+        my $errmsg = "*** WARNING: line containing nothing but whitespace".
+                     " in paragraph at line $line in file $myData{_INFILE}\n";
+        (ref $errorsub) and &{$errorsub}($errmsg)
+            or (defined $errorsub) and $self->$errorsub($errmsg)
+                or  carp($errmsg);
+    }
+
+    if (length $cmd) {
+        ## A command paragraph
+        $self->command($cmd, $text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = $cmd;
+    }
+    elsif ($text =~ /^\s+/) {
+        ## Indented text - must be a verbatim paragraph
+        $self->verbatim($text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = "verbatim";
+    }
+    else {
+        ## Looks like an ordinary block of text
+        $self->textblock($text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = "textblock";
+    }
+
+    # Update the whitespace for the next time around
+    #$myData{_WHITESPACE} = $text =~ /^[^\S\r\n]+\Z/m ? 1 : 0;
+    $myData{_WHITESPACE} = $text =~ /^[^\S\r\n]+\r*\Z/m ? 1 : 0;
+
+    return  1;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub parse_from_filehandle {
+    my $self = shift;
+    my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
+    my ($in_fh, $out_fh) = @_;
+    $in_fh = \*STDIN  unless ($in_fh);
+    local *myData = $self;  ## alias to avoid deref-ing overhead
+    local *myOpts = ($myData{_PARSEOPTS} ||= {});  ## get parse-options
+    local $_;
+
+    ## Put this stream at the top of the stack and do beginning-of-input
+    ## processing. NOTE that $in_fh might be reset during this process.
+    my $topstream = $self->_push_input_stream($in_fh, $out_fh);
+    (exists $opts{-cutting})  and  $self->cutting( $opts{-cutting} );
+
+    ## Initialize line/paragraph
+    my ($textline, $paragraph) = ('', '');
+    my ($nlines, $plines) = (0, 0);
+
+    ## Use <$fh> instead of $fh->getline where possible (for speed)
+    $_ = ref $in_fh;
+    my $tied_fh = (/^(?:GLOB|FileHandle|IO::\w+)$/  or  tied $in_fh);
+
+    ## Read paragraphs line-by-line
+    while (defined ($textline = $tied_fh ? <$in_fh> : $in_fh->getline)) {
+        $textline = $self->preprocess_line($textline, ++$nlines);
+        next  unless ((defined $textline)  &&  (length $textline));
+
+        if ((! length $paragraph) && ($textline =~ /^==/)) {
+            ## '==' denotes a one-line command paragraph
+            $paragraph = $textline;
+            $plines    = 1;
+            $textline  = '';
+        } else {
+            ## Append this line to the current paragraph
+            $paragraph .= $textline;
+            ++$plines;
+        }
+
+        ## See if this line is blank and ends the current paragraph.
+        ## If it isn't, then keep iterating until it is.
+        next unless (($textline =~ /^[^\S\r\n]*[\r\n]*$/)
+                                     && (length $paragraph));
+
+        ## Now process the paragraph
+        parse_paragraph($self, $paragraph, ($nlines - $plines) + 1);
+        $paragraph = '';
+        $plines = 0;
+    }
+    ## Don't forget about the last paragraph in the file
+    if (length $paragraph) {
+       parse_paragraph($self, $paragraph, ($nlines - $plines) + 1)
+    }
+
+    ## Now pop the input stream off the top of the input stack.
+    $self->_pop_input_stream();
+}
+
+##---------------------------------------------------------------------------
+
+
+sub parse_from_file {
+    my $self = shift;
+    my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
+    my ($infile, $outfile) = @_;
+    my ($in_fh,  $out_fh);
+    if ($] < 5.006) {
+      ($in_fh,  $out_fh) = (gensym(), gensym());
+    }
+    my ($close_input, $close_output) = (0, 0);
+    local *myData = $self;
+    local *_;
+
+    ## Is $infile a filename or a (possibly implied) filehandle
+    if (defined $infile && ref $infile) {
+        if (ref($infile) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/) {
+            croak "Input from $1 reference not supported!\n";
+        }
+        ## Must be a filehandle-ref (or else assume its a ref to an object
+        ## that supports the common IO read operations).
+        $myData{_INFILE} = ${$infile};
+        $in_fh = $infile;
+    }
+    elsif (!defined($infile) || !length($infile) || ($infile eq '-')
+        || ($infile =~ /^<&(?:STDIN|0)$/i))
+    {
+        ## Not a filename, just a string implying STDIN
+        $infile ||= '-';
+        $myData{_INFILE} = '<standard input>';
+        $in_fh = \*STDIN;
+    }
+    else {
+        ## We have a filename, open it for reading
+        $myData{_INFILE} = $infile;
+        open($in_fh, "< $infile")  or
+             croak "Can't open $infile for reading: $!\n";
+        $close_input = 1;
+    }
+
+    ## NOTE: we need to be *very* careful when "defaulting" the output
+    ## file. We only want to use a default if this is the beginning of
+    ## the entire document (but *not* if this is an included file). We
+    ## determine this by seeing if the input stream stack has been set-up
+    ## already
+
+    ## Is $outfile a filename, a (possibly implied) filehandle, maybe a ref?
+    if (ref $outfile) {
+        ## we need to check for ref() first, as other checks involve reading
+        if (ref($outfile) =~ /^(ARRAY|HASH|CODE)$/) {
+            croak "Output to $1 reference not supported!\n";
+        }
+        elsif (ref($outfile) eq 'SCALAR') {
+#           # NOTE: IO::String isn't a part of the perl distribution,
+#           #       so probably we shouldn't support this case...
+#           require IO::String;
+#           $myData{_OUTFILE} = "$outfile";
+#           $out_fh = IO::String->new($outfile);
+            croak "Output to SCALAR reference not supported!\n";
+        }
+        else {
+            ## Must be a filehandle-ref (or else assume its a ref to an
+            ## object that supports the common IO write operations).
+            $myData{_OUTFILE} = ${$outfile};
+            $out_fh = $outfile;
+        }
+    }
+    elsif (!defined($outfile) || !length($outfile) || ($outfile eq '-')
+        || ($outfile =~ /^>&?(?:STDOUT|1)$/i))
+    {
+        if (defined $myData{_TOP_STREAM}) {
+            $out_fh = $myData{_OUTPUT};
+        }
+        else {
+            ## Not a filename, just a string implying STDOUT
+            $outfile ||= '-';
+            $myData{_OUTFILE} = '<standard output>';
+            $out_fh  = \*STDOUT;
+        }
+    }
+    elsif ($outfile =~ /^>&(STDERR|2)$/i) {
+        ## Not a filename, just a string implying STDERR
+        $myData{_OUTFILE} = '<standard error>';
+        $out_fh  = \*STDERR;
+    }
+    else {
+        ## We have a filename, open it for writing
+        $myData{_OUTFILE} = $outfile;
+        (-d $outfile) and croak "$outfile is a directory, not POD input!\n";
+        open($out_fh, "> $outfile")  or
+             croak "Can't open $outfile for writing: $!\n";
+        $close_output = 1;
+    }
+
+    ## Whew! That was a lot of work to set up reasonably/robust behavior
+    ## in the case of a non-filename for reading and writing. Now we just
+    ## have to parse the input and close the handles when we're finished.
+    $self->parse_from_filehandle(\%opts, $in_fh, $out_fh);
+
+    $close_input  and
+        close($in_fh) || croak "Can't close $infile after reading: $!\n";
+    $close_output  and
+        close($out_fh) || croak "Can't close $outfile after writing: $!\n";
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub errorsub {
+   return (@_ > 1) ? ($_[0]->{_ERRORSUB} = $_[1]) : $_[0]->{_ERRORSUB};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub cutting {
+   return (@_ > 1) ? ($_[0]->{_CUTTING} = $_[1]) : $_[0]->{_CUTTING};
+}
+
+##---------------------------------------------------------------------------
+
+##---------------------------------------------------------------------------
+
+
+sub parseopts {
+   local *myData = shift;
+   local *myOpts = ($myData{_PARSEOPTS} ||= {});
+   return %myOpts  if (@_ == 0);
+   if (@_ == 1) {
+      local $_ = shift;
+      return  ref($_)  ?  $myData{_PARSEOPTS} = $_  :  $myOpts{$_};
+   }
+   my @newOpts = (%myOpts, @_);
+   $myData{_PARSEOPTS} = { @newOpts };
+}
+
+##---------------------------------------------------------------------------
+
+
+sub output_file {
+   return $_[0]->{_OUTFILE};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub output_handle {
+   return $_[0]->{_OUTPUT};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub input_file {
+   return $_[0]->{_INFILE};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub input_handle {
+   return $_[0]->{_INPUT};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub input_streams {
+   return $_[0]->{_INPUT_STREAMS};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub top_stream {
+   return $_[0]->{_TOP_STREAM} || undef;
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub _push_input_stream {
+    my ($self, $in_fh, $out_fh) = @_;
+    local *myData = $self;
+
+    ## Initialize stuff for the entire document if this is *not*
+    ## an included file.
+    ##
+    ## NOTE: we need to be *very* careful when "defaulting" the output
+    ## filehandle. We only want to use a default value if this is the
+    ## beginning of the entire document (but *not* if this is an included
+    ## file).
+    unless (defined  $myData{_TOP_STREAM}) {
+        $out_fh  = \*STDOUT  unless (defined $out_fh);
+        $myData{_CUTTING}       = 1;   ## current "cutting" state
+        $myData{_INPUT_STREAMS} = [];  ## stack of all input streams
+    }
+
+    ## Initialize input indicators
+    $myData{_OUTFILE} = '(unknown)'  unless (defined  $myData{_OUTFILE});
+    $myData{_OUTPUT}  = $out_fh      if (defined  $out_fh);
+    $in_fh            = \*STDIN      unless (defined  $in_fh);
+    $myData{_INFILE}  = '(unknown)'  unless (defined  $myData{_INFILE});
+    $myData{_INPUT}   = $in_fh;
+    my $input_top     = $myData{_TOP_STREAM}
+                      = new Pod::InputSource(
+                            -name        => $myData{_INFILE},
+                            -handle      => $in_fh,
+                            -was_cutting => $myData{_CUTTING}
+                        );
+    local *input_stack = $myData{_INPUT_STREAMS};
+    push(@input_stack, $input_top);
+
+    ## Perform beginning-of-document and/or beginning-of-input processing
+    $self->begin_pod()  if (@input_stack == 1);
+    $self->begin_input();
+
+    return  $input_top;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub _pop_input_stream {
+    my ($self) = @_;
+    local *myData = $self;
+    local *input_stack = $myData{_INPUT_STREAMS};
+
+    ## Perform end-of-input and/or end-of-document processing
+    $self->end_input()  if (@input_stack > 0);
+    $self->end_pod()    if (@input_stack == 1);
+
+    ## Restore cutting state to whatever it was before we started
+    ## parsing this file.
+    my $old_top = pop(@input_stack);
+    $myData{_CUTTING} = $old_top->was_cutting();
+
+    ## Don't forget to reset the input indicators
+    my $input_top = undef;
+    if (@input_stack > 0) {
+       $input_top = $myData{_TOP_STREAM} = $input_stack[-1];
+       $myData{_INFILE}  = $input_top->name();
+       $myData{_INPUT}   = $input_top->handle();
+    } else {
+       delete $myData{_TOP_STREAM};
+       delete $myData{_INPUT_STREAMS};
+    }
+
+    return  $input_top;
+}
+
+#############################################################################
+
+
+1;
+# vim: ts=4 sw=4 et
+package Pod::Html;
+use strict;
+require Exporter;
+
+our $VERSION = 1.24;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(pod2html htmlify);
+our @EXPORT_OK = qw(anchorify relativize_url);
+
+use Carp;
+use Config;
+use Cwd;
+use File::Basename;
+use File::Spec;
+use File::Spec::Unix;
+use Getopt::Long;
+use Pod::Simple::Search;
+use Pod::Simple::SimpleTree ();
+use locale; # make \w work right in non-ASCII lands
+
+
+# This sub duplicates the guts of Pod::Simple::FromTree.  We could have
+# used that module, except that it would have been a non-core dependency.
+sub feed_tree_to_parser {
+    my($parser, $tree) = @_;
+    if(ref($tree) eq "") {
+	$parser->_handle_text($tree);
+    } elsif(!($tree->[0] eq "X" && $parser->nix_X_codes)) {
+	$parser->_handle_element_start($tree->[0], $tree->[1]);
+	feed_tree_to_parser($parser, $_) foreach @{$tree}[2..$#$tree];
+	$parser->_handle_element_end($tree->[0]);
+    }
+}
+
+my $Cachedir; 
+my $Dircache;
+my($Htmlroot, $Htmldir, $Htmlfile, $Htmlfileurl);
+my($Podfile, @Podpath, $Podroot);
+my $Poderrors;
+my $Css;
+
+my $Recurse;
+my $Quiet;
+my $Verbose;
+my $Doindex;
+
+my $Backlink;
+
+my($Title, $Header);
+
+my %Pages = ();                 # associative array used to find the location
+                                #   of pages referenced by L<> links.
+
+my $Curdir = File::Spec->curdir;
+
+init_globals();
+
+sub init_globals {
+    $Cachedir = ".";            # The directory to which directory caches
+                                #   will be written.
+
+    $Dircache = "pod2htmd.tmp";
+
+    $Htmlroot = "/";            # http-server base directory from which all
+                                #   relative paths in $podpath stem.
+    $Htmldir = "";              # The directory to which the html pages
+                                #   will (eventually) be written.
+    $Htmlfile = "";             # write to stdout by default
+    $Htmlfileurl = "";          # The url that other files would use to
+                                # refer to this file.  This is only used
+                                # to make relative urls that point to
+                                # other files.
+
+    $Poderrors = 1;
+    $Podfile = "";              # read from stdin by default
+    @Podpath = ();              # list of directories containing library pods.
+    $Podroot = $Curdir;         # filesystem base directory from which all
+                                #   relative paths in $podpath stem.
+    $Css = '';                  # Cascading style sheet
+    $Recurse = 1;               # recurse on subdirectories in $podpath.
+    $Quiet = 0;                 # not quiet by default
+    $Verbose = 0;               # not verbose by default
+    $Doindex = 1;               # non-zero if we should generate an index
+    $Backlink = 0;              # no backlinks added by default
+    $Header = 0;                # produce block header/footer
+    $Title = undef;             # title to give the pod(s)
+}
+
+sub pod2html {
+    local(@ARGV) = @_;
+    local $_;
+
+    init_globals();
+    parse_command_line();
+
+    # prevent '//' in urls
+    $Htmlroot = "" if $Htmlroot eq "/";
+    $Htmldir =~ s#/\z##;
+
+    if (  $Htmlroot eq ''
+       && defined( $Htmldir )
+       && $Htmldir ne ''
+       && substr( $Htmlfile, 0, length( $Htmldir ) ) eq $Htmldir
+       ) {
+        # Set the 'base' url for this file, so that we can use it
+        # as the location from which to calculate relative links
+        # to other files. If this is '', then absolute links will
+        # be used throughout.
+        #$Htmlfileurl = "$Htmldir/" . substr( $Htmlfile, length( $Htmldir ) + 1);
+        # Is the above not just "$Htmlfileurl = $Htmlfile"?
+        $Htmlfileurl = Pod::Html::_unixify($Htmlfile);
+
+    }
+
+    # load or generate/cache %Pages
+    unless (get_cache($Dircache, \@Podpath, $Podroot, $Recurse)) {
+        # generate %Pages
+        my $pwd = getcwd();
+        chdir($Podroot) || 
+            die "$0: error changing to directory $Podroot: $!\n";
+
+        # find all pod modules/pages in podpath, store in %Pages
+        # - callback used to remove Podroot and extension from each file
+        # - laborious to allow '.' in dirnames (e.g., /usr/share/perl/5.14.1)
+        Pod::Simple::Search->new->inc(0)->verbose($Verbose)->laborious(1)
+            ->callback(\&_save_page)->recurse($Recurse)->survey(@Podpath);
+
+        chdir($pwd) || die "$0: error changing to directory $pwd: $!\n";
+
+        # cache the directory list for later use
+        warn "caching directories for later use\n" if $Verbose;
+        open my $cache, '>', $Dircache
+            or die "$0: error open $Dircache for writing: $!\n";
+
+        print $cache join(":", @Podpath) . "\n$Podroot\n";
+        my $_updirs_only = ($Podroot =~ /\.\./) && !($Podroot =~ /[^\.\\\/]/);
+        foreach my $key (keys %Pages) {
+            if($_updirs_only) {
+              my $_dirlevel = $Podroot;
+              while($_dirlevel =~ /\.\./) {
+                $_dirlevel =~ s/\.\.//;
+                # Assume $Pages{$key} has '/' separators (html dir separators).
+                $Pages{$key} =~ s/^[\w\s\-\.]+\///;
+              }
+            }
+            print $cache "$key $Pages{$key}\n";
+        }
+
+        close $cache or die "error closing $Dircache: $!";
+    }
+
+    my $input;
+    unless (@ARGV && $ARGV[0]) {
+        if ($Podfile and $Podfile ne '-') {
+            $input = $Podfile;
+        } else {
+            $input = '-'; # XXX: make a test case for this
+        }
+    } else {
+        $Podfile = $ARGV[0];
+        $input = *ARGV;
+    }
+
+    # set options for input parser
+    my $parser = Pod::Simple::SimpleTree->new;
+    $parser->codes_in_verbatim(0);
+    $parser->accept_targets(qw(html HTML));
+    $parser->no_errata_section(!$Poderrors); # note the inverse
+
+    warn "Converting input file $Podfile\n" if $Verbose;
+    my $podtree = $parser->parse_file($input)->root;
+
+    unless(defined $Title) {
+	if($podtree->[0] eq "Document" && ref($podtree->[2]) eq "ARRAY" &&
+		$podtree->[2]->[0] eq "head1" && @{$podtree->[2]} == 3 &&
+		ref($podtree->[2]->[2]) eq "" && $podtree->[2]->[2] eq "NAME" &&
+		ref($podtree->[3]) eq "ARRAY" && $podtree->[3]->[0] eq "Para" &&
+		@{$podtree->[3]} >= 3 &&
+		!(grep { ref($_) ne "" }
+		    @{$podtree->[3]}[2..$#{$podtree->[3]}]) &&
+		(@$podtree == 4 ||
+		    (ref($podtree->[4]) eq "ARRAY" &&
+			$podtree->[4]->[0] eq "head1"))) {
+	    $Title = join("", @{$podtree->[3]}[2..$#{$podtree->[3]}]);
+	}
+    }
+
+    $Title //= "";
+    $Title = html_escape($Title);
+
+    # set options for the HTML generator
+    $parser = Pod::Simple::XHTML::LocalPodLinks->new();
+    $parser->codes_in_verbatim(0);
+    $parser->anchor_items(1); # the old Pod::Html always did
+    $parser->backlink($Backlink); # linkify =head1 directives
+    $parser->force_title($Title);
+    $parser->htmldir($Htmldir);
+    $parser->htmlfileurl($Htmlfileurl);
+    $parser->htmlroot($Htmlroot);
+    $parser->index($Doindex);
+    $parser->output_string(\my $output); # written to file later
+    $parser->pages(\%Pages);
+    $parser->quiet($Quiet);
+    $parser->verbose($Verbose);
+
+    # We need to add this ourselves because we use our own header, not
+    # ::XHTML's header. We need to set $parser->backlink to linkify
+    # the =head1 directives
+    my $bodyid = $Backlink ? ' id="_podtop_"' : '';
+
+    my $csslink = '';
+    my $tdstyle = ' style="background-color: #cccccc; color: #000"';
+
+    if ($Css) {
+        $csslink = qq(\n<link rel="stylesheet" href="$Css" type="text/css" />);
+        $csslink =~ s,\\,/,g;
+        $csslink =~ s,(/.):,$1|,;
+        $tdstyle= '';
+    }
+
+    # header/footer block
+    my $block = $Header ? <<END_OF_BLOCK : '';
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="_podblock_"$tdstyle valign="middle">
+<big><strong><span class="_podblock_">&nbsp;$Title</span></strong></big>
+</td></tr>
+</table>
+END_OF_BLOCK
+
+    # create own header/footer because of --header
+    $parser->html_header(<<"HTMLHEAD");
+<?xml version="1.0" ?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<title>$Title</title>$csslink
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:$Config{perladmin}" />
+</head>
+
+<body$bodyid>
+$block
+HTMLHEAD
+
+    $parser->html_footer(<<"HTMLFOOT");
+$block
+</body>
+
+</html>
+HTMLFOOT
+
+    feed_tree_to_parser($parser, $podtree);
+
+    # Write output to file
+    $Htmlfile = "-" unless $Htmlfile; # stdout
+    my $fhout;
+    if($Htmlfile and $Htmlfile ne '-') {
+        open $fhout, ">", $Htmlfile
+            or die "$0: cannot open $Htmlfile file for output: $!\n";
+    } else {
+        open $fhout, ">-";
+    }
+    binmode $fhout, ":utf8";
+    print $fhout $output;
+    close $fhout or die "Failed to close $Htmlfile: $!";
+    chmod 0644, $Htmlfile unless $Htmlfile eq '-';
+}
+
+##############################################################################
+
+sub usage {
+    my $podfile = shift;
+    warn "$0: $podfile: @_\n" if @_;
+    die <<END_OF_USAGE;
+Usage:  $0 --help --htmldir=<name> --htmlroot=<URL>
+           --infile=<name> --outfile=<name>
+           --podpath=<name>:...:<name> --podroot=<name>
+           --cachedir=<name> --flush --recurse --norecurse
+           --quiet --noquiet --verbose --noverbose
+           --index --noindex --backlink --nobacklink
+           --header --noheader --poderrors --nopoderrors
+           --css=<URL> --title=<name>
+
+  --[no]backlink  - turn =head1 directives into links pointing to the top of
+                      the page (off by default).
+  --cachedir      - directory for the directory cache files.
+  --css           - stylesheet URL
+  --flush         - flushes the directory cache.
+  --[no]header    - produce block header/footer (default is no headers).
+  --help          - prints this message.
+  --htmldir       - directory for resulting HTML files.
+  --htmlroot      - http-server base directory from which all relative paths
+                      in podpath stem (default is /).
+  --[no]index     - generate an index at the top of the resulting html
+                      (default behaviour).
+  --infile        - filename for the pod to convert (input taken from stdin
+                      by default).
+  --outfile       - filename for the resulting html file (output sent to
+                      stdout by default).
+  --[no]poderrors - include a POD ERRORS section in the output if there were 
+                      any POD errors in the input (default behavior).
+  --podpath       - colon-separated list of directories containing library
+                      pods (empty by default).
+  --podroot       - filesystem base directory from which all relative paths
+                      in podpath stem (default is .).
+  --[no]quiet     - suppress some benign warning messages (default is off).
+  --[no]recurse   - recurse on those subdirectories listed in podpath
+                      (default behaviour).
+  --title         - title that will appear in resulting html file.
+  --[no]verbose   - self-explanatory (off by default).
+
+END_OF_USAGE
+
+}
+
+sub parse_command_line {
+    my ($opt_backlink,$opt_cachedir,$opt_css,$opt_flush,$opt_header,
+        $opt_help,$opt_htmldir,$opt_htmlroot,$opt_index,$opt_infile,
+        $opt_outfile,$opt_poderrors,$opt_podpath,$opt_podroot,
+        $opt_quiet,$opt_recurse,$opt_title,$opt_verbose);
+
+    unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html};
+    my $result = GetOptions(
+                       'backlink!'  => \$opt_backlink,
+                       'cachedir=s' => \$opt_cachedir,
+                       'css=s'      => \$opt_css,
+                       'flush'      => \$opt_flush,
+                       'help'       => \$opt_help,
+                       'header!'    => \$opt_header,
+                       'htmldir=s'  => \$opt_htmldir,
+                       'htmlroot=s' => \$opt_htmlroot,
+                       'index!'     => \$opt_index,
+                       'infile=s'   => \$opt_infile,
+                       'outfile=s'  => \$opt_outfile,
+                       'poderrors!' => \$opt_poderrors,
+                       'podpath=s'  => \$opt_podpath,
+                       'podroot=s'  => \$opt_podroot,
+                       'quiet!'     => \$opt_quiet,
+                       'recurse!'   => \$opt_recurse,
+                       'title=s'    => \$opt_title,
+                       'verbose!'   => \$opt_verbose,
+    );
+    usage("-", "invalid parameters") if not $result;
+
+    usage("-") if defined $opt_help;    # see if the user asked for help
+    $opt_help = "";                     # just to make -w shut-up.
+
+    @Podpath  = split(":", $opt_podpath) if defined $opt_podpath;
+
+    $Backlink  =          $opt_backlink   if defined $opt_backlink;
+    $Cachedir  = _unixify($opt_cachedir)  if defined $opt_cachedir;
+    $Css       =          $opt_css        if defined $opt_css;
+    $Header    =          $opt_header     if defined $opt_header;
+    $Htmldir   = _unixify($opt_htmldir)   if defined $opt_htmldir;
+    $Htmlroot  = _unixify($opt_htmlroot)  if defined $opt_htmlroot;
+    $Doindex   =          $opt_index      if defined $opt_index;
+    $Podfile   = _unixify($opt_infile)    if defined $opt_infile;
+    $Htmlfile  = _unixify($opt_outfile)   if defined $opt_outfile;
+    $Poderrors =          $opt_poderrors  if defined $opt_poderrors;
+    $Podroot   = _unixify($opt_podroot)   if defined $opt_podroot;
+    $Quiet     =          $opt_quiet      if defined $opt_quiet;
+    $Recurse   =          $opt_recurse    if defined $opt_recurse;
+    $Title     =          $opt_title      if defined $opt_title;
+    $Verbose   =          $opt_verbose    if defined $opt_verbose;
+
+    warn "Flushing directory caches\n"
+        if $opt_verbose && defined $opt_flush;
+    $Dircache = "$Cachedir/pod2htmd.tmp";
+    if (defined $opt_flush) {
+        1 while unlink($Dircache);
+    }
+}
+
+my $Saved_Cache_Key;
+
+sub get_cache {
+    my($dircache, $podpath, $podroot, $recurse) = @_;
+    my @cache_key_args = @_;
+
+    # A first-level cache:
+    # Don't bother reading the cache files if they still apply
+    # and haven't changed since we last read them.
+
+    my $this_cache_key = cache_key(@cache_key_args);
+    return 1 if $Saved_Cache_Key and $this_cache_key eq $Saved_Cache_Key;
+    $Saved_Cache_Key = $this_cache_key;
+
+    # load the cache of %Pages if possible.  $tests will be
+    # non-zero if successful.
+    my $tests = 0;
+    if (-f $dircache) {
+        warn "scanning for directory cache\n" if $Verbose;
+        $tests = load_cache($dircache, $podpath, $podroot);
+    }
+
+    return $tests;
+}
+
+sub cache_key {
+    my($dircache, $podpath, $podroot, $recurse) = @_;
+    return join('!',$dircache,$recurse,@$podpath,$podroot,stat($dircache));
+}
+
+#
+# load_cache - tries to find if the cache stored in $dircache is a valid
+#  cache of %Pages.  if so, it loads them and returns a non-zero value.
+#
+sub load_cache {
+    my($dircache, $podpath, $podroot) = @_;
+    my $tests = 0;
+    local $_;
+
+    warn "scanning for directory cache\n" if $Verbose;
+    open(my $cachefh, '<', $dircache) ||
+        die "$0: error opening $dircache for reading: $!\n";
+    $/ = "\n";
+
+    # is it the same podpath?
+    $_ = <$cachefh>;
+    chomp($_);
+    $tests++ if (join(":", @$podpath) eq $_);
+
+    # is it the same podroot?
+    $_ = <$cachefh>;
+    chomp($_);
+    $tests++ if ($podroot eq $_);
+
+    # load the cache if its good
+    if ($tests != 2) {
+        close($cachefh);
+        return 0;
+    }
+
+    warn "loading directory cache\n" if $Verbose;
+    while (<$cachefh>) {
+        /(.*?) (.*)$/;
+        $Pages{$1} = $2;
+    }
+
+    close($cachefh);
+    return 1;
+}
+
+
+#
+# html_escape: make text safe for HTML
+#
+sub html_escape {
+    my $rest = $_[0];
+    $rest   =~ s/&/&amp;/g;
+    $rest   =~ s/</&lt;/g;
+    $rest   =~ s/>/&gt;/g;
+    $rest   =~ s/"/&quot;/g;
+    $rest =~ s/([[:^print:]])/sprintf("&#x%x;", ord($1))/aeg;
+    return $rest;
+}
+
+#
+# htmlify - converts a pod section specification to a suitable section
+# specification for HTML.  We adopt the mechanism used by the formatter
+# that we use.
+#
+sub htmlify {
+    my( $heading) = @_;
+    return Pod::Simple::XHTML->can("idify")->(undef, $heading, 1);
+}
+
+#
+# similar to htmlify, but turns non-alphanumerics into underscores
+#
+sub anchorify {
+    my ($anchor) = @_;
+    $anchor = htmlify($anchor);
+    $anchor =~ s/\W/_/g;
+    return $anchor;
+}
+
+#
+# store POD files in %Pages
+#
+sub _save_page {
+    my ($modspec, $modname) = @_;
+
+    # Remove Podroot from path
+    $modspec = $Podroot eq File::Spec->curdir
+               ? File::Spec->abs2rel($modspec)
+               : File::Spec->abs2rel($modspec,
+                                     File::Spec->canonpath($Podroot));
+
+    # Convert path to unix style path
+    $modspec = Pod::Html::_unixify($modspec);
+
+    my ($file, $dir) = fileparse($modspec, qr/\.[^.]*/); # strip .ext
+    $Pages{$modname} = $dir.$file;
+}
+
+sub _unixify {
+    my $full_path = shift;
+    return '' unless $full_path;
+    return $full_path if $full_path eq '/';
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath($full_path);
+    my @dirs = $dirs eq File::Spec->curdir()
+               ? (File::Spec::Unix->curdir())
+               : File::Spec->splitdir($dirs);
+    if (defined($vol) && $vol) {
+        $vol =~ s/:$// if $^O eq 'VMS';
+        $vol = uc $vol if $^O eq 'MSWin32';
+
+        if( $dirs[0] ) {
+            unshift @dirs, $vol;
+        }
+        else {
+            $dirs[0] = $vol;
+        }
+    }
+    unshift @dirs, '' if File::Spec->file_name_is_absolute($full_path);
+    return $file unless scalar(@dirs);
+    $full_path = File::Spec::Unix->catfile(File::Spec::Unix->catdir(@dirs),
+                                           $file);
+    $full_path =~ s|^\/|| if $^O eq 'MSWin32'; # C:/foo works, /C:/foo doesn't
+    $full_path =~ s/\^\././g if $^O eq 'VMS'; # unescape dots
+    return $full_path;
+}
+
+package Pod::Simple::XHTML::LocalPodLinks;
+use strict;
+use warnings;
+use parent 'Pod::Simple::XHTML';
+
+use File::Spec;
+use File::Spec::Unix;
+
+__PACKAGE__->_accessorize(
+ 'htmldir',
+ 'htmlfileurl',
+ 'htmlroot',
+ 'pages', # Page name => relative/path/to/page from root POD dir
+ 'quiet',
+ 'verbose',
+);
+
+sub resolve_pod_page_link {
+    my ($self, $to, $section) = @_;
+
+    return undef unless defined $to || defined $section;
+    if (defined $section) {
+        $section = '#' . $self->idify($section, 1);
+        return $section unless defined $to;
+    } else {
+        $section = '';
+    }
+
+    my $path; # path to $to according to %Pages
+    unless (exists $self->pages->{$to}) {
+        # Try to find a POD that ends with $to and use that.
+        # e.g., given L<XHTML>, if there is no $Podpath/XHTML in %Pages,
+        # look for $Podpath/*/XHTML in %Pages, with * being any path,
+        # as a substitute (e.g., $Podpath/Pod/Simple/XHTML)
+        my @matches;
+        foreach my $modname (keys %{$self->pages}) {
+            push @matches, $modname if $modname =~ /::\Q$to\E\z/;
+        }
+
+        if ($#matches == -1) {
+            warn "Cannot find \"$to\" in podpath: " . 
+                 "cannot find suitable replacement path, cannot resolve link\n"
+                 unless $self->quiet;
+            return '';
+        } elsif ($#matches == 0) {
+            warn "Cannot find \"$to\" in podpath: " .
+                 "using $matches[0] as replacement path to $to\n" 
+                 unless $self->quiet;
+            $path = $self->pages->{$matches[0]};
+        } else {
+            warn "Cannot find \"$to\" in podpath: " .
+                 "more than one possible replacement path to $to, " .
+                 "using $matches[-1]\n" unless $self->quiet;
+            # Use [-1] so newer (higher numbered) perl PODs are used
+            $path = $self->pages->{$matches[-1]};
+        }
+    } else {
+        $path = $self->pages->{$to};
+    }
+
+    my $url = File::Spec::Unix->catfile(Pod::Html::_unixify($self->htmlroot),
+                                        $path);
+
+    if ($self->htmlfileurl ne '') {
+        # then $self->htmlroot eq '' (by definition of htmlfileurl) so
+        # $self->htmldir needs to be prepended to link to get the absolute path
+        # that will be relativized
+        $url = Pod::Html::relativize_url(
+            File::Spec::Unix->catdir(Pod::Html::_unixify($self->htmldir), $url),
+            $self->htmlfileurl # already unixified
+        );
+    }
+
+    return $url . ".html$section";
+}
+
+package Pod::Html;
+
+#
+# relativize_url - convert an absolute URL to one relative to a base URL.
+# Assumes both end in a filename.
+#
+sub relativize_url {
+    my ($dest, $source) = @_;
+
+    # Remove each file from its path
+    my ($dest_volume, $dest_directory, $dest_file) =
+        File::Spec::Unix->splitpath( $dest );
+    $dest = File::Spec::Unix->catpath( $dest_volume, $dest_directory, '' );
+
+    my ($source_volume, $source_directory, $source_file) =
+        File::Spec::Unix->splitpath( $source );
+    $source = File::Spec::Unix->catpath( $source_volume, $source_directory, '' );
+
+    my $rel_path = '';
+    if ($dest ne '') {
+       $rel_path = File::Spec::Unix->abs2rel( $dest, $source );
+    }
+
+    if ($rel_path ne '' && substr( $rel_path, -1 ) ne '/') {
+        $rel_path .= "/$dest_file";
+    } else {
+        $rel_path .= "$dest_file";
+    }
+
+    return $rel_path;
+}
+
+1;
+#############################################################################
+# Pod/Select.pm -- function to select portions of POD docs
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Select;
+use strict;
+
+use vars qw($VERSION @ISA @EXPORT $MAX_HEADING_LEVEL %myData @section_headings @selected_sections);
+$VERSION = '1.63'; ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+
+#############################################################################
+
+#use diagnostics;
+use Carp;
+use Pod::Parser 1.04;
+
+@ISA = qw(Pod::Parser);
+@EXPORT = qw(&podselect);
+
+## Maximum number of heading levels supported for '=headN' directives
+*MAX_HEADING_LEVEL = \3;
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+## =begin _PRIVATE_
+## 
+## =head1 B<_init_headings()>
+## 
+## Initialize the current set of active section headings.
+## 
+## =cut
+## 
+## =end _PRIVATE_
+
+sub _init_headings {
+    my $self = shift;
+    local *myData = $self;
+
+    ## Initialize current section heading titles if necessary
+    unless (defined $myData{_SECTION_HEADINGS}) {
+        local *section_headings = $myData{_SECTION_HEADINGS} = [];
+        for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+            $section_headings[$i] = '';
+        }
+    }
+}
+
+##---------------------------------------------------------------------------
+
+
+sub curr_headings {
+    my $self = shift;
+    $self->_init_headings()  unless (defined $self->{_SECTION_HEADINGS});
+    my @headings = @{ $self->{_SECTION_HEADINGS} };
+    return (@_ > 0  and  $_[0] =~ /^\d+$/) ? $headings[$_[0] - 1] : @headings;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub select {
+    my ($self, @sections) = @_;
+    local *myData = $self;
+    local $_;
+
+### NEED TO DISCERN A SECTION-SPEC FROM A RANGE-SPEC (look for m{^/.+/$}?)
+
+    ##---------------------------------------------------------------------
+    ## The following is a blatant hack for backward compatibility, and for
+    ## implementing add_selection(). If the *first* *argument* is the
+    ## string "+", then the remaining section specifications are *added*
+    ## to the current set of selections; otherwise the given section
+    ## specifications will *replace* the current set of selections.
+    ##
+    ## This should probably be fixed someday, but for the present time,
+    ## it seems incredibly unlikely that "+" would ever correspond to
+    ## a legitimate section heading
+    ##---------------------------------------------------------------------
+    my $add = ($sections[0] eq '+') ? shift(@sections) : '';
+
+    ## Reset the set of sections to use
+    unless (@sections) {
+        delete $myData{_SELECTED_SECTIONS}  unless ($add);
+        return;
+    }
+    $myData{_SELECTED_SECTIONS} = []
+        unless ($add  &&  exists $myData{_SELECTED_SECTIONS});
+    local *selected_sections = $myData{_SELECTED_SECTIONS};
+
+    ## Compile each spec
+    for my $spec (@sections) {
+        if ( defined($_ = _compile_section_spec($spec)) ) {
+            ## Store them in our sections array
+            push(@selected_sections, $_);
+        }
+        else {
+            carp qq{Ignoring section spec "$spec"!\n};
+        }
+    }
+}
+
+##---------------------------------------------------------------------------
+
+
+sub add_selection {
+    my $self = shift;
+    return $self->select('+', @_);
+}
+
+##---------------------------------------------------------------------------
+
+
+sub clear_selections {
+    my $self = shift;
+    return $self->select();
+}
+
+##---------------------------------------------------------------------------
+
+
+sub match_section {
+    my $self = shift;
+    my (@headings) = @_;
+    local *myData = $self;
+
+    ## Return true if no restrictions were explicitly specified
+    my $selections = (exists $myData{_SELECTED_SECTIONS})
+                       ?  $myData{_SELECTED_SECTIONS}  :  undef;
+    return  1  unless ((defined $selections) && @{$selections});
+
+    ## Default any unspecified sections to the current one
+    my @current_headings = $self->curr_headings();
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        (defined $headings[$i])  or  $headings[$i] = $current_headings[$i];
+    }
+
+    ## Look for a match against the specified section expressions
+    for my $section_spec ( @{$selections} ) {
+        ##------------------------------------------------------
+        ## Each portion of this spec must match in order for
+        ## the spec to be matched. So we will start with a 
+        ## match-value of 'true' and logically 'and' it with
+        ## the results of matching a given element of the spec.
+        ##------------------------------------------------------
+        my $match = 1;
+        for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+            my $regex   = $section_spec->[$i];
+            my $negated = ($regex =~ s/^\!//);
+            $match  &= ($negated ? ($headings[$i] !~ /${regex}/)
+                                 : ($headings[$i] =~ /${regex}/));
+            last unless ($match);
+        }
+        return  1  if ($match);
+    }
+    return  0;  ## no match
+}
+
+##---------------------------------------------------------------------------
+
+
+sub is_selected {
+    my ($self, $paragraph) = @_;
+    local $_;
+    local *myData = $self;
+
+    $self->_init_headings()  unless (defined $myData{_SECTION_HEADINGS});
+
+    ## Keep track of current sections levels and headings
+    $_ = $paragraph;
+    if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*?)\s*$/)
+    {
+        ## This is a section heading command
+        my ($level, $heading) = ($2, $3);
+        $level = 1 + (length($1) / 3)  if ((! length $level) || (length $1));
+        ## Reset the current section heading at this level
+        $myData{_SECTION_HEADINGS}->[$level - 1] = $heading;
+        ## Reset subsection headings of this one to empty
+        for (my $i = $level; $i < $MAX_HEADING_LEVEL; ++$i) {
+            $myData{_SECTION_HEADINGS}->[$i] = '';
+        }
+    }
+
+    return  $self->match_section();
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub podselect {
+    my(@argv) = @_;
+    my %defaults = ();
+    my $pod_parser = new Pod::Select(%defaults);
+    my $num_inputs = 0;
+    my $output = '>&STDOUT';
+    my %opts;
+    local $_;
+    for (@argv) {
+        my $ref = ref($_);
+        if ($ref && $ref eq 'HASH') {
+            %opts = (%defaults, %{$_});
+
+            ##-------------------------------------------------------------
+            ## Need this for backward compatibility since we formerly used
+            ## options that were all uppercase words rather than ones that
+            ## looked like Unix command-line options.
+            ## to be uppercase keywords)
+            ##-------------------------------------------------------------
+            %opts = map {
+                my ($key, $val) = (lc $_, $opts{$_});
+                $key =~ s/^(?=\w)/-/;
+                $key =~ /^-se[cl]/  and  $key  = '-sections';
+                #! $key eq '-range'    and  $key .= 's';
+                ($key => $val);
+            } (keys %opts);
+
+            ## Process the options
+            (exists $opts{'-output'})  and  $output = $opts{'-output'};
+
+            ## Select the desired sections
+            $pod_parser->select(@{ $opts{'-sections'} })
+                if ( (defined $opts{'-sections'})
+                     && ((ref $opts{'-sections'}) eq 'ARRAY') );
+
+            #! ## Select the desired paragraph ranges
+            #! $pod_parser->select(@{ $opts{'-ranges'} })
+            #!     if ( (defined $opts{'-ranges'})
+            #!          && ((ref $opts{'-ranges'}) eq 'ARRAY') );
+        }
+        elsif(!$ref || $ref eq 'GLOB') {
+            $pod_parser->parse_from_file($_, $output);
+            ++$num_inputs;
+        }
+        else {
+            croak "Input from $ref reference not supported!\n";
+        }
+    }
+    $pod_parser->parse_from_file('-') unless ($num_inputs > 0);
+}
+
+#############################################################################
+
+
+##---------------------------------------------------------------------------
+
+
+sub _compile_section_spec {
+    my ($section_spec) = @_;
+    my (@regexs, $negated);
+
+    ## Compile the spec into a list of regexs
+    local $_ = $section_spec;
+    s{\\\\}{\001}g;  ## handle escaped backward slashes
+    s{\\/}{\002}g;   ## handle escaped forward slashes
+
+    ## Parse the regexs for the heading titles
+    @regexs = split(/\//, $_, $MAX_HEADING_LEVEL);
+
+    ## Set default regex for omitted levels
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        $regexs[$i]  = '.*'  unless ((defined $regexs[$i])
+                                     && (length $regexs[$i]));
+    }
+    ## Modify the regexs as needed and validate their syntax
+    my $bad_regexs = 0;
+    for (@regexs) {
+        $_ .= '.+'  if ($_ eq '!');
+        s{\001}{\\\\}g;       ## restore escaped backward slashes
+        s{\002}{\\/}g;        ## restore escaped forward slashes
+        $negated = s/^\!//;   ## check for negation
+        eval "m{$_}";         ## check regex syntax
+        if ($@) {
+            ++$bad_regexs;
+            carp qq{Bad regular expression /$_/ in "$section_spec": $@\n};
+        }
+        else {
+            ## Add the forward and rear anchors (and put the negator back)
+            $_ = '^' . $_  unless (/^\^/);
+            $_ = $_ . '$'  unless (/\$$/);
+            $_ = '!' . $_  if ($negated);
+        }
+    }
+    return  (! $bad_regexs) ? [ @regexs ] : undef;
+}
+
+##---------------------------------------------------------------------------
+
+
+##---------------------------------------------------------------------------
+
+
+#############################################################################
+
+
+1;
+# vim: ts=4 sw=4 et
+#############################################################################
+# Pod/InputObjects.pm -- package which defines objects for input streams
+# and paragraphs and commands when parsing POD docs.
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::InputObjects;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63';  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+
+#############################################################################
+
+package Pod::InputSource;
+
+##---------------------------------------------------------------------------
+
+
+##---------------------------------------------------------------------------
+
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = { -name        => '(unknown)',
+                 -handle      => undef,
+                 -was_cutting => 0,
+                 @_ };
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## allow 'filename' as an alias for 'name'
+*filename = \&name;
+
+##---------------------------------------------------------------------------
+
+
+sub handle {
+   return $_[0]->{'-handle'};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub was_cutting {
+   (@_ > 1)  and  $_[0]->{-was_cutting} = $_[1];
+   return $_[0]->{-was_cutting};
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::Paragraph;
+
+##---------------------------------------------------------------------------
+
+
+##---------------------------------------------------------------------------
+
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = {
+          -name       => undef,
+          -text       => (@_ == 1) ? shift : undef,
+          -file       => '<unknown-file>',
+          -line       => 0,
+          -prefix     => '=',
+          -separator  => ' ',
+          -ptree => [],
+          @_
+    };
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub cmd_name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## let name() be an alias for cmd_name()
+*name = \&cmd_name;
+
+##---------------------------------------------------------------------------
+
+
+sub text {
+   (@_ > 1)  and  $_[0]->{'-text'} = $_[1];
+   return $_[0]->{'-text'};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub raw_text {
+   return $_[0]->{'-text'}  unless (defined $_[0]->{'-name'});
+   return $_[0]->{'-prefix'} . $_[0]->{'-name'} .
+          $_[0]->{'-separator'} . $_[0]->{'-text'};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub cmd_prefix {
+   return $_[0]->{'-prefix'};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub cmd_separator {
+   return $_[0]->{'-separator'};
+}
+
+##---------------------------------------------------------------------------
+
+
+sub parse_tree {
+   (@_ > 1)  and  $_[0]->{'-ptree'} = $_[1];
+   return $_[0]->{'-ptree'};
+}
+
+## let ptree() be an alias for parse_tree()
+*ptree = \&parse_tree;
+
+##---------------------------------------------------------------------------
+
+
+sub file_line {
+   my @loc = ($_[0]->{'-file'} || '<unknown-file>',
+              $_[0]->{'-line'} || 0);
+   return (wantarray) ? @loc : join(':', @loc);
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::InteriorSequence;
+
+##---------------------------------------------------------------------------
+
+
+##---------------------------------------------------------------------------
+
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## See if first argument has no keyword
+    if (((@_ <= 2) or (@_ % 2)) and $_[0] !~ /^-\w/) {
+       ## Yup - need an implicit '-name' before first parameter
+       unshift @_, '-name';
+    }
+
+    ## See if odd number of args
+    if ((@_ % 2) != 0) {
+       ## Yup - need an implicit '-ptree' before the last parameter
+       splice @_, $#_, 0, '-ptree';
+    }
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = {
+          -name       => (@_ == 1) ? $_[0] : undef,
+          -file       => '<unknown-file>',
+          -line       => 0,
+          -ldelim     => '<',
+          -rdelim     => '>',
+          @_
+    };
+
+    ## Initialize contents if they haven't been already
+    my $ptree = $self->{'-ptree'} || new Pod::ParseTree();
+    if ( ref $ptree =~ /^(ARRAY)?$/ ) {
+        ## We have an array-ref, or a normal scalar. Pass it as an
+        ## an argument to the ptree-constructor
+        $ptree = new Pod::ParseTree($1 ? [$ptree] : $ptree);
+    }
+    $self->{'-ptree'} = $ptree;
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub cmd_name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## let name() be an alias for cmd_name()
+*name = \&cmd_name;
+
+##---------------------------------------------------------------------------
+
+## Private subroutine to set the parent pointer of all the given
+## children that are interior-sequences to be $self
+
+sub _set_child2parent_links {
+   my ($self, @children) = @_;
+   ## Make sure any sequences know who their parent is
+   for (@children) {
+      next  unless (length  and  ref  and  ref ne 'SCALAR');
+      if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or
+          UNIVERSAL::can($_, 'nested'))
+      {
+          $_->nested($self);
+      }
+   }
+}
+
+## Private subroutine to unset child->parent links
+
+sub _unset_child2parent_links {
+   my $self = shift;
+   $self->{'-parent_sequence'} = undef;
+   my $ptree = $self->{'-ptree'};
+   for (@$ptree) {
+      next  unless (length  and  ref  and  ref ne 'SCALAR');
+      $_->_unset_child2parent_links()
+          if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
+   }
+}
+
+##---------------------------------------------------------------------------
+
+
+sub prepend {
+   my $self  = shift;
+   $self->{'-ptree'}->prepend(@_);
+   _set_child2parent_links($self, @_);
+   return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub append {
+   my $self = shift;
+   $self->{'-ptree'}->append(@_);
+   _set_child2parent_links($self, @_);
+   return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub nested {
+   my $self = shift;
+  (@_ == 1)  and  $self->{'-parent_sequence'} = shift;
+   return  $self->{'-parent_sequence'} || undef;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub raw_text {
+   my $self = shift;
+   my $text = $self->{'-name'} . $self->{'-ldelim'};
+   for ( $self->{'-ptree'}->children ) {
+      $text .= (ref $_) ? $_->raw_text : $_;
+   }
+   $text .= $self->{'-rdelim'};
+   return $text;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub left_delimiter {
+   (@_ > 1)  and  $_[0]->{'-ldelim'} = $_[1];
+   return $_[0]->{'-ldelim'};
+}
+
+## let ldelim() be an alias for left_delimiter()
+*ldelim = \&left_delimiter;
+
+##---------------------------------------------------------------------------
+
+
+sub right_delimiter {
+   (@_ > 1)  and  $_[0]->{'-rdelim'} = $_[1];
+   return $_[0]->{'-rdelim'};
+}
+
+## let rdelim() be an alias for right_delimiter()
+*rdelim = \&right_delimiter;
+
+##---------------------------------------------------------------------------
+
+
+sub parse_tree {
+   (@_ > 1)  and  $_[0]->{'-ptree'} = $_[1];
+   return $_[0]->{'-ptree'};
+}
+
+## let ptree() be an alias for parse_tree()
+*ptree = \&parse_tree;
+
+##---------------------------------------------------------------------------
+
+
+sub file_line {
+   my @loc = ($_[0]->{'-file'}  || '<unknown-file>',
+              $_[0]->{'-line'}  || 0);
+   return (wantarray) ? @loc : join(':', @loc);
+}
+
+##---------------------------------------------------------------------------
+
+
+sub DESTROY {
+   ## We need to get rid of all child->parent pointers throughout the
+   ## tree so their reference counts will go to zero and they can be
+   ## garbage-collected
+   _unset_child2parent_links(@_);
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::ParseTree;
+
+##---------------------------------------------------------------------------
+
+
+##---------------------------------------------------------------------------
+
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    my $self = (@_ == 1  and  ref $_[0]) ? $_[0] : [];
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+
+sub top {
+   my $self = shift;
+   if (@_ > 0) {
+      @{ $self } = (@_ == 1  and  ref $_[0]) ? ${ @_ } : @_;
+   }
+   return $self;
+}
+
+## let parse_tree() & ptree() be aliases for the 'top' method
+*parse_tree = *ptree = \&top;
+
+##---------------------------------------------------------------------------
+
+
+sub children {
+   my $self = shift;
+   if (@_ > 0) {
+      @{ $self } = (@_ == 1  and  ref $_[0]) ? ${ @_ } : @_;
+   }
+   return @{ $self };
+}
+
+##---------------------------------------------------------------------------
+
+
+use vars qw(@ptree);  ## an alias used for performance reasons
+
+sub prepend {
+   my $self = shift;
+   local *ptree = $self;
+   for (@_) {
+      next  unless length;
+      if (@ptree && !(ref $ptree[0]) && !(ref $_)) {
+         $ptree[0] = $_ . $ptree[0];
+      }
+      else {
+         unshift @ptree, $_;
+      }
+   }
+}
+
+##---------------------------------------------------------------------------
+
+
+sub append {
+   my $self = shift;
+   local *ptree = $self;
+   my $can_append = @ptree && !(ref $ptree[-1]);
+   for (@_) {
+      if (ref) {
+         push @ptree, $_;
+      }
+      elsif(!length) {
+         next;
+      }
+      elsif ($can_append) {
+         $ptree[-1] .= $_;
+      }
+      else {
+         push @ptree, $_;
+      }
+   }
+}
+
+
+sub raw_text {
+   my $self = shift;
+   my $text = '';
+   for ( @$self ) {
+      $text .= (ref $_) ? $_->raw_text : $_;
+   }
+   return $text;
+}
+
+##---------------------------------------------------------------------------
+
+## Private routines to set/unset child->parent links
+
+sub _unset_child2parent_links {
+   my $self = shift;
+   local *ptree = $self;
+   for (@ptree) {
+       next  unless (defined and length  and  ref  and  ref ne 'SCALAR');
+       $_->_unset_child2parent_links()
+           if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
+   }
+}
+
+sub _set_child2parent_links {
+    ## nothing to do, Pod::ParseTrees cant have parent pointers
+}
+
+
+sub DESTROY {
+   ## We need to get rid of all child->parent pointers throughout the
+   ## tree so their reference counts will go to zero and they can be
+   ## garbage-collected
+   _unset_child2parent_links(@_);
+}
+
+#############################################################################
+
+
+1;
+#############################################################################
+# Pod/Checker.pm -- check pod documents for syntax errors
+#
+# Copyright (C) 1994-2000 by Bradford Appleton. All rights reserved.
+# This is free software; you can redistribute it and/or modify it under the
+# same terms as Perl itself.
+#############################################################################
+
+package Pod::Checker;
+use strict;
+use warnings;
+
+our $VERSION = '1.73';  ## Current version of this package
+
+
+#############################################################################
+
+#use diagnostics;
+use Carp qw(croak);
+use Exporter 'import';
+use base qw/Pod::Simple::Methody/;
+
+our @EXPORT = qw(&podchecker);
+
+##---------------------------------
+## Function definitions begin here
+##---------------------------------
+
+sub podchecker {
+    my ($infile, $outfile, %options) = @_;
+    local $_;
+
+    ## Set defaults
+    $infile  ||= \*STDIN;
+    $outfile ||= \*STDERR;
+
+    ## Now create a pod checker
+    my $checker = Pod::Checker->new(%options);
+
+    ## Now check the pod document for errors
+    $checker->parse_from_file($infile, $outfile);
+
+    ## Return the number of errors found
+    return $checker->num_errors();
+}
+
+
+##---------------------------------------------------------------------------
+
+##-------------------------------
+## Method definitions begin here
+##-------------------------------
+
+##################################
+
+
+sub new {
+    my $new = shift->SUPER::new(@_);
+    $new->{'output_fh'} ||= *STDERR{IO};
+
+    # Set options
+    my %opts = @_;
+    $new->{'-warnings'} = defined $opts{'-warnings'} ?
+                                  $opts{'-warnings'} : 1; # default on
+    $new->{'-quiet'} = $opts{'-quiet'} || 0; # default off
+
+    # Initialize number of errors/warnings
+    $new->{'_NUM_ERRORS'} = 0;
+    $new->{'_NUM_WARNINGS'} = 0;
+
+    # 'current' also means 'most recent' in the follow comments
+    $new->{'_thispara'} = '';       # current POD paragraph
+    $new->{'_line'} = 0;            # current line number
+    $new->{'_head_num'} = 0;        # current =head level (set to 0 to make
+                                    #   logic easier down the road)
+    $new->{'_cmds_since_head'} = 0; # num of POD directives since prev. =headN
+    $new->{'_nodes'} = [];          # stack for =head/=item nodes
+    $new->{'_fcode_stack'} = [];    # stack for nested formatting codes
+    $new->{'_fcode_pos'} = [];      # stack for position in paragraph of fcodes
+    $new->{'_begin_stack'} = [];    # stack for =begins: [line #, target]
+    $new->{'_links'} = [];          # stack for hyperlinks to external entities
+    $new->{'_internal_links'} = []; # set of linked-to internal sections
+    $new->{'_index'} = [];          # stack for text in X<>s
+
+    $new->accept_targets('*'); # check all =begin/=for blocks
+    $new->cut_handler( \&handle_pod_and_cut ); # warn if text after =cut
+    $new->pod_handler( \&handle_pod_and_cut ); # warn if text after =pod
+    $new->whiteline_handler( \&handle_whiteline ); # warn if whiteline
+    $new->parse_empty_lists(1); # warn if they are empty
+
+    return $new;
+}
+
+##################################
+
+
+# Invoked as $self->poderror( @args ), or $self->poderror( {%opts}, @args )
+sub poderror {
+    my $self = shift;
+    my %opts = (ref $_[0]) ? %{shift()} : ();
+
+    ## Retrieve options
+    chomp( my $msg  = ($opts{'-msg'} || '')."@_" );
+    my $line = (exists $opts{'-line'}) ? " at line $opts{'-line'}" : '';
+    my $file = ' in file ' . ((exists $opts{'-file'})
+                              ? $opts{'-file'}
+                              : ((defined $self->source_filename)
+                                 ? $self->source_filename
+                                 : "???"));
+    unless (exists $opts{'-severity'}) {
+       ## See if can find severity in message prefix
+       $opts{'-severity'} = $1  if ( $msg =~ s/^\**\s*([A-Z]{3,}):\s+// );
+    }
+    my $severity = (exists $opts{'-severity'}) ? "*** $opts{-severity}: " : '';
+
+    ## Increment error count and print message "
+    ++($self->{'_NUM_ERRORS'})
+        if(!%opts || ($opts{-severity} && $opts{'-severity'} eq 'ERROR'));
+    ++($self->{'_NUM_WARNINGS'})
+        if(!%opts || ($opts{-severity} && $opts{'-severity'} eq 'WARNING'));
+    unless($self->{'-quiet'}) {
+      my $out_fh = $self->{'output_fh'} || \*STDERR;
+      print $out_fh ($severity, $msg, $line, $file, "\n")
+        if($self->{'-warnings'} || !%opts || $opts{'-severity'} ne 'WARNING');
+    }
+}
+
+##################################
+
+
+sub num_errors {
+   return (@_ > 1) ? ($_[0]->{'_NUM_ERRORS'} = $_[1]) : $_[0]->{'_NUM_ERRORS'};
+}
+
+##################################
+
+
+sub num_warnings {
+   return (@_ > 1) ? ($_[0]->{'_NUM_WARNINGS'} = $_[1]) :
+                      $_[0]->{'_NUM_WARNINGS'};
+}
+
+##################################
+
+
+sub name {
+    return (@_ > 1 && $_[1]) ?
+        ($_[0]->{'_pod_name'} = $_[1]) : $_[0]->{'_pod_name'};
+}
+
+##################################
+
+
+sub node {
+    my ($self,$text) = @_;
+    if(defined $text) {
+        $text =~ s/\s+$//s; # strip trailing whitespace
+        $text =~ s/\s+/ /gs; # collapse whitespace
+        # add node, order important!
+        push(@{$self->{'_nodes'}}, $text);
+        # keep also a uniqueness counter
+        $self->{'_unique_nodes'}->{$text}++ if($text !~ /^\s*$/s);
+        return $text;
+    }
+    @{$self->{'_nodes'}};
+}
+
+##################################
+
+
+# set/return index entries of current POD
+sub idx {
+    my ($self,$text) = @_;
+    if(defined $text) {
+        $text =~ s/\s+$//s; # strip trailing whitespace
+        $text =~ s/\s+/ /gs; # collapse whitespace
+        # add node, order important!
+        push(@{$self->{'_index'}}, $text);
+        # keep also a uniqueness counter
+        $self->{'_unique_nodes'}->{$text}++ if($text !~ /^\s*$/s);
+        return $text;
+    }
+    @{$self->{'_index'}};
+}
+
+##################################
+
+# add a hyperlink to the list of those of the current POD; returns current
+# list after the addition has been done
+sub hyperlink {
+    my $self = shift;
+    push(@{$self->{'_links'}}, $_[0]);
+    return $_[0];
+}
+
+
+sub hyperlinks {
+    @{shift->{'_links'}};
+}
+
+##################################
+
+# override Pod::Simple's whine() and scream() to use poderror()
+
+# Note:
+# Ignore $self->{'no_whining'} b/c $self->{'quiet'} takes care of it in poderror
+# Don't bother incrementing $self->{'errors_seen'} -- it's not used
+# Don't bother pushing to $self->{'errata'} b/c poderror() outputs immediately
+# We don't need to set $self->no_errata_section(1) b/c of these overrides
+
+
+sub whine {
+    my ($self, $line, $complaint) = @_;
+
+    my $severity = 'ERROR';
+
+    if (0) {
+      # XXX: Let's standardize what's a warning and what's an error.  Let's not
+      # move stuff up and down the severity tree.  -- rjbs, 2013-04-12
+      # Convert errors in Pod::Simple that are warnings in Pod::Checker
+      # XXX Do differently so the $complaint can be reworded without this breaking
+      $severity = 'WARNING' if
+          $complaint =~ /^Expected '=item .+?'$/ ||
+          $complaint =~ /^You can't have =items \(as at line .+?\) unless the first thing after the =over is an =item$/ ||
+          $complaint =~ /^You have '=item .+?' instead of the expected '=item .+?'$/;
+    }
+
+    $self->poderror({ -line => $line,
+                      -severity => $severity,
+                      -msg => $complaint });
+
+    return 1; # assume everything is peachy keen
+}
+
+sub scream {
+    my ($self, $line, $complaint) = @_;
+
+    $self->poderror({ -line => $line,
+                      -severity => 'ERROR', # consider making severity 'FATAL'
+                      -msg => $complaint });
+
+    return 1;
+}
+
+
+##################################
+
+# Some helper subroutines
+
+sub _init_event { # assignments done at the start of most events
+    $_[0]{'_thispara'} = '';
+    $_[0]{'_line'} = $_[1]{'start_line'};
+    $_[0]{'_cmds_since_head'}++;
+}
+
+sub _check_fcode {
+    my ($self, $inner, $outers) = @_;
+    # Check for an fcode inside another of the same fcode
+    # XXX line number is the line of the start of the paragraph that the warning
+    # is in, not the line that the warning is on. Fix this
+
+    # Later versions of Pod::Simple forbid nested L<>'s
+    return if $inner eq 'L' && $Pod::Simple::VERSION ge '3.33';
+
+    if (grep { $_ eq $inner } @$outers) {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => "nested commands $inner<...$inner<...>...>"});
+    }
+}
+
+##################################
+
+sub handle_text { $_[0]{'_thispara'} .= $_[1] }
+
+# whiteline is a seemingly blank line that matches /[^\S\r\n]/
+sub handle_whiteline {
+    my ($line, $line_n, $self) = @_;
+    $self->poderror({
+        -line => $line_n,
+        -severity => 'WARNING',
+        -msg => 'line containing nothing but whitespace in paragraph'});
+}
+
+######## Directives
+sub handle_pod_and_cut {
+    my ($line, $line_n, $self) = @_;
+    $self->{'_cmds_since_head'}++;
+    if ($line =~ /=(pod|cut)\s+\S/) {
+        $self->poderror({ -line => $line_n,
+                          -severity => 'ERROR',
+                          -msg => "Spurious text after =$1"});
+    }
+}
+
+sub start_Para { shift->_init_event(@_); }
+sub end_Para   {
+    my $self = shift;
+    # Get the NAME of the pod document
+    if ($self->{'_head_num'} == 1 && $self->{'_head_text'} eq 'NAME') {
+        if ($self->{'_thispara'} =~ /^\s*(\S+?)\s*[,-]/) {
+            $self->{'_pod_name'} = $1 unless defined $self->{'_pod_name'};
+        }
+    }
+}
+
+sub start_Verbatim {
+    my $self = shift;
+    $self->_init_event(@_);
+
+    if ($self->{'_head_num'} == 1 && $self->{'_head_text'} eq 'NAME') {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => 'Verbatim paragraph in NAME section' });
+    }
+}
+# Don't need an end_Verbatim
+
+# Do I need to do anything else with this?
+sub start_Data { shift->_init_event() }
+
+sub start_head1 { shift->start_head(1, @_) }
+sub start_head2 { shift->start_head(2, @_) }
+sub start_head3 { shift->start_head(3, @_) }
+sub start_head4 { shift->start_head(4, @_) }
+sub start_head  {
+    my $self = shift;
+    my $h = shift;
+    $self->_init_event(@_);
+    my $prev_h = $self->{'_head_num'};
+    $self->{'_head_num'} = $h;
+    $self->{"_count_head$h"}++;
+
+    if ($h > 1 && !$self->{'_count_head'.($h-1)}) {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => "=head$h without preceding higher level"});
+    }
+
+    # If this is the first =head of the doc, $prev_h is 0, thus less than $h
+    if ($self->{'_cmds_since_head'} == 1 && $prev_h >= $h) {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => 'empty section in previous paragraph'});
+    }
+}
+
+sub end_head1 { shift->end_head(@_) }
+sub end_head2 { shift->end_head(@_) }
+sub end_head3 { shift->end_head(@_) }
+sub end_head4 { shift->end_head(@_) }
+sub end_head  {
+    my $self = shift;
+    my $arg = $self->{'_thispara'};
+    $arg =~ s/\s+$//;
+    $self->{'_head_text'} = $arg;
+    $self->{'_cmds_since_head'} = 0;
+    my $h = $self->{'_head_num'};
+    $self->node($arg); # remember this node
+    if ($arg eq '') {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'ERROR',
+                          -msg => "empty =head$h" });
+    }
+}
+
+sub start_over_bullet { shift->start_over(@_, 'bullet') }
+sub start_over_number { shift->start_over(@_, 'number') }
+sub start_over_text   { shift->start_over(@_, 'definition') }
+sub start_over_block  { shift->start_over(@_, 'block') }
+sub start_over_empty  {
+    my $self = shift;
+    $self->start_over(@_, 'empty');
+    $self->poderror({ -line => $self->{'_line'},
+                      -severity => 'WARNING',
+                      -msg => 'empty =over/=back block' });
+}
+sub start_over {
+    my $self = shift;
+    my $type = pop;
+    $self->_init_event(@_);
+}
+
+sub start_item_bullet { shift->_init_event(@_) }
+sub start_item_number { shift->_init_event(@_) }
+sub start_item_text   { shift->_init_event(@_) }
+sub end_item_bullet { shift->end_item('bullet') }
+sub end_item_number { shift->end_item('number') }
+sub end_item_text   { shift->end_item('definition') }
+sub end_item {
+    my $self = shift;
+    my $type = shift;
+    # If there is verbatim text in this item, it will show up as part of
+    # 'paras', and not part of '_thispara'.  If the first para after this is a
+    # verbatim one, it actually will be (part of) the contents for this item.
+    if (   $self->{'_thispara'} eq ''
+        && (  ! @{$self->{'paras'}}
+            ||    $self->{'paras'}[0][0] !~ /Verbatim/i))
+    {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => '=item has no contents' });
+    }
+
+    $self->node($self->{'_thispara'}); # remember this node
+}
+
+sub start_for { # =for and =begin directives
+    my ($self, $flags) = @_;
+    $self->_init_event($flags);
+    push @{$self->{'_begin_stack'}}, [$self->{'_line'}, $flags->{'target'}];
+}
+
+sub end_for {
+    my ($self, $flags) = @_;
+    my ($line, $target) = @{pop @{$self->{'_begin_stack'}}};
+    if ($flags->{'fake-closer'}) { # meaning Pod::Simple generated this =end
+        $self->poderror({ -line => $line,
+                          -severity => 'ERROR',
+                          -msg => "=begin $target without matching =end $target"
+                        });
+    }
+}
+
+sub end_Document {
+    # Some final error checks
+    my $self = shift;
+
+    # no POD found here
+    $self->num_errors(-1) && return unless $self->content_seen;
+
+    my %nodes;
+    for ($self->node()) {
+        $nodes{$_} = 1;
+        if(/^(\S+)\s+\S/) {
+            # we have more than one word. Use the first as a node, too.
+            # This is used heavily in perlfunc.pod
+            $nodes{$1} ||= 2; # derived node
+        }
+    }
+    for ($self->idx()) {
+        $nodes{$_} = 3; # index node
+    }
+
+    # XXX update unresolved internal link POD -- single word not enclosed in ""?
+    # I don't know what I was thinking when I made the above TODO, and I don't
+    # know what it means...
+
+    for my $link (@{ $self->{'_internal_links'} }) {
+        my ($name, $line) = @$link;
+        unless ( $nodes{$name} ) {
+            $self->poderror({ -line => $line,
+                              -severity => 'ERROR',
+                              -msg => "unresolved internal link '$name'"});
+        }
+    }
+
+    # check the internal nodes for uniqueness. This pertains to
+    # =headX, =item and X<...>
+    if ($self->{'-warnings'} > 1 ) {
+        for my $node (sort keys %{ $self->{'_unique_nodes'} }) {
+            my $count = $self->{'_unique_nodes'}{$node};
+            if ($count > 1) { # not unique
+                $self->poderror({
+                    -line => '-',
+                    -severity => 'WARNING',
+                    -msg => "multiple occurrences ($count) of link target ".
+                        "'$node'"});
+            }
+        }
+    }
+}
+
+########  Formatting codes
+
+sub start_B { shift->start_fcode('B') }
+sub start_C { shift->start_fcode('C') }
+sub start_F { shift->start_fcode('F') }
+sub start_I { shift->start_fcode('I') }
+sub start_S { shift->start_fcode('S') }
+sub start_fcode {
+    my ($self, $fcode) = @_;
+    unshift @{$self->{'_fcode_stack'}}, $fcode;
+}
+
+sub end_B { shift->end_fcode() }
+sub end_C { shift->end_fcode() }
+sub end_F { shift->end_fcode() }
+sub end_I { shift->end_fcode() }
+sub end_S { shift->end_fcode() }
+sub end_fcode {
+    my $self = shift;
+    $self->_check_fcode(shift @{$self->{'_fcode_stack'}}, # current fcode removed
+                        $self->{'_fcode_stack'}); # previous fcodes
+}
+
+sub start_L {
+    my ($self, $flags) = @_;
+    $self->start_fcode('L');
+
+    my $link = Pod::Checker::Hyperlink->new($flags, $self);
+    if ($link) {
+        if (   $link->type eq 'pod'
+            && $link->node
+                # It's an internal-to-this-page link if no page is given, or
+                # if the given one is to our NAME.
+            && (! $link->page || (   $self->{'_pod_name'}
+                                  && $link->page eq $self->{'_pod_name'})))
+        {
+            push @{ $self->{'_internal_links'} }, [ $link->{'-raw_node'}, $link->line ];
+        }
+        else {
+            $self->hyperlink($link);
+        }
+    }
+}
+
+sub end_L {
+    my $self = shift;
+    $self->end_fcode();
+}
+
+sub start_X {
+    my $self = shift;
+    $self->start_fcode('X');
+    # keep track of where X<> starts in the paragraph
+    # (this is a stack so nested X<>s are handled correctly)
+    push @{$self->{'_fcode_pos'}}, length $self->{'_thispara'};
+}
+sub end_X {
+    my $self = shift;
+    # extract contents of X<> and replace with ''
+    my $start = pop @{$self->{'_fcode_pos'}}; # start at the beginning of X<>
+    my $end = length($self->{'_thispara'}) - $start; # end at end of X<>
+    my $x = substr($self->{'_thispara'}, $start, $end, '');
+    if ($x eq "") {
+        $self->poderror({ -line => $self->{'_line'},
+                          -severity => 'ERROR',
+                          -msg => "An empty X<>" });
+    }
+    $self->idx($x); # remember this node
+    $self->end_fcode();
+}
+
+package Pod::Checker::Hyperlink;
+
+# This class is used to represent L<> link structures, so that the individual
+# elements are easily accessible.  It is based on code in Pod::Hyperlink
+
+sub new {
+    my ($class,
+        $simple_link,   # The link structure returned by Pod::Simple
+        $caller         # The caller class
+    ) = @_;
+
+    my $self = +{};
+    bless $self, $class;
+
+    $self->{'-line'} ||= $caller->{'_line'};
+    $self->{'-type'} ||= $simple_link->{'type'};
+
+    # Force stringification of page and node.  (This expands any E<>.)
+    $self->{'-page'} = exists $simple_link->{'to'} ? "$simple_link->{'to'}" : "";
+    $self->{'-node'} = exists $simple_link->{'section'} ? "$simple_link->{'section'}" : "";
+
+    # Save the unmodified node text, as the .t files are expecting the message
+    # for internal link failures to include it (hence this preserves backward
+    # compatibility).
+    $self->{'-raw_node'} = $self->{'-node'};
+
+    # Remove leading/trailing white space.  Pod::Simple already warns about
+    # these, so if the only error is this, and the link is otherwise correct,
+    # only the Pod::Simple warning will be output, avoiding unnecessary
+    # confusion.
+    $self->{'-page'} =~ s/ ^ \s+ //x;
+    $self->{'-page'} =~ s/ \s+ $ //x;
+
+    $self->{'-node'} =~ s/ ^ \s+ //x;
+    $self->{'-node'} =~ s/ \s+ $ //x;
+
+    # Pod::Simple warns about L<> and L< >, but not L</>
+    if ($self->{'-page'} eq "" && $self->{'-node'} eq "") {
+        $caller->poderror({ -line => $caller->{'_line'},
+                          -severity => 'WARNING',
+                          -msg => 'empty link'});
+        return;
+    }
+
+    return $self;
+}
+
+
+sub line {
+    return $_[0]->{-line};
+}
+
+
+sub type {
+    return  $_[0]->{-type};
+}
+
+
+sub page {
+    return $_[0]->{-page};
+}
+
+
+sub node {
+    return $_[0]->{-node};
+}
+
+
+1
+# Pod::Man -- Convert POD data to formatted *roff input.
+#
+# This module translates POD documentation into *roff markup using the man
+# macro set, and is intended for converting POD documents written as Unix
+# manual pages to manual pages that can be read by the man(1) command.  It is
+# a replacement for the pod2man command distributed with versions of Perl
+# prior to 5.6.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+#
+# Written by Russ Allbery <rra@cpan.org>
+# Substantial contributions by Sean Burke <sburke@cpan.org>
+# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+#     2010, 2012, 2013, 2014, 2015, 2016, 2017 Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Man;
+
+use 5.006;
+use strict;
+use warnings;
+
+use subs qw(makespace);
+use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION);
+
+use Carp qw(carp croak);
+use Pod::Simple ();
+
+# Conditionally import Encode and set $HAS_ENCODE if it is available.
+our $HAS_ENCODE;
+BEGIN {
+    $HAS_ENCODE = eval { require Encode };
+}
+
+@ISA = qw(Pod::Simple);
+
+$VERSION = '4.10';
+
+# Set the debugging level.  If someone has inserted a debug function into this
+# class already, use that.  Otherwise, use any Pod::Simple debug function
+# that's defined, and failing that, define a debug level of 10.
+BEGIN {
+    my $parent = defined (&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG : undef;
+    unless (defined &DEBUG) {
+        *DEBUG = $parent || sub () { 10 };
+    }
+}
+
+# Import the ASCII constant from Pod::Simple.  This is true iff we're in an
+# ASCII-based universe (including such things as ISO 8859-1 and UTF-8), and is
+# generally only false for EBCDIC.
+BEGIN { *ASCII = \&Pod::Simple::ASCII }
+
+# Pretty-print a data structure.  Only used for debugging.
+BEGIN { *pretty = \&Pod::Simple::pretty }
+
+# Formatting instructions for various types of blocks.  cleanup makes hyphens
+# hard, adds spaces between consecutive underscores, and escapes backslashes.
+# convert translates characters into escapes.  guesswork means to apply the
+# transformations done by the guesswork sub.  literal says to protect literal
+# quotes from being turned into UTF-8 quotes.  By default, all transformations
+# are on except literal, but some elements override.
+#
+# DEFAULT specifies the default settings.  All other elements should list only
+# those settings that they are overriding.  Data indicates =for roff blocks,
+# which should be passed along completely verbatim.
+#
+# Formatting inherits negatively, in the sense that if the parent has turned
+# off guesswork, all child elements should leave it off.
+my %FORMATTING = (
+    DEFAULT  => { cleanup => 1, convert => 1, guesswork => 1, literal => 0 },
+    Data     => { cleanup => 0, convert => 0, guesswork => 0, literal => 0 },
+    Verbatim => {                             guesswork => 0, literal => 1 },
+    C        => {                             guesswork => 0, literal => 1 },
+    X        => { cleanup => 0,               guesswork => 0               },
+);
+
+##############################################################################
+# Object initialization
+##############################################################################
+
+# Initialize the object and set various Pod::Simple options that we need.
+# Here, we also process any additional options passed to the constructor or
+# set up defaults if none were given.  Note that all internal object keys are
+# in all-caps, reserving all lower-case object keys for Pod::Simple and user
+# arguments.
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new;
+
+    # Tell Pod::Simple not to handle S<> by automatically inserting &nbsp;.
+    $self->nbsp_for_S (1);
+
+    # Tell Pod::Simple to keep whitespace whenever possible.
+    if (my $preserve_whitespace = $self->can ('preserve_whitespace')) {
+        $self->$preserve_whitespace (1);
+    } else {
+        $self->fullstop_space_harden (1);
+    }
+
+    # The =for and =begin targets that we accept.
+    $self->accept_targets (qw/man MAN roff ROFF/);
+
+    # Ensure that contiguous blocks of code are merged together.  Otherwise,
+    # some of the guesswork heuristics don't work right.
+    $self->merge_text (1);
+
+    # Pod::Simple doesn't do anything useful with our arguments, but we want
+    # to put them in our object as hash keys and values.  This could cause
+    # problems if we ever clash with Pod::Simple's own internal class
+    # variables.
+    %$self = (%$self, @_);
+
+    # Send errors to stderr if requested.
+    if ($$self{stderr} and not $$self{errors}) {
+        $$self{errors} = 'stderr';
+    }
+    delete $$self{stderr};
+
+    # Validate the errors parameter and act on it.
+    if (not defined $$self{errors}) {
+        $$self{errors} = 'pod';
+    }
+    if ($$self{errors} eq 'stderr' || $$self{errors} eq 'die') {
+        $self->no_errata_section (1);
+        $self->complain_stderr (1);
+        if ($$self{errors} eq 'die') {
+            $$self{complain_die} = 1;
+        }
+    } elsif ($$self{errors} eq 'pod') {
+        $self->no_errata_section (0);
+        $self->complain_stderr (0);
+    } elsif ($$self{errors} eq 'none') {
+        $self->no_whining (1);
+    } else {
+        croak (qq(Invalid errors setting: "$$self{errors}"));
+    }
+    delete $$self{errors};
+
+    # Degrade back to non-utf8 if Encode is not available.
+    #
+    # Suppress the warning message when PERL_CORE is set, indicating this is
+    # running as part of the core Perl build.  Perl builds podlators (and all
+    # pure Perl modules) before Encode and other XS modules, so Encode won't
+    # yet be available.  Rely on the Perl core build to generate man pages
+    # later, after all the modules are available, so that UTF-8 handling will
+    # be correct.
+    if ($$self{utf8} and !$HAS_ENCODE) {
+        if (!$ENV{PERL_CORE}) {
+            carp ('utf8 mode requested but Encode module not available,'
+                    . ' falling back to non-utf8');
+        }
+        delete $$self{utf8};
+    }
+
+    # Initialize various other internal constants based on our arguments.
+    $self->init_fonts;
+    $self->init_quotes;
+    $self->init_page;
+
+    # For right now, default to turning on all of the magic.
+    $$self{MAGIC_CPP}       = 1;
+    $$self{MAGIC_EMDASH}    = 1;
+    $$self{MAGIC_FUNC}      = 1;
+    $$self{MAGIC_MANREF}    = 1;
+    $$self{MAGIC_SMALLCAPS} = 1;
+    $$self{MAGIC_VARS}      = 1;
+
+    return $self;
+}
+
+# Translate a font string into an escape.
+sub toescape { (length ($_[0]) > 1 ? '\f(' : '\f') . $_[0] }
+
+# Determine which fonts the user wishes to use and store them in the object.
+# Regular, italic, bold, and bold-italic are constants, but the fixed width
+# fonts may be set by the user.  Sets the internal hash key FONTS which is
+# used to map our internal font escapes to actual *roff sequences later.
+sub init_fonts {
+    my ($self) = @_;
+
+    # Figure out the fixed-width font.  If user-supplied, make sure that they
+    # are the right length.
+    for (qw/fixed fixedbold fixeditalic fixedbolditalic/) {
+        my $font = $$self{$_};
+        if (defined ($font) && (length ($font) < 1 || length ($font) > 2)) {
+            croak qq(roff font should be 1 or 2 chars, not "$font");
+        }
+    }
+
+    # Set the default fonts.  We can't be sure portably across different
+    # implementations what fixed bold-italic may be called (if it's even
+    # available), so default to just bold.
+    $$self{fixed}           ||= 'CW';
+    $$self{fixedbold}       ||= 'CB';
+    $$self{fixeditalic}     ||= 'CI';
+    $$self{fixedbolditalic} ||= 'CB';
+
+    # Set up a table of font escapes.  First number is fixed-width, second is
+    # bold, third is italic.
+    $$self{FONTS} = { '000' => '\fR', '001' => '\fI',
+                      '010' => '\fB', '011' => '\f(BI',
+                      '100' => toescape ($$self{fixed}),
+                      '101' => toescape ($$self{fixeditalic}),
+                      '110' => toescape ($$self{fixedbold}),
+                      '111' => toescape ($$self{fixedbolditalic}) };
+}
+
+# Initialize the quotes that we'll be using for C<> text.  This requires some
+# special handling, both to parse the user parameters if given and to make
+# sure that the quotes will be safe against *roff.  Sets the internal hash
+# keys LQUOTE and RQUOTE.
+sub init_quotes {
+    my ($self) = (@_);
+
+    # Handle the quotes option first, which sets both quotes at once.
+    $$self{quotes} ||= '"';
+    if ($$self{quotes} eq 'none') {
+        $$self{LQUOTE} = $$self{RQUOTE} = '';
+    } elsif (length ($$self{quotes}) == 1) {
+        $$self{LQUOTE} = $$self{RQUOTE} = $$self{quotes};
+    } elsif (length ($$self{quotes}) % 2 == 0) {
+        my $length = length ($$self{quotes}) / 2;
+        $$self{LQUOTE} = substr ($$self{quotes}, 0, $length);
+        $$self{RQUOTE} = substr ($$self{quotes}, $length);
+    } else {
+        croak(qq(Invalid quote specification "$$self{quotes}"))
+    }
+
+    # Now handle the lquote and rquote options.
+    if (defined $$self{lquote}) {
+        $$self{LQUOTE} = $$self{lquote} eq 'none' ? q{} : $$self{lquote};
+    }
+    if (defined $$self{rquote}) {
+        $$self{RQUOTE} = $$self{rquote} eq 'none' ? q{} : $$self{rquote};
+    }
+
+    # Double the first quote; note that this should not be s///g as two double
+    # quotes is represented in *roff as three double quotes, not four.  Weird,
+    # I know.
+    $$self{LQUOTE} =~ s/\"/\"\"/;
+    $$self{RQUOTE} =~ s/\"/\"\"/;
+}
+
+# Initialize the page title information and indentation from our arguments.
+sub init_page {
+    my ($self) = @_;
+
+    # We used to try first to get the version number from a local binary, but
+    # we shouldn't need that any more.  Get the version from the running Perl.
+    # Work a little magic to handle subversions correctly under both the
+    # pre-5.6 and the post-5.6 version numbering schemes.
+    my @version = ($] =~ /^(\d+)\.(\d{3})(\d{0,3})$/);
+    $version[2] ||= 0;
+    $version[2] *= 10 ** (3 - length $version[2]);
+    for (@version) { $_ += 0 }
+    my $version = join ('.', @version);
+
+    # Set the defaults for page titles and indentation if the user didn't
+    # override anything.
+    $$self{center} = 'User Contributed Perl Documentation'
+        unless defined $$self{center};
+    $$self{release} = 'perl v' . $version
+        unless defined $$self{release};
+    $$self{indent} = 4
+        unless defined $$self{indent};
+
+    # Double quotes in things that will be quoted.
+    for (qw/center release/) {
+        $$self{$_} =~ s/\"/\"\"/g if $$self{$_};
+    }
+}
+
+##############################################################################
+# Core parsing
+##############################################################################
+
+# This is the glue that connects the code below with Pod::Simple itself.  The
+# goal is to convert the event stream coming from the POD parser into method
+# calls to handlers once the complete content of a tag has been seen.  Each
+# paragraph or POD command will have textual content associated with it, and
+# as soon as all of a paragraph or POD command has been seen, that content
+# will be passed in to the corresponding method for handling that type of
+# object.  The exceptions are handlers for lists, which have opening tag
+# handlers and closing tag handlers that will be called right away.
+#
+# The internal hash key PENDING is used to store the contents of a tag until
+# all of it has been seen.  It holds a stack of open tags, each one
+# represented by a tuple of the attributes hash for the tag, formatting
+# options for the tag (which are inherited), and the contents of the tag.
+
+# Add a block of text to the contents of the current node, formatting it
+# according to the current formatting instructions as we do.
+sub _handle_text {
+    my ($self, $text) = @_;
+    DEBUG > 3 and print "== $text\n";
+    my $tag = $$self{PENDING}[-1];
+    $$tag[2] .= $self->format_text ($$tag[1], $text);
+}
+
+# Given an element name, get the corresponding method name.
+sub method_for_element {
+    my ($self, $element) = @_;
+    $element =~ tr/A-Z-/a-z_/;
+    $element =~ tr/_a-z0-9//cd;
+    return $element;
+}
+
+# Handle the start of a new element.  If cmd_element is defined, assume that
+# we need to collect the entire tree for this element before passing it to the
+# element method, and create a new tree into which we'll collect blocks of
+# text and nested elements.  Otherwise, if start_element is defined, call it.
+sub _handle_element_start {
+    my ($self, $element, $attrs) = @_;
+    DEBUG > 3 and print "++ $element (<", join ('> <', %$attrs), ">)\n";
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, we need to accumulate the contents of the
+    # tag before calling it.  Turn off IN_NAME for any command other than
+    # <Para> and the formatting codes so that IN_NAME isn't still set for the
+    # first heading after the NAME heading.
+    if ($self->can ("cmd_$method")) {
+        DEBUG > 2 and print "<$element> starts saving a tag\n";
+        $$self{IN_NAME} = 0 if ($element ne 'Para' && length ($element) > 1);
+
+        # How we're going to format embedded text blocks depends on the tag
+        # and also depends on our parent tags.  Thankfully, inside tags that
+        # turn off guesswork and reformatting, nothing else can turn it back
+        # on, so this can be strictly inherited.
+        my $formatting = {
+            %{ $$self{PENDING}[-1][1] || $FORMATTING{DEFAULT} },
+            %{ $FORMATTING{$element} || {} },
+        };
+        push (@{ $$self{PENDING} }, [ $attrs, $formatting, '' ]);
+        DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n";
+    } elsif (my $start_method = $self->can ("start_$method")) {
+        $self->$start_method ($attrs, '');
+    } else {
+        DEBUG > 2 and print "No $method start method, skipping\n";
+    }
+}
+
+# Handle the end of an element.  If we had a cmd_ method for this element,
+# this is where we pass along the tree that we built.  Otherwise, if we have
+# an end_ method for the element, call that.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    DEBUG > 3 and print "-- $element\n";
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, pull off the pending text and pass it to
+    # the handler along with the saved attribute hash.
+    if (my $cmd_method = $self->can ("cmd_$method")) {
+        DEBUG > 2 and print "</$element> stops saving a tag\n";
+        my $tag = pop @{ $$self{PENDING} };
+        DEBUG > 4 and print "Popped: [", pretty ($tag), "]\n";
+        DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n";
+        my $text = $self->$cmd_method ($$tag[0], $$tag[2]);
+        if (defined $text) {
+            if (@{ $$self{PENDING} } > 1) {
+                $$self{PENDING}[-1][2] .= $text;
+            } else {
+                $self->output ($text);
+            }
+        }
+    } elsif (my $end_method = $self->can ("end_$method")) {
+        $self->$end_method ();
+    } else {
+        DEBUG > 2 and print "No $method end method, skipping\n";
+    }
+}
+
+##############################################################################
+# General formatting
+##############################################################################
+
+# Format a text block.  Takes a hash of formatting options and the text to
+# format.  Currently, the only formatting options are guesswork, cleanup, and
+# convert, all of which are boolean.
+sub format_text {
+    my ($self, $options, $text) = @_;
+    my $guesswork = $$options{guesswork} && !$$self{IN_NAME};
+    my $cleanup = $$options{cleanup};
+    my $convert = $$options{convert};
+    my $literal = $$options{literal};
+
+    # Cleanup just tidies up a few things, telling *roff that the hyphens are
+    # hard, putting a bit of space between consecutive underscores, and
+    # escaping backslashes.  Be careful not to mangle our character
+    # translations by doing this before processing character translation.
+    if ($cleanup) {
+        $text =~ s/\\/\\e/g;
+        $text =~ s/-/\\-/g;
+        $text =~ s/_(?=_)/_\\|/g;
+    }
+
+    # Normally we do character translation, but we won't even do that in
+    # <Data> blocks or if UTF-8 output is desired.
+    if ($convert && !$$self{utf8} && ASCII) {
+        $text =~ s/([^\x00-\x7F])/$ESCAPES{ord ($1)} || "X"/eg;
+    }
+
+    # Ensure that *roff doesn't convert literal quotes to UTF-8 single quotes,
+    # but don't mess up our accept escapes.
+    if ($literal) {
+        $text =~ s/(?<!\\\*)\'/\\*\(Aq/g;
+        $text =~ s/(?<!\\\*)\`/\\\`/g;
+    }
+
+    # If guesswork is asked for, do that.  This involves more substantial
+    # formatting based on various heuristics that may only be appropriate for
+    # particular documents.
+    if ($guesswork) {
+        $text = $self->guesswork ($text);
+    }
+
+    return $text;
+}
+
+# Handles C<> text, deciding whether to put \*C` around it or not.  This is a
+# whole bunch of messy heuristics to try to avoid overquoting, originally from
+# Barrie Slaymaker.  This largely duplicates similar code in Pod::Text.
+sub quote_literal {
+    my $self = shift;
+    local $_ = shift;
+
+    # A regex that matches the portion of a variable reference that's the
+    # array or hash index, separated out just because we want to use it in
+    # several places in the following regex.
+    my $index = '(?: \[.*\] | \{.*\} )?';
+
+    # If in NAME section, just return an ASCII quoted string to avoid
+    # confusing tools like whatis.
+    return qq{"$_"} if $$self{IN_NAME};
+
+    # Check for things that we don't want to quote, and if we find any of
+    # them, return the string with just a font change and no quoting.
+    m{
+      ^\s*
+      (?:
+         ( [\'\`\"] ) .* \1                             # already quoted
+       | \\\*\(Aq .* \\\*\(Aq                           # quoted and escaped
+       | \\?\` .* ( \' | \\\*\(Aq )                     # `quoted'
+       | \$+ [\#^]? \S $index                           # special ($^Foo, $")
+       | [\$\@%&*]+ \#? [:\'\w]+ $index                 # plain var or func
+       | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
+       | [-+]? ( \d[\d.]* | \.\d+ ) (?: [eE][-+]?\d+ )? # a number
+       | 0x [a-fA-F\d]+                                 # a hex constant
+      )
+      \s*\z
+     }xso and return '\f(FS' . $_ . '\f(FE';
+
+    # If we didn't return, go ahead and quote the text.
+    return '\f(FS\*(C`' . $_ . "\\*(C'\\f(FE";
+}
+
+# Takes a text block to perform guesswork on.  Returns the text block with
+# formatting codes added.  This is the code that marks up various Perl
+# constructs and things commonly used in man pages without requiring the user
+# to add any explicit markup, and is applied to all non-literal text.  We're
+# guaranteed that the text we're applying guesswork to does not contain any
+# *roff formatting codes.  Note that the inserted font sequences must be
+# treated later with mapfonts or textmapfonts.
+#
+# This method is very fragile, both in the regular expressions it uses and in
+# the ordering of those modifications.  Care and testing is required when
+# modifying it.
+sub guesswork {
+    my $self = shift;
+    local $_ = shift;
+    DEBUG > 5 and print "   Guesswork called on [$_]\n";
+
+    # By the time we reach this point, all hyphens will be escaped by adding a
+    # backslash.  We want to undo that escaping if they're part of regular
+    # words and there's only a single dash, since that's a real hyphen that
+    # *roff gets to consider a possible break point.  Make sure that a dash
+    # after the first character of a word stays non-breaking, however.
+    #
+    # Note that this is not user-controllable; we pretty much have to do this
+    # transformation or *roff will mangle the output in unacceptable ways.
+    s{
+        ( (?:\G|^|\s) [\(\"]* [a-zA-Z] ) ( \\- )?
+        ( (?: [a-zA-Z\']+ \\-)+ )
+        ( [a-zA-Z\']+ ) (?= [\)\".?!,;:]* (?:\s|\Z|\\\ ) )
+        \b
+    } {
+        my ($prefix, $hyphen, $main, $suffix) = ($1, $2, $3, $4);
+        $hyphen ||= '';
+        $main =~ s/\\-/-/g;
+        $prefix . $hyphen . $main . $suffix;
+    }egx;
+
+    # Translate "--" into a real em-dash if it's used like one.  This means
+    # that it's either surrounded by whitespace, it follows a regular word, or
+    # it occurs between two regular words.
+    if ($$self{MAGIC_EMDASH}) {
+        s{          (\s) \\-\\- (\s)                } { $1 . '\*(--' . $2 }egx;
+        s{ (\b[a-zA-Z]+) \\-\\- (\s|\Z|[a-zA-Z]+\b) } { $1 . '\*(--' . $2 }egx;
+    }
+
+    # Make words in all-caps a little bit smaller; they look better that way.
+    # However, we don't want to change Perl code (like @ARGV), nor do we want
+    # to fix the MIME in MIME-Version since it looks weird with the
+    # full-height V.
+    #
+    # We change only a string of all caps (2) either at the beginning of the
+    # line or following regular punctuation (like quotes) or whitespace (1),
+    # and followed by either similar punctuation, an em-dash, or the end of
+    # the line (3).
+    #
+    # Allow the text we're changing to small caps to include double quotes,
+    # commas, newlines, and periods as long as it doesn't otherwise interrupt
+    # the string of small caps and still fits the criteria.  This lets us turn
+    # entire warranty disclaimers in man page output into small caps.
+    if ($$self{MAGIC_SMALLCAPS}) {
+        s{
+            ( ^ | [\s\(\"\'\`\[\{<>] | \\[ ]  )                           # (1)
+            ( [A-Z] [A-Z] (?: \s? [/A-Z+:\d_\$&] | \\- | \s? [.,\"] )* )  # (2)
+            (?= [\s>\}\]\(\)\'\".?!,;] | \\*\(-- | \\[ ] | $ )            # (3)
+        } {
+            $1 . '\s-1' . $2 . '\s0'
+        }egx;
+    }
+
+    # Note that from this point forward, we have to adjust for \s-1 and \s-0
+    # strings inserted around things that we've made small-caps if later
+    # transforms should work on those strings.
+
+    # Embolden functions in the form func(), including functions that are in
+    # all capitals, but don't embolden if there's anything between the parens.
+    # The function must start with an alphabetic character or underscore and
+    # then consist of word characters or colons.
+    if ($$self{MAGIC_FUNC}) {
+        s{
+            ( \b | \\s-1 )
+            ( [A-Za-z_] ([:\w] | \\s-?[01])+ \(\) )
+        } {
+            $1 . '\f(BS' . $2 . '\f(BE'
+        }egx;
+    }
+
+    # Change references to manual pages to put the page name in bold but
+    # the number in the regular font, with a thin space between the name and
+    # the number.  Only recognize func(n) where func starts with an alphabetic
+    # character or underscore and contains only word characters, periods (for
+    # configuration file man pages), or colons, and n is a single digit,
+    # optionally followed by some number of lowercase letters.  Note that this
+    # does not recognize man page references like perl(l) or socket(3SOCKET).
+    if ($$self{MAGIC_MANREF}) {
+        s{
+            ( \b | \\s-1 )
+            (?<! \\ )                                   # rule out \s0(1)
+            ( [A-Za-z_] (?:[.:\w] | \\- | \\s-?[01])+ )
+            ( \( \d [a-z]* \) )
+        } {
+            $1 . '\f(BS' . $2 . '\f(BE\|' . $3
+        }egx;
+    }
+
+    # Convert simple Perl variable references to a fixed-width font.  Be
+    # careful not to convert functions, though; there are too many subtleties
+    # with them to want to perform this transformation.
+    if ($$self{MAGIC_VARS}) {
+        s{
+           ( ^ | \s+ )
+           ( [\$\@%] [\w:]+ )
+           (?! \( )
+        } {
+            $1 . '\f(FS' . $2 . '\f(FE'
+        }egx;
+    }
+
+    # Fix up double quotes.  Unfortunately, we miss this transformation if the
+    # quoted text contains any code with formatting codes and there's not much
+    # we can effectively do about that, which makes it somewhat unclear if
+    # this is really a good idea.
+    s{ \" ([^\"]+) \" } { '\*(L"' . $1 . '\*(R"' }egx;
+
+    # Make C++ into \*(C+, which is a squinched version.
+    if ($$self{MAGIC_CPP}) {
+        s{ \b C\+\+ } {\\*\(C+}gx;
+    }
+
+    # Done.
+    DEBUG > 5 and print "   Guesswork returning [$_]\n";
+    return $_;
+}
+
+##############################################################################
+# Output
+##############################################################################
+
+# When building up the *roff code, we don't use real *roff fonts.  Instead, we
+# embed font codes of the form \f(<font>[SE] where <font> is one of B, I, or
+# F, S stands for start, and E stands for end.  This method turns these into
+# the right start and end codes.
+#
+# We add this level of complexity because the old pod2man didn't get code like
+# B<someI<thing> else> right; after I<> it switched back to normal text rather
+# than bold.  We take care of this by using variables that state whether bold,
+# italic, or fixed are turned on as a combined pointer to our current font
+# sequence, and set each to the number of current nestings of start tags for
+# that font.
+#
+# \fP changes to the previous font, but only one previous font is kept.  We
+# don't know what the outside level font is; normally it's R, but if we're
+# inside a heading it could be something else.  So arrange things so that the
+# outside font is always the "previous" font and end with \fP instead of \fR.
+# Idea from Zack Weinberg.
+sub mapfonts {
+    my ($self, $text) = @_;
+    my ($fixed, $bold, $italic) = (0, 0, 0);
+    my %magic = (F => \$fixed, B => \$bold, I => \$italic);
+    my $last = '\fR';
+    $text =~ s<
+        \\f\((.)(.)
+    > <
+        my $sequence = '';
+        my $f;
+        if ($last ne '\fR') { $sequence = '\fP' }
+        ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1;
+        $f = $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) };
+        if ($f eq $last) {
+            '';
+        } else {
+            if ($f ne '\fR') { $sequence .= $f }
+            $last = $f;
+            $sequence;
+        }
+    >gxe;
+    return $text;
+}
+
+# Unfortunately, there is a bug in Solaris 2.6 nroff (not present in GNU
+# groff) where the sequence \fB\fP\f(CW\fP leaves the font set to B rather
+# than R, presumably because \f(CW doesn't actually do a font change.  To work
+# around this, use a separate textmapfonts for text blocks where the default
+# font is always R and only use the smart mapfonts for headings.
+sub textmapfonts {
+    my ($self, $text) = @_;
+    my ($fixed, $bold, $italic) = (0, 0, 0);
+    my %magic = (F => \$fixed, B => \$bold, I => \$italic);
+    $text =~ s<
+        \\f\((.)(.)
+    > <
+        ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1;
+        $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) };
+    >gxe;
+    return $text;
+}
+
+# Given a command and a single argument that may or may not contain double
+# quotes, handle double-quote formatting for it.  If there are no double
+# quotes, just return the command followed by the argument in double quotes.
+# If there are double quotes, use an if statement to test for nroff, and for
+# nroff output the command followed by the argument in double quotes with
+# embedded double quotes doubled.  For other formatters, remap paired double
+# quotes to LQUOTE and RQUOTE.
+sub switchquotes {
+    my ($self, $command, $text, $extra) = @_;
+    $text =~ s/\\\*\([LR]\"/\"/g;
+
+    # We also have to deal with \*C` and \*C', which are used to add the
+    # quotes around C<> text, since they may expand to " and if they do this
+    # confuses the .SH macros and the like no end.  Expand them ourselves.
+    # Also separate troff from nroff if there are any fixed-width fonts in use
+    # to work around problems with Solaris nroff.
+    my $c_is_quote = ($$self{LQUOTE} =~ /\"/) || ($$self{RQUOTE} =~ /\"/);
+    my $fixedpat = join '|', @{ $$self{FONTS} }{'100', '101', '110', '111'};
+    $fixedpat =~ s/\\/\\\\/g;
+    $fixedpat =~ s/\(/\\\(/g;
+    if ($text =~ m/\"/ || $text =~ m/$fixedpat/) {
+        $text =~ s/\"/\"\"/g;
+        my $nroff = $text;
+        my $troff = $text;
+        $troff =~ s/\"\"([^\"]*)\"\"/\`\`$1\'\'/g;
+        if ($c_is_quote and $text =~ m/\\\*\(C[\'\`]/) {
+            $nroff =~ s/\\\*\(C\`/$$self{LQUOTE}/g;
+            $nroff =~ s/\\\*\(C\'/$$self{RQUOTE}/g;
+            $troff =~ s/\\\*\(C[\'\`]//g;
+        }
+        $nroff = qq("$nroff") . ($extra ? " $extra" : '');
+        $troff = qq("$troff") . ($extra ? " $extra" : '');
+
+        # Work around the Solaris nroff bug where \f(CW\fP leaves the font set
+        # to Roman rather than the actual previous font when used in headings.
+        # troff output may still be broken, but at least we can fix nroff by
+        # just switching the font changes to the non-fixed versions.
+        my $font_end = "(?:\\f[PR]|\Q$$self{FONTS}{100}\E)";
+        $nroff =~ s/\Q$$self{FONTS}{100}\E(.*?)\\f([PR])/$1/g;
+        $nroff =~ s/\Q$$self{FONTS}{101}\E(.*?)$font_end/\\fI$1\\fP/g;
+        $nroff =~ s/\Q$$self{FONTS}{110}\E(.*?)$font_end/\\fB$1\\fP/g;
+        $nroff =~ s/\Q$$self{FONTS}{111}\E(.*?)$font_end/\\f\(BI$1\\fP/g;
+
+        # Now finally output the command.  Bother with .ie only if the nroff
+        # and troff output aren't the same.
+        if ($nroff ne $troff) {
+            return ".ie n $command $nroff\n.el $command $troff\n";
+        } else {
+            return "$command $nroff\n";
+        }
+    } else {
+        $text = qq("$text") . ($extra ? " $extra" : '');
+        return "$command $text\n";
+    }
+}
+
+# Protect leading quotes and periods against interpretation as commands.  Also
+# protect anything starting with a backslash, since it could expand or hide
+# something that *roff would interpret as a command.  This is overkill, but
+# it's much simpler than trying to parse *roff here.
+sub protect {
+    my ($self, $text) = @_;
+    $text =~ s/^([.\'\\])/\\&$1/mg;
+    return $text;
+}
+
+# Make vertical whitespace if NEEDSPACE is set, appropriate to the indentation
+# level the situation.  This function is needed since in *roff one has to
+# create vertical whitespace after paragraphs and between some things, but
+# other macros create their own whitespace.  Also close out a sequence of
+# repeated =items, since calling makespace means we're about to begin the item
+# body.
+sub makespace {
+    my ($self) = @_;
+    $self->output (".PD\n") if $$self{ITEMS} > 1;
+    $$self{ITEMS} = 0;
+    $self->output ($$self{INDENT} > 0 ? ".Sp\n" : ".PP\n")
+        if $$self{NEEDSPACE};
+}
+
+# Output any pending index entries, and optionally an index entry given as an
+# argument.  Support multiple index entries in X<> separated by slashes, and
+# strip special escapes from index entries.
+sub outindex {
+    my ($self, $section, $index) = @_;
+    my @entries = map { split m%\s*/\s*% } @{ $$self{INDEX} };
+    return unless ($section || @entries);
+
+    # We're about to output all pending entries, so clear our pending queue.
+    $$self{INDEX} = [];
+
+    # Build the output.  Regular index entries are marked Xref, and headings
+    # pass in their own section.  Undo some *roff formatting on headings.
+    my @output;
+    if (@entries) {
+        push @output, [ 'Xref', join (' ', @entries) ];
+    }
+    if ($section) {
+        $index =~ s/\\-/-/g;
+        $index =~ s/\\(?:s-?\d|.\(..|.)//g;
+        push @output, [ $section, $index ];
+    }
+
+    # Print out the .IX commands.
+    for (@output) {
+        my ($type, $entry) = @$_;
+        $entry =~ s/\s+/ /g;
+        $entry =~ s/\"/\"\"/g;
+        $entry =~ s/\\/\\\\/g;
+        $self->output (".IX $type " . '"' . $entry . '"' . "\n");
+    }
+}
+
+# Output some text, without any additional changes.
+sub output {
+    my ($self, @text) = @_;
+    if ($$self{ENCODE}) {
+        print { $$self{output_fh} } Encode::encode ('UTF-8', join ('', @text));
+    } else {
+        print { $$self{output_fh} } @text;
+    }
+}
+
+##############################################################################
+# Document initialization
+##############################################################################
+
+# Handle the start of the document.  Here we handle empty documents, as well
+# as setting up our basic macros in a preamble and building the page title.
+sub start_document {
+    my ($self, $attrs) = @_;
+    if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) {
+        DEBUG and print "Document is contentless\n";
+        $$self{CONTENTLESS} = 1;
+    } else {
+        delete $$self{CONTENTLESS};
+    }
+
+    # When UTF-8 output is set, check whether our output file handle already
+    # has a PerlIO encoding layer set.  If it does not, we'll need to encode
+    # our output before printing it (handled in the output() sub).  Wrap the
+    # check in an eval to handle versions of Perl without PerlIO.
+    #
+    # PerlIO::get_layers still requires its argument be a glob, so coerce the
+    # file handle to a glob.
+    $$self{ENCODE} = 0;
+    if ($$self{utf8}) {
+        $$self{ENCODE} = 1;
+        eval {
+            my @options = (output => 1, details => 1);
+            my @layers = PerlIO::get_layers (*{$$self{output_fh}}, @options);
+            if ($layers[-1] & PerlIO::F_UTF8 ()) {
+                $$self{ENCODE} = 0;
+            }
+        }
+    }
+
+    # Determine information for the preamble and then output it unless the
+    # document was content-free.
+    if (!$$self{CONTENTLESS}) {
+        my ($name, $section);
+        if (defined $$self{name}) {
+            $name = $$self{name};
+            $section = $$self{section} || 1;
+        } else {
+            ($name, $section) = $self->devise_title;
+        }
+        my $date = defined($$self{date}) ? $$self{date} : $self->devise_date;
+        $self->preamble ($name, $section, $date)
+            unless $self->bare_output or DEBUG > 9;
+    }
+
+    # Initialize a few per-document variables.
+    $$self{INDENT}    = 0;      # Current indentation level.
+    $$self{INDENTS}   = [];     # Stack of indentations.
+    $$self{INDEX}     = [];     # Index keys waiting to be printed.
+    $$self{IN_NAME}   = 0;      # Whether processing the NAME section.
+    $$self{ITEMS}     = 0;      # The number of consecutive =items.
+    $$self{ITEMTYPES} = [];     # Stack of =item types, one per list.
+    $$self{SHIFTWAIT} = 0;      # Whether there is a shift waiting.
+    $$self{SHIFTS}    = [];     # Stack of .RS shifts.
+    $$self{PENDING}   = [[]];   # Pending output.
+}
+
+# Handle the end of the document.  This handles dying on POD errors, since
+# Pod::Parser currently doesn't.  Otherwise, does nothing but print out a
+# final comment at the end of the document under debugging.
+sub end_document {
+    my ($self) = @_;
+    if ($$self{complain_die} && $self->errors_seen) {
+        croak ("POD document had syntax errors");
+    }
+    return if $self->bare_output;
+    return if ($$self{CONTENTLESS} && !$$self{ALWAYS_EMIT_SOMETHING});
+    $self->output (q(.\" [End document]) . "\n") if DEBUG;
+}
+
+# Try to figure out the name and section from the file name and return them as
+# a list, returning an empty name and section 1 if we can't find any better
+# information.  Uses File::Basename and File::Spec as necessary.
+sub devise_title {
+    my ($self) = @_;
+    my $name = $self->source_filename || '';
+    my $section = $$self{section} || 1;
+    $section = 3 if (!$$self{section} && $name =~ /\.pm\z/i);
+    $name =~ s/\.p(od|[lm])\z//i;
+
+    # If Pod::Parser gave us an IO::File reference as the source file name,
+    # convert that to the empty string as well.  Then, if we don't have a
+    # valid name, convert it to STDIN.
+    #
+    # In podlators 4.00 through 4.07, this also produced a warning, but that
+    # was surprising to a lot of programs that had expected to be able to pipe
+    # POD through pod2man without specifying the name.  In the name of
+    # backward compatibility, just quietly set STDIN as the page title.
+    if ($name =~ /^IO::File(?:=\w+)\(0x[\da-f]+\)$/i) {
+        $name = '';
+    }
+    if ($name eq '') {
+        $name = 'STDIN';
+    }
+
+    # If the section isn't 3, then the name defaults to just the basename of
+    # the file.
+    if ($section !~ /^3/) {
+        require File::Basename;
+        $name = uc File::Basename::basename ($name);
+    } else {
+        require File::Spec;
+        my ($volume, $dirs, $file) = File::Spec->splitpath ($name);
+
+        # Otherwise, assume we're dealing with a module.  We want to figure
+        # out the full module name from the path to the file, but we don't
+        # want to include too much of the path into the module name.  Lose
+        # anything up to the first of:
+        #
+        #     */lib/*perl*/         standard or site_perl module
+        #     */*perl*/lib/         from -Dprefix=/opt/perl
+        #     */*perl*/             random module hierarchy
+        #
+        # Also strip off a leading site, site_perl, or vendor_perl component,
+        # any OS-specific component, and any version number component, and
+        # strip off an initial component of "lib" or "blib/lib" since that's
+        # what ExtUtils::MakeMaker creates.
+        #
+        # splitdir requires at least File::Spec 0.8.
+        my @dirs = File::Spec->splitdir ($dirs);
+        if (@dirs) {
+            my $cut = 0;
+            my $i;
+            for ($i = 0; $i < @dirs; $i++) {
+                if ($dirs[$i] =~ /perl/) {
+                    $cut = $i + 1;
+                    $cut++ if ($dirs[$i + 1] && $dirs[$i + 1] eq 'lib');
+                    last;
+                }
+            }
+            if ($cut > 0) {
+                splice (@dirs, 0, $cut);
+                shift @dirs if ($dirs[0] =~ /^(site|vendor)(_perl)?$/);
+                shift @dirs if ($dirs[0] =~ /^[\d.]+$/);
+                shift @dirs if ($dirs[0] =~ /^(.*-$^O|$^O-.*|$^O)$/);
+            }
+            shift @dirs if $dirs[0] eq 'lib';
+            splice (@dirs, 0, 2) if ($dirs[0] eq 'blib' && $dirs[1] eq 'lib');
+        }
+
+        # Remove empty directories when building the module name; they
+        # occur too easily on Unix by doubling slashes.
+        $name = join ('::', (grep { $_ ? $_ : () } @dirs), $file);
+    }
+    return ($name, $section);
+}
+
+# Determine the modification date and return that, properly formatted in ISO
+# format.
+#
+# If POD_MAN_DATE is set, that overrides anything else.  This can be used for
+# reproducible generation of the same file even if the input file timestamps
+# are unpredictable or the POD comes from standard input.
+#
+# Otherwise, if SOURCE_DATE_EPOCH is set and can be parsed as seconds since
+# the UNIX epoch, base the timestamp on that.  See
+# <https://reproducible-builds.org/specs/source-date-epoch/>
+#
+# Otherwise, use the modification date of the input if we can stat it.  Be
+# aware that Pod::Simple returns the stringification of the file handle as
+# source_filename for input from a file handle, so we'll stat some random ref
+# string in that case.  If that fails, instead use the current time.
+#
+# $self - Pod::Man object, used to get the source file
+#
+# Returns: YYYY-MM-DD date suitable for the left-hand footer
+sub devise_date {
+    my ($self) = @_;
+
+    # If POD_MAN_DATE is set, always use it.
+    if (defined($ENV{POD_MAN_DATE})) {
+        return $ENV{POD_MAN_DATE};
+    }
+
+    # If SOURCE_DATE_EPOCH is set and can be parsed, use that.
+    my $time;
+    if (defined($ENV{SOURCE_DATE_EPOCH}) && $ENV{SOURCE_DATE_EPOCH} !~ /\D/) {
+        $time = $ENV{SOURCE_DATE_EPOCH};
+    }
+
+    # Otherwise, get the input filename and try to stat it.  If that fails,
+    # use the current time.
+    if (!defined $time) {
+        my $input = $self->source_filename;
+        if ($input) {
+            $time = (stat($input))[9] || time();
+        } else {
+            $time = time();
+        }
+    }
+
+    # Can't use POSIX::strftime(), which uses Fcntl, because MakeMaker uses
+    # this and it has to work in the core which can't load dynamic libraries.
+    # Use gmtime instead of localtime so that the generated man page does not
+    # depend on the local time zone setting and is more reproducible
+    my ($year, $month, $day) = (gmtime($time))[5,4,3];
+    return sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day);
+}
+
+# Print out the preamble and the title.  The meaning of the arguments to .TH
+# unfortunately vary by system; some systems consider the fourth argument to
+# be a "source" and others use it as a version number.  Generally it's just
+# presented as the left-side footer, though, so it doesn't matter too much if
+# a particular system gives it another interpretation.
+#
+# The order of date and release used to be reversed in older versions of this
+# module, but this order is correct for both Solaris and Linux.
+sub preamble {
+    my ($self, $name, $section, $date) = @_;
+    my $preamble = $self->preamble_template (!$$self{utf8});
+
+    # Build the index line and make sure that it will be syntactically valid.
+    my $index = "$name $section";
+    $index =~ s/\"/\"\"/g;
+
+    # If name or section contain spaces, quote them (section really never
+    # should, but we may as well be cautious).
+    for ($name, $section) {
+        if (/\s/) {
+            s/\"/\"\"/g;
+            $_ = '"' . $_ . '"';
+        }
+    }
+
+    # Double quotes in date, since it will be quoted.
+    $date =~ s/\"/\"\"/g;
+
+    # Substitute into the preamble the configuration options.
+    $preamble =~ s/\@CFONT\@/$$self{fixed}/;
+    $preamble =~ s/\@LQUOTE\@/$$self{LQUOTE}/;
+    $preamble =~ s/\@RQUOTE\@/$$self{RQUOTE}/;
+    chomp $preamble;
+
+    # Get the version information.
+    my $version = $self->version_report;
+
+    # Finally output everything.
+    $self->output (<<"----END OF HEADER----");
+.\\" Automatically generated by $version
+.\\"
+.\\" Standard preamble:
+.\\" ========================================================================
+$preamble
+.\\" ========================================================================
+.\\"
+.IX Title "$index"
+.TH $name $section "$date" "$$self{release}" "$$self{center}"
+.\\" For nroff, turn off justification.  Always turn off hyphenation; it makes
+.\\" way too many mistakes in technical documents.
+.if n .ad l
+.nh
+----END OF HEADER----
+    $self->output (".\\\" [End of preamble]\n") if DEBUG;
+}
+
+##############################################################################
+# Text blocks
+##############################################################################
+
+# Handle a basic block of text.  The only tricky part of this is if this is
+# the first paragraph of text after an =over, in which case we have to change
+# indentations for *roff.
+sub cmd_para {
+    my ($self, $attrs, $text) = @_;
+    my $line = $$attrs{start_line};
+
+    # Output the paragraph.  We also have to handle =over without =item.  If
+    # there's an =over without =item, SHIFTWAIT will be set, and we need to
+    # handle creation of the indent here.  Add the shift to SHIFTS so that it
+    # will be cleaned up on =back.
+    $self->makespace;
+    if ($$self{SHIFTWAIT}) {
+        $self->output (".RS $$self{INDENT}\n");
+        push (@{ $$self{SHIFTS} }, $$self{INDENT});
+        $$self{SHIFTWAIT} = 0;
+    }
+
+    # Add the line number for debugging, but not in the NAME section just in
+    # case the comment would confuse apropos.
+    $self->output (".\\\" [At source line $line]\n")
+        if defined ($line) && DEBUG && !$$self{IN_NAME};
+
+    # Force exactly one newline at the end and strip unwanted trailing
+    # whitespace at the end, but leave "\ " backslashed space from an S< > at
+    # the end of a line.  Reverse the text first, to avoid having to scan the
+    # entire paragraph.
+    $text = reverse $text;
+    $text =~ s/\A\s*?(?= \\|\S|\z)/\n/;
+    $text = reverse $text;
+
+    # Output the paragraph.
+    $self->output ($self->protect ($self->textmapfonts ($text)));
+    $self->outindex;
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Handle a verbatim paragraph.  Put a null token at the beginning of each line
+# to protect against commands and wrap in .Vb/.Ve (which we define in our
+# prelude).
+sub cmd_verbatim {
+    my ($self, $attrs, $text) = @_;
+
+    # Ignore an empty verbatim paragraph.
+    return unless $text =~ /\S/;
+
+    # Force exactly one newline at the end and strip unwanted trailing
+    # whitespace at the end.  Reverse the text first, to avoid having to scan
+    # the entire paragraph.
+    $text = reverse $text;
+    $text =~ s/\A\s*/\n/;
+    $text = reverse $text;
+
+    # Get a count of the number of lines before the first blank line, which
+    # we'll pass to .Vb as its parameter.  This tells *roff to keep that many
+    # lines together.  We don't want to tell *roff to keep huge blocks
+    # together.
+    my @lines = split (/\n/, $text);
+    my $unbroken = 0;
+    for (@lines) {
+        last if /^\s*$/;
+        $unbroken++;
+    }
+    $unbroken = 10 if ($unbroken > 12 && !$$self{MAGIC_VNOPAGEBREAK_LIMIT});
+
+    # Prepend a null token to each line.
+    $text =~ s/^/\\&/gm;
+
+    # Output the results.
+    $self->makespace;
+    $self->output (".Vb $unbroken\n$text.Ve\n");
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Handle literal text (produced by =for and similar constructs).  Just output
+# it with the minimum of changes.
+sub cmd_data {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/^\n+//;
+    $text =~ s/\n{0,2}$/\n/;
+    $self->output ($text);
+    return '';
+}
+
+##############################################################################
+# Headings
+##############################################################################
+
+# Common code for all headings.  This is called before the actual heading is
+# output.  It returns the cleaned up heading text (putting the heading all on
+# one line) and may do other things, like closing bad =item blocks.
+sub heading_common {
+    my ($self, $text, $line) = @_;
+    $text =~ s/\s+$//;
+    $text =~ s/\s*\n\s*/ /g;
+
+    # This should never happen; it means that we have a heading after =item
+    # without an intervening =back.  But just in case, handle it anyway.
+    if ($$self{ITEMS} > 1) {
+        $$self{ITEMS} = 0;
+        $self->output (".PD\n");
+    }
+
+    # Output the current source line.
+    $self->output ( ".\\\" [At source line $line]\n" )
+        if defined ($line) && DEBUG;
+    return $text;
+}
+
+# First level heading.  We can't output .IX in the NAME section due to a bug
+# in some versions of catman, so don't output a .IX for that section.  .SH
+# already uses small caps, so remove \s0 and \s-1.  Maintain IN_NAME as
+# appropriate.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\\s-?\d//g;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    my $isname = ($text eq 'NAME' || $text =~ /\(NAME\)/);
+    $self->output ($self->switchquotes ('.SH', $self->mapfonts ($text)));
+    $self->outindex ('Header', $text) unless $isname;
+    $$self{NEEDSPACE} = 0;
+    $$self{IN_NAME} = $isname;
+    return '';
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->output ($self->switchquotes ('.SS', $self->mapfonts ($text)));
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 0;
+    return '';
+}
+
+# Third level heading.  *roff doesn't have this concept, so just put the
+# heading in italics as a normal paragraph.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->makespace;
+    $self->output ($self->textmapfonts ('\f(IS' . $text . '\f(IE') . "\n");
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Fourth level heading.  *roff doesn't have this concept, so just put the
+# heading as a normal paragraph.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->makespace;
+    $self->output ($self->textmapfonts ($text) . "\n");
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+##############################################################################
+# Formatting codes
+##############################################################################
+
+# All of the formatting codes that aren't handled internally by the parser,
+# other than L<> and X<>.
+sub cmd_b { return $_[0]->{IN_NAME} ? $_[2] : '\f(BS' . $_[2] . '\f(BE' }
+sub cmd_i { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' }
+sub cmd_f { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' }
+sub cmd_c { return $_[0]->quote_literal ($_[2]) }
+
+# Index entries are just added to the pending entries.
+sub cmd_x {
+    my ($self, $attrs, $text) = @_;
+    push (@{ $$self{INDEX} }, $text);
+    return '';
+}
+
+# Links reduce to the text that we're given, wrapped in angle brackets if it's
+# a URL, followed by the URL.  We take an option to suppress the URL if anchor
+# text is given.  We need to format the "to" value of the link before
+# comparing it to the text since we may escape hyphens.
+sub cmd_l {
+    my ($self, $attrs, $text) = @_;
+    if ($$attrs{type} eq 'url') {
+        my $to = $$attrs{to};
+        if (defined $to) {
+            my $tag = $$self{PENDING}[-1];
+            $to = $self->format_text ($$tag[1], $to);
+        }
+        if (not defined ($to) or $to eq $text) {
+            return "<$text>";
+        } elsif ($$self{nourls}) {
+            return $text;
+        } else {
+            return "$text <$$attrs{to}>";
+        }
+    } else {
+        return $text;
+    }
+}
+
+##############################################################################
+# List handling
+##############################################################################
+
+# Handle the beginning of an =over block.  Takes the type of the block as the
+# first argument, and then the attr hash.  This is called by the handlers for
+# the four different types of lists (bullet, number, text, and block).
+sub over_common_start {
+    my ($self, $type, $attrs) = @_;
+    my $line = $$attrs{start_line};
+    my $indent = $$attrs{indent};
+    DEBUG > 3 and print " Starting =over $type (line $line, indent ",
+        ($indent || '?'), "\n";
+
+    # Find the indentation level.
+    unless (defined ($indent) && $indent =~ /^[-+]?\d{1,4}\s*$/) {
+        $indent = $$self{indent};
+    }
+
+    # If we've gotten multiple indentations in a row, we need to emit the
+    # pending indentation for the last level that we saw and haven't acted on
+    # yet.  SHIFTS is the stack of indentations that we've actually emitted
+    # code for.
+    if (@{ $$self{SHIFTS} } < @{ $$self{INDENTS} }) {
+        $self->output (".RS $$self{INDENT}\n");
+        push (@{ $$self{SHIFTS} }, $$self{INDENT});
+    }
+
+    # Now, do record-keeping.  INDENTS is a stack of indentations that we've
+    # seen so far, and INDENT is the current level of indentation.  ITEMTYPES
+    # is a stack of list types that we've seen.
+    push (@{ $$self{INDENTS} }, $$self{INDENT});
+    push (@{ $$self{ITEMTYPES} }, $type);
+    $$self{INDENT} = $indent + 0;
+    $$self{SHIFTWAIT} = 1;
+}
+
+# End an =over block.  Takes no options other than the class pointer.
+# Normally, once we close a block and therefore remove something from INDENTS,
+# INDENTS will now be longer than SHIFTS, indicating that we also need to emit
+# *roff code to close the indent.  This isn't *always* true, depending on the
+# circumstance.  If we're still inside an indentation, we need to emit another
+# .RE and then a new .RS to unconfuse *roff.
+sub over_common_end {
+    my ($self) = @_;
+    DEBUG > 3 and print " Ending =over\n";
+    $$self{INDENT} = pop @{ $$self{INDENTS} };
+    pop @{ $$self{ITEMTYPES} };
+
+    # If we emitted code for that indentation, end it.
+    if (@{ $$self{SHIFTS} } > @{ $$self{INDENTS} }) {
+        $self->output (".RE\n");
+        pop @{ $$self{SHIFTS} };
+    }
+
+    # If we're still in an indentation, *roff will have now lost track of the
+    # right depth of that indentation, so fix that.
+    if (@{ $$self{INDENTS} } > 0) {
+        $self->output (".RE\n");
+        $self->output (".RS $$self{INDENT}\n");
+    }
+    $$self{NEEDSPACE} = 1;
+    $$self{SHIFTWAIT} = 0;
+}
+
+# Dispatch the start and end calls as appropriate.
+sub start_over_bullet { my $s = shift; $s->over_common_start ('bullet', @_) }
+sub start_over_number { my $s = shift; $s->over_common_start ('number', @_) }
+sub start_over_text   { my $s = shift; $s->over_common_start ('text',   @_) }
+sub start_over_block  { my $s = shift; $s->over_common_start ('block',  @_) }
+sub end_over_bullet { $_[0]->over_common_end }
+sub end_over_number { $_[0]->over_common_end }
+sub end_over_text   { $_[0]->over_common_end }
+sub end_over_block  { $_[0]->over_common_end }
+
+# The common handler for all item commands.  Takes the type of the item, the
+# attributes, and then the text of the item.
+#
+# Emit an index entry for anything that's interesting, but don't emit index
+# entries for things like bullets and numbers.  Newlines in an item title are
+# turned into spaces since *roff can't handle them embedded.
+sub item_common {
+    my ($self, $type, $attrs, $text) = @_;
+    my $line = $$attrs{start_line};
+    DEBUG > 3 and print "  $type item (line $line): $text\n";
+
+    # Clean up the text.  We want to end up with two variables, one ($text)
+    # which contains any body text after taking out the item portion, and
+    # another ($item) which contains the actual item text.
+    $text =~ s/\s+$//;
+    my ($item, $index);
+    if ($type eq 'bullet') {
+        $item = "\\\(bu";
+        $text =~ s/\n*$/\n/;
+    } elsif ($type eq 'number') {
+        $item = $$attrs{number} . '.';
+    } else {
+        $item = $text;
+        $item =~ s/\s*\n\s*/ /g;
+        $text = '';
+        $index = $item if ($item =~ /\w/);
+    }
+
+    # Take care of the indentation.  If shifts and indents are equal, close
+    # the top shift, since we're about to create an indentation with .IP.
+    # Also output .PD 0 to turn off spacing between items if this item is
+    # directly following another one.  We only have to do that once for a
+    # whole chain of items so do it for the second item in the change.  Note
+    # that makespace is what undoes this.
+    if (@{ $$self{SHIFTS} } == @{ $$self{INDENTS} }) {
+        $self->output (".RE\n");
+        pop @{ $$self{SHIFTS} };
+    }
+    $self->output (".PD 0\n") if ($$self{ITEMS} == 1);
+
+    # Now, output the item tag itself.
+    $item = $self->textmapfonts ($item);
+    $self->output ($self->switchquotes ('.IP', $item, $$self{INDENT}));
+    $$self{NEEDSPACE} = 0;
+    $$self{ITEMS}++;
+    $$self{SHIFTWAIT} = 0;
+
+    # If body text for this item was included, go ahead and output that now.
+    if ($text) {
+        $text =~ s/\s*$/\n/;
+        $self->makespace;
+        $self->output ($self->protect ($self->textmapfonts ($text)));
+        $$self{NEEDSPACE} = 1;
+    }
+    $self->outindex ($index ? ('Item', $index) : ());
+}
+
+# Dispatch the item commands to the appropriate place.
+sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) }
+sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) }
+sub cmd_item_text   { my $self = shift; $self->item_common ('text',   @_) }
+sub cmd_item_block  { my $self = shift; $self->item_common ('block',  @_) }
+
+##############################################################################
+# Backward compatibility
+##############################################################################
+
+# Reset the underlying Pod::Simple object between calls to parse_from_file so
+# that the same object can be reused to convert multiple pages.
+sub parse_from_file {
+    my $self = shift;
+    $self->reinit;
+
+    # Fake the old cutting option to Pod::Parser.  This fiddles with internal
+    # Pod::Simple state and is quite ugly; we need a better approach.
+    if (ref ($_[0]) eq 'HASH') {
+        my $opts = shift @_;
+        if (defined ($$opts{-cutting}) && !$$opts{-cutting}) {
+            $$self{in_pod} = 1;
+            $$self{last_was_blank} = 1;
+        }
+    }
+
+    # Do the work.
+    my $retval = $self->SUPER::parse_from_file (@_);
+
+    # Flush output, since Pod::Simple doesn't do this.  Ideally we should also
+    # close the file descriptor if we had to open one, but we can't easily
+    # figure this out.
+    my $fh = $self->output_fh ();
+    my $oldfh = select $fh;
+    my $oldflush = $|;
+    $| = 1;
+    print $fh '';
+    $| = $oldflush;
+    select $oldfh;
+    return $retval;
+}
+
+# Pod::Simple failed to provide this backward compatibility function, so
+# implement it ourselves.  File handles are one of the inputs that
+# parse_from_file supports.
+sub parse_from_filehandle {
+    my $self = shift;
+    return $self->parse_from_file (@_);
+}
+
+# Pod::Simple's parse_file doesn't set output_fh.  Wrap the call and do so
+# ourself unless it was already set by the caller, since our documentation has
+# always said that this should work.
+sub parse_file {
+    my ($self, $in) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_file ($in);
+}
+
+# Do the same for parse_lines, just to be polite.  Pod::Simple's man page
+# implies that the caller is responsible for setting this, but I don't see any
+# reason not to set a default.
+sub parse_lines {
+    my ($self, @lines) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_lines (@lines);
+}
+
+# Likewise for parse_string_document.
+sub parse_string_document {
+    my ($self, $doc) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_string_document ($doc);
+}
+
+##############################################################################
+# Translation tables
+##############################################################################
+
+# The following table is adapted from Tom Christiansen's pod2man.  It assumes
+# that the standard preamble has already been printed, since that's what
+# defines all of the accent marks.  We really want to do something better than
+# this when *roff actually supports other character sets itself, since these
+# results are pretty poor.
+#
+# This only works in an ASCII world.  What to do in a non-ASCII world is very
+# unclear -- hopefully we can assume UTF-8 and just leave well enough alone.
+@ESCAPES{0xA0 .. 0xFF} = (
+    "\\ ", undef, undef, undef,            undef, undef, undef, undef,
+    undef, undef, undef, undef,            undef, "\\%", undef, undef,
+
+    undef, undef, undef, undef,            undef, undef, undef, undef,
+    undef, undef, undef, undef,            undef, undef, undef, undef,
+
+    "A\\*`",  "A\\*'", "A\\*^", "A\\*~",   "A\\*:", "A\\*o", "\\*(Ae", "C\\*,",
+    "E\\*`",  "E\\*'", "E\\*^", "E\\*:",   "I\\*`", "I\\*'", "I\\*^",  "I\\*:",
+
+    "\\*(D-", "N\\*~", "O\\*`", "O\\*'",   "O\\*^", "O\\*~", "O\\*:",  undef,
+    "O\\*/",  "U\\*`", "U\\*'", "U\\*^",   "U\\*:", "Y\\*'", "\\*(Th", "\\*8",
+
+    "a\\*`",  "a\\*'", "a\\*^", "a\\*~",   "a\\*:", "a\\*o", "\\*(ae", "c\\*,",
+    "e\\*`",  "e\\*'", "e\\*^", "e\\*:",   "i\\*`", "i\\*'", "i\\*^",  "i\\*:",
+
+    "\\*(d-", "n\\*~", "o\\*`", "o\\*'",   "o\\*^", "o\\*~", "o\\*:",  undef,
+    "o\\*/" , "u\\*`", "u\\*'", "u\\*^",   "u\\*:", "y\\*'", "\\*(th", "y\\*:",
+) if ASCII;
+
+##############################################################################
+# Premable
+##############################################################################
+
+# The following is the static preamble which starts all *roff output we
+# generate.  Most is static except for the font to use as a fixed-width font,
+# which is designed by @CFONT@, and the left and right quotes to use for C<>
+# text, designated by @LQOUTE@ and @RQUOTE@.  However, the second part, which
+# defines the accent marks, is only used if $escapes is set to true.
+sub preamble_template {
+    my ($self, $accents) = @_;
+    my $preamble = <<'----END OF PREAMBLE----';
+.de Sp \" Vertical space (when we can't use .PP)
+.if t .sp .5v
+.if n .sp
+..
+.de Vb \" Begin verbatim text
+.ft @CFONT@
+.nf
+.ne \\$1
+..
+.de Ve \" End verbatim text
+.ft R
+.fi
+..
+.\" Set up some character translations and predefined strings.  \*(-- will
+.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
+.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
+.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
+.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
+.\" nothing in troff, for use with C<>.
+.tr \(*W-
+.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
+.ie n \{\
+.    ds -- \(*W-
+.    ds PI pi
+.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
+.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
+.    ds L" ""
+.    ds R" ""
+.    ds C` @LQUOTE@
+.    ds C' @RQUOTE@
+'br\}
+.el\{\
+.    ds -- \|\(em\|
+.    ds PI \(*p
+.    ds L" ``
+.    ds R" ''
+.    ds C`
+.    ds C'
+'br\}
+.\"
+.\" Escape single quotes in literal strings from groff's Unicode transform.
+.ie \n(.g .ds Aq \(aq
+.el       .ds Aq '
+.\"
+.\" If the F register is >0, we'll generate index entries on stderr for
+.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
+.\" entries marked with X<> in POD.  Of course, you'll have to process the
+.\" output yourself in some meaningful fashion.
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
+..
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+.    if \nF \{\
+.        de IX
+.        tm Index:\\$1\t\\n%\t"\\$2"
+..
+.        if !\nF==2 \{\
+.            nr % 0
+.            nr F 2
+.        \}
+.    \}
+.\}
+.rr rF
+----END OF PREAMBLE----
+#'# for cperl-mode
+
+    if ($accents) {
+        $preamble .= <<'----END OF PREAMBLE----'
+.\"
+.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
+.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
+.    \" fudge factors for nroff and troff
+.if n \{\
+.    ds #H 0
+.    ds #V .8m
+.    ds #F .3m
+.    ds #[ \f1
+.    ds #] \fP
+.\}
+.if t \{\
+.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
+.    ds #V .6m
+.    ds #F 0
+.    ds #[ \&
+.    ds #] \&
+.\}
+.    \" simple accents for nroff and troff
+.if n \{\
+.    ds ' \&
+.    ds ` \&
+.    ds ^ \&
+.    ds , \&
+.    ds ~ ~
+.    ds /
+.\}
+.if t \{\
+.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
+.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
+.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
+.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
+.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
+.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
+.\}
+.    \" troff and (daisy-wheel) nroff accents
+.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
+.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
+.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
+.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
+.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
+.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
+.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
+.ds ae a\h'-(\w'a'u*4/10)'e
+.ds Ae A\h'-(\w'A'u*4/10)'E
+.    \" corrections for vroff
+.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
+.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
+.    \" for low resolution devices (crt and lpr)
+.if \n(.H>23 .if \n(.V>19 \
+\{\
+.    ds : e
+.    ds 8 ss
+.    ds o a
+.    ds d- d\h'-1'\(ga
+.    ds D- D\h'-1'\(hy
+.    ds th \o'bp'
+.    ds Th \o'LP'
+.    ds ae ae
+.    ds Ae AE
+.\}
+.rm #[ #] #H #V #F C
+----END OF PREAMBLE----
+#`# for cperl-mode
+    }
+    return $preamble;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+use 5.006;  # we use some open(X, "<", $y) syntax
+
+package Pod::Perldoc;
+use strict;
+use warnings;
+use Config '%Config';
+
+use Fcntl;    # for sysopen
+use File::Basename qw(basename);
+use File::Spec::Functions qw(catfile catdir splitdir);
+
+use vars qw($VERSION @Pagers $Bindir $Pod2man
+  $Temp_Files_Created $Temp_File_Lifetime
+);
+$VERSION = '3.2801';
+
+#..........................................................................
+
+BEGIN {  # Make a DEBUG constant very first thing...
+  unless(defined &DEBUG) {
+    if(($ENV{'PERLDOCDEBUG'} || '') =~ m/^(\d+)/) { # untaint
+      eval("sub DEBUG () {$1}");
+      die "WHAT? Couldn't eval-up a DEBUG constant!? $@" if $@;
+    } else {
+      *DEBUG = sub () {0};
+    }
+  }
+}
+
+use Pod::Perldoc::GetOptsOO; # uses the DEBUG.
+use Carp qw(croak carp);
+
+# these are also in BaseTo, which I don't want to inherit
+sub debugging {
+	my $self = shift;
+
+    ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() )
+	}
+
+sub debug {
+	my( $self, @messages ) = @_;
+	return unless $self->debugging;
+	print STDERR map { "DEBUG : $_" } @messages;
+	}
+
+sub warn {
+  my( $self, @messages ) = @_;
+
+  carp( join "\n", @messages, '' );
+  }
+
+sub die {
+  my( $self, @messages ) = @_;
+
+  croak( join "\n", @messages, '' );
+  }
+
+#..........................................................................
+
+sub TRUE  () {1}
+sub FALSE () {return}
+sub BE_LENIENT () {1}
+
+BEGIN {
+ *is_vms     = $^O eq 'VMS'     ? \&TRUE : \&FALSE unless defined &is_vms;
+ *is_mswin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &is_mswin32;
+ *is_dos     = $^O eq 'dos'     ? \&TRUE : \&FALSE unless defined &is_dos;
+ *is_os2     = $^O eq 'os2'     ? \&TRUE : \&FALSE unless defined &is_os2;
+ *is_cygwin  = $^O eq 'cygwin'  ? \&TRUE : \&FALSE unless defined &is_cygwin;
+ *is_linux   = $^O eq 'linux'   ? \&TRUE : \&FALSE unless defined &is_linux;
+ *is_hpux    = $^O =~ m/hpux/   ? \&TRUE : \&FALSE unless defined &is_hpux;
+ *is_amigaos = $^O eq 'amigaos' ? \&TRUE : \&FALSE unless defined &is_amigaos;
+}
+
+$Temp_File_Lifetime ||= 60 * 60 * 24 * 5;
+  # If it's older than five days, it's quite unlikely
+  #  that anyone's still looking at it!!
+  # (Currently used only by the MSWin cleanup routine)
+
+
+#..........................................................................
+{ my $pager = $Config{'pager'};
+  push @Pagers, $pager if -x (split /\s+/, $pager)[0] or __PACKAGE__->is_vms;
+}
+$Bindir  = $Config{'scriptdirexp'};
+$Pod2man = "pod2man" . ( $Config{'versiononly'} ? $Config{'version'} : '' );
+
+# End of class-init stuff
+#
+###########################################################################
+#
+# Option accessors...
+
+foreach my $subname (map "opt_$_", split '', q{mhlDriFfXqnTdULva}) {
+  no strict 'refs';
+  *$subname = do{ use strict 'refs';  sub () { shift->_elem($subname, @_) } };
+}
+
+# And these are so that GetOptsOO knows they take options:
+sub opt_a_with { shift->_elem('opt_a', @_) }
+sub opt_f_with { shift->_elem('opt_f', @_) }
+sub opt_q_with { shift->_elem('opt_q', @_) }
+sub opt_d_with { shift->_elem('opt_d', @_) }
+sub opt_L_with { shift->_elem('opt_L', @_) }
+sub opt_v_with { shift->_elem('opt_v', @_) }
+
+sub opt_w_with { # Specify an option for the formatter subclass
+  my($self, $value) = @_;
+  if($value =~ m/^([-_a-zA-Z][-_a-zA-Z0-9]*)(?:[=\:](.*?))?$/s) {
+    my $option = $1;
+    my $option_value = defined($2) ? $2 : "TRUE";
+    $option =~ tr/\-/_/s;  # tolerate "foo-bar" for "foo_bar"
+    $self->add_formatter_option( $option, $option_value );
+  } else {
+    $self->warn( qq("$value" isn't a good formatter option name.  I'm ignoring it!\n ) );
+  }
+  return;
+}
+
+sub opt_M_with { # specify formatter class name(s)
+  my($self, $classes) = @_;
+  return unless defined $classes and length $classes;
+  DEBUG > 4 and print "Considering new formatter classes -M$classes\n";
+  my @classes_to_add;
+  foreach my $classname (split m/[,;]+/s, $classes) {
+    next unless $classname =~ m/\S/;
+    if( $classname =~ m/^(\w+(::\w+)+)$/s ) {
+      # A mildly restrictive concept of what modulenames are valid.
+      push @classes_to_add, $1; # untaint
+    } else {
+      $self->warn(  qq("$classname" isn't a valid classname.  Ignoring.\n) );
+    }
+  }
+
+  unshift @{ $self->{'formatter_classes'} }, @classes_to_add;
+
+  DEBUG > 3 and print(
+    "Adding @classes_to_add to the list of formatter classes, "
+    . "making them @{ $self->{'formatter_classes'} }.\n"
+  );
+
+  return;
+}
+
+sub opt_V { # report version and exit
+  print join '',
+    "Perldoc v$VERSION, under perl v$] for $^O",
+
+    (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber())
+     ? (" (win32 build ", &Win32::BuildNumber(), ")") : (),
+
+    (chr(65) eq 'A') ? () : " (non-ASCII)",
+
+    "\n",
+  ;
+  exit;
+}
+
+sub opt_t { # choose plaintext as output format
+  my $self = shift;
+  $self->opt_o_with('text')  if @_ and $_[0];
+  return $self->_elem('opt_t', @_);
+}
+
+sub opt_u { # choose raw pod as output format
+  my $self = shift;
+  $self->opt_o_with('pod')  if @_ and $_[0];
+  return $self->_elem('opt_u', @_);
+}
+
+sub opt_n_with {
+  # choose man as the output format, and specify the proggy to run
+  my $self = shift;
+  $self->opt_o_with('man')  if @_ and $_[0];
+  $self->_elem('opt_n', @_);
+}
+
+sub opt_o_with { # "o" for output format
+  my($self, $rest) = @_;
+  return unless defined $rest and length $rest;
+  if($rest =~ m/^(\w+)$/s) {
+    $rest = $1; #untaint
+  } else {
+    $self->warn( qq("$rest" isn't a valid output format.  Skipping.\n") );
+    return;
+  }
+
+  $self->aside("Noting \"$rest\" as desired output format...\n");
+
+  # Figure out what class(es) that could actually mean...
+
+  my @classes;
+  foreach my $prefix ("Pod::Perldoc::To", "Pod::Simple::", "Pod::") {
+    # Messy but smart:
+    foreach my $stem (
+      $rest,  # Yes, try it first with the given capitalization
+      "\L$rest", "\L\u$rest", "\U$rest" # And then try variations
+
+    ) {
+      $self->aside("Considering $prefix$stem\n");
+      push @classes, $prefix . $stem;
+    }
+
+    # Tidier, but misses too much:
+    #push @classes, $prefix . ucfirst(lc($rest));
+  }
+  $self->opt_M_with( join ";", @classes );
+  return;
+}
+
+###########################################################################
+# % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+
+sub run {  # to be called by the "perldoc" executable
+  my $class = shift;
+  if(DEBUG > 3) {
+    print "Parameters to $class\->run:\n";
+    my @x = @_;
+    while(@x) {
+      $x[1] = '<undef>'  unless defined $x[1];
+      $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY';
+      print "  [$x[0]] => [$x[1]]\n";
+      splice @x,0,2;
+    }
+    print "\n";
+  }
+  return $class -> new(@_) -> process() || 0;
+}
+
+# % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+###########################################################################
+
+sub new {  # yeah, nothing fancy
+  my $class = shift;
+  my $new = bless {@_}, (ref($class) || $class);
+  DEBUG > 1 and print "New $class object $new\n";
+  $new->init();
+  $new;
+}
+
+#..........................................................................
+
+sub aside {  # If we're in -D or DEBUG mode, say this.
+  my $self = shift;
+  if( DEBUG or $self->opt_D ) {
+    my $out = join( '',
+      DEBUG ? do {
+        my $callsub = (caller(1))[3];
+        my $package = quotemeta(__PACKAGE__ . '::');
+        $callsub =~ s/^$package/'/os;
+         # the o is justified, as $package really won't change.
+        $callsub . ": ";
+      } : '',
+      @_,
+    );
+    if(DEBUG) { print $out } else { print STDERR $out }
+  }
+  return;
+}
+
+#..........................................................................
+
+sub usage {
+  my $self = shift;
+  $self->warn( "@_\n" ) if @_;
+
+  # Erase evidence of previous errors (if any), so exit status is simple.
+  $! = 0;
+
+  CORE::die( <<EOF );
+perldoc [options] PageName|ModuleName|ProgramName|URL...
+perldoc [options] -f BuiltinFunction
+perldoc [options] -q FAQRegex
+perldoc [options] -v PerlVariable
+
+Options:
+    -h   Display this help message
+    -V   Report version
+    -r   Recursive search (slow)
+    -i   Ignore case
+    -t   Display pod using pod2text instead of Pod::Man and groff
+             (-t is the default on win32 unless -n is specified)
+    -u   Display unformatted pod text
+    -m   Display module's file in its entirety
+    -n   Specify replacement for groff
+    -l   Display the module's file name
+    -U   Don't attempt to drop privs for security
+    -F   Arguments are file names, not modules (implies -U)
+    -D   Verbosely describe what's going on
+    -T   Send output to STDOUT without any pager
+    -d output_filename_to_send_to
+    -o output_format_name
+    -M FormatterModuleNameToUse
+    -w formatter_option:option_value
+    -L translation_code   Choose doc translation (if any)
+    -X   Use index if present (looks for pod.idx at $Config{archlib})
+    -q   Search the text of questions (not answers) in perlfaq[1-9]
+    -f   Search Perl built-in functions
+    -a   Search Perl API
+    -v   Search predefined Perl variables
+
+PageName|ModuleName|ProgramName|URL...
+         is the name of a piece of documentation that you want to look at. You
+         may either give a descriptive name of the page (as in the case of
+         `perlfunc') the name of a module, either like `Term::Info' or like
+         `Term/Info', or the name of a program, like `perldoc', or a URL
+         starting with http(s).
+
+BuiltinFunction
+         is the name of a perl function.  Will extract documentation from
+         `perlfunc' or `perlop'.
+
+FAQRegex
+         is a regex. Will search perlfaq[1-9] for and extract any
+         questions that match.
+
+Any switches in the PERLDOC environment variable will be used before the
+command line arguments.  The optional pod index file contains a list of
+filenames, one per line.
+                                                       [Perldoc v$VERSION]
+EOF
+
+}
+
+#..........................................................................
+
+sub program_name {
+  my( $self ) = @_;
+
+  if( my $link = readlink( $0 ) ) {
+    $self->debug( "The value in $0 is a symbolic link to $link\n" );
+    }
+
+  my $basename = basename( $0 );
+
+  $self->debug( "\$0 is [$0]\nbasename is [$basename]\n" );
+  # possible name forms
+  #   perldoc
+  #   perldoc-v5.14
+  #   perldoc-5.14
+  #   perldoc-5.14.2
+  #   perlvar         # an alias mentioned in Camel 3
+  {
+  my( $untainted ) = $basename =~ m/(
+    \A
+    perl
+      (?: doc | func | faq | help | op | toc | var # Camel 3
+      ) 
+    (?: -? v? \d+ \. \d+ (?:\. \d+)? )? # possible version
+    (?: \. (?: bat | exe | com ) )?    # possible extension
+    \z
+    )
+    /x;
+
+  $self->debug($untainted);
+  return $untainted if $untainted;
+  }
+
+  $self->warn(<<"HERE");
+You called the perldoc command with a name that I didn't recognize.
+This might mean that someone is tricking you into running a
+program you don't intend to use, but it also might mean that you
+created your own link to perldoc. I think your program name is
+[$basename].
+
+I'll allow this if the filename only has [a-zA-Z0-9._-].
+HERE
+
+  {
+  my( $untainted ) = $basename =~ m/(
+    \A [a-zA-Z0-9._-]+ \z
+    )/x;
+
+  $self->debug($untainted);
+  return $untainted if $untainted;
+  }
+
+  $self->die(<<"HERE");
+I think that your name for perldoc is potentially unsafe, so I'm
+going to disallow it. I'd rather you be safe than sorry. If you
+intended to use the name I'm disallowing, please tell the maintainers
+about it. Write to:
+
+    Pod-Perldoc\@rt.cpan.org
+
+HERE
+}
+
+#..........................................................................
+
+sub usage_brief {
+  my $self = shift;
+  my $program_name = $self->program_name;
+
+  CORE::die( <<"EOUSAGE" );
+Usage: $program_name [-hVriDtumUFXlT] [-n nroffer_program]
+    [-d output_filename] [-o output_format] [-M FormatterModule]
+    [-w formatter_option:option_value] [-L translation_code]
+    PageName|ModuleName|ProgramName
+
+Examples:
+
+    $program_name -f PerlFunc
+    $program_name -q FAQKeywords
+    $program_name -v PerlVar
+    $program_name -a PerlAPI
+
+The -h option prints more help.  Also try "$program_name perldoc" to get
+acquainted with the system.                        [Perldoc v$VERSION]
+EOUSAGE
+
+}
+
+#..........................................................................
+
+sub pagers { @{ shift->{'pagers'} } }
+
+#..........................................................................
+
+sub _elem {  # handy scalar meta-accessor: shift->_elem("foo", @_)
+  if(@_ > 2) { return  $_[0]{ $_[1] } = $_[2]  }
+  else       { return  $_[0]{ $_[1] }          }
+}
+#..........................................................................
+###########################################################################
+#
+# Init formatter switches, and start it off with __bindir and all that
+# other stuff that ToMan.pm needs.
+#
+
+sub init {
+  my $self = shift;
+
+  # Make sure creat()s are neither too much nor too little
+  eval { umask(0077) };   # doubtless someone has no mask
+
+  if ( $] < 5.008 ) {
+      $self->aside("Your old perl doesn't have proper unicode support.");
+    }
+  else {
+      # http://www.perl.com/pub/2012/04/perlunicookbook-decode-argv-as-utf8.html
+      # Decode command line arguments as UTF-8. See RT#98906 for example problem.
+      use Encode qw(decode_utf8);
+      @ARGV = map { decode_utf8($_, 1) } @ARGV;
+    }
+
+  $self->{'args'}              ||= \@ARGV;
+  $self->{'found'}             ||= [];
+  $self->{'temp_file_list'}    ||= [];
+
+
+  $self->{'target'} = undef;
+
+  $self->init_formatter_class_list;
+
+  $self->{'pagers' } = [@Pagers] unless exists $self->{'pagers'};
+  $self->{'bindir' } = $Bindir   unless exists $self->{'bindir'};
+  $self->{'pod2man'} = $Pod2man  unless exists $self->{'pod2man'};
+  $self->{'search_path'} = [ ]   unless exists $self->{'search_path'};
+
+  push @{ $self->{'formatter_switches'} = [] }, (
+   # Yeah, we could use a hashref, but maybe there's some class where options
+   # have to be ordered; so we'll use an arrayref.
+
+     [ '__bindir'  => $self->{'bindir' } ],
+     [ '__pod2man' => $self->{'pod2man'} ],
+  );
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  $self->{'translators'} = [];
+  $self->{'extra_search_dirs'} = [];
+
+  return;
+}
+
+#..........................................................................
+
+sub init_formatter_class_list {
+  my $self = shift;
+  $self->{'formatter_classes'} ||= [];
+
+  # Remember, no switches have been read yet, when
+  # we've started this routine.
+
+  $self->opt_M_with('Pod::Perldoc::ToPod');   # the always-there fallthru
+  $self->opt_o_with('text');
+
+  return;
+}
+
+#..........................................................................
+
+sub process {
+    # if this ever returns, its retval will be used for exit(RETVAL)
+
+    my $self = shift;
+    DEBUG > 1 and print "  Beginning process.\n";
+    DEBUG > 1 and print "  Args: @{$self->{'args'}}\n\n";
+    if(DEBUG > 3) {
+        print "Object contents:\n";
+        my @x = %$self;
+        while(@x) {
+            $x[1] = '<undef>'  unless defined $x[1];
+            $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY';
+            print "  [$x[0]] => [$x[1]]\n";
+            splice @x,0,2;
+        }
+        print "\n";
+    }
+
+    # TODO: make it deal with being invoked as various different things
+    #  such as perlfaq".
+
+    return $self->usage_brief  unless  @{ $self->{'args'} };
+    $self->options_reading;
+    $self->pagers_guessing;
+    $self->aside(sprintf "$0 => %s v%s\n", ref($self), $self->VERSION);
+    $self->drop_privs_maybe unless ($self->opt_U || $self->opt_F);
+    $self->options_processing;
+
+    # Hm, we have @pages and @found, but we only really act on one
+    # file per call, with the exception of the opt_q hack, and with
+    # -l things
+
+    $self->aside("\n");
+
+    my @pages;
+    $self->{'pages'} = \@pages;
+    if(    $self->opt_f) { @pages = qw(perlfunc perlop)        }
+    elsif( $self->opt_q) { @pages = ("perlfaq1" .. "perlfaq9") }
+    elsif( $self->opt_v) { @pages = ("perlvar")                }
+    elsif( $self->opt_a) { @pages = ("perlapi")                }
+    else                 { @pages = @{$self->{'args'}};
+                           # @pages = __FILE__
+                           #  if @pages == 1 and $pages[0] eq 'perldoc';
+                         }
+
+    return $self->usage_brief  unless  @pages;
+
+    $self->find_good_formatter_class();
+    $self->formatter_sanity_check();
+
+    $self->maybe_extend_searchpath();
+      # for when we're apparently in a module or extension directory
+
+    my @found = $self->grand_search_init(\@pages);
+    exit ($self->is_vms ? 98962 : 1) unless @found;
+
+    if ($self->opt_l and not $self->opt_q ) {
+        DEBUG and print "We're in -l mode, so byebye after this:\n";
+        print join("\n", @found), "\n";
+        return;
+    }
+
+    $self->tweak_found_pathnames(\@found);
+    $self->assert_closing_stdout;
+    return $self->page_module_file(@found)  if  $self->opt_m;
+    DEBUG > 2 and print "Found: [@found]\n";
+
+    return $self->render_and_page(\@found);
+}
+
+#..........................................................................
+{
+
+my( %class_seen, %class_loaded );
+sub find_good_formatter_class {
+  my $self = $_[0];
+  my @class_list = @{ $self->{'formatter_classes'} || [] };
+  $self->die( "WHAT?  Nothing in the formatter class list!?" ) unless @class_list;
+
+  local @INC = @INC;
+  pop @INC if $INC[-1] eq '.';
+
+  my $good_class_found;
+  foreach my $c (@class_list) {
+    DEBUG > 4 and print "Trying to load $c...\n";
+    if($class_loaded{$c}) {
+      DEBUG > 4 and print "OK, the already-loaded $c it is!\n";
+      $good_class_found = $c;
+      last;
+    }
+
+    if($class_seen{$c}) {
+      DEBUG > 4 and print
+       "I've tried $c before, and it's no good.  Skipping.\n";
+      next;
+    }
+
+    $class_seen{$c} = 1;
+
+    if( $c->can('parse_from_file') ) {
+      DEBUG > 4 and print
+       "Interesting, the formatter class $c is already loaded!\n";
+
+    } elsif(
+      ( $self->is_os2 or $self->is_mswin32 or $self->is_dos or $self->is_os2)
+       # the always case-insensitive filesystems
+      and $class_seen{lc("~$c")}++
+    ) {
+      DEBUG > 4 and print
+       "We already used something quite like \"\L$c\E\", so no point using $c\n";
+      # This avoids redefining the package.
+    } else {
+      DEBUG > 4 and print "Trying to eval 'require $c'...\n";
+
+      local $^W = $^W;
+      if(DEBUG() or $self->opt_D) {
+        # feh, let 'em see it
+      } else {
+        $^W = 0;
+        # The average user just has no reason to be seeing
+        #  $^W-suppressible warnings from the require!
+      }
+
+      eval "require $c";
+      if($@) {
+        DEBUG > 4 and print "Couldn't load $c: $!\n";
+        next;
+      }
+    }
+
+    if( $c->can('parse_from_file') ) {
+      DEBUG > 4 and print "Settling on $c\n";
+      my $v = $c->VERSION;
+      $v = ( defined $v and length $v ) ? " version $v" : '';
+      $self->aside("Formatter class $c$v successfully loaded!\n");
+      $good_class_found = $c;
+      last;
+    } else {
+      DEBUG > 4 and print "Class $c isn't a formatter?!  Skipping.\n";
+    }
+  }
+
+  $self->die( "Can't find any loadable formatter class in @class_list?!\nAborting" )
+    unless $good_class_found;
+
+  $self->{'formatter_class'} = $good_class_found;
+  $self->aside("Will format with the class $good_class_found\n");
+
+  return;
+}
+
+}
+#..........................................................................
+
+sub formatter_sanity_check {
+  my $self = shift;
+  my $formatter_class = $self->{'formatter_class'}
+   || $self->die( "NO FORMATTER CLASS YET!?" );
+
+  if(!$self->opt_T # so -T can FORCE sending to STDOUT
+    and $formatter_class->can('is_pageable')
+    and !$formatter_class->is_pageable
+    and !$formatter_class->can('page_for_perldoc')
+  ) {
+    my $ext =
+     ($formatter_class->can('output_extension')
+       && $formatter_class->output_extension
+     ) || '';
+    $ext = ".$ext" if length $ext;
+
+    my $me = $self->program_name;
+    $self->die(
+       "When using Perldoc to format with $formatter_class, you have to\n"
+     . "specify -T or -dsomefile$ext\n"
+     . "See `$me perldoc' for more information on those switches.\n" )
+    ;
+  }
+}
+
+#..........................................................................
+
+sub render_and_page {
+    my($self, $found_list) = @_;
+
+    $self->maybe_generate_dynamic_pod($found_list);
+
+    my($out, $formatter) = $self->render_findings($found_list);
+
+    if($self->opt_d) {
+      printf "Perldoc (%s) output saved to %s\n",
+        $self->{'formatter_class'} || ref($self),
+        $out;
+      print "But notice that it's 0 bytes long!\n" unless -s $out;
+
+
+    } elsif(  # Allow the formatter to "page" itself, if it wants.
+      $formatter->can('page_for_perldoc')
+      and do {
+        $self->aside("Going to call $formatter\->page_for_perldoc(\"$out\")\n");
+        if( $formatter->page_for_perldoc($out, $self) ) {
+          $self->aside("page_for_perldoc returned true, so NOT paging with $self.\n");
+          1;
+        } else {
+          $self->aside("page_for_perldoc returned false, so paging with $self instead.\n");
+          '';
+        }
+      }
+    ) {
+      # Do nothing, since the formatter has "paged" it for itself.
+
+    } else {
+      # Page it normally (internally)
+
+      if( -s $out ) {  # Usual case:
+        $self->page($out, $self->{'output_to_stdout'}, $self->pagers);
+
+      } else {
+        # Odd case:
+        $self->aside("Skipping $out (from $$found_list[0] "
+         . "via $$self{'formatter_class'}) as it is 0-length.\n");
+
+        push @{ $self->{'temp_file_list'} }, $out;
+        $self->unlink_if_temp_file($out);
+      }
+    }
+
+    $self->after_rendering();  # any extra cleanup or whatever
+
+    return;
+}
+
+#..........................................................................
+
+sub options_reading {
+    my $self = shift;
+
+    if( defined $ENV{"PERLDOC"} and length $ENV{"PERLDOC"} ) {
+      require Text::ParseWords;
+      $self->aside("Noting env PERLDOC setting of $ENV{'PERLDOC'}\n");
+      # Yes, appends to the beginning
+      unshift @{ $self->{'args'} },
+        Text::ParseWords::shellwords( $ENV{"PERLDOC"} )
+      ;
+      DEBUG > 1 and print "  Args now: @{$self->{'args'}}\n\n";
+    } else {
+      DEBUG > 1 and print "  Okay, no PERLDOC setting in ENV.\n";
+    }
+
+    DEBUG > 1
+     and print "  Args right before switch processing: @{$self->{'args'}}\n";
+
+    Pod::Perldoc::GetOptsOO::getopts( $self, $self->{'args'}, 'YES' )
+     or return $self->usage;
+
+    DEBUG > 1
+     and print "  Args after switch processing: @{$self->{'args'}}\n";
+
+    return $self->usage if $self->opt_h;
+
+    return;
+}
+
+#..........................................................................
+
+sub options_processing {
+    my $self = shift;
+
+    if ($self->opt_X) {
+        my $podidx = "$Config{'archlib'}/pod.idx";
+        $podidx = "" unless -f $podidx && -r _ && -M _ <= 7;
+        $self->{'podidx'} = $podidx;
+    }
+
+    $self->{'output_to_stdout'} = 1  if  $self->opt_T or ! -t STDOUT;
+
+    $self->options_sanity;
+
+    # This used to set a default, but that's now moved into any
+    # formatter that cares to have a default.
+    if( $self->opt_n ) {
+        $self->add_formatter_option( '__nroffer' => $self->opt_n );
+    }
+
+    # Get language from PERLDOC_POD2 environment variable
+    if ( ! $self->opt_L && $ENV{PERLDOC_POD2} ) {
+        if ( $ENV{PERLDOC_POD2} eq '1' ) {
+          $self->_elem('opt_L',(split(/\_/, $ENV{LC_ALL} || $ENV{LC_LANG} || $ENV{LANG}))[0] );
+        }
+        else {
+          $self->_elem('opt_L', $ENV{PERLDOC_POD2});
+        }
+    };
+
+    # Adjust for using translation packages
+    $self->add_translator(split(/\s+/,$self->opt_L)) if $self->opt_L;
+
+    return;
+}
+
+#..........................................................................
+
+sub options_sanity {
+    my $self = shift;
+
+    # The opts-counting stuff interacts quite badly with
+    # the $ENV{"PERLDOC"} stuff.  I.e., if I have $ENV{"PERLDOC"}
+    # set to -t, and I specify -u on the command line, I don't want
+    # to be hectored at that -u and -t don't make sense together.
+
+    #my $opts = grep $_ && 1, # yes, the count of the set ones
+    #  $self->opt_t, $self->opt_u, $self->opt_m, $self->opt_l
+    #;
+    #
+    #$self->usage("only one of -t, -u, -m or -l") if $opts > 1;
+
+
+    # Any sanity-checking need doing here?
+
+    # But does not make sense to set either -f or -q in $ENV{"PERLDOC"}
+    if( $self->opt_f or $self->opt_q or $self->opt_a) {
+    my $count;
+    $count++ if $self->opt_f;
+    $count++ if $self->opt_q;
+    $count++ if $self->opt_a;
+    $self->usage("Only one of -f or -q or -a") if $count > 1;
+    $self->warn(
+        "Perldoc is meant for reading one file at a time.\n",
+        "So these parameters are being ignored: ",
+        join(' ', @{$self->{'args'}}),
+        "\n" )
+        if @{$self->{'args'}}
+    }
+    return;
+}
+
+#..........................................................................
+
+sub grand_search_init {
+    my($self, $pages, @found) = @_;
+
+    foreach (@$pages) {
+        if (/^http(s)?:\/\//) {
+            require HTTP::Tiny;
+            require File::Temp;
+            my $response = HTTP::Tiny->new->get($_);
+            if ($response->{success}) {
+                my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
+                $fh->print($response->{content});
+                push @found, $filename;
+                ($self->{podnames}{$filename} =
+                  m{.*/([^/#?]+)} ? uc $1 : "UNKNOWN")
+                   =~ s/\.P(?:[ML]|OD)\z//;
+            }
+            else {
+              print STDERR "No " .
+                    ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n";
+              if ( /^https/ ) {
+                print STDERR "You may need an SSL library (such as IO::Socket::SSL) for that URL.\n";
+              }
+            }
+            next;
+        }
+        if ($self->{'podidx'} && open(PODIDX, $self->{'podidx'})) {
+            my $searchfor = catfile split '::', $_;
+            $self->aside( "Searching for '$searchfor' in $self->{'podidx'}\n" );
+            local $_;
+            while (<PODIDX>) {
+                chomp;
+                push(@found, $_) if m,/$searchfor(?:\.(?:pod|pm))?\z,i;
+            }
+            close(PODIDX)            or $self->die( "Can't close $$self{'podidx'}: $!" );
+            next;
+        }
+
+        $self->aside( "Searching for $_\n" );
+
+        if ($self->opt_F) {
+            next unless -r;
+            push @found, $_ if $self->opt_l or $self->opt_m or $self->containspod($_);
+            next;
+        }
+
+        my @searchdirs;
+
+        # prepend extra search directories (including language specific)
+        push @searchdirs, @{ $self->{'extra_search_dirs'} };
+
+        # We must look both in @INC for library modules and in $bindir
+        # for executables, like h2xs or perldoc itself.
+        push @searchdirs, ($self->{'bindir'}, @{$self->{search_path}}, @INC);
+        unless ($self->opt_m) {
+            if ($self->is_vms) {
+                my($i,$trn);
+                for ($i = 0; $trn = $ENV{'DCL$PATH;'.$i}; $i++) {
+                    push(@searchdirs,$trn);
+                }
+                push(@searchdirs,'perl_root:[lib.pods]')  # installed pods
+            }
+            else {
+                push(@searchdirs, grep(-d, split($Config{path_sep},
+                                                 $ENV{'PATH'})));
+            }
+        }
+        my @files = $self->searchfor(0,$_,@searchdirs);
+        if (@files) {
+            $self->aside( "Found as @files\n" );
+        }
+        # add "perl" prefix, so "perldoc foo" may find perlfoo.pod
+    elsif (BE_LENIENT and !/\W/ and  @files = $self->searchfor(0, "perl$_", @searchdirs)) {
+            $self->aside( "Loosely found as @files\n" );
+        }
+        else {
+            # no match, try recursive search
+            @searchdirs = grep(!/^\.\z/s,@INC);
+            @files= $self->searchfor(1,$_,@searchdirs) if $self->opt_r;
+            if (@files) {
+                $self->aside( "Loosely found as @files\n" );
+            }
+            else {
+                print STDERR "No " .
+                    ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n";
+                if ( @{ $self->{'found'} } ) {
+                    print STDERR "However, try\n";
+                    my $me = $self->program_name;
+                    for my $dir (@{ $self->{'found'} }) {
+                        opendir(DIR, $dir) or $self->die( "opendir $dir: $!" );
+                        while (my $file = readdir(DIR)) {
+                            next if ($file =~ /^\./s);
+                            $file =~ s/\.(pm|pod)\z//;  # XXX: badfs
+                            print STDERR "\t$me $_\::$file\n";
+                        }
+                        closedir(DIR)    or $self->die( "closedir $dir: $!" );
+                    }
+                }
+            }
+        }
+        push(@found,@files);
+    }
+    return @found;
+}
+
+#..........................................................................
+
+sub maybe_generate_dynamic_pod {
+    my($self, $found_things) = @_;
+    my @dynamic_pod;
+
+    $self->search_perlapi($found_things, \@dynamic_pod)   if  $self->opt_a;
+
+    $self->search_perlfunc($found_things, \@dynamic_pod)  if  $self->opt_f;
+
+    $self->search_perlvar($found_things, \@dynamic_pod)   if  $self->opt_v;
+
+    $self->search_perlfaqs($found_things, \@dynamic_pod)  if  $self->opt_q;
+
+    if( ! $self->opt_f and ! $self->opt_q and ! $self->opt_v and ! $self->opt_a) {
+        DEBUG > 4 and print "That's a non-dynamic pod search.\n";
+    } elsif ( @dynamic_pod ) {
+        $self->aside("Hm, I found some Pod from that search!\n");
+        my ($buffd, $buffer) = $self->new_tempfile('pod', 'dyn');
+        if ( $] >= 5.008 && $self->opt_L ) {
+            binmode($buffd, ":encoding(UTF-8)");
+            print $buffd "=encoding utf8\n\n";
+        }
+
+        push @{ $self->{'temp_file_list'} }, $buffer;
+         # I.e., it MIGHT be deleted at the end.
+
+        my $in_list = !$self->not_dynamic && $self->opt_f || $self->opt_v || $self->opt_a;
+
+        print $buffd "=over 8\n\n" if $in_list;
+        print $buffd @dynamic_pod  or $self->die( "Can't print $buffer: $!" );
+        print $buffd "=back\n"     if $in_list;
+
+        close $buffd        or $self->die( "Can't close $buffer: $!" );
+
+        @$found_things = $buffer;
+          # Yes, so found_things never has more than one thing in
+          #  it, by time we leave here
+
+        $self->add_formatter_option('__filter_nroff' => 1);
+
+    } else {
+        @$found_things = ();
+        $self->aside("I found no Pod from that search!\n");
+    }
+
+    return;
+}
+
+#..........................................................................
+
+sub not_dynamic {
+  my ($self,$value) = @_;
+  $self->{__not_dynamic} = $value if @_ == 2;
+  return $self->{__not_dynamic};
+}
+
+#..........................................................................
+
+sub add_formatter_option { # $self->add_formatter_option('key' => 'value');
+  my $self = shift;
+  push @{ $self->{'formatter_switches'} }, [ @_ ] if @_;
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  return;
+}
+
+#.........................................................................
+
+sub new_translator { # $tr = $self->new_translator($lang);
+    my $self = shift;
+    my $lang = shift;
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $pack = 'POD2::' . uc($lang);
+    eval "require $pack";
+    if ( !$@ && $pack->can('new') ) {
+    return $pack->new();
+    }
+
+    eval { require POD2::Base };
+    return if $@;
+
+    return POD2::Base->new({ lang => $lang });
+}
+
+#.........................................................................
+
+sub add_translator { # $self->add_translator($lang);
+    my $self = shift;
+    for my $lang (@_) {
+        my $tr = $self->new_translator($lang);
+        if ( defined $tr ) {
+            push @{ $self->{'translators'} }, $tr;
+            push @{ $self->{'extra_search_dirs'} }, $tr->pod_dirs;
+
+            $self->aside( "translator for '$lang' loaded\n" );
+        } else {
+            # non-installed or bad translator package
+            $self->warn( "Perldoc cannot load translator package for '$lang': ignored\n" );
+        }
+
+    }
+    return;
+}
+
+#..........................................................................
+
+sub open_fh {
+    my ($self, $op, $path) = @_;
+
+    open my $fh, $op, $path or $self->die("Couldn't open $path: $!");
+    return $fh;
+}
+
+sub set_encoding {
+    my ($self, $fh, $encoding) = @_;
+
+    if ( $encoding =~ /utf-?8/i ) {
+        $encoding = ":encoding(UTF-8)";
+    }
+    else {
+        $encoding = ":encoding($encoding)";
+    }
+
+    if ( $] < 5.008 ) {
+        $self->aside("Your old perl doesn't have proper unicode support.");
+    }
+    else {
+        binmode($fh, $encoding);
+    }
+
+    return $fh;
+}
+
+sub search_perlvar {
+    my($self, $found_things, $pod) = @_;
+
+    my $opt = $self->opt_v;
+
+    if ( $opt !~ /^ (?: [\@\%\$]\S+ | [A-Z]\w* ) $/x ) {
+        CORE::die( "'$opt' does not look like a Perl variable\n" );
+    }
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $perlvar = shift @$found_things;
+    my $fh = $self->open_fh("<", $perlvar);
+
+    if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ...
+      $opt = '$<I<digits>>';
+    }
+    my $search_re = quotemeta($opt);
+
+    DEBUG > 2 and
+     print "Going to perlvar-scan for $search_re in $perlvar\n";
+
+    # Skip introduction
+    local $_;
+    my $enc;
+    while (<$fh>) {
+        $enc = $1 if /^=encoding\s+(\S+)/;
+        last if /^=over 8/;
+    }
+
+    $fh = $self->set_encoding($fh, $enc) if $enc;
+
+    # Look for our variable
+    my $found = 0;
+    my $inheader = 1;
+    my $inlist = 0;
+    while (<$fh>) {  
+        last if /^=head2 Error Indicators/;
+        # \b at the end of $` and friends borks things!
+        if ( m/^=item\s+$search_re\s/ )  {
+            $found = 1;
+        }
+        elsif (/^=item/) {
+            last if $found && !$inheader && !$inlist;
+        }
+        elsif (!/^\s+$/) { # not a blank line
+            if ( $found ) {
+                $inheader = 0; # don't accept more =item (unless inlist)
+        }
+            else {
+                @$pod = (); # reset
+                $inheader = 1; # start over
+                next;
+            }
+    }
+
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            last if $found && !$inheader && !$inlist;
+            --$inlist;
+        }
+        push @$pod, $_;
+#        ++$found if /^\w/;        # found descriptive text
+    }
+    @$pod = () unless $found;
+    if (!@$pod) {
+        CORE::die( "No documentation for perl variable '$opt' found\n" );
+    }
+    close $fh                or $self->die( "Can't close $perlvar: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlop {
+  my ($self,$found_things,$pod) = @_;
+
+  $self->not_dynamic( 1 );
+
+  my $perlop = shift @$found_things;
+  # XXX FIXME: getting filehandles should probably be done in a single place
+  # especially since we need to support UTF8 or other encoding when dealing
+  # with perlop, perlfunc, perlapi, perlfaq[1-9]
+  my $fh = $self->open_fh('<', $perlop);
+
+  my $thing = $self->opt_f;
+
+  my $previous_line;
+  my $push = 0;
+  my $seen_item = 0;
+  my $skip = 1;
+
+  while( my $line = <$fh> ) {
+    $line =~ /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+    # only start search after we hit the operator section
+    if ($line =~ m!^X<operator, regexp>!) {
+        $skip = 0;
+    }
+
+    next if $skip;
+
+    # strategy is to capture the previous line until we get a match on X<$thingy>
+    # if the current line contains X<$thingy>, then we push "=over", the previous line, 
+    # the current line and keep pushing current line until we see a ^X<some-other-thing>, 
+    # then we chop off final line from @$pod and add =back
+    #
+    # At that point, Bob's your uncle.
+
+    if ( $line =~ m!X<+\s*\Q$thing\E\s*>+!) {
+        if ( $previous_line ) {
+            push @$pod, "=over 8\n\n", $previous_line;
+            $previous_line = "";
+        }
+        push @$pod, $line;
+        $push = 1;
+
+    }
+    elsif ( $push and $line =~ m!^=item\s*.*$! ) {
+        $seen_item = 1;
+    }
+    elsif ( $push and $seen_item and $line =~ m!^X<+\s*[ a-z,?-]+\s*>+!) {
+        $push = 0;
+        $seen_item = 0;
+        last;
+    }
+    elsif ( $push ) {
+        push @$pod, $line;
+    }
+
+    else {
+        $previous_line = $line;
+    }
+
+  } #end while
+
+  # we overfilled by 1 line, so pop off final array element if we have any
+  if ( scalar @$pod ) {
+    pop @$pod;
+
+    # and add the =back
+    push @$pod, "\n\n=back\n";
+    DEBUG > 8 and print "PERLOP POD --->" . (join "", @$pod) . "<---\n";
+  }
+  else {
+    DEBUG > 4 and print "No pod from perlop\n";
+  }
+
+  close $fh;
+
+  return;
+}
+
+#..........................................................................
+
+sub search_perlapi {
+    my($self, $found_things, $pod) = @_;
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $perlapi = shift @$found_things;
+    my $fh = $self->open_fh('<', $perlapi);
+
+    my $search_re = quotemeta($self->opt_a);
+
+    DEBUG > 2 and
+     print "Going to perlapi-scan for $search_re in $perlapi\n";
+
+    local $_;
+
+    # Look for our function
+    my $found = 0;
+    my $inlist = 0;
+
+    my @related;
+    my $related_re;
+    while (<$fh>) {
+        /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+
+        if ( m/^=item\s+$search_re\b/ )  {
+            $found = 1;
+        }
+        elsif (@related > 1 and /^=item/) {
+            $related_re ||= join "|", @related;
+            if (m/^=item\s+(?:$related_re)\b/) {
+                $found = 1;
+            }
+            else {
+                last;
+            }
+        }
+        elsif (/^=item/) {
+            last if $found > 1 and not $inlist;
+        }
+        elsif ($found and /^X<[^>]+>/) {
+            push @related, m/X<([^>]+)>/g;
+        }
+        next unless $found;
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            last if $found > 1 and not $inlist;
+            --$inlist;
+        }
+        push @$pod, $_;
+        ++$found if /^\w/;        # found descriptive text
+    }
+
+    if (!@$pod) {
+        CORE::die( sprintf
+          "No documentation for perl api function '%s' found\n",
+          $self->opt_a )
+        ;
+    }
+    close $fh                or $self->die( "Can't open $perlapi: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlfunc {
+    my($self, $found_things, $pod) = @_;
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $pfunc = shift @$found_things;
+    my $fh = $self->open_fh("<", $pfunc); # "Funk is its own reward"
+
+    # Functions like -r, -e, etc. are listed under `-X'.
+    my $search_re = ($self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/)
+                        ? '(?:I<)?-X' : quotemeta($self->opt_f) ;
+
+    DEBUG > 2 and
+     print "Going to perlfunc-scan for $search_re in $pfunc\n";
+
+    my $re = 'Alphabetical Listing of Perl Functions';
+
+    # Check available translator or backup to default (english)
+    if ( $self->opt_L && defined $self->{'translators'}->[0] ) {
+        my $tr = $self->{'translators'}->[0];
+        $re =  $tr->search_perlfunc_re if $tr->can('search_perlfunc_re');
+        if ( $] < 5.008 ) {
+            $self->aside("Your old perl doesn't really have proper unicode support.");
+        }
+    }
+
+    # Skip introduction
+    local $_;
+    while (<$fh>) {
+        /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+        last if /^=head2 (?:$re|Alphabetical Listing of Perl Functions)/;
+    }
+
+    # Look for our function
+    my $found = 0;
+    my $inlist = 0;
+
+    my @perlops = qw(m q qq qr qx qw s tr y);
+
+    my @related;
+    my $related_re;
+    while (<$fh>) {  # "The Mothership Connection is here!"
+        last if( grep{ $self->opt_f eq $_ }@perlops );
+
+        if ( /^=over/ and not $found ) {
+            ++$inlist;
+        }
+        elsif ( /^=back/ and not $found and $inlist ) {
+            --$inlist;
+        }
+
+
+        if ( m/^=item\s+$search_re\b/ and $inlist < 2 )  {
+            $found = 1;
+        }
+        elsif (@related > 1 and /^=item/) {
+            $related_re ||= join "|", @related;
+            if (m/^=item\s+(?:$related_re)\b/) {
+                $found = 1;
+            }
+            else {
+                last if $found > 1 and $inlist < 2;
+            }
+        }
+        elsif (/^=item|^=back/) {
+            last if $found > 1 and $inlist < 2;
+        }
+        elsif ($found and /^X<[^>]+>/) {
+            push @related, m/X<([^>]+)>/g;
+        }
+        next unless $found;
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            --$inlist;
+        }
+        push @$pod, $_;
+        ++$found if /^\w/;        # found descriptive text
+    }
+
+    if( !@$pod ){
+        $self->search_perlop( $found_things, $pod );
+    }
+
+    if (!@$pod) {
+        CORE::die( sprintf
+          "No documentation for perl function '%s' found\n",
+          $self->opt_f )
+        ;
+    }
+    close $fh                or $self->die( "Can't close $pfunc: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlfaqs {
+    my( $self, $found_things, $pod) = @_;
+
+    my $found = 0;
+    my %found_in;
+    my $search_key = $self->opt_q;
+
+    my $rx = eval { qr/$search_key/ }
+     or $self->die( <<EOD );
+Invalid regular expression '$search_key' given as -q pattern:
+$@
+Did you mean \\Q$search_key ?
+
+EOD
+
+    local $_;
+    foreach my $file (@$found_things) {
+        $self->die( "invalid file spec: $!" ) if $file =~ /[<>|]/;
+        my $fh = $self->open_fh("<", $file);
+        while (<$fh>) {
+            /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+            if ( m/^=head2\s+.*(?:$search_key)/i ) {
+                $found = 1;
+                push @$pod, "=head1 Found in $file\n\n" unless $found_in{$file}++;
+            }
+            elsif (/^=head[12]/) {
+                $found = 0;
+            }
+            next unless $found;
+            push @$pod, $_;
+        }
+        close($fh);
+    }
+    CORE::die("No documentation for perl FAQ keyword '$search_key' found\n")
+     unless @$pod;
+
+    if ( $self->opt_l ) {
+        CORE::die((join "\n", keys %found_in) . "\n");
+    }
+    return;
+}
+
+
+#..........................................................................
+
+sub render_findings {
+  # Return the filename to open
+
+  my($self, $found_things) = @_;
+
+  my $formatter_class = $self->{'formatter_class'}
+   || $self->die( "No formatter class set!?" );
+  my $formatter = $formatter_class->can('new')
+    ? $formatter_class->new
+    : $formatter_class
+  ;
+
+  if(! @$found_things) {
+    $self->die( "Nothing found?!" );
+    # should have been caught before here
+  } elsif(@$found_things > 1) {
+    $self->warn(
+     "Perldoc is only really meant for reading one document at a time.\n",
+     "So these parameters are being ignored: ",
+     join(' ', @$found_things[1 .. $#$found_things] ),
+     "\n" );
+  }
+
+  my $file = $found_things->[0];
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  # Set formatter options:
+  if( ref $formatter ) {
+    foreach my $f (@{ $self->{'formatter_switches'} || [] }) {
+      my($switch, $value, $silent_fail) = @$f;
+      if( $formatter->can($switch) ) {
+        eval { $formatter->$switch( defined($value) ? $value : () ) };
+        $self->warn( "Got an error when setting $formatter_class\->$switch:\n$@\n" )
+         if $@;
+      } else {
+        if( $silent_fail or $switch =~ m/^__/s ) {
+          DEBUG > 2 and print "Formatter $formatter_class doesn't support $switch\n";
+        } else {
+          $self->warn( "$formatter_class doesn't recognize the $switch switch.\n" );
+        }
+      }
+    }
+  }
+
+  $self->{'output_is_binary'} =
+    $formatter->can('write_with_binmode') && $formatter->write_with_binmode;
+
+  if( $self->{podnames} and exists $self->{podnames}{$file} and
+      $formatter->can('name') ) {
+    $formatter->name($self->{podnames}{$file});
+  }
+
+  my ($out_fh, $out) = $self->new_output_file(
+    ( $formatter->can('output_extension') && $formatter->output_extension )
+     || undef,
+    $self->useful_filename_bit,
+  );
+
+  # Now, finally, do the formatting!
+  {
+    local $^W = $^W;
+    if(DEBUG() or $self->opt_D) {
+      # feh, let 'em see it
+    } else {
+      $^W = 0;
+      # The average user just has no reason to be seeing
+      #  $^W-suppressible warnings from the formatting!
+    }
+
+    eval {  $formatter->parse_from_file( $file, $out_fh )  };
+  }
+
+  $self->warn( "Error while formatting with $formatter_class:\n $@\n" ) if $@;
+  DEBUG > 2 and print "Back from formatting with $formatter_class\n";
+
+  close $out_fh
+   or $self->warn( "Can't close $out: $!\n(Did $formatter already close it?)" );
+  sleep 0; sleep 0; sleep 0;
+   # Give the system a few timeslices to meditate on the fact
+   # that the output file does in fact exist and is closed.
+
+  $self->unlink_if_temp_file($file);
+
+  unless( -s $out ) {
+    if( $formatter->can( 'if_zero_length' ) ) {
+      # Basically this is just a hook for Pod::Simple::Checker; since
+      # what other class could /happily/ format an input file with Pod
+      # as a 0-length output file?
+      $formatter->if_zero_length( $file, $out, $out_fh );
+    } else {
+      $self->warn( "Got a 0-length file from $$found_things[0] via $formatter_class!?\n" );
+    }
+  }
+
+  DEBUG and print "Finished writing to $out.\n";
+  return($out, $formatter) if wantarray;
+  return $out;
+}
+
+#..........................................................................
+
+sub unlink_if_temp_file {
+  # Unlink the specified file IFF it's in the list of temp files.
+  # Really only used in the case of -f / -q things when we can
+  #  throw away the dynamically generated source pod file once
+  #  we've formatted it.
+  #
+  my($self, $file) = @_;
+  return unless defined $file and length $file;
+
+  my $temp_file_list = $self->{'temp_file_list'} || return;
+  if(grep $_ eq $file, @$temp_file_list) {
+    $self->aside("Unlinking $file\n");
+    unlink($file) or $self->warn( "Odd, couldn't unlink $file: $!" );
+  } else {
+    DEBUG > 1 and print "$file isn't a temp file, so not unlinking.\n";
+  }
+  return;
+}
+
+#..........................................................................
+
+
+sub after_rendering {
+  my $self = $_[0];
+  $self->after_rendering_VMS     if $self->is_vms;
+  $self->after_rendering_MSWin32 if $self->is_mswin32;
+  $self->after_rendering_Dos     if $self->is_dos;
+  $self->after_rendering_OS2     if $self->is_os2;
+  return;
+}
+
+sub after_rendering_VMS      { return }
+sub after_rendering_Dos      { return }
+sub after_rendering_OS2      { return }
+sub after_rendering_MSWin32  { return }
+
+#..........................................................................
+#   :   :   :   :   :   :   :   :   :
+#..........................................................................
+
+sub minus_f_nocase {   # i.e., do like -f, but without regard to case
+
+     my($self, $dir, $file) = @_;
+     my $path = catfile($dir,$file);
+     return $path if -f $path and -r _;
+
+     if(!$self->opt_i
+        or $self->is_vms or $self->is_mswin32
+        or $self->is_dos or $self->is_os2
+     ) {
+        # On a case-forgiving file system, or if case is important,
+    #  that is it, all we can do.
+    $self->warn( "Ignored $path: unreadable\n" ) if -f _;
+    return '';
+     }
+
+     local *DIR;
+     my @p = ($dir);
+     my($p,$cip);
+     foreach $p (splitdir $file){
+    my $try = catfile @p, $p;
+        $self->aside("Scrutinizing $try...\n");
+    stat $try;
+    if (-d _) {
+        push @p, $p;
+        if ( $p eq $self->{'target'} ) {
+        my $tmp_path = catfile @p;
+        my $path_f = 0;
+        for (@{ $self->{'found'} }) {
+            $path_f = 1 if $_ eq $tmp_path;
+        }
+        push (@{ $self->{'found'} }, $tmp_path) unless $path_f;
+        $self->aside( "Found as $tmp_path but directory\n" );
+        }
+    }
+    elsif (-f _ && -r _ && lc($try) eq lc($path)) {
+        return $try;
+    }
+    elsif (-f _) {
+        $self->warn( "Ignored $try: unreadable or file/dir mismatch\n" );
+    }
+    elsif (-d catdir(@p)) {  # at least we see the containing directory!
+        my $found = 0;
+        my $lcp = lc $p;
+        my $p_dirspec = catdir(@p);
+        opendir DIR, $p_dirspec  or $self->die( "opendir $p_dirspec: $!" );
+        while(defined( $cip = readdir(DIR) )) {
+        if (lc $cip eq $lcp){
+            $found++;
+            last; # XXX stop at the first? what if there's others?
+        }
+        }
+        closedir DIR  or $self->die( "closedir $p_dirspec: $!" );
+        return "" unless $found;
+
+        push @p, $cip;
+        my $p_filespec = catfile(@p);
+        return $p_filespec if -f $p_filespec and -r _;
+        $self->warn( "Ignored $p_filespec: unreadable\n" ) if -f _;
+    }
+     }
+     return "";
+}
+
+#..........................................................................
+
+sub pagers_guessing {
+    # TODO: This whole subroutine needs to be rewritten. It's semi-insane
+    # right now.
+
+    my $self = shift;
+
+    my @pagers;
+    push @pagers, $self->pagers;
+    $self->{'pagers'} = \@pagers;
+
+    if ($self->is_mswin32) {
+        push @pagers, qw( more< less notepad );
+        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+    }
+    elsif ($self->is_vms) {
+        push @pagers, qw( most more less type/page );
+    }
+    elsif ($self->is_dos) {
+        push @pagers, qw( less.exe more.com< );
+        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+    }
+    elsif ( $self->is_amigaos) { 
+      push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE );
+      unshift @pagers, "$ENV{PAGER}" if $ENV{PAGER}; 
+    }
+    else {
+        if ($self->is_os2) {
+          unshift @pagers, 'less', 'cmd /c more <';
+        }
+        push @pagers, qw( more less pg view cat );
+        unshift @pagers, "$ENV{PAGER} <"  if $ENV{PAGER};
+    }
+
+    if ($self->is_cygwin) {
+        if (($pagers[0] eq 'less') || ($pagers[0] eq '/usr/bin/less')) {
+            unshift @pagers, '/usr/bin/less -isrR';
+            unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+       }
+    }
+
+    if ( $self->opt_m ) {
+        unshift @pagers, "$ENV{PERLDOC_SRC_PAGER}" if $ENV{PERLDOC_SRC_PAGER}
+    }
+    else {
+        unshift @pagers, "$ENV{MANPAGER} <" if $ENV{MANPAGER};
+        unshift @pagers, "$ENV{PERLDOC_PAGER} <" if $ENV{PERLDOC_PAGER};
+    }
+
+    $self->aside("Pagers: ", (join ", ", @pagers));
+
+    return;
+}
+
+#..........................................................................
+
+sub page_module_file {
+    my($self, @found) = @_;
+
+    # Security note:
+    # Don't ever just pass this off to anything like MSWin's "start.exe",
+    # since we might be calling on a .pl file, and we wouldn't want that
+    # to actually /execute/ the file that we just want to page thru!
+    # Also a consideration if one were to use a web browser as a pager;
+    # doing so could trigger the browser's MIME mapping for whatever
+    # it thinks .pm/.pl/whatever is.  Probably just a (useless and
+    # annoying) "Save as..." dialog, but potentially executing the file
+    # in question -- particularly in the case of MSIE and it's, ahem,
+    # occasionally hazy distinction between OS-local extension
+    # associations, and browser-specific MIME mappings.
+
+    if(@found > 1) {
+        $self->warn(
+            "Perldoc is only really meant for reading one document at a time.\n" .
+            "So these files are being ignored: " .
+            join(' ', @found[1 .. $#found] ) .
+            "\n" )
+    }
+
+    return $self->page($found[0], $self->{'output_to_stdout'}, $self->pagers);
+
+}
+
+#..........................................................................
+
+sub check_file {
+    my($self, $dir, $file) = @_;
+
+    unless( ref $self ) {
+      # Should never get called:
+      $Carp::Verbose = 1;
+      require Carp;
+      Carp::croak( join '',
+        "Crazy ", __PACKAGE__, " error:\n",
+        "check_file must be an object_method!\n",
+        "Aborting"
+      );
+    }
+
+    if(length $dir and not -d $dir) {
+      DEBUG > 3 and print "  No dir $dir -- skipping.\n";
+      return "";
+    }
+
+    my $path = $self->minus_f_nocase($dir,$file);
+    if( length $path and ($self->opt_m ? $self->isprintable($path)
+                                      : $self->containspod($path)) ) {
+        DEBUG > 3 and print
+            "  The file $path indeed looks promising!\n";
+        return $path;
+    }
+    DEBUG > 3 and print "  No good: $file in $dir\n";
+
+    return "";
+}
+
+sub isprintable {
+	my($self, $file, $readit) = @_;
+	my $size= 1024;
+	my $maxunprintfrac= 0.2;   # tolerate some unprintables for UTF-8 comments etc.
+
+	return 1 if !$readit && $file =~ /\.(?:pl|pm|pod|cmd|com|bat)\z/i;
+
+	my $data;
+	local($_);
+	my $fh = $self->open_fh("<", $file);
+	read $fh, $data, $size;
+	close $fh;
+	$size= length($data);
+	$data =~ tr/\x09-\x0D\x20-\x7E//d;
+	return length($data) <= $size*$maxunprintfrac;
+}
+
+#..........................................................................
+
+sub containspod {
+    my($self, $file, $readit) = @_;
+    return 1 if !$readit && $file =~ /\.pod\z/i;
+
+
+    #  Under cygwin the /usr/bin/perl is legal executable, but
+    #  you cannot open a file with that name. It must be spelled
+    #  out as "/usr/bin/perl.exe".
+    #
+    #  The following if-case under cygwin prevents error
+    #
+    #     $ perldoc perl
+    #     Cannot open /usr/bin/perl: no such file or directory
+    #
+    #  This would work though
+    #
+    #     $ perldoc perl.pod
+
+    if ( $self->is_cygwin  and  -x $file  and  -f "$file.exe" )
+    {
+        $self->warn( "Cygwin $file.exe search skipped\n" ) if DEBUG or $self->opt_D;
+        return 0;
+    }
+
+    local($_);
+    my $fh = $self->open_fh("<", $file);
+    while (<$fh>) {
+    if (/^=head/) {
+        close($fh)     or $self->die( "Can't close $file: $!" );
+        return 1;
+    }
+    }
+    close($fh)         or $self->die( "Can't close $file: $!" );
+    return 0;
+}
+
+#..........................................................................
+
+sub maybe_extend_searchpath {
+  my $self = shift;
+
+  # Does this look like a module or extension directory?
+
+  if (-f "Makefile.PL" || -f "Build.PL") {
+
+    push @{$self->{search_path} }, '.','lib';
+
+    # don't add if superuser
+    if ($< && $> && -d "blib") {   # don't be looking too hard now!
+      push @{ $self->{search_path} }, 'blib';
+      $self->warn( $@ ) if $@ && $self->opt_D;
+    }
+  }
+
+  return;
+}
+
+#..........................................................................
+
+sub new_output_file {
+  my $self = shift;
+  my $outspec = $self->opt_d;  # Yes, -d overrides all else!
+                               # So don't call this twice per format-job!
+
+  return $self->new_tempfile(@_) unless defined $outspec and length $outspec;
+
+  # Otherwise open a write-handle on opt_d!f
+
+  DEBUG > 3 and print "About to try writing to specified output file $outspec\n";
+  my $fh = $self->open_fh(">", $outspec);
+
+  DEBUG > 3 and print "Successfully opened $outspec\n";
+  binmode($fh) if $self->{'output_is_binary'};
+  return($fh, $outspec);
+}
+
+#..........................................................................
+
+sub useful_filename_bit {
+  # This tries to provide a meaningful bit of text to do with the query,
+  # such as can be used in naming the file -- since if we're going to be
+  # opening windows on temp files (as a "pager" may well do!) then it's
+  # better if the temp file's name (which may well be used as the window
+  # title) isn't ALL just random garbage!
+  # In other words "perldoc_LWPSimple_2371981429" is a better temp file
+  # name than "perldoc_2371981429".  So this routine is what tries to
+  # provide the "LWPSimple" bit.
+  #
+  my $self = shift;
+  my $pages = $self->{'pages'} || return undef;
+  return undef unless @$pages;
+
+  my $chunk = $pages->[0];
+  return undef unless defined $chunk;
+  $chunk =~ s/:://g;
+  $chunk =~ s/\.\w+$//g; # strip any extension
+  if( $chunk =~ m/([^\#\\:\/\$]+)$/s ) { # get basename, if it's a file
+    $chunk = $1;
+  } else {
+    return undef;
+  }
+  $chunk =~ s/[^a-zA-Z0-9]+//g; # leave ONLY a-zA-Z0-9 things!
+  $chunk = substr($chunk, -10) if length($chunk) > 10;
+  return $chunk;
+}
+
+#..........................................................................
+
+sub new_tempfile {    # $self->new_tempfile( [$suffix, [$infix] ] )
+  my $self = shift;
+
+  ++$Temp_Files_Created;
+
+  require File::Temp;
+  return File::Temp::tempfile(UNLINK => 1);
+}
+
+#..........................................................................
+
+sub page {  # apply a pager to the output file
+    my ($self, $output, $output_to_stdout, @pagers) = @_;
+    if ($output_to_stdout) {
+        $self->aside("Sending unpaged output to STDOUT.\n");
+        my $fh = $self->open_fh("<", $output);
+        local $_;
+        while (<$fh>) {
+            print or $self->die( "Can't print to stdout: $!" );
+        }
+        close $fh or $self->die( "Can't close while $output: $!" );
+        $self->unlink_if_temp_file($output);
+    } else {
+        # On VMS, quoting prevents logical expansion, and temp files with no
+        # extension get the wrong default extension (such as .LIS for TYPE)
+
+        $output = VMS::Filespec::rmsexpand($output, '.') if $self->is_vms;
+
+        $output =~ s{/}{\\}g if $self->is_mswin32 || $self->is_dos;
+        # Altho "/" under MSWin is in theory good as a pathsep,
+        #  many many corners of the OS don't like it.  So we
+        #  have to force it to be "\" to make everyone happy.
+
+	# if we are on an amiga convert unix path to an amiga one 
+	$output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos;
+
+        foreach my $pager (@pagers) {
+            $self->aside("About to try calling $pager $output\n");
+            if ($self->is_vms) {
+                last if system("$pager $output") == 0;
+	    } elsif($self->is_amigaos) { 
+                last if system($pager, $output) == 0;
+            } else {
+                last if system("$pager \"$output\"") == 0;
+            }
+        }
+    }
+    return;
+}
+
+#..........................................................................
+
+sub searchfor {
+    my($self, $recurse,$s,@dirs) = @_;
+    $s =~ s!::!/!g;
+    $s = VMS::Filespec::unixify($s) if $self->is_vms;
+    return $s if -f $s && $self->containspod($s);
+    $self->aside( "Looking for $s in @dirs\n" );
+    my $ret;
+    my $i;
+    my $dir;
+    $self->{'target'} = (splitdir $s)[-1];  # XXX: why not use File::Basename?
+    for ($i=0; $i<@dirs; $i++) {
+    $dir = $dirs[$i];
+    next unless -d $dir;
+    ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if $self->is_vms;
+    if (       (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod")))
+        or ( $ret = $self->check_file($dir,"$s.pm"))
+        or ( $ret = $self->check_file($dir,$s))
+        or ( $self->is_vms and
+             $ret = $self->check_file($dir,"$s.com"))
+        or ( $self->is_os2 and
+             $ret = $self->check_file($dir,"$s.cmd"))
+        or ( ($self->is_mswin32 or $self->is_dos or $self->is_os2) and
+             $ret = $self->check_file($dir,"$s.bat"))
+        or ( $ret = $self->check_file("$dir/pod","$s.pod"))
+        or ( $ret = $self->check_file("$dir/pod",$s))
+        or ( $ret = $self->check_file("$dir/pods","$s.pod"))
+        or ( $ret = $self->check_file("$dir/pods",$s))
+    ) {
+        DEBUG > 1 and print "  Found $ret\n";
+        return $ret;
+    }
+
+    if ($recurse) {
+        opendir(D,$dir) or $self->die( "Can't opendir $dir: $!" );
+        my @newdirs = map catfile($dir, $_), grep {
+        not /^\.\.?\z/s and
+        not /^auto\z/s  and   # save time! don't search auto dirs
+        -d  catfile($dir, $_)
+        } readdir D;
+        closedir(D)     or $self->die( "Can't closedir $dir: $!" );
+        next unless @newdirs;
+        # what a wicked map!
+        @newdirs = map((s/\.dir\z//,$_)[1],@newdirs) if $self->is_vms;
+        $self->aside( "Also looking in @newdirs\n" );
+        push(@dirs,@newdirs);
+    }
+    }
+    return ();
+}
+
+#..........................................................................
+{
+  my $already_asserted;
+  sub assert_closing_stdout {
+    my $self = shift;
+
+    return if $already_asserted;
+
+    eval  q~ END { close(STDOUT) || CORE::die "Can't close STDOUT: $!" } ~;
+     # What for? to let the pager know that nothing more will come?
+
+    $self->die( $@ ) if $@;
+    $already_asserted = 1;
+    return;
+  }
+}
+
+#..........................................................................
+
+sub tweak_found_pathnames {
+  my($self, $found) = @_;
+  if ($self->is_mswin32) {
+    foreach (@$found) { s,/,\\,g }
+  }
+  foreach (@$found) { s,',\\',g } # RT 37347
+  return;
+}
+
+#..........................................................................
+#   :   :   :   :   :   :   :   :   :
+#..........................................................................
+
+sub am_taint_checking {
+    my $self = shift;
+    $self->die( "NO ENVIRONMENT?!?!" ) unless keys %ENV; # reset iterator along the way
+    my($k,$v) = each %ENV;
+    return is_tainted($v);
+}
+
+#..........................................................................
+
+sub is_tainted { # just a function
+    my $arg  = shift;
+    my $nada = substr($arg, 0, 0);  # zero-length!
+    local $@;  # preserve the caller's version of $@
+    eval { eval "# $nada" };
+    return length($@) != 0;
+}
+
+#..........................................................................
+
+sub drop_privs_maybe {
+    my $self = shift;
+
+    DEBUG and print "Attempting to drop privs...\n";
+
+    # Attempt to drop privs if we should be tainting and aren't
+    if (!( $self->is_vms || $self->is_mswin32 || $self->is_dos
+          || $self->is_os2
+         )
+        && ($> == 0 || $< == 0)
+        && !$self->am_taint_checking()
+    ) {
+        my $id = eval { getpwnam("nobody") };
+        $id = eval { getpwnam("nouser") } unless defined $id;
+        $id = -2 unless defined $id;
+            #
+            # According to Stevens' APUE and various
+            # (BSD, Solaris, HP-UX) man pages, setting
+            # the real uid first and effective uid second
+            # is the way to go if one wants to drop privileges,
+            # because if one changes into an effective uid of
+            # non-zero, one cannot change the real uid any more.
+            #
+            # Actually, it gets even messier.  There is
+            # a third uid, called the saved uid, and as
+            # long as that is zero, one can get back to
+            # uid of zero.  Setting the real-effective *twice*
+            # helps in *most* systems (FreeBSD and Solaris)
+            # but apparently in HP-UX even this doesn't help:
+            # the saved uid stays zero (apparently the only way
+            # in HP-UX to change saved uid is to call setuid()
+            # when the effective uid is zero).
+            #
+        eval {
+            $< = $id; # real uid
+            $> = $id; # effective uid
+            $< = $id; # real uid
+            $> = $id; # effective uid
+        };
+        if( !$@ && $< && $> ) {
+          DEBUG and print "OK, I dropped privileges.\n";
+        } elsif( $self->opt_U ) {
+          DEBUG and print "Couldn't drop privileges, but in -U mode, so feh."
+        } else {
+          DEBUG and print "Hm, couldn't drop privileges.  Ah well.\n";
+          # We used to die here; but that seemed pointless.
+        }
+    }
+    return;
+}
+
+#..........................................................................
+
+1;
+
+__END__
+
+# Pod::Text::Color -- Convert POD data to formatted color ASCII text
+#
+# This is just a basic proof of concept.  It should later be modified to make
+# better use of color, take options changing what colors are used for what
+# text, and the like.
+#
+# Copyright 1999, 2001, 2004, 2006, 2008, 2009, 2014
+#     Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Color;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Pod::Text ();
+use Term::ANSIColor qw(colored);
+
+use vars qw(@ISA $VERSION);
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.10';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# Make level one headings bold.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head1 ($attrs, colored ($text, 'bold'));
+}
+
+# Make level two headings bold.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head2 ($attrs, colored ($text, 'bold'));
+}
+
+# Fix the various formatting codes.
+sub cmd_b { return colored ($_[2], 'bold')   }
+sub cmd_f { return colored ($_[2], 'cyan')   }
+sub cmd_i { return colored ($_[2], 'yellow') }
+
+# Output any included code in green.
+sub output_code {
+    my ($self, $code) = @_;
+    $code = colored ($code, 'green');
+    $self->output ($code);
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.  We will eventually want to use colorstrip() from Term::ANSIColor,
+# but it's fairly new so avoid the tight dependency.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/\e\[[\d;]*m//g;
+    return $text;
+}
+
+# We unfortunately have to override the wrapping code here, since the normal
+# wrapping code gets really confused by all the escape sequences.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+
+    # We have to do $shortchar and $longchar in variables because the
+    # construct ${char}{0,$width} didn't do the right thing until Perl 5.8.x.
+    my $char = '(?:(?:\e\[[\d;]+m)*[^\n])';
+    my $shortchar = $char . "{0,$width}";
+    my $longchar = $char . "{$width}";
+    while (length > $width) {
+        if (s/^($shortchar)\s+// || s/^($longchar)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+# Pod::Text::Overstrike -- Convert POD data to formatted overstrike text
+#
+# This was written because the output from:
+#
+#     pod2text Text.pm > plain.txt; less plain.txt
+#
+# is not as rich as the output from
+#
+#     pod2man Text.pm | nroff -man > fancy.txt; less fancy.txt
+#
+# and because both Pod::Text::Color and Pod::Text::Termcap are not device
+# independent.
+#
+# Created by Joe Smith <Joe.Smith@inwap.com> 30-Nov-2000
+#   (based on Pod::Text::Color by Russ Allbery <rra@cpan.org>)
+# Copyright 2000 Joe Smith <Joe.Smith@inwap.com>.
+# Copyright 2001, 2004, 2008, 2014 Russ Allbery <rra@cpan.org>.
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Overstrike;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@ISA $VERSION);
+
+use Pod::Text ();
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.10';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# Make level one headings bold, overriding any existing formatting.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/$1\b$1/g;
+    return $self->SUPER::cmd_head1 ($attrs, $text);
+}
+
+# Make level two headings bold, overriding any existing formatting.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/$1\b$1/g;
+    return $self->SUPER::cmd_head2 ($attrs, $text);
+}
+
+# Make level three headings underscored, overriding any existing formatting.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/_\b$1/g;
+    return $self->SUPER::cmd_head3 ($attrs, $text);
+}
+
+# Level four headings look like level three headings.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/_\b$1/g;
+    return $self->SUPER::cmd_head4 ($attrs, $text);
+}
+
+# The common code for handling all headers.  We have to override to avoid
+# interpolating twice and because we don't want to honor alt.
+sub heading {
+    my ($self, $text, $indent, $marker) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $text .= "\n" if $$self{opt_loose};
+    my $margin = ' ' x ($$self{opt_margin} + $indent);
+    $self->output ($margin . $text . "\n");
+    return '';
+}
+
+# Fix the various formatting codes.
+sub cmd_b { local $_ = $_[0]->strip_format ($_[2]); s/(.)/$1\b$1/g; $_ }
+sub cmd_f { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ }
+sub cmd_i { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ }
+
+# Output any included code in bold.
+sub output_code {
+    my ($self, $code) = @_;
+    $code =~ s/(.)/$1\b$1/g;
+    $self->output ($code);
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/(.)[\b]\1/$1/g;
+    $text =~ s/_[\b]//g;
+    return $text;
+}
+
+# We unfortunately have to override the wrapping code here, since the normal
+# wrapping code gets really confused by all the backspaces.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+    while (length > $width) {
+        # This regex represents a single character, that's possibly underlined
+        # or in bold (in which case, it's three characters; the character, a
+        # backspace, and a character).  Use [^\n] rather than . to protect
+        # against odd settings of $*.
+        my $char = '(?:[^\n][\b])?[^\n]';
+        if (s/^((?>$char){0,$width})(?:\Z|\s+)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+# Pod::Text::Termcap -- Convert POD data to ASCII text with format escapes.
+#
+# This is a simple subclass of Pod::Text that overrides a few key methods to
+# output the right termcap escape sequences for formatted text on the current
+# terminal type.
+#
+# Copyright 1999, 2001, 2002, 2004, 2006, 2008, 2009, 2014, 2015
+#     Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Termcap;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Pod::Text ();
+use POSIX ();
+use Term::Cap;
+
+use vars qw(@ISA $VERSION);
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.10';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# In the initialization method, grab our terminal characteristics as well as
+# do all the stuff we normally do.
+sub new {
+    my ($self, @args) = @_;
+    my ($ospeed, $term, $termios);
+    $self = $self->SUPER::new (@args);
+
+    # $ENV{HOME} is usually not set on Windows.  The default Term::Cap path
+    # may not work on Solaris.
+    unless (exists $ENV{TERMPATH}) {
+        my $home = exists $ENV{HOME} ? "$ENV{HOME}/.termcap:" : '';
+        $ENV{TERMPATH} =
+          "${home}/etc/termcap:/usr/share/misc/termcap:/usr/share/lib/termcap";
+    }
+
+    # Fall back on a hard-coded terminal speed if POSIX::Termios isn't
+    # available (such as on VMS).
+    eval { $termios = POSIX::Termios->new };
+    if ($@) {
+        $ospeed = 9600;
+    } else {
+        $termios->getattr;
+        $ospeed = $termios->getospeed || 9600;
+    }
+
+    # Fall back on the ANSI escape sequences if Term::Cap doesn't work.
+    eval { $term = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed } };
+    $$self{BOLD} = $$term{_md} || "\e[1m";
+    $$self{UNDL} = $$term{_us} || "\e[4m";
+    $$self{NORM} = $$term{_me} || "\e[m";
+
+    unless (defined $$self{width}) {
+        $$self{opt_width} = $ENV{COLUMNS} || $$term{_co} || 80;
+        $$self{opt_width} -= 2;
+    }
+
+    return $self;
+}
+
+# Make level one headings bold.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head1 ($attrs, "$$self{BOLD}$text$$self{NORM}");
+}
+
+# Make level two headings bold.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head2 ($attrs, "$$self{BOLD}$text$$self{NORM}");
+}
+
+# Fix up B<> and I<>.  Note that we intentionally don't do F<>.
+sub cmd_b { my $self = shift; return "$$self{BOLD}$_[1]$$self{NORM}" }
+sub cmd_i { my $self = shift; return "$$self{UNDL}$_[1]$$self{NORM}" }
+
+# Output any included code in bold.
+sub output_code {
+    my ($self, $code) = @_;
+    $self->output ($$self{BOLD} . $code . $$self{NORM});
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/\Q$$self{BOLD}//g;
+    $text =~ s/\Q$$self{UNDL}//g;
+    $text =~ s/\Q$$self{NORM}//g;
+    return $text;
+}
+
+# Override the wrapping code to ignore the special sequences.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+
+    # $codes matches a single special sequence.  $char matches any number of
+    # special sequences preceding a single character other than a newline.
+    # We have to do $shortchar and $longchar in variables because the
+    # construct ${char}{0,$width} didn't do the right thing until Perl 5.8.x.
+    my $codes = "(?:\Q$$self{BOLD}\E|\Q$$self{UNDL}\E|\Q$$self{NORM}\E)";
+    my $char = "(?:$codes*[^\\n])";
+    my $shortchar = $char . "{0,$width}";
+    my $longchar = $char . "{$width}";
+    while (length > $width) {
+        if (s/^($shortchar)\s+// || s/^($longchar)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+require 5.005;
+package Pod::Simple::Search;
+use strict;
+
+use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
+$VERSION = '3.35';   ## Current version of this package
+
+BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; }   # set DEBUG level
+use Carp ();
+
+$SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i;
+  # flag to occasionally sleep for $SLEEPY - 1 seconds.
+
+$MAX_VERSION_WITHIN ||= 60;
+my $IS_CASE_INSENSITIVE = -e uc __FILE__ && -e lc __FILE__;
+
+#############################################################################
+
+#use diagnostics;
+use File::Spec ();
+use File::Basename qw( basename dirname );
+use Config ();
+use Cwd qw( cwd );
+
+#==========================================================================
+__PACKAGE__->_accessorize(  # Make my dumb accessor methods
+ 'callback', 'progress', 'dir_prefix', 'inc', 'laborious', 'limit_glob',
+ 'limit_re', 'shadows', 'verbose', 'name2path', 'path2name', 'recurse',
+ 'ciseen'
+);
+#==========================================================================
+
+sub new {
+  my $class = shift;
+  my $self = bless {}, ref($class) || $class;
+  $self->init;
+  return $self;
+}
+
+sub init {
+  my $self = shift;
+  $self->inc(1);
+  $self->recurse(1);
+  $self->verbose(DEBUG);
+  return $self;
+}
+
+#--------------------------------------------------------------------------
+
+sub survey {
+  my($self, @search_dirs) = @_;
+  $self = $self->new unless ref $self; # tolerate being a class method
+
+  $self->_expand_inc( \@search_dirs );
+
+  $self->{'_scan_count'} = 0;
+  $self->{'_dirs_visited'} = {};
+  $self->path2name( {} );
+  $self->name2path( {} );
+  $self->ciseen( {} );
+  $self->limit_re( $self->_limit_glob_to_limit_re ) if $self->{'limit_glob'};
+  my $cwd = cwd();
+  my $verbose  = $self->verbose;
+  local $_; # don't clobber the caller's $_ !
+
+  foreach my $try (@search_dirs) {
+    unless( File::Spec->file_name_is_absolute($try) ) {
+      # make path absolute
+      $try = File::Spec->catfile( $cwd ,$try);
+    }
+    # simplify path
+    $try =  File::Spec->canonpath($try);
+
+    my $start_in;
+    my $modname_prefix;
+    if($self->{'dir_prefix'}) {
+      $start_in = File::Spec->catdir(
+        $try,
+        grep length($_), split '[\\/:]+', $self->{'dir_prefix'}
+      );
+      $modname_prefix = [grep length($_), split m{[:/\\]}, $self->{'dir_prefix'}];
+      $verbose and print "Appending \"$self->{'dir_prefix'}\" to $try, ",
+        "giving $start_in (= @$modname_prefix)\n";
+    } else {
+      $start_in = $try;
+    }
+
+    if( $self->{'_dirs_visited'}{$start_in} ) {
+      $verbose and print "Directory '$start_in' already seen, skipping.\n";
+      next;
+    } else {
+      $self->{'_dirs_visited'}{$start_in} = 1;
+    }
+  
+    unless(-e $start_in) {
+      $verbose and print "Skipping non-existent $start_in\n";
+      next;
+    }
+
+    my $closure = $self->_make_search_callback;
+    
+    if(-d $start_in) {
+      # Normal case:
+      $verbose and print "Beginning excursion under $start_in\n";
+      $self->_recurse_dir( $start_in, $closure, $modname_prefix );
+      $verbose and print "Back from excursion under $start_in\n\n";
+        
+    } elsif(-f _) {
+      # A excursion consisting of just one file!
+      $_ = basename($start_in);
+      $verbose and print "Pondering $start_in ($_)\n";
+      $closure->($start_in, $_, 0, []);
+        
+    } else {
+      $verbose and print "Skipping mysterious $start_in\n";
+    }
+  }
+  $self->progress and $self->progress->done(
+   "Noted $$self{'_scan_count'} Pod files total");
+  $self->ciseen( {} );
+
+  return unless defined wantarray; # void
+  return $self->name2path unless wantarray; # scalar
+  return $self->name2path, $self->path2name; # list
+}
+
+#==========================================================================
+sub _make_search_callback {
+  my $self = $_[0];
+
+  # Put the options in variables, for easy access
+  my( $laborious, $verbose, $shadows, $limit_re, $callback, $progress,
+      $path2name, $name2path, $recurse, $ciseen) =
+    map scalar($self->$_()),
+     qw(laborious verbose shadows limit_re callback progress
+        path2name name2path recurse ciseen);
+  my ($seen, $remember, $files_for);
+  if ($IS_CASE_INSENSITIVE) {
+      $seen      = sub { $ciseen->{ lc $_[0] } };
+      $remember  = sub { $name2path->{ $_[0] } = $ciseen->{ lc $_[0] } = $_[1]; };
+      $files_for = sub { my $n = lc $_[0]; grep { lc $path2name->{$_} eq $n } %{ $path2name } };
+  } else {
+      $seen      = sub { $name2path->{ $_[0] } };
+      $remember  = sub { $name2path->{ $_[0] } = $_[1] };
+      $files_for = sub { my $n = $_[0]; grep { $path2name->{$_} eq $n } %{ $path2name } };
+  }
+
+  my($file, $shortname, $isdir, $modname_bits);
+  return sub {
+    ($file, $shortname, $isdir, $modname_bits) = @_;
+
+    if($isdir) { # this never gets called on the startdir itself, just subdirs
+
+      unless( $recurse ) {
+        $verbose and print "Not recursing into '$file' as per requested.\n";
+        return 'PRUNE';
+      }
+
+      if( $self->{'_dirs_visited'}{$file} ) {
+        $verbose and print "Directory '$file' already seen, skipping.\n";
+        return 'PRUNE';
+      }
+
+      print "Looking in dir $file\n" if $verbose;
+
+      unless ($laborious) { # $laborious overrides pruning
+        if( m/^(\d+\.[\d_]{3,})\z/s
+             and do { my $x = $1; $x =~ tr/_//d; $x != $] }
+           ) {
+          $verbose and print "Perl $] version mismatch on $_, skipping.\n";
+          return 'PRUNE';
+        }
+
+        if( m/^([A-Za-z][a-zA-Z0-9_]*)\z/s ) {
+          $verbose and print "$_ is a well-named module subdir.  Looking....\n";
+        } else {
+          $verbose and print "$_ is a fishy directory name.  Skipping.\n";
+          return 'PRUNE';
+        }
+      } # end unless $laborious
+
+      $self->{'_dirs_visited'}{$file} = 1;
+      return; # (not pruning);
+    }
+
+    # Make sure it's a file even worth even considering
+    if($laborious) {
+      unless(
+        m/\.(pod|pm|plx?)\z/i || -x _ and -T _
+         # Note that the cheapest operation (the RE) is run first.
+      ) {
+        $verbose > 1 and print " Brushing off uninteresting $file\n";
+        return;
+      }
+    } else {
+      unless( m/^[-_a-zA-Z0-9]+\.(?:pod|pm|plx?)\z/is ) {
+        $verbose > 1 and print " Brushing off oddly-named $file\n";
+        return;
+      }
+    }
+
+    $verbose and print "Considering item $file\n";
+    my $name = $self->_path2modname( $file, $shortname, $modname_bits );
+    $verbose > 0.01 and print " Nominating $file as $name\n";
+        
+    if($limit_re and $name !~ m/$limit_re/i) {
+      $verbose and print "Shunning $name as not matching $limit_re\n";
+      return;
+    }
+
+    if( !$shadows and $seen->($name) ) {
+      $verbose and print "Not worth considering $file ",
+        "-- already saw $name as ",
+        join(' ', $files_for->($name)), "\n";
+      return;
+    }
+
+    # Put off until as late as possible the expense of
+    #  actually reading the file:
+    $progress and $progress->reach($self->{'_scan_count'}, "Scanning $file");
+    return unless $self->contains_pod( $file );
+    ++ $self->{'_scan_count'};
+
+    # Or finally take note of it:
+    if ( my $prev = $seen->($name)  ) {
+      $verbose and print
+       "Duplicate POD found (shadowing?): $name ($file)\n",
+       "    Already seen in ", join(' ', $files_for->($name)), "\n";
+    } else {
+      $remember->($name, $file); # Noting just the first occurrence
+    }
+    $verbose and print "  Noting $name = $file\n";
+    if( $callback ) {
+      local $_ = $_; # insulate from changes, just in case
+      $callback->($file, $name);
+    }
+    $path2name->{$file} = $name;
+    return;
+  }
+}
+
+#==========================================================================
+
+sub _path2modname {
+  my($self, $file, $shortname, $modname_bits) = @_;
+
+  # this code simplifies the POD name for Perl modules:
+  # * remove "site_perl"
+  # * remove e.g. "i586-linux" (from 'archname')
+  # * remove e.g. 5.00503
+  # * remove pod/ if followed by perl*.pod (e.g. in pod/perlfunc.pod)
+  # * dig into the file for case-preserved name if not already mixed case
+
+  my @m = @$modname_bits;
+  my $x;
+  my $verbose = $self->verbose;
+
+  # Shaving off leading naughty-bits
+  while(@m
+    and defined($x = lc( $m[0] ))
+    and(  $x eq 'site_perl'
+       or($x eq 'pod' and @m == 1 and $shortname =~ m{^perl.*\.pod$}s )
+       or $x =~ m{\\d+\\.z\\d+([_.]?\\d+)?}  # if looks like a vernum
+       or $x eq lc( $Config::Config{'archname'} )
+  )) { shift @m }
+
+  my $name = join '::', @m, $shortname;
+  $self->_simplify_base($name);
+
+  # On VMS, case-preserved document names can't be constructed from
+  # filenames, so try to extract them from the "=head1 NAME" tag in the
+  # file instead.
+  if ($^O eq 'VMS' && ($name eq lc($name) || $name eq uc($name))) {
+      open PODFILE, "<$file" or die "_path2modname: Can't open $file: $!";
+      my $in_pod = 0;
+      my $in_name = 0;
+      my $line;
+      while ($line = <PODFILE>) {
+        chomp $line;
+        $in_pod = 1 if ($line =~ m/^=\w/);
+        $in_pod = 0 if ($line =~ m/^=cut/);
+        next unless $in_pod;         # skip non-pod text
+        next if ($line =~ m/^\s*\z/);           # and blank lines
+        next if ($in_pod && ($line =~ m/^X</)); # and commands
+        if ($in_name) {
+          if ($line =~ m/(\w+::)?(\w+)/) {
+            # substitute case-preserved version of name
+            my $podname = $2;
+            my $prefix = $1 || '';
+            $verbose and print "Attempting case restore of '$name' from '$prefix$podname'\n";
+            unless ($name =~ s/$prefix$podname/$prefix$podname/i) {
+              $verbose and print "Attempting case restore of '$name' from '$podname'\n";
+              $name =~ s/$podname/$podname/i;
+            }
+            last;
+          }
+        }
+        $in_name = 1 if ($line =~ m/^=head1 NAME/);
+    }
+    close PODFILE;
+  }
+
+  return $name;
+}
+
+#==========================================================================
+
+sub _recurse_dir {
+  my($self, $startdir, $callback, $modname_bits) = @_;
+
+  my $maxdepth = $self->{'fs_recursion_maxdepth'} || 10;
+  my $verbose = $self->verbose;
+
+  my $here_string = File::Spec->curdir;
+  my $up_string   = File::Spec->updir;
+  $modname_bits ||= [];
+
+  my $recursor;
+  $recursor = sub {
+    my($dir_long, $dir_bare) = @_;
+    if( @$modname_bits >= 10 ) {
+      $verbose and print "Too deep! [@$modname_bits]\n";
+      return;
+    }
+
+    unless(-d $dir_long) {
+      $verbose > 2 and print "But it's not a dir! $dir_long\n";
+      return;
+    }
+    unless( opendir(INDIR, $dir_long) ) {
+      $verbose > 2 and print "Can't opendir $dir_long : $!\n";
+      closedir(INDIR);
+      return
+    }
+
+    # Load all items; put no extension before .pod before .pm before .plx?.
+    my @items = map { $_->[0] }
+      sort { $a->[1] cmp $b->[1] || $b->[2] cmp $a->[2] }
+      map {
+        (my $t = $_) =~ s/[.]p(m|lx?|od)\z//;
+        [$_, $t, lc($1 || 'z') ]
+      } readdir(INDIR);
+    closedir(INDIR);
+
+    push @$modname_bits, $dir_bare unless $dir_bare eq '';
+
+    my $i_full;
+    foreach my $i (@items) {
+      next if $i eq $here_string or $i eq $up_string or $i eq '';
+      $i_full = File::Spec->catfile( $dir_long, $i );
+
+      if(!-r $i_full) {
+        $verbose and print "Skipping unreadable $i_full\n";
+       
+      } elsif(-f $i_full) {
+        $_ = $i;
+        $callback->(          $i_full, $i, 0, $modname_bits );
+
+      } elsif(-d _) {
+        $i =~ s/\.DIR\z//i if $^O eq 'VMS';
+        $_ = $i;
+        my $rv = $callback->( $i_full, $i, 1, $modname_bits ) || '';
+
+        if($rv eq 'PRUNE') {
+          $verbose > 1 and print "OK, pruning";
+        } else {
+          # Otherwise, recurse into it
+          $recursor->( File::Spec->catdir($dir_long, $i) , $i);
+        }
+      } else {
+        $verbose > 1 and print "Skipping oddity $i_full\n";
+      }
+    }
+    pop @$modname_bits;
+    return;
+  };;
+
+  local $_;
+  $recursor->($startdir, '');
+
+  undef $recursor;  # allow it to be GC'd
+
+  return;  
+}
+
+
+#==========================================================================
+
+sub run {
+  # A function, useful in one-liners
+
+  my $self = __PACKAGE__->new;
+  $self->limit_glob($ARGV[0]) if @ARGV;
+  $self->callback( sub {
+    my($file, $name) = @_;
+    my $version = '';
+     
+    # Yes, I know we won't catch the version in like a File/Thing.pm
+    #  if we see File/Thing.pod first.  That's just the way the
+    #  cookie crumbles.  -- SMB
+     
+    if($file =~ m/\.pod$/i) {
+      # Don't bother looking for $VERSION in .pod files
+      DEBUG and print "Not looking for \$VERSION in .pod $file\n";
+    } elsif( !open(INPOD, $file) ) {
+      DEBUG and print "Couldn't open $file: $!\n";
+      close(INPOD);
+    } else {
+      # Sane case: file is readable
+      my $lines = 0;
+      while(<INPOD>) {
+        last if $lines++ > $MAX_VERSION_WITHIN; # some degree of sanity
+        if( s/^\s*\$VERSION\s*=\s*//s and m/\d/ ) {
+          DEBUG and print "Found version line (#$lines): $_";
+          s/\s*\#.*//s;
+          s/\;\s*$//s;
+          s/\s+$//s;
+          s/\t+/ /s; # nix tabs
+          # Optimize the most common cases:
+          $_ = "v$1"
+            if m{^v?["']?([0-9_]+(\.[0-9_]+)*)["']?$}s
+             # like in $VERSION = "3.14159";
+             or m{\$Revision:\s*([0-9_]+(?:\.[0-9_]+)*)\s*\$}s
+             # like in sprintf("%d.%02d", q$Revision: 4.13 $ =~ /(\d+)\.(\d+)/);
+          ;
+           
+          # Like in sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_55-public $ =~ /-(\d+)_([\d_]+)/)
+          $_ = sprintf("v%d.%s",
+            map {s/_//g; $_}
+              $1 =~ m/-(\d+)_([\d_]+)/) # snare just the numeric part
+           if m{\$Name:\s*([^\$]+)\$}s 
+          ;
+          $version = $_;
+          DEBUG and print "Noting $version as version\n";
+          last;
+        }
+      }
+      close(INPOD);
+    }
+    print "$name\t$version\t$file\n";
+    return;
+    # End of callback!
+  });
+
+  $self->survey;
+}
+
+#==========================================================================
+
+sub simplify_name {
+  my($self, $str) = @_;
+    
+  # Remove all path components
+  #                             XXX Why not just use basename()? -- SMB
+
+  if ($^O eq 'MacOS') { $str =~ s{^.*:+}{}s }
+  else                { $str =~ s{^.*/+}{}s }
+  
+  $self->_simplify_base($str);
+  return $str;
+}
+
+#==========================================================================
+
+sub _simplify_base {   # Internal method only
+
+  # strip Perl's own extensions
+  $_[1] =~ s/\.(pod|pm|plx?)\z//i;
+
+  # strip meaningless extensions on Win32 and OS/2
+  $_[1] =~ s/\.(bat|exe|cmd)\z//i if $^O =~ /mswin|os2/i;
+
+  # strip meaningless extensions on VMS
+  $_[1] =~ s/\.(com)\z//i if $^O eq 'VMS';
+
+  return;
+}
+
+#==========================================================================
+
+sub _expand_inc {
+  my($self, $search_dirs) = @_;
+  
+  return unless $self->{'inc'};
+  my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs };
+
+  if ($^O eq 'MacOS') {
+    push @$search_dirs,
+      grep { !$seen{ File::Spec->rel2abs($_) }++ } $self->_mac_whammy(@INC);
+  # Any other OSs need custom handling here?
+  } else {
+    push @$search_dirs,
+      grep { !$seen{ File::Spec->rel2abs($_) }++ } @INC;
+  }
+
+  $self->{'laborious'} = 0;   # Since inc said to use INC
+  return;
+}
+
+#==========================================================================
+
+sub _mac_whammy { # Tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+  my @them;
+  (undef,@them) = @_;
+  for $_ (@them) {
+    if ( $_ eq '.' ) {
+      $_ = ':';
+    } elsif ( $_ =~ s|^((?:\.\./)+)|':' x (length($1)/3)|e ) {
+      $_ = ':'. $_;
+    } else {
+      $_ =~ s|^\./|:|;
+    }
+  }
+  return @them;
+}
+
+#==========================================================================
+
+sub _limit_glob_to_limit_re {
+  my $self = $_[0];
+  my $limit_glob = $self->{'limit_glob'} || return;
+
+  my $limit_re = '^' . quotemeta($limit_glob) . '$';
+  $limit_re =~ s/\\\?/./g;    # glob "?" => "."
+  $limit_re =~ s/\\\*/.*?/g;  # glob "*" => ".*?"
+  $limit_re =~ s/\.\*\?\$$//s; # final glob "*" => ".*?$" => ""
+
+  $self->{'verbose'} and print "Turning limit_glob $limit_glob into re $limit_re\n";
+
+  # A common optimization:
+  if(!exists($self->{'dir_prefix'})
+    and $limit_glob =~ m/^(?:\w+\:\:)+/s  # like "File::*" or "File::Thing*"
+    # Optimize for sane and common cases (but not things like "*::File")
+  ) {
+    $self->{'dir_prefix'} = join "::", $limit_glob =~ m/^(?:\w+::)+/sg;
+    $self->{'verbose'} and print " and setting dir_prefix to $self->{'dir_prefix'}\n";
+  }
+
+  return $limit_re;
+}
+
+#==========================================================================
+
+# contribution mostly from Tim Jenness <t.jenness@jach.hawaii.edu>
+
+sub _actual_filenames {
+    my $dir = shift;
+    my $fn = lc shift;
+    opendir my $dh, $dir or return;
+    return map { File::Spec->catdir($dir, $_) }
+        grep { lc $_  eq $fn } readdir $dh;
+}
+
+sub find {
+  my($self, $pod, @search_dirs) = @_;
+  $self = $self->new unless ref $self; # tolerate being a class method
+
+  # Check usage
+  Carp::carp 'Usage: \$self->find($podname, ...)'
+   unless defined $pod and length $pod;
+
+  my $verbose = $self->verbose;
+
+  # Split on :: and then join the name together using File::Spec
+  my @parts = split /::/, $pod;
+  $verbose and print "Chomping {$pod} => {@parts}\n";
+
+  #@search_dirs = File::Spec->curdir unless @search_dirs;
+  
+  $self->_expand_inc(\@search_dirs);
+  # Add location of binaries such as pod2text:
+  push @search_dirs, $Config::Config{'scriptdir'} if $self->inc;
+
+  my %seen_dir;
+  while (my $dir = shift @search_dirs ) {
+    next unless defined $dir and length $dir;
+    next if $seen_dir{$dir};
+    $seen_dir{$dir} = 1;
+    unless(-d $dir) {
+      print "Directory $dir does not exist\n" if $verbose;
+    }
+
+    print "Looking in directory $dir\n" if $verbose;
+    my $fullname = File::Spec->catfile( $dir, @parts );
+    print "Filename is now $fullname\n" if $verbose;
+
+    foreach my $ext ('', '.pod', '.pm', '.pl') {   # possible extensions
+      my $fullext = $fullname . $ext;
+      if ( -f $fullext and $self->contains_pod($fullext) ) {
+        print "FOUND: $fullext\n" if $verbose;
+        if (@parts > 1 && lc $parts[0] eq 'pod' && $IS_CASE_INSENSITIVE && $ext eq '.pod') {
+          # Well, this file could be for a program (perldoc) but we actually
+          # want a module (Pod::Perldoc). So see if there is a .pm with the
+          # proper casing.
+          my $subdir = dirname $fullext;
+          unless (grep { $fullext eq $_  } _actual_filenames $subdir, "$parts[-1].pod") {
+            print "# Looking for alternate spelling in $subdir\n" if $verbose;
+            # Try the .pm file.
+            my $pm = $fullname . '.pm';
+            if ( -f $pm and $self->contains_pod($pm) ) {
+              # Prefer the .pm if its case matches.
+              if (grep { $pm eq $_  } _actual_filenames $subdir, "$parts[-1].pm") {
+                print "FOUND: $fullext\n" if $verbose;
+                return $pm;
+              }
+            }
+          }
+        }
+        return $fullext;
+      }
+    }
+
+    # Case-insensitively Look for ./pod directories and slip them in.
+    for my $subdir ( _actual_filenames($dir, 'pod') ) {
+      if (-d $subdir) {
+        $verbose and print "Noticing $subdir and looking there...\n";
+        unshift @search_dirs, $subdir;
+      }
+    }
+  }
+
+  return undef;
+}
+
+#==========================================================================
+
+sub contains_pod {
+  my($self, $file) = @_;
+  my $verbose = $self->{'verbose'};
+
+  # check for one line of POD
+  $verbose > 1 and print " Scanning $file for pod...\n";
+  unless( open(MAYBEPOD,"<$file") ) {
+    print "Error: $file is unreadable: $!\n";
+    return undef;
+  }
+
+  sleep($SLEEPY - 1) if $SLEEPY;
+   # avoid totally hogging the processor on OSs with poor process control
+  
+  local $_;
+  while( <MAYBEPOD> ) {
+    if(m/^=(head\d|pod|over|item)\b/s) {
+      close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting";
+      chomp;
+      $verbose > 1 and print "  Found some pod ($_) in $file\n";
+      return 1;
+    }
+  }
+  close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting";
+  $verbose > 1 and print "  No POD in $file, skipping.\n";
+  return 0;
+}
+
+#==========================================================================
+
+sub _accessorize {  # A simple-minded method-maker
+  shift;
+  no strict 'refs';
+  foreach my $attrname (@_) {
+    *{caller() . '::' . $attrname} = sub {
+      use strict;
+      $Carp::CarpLevel = 1,  Carp::croak(
+       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
+      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
+
+      # Read access:
+      return $_[0]->{$attrname} if @_ == 1;
+
+      # Write access:
+      $_[0]->{$attrname} = $_[1];
+      return $_[0]; # RETURNS MYSELF!
+    };
+  }
+  # Ya know, they say accessories make the ensemble!
+  return;
+}
+
+#==========================================================================
+sub _state_as_string {
+  my $self = $_[0];
+  return '' unless ref $self;
+  my @out = "{\n  # State of $self ...\n";
+  foreach my $k (sort keys %$self) {
+    push @out, "  ", _esc($k), " => ", _esc($self->{$k}), ",\n";
+  }
+  push @out, "}\n";
+  my $x = join '', @out;
+  $x =~ s/^/#/mg;
+  return $x;
+}
+
+sub _esc {
+  my $in = $_[0];
+  return 'undef' unless defined $in;
+  $in =~
+    s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
+     <'\\x'.(unpack("H2",$1))>eg;
+  return qq{"$in"};
+}
+
+#==========================================================================
+
+run() unless caller;  # run if "perl whatever/Search.pm"
+
+1;
+
+#==========================================================================
+
+__END__
+
+
+
+require 5;
+package Pod::Simple::DumpAsXML;
+$VERSION = '3.35';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+
+use Carp ();
+use Text::Wrap qw(wrap);
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_codes('VerbatimFormatted');
+  $new->keep_encoding_directive(1);
+  return $new;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  
+  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];
+
+  foreach my $key (sort keys %{$_[2]}) {
+    unless($key =~ m/^~/s) {
+      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+      _xml_escape($value = $_[2]{$key});
+      print $fh ' ', $key, '="', $value, '"';
+    }
+  }
+
+
+  print $fh ">\n";
+  $_[0]{'indent'}++;
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  if(length $_[1]) {
+    my $indent = '  ' x $_[0]{'indent'};
+    my $text = $_[1];
+    _xml_escape($text);
+    local $Text::Wrap::huge = 'overflow';
+    $text = wrap('', $indent, $text);
+    print {$_[0]{'output_fh'}} $indent, $text, "\n";
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}}
+   '  ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _xml_escape {
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if ($] ge 5.007_003) {
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+    } else { # Is broken for non-ASCII platforms on early perls
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+    }
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+
+require 5;
+package Pod::Simple::Text;
+use strict;
+use Carp ();
+use Pod::Simple::Methody ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION $FREAKYMODE);
+$VERSION = '3.35';
+@ISA = ('Pod::Simple::Methody');
+BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
+          ? \&Pod::Simple::DEBUG
+          : sub() {0}
+      }
+
+use Text::Wrap 98.112902 ();
+$Text::Wrap::huge = 'overflow';
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_target_as_text(qw( text plaintext plain ));
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->{'Thispara'} = '';
+  $new->{'Indent'} = 0;
+  $new->{'Indentstring'} = '   ';
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_text {  $_[0]{'Thispara'} .= $_[1] }
+
+sub start_Para  {  $_[0]{'Thispara'} = '' }
+sub start_head1 {  $_[0]{'Thispara'} = '' }
+sub start_head2 {  $_[0]{'Thispara'} = '' }
+sub start_head3 {  $_[0]{'Thispara'} = '' }
+sub start_head4 {  $_[0]{'Thispara'} = '' }
+
+sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
+sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : '* ' }
+sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
+sub start_item_text   { $_[0]{'Thispara'} = ''   }
+
+sub start_over_bullet  { ++$_[0]{'Indent'} }
+sub start_over_number  { ++$_[0]{'Indent'} }
+sub start_over_text    { ++$_[0]{'Indent'} }
+sub start_over_block   { ++$_[0]{'Indent'} }
+
+sub   end_over_bullet  { --$_[0]{'Indent'} }
+sub   end_over_number  { --$_[0]{'Indent'} }
+sub   end_over_text    { --$_[0]{'Indent'} }
+sub   end_over_block   { --$_[0]{'Indent'} }
+
+
+# . . . . . Now the actual formatters:
+
+sub end_head1       { $_[0]->emit_par(-4) }
+sub end_head2       { $_[0]->emit_par(-3) }
+sub end_head3       { $_[0]->emit_par(-2) }
+sub end_head4       { $_[0]->emit_par(-1) }
+sub end_Para        { $_[0]->emit_par( 0) }
+sub end_item_bullet { $_[0]->emit_par( 0) }
+sub end_item_number { $_[0]->emit_par( 0) }
+sub end_item_text   { $_[0]->emit_par(-2) }
+sub start_L         { $_[0]{'Link'} = $_[1] if $_[1]->{type} eq 'url' }
+sub end_L           {
+    if (my $link = delete $_[0]{'Link'}) {
+        # Append the URL to the output unless it's already present.
+        $_[0]{'Thispara'} .= " <$link->{to}>"
+            unless $_[0]{'Thispara'} =~ /\b\Q$link->{to}/;
+    }
+}
+
+sub emit_par {
+  my($self, $tweak_indent) = splice(@_,0,2);
+  my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ($tweak_indent||0) );
+   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0
+
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
+  $out =~ s/$Pod::Simple::nbsp/ /g;
+  print {$self->{'output_fh'}} $out, "\n";
+  $self->{'Thispara'} = '';
+  
+  return;
+}
+
+# . . . . . . . . . . And then off by its lonesome:
+
+sub end_Verbatim  {
+  my $self = shift;
+  $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g;
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+
+  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
+  #my $i = ' ' x (4 + $self->{'Indent'});
+  
+  $self->{'Thispara'} =~ s/^/$i/mg;
+  
+  print { $self->{'output_fh'} }   '', 
+    $self->{'Thispara'},
+    "\n\n"
+  ;
+  $self->{'Thispara'} = '';
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+
+use strict;
+package Pod::Simple::TiedOutFH;
+use Symbol ('gensym');
+use Carp ();
+use vars qw($VERSION );
+$VERSION = '3.35';
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_on { # some horrible frightening things are encapsulated in here
+  my $class = shift;
+  $class = ref($class) || $class;
+  
+  Carp::croak "Usage: ${class}->handle_on(\$somescalar)" unless @_;
+  
+  my $x = (defined($_[0]) and ref($_[0]))
+    ? $_[0]
+    : ( \( $_[0] ) )[0]
+  ;
+  $$x = '' unless defined $$x;
+  
+  #Pod::Simple::DEBUG and print STDERR "New $class handle on $x = \"$$x\"\n";
+  
+  my $new = gensym();
+  tie *$new, $class, $x;
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub TIEHANDLE {  # Ties to just a scalar ref
+  my($class, $scalar_ref) = @_;
+  $$scalar_ref = '' unless defined $$scalar_ref;
+  return bless \$scalar_ref,  ref($class) || $class;
+}
+
+sub PRINT {
+  my $it = shift;
+  foreach my $x (@_) { $$$it .= $x }
+
+  #Pod::Simple::DEBUG > 10 and print STDERR " appended to $$it = \"$$$it\"\n";
+
+  return 1;
+}
+
+sub FETCH {
+  return ${$_[0]};
+}
+
+sub PRINTF {
+  my $it = shift;
+  my $format = shift;
+  $$$it .= sprintf $format, @_;
+  return 1;
+}
+
+sub FILENO { ${ $_[0] } + 100 } # just to produce SOME number
+
+sub CLOSE { 1 }
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+1;
+__END__
+
+Chole
+
+ * 1 large red onion
+ * 2 tomatillos
+ * 4 or 5 roma tomatoes (optionally with the pulp discarded)
+ * 1 tablespoons chopped ginger root (or more, to taste)
+ * 2 tablespoons canola oil (or vegetable oil)
+ 
+ * 1 tablespoon garam masala
+ * 1/2 teaspoon red chili powder, or to taste
+ * Salt, to taste (probably quite a bit)
+ * 2 (15-ounce) cans chick peas or garbanzo beans, drained and rinsed
+ * juice of one smallish lime
+ * a dash of balsamic vinegar (to taste)
+ * cooked rice, preferably long-grain white rice (whether plain,
+    basmati rice, jasmine rice, or even a mild pilaf)
+
+In a blender or food processor, puree the onions, tomatoes, tomatillos,
+and ginger root.  You can even do it with a Braun hand "mixer", if you
+chop things finer to start with, and work at it.
+
+In a saucepan set over moderate heat, warm the oil until hot.
+
+Add the puree and the balsamic vinegar, and cook, stirring occasionally,
+for 20 to 40 minutes. (Cooking it longer will make it sweeter.)
+
+Add the Garam Masala, chili powder, and cook, stirring occasionally, for
+5 minutes.
+
+Add the salt and chick peas and cook, stirring, until heated through.
+
+Stir in the lime juice, and optionally one or two teaspoons of tahini.
+You can let it simmer longer, depending on how much softer you want the
+garbanzos to get.
+
+Serve over rice, like a curry.
+
+Yields 5 to 7 servings.
+
+
+
+require 5;
+package Pod::Simple::RTF;
+
+#sub DEBUG () {4};
+#sub Pod::Simple::DEBUG () {4};
+#sub Pod::Simple::PullParser::DEBUG () {4};
+
+use strict;
+use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
+$VERSION = '3.35';
+use Pod::Simple::PullParser ();
+BEGIN {@ISA = ('Pod::Simple::PullParser')}
+
+use Carp ();
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+$WRAP = 1 unless defined $WRAP;
+
+# These are broken for early Perls on EBCDIC; they could be fixed to work
+# better there, but not worth it.  These are part of a larger [...] class, so
+# are just the strings to substitute into it, as opposed to compiled patterns.
+my $cntrl = '[:cntrl:]';
+$cntrl = '\x00-\x1F\x7F' unless eval "qr/[$cntrl]/";
+
+my $not_ascii = '[:^ascii:]';
+$not_ascii = '\x80-\xFF' unless eval "qr/[$not_ascii]/";
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _openclose {
+ return map {;
+   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
+   ( $1,  "{\\$2\n",   "/$1",  "}" );
+ } @_;
+}
+
+my @_to_accept;
+
+%Tagmap = (
+ # 'foo=bar' means ('foo' => '{\bar'."\n", '/foo' => '}')
+ _openclose(
+  'B=cs18\b',
+  'I=cs16\i',
+  'C=cs19\f1\lang1024\noproof',
+  'F=cs17\i\lang1024\noproof',
+
+  'VerbatimI=cs26\i',
+  'VerbatimB=cs27\b',
+  'VerbatimBI=cs28\b\i',
+
+  map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
+   qw[
+       underline=ul         smallcaps=scaps  shadow=shad
+       superscript=super    subscript=sub    strikethrough=strike
+       outline=outl         emboss=embo      engrave=impr   
+       dotted-underline=uld          dash-underline=uldash
+       dot-dash-underline=uldashd    dot-dot-dash-underline=uldashdd     
+       double-underline=uldb         thick-underline=ulth
+       word-underline=ulw            wave-underline=ulwave
+   ]
+   # But no double-strikethrough, because MSWord can't agree with the
+   #  RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!)
+ ),
+
+ # Bit of a hack here:
+ 'L=pod' => '{\cs22\i'."\n",
+ 'L=url' => '{\cs23\i'."\n",
+ 'L=man' => '{\cs24\i'."\n",
+ '/L' => '}',
+
+ 'Data'  => "\n",
+ '/Data' => "\n",
+
+ 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
+ '/Verbatim' => "\n\\par}\n",
+ 'VerbatimFormatted'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
+ '/VerbatimFormatted' => "\n\\par}\n",
+ 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
+ '/Para'   => "\n\\par}\n",
+ 'head1'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
+ '/head1'  => "\n}\\par}\n",
+ 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n",
+ '/head2'  => "\n}\\par}\n",
+ 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#head3_halfpoint_size#\\ul{\n",
+ '/head3'  => "\n}\\par}\n",
+ 'head4'   => "\n{\\pard\\li#rtfindent#\\s34\\keepn\\sb90\\sa180\\f2\\fs#head4_halfpoint_size#\\ul{\n",
+ '/head4'  => "\n}\\par}\n",
+   # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =head2
+
+ 'item-bullet'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-bullet' => "\n\\par}\n",
+ 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-number' => "\n\\par}\n",
+ 'item-text'    => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-text'   => "\n\\par}\n",
+
+ # we don't need any styles for over-* and /over-*
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub new {
+  my $new = shift->SUPER::new(@_);
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->accept_targets( 'rtf', 'RTF' );
+
+  $new->{'Tagmap'} = {%Tagmap};
+
+  $new->accept_codes(@_to_accept);
+  $new->accept_codes('VerbatimFormatted');
+  DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n";
+  $new->doc_lang(
+    (  $ENV{'RTFDEFLANG'} || '') =~ m/^(\d{1,10})$/s ? $1
+    : ($ENV{'RTFDEFLANG'} || '') =~ m/^0?x([a-fA-F0-9]{1,10})$/s ? hex($1)
+                                      # yes, tolerate hex!
+    : ($ENV{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
+                                      # yes, tolerate even more hex!
+    : '1033'
+  );
+
+  $new->head1_halfpoint_size(32);
+  $new->head2_halfpoint_size(28);
+  $new->head3_halfpoint_size(25);
+  $new->head4_halfpoint_size(22);
+  $new->codeblock_halfpoint_size(18);
+  $new->header_halfpoint_size(17);
+  $new->normal_halfpoint_size(25);
+
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+__PACKAGE__->_accessorize(
+ 'doc_lang',
+ 'head1_halfpoint_size',
+ 'head2_halfpoint_size',
+ 'head3_halfpoint_size',
+ 'head4_halfpoint_size',
+ 'codeblock_halfpoint_size',
+ 'header_halfpoint_size',
+ 'normal_halfpoint_size',
+ 'no_proofing_exemptions',
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub run {
+  my $self = $_[0];
+  return $self->do_middle if $self->bare_output;
+  return
+   $self->do_beginning && $self->do_middle && $self->do_end;
+}
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub do_middle {      # the main work
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  
+  my($token, $type, $tagname, $scratch);
+  my @stack;
+  my @indent_stack;
+  $self->{'rtfindent'} = 0 unless defined $self->{'rtfindent'};
+  
+  while($token = $self->get_token) {
+  
+    if( ($type = $token->type) eq 'text' ) {
+      if( $self->{'rtfverbatim'} ) {
+        DEBUG > 1 and print STDERR "  $type " , $token->text, " in verbatim!\n";
+        rtf_esc_codely($scratch = $token->text);
+        print $fh $scratch;
+        next;
+      }
+
+      DEBUG > 1 and print STDERR "  $type " , $token->text, "\n";
+      
+      $scratch = $token->text;
+      $scratch =~ tr/\t\cb\cc/ /d;
+      
+      $self->{'no_proofing_exemptions'} or $scratch =~
+       s/(?:
+           ^
+           |
+           (?<=[\r\n\t "\[\<\(])
+         )   # start on whitespace, sequence-start, or quote
+         ( # something looking like a Perl token:
+          (?:
+           [\$\@\:\<\*\\_]\S+  # either starting with a sigil, etc.
+          )
+          |
+          # or starting alpha, but containing anything strange:
+          (?:
+           [a-zA-Z'${not_ascii}]+[\$\@\:_<>\(\\\*]\S+
+          )
+         )
+        /\cb$1\cc/xsg
+      ;
+      
+      rtf_esc($scratch);
+      $scratch =~
+         s/(
+            [^\r\n]{65}        # Snare 65 characters from a line
+            [^\r\n ]{0,50}     #  and finish any current word
+           )
+           (\ {1,10})(?![\r\n]) # capture some spaces not at line-end
+          /$1$2\n/gx     # and put a NL before those spaces
+        if $WRAP;
+        # This may wrap at well past the 65th column, but not past the 120th.
+      
+      print $fh $scratch;
+
+    } elsif( $type eq 'start' ) {
+      DEBUG > 1 and print STDERR "  +$type ",$token->tagname,
+        " (", map("<$_> ", %{$token->attr_hash}), ")\n";
+
+      if( ($tagname = $token->tagname) eq 'Verbatim'
+          or $tagname eq 'VerbatimFormatted'
+      ) {
+        ++$self->{'rtfverbatim'};
+        my $next = $self->get_token;
+        next unless defined $next;
+        my $line_count = 1;
+        if($next->type eq 'text') {
+          my $t = $next->text_r;
+          while( $$t =~ m/$/mg ) {
+            last if  ++$line_count  > 15; # no point in counting further
+          }
+          DEBUG > 3 and print STDERR "    verbatim line count: $line_count\n";
+        }
+        $self->unget_token($next);
+        $self->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ;     
+
+      } elsif( $tagname =~ m/^item-/s ) {
+        my @to_unget;
+        my $text_count_here = 0;
+        $self->{'rtfitemkeepn'} = '';
+        # Some heuristics to stop item-*'s functioning as subheadings
+        #  from getting split from the things they're subheadings for.
+        #
+        # It's not terribly pretty, but it really does make things pretty.
+        #
+        while(1) {
+          push @to_unget, $self->get_token;
+          pop(@to_unget), last unless defined $to_unget[-1];
+           # Erroneously used to be "unshift" instead of pop!  Adds instead
+           # of removes, and operates on the beginning instead of the end!
+          
+          if($to_unget[-1]->type eq 'text') {
+            if( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){
+              DEBUG > 1 and print STDERR "    item-* is too long to be keepn'd.\n";
+              last;
+            }
+          } elsif (@to_unget > 1 and
+            $to_unget[-2]->type eq 'end' and
+            $to_unget[-2]->tagname =~ m/^item-/s
+          ) {
+            # Bail out here, after setting rtfitemkeepn yea or nay.
+            $self->{'rtfitemkeepn'} = '\keepn' if 
+              $to_unget[-1]->type eq 'start' and
+              $to_unget[-1]->tagname eq 'Para';
+
+            DEBUG > 1 and printf STDERR "    item-* before %s(%s) %s keepn'd.\n",
+              $to_unget[-1]->type,
+              $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '',
+              $self->{'rtfitemkeepn'} ? "gets" : "doesn't get";
+            last;
+          } elsif (@to_unget > 40) {
+            DEBUG > 1 and print STDERR "    item-* now has too many tokens (",
+              scalar(@to_unget),
+              (DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
+              ") to be keepn'd.\n";
+            last; # give up
+          }
+          # else keep while'ing along
+        }
+        # Now put it aaaaall back...
+        $self->unget_token(@to_unget);
+
+      } elsif( $tagname =~ m/^over-/s ) {
+        push @stack, $1;
+        push @indent_stack,
+         int($token->attr('indent') * 4 * $self->normal_halfpoint_size);
+        DEBUG and print STDERR "Indenting over $indent_stack[-1] twips.\n";
+        $self->{'rtfindent'} += $indent_stack[-1];
+        
+      } elsif ($tagname eq 'L') {
+        $tagname .= '=' . ($token->attr('type') || 'pod');
+        
+      } elsif ($tagname eq 'Data') {
+        my $next = $self->get_token;
+        next unless defined $next;
+        unless( $next->type eq 'text' ) {
+          $self->unget_token($next);
+          next;
+        }
+        DEBUG and print STDERR "    raw text ", $next->text, "\n";
+        printf $fh "\n" . $next->text . "\n";
+        next;
+      }
+
+      defined($scratch = $self->{'Tagmap'}{$tagname}) or next;
+      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
+      print $fh $scratch;
+      
+      if ($tagname eq 'item-number') {
+        print $fh $token->attr('number'), ". \n";
+      } elsif ($tagname eq 'item-bullet') {
+        print $fh "\\'", ord("_"), "\n";
+        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
+      }
+
+    } elsif( $type eq 'end' ) {
+      DEBUG > 1 and print STDERR "  -$type ",$token->tagname,"\n";
+      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
+        DEBUG and print STDERR "Indenting back $indent_stack[-1] twips.\n";
+        $self->{'rtfindent'} -= pop @indent_stack;
+        pop @stack;
+      } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') {
+        --$self->{'rtfverbatim'};
+      }
+      defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
+      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
+      print $fh $scratch;
+    }
+  }
+  return 1;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub do_beginning {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  return print $fh join '',
+    $self->doc_init,
+    $self->font_table,
+    $self->stylesheet,
+    $self->color_table,
+    $self->doc_info,
+    $self->doc_start,
+    "\n"
+  ;
+}
+
+sub do_end {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  return print $fh '}'; # that should do it
+}
+
+###########################################################################
+
+sub stylesheet {
+  return sprintf <<'END',
+{\stylesheet
+{\snext0 Normal;}
+{\*\cs10 \additive Default Paragraph Font;}
+{\*\cs16 \additive \i \sbasedon10 pod-I;}
+{\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;}
+{\*\cs18 \additive \b \sbasedon10 pod-B;}
+{\*\cs19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;}
+{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
+{\*\cs21 \additive \lang1024\noproof \sbasedon10 pod-computerese;}
+{\*\cs22 \additive \i\lang1024\noproof\sbasedon10 pod-L-pod;}
+{\*\cs23 \additive \i\lang1024\noproof\sbasedon10 pod-L-url;}
+{\*\cs24 \additive \i\lang1024\noproof\sbasedon10 pod-L-man;}
+
+{\*\cs25 \additive \f1\lang1024\noproof\sbasedon0 pod-codelbock-plain;}
+{\*\cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
+{\*\cs27 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold;}
+{\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold-ital;}
+
+{\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head1;}
+{\s32\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;}
+{\s33\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;}
+{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
+}
+
+END
+
+   $_[0]->codeblock_halfpoint_size(),
+   $_[0]->head1_halfpoint_size(),
+   $_[0]->head2_halfpoint_size(),
+   $_[0]->head3_halfpoint_size(),
+   $_[0]->head4_halfpoint_size(),
+  ;
+}
+
+###########################################################################
+# Override these as necessary for further customization
+
+sub font_table {
+  return <<'END';  # text font, code font, heading font
+{\fonttbl
+{\f0\froman Times New Roman;}
+{\f1\fmodern Courier New;}
+{\f2\fswiss Arial;}
+}
+
+END
+}
+
+sub doc_init {
+   return <<'END';
+{\rtf1\ansi\deff0
+
+END
+}
+
+sub color_table {
+   return <<'END';
+{\colortbl;\red255\green0\blue0;\red0\green0\blue255;}
+END
+}
+
+
+sub doc_info {
+   my $self = $_[0];
+
+   my $class = ref($self) || $self;
+
+   my $tag = __PACKAGE__ . ' ' . $VERSION;
+   
+   unless($class eq __PACKAGE__) {
+     $tag = " ($tag)";
+     $tag = " v" . $self->VERSION . $tag   if   defined $self->VERSION;
+     $tag = $class . $tag;
+   }
+
+   return sprintf <<'END',
+{\info{\doccomm
+%s
+ using %s v%s
+ under Perl v%s at %s GMT}
+{\author [see doc]}{\company [see doc]}{\operator [see doc]}
+}
+
+END
+
+  # None of the following things should need escaping, I dare say!
+    $tag, 
+    $ISA[0], $ISA[0]->VERSION(),
+    $], scalar(gmtime),
+  ;
+}
+
+sub doc_start {
+  my $self = $_[0];
+  my $title = $self->get_short_title();
+  DEBUG and print STDERR "Short Title: <$title>\n";
+  $title .= ' ' if length $title;
+  
+  $title =~ s/ *$/ /s;
+  $title =~ s/^ //s;
+  $title =~ s/ $/, /s;
+   # make sure it ends in a comma and a space, unless it's 0-length
+
+  my $is_obviously_module_name;
+  $is_obviously_module_name = 1
+   if $title =~ m/^\S+$/s and $title =~ m/::/s;
+    # catches the most common case, at least
+
+  DEBUG and print STDERR "Title0: <$title>\n";
+  $title = rtf_esc($title);
+  DEBUG and print STDERR "Title1: <$title>\n";
+  $title = '\lang1024\noproof ' . $title
+   if $is_obviously_module_name;
+
+  return sprintf <<'END', 
+\deflang%s\plain\lang%s\widowctrl
+{\header\pard\qr\plain\f2\fs%s
+%s
+p.\chpgn\par}
+\fs%s
+
+END
+    ($self->doc_lang) x 2,
+    $self->header_halfpoint_size,
+    $title,
+    $self->normal_halfpoint_size,
+  ;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+#-------------------------------------------------------------------------
+
+use integer;
+sub rtf_esc {
+  my $x; # scratch
+  if(!defined wantarray) { # void context: alter in-place!
+    for(@_) {
+      s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    }
+    return;
+  } elsif(wantarray) {  # return an array
+    return map {; ($x = $_) =~
+      s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+      $x;
+    } @_;
+  } else { # return a single scalar
+    ($x = ((@_ == 1) ? $_[0] : join '', @_)
+    ) =~ s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+             # Escape \, {, }, -, control chars, and 7f-ff.
+    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    return $x;
+  }
+}
+
+sub rtf_esc_codely {
+  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
+  # We don't want to change the "-" to hard-hyphen, because we want to
+  #  be able to paste this into a file and run it without there being
+  #  dire screaming about the mysterious hard-hyphen character (which
+  #  looks just like a normal dash character).
+  
+  my $x; # scratch
+  if(!defined wantarray) { # void context: alter in-place!
+    for(@_) {
+      s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    }
+    return;
+  } elsif(wantarray) {  # return an array
+    return map {; ($x = $_) =~
+      s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+      $x;
+    } @_;
+  } else { # return a single scalar
+    ($x = ((@_ == 1) ? $_[0] : join '', @_)
+    ) =~ s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+             # Escape \, {, }, -, control chars, and 7f-ff.
+    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    return $x;
+  }
+}
+
+%Escape = (
+  (($] lt 5.007_003) # Broken for non-ASCII on early Perls
+   ? (map( (chr($_),chr($_)), # things not apparently needing escaping
+       0x20 .. 0x7E ),
+      map( (chr($_),sprintf("\\'%02x", $_)), # apparently escapeworthy things
+       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46))
+   : (map( (chr(utf8::unicode_to_native($_)),chr(utf8::unicode_to_native($_))),
+       0x20 .. 0x7E ),
+      map( (chr($_),sprintf("\\'%02x", utf8::unicode_to_native($_))),
+       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46))),
+
+  # We get to escape out 'F' so that we can send RTF files thru the mail
+  # without the slightest worry that paragraphs beginning with "From"
+  # will get munged.
+
+  # And some refinements:
+  "\r"  => "\n",
+  "\cj"  => "\n",
+  "\n"   => "\n\\line ",
+
+  "\t"   => "\\tab ",     # Tabs (altho theoretically raw \t's are okay)
+  "\f"   => "\n\\page\n", # Formfeed
+  "-"    => "\\_",        # Turn plaintext '-' into a non-breaking hyphen
+  $Pod::Simple::nbsp => "\\~",        # Latin-1 non-breaking space
+  $Pod::Simple::shy => "\\-",        # Latin-1 soft (optional) hyphen
+
+  # CRAZY HACKS:
+  "\n" => "\\line\n",
+  "\r" => "\n",
+  "\cb" => "{\n\\cs21\\lang1024\\noproof ",  # \\cf1
+  "\cc" => "}",
+);
+1;
+
+__END__
+
+package Pod::Simple::BlackBox;
+#
+# "What's in the box?"  "Pain."
+#
+###########################################################################
+#
+# This is where all the scary things happen: parsing lines into
+#  paragraphs; and then into directives, verbatims, and then also
+#  turning formatting sequences into treelets.
+#
+# Are you really sure you want to read this code?
+#
+#-----------------------------------------------------------------------------
+#
+# The basic work of this module Pod::Simple::BlackBox is doing the dirty work
+# of parsing Pod into treelets (generally one per non-verbatim paragraph), and
+# to call the proper callbacks on the treelets.
+#
+# Every node in a treelet is a ['name', {attrhash}, ...children...]
+
+use integer; # vroom!
+use strict;
+use Carp ();
+use vars qw($VERSION );
+$VERSION = '3.35';
+#use constant DEBUG => 7;
+BEGIN {
+  require Pod::Simple;
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG
+}
+
+# Matches a character iff the character will have a different meaning
+# if we choose CP1252 vs UTF-8 if there is no =encoding line.
+# This is broken for early Perls on non-ASCII platforms.
+my $non_ascii_re = eval "qr/[[:^ascii:]]/";
+$non_ascii_re = qr/[\x80-\xFF]/ if ! defined $non_ascii_re;
+
+my $utf8_bom;
+if (($] ge 5.007_003)) {
+  $utf8_bom = "\x{FEFF}";
+  utf8::encode($utf8_bom);
+} else {
+  $utf8_bom = "\xEF\xBB\xBF";   # No EBCDIC BOM detection for early Perls.
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub parse_line { shift->parse_lines(@_) } # alias
+
+# - - -  Turn back now!  Run away!  - - -
+
+sub parse_lines {             # Usage: $parser->parse_lines(@lines)
+  # an undef means end-of-stream
+  my $self = shift;
+
+  my $code_handler = $self->{'code_handler'};
+  my $cut_handler  = $self->{'cut_handler'};
+  my $wl_handler   = $self->{'whiteline_handler'};
+  $self->{'line_count'} ||= 0;
+ 
+  my $scratch;
+
+  DEBUG > 4 and 
+   print STDERR "# Parsing starting at line ", $self->{'line_count'}, ".\n";
+
+  DEBUG > 5 and
+   print STDERR "#  About to parse lines: ",
+     join(' ', map defined($_) ? "[$_]" : "EOF", @_), "\n";
+
+  my $paras = ($self->{'paras'} ||= []);
+   # paragraph buffer.  Because we need to defer processing of =over
+   # directives and verbatim paragraphs.  We call _ponder_paragraph_buffer
+   # to process this.
+  
+  $self->{'pod_para_count'} ||= 0;
+
+  my $line;
+  foreach my $source_line (@_) {
+    if( $self->{'source_dead'} ) {
+      DEBUG > 4 and print STDERR "# Source is dead.\n";
+      last;
+    }
+
+    unless( defined $source_line ) {
+      DEBUG > 4 and print STDERR "# Undef-line seen.\n";
+
+      push @$paras, ['~end', {'start_line' => $self->{'line_count'}}];
+      push @$paras, $paras->[-1], $paras->[-1];
+       # So that it definitely fills the buffer.
+      $self->{'source_dead'} = 1;
+      $self->_ponder_paragraph_buffer;
+      next;
+    }
+
+
+    if( $self->{'line_count'}++ ) {
+      ($line = $source_line) =~ tr/\n\r//d;
+       # If we don't have two vars, we'll end up with that there
+       # tr/// modding the (potentially read-only) original source line!
+    
+    } else {
+      DEBUG > 2 and print STDERR "First line: [$source_line]\n";
+
+      if( ($line = $source_line) =~ s/^$utf8_bom//s ) {
+        DEBUG and print STDERR "UTF-8 BOM seen.  Faking a '=encoding utf8'.\n";
+        $self->_handle_encoding_line( "=encoding utf8" );
+        delete $self->{'_processed_encoding'};
+        $line =~ tr/\n\r//d;
+        
+      } elsif( $line =~ s/^\xFE\xFF//s ) {
+        DEBUG and print STDERR "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
+        $self->scream(
+          $self->{'line_count'},
+          "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
+        );
+        splice @_;
+        push @_, undef;
+        next;
+
+        # TODO: implement somehow?
+
+      } elsif( $line =~ s/^\xFF\xFE//s ) {
+        DEBUG and print STDERR "Little-endian UTF-16 BOM seen.  Aborting parsing.\n";
+        $self->scream(
+          $self->{'line_count'},
+          "UTF16-LE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
+        );
+        splice @_;
+        push @_, undef;
+        next;
+
+        # TODO: implement somehow?
+        
+      } else {
+        DEBUG > 2 and print STDERR "First line is BOM-less.\n";
+        ($line = $source_line) =~ tr/\n\r//d;
+      }
+    }
+
+    if(!$self->{'parse_characters'} && !$self->{'encoding'}
+      && ($self->{'in_pod'} || $line =~ /^=/s)
+      && $line =~ /$non_ascii_re/
+    ) {
+
+      my $encoding;
+
+      # No =encoding line, and we are at the first line in the input that
+      # contains a non-ascii byte, that is one whose meaning varies depending
+      # on whether the file is encoded in UTF-8 or CP1252, which are the two
+      # possibilities permitted by the pod spec.  (ASCII is assumed if the
+      # file only contains ASCII bytes.)  In order to process this line, we
+      # need to figure out what encoding we will use for the file.
+      #
+      # Strictly speaking ISO 8859-1 (Latin 1) refers to the code points
+      # 160-255, but it is used here, as it often colloquially is, to refer to
+      # the complete set of code points 0-255, including ASCII (0-127), the C1
+      # controls (128-159), and strict Latin 1 (160-255).
+      #
+      # CP1252 is effectively a superset of Latin 1, because it differs only
+      # from colloquial 8859-1 in the C1 controls, which are very unlikely to
+      # actually be present in 8859-1 files, so can be used for other purposes
+      # without conflict.  CP 1252 uses most of them for graphic characters.
+      #
+      # Note that all ASCII-range bytes represent their corresponding code
+      # points in CP1252 and UTF-8.  In ASCII platform UTF-8 all other code
+      # points require multiple (non-ASCII) bytes to represent.  (A separate
+      # paragraph for EBCDIC is below.)  The multi-byte representation is
+      # quite structured.  If we find an isolated byte that requires multiple
+      # bytes to represent in UTF-8, we know that the encoding is not UTF-8.
+      # If we find a sequence of bytes that violates the UTF-8 structure, we
+      # also can presume the encoding isn't UTF-8, and hence must be 1252.
+      #
+      # But there are ambiguous cases where we could guess wrong.  If so, the
+      # user will end up having to supply an =encoding line.  We use all
+      # readily available information to improve our chances of guessing
+      # right.  The odds of something not being UTF-8, but still passing a
+      # UTF-8 validity test go down very rapidly with increasing length of the
+      # sequence.  Therefore we look at all the maximal length non-ascii
+      # sequences on the line.  If any of the sequences can't be UTF-8, we
+      # quit there and choose CP1252.  If all could be UTF-8, we guess UTF-8.
+      #
+      # On EBCDIC platforms, the situation is somewhat different.  In
+      # UTF-EBCDIC, not only do ASCII-range bytes represent their code points,
+      # but so do the bytes that are for the C1 controls.  Recall that these
+      # correspond to the unused portion of 8859-1 that 1252 mostly takes
+      # over.  That means that there are fewer code points that are
+      # represented by multi-bytes.  But, note that the these controls are
+      # very unlikely to be in pod text.  So if we encounter one of them, it
+      # means that it is quite likely CP1252 and not UTF-8.  The net result is
+      # the same code below is used for both platforms.
+      while ($line =~ m/($non_ascii_re+)/g) {
+        my $non_ascii_seq = $1;
+
+        if (length $non_ascii_seq == 1) {
+          $encoding = 'CP1252';
+          goto guessed;
+        } elsif ($] ge 5.007_003) {
+
+          # On Perls that have this function, we can see if the sequence is
+          # valid UTF-8 or not.
+          my $is_utf8;
+          {
+            no warnings 'utf8';
+            $is_utf8 = utf8::decode($non_ascii_seq);
+          }
+          if (! $is_utf8) {
+            $encoding = 'CP1252';
+            goto guessed;
+          }
+        } elsif (ord("A") == 65) {  # An early Perl, ASCII platform
+
+          # Without utf8::decode, it's a lot harder to do a rigorous check
+          # (though some early releases had a different function that
+          # accomplished the same thing).  Since these are ancient Perls, not
+          # likely to be in use today, we take the easy way out, and look at
+          # just the first two bytes of the sequence to see if they are the
+          # start of a UTF-8 character.  In ASCII UTF-8, continuation bytes
+          # must be between 0x80 and 0xBF.  Start bytes can range from 0xC2
+          # through 0xFF, but anything above 0xF4 is not Unicode, and hence
+          # extremely unlikely to be in a pod.
+          if ($non_ascii_seq !~ /^[\xC2-\xF4][\x80-\xBF]/) {
+            $encoding = 'CP1252';
+            goto guessed;
+          }
+
+          # We don't bother doing anything special for EBCDIC on early Perls.
+          # If there is a solitary variant, CP1252 will be chosen; otherwise
+          # UTF-8.
+        }
+      } # End of loop through all variant sequences on the line
+
+      # All sequences in the line could be UTF-8.  Guess that.
+      $encoding = 'UTF-8';
+
+    guessed:
+      $self->_handle_encoding_line( "=encoding $encoding" );
+      delete $self->{'_processed_encoding'};
+      $self->{'_transcoder'} && $self->{'_transcoder'}->($line);
+
+      my ($word) = $line =~ /(\S*$non_ascii_re\S*)/;
+
+      $self->whine(
+        $self->{'line_count'},
+        "Non-ASCII character seen before =encoding in '$word'. Assuming $encoding"
+      );
+    }
+
+    DEBUG > 5 and print STDERR "# Parsing line: [$line]\n";
+
+    if(!$self->{'in_pod'}) {
+      if($line =~ m/^=([a-zA-Z][a-zA-Z0-9]*)(?:\s|$)/s) {
+        if($1 eq 'cut') {
+          $self->scream(
+            $self->{'line_count'},
+            "=cut found outside a pod block.  Skipping to next block."
+          );
+          
+          ## Before there were errata sections in the world, it was
+          ## least-pessimal to abort processing the file.  But now we can
+          ## just barrel on thru (but still not start a pod block).
+          #splice @_;
+          #push @_, undef;
+          
+          next;
+        } else {
+          $self->{'in_pod'} = $self->{'start_of_pod_block'}
+                            = $self->{'last_was_blank'}     = 1;
+          # And fall thru to the pod-mode block further down
+        }
+      } else {
+        DEBUG > 5 and print STDERR "# It's a code-line.\n";
+        $code_handler->(map $_, $line, $self->{'line_count'}, $self)
+         if $code_handler;
+        # Note: this may cause code to be processed out of order relative
+        #  to pods, but in order relative to cuts.
+        
+        # Note also that we haven't yet applied the transcoding to $line
+        #  by time we call $code_handler!
+
+        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) {
+          # That RE is from perlsyn, section "Plain Old Comments (Not!)",
+          #$fname = $2 if defined $2;
+          #DEBUG > 1 and defined $2 and print STDERR "# Setting fname to \"$fname\"\n";
+          DEBUG > 1 and print STDERR "# Setting nextline to $1\n";
+          $self->{'line_count'} = $1 - 1;
+        }
+        
+        next;
+      }
+    }
+    
+    # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+    # Else we're in pod mode:
+
+    # Apply any necessary transcoding:
+    $self->{'_transcoder'} && $self->{'_transcoder'}->($line);
+
+    # HERE WE CATCH =encoding EARLY!
+    if( $line =~ m/^=encoding\s+\S+\s*$/s ) {
+      next if $self->parse_characters;   # Ignore this line
+      $line = $self->_handle_encoding_line( $line );
+    }
+
+    if($line =~ m/^=cut/s) {
+      # here ends the pod block, and therefore the previous pod para
+      DEBUG > 1 and print STDERR "Noting =cut at line ${$self}{'line_count'}\n";
+      $self->{'in_pod'} = 0;
+      # ++$self->{'pod_para_count'};
+      $self->_ponder_paragraph_buffer();
+       # by now it's safe to consider the previous paragraph as done.
+      $cut_handler->(map $_, $line, $self->{'line_count'}, $self)
+       if $cut_handler;
+
+      # TODO: add to docs: Note: this may cause cuts to be processed out
+      #  of order relative to pods, but in order relative to code.
+      
+    } elsif($line =~ m/^(\s*)$/s) {  # it's a blank line
+      if (defined $1 and $1 =~ /[^\S\r\n]/) { # it's a white line
+        $wl_handler->(map $_, $line, $self->{'line_count'}, $self)
+          if $wl_handler;
+      }
+
+      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
+        DEBUG > 1 and print STDERR "Saving blank line at line ${$self}{'line_count'}\n";
+        push @{$paras->[-1]}, $line;
+      }  # otherwise it's not interesting
+      
+      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
+        DEBUG > 1 and print STDERR "Noting para ends with blank line at ${$self}{'line_count'}\n";
+      }
+      
+      $self->{'last_was_blank'} = 1;
+      
+    } elsif($self->{'last_was_blank'}) {  # A non-blank line starting a new para...
+      
+      if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?:\s+|$)(.*)/s) {
+        # THIS IS THE ONE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS
+        my $new = [$1, {'start_line' => $self->{'line_count'}}, $2];
+         # Note that in "=head1 foo", the WS is lost.
+         # Example: ['=head1', {'start_line' => 123}, ' foo']
+        
+        ++$self->{'pod_para_count'};
+        
+        $self->_ponder_paragraph_buffer();
+         # by now it's safe to consider the previous paragraph as done.
+                
+        push @$paras, $new; # the new incipient paragraph
+        DEBUG > 1 and print STDERR "Starting new ${$paras}[-1][0] para at line ${$self}{'line_count'}\n";
+        
+      } elsif($line =~ m/^\s/s) {
+
+        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
+          DEBUG > 1 and print STDERR "Resuming verbatim para at line ${$self}{'line_count'}\n";
+          push @{$paras->[-1]}, $line;
+        } else {
+          ++$self->{'pod_para_count'};
+          $self->_ponder_paragraph_buffer();
+           # by now it's safe to consider the previous paragraph as done.
+          DEBUG > 1 and print STDERR "Starting verbatim para at line ${$self}{'line_count'}\n";
+          push @$paras, ['~Verbatim', {'start_line' => $self->{'line_count'}}, $line];
+        }
+      } else {
+        ++$self->{'pod_para_count'};
+        $self->_ponder_paragraph_buffer();
+         # by now it's safe to consider the previous paragraph as done.
+        push @$paras, ['~Para',  {'start_line' => $self->{'line_count'}}, $line];
+        DEBUG > 1 and print STDERR "Starting plain para at line ${$self}{'line_count'}\n";
+      }
+      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;
+
+    } else {
+      # It's a non-blank line /continuing/ the current para
+      if(@$paras) {
+        DEBUG > 2 and print STDERR "Line ${$self}{'line_count'} continues current paragraph\n";
+        push @{$paras->[-1]}, $line;
+      } else {
+        # Unexpected case!
+        die "Continuing a paragraph but \@\$paras is empty?";
+      }
+      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;
+    }
+    
+  } # ends the big while loop
+
+  DEBUG > 1 and print STDERR (pretty(@$paras), "\n");
+  return $self;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_encoding_line {
+  my($self, $line) = @_;
+  
+  return if $self->parse_characters;
+
+  # The point of this routine is to set $self->{'_transcoder'} as indicated.
+
+  return $line unless $line =~ m/^=encoding\s+(\S+)\s*$/s;
+  DEBUG > 1 and print STDERR "Found an encoding line \"=encoding $1\"\n";
+
+  my $e    = $1;
+  my $orig = $e;
+  push @{ $self->{'encoding_command_reqs'} }, "=encoding $orig";
+
+  my $enc_error;
+
+  # Cf.   perldoc Encode   and   perldoc Encode::Supported
+
+  require Pod::Simple::Transcode;
+
+  if( $self->{'encoding'} ) {
+    my $norm_current = $self->{'encoding'};
+    my $norm_e = $e;
+    foreach my $that ($norm_current, $norm_e) {
+      $that =  lc($that);
+      $that =~ s/[-_]//g;
+    }
+    if($norm_current eq $norm_e) {
+      DEBUG > 1 and print STDERR "The '=encoding $orig' line is ",
+       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
+      $enc_error = '';
+       # But that doesn't necessarily mean that the earlier one went okay
+    } else {
+      $enc_error = "Encoding is already set to " . $self->{'encoding'};
+      DEBUG > 1 and print STDERR $enc_error;
+    }
+  } elsif (
+    # OK, let's turn on the encoding
+    do {
+      DEBUG > 1 and print STDERR " Setting encoding to $e\n";
+      $self->{'encoding'} = $e;
+      1;
+    }
+    and $e eq 'HACKRAW'
+  ) {
+    DEBUG and print STDERR " Putting in HACKRAW (no-op) encoding mode.\n";
+
+  } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) {
+
+    die($enc_error = "WHAT? _transcoder is already set?!")
+     if $self->{'_transcoder'};   # should never happen
+    require Pod::Simple::Transcode;
+    $self->{'_transcoder'} = Pod::Simple::Transcode::->make_transcoder($e);
+    eval {
+      my @x = ('', "abc", "123");
+      $self->{'_transcoder'}->(@x);
+    };
+    $@ && die( $enc_error =
+      "Really unexpected error setting up encoding $e: $@\nAborting"
+    );
+    $self->{'detected_encoding'} = $e;
+
+  } else {
+    my @supported = Pod::Simple::Transcode::->all_encodings;
+
+    # Note unsupported, and complain
+    DEBUG and print STDERR " Encoding [$e] is unsupported.",
+      "\nSupporteds: @supported\n";
+    my $suggestion = '';
+
+    # Look for a near match:
+    my $norm = lc($e);
+    $norm =~ tr[-_][]d;
+    my $n;
+    foreach my $enc (@supported) {
+      $n = lc($enc);
+      $n =~ tr[-_][]d;
+      next unless $n eq $norm;
+      $suggestion = "  (Maybe \"$e\" should be \"$enc\"?)";
+      last;
+    }
+    my $encmodver = Pod::Simple::Transcode::->encmodver;
+    $enc_error = join '' =>
+      "This document probably does not appear as it should, because its ",
+      "\"=encoding $e\" line calls for an unsupported encoding.",
+      $suggestion, "  [$encmodver\'s supported encodings are: @supported]"
+    ;
+
+    $self->scream( $self->{'line_count'}, $enc_error );
+  }
+  push @{ $self->{'encoding_command_statuses'} }, $enc_error;
+  if (defined($self->{'_processed_encoding'})) {
+    # Double declaration.
+    $self->scream( $self->{'line_count'}, 'Cannot have multiple =encoding directives');
+  }
+  $self->{'_processed_encoding'} = $orig;
+
+  return $line;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _handle_encoding_second_level {
+  # By time this is called, the encoding (if well formed) will already
+  #  have been acted one.
+  my($self, $para) = @_;
+  my @x = @$para;
+  my $content = join ' ', splice @x, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+
+  DEBUG > 2 and print STDERR "Ogling encoding directive: =encoding $content\n";
+  
+  if (defined($self->{'_processed_encoding'})) {
+    #if($content ne $self->{'_processed_encoding'}) {
+    #  Could it happen?
+    #}
+    delete $self->{'_processed_encoding'};
+    # It's already been handled.  Check for errors.
+    if(! $self->{'encoding_command_statuses'} ) {
+      DEBUG > 2 and print STDERR " CRAZY ERROR: It wasn't really handled?!\n";
+    } elsif( $self->{'encoding_command_statuses'}[-1] ) {
+      $self->whine( $para->[1]{'start_line'},
+        sprintf "Couldn't do %s: %s",
+          $self->{'encoding_command_reqs'  }[-1],
+          $self->{'encoding_command_statuses'}[-1],
+      );
+    } else {
+      DEBUG > 2 and print STDERR " (Yup, it was successfully handled already.)\n";
+    }
+    
+  } else {
+    # Otherwise it's a syntax error
+    $self->whine( $para->[1]{'start_line'},
+      "Invalid =encoding syntax: $content"
+    );
+  }
+  
+  return;
+}
+
+#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`
+
+{
+my $m = -321;   # magic line number
+
+sub _gen_errata {
+  my $self = $_[0];
+  # Return 0 or more fake-o paragraphs explaining the accumulated
+  #  errors on this document.
+
+  return() unless $self->{'errata'} and keys %{$self->{'errata'}};
+
+  my @out;
+  
+  foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) {
+    push @out,
+      ['=item', {'start_line' => $m}, "Around line $line:"],
+      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
+        #['~Top', {'start_line' => $m},
+        $_
+        #]
+        ],
+        @{$self->{'errata'}{$line}}
+      )
+    ;
+  }
+  
+  # TODO: report of unknown entities? unrenderable characters?
+
+  unshift @out,
+    ['=head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
+    ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1},
+     "Hey! ",
+     ['B', {},
+      'The above document had some coding errors, which are explained below:'
+     ]
+    ],
+    ['=over',  {'start_line' => $m, 'errata' => 1}, ''],
+  ;
+
+  push @out, 
+    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
+  ;
+
+  DEBUG and print STDERR "\n<<\n", pretty(\@out), "\n>>\n\n";
+
+  return @out;
+}
+
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+##############################################################################
+##
+##  stop reading now stop reading now stop reading now stop reading now stop
+##
+##                         HERE IT BECOMES REALLY SCARY
+##
+##  stop reading now stop reading now stop reading now stop reading now stop
+##
+##############################################################################
+
+sub _ponder_paragraph_buffer {
+
+  # Para-token types as found in the buffer.
+  #   ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end,
+  #   =over, =back, =item
+  #   and the null =pod (to be complained about if over one line)
+  #
+  # "~data" paragraphs are something we generate at this level, depending on
+  # a currently open =over region
+
+  # Events fired:  Begin and end for:
+  #                   directivename (like head1 .. head4), item, extend,
+  #                   for (from =begin...=end, =for),
+  #                   over-bullet, over-number, over-text, over-block,
+  #                   item-bullet, item-number, item-text,
+  #                   Document,
+  #                   Data, Para, Verbatim
+  #                   B, C, longdirname (TODO -- wha?), etc. for all directives
+  # 
+
+  my $self = $_[0];
+  my $paras;
+  return unless @{$paras = $self->{'paras'}};
+  my $curr_open = ($self->{'curr_open'} ||= []);
+
+  my $scratch;
+
+  DEBUG > 10 and print STDERR "# Paragraph buffer: <<", pretty($paras), ">>\n";
+
+  # We have something in our buffer.  So apparently the document has started.
+  unless($self->{'doc_has_started'}) {
+    $self->{'doc_has_started'} = 1;
+    
+    my $starting_contentless;
+    $starting_contentless =
+     (
+       !@$curr_open  
+       and @$paras and ! grep $_->[0] ne '~end', @$paras
+        # i.e., if the paras is all ~ends
+     )
+    ;
+    DEBUG and print STDERR "# Starting ",
+      $starting_contentless ? 'contentless' : 'contentful',
+      " document\n"
+    ;
+    
+    $self->_handle_element_start(
+      ($scratch = 'Document'),
+      {
+        'start_line' => $paras->[0][1]{'start_line'},
+        $starting_contentless ? ( 'contentless' => 1 ) : (),
+      },
+    );
+  }
+
+  my($para, $para_type);
+  while(@$paras) {
+    last if @$paras == 1 and
+      ( $paras->[0][0] eq '=over' or $paras->[0][0] eq '~Verbatim'
+        or $paras->[0][0] eq '=item' )
+    ;
+    # Those're the three kinds of paragraphs that require lookahead.
+    #   Actually, an "=item Foo" inside an <over type=text> region
+    #   and any =item inside an <over type=block> region (rare)
+    #   don't require any lookahead, but all others (bullets
+    #   and numbers) do.
+
+# TODO: whinge about many kinds of directives in non-resolving =for regions?
+# TODO: many?  like what?  =head1 etc?
+
+    $para = shift @$paras;
+    $para_type = $para->[0];
+
+    DEBUG > 1 and print STDERR "Pondering a $para_type paragraph, given the stack: (",
+      $self->_dump_curr_open(), ")\n";
+    
+    if($para_type eq '=for') {
+      next if $self->_ponder_for($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=begin') {
+      next if $self->_ponder_begin($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=end') {
+      next if $self->_ponder_end($para,$curr_open,$paras);
+
+    } elsif($para_type eq '~end') { # The virtual end-document signal
+      next if $self->_ponder_doc_end($para,$curr_open,$paras);
+    }
+
+
+    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    if(grep $_->[1]{'~ignore'}, @$curr_open) {
+      DEBUG > 1 and
+       print STDERR "Skipping $para_type paragraph because in ignore mode.\n";
+      next;
+    }
+    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+    if($para_type eq '=pod') {
+      $self->_ponder_pod($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=over') {
+      next if $self->_ponder_over($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=back') {
+      next if $self->_ponder_back($para,$curr_open,$paras);
+
+    } else {
+
+      # All non-magical codes!!!
+      
+      # Here we start using $para_type for our own twisted purposes, to
+      #  mean how it should get treated, not as what the element name
+      #  should be.
+
+      DEBUG > 1 and print STDERR "Pondering non-magical $para_type\n";
+
+      my $i;
+
+      # Enforce some =headN discipline
+      if($para_type =~ m/^=head\d$/s
+         and ! $self->{'accept_heads_anywhere'}
+         and @$curr_open
+         and $curr_open->[-1][0] eq '=over'
+      ) {
+        DEBUG > 2 and print STDERR "'=$para_type' inside an '=over'!\n";
+        $self->whine(
+          $para->[1]{'start_line'},
+          "You forgot a '=back' before '$para_type'"
+        );
+        unshift @$paras, ['=back', {}, ''], $para;   # close the =over
+        next;
+      }
+
+
+      if($para_type eq '=item') {
+
+        my $over;
+        unless(@$curr_open and
+               $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) {
+          $self->whine(
+            $para->[1]{'start_line'},
+            "'=item' outside of any '=over'"
+          );
+          unshift @$paras,
+            ['=over', {'start_line' => $para->[1]{'start_line'}}, ''],
+            $para
+          ;
+          next;
+        }
+        
+        
+        my $over_type = $over->[1]{'~type'};
+        
+        if(!$over_type) {
+          # Shouldn't happen1
+          die "Typeless over in stack, starting at line "
+           . $over->[1]{'start_line'};
+
+        } elsif($over_type eq 'block') {
+          unless($curr_open->[-1][1]{'~bitched_about'}) {
+            $curr_open->[-1][1]{'~bitched_about'} = 1;
+            $self->whine(
+              $curr_open->[-1][1]{'start_line'},
+              "You can't have =items (as at line "
+              . $para->[1]{'start_line'}
+              . ") unless the first thing after the =over is an =item"
+            );
+          }
+          # Just turn it into a paragraph and reconsider it
+          $para->[0] = '~Para';
+          unshift @$paras, $para;
+          next;
+
+        } elsif($over_type eq 'text') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          if($item_type eq 'text') {
+            # Nothing special needs doing for 'text'
+          } elsif($item_type eq 'number' or $item_type eq 'bullet') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected text after =item, not a $item_type"
+            );
+            # Undo our clobbering:
+            push @$para, $para->[1]{'~orig_content'};
+            delete $para->[1]{'number'};
+             # Only a PROPER item-number element is allowed
+             #  to have a number attribute.
+          } else {
+            die "Unhandled item type $item_type"; # should never happen
+          }
+          
+          # =item-text thingies don't need any assimilation, it seems.
+
+        } elsif($over_type eq 'number') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          my $expected_value = ++ $curr_open->[-1][1]{'~counter'};
+          
+          if($item_type eq 'bullet') {
+            # Hm, it's not numeric.  Correct for this.
+            $para->[1]{'number'} = $expected_value;
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item $expected_value'"
+            );
+            push @$para, $para->[1]{'~orig_content'};
+              # restore the bullet, blocking the assimilation of next para
+
+          } elsif($item_type eq 'text') {
+            # Hm, it's not numeric.  Correct for this.
+            $para->[1]{'number'} = $expected_value;
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item $expected_value'"
+            );
+            # Text content will still be there and will block next ~Para
+
+          } elsif($item_type ne 'number') {
+            die "Unknown item type $item_type"; # should never happen
+
+          } elsif($expected_value == $para->[1]{'number'}) {
+            DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n";
+            
+          } else {
+            DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'},
+             " instead of the expected value of $expected_value\n";
+            $self->whine(
+              $para->[1]{'start_line'},
+              "You have '=item " . $para->[1]{'number'} .
+              "' instead of the expected '=item $expected_value'"
+            );
+            $para->[1]{'number'} = $expected_value;  # correcting!!
+          }
+            
+          if(@$para == 2) {
+            # For the cases where we /didn't/ push to @$para
+            if($paras->[0][0] eq '~Para') {
+              DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+              push @$para, splice @{shift @$paras},2;
+            } else {
+              DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+              push @$para, '';  # Just so it's not contentless
+            }
+          }
+
+
+        } elsif($over_type eq 'bullet') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          if($item_type eq 'bullet') {
+            # as expected!
+
+            if( $para->[1]{'~_freaky_para_hack'} ) {
+              DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n";
+              push @$para, delete $para->[1]{'~_freaky_para_hack'};
+            }
+
+          } elsif($item_type eq 'number') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item *'"
+            );
+            push @$para, $para->[1]{'~orig_content'};
+             # and block assimilation of the next paragraph
+            delete $para->[1]{'number'};
+             # Only a PROPER item-number element is allowed
+             #  to have a number attribute.
+          } elsif($item_type eq 'text') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item *'"
+            );
+             # But doesn't need processing.  But it'll block assimilation
+             #  of the next para.
+          } else {
+            die "Unhandled item type $item_type"; # should never happen
+          }
+
+          if(@$para == 2) {
+            # For the cases where we /didn't/ push to @$para
+            if($paras->[0][0] eq '~Para') {
+              DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+              push @$para, splice @{shift @$paras},2;
+            } else {
+              DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+              push @$para, '';  # Just so it's not contentless
+            }
+          }
+
+        } else {
+          die "Unhandled =over type \"$over_type\"?";
+          # Shouldn't happen!
+        }
+
+        $para_type = 'Plain';
+        $para->[0] .= '-' . $over_type;
+        # Whew.  Now fall thru and process it.
+
+
+      } elsif($para_type eq '=extend') {
+        # Well, might as well implement it here.
+        $self->_ponder_extend($para);
+        next;  # and skip
+      } elsif($para_type eq '=encoding') {
+        # Not actually acted on here, but we catch errors here.
+        $self->_handle_encoding_second_level($para);
+        next unless $self->keep_encoding_directive;
+        $para_type = 'Plain';
+      } elsif($para_type eq '~Verbatim') {
+        $para->[0] = 'Verbatim';
+        $para_type = '?Verbatim';
+      } elsif($para_type eq '~Para') {
+        $para->[0] = 'Para';
+        $para_type = '?Plain';
+      } elsif($para_type eq 'Data') {
+        $para->[0] = 'Data';
+        $para_type = '?Data';
+      } elsif( $para_type =~ s/^=//s
+        and defined( $para_type = $self->{'accept_directives'}{$para_type} )
+      ) {
+        DEBUG > 1 and print STDERR " Pondering known directive ${$para}[0] as $para_type\n";
+      } else {
+        # An unknown directive!
+        DEBUG > 1 and printf STDERR "Unhandled directive %s (Handled: %s)\n",
+         $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} )
+        ;
+        $self->whine(
+          $para->[1]{'start_line'},
+          "Unknown directive: $para->[0]"
+        );
+
+        # And maybe treat it as text instead of just letting it go?
+        next;
+      }
+
+      if($para_type =~ s/^\?//s) {
+        if(! @$curr_open) {  # usual case
+          DEBUG and print STDERR "Treating $para_type paragraph as such because stack is empty.\n";
+        } else {
+          my @fors = grep $_->[0] eq '=for', @$curr_open;
+          DEBUG > 1 and print STDERR "Containing fors: ",
+            join(',', map $_->[1]{'target'}, @fors), "\n";
+          
+          if(! @fors) {
+            DEBUG and print STDERR "Treating $para_type paragraph as such because stack has no =for's\n";
+            
+          #} elsif(grep $_->[1]{'~resolve'}, @fors) {
+          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
+          } elsif( $fors[-1][1]{'~resolve'} ) {
+            # Look to the immediately containing for
+          
+            if($para_type eq 'Data') {
+              DEBUG and print STDERR "Treating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
+              $para->[0] = 'Para';
+              $para_type = 'Plain';
+            } else {
+              DEBUG and print STDERR "Treating $para_type paragraph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
+            }
+          } else {
+            DEBUG and print STDERR "Treating $para_type paragraph as Data because the containing =for ($fors[-1][1]{'target'}) is a non-resolver\n";
+            $para->[0] = $para_type = 'Data';
+          }
+        }
+      }
+
+      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      if($para_type eq 'Plain') {
+        $self->_ponder_Plain($para);
+      } elsif($para_type eq 'Verbatim') {
+        $self->_ponder_Verbatim($para);        
+      } elsif($para_type eq 'Data') {
+        $self->_ponder_Data($para);
+      } else {
+        die "\$para type is $para_type -- how did that happen?";
+        # Shouldn't happen.
+      }
+
+      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      $para->[0] =~ s/^[~=]//s;
+
+      DEBUG and print STDERR "\n", pretty($para), "\n";
+
+      # traverse the treelet (which might well be just one string scalar)
+      $self->{'content_seen'} ||= 1;
+      $self->_traverse_treelet_bit(@$para);
+    }
+  }
+  
+  return;
+}
+
+###########################################################################
+# The sub-ponderers...
+
+
+
+sub _ponder_for {
+  my ($self,$para,$curr_open,$paras) = @_;
+
+  # Fake it out as a begin/end
+  my $target;
+
+  if(grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Ignoring ignorable =for\n";
+    return 1;
+  }
+
+  for(my $i = 2; $i < @$para; ++$i) {
+    if($para->[$i] =~ s/^\s*(\S+)\s*//s) {
+      $target = $1;
+      last;
+    }
+  }
+  unless(defined $target) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=for without a target?"
+    );
+    return 1;
+  }
+  DEBUG > 1 and
+   print STDERR "Faking out a =for $target as a =begin $target / =end $target\n";
+  
+  $para->[0] = 'Data';
+  
+  unshift @$paras,
+    ['=begin',
+      {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
+      $target,
+    ],
+    $para,
+    ['=end',
+      {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
+      $target,
+    ],
+  ;
+  
+  return 1;
+}
+
+sub _ponder_begin {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+  unless(length($content)) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=begin without a target?"
+    );
+    DEBUG and print STDERR "Ignoring targetless =begin\n";
+    return 1;
+  }
+  
+  my ($target, $title) = $content =~ m/^(\S+)\s*(.*)$/;
+  $para->[1]{'title'} = $title if ($title);
+  $para->[1]{'target'} = $target;  # without any ':'
+  $content = $target; # strip off the title
+  
+  $content =~ s/^:!/!:/s;
+  my $neg;  # whether this is a negation-match
+  $neg = 1        if $content =~ s/^!//s;
+  my $to_resolve;  # whether to process formatting codes
+  $to_resolve = 1 if $content =~ s/^://s;
+  
+  my $dont_ignore; # whether this target matches us
+  
+  foreach my $target_name (
+    split(',', $content, -1),
+    $neg ? () : '*'
+  ) {
+    DEBUG > 2 and
+     print STDERR " Considering whether =begin $content matches $target_name\n";
+    next unless $self->{'accept_targets'}{$target_name};
+    
+    DEBUG > 2 and
+     print STDERR "  It DOES match the acceptable target $target_name!\n";
+    $to_resolve = 1
+      if $self->{'accept_targets'}{$target_name} eq 'force_resolve';
+    $dont_ignore = 1;
+    $para->[1]{'target_matching'} = $target_name;
+    last; # stop looking at other target names
+  }
+
+  if($neg) {
+    if( $dont_ignore ) {
+      $dont_ignore = '';
+      delete $para->[1]{'target_matching'};
+      DEBUG > 2 and print STDERR " But the leading ! means that this is a NON-match!\n";
+    } else {
+      $dont_ignore = 1;
+      $para->[1]{'target_matching'} = '!';
+      DEBUG > 2 and print STDERR " But the leading ! means that this IS a match!\n";
+    }
+  }
+
+  $para->[0] = '=for';  # Just what we happen to call these, internally
+  $para->[1]{'~really'} ||= '=begin';
+  $para->[1]{'~ignore'}   = (! $dont_ignore) || 0;
+  $para->[1]{'~resolve'}  = $to_resolve || 0;
+
+  DEBUG > 1 and print STDERR " Making note to ", $dont_ignore ? 'not ' : '',
+    "ignore contents of this region\n";
+  DEBUG > 1 and $dont_ignore and print STDERR " Making note to treat contents as ",
+    ($to_resolve ? 'verbatim/plain' : 'data'), " paragraphs\n";
+  DEBUG > 1 and print STDERR " (Stack now: ", $self->_dump_curr_open(), ")\n";
+
+  push @$curr_open, $para;
+  if(!$dont_ignore or scalar grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Ignoring ignorable =begin\n";
+  } else {
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_start((my $scratch='for'), $para->[1]);
+  }
+
+  return 1;
+}
+
+sub _ponder_end {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+  DEBUG and print STDERR "Ogling '=end $content' directive\n";
+
+  unless(length($content)) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=end' without a target?" . (
+        ( @$curr_open and $curr_open->[-1][0] eq '=for' )
+        ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
+        : ''
+      )
+    );
+    DEBUG and print STDERR "Ignoring targetless =end\n";
+    return 1;
+  }
+  
+  unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=end $content' is invalid.  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content\n";
+    return 1;
+  }
+  
+  unless(@$curr_open and $curr_open->[-1][0] eq '=for') {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=end $content without matching =begin.  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content\n";
+    return 1;
+  }
+  
+  unless($content eq $curr_open->[-1][1]{'target'}) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=end $content doesn't match =begin " 
+      . $curr_open->[-1][1]{'target'}
+      . ".  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content at line $para->[1]{'start_line'}\n";
+    return 1;
+  }
+
+  # Else it's okay to close...
+  if(grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Not firing any event for this =end $content because in an ignored region\n";
+    # And that may be because of this to-be-closed =for region, or some
+    #  other one, but it doesn't matter.
+  } else {
+    $curr_open->[-1][1]{'start_line'} = $para->[1]{'start_line'};
+      # what's that for?
+    
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_end( my $scratch = 'for', $para->[1]);
+  }
+  DEBUG > 1 and print STDERR "Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} because of =end $content\n";
+  pop @$curr_open;
+
+  return 1;
+} 
+
+sub _ponder_doc_end {
+  my ($self,$para,$curr_open,$paras) = @_;
+  if(@$curr_open) { # Deal with things left open
+    DEBUG and print STDERR "Stack is nonempty at end-document: (",
+      $self->_dump_curr_open(), ")\n";
+      
+    DEBUG > 9 and print STDERR "Stack: ", pretty($curr_open), "\n";
+    unshift @$paras, $self->_closers_for_all_curr_open;
+    # Make sure there is exactly one ~end in the parastack, at the end:
+    @$paras = grep $_->[0] ne '~end', @$paras;
+    push @$paras, $para, $para;
+     # We need two -- once for the next cycle where we
+     #  generate errata, and then another to be at the end
+     #  when that loop back around to process the errata.
+    return 1;
+    
+  } else {
+    DEBUG and print STDERR "Okay, stack is empty now.\n";
+  }
+  
+  # Try generating errata section, if applicable
+  unless($self->{'~tried_gen_errata'}) {
+    $self->{'~tried_gen_errata'} = 1;
+    my @extras = $self->_gen_errata();
+    if(@extras) {
+      unshift @$paras, @extras;
+      DEBUG and print STDERR "Generated errata... relooping...\n";
+      return 1;  # I.e., loop around again to process these fake-o paragraphs
+    }
+  }
+  
+  splice @$paras; # Well, that's that for this paragraph buffer.
+  DEBUG and print STDERR "Throwing end-document event.\n";
+
+  $self->_handle_element_end( my $scratch = 'Document' );
+  return 1; # Hasta la byebye
+}
+
+sub _ponder_pod {
+  my ($self,$para,$curr_open,$paras) = @_;
+  $self->whine(
+    $para->[1]{'start_line'},
+    "=pod directives shouldn't be over one line long!  Ignoring all "
+     . (@$para - 2) . " lines of content"
+  ) if @$para > 3;
+
+  # Content ignored unless 'pod_handler' is set
+  if (my $pod_handler = $self->{'pod_handler'}) {
+      my ($line_num, $line) = map $_, $para->[1]{'start_line'}, $para->[2];
+      $line = $line eq '' ? "=pod" : "=pod $line"; # imitate cut_handler output
+      $pod_handler->($line, $line_num, $self);
+  }
+
+  # The surrounding methods set content_seen, so let us remain consistent.
+  # I do not know why it was not here before -- should it not be here?
+  # $self->{'content_seen'} ||= 1;
+
+  return;
+}
+
+sub _ponder_over {
+  my ($self,$para,$curr_open,$paras) = @_;
+  return 1 unless @$paras;
+  my $list_type;
+
+  if($paras->[0][0] eq '=item') { # most common case
+    $list_type = $self->_get_initial_item_type($paras->[0]);
+
+  } elsif($paras->[0][0] eq '=back') {
+    # Ignore empty lists by default
+    if ($self->{'parse_empty_lists'}) {
+      $list_type = 'empty';
+    } else {
+      shift @$paras;
+      return 1;
+    }
+  } elsif($paras->[0][0] eq '~end') {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=over is the last thing in the document?!"
+    );
+    return 1; # But feh, ignore it.
+  } else {
+    $list_type = 'block';
+  }
+  $para->[1]{'~type'} = $list_type;
+  push @$curr_open, $para;
+   # yes, we reuse the paragraph as a stack item
+  
+  my $content = join ' ', splice @$para, 2;
+  my $overness;
+  if($content =~ m/^\s*$/s) {
+    $para->[1]{'indent'} = 4;
+  } elsif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
+    no integer;
+    $para->[1]{'indent'} = $1;
+    if($1 == 0) {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Can't have a 0 in =over $content"
+      );
+      $para->[1]{'indent'} = 4;
+    }
+  } else {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=over should be: '=over' or '=over positive_number'"
+    );
+    $para->[1]{'indent'} = 4;
+  }
+  DEBUG > 1 and print STDERR "=over found of type $list_type\n";
+  
+  $self->{'content_seen'} ||= 1;
+  $self->_handle_element_start((my $scratch = 'over-' . $list_type), $para->[1]);
+
+  return;
+}
+      
+sub _ponder_back {
+  my ($self,$para,$curr_open,$paras) = @_;
+  # TODO: fire off </item-number> or </item-bullet> or </item-text> ??
+
+  my $content = join ' ', splice @$para, 2;
+  if($content =~ m/\S/) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=back doesn't take any parameters, but you said =back $content"
+    );
+  }
+
+  if(@$curr_open and $curr_open->[-1][0] eq '=over') {
+    DEBUG > 1 and print STDERR "=back happily closes matching =over\n";
+    # Expected case: we're closing the most recently opened thing
+    #my $over = pop @$curr_open;
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_end( my $scratch =
+      'over-' . ( (pop @$curr_open)->[1]{'~type'} ), $para->[1]
+    );
+  } else {
+    DEBUG > 1 and print STDERR "=back found without a matching =over.  Stack: (",
+        join(', ', map $_->[0], @$curr_open), ").\n";
+    $self->whine(
+      $para->[1]{'start_line'},
+      '=back without =over'
+    );
+    return 1; # and ignore it
+  }
+}
+
+sub _ponder_item {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $over;
+  unless(@$curr_open and
+         $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=item' outside of any '=over'"
+    );
+    unshift @$paras,
+      ['=over', {'start_line' => $para->[1]{'start_line'}}, ''],
+      $para
+    ;
+    return 1;
+  }
+  
+  
+  my $over_type = $over->[1]{'~type'};
+  
+  if(!$over_type) {
+    # Shouldn't happen1
+    die "Typeless over in stack, starting at line "
+     . $over->[1]{'start_line'};
+
+  } elsif($over_type eq 'block') {
+    unless($curr_open->[-1][1]{'~bitched_about'}) {
+      $curr_open->[-1][1]{'~bitched_about'} = 1;
+      $self->whine(
+        $curr_open->[-1][1]{'start_line'},
+        "You can't have =items (as at line "
+        . $para->[1]{'start_line'}
+        . ") unless the first thing after the =over is an =item"
+      );
+    }
+    # Just turn it into a paragraph and reconsider it
+    $para->[0] = '~Para';
+    unshift @$paras, $para;
+    return 1;
+
+  } elsif($over_type eq 'text') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    if($item_type eq 'text') {
+      # Nothing special needs doing for 'text'
+    } elsif($item_type eq 'number' or $item_type eq 'bullet') {
+      $self->whine(
+          $para->[1]{'start_line'},
+          "Expected text after =item, not a $item_type"
+      );
+      # Undo our clobbering:
+      push @$para, $para->[1]{'~orig_content'};
+      delete $para->[1]{'number'};
+       # Only a PROPER item-number element is allowed
+       #  to have a number attribute.
+    } else {
+      die "Unhandled item type $item_type"; # should never happen
+    }
+    
+    # =item-text thingies don't need any assimilation, it seems.
+
+  } elsif($over_type eq 'number') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    my $expected_value = ++ $curr_open->[-1][1]{'~counter'};
+    
+    if($item_type eq 'bullet') {
+      # Hm, it's not numeric.  Correct for this.
+      $para->[1]{'number'} = $expected_value;
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item $expected_value'"
+      );
+      push @$para, $para->[1]{'~orig_content'};
+        # restore the bullet, blocking the assimilation of next para
+
+    } elsif($item_type eq 'text') {
+      # Hm, it's not numeric.  Correct for this.
+      $para->[1]{'number'} = $expected_value;
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item $expected_value'"
+      );
+      # Text content will still be there and will block next ~Para
+
+    } elsif($item_type ne 'number') {
+      die "Unknown item type $item_type"; # should never happen
+
+    } elsif($expected_value == $para->[1]{'number'}) {
+      DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n";
+      
+    } else {
+      DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'},
+       " instead of the expected value of $expected_value\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You have '=item " . $para->[1]{'number'} .
+        "' instead of the expected '=item $expected_value'"
+      );
+      $para->[1]{'number'} = $expected_value;  # correcting!!
+    }
+      
+    if(@$para == 2) {
+      # For the cases where we /didn't/ push to @$para
+      if($paras->[0][0] eq '~Para') {
+        DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+        push @$para, splice @{shift @$paras},2;
+      } else {
+        DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+        push @$para, '';  # Just so it's not contentless
+      }
+    }
+
+
+  } elsif($over_type eq 'bullet') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    if($item_type eq 'bullet') {
+      # as expected!
+
+      if( $para->[1]{'~_freaky_para_hack'} ) {
+        DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n";
+        push @$para, delete $para->[1]{'~_freaky_para_hack'};
+      }
+
+    } elsif($item_type eq 'number') {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item *'"
+      );
+      push @$para, $para->[1]{'~orig_content'};
+       # and block assimilation of the next paragraph
+      delete $para->[1]{'number'};
+       # Only a PROPER item-number element is allowed
+       #  to have a number attribute.
+    } elsif($item_type eq 'text') {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item *'"
+      );
+       # But doesn't need processing.  But it'll block assimilation
+       #  of the next para.
+    } else {
+      die "Unhandled item type $item_type"; # should never happen
+    }
+
+    if(@$para == 2) {
+      # For the cases where we /didn't/ push to @$para
+      if($paras->[0][0] eq '~Para') {
+        DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+        push @$para, splice @{shift @$paras},2;
+      } else {
+        DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+        push @$para, '';  # Just so it's not contentless
+      }
+    }
+
+  } else {
+    die "Unhandled =over type \"$over_type\"?";
+    # Shouldn't happen!
+  }
+  $para->[0] .= '-' . $over_type;
+
+  return;
+}
+
+sub _ponder_Plain {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving plain treatment...\n";
+  unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
+    or $para->[1]{'~cooked'}
+  ) {
+    push @$para,
+    @{$self->_make_treelet(
+      join("\n", splice(@$para, 2)),
+      $para->[1]{'start_line'}
+    )};
+  }
+  # Empty paragraphs don't need a treelet for any reason I can see.
+  # And precooked paragraphs already have a treelet.
+  return;
+}
+
+sub _ponder_Verbatim {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving verbatim treatment...\n";
+
+  $para->[1]{'xml:space'} = 'preserve';
+
+  my $indent = $self->strip_verbatim_indent;
+  if ($indent && ref $indent eq 'CODE') {
+      my @shifted = (shift @{$para}, shift @{$para});
+      $indent = $indent->($para);
+      unshift @{$para}, @shifted;
+  }
+
+  for(my $i = 2; $i < @$para; $i++) {
+    foreach my $line ($para->[$i]) { # just for aliasing
+      # Strip indentation.
+      $line =~ s/^\Q$indent// if $indent
+          && !($self->{accept_codes} && $self->{accept_codes}{VerbatimFormatted});
+      while( $line =~
+        # Sort of adapted from Text::Tabs -- yes, it's hardwired in that
+        # tabs are at every EIGHTH column.  For portability, it has to be
+        # one setting everywhere, and 8th wins.
+        s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
+      ) {}
+
+      # TODO: whinge about (or otherwise treat) unindented or overlong lines
+
+    }
+  }
+  
+  # Now the VerbatimFormatted hoodoo...
+  if( $self->{'accept_codes'} and
+      $self->{'accept_codes'}{'VerbatimFormatted'}
+  ) {
+    while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para }
+     # Kill any number of terminal newlines
+    $self->_verbatim_format($para);
+  } elsif ($self->{'codes_in_verbatim'}) {
+    push @$para,
+    @{$self->_make_treelet(
+      join("\n", splice(@$para, 2)),
+      $para->[1]{'start_line'}, $para->[1]{'xml:space'}
+    )};
+    $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
+  } else {
+    push @$para, join "\n", splice(@$para, 2) if @$para > 3;
+    $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
+  }
+  return;
+}
+
+sub _ponder_Data {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving data treatment...\n";
+  $para->[1]{'xml:space'} = 'preserve';
+  push @$para, join "\n", splice(@$para, 2) if @$para > 3;
+  return;
+}
+
+
+
+
+###########################################################################
+
+sub _traverse_treelet_bit {  # for use only by the routine above
+  my($self, $name) = splice @_,0,2;
+
+  my $scratch;
+  $self->_handle_element_start(($scratch=$name), shift @_);
+  
+  while (@_) {
+    my $x = shift;
+    if (ref($x)) {
+      &_traverse_treelet_bit($self, @$x);
+    } else {
+      $x .= shift while @_ && !ref($_[0]);
+      $self->_handle_text($x);
+    }
+  }
+  
+  $self->_handle_element_end($scratch=$name);
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _closers_for_all_curr_open {
+  my $self = $_[0];
+  my @closers;
+  foreach my $still_open (@{  $self->{'curr_open'} || return  }) {
+    my @copy = @$still_open;
+    $copy[1] = {%{ $copy[1] }};
+    #$copy[1]{'start_line'} = -1;
+    if($copy[0] eq '=for') {
+      $copy[0] = '=end';
+    } elsif($copy[0] eq '=over') {
+      $self->whine(
+        $still_open->[1]{start_line} ,
+        "=over without closing =back"
+      );
+
+      $copy[0] = '=back';
+    } else {
+      die "I don't know how to auto-close an open $copy[0] region";
+    }
+
+    unless( @copy > 2 ) {
+      push @copy, $copy[1]{'target'};
+      $copy[-1] = '' unless defined $copy[-1];
+       # since =over's don't have targets
+    }
+
+    $copy[1]{'fake-closer'} = 1;
+
+    DEBUG and print STDERR "Queuing up fake-o event: ", pretty(\@copy), "\n";
+    unshift @closers, \@copy;
+  }
+  return @closers;
+}
+
+#--------------------------------------------------------------------------
+
+sub _verbatim_format {
+  my($it, $p) = @_;
+  
+  my $formatting;
+
+  for(my $i = 2; $i < @$p; $i++) { # work backwards over the lines
+    DEBUG and print STDERR "_verbatim_format appends a newline to $i: $p->[$i]\n";
+    $p->[$i] .= "\n";
+     # Unlike with simple Verbatim blocks, we don't end up just doing
+     # a join("\n", ...) on the contents, so we have to append a
+     # newline to ever line, and then nix the last one later.
+  }
+
+  if( DEBUG > 4 ) {
+    print STDERR "<<\n";
+    for(my $i = $#$p; $i >= 2; $i--) { # work backwards over the lines
+      print STDERR "_verbatim_format $i: $p->[$i]";
+    }
+    print STDERR ">>\n";
+  }
+
+  for(my $i = $#$p; $i > 2; $i--) {
+    # work backwards over the lines, except the first (#2)
+    
+    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
+    #        and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$}s;
+     # look at a formatty line preceding a nonformatty one
+    DEBUG > 5 and print STDERR "Scrutinizing line $i: $$p[$i]\n";
+    if($p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
+      DEBUG > 5 and print STDERR "  It's a formatty line.  ",
+       "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n";
+      
+      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
+        DEBUG > 5 and print STDERR "  Previous line is formatty!  Skipping this one.\n";
+        next;
+      } else {
+        DEBUG > 5 and print STDERR "  Previous line is non-formatty!  Yay!\n";
+      }
+    } else {
+      DEBUG > 5 and print STDERR "  It's not a formatty line.  Ignoring\n";
+      next;
+    }
+
+    # A formatty line has to have #: in the first two columns, and uses
+    # "^" to mean bold, "/" to mean underline, and "%" to mean bold italic.
+    # Example:
+    #   What do you want?  i like pie. [or whatever]
+    # #:^^^^^^^^^^^^^^^^^              /////////////         
+    
+
+    DEBUG > 4 and print STDERR "_verbatim_format considers:\n<$p->[$i-1]>\n<$p->[$i]>\n";
+    
+    $formatting = '  ' . $1;
+    $formatting =~ s/\s+$//s; # nix trailing whitespace
+    unless(length $formatting and $p->[$i-1] =~ m/\S/) { # no-op
+      splice @$p,$i,1; # remove this line
+      $i--; # don't consider next line
+      next;
+    }
+
+    if( length($formatting) >= length($p->[$i-1]) ) {
+      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
+    } else {
+      $formatting .= ' ' x (length($p->[$i-1]) - length($formatting));
+    }
+    # Make $formatting and the previous line be exactly the same length,
+    # with $formatting having a " " as the last character.
+ 
+    DEBUG > 4 and print STDERR "Formatting <$formatting>    on <", $p->[$i-1], ">\n";
+
+
+    my @new_line;
+    while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
+      #print STDERR "Format matches $1\n";
+
+      if($2) {
+        #print STDERR "SKIPPING <$2>\n";
+        push @new_line,
+          substr($p->[$i-1], pos($formatting)-length($1), length($1));
+      } else {
+        #print STDERR "SNARING $+\n";
+        push @new_line, [
+          (
+            $3 ? 'VerbatimB'  :
+            $4 ? 'VerbatimI'  :
+            $5 ? 'VerbatimBI' : die("Should never get called")
+          ), {},
+          substr($p->[$i-1], pos($formatting)-length($1), length($1))
+        ];
+        #print STDERR "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
+      }
+    }
+    my @nixed =    
+      splice @$p, $i-1, 2, @new_line; # replace myself and the next line
+    DEBUG > 10 and print STDERR "Nixed count: ", scalar(@nixed), "\n";
+    
+    DEBUG > 6 and print STDERR "New version of the above line is these tokens (",
+      scalar(@new_line), "):",
+      map( ref($_)?"<@$_> ":"<$_>", @new_line ), "\n";
+    $i--; # So the next line we scrutinize is the line before the one
+          #  that we just went and formatted
+  }
+
+  $p->[0] = 'VerbatimFormatted';
+
+  # Collapse adjacent text nodes, just for kicks.
+  for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the last
+    if( !ref($p->[$i]) and !ref($p->[$i + 1]) ) {
+      DEBUG > 5 and print STDERR "_verbatim_format merges {$p->[$i]} and {$p->[$i+1]}\n";
+      $p->[$i] .= splice @$p, $i+1, 1; # merge
+      --$i;  # and back up
+    }
+  }
+
+  # Now look for the last text token, and remove the terminal newline
+  for( my $i = $#$p; $i >= 2; $i-- ) {
+    # work backwards over the tokens, even the first
+    if( !ref($p->[$i]) ) {
+      if($p->[$i] =~ s/\n$//s) {
+        DEBUG > 5 and print STDERR "_verbatim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
+      } else {
+        DEBUG > 5 and print STDERR
+         "No terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n";
+      }
+      last; # we only want the next one
+    }
+  }
+
+  return;
+}
+
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+
+sub _treelet_from_formatting_codes {
+  # Given a paragraph, returns a treelet.  Full of scary tokenizing code.
+  #  Like [ '~Top', {'start_line' => $start_line},
+  #            "I like ",
+  #            [ 'B', {}, "pie" ],
+  #            "!"
+  #       ]
+  
+  my($self, $para, $start_line, $preserve_space) = @_;
+  
+  my $treelet = ['~Top', {'start_line' => $start_line},];
+  
+  unless ($preserve_space || $self->{'preserve_whitespace'}) {
+    $para =~ s/\s+/ /g; # collapse and trim all whitespace first.
+    $para =~ s/ $//;
+    $para =~ s/^ //;
+  }
+  
+  # Only apparent problem the above code is that N<<  >> turns into
+  # N<< >>.  But then, word wrapping does that too!  So don't do that!
+  
+  my @stack;
+  my @lineage = ($treelet);
+  my $raw = ''; # raw content of L<> fcode before splitting/processing
+    # XXX 'raw' is not 100% accurate: all surrounding whitespace is condensed
+    # into just 1 ' '. Is this the regex's doing or 'raw's?
+  my $inL = 0;
+
+  DEBUG > 4 and print STDERR "Paragraph:\n$para\n\n";
+ 
+  # Here begins our frightening tokenizer RE.  The following regex matches
+  # text in four main parts:
+  #
+  #  * Start-codes.  The first alternative matches C< or C<<, the latter
+  #    followed by some whitespace.  $1 will hold the entire start code
+  #    (including any space following a multiple-angle-bracket delimiter),
+  #    and $2 will hold only the additional brackets past the first in a
+  #    multiple-bracket delimiter.  length($2) + 1 will be the number of
+  #    closing brackets we have to find.
+  #
+  #  * Closing brackets.  Match some amount of whitespace followed by
+  #    multiple close brackets.  The logic to see if this closes anything
+  #    is down below.  Note that in order to parse C<<  >> correctly, we
+  #    have to use look-behind (?<=\s\s), since the match of the starting
+  #    code will have consumed the whitespace.
+  #
+  #  * A single closing bracket, to close a simple code like C<>.
+  #
+  #  * Something that isn't a start or end code.  We have to be careful
+  #    about accepting whitespace, since perlpodspec says that any whitespace
+  #    before a multiple-bracket closing delimiter should be ignored.
+  #
+  while($para =~
+    m/\G
+      (?:
+        # Match starting codes, including the whitespace following a
+        # multiple-delimiter start code.  $1 gets the whole start code and
+        # $2 gets all but one of the <s in the multiple-bracket case.
+        ([A-Z]<(?:(<+)\s+)?)
+        |
+        # Match multiple-bracket end codes.  $3 gets the whitespace that
+        # should be discarded before an end bracket but kept in other cases
+        # and $4 gets the end brackets themselves.
+        (\s+|(?<=\s\s))(>{2,})
+        |
+        (\s?>)          # $5: simple end-codes
+        |
+        (               # $6: stuff containing no start-codes or end-codes
+          (?:
+            [^A-Z\s>]
+            |
+            (?:
+              [A-Z](?!<)
+            )
+            |
+            # whitespace is ok, but we don't want to eat the whitespace before
+            # a multiple-bracket end code.
+            # NOTE: we may still have problems with e.g. S<<    >>
+            (?:
+              \s(?!\s*>{2,})
+            )
+          )+
+        )
+      )
+    /xgo
+  ) {
+    DEBUG > 4 and print STDERR "\nParagraphic tokenstack = (@stack)\n";
+    if(defined $1) {
+      if(defined $2) {
+        DEBUG > 3 and print STDERR "Found complex start-text code \"$1\"\n";
+        push @stack, length($2) + 1; 
+          # length of the necessary complex end-code string
+      } else {
+        DEBUG > 3 and print STDERR "Found simple start-text code \"$1\"\n";
+        push @stack, 0;  # signal that we're looking for simple
+      }
+      push @lineage, [ substr($1,0,1), {}, ];  # new node object
+      push @{ $lineage[-2] }, $lineage[-1];
+      if ('L' eq substr($1,0,1)) {
+        $raw = $inL ? $raw.$1 : ''; # reset raw content accumulator
+        $inL = 1;
+      } else {
+        $raw .= $1 if $inL;
+      }
+
+    } elsif(defined $4) {
+      DEBUG > 3 and print STDERR "Found apparent complex end-text code \"$3$4\"\n";
+      # This is where it gets messy...
+      if(! @stack) {
+        # We saw " >>>>" but needed nothing.  This is ALL just stuff then.
+        DEBUG > 4 and print STDERR " But it's really just stuff.\n";
+        push @{ $lineage[-1] }, $3, $4;
+        next;
+      } elsif(!$stack[-1]) {
+        # We saw " >>>>" but needed only ">".  Back pos up.
+        DEBUG > 4 and print STDERR " And that's more than we needed to close simple.\n";
+        push @{ $lineage[-1] }, $3; # That was a for-real space, too.
+        pos($para) = pos($para) - length($4) + 1;
+      } elsif($stack[-1] == length($4)) {
+        # We found " >>>>", and it was exactly what we needed.  Commonest case.
+        DEBUG > 4 and print STDERR " And that's exactly what we needed to close complex.\n";
+      } elsif($stack[-1] < length($4)) {
+        # We saw " >>>>" but needed only " >>".  Back pos up.
+        DEBUG > 4 and print STDERR " And that's more than we needed to close complex.\n";
+        pos($para) = pos($para) - length($4) + $stack[-1];
+      } else {
+        # We saw " >>>>" but needed " >>>>>>".  So this is all just stuff!
+        DEBUG > 4 and print STDERR " But it's really just stuff, because we needed more.\n";
+        push @{ $lineage[-1] }, $3, $4;
+        next;
+      }
+      #print STDERR "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n";
+
+      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
+      # Keep the element from being childless
+      
+      pop @stack;
+      pop @lineage;
+
+      unless (@stack) { # not in an L if there are no open fcodes
+        $inL = 0;
+        if (ref $lineage[-1][-1] && $lineage[-1][-1][0] eq 'L') {
+          $lineage[-1][-1][1]{'raw'} = $raw
+        }
+      }
+      $raw .= $3.$4 if $inL;
+      
+    } elsif(defined $5) {
+      DEBUG > 3 and print STDERR "Found apparent simple end-text code \"$5\"\n";
+
+      if(@stack and ! $stack[-1]) {
+        # We're indeed expecting a simple end-code
+        DEBUG > 4 and print STDERR " It's indeed an end-code.\n";
+
+        if(length($5) == 2) { # There was a space there: " >"
+          push @{ $lineage[-1] }, ' ';
+        } elsif( 2 == @{ $lineage[-1] } ) { # Closing a childless element
+          push @{ $lineage[-1] }, ''; # keep it from being really childless
+        }
+
+        pop @stack;
+        pop @lineage;
+      } else {
+        DEBUG > 4 and print STDERR " It's just stuff.\n";
+        push @{ $lineage[-1] }, $5;
+      }
+
+      unless (@stack) { # not in an L if there are no open fcodes
+        $inL = 0;
+        if (ref $lineage[-1][-1] && $lineage[-1][-1][0] eq 'L') {
+          $lineage[-1][-1][1]{'raw'} = $raw
+        }
+      }
+      $raw .= $5 if $inL;
+
+    } elsif(defined $6) {
+      DEBUG > 3 and print STDERR "Found stuff \"$6\"\n";
+      push @{ $lineage[-1] }, $6;
+      $raw .= $6 if $inL;
+        # XXX does not capture multiplace whitespaces -- 'raw' ends up with
+        #     at most 1 leading/trailing whitespace, why not all of it?
+
+    } else {
+      # should never ever ever ever happen
+      DEBUG and print STDERR "AYYAYAAAAA at line ", __LINE__, "\n";
+      die "SPORK 512512!";
+    }
+  }
+
+  if(@stack) { # Uhoh, some sequences weren't closed.
+    my $x= "...";
+    while(@stack) {
+      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
+      # Hmmmmm!
+
+      my $code         = (pop @lineage)->[0];
+      my $ender_length =  pop @stack;
+      if($ender_length) {
+        --$ender_length;
+        $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
+      } else {
+        $x = $code . "<$x>";
+      }
+    }
+    DEBUG > 1 and print STDERR "Unterminated $x sequence\n";
+    $self->whine($start_line,
+      "Unterminated $x sequence",
+    );
+  }
+
+  return $treelet;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub text_content_of_treelet {  # method: $parser->text_content_of_treelet($lol)
+  return stringify_lol($_[1]);
+}
+
+sub stringify_lol {  # function: stringify_lol($lol)
+  my $string_form = '';
+  _stringify_lol( $_[0] => \$string_form );
+  return $string_form;
+}
+
+sub _stringify_lol {  # the real recursor
+  my($lol, $to) = @_;
+  for(my $i = 2; $i < @$lol; ++$i) {
+    if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
+      _stringify_lol( $lol->[$i], $to);  # recurse!
+    } else {
+      $$to .= $lol->[$i];
+    }
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _dump_curr_open { # return a string representation of the stack
+  my $curr_open = $_[0]{'curr_open'};
+
+  return '[empty]' unless @$curr_open;
+  return join '; ',
+    map {;
+           ($_->[0] eq '=for')
+             ? ( ($_->[1]{'~really'} || '=over')
+               . ' ' . $_->[1]{'target'})
+             : $_->[0]
+        }
+    @$curr_open
+  ;
+}
+
+###########################################################################
+my %pretty_form = (
+  "\a" => '\a', # ding!
+  "\b" => '\b', # BS
+  "\e" => '\e', # ESC
+  "\f" => '\f', # FF
+  "\t" => '\t', # tab
+  "\cm" => '\cm',
+  "\cj" => '\cj',
+  "\n" => '\n', # probably overrides one of either \cm or \cj
+  '"' => '\"',
+  '\\' => '\\\\',
+  '$' => '\\$',
+  '@' => '\\@',
+  '%' => '\\%',
+  '#' => '\\#',
+);
+
+sub pretty { # adopted from Class::Classless
+  # Not the most brilliant routine, but passable.
+  # Don't give it a cyclic data structure!
+  my @stuff = @_; # copy
+  my $x;
+  my $out =
+    # join ",\n" .
+    join ", ",
+    map {;
+    if(!defined($_)) {
+      "undef";
+    } elsif(ref($_) eq 'ARRAY' or ref($_) eq 'Pod::Simple::LinkSection') {
+      $x = "[ " . pretty(@$_) . " ]" ;
+      $x;
+    } elsif(ref($_) eq 'SCALAR') {
+      $x = "\\" . pretty($$_) ;
+      $x;
+    } elsif(ref($_) eq 'HASH') {
+      my $hr = $_;
+      $x = "{" . join(", ",
+        map(pretty($_) . '=>' . pretty($hr->{$_}),
+            sort keys %$hr ) ) . "}" ;
+      $x;
+    } elsif(!length($_)) { q{''} # empty string
+    } elsif(
+      $_ eq '0' # very common case
+      or(
+         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
+         and $_ ne '-0' # the strange case that RE lets thru
+      )
+    ) { $_;
+    } else {
+        # Yes, explicitly name every character desired. There are shorcuts one
+        # could make, but I (Karl Williamson) was afraid that some Perl
+        # releases would have bugs in some of them. For example [A-Z] works
+        # even on EBCDIC platforms to match exactly the 26 uppercase English
+        # letters, but I don't know if it has always worked without bugs. It
+        # seemed safest just to list the characters.
+        # s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
+        s<([^ !#'()*+,\-./0123456789:;\<=\>?ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\]^_`abcdefghijklmnopqrstuvwxyz{|}~])>
+         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
+         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
+      qq{"$_"};
+    }
+  } @stuff;
+  # $out =~ s/\n */ /g if length($out) < 75;
+  return $out;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+# A rather unsubtle method of blowing away all the state information
+# from a parser object so it can be reused. Provided as a utility for
+# backward compatibility in Pod::Man, etc. but not recommended for
+# general use.
+
+sub reinit {
+  my $self = shift;
+  foreach (qw(source_dead source_filename doc_has_started
+start_of_pod_block content_seen last_was_blank paras curr_open
+line_count pod_para_count in_pod ~tried_gen_errata all_errata errata errors_seen
+Title)) {
+
+    delete $self->{$_};
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+require 5;
+package Pod::Simple::DumpAsText;
+$VERSION = '3.35';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+
+use Carp ();
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_codes('VerbatimFormatted');
+  $new->keep_encoding_directive(1);
+  return $new;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  
+  print $fh   '  ' x ($_[0]{'indent'} || 0),  "++", $_[1], "\n";
+  $_[0]{'indent'}++;
+  while(($key,$value) = each %{$_[2]}) {
+    unless($key =~ m/^~/s) {
+      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+      _perly_escape($key);
+      _perly_escape($value);
+      printf $fh qq{%s \\ "%s" => "%s"\n},
+        '  ' x ($_[0]{'indent'} || 0), $key, $value;
+    }
+  }
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  
+  if(length $_[1]) {
+    my $indent = '  ' x $_[0]{'indent'};
+    my $text = $_[1];
+    _perly_escape($text);
+    $text =~  # A not-totally-brilliant wrapping algorithm:
+      s/(
+         [^\n]{55}         # Snare some characters from a line
+         [^\n\ ]{0,50}     #  and finish any current word
+        )
+        \ {1,10}(?!\n)     # capture some spaces not at line-end
+       /$1"\n$indent . "/gx     # => line-break here
+    ;
+    
+    print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}}
+   '  ' x --$_[0]{'indent'}, "--", $_[1], "\n";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _perly_escape {
+  foreach my $x (@_) {
+    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
+    # Escape things very cautiously:
+    $x =~ s/([^-\n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+
+require 5;
+package Pod::Simple::Methody;
+use strict;
+use Pod::Simple ();
+use vars qw(@ISA $VERSION);
+$VERSION = '3.35';
+@ISA = ('Pod::Simple');
+
+# Yes, we could use named variables, but I want this to be impose
+# as little an additional performance hit as possible.
+
+sub _handle_element_start {
+  $_[1] =~ tr/-:./__/;
+  ( $_[0]->can( 'start_' . $_[1] )
+    || return
+  )->(
+    $_[0], $_[2]
+  );
+}
+
+sub _handle_text {
+  ( $_[0]->can( 'handle_text' )
+    || return
+  )->(
+    @_
+  );
+}
+
+sub _handle_element_end {
+  $_[1] =~ tr/-:./__/;
+  ( $_[0]->can( 'end_' . $_[1] )
+    || return
+  )->(
+    $_[0], $_[2]
+  );
+}
+
+1;
+
+
+__END__
+
+
+package Pod::Simple::XHTML;
+use strict;
+use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
+$VERSION = '3.35';
+use Pod::Simple::Methody ();
+@ISA = ('Pod::Simple::Methody');
+
+BEGIN {
+  $HAS_HTML_ENTITIES = eval "require HTML::Entities; 1";
+}
+
+my %entities = (
+  q{>} => 'gt',
+  q{<} => 'lt',
+  q{'} => '#39',
+  q{"} => 'quot',
+  q{&} => 'amp',
+);
+
+sub encode_entities {
+  my $self = shift;
+  my $ents = $self->html_encode_chars;
+  return HTML::Entities::encode_entities( $_[0], $ents ) if $HAS_HTML_ENTITIES;
+  if (defined $ents) {
+      $ents =~ s,(?<!\\)([]/]),\\$1,g;
+      $ents =~ s,(?<!\\)\\\z,\\\\,;
+  } else {
+      $ents = join '', keys %entities;
+  }
+  my $str = $_[0];
+  $str =~ s/([$ents])/'&' . ($entities{$1} || sprintf '#x%X', ord $1) . ';'/ge;
+  return $str;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+__PACKAGE__->_accessorize(
+ 'perldoc_url_prefix',
+ 'perldoc_url_postfix',
+ 'man_url_prefix',
+ 'man_url_postfix',
+ 'title_prefix',  'title_postfix',
+ 'html_css',
+ 'html_javascript',
+ 'html_doctype',
+ 'html_charset',
+ 'html_encode_chars',
+ 'html_h_level',
+ 'title', # Used internally for the title extracted from the content
+ 'default_title',
+ 'force_title',
+ 'html_header',
+ 'html_footer',
+ 'index',
+ 'anchor_items',
+ 'backlink',
+ 'batch_mode', # whether we're in batch mode
+ 'batch_mode_current_level',
+    # When in batch mode, how deep the current module is: 1 for "LWP",
+    #  2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->perldoc_url_prefix('http://search.cpan.org/perldoc?');
+  $new->man_url_prefix('http://man.he.net/man');
+  $new->html_charset('ISO-8859-1');
+  $new->nix_X_codes(1);
+  $new->{'scratch'} = '';
+  $new->{'to_index'} = [];
+  $new->{'output'} = [];
+  $new->{'saved'} = [];
+  $new->{'ids'} = { '_podtop_' => 1 }; # used in <body>
+  $new->{'in_li'} = [];
+
+  $new->{'__region_targets'}  = [];
+  $new->{'__literal_targets'} = {};
+  $new->accept_targets_as_html( 'html', 'HTML' );
+
+  return $new;
+}
+
+sub html_header_tags {
+    my $self = shift;
+    return $self->{html_header_tags} = shift if @_;
+    return $self->{html_header_tags}
+        ||= '<meta http-equiv="Content-Type" content="text/html; charset='
+            . $self->html_charset . '" />';
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+sub __in_literal_xhtml_region {
+    return unless @{ $_[0]{__region_targets} };
+    my $target = $_[0]{__region_targets}[-1];
+    return $_[0]{__literal_targets}{ $target };
+}
+
+sub accept_targets_as_html {
+    my ($self, @targets) = @_;
+    $self->accept_targets(@targets);
+    $self->{__literal_targets}{$_} = 1 for @targets;
+}
+
+sub handle_text {
+    # escape special characters in HTML (<, >, &, etc)
+    my $text = $_[0]->__in_literal_xhtml_region
+        ? $_[1]
+        : $_[0]->encode_entities( $_[1] );
+
+    if ($_[0]{'in_code'} && @{$_[0]{'in_code'}}) {
+        # Intentionally use the raw text in $_[1], even if we're not in a
+        # literal xhtml region, since handle_code calls encode_entities.
+        $_[0]->handle_code( $_[1], $_[0]{'in_code'}[-1] );
+    } else {
+        if ($_[0]->{in_for}) {
+            my $newlines = $_[0]->__in_literal_xhtml_region ? "\n\n" : '';
+            if ($_[0]->{started_for}) {
+                if ($text =~ /\S/) {
+                    delete $_[0]->{started_for};
+                    $_[0]{'scratch'} .= $text . $newlines;
+                }
+                # Otherwise, append nothing until we have something to append.
+            } else {
+                # The parser sometimes preserves newlines and sometimes doesn't!
+                $text =~ s/\n\z//;
+                $_[0]{'scratch'} .= $text . $newlines;
+            }
+        } else {
+            # Just plain text.
+            $_[0]{'scratch'} .= $text;
+        }
+    }
+
+    $_[0]{htext} .= $text if $_[0]{'in_head'};
+}
+
+sub start_code {
+    $_[0]{'scratch'} .= '<code>';
+}
+
+sub end_code {
+    $_[0]{'scratch'} .= '</code>';
+}
+
+sub handle_code {
+    $_[0]{'scratch'} .= $_[0]->encode_entities( $_[1] );
+}
+
+sub start_Para {
+    $_[0]{'scratch'} .= '<p>';
+}
+
+sub start_Verbatim {
+    $_[0]{'scratch'} = '<pre>';
+    push(@{$_[0]{'in_code'}}, 'Verbatim');
+    $_[0]->start_code($_[0]{'in_code'}[-1]);
+}
+
+sub start_head1 {  $_[0]{'in_head'} = 1; $_[0]{htext} = ''; }
+sub start_head2 {  $_[0]{'in_head'} = 2; $_[0]{htext} = ''; }
+sub start_head3 {  $_[0]{'in_head'} = 3; $_[0]{htext} = ''; }
+sub start_head4 {  $_[0]{'in_head'} = 4; $_[0]{htext} = ''; }
+
+sub start_item_number {
+    $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}});
+    $_[0]{'scratch'} .= '<li><p>';
+    push @{$_[0]{'in_li'}}, 1;
+}
+
+sub start_item_bullet {
+    $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}});
+    $_[0]{'scratch'} .= '<li><p>';
+    push @{$_[0]{'in_li'}}, 1;
+}
+
+sub start_item_text   {
+    # see end_item_text
+}
+
+sub start_over_bullet { $_[0]{'scratch'} = '<ul>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit }
+sub start_over_block  { $_[0]{'scratch'} = '<ul>'; $_[0]->emit }
+sub start_over_number { $_[0]{'scratch'} = '<ol>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit }
+sub start_over_text   {
+    $_[0]{'scratch'} = '<dl>';
+    $_[0]{'dl_level'}++;
+    $_[0]{'in_dd'} ||= [];
+    $_[0]->emit
+}
+
+sub end_over_block  { $_[0]{'scratch'} .= '</ul>'; $_[0]->emit }
+
+sub end_over_number   {
+    $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} );
+    $_[0]{'scratch'} .= '</ol>';
+    pop @{$_[0]{'in_li'}};
+    $_[0]->emit;
+}
+
+sub end_over_bullet   {
+    $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} );
+    $_[0]{'scratch'} .= '</ul>';
+    pop @{$_[0]{'in_li'}};
+    $_[0]->emit;
+}
+
+sub end_over_text   {
+    if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) {
+        $_[0]{'scratch'} = "</dd>\n";
+        $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0;
+    }
+    $_[0]{'scratch'} .= '</dl>';
+    $_[0]{'dl_level'}--;
+    $_[0]->emit;
+}
+
+# . . . . . Now the actual formatters:
+
+sub end_Para     { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+sub end_Verbatim {
+    $_[0]->end_code(pop(@{$_[0]->{'in_code'}}));
+    $_[0]{'scratch'} .= '</pre>';
+    $_[0]->emit;
+}
+
+sub _end_head {
+    my $h = delete $_[0]{in_head};
+
+    my $add = $_[0]->html_h_level;
+    $add = 1 unless defined $add;
+    $h += $add - 1;
+
+    my $id = $_[0]->idify($_[0]{htext});
+    my $text = $_[0]{scratch};
+    $_[0]{'scratch'} = $_[0]->backlink && ($h - $add == 0)
+                         # backlinks enabled && =head1
+                         ? qq{<a href="#_podtop_"><h$h id="$id">$text</h$h></a>}
+                         : qq{<h$h id="$id">$text</h$h>};
+    $_[0]->emit;
+    push @{ $_[0]{'to_index'} }, [$h, $id, delete $_[0]{'htext'}];
+}
+
+sub end_head1       { shift->_end_head(@_); }
+sub end_head2       { shift->_end_head(@_); }
+sub end_head3       { shift->_end_head(@_); }
+sub end_head4       { shift->_end_head(@_); }
+
+sub end_item_bullet { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+sub end_item_number { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+
+sub end_item_text   {
+    # idify and anchor =item content if wanted
+    my $dt_id = $_[0]{'anchor_items'} 
+                 ? ' id="'. $_[0]->idify($_[0]{'scratch'}) .'"'
+                 : '';
+
+    # reset scratch
+    my $text = $_[0]{scratch};
+    $_[0]{'scratch'} = '';
+
+    if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) {
+        $_[0]{'scratch'} = "</dd>\n";
+        $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0;
+    }
+
+    $_[0]{'scratch'} .= qq{<dt$dt_id>$text</dt>\n<dd>};
+    $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 1;
+    $_[0]->emit;
+}
+
+# This handles =begin and =for blocks of all kinds.
+sub start_for {
+  my ($self, $flags) = @_;
+
+  push @{ $self->{__region_targets} }, $flags->{target_matching};
+  $self->{started_for} = 1;
+  $self->{in_for} = 1;
+
+  unless ($self->__in_literal_xhtml_region) {
+    $self->{scratch} .= '<div';
+    $self->{scratch} .= qq( class="$flags->{target}") if $flags->{target};
+    $self->{scratch} .= ">\n\n";
+  }
+}
+
+sub end_for {
+  my ($self) = @_;
+  delete $self->{started_for};
+  delete $self->{in_for};
+
+  if ($self->__in_literal_xhtml_region) {
+    # Remove trailine newlines.
+    $self->{'scratch'} =~ s/\s+\z//s;
+  } else {
+    $self->{'scratch'} .= '</div>';
+  }
+
+  pop @{ $self->{__region_targets} };
+  $self->emit;
+}
+
+sub start_Document {
+  my ($self) = @_;
+  if (defined $self->html_header) {
+    $self->{'scratch'} .= $self->html_header;
+    $self->emit unless $self->html_header eq "";
+  } else {
+    my ($doctype, $title, $metatags, $bodyid);
+    $doctype = $self->html_doctype || '';
+    $title = $self->force_title || $self->title || $self->default_title || '';
+    $metatags = $self->html_header_tags || '';
+    if (my $css = $self->html_css) {
+        if ($css !~ /<link/) {
+            # this is required to be compatible with Pod::Simple::BatchHTML
+            $metatags .= '<link rel="stylesheet" href="'
+                . $self->encode_entities($css) . '" type="text/css" />';
+        } else {
+            $metatags .= $css;
+        }
+    }
+    if ($self->html_javascript) {
+      $metatags .= qq{\n<script type="text/javascript" src="} .
+                    $self->html_javascript . '"></script>';
+    }
+    $bodyid = $self->backlink ? ' id="_podtop_"' : '';
+    $self->{'scratch'} .= <<"HTML";
+$doctype
+<html>
+<head>
+<title>$title</title>
+$metatags
+</head>
+<body$bodyid>
+HTML
+    $self->emit;
+  }
+}
+
+sub end_Document   {
+  my ($self) = @_;
+  my $to_index = $self->{'to_index'};
+  if ($self->index && @{ $to_index } ) {
+      my @out;
+      my $level  = 0;
+      my $indent = -1;
+      my $space  = '';
+      my $id     = ' id="index"';
+
+      for my $h (@{ $to_index }, [0]) {
+          my $target_level = $h->[0];
+          # Get to target_level by opening or closing ULs
+          if ($level == $target_level) {
+              $out[-1] .= '</li>';
+          } elsif ($level > $target_level) {
+              $out[-1] .= '</li>' if $out[-1] =~ /^\s+<li>/;
+              while ($level > $target_level) {
+                  --$level;
+                  push @out, ('  ' x --$indent) . '</li>' if @out && $out[-1] =~ m{^\s+<\/ul};
+                  push @out, ('  ' x --$indent) . '</ul>';
+              }
+              push @out, ('  ' x --$indent) . '</li>' if $level;
+          } else {
+              while ($level < $target_level) {
+                  ++$level;
+                  push @out, ('  ' x ++$indent) . '<li>' if @out && $out[-1]=~ /^\s*<ul/;
+                  push @out, ('  ' x ++$indent) . "<ul$id>";
+                  $id = '';
+              }
+              ++$indent;
+          }
+
+          next unless $level;
+          $space = '  '  x $indent;
+          push @out, sprintf '%s<li><a href="#%s">%s</a>',
+              $space, $h->[1], $h->[2];
+      }
+      # Splice the index in between the HTML headers and the first element.
+      my $offset = defined $self->html_header ? $self->html_header eq '' ? 0 : 1 : 1;
+      splice @{ $self->{'output'} }, $offset, 0, join "\n", @out;
+  }
+
+  if (defined $self->html_footer) {
+    $self->{'scratch'} .= $self->html_footer;
+    $self->emit unless $self->html_footer eq "";
+  } else {
+    $self->{'scratch'} .= "</body>\n</html>";
+    $self->emit;
+  }
+
+  if ($self->index) {
+      print {$self->{'output_fh'}} join ("\n\n", @{ $self->{'output'} }), "\n\n";
+      @{$self->{'output'}} = ();
+  }
+
+}
+
+# Handling code tags
+sub start_B { $_[0]{'scratch'} .= '<b>' }
+sub end_B   { $_[0]{'scratch'} .= '</b>' }
+
+sub start_C { push(@{$_[0]{'in_code'}}, 'C'); $_[0]->start_code($_[0]{'in_code'}[-1]); }
+sub end_C   { $_[0]->end_code(pop(@{$_[0]{'in_code'}})); }
+
+sub start_F { $_[0]{'scratch'} .= '<i>' }
+sub end_F   { $_[0]{'scratch'} .= '</i>' }
+
+sub start_I { $_[0]{'scratch'} .= '<i>' }
+sub end_I   { $_[0]{'scratch'} .= '</i>' }
+
+sub start_L {
+  my ($self, $flags) = @_;
+    my ($type, $to, $section) = @{$flags}{'type', 'to', 'section'};
+    my $url = $self->encode_entities(
+        $type eq 'url' ? $to
+            : $type eq 'pod' ? $self->resolve_pod_page_link($to, $section)
+            : $type eq 'man' ? $self->resolve_man_page_link($to, $section)
+            :                  undef
+    );
+
+    # If it's an unknown type, use an attribute-less <a> like HTML.pm.
+    $self->{'scratch'} .= '<a' . ($url ? ' href="'. $url . '">' : '>');
+}
+
+sub end_L   { $_[0]{'scratch'} .= '</a>' }
+
+sub start_S { $_[0]{'scratch'} .= '<span style="white-space: nowrap;">' }
+sub end_S   { $_[0]{'scratch'} .= '</span>' }
+
+sub emit {
+  my($self) = @_;
+  if ($self->index) {
+      push @{ $self->{'output'} }, $self->{'scratch'};
+  } else {
+      print {$self->{'output_fh'}} $self->{'scratch'}, "\n\n";
+  }
+  $self->{'scratch'} = '';
+  return;
+}
+
+
+sub resolve_pod_page_link {
+    my ($self, $to, $section) = @_;
+    return undef unless defined $to || defined $section;
+    if (defined $section) {
+        $section = '#' . $self->idify($self->encode_entities($section), 1);
+        return $section unless defined $to;
+    } else {
+        $section = ''
+    }
+
+    return ($self->perldoc_url_prefix || '')
+        . $self->encode_entities($to) . $section
+        . ($self->perldoc_url_postfix || '');
+}
+
+
+sub resolve_man_page_link {
+    my ($self, $to, $section) = @_;
+    return undef unless defined $to;
+    my ($page, $part) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/;
+    return undef unless $page;
+    return ($self->man_url_prefix || '')
+        . ($part || 1) . "/" . $self->encode_entities($page)
+        . ($self->man_url_postfix || '');
+
+}
+
+
+sub idify {
+    my ($self, $t, $not_unique) = @_;
+    for ($t) {
+        s/<[^>]+>//g;            # Strip HTML.
+        s/&[^;]+;//g;            # Strip entities.
+        s/^\s+//; s/\s+$//;      # Strip white space.
+        s/^([^a-zA-Z]+)$/pod$1/; # Prepend "pod" if no valid chars.
+        s/^[^a-zA-Z]+//;         # First char must be a letter.
+        s/[^-a-zA-Z0-9_:.]+/-/g; # All other chars must be valid.
+        s/[-:.]+$//;             # Strip trailing punctuation.
+    }
+    return $t if $not_unique;
+    my $i = '';
+    $i++ while $self->{ids}{"$t$i"}++;
+    return "$t$i";
+}
+
+
+sub batch_mode_page_object_init {
+  my ($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_;
+  $self->batch_mode(1);
+  $self->batch_mode_current_level($depth);
+  return $self;
+}
+
+sub html_header_after_title {
+}
+
+
+1;
+
+__END__
+
+
+require 5;
+package Pod::Simple::HTMLBatch;
+use strict;
+use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
+ $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
+);
+$VERSION = '3.35';
+@ISA = ();  # Yup, we're NOT a subclass of Pod::Simple::HTML!
+
+# TODO: nocontents stylesheets. Strike some of the color variations?
+
+use Pod::Simple::HTML ();
+BEGIN {*esc = \&Pod::Simple::HTML::esc }
+use File::Spec ();
+
+use Pod::Simple::Search;
+$SEARCH_CLASS ||= 'Pod::Simple::Search';
+
+BEGIN {
+  if(defined &DEBUG) { } # no-op
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
+  else { *DEBUG = sub () {0}; }
+}
+
+$SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i;
+# flag to occasionally sleep for $SLEEPY - 1 seconds.
+
+$HTML_RENDER_CLASS ||= "Pod::Simple::HTML";
+
+#
+# Methods beginning with "_" are particularly internal and possibly ugly.
+#
+
+Pod::Simple::_accessorize( __PACKAGE__,
+ 'verbose', # how verbose to be during batch conversion
+ 'html_render_class', # what class to use to render
+ 'search_class', # what to use to search for POD documents
+ 'contents_file', # If set, should be the name of a file (in current directory)
+                  # to write the list of all modules to
+ 'index', # will set $htmlpage->index(...) to this (true or false)
+ 'progress', # progress object
+ 'contents_page_start',  'contents_page_end',
+
+ 'css_flurry', '_css_wad', 'javascript_flurry', '_javascript_wad',
+ 'no_contents_links', # set to true to suppress automatic adding of << links.
+ '_contents',
+);
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+# Just so we can run from the command line more easily
+sub go {
+  @ARGV == 2 or die sprintf(
+    "Usage: perl -M%s -e %s:go indirs outdir\n  (or use \"\@INC\" for indirs)\n",
+    __PACKAGE__, __PACKAGE__, 
+  );
+  
+  if(defined($ARGV[1]) and length($ARGV[1])) {
+    my $d = $ARGV[1];
+    -e $d or die "I see no output directory named \"$d\"\nAborting";
+    -d $d or die "But \"$d\" isn't a directory!\nAborting";
+    -w $d or die "Directory \"$d\" isn't writeable!\nAborting";
+  }
+  
+  __PACKAGE__->batch_convert(@ARGV);
+}
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+sub new {
+  my $new = bless {}, ref($_[0]) || $_[0];
+  $new->html_render_class($HTML_RENDER_CLASS);
+  $new->search_class($SEARCH_CLASS);
+  $new->verbose(1 + DEBUG);
+  $new->_contents([]);
+  
+  $new->index(1);
+
+  $new->       _css_wad([]);         $new->css_flurry(1);
+  $new->_javascript_wad([]);  $new->javascript_flurry(1);
+  
+  $new->contents_file(
+    'index' . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION)
+  );
+  
+  $new->contents_page_start( join "\n", grep $_,
+    $Pod::Simple::HTML::Doctype_decl,
+    "<html><head>",
+    "<title>Perl Documentation</title>",
+    $Pod::Simple::HTML::Content_decl,
+    "</head>",
+    "\n<body class='contentspage'>\n<h1>Perl Documentation</h1>\n"
+  ); # override if you need a different title
+  
+  
+  $new->contents_page_end( sprintf(
+    "\n\n<p class='contentsfooty'>Generated by %s v%s under Perl v%s\n<br >At %s GMT, which is %s local time.</p>\n\n</body></html>\n",
+    esc(
+      ref($new),
+      eval {$new->VERSION} || $VERSION,
+      $], scalar(gmtime), scalar(localtime), 
+  )));
+
+  return $new;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub muse {
+  my $self = shift;
+  if($self->verbose) {
+    print 'T+', int(time() - $self->{'_batch_start_time'}), "s: ", @_, "\n";
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub batch_convert {
+  my($self, $dirs, $outdir) = @_;
+  $self ||= __PACKAGE__; # tolerate being called as an optionless function
+  $self = $self->new unless ref $self; # tolerate being used as a class method
+
+  if(!defined($dirs)  or  $dirs eq ''  or  $dirs eq '@INC' ) {
+    $dirs = '';
+  } elsif(ref $dirs) {
+    # OK, it's an explicit set of dirs to scan, specified as an arrayref.
+  } else {
+    # OK, it's an explicit set of dirs to scan, specified as a
+    #  string like "/thing:/also:/whatever/perl" (":"-delim, as usual)
+    #  or, under MSWin, like "c:/thing;d:/also;c:/whatever/perl" (";"-delim!)
+    require Config;
+    my $ps = quotemeta( $Config::Config{'path_sep'} || ":" );
+    $dirs = [ grep length($_), split qr/$ps/, $dirs ];
+  }
+
+  $outdir = $self->filespecsys->curdir
+   unless defined $outdir and length $outdir;
+
+  $self->_batch_convert_main($dirs, $outdir);
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _batch_convert_main {
+  my($self, $dirs, $outdir) = @_;
+  # $dirs is either false, or an arrayref.    
+  # $outdir is a pathspec.
+  
+  $self->{'_batch_start_time'} ||= time();
+
+  $self->muse( "= ", scalar(localtime) );
+  $self->muse( "Starting batch conversion to \"$outdir\"" );
+
+  my $progress = $self->progress;
+  if(!$progress and $self->verbose > 0 and $self->verbose() <= 5) {
+    require Pod::Simple::Progress;
+    $progress = Pod::Simple::Progress->new(
+        ($self->verbose  < 2) ? () # Default omission-delay
+      : ($self->verbose == 2) ? 1  # Reduce the omission-delay
+                              : 0  # Eliminate the omission-delay
+    );
+    $self->progress($progress);
+  }
+  
+  if($dirs) {
+    $self->muse(scalar(@$dirs), " dirs to scan: @$dirs");
+  } else {
+    $self->muse("Scanning \@INC.  This could take a minute or two.");
+  }
+  my $mod2path = $self->find_all_pods($dirs ? $dirs : ());
+  $self->muse("Done scanning.");
+
+  my $total = keys %$mod2path;
+  unless($total) {
+    $self->muse("No pod found.  Aborting batch conversion.\n");
+    return $self;
+  }
+
+  $progress and $progress->goal($total);
+  $self->muse("Now converting pod files to HTML.",
+    ($total > 25) ? "  This will take a while more." : ()
+  );
+
+  $self->_spray_css(        $outdir );
+  $self->_spray_javascript( $outdir );
+
+  $self->_do_all_batch_conversions($mod2path, $outdir);
+
+  $progress and $progress->done(sprintf (
+    "Done converting %d files.",  $self->{"__batch_conv_page_count"}
+  ));
+  return $self->_batch_convert_finish($outdir);
+  return $self;
+}
+
+
+sub _do_all_batch_conversions {
+  my($self, $mod2path, $outdir) = @_;
+  $self->{"__batch_conv_page_count"} = 0;
+
+  foreach my $module (sort {lc($a) cmp lc($b)} keys %$mod2path) {
+    $self->_do_one_batch_conversion($module, $mod2path, $outdir);
+    sleep($SLEEPY - 1) if $SLEEPY;
+  }
+
+  return;
+}
+
+sub _batch_convert_finish {
+  my($self, $outdir) = @_;
+  $self->write_contents_file($outdir);
+  $self->muse("Done with batch conversion.  $$self{'__batch_conv_page_count'} files done.");
+  $self->muse( "= ", scalar(localtime) );
+  $self->progress and $self->progress->done("All done!");
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _do_one_batch_conversion {
+  my($self, $module, $mod2path, $outdir, $outfile) = @_;
+
+  my $retval;
+  my $total    = scalar keys %$mod2path;
+  my $infile   = $mod2path->{$module};
+  my @namelets = grep m/\S/, split "::", $module;
+        # this can stick around in the contents LoL
+  my $depth    = scalar @namelets;
+  die "Contentless thingie?! $module $infile" unless @namelets; #sanity
+    
+  $outfile  ||= do {
+    my @n = @namelets;
+    $n[-1] .= $HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION;
+    $self->filespecsys->catfile( $outdir, @n );
+  };
+
+  my $progress = $self->progress;
+
+  my $page = $self->html_render_class->new;
+  if(DEBUG > 5) {
+    $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: ",
+      ref($page), " render ($depth) $module => $outfile");
+  } elsif(DEBUG > 2) {
+    $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: $module => $outfile")
+  }
+
+  # Give each class a chance to init the converter:
+  $page->batch_mode_page_object_init($self, $module, $infile, $outfile, $depth)
+   if $page->can('batch_mode_page_object_init');
+  # Init for the index (TOC), too.
+  $self->batch_mode_page_object_init($page, $module, $infile, $outfile, $depth)
+   if $self->can('batch_mode_page_object_init');
+    
+  # Now get busy...
+  $self->makepath($outdir => \@namelets);
+
+  $progress and $progress->reach($self->{"__batch_conv_page_count"}, "Rendering $module");
+
+  if( $retval = $page->parse_from_file($infile, $outfile) ) {
+    ++ $self->{"__batch_conv_page_count"} ;
+    $self->note_for_contents_file( \@namelets, $infile, $outfile );
+  } else {
+    $self->muse("Odd, parse_from_file(\"$infile\", \"$outfile\") returned false.");
+  }
+
+  $page->batch_mode_page_object_kill($self, $module, $infile, $outfile, $depth)
+   if $page->can('batch_mode_page_object_kill');
+  # The following isn't a typo.  Note that it switches $self and $page.
+  $self->batch_mode_page_object_kill($page, $module, $infile, $outfile, $depth)
+   if $self->can('batch_mode_page_object_kill');
+    
+  DEBUG > 4 and printf STDERR "%s %sb < $infile %s %sb\n",
+     $outfile, -s $outfile, $infile, -s $infile
+  ;
+
+  undef($page);
+  return $retval;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub filespecsys { $_[0]{'_filespecsys'} || 'File::Spec' }
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub note_for_contents_file {
+  my($self, $namelets, $infile, $outfile) = @_;
+
+  # I think the infile and outfile parts are never used. -- SMB
+  # But it's handy to have them around for debugging.
+
+  if( $self->contents_file ) {
+    my $c = $self->_contents();
+    push @$c,
+     [ join("::", @$namelets), $infile, $outfile, $namelets ]
+     #            0               1         2         3
+    ;
+    DEBUG > 3 and print STDERR "Noting @$c[-1]\n";
+  }
+  return;
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub write_contents_file {
+  my($self, $outdir) = @_;
+  my $outfile  = $self->_contents_filespec($outdir) || return;
+
+  $self->muse("Preparing list of modules for ToC");
+
+  my($toplevel,           # maps  toplevelbit => [all submodules]
+     $toplevel_form_freq, # ends up being  'foo' => 'Foo'
+    ) = $self->_prep_contents_breakdown;
+
+  my $Contents = eval { $self->_wopen($outfile) };
+  if( $Contents ) {
+    $self->muse( "Writing contents file $outfile" );
+  } else {
+    warn "Couldn't write-open contents file $outfile: $!\nAbort writing to $outfile at all";
+    return;
+  }
+
+  $self->_write_contents_start(  $Contents, $outfile, );
+  $self->_write_contents_middle( $Contents, $outfile, $toplevel, $toplevel_form_freq );
+  $self->_write_contents_end(    $Contents, $outfile, );
+  return $outfile;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_start {
+  my($self, $Contents, $outfile) = @_;
+  my $starter = $self->contents_page_start || '';
+  
+  {
+    my $css_wad = $self->_css_wad_to_markup(1);
+    if( $css_wad ) {
+      $starter =~ s{(</head>)}{\n$css_wad\n$1}i;  # otherwise nevermind
+    }
+    
+    my $javascript_wad = $self->_javascript_wad_to_markup(1);
+    if( $javascript_wad ) {
+      $starter =~ s{(</head>)}{\n$javascript_wad\n$1}i;   # otherwise nevermind
+    }
+  }
+
+  unless(print $Contents $starter, "<dl class='superindex'>\n" ) {
+    warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Contents);
+    return 0;
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_middle {
+  my($self, $Contents, $outfile, $toplevel2submodules, $toplevel_form_freq) = @_;
+
+  foreach my $t (sort keys %$toplevel2submodules) {
+    my @downlines = sort {$a->[-1] cmp $b->[-1]}
+                          @{ $toplevel2submodules->{$t} };
+    
+    printf $Contents qq[<dt><a name="%s">%s</a></dt>\n<dd>\n],
+      esc( $t, $toplevel_form_freq->{$t} )
+    ;
+    
+    my($path, $name);
+    foreach my $e (@downlines) {
+      $name = $e->[0];
+      $path = join( "/", '.', esc( @{$e->[3]} ) )
+        . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION);
+      print $Contents qq{  <a href="$path">}, esc($name), "</a>&nbsp;&nbsp;\n";
+    }
+    print $Contents "</dd>\n\n";
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_end {
+  my($self, $Contents, $outfile) = @_;
+  unless(
+    print $Contents "</dl>\n",
+      $self->contents_page_end || '',
+  ) {
+    warn "Couldn't write to $outfile: $!";
+  }
+  close($Contents) or warn "Couldn't close $outfile: $!";
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _prep_contents_breakdown {
+  my($self) = @_;
+  my $contents = $self->_contents;
+  my %toplevel; # maps  lctoplevelbit => [all submodules]
+  my %toplevel_form_freq; # ends up being  'foo' => 'Foo'
+                               # (mapping anycase forms to most freq form)
+  
+  foreach my $entry (@$contents) {
+    my $toplevel = 
+      $entry->[0] =~ m/^perl\w*$/ ? 'perl_core_docs'
+          # group all the perlwhatever docs together
+      : $entry->[3][0] # normal case
+    ;
+    ++$toplevel_form_freq{ lc $toplevel }{ $toplevel };
+    push @{ $toplevel{ lc $toplevel } }, $entry;
+    push @$entry, lc($entry->[0]); # add a sort-order key to the end
+  }
+
+  foreach my $toplevel (sort keys %toplevel) {
+    my $fgroup = $toplevel_form_freq{$toplevel};
+    $toplevel_form_freq{$toplevel} =
+    (
+      sort { $fgroup->{$b} <=> $fgroup->{$a}  or  $a cmp $b }
+        keys %$fgroup
+      # This hash is extremely unlikely to have more than 4 members, so this
+      # sort isn't so very wasteful
+    )[0];
+  }
+
+  return(\%toplevel, \%toplevel_form_freq) if wantarray;
+  return \%toplevel;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _contents_filespec {
+  my($self, $outdir) = @_;
+  my $outfile = $self->contents_file;
+  return unless $outfile;
+  return $self->filespecsys->catfile( $outdir, $outfile );
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub makepath {
+  my($self, $outdir, $namelets) = @_;
+  return unless @$namelets > 1;
+  for my $i (0 .. ($#$namelets - 1)) {
+    my $dir = $self->filespecsys->catdir( $outdir, @$namelets[0 .. $i] );
+    if(-e $dir) {
+      die "$dir exists but not as a directory!?" unless -d $dir;
+      next;
+    }
+    DEBUG > 3 and print STDERR "  Making $dir\n";
+    mkdir $dir, 0777
+     or die "Can't mkdir $dir: $!\nAborting"
+    ;
+  }
+  return;
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub batch_mode_page_object_init {
+  my $self = shift;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  
+  # TODO: any further options to percolate onto this new object here?
+
+  $page->default_title($module);
+  $page->index( $self->index );
+
+  $page->html_css(        $self->       _css_wad_to_markup($depth) );
+  $page->html_javascript( $self->_javascript_wad_to_markup($depth) );
+
+  $self->add_header_backlink($page, $module, $infile, $outfile, $depth);
+  $self->add_footer_backlink($page, $module, $infile, $outfile, $depth);
+
+
+  return $self;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub add_header_backlink {
+  my $self = shift;
+  return if $self->no_contents_links;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  $page->html_header_after_title( join '',
+    $page->html_header_after_title || '',
+
+    qq[<p class="backlinktop"><b><a name="___top" href="],
+    $self->url_up_to_contents($depth),
+    qq[" accesskey="1" title="All Documents">&lt;&lt;</a></b></p>\n],
+  )
+   if $self->contents_file
+  ;
+  return;
+}
+
+sub add_footer_backlink {
+  my $self = shift;
+  return if $self->no_contents_links;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  $page->html_footer( join '',
+    qq[<p class="backlinkbottom"><b><a name="___bottom" href="],
+    $self->url_up_to_contents($depth),
+    qq[" title="All Documents">&lt;&lt;</a></b></p>\n],
+    
+    $page->html_footer || '',
+  )
+   if $self->contents_file
+  ;
+  return;
+}
+
+sub url_up_to_contents {
+  my($self, $depth) = @_;
+  --$depth;
+  return join '/', ('..') x $depth, esc($self->contents_file);
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub find_all_pods {
+  my($self, $dirs) = @_;
+  # You can override find_all_pods in a subclass if you want to
+  #  do extra filtering or whatnot.  But for the moment, we just
+  #  pass to modnames2paths:
+  return $self->modnames2paths($dirs);
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub modnames2paths { # return a hashref mapping modulenames => paths
+  my($self, $dirs) = @_;
+
+  my $m2p;
+  {
+    my $search = $self->search_class->new;
+    DEBUG and print STDERR "Searching via $search\n";
+    $search->verbose(1) if DEBUG > 10;
+    $search->progress( $self->progress->copy->goal(0) ) if $self->progress;
+    $search->shadows(0);  # don't bother noting shadowed files
+    $search->inc(     $dirs ? 0      :  1 );
+    $search->survey(  $dirs ? @$dirs : () );
+    $m2p = $search->name2path;
+    die "What, no name2path?!" unless $m2p;
+  }
+
+  $self->muse("That's odd... no modules found!") unless keys %$m2p;
+  if( DEBUG > 4 ) {
+    print STDERR "Modules found (name => path):\n";
+    foreach my $m (sort {lc($a) cmp lc($b)} keys %$m2p) {
+      print STDERR "  $m  $$m2p{$m}\n";
+    }
+    print STDERR "(total ",     scalar(keys %$m2p), ")\n\n";
+  } elsif( DEBUG ) {
+    print STDERR      "Found ", scalar(keys %$m2p), " modules.\n";
+  }
+  $self->muse( "Found ", scalar(keys %$m2p), " modules." );
+  
+  # return the Foo::Bar => /whatever/Foo/Bar.pod|pm hashref
+  return $m2p;
+}
+
+#===========================================================================
+
+sub _wopen {
+  # this is abstracted out so that the daemon class can override it
+  my($self, $outpath) = @_;
+  require Symbol;
+  my $out_fh = Symbol::gensym();
+  DEBUG > 5 and print STDERR "Write-opening to $outpath\n";
+  return $out_fh if open($out_fh, "> $outpath");
+  require Carp;  
+  Carp::croak("Can't write-open $outpath: $!");
+}
+
+#==========================================================================
+
+sub add_css {
+  my($self, $url, $is_default, $name, $content_type, $media, $_code) = @_;
+  return unless $url;
+  unless($name) {
+    # cook up a reasonable name based on the URL
+    $name = $url;
+    if( $name !~ m/\?/ and $name =~ m{([^/]+)$}s ) {
+      $name = $1;
+      $name =~ s/\.css//i;
+    }
+  }
+  $media        ||= 'all';
+  $content_type ||= 'text/css';
+  
+  my $bunch = [$url, $name, $content_type, $media, $_code];
+  if($is_default) { unshift @{ $self->_css_wad }, $bunch }
+  else            { push    @{ $self->_css_wad }, $bunch }
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _spray_css {
+  my($self, $outdir) = @_;
+
+  return unless $self->css_flurry();
+  $self->_gen_css_wad();
+
+  my $lol = $self->_css_wad;
+  foreach my $chunk (@$lol) {
+    my $url = $chunk->[0];
+    my $outfile;
+    if( ref($chunk->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.css$)} ) {
+      $outfile = $self->filespecsys->catfile( $outdir, "$1" );
+      DEBUG > 5 and print STDERR "Noting $$chunk[0] as a file I'll create.\n";
+    } else {
+      DEBUG > 5 and print STDERR "OK, noting $$chunk[0] as an external CSS.\n";
+      # Requires no further attention.
+      next;
+    }
+    
+    #$self->muse( "Writing autogenerated CSS file $outfile" );
+    my $Cssout = $self->_wopen($outfile);
+    print $Cssout ${$chunk->[-1]}
+     or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Cssout);
+    DEBUG > 5 and print STDERR "Wrote $outfile\n";
+  }
+
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _css_wad_to_markup {
+  my($self, $depth) = @_;
+  
+  my @css  = @{ $self->_css_wad || return '' };
+  return '' unless @css;
+  
+  my $rel = 'stylesheet';
+  my $out = '';
+
+  --$depth;
+  my $uplink = $depth ? ('../' x $depth) : '';
+
+  foreach my $chunk (@css) {
+    next unless $chunk and @$chunk;
+
+    my( $url1, $url2, $title, $type, $media) = (
+      $self->_maybe_uplink( $chunk->[0], $uplink ),
+      esc(grep !ref($_), @$chunk)
+    );
+
+    $out .= qq{<link rel="$rel" title="$title" type="$type" href="$url1$url2" media="$media" >\n};
+
+    $rel = 'alternate stylesheet'; # alternates = all non-first iterations
+  }
+  return $out;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub _maybe_uplink {
+  # if the given URL looks relative, return the given uplink string --
+  # otherwise return emptystring
+  my($self, $url, $uplink) = @_;
+  ($url =~ m{^\./} or $url !~ m{[/\:]} )
+    ? $uplink
+    : ''
+    # qualify it, if/as needed
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub _gen_css_wad {
+  my $self = $_[0];
+  my $css_template = $self->_css_template;
+  foreach my $variation (
+
+   # Commented out for sake of concision:
+   #
+   #  011n=black_with_red_on_white
+   #  001n=black_with_yellow_on_white
+   #  101n=black_with_green_on_white
+   #  110=white_with_yellow_on_black
+   #  010=white_with_green_on_black
+   #  011=white_with_blue_on_black
+   #  100=white_with_red_on_black
+    '110n=blkbluw',  # black_with_blue_on_white
+    '010n=blkmagw',  # black_with_magenta_on_white
+    '100n=blkcynw',  # black_with_cyan_on_white
+    '101=whtprpk',   # white_with_purple_on_black
+    '001=whtnavk',   # white_with_navy_blue_on_black
+    '010a=grygrnk',  # grey_with_green_on_black
+    '010b=whtgrng',  # white_with_green_on_grey
+    '101an=blkgrng', # black_with_green_on_grey
+    '101bn=grygrnw', # grey_with_green_on_white
+  ) {
+
+    my $outname = $variation;
+    my($flipmode, @swap) = ( ($4 || ''), $1,$2,$3)
+      if $outname =~ s/^([012])([012])([[012])([a-z]*)=?//s;
+    @swap = () if '010' eq join '', @swap; # 010 is a swop-no-op!
+  
+    my $this_css =
+      "/* This file is autogenerated.  Do not edit.  $variation */\n\n"
+      . $css_template;
+
+    # Only look at three-digitty colors, for now at least.
+    if( $flipmode =~ m/n/ ) {
+      $this_css =~ s/(#[0-9a-fA-F]{3})\b/_color_negate($1)/eg;
+      $this_css =~ s/\bthin\b/medium/g;
+    }
+    $this_css =~ s<#([0-9a-fA-F])([0-9a-fA-F])([0-9a-fA-F])\b>
+                  < join '', '#', ($1,$2,$3)[@swap] >eg   if @swap;
+
+    if(   $flipmode =~ m/a/)
+       { $this_css =~ s/#fff\b/#999/gi } # black -> dark grey
+    elsif($flipmode =~ m/b/)
+       { $this_css =~ s/#000\b/#666/gi } # white -> light grey
+
+    my $name = $outname;    
+    $name =~ tr/-_/  /;
+    $self->add_css( "_$outname.css", 0, $name, 0, 0, \$this_css);
+  }
+
+  # Now a few indexless variations:
+  foreach my $variation (
+      'blkbluw', # black_with_blue_on_white
+      'whtpurk', # white_with_purple_on_black
+      'whtgrng', # white_with_green_on_grey
+      'grygrnw', # grey_with_green_on_white
+  ) {
+    my $outname = $variation;
+    my $this_css = join "\n",
+      "/* This file is autogenerated.  Do not edit.  $outname */\n",
+      "\@import url(\"./_$variation.css\");",
+      ".indexgroup { display: none; }",
+      "\n",
+    ;
+    my $name = $outname;    
+    $name =~ tr/-_/  /;
+    $self->add_css( "_$outname.css", 0, $name, 0, 0, \$this_css);
+  }
+
+  return;
+}
+
+sub _color_negate {
+  my $x = lc $_[0];
+  $x =~ tr[0123456789abcdef]
+          [fedcba9876543210];
+  return $x;
+}
+
+#===========================================================================
+
+sub add_javascript {
+  my($self, $url, $content_type, $_code) = @_;
+  return unless $url;
+  push  @{ $self->_javascript_wad }, [
+    $url, $content_type || 'text/javascript', $_code
+  ];
+  return;
+}
+
+sub _spray_javascript {
+  my($self, $outdir) = @_;
+  return unless $self->javascript_flurry();
+  $self->_gen_javascript_wad();
+
+  my $lol = $self->_javascript_wad;
+  foreach my $script (@$lol) {
+    my $url = $script->[0];
+    my $outfile;
+    
+    if( ref($script->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.js$)} ) {
+      $outfile = $self->filespecsys->catfile( $outdir, "$1" );
+      DEBUG > 5 and print STDERR "Noting $$script[0] as a file I'll create.\n";
+    } else {
+      DEBUG > 5 and print STDERR "OK, noting $$script[0] as an external JavaScript.\n";
+      next;
+    }
+    
+    #$self->muse( "Writing JavaScript file $outfile" );
+    my $Jsout = $self->_wopen($outfile);
+
+    print $Jsout ${$script->[-1]}
+     or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Jsout);
+    DEBUG > 5 and print STDERR "Wrote $outfile\n";
+  }
+
+  return;
+}
+
+sub _gen_javascript_wad {
+  my $self = $_[0];
+  my $js_code = $self->_javascript || return;
+  $self->add_javascript( "_podly.js", 0, \$js_code);
+  return;
+}
+
+sub _javascript_wad_to_markup {
+  my($self, $depth) = @_;
+  
+  my @scripts  = @{ $self->_javascript_wad || return '' };
+  return '' unless @scripts;
+  
+  my $out = '';
+
+  --$depth;
+  my $uplink = $depth ? ('../' x $depth) : '';
+
+  foreach my $s (@scripts) {
+    next unless $s and @$s;
+
+    my( $url1, $url2, $type, $media) = (
+      $self->_maybe_uplink( $s->[0], $uplink ),
+      esc(grep !ref($_), @$s)
+    );
+
+    $out .= qq{<script type="$type" src="$url1$url2"></script>\n};
+  }
+  return $out;
+}
+
+#===========================================================================
+
+sub _css_template { return $CSS }
+sub _javascript   { return $JAVASCRIPT }
+
+$CSS = <<'EOCSS';
+/* For accessibility reasons, never specify text sizes in px/pt/pc/in/cm/mm */
+
+@media all { .hide { display: none; } }
+
+@media print {
+  .noprint, div.indexgroup, .backlinktop, .backlinkbottom { display: none }
+
+  * {
+    border-color: black !important;
+    color: black !important;
+    background-color: transparent !important;
+    background-image: none !important;
+  }
+
+  dl.superindex > dd  {
+    word-spacing: .6em;
+  }
+}
+
+@media aural, braille, embossed {
+  div.indexgroup  { display: none; }  /* Too noisy, don't you think? */
+  dl.superindex > dt:before { content: "Group ";  }
+  dl.superindex > dt:after  { content: " contains:"; }
+  .backlinktop    a:before  { content: "Back to contents"; }
+  .backlinkbottom a:before  { content: "Back to contents"; }
+}
+
+@media aural {
+  dl.superindex > dt  { pause-before: 600ms; }
+}
+
+@media screen, tty, tv, projection {
+  .noscreen { display: none; }
+
+  a:link    { color: #7070ff; text-decoration: underline; }
+  a:visited { color: #e030ff; text-decoration: underline; }
+  a:active  { color: #800000; text-decoration: underline; }
+  body.contentspage a            { text-decoration: none; }
+  a.u { color: #fff !important; text-decoration: none; }
+
+  body.pod {
+    margin: 0 5px;
+    color:            #fff;
+    background-color: #000;
+  }
+
+  body.pod h1, body.pod h2, body.pod h3, body.pod h4  {
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    margin-top: 1.2em;
+    margin-bottom: .1em;
+    border-top: thin solid transparent;
+    /* margin-left: -5px;  border-left: 2px #7070ff solid;  padding-left: 3px; */
+  }
+  
+  body.pod h1  { border-top-color: #0a0; }
+  body.pod h2  { border-top-color: #080; }
+  body.pod h3  { border-top-color: #040; }
+  body.pod h4  { border-top-color: #010; }
+
+  p.backlinktop + h1 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h2 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h3 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h4 { border-top: none; margin-top: 0em;  }
+
+  body.pod dt {
+    font-size: 105%; /* just a wee bit more than normal */
+  }
+
+  .indexgroup { font-size: 80%; }
+
+  .backlinktop,   .backlinkbottom    {
+    margin-left:  -5px;
+    margin-right: -5px;
+    background-color:         #040;
+    border-top:    thin solid #050;
+    border-bottom: thin solid #050;
+  }
+  
+  .backlinktop a, .backlinkbottom a  {
+    text-decoration: none;
+    color: #080;
+    background-color:  #000;
+    border: thin solid #0d0;
+  }
+  .backlinkbottom { margin-bottom: 0; padding-bottom: 0; }
+  .backlinktop    { margin-top:    0; padding-top:    0; }
+
+  body.contentspage {
+    color:            #fff;
+    background-color: #000;
+  }
+  
+  body.contentspage h1  {
+    color:            #0d0;
+    margin-left: 1em;
+    margin-right: 1em;
+    text-indent: -.9em;
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    border-top:    thin solid #fff;
+    border-bottom: thin solid #fff;
+    text-align: center;
+  }
+
+  dl.superindex > dt  {
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    font-size: 90%;
+    margin-top: .45em;
+    /* margin-bottom: -.15em; */
+  }
+  dl.superindex > dd  {
+    word-spacing: .6em;    /* most important rule here! */
+  }
+  dl.superindex > a:link  {
+    text-decoration: none;
+    color: #fff;
+  }
+
+  .contentsfooty {
+    border-top: thin solid #999;
+    font-size: 90%;
+  }
+  
+}
+
+/* The End */
+
+EOCSS
+
+#==========================================================================
+
+$JAVASCRIPT = <<'EOJAVASCRIPT';
+
+// From http://www.alistapart.com/articles/alternate/
+
+function setActiveStyleSheet(title) {
+  var i, a, main;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) {
+      a.disabled = true;
+      if(a.getAttribute("title") == title) a.disabled = false;
+    }
+  }
+}
+
+function getActiveStyleSheet() {
+  var i, a;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(   a.getAttribute("rel").indexOf("style") != -1
+       && a.getAttribute("title")
+       && !a.disabled
+       ) return a.getAttribute("title");
+  }
+  return null;
+}
+
+function getPreferredStyleSheet() {
+  var i, a;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(   a.getAttribute("rel").indexOf("style") != -1
+       && a.getAttribute("rel").indexOf("alt") == -1
+       && a.getAttribute("title")
+       ) return a.getAttribute("title");
+  }
+  return null;
+}
+
+function createCookie(name,value,days) {
+  if (days) {
+    var date = new Date();
+    date.setTime(date.getTime()+(days*24*60*60*1000));
+    var expires = "; expires="+date.toGMTString();
+  }
+  else expires = "";
+  document.cookie = name+"="+value+expires+"; path=/";
+}
+
+function readCookie(name) {
+  var nameEQ = name + "=";
+  var ca = document.cookie.split(';');
+  for(var i=0  ;  i < ca.length  ;  i++) {
+    var c = ca[i];
+    while (c.charAt(0)==' ') c = c.substring(1,c.length);
+    if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
+  }
+  return null;
+}
+
+window.onload = function(e) {
+  var cookie = readCookie("style");
+  var title = cookie ? cookie : getPreferredStyleSheet();
+  setActiveStyleSheet(title);
+}
+
+window.onunload = function(e) {
+  var title = getActiveStyleSheet();
+  createCookie("style", title, 365);
+}
+
+var cookie = readCookie("style");
+var title = cookie ? cookie : getPreferredStyleSheet();
+setActiveStyleSheet(title);
+
+// The End
+
+EOJAVASCRIPT
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+1;
+__END__
+
+
+
+
+require 5;
+package Pod::Simple::TextContent;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION );
+$VERSION = '3.35';
+@ISA = ('Pod::Simple');
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->nix_X_codes(1);
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start {
+  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
+  return;
+}
+
+sub _handle_text {
+  $_[1] =~ s/$Pod::Simple::shy//g;
+  $_[1] =~ s/$Pod::Simple::nbsp/ /g;
+  print {$_[0]{'output_fh'}} $_[1];
+  return;
+}
+
+sub _handle_element_end {
+  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+
+require 5;
+package Pod::Simple::LinkSection;
+  # Based somewhat dimly on Array::Autojoin
+use vars qw($VERSION );
+$VERSION = '3.35';
+
+use strict;
+use Pod::Simple::BlackBox;
+use vars qw($VERSION );
+$VERSION = '3.35';
+
+use overload( # So it'll stringify nice
+  '""'   => \&Pod::Simple::BlackBox::stringify_lol,
+  'bool' => \&Pod::Simple::BlackBox::stringify_lol,
+  # '.='   => \&tack_on,  # grudgingly support
+  
+  'fallback' => 1,         # turn on cleverness
+);
+
+sub tack_on {
+  $_[0] = ['', {}, "$_[0]" ];
+  return $_[0][2] .= $_[1];
+}
+
+sub as_string {
+  goto &Pod::Simple::BlackBox::stringify_lol;
+}
+sub stringify {
+  goto &Pod::Simple::BlackBox::stringify_lol;
+}
+
+sub new {
+  my $class = shift;
+  $class = ref($class) || $class;
+  my $new;
+  if(@_ == 1) {
+    if (!ref($_[0] || '')) { # most common case: one bare string
+      return bless ['', {}, $_[0] ], $class;
+    } elsif( ref($_[0] || '') eq 'ARRAY') {
+      $new = [ @{ $_[0] } ];
+    } else {
+      Carp::croak( "$class new() doesn't know to clone $new" );
+    }
+  } else { # misc stuff
+    $new = [ '', {}, @_ ];
+  }
+
+  # By now it's a treelet:  [ 'foo', {}, ... ]
+  foreach my $x (@$new) {
+    if(ref($x || '') eq 'ARRAY') {
+      $x = $class->new($x); # recurse
+    } elsif(ref($x || '') eq 'HASH') {
+      $x = { %$x };
+    }
+     # otherwise leave it.
+  }
+
+  return bless $new, $class;
+}
+
+# Not much in this class is likely to be link-section specific --
+# but it just so happens that link-sections are about the only treelets
+# that are exposed to the user.
+
+1;
+
+__END__
+
+# TODO: let it be an option whether a given subclass even wants little treelets?
+
+
+__END__
+
+
+require 5;
+package Pod::Simple::Progress;
+$VERSION = '3.35';
+use strict;
+
+# Objects of this class are used for noting progress of an
+#  operation every so often.  Messages delivered more often than that
+#  are suppressed.
+#
+# There's actually nothing in here that's specific to Pod processing;
+#  but it's ad-hoc enough that I'm not willing to give it a name that
+#  implies that it's generally useful, like "IO::Progress" or something.
+#
+# -- sburke
+#
+#--------------------------------------------------------------------------
+
+sub new {
+  my($class,$delay) = @_;
+  my $self = bless {'quiet_until' => 1},  ref($class) || $class;
+  $self->to(*STDOUT{IO});
+  $self->delay(defined($delay) ? $delay : 5);
+  return $self;
+}
+
+sub copy { 
+  my $orig = shift;
+  bless {%$orig, 'quiet_until' => 1}, ref($orig);
+}
+#--------------------------------------------------------------------------
+
+sub reach {
+  my($self, $point, $note) = @_;
+  if( (my $now = time) >= $self->{'quiet_until'}) {
+    my $goal;
+    my    $to = $self->{'to'};
+    print $to join('',
+      ($self->{'quiet_until'} == 1) ? () : '... ',
+      (defined $point) ? (
+        '#',
+        ($goal = $self->{'goal'}) ? (
+          ' ' x (length($goal) - length($point)),
+          $point, '/', $goal,
+        ) : $point,
+        $note ? ': ' : (),
+      ) : (),
+      $note || '',
+      "\n"
+    );
+    $self->{'quiet_until'} = $now + $self->{'delay'};
+  }
+  return $self;
+}
+
+#--------------------------------------------------------------------------
+
+sub done {
+  my($self, $note) = @_;
+  $self->{'quiet_until'} = 1;
+  return $self->reach( undef, $note );
+}
+
+#--------------------------------------------------------------------------
+# Simple accessors:
+
+sub delay {
+  return $_[0]{'delay'} if @_ == 1; $_[0]{'delay'} = $_[1]; return $_[0] }
+sub goal {
+  return $_[0]{'goal' } if @_ == 1; $_[0]{'goal' } = $_[1]; return $_[0] }
+sub to   {
+  return $_[0]{'to'   } if @_ == 1; $_[0]{'to'   } = $_[1]; return $_[0] }
+
+#--------------------------------------------------------------------------
+
+unless(caller) { # Simple self-test:
+  my $p = __PACKAGE__->new->goal(5);
+  $p->reach(1, "Primus!");
+  sleep 1;
+  $p->reach(2, "Secundus!");
+  sleep 3;
+  $p->reach(3, "Tertius!");
+  sleep 5;
+  $p->reach(4);
+  $p->reach(5, "Quintus!");
+  sleep 1;
+  $p->done("All done");
+}
+
+#--------------------------------------------------------------------------
+1;
+__END__
+
+require 5;
+package Pod::Simple::Debug;
+use strict;
+use vars qw($VERSION );
+$VERSION = '3.35';
+
+sub import {
+  my($value,$variable);
+  
+  if(@_ == 2) {
+    $value = $_[1];
+  } elsif(@_ == 3) {
+    ($variable, $value) = @_[1,2];
+    
+    ($variable, $value) = ($value, $variable)
+       if     defined $value    and ref($value)    eq 'SCALAR'
+      and not(defined $variable and ref($variable) eq 'SCALAR')
+    ; # tolerate getting it backwards
+    
+    unless( defined $variable and ref($variable) eq 'SCALAR') {
+      require Carp;
+      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+    }
+  } else {
+    require Carp;
+    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+  }
+
+  if( defined &Pod::Simple::DEBUG ) {
+    require Carp;
+    Carp::croak("It's too late to call Pod::Simple::Debug -- "
+              . "Pod::Simple has already loaded\nAborting");
+  }
+  
+  $value = 0 unless defined $value;
+
+  unless($value =~ m/^-?\d+$/) {
+    require Carp;
+    Carp::croak( "$value isn't a numeric value."
+            . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+  }
+
+  if( defined $variable ) {
+    # make a not-really-constant
+    *Pod::Simple::DEBUG = sub () { $$variable } ;
+    $$variable = $value;
+    print STDERR "# Starting Pod::Simple::DEBUG = non-constant $variable with val $value\n";
+  } else {
+    *Pod::Simple::DEBUG = eval " sub () { $value } ";
+    print STDERR "# Starting Pod::Simple::DEBUG = $value\n";
+  }
+  
+  require Pod::Simple;
+  return;
+}
+
+1;
+
+
+__END__
+
+
+require 5;
+package Pod::Simple::PullParserEndToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.35';
+
+sub new {  # Class->new(tagname);
+  my $class = shift;
+  return bless ['end', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+sub tag { shift->tagname(@_) }
+
+# shortcut:
+sub is_tagname { $_[0][1] eq $_[1] }
+sub is_tag { shift->is_tagname(@_) }
+
+1;
+
+
+__END__
+
+require 5;
+package Pod::Simple::PullParser;
+$VERSION = '3.35';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+use Carp ();
+
+use Pod::Simple::PullParserStartToken;
+use Pod::Simple::PullParserEndToken;
+use Pod::Simple::PullParserTextToken;
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+__PACKAGE__->_accessorize(
+  'source_fh',         # the filehandle we're reading from
+  'source_scalar_ref', # the scalarref we're reading from
+  'source_arrayref',   # the arrayref we're reading from
+);
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+#  And here is how we implement a pull-parser on top of a push-parser...
+
+sub filter {
+  my($self, $source) = @_;
+  $self = $self->new unless ref $self;
+
+  $source = *STDIN{IO} unless defined $source;
+  $self->set_source($source);
+  $self->output_fh(*STDOUT{IO});
+
+  $self->run; # define run() in a subclass if you want to use filter()!
+  return $self;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub parse_string_document {
+  my $this = shift;
+  $this->set_source(\ $_[0]);
+  $this->run;
+}
+
+sub parse_file {
+  my($this, $filename) = @_;
+  $this->set_source($filename);
+  $this->run;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+#  In case anyone tries to use them:
+
+sub run {
+  use Carp ();
+  if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
+    Carp::croak "You can call run() only on subclasses of "
+     . __PACKAGE__;
+  } else {
+    Carp::croak join '',
+      "You can't call run() because ",
+      ref($_[0]) || $_[0], " didn't define a run() method";
+  }
+}
+
+sub parse_lines {
+  use Carp ();
+  Carp::croak "Use set_source with ", __PACKAGE__,
+    " and subclasses, not parse_lines";
+}
+
+sub parse_line {
+  use Carp ();
+  Carp::croak "Use set_source with ", __PACKAGE__,
+    " and subclasses, not parse_line";
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $class = shift;
+  my $self = $class->SUPER::new(@_);
+  die "Couldn't construct for $class" unless $self;
+
+  $self->{'token_buffer'} ||= [];
+  $self->{'start_token_class'} ||= 'Pod::Simple::PullParserStartToken';
+  $self->{'text_token_class'}  ||= 'Pod::Simple::PullParserTextToken';
+  $self->{'end_token_class'}   ||= 'Pod::Simple::PullParserEndToken';
+
+  DEBUG > 1 and print STDERR "New pullparser object: $self\n";
+
+  return $self;
+}
+
+# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+sub get_token {
+  my $self = shift;
+  DEBUG > 1 and print STDERR "\nget_token starting up on $self.\n";
+  DEBUG > 2 and print STDERR " Items in token-buffer (",
+   scalar( @{ $self->{'token_buffer'} } ) ,
+   ") :\n", map(
+     "    " . $_->dump . "\n", @{ $self->{'token_buffer'} }
+   ),
+   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
+   "\n"
+  ;
+
+  until( @{ $self->{'token_buffer'} } ) {
+    DEBUG > 3 and print STDERR "I need to get something into my empty token buffer...\n";
+    if($self->{'source_dead'}) {
+      DEBUG and print STDERR "$self 's source is dead.\n";
+      push @{ $self->{'token_buffer'} }, undef;
+    } elsif(exists $self->{'source_fh'}) {
+      my @lines;
+      my $fh = $self->{'source_fh'}
+       || Carp::croak('You have to call set_source before you can call get_token');
+       
+      DEBUG and print STDERR "$self 's source is filehandle $fh.\n";
+      # Read those many lines at a time
+      for(my $i = Pod::Simple::MANY_LINES; $i--;) {
+        DEBUG > 3 and print STDERR " Fetching a line from source filehandle $fh...\n";
+        local $/ = $Pod::Simple::NL;
+        push @lines, scalar(<$fh>); # readline
+        DEBUG > 3 and print STDERR "  Line is: ",
+          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
+        unless( defined $lines[-1] ) {
+          DEBUG and print STDERR "That's it for that source fh!  Killing.\n";
+          delete $self->{'source_fh'}; # so it can be GC'd
+          last;
+        }
+         # but pass thru the undef, which will set source_dead to true
+
+        # TODO: look to see if $lines[-1] is =encoding, and if so,
+        # do horribly magic things
+
+      }
+      
+      if(DEBUG > 8) {
+        print STDERR "* I've gotten ", scalar(@lines), " lines:\n";
+        foreach my $l (@lines) {
+          if(defined $l) {
+            print STDERR "  line {$l}\n";
+          } else {
+            print STDERR "  line undef\n";
+          }
+        }
+        print STDERR "* end of ", scalar(@lines), " lines\n";
+      }
+
+      $self->SUPER::parse_lines(@lines);
+      
+    } elsif(exists $self->{'source_arrayref'}) {
+      DEBUG and print STDERR "$self 's source is arrayref $self->{'source_arrayref'}, with ",
+       scalar(@{$self->{'source_arrayref'}}), " items left in it.\n";
+
+      DEBUG > 3 and print STDERR "  Fetching ", Pod::Simple::MANY_LINES, " lines.\n";
+      $self->SUPER::parse_lines(
+        splice @{ $self->{'source_arrayref'} },
+        0,
+        Pod::Simple::MANY_LINES
+      );
+      unless( @{ $self->{'source_arrayref'} } ) {
+        DEBUG and print STDERR "That's it for that source arrayref!  Killing.\n";
+        $self->SUPER::parse_lines(undef);
+        delete $self->{'source_arrayref'}; # so it can be GC'd
+      }
+       # to make sure that an undef is always sent to signal end-of-stream
+
+    } elsif(exists $self->{'source_scalar_ref'}) {
+
+      DEBUG and print STDERR "$self 's source is scalarref $self->{'source_scalar_ref'}, with ",
+        length(${ $self->{'source_scalar_ref'} }) -
+        (pos(${ $self->{'source_scalar_ref'} }) || 0),
+        " characters left to parse.\n";
+
+      DEBUG > 3 and print STDERR " Fetching a line from source-string...\n";
+      if( ${ $self->{'source_scalar_ref'} } =~
+        m/([^\n\r]*)((?:\r?\n)?)/g
+      ) {
+        #print(">> $1\n"),
+        $self->SUPER::parse_lines($1)
+         if length($1) or length($2)
+          or pos(     ${ $self->{'source_scalar_ref'} })
+           != length( ${ $self->{'source_scalar_ref'} });
+         # I.e., unless it's a zero-length "empty line" at the very
+         #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
+      } else { # that's the end.  Byebye
+        $self->SUPER::parse_lines(undef);
+        delete $self->{'source_scalar_ref'};
+        DEBUG and print STDERR "That's it for that source scalarref!  Killing.\n";
+      }
+
+      
+    } else {
+      die "What source??";
+    }
+  }
+  DEBUG and print STDERR "get_token about to return ",
+   Pod::Simple::pretty( @{$self->{'token_buffer'}}
+     ? $self->{'token_buffer'}[-1] : undef
+   ), "\n";
+  return shift @{$self->{'token_buffer'}}; # that's an undef if empty
+}
+
+sub unget_token {
+  my $self = shift;
+  DEBUG and print STDERR "Ungetting ", scalar(@_), " tokens: ",
+   @_ ? "@_\n" : "().\n";
+  foreach my $t (@_) {
+    Carp::croak "Can't unget that, because it's not a token -- it's undef!"
+     unless defined $t;
+    Carp::croak "Can't unget $t, because it's not a token -- it's a string!"
+     unless ref $t;
+    Carp::croak "Can't unget $t, because it's not a token object!"
+     unless UNIVERSAL::can($t, 'type');
+  }
+  
+  unshift @{$self->{'token_buffer'}}, @_;
+  DEBUG > 1 and print STDERR "Token buffer now has ",
+   scalar(@{$self->{'token_buffer'}}), " items in it.\n";
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+# $self->{'source_filename'} = $source;
+
+sub set_source {
+  my $self = shift @_;
+  return $self->{'source_fh'} unless @_;
+  Carp::croak("Cannot assign new source to pull parser; create a new instance, instead")
+      if $self->{'source_fh'} || $self->{'source_scalar_ref'} || $self->{'source_arrayref'};
+  my $handle;
+  if(!defined $_[0]) {
+    Carp::croak("Can't use empty-string as a source for set_source");
+  } elsif(ref(\( $_[0] )) eq 'GLOB') {
+    $self->{'source_filename'} = '' . ($handle = $_[0]);
+    DEBUG and print STDERR "$self 's source is glob $_[0]\n";
+    # and fall thru   
+  } elsif(ref( $_[0] ) eq 'SCALAR') {
+    $self->{'source_scalar_ref'} = $_[0];
+    DEBUG and print STDERR "$self 's source is scalar ref $_[0]\n";
+    return;
+  } elsif(ref( $_[0] ) eq 'ARRAY') {
+    $self->{'source_arrayref'} = $_[0];
+    DEBUG and print STDERR "$self 's source is array ref $_[0]\n";
+    return;
+  } elsif(ref $_[0]) {
+    $self->{'source_filename'} = '' . ($handle = $_[0]);
+    DEBUG and print STDERR "$self 's source is fh-obj $_[0]\n";
+  } elsif(!length $_[0]) {
+    Carp::croak("Can't use empty-string as a source for set_source");
+  } else {  # It's a filename!
+    DEBUG and print STDERR "$self 's source is filename $_[0]\n";
+    {
+      local *PODSOURCE;
+      open(PODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!";
+      $handle = *PODSOURCE{IO};
+    }
+    $self->{'source_filename'} = $_[0];
+    DEBUG and print STDERR "  Its name is $_[0].\n";
+
+    # TODO: file-discipline things here!
+  }
+
+  $self->{'source_fh'} = $handle;
+  DEBUG and print STDERR "  Its handle is $handle\n";
+  return 1;
+}
+
+# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+sub get_title_short {  shift->get_short_title(@_)  } # alias
+
+sub get_short_title {
+  my $title = shift->get_title(@_);
+  $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s;
+    # turn "Foo::Bar -- bars for your foo" into "Foo::Bar"
+  return $title;
+}
+
+sub get_title       { shift->_get_titled_section(
+  'NAME', max_token => 50, desperate => 1, @_)
+}
+sub get_version     { shift->_get_titled_section(
+   'VERSION',
+    max_token => 400,
+    accept_verbatim => 1,
+    max_content_length => 3_000,
+   @_,
+  );
+}
+sub get_description { shift->_get_titled_section(
+   'DESCRIPTION',
+    max_token => 400,
+    max_content_length => 3_000,
+   @_,
+) }
+
+sub get_authors     { shift->get_author(@_) }  # a harmless alias
+
+sub get_author      {
+  my $this = shift;
+  # Max_token is so high because these are
+  #  typically at the end of the document:
+  $this->_get_titled_section('AUTHOR' , max_token => 10_000, @_) ||
+  $this->_get_titled_section('AUTHORS', max_token => 10_000, @_);
+}
+
+#--------------------------------------------------------------------------
+
+sub _get_titled_section {
+  # Based on a get_title originally contributed by Graham Barr
+  my($self, $titlename, %options) = (@_);
+  
+  my $max_token            = delete $options{'max_token'};
+  my $desperate_for_title  = delete $options{'desperate'};
+  my $accept_verbatim      = delete $options{'accept_verbatim'};
+  my $max_content_length   = delete $options{'max_content_length'};
+  my $nocase               = delete $options{'nocase'};
+  $max_content_length = 120 unless defined $max_content_length;
+
+  Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
+    . join " ", map "[$_]", sort keys %options
+  )
+   if keys %options;
+
+  my %content_containers;
+  $content_containers{'Para'} = 1;
+  if($accept_verbatim) {
+    $content_containers{'Verbatim'} = 1;
+    $content_containers{'VerbatimFormatted'} = 1;
+  }
+
+  my $token_count = 0;
+  my $title;
+  my @to_unget;
+  my $state = 0;
+  my $depth = 0;
+
+  Carp::croak "What kind of titlename is \"$titlename\"?!" unless
+   defined $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity
+  my $titlename_re = quotemeta($titlename);
+
+  my $head1_text_content;
+  my $para_text_content;
+  my $skipX;
+
+  while(
+    ++$token_count <= ($max_token || 1_000_000)
+    and defined(my $token = $self->get_token)
+  ) {
+    push @to_unget, $token;
+
+    if ($state == 0) { # seeking =head1
+      if( $token->is_start and $token->tagname eq 'head1' ) {
+        DEBUG and print STDERR "  Found head1.  Seeking content...\n";
+        ++$state;
+        $head1_text_content = '';
+      }
+    }
+
+    elsif($state == 1) { # accumulating text until end of head1
+      if( $token->is_text ) {
+          unless ($skipX) {
+            DEBUG and print STDERR "   Adding \"", $token->text, "\" to head1-content.\n";
+            $head1_text_content .= $token->text;
+          }
+      } elsif( $token->is_tagname('X') ) {
+          # We're going to want to ignore X<> stuff.
+          $skipX = $token->is_start;
+          DEBUG and print STDERR +($skipX ? 'Start' : 'End'), 'ing ignoring of X<> tag';
+      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
+        DEBUG and print STDERR "  Found end of head1.  Considering content...\n";
+        $head1_text_content = uc $head1_text_content if $nocase;
+        if($head1_text_content eq $titlename
+          or $head1_text_content =~ m/\($titlename_re\)/s
+          # We accept "=head1 Nomen Modularis (NAME)" for sake of i18n
+        ) {
+          DEBUG and print STDERR "  Yup, it was $titlename.  Seeking next para-content...\n";
+          ++$state;
+        } elsif(
+          $desperate_for_title
+           # if we're so desperate we'll take the first
+           #  =head1's content as a title
+          and $head1_text_content =~ m/\S/
+          and $head1_text_content !~ m/^[ A-Z]+$/s
+          and $head1_text_content !~
+            m/\((?:
+             NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS
+             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
+             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT
+            )\)/sx
+            # avoid accepting things like =head1 Thingy Thongy (DESCRIPTION)
+          and ($max_content_length
+            ? (length($head1_text_content) <= $max_content_length) # sanity
+            : 1)
+        ) {
+          # Looks good; trim it
+          ($title = $head1_text_content) =~ s/\s+$//;
+          DEBUG and print STDERR "  It looks titular: \"$title\".\n\n  Using that.\n";
+          last;
+        } else {
+          --$state;
+          DEBUG and print STDERR "  Didn't look titular ($head1_text_content).\n",
+            "\n  Dropping back to seeking-head1-content mode...\n";
+        }
+      }
+    }
+    
+    elsif($state == 2) {
+      # seeking start of para (which must immediately follow)
+      if($token->is_start and $content_containers{ $token->tagname }) {
+        DEBUG and print STDERR "  Found start of Para.  Accumulating content...\n";
+        $para_text_content = '';
+        ++$state;
+      } else {
+        DEBUG and print
+         "  Didn't see an immediately subsequent start-Para.  Reseeking H1\n";
+        $state = 0;
+      }
+    }
+    
+    elsif($state == 3) {
+      # accumulating text until end of Para
+      if( $token->is_text ) {
+        DEBUG and print STDERR "   Adding \"", $token->text, "\" to para-content.\n";
+        $para_text_content .= $token->text;
+        # and keep looking
+        
+      } elsif( $token->is_end and $content_containers{ $token->tagname } ) {
+        DEBUG and print STDERR "  Found end of Para.  Considering content: ",
+          $para_text_content, "\n";
+
+        if( $para_text_content =~ m/\S/
+          and ($max_content_length
+           ? (length($para_text_content) <= $max_content_length)
+           : 1)
+        ) {
+          # Some minimal sanity constraints, I think.
+          DEBUG and print STDERR "  It looks contentworthy, I guess.  Using it.\n";
+          $title = $para_text_content;
+          last;
+        } else {
+          DEBUG and print STDERR "  Doesn't look at all contentworthy!\n  Giving up.\n";
+          undef $title;
+          last;
+        }
+      }
+    }
+    
+    else {
+      die "IMPOSSIBLE STATE $state!\n";  # should never happen
+    }
+    
+  }
+  
+  # Put it all back!
+  $self->unget_token(@to_unget);
+  
+  if(DEBUG) {
+    if(defined $title) { print STDERR "  Returning title <$title>\n" }
+    else { print STDERR "Returning title <>\n" }
+  }
+  
+  return '' unless defined $title;
+  $title =~ s/^\s+//;
+  return $title;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+#  Methods that actually do work at parse-time:
+
+sub _handle_element_start {
+  my $self = shift;   # leaving ($element_name, $attr_hash_r)
+  DEBUG > 2 and print STDERR "++ $_[0] (", map("<$_> ", %{$_[1]}), ")\n";
+  
+  push @{ $self->{'token_buffer'} },
+       $self->{'start_token_class'}->new(@_);
+  return;
+}
+
+sub _handle_text {
+  my $self = shift;   # leaving ($text)
+  DEBUG > 2 and print STDERR "== $_[0]\n";
+  push @{ $self->{'token_buffer'} },
+       $self->{'text_token_class'}->new(@_);
+  return;
+}
+
+sub _handle_element_end {
+  my $self = shift;   # leaving ($element_name);
+  DEBUG > 2 and print STDERR "-- $_[0]\n";
+  push @{ $self->{'token_buffer'} }, 
+       $self->{'end_token_class'}->new(@_);
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+1;
+
+
+__END__
+
+
+JUNK:
+
+sub _old_get_title {  # some witchery in here
+  my $self = $_[0];
+  my $title;
+  my @to_unget;
+
+  while(1) {
+    push @to_unget, $self->get_token;
+    unless(defined $to_unget[-1]) { # whoops, short doc!
+      pop @to_unget;
+      last;
+    }
+
+    DEBUG and print STDERR "-Got token ", $to_unget[-1]->dump, "\n";
+
+    (DEBUG and print STDERR "Too much in the buffer.\n"),
+     last if @to_unget > 25; # sanity
+    
+    my $pattern = '';
+    if( #$to_unget[-1]->type eq 'end'
+        #and $to_unget[-1]->tagname eq 'Para'
+        #and
+        ($pattern = join('',
+         map {;
+            ($_->type eq 'start') ? ("<" . $_->tagname .">")
+          : ($_->type eq 'end'  ) ? ("</". $_->tagname .">")
+          : ($_->type eq 'text' ) ? ($_->text =~ m<^([A-Z]+)$>s ? $1 : 'X')
+          : "BLORP"
+         } @to_unget
+       )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
+    ) {
+      # Whee, it fits the pattern
+      DEBUG and print STDERR "Seems to match =head1 NAME pattern.\n";
+      $title = '';
+      foreach my $t (reverse @to_unget) {
+        last if $t->type eq 'start' and $t->tagname eq 'Para';
+        $title = $t->text . $title if $t->type eq 'text';
+      }
+      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
+      last;
+
+    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
+      and !( $1 eq '1' and $2 eq 'NAME' )
+    ) {
+      # Well, it fits a fallback pattern
+      DEBUG and print STDERR "Seems to match NAMEless pattern.\n";
+      $title = '';
+      foreach my $t (reverse @to_unget) {
+        last if $t->type eq 'start' and $t->tagname =~ m/^head\d$/s;
+        $title = $t->text . $title if $t->type eq 'text';
+      }
+      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
+      last;
+      
+    } else {
+      DEBUG and $pattern and print STDERR "Leading pattern: $pattern\n";
+    }
+  }
+  
+  # Put it all back:
+  $self->unget_token(@to_unget);
+  
+  if(DEBUG) {
+    if(defined $title) { print STDERR "  Returning title <$title>\n" }
+    else { print STDERR "Returning title <>\n" }
+  }
+  
+  return '' unless defined $title;
+  return $title;
+}
+
+
+require 5;
+package Pod::Simple::PullParserStartToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.35';
+
+sub new {  # Class->new(tagname, optional_attrhash);
+  my $class = shift;
+  return bless ['start', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+sub tag { shift->tagname(@_) }
+
+sub is_tagname { $_[0][1] eq $_[1] }
+sub is_tag { shift->is_tagname(@_) }
+
+
+sub attr_hash { $_[0][2] ||= {} }
+
+sub attr      {
+  if(@_ == 2) {      # Reading: $token->attr('attrname')
+    ${$_[0][2] || return undef}{ $_[1] };
+  } elsif(@_ > 2) {  # Writing: $token->attr('attrname', 'newval')
+    ${$_[0][2] ||= {}}{ $_[1] } = $_[2];
+  } else {
+    require Carp;
+    Carp::croak(
+      'usage: $object->attr("val") or $object->attr("key", "newval")');
+    return undef;
+  }
+}
+
+1;
+
+
+__END__
+
+require 5;
+package Pod::Simple::HTML;
+use strict;
+use Pod::Simple::PullParser ();
+use vars qw(
+  @ISA %Tagmap $Computerese $LamePad $Linearization_Limit $VERSION
+  $Perldoc_URL_Prefix $Perldoc_URL_Postfix $Man_URL_Prefix $Man_URL_Postfix
+  $Title_Prefix $Title_Postfix $HTML_EXTENSION %ToIndex
+  $Doctype_decl  $Content_decl
+);
+@ISA = ('Pod::Simple::PullParser');
+$VERSION = '3.35';
+BEGIN {
+  if(defined &DEBUG) { } # no-op
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
+  else { *DEBUG = sub () {0}; }
+}
+
+$Doctype_decl ||= '';  # No.  Just No.  Don't even ask me for it.
+ # qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ #    "http://www.w3.org/TR/html4/loose.dtd">\n};
+
+$Content_decl ||=
+ q{<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >};
+
+$HTML_EXTENSION = '.html' unless defined $HTML_EXTENSION;
+$Computerese =  "" unless defined $Computerese;
+$LamePad = '' unless defined $LamePad;
+
+$Linearization_Limit = 120 unless defined $Linearization_Limit;
+ # headings/items longer than that won't get an <a name="...">
+$Perldoc_URL_Prefix  = 'http://search.cpan.org/perldoc?'
+ unless defined $Perldoc_URL_Prefix;
+$Perldoc_URL_Postfix = ''
+ unless defined $Perldoc_URL_Postfix;
+
+
+$Man_URL_Prefix  = 'http://man.he.net/man';
+$Man_URL_Postfix = '';
+
+$Title_Prefix  = '' unless defined $Title_Prefix;
+$Title_Postfix = '' unless defined $Title_Postfix;
+%ToIndex = map {; $_ => 1 } qw(head1 head2 head3 head4 ); # item-text
+  # 'item-text' stuff in the index doesn't quite work, and may
+  # not be a good idea anyhow.
+
+
+__PACKAGE__->_accessorize(
+ 'perldoc_url_prefix',
+   # In turning L<Foo::Bar> into http://whatever/Foo%3a%3aBar, what
+   #  to put before the "Foo%3a%3aBar".
+   # (for singleton mode only?)
+ 'perldoc_url_postfix',
+   # what to put after "Foo%3a%3aBar" in the URL.  Normally "".
+
+ 'man_url_prefix',
+   # In turning L<crontab(5)> into http://whatever/man/1/crontab, what
+   #  to put before the "1/crontab".
+ 'man_url_postfix',
+   #  what to put after the "1/crontab" in the URL. Normally "".
+
+ 'batch_mode', # whether we're in batch mode
+ 'batch_mode_current_level',
+    # When in batch mode, how deep the current module is: 1 for "LWP",
+    #  2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc
+    
+ 'title_prefix',  'title_postfix',
+  # What to put before and after the title in the head.
+  # Should already be &-escaped
+
+ 'html_h_level',
+  
+ 'html_header_before_title',
+ 'html_header_after_title',
+ 'html_footer',
+ 'top_anchor',
+
+ 'index', # whether to add an index at the top of each page
+    # (actually it's a table-of-contents, but we'll call it an index,
+    #  out of apparently longstanding habit)
+
+ 'html_css', # URL of CSS file to point to
+ 'html_javascript', # URL of Javascript file to point to
+
+ 'force_title',   # should already be &-escaped
+ 'default_title', # should already be &-escaped
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+my @_to_accept;
+
+%Tagmap = (
+  'Verbatim'  => "\n<pre$Computerese>",
+  '/Verbatim' => "</pre>\n",
+  'VerbatimFormatted'  => "\n<pre$Computerese>",
+  '/VerbatimFormatted' => "</pre>\n",
+  'VerbatimB'  => "<b>",
+  '/VerbatimB' => "</b>",
+  'VerbatimI'  => "<i>",
+  '/VerbatimI' => "</i>",
+  'VerbatimBI'  => "<b><i>",
+  '/VerbatimBI' => "</i></b>",
+
+
+  'Data'  => "\n",
+  '/Data' => "\n",
+  
+  'head1' => "\n<h1>",  # And also stick in an <a name="...">
+  'head2' => "\n<h2>",  #  ''
+  'head3' => "\n<h3>",  #  ''
+  'head4' => "\n<h4>",  #  ''
+  '/head1' => "</a></h1>\n",
+  '/head2' => "</a></h2>\n",
+  '/head3' => "</a></h3>\n",
+  '/head4' => "</a></h4>\n",
+
+  'X'  => "<!--\n\tINDEX: ",
+  '/X' => "\n-->",
+
+  changes(qw(
+    Para=p
+    B=b I=i
+    over-bullet=ul
+    over-number=ol
+    over-text=dl
+    over-block=blockquote
+    item-bullet=li
+    item-number=li
+    item-text=dt
+  )),
+  changes2(
+    map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
+    qw[
+      sample=samp
+      definition=dfn
+      keyboard=kbd
+      variable=var
+      citation=cite
+      abbreviation=abbr
+      acronym=acronym
+      subscript=sub
+      superscript=sup
+      big=big
+      small=small
+      underline=u
+      strikethrough=s
+      preformat=pre
+      teletype=tt
+    ]  # no point in providing a way to get <q>...</q>, I think
+  ),
+  
+  '/item-bullet' => "</li>$LamePad\n",
+  '/item-number' => "</li>$LamePad\n",
+  '/item-text'   => "</a></dt>$LamePad\n",
+  'item-body'    => "\n<dd>",
+  '/item-body'   => "</dd>\n",
+
+
+  'B'      =>  "<b>",                  '/B'     =>  "</b>",
+  'I'      =>  "<i>",                  '/I'     =>  "</i>",
+  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
+  'C'      =>  "<code$Computerese>",   '/C'     =>  "</code>",
+  'L'  =>  "<a href='YOU_SHOULD_NEVER_SEE_THIS'>", # ideally never used!
+  '/L' =>  "</a>",
+);
+
+sub changes {
+  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
+     ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
+  } @_;
+}
+sub changes2 {
+  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
+     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_"
+  } @_;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub go { Pod::Simple::HTML->parse_from_file(@ARGV); exit 0 }
+ # Just so we can run from the command line.  No options.
+ #  For that, use perldoc!
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $new = shift->SUPER::new(@_);
+  #$new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->accept_targets( 'html', 'HTML' );
+  $new->accept_codes('VerbatimFormatted');
+  $new->accept_codes(@_to_accept);
+  DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n";
+
+  $new->perldoc_url_prefix(  $Perldoc_URL_Prefix  );
+  $new->perldoc_url_postfix( $Perldoc_URL_Postfix );
+  $new->man_url_prefix(  $Man_URL_Prefix  );
+  $new->man_url_postfix( $Man_URL_Postfix );
+  $new->title_prefix(  $Title_Prefix  );
+  $new->title_postfix( $Title_Postfix );
+
+  $new->html_header_before_title(
+   qq[$Doctype_decl<html><head><title>]
+  );
+  $new->html_header_after_title( join "\n" =>
+    "</title>",
+    $Content_decl,
+    "</head>\n<body class='pod'>",
+    $new->version_tag_comment,
+    "<!-- start doc -->\n",
+  );
+  $new->html_footer( qq[\n<!-- end doc -->\n\n</body></html>\n] );
+  $new->top_anchor( "<a name='___top' class='dummyTopAnchor' ></a>\n" );
+
+  $new->{'Tagmap'} = {%Tagmap};
+
+  return $new;
+}
+
+sub __adjust_html_h_levels {
+  my ($self) = @_;
+  my $Tagmap = $self->{'Tagmap'};
+
+  my $add = $self->html_h_level;
+  return unless defined $add;
+  return if ($self->{'Adjusted_html_h_levels'}||0) == $add;
+
+  $add -= 1;
+  for (1 .. 4) {
+    $Tagmap->{"head$_"}  =~ s/$_/$_ + $add/e;
+    $Tagmap->{"/head$_"} =~ s/$_/$_ + $add/e;
+  }
+}
+
+sub batch_mode_page_object_init {
+  my($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_;
+  DEBUG and print STDERR "Initting $self\n  for $module\n",
+    "  in $infile\n  out $outfile\n  depth $depth\n";
+  $self->batch_mode(1);
+  $self->batch_mode_current_level($depth);
+  return $self;
+}
+
+sub run {
+  my $self = $_[0];
+  return $self->do_middle if $self->bare_output;
+  return
+   $self->do_beginning && $self->do_middle && $self->do_end;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub do_beginning {
+  my $self = $_[0];
+
+  my $title;
+  
+  if(defined $self->force_title) {
+    $title = $self->force_title;
+    DEBUG and print STDERR "Forcing title to be $title\n";
+  } else {
+    # Actually try looking for the title in the document:
+    $title = $self->get_short_title();
+    unless($self->content_seen) {
+      DEBUG and print STDERR "No content seen in search for title.\n";
+      return;
+    }
+    $self->{'Title'} = $title;
+
+    if(defined $title and $title =~ m/\S/) {
+      $title = $self->title_prefix . esc($title) . $self->title_postfix;
+    } else {
+      $title = $self->default_title;    
+      $title = '' unless defined $title;
+      DEBUG and print STDERR "Title defaults to $title\n";
+    }
+  }
+
+  
+  my $after = $self->html_header_after_title  || '';
+  if($self->html_css) {
+    my $link =
+    $self->html_css =~ m/</
+     ? $self->html_css # It's a big blob of markup, let's drop it in
+     : sprintf(        # It's just a URL, so let's wrap it up
+      qq[<link rel="stylesheet" type="text/css" title="pod_stylesheet" href="%s">\n],
+      $self->html_css,
+    );
+    $after =~ s{(</head>)}{$link\n$1}i;  # otherwise nevermind
+  }
+  $self->_add_top_anchor(\$after);
+
+  if($self->html_javascript) {
+    my $link =
+    $self->html_javascript =~ m/</
+     ? $self->html_javascript # It's a big blob of markup, let's drop it in
+     : sprintf(        # It's just a URL, so let's wrap it up
+      qq[<script type="text/javascript" src="%s"></script>\n],
+      $self->html_javascript,
+    );
+    $after =~ s{(</head>)}{$link\n$1}i;  # otherwise nevermind
+  }
+
+  print {$self->{'output_fh'}}
+    $self->html_header_before_title || '',
+    $title, # already escaped
+    $after,
+  ;
+
+  DEBUG and print STDERR "Returning from do_beginning...\n";
+  return 1;
+}
+
+sub _add_top_anchor {
+  my($self, $text_r) = @_;
+  unless($$text_r and $$text_r =~ m/name=['"]___top['"]/) { # a hack
+    $$text_r .= $self->top_anchor || '';
+  }
+  return;
+}
+
+sub version_tag_comment {
+  my $self = shift;
+  return sprintf
+   "<!--\n  generated by %s v%s,\n  using %s v%s,\n  under Perl v%s at %s GMT.\n\n %s\n\n-->\n",
+   esc(
+    ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
+    $], scalar(gmtime),
+   ), $self->_modnote(),
+  ;
+}
+
+sub _modnote {
+  my $class = ref($_[0]) || $_[0];
+  return join "\n   " => grep m/\S/, split "\n",
+
+qq{
+If you want to change this HTML document, you probably shouldn't do that
+by changing it directly.  Instead, see about changing the calling options
+to $class, and/or subclassing $class,
+then reconverting this document from the Pod source.
+When in doubt, email the author of $class for advice.
+See 'perldoc $class' for more info.
+};
+
+}
+
+sub do_end {
+  my $self = $_[0];
+  print {$self->{'output_fh'}}  $self->html_footer || '';
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+# Normally this would just be a call to _do_middle_main_loop -- but we
+#  have to do some elaborate things to emit all the content and then
+#  summarize it and output it /before/ the content that it's a summary of.
+
+sub do_middle {
+  my $self = $_[0];
+  return $self->_do_middle_main_loop unless $self->index;
+
+  if( $self->output_string ) {
+    # An efficiency hack
+    my $out = $self->output_string; #it's a reference to it
+    my $sneakytag = "\f\f\e\e\b\bIndex Here\e\e\b\b\f\f\n";
+    $$out .= $sneakytag;
+    $self->_do_middle_main_loop;
+    $sneakytag = quotemeta($sneakytag);
+    my $index = $self->index_as_html();
+    if( $$out =~ s/$sneakytag/$index/s ) {
+      # Expected case
+      DEBUG and print STDERR "Inserted ", length($index), " bytes of index HTML into $out.\n";
+    } else {
+      DEBUG and print STDERR "Odd, couldn't find where to insert the index in the output!\n";
+      # I don't think this should ever happen.
+    }
+    return 1;
+  }
+
+  unless( $self->output_fh ) {
+    require Carp;
+    Carp::confess("Parser object \$p doesn't seem to have any output object!  I don't know how to deal with that.");
+  }
+
+  # If we get here, we're outputting to a FH.  So we need to do some magic.
+  # Namely, divert all content to a string, which we output after the index.
+  my $fh = $self->output_fh;
+  my $content = '';
+  {
+    # Our horrible bait and switch:
+    $self->output_string( \$content );
+    $self->_do_middle_main_loop;
+    $self->abandon_output_string();
+    $self->output_fh($fh);
+  }
+  print $fh $self->index_as_html();
+  print $fh $content;
+
+  return 1;
+}
+
+###########################################################################
+
+sub index_as_html {
+  my $self = $_[0];
+  # This is meant to be called AFTER the input document has been parsed!
+
+  my $points = $self->{'PSHTML_index_points'} || [];
+  
+  @$points > 1 or return qq[<div class='indexgroupEmpty'></div>\n];
+   # There's no point in having a 0-item or 1-item index, I dare say.
+  
+  my(@out) = qq{\n<div class='indexgroup'>};
+  my $level = 0;
+
+  my( $target_level, $previous_tagname, $tagname, $text, $anchorname, $indent);
+  foreach my $p (@$points, ['head0', '(end)']) {
+    ($tagname, $text) = @$p;
+    $anchorname = $self->section_escape($text);
+    if( $tagname =~ m{^head(\d+)$} ) {
+      $target_level = 0 + $1;
+    } else {  # must be some kinda list item
+      if($previous_tagname =~ m{^head\d+$} ) {
+        $target_level = $level + 1;
+      } else {
+        $target_level = $level;  # no change needed
+      }
+    }
+    
+    # Get to target_level by opening or closing ULs
+    while($level > $target_level)
+     { --$level; push @out, ("  " x $level) . "</ul>"; }
+    while($level < $target_level)
+     { ++$level; push @out, ("  " x ($level-1))
+       . "<ul   class='indexList indexList$level'>"; }
+
+    $previous_tagname = $tagname;
+    next unless $level;
+    
+    $indent = '  '  x $level;
+    push @out, sprintf
+      "%s<li class='indexItem indexItem%s'><a href='#%s'>%s</a>",
+      $indent, $level, esc($anchorname), esc($text)
+    ;
+  }
+  push @out, "</div>\n";
+  return join "\n", @out;
+}
+
+###########################################################################
+
+sub _do_middle_main_loop {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  my $tagmap = $self->{'Tagmap'};
+
+  $self->__adjust_html_h_levels;
+  
+  my($token, $type, $tagname, $linkto, $linktype);
+  my @stack;
+  my $dont_wrap = 0;
+
+  while($token = $self->get_token) {
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    if( ($type = $token->type) eq 'start' ) {
+      if(($tagname = $token->tagname) eq 'L') {
+        $linktype = $token->attr('type') || 'insane';
+        
+        $linkto = $self->do_link($token);
+
+        if(defined $linkto and length $linkto) {
+          esc($linkto);
+            #   (Yes, SGML-escaping applies on top of %-escaping!
+            #   But it's rarely noticeable in practice.)
+          print $fh qq{<a href="$linkto" class="podlink$linktype"\n>};
+        } else {
+          print $fh "<a>"; # Yes, an 'a' element with no attributes!
+        }
+
+      } elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) {
+        print $fh $tagmap->{$tagname} || next;
+
+        my @to_unget;
+        while(1) {
+          push @to_unget, $self->get_token;
+          last if $to_unget[-1]->is_end
+              and $to_unget[-1]->tagname eq $tagname;
+          
+          # TODO: support for X<...>'s found in here?  (maybe hack into linearize_tokens)
+        }
+
+        my $name = $self->linearize_tokens(@to_unget);
+        $name = $self->do_section($name, $token) if defined $name;
+
+        print $fh "<a ";
+        if ($tagname =~ m/^head\d$/s) {
+            print $fh "class='u'", $self->index
+                ? " href='#___top' title='click to go to top of document'\n"
+                : "\n";
+        }
+        
+        if(defined $name) {
+          my $esc = esc(  $self->section_name_tidy( $name ) );
+          print $fh qq[name="$esc"];
+          DEBUG and print STDERR "Linearized ", scalar(@to_unget),
+           " tokens as \"$name\".\n";
+          push @{ $self->{'PSHTML_index_points'} }, [$tagname, $name]
+           if $ToIndex{ $tagname };
+            # Obviously, this discards all formatting codes (saving
+            #  just their content), but ahwell.
+           
+        } else {  # ludicrously long, so nevermind
+          DEBUG and print STDERR "Linearized ", scalar(@to_unget),
+           " tokens, but it was too long, so nevermind.\n";
+        }
+        print $fh "\n>";
+        $self->unget_token(@to_unget);
+
+      } elsif ($tagname eq 'Data') {
+        my $next = $self->get_token;
+        next unless defined $next;
+        unless( $next->type eq 'text' ) {
+          $self->unget_token($next);
+          next;
+        }
+        DEBUG and print STDERR "    raw text ", $next->text, "\n";
+        # The parser sometimes preserves newlines and sometimes doesn't!
+        (my $text = $next->text) =~ s/\n\z//;
+        print $fh $text, "\n";
+        next;
+       
+      } else {
+        if( $tagname =~ m/^over-/s ) {
+          push @stack, '';
+        } elsif( $tagname =~ m/^item-/s and @stack and $stack[-1] ) {
+          print $fh $stack[-1];
+          $stack[-1] = '';
+        }
+        print $fh $tagmap->{$tagname} || next;
+        ++$dont_wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
+          or $tagname eq 'X';
+      }
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    } elsif( $type eq 'end' ) {
+      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
+        if( my $end = pop @stack ) {
+          print $fh $end;
+        }
+      } elsif( $tagname =~ m/^item-/s and @stack) {
+        $stack[-1] = $tagmap->{"/$tagname"};
+        if( $tagname eq 'item-text' and defined(my $next = $self->get_token) ) {
+          $self->unget_token($next);
+          if( $next->type eq 'start' ) {
+            print $fh $tagmap->{"/item-text"},$tagmap->{"item-body"};
+            $stack[-1] = $tagmap->{"/item-body"};
+          }
+        }
+        next;
+      }
+      print $fh $tagmap->{"/$tagname"} || next;
+      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    } elsif( $type eq 'text' ) {
+      esc($type = $token->text);  # reuse $type, why not
+      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap;
+      print $fh $type;
+    }
+
+  }
+  return 1;
+}
+
+###########################################################################
+#
+
+sub do_section {
+  my($self, $name, $token) = @_;
+  return $name;
+}
+
+sub do_link {
+  my($self, $token) = @_;
+  my $type = $token->attr('type');
+  if(!defined $type) {
+    $self->whine("Typeless L!?", $token->attr('start_line'));
+  } elsif( $type eq 'pod') { return $self->do_pod_link($token);
+  } elsif( $type eq 'url') { return $self->do_url_link($token);
+  } elsif( $type eq 'man') { return $self->do_man_link($token);
+  } else {
+    $self->whine("L of unknown type $type!?", $token->attr('start_line'));
+  }
+  return 'FNORG'; # should never get called
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub do_url_link { return $_[1]->attr('to') }
+
+sub do_man_link {
+  my ($self, $link) = @_;
+  my $to = $link->attr('to');
+  my $frag = $link->attr('section');
+
+  return undef unless defined $to and length $to; # should never happen
+
+  $frag = $self->section_escape($frag)
+   if defined $frag and length($frag .= ''); # (stringify)
+
+  DEBUG and print STDERR "Resolving \"$to/$frag\"\n\n";
+
+  return $self->resolve_man_page_link($to, $frag);
+}
+
+
+sub do_pod_link {
+  # And now things get really messy...
+  my($self, $link) = @_;
+  my $to = $link->attr('to');
+  my $section = $link->attr('section');
+  return undef unless(  # should never happen
+    (defined $to and length $to) or
+    (defined $section and length $section)
+  );
+
+  $section = $self->section_escape($section)
+   if defined $section and length($section .= ''); # (stringify)
+
+  DEBUG and printf STDERR "Resolving \"%s\" \"%s\"...\n",
+   $to || "(nil)",  $section || "(nil)";
+   
+  {
+    # An early hack:
+    my $complete_url = $self->resolve_pod_link_by_table($to, $section);
+    if( $complete_url ) {
+      DEBUG > 1 and print STDERR "resolve_pod_link_by_table(T,S) gives ",
+        $complete_url, "\n  (Returning that.)\n";
+      return $complete_url;
+    } else {
+      DEBUG > 4 and print STDERR " resolve_pod_link_by_table(T,S)",
+       " didn't return anything interesting.\n";
+    }
+  }
+
+  if(defined $to and length $to) {
+    # Give this routine first hack again
+    my $there = $self->resolve_pod_link_by_table($to);
+    if(defined $there and length $there) {
+      DEBUG > 1
+       and print STDERR "resolve_pod_link_by_table(T) gives $there\n";
+    } else {
+      $there = 
+        $self->resolve_pod_page_link($to, $section);
+         # (I pass it the section value, but I don't see a
+         #  particular reason it'd use it.)
+      DEBUG > 1 and print STDERR "resolve_pod_page_link gives ", $there || "(nil)", "\n";
+      unless( defined $there and length $there ) {
+        DEBUG and print STDERR "Can't resolve $to\n";
+        return undef;
+      }
+      # resolve_pod_page_link returning undef is how it
+      #  can signal that it gives up on making a link
+    }
+    $to = $there;
+  }
+
+  #DEBUG and print STDERR "So far [", $to||'nil', "] [", $section||'nil', "]\n";
+
+  my $out = (defined $to and length $to) ? $to : '';
+  $out .= "#" . $section if defined $section and length $section;
+  
+  unless(length $out) { # sanity check
+    DEBUG and printf STDERR "Oddly, couldn't resolve \"%s\" \"%s\"...\n",
+     $to || "(nil)",  $section || "(nil)";
+    return undef;
+  }
+
+  DEBUG and print STDERR "Resolved to $out\n";
+  return $out;  
+}
+
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub section_escape {
+  my($self, $section) = @_;
+  return $self->section_url_escape(
+    $self->section_name_tidy($section)
+  );
+}
+
+sub section_name_tidy {
+  my($self, $section) = @_;
+  $section =~ s/^\s+//;
+  $section =~ s/\s+$//;
+  $section =~ tr/ /_/;
+  if ($] ge 5.006) {
+    $section =~ s/[[:cntrl:][:^ascii:]]//g; # drop crazy characters
+  } elsif ('A' eq chr(65)) { # But not on early EBCDIC
+    $section =~ tr/\x00-\x1F\x80-\x9F//d;
+  }
+  $section = $self->unicode_escape_url($section);
+  $section = '_' unless length $section;
+  return $section;
+}
+
+sub section_url_escape  { shift->general_url_escape(@_) }
+sub pagepath_url_escape { shift->general_url_escape(@_) }
+sub manpage_url_escape  { shift->general_url_escape(@_) }
+
+sub general_url_escape {
+  my($self, $string) = @_;
+ 
+  $string =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
+     # express Unicode things as urlencode(utf(orig)).
+  
+  # A pretty conservative escaping, behoovey even for query components
+  #  of a URL (see RFC 2396)
+  
+  if ($] ge 5.007_003) {
+    $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',utf8::native_to_unicode(ord($1)))/eg;
+  } else { # Is broken for non-ASCII platforms on early perls
+    $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
+  }
+   # Yes, stipulate the list without a range, so that this can work right on
+   #  all charsets that this module happens to run under.
+  
+  return $string;
+}
+
+#--------------------------------------------------------------------------
+#
+# Oh look, a yawning portal to Hell!  Let's play touch football right by it!
+#
+
+sub resolve_pod_page_link {
+  # resolve_pod_page_link must return a properly escaped URL
+  my $self = shift;
+  return $self->batch_mode()
+   ? $self->resolve_pod_page_link_batch_mode(@_)
+   : $self->resolve_pod_page_link_singleton_mode(@_)
+  ;
+}
+
+sub resolve_pod_page_link_singleton_mode {
+  my($self, $it) = @_;
+  return undef unless defined $it and length $it;
+  my $url = $self->pagepath_url_escape($it);
+  
+  $url =~ s{::$}{}s; # probably never comes up anyway
+  $url =~ s{::}{/}g unless $self->perldoc_url_prefix =~ m/\?/s; # sane DWIM?
+  
+  return undef unless length $url;
+  return $self->perldoc_url_prefix . $url . $self->perldoc_url_postfix;
+}
+
+sub resolve_pod_page_link_batch_mode {
+  my($self, $to) = @_;
+  DEBUG > 1 and print STDERR " During batch mode, resolving $to ...\n";
+  my @path = grep length($_), split m/::/s, $to, -1;
+  unless( @path ) { # sanity
+    DEBUG and print STDERR "Very odd!  Splitting $to gives (nil)!\n";
+    return undef;
+  }
+  $self->batch_mode_rectify_path(\@path);
+  my $out = join('/', map $self->pagepath_url_escape($_), @path)
+    . $HTML_EXTENSION;
+  DEBUG > 1 and print STDERR " => $out\n";
+  return $out;
+}
+
+sub batch_mode_rectify_path {
+  my($self, $pathbits) = @_;
+  my $level = $self->batch_mode_current_level;
+  $level--; # how many levels up to go to get to the root
+  if($level < 1) {
+    unshift @$pathbits, '.'; # just to be pretty
+  } else {
+    unshift @$pathbits, ('..') x $level;
+  }
+  return;
+}
+
+sub resolve_man_page_link {
+  my ($self, $to, $frag) = @_;
+  my ($page, $section) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/;
+
+  return undef unless defined $page and length $page;
+  $section ||= 1;
+
+  return $self->man_url_prefix . "$section/"
+      . $self->manpage_url_escape($page)
+      . $self->man_url_postfix;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub resolve_pod_link_by_table {
+  # A crazy hack to allow specifying custom L<foo> => URL mappings
+
+  return unless $_[0]->{'podhtml_LOT'};  # An optimizy shortcut
+
+  my($self, $to, $section) = @_;
+
+  # TODO: add a method that actually populates podhtml_LOT from a file?
+
+  if(defined $section) {
+    $to = '' unless defined $to and length $to;
+    return $self->{'podhtml_LOT'}{"$to#$section"}; # quite possibly undef!
+  } else {
+    return $self->{'podhtml_LOT'}{$to};            # quite possibly undef!
+  }
+  return;
+}
+
+###########################################################################
+
+sub linearize_tokens {  # self, tokens
+  my $self = shift;
+  my $out = '';
+  
+  my $t;
+  while($t = shift @_) {
+    if(!ref $t or !UNIVERSAL::can($t, 'is_text')) {
+      $out .= $t; # a string, or some insane thing
+    } elsif($t->is_text) {
+      $out .= $t->text;
+    } elsif($t->is_start and $t->tag eq 'X') {
+      # Ignore until the end of this X<...> sequence:
+      my $x_open = 1;
+      while($x_open) {
+        next if( ($t = shift @_)->is_text );
+        if(   $t->is_start and $t->tag eq 'X') { ++$x_open }
+        elsif($t->is_end   and $t->tag eq 'X') { --$x_open }
+      }
+    }
+  }
+  return undef if length $out > $Linearization_Limit;
+  return $out;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub unicode_escape_url {
+  my($self, $string) = @_;
+  $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg;
+    #  Turn char 1234 into "(1234)"
+  return $string;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub esc { # a function.
+  if(defined wantarray) {
+    if(wantarray) {
+      @_ = splice @_; # break aliasing
+    } else {
+      my $x = shift;
+      if ($] ge 5.007_003) {
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+      } else { # Is broken for non-ASCII platforms on early perls
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+      }
+      return $x;
+    }
+  }
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if (defined $x) {
+      if ($] ge 5.007_003) {
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg
+      } else { # Is broken for non-ASCII platforms on early perls
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg
+      }
+    }
+    # Leave out "- so that "--" won't make it thru in X-generated comments
+    #  with text in them.
+
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return @_;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+1;
+__END__
+
+
+require 5;
+use 5.008;
+## Anything before 5.8.0 is GIMPY!
+## This module is to be use()'d only by Pod::Simple::Transcode
+
+package Pod::Simple::TranscodeSmart;
+use strict;
+use Pod::Simple;
+require Encode;
+use vars qw($VERSION );
+$VERSION = '3.35';
+
+sub is_dumb  {0}
+sub is_smart {1}
+
+sub all_encodings {
+  return Encode::->encodings(':all');
+}
+
+sub encoding_is_available {
+  return Encode::resolve_alias($_[1]);
+}
+
+sub encmodver {
+  return "Encode.pm v" .($Encode::VERSION || '?');
+}
+
+sub make_transcoder {
+  my $e = Encode::find_encoding($_[1]);
+  die "WHAT ENCODING!?!?" unless $e;
+  my $x;
+  return sub {
+    foreach $x (@_) {
+      $x = $e->decode($x) unless Encode::is_utf8($x);
+    }
+    return;
+  };
+}
+
+
+1;
+
+
+
+# A quite dimwitted pod2plaintext that need only know how to format whatever
+# text comes out of Pod::BlackBox's _gen_errata
+
+require 5;
+package Pod::Simple::Checker;
+use strict;
+use Carp ();
+use Pod::Simple::Methody ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION );
+$VERSION = '3.35';
+@ISA = ('Pod::Simple::Methody');
+BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
+          ? \&Pod::Simple::DEBUG
+          : sub() {0}
+      }
+
+use Text::Wrap 98.112902 (); # was 2001.0131, but I don't think we need that
+$Text::Wrap::wrap = 'overflow';
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub any_errata_seen {  # read-only accessor
+  return $_[1]->{'Errata_seen'};
+}
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->{'Thispara'} = '';
+  $new->{'Indent'} = 0;
+  $new->{'Indentstring'} = '   ';
+  $new->{'Errata_seen'} = 0;
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_[1] }
+
+sub start_Para  {  $_[0]{'Thispara'} = '' }
+
+sub start_head1 {
+  if($_[0]{'Errata_seen'}) {
+    $_[0]{'Thispara'} = '';
+  } else {
+    if($_[1]{'errata'}) { # start of errata!
+      $_[0]{'Errata_seen'} = 1;
+      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
+        "$_[0]{'source_filename'} -- " : ''
+    }
+  }
+}
+sub start_head2 {  $_[0]{'Thispara'} = '' }
+sub start_head3 {  $_[0]{'Thispara'} = '' }
+sub start_head4 {  $_[0]{'Thispara'} = '' }
+
+sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
+sub start_item_bullet { $_[0]{'Thispara'} = '* ' }
+sub start_item_number { $_[0]{'Thispara'} = "$_[1]{'number'}. "  }
+sub start_item_text   { $_[0]{'Thispara'} = ''   }
+
+sub start_over_bullet  { ++$_[0]{'Indent'} }
+sub start_over_number  { ++$_[0]{'Indent'} }
+sub start_over_text    { ++$_[0]{'Indent'} }
+sub start_over_block   { ++$_[0]{'Indent'} }
+
+sub   end_over_bullet  { --$_[0]{'Indent'} }
+sub   end_over_number  { --$_[0]{'Indent'} }
+sub   end_over_text    { --$_[0]{'Indent'} }
+sub   end_over_block   { --$_[0]{'Indent'} }
+
+
+# . . . . . Now the actual formatters:
+
+sub end_head1       { $_[0]->emit_par(-4) }
+sub end_head2       { $_[0]->emit_par(-3) }
+sub end_head3       { $_[0]->emit_par(-2) }
+sub end_head4       { $_[0]->emit_par(-1) }
+sub end_Para        { $_[0]->emit_par( 0) }
+sub end_item_bullet { $_[0]->emit_par( 0) }
+sub end_item_number { $_[0]->emit_par( 0) }
+sub end_item_text   { $_[0]->emit_par(-2) }
+
+sub emit_par {
+  return unless $_[0]{'Errata_seen'};
+  my($self, $tweak_indent) = splice(@_,0,2);
+  my $indent = ' ' x ( 2 * $self->{'Indent'} + ($tweak_indent||0) );
+   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0
+
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
+  $out =~ s/$Pod::Simple::nbsp/ /g;
+  print {$self->{'output_fh'}} $out,
+    #"\n"
+  ;
+  $self->{'Thispara'} = '';
+  
+  return;
+}
+
+# . . . . . . . . . . And then off by its lonesome:
+
+sub end_Verbatim  {
+  return unless $_[0]{'Errata_seen'};
+  my $self = shift;
+  $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g;
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+
+  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
+  
+  $self->{'Thispara'} =~ s/^/$i/mg;
+  
+  print { $self->{'output_fh'} }   '', 
+    $self->{'Thispara'},
+    "\n\n"
+  ;
+  $self->{'Thispara'} = '';
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+
+require 5;
+package Pod::Simple::XMLOutStream;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
+$VERSION = '3.35';
+BEGIN {
+  @ISA = ('Pod::Simple');
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
+}
+
+$ATTR_PAD = "\n" unless defined $ATTR_PAD;
+ # Don't mess with this unless you know what you're doing.
+
+$SORT_ATTRS = 0 unless defined $SORT_ATTRS;
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->keep_encoding_directive(1);
+  #$new->accept_codes('VerbatimFormatted');
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  print $fh "<", $_[1];
+  if($SORT_ATTRS) {
+    foreach my $key (sort keys %{$_[2]}) {
+      unless($key =~ m/^~/s) {
+        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+        _xml_escape($value = $_[2]{$key});
+        print $fh $ATTR_PAD, $key, '="', $value, '"';
+      }
+    }
+  } else { # faster
+    while(($key,$value) = each %{$_[2]}) {
+      unless($key =~ m/^~/s) {
+        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+        _xml_escape($value);
+        print $fh $ATTR_PAD, $key, '="', $value, '"';
+      }
+    }
+  }
+  print $fh ">";
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  if(length $_[1]) {
+    my $text = $_[1];
+    _xml_escape($text);
+    print {$_[0]{'output_fh'}} $text;
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}} "</", $_[1], ">";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _xml_escape {
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if ($] ge 5.007_003) {
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+    } else { # Is broken for non-ASCII platforms on early perls
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+    }
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+
+require 5;
+package Pod::Simple::HTMLLegacy;
+use strict;
+
+use vars qw($VERSION);
+use Getopt::Long;
+
+$VERSION = "5.01";
+
+#--------------------------------------------------------------------------
+# 
+# This class is meant to thinly emulate bad old Pod::Html
+#
+# TODO: some basic docs
+
+sub pod2html {
+  my @args = (@_);
+  
+  my( $verbose, $infile, $outfile, $title );
+  my $index = 1;
+ 
+  {
+    my($help);
+
+    my($netscape); # dummy
+    local @ARGV = @args;
+    GetOptions(
+      "help"       => \$help,
+      "verbose!"   => \$verbose,
+      "infile=s"   => \$infile,
+      "outfile=s"  => \$outfile,
+      "title=s"    => \$title,
+      "index!"     => \$index,
+
+      "netscape!"   => \$netscape,
+    ) or return bad_opts(@args);
+    bad_opts(@args) if @ARGV; # it should be all switches!
+    return help_message() if $help;
+  }
+
+  for($infile, $outfile) { $_ = undef unless defined and length }
+  
+  if($verbose) {
+    warn sprintf "%s version %s\n", __PACKAGE__, $VERSION;
+    warn "OK, processed args [@args] ...\n";
+    warn sprintf
+      " Verbose: %s\n Index: %s\n Infile: %s\n Outfile: %s\n Title: %s\n",
+      map defined($_) ? $_ : "(nil)",
+       $verbose,     $index,     $infile,     $outfile,     $title,
+    ;
+    *Pod::Simple::HTML::DEBUG = sub(){1};
+  }
+  require Pod::Simple::HTML;
+  Pod::Simple::HTML->VERSION(3);
+  
+  die "No such input file as $infile\n"
+   if defined $infile and ! -e $infile;
+
+  
+  my $pod = Pod::Simple::HTML->new;
+  $pod->force_title($title) if defined $title;
+  $pod->index($index);
+  return $pod->parse_from_file($infile, $outfile);
+}
+
+#--------------------------------------------------------------------------
+
+sub bad_opts     { die _help_message();         }
+sub help_message { print STDOUT _help_message() }
+
+#--------------------------------------------------------------------------
+
+sub _help_message {
+
+  join '',
+
+"[", __PACKAGE__, " version ", $VERSION, qq~]
+Usage:  pod2html --help --infile=<name> --outfile=<name>
+   --verbose --index --noindex
+
+Options:
+  --help         - prints this message.
+  --[no]index    - generate an index at the top of the resulting html
+                   (default behavior).
+  --infile       - filename for the pod to convert (input taken from stdin
+                   by default).
+  --outfile      - filename for the resulting html file (output sent to
+                   stdout by default).
+  --title        - title that will appear in resulting html file.
+  --[no]verbose  - self-explanatory (off by default).
+
+Note that pod2html is DEPRECATED, and this version implements only
+ some of the options known to older versions.
+For more information, see 'perldoc pod2html'.
+~;
+
+}
+
+1;
+__END__
+
+OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!!
+
+
+require 5;
+package Pod::Simple::PullParserTextToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.35';
+
+sub new {  # Class->new(text);
+  my $class = shift;
+  return bless ['text', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+
+sub text_r { \ $_[0][1] }
+
+1;
+
+__END__
+
+
+require 5;
+package Pod::Simple::Transcode;
+use strict;
+use vars qw($VERSION @ISA);
+$VERSION = '3.35';
+
+BEGIN {
+  if(defined &DEBUG) {;} # Okay
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
+  else { *DEBUG = sub () {0}; }
+}
+
+foreach my $class (
+  'Pod::Simple::TranscodeSmart',
+  'Pod::Simple::TranscodeDumb',
+  '',
+) {
+  $class or die "Couldn't load any encoding classes";
+  DEBUG and print STDERR "About to try loading $class...\n";
+  eval "require $class;";
+  if($@) {
+    DEBUG and print STDERR "Couldn't load $class: $@\n";
+  } else {
+    DEBUG and print STDERR "OK, loaded $class.\n";
+    @ISA = ($class);
+    last;
+  }
+}
+
+sub _blorp { return; } # just to avoid any "empty class" warning
+
+1;
+__END__
+
+
+
+require 5;
+package Pod::Simple::SimpleTree;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
+$VERSION = '3.35';
+BEGIN {
+  @ISA = ('Pod::Simple');
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
+}
+
+__PACKAGE__->_accessorize(
+  'root',   # root of the tree
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start { # self, tagname, attrhash
+  DEBUG > 2 and print STDERR "Handling $_[1] start-event\n";
+  my $x = [$_[1], $_[2]];
+  if($_[0]{'_currpos'}) {
+    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
+    unshift @{ $_[0]{'_currpos'} },    $x; # prefix to stack
+  } else {
+    DEBUG and print STDERR " And oo, it gets to be root!\n";
+    $_[0]{'_currpos'} = [   $_[0]{'root'} = $x   ];
+      # first event!  set to stack, and set as root.
+  }
+  DEBUG > 3 and print STDERR "Stack is now: ",
+    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
+  return;
+}
+
+sub _handle_element_end { # self, tagname
+  DEBUG > 2 and print STDERR "Handling $_[1] end-event\n";
+  shift @{$_[0]{'_currpos'}};
+  DEBUG > 3 and print STDERR "Stack is now: ",
+    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
+  return;
+}
+
+sub _handle_text { # self, text
+  DEBUG > 2 and print STDERR "Handling $_[1] text-event\n";
+  push @{ $_[0]{'_currpos'}[0] }, $_[1];
+  return;
+}
+
+
+# A bit of evil from the black box...  please avert your eyes, kind souls.
+sub _traverse_treelet_bit {
+  DEBUG > 2 and print STDERR "Handling $_[1] paragraph event\n";
+  my $self = shift;
+  push @{ $self->{'_currpos'}[0] }, [@_];
+  return;
+}
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+1;
+__END__
+
+
+require 5;
+package Pod::Simple::PullParserToken;
+ # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
+@ISA = ();
+$VERSION = '3.35';
+use strict;
+
+sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway
+  my $class = shift;
+  return bless [@_], ref($class) || $class;
+}
+
+sub type { $_[0][0] }  # Can't change the type of an object
+sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }
+
+sub is_start { $_[0][0] eq 'start' }
+sub is_end   { $_[0][0] eq 'end'   }
+sub is_text  { $_[0][0] eq 'text'  }
+
+1;
+__END__
+
+sub dump { '[' . _esc( @{ $_[0] } ) . ']' }
+
+# JUNK:
+
+sub _esc {
+  return '' unless @_;
+  my @out;
+  foreach my $in (@_) {
+    push @out, '"' . $in . '"';
+    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
+      sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1))
+    /eg;
+  }
+  return join ', ', @out;
+}
+
+
+__END__
+
+
+require 5;
+## This module is to be use()'d only by Pod::Simple::Transcode
+
+package Pod::Simple::TranscodeDumb;
+use strict;
+use vars qw($VERSION %Supported);
+$VERSION = '3.35';
+# This module basically pretends it knows how to transcode, except
+#  only for null-transcodings!  We use this when Encode isn't
+#  available.
+
+%Supported = (
+  'ascii'       => 1,
+  'ascii-ctrl'  => 1,
+  'iso-8859-1'  => 1,
+  'cp1252'      => 1,
+  'null'        => 1,
+  'latin1'      => 1,
+  'latin-1'     => 1,
+  %Supported,
+);
+
+sub is_dumb  {1}
+sub is_smart {0}
+
+sub all_encodings {
+  return sort keys %Supported;
+}
+
+sub encoding_is_available {
+  return exists $Supported{lc $_[1]};
+}
+
+sub encmodver {
+  return __PACKAGE__ . " v" .($VERSION || '?');
+}
+
+sub make_transcoder {
+    my ($e) = $_[1];
+    die "WHAT ENCODING!?!?" unless $e;
+    # No-op for all but CP1252.
+    return sub {;} if $e !~ /^cp-?1252$/i;
+
+    # Replace CP1252 nerbles with their ASCII equivalents.
+    return sub {
+        # Copied from Encode::ZapCP1252.
+        my %ascii_for = (
+            # http://en.wikipedia.org/wiki/Windows-1252
+            "\x80" => 'e',    # EURO SIGN
+            "\x82" => ',',    # SINGLE LOW-9 QUOTATION MARK
+            "\x83" => 'f',    # LATIN SMALL LETTER F WITH HOOK
+            "\x84" => ',,',   # DOUBLE LOW-9 QUOTATION MARK
+            "\x85" => '...',  # HORIZONTAL ELLIPSIS
+            "\x86" => '+',    # DAGGER
+            "\x87" => '++',   # DOUBLE DAGGER
+            "\x88" => '^',    # MODIFIER LETTER CIRCUMFLEX ACCENT
+            "\x89" => '%',    # PER MILLE SIGN
+            "\x8a" => 'S',    # LATIN CAPITAL LETTER S WITH CARON
+            "\x8b" => '<',    # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+            "\x8c" => 'OE',   # LATIN CAPITAL LIGATURE OE
+            "\x8e" => 'Z',    # LATIN CAPITAL LETTER Z WITH CARON
+            "\x91" => "'",    # LEFT SINGLE QUOTATION MARK
+            "\x92" => "'",    # RIGHT SINGLE QUOTATION MARK
+            "\x93" => '"',    # LEFT DOUBLE QUOTATION MARK
+            "\x94" => '"',    # RIGHT DOUBLE QUOTATION MARK
+            "\x95" => '*',    # BULLET
+            "\x96" => '-',    # EN DASH
+            "\x97" => '--',   # EM DASH
+            "\x98" => '~',    # SMALL TILDE
+            "\x99" => '(tm)', # TRADE MARK SIGN
+            "\x9a" => 's',    # LATIN SMALL LETTER S WITH CARON
+            "\x9b" => '>',    # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+            "\x9c" => 'oe',   # LATIN SMALL LIGATURE OE
+            "\x9e" => 'z',    # LATIN SMALL LETTER Z WITH CARON
+            "\x9f" => 'Y',    # LATIN CAPITAL LETTER Y WITH DIAERESIS
+        );
+
+        s{([\x80-\x9f])}{$ascii_for{$1} || $1}emxsg for @_;
+  };
+}
+
+
+1;
+
+
+package Pod::Perldoc::ToChecker;
+use strict;
+use warnings;
+use vars qw(@ISA);
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+# Pick our superclass...
+#
+eval 'require Pod::Simple::Checker';
+if($@) {
+  require Pod::Checker;
+  @ISA = ('Pod::Checker');
+} else {
+  @ISA = ('Pod::Simple::Checker');
+}
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+sub if_zero_length {
+  my( $self, $file, $tmp, $tmpfd ) = @_;
+  print "No Pod errors in $file\n";
+}
+
+
+1;
+
+__END__
+
+
+package Pod::Perldoc::ToRtf;
+use strict;
+use warnings;
+use parent qw( Pod::Simple::RTF );
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+sub is_pageable        { 0 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'rtf' }
+
+sub page_for_perldoc {
+  my($self, $tempfile, $perldoc) = @_;
+  return unless $perldoc->IS_MSWin32;
+
+  my $rtf_pager = $ENV{'RTFREADER'} || 'write.exe';
+
+  $perldoc->aside( "About to launch <\"$rtf_pager\" \"$tempfile\">\n" );
+
+  return 1 if system( qq{"$rtf_pager"}, qq{"$tempfile"} ) == 0;
+  return 0;
+}
+
+1;
+__END__
+
+
+package Pod::Perldoc::ToText;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { shift->_perldoc_elem('width'   , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+
+package Pod::Perldoc::ToANSI;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text::Color ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { shift->_perldoc_elem('width'   , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text::Color ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text::Color->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+package Pod::Perldoc::ToXml;
+use strict;
+use warnings;
+use vars qw($VERSION);
+
+use parent qw( Pod::Simple::XMLOutStream );
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+sub is_pageable        { 0 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'xml' }
+
+1;
+__END__
+
+
+package Pod::Perldoc::GetOptsOO;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+BEGIN { # Make a DEBUG constant ASAP
+  *DEBUG = defined( &Pod::Perldoc::DEBUG )
+   ? \&Pod::Perldoc::DEBUG
+   : sub(){10};
+}
+
+
+sub getopts {
+  my($target, $args, $truth) = @_;
+
+  $args ||= \@ARGV;
+
+  $target->aside(
+    "Starting switch processing.  Scanning arguments [@$args]\n"
+  ) if $target->can('aside');
+
+  return unless @$args;
+
+  $truth = 1 unless @_ > 2;
+
+  DEBUG > 3 and print "   Truth is $truth\n";
+
+
+  my $error_count = 0;
+
+  while( @$args  and  ($_ = $args->[0]) =~ m/^-(.)(.*)/s ) {
+    my($first,$rest) = ($1,$2);
+    if ($_ eq '--') {	# early exit if "--"
+      shift @$args;
+      last;
+    }
+    if ($first eq '-' and $rest) {      # GNU style long param names
+      ($first, $rest) = split '=', $rest, 2;
+    }
+    my $method = "opt_${first}_with";
+    if( $target->can($method) ) {  # it's argumental
+      if($rest eq '') {   # like -f bar
+        shift @$args;
+        $target->warn( "Option $first needs a following argument!\n" ) unless @$args;
+        $rest = shift @$args;
+      } else {            # like -fbar  (== -f bar)
+        shift @$args;
+      }
+
+      DEBUG > 3 and print " $method => $rest\n";
+      $target->$method( $rest );
+
+    # Otherwise, it's not argumental...
+    } else {
+
+      if( $target->can( $method = "opt_$first" ) ) {
+        DEBUG > 3 and print " $method is true ($truth)\n";
+        $target->$method( $truth );
+
+      # Otherwise it's an unknown option...
+
+      } elsif( $target->can('handle_unknown_option') ) {
+        DEBUG > 3
+         and print " calling handle_unknown_option('$first')\n";
+
+        $error_count += (
+          $target->handle_unknown_option( $first ) || 0
+        );
+
+      } else {
+        ++$error_count;
+        $target->warn( "Unknown option: $first\n" );
+      }
+
+      if($rest eq '') {   # like -f
+        shift @$args
+      } else {            # like -fbar  (== -f -bar )
+        DEBUG > 2 and print "   Setting args->[0] to \"-$rest\"\n";
+        $args->[0] = "-$rest";
+      }
+    }
+  }
+
+
+  $target->aside(
+    "Ending switch processing.  Args are [@$args] with $error_count errors.\n"
+  ) if $target->can('aside');
+
+  $error_count == 0;
+}
+
+1;
+
+__END__
+
+package Pod::Perldoc::ToNroff;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+# This is unlike ToMan.pm in that it emits the raw nroff source!
+
+sub is_pageable        { 1 }  # well, if you ask for it...
+sub write_with_binmode { 0 }
+sub output_extension   { 'man' }
+
+use Pod::Man ();
+
+sub center          { shift->_perldoc_elem('center'         , @_) }
+sub date            { shift->_perldoc_elem('date'           , @_) }
+sub fixed           { shift->_perldoc_elem('fixed'          , @_) }
+sub fixedbold       { shift->_perldoc_elem('fixedbold'      , @_) }
+sub fixeditalic     { shift->_perldoc_elem('fixeditalic'    , @_) }
+sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) }
+sub quotes          { shift->_perldoc_elem('quotes'         , @_) }
+sub release         { shift->_perldoc_elem('release'        , @_) }
+sub section         { shift->_perldoc_elem('section'        , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+  my $file = $_[0];
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Man ",
+    $Pod::Man::VERSION ? "(v$Pod::Man::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Man->new(@options)->parse_from_file(@_);
+}
+
+1;
+__END__
+
+
+package Pod::Perldoc::ToTerm;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text::Termcap ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { 
+    my $self = shift;
+    $self->_perldoc_elem('width' , @_) ||
+    $self->_get_columns_from_manwidth  ||
+	$self->_get_columns_from_stty      ||
+	$self->_get_default_width;
+}
+
+sub pager_configuration {
+  my($self, $pager, $perldoc) = @_;
+
+  # do not modify anything on Windows or DOS
+  return if ( $perldoc->is_mswin32 || $perldoc->is_dos );
+
+  if ( $pager =~ /less/ ) {
+    $self->_maybe_modify_environment('LESS');
+  }
+  elsif ( $pager =~ /more/ ) {
+    $self->_maybe_modify_environment('MORE');
+  }
+
+  return;
+}
+
+sub _maybe_modify_environment {
+  my($self, $name) = @_;
+
+  if ( ! defined $ENV{$name} ) {
+    $ENV{$name} = "-R";
+  }
+
+  # if the environment is set, don't modify
+  # anything
+
+}
+
+sub _get_stty { `stty -a` }
+
+sub _get_columns_from_stty {
+	my $output = $_[0]->_get_stty;
+
+	if(    $output =~ /\bcolumns\s+(\d+)/ )    { return $1; }
+	elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1; }
+	else                                       { return  0 }
+	}
+
+sub _get_columns_from_manwidth {
+	my( $self ) = @_;
+
+	return 0 unless defined $ENV{MANWIDTH};
+
+	unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
+		$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} == 0 ) {
+		$self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 }
+
+	return 0;
+	}
+
+sub _get_default_width {
+	76
+	}
+
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  $self->{width} = $self->width();
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text::Termcap ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::Termcap::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text::Termcap->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+package Pod::Perldoc::ToPod;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'pod' }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my( $self, $in, $outfh ) = @_;
+
+  open(IN, "<", $in) or $self->die( "Can't read-open $in: $!\nAborting" );
+
+  my $cut_mode = 1;
+
+  # A hack for finding things between =foo and =cut, inclusive
+  local $_;
+  while (<IN>) {
+    if(  m/^=(\w+)/s ) {
+      if($cut_mode = ($1 eq 'cut')) {
+        print $outfh "\n=cut\n\n";
+         # Pass thru the =cut line with some harmless
+         #  (and occasionally helpful) padding
+      }
+    }
+    next if $cut_mode;
+    print $outfh $_ or $self->die( "Can't print to $outfh: $!" );
+  }
+
+  close IN or $self->die( "Can't close $in: $!" );
+  return;
+}
+
+1;
+__END__
+
+
+package Pod::Perldoc::ToTk;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' } # doesn't matter
+sub if_zero_length { }  # because it will be 0-length!
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+# TODO: document these and their meanings...
+sub tree      { shift->_perldoc_elem('tree'    , @_) }
+sub tk_opt    { shift->_perldoc_elem('tk_opt'  , @_) }
+sub forky     { shift->_perldoc_elem('forky'   , @_) }
+
+use Pod::Perldoc ();
+use File::Spec::Functions qw(catfile);
+
+BEGIN{ # Tk is not core, but this is
+  eval { require Tk } ||
+  __PACKAGE__->die( <<"HERE" );
+You must have the Tk module to use Pod::Perldoc::ToTk.
+If you have it installed, ensure it's in your Perl library
+path.
+HERE
+
+  __PACKAGE__->die(
+    __PACKAGE__,
+    " doesn't work nice with Tk.pm version $Tk::VERSION"
+    ) if $Tk::VERSION eq '800.003';
+  }
+
+
+BEGIN { eval { require Tk::FcyEntry; }; };
+BEGIN{ # Tk::Pod is not core, but this is
+  eval { require Tk::Pod } ||
+  __PACKAGE__->die( <<"HERE" );
+You must have the Tk::Pod module to use Pod::Perldoc::ToTk.
+If you have it installed, ensure it's in your Perl library
+path.
+HERE
+  }
+
+# The following was adapted from "tkpod" in the Tk-Pod dist.
+
+sub parse_from_file {
+
+    my($self, $Input_File) = @_;
+    if($self->{'forky'}) {
+      return if fork;  # i.e., parent process returns
+    }
+
+    $Input_File =~ s{\\}{/}g
+     if $self->is_mswin32 or $self->is_dos
+     # and maybe OS/2
+    ;
+
+    my($tk_opt, $tree);
+    $tree   = $self->{'tree'  };
+    $tk_opt = $self->{'tk_opt'};
+
+    #require Tk::ErrorDialog;
+
+    # Add 'Tk' subdirectories to search path so, e.g.,
+    # 'Scrolled' will find doc in 'Tk/Scrolled'
+
+    if( $tk_opt ) {
+      push @INC, grep -d $_, map catfile($_,'Tk'), @INC;
+    }
+
+    my $mw = MainWindow->new();
+    #eval 'use blib "/home/e/eserte/src/perl/Tk-App";require Tk::App::Debug';
+    $mw->withdraw;
+
+    # CDE use Font Settings if available
+    my $ufont = $mw->optionGet('userFont','UserFont');     # fixed width
+    my $sfont = $mw->optionGet('systemFont','SystemFont'); # proportional
+    if (defined($ufont) and defined($sfont)) {
+        foreach ($ufont, $sfont) { s/:$//; };
+        $mw->optionAdd('*Font',       $sfont);
+        $mw->optionAdd('*Entry.Font', $ufont);
+        $mw->optionAdd('*Text.Font',  $ufont);
+    }
+
+    $mw->optionAdd('*Menu.tearOff', $Tk::platform ne 'MSWin32' ? 1 : 0);
+
+    $mw->Pod(
+      '-file' => $Input_File,
+      (($Tk::Pod::VERSION >= 4) ? ('-tree' => $tree) : ())
+    )->focusNext;
+
+    # xxx dirty but it works. A simple $mw->destroy if $mw->children
+    # does not work because Tk::ErrorDialogs could be created.
+    # (they are withdrawn after Ok instead of destory'ed I guess)
+
+    if ($mw->children) {
+        $mw->repeat(1000, sub {
+                    # ErrorDialog is withdrawn not deleted :-(
+                    foreach ($mw->children) {
+                            return if "$_" =~ /^Tk::Pod/  # ->isa('Tk::Pod')
+                    }
+                    $mw->destroy;
+                });
+    } else {
+        $mw->destroy;
+    }
+    #$mw->WidgetDump;
+    MainLoop();
+
+    exit if $self->{'forky'}; # we were the child!  so exit now!
+    return;
+}
+
+1;
+__END__
+
+
+
+package Pod::Perldoc::BaseTo;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+use Carp                  qw(croak carp);
+use Config                qw(%Config);
+use File::Spec::Functions qw(catfile);
+
+sub is_pageable        { '' }
+sub write_with_binmode {  1 }
+
+sub output_extension   { 'txt' }  # override in subclass!
+
+# sub new { my $self = shift; ...  }
+# sub parse_from_file( my($class, $in, $out) = ...; ... }
+
+#sub new { return bless {}, ref($_[0]) || $_[0] }
+
+# this is also in Perldoc.pm, but why look there when you're a
+# subclass of this?
+sub TRUE  () {1}
+sub FALSE () {return}
+
+BEGIN {
+ *is_vms     = $^O eq 'VMS'      ? \&TRUE : \&FALSE unless defined &is_vms;
+ *is_mswin32 = $^O eq 'MSWin32'  ? \&TRUE : \&FALSE unless defined &is_mswin32;
+ *is_dos     = $^O eq 'dos'      ? \&TRUE : \&FALSE unless defined &is_dos;
+ *is_os2     = $^O eq 'os2'      ? \&TRUE : \&FALSE unless defined &is_os2;
+ *is_cygwin  = $^O eq 'cygwin'   ? \&TRUE : \&FALSE unless defined &is_cygwin;
+ *is_linux   = $^O eq 'linux'    ? \&TRUE : \&FALSE unless defined &is_linux;
+ *is_hpux    = $^O =~ m/hpux/    ? \&TRUE : \&FALSE unless defined &is_hpux;
+ *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd;
+ *is_freebsd = $^O =~ m/freebsd/ ? \&TRUE : \&FALSE unless defined &is_freebsd;
+ *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+}
+
+sub _perldoc_elem {
+  my($self, $name) = splice @_,0,2;
+  if(@_) {
+    $self->{$name} = $_[0];
+  } else {
+    $self->{$name};
+  }
+}
+
+sub debugging {
+	my( $self, @messages ) = @_;
+
+    ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() )
+	}
+
+sub debug {
+	my( $self, @messages ) = @_;
+	return unless $self->debugging;
+	print STDERR map { "DEBUG $_" } @messages;
+	}
+
+sub warn {
+	my( $self, @messages ) = @_;
+	carp join "\n", @messages, '';
+	}
+
+sub die {
+	my( $self, @messages ) = @_;
+	croak join "\n", @messages, '';
+	}
+
+sub _get_path_components {
+	my( $self ) = @_;
+
+	my @paths = split /\Q$Config{path_sep}/, $ENV{PATH};
+
+	return @paths;
+	}
+
+sub _find_executable_in_path {
+	my( $self, $program ) = @_;
+
+	my @found = ();
+	foreach my $dir ( $self->_get_path_components ) {
+		my $binary = catfile( $dir, $program );
+		$self->debug( "Looking for $binary\n" );
+		next unless -e $binary;
+		unless( -x $binary ) {
+			$self->warn( "Found $binary but it's not executable. Skipping.\n" );
+			next;
+			}
+		$self->debug( "Found $binary\n" );
+		push @found, $binary;
+		}
+
+	return @found;
+	}
+
+1;
+
+__END__
+
+require 5.006;
+package Pod::Perldoc::ToMan;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.28';
+
+use File::Spec::Functions qw(catfile);
+use Pod::Man 2.18;
+# This class is unlike ToText.pm et al, because we're NOT paging thru
+# the output in our particular format -- we make the output and
+# then we run nroff (or whatever) on it, and then page thru the
+# (plaintext) output of THAT!
+
+sub SUCCESS () { 1 }
+sub FAILED  () { 0 }
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+sub __filter_nroff  { shift->_perldoc_elem('__filter_nroff'  , @_) }
+sub __nroffer       { shift->_perldoc_elem('__nroffer'       , @_) }
+sub __bindir        { shift->_perldoc_elem('__bindir'        , @_) }
+sub __pod2man       { shift->_perldoc_elem('__pod2man'       , @_) }
+sub __output_file   { shift->_perldoc_elem('__output_file'   , @_) }
+
+sub center          { shift->_perldoc_elem('center'         , @_) }
+sub date            { shift->_perldoc_elem('date'           , @_) }
+sub fixed           { shift->_perldoc_elem('fixed'          , @_) }
+sub fixedbold       { shift->_perldoc_elem('fixedbold'      , @_) }
+sub fixeditalic     { shift->_perldoc_elem('fixeditalic'    , @_) }
+sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) }
+sub name            { shift->_perldoc_elem('name'           , @_) }
+sub quotes          { shift->_perldoc_elem('quotes'         , @_) }
+sub release         { shift->_perldoc_elem('release'        , @_) }
+sub section         { shift->_perldoc_elem('section'        , @_) }
+
+sub new {
+	my( $either ) = shift;
+	my $self = bless {}, ref($either) || $either;
+	$self->init( @_ );
+	return $self;
+	}
+
+sub init {
+	my( $self, @args ) = @_;
+
+	unless( $self->__nroffer ) {
+		my $roffer = $self->_find_roffer( $self->_roffer_candidates );
+		$self->debug( "Using $roffer\n" );
+		$self->__nroffer( $roffer );
+		}
+    else {
+	    $self->debug( "__nroffer is " . $self->__nroffer() . "\n" );
+        }
+
+	$self->_check_nroffer;
+	}
+
+sub _roffer_candidates {
+	my( $self ) = @_;
+
+	if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+	else                    { qw( groff nroff mandoc ) }
+	}
+
+sub _find_roffer {
+	my( $self, @candidates ) = @_;
+
+	my @found = ();
+	foreach my $candidate ( @candidates ) {
+		push @found, $self->_find_executable_in_path( $candidate );
+		}
+
+	return wantarray ? @found : $found[0];
+	}
+
+sub _check_nroffer {
+	return 1;
+	# where is it in the PATH?
+
+	# is it executable?
+
+	# what is its real name?
+
+	# what is its version?
+
+	# does it support the flags we need?
+
+	# is it good enough for us?
+	}
+
+sub _get_stty { `stty -a` }
+
+sub _get_columns_from_stty {
+	my $output = $_[0]->_get_stty;
+
+	if(    $output =~ /\bcolumns\s+(\d+)/ )    { return $1 }
+	elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1 }
+	else                                       { return  0 }
+	}
+
+sub _get_columns_from_manwidth {
+	my( $self ) = @_;
+
+	return 0 unless defined $ENV{MANWIDTH};
+
+	unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
+		$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} == 0 ) {
+		$self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 }
+
+	return 0;
+	}
+
+sub _get_default_width {
+	73
+	}
+
+sub _get_columns {
+	$_[0]->_get_columns_from_manwidth ||
+	$_[0]->_get_columns_from_stty     ||
+	$_[0]->_get_default_width;
+	}
+
+sub _get_podman_switches {
+	my( $self ) = @_;
+
+	my @switches = map { $_, $self->{$_} } grep !m/^_/s, keys %$self;
+
+    # There needs to be a cleaner way to handle setting
+    # the UTF-8 flag, but for now, comment out this
+    # line because it often does the wrong thing.
+    #
+    # See RT #77465
+    #
+    #push @switches, 'utf8' => 1;
+
+	$self->debug( "Pod::Man switches are [@switches]\n" );
+
+	return @switches;
+	}
+
+sub _parse_with_pod_man {
+	my( $self, $file ) = @_;
+
+	#->output_fh and ->output_string from Pod::Simple aren't
+	# working, apparently, so there's this ugly hack:
+	local *STDOUT;
+	open STDOUT, '>', $self->{_text_ref};
+	my $parser = Pod::Man->new( $self->_get_podman_switches );
+	$self->debug( "Parsing $file\n" );
+	$parser->parse_from_file( $file );
+	$self->debug( "Done parsing $file\n" );
+	close STDOUT;
+
+	$self->die( "No output from Pod::Man!\n" )
+		unless length $self->{_text_ref};
+
+	$self->_save_pod_man_output if $self->debugging;
+
+	return SUCCESS;
+	}
+
+sub _save_pod_man_output {
+	my( $self, $fh ) = @_;
+
+	$fh = do {
+		my $file = "podman.out.$$.txt";
+		$self->debug( "Writing $file with Pod::Man output\n" );
+		open my $fh2, '>', $file;
+		$fh2;
+		} unless $fh;
+
+	print { $fh } ${ $self->{_text_ref} };
+	}
+
+sub _have_groff_with_utf8 {
+	my( $self ) = @_;
+
+	return 0 unless $self->_is_groff;
+	my $roffer = $self->__nroffer;
+
+	my $minimum_groff_version = '1.20.1';
+
+	my $version_string = `$roffer -v`;
+	my( $version ) = $version_string =~ /\(?groff\)? version (\d+\.\d+(?:\.\d+)?)/;
+	$self->debug( "Found groff $version\n" );
+
+	# is a string comparison good enough?
+	if( $version lt $minimum_groff_version ) {
+		$self->warn(
+			"You have an old groff." .
+			" Update to version $minimum_groff_version for good Unicode support.\n" .
+			"If you don't upgrade, wide characters may come out oddly.\n"
+			 );
+		}
+
+	$version ge $minimum_groff_version;
+	}
+
+sub _have_mandoc_with_utf8 {
+	my( $self ) = @_;
+
+       $self->_is_mandoc and not system 'mandoc -Tlocale -V > /dev/null 2>&1';
+	}
+
+sub _collect_nroff_switches {
+	my( $self ) = shift;
+
+    my @render_switches = ('-man', $self->_get_device_switches);
+
+	# Thanks to Brendan O'Dea for contributing the following block
+	if( $self->_is_roff and -t STDOUT and my ($cols) = $self->_get_columns ) {
+		my $c = $cols * 39 / 40;
+		$cols = $c > $cols - 2 ? $c : $cols -2;
+		push @render_switches, '-rLL=' . (int $c) . 'n' if $cols > 80;
+		}
+
+	# I hear persistent reports that adding a -c switch to $render
+	# solves many people's problems.  But I also hear that some mans
+	# don't have a -c switch, so that unconditionally adding it here
+	# would presumably be a Bad Thing   -- sburke@cpan.org
+    push @render_switches, '-c' if( $self->_is_roff and $self->is_cygwin );
+
+	return @render_switches;
+	}
+
+sub _get_device_switches {
+	my( $self ) = @_;
+
+	   if( $self->_is_nroff  )             { qw()              }
+	elsif( $self->_have_groff_with_utf8 )  { qw(-Kutf8 -Tutf8) }
+	elsif( $self->_is_ebcdic )             { qw(-Tcp1047)      }
+	elsif( $self->_have_mandoc_with_utf8 ) { qw(-Tlocale)      }
+	elsif( $self->_is_mandoc )             { qw()              }
+	else                                   { qw(-Tlatin1)      }
+	}
+
+sub _is_roff {
+	my( $self ) = @_;
+
+	$self->_is_nroff or $self->_is_groff;
+	}
+
+sub _is_nroff {
+	my( $self ) = @_;
+
+	$self->__nroffer =~ /\bnroff\b/;
+	}
+
+sub _is_groff {
+	my( $self ) = @_;
+
+	$self->__nroffer =~ /\bgroff\b/;
+	}
+
+sub _is_mandoc {
+	my ( $self ) = @_;
+
+	$self->__nroffer =~ /\bmandoc\b/;
+	}
+
+sub _is_ebcdic {
+	my( $self ) = @_;
+
+	return 0;
+	}
+	
+sub _filter_through_nroff {
+	my( $self ) = shift;
+	$self->debug( "Filtering through " . $self->__nroffer() . "\n" );
+
+    # Maybe someone set rendering switches as part of the opt_n value
+    # Deal with that here.
+
+    my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_\.-]+)\b(.+)?\z/;
+
+    $self->die("no nroffer!?") unless $render;
+    my @render_switches = $self->_collect_nroff_switches;
+
+    if ( $switches ) {
+        # Eliminate whitespace 
+        $switches =~ s/\s//g;
+
+        # Then separate the switches with a zero-width positive 
+        # lookahead on the dash.
+        #
+        # See:
+        # http://www.effectiveperlprogramming.com/blog/1411
+        # for a good discussion of this technique
+
+        push @render_switches, split(/(?=-)/, $switches);
+        }
+
+	$self->debug( "render is $render\n" );
+	$self->debug( "render options are @render_switches\n" );
+
+	require Symbol;
+	require IPC::Open3;
+	require IO::Handle;
+
+	my $pid = IPC::Open3::open3(
+		my $writer,
+		my $reader,
+		my $err = Symbol::gensym(),
+		$render,
+		@render_switches
+		);
+
+	$reader->autoflush(1);
+
+	use IO::Select;
+	my $selector = IO::Select->new( $reader );
+
+	$self->debug( "Writing to pipe to $render\n" );
+
+	my $offset = 0;
+	my $chunk_size = 4096;
+	my $length = length( ${ $self->{_text_ref} } );
+	my $chunks = $length / $chunk_size;
+	my $done;
+	my $buffer;
+	while( $offset <= $length ) {
+		$self->debug( "Writing chunk $chunks\n" ); $chunks++;
+		syswrite $writer, ${ $self->{_text_ref} }, $chunk_size, $offset
+			or $self->die( $! );
+		$offset += $chunk_size;
+		$self->debug( "Checking read\n" );
+		READ: {
+			last READ unless $selector->can_read( 0.01 );
+			$self->debug( "Reading\n" );
+			my $bytes = sysread $reader, $buffer, 4096;
+			$self->debug( "Read $bytes bytes\n" );
+			$done .= $buffer;
+			$self->debug( sprintf "Output is %d bytes\n",
+				length $done
+				);
+			next READ;
+			}
+		}
+	close $writer;
+	$self->debug( "Done writing\n" );
+
+	# read any leftovers
+	$done .= do { local $/; <$reader> };
+	$self->debug( sprintf "Done reading. Output is %d bytes\n",
+		length $done
+		);
+
+	if( $? ) {
+		$self->warn( "Error from pipe to $render!\n" );
+		$self->debug( 'Error: ' . do { local $/; <$err> } );
+		}
+
+
+	close $reader;
+	if( my $err = $? ) {
+		$self->debug(
+			"Nonzero exit ($?) while running `$render @render_switches`.\n" .
+			"Falling back to Pod::Perldoc::ToPod\n"
+			);
+		return $self->_fallback_to_pod( @_ );
+		}
+
+	$self->debug( "Output:\n----\n$done\n----\n" );
+
+	${ $self->{_text_ref} } = $done;
+
+	return length ${ $self->{_text_ref} } ? SUCCESS : FAILED;
+	}
+
+sub parse_from_file {
+	my( $self, $file, $outfh) = @_;
+
+	# We have a pipeline of filters each affecting the reference
+	# in $self->{_text_ref}
+	$self->{_text_ref} = \my $output;
+
+	$self->_parse_with_pod_man( $file );
+	# so far, nroff is an external command so we ensure it worked
+	my $result = $self->_filter_through_nroff;
+	return $self->_fallback_to_pod( @_ ) unless $result == SUCCESS;
+
+	$self->_post_nroff_processing;
+
+	print { $outfh } $output or
+		$self->die( "Can't print to $$self{__output_file}: $!" );
+
+	return;
+	}
+
+sub _fallback_to_pod {
+	my( $self, @args ) = @_;
+	$self->warn( "Falling back to Pod because there was a problem!\n" );
+	require Pod::Perldoc::ToPod;
+	return  Pod::Perldoc::ToPod->new->parse_from_file(@_);
+	}
+
+# maybe there's a user setting we should check?
+sub _get_tab_width { 4 }
+
+sub _expand_tabs {
+	my( $self ) = @_;
+
+	my $tab_width = ' ' x $self->_get_tab_width;
+
+	${ $self->{_text_ref} } =~ s/\t/$tab_width/g;
+	}
+
+sub _post_nroff_processing {
+	my( $self ) = @_;
+
+	if( $self->is_hpux ) {
+	    $self->debug( "On HP-UX, I'm going to expand tabs for you\n" );
+		# this used to be a pipe to `col -x` for HP-UX
+		$self->_expand_tabs;
+		}
+
+	if( $self->{'__filter_nroff'} ) {
+		$self->debug( "filter_nroff is set, so filtering\n" );
+		$self->_remove_nroff_header;
+		$self->_remove_nroff_footer;
+		}
+	else {
+		$self->debug( "filter_nroff is not set, so not filtering\n" );
+		}
+
+	$self->_handle_unicode;
+
+	return 1;
+	}
+
+# I don't think this does anything since there aren't two consecutive
+# newlines in the Pod::Man output
+sub _remove_nroff_header {
+	my( $self ) = @_;
+	$self->debug( "_remove_nroff_header is still a stub!\n" );
+	return 1;
+
+#  my @data = split /\n{2,}/, shift;
+#  shift @data while @data and $data[0] !~ /\S/; # Go to header
+#  shift @data if @data and $data[0] =~ /Contributed\s+Perl/; # Skip header
+	}
+
+# I don't think this does anything since there aren't two consecutive
+# newlines in the Pod::Man output
+sub _remove_nroff_footer {
+	my( $self ) = @_;
+	$self->debug( "_remove_nroff_footer is still a stub!\n" );
+	return 1;
+	${ $self->{_text_ref} } =~ s/\n\n+.*\w.*\Z//m;
+
+#  my @data = split /\n{2,}/, shift;
+#  pop @data if @data and $data[-1] =~ /^\w/; # Skip footer, like
+        # 28/Jan/99 perl 5.005, patch 53 1
+	}
+
+sub _unicode_already_handled {
+	my( $self ) = @_;
+
+	$self->_have_groff_with_utf8 ||
+	1  # so, we don't have a case that needs _handle_unicode
+	;
+	}
+
+sub _handle_unicode {
+# this is the job of preconv
+# we don't need this with groff 1.20 and later.
+	my( $self ) = @_;
+
+	return 1 if $self->_unicode_already_handled;
+
+	require Encode;
+
+	# it's UTF-8 here, but we need character data
+	my $text = Encode::decode( 'UTF-8', ${ $self->{_text_ref} } ) ;
+
+# http://www.mail-archive.com/groff@gnu.org/msg01378.html
+# http://linux.die.net/man/7/groff_char
+# http://www.gnu.org/software/groff/manual/html_node/Using-Symbols.html
+# http://lists.gnu.org/archive/html/groff/2011-05/msg00007.html
+# http://www.simplicidade.org/notes/archives/2009/05/fixing_the_pod.html
+# http://lists.freebsd.org/pipermail/freebsd-questions/2011-July/232239.html
+	$text =~ s/(\P{ASCII})/
+		sprintf '\\[u%04X]', ord $1
+	     /eg;
+
+	# should we encode?
+	${ $self->{_text_ref} } = $text;
+	}
+
+1;
+
+__END__
+
+
+package Class::Struct;
+
+## See POD after __END__
+
+use 5.006_001;
+
+use strict;
+use warnings::register;
+our(@ISA, @EXPORT, $VERSION);
+
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(struct);
+
+$VERSION = '0.65';
+
+my $print = 0;
+sub printem {
+    if (@_) { $print = shift }
+    else    { $print++ }
+}
+
+{
+    package Class::Struct::Tie_ISA;
+
+    sub TIEARRAY {
+        my $class = shift;
+        return bless [], $class;
+    }
+
+    sub STORE {
+        my ($self, $index, $value) = @_;
+        Class::Struct::_subclass_error();
+    }
+
+    sub FETCH {
+        my ($self, $index) = @_;
+        $self->[$index];
+    }
+
+    sub FETCHSIZE {
+        my $self = shift;
+        return scalar(@$self);
+    }
+
+    sub DESTROY { }
+}
+
+sub import {
+    my $self = shift;
+
+    if ( @_ == 0 ) {
+      $self->export_to_level( 1, $self, @EXPORT );
+    } elsif ( @_ == 1 ) {
+	# This is admittedly a little bit silly:
+	# do we ever export anything else than 'struct'...?
+      $self->export_to_level( 1, $self, @_ );
+    } else {
+      goto &struct;
+    }
+}
+
+sub struct {
+
+    # Determine parameter list structure, one of:
+    #   struct( class => [ element-list ])
+    #   struct( class => { element-list })
+    #   struct( element-list )
+    # Latter form assumes current package name as struct name.
+
+    my ($class, @decls);
+    my $base_type = ref $_[1];
+    if ( $base_type eq 'HASH' ) {
+        $class = shift;
+        @decls = %{shift()};
+        _usage_error() if @_;
+    }
+    elsif ( $base_type eq 'ARRAY' ) {
+        $class = shift;
+        @decls = @{shift()};
+        _usage_error() if @_;
+    }
+    else {
+        $base_type = 'ARRAY';
+        $class = (caller())[0];
+        @decls = @_;
+    }
+
+    _usage_error() if @decls % 2 == 1;
+
+    # Ensure we are not, and will not be, a subclass.
+
+    my $isa = do {
+        no strict 'refs';
+        \@{$class . '::ISA'};
+    };
+    _subclass_error() if @$isa;
+    tie @$isa, 'Class::Struct::Tie_ISA';
+
+    # Create constructor.
+
+    croak "function 'new' already defined in package $class"
+        if do { no strict 'refs'; defined &{$class . "::new"} };
+
+    my @methods = ();
+    my %refs = ();
+    my %arrays = ();
+    my %hashes = ();
+    my %classes = ();
+    my $got_class = 0;
+    my $out = '';
+
+    $out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
+    $out .= "    my (\$class, \%init) = \@_;\n";
+    $out .= "    \$class = __PACKAGE__ unless \@_;\n";
+
+    my $cnt = 0;
+    my $idx = 0;
+    my( $cmt, $name, $type, $elem );
+
+    if( $base_type eq 'HASH' ){
+        $out .= "    my(\$r) = {};\n";
+        $cmt = '';
+    }
+    elsif( $base_type eq 'ARRAY' ){
+        $out .= "    my(\$r) = [];\n";
+    }
+
+    $out .= " bless \$r, \$class;\n\n";
+
+    while( $idx < @decls ){
+        $name = $decls[$idx];
+        $type = $decls[$idx+1];
+        push( @methods, $name );
+        if( $base_type eq 'HASH' ){
+            $elem = "{'${class}::$name'}";
+        }
+        elsif( $base_type eq 'ARRAY' ){
+            $elem = "[$cnt]";
+            ++$cnt;
+            $cmt = " # $name";
+        }
+        if( $type =~ /^\*(.)/ ){
+            $refs{$name}++;
+            $type = $1;
+        }
+        my $init = "defined(\$init{'$name'}) ? \$init{'$name'} :";
+        if( $type eq '@' ){
+            $out .= "    croak 'Initializer for $name must be array reference'\n"; 
+            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n";
+            $out .= "    \$r->$name( $init [] );$cmt\n"; 
+            $arrays{$name}++;
+        }
+        elsif( $type eq '%' ){
+            $out .= "    croak 'Initializer for $name must be hash reference'\n";
+            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'HASH';\n";
+            $out .= "    \$r->$name( $init {} );$cmt\n";
+            $hashes{$name}++;
+        }
+        elsif ( $type eq '$') {
+            $out .= "    \$r->$name( $init undef );$cmt\n";
+        }
+        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
+            $out .= "    if (defined(\$init{'$name'})) {\n";
+           $out .= "       if (ref \$init{'$name'} eq 'HASH')\n";
+            $out .= "            { \$r->$name( $type->new(\%{\$init{'$name'}}) ) } $cmt\n";
+           $out .= "       elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
+            $out .= "            { \$r->$name( \$init{'$name'} ) } $cmt\n";
+            $out .= "       else { croak 'Initializer for $name must be hash or $type reference' }\n";
+            $out .= "    }\n";
+            $classes{$name} = $type;
+            $got_class = 1;
+        }
+        else{
+            croak "'$type' is not a valid struct element type";
+        }
+        $idx += 2;
+    }
+
+    $out .= "\n \$r;\n}\n";
+
+    # Create accessor methods.
+
+    my( $pre, $pst, $sel );
+    $cnt = 0;
+    foreach $name (@methods){
+        if ( do { no strict 'refs'; defined &{$class . "::$name"} } ) {
+            warnings::warnif("function '$name' already defined, overrides struct accessor method");
+        }
+        else {
+            $pre = $pst = $cmt = $sel = '';
+            if( defined $refs{$name} ){
+                $pre = "\\(";
+                $pst = ")";
+                $cmt = " # returns ref";
+            }
+            $out .= "  sub $name {$cmt\n    my \$r = shift;\n";
+            if( $base_type eq 'ARRAY' ){
+                $elem = "[$cnt]";
+                ++$cnt;
+            }
+            elsif( $base_type eq 'HASH' ){
+                $elem = "{'${class}::$name'}";
+            }
+            if( defined $arrays{$name} ){
+                $out .= "    my \$i;\n";
+                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
+                $out .= "    if (ref(\$i) eq 'ARRAY' && !\@_) { \$r->$elem = \$i; return \$r }\n";
+                $sel = "->[\$i]";
+            }
+            elsif( defined $hashes{$name} ){
+                $out .= "    my \$i;\n";
+                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
+                $out .= "    if (ref(\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n";
+                $sel = "->{\$i}";
+            }
+            elsif( defined $classes{$name} ){
+                $out .= "    croak '$name argument is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n";
+            }
+            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
+            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
+            $out .= "  }\n";
+        }
+    }
+    $out .= "}\n1;\n";
+
+    print $out if $print;
+    my $result = eval $out;
+    carp $@ if $@;
+}
+
+sub _usage_error {
+    confess "struct usage error";
+}
+
+sub _subclass_error {
+    croak 'struct class cannot be a subclass (@ISA not allowed)';
+}
+
+1; # for require
+
+
+__END__
+
+# vim: ts=4 sts=4 sw=4 et:
+package HTTP::Tiny;
+use strict;
+use warnings;
+# ABSTRACT: A small, simple, correct HTTP/1.1 client
+
+our $VERSION = '0.070';
+
+sub _croak { require Carp; Carp::croak(@_) }
+
+#pod =method new
+#pod
+#pod     $http = HTTP::Tiny->new( %attributes );
+#pod
+#pod This constructor returns a new HTTP::Tiny object.  Valid attributes include:
+#pod
+#pod =for :list
+#pod * C<agent> — A user-agent string (defaults to 'HTTP-Tiny/$VERSION'). If
+#pod   C<agent> — ends in a space character, the default user-agent string is
+#pod   appended.
+#pod * C<cookie_jar> — An instance of L<HTTP::CookieJar> — or equivalent class
+#pod   that supports the C<add> and C<cookie_header> methods
+#pod * C<default_headers> — A hashref of default headers to apply to requests
+#pod * C<local_address> — The local IP address to bind to
+#pod * C<keep_alive> — Whether to reuse the last connection (if for the same
+#pod   scheme, host and port) (defaults to 1)
+#pod * C<max_redirect> — Maximum number of redirects allowed (defaults to 5)
+#pod * C<max_size> — Maximum response size in bytes (only when not using a data
+#pod   callback).  If defined, responses larger than this will return an
+#pod   exception.
+#pod * C<http_proxy> — URL of a proxy server to use for HTTP connections
+#pod   (default is C<$ENV{http_proxy}> — if set)
+#pod * C<https_proxy> — URL of a proxy server to use for HTTPS connections
+#pod   (default is C<$ENV{https_proxy}> — if set)
+#pod * C<proxy> — URL of a generic proxy server for both HTTP and HTTPS
+#pod   connections (default is C<$ENV{all_proxy}> — if set)
+#pod * C<no_proxy> — List of domain suffixes that should not be proxied.  Must
+#pod   be a comma-separated string or an array reference. (default is
+#pod   C<$ENV{no_proxy}> —)
+#pod * C<timeout> — Request timeout in seconds (default is 60) If a socket open,
+#pod   read or write takes longer than the timeout, an exception is thrown.
+#pod * C<verify_SSL> — A boolean that indicates whether to validate the SSL
+#pod   certificate of an C<https> — connection (default is false)
+#pod * C<SSL_options> — A hashref of C<SSL_*> — options to pass through to
+#pod   L<IO::Socket::SSL>
+#pod
+#pod Passing an explicit C<undef> for C<proxy>, C<http_proxy> or C<https_proxy> will
+#pod prevent getting the corresponding proxies from the environment.
+#pod
+#pod Exceptions from C<max_size>, C<timeout> or other errors will result in a
+#pod pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
+#pod content field in the response will contain the text of the exception.
+#pod
+#pod The C<keep_alive> parameter enables a persistent connection, but only to a
+#pod single destination scheme, host and port.  Also, if any connection-relevant
+#pod attributes are modified, or if the process ID or thread ID change, the
+#pod persistent connection will be dropped.  If you want persistent connections
+#pod across multiple destinations, use multiple HTTP::Tiny objects.
+#pod
+#pod See L</SSL SUPPORT> for more on the C<verify_SSL> and C<SSL_options> attributes.
+#pod
+#pod =cut
+
+my @attributes;
+BEGIN {
+    @attributes = qw(
+        cookie_jar default_headers http_proxy https_proxy keep_alive
+        local_address max_redirect max_size proxy no_proxy
+        SSL_options verify_SSL
+    );
+    my %persist_ok = map {; $_ => 1 } qw(
+        cookie_jar default_headers max_redirect max_size
+    );
+    no strict 'refs';
+    no warnings 'uninitialized';
+    for my $accessor ( @attributes ) {
+        *{$accessor} = sub {
+            @_ > 1
+                ? do {
+                    delete $_[0]->{handle} if !$persist_ok{$accessor} && $_[1] ne $_[0]->{$accessor};
+                    $_[0]->{$accessor} = $_[1]
+                }
+                : $_[0]->{$accessor};
+        };
+    }
+}
+
+sub agent {
+    my($self, $agent) = @_;
+    if( @_ > 1 ){
+        $self->{agent} =
+            (defined $agent && $agent =~ / $/) ? $agent . $self->_agent : $agent;
+    }
+    return $self->{agent};
+}
+
+sub timeout {
+    my ($self, $timeout) = @_;
+    if ( @_ > 1 ) {
+        $self->{timeout} = $timeout;
+        if ($self->{handle}) {
+            $self->{handle}->timeout($timeout);
+        }
+    }
+    return $self->{timeout};
+}
+
+sub new {
+    my($class, %args) = @_;
+
+    my $self = {
+        max_redirect => 5,
+        timeout      => defined $args{timeout} ? $args{timeout} : 60,
+        keep_alive   => 1,
+        verify_SSL   => $args{verify_SSL} || $args{verify_ssl} || 0, # no verification by default
+        no_proxy     => $ENV{no_proxy},
+    };
+
+    bless $self, $class;
+
+    $class->_validate_cookie_jar( $args{cookie_jar} ) if $args{cookie_jar};
+
+    for my $key ( @attributes ) {
+        $self->{$key} = $args{$key} if exists $args{$key}
+    }
+
+    $self->agent( exists $args{agent} ? $args{agent} : $class->_agent );
+
+    $self->_set_proxies;
+
+    return $self;
+}
+
+sub _set_proxies {
+    my ($self) = @_;
+
+    # get proxies from %ENV only if not provided; explicit undef will disable
+    # getting proxies from the environment
+
+    # generic proxy
+    if (! exists $self->{proxy} ) {
+        $self->{proxy} = $ENV{all_proxy} || $ENV{ALL_PROXY};
+    }
+
+    if ( defined $self->{proxy} ) {
+        $self->_split_proxy( 'generic proxy' => $self->{proxy} ); # validate
+    }
+    else {
+        delete $self->{proxy};
+    }
+
+    # http proxy
+    if (! exists $self->{http_proxy} ) {
+        # under CGI, bypass HTTP_PROXY as request sets it from Proxy header
+        local $ENV{HTTP_PROXY} if $ENV{REQUEST_METHOD};
+        $self->{http_proxy} = $ENV{http_proxy} || $ENV{HTTP_PROXY} || $self->{proxy};
+    }
+
+    if ( defined $self->{http_proxy} ) {
+        $self->_split_proxy( http_proxy => $self->{http_proxy} ); # validate
+        $self->{_has_proxy}{http} = 1;
+    }
+    else {
+        delete $self->{http_proxy};
+    }
+
+    # https proxy
+    if (! exists $self->{https_proxy} ) {
+        $self->{https_proxy} = $ENV{https_proxy} || $ENV{HTTPS_PROXY} || $self->{proxy};
+    }
+
+    if ( $self->{https_proxy} ) {
+        $self->_split_proxy( https_proxy => $self->{https_proxy} ); # validate
+        $self->{_has_proxy}{https} = 1;
+    }
+    else {
+        delete $self->{https_proxy};
+    }
+
+    # Split no_proxy to array reference if not provided as such
+    unless ( ref $self->{no_proxy} eq 'ARRAY' ) {
+        $self->{no_proxy} =
+            (defined $self->{no_proxy}) ? [ split /\s*,\s*/, $self->{no_proxy} ] : [];
+    }
+
+    return;
+}
+
+#pod =method get|head|put|post|delete
+#pod
+#pod     $response = $http->get($url);
+#pod     $response = $http->get($url, \%options);
+#pod     $response = $http->head($url);
+#pod
+#pod These methods are shorthand for calling C<request()> for the given method.  The
+#pod URL must have unsafe characters escaped and international domain names encoded.
+#pod See C<request()> for valid options and a description of the response.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX.
+#pod
+#pod =cut
+
+for my $sub_name ( qw/get head put post delete/ ) {
+    my $req_method = uc $sub_name;
+    no strict 'refs';
+    eval <<"HERE"; ## no critic
+    sub $sub_name {
+        my (\$self, \$url, \$args) = \@_;
+        \@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
+        or _croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
+        return \$self->request('$req_method', \$url, \$args || {});
+    }
+HERE
+}
+
+#pod =method post_form
+#pod
+#pod     $response = $http->post_form($url, $form_data);
+#pod     $response = $http->post_form($url, $form_data, \%options);
+#pod
+#pod This method executes a C<POST> request and sends the key/value pairs from a
+#pod form data hash or array reference to the given URL with a C<content-type> of
+#pod C<application/x-www-form-urlencoded>.  If data is provided as an array
+#pod reference, the order is preserved; if provided as a hash reference, the terms
+#pod are sorted on key and value for consistency.  See documentation for the
+#pod C<www_form_urlencode> method for details on the encoding.
+#pod
+#pod The URL must have unsafe characters escaped and international domain names
+#pod encoded.  See C<request()> for valid options and a description of the response.
+#pod Any C<content-type> header or content in the options hashref will be ignored.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX.
+#pod
+#pod =cut
+
+sub post_form {
+    my ($self, $url, $data, $args) = @_;
+    (@_ == 3 || @_ == 4 && ref $args eq 'HASH')
+        or _croak(q/Usage: $http->post_form(URL, DATAREF, [HASHREF])/ . "\n");
+
+    my $headers = {};
+    while ( my ($key, $value) = each %{$args->{headers} || {}} ) {
+        $headers->{lc $key} = $value;
+    }
+    delete $args->{headers};
+
+    return $self->request('POST', $url, {
+            %$args,
+            content => $self->www_form_urlencode($data),
+            headers => {
+                %$headers,
+                'content-type' => 'application/x-www-form-urlencoded'
+            },
+        }
+    );
+}
+
+#pod =method mirror
+#pod
+#pod     $response = $http->mirror($url, $file, \%options)
+#pod     if ( $response->{success} ) {
+#pod         print "$file is up to date\n";
+#pod     }
+#pod
+#pod Executes a C<GET> request for the URL and saves the response body to the file
+#pod name provided.  The URL must have unsafe characters escaped and international
+#pod domain names encoded.  If the file already exists, the request will include an
+#pod C<If-Modified-Since> header with the modification timestamp of the file.  You
+#pod may specify a different C<If-Modified-Since> header yourself in the C<<
+#pod $options->{headers} >> hash.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX
+#pod or if the status code is 304 (unmodified).
+#pod
+#pod If the file was modified and the server response includes a properly
+#pod formatted C<Last-Modified> header, the file modification time will
+#pod be updated accordingly.
+#pod
+#pod =cut
+
+sub mirror {
+    my ($self, $url, $file, $args) = @_;
+    @_ == 3 || (@_ == 4 && ref $args eq 'HASH')
+      or _croak(q/Usage: $http->mirror(URL, FILE, [HASHREF])/ . "\n");
+
+    if ( exists $args->{headers} ) {
+        my $headers = {};
+        while ( my ($key, $value) = each %{$args->{headers} || {}} ) {
+            $headers->{lc $key} = $value;
+        }
+        $args->{headers} = $headers;
+    }
+
+    if ( -e $file and my $mtime = (stat($file))[9] ) {
+        $args->{headers}{'if-modified-since'} ||= $self->_http_date($mtime);
+    }
+    my $tempfile = $file . int(rand(2**31));
+
+    require Fcntl;
+    sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY()
+       or _croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/);
+    binmode $fh;
+    $args->{data_callback} = sub { print {$fh} $_[0] };
+    my $response = $self->request('GET', $url, $args);
+    close $fh
+        or _croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/);
+
+    if ( $response->{success} ) {
+        rename $tempfile, $file
+            or _croak(qq/Error replacing $file with $tempfile: $!\n/);
+        my $lm = $response->{headers}{'last-modified'};
+        if ( $lm and my $mtime = $self->_parse_http_date($lm) ) {
+            utime $mtime, $mtime, $file;
+        }
+    }
+    $response->{success} ||= $response->{status} eq '304';
+    unlink $tempfile;
+    return $response;
+}
+
+#pod =method request
+#pod
+#pod     $response = $http->request($method, $url);
+#pod     $response = $http->request($method, $url, \%options);
+#pod
+#pod Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
+#pod 'PUT', etc.) on the given URL.  The URL must have unsafe characters escaped and
+#pod international domain names encoded.
+#pod
+#pod If the URL includes a "user:password" stanza, they will be used for Basic-style
+#pod authorization headers.  (Authorization headers will not be included in a
+#pod redirected request.) For example:
+#pod
+#pod     $http->request('GET', 'http://Aladdin:open sesame@example.com/');
+#pod
+#pod If the "user:password" stanza contains reserved characters, they must
+#pod be percent-escaped:
+#pod
+#pod     $http->request('GET', 'http://john%40example.com:password@example.com/');
+#pod
+#pod A hashref of options may be appended to modify the request.
+#pod
+#pod Valid options are:
+#pod
+#pod =for :list
+#pod * C<headers> —
+#pod     A hashref containing headers to include with the request.  If the value for
+#pod     a header is an array reference, the header will be output multiple times with
+#pod     each value in the array.  These headers over-write any default headers.
+#pod * C<content> —
+#pod     A scalar to include as the body of the request OR a code reference
+#pod     that will be called iteratively to produce the body of the request
+#pod * C<trailer_callback> —
+#pod     A code reference that will be called if it exists to provide a hashref
+#pod     of trailing headers (only used with chunked transfer-encoding)
+#pod * C<data_callback> —
+#pod     A code reference that will be called for each chunks of the response
+#pod     body received.
+#pod * C<peer> —
+#pod     Override host resolution and force all connections to go only to a
+#pod     specific peer address, regardless of the URL of the request.  This will
+#pod     include any redirections!  This options should be used with extreme
+#pod     caution (e.g. debugging or very special circumstances).
+#pod
+#pod The C<Host> header is generated from the URL in accordance with RFC 2616.  It
+#pod is a fatal error to specify C<Host> in the C<headers> option.  Other headers
+#pod may be ignored or overwritten if necessary for transport compliance.
+#pod
+#pod If the C<content> option is a code reference, it will be called iteratively
+#pod to provide the content body of the request.  It should return the empty
+#pod string or undef when the iterator is exhausted.
+#pod
+#pod If the C<content> option is the empty string, no C<content-type> or
+#pod C<content-length> headers will be generated.
+#pod
+#pod If the C<data_callback> option is provided, it will be called iteratively until
+#pod the entire response body is received.  The first argument will be a string
+#pod containing a chunk of the response body, the second argument will be the
+#pod in-progress response hash reference, as described below.  (This allows
+#pod customizing the action of the callback based on the C<status> or C<headers>
+#pod received prior to the content body.)
+#pod
+#pod The C<request> method returns a hashref containing the response.  The hashref
+#pod will have the following keys:
+#pod
+#pod =for :list
+#pod * C<success> —
+#pod     Boolean indicating whether the operation returned a 2XX status code
+#pod * C<url> —
+#pod     URL that provided the response. This is the URL of the request unless
+#pod     there were redirections, in which case it is the last URL queried
+#pod     in a redirection chain
+#pod * C<status> —
+#pod     The HTTP status code of the response
+#pod * C<reason> —
+#pod     The response phrase returned by the server
+#pod * C<content> —
+#pod     The body of the response.  If the response does not have any content
+#pod     or if a data callback is provided to consume the response body,
+#pod     this will be the empty string
+#pod * C<headers> —
+#pod     A hashref of header fields.  All header field names will be normalized
+#pod     to be lower case. If a header is repeated, the value will be an arrayref;
+#pod     it will otherwise be a scalar string containing the value
+#pod * C<redirects>
+#pod     If this field exists, it is an arrayref of response hash references from
+#pod     redirects in the same order that redirections occurred.  If it does
+#pod     not exist, then no redirections occurred.
+#pod
+#pod On an exception during the execution of the request, the C<status> field will
+#pod contain 599, and the C<content> field will contain the text of the exception.
+#pod
+#pod =cut
+
+my %idempotent = map { $_ => 1 } qw/GET HEAD PUT DELETE OPTIONS TRACE/;
+
+sub request {
+    my ($self, $method, $url, $args) = @_;
+    @_ == 3 || (@_ == 4 && ref $args eq 'HASH')
+      or _croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n");
+    $args ||= {}; # we keep some state in this during _request
+
+    # RFC 2616 Section 8.1.4 mandates a single retry on broken socket
+    my $response;
+    for ( 0 .. 1 ) {
+        $response = eval { $self->_request($method, $url, $args) };
+        last unless $@ && $idempotent{$method}
+            && $@ =~ m{^(?:Socket closed|Unexpected end)};
+    }
+
+    if (my $e = $@) {
+        # maybe we got a response hash thrown from somewhere deep
+        if ( ref $e eq 'HASH' && exists $e->{status} ) {
+            $e->{redirects} = delete $args->{_redirects} if @{ $args->{_redirects} || []};
+            return $e;
+        }
+
+        # otherwise, stringify it
+        $e = "$e";
+        $response = {
+            url     => $url,
+            success => q{},
+            status  => 599,
+            reason  => 'Internal Exception',
+            content => $e,
+            headers => {
+                'content-type'   => 'text/plain',
+                'content-length' => length $e,
+            },
+            ( @{$args->{_redirects} || []} ? (redirects => delete $args->{_redirects}) : () ),
+        };
+    }
+    return $response;
+}
+
+#pod =method www_form_urlencode
+#pod
+#pod     $params = $http->www_form_urlencode( $data );
+#pod     $response = $http->get("http://example.com/query?$params");
+#pod
+#pod This method converts the key/value pairs from a data hash or array reference
+#pod into a C<x-www-form-urlencoded> string.  The keys and values from the data
+#pod reference will be UTF-8 encoded and escaped per RFC 3986.  If a value is an
+#pod array reference, the key will be repeated with each of the values of the array
+#pod reference.  If data is provided as a hash reference, the key/value pairs in the
+#pod resulting string will be sorted by key and value for consistent ordering.
+#pod
+#pod =cut
+
+sub www_form_urlencode {
+    my ($self, $data) = @_;
+    (@_ == 2 && ref $data)
+        or _croak(q/Usage: $http->www_form_urlencode(DATAREF)/ . "\n");
+    (ref $data eq 'HASH' || ref $data eq 'ARRAY')
+        or _croak("form data must be a hash or array reference\n");
+
+    my @params = ref $data eq 'HASH' ? %$data : @$data;
+    @params % 2 == 0
+        or _croak("form data reference must have an even number of terms\n");
+
+    my @terms;
+    while( @params ) {
+        my ($key, $value) = splice(@params, 0, 2);
+        if ( ref $value eq 'ARRAY' ) {
+            unshift @params, map { $key => $_ } @$value;
+        }
+        else {
+            push @terms, join("=", map { $self->_uri_escape($_) } $key, $value);
+        }
+    }
+
+    return join("&", (ref $data eq 'ARRAY') ? (@terms) : (sort @terms) );
+}
+
+#pod =method can_ssl
+#pod
+#pod     $ok         = HTTP::Tiny->can_ssl;
+#pod     ($ok, $why) = HTTP::Tiny->can_ssl;
+#pod     ($ok, $why) = $http->can_ssl;
+#pod
+#pod Indicates if SSL support is available.  When called as a class object, it
+#pod checks for the correct version of L<Net::SSLeay> and L<IO::Socket::SSL>.
+#pod When called as an object methods, if C<SSL_verify> is true or if C<SSL_verify_mode>
+#pod is set in C<SSL_options>, it checks that a CA file is available.
+#pod
+#pod In scalar context, returns a boolean indicating if SSL is available.
+#pod In list context, returns the boolean and a (possibly multi-line) string of
+#pod errors indicating why SSL isn't available.
+#pod
+#pod =cut
+
+sub can_ssl {
+    my ($self) = @_;
+
+    my($ok, $reason) = (1, '');
+
+    # Need IO::Socket::SSL 1.42 for SSL_create_ctx_callback
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless (eval {require IO::Socket::SSL; IO::Socket::SSL->VERSION(1.42)}) {
+        $ok = 0;
+        $reason .= qq/IO::Socket::SSL 1.42 must be installed for https support\n/;
+    }
+
+    # Need Net::SSLeay 1.49 for MODE_AUTO_RETRY
+    unless (eval {require Net::SSLeay; Net::SSLeay->VERSION(1.49)}) {
+        $ok = 0;
+        $reason .= qq/Net::SSLeay 1.49 must be installed for https support\n/;
+    }
+
+    # If an object, check that SSL config lets us get a CA if necessary
+    if ( ref($self) && ( $self->{verify_SSL} || $self->{SSL_options}{SSL_verify_mode} ) ) {
+        my $handle = HTTP::Tiny::Handle->new(
+            SSL_options => $self->{SSL_options},
+            verify_SSL  => $self->{verify_SSL},
+        );
+        unless ( eval { $handle->_find_CA_file; 1 } ) {
+            $ok = 0;
+            $reason .= "$@";
+        }
+    }
+
+    wantarray ? ($ok, $reason) : $ok;
+}
+
+#pod =method connected
+#pod
+#pod     $host = $http->connected;
+#pod     ($host, $port) = $http->connected;
+#pod
+#pod Indicates if a connection to a peer is being kept alive, per the C<keep_alive>
+#pod option.
+#pod
+#pod In scalar context, returns the peer host and port, joined with a colon, or
+#pod C<undef> (if no peer is connected).
+#pod In list context, returns the peer host and port or an empty list (if no peer
+#pod is connected).
+#pod
+#pod B<Note>: This method cannot reliably be used to discover whether the remote
+#pod host has closed its end of the socket.
+#pod
+#pod =cut
+
+sub connected {
+    my ($self) = @_;
+
+    # If a socket exists...
+    if ($self->{handle} && $self->{handle}{fh}) {
+        my $socket = $self->{handle}{fh};
+
+        # ...and is connected, return the peer host and port.
+        if ($socket->connected) {
+            return wantarray
+                ? ($socket->peerhost, $socket->peerport)
+                : join(':', $socket->peerhost, $socket->peerport);
+        }
+    }
+    return;
+}
+
+#--------------------------------------------------------------------------#
+# private methods
+#--------------------------------------------------------------------------#
+
+my %DefaultPort = (
+    http => 80,
+    https => 443,
+);
+
+sub _agent {
+    my $class = ref($_[0]) || $_[0];
+    (my $default_agent = $class) =~ s{::}{-}g;
+    return $default_agent . "/" . $class->VERSION;
+}
+
+sub _request {
+    my ($self, $method, $url, $args) = @_;
+
+    my ($scheme, $host, $port, $path_query, $auth) = $self->_split_url($url);
+
+    my $request = {
+        method    => $method,
+        scheme    => $scheme,
+        host      => $host,
+        port      => $port,
+        host_port => ($port == $DefaultPort{$scheme} ? $host : "$host:$port"),
+        uri       => $path_query,
+        headers   => {},
+    };
+
+    my $peer = $args->{peer} || $host;
+
+    # We remove the cached handle so it is not reused in the case of redirect.
+    # If all is well, it will be recached at the end of _request.  We only
+    # reuse for the same scheme, host and port
+    my $handle = delete $self->{handle};
+    if ( $handle ) {
+        unless ( $handle->can_reuse( $scheme, $host, $port, $peer ) ) {
+            $handle->close;
+            undef $handle;
+        }
+    }
+    $handle ||= $self->_open_handle( $request, $scheme, $host, $port, $peer );
+
+    $self->_prepare_headers_and_cb($request, $args, $url, $auth);
+    $handle->write_request($request);
+
+    my $response;
+    do { $response = $handle->read_response_header }
+        until (substr($response->{status},0,1) ne '1');
+
+    $self->_update_cookie_jar( $url, $response ) if $self->{cookie_jar};
+    my @redir_args = $self->_maybe_redirect($request, $response, $args);
+
+    my $known_message_length;
+    if ($method eq 'HEAD' || $response->{status} =~ /^[23]04/) {
+        # response has no message body
+        $known_message_length = 1;
+    }
+    else {
+        # Ignore any data callbacks during redirection.
+        my $cb_args = @redir_args ? +{} : $args;
+        my $data_cb = $self->_prepare_data_cb($response, $cb_args);
+        $known_message_length = $handle->read_body($data_cb, $response);
+    }
+
+    if ( $self->{keep_alive}
+        && $known_message_length
+        && $response->{protocol} eq 'HTTP/1.1'
+        && ($response->{headers}{connection} || '') ne 'close'
+    ) {
+        $self->{handle} = $handle;
+    }
+    else {
+        $handle->close;
+    }
+
+    $response->{success} = substr( $response->{status}, 0, 1 ) eq '2';
+    $response->{url} = $url;
+
+    # Push the current response onto the stack of redirects if redirecting.
+    if (@redir_args) {
+        push @{$args->{_redirects}}, $response;
+        return $self->_request(@redir_args, $args);
+    }
+
+    # Copy the stack of redirects into the response before returning.
+    $response->{redirects} = delete $args->{_redirects}
+      if @{$args->{_redirects}};
+    return $response;
+}
+
+sub _open_handle {
+    my ($self, $request, $scheme, $host, $port, $peer) = @_;
+
+    my $handle  = HTTP::Tiny::Handle->new(
+        timeout         => $self->{timeout},
+        SSL_options     => $self->{SSL_options},
+        verify_SSL      => $self->{verify_SSL},
+        local_address   => $self->{local_address},
+        keep_alive      => $self->{keep_alive}
+    );
+
+    if ($self->{_has_proxy}{$scheme} && ! grep { $host =~ /\Q$_\E$/ } @{$self->{no_proxy}}) {
+        return $self->_proxy_connect( $request, $handle );
+    }
+    else {
+        return $handle->connect($scheme, $host, $port, $peer);
+    }
+}
+
+sub _proxy_connect {
+    my ($self, $request, $handle) = @_;
+
+    my @proxy_vars;
+    if ( $request->{scheme} eq 'https' ) {
+        _croak(qq{No https_proxy defined}) unless $self->{https_proxy};
+        @proxy_vars = $self->_split_proxy( https_proxy => $self->{https_proxy} );
+        if ( $proxy_vars[0] eq 'https' ) {
+            _croak(qq{Can't proxy https over https: $request->{uri} via $self->{https_proxy}});
+        }
+    }
+    else {
+        _croak(qq{No http_proxy defined}) unless $self->{http_proxy};
+        @proxy_vars = $self->_split_proxy( http_proxy => $self->{http_proxy} );
+    }
+
+    my ($p_scheme, $p_host, $p_port, $p_auth) = @proxy_vars;
+
+    if ( length $p_auth && ! defined $request->{headers}{'proxy-authorization'} ) {
+        $self->_add_basic_auth_header( $request, 'proxy-authorization' => $p_auth );
+    }
+
+    $handle->connect($p_scheme, $p_host, $p_port, $p_host);
+
+    if ($request->{scheme} eq 'https') {
+        $self->_create_proxy_tunnel( $request, $handle );
+    }
+    else {
+        # non-tunneled proxy requires absolute URI
+        $request->{uri} = "$request->{scheme}://$request->{host_port}$request->{uri}";
+    }
+
+    return $handle;
+}
+
+sub _split_proxy {
+    my ($self, $type, $proxy) = @_;
+
+    my ($scheme, $host, $port, $path_query, $auth) = eval { $self->_split_url($proxy) };
+
+    unless(
+        defined($scheme) && length($scheme) && length($host) && length($port)
+        && $path_query eq '/'
+    ) {
+        _croak(qq{$type URL must be in format http[s]://[auth@]<host>:<port>/\n});
+    }
+
+    return ($scheme, $host, $port, $auth);
+}
+
+sub _create_proxy_tunnel {
+    my ($self, $request, $handle) = @_;
+
+    $handle->_assert_ssl;
+
+    my $agent = exists($request->{headers}{'user-agent'})
+        ? $request->{headers}{'user-agent'} : $self->{agent};
+
+    my $connect_request = {
+        method    => 'CONNECT',
+        uri       => "$request->{host}:$request->{port}",
+        headers   => {
+            host => "$request->{host}:$request->{port}",
+            'user-agent' => $agent,
+        }
+    };
+
+    if ( $request->{headers}{'proxy-authorization'} ) {
+        $connect_request->{headers}{'proxy-authorization'} =
+            delete $request->{headers}{'proxy-authorization'};
+    }
+
+    $handle->write_request($connect_request);
+    my $response;
+    do { $response = $handle->read_response_header }
+        until (substr($response->{status},0,1) ne '1');
+
+    # if CONNECT failed, throw the response so it will be
+    # returned from the original request() method;
+    unless (substr($response->{status},0,1) eq '2') {
+        die $response;
+    }
+
+    # tunnel established, so start SSL handshake
+    $handle->start_ssl( $request->{host} );
+
+    return;
+}
+
+sub _prepare_headers_and_cb {
+    my ($self, $request, $args, $url, $auth) = @_;
+
+    for ($self->{default_headers}, $args->{headers}) {
+        next unless defined;
+        while (my ($k, $v) = each %$_) {
+            $request->{headers}{lc $k} = $v;
+            $request->{header_case}{lc $k} = $k;
+        }
+    }
+
+    if (exists $request->{headers}{'host'}) {
+        die(qq/The 'Host' header must not be provided as header option\n/);
+    }
+
+    $request->{headers}{'host'}         = $request->{host_port};
+    $request->{headers}{'user-agent'} ||= $self->{agent};
+    $request->{headers}{'connection'}   = "close"
+        unless $self->{keep_alive};
+
+    if ( defined $args->{content} ) {
+        if (ref $args->{content} eq 'CODE') {
+            $request->{headers}{'content-type'} ||= "application/octet-stream";
+            $request->{headers}{'transfer-encoding'} = 'chunked'
+              unless $request->{headers}{'content-length'}
+                  || $request->{headers}{'transfer-encoding'};
+            $request->{cb} = $args->{content};
+        }
+        elsif ( length $args->{content} ) {
+            my $content = $args->{content};
+            if ( $] ge '5.008' ) {
+                utf8::downgrade($content, 1)
+                    or die(qq/Wide character in request message body\n/);
+            }
+            $request->{headers}{'content-type'} ||= "application/octet-stream";
+            $request->{headers}{'content-length'} = length $content
+              unless $request->{headers}{'content-length'}
+                  || $request->{headers}{'transfer-encoding'};
+            $request->{cb} = sub { substr $content, 0, length $content, '' };
+        }
+        $request->{trailer_cb} = $args->{trailer_callback}
+            if ref $args->{trailer_callback} eq 'CODE';
+    }
+
+    ### If we have a cookie jar, then maybe add relevant cookies
+    if ( $self->{cookie_jar} ) {
+        my $cookies = $self->cookie_jar->cookie_header( $url );
+        $request->{headers}{cookie} = $cookies if length $cookies;
+    }
+
+    # if we have Basic auth parameters, add them
+    if ( length $auth && ! defined $request->{headers}{authorization} ) {
+        $self->_add_basic_auth_header( $request, 'authorization' => $auth );
+    }
+
+    return;
+}
+
+sub _add_basic_auth_header {
+    my ($self, $request, $header, $auth) = @_;
+    require MIME::Base64;
+    $request->{headers}{$header} =
+        "Basic " . MIME::Base64::encode_base64($auth, "");
+    return;
+}
+
+sub _prepare_data_cb {
+    my ($self, $response, $args) = @_;
+    my $data_cb = $args->{data_callback};
+    $response->{content} = '';
+
+    if (!$data_cb || $response->{status} !~ /^2/) {
+        if (defined $self->{max_size}) {
+            $data_cb = sub {
+                $_[1]->{content} .= $_[0];
+                die(qq/Size of response body exceeds the maximum allowed of $self->{max_size}\n/)
+                  if length $_[1]->{content} > $self->{max_size};
+            };
+        }
+        else {
+            $data_cb = sub { $_[1]->{content} .= $_[0] };
+        }
+    }
+    return $data_cb;
+}
+
+sub _update_cookie_jar {
+    my ($self, $url, $response) = @_;
+
+    my $cookies = $response->{headers}->{'set-cookie'};
+    return unless defined $cookies;
+
+    my @cookies = ref $cookies ? @$cookies : $cookies;
+
+    $self->cookie_jar->add( $url, $_ ) for @cookies;
+
+    return;
+}
+
+sub _validate_cookie_jar {
+    my ($class, $jar) = @_;
+
+    # duck typing
+    for my $method ( qw/add cookie_header/ ) {
+        _croak(qq/Cookie jar must provide the '$method' method\n/)
+            unless ref($jar) && ref($jar)->can($method);
+    }
+
+    return;
+}
+
+sub _maybe_redirect {
+    my ($self, $request, $response, $args) = @_;
+    my $headers = $response->{headers};
+    my ($status, $method) = ($response->{status}, $request->{method});
+    $args->{_redirects} ||= [];
+
+    if (($status eq '303' or ($status =~ /^30[1278]/ && $method =~ /^GET|HEAD$/))
+        and $headers->{location}
+        and @{$args->{_redirects}} < $self->{max_redirect}
+    ) {
+        my $location = ($headers->{location} =~ /^\//)
+            ? "$request->{scheme}://$request->{host_port}$headers->{location}"
+            : $headers->{location} ;
+        return (($status eq '303' ? 'GET' : $method), $location);
+    }
+    return;
+}
+
+sub _split_url {
+    my $url = pop;
+
+    # URI regex adapted from the URI module
+    my ($scheme, $host, $path_query) = $url =~ m<\A([^:/?#]+)://([^/?#]*)([^#]*)>
+      or die(qq/Cannot parse URL: '$url'\n/);
+
+    $scheme     = lc $scheme;
+    $path_query = "/$path_query" unless $path_query =~ m<\A/>;
+
+    my $auth = '';
+    if ( (my $i = index $host, '@') != -1 ) {
+        # user:pass@host
+        $auth = substr $host, 0, $i, ''; # take up to the @ for auth
+        substr $host, 0, 1, '';          # knock the @ off the host
+
+        # userinfo might be percent escaped, so recover real auth info
+        $auth =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
+    }
+    my $port = $host =~ s/:(\d*)\z// && length $1 ? $1
+             : $scheme eq 'http'                  ? 80
+             : $scheme eq 'https'                 ? 443
+             : undef;
+
+    return ($scheme, (length $host ? lc $host : "localhost") , $port, $path_query, $auth);
+}
+
+# Date conversions adapted from HTTP::Date
+my $DoW = "Sun|Mon|Tue|Wed|Thu|Fri|Sat";
+my $MoY = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
+sub _http_date {
+    my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($_[1]);
+    return sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT",
+        substr($DoW,$wday*4,3),
+        $mday, substr($MoY,$mon*4,3), $year+1900,
+        $hour, $min, $sec
+    );
+}
+
+sub _parse_http_date {
+    my ($self, $str) = @_;
+    require Time::Local;
+    my @tl_parts;
+    if ($str =~ /^[SMTWF][a-z]+, +(\d{1,2}) ($MoY) +(\d\d\d\d) +(\d\d):(\d\d):(\d\d) +GMT$/) {
+        @tl_parts = ($6, $5, $4, $1, (index($MoY,$2)/4), $3);
+    }
+    elsif ($str =~ /^[SMTWF][a-z]+, +(\d\d)-($MoY)-(\d{2,4}) +(\d\d):(\d\d):(\d\d) +GMT$/ ) {
+        @tl_parts = ($6, $5, $4, $1, (index($MoY,$2)/4), $3);
+    }
+    elsif ($str =~ /^[SMTWF][a-z]+ +($MoY) +(\d{1,2}) +(\d\d):(\d\d):(\d\d) +(?:[^0-9]+ +)?(\d\d\d\d)$/ ) {
+        @tl_parts = ($5, $4, $3, $2, (index($MoY,$1)/4), $6);
+    }
+    return eval {
+        my $t = @tl_parts ? Time::Local::timegm(@tl_parts) : -1;
+        $t < 0 ? undef : $t;
+    };
+}
+
+# URI escaping adapted from URI::Escape
+# c.f. http://www.w3.org/TR/html4/interact/forms.html#h-17.13.4.1
+# perl 5.6 ready UTF-8 encoding adapted from JSON::PP
+my %escapes = map { chr($_) => sprintf("%%%02X", $_) } 0..255;
+$escapes{' '}="+";
+my $unsafe_char = qr/[^A-Za-z0-9\-\._~]/;
+
+sub _uri_escape {
+    my ($self, $str) = @_;
+    if ( $] ge '5.008' ) {
+        utf8::encode($str);
+    }
+    else {
+        $str = pack("U*", unpack("C*", $str)) # UTF-8 encode a byte string
+            if ( length $str == do { use bytes; length $str } );
+        $str = pack("C*", unpack("C*", $str)); # clear UTF-8 flag
+    }
+    $str =~ s/($unsafe_char)/$escapes{$1}/ge;
+    return $str;
+}
+
+package
+    HTTP::Tiny::Handle; # hide from PAUSE/indexers
+use strict;
+use warnings;
+
+use Errno      qw[EINTR EPIPE];
+use IO::Socket qw[SOCK_STREAM];
+use Socket     qw[SOL_SOCKET SO_KEEPALIVE];
+
+# PERL_HTTP_TINY_IPV4_ONLY is a private environment variable to force old
+# behavior if someone is unable to boostrap CPAN from a new perl install; it is
+# not intended for general, per-client use and may be removed in the future
+my $SOCKET_CLASS =
+    $ENV{PERL_HTTP_TINY_IPV4_ONLY} ? 'IO::Socket::INET' :
+    eval { require IO::Socket::IP; IO::Socket::IP->VERSION(0.25) } ? 'IO::Socket::IP' :
+    'IO::Socket::INET';
+
+sub BUFSIZE () { 32768 } ## no critic
+
+my $Printable = sub {
+    local $_ = shift;
+    s/\r/\\r/g;
+    s/\n/\\n/g;
+    s/\t/\\t/g;
+    s/([^\x20-\x7E])/sprintf('\\x%.2X', ord($1))/ge;
+    $_;
+};
+
+my $Token = qr/[\x21\x23-\x27\x2A\x2B\x2D\x2E\x30-\x39\x41-\x5A\x5E-\x7A\x7C\x7E]/;
+my $Field_Content = qr/[[:print:]]+ (?: [\x20\x09]+ [[:print:]]+ )*/x;
+
+sub new {
+    my ($class, %args) = @_;
+    return bless {
+        rbuf             => '',
+        timeout          => 60,
+        max_line_size    => 16384,
+        max_header_lines => 64,
+        verify_SSL       => 0,
+        SSL_options      => {},
+        %args
+    }, $class;
+}
+
+sub timeout {
+    my ($self, $timeout) = @_;
+    if ( @_ > 1 ) {
+        $self->{timeout} = $timeout;
+        if ( $self->{fh} && $self->{fh}->can('timeout') ) {
+            $self->{fh}->timeout($timeout);
+        }
+    }
+    return $self->{timeout};
+}
+
+sub connect {
+    @_ == 5 || die(q/Usage: $handle->connect(scheme, host, port, peer)/ . "\n");
+    my ($self, $scheme, $host, $port, $peer) = @_;
+
+    if ( $scheme eq 'https' ) {
+        $self->_assert_ssl;
+    }
+    elsif ( $scheme ne 'http' ) {
+      die(qq/Unsupported URL scheme '$scheme'\n/);
+    }
+    $self->{fh} = $SOCKET_CLASS->new(
+        PeerHost  => $peer,
+        PeerPort  => $port,
+        $self->{local_address} ?
+            ( LocalAddr => $self->{local_address} ) : (),
+        Proto     => 'tcp',
+        Type      => SOCK_STREAM,
+        Timeout   => $self->{timeout},
+    ) or die(qq/Could not connect to '$host:$port': $@\n/);
+
+    binmode($self->{fh})
+      or die(qq/Could not binmode() socket: '$!'\n/);
+
+    if ( $self->{keep_alive} ) {
+        unless ( defined( $self->{fh}->setsockopt( SOL_SOCKET, SO_KEEPALIVE, 1 ) ) ) {
+            CORE::close($self->{fh});
+            die(qq/Could not set SO_KEEPALIVE on socket: '$!'\n/);
+        }
+    }
+
+    $self->start_ssl($host) if $scheme eq 'https';
+
+    $self->{scheme} = $scheme;
+    $self->{host} = $host;
+    $self->{peer} = $peer;
+    $self->{port} = $port;
+    $self->{pid} = $$;
+    $self->{tid} = _get_tid();
+
+    return $self;
+}
+
+sub start_ssl {
+    my ($self, $host) = @_;
+
+    # As this might be used via CONNECT after an SSL session
+    # to a proxy, we shut down any existing SSL before attempting
+    # the handshake
+    if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        unless ( $self->{fh}->stop_SSL ) {
+            my $ssl_err = IO::Socket::SSL->errstr;
+            die(qq/Error halting prior SSL connection: $ssl_err/);
+        }
+    }
+
+    my $ssl_args = $self->_ssl_args($host);
+    IO::Socket::SSL->start_SSL(
+        $self->{fh},
+        %$ssl_args,
+        SSL_create_ctx_callback => sub {
+            my $ctx = shift;
+            Net::SSLeay::CTX_set_mode($ctx, Net::SSLeay::MODE_AUTO_RETRY());
+        },
+    );
+
+    unless ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        my $ssl_err = IO::Socket::SSL->errstr;
+        die(qq/SSL connection failed for $host: $ssl_err\n/);
+    }
+}
+
+sub close {
+    @_ == 1 || die(q/Usage: $handle->close()/ . "\n");
+    my ($self) = @_;
+    CORE::close($self->{fh})
+      or die(qq/Could not close socket: '$!'\n/);
+}
+
+sub write {
+    @_ == 2 || die(q/Usage: $handle->write(buf)/ . "\n");
+    my ($self, $buf) = @_;
+
+    if ( $] ge '5.008' ) {
+        utf8::downgrade($buf, 1)
+            or die(qq/Wide character in write()\n/);
+    }
+
+    my $len = length $buf;
+    my $off = 0;
+
+    local $SIG{PIPE} = 'IGNORE';
+
+    while () {
+        $self->can_write
+          or die(qq/Timed out while waiting for socket to become ready for writing\n/);
+        my $r = syswrite($self->{fh}, $buf, $len, $off);
+        if (defined $r) {
+            $len -= $r;
+            $off += $r;
+            last unless $len > 0;
+        }
+        elsif ($! == EPIPE) {
+            die(qq/Socket closed by remote server: $!\n/);
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not write to SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not write to socket: '$!'\n/);
+            }
+
+        }
+    }
+    return $off;
+}
+
+sub read {
+    @_ == 2 || @_ == 3 || die(q/Usage: $handle->read(len [, allow_partial])/ . "\n");
+    my ($self, $len, $allow_partial) = @_;
+
+    my $buf  = '';
+    my $got = length $self->{rbuf};
+
+    if ($got) {
+        my $take = ($got < $len) ? $got : $len;
+        $buf  = substr($self->{rbuf}, 0, $take, '');
+        $len -= $take;
+    }
+
+    while ($len > 0) {
+        $self->can_read
+          or die(q/Timed out while waiting for socket to become ready for reading/ . "\n");
+        my $r = sysread($self->{fh}, $buf, $len, length $buf);
+        if (defined $r) {
+            last unless $r;
+            $len -= $r;
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not read from SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not read from socket: '$!'\n/);
+            }
+        }
+    }
+    if ($len && !$allow_partial) {
+        die(qq/Unexpected end of stream\n/);
+    }
+    return $buf;
+}
+
+sub readline {
+    @_ == 1 || die(q/Usage: $handle->readline()/ . "\n");
+    my ($self) = @_;
+
+    while () {
+        if ($self->{rbuf} =~ s/\A ([^\x0D\x0A]* \x0D?\x0A)//x) {
+            return $1;
+        }
+        if (length $self->{rbuf} >= $self->{max_line_size}) {
+            die(qq/Line size exceeds the maximum allowed size of $self->{max_line_size}\n/);
+        }
+        $self->can_read
+          or die(qq/Timed out while waiting for socket to become ready for reading\n/);
+        my $r = sysread($self->{fh}, $self->{rbuf}, BUFSIZE, length $self->{rbuf});
+        if (defined $r) {
+            last unless $r;
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not read from SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not read from socket: '$!'\n/);
+            }
+        }
+    }
+    die(qq/Unexpected end of stream while looking for line\n/);
+}
+
+sub read_header_lines {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->read_header_lines([headers])/ . "\n");
+    my ($self, $headers) = @_;
+    $headers ||= {};
+    my $lines   = 0;
+    my $val;
+
+    while () {
+         my $line = $self->readline;
+
+         if (++$lines >= $self->{max_header_lines}) {
+             die(qq/Header lines exceeds maximum number allowed of $self->{max_header_lines}\n/);
+         }
+         elsif ($line =~ /\A ([^\x00-\x1F\x7F:]+) : [\x09\x20]* ([^\x0D\x0A]*)/x) {
+             my ($field_name) = lc $1;
+             if (exists $headers->{$field_name}) {
+                 for ($headers->{$field_name}) {
+                     $_ = [$_] unless ref $_ eq "ARRAY";
+                     push @$_, $2;
+                     $val = \$_->[-1];
+                 }
+             }
+             else {
+                 $val = \($headers->{$field_name} = $2);
+             }
+         }
+         elsif ($line =~ /\A [\x09\x20]+ ([^\x0D\x0A]*)/x) {
+             $val
+               or die(qq/Unexpected header continuation line\n/);
+             next unless length $1;
+             $$val .= ' ' if length $$val;
+             $$val .= $1;
+         }
+         elsif ($line =~ /\A \x0D?\x0A \z/x) {
+            last;
+         }
+         else {
+            die(q/Malformed header line: / . $Printable->($line) . "\n");
+         }
+    }
+    return $headers;
+}
+
+sub write_request {
+    @_ == 2 || die(q/Usage: $handle->write_request(request)/ . "\n");
+    my($self, $request) = @_;
+    $self->write_request_header(@{$request}{qw/method uri headers header_case/});
+    $self->write_body($request) if $request->{cb};
+    return;
+}
+
+# Standard request header names/case from HTTP/1.1 RFCs
+my @rfc_request_headers = qw(
+  Accept Accept-Charset Accept-Encoding Accept-Language Authorization
+  Cache-Control Connection Content-Length Expect From Host
+  If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
+  Max-Forwards Pragma Proxy-Authorization Range Referer TE Trailer
+  Transfer-Encoding Upgrade User-Agent Via
+);
+
+my @other_request_headers = qw(
+  Content-Encoding Content-MD5 Content-Type Cookie DNT Date Origin
+  X-XSS-Protection
+);
+
+my %HeaderCase = map { lc($_) => $_ } @rfc_request_headers, @other_request_headers;
+
+# to avoid multiple small writes and hence nagle, you can pass the method line or anything else to
+# combine writes.
+sub write_header_lines {
+    (@_ >= 2 && @_ <= 4 && ref $_[1] eq 'HASH') || die(q/Usage: $handle->write_header_lines(headers, [header_case, prefix])/ . "\n");
+    my($self, $headers, $header_case, $prefix_data) = @_;
+    $header_case ||= {};
+
+    my $buf = (defined $prefix_data ? $prefix_data : '');
+
+    # Per RFC, control fields should be listed first
+    my %seen;
+    for my $k ( qw/host cache-control expect max-forwards pragma range te/ ) {
+        next unless exists $headers->{$k};
+        $seen{$k}++;
+        my $field_name = $HeaderCase{$k};
+        my $v = $headers->{$k};
+        for (ref $v eq 'ARRAY' ? @$v : $v) {
+            $_ = '' unless defined $_;
+            $buf .= "$field_name: $_\x0D\x0A";
+        }
+    }
+
+    # Other headers sent in arbitrary order
+    while (my ($k, $v) = each %$headers) {
+        my $field_name = lc $k;
+        next if $seen{$field_name};
+        if (exists $HeaderCase{$field_name}) {
+            $field_name = $HeaderCase{$field_name};
+        }
+        else {
+            if (exists $header_case->{$field_name}) {
+                $field_name = $header_case->{$field_name};
+            }
+            else {
+                $field_name =~ s/\b(\w)/\u$1/g;
+            }
+            $field_name =~ /\A $Token+ \z/xo
+              or die(q/Invalid HTTP header field name: / . $Printable->($field_name) . "\n");
+            $HeaderCase{lc $field_name} = $field_name;
+        }
+        for (ref $v eq 'ARRAY' ? @$v : $v) {
+            # unwrap a field value if pre-wrapped by user
+            s/\x0D?\x0A\s+/ /g;
+            die(qq/Invalid HTTP header field value ($field_name): / . $Printable->($_). "\n")
+              unless $_ eq '' || /\A $Field_Content \z/xo;
+            $_ = '' unless defined $_;
+            $buf .= "$field_name: $_\x0D\x0A";
+        }
+    }
+    $buf .= "\x0D\x0A";
+    return $self->write($buf);
+}
+
+# return value indicates whether message length was defined; this is generally
+# true unless there was no content-length header and we just read until EOF.
+# Other message length errors are thrown as exceptions
+sub read_body {
+    @_ == 3 || die(q/Usage: $handle->read_body(callback, response)/ . "\n");
+    my ($self, $cb, $response) = @_;
+    my $te = $response->{headers}{'transfer-encoding'} || '';
+    my $chunked = grep { /chunked/i } ( ref $te eq 'ARRAY' ? @$te : $te ) ;
+    return $chunked
+        ? $self->read_chunked_body($cb, $response)
+        : $self->read_content_body($cb, $response);
+}
+
+sub write_body {
+    @_ == 2 || die(q/Usage: $handle->write_body(request)/ . "\n");
+    my ($self, $request) = @_;
+    if ($request->{headers}{'content-length'}) {
+        return $self->write_content_body($request);
+    }
+    else {
+        return $self->write_chunked_body($request);
+    }
+}
+
+sub read_content_body {
+    @_ == 3 || @_ == 4 || die(q/Usage: $handle->read_content_body(callback, response, [read_length])/ . "\n");
+    my ($self, $cb, $response, $content_length) = @_;
+    $content_length ||= $response->{headers}{'content-length'};
+
+    if ( defined $content_length ) {
+        my $len = $content_length;
+        while ($len > 0) {
+            my $read = ($len > BUFSIZE) ? BUFSIZE : $len;
+            $cb->($self->read($read, 0), $response);
+            $len -= $read;
+        }
+        return length($self->{rbuf}) == 0;
+    }
+
+    my $chunk;
+    $cb->($chunk, $response) while length( $chunk = $self->read(BUFSIZE, 1) );
+
+    return;
+}
+
+sub write_content_body {
+    @_ == 2 || die(q/Usage: $handle->write_content_body(request)/ . "\n");
+    my ($self, $request) = @_;
+
+    my ($len, $content_length) = (0, $request->{headers}{'content-length'});
+    while () {
+        my $data = $request->{cb}->();
+
+        defined $data && length $data
+          or last;
+
+        if ( $] ge '5.008' ) {
+            utf8::downgrade($data, 1)
+                or die(qq/Wide character in write_content()\n/);
+        }
+
+        $len += $self->write($data);
+    }
+
+    $len == $content_length
+      or die(qq/Content-Length mismatch (got: $len expected: $content_length)\n/);
+
+    return $len;
+}
+
+sub read_chunked_body {
+    @_ == 3 || die(q/Usage: $handle->read_chunked_body(callback, $response)/ . "\n");
+    my ($self, $cb, $response) = @_;
+
+    while () {
+        my $head = $self->readline;
+
+        $head =~ /\A ([A-Fa-f0-9]+)/x
+          or die(q/Malformed chunk head: / . $Printable->($head) . "\n");
+
+        my $len = hex($1)
+          or last;
+
+        $self->read_content_body($cb, $response, $len);
+
+        $self->read(2) eq "\x0D\x0A"
+          or die(qq/Malformed chunk: missing CRLF after chunk data\n/);
+    }
+    $self->read_header_lines($response->{headers});
+    return 1;
+}
+
+sub write_chunked_body {
+    @_ == 2 || die(q/Usage: $handle->write_chunked_body(request)/ . "\n");
+    my ($self, $request) = @_;
+
+    my $len = 0;
+    while () {
+        my $data = $request->{cb}->();
+
+        defined $data && length $data
+          or last;
+
+        if ( $] ge '5.008' ) {
+            utf8::downgrade($data, 1)
+                or die(qq/Wide character in write_chunked_body()\n/);
+        }
+
+        $len += length $data;
+
+        my $chunk  = sprintf '%X', length $data;
+           $chunk .= "\x0D\x0A";
+           $chunk .= $data;
+           $chunk .= "\x0D\x0A";
+
+        $self->write($chunk);
+    }
+    $self->write("0\x0D\x0A");
+    if ( ref $request->{trailer_cb} eq 'CODE' ) {
+        $self->write_header_lines($request->{trailer_cb}->())
+    }
+    else {
+        $self->write("\x0D\x0A");
+    }
+    return $len;
+}
+
+sub read_response_header {
+    @_ == 1 || die(q/Usage: $handle->read_response_header()/ . "\n");
+    my ($self) = @_;
+
+    my $line = $self->readline;
+
+    $line =~ /\A (HTTP\/(0*\d+\.0*\d+)) [\x09\x20]+ ([0-9]{3}) [\x09\x20]+ ([^\x0D\x0A]*) \x0D?\x0A/x
+      or die(q/Malformed Status-Line: / . $Printable->($line). "\n");
+
+    my ($protocol, $version, $status, $reason) = ($1, $2, $3, $4);
+
+    die (qq/Unsupported HTTP protocol: $protocol\n/)
+        unless $version =~ /0*1\.0*[01]/;
+
+    return {
+        status       => $status,
+        reason       => $reason,
+        headers      => $self->read_header_lines,
+        protocol     => $protocol,
+    };
+}
+
+sub write_request_header {
+    @_ == 5 || die(q/Usage: $handle->write_request_header(method, request_uri, headers, header_case)/ . "\n");
+    my ($self, $method, $request_uri, $headers, $header_case) = @_;
+
+    return $self->write_header_lines($headers, $header_case, "$method $request_uri HTTP/1.1\x0D\x0A");
+}
+
+sub _do_timeout {
+    my ($self, $type, $timeout) = @_;
+    $timeout = $self->{timeout}
+        unless defined $timeout && $timeout >= 0;
+
+    my $fd = fileno $self->{fh};
+    defined $fd && $fd >= 0
+      or die(qq/select(2): 'Bad file descriptor'\n/);
+
+    my $initial = time;
+    my $pending = $timeout;
+    my $nfound;
+
+    vec(my $fdset = '', $fd, 1) = 1;
+
+    while () {
+        $nfound = ($type eq 'read')
+            ? select($fdset, undef, undef, $pending)
+            : select(undef, $fdset, undef, $pending) ;
+        if ($nfound == -1) {
+            $! == EINTR
+              or die(qq/select(2): '$!'\n/);
+            redo if !$timeout || ($pending = $timeout - (time - $initial)) > 0;
+            $nfound = 0;
+        }
+        last;
+    }
+    $! = 0;
+    return $nfound;
+}
+
+sub can_read {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->can_read([timeout])/ . "\n");
+    my $self = shift;
+    if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        return 1 if $self->{fh}->pending;
+    }
+    return $self->_do_timeout('read', @_)
+}
+
+sub can_write {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->can_write([timeout])/ . "\n");
+    my $self = shift;
+    return $self->_do_timeout('write', @_)
+}
+
+sub _assert_ssl {
+    my($ok, $reason) = HTTP::Tiny->can_ssl();
+    die $reason unless $ok;
+}
+
+sub can_reuse {
+    my ($self,$scheme,$host,$port,$peer) = @_;
+    return 0 if
+        $self->{pid} != $$
+        || $self->{tid} != _get_tid()
+        || length($self->{rbuf})
+        || $scheme ne $self->{scheme}
+        || $host ne $self->{host}
+        || $port ne $self->{port}
+        || $peer ne $self->{peer}
+        || eval { $self->can_read(0) }
+        || $@ ;
+        return 1;
+}
+
+# Try to find a CA bundle to validate the SSL cert,
+# prefer Mozilla::CA or fallback to a system file
+sub _find_CA_file {
+    my $self = shift();
+
+    my $ca_file =
+      defined( $self->{SSL_options}->{SSL_ca_file} )
+      ? $self->{SSL_options}->{SSL_ca_file}
+      : $ENV{SSL_CERT_FILE};
+
+    if ( defined $ca_file ) {
+        unless ( -r $ca_file ) {
+            die qq/SSL_ca_file '$ca_file' not found or not readable\n/;
+        }
+        return $ca_file;
+    }
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    return Mozilla::CA::SSL_ca_file()
+        if eval { require Mozilla::CA; 1 };
+
+    # cert list copied from golang src/crypto/x509/root_unix.go
+    foreach my $ca_bundle (
+        "/etc/ssl/certs/ca-certificates.crt",     # Debian/Ubuntu/Gentoo etc.
+        "/etc/pki/tls/certs/ca-bundle.crt",       # Fedora/RHEL
+        "/etc/ssl/ca-bundle.pem",                 # OpenSUSE
+        "/etc/openssl/certs/ca-certificates.crt", # NetBSD
+        "/etc/ssl/cert.pem",                      # OpenBSD
+        "/usr/local/share/certs/ca-root-nss.crt", # FreeBSD/DragonFly
+        "/etc/pki/tls/cacert.pem",                # OpenELEC
+        "/etc/certs/ca-certificates.crt",         # Solaris 11.2+
+    ) {
+        return $ca_bundle if -e $ca_bundle;
+    }
+
+    die qq/Couldn't find a CA bundle with which to verify the SSL certificate.\n/
+      . qq/Try installing Mozilla::CA from CPAN\n/;
+}
+
+# for thread safety, we need to know thread id if threads are loaded
+sub _get_tid {
+    no warnings 'reserved'; # for 'threads'
+    return threads->can("tid") ? threads->tid : 0;
+}
+
+sub _ssl_args {
+    my ($self, $host) = @_;
+
+    my %ssl_args;
+
+    # This test reimplements IO::Socket::SSL::can_client_sni(), which wasn't
+    # added until IO::Socket::SSL 1.84
+    if ( Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 0x01000000 ) {
+        $ssl_args{SSL_hostname} = $host,          # Sane SNI support
+    }
+
+    if ($self->{verify_SSL}) {
+        $ssl_args{SSL_verifycn_scheme}  = 'http'; # enable CN validation
+        $ssl_args{SSL_verifycn_name}    = $host;  # set validation hostname
+        $ssl_args{SSL_verify_mode}      = 0x01;   # enable cert validation
+        $ssl_args{SSL_ca_file}          = $self->_find_CA_file;
+    }
+    else {
+        $ssl_args{SSL_verifycn_scheme}  = 'none'; # disable CN validation
+        $ssl_args{SSL_verify_mode}      = 0x00;   # disable cert validation
+    }
+
+    # user options override settings from verify_SSL
+    for my $k ( keys %{$self->{SSL_options}} ) {
+        $ssl_args{$k} = $self->{SSL_options}{$k} if $k =~ m/^SSL_/;
+    }
+
+    return \%ssl_args;
+}
+
+1;
+
+__END__
+
+package PerlIO::via::QuotedPrint;
+
+$VERSION= '0.08';
+
+# be as strict as possible
+use strict;
+
+# modules that we need
+use MIME::QuotedPrint (); # no need to pollute this namespace
+
+# satisfy -require-
+1;
+
+#-------------------------------------------------------------------------------
+#
+# Standard Perl features
+#
+#-------------------------------------------------------------------------------
+#  IN: 1 class to bless with
+#      2 mode string (ignored)
+#      3 file handle of PerlIO layer below (ignored)
+# OUT: 1 blessed object
+
+sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
+
+#-------------------------------------------------------------------------------
+#  IN: 1 instantiated object (ignored)
+#      2 handle to read from
+# OUT: 1 decoded string
+
+sub FILL {
+
+    # decode and return
+    my $line= readline( $_[1] );
+    return ( defined $line )
+      ? MIME::QuotedPrint::decode_qp($line)
+      : undef;
+} #FILL
+
+#-------------------------------------------------------------------------------
+#  IN: 1 instantiated object (ignored)
+#      2 buffer to be written
+#      3 handle to write to
+# OUT: 1 number of bytes written
+
+sub WRITE {
+
+    # encode and write to handle: indicate result
+    return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
+      ? length( $_[1] )
+      : -1;
+} #WRITE
+
+#-------------------------------------------------------------------------------
+
+__END__
+
+package Text::ParseWords;
+
+use strict;
+require 5.006;
+our $VERSION = "3.30";
+
+
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(shellwords quotewords nested_quotewords parse_line);
+our @EXPORT_OK = qw(old_shellwords);
+our $PERL_SINGLE_QUOTE;
+
+
+sub shellwords {
+    my (@lines) = @_;
+    my @allwords;
+
+    foreach my $line (@lines) {
+	$line =~ s/^\s+//;
+	my @words = parse_line('\s+', 0, $line);
+	pop @words if (@words and !defined $words[-1]);
+	return() unless (@words || !length($line));
+	push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+
+
+sub quotewords {
+    my($delim, $keep, @lines) = @_;
+    my($line, @words, @allwords);
+
+    foreach $line (@lines) {
+	@words = parse_line($delim, $keep, $line);
+	return() unless (@words || !length($line));
+	push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+
+
+sub nested_quotewords {
+    my($delim, $keep, @lines) = @_;
+    my($i, @allwords);
+
+    for ($i = 0; $i < @lines; $i++) {
+	@{$allwords[$i]} = parse_line($delim, $keep, $lines[$i]);
+	return() unless (@{$allwords[$i]} || !length($lines[$i]));
+    }
+    return(@allwords);
+}
+
+
+
+sub parse_line {
+    my($delimiter, $keep, $line) = @_;
+    my($word, @pieces);
+
+    no warnings 'uninitialized';	# we will be testing undef strings
+
+    while (length($line)) {
+        # This pattern is optimised to be stack conservative on older perls.
+        # Do not refactor without being careful and testing it on very long strings.
+        # See Perl bug #42980 for an example of a stack busting input.
+        $line =~ s/^
+                    (?: 
+                        # double quoted string
+                        (")                             # $quote
+                        ((?>[^\\"]*(?:\\.[^\\"]*)*))"   # $quoted 
+		    |	# --OR--
+                        # singe quoted string
+                        (')                             # $quote
+                        ((?>[^\\']*(?:\\.[^\\']*)*))'   # $quoted
+                    |   # --OR--
+                        # unquoted string
+		        (                               # $unquoted 
+                            (?:\\.|[^\\"'])*?           
+                        )		
+                        # followed by
+		        (                               # $delim
+                            \Z(?!\n)                    # EOL
+                        |   # --OR--
+                            (?-x:$delimiter)            # delimiter
+                        |   # --OR--                    
+                            (?!^)(?=["'])               # a quote
+                        )  
+		    )//xs or return;		# extended layout                  
+        my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6);
+
+
+	return() unless( defined($quote) || length($unquoted) || length($delim));
+
+        if ($keep) {
+	    $quoted = "$quote$quoted$quote";
+	}
+        else {
+	    $unquoted =~ s/\\(.)/$1/sg;
+	    if (defined $quote) {
+		$quoted =~ s/\\(.)/$1/sg if ($quote eq '"');
+		$quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+            }
+	}
+        $word .= substr($line, 0, 0);	# leave results tainted
+        $word .= defined $quote ? $quoted : $unquoted;
+ 
+        if (length($delim)) {
+            push(@pieces, $word);
+            push(@pieces, $delim) if ($keep eq 'delimiters');
+            undef $word;
+        }
+        if (!length($line)) {
+            push(@pieces, $word);
+	}
+    }
+    return(@pieces);
+}
+
+
+
+sub old_shellwords {
+
+    # Usage:
+    #	use ParseWords;
+    #	@words = old_shellwords($line);
+    #	or
+    #	@words = old_shellwords(@lines);
+    #	or
+    #	@words = old_shellwords();	# defaults to $_ (and clobbers it)
+
+    no warnings 'uninitialized';	# we will be testing undef strings
+    local *_ = \join('', @_) if @_;
+    my (@words, $snippet);
+
+    s/\A\s+//;
+    while ($_ ne '') {
+	my $field = substr($_, 0, 0);	# leave results tainted
+	for (;;) {
+	    if (s/\A"(([^"\\]|\\.)*)"//s) {
+		($snippet = $1) =~ s#\\(.)#$1#sg;
+	    }
+	    elsif (/\A"/) {
+		require Carp;
+		Carp::carp("Unmatched double quote: $_");
+		return();
+	    }
+	    elsif (s/\A'(([^'\\]|\\.)*)'//s) {
+		($snippet = $1) =~ s#\\(.)#$1#sg;
+	    }
+	    elsif (/\A'/) {
+		require Carp;
+		Carp::carp("Unmatched single quote: $_");
+		return();
+	    }
+	    elsif (s/\A\\(.?)//s) {
+		$snippet = $1;
+	    }
+	    elsif (s/\A([^\s\\'"]+)//) {
+		$snippet = $1;
+	    }
+	    else {
+		s/\A\s+//;
+		last;
+	    }
+	    $field .= $snippet;
+	}
+	push(@words, $field);
+    }
+    return @words;
+}
+
+1;
+
+__END__
+
+package Text::Balanced;
+
+# EXTRACT VARIOUSLY DELIMITED TEXT SEQUENCES FROM STRINGS.
+# FOR FULL DOCUMENTATION SEE Balanced.pod
+
+use 5.005;
+use strict;
+use Exporter ();
+use SelfLoader;
+
+use vars qw { $VERSION @ISA %EXPORT_TAGS };
+BEGIN {
+	$VERSION     = '2.03';
+	@ISA         = 'Exporter';
+	%EXPORT_TAGS = (
+		ALL => [ qw{
+			&extract_delimited
+			&extract_bracketed
+			&extract_quotelike
+			&extract_codeblock
+			&extract_variable
+			&extract_tagged
+			&extract_multiple
+			&gen_delimited_pat
+			&gen_extract_tagged
+			&delimited_pat
+		} ],
+	);
+}
+
+Exporter::export_ok_tags('ALL');
+
+# PROTOTYPES
+
+sub _match_bracketed($$$$$$);
+sub _match_variable($$);
+sub _match_codeblock($$$$$$$);
+sub _match_quotelike($$$$);
+
+# HANDLE RETURN VALUES IN VARIOUS CONTEXTS
+
+sub _failmsg {
+	my ($message, $pos) = @_;
+	$@ = bless {
+		error => $message,
+		pos   => $pos,
+	}, 'Text::Balanced::ErrorMsg';
+}
+
+sub _fail {
+	my ($wantarray, $textref, $message, $pos) = @_;
+	_failmsg $message, $pos if $message;
+	return (undef, $$textref, undef) if $wantarray;
+	return undef;
+}
+
+sub _succeed {
+	$@ = undef;
+	my ($wantarray,$textref) = splice @_, 0, 2;
+	my ($extrapos, $extralen) = @_ > 18
+		? splice(@_, -2, 2)
+		: (0, 0);
+	my ($startlen, $oppos) = @_[5,6];
+	my $remainderpos = $_[2];
+	if ( $wantarray ) {
+		my @res;
+		while (my ($from, $len) = splice @_, 0, 2) {
+			push @res, substr($$textref, $from, $len);
+		}
+		if ( $extralen ) { # CORRECT FILLET
+			my $extra = substr($res[0], $extrapos-$oppos, $extralen, "\n");
+			$res[1] = "$extra$res[1]";
+			eval { substr($$textref,$remainderpos,0) = $extra;
+			       substr($$textref,$extrapos,$extralen,"\n")} ;
+				#REARRANGE HERE DOC AND FILLET IF POSSIBLE
+			pos($$textref) = $remainderpos-$extralen+1; # RESET \G
+		} else {
+			pos($$textref) = $remainderpos;		    # RESET \G
+		}
+		return @res;
+	} else {
+		my $match = substr($$textref,$_[0],$_[1]);
+		substr($match,$extrapos-$_[0]-$startlen,$extralen,"") if $extralen;
+		my $extra = $extralen
+			? substr($$textref, $extrapos, $extralen)."\n" : "";
+		eval {substr($$textref,$_[4],$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
+		pos($$textref) = $_[4];				# RESET \G
+		return $match;
+	}
+}
+
+# BUILD A PATTERN MATCHING A SIMPLE DELIMITED STRING
+
+sub gen_delimited_pat($;$)  # ($delimiters;$escapes)
+{
+	my ($dels, $escs) = @_;
+	return "" unless $dels =~ /\S/;
+	$escs = '\\' unless $escs;
+	$escs .= substr($escs,-1) x (length($dels)-length($escs));
+	my @pat = ();
+	my $i;
+	for ($i=0; $i<length $dels; $i++)
+	{
+		my $del = quotemeta substr($dels,$i,1);
+		my $esc = quotemeta substr($escs,$i,1);
+		if ($del eq $esc)
+		{
+			push @pat, "$del(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
+		}
+		else
+		{
+			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
+		}
+	}
+	my $pat = join '|', @pat;
+	return "(?:$pat)";
+}
+
+*delimited_pat = \&gen_delimited_pat;
+
+# THE EXTRACTION FUNCTIONS
+
+sub extract_delimited (;$$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $del  = defined $_[1] ? $_[1] : qq{\'\"\`};
+	my $pre  = defined $_[2] ? $_[2] : '\s*';
+	my $esc  = defined $_[3] ? $_[3] : qq{\\};
+	my $pat = gen_delimited_pat($del, $esc);
+	my $startpos = pos $$textref || 0;
+	return _fail($wantarray, $textref, "Not a delimited pattern", 0)
+		unless $$textref =~ m/\G($pre)($pat)/gc;
+	my $prelen = length($1);
+	my $matchpos = $startpos+$prelen;
+	my $endpos = pos $$textref;
+	return _succeed $wantarray, $textref,
+			$matchpos, $endpos-$matchpos,		# MATCH
+			$endpos,   length($$textref)-$endpos,	# REMAINDER
+			$startpos, $prelen;			# PREFIX
+}
+
+sub extract_bracketed (;$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $ldel = defined $_[1] ? $_[1] : '{([<';
+	my $pre  = defined $_[2] ? $_[2] : '\s*';
+	my $wantarray = wantarray;
+	my $qdel = "";
+	my $quotelike;
+	$ldel =~ s/'//g and $qdel .= q{'};
+	$ldel =~ s/"//g and $qdel .= q{"};
+	$ldel =~ s/`//g and $qdel .= q{`};
+	$ldel =~ s/q//g and $quotelike = 1;
+	$ldel =~ tr/[](){}<>\0-\377/[[(({{<</ds;
+	my $rdel = $ldel;
+	unless ($rdel =~ tr/[({</])}>/)
+        {
+		return _fail $wantarray, $textref,
+			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
+			     0;
+	}
+	my $posbug = pos;
+	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
+	$rdel = join('|', map { quotemeta $_ } split('', $rdel));
+	pos = $posbug;
+
+	my $startpos = pos $$textref || 0;
+	my @match = _match_bracketed($textref,$pre, $ldel, $qdel, $quotelike, $rdel);
+
+	return _fail ($wantarray, $textref) unless @match;
+
+	return _succeed ( $wantarray, $textref,
+			  $match[2], $match[5]+2,	# MATCH
+			  @match[8,9],			# REMAINDER
+			  @match[0,1],			# PREFIX
+			);
+}
+
+sub _match_bracketed($$$$$$)	# $textref, $pre, $ldel, $qdel, $quotelike, $rdel
+{
+	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
+	my ($startpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
+	unless ($$textref =~ m/\G$pre/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", $startpos;
+		return;
+	}
+
+	$ldelpos = pos $$textref;
+
+	unless ($$textref =~ m/\G($ldel)/gc)
+	{
+		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	my @nesting = ( $1 );
+	my $textlen = length $$textref;
+	while (pos $$textref < $textlen)
+	{
+		next if $$textref =~ m/\G\\./gcs;
+
+		if ($$textref =~ m/\G($ldel)/gc)
+		{
+			push @nesting, $1;
+		}
+		elsif ($$textref =~ m/\G($rdel)/gc)
+		{
+			my ($found, $brackettype) = ($1, $1);
+			if ($#nesting < 0)
+			{
+				_failmsg "Unmatched closing bracket: \"$found\"",
+					 pos $$textref;
+				pos $$textref = $startpos;
+			        return;
+			}
+			my $expected = pop(@nesting);
+			$expected =~ tr/({[</)}]>/;
+			if ($expected ne $brackettype)
+			{
+				_failmsg qq{Mismatched closing bracket: expected "$expected" but found "$found"},
+					 pos $$textref;
+				pos $$textref = $startpos;
+			        return;
+			}
+			last if $#nesting < 0;
+		}
+		elsif ($qdel && $$textref =~ m/\G([$qdel])/gc)
+		{
+			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q$1\E)/gsc and next;
+			_failmsg "Unmatched embedded quote ($1)",
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		elsif ($quotelike && _match_quotelike($textref,"",1,0))
+		{
+			next;
+		}
+
+		else { $$textref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
+	}
+	if ($#nesting>=0)
+	{
+		_failmsg "Unmatched opening bracket(s): "
+				. join("..",@nesting)."..",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	$endpos = pos $$textref;
+	
+	return (
+		$startpos,  $ldelpos-$startpos,		# PREFIX
+		$ldelpos,   1,				# OPENING BRACKET
+		$ldelpos+1, $endpos-$ldelpos-2,		# CONTENTS
+		$endpos-1,  1,				# CLOSING BRACKET
+		$endpos,    length($$textref)-$endpos,	# REMAINDER
+	       );
+}
+
+sub _revbracket($)
+{
+	my $brack = reverse $_[0];
+	$brack =~ tr/[({</])}>/;
+	return $brack;
+}
+
+my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};
+
+sub extract_tagged (;$$$$$) # ($text, $opentag, $closetag, $pre, \%options)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $ldel    = $_[1];
+	my $rdel    = $_[2];
+	my $pre     = defined $_[3] ? $_[3] : '\s*';
+	my %options = defined $_[4] ? %{$_[4]} : ();
+	my $omode   = defined $options{fail} ? $options{fail} : '';
+	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
+		    : defined($options{reject})	       ? $options{reject}
+		    :					 ''
+		    ;
+	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
+		    : defined($options{ignore})	       ? $options{ignore}
+		    :					 ''
+		    ;
+
+	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }
+	$@ = undef;
+
+	my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
+
+	return _fail(wantarray, $textref) unless @match;
+	return _succeed wantarray, $textref,
+			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
+			@match[8..9,0..1,2..7];				# REM, PRE, BITS
+}
+
+sub _match_tagged	# ($$$$$$$)
+{
+	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
+	my $rdelspec;
+
+	my ($startpos, $opentagpos, $textpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );
+
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", pos $$textref;
+		goto failed;
+	}
+
+	$opentagpos = pos($$textref);
+
+	unless ($$textref =~ m/\G$ldel/gc)
+	{
+		_failmsg "Did not find opening tag: /$ldel/", pos $$textref;
+		goto failed;
+	}
+
+	$textpos = pos($$textref);
+
+	if (!defined $rdel)
+	{
+		$rdelspec = substr($$textref, $-[0], $+[0] - $-[0]);
+		unless ($rdelspec =~ s/\A([[(<{]+)($XMLNAME).*/ quotemeta "$1\/$2". _revbracket($1) /oes)
+		{
+			_failmsg "Unable to construct closing tag to match: $rdel",
+				 pos $$textref;
+			goto failed;
+		}
+	}
+	else
+	{
+		$rdelspec = eval "qq{$rdel}" || do {
+			my $del;
+			for (qw,~ ! ^ & * ) _ + - = } ] : " ; ' > . ? / | ',)
+				{ next if $rdel =~ /\Q$_/; $del = $_; last }
+			unless ($del) {
+				use Carp;
+				croak "Can't interpolate right delimiter $rdel"
+			}
+			eval "qq$del$rdel$del";
+		};
+	}
+
+	while (pos($$textref) < length($$textref))
+	{
+		next if $$textref =~ m/\G\\./gc;
+
+		if ($$textref =~ m/\G(\n[ \t]*\n)/gc )
+		{
+			$parapos = pos($$textref) - length($1)
+				unless defined $parapos;
+		}
+		elsif ($$textref =~ m/\G($rdelspec)/gc )
+		{
+			$closetagpos = pos($$textref)-length($1);
+			goto matched;
+		}
+		elsif ($ignore && $$textref =~ m/\G(?:$ignore)/gc)
+		{
+			next;
+		}
+		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
+		{
+			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
+			goto short if ($omode eq 'PARA' || $omode eq 'MAX');
+			_failmsg "Found invalid nested tag: $1", pos $$textref;
+			goto failed;
+		}
+		elsif ($$textref =~ m/\G($ldel)/gc)
+		{
+			my $tag = $1;
+			pos($$textref) -= length($tag);	# REWIND TO NESTED TAG
+			unless (_match_tagged(@_))	# MATCH NESTED TAG
+			{
+				goto short if $omode eq 'PARA' || $omode eq 'MAX';
+				_failmsg "Found unbalanced nested tag: $tag",
+					 pos $$textref;
+				goto failed;
+			}
+		}
+		else { $$textref =~ m/./gcs }
+	}
+
+short:
+	$closetagpos = pos($$textref);
+	goto matched if $omode eq 'MAX';
+	goto failed unless $omode eq 'PARA';
+
+	if (defined $parapos) { pos($$textref) = $parapos }
+	else		      { $parapos = pos($$textref) }
+
+	return (
+		$startpos,    $opentagpos-$startpos,		# PREFIX
+		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
+		$textpos,     $parapos-$textpos,		# TEXT
+		$parapos,     0,				# NO CLOSING TAG
+		$parapos,     length($$textref)-$parapos,	# REMAINDER
+	       );
+	
+matched:
+	$endpos = pos($$textref);
+	return (
+		$startpos,    $opentagpos-$startpos,		# PREFIX
+		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
+		$textpos,     $closetagpos-$textpos,		# TEXT
+		$closetagpos, $endpos-$closetagpos,		# CLOSING TAG
+		$endpos,      length($$textref)-$endpos,	# REMAINDER
+	       );
+
+failed:
+	_failmsg "Did not find closing tag", pos $$textref unless $@;
+	pos($$textref) = $startpos;
+	return;
+}
+
+sub extract_variable (;$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	return ("","","") unless defined $$textref;
+	my $pre  = defined $_[1] ? $_[1] : '\s*';
+
+	my @match = _match_variable($textref,$pre);
+
+	return _fail wantarray, $textref unless @match;
+
+	return _succeed wantarray, $textref,
+			@match[2..3,4..5,0..1];		# MATCH, REMAINDER, PREFIX
+}
+
+sub _match_variable($$)
+{
+#  $#
+#  $^
+#  $$
+	my ($textref, $pre) = @_;
+	my $startpos = pos($$textref) = pos($$textref)||0;
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", pos $$textref;
+		return;
+	}
+	my $varpos = pos($$textref);
+        unless ($$textref =~ m{\G\$\s*(?!::)(\d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
+	{
+	    unless ($$textref =~ m/\G((\$#?|[*\@\%]|\\&)+)/gc)
+	    {
+		_failmsg "Did not find leading dereferencer", pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	    }
+	    my $deref = $1;
+
+	    unless ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/gci
+	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
+		or $deref eq '$#' or $deref eq '$$' )
+	    {
+		_failmsg "Bad identifier after dereferencer", pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	    }
+	}
+
+	while (1)
+	{
+		next if $$textref =~ m/\G\s*(?:->)?\s*[{]\w+[}]/gc;
+		next if _match_codeblock($textref,
+					 qr/\s*->\s*(?:[_a-zA-Z]\w+\s*)?/,
+					 qr/[({[]/, qr/[)}\]]/,
+					 qr/[({[]/, qr/[)}\]]/, 0);
+		next if _match_codeblock($textref,
+					 qr/\s*/, qr/[{[]/, qr/[}\]]/,
+					 qr/[{[]/, qr/[}\]]/, 0);
+		next if _match_variable($textref,'\s*->\s*');
+		next if $$textref =~ m/\G\s*->\s*\w+(?![{([])/gc;
+		last;
+	}
+	
+	my $endpos = pos($$textref);
+	return ($startpos, $varpos-$startpos,
+		$varpos,   $endpos-$varpos,
+		$endpos,   length($$textref)-$endpos
+		);
+}
+
+sub extract_codeblock (;$$$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $ldel_inner = defined $_[1] ? $_[1] : '{';
+	my $pre        = defined $_[2] ? $_[2] : '\s*';
+	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner;
+	my $rd         = $_[4];
+	my $rdel_inner = $ldel_inner;
+	my $rdel_outer = $ldel_outer;
+	my $posbug = pos;
+	for ($ldel_inner, $ldel_outer) { tr/[]()<>{}\0-\377/[[((<<{{/ds }
+	for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/ds }
+	for ($ldel_inner, $ldel_outer, $rdel_inner, $rdel_outer)
+	{
+		$_ = '('.join('|',map { quotemeta $_ } split('',$_)).')'
+	}
+	pos = $posbug;
+
+	my @match = _match_codeblock($textref, $pre,
+				     $ldel_outer, $rdel_outer,
+				     $ldel_inner, $rdel_inner,
+				     $rd);
+	return _fail($wantarray, $textref) unless @match;
+	return _succeed($wantarray, $textref,
+			@match[2..3,4..5,0..1]	# MATCH, REMAINDER, PREFIX
+		       );
+
+}
+
+sub _match_codeblock($$$$$$$)
+{
+	my ($textref, $pre, $ldel_outer, $rdel_outer, $ldel_inner, $rdel_inner, $rd) = @_;
+	my $startpos = pos($$textref) = pos($$textref) || 0;
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg qq{Did not match prefix /$pre/ at"} .
+			    substr($$textref,pos($$textref),20) .
+			    q{..."},
+		         pos $$textref;
+		return; 
+	}
+	my $codepos = pos($$textref);
+	unless ($$textref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
+	{
+		_failmsg qq{Did not find expected opening bracket at "} .
+			     substr($$textref,pos($$textref),20) .
+			     q{..."},
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+	my $closing = $1;
+	   $closing =~ tr/([<{/)]>}/;
+	my $matched;
+	my $patvalid = 1;
+	while (pos($$textref) < length($$textref))
+	{
+		$matched = '';
+		if ($rd && $$textref =~ m#\G(\Q(?)\E|\Q(s?)\E|\Q(s)\E)#gc)
+		{
+			$patvalid = 0;
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*#.*/gc)
+		{
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*($rdel_outer)/gc)
+		{
+			unless ($matched = ($closing && $1 eq $closing) )
+			{
+				next if $1 eq '>';	# MIGHT BE A "LESS THAN"
+				_failmsg q{Mismatched closing bracket at "} .
+					     substr($$textref,pos($$textref),20) .
+					     qq{...". Expected '$closing'},
+					 pos $$textref;
+			}
+			last;
+		}
+
+		if (_match_variable($textref,'\s*') ||
+		    _match_quotelike($textref,'\s*',$patvalid,$patvalid) )
+		{
+			$patvalid = 0;
+			next;
+		}
+
+
+		# NEED TO COVER MANY MORE CASES HERE!!!
+		if ($$textref =~ m#\G\s*(?!$ldel_inner)
+					( [-+*x/%^&|.]=?
+					| [!=]~
+					| =(?!>)
+					| (\*\*|&&|\|\||<<|>>)=?
+					| split|grep|map|return
+					| [([]
+					)#gcx)
+		{
+			$patvalid = 1;
+			next;
+		}
+
+		if ( _match_codeblock($textref, '\s*', $ldel_inner, $rdel_inner, $ldel_inner, $rdel_inner, $rd) )
+		{
+			$patvalid = 1;
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*$ldel_outer/gc)
+		{
+			_failmsg q{Improperly nested codeblock at "} .
+				     substr($$textref,pos($$textref),20) .
+				     q{..."},
+				 pos $$textref;
+			last;
+		}
+
+		$patvalid = 0;
+		$$textref =~ m/\G\s*(\w+|[-=>]>|.|\Z)/gc;
+	}
+	continue { $@ = undef }
+
+	unless ($matched)
+	{
+		_failmsg 'No match found for opening bracket', pos $$textref
+			unless $@;
+		return;
+	}
+
+	my $endpos = pos($$textref);
+	return ( $startpos, $codepos-$startpos,
+		 $codepos, $endpos-$codepos,
+		 $endpos,  length($$textref)-$endpos,
+	       );
+}
+
+
+my %mods   = (
+		'none'	=> '[cgimsox]*',
+		'm'	=> '[cgimsox]*',
+		's'	=> '[cegimsox]*',
+		'tr'	=> '[cds]*',
+		'y'	=> '[cds]*',
+		'qq'	=> '',
+		'qx'	=> '',
+		'qw'	=> '',
+		'qr'	=> '[imsx]*',
+		'q'	=> '',
+	     );
+
+sub extract_quotelike (;$$)
+{
+	my $textref = $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $pre  = defined $_[1] ? $_[1] : '\s*';
+
+	my @match = _match_quotelike($textref,$pre,1,0);
+	return _fail($wantarray, $textref) unless @match;
+	return _succeed($wantarray, $textref,
+			$match[2], $match[18]-$match[2],	# MATCH
+			@match[18,19],				# REMAINDER
+			@match[0,1],				# PREFIX
+			@match[2..17],				# THE BITS
+			@match[20,21],				# ANY FILLET?
+		       );
+};
+
+sub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_match)
+{
+	my ($textref, $pre, $rawmatch, $qmark) = @_;
+
+	my ($textlen,$startpos,
+	    $oppos,
+	    $preld1pos,$ld1pos,$str1pos,$rd1pos,
+	    $preld2pos,$ld2pos,$str2pos,$rd2pos,
+	    $modpos) = ( length($$textref), pos($$textref) = pos($$textref) || 0 );
+
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg qq{Did not find prefix /$pre/ at "} .
+			     substr($$textref, pos($$textref), 20) .
+			     q{..."},
+		         pos $$textref;
+		return; 
+	}
+	$oppos = pos($$textref);
+
+	my $initial = substr($$textref,$oppos,1);
+
+	if ($initial && $initial =~ m|^[\"\'\`]|
+		     || $rawmatch && $initial =~ m|^/|
+		     || $qmark && $initial =~ m|^\?|)
+	{
+		unless ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
+		{
+			_failmsg qq{Did not find closing delimiter to match '$initial' at "} .
+				     substr($$textref, $oppos, 20) .
+				     q{..."},
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		$modpos= pos($$textref);
+		$rd1pos = $modpos-1;
+
+		if ($initial eq '/' || $initial eq '?') 
+		{
+			$$textref =~ m/\G$mods{none}/gc
+		}
+
+		my $endpos = pos($$textref);
+		return (
+			$startpos,	$oppos-$startpos,	# PREFIX
+			$oppos,		0,			# NO OPERATOR
+			$oppos,		1,			# LEFT DEL
+			$oppos+1,	$rd1pos-$oppos-1,	# STR/PAT
+			$rd1pos,	1,			# RIGHT DEL
+			$modpos,	0,			# NO 2ND LDEL
+			$modpos,	0,			# NO 2ND STR
+			$modpos,	0,			# NO 2ND RDEL
+			$modpos,	$endpos-$modpos,	# MODIFIERS
+			$endpos, 	$textlen-$endpos,	# REMAINDER
+		       );
+	}
+
+	unless ($$textref =~ m{\G(\b(?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<)}gc)
+	{
+		_failmsg q{No quotelike operator found after prefix at "} .
+			     substr($$textref, pos($$textref), 20) .
+			     q{..."},
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	my $op = $1;
+	$preld1pos = pos($$textref);
+	if ($op eq '<<') {
+		$ld1pos = pos($$textref);
+		my $label;
+		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
+			$label = $1;
+		}
+		elsif ($$textref =~ m{ \G ' ([^'\\]* (?:\\.[^'\\]*)*) '
+				     | \G " ([^"\\]* (?:\\.[^"\\]*)*) "
+				     | \G ` ([^`\\]* (?:\\.[^`\\]*)*) `
+				     }gcsx) {
+			$label = $+;
+		}
+		else {
+			$label = "";
+		}
+		my $extrapos = pos($$textref);
+		$$textref =~ m{.*\n}gc;
+		$str1pos = pos($$textref)--;
+		unless ($$textref =~ m{.*?\n(?=\Q$label\E\n)}gc) {
+			_failmsg qq{Missing here doc terminator ('$label') after "} .
+				     substr($$textref, $startpos, 20) .
+				     q{..."},
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		$rd1pos = pos($$textref);
+        $$textref =~ m{\Q$label\E\n}gc;
+		$ld2pos = pos($$textref);
+		return (
+			$startpos,	$oppos-$startpos,	# PREFIX
+			$oppos,		length($op),		# OPERATOR
+			$ld1pos,	$extrapos-$ld1pos,	# LEFT DEL
+			$str1pos,	$rd1pos-$str1pos,	# STR/PAT
+			$rd1pos,	$ld2pos-$rd1pos,	# RIGHT DEL
+			$ld2pos,	0,			# NO 2ND LDEL
+			$ld2pos,	0,                	# NO 2ND STR
+			$ld2pos,	0,	                # NO 2ND RDEL
+			$ld2pos,	0,                      # NO MODIFIERS
+			$ld2pos,	$textlen-$ld2pos,	# REMAINDER
+			$extrapos,      $str1pos-$extrapos,	# FILLETED BIT
+		       );
+	}
+
+	$$textref =~ m/\G\s*/gc;
+	$ld1pos = pos($$textref);
+	$str1pos = $ld1pos+1;
+
+	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
+	{
+		_failmsg "No block delimiter found after quotelike $op",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
+	my ($ldel1, $rdel1) = ("\Q$1","\Q$1");
+	if ($ldel1 =~ /[[(<{]/)
+	{
+		$rdel1 =~ tr/[({</])}>/;
+		defined(_match_bracketed($textref,"",$ldel1,"","",$rdel1))
+		|| do { pos $$textref = $startpos; return };
+        $ld2pos = pos($$textref);
+        $rd1pos = $ld2pos-1;
+	}
+	else
+	{
+		$$textref =~ /\G$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs
+		|| do { pos $$textref = $startpos; return };
+        $ld2pos = $rd1pos = pos($$textref)-1;
+	}
+
+	my $second_arg = $op =~ /s|tr|y/ ? 1 : 0;
+	if ($second_arg)
+	{
+		my ($ldel2, $rdel2);
+		if ($ldel1 =~ /[[(<{]/)
+		{
+			unless ($$textref =~ /\G\s*(\S)/gc)	# SHOULD USE LOOKAHEAD
+			{
+				_failmsg "Missing second block for quotelike $op",
+					 pos $$textref;
+				pos $$textref = $startpos;
+				return;
+			}
+			$ldel2 = $rdel2 = "\Q$1";
+			$rdel2 =~ tr/[({</])}>/;
+		}
+		else
+		{
+			$ldel2 = $rdel2 = $ldel1;
+		}
+		$str2pos = $ld2pos+1;
+
+		if ($ldel2 =~ /[[(<{]/)
+		{
+			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
+			defined(_match_bracketed($textref,"",$ldel2,"","",$rdel2))
+			|| do { pos $$textref = $startpos; return };
+		}
+		else
+		{
+			$$textref =~ /[^\\$ldel2]*(\\.[^\\$ldel2]*)*$ldel2/gcs
+			|| do { pos $$textref = $startpos; return };
+		}
+		$rd2pos = pos($$textref)-1;
+	}
+	else
+	{
+		$ld2pos = $str2pos = $rd2pos = $rd1pos;
+	}
+
+	$modpos = pos $$textref;
+
+	$$textref =~ m/\G($mods{$op})/gc;
+	my $endpos = pos $$textref;
+
+	return (
+		$startpos,	$oppos-$startpos,	# PREFIX
+		$oppos,		length($op),		# OPERATOR
+		$ld1pos,	1,			# LEFT DEL
+		$str1pos,	$rd1pos-$str1pos,	# STR/PAT
+		$rd1pos,	1,			# RIGHT DEL
+		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
+		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
+		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
+		$modpos,	$endpos-$modpos,	# MODIFIERS
+		$endpos,	$textlen-$endpos,	# REMAINDER
+	       );
+}
+
+my $def_func = [
+	sub { extract_variable($_[0], '') },
+	sub { extract_quotelike($_[0],'') },
+	sub { extract_codeblock($_[0],'{}','') },
+];
+
+sub extract_multiple (;$$$$)	# ($text, $functions_ref, $max_fields, $ignoreunknown)
+{
+	my $textref = defined($_[0]) ? \$_[0] : \$_;
+	my $posbug = pos;
+	my ($lastpos, $firstpos);
+	my @fields = ();
+
+	#for ($$textref)
+	{
+		my @func = defined $_[1] ? @{$_[1]} : @{$def_func};
+		my $max  = defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
+		my $igunk = $_[3];
+
+		pos $$textref ||= 0;
+
+		unless (wantarray)
+		{
+			use Carp;
+			carp "extract_multiple reset maximal count to 1 in scalar context"
+				if $^W && defined($_[2]) && $max > 1;
+			$max = 1
+		}
+
+		my $unkpos;
+		my $func;
+		my $class;
+
+		my @class;
+		foreach $func ( @func )
+		{
+			if (ref($func) eq 'HASH')
+			{
+				push @class, (keys %$func)[0];
+				$func = (values %$func)[0];
+			}
+			else
+			{
+				push @class, undef;
+			}
+		}
+
+		FIELD: while (pos($$textref) < length($$textref))
+		{
+			my ($field, $rem);
+			my @bits;
+			foreach my $i ( 0..$#func )
+			{
+				my $pref;
+				$func = $func[$i];
+				$class = $class[$i];
+				$lastpos = pos $$textref;
+				if (ref($func) eq 'CODE')
+					{ ($field,$rem,$pref) = @bits = $func->($$textref) }
+				elsif (ref($func) eq 'Text::Balanced::Extractor')
+					{ @bits = $field = $func->extract($$textref) }
+				elsif( $$textref =~ m/\G$func/gc )
+					{ @bits = $field = defined($1)
+                                ? $1
+                                : substr($$textref, $-[0], $+[0] - $-[0])
+                    }
+				$pref ||= "";
+				if (defined($field) && length($field))
+				{
+					if (!$igunk) {
+						$unkpos = $lastpos
+							if length($pref) && !defined($unkpos);
+						if (defined $unkpos)
+						{
+							push @fields, substr($$textref, $unkpos, $lastpos-$unkpos).$pref;
+							$firstpos = $unkpos unless defined $firstpos;
+							undef $unkpos;
+							last FIELD if @fields == $max;
+						}
+					}
+					push @fields, $class
+						? bless (\$field, $class)
+						: $field;
+					$firstpos = $lastpos unless defined $firstpos;
+					$lastpos = pos $$textref;
+					last FIELD if @fields == $max;
+					next FIELD;
+				}
+			}
+			if ($$textref =~ /\G(.)/gcs)
+			{
+				$unkpos = pos($$textref)-1
+					unless $igunk || defined $unkpos;
+			}
+		}
+		
+		if (defined $unkpos)
+		{
+			push @fields, substr($$textref, $unkpos);
+			$firstpos = $unkpos unless defined $firstpos;
+			$lastpos = length $$textref;
+		}
+		last;
+	}
+
+	pos $$textref = $lastpos;
+	return @fields if wantarray;
+
+	$firstpos ||= 0;
+	eval { substr($$textref,$firstpos,$lastpos-$firstpos)="";
+	       pos $$textref = $firstpos };
+	return $fields[0];
+}
+
+sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
+{
+	my $ldel    = $_[0];
+	my $rdel    = $_[1];
+	my $pre     = defined $_[2] ? $_[2] : '\s*';
+	my %options = defined $_[3] ? %{$_[3]} : ();
+	my $omode   = defined $options{fail} ? $options{fail} : '';
+	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
+		    : defined($options{reject})	       ? $options{reject}
+		    :					 ''
+		    ;
+	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
+		    : defined($options{ignore})	       ? $options{ignore}
+		    :					 ''
+		    ;
+
+	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }
+
+	my $posbug = pos;
+	for ($ldel, $pre, $bad, $ignore) { $_ = qr/$_/ if $_ }
+	pos = $posbug;
+
+	my $closure = sub
+	{
+		my $textref = defined $_[0] ? \$_[0] : \$_;
+		my @match = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
+
+		return _fail(wantarray, $textref) unless @match;
+		return _succeed wantarray, $textref,
+				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
+				@match[8..9,0..1,2..7];				# REM, PRE, BITS
+	};
+
+	bless $closure, 'Text::Balanced::Extractor';
+}
+
+package Text::Balanced::Extractor;
+
+sub extract($$)	# ($self, $text)
+{
+	&{$_[0]}($_[1]);
+}
+
+package Text::Balanced::ErrorMsg;
+
+use overload '""' => sub { "$_[0]->{error}, detected at offset $_[0]->{pos}" };
+
+1;
+
+__END__
+
+package Text::Tabs;
+
+require Exporter;
+
+@ISA = (Exporter);
+@EXPORT = qw(expand unexpand $tabstop);
+
+use vars qw($VERSION $SUBVERSION $tabstop $debug);
+$VERSION = 2013.0523;
+$SUBVERSION = 'modern';
+
+use strict;
+
+use 5.010_000;
+
+BEGIN	{
+	$tabstop = 8;
+	$debug = 0;
+}
+
+my $CHUNK = qr/\X/;
+
+sub _xlen (_) { scalar(() = $_[0] =~ /$CHUNK/g) } 
+sub _xpos (_) { _xlen( substr( $_[0], 0, pos($_[0]) ) ) }
+
+sub expand {
+	my @l;
+	my $pad;
+	for ( @_ ) {
+		my $s = '';
+		for (split(/^/m, $_, -1)) {
+			my $offs = 0;
+			s{\t}{
+			    # this works on both 5.10 and 5.11
+				$pad = $tabstop - (_xlen(${^PREMATCH}) + $offs) % $tabstop;
+			    # this works on 5.11, but fails on 5.10
+				#XXX# $pad = $tabstop - (_xpos() + $offs) % $tabstop;
+				$offs += $pad - 1;
+				" " x $pad;
+			}peg;
+			$s .= $_;
+		}
+		push(@l, $s);
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+sub unexpand
+{
+	my (@l) = @_;
+	my @e;
+	my $x;
+	my $line;
+	my @lines;
+	my $lastbit;
+	my $ts_as_space = " " x $tabstop;
+	for $x (@l) {
+		@lines = split("\n", $x, -1);
+		for $line (@lines) {
+			$line = expand($line);
+			@e = split(/(${CHUNK}{$tabstop})/,$line,-1);
+			$lastbit = pop(@e);
+			$lastbit = '' 
+				unless defined $lastbit;
+			$lastbit = "\t"
+				if $lastbit eq $ts_as_space;
+			for $_ (@e) {
+				if ($debug) {
+					my $x = $_;
+					$x =~ s/\t/^I\t/gs;
+					print "sub on '$x'\n";
+				}
+				s/  +$/\t/;
+			}
+			$line = join('',@e, $lastbit);
+		}
+		$x = join("\n", @lines);
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+1;
+__END__
+
+sub expand
+{
+	my (@l) = @_;
+	for $_ (@l) {
+		1 while s/(^|\n)([^\t\n]*)(\t+)/
+			$1. $2 . (" " x 
+				($tabstop * length($3)
+				- (length($2) % $tabstop)))
+			/sex;
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+
+package Text::Abbrev;
+require 5.005;		# Probably works on earlier versions too.
+require Exporter;
+
+our $VERSION = '1.02';
+
+
+@ISA = qw(Exporter);
+@EXPORT = qw(abbrev);
+
+# Usage:
+#	abbrev \%foo, LIST;
+#	...
+#	$long = $foo{$short};
+
+sub abbrev {
+    my ($word, $hashref, $glob, %table, $returnvoid);
+
+    @_ or return;   # So we don't autovivify onto @_ and trigger warning
+    if (ref($_[0])) {           # hash reference preferably
+      $hashref = shift;
+      $returnvoid = 1;
+    } elsif (ref \$_[0] eq 'GLOB') {  # is actually a glob (deprecated)
+      $hashref = \%{shift()};
+      $returnvoid = 1;
+    }
+    %{$hashref} = ();
+
+    WORD: foreach $word (@_) {
+        for (my $len = (length $word) - 1; $len > 0; --$len) {
+	    my $abbrev = substr($word,0,$len);
+	    my $seen = ++$table{$abbrev};
+	    if ($seen == 1) {	    # We're the first word so far to have
+	    			    # this abbreviation.
+	        $hashref->{$abbrev} = $word;
+	    } elsif ($seen == 2) {  # We're the second word to have this
+	    			    # abbreviation, so we can't use it.
+	        delete $hashref->{$abbrev};
+	    } else {		    # We're the third word to have this
+	    			    # abbreviation, so skip to the next word.
+	        next WORD;
+	    }
+	}
+    }
+    # Non-abbreviations always get entered, even if they aren't unique
+    foreach $word (@_) {
+        $hashref->{$word} = $word;
+    }
+    return if $returnvoid;
+    if (wantarray) {
+      %{$hashref};
+    } else {
+      $hashref;
+    }
+}
+
+1;
+package Text::Wrap;
+
+use warnings::register;
+require Exporter;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(wrap fill);
+@EXPORT_OK = qw($columns $break $huge);
+
+$VERSION = 2013.0523;
+$SUBVERSION = 'modern';
+
+use 5.010_000;
+
+use vars qw($VERSION $SUBVERSION $columns $debug $break $huge $unexpand $tabstop $separator $separator2);
+use strict;
+
+BEGIN	{
+	$columns = 76;  # <= screen width
+	$debug = 0;
+	$break = '(?=\s)\X';
+	$huge = 'wrap'; # alternatively: 'die' or 'overflow'
+	$unexpand = 1;
+	$tabstop = 8;
+	$separator = "\n";
+	$separator2 = undef;
+}
+
+my $CHUNK = qr/\X/;
+
+sub _xlen(_) { scalar(() = $_[0] =~ /$CHUNK/g) }
+
+sub _xpos(_) { _xlen( substr( $_[0], 0, pos($_[0]) ) ) }
+
+use Text::Tabs qw(expand unexpand);
+
+sub wrap
+{
+	my ($ip, $xp, @t) = @_;
+
+	local($Text::Tabs::tabstop) = $tabstop;
+	my $r = "";
+	my $tail = pop(@t);
+	my $t = expand(join("", (map { /\s+\z/ ? ( $_ ) : ($_, ' ') } @t), $tail));
+	my $lead = $ip;
+	my $nll = $columns - _xlen(expand($xp)) - 1;
+	if ($nll <= 0 && $xp ne '') {
+		my $nc = _xlen(expand($xp)) + 2;
+		warnings::warnif "Increasing \$Text::Wrap::columns from $columns to $nc to accommodate length of subsequent tab";
+		$columns = $nc;
+		$nll = 1;
+	}
+	my $ll = $columns - _xlen(expand($ip)) - 1;
+	$ll = 0 if $ll < 0;
+	my $nl = "";
+	my $remainder = "";
+
+	use re 'taint';
+
+	pos($t) = 0;
+	while ($t !~ /\G(?:$break)*\Z/gc) {
+		if ($t =~ /\G((?:(?=[^\n])\X){0,$ll})($break|\n+|\z)/xmgc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = $2;
+		} elsif ($huge eq 'wrap' && $t =~ /\G((?:(?=[^\n])\X){$ll})/gc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = defined($separator2) ? $separator2 : $separator;
+		} elsif ($huge eq 'overflow' && $t =~ /\G((?:(?=[^\n])\X)*?)($break|\n+|\z)/xmgc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = $2;
+		} elsif ($huge eq 'die') {
+			die "couldn't wrap '$t'";
+		} elsif ($columns < 2) {
+			warnings::warnif "Increasing \$Text::Wrap::columns from $columns to 2";
+			$columns = 2;
+			return ($ip, $xp, @t);
+		} else {
+			die "This shouldn't happen";
+		}
+			
+		$lead = $xp;
+		$ll = $nll;
+		$nl = defined($separator2)
+			? ($remainder eq "\n"
+				? "\n"
+				: $separator2)
+			: $separator;
+	}
+	$r .= $remainder;
+
+	print "-----------$r---------\n" if $debug;
+
+	print "Finish up with '$lead'\n" if $debug;
+
+	my($opos) = pos($t);
+
+	$r .= $lead . substr($t, pos($t), length($t) - pos($t))
+		if pos($t) ne length($t);
+
+	print "-----------$r---------\n" if $debug;;
+
+	return $r;
+}
+
+sub fill 
+{
+	my ($ip, $xp, @raw) = @_;
+	my @para;
+	my $pp;
+
+	for $pp (split(/\n\s+/, join("\n",@raw))) {
+		$pp =~ s/\s+/ /g;
+		my $x = wrap($ip, $xp, $pp);
+		push(@para, $x);
+	}
+
+	# if paragraph_indent is the same as line_indent, 
+	# separate paragraphs with blank lines
+
+	my $ps = ($ip eq $xp) ? "\n\n" : "\n";
+	return join ($ps, @para);
+}
+
+1;
+__END__
+
+package IPC::Open3;
+
+use strict;
+no strict 'refs'; # because users pass me bareword filehandles
+our ($VERSION, @ISA, @EXPORT);
+
+require Exporter;
+
+use Carp;
+use Symbol qw(gensym qualify);
+
+$VERSION	= '1.20';
+@ISA		= qw(Exporter);
+@EXPORT		= qw(open3);
+
+
+# &open3: Marc Horowitz <marc@mit.edu>
+# derived mostly from &open2 by tom christiansen, <tchrist@convex.com>
+# fixed for 5.001 by Ulrich Kunitz <kunitz@mai-koeln.com>
+# ported to Win32 by Ron Schmidt, Merrill Lynch almost ended my career
+# fixed for autovivving FHs, tchrist again
+# allow fd numbers to be used, by Frank Tobin
+# allow '-' as command (c.f. open "-|"), by Adam Spiers <perl@adamspiers.org>
+#
+# usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...);
+#
+# spawn the given $cmd and connect rdr for
+# reading, wtr for writing, and err for errors.
+# if err is '', or the same as rdr, then stdout and
+# stderr of the child are on the same fh.  returns pid
+# of child (or dies on failure).
+
+
+# if wtr begins with '<&', then wtr will be closed in the parent, and
+# the child will read from it directly.  if rdr or err begins with
+# '>&', then the child will send output directly to that fd.  In both
+# cases, there will be a dup() instead of a pipe() made.
+
+
+# WARNING: this is dangerous, as you may block forever
+# unless you are very careful.
+#
+# $wtr is left unbuffered.
+#
+# abort program if
+#   rdr or wtr are null
+#   a system call fails
+
+our $Me = 'open3 (bug)';	# you should never see this, it's always localized
+
+# Fatal.pm needs to be fixed WRT prototypes.
+
+sub xpipe {
+    pipe $_[0], $_[1] or croak "$Me: pipe($_[0], $_[1]) failed: $!";
+}
+
+# I tried using a * prototype character for the filehandle but it still
+# disallows a bareword while compiling under strict subs.
+
+sub xopen {
+    open $_[0], $_[1], @_[2..$#_] and return;
+    local $" = ', ';
+    carp "$Me: open(@_) failed: $!";
+}
+
+sub xclose {
+    $_[0] =~ /\A=?(\d+)\z/
+	? do { my $fh; open($fh, $_[1] . '&=' . $1) and close($fh); }
+	: close $_[0]
+	or croak "$Me: close($_[0]) failed: $!";
+}
+
+sub xfileno {
+    return $1 if $_[0] =~ /\A=?(\d+)\z/;  # deal with fh just being an fd
+    return fileno $_[0];
+}
+
+use constant FORCE_DEBUG_SPAWN => 0;
+use constant DO_SPAWN => $^O eq 'os2' || $^O eq 'MSWin32' || FORCE_DEBUG_SPAWN;
+
+sub _open3 {
+    local $Me = shift;
+
+    # simulate autovivification of filehandles because
+    # it's too ugly to use @_ throughout to make perl do it for us
+    # tchrist 5-Mar-00
+
+    # Historically, open3(undef...) has silently worked, so keep
+    # it working.
+    splice @_, 0, 1, undef if \$_[0] == \undef;
+    splice @_, 1, 1, undef if \$_[1] == \undef;
+    unless (eval  {
+	$_[0] = gensym unless defined $_[0] && length $_[0];
+	$_[1] = gensym unless defined $_[1] && length $_[1];
+	1; })
+    {
+	# must strip crud for croak to add back, or looks ugly
+	$@ =~ s/(?<=value attempted) at .*//s;
+	croak "$Me: $@";
+    }
+
+    my @handles = ({ mode => '<', handle => \*STDIN },
+		   { mode => '>', handle => \*STDOUT },
+		   { mode => '>', handle => \*STDERR },
+		  );
+
+    foreach (@handles) {
+	$_->{parent} = shift;
+	$_->{open_as} = gensym;
+    }
+
+    if (@_ > 1 and $_[0] eq '-') {
+	croak "Arguments don't make sense when the command is '-'"
+    }
+
+    $handles[2]{parent} ||= $handles[1]{parent};
+    $handles[2]{dup_of_out} = $handles[1]{parent} eq $handles[2]{parent};
+
+    my $package;
+    foreach (@handles) {
+	$_->{dup} = ($_->{parent} =~ s/^[<>]&//);
+
+	if ($_->{parent} !~ /\A=?(\d+)\z/) {
+	    # force unqualified filehandles into caller's package
+	    $package //= caller 1;
+	    $_->{parent} = qualify $_->{parent}, $package;
+	}
+
+	next if $_->{dup} or $_->{dup_of_out};
+	if ($_->{mode} eq '<') {
+	    xpipe $_->{open_as}, $_->{parent};
+	} else {
+	    xpipe $_->{parent}, $_->{open_as};
+	}
+    }
+
+    my $kidpid;
+    if (!DO_SPAWN) {
+	# Used to communicate exec failures.
+	xpipe my $stat_r, my $stat_w;
+
+	$kidpid = fork;
+	croak "$Me: fork failed: $!" unless defined $kidpid;
+	if ($kidpid == 0) {  # Kid
+	    eval {
+		# A tie in the parent should not be allowed to cause problems.
+		untie *STDIN;
+		untie *STDOUT;
+		untie *STDERR;
+
+		close $stat_r;
+		require Fcntl;
+		my $flags = fcntl $stat_w, &Fcntl::F_GETFD, 0;
+		croak "$Me: fcntl failed: $!" unless $flags;
+		fcntl $stat_w, &Fcntl::F_SETFD, $flags|&Fcntl::FD_CLOEXEC
+		    or croak "$Me: fcntl failed: $!";
+
+		# If she wants to dup the kid's stderr onto her stdout I need to
+		# save a copy of her stdout before I put something else there.
+		if (!$handles[2]{dup_of_out} && $handles[2]{dup}
+			&& xfileno($handles[2]{parent}) == fileno \*STDOUT) {
+		    my $tmp = gensym;
+		    xopen($tmp, '>&', $handles[2]{parent});
+		    $handles[2]{parent} = $tmp;
+		}
+
+		foreach (@handles) {
+		    if ($_->{dup_of_out}) {
+			xopen \*STDERR, ">&STDOUT"
+			    if defined fileno STDERR && fileno STDERR != fileno STDOUT;
+		    } elsif ($_->{dup}) {
+			xopen $_->{handle}, $_->{mode} . '&', $_->{parent}
+			    if fileno $_->{handle} != xfileno($_->{parent});
+		    } else {
+			xclose $_->{parent}, $_->{mode};
+			xopen $_->{handle}, $_->{mode} . '&=',
+			    fileno $_->{open_as};
+		    }
+		}
+		return 1 if ($_[0] eq '-');
+		exec @_ or do {
+		    local($")=(" ");
+		    croak "$Me: exec of @_ failed: $!";
+		};
+	    } and do {
+                close $stat_w;
+                return 0;
+            };
+
+	    my $bang = 0+$!;
+	    my $err = $@;
+	    utf8::encode $err if $] >= 5.008;
+	    print $stat_w pack('IIa*', $bang, length($err), $err);
+	    close $stat_w;
+
+	    eval { require POSIX; POSIX::_exit(255); };
+	    exit 255;
+	}
+	else {  # Parent
+	    close $stat_w;
+	    my $to_read = length(pack('I', 0)) * 2;
+	    my $bytes_read = read($stat_r, my $buf = '', $to_read);
+	    if ($bytes_read) {
+		(my $bang, $to_read) = unpack('II', $buf);
+		read($stat_r, my $err = '', $to_read);
+		waitpid $kidpid, 0; # Reap child which should have exited
+		if ($err) {
+		    utf8::decode $err if $] >= 5.008;
+		} else {
+		    $err = "$Me: " . ($! = $bang);
+		}
+		$! = $bang;
+		die($err);
+	    }
+	}
+    }
+    else {  # DO_SPAWN
+	# All the bookkeeping of coincidence between handles is
+	# handled in spawn_with_handles.
+
+	my @close;
+
+	foreach (@handles) {
+	    if ($_->{dup_of_out}) {
+		$_->{open_as} = $handles[1]{open_as};
+	    } elsif ($_->{dup}) {
+		$_->{open_as} = $_->{parent} =~ /\A[0-9]+\z/
+		    ? $_->{parent} : \*{$_->{parent}};
+		push @close, $_->{open_as};
+	    } else {
+		push @close, \*{$_->{parent}}, $_->{open_as};
+	    }
+	}
+	require IO::Pipe;
+	$kidpid = eval {
+	    spawn_with_handles(\@handles, \@close, @_);
+	};
+	die "$Me: $@" if $@;
+    }
+
+    foreach (@handles) {
+	next if $_->{dup} or $_->{dup_of_out};
+	xclose $_->{open_as}, $_->{mode};
+    }
+
+    # If the write handle is a dup give it away entirely, close my copy
+    # of it.
+    xclose $handles[0]{parent}, $handles[0]{mode} if $handles[0]{dup};
+
+    select((select($handles[0]{parent}), $| = 1)[0]); # unbuffer pipe
+    $kidpid;
+}
+
+sub open3 {
+    if (@_ < 4) {
+	local $" = ', ';
+	croak "open3(@_): not enough arguments";
+    }
+    return _open3 'open3', @_
+}
+
+sub spawn_with_handles {
+    my $fds = shift;		# Fields: handle, mode, open_as
+    my $close_in_child = shift;
+    my ($fd, %saved, @errs);
+
+    foreach $fd (@$fds) {
+	$fd->{tmp_copy} = IO::Handle->new_from_fd($fd->{handle}, $fd->{mode});
+	$saved{fileno $fd->{handle}} = $fd->{tmp_copy} if $fd->{tmp_copy};
+    }
+    foreach $fd (@$fds) {
+	bless $fd->{handle}, 'IO::Handle'
+	    unless eval { $fd->{handle}->isa('IO::Handle') } ;
+	# If some of handles to redirect-to coincide with handles to
+	# redirect, we need to use saved variants:
+    my $open_as = $fd->{open_as};
+    my $fileno = fileno($open_as);
+    $fd->{handle}->fdopen(defined($fileno)
+                  ? $saved{$fileno} || $open_as
+                  : $open_as,
+                  $fd->{mode});
+    }
+    unless ($^O eq 'MSWin32') {
+	require Fcntl;
+	# Stderr may be redirected below, so we save the err text:
+	foreach $fd (@$close_in_child) {
+	    next unless fileno $fd;
+	    fcntl($fd, Fcntl::F_SETFD(), 1) or push @errs, "fcntl $fd: $!"
+		unless $saved{fileno $fd}; # Do not close what we redirect!
+	}
+    }
+
+    my $pid;
+    unless (@errs) {
+	if (FORCE_DEBUG_SPAWN) {
+	    pipe my $r, my $w or die "Pipe failed: $!";
+	    $pid = fork;
+	    die "Fork failed: $!" unless defined $pid;
+	    if (!$pid) {
+		{ no warnings; exec @_ }
+		print $w 0 + $!;
+		close $w;
+		require POSIX;
+		POSIX::_exit(255);
+	    }
+	    close $w;
+	    my $bad = <$r>;
+	    if (defined $bad) {
+		$! = $bad;
+		undef $pid;
+	    }
+	} else {
+	    $pid = eval { system 1, @_ }; # 1 == P_NOWAIT
+	}
+	if($@) {
+	    push @errs, "IO::Pipe: Can't spawn-NOWAIT: $@";
+	} elsif(!$pid || $pid < 0) {
+	    push @errs, "IO::Pipe: Can't spawn-NOWAIT: $!";
+	}
+    }
+
+    # Do this in reverse, so that STDERR is restored first:
+    foreach $fd (reverse @$fds) {
+	$fd->{handle}->fdopen($fd->{tmp_copy}, $fd->{mode});
+    }
+    foreach (values %saved) {
+	$_->close or croak "Can't close: $!";
+    }
+    croak join "\n", @errs if @errs;
+    return $pid;
+}
+
+1; # so require is happy
+package IPC::Cmd;
+
+use strict;
+
+BEGIN {
+
+    use constant IS_VMS         => $^O eq 'VMS'                       ? 1 : 0;
+    use constant IS_WIN32       => $^O eq 'MSWin32'                   ? 1 : 0;
+    use constant IS_WIN98       => (IS_WIN32 and !Win32::IsWinNT())   ? 1 : 0;
+    use constant ALARM_CLASS    => __PACKAGE__ . '::TimeOut';
+    use constant SPECIAL_CHARS  => qw[< > | &];
+    use constant QUOTE          => do { IS_WIN32 ? q["] : q['] };
+
+    use Exporter    ();
+    use vars        qw[ @ISA $VERSION @EXPORT_OK $VERBOSE $DEBUG
+                        $USE_IPC_RUN $USE_IPC_OPEN3 $CAN_USE_RUN_FORKED $WARN
+                        $INSTANCES $ALLOW_NULL_ARGS
+                        $HAVE_MONOTONIC
+                    ];
+
+    $VERSION        = '1.00';
+    $VERBOSE        = 0;
+    $DEBUG          = 0;
+    $WARN           = 1;
+    $USE_IPC_RUN    = IS_WIN32 && !IS_WIN98;
+    $USE_IPC_OPEN3  = not IS_VMS;
+    $ALLOW_NULL_ARGS = 0;
+
+    $CAN_USE_RUN_FORKED = 0;
+    eval {
+        require POSIX; POSIX->import();
+        require IPC::Open3; IPC::Open3->import();
+        require IO::Select; IO::Select->import();
+        require IO::Handle; IO::Handle->import();
+        require FileHandle; FileHandle->import();
+        require Socket;
+        require Time::HiRes; Time::HiRes->import();
+        require Win32 if IS_WIN32;
+    };
+    $CAN_USE_RUN_FORKED = $@ || !IS_VMS && !IS_WIN32;
+
+    eval {
+        my $wait_start_time = Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
+    };
+    if ($@) {
+        $HAVE_MONOTONIC = 0;
+    }
+    else {
+        $HAVE_MONOTONIC = 1;
+    }
+
+    @ISA            = qw[Exporter];
+    @EXPORT_OK      = qw[can_run run run_forked QUOTE];
+}
+
+require Carp;
+use File::Spec;
+use Params::Check               qw[check];
+use Text::ParseWords            ();             # import ONLY if needed!
+use Module::Load::Conditional   qw[can_load];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+local $Module::Load::Conditional::FORCE_SAFE_INC = 1;
+
+
+
+sub can_use_ipc_run     {
+    my $self    = shift;
+    my $verbose = shift || 0;
+
+    ### IPC::Run doesn't run on win98
+    return if IS_WIN98;
+
+    ### if we don't have ipc::run, we obviously can't use it.
+    return unless can_load(
+                        modules => { 'IPC::Run' => '0.55' },
+                        verbose => ($WARN && $verbose),
+                    );
+
+    ### otherwise, we're good to go
+    return $IPC::Run::VERSION;
+}
+
+
+
+sub can_use_ipc_open3   {
+    my $self    = shift;
+    my $verbose = shift || 0;
+
+    ### IPC::Open3 is not working on VMS because of a lack of fork.
+    return if IS_VMS;
+
+    ### IPC::Open3 works on every non-VMS platform, but it can't
+    ### capture buffers on win32 :(
+    return unless can_load(
+        modules => { map {$_ => '0.0'} qw|IPC::Open3 IO::Select Symbol| },
+        verbose => ($WARN && $verbose),
+    );
+
+    return $IPC::Open3::VERSION;
+}
+
+
+sub can_capture_buffer {
+    my $self    = shift;
+
+    return 1 if $USE_IPC_RUN    && $self->can_use_ipc_run;
+    return 1 if $USE_IPC_OPEN3  && $self->can_use_ipc_open3;
+    return;
+}
+
+
+sub can_run {
+    my $command = shift;
+
+    # a lot of VMS executables have a symbol defined
+    # check those first
+    if ( $^O eq 'VMS' ) {
+        require VMS::DCLsym;
+        my $syms = VMS::DCLsym->new;
+        return $command if scalar $syms->getsym( uc $command );
+    }
+
+    require File::Spec;
+    require ExtUtils::MakeMaker;
+
+    my @possibles;
+
+    if( File::Spec->file_name_is_absolute($command) ) {
+        return MM->maybe_command($command);
+
+    } else {
+        for my $dir (
+            File::Spec->path,
+            ( IS_WIN32 ? File::Spec->curdir : () )
+        ) {
+            next if ! $dir || ! -d $dir;
+            my $abs = File::Spec->catfile( IS_WIN32 ? Win32::GetShortPathName( $dir ) : $dir, $command);
+            push @possibles, $abs if $abs = MM->maybe_command($abs);
+        }
+    }
+    return @possibles if wantarray and $INSTANCES;
+    return shift @possibles;
+}
+
+
+{   my @acc = qw[ok error _fds];
+
+    ### autogenerate accessors ###
+    for my $key ( @acc ) {
+        no strict 'refs';
+        *{__PACKAGE__."::$key"} = sub {
+            $_[0]->{$key} = $_[1] if @_ > 1;
+            return $_[0]->{$key};
+        }
+    }
+}
+
+sub can_use_run_forked {
+    return $CAN_USE_RUN_FORKED eq "1";
+}
+
+sub get_monotonic_time {
+    if ($HAVE_MONOTONIC) {
+        return Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
+    }
+    else {
+        return time();
+    }
+}
+
+sub adjust_monotonic_start_time {
+    my ($ref_vars, $now, $previous) = @_;
+
+    # workaround only for those systems which don't have
+    # Time::HiRes::CLOCK_MONOTONIC (Mac OSX in particular)
+    return if $HAVE_MONOTONIC;
+
+    # don't have previous monotonic value (only happens once
+    # in the beginning of the program execution)
+    return unless $previous;
+
+    my $time_diff = $now - $previous;
+
+    # adjust previously saved time with the skew value which is
+    # either negative when clock moved back or more than 5 seconds --
+    # assuming that event loop does happen more often than once
+    # per five seconds, which might not be always true (!) but
+    # hopefully that's ok, because it's just a workaround
+    if ($time_diff > 5 || $time_diff < 0) {
+        foreach my $ref_var (@{$ref_vars}) {
+            if (defined($$ref_var)) {
+                $$ref_var = $$ref_var + $time_diff;
+            }
+        }
+    }
+}
+
+sub uninstall_signals {
+		return unless defined($IPC::Cmd::{'__old_signals'});
+
+		foreach my $sig_name (keys %{$IPC::Cmd::{'__old_signals'}}) {
+				$SIG{$sig_name} = $IPC::Cmd::{'__old_signals'}->{$sig_name};
+		}
+}
+
+# incompatible with POSIX::SigAction
+#
+sub install_layered_signal {
+  my ($s, $handler_code) = @_;
+
+  my %available_signals = map {$_ => 1} keys %SIG;
+
+  Carp::confess("install_layered_signal got nonexistent signal name [$s]")
+    unless defined($available_signals{$s});
+  Carp::confess("install_layered_signal expects coderef")
+    if !ref($handler_code) || ref($handler_code) ne 'CODE';
+
+  $IPC::Cmd::{'__old_signals'} = {}
+  		unless defined($IPC::Cmd::{'__old_signals'});
+	$IPC::Cmd::{'__old_signals'}->{$s} = $SIG{$s};
+
+  my $previous_handler = $SIG{$s};
+
+  my $sig_handler = sub {
+    my ($called_sig_name, @sig_param) = @_;
+
+    # $s is a closure referring to real signal name
+    # for which this handler is being installed.
+    # it is used to distinguish between
+    # real signal handlers and aliased signal handlers
+    my $signal_name = $s;
+
+    # $called_sig_name is a signal name which
+    # was passed to this signal handler;
+    # it doesn't equal $signal_name in case
+    # some signal handlers in %SIG point
+    # to other signal handler (CHLD and CLD,
+    # ABRT and IOT)
+    #
+    # initial signal handler for aliased signal
+    # calls some other signal handler which
+    # should not execute the same handler_code again
+    if ($called_sig_name eq $signal_name) {
+      $handler_code->($signal_name);
+    }
+
+    # run original signal handler if any (including aliased)
+    #
+    if (ref($previous_handler)) {
+      $previous_handler->($called_sig_name, @sig_param);
+    }
+  };
+
+  $SIG{$s} = $sig_handler;
+}
+
+# give process a chance sending TERM,
+# waiting for a while (2 seconds)
+# and killing it with KILL
+sub kill_gently {
+  my ($pid, $opts) = @_;
+
+  require POSIX;
+
+  $opts = {} unless $opts;
+  $opts->{'wait_time'} = 2 unless defined($opts->{'wait_time'});
+  $opts->{'first_kill_type'} = 'just_process' unless $opts->{'first_kill_type'};
+  $opts->{'final_kill_type'} = 'just_process' unless $opts->{'final_kill_type'};
+
+  if ($opts->{'first_kill_type'} eq 'just_process') {
+    kill(15, $pid);
+  }
+  elsif ($opts->{'first_kill_type'} eq 'process_group') {
+    kill(-15, $pid);
+  }
+
+  my $do_wait = 1;
+  my $child_finished = 0;
+
+  my $wait_start_time = get_monotonic_time();
+  my $now;
+  my $previous_monotonic_value;
+
+  while ($do_wait) {
+    $previous_monotonic_value = $now;
+    $now = get_monotonic_time();
+    
+    adjust_monotonic_start_time([\$wait_start_time], $now, $previous_monotonic_value);
+
+    if ($now > $wait_start_time + $opts->{'wait_time'}) {
+        $do_wait = 0;
+        next;
+    }
+
+    my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+    if ($waitpid eq -1) {
+        $child_finished = 1;
+        $do_wait = 0;
+        next;
+    }
+    
+    Time::HiRes::usleep(250000); # quarter of a second
+  }
+
+  if (!$child_finished) {
+    if ($opts->{'final_kill_type'} eq 'just_process') {
+      kill(9, $pid);
+    }
+    elsif ($opts->{'final_kill_type'} eq 'process_group') {
+      kill(-9, $pid);
+    }
+  }
+}
+
+sub open3_run {
+    my ($cmd, $opts) = @_;
+
+    $opts = {} unless $opts;
+
+    my $child_in = FileHandle->new;
+    my $child_out = FileHandle->new;
+    my $child_err = FileHandle->new;
+    $child_out->autoflush(1);
+    $child_err->autoflush(1);
+
+    my $pid = open3($child_in, $child_out, $child_err, $cmd);
+    Time::HiRes::usleep(1);
+
+    # push my child's pid to our parent
+    # so in case i am killed parent
+    # could stop my child (search for
+    # child_child_pid in parent code)
+    if ($opts->{'parent_info'}) {
+      my $ps = $opts->{'parent_info'};
+      print $ps "spawned $pid\n";
+    }
+
+    if ($child_in && $child_out->opened && $opts->{'child_stdin'}) {
+        # If the child process dies for any reason,
+        # the next write to CHLD_IN is likely to generate
+        # a SIGPIPE in the parent, which is fatal by default.
+        # So you may wish to handle this signal.
+        #
+        # from http://perldoc.perl.org/IPC/Open3.html,
+        # absolutely needed to catch piped commands errors.
+        #
+        local $SIG{'PIPE'} = sub { 1; };
+
+        print $child_in $opts->{'child_stdin'};
+    }
+    close($child_in);
+
+    my $child_output = {
+        'out' => $child_out->fileno,
+        'err' => $child_err->fileno,
+        $child_out->fileno => {
+            'parent_socket' => $opts->{'parent_stdout'},
+            'scalar_buffer' => "",
+            'child_handle' => $child_out,
+            'block_size' => ($child_out->stat)[11] || 1024,
+          },
+        $child_err->fileno => {
+            'parent_socket' => $opts->{'parent_stderr'},
+            'scalar_buffer' => "",
+            'child_handle' => $child_err,
+            'block_size' => ($child_err->stat)[11] || 1024,
+          },
+        };
+
+    my $select = IO::Select->new();
+    $select->add($child_out, $child_err);
+
+    # pass any signal to the child
+    # effectively creating process
+    # strongly attached to the child:
+    # it will terminate only after child
+    # has terminated (except for SIGKILL,
+    # which is specially handled)
+    SIGNAL: foreach my $s (keys %SIG) {
+        next SIGNAL if $s eq '__WARN__' or $s eq '__DIE__'; # Skip and don't clobber __DIE__ & __WARN__
+        my $sig_handler;
+        $sig_handler = sub {
+            kill("$s", $pid);
+            $SIG{$s} = $sig_handler;
+        };
+        $SIG{$s} = $sig_handler;
+    }
+
+    my $child_finished = 0;
+
+    my $real_exit;
+    my $exit_value;
+
+    while(!$child_finished) {
+
+        # parent was killed otherwise we would have got
+        # the same signal as parent and process it same way
+        if (getppid() eq "1") {
+
+          # end my process group with all the children
+          # (i am the process group leader, so my pid
+          # equals to the process group id)
+          #
+          # same thing which is done
+          # with $opts->{'clean_up_children'}
+          # in run_forked
+          #
+          kill(-9, $$);
+
+          POSIX::_exit 1;
+        }
+
+        my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+        # child finished, catch it's exit status
+        if ($waitpid ne 0 && $waitpid ne -1) {
+          $real_exit = $?;
+          $exit_value = $? >> 8;
+        }
+
+        if ($waitpid eq -1) {
+          $child_finished = 1;
+        }
+
+
+        my $ready_fds = [];
+        push @{$ready_fds}, $select->can_read(1/100);
+
+        READY_FDS: while (scalar(@{$ready_fds})) {
+            my $fd = shift @{$ready_fds};
+            $ready_fds = [grep {$_ ne $fd} @{$ready_fds}];
+
+            my $str = $child_output->{$fd->fileno};
+            Carp::confess("child stream not found: $fd") unless $str;
+
+            my $data;
+            my $count = $fd->sysread($data, $str->{'block_size'});
+
+            if ($count) {
+                if ($str->{'parent_socket'}) {
+                    my $ph = $str->{'parent_socket'};
+                    print $ph $data;
+                }
+                else {
+                    $str->{'scalar_buffer'} .= $data;
+                }
+            }
+            elsif ($count eq 0) {
+                $select->remove($fd);
+                $fd->close();
+            }
+            else {
+                Carp::confess("error during sysread: " . $!);
+            }
+
+            push @{$ready_fds}, $select->can_read(1/100) if $child_finished;
+        }
+
+        Time::HiRes::usleep(1);
+    }
+
+    # since we've successfully reaped the child,
+    # let our parent know about this.
+    #
+    if ($opts->{'parent_info'}) {
+        my $ps = $opts->{'parent_info'};
+
+        # child was killed, inform parent
+        if ($real_exit & 127) {
+          print $ps "$pid killed with " . ($real_exit & 127) . "\n";
+        }
+
+        print $ps "reaped $pid\n";
+    }
+
+    if ($opts->{'parent_stdout'} || $opts->{'parent_stderr'}) {
+        return $exit_value;
+    }
+    else {
+        return {
+            'stdout' => $child_output->{$child_output->{'out'}}->{'scalar_buffer'},
+            'stderr' => $child_output->{$child_output->{'err'}}->{'scalar_buffer'},
+            'exit_code' => $exit_value,
+            };
+    }
+}
+
+
+sub run_forked {
+    ### container to store things in
+    my $self = bless {}, __PACKAGE__;
+
+    if (!can_use_run_forked()) {
+        Carp::carp("run_forked is not available: $CAN_USE_RUN_FORKED");
+        return;
+    }
+
+    require POSIX;
+
+    my ($cmd, $opts) = @_;
+    if (ref($cmd) eq 'ARRAY') {
+        $cmd = join(" ", @{$cmd});
+    }
+
+    if (!$cmd) {
+        Carp::carp("run_forked expects command to run");
+        return;
+    }
+
+    $opts = {} unless $opts;
+    $opts->{'timeout'} = 0 unless $opts->{'timeout'};
+    $opts->{'terminate_wait_time'} = 2 unless defined($opts->{'terminate_wait_time'});
+
+    # turned on by default
+    $opts->{'clean_up_children'} = 1 unless defined($opts->{'clean_up_children'});
+
+    # sockets to pass child stdout to parent
+    my $child_stdout_socket;
+    my $parent_stdout_socket;
+
+    # sockets to pass child stderr to parent
+    my $child_stderr_socket;
+    my $parent_stderr_socket;
+
+    # sockets for child -> parent internal communication
+    my $child_info_socket;
+    my $parent_info_socket;
+
+    socketpair($child_stdout_socket, $parent_stdout_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+    socketpair($child_stderr_socket, $parent_stderr_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+    socketpair($child_info_socket, $parent_info_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+
+    $child_stdout_socket->autoflush(1);
+    $parent_stdout_socket->autoflush(1);
+    $child_stderr_socket->autoflush(1);
+    $parent_stderr_socket->autoflush(1);
+    $child_info_socket->autoflush(1);
+    $parent_info_socket->autoflush(1);
+
+    my $start_time = get_monotonic_time();
+
+    my $pid;
+    if ($pid = fork) {
+
+      # we are a parent
+      close($parent_stdout_socket);
+      close($parent_stderr_socket);
+      close($parent_info_socket);
+
+      my $flags;
+
+      # prepare sockets to read from child
+
+      $flags = fcntl($child_stdout_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_stdout_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+      $flags = fcntl($child_stderr_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_stderr_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+      $flags = fcntl($child_info_socket, POSIX::F_GETFL, 0) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_info_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+  #    print "child $pid started\n";
+
+      my $child_output = {
+        $child_stdout_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_stdout_socket,
+          'block_size' => ($child_stdout_socket->stat)[11] || 1024,
+          'protocol' => 'stdout',
+          },
+        $child_stderr_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_stderr_socket,
+          'block_size' => ($child_stderr_socket->stat)[11] || 1024,
+          'protocol' => 'stderr',
+          },
+        $child_info_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_info_socket,
+          'block_size' => ($child_info_socket->stat)[11] || 1024,
+          'protocol' => 'info',
+          },
+        };
+
+      my $select = IO::Select->new();
+      $select->add($child_stdout_socket, $child_stderr_socket, $child_info_socket);
+
+      my $child_timedout = 0;
+      my $child_finished = 0;
+      my $child_stdout = '';
+      my $child_stderr = '';
+      my $child_merged = '';
+      my $child_exit_code = 0;
+      my $child_killed_by_signal = 0;
+      my $parent_died = 0;
+
+      my $last_parent_check = 0;
+      my $got_sig_child = 0;
+      my $got_sig_quit = 0;
+      my $orig_sig_child = $SIG{'CHLD'};
+
+      $SIG{'CHLD'} = sub { $got_sig_child = get_monotonic_time(); };
+
+      if ($opts->{'terminate_on_signal'}) {
+        install_layered_signal($opts->{'terminate_on_signal'}, sub { $got_sig_quit = time(); });
+      }
+
+      my $child_child_pid;
+      my $now;
+      my $previous_monotonic_value;
+
+      while (!$child_finished) {
+        $previous_monotonic_value = $now;
+        $now = get_monotonic_time();
+
+        adjust_monotonic_start_time([\$start_time, \$last_parent_check, \$got_sig_child], $now, $previous_monotonic_value);
+
+        if ($opts->{'terminate_on_parent_sudden_death'}) {
+          # check for parent once each five seconds
+          if ($now > $last_parent_check + 5) {
+            if (getppid() eq "1") {
+              kill_gently ($pid, {
+                'first_kill_type' => 'process_group',
+                'final_kill_type' => 'process_group',
+                'wait_time' => $opts->{'terminate_wait_time'}
+                });
+              $parent_died = 1;
+            }
+
+            $last_parent_check = $now;
+          }
+        }
+
+        # user specified timeout
+        if ($opts->{'timeout'}) {
+          if ($now > $start_time + $opts->{'timeout'}) {
+            kill_gently ($pid, {
+              'first_kill_type' => 'process_group',
+              'final_kill_type' => 'process_group',
+              'wait_time' => $opts->{'terminate_wait_time'}
+              });
+            $child_timedout = 1;
+          }
+        }
+
+        # give OS 10 seconds for correct return of waitpid,
+        # kill process after that and finish wait loop;
+        # shouldn't ever happen -- remove this code?
+        if ($got_sig_child) {
+          if ($now > $got_sig_child + 10) {
+            print STDERR "waitpid did not return -1 for 10 seconds after SIG_CHLD, killing [$pid]\n";
+            kill (-9, $pid);
+            $child_finished = 1;
+          }
+        }
+
+        if ($got_sig_quit) {
+          kill_gently ($pid, {
+            'first_kill_type' => 'process_group',
+            'final_kill_type' => 'process_group',
+            'wait_time' => $opts->{'terminate_wait_time'}
+            });
+          $child_finished = 1;
+        }
+
+        my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+        # child finished, catch it's exit status
+        if ($waitpid ne 0 && $waitpid ne -1) {
+          $child_exit_code = $? >> 8;
+        }
+
+        if ($waitpid eq -1) {
+          $child_finished = 1;
+        }
+
+        my $ready_fds = [];
+        push @{$ready_fds}, $select->can_read(1/100);
+
+        READY_FDS: while (scalar(@{$ready_fds})) {
+          my $fd = shift @{$ready_fds};
+          $ready_fds = [grep {$_ ne $fd} @{$ready_fds}];
+
+          my $str = $child_output->{$fd->fileno};
+          Carp::confess("child stream not found: $fd") unless $str;
+
+          my $data = "";
+          my $count = $fd->sysread($data, $str->{'block_size'});
+
+          if ($count) {
+              # extract all the available lines and store the rest in temporary buffer
+              if ($data =~ /(.+\n)([^\n]*)/so) {
+                  $data = $str->{'scalar_buffer'} . $1;
+                  $str->{'scalar_buffer'} = $2 || "";
+              }
+              else {
+                  $str->{'scalar_buffer'} .= $data;
+                  $data = "";
+              }
+          }
+          elsif ($count eq 0) {
+            $select->remove($fd);
+            $fd->close();
+            if ($str->{'scalar_buffer'}) {
+                $data = $str->{'scalar_buffer'} . "\n";
+            }
+          }
+          else {
+            Carp::confess("error during sysread on [$fd]: " . $!);
+          }
+
+          # $data contains only full lines (or last line if it was unfinished read
+          # or now new-line in the output of the child); dat is processed
+          # according to the "protocol" of socket
+          if ($str->{'protocol'} eq 'info') {
+            if ($data =~ /^spawned ([0-9]+?)\n(.*?)/so) {
+              $child_child_pid = $1;
+              $data = $2;
+            }
+            if ($data =~ /^reaped ([0-9]+?)\n(.*?)/so) {
+              $child_child_pid = undef;
+              $data = $2;
+            }
+            if ($data =~ /^[\d]+ killed with ([0-9]+?)\n(.*?)/so) {
+              $child_killed_by_signal = $1;
+              $data = $2;
+            }
+
+            # we don't expect any other data in info socket, so it's
+            # some strange violation of protocol, better know about this
+            if ($data) {
+              Carp::confess("info protocol violation: [$data]");
+            }
+          }
+          if ($str->{'protocol'} eq 'stdout') {
+            if (!$opts->{'discard_output'}) {
+              $child_stdout .= $data;
+              $child_merged .= $data;
+            }
+
+            if ($opts->{'stdout_handler'} && ref($opts->{'stdout_handler'}) eq 'CODE') {
+              $opts->{'stdout_handler'}->($data);
+            }
+          }
+          if ($str->{'protocol'} eq 'stderr') {
+            if (!$opts->{'discard_output'}) {
+              $child_stderr .= $data;
+              $child_merged .= $data;
+            }
+
+            if ($opts->{'stderr_handler'} && ref($opts->{'stderr_handler'}) eq 'CODE') {
+              $opts->{'stderr_handler'}->($data);
+            }
+          }
+ 
+          # process may finish (waitpid returns -1) before
+          # we've read all of its output because of buffering;
+          # so try to read all the way it is possible to read
+          # in such case - this shouldn't be too much (unless
+          # the buffer size is HUGE -- should introduce
+          # another counter in such case, maybe later)
+          #
+          push @{$ready_fds}, $select->can_read(1/100) if $child_finished;
+        }
+
+        if ($opts->{'wait_loop_callback'} && ref($opts->{'wait_loop_callback'}) eq 'CODE') {
+          $opts->{'wait_loop_callback'}->();
+        }
+
+        Time::HiRes::usleep(1);
+      }
+
+      # $child_pid_pid is not defined in two cases:
+      #  * when our child was killed before
+      #    it had chance to tell us the pid
+      #    of the child it spawned. we can do
+      #    nothing in this case :(
+      #  * our child successfully reaped its child,
+      #    we have nothing left to do in this case
+      #
+      # defined $child_pid_pid means child's child
+      # has not died but nobody is waiting for it,
+      # killing it brutally.
+      #
+      if ($child_child_pid) {
+        kill_gently($child_child_pid);
+      }
+
+      # in case there are forks in child which
+      # do not forward or process signals (TERM) correctly
+      # kill whole child process group, effectively trying
+      # not to return with some children or their parts still running
+      #
+      # to be more accurate -- we need to be sure
+      # that this is process group created by our child
+      # (and not some other process group with the same pgid,
+      # created just after death of our child) -- fortunately
+      # this might happen only when process group ids
+      # are reused quickly (there are lots of processes
+      # spawning new process groups for example)
+      #
+      if ($opts->{'clean_up_children'}) {
+        kill(-9, $pid);
+      }
+
+  #    print "child $pid finished\n";
+
+      close($child_stdout_socket);
+      close($child_stderr_socket);
+      close($child_info_socket);
+
+      my $o = {
+        'stdout' => $child_stdout,
+        'stderr' => $child_stderr,
+        'merged' => $child_merged,
+        'timeout' => $child_timedout ? $opts->{'timeout'} : 0,
+        'exit_code' => $child_exit_code,
+        'parent_died' => $parent_died,
+        'killed_by_signal' => $child_killed_by_signal,
+        'child_pgid' => $pid,
+        'cmd' => $cmd,
+        };
+
+      my $err_msg = '';
+      if ($o->{'exit_code'}) {
+        $err_msg .= "exited with code [$o->{'exit_code'}]\n";
+      }
+      if ($o->{'timeout'}) {
+        $err_msg .= "ran more than [$o->{'timeout'}] seconds\n";
+      }
+      if ($o->{'parent_died'}) {
+        $err_msg .= "parent died\n";
+      }
+      if ($o->{'stdout'} && !$opts->{'non_empty_stdout_ok'}) {
+        $err_msg .= "stdout:\n" . $o->{'stdout'} . "\n";
+      }
+      if ($o->{'stderr'}) {
+        $err_msg .= "stderr:\n" . $o->{'stderr'} . "\n";
+      }
+      if ($o->{'killed_by_signal'}) {
+        $err_msg .= "killed by signal [" . $o->{'killed_by_signal'} . "]\n";
+      }
+      $o->{'err_msg'} = $err_msg;
+
+      if ($orig_sig_child) {
+        $SIG{'CHLD'} = $orig_sig_child;
+      }
+      else {
+        delete($SIG{'CHLD'});
+      }
+
+      uninstall_signals();
+
+      return $o;
+    }
+    else {
+      Carp::confess("cannot fork: $!") unless defined($pid);
+
+      # create new process session for open3 call,
+      # so we hopefully can kill all the subprocesses
+      # which might be spawned in it (except for those
+      # which do setsid theirselves -- can't do anything
+      # with those)
+
+      POSIX::setsid() || Carp::confess("Error running setsid: " . $!);
+
+      if ($opts->{'child_BEGIN'} && ref($opts->{'child_BEGIN'}) eq 'CODE') {
+        $opts->{'child_BEGIN'}->();
+      }
+
+      close($child_stdout_socket);
+      close($child_stderr_socket);
+      close($child_info_socket);
+
+      my $child_exit_code;
+
+      # allow both external programs
+      # and internal perl calls
+      if (!ref($cmd)) {
+        $child_exit_code = open3_run($cmd, {
+          'parent_info' => $parent_info_socket,
+          'parent_stdout' => $parent_stdout_socket,
+          'parent_stderr' => $parent_stderr_socket,
+          'child_stdin' => $opts->{'child_stdin'},
+          });
+      }
+      elsif (ref($cmd) eq 'CODE') {
+        # reopen STDOUT and STDERR for child code:
+        # https://rt.cpan.org/Ticket/Display.html?id=85912
+        open STDOUT, '>&', $parent_stdout_socket || Carp::confess("Unable to reopen STDOUT: $!\n");
+        open STDERR, '>&', $parent_stderr_socket || Carp::confess("Unable to reopen STDERR: $!\n");
+
+        $child_exit_code = $cmd->({
+          'opts' => $opts,
+          'parent_info' => $parent_info_socket,
+          'parent_stdout' => $parent_stdout_socket,
+          'parent_stderr' => $parent_stderr_socket,
+          'child_stdin' => $opts->{'child_stdin'},
+          });
+      }
+      else {
+        print $parent_stderr_socket "Invalid command reference: " . ref($cmd) . "\n";
+        $child_exit_code = 1;
+      }
+
+      close($parent_stdout_socket);
+      close($parent_stderr_socket);
+      close($parent_info_socket);
+
+      if ($opts->{'child_END'} && ref($opts->{'child_END'}) eq 'CODE') {
+        $opts->{'child_END'}->();
+      }
+
+      $| = 1;
+      POSIX::_exit $child_exit_code;
+    }
+}
+
+sub run {
+    ### container to store things in
+    my $self = bless {}, __PACKAGE__;
+
+    my %hash = @_;
+
+    ### if the user didn't provide a buffer, we'll store it here.
+    my $def_buf = '';
+
+    my($verbose,$cmd,$buffer,$timeout);
+    my $tmpl = {
+        verbose => { default  => $VERBOSE,  store => \$verbose },
+        buffer  => { default  => \$def_buf, store => \$buffer },
+        command => { required => 1,         store => \$cmd,
+                     allow    => sub { !ref($_[0]) or ref($_[0]) eq 'ARRAY' },
+        },
+        timeout => { default  => 0,         store => \$timeout },
+    };
+
+    unless( check( $tmpl, \%hash, $VERBOSE ) ) {
+        Carp::carp( loc( "Could not validate input: %1",
+                         Params::Check->last_error ) );
+        return;
+    };
+
+    $cmd = _quote_args_vms( $cmd ) if IS_VMS;
+
+    ### strip any empty elements from $cmd if present
+    if ( $ALLOW_NULL_ARGS ) {
+      $cmd = [ grep { defined } @$cmd ] if ref $cmd;
+    }
+    else {
+      $cmd = [ grep { defined && length } @$cmd ] if ref $cmd;
+    }
+
+    my $pp_cmd = (ref $cmd ? "@$cmd" : $cmd);
+    print loc("Running [%1]...\n", $pp_cmd ) if $verbose;
+
+    ### did the user pass us a buffer to fill or not? if so, set this
+    ### flag so we know what is expected of us
+    ### XXX this is now being ignored. in the future, we could add diagnostic
+    ### messages based on this logic
+    #my $user_provided_buffer = $buffer == \$def_buf ? 0 : 1;
+
+    ### buffers that are to be captured
+    my( @buffer, @buff_err, @buff_out );
+
+    ### capture STDOUT
+    my $_out_handler = sub {
+        my $buf = shift;
+        return unless defined $buf;
+
+        print STDOUT $buf if $verbose;
+        push @buffer,   $buf;
+        push @buff_out, $buf;
+    };
+
+    ### capture STDERR
+    my $_err_handler = sub {
+        my $buf = shift;
+        return unless defined $buf;
+
+        print STDERR $buf if $verbose;
+        push @buffer,   $buf;
+        push @buff_err, $buf;
+    };
+
+
+    ### flag to indicate we have a buffer captured
+    my $have_buffer = $self->can_capture_buffer ? 1 : 0;
+
+    ### flag indicating if the subcall went ok
+    my $ok;
+
+    ### don't look at previous errors:
+    local $?;
+    local $@;
+    local $!;
+
+    ### we might be having a timeout set
+    eval {
+        local $SIG{ALRM} = sub { die bless sub {
+            ALARM_CLASS .
+            qq[: Command '$pp_cmd' aborted by alarm after $timeout seconds]
+        }, ALARM_CLASS } if $timeout;
+        alarm $timeout || 0;
+
+        ### IPC::Run is first choice if $USE_IPC_RUN is set.
+        if( !IS_WIN32 and $USE_IPC_RUN and $self->can_use_ipc_run( 1 ) ) {
+            ### ipc::run handlers needs the command as a string or an array ref
+
+            $self->_debug( "# Using IPC::Run. Have buffer: $have_buffer" )
+                if $DEBUG;
+
+            $ok = $self->_ipc_run( $cmd, $_out_handler, $_err_handler );
+
+        ### since IPC::Open3 works on all platforms, and just fails on
+        ### win32 for capturing buffers, do that ideally
+        } elsif ( $USE_IPC_OPEN3 and $self->can_use_ipc_open3( 1 ) ) {
+
+            $self->_debug("# Using IPC::Open3. Have buffer: $have_buffer")
+                if $DEBUG;
+
+            ### in case there are pipes in there;
+            ### IPC::Open3 will call exec and exec will do the right thing
+
+            my $method = IS_WIN32 ? '_open3_run_win32' : '_open3_run';
+
+            $ok = $self->$method(
+                                    $cmd, $_out_handler, $_err_handler, $verbose
+                                );
+
+        ### if we are allowed to run verbose, just dispatch the system command
+        } else {
+            $self->_debug( "# Using system(). Have buffer: $have_buffer" )
+                if $DEBUG;
+            $ok = $self->_system_run( $cmd, $verbose );
+        }
+
+        alarm 0;
+    };
+
+    ### restore STDIN after duping, or STDIN will be closed for
+    ### this current perl process!
+    $self->__reopen_fds( @{ $self->_fds} ) if $self->_fds;
+
+    my $err;
+    unless( $ok ) {
+        ### alarm happened
+        if ( $@ and ref $@ and $@->isa( ALARM_CLASS ) ) {
+            $err = $@->();  # the error code is an expired alarm
+
+        ### another error happened, set by the dispatchub
+        } else {
+            $err = $self->error;
+        }
+    }
+
+    ### fill the buffer;
+    $$buffer = join '', @buffer if @buffer;
+
+    ### return a list of flags and buffers (if available) in list
+    ### context, or just a simple 'ok' in scalar
+    return wantarray
+                ? $have_buffer
+                    ? ($ok, $err, \@buffer, \@buff_out, \@buff_err)
+                    : ($ok, $err )
+                : $ok
+
+
+}
+
+sub _open3_run_win32 {
+  my $self    = shift;
+  my $cmd     = shift;
+  my $outhand = shift;
+  my $errhand = shift;
+
+  require Socket;
+
+  my $pipe = sub {
+    socketpair($_[0], $_[1], &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC)
+        or return undef;
+    shutdown($_[0], 1);  # No more writing for reader
+    shutdown($_[1], 0);  # No more reading for writer
+    return 1;
+  };
+
+  my $open3 = sub {
+    local (*TO_CHLD_R,     *TO_CHLD_W);
+    local (*FR_CHLD_R,     *FR_CHLD_W);
+    local (*FR_CHLD_ERR_R, *FR_CHLD_ERR_W);
+
+    $pipe->(*TO_CHLD_R,     *TO_CHLD_W    ) or die $^E;
+    $pipe->(*FR_CHLD_R,     *FR_CHLD_W    ) or die $^E;
+    $pipe->(*FR_CHLD_ERR_R, *FR_CHLD_ERR_W) or die $^E;
+
+    my $pid = IPC::Open3::open3('>&TO_CHLD_R', '<&FR_CHLD_W', '<&FR_CHLD_ERR_W', @_);
+
+    return ( $pid, *TO_CHLD_W, *FR_CHLD_R, *FR_CHLD_ERR_R );
+  };
+
+  $cmd = [ grep { defined && length } @$cmd ] if ref $cmd;
+  $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+  my ($pid, $to_chld, $fr_chld, $fr_chld_err) =
+    $open3->( ( ref $cmd ? @$cmd : $cmd ) );
+
+  my $in_sel  = IO::Select->new();
+  my $out_sel = IO::Select->new();
+
+  my %objs;
+
+  $objs{ fileno( $fr_chld ) } = $outhand;
+  $objs{ fileno( $fr_chld_err ) } = $errhand;
+  $in_sel->add( $fr_chld );
+  $in_sel->add( $fr_chld_err );
+
+  close($to_chld);
+
+  while ($in_sel->count() + $out_sel->count()) {
+    my ($ins, $outs) = IO::Select::select($in_sel, $out_sel, undef);
+
+    for my $fh (@$ins) {
+        my $obj = $objs{ fileno($fh) };
+        my $buf;
+        my $bytes_read = sysread($fh, $buf, 64*1024 ); #, length($buf));
+        if (!$bytes_read) {
+            $in_sel->remove($fh);
+        }
+        else {
+            $obj->( "$buf" );
+        }
+      }
+
+      for my $fh (@$outs) {
+      }
+  }
+
+  waitpid($pid, 0);
+
+  ### some error occurred
+  if( $? ) {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+        return;
+  } else {
+        return $self->ok( 1 );
+  }
+}
+
+sub _open3_run {
+    my $self            = shift;
+    my $cmd             = shift;
+    my $_out_handler    = shift;
+    my $_err_handler    = shift;
+    my $verbose         = shift || 0;
+
+    ### Following code are adapted from Friar 'abstracts' in the
+    ### Perl Monastery (http://www.perlmonks.org/index.pl?node_id=151886).
+    ### XXX that code didn't work.
+    ### we now use the following code, thanks to theorbtwo
+
+    ### define them beforehand, so we always have defined FH's
+    ### to read from.
+    use Symbol;
+    my $kidout      = Symbol::gensym();
+    my $kiderror    = Symbol::gensym();
+
+    ### Dup the filehandle so we can pass 'our' STDIN to the
+    ### child process. This stops us from having to pump input
+    ### from ourselves to the childprocess. However, we will need
+    ### to revive the FH afterwards, as IPC::Open3 closes it.
+    ### We'll do the same for STDOUT and STDERR. It works without
+    ### duping them on non-unix derivatives, but not on win32.
+    my @fds_to_dup = ( IS_WIN32 && !$verbose
+                            ? qw[STDIN STDOUT STDERR]
+                            : qw[STDIN]
+                        );
+    $self->_fds( \@fds_to_dup );
+    $self->__dup_fds( @fds_to_dup );
+
+    ### pipes have to come in a quoted string, and that clashes with
+    ### whitespace. This sub fixes up such commands so they run properly
+    $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+    ### don't stringify @$cmd, so spaces in filenames/paths are
+    ### treated properly
+    my $pid = eval {
+        IPC::Open3::open3(
+                    '<&STDIN',
+                    (IS_WIN32 ? '>&STDOUT' : $kidout),
+                    (IS_WIN32 ? '>&STDERR' : $kiderror),
+                    ( ref $cmd ? @$cmd : $cmd ),
+                );
+    };
+
+    ### open3 error occurred
+    if( $@ and $@ =~ /^open3:/ ) {
+        $self->ok( 0 );
+        $self->error( $@ );
+        return;
+    };
+
+    ### use OUR stdin, not $kidin. Somehow,
+    ### we never get the input.. so jump through
+    ### some hoops to do it :(
+    my $selector = IO::Select->new(
+                        (IS_WIN32 ? \*STDERR : $kiderror),
+                        \*STDIN,
+                        (IS_WIN32 ? \*STDOUT : $kidout)
+                    );
+
+    STDOUT->autoflush(1);   STDERR->autoflush(1);   STDIN->autoflush(1);
+    $kidout->autoflush(1)   if UNIVERSAL::can($kidout,   'autoflush');
+    $kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush');
+
+    ### add an explicit break statement
+    ### code courtesy of theorbtwo from #london.pm
+    my $stdout_done = 0;
+    my $stderr_done = 0;
+    OUTER: while ( my @ready = $selector->can_read ) {
+
+        for my $h ( @ready ) {
+            my $buf;
+
+            ### $len is the amount of bytes read
+            my $len = sysread( $h, $buf, 4096 );    # try to read 4096 bytes
+
+            ### see perldoc -f sysread: it returns undef on error,
+            ### so bail out.
+            if( not defined $len ) {
+                warn(loc("Error reading from process: %1", $!));
+                last OUTER;
+            }
+
+            ### check for $len. it may be 0, at which point we're
+            ### done reading, so don't try to process it.
+            ### if we would print anyway, we'd provide bogus information
+            $_out_handler->( "$buf" ) if $len && $h == $kidout;
+            $_err_handler->( "$buf" ) if $len && $h == $kiderror;
+
+            ### Wait till child process is done printing to both
+            ### stdout and stderr.
+            $stdout_done = 1 if $h == $kidout   and $len == 0;
+            $stderr_done = 1 if $h == $kiderror and $len == 0;
+            last OUTER if ($stdout_done && $stderr_done);
+        }
+    }
+
+    waitpid $pid, 0; # wait for it to die
+
+    ### restore STDIN after duping, or STDIN will be closed for
+    ### this current perl process!
+    ### done in the parent call now
+    # $self->__reopen_fds( @fds_to_dup );
+
+    ### some error occurred
+    if( $? ) {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+        return;
+    } else {
+        return $self->ok( 1 );
+    }
+}
+
+### Text::ParseWords::shellwords() uses unix semantics. that will break
+### on win32
+{   my $parse_sub = IS_WIN32
+                        ? __PACKAGE__->can('_split_like_shell_win32')
+                        : Text::ParseWords->can('shellwords');
+
+    sub _ipc_run {
+        my $self            = shift;
+        my $cmd             = shift;
+        my $_out_handler    = shift;
+        my $_err_handler    = shift;
+
+        STDOUT->autoflush(1); STDERR->autoflush(1);
+
+        ### a command like:
+        # [
+        #     '/usr/bin/gzip',
+        #     '-cdf',
+        #     '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz',
+        #     '|',
+        #     '/usr/bin/tar',
+        #     '-tf -'
+        # ]
+        ### needs to become:
+        # [
+        #     ['/usr/bin/gzip', '-cdf',
+        #       '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz']
+        #     '|',
+        #     ['/usr/bin/tar', '-tf -']
+        # ]
+
+
+        my @command;
+        my $special_chars;
+
+        my $re = do { my $x = join '', SPECIAL_CHARS; qr/([$x])/ };
+        if( ref $cmd ) {
+            my $aref = [];
+            for my $item (@$cmd) {
+                if( $item =~ $re ) {
+                    push @command, $aref, $item;
+                    $aref = [];
+                    $special_chars .= $1;
+                } else {
+                    push @$aref, $item;
+                }
+            }
+            push @command, $aref;
+        } else {
+            @command = map { if( $_ =~ $re ) {
+                                $special_chars .= $1; $_;
+                             } else {
+#                                [ split /\s+/ ]
+                                 [ map { m/[ ]/ ? qq{'$_'} : $_ } $parse_sub->($_) ]
+                             }
+                        } split( /\s*$re\s*/, $cmd );
+        }
+
+        ### if there's a pipe in the command, *STDIN needs to
+        ### be inserted *BEFORE* the pipe, to work on win32
+        ### this also works on *nix, so we should do it when possible
+        ### this should *also* work on multiple pipes in the command
+        ### if there's no pipe in the command, append STDIN to the back
+        ### of the command instead.
+        ### XXX seems IPC::Run works it out for itself if you just
+        ### don't pass STDIN at all.
+        #     if( $special_chars and $special_chars =~ /\|/ ) {
+        #         ### only add STDIN the first time..
+        #         my $i;
+        #         @command = map { ($_ eq '|' && not $i++)
+        #                             ? ( \*STDIN, $_ )
+        #                             : $_
+        #                         } @command;
+        #     } else {
+        #         push @command, \*STDIN;
+        #     }
+
+        # \*STDIN is already included in the @command, see a few lines up
+        my $ok = eval { IPC::Run::run(   @command,
+                                fileno(STDOUT).'>',
+                                $_out_handler,
+                                fileno(STDERR).'>',
+                                $_err_handler
+                            )
+                        };
+
+        ### all is well
+        if( $ok ) {
+            return $self->ok( $ok );
+
+        ### some error occurred
+        } else {
+            $self->ok( 0 );
+
+            ### if the eval fails due to an exception, deal with it
+            ### unless it's an alarm
+            if( $@ and not UNIVERSAL::isa( $@, ALARM_CLASS ) ) {
+                $self->error( $@ );
+
+            ### if it *is* an alarm, propagate
+            } elsif( $@ ) {
+                die $@;
+
+            ### some error in the sub command
+            } else {
+                $self->error( $self->_pp_child_error( $cmd, $? ) );
+            }
+
+            return;
+        }
+    }
+}
+
+sub _system_run {
+    my $self    = shift;
+    my $cmd     = shift;
+    my $verbose = shift || 0;
+
+    ### pipes have to come in a quoted string, and that clashes with
+    ### whitespace. This sub fixes up such commands so they run properly
+    $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+    my @fds_to_dup = $verbose ? () : qw[STDOUT STDERR];
+    $self->_fds( \@fds_to_dup );
+    $self->__dup_fds( @fds_to_dup );
+
+    ### system returns 'true' on failure -- the exit code of the cmd
+    $self->ok( 1 );
+    system( ref $cmd ? @$cmd : $cmd ) == 0 or do {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+    };
+
+    ### done in the parent call now
+    #$self->__reopen_fds( @fds_to_dup );
+
+    return unless $self->ok;
+    return $self->ok;
+}
+
+{   my %sc_lookup = map { $_ => $_ } SPECIAL_CHARS;
+
+
+    sub __fix_cmd_whitespace_and_special_chars {
+        my $self = shift;
+        my $cmd  = shift;
+
+        ### command has a special char in it
+        if( ref $cmd and grep { $sc_lookup{$_} } @$cmd ) {
+
+            ### since we have special chars, we have to quote white space
+            ### this *may* conflict with the parsing :(
+            my $fixed;
+            my @cmd = map { / / ? do { $fixed++; QUOTE.$_.QUOTE } : $_ } @$cmd;
+
+            $self->_debug( "# Quoted $fixed arguments containing whitespace" )
+                    if $DEBUG && $fixed;
+
+            ### stringify it, so the special char isn't escaped as argument
+            ### to the program
+            $cmd = join ' ', @cmd;
+        }
+
+        return $cmd;
+    }
+}
+
+### Command-line arguments (but not the command itself) must be quoted
+### to ensure case preservation. Borrowed from Module::Build with adaptations.
+### Patch for this supplied by Craig Berry, see RT #46288: [PATCH] Add argument
+### quoting for run() on VMS
+sub _quote_args_vms {
+  ### Returns a command string with proper quoting so that the subprocess
+  ### sees this same list of args, or if we get a single arg that is an
+  ### array reference, quote the elements of it (except for the first)
+  ### and return the reference.
+  my @args = @_;
+  my $got_arrayref = (scalar(@args) == 1
+                      && UNIVERSAL::isa($args[0], 'ARRAY'))
+                   ? 1
+                   : 0;
+
+  @args = split(/\s+/, $args[0]) unless $got_arrayref || scalar(@args) > 1;
+
+  my $cmd = $got_arrayref ? shift @{$args[0]} : shift @args;
+
+  ### Do not quote qualifiers that begin with '/' or previously quoted args.
+  map { if (/^[^\/\"]/) {
+          $_ =~ s/\"/""/g;     # escape C<"> by doubling
+          $_ = q(").$_.q(");
+        }
+  }
+    ($got_arrayref ? @{$args[0]}
+                   : @args
+    );
+
+  $got_arrayref ? unshift(@{$args[0]}, $cmd) : unshift(@args, $cmd);
+
+  return $got_arrayref ? $args[0]
+                       : join(' ', @args);
+}
+
+
+### XXX this is cribbed STRAIGHT from M::B 0.30 here:
+### http://search.cpan.org/src/KWILLIAMS/Module-Build-0.30/lib/Module/Build/Platform/Windows.pm:split_like_shell
+### XXX this *should* be integrated into text::parsewords
+sub _split_like_shell_win32 {
+  # As it turns out, Windows command-parsing is very different from
+  # Unix command-parsing.  Double-quotes mean different things,
+  # backslashes don't necessarily mean escapes, and so on.  So we
+  # can't use Text::ParseWords::shellwords() to break a command string
+  # into words.  The algorithm below was bashed out by Randy and Ken
+  # (mostly Randy), and there are a lot of regression tests, so we
+  # should feel free to adjust if desired.
+
+  local $_ = shift;
+
+  my @argv;
+  return @argv unless defined() && length();
+
+  my $arg = '';
+  my( $i, $quote_mode ) = ( 0, 0 );
+
+  while ( $i < length() ) {
+
+    my $ch      = substr( $_, $i  , 1 );
+    my $next_ch = substr( $_, $i+1, 1 );
+
+    if ( $ch eq '\\' && $next_ch eq '"' ) {
+      $arg .= '"';
+      $i++;
+    } elsif ( $ch eq '\\' && $next_ch eq '\\' ) {
+      $arg .= '\\';
+      $i++;
+    } elsif ( $ch eq '"' && $next_ch eq '"' && $quote_mode ) {
+      $quote_mode = !$quote_mode;
+      $arg .= '"';
+      $i++;
+    } elsif ( $ch eq '"' && $next_ch eq '"' && !$quote_mode &&
+          ( $i + 2 == length()  ||
+        substr( $_, $i + 2, 1 ) eq ' ' )
+        ) { # for cases like: a"" => [ 'a' ]
+      push( @argv, $arg );
+      $arg = '';
+      $i += 2;
+    } elsif ( $ch eq '"' ) {
+      $quote_mode = !$quote_mode;
+    } elsif ( $ch eq ' ' && !$quote_mode ) {
+      push( @argv, $arg ) if defined( $arg ) && length( $arg );
+      $arg = '';
+      ++$i while substr( $_, $i + 1, 1 ) eq ' ';
+    } else {
+      $arg .= $ch;
+    }
+
+    $i++;
+  }
+
+  push( @argv, $arg ) if defined( $arg ) && length( $arg );
+  return @argv;
+}
+
+
+
+{   use File::Spec;
+    use Symbol;
+
+    my %Map = (
+        STDOUT => [qw|>&|, \*STDOUT, Symbol::gensym() ],
+        STDERR => [qw|>&|, \*STDERR, Symbol::gensym() ],
+        STDIN  => [qw|<&|, \*STDIN,  Symbol::gensym() ],
+    );
+
+    ### dups FDs and stores them in a cache
+    sub __dup_fds {
+        my $self    = shift;
+        my @fds     = @_;
+
+        __PACKAGE__->_debug( "# Closing the following fds: @fds" ) if $DEBUG;
+
+        for my $name ( @fds ) {
+            my($redir, $fh, $glob) = @{$Map{$name}} or (
+                Carp::carp(loc("No such FD: '%1'", $name)), next );
+
+            ### MUST use the 2-arg version of open for dup'ing for
+            ### 5.6.x compatibility. 5.8.x can use 3-arg open
+            ### see perldoc5.6.2 -f open for details
+            open $glob, $redir . fileno($fh) or (
+                        Carp::carp(loc("Could not dup '$name': %1", $!)),
+                        return
+                    );
+
+            ### we should re-open this filehandle right now, not
+            ### just dup it
+            ### Use 2-arg version of open, as 5.5.x doesn't support
+            ### 3-arg version =/
+            if( $redir eq '>&' ) {
+                open( $fh, '>' . File::Spec->devnull ) or (
+                    Carp::carp(loc("Could not reopen '$name': %1", $!)),
+                    return
+                );
+            }
+        }
+
+        return 1;
+    }
+
+    ### reopens FDs from the cache
+    sub __reopen_fds {
+        my $self    = shift;
+        my @fds     = @_;
+
+        __PACKAGE__->_debug( "# Reopening the following fds: @fds" ) if $DEBUG;
+
+        for my $name ( @fds ) {
+            my($redir, $fh, $glob) = @{$Map{$name}} or (
+                Carp::carp(loc("No such FD: '%1'", $name)), next );
+
+            ### MUST use the 2-arg version of open for dup'ing for
+            ### 5.6.x compatibility. 5.8.x can use 3-arg open
+            ### see perldoc5.6.2 -f open for details
+            open( $fh, $redir . fileno($glob) ) or (
+                    Carp::carp(loc("Could not restore '$name': %1", $!)),
+                    return
+                );
+
+            ### close this FD, we're not using it anymore
+            close $glob;
+        }
+        return 1;
+
+    }
+}
+
+sub _debug {
+    my $self    = shift;
+    my $msg     = shift or return;
+    my $level   = shift || 0;
+
+    local $Carp::CarpLevel += $level;
+    Carp::carp($msg);
+
+    return 1;
+}
+
+sub _pp_child_error {
+    my $self    = shift;
+    my $cmd     = shift or return;
+    my $ce      = shift or return;
+    my $pp_cmd  = ref $cmd ? "@$cmd" : $cmd;
+
+
+    my $str;
+    if( $ce == -1 ) {
+        ### Include $! in the error message, so that the user can
+        ### see 'No such file or directory' versus 'Permission denied'
+        ### versus 'Cannot fork' or whatever the cause was.
+        $str = "Failed to execute '$pp_cmd': $!";
+
+    } elsif ( $ce & 127 ) {
+        ### some signal
+        $str = loc( "'%1' died with signal %2, %3 coredump",
+               $pp_cmd, ($ce & 127), ($ce & 128) ? 'with' : 'without');
+
+    } else {
+        ### Otherwise, the command run but gave error status.
+        $str = "'$pp_cmd' exited with value " . ($ce >> 8);
+    }
+
+    $self->_debug( "# Child error '$ce' translated to: $str" ) if $DEBUG;
+
+    return $str;
+}
+
+1;
+
+__END__
+
+package IPC::Open2;
+
+use strict;
+our ($VERSION, @ISA, @EXPORT);
+
+require 5.000;
+require Exporter;
+
+$VERSION	= 1.04;
+@ISA		= qw(Exporter);
+@EXPORT		= qw(open2);
+
+
+# &open2: tom christiansen, <tchrist@convex.com>
+#
+# usage: $pid = open2('rdr', 'wtr', 'some cmd and args');
+#    or  $pid = open2('rdr', 'wtr', 'some', 'cmd', 'and', 'args');
+#
+# spawn the given $cmd and connect $rdr for
+# reading and $wtr for writing.  return pid
+# of child, or 0 on failure.  
+# 
+# WARNING: this is dangerous, as you may block forever
+# unless you are very careful.  
+# 
+# $wtr is left unbuffered.
+# 
+# abort program if
+#	rdr or wtr are null
+# 	a system call fails
+
+require IPC::Open3;
+
+sub open2 {
+    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+    return IPC::Open3::_open3('open2', $_[1], $_[0], '>&STDERR', @_[2 .. $#_]);
+}
+
+1
+package Devel::SelfStubber;
+use File::Spec;
+require SelfLoader;
+@ISA = qw(SelfLoader);
+@EXPORT = 'AUTOLOAD';
+$JUST_STUBS = 1;
+$VERSION = 1.06;
+sub Version {$VERSION}
+
+# Use as
+# perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub(MODULE_NAME,LIB)'
+# (LIB defaults to '.') e.g.
+# perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub('Math::BigInt')'
+# would print out stubs needed if you added a __DATA__ before the subs.
+# Setting $Devel::SelfStubber::JUST_STUBS to 0 will print out the whole
+# module with the stubs entered just before the __DATA__
+
+sub _add_to_cache {
+    my($self,$fullname,$pack,$lines, $prototype) = @_;
+    push(@DATA,@{$lines});
+    if($fullname){push(@STUBS,"sub $fullname $prototype;\n")}; # stubs
+    '1;';
+}
+
+sub _package_defined {
+    my($self,$line) = @_;
+    push(@DATA,$line);
+}
+
+sub stub {
+    my($self,$module,$lib) = @_;
+    my($line,$end_data,$fh,$mod_file,$found_selfloader);
+    $lib ||= File::Spec->curdir();
+    ($mod_file = $module) =~ s,::,/,g;
+    $mod_file =~ tr|/|:| if $^O eq 'MacOS';
+
+    $mod_file = File::Spec->catfile($lib, "$mod_file.pm");
+    $fh = "${module}::DATA";
+    my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END);
+    @DATA = @STUBS = ();
+
+    open($fh,'<',$mod_file) || die "Unable to open $mod_file";
+    local $/ = "\n";
+    while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) {
+	push(@BEFORE_DATA,$line);
+	$line =~ /use\s+SelfLoader/ && $found_selfloader++;
+    }
+    (defined ($line) && $line =~ m/^__DATA__/)
+      || die "$mod_file doesn't contain a __DATA__ token";
+    $found_selfloader ||
+	print 'die "\'use SelfLoader;\' statement NOT FOUND!!\n"',"\n";
+    if ($JUST_STUBS) {
+        $self->_load_stubs($module);
+    } else {
+        $self->_load_stubs($module, \@AFTER_END);
+    }
+    if ( fileno($fh) ) {
+	$end_data = 1;
+	while(defined($line = <$fh>)) {
+	    push(@AFTER_DATA,$line);
+	}
+    }
+    close($fh);
+    unless ($JUST_STUBS) {
+	print @BEFORE_DATA;
+    }
+    print @STUBS;
+    unless ($JUST_STUBS) {
+	print "1;\n__DATA__\n",@DATA;
+	if($end_data) { print "__END__ DATA\n",@AFTER_DATA; }
+	if(@AFTER_END) { print "__END__\n",@AFTER_END; }
+    }
+}
+
+1;
+__END__
+
+package Devel::StackTrace;
+
+use 5.006;
+
+use strict;
+use warnings;
+
+our $VERSION = '2.03';
+
+use Devel::StackTrace::Frame;
+use File::Spec;
+use Scalar::Util qw( blessed );
+
+use overload
+    '""'     => \&as_string,
+    fallback => 1;
+
+sub new {
+    my $class = shift;
+    my %p     = @_;
+
+    $p{unsafe_ref_capture} = !delete $p{no_refs}
+        if exists $p{no_refs};
+
+    my $self = bless {
+        index  => undef,
+        frames => [],
+        raw    => [],
+        %p,
+    }, $class;
+
+    $self->_record_caller_data;
+
+    return $self;
+}
+
+sub _record_caller_data {
+    my $self = shift;
+
+    my $filter = $self->{filter_frames_early} && $self->_make_frame_filter;
+
+    # We exclude this method by starting at least one frame back.
+    my $x = 1 + ( $self->{skip_frames} || 0 );
+
+    while (
+        my @c
+        = $self->{no_args}
+        ? caller( $x++ )
+        : do {
+            ## no critic (Modules::ProhibitMultiplePackages, Variables::ProhibitPackageVars)
+            package    # the newline keeps dzil from adding a version here
+                DB;
+            @DB::args = ();
+            caller( $x++ );
+        }
+        ) {
+
+        my @args;
+
+        ## no critic (Variables::ProhibitPackageVars)
+        @args = $self->{no_args} ? () : @DB::args;
+        ## use critic
+
+        my $raw = {
+            caller => \@c,
+            args   => \@args,
+        };
+
+        next if $filter && !$filter->($raw);
+
+        unless ( $self->{unsafe_ref_capture} ) {
+            $raw->{args} = [ map { ref $_ ? $self->_ref_to_string($_) : $_ }
+                    @{ $raw->{args} } ];
+        }
+
+        push @{ $self->{raw} }, $raw;
+    }
+}
+
+sub _ref_to_string {
+    my $self = shift;
+    my $ref  = shift;
+
+    return overload::AddrRef($ref)
+        if blessed $ref && $ref->isa('Exception::Class::Base');
+
+    return overload::AddrRef($ref) unless $self->{respect_overload};
+
+    ## no critic (Variables::RequireInitializationForLocalVars)
+    local $@;
+    local $SIG{__DIE__};
+    ## use critic
+
+    my $str = eval { $ref . q{} };
+
+    return $@ ? overload::AddrRef($ref) : $str;
+}
+
+sub _make_frames {
+    my $self = shift;
+
+    my $filter = !$self->{filter_frames_early} && $self->_make_frame_filter;
+
+    my $raw = delete $self->{raw};
+    for my $r ( @{$raw} ) {
+        next if $filter && !$filter->($r);
+
+        $self->_add_frame( $r->{caller}, $r->{args} );
+    }
+}
+
+my $default_filter = sub {1};
+
+sub _make_frame_filter {
+    my $self = shift;
+
+    my ( @i_pack_re, %i_class );
+    if ( $self->{ignore_package} ) {
+        ## no critic (Variables::RequireInitializationForLocalVars)
+        local $@;
+        local $SIG{__DIE__};
+        ## use critic
+
+        $self->{ignore_package} = [ $self->{ignore_package} ]
+            unless eval { @{ $self->{ignore_package} } };
+
+        @i_pack_re
+            = map { ref $_ ? $_ : qr/^\Q$_\E$/ } @{ $self->{ignore_package} };
+    }
+
+    my $p = __PACKAGE__;
+    push @i_pack_re, qr/^\Q$p\E$/;
+
+    if ( $self->{ignore_class} ) {
+        $self->{ignore_class} = [ $self->{ignore_class} ]
+            unless ref $self->{ignore_class};
+        %i_class = map { $_ => 1 } @{ $self->{ignore_class} };
+    }
+
+    my $user_filter = $self->{frame_filter};
+
+    return sub {
+        return 0 if grep { $_[0]{caller}[0] =~ /$_/ } @i_pack_re;
+        return 0 if grep { $_[0]{caller}[0]->isa($_) } keys %i_class;
+
+        if ($user_filter) {
+            return $user_filter->( $_[0] );
+        }
+
+        return 1;
+    };
+}
+
+sub _add_frame {
+    my $self = shift;
+    my $c    = shift;
+    my $p    = shift;
+
+    # eval and is_require are only returned when applicable under 5.00503.
+    push @$c, ( undef, undef ) if scalar @$c == 6;
+
+    push @{ $self->{frames} },
+        Devel::StackTrace::Frame->new(
+        $c,
+        $p,
+        $self->{respect_overload},
+        $self->{max_arg_length},
+        $self->{message},
+        $self->{indent}
+        );
+}
+
+sub next_frame {
+    my $self = shift;
+
+    # reset to top if necessary.
+    $self->{index} = -1 unless defined $self->{index};
+
+    my @f = $self->frames;
+    if ( defined $f[ $self->{index} + 1 ] ) {
+        return $f[ ++$self->{index} ];
+    }
+    else {
+        $self->{index} = undef;
+        ## no critic (Subroutines::ProhibitExplicitReturnUndef)
+        return undef;
+    }
+}
+
+sub prev_frame {
+    my $self = shift;
+
+    my @f = $self->frames;
+
+    # reset to top if necessary.
+    $self->{index} = scalar @f unless defined $self->{index};
+
+    if ( defined $f[ $self->{index} - 1 ] && $self->{index} >= 1 ) {
+        return $f[ --$self->{index} ];
+    }
+    else {
+        ## no critic (Subroutines::ProhibitExplicitReturnUndef)
+        $self->{index} = undef;
+        return undef;
+    }
+}
+
+sub reset_pointer {
+    my $self = shift;
+
+    $self->{index} = undef;
+
+    return;
+}
+
+sub frames {
+    my $self = shift;
+
+    if (@_) {
+        die
+            "Devel::StackTrace->frames can only take Devel::StackTrace::Frame args\n"
+            if grep { !$_->isa('Devel::StackTrace::Frame') } @_;
+
+        $self->{frames} = \@_;
+        delete $self->{raw};
+    }
+    else {
+        $self->_make_frames if $self->{raw};
+    }
+
+    return @{ $self->{frames} };
+}
+
+sub frame {
+    my $self = shift;
+    my $i    = shift;
+
+    return unless defined $i;
+
+    return ( $self->frames )[$i];
+}
+
+sub frame_count {
+    my $self = shift;
+
+    return scalar( $self->frames );
+}
+
+sub message { $_[0]->{message} }
+
+sub as_string {
+    my $self = shift;
+    my $p    = shift;
+
+    my @frames = $self->frames;
+    if (@frames) {
+        my $st    = q{};
+        my $first = 1;
+        for my $f (@frames) {
+            $st .= $f->as_string( $first, $p ) . "\n";
+            $first = 0;
+        }
+
+        return $st;
+    }
+
+    my $msg = $self->message;
+    return $msg if defined $msg;
+
+    return 'Trace begun';
+}
+
+{
+    ## no critic (Modules::ProhibitMultiplePackages, ClassHierarchies::ProhibitExplicitISA)
+    package    # hide from PAUSE
+        Devel::StackTraceFrame;
+
+    our @ISA = 'Devel::StackTrace::Frame';
+}
+
+1;
+
+# ABSTRACT: An object representing a stack trace
+
+__END__
+
+package Devel::StackTrace::Frame;
+
+use strict;
+use warnings;
+
+our $VERSION = '2.03';
+
+# Create accessor routines
+BEGIN {
+    ## no critic (TestingAndDebugging::ProhibitNoStrict)
+    no strict 'refs';
+
+    my @attrs = qw(
+        package
+        filename
+        line
+        subroutine
+        hasargs
+        wantarray
+        evaltext
+        is_require
+        hints
+        bitmask
+    );
+
+    for my $a (@attrs) {
+        *{$a} = sub { my $s = shift; return $s->{$a} };
+    }
+}
+
+{
+    my @args = qw(
+        package
+        filename
+        line
+        subroutine
+        hasargs
+        wantarray
+        evaltext
+        is_require
+        hints
+        bitmask
+    );
+
+    sub new {
+        my $proto = shift;
+        my $class = ref $proto || $proto;
+
+        my $self = bless {}, $class;
+
+        @{$self}{@args} = @{ shift() };
+        $self->{args}             = shift;
+        $self->{respect_overload} = shift;
+        $self->{max_arg_length}   = shift;
+        $self->{message}          = shift;
+        $self->{indent}           = shift;
+
+        # fixup unix-style paths on win32
+        $self->{filename} = File::Spec->canonpath( $self->{filename} );
+
+        return $self;
+    }
+}
+
+sub args {
+    my $self = shift;
+
+    return @{ $self->{args} };
+}
+
+sub as_string {
+    my $self  = shift;
+    my $first = shift;
+    my $p     = shift;
+
+    my $sub = $self->subroutine;
+
+    # This code stolen straight from Carp.pm and then tweaked. All
+    # errors are probably my fault  -dave
+    if ($first) {
+        $sub
+            = defined $self->{message}
+            ? $self->{message}
+            : 'Trace begun';
+    }
+    else {
+
+        # Build a string, $sub, which names the sub-routine called.
+        # This may also be "require ...", "eval '...' or "eval {...}"
+        if ( my $eval = $self->evaltext ) {
+            if ( $self->is_require ) {
+                $sub = "require $eval";
+            }
+            else {
+                $eval =~ s/([\\\'])/\\$1/g;
+                $sub = "eval '$eval'";
+            }
+        }
+        elsif ( $sub eq '(eval)' ) {
+            $sub = 'eval {...}';
+        }
+
+        # if there are any arguments in the sub-routine call, format
+        # them according to the format variables defined earlier in
+        # this file and join them onto the $sub sub-routine string
+        #
+        # We copy them because they're going to be modified.
+        #
+        if ( my @a = $self->args ) {
+            for (@a) {
+
+                # set args to the string "undef" if undefined
+                unless ( defined $_ ) {
+                    $_ = 'undef';
+                    next;
+                }
+
+                # hack!
+                ## no critic (Subroutines::ProtectPrivateSubs)
+                $_ = $self->Devel::StackTrace::_ref_to_string($_)
+                    if ref $_;
+                ## use critic;
+
+                ## no critic (Variables::RequireInitializationForLocalVars)
+                local $SIG{__DIE__};
+                local $@;
+                ## use critic;
+
+                ## no critic (ErrorHandling::RequireCheckingReturnValueOfEval)
+                eval {
+                    my $max_arg_length
+                        = exists $p->{max_arg_length}
+                        ? $p->{max_arg_length}
+                        : $self->{max_arg_length};
+
+                    if ( $max_arg_length
+                        && length $_ > $max_arg_length ) {
+                        ## no critic (BuiltinFunctions::ProhibitLvalueSubstr)
+                        substr( $_, $max_arg_length ) = '...';
+                    }
+
+                    s/'/\\'/g;
+
+                    # 'quote' arg unless it looks like a number
+                    $_ = "'$_'" unless /^-?[\d.]+$/;
+
+                    # print control/high ASCII chars as 'M-<char>' or '^<char>'
+                    s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
+                    s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
+                };
+                ## use critic
+
+                if ( my $e = $@ ) {
+                    $_ = $e =~ /malformed utf-8/i ? '(bad utf-8)' : '?';
+                }
+            }
+
+            # append ('all', 'the', 'arguments') to the $sub string
+            $sub .= '(' . join( ', ', @a ) . ')';
+            $sub .= ' called';
+        }
+    }
+
+    # If the user opted into indentation (a la Carp::confess), pre-add a tab
+    my $tab = $self->{indent} && !$first ? "\t" : q{};
+
+    return "${tab}$sub at " . $self->filename . ' line ' . $self->line;
+}
+
+1;
+
+# ABSTRACT: A single frame in a stack trace
+
+__END__
+
+package Unicode::UCD;
+
+use strict;
+use warnings;
+no warnings 'surrogate';    # surrogates can be inputs to this
+use charnames ();
+
+our $VERSION = '0.70';
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT_OK = qw(charinfo
+		    charblock charscript
+		    charblocks charscripts
+		    charinrange
+		    charprop
+		    charprops_all
+		    general_categories bidi_types
+		    compexcl
+		    casefold all_casefolds casespec
+		    namedseq
+                    num
+                    prop_aliases
+                    prop_value_aliases
+                    prop_values
+                    prop_invlist
+                    prop_invmap
+                    search_invlist
+                    MAX_CP
+                );
+
+use Carp;
+
+sub IS_ASCII_PLATFORM { ord("A") == 65 }
+
+
+my $v_unicode_version;  # v-string.
+
+sub openunicode {
+    my (@path) = @_;
+    my $rfh;
+    for my $d (@INC) {
+        use File::Spec;
+        my $f = File::Spec->catfile($d, "unicore", @path);
+        return $rfh if open($rfh, '<', $f);
+    }
+    croak __PACKAGE__, ": failed to find ",
+        File::Spec->catfile("unicore", @path), " in @INC";
+}
+
+sub _dclone ($) {   # Use Storable::dclone if available; otherwise emulate it.
+
+    use if defined &DynaLoader::boot_DynaLoader, Storable => qw(dclone);
+
+    return dclone(shift) if defined &dclone;
+
+    my $arg = shift;
+    my $type = ref $arg;
+    return $arg unless $type;   # No deep cloning needed for scalars
+
+    if ($type eq 'ARRAY') {
+        my @return;
+        foreach my $element (@$arg) {
+            push @return, &_dclone($element);
+        }
+        return \@return;
+    }
+    elsif ($type eq 'HASH') {
+        my %return;
+        foreach my $key (keys %$arg) {
+            $return{$key} = &_dclone($arg->{$key});
+        }
+        return \%return;
+    }
+    else {
+        croak "_dclone can't handle " . $type;
+    }
+}
+
+
+# NB: This function is nearly duplicated in charnames.pm
+sub _getcode {
+    my $arg = shift;
+
+    if ($arg =~ /^[1-9]\d*$/) {
+	return $arg;
+    }
+    elsif ($arg =~ /^(?:0[xX])?([[:xdigit:]]+)$/) {
+	return CORE::hex($1);
+    }
+    elsif ($arg =~ /^[Uu]\+([[:xdigit:]]+)$/) { # Is of form U+0000, means
+                                                # wants the Unicode code
+                                                # point, not the native one
+        my $decimal = CORE::hex($1);
+        return $decimal if IS_ASCII_PLATFORM;
+        return utf8::unicode_to_native($decimal);
+    }
+
+    return;
+}
+
+# Populated by _num.  Converts real number back to input rational
+my %real_to_rational;
+
+# To store the contents of files found on disk.
+my @BIDIS;
+my @CATEGORIES;
+my @DECOMPOSITIONS;
+my @NUMERIC_TYPES;
+my %SIMPLE_LOWER;
+my %SIMPLE_TITLE;
+my %SIMPLE_UPPER;
+my %UNICODE_1_NAMES;
+my %ISO_COMMENT;
+
+# Eval'd so can run on versions earlier than the property is available in
+my $Hangul_Syllables_re = eval 'qr/\p{Block=Hangul_Syllables}/';
+
+sub charinfo {
+
+    # This function has traditionally mimicked what is in UnicodeData.txt,
+    # warts and all.  This is a re-write that avoids UnicodeData.txt so that
+    # it can be removed to save disk space.  Instead, this assembles
+    # information gotten by other methods that get data from various other
+    # files.  It uses charnames to get the character name; and various
+    # mktables tables.
+
+    use feature 'unicode_strings';
+
+    # Will fail if called under minitest
+    use if defined &DynaLoader::boot_DynaLoader, "Unicode::Normalize" => qw(getCombinClass NFD);
+
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::charinfo: unknown code '$arg'" unless defined $code;
+
+    # Non-unicode implies undef.
+    return if $code > 0x10FFFF;
+
+    my %prop;
+    my $char = chr($code);
+
+    @CATEGORIES =_read_table("To/Gc.pl") unless @CATEGORIES;
+    $prop{'category'} = _search(\@CATEGORIES, 0, $#CATEGORIES, $code)
+                        // $utf8::SwashInfo{'ToGc'}{'missing'};
+    # Return undef if category value is 'Unassigned' or one of its synonyms 
+    return if grep { lc $_ eq 'unassigned' }
+                                    prop_value_aliases('Gc', $prop{'category'});
+
+    $prop{'code'} = sprintf "%04X", $code;
+    $prop{'name'} = ($char =~ /\p{Cntrl}/) ? '<control>'
+                                           : (charnames::viacode($code) // "");
+
+    $prop{'combining'} = getCombinClass($code);
+
+    @BIDIS =_read_table("To/Bc.pl") unless @BIDIS;
+    $prop{'bidi'} = _search(\@BIDIS, 0, $#BIDIS, $code)
+                    // $utf8::SwashInfo{'ToBc'}{'missing'};
+
+    # For most code points, we can just read in "unicore/Decomposition.pl", as
+    # its contents are exactly what should be output.  But that file doesn't
+    # contain the data for the Hangul syllable decompositions, which can be
+    # algorithmically computed, and NFD() does that, so we call NFD() for
+    # those.  We can't use NFD() for everything, as it does a complete
+    # recursive decomposition, and what this function has always done is to
+    # return what's in UnicodeData.txt which doesn't show that recursiveness.
+    # Fortunately, the NFD() of the Hanguls doesn't have any recursion
+    # issues.
+    # Having no decomposition implies an empty field; otherwise, all but
+    # "Canonical" imply a compatible decomposition, and the type is prefixed
+    # to that, as it is in UnicodeData.txt
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version ge v2.0.0 && $char =~ $Hangul_Syllables_re) {
+        # The code points of the decomposition are output in standard Unicode
+        # hex format, separated by blanks.
+        $prop{'decomposition'} = join " ", map { sprintf("%04X", $_)}
+                                           unpack "U*", NFD($char);
+    }
+    else {
+        @DECOMPOSITIONS = _read_table("Decomposition.pl")
+                          unless @DECOMPOSITIONS;
+        $prop{'decomposition'} = _search(\@DECOMPOSITIONS, 0, $#DECOMPOSITIONS,
+                                                                $code) // "";
+    }
+
+    # Can use num() to get the numeric values, if any.
+    if (! defined (my $value = num($char))) {
+        $prop{'decimal'} = $prop{'digit'} = $prop{'numeric'} = "";
+    }
+    else {
+        if ($char =~ /\d/) {
+            $prop{'decimal'} = $prop{'digit'} = $prop{'numeric'} = $value;
+        }
+        else {
+
+            # For non-decimal-digits, we have to read in the Numeric type
+            # to distinguish them.  It is not just a matter of integer vs.
+            # rational, as some whole number values are not considered digits,
+            # e.g., TAMIL NUMBER TEN.
+            $prop{'decimal'} = "";
+
+            @NUMERIC_TYPES =_read_table("To/Nt.pl") unless @NUMERIC_TYPES;
+            if ((_search(\@NUMERIC_TYPES, 0, $#NUMERIC_TYPES, $code) // "")
+                eq 'Digit')
+            {
+                $prop{'digit'} = $prop{'numeric'} = $value;
+            }
+            else {
+                $prop{'digit'} = "";
+                $prop{'numeric'} = $real_to_rational{$value} // $value;
+            }
+        }
+    }
+
+    $prop{'mirrored'} = ($char =~ /\p{Bidi_Mirrored}/) ? 'Y' : 'N';
+
+    %UNICODE_1_NAMES =_read_table("To/Na1.pl", "use_hash") unless %UNICODE_1_NAMES;
+    $prop{'unicode10'} = $UNICODE_1_NAMES{$code} // "";
+
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version ge v6.0.0) {
+        $prop{'comment'} = "";
+    }
+    else {
+        %ISO_COMMENT = _read_table("To/Isc.pl", "use_hash") unless %ISO_COMMENT;
+        $prop{'comment'} = (defined $ISO_COMMENT{$code})
+                           ? $ISO_COMMENT{$code}
+                           : "";
+    }
+
+    %SIMPLE_UPPER = _read_table("To/Uc.pl", "use_hash") unless %SIMPLE_UPPER;
+    $prop{'upper'} = (defined $SIMPLE_UPPER{$code})
+                     ? sprintf("%04X", $SIMPLE_UPPER{$code})
+                     : "";
+
+    %SIMPLE_LOWER = _read_table("To/Lc.pl", "use_hash") unless %SIMPLE_LOWER;
+    $prop{'lower'} = (defined $SIMPLE_LOWER{$code})
+                     ? sprintf("%04X", $SIMPLE_LOWER{$code})
+                     : "";
+
+    %SIMPLE_TITLE = _read_table("To/Tc.pl", "use_hash") unless %SIMPLE_TITLE;
+    $prop{'title'} = (defined $SIMPLE_TITLE{$code})
+                     ? sprintf("%04X", $SIMPLE_TITLE{$code})
+                     : "";
+
+    $prop{block}  = charblock($code);
+    $prop{script} = charscript($code);
+    return \%prop;
+}
+
+sub _search { # Binary search in a [[lo,hi,prop],[...],...] table.
+    my ($table, $lo, $hi, $code) = @_;
+
+    return if $lo > $hi;
+
+    my $mid = int(($lo+$hi) / 2);
+
+    if ($table->[$mid]->[0] < $code) {
+	if ($table->[$mid]->[1] >= $code) {
+	    return $table->[$mid]->[2];
+	} else {
+	    _search($table, $mid + 1, $hi, $code);
+	}
+    } elsif ($table->[$mid]->[0] > $code) {
+	_search($table, $lo, $mid - 1, $code);
+    } else {
+	return $table->[$mid]->[2];
+    }
+}
+
+sub _read_table ($;$) {
+
+    # Returns the contents of the mktables generated table file located at $1
+    # in the form of either an array of arrays or a hash, depending on if the
+    # optional second parameter is true (for hash return) or not.  In the case
+    # of a hash return, each key is a code point, and its corresponding value
+    # is what the table gives as the code point's corresponding value.  In the
+    # case of an array return, each outer array denotes a range with [0] the
+    # start point of that range; [1] the end point; and [2] the value that
+    # every code point in the range has.  The hash return is useful for fast
+    # lookup when the table contains only single code point ranges.  The array
+    # return takes much less memory when there are large ranges.
+    #
+    # This function has the side effect of setting
+    # $utf8::SwashInfo{$property}{'format'} to be the mktables format of the
+    #                                       table; and
+    # $utf8::SwashInfo{$property}{'missing'} to be the value for all entries
+    #                                        not listed in the table.
+    # where $property is the Unicode property name, preceded by 'To' for map
+    # properties., e.g., 'ToSc'.
+    #
+    # Table entries look like one of:
+    # 0000	0040	Common	# [65]
+    # 00AA		Latin
+
+    my $table = shift;
+    my $return_hash = shift;
+    $return_hash = 0 unless defined $return_hash;
+    my @return;
+    my %return;
+    local $_;
+    my $list = do "unicore/$table";
+
+    # Look up if this property requires adjustments, which we do below if it
+    # does.
+    require "unicore/Heavy.pl";
+    my $property = $table =~ s/\.pl//r;
+    $property = $utf8::file_to_swash_name{$property};
+    my $to_adjust = defined $property
+                    && $utf8::SwashInfo{$property}{'format'} =~ / ^ a /x;
+
+    for (split /^/m, $list) {
+        my ($start, $end, $value) = / ^ (.+?) \t (.*?) \t (.+?)
+                                        \s* ( \# .* )?  # Optional comment
+                                        $ /x;
+        my $decimal_start = hex $start;
+        my $decimal_end = ($end eq "") ? $decimal_start : hex $end;
+        $value = hex $value if $to_adjust
+                               && $utf8::SwashInfo{$property}{'format'} eq 'ax';
+        if ($return_hash) {
+            foreach my $i ($decimal_start .. $decimal_end) {
+                $return{$i} = ($to_adjust)
+                              ? $value + $i - $decimal_start
+                              : $value;
+            }
+        }
+        elsif (! $to_adjust
+               && @return
+               && $return[-1][1] == $decimal_start - 1
+               && $return[-1][2] eq $value)
+        {
+            # If this is merely extending the previous range, do just that.
+            $return[-1]->[1] = $decimal_end;
+        }
+        else {
+            push @return, [ $decimal_start, $decimal_end, $value ];
+        }
+    }
+    return ($return_hash) ? %return : @return;
+}
+
+sub charinrange {
+    my ($range, $arg) = @_;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::charinrange: unknown code '$arg'"
+	unless defined $code;
+    _search($range, 0, $#$range, $code);
+}
+
+
+sub charprop ($$;$) {
+    my ($input_cp, $prop, $internal_ok) = @_;
+
+    my $cp = _getcode($input_cp);
+    croak __PACKAGE__, "::charprop: unknown code point '$input_cp'" unless defined $cp;
+
+    my ($list_ref, $map_ref, $format, $default)
+                                      = prop_invmap($prop, $internal_ok);
+    return undef unless defined $list_ref;
+
+    my $i = search_invlist($list_ref, $cp);
+    croak __PACKAGE__, "::charprop: prop_invmap return is invalid for charprop('$input_cp', '$prop)" unless defined $i;
+
+    # $i is the index into both the inversion list and map of $cp.
+    my $map = $map_ref->[$i];
+
+    # Convert enumeration values to their most complete form.
+    if (! ref $map) {
+        my $long_form = prop_value_aliases($prop, $map);
+        $map = $long_form if defined $long_form;
+    }
+
+    if ($format =~ / ^ s /x) {  # Scalars
+        return join ",", @$map if ref $map; # Convert to scalar with comma
+                                            # separated array elements
+
+        # Resolve ambiguity as to whether an all digit value is a code point
+        # that should be converted to a character, or whether it is really
+        # just a number.  To do this, look at the default.  If it is a
+        # non-empty number, we can safely assume the result is also a number.
+        if ($map =~ / ^ \d+ $ /ax && $default !~ / ^ \d+ $ /ax) {
+            $map = chr $map;
+        }
+        elsif ($map =~ / ^ (?: Y | N ) $ /x) {
+
+            # prop_invmap() returns these values for properties that are Perl
+            # extensions.  But this is misleading.  For now, return undef for
+            # these, as currently documented.
+            undef $map unless
+                exists $Unicode::UCD::prop_aliases{utf8::_loose_name(lc $prop)};
+        }
+        return $map;
+    }
+    elsif ($format eq 'ar') {   # numbers, including rationals
+        my $offset = $cp - $list_ref->[$i];
+        return $map if $map =~ /nan/i;
+        return $map + $offset if $offset != 0;  # If needs adjustment
+        return eval $map;   # Convert e.g., 1/2 to 0.5
+    }
+    elsif ($format =~ /^a/) {   # Some entries need adjusting
+
+        # Linearize sequences into a string.
+        return join "", map { chr $_ } @$map if ref $map; # XXX && $format =~ /^ a [dl] /x;
+
+        return "" if $map eq "" && $format =~ /^a.*e/;
+
+        # These are all character mappings.  Return the chr if no adjustment
+        # is needed
+        return chr $cp if $map eq "0";
+
+        # Convert special entry.
+        if ($map eq '<hangul syllable>' && $format eq 'ad') {
+            use Unicode::Normalize qw(NFD);
+            return NFD(chr $cp);
+        }
+
+        # The rest need adjustment from the first entry in the inversion list
+        # corresponding to this map.
+        my $offset = $cp - $list_ref->[$i];
+        return chr($map + $cp - $list_ref->[$i]);
+    }
+    elsif ($format eq 'n') {    # The name property
+
+        # There are two special cases, handled here.
+        if ($map =~ / ( .+ ) <code\ point> $ /x) {
+            $map = sprintf("$1%04X", $cp);
+        }
+        elsif ($map eq '<hangul syllable>') {
+            $map = charnames::viacode($cp);
+        }
+        return $map;
+    }
+    else {
+        croak __PACKAGE__, "::charprop: Internal error: unknown format '$format'.  Please perlbug this";
+    }
+}
+
+
+sub charprops_all($) {
+    my $input_cp = shift;
+
+    my $cp = _getcode($input_cp);
+    croak __PACKAGE__, "::charprops_all: unknown code point '$input_cp'" unless defined $cp;
+
+    my %return;
+
+    require "unicore/UCD.pl";
+
+    foreach my $prop (keys %Unicode::UCD::prop_aliases) {
+
+        # Don't return a Perl extension.  (This is the only one that
+        # %prop_aliases has in it.)
+        next if $prop eq 'perldecimaldigit';
+
+        # Use long name for $prop in the hash
+        $return{scalar prop_aliases($prop)} = charprop($cp, $prop);
+    }
+
+    return \%return;
+}
+
+
+my @BLOCKS;
+my %BLOCKS;
+
+sub _charblocks {
+
+    # Can't read from the mktables table because it loses the hyphens in the
+    # original.
+    unless (@BLOCKS) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version lt v2.0.0) {
+            my $subrange = [ 0, 0x10FFFF, 'No_Block' ];
+            push @BLOCKS, $subrange;
+            push @{$BLOCKS{'No_Block'}}, $subrange;
+        }
+        else {
+            my $blocksfh = openunicode("Blocks.txt");
+	    local $_;
+	    local $/ = "\n";
+	    while (<$blocksfh>) {
+
+                # Old versions used a different syntax to mark the range.
+                $_ =~ s/;\s+/../ if $v_unicode_version lt v3.1.0;
+
+		if (/^([0-9A-F]+)\.\.([0-9A-F]+);\s+(.+)/) {
+		    my ($lo, $hi) = (hex($1), hex($2));
+		    my $subrange = [ $lo, $hi, $3 ];
+		    push @BLOCKS, $subrange;
+		    push @{$BLOCKS{$3}}, $subrange;
+		}
+	    }
+            if (! IS_ASCII_PLATFORM) {
+                # The first two blocks, through 0xFF, are wrong on EBCDIC
+                # platforms.
+
+                my @new_blocks = _read_table("To/Blk.pl");
+
+                # Get rid of the first two ranges in the Unicode version, and
+                # replace them with the ones computed by mktables.
+                shift @BLOCKS;
+                shift @BLOCKS;
+                delete $BLOCKS{'Basic Latin'};
+                delete $BLOCKS{'Latin-1 Supplement'};
+
+                # But there are multiple entries in the computed versions, and
+                # we change their names to (which we know) to be the old-style
+                # ones.
+                for my $i (0.. @new_blocks - 1) {
+                    if ($new_blocks[$i][2] =~ s/Basic_Latin/Basic Latin/
+                        or $new_blocks[$i][2] =~
+                                    s/Latin_1_Supplement/Latin-1 Supplement/)
+                    {
+                        push @{$BLOCKS{$new_blocks[$i][2]}}, $new_blocks[$i];
+                    }
+                    else {
+                        splice @new_blocks, $i;
+                        last;
+                    }
+                }
+                unshift @BLOCKS, @new_blocks;
+            }
+	}
+    }
+}
+
+sub charblock {
+    my $arg = shift;
+
+    _charblocks() unless @BLOCKS;
+
+    my $code = _getcode($arg);
+
+    if (defined $code) {
+	my $result = _search(\@BLOCKS, 0, $#BLOCKS, $code);
+        return $result if defined $result;
+        return 'No_Block';
+    }
+    elsif (exists $BLOCKS{$arg}) {
+        return _dclone $BLOCKS{$arg};
+    }
+
+    carp __PACKAGE__, "::charblock: unknown code '$arg'";
+    return;
+}
+
+
+my @SCRIPTS;
+my %SCRIPTS;
+
+sub _charscripts {
+    unless (@SCRIPTS) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version lt v3.1.0) {
+            push @SCRIPTS, [ 0, 0x10FFFF, 'Unknown' ];
+        }
+        else {
+            @SCRIPTS =_read_table("To/Sc.pl");
+        }
+    }
+    foreach my $entry (@SCRIPTS) {
+        $entry->[2] =~ s/(_\w)/\L$1/g;  # Preserve old-style casing
+        push @{$SCRIPTS{$entry->[2]}}, $entry;
+    }
+}
+
+sub charscript {
+    my $arg = shift;
+
+    _charscripts() unless @SCRIPTS;
+
+    my $code = _getcode($arg);
+
+    if (defined $code) {
+	my $result = _search(\@SCRIPTS, 0, $#SCRIPTS, $code);
+        return $result if defined $result;
+        return $utf8::SwashInfo{'ToSc'}{'missing'};
+    } elsif (exists $SCRIPTS{$arg}) {
+        return _dclone $SCRIPTS{$arg};
+    }
+
+    carp __PACKAGE__, "::charscript: unknown code '$arg'";
+    return;
+}
+
+
+sub charblocks {
+    _charblocks() unless %BLOCKS;
+    return _dclone \%BLOCKS;
+}
+
+
+sub charscripts {
+    _charscripts() unless %SCRIPTS;
+    return _dclone \%SCRIPTS;
+}
+
+
+my %GENERAL_CATEGORIES =
+ (
+    'L'  =>         'Letter',
+    'LC' =>         'CasedLetter',
+    'Lu' =>         'UppercaseLetter',
+    'Ll' =>         'LowercaseLetter',
+    'Lt' =>         'TitlecaseLetter',
+    'Lm' =>         'ModifierLetter',
+    'Lo' =>         'OtherLetter',
+    'M'  =>         'Mark',
+    'Mn' =>         'NonspacingMark',
+    'Mc' =>         'SpacingMark',
+    'Me' =>         'EnclosingMark',
+    'N'  =>         'Number',
+    'Nd' =>         'DecimalNumber',
+    'Nl' =>         'LetterNumber',
+    'No' =>         'OtherNumber',
+    'P'  =>         'Punctuation',
+    'Pc' =>         'ConnectorPunctuation',
+    'Pd' =>         'DashPunctuation',
+    'Ps' =>         'OpenPunctuation',
+    'Pe' =>         'ClosePunctuation',
+    'Pi' =>         'InitialPunctuation',
+    'Pf' =>         'FinalPunctuation',
+    'Po' =>         'OtherPunctuation',
+    'S'  =>         'Symbol',
+    'Sm' =>         'MathSymbol',
+    'Sc' =>         'CurrencySymbol',
+    'Sk' =>         'ModifierSymbol',
+    'So' =>         'OtherSymbol',
+    'Z'  =>         'Separator',
+    'Zs' =>         'SpaceSeparator',
+    'Zl' =>         'LineSeparator',
+    'Zp' =>         'ParagraphSeparator',
+    'C'  =>         'Other',
+    'Cc' =>         'Control',
+    'Cf' =>         'Format',
+    'Cs' =>         'Surrogate',
+    'Co' =>         'PrivateUse',
+    'Cn' =>         'Unassigned',
+ );
+
+sub general_categories {
+    return _dclone \%GENERAL_CATEGORIES;
+}
+
+
+my %BIDI_TYPES =
+ (
+   'L'   => 'Left-to-Right',
+   'LRE' => 'Left-to-Right Embedding',
+   'LRO' => 'Left-to-Right Override',
+   'R'   => 'Right-to-Left',
+   'AL'  => 'Right-to-Left Arabic',
+   'RLE' => 'Right-to-Left Embedding',
+   'RLO' => 'Right-to-Left Override',
+   'PDF' => 'Pop Directional Format',
+   'EN'  => 'European Number',
+   'ES'  => 'European Number Separator',
+   'ET'  => 'European Number Terminator',
+   'AN'  => 'Arabic Number',
+   'CS'  => 'Common Number Separator',
+   'NSM' => 'Non-Spacing Mark',
+   'BN'  => 'Boundary Neutral',
+   'B'   => 'Paragraph Separator',
+   'S'   => 'Segment Separator',
+   'WS'  => 'Whitespace',
+   'ON'  => 'Other Neutrals',
+ ); 
+
+
+sub bidi_types {
+    return _dclone \%BIDI_TYPES;
+}
+
+
+# Eval'd so can run on versions earlier than the property is available in
+my $Composition_Exclusion_re = eval 'qr/\p{Composition_Exclusion}/';
+
+sub compexcl {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::compexcl: unknown code '$arg'"
+	unless defined $code;
+
+    UnicodeVersion() unless defined $v_unicode_version;
+    return if $v_unicode_version lt v3.0.0;
+
+    no warnings "non_unicode";     # So works on non-Unicode code points
+    return chr($code) =~ $Composition_Exclusion_re
+}
+
+
+my %CASEFOLD;
+
+sub _casefold {
+    unless (%CASEFOLD) {   # Populate the hash
+        my ($full_invlist_ref, $full_invmap_ref, undef, $default)
+                                                = prop_invmap('Case_Folding');
+
+        # Use the recipe given in the prop_invmap() pod to convert the
+        # inversion map into the hash.
+        for my $i (0 .. @$full_invlist_ref - 1 - 1) {
+            next if $full_invmap_ref->[$i] == $default;
+            my $adjust = -1;
+            for my $j ($full_invlist_ref->[$i] .. $full_invlist_ref->[$i+1] -1) {
+                $adjust++;
+                if (! ref $full_invmap_ref->[$i]) {
+
+                    # This is a single character mapping
+                    $CASEFOLD{$j}{'status'} = 'C';
+                    $CASEFOLD{$j}{'simple'}
+                        = $CASEFOLD{$j}{'full'}
+                        = $CASEFOLD{$j}{'mapping'}
+                        = sprintf("%04X", $full_invmap_ref->[$i] + $adjust);
+                    $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                    $CASEFOLD{$j}{'turkic'} = "";
+                }
+                else {  # prop_invmap ensures that $adjust is 0 for a ref
+                    $CASEFOLD{$j}{'status'} = 'F';
+                    $CASEFOLD{$j}{'full'}
+                    = $CASEFOLD{$j}{'mapping'}
+                    = join " ", map { sprintf "%04X", $_ }
+                                                    @{$full_invmap_ref->[$i]};
+                    $CASEFOLD{$j}{'simple'} = "";
+                    $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                    $CASEFOLD{$j}{'turkic'} = "";
+                }
+            }
+        }
+
+        # We have filled in the full mappings above, assuming there were no
+        # simple ones for the ones with multi-character maps.  Now, we find
+        # and fix the cases where that assumption was false.
+        (my ($simple_invlist_ref, $simple_invmap_ref, undef), $default)
+                                        = prop_invmap('Simple_Case_Folding');
+        for my $i (0 .. @$simple_invlist_ref - 1 - 1) {
+            next if $simple_invmap_ref->[$i] == $default;
+            my $adjust = -1;
+            for my $j ($simple_invlist_ref->[$i]
+                       .. $simple_invlist_ref->[$i+1] -1)
+            {
+                $adjust++;
+                next if $CASEFOLD{$j}{'status'} eq 'C';
+                $CASEFOLD{$j}{'status'} = 'S';
+                $CASEFOLD{$j}{'simple'}
+                    = $CASEFOLD{$j}{'mapping'}
+                    = sprintf("%04X", $simple_invmap_ref->[$i] + $adjust);
+                $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                $CASEFOLD{$j}{'turkic'} = "";
+            }
+        }
+
+        # We hard-code in the turkish rules
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version ge v3.2.0) {
+
+            # These two code points should already have regular entries, so
+            # just fill in the turkish fields
+            $CASEFOLD{ord('I')}{'turkic'} = '0131';
+            $CASEFOLD{0x130}{'turkic'} = sprintf "%04X", ord('i');
+        }
+        elsif ($v_unicode_version ge v3.1.0) {
+
+            # These two code points don't have entries otherwise.
+            $CASEFOLD{0x130}{'code'} = '0130';
+            $CASEFOLD{0x131}{'code'} = '0131';
+            $CASEFOLD{0x130}{'status'} = $CASEFOLD{0x131}{'status'} = 'I';
+            $CASEFOLD{0x130}{'turkic'}
+                = $CASEFOLD{0x130}{'mapping'}
+                = $CASEFOLD{0x130}{'full'}
+                = $CASEFOLD{0x130}{'simple'}
+                = $CASEFOLD{0x131}{'turkic'}
+                = $CASEFOLD{0x131}{'mapping'}
+                = $CASEFOLD{0x131}{'full'}
+                = $CASEFOLD{0x131}{'simple'}
+                = sprintf "%04X", ord('i');
+        }
+    }
+}
+
+sub casefold {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::casefold: unknown code '$arg'"
+	unless defined $code;
+
+    _casefold() unless %CASEFOLD;
+
+    return $CASEFOLD{$code};
+}
+
+
+sub all_casefolds () {
+    _casefold() unless %CASEFOLD;
+    return _dclone \%CASEFOLD;
+}
+
+
+my %CASESPEC;
+
+sub _casespec {
+    unless (%CASESPEC) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version ge v2.1.8) {
+            my $casespecfh = openunicode("SpecialCasing.txt");
+	    local $_;
+	    local $/ = "\n";
+	    while (<$casespecfh>) {
+		if (/^([0-9A-F]+); ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; (\w+(?: \w+)*)?/) {
+
+		    my ($hexcode, $lower, $title, $upper, $condition) =
+			($1, $2, $3, $4, $5);
+                    if (! IS_ASCII_PLATFORM) { # Remap entry to native
+                        foreach my $var_ref (\$hexcode,
+                                             \$lower,
+                                             \$title,
+                                             \$upper)
+                        {
+                            next unless defined $$var_ref;
+                            $$var_ref = join " ",
+                                        map { sprintf("%04X",
+                                              utf8::unicode_to_native(hex $_)) }
+                                        split " ", $$var_ref;
+                        }
+                    }
+
+		    my $code = hex($hexcode);
+
+                    # In 2.1.8, there were duplicate entries; ignore all but
+                    # the first one -- there were no conditions in the file
+                    # anyway.
+		    if (exists $CASESPEC{$code} && $v_unicode_version ne v2.1.8)
+                    {
+			if (exists $CASESPEC{$code}->{code}) {
+			    my ($oldlower,
+				$oldtitle,
+				$oldupper,
+				$oldcondition) =
+				    @{$CASESPEC{$code}}{qw(lower
+							   title
+							   upper
+							   condition)};
+			    if (defined $oldcondition) {
+				my ($oldlocale) =
+				($oldcondition =~ /^([a-z][a-z](?:_\S+)?)/);
+				delete $CASESPEC{$code};
+				$CASESPEC{$code}->{$oldlocale} =
+				{ code      => $hexcode,
+				  lower     => $oldlower,
+				  title     => $oldtitle,
+				  upper     => $oldupper,
+				  condition => $oldcondition };
+			    }
+			}
+			my ($locale) =
+			    ($condition =~ /^([a-z][a-z](?:_\S+)?)/);
+			$CASESPEC{$code}->{$locale} =
+			{ code      => $hexcode,
+			  lower     => $lower,
+			  title     => $title,
+			  upper     => $upper,
+			  condition => $condition };
+		    } else {
+			$CASESPEC{$code} =
+			{ code      => $hexcode,
+			  lower     => $lower,
+			  title     => $title,
+			  upper     => $upper,
+			  condition => $condition };
+		    }
+		}
+	    }
+	}
+    }
+}
+
+sub casespec {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::casespec: unknown code '$arg'"
+	unless defined $code;
+
+    _casespec() unless %CASESPEC;
+
+    return ref $CASESPEC{$code} ? _dclone $CASESPEC{$code} : $CASESPEC{$code};
+}
+
+
+my %NAMEDSEQ;
+
+sub _namedseq {
+    unless (%NAMEDSEQ) {
+        my $namedseqfh = openunicode("Name.pl");
+        local $_;
+        local $/ = "\n";
+        while (<$namedseqfh>) {
+            if (/^ [0-9A-F]+ \  /x) {
+                chomp;
+                my ($sequence, $name) = split /\t/;
+                my @s = map { chr(hex($_)) } split(' ', $sequence);
+                $NAMEDSEQ{$name} = join("", @s);
+            }
+        }
+    }
+}
+
+sub namedseq {
+
+    # Use charnames::string_vianame() which now returns this information,
+    # unless the caller wants the hash returned, in which case we read it in,
+    # and thereafter use it instead of calling charnames, as it is faster.
+
+    my $wantarray = wantarray();
+    if (defined $wantarray) {
+	if ($wantarray) {
+	    if (@_ == 0) {
+                _namedseq() unless %NAMEDSEQ;
+		return %NAMEDSEQ;
+	    } elsif (@_ == 1) {
+		my $s;
+                if (%NAMEDSEQ) {
+                    $s = $NAMEDSEQ{ $_[0] };
+                }
+                else {
+                    $s = charnames::string_vianame($_[0]);
+                }
+		return defined $s ? map { ord($_) } split('', $s) : ();
+	    }
+	} elsif (@_ == 1) {
+            return $NAMEDSEQ{ $_[0] } if %NAMEDSEQ;
+            return charnames::string_vianame($_[0]);
+	}
+    }
+    return;
+}
+
+my %NUMERIC;
+
+sub _numeric {
+    my @numbers = _read_table("To/Nv.pl");
+    foreach my $entry (@numbers) {
+        my ($start, $end, $value) = @$entry;
+
+        # If value contains a slash, convert to decimal, add a reverse hash
+        # used by charinfo.
+        if ((my @rational = split /\//, $value) == 2) {
+            my $real = $rational[0] / $rational[1];
+            $real_to_rational{$real} = $value;
+            $value = $real;
+
+            # Should only be single element, but just in case...
+            for my $i ($start .. $end) {
+                $NUMERIC{$i} = $value;
+            }
+        }
+        else {
+            # The values require adjusting, as is in 'a' format
+            for my $i ($start .. $end) {
+                $NUMERIC{$i} = $value + $i - $start;
+            }
+        }
+    }
+
+    # Decided unsafe to use these that aren't officially part of the Unicode
+    # standard.
+    #use Math::Trig;
+    #my $pi = acos(-1.0);
+    #$NUMERIC{0x03C0} = $pi;
+
+    # Euler's constant, not to be confused with Euler's number
+    #$NUMERIC{0x2107} = 0.57721566490153286060651209008240243104215933593992;
+
+    # Euler's number
+    #$NUMERIC{0x212F} = 2.7182818284590452353602874713526624977572;
+
+    return;
+}
+
+
+#A few characters to which Unicode doesn't officially
+#assign a numeric value are considered numeric by C<num>.
+#These are:
+
+# EULER CONSTANT             0.5772...  (this is NOT Euler's number)
+# SCRIPT SMALL E             2.71828... (this IS Euler's number)
+# GREEK SMALL LETTER PI      3.14159...
+
+
+# To handle sub, superscripts, this could if called in list context,
+# consider those, and return the <decomposition> type in the second
+# array element.
+
+sub num ($;$) {
+    my ($string, $retlen_ref) = @_;
+
+    use feature 'unicode_strings';
+
+    _numeric unless %NUMERIC;
+    $$retlen_ref = 0 if $retlen_ref;    # Assume will fail
+
+    my $length = length $string;
+    return if $length == 0;
+
+    my $first_ord = ord(substr($string, 0, 1));
+    return if ! exists  $NUMERIC{$first_ord}
+           || ! defined $NUMERIC{$first_ord};
+
+    # Here, we know the first character is numeric
+    my $value = $NUMERIC{$first_ord};
+    $$retlen_ref = 1 if $retlen_ref;    # Assume only this one is numeric
+
+    return $value if $length == 1;
+
+    # Here, the input is longer than a single character.  To be valid, it must
+    # be entirely decimal digits, which means it must start with one.
+    return if $string =~ / ^ \D /x;
+
+    # To be a valid decimal number, it should be in a block of 10 consecutive
+    # characters, whose values are 0, 1, 2, ... 9.  Therefore this digit's
+    # value is its offset in that block from the character that means zero.
+    my $zero_ord = $first_ord - $value;
+
+    # Unicode 6.0 instituted the rule that only digits in a consecutive
+    # block of 10 would be considered decimal digits.  If this is an earlier
+    # release, we verify that this first character is a member of such a
+    # block.  That is, that the block of characters surrounding this one
+    # consists of all \d characters whose numeric values are the expected
+    # ones.  If not, then this single character is numeric, but the string as
+    # a whole is not considered to be.
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version lt v6.0.0) {
+        for my $i (0 .. 9) {
+            my $ord = $zero_ord + $i;
+            return unless chr($ord) =~ /\d/;
+            my $numeric = $NUMERIC{$ord};
+            return unless defined $numeric;
+            return unless $numeric == $i;
+        }
+    }
+
+    for my $i (1 .. $length -1) {
+
+        # Here we know either by verifying, or by fact of the first character
+        # being a \d in Unicode 6.0 or later, that any character between the
+        # character that means 0, and 9 positions above it must be \d, and
+        # must have its value correspond to its offset from the zero.  Any
+        # characters outside these 10 do not form a legal number for this
+        # function.
+        my $ord = ord(substr($string, $i, 1));
+        my $digit = $ord - $zero_ord;
+        if ($digit < 0 || $digit > 9) {
+            $$retlen_ref = $i if $retlen_ref;
+            return;
+        }
+        $value = $value * 10 + $digit;
+    }
+
+    $$retlen_ref = $length if $retlen_ref;
+    return $value;
+}
+
+
+# It may be that there are use cases where the discouraged forms should be
+# returned.  If that comes up, an optional boolean second parameter to the
+# function could be created, for example.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our %string_property_loose_to_name;
+our %ambiguous_names;
+our %loose_perlprop_to_name;
+our %prop_aliases;
+
+sub prop_aliases ($) {
+    my $prop = $_[0];
+    return unless defined $prop;
+
+    require "unicore/UCD.pl";
+    require "unicore/Heavy.pl";
+    require "utf8_heavy.pl";
+
+    # The property name may be loosely or strictly matched; we don't know yet.
+    # But both types use lower-case.
+    $prop = lc $prop;
+
+    # It is loosely matched if its lower case isn't known to be strict.
+    my $list_ref;
+    if (! exists $utf8::stricter_to_file_of{$prop}) {
+        my $loose = utf8::_loose_name($prop);
+
+        # There is a hash that converts from any loose name to its standard
+        # form, mapping all synonyms for a  name to one name that can be used
+        # as a key into another hash.  The whole concept is for memory
+        # savings, as the second hash doesn't have to have all the
+        # combinations.  Actually, there are two hashes that do the
+        # converstion.  One is used in utf8_heavy.pl (stored in Heavy.pl) for
+        # looking up properties matchable in regexes.  This function needs to
+        # access string properties, which aren't available in regexes, so a
+        # second conversion hash is made for them (stored in UCD.pl).  Look in
+        # the string one now, as the rest can have an optional 'is' prefix,
+        # which these don't.
+        if (exists $string_property_loose_to_name{$loose}) {
+
+            # Convert to its standard loose name.
+            $prop = $string_property_loose_to_name{$loose};
+        }
+        else {
+            my $retrying = 0;   # bool.  ? Has an initial 'is' been stripped
+        RETRY:
+            if (exists $utf8::loose_property_name_of{$loose}
+                && (! $retrying
+                    || ! exists $ambiguous_names{$loose}))
+            {
+                # Found an entry giving the standard form.  We don't get here
+                # (in the test above) when we've stripped off an
+                # 'is' and the result is an ambiguous name.  That is because
+                # these are official Unicode properties (though Perl can have
+                # an optional 'is' prefix meaning the official property), and
+                # all ambiguous cases involve a Perl single-form extension
+                # for the gc, script, or block properties, and the stripped
+                # 'is' means that they mean one of those, and not one of
+                # these
+                $prop = $utf8::loose_property_name_of{$loose};
+            }
+            elsif (exists $loose_perlprop_to_name{$loose}) {
+
+                # This hash is specifically for this function to list Perl
+                # extensions that aren't in the earlier hashes.  If there is
+                # only one element, the short and long names are identical.
+                # Otherwise the form is already in the same form as
+                # %prop_aliases, which is handled at the end of the function.
+                $list_ref = $loose_perlprop_to_name{$loose};
+                if (@$list_ref == 1) {
+                    my @list = ($list_ref->[0], $list_ref->[0]);
+                    $list_ref = \@list;
+                }
+            }
+            elsif (! exists $utf8::loose_to_file_of{$loose}) {
+
+                # loose_to_file_of is a complete list of loose names.  If not
+                # there, the input is unknown.
+                return;
+            }
+            elsif ($loose =~ / [:=] /x) {
+
+                # Here we found the name but not its aliases, so it has to
+                # exist.  Exclude property-value combinations.  (This shows up
+                # for something like ccc=vr which matches loosely, but is a
+                # synonym for ccc=9 which matches only strictly.
+                return;
+            }
+            else {
+
+                # Here it has to exist, and isn't a property-value
+                # combination.  This means it must be one of the Perl
+                # single-form extensions.  First see if it is for a
+                # property-value combination in one of the following
+                # properties.
+                my @list;
+                foreach my $property ("gc", "script") {
+                    @list = prop_value_aliases($property, $loose);
+                    last if @list;
+                }
+                if (@list) {
+
+                    # Here, it is one of those property-value combination
+                    # single-form synonyms.  There are ambiguities with some
+                    # of these.  Check against the list for these, and adjust
+                    # if necessary.
+                    for my $i (0 .. @list -1) {
+                        if (exists $ambiguous_names
+                                   {utf8::_loose_name(lc $list[$i])})
+                        {
+                            # The ambiguity is resolved by toggling whether or
+                            # not it has an 'is' prefix
+                            $list[$i] =~ s/^Is_// or $list[$i] =~ s/^/Is_/;
+                        }
+                    }
+                    return @list;
+                }
+
+                # Here, it wasn't one of the gc or script single-form
+                # extensions.  It could be a block property single-form
+                # extension.  An 'in' prefix definitely means that, and should
+                # be looked up without the prefix.  However, starting in
+                # Unicode 6.1, we have to special case 'indic...', as there
+                # is a property that begins with that name.   We shouldn't
+                # strip the 'in' from that.   I'm (khw) generalizing this to
+                # 'indic' instead of the single property, because I suspect
+                # that others of this class may come along in the future.
+                # However, this could backfire and a block created whose name
+                # begins with 'dic...', and we would want to strip the 'in'.
+                # At which point this would have to be tweaked.
+                my $began_with_in = $loose =~ s/^in(?!dic)//;
+                @list = prop_value_aliases("block", $loose);
+                if (@list) {
+                    map { $_ =~ s/^/In_/ } @list;
+                    return @list;
+                }
+
+                # Here still haven't found it.  The last opportunity for it
+                # being valid is only if it began with 'is'.  We retry without
+                # the 'is', setting a flag to that effect so that we don't
+                # accept things that begin with 'isis...'
+                if (! $retrying && ! $began_with_in && $loose =~ s/^is//) {
+                    $retrying = 1;
+                    goto RETRY;
+                }
+
+                # Here, didn't find it.  Since it was in %loose_to_file_of, we
+                # should have been able to find it.
+                carp __PACKAGE__, "::prop_aliases: Unexpectedly could not find '$prop'.  Send bug report to perlbug\@perl.org";
+                return;
+            }
+        }
+    }
+
+    if (! $list_ref) {
+        # Here, we have set $prop to a standard form name of the input.  Look
+        # it up in the structure created by mktables for this purpose, which
+        # contains both strict and loosely matched properties.  Avoid
+        # autovivifying.
+        $list_ref = $prop_aliases{$prop} if exists $prop_aliases{$prop};
+        return unless $list_ref;
+    }
+
+    # The full name is in element 1.
+    return $list_ref->[1] unless wantarray;
+
+    return @{_dclone $list_ref};
+}
+
+
+# These are created by mktables for this module and stored in unicore/UCD.pl
+# where their structures are described.
+our %loose_to_standard_value;
+our %prop_value_aliases;
+
+sub prop_values ($) {
+    my $prop = shift;
+    return undef unless defined $prop;
+
+    require "unicore/UCD.pl";
+    require "utf8_heavy.pl";
+
+    # Find the property name synonym that's used as the key in other hashes,
+    # which is element 0 in the returned list.
+    ($prop) = prop_aliases($prop);
+    return undef if ! $prop;
+    $prop = utf8::_loose_name(lc $prop);
+
+    # Here is a legal property.
+    return undef unless exists $prop_value_aliases{$prop};
+    my @return;
+    foreach my $value_key (sort { lc $a cmp lc $b }
+                            keys %{$prop_value_aliases{$prop}})
+    {
+        push @return, $prop_value_aliases{$prop}{$value_key}[0];
+    }
+    return @return;
+}
+
+
+sub prop_value_aliases ($$) {
+    my ($prop, $value) = @_;
+    return unless defined $prop && defined $value;
+
+    require "unicore/UCD.pl";
+    require "utf8_heavy.pl";
+
+    # Find the property name synonym that's used as the key in other hashes,
+    # which is element 0 in the returned list.
+    ($prop) = prop_aliases($prop);
+    return if ! $prop;
+    $prop = utf8::_loose_name(lc $prop);
+
+    # Here is a legal property, but the hash below (created by mktables for
+    # this purpose) only knows about the properties that have a very finite
+    # number of potential values, that is not ones whose value could be
+    # anything, like most (if not all) string properties.  These don't have
+    # synonyms anyway.  Simply return the input.  For example, there is no
+    # synonym for ('Uppercase_Mapping', A').
+    if (! exists $prop_value_aliases{$prop}) {
+
+        # Here, we have a legal property, but an unknown value.  Since the
+        # property is legal, if it isn't in the prop_aliases hash, it must be
+        # a Perl-extension All perl extensions are binary, hence are
+        # enumerateds, which means that we know that the input unknown value
+        # is illegal.
+        return if ! exists $Unicode::UCD::prop_aliases{$prop};
+
+        # Otherwise, we assume it's valid, as documented.
+        return $value;
+    }
+
+    # The value name may be loosely or strictly matched; we don't know yet.
+    # But both types use lower-case.
+    $value = lc $value;
+
+    # If the name isn't found under loose matching, it certainly won't be
+    # found under strict
+    my $loose_value = utf8::_loose_name($value);
+    return unless exists $loose_to_standard_value{"$prop=$loose_value"};
+
+    # Similarly if the combination under loose matching doesn't exist, it
+    # won't exist under strict.
+    my $standard_value = $loose_to_standard_value{"$prop=$loose_value"};
+    return unless exists $prop_value_aliases{$prop}{$standard_value};
+
+    # Here we did find a combination under loose matching rules.  But it could
+    # be that is a strict property match that shouldn't have matched.
+    # %prop_value_aliases is set up so that the strict matches will appear as
+    # if they were in loose form.  Thus, if the non-loose version is legal,
+    # we're ok, can skip the further check.
+    if (! exists $utf8::stricter_to_file_of{"$prop=$value"}
+
+        # We're also ok and skip the further check if value loosely matches.
+        # mktables has verified that no strict name under loose rules maps to
+        # an existing loose name.  This code relies on the very limited
+        # circumstances that strict names can be here.  Strict name matching
+        # happens under two conditions:
+        # 1) when the name begins with an underscore.  But this function
+        #    doesn't accept those, and %prop_value_aliases doesn't have
+        #    them.
+        # 2) When the values are numeric, in which case we need to look
+        #    further, but their squeezed-out loose values will be in
+        #    %stricter_to_file_of
+        && exists $utf8::stricter_to_file_of{"$prop=$loose_value"})
+    {
+        # The only thing that's legal loosely under strict is that can have an
+        # underscore between digit pairs XXX
+        while ($value =~ s/(\d)_(\d)/$1$2/g) {}
+        return unless exists $utf8::stricter_to_file_of{"$prop=$value"};
+    }
+
+    # Here, we know that the combination exists.  Return it.
+    my $list_ref = $prop_value_aliases{$prop}{$standard_value};
+    if (@$list_ref > 1) {
+        # The full name is in element 1.
+        return $list_ref->[1] unless wantarray;
+
+        return @{_dclone $list_ref};
+    }
+
+    return $list_ref->[0] unless wantarray;
+
+    # Only 1 element means that it repeats
+    return ( $list_ref->[0], $list_ref->[0] );
+}
+
+# All 1 bits but the top one is the largest possible IV.
+$Unicode::UCD::MAX_CP = (~0) >> 1;
+
+
+# User-defined properties could be handled with some changes to utf8_heavy.pl;
+# and implementing here of dealing with EXTRAS.  If done, consideration should
+# be given to the fact that the user subroutine could return different results
+# with each call; security issues need to be thought about.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our %loose_defaults;
+our $MAX_UNICODE_CODEPOINT;
+
+sub prop_invlist ($;$) {
+    my $prop = $_[0];
+
+    # Undocumented way to get at Perl internal properties; it may be changed
+    # or removed without notice at any time.
+    my $internal_ok = defined $_[1] && $_[1] eq '_perl_core_internal_ok';
+
+    return if ! defined $prop;
+
+    require "utf8_heavy.pl";
+
+    # Warnings for these are only for regexes, so not applicable to us
+    no warnings 'deprecated';
+
+    # Get the swash definition of the property-value.
+    my $swash = utf8::SWASHNEW(__PACKAGE__, $prop, undef, 1, 0);
+
+    # Fail if not found, or isn't a boolean property-value, or is a
+    # user-defined property, or is internal-only.
+    return if ! $swash
+              || ref $swash eq ""
+              || $swash->{'BITS'} != 1
+              || $swash->{'USER_DEFINED'}
+              || (! $internal_ok && $prop =~ /^\s*_/);
+
+    if ($swash->{'EXTRAS'}) {
+        carp __PACKAGE__, "::prop_invlist: swash returned for $prop unexpectedly has EXTRAS magic";
+        return;
+    }
+    if ($swash->{'SPECIALS'}) {
+        carp __PACKAGE__, "::prop_invlist: swash returned for $prop unexpectedly has SPECIALS magic";
+        return;
+    }
+
+    my @invlist;
+
+    if ($swash->{'LIST'} =~ /^V/) {
+
+        # A 'V' as the first character marks the input as already an inversion
+        # list, in which case, all we need to do is put the remaining lines
+        # into our array.
+        @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
+        shift @invlist;
+    }
+    else {
+        # The input lines look like:
+        # 0041\t005A   # [26]
+        # 005F
+
+        # Split into lines, stripped of trailing comments
+        foreach my $range (split "\n",
+                              $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr)
+        {
+            # And find the beginning and end of the range on the line
+            my ($hex_begin, $hex_end) = split "\t", $range;
+            my $begin = hex $hex_begin;
+
+            # If the new range merely extends the old, we remove the marker
+            # created the last time through the loop for the old's end, which
+            # causes the new one's end to be used instead.
+            if (@invlist && $begin == $invlist[-1]) {
+                pop @invlist;
+            }
+            else {
+                # Add the beginning of the range
+                push @invlist, $begin;
+            }
+
+            if (defined $hex_end) { # The next item starts with the code point 1
+                                    # beyond the end of the range.
+                no warnings 'portable';
+                my $end = hex $hex_end;
+                last if $end == $Unicode::UCD::MAX_CP;
+                push @invlist, $end + 1;
+            }
+            else {  # No end of range, is a single code point.
+                push @invlist, $begin + 1;
+            }
+        }
+    }
+
+    # Could need to be inverted: add or subtract a 0 at the beginning of the
+    # list.
+    if ($swash->{'INVERT_IT'}) {
+        if (@invlist && $invlist[0] == 0) {
+            shift @invlist;
+        }
+        else {
+            unshift @invlist, 0;
+        }
+    }
+
+    return @invlist;
+}
+
+
+# User-defined properties could be handled with some changes to utf8_heavy.pl;
+# if done, consideration should be given to the fact that the user subroutine
+# could return different results with each call, which could lead to some
+# security issues.
+
+# One could store things in memory so they don't have to be recalculated, but
+# it is unlikely this will be called often, and some properties would take up
+# significant memory.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our @algorithmic_named_code_points;
+our $HANGUL_BEGIN;
+our $HANGUL_COUNT;
+
+sub prop_invmap ($;$) {
+
+    croak __PACKAGE__, "::prop_invmap: must be called in list context" unless wantarray;
+
+    my $prop = $_[0];
+    return unless defined $prop;
+
+    # Undocumented way to get at Perl internal properties; it may be changed
+    # or removed without notice at any time.  It currently also changes the
+    # output to use the format specified in the file rather than the one we
+    # normally compute and return
+    my $internal_ok = defined $_[1] && $_[1] eq '_perl_core_internal_ok';
+
+    # Fail internal properties
+    return if $prop =~ /^_/ && ! $internal_ok;
+
+    # The values returned by this function.
+    my (@invlist, @invmap, $format, $missing);
+
+    # The swash has two components we look at, the base list, and a hash,
+    # named 'SPECIALS', containing any additional members whose mappings don't
+    # fit into the base list scheme of things.  These generally 'override'
+    # any value in the base list for the same code point.
+    my $overrides;
+
+    require "utf8_heavy.pl";
+    require "unicore/UCD.pl";
+
+RETRY:
+
+    # If there are multiple entries for a single code point
+    my $has_multiples = 0;
+
+    # Try to get the map swash for the property.  They have 'To' prepended to
+    # the property name, and 32 means we will accept 32 bit return values.
+    # The 0 means we aren't calling this from tr///.
+    my $swash = utf8::SWASHNEW(__PACKAGE__, "To$prop", undef, 32, 0);
+
+    # If didn't find it, could be because needs a proxy.  And if was the
+    # 'Block' or 'Name' property, use a proxy even if did find it.  Finding it
+    # in these cases would be the result of the installation changing mktables
+    # to output the Block or Name tables.  The Block table gives block names
+    # in the new-style, and this routine is supposed to return old-style block
+    # names.  The Name table is valid, but we need to execute the special code
+    # below to add in the algorithmic-defined name entries.
+    # And NFKCCF needs conversion, so handle that here too.
+    if (ref $swash eq ""
+        || $swash->{'TYPE'} =~ / ^ To (?: Blk | Na | NFKCCF ) $ /x)
+    {
+
+        # Get the short name of the input property, in standard form
+        my ($second_try) = prop_aliases($prop);
+        return unless $second_try;
+        $second_try = utf8::_loose_name(lc $second_try);
+
+        if ($second_try eq "in") {
+
+            # This property is identical to age for inversion map purposes
+            $prop = "age";
+            goto RETRY;
+        }
+        elsif ($second_try =~ / ^ s ( cf | fc | [ltu] c ) $ /x) {
+
+            # These properties use just the LIST part of the full mapping,
+            # which includes the simple maps that are otherwise overridden by
+            # the SPECIALS.  So all we need do is to not look at the SPECIALS;
+            # set $overrides to indicate that
+            $overrides = -1;
+
+            # The full name is the simple name stripped of its initial 's'
+            $prop = $1;
+
+            # .. except for this case
+            $prop = 'cf' if $prop eq 'fc';
+
+            goto RETRY;
+        }
+        elsif ($second_try eq "blk") {
+
+            # We use the old block names.  Just create a fake swash from its
+            # data.
+            _charblocks();
+            my %blocks;
+            $blocks{'LIST'} = "";
+            $blocks{'TYPE'} = "ToBlk";
+            $utf8::SwashInfo{ToBlk}{'missing'} = "No_Block";
+            $utf8::SwashInfo{ToBlk}{'format'} = "s";
+
+            foreach my $block (@BLOCKS) {
+                $blocks{'LIST'} .= sprintf "%x\t%x\t%s\n",
+                                           $block->[0],
+                                           $block->[1],
+                                           $block->[2];
+            }
+            $swash = \%blocks;
+        }
+        elsif ($second_try eq "na") {
+
+            # Use the combo file that has all the Name-type properties in it,
+            # extracting just the ones that are for the actual 'Name'
+            # property.  And create a fake swash from it.
+            my %names;
+            $names{'LIST'} = "";
+            my $original = do "unicore/Name.pl";
+            my $algorithm_names = \@algorithmic_named_code_points;
+
+            # We need to remove the names from it that are aliases.  For that
+            # we need to also read in that table.  Create a hash with the keys
+            # being the code points, and the values being a list of the
+            # aliases for the code point key.
+            my ($aliases_code_points, $aliases_maps, undef, undef)
+                  = &prop_invmap("_Perl_Name_Alias", '_perl_core_internal_ok');
+            my %aliases;
+            for (my $i = 0; $i < @$aliases_code_points; $i++) {
+                my $code_point = $aliases_code_points->[$i];
+                $aliases{$code_point} = $aliases_maps->[$i];
+
+                # If not already a list, make it into one, so that later we
+                # can treat things uniformly
+                if (! ref $aliases{$code_point}) {
+                    $aliases{$code_point} = [ $aliases{$code_point} ];
+                }
+
+                # Remove the alias type from the entry, retaining just the
+                # name.
+                map { s/:.*// } @{$aliases{$code_point}};
+            }
+
+            my $i = 0;
+            foreach my $line (split "\n", $original) {
+                my ($hex_code_point, $name) = split "\t", $line;
+
+                # Weeds out all comments, blank lines, and named sequences
+                next if $hex_code_point =~ /[^[:xdigit:]]/a;
+
+                my $code_point = hex $hex_code_point;
+
+                # The name of all controls is the default: the empty string.
+                # The set of controls is immutable
+                next if chr($code_point) =~ /[[:cntrl:]]/u;
+
+                # If this is a name_alias, it isn't a name
+                next if grep { $_ eq $name } @{$aliases{$code_point}};
+
+                # If we are beyond where one of the special lines needs to
+                # be inserted ...
+                while ($i < @$algorithm_names
+                    && $code_point > $algorithm_names->[$i]->{'low'})
+                {
+
+                    # ... then insert it, ahead of what we were about to
+                    # output
+                    $names{'LIST'} .= sprintf "%x\t%x\t%s\n",
+                                            $algorithm_names->[$i]->{'low'},
+                                            $algorithm_names->[$i]->{'high'},
+                                            $algorithm_names->[$i]->{'name'};
+
+                    # Done with this range.
+                    $i++;
+
+                    # We loop until all special lines that precede the next
+                    # regular one are output.
+                }
+
+                # Here, is a normal name.
+                $names{'LIST'} .= sprintf "%x\t\t%s\n", $code_point, $name;
+            } # End of loop through all the names
+
+            $names{'TYPE'} = "ToNa";
+            $utf8::SwashInfo{ToNa}{'missing'} = "";
+            $utf8::SwashInfo{ToNa}{'format'} = "n";
+            $swash = \%names;
+        }
+        elsif ($second_try =~ / ^ ( d [mt] ) $ /x) {
+
+            # The file is a combination of dt and dm properties.  Create a
+            # fake swash from the portion that we want.
+            my $original = do "unicore/Decomposition.pl";
+            my %decomps;
+
+            if ($second_try eq 'dt') {
+                $decomps{'TYPE'} = "ToDt";
+                $utf8::SwashInfo{'ToDt'}{'missing'} = "None";
+                $utf8::SwashInfo{'ToDt'}{'format'} = "s";
+            }   # 'dm' is handled below, with 'nfkccf'
+
+            $decomps{'LIST'} = "";
+
+            # This property has one special range not in the file: for the
+            # hangul syllables.  But not in Unicode version 1.
+            UnicodeVersion() unless defined $v_unicode_version;
+            my $done_hangul = ($v_unicode_version lt v2.0.0)
+                              ? 1
+                              : 0;    # Have we done the hangul range ?
+            foreach my $line (split "\n", $original) {
+                my ($hex_lower, $hex_upper, $type_and_map) = split "\t", $line;
+                my $code_point = hex $hex_lower;
+                my $value;
+                my $redo = 0;
+
+                # The type, enclosed in <...>, precedes the mapping separated
+                # by blanks
+                if ($type_and_map =~ / ^ < ( .* ) > \s+ (.*) $ /x) {
+                    $value = ($second_try eq 'dt') ? $1 : $2
+                }
+                else {  # If there is no type specified, it's canonical
+                    $value = ($second_try eq 'dt')
+                             ? "Canonical" :
+                             $type_and_map;
+                }
+
+                # Insert the hangul range at the appropriate spot.
+                if (! $done_hangul && $code_point > $HANGUL_BEGIN) {
+                    $done_hangul = 1;
+                    $decomps{'LIST'} .=
+                                sprintf "%x\t%x\t%s\n",
+                                        $HANGUL_BEGIN,
+                                        $HANGUL_BEGIN + $HANGUL_COUNT - 1,
+                                        ($second_try eq 'dt')
+                                        ? "Canonical"
+                                        : "<hangul syllable>";
+                }
+
+                if ($value =~ / / && $hex_upper ne "" && $hex_upper ne $hex_lower) {
+                    $line = sprintf("%04X\t%s\t%s", hex($hex_lower) + 1, $hex_upper, $value);
+                    $hex_upper = "";
+                    $redo = 1;
+                }
+
+                # And append this to our constructed LIST.
+                $decomps{'LIST'} .= "$hex_lower\t$hex_upper\t$value\n";
+
+                redo if $redo;
+            }
+            $swash = \%decomps;
+        }
+        elsif ($second_try ne 'nfkccf') { # Don't know this property. Fail.
+            return;
+        }
+
+        if ($second_try eq 'nfkccf' || $second_try eq 'dm') {
+
+            # The 'nfkccf' property is stored in the old format for backwards
+            # compatibility for any applications that has read its file
+            # directly before prop_invmap() existed.
+            # And the code above has extracted the 'dm' property from its file
+            # yielding the same format.  So here we convert them to adjusted
+            # format for compatibility with the other properties similar to
+            # them.
+            my %revised_swash;
+
+            # We construct a new converted list.
+            my $list = "";
+
+            my @ranges = split "\n", $swash->{'LIST'};
+            for (my $i = 0; $i < @ranges; $i++) {
+                my ($hex_begin, $hex_end, $map) = split "\t", $ranges[$i];
+
+                # The dm property has maps that are space separated sequences
+                # of code points, as well as the special entry "<hangul
+                # syllable>, which also contains a blank.
+                my @map = split " ", $map;
+                if (@map > 1) {
+
+                    # If it's just the special entry, append as-is.
+                    if ($map eq '<hangul syllable>') {
+                        $list .= "$ranges[$i]\n";
+                    }
+                    else {
+
+                        # These should all be single-element ranges.
+                        croak __PACKAGE__, "::prop_invmap: Not expecting a mapping with multiple code points in a multi-element range, $ranges[$i]" if $hex_end ne "" && $hex_end ne $hex_begin;
+
+                        # Convert them to decimal, as that's what's expected.
+                        $list .= "$hex_begin\t\t"
+                            . join(" ", map { hex } @map)
+                            . "\n";
+                    }
+                    next;
+                }
+
+                # Here, the mapping doesn't have a blank, is for a single code
+                # point.
+                my $begin = hex $hex_begin;
+                my $end = (defined $hex_end && $hex_end ne "")
+                        ? hex $hex_end
+                        : $begin;
+
+                # Again, the output is to be in decimal.
+                my $decimal_map = hex $map;
+
+                # We know that multi-element ranges with the same mapping
+                # should not be adjusted, as after the adjustment
+                # multi-element ranges are for consecutive increasing code
+                # points.  Further, the final element in the list won't be
+                # adjusted, as there is nothing after it to include in the
+                # adjustment
+                if ($begin != $end || $i == @ranges -1) {
+
+                    # So just convert these to single-element ranges
+                    foreach my $code_point ($begin .. $end) {
+                        $list .= sprintf("%04X\t\t%d\n",
+                                        $code_point, $decimal_map);
+                    }
+                }
+                else {
+
+                    # Here, we have a candidate for adjusting.  What we do is
+                    # look through the subsequent adjacent elements in the
+                    # input.  If the map to the next one differs by 1 from the
+                    # one before, then we combine into a larger range with the
+                    # initial map.  Loop doing this until we find one that
+                    # can't be combined.
+
+                    my $offset = 0;     # How far away are we from the initial
+                                        # map
+                    my $squished = 0;   # ? Did we squish at least two
+                                        # elements together into one range
+                    for ( ; $i < @ranges; $i++) {
+                        my ($next_hex_begin, $next_hex_end, $next_map)
+                                                = split "\t", $ranges[$i+1];
+
+                        # In the case of 'dm', the map may be a sequence of
+                        # multiple code points, which are never combined with
+                        # another range
+                        last if $next_map =~ / /;
+
+                        $offset++;
+                        my $next_decimal_map = hex $next_map;
+
+                        # If the next map is not next in sequence, it
+                        # shouldn't be combined.
+                        last if $next_decimal_map != $decimal_map + $offset;
+
+                        my $next_begin = hex $next_hex_begin;
+
+                        # Likewise, if the next element isn't adjacent to the
+                        # previous one, it shouldn't be combined.
+                        last if $next_begin != $begin + $offset;
+
+                        my $next_end = (defined $next_hex_end
+                                        && $next_hex_end ne "")
+                                            ? hex $next_hex_end
+                                            : $next_begin;
+
+                        # And finally, if the next element is a multi-element
+                        # range, it shouldn't be combined.
+                        last if $next_end != $next_begin;
+
+                        # Here, we will combine.  Loop to see if we should
+                        # combine the next element too.
+                        $squished = 1;
+                    }
+
+                    if ($squished) {
+
+                        # Here, 'i' is the element number of the last element to
+                        # be combined, and the range is single-element, or we
+                        # wouldn't be combining.  Get it's code point.
+                        my ($hex_end, undef, undef) = split "\t", $ranges[$i];
+                        $list .= "$hex_begin\t$hex_end\t$decimal_map\n";
+                    } else {
+
+                        # Here, no combining done.  Just append the initial
+                        # (and current) values.
+                        $list .= "$hex_begin\t\t$decimal_map\n";
+                    }
+                }
+            } # End of loop constructing the converted list
+
+            # Finish up the data structure for our converted swash
+            my $type = ($second_try eq 'nfkccf') ? 'ToNFKCCF' : 'ToDm';
+            $revised_swash{'LIST'} = $list;
+            $revised_swash{'TYPE'} = $type;
+            $revised_swash{'SPECIALS'} = $swash->{'SPECIALS'};
+            $swash = \%revised_swash;
+
+            $utf8::SwashInfo{$type}{'missing'} = 0;
+            $utf8::SwashInfo{$type}{'format'} = 'a';
+        }
+    }
+
+    if ($swash->{'EXTRAS'}) {
+        carp __PACKAGE__, "::prop_invmap: swash returned for $prop unexpectedly has EXTRAS magic";
+        return;
+    }
+
+    # Here, have a valid swash return.  Examine it.
+    my $returned_prop = $swash->{'TYPE'};
+
+    # All properties but binary ones should have 'missing' and 'format'
+    # entries
+    $missing = $utf8::SwashInfo{$returned_prop}{'missing'};
+    $missing = 'N' unless defined $missing;
+
+    $format = $utf8::SwashInfo{$returned_prop}{'format'};
+    $format = 'b' unless defined $format;
+
+    my $requires_adjustment = $format =~ /^a/;
+
+    if ($swash->{'LIST'} =~ /^V/) {
+        @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
+
+        shift @invlist;     # Get rid of 'V';
+
+        # Could need to be inverted: add or subtract a 0 at the beginning of
+        # the list.
+        if ($swash->{'INVERT_IT'}) {
+            if (@invlist && $invlist[0] == 0) {
+                shift @invlist;
+            }
+            else {
+                unshift @invlist, 0;
+            }
+        }
+        foreach my $i (0 .. @invlist - 1) {
+            $invmap[$i] = ($i % 2 == 0) ? 'Y' : 'N'
+        }
+
+        # The map includes lines for all code points; add one for the range
+        # from 0 to the first Y.
+        if ($invlist[0] != 0) {
+            unshift @invlist, 0;
+            unshift @invmap, 'N';
+        }
+    }
+    else {
+        if ($swash->{'INVERT_IT'}) {
+            croak __PACKAGE__, ":prop_invmap: Don't know how to deal with inverted";
+        }
+
+        # The LIST input lines look like:
+        # ...
+        # 0374\t\tCommon
+        # 0375\t0377\tGreek   # [3]
+        # 037A\t037D\tGreek   # [4]
+        # 037E\t\tCommon
+        # 0384\t\tGreek
+        # ...
+        #
+        # Convert them to like
+        # 0374 => Common
+        # 0375 => Greek
+        # 0378 => $missing
+        # 037A => Greek
+        # 037E => Common
+        # 037F => $missing
+        # 0384 => Greek
+        #
+        # For binary properties, the final non-comment column is absent, and
+        # assumed to be 'Y'.
+
+        foreach my $range (split "\n", $swash->{'LIST'}) {
+            $range =~ s/ \s* (?: \# .* )? $ //xg; # rmv trailing space, comments
+
+            # Find the beginning and end of the range on the line
+            my ($hex_begin, $hex_end, $map) = split "\t", $range;
+            my $begin = hex $hex_begin;
+            no warnings 'portable';
+            my $end = (defined $hex_end && $hex_end ne "")
+                    ? hex $hex_end
+                    : $begin;
+
+            # Each time through the loop (after the first):
+            # $invlist[-2] contains the beginning of the previous range processed
+            # $invlist[-1] contains the end+1 of the previous range processed
+            # $invmap[-2] contains the value of the previous range processed
+            # $invmap[-1] contains the default value for missing ranges
+            #                                                       ($missing)
+            #
+            # Thus, things are set up for the typical case of a new
+            # non-adjacent range of non-missings to be added.  But, if the new
+            # range is adjacent, it needs to replace the [-1] element; and if
+            # the new range is a multiple value of the previous one, it needs
+            # to be added to the [-2] map element.
+
+            # The first time through, everything will be empty.  If the
+            # property doesn't have a range that begins at 0, add one that
+            # maps to $missing
+            if (! @invlist) {
+                if ($begin != 0) {
+                    push @invlist, 0;
+                    push @invmap, $missing;
+                }
+            }
+            elsif (@invlist > 1 && $invlist[-2] == $begin) {
+
+                # Here we handle the case where the input has multiple entries
+                # for each code point.  mktables should have made sure that
+                # each such range contains only one code point.  At this
+                # point, $invlist[-1] is the $missing that was added at the
+                # end of the last loop iteration, and [-2] is the last real
+                # input code point, and that code point is the same as the one
+                # we are adding now, making the new one a multiple entry.  Add
+                # it to the existing entry, either by pushing it to the
+                # existing list of multiple entries, or converting the single
+                # current entry into a list with both on it.  This is all we
+                # need do for this iteration.
+
+                if ($end != $begin) {
+                    croak __PACKAGE__, ":prop_invmap: Multiple maps per code point in '$prop' require single-element ranges: begin=$begin, end=$end, map=$map";
+                }
+                if (! ref $invmap[-2]) {
+                    $invmap[-2] = [ $invmap[-2], $map ];
+                }
+                else {
+                    push @{$invmap[-2]}, $map;
+                }
+                $has_multiples = 1;
+                next;
+            }
+            elsif ($invlist[-1] == $begin) {
+
+                # If the input isn't in the most compact form, so that there
+                # are two adjacent ranges that map to the same thing, they
+                # should be combined (EXCEPT where the arrays require
+                # adjustments, in which case everything is already set up
+                # correctly).  This happens in our constructed dt mapping, as
+                # Element [-2] is the map for the latest range so far
+                # processed.  Just set the beginning point of the map to
+                # $missing (in invlist[-1]) to 1 beyond where this range ends.
+                # For example, in
+                # 12\t13\tXYZ
+                # 14\t17\tXYZ
+                # we have set it up so that it looks like
+                # 12 => XYZ
+                # 14 => $missing
+                #
+                # We now see that it should be
+                # 12 => XYZ
+                # 18 => $missing
+                if (! $requires_adjustment && @invlist > 1 && ( (defined $map)
+                                    ? $invmap[-2] eq $map
+                                    : $invmap[-2] eq 'Y'))
+                {
+                    $invlist[-1] = $end + 1;
+                    next;
+                }
+
+                # Here, the range started in the previous iteration that maps
+                # to $missing starts at the same code point as this range.
+                # That means there is no gap to fill that that range was
+                # intended for, so we just pop it off the parallel arrays.
+                pop @invlist;
+                pop @invmap;
+            }
+
+            # Add the range beginning, and the range's map.
+            push @invlist, $begin;
+            if ($returned_prop eq 'ToDm') {
+
+                # The decomposition maps are either a line like <hangul
+                # syllable> which are to be taken as is; or a sequence of code
+                # points in hex and separated by blanks.  Convert them to
+                # decimal, and if there is more than one, use an anonymous
+                # array as the map.
+                if ($map =~ /^ < /x) {
+                    push @invmap, $map;
+                }
+                else {
+                    my @map = split " ", $map;
+                    if (@map == 1) {
+                        push @invmap, $map[0];
+                    }
+                    else {
+                        push @invmap, \@map;
+                    }
+                }
+            }
+            else {
+
+                # Otherwise, convert hex formatted list entries to decimal;
+                # add a 'Y' map for the missing value in binary properties, or
+                # otherwise, use the input map unchanged.
+                $map = ($format eq 'x' || $format eq 'ax')
+                    ? hex $map
+                    : $format eq 'b'
+                    ? 'Y'
+                    : $map;
+                push @invmap, $map;
+            }
+
+            # We just started a range.  It ends with $end.  The gap between it
+            # and the next element in the list must be filled with a range
+            # that maps to the default value.  If there is no gap, the next
+            # iteration will pop this, unless there is no next iteration, and
+            # we have filled all of the Unicode code space, so check for that
+            # and skip.
+            if ($end < $Unicode::UCD::MAX_CP) {
+                push @invlist, $end + 1;
+                push @invmap, $missing;
+            }
+        }
+    }
+
+    # If the property is empty, make all code points use the value for missing
+    # ones.
+    if (! @invlist) {
+        push @invlist, 0;
+        push @invmap, $missing;
+    }
+
+    # The final element is always for just the above-Unicode code points.  If
+    # not already there, add it.  It merely splits the current final range
+    # that extends to infinity into two elements, each with the same map.
+    # (This is to conform with the API that says the final element is for
+    # $MAX_UNICODE_CODEPOINT + 1 .. INFINITY.)
+    if ($invlist[-1] != $MAX_UNICODE_CODEPOINT + 1) {
+        push @invmap, $invmap[-1];
+        push @invlist, $MAX_UNICODE_CODEPOINT + 1;
+    }
+
+    # The second component of the map are those values that require
+    # non-standard specification, stored in SPECIALS.  These override any
+    # duplicate code points in LIST.  If we are using a proxy, we may have
+    # already set $overrides based on the proxy.
+    $overrides = $swash->{'SPECIALS'} unless defined $overrides;
+    if ($overrides) {
+
+        # A negative $overrides implies that the SPECIALS should be ignored,
+        # and a simple 'a' list is the value.
+        if ($overrides < 0) {
+            $format = 'a';
+        }
+        else {
+
+            # Currently, all overrides are for properties that normally map to
+            # single code points, but now some will map to lists of code
+            # points (but there is an exception case handled below).
+            $format = 'al';
+
+            # Look through the overrides.
+            foreach my $cp_maybe_utf8 (keys %$overrides) {
+                my $cp;
+                my @map;
+
+                # If the overrides came from SPECIALS, the code point keys are
+                # packed UTF-8.
+                if ($overrides == $swash->{'SPECIALS'}) {
+                    $cp = $cp_maybe_utf8;
+                    if (! utf8::decode($cp)) {
+                        croak __PACKAGE__, "::prop_invmap: Malformed UTF-8: ",
+                              map { sprintf("\\x{%02X}", unpack("C", $_)) }
+                                                                split "", $cp;
+                    }
+
+                    $cp = unpack("W", $cp);
+                    @map = unpack "W*", $swash->{'SPECIALS'}{$cp_maybe_utf8};
+
+                    # The empty string will show up unpacked as an empty
+                    # array.
+                    $format = 'ale' if @map == 0;
+                }
+                else {
+
+                    # But if we generated the overrides, we didn't bother to
+                    # pack them, and we, so far, do this only for properties
+                    # that are 'a' ones.
+                    $cp = $cp_maybe_utf8;
+                    @map = hex $overrides->{$cp};
+                    $format = 'a';
+                }
+
+                # Find the range that the override applies to.
+                my $i = search_invlist(\@invlist, $cp);
+                if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) {
+                    croak __PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]"
+                }
+
+                # And what that range currently maps to
+                my $cur_map = $invmap[$i];
+
+                # If there is a gap between the next range and the code point
+                # we are overriding, we have to add elements to both arrays to
+                # fill that gap, using the map that applies to it, which is
+                # $cur_map, since it is part of the current range.
+                if ($invlist[$i + 1] > $cp + 1) {
+                    #use feature 'say';
+                    #say "Before splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+
+                    splice @invlist, $i + 1, 0, $cp + 1;
+                    splice @invmap, $i + 1, 0, $cur_map;
+
+                    #say "After splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+                }
+
+                # If the remaining portion of the range is multiple code
+                # points (ending with the one we are replacing, guaranteed by
+                # the earlier splice).  We must split it into two
+                if ($invlist[$i] < $cp) {
+                    $i++;   # Compensate for the new element
+
+                    #use feature 'say';
+                    #say "Before splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+
+                    splice @invlist, $i, 0, $cp;
+                    splice @invmap, $i, 0, 'dummy';
+
+                    #say "After splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+                }
+
+                # Here, the range we are overriding contains a single code
+                # point.  The result could be the empty string, a single
+                # value, or a list.  If the last case, we use an anonymous
+                # array.
+                $invmap[$i] = (scalar @map == 0)
+                               ? ""
+                               : (scalar @map > 1)
+                                  ? \@map
+                                  : $map[0];
+            }
+        }
+    }
+    elsif ($format eq 'x') {
+
+        # All hex-valued properties are really to code points, and have been
+        # converted to decimal.
+        $format = 's';
+    }
+    elsif ($returned_prop eq 'ToDm') {
+        $format = 'ad';
+    }
+    elsif ($format eq 'sw') { # blank-separated elements to form a list.
+        map { $_ = [ split " ", $_  ] if $_ =~ / / } @invmap;
+        $format = 'sl';
+    }
+    elsif ($returned_prop =~ / To ( _Perl )? NameAlias/x) {
+
+        # This property currently doesn't have any lists, but theoretically
+        # could
+        $format = 'sl';
+    }
+    elsif ($returned_prop eq 'ToPerlDecimalDigit') {
+        $format = 'ae';
+    }
+    elsif ($returned_prop eq 'ToNv') {
+
+        # The one property that has this format is stored as a delta, so needs
+        # to indicate that need to add code point to it.
+        $format = 'ar';
+    }
+    elsif ($format eq 'ax') {
+
+        # Normally 'ax' properties have overrides, and will have been handled
+        # above, but if not, they still need adjustment, and the hex values
+        # have already been converted to decimal
+        $format = 'a';
+    }
+    elsif ($format ne 'n' && $format !~ / ^ a /x) {
+
+        # All others are simple scalars
+        $format = 's';
+    }
+    if ($has_multiples &&  $format !~ /l/) {
+	croak __PACKAGE__, "::prop_invmap: Wrong format '$format' for prop_invmap('$prop'); should indicate has lists";
+    }
+
+    return (\@invlist, \@invmap, $format, $missing);
+}
+
+sub search_invlist {
+
+
+
+    my $list_ref = shift;
+    my $input_code_point = shift;
+    my $code_point = _getcode($input_code_point);
+
+    if (! defined $code_point) {
+        carp __PACKAGE__, "::search_invlist: unknown code '$input_code_point'";
+        return;
+    }
+
+    my $max_element = @$list_ref - 1;
+
+    # Return undef if list is empty or requested item is before the first element.
+    return if $max_element < 0;
+    return if $code_point < $list_ref->[0];
+
+    # Short cut something at the far-end of the table.  This also allows us to
+    # refer to element [$i+1] without fear of being out-of-bounds in the loop
+    # below.
+    return $max_element if $code_point >= $list_ref->[$max_element];
+
+    use integer;        # want integer division
+
+    my $i = $max_element / 2;
+
+    my $lower = 0;
+    my $upper = $max_element;
+    while (1) {
+
+        if ($code_point >= $list_ref->[$i]) {
+
+            # Here we have met the lower constraint.  We can quit if we
+            # also meet the upper one.
+            last if $code_point < $list_ref->[$i+1];
+
+            $lower = $i;        # Still too low.
+
+        }
+        else {
+
+            # Here, $code_point < $list_ref[$i], so look lower down.
+            $upper = $i;
+        }
+
+        # Split search domain in half to try again.
+        my $temp = ($upper + $lower) / 2;
+
+        # No point in continuing unless $i changes for next time
+        # in the loop.
+        return $i if $temp == $i;
+        $i = $temp;
+    } # End of while loop
+
+    # Here we have found the offset
+    return $i;
+}
+
+
+my $UNICODEVERSION;
+
+sub UnicodeVersion {
+    unless (defined $UNICODEVERSION) {
+	my $versionfh = openunicode("version");
+	local $/ = "\n";
+	chomp($UNICODEVERSION = <$versionfh>);
+	croak __PACKAGE__, "::VERSION: strange version '$UNICODEVERSION'"
+	    unless $UNICODEVERSION =~ /^\d+(?:\.\d+)+$/;
+    }
+    $v_unicode_version = pack "C*", split /\./, $UNICODEVERSION;
+    return $UNICODEVERSION;
+}
+
+
+1;
+package TAP::Parser;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Grammar                   ();
+use TAP::Parser::Result                    ();
+use TAP::Parser::ResultFactory             ();
+use TAP::Parser::Source                    ();
+use TAP::Parser::Iterator                  ();
+use TAP::Parser::IteratorFactory           ();
+use TAP::Parser::SourceHandler::Executable ();
+use TAP::Parser::SourceHandler::Perl       ();
+use TAP::Parser::SourceHandler::File       ();
+use TAP::Parser::SourceHandler::RawTAP     ();
+use TAP::Parser::SourceHandler::Handle     ();
+
+use Carp qw( confess );
+
+use base 'TAP::Base';
+
+
+our $VERSION = '3.42';
+
+my $DEFAULT_TAP_VERSION = 12;
+my $MAX_TAP_VERSION     = 13;
+
+$ENV{TAP_VERSION} = $MAX_TAP_VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{TAP_VERSION};
+}
+
+BEGIN {    # making accessors
+    __PACKAGE__->mk_methods(
+        qw(
+          _iterator
+          _spool
+          exec
+          exit
+          is_good_plan
+          plan
+          tests_planned
+          tests_run
+          wait
+          version
+          in_todo
+          start_time
+          end_time
+          start_times
+          end_times
+          skip_all
+          grammar_class
+          result_factory_class
+          iterator_factory_class
+          )
+    );
+
+    sub _stream {    # deprecated
+        my $self = shift;
+        $self->_iterator(@_);
+    }
+}    # done making accessors
+
+
+# new() implementation supplied by TAP::Base
+
+# This should make overriding behaviour of the Parser in subclasses easier:
+sub _default_grammar_class          {'TAP::Parser::Grammar'}
+sub _default_result_factory_class   {'TAP::Parser::ResultFactory'}
+sub _default_iterator_factory_class {'TAP::Parser::IteratorFactory'}
+
+##############################################################################
+
+
+sub next {
+    my $self = shift;
+    return ( $self->{_iter} ||= $self->_iter )->();
+}
+
+##############################################################################
+
+
+sub run {
+    my $self = shift;
+    while ( defined( my $result = $self->next ) ) {
+
+        # do nothing
+    }
+}
+
+##############################################################################
+
+
+# This should make overriding behaviour of the Parser in subclasses easier:
+sub make_iterator_factory { shift->iterator_factory_class->new(@_); }
+sub make_grammar          { shift->grammar_class->new(@_); }
+sub make_result           { shift->result_factory_class->make_result(@_); }
+
+{
+
+    # of the following, anything beginning with an underscore is strictly
+    # internal and should not be exposed.
+    my %initialize = (
+        version       => $DEFAULT_TAP_VERSION,
+        plan          => '',                    # the test plan (e.g., 1..3)
+        tests_run     => 0,                     # actual current test numbers
+        skipped       => [],                    #
+        todo          => [],                    #
+        passed        => [],                    #
+        failed        => [],                    #
+        actual_failed => [],                    # how many tests really failed
+        actual_passed => [],                    # how many tests really passed
+        todo_passed  => [],    # tests which unexpectedly succeed
+        parse_errors => [],    # perfect TAP should have none
+    );
+
+    # We seem to have this list hanging around all over the place. We could
+    # probably get it from somewhere else to avoid the repetition.
+    my @legal_callback = qw(
+      test
+      version
+      plan
+      comment
+      bailout
+      unknown
+      yaml
+      ALL
+      ELSE
+      EOF
+    );
+
+    my @class_overrides = qw(
+      grammar_class
+      result_factory_class
+      iterator_factory_class
+    );
+
+    sub _initialize {
+        my ( $self, $arg_for ) = @_;
+
+        # everything here is basically designed to convert any TAP source to a
+        # TAP::Parser::Iterator.
+
+        # Shallow copy
+        my %args = %{ $arg_for || {} };
+
+        $self->SUPER::_initialize( \%args, \@legal_callback );
+
+        # get any class overrides out first:
+        for my $key (@class_overrides) {
+            my $default_method = "_default_$key";
+            my $val = delete $args{$key} || $self->$default_method();
+            $self->$key($val);
+        }
+
+        my $iterator = delete $args{iterator};
+        $iterator ||= delete $args{stream};    # deprecated
+        my $tap         = delete $args{tap};
+        my $version     = delete $args{version};
+        my $raw_source  = delete $args{source};
+        my $sources     = delete $args{sources};
+        my $exec        = delete $args{exec};
+        my $merge       = delete $args{merge};
+        my $spool       = delete $args{spool};
+        my $switches    = delete $args{switches};
+        my $ignore_exit = delete $args{ignore_exit};
+        my $test_args   = delete $args{test_args} || [];
+
+        if ( 1 < grep {defined} $iterator, $tap, $raw_source, $exec ) {
+            $self->_croak(
+                "You may only choose one of 'exec', 'tap', 'source' or 'iterator'"
+            );
+        }
+
+        if ( my @excess = sort keys %args ) {
+            $self->_croak("Unknown options: @excess");
+        }
+
+        # convert $tap & $exec to $raw_source equiv.
+        my $type   = '';
+        my $source = TAP::Parser::Source->new;
+        if ($tap) {
+            $type = 'raw TAP';
+            $source->raw( \$tap );
+        }
+        elsif ($exec) {
+            $type = 'exec ' . $exec->[0];
+            $source->raw( { exec => $exec } );
+        }
+        elsif ($raw_source) {
+            $type = 'source ' . ref($raw_source) || $raw_source;
+            $source->raw( ref($raw_source) ? $raw_source : \$raw_source );
+        }
+        elsif ($iterator) {
+            $type = 'iterator ' . ref($iterator);
+        }
+
+        if ( $source->raw ) {
+            my $src_factory = $self->make_iterator_factory($sources);
+            $source->merge($merge)->switches($switches)
+              ->test_args($test_args);
+            $iterator = $src_factory->make_iterator($source);
+        }
+
+        unless ($iterator) {
+            $self->_croak(
+                "PANIC: could not determine iterator for input $type");
+        }
+
+        while ( my ( $k, $v ) = each %initialize ) {
+            $self->{$k} = 'ARRAY' eq ref $v ? [] : $v;
+        }
+
+        $self->version($version) if $version;
+        $self->_iterator($iterator);
+        $self->_spool($spool);
+        $self->ignore_exit($ignore_exit);
+
+        return $self;
+    }
+}
+
+
+sub passed {
+    return @{ $_[0]->{passed} }
+      if ref $_[0]->{passed};
+    return wantarray ? 1 .. $_[0]->{passed} : $_[0]->{passed};
+}
+
+
+sub failed { @{ shift->{failed} } }
+
+
+sub actual_passed {
+    return @{ $_[0]->{actual_passed} }
+      if ref $_[0]->{actual_passed};
+    return wantarray ? 1 .. $_[0]->{actual_passed} : $_[0]->{actual_passed};
+}
+*actual_ok = \&actual_passed;
+
+
+sub actual_failed { @{ shift->{actual_failed} } }
+
+##############################################################################
+
+
+sub todo { @{ shift->{todo} } }
+
+
+sub todo_passed { @{ shift->{todo_passed} } }
+
+##############################################################################
+
+
+sub todo_failed {
+    warn
+      '"todo_failed" is deprecated.  Please use "todo_passed".  See the docs.';
+    goto &todo_passed;
+}
+
+
+sub skipped { @{ shift->{skipped} } }
+
+
+sub pragma {
+    my ( $self, $pragma ) = splice @_, 0, 2;
+
+    return $self->{pragma}->{$pragma} unless @_;
+
+    if ( my $state = shift ) {
+        $self->{pragma}->{$pragma} = 1;
+    }
+    else {
+        delete $self->{pragma}->{$pragma};
+    }
+
+    return;
+}
+
+
+sub pragmas { sort keys %{ shift->{pragma} || {} } }
+
+
+sub good_plan {
+    warn 'good_plan() is deprecated.  Please use "is_good_plan()"';
+    goto &is_good_plan;
+}
+
+##############################################################################
+
+
+sub has_problems {
+    my $self = shift;
+    return
+         $self->failed
+      || $self->parse_errors
+      || ( !$self->ignore_exit && ( $self->wait || $self->exit ) );
+}
+
+
+sub ignore_exit { shift->pragma( 'ignore_exit', @_ ) }
+
+
+sub parse_errors { @{ shift->{parse_errors} } }
+
+sub _add_error {
+    my ( $self, $error ) = @_;
+    push @{ $self->{parse_errors} } => $error;
+    return $self;
+}
+
+sub _make_state_table {
+    my $self = shift;
+    my %states;
+    my %planned_todo = ();
+
+    # These transitions are defaults for all states
+    my %state_globals = (
+        comment => {},
+        bailout => {},
+        yaml    => {},
+        version => {
+            act => sub {
+                $self->_add_error(
+                    'If TAP version is present it must be the first line of output'
+                );
+            },
+        },
+        unknown => {
+            act => sub {
+                my $unk = shift;
+                if ( $self->pragma('strict') ) {
+                    $self->_add_error(
+                        'Unknown TAP token: "' . $unk->raw . '"' );
+                }
+            },
+        },
+        pragma => {
+            act => sub {
+                my ($pragma) = @_;
+                for my $pr ( $pragma->pragmas ) {
+                    if ( $pr =~ /^ ([-+])(\w+) $/x ) {
+                        $self->pragma( $2, $1 eq '+' );
+                    }
+                }
+            },
+        },
+    );
+
+    # Provides default elements for transitions
+    my %state_defaults = (
+        plan => {
+            act => sub {
+                my ($plan) = @_;
+                $self->tests_planned( $plan->tests_planned );
+                $self->plan( $plan->plan );
+                if ( $plan->has_skip ) {
+                    $self->skip_all( $plan->explanation
+                          || '(no reason given)' );
+                }
+
+                $planned_todo{$_}++ for @{ $plan->todo_list };
+            },
+        },
+        test => {
+            act => sub {
+                my ($test) = @_;
+
+                my ( $number, $tests_run )
+                  = ( $test->number, ++$self->{tests_run} );
+
+                # Fake TODO state
+                if ( defined $number && delete $planned_todo{$number} ) {
+                    $test->set_directive('TODO');
+                }
+
+                my $has_todo = $test->has_todo;
+
+                $self->in_todo($has_todo);
+                if ( defined( my $tests_planned = $self->tests_planned ) ) {
+                    if ( $tests_run > $tests_planned ) {
+                        $test->is_unplanned(1);
+                    }
+                }
+
+                if ( defined $number ) {
+                    if ( $number != $tests_run ) {
+                        my $count = $tests_run;
+                        $self->_add_error( "Tests out of sequence.  Found "
+                              . "($number) but expected ($count)" );
+                    }
+                }
+                else {
+                    $test->_number( $number = $tests_run );
+                }
+
+                push @{ $self->{todo} } => $number if $has_todo;
+                push @{ $self->{todo_passed} } => $number
+                  if $test->todo_passed;
+                push @{ $self->{skipped} } => $number
+                  if $test->has_skip;
+
+                push @{ $self->{ $test->is_ok ? 'passed' : 'failed' } } =>
+                  $number;
+                push @{
+                    $self->{
+                        $test->is_actual_ok
+                        ? 'actual_passed'
+                        : 'actual_failed'
+                      }
+                  } => $number;
+            },
+        },
+        yaml => { act => sub { }, },
+    );
+
+    # Each state contains a hash the keys of which match a token type. For
+    # each token
+    # type there may be:
+    #   act      A coderef to run
+    #   goto     The new state to move to. Stay in this state if
+    #            missing
+    #   continue Goto the new state and run the new state for the
+    #            current token
+    %states = (
+        INIT => {
+            version => {
+                act => sub {
+                    my ($version) = @_;
+                    my $ver_num = $version->version;
+                    if ( $ver_num <= $DEFAULT_TAP_VERSION ) {
+                        my $ver_min = $DEFAULT_TAP_VERSION + 1;
+                        $self->_add_error(
+                                "Explicit TAP version must be at least "
+                              . "$ver_min. Got version $ver_num" );
+                        $ver_num = $DEFAULT_TAP_VERSION;
+                    }
+                    if ( $ver_num > $MAX_TAP_VERSION ) {
+                        $self->_add_error(
+                                "TAP specified version $ver_num but "
+                              . "we don't know about versions later "
+                              . "than $MAX_TAP_VERSION" );
+                        $ver_num = $MAX_TAP_VERSION;
+                    }
+                    $self->version($ver_num);
+                    $self->_grammar->set_version($ver_num);
+                },
+                goto => 'PLAN'
+            },
+            plan => { goto => 'PLANNED' },
+            test => { goto => 'UNPLANNED' },
+        },
+        PLAN => {
+            plan => { goto => 'PLANNED' },
+            test => { goto => 'UNPLANNED' },
+        },
+        PLANNED => {
+            test => { goto => 'PLANNED_AFTER_TEST' },
+            plan => {
+                act => sub {
+                    my ($version) = @_;
+                    $self->_add_error(
+                        'More than one plan found in TAP output');
+                },
+            },
+        },
+        PLANNED_AFTER_TEST => {
+            test => { goto => 'PLANNED_AFTER_TEST' },
+            plan => { act  => sub { }, continue => 'PLANNED' },
+            yaml => { goto => 'PLANNED' },
+        },
+        GOT_PLAN => {
+            test => {
+                act => sub {
+                    my ($plan) = @_;
+                    my $line = $self->plan;
+                    $self->_add_error(
+                            "Plan ($line) must be at the beginning "
+                          . "or end of the TAP output" );
+                    $self->is_good_plan(0);
+                },
+                continue => 'PLANNED'
+            },
+            plan => { continue => 'PLANNED' },
+        },
+        UNPLANNED => {
+            test => { goto => 'UNPLANNED_AFTER_TEST' },
+            plan => { goto => 'GOT_PLAN' },
+        },
+        UNPLANNED_AFTER_TEST => {
+            test => { act  => sub { }, continue => 'UNPLANNED' },
+            plan => { act  => sub { }, continue => 'UNPLANNED' },
+            yaml => { goto => 'UNPLANNED' },
+        },
+    );
+
+    # Apply globals and defaults to state table
+    for my $name ( keys %states ) {
+
+        # Merge with globals
+        my $st = { %state_globals, %{ $states{$name} } };
+
+        # Add defaults
+        for my $next ( sort keys %{$st} ) {
+            if ( my $default = $state_defaults{$next} ) {
+                for my $def ( sort keys %{$default} ) {
+                    $st->{$next}->{$def} ||= $default->{$def};
+                }
+            }
+        }
+
+        # Stuff back in table
+        $states{$name} = $st;
+    }
+
+    return \%states;
+}
+
+
+sub get_select_handles { shift->_iterator->get_select_handles }
+
+sub _grammar {
+    my $self = shift;
+    return $self->{_grammar} = shift if @_;
+
+    return $self->{_grammar} ||= $self->make_grammar(
+        {   iterator => $self->_iterator,
+            parser   => $self,
+            version  => $self->version
+        }
+    );
+}
+
+sub _iter {
+    my $self        = shift;
+    my $iterator    = $self->_iterator;
+    my $grammar     = $self->_grammar;
+    my $spool       = $self->_spool;
+    my $state       = 'INIT';
+    my $state_table = $self->_make_state_table;
+
+    $self->start_time( $self->get_time );
+    $self->start_times( $self->get_times );
+
+    # Make next_state closure
+    my $next_state = sub {
+        my $token = shift;
+        my $type  = $token->type;
+        TRANS: {
+            my $state_spec = $state_table->{$state}
+              or die "Illegal state: $state";
+
+            if ( my $next = $state_spec->{$type} ) {
+                if ( my $act = $next->{act} ) {
+                    $act->($token);
+                }
+                if ( my $cont = $next->{continue} ) {
+                    $state = $cont;
+                    redo TRANS;
+                }
+                elsif ( my $goto = $next->{goto} ) {
+                    $state = $goto;
+                }
+            }
+            else {
+                confess("Unhandled token type: $type\n");
+            }
+        }
+        return $token;
+    };
+
+    # Handle end of stream - which means either pop a block or finish
+    my $end_handler = sub {
+        $self->exit( $iterator->exit );
+        $self->wait( $iterator->wait );
+        $self->_finish;
+        return;
+    };
+
+    # Finally make the closure that we return. For performance reasons
+    # there are two versions of the returned function: one that handles
+    # callbacks and one that does not.
+    if ( $self->_has_callbacks ) {
+        return sub {
+            my $result = eval { $grammar->tokenize };
+            $self->_add_error($@) if $@;
+
+            if ( defined $result ) {
+                $result = $next_state->($result);
+
+                if ( my $code = $self->_callback_for( $result->type ) ) {
+                    $_->($result) for @{$code};
+                }
+                else {
+                    $self->_make_callback( 'ELSE', $result );
+                }
+
+                $self->_make_callback( 'ALL', $result );
+
+                # Echo TAP to spool file
+                print {$spool} $result->raw, "\n" if $spool;
+            }
+            else {
+                $result = $end_handler->();
+                $self->_make_callback( 'EOF', $self )
+                  unless defined $result;
+            }
+
+            return $result;
+        };
+    }    # _has_callbacks
+    else {
+        return sub {
+            my $result = eval { $grammar->tokenize };
+            $self->_add_error($@) if $@;
+
+            if ( defined $result ) {
+                $result = $next_state->($result);
+
+                # Echo TAP to spool file
+                print {$spool} $result->raw, "\n" if $spool;
+            }
+            else {
+                $result = $end_handler->();
+            }
+
+            return $result;
+        };
+    }    # no callbacks
+}
+
+sub _finish {
+    my $self = shift;
+
+    $self->end_time( $self->get_time );
+    $self->end_times( $self->get_times );
+
+    # Avoid leaks
+    $self->_iterator(undef);
+    $self->_grammar(undef);
+
+    # If we just delete the iter we won't get a fault if it's recreated.
+    # Instead we set it to a sub that returns an infinite
+    # stream of undef. This segfaults on 5.5.4, presumably because
+    # we're still executing the closure that gets replaced and it hasn't
+    # been protected with a refcount.
+    $self->{_iter} = sub {return}
+      if $] >= 5.006;
+
+    # sanity checks
+    if ( !$self->plan ) {
+        $self->_add_error('No plan found in TAP output');
+    }
+    else {
+        $self->is_good_plan(1) unless defined $self->is_good_plan;
+    }
+    if ( $self->tests_run != ( $self->tests_planned || 0 ) ) {
+        $self->is_good_plan(0);
+        if ( defined( my $planned = $self->tests_planned ) ) {
+            my $ran = $self->tests_run;
+            $self->_add_error(
+                "Bad plan.  You planned $planned tests but ran $ran.");
+        }
+    }
+    if ( $self->tests_run != ( $self->passed + $self->failed ) ) {
+
+        # this should never happen
+        my $actual = $self->tests_run;
+        my $passed = $self->passed;
+        my $failed = $self->failed;
+        $self->_croak( "Panic: planned test count ($actual) did not equal "
+              . "sum of passed ($passed) and failed ($failed) tests!" );
+    }
+
+    $self->is_good_plan(0) unless defined $self->is_good_plan;
+
+    unless ( $self->parse_errors ) {
+        # Optimise storage where possible
+        if ( $self->tests_run == @{$self->{passed}} ) {
+            $self->{passed} = $self->tests_run;
+        }
+        if ( $self->tests_run == @{$self->{actual_passed}} ) {
+            $self->{actual_passed} = $self->tests_run;
+        }
+    }
+
+    return $self;
+}
+
+
+sub delete_spool {
+    my $self = shift;
+
+    return delete $self->{_spool};
+}
+
+##############################################################################
+
+
+1;
+package TAP::Base;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+use constant GOT_TIME_HIRES => do {
+    eval 'use Time::HiRes qw(time);';
+    $@ ? 0 : 1;
+};
+
+
+sub _initialize {
+    my ( $self, $arg_for, $ok_callback ) = @_;
+
+    my %ok_map = map { $_ => 1 } @$ok_callback;
+
+    $self->{ok_callbacks} = \%ok_map;
+
+    if ( my $cb = delete $arg_for->{callbacks} ) {
+        while ( my ( $event, $callback ) = each %$cb ) {
+            $self->callback( $event, $callback );
+        }
+    }
+
+    return $self;
+}
+
+
+sub callback {
+    my ( $self, $event, $callback ) = @_;
+
+    my %ok_map = %{ $self->{ok_callbacks} };
+
+    $self->_croak('No callbacks may be installed')
+      unless %ok_map;
+
+    $self->_croak( "Callback $event is not supported. Valid callbacks are "
+          . join( ', ', sort keys %ok_map ) )
+      unless exists $ok_map{$event};
+
+    push @{ $self->{code_for}{$event} }, $callback;
+
+    return;
+}
+
+sub _has_callbacks {
+    my $self = shift;
+    return keys %{ $self->{code_for} } != 0;
+}
+
+sub _callback_for {
+    my ( $self, $event ) = @_;
+    return $self->{code_for}{$event};
+}
+
+sub _make_callback {
+    my $self  = shift;
+    my $event = shift;
+
+    my $cb = $self->_callback_for($event);
+    return unless defined $cb;
+    return map { $_->(@_) } @$cb;
+}
+
+
+sub get_time { return time() }
+
+
+sub time_is_hires { return GOT_TIME_HIRES }
+
+
+sub get_times { return [ times() ] }
+
+1;
+package TAP::Harness;
+
+use strict;
+use warnings;
+use Carp;
+
+use File::Spec;
+use File::Path;
+use IO::Handle;
+
+use base 'TAP::Base';
+
+
+our $VERSION = '3.42';
+
+$ENV{HARNESS_ACTIVE}  = 1;
+$ENV{HARNESS_VERSION} = $VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{HARNESS_ACTIVE};
+    delete $ENV{HARNESS_VERSION};
+}
+
+
+my %VALIDATION_FOR;
+my @FORMATTER_ARGS;
+
+sub _error {
+    my $self = shift;
+    return $self->{error} unless @_;
+    $self->{error} = shift;
+}
+
+BEGIN {
+
+    @FORMATTER_ARGS = qw(
+      directives verbosity timer failures comments errors stdout color
+      show_count normalize
+    );
+
+    %VALIDATION_FOR = (
+        lib => sub {
+            my ( $self, $libs ) = @_;
+            $libs = [$libs] unless 'ARRAY' eq ref $libs;
+
+            return [ map {"-I$_"} @$libs ];
+        },
+        switches          => sub { shift; shift },
+        exec              => sub { shift; shift },
+        merge             => sub { shift; shift },
+        aggregator_class  => sub { shift; shift },
+        formatter_class   => sub { shift; shift },
+        multiplexer_class => sub { shift; shift },
+        parser_class      => sub { shift; shift },
+        scheduler_class   => sub { shift; shift },
+        formatter         => sub { shift; shift },
+        jobs              => sub { shift; shift },
+        test_args         => sub { shift; shift },
+        ignore_exit       => sub { shift; shift },
+        rules             => sub { shift; shift },
+        rulesfile         => sub { shift; shift },
+        sources           => sub { shift; shift },
+        version           => sub { shift; shift },
+        trap              => sub { shift; shift },
+    );
+
+    for my $method ( sort keys %VALIDATION_FOR ) {
+        no strict 'refs';
+        if ( $method eq 'lib' || $method eq 'switches' ) {
+            *{$method} = sub {
+                my $self = shift;
+                unless (@_) {
+                    $self->{$method} ||= [];
+                    return wantarray
+                      ? @{ $self->{$method} }
+                      : $self->{$method};
+                }
+                $self->_croak("Too many arguments to method '$method'")
+                  if @_ > 1;
+                my $args = shift;
+                $args = [$args] unless ref $args;
+                $self->{$method} = $args;
+                return $self;
+            };
+        }
+        else {
+            *{$method} = sub {
+                my $self = shift;
+                return $self->{$method} unless @_;
+                $self->{$method} = shift;
+            };
+        }
+    }
+
+    for my $method (@FORMATTER_ARGS) {
+        no strict 'refs';
+        *{$method} = sub {
+            my $self = shift;
+            return $self->formatter->$method(@_);
+        };
+    }
+}
+
+##############################################################################
+
+
+# new supplied by TAP::Base
+
+{
+    my @legal_callback = qw(
+      parser_args
+      made_parser
+      before_runtests
+      after_runtests
+      after_test
+    );
+
+    my %default_class = (
+        aggregator_class  => 'TAP::Parser::Aggregator',
+        formatter_class   => 'TAP::Formatter::Console',
+        multiplexer_class => 'TAP::Parser::Multiplexer',
+        parser_class      => 'TAP::Parser',
+        scheduler_class   => 'TAP::Parser::Scheduler',
+    );
+
+    sub _initialize {
+        my ( $self, $arg_for ) = @_;
+        $arg_for ||= {};
+
+        $self->SUPER::_initialize( $arg_for, \@legal_callback );
+        my %arg_for = %$arg_for;    # force a shallow copy
+
+        for my $name ( sort keys %VALIDATION_FOR ) {
+            my $property = delete $arg_for{$name};
+            if ( defined $property ) {
+                my $validate = $VALIDATION_FOR{$name};
+
+                my $value = $self->$validate($property);
+                if ( $self->_error ) {
+                    $self->_croak;
+                }
+                $self->$name($value);
+            }
+        }
+
+        $self->jobs(1) unless defined $self->jobs;
+
+        if ( ! defined $self->rules ) {
+            $self->_maybe_load_rulesfile;
+        }
+
+        local $default_class{formatter_class} = 'TAP::Formatter::File'
+          unless -t ( $arg_for{stdout} || \*STDOUT ) && !$ENV{HARNESS_NOTTY};
+
+        while ( my ( $attr, $class ) = each %default_class ) {
+            $self->$attr( $self->$attr() || $class );
+        }
+
+        unless ( $self->formatter ) {
+
+            # This is a little bodge to preserve legacy behaviour. It's
+            # pretty horrible that we know which args are destined for
+            # the formatter.
+            my %formatter_args = ( jobs => $self->jobs );
+            for my $name (@FORMATTER_ARGS) {
+                if ( defined( my $property = delete $arg_for{$name} ) ) {
+                    $formatter_args{$name} = $property;
+                }
+            }
+
+            $self->formatter(
+                $self->_construct( $self->formatter_class, \%formatter_args )
+            );
+        }
+
+        if ( my @props = sort keys %arg_for ) {
+            $self->_croak("Unknown arguments to TAP::Harness::new (@props)");
+        }
+
+        return $self;
+    }
+
+    sub _maybe_load_rulesfile {
+        my ($self) = @_;
+
+        my ($rulesfile) =   defined $self->rulesfile ? $self->rulesfile :
+                            defined($ENV{HARNESS_RULESFILE}) ? $ENV{HARNESS_RULESFILE} :
+                            grep { -r } qw(./testrules.yml t/testrules.yml);
+
+        if ( defined $rulesfile && -r $rulesfile ) {
+            if ( ! eval { require CPAN::Meta::YAML; 1} ) {
+               warn "CPAN::Meta::YAML required to process $rulesfile" ;
+               return;
+            }
+            my $layer = $] lt "5.008" ? "" : ":encoding(UTF-8)";
+            open my $fh, "<$layer", $rulesfile
+                or die "Couldn't open $rulesfile: $!";
+            my $yaml_text = do { local $/; <$fh> };
+            my $yaml = CPAN::Meta::YAML->read_string($yaml_text)
+                or die CPAN::Meta::YAML->errstr;
+            $self->rules( $yaml->[0] );
+        }
+        return;
+    }
+}
+
+##############################################################################
+
+
+sub runtests {
+    my ( $self, @tests ) = @_;
+
+    my $aggregate = $self->_construct( $self->aggregator_class );
+
+    $self->_make_callback( 'before_runtests', $aggregate );
+    $aggregate->start;
+    my $finish = sub {
+        my $interrupted = shift;
+        $aggregate->stop;
+        $self->summary( $aggregate, $interrupted );
+        $self->_make_callback( 'after_runtests', $aggregate );
+    };
+    my $run = sub {
+        $self->aggregate_tests( $aggregate, @tests );
+        $finish->();
+    };
+
+    if ( $self->trap ) {
+        local $SIG{INT} = sub {
+            print "\n";
+            $finish->(1);
+            exit;
+        };
+        $run->();
+    }
+    else {
+        $run->();
+    }
+
+    return $aggregate;
+}
+
+
+sub summary {
+    my ( $self, @args ) = @_;
+    $self->formatter->summary(@args);
+}
+
+sub _after_test {
+    my ( $self, $aggregate, $job, $parser ) = @_;
+
+    $self->_make_callback( 'after_test', $job->as_array_ref, $parser );
+    $aggregate->add( $job->description, $parser );
+}
+
+sub _bailout {
+    my ( $self, $result ) = @_;
+    my $explanation = $result->explanation;
+    die "FAILED--Further testing stopped"
+      . ( $explanation ? ": $explanation\n" : ".\n" );
+}
+
+sub _aggregate_parallel {
+    my ( $self, $aggregate, $scheduler ) = @_;
+
+    my $jobs = $self->jobs;
+    my $mux  = $self->_construct( $self->multiplexer_class );
+
+    RESULT: {
+
+        # Keep multiplexer topped up
+        FILL:
+        while ( $mux->parsers < $jobs ) {
+            my $job = $scheduler->get_job;
+
+            # If we hit a spinner stop filling and start running.
+            last FILL if !defined $job || $job->is_spinner;
+
+            my ( $parser, $session ) = $self->make_parser($job);
+            $mux->add( $parser, [ $session, $job ] );
+        }
+
+        if ( my ( $parser, $stash, $result ) = $mux->next ) {
+            my ( $session, $job ) = @$stash;
+            if ( defined $result ) {
+                $session->result($result);
+                $self->_bailout($result) if $result->is_bailout;
+            }
+            else {
+
+                # End of parser. Automatically removed from the mux.
+                $self->finish_parser( $parser, $session );
+                $self->_after_test( $aggregate, $job, $parser );
+                $job->finish;
+            }
+            redo RESULT;
+        }
+    }
+
+    return;
+}
+
+sub _aggregate_single {
+    my ( $self, $aggregate, $scheduler ) = @_;
+
+    JOB:
+    while ( my $job = $scheduler->get_job ) {
+        next JOB if $job->is_spinner;
+
+        my ( $parser, $session ) = $self->make_parser($job);
+
+        while ( defined( my $result = $parser->next ) ) {
+            $session->result($result);
+            if ( $result->is_bailout ) {
+
+                # Keep reading until input is exhausted in the hope
+                # of allowing any pending diagnostics to show up.
+                1 while $parser->next;
+                $self->_bailout($result);
+            }
+        }
+
+        $self->finish_parser( $parser, $session );
+        $self->_after_test( $aggregate, $job, $parser );
+        $job->finish;
+    }
+
+    return;
+}
+
+
+sub aggregate_tests {
+    my ( $self, $aggregate, @tests ) = @_;
+
+    my $jobs      = $self->jobs;
+    my $scheduler = $self->make_scheduler(@tests);
+
+    # #12458
+    local $ENV{HARNESS_IS_VERBOSE} = 1
+      if $self->formatter->verbosity > 0;
+
+    # Formatter gets only names.
+    $self->formatter->prepare( map { $_->description } $scheduler->get_all );
+
+    if ( $self->jobs > 1 ) {
+        $self->_aggregate_parallel( $aggregate, $scheduler );
+    }
+    else {
+        $self->_aggregate_single( $aggregate, $scheduler );
+    }
+
+    return;
+}
+
+sub _add_descriptions {
+    my $self = shift;
+
+    # Turn unwrapped scalars into anonymous arrays and copy the name as
+    # the description for tests that have only a name.
+    return map { @$_ == 1 ? [ $_->[0], $_->[0] ] : $_ }
+      map { 'ARRAY' eq ref $_ ? $_ : [$_] } @_;
+}
+
+
+sub make_scheduler {
+    my ( $self, @tests ) = @_;
+    return $self->_construct(
+        $self->scheduler_class,
+        tests => [ $self->_add_descriptions(@tests) ],
+        rules => $self->rules
+    );
+}
+
+
+##############################################################################
+
+sub _get_parser_args {
+    my ( $self, $job ) = @_;
+    my $test_prog = $job->filename;
+    my %args      = ();
+
+    $args{sources} = $self->sources if $self->sources;
+
+    my @switches;
+    @switches = $self->lib if $self->lib;
+    push @switches => $self->switches if $self->switches;
+    $args{switches}    = \@switches;
+    $args{spool}       = $self->_open_spool($test_prog);
+    $args{merge}       = $self->merge;
+    $args{ignore_exit} = $self->ignore_exit;
+    $args{version}     = $self->version if $self->version;
+
+    if ( my $exec = $self->exec ) {
+        $args{exec}
+          = ref $exec eq 'CODE'
+          ? $exec->( $self, $test_prog )
+          : [ @$exec, $test_prog ];
+        if ( not defined $args{exec} ) {
+            $args{source} = $test_prog;
+        }
+        elsif ( ( ref( $args{exec} ) || "" ) ne "ARRAY" ) {
+            $args{source} = delete $args{exec};
+        }
+    }
+    else {
+        $args{source} = $test_prog;
+    }
+
+    if ( defined( my $test_args = $self->test_args ) ) {
+
+        if ( ref($test_args) eq 'HASH' ) {
+
+            # different args for each test
+            if ( exists( $test_args->{ $job->description } ) ) {
+                $test_args = $test_args->{ $job->description };
+            }
+            else {
+                $self->_croak( "TAP::Harness Can't find test_args for "
+                      . $job->description );
+            }
+        }
+
+        $args{test_args} = $test_args;
+    }
+
+    return \%args;
+}
+
+
+sub make_parser {
+    my ( $self, $job ) = @_;
+
+    my $args = $self->_get_parser_args($job);
+    $self->_make_callback( 'parser_args', $args, $job->as_array_ref );
+    my $parser = $self->_construct( $self->parser_class, $args );
+
+    $self->_make_callback( 'made_parser', $parser, $job->as_array_ref );
+    my $session = $self->formatter->open_test( $job->description, $parser );
+
+    return ( $parser, $session );
+}
+
+
+sub finish_parser {
+    my ( $self, $parser, $session ) = @_;
+
+    $session->close_test;
+    $self->_close_spool($parser);
+
+    return $parser;
+}
+
+sub _open_spool {
+    my $self = shift;
+    my $test = shift;
+
+    if ( my $spool_dir = $ENV{PERL_TEST_HARNESS_DUMP_TAP} ) {
+
+        my $spool = File::Spec->catfile( $spool_dir, $test );
+
+        # Make the directory
+        my ( $vol, $dir, undef ) = File::Spec->splitpath($spool);
+        my $path = File::Spec->catpath( $vol, $dir, '' );
+        eval { mkpath($path) };
+        $self->_croak($@) if $@;
+
+        my $spool_handle = IO::Handle->new;
+        open( $spool_handle, ">$spool" )
+          or $self->_croak(" Can't write $spool ( $! ) ");
+
+        return $spool_handle;
+    }
+
+    return;
+}
+
+sub _close_spool {
+    my $self = shift;
+    my ($parser) = @_;
+
+    if ( my $spool_handle = $parser->delete_spool ) {
+        close($spool_handle)
+          or $self->_croak(" Error closing TAP spool file( $! ) \n ");
+    }
+
+    return;
+}
+
+sub _croak {
+    my ( $self, $message ) = @_;
+    unless ($message) {
+        $message = $self->_error;
+    }
+    $self->SUPER::_croak($message);
+
+    return;
+}
+
+1;
+
+__END__
+
+##############################################################################
+
+
+
+# vim:ts=4:sw=4:et:sta
+package TAP::Object;
+
+use strict;
+use warnings;
+
+
+our $VERSION = '3.42';
+
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+    return $self->_initialize(@_);
+}
+
+
+sub _initialize {
+    return $_[0];
+}
+
+
+sub _croak {
+    my $proto = shift;
+    require Carp;
+    Carp::croak(@_);
+    return;
+}
+
+
+sub _confess {
+    my $proto = shift;
+    require Carp;
+    Carp::confess(@_);
+    return;
+}
+
+
+sub _construct {
+    my ( $self, $class, @args ) = @_;
+
+    $self->_croak("Bad module name $class")
+      unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;
+
+    unless ( $class->can('new') ) {
+        local $@;
+        eval "require $class";
+        $self->_croak("Can't load $class: $@") if $@;
+    }
+
+    return $class->new(@args);
+}
+
+
+sub mk_methods {
+    my ( $class, @methods ) = @_;
+    for my $method_name (@methods) {
+        my $method = "${class}::$method_name";
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            $self->{$method_name} = shift if @_;
+            return $self->{$method_name};
+        };
+    }
+}
+
+1;
+
+package TAP::Formatter::Session;
+
+use strict;
+use warnings;
+
+use base 'TAP::Base';
+
+my @ACCESSOR;
+
+BEGIN {
+
+    @ACCESSOR = qw( name formatter parser show_count );
+
+    for my $method (@ACCESSOR) {
+        no strict 'refs';
+        *$method = sub { shift->{$method} };
+    }
+}
+
+
+our $VERSION = '3.42';
+
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+    $arg_for ||= {};
+
+    $self->SUPER::_initialize($arg_for);
+    my %arg_for = %$arg_for;    # force a shallow copy
+
+    for my $name (@ACCESSOR) {
+        $self->{$name} = delete $arg_for{$name};
+    }
+
+    if ( !defined $self->show_count ) {
+        $self->{show_count} = 1;    # defaults to true
+    }
+    if ( $self->show_count ) {      # but may be a damned lie!
+        $self->{show_count} = $self->_should_show_count;
+    }
+
+    if ( my @props = sort keys %arg_for ) {
+        $self->_croak(
+            "Unknown arguments to " . __PACKAGE__ . "::new (@props)" );
+    }
+
+    return $self;
+}
+
+
+sub header { }
+
+sub result { }
+
+sub close_test { }
+
+sub clear_for_close { }
+
+sub _should_show_count {
+    my $self = shift;
+    return
+         !$self->formatter->verbose
+      && -t $self->formatter->stdout
+      && !$ENV{HARNESS_NOTTY};
+}
+
+sub _format_for_output {
+    my ( $self, $result ) = @_;
+    return $self->formatter->normalize ? $result->as_string : $result->raw;
+}
+
+sub _output_test_failure {
+    my ( $self, $parser ) = @_;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+
+    my $tests_run     = $parser->tests_run;
+    my $tests_planned = $parser->tests_planned;
+
+    my $total
+      = defined $tests_planned
+      ? $tests_planned
+      : $tests_run;
+
+    my $passed = $parser->passed;
+
+    # The total number of fails includes any tests that were planned but
+    # didn't run
+    my $failed = $parser->failed + $total - $tests_run;
+    my $exit   = $parser->exit;
+
+    if ( my $exit = $parser->exit ) {
+        my $wstat = $parser->wait;
+        my $status = sprintf( "%d (wstat %d, 0x%x)", $exit, $wstat, $wstat );
+        $formatter->_failure_output("Dubious, test returned $status\n");
+    }
+
+    if ( $failed == 0 ) {
+        $formatter->_failure_output(
+            $total
+            ? "All $total subtests passed "
+            : 'No subtests run '
+        );
+    }
+    else {
+        $formatter->_failure_output("Failed $failed/$total subtests ");
+        if ( !$total ) {
+            $formatter->_failure_output("\nNo tests run!");
+        }
+    }
+
+    if ( my $skipped = $parser->skipped ) {
+        $passed -= $skipped;
+        my $test = 'subtest' . ( $skipped != 1 ? 's' : '' );
+        $formatter->_output(
+            "\n\t(less $skipped skipped $test: $passed okay)");
+    }
+
+    if ( my $failed = $parser->todo_passed ) {
+        my $test = $failed > 1 ? 'tests' : 'test';
+        $formatter->_output(
+            "\n\t($failed TODO $test unexpectedly succeeded)");
+    }
+
+    $formatter->_output("\n");
+}
+
+sub _make_ok_line {
+    my ( $self, $suffix ) = @_;
+    return "ok$suffix\n";
+}
+
+sub time_report {
+    my ( $self, $formatter, $parser ) = @_;
+
+    my @time_report;
+    if ( $formatter->timer ) {
+        my $start_time = $parser->start_time;
+        my $end_time   = $parser->end_time;
+        if ( defined $start_time and defined $end_time ) {
+            my $elapsed = $end_time - $start_time;
+            push @time_report,
+              $self->time_is_hires
+                ? sprintf( ' %8d ms', $elapsed * 1000 )
+                : sprintf( ' %8s s', $elapsed || '<1' );
+        }
+        my $start_times = $parser->start_times();
+        my $end_times   = $parser->end_times();
+        my $usr  = $end_times->[0] - $start_times->[0];
+        my $sys  = $end_times->[1] - $start_times->[1];
+        my $cusr = $end_times->[2] - $start_times->[2];
+        my $csys = $end_times->[3] - $start_times->[3];
+        push @time_report,
+          sprintf('(%5.2f usr %5.2f sys + %5.2f cusr %5.2f csys = %5.2f CPU)',
+                  $usr, $sys, $cusr, $csys,
+                  $usr + $sys + $cusr + $csys);
+    }
+
+    return "@time_report";
+}
+
+1;
+package TAP::Formatter::Console;
+
+use strict;
+use warnings;
+use base 'TAP::Formatter::Base';
+use POSIX qw(strftime);
+
+
+our $VERSION = '3.42';
+
+
+sub open_test {
+    my ( $self, $test, $parser ) = @_;
+
+    my $class
+      = $self->jobs > 1
+      ? 'TAP::Formatter::Console::ParallelSession'
+      : 'TAP::Formatter::Console::Session';
+
+    eval "require $class";
+    $self->_croak($@) if $@;
+
+    my $session = $class->new(
+        {   name       => $test,
+            formatter  => $self,
+            parser     => $parser,
+            show_count => $self->show_count,
+        }
+    );
+
+    $session->header;
+
+    return $session;
+}
+
+# Use _colorizer delegate to set output color. NOP if we have no delegate
+sub _set_colors {
+    my ( $self, @colors ) = @_;
+    if ( my $colorizer = $self->_colorizer ) {
+        my $output_func = $self->{_output_func} ||= sub {
+            $self->_output(@_);
+        };
+        $colorizer->set_color( $output_func, $_ ) for @colors;
+    }
+}
+
+sub _failure_color {
+    my ($self) = @_;
+
+    return $ENV{'HARNESS_SUMMARY_COLOR_FAIL'} || 'red';
+}
+
+sub _success_color {
+    my ($self) = @_;
+
+    return $ENV{'HARNESS_SUMMARY_COLOR_SUCCESS'} || 'green';
+}
+
+sub _output_success {
+    my ( $self, $msg ) = @_;
+    $self->_set_colors( $self->_success_color() );
+    $self->_output($msg);
+    $self->_set_colors('reset');
+}
+
+sub _failure_output {
+    my $self = shift;
+    $self->_set_colors( $self->_failure_color() );
+    my $out = join '', @_;
+    my $has_newline = chomp $out;
+    $self->_output($out);
+    $self->_set_colors('reset');
+    $self->_output($/)
+      if $has_newline;
+}
+
+1;
+package TAP::Formatter::File;
+
+use strict;
+use warnings;
+use TAP::Formatter::File::Session;
+use POSIX qw(strftime);
+
+use base 'TAP::Formatter::Base';
+
+
+our $VERSION = '3.42';
+
+
+sub open_test {
+    my ( $self, $test, $parser ) = @_;
+
+    my $session = TAP::Formatter::File::Session->new(
+        {   name      => $test,
+            formatter => $self,
+            parser    => $parser,
+        }
+    );
+
+    $session->header;
+
+    return $session;
+}
+
+sub _should_show_count {
+    return 0;
+}
+
+1;
+package TAP::Formatter::Color;
+
+use strict;
+use warnings;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+
+use base 'TAP::Object';
+
+my $NO_COLOR;
+
+BEGIN {
+    $NO_COLOR = 0;
+
+    eval 'require Term::ANSIColor';
+    if ($@) {
+        $NO_COLOR = $@;
+    };
+    if (IS_WIN32) {
+        eval 'use Win32::Console::ANSI';
+        if ($@) {
+            $NO_COLOR = $@;
+        }
+    };
+
+    if ($NO_COLOR) {
+        *set_color = sub { };
+    } else {
+        *set_color = sub {
+            my ( $self, $output, $color ) = @_;
+            $output->( Term::ANSIColor::color($color) );
+        };
+    }
+}
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+
+    if ($NO_COLOR) {
+
+        # shorten that message a bit
+        ( my $error = $NO_COLOR ) =~ s/ in \@INC .*//s;
+        warn "Note: Cannot run tests in color: $error\n";
+        return;    # abort object construction
+    }
+
+    return $self;
+}
+
+##############################################################################
+
+
+sub can_color {
+    return !$NO_COLOR;
+}
+
+
+1;
+package TAP::Formatter::Base;
+
+use strict;
+use warnings;
+use base 'TAP::Base';
+use POSIX qw(strftime);
+
+my $MAX_ERRORS = 5;
+my %VALIDATION_FOR;
+
+BEGIN {
+    %VALIDATION_FOR = (
+        directives => sub { shift; shift },
+        verbosity  => sub { shift; shift },
+        normalize  => sub { shift; shift },
+        timer      => sub { shift; shift },
+        failures   => sub { shift; shift },
+        comments   => sub { shift; shift },
+        errors     => sub { shift; shift },
+        color      => sub { shift; shift },
+        jobs       => sub { shift; shift },
+        show_count => sub { shift; shift },
+        stdout     => sub {
+            my ( $self, $ref ) = @_;
+
+            $self->_croak("option 'stdout' needs a filehandle")
+              unless $self->_is_filehandle($ref);
+
+            return $ref;
+        },
+    );
+
+    sub _is_filehandle {
+        my ( $self, $ref ) = @_;
+
+        return 0 if !defined $ref;
+
+        return 1 if ref $ref eq 'GLOB';    # lexical filehandle
+        return 1 if !ref $ref && ref \$ref eq 'GLOB'; # bare glob like *STDOUT
+
+        return 1 if eval { $ref->can('print') };
+
+        return 0;
+    }
+
+    my @getter_setters = qw(
+      _longest
+      _printed_summary_header
+      _colorizer
+    );
+
+    __PACKAGE__->mk_methods( @getter_setters, keys %VALIDATION_FOR );
+}
+
+
+our $VERSION = '3.42';
+
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+    $arg_for ||= {};
+
+    $self->SUPER::_initialize($arg_for);
+    my %arg_for = %$arg_for;    # force a shallow copy
+
+    $self->verbosity(0);
+
+    for my $name ( keys %VALIDATION_FOR ) {
+        my $property = delete $arg_for{$name};
+        if ( defined $property ) {
+            my $validate = $VALIDATION_FOR{$name};
+            $self->$name( $self->$validate($property) );
+        }
+    }
+
+    if ( my @props = keys %arg_for ) {
+        $self->_croak(
+            "Unknown arguments to " . __PACKAGE__ . "::new (@props)" );
+    }
+
+    $self->stdout( \*STDOUT ) unless $self->stdout;
+
+    if ( $self->color ) {
+        require TAP::Formatter::Color;
+        $self->_colorizer( TAP::Formatter::Color->new );
+    }
+
+    return $self;
+}
+
+sub verbose      { shift->verbosity >= 1 }
+sub quiet        { shift->verbosity <= -1 }
+sub really_quiet { shift->verbosity <= -2 }
+sub silent       { shift->verbosity <= -3 }
+
+
+# new supplied by TAP::Base
+
+
+sub prepare {
+    my ( $self, @tests ) = @_;
+
+    my $longest = 0;
+
+    for my $test (@tests) {
+        $longest = length $test if length $test > $longest;
+    }
+
+    $self->_longest($longest);
+}
+
+sub _format_now { strftime "[%H:%M:%S]", localtime }
+
+sub _format_name {
+    my ( $self, $test ) = @_;
+    my $name = $test;
+    my $periods = '.' x ( $self->_longest + 2 - length $test );
+    $periods = " $periods ";
+
+    if ( $self->timer ) {
+        my $stamp = $self->_format_now();
+        return "$stamp $name$periods";
+    }
+    else {
+        return "$name$periods";
+    }
+
+}
+
+
+sub open_test {
+    die "Unimplemented.";
+}
+
+sub _output_success {
+    my ( $self, $msg ) = @_;
+    $self->_output($msg);
+}
+
+
+sub summary {
+    my ( $self, $aggregate, $interrupted ) = @_;
+
+    return if $self->silent;
+
+    my @t     = $aggregate->descriptions;
+    my $tests = \@t;
+
+    my $runtime = $aggregate->elapsed_timestr;
+
+    my $total  = $aggregate->total;
+    my $passed = $aggregate->passed;
+
+    if ( $self->timer ) {
+        $self->_output( $self->_format_now(), "\n" );
+    }
+
+    $self->_failure_output("Test run interrupted!\n")
+      if $interrupted;
+
+    # TODO: Check this condition still works when all subtests pass but
+    # the exit status is nonzero
+
+    if ( $aggregate->all_passed ) {
+        $self->_output_success("All tests successful.\n");
+    }
+
+    # ~TODO option where $aggregate->skipped generates reports
+    if ( $total != $passed or $aggregate->has_problems ) {
+        $self->_output("\nTest Summary Report");
+        $self->_output("\n-------------------\n");
+        for my $test (@$tests) {
+            $self->_printed_summary_header(0);
+            my ($parser) = $aggregate->parsers($test);
+            $self->_output_summary_failure(
+                'failed',
+                [ '  Failed test:  ', '  Failed tests:  ' ],
+                $test, $parser
+            );
+            $self->_output_summary_failure(
+                'todo_passed',
+                "  TODO passed:   ", $test, $parser
+            );
+
+            # ~TODO this cannot be the default
+            #$self->_output_summary_failure( 'skipped', "  Tests skipped: " );
+
+            if ( my $exit = $parser->exit ) {
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output("  Non-zero exit status: $exit\n");
+            }
+            elsif ( my $wait = $parser->wait ) {
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output("  Non-zero wait status: $wait\n");
+            }
+
+            if ( my @errors = $parser->parse_errors ) {
+                my $explain;
+                if ( @errors > $MAX_ERRORS && !$self->errors ) {
+                    $explain
+                      = "Displayed the first $MAX_ERRORS of "
+                      . scalar(@errors)
+                      . " TAP syntax errors.\n"
+                      . "Re-run prove with the -p option to see them all.\n";
+                    splice @errors, $MAX_ERRORS;
+                }
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output(
+                    sprintf "  Parse errors: %s\n",
+                    shift @errors
+                );
+                for my $error (@errors) {
+                    my $spaces = ' ' x 16;
+                    $self->_failure_output("$spaces$error\n");
+                }
+                $self->_failure_output($explain) if $explain;
+            }
+        }
+    }
+    my $files = @$tests;
+    $self->_output("Files=$files, Tests=$total, $runtime\n");
+    my $status = $aggregate->get_status;
+    $self->_output("Result: $status\n");
+}
+
+sub _output_summary_failure {
+    my ( $self, $method, $name, $test, $parser ) = @_;
+
+    # ugly hack.  Must rethink this :(
+    my $output = $method eq 'failed' ? '_failure_output' : '_output';
+
+    if ( my @r = $parser->$method() ) {
+        $self->_summary_test_header( $test, $parser );
+        my ( $singular, $plural )
+          = 'ARRAY' eq ref $name ? @$name : ( $name, $name );
+        $self->$output( @r == 1 ? $singular : $plural );
+        my @results = $self->_balanced_range( 40, @r );
+        $self->$output( sprintf "%s\n" => shift @results );
+        my $spaces = ' ' x 16;
+        while (@results) {
+            $self->$output( sprintf "$spaces%s\n" => shift @results );
+        }
+    }
+}
+
+sub _summary_test_header {
+    my ( $self, $test, $parser ) = @_;
+    return if $self->_printed_summary_header;
+    my $spaces = ' ' x ( $self->_longest - length $test );
+    $spaces = ' ' unless $spaces;
+    my $output = $self->_get_output_method($parser);
+    my $wait   = $parser->wait;
+    defined $wait or $wait = '(none)';
+    $self->$output(
+        sprintf "$test$spaces(Wstat: %s Tests: %d Failed: %d)\n",
+        $wait, $parser->tests_run, scalar $parser->failed
+    );
+    $self->_printed_summary_header(1);
+}
+
+sub _output {
+    my $self = shift;
+
+    print { $self->stdout } @_;
+}
+
+sub _failure_output {
+    my $self = shift;
+
+    $self->_output(@_);
+}
+
+sub _balanced_range {
+    my ( $self, $limit, @range ) = @_;
+    @range = $self->_range(@range);
+    my $line = "";
+    my @lines;
+    my $curr = 0;
+    while (@range) {
+        if ( $curr < $limit ) {
+            my $range = ( shift @range ) . ", ";
+            $line .= $range;
+            $curr += length $range;
+        }
+        elsif (@range) {
+            $line =~ s/, $//;
+            push @lines => $line;
+            $line = '';
+            $curr = 0;
+        }
+    }
+    if ($line) {
+        $line =~ s/, $//;
+        push @lines => $line;
+    }
+    return @lines;
+}
+
+sub _range {
+    my ( $self, @numbers ) = @_;
+
+    # shouldn't be needed, but subclasses might call this
+    @numbers = sort { $a <=> $b } @numbers;
+    my ( $min, @range );
+
+    for my $i ( 0 .. $#numbers ) {
+        my $num  = $numbers[$i];
+        my $next = $numbers[ $i + 1 ];
+        if ( defined $next && $next == $num + 1 ) {
+            if ( !defined $min ) {
+                $min = $num;
+            }
+        }
+        elsif ( defined $min ) {
+            push @range => "$min-$num";
+            undef $min;
+        }
+        else {
+            push @range => $num;
+        }
+    }
+    return @range;
+}
+
+sub _get_output_method {
+    my ( $self, $parser ) = @_;
+    return $parser->has_problems ? '_failure_output' : '_output';
+}
+
+1;
+package TAP::Formatter::Console::Session;
+
+use strict;
+use warnings;
+
+use base 'TAP::Formatter::Session';
+
+my @ACCESSOR;
+
+BEGIN {
+    my @CLOSURE_BINDING = qw( header result clear_for_close close_test );
+
+    for my $method (@CLOSURE_BINDING) {
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            return ( $self->{_closures} ||= $self->_closures )->{$method}
+              ->(@_);
+        };
+    }
+}
+
+
+our $VERSION = '3.42';
+
+
+sub _get_output_result {
+    my $self = shift;
+
+    my @color_map = (
+        {   test => sub { $_->is_test && !$_->is_ok },
+            colors => ['red'],
+        },
+        {   test => sub { $_->is_test && $_->has_skip },
+            colors => [
+                'white',
+                'on_blue'
+            ],
+        },
+        {   test => sub { $_->is_test && $_->has_todo },
+            colors => ['yellow'],
+        },
+    );
+
+    my $formatter = $self->formatter;
+    my $parser    = $self->parser;
+
+    return $formatter->_colorizer
+      ? sub {
+        my $result = shift;
+        for my $col (@color_map) {
+            local $_ = $result;
+            if ( $col->{test}->() ) {
+                $formatter->_set_colors( @{ $col->{colors} } );
+                last;
+            }
+        }
+        $formatter->_output( $self->_format_for_output($result) );
+        $formatter->_set_colors('reset');
+      }
+      : sub {
+        $formatter->_output( $self->_format_for_output(shift) );
+      };
+}
+
+sub _closures {
+    my $self = shift;
+
+    my $parser     = $self->parser;
+    my $formatter  = $self->formatter;
+    my $pretty     = $formatter->_format_name( $self->name );
+    my $show_count = $self->show_count;
+
+    my $really_quiet = $formatter->really_quiet;
+    my $quiet        = $formatter->quiet;
+    my $verbose      = $formatter->verbose;
+    my $directives   = $formatter->directives;
+    my $failures     = $formatter->failures;
+    my $comments     = $formatter->comments;
+
+    my $output_result = $self->_get_output_result;
+
+    my $output          = '_output';
+    my $plan            = '';
+    my $newline_printed = 0;
+
+    my $last_status_printed = 0;
+
+    return {
+        header => sub {
+            $formatter->_output($pretty)
+              unless $really_quiet;
+        },
+
+        result => sub {
+            my $result = shift;
+
+            if ( $result->is_bailout ) {
+                $formatter->_failure_output(
+                        "Bailout called.  Further testing stopped:  "
+                      . $result->explanation
+                      . "\n" );
+            }
+
+            return if $really_quiet;
+
+            my $is_test = $result->is_test;
+
+            # These are used in close_test - but only if $really_quiet
+            # is false - so it's safe to only set them here unless that
+            # relationship changes.
+
+            if ( !$plan ) {
+                my $planned = $parser->tests_planned || '?';
+                $plan = "/$planned ";
+            }
+            $output = $formatter->_get_output_method($parser);
+
+            if ( $show_count and $is_test ) {
+                my $number = $result->number;
+                my $now    = CORE::time;
+
+                # Print status roughly once per second.
+                # We will always get the first number as a side effect of
+                # $last_status_printed starting with the value 0, which $now
+                # will never be. (Unless someone sets their clock to 1970)
+                if ( $last_status_printed != $now ) {
+                    $formatter->$output("\r$pretty$number$plan");
+                    $last_status_printed = $now;
+                }
+            }
+
+            if (!$quiet
+                && (   $verbose
+                    || ( $is_test && $failures && !$result->is_ok )
+                    || ( $comments   && $result->is_comment )
+                    || ( $directives && $result->has_directive ) )
+              )
+            {
+                unless ($newline_printed) {
+                    $formatter->_output("\n");
+                    $newline_printed = 1;
+                }
+                $output_result->($result);
+                $formatter->_output("\n");
+            }
+        },
+
+        clear_for_close => sub {
+            my $spaces
+              = ' ' x length( '.' . $pretty . $plan . $parser->tests_run );
+            $formatter->$output("\r$spaces");
+        },
+
+        close_test => sub {
+            if ( $show_count && !$really_quiet ) {
+                $self->clear_for_close;
+                $formatter->$output("\r$pretty");
+            }
+
+            # Avoid circular references
+            $self->parser(undef);
+            $self->{_closures} = {};
+
+            return if $really_quiet;
+
+            if ( my $skip_all = $parser->skip_all ) {
+                $formatter->_output("skipped: $skip_all\n");
+            }
+            elsif ( $parser->has_problems ) {
+                $self->_output_test_failure($parser);
+            }
+            else {
+                my $time_report = $self->time_report($formatter, $parser);
+                $formatter->_output( $self->_make_ok_line($time_report) );
+            }
+        },
+    };
+}
+
+
+1;
+package TAP::Formatter::Console::ParallelSession;
+
+use strict;
+use warnings;
+use File::Spec;
+use File::Path;
+use Carp;
+
+use base 'TAP::Formatter::Console::Session';
+
+use constant WIDTH => 72;    # Because Eric says
+
+my %shared;
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+
+    $self->SUPER::_initialize($arg_for);
+    my $formatter = $self->formatter;
+
+    # Horrid bodge. This creates our shared context per harness. Maybe
+    # TAP::Harness should give us this?
+    my $context = $shared{$formatter} ||= $self->_create_shared_context;
+    push @{ $context->{active} }, $self;
+
+    return $self;
+}
+
+sub _create_shared_context {
+    my $self = shift;
+    return {
+        active => [],
+        tests  => 0,
+        fails  => 0,
+    };
+}
+
+
+our $VERSION = '3.42';
+
+
+
+sub header {
+}
+
+sub _clear_ruler {
+    my $self = shift;
+    $self->formatter->_output( "\r" . ( ' ' x WIDTH ) . "\r" );
+}
+
+my $now = 0;
+my $start;
+
+my $trailer     = '... )===';
+my $chop_length = WIDTH - length $trailer;
+
+sub _output_ruler {
+    my ( $self, $refresh ) = @_;
+    my $new_now = time;
+    return if $new_now == $now and !$refresh;
+    $now = $new_now;
+    $start ||= $now;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+
+    my $context = $shared{$formatter};
+
+    my $ruler = sprintf '===( %7d;%d  ', $context->{tests}, $now - $start;
+
+    for my $active ( @{ $context->{active} } ) {
+        my $parser  = $active->parser;
+        my $tests   = $parser->tests_run;
+        my $planned = $parser->tests_planned || '?';
+
+        $ruler .= sprintf '%' . length($planned) . "d/$planned  ", $tests;
+    }
+    chop $ruler;    # Remove a trailing space
+    $ruler .= ')===';
+
+    if ( length $ruler > WIDTH ) {
+        $ruler =~ s/(.{$chop_length}).*/$1$trailer/o;
+    }
+    else {
+        $ruler .= '=' x ( WIDTH - length($ruler) );
+    }
+    $formatter->_output("\r$ruler");
+}
+
+
+sub result {
+    my ( $self, $result ) = @_;
+    my $formatter = $self->formatter;
+
+    # my $really_quiet = $formatter->really_quiet;
+    # my $show_count   = $self->_should_show_count;
+
+    if ( $result->is_test ) {
+        my $context = $shared{$formatter};
+        $context->{tests}++;
+
+        my $active = $context->{active};
+        if ( @$active == 1 ) {
+
+            # There is only one test, so use the serial output format.
+            return $self->SUPER::result($result);
+        }
+
+        $self->_output_ruler( $self->parser->tests_run == 1 );
+    }
+    elsif ( $result->is_bailout ) {
+        $formatter->_failure_output(
+                "Bailout called.  Further testing stopped:  "
+              . $result->explanation
+              . "\n" );
+    }
+}
+
+
+sub clear_for_close {
+    my $self      = shift;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+    my $context = $shared{$formatter};
+    if ( @{ $context->{active} } == 1 ) {
+        $self->SUPER::clear_for_close;
+    }
+    else {
+        $self->_clear_ruler;
+    }
+}
+
+
+sub close_test {
+    my $self      = shift;
+    my $name      = $self->name;
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+    my $context   = $shared{$formatter};
+
+    $self->SUPER::close_test;
+
+    my $active = $context->{active};
+
+    my @pos = grep { $active->[$_]->name eq $name } 0 .. $#$active;
+
+    die "Can't find myself" unless @pos;
+    splice @$active, $pos[0], 1;
+
+    if ( @$active > 1 ) {
+        $self->_output_ruler(1);
+    }
+    elsif ( @$active == 1 ) {
+
+        # Print out "test/name.t ...."
+        $active->[0]->SUPER::header;
+    }
+    else {
+
+        # $self->formatter->_output("\n");
+        delete $shared{$formatter};
+    }
+}
+
+1;
+package TAP::Formatter::File::Session;
+
+use strict;
+use warnings;
+use base 'TAP::Formatter::Session';
+
+
+our $VERSION = '3.42';
+
+
+
+sub result {
+    my $self   = shift;
+    my $result = shift;
+
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+
+    if ( $result->is_bailout ) {
+        $formatter->_failure_output(
+                "Bailout called.  Further testing stopped:  "
+              . $result->explanation
+              . "\n" );
+        return;
+    }
+
+    if (!$formatter->quiet
+        && (   $formatter->verbose
+            || ( $result->is_test && $formatter->failures && !$result->is_ok )
+            || ( $formatter->comments   && $result->is_comment )
+            || ( $result->has_directive && $formatter->directives ) )
+      )
+    {
+        $self->{results} .= $self->_format_for_output($result) . "\n";
+    }
+}
+
+
+sub close_test {
+    my $self = shift;
+
+    # Avoid circular references
+    $self->parser(undef);
+
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+    my $pretty    = $formatter->_format_name( $self->name );
+
+    return if $formatter->really_quiet;
+    if ( my $skip_all = $parser->skip_all ) {
+        $formatter->_output( $pretty . "skipped: $skip_all\n" );
+    }
+    elsif ( $parser->has_problems ) {
+        $formatter->_output(
+            $pretty . ( $self->{results} ? "\n" . $self->{results} : "\n" ) );
+        $self->_output_test_failure($parser);
+    }
+    else {
+        my $time_report = $self->time_report($formatter, $parser);
+        $formatter->_output( $pretty
+              . ( $self->{results} ? "\n" . $self->{results} : "" )
+              . $self->_make_ok_line($time_report) );
+    }
+}
+
+1;
+package TAP::Harness::Env;
+
+use strict;
+use warnings;
+
+use constant IS_VMS => ( $^O eq 'VMS' );
+use TAP::Object;
+use Text::ParseWords qw/shellwords/;
+
+our $VERSION = '3.42';
+
+# Get the parts of @INC which are changed from the stock list AND
+# preserve reordering of stock directories.
+sub _filtered_inc_vms {
+    my @inc = grep { !ref } @INC;    #28567
+
+    # VMS has a 255-byte limit on the length of %ENV entries, so
+    # toss the ones that involve perl_root, the install location
+    @inc = grep { !/perl_root/i } @inc;
+
+    my @default_inc = _default_inc();
+
+    my @new_inc;
+    my %seen;
+    for my $dir (@inc) {
+        next if $seen{$dir}++;
+
+        if ( $dir eq ( $default_inc[0] || '' ) ) {
+            shift @default_inc;
+        }
+        else {
+            push @new_inc, $dir;
+        }
+
+        shift @default_inc while @default_inc and $seen{ $default_inc[0] };
+    }
+    return @new_inc;
+}
+
+# Cache this to avoid repeatedly shelling out to Perl.
+my @inc;
+
+sub _default_inc {
+    return @inc if @inc;
+
+    local $ENV{PERL5LIB};
+    local $ENV{PERLLIB};
+
+    my $perl = $ENV{HARNESS_PERL} || $^X;
+
+    # Avoid using -l for the benefit of Perl 6
+    chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` );
+    return @inc;
+}
+
+sub create {
+	my $package = shift;
+    my %input = %{ shift || {} };
+
+    my @libs         = @{ delete $input{libs}     || [] };
+    my @raw_switches = @{ delete $input{switches} || [] };
+    my @opt
+      = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) );
+    my @switches;
+    while ( my $opt = shift @opt ) {
+        if ( $opt =~ /^ -I (.*) $ /x ) {
+            push @libs, length($1) ? $1 : shift @opt;
+        }
+        else {
+            push @switches, $opt;
+        }
+    }
+
+    # Do things the old way on VMS...
+    push @libs, _filtered_inc_vms() if IS_VMS;
+
+    # If $Verbose isn't numeric default to 1. This helps core.
+    my $verbose
+      = $ENV{HARNESS_VERBOSE}
+      ? $ENV{HARNESS_VERBOSE} !~ /\d/
+          ? 1
+          : $ENV{HARNESS_VERBOSE}
+      : 0;
+
+    my %args = (
+        lib         => \@libs,
+        timer       => $ENV{HARNESS_TIMER} || 0,
+        switches    => \@switches,
+        color       => $ENV{HARNESS_COLOR} || 0,
+        verbosity   => $verbose,
+        ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0,
+    );
+
+    my $class = delete $input{harness_class} || $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
+    if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
+        for my $opt ( split /:/, $env_opt ) {
+            if ( $opt =~ /^j(\d*)$/ ) {
+                $args{jobs} = $1 || 9;
+            }
+            elsif ( $opt eq 'c' ) {
+                $args{color} = 1;
+            }
+            elsif ( $opt =~ m/^f(.*)$/ ) {
+                my $fmt = $1;
+                $fmt =~ s/-/::/g;
+                $args{formatter_class} = $fmt;
+            }
+            elsif ( $opt =~ m/^a(.*)$/ ) {
+                my $archive = $1;
+                $class = 'TAP::Harness::Archive';
+                $args{archive} = $archive;
+            }
+            else {
+                die "Unknown HARNESS_OPTIONS item: $opt\n";
+            }
+        }
+    }
+    return TAP::Object->_construct($class, { %args, %input });
+}
+
+1;
+
+package TAP::Parser::IteratorFactory;
+
+use strict;
+use warnings;
+
+use Carp qw( confess );
+use File::Basename qw( fileparse );
+
+use base 'TAP::Object';
+
+use constant handlers => [];
+
+
+our $VERSION = '3.42';
+
+
+sub _initialize {
+    my ( $self, $config ) = @_;
+    $self->config( $config || {} )->load_handlers;
+    return $self;
+}
+
+
+sub register_handler {
+    my ( $class, $dclass ) = @_;
+
+    confess("$dclass must implement can_handle & make_iterator methods!")
+      unless UNIVERSAL::can( $dclass, 'can_handle' )
+          && UNIVERSAL::can( $dclass, 'make_iterator' );
+
+    my $handlers = $class->handlers;
+    push @{$handlers}, $dclass
+      unless grep { $_ eq $dclass } @{$handlers};
+
+    return $class;
+}
+
+##############################################################################
+
+
+sub config {
+    my $self = shift;
+    return $self->{config} unless @_;
+    unless ( 'HASH' eq ref $_[0] ) {
+        $self->_croak('Argument to &config must be a hash reference');
+    }
+    $self->{config} = shift;
+    return $self;
+}
+
+sub _last_handler {
+    my $self = shift;
+    return $self->{last_handler} unless @_;
+    $self->{last_handler} = shift;
+    return $self;
+}
+
+sub _testing {
+    my $self = shift;
+    return $self->{testing} unless @_;
+    $self->{testing} = shift;
+    return $self;
+}
+
+##############################################################################
+
+
+sub load_handlers {
+    my ($self) = @_;
+    for my $handler ( keys %{ $self->config } ) {
+        my $sclass = $self->_load_handler($handler);
+
+        # TODO: store which class we loaded anywhere?
+    }
+    return $self;
+}
+
+sub _load_handler {
+    my ( $self, $handler ) = @_;
+
+    my @errors;
+    for my $dclass ( "TAP::Parser::SourceHandler::$handler", $handler ) {
+        return $dclass
+          if UNIVERSAL::can( $dclass, 'can_handle' )
+              && UNIVERSAL::can( $dclass, 'make_iterator' );
+
+        eval "use $dclass";
+        if ( my $e = $@ ) {
+            push @errors, $e;
+            next;
+        }
+
+        return $dclass
+          if UNIVERSAL::can( $dclass, 'can_handle' )
+              && UNIVERSAL::can( $dclass, 'make_iterator' );
+        push @errors,
+          "handler '$dclass' does not implement can_handle & make_iterator";
+    }
+
+    $self->_croak(
+        "Cannot load handler '$handler': " . join( "\n", @errors ) );
+}
+
+##############################################################################
+
+
+sub make_iterator {
+    my ( $self, $source ) = @_;
+
+    $self->_croak('no raw source defined!') unless defined $source->raw;
+
+    $source->config( $self->config )->assemble_meta;
+
+    # is the raw source already an object?
+    return $source->raw
+      if ( $source->meta->{is_object}
+        && UNIVERSAL::isa( $source->raw, 'TAP::Parser::SourceHandler' ) );
+
+    # figure out what kind of source it is
+    my $sd_class = $self->detect_source($source);
+    $self->_last_handler($sd_class);
+
+    return if $self->_testing;
+
+    # create it
+    my $iterator = $sd_class->make_iterator($source);
+
+    return $iterator;
+}
+
+
+sub detect_source {
+    my ( $self, $source ) = @_;
+
+    confess('no raw source ref defined!') unless defined $source->raw;
+
+    # find a list of handlers that can handle this source:
+    my %confidence_for;
+    for my $handler ( @{ $self->handlers } ) {
+        my $confidence = $handler->can_handle($source);
+        # warn "handler: $handler: $confidence\n";
+        $confidence_for{$handler} = $confidence if $confidence;
+    }
+
+    if ( !%confidence_for ) {
+        # error: can't detect source
+        my $raw_source_short = substr( ${ $source->raw }, 0, 50 );
+        confess("Cannot detect source of '$raw_source_short'!");
+        return;
+    }
+
+    # if multiple handlers can handle it, choose the most confident one
+    my @handlers =
+          sort { $confidence_for{$b} <=> $confidence_for{$a} }
+          keys %confidence_for;
+
+    # Check for a tie.
+    if( @handlers > 1 &&
+        $confidence_for{$handlers[0]} == $confidence_for{$handlers[1]}
+    ) {
+        my $filename = $source->meta->{file}{basename};
+        die("There is a tie between $handlers[0] and $handlers[1].\n".
+            "Both voted $confidence_for{$handlers[0]} on $filename.\n");
+    }
+
+    # this is really useful for debugging handlers:
+    if ( $ENV{TAP_HARNESS_SOURCE_FACTORY_VOTES} ) {
+        warn(
+            "votes: ",
+            join( ', ', map {"$_: $confidence_for{$_}"} @handlers ),
+            "\n"
+        );
+    }
+
+    # return 1st
+    return $handlers[0];
+}
+
+1;
+
+__END__
+
+
+package TAP::Parser::Iterator;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+
+sub next {
+    my $self = shift;
+    my $line = $self->next_raw;
+
+    # vms nit:  When encountering 'not ok', vms often has the 'not' on a line
+    # by itself:
+    #   not
+    #   ok 1 - 'I hate VMS'
+    if ( defined($line) and $line =~ /^\s*not\s*$/ ) {
+        $line .= ( $self->next_raw || '' );
+    }
+
+    return $line;
+}
+
+sub next_raw {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+
+sub handle_unicode { }
+
+
+sub get_select_handles {
+    return;
+}
+
+
+sub wait {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+sub exit {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+1;
+
+
+package TAP::Parser::Multiplexer;
+
+use strict;
+use warnings;
+
+use IO::Select;
+
+use base 'TAP::Object';
+
+use constant IS_WIN32 => $^O =~ /^(MS)?Win32$/;
+use constant IS_VMS => $^O eq 'VMS';
+use constant SELECT_OK => !( IS_VMS || IS_WIN32 );
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+    $self->{select} = IO::Select->new;
+    $self->{avid}   = [];                # Parsers that can't select
+    $self->{count}  = 0;
+    return $self;
+}
+
+##############################################################################
+
+
+sub add {
+    my ( $self, $parser, $stash ) = @_;
+
+    if ( SELECT_OK && ( my @handles = $parser->get_select_handles ) ) {
+        my $sel = $self->{select};
+
+        # We have to turn handles into file numbers here because by
+        # the time we want to remove them from our IO::Select they
+        # will already have been closed by the iterator.
+        my @filenos = map { fileno $_ } @handles;
+        for my $h (@handles) {
+            $sel->add( [ $h, $parser, $stash, @filenos ] );
+        }
+
+        $self->{count}++;
+    }
+    else {
+        push @{ $self->{avid} }, [ $parser, $stash ];
+    }
+}
+
+
+sub parsers {
+    my $self = shift;
+    return $self->{count} + scalar @{ $self->{avid} };
+}
+
+sub _iter {
+    my $self = shift;
+
+    my $sel   = $self->{select};
+    my $avid  = $self->{avid};
+    my @ready = ();
+
+    return sub {
+
+        # Drain all the non-selectable parsers first
+        if (@$avid) {
+            my ( $parser, $stash ) = @{ $avid->[0] };
+            my $result = $parser->next;
+            shift @$avid unless defined $result;
+            return ( $parser, $stash, $result );
+        }
+
+        unless (@ready) {
+            return unless $sel->count;
+            @ready = $sel->can_read;
+        }
+
+        my ( $h, $parser, $stash, @handles ) = @{ shift @ready };
+        my $result = $parser->next;
+
+        unless ( defined $result ) {
+            $sel->remove(@handles);
+            $self->{count}--;
+
+            # Force another can_read - we may now have removed a handle
+            # thought to have been ready.
+            @ready = ();
+        }
+
+        return ( $parser, $stash, $result );
+    };
+}
+
+
+sub next {
+    my $self = shift;
+    return ( $self->{_iter} ||= $self->_iter )->();
+}
+
+
+1;
+package TAP::Parser::ResultFactory;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Result::Bailout ();
+use TAP::Parser::Result::Comment ();
+use TAP::Parser::Result::Plan    ();
+use TAP::Parser::Result::Pragma  ();
+use TAP::Parser::Result::Test    ();
+use TAP::Parser::Result::Unknown ();
+use TAP::Parser::Result::Version ();
+use TAP::Parser::Result::YAML    ();
+
+use base 'TAP::Object';
+
+##############################################################################
+
+
+our $VERSION = '3.42';
+
+
+sub make_result {
+    my ( $proto, $token ) = @_;
+    my $type = $token->{type};
+    return $proto->class_for($type)->new($token);
+}
+
+
+our %CLASS_FOR = (
+	plan    => 'TAP::Parser::Result::Plan',
+	pragma  => 'TAP::Parser::Result::Pragma',
+	test    => 'TAP::Parser::Result::Test',
+	comment => 'TAP::Parser::Result::Comment',
+	bailout => 'TAP::Parser::Result::Bailout',
+	version => 'TAP::Parser::Result::Version',
+	unknown => 'TAP::Parser::Result::Unknown',
+	yaml    => 'TAP::Parser::Result::YAML',
+);
+
+sub class_for {
+    my ( $class, $type ) = @_;
+
+    # return target class:
+    return $CLASS_FOR{$type} if exists $CLASS_FOR{$type};
+
+    # or complain:
+    require Carp;
+    Carp::croak("Could not determine class for result type '$type'");
+}
+
+sub register_type {
+    my ( $class, $type, $rclass ) = @_;
+
+    # register it blindly, assume they know what they're doing
+    $CLASS_FOR{$type} = $rclass;
+    return $class;
+}
+
+1;
+
+package TAP::Parser::Scheduler;
+
+use strict;
+use warnings;
+
+use Carp;
+use TAP::Parser::Scheduler::Job;
+use TAP::Parser::Scheduler::Spinner;
+
+
+our $VERSION = '3.42';
+
+
+sub new {
+    my $class = shift;
+
+    croak "Need a number of key, value pairs" if @_ % 2;
+
+    my %args  = @_;
+    my $tests = delete $args{tests} || croak "Need a 'tests' argument";
+    my $rules = delete $args{rules} || { par => '**' };
+
+    croak "Unknown arg(s): ", join ', ', sort keys %args
+      if keys %args;
+
+    # Turn any simple names into a name, description pair. TODO: Maybe
+    # construct jobs here?
+    my $self = bless {}, $class;
+
+    $self->_set_rules( $rules, $tests );
+
+    return $self;
+}
+
+# Build the scheduler data structure.
+#
+# SCHEDULER-DATA ::= JOB
+#                ||  ARRAY OF ARRAY OF SCHEDULER-DATA
+#
+# The nested arrays are the key to scheduling. The outer array contains
+# a list of things that may be executed in parallel. Whenever an
+# eligible job is sought any element of the outer array that is ready to
+# execute can be selected. The inner arrays represent sequential
+# execution. They can only proceed when the first job is ready to run.
+
+sub _set_rules {
+    my ( $self, $rules, $tests ) = @_;
+
+    # Convert all incoming tests to job objects. 
+    # If no test description is provided use the file name as the description. 
+    my @tests = map { TAP::Parser::Scheduler::Job->new(@$_) }
+      map { 'ARRAY' eq ref $_ ? $_ : [ $_, $_ ] } @$tests;
+    my $schedule = $self->_rule_clause( $rules, \@tests );
+
+    # If any tests are left add them as a sequential block at the end of
+    # the run.
+    $schedule = [ [ $schedule, @tests ] ] if @tests;
+
+    $self->{schedule} = $schedule;
+}
+
+sub _rule_clause {
+    my ( $self, $rule, $tests ) = @_;
+    croak 'Rule clause must be a hash'
+      unless 'HASH' eq ref $rule;
+
+    my @type = keys %$rule;
+    croak 'Rule clause must have exactly one key'
+      unless @type == 1;
+
+    my %handlers = (
+        par => sub {
+            [ map { [$_] } @_ ];
+        },
+        seq => sub { [ [@_] ] },
+    );
+
+    my $handler = $handlers{ $type[0] }
+      || croak 'Unknown scheduler type: ', $type[0];
+    my $val = $rule->{ $type[0] };
+
+    return $handler->(
+        map {
+            'HASH' eq ref $_
+              ? $self->_rule_clause( $_, $tests )
+              : $self->_expand( $_, $tests )
+          } 'ARRAY' eq ref $val ? @$val : $val
+    );
+}
+
+sub _glob_to_regexp {
+    my ( $self, $glob ) = @_;
+    my $nesting;
+    my $pattern;
+
+    while (1) {
+        if ( $glob =~ /\G\*\*/gc ) {
+
+            # ** is any number of characters, including /, within a pathname
+            $pattern .= '.*?';
+        }
+        elsif ( $glob =~ /\G\*/gc ) {
+
+            # * is zero or more characters within a filename/directory name
+            $pattern .= '[^/]*';
+        }
+        elsif ( $glob =~ /\G\?/gc ) {
+
+            # ? is exactly one character within a filename/directory name
+            $pattern .= '[^/]';
+        }
+        elsif ( $glob =~ /\G\{/gc ) {
+
+            # {foo,bar,baz} is any of foo, bar or baz.
+            $pattern .= '(?:';
+            ++$nesting;
+        }
+        elsif ( $nesting and $glob =~ /\G,/gc ) {
+
+            # , is only special inside {}
+            $pattern .= '|';
+        }
+        elsif ( $nesting and $glob =~ /\G\}/gc ) {
+
+            # } that matches { is special. But unbalanced } are not.
+            $pattern .= ')';
+            --$nesting;
+        }
+        elsif ( $glob =~ /\G(\\.)/gc ) {
+
+            # A quoted literal
+            $pattern .= $1;
+        }
+        elsif ( $glob =~ /\G([\},])/gc ) {
+
+            # Sometimes meta characters
+            $pattern .= '\\' . $1;
+        }
+        else {
+
+            # Eat everything that is not a meta character.
+            $glob =~ /\G([^{?*\\\},]*)/gc;
+            $pattern .= quotemeta $1;
+        }
+        return $pattern if pos $glob == length $glob;
+    }
+}
+
+sub _expand {
+    my ( $self, $name, $tests ) = @_;
+
+    my $pattern = $self->_glob_to_regexp($name);
+    $pattern = qr/^ $pattern $/x;
+    my @match = ();
+
+    for ( my $ti = 0; $ti < @$tests; $ti++ ) {
+        if ( $tests->[$ti]->filename =~ $pattern ) {
+            push @match, splice @$tests, $ti, 1;
+            $ti--;
+        }
+    }
+
+    return @match;
+}
+
+
+sub get_all {
+    my $self = shift;
+    my @all  = $self->_gather( $self->{schedule} );
+    $self->{count} = @all;
+    @all;
+}
+
+sub _gather {
+    my ( $self, $rule ) = @_;
+    return unless defined $rule;
+    return $rule unless 'ARRAY' eq ref $rule;
+    return map { defined() ? $self->_gather($_) : () } map {@$_} @$rule;
+}
+
+
+sub get_job {
+    my $self = shift;
+    $self->{count} ||= $self->get_all;
+    my @jobs = $self->_find_next_job( $self->{schedule} );
+    if (@jobs) {
+        --$self->{count};
+        return $jobs[0];
+    }
+
+    return TAP::Parser::Scheduler::Spinner->new
+      if $self->{count};
+
+    return;
+}
+
+sub _not_empty {
+    my $ar = shift;
+    return 1 unless 'ARRAY' eq ref $ar;
+    for (@$ar) {
+        return 1 if _not_empty($_);
+    }
+    return;
+}
+
+sub _is_empty { !_not_empty(@_) }
+
+sub _find_next_job {
+    my ( $self, $rule ) = @_;
+
+    my @queue = ();
+    my $index = 0;
+    while ( $index < @$rule ) {
+        my $seq = $rule->[$index];
+
+        # Prune any exhausted items.
+        shift @$seq while @$seq && _is_empty( $seq->[0] );
+        if (@$seq) {
+            if ( defined $seq->[0] ) {
+                if ( 'ARRAY' eq ref $seq->[0] ) {
+                    push @queue, $seq;
+                }
+                else {
+                    my $job = splice @$seq, 0, 1, undef;
+                    $job->on_finish( sub { shift @$seq } );
+                    return $job;
+                }
+            }
+            ++$index;
+        }
+        else {
+
+            # Remove the empty sub-array from the array
+            splice @$rule, $index, 1;
+        }
+    }
+
+    for my $seq (@queue) {
+        if ( my @jobs = $self->_find_next_job( $seq->[0] ) ) {
+            return @jobs;
+        }
+    }
+
+    return;
+}
+
+
+
+sub as_string {
+    my $self = shift;
+    return $self->_as_string( $self->{schedule} );
+}
+
+sub _as_string {
+    my ( $self, $rule, $depth ) = ( shift, shift, shift || 0 );
+    my $pad    = ' ' x 2;
+    my $indent = $pad x $depth;
+    if ( !defined $rule ) {
+        return "$indent(undef)\n";
+    }
+    elsif ( 'ARRAY' eq ref $rule ) {
+        return unless @$rule;
+        my $type = ( 'par', 'seq' )[ $depth % 2 ];
+        return join(
+            '', "$indent$type:\n",
+            map { $self->_as_string( $_, $depth + 1 ) } @$rule
+        );
+    }
+    else {
+        return "$indent'" . $rule->filename . "'\n";
+    }
+}
+
+1;
+package TAP::Parser::Grammar;
+
+use strict;
+use warnings;
+
+use TAP::Parser::ResultFactory   ();
+use TAP::Parser::YAMLish::Reader ();
+
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+sub _initialize {
+    my ( $self, $args ) = @_;
+    $self->{iterator} = $args->{iterator};    # TODO: accessor
+    $self->{iterator} ||= $args->{stream};    # deprecated
+    $self->{parser} = $args->{parser};        # TODO: accessor
+    $self->set_version( $args->{version} || 12 );
+    return $self;
+}
+
+my %language_for;
+
+{
+
+    # XXX the 'not' and 'ok' might be on separate lines in VMS ...
+    my $ok  = qr/(?:not )?ok\b/;
+    my $num = qr/\d+/;
+
+    my %v12 = (
+        version => {
+            syntax  => qr/^TAP\s+version\s+(\d+)\s*\z/i,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $version = $1;
+                return $self->_make_version_token( $line, $version, );
+            },
+        },
+        plan => {
+            syntax  => qr/^1\.\.(\d+)\s*(.*)\z/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $tests_planned, $tail ) = ( $1, $2 );
+                my $explanation = undef;
+                my $skip        = '';
+
+                if ( $tail =~ /^todo((?:\s+\d+)+)/ ) {
+                    my @todo = split /\s+/, _trim($1);
+                    return $self->_make_plan_token(
+                        $line, $tests_planned, 'TODO',
+                        '',    \@todo
+                    );
+                }
+                elsif ( 0 == $tests_planned ) {
+                    $skip = 'SKIP';
+
+                    # If we can't match # SKIP the directive should be undef.
+                    ($explanation) = $tail =~ /^#\s*SKIP\S*\s+(.*)/i;
+                }
+                elsif ( $tail !~ /^\s*$/ ) {
+                    return $self->_make_unknown_token($line);
+                }
+
+                $explanation = '' unless defined $explanation;
+
+                return $self->_make_plan_token(
+                    $line, $tests_planned, $skip,
+                    $explanation, []
+                );
+
+            },
+        },
+
+        # An optimization to handle the most common test lines without
+        # directives.
+        simple_test => {
+            syntax  => qr/^($ok) \ ($num) (?:\ ([^#]+))? \z/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $ok, $num, $desc ) = ( $1, $2, $3 );
+
+                return $self->_make_test_token(
+                    $line, $ok, $num,
+                    $desc
+                );
+            },
+        },
+        test => {
+            syntax  => qr/^($ok) \s* ($num)? \s* (.*) \z/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $ok, $num, $desc ) = ( $1, $2, $3 );
+                my ( $dir, $explanation ) = ( '', '' );
+                if ($desc =~ m/^ ( [^\\\#]* (?: \\. [^\\\#]* )* )
+                       \# \s* (SKIP|TODO) \b \s* (.*) $/ix
+                  )
+                {
+                    ( $desc, $dir, $explanation ) = ( $1, $2, $3 );
+                }
+                return $self->_make_test_token(
+                    $line, $ok, $num, $desc,
+                    $dir,  $explanation
+                );
+            },
+        },
+        comment => {
+            syntax  => qr/^#(.*)/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $comment = $1;
+                return $self->_make_comment_token( $line, $comment );
+            },
+        },
+        bailout => {
+            syntax  => qr/^\s*Bail out!\s*(.*)/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $explanation = $1;
+                return $self->_make_bailout_token(
+                    $line,
+                    $explanation
+                );
+            },
+        },
+    );
+
+    my %v13 = (
+        %v12,
+        plan => {
+            syntax  => qr/^1\.\.(\d+)\s*(?:\s*#\s*SKIP\b(.*))?\z/i,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $tests_planned, $explanation ) = ( $1, $2 );
+                my $skip
+                  = ( 0 == $tests_planned || defined $explanation )
+                  ? 'SKIP'
+                  : '';
+                $explanation = '' unless defined $explanation;
+                return $self->_make_plan_token(
+                    $line, $tests_planned, $skip,
+                    $explanation, []
+                );
+            },
+        },
+        yaml => {
+            syntax  => qr/^ (\s+) (---.*) $/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $pad, $marker ) = ( $1, $2 );
+                return $self->_make_yaml_token( $pad, $marker );
+            },
+        },
+        pragma => {
+            syntax =>
+              qr/^ pragma \s+ ( [-+] \w+ \s* (?: , \s* [-+] \w+ \s* )* ) $/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $pragmas = $1;
+                return $self->_make_pragma_token( $line, $pragmas );
+            },
+        },
+    );
+
+    %language_for = (
+        '12' => {
+            tokens => \%v12,
+        },
+        '13' => {
+            tokens => \%v13,
+            setup  => sub {
+                shift->{iterator}->handle_unicode;
+            },
+        },
+    );
+}
+
+##############################################################################
+
+
+sub set_version {
+    my $self    = shift;
+    my $version = shift;
+
+    if ( my $language = $language_for{$version} ) {
+        $self->{version} = $version;
+        $self->{tokens}  = $language->{tokens};
+
+        if ( my $setup = $language->{setup} ) {
+            $self->$setup();
+        }
+
+        $self->_order_tokens;
+    }
+    else {
+        require Carp;
+        Carp::croak("Unsupported syntax version: $version");
+    }
+}
+
+# Optimization to put the most frequent tokens first.
+sub _order_tokens {
+    my $self = shift;
+
+    my %copy = %{ $self->{tokens} };
+    my @ordered_tokens = grep {defined}
+      map { delete $copy{$_} } qw( simple_test test comment plan );
+    push @ordered_tokens, values %copy;
+
+    $self->{ordered_tokens} = \@ordered_tokens;
+}
+
+##############################################################################
+
+
+sub tokenize {
+    my $self = shift;
+
+    my $line = $self->{iterator}->next;
+    unless ( defined $line ) {
+        delete $self->{parser};    # break circular ref
+        return;
+    }
+
+    my $token;
+
+    for my $token_data ( @{ $self->{ordered_tokens} } ) {
+        if ( $line =~ $token_data->{syntax} ) {
+            my $handler = $token_data->{handler};
+            $token = $self->$handler($line);
+            last;
+        }
+    }
+
+    $token = $self->_make_unknown_token($line) unless $token;
+
+    return $self->{parser}->make_result($token);
+}
+
+##############################################################################
+
+
+sub token_types {
+    my $self = shift;
+    return keys %{ $self->{tokens} };
+}
+
+##############################################################################
+
+
+sub syntax_for {
+    my ( $self, $type ) = @_;
+    return $self->{tokens}->{$type}->{syntax};
+}
+
+##############################################################################
+
+
+sub handler_for {
+    my ( $self, $type ) = @_;
+    return $self->{tokens}->{$type}->{handler};
+}
+
+sub _make_version_token {
+    my ( $self, $line, $version ) = @_;
+    return {
+        type    => 'version',
+        raw     => $line,
+        version => $version,
+    };
+}
+
+sub _make_plan_token {
+    my ( $self, $line, $tests_planned, $directive, $explanation, $todo ) = @_;
+
+    if (   $directive eq 'SKIP'
+        && 0 != $tests_planned
+        && $self->{version} < 13 )
+    {
+        warn
+          "Specified SKIP directive in plan but more than 0 tests ($line)\n";
+    }
+
+    return {
+        type          => 'plan',
+        raw           => $line,
+        tests_planned => $tests_planned,
+        directive     => $directive,
+        explanation   => _trim($explanation),
+        todo_list     => $todo,
+    };
+}
+
+sub _make_test_token {
+    my ( $self, $line, $ok, $num, $desc, $dir, $explanation ) = @_;
+    return {
+        ok          => $ok,
+
+        # forcing this to be an integer (and not a string) reduces memory
+        # consumption. RT #84939
+        test_num    => ( defined $num ? 0 + $num : undef ),
+        description => _trim($desc),
+        directive   => ( defined $dir ? uc $dir : '' ),
+        explanation => _trim($explanation),
+        raw         => $line,
+        type        => 'test',
+    };
+}
+
+sub _make_unknown_token {
+    my ( $self, $line ) = @_;
+    return {
+        raw  => $line,
+        type => 'unknown',
+    };
+}
+
+sub _make_comment_token {
+    my ( $self, $line, $comment ) = @_;
+    return {
+        type    => 'comment',
+        raw     => $line,
+        comment => _trim($comment)
+    };
+}
+
+sub _make_bailout_token {
+    my ( $self, $line, $explanation ) = @_;
+    return {
+        type    => 'bailout',
+        raw     => $line,
+        bailout => _trim($explanation)
+    };
+}
+
+sub _make_yaml_token {
+    my ( $self, $pad, $marker ) = @_;
+
+    my $yaml = TAP::Parser::YAMLish::Reader->new;
+
+    my $iterator = $self->{iterator};
+
+    # Construct a reader that reads from our input stripping leading
+    # spaces from each line.
+    my $leader = length($pad);
+    my $strip  = qr{ ^ (\s{$leader}) (.*) $ }x;
+    my @extra  = ($marker);
+    my $reader = sub {
+        return shift @extra if @extra;
+        my $line = $iterator->next;
+        return $2 if $line =~ $strip;
+        return;
+    };
+
+    my $data = $yaml->read($reader);
+
+    # Reconstitute input. This is convoluted. Maybe we should just
+    # record it on the way in...
+    chomp( my $raw = $yaml->get_raw );
+    $raw =~ s/^/$pad/mg;
+
+    return {
+        type => 'yaml',
+        raw  => $raw,
+        data => $data
+    };
+}
+
+sub _make_pragma_token {
+    my ( $self, $line, $pragmas ) = @_;
+    return {
+        type    => 'pragma',
+        raw     => $line,
+        pragmas => [ split /\s*,\s*/, _trim($pragmas) ],
+    };
+}
+
+sub _trim {
+    my $data = shift;
+
+    return '' unless defined $data;
+
+    $data =~ s/^\s+//;
+    $data =~ s/\s+$//;
+    return $data;
+}
+
+1;
+
+package TAP::Parser::Source;
+
+use strict;
+use warnings;
+
+use File::Basename qw( fileparse );
+use base 'TAP::Object';
+
+use constant BLK_SIZE => 512;
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ($self) = @_;
+    $self->meta(   {} );
+    $self->config( {} );
+    return $self;
+}
+
+##############################################################################
+
+
+sub raw {
+    my $self = shift;
+    return $self->{raw} unless @_;
+    $self->{raw} = shift;
+    return $self;
+}
+
+sub meta {
+    my $self = shift;
+    return $self->{meta} unless @_;
+    $self->{meta} = shift;
+    return $self;
+}
+
+sub has_meta {
+    return scalar %{ shift->meta } ? 1 : 0;
+}
+
+sub config {
+    my $self = shift;
+    return $self->{config} unless @_;
+    $self->{config} = shift;
+    return $self;
+}
+
+sub merge {
+    my $self = shift;
+    return $self->{merge} unless @_;
+    $self->{merge} = shift;
+    return $self;
+}
+
+sub switches {
+    my $self = shift;
+    return $self->{switches} unless @_;
+    $self->{switches} = shift;
+    return $self;
+}
+
+sub test_args {
+    my $self = shift;
+    return $self->{test_args} unless @_;
+    $self->{test_args} = shift;
+    return $self;
+}
+
+
+sub assemble_meta {
+    my ($self) = @_;
+
+    return $self->meta if $self->has_meta;
+
+    my $meta = $self->meta;
+    my $raw  = $self->raw;
+
+    # rudimentary is object test - if it's blessed it'll
+    # inherit from UNIVERSAL
+    $meta->{is_object} = UNIVERSAL::isa( $raw, 'UNIVERSAL' ) ? 1 : 0;
+
+    if ( $meta->{is_object} ) {
+        $meta->{class} = ref($raw);
+    }
+    else {
+        my $ref = lc( ref($raw) );
+        $meta->{"is_$ref"} = 1;
+    }
+
+    if ( $meta->{is_scalar} ) {
+        my $source = $$raw;
+        $meta->{length} = length($$raw);
+        $meta->{has_newlines} = $$raw =~ /\n/ ? 1 : 0;
+
+        # only do file checks if it looks like a filename
+        if ( !$meta->{has_newlines} and $meta->{length} < 1024 ) {
+            my $file = {};
+            $file->{exists} = -e $source ? 1 : 0;
+            if ( $file->{exists} ) {
+                $meta->{file} = $file;
+
+                # avoid extra system calls (see `perldoc -f -X`)
+                $file->{stat}    = [ stat(_) ];
+                $file->{empty}   = -z _ ? 1 : 0;
+                $file->{size}    = -s _;
+                $file->{text}    = -T _ ? 1 : 0;
+                $file->{binary}  = -B _ ? 1 : 0;
+                $file->{read}    = -r _ ? 1 : 0;
+                $file->{write}   = -w _ ? 1 : 0;
+                $file->{execute} = -x _ ? 1 : 0;
+                $file->{setuid}  = -u _ ? 1 : 0;
+                $file->{setgid}  = -g _ ? 1 : 0;
+                $file->{sticky}  = -k _ ? 1 : 0;
+
+                $meta->{is_file} = $file->{is_file} = -f _ ? 1 : 0;
+                $meta->{is_dir}  = $file->{is_dir}  = -d _ ? 1 : 0;
+
+                # symlink check requires another system call
+                $meta->{is_symlink} = $file->{is_symlink}
+                  = -l $source ? 1 : 0;
+                if ( $file->{is_symlink} ) {
+                    $file->{lstat} = [ lstat(_) ];
+                }
+
+                # put together some common info about the file
+                ( $file->{basename}, $file->{dir}, $file->{ext} )
+                  = map { defined $_ ? $_ : '' }
+                  fileparse( $source, qr/\.[^.]*/ );
+                $file->{lc_ext} = lc( $file->{ext} );
+                $file->{basename} .= $file->{ext} if $file->{ext};
+
+                if ( !$file->{is_dir} && $file->{read} ) {
+                    eval { $file->{shebang} = $self->shebang($$raw); };
+                    if ( my $e = $@ ) {
+                        warn $e;
+                    }
+                }
+            }
+        }
+    }
+    elsif ( $meta->{is_array} ) {
+        $meta->{size} = $#$raw + 1;
+    }
+    elsif ( $meta->{is_hash} ) {
+        ;    # do nothing
+    }
+
+    return $meta;
+}
+
+
+{
+
+    # Global shebang cache.
+    my %shebang_for;
+
+    sub _read_shebang {
+        my ( $class, $file ) = @_;
+        open my $fh, '<', $file or die "Can't read $file: $!\n";
+
+        # Might be a binary file - so read a fixed number of bytes.
+        my $got = read $fh, my ($buf), BLK_SIZE;
+        defined $got or die "I/O error: $!\n";
+        return $1 if $buf =~ /(.*)/;
+        return;
+    }
+
+    sub shebang {
+        my ( $class, $file ) = @_;
+        $shebang_for{$file} = $class->_read_shebang($file)
+          unless exists $shebang_for{$file};
+        return $shebang_for{$file};
+    }
+}
+
+
+sub config_for {
+    my ( $self, $class ) = @_;
+    my ($abbrv_class) = ( $class =~ /(?:\:\:)?(\w+)$/ );
+    my $config = $self->config->{$abbrv_class} || $self->config->{$class};
+    return $config;
+}
+
+1;
+
+__END__
+
+package TAP::Parser::Result;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+BEGIN {
+
+    # make is_* methods
+    my @attrs = qw( plan pragma test comment bailout version unknown yaml );
+    no strict 'refs';
+    for my $token (@attrs) {
+        my $method = "is_$token";
+        *$method = sub { return $token eq shift->type };
+    }
+}
+
+##############################################################################
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation provided by TAP::Object
+
+sub _initialize {
+    my ( $self, $token ) = @_;
+    if ($token) {
+
+       # assign to a hash slice to make a shallow copy of the token.
+       # I guess we could assign to the hash as (by default) there are not
+       # contents, but that seems less helpful if someone wants to subclass us
+        @{$self}{ keys %$token } = values %$token;
+    }
+    return $self;
+}
+
+##############################################################################
+
+
+##############################################################################
+
+
+sub raw { shift->{raw} }
+
+##############################################################################
+
+
+sub type { shift->{type} }
+
+##############################################################################
+
+
+sub as_string { shift->{raw} }
+
+##############################################################################
+
+
+sub is_ok {1}
+
+##############################################################################
+
+
+sub passed {
+    warn 'passed() is deprecated.  Please use "is_ok()"';
+    shift->is_ok;
+}
+
+##############################################################################
+
+
+sub has_directive {
+    my $self = shift;
+    return ( $self->has_todo || $self->has_skip );
+}
+
+##############################################################################
+
+
+sub has_todo { 'TODO' eq ( shift->{directive} || '' ) }
+
+##############################################################################
+
+
+sub has_skip { 'SKIP' eq ( shift->{directive} || '' ) }
+
+
+sub set_directive {
+    my ( $self, $dir ) = @_;
+    $self->{directive} = $dir;
+}
+
+1;
+
+package TAP::Parser::SourceHandler;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Iterator ();
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $args ) = @_;
+    $class->_croak(
+        "Abstract method 'can_handle' not implemented for $class!");
+    return;
+}
+
+
+sub make_iterator {
+    my ( $class, $args ) = @_;
+    $class->_croak(
+        "Abstract method 'make_iterator' not implemented for $class!");
+    return;
+}
+1;
+
+__END__
+
+
+package TAP::Parser::Aggregator;
+
+use strict;
+use warnings;
+use Benchmark;
+
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+my %SUMMARY_METHOD_FOR;
+
+BEGIN {    # install summary methods
+    %SUMMARY_METHOD_FOR = map { $_ => $_ } qw(
+      failed
+      parse_errors
+      passed
+      skipped
+      todo
+      todo_passed
+      total
+      wait
+      exit
+    );
+    $SUMMARY_METHOD_FOR{total}   = 'tests_run';
+    $SUMMARY_METHOD_FOR{planned} = 'tests_planned';
+
+    for my $method ( keys %SUMMARY_METHOD_FOR ) {
+        next if 'total' eq $method;
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            return wantarray
+              ? @{ $self->{"descriptions_for_$method"} }
+              : $self->{$method};
+        };
+    }
+}    # end install summary methods
+
+sub _initialize {
+    my ($self) = @_;
+    $self->{parser_for}  = {};
+    $self->{parse_order} = [];
+    for my $summary ( keys %SUMMARY_METHOD_FOR ) {
+        $self->{$summary} = 0;
+        next if 'total' eq $summary;
+        $self->{"descriptions_for_$summary"} = [];
+    }
+    return $self;
+}
+
+##############################################################################
+
+
+sub add {
+    my ( $self, $description, $parser ) = @_;
+    if ( exists $self->{parser_for}{$description} ) {
+        $self->_croak( "You already have a parser for ($description)."
+              . " Perhaps you have run the same test twice." );
+    }
+    push @{ $self->{parse_order} } => $description;
+    $self->{parser_for}{$description} = $parser;
+
+    while ( my ( $summary, $method ) = each %SUMMARY_METHOD_FOR ) {
+
+        # Slightly nasty. Instead we should maybe have 'cooked' accessors
+        # for results that may be masked by the parser.
+        next
+          if ( $method eq 'exit' || $method eq 'wait' )
+          && $parser->ignore_exit;
+
+        if ( my $count = $parser->$method() ) {
+            $self->{$summary} += $count;
+            push @{ $self->{"descriptions_for_$summary"} } => $description;
+        }
+    }
+
+    return $self;
+}
+
+##############################################################################
+
+
+sub parsers {
+    my $self = shift;
+    return $self->_get_parsers(@_) if @_;
+    my $descriptions = $self->{parse_order};
+    my @parsers      = @{ $self->{parser_for} }{@$descriptions};
+
+    # Note:  Because of the way context works, we must assign the parsers to
+    # the @parsers array or else this method does not work as documented.
+    return @parsers;
+}
+
+sub _get_parsers {
+    my ( $self, @descriptions ) = @_;
+    my @parsers;
+    for my $description (@descriptions) {
+        $self->_croak("A parser for ($description) could not be found")
+          unless exists $self->{parser_for}{$description};
+        push @parsers => $self->{parser_for}{$description};
+    }
+    return wantarray ? @parsers : \@parsers;
+}
+
+
+sub descriptions { @{ shift->{parse_order} || [] } }
+
+
+sub start {
+    my $self = shift;
+    $self->{start_time} = Benchmark->new;
+}
+
+
+sub stop {
+    my $self = shift;
+    $self->{end_time} = Benchmark->new;
+}
+
+
+sub elapsed {
+    my $self = shift;
+
+    require Carp;
+    Carp::croak
+      q{Can't call elapsed without first calling start and then stop}
+      unless defined $self->{start_time} && defined $self->{end_time};
+    return timediff( $self->{end_time}, $self->{start_time} );
+}
+
+
+sub elapsed_timestr {
+    my $self = shift;
+
+    my $elapsed = $self->elapsed;
+
+    return timestr($elapsed);
+}
+
+
+sub all_passed {
+    my $self = shift;
+    return
+         $self->total
+      && $self->total == $self->passed
+      && !$self->has_errors;
+}
+
+
+sub get_status {
+    my $self = shift;
+
+    my $total  = $self->total;
+    my $passed = $self->passed;
+
+    return
+        ( $self->has_errors || $total != $passed ) ? 'FAIL'
+      : $total ? 'PASS'
+      :          'NOTESTS';
+}
+
+##############################################################################
+
+
+##############################################################################
+
+
+sub total { shift->{total} }
+
+##############################################################################
+
+
+sub has_problems {
+    my $self = shift;
+    return $self->todo_passed
+      || $self->has_errors;
+}
+
+##############################################################################
+
+
+sub has_errors {
+    my $self = shift;
+    return
+         $self->failed
+      || $self->parse_errors
+      || $self->exit
+      || $self->wait;
+}
+
+##############################################################################
+
+
+sub todo_failed {
+    warn
+      '"todo_failed" is deprecated.  Please use "todo_passed".  See the docs.';
+    goto &todo_passed;
+}
+
+
+1;
+package TAP::Parser::Iterator::Array;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Iterator';
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $thing ) = @_;
+    chomp @$thing;
+    $self->{idx}   = 0;
+    $self->{array} = $thing;
+    $self->{exit}  = undef;
+    return $self;
+}
+
+sub wait { shift->exit }
+
+sub exit {
+    my $self = shift;
+    return 0 if $self->{idx} >= @{ $self->{array} };
+    return;
+}
+
+sub next_raw {
+    my $self = shift;
+    return $self->{array}->[ $self->{idx}++ ];
+}
+
+1;
+
+
+package TAP::Parser::Iterator::Process;
+
+use strict;
+use warnings;
+
+use Config;
+use IO::Handle;
+
+use base 'TAP::Parser::Iterator';
+
+my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ );
+
+
+our $VERSION = '3.42';
+
+
+{
+
+    no warnings 'uninitialized';
+       # get around a catch22 in the test suite that causes failures on Win32:
+    local $SIG{__DIE__} = undef;
+    eval { require POSIX; &POSIX::WEXITSTATUS(0) };
+    if ($@) {
+        *_wait2exit = sub { $_[1] >> 8 };
+    }
+    else {
+        *_wait2exit = sub { POSIX::WEXITSTATUS( $_[1] ) }
+    }
+}
+
+sub _use_open3 {
+    my $self = shift;
+    return unless $Config{d_fork} || $IS_WIN32;
+    for my $module (qw( IPC::Open3 IO::Select )) {
+        eval "use $module";
+        return if $@;
+    }
+    return 1;
+}
+
+{
+    my $got_unicode;
+
+    sub _get_unicode {
+        return $got_unicode if defined $got_unicode;
+        eval 'use Encode qw(decode_utf8);';
+        $got_unicode = $@ ? 0 : 1;
+
+    }
+}
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $args ) = @_;
+
+    my @command = @{ delete $args->{command} || [] }
+      or die "Must supply a command to execute";
+
+    $self->{command} = [@command];
+
+    # Private. Used to frig with chunk size during testing.
+    my $chunk_size = delete $args->{_chunk_size} || 65536;
+
+    my $merge = delete $args->{merge};
+    my ( $pid, $err, $sel );
+
+    if ( my $setup = delete $args->{setup} ) {
+        $setup->(@command);
+    }
+
+    my $out = IO::Handle->new;
+
+    if ( $self->_use_open3 ) {
+
+        # HOTPATCH {{{
+        my $xclose = \&IPC::Open3::xclose;
+        no warnings;
+        local *IPC::Open3::xclose = sub {
+            my $fh = shift;
+            no strict 'refs';
+            return if ( fileno($fh) == fileno(STDIN) );
+            $xclose->($fh);
+        };
+
+        # }}}
+
+        if ($IS_WIN32) {
+            $err = $merge ? '' : '>&STDERR';
+            eval {
+                $pid = open3(
+                    '<&STDIN', $out, $merge ? '' : $err,
+                    @command
+                );
+            };
+            die "Could not execute (@command): $@" if $@;
+            if ( $] >= 5.006 ) {
+                binmode($out, ":crlf");
+            }
+        }
+        else {
+            $err = $merge ? '' : IO::Handle->new;
+            eval { $pid = open3( '<&STDIN', $out, $err, @command ); };
+            die "Could not execute (@command): $@" if $@;
+            $sel = $merge ? undef : IO::Select->new( $out, $err );
+        }
+    }
+    else {
+        $err = '';
+        my $command
+          = join( ' ', map { $_ =~ /\s/ ? qq{"$_"} : $_ } @command );
+        open( $out, "$command|" )
+          or die "Could not execute ($command): $!";
+    }
+
+    $self->{out}        = $out;
+    $self->{err}        = $err;
+    $self->{sel}        = $sel;
+    $self->{pid}        = $pid;
+    $self->{exit}       = undef;
+    $self->{chunk_size} = $chunk_size;
+
+    if ( my $teardown = delete $args->{teardown} ) {
+        $self->{teardown} = sub {
+            $teardown->(@command);
+        };
+    }
+
+    return $self;
+}
+
+
+sub handle_unicode {
+    my $self = shift;
+
+    if ( $self->{sel} ) {
+        if ( _get_unicode() ) {
+
+            # Make sure our iterator has been constructed and...
+            my $next = $self->{_next} ||= $self->_next;
+
+            # ...wrap it to do UTF8 casting
+            $self->{_next} = sub {
+                my $line = $next->();
+                return decode_utf8($line) if defined $line;
+                return;
+            };
+        }
+    }
+    else {
+        if ( $] >= 5.008 ) {
+            eval 'binmode($self->{out}, ":utf8")';
+        }
+    }
+
+}
+
+##############################################################################
+
+sub wait { shift->{wait} }
+sub exit { shift->{exit} }
+
+sub _next {
+    my $self = shift;
+
+    if ( my $out = $self->{out} ) {
+        if ( my $sel = $self->{sel} ) {
+            my $err        = $self->{err};
+            my @buf        = ();
+            my $partial    = '';                    # Partial line
+            my $chunk_size = $self->{chunk_size};
+            return sub {
+                return shift @buf if @buf;
+
+                READ:
+                while ( my @ready = $sel->can_read ) {
+                    for my $fh (@ready) {
+                        my $got = sysread $fh, my ($chunk), $chunk_size;
+
+                        if ( $got == 0 ) {
+                            $sel->remove($fh);
+                        }
+                        elsif ( $fh == $err ) {
+                            print STDERR $chunk;    # echo STDERR
+                        }
+                        else {
+                            $chunk   = $partial . $chunk;
+                            $partial = '';
+
+                            # Make sure we have a complete line
+                            unless ( substr( $chunk, -1, 1 ) eq "\n" ) {
+                                my $nl = rindex $chunk, "\n";
+                                if ( $nl == -1 ) {
+                                    $partial = $chunk;
+                                    redo READ;
+                                }
+                                else {
+                                    $partial = substr( $chunk, $nl + 1 );
+                                    $chunk = substr( $chunk, 0, $nl );
+                                }
+                            }
+
+                            push @buf, split /\n/, $chunk;
+                            return shift @buf if @buf;
+                        }
+                    }
+                }
+
+                # Return partial last line
+                if ( length $partial ) {
+                    my $last = $partial;
+                    $partial = '';
+                    return $last;
+                }
+
+                $self->_finish;
+                return;
+            };
+        }
+        else {
+            return sub {
+                if ( defined( my $line = <$out> ) ) {
+                    chomp $line;
+                    return $line;
+                }
+                $self->_finish;
+                return;
+            };
+        }
+    }
+    else {
+        return sub {
+            $self->_finish;
+            return;
+        };
+    }
+}
+
+sub next_raw {
+    my $self = shift;
+    return ( $self->{_next} ||= $self->_next )->();
+}
+
+sub _finish {
+    my $self = shift;
+
+    my $status = $?;
+
+    # Avoid circular refs
+    $self->{_next} = sub {return}
+      if $] >= 5.006;
+
+    # If we have a subprocess we need to wait for it to terminate
+    if ( defined $self->{pid} ) {
+        if ( $self->{pid} == waitpid( $self->{pid}, 0 ) ) {
+            $status = $?;
+        }
+    }
+
+    ( delete $self->{out} )->close if $self->{out};
+
+    # If we have an IO::Select we also have an error handle to close.
+    if ( $self->{sel} ) {
+        ( delete $self->{err} )->close;
+        delete $self->{sel};
+    }
+    else {
+        $status = $?;
+    }
+
+    # Sometimes we get -1 on Windows. Presumably that means status not
+    # available.
+    $status = 0 if $IS_WIN32 && $status == -1;
+
+    $self->{wait} = $status;
+    $self->{exit} = $self->_wait2exit($status);
+
+    if ( my $teardown = $self->{teardown} ) {
+        $teardown->();
+    }
+
+    return $self;
+}
+
+
+sub get_select_handles {
+    my $self = shift;
+    return grep $_, ( $self->{out}, $self->{err} );
+}
+
+1;
+
+
+package TAP::Parser::Iterator::Stream;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Iterator';
+
+
+our $VERSION = '3.42';
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $thing ) = @_;
+    $self->{fh} = $thing;
+    return $self;
+}
+
+
+sub wait { shift->exit }
+sub exit { shift->{fh} ? () : 0 }
+
+sub next_raw {
+    my $self = shift;
+    my $fh   = $self->{fh};
+
+    if ( defined( my $line = <$fh> ) ) {
+        chomp $line;
+        return $line;
+    }
+    else {
+        $self->_finish;
+        return;
+    }
+}
+
+sub _finish {
+    my $self = shift;
+    close delete $self->{fh};
+}
+
+sub get_select_handles {
+    my $self = shift;
+
+    # return our handle in case it's a socket or pipe (select()-able)
+    return ( $self->{fh}, )
+        if (-S $self->{fh} || -p $self->{fh});
+
+    return;
+}
+
+1;
+
+
+package TAP::Parser::YAMLish::Reader;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+our $VERSION = '3.42';
+
+# TODO:
+#   Handle blessed object syntax
+
+# Printable characters for escapes
+my %UNESCAPES = (
+    z => "\x00", a => "\x07", t    => "\x09",
+    n => "\x0a", v => "\x0b", f    => "\x0c",
+    r => "\x0d", e => "\x1b", '\\' => '\\',
+);
+
+my $QQ_STRING    = qr{ " (?:\\. | [^"])* " }x;
+my $HASH_LINE    = qr{ ^ ($QQ_STRING|\S+) \s* : \s* (?: (.+?) \s* )? $ }x;
+my $IS_HASH_KEY  = qr{ ^ [\w\'\"] }x;
+my $IS_END_YAML  = qr{ ^ \.\.\. \s* $ }x;
+my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x;
+
+# new() implementation supplied by TAP::Object
+
+sub read {
+    my $self = shift;
+    my $obj  = shift;
+
+    die "Must have a code reference to read input from"
+      unless ref $obj eq 'CODE';
+
+    $self->{reader}  = $obj;
+    $self->{capture} = [];
+
+    # Prime the reader
+    $self->_next;
+    return unless $self->{next};
+
+    my $doc = $self->_read;
+
+    # The terminator is mandatory otherwise we'd consume a line from the
+    # iterator that doesn't belong to us. If we want to remove this
+    # restriction we'll have to implement look-ahead in the iterators.
+    # Which might not be a bad idea.
+    my $dots = $self->_peek;
+    die "Missing '...' at end of YAMLish"
+      unless defined $dots
+          and $dots =~ $IS_END_YAML;
+
+    delete $self->{reader};
+    delete $self->{next};
+
+    return $doc;
+}
+
+sub get_raw { join( "\n", grep defined, @{ shift->{capture} || [] } ) . "\n" }
+
+sub _peek {
+    my $self = shift;
+    return $self->{next} unless wantarray;
+    my $line = $self->{next};
+    $line =~ /^ (\s*) (.*) $ /x;
+    return ( $2, length $1 );
+}
+
+sub _next {
+    my $self = shift;
+    die "_next called with no reader"
+      unless $self->{reader};
+    my $line = $self->{reader}->();
+    $self->{next} = $line;
+    push @{ $self->{capture} }, $line;
+}
+
+sub _read {
+    my $self = shift;
+
+    my $line = $self->_peek;
+
+    # Do we have a document header?
+    if ( $line =~ /^ --- (?: \s* (.+?)? \s* )? $/x ) {
+        $self->_next;
+
+        return $self->_read_scalar($1) if defined $1;    # Inline?
+
+        my ( $next, $indent ) = $self->_peek;
+
+        if ( $next =~ /^ - /x ) {
+            return $self->_read_array($indent);
+        }
+        elsif ( $next =~ $IS_HASH_KEY ) {
+            return $self->_read_hash( $next, $indent );
+        }
+        elsif ( $next =~ $IS_END_YAML ) {
+            die "Premature end of YAMLish";
+        }
+        else {
+            die "Unsupported YAMLish syntax: '$next'";
+        }
+    }
+    else {
+        die "YAMLish document header not found";
+    }
+}
+
+# Parse a double quoted string
+sub _read_qq {
+    my $self = shift;
+    my $str  = shift;
+
+    unless ( $str =~ s/^ " (.*?) " $/$1/x ) {
+        die "Internal: not a quoted string";
+    }
+
+    $str =~ s/\\"/"/gx;
+    $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) ) 
+                 / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex;
+    return $str;
+}
+
+# Parse a scalar string to the actual scalar
+sub _read_scalar {
+    my $self   = shift;
+    my $string = shift;
+
+    return undef if $string eq '~';
+    return {} if $string eq '{}';
+    return [] if $string eq '[]';
+
+    if ( $string eq '>' || $string eq '|' ) {
+
+        my ( $line, $indent ) = $self->_peek;
+        die "Multi-line scalar content missing" unless defined $line;
+
+        my @multiline = ($line);
+
+        while (1) {
+            $self->_next;
+            my ( $next, $ind ) = $self->_peek;
+            last if $ind < $indent;
+
+            my $pad = $string eq '|' ? ( ' ' x ( $ind - $indent ) ) : '';
+            push @multiline, $pad . $next;
+        }
+
+        return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n";
+    }
+
+    if ( $string =~ /^ ' (.*) ' $/x ) {
+        ( my $rv = $1 ) =~ s/''/'/g;
+        return $rv;
+    }
+
+    if ( $string =~ $IS_QQ_STRING ) {
+        return $self->_read_qq($string);
+    }
+
+    if ( $string =~ /^['"]/ ) {
+
+        # A quote with folding... we don't support that
+        die __PACKAGE__ . " does not support multi-line quoted scalars";
+    }
+
+    # Regular unquoted string
+    return $string;
+}
+
+sub _read_nested {
+    my $self = shift;
+
+    my ( $line, $indent ) = $self->_peek;
+
+    if ( $line =~ /^ -/x ) {
+        return $self->_read_array($indent);
+    }
+    elsif ( $line =~ $IS_HASH_KEY ) {
+        return $self->_read_hash( $line, $indent );
+    }
+    else {
+        die "Unsupported YAMLish syntax: '$line'";
+    }
+}
+
+# Parse an array
+sub _read_array {
+    my ( $self, $limit ) = @_;
+
+    my $ar = [];
+
+    while (1) {
+        my ( $line, $indent ) = $self->_peek;
+        last
+          if $indent < $limit
+              || !defined $line
+              || $line =~ $IS_END_YAML;
+
+        if ( $indent > $limit ) {
+            die "Array line over-indented";
+        }
+
+        if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) {
+            $indent += length $1;
+            $line =~ s/-\s+//;
+            push @$ar, $self->_read_hash( $line, $indent );
+        }
+        elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) {
+            die "Unexpected start of YAMLish" if $line =~ /^---/;
+            $self->_next;
+            push @$ar, $self->_read_scalar($1);
+        }
+        elsif ( $line =~ /^ - \s* $/x ) {
+            $self->_next;
+            push @$ar, $self->_read_nested;
+        }
+        elsif ( $line =~ $IS_HASH_KEY ) {
+            $self->_next;
+            push @$ar, $self->_read_hash( $line, $indent, );
+        }
+        else {
+            die "Unsupported YAMLish syntax: '$line'";
+        }
+    }
+
+    return $ar;
+}
+
+sub _read_hash {
+    my ( $self, $line, $limit ) = @_;
+
+    my $indent;
+    my $hash = {};
+
+    while (1) {
+        die "Badly formed hash line: '$line'"
+          unless $line =~ $HASH_LINE;
+
+        my ( $key, $value ) = ( $self->_read_scalar($1), $2 );
+        $self->_next;
+
+        if ( defined $value ) {
+            $hash->{$key} = $self->_read_scalar($value);
+        }
+        else {
+            $hash->{$key} = $self->_read_nested;
+        }
+
+        ( $line, $indent ) = $self->_peek;
+        last
+          if $indent < $limit
+              || !defined $line
+              || $line =~ $IS_END_YAML;
+    }
+
+    return $hash;
+}
+
+1;
+
+__END__
+
+
+package TAP::Parser::YAMLish::Writer;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+our $VERSION = '3.42';
+
+my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
+my $ESCAPE_KEY  = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
+
+my @UNPRINTABLE = qw(
+  z    x01  x02  x03  x04  x05  x06  a
+  x08  t    n    v    f    r    x0e  x0f
+  x10  x11  x12  x13  x14  x15  x16  x17
+  x18  x19  x1a  e    x1c  x1d  x1e  x1f
+);
+
+# new() implementation supplied by TAP::Object
+
+sub write {
+    my $self = shift;
+
+    die "Need something to write"
+      unless @_;
+
+    my $obj = shift;
+    my $out = shift || \*STDOUT;
+
+    die "Need a reference to something I can write to"
+      unless ref $out;
+
+    $self->{writer} = $self->_make_writer($out);
+
+    $self->_write_obj( '---', $obj );
+    $self->_put('...');
+
+    delete $self->{writer};
+}
+
+sub _make_writer {
+    my $self = shift;
+    my $out  = shift;
+
+    my $ref = ref $out;
+
+    if ( 'CODE' eq $ref ) {
+        return $out;
+    }
+    elsif ( 'ARRAY' eq $ref ) {
+        return sub { push @$out, shift };
+    }
+    elsif ( 'SCALAR' eq $ref ) {
+        return sub { $$out .= shift() . "\n" };
+    }
+    elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) {
+        return sub { print $out shift(), "\n" };
+    }
+
+    die "Can't write to $out";
+}
+
+sub _put {
+    my $self = shift;
+    $self->{writer}->( join '', @_ );
+}
+
+sub _enc_scalar {
+    my $self = shift;
+    my $val  = shift;
+    my $rule = shift;
+
+    return '~' unless defined $val;
+
+    if ( $val =~ /$rule/ ) {
+        $val =~ s/\\/\\\\/g;
+        $val =~ s/"/\\"/g;
+        $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex;
+        return qq{"$val"};
+    }
+
+    if ( length($val) == 0 or $val =~ /\s/ ) {
+        $val =~ s/'/''/;
+        return "'$val'";
+    }
+
+    return $val;
+}
+
+sub _write_obj {
+    my $self   = shift;
+    my $prefix = shift;
+    my $obj    = shift;
+    my $indent = shift || 0;
+
+    if ( my $ref = ref $obj ) {
+        my $pad = '  ' x $indent;
+        if ( 'HASH' eq $ref ) {
+            if ( keys %$obj ) {
+                $self->_put($prefix);
+                for my $key ( sort keys %$obj ) {
+                    my $value = $obj->{$key};
+                    $self->_write_obj(
+                        $pad . $self->_enc_scalar( $key, $ESCAPE_KEY ) . ':',
+                        $value, $indent + 1
+                    );
+                }
+            }
+            else {
+                $self->_put( $prefix, ' {}' );
+            }
+        }
+        elsif ( 'ARRAY' eq $ref ) {
+            if (@$obj) {
+                $self->_put($prefix);
+                for my $value (@$obj) {
+                    $self->_write_obj(
+                        $pad . '-', $value,
+                        $indent + 1
+                    );
+                }
+            }
+            else {
+                $self->_put( $prefix, ' []' );
+            }
+        }
+        else {
+            die "Don't know how to encode $ref";
+        }
+    }
+    else {
+        $self->_put( $prefix, ' ', $self->_enc_scalar( $obj, $ESCAPE_CHAR ) );
+    }
+}
+
+1;
+
+__END__
+
+
+package TAP::Parser::Scheduler::Job;
+
+use strict;
+use warnings;
+use Carp;
+
+
+our $VERSION = '3.42';
+
+
+sub new {
+    my ( $class, $name, $desc, @ctx ) = @_;
+    return bless {
+        filename    => $name,
+        description => $desc,
+        @ctx ? ( context => \@ctx ) : (),
+    }, $class;
+}
+
+
+sub on_finish {
+    my ( $self, $cb ) = @_;
+    $self->{on_finish} = $cb;
+}
+
+
+sub finish {
+    my $self = shift;
+    if ( my $cb = $self->{on_finish} ) {
+        $cb->($self);
+    }
+}
+
+
+sub filename    { shift->{filename} }
+sub description { shift->{description} }
+sub context     { @{ shift->{context} || [] } }
+
+
+sub as_array_ref {
+    my $self = shift;
+    return [ $self->filename, $self->description, $self->{context} ||= [] ];
+}
+
+
+sub is_spinner {0}
+
+1;
+package TAP::Parser::Scheduler::Spinner;
+
+use strict;
+use warnings;
+use Carp;
+
+
+our $VERSION = '3.42';
+
+
+sub new { bless {}, shift }
+
+
+sub is_spinner {1}
+
+
+1;
+package TAP::Parser::Result::Test;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub ok { shift->{ok} }
+
+##############################################################################
+
+
+sub number { shift->{test_num} }
+
+sub _number {
+    my ( $self, $number ) = @_;
+    $self->{test_num} = $number;
+}
+
+##############################################################################
+
+
+sub description { shift->{description} }
+
+##############################################################################
+
+
+sub directive { shift->{directive} }
+
+##############################################################################
+
+
+sub explanation { shift->{explanation} }
+
+##############################################################################
+
+
+sub is_ok {
+    my $self = shift;
+
+    return if $self->is_unplanned;
+
+    # TODO directives reverse the sense of a test.
+    return $self->has_todo ? 1 : $self->ok !~ /not/;
+}
+
+##############################################################################
+
+
+sub is_actual_ok {
+    my $self = shift;
+    return $self->{ok} !~ /not/;
+}
+
+##############################################################################
+
+
+sub actual_passed {
+    warn 'actual_passed() is deprecated.  Please use "is_actual_ok()"';
+    goto &is_actual_ok;
+}
+
+##############################################################################
+
+
+sub todo_passed {
+    my $self = shift;
+    return $self->has_todo && $self->is_actual_ok;
+}
+
+##############################################################################
+
+
+sub todo_failed {
+    warn 'todo_failed() is deprecated.  Please use "todo_passed()"';
+    goto &todo_passed;
+}
+
+##############################################################################
+
+
+sub as_string {
+    my $self   = shift;
+    my $string = $self->ok . " " . $self->number;
+    if ( my $description = $self->description ) {
+        $string .= " $description";
+    }
+    if ( my $directive = $self->directive ) {
+        my $explanation = $self->explanation;
+        $string .= " # $directive $explanation";
+    }
+    return $string;
+}
+
+##############################################################################
+
+
+sub is_unplanned {
+    my $self = shift;
+    return ( $self->{unplanned} || '' ) unless @_;
+    $self->{unplanned} = !!shift;
+    return $self;
+}
+
+1;
+package TAP::Parser::Result::YAML;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub data { shift->{data} }
+
+1;
+package TAP::Parser::Result::Version;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub version { shift->{version} }
+
+1;
+package TAP::Parser::Result::Comment;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub comment   { shift->{comment} }
+sub as_string { shift->{raw} }
+
+1;
+package TAP::Parser::Result::Bailout;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub explanation { shift->{bailout} }
+sub as_string   { shift->{bailout} }
+
+1;
+package TAP::Parser::Result::Unknown;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+1;
+package TAP::Parser::Result::Pragma;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub pragmas {
+    my @pragmas = @{ shift->{pragmas} };
+    return wantarray ? @pragmas : \@pragmas;
+}
+
+1;
+package TAP::Parser::Result::Plan;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+
+our $VERSION = '3.42';
+
+
+##############################################################################
+
+
+sub plan { '1..' . shift->{tests_planned} }
+
+##############################################################################
+
+
+sub tests_planned { shift->{tests_planned} }
+
+##############################################################################
+
+
+sub directive { shift->{directive} }
+
+##############################################################################
+
+
+sub explanation { shift->{explanation} }
+
+
+sub todo_list { shift->{todo_list} }
+
+1;
+package TAP::Parser::SourceHandler::Executable;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory   ();
+use TAP::Parser::Iterator::Process ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    if ( $meta->{is_file} ) {
+        my $file = $meta->{file};
+
+        return 0.85 if $file->{execute} && $file->{binary};
+        return 0.8 if $file->{lc_ext} eq '.bat';
+        return 0.25 if $file->{execute};
+    }
+    elsif ( $meta->{is_hash} ) {
+        return 0.9 if $src->raw->{exec};
+    }
+
+    return 0;
+}
+
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+    my $meta = $source->meta;
+
+    my @command;
+    if ( $meta->{is_hash} ) {
+        @command = @{ $source->raw->{exec} || [] };
+    }
+    elsif ( $meta->{is_scalar} ) {
+        @command = ${ $source->raw };
+    }
+    elsif ( $meta->{is_array} ) {
+        @command = @{ $source->raw };
+    }
+
+    $class->_croak('No command found in $source->raw!') unless @command;
+
+    $class->_autoflush( \*STDOUT );
+    $class->_autoflush( \*STDERR );
+
+    push @command, @{ $source->test_args || [] };
+
+    return $class->iterator_class->new(
+        {   command => \@command,
+            merge   => $source->merge
+        }
+    );
+}
+
+
+use constant iterator_class => 'TAP::Parser::Iterator::Process';
+
+# Turns on autoflush for the handle passed
+sub _autoflush {
+    my ( $class, $flushed ) = @_;
+    my $old_fh = select $flushed;
+    $| = 1;
+    select $old_fh;
+}
+
+1;
+
+package TAP::Parser::SourceHandler::RawTAP;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory ();
+use TAP::Parser::Iterator::Array ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    return 0 if $meta->{file};
+    if ( $meta->{is_scalar} ) {
+        return 0 unless $meta->{has_newlines};
+        return 0.9 if ${ $src->raw } =~ /\d\.\.\d/;
+        return 0.7 if ${ $src->raw } =~ /ok/;
+        return 0.3;
+    }
+    elsif ( $meta->{is_array} ) {
+        return 0.5;
+    }
+    return 0;
+}
+
+
+sub make_iterator {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    my $tap_array;
+    if ( $meta->{is_scalar} ) {
+        $tap_array = [ split "\n" => ${ $src->raw } ];
+    }
+    elsif ( $meta->{is_array} ) {
+        $tap_array = $src->raw;
+    }
+
+    $class->_croak('No raw TAP found in $source->raw')
+      unless scalar $tap_array;
+
+    return TAP::Parser::Iterator::Array->new($tap_array);
+}
+
+1;
+
+package TAP::Parser::SourceHandler::Perl;
+
+use strict;
+use warnings;
+use Config;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => ( $^O eq 'VMS' );
+
+use TAP::Parser::IteratorFactory           ();
+use TAP::Parser::Iterator::Process         ();
+use Text::ParseWords qw(shellwords);
+
+use base 'TAP::Parser::SourceHandler::Executable';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $source ) = @_;
+    my $meta = $source->meta;
+
+    return 0 unless $meta->{is_file};
+    my $file = $meta->{file};
+
+    if ( my $shebang = $file->{shebang} ) {
+        return 0.9 if $shebang =~ /^#!.*\bperl/;
+
+        # We favour Perl as the interpreter for any shebang to preserve
+        # previous semantics: we used to execute everything via Perl and
+        # relied on it to pass the shebang off to the appropriate
+        # interpreter.
+        return 0.3;
+    }
+
+    return 0.8 if $file->{lc_ext} eq '.t';    # vote higher than Executable
+    return 0.9 if $file->{lc_ext} eq '.pl';
+
+    return 0.75 if $file->{dir} =~ /^t\b/;    # vote higher than Executable
+
+    # backwards compat, always vote:
+    return 0.25;
+}
+
+
+sub _autoflush_stdhandles {
+    my ($class) = @_;
+
+    $class->_autoflush( \*STDOUT );
+    $class->_autoflush( \*STDERR );
+}
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+    my $meta        = $source->meta;
+    my $perl_script = ${ $source->raw };
+
+    $class->_croak("Cannot find ($perl_script)") unless $meta->{is_file};
+
+    # TODO: does this really need to be done here?
+    $class->_autoflush_stdhandles;
+
+    my ( $libs, $switches )
+      = $class->_mangle_switches(
+        $class->_filter_libs( $class->_switches($source) ) );
+
+    $class->_run( $source, $libs, $switches );
+}
+
+
+sub _has_taint_switch {
+    my( $class, $switches ) = @_;
+
+    my $has_taint = grep { $_ eq "-T" || $_ eq "-t" } @{$switches};
+    return $has_taint ? 1 : 0;
+}
+
+sub _mangle_switches {
+    my ( $class, $libs, $switches ) = @_;
+
+    # Taint mode ignores environment variables so we must retranslate
+    # PERL5LIB as -I switches and place PERL5OPT on the command line
+    # in order that it be seen.
+    if ( $class->_has_taint_switch($switches) ) {
+        my @perl5lib = defined $ENV{PERL5LIB} ? split /$Config{path_sep}/, $ENV{PERL5LIB} : ();
+        return (
+            $libs,
+            [   @{$switches},
+                $class->_libs2switches([@$libs, @perl5lib]),
+                defined $ENV{PERL5OPT} ? shellwords( $ENV{PERL5OPT} ) : ()
+            ],
+        );
+    }
+
+    return ( $libs, $switches );
+}
+
+sub _filter_libs {
+    my ( $class, @switches ) = @_;
+
+    my $path_sep = $Config{path_sep};
+    my $path_re  = qr{$path_sep};
+
+    # Filter out any -I switches to be handled as libs later.
+    #
+    # Nasty kludge. It might be nicer if we got the libs separately
+    # although at least this way we find any -I switches that were
+    # supplied other then as explicit libs.
+    #
+    # We filter out any names containing colons because they will break
+    # PERL5LIB
+    my @libs;
+    my @filtered_switches;
+    for (@switches) {
+        if ( !/$path_re/ && m/ ^ ['"]? -I ['"]? (.*?) ['"]? $ /x ) {
+            push @libs, $1;
+        }
+        else {
+            push @filtered_switches, $_;
+        }
+    }
+
+    return \@libs, \@filtered_switches;
+}
+
+sub _iterator_hooks {
+    my ( $class, $source, $libs, $switches ) = @_;
+
+    my $setup = sub {
+        if ( @{$libs} and !$class->_has_taint_switch($switches) ) {
+            $ENV{PERL5LIB} = join(
+                $Config{path_sep}, grep {defined} @{$libs},
+                $ENV{PERL5LIB}
+            );
+        }
+    };
+
+    # VMS environment variables aren't guaranteed to reset at the end of
+    # the process, so we need to put PERL5LIB back.
+    my $previous = $ENV{PERL5LIB};
+    my $teardown = sub {
+        if ( defined $previous ) {
+            $ENV{PERL5LIB} = $previous;
+        }
+        else {
+            delete $ENV{PERL5LIB};
+        }
+    };
+
+    return ( $setup, $teardown );
+}
+
+sub _run {
+    my ( $class, $source, $libs, $switches ) = @_;
+
+    my @command = $class->_get_command_for_switches( $source, $switches )
+      or $class->_croak("No command found!");
+
+    my ( $setup, $teardown ) = $class->_iterator_hooks( $source, $libs, $switches );
+
+    return $class->_create_iterator( $source, \@command, $setup, $teardown );
+}
+
+sub _create_iterator {
+    my ( $class, $source, $command, $setup, $teardown ) = @_;
+
+    return TAP::Parser::Iterator::Process->new(
+        {   command  => $command,
+            merge    => $source->merge,
+            setup    => $setup,
+            teardown => $teardown,
+        }
+    );
+}
+
+sub _get_command_for_switches {
+    my ( $class, $source, $switches ) = @_;
+    my $file    = ${ $source->raw };
+    my @args    = @{ $source->test_args || [] };
+    my $command = $class->get_perl;
+
+   # XXX don't need to quote if we treat the parts as atoms (except maybe vms)
+   #$file = qq["$file"] if ( $file =~ /\s/ ) && ( $file !~ /^".*"$/ );
+    my @command = ( $command, @{$switches}, $file, @args );
+    return @command;
+}
+
+sub _libs2switches {
+    my $class = shift;
+    return map {"-I$_"} grep {$_} @{ $_[0] };
+}
+
+
+sub get_taint {
+    my ( $class, $shebang ) = @_;
+    return
+      unless defined $shebang
+          && $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/;
+    return $1;
+}
+
+sub _switches {
+    my ( $class, $source ) = @_;
+    my $file     = ${ $source->raw };
+    my @switches = @{ $source->switches || [] };
+    my $shebang  = $source->meta->{file}->{shebang};
+    return unless defined $shebang;
+
+    my $taint = $class->get_taint($shebang);
+    push @switches, "-$taint" if defined $taint;
+
+    # Quote the argument if we're VMS, since VMS will downcase anything
+    # not quoted.
+    if (IS_VMS) {
+        for (@switches) {
+            $_ = qq["$_"];
+        }
+    }
+
+    return @switches;
+}
+
+
+sub get_perl {
+    my $class = shift;
+    return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL};
+    return qq["$^X"] if IS_WIN32 && ( $^X =~ /[^\w\.\/\\]/ );
+    return $^X;
+}
+
+1;
+
+__END__
+
+package TAP::Parser::SourceHandler::File;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory  ();
+use TAP::Parser::Iterator::Stream ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta   = $src->meta;
+    my $config = $src->config_for($class);
+
+    return 0 unless $meta->{is_file};
+    my $file = $meta->{file};
+    return 0.9 if $file->{lc_ext} eq '.tap';
+
+    if ( my $exts = $config->{extensions} ) {
+        my @exts = ref $exts eq 'ARRAY' ? @$exts : $exts;
+        return 0.9 if grep { lc($_) eq $file->{lc_ext} } @exts;
+    }
+
+    return 0;
+}
+
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+
+    $class->_croak('$source->raw must be a scalar ref')
+      unless $source->meta->{is_scalar};
+
+    my $file = ${ $source->raw };
+    my $fh;
+    open( $fh, '<', $file )
+      or $class->_croak("error opening TAP source file '$file': $!");
+    return $class->iterator_class->new($fh);
+}
+
+
+use constant iterator_class => 'TAP::Parser::Iterator::Stream';
+
+1;
+
+__END__
+
+package TAP::Parser::SourceHandler::Handle;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory  ();
+use TAP::Parser::Iterator::Stream ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+
+our $VERSION = '3.42';
+
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    return 0.9
+      if $meta->{is_object}
+          && UNIVERSAL::isa( $src->raw, 'IO::Handle' );
+
+    return 0.8 if $meta->{is_glob};
+
+    return 0;
+}
+
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+
+    $class->_croak('$source->raw must be a glob ref or an IO::Handle')
+      unless $source->meta->{is_glob}
+          || UNIVERSAL::isa( $source->raw, 'IO::Handle' );
+
+    return $class->iterator_class->new( $source->raw );
+}
+
+
+use constant iterator_class => 'TAP::Parser::Iterator::Stream';
+
+1;
+
+package Search::Dict;
+require 5.000;
+require Exporter;
+
+my $fc_available;
+BEGIN {
+  $fc_available = '5.015008';
+  if ( $] ge $fc_available ) {
+    require feature;
+    'feature'->import('fc'); # string avoids warning on old Perls <sigh>
+  }
+}
+
+use strict;
+
+our $VERSION = '1.07';
+our @ISA = qw(Exporter);
+our @EXPORT = qw(look);
+
+
+sub look {
+    my($fh,$key,$dict,$fold) = @_;
+    my ($comp, $xfrm);
+    if (@_ == 3 && ref $dict eq 'HASH') {
+	my $params = $dict;
+	$dict = 0;
+	$dict = $params->{dict} if exists $params->{dict};
+	$fold = $params->{fold} if exists $params->{fold};
+	$comp = $params->{comp} if exists $params->{comp};
+	$xfrm = $params->{xfrm} if exists $params->{xfrm};
+    }
+    $comp = sub { $_[0] cmp $_[1] } unless defined $comp;
+    local($_);
+    my $fno = fileno $fh;
+    my @stat;
+    if ( defined $fno && $fno >= 0 && ! tied *{$fh} ) { # real, open file
+      @stat = eval { stat($fh) }; # in case fileno lies
+    }
+    my($size, $blksize) = @stat[7,11];
+    $size = do { seek($fh,0,2); my $s = tell($fh); seek($fh,0,0); $s }
+        unless defined $size;
+    $blksize ||= 8192;
+    $key =~ s/[^\w\s]//g if $dict;
+    if ( $fold ) {
+      $key = $] ge $fc_available ? fc($key) : lc($key);
+    }
+    # find the right block
+    my($min, $max) = (0, int($size / $blksize));
+    my $mid;
+    while ($max - $min > 1) {
+	$mid = int(($max + $min) / 2);
+	seek($fh, $mid * $blksize, 0)
+	    or return -1;
+	<$fh> if $mid;			# probably a partial line
+	$_ = <$fh>;
+	$_ = $xfrm->($_) if defined $xfrm;
+	chomp;
+	s/[^\w\s]//g if $dict;
+        if ( $fold ) {
+          $_ = $] ge $fc_available ? fc($_) : lc($_);
+        }
+	if (defined($_) && $comp->($_, $key) < 0) {
+	    $min = $mid;
+	}
+	else {
+	    $max = $mid;
+	}
+    }
+    # find the right line
+    $min *= $blksize;
+    seek($fh,$min,0)
+	or return -1;
+    <$fh> if $min;
+    for (;;) {
+	$min = tell($fh);
+	defined($_ = <$fh>)
+	    or last;
+	$_ = $xfrm->($_) if defined $xfrm;
+	chomp;
+	s/[^\w\s]//g if $dict;
+        if ( $fold ) {
+          $_ = $] ge $fc_available ? fc($_) : lc($_);
+        }
+	last if $comp->($_, $key) >= 0;
+    }
+    seek($fh,$min,0);
+    $min;
+}
+
+1;
+# SpecialCasing-10.0.0.txt
+# Date: 2017-04-14, 05:40:43 GMT
+# © 2017 Unicode®, Inc.
+# Unicode and the Unicode Logo are registered trademarks of Unicode, Inc. in the U.S. and other countries.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+#
+# Unicode Character Database
+#   For documentation, see http://www.unicode.org/reports/tr44/
+#
+# Special Casing
+#
+# This file is a supplement to the UnicodeData.txt file. It does not define any
+# properties, but rather provides additional information about the casing of
+# Unicode characters, for situations when casing incurs a change in string length
+# or is dependent on context or locale. For compatibility, the UnicodeData.txt
+# file only contains simple case mappings for characters where they are one-to-one
+# and independent of context and language. The data in this file, combined with
+# the simple case mappings in UnicodeData.txt, defines the full case mappings
+# Lowercase_Mapping (lc), Titlecase_Mapping (tc), and Uppercase_Mapping (uc).
+#
+# Note that the preferred mechanism for defining tailored casing operations is
+# the Unicode Common Locale Data Repository (CLDR). For more information, see the
+# discussion of case mappings and case algorithms in the Unicode Standard.
+#
+# All code points not listed in this file that do not have a simple case mappings
+# in UnicodeData.txt map to themselves.
+# ================================================================================
+# Format
+# ================================================================================
+# The entries in this file are in the following machine-readable format:
+#
+# <code>; <lower>; <title>; <upper>; (<condition_list>;)? # <comment>
+#
+# <code>, <lower>, <title>, and <upper> provide the respective full case mappings
+# of <code>, expressed as character values in hex. If there is more than one character,
+# they are separated by spaces. Other than as used to separate elements, spaces are
+# to be ignored.
+#
+# The <condition_list> is optional. Where present, it consists of one or more language IDs
+# or casing contexts, separated by spaces. In these conditions:
+# - A condition list overrides the normal behavior if all of the listed conditions are true.
+# - The casing context is always the context of the characters in the original string,
+#   NOT in the resulting string.
+# - Case distinctions in the condition list are not significant.
+# - Conditions preceded by "Not_" represent the negation of the condition.
+# The condition list is not represented in the UCD as a formal property.
+#
+# A language ID is defined by BCP 47, with '-' and '_' treated equivalently.
+#
+# A casing context for a character is defined by Section 3.13 Default Case Algorithms
+# of The Unicode Standard.
+#
+# Parsers of this file must be prepared to deal with future additions to this format:
+#  * Additional contexts
+#  * Additional fields
+# ================================================================================
+
+# ================================================================================
+# Unconditional mappings
+# ================================================================================
+
+# The German es-zed is special--the normal mapping is to SS.
+# Note: the titlecase should never occur in practice. It is equal to titlecase(uppercase(<es-zed>))
+
+00DF; 00DF; 0053 0073; 0053 0053; # LATIN SMALL LETTER SHARP S
+
+# Preserve canonical equivalence for I with dot. Turkic is handled below.
+
+0130; 0069 0307; 0130; 0130; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+
+# Ligatures
+
+FB00; FB00; 0046 0066; 0046 0046; # LATIN SMALL LIGATURE FF
+FB01; FB01; 0046 0069; 0046 0049; # LATIN SMALL LIGATURE FI
+FB02; FB02; 0046 006C; 0046 004C; # LATIN SMALL LIGATURE FL
+FB03; FB03; 0046 0066 0069; 0046 0046 0049; # LATIN SMALL LIGATURE FFI
+FB04; FB04; 0046 0066 006C; 0046 0046 004C; # LATIN SMALL LIGATURE FFL
+FB05; FB05; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE LONG S T
+FB06; FB06; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE ST
+
+0587; 0587; 0535 0582; 0535 0552; # ARMENIAN SMALL LIGATURE ECH YIWN
+FB13; FB13; 0544 0576; 0544 0546; # ARMENIAN SMALL LIGATURE MEN NOW
+FB14; FB14; 0544 0565; 0544 0535; # ARMENIAN SMALL LIGATURE MEN ECH
+FB15; FB15; 0544 056B; 0544 053B; # ARMENIAN SMALL LIGATURE MEN INI
+FB16; FB16; 054E 0576; 054E 0546; # ARMENIAN SMALL LIGATURE VEW NOW
+FB17; FB17; 0544 056D; 0544 053D; # ARMENIAN SMALL LIGATURE MEN XEH
+
+# No corresponding uppercase precomposed character
+
+0149; 0149; 02BC 004E; 02BC 004E; # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+0390; 0390; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+03B0; 03B0; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+01F0; 01F0; 004A 030C; 004A 030C; # LATIN SMALL LETTER J WITH CARON
+1E96; 1E96; 0048 0331; 0048 0331; # LATIN SMALL LETTER H WITH LINE BELOW
+1E97; 1E97; 0054 0308; 0054 0308; # LATIN SMALL LETTER T WITH DIAERESIS
+1E98; 1E98; 0057 030A; 0057 030A; # LATIN SMALL LETTER W WITH RING ABOVE
+1E99; 1E99; 0059 030A; 0059 030A; # LATIN SMALL LETTER Y WITH RING ABOVE
+1E9A; 1E9A; 0041 02BE; 0041 02BE; # LATIN SMALL LETTER A WITH RIGHT HALF RING
+1F50; 1F50; 03A5 0313; 03A5 0313; # GREEK SMALL LETTER UPSILON WITH PSILI
+1F52; 1F52; 03A5 0313 0300; 03A5 0313 0300; # GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+1F54; 1F54; 03A5 0313 0301; 03A5 0313 0301; # GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+1F56; 1F56; 03A5 0313 0342; 03A5 0313 0342; # GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+1FB6; 1FB6; 0391 0342; 0391 0342; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+1FC6; 1FC6; 0397 0342; 0397 0342; # GREEK SMALL LETTER ETA WITH PERISPOMENI
+1FD2; 1FD2; 0399 0308 0300; 0399 0308 0300; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
+1FD3; 1FD3; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
+1FD6; 1FD6; 0399 0342; 0399 0342; # GREEK SMALL LETTER IOTA WITH PERISPOMENI
+1FD7; 1FD7; 0399 0308 0342; 0399 0308 0342; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
+1FE2; 1FE2; 03A5 0308 0300; 03A5 0308 0300; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
+1FE3; 1FE3; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
+1FE4; 1FE4; 03A1 0313; 03A1 0313; # GREEK SMALL LETTER RHO WITH PSILI
+1FE6; 1FE6; 03A5 0342; 03A5 0342; # GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+1FE7; 1FE7; 03A5 0308 0342; 03A5 0308 0342; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
+1FF6; 1FF6; 03A9 0342; 03A9 0342; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+
+# IMPORTANT-when iota-subscript (0345) is uppercased or titlecased,
+#  the result will be incorrect unless the iota-subscript is moved to the end
+#  of any sequence of combining marks. Otherwise, the accents will go on the capital iota.
+#  This process can be achieved by first transforming the text to NFC before casing.
+#  E.g. <alpha><iota_subscript><acute> is uppercased to <ALPHA><acute><IOTA>
+
+# The following cases are already in the UnicodeData.txt file, so are only commented here.
+
+# 0345; 0345; 0345; 0399; # COMBINING GREEK YPOGEGRAMMENI
+
+# All letters with YPOGEGRAMMENI (iota-subscript) or PROSGEGRAMMENI (iota adscript)
+# have special uppercases.
+# Note: characters with PROSGEGRAMMENI are actually titlecase, not uppercase!
+
+1F80; 1F80; 1F88; 1F08 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+1F81; 1F81; 1F89; 1F09 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+1F82; 1F82; 1F8A; 1F0A 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F83; 1F83; 1F8B; 1F0B 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F84; 1F84; 1F8C; 1F0C 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F85; 1F85; 1F8D; 1F0D 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F86; 1F86; 1F8E; 1F0E 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F87; 1F87; 1F8F; 1F0F 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F88; 1F80; 1F88; 1F08 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+1F89; 1F81; 1F89; 1F09 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+1F8A; 1F82; 1F8A; 1F0A 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F8B; 1F83; 1F8B; 1F0B 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F8C; 1F84; 1F8C; 1F0C 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F8D; 1F85; 1F8D; 1F0D 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F8E; 1F86; 1F8E; 1F0E 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F8F; 1F87; 1F8F; 1F0F 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1F90; 1F90; 1F98; 1F28 0399; # GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+1F91; 1F91; 1F99; 1F29 0399; # GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+1F92; 1F92; 1F9A; 1F2A 0399; # GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F93; 1F93; 1F9B; 1F2B 0399; # GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F94; 1F94; 1F9C; 1F2C 0399; # GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F95; 1F95; 1F9D; 1F2D 0399; # GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F96; 1F96; 1F9E; 1F2E 0399; # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F97; 1F97; 1F9F; 1F2F 0399; # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F98; 1F90; 1F98; 1F28 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+1F99; 1F91; 1F99; 1F29 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+1F9A; 1F92; 1F9A; 1F2A 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F9B; 1F93; 1F9B; 1F2B 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F9C; 1F94; 1F9C; 1F2C 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F9D; 1F95; 1F9D; 1F2D 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F9E; 1F96; 1F9E; 1F2E 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F9F; 1F97; 1F9F; 1F2F 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1FA0; 1FA0; 1FA8; 1F68 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+1FA1; 1FA1; 1FA9; 1F69 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+1FA2; 1FA2; 1FAA; 1F6A 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1FA3; 1FA3; 1FAB; 1F6B 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1FA4; 1FA4; 1FAC; 1F6C 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1FA5; 1FA5; 1FAD; 1F6D 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1FA6; 1FA6; 1FAE; 1F6E 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1FA7; 1FA7; 1FAF; 1F6F 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1FA8; 1FA0; 1FA8; 1F68 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+1FA9; 1FA1; 1FA9; 1F69 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+1FAA; 1FA2; 1FAA; 1F6A 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1FAB; 1FA3; 1FAB; 1F6B 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1FAC; 1FA4; 1FAC; 1F6C 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1FAD; 1FA5; 1FAD; 1F6D 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1FAE; 1FA6; 1FAE; 1F6E 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1FAF; 1FA7; 1FAF; 1F6F 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1FB3; 1FB3; 1FBC; 0391 0399; # GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+1FBC; 1FB3; 1FBC; 0391 0399; # GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+1FC3; 1FC3; 1FCC; 0397 0399; # GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+1FCC; 1FC3; 1FCC; 0397 0399; # GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+1FF3; 1FF3; 1FFC; 03A9 0399; # GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+1FFC; 1FF3; 1FFC; 03A9 0399; # GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+
+# Some characters with YPOGEGRAMMENI also have no corresponding titlecases
+
+1FB2; 1FB2; 1FBA 0345; 1FBA 0399; # GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+1FB4; 1FB4; 0386 0345; 0386 0399; # GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+1FC2; 1FC2; 1FCA 0345; 1FCA 0399; # GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+1FC4; 1FC4; 0389 0345; 0389 0399; # GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+1FF2; 1FF2; 1FFA 0345; 1FFA 0399; # GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+1FF4; 1FF4; 038F 0345; 038F 0399; # GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+
+1FB7; 1FB7; 0391 0342 0345; 0391 0342 0399; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FC7; 1FC7; 0397 0342 0345; 0397 0342 0399; # GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FF7; 1FF7; 03A9 0342 0345; 03A9 0342 0399; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+
+# ================================================================================
+# Conditional Mappings
+# The remainder of this file provides conditional casing data used to produce
+# full case mappings.
+# ================================================================================
+# Language-Insensitive Mappings
+# These are characters whose full case mappings do not depend on language, but do
+# depend on context (which characters come before or after). For more information
+# see the header of this file and the Unicode Standard.
+# ================================================================================
+
+# Special case for final form of sigma
+
+03A3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK CAPITAL LETTER SIGMA
+
+# Note: the following cases for non-final are already in the UnicodeData.txt file.
+
+# 03A3; 03C3; 03A3; 03A3; # GREEK CAPITAL LETTER SIGMA
+# 03C3; 03C3; 03A3; 03A3; # GREEK SMALL LETTER SIGMA
+# 03C2; 03C2; 03A3; 03A3; # GREEK SMALL LETTER FINAL SIGMA
+
+# Note: the following cases are not included, since they would case-fold in lowercasing
+
+# 03C3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK SMALL LETTER SIGMA
+# 03C2; 03C3; 03A3; 03A3; Not_Final_Sigma; # GREEK SMALL LETTER FINAL SIGMA
+
+# ================================================================================
+# Language-Sensitive Mappings
+# These are characters whose full case mappings depend on language and perhaps also
+# context (which characters come before or after). For more information
+# see the header of this file and the Unicode Standard.
+# ================================================================================
+
+# Lithuanian
+
+# Lithuanian retains the dot in a lowercase i when followed by accents.
+
+# Remove DOT ABOVE after "i" with upper or titlecase
+
+0307; 0307; ; ; lt After_Soft_Dotted; # COMBINING DOT ABOVE
+
+# Introduce an explicit dot above when lowercasing capital I's and J's
+# whenever there are more accents above.
+# (of the accents used in Lithuanian: grave, acute, tilde above, and ogonek)
+
+0049; 0069 0307; 0049; 0049; lt More_Above; # LATIN CAPITAL LETTER I
+004A; 006A 0307; 004A; 004A; lt More_Above; # LATIN CAPITAL LETTER J
+012E; 012F 0307; 012E; 012E; lt More_Above; # LATIN CAPITAL LETTER I WITH OGONEK
+00CC; 0069 0307 0300; 00CC; 00CC; lt; # LATIN CAPITAL LETTER I WITH GRAVE
+00CD; 0069 0307 0301; 00CD; 00CD; lt; # LATIN CAPITAL LETTER I WITH ACUTE
+0128; 0069 0307 0303; 0128; 0128; lt; # LATIN CAPITAL LETTER I WITH TILDE
+
+# ================================================================================
+
+# Turkish and Azeri
+
+# I and i-dotless; I-dot and i are case pairs in Turkish and Azeri
+# The following rules handle those cases.
+
+0130; 0069; 0130; 0130; tr; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0130; 0069; 0130; 0130; az; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+
+# When lowercasing, remove dot_above in the sequence I + dot_above, which will turn into i.
+# This matches the behavior of the canonically equivalent I-dot_above
+
+0307; ; 0307; 0307; tr After_I; # COMBINING DOT ABOVE
+0307; ; 0307; 0307; az After_I; # COMBINING DOT ABOVE
+
+# When lowercasing, unless an I is before a dot_above, it turns into a dotless i.
+
+0049; 0131; 0049; 0049; tr Not_Before_Dot; # LATIN CAPITAL LETTER I
+0049; 0131; 0049; 0049; az Not_Before_Dot; # LATIN CAPITAL LETTER I
+
+# When uppercasing, i turns into a dotted capital I
+
+0069; 0069; 0130; 0130; tr; # LATIN SMALL LETTER I
+0069; 0069; 0130; 0130; az; # LATIN SMALL LETTER I
+
+# Note: the following case is already in the UnicodeData.txt file.
+
+# 0131; 0131; 0049; 0049; tr; # LATIN SMALL LETTER DOTLESS I
+
+# EOF
+
+# NamedSequences-10.0.0.txt
+# Date: 2017-04-13, 01:00:00 GMT [KW, LI]
+# © 2017 Unicode®, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+#
+# Unicode Character Database
+# For documentation, see http://www.unicode.org/reports/tr44/
+#
+# Unicode Named Character Sequences
+#
+# This file is a normative contributory data file in the Unicode
+# Character Database.
+#
+# Format:
+# Name of Sequence; Code Point Sequence for USI
+#
+# Code point sequences in the Unicode Character Database
+# use spaces as delimiters. The corresponding format for a
+# UCS Sequence Identifier (USI) in ISO/IEC 10646 uses
+# comma delimitation and angle brackets. Thus, a Unicode
+# named character sequence of the form:
+#
+# EXAMPLE NAME;1000 1001 1002
+#
+# in this data file, would correspond to an ISO/IEC 10646 USI
+# as follows:
+#
+# <1000, 1001, 1002>
+#
+# For more information, see UAX #34: Unicode Named Character
+# Sequences, at http://www.unicode.org/unicode/reports/tr34/
+#
+# Note: The order of entries in this file is not significant.
+# However, entries are generally in script order corresponding
+# to block order in the Unicode Standard, to make it easier
+# to find entries in the list.
+
+# ================================================
+
+# Named keycap sequences for telephone keypad (used for emoji)
+# Provisional, 2015-05-05
+# FE0F added to the sequences, 2016-05-11
+# Approved 2017-05-12
+
+KEYCAP NUMBER SIGN;0023 FE0F 20E3
+KEYCAP ASTERISK;002A FE0F 20E3
+KEYCAP DIGIT ZERO;0030 FE0F 20E3
+KEYCAP DIGIT ONE;0031 FE0F 20E3
+KEYCAP DIGIT TWO;0032 FE0F 20E3
+KEYCAP DIGIT THREE;0033 FE0F 20E3
+KEYCAP DIGIT FOUR;0034 FE0F 20E3
+KEYCAP DIGIT FIVE;0035 FE0F 20E3
+KEYCAP DIGIT SIX;0036 FE0F 20E3
+KEYCAP DIGIT SEVEN;0037 FE0F 20E3
+KEYCAP DIGIT EIGHT;0038 FE0F 20E3
+KEYCAP DIGIT NINE;0039 FE0F 20E3
+
+# Latin letter plus accent combinations.
+# These are part of the original set of approved named sequences
+# for Unicode 4.1. 2005.
+
+LATIN CAPITAL LETTER A WITH MACRON AND GRAVE;0100 0300
+LATIN SMALL LETTER A WITH MACRON AND GRAVE;0101 0300
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW;0045 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW;0065 0329
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00C8 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00E8 0329
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00C9 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00E9 0329
+LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON;00CA 0304
+LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON;00EA 0304
+LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON;00CA 030C
+LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON;00EA 030C
+LATIN CAPITAL LETTER I WITH MACRON AND GRAVE;012A 0300
+LATIN SMALL LETTER I WITH MACRON AND GRAVE;012B 0300
+LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE;0069 0307 0301
+LATIN SMALL LETTER NG WITH TILDE ABOVE;006E 0360 0067
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW;004F 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW;006F 0329
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00D2 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00F2 0329
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00D3 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00F3 0329
+LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW;0053 0329
+LATIN SMALL LETTER S WITH VERTICAL LINE BELOW;0073 0329
+LATIN CAPITAL LETTER U WITH MACRON AND GRAVE;016A 0300
+LATIN SMALL LETTER U WITH MACRON AND GRAVE;016B 0300
+
+# Additions for Lithuanian.
+# Provisional 2006-05-18, Approved 2007-10-19
+
+LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE;0104 0301
+LATIN SMALL LETTER A WITH OGONEK AND ACUTE;0105 0301
+LATIN CAPITAL LETTER A WITH OGONEK AND TILDE;0104 0303
+LATIN SMALL LETTER A WITH OGONEK AND TILDE;0105 0303
+LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE;0118 0301
+LATIN SMALL LETTER E WITH OGONEK AND ACUTE;0119 0301
+LATIN CAPITAL LETTER E WITH OGONEK AND TILDE;0118 0303
+LATIN SMALL LETTER E WITH OGONEK AND TILDE;0119 0303
+LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE;0116 0301
+LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE;0117 0301
+LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE;0116 0303
+LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE;0117 0303
+LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE;0069 0307 0300
+LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE;0069 0307 0303
+LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE;012E 0301
+LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE;012F 0307 0301
+LATIN CAPITAL LETTER I WITH OGONEK AND TILDE;012E 0303
+LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE;012F 0307 0303
+LATIN CAPITAL LETTER J WITH TILDE;004A 0303
+LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE;006A 0307 0303
+LATIN CAPITAL LETTER L WITH TILDE;004C 0303
+LATIN SMALL LETTER L WITH TILDE;006C 0303
+LATIN CAPITAL LETTER M WITH TILDE;004D 0303
+LATIN SMALL LETTER M WITH TILDE;006D 0303
+LATIN CAPITAL LETTER R WITH TILDE;0052 0303
+LATIN SMALL LETTER R WITH TILDE;0072 0303
+LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE;0172 0301
+LATIN SMALL LETTER U WITH OGONEK AND ACUTE;0173 0301
+LATIN CAPITAL LETTER U WITH OGONEK AND TILDE;0172 0303
+LATIN SMALL LETTER U WITH OGONEK AND TILDE;0173 0303
+LATIN CAPITAL LETTER U WITH MACRON AND ACUTE;016A 0301
+LATIN SMALL LETTER U WITH MACRON AND ACUTE;016B 0301
+LATIN CAPITAL LETTER U WITH MACRON AND TILDE;016A 0303
+LATIN SMALL LETTER U WITH MACRON AND TILDE;016B 0303
+
+# Entries for JIS X 0213 compatibility mapping.
+# Provisional 2008-11-07, Approved 2010-05-14
+
+LATIN SMALL LETTER AE WITH GRAVE;00E6 0300
+LATIN SMALL LETTER OPEN O WITH GRAVE;0254 0300
+LATIN SMALL LETTER OPEN O WITH ACUTE;0254 0301
+LATIN SMALL LETTER TURNED V WITH GRAVE;028C 0300
+LATIN SMALL LETTER TURNED V WITH ACUTE;028C 0301
+LATIN SMALL LETTER SCHWA WITH GRAVE;0259 0300
+LATIN SMALL LETTER SCHWA WITH ACUTE;0259 0301
+LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE;025A 0300
+LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE;025A 0301
+
+# Entries for Uyghur and Chagatai.
+# Provisional N/A, Approved 2012-11-08
+
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF;0626 0627
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW;0626 0648
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA;0626 0649
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE;0626 06C6
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U;0626 06C7
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU;0626 06C8
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E;0626 06D0
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE;0626 06D5
+ARABIC SEQUENCE NOON WITH KEHEH;0646 06A9
+
+# Entry for a Bangla entity.
+# Provisional 2009-08-10, Approved 2010-05-14
+#
+# Note that this same sequence is also used for the ASSAMESE LETTER KSSA.
+
+BENGALI LETTER KHINYA;0995 09CD 09B7
+
+# Additions for Tamil.
+# Provisional 2008-02-08, Approved 2009-08-14
+#
+# A visual display of the Tamil named character sequences is available
+# in the documentation for the Unicode Standard. See Section 12.6, Tamil in
+# http://www.unicode.org/versions/latest/
+
+TAMIL CONSONANT K;  0B95 0BCD
+TAMIL CONSONANT NG; 0B99 0BCD
+TAMIL CONSONANT C;  0B9A 0BCD
+TAMIL CONSONANT NY; 0B9E 0BCD
+TAMIL CONSONANT TT; 0B9F 0BCD
+TAMIL CONSONANT NN; 0BA3 0BCD
+TAMIL CONSONANT T;  0BA4 0BCD
+TAMIL CONSONANT N;  0BA8 0BCD
+TAMIL CONSONANT P;  0BAA 0BCD
+TAMIL CONSONANT M;  0BAE 0BCD
+TAMIL CONSONANT Y;  0BAF 0BCD
+TAMIL CONSONANT R;  0BB0 0BCD
+TAMIL CONSONANT L;  0BB2 0BCD
+TAMIL CONSONANT V;  0BB5 0BCD
+TAMIL CONSONANT LLL;0BB4 0BCD
+TAMIL CONSONANT LL; 0BB3 0BCD
+TAMIL CONSONANT RR; 0BB1 0BCD
+TAMIL CONSONANT NNN;0BA9 0BCD
+TAMIL CONSONANT J;  0B9C 0BCD
+TAMIL CONSONANT SH; 0BB6 0BCD
+TAMIL CONSONANT SS; 0BB7 0BCD
+TAMIL CONSONANT S;  0BB8 0BCD
+TAMIL CONSONANT H;  0BB9 0BCD
+TAMIL CONSONANT KSS;0B95 0BCD 0BB7 0BCD
+
+TAMIL SYLLABLE KAA; 0B95 0BBE
+TAMIL SYLLABLE KI;  0B95 0BBF
+TAMIL SYLLABLE KII; 0B95 0BC0
+TAMIL SYLLABLE KU;  0B95 0BC1
+TAMIL SYLLABLE KUU; 0B95 0BC2
+TAMIL SYLLABLE KE;  0B95 0BC6
+TAMIL SYLLABLE KEE; 0B95 0BC7
+TAMIL SYLLABLE KAI; 0B95 0BC8
+TAMIL SYLLABLE KO;  0B95 0BCA
+TAMIL SYLLABLE KOO; 0B95 0BCB
+TAMIL SYLLABLE KAU; 0B95 0BCC
+
+TAMIL SYLLABLE NGAA; 0B99 0BBE
+TAMIL SYLLABLE NGI;  0B99 0BBF
+TAMIL SYLLABLE NGII; 0B99 0BC0
+TAMIL SYLLABLE NGU;  0B99 0BC1
+TAMIL SYLLABLE NGUU; 0B99 0BC2
+TAMIL SYLLABLE NGE;  0B99 0BC6
+TAMIL SYLLABLE NGEE; 0B99 0BC7
+TAMIL SYLLABLE NGAI; 0B99 0BC8
+TAMIL SYLLABLE NGO;  0B99 0BCA
+TAMIL SYLLABLE NGOO; 0B99 0BCB
+TAMIL SYLLABLE NGAU; 0B99 0BCC
+
+TAMIL SYLLABLE CAA; 0B9A 0BBE
+TAMIL SYLLABLE CI;  0B9A 0BBF
+TAMIL SYLLABLE CII; 0B9A 0BC0
+TAMIL SYLLABLE CU;  0B9A 0BC1
+TAMIL SYLLABLE CUU; 0B9A 0BC2
+TAMIL SYLLABLE CE;  0B9A 0BC6
+TAMIL SYLLABLE CEE; 0B9A 0BC7
+TAMIL SYLLABLE CAI; 0B9A 0BC8
+TAMIL SYLLABLE CO;  0B9A 0BCA
+TAMIL SYLLABLE COO; 0B9A 0BCB
+TAMIL SYLLABLE CAU; 0B9A 0BCC
+
+TAMIL SYLLABLE NYAA; 0B9E 0BBE
+TAMIL SYLLABLE NYI;  0B9E 0BBF
+TAMIL SYLLABLE NYII; 0B9E 0BC0
+TAMIL SYLLABLE NYU;  0B9E 0BC1
+TAMIL SYLLABLE NYUU; 0B9E 0BC2
+TAMIL SYLLABLE NYE;  0B9E 0BC6
+TAMIL SYLLABLE NYEE; 0B9E 0BC7
+TAMIL SYLLABLE NYAI; 0B9E 0BC8
+TAMIL SYLLABLE NYO;  0B9E 0BCA
+TAMIL SYLLABLE NYOO; 0B9E 0BCB
+TAMIL SYLLABLE NYAU; 0B9E 0BCC
+
+TAMIL SYLLABLE TTAA; 0B9F 0BBE
+TAMIL SYLLABLE TTI;  0B9F 0BBF
+TAMIL SYLLABLE TTII; 0B9F 0BC0
+TAMIL SYLLABLE TTU;  0B9F 0BC1
+TAMIL SYLLABLE TTUU; 0B9F 0BC2
+TAMIL SYLLABLE TTE;  0B9F 0BC6
+TAMIL SYLLABLE TTEE; 0B9F 0BC7
+TAMIL SYLLABLE TTAI; 0B9F 0BC8
+TAMIL SYLLABLE TTO;  0B9F 0BCA
+TAMIL SYLLABLE TTOO; 0B9F 0BCB
+TAMIL SYLLABLE TTAU; 0B9F 0BCC
+
+TAMIL SYLLABLE NNAA; 0BA3 0BBE
+TAMIL SYLLABLE NNI;  0BA3 0BBF
+TAMIL SYLLABLE NNII; 0BA3 0BC0
+TAMIL SYLLABLE NNU;  0BA3 0BC1
+TAMIL SYLLABLE NNUU; 0BA3 0BC2
+TAMIL SYLLABLE NNE;  0BA3 0BC6
+TAMIL SYLLABLE NNEE; 0BA3 0BC7
+TAMIL SYLLABLE NNAI; 0BA3 0BC8
+TAMIL SYLLABLE NNO;  0BA3 0BCA
+TAMIL SYLLABLE NNOO; 0BA3 0BCB
+TAMIL SYLLABLE NNAU; 0BA3 0BCC
+
+TAMIL SYLLABLE TAA; 0BA4 0BBE
+TAMIL SYLLABLE TI;  0BA4 0BBF
+TAMIL SYLLABLE TII; 0BA4 0BC0
+TAMIL SYLLABLE TU;  0BA4 0BC1
+TAMIL SYLLABLE TUU; 0BA4 0BC2
+TAMIL SYLLABLE TE;  0BA4 0BC6
+TAMIL SYLLABLE TEE; 0BA4 0BC7
+TAMIL SYLLABLE TAI; 0BA4 0BC8
+TAMIL SYLLABLE TO;  0BA4 0BCA
+TAMIL SYLLABLE TOO; 0BA4 0BCB
+TAMIL SYLLABLE TAU; 0BA4 0BCC
+
+TAMIL SYLLABLE NAA; 0BA8 0BBE
+TAMIL SYLLABLE NI;  0BA8 0BBF
+TAMIL SYLLABLE NII; 0BA8 0BC0
+TAMIL SYLLABLE NU;  0BA8 0BC1
+TAMIL SYLLABLE NUU; 0BA8 0BC2
+TAMIL SYLLABLE NE;  0BA8 0BC6
+TAMIL SYLLABLE NEE; 0BA8 0BC7
+TAMIL SYLLABLE NAI; 0BA8 0BC8
+TAMIL SYLLABLE NO;  0BA8 0BCA
+TAMIL SYLLABLE NOO; 0BA8 0BCB
+TAMIL SYLLABLE NAU; 0BA8 0BCC
+
+TAMIL SYLLABLE PAA; 0BAA 0BBE
+TAMIL SYLLABLE PI;  0BAA 0BBF
+TAMIL SYLLABLE PII; 0BAA 0BC0
+TAMIL SYLLABLE PU;  0BAA 0BC1
+TAMIL SYLLABLE PUU; 0BAA 0BC2
+TAMIL SYLLABLE PE;  0BAA 0BC6
+TAMIL SYLLABLE PEE; 0BAA 0BC7
+TAMIL SYLLABLE PAI; 0BAA 0BC8
+TAMIL SYLLABLE PO;  0BAA 0BCA
+TAMIL SYLLABLE POO; 0BAA 0BCB
+TAMIL SYLLABLE PAU; 0BAA 0BCC
+
+TAMIL SYLLABLE MAA; 0BAE 0BBE
+TAMIL SYLLABLE MI;  0BAE 0BBF
+TAMIL SYLLABLE MII; 0BAE 0BC0
+TAMIL SYLLABLE MU;  0BAE 0BC1
+TAMIL SYLLABLE MUU; 0BAE 0BC2
+TAMIL SYLLABLE ME;  0BAE 0BC6
+TAMIL SYLLABLE MEE; 0BAE 0BC7
+TAMIL SYLLABLE MAI; 0BAE 0BC8
+TAMIL SYLLABLE MO;  0BAE 0BCA
+TAMIL SYLLABLE MOO; 0BAE 0BCB
+TAMIL SYLLABLE MAU; 0BAE 0BCC
+
+TAMIL SYLLABLE YAA; 0BAF 0BBE
+TAMIL SYLLABLE YI;  0BAF 0BBF
+TAMIL SYLLABLE YII; 0BAF 0BC0
+TAMIL SYLLABLE YU;  0BAF 0BC1
+TAMIL SYLLABLE YUU; 0BAF 0BC2
+TAMIL SYLLABLE YE;  0BAF 0BC6
+TAMIL SYLLABLE YEE; 0BAF 0BC7
+TAMIL SYLLABLE YAI; 0BAF 0BC8
+TAMIL SYLLABLE YO;  0BAF 0BCA
+TAMIL SYLLABLE YOO; 0BAF 0BCB
+TAMIL SYLLABLE YAU; 0BAF 0BCC
+
+TAMIL SYLLABLE RAA; 0BB0 0BBE
+TAMIL SYLLABLE RI;  0BB0 0BBF
+TAMIL SYLLABLE RII; 0BB0 0BC0
+TAMIL SYLLABLE RU;  0BB0 0BC1
+TAMIL SYLLABLE RUU; 0BB0 0BC2
+TAMIL SYLLABLE RE;  0BB0 0BC6
+TAMIL SYLLABLE REE; 0BB0 0BC7
+TAMIL SYLLABLE RAI; 0BB0 0BC8
+TAMIL SYLLABLE RO;  0BB0 0BCA
+TAMIL SYLLABLE ROO; 0BB0 0BCB
+TAMIL SYLLABLE RAU; 0BB0 0BCC
+
+TAMIL SYLLABLE LAA; 0BB2 0BBE
+TAMIL SYLLABLE LI;  0BB2 0BBF
+TAMIL SYLLABLE LII; 0BB2 0BC0
+TAMIL SYLLABLE LU;  0BB2 0BC1
+TAMIL SYLLABLE LUU; 0BB2 0BC2
+TAMIL SYLLABLE LE;  0BB2 0BC6
+TAMIL SYLLABLE LEE; 0BB2 0BC7
+TAMIL SYLLABLE LAI; 0BB2 0BC8
+TAMIL SYLLABLE LO;  0BB2 0BCA
+TAMIL SYLLABLE LOO; 0BB2 0BCB
+TAMIL SYLLABLE LAU; 0BB2 0BCC
+
+TAMIL SYLLABLE VAA; 0BB5 0BBE
+TAMIL SYLLABLE VI;  0BB5 0BBF
+TAMIL SYLLABLE VII; 0BB5 0BC0
+TAMIL SYLLABLE VU;  0BB5 0BC1
+TAMIL SYLLABLE VUU; 0BB5 0BC2
+TAMIL SYLLABLE VE;  0BB5 0BC6
+TAMIL SYLLABLE VEE; 0BB5 0BC7
+TAMIL SYLLABLE VAI; 0BB5 0BC8
+TAMIL SYLLABLE VO;  0BB5 0BCA
+TAMIL SYLLABLE VOO; 0BB5 0BCB
+TAMIL SYLLABLE VAU; 0BB5 0BCC
+
+TAMIL SYLLABLE LLLAA; 0BB4 0BBE
+TAMIL SYLLABLE LLLI;  0BB4 0BBF
+TAMIL SYLLABLE LLLII; 0BB4 0BC0
+TAMIL SYLLABLE LLLU;  0BB4 0BC1
+TAMIL SYLLABLE LLLUU; 0BB4 0BC2
+TAMIL SYLLABLE LLLE;  0BB4 0BC6
+TAMIL SYLLABLE LLLEE; 0BB4 0BC7
+TAMIL SYLLABLE LLLAI; 0BB4 0BC8
+TAMIL SYLLABLE LLLO;  0BB4 0BCA
+TAMIL SYLLABLE LLLOO; 0BB4 0BCB
+TAMIL SYLLABLE LLLAU; 0BB4 0BCC
+
+TAMIL SYLLABLE LLAA; 0BB3 0BBE
+TAMIL SYLLABLE LLI;  0BB3 0BBF
+TAMIL SYLLABLE LLII; 0BB3 0BC0
+TAMIL SYLLABLE LLU;  0BB3 0BC1
+TAMIL SYLLABLE LLUU; 0BB3 0BC2
+TAMIL SYLLABLE LLE;  0BB3 0BC6
+TAMIL SYLLABLE LLEE; 0BB3 0BC7
+TAMIL SYLLABLE LLAI; 0BB3 0BC8
+TAMIL SYLLABLE LLO;  0BB3 0BCA
+TAMIL SYLLABLE LLOO; 0BB3 0BCB
+TAMIL SYLLABLE LLAU; 0BB3 0BCC
+
+TAMIL SYLLABLE RRAA; 0BB1 0BBE
+TAMIL SYLLABLE RRI;  0BB1 0BBF
+TAMIL SYLLABLE RRII; 0BB1 0BC0
+TAMIL SYLLABLE RRU;  0BB1 0BC1
+TAMIL SYLLABLE RRUU; 0BB1 0BC2
+TAMIL SYLLABLE RRE;  0BB1 0BC6
+TAMIL SYLLABLE RREE; 0BB1 0BC7
+TAMIL SYLLABLE RRAI; 0BB1 0BC8
+TAMIL SYLLABLE RRO;  0BB1 0BCA
+TAMIL SYLLABLE RROO; 0BB1 0BCB
+TAMIL SYLLABLE RRAU; 0BB1 0BCC
+
+TAMIL SYLLABLE NNNAA; 0BA9 0BBE
+TAMIL SYLLABLE NNNI;  0BA9 0BBF
+TAMIL SYLLABLE NNNII; 0BA9 0BC0
+TAMIL SYLLABLE NNNU;  0BA9 0BC1
+TAMIL SYLLABLE NNNUU; 0BA9 0BC2
+TAMIL SYLLABLE NNNE;  0BA9 0BC6
+TAMIL SYLLABLE NNNEE; 0BA9 0BC7
+TAMIL SYLLABLE NNNAI; 0BA9 0BC8
+TAMIL SYLLABLE NNNO;  0BA9 0BCA
+TAMIL SYLLABLE NNNOO; 0BA9 0BCB
+TAMIL SYLLABLE NNNAU; 0BA9 0BCC
+
+TAMIL SYLLABLE JAA; 0B9C 0BBE
+TAMIL SYLLABLE JI;  0B9C 0BBF
+TAMIL SYLLABLE JII; 0B9C 0BC0
+TAMIL SYLLABLE JU;  0B9C 0BC1
+TAMIL SYLLABLE JUU; 0B9C 0BC2
+TAMIL SYLLABLE JE;  0B9C 0BC6
+TAMIL SYLLABLE JEE; 0B9C 0BC7
+TAMIL SYLLABLE JAI; 0B9C 0BC8
+TAMIL SYLLABLE JO;  0B9C 0BCA
+TAMIL SYLLABLE JOO; 0B9C 0BCB
+TAMIL SYLLABLE JAU; 0B9C 0BCC
+
+TAMIL SYLLABLE SHAA; 0BB6 0BBE
+TAMIL SYLLABLE SHI;  0BB6 0BBF
+TAMIL SYLLABLE SHII; 0BB6 0BC0
+TAMIL SYLLABLE SHU;  0BB6 0BC1
+TAMIL SYLLABLE SHUU; 0BB6 0BC2
+TAMIL SYLLABLE SHE;  0BB6 0BC6
+TAMIL SYLLABLE SHEE; 0BB6 0BC7
+TAMIL SYLLABLE SHAI; 0BB6 0BC8
+TAMIL SYLLABLE SHO;  0BB6 0BCA
+TAMIL SYLLABLE SHOO; 0BB6 0BCB
+TAMIL SYLLABLE SHAU; 0BB6 0BCC
+
+TAMIL SYLLABLE SSAA; 0BB7 0BBE
+TAMIL SYLLABLE SSI;  0BB7 0BBF
+TAMIL SYLLABLE SSII; 0BB7 0BC0
+TAMIL SYLLABLE SSU;  0BB7 0BC1
+TAMIL SYLLABLE SSUU; 0BB7 0BC2
+TAMIL SYLLABLE SSE;  0BB7 0BC6
+TAMIL SYLLABLE SSEE; 0BB7 0BC7
+TAMIL SYLLABLE SSAI; 0BB7 0BC8
+TAMIL SYLLABLE SSO;  0BB7 0BCA
+TAMIL SYLLABLE SSOO; 0BB7 0BCB
+TAMIL SYLLABLE SSAU; 0BB7 0BCC
+
+TAMIL SYLLABLE SAA; 0BB8 0BBE
+TAMIL SYLLABLE SI;  0BB8 0BBF
+TAMIL SYLLABLE SII; 0BB8 0BC0
+TAMIL SYLLABLE SU;  0BB8 0BC1
+TAMIL SYLLABLE SUU; 0BB8 0BC2
+TAMIL SYLLABLE SE;  0BB8 0BC6
+TAMIL SYLLABLE SEE; 0BB8 0BC7
+TAMIL SYLLABLE SAI; 0BB8 0BC8
+TAMIL SYLLABLE SO;  0BB8 0BCA
+TAMIL SYLLABLE SOO; 0BB8 0BCB
+TAMIL SYLLABLE SAU; 0BB8 0BCC
+
+TAMIL SYLLABLE HAA; 0BB9 0BBE
+TAMIL SYLLABLE HI;  0BB9 0BBF
+TAMIL SYLLABLE HII; 0BB9 0BC0
+TAMIL SYLLABLE HU;  0BB9 0BC1
+TAMIL SYLLABLE HUU; 0BB9 0BC2
+TAMIL SYLLABLE HE;  0BB9 0BC6
+TAMIL SYLLABLE HEE; 0BB9 0BC7
+TAMIL SYLLABLE HAI; 0BB9 0BC8
+TAMIL SYLLABLE HO;  0BB9 0BCA
+TAMIL SYLLABLE HOO; 0BB9 0BCB
+TAMIL SYLLABLE HAU; 0BB9 0BCC
+
+TAMIL SYLLABLE KSSA;  0B95 0BCD 0BB7
+TAMIL SYLLABLE KSSAA; 0B95 0BCD 0BB7 0BBE
+TAMIL SYLLABLE KSSI;  0B95 0BCD 0BB7 0BBF
+TAMIL SYLLABLE KSSII; 0B95 0BCD 0BB7 0BC0
+TAMIL SYLLABLE KSSU;  0B95 0BCD 0BB7 0BC1
+TAMIL SYLLABLE KSSUU; 0B95 0BCD 0BB7 0BC2
+TAMIL SYLLABLE KSSE;  0B95 0BCD 0BB7 0BC6
+TAMIL SYLLABLE KSSEE; 0B95 0BCD 0BB7 0BC7
+TAMIL SYLLABLE KSSAI; 0B95 0BCD 0BB7 0BC8
+TAMIL SYLLABLE KSSO;  0B95 0BCD 0BB7 0BCA
+TAMIL SYLLABLE KSSOO; 0B95 0BCD 0BB7 0BCB
+TAMIL SYLLABLE KSSAU; 0B95 0BCD 0BB7 0BCC
+
+TAMIL SYLLABLE SHRII; 0BB6 0BCD 0BB0 0BC0
+
+# Sinhala medial consonants and "reph" form.
+# Provisional 2010-05-13, Approved 2011-08-05
+
+SINHALA CONSONANT SIGN YANSAYA;0DCA 200D 0DBA
+SINHALA CONSONANT SIGN RAKAARAANSAYA;0DCA 200D 0DBB
+SINHALA CONSONANT SIGN REPAYA;0DBB 0DCA 200D
+
+# Georgian letter plus accent sequence.
+# This is part of the original set of approved named sequences
+# for Unicode 4.1. 2005.
+
+GEORGIAN LETTER U-BRJGU;10E3 0302
+
+# Khmer subjoined forms and other sequences.
+# These are part of the original set of approved named sequences
+# for Unicode 4.1. 2005.
+
+KHMER CONSONANT SIGN COENG KA;17D2 1780
+KHMER CONSONANT SIGN COENG KHA;17D2 1781
+KHMER CONSONANT SIGN COENG KO;17D2 1782
+KHMER CONSONANT SIGN COENG KHO;17D2 1783
+KHMER CONSONANT SIGN COENG NGO;17D2 1784
+KHMER CONSONANT SIGN COENG CA;17D2 1785
+KHMER CONSONANT SIGN COENG CHA;17D2 1786
+KHMER CONSONANT SIGN COENG CO;17D2 1787
+KHMER CONSONANT SIGN COENG CHO;17D2 1788
+KHMER CONSONANT SIGN COENG NYO;17D2 1789
+KHMER CONSONANT SIGN COENG DA;17D2 178A
+KHMER CONSONANT SIGN COENG TTHA;17D2 178B
+KHMER CONSONANT SIGN COENG DO;17D2 178C
+KHMER CONSONANT SIGN COENG TTHO;17D2 178D
+KHMER CONSONANT SIGN COENG NA;17D2 178E
+KHMER CONSONANT SIGN COENG TA;17D2 178F
+KHMER CONSONANT SIGN COENG THA;17D2 1790
+KHMER CONSONANT SIGN COENG TO;17D2 1791
+KHMER CONSONANT SIGN COENG THO;17D2 1792
+KHMER CONSONANT SIGN COENG NO;17D2 1793
+KHMER CONSONANT SIGN COENG BA;17D2 1794
+KHMER CONSONANT SIGN COENG PHA;17D2 1795
+KHMER CONSONANT SIGN COENG PO;17D2 1796
+KHMER CONSONANT SIGN COENG PHO;17D2 1797
+KHMER CONSONANT SIGN COENG MO;17D2 1798
+KHMER CONSONANT SIGN COENG YO;17D2 1799
+KHMER CONSONANT SIGN COENG RO;17D2 179A
+KHMER CONSONANT SIGN COENG LO;17D2 179B
+KHMER CONSONANT SIGN COENG VO;17D2 179C
+KHMER CONSONANT SIGN COENG SHA;17D2 179D
+KHMER CONSONANT SIGN COENG SSA;17D2 179E
+KHMER CONSONANT SIGN COENG SA;17D2 179F
+KHMER CONSONANT SIGN COENG HA;17D2 17A0
+KHMER CONSONANT SIGN COENG LA;17D2 17A1
+KHMER VOWEL SIGN COENG QA;17D2 17A2
+KHMER INDEPENDENT VOWEL SIGN COENG QU;17D2 17A7
+KHMER INDEPENDENT VOWEL SIGN COENG RY;17D2 17AB
+KHMER INDEPENDENT VOWEL SIGN COENG RYY;17D2 17AC
+KHMER INDEPENDENT VOWEL SIGN COENG QE;17D2 17AF
+KHMER VOWEL SIGN OM;17BB 17C6
+KHMER VOWEL SIGN AAM;17B6 17C6
+
+# Entries for JIS X 0213 compatibility mapping.
+# Provisional 2008-11-07, Approved 2010-05-14
+#
+# Two of these were part of the original set of approved named sequences
+# for Unicode 4.1. 2005.
+
+HIRAGANA LETTER BIDAKUON NGA;304B 309A
+HIRAGANA LETTER BIDAKUON NGI;304D 309A
+HIRAGANA LETTER BIDAKUON NGU;304F 309A
+HIRAGANA LETTER BIDAKUON NGE;3051 309A
+HIRAGANA LETTER BIDAKUON NGO;3053 309A
+KATAKANA LETTER BIDAKUON NGA;30AB 309A
+KATAKANA LETTER BIDAKUON NGI;30AD 309A
+KATAKANA LETTER BIDAKUON NGU;30AF 309A
+KATAKANA LETTER BIDAKUON NGE;30B1 309A
+KATAKANA LETTER BIDAKUON NGO;30B3 309A
+KATAKANA LETTER AINU CE;30BB 309A
+KATAKANA LETTER AINU TU;30C4 309A
+KATAKANA LETTER AINU TO;30C8 309A
+KATAKANA LETTER AINU P;31F7 309A
+MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR;02E5 02E9
+MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR;02E9 02E5
+
+# EOF
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# This file is for the use of Unicode::UCD
+
+# Highest legal Unicode code point
+$Unicode::UCD::MAX_UNICODE_CODEPOINT = 0x10FFFF;
+
+# Hangul syllables
+$Unicode::UCD::HANGUL_BEGIN = 0xAC00;
+$Unicode::UCD::HANGUL_COUNT = 11172;
+
+# Keys are all the possible "prop=value" combinations, in loose form; values
+# are the standard loose name for the 'value' part of the key
+%Unicode::UCD::loose_to_standard_value = (
+'age=1.1' => '1.1',
+'age=10.0' => '10.0',
+'age=2.0' => '2.0',
+'age=2.1' => '2.1',
+'age=3.0' => '3.0',
+'age=3.1' => '3.1',
+'age=3.2' => '3.2',
+'age=4.0' => '4.0',
+'age=4.1' => '4.1',
+'age=5.0' => '5.0',
+'age=5.1' => '5.1',
+'age=5.2' => '5.2',
+'age=6.0' => '6.0',
+'age=6.1' => '6.1',
+'age=6.2' => '6.2',
+'age=6.3' => '6.3',
+'age=7.0' => '7.0',
+'age=8.0' => '8.0',
+'age=9.0' => '9.0',
+'age=na' => 'na',
+'age=unassigned' => 'na',
+'age=v100' => '10.0',
+'age=v11' => '1.1',
+'age=v20' => '2.0',
+'age=v21' => '2.1',
+'age=v30' => '3.0',
+'age=v31' => '3.1',
+'age=v32' => '3.2',
+'age=v40' => '4.0',
+'age=v41' => '4.1',
+'age=v50' => '5.0',
+'age=v51' => '5.1',
+'age=v52' => '5.2',
+'age=v60' => '6.0',
+'age=v61' => '6.1',
+'age=v62' => '6.2',
+'age=v63' => '6.3',
+'age=v70' => '7.0',
+'age=v80' => '8.0',
+'age=v90' => '9.0',
+'ahex=f' => 'n',
+'ahex=false' => 'n',
+'ahex=n' => 'n',
+'ahex=no' => 'n',
+'ahex=t' => 'y',
+'ahex=true' => 'y',
+'ahex=y' => 'y',
+'ahex=yes' => 'y',
+'alpha=f' => 'n',
+'alpha=false' => 'n',
+'alpha=n' => 'n',
+'alpha=no' => 'n',
+'alpha=t' => 'y',
+'alpha=true' => 'y',
+'alpha=y' => 'y',
+'alpha=yes' => 'y',
+'bc=al' => 'al',
+'bc=an' => 'an',
+'bc=arabicletter' => 'al',
+'bc=arabicnumber' => 'an',
+'bc=b' => 'b',
+'bc=bn' => 'bn',
+'bc=boundaryneutral' => 'bn',
+'bc=commonseparator' => 'cs',
+'bc=cs' => 'cs',
+'bc=en' => 'en',
+'bc=es' => 'es',
+'bc=et' => 'et',
+'bc=europeannumber' => 'en',
+'bc=europeanseparator' => 'es',
+'bc=europeanterminator' => 'et',
+'bc=firststrongisolate' => 'fsi',
+'bc=fsi' => 'fsi',
+'bc=l' => 'l',
+'bc=lefttoright' => 'l',
+'bc=lefttorightembedding' => 'lre',
+'bc=lefttorightisolate' => 'lri',
+'bc=lefttorightoverride' => 'lro',
+'bc=lre' => 'lre',
+'bc=lri' => 'lri',
+'bc=lro' => 'lro',
+'bc=nonspacingmark' => 'nsm',
+'bc=nsm' => 'nsm',
+'bc=on' => 'on',
+'bc=otherneutral' => 'on',
+'bc=paragraphseparator' => 'b',
+'bc=pdf' => 'pdf',
+'bc=pdi' => 'pdi',
+'bc=popdirectionalformat' => 'pdf',
+'bc=popdirectionalisolate' => 'pdi',
+'bc=r' => 'r',
+'bc=righttoleft' => 'r',
+'bc=righttoleftembedding' => 'rle',
+'bc=righttoleftisolate' => 'rli',
+'bc=righttoleftoverride' => 'rlo',
+'bc=rle' => 'rle',
+'bc=rli' => 'rli',
+'bc=rlo' => 'rlo',
+'bc=s' => 's',
+'bc=segmentseparator' => 's',
+'bc=whitespace' => 'ws',
+'bc=ws' => 'ws',
+'bidic=f' => 'n',
+'bidic=false' => 'n',
+'bidic=n' => 'n',
+'bidic=no' => 'n',
+'bidic=t' => 'y',
+'bidic=true' => 'y',
+'bidic=y' => 'y',
+'bidic=yes' => 'y',
+'bidim=f' => 'n',
+'bidim=false' => 'n',
+'bidim=n' => 'n',
+'bidim=no' => 'n',
+'bidim=t' => 'y',
+'bidim=true' => 'y',
+'bidim=y' => 'y',
+'bidim=yes' => 'y',
+'blk=adlam' => 'adlam',
+'blk=aegeannumbers' => 'aegeannumbers',
+'blk=ahom' => 'ahom',
+'blk=alchemical' => 'alchemical',
+'blk=alchemicalsymbols' => 'alchemical',
+'blk=alphabeticpf' => 'alphabeticpf',
+'blk=alphabeticpresentationforms' => 'alphabeticpf',
+'blk=anatolianhieroglyphs' => 'anatolianhieroglyphs',
+'blk=ancientgreekmusic' => 'ancientgreekmusic',
+'blk=ancientgreekmusicalnotation' => 'ancientgreekmusic',
+'blk=ancientgreeknumbers' => 'ancientgreeknumbers',
+'blk=ancientsymbols' => 'ancientsymbols',
+'blk=arabic' => 'arabic',
+'blk=arabicexta' => 'arabicexta',
+'blk=arabicextendeda' => 'arabicexta',
+'blk=arabicmath' => 'arabicmath',
+'blk=arabicmathematicalalphabeticsymbols' => 'arabicmath',
+'blk=arabicpfa' => 'arabicpfa',
+'blk=arabicpfb' => 'arabicpfb',
+'blk=arabicpresentationformsa' => 'arabicpfa',
+'blk=arabicpresentationformsb' => 'arabicpfb',
+'blk=arabicsup' => 'arabicsup',
+'blk=arabicsupplement' => 'arabicsup',
+'blk=armenian' => 'armenian',
+'blk=arrows' => 'arrows',
+'blk=ascii' => 'ascii',
+'blk=avestan' => 'avestan',
+'blk=balinese' => 'balinese',
+'blk=bamum' => 'bamum',
+'blk=bamumsup' => 'bamumsup',
+'blk=bamumsupplement' => 'bamumsup',
+'blk=basiclatin' => 'ascii',
+'blk=bassavah' => 'bassavah',
+'blk=batak' => 'batak',
+'blk=bengali' => 'bengali',
+'blk=bhaiksuki' => 'bhaiksuki',
+'blk=blockelements' => 'blockelements',
+'blk=bopomofo' => 'bopomofo',
+'blk=bopomofoext' => 'bopomofoext',
+'blk=bopomofoextended' => 'bopomofoext',
+'blk=boxdrawing' => 'boxdrawing',
+'blk=brahmi' => 'brahmi',
+'blk=braille' => 'braille',
+'blk=braillepatterns' => 'braille',
+'blk=buginese' => 'buginese',
+'blk=buhid' => 'buhid',
+'blk=byzantinemusic' => 'byzantinemusic',
+'blk=byzantinemusicalsymbols' => 'byzantinemusic',
+'blk=canadiansyllabics' => 'ucas',
+'blk=carian' => 'carian',
+'blk=caucasianalbanian' => 'caucasianalbanian',
+'blk=chakma' => 'chakma',
+'blk=cham' => 'cham',
+'blk=cherokee' => 'cherokee',
+'blk=cherokeesup' => 'cherokeesup',
+'blk=cherokeesupplement' => 'cherokeesup',
+'blk=cjk' => 'cjk',
+'blk=cjkcompat' => 'cjkcompat',
+'blk=cjkcompatforms' => 'cjkcompatforms',
+'blk=cjkcompatibility' => 'cjkcompat',
+'blk=cjkcompatibilityforms' => 'cjkcompatforms',
+'blk=cjkcompatibilityideographs' => 'cjkcompatideographs',
+'blk=cjkcompatibilityideographssupplement' => 'cjkcompatideographssup',
+'blk=cjkcompatideographs' => 'cjkcompatideographs',
+'blk=cjkcompatideographssup' => 'cjkcompatideographssup',
+'blk=cjkexta' => 'cjkexta',
+'blk=cjkextb' => 'cjkextb',
+'blk=cjkextc' => 'cjkextc',
+'blk=cjkextd' => 'cjkextd',
+'blk=cjkexte' => 'cjkexte',
+'blk=cjkextf' => 'cjkextf',
+'blk=cjkradicalssup' => 'cjkradicalssup',
+'blk=cjkradicalssupplement' => 'cjkradicalssup',
+'blk=cjkstrokes' => 'cjkstrokes',
+'blk=cjksymbols' => 'cjksymbols',
+'blk=cjksymbolsandpunctuation' => 'cjksymbols',
+'blk=cjkunifiedideographs' => 'cjk',
+'blk=cjkunifiedideographsextensiona' => 'cjkexta',
+'blk=cjkunifiedideographsextensionb' => 'cjkextb',
+'blk=cjkunifiedideographsextensionc' => 'cjkextc',
+'blk=cjkunifiedideographsextensiond' => 'cjkextd',
+'blk=cjkunifiedideographsextensione' => 'cjkexte',
+'blk=cjkunifiedideographsextensionf' => 'cjkextf',
+'blk=combiningdiacriticalmarks' => 'diacriticals',
+'blk=combiningdiacriticalmarksextended' => 'diacriticalsext',
+'blk=combiningdiacriticalmarksforsymbols' => 'diacriticalsforsymbols',
+'blk=combiningdiacriticalmarkssupplement' => 'diacriticalssup',
+'blk=combininghalfmarks' => 'halfmarks',
+'blk=combiningmarksforsymbols' => 'diacriticalsforsymbols',
+'blk=commonindicnumberforms' => 'indicnumberforms',
+'blk=compatjamo' => 'compatjamo',
+'blk=controlpictures' => 'controlpictures',
+'blk=coptic' => 'coptic',
+'blk=copticepactnumbers' => 'copticepactnumbers',
+'blk=countingrod' => 'countingrod',
+'blk=countingrodnumerals' => 'countingrod',
+'blk=cuneiform' => 'cuneiform',
+'blk=cuneiformnumbers' => 'cuneiformnumbers',
+'blk=cuneiformnumbersandpunctuation' => 'cuneiformnumbers',
+'blk=currencysymbols' => 'currencysymbols',
+'blk=cypriotsyllabary' => 'cypriotsyllabary',
+'blk=cyrillic' => 'cyrillic',
+'blk=cyrillicexta' => 'cyrillicexta',
+'blk=cyrillicextb' => 'cyrillicextb',
+'blk=cyrillicextc' => 'cyrillicextc',
+'blk=cyrillicextendeda' => 'cyrillicexta',
+'blk=cyrillicextendedb' => 'cyrillicextb',
+'blk=cyrillicextendedc' => 'cyrillicextc',
+'blk=cyrillicsup' => 'cyrillicsup',
+'blk=cyrillicsupplement' => 'cyrillicsup',
+'blk=cyrillicsupplementary' => 'cyrillicsup',
+'blk=deseret' => 'deseret',
+'blk=devanagari' => 'devanagari',
+'blk=devanagariext' => 'devanagariext',
+'blk=devanagariextended' => 'devanagariext',
+'blk=diacriticals' => 'diacriticals',
+'blk=diacriticalsext' => 'diacriticalsext',
+'blk=diacriticalsforsymbols' => 'diacriticalsforsymbols',
+'blk=diacriticalssup' => 'diacriticalssup',
+'blk=dingbats' => 'dingbats',
+'blk=domino' => 'domino',
+'blk=dominotiles' => 'domino',
+'blk=duployan' => 'duployan',
+'blk=earlydynasticcuneiform' => 'earlydynasticcuneiform',
+'blk=egyptianhieroglyphs' => 'egyptianhieroglyphs',
+'blk=elbasan' => 'elbasan',
+'blk=emoticons' => 'emoticons',
+'blk=enclosedalphanum' => 'enclosedalphanum',
+'blk=enclosedalphanumerics' => 'enclosedalphanum',
+'blk=enclosedalphanumericsupplement' => 'enclosedalphanumsup',
+'blk=enclosedalphanumsup' => 'enclosedalphanumsup',
+'blk=enclosedcjk' => 'enclosedcjk',
+'blk=enclosedcjklettersandmonths' => 'enclosedcjk',
+'blk=enclosedideographicsup' => 'enclosedideographicsup',
+'blk=enclosedideographicsupplement' => 'enclosedideographicsup',
+'blk=ethiopic' => 'ethiopic',
+'blk=ethiopicext' => 'ethiopicext',
+'blk=ethiopicexta' => 'ethiopicexta',
+'blk=ethiopicextended' => 'ethiopicext',
+'blk=ethiopicextendeda' => 'ethiopicexta',
+'blk=ethiopicsup' => 'ethiopicsup',
+'blk=ethiopicsupplement' => 'ethiopicsup',
+'blk=generalpunctuation' => 'punctuation',
+'blk=geometricshapes' => 'geometricshapes',
+'blk=geometricshapesext' => 'geometricshapesext',
+'blk=geometricshapesextended' => 'geometricshapesext',
+'blk=georgian' => 'georgian',
+'blk=georgiansup' => 'georgiansup',
+'blk=georgiansupplement' => 'georgiansup',
+'blk=glagolitic' => 'glagolitic',
+'blk=glagoliticsup' => 'glagoliticsup',
+'blk=glagoliticsupplement' => 'glagoliticsup',
+'blk=gothic' => 'gothic',
+'blk=grantha' => 'grantha',
+'blk=greek' => 'greek',
+'blk=greekandcoptic' => 'greek',
+'blk=greekext' => 'greekext',
+'blk=greekextended' => 'greekext',
+'blk=gujarati' => 'gujarati',
+'blk=gurmukhi' => 'gurmukhi',
+'blk=halfandfullforms' => 'halfandfullforms',
+'blk=halfmarks' => 'halfmarks',
+'blk=halfwidthandfullwidthforms' => 'halfandfullforms',
+'blk=hangul' => 'hangul',
+'blk=hangulcompatibilityjamo' => 'compatjamo',
+'blk=hanguljamo' => 'jamo',
+'blk=hanguljamoextendeda' => 'jamoexta',
+'blk=hanguljamoextendedb' => 'jamoextb',
+'blk=hangulsyllables' => 'hangul',
+'blk=hanunoo' => 'hanunoo',
+'blk=hatran' => 'hatran',
+'blk=hebrew' => 'hebrew',
+'blk=highprivateusesurrogates' => 'highpusurrogates',
+'blk=highpusurrogates' => 'highpusurrogates',
+'blk=highsurrogates' => 'highsurrogates',
+'blk=hiragana' => 'hiragana',
+'blk=idc' => 'idc',
+'blk=ideographicdescriptioncharacters' => 'idc',
+'blk=ideographicsymbols' => 'ideographicsymbols',
+'blk=ideographicsymbolsandpunctuation' => 'ideographicsymbols',
+'blk=imperialaramaic' => 'imperialaramaic',
+'blk=indicnumberforms' => 'indicnumberforms',
+'blk=inscriptionalpahlavi' => 'inscriptionalpahlavi',
+'blk=inscriptionalparthian' => 'inscriptionalparthian',
+'blk=ipaext' => 'ipaext',
+'blk=ipaextensions' => 'ipaext',
+'blk=jamo' => 'jamo',
+'blk=jamoexta' => 'jamoexta',
+'blk=jamoextb' => 'jamoextb',
+'blk=javanese' => 'javanese',
+'blk=kaithi' => 'kaithi',
+'blk=kanaexta' => 'kanaexta',
+'blk=kanaextendeda' => 'kanaexta',
+'blk=kanasup' => 'kanasup',
+'blk=kanasupplement' => 'kanasup',
+'blk=kanbun' => 'kanbun',
+'blk=kangxi' => 'kangxi',
+'blk=kangxiradicals' => 'kangxi',
+'blk=kannada' => 'kannada',
+'blk=katakana' => 'katakana',
+'blk=katakanaext' => 'katakanaext',
+'blk=katakanaphoneticextensions' => 'katakanaext',
+'blk=kayahli' => 'kayahli',
+'blk=kharoshthi' => 'kharoshthi',
+'blk=khmer' => 'khmer',
+'blk=khmersymbols' => 'khmersymbols',
+'blk=khojki' => 'khojki',
+'blk=khudawadi' => 'khudawadi',
+'blk=lao' => 'lao',
+'blk=latin1' => 'latin1sup',
+'blk=latin1sup' => 'latin1sup',
+'blk=latin1supplement' => 'latin1sup',
+'blk=latinexta' => 'latinexta',
+'blk=latinextadditional' => 'latinextadditional',
+'blk=latinextb' => 'latinextb',
+'blk=latinextc' => 'latinextc',
+'blk=latinextd' => 'latinextd',
+'blk=latinexte' => 'latinexte',
+'blk=latinextendeda' => 'latinexta',
+'blk=latinextendedadditional' => 'latinextadditional',
+'blk=latinextendedb' => 'latinextb',
+'blk=latinextendedc' => 'latinextc',
+'blk=latinextendedd' => 'latinextd',
+'blk=latinextendede' => 'latinexte',
+'blk=lepcha' => 'lepcha',
+'blk=letterlikesymbols' => 'letterlikesymbols',
+'blk=limbu' => 'limbu',
+'blk=lineara' => 'lineara',
+'blk=linearbideograms' => 'linearbideograms',
+'blk=linearbsyllabary' => 'linearbsyllabary',
+'blk=lisu' => 'lisu',
+'blk=lowsurrogates' => 'lowsurrogates',
+'blk=lycian' => 'lycian',
+'blk=lydian' => 'lydian',
+'blk=mahajani' => 'mahajani',
+'blk=mahjong' => 'mahjong',
+'blk=mahjongtiles' => 'mahjong',
+'blk=malayalam' => 'malayalam',
+'blk=mandaic' => 'mandaic',
+'blk=manichaean' => 'manichaean',
+'blk=marchen' => 'marchen',
+'blk=masaramgondi' => 'masaramgondi',
+'blk=mathalphanum' => 'mathalphanum',
+'blk=mathematicalalphanumericsymbols' => 'mathalphanum',
+'blk=mathematicaloperators' => 'mathoperators',
+'blk=mathoperators' => 'mathoperators',
+'blk=meeteimayek' => 'meeteimayek',
+'blk=meeteimayekext' => 'meeteimayekext',
+'blk=meeteimayekextensions' => 'meeteimayekext',
+'blk=mendekikakui' => 'mendekikakui',
+'blk=meroiticcursive' => 'meroiticcursive',
+'blk=meroitichieroglyphs' => 'meroitichieroglyphs',
+'blk=miao' => 'miao',
+'blk=miscarrows' => 'miscarrows',
+'blk=miscellaneousmathematicalsymbolsa' => 'miscmathsymbolsa',
+'blk=miscellaneousmathematicalsymbolsb' => 'miscmathsymbolsb',
+'blk=miscellaneoussymbols' => 'miscsymbols',
+'blk=miscellaneoussymbolsandarrows' => 'miscarrows',
+'blk=miscellaneoussymbolsandpictographs' => 'miscpictographs',
+'blk=miscellaneoustechnical' => 'misctechnical',
+'blk=miscmathsymbolsa' => 'miscmathsymbolsa',
+'blk=miscmathsymbolsb' => 'miscmathsymbolsb',
+'blk=miscpictographs' => 'miscpictographs',
+'blk=miscsymbols' => 'miscsymbols',
+'blk=misctechnical' => 'misctechnical',
+'blk=modi' => 'modi',
+'blk=modifierletters' => 'modifierletters',
+'blk=modifiertoneletters' => 'modifiertoneletters',
+'blk=mongolian' => 'mongolian',
+'blk=mongoliansup' => 'mongoliansup',
+'blk=mongoliansupplement' => 'mongoliansup',
+'blk=mro' => 'mro',
+'blk=multani' => 'multani',
+'blk=music' => 'music',
+'blk=musicalsymbols' => 'music',
+'blk=myanmar' => 'myanmar',
+'blk=myanmarexta' => 'myanmarexta',
+'blk=myanmarextb' => 'myanmarextb',
+'blk=myanmarextendeda' => 'myanmarexta',
+'blk=myanmarextendedb' => 'myanmarextb',
+'blk=nabataean' => 'nabataean',
+'blk=nb' => 'nb',
+'blk=newa' => 'newa',
+'blk=newtailue' => 'newtailue',
+'blk=nko' => 'nko',
+'blk=noblock' => 'nb',
+'blk=numberforms' => 'numberforms',
+'blk=nushu' => 'nushu',
+'blk=ocr' => 'ocr',
+'blk=ogham' => 'ogham',
+'blk=olchiki' => 'olchiki',
+'blk=oldhungarian' => 'oldhungarian',
+'blk=olditalic' => 'olditalic',
+'blk=oldnortharabian' => 'oldnortharabian',
+'blk=oldpermic' => 'oldpermic',
+'blk=oldpersian' => 'oldpersian',
+'blk=oldsoutharabian' => 'oldsoutharabian',
+'blk=oldturkic' => 'oldturkic',
+'blk=opticalcharacterrecognition' => 'ocr',
+'blk=oriya' => 'oriya',
+'blk=ornamentaldingbats' => 'ornamentaldingbats',
+'blk=osage' => 'osage',
+'blk=osmanya' => 'osmanya',
+'blk=pahawhhmong' => 'pahawhhmong',
+'blk=palmyrene' => 'palmyrene',
+'blk=paucinhau' => 'paucinhau',
+'blk=phagspa' => 'phagspa',
+'blk=phaistos' => 'phaistos',
+'blk=phaistosdisc' => 'phaistos',
+'blk=phoenician' => 'phoenician',
+'blk=phoneticext' => 'phoneticext',
+'blk=phoneticextensions' => 'phoneticext',
+'blk=phoneticextensionssupplement' => 'phoneticextsup',
+'blk=phoneticextsup' => 'phoneticextsup',
+'blk=playingcards' => 'playingcards',
+'blk=privateuse' => 'pua',
+'blk=privateusearea' => 'pua',
+'blk=psalterpahlavi' => 'psalterpahlavi',
+'blk=pua' => 'pua',
+'blk=punctuation' => 'punctuation',
+'blk=rejang' => 'rejang',
+'blk=rumi' => 'rumi',
+'blk=ruminumeralsymbols' => 'rumi',
+'blk=runic' => 'runic',
+'blk=samaritan' => 'samaritan',
+'blk=saurashtra' => 'saurashtra',
+'blk=sharada' => 'sharada',
+'blk=shavian' => 'shavian',
+'blk=shorthandformatcontrols' => 'shorthandformatcontrols',
+'blk=siddham' => 'siddham',
+'blk=sinhala' => 'sinhala',
+'blk=sinhalaarchaicnumbers' => 'sinhalaarchaicnumbers',
+'blk=smallforms' => 'smallforms',
+'blk=smallformvariants' => 'smallforms',
+'blk=sorasompeng' => 'sorasompeng',
+'blk=soyombo' => 'soyombo',
+'blk=spacingmodifierletters' => 'modifierletters',
+'blk=specials' => 'specials',
+'blk=sundanese' => 'sundanese',
+'blk=sundanesesup' => 'sundanesesup',
+'blk=sundanesesupplement' => 'sundanesesup',
+'blk=suparrowsa' => 'suparrowsa',
+'blk=suparrowsb' => 'suparrowsb',
+'blk=suparrowsc' => 'suparrowsc',
+'blk=superandsub' => 'superandsub',
+'blk=superscriptsandsubscripts' => 'superandsub',
+'blk=supmathoperators' => 'supmathoperators',
+'blk=supplementalarrowsa' => 'suparrowsa',
+'blk=supplementalarrowsb' => 'suparrowsb',
+'blk=supplementalarrowsc' => 'suparrowsc',
+'blk=supplementalmathematicaloperators' => 'supmathoperators',
+'blk=supplementalpunctuation' => 'suppunctuation',
+'blk=supplementalsymbolsandpictographs' => 'supsymbolsandpictographs',
+'blk=supplementaryprivateuseareaa' => 'suppuaa',
+'blk=supplementaryprivateuseareab' => 'suppuab',
+'blk=suppuaa' => 'suppuaa',
+'blk=suppuab' => 'suppuab',
+'blk=suppunctuation' => 'suppunctuation',
+'blk=supsymbolsandpictographs' => 'supsymbolsandpictographs',
+'blk=suttonsignwriting' => 'suttonsignwriting',
+'blk=sylotinagri' => 'sylotinagri',
+'blk=syriac' => 'syriac',
+'blk=syriacsup' => 'syriacsup',
+'blk=syriacsupplement' => 'syriacsup',
+'blk=tagalog' => 'tagalog',
+'blk=tagbanwa' => 'tagbanwa',
+'blk=tags' => 'tags',
+'blk=taile' => 'taile',
+'blk=taitham' => 'taitham',
+'blk=taiviet' => 'taiviet',
+'blk=taixuanjing' => 'taixuanjing',
+'blk=taixuanjingsymbols' => 'taixuanjing',
+'blk=takri' => 'takri',
+'blk=tamil' => 'tamil',
+'blk=tangut' => 'tangut',
+'blk=tangutcomponents' => 'tangutcomponents',
+'blk=telugu' => 'telugu',
+'blk=thaana' => 'thaana',
+'blk=thai' => 'thai',
+'blk=tibetan' => 'tibetan',
+'blk=tifinagh' => 'tifinagh',
+'blk=tirhuta' => 'tirhuta',
+'blk=transportandmap' => 'transportandmap',
+'blk=transportandmapsymbols' => 'transportandmap',
+'blk=ucas' => 'ucas',
+'blk=ucasext' => 'ucasext',
+'blk=ugaritic' => 'ugaritic',
+'blk=unifiedcanadianaboriginalsyllabics' => 'ucas',
+'blk=unifiedcanadianaboriginalsyllabicsextended' => 'ucasext',
+'blk=vai' => 'vai',
+'blk=variationselectors' => 'vs',
+'blk=variationselectorssupplement' => 'vssup',
+'blk=vedicext' => 'vedicext',
+'blk=vedicextensions' => 'vedicext',
+'blk=verticalforms' => 'verticalforms',
+'blk=vs' => 'vs',
+'blk=vssup' => 'vssup',
+'blk=warangciti' => 'warangciti',
+'blk=yijing' => 'yijing',
+'blk=yijinghexagramsymbols' => 'yijing',
+'blk=yiradicals' => 'yiradicals',
+'blk=yisyllables' => 'yisyllables',
+'blk=zanabazarsquare' => 'zanabazarsquare',
+'bpt=c' => 'c',
+'bpt=close' => 'c',
+'bpt=n' => 'n',
+'bpt=none' => 'n',
+'bpt=o' => 'o',
+'bpt=open' => 'o',
+'cased=f' => 'n',
+'cased=false' => 'n',
+'cased=n' => 'n',
+'cased=no' => 'n',
+'cased=t' => 'y',
+'cased=true' => 'y',
+'cased=y' => 'y',
+'cased=yes' => 'y',
+'ccc=0' => 'nr',
+'ccc=1' => 'ov',
+'ccc=10' => 'ccc10',
+'ccc=103' => 'ccc103',
+'ccc=107' => 'ccc107',
+'ccc=11' => 'ccc11',
+'ccc=118' => 'ccc118',
+'ccc=12' => 'ccc12',
+'ccc=122' => 'ccc122',
+'ccc=129' => 'ccc129',
+'ccc=13' => 'ccc13',
+'ccc=130' => 'ccc130',
+'ccc=132' => 'ccc132',
+'ccc=133' => 'ccc133',
+'ccc=14' => 'ccc14',
+'ccc=15' => 'ccc15',
+'ccc=16' => 'ccc16',
+'ccc=17' => 'ccc17',
+'ccc=18' => 'ccc18',
+'ccc=19' => 'ccc19',
+'ccc=20' => 'ccc20',
+'ccc=200' => 'atbl',
+'ccc=202' => 'atb',
+'ccc=21' => 'ccc21',
+'ccc=214' => 'ata',
+'ccc=216' => 'atar',
+'ccc=218' => 'bl',
+'ccc=22' => 'ccc22',
+'ccc=220' => 'b',
+'ccc=222' => 'br',
+'ccc=224' => 'l',
+'ccc=226' => 'r',
+'ccc=228' => 'al',
+'ccc=23' => 'ccc23',
+'ccc=230' => 'a',
+'ccc=232' => 'ar',
+'ccc=233' => 'db',
+'ccc=234' => 'da',
+'ccc=24' => 'ccc24',
+'ccc=240' => 'is',
+'ccc=25' => 'ccc25',
+'ccc=26' => 'ccc26',
+'ccc=27' => 'ccc27',
+'ccc=28' => 'ccc28',
+'ccc=29' => 'ccc29',
+'ccc=30' => 'ccc30',
+'ccc=31' => 'ccc31',
+'ccc=32' => 'ccc32',
+'ccc=33' => 'ccc33',
+'ccc=34' => 'ccc34',
+'ccc=35' => 'ccc35',
+'ccc=36' => 'ccc36',
+'ccc=7' => 'nk',
+'ccc=8' => 'kv',
+'ccc=84' => 'ccc84',
+'ccc=9' => 'vr',
+'ccc=91' => 'ccc91',
+'ccc=a' => 'a',
+'ccc=above' => 'a',
+'ccc=aboveleft' => 'al',
+'ccc=aboveright' => 'ar',
+'ccc=al' => 'al',
+'ccc=ar' => 'ar',
+'ccc=ata' => 'ata',
+'ccc=atar' => 'atar',
+'ccc=atb' => 'atb',
+'ccc=atbl' => 'atbl',
+'ccc=attachedabove' => 'ata',
+'ccc=attachedaboveright' => 'atar',
+'ccc=attachedbelow' => 'atb',
+'ccc=attachedbelowleft' => 'atbl',
+'ccc=b' => 'b',
+'ccc=below' => 'b',
+'ccc=belowleft' => 'bl',
+'ccc=belowright' => 'br',
+'ccc=bl' => 'bl',
+'ccc=br' => 'br',
+'ccc=ccc10' => 'ccc10',
+'ccc=ccc103' => 'ccc103',
+'ccc=ccc107' => 'ccc107',
+'ccc=ccc11' => 'ccc11',
+'ccc=ccc118' => 'ccc118',
+'ccc=ccc12' => 'ccc12',
+'ccc=ccc122' => 'ccc122',
+'ccc=ccc129' => 'ccc129',
+'ccc=ccc13' => 'ccc13',
+'ccc=ccc130' => 'ccc130',
+'ccc=ccc132' => 'ccc132',
+'ccc=ccc133' => 'ccc133',
+'ccc=ccc14' => 'ccc14',
+'ccc=ccc15' => 'ccc15',
+'ccc=ccc16' => 'ccc16',
+'ccc=ccc17' => 'ccc17',
+'ccc=ccc18' => 'ccc18',
+'ccc=ccc19' => 'ccc19',
+'ccc=ccc20' => 'ccc20',
+'ccc=ccc21' => 'ccc21',
+'ccc=ccc22' => 'ccc22',
+'ccc=ccc23' => 'ccc23',
+'ccc=ccc24' => 'ccc24',
+'ccc=ccc25' => 'ccc25',
+'ccc=ccc26' => 'ccc26',
+'ccc=ccc27' => 'ccc27',
+'ccc=ccc28' => 'ccc28',
+'ccc=ccc29' => 'ccc29',
+'ccc=ccc30' => 'ccc30',
+'ccc=ccc31' => 'ccc31',
+'ccc=ccc32' => 'ccc32',
+'ccc=ccc33' => 'ccc33',
+'ccc=ccc34' => 'ccc34',
+'ccc=ccc35' => 'ccc35',
+'ccc=ccc36' => 'ccc36',
+'ccc=ccc84' => 'ccc84',
+'ccc=ccc91' => 'ccc91',
+'ccc=da' => 'da',
+'ccc=db' => 'db',
+'ccc=doubleabove' => 'da',
+'ccc=doublebelow' => 'db',
+'ccc=iotasubscript' => 'is',
+'ccc=is' => 'is',
+'ccc=kanavoicing' => 'kv',
+'ccc=kv' => 'kv',
+'ccc=l' => 'l',
+'ccc=left' => 'l',
+'ccc=nk' => 'nk',
+'ccc=notreordered' => 'nr',
+'ccc=nr' => 'nr',
+'ccc=nukta' => 'nk',
+'ccc=ov' => 'ov',
+'ccc=overlay' => 'ov',
+'ccc=r' => 'r',
+'ccc=right' => 'r',
+'ccc=virama' => 'vr',
+'ccc=vr' => 'vr',
+'ce=f' => 'n',
+'ce=false' => 'n',
+'ce=n' => 'n',
+'ce=no' => 'n',
+'ce=t' => 'y',
+'ce=true' => 'y',
+'ce=y' => 'y',
+'ce=yes' => 'y',
+'ci=f' => 'n',
+'ci=false' => 'n',
+'ci=n' => 'n',
+'ci=no' => 'n',
+'ci=t' => 'y',
+'ci=true' => 'y',
+'ci=y' => 'y',
+'ci=yes' => 'y',
+'compex=f' => 'n',
+'compex=false' => 'n',
+'compex=n' => 'n',
+'compex=no' => 'n',
+'compex=t' => 'y',
+'compex=true' => 'y',
+'compex=y' => 'y',
+'compex=yes' => 'y',
+'cwcf=f' => 'n',
+'cwcf=false' => 'n',
+'cwcf=n' => 'n',
+'cwcf=no' => 'n',
+'cwcf=t' => 'y',
+'cwcf=true' => 'y',
+'cwcf=y' => 'y',
+'cwcf=yes' => 'y',
+'cwcm=f' => 'n',
+'cwcm=false' => 'n',
+'cwcm=n' => 'n',
+'cwcm=no' => 'n',
+'cwcm=t' => 'y',
+'cwcm=true' => 'y',
+'cwcm=y' => 'y',
+'cwcm=yes' => 'y',
+'cwkcf=f' => 'n',
+'cwkcf=false' => 'n',
+'cwkcf=n' => 'n',
+'cwkcf=no' => 'n',
+'cwkcf=t' => 'y',
+'cwkcf=true' => 'y',
+'cwkcf=y' => 'y',
+'cwkcf=yes' => 'y',
+'cwl=f' => 'n',
+'cwl=false' => 'n',
+'cwl=n' => 'n',
+'cwl=no' => 'n',
+'cwl=t' => 'y',
+'cwl=true' => 'y',
+'cwl=y' => 'y',
+'cwl=yes' => 'y',
+'cwt=f' => 'n',
+'cwt=false' => 'n',
+'cwt=n' => 'n',
+'cwt=no' => 'n',
+'cwt=t' => 'y',
+'cwt=true' => 'y',
+'cwt=y' => 'y',
+'cwt=yes' => 'y',
+'cwu=f' => 'n',
+'cwu=false' => 'n',
+'cwu=n' => 'n',
+'cwu=no' => 'n',
+'cwu=t' => 'y',
+'cwu=true' => 'y',
+'cwu=y' => 'y',
+'cwu=yes' => 'y',
+'dash=f' => 'n',
+'dash=false' => 'n',
+'dash=n' => 'n',
+'dash=no' => 'n',
+'dash=t' => 'y',
+'dash=true' => 'y',
+'dash=y' => 'y',
+'dash=yes' => 'y',
+'dep=f' => 'n',
+'dep=false' => 'n',
+'dep=n' => 'n',
+'dep=no' => 'n',
+'dep=t' => 'y',
+'dep=true' => 'y',
+'dep=y' => 'y',
+'dep=yes' => 'y',
+'di=f' => 'n',
+'di=false' => 'n',
+'di=n' => 'n',
+'di=no' => 'n',
+'di=t' => 'y',
+'di=true' => 'y',
+'di=y' => 'y',
+'di=yes' => 'y',
+'dia=f' => 'n',
+'dia=false' => 'n',
+'dia=n' => 'n',
+'dia=no' => 'n',
+'dia=t' => 'y',
+'dia=true' => 'y',
+'dia=y' => 'y',
+'dia=yes' => 'y',
+'dt=can' => 'can',
+'dt=canonical' => 'can',
+'dt=circle' => 'enc',
+'dt=com' => 'com',
+'dt=compat' => 'com',
+'dt=enc' => 'enc',
+'dt=fin' => 'fin',
+'dt=final' => 'fin',
+'dt=font' => 'font',
+'dt=fra' => 'fra',
+'dt=fraction' => 'fra',
+'dt=init' => 'init',
+'dt=initial' => 'init',
+'dt=iso' => 'iso',
+'dt=isolated' => 'iso',
+'dt=med' => 'med',
+'dt=medial' => 'med',
+'dt=nar' => 'nar',
+'dt=narrow' => 'nar',
+'dt=nb' => 'nb',
+'dt=nobreak' => 'nb',
+'dt=noncanon' => 'noncanon',
+'dt=noncanonical' => 'noncanon',
+'dt=none' => 'none',
+'dt=small' => 'sml',
+'dt=sml' => 'sml',
+'dt=sqr' => 'sqr',
+'dt=square' => 'sqr',
+'dt=sub' => 'sub',
+'dt=sup' => 'sup',
+'dt=super' => 'sup',
+'dt=vert' => 'vert',
+'dt=vertical' => 'vert',
+'dt=wide' => 'wide',
+'ea=a' => 'a',
+'ea=ambiguous' => 'a',
+'ea=f' => 'f',
+'ea=fullwidth' => 'f',
+'ea=h' => 'h',
+'ea=halfwidth' => 'h',
+'ea=n' => 'n',
+'ea=na' => 'na',
+'ea=narrow' => 'na',
+'ea=neutral' => 'n',
+'ea=w' => 'w',
+'ea=wide' => 'w',
+'ext=f' => 'n',
+'ext=false' => 'n',
+'ext=n' => 'n',
+'ext=no' => 'n',
+'ext=t' => 'y',
+'ext=true' => 'y',
+'ext=y' => 'y',
+'ext=yes' => 'y',
+'gc=c' => 'c',
+'gc=casedletter' => 'lc',
+'gc=cc' => 'cc',
+'gc=cf' => 'cf',
+'gc=closepunctuation' => 'pe',
+'gc=cn' => 'cn',
+'gc=cntrl' => 'cc',
+'gc=co' => 'co',
+'gc=combiningmark' => 'm',
+'gc=connectorpunctuation' => 'pc',
+'gc=control' => 'cc',
+'gc=cs' => 'cs',
+'gc=currencysymbol' => 'sc',
+'gc=dashpunctuation' => 'pd',
+'gc=decimalnumber' => 'nd',
+'gc=digit' => 'nd',
+'gc=enclosingmark' => 'me',
+'gc=finalpunctuation' => 'pf',
+'gc=format' => 'cf',
+'gc=initialpunctuation' => 'pi',
+'gc=l' => 'l',
+'gc=l&' => 'lc',
+'gc=l_' => 'lc',
+'gc=lc' => 'lc',
+'gc=letter' => 'l',
+'gc=letternumber' => 'nl',
+'gc=lineseparator' => 'zl',
+'gc=ll' => 'll',
+'gc=lm' => 'lm',
+'gc=lo' => 'lo',
+'gc=lowercaseletter' => 'll',
+'gc=lt' => 'lt',
+'gc=lu' => 'lu',
+'gc=m' => 'm',
+'gc=mark' => 'm',
+'gc=mathsymbol' => 'sm',
+'gc=mc' => 'mc',
+'gc=me' => 'me',
+'gc=mn' => 'mn',
+'gc=modifierletter' => 'lm',
+'gc=modifiersymbol' => 'sk',
+'gc=n' => 'n',
+'gc=nd' => 'nd',
+'gc=nl' => 'nl',
+'gc=no' => 'no',
+'gc=nonspacingmark' => 'mn',
+'gc=number' => 'n',
+'gc=openpunctuation' => 'ps',
+'gc=other' => 'c',
+'gc=otherletter' => 'lo',
+'gc=othernumber' => 'no',
+'gc=otherpunctuation' => 'po',
+'gc=othersymbol' => 'so',
+'gc=p' => 'p',
+'gc=paragraphseparator' => 'zp',
+'gc=pc' => 'pc',
+'gc=pd' => 'pd',
+'gc=pe' => 'pe',
+'gc=pf' => 'pf',
+'gc=pi' => 'pi',
+'gc=po' => 'po',
+'gc=privateuse' => 'co',
+'gc=ps' => 'ps',
+'gc=punct' => 'p',
+'gc=punctuation' => 'p',
+'gc=s' => 's',
+'gc=sc' => 'sc',
+'gc=separator' => 'z',
+'gc=sk' => 'sk',
+'gc=sm' => 'sm',
+'gc=so' => 'so',
+'gc=spaceseparator' => 'zs',
+'gc=spacingmark' => 'mc',
+'gc=surrogate' => 'cs',
+'gc=symbol' => 's',
+'gc=titlecaseletter' => 'lt',
+'gc=unassigned' => 'cn',
+'gc=uppercaseletter' => 'lu',
+'gc=z' => 'z',
+'gc=zl' => 'zl',
+'gc=zp' => 'zp',
+'gc=zs' => 'zs',
+'gcb=cn' => 'cn',
+'gcb=control' => 'cn',
+'gcb=cr' => 'cr',
+'gcb=eb' => 'eb',
+'gcb=ebase' => 'eb',
+'gcb=ebasegaz' => 'ebg',
+'gcb=ebg' => 'ebg',
+'gcb=em' => 'em',
+'gcb=emodifier' => 'em',
+'gcb=ex' => 'ex',
+'gcb=extend' => 'ex',
+'gcb=gaz' => 'gaz',
+'gcb=glueafterzwj' => 'gaz',
+'gcb=l' => 'l',
+'gcb=lf' => 'lf',
+'gcb=lv' => 'lv',
+'gcb=lvt' => 'lvt',
+'gcb=other' => 'xx',
+'gcb=pp' => 'pp',
+'gcb=prepend' => 'pp',
+'gcb=regionalindicator' => 'ri',
+'gcb=ri' => 'ri',
+'gcb=sm' => 'sm',
+'gcb=spacingmark' => 'sm',
+'gcb=t' => 't',
+'gcb=v' => 'v',
+'gcb=xx' => 'xx',
+'gcb=zwj' => 'zwj',
+'grbase=f' => 'n',
+'grbase=false' => 'n',
+'grbase=n' => 'n',
+'grbase=no' => 'n',
+'grbase=t' => 'y',
+'grbase=true' => 'y',
+'grbase=y' => 'y',
+'grbase=yes' => 'y',
+'grext=f' => 'n',
+'grext=false' => 'n',
+'grext=n' => 'n',
+'grext=no' => 'n',
+'grext=t' => 'y',
+'grext=true' => 'y',
+'grext=y' => 'y',
+'grext=yes' => 'y',
+'hex=f' => 'n',
+'hex=false' => 'n',
+'hex=n' => 'n',
+'hex=no' => 'n',
+'hex=t' => 'y',
+'hex=true' => 'y',
+'hex=y' => 'y',
+'hex=yes' => 'y',
+'hst=l' => 'l',
+'hst=leadingjamo' => 'l',
+'hst=lv' => 'lv',
+'hst=lvsyllable' => 'lv',
+'hst=lvt' => 'lvt',
+'hst=lvtsyllable' => 'lvt',
+'hst=na' => 'na',
+'hst=notapplicable' => 'na',
+'hst=t' => 't',
+'hst=trailingjamo' => 't',
+'hst=v' => 'v',
+'hst=voweljamo' => 'v',
+'hyphen=f' => 'n',
+'hyphen=false' => 'n',
+'hyphen=n' => 'n',
+'hyphen=no' => 'n',
+'hyphen=t' => 'y',
+'hyphen=true' => 'y',
+'hyphen=y' => 'y',
+'hyphen=yes' => 'y',
+'idc=f' => 'n',
+'idc=false' => 'n',
+'idc=n' => 'n',
+'idc=no' => 'n',
+'idc=t' => 'y',
+'idc=true' => 'y',
+'idc=y' => 'y',
+'idc=yes' => 'y',
+'ideo=f' => 'n',
+'ideo=false' => 'n',
+'ideo=n' => 'n',
+'ideo=no' => 'n',
+'ideo=t' => 'y',
+'ideo=true' => 'y',
+'ideo=y' => 'y',
+'ideo=yes' => 'y',
+'ids=f' => 'n',
+'ids=false' => 'n',
+'ids=n' => 'n',
+'ids=no' => 'n',
+'ids=t' => 'y',
+'ids=true' => 'y',
+'ids=y' => 'y',
+'ids=yes' => 'y',
+'idsb=f' => 'n',
+'idsb=false' => 'n',
+'idsb=n' => 'n',
+'idsb=no' => 'n',
+'idsb=t' => 'y',
+'idsb=true' => 'y',
+'idsb=y' => 'y',
+'idsb=yes' => 'y',
+'idst=f' => 'n',
+'idst=false' => 'n',
+'idst=n' => 'n',
+'idst=no' => 'n',
+'idst=t' => 'y',
+'idst=true' => 'y',
+'idst=y' => 'y',
+'idst=yes' => 'y',
+'in=1.1' => '1.1',
+'in=10.0' => '10.0',
+'in=2.0' => '2.0',
+'in=2.1' => '2.1',
+'in=3.0' => '3.0',
+'in=3.1' => '3.1',
+'in=3.2' => '3.2',
+'in=4.0' => '4.0',
+'in=4.1' => '4.1',
+'in=5.0' => '5.0',
+'in=5.1' => '5.1',
+'in=5.2' => '5.2',
+'in=6.0' => '6.0',
+'in=6.1' => '6.1',
+'in=6.2' => '6.2',
+'in=6.3' => '6.3',
+'in=7.0' => '7.0',
+'in=8.0' => '8.0',
+'in=9.0' => '9.0',
+'in=unassigned' => 'unassigned',
+'in=v100' => '10.0',
+'in=v20' => '2.0',
+'in=v21' => '2.1',
+'in=v30' => '3.0',
+'in=v31' => '3.1',
+'in=v32' => '3.2',
+'in=v40' => '4.0',
+'in=v41' => '4.1',
+'in=v50' => '5.0',
+'in=v51' => '5.1',
+'in=v52' => '5.2',
+'in=v60' => '6.0',
+'in=v61' => '6.1',
+'in=v62' => '6.2',
+'in=v63' => '6.3',
+'in=v70' => '7.0',
+'in=v80' => '8.0',
+'in=v90' => '9.0',
+'inpc=bottom' => 'bottom',
+'inpc=bottomandleft' => 'bottomandleft',
+'inpc=bottomandright' => 'bottomandright',
+'inpc=left' => 'left',
+'inpc=leftandright' => 'leftandright',
+'inpc=na' => 'na',
+'inpc=overstruck' => 'overstruck',
+'inpc=right' => 'right',
+'inpc=top' => 'top',
+'inpc=topandbottom' => 'topandbottom',
+'inpc=topandbottomandright' => 'topandbottomandright',
+'inpc=topandleft' => 'topandleft',
+'inpc=topandleftandright' => 'topandleftandright',
+'inpc=topandright' => 'topandright',
+'inpc=visualorderleft' => 'visualorderleft',
+'insc=avagraha' => 'avagraha',
+'insc=bindu' => 'bindu',
+'insc=brahmijoiningnumber' => 'brahmijoiningnumber',
+'insc=cantillationmark' => 'cantillationmark',
+'insc=consonant' => 'consonant',
+'insc=consonantdead' => 'consonantdead',
+'insc=consonantfinal' => 'consonantfinal',
+'insc=consonantheadletter' => 'consonantheadletter',
+'insc=consonantkiller' => 'consonantkiller',
+'insc=consonantmedial' => 'consonantmedial',
+'insc=consonantplaceholder' => 'consonantplaceholder',
+'insc=consonantprecedingrepha' => 'consonantprecedingrepha',
+'insc=consonantprefixed' => 'consonantprefixed',
+'insc=consonantsubjoined' => 'consonantsubjoined',
+'insc=consonantsucceedingrepha' => 'consonantsucceedingrepha',
+'insc=consonantwithstacker' => 'consonantwithstacker',
+'insc=geminationmark' => 'geminationmark',
+'insc=invisiblestacker' => 'invisiblestacker',
+'insc=joiner' => 'joiner',
+'insc=modifyingletter' => 'modifyingletter',
+'insc=nonjoiner' => 'nonjoiner',
+'insc=nukta' => 'nukta',
+'insc=number' => 'number',
+'insc=numberjoiner' => 'numberjoiner',
+'insc=other' => 'other',
+'insc=purekiller' => 'purekiller',
+'insc=registershifter' => 'registershifter',
+'insc=syllablemodifier' => 'syllablemodifier',
+'insc=toneletter' => 'toneletter',
+'insc=tonemark' => 'tonemark',
+'insc=virama' => 'virama',
+'insc=visarga' => 'visarga',
+'insc=vowel' => 'vowel',
+'insc=voweldependent' => 'voweldependent',
+'insc=vowelindependent' => 'vowelindependent',
+'jg=africanfeh' => 'africanfeh',
+'jg=africannoon' => 'africannoon',
+'jg=africanqaf' => 'africanqaf',
+'jg=ain' => 'ain',
+'jg=alaph' => 'alaph',
+'jg=alef' => 'alef',
+'jg=beh' => 'beh',
+'jg=beth' => 'beth',
+'jg=burushaskiyehbarree' => 'burushaskiyehbarree',
+'jg=dal' => 'dal',
+'jg=dalathrish' => 'dalathrish',
+'jg=e' => 'e',
+'jg=farsiyeh' => 'farsiyeh',
+'jg=fe' => 'fe',
+'jg=feh' => 'feh',
+'jg=finalsemkath' => 'finalsemkath',
+'jg=gaf' => 'gaf',
+'jg=gamal' => 'gamal',
+'jg=hah' => 'hah',
+'jg=hamzaonhehgoal' => 'tehmarbutagoal',
+'jg=he' => 'he',
+'jg=heh' => 'heh',
+'jg=hehgoal' => 'hehgoal',
+'jg=heth' => 'heth',
+'jg=kaf' => 'kaf',
+'jg=kaph' => 'kaph',
+'jg=khaph' => 'khaph',
+'jg=knottedheh' => 'knottedheh',
+'jg=lam' => 'lam',
+'jg=lamadh' => 'lamadh',
+'jg=malayalambha' => 'malayalambha',
+'jg=malayalamja' => 'malayalamja',
+'jg=malayalamlla' => 'malayalamlla',
+'jg=malayalamllla' => 'malayalamllla',
+'jg=malayalamnga' => 'malayalamnga',
+'jg=malayalamnna' => 'malayalamnna',
+'jg=malayalamnnna' => 'malayalamnnna',
+'jg=malayalamnya' => 'malayalamnya',
+'jg=malayalamra' => 'malayalamra',
+'jg=malayalamssa' => 'malayalamssa',
+'jg=malayalamtta' => 'malayalamtta',
+'jg=manichaeanaleph' => 'manichaeanaleph',
+'jg=manichaeanayin' => 'manichaeanayin',
+'jg=manichaeanbeth' => 'manichaeanbeth',
+'jg=manichaeandaleth' => 'manichaeandaleth',
+'jg=manichaeandhamedh' => 'manichaeandhamedh',
+'jg=manichaeanfive' => 'manichaeanfive',
+'jg=manichaeangimel' => 'manichaeangimel',
+'jg=manichaeanheth' => 'manichaeanheth',
+'jg=manichaeanhundred' => 'manichaeanhundred',
+'jg=manichaeankaph' => 'manichaeankaph',
+'jg=manichaeanlamedh' => 'manichaeanlamedh',
+'jg=manichaeanmem' => 'manichaeanmem',
+'jg=manichaeannun' => 'manichaeannun',
+'jg=manichaeanone' => 'manichaeanone',
+'jg=manichaeanpe' => 'manichaeanpe',
+'jg=manichaeanqoph' => 'manichaeanqoph',
+'jg=manichaeanresh' => 'manichaeanresh',
+'jg=manichaeansadhe' => 'manichaeansadhe',
+'jg=manichaeansamekh' => 'manichaeansamekh',
+'jg=manichaeantaw' => 'manichaeantaw',
+'jg=manichaeanten' => 'manichaeanten',
+'jg=manichaeanteth' => 'manichaeanteth',
+'jg=manichaeanthamedh' => 'manichaeanthamedh',
+'jg=manichaeantwenty' => 'manichaeantwenty',
+'jg=manichaeanwaw' => 'manichaeanwaw',
+'jg=manichaeanyodh' => 'manichaeanyodh',
+'jg=manichaeanzayin' => 'manichaeanzayin',
+'jg=meem' => 'meem',
+'jg=mim' => 'mim',
+'jg=nojoininggroup' => 'nojoininggroup',
+'jg=noon' => 'noon',
+'jg=nun' => 'nun',
+'jg=nya' => 'nya',
+'jg=pe' => 'pe',
+'jg=qaf' => 'qaf',
+'jg=qaph' => 'qaph',
+'jg=reh' => 'reh',
+'jg=reversedpe' => 'reversedpe',
+'jg=rohingyayeh' => 'rohingyayeh',
+'jg=sad' => 'sad',
+'jg=sadhe' => 'sadhe',
+'jg=seen' => 'seen',
+'jg=semkath' => 'semkath',
+'jg=shin' => 'shin',
+'jg=straightwaw' => 'straightwaw',
+'jg=swashkaf' => 'swashkaf',
+'jg=syriacwaw' => 'syriacwaw',
+'jg=tah' => 'tah',
+'jg=taw' => 'taw',
+'jg=tehmarbuta' => 'tehmarbuta',
+'jg=tehmarbutagoal' => 'tehmarbutagoal',
+'jg=teth' => 'teth',
+'jg=waw' => 'waw',
+'jg=yeh' => 'yeh',
+'jg=yehbarree' => 'yehbarree',
+'jg=yehwithtail' => 'yehwithtail',
+'jg=yudh' => 'yudh',
+'jg=yudhhe' => 'yudhhe',
+'jg=zain' => 'zain',
+'jg=zhain' => 'zhain',
+'joinc=f' => 'n',
+'joinc=false' => 'n',
+'joinc=n' => 'n',
+'joinc=no' => 'n',
+'joinc=t' => 'y',
+'joinc=true' => 'y',
+'joinc=y' => 'y',
+'joinc=yes' => 'y',
+'jt=c' => 'c',
+'jt=d' => 'd',
+'jt=dualjoining' => 'd',
+'jt=joincausing' => 'c',
+'jt=l' => 'l',
+'jt=leftjoining' => 'l',
+'jt=nonjoining' => 'u',
+'jt=r' => 'r',
+'jt=rightjoining' => 'r',
+'jt=t' => 't',
+'jt=transparent' => 't',
+'jt=u' => 'u',
+'lb=ai' => 'ai',
+'lb=al' => 'al',
+'lb=alphabetic' => 'al',
+'lb=ambiguous' => 'ai',
+'lb=b2' => 'b2',
+'lb=ba' => 'ba',
+'lb=bb' => 'bb',
+'lb=bk' => 'bk',
+'lb=breakafter' => 'ba',
+'lb=breakbefore' => 'bb',
+'lb=breakboth' => 'b2',
+'lb=breaksymbols' => 'sy',
+'lb=carriagereturn' => 'cr',
+'lb=cb' => 'cb',
+'lb=cj' => 'cj',
+'lb=cl' => 'cl',
+'lb=closeparenthesis' => 'cp',
+'lb=closepunctuation' => 'cl',
+'lb=cm' => 'cm',
+'lb=combiningmark' => 'cm',
+'lb=complexcontext' => 'sa',
+'lb=conditionaljapanesestarter' => 'cj',
+'lb=contingentbreak' => 'cb',
+'lb=cp' => 'cp',
+'lb=cr' => 'cr',
+'lb=eb' => 'eb',
+'lb=ebase' => 'eb',
+'lb=em' => 'em',
+'lb=emodifier' => 'em',
+'lb=ex' => 'ex',
+'lb=exclamation' => 'ex',
+'lb=gl' => 'gl',
+'lb=glue' => 'gl',
+'lb=h2' => 'h2',
+'lb=h3' => 'h3',
+'lb=hebrewletter' => 'hl',
+'lb=hl' => 'hl',
+'lb=hy' => 'hy',
+'lb=hyphen' => 'hy',
+'lb=id' => 'id',
+'lb=ideographic' => 'id',
+'lb=in' => 'in',
+'lb=infixnumeric' => 'is',
+'lb=inseparable' => 'in',
+'lb=inseperable' => 'in',
+'lb=is' => 'is',
+'lb=jl' => 'jl',
+'lb=jt' => 'jt',
+'lb=jv' => 'jv',
+'lb=lf' => 'lf',
+'lb=linefeed' => 'lf',
+'lb=mandatorybreak' => 'bk',
+'lb=nextline' => 'nl',
+'lb=nl' => 'nl',
+'lb=nonstarter' => 'ns',
+'lb=ns' => 'ns',
+'lb=nu' => 'nu',
+'lb=numeric' => 'nu',
+'lb=op' => 'op',
+'lb=openpunctuation' => 'op',
+'lb=po' => 'po',
+'lb=postfixnumeric' => 'po',
+'lb=pr' => 'pr',
+'lb=prefixnumeric' => 'pr',
+'lb=qu' => 'qu',
+'lb=quotation' => 'qu',
+'lb=regionalindicator' => 'ri',
+'lb=ri' => 'ri',
+'lb=sa' => 'sa',
+'lb=sg' => 'sg',
+'lb=sp' => 'sp',
+'lb=space' => 'sp',
+'lb=surrogate' => 'sg',
+'lb=sy' => 'sy',
+'lb=unknown' => 'xx',
+'lb=wj' => 'wj',
+'lb=wordjoiner' => 'wj',
+'lb=xx' => 'xx',
+'lb=zw' => 'zw',
+'lb=zwj' => 'zwj',
+'lb=zwspace' => 'zw',
+'loe=f' => 'n',
+'loe=false' => 'n',
+'loe=n' => 'n',
+'loe=no' => 'n',
+'loe=t' => 'y',
+'loe=true' => 'y',
+'loe=y' => 'y',
+'loe=yes' => 'y',
+'lower=f' => 'n',
+'lower=false' => 'n',
+'lower=n' => 'n',
+'lower=no' => 'n',
+'lower=t' => 'y',
+'lower=true' => 'y',
+'lower=y' => 'y',
+'lower=yes' => 'y',
+'math=f' => 'n',
+'math=false' => 'n',
+'math=n' => 'n',
+'math=no' => 'n',
+'math=t' => 'y',
+'math=true' => 'y',
+'math=y' => 'y',
+'math=yes' => 'y',
+'nchar=f' => 'n',
+'nchar=false' => 'n',
+'nchar=n' => 'n',
+'nchar=no' => 'n',
+'nchar=t' => 'y',
+'nchar=true' => 'y',
+'nchar=y' => 'y',
+'nchar=yes' => 'y',
+'nfcqc=m' => 'm',
+'nfcqc=maybe' => 'm',
+'nfcqc=n' => 'n',
+'nfcqc=no' => 'n',
+'nfcqc=y' => 'y',
+'nfcqc=yes' => 'y',
+'nfdqc=n' => 'n',
+'nfdqc=no' => 'n',
+'nfdqc=y' => 'y',
+'nfdqc=yes' => 'y',
+'nfkcqc=m' => 'm',
+'nfkcqc=maybe' => 'm',
+'nfkcqc=n' => 'n',
+'nfkcqc=no' => 'n',
+'nfkcqc=y' => 'y',
+'nfkcqc=yes' => 'y',
+'nfkdqc=n' => 'n',
+'nfkdqc=no' => 'n',
+'nfkdqc=y' => 'y',
+'nfkdqc=yes' => 'y',
+'nt=de' => 'de',
+'nt=decimal' => 'de',
+'nt=di' => 'di',
+'nt=digit' => 'di',
+'nt=none' => 'none',
+'nt=nu' => 'nu',
+'nt=numeric' => 'nu',
+'nv=-1/2' => '-1/2',
+'nv=0' => 0,
+'nv=1' => 1,
+'nv=1/10' => '1/10',
+'nv=1/12' => '1/12',
+'nv=1/16' => '1/16',
+'nv=1/160' => '1/160',
+'nv=1/2' => '1/2',
+'nv=1/20' => '1/20',
+'nv=1/3' => '1/3',
+'nv=1/4' => '1/4',
+'nv=1/40' => '1/40',
+'nv=1/5' => '1/5',
+'nv=1/6' => '1/6',
+'nv=1/7' => '1/7',
+'nv=1/8' => '1/8',
+'nv=1/9' => '1/9',
+'nv=10' => 10,
+'nv=100' => 100,
+'nv=1000' => 1000,
+'nv=10000' => 10000,
+'nv=100000' => 100000,
+'nv=1000000' => 1000000,
+'nv=100000000' => 100000000,
+'nv=10000000000' => 10000000000,
+'nv=1000000000000' => 1000000000000,
+'nv=11' => 11,
+'nv=11/12' => '11/12',
+'nv=11/2' => '11/2',
+'nv=12' => 12,
+'nv=13' => 13,
+'nv=13/2' => '13/2',
+'nv=14' => 14,
+'nv=15' => 15,
+'nv=15/2' => '15/2',
+'nv=16' => 16,
+'nv=17' => 17,
+'nv=17/2' => '17/2',
+'nv=18' => 18,
+'nv=19' => 19,
+'nv=2' => 2,
+'nv=2/3' => '2/3',
+'nv=2/5' => '2/5',
+'nv=20' => 20,
+'nv=200' => 200,
+'nv=2000' => 2000,
+'nv=20000' => 20000,
+'nv=200000' => 200000,
+'nv=21' => 21,
+'nv=216000' => 216000,
+'nv=22' => 22,
+'nv=23' => 23,
+'nv=24' => 24,
+'nv=25' => 25,
+'nv=26' => 26,
+'nv=27' => 27,
+'nv=28' => 28,
+'nv=29' => 29,
+'nv=3' => 3,
+'nv=3/16' => '3/16',
+'nv=3/2' => '3/2',
+'nv=3/20' => '3/20',
+'nv=3/4' => '3/4',
+'nv=3/5' => '3/5',
+'nv=3/8' => '3/8',
+'nv=3/80' => '3/80',
+'nv=30' => 30,
+'nv=300' => 300,
+'nv=3000' => 3000,
+'nv=30000' => 30000,
+'nv=300000' => 300000,
+'nv=31' => 31,
+'nv=32' => 32,
+'nv=33' => 33,
+'nv=34' => 34,
+'nv=35' => 35,
+'nv=36' => 36,
+'nv=37' => 37,
+'nv=38' => 38,
+'nv=39' => 39,
+'nv=4' => 4,
+'nv=4/5' => '4/5',
+'nv=40' => 40,
+'nv=400' => 400,
+'nv=4000' => 4000,
+'nv=40000' => 40000,
+'nv=400000' => 400000,
+'nv=41' => 41,
+'nv=42' => 42,
+'nv=43' => 43,
+'nv=432000' => 432000,
+'nv=44' => 44,
+'nv=45' => 45,
+'nv=46' => 46,
+'nv=47' => 47,
+'nv=48' => 48,
+'nv=49' => 49,
+'nv=5' => 5,
+'nv=5/12' => '5/12',
+'nv=5/2' => '5/2',
+'nv=5/6' => '5/6',
+'nv=5/8' => '5/8',
+'nv=50' => 50,
+'nv=500' => 500,
+'nv=5000' => 5000,
+'nv=50000' => 50000,
+'nv=500000' => 500000,
+'nv=6' => 6,
+'nv=60' => 60,
+'nv=600' => 600,
+'nv=6000' => 6000,
+'nv=60000' => 60000,
+'nv=600000' => 600000,
+'nv=7' => 7,
+'nv=7/12' => '7/12',
+'nv=7/2' => '7/2',
+'nv=7/8' => '7/8',
+'nv=70' => 70,
+'nv=700' => 700,
+'nv=7000' => 7000,
+'nv=70000' => 70000,
+'nv=700000' => 700000,
+'nv=8' => 8,
+'nv=80' => 80,
+'nv=800' => 800,
+'nv=8000' => 8000,
+'nv=80000' => 80000,
+'nv=800000' => 800000,
+'nv=9' => 9,
+'nv=9/2' => '9/2',
+'nv=90' => 90,
+'nv=900' => 900,
+'nv=9000' => 9000,
+'nv=90000' => 90000,
+'nv=900000' => 900000,
+'nv=nan' => 'nan',
+'patsyn=f' => 'n',
+'patsyn=false' => 'n',
+'patsyn=n' => 'n',
+'patsyn=no' => 'n',
+'patsyn=t' => 'y',
+'patsyn=true' => 'y',
+'patsyn=y' => 'y',
+'patsyn=yes' => 'y',
+'patws=f' => 'n',
+'patws=false' => 'n',
+'patws=n' => 'n',
+'patws=no' => 'n',
+'patws=t' => 'y',
+'patws=true' => 'y',
+'patws=y' => 'y',
+'patws=yes' => 'y',
+'pcm=f' => 'n',
+'pcm=false' => 'n',
+'pcm=n' => 'n',
+'pcm=no' => 'n',
+'pcm=t' => 'y',
+'pcm=true' => 'y',
+'pcm=y' => 'y',
+'pcm=yes' => 'y',
+'qmark=f' => 'n',
+'qmark=false' => 'n',
+'qmark=n' => 'n',
+'qmark=no' => 'n',
+'qmark=t' => 'y',
+'qmark=true' => 'y',
+'qmark=y' => 'y',
+'qmark=yes' => 'y',
+'radical=f' => 'n',
+'radical=false' => 'n',
+'radical=n' => 'n',
+'radical=no' => 'n',
+'radical=t' => 'y',
+'radical=true' => 'y',
+'radical=y' => 'y',
+'radical=yes' => 'y',
+'ri=f' => 'n',
+'ri=false' => 'n',
+'ri=n' => 'n',
+'ri=no' => 'n',
+'ri=t' => 'y',
+'ri=true' => 'y',
+'ri=y' => 'y',
+'ri=yes' => 'y',
+'sb=at' => 'at',
+'sb=aterm' => 'at',
+'sb=cl' => 'cl',
+'sb=close' => 'cl',
+'sb=cr' => 'cr',
+'sb=ex' => 'ex',
+'sb=extend' => 'ex',
+'sb=fo' => 'fo',
+'sb=format' => 'fo',
+'sb=le' => 'le',
+'sb=lf' => 'lf',
+'sb=lo' => 'lo',
+'sb=lower' => 'lo',
+'sb=nu' => 'nu',
+'sb=numeric' => 'nu',
+'sb=oletter' => 'le',
+'sb=other' => 'xx',
+'sb=sc' => 'sc',
+'sb=scontinue' => 'sc',
+'sb=se' => 'se',
+'sb=sep' => 'se',
+'sb=sp' => 'sp',
+'sb=st' => 'st',
+'sb=sterm' => 'st',
+'sb=up' => 'up',
+'sb=upper' => 'up',
+'sb=xx' => 'xx',
+'sc=adlam' => 'adlm',
+'sc=adlm' => 'adlm',
+'sc=aghb' => 'aghb',
+'sc=ahom' => 'ahom',
+'sc=anatolianhieroglyphs' => 'hluw',
+'sc=arab' => 'arab',
+'sc=arabic' => 'arab',
+'sc=armenian' => 'armn',
+'sc=armi' => 'armi',
+'sc=armn' => 'armn',
+'sc=avestan' => 'avst',
+'sc=avst' => 'avst',
+'sc=bali' => 'bali',
+'sc=balinese' => 'bali',
+'sc=bamu' => 'bamu',
+'sc=bamum' => 'bamu',
+'sc=bass' => 'bass',
+'sc=bassavah' => 'bass',
+'sc=batak' => 'batk',
+'sc=batk' => 'batk',
+'sc=beng' => 'beng',
+'sc=bengali' => 'beng',
+'sc=bhaiksuki' => 'bhks',
+'sc=bhks' => 'bhks',
+'sc=bopo' => 'bopo',
+'sc=bopomofo' => 'bopo',
+'sc=brah' => 'brah',
+'sc=brahmi' => 'brah',
+'sc=brai' => 'brai',
+'sc=braille' => 'brai',
+'sc=bugi' => 'bugi',
+'sc=buginese' => 'bugi',
+'sc=buhd' => 'buhd',
+'sc=buhid' => 'buhd',
+'sc=cakm' => 'cakm',
+'sc=canadianaboriginal' => 'cans',
+'sc=cans' => 'cans',
+'sc=cari' => 'cari',
+'sc=carian' => 'cari',
+'sc=caucasianalbanian' => 'aghb',
+'sc=chakma' => 'cakm',
+'sc=cham' => 'cham',
+'sc=cher' => 'cher',
+'sc=cherokee' => 'cher',
+'sc=common' => 'zyyy',
+'sc=copt' => 'copt',
+'sc=coptic' => 'copt',
+'sc=cprt' => 'cprt',
+'sc=cuneiform' => 'xsux',
+'sc=cypriot' => 'cprt',
+'sc=cyrillic' => 'cyrl',
+'sc=cyrl' => 'cyrl',
+'sc=deseret' => 'dsrt',
+'sc=deva' => 'deva',
+'sc=devanagari' => 'deva',
+'sc=dsrt' => 'dsrt',
+'sc=dupl' => 'dupl',
+'sc=duployan' => 'dupl',
+'sc=egyp' => 'egyp',
+'sc=egyptianhieroglyphs' => 'egyp',
+'sc=elba' => 'elba',
+'sc=elbasan' => 'elba',
+'sc=ethi' => 'ethi',
+'sc=ethiopic' => 'ethi',
+'sc=geor' => 'geor',
+'sc=georgian' => 'geor',
+'sc=glag' => 'glag',
+'sc=glagolitic' => 'glag',
+'sc=gonm' => 'gonm',
+'sc=goth' => 'goth',
+'sc=gothic' => 'goth',
+'sc=gran' => 'gran',
+'sc=grantha' => 'gran',
+'sc=greek' => 'grek',
+'sc=grek' => 'grek',
+'sc=gujarati' => 'gujr',
+'sc=gujr' => 'gujr',
+'sc=gurmukhi' => 'guru',
+'sc=guru' => 'guru',
+'sc=han' => 'hani',
+'sc=hang' => 'hang',
+'sc=hangul' => 'hang',
+'sc=hani' => 'hani',
+'sc=hano' => 'hano',
+'sc=hanunoo' => 'hano',
+'sc=hatr' => 'hatr',
+'sc=hatran' => 'hatr',
+'sc=hebr' => 'hebr',
+'sc=hebrew' => 'hebr',
+'sc=hira' => 'hira',
+'sc=hiragana' => 'hira',
+'sc=hluw' => 'hluw',
+'sc=hmng' => 'hmng',
+'sc=hung' => 'hung',
+'sc=imperialaramaic' => 'armi',
+'sc=inherited' => 'zinh',
+'sc=inscriptionalpahlavi' => 'phli',
+'sc=inscriptionalparthian' => 'prti',
+'sc=ital' => 'ital',
+'sc=java' => 'java',
+'sc=javanese' => 'java',
+'sc=kaithi' => 'kthi',
+'sc=kali' => 'kali',
+'sc=kana' => 'kana',
+'sc=kannada' => 'knda',
+'sc=katakana' => 'kana',
+'sc=kayahli' => 'kali',
+'sc=khar' => 'khar',
+'sc=kharoshthi' => 'khar',
+'sc=khmer' => 'khmr',
+'sc=khmr' => 'khmr',
+'sc=khoj' => 'khoj',
+'sc=khojki' => 'khoj',
+'sc=khudawadi' => 'sind',
+'sc=knda' => 'knda',
+'sc=kthi' => 'kthi',
+'sc=lana' => 'lana',
+'sc=lao' => 'laoo',
+'sc=laoo' => 'laoo',
+'sc=latin' => 'latn',
+'sc=latn' => 'latn',
+'sc=lepc' => 'lepc',
+'sc=lepcha' => 'lepc',
+'sc=limb' => 'limb',
+'sc=limbu' => 'limb',
+'sc=lina' => 'lina',
+'sc=linb' => 'linb',
+'sc=lineara' => 'lina',
+'sc=linearb' => 'linb',
+'sc=lisu' => 'lisu',
+'sc=lyci' => 'lyci',
+'sc=lycian' => 'lyci',
+'sc=lydi' => 'lydi',
+'sc=lydian' => 'lydi',
+'sc=mahajani' => 'mahj',
+'sc=mahj' => 'mahj',
+'sc=malayalam' => 'mlym',
+'sc=mand' => 'mand',
+'sc=mandaic' => 'mand',
+'sc=mani' => 'mani',
+'sc=manichaean' => 'mani',
+'sc=marc' => 'marc',
+'sc=marchen' => 'marc',
+'sc=masaramgondi' => 'gonm',
+'sc=meeteimayek' => 'mtei',
+'sc=mend' => 'mend',
+'sc=mendekikakui' => 'mend',
+'sc=merc' => 'merc',
+'sc=mero' => 'mero',
+'sc=meroiticcursive' => 'merc',
+'sc=meroitichieroglyphs' => 'mero',
+'sc=miao' => 'plrd',
+'sc=mlym' => 'mlym',
+'sc=modi' => 'modi',
+'sc=mong' => 'mong',
+'sc=mongolian' => 'mong',
+'sc=mro' => 'mroo',
+'sc=mroo' => 'mroo',
+'sc=mtei' => 'mtei',
+'sc=mult' => 'mult',
+'sc=multani' => 'mult',
+'sc=myanmar' => 'mymr',
+'sc=mymr' => 'mymr',
+'sc=nabataean' => 'nbat',
+'sc=narb' => 'narb',
+'sc=nbat' => 'nbat',
+'sc=newa' => 'newa',
+'sc=newtailue' => 'talu',
+'sc=nko' => 'nkoo',
+'sc=nkoo' => 'nkoo',
+'sc=nshu' => 'nshu',
+'sc=nushu' => 'nshu',
+'sc=ogam' => 'ogam',
+'sc=ogham' => 'ogam',
+'sc=olchiki' => 'olck',
+'sc=olck' => 'olck',
+'sc=oldhungarian' => 'hung',
+'sc=olditalic' => 'ital',
+'sc=oldnortharabian' => 'narb',
+'sc=oldpermic' => 'perm',
+'sc=oldpersian' => 'xpeo',
+'sc=oldsoutharabian' => 'sarb',
+'sc=oldturkic' => 'orkh',
+'sc=oriya' => 'orya',
+'sc=orkh' => 'orkh',
+'sc=orya' => 'orya',
+'sc=osage' => 'osge',
+'sc=osge' => 'osge',
+'sc=osma' => 'osma',
+'sc=osmanya' => 'osma',
+'sc=pahawhhmong' => 'hmng',
+'sc=palm' => 'palm',
+'sc=palmyrene' => 'palm',
+'sc=pauc' => 'pauc',
+'sc=paucinhau' => 'pauc',
+'sc=perm' => 'perm',
+'sc=phag' => 'phag',
+'sc=phagspa' => 'phag',
+'sc=phli' => 'phli',
+'sc=phlp' => 'phlp',
+'sc=phnx' => 'phnx',
+'sc=phoenician' => 'phnx',
+'sc=plrd' => 'plrd',
+'sc=prti' => 'prti',
+'sc=psalterpahlavi' => 'phlp',
+'sc=qaac' => 'copt',
+'sc=qaai' => 'zinh',
+'sc=rejang' => 'rjng',
+'sc=rjng' => 'rjng',
+'sc=runic' => 'runr',
+'sc=runr' => 'runr',
+'sc=samaritan' => 'samr',
+'sc=samr' => 'samr',
+'sc=sarb' => 'sarb',
+'sc=saur' => 'saur',
+'sc=saurashtra' => 'saur',
+'sc=sgnw' => 'sgnw',
+'sc=sharada' => 'shrd',
+'sc=shavian' => 'shaw',
+'sc=shaw' => 'shaw',
+'sc=shrd' => 'shrd',
+'sc=sidd' => 'sidd',
+'sc=siddham' => 'sidd',
+'sc=signwriting' => 'sgnw',
+'sc=sind' => 'sind',
+'sc=sinh' => 'sinh',
+'sc=sinhala' => 'sinh',
+'sc=sora' => 'sora',
+'sc=sorasompeng' => 'sora',
+'sc=soyo' => 'soyo',
+'sc=soyombo' => 'soyo',
+'sc=sund' => 'sund',
+'sc=sundanese' => 'sund',
+'sc=sylo' => 'sylo',
+'sc=sylotinagri' => 'sylo',
+'sc=syrc' => 'syrc',
+'sc=syriac' => 'syrc',
+'sc=tagalog' => 'tglg',
+'sc=tagb' => 'tagb',
+'sc=tagbanwa' => 'tagb',
+'sc=taile' => 'tale',
+'sc=taitham' => 'lana',
+'sc=taiviet' => 'tavt',
+'sc=takr' => 'takr',
+'sc=takri' => 'takr',
+'sc=tale' => 'tale',
+'sc=talu' => 'talu',
+'sc=tamil' => 'taml',
+'sc=taml' => 'taml',
+'sc=tang' => 'tang',
+'sc=tangut' => 'tang',
+'sc=tavt' => 'tavt',
+'sc=telu' => 'telu',
+'sc=telugu' => 'telu',
+'sc=tfng' => 'tfng',
+'sc=tglg' => 'tglg',
+'sc=thaa' => 'thaa',
+'sc=thaana' => 'thaa',
+'sc=thai' => 'thai',
+'sc=tibetan' => 'tibt',
+'sc=tibt' => 'tibt',
+'sc=tifinagh' => 'tfng',
+'sc=tirh' => 'tirh',
+'sc=tirhuta' => 'tirh',
+'sc=ugar' => 'ugar',
+'sc=ugaritic' => 'ugar',
+'sc=unknown' => 'zzzz',
+'sc=vai' => 'vaii',
+'sc=vaii' => 'vaii',
+'sc=wara' => 'wara',
+'sc=warangciti' => 'wara',
+'sc=xpeo' => 'xpeo',
+'sc=xsux' => 'xsux',
+'sc=yi' => 'yiii',
+'sc=yiii' => 'yiii',
+'sc=zanabazarsquare' => 'zanb',
+'sc=zanb' => 'zanb',
+'sc=zinh' => 'zinh',
+'sc=zyyy' => 'zyyy',
+'sc=zzzz' => 'zzzz',
+'scx=adlam' => 'adlm',
+'scx=adlm' => 'adlm',
+'scx=aghb' => 'aghb',
+'scx=ahom' => 'ahom',
+'scx=anatolianhieroglyphs' => 'hluw',
+'scx=arab' => 'arab',
+'scx=arabic' => 'arab',
+'scx=armenian' => 'armn',
+'scx=armi' => 'armi',
+'scx=armn' => 'armn',
+'scx=avestan' => 'avst',
+'scx=avst' => 'avst',
+'scx=bali' => 'bali',
+'scx=balinese' => 'bali',
+'scx=bamu' => 'bamu',
+'scx=bamum' => 'bamu',
+'scx=bass' => 'bass',
+'scx=bassavah' => 'bass',
+'scx=batak' => 'batk',
+'scx=batk' => 'batk',
+'scx=beng' => 'beng',
+'scx=bengali' => 'beng',
+'scx=bhaiksuki' => 'bhks',
+'scx=bhks' => 'bhks',
+'scx=bopo' => 'bopo',
+'scx=bopomofo' => 'bopo',
+'scx=brah' => 'brah',
+'scx=brahmi' => 'brah',
+'scx=brai' => 'brai',
+'scx=braille' => 'brai',
+'scx=bugi' => 'bugi',
+'scx=buginese' => 'bugi',
+'scx=buhd' => 'buhd',
+'scx=buhid' => 'buhd',
+'scx=cakm' => 'cakm',
+'scx=canadianaboriginal' => 'cans',
+'scx=cans' => 'cans',
+'scx=cari' => 'cari',
+'scx=carian' => 'cari',
+'scx=caucasianalbanian' => 'aghb',
+'scx=chakma' => 'cakm',
+'scx=cham' => 'cham',
+'scx=cher' => 'cher',
+'scx=cherokee' => 'cher',
+'scx=common' => 'zyyy',
+'scx=copt' => 'copt',
+'scx=coptic' => 'copt',
+'scx=cprt' => 'cprt',
+'scx=cuneiform' => 'xsux',
+'scx=cypriot' => 'cprt',
+'scx=cyrillic' => 'cyrl',
+'scx=cyrl' => 'cyrl',
+'scx=deseret' => 'dsrt',
+'scx=deva' => 'deva',
+'scx=devanagari' => 'deva',
+'scx=dsrt' => 'dsrt',
+'scx=dupl' => 'dupl',
+'scx=duployan' => 'dupl',
+'scx=egyp' => 'egyp',
+'scx=egyptianhieroglyphs' => 'egyp',
+'scx=elba' => 'elba',
+'scx=elbasan' => 'elba',
+'scx=ethi' => 'ethi',
+'scx=ethiopic' => 'ethi',
+'scx=geor' => 'geor',
+'scx=georgian' => 'geor',
+'scx=glag' => 'glag',
+'scx=glagolitic' => 'glag',
+'scx=gonm' => 'gonm',
+'scx=goth' => 'goth',
+'scx=gothic' => 'goth',
+'scx=gran' => 'gran',
+'scx=grantha' => 'gran',
+'scx=greek' => 'grek',
+'scx=grek' => 'grek',
+'scx=gujarati' => 'gujr',
+'scx=gujr' => 'gujr',
+'scx=gurmukhi' => 'guru',
+'scx=guru' => 'guru',
+'scx=han' => 'hani',
+'scx=hang' => 'hang',
+'scx=hangul' => 'hang',
+'scx=hani' => 'hani',
+'scx=hano' => 'hano',
+'scx=hanunoo' => 'hano',
+'scx=hatr' => 'hatr',
+'scx=hatran' => 'hatr',
+'scx=hebr' => 'hebr',
+'scx=hebrew' => 'hebr',
+'scx=hira' => 'hira',
+'scx=hiragana' => 'hira',
+'scx=hluw' => 'hluw',
+'scx=hmng' => 'hmng',
+'scx=hung' => 'hung',
+'scx=imperialaramaic' => 'armi',
+'scx=inherited' => 'zinh',
+'scx=inscriptionalpahlavi' => 'phli',
+'scx=inscriptionalparthian' => 'prti',
+'scx=ital' => 'ital',
+'scx=java' => 'java',
+'scx=javanese' => 'java',
+'scx=kaithi' => 'kthi',
+'scx=kali' => 'kali',
+'scx=kana' => 'kana',
+'scx=kannada' => 'knda',
+'scx=katakana' => 'kana',
+'scx=kayahli' => 'kali',
+'scx=khar' => 'khar',
+'scx=kharoshthi' => 'khar',
+'scx=khmer' => 'khmr',
+'scx=khmr' => 'khmr',
+'scx=khoj' => 'khoj',
+'scx=khojki' => 'khoj',
+'scx=khudawadi' => 'sind',
+'scx=knda' => 'knda',
+'scx=kthi' => 'kthi',
+'scx=lana' => 'lana',
+'scx=lao' => 'laoo',
+'scx=laoo' => 'laoo',
+'scx=latin' => 'latn',
+'scx=latn' => 'latn',
+'scx=lepc' => 'lepc',
+'scx=lepcha' => 'lepc',
+'scx=limb' => 'limb',
+'scx=limbu' => 'limb',
+'scx=lina' => 'lina',
+'scx=linb' => 'linb',
+'scx=lineara' => 'lina',
+'scx=linearb' => 'linb',
+'scx=lisu' => 'lisu',
+'scx=lyci' => 'lyci',
+'scx=lycian' => 'lyci',
+'scx=lydi' => 'lydi',
+'scx=lydian' => 'lydi',
+'scx=mahajani' => 'mahj',
+'scx=mahj' => 'mahj',
+'scx=malayalam' => 'mlym',
+'scx=mand' => 'mand',
+'scx=mandaic' => 'mand',
+'scx=mani' => 'mani',
+'scx=manichaean' => 'mani',
+'scx=marc' => 'marc',
+'scx=marchen' => 'marc',
+'scx=masaramgondi' => 'gonm',
+'scx=meeteimayek' => 'mtei',
+'scx=mend' => 'mend',
+'scx=mendekikakui' => 'mend',
+'scx=merc' => 'merc',
+'scx=mero' => 'mero',
+'scx=meroiticcursive' => 'merc',
+'scx=meroitichieroglyphs' => 'mero',
+'scx=miao' => 'plrd',
+'scx=mlym' => 'mlym',
+'scx=modi' => 'modi',
+'scx=mong' => 'mong',
+'scx=mongolian' => 'mong',
+'scx=mro' => 'mroo',
+'scx=mroo' => 'mroo',
+'scx=mtei' => 'mtei',
+'scx=mult' => 'mult',
+'scx=multani' => 'mult',
+'scx=myanmar' => 'mymr',
+'scx=mymr' => 'mymr',
+'scx=nabataean' => 'nbat',
+'scx=narb' => 'narb',
+'scx=nbat' => 'nbat',
+'scx=newa' => 'newa',
+'scx=newtailue' => 'talu',
+'scx=nko' => 'nkoo',
+'scx=nkoo' => 'nkoo',
+'scx=nshu' => 'nshu',
+'scx=nushu' => 'nshu',
+'scx=ogam' => 'ogam',
+'scx=ogham' => 'ogam',
+'scx=olchiki' => 'olck',
+'scx=olck' => 'olck',
+'scx=oldhungarian' => 'hung',
+'scx=olditalic' => 'ital',
+'scx=oldnortharabian' => 'narb',
+'scx=oldpermic' => 'perm',
+'scx=oldpersian' => 'xpeo',
+'scx=oldsoutharabian' => 'sarb',
+'scx=oldturkic' => 'orkh',
+'scx=oriya' => 'orya',
+'scx=orkh' => 'orkh',
+'scx=orya' => 'orya',
+'scx=osage' => 'osge',
+'scx=osge' => 'osge',
+'scx=osma' => 'osma',
+'scx=osmanya' => 'osma',
+'scx=pahawhhmong' => 'hmng',
+'scx=palm' => 'palm',
+'scx=palmyrene' => 'palm',
+'scx=pauc' => 'pauc',
+'scx=paucinhau' => 'pauc',
+'scx=perm' => 'perm',
+'scx=phag' => 'phag',
+'scx=phagspa' => 'phag',
+'scx=phli' => 'phli',
+'scx=phlp' => 'phlp',
+'scx=phnx' => 'phnx',
+'scx=phoenician' => 'phnx',
+'scx=plrd' => 'plrd',
+'scx=prti' => 'prti',
+'scx=psalterpahlavi' => 'phlp',
+'scx=qaac' => 'copt',
+'scx=qaai' => 'zinh',
+'scx=rejang' => 'rjng',
+'scx=rjng' => 'rjng',
+'scx=runic' => 'runr',
+'scx=runr' => 'runr',
+'scx=samaritan' => 'samr',
+'scx=samr' => 'samr',
+'scx=sarb' => 'sarb',
+'scx=saur' => 'saur',
+'scx=saurashtra' => 'saur',
+'scx=sgnw' => 'sgnw',
+'scx=sharada' => 'shrd',
+'scx=shavian' => 'shaw',
+'scx=shaw' => 'shaw',
+'scx=shrd' => 'shrd',
+'scx=sidd' => 'sidd',
+'scx=siddham' => 'sidd',
+'scx=signwriting' => 'sgnw',
+'scx=sind' => 'sind',
+'scx=sinh' => 'sinh',
+'scx=sinhala' => 'sinh',
+'scx=sora' => 'sora',
+'scx=sorasompeng' => 'sora',
+'scx=soyo' => 'soyo',
+'scx=soyombo' => 'soyo',
+'scx=sund' => 'sund',
+'scx=sundanese' => 'sund',
+'scx=sylo' => 'sylo',
+'scx=sylotinagri' => 'sylo',
+'scx=syrc' => 'syrc',
+'scx=syriac' => 'syrc',
+'scx=tagalog' => 'tglg',
+'scx=tagb' => 'tagb',
+'scx=tagbanwa' => 'tagb',
+'scx=taile' => 'tale',
+'scx=taitham' => 'lana',
+'scx=taiviet' => 'tavt',
+'scx=takr' => 'takr',
+'scx=takri' => 'takr',
+'scx=tale' => 'tale',
+'scx=talu' => 'talu',
+'scx=tamil' => 'taml',
+'scx=taml' => 'taml',
+'scx=tang' => 'tang',
+'scx=tangut' => 'tang',
+'scx=tavt' => 'tavt',
+'scx=telu' => 'telu',
+'scx=telugu' => 'telu',
+'scx=tfng' => 'tfng',
+'scx=tglg' => 'tglg',
+'scx=thaa' => 'thaa',
+'scx=thaana' => 'thaa',
+'scx=thai' => 'thai',
+'scx=tibetan' => 'tibt',
+'scx=tibt' => 'tibt',
+'scx=tifinagh' => 'tfng',
+'scx=tirh' => 'tirh',
+'scx=tirhuta' => 'tirh',
+'scx=ugar' => 'ugar',
+'scx=ugaritic' => 'ugar',
+'scx=unknown' => 'zzzz',
+'scx=vai' => 'vaii',
+'scx=vaii' => 'vaii',
+'scx=wara' => 'wara',
+'scx=warangciti' => 'wara',
+'scx=xpeo' => 'xpeo',
+'scx=xsux' => 'xsux',
+'scx=yi' => 'yiii',
+'scx=yiii' => 'yiii',
+'scx=zanabazarsquare' => 'zanb',
+'scx=zanb' => 'zanb',
+'scx=zinh' => 'zinh',
+'scx=zyyy' => 'zyyy',
+'scx=zzzz' => 'zzzz',
+'sd=f' => 'n',
+'sd=false' => 'n',
+'sd=n' => 'n',
+'sd=no' => 'n',
+'sd=t' => 'y',
+'sd=true' => 'y',
+'sd=y' => 'y',
+'sd=yes' => 'y',
+'sterm=f' => 'n',
+'sterm=false' => 'n',
+'sterm=n' => 'n',
+'sterm=no' => 'n',
+'sterm=t' => 'y',
+'sterm=true' => 'y',
+'sterm=y' => 'y',
+'sterm=yes' => 'y',
+'term=f' => 'n',
+'term=false' => 'n',
+'term=n' => 'n',
+'term=no' => 'n',
+'term=t' => 'y',
+'term=true' => 'y',
+'term=y' => 'y',
+'term=yes' => 'y',
+'uideo=f' => 'n',
+'uideo=false' => 'n',
+'uideo=n' => 'n',
+'uideo=no' => 'n',
+'uideo=t' => 'y',
+'uideo=true' => 'y',
+'uideo=y' => 'y',
+'uideo=yes' => 'y',
+'upper=f' => 'n',
+'upper=false' => 'n',
+'upper=n' => 'n',
+'upper=no' => 'n',
+'upper=t' => 'y',
+'upper=true' => 'y',
+'upper=y' => 'y',
+'upper=yes' => 'y',
+'vo=r' => 'r',
+'vo=rotated' => 'r',
+'vo=tr' => 'tr',
+'vo=transformedrotated' => 'tr',
+'vo=transformedupright' => 'tu',
+'vo=tu' => 'tu',
+'vo=u' => 'u',
+'vo=upright' => 'u',
+'vs=f' => 'n',
+'vs=false' => 'n',
+'vs=n' => 'n',
+'vs=no' => 'n',
+'vs=t' => 'y',
+'vs=true' => 'y',
+'vs=y' => 'y',
+'vs=yes' => 'y',
+'wb=aletter' => 'le',
+'wb=cr' => 'cr',
+'wb=doublequote' => 'dq',
+'wb=dq' => 'dq',
+'wb=eb' => 'eb',
+'wb=ebase' => 'eb',
+'wb=ebasegaz' => 'ebg',
+'wb=ebg' => 'ebg',
+'wb=em' => 'em',
+'wb=emodifier' => 'em',
+'wb=ex' => 'ex',
+'wb=extend' => 'extend',
+'wb=extendnumlet' => 'ex',
+'wb=fo' => 'fo',
+'wb=format' => 'fo',
+'wb=gaz' => 'gaz',
+'wb=glueafterzwj' => 'gaz',
+'wb=hebrewletter' => 'hl',
+'wb=hl' => 'hl',
+'wb=ka' => 'ka',
+'wb=katakana' => 'ka',
+'wb=le' => 'le',
+'wb=lf' => 'lf',
+'wb=mb' => 'mb',
+'wb=midletter' => 'ml',
+'wb=midnum' => 'mn',
+'wb=midnumlet' => 'mb',
+'wb=ml' => 'ml',
+'wb=mn' => 'mn',
+'wb=newline' => 'nl',
+'wb=nl' => 'nl',
+'wb=nu' => 'nu',
+'wb=numeric' => 'nu',
+'wb=other' => 'xx',
+'wb=regionalindicator' => 'ri',
+'wb=ri' => 'ri',
+'wb=singlequote' => 'sq',
+'wb=sq' => 'sq',
+'wb=xx' => 'xx',
+'wb=zwj' => 'zwj',
+'wspace=f' => 'n',
+'wspace=false' => 'n',
+'wspace=n' => 'n',
+'wspace=no' => 'n',
+'wspace=t' => 'y',
+'wspace=true' => 'y',
+'wspace=y' => 'y',
+'wspace=yes' => 'y',
+'xidc=f' => 'n',
+'xidc=false' => 'n',
+'xidc=n' => 'n',
+'xidc=no' => 'n',
+'xidc=t' => 'y',
+'xidc=true' => 'y',
+'xidc=y' => 'y',
+'xidc=yes' => 'y',
+'xids=f' => 'n',
+'xids=false' => 'n',
+'xids=n' => 'n',
+'xids=no' => 'n',
+'xids=t' => 'y',
+'xids=true' => 'y',
+'xids=y' => 'y',
+'xids=yes' => 'y',
+);
+
+# String property loose names to standard loose name
+%Unicode::UCD::string_property_loose_to_name = (
+'_perlnamealias' => 'namealias',
+'bidimirroringglyph' => 'bmg',
+'bidipairedbracket' => 'bpb',
+'bmg' => 'bmg',
+'bpb' => 'bpb',
+'casefolding' => 'cf',
+'cf' => 'cf',
+'decompositionmapping' => 'dm',
+'dm' => 'dm',
+'isc' => 'isc',
+'isocomment' => 'isc',
+'lc' => 'lc',
+'lowercasemapping' => 'lc',
+'na' => 'na',
+'na1' => 'na1',
+'name' => 'na',
+'namealias' => 'namealias',
+'nfkccasefold' => 'nfkccf',
+'nfkccf' => 'nfkccf',
+'perldecimaldigit' => 'perldecimaldigit',
+'scf' => 'scf',
+'sfc' => 'scf',
+'simplecasefolding' => 'scf',
+'simplelowercasemapping' => 'slc',
+'simpletitlecasemapping' => 'stc',
+'simpleuppercasemapping' => 'suc',
+'slc' => 'slc',
+'stc' => 'stc',
+'suc' => 'suc',
+'tc' => 'tc',
+'titlecasemapping' => 'tc',
+'uc' => 'uc',
+'unicode1name' => 'na1',
+'uppercasemapping' => 'uc',
+);
+
+# Keys are Perl extensions in loose form; values are each one's list of
+# aliases
+%Unicode::UCD::loose_perlprop_to_name = (
+'all' => 
+[
+'All',
+],
+'alnum' => 
+[
+'Alnum',
+'XPosixAlnum',
+],
+'any' => 
+[
+'Any',
+'Any',
+'Unicode',
+],
+'ascii' => 
+[
+'ASCII',
+],
+'assigned' => 
+[
+'Assigned',
+],
+'blank' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'cntrl' => 
+[
+'Cntrl',
+'XPosixCntrl',
+],
+'digit' => 
+[
+'Digit',
+'XPosixDigit',
+],
+'graph' => 
+[
+'Graph',
+'XPosixGraph',
+],
+'horizspace' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'perlspace' => 
+[
+'PosixSpace',
+'PosixSpace',
+'PerlSpace',
+],
+'perlword' => 
+[
+'PosixWord',
+'PosixWord',
+'PerlWord',
+],
+'posixalnum' => 
+[
+'PosixAlnum',
+],
+'posixalpha' => 
+[
+'PosixAlpha',
+],
+'posixblank' => 
+[
+'PosixBlank',
+],
+'posixcntrl' => 
+[
+'PosixCntrl',
+],
+'posixdigit' => 
+[
+'PosixDigit',
+],
+'posixgraph' => 
+[
+'PosixGraph',
+],
+'posixlower' => 
+[
+'PosixLower',
+],
+'posixprint' => 
+[
+'PosixPrint',
+],
+'posixpunct' => 
+[
+'PosixPunct',
+],
+'posixspace' => 
+[
+'PosixSpace',
+'PosixSpace',
+'PerlSpace',
+],
+'posixupper' => 
+[
+'PosixUpper',
+],
+'posixword' => 
+[
+'PosixWord',
+'PosixWord',
+'PerlWord',
+],
+'posixxdigit' => 
+[
+'PosixXDigit',
+],
+'print' => 
+[
+'Print',
+'XPosixPrint',
+],
+'punct' => 
+[
+'Punct',
+],
+'spaceperl' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'title' => 
+[
+'Title',
+'Titlecase',
+],
+'titlecase' => 
+[
+'Title',
+'Titlecase',
+],
+'unicode' => 
+[
+'Any',
+'Any',
+'Unicode',
+],
+'vertspace' => 
+[
+'VertSpace',
+],
+'word' => 
+[
+'Word',
+'XPosixWord',
+],
+'xdigit' => 
+[
+'XDigit',
+'XPosixXDigit',
+],
+'xperlspace' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'xposixalnum' => 
+[
+'Alnum',
+'XPosixAlnum',
+],
+'xposixalpha' => 
+[
+'XPosixAlpha',
+],
+'xposixblank' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'xposixcntrl' => 
+[
+'Cntrl',
+'XPosixCntrl',
+],
+'xposixdigit' => 
+[
+'Digit',
+'XPosixDigit',
+],
+'xposixgraph' => 
+[
+'Graph',
+'XPosixGraph',
+],
+'xposixlower' => 
+[
+'XPosixLower',
+],
+'xposixprint' => 
+[
+'Print',
+'XPosixPrint',
+],
+'xposixpunct' => 
+[
+'XPosixPunct',
+],
+'xposixspace' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'xposixupper' => 
+[
+'XPosixUpper',
+],
+'xposixword' => 
+[
+'Word',
+'XPosixWord',
+],
+'xposixxdigit' => 
+[
+'XDigit',
+'XPosixXDigit',
+],
+);
+
+# Keys are standard property name; values are each one's aliases
+%Unicode::UCD::prop_aliases = (
+'age' => 
+[
+'age',
+'Age',
+],
+'ahex' => 
+[
+'AHex',
+'ASCII_Hex_Digit',
+],
+'alpha' => 
+[
+'Alpha',
+'Alphabetic',
+],
+'bc' => 
+[
+'bc',
+'Bidi_Class',
+],
+'bidic' => 
+[
+'Bidi_C',
+'Bidi_Control',
+],
+'bidim' => 
+[
+'Bidi_M',
+'Bidi_Mirrored',
+],
+'blk' => 
+[
+'blk',
+'Block',
+],
+'bmg' => 
+[
+'bmg',
+'Bidi_Mirroring_Glyph',
+],
+'bpb' => 
+[
+'bpb',
+'Bidi_Paired_Bracket',
+],
+'bpt' => 
+[
+'bpt',
+'Bidi_Paired_Bracket_Type',
+],
+'cased' => 
+[
+'Cased',
+'Cased',
+],
+'ccc' => 
+[
+'ccc',
+'Canonical_Combining_Class',
+],
+'ce' => 
+[
+'CE',
+'Composition_Exclusion',
+],
+'cf' => 
+[
+'cf',
+'Case_Folding',
+],
+'ci' => 
+[
+'CI',
+'Case_Ignorable',
+],
+'compex' => 
+[
+'Comp_Ex',
+'Full_Composition_Exclusion',
+],
+'cwcf' => 
+[
+'CWCF',
+'Changes_When_Casefolded',
+],
+'cwcm' => 
+[
+'CWCM',
+'Changes_When_Casemapped',
+],
+'cwkcf' => 
+[
+'CWKCF',
+'Changes_When_NFKC_Casefolded',
+],
+'cwl' => 
+[
+'CWL',
+'Changes_When_Lowercased',
+],
+'cwt' => 
+[
+'CWT',
+'Changes_When_Titlecased',
+],
+'cwu' => 
+[
+'CWU',
+'Changes_When_Uppercased',
+],
+'dash' => 
+[
+'Dash',
+'Dash',
+],
+'dep' => 
+[
+'Dep',
+'Deprecated',
+],
+'di' => 
+[
+'DI',
+'Default_Ignorable_Code_Point',
+],
+'dia' => 
+[
+'Dia',
+'Diacritic',
+],
+'dm' => 
+[
+'dm',
+'Decomposition_Mapping',
+],
+'dt' => 
+[
+'dt',
+'Decomposition_Type',
+],
+'ea' => 
+[
+'ea',
+'East_Asian_Width',
+],
+'ext' => 
+[
+'Ext',
+'Extender',
+],
+'gc' => 
+[
+'gc',
+'General_Category',
+'Category',
+],
+'gcb' => 
+[
+'GCB',
+'Grapheme_Cluster_Break',
+'_Perl_GCB',
+],
+'grbase' => 
+[
+'Gr_Base',
+'Grapheme_Base',
+],
+'grext' => 
+[
+'Gr_Ext',
+'Grapheme_Extend',
+],
+'hex' => 
+[
+'Hex',
+'Hex_Digit',
+],
+'hst' => 
+[
+'hst',
+'Hangul_Syllable_Type',
+],
+'hyphen' => 
+[
+'Hyphen',
+'Hyphen',
+],
+'idc' => 
+[
+'IDC',
+'ID_Continue',
+],
+'ideo' => 
+[
+'Ideo',
+'Ideographic',
+],
+'ids' => 
+[
+'IDS',
+'ID_Start',
+],
+'idsb' => 
+[
+'IDSB',
+'IDS_Binary_Operator',
+],
+'idst' => 
+[
+'IDST',
+'IDS_Trinary_Operator',
+],
+'in' => 
+[
+'In',
+'Present_In',
+],
+'inpc' => 
+[
+'InPC',
+'Indic_Positional_Category',
+],
+'insc' => 
+[
+'InSC',
+'Indic_Syllabic_Category',
+],
+'isc' => 
+[
+'isc',
+'ISO_Comment',
+],
+'jg' => 
+[
+'jg',
+'Joining_Group',
+],
+'joinc' => 
+[
+'Join_C',
+'Join_Control',
+],
+'jt' => 
+[
+'jt',
+'Joining_Type',
+],
+'lb' => 
+[
+'lb',
+'Line_Break',
+],
+'lc' => 
+[
+'lc',
+'Lowercase_Mapping',
+],
+'loe' => 
+[
+'LOE',
+'Logical_Order_Exception',
+],
+'lower' => 
+[
+'Lower',
+'Lowercase',
+],
+'math' => 
+[
+'Math',
+'Math',
+],
+'na' => 
+[
+'na',
+'Name',
+],
+'na1' => 
+[
+'na1',
+'Unicode_1_Name',
+],
+'namealias' => 
+[
+'Name_Alias',
+'Name_Alias',
+'_Perl_Name_Alias',
+],
+'nchar' => 
+[
+'NChar',
+'Noncharacter_Code_Point',
+],
+'nfcqc' => 
+[
+'NFC_QC',
+'NFC_Quick_Check',
+],
+'nfdqc' => 
+[
+'NFD_QC',
+'NFD_Quick_Check',
+],
+'nfkccf' => 
+[
+'NFKC_CF',
+'NFKC_Casefold',
+],
+'nfkcqc' => 
+[
+'NFKC_QC',
+'NFKC_Quick_Check',
+],
+'nfkdqc' => 
+[
+'NFKD_QC',
+'NFKD_Quick_Check',
+],
+'nt' => 
+[
+'nt',
+'Numeric_Type',
+],
+'nv' => 
+[
+'nv',
+'Numeric_Value',
+],
+'patsyn' => 
+[
+'Pat_Syn',
+'Pattern_Syntax',
+],
+'patws' => 
+[
+'Pat_WS',
+'Pattern_White_Space',
+],
+'pcm' => 
+[
+'PCM',
+'Prepended_Concatenation_Mark',
+],
+'perldecimaldigit' => 
+[
+'Perl_Decimal_Digit',
+'Perl_Decimal_Digit',
+],
+'qmark' => 
+[
+'QMark',
+'Quotation_Mark',
+],
+'radical' => 
+[
+'Radical',
+'Radical',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sb' => 
+[
+'SB',
+'Sentence_Break',
+'_Perl_SB',
+],
+'sc' => 
+[
+'sc',
+'Script',
+],
+'scf' => 
+[
+'scf',
+'Simple_Case_Folding',
+'Sfc',
+],
+'scx' => 
+[
+'scx',
+'Script_Extensions',
+],
+'sd' => 
+[
+'SD',
+'Soft_Dotted',
+],
+'slc' => 
+[
+'slc',
+'Simple_Lowercase_Mapping',
+],
+'stc' => 
+[
+'stc',
+'Simple_Titlecase_Mapping',
+],
+'sterm' => 
+[
+'STerm',
+'Sentence_Terminal',
+],
+'suc' => 
+[
+'suc',
+'Simple_Uppercase_Mapping',
+],
+'tc' => 
+[
+'tc',
+'Titlecase_Mapping',
+],
+'term' => 
+[
+'Term',
+'Terminal_Punctuation',
+],
+'uc' => 
+[
+'uc',
+'Uppercase_Mapping',
+],
+'uideo' => 
+[
+'UIdeo',
+'Unified_Ideograph',
+],
+'upper' => 
+[
+'Upper',
+'Uppercase',
+],
+'vo' => 
+[
+'vo',
+'Vertical_Orientation',
+],
+'vs' => 
+[
+'VS',
+'Variation_Selector',
+],
+'wb' => 
+[
+'WB',
+'Word_Break',
+],
+'wspace' => 
+[
+'WSpace',
+'White_Space',
+'Space',
+],
+'xidc' => 
+[
+'XIDC',
+'XID_Continue',
+],
+'xids' => 
+[
+'XIDS',
+'XID_Start',
+],
+);
+
+# Keys of top level are standard property name; values are keys to another
+# hash,  Each one is one of the property's values, in standard form.  The
+# values are that prop-val's aliases.  If only one specified, the short and
+# long alias are identical.
+%Unicode::UCD::prop_value_aliases = (
+'age' => 
+{
+'1.1' => 
+[
+'1.1',
+'V1_1',
+],
+'10.0' => 
+[
+'10.0',
+'V10_0',
+],
+'2.0' => 
+[
+'2.0',
+'V2_0',
+],
+'2.1' => 
+[
+'2.1',
+'V2_1',
+],
+'3.0' => 
+[
+'3.0',
+'V3_0',
+],
+'3.1' => 
+[
+'3.1',
+'V3_1',
+],
+'3.2' => 
+[
+'3.2',
+'V3_2',
+],
+'4.0' => 
+[
+'4.0',
+'V4_0',
+],
+'4.1' => 
+[
+'4.1',
+'V4_1',
+],
+'5.0' => 
+[
+'5.0',
+'V5_0',
+],
+'5.1' => 
+[
+'5.1',
+'V5_1',
+],
+'5.2' => 
+[
+'5.2',
+'V5_2',
+],
+'6.0' => 
+[
+'6.0',
+'V6_0',
+],
+'6.1' => 
+[
+'6.1',
+'V6_1',
+],
+'6.2' => 
+[
+'6.2',
+'V6_2',
+],
+'6.3' => 
+[
+'6.3',
+'V6_3',
+],
+'7.0' => 
+[
+'7.0',
+'V7_0',
+],
+'8.0' => 
+[
+'8.0',
+'V8_0',
+],
+'9.0' => 
+[
+'9.0',
+'V9_0',
+],
+'na' => 
+[
+'NA',
+'Unassigned',
+],
+},
+'ahex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'alpha' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'bc' => 
+{
+'al' => 
+[
+'AL',
+'Arabic_Letter',
+],
+'an' => 
+[
+'AN',
+'Arabic_Number',
+],
+'b' => 
+[
+'B',
+'Paragraph_Separator',
+],
+'bn' => 
+[
+'BN',
+'Boundary_Neutral',
+],
+'cs' => 
+[
+'CS',
+'Common_Separator',
+],
+'en' => 
+[
+'EN',
+'European_Number',
+],
+'es' => 
+[
+'ES',
+'European_Separator',
+],
+'et' => 
+[
+'ET',
+'European_Terminator',
+],
+'fsi' => 
+[
+'FSI',
+'First_Strong_Isolate',
+],
+'l' => 
+[
+'L',
+'Left_To_Right',
+],
+'lre' => 
+[
+'LRE',
+'Left_To_Right_Embedding',
+],
+'lri' => 
+[
+'LRI',
+'Left_To_Right_Isolate',
+],
+'lro' => 
+[
+'LRO',
+'Left_To_Right_Override',
+],
+'nsm' => 
+[
+'NSM',
+'Nonspacing_Mark',
+],
+'on' => 
+[
+'ON',
+'Other_Neutral',
+],
+'pdf' => 
+[
+'PDF',
+'Pop_Directional_Format',
+],
+'pdi' => 
+[
+'PDI',
+'Pop_Directional_Isolate',
+],
+'r' => 
+[
+'R',
+'Right_To_Left',
+],
+'rle' => 
+[
+'RLE',
+'Right_To_Left_Embedding',
+],
+'rli' => 
+[
+'RLI',
+'Right_To_Left_Isolate',
+],
+'rlo' => 
+[
+'RLO',
+'Right_To_Left_Override',
+],
+'s' => 
+[
+'S',
+'Segment_Separator',
+],
+'ws' => 
+[
+'WS',
+'White_Space',
+],
+},
+'bidic' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'bidim' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'blk' => 
+{
+'adlam' => 
+[
+'Adlam',
+],
+'aegeannumbers' => 
+[
+'Aegean_Numbers',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'alchemical' => 
+[
+'Alchemical',
+'Alchemical_Symbols',
+],
+'alphabeticpf' => 
+[
+'Alphabetic_PF',
+'Alphabetic_Presentation_Forms',
+],
+'anatolianhieroglyphs' => 
+[
+'Anatolian_Hieroglyphs',
+],
+'ancientgreekmusic' => 
+[
+'Ancient_Greek_Music',
+'Ancient_Greek_Musical_Notation',
+],
+'ancientgreeknumbers' => 
+[
+'Ancient_Greek_Numbers',
+],
+'ancientsymbols' => 
+[
+'Ancient_Symbols',
+],
+'arabic' => 
+[
+'Arabic',
+],
+'arabicexta' => 
+[
+'Arabic_Ext_A',
+'Arabic_Extended_A',
+],
+'arabicmath' => 
+[
+'Arabic_Math',
+'Arabic_Mathematical_Alphabetic_Symbols',
+],
+'arabicpfa' => 
+[
+'Arabic_PF_A',
+'Arabic_Presentation_Forms_A',
+],
+'arabicpfb' => 
+[
+'Arabic_PF_B',
+'Arabic_Presentation_Forms_B',
+],
+'arabicsup' => 
+[
+'Arabic_Sup',
+'Arabic_Supplement',
+],
+'armenian' => 
+[
+'Armenian',
+],
+'arrows' => 
+[
+'Arrows',
+],
+'ascii' => 
+[
+'ASCII',
+'Basic_Latin',
+],
+'avestan' => 
+[
+'Avestan',
+],
+'balinese' => 
+[
+'Balinese',
+],
+'bamum' => 
+[
+'Bamum',
+],
+'bamumsup' => 
+[
+'Bamum_Sup',
+'Bamum_Supplement',
+],
+'bassavah' => 
+[
+'Bassa_Vah',
+],
+'batak' => 
+[
+'Batak',
+],
+'bengali' => 
+[
+'Bengali',
+],
+'bhaiksuki' => 
+[
+'Bhaiksuki',
+],
+'blockelements' => 
+[
+'Block_Elements',
+],
+'bopomofo' => 
+[
+'Bopomofo',
+],
+'bopomofoext' => 
+[
+'Bopomofo_Ext',
+'Bopomofo_Extended',
+],
+'boxdrawing' => 
+[
+'Box_Drawing',
+],
+'brahmi' => 
+[
+'Brahmi',
+],
+'braille' => 
+[
+'Braille',
+'Braille_Patterns',
+],
+'buginese' => 
+[
+'Buginese',
+],
+'buhid' => 
+[
+'Buhid',
+],
+'byzantinemusic' => 
+[
+'Byzantine_Music',
+'Byzantine_Musical_Symbols',
+],
+'carian' => 
+[
+'Carian',
+],
+'caucasianalbanian' => 
+[
+'Caucasian_Albanian',
+],
+'chakma' => 
+[
+'Chakma',
+],
+'cham' => 
+[
+'Cham',
+],
+'cherokee' => 
+[
+'Cherokee',
+],
+'cherokeesup' => 
+[
+'Cherokee_Sup',
+'Cherokee_Supplement',
+],
+'cjk' => 
+[
+'CJK',
+'CJK_Unified_Ideographs',
+],
+'cjkcompat' => 
+[
+'CJK_Compat',
+'CJK_Compatibility',
+],
+'cjkcompatforms' => 
+[
+'CJK_Compat_Forms',
+'CJK_Compatibility_Forms',
+],
+'cjkcompatideographs' => 
+[
+'CJK_Compat_Ideographs',
+'CJK_Compatibility_Ideographs',
+],
+'cjkcompatideographssup' => 
+[
+'CJK_Compat_Ideographs_Sup',
+'CJK_Compatibility_Ideographs_Supplement',
+],
+'cjkexta' => 
+[
+'CJK_Ext_A',
+'CJK_Unified_Ideographs_Extension_A',
+],
+'cjkextb' => 
+[
+'CJK_Ext_B',
+'CJK_Unified_Ideographs_Extension_B',
+],
+'cjkextc' => 
+[
+'CJK_Ext_C',
+'CJK_Unified_Ideographs_Extension_C',
+],
+'cjkextd' => 
+[
+'CJK_Ext_D',
+'CJK_Unified_Ideographs_Extension_D',
+],
+'cjkexte' => 
+[
+'CJK_Ext_E',
+'CJK_Unified_Ideographs_Extension_E',
+],
+'cjkextf' => 
+[
+'CJK_Ext_F',
+'CJK_Unified_Ideographs_Extension_F',
+],
+'cjkradicalssup' => 
+[
+'CJK_Radicals_Sup',
+'CJK_Radicals_Supplement',
+],
+'cjkstrokes' => 
+[
+'CJK_Strokes',
+],
+'cjksymbols' => 
+[
+'CJK_Symbols',
+'CJK_Symbols_And_Punctuation',
+],
+'compatjamo' => 
+[
+'Compat_Jamo',
+'Hangul_Compatibility_Jamo',
+],
+'controlpictures' => 
+[
+'Control_Pictures',
+],
+'coptic' => 
+[
+'Coptic',
+],
+'copticepactnumbers' => 
+[
+'Coptic_Epact_Numbers',
+],
+'countingrod' => 
+[
+'Counting_Rod',
+'Counting_Rod_Numerals',
+],
+'cuneiform' => 
+[
+'Cuneiform',
+],
+'cuneiformnumbers' => 
+[
+'Cuneiform_Numbers',
+'Cuneiform_Numbers_And_Punctuation',
+],
+'currencysymbols' => 
+[
+'Currency_Symbols',
+],
+'cypriotsyllabary' => 
+[
+'Cypriot_Syllabary',
+],
+'cyrillic' => 
+[
+'Cyrillic',
+],
+'cyrillicexta' => 
+[
+'Cyrillic_Ext_A',
+'Cyrillic_Extended_A',
+],
+'cyrillicextb' => 
+[
+'Cyrillic_Ext_B',
+'Cyrillic_Extended_B',
+],
+'cyrillicextc' => 
+[
+'Cyrillic_Ext_C',
+'Cyrillic_Extended_C',
+],
+'cyrillicsup' => 
+[
+'Cyrillic_Sup',
+'Cyrillic_Supplement',
+'Cyrillic_Supplementary',
+],
+'deseret' => 
+[
+'Deseret',
+],
+'devanagari' => 
+[
+'Devanagari',
+],
+'devanagariext' => 
+[
+'Devanagari_Ext',
+'Devanagari_Extended',
+],
+'diacriticals' => 
+[
+'Diacriticals',
+'Combining_Diacritical_Marks',
+],
+'diacriticalsext' => 
+[
+'Diacriticals_Ext',
+'Combining_Diacritical_Marks_Extended',
+],
+'diacriticalsforsymbols' => 
+[
+'Diacriticals_For_Symbols',
+'Combining_Diacritical_Marks_For_Symbols',
+'Combining_Marks_For_Symbols',
+],
+'diacriticalssup' => 
+[
+'Diacriticals_Sup',
+'Combining_Diacritical_Marks_Supplement',
+],
+'dingbats' => 
+[
+'Dingbats',
+],
+'domino' => 
+[
+'Domino',
+'Domino_Tiles',
+],
+'duployan' => 
+[
+'Duployan',
+],
+'earlydynasticcuneiform' => 
+[
+'Early_Dynastic_Cuneiform',
+],
+'egyptianhieroglyphs' => 
+[
+'Egyptian_Hieroglyphs',
+],
+'elbasan' => 
+[
+'Elbasan',
+],
+'emoticons' => 
+[
+'Emoticons',
+],
+'enclosedalphanum' => 
+[
+'Enclosed_Alphanum',
+'Enclosed_Alphanumerics',
+],
+'enclosedalphanumsup' => 
+[
+'Enclosed_Alphanum_Sup',
+'Enclosed_Alphanumeric_Supplement',
+],
+'enclosedcjk' => 
+[
+'Enclosed_CJK',
+'Enclosed_CJK_Letters_And_Months',
+],
+'enclosedideographicsup' => 
+[
+'Enclosed_Ideographic_Sup',
+'Enclosed_Ideographic_Supplement',
+],
+'ethiopic' => 
+[
+'Ethiopic',
+],
+'ethiopicext' => 
+[
+'Ethiopic_Ext',
+'Ethiopic_Extended',
+],
+'ethiopicexta' => 
+[
+'Ethiopic_Ext_A',
+'Ethiopic_Extended_A',
+],
+'ethiopicsup' => 
+[
+'Ethiopic_Sup',
+'Ethiopic_Supplement',
+],
+'geometricshapes' => 
+[
+'Geometric_Shapes',
+],
+'geometricshapesext' => 
+[
+'Geometric_Shapes_Ext',
+'Geometric_Shapes_Extended',
+],
+'georgian' => 
+[
+'Georgian',
+],
+'georgiansup' => 
+[
+'Georgian_Sup',
+'Georgian_Supplement',
+],
+'glagolitic' => 
+[
+'Glagolitic',
+],
+'glagoliticsup' => 
+[
+'Glagolitic_Sup',
+'Glagolitic_Supplement',
+],
+'gothic' => 
+[
+'Gothic',
+],
+'grantha' => 
+[
+'Grantha',
+],
+'greek' => 
+[
+'Greek',
+'Greek_And_Coptic',
+],
+'greekext' => 
+[
+'Greek_Ext',
+'Greek_Extended',
+],
+'gujarati' => 
+[
+'Gujarati',
+],
+'gurmukhi' => 
+[
+'Gurmukhi',
+],
+'halfandfullforms' => 
+[
+'Half_And_Full_Forms',
+'Halfwidth_And_Fullwidth_Forms',
+],
+'halfmarks' => 
+[
+'Half_Marks',
+'Combining_Half_Marks',
+],
+'hangul' => 
+[
+'Hangul',
+'Hangul_Syllables',
+],
+'hanunoo' => 
+[
+'Hanunoo',
+],
+'hatran' => 
+[
+'Hatran',
+],
+'hebrew' => 
+[
+'Hebrew',
+],
+'highpusurrogates' => 
+[
+'High_PU_Surrogates',
+'High_Private_Use_Surrogates',
+],
+'highsurrogates' => 
+[
+'High_Surrogates',
+],
+'hiragana' => 
+[
+'Hiragana',
+],
+'idc' => 
+[
+'IDC',
+'Ideographic_Description_Characters',
+],
+'ideographicsymbols' => 
+[
+'Ideographic_Symbols',
+'Ideographic_Symbols_And_Punctuation',
+],
+'imperialaramaic' => 
+[
+'Imperial_Aramaic',
+],
+'indicnumberforms' => 
+[
+'Indic_Number_Forms',
+'Common_Indic_Number_Forms',
+],
+'inscriptionalpahlavi' => 
+[
+'Inscriptional_Pahlavi',
+],
+'inscriptionalparthian' => 
+[
+'Inscriptional_Parthian',
+],
+'ipaext' => 
+[
+'IPA_Ext',
+'IPA_Extensions',
+],
+'jamo' => 
+[
+'Jamo',
+'Hangul_Jamo',
+],
+'jamoexta' => 
+[
+'Jamo_Ext_A',
+'Hangul_Jamo_Extended_A',
+],
+'jamoextb' => 
+[
+'Jamo_Ext_B',
+'Hangul_Jamo_Extended_B',
+],
+'javanese' => 
+[
+'Javanese',
+],
+'kaithi' => 
+[
+'Kaithi',
+],
+'kanaexta' => 
+[
+'Kana_Ext_A',
+'Kana_Extended_A',
+],
+'kanasup' => 
+[
+'Kana_Sup',
+'Kana_Supplement',
+],
+'kanbun' => 
+[
+'Kanbun',
+],
+'kangxi' => 
+[
+'Kangxi',
+'Kangxi_Radicals',
+],
+'kannada' => 
+[
+'Kannada',
+],
+'katakana' => 
+[
+'Katakana',
+],
+'katakanaext' => 
+[
+'Katakana_Ext',
+'Katakana_Phonetic_Extensions',
+],
+'kayahli' => 
+[
+'Kayah_Li',
+],
+'kharoshthi' => 
+[
+'Kharoshthi',
+],
+'khmer' => 
+[
+'Khmer',
+],
+'khmersymbols' => 
+[
+'Khmer_Symbols',
+],
+'khojki' => 
+[
+'Khojki',
+],
+'khudawadi' => 
+[
+'Khudawadi',
+],
+'lao' => 
+[
+'Lao',
+],
+'latin1sup' => 
+[
+'Latin_1_Sup',
+'Latin_1_Supplement',
+'Latin_1',
+],
+'latinexta' => 
+[
+'Latin_Ext_A',
+'Latin_Extended_A',
+],
+'latinextadditional' => 
+[
+'Latin_Ext_Additional',
+'Latin_Extended_Additional',
+],
+'latinextb' => 
+[
+'Latin_Ext_B',
+'Latin_Extended_B',
+],
+'latinextc' => 
+[
+'Latin_Ext_C',
+'Latin_Extended_C',
+],
+'latinextd' => 
+[
+'Latin_Ext_D',
+'Latin_Extended_D',
+],
+'latinexte' => 
+[
+'Latin_Ext_E',
+'Latin_Extended_E',
+],
+'lepcha' => 
+[
+'Lepcha',
+],
+'letterlikesymbols' => 
+[
+'Letterlike_Symbols',
+],
+'limbu' => 
+[
+'Limbu',
+],
+'lineara' => 
+[
+'Linear_A',
+],
+'linearbideograms' => 
+[
+'Linear_B_Ideograms',
+],
+'linearbsyllabary' => 
+[
+'Linear_B_Syllabary',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lowsurrogates' => 
+[
+'Low_Surrogates',
+],
+'lycian' => 
+[
+'Lycian',
+],
+'lydian' => 
+[
+'Lydian',
+],
+'mahajani' => 
+[
+'Mahajani',
+],
+'mahjong' => 
+[
+'Mahjong',
+'Mahjong_Tiles',
+],
+'malayalam' => 
+[
+'Malayalam',
+],
+'mandaic' => 
+[
+'Mandaic',
+],
+'manichaean' => 
+[
+'Manichaean',
+],
+'marchen' => 
+[
+'Marchen',
+],
+'masaramgondi' => 
+[
+'Masaram_Gondi',
+],
+'mathalphanum' => 
+[
+'Math_Alphanum',
+'Mathematical_Alphanumeric_Symbols',
+],
+'mathoperators' => 
+[
+'Math_Operators',
+'Mathematical_Operators',
+],
+'meeteimayek' => 
+[
+'Meetei_Mayek',
+],
+'meeteimayekext' => 
+[
+'Meetei_Mayek_Ext',
+'Meetei_Mayek_Extensions',
+],
+'mendekikakui' => 
+[
+'Mende_Kikakui',
+],
+'meroiticcursive' => 
+[
+'Meroitic_Cursive',
+],
+'meroitichieroglyphs' => 
+[
+'Meroitic_Hieroglyphs',
+],
+'miao' => 
+[
+'Miao',
+],
+'miscarrows' => 
+[
+'Misc_Arrows',
+'Miscellaneous_Symbols_And_Arrows',
+],
+'miscmathsymbolsa' => 
+[
+'Misc_Math_Symbols_A',
+'Miscellaneous_Mathematical_Symbols_A',
+],
+'miscmathsymbolsb' => 
+[
+'Misc_Math_Symbols_B',
+'Miscellaneous_Mathematical_Symbols_B',
+],
+'miscpictographs' => 
+[
+'Misc_Pictographs',
+'Miscellaneous_Symbols_And_Pictographs',
+],
+'miscsymbols' => 
+[
+'Misc_Symbols',
+'Miscellaneous_Symbols',
+],
+'misctechnical' => 
+[
+'Misc_Technical',
+'Miscellaneous_Technical',
+],
+'modi' => 
+[
+'Modi',
+],
+'modifierletters' => 
+[
+'Modifier_Letters',
+'Spacing_Modifier_Letters',
+],
+'modifiertoneletters' => 
+[
+'Modifier_Tone_Letters',
+],
+'mongolian' => 
+[
+'Mongolian',
+],
+'mongoliansup' => 
+[
+'Mongolian_Sup',
+'Mongolian_Supplement',
+],
+'mro' => 
+[
+'Mro',
+],
+'multani' => 
+[
+'Multani',
+],
+'music' => 
+[
+'Music',
+'Musical_Symbols',
+],
+'myanmar' => 
+[
+'Myanmar',
+],
+'myanmarexta' => 
+[
+'Myanmar_Ext_A',
+'Myanmar_Extended_A',
+],
+'myanmarextb' => 
+[
+'Myanmar_Ext_B',
+'Myanmar_Extended_B',
+],
+'nabataean' => 
+[
+'Nabataean',
+],
+'nb' => 
+[
+'NB',
+'No_Block',
+],
+'newa' => 
+[
+'Newa',
+],
+'newtailue' => 
+[
+'New_Tai_Lue',
+],
+'nko' => 
+[
+'NKo',
+],
+'numberforms' => 
+[
+'Number_Forms',
+],
+'nushu' => 
+[
+'Nushu',
+],
+'ocr' => 
+[
+'OCR',
+'Optical_Character_Recognition',
+],
+'ogham' => 
+[
+'Ogham',
+],
+'olchiki' => 
+[
+'Ol_Chiki',
+],
+'oldhungarian' => 
+[
+'Old_Hungarian',
+],
+'olditalic' => 
+[
+'Old_Italic',
+],
+'oldnortharabian' => 
+[
+'Old_North_Arabian',
+],
+'oldpermic' => 
+[
+'Old_Permic',
+],
+'oldpersian' => 
+[
+'Old_Persian',
+],
+'oldsoutharabian' => 
+[
+'Old_South_Arabian',
+],
+'oldturkic' => 
+[
+'Old_Turkic',
+],
+'oriya' => 
+[
+'Oriya',
+],
+'ornamentaldingbats' => 
+[
+'Ornamental_Dingbats',
+],
+'osage' => 
+[
+'Osage',
+],
+'osmanya' => 
+[
+'Osmanya',
+],
+'pahawhhmong' => 
+[
+'Pahawh_Hmong',
+],
+'palmyrene' => 
+[
+'Palmyrene',
+],
+'paucinhau' => 
+[
+'Pau_Cin_Hau',
+],
+'phagspa' => 
+[
+'Phags_Pa',
+],
+'phaistos' => 
+[
+'Phaistos',
+'Phaistos_Disc',
+],
+'phoenician' => 
+[
+'Phoenician',
+],
+'phoneticext' => 
+[
+'Phonetic_Ext',
+'Phonetic_Extensions',
+],
+'phoneticextsup' => 
+[
+'Phonetic_Ext_Sup',
+'Phonetic_Extensions_Supplement',
+],
+'playingcards' => 
+[
+'Playing_Cards',
+],
+'psalterpahlavi' => 
+[
+'Psalter_Pahlavi',
+],
+'pua' => 
+[
+'PUA',
+'Private_Use_Area',
+'Private_Use',
+],
+'punctuation' => 
+[
+'Punctuation',
+'General_Punctuation',
+],
+'rejang' => 
+[
+'Rejang',
+],
+'rumi' => 
+[
+'Rumi',
+'Rumi_Numeral_Symbols',
+],
+'runic' => 
+[
+'Runic',
+],
+'samaritan' => 
+[
+'Samaritan',
+],
+'saurashtra' => 
+[
+'Saurashtra',
+],
+'sharada' => 
+[
+'Sharada',
+],
+'shavian' => 
+[
+'Shavian',
+],
+'shorthandformatcontrols' => 
+[
+'Shorthand_Format_Controls',
+],
+'siddham' => 
+[
+'Siddham',
+],
+'sinhala' => 
+[
+'Sinhala',
+],
+'sinhalaarchaicnumbers' => 
+[
+'Sinhala_Archaic_Numbers',
+],
+'smallforms' => 
+[
+'Small_Forms',
+'Small_Form_Variants',
+],
+'sorasompeng' => 
+[
+'Sora_Sompeng',
+],
+'soyombo' => 
+[
+'Soyombo',
+],
+'specials' => 
+[
+'Specials',
+],
+'sundanese' => 
+[
+'Sundanese',
+],
+'sundanesesup' => 
+[
+'Sundanese_Sup',
+'Sundanese_Supplement',
+],
+'suparrowsa' => 
+[
+'Sup_Arrows_A',
+'Supplemental_Arrows_A',
+],
+'suparrowsb' => 
+[
+'Sup_Arrows_B',
+'Supplemental_Arrows_B',
+],
+'suparrowsc' => 
+[
+'Sup_Arrows_C',
+'Supplemental_Arrows_C',
+],
+'superandsub' => 
+[
+'Super_And_Sub',
+'Superscripts_And_Subscripts',
+],
+'supmathoperators' => 
+[
+'Sup_Math_Operators',
+'Supplemental_Mathematical_Operators',
+],
+'suppuaa' => 
+[
+'Sup_PUA_A',
+'Supplementary_Private_Use_Area_A',
+],
+'suppuab' => 
+[
+'Sup_PUA_B',
+'Supplementary_Private_Use_Area_B',
+],
+'suppunctuation' => 
+[
+'Sup_Punctuation',
+'Supplemental_Punctuation',
+],
+'supsymbolsandpictographs' => 
+[
+'Sup_Symbols_And_Pictographs',
+'Supplemental_Symbols_And_Pictographs',
+],
+'suttonsignwriting' => 
+[
+'Sutton_SignWriting',
+],
+'sylotinagri' => 
+[
+'Syloti_Nagri',
+],
+'syriac' => 
+[
+'Syriac',
+],
+'syriacsup' => 
+[
+'Syriac_Sup',
+'Syriac_Supplement',
+],
+'tagalog' => 
+[
+'Tagalog',
+],
+'tagbanwa' => 
+[
+'Tagbanwa',
+],
+'tags' => 
+[
+'Tags',
+],
+'taile' => 
+[
+'Tai_Le',
+],
+'taitham' => 
+[
+'Tai_Tham',
+],
+'taiviet' => 
+[
+'Tai_Viet',
+],
+'taixuanjing' => 
+[
+'Tai_Xuan_Jing',
+'Tai_Xuan_Jing_Symbols',
+],
+'takri' => 
+[
+'Takri',
+],
+'tamil' => 
+[
+'Tamil',
+],
+'tangut' => 
+[
+'Tangut',
+],
+'tangutcomponents' => 
+[
+'Tangut_Components',
+],
+'telugu' => 
+[
+'Telugu',
+],
+'thaana' => 
+[
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibetan' => 
+[
+'Tibetan',
+],
+'tifinagh' => 
+[
+'Tifinagh',
+],
+'tirhuta' => 
+[
+'Tirhuta',
+],
+'transportandmap' => 
+[
+'Transport_And_Map',
+'Transport_And_Map_Symbols',
+],
+'ucas' => 
+[
+'UCAS',
+'Unified_Canadian_Aboriginal_Syllabics',
+'Canadian_Syllabics',
+],
+'ucasext' => 
+[
+'UCAS_Ext',
+'Unified_Canadian_Aboriginal_Syllabics_Extended',
+],
+'ugaritic' => 
+[
+'Ugaritic',
+],
+'vai' => 
+[
+'Vai',
+],
+'vedicext' => 
+[
+'Vedic_Ext',
+'Vedic_Extensions',
+],
+'verticalforms' => 
+[
+'Vertical_Forms',
+],
+'vs' => 
+[
+'VS',
+'Variation_Selectors',
+],
+'vssup' => 
+[
+'VS_Sup',
+'Variation_Selectors_Supplement',
+],
+'warangciti' => 
+[
+'Warang_Citi',
+],
+'yijing' => 
+[
+'Yijing',
+'Yijing_Hexagram_Symbols',
+],
+'yiradicals' => 
+[
+'Yi_Radicals',
+],
+'yisyllables' => 
+[
+'Yi_Syllables',
+],
+'zanabazarsquare' => 
+[
+'Zanabazar_Square',
+],
+},
+'bpt' => 
+{
+'c' => 
+[
+'c',
+'Close',
+],
+'n' => 
+[
+'n',
+'None',
+],
+'o' => 
+[
+'o',
+'Open',
+],
+},
+'cased' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ccc' => 
+{
+'a' => 
+[
+'A',
+'Above',
+230,
+],
+'al' => 
+[
+'AL',
+'Above_Left',
+228,
+],
+'ar' => 
+[
+'AR',
+'Above_Right',
+232,
+],
+'ata' => 
+[
+'ATA',
+'Attached_Above',
+214,
+],
+'atar' => 
+[
+'ATAR',
+'Attached_Above_Right',
+216,
+],
+'atb' => 
+[
+'ATB',
+'Attached_Below',
+202,
+],
+'atbl' => 
+[
+'ATBL',
+'Attached_Below_Left',
+200,
+],
+'b' => 
+[
+'B',
+'Below',
+220,
+],
+'bl' => 
+[
+'BL',
+'Below_Left',
+218,
+],
+'br' => 
+[
+'BR',
+'Below_Right',
+222,
+],
+'ccc10' => 
+[
+'CCC10',
+'CCC10',
+10,
+],
+'ccc103' => 
+[
+'CCC103',
+'CCC103',
+103,
+],
+'ccc107' => 
+[
+'CCC107',
+'CCC107',
+107,
+],
+'ccc11' => 
+[
+'CCC11',
+'CCC11',
+11,
+],
+'ccc118' => 
+[
+'CCC118',
+'CCC118',
+118,
+],
+'ccc12' => 
+[
+'CCC12',
+'CCC12',
+12,
+],
+'ccc122' => 
+[
+'CCC122',
+'CCC122',
+122,
+],
+'ccc129' => 
+[
+'CCC129',
+'CCC129',
+129,
+],
+'ccc13' => 
+[
+'CCC13',
+'CCC13',
+13,
+],
+'ccc130' => 
+[
+'CCC130',
+'CCC130',
+130,
+],
+'ccc132' => 
+[
+'CCC132',
+'CCC132',
+132,
+],
+'ccc133' => 
+[
+'CCC133',
+'CCC133',
+133,
+],
+'ccc14' => 
+[
+'CCC14',
+'CCC14',
+14,
+],
+'ccc15' => 
+[
+'CCC15',
+'CCC15',
+15,
+],
+'ccc16' => 
+[
+'CCC16',
+'CCC16',
+16,
+],
+'ccc17' => 
+[
+'CCC17',
+'CCC17',
+17,
+],
+'ccc18' => 
+[
+'CCC18',
+'CCC18',
+18,
+],
+'ccc19' => 
+[
+'CCC19',
+'CCC19',
+19,
+],
+'ccc20' => 
+[
+'CCC20',
+'CCC20',
+20,
+],
+'ccc21' => 
+[
+'CCC21',
+'CCC21',
+21,
+],
+'ccc22' => 
+[
+'CCC22',
+'CCC22',
+22,
+],
+'ccc23' => 
+[
+'CCC23',
+'CCC23',
+23,
+],
+'ccc24' => 
+[
+'CCC24',
+'CCC24',
+24,
+],
+'ccc25' => 
+[
+'CCC25',
+'CCC25',
+25,
+],
+'ccc26' => 
+[
+'CCC26',
+'CCC26',
+26,
+],
+'ccc27' => 
+[
+'CCC27',
+'CCC27',
+27,
+],
+'ccc28' => 
+[
+'CCC28',
+'CCC28',
+28,
+],
+'ccc29' => 
+[
+'CCC29',
+'CCC29',
+29,
+],
+'ccc30' => 
+[
+'CCC30',
+'CCC30',
+30,
+],
+'ccc31' => 
+[
+'CCC31',
+'CCC31',
+31,
+],
+'ccc32' => 
+[
+'CCC32',
+'CCC32',
+32,
+],
+'ccc33' => 
+[
+'CCC33',
+'CCC33',
+33,
+],
+'ccc34' => 
+[
+'CCC34',
+'CCC34',
+34,
+],
+'ccc35' => 
+[
+'CCC35',
+'CCC35',
+35,
+],
+'ccc36' => 
+[
+'CCC36',
+'CCC36',
+36,
+],
+'ccc84' => 
+[
+'CCC84',
+'CCC84',
+84,
+],
+'ccc91' => 
+[
+'CCC91',
+'CCC91',
+91,
+],
+'da' => 
+[
+'DA',
+'Double_Above',
+234,
+],
+'db' => 
+[
+'DB',
+'Double_Below',
+233,
+],
+'is' => 
+[
+'IS',
+'Iota_Subscript',
+240,
+],
+'kv' => 
+[
+'KV',
+'Kana_Voicing',
+8,
+],
+'l' => 
+[
+'L',
+'Left',
+224,
+],
+'nk' => 
+[
+'NK',
+'Nukta',
+7,
+],
+'nr' => 
+[
+'NR',
+'Not_Reordered',
+0,
+],
+'ov' => 
+[
+'OV',
+'Overlay',
+1,
+],
+'r' => 
+[
+'R',
+'Right',
+226,
+],
+'vr' => 
+[
+'VR',
+'Virama',
+9,
+],
+},
+'ce' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ci' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'compex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwcf' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwcm' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwkcf' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwl' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwt' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwu' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dash' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dep' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'di' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dia' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dt' => 
+{
+'can' => 
+[
+'Can',
+'Canonical',
+],
+'com' => 
+[
+'Com',
+'Compat',
+],
+'enc' => 
+[
+'Enc',
+'Circle',
+],
+'fin' => 
+[
+'Fin',
+'Final',
+],
+'font' => 
+[
+'Font',
+],
+'fra' => 
+[
+'Fra',
+'Fraction',
+],
+'init' => 
+[
+'Init',
+'Initial',
+],
+'iso' => 
+[
+'Iso',
+'Isolated',
+],
+'med' => 
+[
+'Med',
+'Medial',
+],
+'nar' => 
+[
+'Nar',
+'Narrow',
+],
+'nb' => 
+[
+'Nb',
+'Nobreak',
+],
+'noncanon' => 
+[
+'Non_Canon',
+'Non_Canonical',
+],
+'none' => 
+[
+'None',
+],
+'sml' => 
+[
+'Sml',
+'Small',
+],
+'sqr' => 
+[
+'Sqr',
+'Square',
+],
+'sub' => 
+[
+'Sub',
+],
+'sup' => 
+[
+'Sup',
+'Super',
+],
+'vert' => 
+[
+'Vert',
+'Vertical',
+],
+'wide' => 
+[
+'Wide',
+],
+},
+'ea' => 
+{
+'a' => 
+[
+'A',
+'Ambiguous',
+],
+'f' => 
+[
+'F',
+'Fullwidth',
+],
+'h' => 
+[
+'H',
+'Halfwidth',
+],
+'n' => 
+[
+'N',
+'Neutral',
+],
+'na' => 
+[
+'Na',
+'Narrow',
+],
+'w' => 
+[
+'W',
+'Wide',
+],
+},
+'ext' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'gc' => 
+{
+'c' => 
+[
+'C',
+'Other',
+],
+'cc' => 
+[
+'Cc',
+'Control',
+'Cntrl',
+],
+'cf' => 
+[
+'Cf',
+'Format',
+],
+'cn' => 
+[
+'Cn',
+'Unassigned',
+],
+'co' => 
+[
+'Co',
+'Private_Use',
+],
+'cs' => 
+[
+'Cs',
+'Surrogate',
+],
+'l' => 
+[
+'L',
+'Letter',
+],
+'lc' => 
+[
+'LC',
+'Cased_Letter',
+],
+'ll' => 
+[
+'Ll',
+'Lowercase_Letter',
+],
+'lm' => 
+[
+'Lm',
+'Modifier_Letter',
+],
+'lo' => 
+[
+'Lo',
+'Other_Letter',
+],
+'lt' => 
+[
+'Lt',
+'Titlecase_Letter',
+],
+'lu' => 
+[
+'Lu',
+'Uppercase_Letter',
+],
+'m' => 
+[
+'M',
+'Mark',
+'Combining_Mark',
+],
+'mc' => 
+[
+'Mc',
+'Spacing_Mark',
+],
+'me' => 
+[
+'Me',
+'Enclosing_Mark',
+],
+'mn' => 
+[
+'Mn',
+'Nonspacing_Mark',
+],
+'n' => 
+[
+'N',
+'Number',
+],
+'nd' => 
+[
+'Nd',
+'Decimal_Number',
+'Digit',
+],
+'nl' => 
+[
+'Nl',
+'Letter_Number',
+],
+'no' => 
+[
+'No',
+'Other_Number',
+],
+'p' => 
+[
+'P',
+'Punctuation',
+'Punct',
+],
+'pc' => 
+[
+'Pc',
+'Connector_Punctuation',
+],
+'pd' => 
+[
+'Pd',
+'Dash_Punctuation',
+],
+'pe' => 
+[
+'Pe',
+'Close_Punctuation',
+],
+'pf' => 
+[
+'Pf',
+'Final_Punctuation',
+],
+'pi' => 
+[
+'Pi',
+'Initial_Punctuation',
+],
+'po' => 
+[
+'Po',
+'Other_Punctuation',
+],
+'ps' => 
+[
+'Ps',
+'Open_Punctuation',
+],
+'s' => 
+[
+'S',
+'Symbol',
+],
+'sc' => 
+[
+'Sc',
+'Currency_Symbol',
+],
+'sk' => 
+[
+'Sk',
+'Modifier_Symbol',
+],
+'sm' => 
+[
+'Sm',
+'Math_Symbol',
+],
+'so' => 
+[
+'So',
+'Other_Symbol',
+],
+'z' => 
+[
+'Z',
+'Separator',
+],
+'zl' => 
+[
+'Zl',
+'Line_Separator',
+],
+'zp' => 
+[
+'Zp',
+'Paragraph_Separator',
+],
+'zs' => 
+[
+'Zs',
+'Space_Separator',
+],
+},
+'gcb' => 
+{
+'cn' => 
+[
+'CN',
+'Control',
+],
+'cr' => 
+[
+'CR',
+],
+'eb' => 
+[
+'EB',
+'E_Base',
+],
+'ebg' => 
+[
+'EBG',
+'E_Base_GAZ',
+],
+'em' => 
+[
+'EM',
+'E_Modifier',
+],
+'ex' => 
+[
+'EX',
+'Extend',
+],
+'gaz' => 
+[
+'GAZ',
+'Glue_After_Zwj',
+],
+'l' => 
+[
+'L',
+],
+'lf' => 
+[
+'LF',
+],
+'lv' => 
+[
+'LV',
+],
+'lvt' => 
+[
+'LVT',
+],
+'pp' => 
+[
+'PP',
+'Prepend',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sm' => 
+[
+'SM',
+'SpacingMark',
+],
+'t' => 
+[
+'T',
+],
+'v' => 
+[
+'V',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+'zwj' => 
+[
+'ZWJ',
+],
+},
+'grbase' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'grext' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'hex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'hst' => 
+{
+'l' => 
+[
+'L',
+'Leading_Jamo',
+],
+'lv' => 
+[
+'LV',
+'LV_Syllable',
+],
+'lvt' => 
+[
+'LVT',
+'LVT_Syllable',
+],
+'na' => 
+[
+'NA',
+'Not_Applicable',
+],
+'t' => 
+[
+'T',
+'Trailing_Jamo',
+],
+'v' => 
+[
+'V',
+'Vowel_Jamo',
+],
+},
+'hyphen' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ideo' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ids' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idsb' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idst' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'in' => 
+{
+'1.1' => 
+[
+'1.1',
+],
+'10.0' => 
+[
+'10.0',
+'10.0',
+'V10_0',
+],
+'2.0' => 
+[
+'2.0',
+'2.0',
+'V2_0',
+],
+'2.1' => 
+[
+'2.1',
+'2.1',
+'V2_1',
+],
+'3.0' => 
+[
+'3.0',
+'3.0',
+'V3_0',
+],
+'3.1' => 
+[
+'3.1',
+'3.1',
+'V3_1',
+],
+'3.2' => 
+[
+'3.2',
+'3.2',
+'V3_2',
+],
+'4.0' => 
+[
+'4.0',
+'4.0',
+'V4_0',
+],
+'4.1' => 
+[
+'4.1',
+'4.1',
+'V4_1',
+],
+'5.0' => 
+[
+'5.0',
+'5.0',
+'V5_0',
+],
+'5.1' => 
+[
+'5.1',
+'5.1',
+'V5_1',
+],
+'5.2' => 
+[
+'5.2',
+'5.2',
+'V5_2',
+],
+'6.0' => 
+[
+'6.0',
+'6.0',
+'V6_0',
+],
+'6.1' => 
+[
+'6.1',
+'6.1',
+'V6_1',
+],
+'6.2' => 
+[
+'6.2',
+'6.2',
+'V6_2',
+],
+'6.3' => 
+[
+'6.3',
+'6.3',
+'V6_3',
+],
+'7.0' => 
+[
+'7.0',
+'7.0',
+'V7_0',
+],
+'8.0' => 
+[
+'8.0',
+'8.0',
+'V8_0',
+],
+'9.0' => 
+[
+'9.0',
+'9.0',
+'V9_0',
+],
+'unassigned' => 
+[
+'Unassigned',
+],
+},
+'inpc' => 
+{
+'bottom' => 
+[
+'Bottom',
+],
+'bottomandleft' => 
+[
+'Bottom_And_Left',
+],
+'bottomandright' => 
+[
+'Bottom_And_Right',
+],
+'left' => 
+[
+'Left',
+],
+'leftandright' => 
+[
+'Left_And_Right',
+],
+'na' => 
+[
+'NA',
+],
+'overstruck' => 
+[
+'Overstruck',
+],
+'right' => 
+[
+'Right',
+],
+'top' => 
+[
+'Top',
+],
+'topandbottom' => 
+[
+'Top_And_Bottom',
+],
+'topandbottomandright' => 
+[
+'Top_And_Bottom_And_Right',
+],
+'topandleft' => 
+[
+'Top_And_Left',
+],
+'topandleftandright' => 
+[
+'Top_And_Left_And_Right',
+],
+'topandright' => 
+[
+'Top_And_Right',
+],
+'visualorderleft' => 
+[
+'Visual_Order_Left',
+],
+},
+'insc' => 
+{
+'avagraha' => 
+[
+'Avagraha',
+],
+'bindu' => 
+[
+'Bindu',
+],
+'brahmijoiningnumber' => 
+[
+'Brahmi_Joining_Number',
+],
+'cantillationmark' => 
+[
+'Cantillation_Mark',
+],
+'consonant' => 
+[
+'Consonant',
+],
+'consonantdead' => 
+[
+'Consonant_Dead',
+],
+'consonantfinal' => 
+[
+'Consonant_Final',
+],
+'consonantheadletter' => 
+[
+'Consonant_Head_Letter',
+],
+'consonantkiller' => 
+[
+'Consonant_Killer',
+],
+'consonantmedial' => 
+[
+'Consonant_Medial',
+],
+'consonantplaceholder' => 
+[
+'Consonant_Placeholder',
+],
+'consonantprecedingrepha' => 
+[
+'Consonant_Preceding_Repha',
+],
+'consonantprefixed' => 
+[
+'Consonant_Prefixed',
+],
+'consonantsubjoined' => 
+[
+'Consonant_Subjoined',
+],
+'consonantsucceedingrepha' => 
+[
+'Consonant_Succeeding_Repha',
+],
+'consonantwithstacker' => 
+[
+'Consonant_With_Stacker',
+],
+'geminationmark' => 
+[
+'Gemination_Mark',
+],
+'invisiblestacker' => 
+[
+'Invisible_Stacker',
+],
+'joiner' => 
+[
+'Joiner',
+],
+'modifyingletter' => 
+[
+'Modifying_Letter',
+],
+'nonjoiner' => 
+[
+'Non_Joiner',
+],
+'nukta' => 
+[
+'Nukta',
+],
+'number' => 
+[
+'Number',
+],
+'numberjoiner' => 
+[
+'Number_Joiner',
+],
+'other' => 
+[
+'Other',
+],
+'purekiller' => 
+[
+'Pure_Killer',
+],
+'registershifter' => 
+[
+'Register_Shifter',
+],
+'syllablemodifier' => 
+[
+'Syllable_Modifier',
+],
+'toneletter' => 
+[
+'Tone_Letter',
+],
+'tonemark' => 
+[
+'Tone_Mark',
+],
+'virama' => 
+[
+'Virama',
+],
+'visarga' => 
+[
+'Visarga',
+],
+'vowel' => 
+[
+'Vowel',
+],
+'voweldependent' => 
+[
+'Vowel_Dependent',
+],
+'vowelindependent' => 
+[
+'Vowel_Independent',
+],
+},
+'jg' => 
+{
+'africanfeh' => 
+[
+'African_Feh',
+],
+'africannoon' => 
+[
+'African_Noon',
+],
+'africanqaf' => 
+[
+'African_Qaf',
+],
+'ain' => 
+[
+'Ain',
+],
+'alaph' => 
+[
+'Alaph',
+],
+'alef' => 
+[
+'Alef',
+],
+'beh' => 
+[
+'Beh',
+],
+'beth' => 
+[
+'Beth',
+],
+'burushaskiyehbarree' => 
+[
+'Burushaski_Yeh_Barree',
+],
+'dal' => 
+[
+'Dal',
+],
+'dalathrish' => 
+[
+'Dalath_Rish',
+],
+'e' => 
+[
+'E',
+],
+'farsiyeh' => 
+[
+'Farsi_Yeh',
+],
+'fe' => 
+[
+'Fe',
+],
+'feh' => 
+[
+'Feh',
+],
+'finalsemkath' => 
+[
+'Final_Semkath',
+],
+'gaf' => 
+[
+'Gaf',
+],
+'gamal' => 
+[
+'Gamal',
+],
+'hah' => 
+[
+'Hah',
+],
+'he' => 
+[
+'He',
+],
+'heh' => 
+[
+'Heh',
+],
+'hehgoal' => 
+[
+'Heh_Goal',
+],
+'heth' => 
+[
+'Heth',
+],
+'kaf' => 
+[
+'Kaf',
+],
+'kaph' => 
+[
+'Kaph',
+],
+'khaph' => 
+[
+'Khaph',
+],
+'knottedheh' => 
+[
+'Knotted_Heh',
+],
+'lam' => 
+[
+'Lam',
+],
+'lamadh' => 
+[
+'Lamadh',
+],
+'malayalambha' => 
+[
+'Malayalam_Bha',
+],
+'malayalamja' => 
+[
+'Malayalam_Ja',
+],
+'malayalamlla' => 
+[
+'Malayalam_Lla',
+],
+'malayalamllla' => 
+[
+'Malayalam_Llla',
+],
+'malayalamnga' => 
+[
+'Malayalam_Nga',
+],
+'malayalamnna' => 
+[
+'Malayalam_Nna',
+],
+'malayalamnnna' => 
+[
+'Malayalam_Nnna',
+],
+'malayalamnya' => 
+[
+'Malayalam_Nya',
+],
+'malayalamra' => 
+[
+'Malayalam_Ra',
+],
+'malayalamssa' => 
+[
+'Malayalam_Ssa',
+],
+'malayalamtta' => 
+[
+'Malayalam_Tta',
+],
+'manichaeanaleph' => 
+[
+'Manichaean_Aleph',
+],
+'manichaeanayin' => 
+[
+'Manichaean_Ayin',
+],
+'manichaeanbeth' => 
+[
+'Manichaean_Beth',
+],
+'manichaeandaleth' => 
+[
+'Manichaean_Daleth',
+],
+'manichaeandhamedh' => 
+[
+'Manichaean_Dhamedh',
+],
+'manichaeanfive' => 
+[
+'Manichaean_Five',
+],
+'manichaeangimel' => 
+[
+'Manichaean_Gimel',
+],
+'manichaeanheth' => 
+[
+'Manichaean_Heth',
+],
+'manichaeanhundred' => 
+[
+'Manichaean_Hundred',
+],
+'manichaeankaph' => 
+[
+'Manichaean_Kaph',
+],
+'manichaeanlamedh' => 
+[
+'Manichaean_Lamedh',
+],
+'manichaeanmem' => 
+[
+'Manichaean_Mem',
+],
+'manichaeannun' => 
+[
+'Manichaean_Nun',
+],
+'manichaeanone' => 
+[
+'Manichaean_One',
+],
+'manichaeanpe' => 
+[
+'Manichaean_Pe',
+],
+'manichaeanqoph' => 
+[
+'Manichaean_Qoph',
+],
+'manichaeanresh' => 
+[
+'Manichaean_Resh',
+],
+'manichaeansadhe' => 
+[
+'Manichaean_Sadhe',
+],
+'manichaeansamekh' => 
+[
+'Manichaean_Samekh',
+],
+'manichaeantaw' => 
+[
+'Manichaean_Taw',
+],
+'manichaeanten' => 
+[
+'Manichaean_Ten',
+],
+'manichaeanteth' => 
+[
+'Manichaean_Teth',
+],
+'manichaeanthamedh' => 
+[
+'Manichaean_Thamedh',
+],
+'manichaeantwenty' => 
+[
+'Manichaean_Twenty',
+],
+'manichaeanwaw' => 
+[
+'Manichaean_Waw',
+],
+'manichaeanyodh' => 
+[
+'Manichaean_Yodh',
+],
+'manichaeanzayin' => 
+[
+'Manichaean_Zayin',
+],
+'meem' => 
+[
+'Meem',
+],
+'mim' => 
+[
+'Mim',
+],
+'nojoininggroup' => 
+[
+'No_Joining_Group',
+],
+'noon' => 
+[
+'Noon',
+],
+'nun' => 
+[
+'Nun',
+],
+'nya' => 
+[
+'Nya',
+],
+'pe' => 
+[
+'Pe',
+],
+'qaf' => 
+[
+'Qaf',
+],
+'qaph' => 
+[
+'Qaph',
+],
+'reh' => 
+[
+'Reh',
+],
+'reversedpe' => 
+[
+'Reversed_Pe',
+],
+'rohingyayeh' => 
+[
+'Rohingya_Yeh',
+],
+'sad' => 
+[
+'Sad',
+],
+'sadhe' => 
+[
+'Sadhe',
+],
+'seen' => 
+[
+'Seen',
+],
+'semkath' => 
+[
+'Semkath',
+],
+'shin' => 
+[
+'Shin',
+],
+'straightwaw' => 
+[
+'Straight_Waw',
+],
+'swashkaf' => 
+[
+'Swash_Kaf',
+],
+'syriacwaw' => 
+[
+'Syriac_Waw',
+],
+'tah' => 
+[
+'Tah',
+],
+'taw' => 
+[
+'Taw',
+],
+'tehmarbuta' => 
+[
+'Teh_Marbuta',
+],
+'tehmarbutagoal' => 
+[
+'Teh_Marbuta_Goal',
+'Hamza_On_Heh_Goal',
+],
+'teth' => 
+[
+'Teth',
+],
+'waw' => 
+[
+'Waw',
+],
+'yeh' => 
+[
+'Yeh',
+],
+'yehbarree' => 
+[
+'Yeh_Barree',
+],
+'yehwithtail' => 
+[
+'Yeh_With_Tail',
+],
+'yudh' => 
+[
+'Yudh',
+],
+'yudhhe' => 
+[
+'Yudh_He',
+],
+'zain' => 
+[
+'Zain',
+],
+'zhain' => 
+[
+'Zhain',
+],
+},
+'joinc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'jt' => 
+{
+'c' => 
+[
+'C',
+'Join_Causing',
+],
+'d' => 
+[
+'D',
+'Dual_Joining',
+],
+'l' => 
+[
+'L',
+'Left_Joining',
+],
+'r' => 
+[
+'R',
+'Right_Joining',
+],
+'t' => 
+[
+'T',
+'Transparent',
+],
+'u' => 
+[
+'U',
+'Non_Joining',
+],
+},
+'lb' => 
+{
+'ai' => 
+[
+'AI',
+'Ambiguous',
+],
+'al' => 
+[
+'AL',
+'Alphabetic',
+],
+'b2' => 
+[
+'B2',
+'Break_Both',
+],
+'ba' => 
+[
+'BA',
+'Break_After',
+],
+'bb' => 
+[
+'BB',
+'Break_Before',
+],
+'bk' => 
+[
+'BK',
+'Mandatory_Break',
+],
+'cb' => 
+[
+'CB',
+'Contingent_Break',
+],
+'cj' => 
+[
+'CJ',
+'Conditional_Japanese_Starter',
+],
+'cl' => 
+[
+'CL',
+'Close_Punctuation',
+],
+'cm' => 
+[
+'CM',
+'Combining_Mark',
+],
+'cp' => 
+[
+'CP',
+'Close_Parenthesis',
+],
+'cr' => 
+[
+'CR',
+'Carriage_Return',
+],
+'eb' => 
+[
+'EB',
+'E_Base',
+],
+'em' => 
+[
+'EM',
+'E_Modifier',
+],
+'ex' => 
+[
+'EX',
+'Exclamation',
+],
+'gl' => 
+[
+'GL',
+'Glue',
+],
+'h2' => 
+[
+'H2',
+],
+'h3' => 
+[
+'H3',
+],
+'hl' => 
+[
+'HL',
+'Hebrew_Letter',
+],
+'hy' => 
+[
+'HY',
+'Hyphen',
+],
+'id' => 
+[
+'ID',
+'Ideographic',
+],
+'in' => 
+[
+'IN',
+'Inseparable',
+'Inseperable',
+],
+'is' => 
+[
+'IS',
+'Infix_Numeric',
+],
+'jl' => 
+[
+'JL',
+],
+'jt' => 
+[
+'JT',
+],
+'jv' => 
+[
+'JV',
+],
+'lf' => 
+[
+'LF',
+'Line_Feed',
+],
+'nl' => 
+[
+'NL',
+'Next_Line',
+],
+'ns' => 
+[
+'NS',
+'Nonstarter',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'op' => 
+[
+'OP',
+'Open_Punctuation',
+],
+'po' => 
+[
+'PO',
+'Postfix_Numeric',
+],
+'pr' => 
+[
+'PR',
+'Prefix_Numeric',
+],
+'qu' => 
+[
+'QU',
+'Quotation',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sa' => 
+[
+'SA',
+'Complex_Context',
+],
+'sg' => 
+[
+'SG',
+'Surrogate',
+],
+'sp' => 
+[
+'SP',
+'Space',
+],
+'sy' => 
+[
+'SY',
+'Break_Symbols',
+],
+'wj' => 
+[
+'WJ',
+'Word_Joiner',
+],
+'xx' => 
+[
+'XX',
+'Unknown',
+],
+'zw' => 
+[
+'ZW',
+'ZWSpace',
+],
+'zwj' => 
+[
+'ZWJ',
+],
+},
+'loe' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'lower' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'math' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'nchar' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'nfcqc' => 
+{
+'m' => 
+[
+'M',
+'Maybe',
+],
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfdqc' => 
+{
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfkcqc' => 
+{
+'m' => 
+[
+'M',
+'Maybe',
+],
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfkdqc' => 
+{
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nt' => 
+{
+'de' => 
+[
+'De',
+'Decimal',
+],
+'di' => 
+[
+'Di',
+'Digit',
+],
+'none' => 
+[
+'None',
+],
+'nu' => 
+[
+'Nu',
+'Numeric',
+],
+},
+'nv' => 
+{
+'-1/2' => 
+[
+'-1/2',
+],
+0 => 
+[
+0,
+],
+1 => 
+[
+1,
+],
+'1/10' => 
+[
+'1/10',
+],
+'1/12' => 
+[
+'1/12',
+],
+'1/16' => 
+[
+'1/16',
+],
+'1/160' => 
+[
+'1/160',
+],
+'1/2' => 
+[
+'1/2',
+],
+'1/20' => 
+[
+'1/20',
+],
+'1/3' => 
+[
+'1/3',
+],
+'1/4' => 
+[
+'1/4',
+],
+'1/40' => 
+[
+'1/40',
+],
+'1/5' => 
+[
+'1/5',
+],
+'1/6' => 
+[
+'1/6',
+],
+'1/7' => 
+[
+'1/7',
+],
+'1/8' => 
+[
+'1/8',
+],
+'1/9' => 
+[
+'1/9',
+],
+10 => 
+[
+10,
+],
+100 => 
+[
+100,
+],
+1000 => 
+[
+1000,
+],
+10000 => 
+[
+10000,
+],
+100000 => 
+[
+100000,
+],
+1000000 => 
+[
+1000000,
+],
+100000000 => 
+[
+100000000,
+],
+10000000000 => 
+[
+10000000000,
+],
+1000000000000 => 
+[
+1000000000000,
+],
+11 => 
+[
+11,
+],
+'11/12' => 
+[
+'11/12',
+],
+'11/2' => 
+[
+'11/2',
+],
+12 => 
+[
+12,
+],
+13 => 
+[
+13,
+],
+'13/2' => 
+[
+'13/2',
+],
+14 => 
+[
+14,
+],
+15 => 
+[
+15,
+],
+'15/2' => 
+[
+'15/2',
+],
+16 => 
+[
+16,
+],
+17 => 
+[
+17,
+],
+'17/2' => 
+[
+'17/2',
+],
+18 => 
+[
+18,
+],
+19 => 
+[
+19,
+],
+2 => 
+[
+2,
+],
+'2/3' => 
+[
+'2/3',
+],
+'2/5' => 
+[
+'2/5',
+],
+20 => 
+[
+20,
+],
+200 => 
+[
+200,
+],
+2000 => 
+[
+2000,
+],
+20000 => 
+[
+20000,
+],
+200000 => 
+[
+200000,
+],
+21 => 
+[
+21,
+],
+216000 => 
+[
+216000,
+],
+22 => 
+[
+22,
+],
+23 => 
+[
+23,
+],
+24 => 
+[
+24,
+],
+25 => 
+[
+25,
+],
+26 => 
+[
+26,
+],
+27 => 
+[
+27,
+],
+28 => 
+[
+28,
+],
+29 => 
+[
+29,
+],
+3 => 
+[
+3,
+],
+'3/16' => 
+[
+'3/16',
+],
+'3/2' => 
+[
+'3/2',
+],
+'3/20' => 
+[
+'3/20',
+],
+'3/4' => 
+[
+'3/4',
+],
+'3/5' => 
+[
+'3/5',
+],
+'3/8' => 
+[
+'3/8',
+],
+'3/80' => 
+[
+'3/80',
+],
+30 => 
+[
+30,
+],
+300 => 
+[
+300,
+],
+3000 => 
+[
+3000,
+],
+30000 => 
+[
+30000,
+],
+300000 => 
+[
+300000,
+],
+31 => 
+[
+31,
+],
+32 => 
+[
+32,
+],
+33 => 
+[
+33,
+],
+34 => 
+[
+34,
+],
+35 => 
+[
+35,
+],
+36 => 
+[
+36,
+],
+37 => 
+[
+37,
+],
+38 => 
+[
+38,
+],
+39 => 
+[
+39,
+],
+4 => 
+[
+4,
+],
+'4/5' => 
+[
+'4/5',
+],
+40 => 
+[
+40,
+],
+400 => 
+[
+400,
+],
+4000 => 
+[
+4000,
+],
+40000 => 
+[
+40000,
+],
+400000 => 
+[
+400000,
+],
+41 => 
+[
+41,
+],
+42 => 
+[
+42,
+],
+43 => 
+[
+43,
+],
+432000 => 
+[
+432000,
+],
+44 => 
+[
+44,
+],
+45 => 
+[
+45,
+],
+46 => 
+[
+46,
+],
+47 => 
+[
+47,
+],
+48 => 
+[
+48,
+],
+49 => 
+[
+49,
+],
+5 => 
+[
+5,
+],
+'5/12' => 
+[
+'5/12',
+],
+'5/2' => 
+[
+'5/2',
+],
+'5/6' => 
+[
+'5/6',
+],
+'5/8' => 
+[
+'5/8',
+],
+50 => 
+[
+50,
+],
+500 => 
+[
+500,
+],
+5000 => 
+[
+5000,
+],
+50000 => 
+[
+50000,
+],
+500000 => 
+[
+500000,
+],
+6 => 
+[
+6,
+],
+60 => 
+[
+60,
+],
+600 => 
+[
+600,
+],
+6000 => 
+[
+6000,
+],
+60000 => 
+[
+60000,
+],
+600000 => 
+[
+600000,
+],
+7 => 
+[
+7,
+],
+'7/12' => 
+[
+'7/12',
+],
+'7/2' => 
+[
+'7/2',
+],
+'7/8' => 
+[
+'7/8',
+],
+70 => 
+[
+70,
+],
+700 => 
+[
+700,
+],
+7000 => 
+[
+7000,
+],
+70000 => 
+[
+70000,
+],
+700000 => 
+[
+700000,
+],
+8 => 
+[
+8,
+],
+80 => 
+[
+80,
+],
+800 => 
+[
+800,
+],
+8000 => 
+[
+8000,
+],
+80000 => 
+[
+80000,
+],
+800000 => 
+[
+800000,
+],
+9 => 
+[
+9,
+],
+'9/2' => 
+[
+'9/2',
+],
+90 => 
+[
+90,
+],
+900 => 
+[
+900,
+],
+9000 => 
+[
+9000,
+],
+90000 => 
+[
+90000,
+],
+900000 => 
+[
+900000,
+],
+'nan' => 
+[
+'NaN',
+],
+},
+'patsyn' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'patws' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'pcm' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'qmark' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'radical' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ri' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'sb' => 
+{
+'at' => 
+[
+'AT',
+'ATerm',
+],
+'cl' => 
+[
+'CL',
+'Close',
+],
+'cr' => 
+[
+'CR',
+],
+'ex' => 
+[
+'EX',
+'Extend',
+],
+'fo' => 
+[
+'FO',
+'Format',
+],
+'le' => 
+[
+'LE',
+'OLetter',
+],
+'lf' => 
+[
+'LF',
+],
+'lo' => 
+[
+'LO',
+'Lower',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'sc' => 
+[
+'SC',
+'SContinue',
+],
+'se' => 
+[
+'SE',
+'Sep',
+],
+'sp' => 
+[
+'SP',
+'Sp',
+],
+'st' => 
+[
+'ST',
+'STerm',
+],
+'up' => 
+[
+'UP',
+'Upper',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+},
+'sc' => 
+{
+'adlm' => 
+[
+'Adlm',
+'Adlam',
+],
+'aghb' => 
+[
+'Aghb',
+'Caucasian_Albanian',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'arab' => 
+[
+'Arab',
+'Arabic',
+],
+'armi' => 
+[
+'Armi',
+'Imperial_Aramaic',
+],
+'armn' => 
+[
+'Armn',
+'Armenian',
+],
+'avst' => 
+[
+'Avst',
+'Avestan',
+],
+'bali' => 
+[
+'Bali',
+'Balinese',
+],
+'bamu' => 
+[
+'Bamu',
+'Bamum',
+],
+'bass' => 
+[
+'Bass',
+'Bassa_Vah',
+],
+'batk' => 
+[
+'Batk',
+'Batak',
+],
+'beng' => 
+[
+'Beng',
+'Bengali',
+],
+'bhks' => 
+[
+'Bhks',
+'Bhaiksuki',
+],
+'bopo' => 
+[
+'Bopo',
+'Bopomofo',
+],
+'brah' => 
+[
+'Brah',
+'Brahmi',
+],
+'brai' => 
+[
+'Brai',
+'Braille',
+],
+'bugi' => 
+[
+'Bugi',
+'Buginese',
+],
+'buhd' => 
+[
+'Buhd',
+'Buhid',
+],
+'cakm' => 
+[
+'Cakm',
+'Chakma',
+],
+'cans' => 
+[
+'Cans',
+'Canadian_Aboriginal',
+],
+'cari' => 
+[
+'Cari',
+'Carian',
+],
+'cham' => 
+[
+'Cham',
+],
+'cher' => 
+[
+'Cher',
+'Cherokee',
+],
+'copt' => 
+[
+'Copt',
+'Coptic',
+'Qaac',
+],
+'cprt' => 
+[
+'Cprt',
+'Cypriot',
+],
+'cyrl' => 
+[
+'Cyrl',
+'Cyrillic',
+],
+'deva' => 
+[
+'Deva',
+'Devanagari',
+],
+'dsrt' => 
+[
+'Dsrt',
+'Deseret',
+],
+'dupl' => 
+[
+'Dupl',
+'Duployan',
+],
+'egyp' => 
+[
+'Egyp',
+'Egyptian_Hieroglyphs',
+],
+'elba' => 
+[
+'Elba',
+'Elbasan',
+],
+'ethi' => 
+[
+'Ethi',
+'Ethiopic',
+],
+'geor' => 
+[
+'Geor',
+'Georgian',
+],
+'glag' => 
+[
+'Glag',
+'Glagolitic',
+],
+'gonm' => 
+[
+'Gonm',
+'Masaram_Gondi',
+],
+'goth' => 
+[
+'Goth',
+'Gothic',
+],
+'gran' => 
+[
+'Gran',
+'Grantha',
+],
+'grek' => 
+[
+'Grek',
+'Greek',
+],
+'gujr' => 
+[
+'Gujr',
+'Gujarati',
+],
+'guru' => 
+[
+'Guru',
+'Gurmukhi',
+],
+'hang' => 
+[
+'Hang',
+'Hangul',
+],
+'hani' => 
+[
+'Hani',
+'Han',
+],
+'hano' => 
+[
+'Hano',
+'Hanunoo',
+],
+'hatr' => 
+[
+'Hatr',
+'Hatran',
+],
+'hebr' => 
+[
+'Hebr',
+'Hebrew',
+],
+'hira' => 
+[
+'Hira',
+'Hiragana',
+],
+'hluw' => 
+[
+'Hluw',
+'Anatolian_Hieroglyphs',
+],
+'hmng' => 
+[
+'Hmng',
+'Pahawh_Hmong',
+],
+'hrkt' => 
+[
+'Hrkt',
+'Katakana_Or_Hiragana',
+],
+'hung' => 
+[
+'Hung',
+'Old_Hungarian',
+],
+'ital' => 
+[
+'Ital',
+'Old_Italic',
+],
+'java' => 
+[
+'Java',
+'Javanese',
+],
+'kali' => 
+[
+'Kali',
+'Kayah_Li',
+],
+'kana' => 
+[
+'Kana',
+'Katakana',
+],
+'khar' => 
+[
+'Khar',
+'Kharoshthi',
+],
+'khmr' => 
+[
+'Khmr',
+'Khmer',
+],
+'khoj' => 
+[
+'Khoj',
+'Khojki',
+],
+'knda' => 
+[
+'Knda',
+'Kannada',
+],
+'kthi' => 
+[
+'Kthi',
+'Kaithi',
+],
+'lana' => 
+[
+'Lana',
+'Tai_Tham',
+],
+'laoo' => 
+[
+'Laoo',
+'Lao',
+],
+'latn' => 
+[
+'Latn',
+'Latin',
+],
+'lepc' => 
+[
+'Lepc',
+'Lepcha',
+],
+'limb' => 
+[
+'Limb',
+'Limbu',
+],
+'lina' => 
+[
+'Lina',
+'Linear_A',
+],
+'linb' => 
+[
+'Linb',
+'Linear_B',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lyci' => 
+[
+'Lyci',
+'Lycian',
+],
+'lydi' => 
+[
+'Lydi',
+'Lydian',
+],
+'mahj' => 
+[
+'Mahj',
+'Mahajani',
+],
+'mand' => 
+[
+'Mand',
+'Mandaic',
+],
+'mani' => 
+[
+'Mani',
+'Manichaean',
+],
+'marc' => 
+[
+'Marc',
+'Marchen',
+],
+'mend' => 
+[
+'Mend',
+'Mende_Kikakui',
+],
+'merc' => 
+[
+'Merc',
+'Meroitic_Cursive',
+],
+'mero' => 
+[
+'Mero',
+'Meroitic_Hieroglyphs',
+],
+'mlym' => 
+[
+'Mlym',
+'Malayalam',
+],
+'modi' => 
+[
+'Modi',
+],
+'mong' => 
+[
+'Mong',
+'Mongolian',
+],
+'mroo' => 
+[
+'Mroo',
+'Mro',
+],
+'mtei' => 
+[
+'Mtei',
+'Meetei_Mayek',
+],
+'mult' => 
+[
+'Mult',
+'Multani',
+],
+'mymr' => 
+[
+'Mymr',
+'Myanmar',
+],
+'narb' => 
+[
+'Narb',
+'Old_North_Arabian',
+],
+'nbat' => 
+[
+'Nbat',
+'Nabataean',
+],
+'newa' => 
+[
+'Newa',
+],
+'nkoo' => 
+[
+'Nkoo',
+'Nko',
+],
+'nshu' => 
+[
+'Nshu',
+'Nushu',
+],
+'ogam' => 
+[
+'Ogam',
+'Ogham',
+],
+'olck' => 
+[
+'Olck',
+'Ol_Chiki',
+],
+'orkh' => 
+[
+'Orkh',
+'Old_Turkic',
+],
+'orya' => 
+[
+'Orya',
+'Oriya',
+],
+'osge' => 
+[
+'Osge',
+'Osage',
+],
+'osma' => 
+[
+'Osma',
+'Osmanya',
+],
+'palm' => 
+[
+'Palm',
+'Palmyrene',
+],
+'pauc' => 
+[
+'Pauc',
+'Pau_Cin_Hau',
+],
+'perm' => 
+[
+'Perm',
+'Old_Permic',
+],
+'phag' => 
+[
+'Phag',
+'Phags_Pa',
+],
+'phli' => 
+[
+'Phli',
+'Inscriptional_Pahlavi',
+],
+'phlp' => 
+[
+'Phlp',
+'Psalter_Pahlavi',
+],
+'phnx' => 
+[
+'Phnx',
+'Phoenician',
+],
+'plrd' => 
+[
+'Plrd',
+'Miao',
+],
+'prti' => 
+[
+'Prti',
+'Inscriptional_Parthian',
+],
+'rjng' => 
+[
+'Rjng',
+'Rejang',
+],
+'runr' => 
+[
+'Runr',
+'Runic',
+],
+'samr' => 
+[
+'Samr',
+'Samaritan',
+],
+'sarb' => 
+[
+'Sarb',
+'Old_South_Arabian',
+],
+'saur' => 
+[
+'Saur',
+'Saurashtra',
+],
+'sgnw' => 
+[
+'Sgnw',
+'SignWriting',
+],
+'shaw' => 
+[
+'Shaw',
+'Shavian',
+],
+'shrd' => 
+[
+'Shrd',
+'Sharada',
+],
+'sidd' => 
+[
+'Sidd',
+'Siddham',
+],
+'sind' => 
+[
+'Sind',
+'Khudawadi',
+],
+'sinh' => 
+[
+'Sinh',
+'Sinhala',
+],
+'sora' => 
+[
+'Sora',
+'Sora_Sompeng',
+],
+'soyo' => 
+[
+'Soyo',
+'Soyombo',
+],
+'sund' => 
+[
+'Sund',
+'Sundanese',
+],
+'sylo' => 
+[
+'Sylo',
+'Syloti_Nagri',
+],
+'syrc' => 
+[
+'Syrc',
+'Syriac',
+],
+'tagb' => 
+[
+'Tagb',
+'Tagbanwa',
+],
+'takr' => 
+[
+'Takr',
+'Takri',
+],
+'tale' => 
+[
+'Tale',
+'Tai_Le',
+],
+'talu' => 
+[
+'Talu',
+'New_Tai_Lue',
+],
+'taml' => 
+[
+'Taml',
+'Tamil',
+],
+'tang' => 
+[
+'Tang',
+'Tangut',
+],
+'tavt' => 
+[
+'Tavt',
+'Tai_Viet',
+],
+'telu' => 
+[
+'Telu',
+'Telugu',
+],
+'tfng' => 
+[
+'Tfng',
+'Tifinagh',
+],
+'tglg' => 
+[
+'Tglg',
+'Tagalog',
+],
+'thaa' => 
+[
+'Thaa',
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibt' => 
+[
+'Tibt',
+'Tibetan',
+],
+'tirh' => 
+[
+'Tirh',
+'Tirhuta',
+],
+'ugar' => 
+[
+'Ugar',
+'Ugaritic',
+],
+'vaii' => 
+[
+'Vaii',
+'Vai',
+],
+'wara' => 
+[
+'Wara',
+'Warang_Citi',
+],
+'xpeo' => 
+[
+'Xpeo',
+'Old_Persian',
+],
+'xsux' => 
+[
+'Xsux',
+'Cuneiform',
+],
+'yiii' => 
+[
+'Yiii',
+'Yi',
+],
+'zanb' => 
+[
+'Zanb',
+'Zanabazar_Square',
+],
+'zinh' => 
+[
+'Zinh',
+'Inherited',
+'Qaai',
+],
+'zyyy' => 
+[
+'Zyyy',
+'Common',
+],
+'zzzz' => 
+[
+'Zzzz',
+'Unknown',
+],
+},
+'scx' => 
+{
+'adlm' => 
+[
+'Adlm',
+'Adlam',
+],
+'aghb' => 
+[
+'Aghb',
+'Caucasian_Albanian',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'arab' => 
+[
+'Arab',
+'Arabic',
+],
+'armi' => 
+[
+'Armi',
+'Imperial_Aramaic',
+],
+'armn' => 
+[
+'Armn',
+'Armenian',
+],
+'avst' => 
+[
+'Avst',
+'Avestan',
+],
+'bali' => 
+[
+'Bali',
+'Balinese',
+],
+'bamu' => 
+[
+'Bamu',
+'Bamum',
+],
+'bass' => 
+[
+'Bass',
+'Bassa_Vah',
+],
+'batk' => 
+[
+'Batk',
+'Batak',
+],
+'beng' => 
+[
+'Beng',
+'Bengali',
+],
+'bhks' => 
+[
+'Bhks',
+'Bhaiksuki',
+],
+'bopo' => 
+[
+'Bopo',
+'Bopomofo',
+],
+'brah' => 
+[
+'Brah',
+'Brahmi',
+],
+'brai' => 
+[
+'Brai',
+'Braille',
+],
+'bugi' => 
+[
+'Bugi',
+'Buginese',
+],
+'buhd' => 
+[
+'Buhd',
+'Buhid',
+],
+'cakm' => 
+[
+'Cakm',
+'Chakma',
+],
+'cans' => 
+[
+'Cans',
+'Canadian_Aboriginal',
+],
+'cari' => 
+[
+'Cari',
+'Carian',
+],
+'cham' => 
+[
+'Cham',
+],
+'cher' => 
+[
+'Cher',
+'Cherokee',
+],
+'copt' => 
+[
+'Copt',
+'Coptic',
+'Qaac',
+],
+'cprt' => 
+[
+'Cprt',
+'Cypriot',
+],
+'cyrl' => 
+[
+'Cyrl',
+'Cyrillic',
+],
+'deva' => 
+[
+'Deva',
+'Devanagari',
+],
+'dsrt' => 
+[
+'Dsrt',
+'Deseret',
+],
+'dupl' => 
+[
+'Dupl',
+'Duployan',
+],
+'egyp' => 
+[
+'Egyp',
+'Egyptian_Hieroglyphs',
+],
+'elba' => 
+[
+'Elba',
+'Elbasan',
+],
+'ethi' => 
+[
+'Ethi',
+'Ethiopic',
+],
+'geor' => 
+[
+'Geor',
+'Georgian',
+],
+'glag' => 
+[
+'Glag',
+'Glagolitic',
+],
+'gonm' => 
+[
+'Gonm',
+'Masaram_Gondi',
+],
+'goth' => 
+[
+'Goth',
+'Gothic',
+],
+'gran' => 
+[
+'Gran',
+'Grantha',
+],
+'grek' => 
+[
+'Grek',
+'Greek',
+],
+'gujr' => 
+[
+'Gujr',
+'Gujarati',
+],
+'guru' => 
+[
+'Guru',
+'Gurmukhi',
+],
+'hang' => 
+[
+'Hang',
+'Hangul',
+],
+'hani' => 
+[
+'Hani',
+'Han',
+],
+'hano' => 
+[
+'Hano',
+'Hanunoo',
+],
+'hatr' => 
+[
+'Hatr',
+'Hatran',
+],
+'hebr' => 
+[
+'Hebr',
+'Hebrew',
+],
+'hira' => 
+[
+'Hira',
+'Hiragana',
+],
+'hluw' => 
+[
+'Hluw',
+'Anatolian_Hieroglyphs',
+],
+'hmng' => 
+[
+'Hmng',
+'Pahawh_Hmong',
+],
+'hrkt' => 
+[
+'Hrkt',
+'Katakana_Or_Hiragana',
+],
+'hung' => 
+[
+'Hung',
+'Old_Hungarian',
+],
+'ital' => 
+[
+'Ital',
+'Old_Italic',
+],
+'java' => 
+[
+'Java',
+'Javanese',
+],
+'kali' => 
+[
+'Kali',
+'Kayah_Li',
+],
+'kana' => 
+[
+'Kana',
+'Katakana',
+],
+'khar' => 
+[
+'Khar',
+'Kharoshthi',
+],
+'khmr' => 
+[
+'Khmr',
+'Khmer',
+],
+'khoj' => 
+[
+'Khoj',
+'Khojki',
+],
+'knda' => 
+[
+'Knda',
+'Kannada',
+],
+'kthi' => 
+[
+'Kthi',
+'Kaithi',
+],
+'lana' => 
+[
+'Lana',
+'Tai_Tham',
+],
+'laoo' => 
+[
+'Laoo',
+'Lao',
+],
+'latn' => 
+[
+'Latn',
+'Latin',
+],
+'lepc' => 
+[
+'Lepc',
+'Lepcha',
+],
+'limb' => 
+[
+'Limb',
+'Limbu',
+],
+'lina' => 
+[
+'Lina',
+'Linear_A',
+],
+'linb' => 
+[
+'Linb',
+'Linear_B',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lyci' => 
+[
+'Lyci',
+'Lycian',
+],
+'lydi' => 
+[
+'Lydi',
+'Lydian',
+],
+'mahj' => 
+[
+'Mahj',
+'Mahajani',
+],
+'mand' => 
+[
+'Mand',
+'Mandaic',
+],
+'mani' => 
+[
+'Mani',
+'Manichaean',
+],
+'marc' => 
+[
+'Marc',
+'Marchen',
+],
+'mend' => 
+[
+'Mend',
+'Mende_Kikakui',
+],
+'merc' => 
+[
+'Merc',
+'Meroitic_Cursive',
+],
+'mero' => 
+[
+'Mero',
+'Meroitic_Hieroglyphs',
+],
+'mlym' => 
+[
+'Mlym',
+'Malayalam',
+],
+'modi' => 
+[
+'Modi',
+],
+'mong' => 
+[
+'Mong',
+'Mongolian',
+],
+'mroo' => 
+[
+'Mroo',
+'Mro',
+],
+'mtei' => 
+[
+'Mtei',
+'Meetei_Mayek',
+],
+'mult' => 
+[
+'Mult',
+'Multani',
+],
+'mymr' => 
+[
+'Mymr',
+'Myanmar',
+],
+'narb' => 
+[
+'Narb',
+'Old_North_Arabian',
+],
+'nbat' => 
+[
+'Nbat',
+'Nabataean',
+],
+'newa' => 
+[
+'Newa',
+],
+'nkoo' => 
+[
+'Nkoo',
+'Nko',
+],
+'nshu' => 
+[
+'Nshu',
+'Nushu',
+],
+'ogam' => 
+[
+'Ogam',
+'Ogham',
+],
+'olck' => 
+[
+'Olck',
+'Ol_Chiki',
+],
+'orkh' => 
+[
+'Orkh',
+'Old_Turkic',
+],
+'orya' => 
+[
+'Orya',
+'Oriya',
+],
+'osge' => 
+[
+'Osge',
+'Osage',
+],
+'osma' => 
+[
+'Osma',
+'Osmanya',
+],
+'palm' => 
+[
+'Palm',
+'Palmyrene',
+],
+'pauc' => 
+[
+'Pauc',
+'Pau_Cin_Hau',
+],
+'perm' => 
+[
+'Perm',
+'Old_Permic',
+],
+'phag' => 
+[
+'Phag',
+'Phags_Pa',
+],
+'phli' => 
+[
+'Phli',
+'Inscriptional_Pahlavi',
+],
+'phlp' => 
+[
+'Phlp',
+'Psalter_Pahlavi',
+],
+'phnx' => 
+[
+'Phnx',
+'Phoenician',
+],
+'plrd' => 
+[
+'Plrd',
+'Miao',
+],
+'prti' => 
+[
+'Prti',
+'Inscriptional_Parthian',
+],
+'rjng' => 
+[
+'Rjng',
+'Rejang',
+],
+'runr' => 
+[
+'Runr',
+'Runic',
+],
+'samr' => 
+[
+'Samr',
+'Samaritan',
+],
+'sarb' => 
+[
+'Sarb',
+'Old_South_Arabian',
+],
+'saur' => 
+[
+'Saur',
+'Saurashtra',
+],
+'sgnw' => 
+[
+'Sgnw',
+'SignWriting',
+],
+'shaw' => 
+[
+'Shaw',
+'Shavian',
+],
+'shrd' => 
+[
+'Shrd',
+'Sharada',
+],
+'sidd' => 
+[
+'Sidd',
+'Siddham',
+],
+'sind' => 
+[
+'Sind',
+'Khudawadi',
+],
+'sinh' => 
+[
+'Sinh',
+'Sinhala',
+],
+'sora' => 
+[
+'Sora',
+'Sora_Sompeng',
+],
+'soyo' => 
+[
+'Soyo',
+'Soyombo',
+],
+'sund' => 
+[
+'Sund',
+'Sundanese',
+],
+'sylo' => 
+[
+'Sylo',
+'Syloti_Nagri',
+],
+'syrc' => 
+[
+'Syrc',
+'Syriac',
+],
+'tagb' => 
+[
+'Tagb',
+'Tagbanwa',
+],
+'takr' => 
+[
+'Takr',
+'Takri',
+],
+'tale' => 
+[
+'Tale',
+'Tai_Le',
+],
+'talu' => 
+[
+'Talu',
+'New_Tai_Lue',
+],
+'taml' => 
+[
+'Taml',
+'Tamil',
+],
+'tang' => 
+[
+'Tang',
+'Tangut',
+],
+'tavt' => 
+[
+'Tavt',
+'Tai_Viet',
+],
+'telu' => 
+[
+'Telu',
+'Telugu',
+],
+'tfng' => 
+[
+'Tfng',
+'Tifinagh',
+],
+'tglg' => 
+[
+'Tglg',
+'Tagalog',
+],
+'thaa' => 
+[
+'Thaa',
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibt' => 
+[
+'Tibt',
+'Tibetan',
+],
+'tirh' => 
+[
+'Tirh',
+'Tirhuta',
+],
+'ugar' => 
+[
+'Ugar',
+'Ugaritic',
+],
+'vaii' => 
+[
+'Vaii',
+'Vai',
+],
+'wara' => 
+[
+'Wara',
+'Warang_Citi',
+],
+'xpeo' => 
+[
+'Xpeo',
+'Old_Persian',
+],
+'xsux' => 
+[
+'Xsux',
+'Cuneiform',
+],
+'yiii' => 
+[
+'Yiii',
+'Yi',
+],
+'zanb' => 
+[
+'Zanb',
+'Zanabazar_Square',
+],
+'zinh' => 
+[
+'Zinh',
+'Inherited',
+'Qaai',
+],
+'zyyy' => 
+[
+'Zyyy',
+'Common',
+],
+'zzzz' => 
+[
+'Zzzz',
+'Unknown',
+],
+},
+'sd' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'sterm' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'term' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'uideo' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'upper' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'vo' => 
+{
+'r' => 
+[
+'R',
+'Rotated',
+],
+'tr' => 
+[
+'Tr',
+'Transformed_Rotated',
+],
+'tu' => 
+[
+'Tu',
+'Transformed_Upright',
+],
+'u' => 
+[
+'U',
+'Upright',
+],
+},
+'vs' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'wb' => 
+{
+'cr' => 
+[
+'CR',
+],
+'dq' => 
+[
+'DQ',
+'Double_Quote',
+],
+'eb' => 
+[
+'EB',
+'E_Base',
+],
+'ebg' => 
+[
+'EBG',
+'E_Base_GAZ',
+],
+'em' => 
+[
+'EM',
+'E_Modifier',
+],
+'ex' => 
+[
+'EX',
+'ExtendNumLet',
+],
+'extend' => 
+[
+'Extend',
+],
+'fo' => 
+[
+'FO',
+'Format',
+],
+'gaz' => 
+[
+'GAZ',
+'Glue_After_Zwj',
+],
+'hl' => 
+[
+'HL',
+'Hebrew_Letter',
+],
+'ka' => 
+[
+'KA',
+'Katakana',
+],
+'le' => 
+[
+'LE',
+'ALetter',
+],
+'lf' => 
+[
+'LF',
+],
+'mb' => 
+[
+'MB',
+'MidNumLet',
+],
+'ml' => 
+[
+'ML',
+'MidLetter',
+],
+'mn' => 
+[
+'MN',
+'MidNum',
+],
+'nl' => 
+[
+'NL',
+'Newline',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sq' => 
+[
+'SQ',
+'Single_Quote',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+'zwj' => 
+[
+'ZWJ',
+],
+},
+'wspace' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'xidc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'xids' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+);
+
+# Ordered (by code point ordinal) list of the ranges of code points whose
+# names are algorithmically determined.  Each range entry is an anonymous hash
+# of the start and end points and a template for the names within it.
+@Unicode::UCD::algorithmic_named_code_points = (
+
+{
+'high' => 19893,
+'low' => 13312,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 40938,
+'low' => 19968,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 55203,
+'low' => 44032,
+'name' => '<hangul syllable>',
+},
+{
+'high' => 64109,
+'low' => 63744,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+{
+'high' => 64217,
+'low' => 64112,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+{
+'high' => 100332,
+'low' => 94208,
+'name' => 'TANGUT IDEOGRAPH-<code point>',
+},
+{
+'high' => 111355,
+'low' => 110960,
+'name' => 'NUSHU CHARACTER-<code point>',
+},
+{
+'high' => 173782,
+'low' => 131072,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 177972,
+'low' => 173824,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 178205,
+'low' => 177984,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 183969,
+'low' => 178208,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 191456,
+'low' => 183984,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 195101,
+'low' => 194560,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+,
+);
+
+# The properties that as-is have two meanings, and which must be disambiguated
+%Unicode::UCD::ambiguous_names = (
+'cf' => 1,
+'isc' => 1,
+'lc' => 1,
+'sc' => 1,
+);
+
+# Keys are the prop-val combinations which are the default values for the
+# given property, expressed in standard loose form
+%Unicode::UCD::loose_defaults = (
+'age=na' => 1,
+'age=unassigned' => 1,
+'ahex=f' => 1,
+'ahex=false' => 1,
+'ahex=n' => 1,
+'ahex=no' => 1,
+'alpha=f' => 1,
+'alpha=false' => 1,
+'alpha=n' => 1,
+'alpha=no' => 1,
+'bc=l' => 1,
+'bc=lefttoright' => 1,
+'bidic=f' => 1,
+'bidic=false' => 1,
+'bidic=n' => 1,
+'bidic=no' => 1,
+'bidim=f' => 1,
+'bidim=false' => 1,
+'bidim=n' => 1,
+'bidim=no' => 1,
+'blk=nb' => 1,
+'blk=noblock' => 1,
+'bpt=n' => 1,
+'bpt=none' => 1,
+'cased=f' => 1,
+'cased=false' => 1,
+'cased=n' => 1,
+'cased=no' => 1,
+'ccc=0' => 1,
+'ccc=notreordered' => 1,
+'ccc=nr' => 1,
+'ce=f' => 1,
+'ce=false' => 1,
+'ce=n' => 1,
+'ce=no' => 1,
+'ci=f' => 1,
+'ci=false' => 1,
+'ci=n' => 1,
+'ci=no' => 1,
+'cn' => 1,
+'compex=f' => 1,
+'compex=false' => 1,
+'compex=n' => 1,
+'compex=no' => 1,
+'cwcf=f' => 1,
+'cwcf=false' => 1,
+'cwcf=n' => 1,
+'cwcf=no' => 1,
+'cwcm=f' => 1,
+'cwcm=false' => 1,
+'cwcm=n' => 1,
+'cwcm=no' => 1,
+'cwkcf=f' => 1,
+'cwkcf=false' => 1,
+'cwkcf=n' => 1,
+'cwkcf=no' => 1,
+'cwl=f' => 1,
+'cwl=false' => 1,
+'cwl=n' => 1,
+'cwl=no' => 1,
+'cwt=f' => 1,
+'cwt=false' => 1,
+'cwt=n' => 1,
+'cwt=no' => 1,
+'cwu=f' => 1,
+'cwu=false' => 1,
+'cwu=n' => 1,
+'cwu=no' => 1,
+'dash=f' => 1,
+'dash=false' => 1,
+'dash=n' => 1,
+'dash=no' => 1,
+'dep=f' => 1,
+'dep=false' => 1,
+'dep=n' => 1,
+'dep=no' => 1,
+'di=f' => 1,
+'di=false' => 1,
+'di=n' => 1,
+'di=no' => 1,
+'dia=f' => 1,
+'dia=false' => 1,
+'dia=n' => 1,
+'dia=no' => 1,
+'dt=none' => 1,
+'ea=n' => 1,
+'ea=neutral' => 1,
+'ext=f' => 1,
+'ext=false' => 1,
+'ext=n' => 1,
+'ext=no' => 1,
+'gc=cn' => 1,
+'gc=unassigned' => 1,
+'gcb=other' => 1,
+'gcb=xx' => 1,
+'grbase=f' => 1,
+'grbase=false' => 1,
+'grbase=n' => 1,
+'grbase=no' => 1,
+'grext=f' => 1,
+'grext=false' => 1,
+'grext=n' => 1,
+'grext=no' => 1,
+'hex=f' => 1,
+'hex=false' => 1,
+'hex=n' => 1,
+'hex=no' => 1,
+'hst=na' => 1,
+'hst=notapplicable' => 1,
+'hyphen=f' => 1,
+'hyphen=false' => 1,
+'hyphen=n' => 1,
+'hyphen=no' => 1,
+'idc=f' => 1,
+'idc=false' => 1,
+'idc=n' => 1,
+'idc=no' => 1,
+'ideo=f' => 1,
+'ideo=false' => 1,
+'ideo=n' => 1,
+'ideo=no' => 1,
+'ids=f' => 1,
+'ids=false' => 1,
+'ids=n' => 1,
+'ids=no' => 1,
+'idsb=f' => 1,
+'idsb=false' => 1,
+'idsb=n' => 1,
+'idsb=no' => 1,
+'idst=f' => 1,
+'idst=false' => 1,
+'idst=n' => 1,
+'idst=no' => 1,
+'in=unassigned' => 1,
+'innb' => 1,
+'innoblock' => 1,
+'inpc=na' => 1,
+'insc=other' => 1,
+'iscn' => 1,
+'isnb' => 1,
+'isnoblock' => 1,
+'isunassigned' => 1,
+'isunknown' => 1,
+'iszzzz' => 1,
+'jg=nojoininggroup' => 1,
+'joinc=f' => 1,
+'joinc=false' => 1,
+'joinc=n' => 1,
+'joinc=no' => 1,
+'jt=nonjoining' => 1,
+'jt=u' => 1,
+'lb=unknown' => 1,
+'lb=xx' => 1,
+'loe=f' => 1,
+'loe=false' => 1,
+'loe=n' => 1,
+'loe=no' => 1,
+'lower=f' => 1,
+'lower=false' => 1,
+'lower=n' => 1,
+'lower=no' => 1,
+'math=f' => 1,
+'math=false' => 1,
+'math=n' => 1,
+'math=no' => 1,
+'nb' => 1,
+'nchar=f' => 1,
+'nchar=false' => 1,
+'nchar=n' => 1,
+'nchar=no' => 1,
+'nfcqc=y' => 1,
+'nfcqc=yes' => 1,
+'nfdqc=y' => 1,
+'nfdqc=yes' => 1,
+'nfkcqc=y' => 1,
+'nfkcqc=yes' => 1,
+'nfkdqc=y' => 1,
+'nfkdqc=yes' => 1,
+'noblock' => 1,
+'nt=none' => 1,
+'nv=nan' => 1,
+'patsyn=f' => 1,
+'patsyn=false' => 1,
+'patsyn=n' => 1,
+'patsyn=no' => 1,
+'patws=f' => 1,
+'patws=false' => 1,
+'patws=n' => 1,
+'patws=no' => 1,
+'pcm=f' => 1,
+'pcm=false' => 1,
+'pcm=n' => 1,
+'pcm=no' => 1,
+'qmark=f' => 1,
+'qmark=false' => 1,
+'qmark=n' => 1,
+'qmark=no' => 1,
+'radical=f' => 1,
+'radical=false' => 1,
+'radical=n' => 1,
+'radical=no' => 1,
+'ri=f' => 1,
+'ri=false' => 1,
+'ri=n' => 1,
+'ri=no' => 1,
+'sb=other' => 1,
+'sb=xx' => 1,
+'sc=unknown' => 1,
+'sc=zzzz' => 1,
+'scx=unknown' => 1,
+'scx=zzzz' => 1,
+'sd=f' => 1,
+'sd=false' => 1,
+'sd=n' => 1,
+'sd=no' => 1,
+'sterm=f' => 1,
+'sterm=false' => 1,
+'sterm=n' => 1,
+'sterm=no' => 1,
+'term=f' => 1,
+'term=false' => 1,
+'term=n' => 1,
+'term=no' => 1,
+'uideo=f' => 1,
+'uideo=false' => 1,
+'uideo=n' => 1,
+'uideo=no' => 1,
+'unassigned' => 1,
+'unknown' => 1,
+'upper=f' => 1,
+'upper=false' => 1,
+'upper=n' => 1,
+'upper=no' => 1,
+'vo=r' => 1,
+'vo=rotated' => 1,
+'vs=f' => 1,
+'vs=false' => 1,
+'vs=n' => 1,
+'vs=no' => 1,
+'wb=other' => 1,
+'wb=xx' => 1,
+'wspace=f' => 1,
+'wspace=false' => 1,
+'wspace=n' => 1,
+'wspace=no' => 1,
+'xidc=f' => 1,
+'xidc=false' => 1,
+'xidc=n' => 1,
+'xidc=no' => 1,
+'xids=f' => 1,
+'xids=false' => 1,
+'xids=n' => 1,
+'xids=no' => 1,
+'zzzz' => 1,
+);
+
+# The properties that are combinations, in that they have both a map table and
+# a match table.  This is actually for UCD.t, so it knows how to test for
+# these.
+%Unicode::UCD::combination_property = (
+
+);
+
+# All combinations of names that are suppressed.
+# This is actually for UCD.t, so it knows which properties shouldn't have
+# entries.  If it got any bigger, would probably want to put it in its own
+# file to use memory only when it was needed, in testing.
+@Unicode::UCD::suppressed_properties = (
+
+'cjkaccountingnumeric',
+'cjkcompatibilityvariant',
+'cjkiicore',
+'cjkirggsource',
+'cjkirghsource',
+'cjkirgjsource',
+'cjkirgkpsource',
+'cjkirgksource',
+'cjkirgmsource',
+'cjkirgtsource',
+'cjkirgusource',
+'cjkirgvsource',
+'cjkothernumeric',
+'cjkprimarynumeric',
+'cjkrsunicode',
+'expandsonnfc',
+'expandsonnfd',
+'expandsonnfkc',
+'expandsonnfkd',
+'fcnfkc',
+'fcnfkcclosure',
+'graphemelink',
+'grlink',
+'jamoshortname',
+'jsn',
+'kaccountingnumeric',
+'kcompatibilityvariant',
+'kiicore',
+'kirggsource',
+'kirghsource',
+'kirgjsource',
+'kirgkpsource',
+'kirgksource',
+'kirgmsource',
+'kirgtsource',
+'kirgusource',
+'kirgvsource',
+'kothernumeric',
+'kprimarynumeric',
+'krsunicode',
+'oalpha',
+'odi',
+'ogrext',
+'oidc',
+'oids',
+'olower',
+'omath',
+'otheralphabetic',
+'otherdefaultignorablecodepoint',
+'othergraphemeextend',
+'otheridcontinue',
+'otheridstart',
+'otherlowercase',
+'othermath',
+'otheruppercase',
+'oupper',
+'sc=hrkt',
+'sc=katakanaorhiragana',
+'script=hrkt',
+'script=katakanaorhiragana',
+'scriptextensions=hrkt',
+'scriptextensions=katakanaorhiragana',
+'scx=hrkt',
+'scx=katakanaorhiragana',
+'unicoderadicalstroke',
+'urs',
+'xonfc',
+'xonfd',
+'xonfkc',
+'xonfkd',
+,
+);
+
+1;
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+00000	NULL
+00000	NUL
+00001	START OF HEADING
+00001	SOH
+00002	START OF TEXT
+00002	STX
+00003	END OF TEXT
+00003	ETX
+00004	END OF TRANSMISSION
+00004	EOT
+00005	ENQUIRY
+00005	ENQ
+00006	ACKNOWLEDGE
+00006	ACK
+00007	ALERT
+00007	BEL
+00008	BACKSPACE
+00008	BS
+00009	CHARACTER TABULATION
+00009	HORIZONTAL TABULATION
+00009	HT
+00009	TAB
+0000A	LINE FEED
+0000A	NEW LINE
+0000A	END OF LINE
+0000A	LINE FEED (LF)
+0000A	EOL
+0000A	LF
+0000A	NL
+0000B	LINE TABULATION
+0000B	VERTICAL TABULATION
+0000B	VT
+0000C	FORM FEED
+0000C	FORM FEED (FF)
+0000C	FF
+0000D	CARRIAGE RETURN
+0000D	CARRIAGE RETURN (CR)
+0000D	CR
+0000E	SHIFT OUT
+0000E	LOCKING-SHIFT ONE
+0000E	SO
+0000F	SHIFT IN
+0000F	LOCKING-SHIFT ZERO
+0000F	SI
+00010	DATA LINK ESCAPE
+00010	DLE
+00011	DEVICE CONTROL ONE
+00011	DC1
+00012	DEVICE CONTROL TWO
+00012	DC2
+00013	DEVICE CONTROL THREE
+00013	DC3
+00014	DEVICE CONTROL FOUR
+00014	DC4
+00015	NEGATIVE ACKNOWLEDGE
+00015	NAK
+00016	SYNCHRONOUS IDLE
+00016	SYN
+00017	END OF TRANSMISSION BLOCK
+00017	ETB
+00018	CANCEL
+00018	CAN
+00019	END OF MEDIUM
+00019	EOM
+0001A	SUBSTITUTE
+0001A	SUB
+0001B	ESCAPE
+0001B	ESC
+0001C	INFORMATION SEPARATOR FOUR
+0001C	FILE SEPARATOR
+0001C	FS
+0001D	INFORMATION SEPARATOR THREE
+0001D	GROUP SEPARATOR
+0001D	GS
+0001E	INFORMATION SEPARATOR TWO
+0001E	RECORD SEPARATOR
+0001E	RS
+0001F	INFORMATION SEPARATOR ONE
+0001F	UNIT SEPARATOR
+0001F	US
+00020	SPACE
+00020	SP
+00021	EXCLAMATION MARK
+00022	QUOTATION MARK
+00023	NUMBER SIGN
+00024	DOLLAR SIGN
+00025	PERCENT SIGN
+00026	AMPERSAND
+00027	APOSTROPHE
+00028	LEFT PARENTHESIS
+00029	RIGHT PARENTHESIS
+0002A	ASTERISK
+0002B	PLUS SIGN
+0002C	COMMA
+0002D	HYPHEN-MINUS
+0002E	FULL STOP
+0002F	SOLIDUS
+00030	DIGIT ZERO
+00031	DIGIT ONE
+00032	DIGIT TWO
+00033	DIGIT THREE
+00034	DIGIT FOUR
+00035	DIGIT FIVE
+00036	DIGIT SIX
+00037	DIGIT SEVEN
+00038	DIGIT EIGHT
+00039	DIGIT NINE
+0003A	COLON
+0003B	SEMICOLON
+0003C	LESS-THAN SIGN
+0003D	EQUALS SIGN
+0003E	GREATER-THAN SIGN
+0003F	QUESTION MARK
+00040	COMMERCIAL AT
+00041	LATIN CAPITAL LETTER A
+00042	LATIN CAPITAL LETTER B
+00043	LATIN CAPITAL LETTER C
+00044	LATIN CAPITAL LETTER D
+00045	LATIN CAPITAL LETTER E
+00046	LATIN CAPITAL LETTER F
+00047	LATIN CAPITAL LETTER G
+00048	LATIN CAPITAL LETTER H
+00049	LATIN CAPITAL LETTER I
+0004A	LATIN CAPITAL LETTER J
+0004B	LATIN CAPITAL LETTER K
+0004C	LATIN CAPITAL LETTER L
+0004D	LATIN CAPITAL LETTER M
+0004E	LATIN CAPITAL LETTER N
+0004F	LATIN CAPITAL LETTER O
+00050	LATIN CAPITAL LETTER P
+00051	LATIN CAPITAL LETTER Q
+00052	LATIN CAPITAL LETTER R
+00053	LATIN CAPITAL LETTER S
+00054	LATIN CAPITAL LETTER T
+00055	LATIN CAPITAL LETTER U
+00056	LATIN CAPITAL LETTER V
+00057	LATIN CAPITAL LETTER W
+00058	LATIN CAPITAL LETTER X
+00059	LATIN CAPITAL LETTER Y
+0005A	LATIN CAPITAL LETTER Z
+0005B	LEFT SQUARE BRACKET
+0005C	REVERSE SOLIDUS
+0005D	RIGHT SQUARE BRACKET
+0005E	CIRCUMFLEX ACCENT
+0005F	LOW LINE
+00060	GRAVE ACCENT
+00061	LATIN SMALL LETTER A
+00062	LATIN SMALL LETTER B
+00063	LATIN SMALL LETTER C
+00064	LATIN SMALL LETTER D
+00065	LATIN SMALL LETTER E
+00066	LATIN SMALL LETTER F
+00067	LATIN SMALL LETTER G
+00068	LATIN SMALL LETTER H
+00069	LATIN SMALL LETTER I
+0006A	LATIN SMALL LETTER J
+0006B	LATIN SMALL LETTER K
+0006C	LATIN SMALL LETTER L
+0006D	LATIN SMALL LETTER M
+0006E	LATIN SMALL LETTER N
+0006F	LATIN SMALL LETTER O
+00070	LATIN SMALL LETTER P
+00071	LATIN SMALL LETTER Q
+00072	LATIN SMALL LETTER R
+00073	LATIN SMALL LETTER S
+00074	LATIN SMALL LETTER T
+00075	LATIN SMALL LETTER U
+00076	LATIN SMALL LETTER V
+00077	LATIN SMALL LETTER W
+00078	LATIN SMALL LETTER X
+00079	LATIN SMALL LETTER Y
+0007A	LATIN SMALL LETTER Z
+0007B	LEFT CURLY BRACKET
+0007C	VERTICAL LINE
+0007D	RIGHT CURLY BRACKET
+0007E	TILDE
+0007F	DELETE
+0007F	DEL
+00080	PADDING CHARACTER
+00080	PAD
+00081	HIGH OCTET PRESET
+00081	HOP
+00082	BREAK PERMITTED HERE
+00082	BPH
+00083	NO BREAK HERE
+00083	NBH
+00084	INDEX
+00084	IND
+00085	NEXT LINE
+00085	NEXT LINE (NEL)
+00085	NEL
+00086	START OF SELECTED AREA
+00086	SSA
+00087	END OF SELECTED AREA
+00087	ESA
+00088	CHARACTER TABULATION SET
+00088	HORIZONTAL TABULATION SET
+00088	HTS
+00089	CHARACTER TABULATION WITH JUSTIFICATION
+00089	HORIZONTAL TABULATION WITH JUSTIFICATION
+00089	HTJ
+0008A	LINE TABULATION SET
+0008A	VERTICAL TABULATION SET
+0008A	VTS
+0008B	PARTIAL LINE FORWARD
+0008B	PARTIAL LINE DOWN
+0008B	PLD
+0008C	PARTIAL LINE BACKWARD
+0008C	PARTIAL LINE UP
+0008C	PLU
+0008D	REVERSE LINE FEED
+0008D	REVERSE INDEX
+0008D	RI
+0008E	SINGLE SHIFT TWO
+0008E	SINGLE-SHIFT-2
+0008E	SS2
+0008F	SINGLE SHIFT THREE
+0008F	SINGLE-SHIFT-3
+0008F	SS3
+00090	DEVICE CONTROL STRING
+00090	DCS
+00091	PRIVATE USE ONE
+00091	PRIVATE USE-1
+00091	PU1
+00092	PRIVATE USE TWO
+00092	PRIVATE USE-2
+00092	PU2
+00093	SET TRANSMIT STATE
+00093	STS
+00094	CANCEL CHARACTER
+00094	CCH
+00095	MESSAGE WAITING
+00095	MW
+00096	START OF GUARDED AREA
+00096	START OF PROTECTED AREA
+00096	SPA
+00097	END OF GUARDED AREA
+00097	END OF PROTECTED AREA
+00097	EPA
+00098	START OF STRING
+00098	SOS
+00099	SINGLE GRAPHIC CHARACTER INTRODUCER
+00099	SGC
+0009A	SINGLE CHARACTER INTRODUCER
+0009A	SCI
+0009B	CONTROL SEQUENCE INTRODUCER
+0009B	CSI
+0009C	STRING TERMINATOR
+0009C	ST
+0009D	OPERATING SYSTEM COMMAND
+0009D	OSC
+0009E	PRIVACY MESSAGE
+0009E	PM
+0009F	APPLICATION PROGRAM COMMAND
+0009F	APC
+000A0	NO-BREAK SPACE
+000A0	NBSP
+000A1	INVERTED EXCLAMATION MARK
+000A2	CENT SIGN
+000A3	POUND SIGN
+000A4	CURRENCY SIGN
+000A5	YEN SIGN
+000A6	BROKEN BAR
+000A7	SECTION SIGN
+000A8	DIAERESIS
+000A9	COPYRIGHT SIGN
+000AA	FEMININE ORDINAL INDICATOR
+000AB	LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+000AC	NOT SIGN
+000AD	SOFT HYPHEN
+000AD	SHY
+000AE	REGISTERED SIGN
+000AF	MACRON
+000B0	DEGREE SIGN
+000B1	PLUS-MINUS SIGN
+000B2	SUPERSCRIPT TWO
+000B3	SUPERSCRIPT THREE
+000B4	ACUTE ACCENT
+000B5	MICRO SIGN
+000B6	PILCROW SIGN
+000B7	MIDDLE DOT
+000B8	CEDILLA
+000B9	SUPERSCRIPT ONE
+000BA	MASCULINE ORDINAL INDICATOR
+000BB	RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+000BC	VULGAR FRACTION ONE QUARTER
+000BD	VULGAR FRACTION ONE HALF
+000BE	VULGAR FRACTION THREE QUARTERS
+000BF	INVERTED QUESTION MARK
+000C0	LATIN CAPITAL LETTER A WITH GRAVE
+000C1	LATIN CAPITAL LETTER A WITH ACUTE
+000C2	LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+000C3	LATIN CAPITAL LETTER A WITH TILDE
+000C4	LATIN CAPITAL LETTER A WITH DIAERESIS
+000C5	LATIN CAPITAL LETTER A WITH RING ABOVE
+000C6	LATIN CAPITAL LETTER AE
+000C7	LATIN CAPITAL LETTER C WITH CEDILLA
+000C8	LATIN CAPITAL LETTER E WITH GRAVE
+000C9	LATIN CAPITAL LETTER E WITH ACUTE
+000CA	LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+000CB	LATIN CAPITAL LETTER E WITH DIAERESIS
+000CC	LATIN CAPITAL LETTER I WITH GRAVE
+000CD	LATIN CAPITAL LETTER I WITH ACUTE
+000CE	LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+000CF	LATIN CAPITAL LETTER I WITH DIAERESIS
+000D0	LATIN CAPITAL LETTER ETH
+000D1	LATIN CAPITAL LETTER N WITH TILDE
+000D2	LATIN CAPITAL LETTER O WITH GRAVE
+000D3	LATIN CAPITAL LETTER O WITH ACUTE
+000D4	LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+000D5	LATIN CAPITAL LETTER O WITH TILDE
+000D6	LATIN CAPITAL LETTER O WITH DIAERESIS
+000D7	MULTIPLICATION SIGN
+000D8	LATIN CAPITAL LETTER O WITH STROKE
+000D9	LATIN CAPITAL LETTER U WITH GRAVE
+000DA	LATIN CAPITAL LETTER U WITH ACUTE
+000DB	LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+000DC	LATIN CAPITAL LETTER U WITH DIAERESIS
+000DD	LATIN CAPITAL LETTER Y WITH ACUTE
+000DE	LATIN CAPITAL LETTER THORN
+000DF	LATIN SMALL LETTER SHARP S
+000E0	LATIN SMALL LETTER A WITH GRAVE
+000E1	LATIN SMALL LETTER A WITH ACUTE
+000E2	LATIN SMALL LETTER A WITH CIRCUMFLEX
+000E3	LATIN SMALL LETTER A WITH TILDE
+000E4	LATIN SMALL LETTER A WITH DIAERESIS
+000E5	LATIN SMALL LETTER A WITH RING ABOVE
+000E6	LATIN SMALL LETTER AE
+000E7	LATIN SMALL LETTER C WITH CEDILLA
+000E8	LATIN SMALL LETTER E WITH GRAVE
+000E9	LATIN SMALL LETTER E WITH ACUTE
+000EA	LATIN SMALL LETTER E WITH CIRCUMFLEX
+000EB	LATIN SMALL LETTER E WITH DIAERESIS
+000EC	LATIN SMALL LETTER I WITH GRAVE
+000ED	LATIN SMALL LETTER I WITH ACUTE
+000EE	LATIN SMALL LETTER I WITH CIRCUMFLEX
+000EF	LATIN SMALL LETTER I WITH DIAERESIS
+000F0	LATIN SMALL LETTER ETH
+000F1	LATIN SMALL LETTER N WITH TILDE
+000F2	LATIN SMALL LETTER O WITH GRAVE
+000F3	LATIN SMALL LETTER O WITH ACUTE
+000F4	LATIN SMALL LETTER O WITH CIRCUMFLEX
+000F5	LATIN SMALL LETTER O WITH TILDE
+000F6	LATIN SMALL LETTER O WITH DIAERESIS
+000F7	DIVISION SIGN
+000F8	LATIN SMALL LETTER O WITH STROKE
+000F9	LATIN SMALL LETTER U WITH GRAVE
+000FA	LATIN SMALL LETTER U WITH ACUTE
+000FB	LATIN SMALL LETTER U WITH CIRCUMFLEX
+000FC	LATIN SMALL LETTER U WITH DIAERESIS
+000FD	LATIN SMALL LETTER Y WITH ACUTE
+000FE	LATIN SMALL LETTER THORN
+000FF	LATIN SMALL LETTER Y WITH DIAERESIS
+00100	LATIN CAPITAL LETTER A WITH MACRON
+00101	LATIN SMALL LETTER A WITH MACRON
+00102	LATIN CAPITAL LETTER A WITH BREVE
+00103	LATIN SMALL LETTER A WITH BREVE
+00104	LATIN CAPITAL LETTER A WITH OGONEK
+00105	LATIN SMALL LETTER A WITH OGONEK
+00106	LATIN CAPITAL LETTER C WITH ACUTE
+00107	LATIN SMALL LETTER C WITH ACUTE
+00108	LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+00109	LATIN SMALL LETTER C WITH CIRCUMFLEX
+0010A	LATIN CAPITAL LETTER C WITH DOT ABOVE
+0010B	LATIN SMALL LETTER C WITH DOT ABOVE
+0010C	LATIN CAPITAL LETTER C WITH CARON
+0010D	LATIN SMALL LETTER C WITH CARON
+0010E	LATIN CAPITAL LETTER D WITH CARON
+0010F	LATIN SMALL LETTER D WITH CARON
+00110	LATIN CAPITAL LETTER D WITH STROKE
+00111	LATIN SMALL LETTER D WITH STROKE
+00112	LATIN CAPITAL LETTER E WITH MACRON
+00113	LATIN SMALL LETTER E WITH MACRON
+00114	LATIN CAPITAL LETTER E WITH BREVE
+00115	LATIN SMALL LETTER E WITH BREVE
+00116	LATIN CAPITAL LETTER E WITH DOT ABOVE
+00117	LATIN SMALL LETTER E WITH DOT ABOVE
+00118	LATIN CAPITAL LETTER E WITH OGONEK
+00119	LATIN SMALL LETTER E WITH OGONEK
+0011A	LATIN CAPITAL LETTER E WITH CARON
+0011B	LATIN SMALL LETTER E WITH CARON
+0011C	LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+0011D	LATIN SMALL LETTER G WITH CIRCUMFLEX
+0011E	LATIN CAPITAL LETTER G WITH BREVE
+0011F	LATIN SMALL LETTER G WITH BREVE
+00120	LATIN CAPITAL LETTER G WITH DOT ABOVE
+00121	LATIN SMALL LETTER G WITH DOT ABOVE
+00122	LATIN CAPITAL LETTER G WITH CEDILLA
+00123	LATIN SMALL LETTER G WITH CEDILLA
+00124	LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+00125	LATIN SMALL LETTER H WITH CIRCUMFLEX
+00126	LATIN CAPITAL LETTER H WITH STROKE
+00127	LATIN SMALL LETTER H WITH STROKE
+00128	LATIN CAPITAL LETTER I WITH TILDE
+00129	LATIN SMALL LETTER I WITH TILDE
+0012A	LATIN CAPITAL LETTER I WITH MACRON
+0012B	LATIN SMALL LETTER I WITH MACRON
+0012C	LATIN CAPITAL LETTER I WITH BREVE
+0012D	LATIN SMALL LETTER I WITH BREVE
+0012E	LATIN CAPITAL LETTER I WITH OGONEK
+0012F	LATIN SMALL LETTER I WITH OGONEK
+00130	LATIN CAPITAL LETTER I WITH DOT ABOVE
+00131	LATIN SMALL LETTER DOTLESS I
+00132	LATIN CAPITAL LIGATURE IJ
+00133	LATIN SMALL LIGATURE IJ
+00134	LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+00135	LATIN SMALL LETTER J WITH CIRCUMFLEX
+00136	LATIN CAPITAL LETTER K WITH CEDILLA
+00137	LATIN SMALL LETTER K WITH CEDILLA
+00138	LATIN SMALL LETTER KRA
+00139	LATIN CAPITAL LETTER L WITH ACUTE
+0013A	LATIN SMALL LETTER L WITH ACUTE
+0013B	LATIN CAPITAL LETTER L WITH CEDILLA
+0013C	LATIN SMALL LETTER L WITH CEDILLA
+0013D	LATIN CAPITAL LETTER L WITH CARON
+0013E	LATIN SMALL LETTER L WITH CARON
+0013F	LATIN CAPITAL LETTER L WITH MIDDLE DOT
+00140	LATIN SMALL LETTER L WITH MIDDLE DOT
+00141	LATIN CAPITAL LETTER L WITH STROKE
+00142	LATIN SMALL LETTER L WITH STROKE
+00143	LATIN CAPITAL LETTER N WITH ACUTE
+00144	LATIN SMALL LETTER N WITH ACUTE
+00145	LATIN CAPITAL LETTER N WITH CEDILLA
+00146	LATIN SMALL LETTER N WITH CEDILLA
+00147	LATIN CAPITAL LETTER N WITH CARON
+00148	LATIN SMALL LETTER N WITH CARON
+00149	LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+0014A	LATIN CAPITAL LETTER ENG
+0014B	LATIN SMALL LETTER ENG
+0014C	LATIN CAPITAL LETTER O WITH MACRON
+0014D	LATIN SMALL LETTER O WITH MACRON
+0014E	LATIN CAPITAL LETTER O WITH BREVE
+0014F	LATIN SMALL LETTER O WITH BREVE
+00150	LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+00151	LATIN SMALL LETTER O WITH DOUBLE ACUTE
+00152	LATIN CAPITAL LIGATURE OE
+00153	LATIN SMALL LIGATURE OE
+00154	LATIN CAPITAL LETTER R WITH ACUTE
+00155	LATIN SMALL LETTER R WITH ACUTE
+00156	LATIN CAPITAL LETTER R WITH CEDILLA
+00157	LATIN SMALL LETTER R WITH CEDILLA
+00158	LATIN CAPITAL LETTER R WITH CARON
+00159	LATIN SMALL LETTER R WITH CARON
+0015A	LATIN CAPITAL LETTER S WITH ACUTE
+0015B	LATIN SMALL LETTER S WITH ACUTE
+0015C	LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+0015D	LATIN SMALL LETTER S WITH CIRCUMFLEX
+0015E	LATIN CAPITAL LETTER S WITH CEDILLA
+0015F	LATIN SMALL LETTER S WITH CEDILLA
+00160	LATIN CAPITAL LETTER S WITH CARON
+00161	LATIN SMALL LETTER S WITH CARON
+00162	LATIN CAPITAL LETTER T WITH CEDILLA
+00163	LATIN SMALL LETTER T WITH CEDILLA
+00164	LATIN CAPITAL LETTER T WITH CARON
+00165	LATIN SMALL LETTER T WITH CARON
+00166	LATIN CAPITAL LETTER T WITH STROKE
+00167	LATIN SMALL LETTER T WITH STROKE
+00168	LATIN CAPITAL LETTER U WITH TILDE
+00169	LATIN SMALL LETTER U WITH TILDE
+0016A	LATIN CAPITAL LETTER U WITH MACRON
+0016B	LATIN SMALL LETTER U WITH MACRON
+0016C	LATIN CAPITAL LETTER U WITH BREVE
+0016D	LATIN SMALL LETTER U WITH BREVE
+0016E	LATIN CAPITAL LETTER U WITH RING ABOVE
+0016F	LATIN SMALL LETTER U WITH RING ABOVE
+00170	LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00171	LATIN SMALL LETTER U WITH DOUBLE ACUTE
+00172	LATIN CAPITAL LETTER U WITH OGONEK
+00173	LATIN SMALL LETTER U WITH OGONEK
+00174	LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+00175	LATIN SMALL LETTER W WITH CIRCUMFLEX
+00176	LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+00177	LATIN SMALL LETTER Y WITH CIRCUMFLEX
+00178	LATIN CAPITAL LETTER Y WITH DIAERESIS
+00179	LATIN CAPITAL LETTER Z WITH ACUTE
+0017A	LATIN SMALL LETTER Z WITH ACUTE
+0017B	LATIN CAPITAL LETTER Z WITH DOT ABOVE
+0017C	LATIN SMALL LETTER Z WITH DOT ABOVE
+0017D	LATIN CAPITAL LETTER Z WITH CARON
+0017E	LATIN SMALL LETTER Z WITH CARON
+0017F	LATIN SMALL LETTER LONG S
+00180	LATIN SMALL LETTER B WITH STROKE
+00181	LATIN CAPITAL LETTER B WITH HOOK
+00182	LATIN CAPITAL LETTER B WITH TOPBAR
+00183	LATIN SMALL LETTER B WITH TOPBAR
+00184	LATIN CAPITAL LETTER TONE SIX
+00185	LATIN SMALL LETTER TONE SIX
+00186	LATIN CAPITAL LETTER OPEN O
+00187	LATIN CAPITAL LETTER C WITH HOOK
+00188	LATIN SMALL LETTER C WITH HOOK
+00189	LATIN CAPITAL LETTER AFRICAN D
+0018A	LATIN CAPITAL LETTER D WITH HOOK
+0018B	LATIN CAPITAL LETTER D WITH TOPBAR
+0018C	LATIN SMALL LETTER D WITH TOPBAR
+0018D	LATIN SMALL LETTER TURNED DELTA
+0018E	LATIN CAPITAL LETTER REVERSED E
+0018F	LATIN CAPITAL LETTER SCHWA
+00190	LATIN CAPITAL LETTER OPEN E
+00191	LATIN CAPITAL LETTER F WITH HOOK
+00192	LATIN SMALL LETTER F WITH HOOK
+00193	LATIN CAPITAL LETTER G WITH HOOK
+00194	LATIN CAPITAL LETTER GAMMA
+00195	LATIN SMALL LETTER HV
+00196	LATIN CAPITAL LETTER IOTA
+00197	LATIN CAPITAL LETTER I WITH STROKE
+00198	LATIN CAPITAL LETTER K WITH HOOK
+00199	LATIN SMALL LETTER K WITH HOOK
+0019A	LATIN SMALL LETTER L WITH BAR
+0019B	LATIN SMALL LETTER LAMBDA WITH STROKE
+0019C	LATIN CAPITAL LETTER TURNED M
+0019D	LATIN CAPITAL LETTER N WITH LEFT HOOK
+0019E	LATIN SMALL LETTER N WITH LONG RIGHT LEG
+0019F	LATIN CAPITAL LETTER O WITH MIDDLE TILDE
+001A0	LATIN CAPITAL LETTER O WITH HORN
+001A1	LATIN SMALL LETTER O WITH HORN
+001A2	LATIN CAPITAL LETTER GHA
+001A2	LATIN CAPITAL LETTER OI
+001A3	LATIN SMALL LETTER GHA
+001A3	LATIN SMALL LETTER OI
+001A4	LATIN CAPITAL LETTER P WITH HOOK
+001A5	LATIN SMALL LETTER P WITH HOOK
+001A6	LATIN LETTER YR
+001A7	LATIN CAPITAL LETTER TONE TWO
+001A8	LATIN SMALL LETTER TONE TWO
+001A9	LATIN CAPITAL LETTER ESH
+001AA	LATIN LETTER REVERSED ESH LOOP
+001AB	LATIN SMALL LETTER T WITH PALATAL HOOK
+001AC	LATIN CAPITAL LETTER T WITH HOOK
+001AD	LATIN SMALL LETTER T WITH HOOK
+001AE	LATIN CAPITAL LETTER T WITH RETROFLEX HOOK
+001AF	LATIN CAPITAL LETTER U WITH HORN
+001B0	LATIN SMALL LETTER U WITH HORN
+001B1	LATIN CAPITAL LETTER UPSILON
+001B2	LATIN CAPITAL LETTER V WITH HOOK
+001B3	LATIN CAPITAL LETTER Y WITH HOOK
+001B4	LATIN SMALL LETTER Y WITH HOOK
+001B5	LATIN CAPITAL LETTER Z WITH STROKE
+001B6	LATIN SMALL LETTER Z WITH STROKE
+001B7	LATIN CAPITAL LETTER EZH
+001B8	LATIN CAPITAL LETTER EZH REVERSED
+001B9	LATIN SMALL LETTER EZH REVERSED
+001BA	LATIN SMALL LETTER EZH WITH TAIL
+001BB	LATIN LETTER TWO WITH STROKE
+001BC	LATIN CAPITAL LETTER TONE FIVE
+001BD	LATIN SMALL LETTER TONE FIVE
+001BE	LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
+001BF	LATIN LETTER WYNN
+001C0	LATIN LETTER DENTAL CLICK
+001C1	LATIN LETTER LATERAL CLICK
+001C2	LATIN LETTER ALVEOLAR CLICK
+001C3	LATIN LETTER RETROFLEX CLICK
+001C4	LATIN CAPITAL LETTER DZ WITH CARON
+001C5	LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON
+001C6	LATIN SMALL LETTER DZ WITH CARON
+001C7	LATIN CAPITAL LETTER LJ
+001C8	LATIN CAPITAL LETTER L WITH SMALL LETTER J
+001C9	LATIN SMALL LETTER LJ
+001CA	LATIN CAPITAL LETTER NJ
+001CB	LATIN CAPITAL LETTER N WITH SMALL LETTER J
+001CC	LATIN SMALL LETTER NJ
+001CD	LATIN CAPITAL LETTER A WITH CARON
+001CE	LATIN SMALL LETTER A WITH CARON
+001CF	LATIN CAPITAL LETTER I WITH CARON
+001D0	LATIN SMALL LETTER I WITH CARON
+001D1	LATIN CAPITAL LETTER O WITH CARON
+001D2	LATIN SMALL LETTER O WITH CARON
+001D3	LATIN CAPITAL LETTER U WITH CARON
+001D4	LATIN SMALL LETTER U WITH CARON
+001D5	LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+001D6	LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+001D7	LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+001D8	LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+001D9	LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+001DA	LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+001DB	LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+001DC	LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+001DD	LATIN SMALL LETTER TURNED E
+001DE	LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+001DF	LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+001E0	LATIN CAPITAL LETTER A WITH DOT ABOVE AND MACRON
+001E1	LATIN SMALL LETTER A WITH DOT ABOVE AND MACRON
+001E2	LATIN CAPITAL LETTER AE WITH MACRON
+001E3	LATIN SMALL LETTER AE WITH MACRON
+001E4	LATIN CAPITAL LETTER G WITH STROKE
+001E5	LATIN SMALL LETTER G WITH STROKE
+001E6	LATIN CAPITAL LETTER G WITH CARON
+001E7	LATIN SMALL LETTER G WITH CARON
+001E8	LATIN CAPITAL LETTER K WITH CARON
+001E9	LATIN SMALL LETTER K WITH CARON
+001EA	LATIN CAPITAL LETTER O WITH OGONEK
+001EB	LATIN SMALL LETTER O WITH OGONEK
+001EC	LATIN CAPITAL LETTER O WITH OGONEK AND MACRON
+001ED	LATIN SMALL LETTER O WITH OGONEK AND MACRON
+001EE	LATIN CAPITAL LETTER EZH WITH CARON
+001EF	LATIN SMALL LETTER EZH WITH CARON
+001F0	LATIN SMALL LETTER J WITH CARON
+001F1	LATIN CAPITAL LETTER DZ
+001F2	LATIN CAPITAL LETTER D WITH SMALL LETTER Z
+001F3	LATIN SMALL LETTER DZ
+001F4	LATIN CAPITAL LETTER G WITH ACUTE
+001F5	LATIN SMALL LETTER G WITH ACUTE
+001F6	LATIN CAPITAL LETTER HWAIR
+001F7	LATIN CAPITAL LETTER WYNN
+001F8	LATIN CAPITAL LETTER N WITH GRAVE
+001F9	LATIN SMALL LETTER N WITH GRAVE
+001FA	LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+001FB	LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+001FC	LATIN CAPITAL LETTER AE WITH ACUTE
+001FD	LATIN SMALL LETTER AE WITH ACUTE
+001FE	LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+001FF	LATIN SMALL LETTER O WITH STROKE AND ACUTE
+00200	LATIN CAPITAL LETTER A WITH DOUBLE GRAVE
+00201	LATIN SMALL LETTER A WITH DOUBLE GRAVE
+00202	LATIN CAPITAL LETTER A WITH INVERTED BREVE
+00203	LATIN SMALL LETTER A WITH INVERTED BREVE
+00204	LATIN CAPITAL LETTER E WITH DOUBLE GRAVE
+00205	LATIN SMALL LETTER E WITH DOUBLE GRAVE
+00206	LATIN CAPITAL LETTER E WITH INVERTED BREVE
+00207	LATIN SMALL LETTER E WITH INVERTED BREVE
+00208	LATIN CAPITAL LETTER I WITH DOUBLE GRAVE
+00209	LATIN SMALL LETTER I WITH DOUBLE GRAVE
+0020A	LATIN CAPITAL LETTER I WITH INVERTED BREVE
+0020B	LATIN SMALL LETTER I WITH INVERTED BREVE
+0020C	LATIN CAPITAL LETTER O WITH DOUBLE GRAVE
+0020D	LATIN SMALL LETTER O WITH DOUBLE GRAVE
+0020E	LATIN CAPITAL LETTER O WITH INVERTED BREVE
+0020F	LATIN SMALL LETTER O WITH INVERTED BREVE
+00210	LATIN CAPITAL LETTER R WITH DOUBLE GRAVE
+00211	LATIN SMALL LETTER R WITH DOUBLE GRAVE
+00212	LATIN CAPITAL LETTER R WITH INVERTED BREVE
+00213	LATIN SMALL LETTER R WITH INVERTED BREVE
+00214	LATIN CAPITAL LETTER U WITH DOUBLE GRAVE
+00215	LATIN SMALL LETTER U WITH DOUBLE GRAVE
+00216	LATIN CAPITAL LETTER U WITH INVERTED BREVE
+00217	LATIN SMALL LETTER U WITH INVERTED BREVE
+00218	LATIN CAPITAL LETTER S WITH COMMA BELOW
+00219	LATIN SMALL LETTER S WITH COMMA BELOW
+0021A	LATIN CAPITAL LETTER T WITH COMMA BELOW
+0021B	LATIN SMALL LETTER T WITH COMMA BELOW
+0021C	LATIN CAPITAL LETTER YOGH
+0021D	LATIN SMALL LETTER YOGH
+0021E	LATIN CAPITAL LETTER H WITH CARON
+0021F	LATIN SMALL LETTER H WITH CARON
+00220	LATIN CAPITAL LETTER N WITH LONG RIGHT LEG
+00221	LATIN SMALL LETTER D WITH CURL
+00222	LATIN CAPITAL LETTER OU
+00223	LATIN SMALL LETTER OU
+00224	LATIN CAPITAL LETTER Z WITH HOOK
+00225	LATIN SMALL LETTER Z WITH HOOK
+00226	LATIN CAPITAL LETTER A WITH DOT ABOVE
+00227	LATIN SMALL LETTER A WITH DOT ABOVE
+00228	LATIN CAPITAL LETTER E WITH CEDILLA
+00229	LATIN SMALL LETTER E WITH CEDILLA
+0022A	LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0022B	LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+0022C	LATIN CAPITAL LETTER O WITH TILDE AND MACRON
+0022D	LATIN SMALL LETTER O WITH TILDE AND MACRON
+0022E	LATIN CAPITAL LETTER O WITH DOT ABOVE
+0022F	LATIN SMALL LETTER O WITH DOT ABOVE
+00230	LATIN CAPITAL LETTER O WITH DOT ABOVE AND MACRON
+00231	LATIN SMALL LETTER O WITH DOT ABOVE AND MACRON
+00232	LATIN CAPITAL LETTER Y WITH MACRON
+00233	LATIN SMALL LETTER Y WITH MACRON
+00234	LATIN SMALL LETTER L WITH CURL
+00235	LATIN SMALL LETTER N WITH CURL
+00236	LATIN SMALL LETTER T WITH CURL
+00237	LATIN SMALL LETTER DOTLESS J
+00238	LATIN SMALL LETTER DB DIGRAPH
+00239	LATIN SMALL LETTER QP DIGRAPH
+0023A	LATIN CAPITAL LETTER A WITH STROKE
+0023B	LATIN CAPITAL LETTER C WITH STROKE
+0023C	LATIN SMALL LETTER C WITH STROKE
+0023D	LATIN CAPITAL LETTER L WITH BAR
+0023E	LATIN CAPITAL LETTER T WITH DIAGONAL STROKE
+0023F	LATIN SMALL LETTER S WITH SWASH TAIL
+00240	LATIN SMALL LETTER Z WITH SWASH TAIL
+00241	LATIN CAPITAL LETTER GLOTTAL STOP
+00242	LATIN SMALL LETTER GLOTTAL STOP
+00243	LATIN CAPITAL LETTER B WITH STROKE
+00244	LATIN CAPITAL LETTER U BAR
+00245	LATIN CAPITAL LETTER TURNED V
+00246	LATIN CAPITAL LETTER E WITH STROKE
+00247	LATIN SMALL LETTER E WITH STROKE
+00248	LATIN CAPITAL LETTER J WITH STROKE
+00249	LATIN SMALL LETTER J WITH STROKE
+0024A	LATIN CAPITAL LETTER SMALL Q WITH HOOK TAIL
+0024B	LATIN SMALL LETTER Q WITH HOOK TAIL
+0024C	LATIN CAPITAL LETTER R WITH STROKE
+0024D	LATIN SMALL LETTER R WITH STROKE
+0024E	LATIN CAPITAL LETTER Y WITH STROKE
+0024F	LATIN SMALL LETTER Y WITH STROKE
+00250	LATIN SMALL LETTER TURNED A
+00251	LATIN SMALL LETTER ALPHA
+00252	LATIN SMALL LETTER TURNED ALPHA
+00253	LATIN SMALL LETTER B WITH HOOK
+00254	LATIN SMALL LETTER OPEN O
+00255	LATIN SMALL LETTER C WITH CURL
+00256	LATIN SMALL LETTER D WITH TAIL
+00257	LATIN SMALL LETTER D WITH HOOK
+00258	LATIN SMALL LETTER REVERSED E
+00259	LATIN SMALL LETTER SCHWA
+0025A	LATIN SMALL LETTER SCHWA WITH HOOK
+0025B	LATIN SMALL LETTER OPEN E
+0025C	LATIN SMALL LETTER REVERSED OPEN E
+0025D	LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
+0025E	LATIN SMALL LETTER CLOSED REVERSED OPEN E
+0025F	LATIN SMALL LETTER DOTLESS J WITH STROKE
+00260	LATIN SMALL LETTER G WITH HOOK
+00261	LATIN SMALL LETTER SCRIPT G
+00262	LATIN LETTER SMALL CAPITAL G
+00263	LATIN SMALL LETTER GAMMA
+00264	LATIN SMALL LETTER RAMS HORN
+00265	LATIN SMALL LETTER TURNED H
+00266	LATIN SMALL LETTER H WITH HOOK
+00267	LATIN SMALL LETTER HENG WITH HOOK
+00268	LATIN SMALL LETTER I WITH STROKE
+00269	LATIN SMALL LETTER IOTA
+0026A	LATIN LETTER SMALL CAPITAL I
+0026B	LATIN SMALL LETTER L WITH MIDDLE TILDE
+0026C	LATIN SMALL LETTER L WITH BELT
+0026D	LATIN SMALL LETTER L WITH RETROFLEX HOOK
+0026E	LATIN SMALL LETTER LEZH
+0026F	LATIN SMALL LETTER TURNED M
+00270	LATIN SMALL LETTER TURNED M WITH LONG LEG
+00271	LATIN SMALL LETTER M WITH HOOK
+00272	LATIN SMALL LETTER N WITH LEFT HOOK
+00273	LATIN SMALL LETTER N WITH RETROFLEX HOOK
+00274	LATIN LETTER SMALL CAPITAL N
+00275	LATIN SMALL LETTER BARRED O
+00276	LATIN LETTER SMALL CAPITAL OE
+00277	LATIN SMALL LETTER CLOSED OMEGA
+00278	LATIN SMALL LETTER PHI
+00279	LATIN SMALL LETTER TURNED R
+0027A	LATIN SMALL LETTER TURNED R WITH LONG LEG
+0027B	LATIN SMALL LETTER TURNED R WITH HOOK
+0027C	LATIN SMALL LETTER R WITH LONG LEG
+0027D	LATIN SMALL LETTER R WITH TAIL
+0027E	LATIN SMALL LETTER R WITH FISHHOOK
+0027F	LATIN SMALL LETTER REVERSED R WITH FISHHOOK
+00280	LATIN LETTER SMALL CAPITAL R
+00281	LATIN LETTER SMALL CAPITAL INVERTED R
+00282	LATIN SMALL LETTER S WITH HOOK
+00283	LATIN SMALL LETTER ESH
+00284	LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
+00285	LATIN SMALL LETTER SQUAT REVERSED ESH
+00286	LATIN SMALL LETTER ESH WITH CURL
+00287	LATIN SMALL LETTER TURNED T
+00288	LATIN SMALL LETTER T WITH RETROFLEX HOOK
+00289	LATIN SMALL LETTER U BAR
+0028A	LATIN SMALL LETTER UPSILON
+0028B	LATIN SMALL LETTER V WITH HOOK
+0028C	LATIN SMALL LETTER TURNED V
+0028D	LATIN SMALL LETTER TURNED W
+0028E	LATIN SMALL LETTER TURNED Y
+0028F	LATIN LETTER SMALL CAPITAL Y
+00290	LATIN SMALL LETTER Z WITH RETROFLEX HOOK
+00291	LATIN SMALL LETTER Z WITH CURL
+00292	LATIN SMALL LETTER EZH
+00293	LATIN SMALL LETTER EZH WITH CURL
+00294	LATIN LETTER GLOTTAL STOP
+00295	LATIN LETTER PHARYNGEAL VOICED FRICATIVE
+00296	LATIN LETTER INVERTED GLOTTAL STOP
+00297	LATIN LETTER STRETCHED C
+00298	LATIN LETTER BILABIAL CLICK
+00299	LATIN LETTER SMALL CAPITAL B
+0029A	LATIN SMALL LETTER CLOSED OPEN E
+0029B	LATIN LETTER SMALL CAPITAL G WITH HOOK
+0029C	LATIN LETTER SMALL CAPITAL H
+0029D	LATIN SMALL LETTER J WITH CROSSED-TAIL
+0029E	LATIN SMALL LETTER TURNED K
+0029F	LATIN LETTER SMALL CAPITAL L
+002A0	LATIN SMALL LETTER Q WITH HOOK
+002A1	LATIN LETTER GLOTTAL STOP WITH STROKE
+002A2	LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
+002A3	LATIN SMALL LETTER DZ DIGRAPH
+002A4	LATIN SMALL LETTER DEZH DIGRAPH
+002A5	LATIN SMALL LETTER DZ DIGRAPH WITH CURL
+002A6	LATIN SMALL LETTER TS DIGRAPH
+002A7	LATIN SMALL LETTER TESH DIGRAPH
+002A8	LATIN SMALL LETTER TC DIGRAPH WITH CURL
+002A9	LATIN SMALL LETTER FENG DIGRAPH
+002AA	LATIN SMALL LETTER LS DIGRAPH
+002AB	LATIN SMALL LETTER LZ DIGRAPH
+002AC	LATIN LETTER BILABIAL PERCUSSIVE
+002AD	LATIN LETTER BIDENTAL PERCUSSIVE
+002AE	LATIN SMALL LETTER TURNED H WITH FISHHOOK
+002AF	LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL
+002B0	MODIFIER LETTER SMALL H
+002B1	MODIFIER LETTER SMALL H WITH HOOK
+002B2	MODIFIER LETTER SMALL J
+002B3	MODIFIER LETTER SMALL R
+002B4	MODIFIER LETTER SMALL TURNED R
+002B5	MODIFIER LETTER SMALL TURNED R WITH HOOK
+002B6	MODIFIER LETTER SMALL CAPITAL INVERTED R
+002B7	MODIFIER LETTER SMALL W
+002B8	MODIFIER LETTER SMALL Y
+002B9	MODIFIER LETTER PRIME
+002BA	MODIFIER LETTER DOUBLE PRIME
+002BB	MODIFIER LETTER TURNED COMMA
+002BC	MODIFIER LETTER APOSTROPHE
+002BD	MODIFIER LETTER REVERSED COMMA
+002BE	MODIFIER LETTER RIGHT HALF RING
+002BF	MODIFIER LETTER LEFT HALF RING
+002C0	MODIFIER LETTER GLOTTAL STOP
+002C1	MODIFIER LETTER REVERSED GLOTTAL STOP
+002C2	MODIFIER LETTER LEFT ARROWHEAD
+002C3	MODIFIER LETTER RIGHT ARROWHEAD
+002C4	MODIFIER LETTER UP ARROWHEAD
+002C5	MODIFIER LETTER DOWN ARROWHEAD
+002C6	MODIFIER LETTER CIRCUMFLEX ACCENT
+002C7	CARON
+002C8	MODIFIER LETTER VERTICAL LINE
+002C9	MODIFIER LETTER MACRON
+002CA	MODIFIER LETTER ACUTE ACCENT
+002CB	MODIFIER LETTER GRAVE ACCENT
+002CC	MODIFIER LETTER LOW VERTICAL LINE
+002CD	MODIFIER LETTER LOW MACRON
+002CE	MODIFIER LETTER LOW GRAVE ACCENT
+002CF	MODIFIER LETTER LOW ACUTE ACCENT
+002D0	MODIFIER LETTER TRIANGULAR COLON
+002D1	MODIFIER LETTER HALF TRIANGULAR COLON
+002D2	MODIFIER LETTER CENTRED RIGHT HALF RING
+002D3	MODIFIER LETTER CENTRED LEFT HALF RING
+002D4	MODIFIER LETTER UP TACK
+002D5	MODIFIER LETTER DOWN TACK
+002D6	MODIFIER LETTER PLUS SIGN
+002D7	MODIFIER LETTER MINUS SIGN
+002D8	BREVE
+002D9	DOT ABOVE
+002DA	RING ABOVE
+002DB	OGONEK
+002DC	SMALL TILDE
+002DD	DOUBLE ACUTE ACCENT
+002DE	MODIFIER LETTER RHOTIC HOOK
+002DF	MODIFIER LETTER CROSS ACCENT
+002E0	MODIFIER LETTER SMALL GAMMA
+002E1	MODIFIER LETTER SMALL L
+002E2	MODIFIER LETTER SMALL S
+002E3	MODIFIER LETTER SMALL X
+002E4	MODIFIER LETTER SMALL REVERSED GLOTTAL STOP
+002E5	MODIFIER LETTER EXTRA-HIGH TONE BAR
+002E6	MODIFIER LETTER HIGH TONE BAR
+002E7	MODIFIER LETTER MID TONE BAR
+002E8	MODIFIER LETTER LOW TONE BAR
+002E9	MODIFIER LETTER EXTRA-LOW TONE BAR
+002EA	MODIFIER LETTER YIN DEPARTING TONE MARK
+002EB	MODIFIER LETTER YANG DEPARTING TONE MARK
+002EC	MODIFIER LETTER VOICING
+002ED	MODIFIER LETTER UNASPIRATED
+002EE	MODIFIER LETTER DOUBLE APOSTROPHE
+002EF	MODIFIER LETTER LOW DOWN ARROWHEAD
+002F0	MODIFIER LETTER LOW UP ARROWHEAD
+002F1	MODIFIER LETTER LOW LEFT ARROWHEAD
+002F2	MODIFIER LETTER LOW RIGHT ARROWHEAD
+002F3	MODIFIER LETTER LOW RING
+002F4	MODIFIER LETTER MIDDLE GRAVE ACCENT
+002F5	MODIFIER LETTER MIDDLE DOUBLE GRAVE ACCENT
+002F6	MODIFIER LETTER MIDDLE DOUBLE ACUTE ACCENT
+002F7	MODIFIER LETTER LOW TILDE
+002F8	MODIFIER LETTER RAISED COLON
+002F9	MODIFIER LETTER BEGIN HIGH TONE
+002FA	MODIFIER LETTER END HIGH TONE
+002FB	MODIFIER LETTER BEGIN LOW TONE
+002FC	MODIFIER LETTER END LOW TONE
+002FD	MODIFIER LETTER SHELF
+002FE	MODIFIER LETTER OPEN SHELF
+002FF	MODIFIER LETTER LOW LEFT ARROW
+00300	COMBINING GRAVE ACCENT
+00301	COMBINING ACUTE ACCENT
+00302	COMBINING CIRCUMFLEX ACCENT
+00303	COMBINING TILDE
+00304	COMBINING MACRON
+00305	COMBINING OVERLINE
+00306	COMBINING BREVE
+00307	COMBINING DOT ABOVE
+00308	COMBINING DIAERESIS
+00309	COMBINING HOOK ABOVE
+0030A	COMBINING RING ABOVE
+0030B	COMBINING DOUBLE ACUTE ACCENT
+0030C	COMBINING CARON
+0030D	COMBINING VERTICAL LINE ABOVE
+0030E	COMBINING DOUBLE VERTICAL LINE ABOVE
+0030F	COMBINING DOUBLE GRAVE ACCENT
+00310	COMBINING CANDRABINDU
+00311	COMBINING INVERTED BREVE
+00312	COMBINING TURNED COMMA ABOVE
+00313	COMBINING COMMA ABOVE
+00314	COMBINING REVERSED COMMA ABOVE
+00315	COMBINING COMMA ABOVE RIGHT
+00316	COMBINING GRAVE ACCENT BELOW
+00317	COMBINING ACUTE ACCENT BELOW
+00318	COMBINING LEFT TACK BELOW
+00319	COMBINING RIGHT TACK BELOW
+0031A	COMBINING LEFT ANGLE ABOVE
+0031B	COMBINING HORN
+0031C	COMBINING LEFT HALF RING BELOW
+0031D	COMBINING UP TACK BELOW
+0031E	COMBINING DOWN TACK BELOW
+0031F	COMBINING PLUS SIGN BELOW
+00320	COMBINING MINUS SIGN BELOW
+00321	COMBINING PALATALIZED HOOK BELOW
+00322	COMBINING RETROFLEX HOOK BELOW
+00323	COMBINING DOT BELOW
+00324	COMBINING DIAERESIS BELOW
+00325	COMBINING RING BELOW
+00326	COMBINING COMMA BELOW
+00327	COMBINING CEDILLA
+00328	COMBINING OGONEK
+00329	COMBINING VERTICAL LINE BELOW
+0032A	COMBINING BRIDGE BELOW
+0032B	COMBINING INVERTED DOUBLE ARCH BELOW
+0032C	COMBINING CARON BELOW
+0032D	COMBINING CIRCUMFLEX ACCENT BELOW
+0032E	COMBINING BREVE BELOW
+0032F	COMBINING INVERTED BREVE BELOW
+00330	COMBINING TILDE BELOW
+00331	COMBINING MACRON BELOW
+00332	COMBINING LOW LINE
+00333	COMBINING DOUBLE LOW LINE
+00334	COMBINING TILDE OVERLAY
+00335	COMBINING SHORT STROKE OVERLAY
+00336	COMBINING LONG STROKE OVERLAY
+00337	COMBINING SHORT SOLIDUS OVERLAY
+00338	COMBINING LONG SOLIDUS OVERLAY
+00339	COMBINING RIGHT HALF RING BELOW
+0033A	COMBINING INVERTED BRIDGE BELOW
+0033B	COMBINING SQUARE BELOW
+0033C	COMBINING SEAGULL BELOW
+0033D	COMBINING X ABOVE
+0033E	COMBINING VERTICAL TILDE
+0033F	COMBINING DOUBLE OVERLINE
+00340	COMBINING GRAVE TONE MARK
+00341	COMBINING ACUTE TONE MARK
+00342	COMBINING GREEK PERISPOMENI
+00343	COMBINING GREEK KORONIS
+00344	COMBINING GREEK DIALYTIKA TONOS
+00345	COMBINING GREEK YPOGEGRAMMENI
+00346	COMBINING BRIDGE ABOVE
+00347	COMBINING EQUALS SIGN BELOW
+00348	COMBINING DOUBLE VERTICAL LINE BELOW
+00349	COMBINING LEFT ANGLE BELOW
+0034A	COMBINING NOT TILDE ABOVE
+0034B	COMBINING HOMOTHETIC ABOVE
+0034C	COMBINING ALMOST EQUAL TO ABOVE
+0034D	COMBINING LEFT RIGHT ARROW BELOW
+0034E	COMBINING UPWARDS ARROW BELOW
+0034F	COMBINING GRAPHEME JOINER
+0034F	CGJ
+00350	COMBINING RIGHT ARROWHEAD ABOVE
+00351	COMBINING LEFT HALF RING ABOVE
+00352	COMBINING FERMATA
+00353	COMBINING X BELOW
+00354	COMBINING LEFT ARROWHEAD BELOW
+00355	COMBINING RIGHT ARROWHEAD BELOW
+00356	COMBINING RIGHT ARROWHEAD AND UP ARROWHEAD BELOW
+00357	COMBINING RIGHT HALF RING ABOVE
+00358	COMBINING DOT ABOVE RIGHT
+00359	COMBINING ASTERISK BELOW
+0035A	COMBINING DOUBLE RING BELOW
+0035B	COMBINING ZIGZAG ABOVE
+0035C	COMBINING DOUBLE BREVE BELOW
+0035D	COMBINING DOUBLE BREVE
+0035E	COMBINING DOUBLE MACRON
+0035F	COMBINING DOUBLE MACRON BELOW
+00360	COMBINING DOUBLE TILDE
+00361	COMBINING DOUBLE INVERTED BREVE
+00362	COMBINING DOUBLE RIGHTWARDS ARROW BELOW
+00363	COMBINING LATIN SMALL LETTER A
+00364	COMBINING LATIN SMALL LETTER E
+00365	COMBINING LATIN SMALL LETTER I
+00366	COMBINING LATIN SMALL LETTER O
+00367	COMBINING LATIN SMALL LETTER U
+00368	COMBINING LATIN SMALL LETTER C
+00369	COMBINING LATIN SMALL LETTER D
+0036A	COMBINING LATIN SMALL LETTER H
+0036B	COMBINING LATIN SMALL LETTER M
+0036C	COMBINING LATIN SMALL LETTER R
+0036D	COMBINING LATIN SMALL LETTER T
+0036E	COMBINING LATIN SMALL LETTER V
+0036F	COMBINING LATIN SMALL LETTER X
+00370	GREEK CAPITAL LETTER HETA
+00371	GREEK SMALL LETTER HETA
+00372	GREEK CAPITAL LETTER ARCHAIC SAMPI
+00373	GREEK SMALL LETTER ARCHAIC SAMPI
+00374	GREEK NUMERAL SIGN
+00375	GREEK LOWER NUMERAL SIGN
+00376	GREEK CAPITAL LETTER PAMPHYLIAN DIGAMMA
+00377	GREEK SMALL LETTER PAMPHYLIAN DIGAMMA
+0037A	GREEK YPOGEGRAMMENI
+0037B	GREEK SMALL REVERSED LUNATE SIGMA SYMBOL
+0037C	GREEK SMALL DOTTED LUNATE SIGMA SYMBOL
+0037D	GREEK SMALL REVERSED DOTTED LUNATE SIGMA SYMBOL
+0037E	GREEK QUESTION MARK
+0037F	GREEK CAPITAL LETTER YOT
+00384	GREEK TONOS
+00385	GREEK DIALYTIKA TONOS
+00386	GREEK CAPITAL LETTER ALPHA WITH TONOS
+00387	GREEK ANO TELEIA
+00388	GREEK CAPITAL LETTER EPSILON WITH TONOS
+00389	GREEK CAPITAL LETTER ETA WITH TONOS
+0038A	GREEK CAPITAL LETTER IOTA WITH TONOS
+0038C	GREEK CAPITAL LETTER OMICRON WITH TONOS
+0038E	GREEK CAPITAL LETTER UPSILON WITH TONOS
+0038F	GREEK CAPITAL LETTER OMEGA WITH TONOS
+00390	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+00391	GREEK CAPITAL LETTER ALPHA
+00392	GREEK CAPITAL LETTER BETA
+00393	GREEK CAPITAL LETTER GAMMA
+00394	GREEK CAPITAL LETTER DELTA
+00395	GREEK CAPITAL LETTER EPSILON
+00396	GREEK CAPITAL LETTER ZETA
+00397	GREEK CAPITAL LETTER ETA
+00398	GREEK CAPITAL LETTER THETA
+00399	GREEK CAPITAL LETTER IOTA
+0039A	GREEK CAPITAL LETTER KAPPA
+0039B	GREEK CAPITAL LETTER LAMDA
+0039C	GREEK CAPITAL LETTER MU
+0039D	GREEK CAPITAL LETTER NU
+0039E	GREEK CAPITAL LETTER XI
+0039F	GREEK CAPITAL LETTER OMICRON
+003A0	GREEK CAPITAL LETTER PI
+003A1	GREEK CAPITAL LETTER RHO
+003A3	GREEK CAPITAL LETTER SIGMA
+003A4	GREEK CAPITAL LETTER TAU
+003A5	GREEK CAPITAL LETTER UPSILON
+003A6	GREEK CAPITAL LETTER PHI
+003A7	GREEK CAPITAL LETTER CHI
+003A8	GREEK CAPITAL LETTER PSI
+003A9	GREEK CAPITAL LETTER OMEGA
+003AA	GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+003AB	GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+003AC	GREEK SMALL LETTER ALPHA WITH TONOS
+003AD	GREEK SMALL LETTER EPSILON WITH TONOS
+003AE	GREEK SMALL LETTER ETA WITH TONOS
+003AF	GREEK SMALL LETTER IOTA WITH TONOS
+003B0	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+003B1	GREEK SMALL LETTER ALPHA
+003B2	GREEK SMALL LETTER BETA
+003B3	GREEK SMALL LETTER GAMMA
+003B4	GREEK SMALL LETTER DELTA
+003B5	GREEK SMALL LETTER EPSILON
+003B6	GREEK SMALL LETTER ZETA
+003B7	GREEK SMALL LETTER ETA
+003B8	GREEK SMALL LETTER THETA
+003B9	GREEK SMALL LETTER IOTA
+003BA	GREEK SMALL LETTER KAPPA
+003BB	GREEK SMALL LETTER LAMDA
+003BC	GREEK SMALL LETTER MU
+003BD	GREEK SMALL LETTER NU
+003BE	GREEK SMALL LETTER XI
+003BF	GREEK SMALL LETTER OMICRON
+003C0	GREEK SMALL LETTER PI
+003C1	GREEK SMALL LETTER RHO
+003C2	GREEK SMALL LETTER FINAL SIGMA
+003C3	GREEK SMALL LETTER SIGMA
+003C4	GREEK SMALL LETTER TAU
+003C5	GREEK SMALL LETTER UPSILON
+003C6	GREEK SMALL LETTER PHI
+003C7	GREEK SMALL LETTER CHI
+003C8	GREEK SMALL LETTER PSI
+003C9	GREEK SMALL LETTER OMEGA
+003CA	GREEK SMALL LETTER IOTA WITH DIALYTIKA
+003CB	GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+003CC	GREEK SMALL LETTER OMICRON WITH TONOS
+003CD	GREEK SMALL LETTER UPSILON WITH TONOS
+003CE	GREEK SMALL LETTER OMEGA WITH TONOS
+003CF	GREEK CAPITAL KAI SYMBOL
+003D0	GREEK BETA SYMBOL
+003D1	GREEK THETA SYMBOL
+003D2	GREEK UPSILON WITH HOOK SYMBOL
+003D3	GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
+003D4	GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
+003D5	GREEK PHI SYMBOL
+003D6	GREEK PI SYMBOL
+003D7	GREEK KAI SYMBOL
+003D8	GREEK LETTER ARCHAIC KOPPA
+003D9	GREEK SMALL LETTER ARCHAIC KOPPA
+003DA	GREEK LETTER STIGMA
+003DB	GREEK SMALL LETTER STIGMA
+003DC	GREEK LETTER DIGAMMA
+003DD	GREEK SMALL LETTER DIGAMMA
+003DE	GREEK LETTER KOPPA
+003DF	GREEK SMALL LETTER KOPPA
+003E0	GREEK LETTER SAMPI
+003E1	GREEK SMALL LETTER SAMPI
+003E2	COPTIC CAPITAL LETTER SHEI
+003E3	COPTIC SMALL LETTER SHEI
+003E4	COPTIC CAPITAL LETTER FEI
+003E5	COPTIC SMALL LETTER FEI
+003E6	COPTIC CAPITAL LETTER KHEI
+003E7	COPTIC SMALL LETTER KHEI
+003E8	COPTIC CAPITAL LETTER HORI
+003E9	COPTIC SMALL LETTER HORI
+003EA	COPTIC CAPITAL LETTER GANGIA
+003EB	COPTIC SMALL LETTER GANGIA
+003EC	COPTIC CAPITAL LETTER SHIMA
+003ED	COPTIC SMALL LETTER SHIMA
+003EE	COPTIC CAPITAL LETTER DEI
+003EF	COPTIC SMALL LETTER DEI
+003F0	GREEK KAPPA SYMBOL
+003F1	GREEK RHO SYMBOL
+003F2	GREEK LUNATE SIGMA SYMBOL
+003F3	GREEK LETTER YOT
+003F4	GREEK CAPITAL THETA SYMBOL
+003F5	GREEK LUNATE EPSILON SYMBOL
+003F6	GREEK REVERSED LUNATE EPSILON SYMBOL
+003F7	GREEK CAPITAL LETTER SHO
+003F8	GREEK SMALL LETTER SHO
+003F9	GREEK CAPITAL LUNATE SIGMA SYMBOL
+003FA	GREEK CAPITAL LETTER SAN
+003FB	GREEK SMALL LETTER SAN
+003FC	GREEK RHO WITH STROKE SYMBOL
+003FD	GREEK CAPITAL REVERSED LUNATE SIGMA SYMBOL
+003FE	GREEK CAPITAL DOTTED LUNATE SIGMA SYMBOL
+003FF	GREEK CAPITAL REVERSED DOTTED LUNATE SIGMA SYMBOL
+00400	CYRILLIC CAPITAL LETTER IE WITH GRAVE
+00401	CYRILLIC CAPITAL LETTER IO
+00402	CYRILLIC CAPITAL LETTER DJE
+00403	CYRILLIC CAPITAL LETTER GJE
+00404	CYRILLIC CAPITAL LETTER UKRAINIAN IE
+00405	CYRILLIC CAPITAL LETTER DZE
+00406	CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+00407	CYRILLIC CAPITAL LETTER YI
+00408	CYRILLIC CAPITAL LETTER JE
+00409	CYRILLIC CAPITAL LETTER LJE
+0040A	CYRILLIC CAPITAL LETTER NJE
+0040B	CYRILLIC CAPITAL LETTER TSHE
+0040C	CYRILLIC CAPITAL LETTER KJE
+0040D	CYRILLIC CAPITAL LETTER I WITH GRAVE
+0040E	CYRILLIC CAPITAL LETTER SHORT U
+0040F	CYRILLIC CAPITAL LETTER DZHE
+00410	CYRILLIC CAPITAL LETTER A
+00411	CYRILLIC CAPITAL LETTER BE
+00412	CYRILLIC CAPITAL LETTER VE
+00413	CYRILLIC CAPITAL LETTER GHE
+00414	CYRILLIC CAPITAL LETTER DE
+00415	CYRILLIC CAPITAL LETTER IE
+00416	CYRILLIC CAPITAL LETTER ZHE
+00417	CYRILLIC CAPITAL LETTER ZE
+00418	CYRILLIC CAPITAL LETTER I
+00419	CYRILLIC CAPITAL LETTER SHORT I
+0041A	CYRILLIC CAPITAL LETTER KA
+0041B	CYRILLIC CAPITAL LETTER EL
+0041C	CYRILLIC CAPITAL LETTER EM
+0041D	CYRILLIC CAPITAL LETTER EN
+0041E	CYRILLIC CAPITAL LETTER O
+0041F	CYRILLIC CAPITAL LETTER PE
+00420	CYRILLIC CAPITAL LETTER ER
+00421	CYRILLIC CAPITAL LETTER ES
+00422	CYRILLIC CAPITAL LETTER TE
+00423	CYRILLIC CAPITAL LETTER U
+00424	CYRILLIC CAPITAL LETTER EF
+00425	CYRILLIC CAPITAL LETTER HA
+00426	CYRILLIC CAPITAL LETTER TSE
+00427	CYRILLIC CAPITAL LETTER CHE
+00428	CYRILLIC CAPITAL LETTER SHA
+00429	CYRILLIC CAPITAL LETTER SHCHA
+0042A	CYRILLIC CAPITAL LETTER HARD SIGN
+0042B	CYRILLIC CAPITAL LETTER YERU
+0042C	CYRILLIC CAPITAL LETTER SOFT SIGN
+0042D	CYRILLIC CAPITAL LETTER E
+0042E	CYRILLIC CAPITAL LETTER YU
+0042F	CYRILLIC CAPITAL LETTER YA
+00430	CYRILLIC SMALL LETTER A
+00431	CYRILLIC SMALL LETTER BE
+00432	CYRILLIC SMALL LETTER VE
+00433	CYRILLIC SMALL LETTER GHE
+00434	CYRILLIC SMALL LETTER DE
+00435	CYRILLIC SMALL LETTER IE
+00436	CYRILLIC SMALL LETTER ZHE
+00437	CYRILLIC SMALL LETTER ZE
+00438	CYRILLIC SMALL LETTER I
+00439	CYRILLIC SMALL LETTER SHORT I
+0043A	CYRILLIC SMALL LETTER KA
+0043B	CYRILLIC SMALL LETTER EL
+0043C	CYRILLIC SMALL LETTER EM
+0043D	CYRILLIC SMALL LETTER EN
+0043E	CYRILLIC SMALL LETTER O
+0043F	CYRILLIC SMALL LETTER PE
+00440	CYRILLIC SMALL LETTER ER
+00441	CYRILLIC SMALL LETTER ES
+00442	CYRILLIC SMALL LETTER TE
+00443	CYRILLIC SMALL LETTER U
+00444	CYRILLIC SMALL LETTER EF
+00445	CYRILLIC SMALL LETTER HA
+00446	CYRILLIC SMALL LETTER TSE
+00447	CYRILLIC SMALL LETTER CHE
+00448	CYRILLIC SMALL LETTER SHA
+00449	CYRILLIC SMALL LETTER SHCHA
+0044A	CYRILLIC SMALL LETTER HARD SIGN
+0044B	CYRILLIC SMALL LETTER YERU
+0044C	CYRILLIC SMALL LETTER SOFT SIGN
+0044D	CYRILLIC SMALL LETTER E
+0044E	CYRILLIC SMALL LETTER YU
+0044F	CYRILLIC SMALL LETTER YA
+00450	CYRILLIC SMALL LETTER IE WITH GRAVE
+00451	CYRILLIC SMALL LETTER IO
+00452	CYRILLIC SMALL LETTER DJE
+00453	CYRILLIC SMALL LETTER GJE
+00454	CYRILLIC SMALL LETTER UKRAINIAN IE
+00455	CYRILLIC SMALL LETTER DZE
+00456	CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+00457	CYRILLIC SMALL LETTER YI
+00458	CYRILLIC SMALL LETTER JE
+00459	CYRILLIC SMALL LETTER LJE
+0045A	CYRILLIC SMALL LETTER NJE
+0045B	CYRILLIC SMALL LETTER TSHE
+0045C	CYRILLIC SMALL LETTER KJE
+0045D	CYRILLIC SMALL LETTER I WITH GRAVE
+0045E	CYRILLIC SMALL LETTER SHORT U
+0045F	CYRILLIC SMALL LETTER DZHE
+00460	CYRILLIC CAPITAL LETTER OMEGA
+00461	CYRILLIC SMALL LETTER OMEGA
+00462	CYRILLIC CAPITAL LETTER YAT
+00463	CYRILLIC SMALL LETTER YAT
+00464	CYRILLIC CAPITAL LETTER IOTIFIED E
+00465	CYRILLIC SMALL LETTER IOTIFIED E
+00466	CYRILLIC CAPITAL LETTER LITTLE YUS
+00467	CYRILLIC SMALL LETTER LITTLE YUS
+00468	CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS
+00469	CYRILLIC SMALL LETTER IOTIFIED LITTLE YUS
+0046A	CYRILLIC CAPITAL LETTER BIG YUS
+0046B	CYRILLIC SMALL LETTER BIG YUS
+0046C	CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS
+0046D	CYRILLIC SMALL LETTER IOTIFIED BIG YUS
+0046E	CYRILLIC CAPITAL LETTER KSI
+0046F	CYRILLIC SMALL LETTER KSI
+00470	CYRILLIC CAPITAL LETTER PSI
+00471	CYRILLIC SMALL LETTER PSI
+00472	CYRILLIC CAPITAL LETTER FITA
+00473	CYRILLIC SMALL LETTER FITA
+00474	CYRILLIC CAPITAL LETTER IZHITSA
+00475	CYRILLIC SMALL LETTER IZHITSA
+00476	CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+00477	CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+00478	CYRILLIC CAPITAL LETTER UK
+00479	CYRILLIC SMALL LETTER UK
+0047A	CYRILLIC CAPITAL LETTER ROUND OMEGA
+0047B	CYRILLIC SMALL LETTER ROUND OMEGA
+0047C	CYRILLIC CAPITAL LETTER OMEGA WITH TITLO
+0047D	CYRILLIC SMALL LETTER OMEGA WITH TITLO
+0047E	CYRILLIC CAPITAL LETTER OT
+0047F	CYRILLIC SMALL LETTER OT
+00480	CYRILLIC CAPITAL LETTER KOPPA
+00481	CYRILLIC SMALL LETTER KOPPA
+00482	CYRILLIC THOUSANDS SIGN
+00483	COMBINING CYRILLIC TITLO
+00484	COMBINING CYRILLIC PALATALIZATION
+00485	COMBINING CYRILLIC DASIA PNEUMATA
+00486	COMBINING CYRILLIC PSILI PNEUMATA
+00487	COMBINING CYRILLIC POKRYTIE
+00488	COMBINING CYRILLIC HUNDRED THOUSANDS SIGN
+00489	COMBINING CYRILLIC MILLIONS SIGN
+0048A	CYRILLIC CAPITAL LETTER SHORT I WITH TAIL
+0048B	CYRILLIC SMALL LETTER SHORT I WITH TAIL
+0048C	CYRILLIC CAPITAL LETTER SEMISOFT SIGN
+0048D	CYRILLIC SMALL LETTER SEMISOFT SIGN
+0048E	CYRILLIC CAPITAL LETTER ER WITH TICK
+0048F	CYRILLIC SMALL LETTER ER WITH TICK
+00490	CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+00491	CYRILLIC SMALL LETTER GHE WITH UPTURN
+00492	CYRILLIC CAPITAL LETTER GHE WITH STROKE
+00493	CYRILLIC SMALL LETTER GHE WITH STROKE
+00494	CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK
+00495	CYRILLIC SMALL LETTER GHE WITH MIDDLE HOOK
+00496	CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER
+00497	CYRILLIC SMALL LETTER ZHE WITH DESCENDER
+00498	CYRILLIC CAPITAL LETTER ZE WITH DESCENDER
+00499	CYRILLIC SMALL LETTER ZE WITH DESCENDER
+0049A	CYRILLIC CAPITAL LETTER KA WITH DESCENDER
+0049B	CYRILLIC SMALL LETTER KA WITH DESCENDER
+0049C	CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE
+0049D	CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE
+0049E	CYRILLIC CAPITAL LETTER KA WITH STROKE
+0049F	CYRILLIC SMALL LETTER KA WITH STROKE
+004A0	CYRILLIC CAPITAL LETTER BASHKIR KA
+004A1	CYRILLIC SMALL LETTER BASHKIR KA
+004A2	CYRILLIC CAPITAL LETTER EN WITH DESCENDER
+004A3	CYRILLIC SMALL LETTER EN WITH DESCENDER
+004A4	CYRILLIC CAPITAL LIGATURE EN GHE
+004A5	CYRILLIC SMALL LIGATURE EN GHE
+004A6	CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK
+004A7	CYRILLIC SMALL LETTER PE WITH MIDDLE HOOK
+004A8	CYRILLIC CAPITAL LETTER ABKHASIAN HA
+004A9	CYRILLIC SMALL LETTER ABKHASIAN HA
+004AA	CYRILLIC CAPITAL LETTER ES WITH DESCENDER
+004AB	CYRILLIC SMALL LETTER ES WITH DESCENDER
+004AC	CYRILLIC CAPITAL LETTER TE WITH DESCENDER
+004AD	CYRILLIC SMALL LETTER TE WITH DESCENDER
+004AE	CYRILLIC CAPITAL LETTER STRAIGHT U
+004AF	CYRILLIC SMALL LETTER STRAIGHT U
+004B0	CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE
+004B1	CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE
+004B2	CYRILLIC CAPITAL LETTER HA WITH DESCENDER
+004B3	CYRILLIC SMALL LETTER HA WITH DESCENDER
+004B4	CYRILLIC CAPITAL LIGATURE TE TSE
+004B5	CYRILLIC SMALL LIGATURE TE TSE
+004B6	CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
+004B7	CYRILLIC SMALL LETTER CHE WITH DESCENDER
+004B8	CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE
+004B9	CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE
+004BA	CYRILLIC CAPITAL LETTER SHHA
+004BB	CYRILLIC SMALL LETTER SHHA
+004BC	CYRILLIC CAPITAL LETTER ABKHASIAN CHE
+004BD	CYRILLIC SMALL LETTER ABKHASIAN CHE
+004BE	CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER
+004BF	CYRILLIC SMALL LETTER ABKHASIAN CHE WITH DESCENDER
+004C0	CYRILLIC LETTER PALOCHKA
+004C1	CYRILLIC CAPITAL LETTER ZHE WITH BREVE
+004C2	CYRILLIC SMALL LETTER ZHE WITH BREVE
+004C3	CYRILLIC CAPITAL LETTER KA WITH HOOK
+004C4	CYRILLIC SMALL LETTER KA WITH HOOK
+004C5	CYRILLIC CAPITAL LETTER EL WITH TAIL
+004C6	CYRILLIC SMALL LETTER EL WITH TAIL
+004C7	CYRILLIC CAPITAL LETTER EN WITH HOOK
+004C8	CYRILLIC SMALL LETTER EN WITH HOOK
+004C9	CYRILLIC CAPITAL LETTER EN WITH TAIL
+004CA	CYRILLIC SMALL LETTER EN WITH TAIL
+004CB	CYRILLIC CAPITAL LETTER KHAKASSIAN CHE
+004CC	CYRILLIC SMALL LETTER KHAKASSIAN CHE
+004CD	CYRILLIC CAPITAL LETTER EM WITH TAIL
+004CE	CYRILLIC SMALL LETTER EM WITH TAIL
+004CF	CYRILLIC SMALL LETTER PALOCHKA
+004D0	CYRILLIC CAPITAL LETTER A WITH BREVE
+004D1	CYRILLIC SMALL LETTER A WITH BREVE
+004D2	CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+004D3	CYRILLIC SMALL LETTER A WITH DIAERESIS
+004D4	CYRILLIC CAPITAL LIGATURE A IE
+004D5	CYRILLIC SMALL LIGATURE A IE
+004D6	CYRILLIC CAPITAL LETTER IE WITH BREVE
+004D7	CYRILLIC SMALL LETTER IE WITH BREVE
+004D8	CYRILLIC CAPITAL LETTER SCHWA
+004D9	CYRILLIC SMALL LETTER SCHWA
+004DA	CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+004DB	CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+004DC	CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+004DD	CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+004DE	CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+004DF	CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+004E0	CYRILLIC CAPITAL LETTER ABKHASIAN DZE
+004E1	CYRILLIC SMALL LETTER ABKHASIAN DZE
+004E2	CYRILLIC CAPITAL LETTER I WITH MACRON
+004E3	CYRILLIC SMALL LETTER I WITH MACRON
+004E4	CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+004E5	CYRILLIC SMALL LETTER I WITH DIAERESIS
+004E6	CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+004E7	CYRILLIC SMALL LETTER O WITH DIAERESIS
+004E8	CYRILLIC CAPITAL LETTER BARRED O
+004E9	CYRILLIC SMALL LETTER BARRED O
+004EA	CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+004EB	CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+004EC	CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+004ED	CYRILLIC SMALL LETTER E WITH DIAERESIS
+004EE	CYRILLIC CAPITAL LETTER U WITH MACRON
+004EF	CYRILLIC SMALL LETTER U WITH MACRON
+004F0	CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+004F1	CYRILLIC SMALL LETTER U WITH DIAERESIS
+004F2	CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+004F3	CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+004F4	CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+004F5	CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+004F6	CYRILLIC CAPITAL LETTER GHE WITH DESCENDER
+004F7	CYRILLIC SMALL LETTER GHE WITH DESCENDER
+004F8	CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+004F9	CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+004FA	CYRILLIC CAPITAL LETTER GHE WITH STROKE AND HOOK
+004FB	CYRILLIC SMALL LETTER GHE WITH STROKE AND HOOK
+004FC	CYRILLIC CAPITAL LETTER HA WITH HOOK
+004FD	CYRILLIC SMALL LETTER HA WITH HOOK
+004FE	CYRILLIC CAPITAL LETTER HA WITH STROKE
+004FF	CYRILLIC SMALL LETTER HA WITH STROKE
+00500	CYRILLIC CAPITAL LETTER KOMI DE
+00501	CYRILLIC SMALL LETTER KOMI DE
+00502	CYRILLIC CAPITAL LETTER KOMI DJE
+00503	CYRILLIC SMALL LETTER KOMI DJE
+00504	CYRILLIC CAPITAL LETTER KOMI ZJE
+00505	CYRILLIC SMALL LETTER KOMI ZJE
+00506	CYRILLIC CAPITAL LETTER KOMI DZJE
+00507	CYRILLIC SMALL LETTER KOMI DZJE
+00508	CYRILLIC CAPITAL LETTER KOMI LJE
+00509	CYRILLIC SMALL LETTER KOMI LJE
+0050A	CYRILLIC CAPITAL LETTER KOMI NJE
+0050B	CYRILLIC SMALL LETTER KOMI NJE
+0050C	CYRILLIC CAPITAL LETTER KOMI SJE
+0050D	CYRILLIC SMALL LETTER KOMI SJE
+0050E	CYRILLIC CAPITAL LETTER KOMI TJE
+0050F	CYRILLIC SMALL LETTER KOMI TJE
+00510	CYRILLIC CAPITAL LETTER REVERSED ZE
+00511	CYRILLIC SMALL LETTER REVERSED ZE
+00512	CYRILLIC CAPITAL LETTER EL WITH HOOK
+00513	CYRILLIC SMALL LETTER EL WITH HOOK
+00514	CYRILLIC CAPITAL LETTER LHA
+00515	CYRILLIC SMALL LETTER LHA
+00516	CYRILLIC CAPITAL LETTER RHA
+00517	CYRILLIC SMALL LETTER RHA
+00518	CYRILLIC CAPITAL LETTER YAE
+00519	CYRILLIC SMALL LETTER YAE
+0051A	CYRILLIC CAPITAL LETTER QA
+0051B	CYRILLIC SMALL LETTER QA
+0051C	CYRILLIC CAPITAL LETTER WE
+0051D	CYRILLIC SMALL LETTER WE
+0051E	CYRILLIC CAPITAL LETTER ALEUT KA
+0051F	CYRILLIC SMALL LETTER ALEUT KA
+00520	CYRILLIC CAPITAL LETTER EL WITH MIDDLE HOOK
+00521	CYRILLIC SMALL LETTER EL WITH MIDDLE HOOK
+00522	CYRILLIC CAPITAL LETTER EN WITH MIDDLE HOOK
+00523	CYRILLIC SMALL LETTER EN WITH MIDDLE HOOK
+00524	CYRILLIC CAPITAL LETTER PE WITH DESCENDER
+00525	CYRILLIC SMALL LETTER PE WITH DESCENDER
+00526	CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER
+00527	CYRILLIC SMALL LETTER SHHA WITH DESCENDER
+00528	CYRILLIC CAPITAL LETTER EN WITH LEFT HOOK
+00529	CYRILLIC SMALL LETTER EN WITH LEFT HOOK
+0052A	CYRILLIC CAPITAL LETTER DZZHE
+0052B	CYRILLIC SMALL LETTER DZZHE
+0052C	CYRILLIC CAPITAL LETTER DCHE
+0052D	CYRILLIC SMALL LETTER DCHE
+0052E	CYRILLIC CAPITAL LETTER EL WITH DESCENDER
+0052F	CYRILLIC SMALL LETTER EL WITH DESCENDER
+00531	ARMENIAN CAPITAL LETTER AYB
+00532	ARMENIAN CAPITAL LETTER BEN
+00533	ARMENIAN CAPITAL LETTER GIM
+00534	ARMENIAN CAPITAL LETTER DA
+00535	ARMENIAN CAPITAL LETTER ECH
+00536	ARMENIAN CAPITAL LETTER ZA
+00537	ARMENIAN CAPITAL LETTER EH
+00538	ARMENIAN CAPITAL LETTER ET
+00539	ARMENIAN CAPITAL LETTER TO
+0053A	ARMENIAN CAPITAL LETTER ZHE
+0053B	ARMENIAN CAPITAL LETTER INI
+0053C	ARMENIAN CAPITAL LETTER LIWN
+0053D	ARMENIAN CAPITAL LETTER XEH
+0053E	ARMENIAN CAPITAL LETTER CA
+0053F	ARMENIAN CAPITAL LETTER KEN
+00540	ARMENIAN CAPITAL LETTER HO
+00541	ARMENIAN CAPITAL LETTER JA
+00542	ARMENIAN CAPITAL LETTER GHAD
+00543	ARMENIAN CAPITAL LETTER CHEH
+00544	ARMENIAN CAPITAL LETTER MEN
+00545	ARMENIAN CAPITAL LETTER YI
+00546	ARMENIAN CAPITAL LETTER NOW
+00547	ARMENIAN CAPITAL LETTER SHA
+00548	ARMENIAN CAPITAL LETTER VO
+00549	ARMENIAN CAPITAL LETTER CHA
+0054A	ARMENIAN CAPITAL LETTER PEH
+0054B	ARMENIAN CAPITAL LETTER JHEH
+0054C	ARMENIAN CAPITAL LETTER RA
+0054D	ARMENIAN CAPITAL LETTER SEH
+0054E	ARMENIAN CAPITAL LETTER VEW
+0054F	ARMENIAN CAPITAL LETTER TIWN
+00550	ARMENIAN CAPITAL LETTER REH
+00551	ARMENIAN CAPITAL LETTER CO
+00552	ARMENIAN CAPITAL LETTER YIWN
+00553	ARMENIAN CAPITAL LETTER PIWR
+00554	ARMENIAN CAPITAL LETTER KEH
+00555	ARMENIAN CAPITAL LETTER OH
+00556	ARMENIAN CAPITAL LETTER FEH
+00559	ARMENIAN MODIFIER LETTER LEFT HALF RING
+0055A	ARMENIAN APOSTROPHE
+0055B	ARMENIAN EMPHASIS MARK
+0055C	ARMENIAN EXCLAMATION MARK
+0055D	ARMENIAN COMMA
+0055E	ARMENIAN QUESTION MARK
+0055F	ARMENIAN ABBREVIATION MARK
+00561	ARMENIAN SMALL LETTER AYB
+00562	ARMENIAN SMALL LETTER BEN
+00563	ARMENIAN SMALL LETTER GIM
+00564	ARMENIAN SMALL LETTER DA
+00565	ARMENIAN SMALL LETTER ECH
+00566	ARMENIAN SMALL LETTER ZA
+00567	ARMENIAN SMALL LETTER EH
+00568	ARMENIAN SMALL LETTER ET
+00569	ARMENIAN SMALL LETTER TO
+0056A	ARMENIAN SMALL LETTER ZHE
+0056B	ARMENIAN SMALL LETTER INI
+0056C	ARMENIAN SMALL LETTER LIWN
+0056D	ARMENIAN SMALL LETTER XEH
+0056E	ARMENIAN SMALL LETTER CA
+0056F	ARMENIAN SMALL LETTER KEN
+00570	ARMENIAN SMALL LETTER HO
+00571	ARMENIAN SMALL LETTER JA
+00572	ARMENIAN SMALL LETTER GHAD
+00573	ARMENIAN SMALL LETTER CHEH
+00574	ARMENIAN SMALL LETTER MEN
+00575	ARMENIAN SMALL LETTER YI
+00576	ARMENIAN SMALL LETTER NOW
+00577	ARMENIAN SMALL LETTER SHA
+00578	ARMENIAN SMALL LETTER VO
+00579	ARMENIAN SMALL LETTER CHA
+0057A	ARMENIAN SMALL LETTER PEH
+0057B	ARMENIAN SMALL LETTER JHEH
+0057C	ARMENIAN SMALL LETTER RA
+0057D	ARMENIAN SMALL LETTER SEH
+0057E	ARMENIAN SMALL LETTER VEW
+0057F	ARMENIAN SMALL LETTER TIWN
+00580	ARMENIAN SMALL LETTER REH
+00581	ARMENIAN SMALL LETTER CO
+00582	ARMENIAN SMALL LETTER YIWN
+00583	ARMENIAN SMALL LETTER PIWR
+00584	ARMENIAN SMALL LETTER KEH
+00585	ARMENIAN SMALL LETTER OH
+00586	ARMENIAN SMALL LETTER FEH
+00587	ARMENIAN SMALL LIGATURE ECH YIWN
+00589	ARMENIAN FULL STOP
+0058A	ARMENIAN HYPHEN
+0058D	RIGHT-FACING ARMENIAN ETERNITY SIGN
+0058E	LEFT-FACING ARMENIAN ETERNITY SIGN
+0058F	ARMENIAN DRAM SIGN
+00591	HEBREW ACCENT ETNAHTA
+00592	HEBREW ACCENT SEGOL
+00593	HEBREW ACCENT SHALSHELET
+00594	HEBREW ACCENT ZAQEF QATAN
+00595	HEBREW ACCENT ZAQEF GADOL
+00596	HEBREW ACCENT TIPEHA
+00597	HEBREW ACCENT REVIA
+00598	HEBREW ACCENT ZARQA
+00599	HEBREW ACCENT PASHTA
+0059A	HEBREW ACCENT YETIV
+0059B	HEBREW ACCENT TEVIR
+0059C	HEBREW ACCENT GERESH
+0059D	HEBREW ACCENT GERESH MUQDAM
+0059E	HEBREW ACCENT GERSHAYIM
+0059F	HEBREW ACCENT QARNEY PARA
+005A0	HEBREW ACCENT TELISHA GEDOLA
+005A1	HEBREW ACCENT PAZER
+005A2	HEBREW ACCENT ATNAH HAFUKH
+005A3	HEBREW ACCENT MUNAH
+005A4	HEBREW ACCENT MAHAPAKH
+005A5	HEBREW ACCENT MERKHA
+005A6	HEBREW ACCENT MERKHA KEFULA
+005A7	HEBREW ACCENT DARGA
+005A8	HEBREW ACCENT QADMA
+005A9	HEBREW ACCENT TELISHA QETANA
+005AA	HEBREW ACCENT YERAH BEN YOMO
+005AB	HEBREW ACCENT OLE
+005AC	HEBREW ACCENT ILUY
+005AD	HEBREW ACCENT DEHI
+005AE	HEBREW ACCENT ZINOR
+005AF	HEBREW MARK MASORA CIRCLE
+005B0	HEBREW POINT SHEVA
+005B1	HEBREW POINT HATAF SEGOL
+005B2	HEBREW POINT HATAF PATAH
+005B3	HEBREW POINT HATAF QAMATS
+005B4	HEBREW POINT HIRIQ
+005B5	HEBREW POINT TSERE
+005B6	HEBREW POINT SEGOL
+005B7	HEBREW POINT PATAH
+005B8	HEBREW POINT QAMATS
+005B9	HEBREW POINT HOLAM
+005BA	HEBREW POINT HOLAM HASER FOR VAV
+005BB	HEBREW POINT QUBUTS
+005BC	HEBREW POINT DAGESH OR MAPIQ
+005BD	HEBREW POINT METEG
+005BE	HEBREW PUNCTUATION MAQAF
+005BF	HEBREW POINT RAFE
+005C0	HEBREW PUNCTUATION PASEQ
+005C1	HEBREW POINT SHIN DOT
+005C2	HEBREW POINT SIN DOT
+005C3	HEBREW PUNCTUATION SOF PASUQ
+005C4	HEBREW MARK UPPER DOT
+005C5	HEBREW MARK LOWER DOT
+005C6	HEBREW PUNCTUATION NUN HAFUKHA
+005C7	HEBREW POINT QAMATS QATAN
+005D0	HEBREW LETTER ALEF
+005D1	HEBREW LETTER BET
+005D2	HEBREW LETTER GIMEL
+005D3	HEBREW LETTER DALET
+005D4	HEBREW LETTER HE
+005D5	HEBREW LETTER VAV
+005D6	HEBREW LETTER ZAYIN
+005D7	HEBREW LETTER HET
+005D8	HEBREW LETTER TET
+005D9	HEBREW LETTER YOD
+005DA	HEBREW LETTER FINAL KAF
+005DB	HEBREW LETTER KAF
+005DC	HEBREW LETTER LAMED
+005DD	HEBREW LETTER FINAL MEM
+005DE	HEBREW LETTER MEM
+005DF	HEBREW LETTER FINAL NUN
+005E0	HEBREW LETTER NUN
+005E1	HEBREW LETTER SAMEKH
+005E2	HEBREW LETTER AYIN
+005E3	HEBREW LETTER FINAL PE
+005E4	HEBREW LETTER PE
+005E5	HEBREW LETTER FINAL TSADI
+005E6	HEBREW LETTER TSADI
+005E7	HEBREW LETTER QOF
+005E8	HEBREW LETTER RESH
+005E9	HEBREW LETTER SHIN
+005EA	HEBREW LETTER TAV
+005F0	HEBREW LIGATURE YIDDISH DOUBLE VAV
+005F1	HEBREW LIGATURE YIDDISH VAV YOD
+005F2	HEBREW LIGATURE YIDDISH DOUBLE YOD
+005F3	HEBREW PUNCTUATION GERESH
+005F4	HEBREW PUNCTUATION GERSHAYIM
+00600	ARABIC NUMBER SIGN
+00601	ARABIC SIGN SANAH
+00602	ARABIC FOOTNOTE MARKER
+00603	ARABIC SIGN SAFHA
+00604	ARABIC SIGN SAMVAT
+00605	ARABIC NUMBER MARK ABOVE
+00606	ARABIC-INDIC CUBE ROOT
+00607	ARABIC-INDIC FOURTH ROOT
+00608	ARABIC RAY
+00609	ARABIC-INDIC PER MILLE SIGN
+0060A	ARABIC-INDIC PER TEN THOUSAND SIGN
+0060B	AFGHANI SIGN
+0060C	ARABIC COMMA
+0060D	ARABIC DATE SEPARATOR
+0060E	ARABIC POETIC VERSE SIGN
+0060F	ARABIC SIGN MISRA
+00610	ARABIC SIGN SALLALLAHOU ALAYHE WASSALLAM
+00611	ARABIC SIGN ALAYHE ASSALLAM
+00612	ARABIC SIGN RAHMATULLAH ALAYHE
+00613	ARABIC SIGN RADI ALLAHOU ANHU
+00614	ARABIC SIGN TAKHALLUS
+00615	ARABIC SMALL HIGH TAH
+00616	ARABIC SMALL HIGH LIGATURE ALEF WITH LAM WITH YEH
+00617	ARABIC SMALL HIGH ZAIN
+00618	ARABIC SMALL FATHA
+00619	ARABIC SMALL DAMMA
+0061A	ARABIC SMALL KASRA
+0061B	ARABIC SEMICOLON
+0061C	ARABIC LETTER MARK
+0061C	ALM
+0061E	ARABIC TRIPLE DOT PUNCTUATION MARK
+0061F	ARABIC QUESTION MARK
+00620	ARABIC LETTER KASHMIRI YEH
+00621	ARABIC LETTER HAMZA
+00622	ARABIC LETTER ALEF WITH MADDA ABOVE
+00623	ARABIC LETTER ALEF WITH HAMZA ABOVE
+00624	ARABIC LETTER WAW WITH HAMZA ABOVE
+00625	ARABIC LETTER ALEF WITH HAMZA BELOW
+00626	ARABIC LETTER YEH WITH HAMZA ABOVE
+00627	ARABIC LETTER ALEF
+00628	ARABIC LETTER BEH
+00629	ARABIC LETTER TEH MARBUTA
+0062A	ARABIC LETTER TEH
+0062B	ARABIC LETTER THEH
+0062C	ARABIC LETTER JEEM
+0062D	ARABIC LETTER HAH
+0062E	ARABIC LETTER KHAH
+0062F	ARABIC LETTER DAL
+00630	ARABIC LETTER THAL
+00631	ARABIC LETTER REH
+00632	ARABIC LETTER ZAIN
+00633	ARABIC LETTER SEEN
+00634	ARABIC LETTER SHEEN
+00635	ARABIC LETTER SAD
+00636	ARABIC LETTER DAD
+00637	ARABIC LETTER TAH
+00638	ARABIC LETTER ZAH
+00639	ARABIC LETTER AIN
+0063A	ARABIC LETTER GHAIN
+0063B	ARABIC LETTER KEHEH WITH TWO DOTS ABOVE
+0063C	ARABIC LETTER KEHEH WITH THREE DOTS BELOW
+0063D	ARABIC LETTER FARSI YEH WITH INVERTED V
+0063E	ARABIC LETTER FARSI YEH WITH TWO DOTS ABOVE
+0063F	ARABIC LETTER FARSI YEH WITH THREE DOTS ABOVE
+00640	ARABIC TATWEEL
+00641	ARABIC LETTER FEH
+00642	ARABIC LETTER QAF
+00643	ARABIC LETTER KAF
+00644	ARABIC LETTER LAM
+00645	ARABIC LETTER MEEM
+00646	ARABIC LETTER NOON
+00647	ARABIC LETTER HEH
+00648	ARABIC LETTER WAW
+00649	ARABIC LETTER ALEF MAKSURA
+0064A	ARABIC LETTER YEH
+0064B	ARABIC FATHATAN
+0064C	ARABIC DAMMATAN
+0064D	ARABIC KASRATAN
+0064E	ARABIC FATHA
+0064F	ARABIC DAMMA
+00650	ARABIC KASRA
+00651	ARABIC SHADDA
+00652	ARABIC SUKUN
+00653	ARABIC MADDAH ABOVE
+00654	ARABIC HAMZA ABOVE
+00655	ARABIC HAMZA BELOW
+00656	ARABIC SUBSCRIPT ALEF
+00657	ARABIC INVERTED DAMMA
+00658	ARABIC MARK NOON GHUNNA
+00659	ARABIC ZWARAKAY
+0065A	ARABIC VOWEL SIGN SMALL V ABOVE
+0065B	ARABIC VOWEL SIGN INVERTED SMALL V ABOVE
+0065C	ARABIC VOWEL SIGN DOT BELOW
+0065D	ARABIC REVERSED DAMMA
+0065E	ARABIC FATHA WITH TWO DOTS
+0065F	ARABIC WAVY HAMZA BELOW
+00660	ARABIC-INDIC DIGIT ZERO
+00661	ARABIC-INDIC DIGIT ONE
+00662	ARABIC-INDIC DIGIT TWO
+00663	ARABIC-INDIC DIGIT THREE
+00664	ARABIC-INDIC DIGIT FOUR
+00665	ARABIC-INDIC DIGIT FIVE
+00666	ARABIC-INDIC DIGIT SIX
+00667	ARABIC-INDIC DIGIT SEVEN
+00668	ARABIC-INDIC DIGIT EIGHT
+00669	ARABIC-INDIC DIGIT NINE
+0066A	ARABIC PERCENT SIGN
+0066B	ARABIC DECIMAL SEPARATOR
+0066C	ARABIC THOUSANDS SEPARATOR
+0066D	ARABIC FIVE POINTED STAR
+0066E	ARABIC LETTER DOTLESS BEH
+0066F	ARABIC LETTER DOTLESS QAF
+00670	ARABIC LETTER SUPERSCRIPT ALEF
+00671	ARABIC LETTER ALEF WASLA
+00672	ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE
+00673	ARABIC LETTER ALEF WITH WAVY HAMZA BELOW
+00674	ARABIC LETTER HIGH HAMZA
+00675	ARABIC LETTER HIGH HAMZA ALEF
+00676	ARABIC LETTER HIGH HAMZA WAW
+00677	ARABIC LETTER U WITH HAMZA ABOVE
+00678	ARABIC LETTER HIGH HAMZA YEH
+00679	ARABIC LETTER TTEH
+0067A	ARABIC LETTER TTEHEH
+0067B	ARABIC LETTER BEEH
+0067C	ARABIC LETTER TEH WITH RING
+0067D	ARABIC LETTER TEH WITH THREE DOTS ABOVE DOWNWARDS
+0067E	ARABIC LETTER PEH
+0067F	ARABIC LETTER TEHEH
+00680	ARABIC LETTER BEHEH
+00681	ARABIC LETTER HAH WITH HAMZA ABOVE
+00682	ARABIC LETTER HAH WITH TWO DOTS VERTICAL ABOVE
+00683	ARABIC LETTER NYEH
+00684	ARABIC LETTER DYEH
+00685	ARABIC LETTER HAH WITH THREE DOTS ABOVE
+00686	ARABIC LETTER TCHEH
+00687	ARABIC LETTER TCHEHEH
+00688	ARABIC LETTER DDAL
+00689	ARABIC LETTER DAL WITH RING
+0068A	ARABIC LETTER DAL WITH DOT BELOW
+0068B	ARABIC LETTER DAL WITH DOT BELOW AND SMALL TAH
+0068C	ARABIC LETTER DAHAL
+0068D	ARABIC LETTER DDAHAL
+0068E	ARABIC LETTER DUL
+0068F	ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARDS
+00690	ARABIC LETTER DAL WITH FOUR DOTS ABOVE
+00691	ARABIC LETTER RREH
+00692	ARABIC LETTER REH WITH SMALL V
+00693	ARABIC LETTER REH WITH RING
+00694	ARABIC LETTER REH WITH DOT BELOW
+00695	ARABIC LETTER REH WITH SMALL V BELOW
+00696	ARABIC LETTER REH WITH DOT BELOW AND DOT ABOVE
+00697	ARABIC LETTER REH WITH TWO DOTS ABOVE
+00698	ARABIC LETTER JEH
+00699	ARABIC LETTER REH WITH FOUR DOTS ABOVE
+0069A	ARABIC LETTER SEEN WITH DOT BELOW AND DOT ABOVE
+0069B	ARABIC LETTER SEEN WITH THREE DOTS BELOW
+0069C	ARABIC LETTER SEEN WITH THREE DOTS BELOW AND THREE DOTS ABOVE
+0069D	ARABIC LETTER SAD WITH TWO DOTS BELOW
+0069E	ARABIC LETTER SAD WITH THREE DOTS ABOVE
+0069F	ARABIC LETTER TAH WITH THREE DOTS ABOVE
+006A0	ARABIC LETTER AIN WITH THREE DOTS ABOVE
+006A1	ARABIC LETTER DOTLESS FEH
+006A2	ARABIC LETTER FEH WITH DOT MOVED BELOW
+006A3	ARABIC LETTER FEH WITH DOT BELOW
+006A4	ARABIC LETTER VEH
+006A5	ARABIC LETTER FEH WITH THREE DOTS BELOW
+006A6	ARABIC LETTER PEHEH
+006A7	ARABIC LETTER QAF WITH DOT ABOVE
+006A8	ARABIC LETTER QAF WITH THREE DOTS ABOVE
+006A9	ARABIC LETTER KEHEH
+006AA	ARABIC LETTER SWASH KAF
+006AB	ARABIC LETTER KAF WITH RING
+006AC	ARABIC LETTER KAF WITH DOT ABOVE
+006AD	ARABIC LETTER NG
+006AE	ARABIC LETTER KAF WITH THREE DOTS BELOW
+006AF	ARABIC LETTER GAF
+006B0	ARABIC LETTER GAF WITH RING
+006B1	ARABIC LETTER NGOEH
+006B2	ARABIC LETTER GAF WITH TWO DOTS BELOW
+006B3	ARABIC LETTER GUEH
+006B4	ARABIC LETTER GAF WITH THREE DOTS ABOVE
+006B5	ARABIC LETTER LAM WITH SMALL V
+006B6	ARABIC LETTER LAM WITH DOT ABOVE
+006B7	ARABIC LETTER LAM WITH THREE DOTS ABOVE
+006B8	ARABIC LETTER LAM WITH THREE DOTS BELOW
+006B9	ARABIC LETTER NOON WITH DOT BELOW
+006BA	ARABIC LETTER NOON GHUNNA
+006BB	ARABIC LETTER RNOON
+006BC	ARABIC LETTER NOON WITH RING
+006BD	ARABIC LETTER NOON WITH THREE DOTS ABOVE
+006BE	ARABIC LETTER HEH DOACHASHMEE
+006BF	ARABIC LETTER TCHEH WITH DOT ABOVE
+006C0	ARABIC LETTER HEH WITH YEH ABOVE
+006C1	ARABIC LETTER HEH GOAL
+006C2	ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+006C3	ARABIC LETTER TEH MARBUTA GOAL
+006C4	ARABIC LETTER WAW WITH RING
+006C5	ARABIC LETTER KIRGHIZ OE
+006C6	ARABIC LETTER OE
+006C7	ARABIC LETTER U
+006C8	ARABIC LETTER YU
+006C9	ARABIC LETTER KIRGHIZ YU
+006CA	ARABIC LETTER WAW WITH TWO DOTS ABOVE
+006CB	ARABIC LETTER VE
+006CC	ARABIC LETTER FARSI YEH
+006CD	ARABIC LETTER YEH WITH TAIL
+006CE	ARABIC LETTER YEH WITH SMALL V
+006CF	ARABIC LETTER WAW WITH DOT ABOVE
+006D0	ARABIC LETTER E
+006D1	ARABIC LETTER YEH WITH THREE DOTS BELOW
+006D2	ARABIC LETTER YEH BARREE
+006D3	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+006D4	ARABIC FULL STOP
+006D5	ARABIC LETTER AE
+006D6	ARABIC SMALL HIGH LIGATURE SAD WITH LAM WITH ALEF MAKSURA
+006D7	ARABIC SMALL HIGH LIGATURE QAF WITH LAM WITH ALEF MAKSURA
+006D8	ARABIC SMALL HIGH MEEM INITIAL FORM
+006D9	ARABIC SMALL HIGH LAM ALEF
+006DA	ARABIC SMALL HIGH JEEM
+006DB	ARABIC SMALL HIGH THREE DOTS
+006DC	ARABIC SMALL HIGH SEEN
+006DD	ARABIC END OF AYAH
+006DE	ARABIC START OF RUB EL HIZB
+006DF	ARABIC SMALL HIGH ROUNDED ZERO
+006E0	ARABIC SMALL HIGH UPRIGHT RECTANGULAR ZERO
+006E1	ARABIC SMALL HIGH DOTLESS HEAD OF KHAH
+006E2	ARABIC SMALL HIGH MEEM ISOLATED FORM
+006E3	ARABIC SMALL LOW SEEN
+006E4	ARABIC SMALL HIGH MADDA
+006E5	ARABIC SMALL WAW
+006E6	ARABIC SMALL YEH
+006E7	ARABIC SMALL HIGH YEH
+006E8	ARABIC SMALL HIGH NOON
+006E9	ARABIC PLACE OF SAJDAH
+006EA	ARABIC EMPTY CENTRE LOW STOP
+006EB	ARABIC EMPTY CENTRE HIGH STOP
+006EC	ARABIC ROUNDED HIGH STOP WITH FILLED CENTRE
+006ED	ARABIC SMALL LOW MEEM
+006EE	ARABIC LETTER DAL WITH INVERTED V
+006EF	ARABIC LETTER REH WITH INVERTED V
+006F0	EXTENDED ARABIC-INDIC DIGIT ZERO
+006F1	EXTENDED ARABIC-INDIC DIGIT ONE
+006F2	EXTENDED ARABIC-INDIC DIGIT TWO
+006F3	EXTENDED ARABIC-INDIC DIGIT THREE
+006F4	EXTENDED ARABIC-INDIC DIGIT FOUR
+006F5	EXTENDED ARABIC-INDIC DIGIT FIVE
+006F6	EXTENDED ARABIC-INDIC DIGIT SIX
+006F7	EXTENDED ARABIC-INDIC DIGIT SEVEN
+006F8	EXTENDED ARABIC-INDIC DIGIT EIGHT
+006F9	EXTENDED ARABIC-INDIC DIGIT NINE
+006FA	ARABIC LETTER SHEEN WITH DOT BELOW
+006FB	ARABIC LETTER DAD WITH DOT BELOW
+006FC	ARABIC LETTER GHAIN WITH DOT BELOW
+006FD	ARABIC SIGN SINDHI AMPERSAND
+006FE	ARABIC SIGN SINDHI POSTPOSITION MEN
+006FF	ARABIC LETTER HEH WITH INVERTED V
+00700	SYRIAC END OF PARAGRAPH
+00701	SYRIAC SUPRALINEAR FULL STOP
+00702	SYRIAC SUBLINEAR FULL STOP
+00703	SYRIAC SUPRALINEAR COLON
+00704	SYRIAC SUBLINEAR COLON
+00705	SYRIAC HORIZONTAL COLON
+00706	SYRIAC COLON SKEWED LEFT
+00707	SYRIAC COLON SKEWED RIGHT
+00708	SYRIAC SUPRALINEAR COLON SKEWED LEFT
+00709	SYRIAC SUBLINEAR COLON SKEWED LEFT
+00709	SYRIAC SUBLINEAR COLON SKEWED RIGHT
+0070A	SYRIAC CONTRACTION
+0070B	SYRIAC HARKLEAN OBELUS
+0070C	SYRIAC HARKLEAN METOBELUS
+0070D	SYRIAC HARKLEAN ASTERISCUS
+0070F	SYRIAC ABBREVIATION MARK
+00710	SYRIAC LETTER ALAPH
+00711	SYRIAC LETTER SUPERSCRIPT ALAPH
+00712	SYRIAC LETTER BETH
+00713	SYRIAC LETTER GAMAL
+00714	SYRIAC LETTER GAMAL GARSHUNI
+00715	SYRIAC LETTER DALATH
+00716	SYRIAC LETTER DOTLESS DALATH RISH
+00717	SYRIAC LETTER HE
+00718	SYRIAC LETTER WAW
+00719	SYRIAC LETTER ZAIN
+0071A	SYRIAC LETTER HETH
+0071B	SYRIAC LETTER TETH
+0071C	SYRIAC LETTER TETH GARSHUNI
+0071D	SYRIAC LETTER YUDH
+0071E	SYRIAC LETTER YUDH HE
+0071F	SYRIAC LETTER KAPH
+00720	SYRIAC LETTER LAMADH
+00721	SYRIAC LETTER MIM
+00722	SYRIAC LETTER NUN
+00723	SYRIAC LETTER SEMKATH
+00724	SYRIAC LETTER FINAL SEMKATH
+00725	SYRIAC LETTER E
+00726	SYRIAC LETTER PE
+00727	SYRIAC LETTER REVERSED PE
+00728	SYRIAC LETTER SADHE
+00729	SYRIAC LETTER QAPH
+0072A	SYRIAC LETTER RISH
+0072B	SYRIAC LETTER SHIN
+0072C	SYRIAC LETTER TAW
+0072D	SYRIAC LETTER PERSIAN BHETH
+0072E	SYRIAC LETTER PERSIAN GHAMAL
+0072F	SYRIAC LETTER PERSIAN DHALATH
+00730	SYRIAC PTHAHA ABOVE
+00731	SYRIAC PTHAHA BELOW
+00732	SYRIAC PTHAHA DOTTED
+00733	SYRIAC ZQAPHA ABOVE
+00734	SYRIAC ZQAPHA BELOW
+00735	SYRIAC ZQAPHA DOTTED
+00736	SYRIAC RBASA ABOVE
+00737	SYRIAC RBASA BELOW
+00738	SYRIAC DOTTED ZLAMA HORIZONTAL
+00739	SYRIAC DOTTED ZLAMA ANGULAR
+0073A	SYRIAC HBASA ABOVE
+0073B	SYRIAC HBASA BELOW
+0073C	SYRIAC HBASA-ESASA DOTTED
+0073D	SYRIAC ESASA ABOVE
+0073E	SYRIAC ESASA BELOW
+0073F	SYRIAC RWAHA
+00740	SYRIAC FEMININE DOT
+00741	SYRIAC QUSHSHAYA
+00742	SYRIAC RUKKAKHA
+00743	SYRIAC TWO VERTICAL DOTS ABOVE
+00744	SYRIAC TWO VERTICAL DOTS BELOW
+00745	SYRIAC THREE DOTS ABOVE
+00746	SYRIAC THREE DOTS BELOW
+00747	SYRIAC OBLIQUE LINE ABOVE
+00748	SYRIAC OBLIQUE LINE BELOW
+00749	SYRIAC MUSIC
+0074A	SYRIAC BARREKH
+0074D	SYRIAC LETTER SOGDIAN ZHAIN
+0074E	SYRIAC LETTER SOGDIAN KHAPH
+0074F	SYRIAC LETTER SOGDIAN FE
+00750	ARABIC LETTER BEH WITH THREE DOTS HORIZONTALLY BELOW
+00751	ARABIC LETTER BEH WITH DOT BELOW AND THREE DOTS ABOVE
+00752	ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW
+00753	ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW AND TWO DOTS ABOVE
+00754	ARABIC LETTER BEH WITH TWO DOTS BELOW AND DOT ABOVE
+00755	ARABIC LETTER BEH WITH INVERTED SMALL V BELOW
+00756	ARABIC LETTER BEH WITH SMALL V
+00757	ARABIC LETTER HAH WITH TWO DOTS ABOVE
+00758	ARABIC LETTER HAH WITH THREE DOTS POINTING UPWARDS BELOW
+00759	ARABIC LETTER DAL WITH TWO DOTS VERTICALLY BELOW AND SMALL TAH
+0075A	ARABIC LETTER DAL WITH INVERTED SMALL V BELOW
+0075B	ARABIC LETTER REH WITH STROKE
+0075C	ARABIC LETTER SEEN WITH FOUR DOTS ABOVE
+0075D	ARABIC LETTER AIN WITH TWO DOTS ABOVE
+0075E	ARABIC LETTER AIN WITH THREE DOTS POINTING DOWNWARDS ABOVE
+0075F	ARABIC LETTER AIN WITH TWO DOTS VERTICALLY ABOVE
+00760	ARABIC LETTER FEH WITH TWO DOTS BELOW
+00761	ARABIC LETTER FEH WITH THREE DOTS POINTING UPWARDS BELOW
+00762	ARABIC LETTER KEHEH WITH DOT ABOVE
+00763	ARABIC LETTER KEHEH WITH THREE DOTS ABOVE
+00764	ARABIC LETTER KEHEH WITH THREE DOTS POINTING UPWARDS BELOW
+00765	ARABIC LETTER MEEM WITH DOT ABOVE
+00766	ARABIC LETTER MEEM WITH DOT BELOW
+00767	ARABIC LETTER NOON WITH TWO DOTS BELOW
+00768	ARABIC LETTER NOON WITH SMALL TAH
+00769	ARABIC LETTER NOON WITH SMALL V
+0076A	ARABIC LETTER LAM WITH BAR
+0076B	ARABIC LETTER REH WITH TWO DOTS VERTICALLY ABOVE
+0076C	ARABIC LETTER REH WITH HAMZA ABOVE
+0076D	ARABIC LETTER SEEN WITH TWO DOTS VERTICALLY ABOVE
+0076E	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH BELOW
+0076F	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00770	ARABIC LETTER SEEN WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00771	ARABIC LETTER REH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00772	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH ABOVE
+00773	ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00774	ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+00775	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00776	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+00777	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+00778	ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00779	ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0077A	ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+0077B	ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0077C	ARABIC LETTER HAH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+0077D	ARABIC LETTER SEEN WITH EXTENDED ARABIC-INDIC DIGIT FOUR ABOVE
+0077E	ARABIC LETTER SEEN WITH INVERTED V
+0077F	ARABIC LETTER KAF WITH TWO DOTS ABOVE
+00780	THAANA LETTER HAA
+00781	THAANA LETTER SHAVIYANI
+00782	THAANA LETTER NOONU
+00783	THAANA LETTER RAA
+00784	THAANA LETTER BAA
+00785	THAANA LETTER LHAVIYANI
+00786	THAANA LETTER KAAFU
+00787	THAANA LETTER ALIFU
+00788	THAANA LETTER VAAVU
+00789	THAANA LETTER MEEMU
+0078A	THAANA LETTER FAAFU
+0078B	THAANA LETTER DHAALU
+0078C	THAANA LETTER THAA
+0078D	THAANA LETTER LAAMU
+0078E	THAANA LETTER GAAFU
+0078F	THAANA LETTER GNAVIYANI
+00790	THAANA LETTER SEENU
+00791	THAANA LETTER DAVIYANI
+00792	THAANA LETTER ZAVIYANI
+00793	THAANA LETTER TAVIYANI
+00794	THAANA LETTER YAA
+00795	THAANA LETTER PAVIYANI
+00796	THAANA LETTER JAVIYANI
+00797	THAANA LETTER CHAVIYANI
+00798	THAANA LETTER TTAA
+00799	THAANA LETTER HHAA
+0079A	THAANA LETTER KHAA
+0079B	THAANA LETTER THAALU
+0079C	THAANA LETTER ZAA
+0079D	THAANA LETTER SHEENU
+0079E	THAANA LETTER SAADHU
+0079F	THAANA LETTER DAADHU
+007A0	THAANA LETTER TO
+007A1	THAANA LETTER ZO
+007A2	THAANA LETTER AINU
+007A3	THAANA LETTER GHAINU
+007A4	THAANA LETTER QAAFU
+007A5	THAANA LETTER WAAVU
+007A6	THAANA ABAFILI
+007A7	THAANA AABAAFILI
+007A8	THAANA IBIFILI
+007A9	THAANA EEBEEFILI
+007AA	THAANA UBUFILI
+007AB	THAANA OOBOOFILI
+007AC	THAANA EBEFILI
+007AD	THAANA EYBEYFILI
+007AE	THAANA OBOFILI
+007AF	THAANA OABOAFILI
+007B0	THAANA SUKUN
+007B1	THAANA LETTER NAA
+007C0	NKO DIGIT ZERO
+007C1	NKO DIGIT ONE
+007C2	NKO DIGIT TWO
+007C3	NKO DIGIT THREE
+007C4	NKO DIGIT FOUR
+007C5	NKO DIGIT FIVE
+007C6	NKO DIGIT SIX
+007C7	NKO DIGIT SEVEN
+007C8	NKO DIGIT EIGHT
+007C9	NKO DIGIT NINE
+007CA	NKO LETTER A
+007CB	NKO LETTER EE
+007CC	NKO LETTER I
+007CD	NKO LETTER E
+007CE	NKO LETTER U
+007CF	NKO LETTER OO
+007D0	NKO LETTER O
+007D1	NKO LETTER DAGBASINNA
+007D2	NKO LETTER N
+007D3	NKO LETTER BA
+007D4	NKO LETTER PA
+007D5	NKO LETTER TA
+007D6	NKO LETTER JA
+007D7	NKO LETTER CHA
+007D8	NKO LETTER DA
+007D9	NKO LETTER RA
+007DA	NKO LETTER RRA
+007DB	NKO LETTER SA
+007DC	NKO LETTER GBA
+007DD	NKO LETTER FA
+007DE	NKO LETTER KA
+007DF	NKO LETTER LA
+007E0	NKO LETTER NA WOLOSO
+007E1	NKO LETTER MA
+007E2	NKO LETTER NYA
+007E3	NKO LETTER NA
+007E4	NKO LETTER HA
+007E5	NKO LETTER WA
+007E6	NKO LETTER YA
+007E7	NKO LETTER NYA WOLOSO
+007E8	NKO LETTER JONA JA
+007E9	NKO LETTER JONA CHA
+007EA	NKO LETTER JONA RA
+007EB	NKO COMBINING SHORT HIGH TONE
+007EC	NKO COMBINING SHORT LOW TONE
+007ED	NKO COMBINING SHORT RISING TONE
+007EE	NKO COMBINING LONG DESCENDING TONE
+007EF	NKO COMBINING LONG HIGH TONE
+007F0	NKO COMBINING LONG LOW TONE
+007F1	NKO COMBINING LONG RISING TONE
+007F2	NKO COMBINING NASALIZATION MARK
+007F3	NKO COMBINING DOUBLE DOT ABOVE
+007F4	NKO HIGH TONE APOSTROPHE
+007F5	NKO LOW TONE APOSTROPHE
+007F6	NKO SYMBOL OO DENNEN
+007F7	NKO SYMBOL GBAKURUNEN
+007F8	NKO COMMA
+007F9	NKO EXCLAMATION MARK
+007FA	NKO LAJANYALAN
+00800	SAMARITAN LETTER ALAF
+00801	SAMARITAN LETTER BIT
+00802	SAMARITAN LETTER GAMAN
+00803	SAMARITAN LETTER DALAT
+00804	SAMARITAN LETTER IY
+00805	SAMARITAN LETTER BAA
+00806	SAMARITAN LETTER ZEN
+00807	SAMARITAN LETTER IT
+00808	SAMARITAN LETTER TIT
+00809	SAMARITAN LETTER YUT
+0080A	SAMARITAN LETTER KAAF
+0080B	SAMARITAN LETTER LABAT
+0080C	SAMARITAN LETTER MIM
+0080D	SAMARITAN LETTER NUN
+0080E	SAMARITAN LETTER SINGAAT
+0080F	SAMARITAN LETTER IN
+00810	SAMARITAN LETTER FI
+00811	SAMARITAN LETTER TSAADIY
+00812	SAMARITAN LETTER QUF
+00813	SAMARITAN LETTER RISH
+00814	SAMARITAN LETTER SHAN
+00815	SAMARITAN LETTER TAAF
+00816	SAMARITAN MARK IN
+00817	SAMARITAN MARK IN-ALAF
+00818	SAMARITAN MARK OCCLUSION
+00819	SAMARITAN MARK DAGESH
+0081A	SAMARITAN MODIFIER LETTER EPENTHETIC YUT
+0081B	SAMARITAN MARK EPENTHETIC YUT
+0081C	SAMARITAN VOWEL SIGN LONG E
+0081D	SAMARITAN VOWEL SIGN E
+0081E	SAMARITAN VOWEL SIGN OVERLONG AA
+0081F	SAMARITAN VOWEL SIGN LONG AA
+00820	SAMARITAN VOWEL SIGN AA
+00821	SAMARITAN VOWEL SIGN OVERLONG A
+00822	SAMARITAN VOWEL SIGN LONG A
+00823	SAMARITAN VOWEL SIGN A
+00824	SAMARITAN MODIFIER LETTER SHORT A
+00825	SAMARITAN VOWEL SIGN SHORT A
+00826	SAMARITAN VOWEL SIGN LONG U
+00827	SAMARITAN VOWEL SIGN U
+00828	SAMARITAN MODIFIER LETTER I
+00829	SAMARITAN VOWEL SIGN LONG I
+0082A	SAMARITAN VOWEL SIGN I
+0082B	SAMARITAN VOWEL SIGN O
+0082C	SAMARITAN VOWEL SIGN SUKUN
+0082D	SAMARITAN MARK NEQUDAA
+00830	SAMARITAN PUNCTUATION NEQUDAA
+00831	SAMARITAN PUNCTUATION AFSAAQ
+00832	SAMARITAN PUNCTUATION ANGED
+00833	SAMARITAN PUNCTUATION BAU
+00834	SAMARITAN PUNCTUATION ATMAAU
+00835	SAMARITAN PUNCTUATION SHIYYAALAA
+00836	SAMARITAN ABBREVIATION MARK
+00837	SAMARITAN PUNCTUATION MELODIC QITSA
+00838	SAMARITAN PUNCTUATION ZIQAA
+00839	SAMARITAN PUNCTUATION QITSA
+0083A	SAMARITAN PUNCTUATION ZAEF
+0083B	SAMARITAN PUNCTUATION TURU
+0083C	SAMARITAN PUNCTUATION ARKAANU
+0083D	SAMARITAN PUNCTUATION SOF MASHFAAT
+0083E	SAMARITAN PUNCTUATION ANNAAU
+00840	MANDAIC LETTER HALQA
+00841	MANDAIC LETTER AB
+00842	MANDAIC LETTER AG
+00843	MANDAIC LETTER AD
+00844	MANDAIC LETTER AH
+00845	MANDAIC LETTER USHENNA
+00846	MANDAIC LETTER AZ
+00847	MANDAIC LETTER IT
+00848	MANDAIC LETTER ATT
+00849	MANDAIC LETTER AKSA
+0084A	MANDAIC LETTER AK
+0084B	MANDAIC LETTER AL
+0084C	MANDAIC LETTER AM
+0084D	MANDAIC LETTER AN
+0084E	MANDAIC LETTER AS
+0084F	MANDAIC LETTER IN
+00850	MANDAIC LETTER AP
+00851	MANDAIC LETTER ASZ
+00852	MANDAIC LETTER AQ
+00853	MANDAIC LETTER AR
+00854	MANDAIC LETTER ASH
+00855	MANDAIC LETTER AT
+00856	MANDAIC LETTER DUSHENNA
+00857	MANDAIC LETTER KAD
+00858	MANDAIC LETTER AIN
+00859	MANDAIC AFFRICATION MARK
+0085A	MANDAIC VOCALIZATION MARK
+0085B	MANDAIC GEMINATION MARK
+0085E	MANDAIC PUNCTUATION
+00860	SYRIAC LETTER MALAYALAM NGA
+00861	SYRIAC LETTER MALAYALAM JA
+00862	SYRIAC LETTER MALAYALAM NYA
+00863	SYRIAC LETTER MALAYALAM TTA
+00864	SYRIAC LETTER MALAYALAM NNA
+00865	SYRIAC LETTER MALAYALAM NNNA
+00866	SYRIAC LETTER MALAYALAM BHA
+00867	SYRIAC LETTER MALAYALAM RA
+00868	SYRIAC LETTER MALAYALAM LLA
+00869	SYRIAC LETTER MALAYALAM LLLA
+0086A	SYRIAC LETTER MALAYALAM SSA
+008A0	ARABIC LETTER BEH WITH SMALL V BELOW
+008A1	ARABIC LETTER BEH WITH HAMZA ABOVE
+008A2	ARABIC LETTER JEEM WITH TWO DOTS ABOVE
+008A3	ARABIC LETTER TAH WITH TWO DOTS ABOVE
+008A4	ARABIC LETTER FEH WITH DOT BELOW AND THREE DOTS ABOVE
+008A5	ARABIC LETTER QAF WITH DOT BELOW
+008A6	ARABIC LETTER LAM WITH DOUBLE BAR
+008A7	ARABIC LETTER MEEM WITH THREE DOTS ABOVE
+008A8	ARABIC LETTER YEH WITH TWO DOTS BELOW AND HAMZA ABOVE
+008A9	ARABIC LETTER YEH WITH TWO DOTS BELOW AND DOT ABOVE
+008AA	ARABIC LETTER REH WITH LOOP
+008AB	ARABIC LETTER WAW WITH DOT WITHIN
+008AC	ARABIC LETTER ROHINGYA YEH
+008AD	ARABIC LETTER LOW ALEF
+008AE	ARABIC LETTER DAL WITH THREE DOTS BELOW
+008AF	ARABIC LETTER SAD WITH THREE DOTS BELOW
+008B0	ARABIC LETTER GAF WITH INVERTED STROKE
+008B1	ARABIC LETTER STRAIGHT WAW
+008B2	ARABIC LETTER ZAIN WITH INVERTED V ABOVE
+008B3	ARABIC LETTER AIN WITH THREE DOTS BELOW
+008B4	ARABIC LETTER KAF WITH DOT BELOW
+008B6	ARABIC LETTER BEH WITH SMALL MEEM ABOVE
+008B7	ARABIC LETTER PEH WITH SMALL MEEM ABOVE
+008B8	ARABIC LETTER TEH WITH SMALL TEH ABOVE
+008B9	ARABIC LETTER REH WITH SMALL NOON ABOVE
+008BA	ARABIC LETTER YEH WITH TWO DOTS BELOW AND SMALL NOON ABOVE
+008BB	ARABIC LETTER AFRICAN FEH
+008BC	ARABIC LETTER AFRICAN QAF
+008BD	ARABIC LETTER AFRICAN NOON
+008D4	ARABIC SMALL HIGH WORD AR-RUB
+008D5	ARABIC SMALL HIGH SAD
+008D6	ARABIC SMALL HIGH AIN
+008D7	ARABIC SMALL HIGH QAF
+008D8	ARABIC SMALL HIGH NOON WITH KASRA
+008D9	ARABIC SMALL LOW NOON WITH KASRA
+008DA	ARABIC SMALL HIGH WORD ATH-THALATHA
+008DB	ARABIC SMALL HIGH WORD AS-SAJDA
+008DC	ARABIC SMALL HIGH WORD AN-NISF
+008DD	ARABIC SMALL HIGH WORD SAKTA
+008DE	ARABIC SMALL HIGH WORD QIF
+008DF	ARABIC SMALL HIGH WORD WAQFA
+008E0	ARABIC SMALL HIGH FOOTNOTE MARKER
+008E1	ARABIC SMALL HIGH SIGN SAFHA
+008E2	ARABIC DISPUTED END OF AYAH
+008E3	ARABIC TURNED DAMMA BELOW
+008E4	ARABIC CURLY FATHA
+008E5	ARABIC CURLY DAMMA
+008E6	ARABIC CURLY KASRA
+008E7	ARABIC CURLY FATHATAN
+008E8	ARABIC CURLY DAMMATAN
+008E9	ARABIC CURLY KASRATAN
+008EA	ARABIC TONE ONE DOT ABOVE
+008EB	ARABIC TONE TWO DOTS ABOVE
+008EC	ARABIC TONE LOOP ABOVE
+008ED	ARABIC TONE ONE DOT BELOW
+008EE	ARABIC TONE TWO DOTS BELOW
+008EF	ARABIC TONE LOOP BELOW
+008F0	ARABIC OPEN FATHATAN
+008F1	ARABIC OPEN DAMMATAN
+008F2	ARABIC OPEN KASRATAN
+008F3	ARABIC SMALL HIGH WAW
+008F4	ARABIC FATHA WITH RING
+008F5	ARABIC FATHA WITH DOT ABOVE
+008F6	ARABIC KASRA WITH DOT BELOW
+008F7	ARABIC LEFT ARROWHEAD ABOVE
+008F8	ARABIC RIGHT ARROWHEAD ABOVE
+008F9	ARABIC LEFT ARROWHEAD BELOW
+008FA	ARABIC RIGHT ARROWHEAD BELOW
+008FB	ARABIC DOUBLE RIGHT ARROWHEAD ABOVE
+008FC	ARABIC DOUBLE RIGHT ARROWHEAD ABOVE WITH DOT
+008FD	ARABIC RIGHT ARROWHEAD ABOVE WITH DOT
+008FE	ARABIC DAMMA WITH DOT
+008FF	ARABIC MARK SIDEWAYS NOON GHUNNA
+00900	DEVANAGARI SIGN INVERTED CANDRABINDU
+00901	DEVANAGARI SIGN CANDRABINDU
+00902	DEVANAGARI SIGN ANUSVARA
+00903	DEVANAGARI SIGN VISARGA
+00904	DEVANAGARI LETTER SHORT A
+00905	DEVANAGARI LETTER A
+00906	DEVANAGARI LETTER AA
+00907	DEVANAGARI LETTER I
+00908	DEVANAGARI LETTER II
+00909	DEVANAGARI LETTER U
+0090A	DEVANAGARI LETTER UU
+0090B	DEVANAGARI LETTER VOCALIC R
+0090C	DEVANAGARI LETTER VOCALIC L
+0090D	DEVANAGARI LETTER CANDRA E
+0090E	DEVANAGARI LETTER SHORT E
+0090F	DEVANAGARI LETTER E
+00910	DEVANAGARI LETTER AI
+00911	DEVANAGARI LETTER CANDRA O
+00912	DEVANAGARI LETTER SHORT O
+00913	DEVANAGARI LETTER O
+00914	DEVANAGARI LETTER AU
+00915	DEVANAGARI LETTER KA
+00916	DEVANAGARI LETTER KHA
+00917	DEVANAGARI LETTER GA
+00918	DEVANAGARI LETTER GHA
+00919	DEVANAGARI LETTER NGA
+0091A	DEVANAGARI LETTER CA
+0091B	DEVANAGARI LETTER CHA
+0091C	DEVANAGARI LETTER JA
+0091D	DEVANAGARI LETTER JHA
+0091E	DEVANAGARI LETTER NYA
+0091F	DEVANAGARI LETTER TTA
+00920	DEVANAGARI LETTER TTHA
+00921	DEVANAGARI LETTER DDA
+00922	DEVANAGARI LETTER DDHA
+00923	DEVANAGARI LETTER NNA
+00924	DEVANAGARI LETTER TA
+00925	DEVANAGARI LETTER THA
+00926	DEVANAGARI LETTER DA
+00927	DEVANAGARI LETTER DHA
+00928	DEVANAGARI LETTER NA
+00929	DEVANAGARI LETTER NNNA
+0092A	DEVANAGARI LETTER PA
+0092B	DEVANAGARI LETTER PHA
+0092C	DEVANAGARI LETTER BA
+0092D	DEVANAGARI LETTER BHA
+0092E	DEVANAGARI LETTER MA
+0092F	DEVANAGARI LETTER YA
+00930	DEVANAGARI LETTER RA
+00931	DEVANAGARI LETTER RRA
+00932	DEVANAGARI LETTER LA
+00933	DEVANAGARI LETTER LLA
+00934	DEVANAGARI LETTER LLLA
+00935	DEVANAGARI LETTER VA
+00936	DEVANAGARI LETTER SHA
+00937	DEVANAGARI LETTER SSA
+00938	DEVANAGARI LETTER SA
+00939	DEVANAGARI LETTER HA
+0093A	DEVANAGARI VOWEL SIGN OE
+0093B	DEVANAGARI VOWEL SIGN OOE
+0093C	DEVANAGARI SIGN NUKTA
+0093D	DEVANAGARI SIGN AVAGRAHA
+0093E	DEVANAGARI VOWEL SIGN AA
+0093F	DEVANAGARI VOWEL SIGN I
+00940	DEVANAGARI VOWEL SIGN II
+00941	DEVANAGARI VOWEL SIGN U
+00942	DEVANAGARI VOWEL SIGN UU
+00943	DEVANAGARI VOWEL SIGN VOCALIC R
+00944	DEVANAGARI VOWEL SIGN VOCALIC RR
+00945	DEVANAGARI VOWEL SIGN CANDRA E
+00946	DEVANAGARI VOWEL SIGN SHORT E
+00947	DEVANAGARI VOWEL SIGN E
+00948	DEVANAGARI VOWEL SIGN AI
+00949	DEVANAGARI VOWEL SIGN CANDRA O
+0094A	DEVANAGARI VOWEL SIGN SHORT O
+0094B	DEVANAGARI VOWEL SIGN O
+0094C	DEVANAGARI VOWEL SIGN AU
+0094D	DEVANAGARI SIGN VIRAMA
+0094E	DEVANAGARI VOWEL SIGN PRISHTHAMATRA E
+0094F	DEVANAGARI VOWEL SIGN AW
+00950	DEVANAGARI OM
+00951	DEVANAGARI STRESS SIGN UDATTA
+00952	DEVANAGARI STRESS SIGN ANUDATTA
+00953	DEVANAGARI GRAVE ACCENT
+00954	DEVANAGARI ACUTE ACCENT
+00955	DEVANAGARI VOWEL SIGN CANDRA LONG E
+00956	DEVANAGARI VOWEL SIGN UE
+00957	DEVANAGARI VOWEL SIGN UUE
+00958	DEVANAGARI LETTER QA
+00959	DEVANAGARI LETTER KHHA
+0095A	DEVANAGARI LETTER GHHA
+0095B	DEVANAGARI LETTER ZA
+0095C	DEVANAGARI LETTER DDDHA
+0095D	DEVANAGARI LETTER RHA
+0095E	DEVANAGARI LETTER FA
+0095F	DEVANAGARI LETTER YYA
+00960	DEVANAGARI LETTER VOCALIC RR
+00961	DEVANAGARI LETTER VOCALIC LL
+00962	DEVANAGARI VOWEL SIGN VOCALIC L
+00963	DEVANAGARI VOWEL SIGN VOCALIC LL
+00964	DEVANAGARI DANDA
+00965	DEVANAGARI DOUBLE DANDA
+00966	DEVANAGARI DIGIT ZERO
+00967	DEVANAGARI DIGIT ONE
+00968	DEVANAGARI DIGIT TWO
+00969	DEVANAGARI DIGIT THREE
+0096A	DEVANAGARI DIGIT FOUR
+0096B	DEVANAGARI DIGIT FIVE
+0096C	DEVANAGARI DIGIT SIX
+0096D	DEVANAGARI DIGIT SEVEN
+0096E	DEVANAGARI DIGIT EIGHT
+0096F	DEVANAGARI DIGIT NINE
+00970	DEVANAGARI ABBREVIATION SIGN
+00971	DEVANAGARI SIGN HIGH SPACING DOT
+00972	DEVANAGARI LETTER CANDRA A
+00973	DEVANAGARI LETTER OE
+00974	DEVANAGARI LETTER OOE
+00975	DEVANAGARI LETTER AW
+00976	DEVANAGARI LETTER UE
+00977	DEVANAGARI LETTER UUE
+00978	DEVANAGARI LETTER MARWARI DDA
+00979	DEVANAGARI LETTER ZHA
+0097A	DEVANAGARI LETTER HEAVY YA
+0097B	DEVANAGARI LETTER GGA
+0097C	DEVANAGARI LETTER JJA
+0097D	DEVANAGARI LETTER GLOTTAL STOP
+0097E	DEVANAGARI LETTER DDDA
+0097F	DEVANAGARI LETTER BBA
+00980	BENGALI ANJI
+00981	BENGALI SIGN CANDRABINDU
+00982	BENGALI SIGN ANUSVARA
+00983	BENGALI SIGN VISARGA
+00985	BENGALI LETTER A
+00986	BENGALI LETTER AA
+00987	BENGALI LETTER I
+00988	BENGALI LETTER II
+00989	BENGALI LETTER U
+0098A	BENGALI LETTER UU
+0098B	BENGALI LETTER VOCALIC R
+0098C	BENGALI LETTER VOCALIC L
+0098F	BENGALI LETTER E
+00990	BENGALI LETTER AI
+00993	BENGALI LETTER O
+00994	BENGALI LETTER AU
+00995	BENGALI LETTER KA
+00996	BENGALI LETTER KHA
+00997	BENGALI LETTER GA
+00998	BENGALI LETTER GHA
+00999	BENGALI LETTER NGA
+0099A	BENGALI LETTER CA
+0099B	BENGALI LETTER CHA
+0099C	BENGALI LETTER JA
+0099D	BENGALI LETTER JHA
+0099E	BENGALI LETTER NYA
+0099F	BENGALI LETTER TTA
+009A0	BENGALI LETTER TTHA
+009A1	BENGALI LETTER DDA
+009A2	BENGALI LETTER DDHA
+009A3	BENGALI LETTER NNA
+009A4	BENGALI LETTER TA
+009A5	BENGALI LETTER THA
+009A6	BENGALI LETTER DA
+009A7	BENGALI LETTER DHA
+009A8	BENGALI LETTER NA
+009AA	BENGALI LETTER PA
+009AB	BENGALI LETTER PHA
+009AC	BENGALI LETTER BA
+009AD	BENGALI LETTER BHA
+009AE	BENGALI LETTER MA
+009AF	BENGALI LETTER YA
+009B0	BENGALI LETTER RA
+009B2	BENGALI LETTER LA
+009B6	BENGALI LETTER SHA
+009B7	BENGALI LETTER SSA
+009B8	BENGALI LETTER SA
+009B9	BENGALI LETTER HA
+009BC	BENGALI SIGN NUKTA
+009BD	BENGALI SIGN AVAGRAHA
+009BE	BENGALI VOWEL SIGN AA
+009BF	BENGALI VOWEL SIGN I
+009C0	BENGALI VOWEL SIGN II
+009C1	BENGALI VOWEL SIGN U
+009C2	BENGALI VOWEL SIGN UU
+009C3	BENGALI VOWEL SIGN VOCALIC R
+009C4	BENGALI VOWEL SIGN VOCALIC RR
+009C7	BENGALI VOWEL SIGN E
+009C8	BENGALI VOWEL SIGN AI
+009CB	BENGALI VOWEL SIGN O
+009CC	BENGALI VOWEL SIGN AU
+009CD	BENGALI SIGN VIRAMA
+009CE	BENGALI LETTER KHANDA TA
+009D7	BENGALI AU LENGTH MARK
+009DC	BENGALI LETTER RRA
+009DD	BENGALI LETTER RHA
+009DF	BENGALI LETTER YYA
+009E0	BENGALI LETTER VOCALIC RR
+009E1	BENGALI LETTER VOCALIC LL
+009E2	BENGALI VOWEL SIGN VOCALIC L
+009E3	BENGALI VOWEL SIGN VOCALIC LL
+009E6	BENGALI DIGIT ZERO
+009E7	BENGALI DIGIT ONE
+009E8	BENGALI DIGIT TWO
+009E9	BENGALI DIGIT THREE
+009EA	BENGALI DIGIT FOUR
+009EB	BENGALI DIGIT FIVE
+009EC	BENGALI DIGIT SIX
+009ED	BENGALI DIGIT SEVEN
+009EE	BENGALI DIGIT EIGHT
+009EF	BENGALI DIGIT NINE
+009F0	BENGALI LETTER RA WITH MIDDLE DIAGONAL
+009F1	BENGALI LETTER RA WITH LOWER DIAGONAL
+009F2	BENGALI RUPEE MARK
+009F3	BENGALI RUPEE SIGN
+009F4	BENGALI CURRENCY NUMERATOR ONE
+009F5	BENGALI CURRENCY NUMERATOR TWO
+009F6	BENGALI CURRENCY NUMERATOR THREE
+009F7	BENGALI CURRENCY NUMERATOR FOUR
+009F8	BENGALI CURRENCY NUMERATOR ONE LESS THAN THE DENOMINATOR
+009F9	BENGALI CURRENCY DENOMINATOR SIXTEEN
+009FA	BENGALI ISSHAR
+009FB	BENGALI GANDA MARK
+009FC	BENGALI LETTER VEDIC ANUSVARA
+009FD	BENGALI ABBREVIATION SIGN
+00A01	GURMUKHI SIGN ADAK BINDI
+00A02	GURMUKHI SIGN BINDI
+00A03	GURMUKHI SIGN VISARGA
+00A05	GURMUKHI LETTER A
+00A06	GURMUKHI LETTER AA
+00A07	GURMUKHI LETTER I
+00A08	GURMUKHI LETTER II
+00A09	GURMUKHI LETTER U
+00A0A	GURMUKHI LETTER UU
+00A0F	GURMUKHI LETTER EE
+00A10	GURMUKHI LETTER AI
+00A13	GURMUKHI LETTER OO
+00A14	GURMUKHI LETTER AU
+00A15	GURMUKHI LETTER KA
+00A16	GURMUKHI LETTER KHA
+00A17	GURMUKHI LETTER GA
+00A18	GURMUKHI LETTER GHA
+00A19	GURMUKHI LETTER NGA
+00A1A	GURMUKHI LETTER CA
+00A1B	GURMUKHI LETTER CHA
+00A1C	GURMUKHI LETTER JA
+00A1D	GURMUKHI LETTER JHA
+00A1E	GURMUKHI LETTER NYA
+00A1F	GURMUKHI LETTER TTA
+00A20	GURMUKHI LETTER TTHA
+00A21	GURMUKHI LETTER DDA
+00A22	GURMUKHI LETTER DDHA
+00A23	GURMUKHI LETTER NNA
+00A24	GURMUKHI LETTER TA
+00A25	GURMUKHI LETTER THA
+00A26	GURMUKHI LETTER DA
+00A27	GURMUKHI LETTER DHA
+00A28	GURMUKHI LETTER NA
+00A2A	GURMUKHI LETTER PA
+00A2B	GURMUKHI LETTER PHA
+00A2C	GURMUKHI LETTER BA
+00A2D	GURMUKHI LETTER BHA
+00A2E	GURMUKHI LETTER MA
+00A2F	GURMUKHI LETTER YA
+00A30	GURMUKHI LETTER RA
+00A32	GURMUKHI LETTER LA
+00A33	GURMUKHI LETTER LLA
+00A35	GURMUKHI LETTER VA
+00A36	GURMUKHI LETTER SHA
+00A38	GURMUKHI LETTER SA
+00A39	GURMUKHI LETTER HA
+00A3C	GURMUKHI SIGN NUKTA
+00A3E	GURMUKHI VOWEL SIGN AA
+00A3F	GURMUKHI VOWEL SIGN I
+00A40	GURMUKHI VOWEL SIGN II
+00A41	GURMUKHI VOWEL SIGN U
+00A42	GURMUKHI VOWEL SIGN UU
+00A47	GURMUKHI VOWEL SIGN EE
+00A48	GURMUKHI VOWEL SIGN AI
+00A4B	GURMUKHI VOWEL SIGN OO
+00A4C	GURMUKHI VOWEL SIGN AU
+00A4D	GURMUKHI SIGN VIRAMA
+00A51	GURMUKHI SIGN UDAAT
+00A59	GURMUKHI LETTER KHHA
+00A5A	GURMUKHI LETTER GHHA
+00A5B	GURMUKHI LETTER ZA
+00A5C	GURMUKHI LETTER RRA
+00A5E	GURMUKHI LETTER FA
+00A66	GURMUKHI DIGIT ZERO
+00A67	GURMUKHI DIGIT ONE
+00A68	GURMUKHI DIGIT TWO
+00A69	GURMUKHI DIGIT THREE
+00A6A	GURMUKHI DIGIT FOUR
+00A6B	GURMUKHI DIGIT FIVE
+00A6C	GURMUKHI DIGIT SIX
+00A6D	GURMUKHI DIGIT SEVEN
+00A6E	GURMUKHI DIGIT EIGHT
+00A6F	GURMUKHI DIGIT NINE
+00A70	GURMUKHI TIPPI
+00A71	GURMUKHI ADDAK
+00A72	GURMUKHI IRI
+00A73	GURMUKHI URA
+00A74	GURMUKHI EK ONKAR
+00A75	GURMUKHI SIGN YAKASH
+00A81	GUJARATI SIGN CANDRABINDU
+00A82	GUJARATI SIGN ANUSVARA
+00A83	GUJARATI SIGN VISARGA
+00A85	GUJARATI LETTER A
+00A86	GUJARATI LETTER AA
+00A87	GUJARATI LETTER I
+00A88	GUJARATI LETTER II
+00A89	GUJARATI LETTER U
+00A8A	GUJARATI LETTER UU
+00A8B	GUJARATI LETTER VOCALIC R
+00A8C	GUJARATI LETTER VOCALIC L
+00A8D	GUJARATI VOWEL CANDRA E
+00A8F	GUJARATI LETTER E
+00A90	GUJARATI LETTER AI
+00A91	GUJARATI VOWEL CANDRA O
+00A93	GUJARATI LETTER O
+00A94	GUJARATI LETTER AU
+00A95	GUJARATI LETTER KA
+00A96	GUJARATI LETTER KHA
+00A97	GUJARATI LETTER GA
+00A98	GUJARATI LETTER GHA
+00A99	GUJARATI LETTER NGA
+00A9A	GUJARATI LETTER CA
+00A9B	GUJARATI LETTER CHA
+00A9C	GUJARATI LETTER JA
+00A9D	GUJARATI LETTER JHA
+00A9E	GUJARATI LETTER NYA
+00A9F	GUJARATI LETTER TTA
+00AA0	GUJARATI LETTER TTHA
+00AA1	GUJARATI LETTER DDA
+00AA2	GUJARATI LETTER DDHA
+00AA3	GUJARATI LETTER NNA
+00AA4	GUJARATI LETTER TA
+00AA5	GUJARATI LETTER THA
+00AA6	GUJARATI LETTER DA
+00AA7	GUJARATI LETTER DHA
+00AA8	GUJARATI LETTER NA
+00AAA	GUJARATI LETTER PA
+00AAB	GUJARATI LETTER PHA
+00AAC	GUJARATI LETTER BA
+00AAD	GUJARATI LETTER BHA
+00AAE	GUJARATI LETTER MA
+00AAF	GUJARATI LETTER YA
+00AB0	GUJARATI LETTER RA
+00AB2	GUJARATI LETTER LA
+00AB3	GUJARATI LETTER LLA
+00AB5	GUJARATI LETTER VA
+00AB6	GUJARATI LETTER SHA
+00AB7	GUJARATI LETTER SSA
+00AB8	GUJARATI LETTER SA
+00AB9	GUJARATI LETTER HA
+00ABC	GUJARATI SIGN NUKTA
+00ABD	GUJARATI SIGN AVAGRAHA
+00ABE	GUJARATI VOWEL SIGN AA
+00ABF	GUJARATI VOWEL SIGN I
+00AC0	GUJARATI VOWEL SIGN II
+00AC1	GUJARATI VOWEL SIGN U
+00AC2	GUJARATI VOWEL SIGN UU
+00AC3	GUJARATI VOWEL SIGN VOCALIC R
+00AC4	GUJARATI VOWEL SIGN VOCALIC RR
+00AC5	GUJARATI VOWEL SIGN CANDRA E
+00AC7	GUJARATI VOWEL SIGN E
+00AC8	GUJARATI VOWEL SIGN AI
+00AC9	GUJARATI VOWEL SIGN CANDRA O
+00ACB	GUJARATI VOWEL SIGN O
+00ACC	GUJARATI VOWEL SIGN AU
+00ACD	GUJARATI SIGN VIRAMA
+00AD0	GUJARATI OM
+00AE0	GUJARATI LETTER VOCALIC RR
+00AE1	GUJARATI LETTER VOCALIC LL
+00AE2	GUJARATI VOWEL SIGN VOCALIC L
+00AE3	GUJARATI VOWEL SIGN VOCALIC LL
+00AE6	GUJARATI DIGIT ZERO
+00AE7	GUJARATI DIGIT ONE
+00AE8	GUJARATI DIGIT TWO
+00AE9	GUJARATI DIGIT THREE
+00AEA	GUJARATI DIGIT FOUR
+00AEB	GUJARATI DIGIT FIVE
+00AEC	GUJARATI DIGIT SIX
+00AED	GUJARATI DIGIT SEVEN
+00AEE	GUJARATI DIGIT EIGHT
+00AEF	GUJARATI DIGIT NINE
+00AF0	GUJARATI ABBREVIATION SIGN
+00AF1	GUJARATI RUPEE SIGN
+00AF9	GUJARATI LETTER ZHA
+00AFA	GUJARATI SIGN SUKUN
+00AFB	GUJARATI SIGN SHADDA
+00AFC	GUJARATI SIGN MADDAH
+00AFD	GUJARATI SIGN THREE-DOT NUKTA ABOVE
+00AFE	GUJARATI SIGN CIRCLE NUKTA ABOVE
+00AFF	GUJARATI SIGN TWO-CIRCLE NUKTA ABOVE
+00B01	ORIYA SIGN CANDRABINDU
+00B02	ORIYA SIGN ANUSVARA
+00B03	ORIYA SIGN VISARGA
+00B05	ORIYA LETTER A
+00B06	ORIYA LETTER AA
+00B07	ORIYA LETTER I
+00B08	ORIYA LETTER II
+00B09	ORIYA LETTER U
+00B0A	ORIYA LETTER UU
+00B0B	ORIYA LETTER VOCALIC R
+00B0C	ORIYA LETTER VOCALIC L
+00B0F	ORIYA LETTER E
+00B10	ORIYA LETTER AI
+00B13	ORIYA LETTER O
+00B14	ORIYA LETTER AU
+00B15	ORIYA LETTER KA
+00B16	ORIYA LETTER KHA
+00B17	ORIYA LETTER GA
+00B18	ORIYA LETTER GHA
+00B19	ORIYA LETTER NGA
+00B1A	ORIYA LETTER CA
+00B1B	ORIYA LETTER CHA
+00B1C	ORIYA LETTER JA
+00B1D	ORIYA LETTER JHA
+00B1E	ORIYA LETTER NYA
+00B1F	ORIYA LETTER TTA
+00B20	ORIYA LETTER TTHA
+00B21	ORIYA LETTER DDA
+00B22	ORIYA LETTER DDHA
+00B23	ORIYA LETTER NNA
+00B24	ORIYA LETTER TA
+00B25	ORIYA LETTER THA
+00B26	ORIYA LETTER DA
+00B27	ORIYA LETTER DHA
+00B28	ORIYA LETTER NA
+00B2A	ORIYA LETTER PA
+00B2B	ORIYA LETTER PHA
+00B2C	ORIYA LETTER BA
+00B2D	ORIYA LETTER BHA
+00B2E	ORIYA LETTER MA
+00B2F	ORIYA LETTER YA
+00B30	ORIYA LETTER RA
+00B32	ORIYA LETTER LA
+00B33	ORIYA LETTER LLA
+00B35	ORIYA LETTER VA
+00B36	ORIYA LETTER SHA
+00B37	ORIYA LETTER SSA
+00B38	ORIYA LETTER SA
+00B39	ORIYA LETTER HA
+00B3C	ORIYA SIGN NUKTA
+00B3D	ORIYA SIGN AVAGRAHA
+00B3E	ORIYA VOWEL SIGN AA
+00B3F	ORIYA VOWEL SIGN I
+00B40	ORIYA VOWEL SIGN II
+00B41	ORIYA VOWEL SIGN U
+00B42	ORIYA VOWEL SIGN UU
+00B43	ORIYA VOWEL SIGN VOCALIC R
+00B44	ORIYA VOWEL SIGN VOCALIC RR
+00B47	ORIYA VOWEL SIGN E
+00B48	ORIYA VOWEL SIGN AI
+00B4B	ORIYA VOWEL SIGN O
+00B4C	ORIYA VOWEL SIGN AU
+00B4D	ORIYA SIGN VIRAMA
+00B56	ORIYA AI LENGTH MARK
+00B57	ORIYA AU LENGTH MARK
+00B5C	ORIYA LETTER RRA
+00B5D	ORIYA LETTER RHA
+00B5F	ORIYA LETTER YYA
+00B60	ORIYA LETTER VOCALIC RR
+00B61	ORIYA LETTER VOCALIC LL
+00B62	ORIYA VOWEL SIGN VOCALIC L
+00B63	ORIYA VOWEL SIGN VOCALIC LL
+00B66	ORIYA DIGIT ZERO
+00B67	ORIYA DIGIT ONE
+00B68	ORIYA DIGIT TWO
+00B69	ORIYA DIGIT THREE
+00B6A	ORIYA DIGIT FOUR
+00B6B	ORIYA DIGIT FIVE
+00B6C	ORIYA DIGIT SIX
+00B6D	ORIYA DIGIT SEVEN
+00B6E	ORIYA DIGIT EIGHT
+00B6F	ORIYA DIGIT NINE
+00B70	ORIYA ISSHAR
+00B71	ORIYA LETTER WA
+00B72	ORIYA FRACTION ONE QUARTER
+00B73	ORIYA FRACTION ONE HALF
+00B74	ORIYA FRACTION THREE QUARTERS
+00B75	ORIYA FRACTION ONE SIXTEENTH
+00B76	ORIYA FRACTION ONE EIGHTH
+00B77	ORIYA FRACTION THREE SIXTEENTHS
+00B82	TAMIL SIGN ANUSVARA
+00B83	TAMIL SIGN VISARGA
+00B85	TAMIL LETTER A
+00B86	TAMIL LETTER AA
+00B87	TAMIL LETTER I
+00B88	TAMIL LETTER II
+00B89	TAMIL LETTER U
+00B8A	TAMIL LETTER UU
+00B8E	TAMIL LETTER E
+00B8F	TAMIL LETTER EE
+00B90	TAMIL LETTER AI
+00B92	TAMIL LETTER O
+00B93	TAMIL LETTER OO
+00B94	TAMIL LETTER AU
+00B95	TAMIL LETTER KA
+00B99	TAMIL LETTER NGA
+00B9A	TAMIL LETTER CA
+00B9C	TAMIL LETTER JA
+00B9E	TAMIL LETTER NYA
+00B9F	TAMIL LETTER TTA
+00BA3	TAMIL LETTER NNA
+00BA4	TAMIL LETTER TA
+00BA8	TAMIL LETTER NA
+00BA9	TAMIL LETTER NNNA
+00BAA	TAMIL LETTER PA
+00BAE	TAMIL LETTER MA
+00BAF	TAMIL LETTER YA
+00BB0	TAMIL LETTER RA
+00BB1	TAMIL LETTER RRA
+00BB2	TAMIL LETTER LA
+00BB3	TAMIL LETTER LLA
+00BB4	TAMIL LETTER LLLA
+00BB5	TAMIL LETTER VA
+00BB6	TAMIL LETTER SHA
+00BB7	TAMIL LETTER SSA
+00BB8	TAMIL LETTER SA
+00BB9	TAMIL LETTER HA
+00BBE	TAMIL VOWEL SIGN AA
+00BBF	TAMIL VOWEL SIGN I
+00BC0	TAMIL VOWEL SIGN II
+00BC1	TAMIL VOWEL SIGN U
+00BC2	TAMIL VOWEL SIGN UU
+00BC6	TAMIL VOWEL SIGN E
+00BC7	TAMIL VOWEL SIGN EE
+00BC8	TAMIL VOWEL SIGN AI
+00BCA	TAMIL VOWEL SIGN O
+00BCB	TAMIL VOWEL SIGN OO
+00BCC	TAMIL VOWEL SIGN AU
+00BCD	TAMIL SIGN VIRAMA
+00BD0	TAMIL OM
+00BD7	TAMIL AU LENGTH MARK
+00BE6	TAMIL DIGIT ZERO
+00BE7	TAMIL DIGIT ONE
+00BE8	TAMIL DIGIT TWO
+00BE9	TAMIL DIGIT THREE
+00BEA	TAMIL DIGIT FOUR
+00BEB	TAMIL DIGIT FIVE
+00BEC	TAMIL DIGIT SIX
+00BED	TAMIL DIGIT SEVEN
+00BEE	TAMIL DIGIT EIGHT
+00BEF	TAMIL DIGIT NINE
+00BF0	TAMIL NUMBER TEN
+00BF1	TAMIL NUMBER ONE HUNDRED
+00BF2	TAMIL NUMBER ONE THOUSAND
+00BF3	TAMIL DAY SIGN
+00BF4	TAMIL MONTH SIGN
+00BF5	TAMIL YEAR SIGN
+00BF6	TAMIL DEBIT SIGN
+00BF7	TAMIL CREDIT SIGN
+00BF8	TAMIL AS ABOVE SIGN
+00BF9	TAMIL RUPEE SIGN
+00BFA	TAMIL NUMBER SIGN
+00C00	TELUGU SIGN COMBINING CANDRABINDU ABOVE
+00C01	TELUGU SIGN CANDRABINDU
+00C02	TELUGU SIGN ANUSVARA
+00C03	TELUGU SIGN VISARGA
+00C05	TELUGU LETTER A
+00C06	TELUGU LETTER AA
+00C07	TELUGU LETTER I
+00C08	TELUGU LETTER II
+00C09	TELUGU LETTER U
+00C0A	TELUGU LETTER UU
+00C0B	TELUGU LETTER VOCALIC R
+00C0C	TELUGU LETTER VOCALIC L
+00C0E	TELUGU LETTER E
+00C0F	TELUGU LETTER EE
+00C10	TELUGU LETTER AI
+00C12	TELUGU LETTER O
+00C13	TELUGU LETTER OO
+00C14	TELUGU LETTER AU
+00C15	TELUGU LETTER KA
+00C16	TELUGU LETTER KHA
+00C17	TELUGU LETTER GA
+00C18	TELUGU LETTER GHA
+00C19	TELUGU LETTER NGA
+00C1A	TELUGU LETTER CA
+00C1B	TELUGU LETTER CHA
+00C1C	TELUGU LETTER JA
+00C1D	TELUGU LETTER JHA
+00C1E	TELUGU LETTER NYA
+00C1F	TELUGU LETTER TTA
+00C20	TELUGU LETTER TTHA
+00C21	TELUGU LETTER DDA
+00C22	TELUGU LETTER DDHA
+00C23	TELUGU LETTER NNA
+00C24	TELUGU LETTER TA
+00C25	TELUGU LETTER THA
+00C26	TELUGU LETTER DA
+00C27	TELUGU LETTER DHA
+00C28	TELUGU LETTER NA
+00C2A	TELUGU LETTER PA
+00C2B	TELUGU LETTER PHA
+00C2C	TELUGU LETTER BA
+00C2D	TELUGU LETTER BHA
+00C2E	TELUGU LETTER MA
+00C2F	TELUGU LETTER YA
+00C30	TELUGU LETTER RA
+00C31	TELUGU LETTER RRA
+00C32	TELUGU LETTER LA
+00C33	TELUGU LETTER LLA
+00C34	TELUGU LETTER LLLA
+00C35	TELUGU LETTER VA
+00C36	TELUGU LETTER SHA
+00C37	TELUGU LETTER SSA
+00C38	TELUGU LETTER SA
+00C39	TELUGU LETTER HA
+00C3D	TELUGU SIGN AVAGRAHA
+00C3E	TELUGU VOWEL SIGN AA
+00C3F	TELUGU VOWEL SIGN I
+00C40	TELUGU VOWEL SIGN II
+00C41	TELUGU VOWEL SIGN U
+00C42	TELUGU VOWEL SIGN UU
+00C43	TELUGU VOWEL SIGN VOCALIC R
+00C44	TELUGU VOWEL SIGN VOCALIC RR
+00C46	TELUGU VOWEL SIGN E
+00C47	TELUGU VOWEL SIGN EE
+00C48	TELUGU VOWEL SIGN AI
+00C4A	TELUGU VOWEL SIGN O
+00C4B	TELUGU VOWEL SIGN OO
+00C4C	TELUGU VOWEL SIGN AU
+00C4D	TELUGU SIGN VIRAMA
+00C55	TELUGU LENGTH MARK
+00C56	TELUGU AI LENGTH MARK
+00C58	TELUGU LETTER TSA
+00C59	TELUGU LETTER DZA
+00C5A	TELUGU LETTER RRRA
+00C60	TELUGU LETTER VOCALIC RR
+00C61	TELUGU LETTER VOCALIC LL
+00C62	TELUGU VOWEL SIGN VOCALIC L
+00C63	TELUGU VOWEL SIGN VOCALIC LL
+00C66	TELUGU DIGIT ZERO
+00C67	TELUGU DIGIT ONE
+00C68	TELUGU DIGIT TWO
+00C69	TELUGU DIGIT THREE
+00C6A	TELUGU DIGIT FOUR
+00C6B	TELUGU DIGIT FIVE
+00C6C	TELUGU DIGIT SIX
+00C6D	TELUGU DIGIT SEVEN
+00C6E	TELUGU DIGIT EIGHT
+00C6F	TELUGU DIGIT NINE
+00C78	TELUGU FRACTION DIGIT ZERO FOR ODD POWERS OF FOUR
+00C79	TELUGU FRACTION DIGIT ONE FOR ODD POWERS OF FOUR
+00C7A	TELUGU FRACTION DIGIT TWO FOR ODD POWERS OF FOUR
+00C7B	TELUGU FRACTION DIGIT THREE FOR ODD POWERS OF FOUR
+00C7C	TELUGU FRACTION DIGIT ONE FOR EVEN POWERS OF FOUR
+00C7D	TELUGU FRACTION DIGIT TWO FOR EVEN POWERS OF FOUR
+00C7E	TELUGU FRACTION DIGIT THREE FOR EVEN POWERS OF FOUR
+00C7F	TELUGU SIGN TUUMU
+00C80	KANNADA SIGN SPACING CANDRABINDU
+00C81	KANNADA SIGN CANDRABINDU
+00C82	KANNADA SIGN ANUSVARA
+00C83	KANNADA SIGN VISARGA
+00C85	KANNADA LETTER A
+00C86	KANNADA LETTER AA
+00C87	KANNADA LETTER I
+00C88	KANNADA LETTER II
+00C89	KANNADA LETTER U
+00C8A	KANNADA LETTER UU
+00C8B	KANNADA LETTER VOCALIC R
+00C8C	KANNADA LETTER VOCALIC L
+00C8E	KANNADA LETTER E
+00C8F	KANNADA LETTER EE
+00C90	KANNADA LETTER AI
+00C92	KANNADA LETTER O
+00C93	KANNADA LETTER OO
+00C94	KANNADA LETTER AU
+00C95	KANNADA LETTER KA
+00C96	KANNADA LETTER KHA
+00C97	KANNADA LETTER GA
+00C98	KANNADA LETTER GHA
+00C99	KANNADA LETTER NGA
+00C9A	KANNADA LETTER CA
+00C9B	KANNADA LETTER CHA
+00C9C	KANNADA LETTER JA
+00C9D	KANNADA LETTER JHA
+00C9E	KANNADA LETTER NYA
+00C9F	KANNADA LETTER TTA
+00CA0	KANNADA LETTER TTHA
+00CA1	KANNADA LETTER DDA
+00CA2	KANNADA LETTER DDHA
+00CA3	KANNADA LETTER NNA
+00CA4	KANNADA LETTER TA
+00CA5	KANNADA LETTER THA
+00CA6	KANNADA LETTER DA
+00CA7	KANNADA LETTER DHA
+00CA8	KANNADA LETTER NA
+00CAA	KANNADA LETTER PA
+00CAB	KANNADA LETTER PHA
+00CAC	KANNADA LETTER BA
+00CAD	KANNADA LETTER BHA
+00CAE	KANNADA LETTER MA
+00CAF	KANNADA LETTER YA
+00CB0	KANNADA LETTER RA
+00CB1	KANNADA LETTER RRA
+00CB2	KANNADA LETTER LA
+00CB3	KANNADA LETTER LLA
+00CB5	KANNADA LETTER VA
+00CB6	KANNADA LETTER SHA
+00CB7	KANNADA LETTER SSA
+00CB8	KANNADA LETTER SA
+00CB9	KANNADA LETTER HA
+00CBC	KANNADA SIGN NUKTA
+00CBD	KANNADA SIGN AVAGRAHA
+00CBE	KANNADA VOWEL SIGN AA
+00CBF	KANNADA VOWEL SIGN I
+00CC0	KANNADA VOWEL SIGN II
+00CC1	KANNADA VOWEL SIGN U
+00CC2	KANNADA VOWEL SIGN UU
+00CC3	KANNADA VOWEL SIGN VOCALIC R
+00CC4	KANNADA VOWEL SIGN VOCALIC RR
+00CC6	KANNADA VOWEL SIGN E
+00CC7	KANNADA VOWEL SIGN EE
+00CC8	KANNADA VOWEL SIGN AI
+00CCA	KANNADA VOWEL SIGN O
+00CCB	KANNADA VOWEL SIGN OO
+00CCC	KANNADA VOWEL SIGN AU
+00CCD	KANNADA SIGN VIRAMA
+00CD5	KANNADA LENGTH MARK
+00CD6	KANNADA AI LENGTH MARK
+00CDE	KANNADA LETTER LLLA
+00CDE	KANNADA LETTER FA
+00CE0	KANNADA LETTER VOCALIC RR
+00CE1	KANNADA LETTER VOCALIC LL
+00CE2	KANNADA VOWEL SIGN VOCALIC L
+00CE3	KANNADA VOWEL SIGN VOCALIC LL
+00CE6	KANNADA DIGIT ZERO
+00CE7	KANNADA DIGIT ONE
+00CE8	KANNADA DIGIT TWO
+00CE9	KANNADA DIGIT THREE
+00CEA	KANNADA DIGIT FOUR
+00CEB	KANNADA DIGIT FIVE
+00CEC	KANNADA DIGIT SIX
+00CED	KANNADA DIGIT SEVEN
+00CEE	KANNADA DIGIT EIGHT
+00CEF	KANNADA DIGIT NINE
+00CF1	KANNADA SIGN JIHVAMULIYA
+00CF2	KANNADA SIGN UPADHMANIYA
+00D00	MALAYALAM SIGN COMBINING ANUSVARA ABOVE
+00D01	MALAYALAM SIGN CANDRABINDU
+00D02	MALAYALAM SIGN ANUSVARA
+00D03	MALAYALAM SIGN VISARGA
+00D05	MALAYALAM LETTER A
+00D06	MALAYALAM LETTER AA
+00D07	MALAYALAM LETTER I
+00D08	MALAYALAM LETTER II
+00D09	MALAYALAM LETTER U
+00D0A	MALAYALAM LETTER UU
+00D0B	MALAYALAM LETTER VOCALIC R
+00D0C	MALAYALAM LETTER VOCALIC L
+00D0E	MALAYALAM LETTER E
+00D0F	MALAYALAM LETTER EE
+00D10	MALAYALAM LETTER AI
+00D12	MALAYALAM LETTER O
+00D13	MALAYALAM LETTER OO
+00D14	MALAYALAM LETTER AU
+00D15	MALAYALAM LETTER KA
+00D16	MALAYALAM LETTER KHA
+00D17	MALAYALAM LETTER GA
+00D18	MALAYALAM LETTER GHA
+00D19	MALAYALAM LETTER NGA
+00D1A	MALAYALAM LETTER CA
+00D1B	MALAYALAM LETTER CHA
+00D1C	MALAYALAM LETTER JA
+00D1D	MALAYALAM LETTER JHA
+00D1E	MALAYALAM LETTER NYA
+00D1F	MALAYALAM LETTER TTA
+00D20	MALAYALAM LETTER TTHA
+00D21	MALAYALAM LETTER DDA
+00D22	MALAYALAM LETTER DDHA
+00D23	MALAYALAM LETTER NNA
+00D24	MALAYALAM LETTER TA
+00D25	MALAYALAM LETTER THA
+00D26	MALAYALAM LETTER DA
+00D27	MALAYALAM LETTER DHA
+00D28	MALAYALAM LETTER NA
+00D29	MALAYALAM LETTER NNNA
+00D2A	MALAYALAM LETTER PA
+00D2B	MALAYALAM LETTER PHA
+00D2C	MALAYALAM LETTER BA
+00D2D	MALAYALAM LETTER BHA
+00D2E	MALAYALAM LETTER MA
+00D2F	MALAYALAM LETTER YA
+00D30	MALAYALAM LETTER RA
+00D31	MALAYALAM LETTER RRA
+00D32	MALAYALAM LETTER LA
+00D33	MALAYALAM LETTER LLA
+00D34	MALAYALAM LETTER LLLA
+00D35	MALAYALAM LETTER VA
+00D36	MALAYALAM LETTER SHA
+00D37	MALAYALAM LETTER SSA
+00D38	MALAYALAM LETTER SA
+00D39	MALAYALAM LETTER HA
+00D3A	MALAYALAM LETTER TTTA
+00D3B	MALAYALAM SIGN VERTICAL BAR VIRAMA
+00D3C	MALAYALAM SIGN CIRCULAR VIRAMA
+00D3D	MALAYALAM SIGN AVAGRAHA
+00D3E	MALAYALAM VOWEL SIGN AA
+00D3F	MALAYALAM VOWEL SIGN I
+00D40	MALAYALAM VOWEL SIGN II
+00D41	MALAYALAM VOWEL SIGN U
+00D42	MALAYALAM VOWEL SIGN UU
+00D43	MALAYALAM VOWEL SIGN VOCALIC R
+00D44	MALAYALAM VOWEL SIGN VOCALIC RR
+00D46	MALAYALAM VOWEL SIGN E
+00D47	MALAYALAM VOWEL SIGN EE
+00D48	MALAYALAM VOWEL SIGN AI
+00D4A	MALAYALAM VOWEL SIGN O
+00D4B	MALAYALAM VOWEL SIGN OO
+00D4C	MALAYALAM VOWEL SIGN AU
+00D4D	MALAYALAM SIGN VIRAMA
+00D4E	MALAYALAM LETTER DOT REPH
+00D4F	MALAYALAM SIGN PARA
+00D54	MALAYALAM LETTER CHILLU M
+00D55	MALAYALAM LETTER CHILLU Y
+00D56	MALAYALAM LETTER CHILLU LLL
+00D57	MALAYALAM AU LENGTH MARK
+00D58	MALAYALAM FRACTION ONE ONE-HUNDRED-AND-SIXTIETH
+00D59	MALAYALAM FRACTION ONE FORTIETH
+00D5A	MALAYALAM FRACTION THREE EIGHTIETHS
+00D5B	MALAYALAM FRACTION ONE TWENTIETH
+00D5C	MALAYALAM FRACTION ONE TENTH
+00D5D	MALAYALAM FRACTION THREE TWENTIETHS
+00D5E	MALAYALAM FRACTION ONE FIFTH
+00D5F	MALAYALAM LETTER ARCHAIC II
+00D60	MALAYALAM LETTER VOCALIC RR
+00D61	MALAYALAM LETTER VOCALIC LL
+00D62	MALAYALAM VOWEL SIGN VOCALIC L
+00D63	MALAYALAM VOWEL SIGN VOCALIC LL
+00D66	MALAYALAM DIGIT ZERO
+00D67	MALAYALAM DIGIT ONE
+00D68	MALAYALAM DIGIT TWO
+00D69	MALAYALAM DIGIT THREE
+00D6A	MALAYALAM DIGIT FOUR
+00D6B	MALAYALAM DIGIT FIVE
+00D6C	MALAYALAM DIGIT SIX
+00D6D	MALAYALAM DIGIT SEVEN
+00D6E	MALAYALAM DIGIT EIGHT
+00D6F	MALAYALAM DIGIT NINE
+00D70	MALAYALAM NUMBER TEN
+00D71	MALAYALAM NUMBER ONE HUNDRED
+00D72	MALAYALAM NUMBER ONE THOUSAND
+00D73	MALAYALAM FRACTION ONE QUARTER
+00D74	MALAYALAM FRACTION ONE HALF
+00D75	MALAYALAM FRACTION THREE QUARTERS
+00D76	MALAYALAM FRACTION ONE SIXTEENTH
+00D77	MALAYALAM FRACTION ONE EIGHTH
+00D78	MALAYALAM FRACTION THREE SIXTEENTHS
+00D79	MALAYALAM DATE MARK
+00D7A	MALAYALAM LETTER CHILLU NN
+00D7B	MALAYALAM LETTER CHILLU N
+00D7C	MALAYALAM LETTER CHILLU RR
+00D7D	MALAYALAM LETTER CHILLU L
+00D7E	MALAYALAM LETTER CHILLU LL
+00D7F	MALAYALAM LETTER CHILLU K
+00D82	SINHALA SIGN ANUSVARAYA
+00D83	SINHALA SIGN VISARGAYA
+00D85	SINHALA LETTER AYANNA
+00D86	SINHALA LETTER AAYANNA
+00D87	SINHALA LETTER AEYANNA
+00D88	SINHALA LETTER AEEYANNA
+00D89	SINHALA LETTER IYANNA
+00D8A	SINHALA LETTER IIYANNA
+00D8B	SINHALA LETTER UYANNA
+00D8C	SINHALA LETTER UUYANNA
+00D8D	SINHALA LETTER IRUYANNA
+00D8E	SINHALA LETTER IRUUYANNA
+00D8F	SINHALA LETTER ILUYANNA
+00D90	SINHALA LETTER ILUUYANNA
+00D91	SINHALA LETTER EYANNA
+00D92	SINHALA LETTER EEYANNA
+00D93	SINHALA LETTER AIYANNA
+00D94	SINHALA LETTER OYANNA
+00D95	SINHALA LETTER OOYANNA
+00D96	SINHALA LETTER AUYANNA
+00D9A	SINHALA LETTER ALPAPRAANA KAYANNA
+00D9B	SINHALA LETTER MAHAAPRAANA KAYANNA
+00D9C	SINHALA LETTER ALPAPRAANA GAYANNA
+00D9D	SINHALA LETTER MAHAAPRAANA GAYANNA
+00D9E	SINHALA LETTER KANTAJA NAASIKYAYA
+00D9F	SINHALA LETTER SANYAKA GAYANNA
+00DA0	SINHALA LETTER ALPAPRAANA CAYANNA
+00DA1	SINHALA LETTER MAHAAPRAANA CAYANNA
+00DA2	SINHALA LETTER ALPAPRAANA JAYANNA
+00DA3	SINHALA LETTER MAHAAPRAANA JAYANNA
+00DA4	SINHALA LETTER TAALUJA NAASIKYAYA
+00DA5	SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA
+00DA6	SINHALA LETTER SANYAKA JAYANNA
+00DA7	SINHALA LETTER ALPAPRAANA TTAYANNA
+00DA8	SINHALA LETTER MAHAAPRAANA TTAYANNA
+00DA9	SINHALA LETTER ALPAPRAANA DDAYANNA
+00DAA	SINHALA LETTER MAHAAPRAANA DDAYANNA
+00DAB	SINHALA LETTER MUURDHAJA NAYANNA
+00DAC	SINHALA LETTER SANYAKA DDAYANNA
+00DAD	SINHALA LETTER ALPAPRAANA TAYANNA
+00DAE	SINHALA LETTER MAHAAPRAANA TAYANNA
+00DAF	SINHALA LETTER ALPAPRAANA DAYANNA
+00DB0	SINHALA LETTER MAHAAPRAANA DAYANNA
+00DB1	SINHALA LETTER DANTAJA NAYANNA
+00DB3	SINHALA LETTER SANYAKA DAYANNA
+00DB4	SINHALA LETTER ALPAPRAANA PAYANNA
+00DB5	SINHALA LETTER MAHAAPRAANA PAYANNA
+00DB6	SINHALA LETTER ALPAPRAANA BAYANNA
+00DB7	SINHALA LETTER MAHAAPRAANA BAYANNA
+00DB8	SINHALA LETTER MAYANNA
+00DB9	SINHALA LETTER AMBA BAYANNA
+00DBA	SINHALA LETTER YAYANNA
+00DBB	SINHALA LETTER RAYANNA
+00DBD	SINHALA LETTER DANTAJA LAYANNA
+00DC0	SINHALA LETTER VAYANNA
+00DC1	SINHALA LETTER TAALUJA SAYANNA
+00DC2	SINHALA LETTER MUURDHAJA SAYANNA
+00DC3	SINHALA LETTER DANTAJA SAYANNA
+00DC4	SINHALA LETTER HAYANNA
+00DC5	SINHALA LETTER MUURDHAJA LAYANNA
+00DC6	SINHALA LETTER FAYANNA
+00DCA	SINHALA SIGN AL-LAKUNA
+00DCF	SINHALA VOWEL SIGN AELA-PILLA
+00DD0	SINHALA VOWEL SIGN KETTI AEDA-PILLA
+00DD1	SINHALA VOWEL SIGN DIGA AEDA-PILLA
+00DD2	SINHALA VOWEL SIGN KETTI IS-PILLA
+00DD3	SINHALA VOWEL SIGN DIGA IS-PILLA
+00DD4	SINHALA VOWEL SIGN KETTI PAA-PILLA
+00DD6	SINHALA VOWEL SIGN DIGA PAA-PILLA
+00DD8	SINHALA VOWEL SIGN GAETTA-PILLA
+00DD9	SINHALA VOWEL SIGN KOMBUVA
+00DDA	SINHALA VOWEL SIGN DIGA KOMBUVA
+00DDB	SINHALA VOWEL SIGN KOMBU DEKA
+00DDC	SINHALA VOWEL SIGN KOMBUVA HAA AELA-PILLA
+00DDD	SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA
+00DDE	SINHALA VOWEL SIGN KOMBUVA HAA GAYANUKITTA
+00DDF	SINHALA VOWEL SIGN GAYANUKITTA
+00DE6	SINHALA LITH DIGIT ZERO
+00DE7	SINHALA LITH DIGIT ONE
+00DE8	SINHALA LITH DIGIT TWO
+00DE9	SINHALA LITH DIGIT THREE
+00DEA	SINHALA LITH DIGIT FOUR
+00DEB	SINHALA LITH DIGIT FIVE
+00DEC	SINHALA LITH DIGIT SIX
+00DED	SINHALA LITH DIGIT SEVEN
+00DEE	SINHALA LITH DIGIT EIGHT
+00DEF	SINHALA LITH DIGIT NINE
+00DF2	SINHALA VOWEL SIGN DIGA GAETTA-PILLA
+00DF3	SINHALA VOWEL SIGN DIGA GAYANUKITTA
+00DF4	SINHALA PUNCTUATION KUNDDALIYA
+00E01	THAI CHARACTER KO KAI
+00E02	THAI CHARACTER KHO KHAI
+00E03	THAI CHARACTER KHO KHUAT
+00E04	THAI CHARACTER KHO KHWAI
+00E05	THAI CHARACTER KHO KHON
+00E06	THAI CHARACTER KHO RAKHANG
+00E07	THAI CHARACTER NGO NGU
+00E08	THAI CHARACTER CHO CHAN
+00E09	THAI CHARACTER CHO CHING
+00E0A	THAI CHARACTER CHO CHANG
+00E0B	THAI CHARACTER SO SO
+00E0C	THAI CHARACTER CHO CHOE
+00E0D	THAI CHARACTER YO YING
+00E0E	THAI CHARACTER DO CHADA
+00E0F	THAI CHARACTER TO PATAK
+00E10	THAI CHARACTER THO THAN
+00E11	THAI CHARACTER THO NANGMONTHO
+00E12	THAI CHARACTER THO PHUTHAO
+00E13	THAI CHARACTER NO NEN
+00E14	THAI CHARACTER DO DEK
+00E15	THAI CHARACTER TO TAO
+00E16	THAI CHARACTER THO THUNG
+00E17	THAI CHARACTER THO THAHAN
+00E18	THAI CHARACTER THO THONG
+00E19	THAI CHARACTER NO NU
+00E1A	THAI CHARACTER BO BAIMAI
+00E1B	THAI CHARACTER PO PLA
+00E1C	THAI CHARACTER PHO PHUNG
+00E1D	THAI CHARACTER FO FA
+00E1E	THAI CHARACTER PHO PHAN
+00E1F	THAI CHARACTER FO FAN
+00E20	THAI CHARACTER PHO SAMPHAO
+00E21	THAI CHARACTER MO MA
+00E22	THAI CHARACTER YO YAK
+00E23	THAI CHARACTER RO RUA
+00E24	THAI CHARACTER RU
+00E25	THAI CHARACTER LO LING
+00E26	THAI CHARACTER LU
+00E27	THAI CHARACTER WO WAEN
+00E28	THAI CHARACTER SO SALA
+00E29	THAI CHARACTER SO RUSI
+00E2A	THAI CHARACTER SO SUA
+00E2B	THAI CHARACTER HO HIP
+00E2C	THAI CHARACTER LO CHULA
+00E2D	THAI CHARACTER O ANG
+00E2E	THAI CHARACTER HO NOKHUK
+00E2F	THAI CHARACTER PAIYANNOI
+00E30	THAI CHARACTER SARA A
+00E31	THAI CHARACTER MAI HAN-AKAT
+00E32	THAI CHARACTER SARA AA
+00E33	THAI CHARACTER SARA AM
+00E34	THAI CHARACTER SARA I
+00E35	THAI CHARACTER SARA II
+00E36	THAI CHARACTER SARA UE
+00E37	THAI CHARACTER SARA UEE
+00E38	THAI CHARACTER SARA U
+00E39	THAI CHARACTER SARA UU
+00E3A	THAI CHARACTER PHINTHU
+00E3F	THAI CURRENCY SYMBOL BAHT
+00E40	THAI CHARACTER SARA E
+00E41	THAI CHARACTER SARA AE
+00E42	THAI CHARACTER SARA O
+00E43	THAI CHARACTER SARA AI MAIMUAN
+00E44	THAI CHARACTER SARA AI MAIMALAI
+00E45	THAI CHARACTER LAKKHANGYAO
+00E46	THAI CHARACTER MAIYAMOK
+00E47	THAI CHARACTER MAITAIKHU
+00E48	THAI CHARACTER MAI EK
+00E49	THAI CHARACTER MAI THO
+00E4A	THAI CHARACTER MAI TRI
+00E4B	THAI CHARACTER MAI CHATTAWA
+00E4C	THAI CHARACTER THANTHAKHAT
+00E4D	THAI CHARACTER NIKHAHIT
+00E4E	THAI CHARACTER YAMAKKAN
+00E4F	THAI CHARACTER FONGMAN
+00E50	THAI DIGIT ZERO
+00E51	THAI DIGIT ONE
+00E52	THAI DIGIT TWO
+00E53	THAI DIGIT THREE
+00E54	THAI DIGIT FOUR
+00E55	THAI DIGIT FIVE
+00E56	THAI DIGIT SIX
+00E57	THAI DIGIT SEVEN
+00E58	THAI DIGIT EIGHT
+00E59	THAI DIGIT NINE
+00E5A	THAI CHARACTER ANGKHANKHU
+00E5B	THAI CHARACTER KHOMUT
+00E81	LAO LETTER KO
+00E82	LAO LETTER KHO SUNG
+00E84	LAO LETTER KHO TAM
+00E87	LAO LETTER NGO
+00E88	LAO LETTER CO
+00E8A	LAO LETTER SO TAM
+00E8D	LAO LETTER NYO
+00E94	LAO LETTER DO
+00E95	LAO LETTER TO
+00E96	LAO LETTER THO SUNG
+00E97	LAO LETTER THO TAM
+00E99	LAO LETTER NO
+00E9A	LAO LETTER BO
+00E9B	LAO LETTER PO
+00E9C	LAO LETTER PHO SUNG
+00E9D	LAO LETTER FO FON
+00E9D	LAO LETTER FO TAM
+00E9E	LAO LETTER PHO TAM
+00E9F	LAO LETTER FO FAY
+00E9F	LAO LETTER FO SUNG
+00EA1	LAO LETTER MO
+00EA2	LAO LETTER YO
+00EA3	LAO LETTER RO
+00EA3	LAO LETTER LO LING
+00EA5	LAO LETTER LO
+00EA5	LAO LETTER LO LOOT
+00EA7	LAO LETTER WO
+00EAA	LAO LETTER SO SUNG
+00EAB	LAO LETTER HO SUNG
+00EAD	LAO LETTER O
+00EAE	LAO LETTER HO TAM
+00EAF	LAO ELLIPSIS
+00EB0	LAO VOWEL SIGN A
+00EB1	LAO VOWEL SIGN MAI KAN
+00EB2	LAO VOWEL SIGN AA
+00EB3	LAO VOWEL SIGN AM
+00EB4	LAO VOWEL SIGN I
+00EB5	LAO VOWEL SIGN II
+00EB6	LAO VOWEL SIGN Y
+00EB7	LAO VOWEL SIGN YY
+00EB8	LAO VOWEL SIGN U
+00EB9	LAO VOWEL SIGN UU
+00EBB	LAO VOWEL SIGN MAI KON
+00EBC	LAO SEMIVOWEL SIGN LO
+00EBD	LAO SEMIVOWEL SIGN NYO
+00EC0	LAO VOWEL SIGN E
+00EC1	LAO VOWEL SIGN EI
+00EC2	LAO VOWEL SIGN O
+00EC3	LAO VOWEL SIGN AY
+00EC4	LAO VOWEL SIGN AI
+00EC6	LAO KO LA
+00EC8	LAO TONE MAI EK
+00EC9	LAO TONE MAI THO
+00ECA	LAO TONE MAI TI
+00ECB	LAO TONE MAI CATAWA
+00ECC	LAO CANCELLATION MARK
+00ECD	LAO NIGGAHITA
+00ED0	LAO DIGIT ZERO
+00ED1	LAO DIGIT ONE
+00ED2	LAO DIGIT TWO
+00ED3	LAO DIGIT THREE
+00ED4	LAO DIGIT FOUR
+00ED5	LAO DIGIT FIVE
+00ED6	LAO DIGIT SIX
+00ED7	LAO DIGIT SEVEN
+00ED8	LAO DIGIT EIGHT
+00ED9	LAO DIGIT NINE
+00EDC	LAO HO NO
+00EDD	LAO HO MO
+00EDE	LAO LETTER KHMU GO
+00EDF	LAO LETTER KHMU NYO
+00F00	TIBETAN SYLLABLE OM
+00F01	TIBETAN MARK GTER YIG MGO TRUNCATED A
+00F02	TIBETAN MARK GTER YIG MGO -UM RNAM BCAD MA
+00F03	TIBETAN MARK GTER YIG MGO -UM GTER TSHEG MA
+00F04	TIBETAN MARK INITIAL YIG MGO MDUN MA
+00F05	TIBETAN MARK CLOSING YIG MGO SGAB MA
+00F06	TIBETAN MARK CARET YIG MGO PHUR SHAD MA
+00F07	TIBETAN MARK YIG MGO TSHEG SHAD MA
+00F08	TIBETAN MARK SBRUL SHAD
+00F09	TIBETAN MARK BSKUR YIG MGO
+00F0A	TIBETAN MARK BKA- SHOG YIG MGO
+00F0B	TIBETAN MARK INTERSYLLABIC TSHEG
+00F0C	TIBETAN MARK DELIMITER TSHEG BSTAR
+00F0D	TIBETAN MARK SHAD
+00F0E	TIBETAN MARK NYIS SHAD
+00F0F	TIBETAN MARK TSHEG SHAD
+00F10	TIBETAN MARK NYIS TSHEG SHAD
+00F11	TIBETAN MARK RIN CHEN SPUNGS SHAD
+00F12	TIBETAN MARK RGYA GRAM SHAD
+00F13	TIBETAN MARK CARET -DZUD RTAGS ME LONG CAN
+00F14	TIBETAN MARK GTER TSHEG
+00F15	TIBETAN LOGOTYPE SIGN CHAD RTAGS
+00F16	TIBETAN LOGOTYPE SIGN LHAG RTAGS
+00F17	TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS
+00F18	TIBETAN ASTROLOGICAL SIGN -KHYUD PA
+00F19	TIBETAN ASTROLOGICAL SIGN SDONG TSHUGS
+00F1A	TIBETAN SIGN RDEL DKAR GCIG
+00F1B	TIBETAN SIGN RDEL DKAR GNYIS
+00F1C	TIBETAN SIGN RDEL DKAR GSUM
+00F1D	TIBETAN SIGN RDEL NAG GCIG
+00F1E	TIBETAN SIGN RDEL NAG GNYIS
+00F1F	TIBETAN SIGN RDEL DKAR RDEL NAG
+00F20	TIBETAN DIGIT ZERO
+00F21	TIBETAN DIGIT ONE
+00F22	TIBETAN DIGIT TWO
+00F23	TIBETAN DIGIT THREE
+00F24	TIBETAN DIGIT FOUR
+00F25	TIBETAN DIGIT FIVE
+00F26	TIBETAN DIGIT SIX
+00F27	TIBETAN DIGIT SEVEN
+00F28	TIBETAN DIGIT EIGHT
+00F29	TIBETAN DIGIT NINE
+00F2A	TIBETAN DIGIT HALF ONE
+00F2B	TIBETAN DIGIT HALF TWO
+00F2C	TIBETAN DIGIT HALF THREE
+00F2D	TIBETAN DIGIT HALF FOUR
+00F2E	TIBETAN DIGIT HALF FIVE
+00F2F	TIBETAN DIGIT HALF SIX
+00F30	TIBETAN DIGIT HALF SEVEN
+00F31	TIBETAN DIGIT HALF EIGHT
+00F32	TIBETAN DIGIT HALF NINE
+00F33	TIBETAN DIGIT HALF ZERO
+00F34	TIBETAN MARK BSDUS RTAGS
+00F35	TIBETAN MARK NGAS BZUNG NYI ZLA
+00F36	TIBETAN MARK CARET -DZUD RTAGS BZHI MIG CAN
+00F37	TIBETAN MARK NGAS BZUNG SGOR RTAGS
+00F38	TIBETAN MARK CHE MGO
+00F39	TIBETAN MARK TSA -PHRU
+00F3A	TIBETAN MARK GUG RTAGS GYON
+00F3B	TIBETAN MARK GUG RTAGS GYAS
+00F3C	TIBETAN MARK ANG KHANG GYON
+00F3D	TIBETAN MARK ANG KHANG GYAS
+00F3E	TIBETAN SIGN YAR TSHES
+00F3F	TIBETAN SIGN MAR TSHES
+00F40	TIBETAN LETTER KA
+00F41	TIBETAN LETTER KHA
+00F42	TIBETAN LETTER GA
+00F43	TIBETAN LETTER GHA
+00F44	TIBETAN LETTER NGA
+00F45	TIBETAN LETTER CA
+00F46	TIBETAN LETTER CHA
+00F47	TIBETAN LETTER JA
+00F49	TIBETAN LETTER NYA
+00F4A	TIBETAN LETTER TTA
+00F4B	TIBETAN LETTER TTHA
+00F4C	TIBETAN LETTER DDA
+00F4D	TIBETAN LETTER DDHA
+00F4E	TIBETAN LETTER NNA
+00F4F	TIBETAN LETTER TA
+00F50	TIBETAN LETTER THA
+00F51	TIBETAN LETTER DA
+00F52	TIBETAN LETTER DHA
+00F53	TIBETAN LETTER NA
+00F54	TIBETAN LETTER PA
+00F55	TIBETAN LETTER PHA
+00F56	TIBETAN LETTER BA
+00F57	TIBETAN LETTER BHA
+00F58	TIBETAN LETTER MA
+00F59	TIBETAN LETTER TSA
+00F5A	TIBETAN LETTER TSHA
+00F5B	TIBETAN LETTER DZA
+00F5C	TIBETAN LETTER DZHA
+00F5D	TIBETAN LETTER WA
+00F5E	TIBETAN LETTER ZHA
+00F5F	TIBETAN LETTER ZA
+00F60	TIBETAN LETTER -A
+00F61	TIBETAN LETTER YA
+00F62	TIBETAN LETTER RA
+00F63	TIBETAN LETTER LA
+00F64	TIBETAN LETTER SHA
+00F65	TIBETAN LETTER SSA
+00F66	TIBETAN LETTER SA
+00F67	TIBETAN LETTER HA
+00F68	TIBETAN LETTER A
+00F69	TIBETAN LETTER KSSA
+00F6A	TIBETAN LETTER FIXED-FORM RA
+00F6B	TIBETAN LETTER KKA
+00F6C	TIBETAN LETTER RRA
+00F71	TIBETAN VOWEL SIGN AA
+00F72	TIBETAN VOWEL SIGN I
+00F73	TIBETAN VOWEL SIGN II
+00F74	TIBETAN VOWEL SIGN U
+00F75	TIBETAN VOWEL SIGN UU
+00F76	TIBETAN VOWEL SIGN VOCALIC R
+00F77	TIBETAN VOWEL SIGN VOCALIC RR
+00F78	TIBETAN VOWEL SIGN VOCALIC L
+00F79	TIBETAN VOWEL SIGN VOCALIC LL
+00F7A	TIBETAN VOWEL SIGN E
+00F7B	TIBETAN VOWEL SIGN EE
+00F7C	TIBETAN VOWEL SIGN O
+00F7D	TIBETAN VOWEL SIGN OO
+00F7E	TIBETAN SIGN RJES SU NGA RO
+00F7F	TIBETAN SIGN RNAM BCAD
+00F80	TIBETAN VOWEL SIGN REVERSED I
+00F81	TIBETAN VOWEL SIGN REVERSED II
+00F82	TIBETAN SIGN NYI ZLA NAA DA
+00F83	TIBETAN SIGN SNA LDAN
+00F84	TIBETAN MARK HALANTA
+00F85	TIBETAN MARK PALUTA
+00F86	TIBETAN SIGN LCI RTAGS
+00F87	TIBETAN SIGN YANG RTAGS
+00F88	TIBETAN SIGN LCE TSA CAN
+00F89	TIBETAN SIGN MCHU CAN
+00F8A	TIBETAN SIGN GRU CAN RGYINGS
+00F8B	TIBETAN SIGN GRU MED RGYINGS
+00F8C	TIBETAN SIGN INVERTED MCHU CAN
+00F8D	TIBETAN SUBJOINED SIGN LCE TSA CAN
+00F8E	TIBETAN SUBJOINED SIGN MCHU CAN
+00F8F	TIBETAN SUBJOINED SIGN INVERTED MCHU CAN
+00F90	TIBETAN SUBJOINED LETTER KA
+00F91	TIBETAN SUBJOINED LETTER KHA
+00F92	TIBETAN SUBJOINED LETTER GA
+00F93	TIBETAN SUBJOINED LETTER GHA
+00F94	TIBETAN SUBJOINED LETTER NGA
+00F95	TIBETAN SUBJOINED LETTER CA
+00F96	TIBETAN SUBJOINED LETTER CHA
+00F97	TIBETAN SUBJOINED LETTER JA
+00F99	TIBETAN SUBJOINED LETTER NYA
+00F9A	TIBETAN SUBJOINED LETTER TTA
+00F9B	TIBETAN SUBJOINED LETTER TTHA
+00F9C	TIBETAN SUBJOINED LETTER DDA
+00F9D	TIBETAN SUBJOINED LETTER DDHA
+00F9E	TIBETAN SUBJOINED LETTER NNA
+00F9F	TIBETAN SUBJOINED LETTER TA
+00FA0	TIBETAN SUBJOINED LETTER THA
+00FA1	TIBETAN SUBJOINED LETTER DA
+00FA2	TIBETAN SUBJOINED LETTER DHA
+00FA3	TIBETAN SUBJOINED LETTER NA
+00FA4	TIBETAN SUBJOINED LETTER PA
+00FA5	TIBETAN SUBJOINED LETTER PHA
+00FA6	TIBETAN SUBJOINED LETTER BA
+00FA7	TIBETAN SUBJOINED LETTER BHA
+00FA8	TIBETAN SUBJOINED LETTER MA
+00FA9	TIBETAN SUBJOINED LETTER TSA
+00FAA	TIBETAN SUBJOINED LETTER TSHA
+00FAB	TIBETAN SUBJOINED LETTER DZA
+00FAC	TIBETAN SUBJOINED LETTER DZHA
+00FAD	TIBETAN SUBJOINED LETTER WA
+00FAE	TIBETAN SUBJOINED LETTER ZHA
+00FAF	TIBETAN SUBJOINED LETTER ZA
+00FB0	TIBETAN SUBJOINED LETTER -A
+00FB1	TIBETAN SUBJOINED LETTER YA
+00FB2	TIBETAN SUBJOINED LETTER RA
+00FB3	TIBETAN SUBJOINED LETTER LA
+00FB4	TIBETAN SUBJOINED LETTER SHA
+00FB5	TIBETAN SUBJOINED LETTER SSA
+00FB6	TIBETAN SUBJOINED LETTER SA
+00FB7	TIBETAN SUBJOINED LETTER HA
+00FB8	TIBETAN SUBJOINED LETTER A
+00FB9	TIBETAN SUBJOINED LETTER KSSA
+00FBA	TIBETAN SUBJOINED LETTER FIXED-FORM WA
+00FBB	TIBETAN SUBJOINED LETTER FIXED-FORM YA
+00FBC	TIBETAN SUBJOINED LETTER FIXED-FORM RA
+00FBE	TIBETAN KU RU KHA
+00FBF	TIBETAN KU RU KHA BZHI MIG CAN
+00FC0	TIBETAN CANTILLATION SIGN HEAVY BEAT
+00FC1	TIBETAN CANTILLATION SIGN LIGHT BEAT
+00FC2	TIBETAN CANTILLATION SIGN CANG TE-U
+00FC3	TIBETAN CANTILLATION SIGN SBUB -CHAL
+00FC4	TIBETAN SYMBOL DRIL BU
+00FC5	TIBETAN SYMBOL RDO RJE
+00FC6	TIBETAN SYMBOL PADMA GDAN
+00FC7	TIBETAN SYMBOL RDO RJE RGYA GRAM
+00FC8	TIBETAN SYMBOL PHUR PA
+00FC9	TIBETAN SYMBOL NOR BU
+00FCA	TIBETAN SYMBOL NOR BU NYIS -KHYIL
+00FCB	TIBETAN SYMBOL NOR BU GSUM -KHYIL
+00FCC	TIBETAN SYMBOL NOR BU BZHI -KHYIL
+00FCE	TIBETAN SIGN RDEL NAG RDEL DKAR
+00FCF	TIBETAN SIGN RDEL NAG GSUM
+00FD0	TIBETAN MARK BKA- SHOG GI MGO RGYAN
+00FD0	TIBETAN MARK BSKA- SHOG GI MGO RGYAN
+00FD1	TIBETAN MARK MNYAM YIG GI MGO RGYAN
+00FD2	TIBETAN MARK NYIS TSHEG
+00FD3	TIBETAN MARK INITIAL BRDA RNYING YIG MGO MDUN MA
+00FD4	TIBETAN MARK CLOSING BRDA RNYING YIG MGO SGAB MA
+00FD5	RIGHT-FACING SVASTI SIGN
+00FD6	LEFT-FACING SVASTI SIGN
+00FD7	RIGHT-FACING SVASTI SIGN WITH DOTS
+00FD8	LEFT-FACING SVASTI SIGN WITH DOTS
+00FD9	TIBETAN MARK LEADING MCHAN RTAGS
+00FDA	TIBETAN MARK TRAILING MCHAN RTAGS
+01000	MYANMAR LETTER KA
+01001	MYANMAR LETTER KHA
+01002	MYANMAR LETTER GA
+01003	MYANMAR LETTER GHA
+01004	MYANMAR LETTER NGA
+01005	MYANMAR LETTER CA
+01006	MYANMAR LETTER CHA
+01007	MYANMAR LETTER JA
+01008	MYANMAR LETTER JHA
+01009	MYANMAR LETTER NYA
+0100A	MYANMAR LETTER NNYA
+0100B	MYANMAR LETTER TTA
+0100C	MYANMAR LETTER TTHA
+0100D	MYANMAR LETTER DDA
+0100E	MYANMAR LETTER DDHA
+0100F	MYANMAR LETTER NNA
+01010	MYANMAR LETTER TA
+01011	MYANMAR LETTER THA
+01012	MYANMAR LETTER DA
+01013	MYANMAR LETTER DHA
+01014	MYANMAR LETTER NA
+01015	MYANMAR LETTER PA
+01016	MYANMAR LETTER PHA
+01017	MYANMAR LETTER BA
+01018	MYANMAR LETTER BHA
+01019	MYANMAR LETTER MA
+0101A	MYANMAR LETTER YA
+0101B	MYANMAR LETTER RA
+0101C	MYANMAR LETTER LA
+0101D	MYANMAR LETTER WA
+0101E	MYANMAR LETTER SA
+0101F	MYANMAR LETTER HA
+01020	MYANMAR LETTER LLA
+01021	MYANMAR LETTER A
+01022	MYANMAR LETTER SHAN A
+01023	MYANMAR LETTER I
+01024	MYANMAR LETTER II
+01025	MYANMAR LETTER U
+01026	MYANMAR LETTER UU
+01027	MYANMAR LETTER E
+01028	MYANMAR LETTER MON E
+01029	MYANMAR LETTER O
+0102A	MYANMAR LETTER AU
+0102B	MYANMAR VOWEL SIGN TALL AA
+0102C	MYANMAR VOWEL SIGN AA
+0102D	MYANMAR VOWEL SIGN I
+0102E	MYANMAR VOWEL SIGN II
+0102F	MYANMAR VOWEL SIGN U
+01030	MYANMAR VOWEL SIGN UU
+01031	MYANMAR VOWEL SIGN E
+01032	MYANMAR VOWEL SIGN AI
+01033	MYANMAR VOWEL SIGN MON II
+01034	MYANMAR VOWEL SIGN MON O
+01035	MYANMAR VOWEL SIGN E ABOVE
+01036	MYANMAR SIGN ANUSVARA
+01037	MYANMAR SIGN DOT BELOW
+01038	MYANMAR SIGN VISARGA
+01039	MYANMAR SIGN VIRAMA
+0103A	MYANMAR SIGN ASAT
+0103B	MYANMAR CONSONANT SIGN MEDIAL YA
+0103C	MYANMAR CONSONANT SIGN MEDIAL RA
+0103D	MYANMAR CONSONANT SIGN MEDIAL WA
+0103E	MYANMAR CONSONANT SIGN MEDIAL HA
+0103F	MYANMAR LETTER GREAT SA
+01040	MYANMAR DIGIT ZERO
+01041	MYANMAR DIGIT ONE
+01042	MYANMAR DIGIT TWO
+01043	MYANMAR DIGIT THREE
+01044	MYANMAR DIGIT FOUR
+01045	MYANMAR DIGIT FIVE
+01046	MYANMAR DIGIT SIX
+01047	MYANMAR DIGIT SEVEN
+01048	MYANMAR DIGIT EIGHT
+01049	MYANMAR DIGIT NINE
+0104A	MYANMAR SIGN LITTLE SECTION
+0104B	MYANMAR SIGN SECTION
+0104C	MYANMAR SYMBOL LOCATIVE
+0104D	MYANMAR SYMBOL COMPLETED
+0104E	MYANMAR SYMBOL AFOREMENTIONED
+0104F	MYANMAR SYMBOL GENITIVE
+01050	MYANMAR LETTER SHA
+01051	MYANMAR LETTER SSA
+01052	MYANMAR LETTER VOCALIC R
+01053	MYANMAR LETTER VOCALIC RR
+01054	MYANMAR LETTER VOCALIC L
+01055	MYANMAR LETTER VOCALIC LL
+01056	MYANMAR VOWEL SIGN VOCALIC R
+01057	MYANMAR VOWEL SIGN VOCALIC RR
+01058	MYANMAR VOWEL SIGN VOCALIC L
+01059	MYANMAR VOWEL SIGN VOCALIC LL
+0105A	MYANMAR LETTER MON NGA
+0105B	MYANMAR LETTER MON JHA
+0105C	MYANMAR LETTER MON BBA
+0105D	MYANMAR LETTER MON BBE
+0105E	MYANMAR CONSONANT SIGN MON MEDIAL NA
+0105F	MYANMAR CONSONANT SIGN MON MEDIAL MA
+01060	MYANMAR CONSONANT SIGN MON MEDIAL LA
+01061	MYANMAR LETTER SGAW KAREN SHA
+01062	MYANMAR VOWEL SIGN SGAW KAREN EU
+01063	MYANMAR TONE MARK SGAW KAREN HATHI
+01064	MYANMAR TONE MARK SGAW KAREN KE PHO
+01065	MYANMAR LETTER WESTERN PWO KAREN THA
+01066	MYANMAR LETTER WESTERN PWO KAREN PWA
+01067	MYANMAR VOWEL SIGN WESTERN PWO KAREN EU
+01068	MYANMAR VOWEL SIGN WESTERN PWO KAREN UE
+01069	MYANMAR SIGN WESTERN PWO KAREN TONE-1
+0106A	MYANMAR SIGN WESTERN PWO KAREN TONE-2
+0106B	MYANMAR SIGN WESTERN PWO KAREN TONE-3
+0106C	MYANMAR SIGN WESTERN PWO KAREN TONE-4
+0106D	MYANMAR SIGN WESTERN PWO KAREN TONE-5
+0106E	MYANMAR LETTER EASTERN PWO KAREN NNA
+0106F	MYANMAR LETTER EASTERN PWO KAREN YWA
+01070	MYANMAR LETTER EASTERN PWO KAREN GHWA
+01071	MYANMAR VOWEL SIGN GEBA KAREN I
+01072	MYANMAR VOWEL SIGN KAYAH OE
+01073	MYANMAR VOWEL SIGN KAYAH U
+01074	MYANMAR VOWEL SIGN KAYAH EE
+01075	MYANMAR LETTER SHAN KA
+01076	MYANMAR LETTER SHAN KHA
+01077	MYANMAR LETTER SHAN GA
+01078	MYANMAR LETTER SHAN CA
+01079	MYANMAR LETTER SHAN ZA
+0107A	MYANMAR LETTER SHAN NYA
+0107B	MYANMAR LETTER SHAN DA
+0107C	MYANMAR LETTER SHAN NA
+0107D	MYANMAR LETTER SHAN PHA
+0107E	MYANMAR LETTER SHAN FA
+0107F	MYANMAR LETTER SHAN BA
+01080	MYANMAR LETTER SHAN THA
+01081	MYANMAR LETTER SHAN HA
+01082	MYANMAR CONSONANT SIGN SHAN MEDIAL WA
+01083	MYANMAR VOWEL SIGN SHAN AA
+01084	MYANMAR VOWEL SIGN SHAN E
+01085	MYANMAR VOWEL SIGN SHAN E ABOVE
+01086	MYANMAR VOWEL SIGN SHAN FINAL Y
+01087	MYANMAR SIGN SHAN TONE-2
+01088	MYANMAR SIGN SHAN TONE-3
+01089	MYANMAR SIGN SHAN TONE-5
+0108A	MYANMAR SIGN SHAN TONE-6
+0108B	MYANMAR SIGN SHAN COUNCIL TONE-2
+0108C	MYANMAR SIGN SHAN COUNCIL TONE-3
+0108D	MYANMAR SIGN SHAN COUNCIL EMPHATIC TONE
+0108E	MYANMAR LETTER RUMAI PALAUNG FA
+0108F	MYANMAR SIGN RUMAI PALAUNG TONE-5
+01090	MYANMAR SHAN DIGIT ZERO
+01091	MYANMAR SHAN DIGIT ONE
+01092	MYANMAR SHAN DIGIT TWO
+01093	MYANMAR SHAN DIGIT THREE
+01094	MYANMAR SHAN DIGIT FOUR
+01095	MYANMAR SHAN DIGIT FIVE
+01096	MYANMAR SHAN DIGIT SIX
+01097	MYANMAR SHAN DIGIT SEVEN
+01098	MYANMAR SHAN DIGIT EIGHT
+01099	MYANMAR SHAN DIGIT NINE
+0109A	MYANMAR SIGN KHAMTI TONE-1
+0109B	MYANMAR SIGN KHAMTI TONE-3
+0109C	MYANMAR VOWEL SIGN AITON A
+0109D	MYANMAR VOWEL SIGN AITON AI
+0109E	MYANMAR SYMBOL SHAN ONE
+0109F	MYANMAR SYMBOL SHAN EXCLAMATION
+010A0	GEORGIAN CAPITAL LETTER AN
+010A1	GEORGIAN CAPITAL LETTER BAN
+010A2	GEORGIAN CAPITAL LETTER GAN
+010A3	GEORGIAN CAPITAL LETTER DON
+010A4	GEORGIAN CAPITAL LETTER EN
+010A5	GEORGIAN CAPITAL LETTER VIN
+010A6	GEORGIAN CAPITAL LETTER ZEN
+010A7	GEORGIAN CAPITAL LETTER TAN
+010A8	GEORGIAN CAPITAL LETTER IN
+010A9	GEORGIAN CAPITAL LETTER KAN
+010AA	GEORGIAN CAPITAL LETTER LAS
+010AB	GEORGIAN CAPITAL LETTER MAN
+010AC	GEORGIAN CAPITAL LETTER NAR
+010AD	GEORGIAN CAPITAL LETTER ON
+010AE	GEORGIAN CAPITAL LETTER PAR
+010AF	GEORGIAN CAPITAL LETTER ZHAR
+010B0	GEORGIAN CAPITAL LETTER RAE
+010B1	GEORGIAN CAPITAL LETTER SAN
+010B2	GEORGIAN CAPITAL LETTER TAR
+010B3	GEORGIAN CAPITAL LETTER UN
+010B4	GEORGIAN CAPITAL LETTER PHAR
+010B5	GEORGIAN CAPITAL LETTER KHAR
+010B6	GEORGIAN CAPITAL LETTER GHAN
+010B7	GEORGIAN CAPITAL LETTER QAR
+010B8	GEORGIAN CAPITAL LETTER SHIN
+010B9	GEORGIAN CAPITAL LETTER CHIN
+010BA	GEORGIAN CAPITAL LETTER CAN
+010BB	GEORGIAN CAPITAL LETTER JIL
+010BC	GEORGIAN CAPITAL LETTER CIL
+010BD	GEORGIAN CAPITAL LETTER CHAR
+010BE	GEORGIAN CAPITAL LETTER XAN
+010BF	GEORGIAN CAPITAL LETTER JHAN
+010C0	GEORGIAN CAPITAL LETTER HAE
+010C1	GEORGIAN CAPITAL LETTER HE
+010C2	GEORGIAN CAPITAL LETTER HIE
+010C3	GEORGIAN CAPITAL LETTER WE
+010C4	GEORGIAN CAPITAL LETTER HAR
+010C5	GEORGIAN CAPITAL LETTER HOE
+010C7	GEORGIAN CAPITAL LETTER YN
+010CD	GEORGIAN CAPITAL LETTER AEN
+010D0	GEORGIAN LETTER AN
+010D1	GEORGIAN LETTER BAN
+010D2	GEORGIAN LETTER GAN
+010D3	GEORGIAN LETTER DON
+010D4	GEORGIAN LETTER EN
+010D5	GEORGIAN LETTER VIN
+010D6	GEORGIAN LETTER ZEN
+010D7	GEORGIAN LETTER TAN
+010D8	GEORGIAN LETTER IN
+010D9	GEORGIAN LETTER KAN
+010DA	GEORGIAN LETTER LAS
+010DB	GEORGIAN LETTER MAN
+010DC	GEORGIAN LETTER NAR
+010DD	GEORGIAN LETTER ON
+010DE	GEORGIAN LETTER PAR
+010DF	GEORGIAN LETTER ZHAR
+010E0	GEORGIAN LETTER RAE
+010E1	GEORGIAN LETTER SAN
+010E2	GEORGIAN LETTER TAR
+010E3	GEORGIAN LETTER UN
+010E4	GEORGIAN LETTER PHAR
+010E5	GEORGIAN LETTER KHAR
+010E6	GEORGIAN LETTER GHAN
+010E7	GEORGIAN LETTER QAR
+010E8	GEORGIAN LETTER SHIN
+010E9	GEORGIAN LETTER CHIN
+010EA	GEORGIAN LETTER CAN
+010EB	GEORGIAN LETTER JIL
+010EC	GEORGIAN LETTER CIL
+010ED	GEORGIAN LETTER CHAR
+010EE	GEORGIAN LETTER XAN
+010EF	GEORGIAN LETTER JHAN
+010F0	GEORGIAN LETTER HAE
+010F1	GEORGIAN LETTER HE
+010F2	GEORGIAN LETTER HIE
+010F3	GEORGIAN LETTER WE
+010F4	GEORGIAN LETTER HAR
+010F5	GEORGIAN LETTER HOE
+010F6	GEORGIAN LETTER FI
+010F7	GEORGIAN LETTER YN
+010F8	GEORGIAN LETTER ELIFI
+010F9	GEORGIAN LETTER TURNED GAN
+010FA	GEORGIAN LETTER AIN
+010FB	GEORGIAN PARAGRAPH SEPARATOR
+010FC	MODIFIER LETTER GEORGIAN NAR
+010FD	GEORGIAN LETTER AEN
+010FE	GEORGIAN LETTER HARD SIGN
+010FF	GEORGIAN LETTER LABIAL SIGN
+01100	HANGUL CHOSEONG KIYEOK
+01101	HANGUL CHOSEONG SSANGKIYEOK
+01102	HANGUL CHOSEONG NIEUN
+01103	HANGUL CHOSEONG TIKEUT
+01104	HANGUL CHOSEONG SSANGTIKEUT
+01105	HANGUL CHOSEONG RIEUL
+01106	HANGUL CHOSEONG MIEUM
+01107	HANGUL CHOSEONG PIEUP
+01108	HANGUL CHOSEONG SSANGPIEUP
+01109	HANGUL CHOSEONG SIOS
+0110A	HANGUL CHOSEONG SSANGSIOS
+0110B	HANGUL CHOSEONG IEUNG
+0110C	HANGUL CHOSEONG CIEUC
+0110D	HANGUL CHOSEONG SSANGCIEUC
+0110E	HANGUL CHOSEONG CHIEUCH
+0110F	HANGUL CHOSEONG KHIEUKH
+01110	HANGUL CHOSEONG THIEUTH
+01111	HANGUL CHOSEONG PHIEUPH
+01112	HANGUL CHOSEONG HIEUH
+01113	HANGUL CHOSEONG NIEUN-KIYEOK
+01114	HANGUL CHOSEONG SSANGNIEUN
+01115	HANGUL CHOSEONG NIEUN-TIKEUT
+01116	HANGUL CHOSEONG NIEUN-PIEUP
+01117	HANGUL CHOSEONG TIKEUT-KIYEOK
+01118	HANGUL CHOSEONG RIEUL-NIEUN
+01119	HANGUL CHOSEONG SSANGRIEUL
+0111A	HANGUL CHOSEONG RIEUL-HIEUH
+0111B	HANGUL CHOSEONG KAPYEOUNRIEUL
+0111C	HANGUL CHOSEONG MIEUM-PIEUP
+0111D	HANGUL CHOSEONG KAPYEOUNMIEUM
+0111E	HANGUL CHOSEONG PIEUP-KIYEOK
+0111F	HANGUL CHOSEONG PIEUP-NIEUN
+01120	HANGUL CHOSEONG PIEUP-TIKEUT
+01121	HANGUL CHOSEONG PIEUP-SIOS
+01122	HANGUL CHOSEONG PIEUP-SIOS-KIYEOK
+01123	HANGUL CHOSEONG PIEUP-SIOS-TIKEUT
+01124	HANGUL CHOSEONG PIEUP-SIOS-PIEUP
+01125	HANGUL CHOSEONG PIEUP-SSANGSIOS
+01126	HANGUL CHOSEONG PIEUP-SIOS-CIEUC
+01127	HANGUL CHOSEONG PIEUP-CIEUC
+01128	HANGUL CHOSEONG PIEUP-CHIEUCH
+01129	HANGUL CHOSEONG PIEUP-THIEUTH
+0112A	HANGUL CHOSEONG PIEUP-PHIEUPH
+0112B	HANGUL CHOSEONG KAPYEOUNPIEUP
+0112C	HANGUL CHOSEONG KAPYEOUNSSANGPIEUP
+0112D	HANGUL CHOSEONG SIOS-KIYEOK
+0112E	HANGUL CHOSEONG SIOS-NIEUN
+0112F	HANGUL CHOSEONG SIOS-TIKEUT
+01130	HANGUL CHOSEONG SIOS-RIEUL
+01131	HANGUL CHOSEONG SIOS-MIEUM
+01132	HANGUL CHOSEONG SIOS-PIEUP
+01133	HANGUL CHOSEONG SIOS-PIEUP-KIYEOK
+01134	HANGUL CHOSEONG SIOS-SSANGSIOS
+01135	HANGUL CHOSEONG SIOS-IEUNG
+01136	HANGUL CHOSEONG SIOS-CIEUC
+01137	HANGUL CHOSEONG SIOS-CHIEUCH
+01138	HANGUL CHOSEONG SIOS-KHIEUKH
+01139	HANGUL CHOSEONG SIOS-THIEUTH
+0113A	HANGUL CHOSEONG SIOS-PHIEUPH
+0113B	HANGUL CHOSEONG SIOS-HIEUH
+0113C	HANGUL CHOSEONG CHITUEUMSIOS
+0113D	HANGUL CHOSEONG CHITUEUMSSANGSIOS
+0113E	HANGUL CHOSEONG CEONGCHIEUMSIOS
+0113F	HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS
+01140	HANGUL CHOSEONG PANSIOS
+01141	HANGUL CHOSEONG IEUNG-KIYEOK
+01142	HANGUL CHOSEONG IEUNG-TIKEUT
+01143	HANGUL CHOSEONG IEUNG-MIEUM
+01144	HANGUL CHOSEONG IEUNG-PIEUP
+01145	HANGUL CHOSEONG IEUNG-SIOS
+01146	HANGUL CHOSEONG IEUNG-PANSIOS
+01147	HANGUL CHOSEONG SSANGIEUNG
+01148	HANGUL CHOSEONG IEUNG-CIEUC
+01149	HANGUL CHOSEONG IEUNG-CHIEUCH
+0114A	HANGUL CHOSEONG IEUNG-THIEUTH
+0114B	HANGUL CHOSEONG IEUNG-PHIEUPH
+0114C	HANGUL CHOSEONG YESIEUNG
+0114D	HANGUL CHOSEONG CIEUC-IEUNG
+0114E	HANGUL CHOSEONG CHITUEUMCIEUC
+0114F	HANGUL CHOSEONG CHITUEUMSSANGCIEUC
+01150	HANGUL CHOSEONG CEONGCHIEUMCIEUC
+01151	HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC
+01152	HANGUL CHOSEONG CHIEUCH-KHIEUKH
+01153	HANGUL CHOSEONG CHIEUCH-HIEUH
+01154	HANGUL CHOSEONG CHITUEUMCHIEUCH
+01155	HANGUL CHOSEONG CEONGCHIEUMCHIEUCH
+01156	HANGUL CHOSEONG PHIEUPH-PIEUP
+01157	HANGUL CHOSEONG KAPYEOUNPHIEUPH
+01158	HANGUL CHOSEONG SSANGHIEUH
+01159	HANGUL CHOSEONG YEORINHIEUH
+0115A	HANGUL CHOSEONG KIYEOK-TIKEUT
+0115B	HANGUL CHOSEONG NIEUN-SIOS
+0115C	HANGUL CHOSEONG NIEUN-CIEUC
+0115D	HANGUL CHOSEONG NIEUN-HIEUH
+0115E	HANGUL CHOSEONG TIKEUT-RIEUL
+0115F	HANGUL CHOSEONG FILLER
+01160	HANGUL JUNGSEONG FILLER
+01161	HANGUL JUNGSEONG A
+01162	HANGUL JUNGSEONG AE
+01163	HANGUL JUNGSEONG YA
+01164	HANGUL JUNGSEONG YAE
+01165	HANGUL JUNGSEONG EO
+01166	HANGUL JUNGSEONG E
+01167	HANGUL JUNGSEONG YEO
+01168	HANGUL JUNGSEONG YE
+01169	HANGUL JUNGSEONG O
+0116A	HANGUL JUNGSEONG WA
+0116B	HANGUL JUNGSEONG WAE
+0116C	HANGUL JUNGSEONG OE
+0116D	HANGUL JUNGSEONG YO
+0116E	HANGUL JUNGSEONG U
+0116F	HANGUL JUNGSEONG WEO
+01170	HANGUL JUNGSEONG WE
+01171	HANGUL JUNGSEONG WI
+01172	HANGUL JUNGSEONG YU
+01173	HANGUL JUNGSEONG EU
+01174	HANGUL JUNGSEONG YI
+01175	HANGUL JUNGSEONG I
+01176	HANGUL JUNGSEONG A-O
+01177	HANGUL JUNGSEONG A-U
+01178	HANGUL JUNGSEONG YA-O
+01179	HANGUL JUNGSEONG YA-YO
+0117A	HANGUL JUNGSEONG EO-O
+0117B	HANGUL JUNGSEONG EO-U
+0117C	HANGUL JUNGSEONG EO-EU
+0117D	HANGUL JUNGSEONG YEO-O
+0117E	HANGUL JUNGSEONG YEO-U
+0117F	HANGUL JUNGSEONG O-EO
+01180	HANGUL JUNGSEONG O-E
+01181	HANGUL JUNGSEONG O-YE
+01182	HANGUL JUNGSEONG O-O
+01183	HANGUL JUNGSEONG O-U
+01184	HANGUL JUNGSEONG YO-YA
+01185	HANGUL JUNGSEONG YO-YAE
+01186	HANGUL JUNGSEONG YO-YEO
+01187	HANGUL JUNGSEONG YO-O
+01188	HANGUL JUNGSEONG YO-I
+01189	HANGUL JUNGSEONG U-A
+0118A	HANGUL JUNGSEONG U-AE
+0118B	HANGUL JUNGSEONG U-EO-EU
+0118C	HANGUL JUNGSEONG U-YE
+0118D	HANGUL JUNGSEONG U-U
+0118E	HANGUL JUNGSEONG YU-A
+0118F	HANGUL JUNGSEONG YU-EO
+01190	HANGUL JUNGSEONG YU-E
+01191	HANGUL JUNGSEONG YU-YEO
+01192	HANGUL JUNGSEONG YU-YE
+01193	HANGUL JUNGSEONG YU-U
+01194	HANGUL JUNGSEONG YU-I
+01195	HANGUL JUNGSEONG EU-U
+01196	HANGUL JUNGSEONG EU-EU
+01197	HANGUL JUNGSEONG YI-U
+01198	HANGUL JUNGSEONG I-A
+01199	HANGUL JUNGSEONG I-YA
+0119A	HANGUL JUNGSEONG I-O
+0119B	HANGUL JUNGSEONG I-U
+0119C	HANGUL JUNGSEONG I-EU
+0119D	HANGUL JUNGSEONG I-ARAEA
+0119E	HANGUL JUNGSEONG ARAEA
+0119F	HANGUL JUNGSEONG ARAEA-EO
+011A0	HANGUL JUNGSEONG ARAEA-U
+011A1	HANGUL JUNGSEONG ARAEA-I
+011A2	HANGUL JUNGSEONG SSANGARAEA
+011A3	HANGUL JUNGSEONG A-EU
+011A4	HANGUL JUNGSEONG YA-U
+011A5	HANGUL JUNGSEONG YEO-YA
+011A6	HANGUL JUNGSEONG O-YA
+011A7	HANGUL JUNGSEONG O-YAE
+011A8	HANGUL JONGSEONG KIYEOK
+011A9	HANGUL JONGSEONG SSANGKIYEOK
+011AA	HANGUL JONGSEONG KIYEOK-SIOS
+011AB	HANGUL JONGSEONG NIEUN
+011AC	HANGUL JONGSEONG NIEUN-CIEUC
+011AD	HANGUL JONGSEONG NIEUN-HIEUH
+011AE	HANGUL JONGSEONG TIKEUT
+011AF	HANGUL JONGSEONG RIEUL
+011B0	HANGUL JONGSEONG RIEUL-KIYEOK
+011B1	HANGUL JONGSEONG RIEUL-MIEUM
+011B2	HANGUL JONGSEONG RIEUL-PIEUP
+011B3	HANGUL JONGSEONG RIEUL-SIOS
+011B4	HANGUL JONGSEONG RIEUL-THIEUTH
+011B5	HANGUL JONGSEONG RIEUL-PHIEUPH
+011B6	HANGUL JONGSEONG RIEUL-HIEUH
+011B7	HANGUL JONGSEONG MIEUM
+011B8	HANGUL JONGSEONG PIEUP
+011B9	HANGUL JONGSEONG PIEUP-SIOS
+011BA	HANGUL JONGSEONG SIOS
+011BB	HANGUL JONGSEONG SSANGSIOS
+011BC	HANGUL JONGSEONG IEUNG
+011BD	HANGUL JONGSEONG CIEUC
+011BE	HANGUL JONGSEONG CHIEUCH
+011BF	HANGUL JONGSEONG KHIEUKH
+011C0	HANGUL JONGSEONG THIEUTH
+011C1	HANGUL JONGSEONG PHIEUPH
+011C2	HANGUL JONGSEONG HIEUH
+011C3	HANGUL JONGSEONG KIYEOK-RIEUL
+011C4	HANGUL JONGSEONG KIYEOK-SIOS-KIYEOK
+011C5	HANGUL JONGSEONG NIEUN-KIYEOK
+011C6	HANGUL JONGSEONG NIEUN-TIKEUT
+011C7	HANGUL JONGSEONG NIEUN-SIOS
+011C8	HANGUL JONGSEONG NIEUN-PANSIOS
+011C9	HANGUL JONGSEONG NIEUN-THIEUTH
+011CA	HANGUL JONGSEONG TIKEUT-KIYEOK
+011CB	HANGUL JONGSEONG TIKEUT-RIEUL
+011CC	HANGUL JONGSEONG RIEUL-KIYEOK-SIOS
+011CD	HANGUL JONGSEONG RIEUL-NIEUN
+011CE	HANGUL JONGSEONG RIEUL-TIKEUT
+011CF	HANGUL JONGSEONG RIEUL-TIKEUT-HIEUH
+011D0	HANGUL JONGSEONG SSANGRIEUL
+011D1	HANGUL JONGSEONG RIEUL-MIEUM-KIYEOK
+011D2	HANGUL JONGSEONG RIEUL-MIEUM-SIOS
+011D3	HANGUL JONGSEONG RIEUL-PIEUP-SIOS
+011D4	HANGUL JONGSEONG RIEUL-PIEUP-HIEUH
+011D5	HANGUL JONGSEONG RIEUL-KAPYEOUNPIEUP
+011D6	HANGUL JONGSEONG RIEUL-SSANGSIOS
+011D7	HANGUL JONGSEONG RIEUL-PANSIOS
+011D8	HANGUL JONGSEONG RIEUL-KHIEUKH
+011D9	HANGUL JONGSEONG RIEUL-YEORINHIEUH
+011DA	HANGUL JONGSEONG MIEUM-KIYEOK
+011DB	HANGUL JONGSEONG MIEUM-RIEUL
+011DC	HANGUL JONGSEONG MIEUM-PIEUP
+011DD	HANGUL JONGSEONG MIEUM-SIOS
+011DE	HANGUL JONGSEONG MIEUM-SSANGSIOS
+011DF	HANGUL JONGSEONG MIEUM-PANSIOS
+011E0	HANGUL JONGSEONG MIEUM-CHIEUCH
+011E1	HANGUL JONGSEONG MIEUM-HIEUH
+011E2	HANGUL JONGSEONG KAPYEOUNMIEUM
+011E3	HANGUL JONGSEONG PIEUP-RIEUL
+011E4	HANGUL JONGSEONG PIEUP-PHIEUPH
+011E5	HANGUL JONGSEONG PIEUP-HIEUH
+011E6	HANGUL JONGSEONG KAPYEOUNPIEUP
+011E7	HANGUL JONGSEONG SIOS-KIYEOK
+011E8	HANGUL JONGSEONG SIOS-TIKEUT
+011E9	HANGUL JONGSEONG SIOS-RIEUL
+011EA	HANGUL JONGSEONG SIOS-PIEUP
+011EB	HANGUL JONGSEONG PANSIOS
+011EC	HANGUL JONGSEONG YESIEUNG-KIYEOK
+011EC	HANGUL JONGSEONG IEUNG-KIYEOK
+011ED	HANGUL JONGSEONG YESIEUNG-SSANGKIYEOK
+011ED	HANGUL JONGSEONG IEUNG-SSANGKIYEOK
+011EE	HANGUL JONGSEONG SSANGYESIEUNG
+011EE	HANGUL JONGSEONG SSANGIEUNG
+011EF	HANGUL JONGSEONG YESIEUNG-KHIEUKH
+011EF	HANGUL JONGSEONG IEUNG-KHIEUKH
+011F0	HANGUL JONGSEONG YESIEUNG
+011F1	HANGUL JONGSEONG YESIEUNG-SIOS
+011F2	HANGUL JONGSEONG YESIEUNG-PANSIOS
+011F3	HANGUL JONGSEONG PHIEUPH-PIEUP
+011F4	HANGUL JONGSEONG KAPYEOUNPHIEUPH
+011F5	HANGUL JONGSEONG HIEUH-NIEUN
+011F6	HANGUL JONGSEONG HIEUH-RIEUL
+011F7	HANGUL JONGSEONG HIEUH-MIEUM
+011F8	HANGUL JONGSEONG HIEUH-PIEUP
+011F9	HANGUL JONGSEONG YEORINHIEUH
+011FA	HANGUL JONGSEONG KIYEOK-NIEUN
+011FB	HANGUL JONGSEONG KIYEOK-PIEUP
+011FC	HANGUL JONGSEONG KIYEOK-CHIEUCH
+011FD	HANGUL JONGSEONG KIYEOK-KHIEUKH
+011FE	HANGUL JONGSEONG KIYEOK-HIEUH
+011FF	HANGUL JONGSEONG SSANGNIEUN
+01200	ETHIOPIC SYLLABLE HA
+01201	ETHIOPIC SYLLABLE HU
+01202	ETHIOPIC SYLLABLE HI
+01203	ETHIOPIC SYLLABLE HAA
+01204	ETHIOPIC SYLLABLE HEE
+01205	ETHIOPIC SYLLABLE HE
+01206	ETHIOPIC SYLLABLE HO
+01207	ETHIOPIC SYLLABLE HOA
+01208	ETHIOPIC SYLLABLE LA
+01209	ETHIOPIC SYLLABLE LU
+0120A	ETHIOPIC SYLLABLE LI
+0120B	ETHIOPIC SYLLABLE LAA
+0120C	ETHIOPIC SYLLABLE LEE
+0120D	ETHIOPIC SYLLABLE LE
+0120E	ETHIOPIC SYLLABLE LO
+0120F	ETHIOPIC SYLLABLE LWA
+01210	ETHIOPIC SYLLABLE HHA
+01211	ETHIOPIC SYLLABLE HHU
+01212	ETHIOPIC SYLLABLE HHI
+01213	ETHIOPIC SYLLABLE HHAA
+01214	ETHIOPIC SYLLABLE HHEE
+01215	ETHIOPIC SYLLABLE HHE
+01216	ETHIOPIC SYLLABLE HHO
+01217	ETHIOPIC SYLLABLE HHWA
+01218	ETHIOPIC SYLLABLE MA
+01219	ETHIOPIC SYLLABLE MU
+0121A	ETHIOPIC SYLLABLE MI
+0121B	ETHIOPIC SYLLABLE MAA
+0121C	ETHIOPIC SYLLABLE MEE
+0121D	ETHIOPIC SYLLABLE ME
+0121E	ETHIOPIC SYLLABLE MO
+0121F	ETHIOPIC SYLLABLE MWA
+01220	ETHIOPIC SYLLABLE SZA
+01221	ETHIOPIC SYLLABLE SZU
+01222	ETHIOPIC SYLLABLE SZI
+01223	ETHIOPIC SYLLABLE SZAA
+01224	ETHIOPIC SYLLABLE SZEE
+01225	ETHIOPIC SYLLABLE SZE
+01226	ETHIOPIC SYLLABLE SZO
+01227	ETHIOPIC SYLLABLE SZWA
+01228	ETHIOPIC SYLLABLE RA
+01229	ETHIOPIC SYLLABLE RU
+0122A	ETHIOPIC SYLLABLE RI
+0122B	ETHIOPIC SYLLABLE RAA
+0122C	ETHIOPIC SYLLABLE REE
+0122D	ETHIOPIC SYLLABLE RE
+0122E	ETHIOPIC SYLLABLE RO
+0122F	ETHIOPIC SYLLABLE RWA
+01230	ETHIOPIC SYLLABLE SA
+01231	ETHIOPIC SYLLABLE SU
+01232	ETHIOPIC SYLLABLE SI
+01233	ETHIOPIC SYLLABLE SAA
+01234	ETHIOPIC SYLLABLE SEE
+01235	ETHIOPIC SYLLABLE SE
+01236	ETHIOPIC SYLLABLE SO
+01237	ETHIOPIC SYLLABLE SWA
+01238	ETHIOPIC SYLLABLE SHA
+01239	ETHIOPIC SYLLABLE SHU
+0123A	ETHIOPIC SYLLABLE SHI
+0123B	ETHIOPIC SYLLABLE SHAA
+0123C	ETHIOPIC SYLLABLE SHEE
+0123D	ETHIOPIC SYLLABLE SHE
+0123E	ETHIOPIC SYLLABLE SHO
+0123F	ETHIOPIC SYLLABLE SHWA
+01240	ETHIOPIC SYLLABLE QA
+01241	ETHIOPIC SYLLABLE QU
+01242	ETHIOPIC SYLLABLE QI
+01243	ETHIOPIC SYLLABLE QAA
+01244	ETHIOPIC SYLLABLE QEE
+01245	ETHIOPIC SYLLABLE QE
+01246	ETHIOPIC SYLLABLE QO
+01247	ETHIOPIC SYLLABLE QOA
+01248	ETHIOPIC SYLLABLE QWA
+0124A	ETHIOPIC SYLLABLE QWI
+0124B	ETHIOPIC SYLLABLE QWAA
+0124C	ETHIOPIC SYLLABLE QWEE
+0124D	ETHIOPIC SYLLABLE QWE
+01250	ETHIOPIC SYLLABLE QHA
+01251	ETHIOPIC SYLLABLE QHU
+01252	ETHIOPIC SYLLABLE QHI
+01253	ETHIOPIC SYLLABLE QHAA
+01254	ETHIOPIC SYLLABLE QHEE
+01255	ETHIOPIC SYLLABLE QHE
+01256	ETHIOPIC SYLLABLE QHO
+01258	ETHIOPIC SYLLABLE QHWA
+0125A	ETHIOPIC SYLLABLE QHWI
+0125B	ETHIOPIC SYLLABLE QHWAA
+0125C	ETHIOPIC SYLLABLE QHWEE
+0125D	ETHIOPIC SYLLABLE QHWE
+01260	ETHIOPIC SYLLABLE BA
+01261	ETHIOPIC SYLLABLE BU
+01262	ETHIOPIC SYLLABLE BI
+01263	ETHIOPIC SYLLABLE BAA
+01264	ETHIOPIC SYLLABLE BEE
+01265	ETHIOPIC SYLLABLE BE
+01266	ETHIOPIC SYLLABLE BO
+01267	ETHIOPIC SYLLABLE BWA
+01268	ETHIOPIC SYLLABLE VA
+01269	ETHIOPIC SYLLABLE VU
+0126A	ETHIOPIC SYLLABLE VI
+0126B	ETHIOPIC SYLLABLE VAA
+0126C	ETHIOPIC SYLLABLE VEE
+0126D	ETHIOPIC SYLLABLE VE
+0126E	ETHIOPIC SYLLABLE VO
+0126F	ETHIOPIC SYLLABLE VWA
+01270	ETHIOPIC SYLLABLE TA
+01271	ETHIOPIC SYLLABLE TU
+01272	ETHIOPIC SYLLABLE TI
+01273	ETHIOPIC SYLLABLE TAA
+01274	ETHIOPIC SYLLABLE TEE
+01275	ETHIOPIC SYLLABLE TE
+01276	ETHIOPIC SYLLABLE TO
+01277	ETHIOPIC SYLLABLE TWA
+01278	ETHIOPIC SYLLABLE CA
+01279	ETHIOPIC SYLLABLE CU
+0127A	ETHIOPIC SYLLABLE CI
+0127B	ETHIOPIC SYLLABLE CAA
+0127C	ETHIOPIC SYLLABLE CEE
+0127D	ETHIOPIC SYLLABLE CE
+0127E	ETHIOPIC SYLLABLE CO
+0127F	ETHIOPIC SYLLABLE CWA
+01280	ETHIOPIC SYLLABLE XA
+01281	ETHIOPIC SYLLABLE XU
+01282	ETHIOPIC SYLLABLE XI
+01283	ETHIOPIC SYLLABLE XAA
+01284	ETHIOPIC SYLLABLE XEE
+01285	ETHIOPIC SYLLABLE XE
+01286	ETHIOPIC SYLLABLE XO
+01287	ETHIOPIC SYLLABLE XOA
+01288	ETHIOPIC SYLLABLE XWA
+0128A	ETHIOPIC SYLLABLE XWI
+0128B	ETHIOPIC SYLLABLE XWAA
+0128C	ETHIOPIC SYLLABLE XWEE
+0128D	ETHIOPIC SYLLABLE XWE
+01290	ETHIOPIC SYLLABLE NA
+01291	ETHIOPIC SYLLABLE NU
+01292	ETHIOPIC SYLLABLE NI
+01293	ETHIOPIC SYLLABLE NAA
+01294	ETHIOPIC SYLLABLE NEE
+01295	ETHIOPIC SYLLABLE NE
+01296	ETHIOPIC SYLLABLE NO
+01297	ETHIOPIC SYLLABLE NWA
+01298	ETHIOPIC SYLLABLE NYA
+01299	ETHIOPIC SYLLABLE NYU
+0129A	ETHIOPIC SYLLABLE NYI
+0129B	ETHIOPIC SYLLABLE NYAA
+0129C	ETHIOPIC SYLLABLE NYEE
+0129D	ETHIOPIC SYLLABLE NYE
+0129E	ETHIOPIC SYLLABLE NYO
+0129F	ETHIOPIC SYLLABLE NYWA
+012A0	ETHIOPIC SYLLABLE GLOTTAL A
+012A1	ETHIOPIC SYLLABLE GLOTTAL U
+012A2	ETHIOPIC SYLLABLE GLOTTAL I
+012A3	ETHIOPIC SYLLABLE GLOTTAL AA
+012A4	ETHIOPIC SYLLABLE GLOTTAL EE
+012A5	ETHIOPIC SYLLABLE GLOTTAL E
+012A6	ETHIOPIC SYLLABLE GLOTTAL O
+012A7	ETHIOPIC SYLLABLE GLOTTAL WA
+012A8	ETHIOPIC SYLLABLE KA
+012A9	ETHIOPIC SYLLABLE KU
+012AA	ETHIOPIC SYLLABLE KI
+012AB	ETHIOPIC SYLLABLE KAA
+012AC	ETHIOPIC SYLLABLE KEE
+012AD	ETHIOPIC SYLLABLE KE
+012AE	ETHIOPIC SYLLABLE KO
+012AF	ETHIOPIC SYLLABLE KOA
+012B0	ETHIOPIC SYLLABLE KWA
+012B2	ETHIOPIC SYLLABLE KWI
+012B3	ETHIOPIC SYLLABLE KWAA
+012B4	ETHIOPIC SYLLABLE KWEE
+012B5	ETHIOPIC SYLLABLE KWE
+012B8	ETHIOPIC SYLLABLE KXA
+012B9	ETHIOPIC SYLLABLE KXU
+012BA	ETHIOPIC SYLLABLE KXI
+012BB	ETHIOPIC SYLLABLE KXAA
+012BC	ETHIOPIC SYLLABLE KXEE
+012BD	ETHIOPIC SYLLABLE KXE
+012BE	ETHIOPIC SYLLABLE KXO
+012C0	ETHIOPIC SYLLABLE KXWA
+012C2	ETHIOPIC SYLLABLE KXWI
+012C3	ETHIOPIC SYLLABLE KXWAA
+012C4	ETHIOPIC SYLLABLE KXWEE
+012C5	ETHIOPIC SYLLABLE KXWE
+012C8	ETHIOPIC SYLLABLE WA
+012C9	ETHIOPIC SYLLABLE WU
+012CA	ETHIOPIC SYLLABLE WI
+012CB	ETHIOPIC SYLLABLE WAA
+012CC	ETHIOPIC SYLLABLE WEE
+012CD	ETHIOPIC SYLLABLE WE
+012CE	ETHIOPIC SYLLABLE WO
+012CF	ETHIOPIC SYLLABLE WOA
+012D0	ETHIOPIC SYLLABLE PHARYNGEAL A
+012D1	ETHIOPIC SYLLABLE PHARYNGEAL U
+012D2	ETHIOPIC SYLLABLE PHARYNGEAL I
+012D3	ETHIOPIC SYLLABLE PHARYNGEAL AA
+012D4	ETHIOPIC SYLLABLE PHARYNGEAL EE
+012D5	ETHIOPIC SYLLABLE PHARYNGEAL E
+012D6	ETHIOPIC SYLLABLE PHARYNGEAL O
+012D8	ETHIOPIC SYLLABLE ZA
+012D9	ETHIOPIC SYLLABLE ZU
+012DA	ETHIOPIC SYLLABLE ZI
+012DB	ETHIOPIC SYLLABLE ZAA
+012DC	ETHIOPIC SYLLABLE ZEE
+012DD	ETHIOPIC SYLLABLE ZE
+012DE	ETHIOPIC SYLLABLE ZO
+012DF	ETHIOPIC SYLLABLE ZWA
+012E0	ETHIOPIC SYLLABLE ZHA
+012E1	ETHIOPIC SYLLABLE ZHU
+012E2	ETHIOPIC SYLLABLE ZHI
+012E3	ETHIOPIC SYLLABLE ZHAA
+012E4	ETHIOPIC SYLLABLE ZHEE
+012E5	ETHIOPIC SYLLABLE ZHE
+012E6	ETHIOPIC SYLLABLE ZHO
+012E7	ETHIOPIC SYLLABLE ZHWA
+012E8	ETHIOPIC SYLLABLE YA
+012E9	ETHIOPIC SYLLABLE YU
+012EA	ETHIOPIC SYLLABLE YI
+012EB	ETHIOPIC SYLLABLE YAA
+012EC	ETHIOPIC SYLLABLE YEE
+012ED	ETHIOPIC SYLLABLE YE
+012EE	ETHIOPIC SYLLABLE YO
+012EF	ETHIOPIC SYLLABLE YOA
+012F0	ETHIOPIC SYLLABLE DA
+012F1	ETHIOPIC SYLLABLE DU
+012F2	ETHIOPIC SYLLABLE DI
+012F3	ETHIOPIC SYLLABLE DAA
+012F4	ETHIOPIC SYLLABLE DEE
+012F5	ETHIOPIC SYLLABLE DE
+012F6	ETHIOPIC SYLLABLE DO
+012F7	ETHIOPIC SYLLABLE DWA
+012F8	ETHIOPIC SYLLABLE DDA
+012F9	ETHIOPIC SYLLABLE DDU
+012FA	ETHIOPIC SYLLABLE DDI
+012FB	ETHIOPIC SYLLABLE DDAA
+012FC	ETHIOPIC SYLLABLE DDEE
+012FD	ETHIOPIC SYLLABLE DDE
+012FE	ETHIOPIC SYLLABLE DDO
+012FF	ETHIOPIC SYLLABLE DDWA
+01300	ETHIOPIC SYLLABLE JA
+01301	ETHIOPIC SYLLABLE JU
+01302	ETHIOPIC SYLLABLE JI
+01303	ETHIOPIC SYLLABLE JAA
+01304	ETHIOPIC SYLLABLE JEE
+01305	ETHIOPIC SYLLABLE JE
+01306	ETHIOPIC SYLLABLE JO
+01307	ETHIOPIC SYLLABLE JWA
+01308	ETHIOPIC SYLLABLE GA
+01309	ETHIOPIC SYLLABLE GU
+0130A	ETHIOPIC SYLLABLE GI
+0130B	ETHIOPIC SYLLABLE GAA
+0130C	ETHIOPIC SYLLABLE GEE
+0130D	ETHIOPIC SYLLABLE GE
+0130E	ETHIOPIC SYLLABLE GO
+0130F	ETHIOPIC SYLLABLE GOA
+01310	ETHIOPIC SYLLABLE GWA
+01312	ETHIOPIC SYLLABLE GWI
+01313	ETHIOPIC SYLLABLE GWAA
+01314	ETHIOPIC SYLLABLE GWEE
+01315	ETHIOPIC SYLLABLE GWE
+01318	ETHIOPIC SYLLABLE GGA
+01319	ETHIOPIC SYLLABLE GGU
+0131A	ETHIOPIC SYLLABLE GGI
+0131B	ETHIOPIC SYLLABLE GGAA
+0131C	ETHIOPIC SYLLABLE GGEE
+0131D	ETHIOPIC SYLLABLE GGE
+0131E	ETHIOPIC SYLLABLE GGO
+0131F	ETHIOPIC SYLLABLE GGWAA
+01320	ETHIOPIC SYLLABLE THA
+01321	ETHIOPIC SYLLABLE THU
+01322	ETHIOPIC SYLLABLE THI
+01323	ETHIOPIC SYLLABLE THAA
+01324	ETHIOPIC SYLLABLE THEE
+01325	ETHIOPIC SYLLABLE THE
+01326	ETHIOPIC SYLLABLE THO
+01327	ETHIOPIC SYLLABLE THWA
+01328	ETHIOPIC SYLLABLE CHA
+01329	ETHIOPIC SYLLABLE CHU
+0132A	ETHIOPIC SYLLABLE CHI
+0132B	ETHIOPIC SYLLABLE CHAA
+0132C	ETHIOPIC SYLLABLE CHEE
+0132D	ETHIOPIC SYLLABLE CHE
+0132E	ETHIOPIC SYLLABLE CHO
+0132F	ETHIOPIC SYLLABLE CHWA
+01330	ETHIOPIC SYLLABLE PHA
+01331	ETHIOPIC SYLLABLE PHU
+01332	ETHIOPIC SYLLABLE PHI
+01333	ETHIOPIC SYLLABLE PHAA
+01334	ETHIOPIC SYLLABLE PHEE
+01335	ETHIOPIC SYLLABLE PHE
+01336	ETHIOPIC SYLLABLE PHO
+01337	ETHIOPIC SYLLABLE PHWA
+01338	ETHIOPIC SYLLABLE TSA
+01339	ETHIOPIC SYLLABLE TSU
+0133A	ETHIOPIC SYLLABLE TSI
+0133B	ETHIOPIC SYLLABLE TSAA
+0133C	ETHIOPIC SYLLABLE TSEE
+0133D	ETHIOPIC SYLLABLE TSE
+0133E	ETHIOPIC SYLLABLE TSO
+0133F	ETHIOPIC SYLLABLE TSWA
+01340	ETHIOPIC SYLLABLE TZA
+01341	ETHIOPIC SYLLABLE TZU
+01342	ETHIOPIC SYLLABLE TZI
+01343	ETHIOPIC SYLLABLE TZAA
+01344	ETHIOPIC SYLLABLE TZEE
+01345	ETHIOPIC SYLLABLE TZE
+01346	ETHIOPIC SYLLABLE TZO
+01347	ETHIOPIC SYLLABLE TZOA
+01348	ETHIOPIC SYLLABLE FA
+01349	ETHIOPIC SYLLABLE FU
+0134A	ETHIOPIC SYLLABLE FI
+0134B	ETHIOPIC SYLLABLE FAA
+0134C	ETHIOPIC SYLLABLE FEE
+0134D	ETHIOPIC SYLLABLE FE
+0134E	ETHIOPIC SYLLABLE FO
+0134F	ETHIOPIC SYLLABLE FWA
+01350	ETHIOPIC SYLLABLE PA
+01351	ETHIOPIC SYLLABLE PU
+01352	ETHIOPIC SYLLABLE PI
+01353	ETHIOPIC SYLLABLE PAA
+01354	ETHIOPIC SYLLABLE PEE
+01355	ETHIOPIC SYLLABLE PE
+01356	ETHIOPIC SYLLABLE PO
+01357	ETHIOPIC SYLLABLE PWA
+01358	ETHIOPIC SYLLABLE RYA
+01359	ETHIOPIC SYLLABLE MYA
+0135A	ETHIOPIC SYLLABLE FYA
+0135D	ETHIOPIC COMBINING GEMINATION AND VOWEL LENGTH MARK
+0135E	ETHIOPIC COMBINING VOWEL LENGTH MARK
+0135F	ETHIOPIC COMBINING GEMINATION MARK
+01360	ETHIOPIC SECTION MARK
+01361	ETHIOPIC WORDSPACE
+01362	ETHIOPIC FULL STOP
+01363	ETHIOPIC COMMA
+01364	ETHIOPIC SEMICOLON
+01365	ETHIOPIC COLON
+01366	ETHIOPIC PREFACE COLON
+01367	ETHIOPIC QUESTION MARK
+01368	ETHIOPIC PARAGRAPH SEPARATOR
+01369	ETHIOPIC DIGIT ONE
+0136A	ETHIOPIC DIGIT TWO
+0136B	ETHIOPIC DIGIT THREE
+0136C	ETHIOPIC DIGIT FOUR
+0136D	ETHIOPIC DIGIT FIVE
+0136E	ETHIOPIC DIGIT SIX
+0136F	ETHIOPIC DIGIT SEVEN
+01370	ETHIOPIC DIGIT EIGHT
+01371	ETHIOPIC DIGIT NINE
+01372	ETHIOPIC NUMBER TEN
+01373	ETHIOPIC NUMBER TWENTY
+01374	ETHIOPIC NUMBER THIRTY
+01375	ETHIOPIC NUMBER FORTY
+01376	ETHIOPIC NUMBER FIFTY
+01377	ETHIOPIC NUMBER SIXTY
+01378	ETHIOPIC NUMBER SEVENTY
+01379	ETHIOPIC NUMBER EIGHTY
+0137A	ETHIOPIC NUMBER NINETY
+0137B	ETHIOPIC NUMBER HUNDRED
+0137C	ETHIOPIC NUMBER TEN THOUSAND
+01380	ETHIOPIC SYLLABLE SEBATBEIT MWA
+01381	ETHIOPIC SYLLABLE MWI
+01382	ETHIOPIC SYLLABLE MWEE
+01383	ETHIOPIC SYLLABLE MWE
+01384	ETHIOPIC SYLLABLE SEBATBEIT BWA
+01385	ETHIOPIC SYLLABLE BWI
+01386	ETHIOPIC SYLLABLE BWEE
+01387	ETHIOPIC SYLLABLE BWE
+01388	ETHIOPIC SYLLABLE SEBATBEIT FWA
+01389	ETHIOPIC SYLLABLE FWI
+0138A	ETHIOPIC SYLLABLE FWEE
+0138B	ETHIOPIC SYLLABLE FWE
+0138C	ETHIOPIC SYLLABLE SEBATBEIT PWA
+0138D	ETHIOPIC SYLLABLE PWI
+0138E	ETHIOPIC SYLLABLE PWEE
+0138F	ETHIOPIC SYLLABLE PWE
+01390	ETHIOPIC TONAL MARK YIZET
+01391	ETHIOPIC TONAL MARK DERET
+01392	ETHIOPIC TONAL MARK RIKRIK
+01393	ETHIOPIC TONAL MARK SHORT RIKRIK
+01394	ETHIOPIC TONAL MARK DIFAT
+01395	ETHIOPIC TONAL MARK KENAT
+01396	ETHIOPIC TONAL MARK CHIRET
+01397	ETHIOPIC TONAL MARK HIDET
+01398	ETHIOPIC TONAL MARK DERET-HIDET
+01399	ETHIOPIC TONAL MARK KURT
+013A0	CHEROKEE LETTER A
+013A1	CHEROKEE LETTER E
+013A2	CHEROKEE LETTER I
+013A3	CHEROKEE LETTER O
+013A4	CHEROKEE LETTER U
+013A5	CHEROKEE LETTER V
+013A6	CHEROKEE LETTER GA
+013A7	CHEROKEE LETTER KA
+013A8	CHEROKEE LETTER GE
+013A9	CHEROKEE LETTER GI
+013AA	CHEROKEE LETTER GO
+013AB	CHEROKEE LETTER GU
+013AC	CHEROKEE LETTER GV
+013AD	CHEROKEE LETTER HA
+013AE	CHEROKEE LETTER HE
+013AF	CHEROKEE LETTER HI
+013B0	CHEROKEE LETTER HO
+013B1	CHEROKEE LETTER HU
+013B2	CHEROKEE LETTER HV
+013B3	CHEROKEE LETTER LA
+013B4	CHEROKEE LETTER LE
+013B5	CHEROKEE LETTER LI
+013B6	CHEROKEE LETTER LO
+013B7	CHEROKEE LETTER LU
+013B8	CHEROKEE LETTER LV
+013B9	CHEROKEE LETTER MA
+013BA	CHEROKEE LETTER ME
+013BB	CHEROKEE LETTER MI
+013BC	CHEROKEE LETTER MO
+013BD	CHEROKEE LETTER MU
+013BE	CHEROKEE LETTER NA
+013BF	CHEROKEE LETTER HNA
+013C0	CHEROKEE LETTER NAH
+013C1	CHEROKEE LETTER NE
+013C2	CHEROKEE LETTER NI
+013C3	CHEROKEE LETTER NO
+013C4	CHEROKEE LETTER NU
+013C5	CHEROKEE LETTER NV
+013C6	CHEROKEE LETTER QUA
+013C7	CHEROKEE LETTER QUE
+013C8	CHEROKEE LETTER QUI
+013C9	CHEROKEE LETTER QUO
+013CA	CHEROKEE LETTER QUU
+013CB	CHEROKEE LETTER QUV
+013CC	CHEROKEE LETTER SA
+013CD	CHEROKEE LETTER S
+013CE	CHEROKEE LETTER SE
+013CF	CHEROKEE LETTER SI
+013D0	CHEROKEE LETTER SO
+013D1	CHEROKEE LETTER SU
+013D2	CHEROKEE LETTER SV
+013D3	CHEROKEE LETTER DA
+013D4	CHEROKEE LETTER TA
+013D5	CHEROKEE LETTER DE
+013D6	CHEROKEE LETTER TE
+013D7	CHEROKEE LETTER DI
+013D8	CHEROKEE LETTER TI
+013D9	CHEROKEE LETTER DO
+013DA	CHEROKEE LETTER DU
+013DB	CHEROKEE LETTER DV
+013DC	CHEROKEE LETTER DLA
+013DD	CHEROKEE LETTER TLA
+013DE	CHEROKEE LETTER TLE
+013DF	CHEROKEE LETTER TLI
+013E0	CHEROKEE LETTER TLO
+013E1	CHEROKEE LETTER TLU
+013E2	CHEROKEE LETTER TLV
+013E3	CHEROKEE LETTER TSA
+013E4	CHEROKEE LETTER TSE
+013E5	CHEROKEE LETTER TSI
+013E6	CHEROKEE LETTER TSO
+013E7	CHEROKEE LETTER TSU
+013E8	CHEROKEE LETTER TSV
+013E9	CHEROKEE LETTER WA
+013EA	CHEROKEE LETTER WE
+013EB	CHEROKEE LETTER WI
+013EC	CHEROKEE LETTER WO
+013ED	CHEROKEE LETTER WU
+013EE	CHEROKEE LETTER WV
+013EF	CHEROKEE LETTER YA
+013F0	CHEROKEE LETTER YE
+013F1	CHEROKEE LETTER YI
+013F2	CHEROKEE LETTER YO
+013F3	CHEROKEE LETTER YU
+013F4	CHEROKEE LETTER YV
+013F5	CHEROKEE LETTER MV
+013F8	CHEROKEE SMALL LETTER YE
+013F9	CHEROKEE SMALL LETTER YI
+013FA	CHEROKEE SMALL LETTER YO
+013FB	CHEROKEE SMALL LETTER YU
+013FC	CHEROKEE SMALL LETTER YV
+013FD	CHEROKEE SMALL LETTER MV
+01400	CANADIAN SYLLABICS HYPHEN
+01401	CANADIAN SYLLABICS E
+01402	CANADIAN SYLLABICS AAI
+01403	CANADIAN SYLLABICS I
+01404	CANADIAN SYLLABICS II
+01405	CANADIAN SYLLABICS O
+01406	CANADIAN SYLLABICS OO
+01407	CANADIAN SYLLABICS Y-CREE OO
+01408	CANADIAN SYLLABICS CARRIER EE
+01409	CANADIAN SYLLABICS CARRIER I
+0140A	CANADIAN SYLLABICS A
+0140B	CANADIAN SYLLABICS AA
+0140C	CANADIAN SYLLABICS WE
+0140D	CANADIAN SYLLABICS WEST-CREE WE
+0140E	CANADIAN SYLLABICS WI
+0140F	CANADIAN SYLLABICS WEST-CREE WI
+01410	CANADIAN SYLLABICS WII
+01411	CANADIAN SYLLABICS WEST-CREE WII
+01412	CANADIAN SYLLABICS WO
+01413	CANADIAN SYLLABICS WEST-CREE WO
+01414	CANADIAN SYLLABICS WOO
+01415	CANADIAN SYLLABICS WEST-CREE WOO
+01416	CANADIAN SYLLABICS NASKAPI WOO
+01417	CANADIAN SYLLABICS WA
+01418	CANADIAN SYLLABICS WEST-CREE WA
+01419	CANADIAN SYLLABICS WAA
+0141A	CANADIAN SYLLABICS WEST-CREE WAA
+0141B	CANADIAN SYLLABICS NASKAPI WAA
+0141C	CANADIAN SYLLABICS AI
+0141D	CANADIAN SYLLABICS Y-CREE W
+0141E	CANADIAN SYLLABICS GLOTTAL STOP
+0141F	CANADIAN SYLLABICS FINAL ACUTE
+01420	CANADIAN SYLLABICS FINAL GRAVE
+01421	CANADIAN SYLLABICS FINAL BOTTOM HALF RING
+01422	CANADIAN SYLLABICS FINAL TOP HALF RING
+01423	CANADIAN SYLLABICS FINAL RIGHT HALF RING
+01424	CANADIAN SYLLABICS FINAL RING
+01425	CANADIAN SYLLABICS FINAL DOUBLE ACUTE
+01426	CANADIAN SYLLABICS FINAL DOUBLE SHORT VERTICAL STROKES
+01427	CANADIAN SYLLABICS FINAL MIDDLE DOT
+01428	CANADIAN SYLLABICS FINAL SHORT HORIZONTAL STROKE
+01429	CANADIAN SYLLABICS FINAL PLUS
+0142A	CANADIAN SYLLABICS FINAL DOWN TACK
+0142B	CANADIAN SYLLABICS EN
+0142C	CANADIAN SYLLABICS IN
+0142D	CANADIAN SYLLABICS ON
+0142E	CANADIAN SYLLABICS AN
+0142F	CANADIAN SYLLABICS PE
+01430	CANADIAN SYLLABICS PAAI
+01431	CANADIAN SYLLABICS PI
+01432	CANADIAN SYLLABICS PII
+01433	CANADIAN SYLLABICS PO
+01434	CANADIAN SYLLABICS POO
+01435	CANADIAN SYLLABICS Y-CREE POO
+01436	CANADIAN SYLLABICS CARRIER HEE
+01437	CANADIAN SYLLABICS CARRIER HI
+01438	CANADIAN SYLLABICS PA
+01439	CANADIAN SYLLABICS PAA
+0143A	CANADIAN SYLLABICS PWE
+0143B	CANADIAN SYLLABICS WEST-CREE PWE
+0143C	CANADIAN SYLLABICS PWI
+0143D	CANADIAN SYLLABICS WEST-CREE PWI
+0143E	CANADIAN SYLLABICS PWII
+0143F	CANADIAN SYLLABICS WEST-CREE PWII
+01440	CANADIAN SYLLABICS PWO
+01441	CANADIAN SYLLABICS WEST-CREE PWO
+01442	CANADIAN SYLLABICS PWOO
+01443	CANADIAN SYLLABICS WEST-CREE PWOO
+01444	CANADIAN SYLLABICS PWA
+01445	CANADIAN SYLLABICS WEST-CREE PWA
+01446	CANADIAN SYLLABICS PWAA
+01447	CANADIAN SYLLABICS WEST-CREE PWAA
+01448	CANADIAN SYLLABICS Y-CREE PWAA
+01449	CANADIAN SYLLABICS P
+0144A	CANADIAN SYLLABICS WEST-CREE P
+0144B	CANADIAN SYLLABICS CARRIER H
+0144C	CANADIAN SYLLABICS TE
+0144D	CANADIAN SYLLABICS TAAI
+0144E	CANADIAN SYLLABICS TI
+0144F	CANADIAN SYLLABICS TII
+01450	CANADIAN SYLLABICS TO
+01451	CANADIAN SYLLABICS TOO
+01452	CANADIAN SYLLABICS Y-CREE TOO
+01453	CANADIAN SYLLABICS CARRIER DEE
+01454	CANADIAN SYLLABICS CARRIER DI
+01455	CANADIAN SYLLABICS TA
+01456	CANADIAN SYLLABICS TAA
+01457	CANADIAN SYLLABICS TWE
+01458	CANADIAN SYLLABICS WEST-CREE TWE
+01459	CANADIAN SYLLABICS TWI
+0145A	CANADIAN SYLLABICS WEST-CREE TWI
+0145B	CANADIAN SYLLABICS TWII
+0145C	CANADIAN SYLLABICS WEST-CREE TWII
+0145D	CANADIAN SYLLABICS TWO
+0145E	CANADIAN SYLLABICS WEST-CREE TWO
+0145F	CANADIAN SYLLABICS TWOO
+01460	CANADIAN SYLLABICS WEST-CREE TWOO
+01461	CANADIAN SYLLABICS TWA
+01462	CANADIAN SYLLABICS WEST-CREE TWA
+01463	CANADIAN SYLLABICS TWAA
+01464	CANADIAN SYLLABICS WEST-CREE TWAA
+01465	CANADIAN SYLLABICS NASKAPI TWAA
+01466	CANADIAN SYLLABICS T
+01467	CANADIAN SYLLABICS TTE
+01468	CANADIAN SYLLABICS TTI
+01469	CANADIAN SYLLABICS TTO
+0146A	CANADIAN SYLLABICS TTA
+0146B	CANADIAN SYLLABICS KE
+0146C	CANADIAN SYLLABICS KAAI
+0146D	CANADIAN SYLLABICS KI
+0146E	CANADIAN SYLLABICS KII
+0146F	CANADIAN SYLLABICS KO
+01470	CANADIAN SYLLABICS KOO
+01471	CANADIAN SYLLABICS Y-CREE KOO
+01472	CANADIAN SYLLABICS KA
+01473	CANADIAN SYLLABICS KAA
+01474	CANADIAN SYLLABICS KWE
+01475	CANADIAN SYLLABICS WEST-CREE KWE
+01476	CANADIAN SYLLABICS KWI
+01477	CANADIAN SYLLABICS WEST-CREE KWI
+01478	CANADIAN SYLLABICS KWII
+01479	CANADIAN SYLLABICS WEST-CREE KWII
+0147A	CANADIAN SYLLABICS KWO
+0147B	CANADIAN SYLLABICS WEST-CREE KWO
+0147C	CANADIAN SYLLABICS KWOO
+0147D	CANADIAN SYLLABICS WEST-CREE KWOO
+0147E	CANADIAN SYLLABICS KWA
+0147F	CANADIAN SYLLABICS WEST-CREE KWA
+01480	CANADIAN SYLLABICS KWAA
+01481	CANADIAN SYLLABICS WEST-CREE KWAA
+01482	CANADIAN SYLLABICS NASKAPI KWAA
+01483	CANADIAN SYLLABICS K
+01484	CANADIAN SYLLABICS KW
+01485	CANADIAN SYLLABICS SOUTH-SLAVEY KEH
+01486	CANADIAN SYLLABICS SOUTH-SLAVEY KIH
+01487	CANADIAN SYLLABICS SOUTH-SLAVEY KOH
+01488	CANADIAN SYLLABICS SOUTH-SLAVEY KAH
+01489	CANADIAN SYLLABICS CE
+0148A	CANADIAN SYLLABICS CAAI
+0148B	CANADIAN SYLLABICS CI
+0148C	CANADIAN SYLLABICS CII
+0148D	CANADIAN SYLLABICS CO
+0148E	CANADIAN SYLLABICS COO
+0148F	CANADIAN SYLLABICS Y-CREE COO
+01490	CANADIAN SYLLABICS CA
+01491	CANADIAN SYLLABICS CAA
+01492	CANADIAN SYLLABICS CWE
+01493	CANADIAN SYLLABICS WEST-CREE CWE
+01494	CANADIAN SYLLABICS CWI
+01495	CANADIAN SYLLABICS WEST-CREE CWI
+01496	CANADIAN SYLLABICS CWII
+01497	CANADIAN SYLLABICS WEST-CREE CWII
+01498	CANADIAN SYLLABICS CWO
+01499	CANADIAN SYLLABICS WEST-CREE CWO
+0149A	CANADIAN SYLLABICS CWOO
+0149B	CANADIAN SYLLABICS WEST-CREE CWOO
+0149C	CANADIAN SYLLABICS CWA
+0149D	CANADIAN SYLLABICS WEST-CREE CWA
+0149E	CANADIAN SYLLABICS CWAA
+0149F	CANADIAN SYLLABICS WEST-CREE CWAA
+014A0	CANADIAN SYLLABICS NASKAPI CWAA
+014A1	CANADIAN SYLLABICS C
+014A2	CANADIAN SYLLABICS SAYISI TH
+014A3	CANADIAN SYLLABICS ME
+014A4	CANADIAN SYLLABICS MAAI
+014A5	CANADIAN SYLLABICS MI
+014A6	CANADIAN SYLLABICS MII
+014A7	CANADIAN SYLLABICS MO
+014A8	CANADIAN SYLLABICS MOO
+014A9	CANADIAN SYLLABICS Y-CREE MOO
+014AA	CANADIAN SYLLABICS MA
+014AB	CANADIAN SYLLABICS MAA
+014AC	CANADIAN SYLLABICS MWE
+014AD	CANADIAN SYLLABICS WEST-CREE MWE
+014AE	CANADIAN SYLLABICS MWI
+014AF	CANADIAN SYLLABICS WEST-CREE MWI
+014B0	CANADIAN SYLLABICS MWII
+014B1	CANADIAN SYLLABICS WEST-CREE MWII
+014B2	CANADIAN SYLLABICS MWO
+014B3	CANADIAN SYLLABICS WEST-CREE MWO
+014B4	CANADIAN SYLLABICS MWOO
+014B5	CANADIAN SYLLABICS WEST-CREE MWOO
+014B6	CANADIAN SYLLABICS MWA
+014B7	CANADIAN SYLLABICS WEST-CREE MWA
+014B8	CANADIAN SYLLABICS MWAA
+014B9	CANADIAN SYLLABICS WEST-CREE MWAA
+014BA	CANADIAN SYLLABICS NASKAPI MWAA
+014BB	CANADIAN SYLLABICS M
+014BC	CANADIAN SYLLABICS WEST-CREE M
+014BD	CANADIAN SYLLABICS MH
+014BE	CANADIAN SYLLABICS ATHAPASCAN M
+014BF	CANADIAN SYLLABICS SAYISI M
+014C0	CANADIAN SYLLABICS NE
+014C1	CANADIAN SYLLABICS NAAI
+014C2	CANADIAN SYLLABICS NI
+014C3	CANADIAN SYLLABICS NII
+014C4	CANADIAN SYLLABICS NO
+014C5	CANADIAN SYLLABICS NOO
+014C6	CANADIAN SYLLABICS Y-CREE NOO
+014C7	CANADIAN SYLLABICS NA
+014C8	CANADIAN SYLLABICS NAA
+014C9	CANADIAN SYLLABICS NWE
+014CA	CANADIAN SYLLABICS WEST-CREE NWE
+014CB	CANADIAN SYLLABICS NWA
+014CC	CANADIAN SYLLABICS WEST-CREE NWA
+014CD	CANADIAN SYLLABICS NWAA
+014CE	CANADIAN SYLLABICS WEST-CREE NWAA
+014CF	CANADIAN SYLLABICS NASKAPI NWAA
+014D0	CANADIAN SYLLABICS N
+014D1	CANADIAN SYLLABICS CARRIER NG
+014D2	CANADIAN SYLLABICS NH
+014D3	CANADIAN SYLLABICS LE
+014D4	CANADIAN SYLLABICS LAAI
+014D5	CANADIAN SYLLABICS LI
+014D6	CANADIAN SYLLABICS LII
+014D7	CANADIAN SYLLABICS LO
+014D8	CANADIAN SYLLABICS LOO
+014D9	CANADIAN SYLLABICS Y-CREE LOO
+014DA	CANADIAN SYLLABICS LA
+014DB	CANADIAN SYLLABICS LAA
+014DC	CANADIAN SYLLABICS LWE
+014DD	CANADIAN SYLLABICS WEST-CREE LWE
+014DE	CANADIAN SYLLABICS LWI
+014DF	CANADIAN SYLLABICS WEST-CREE LWI
+014E0	CANADIAN SYLLABICS LWII
+014E1	CANADIAN SYLLABICS WEST-CREE LWII
+014E2	CANADIAN SYLLABICS LWO
+014E3	CANADIAN SYLLABICS WEST-CREE LWO
+014E4	CANADIAN SYLLABICS LWOO
+014E5	CANADIAN SYLLABICS WEST-CREE LWOO
+014E6	CANADIAN SYLLABICS LWA
+014E7	CANADIAN SYLLABICS WEST-CREE LWA
+014E8	CANADIAN SYLLABICS LWAA
+014E9	CANADIAN SYLLABICS WEST-CREE LWAA
+014EA	CANADIAN SYLLABICS L
+014EB	CANADIAN SYLLABICS WEST-CREE L
+014EC	CANADIAN SYLLABICS MEDIAL L
+014ED	CANADIAN SYLLABICS SE
+014EE	CANADIAN SYLLABICS SAAI
+014EF	CANADIAN SYLLABICS SI
+014F0	CANADIAN SYLLABICS SII
+014F1	CANADIAN SYLLABICS SO
+014F2	CANADIAN SYLLABICS SOO
+014F3	CANADIAN SYLLABICS Y-CREE SOO
+014F4	CANADIAN SYLLABICS SA
+014F5	CANADIAN SYLLABICS SAA
+014F6	CANADIAN SYLLABICS SWE
+014F7	CANADIAN SYLLABICS WEST-CREE SWE
+014F8	CANADIAN SYLLABICS SWI
+014F9	CANADIAN SYLLABICS WEST-CREE SWI
+014FA	CANADIAN SYLLABICS SWII
+014FB	CANADIAN SYLLABICS WEST-CREE SWII
+014FC	CANADIAN SYLLABICS SWO
+014FD	CANADIAN SYLLABICS WEST-CREE SWO
+014FE	CANADIAN SYLLABICS SWOO
+014FF	CANADIAN SYLLABICS WEST-CREE SWOO
+01500	CANADIAN SYLLABICS SWA
+01501	CANADIAN SYLLABICS WEST-CREE SWA
+01502	CANADIAN SYLLABICS SWAA
+01503	CANADIAN SYLLABICS WEST-CREE SWAA
+01504	CANADIAN SYLLABICS NASKAPI SWAA
+01505	CANADIAN SYLLABICS S
+01506	CANADIAN SYLLABICS ATHAPASCAN S
+01507	CANADIAN SYLLABICS SW
+01508	CANADIAN SYLLABICS BLACKFOOT S
+01509	CANADIAN SYLLABICS MOOSE-CREE SK
+0150A	CANADIAN SYLLABICS NASKAPI SKW
+0150B	CANADIAN SYLLABICS NASKAPI S-W
+0150C	CANADIAN SYLLABICS NASKAPI SPWA
+0150D	CANADIAN SYLLABICS NASKAPI STWA
+0150E	CANADIAN SYLLABICS NASKAPI SKWA
+0150F	CANADIAN SYLLABICS NASKAPI SCWA
+01510	CANADIAN SYLLABICS SHE
+01511	CANADIAN SYLLABICS SHI
+01512	CANADIAN SYLLABICS SHII
+01513	CANADIAN SYLLABICS SHO
+01514	CANADIAN SYLLABICS SHOO
+01515	CANADIAN SYLLABICS SHA
+01516	CANADIAN SYLLABICS SHAA
+01517	CANADIAN SYLLABICS SHWE
+01518	CANADIAN SYLLABICS WEST-CREE SHWE
+01519	CANADIAN SYLLABICS SHWI
+0151A	CANADIAN SYLLABICS WEST-CREE SHWI
+0151B	CANADIAN SYLLABICS SHWII
+0151C	CANADIAN SYLLABICS WEST-CREE SHWII
+0151D	CANADIAN SYLLABICS SHWO
+0151E	CANADIAN SYLLABICS WEST-CREE SHWO
+0151F	CANADIAN SYLLABICS SHWOO
+01520	CANADIAN SYLLABICS WEST-CREE SHWOO
+01521	CANADIAN SYLLABICS SHWA
+01522	CANADIAN SYLLABICS WEST-CREE SHWA
+01523	CANADIAN SYLLABICS SHWAA
+01524	CANADIAN SYLLABICS WEST-CREE SHWAA
+01525	CANADIAN SYLLABICS SH
+01526	CANADIAN SYLLABICS YE
+01527	CANADIAN SYLLABICS YAAI
+01528	CANADIAN SYLLABICS YI
+01529	CANADIAN SYLLABICS YII
+0152A	CANADIAN SYLLABICS YO
+0152B	CANADIAN SYLLABICS YOO
+0152C	CANADIAN SYLLABICS Y-CREE YOO
+0152D	CANADIAN SYLLABICS YA
+0152E	CANADIAN SYLLABICS YAA
+0152F	CANADIAN SYLLABICS YWE
+01530	CANADIAN SYLLABICS WEST-CREE YWE
+01531	CANADIAN SYLLABICS YWI
+01532	CANADIAN SYLLABICS WEST-CREE YWI
+01533	CANADIAN SYLLABICS YWII
+01534	CANADIAN SYLLABICS WEST-CREE YWII
+01535	CANADIAN SYLLABICS YWO
+01536	CANADIAN SYLLABICS WEST-CREE YWO
+01537	CANADIAN SYLLABICS YWOO
+01538	CANADIAN SYLLABICS WEST-CREE YWOO
+01539	CANADIAN SYLLABICS YWA
+0153A	CANADIAN SYLLABICS WEST-CREE YWA
+0153B	CANADIAN SYLLABICS YWAA
+0153C	CANADIAN SYLLABICS WEST-CREE YWAA
+0153D	CANADIAN SYLLABICS NASKAPI YWAA
+0153E	CANADIAN SYLLABICS Y
+0153F	CANADIAN SYLLABICS BIBLE-CREE Y
+01540	CANADIAN SYLLABICS WEST-CREE Y
+01541	CANADIAN SYLLABICS SAYISI YI
+01542	CANADIAN SYLLABICS RE
+01543	CANADIAN SYLLABICS R-CREE RE
+01544	CANADIAN SYLLABICS WEST-CREE LE
+01545	CANADIAN SYLLABICS RAAI
+01546	CANADIAN SYLLABICS RI
+01547	CANADIAN SYLLABICS RII
+01548	CANADIAN SYLLABICS RO
+01549	CANADIAN SYLLABICS ROO
+0154A	CANADIAN SYLLABICS WEST-CREE LO
+0154B	CANADIAN SYLLABICS RA
+0154C	CANADIAN SYLLABICS RAA
+0154D	CANADIAN SYLLABICS WEST-CREE LA
+0154E	CANADIAN SYLLABICS RWAA
+0154F	CANADIAN SYLLABICS WEST-CREE RWAA
+01550	CANADIAN SYLLABICS R
+01551	CANADIAN SYLLABICS WEST-CREE R
+01552	CANADIAN SYLLABICS MEDIAL R
+01553	CANADIAN SYLLABICS FE
+01554	CANADIAN SYLLABICS FAAI
+01555	CANADIAN SYLLABICS FI
+01556	CANADIAN SYLLABICS FII
+01557	CANADIAN SYLLABICS FO
+01558	CANADIAN SYLLABICS FOO
+01559	CANADIAN SYLLABICS FA
+0155A	CANADIAN SYLLABICS FAA
+0155B	CANADIAN SYLLABICS FWAA
+0155C	CANADIAN SYLLABICS WEST-CREE FWAA
+0155D	CANADIAN SYLLABICS F
+0155E	CANADIAN SYLLABICS THE
+0155F	CANADIAN SYLLABICS N-CREE THE
+01560	CANADIAN SYLLABICS THI
+01561	CANADIAN SYLLABICS N-CREE THI
+01562	CANADIAN SYLLABICS THII
+01563	CANADIAN SYLLABICS N-CREE THII
+01564	CANADIAN SYLLABICS THO
+01565	CANADIAN SYLLABICS THOO
+01566	CANADIAN SYLLABICS THA
+01567	CANADIAN SYLLABICS THAA
+01568	CANADIAN SYLLABICS THWAA
+01569	CANADIAN SYLLABICS WEST-CREE THWAA
+0156A	CANADIAN SYLLABICS TH
+0156B	CANADIAN SYLLABICS TTHE
+0156C	CANADIAN SYLLABICS TTHI
+0156D	CANADIAN SYLLABICS TTHO
+0156E	CANADIAN SYLLABICS TTHA
+0156F	CANADIAN SYLLABICS TTH
+01570	CANADIAN SYLLABICS TYE
+01571	CANADIAN SYLLABICS TYI
+01572	CANADIAN SYLLABICS TYO
+01573	CANADIAN SYLLABICS TYA
+01574	CANADIAN SYLLABICS NUNAVIK HE
+01575	CANADIAN SYLLABICS NUNAVIK HI
+01576	CANADIAN SYLLABICS NUNAVIK HII
+01577	CANADIAN SYLLABICS NUNAVIK HO
+01578	CANADIAN SYLLABICS NUNAVIK HOO
+01579	CANADIAN SYLLABICS NUNAVIK HA
+0157A	CANADIAN SYLLABICS NUNAVIK HAA
+0157B	CANADIAN SYLLABICS NUNAVIK H
+0157C	CANADIAN SYLLABICS NUNAVUT H
+0157D	CANADIAN SYLLABICS HK
+0157E	CANADIAN SYLLABICS QAAI
+0157F	CANADIAN SYLLABICS QI
+01580	CANADIAN SYLLABICS QII
+01581	CANADIAN SYLLABICS QO
+01582	CANADIAN SYLLABICS QOO
+01583	CANADIAN SYLLABICS QA
+01584	CANADIAN SYLLABICS QAA
+01585	CANADIAN SYLLABICS Q
+01586	CANADIAN SYLLABICS TLHE
+01587	CANADIAN SYLLABICS TLHI
+01588	CANADIAN SYLLABICS TLHO
+01589	CANADIAN SYLLABICS TLHA
+0158A	CANADIAN SYLLABICS WEST-CREE RE
+0158B	CANADIAN SYLLABICS WEST-CREE RI
+0158C	CANADIAN SYLLABICS WEST-CREE RO
+0158D	CANADIAN SYLLABICS WEST-CREE RA
+0158E	CANADIAN SYLLABICS NGAAI
+0158F	CANADIAN SYLLABICS NGI
+01590	CANADIAN SYLLABICS NGII
+01591	CANADIAN SYLLABICS NGO
+01592	CANADIAN SYLLABICS NGOO
+01593	CANADIAN SYLLABICS NGA
+01594	CANADIAN SYLLABICS NGAA
+01595	CANADIAN SYLLABICS NG
+01596	CANADIAN SYLLABICS NNG
+01597	CANADIAN SYLLABICS SAYISI SHE
+01598	CANADIAN SYLLABICS SAYISI SHI
+01599	CANADIAN SYLLABICS SAYISI SHO
+0159A	CANADIAN SYLLABICS SAYISI SHA
+0159B	CANADIAN SYLLABICS WOODS-CREE THE
+0159C	CANADIAN SYLLABICS WOODS-CREE THI
+0159D	CANADIAN SYLLABICS WOODS-CREE THO
+0159E	CANADIAN SYLLABICS WOODS-CREE THA
+0159F	CANADIAN SYLLABICS WOODS-CREE TH
+015A0	CANADIAN SYLLABICS LHI
+015A1	CANADIAN SYLLABICS LHII
+015A2	CANADIAN SYLLABICS LHO
+015A3	CANADIAN SYLLABICS LHOO
+015A4	CANADIAN SYLLABICS LHA
+015A5	CANADIAN SYLLABICS LHAA
+015A6	CANADIAN SYLLABICS LH
+015A7	CANADIAN SYLLABICS TH-CREE THE
+015A8	CANADIAN SYLLABICS TH-CREE THI
+015A9	CANADIAN SYLLABICS TH-CREE THII
+015AA	CANADIAN SYLLABICS TH-CREE THO
+015AB	CANADIAN SYLLABICS TH-CREE THOO
+015AC	CANADIAN SYLLABICS TH-CREE THA
+015AD	CANADIAN SYLLABICS TH-CREE THAA
+015AE	CANADIAN SYLLABICS TH-CREE TH
+015AF	CANADIAN SYLLABICS AIVILIK B
+015B0	CANADIAN SYLLABICS BLACKFOOT E
+015B1	CANADIAN SYLLABICS BLACKFOOT I
+015B2	CANADIAN SYLLABICS BLACKFOOT O
+015B3	CANADIAN SYLLABICS BLACKFOOT A
+015B4	CANADIAN SYLLABICS BLACKFOOT WE
+015B5	CANADIAN SYLLABICS BLACKFOOT WI
+015B6	CANADIAN SYLLABICS BLACKFOOT WO
+015B7	CANADIAN SYLLABICS BLACKFOOT WA
+015B8	CANADIAN SYLLABICS BLACKFOOT NE
+015B9	CANADIAN SYLLABICS BLACKFOOT NI
+015BA	CANADIAN SYLLABICS BLACKFOOT NO
+015BB	CANADIAN SYLLABICS BLACKFOOT NA
+015BC	CANADIAN SYLLABICS BLACKFOOT KE
+015BD	CANADIAN SYLLABICS BLACKFOOT KI
+015BE	CANADIAN SYLLABICS BLACKFOOT KO
+015BF	CANADIAN SYLLABICS BLACKFOOT KA
+015C0	CANADIAN SYLLABICS SAYISI HE
+015C1	CANADIAN SYLLABICS SAYISI HI
+015C2	CANADIAN SYLLABICS SAYISI HO
+015C3	CANADIAN SYLLABICS SAYISI HA
+015C4	CANADIAN SYLLABICS CARRIER GHU
+015C5	CANADIAN SYLLABICS CARRIER GHO
+015C6	CANADIAN SYLLABICS CARRIER GHE
+015C7	CANADIAN SYLLABICS CARRIER GHEE
+015C8	CANADIAN SYLLABICS CARRIER GHI
+015C9	CANADIAN SYLLABICS CARRIER GHA
+015CA	CANADIAN SYLLABICS CARRIER RU
+015CB	CANADIAN SYLLABICS CARRIER RO
+015CC	CANADIAN SYLLABICS CARRIER RE
+015CD	CANADIAN SYLLABICS CARRIER REE
+015CE	CANADIAN SYLLABICS CARRIER RI
+015CF	CANADIAN SYLLABICS CARRIER RA
+015D0	CANADIAN SYLLABICS CARRIER WU
+015D1	CANADIAN SYLLABICS CARRIER WO
+015D2	CANADIAN SYLLABICS CARRIER WE
+015D3	CANADIAN SYLLABICS CARRIER WEE
+015D4	CANADIAN SYLLABICS CARRIER WI
+015D5	CANADIAN SYLLABICS CARRIER WA
+015D6	CANADIAN SYLLABICS CARRIER HWU
+015D7	CANADIAN SYLLABICS CARRIER HWO
+015D8	CANADIAN SYLLABICS CARRIER HWE
+015D9	CANADIAN SYLLABICS CARRIER HWEE
+015DA	CANADIAN SYLLABICS CARRIER HWI
+015DB	CANADIAN SYLLABICS CARRIER HWA
+015DC	CANADIAN SYLLABICS CARRIER THU
+015DD	CANADIAN SYLLABICS CARRIER THO
+015DE	CANADIAN SYLLABICS CARRIER THE
+015DF	CANADIAN SYLLABICS CARRIER THEE
+015E0	CANADIAN SYLLABICS CARRIER THI
+015E1	CANADIAN SYLLABICS CARRIER THA
+015E2	CANADIAN SYLLABICS CARRIER TTU
+015E3	CANADIAN SYLLABICS CARRIER TTO
+015E4	CANADIAN SYLLABICS CARRIER TTE
+015E5	CANADIAN SYLLABICS CARRIER TTEE
+015E6	CANADIAN SYLLABICS CARRIER TTI
+015E7	CANADIAN SYLLABICS CARRIER TTA
+015E8	CANADIAN SYLLABICS CARRIER PU
+015E9	CANADIAN SYLLABICS CARRIER PO
+015EA	CANADIAN SYLLABICS CARRIER PE
+015EB	CANADIAN SYLLABICS CARRIER PEE
+015EC	CANADIAN SYLLABICS CARRIER PI
+015ED	CANADIAN SYLLABICS CARRIER PA
+015EE	CANADIAN SYLLABICS CARRIER P
+015EF	CANADIAN SYLLABICS CARRIER GU
+015F0	CANADIAN SYLLABICS CARRIER GO
+015F1	CANADIAN SYLLABICS CARRIER GE
+015F2	CANADIAN SYLLABICS CARRIER GEE
+015F3	CANADIAN SYLLABICS CARRIER GI
+015F4	CANADIAN SYLLABICS CARRIER GA
+015F5	CANADIAN SYLLABICS CARRIER KHU
+015F6	CANADIAN SYLLABICS CARRIER KHO
+015F7	CANADIAN SYLLABICS CARRIER KHE
+015F8	CANADIAN SYLLABICS CARRIER KHEE
+015F9	CANADIAN SYLLABICS CARRIER KHI
+015FA	CANADIAN SYLLABICS CARRIER KHA
+015FB	CANADIAN SYLLABICS CARRIER KKU
+015FC	CANADIAN SYLLABICS CARRIER KKO
+015FD	CANADIAN SYLLABICS CARRIER KKE
+015FE	CANADIAN SYLLABICS CARRIER KKEE
+015FF	CANADIAN SYLLABICS CARRIER KKI
+01600	CANADIAN SYLLABICS CARRIER KKA
+01601	CANADIAN SYLLABICS CARRIER KK
+01602	CANADIAN SYLLABICS CARRIER NU
+01603	CANADIAN SYLLABICS CARRIER NO
+01604	CANADIAN SYLLABICS CARRIER NE
+01605	CANADIAN SYLLABICS CARRIER NEE
+01606	CANADIAN SYLLABICS CARRIER NI
+01607	CANADIAN SYLLABICS CARRIER NA
+01608	CANADIAN SYLLABICS CARRIER MU
+01609	CANADIAN SYLLABICS CARRIER MO
+0160A	CANADIAN SYLLABICS CARRIER ME
+0160B	CANADIAN SYLLABICS CARRIER MEE
+0160C	CANADIAN SYLLABICS CARRIER MI
+0160D	CANADIAN SYLLABICS CARRIER MA
+0160E	CANADIAN SYLLABICS CARRIER YU
+0160F	CANADIAN SYLLABICS CARRIER YO
+01610	CANADIAN SYLLABICS CARRIER YE
+01611	CANADIAN SYLLABICS CARRIER YEE
+01612	CANADIAN SYLLABICS CARRIER YI
+01613	CANADIAN SYLLABICS CARRIER YA
+01614	CANADIAN SYLLABICS CARRIER JU
+01615	CANADIAN SYLLABICS SAYISI JU
+01616	CANADIAN SYLLABICS CARRIER JO
+01617	CANADIAN SYLLABICS CARRIER JE
+01618	CANADIAN SYLLABICS CARRIER JEE
+01619	CANADIAN SYLLABICS CARRIER JI
+0161A	CANADIAN SYLLABICS SAYISI JI
+0161B	CANADIAN SYLLABICS CARRIER JA
+0161C	CANADIAN SYLLABICS CARRIER JJU
+0161D	CANADIAN SYLLABICS CARRIER JJO
+0161E	CANADIAN SYLLABICS CARRIER JJE
+0161F	CANADIAN SYLLABICS CARRIER JJEE
+01620	CANADIAN SYLLABICS CARRIER JJI
+01621	CANADIAN SYLLABICS CARRIER JJA
+01622	CANADIAN SYLLABICS CARRIER LU
+01623	CANADIAN SYLLABICS CARRIER LO
+01624	CANADIAN SYLLABICS CARRIER LE
+01625	CANADIAN SYLLABICS CARRIER LEE
+01626	CANADIAN SYLLABICS CARRIER LI
+01627	CANADIAN SYLLABICS CARRIER LA
+01628	CANADIAN SYLLABICS CARRIER DLU
+01629	CANADIAN SYLLABICS CARRIER DLO
+0162A	CANADIAN SYLLABICS CARRIER DLE
+0162B	CANADIAN SYLLABICS CARRIER DLEE
+0162C	CANADIAN SYLLABICS CARRIER DLI
+0162D	CANADIAN SYLLABICS CARRIER DLA
+0162E	CANADIAN SYLLABICS CARRIER LHU
+0162F	CANADIAN SYLLABICS CARRIER LHO
+01630	CANADIAN SYLLABICS CARRIER LHE
+01631	CANADIAN SYLLABICS CARRIER LHEE
+01632	CANADIAN SYLLABICS CARRIER LHI
+01633	CANADIAN SYLLABICS CARRIER LHA
+01634	CANADIAN SYLLABICS CARRIER TLHU
+01635	CANADIAN SYLLABICS CARRIER TLHO
+01636	CANADIAN SYLLABICS CARRIER TLHE
+01637	CANADIAN SYLLABICS CARRIER TLHEE
+01638	CANADIAN SYLLABICS CARRIER TLHI
+01639	CANADIAN SYLLABICS CARRIER TLHA
+0163A	CANADIAN SYLLABICS CARRIER TLU
+0163B	CANADIAN SYLLABICS CARRIER TLO
+0163C	CANADIAN SYLLABICS CARRIER TLE
+0163D	CANADIAN SYLLABICS CARRIER TLEE
+0163E	CANADIAN SYLLABICS CARRIER TLI
+0163F	CANADIAN SYLLABICS CARRIER TLA
+01640	CANADIAN SYLLABICS CARRIER ZU
+01641	CANADIAN SYLLABICS CARRIER ZO
+01642	CANADIAN SYLLABICS CARRIER ZE
+01643	CANADIAN SYLLABICS CARRIER ZEE
+01644	CANADIAN SYLLABICS CARRIER ZI
+01645	CANADIAN SYLLABICS CARRIER ZA
+01646	CANADIAN SYLLABICS CARRIER Z
+01647	CANADIAN SYLLABICS CARRIER INITIAL Z
+01648	CANADIAN SYLLABICS CARRIER DZU
+01649	CANADIAN SYLLABICS CARRIER DZO
+0164A	CANADIAN SYLLABICS CARRIER DZE
+0164B	CANADIAN SYLLABICS CARRIER DZEE
+0164C	CANADIAN SYLLABICS CARRIER DZI
+0164D	CANADIAN SYLLABICS CARRIER DZA
+0164E	CANADIAN SYLLABICS CARRIER SU
+0164F	CANADIAN SYLLABICS CARRIER SO
+01650	CANADIAN SYLLABICS CARRIER SE
+01651	CANADIAN SYLLABICS CARRIER SEE
+01652	CANADIAN SYLLABICS CARRIER SI
+01653	CANADIAN SYLLABICS CARRIER SA
+01654	CANADIAN SYLLABICS CARRIER SHU
+01655	CANADIAN SYLLABICS CARRIER SHO
+01656	CANADIAN SYLLABICS CARRIER SHE
+01657	CANADIAN SYLLABICS CARRIER SHEE
+01658	CANADIAN SYLLABICS CARRIER SHI
+01659	CANADIAN SYLLABICS CARRIER SHA
+0165A	CANADIAN SYLLABICS CARRIER SH
+0165B	CANADIAN SYLLABICS CARRIER TSU
+0165C	CANADIAN SYLLABICS CARRIER TSO
+0165D	CANADIAN SYLLABICS CARRIER TSE
+0165E	CANADIAN SYLLABICS CARRIER TSEE
+0165F	CANADIAN SYLLABICS CARRIER TSI
+01660	CANADIAN SYLLABICS CARRIER TSA
+01661	CANADIAN SYLLABICS CARRIER CHU
+01662	CANADIAN SYLLABICS CARRIER CHO
+01663	CANADIAN SYLLABICS CARRIER CHE
+01664	CANADIAN SYLLABICS CARRIER CHEE
+01665	CANADIAN SYLLABICS CARRIER CHI
+01666	CANADIAN SYLLABICS CARRIER CHA
+01667	CANADIAN SYLLABICS CARRIER TTSU
+01668	CANADIAN SYLLABICS CARRIER TTSO
+01669	CANADIAN SYLLABICS CARRIER TTSE
+0166A	CANADIAN SYLLABICS CARRIER TTSEE
+0166B	CANADIAN SYLLABICS CARRIER TTSI
+0166C	CANADIAN SYLLABICS CARRIER TTSA
+0166D	CANADIAN SYLLABICS CHI SIGN
+0166E	CANADIAN SYLLABICS FULL STOP
+0166F	CANADIAN SYLLABICS QAI
+01670	CANADIAN SYLLABICS NGAI
+01671	CANADIAN SYLLABICS NNGI
+01672	CANADIAN SYLLABICS NNGII
+01673	CANADIAN SYLLABICS NNGO
+01674	CANADIAN SYLLABICS NNGOO
+01675	CANADIAN SYLLABICS NNGA
+01676	CANADIAN SYLLABICS NNGAA
+01677	CANADIAN SYLLABICS WOODS-CREE THWEE
+01678	CANADIAN SYLLABICS WOODS-CREE THWI
+01679	CANADIAN SYLLABICS WOODS-CREE THWII
+0167A	CANADIAN SYLLABICS WOODS-CREE THWO
+0167B	CANADIAN SYLLABICS WOODS-CREE THWOO
+0167C	CANADIAN SYLLABICS WOODS-CREE THWA
+0167D	CANADIAN SYLLABICS WOODS-CREE THWAA
+0167E	CANADIAN SYLLABICS WOODS-CREE FINAL TH
+0167F	CANADIAN SYLLABICS BLACKFOOT W
+01680	OGHAM SPACE MARK
+01681	OGHAM LETTER BEITH
+01682	OGHAM LETTER LUIS
+01683	OGHAM LETTER FEARN
+01684	OGHAM LETTER SAIL
+01685	OGHAM LETTER NION
+01686	OGHAM LETTER UATH
+01687	OGHAM LETTER DAIR
+01688	OGHAM LETTER TINNE
+01689	OGHAM LETTER COLL
+0168A	OGHAM LETTER CEIRT
+0168B	OGHAM LETTER MUIN
+0168C	OGHAM LETTER GORT
+0168D	OGHAM LETTER NGEADAL
+0168E	OGHAM LETTER STRAIF
+0168F	OGHAM LETTER RUIS
+01690	OGHAM LETTER AILM
+01691	OGHAM LETTER ONN
+01692	OGHAM LETTER UR
+01693	OGHAM LETTER EADHADH
+01694	OGHAM LETTER IODHADH
+01695	OGHAM LETTER EABHADH
+01696	OGHAM LETTER OR
+01697	OGHAM LETTER UILLEANN
+01698	OGHAM LETTER IFIN
+01699	OGHAM LETTER EAMHANCHOLL
+0169A	OGHAM LETTER PEITH
+0169B	OGHAM FEATHER MARK
+0169C	OGHAM REVERSED FEATHER MARK
+016A0	RUNIC LETTER FEHU FEOH FE F
+016A1	RUNIC LETTER V
+016A2	RUNIC LETTER URUZ UR U
+016A3	RUNIC LETTER YR
+016A4	RUNIC LETTER Y
+016A5	RUNIC LETTER W
+016A6	RUNIC LETTER THURISAZ THURS THORN
+016A7	RUNIC LETTER ETH
+016A8	RUNIC LETTER ANSUZ A
+016A9	RUNIC LETTER OS O
+016AA	RUNIC LETTER AC A
+016AB	RUNIC LETTER AESC
+016AC	RUNIC LETTER LONG-BRANCH-OSS O
+016AD	RUNIC LETTER SHORT-TWIG-OSS O
+016AE	RUNIC LETTER O
+016AF	RUNIC LETTER OE
+016B0	RUNIC LETTER ON
+016B1	RUNIC LETTER RAIDO RAD REID R
+016B2	RUNIC LETTER KAUNA
+016B3	RUNIC LETTER CEN
+016B4	RUNIC LETTER KAUN K
+016B5	RUNIC LETTER G
+016B6	RUNIC LETTER ENG
+016B7	RUNIC LETTER GEBO GYFU G
+016B8	RUNIC LETTER GAR
+016B9	RUNIC LETTER WUNJO WYNN W
+016BA	RUNIC LETTER HAGLAZ H
+016BB	RUNIC LETTER HAEGL H
+016BC	RUNIC LETTER LONG-BRANCH-HAGALL H
+016BD	RUNIC LETTER SHORT-TWIG-HAGALL H
+016BE	RUNIC LETTER NAUDIZ NYD NAUD N
+016BF	RUNIC LETTER SHORT-TWIG-NAUD N
+016C0	RUNIC LETTER DOTTED-N
+016C1	RUNIC LETTER ISAZ IS ISS I
+016C2	RUNIC LETTER E
+016C3	RUNIC LETTER JERAN J
+016C4	RUNIC LETTER GER
+016C5	RUNIC LETTER LONG-BRANCH-AR AE
+016C6	RUNIC LETTER SHORT-TWIG-AR A
+016C7	RUNIC LETTER IWAZ EOH
+016C8	RUNIC LETTER PERTHO PEORTH P
+016C9	RUNIC LETTER ALGIZ EOLHX
+016CA	RUNIC LETTER SOWILO S
+016CB	RUNIC LETTER SIGEL LONG-BRANCH-SOL S
+016CC	RUNIC LETTER SHORT-TWIG-SOL S
+016CD	RUNIC LETTER C
+016CE	RUNIC LETTER Z
+016CF	RUNIC LETTER TIWAZ TIR TYR T
+016D0	RUNIC LETTER SHORT-TWIG-TYR T
+016D1	RUNIC LETTER D
+016D2	RUNIC LETTER BERKANAN BEORC BJARKAN B
+016D3	RUNIC LETTER SHORT-TWIG-BJARKAN B
+016D4	RUNIC LETTER DOTTED-P
+016D5	RUNIC LETTER OPEN-P
+016D6	RUNIC LETTER EHWAZ EH E
+016D7	RUNIC LETTER MANNAZ MAN M
+016D8	RUNIC LETTER LONG-BRANCH-MADR M
+016D9	RUNIC LETTER SHORT-TWIG-MADR M
+016DA	RUNIC LETTER LAUKAZ LAGU LOGR L
+016DB	RUNIC LETTER DOTTED-L
+016DC	RUNIC LETTER INGWAZ
+016DD	RUNIC LETTER ING
+016DE	RUNIC LETTER DAGAZ DAEG D
+016DF	RUNIC LETTER OTHALAN ETHEL O
+016E0	RUNIC LETTER EAR
+016E1	RUNIC LETTER IOR
+016E2	RUNIC LETTER CWEORTH
+016E3	RUNIC LETTER CALC
+016E4	RUNIC LETTER CEALC
+016E5	RUNIC LETTER STAN
+016E6	RUNIC LETTER LONG-BRANCH-YR
+016E7	RUNIC LETTER SHORT-TWIG-YR
+016E8	RUNIC LETTER ICELANDIC-YR
+016E9	RUNIC LETTER Q
+016EA	RUNIC LETTER X
+016EB	RUNIC SINGLE PUNCTUATION
+016EC	RUNIC MULTIPLE PUNCTUATION
+016ED	RUNIC CROSS PUNCTUATION
+016EE	RUNIC ARLAUG SYMBOL
+016EF	RUNIC TVIMADUR SYMBOL
+016F0	RUNIC BELGTHOR SYMBOL
+016F1	RUNIC LETTER K
+016F2	RUNIC LETTER SH
+016F3	RUNIC LETTER OO
+016F4	RUNIC LETTER FRANKS CASKET OS
+016F5	RUNIC LETTER FRANKS CASKET IS
+016F6	RUNIC LETTER FRANKS CASKET EH
+016F7	RUNIC LETTER FRANKS CASKET AC
+016F8	RUNIC LETTER FRANKS CASKET AESC
+01700	TAGALOG LETTER A
+01701	TAGALOG LETTER I
+01702	TAGALOG LETTER U
+01703	TAGALOG LETTER KA
+01704	TAGALOG LETTER GA
+01705	TAGALOG LETTER NGA
+01706	TAGALOG LETTER TA
+01707	TAGALOG LETTER DA
+01708	TAGALOG LETTER NA
+01709	TAGALOG LETTER PA
+0170A	TAGALOG LETTER BA
+0170B	TAGALOG LETTER MA
+0170C	TAGALOG LETTER YA
+0170E	TAGALOG LETTER LA
+0170F	TAGALOG LETTER WA
+01710	TAGALOG LETTER SA
+01711	TAGALOG LETTER HA
+01712	TAGALOG VOWEL SIGN I
+01713	TAGALOG VOWEL SIGN U
+01714	TAGALOG SIGN VIRAMA
+01720	HANUNOO LETTER A
+01721	HANUNOO LETTER I
+01722	HANUNOO LETTER U
+01723	HANUNOO LETTER KA
+01724	HANUNOO LETTER GA
+01725	HANUNOO LETTER NGA
+01726	HANUNOO LETTER TA
+01727	HANUNOO LETTER DA
+01728	HANUNOO LETTER NA
+01729	HANUNOO LETTER PA
+0172A	HANUNOO LETTER BA
+0172B	HANUNOO LETTER MA
+0172C	HANUNOO LETTER YA
+0172D	HANUNOO LETTER RA
+0172E	HANUNOO LETTER LA
+0172F	HANUNOO LETTER WA
+01730	HANUNOO LETTER SA
+01731	HANUNOO LETTER HA
+01732	HANUNOO VOWEL SIGN I
+01733	HANUNOO VOWEL SIGN U
+01734	HANUNOO SIGN PAMUDPOD
+01735	PHILIPPINE SINGLE PUNCTUATION
+01736	PHILIPPINE DOUBLE PUNCTUATION
+01740	BUHID LETTER A
+01741	BUHID LETTER I
+01742	BUHID LETTER U
+01743	BUHID LETTER KA
+01744	BUHID LETTER GA
+01745	BUHID LETTER NGA
+01746	BUHID LETTER TA
+01747	BUHID LETTER DA
+01748	BUHID LETTER NA
+01749	BUHID LETTER PA
+0174A	BUHID LETTER BA
+0174B	BUHID LETTER MA
+0174C	BUHID LETTER YA
+0174D	BUHID LETTER RA
+0174E	BUHID LETTER LA
+0174F	BUHID LETTER WA
+01750	BUHID LETTER SA
+01751	BUHID LETTER HA
+01752	BUHID VOWEL SIGN I
+01753	BUHID VOWEL SIGN U
+01760	TAGBANWA LETTER A
+01761	TAGBANWA LETTER I
+01762	TAGBANWA LETTER U
+01763	TAGBANWA LETTER KA
+01764	TAGBANWA LETTER GA
+01765	TAGBANWA LETTER NGA
+01766	TAGBANWA LETTER TA
+01767	TAGBANWA LETTER DA
+01768	TAGBANWA LETTER NA
+01769	TAGBANWA LETTER PA
+0176A	TAGBANWA LETTER BA
+0176B	TAGBANWA LETTER MA
+0176C	TAGBANWA LETTER YA
+0176E	TAGBANWA LETTER LA
+0176F	TAGBANWA LETTER WA
+01770	TAGBANWA LETTER SA
+01772	TAGBANWA VOWEL SIGN I
+01773	TAGBANWA VOWEL SIGN U
+01780	KHMER LETTER KA
+01781	KHMER LETTER KHA
+01782	KHMER LETTER KO
+01783	KHMER LETTER KHO
+01784	KHMER LETTER NGO
+01785	KHMER LETTER CA
+01786	KHMER LETTER CHA
+01787	KHMER LETTER CO
+01788	KHMER LETTER CHO
+01789	KHMER LETTER NYO
+0178A	KHMER LETTER DA
+0178B	KHMER LETTER TTHA
+0178C	KHMER LETTER DO
+0178D	KHMER LETTER TTHO
+0178E	KHMER LETTER NNO
+0178F	KHMER LETTER TA
+01790	KHMER LETTER THA
+01791	KHMER LETTER TO
+01792	KHMER LETTER THO
+01793	KHMER LETTER NO
+01794	KHMER LETTER BA
+01795	KHMER LETTER PHA
+01796	KHMER LETTER PO
+01797	KHMER LETTER PHO
+01798	KHMER LETTER MO
+01799	KHMER LETTER YO
+0179A	KHMER LETTER RO
+0179B	KHMER LETTER LO
+0179C	KHMER LETTER VO
+0179D	KHMER LETTER SHA
+0179E	KHMER LETTER SSO
+0179F	KHMER LETTER SA
+017A0	KHMER LETTER HA
+017A1	KHMER LETTER LA
+017A2	KHMER LETTER QA
+017A3	KHMER INDEPENDENT VOWEL QAQ
+017A4	KHMER INDEPENDENT VOWEL QAA
+017A5	KHMER INDEPENDENT VOWEL QI
+017A6	KHMER INDEPENDENT VOWEL QII
+017A7	KHMER INDEPENDENT VOWEL QU
+017A8	KHMER INDEPENDENT VOWEL QUK
+017A9	KHMER INDEPENDENT VOWEL QUU
+017AA	KHMER INDEPENDENT VOWEL QUUV
+017AB	KHMER INDEPENDENT VOWEL RY
+017AC	KHMER INDEPENDENT VOWEL RYY
+017AD	KHMER INDEPENDENT VOWEL LY
+017AE	KHMER INDEPENDENT VOWEL LYY
+017AF	KHMER INDEPENDENT VOWEL QE
+017B0	KHMER INDEPENDENT VOWEL QAI
+017B1	KHMER INDEPENDENT VOWEL QOO TYPE ONE
+017B2	KHMER INDEPENDENT VOWEL QOO TYPE TWO
+017B3	KHMER INDEPENDENT VOWEL QAU
+017B4	KHMER VOWEL INHERENT AQ
+017B5	KHMER VOWEL INHERENT AA
+017B6	KHMER VOWEL SIGN AA
+017B7	KHMER VOWEL SIGN I
+017B8	KHMER VOWEL SIGN II
+017B9	KHMER VOWEL SIGN Y
+017BA	KHMER VOWEL SIGN YY
+017BB	KHMER VOWEL SIGN U
+017BC	KHMER VOWEL SIGN UU
+017BD	KHMER VOWEL SIGN UA
+017BE	KHMER VOWEL SIGN OE
+017BF	KHMER VOWEL SIGN YA
+017C0	KHMER VOWEL SIGN IE
+017C1	KHMER VOWEL SIGN E
+017C2	KHMER VOWEL SIGN AE
+017C3	KHMER VOWEL SIGN AI
+017C4	KHMER VOWEL SIGN OO
+017C5	KHMER VOWEL SIGN AU
+017C6	KHMER SIGN NIKAHIT
+017C7	KHMER SIGN REAHMUK
+017C8	KHMER SIGN YUUKALEAPINTU
+017C9	KHMER SIGN MUUSIKATOAN
+017CA	KHMER SIGN TRIISAP
+017CB	KHMER SIGN BANTOC
+017CC	KHMER SIGN ROBAT
+017CD	KHMER SIGN TOANDAKHIAT
+017CE	KHMER SIGN KAKABAT
+017CF	KHMER SIGN AHSDA
+017D0	KHMER SIGN SAMYOK SANNYA
+017D1	KHMER SIGN VIRIAM
+017D2	KHMER SIGN COENG
+017D3	KHMER SIGN BATHAMASAT
+017D4	KHMER SIGN KHAN
+017D5	KHMER SIGN BARIYOOSAN
+017D6	KHMER SIGN CAMNUC PII KUUH
+017D7	KHMER SIGN LEK TOO
+017D8	KHMER SIGN BEYYAL
+017D9	KHMER SIGN PHNAEK MUAN
+017DA	KHMER SIGN KOOMUUT
+017DB	KHMER CURRENCY SYMBOL RIEL
+017DC	KHMER SIGN AVAKRAHASANYA
+017DD	KHMER SIGN ATTHACAN
+017E0	KHMER DIGIT ZERO
+017E1	KHMER DIGIT ONE
+017E2	KHMER DIGIT TWO
+017E3	KHMER DIGIT THREE
+017E4	KHMER DIGIT FOUR
+017E5	KHMER DIGIT FIVE
+017E6	KHMER DIGIT SIX
+017E7	KHMER DIGIT SEVEN
+017E8	KHMER DIGIT EIGHT
+017E9	KHMER DIGIT NINE
+017F0	KHMER SYMBOL LEK ATTAK SON
+017F1	KHMER SYMBOL LEK ATTAK MUOY
+017F2	KHMER SYMBOL LEK ATTAK PII
+017F3	KHMER SYMBOL LEK ATTAK BEI
+017F4	KHMER SYMBOL LEK ATTAK BUON
+017F5	KHMER SYMBOL LEK ATTAK PRAM
+017F6	KHMER SYMBOL LEK ATTAK PRAM-MUOY
+017F7	KHMER SYMBOL LEK ATTAK PRAM-PII
+017F8	KHMER SYMBOL LEK ATTAK PRAM-BEI
+017F9	KHMER SYMBOL LEK ATTAK PRAM-BUON
+01800	MONGOLIAN BIRGA
+01801	MONGOLIAN ELLIPSIS
+01802	MONGOLIAN COMMA
+01803	MONGOLIAN FULL STOP
+01804	MONGOLIAN COLON
+01805	MONGOLIAN FOUR DOTS
+01806	MONGOLIAN TODO SOFT HYPHEN
+01807	MONGOLIAN SIBE SYLLABLE BOUNDARY MARKER
+01808	MONGOLIAN MANCHU COMMA
+01809	MONGOLIAN MANCHU FULL STOP
+0180A	MONGOLIAN NIRUGU
+0180B	MONGOLIAN FREE VARIATION SELECTOR ONE
+0180B	FVS1
+0180C	MONGOLIAN FREE VARIATION SELECTOR TWO
+0180C	FVS2
+0180D	MONGOLIAN FREE VARIATION SELECTOR THREE
+0180D	FVS3
+0180E	MONGOLIAN VOWEL SEPARATOR
+0180E	MVS
+01810	MONGOLIAN DIGIT ZERO
+01811	MONGOLIAN DIGIT ONE
+01812	MONGOLIAN DIGIT TWO
+01813	MONGOLIAN DIGIT THREE
+01814	MONGOLIAN DIGIT FOUR
+01815	MONGOLIAN DIGIT FIVE
+01816	MONGOLIAN DIGIT SIX
+01817	MONGOLIAN DIGIT SEVEN
+01818	MONGOLIAN DIGIT EIGHT
+01819	MONGOLIAN DIGIT NINE
+01820	MONGOLIAN LETTER A
+01821	MONGOLIAN LETTER E
+01822	MONGOLIAN LETTER I
+01823	MONGOLIAN LETTER O
+01824	MONGOLIAN LETTER U
+01825	MONGOLIAN LETTER OE
+01826	MONGOLIAN LETTER UE
+01827	MONGOLIAN LETTER EE
+01828	MONGOLIAN LETTER NA
+01829	MONGOLIAN LETTER ANG
+0182A	MONGOLIAN LETTER BA
+0182B	MONGOLIAN LETTER PA
+0182C	MONGOLIAN LETTER QA
+0182D	MONGOLIAN LETTER GA
+0182E	MONGOLIAN LETTER MA
+0182F	MONGOLIAN LETTER LA
+01830	MONGOLIAN LETTER SA
+01831	MONGOLIAN LETTER SHA
+01832	MONGOLIAN LETTER TA
+01833	MONGOLIAN LETTER DA
+01834	MONGOLIAN LETTER CHA
+01835	MONGOLIAN LETTER JA
+01836	MONGOLIAN LETTER YA
+01837	MONGOLIAN LETTER RA
+01838	MONGOLIAN LETTER WA
+01839	MONGOLIAN LETTER FA
+0183A	MONGOLIAN LETTER KA
+0183B	MONGOLIAN LETTER KHA
+0183C	MONGOLIAN LETTER TSA
+0183D	MONGOLIAN LETTER ZA
+0183E	MONGOLIAN LETTER HAA
+0183F	MONGOLIAN LETTER ZRA
+01840	MONGOLIAN LETTER LHA
+01841	MONGOLIAN LETTER ZHI
+01842	MONGOLIAN LETTER CHI
+01843	MONGOLIAN LETTER TODO LONG VOWEL SIGN
+01844	MONGOLIAN LETTER TODO E
+01845	MONGOLIAN LETTER TODO I
+01846	MONGOLIAN LETTER TODO O
+01847	MONGOLIAN LETTER TODO U
+01848	MONGOLIAN LETTER TODO OE
+01849	MONGOLIAN LETTER TODO UE
+0184A	MONGOLIAN LETTER TODO ANG
+0184B	MONGOLIAN LETTER TODO BA
+0184C	MONGOLIAN LETTER TODO PA
+0184D	MONGOLIAN LETTER TODO QA
+0184E	MONGOLIAN LETTER TODO GA
+0184F	MONGOLIAN LETTER TODO MA
+01850	MONGOLIAN LETTER TODO TA
+01851	MONGOLIAN LETTER TODO DA
+01852	MONGOLIAN LETTER TODO CHA
+01853	MONGOLIAN LETTER TODO JA
+01854	MONGOLIAN LETTER TODO TSA
+01855	MONGOLIAN LETTER TODO YA
+01856	MONGOLIAN LETTER TODO WA
+01857	MONGOLIAN LETTER TODO KA
+01858	MONGOLIAN LETTER TODO GAA
+01859	MONGOLIAN LETTER TODO HAA
+0185A	MONGOLIAN LETTER TODO JIA
+0185B	MONGOLIAN LETTER TODO NIA
+0185C	MONGOLIAN LETTER TODO DZA
+0185D	MONGOLIAN LETTER SIBE E
+0185E	MONGOLIAN LETTER SIBE I
+0185F	MONGOLIAN LETTER SIBE IY
+01860	MONGOLIAN LETTER SIBE UE
+01861	MONGOLIAN LETTER SIBE U
+01862	MONGOLIAN LETTER SIBE ANG
+01863	MONGOLIAN LETTER SIBE KA
+01864	MONGOLIAN LETTER SIBE GA
+01865	MONGOLIAN LETTER SIBE HA
+01866	MONGOLIAN LETTER SIBE PA
+01867	MONGOLIAN LETTER SIBE SHA
+01868	MONGOLIAN LETTER SIBE TA
+01869	MONGOLIAN LETTER SIBE DA
+0186A	MONGOLIAN LETTER SIBE JA
+0186B	MONGOLIAN LETTER SIBE FA
+0186C	MONGOLIAN LETTER SIBE GAA
+0186D	MONGOLIAN LETTER SIBE HAA
+0186E	MONGOLIAN LETTER SIBE TSA
+0186F	MONGOLIAN LETTER SIBE ZA
+01870	MONGOLIAN LETTER SIBE RAA
+01871	MONGOLIAN LETTER SIBE CHA
+01872	MONGOLIAN LETTER SIBE ZHA
+01873	MONGOLIAN LETTER MANCHU I
+01874	MONGOLIAN LETTER MANCHU KA
+01875	MONGOLIAN LETTER MANCHU RA
+01876	MONGOLIAN LETTER MANCHU FA
+01877	MONGOLIAN LETTER MANCHU ZHA
+01880	MONGOLIAN LETTER ALI GALI ANUSVARA ONE
+01881	MONGOLIAN LETTER ALI GALI VISARGA ONE
+01882	MONGOLIAN LETTER ALI GALI DAMARU
+01883	MONGOLIAN LETTER ALI GALI UBADAMA
+01884	MONGOLIAN LETTER ALI GALI INVERTED UBADAMA
+01885	MONGOLIAN LETTER ALI GALI BALUDA
+01886	MONGOLIAN LETTER ALI GALI THREE BALUDA
+01887	MONGOLIAN LETTER ALI GALI A
+01888	MONGOLIAN LETTER ALI GALI I
+01889	MONGOLIAN LETTER ALI GALI KA
+0188A	MONGOLIAN LETTER ALI GALI NGA
+0188B	MONGOLIAN LETTER ALI GALI CA
+0188C	MONGOLIAN LETTER ALI GALI TTA
+0188D	MONGOLIAN LETTER ALI GALI TTHA
+0188E	MONGOLIAN LETTER ALI GALI DDA
+0188F	MONGOLIAN LETTER ALI GALI NNA
+01890	MONGOLIAN LETTER ALI GALI TA
+01891	MONGOLIAN LETTER ALI GALI DA
+01892	MONGOLIAN LETTER ALI GALI PA
+01893	MONGOLIAN LETTER ALI GALI PHA
+01894	MONGOLIAN LETTER ALI GALI SSA
+01895	MONGOLIAN LETTER ALI GALI ZHA
+01896	MONGOLIAN LETTER ALI GALI ZA
+01897	MONGOLIAN LETTER ALI GALI AH
+01898	MONGOLIAN LETTER TODO ALI GALI TA
+01899	MONGOLIAN LETTER TODO ALI GALI ZHA
+0189A	MONGOLIAN LETTER MANCHU ALI GALI GHA
+0189B	MONGOLIAN LETTER MANCHU ALI GALI NGA
+0189C	MONGOLIAN LETTER MANCHU ALI GALI CA
+0189D	MONGOLIAN LETTER MANCHU ALI GALI JHA
+0189E	MONGOLIAN LETTER MANCHU ALI GALI TTA
+0189F	MONGOLIAN LETTER MANCHU ALI GALI DDHA
+018A0	MONGOLIAN LETTER MANCHU ALI GALI TA
+018A1	MONGOLIAN LETTER MANCHU ALI GALI DHA
+018A2	MONGOLIAN LETTER MANCHU ALI GALI SSA
+018A3	MONGOLIAN LETTER MANCHU ALI GALI CYA
+018A4	MONGOLIAN LETTER MANCHU ALI GALI ZHA
+018A5	MONGOLIAN LETTER MANCHU ALI GALI ZA
+018A6	MONGOLIAN LETTER ALI GALI HALF U
+018A7	MONGOLIAN LETTER ALI GALI HALF YA
+018A8	MONGOLIAN LETTER MANCHU ALI GALI BHA
+018A9	MONGOLIAN LETTER ALI GALI DAGALGA
+018AA	MONGOLIAN LETTER MANCHU ALI GALI LHA
+018B0	CANADIAN SYLLABICS OY
+018B1	CANADIAN SYLLABICS AY
+018B2	CANADIAN SYLLABICS AAY
+018B3	CANADIAN SYLLABICS WAY
+018B4	CANADIAN SYLLABICS POY
+018B5	CANADIAN SYLLABICS PAY
+018B6	CANADIAN SYLLABICS PWOY
+018B7	CANADIAN SYLLABICS TAY
+018B8	CANADIAN SYLLABICS KAY
+018B9	CANADIAN SYLLABICS KWAY
+018BA	CANADIAN SYLLABICS MAY
+018BB	CANADIAN SYLLABICS NOY
+018BC	CANADIAN SYLLABICS NAY
+018BD	CANADIAN SYLLABICS LAY
+018BE	CANADIAN SYLLABICS SOY
+018BF	CANADIAN SYLLABICS SAY
+018C0	CANADIAN SYLLABICS SHOY
+018C1	CANADIAN SYLLABICS SHAY
+018C2	CANADIAN SYLLABICS SHWOY
+018C3	CANADIAN SYLLABICS YOY
+018C4	CANADIAN SYLLABICS YAY
+018C5	CANADIAN SYLLABICS RAY
+018C6	CANADIAN SYLLABICS NWI
+018C7	CANADIAN SYLLABICS OJIBWAY NWI
+018C8	CANADIAN SYLLABICS NWII
+018C9	CANADIAN SYLLABICS OJIBWAY NWII
+018CA	CANADIAN SYLLABICS NWO
+018CB	CANADIAN SYLLABICS OJIBWAY NWO
+018CC	CANADIAN SYLLABICS NWOO
+018CD	CANADIAN SYLLABICS OJIBWAY NWOO
+018CE	CANADIAN SYLLABICS RWEE
+018CF	CANADIAN SYLLABICS RWI
+018D0	CANADIAN SYLLABICS RWII
+018D1	CANADIAN SYLLABICS RWO
+018D2	CANADIAN SYLLABICS RWOO
+018D3	CANADIAN SYLLABICS RWA
+018D4	CANADIAN SYLLABICS OJIBWAY P
+018D5	CANADIAN SYLLABICS OJIBWAY T
+018D6	CANADIAN SYLLABICS OJIBWAY K
+018D7	CANADIAN SYLLABICS OJIBWAY C
+018D8	CANADIAN SYLLABICS OJIBWAY M
+018D9	CANADIAN SYLLABICS OJIBWAY N
+018DA	CANADIAN SYLLABICS OJIBWAY S
+018DB	CANADIAN SYLLABICS OJIBWAY SH
+018DC	CANADIAN SYLLABICS EASTERN W
+018DD	CANADIAN SYLLABICS WESTERN W
+018DE	CANADIAN SYLLABICS FINAL SMALL RING
+018DF	CANADIAN SYLLABICS FINAL RAISED DOT
+018E0	CANADIAN SYLLABICS R-CREE RWE
+018E1	CANADIAN SYLLABICS WEST-CREE LOO
+018E2	CANADIAN SYLLABICS WEST-CREE LAA
+018E3	CANADIAN SYLLABICS THWE
+018E4	CANADIAN SYLLABICS THWA
+018E5	CANADIAN SYLLABICS TTHWE
+018E6	CANADIAN SYLLABICS TTHOO
+018E7	CANADIAN SYLLABICS TTHAA
+018E8	CANADIAN SYLLABICS TLHWE
+018E9	CANADIAN SYLLABICS TLHOO
+018EA	CANADIAN SYLLABICS SAYISI SHWE
+018EB	CANADIAN SYLLABICS SAYISI SHOO
+018EC	CANADIAN SYLLABICS SAYISI HOO
+018ED	CANADIAN SYLLABICS CARRIER GWU
+018EE	CANADIAN SYLLABICS CARRIER DENE GEE
+018EF	CANADIAN SYLLABICS CARRIER GAA
+018F0	CANADIAN SYLLABICS CARRIER GWA
+018F1	CANADIAN SYLLABICS SAYISI JUU
+018F2	CANADIAN SYLLABICS CARRIER JWA
+018F3	CANADIAN SYLLABICS BEAVER DENE L
+018F4	CANADIAN SYLLABICS BEAVER DENE R
+018F5	CANADIAN SYLLABICS CARRIER DENTAL S
+01900	LIMBU VOWEL-CARRIER LETTER
+01901	LIMBU LETTER KA
+01902	LIMBU LETTER KHA
+01903	LIMBU LETTER GA
+01904	LIMBU LETTER GHA
+01905	LIMBU LETTER NGA
+01906	LIMBU LETTER CA
+01907	LIMBU LETTER CHA
+01908	LIMBU LETTER JA
+01909	LIMBU LETTER JHA
+0190A	LIMBU LETTER YAN
+0190B	LIMBU LETTER TA
+0190C	LIMBU LETTER THA
+0190D	LIMBU LETTER DA
+0190E	LIMBU LETTER DHA
+0190F	LIMBU LETTER NA
+01910	LIMBU LETTER PA
+01911	LIMBU LETTER PHA
+01912	LIMBU LETTER BA
+01913	LIMBU LETTER BHA
+01914	LIMBU LETTER MA
+01915	LIMBU LETTER YA
+01916	LIMBU LETTER RA
+01917	LIMBU LETTER LA
+01918	LIMBU LETTER WA
+01919	LIMBU LETTER SHA
+0191A	LIMBU LETTER SSA
+0191B	LIMBU LETTER SA
+0191C	LIMBU LETTER HA
+0191D	LIMBU LETTER GYAN
+0191E	LIMBU LETTER TRA
+01920	LIMBU VOWEL SIGN A
+01921	LIMBU VOWEL SIGN I
+01922	LIMBU VOWEL SIGN U
+01923	LIMBU VOWEL SIGN EE
+01924	LIMBU VOWEL SIGN AI
+01925	LIMBU VOWEL SIGN OO
+01926	LIMBU VOWEL SIGN AU
+01927	LIMBU VOWEL SIGN E
+01928	LIMBU VOWEL SIGN O
+01929	LIMBU SUBJOINED LETTER YA
+0192A	LIMBU SUBJOINED LETTER RA
+0192B	LIMBU SUBJOINED LETTER WA
+01930	LIMBU SMALL LETTER KA
+01931	LIMBU SMALL LETTER NGA
+01932	LIMBU SMALL LETTER ANUSVARA
+01933	LIMBU SMALL LETTER TA
+01934	LIMBU SMALL LETTER NA
+01935	LIMBU SMALL LETTER PA
+01936	LIMBU SMALL LETTER MA
+01937	LIMBU SMALL LETTER RA
+01938	LIMBU SMALL LETTER LA
+01939	LIMBU SIGN MUKPHRENG
+0193A	LIMBU SIGN KEMPHRENG
+0193B	LIMBU SIGN SA-I
+01940	LIMBU SIGN LOO
+01944	LIMBU EXCLAMATION MARK
+01945	LIMBU QUESTION MARK
+01946	LIMBU DIGIT ZERO
+01947	LIMBU DIGIT ONE
+01948	LIMBU DIGIT TWO
+01949	LIMBU DIGIT THREE
+0194A	LIMBU DIGIT FOUR
+0194B	LIMBU DIGIT FIVE
+0194C	LIMBU DIGIT SIX
+0194D	LIMBU DIGIT SEVEN
+0194E	LIMBU DIGIT EIGHT
+0194F	LIMBU DIGIT NINE
+01950	TAI LE LETTER KA
+01951	TAI LE LETTER XA
+01952	TAI LE LETTER NGA
+01953	TAI LE LETTER TSA
+01954	TAI LE LETTER SA
+01955	TAI LE LETTER YA
+01956	TAI LE LETTER TA
+01957	TAI LE LETTER THA
+01958	TAI LE LETTER LA
+01959	TAI LE LETTER PA
+0195A	TAI LE LETTER PHA
+0195B	TAI LE LETTER MA
+0195C	TAI LE LETTER FA
+0195D	TAI LE LETTER VA
+0195E	TAI LE LETTER HA
+0195F	TAI LE LETTER QA
+01960	TAI LE LETTER KHA
+01961	TAI LE LETTER TSHA
+01962	TAI LE LETTER NA
+01963	TAI LE LETTER A
+01964	TAI LE LETTER I
+01965	TAI LE LETTER EE
+01966	TAI LE LETTER EH
+01967	TAI LE LETTER U
+01968	TAI LE LETTER OO
+01969	TAI LE LETTER O
+0196A	TAI LE LETTER UE
+0196B	TAI LE LETTER E
+0196C	TAI LE LETTER AUE
+0196D	TAI LE LETTER AI
+01970	TAI LE LETTER TONE-2
+01971	TAI LE LETTER TONE-3
+01972	TAI LE LETTER TONE-4
+01973	TAI LE LETTER TONE-5
+01974	TAI LE LETTER TONE-6
+01980	NEW TAI LUE LETTER HIGH QA
+01981	NEW TAI LUE LETTER LOW QA
+01982	NEW TAI LUE LETTER HIGH KA
+01983	NEW TAI LUE LETTER HIGH XA
+01984	NEW TAI LUE LETTER HIGH NGA
+01985	NEW TAI LUE LETTER LOW KA
+01986	NEW TAI LUE LETTER LOW XA
+01987	NEW TAI LUE LETTER LOW NGA
+01988	NEW TAI LUE LETTER HIGH TSA
+01989	NEW TAI LUE LETTER HIGH SA
+0198A	NEW TAI LUE LETTER HIGH YA
+0198B	NEW TAI LUE LETTER LOW TSA
+0198C	NEW TAI LUE LETTER LOW SA
+0198D	NEW TAI LUE LETTER LOW YA
+0198E	NEW TAI LUE LETTER HIGH TA
+0198F	NEW TAI LUE LETTER HIGH THA
+01990	NEW TAI LUE LETTER HIGH NA
+01991	NEW TAI LUE LETTER LOW TA
+01992	NEW TAI LUE LETTER LOW THA
+01993	NEW TAI LUE LETTER LOW NA
+01994	NEW TAI LUE LETTER HIGH PA
+01995	NEW TAI LUE LETTER HIGH PHA
+01996	NEW TAI LUE LETTER HIGH MA
+01997	NEW TAI LUE LETTER LOW PA
+01998	NEW TAI LUE LETTER LOW PHA
+01999	NEW TAI LUE LETTER LOW MA
+0199A	NEW TAI LUE LETTER HIGH FA
+0199B	NEW TAI LUE LETTER HIGH VA
+0199C	NEW TAI LUE LETTER HIGH LA
+0199D	NEW TAI LUE LETTER LOW FA
+0199E	NEW TAI LUE LETTER LOW VA
+0199F	NEW TAI LUE LETTER LOW LA
+019A0	NEW TAI LUE LETTER HIGH HA
+019A1	NEW TAI LUE LETTER HIGH DA
+019A2	NEW TAI LUE LETTER HIGH BA
+019A3	NEW TAI LUE LETTER LOW HA
+019A4	NEW TAI LUE LETTER LOW DA
+019A5	NEW TAI LUE LETTER LOW BA
+019A6	NEW TAI LUE LETTER HIGH KVA
+019A7	NEW TAI LUE LETTER HIGH XVA
+019A8	NEW TAI LUE LETTER LOW KVA
+019A9	NEW TAI LUE LETTER LOW XVA
+019AA	NEW TAI LUE LETTER HIGH SUA
+019AB	NEW TAI LUE LETTER LOW SUA
+019B0	NEW TAI LUE VOWEL SIGN VOWEL SHORTENER
+019B1	NEW TAI LUE VOWEL SIGN AA
+019B2	NEW TAI LUE VOWEL SIGN II
+019B3	NEW TAI LUE VOWEL SIGN U
+019B4	NEW TAI LUE VOWEL SIGN UU
+019B5	NEW TAI LUE VOWEL SIGN E
+019B6	NEW TAI LUE VOWEL SIGN AE
+019B7	NEW TAI LUE VOWEL SIGN O
+019B8	NEW TAI LUE VOWEL SIGN OA
+019B9	NEW TAI LUE VOWEL SIGN UE
+019BA	NEW TAI LUE VOWEL SIGN AY
+019BB	NEW TAI LUE VOWEL SIGN AAY
+019BC	NEW TAI LUE VOWEL SIGN UY
+019BD	NEW TAI LUE VOWEL SIGN OY
+019BE	NEW TAI LUE VOWEL SIGN OAY
+019BF	NEW TAI LUE VOWEL SIGN UEY
+019C0	NEW TAI LUE VOWEL SIGN IY
+019C1	NEW TAI LUE LETTER FINAL V
+019C2	NEW TAI LUE LETTER FINAL NG
+019C3	NEW TAI LUE LETTER FINAL N
+019C4	NEW TAI LUE LETTER FINAL M
+019C5	NEW TAI LUE LETTER FINAL K
+019C6	NEW TAI LUE LETTER FINAL D
+019C7	NEW TAI LUE LETTER FINAL B
+019C8	NEW TAI LUE TONE MARK-1
+019C9	NEW TAI LUE TONE MARK-2
+019D0	NEW TAI LUE DIGIT ZERO
+019D1	NEW TAI LUE DIGIT ONE
+019D2	NEW TAI LUE DIGIT TWO
+019D3	NEW TAI LUE DIGIT THREE
+019D4	NEW TAI LUE DIGIT FOUR
+019D5	NEW TAI LUE DIGIT FIVE
+019D6	NEW TAI LUE DIGIT SIX
+019D7	NEW TAI LUE DIGIT SEVEN
+019D8	NEW TAI LUE DIGIT EIGHT
+019D9	NEW TAI LUE DIGIT NINE
+019DA	NEW TAI LUE THAM DIGIT ONE
+019DE	NEW TAI LUE SIGN LAE
+019DF	NEW TAI LUE SIGN LAEV
+019E0	KHMER SYMBOL PATHAMASAT
+019E1	KHMER SYMBOL MUOY KOET
+019E2	KHMER SYMBOL PII KOET
+019E3	KHMER SYMBOL BEI KOET
+019E4	KHMER SYMBOL BUON KOET
+019E5	KHMER SYMBOL PRAM KOET
+019E6	KHMER SYMBOL PRAM-MUOY KOET
+019E7	KHMER SYMBOL PRAM-PII KOET
+019E8	KHMER SYMBOL PRAM-BEI KOET
+019E9	KHMER SYMBOL PRAM-BUON KOET
+019EA	KHMER SYMBOL DAP KOET
+019EB	KHMER SYMBOL DAP-MUOY KOET
+019EC	KHMER SYMBOL DAP-PII KOET
+019ED	KHMER SYMBOL DAP-BEI KOET
+019EE	KHMER SYMBOL DAP-BUON KOET
+019EF	KHMER SYMBOL DAP-PRAM KOET
+019F0	KHMER SYMBOL TUTEYASAT
+019F1	KHMER SYMBOL MUOY ROC
+019F2	KHMER SYMBOL PII ROC
+019F3	KHMER SYMBOL BEI ROC
+019F4	KHMER SYMBOL BUON ROC
+019F5	KHMER SYMBOL PRAM ROC
+019F6	KHMER SYMBOL PRAM-MUOY ROC
+019F7	KHMER SYMBOL PRAM-PII ROC
+019F8	KHMER SYMBOL PRAM-BEI ROC
+019F9	KHMER SYMBOL PRAM-BUON ROC
+019FA	KHMER SYMBOL DAP ROC
+019FB	KHMER SYMBOL DAP-MUOY ROC
+019FC	KHMER SYMBOL DAP-PII ROC
+019FD	KHMER SYMBOL DAP-BEI ROC
+019FE	KHMER SYMBOL DAP-BUON ROC
+019FF	KHMER SYMBOL DAP-PRAM ROC
+01A00	BUGINESE LETTER KA
+01A01	BUGINESE LETTER GA
+01A02	BUGINESE LETTER NGA
+01A03	BUGINESE LETTER NGKA
+01A04	BUGINESE LETTER PA
+01A05	BUGINESE LETTER BA
+01A06	BUGINESE LETTER MA
+01A07	BUGINESE LETTER MPA
+01A08	BUGINESE LETTER TA
+01A09	BUGINESE LETTER DA
+01A0A	BUGINESE LETTER NA
+01A0B	BUGINESE LETTER NRA
+01A0C	BUGINESE LETTER CA
+01A0D	BUGINESE LETTER JA
+01A0E	BUGINESE LETTER NYA
+01A0F	BUGINESE LETTER NYCA
+01A10	BUGINESE LETTER YA
+01A11	BUGINESE LETTER RA
+01A12	BUGINESE LETTER LA
+01A13	BUGINESE LETTER VA
+01A14	BUGINESE LETTER SA
+01A15	BUGINESE LETTER A
+01A16	BUGINESE LETTER HA
+01A17	BUGINESE VOWEL SIGN I
+01A18	BUGINESE VOWEL SIGN U
+01A19	BUGINESE VOWEL SIGN E
+01A1A	BUGINESE VOWEL SIGN O
+01A1B	BUGINESE VOWEL SIGN AE
+01A1E	BUGINESE PALLAWA
+01A1F	BUGINESE END OF SECTION
+01A20	TAI THAM LETTER HIGH KA
+01A21	TAI THAM LETTER HIGH KHA
+01A22	TAI THAM LETTER HIGH KXA
+01A23	TAI THAM LETTER LOW KA
+01A24	TAI THAM LETTER LOW KXA
+01A25	TAI THAM LETTER LOW KHA
+01A26	TAI THAM LETTER NGA
+01A27	TAI THAM LETTER HIGH CA
+01A28	TAI THAM LETTER HIGH CHA
+01A29	TAI THAM LETTER LOW CA
+01A2A	TAI THAM LETTER LOW SA
+01A2B	TAI THAM LETTER LOW CHA
+01A2C	TAI THAM LETTER NYA
+01A2D	TAI THAM LETTER RATA
+01A2E	TAI THAM LETTER HIGH RATHA
+01A2F	TAI THAM LETTER DA
+01A30	TAI THAM LETTER LOW RATHA
+01A31	TAI THAM LETTER RANA
+01A32	TAI THAM LETTER HIGH TA
+01A33	TAI THAM LETTER HIGH THA
+01A34	TAI THAM LETTER LOW TA
+01A35	TAI THAM LETTER LOW THA
+01A36	TAI THAM LETTER NA
+01A37	TAI THAM LETTER BA
+01A38	TAI THAM LETTER HIGH PA
+01A39	TAI THAM LETTER HIGH PHA
+01A3A	TAI THAM LETTER HIGH FA
+01A3B	TAI THAM LETTER LOW PA
+01A3C	TAI THAM LETTER LOW FA
+01A3D	TAI THAM LETTER LOW PHA
+01A3E	TAI THAM LETTER MA
+01A3F	TAI THAM LETTER LOW YA
+01A40	TAI THAM LETTER HIGH YA
+01A41	TAI THAM LETTER RA
+01A42	TAI THAM LETTER RUE
+01A43	TAI THAM LETTER LA
+01A44	TAI THAM LETTER LUE
+01A45	TAI THAM LETTER WA
+01A46	TAI THAM LETTER HIGH SHA
+01A47	TAI THAM LETTER HIGH SSA
+01A48	TAI THAM LETTER HIGH SA
+01A49	TAI THAM LETTER HIGH HA
+01A4A	TAI THAM LETTER LLA
+01A4B	TAI THAM LETTER A
+01A4C	TAI THAM LETTER LOW HA
+01A4D	TAI THAM LETTER I
+01A4E	TAI THAM LETTER II
+01A4F	TAI THAM LETTER U
+01A50	TAI THAM LETTER UU
+01A51	TAI THAM LETTER EE
+01A52	TAI THAM LETTER OO
+01A53	TAI THAM LETTER LAE
+01A54	TAI THAM LETTER GREAT SA
+01A55	TAI THAM CONSONANT SIGN MEDIAL RA
+01A56	TAI THAM CONSONANT SIGN MEDIAL LA
+01A57	TAI THAM CONSONANT SIGN LA TANG LAI
+01A58	TAI THAM SIGN MAI KANG LAI
+01A59	TAI THAM CONSONANT SIGN FINAL NGA
+01A5A	TAI THAM CONSONANT SIGN LOW PA
+01A5B	TAI THAM CONSONANT SIGN HIGH RATHA OR LOW PA
+01A5C	TAI THAM CONSONANT SIGN MA
+01A5D	TAI THAM CONSONANT SIGN BA
+01A5E	TAI THAM CONSONANT SIGN SA
+01A60	TAI THAM SIGN SAKOT
+01A61	TAI THAM VOWEL SIGN A
+01A62	TAI THAM VOWEL SIGN MAI SAT
+01A63	TAI THAM VOWEL SIGN AA
+01A64	TAI THAM VOWEL SIGN TALL AA
+01A65	TAI THAM VOWEL SIGN I
+01A66	TAI THAM VOWEL SIGN II
+01A67	TAI THAM VOWEL SIGN UE
+01A68	TAI THAM VOWEL SIGN UUE
+01A69	TAI THAM VOWEL SIGN U
+01A6A	TAI THAM VOWEL SIGN UU
+01A6B	TAI THAM VOWEL SIGN O
+01A6C	TAI THAM VOWEL SIGN OA BELOW
+01A6D	TAI THAM VOWEL SIGN OY
+01A6E	TAI THAM VOWEL SIGN E
+01A6F	TAI THAM VOWEL SIGN AE
+01A70	TAI THAM VOWEL SIGN OO
+01A71	TAI THAM VOWEL SIGN AI
+01A72	TAI THAM VOWEL SIGN THAM AI
+01A73	TAI THAM VOWEL SIGN OA ABOVE
+01A74	TAI THAM SIGN MAI KANG
+01A75	TAI THAM SIGN TONE-1
+01A76	TAI THAM SIGN TONE-2
+01A77	TAI THAM SIGN KHUEN TONE-3
+01A78	TAI THAM SIGN KHUEN TONE-4
+01A79	TAI THAM SIGN KHUEN TONE-5
+01A7A	TAI THAM SIGN RA HAAM
+01A7B	TAI THAM SIGN MAI SAM
+01A7C	TAI THAM SIGN KHUEN-LUE KARAN
+01A7F	TAI THAM COMBINING CRYPTOGRAMMIC DOT
+01A80	TAI THAM HORA DIGIT ZERO
+01A81	TAI THAM HORA DIGIT ONE
+01A82	TAI THAM HORA DIGIT TWO
+01A83	TAI THAM HORA DIGIT THREE
+01A84	TAI THAM HORA DIGIT FOUR
+01A85	TAI THAM HORA DIGIT FIVE
+01A86	TAI THAM HORA DIGIT SIX
+01A87	TAI THAM HORA DIGIT SEVEN
+01A88	TAI THAM HORA DIGIT EIGHT
+01A89	TAI THAM HORA DIGIT NINE
+01A90	TAI THAM THAM DIGIT ZERO
+01A91	TAI THAM THAM DIGIT ONE
+01A92	TAI THAM THAM DIGIT TWO
+01A93	TAI THAM THAM DIGIT THREE
+01A94	TAI THAM THAM DIGIT FOUR
+01A95	TAI THAM THAM DIGIT FIVE
+01A96	TAI THAM THAM DIGIT SIX
+01A97	TAI THAM THAM DIGIT SEVEN
+01A98	TAI THAM THAM DIGIT EIGHT
+01A99	TAI THAM THAM DIGIT NINE
+01AA0	TAI THAM SIGN WIANG
+01AA1	TAI THAM SIGN WIANGWAAK
+01AA2	TAI THAM SIGN SAWAN
+01AA3	TAI THAM SIGN KEOW
+01AA4	TAI THAM SIGN HOY
+01AA5	TAI THAM SIGN DOKMAI
+01AA6	TAI THAM SIGN REVERSED ROTATED RANA
+01AA7	TAI THAM SIGN MAI YAMOK
+01AA8	TAI THAM SIGN KAAN
+01AA9	TAI THAM SIGN KAANKUU
+01AAA	TAI THAM SIGN SATKAAN
+01AAB	TAI THAM SIGN SATKAANKUU
+01AAC	TAI THAM SIGN HANG
+01AAD	TAI THAM SIGN CAANG
+01AB0	COMBINING DOUBLED CIRCUMFLEX ACCENT
+01AB1	COMBINING DIAERESIS-RING
+01AB2	COMBINING INFINITY
+01AB3	COMBINING DOWNWARDS ARROW
+01AB4	COMBINING TRIPLE DOT
+01AB5	COMBINING X-X BELOW
+01AB6	COMBINING WIGGLY LINE BELOW
+01AB7	COMBINING OPEN MARK BELOW
+01AB8	COMBINING DOUBLE OPEN MARK BELOW
+01AB9	COMBINING LIGHT CENTRALIZATION STROKE BELOW
+01ABA	COMBINING STRONG CENTRALIZATION STROKE BELOW
+01ABB	COMBINING PARENTHESES ABOVE
+01ABC	COMBINING DOUBLE PARENTHESES ABOVE
+01ABD	COMBINING PARENTHESES BELOW
+01ABE	COMBINING PARENTHESES OVERLAY
+01B00	BALINESE SIGN ULU RICEM
+01B01	BALINESE SIGN ULU CANDRA
+01B02	BALINESE SIGN CECEK
+01B03	BALINESE SIGN SURANG
+01B04	BALINESE SIGN BISAH
+01B05	BALINESE LETTER AKARA
+01B06	BALINESE LETTER AKARA TEDUNG
+01B07	BALINESE LETTER IKARA
+01B08	BALINESE LETTER IKARA TEDUNG
+01B09	BALINESE LETTER UKARA
+01B0A	BALINESE LETTER UKARA TEDUNG
+01B0B	BALINESE LETTER RA REPA
+01B0C	BALINESE LETTER RA REPA TEDUNG
+01B0D	BALINESE LETTER LA LENGA
+01B0E	BALINESE LETTER LA LENGA TEDUNG
+01B0F	BALINESE LETTER EKARA
+01B10	BALINESE LETTER AIKARA
+01B11	BALINESE LETTER OKARA
+01B12	BALINESE LETTER OKARA TEDUNG
+01B13	BALINESE LETTER KA
+01B14	BALINESE LETTER KA MAHAPRANA
+01B15	BALINESE LETTER GA
+01B16	BALINESE LETTER GA GORA
+01B17	BALINESE LETTER NGA
+01B18	BALINESE LETTER CA
+01B19	BALINESE LETTER CA LACA
+01B1A	BALINESE LETTER JA
+01B1B	BALINESE LETTER JA JERA
+01B1C	BALINESE LETTER NYA
+01B1D	BALINESE LETTER TA LATIK
+01B1E	BALINESE LETTER TA MURDA MAHAPRANA
+01B1F	BALINESE LETTER DA MURDA ALPAPRANA
+01B20	BALINESE LETTER DA MURDA MAHAPRANA
+01B21	BALINESE LETTER NA RAMBAT
+01B22	BALINESE LETTER TA
+01B23	BALINESE LETTER TA TAWA
+01B24	BALINESE LETTER DA
+01B25	BALINESE LETTER DA MADU
+01B26	BALINESE LETTER NA
+01B27	BALINESE LETTER PA
+01B28	BALINESE LETTER PA KAPAL
+01B29	BALINESE LETTER BA
+01B2A	BALINESE LETTER BA KEMBANG
+01B2B	BALINESE LETTER MA
+01B2C	BALINESE LETTER YA
+01B2D	BALINESE LETTER RA
+01B2E	BALINESE LETTER LA
+01B2F	BALINESE LETTER WA
+01B30	BALINESE LETTER SA SAGA
+01B31	BALINESE LETTER SA SAPA
+01B32	BALINESE LETTER SA
+01B33	BALINESE LETTER HA
+01B34	BALINESE SIGN REREKAN
+01B35	BALINESE VOWEL SIGN TEDUNG
+01B36	BALINESE VOWEL SIGN ULU
+01B37	BALINESE VOWEL SIGN ULU SARI
+01B38	BALINESE VOWEL SIGN SUKU
+01B39	BALINESE VOWEL SIGN SUKU ILUT
+01B3A	BALINESE VOWEL SIGN RA REPA
+01B3B	BALINESE VOWEL SIGN RA REPA TEDUNG
+01B3C	BALINESE VOWEL SIGN LA LENGA
+01B3D	BALINESE VOWEL SIGN LA LENGA TEDUNG
+01B3E	BALINESE VOWEL SIGN TALING
+01B3F	BALINESE VOWEL SIGN TALING REPA
+01B40	BALINESE VOWEL SIGN TALING TEDUNG
+01B41	BALINESE VOWEL SIGN TALING REPA TEDUNG
+01B42	BALINESE VOWEL SIGN PEPET
+01B43	BALINESE VOWEL SIGN PEPET TEDUNG
+01B44	BALINESE ADEG ADEG
+01B45	BALINESE LETTER KAF SASAK
+01B46	BALINESE LETTER KHOT SASAK
+01B47	BALINESE LETTER TZIR SASAK
+01B48	BALINESE LETTER EF SASAK
+01B49	BALINESE LETTER VE SASAK
+01B4A	BALINESE LETTER ZAL SASAK
+01B4B	BALINESE LETTER ASYURA SASAK
+01B50	BALINESE DIGIT ZERO
+01B51	BALINESE DIGIT ONE
+01B52	BALINESE DIGIT TWO
+01B53	BALINESE DIGIT THREE
+01B54	BALINESE DIGIT FOUR
+01B55	BALINESE DIGIT FIVE
+01B56	BALINESE DIGIT SIX
+01B57	BALINESE DIGIT SEVEN
+01B58	BALINESE DIGIT EIGHT
+01B59	BALINESE DIGIT NINE
+01B5A	BALINESE PANTI
+01B5B	BALINESE PAMADA
+01B5C	BALINESE WINDU
+01B5D	BALINESE CARIK PAMUNGKAH
+01B5E	BALINESE CARIK SIKI
+01B5F	BALINESE CARIK PAREREN
+01B60	BALINESE PAMENENG
+01B61	BALINESE MUSICAL SYMBOL DONG
+01B62	BALINESE MUSICAL SYMBOL DENG
+01B63	BALINESE MUSICAL SYMBOL DUNG
+01B64	BALINESE MUSICAL SYMBOL DANG
+01B65	BALINESE MUSICAL SYMBOL DANG SURANG
+01B66	BALINESE MUSICAL SYMBOL DING
+01B67	BALINESE MUSICAL SYMBOL DAENG
+01B68	BALINESE MUSICAL SYMBOL DEUNG
+01B69	BALINESE MUSICAL SYMBOL DAING
+01B6A	BALINESE MUSICAL SYMBOL DANG GEDE
+01B6B	BALINESE MUSICAL SYMBOL COMBINING TEGEH
+01B6C	BALINESE MUSICAL SYMBOL COMBINING ENDEP
+01B6D	BALINESE MUSICAL SYMBOL COMBINING KEMPUL
+01B6E	BALINESE MUSICAL SYMBOL COMBINING KEMPLI
+01B6F	BALINESE MUSICAL SYMBOL COMBINING JEGOGAN
+01B70	BALINESE MUSICAL SYMBOL COMBINING KEMPUL WITH JEGOGAN
+01B71	BALINESE MUSICAL SYMBOL COMBINING KEMPLI WITH JEGOGAN
+01B72	BALINESE MUSICAL SYMBOL COMBINING BENDE
+01B73	BALINESE MUSICAL SYMBOL COMBINING GONG
+01B74	BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DUG
+01B75	BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DAG
+01B76	BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TUK
+01B77	BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TAK
+01B78	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PANG
+01B79	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PUNG
+01B7A	BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLAK
+01B7B	BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLUK
+01B7C	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PING
+01B80	SUNDANESE SIGN PANYECEK
+01B81	SUNDANESE SIGN PANGLAYAR
+01B82	SUNDANESE SIGN PANGWISAD
+01B83	SUNDANESE LETTER A
+01B84	SUNDANESE LETTER I
+01B85	SUNDANESE LETTER U
+01B86	SUNDANESE LETTER AE
+01B87	SUNDANESE LETTER O
+01B88	SUNDANESE LETTER E
+01B89	SUNDANESE LETTER EU
+01B8A	SUNDANESE LETTER KA
+01B8B	SUNDANESE LETTER QA
+01B8C	SUNDANESE LETTER GA
+01B8D	SUNDANESE LETTER NGA
+01B8E	SUNDANESE LETTER CA
+01B8F	SUNDANESE LETTER JA
+01B90	SUNDANESE LETTER ZA
+01B91	SUNDANESE LETTER NYA
+01B92	SUNDANESE LETTER TA
+01B93	SUNDANESE LETTER DA
+01B94	SUNDANESE LETTER NA
+01B95	SUNDANESE LETTER PA
+01B96	SUNDANESE LETTER FA
+01B97	SUNDANESE LETTER VA
+01B98	SUNDANESE LETTER BA
+01B99	SUNDANESE LETTER MA
+01B9A	SUNDANESE LETTER YA
+01B9B	SUNDANESE LETTER RA
+01B9C	SUNDANESE LETTER LA
+01B9D	SUNDANESE LETTER WA
+01B9E	SUNDANESE LETTER SA
+01B9F	SUNDANESE LETTER XA
+01BA0	SUNDANESE LETTER HA
+01BA1	SUNDANESE CONSONANT SIGN PAMINGKAL
+01BA2	SUNDANESE CONSONANT SIGN PANYAKRA
+01BA3	SUNDANESE CONSONANT SIGN PANYIKU
+01BA4	SUNDANESE VOWEL SIGN PANGHULU
+01BA5	SUNDANESE VOWEL SIGN PANYUKU
+01BA6	SUNDANESE VOWEL SIGN PANAELAENG
+01BA7	SUNDANESE VOWEL SIGN PANOLONG
+01BA8	SUNDANESE VOWEL SIGN PAMEPET
+01BA9	SUNDANESE VOWEL SIGN PANEULEUNG
+01BAA	SUNDANESE SIGN PAMAAEH
+01BAB	SUNDANESE SIGN VIRAMA
+01BAC	SUNDANESE CONSONANT SIGN PASANGAN MA
+01BAD	SUNDANESE CONSONANT SIGN PASANGAN WA
+01BAE	SUNDANESE LETTER KHA
+01BAF	SUNDANESE LETTER SYA
+01BB0	SUNDANESE DIGIT ZERO
+01BB1	SUNDANESE DIGIT ONE
+01BB2	SUNDANESE DIGIT TWO
+01BB3	SUNDANESE DIGIT THREE
+01BB4	SUNDANESE DIGIT FOUR
+01BB5	SUNDANESE DIGIT FIVE
+01BB6	SUNDANESE DIGIT SIX
+01BB7	SUNDANESE DIGIT SEVEN
+01BB8	SUNDANESE DIGIT EIGHT
+01BB9	SUNDANESE DIGIT NINE
+01BBA	SUNDANESE AVAGRAHA
+01BBB	SUNDANESE LETTER REU
+01BBC	SUNDANESE LETTER LEU
+01BBD	SUNDANESE LETTER BHA
+01BBE	SUNDANESE LETTER FINAL K
+01BBF	SUNDANESE LETTER FINAL M
+01BC0	BATAK LETTER A
+01BC1	BATAK LETTER SIMALUNGUN A
+01BC2	BATAK LETTER HA
+01BC3	BATAK LETTER SIMALUNGUN HA
+01BC4	BATAK LETTER MANDAILING HA
+01BC5	BATAK LETTER BA
+01BC6	BATAK LETTER KARO BA
+01BC7	BATAK LETTER PA
+01BC8	BATAK LETTER SIMALUNGUN PA
+01BC9	BATAK LETTER NA
+01BCA	BATAK LETTER MANDAILING NA
+01BCB	BATAK LETTER WA
+01BCC	BATAK LETTER SIMALUNGUN WA
+01BCD	BATAK LETTER PAKPAK WA
+01BCE	BATAK LETTER GA
+01BCF	BATAK LETTER SIMALUNGUN GA
+01BD0	BATAK LETTER JA
+01BD1	BATAK LETTER DA
+01BD2	BATAK LETTER RA
+01BD3	BATAK LETTER SIMALUNGUN RA
+01BD4	BATAK LETTER MA
+01BD5	BATAK LETTER SIMALUNGUN MA
+01BD6	BATAK LETTER SOUTHERN TA
+01BD7	BATAK LETTER NORTHERN TA
+01BD8	BATAK LETTER SA
+01BD9	BATAK LETTER SIMALUNGUN SA
+01BDA	BATAK LETTER MANDAILING SA
+01BDB	BATAK LETTER YA
+01BDC	BATAK LETTER SIMALUNGUN YA
+01BDD	BATAK LETTER NGA
+01BDE	BATAK LETTER LA
+01BDF	BATAK LETTER SIMALUNGUN LA
+01BE0	BATAK LETTER NYA
+01BE1	BATAK LETTER CA
+01BE2	BATAK LETTER NDA
+01BE3	BATAK LETTER MBA
+01BE4	BATAK LETTER I
+01BE5	BATAK LETTER U
+01BE6	BATAK SIGN TOMPI
+01BE7	BATAK VOWEL SIGN E
+01BE8	BATAK VOWEL SIGN PAKPAK E
+01BE9	BATAK VOWEL SIGN EE
+01BEA	BATAK VOWEL SIGN I
+01BEB	BATAK VOWEL SIGN KARO I
+01BEC	BATAK VOWEL SIGN O
+01BED	BATAK VOWEL SIGN KARO O
+01BEE	BATAK VOWEL SIGN U
+01BEF	BATAK VOWEL SIGN U FOR SIMALUNGUN SA
+01BF0	BATAK CONSONANT SIGN NG
+01BF1	BATAK CONSONANT SIGN H
+01BF2	BATAK PANGOLAT
+01BF3	BATAK PANONGONAN
+01BFC	BATAK SYMBOL BINDU NA METEK
+01BFD	BATAK SYMBOL BINDU PINARBORAS
+01BFE	BATAK SYMBOL BINDU JUDUL
+01BFF	BATAK SYMBOL BINDU PANGOLAT
+01C00	LEPCHA LETTER KA
+01C01	LEPCHA LETTER KLA
+01C02	LEPCHA LETTER KHA
+01C03	LEPCHA LETTER GA
+01C04	LEPCHA LETTER GLA
+01C05	LEPCHA LETTER NGA
+01C06	LEPCHA LETTER CA
+01C07	LEPCHA LETTER CHA
+01C08	LEPCHA LETTER JA
+01C09	LEPCHA LETTER NYA
+01C0A	LEPCHA LETTER TA
+01C0B	LEPCHA LETTER THA
+01C0C	LEPCHA LETTER DA
+01C0D	LEPCHA LETTER NA
+01C0E	LEPCHA LETTER PA
+01C0F	LEPCHA LETTER PLA
+01C10	LEPCHA LETTER PHA
+01C11	LEPCHA LETTER FA
+01C12	LEPCHA LETTER FLA
+01C13	LEPCHA LETTER BA
+01C14	LEPCHA LETTER BLA
+01C15	LEPCHA LETTER MA
+01C16	LEPCHA LETTER MLA
+01C17	LEPCHA LETTER TSA
+01C18	LEPCHA LETTER TSHA
+01C19	LEPCHA LETTER DZA
+01C1A	LEPCHA LETTER YA
+01C1B	LEPCHA LETTER RA
+01C1C	LEPCHA LETTER LA
+01C1D	LEPCHA LETTER HA
+01C1E	LEPCHA LETTER HLA
+01C1F	LEPCHA LETTER VA
+01C20	LEPCHA LETTER SA
+01C21	LEPCHA LETTER SHA
+01C22	LEPCHA LETTER WA
+01C23	LEPCHA LETTER A
+01C24	LEPCHA SUBJOINED LETTER YA
+01C25	LEPCHA SUBJOINED LETTER RA
+01C26	LEPCHA VOWEL SIGN AA
+01C27	LEPCHA VOWEL SIGN I
+01C28	LEPCHA VOWEL SIGN O
+01C29	LEPCHA VOWEL SIGN OO
+01C2A	LEPCHA VOWEL SIGN U
+01C2B	LEPCHA VOWEL SIGN UU
+01C2C	LEPCHA VOWEL SIGN E
+01C2D	LEPCHA CONSONANT SIGN K
+01C2E	LEPCHA CONSONANT SIGN M
+01C2F	LEPCHA CONSONANT SIGN L
+01C30	LEPCHA CONSONANT SIGN N
+01C31	LEPCHA CONSONANT SIGN P
+01C32	LEPCHA CONSONANT SIGN R
+01C33	LEPCHA CONSONANT SIGN T
+01C34	LEPCHA CONSONANT SIGN NYIN-DO
+01C35	LEPCHA CONSONANT SIGN KANG
+01C36	LEPCHA SIGN RAN
+01C37	LEPCHA SIGN NUKTA
+01C3B	LEPCHA PUNCTUATION TA-ROL
+01C3C	LEPCHA PUNCTUATION NYET THYOOM TA-ROL
+01C3D	LEPCHA PUNCTUATION CER-WA
+01C3E	LEPCHA PUNCTUATION TSHOOK CER-WA
+01C3F	LEPCHA PUNCTUATION TSHOOK
+01C40	LEPCHA DIGIT ZERO
+01C41	LEPCHA DIGIT ONE
+01C42	LEPCHA DIGIT TWO
+01C43	LEPCHA DIGIT THREE
+01C44	LEPCHA DIGIT FOUR
+01C45	LEPCHA DIGIT FIVE
+01C46	LEPCHA DIGIT SIX
+01C47	LEPCHA DIGIT SEVEN
+01C48	LEPCHA DIGIT EIGHT
+01C49	LEPCHA DIGIT NINE
+01C4D	LEPCHA LETTER TTA
+01C4E	LEPCHA LETTER TTHA
+01C4F	LEPCHA LETTER DDA
+01C50	OL CHIKI DIGIT ZERO
+01C51	OL CHIKI DIGIT ONE
+01C52	OL CHIKI DIGIT TWO
+01C53	OL CHIKI DIGIT THREE
+01C54	OL CHIKI DIGIT FOUR
+01C55	OL CHIKI DIGIT FIVE
+01C56	OL CHIKI DIGIT SIX
+01C57	OL CHIKI DIGIT SEVEN
+01C58	OL CHIKI DIGIT EIGHT
+01C59	OL CHIKI DIGIT NINE
+01C5A	OL CHIKI LETTER LA
+01C5B	OL CHIKI LETTER AT
+01C5C	OL CHIKI LETTER AG
+01C5D	OL CHIKI LETTER ANG
+01C5E	OL CHIKI LETTER AL
+01C5F	OL CHIKI LETTER LAA
+01C60	OL CHIKI LETTER AAK
+01C61	OL CHIKI LETTER AAJ
+01C62	OL CHIKI LETTER AAM
+01C63	OL CHIKI LETTER AAW
+01C64	OL CHIKI LETTER LI
+01C65	OL CHIKI LETTER IS
+01C66	OL CHIKI LETTER IH
+01C67	OL CHIKI LETTER INY
+01C68	OL CHIKI LETTER IR
+01C69	OL CHIKI LETTER LU
+01C6A	OL CHIKI LETTER UC
+01C6B	OL CHIKI LETTER UD
+01C6C	OL CHIKI LETTER UNN
+01C6D	OL CHIKI LETTER UY
+01C6E	OL CHIKI LETTER LE
+01C6F	OL CHIKI LETTER EP
+01C70	OL CHIKI LETTER EDD
+01C71	OL CHIKI LETTER EN
+01C72	OL CHIKI LETTER ERR
+01C73	OL CHIKI LETTER LO
+01C74	OL CHIKI LETTER OTT
+01C75	OL CHIKI LETTER OB
+01C76	OL CHIKI LETTER OV
+01C77	OL CHIKI LETTER OH
+01C78	OL CHIKI MU TTUDDAG
+01C79	OL CHIKI GAAHLAA TTUDDAAG
+01C7A	OL CHIKI MU-GAAHLAA TTUDDAAG
+01C7B	OL CHIKI RELAA
+01C7C	OL CHIKI PHAARKAA
+01C7D	OL CHIKI AHAD
+01C7E	OL CHIKI PUNCTUATION MUCAAD
+01C7F	OL CHIKI PUNCTUATION DOUBLE MUCAAD
+01C80	CYRILLIC SMALL LETTER ROUNDED VE
+01C81	CYRILLIC SMALL LETTER LONG-LEGGED DE
+01C82	CYRILLIC SMALL LETTER NARROW O
+01C83	CYRILLIC SMALL LETTER WIDE ES
+01C84	CYRILLIC SMALL LETTER TALL TE
+01C85	CYRILLIC SMALL LETTER THREE-LEGGED TE
+01C86	CYRILLIC SMALL LETTER TALL HARD SIGN
+01C87	CYRILLIC SMALL LETTER TALL YAT
+01C88	CYRILLIC SMALL LETTER UNBLENDED UK
+01CC0	SUNDANESE PUNCTUATION BINDU SURYA
+01CC1	SUNDANESE PUNCTUATION BINDU PANGLONG
+01CC2	SUNDANESE PUNCTUATION BINDU PURNAMA
+01CC3	SUNDANESE PUNCTUATION BINDU CAKRA
+01CC4	SUNDANESE PUNCTUATION BINDU LEU SATANGA
+01CC5	SUNDANESE PUNCTUATION BINDU KA SATANGA
+01CC6	SUNDANESE PUNCTUATION BINDU DA SATANGA
+01CC7	SUNDANESE PUNCTUATION BINDU BA SATANGA
+01CD0	VEDIC TONE KARSHANA
+01CD1	VEDIC TONE SHARA
+01CD2	VEDIC TONE PRENKHA
+01CD3	VEDIC SIGN NIHSHVASA
+01CD4	VEDIC SIGN YAJURVEDIC MIDLINE SVARITA
+01CD5	VEDIC TONE YAJURVEDIC AGGRAVATED INDEPENDENT SVARITA
+01CD6	VEDIC TONE YAJURVEDIC INDEPENDENT SVARITA
+01CD7	VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA
+01CD8	VEDIC TONE CANDRA BELOW
+01CD9	VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA SCHROEDER
+01CDA	VEDIC TONE DOUBLE SVARITA
+01CDB	VEDIC TONE TRIPLE SVARITA
+01CDC	VEDIC TONE KATHAKA ANUDATTA
+01CDD	VEDIC TONE DOT BELOW
+01CDE	VEDIC TONE TWO DOTS BELOW
+01CDF	VEDIC TONE THREE DOTS BELOW
+01CE0	VEDIC TONE RIGVEDIC KASHMIRI INDEPENDENT SVARITA
+01CE1	VEDIC TONE ATHARVAVEDIC INDEPENDENT SVARITA
+01CE2	VEDIC SIGN VISARGA SVARITA
+01CE3	VEDIC SIGN VISARGA UDATTA
+01CE4	VEDIC SIGN REVERSED VISARGA UDATTA
+01CE5	VEDIC SIGN VISARGA ANUDATTA
+01CE6	VEDIC SIGN REVERSED VISARGA ANUDATTA
+01CE7	VEDIC SIGN VISARGA UDATTA WITH TAIL
+01CE8	VEDIC SIGN VISARGA ANUDATTA WITH TAIL
+01CE9	VEDIC SIGN ANUSVARA ANTARGOMUKHA
+01CEA	VEDIC SIGN ANUSVARA BAHIRGOMUKHA
+01CEB	VEDIC SIGN ANUSVARA VAMAGOMUKHA
+01CEC	VEDIC SIGN ANUSVARA VAMAGOMUKHA WITH TAIL
+01CED	VEDIC SIGN TIRYAK
+01CEE	VEDIC SIGN HEXIFORM LONG ANUSVARA
+01CEF	VEDIC SIGN LONG ANUSVARA
+01CF0	VEDIC SIGN RTHANG LONG ANUSVARA
+01CF1	VEDIC SIGN ANUSVARA UBHAYATO MUKHA
+01CF2	VEDIC SIGN ARDHAVISARGA
+01CF3	VEDIC SIGN ROTATED ARDHAVISARGA
+01CF4	VEDIC TONE CANDRA ABOVE
+01CF5	VEDIC SIGN JIHVAMULIYA
+01CF6	VEDIC SIGN UPADHMANIYA
+01CF7	VEDIC SIGN ATIKRAMA
+01CF8	VEDIC TONE RING ABOVE
+01CF9	VEDIC TONE DOUBLE RING ABOVE
+01D00	LATIN LETTER SMALL CAPITAL A
+01D01	LATIN LETTER SMALL CAPITAL AE
+01D02	LATIN SMALL LETTER TURNED AE
+01D03	LATIN LETTER SMALL CAPITAL BARRED B
+01D04	LATIN LETTER SMALL CAPITAL C
+01D05	LATIN LETTER SMALL CAPITAL D
+01D06	LATIN LETTER SMALL CAPITAL ETH
+01D07	LATIN LETTER SMALL CAPITAL E
+01D08	LATIN SMALL LETTER TURNED OPEN E
+01D09	LATIN SMALL LETTER TURNED I
+01D0A	LATIN LETTER SMALL CAPITAL J
+01D0B	LATIN LETTER SMALL CAPITAL K
+01D0C	LATIN LETTER SMALL CAPITAL L WITH STROKE
+01D0D	LATIN LETTER SMALL CAPITAL M
+01D0E	LATIN LETTER SMALL CAPITAL REVERSED N
+01D0F	LATIN LETTER SMALL CAPITAL O
+01D10	LATIN LETTER SMALL CAPITAL OPEN O
+01D11	LATIN SMALL LETTER SIDEWAYS O
+01D12	LATIN SMALL LETTER SIDEWAYS OPEN O
+01D13	LATIN SMALL LETTER SIDEWAYS O WITH STROKE
+01D14	LATIN SMALL LETTER TURNED OE
+01D15	LATIN LETTER SMALL CAPITAL OU
+01D16	LATIN SMALL LETTER TOP HALF O
+01D17	LATIN SMALL LETTER BOTTOM HALF O
+01D18	LATIN LETTER SMALL CAPITAL P
+01D19	LATIN LETTER SMALL CAPITAL REVERSED R
+01D1A	LATIN LETTER SMALL CAPITAL TURNED R
+01D1B	LATIN LETTER SMALL CAPITAL T
+01D1C	LATIN LETTER SMALL CAPITAL U
+01D1D	LATIN SMALL LETTER SIDEWAYS U
+01D1E	LATIN SMALL LETTER SIDEWAYS DIAERESIZED U
+01D1F	LATIN SMALL LETTER SIDEWAYS TURNED M
+01D20	LATIN LETTER SMALL CAPITAL V
+01D21	LATIN LETTER SMALL CAPITAL W
+01D22	LATIN LETTER SMALL CAPITAL Z
+01D23	LATIN LETTER SMALL CAPITAL EZH
+01D24	LATIN LETTER VOICED LARYNGEAL SPIRANT
+01D25	LATIN LETTER AIN
+01D26	GREEK LETTER SMALL CAPITAL GAMMA
+01D27	GREEK LETTER SMALL CAPITAL LAMDA
+01D28	GREEK LETTER SMALL CAPITAL PI
+01D29	GREEK LETTER SMALL CAPITAL RHO
+01D2A	GREEK LETTER SMALL CAPITAL PSI
+01D2B	CYRILLIC LETTER SMALL CAPITAL EL
+01D2C	MODIFIER LETTER CAPITAL A
+01D2D	MODIFIER LETTER CAPITAL AE
+01D2E	MODIFIER LETTER CAPITAL B
+01D2F	MODIFIER LETTER CAPITAL BARRED B
+01D30	MODIFIER LETTER CAPITAL D
+01D31	MODIFIER LETTER CAPITAL E
+01D32	MODIFIER LETTER CAPITAL REVERSED E
+01D33	MODIFIER LETTER CAPITAL G
+01D34	MODIFIER LETTER CAPITAL H
+01D35	MODIFIER LETTER CAPITAL I
+01D36	MODIFIER LETTER CAPITAL J
+01D37	MODIFIER LETTER CAPITAL K
+01D38	MODIFIER LETTER CAPITAL L
+01D39	MODIFIER LETTER CAPITAL M
+01D3A	MODIFIER LETTER CAPITAL N
+01D3B	MODIFIER LETTER CAPITAL REVERSED N
+01D3C	MODIFIER LETTER CAPITAL O
+01D3D	MODIFIER LETTER CAPITAL OU
+01D3E	MODIFIER LETTER CAPITAL P
+01D3F	MODIFIER LETTER CAPITAL R
+01D40	MODIFIER LETTER CAPITAL T
+01D41	MODIFIER LETTER CAPITAL U
+01D42	MODIFIER LETTER CAPITAL W
+01D43	MODIFIER LETTER SMALL A
+01D44	MODIFIER LETTER SMALL TURNED A
+01D45	MODIFIER LETTER SMALL ALPHA
+01D46	MODIFIER LETTER SMALL TURNED AE
+01D47	MODIFIER LETTER SMALL B
+01D48	MODIFIER LETTER SMALL D
+01D49	MODIFIER LETTER SMALL E
+01D4A	MODIFIER LETTER SMALL SCHWA
+01D4B	MODIFIER LETTER SMALL OPEN E
+01D4C	MODIFIER LETTER SMALL TURNED OPEN E
+01D4D	MODIFIER LETTER SMALL G
+01D4E	MODIFIER LETTER SMALL TURNED I
+01D4F	MODIFIER LETTER SMALL K
+01D50	MODIFIER LETTER SMALL M
+01D51	MODIFIER LETTER SMALL ENG
+01D52	MODIFIER LETTER SMALL O
+01D53	MODIFIER LETTER SMALL OPEN O
+01D54	MODIFIER LETTER SMALL TOP HALF O
+01D55	MODIFIER LETTER SMALL BOTTOM HALF O
+01D56	MODIFIER LETTER SMALL P
+01D57	MODIFIER LETTER SMALL T
+01D58	MODIFIER LETTER SMALL U
+01D59	MODIFIER LETTER SMALL SIDEWAYS U
+01D5A	MODIFIER LETTER SMALL TURNED M
+01D5B	MODIFIER LETTER SMALL V
+01D5C	MODIFIER LETTER SMALL AIN
+01D5D	MODIFIER LETTER SMALL BETA
+01D5E	MODIFIER LETTER SMALL GREEK GAMMA
+01D5F	MODIFIER LETTER SMALL DELTA
+01D60	MODIFIER LETTER SMALL GREEK PHI
+01D61	MODIFIER LETTER SMALL CHI
+01D62	LATIN SUBSCRIPT SMALL LETTER I
+01D63	LATIN SUBSCRIPT SMALL LETTER R
+01D64	LATIN SUBSCRIPT SMALL LETTER U
+01D65	LATIN SUBSCRIPT SMALL LETTER V
+01D66	GREEK SUBSCRIPT SMALL LETTER BETA
+01D67	GREEK SUBSCRIPT SMALL LETTER GAMMA
+01D68	GREEK SUBSCRIPT SMALL LETTER RHO
+01D69	GREEK SUBSCRIPT SMALL LETTER PHI
+01D6A	GREEK SUBSCRIPT SMALL LETTER CHI
+01D6B	LATIN SMALL LETTER UE
+01D6C	LATIN SMALL LETTER B WITH MIDDLE TILDE
+01D6D	LATIN SMALL LETTER D WITH MIDDLE TILDE
+01D6E	LATIN SMALL LETTER F WITH MIDDLE TILDE
+01D6F	LATIN SMALL LETTER M WITH MIDDLE TILDE
+01D70	LATIN SMALL LETTER N WITH MIDDLE TILDE
+01D71	LATIN SMALL LETTER P WITH MIDDLE TILDE
+01D72	LATIN SMALL LETTER R WITH MIDDLE TILDE
+01D73	LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE
+01D74	LATIN SMALL LETTER S WITH MIDDLE TILDE
+01D75	LATIN SMALL LETTER T WITH MIDDLE TILDE
+01D76	LATIN SMALL LETTER Z WITH MIDDLE TILDE
+01D77	LATIN SMALL LETTER TURNED G
+01D78	MODIFIER LETTER CYRILLIC EN
+01D79	LATIN SMALL LETTER INSULAR G
+01D7A	LATIN SMALL LETTER TH WITH STRIKETHROUGH
+01D7B	LATIN SMALL CAPITAL LETTER I WITH STROKE
+01D7C	LATIN SMALL LETTER IOTA WITH STROKE
+01D7D	LATIN SMALL LETTER P WITH STROKE
+01D7E	LATIN SMALL CAPITAL LETTER U WITH STROKE
+01D7F	LATIN SMALL LETTER UPSILON WITH STROKE
+01D80	LATIN SMALL LETTER B WITH PALATAL HOOK
+01D81	LATIN SMALL LETTER D WITH PALATAL HOOK
+01D82	LATIN SMALL LETTER F WITH PALATAL HOOK
+01D83	LATIN SMALL LETTER G WITH PALATAL HOOK
+01D84	LATIN SMALL LETTER K WITH PALATAL HOOK
+01D85	LATIN SMALL LETTER L WITH PALATAL HOOK
+01D86	LATIN SMALL LETTER M WITH PALATAL HOOK
+01D87	LATIN SMALL LETTER N WITH PALATAL HOOK
+01D88	LATIN SMALL LETTER P WITH PALATAL HOOK
+01D89	LATIN SMALL LETTER R WITH PALATAL HOOK
+01D8A	LATIN SMALL LETTER S WITH PALATAL HOOK
+01D8B	LATIN SMALL LETTER ESH WITH PALATAL HOOK
+01D8C	LATIN SMALL LETTER V WITH PALATAL HOOK
+01D8D	LATIN SMALL LETTER X WITH PALATAL HOOK
+01D8E	LATIN SMALL LETTER Z WITH PALATAL HOOK
+01D8F	LATIN SMALL LETTER A WITH RETROFLEX HOOK
+01D90	LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK
+01D91	LATIN SMALL LETTER D WITH HOOK AND TAIL
+01D92	LATIN SMALL LETTER E WITH RETROFLEX HOOK
+01D93	LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK
+01D94	LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK
+01D95	LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK
+01D96	LATIN SMALL LETTER I WITH RETROFLEX HOOK
+01D97	LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK
+01D98	LATIN SMALL LETTER ESH WITH RETROFLEX HOOK
+01D99	LATIN SMALL LETTER U WITH RETROFLEX HOOK
+01D9A	LATIN SMALL LETTER EZH WITH RETROFLEX HOOK
+01D9B	MODIFIER LETTER SMALL TURNED ALPHA
+01D9C	MODIFIER LETTER SMALL C
+01D9D	MODIFIER LETTER SMALL C WITH CURL
+01D9E	MODIFIER LETTER SMALL ETH
+01D9F	MODIFIER LETTER SMALL REVERSED OPEN E
+01DA0	MODIFIER LETTER SMALL F
+01DA1	MODIFIER LETTER SMALL DOTLESS J WITH STROKE
+01DA2	MODIFIER LETTER SMALL SCRIPT G
+01DA3	MODIFIER LETTER SMALL TURNED H
+01DA4	MODIFIER LETTER SMALL I WITH STROKE
+01DA5	MODIFIER LETTER SMALL IOTA
+01DA6	MODIFIER LETTER SMALL CAPITAL I
+01DA7	MODIFIER LETTER SMALL CAPITAL I WITH STROKE
+01DA8	MODIFIER LETTER SMALL J WITH CROSSED-TAIL
+01DA9	MODIFIER LETTER SMALL L WITH RETROFLEX HOOK
+01DAA	MODIFIER LETTER SMALL L WITH PALATAL HOOK
+01DAB	MODIFIER LETTER SMALL CAPITAL L
+01DAC	MODIFIER LETTER SMALL M WITH HOOK
+01DAD	MODIFIER LETTER SMALL TURNED M WITH LONG LEG
+01DAE	MODIFIER LETTER SMALL N WITH LEFT HOOK
+01DAF	MODIFIER LETTER SMALL N WITH RETROFLEX HOOK
+01DB0	MODIFIER LETTER SMALL CAPITAL N
+01DB1	MODIFIER LETTER SMALL BARRED O
+01DB2	MODIFIER LETTER SMALL PHI
+01DB3	MODIFIER LETTER SMALL S WITH HOOK
+01DB4	MODIFIER LETTER SMALL ESH
+01DB5	MODIFIER LETTER SMALL T WITH PALATAL HOOK
+01DB6	MODIFIER LETTER SMALL U BAR
+01DB7	MODIFIER LETTER SMALL UPSILON
+01DB8	MODIFIER LETTER SMALL CAPITAL U
+01DB9	MODIFIER LETTER SMALL V WITH HOOK
+01DBA	MODIFIER LETTER SMALL TURNED V
+01DBB	MODIFIER LETTER SMALL Z
+01DBC	MODIFIER LETTER SMALL Z WITH RETROFLEX HOOK
+01DBD	MODIFIER LETTER SMALL Z WITH CURL
+01DBE	MODIFIER LETTER SMALL EZH
+01DBF	MODIFIER LETTER SMALL THETA
+01DC0	COMBINING DOTTED GRAVE ACCENT
+01DC1	COMBINING DOTTED ACUTE ACCENT
+01DC2	COMBINING SNAKE BELOW
+01DC3	COMBINING SUSPENSION MARK
+01DC4	COMBINING MACRON-ACUTE
+01DC5	COMBINING GRAVE-MACRON
+01DC6	COMBINING MACRON-GRAVE
+01DC7	COMBINING ACUTE-MACRON
+01DC8	COMBINING GRAVE-ACUTE-GRAVE
+01DC9	COMBINING ACUTE-GRAVE-ACUTE
+01DCA	COMBINING LATIN SMALL LETTER R BELOW
+01DCB	COMBINING BREVE-MACRON
+01DCC	COMBINING MACRON-BREVE
+01DCD	COMBINING DOUBLE CIRCUMFLEX ABOVE
+01DCE	COMBINING OGONEK ABOVE
+01DCF	COMBINING ZIGZAG BELOW
+01DD0	COMBINING IS BELOW
+01DD1	COMBINING UR ABOVE
+01DD2	COMBINING US ABOVE
+01DD3	COMBINING LATIN SMALL LETTER FLATTENED OPEN A ABOVE
+01DD4	COMBINING LATIN SMALL LETTER AE
+01DD5	COMBINING LATIN SMALL LETTER AO
+01DD6	COMBINING LATIN SMALL LETTER AV
+01DD7	COMBINING LATIN SMALL LETTER C CEDILLA
+01DD8	COMBINING LATIN SMALL LETTER INSULAR D
+01DD9	COMBINING LATIN SMALL LETTER ETH
+01DDA	COMBINING LATIN SMALL LETTER G
+01DDB	COMBINING LATIN LETTER SMALL CAPITAL G
+01DDC	COMBINING LATIN SMALL LETTER K
+01DDD	COMBINING LATIN SMALL LETTER L
+01DDE	COMBINING LATIN LETTER SMALL CAPITAL L
+01DDF	COMBINING LATIN LETTER SMALL CAPITAL M
+01DE0	COMBINING LATIN SMALL LETTER N
+01DE1	COMBINING LATIN LETTER SMALL CAPITAL N
+01DE2	COMBINING LATIN LETTER SMALL CAPITAL R
+01DE3	COMBINING LATIN SMALL LETTER R ROTUNDA
+01DE4	COMBINING LATIN SMALL LETTER S
+01DE5	COMBINING LATIN SMALL LETTER LONG S
+01DE6	COMBINING LATIN SMALL LETTER Z
+01DE7	COMBINING LATIN SMALL LETTER ALPHA
+01DE8	COMBINING LATIN SMALL LETTER B
+01DE9	COMBINING LATIN SMALL LETTER BETA
+01DEA	COMBINING LATIN SMALL LETTER SCHWA
+01DEB	COMBINING LATIN SMALL LETTER F
+01DEC	COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+01DED	COMBINING LATIN SMALL LETTER O WITH LIGHT CENTRALIZATION STROKE
+01DEE	COMBINING LATIN SMALL LETTER P
+01DEF	COMBINING LATIN SMALL LETTER ESH
+01DF0	COMBINING LATIN SMALL LETTER U WITH LIGHT CENTRALIZATION STROKE
+01DF1	COMBINING LATIN SMALL LETTER W
+01DF2	COMBINING LATIN SMALL LETTER A WITH DIAERESIS
+01DF3	COMBINING LATIN SMALL LETTER O WITH DIAERESIS
+01DF4	COMBINING LATIN SMALL LETTER U WITH DIAERESIS
+01DF5	COMBINING UP TACK ABOVE
+01DF6	COMBINING KAVYKA ABOVE RIGHT
+01DF7	COMBINING KAVYKA ABOVE LEFT
+01DF8	COMBINING DOT ABOVE LEFT
+01DF9	COMBINING WIDE INVERTED BRIDGE BELOW
+01DFB	COMBINING DELETION MARK
+01DFC	COMBINING DOUBLE INVERTED BREVE BELOW
+01DFD	COMBINING ALMOST EQUAL TO BELOW
+01DFE	COMBINING LEFT ARROWHEAD ABOVE
+01DFF	COMBINING RIGHT ARROWHEAD AND DOWN ARROWHEAD BELOW
+01E00	LATIN CAPITAL LETTER A WITH RING BELOW
+01E01	LATIN SMALL LETTER A WITH RING BELOW
+01E02	LATIN CAPITAL LETTER B WITH DOT ABOVE
+01E03	LATIN SMALL LETTER B WITH DOT ABOVE
+01E04	LATIN CAPITAL LETTER B WITH DOT BELOW
+01E05	LATIN SMALL LETTER B WITH DOT BELOW
+01E06	LATIN CAPITAL LETTER B WITH LINE BELOW
+01E07	LATIN SMALL LETTER B WITH LINE BELOW
+01E08	LATIN CAPITAL LETTER C WITH CEDILLA AND ACUTE
+01E09	LATIN SMALL LETTER C WITH CEDILLA AND ACUTE
+01E0A	LATIN CAPITAL LETTER D WITH DOT ABOVE
+01E0B	LATIN SMALL LETTER D WITH DOT ABOVE
+01E0C	LATIN CAPITAL LETTER D WITH DOT BELOW
+01E0D	LATIN SMALL LETTER D WITH DOT BELOW
+01E0E	LATIN CAPITAL LETTER D WITH LINE BELOW
+01E0F	LATIN SMALL LETTER D WITH LINE BELOW
+01E10	LATIN CAPITAL LETTER D WITH CEDILLA
+01E11	LATIN SMALL LETTER D WITH CEDILLA
+01E12	LATIN CAPITAL LETTER D WITH CIRCUMFLEX BELOW
+01E13	LATIN SMALL LETTER D WITH CIRCUMFLEX BELOW
+01E14	LATIN CAPITAL LETTER E WITH MACRON AND GRAVE
+01E15	LATIN SMALL LETTER E WITH MACRON AND GRAVE
+01E16	LATIN CAPITAL LETTER E WITH MACRON AND ACUTE
+01E17	LATIN SMALL LETTER E WITH MACRON AND ACUTE
+01E18	LATIN CAPITAL LETTER E WITH CIRCUMFLEX BELOW
+01E19	LATIN SMALL LETTER E WITH CIRCUMFLEX BELOW
+01E1A	LATIN CAPITAL LETTER E WITH TILDE BELOW
+01E1B	LATIN SMALL LETTER E WITH TILDE BELOW
+01E1C	LATIN CAPITAL LETTER E WITH CEDILLA AND BREVE
+01E1D	LATIN SMALL LETTER E WITH CEDILLA AND BREVE
+01E1E	LATIN CAPITAL LETTER F WITH DOT ABOVE
+01E1F	LATIN SMALL LETTER F WITH DOT ABOVE
+01E20	LATIN CAPITAL LETTER G WITH MACRON
+01E21	LATIN SMALL LETTER G WITH MACRON
+01E22	LATIN CAPITAL LETTER H WITH DOT ABOVE
+01E23	LATIN SMALL LETTER H WITH DOT ABOVE
+01E24	LATIN CAPITAL LETTER H WITH DOT BELOW
+01E25	LATIN SMALL LETTER H WITH DOT BELOW
+01E26	LATIN CAPITAL LETTER H WITH DIAERESIS
+01E27	LATIN SMALL LETTER H WITH DIAERESIS
+01E28	LATIN CAPITAL LETTER H WITH CEDILLA
+01E29	LATIN SMALL LETTER H WITH CEDILLA
+01E2A	LATIN CAPITAL LETTER H WITH BREVE BELOW
+01E2B	LATIN SMALL LETTER H WITH BREVE BELOW
+01E2C	LATIN CAPITAL LETTER I WITH TILDE BELOW
+01E2D	LATIN SMALL LETTER I WITH TILDE BELOW
+01E2E	LATIN CAPITAL LETTER I WITH DIAERESIS AND ACUTE
+01E2F	LATIN SMALL LETTER I WITH DIAERESIS AND ACUTE
+01E30	LATIN CAPITAL LETTER K WITH ACUTE
+01E31	LATIN SMALL LETTER K WITH ACUTE
+01E32	LATIN CAPITAL LETTER K WITH DOT BELOW
+01E33	LATIN SMALL LETTER K WITH DOT BELOW
+01E34	LATIN CAPITAL LETTER K WITH LINE BELOW
+01E35	LATIN SMALL LETTER K WITH LINE BELOW
+01E36	LATIN CAPITAL LETTER L WITH DOT BELOW
+01E37	LATIN SMALL LETTER L WITH DOT BELOW
+01E38	LATIN CAPITAL LETTER L WITH DOT BELOW AND MACRON
+01E39	LATIN SMALL LETTER L WITH DOT BELOW AND MACRON
+01E3A	LATIN CAPITAL LETTER L WITH LINE BELOW
+01E3B	LATIN SMALL LETTER L WITH LINE BELOW
+01E3C	LATIN CAPITAL LETTER L WITH CIRCUMFLEX BELOW
+01E3D	LATIN SMALL LETTER L WITH CIRCUMFLEX BELOW
+01E3E	LATIN CAPITAL LETTER M WITH ACUTE
+01E3F	LATIN SMALL LETTER M WITH ACUTE
+01E40	LATIN CAPITAL LETTER M WITH DOT ABOVE
+01E41	LATIN SMALL LETTER M WITH DOT ABOVE
+01E42	LATIN CAPITAL LETTER M WITH DOT BELOW
+01E43	LATIN SMALL LETTER M WITH DOT BELOW
+01E44	LATIN CAPITAL LETTER N WITH DOT ABOVE
+01E45	LATIN SMALL LETTER N WITH DOT ABOVE
+01E46	LATIN CAPITAL LETTER N WITH DOT BELOW
+01E47	LATIN SMALL LETTER N WITH DOT BELOW
+01E48	LATIN CAPITAL LETTER N WITH LINE BELOW
+01E49	LATIN SMALL LETTER N WITH LINE BELOW
+01E4A	LATIN CAPITAL LETTER N WITH CIRCUMFLEX BELOW
+01E4B	LATIN SMALL LETTER N WITH CIRCUMFLEX BELOW
+01E4C	LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
+01E4D	LATIN SMALL LETTER O WITH TILDE AND ACUTE
+01E4E	LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
+01E4F	LATIN SMALL LETTER O WITH TILDE AND DIAERESIS
+01E50	LATIN CAPITAL LETTER O WITH MACRON AND GRAVE
+01E51	LATIN SMALL LETTER O WITH MACRON AND GRAVE
+01E52	LATIN CAPITAL LETTER O WITH MACRON AND ACUTE
+01E53	LATIN SMALL LETTER O WITH MACRON AND ACUTE
+01E54	LATIN CAPITAL LETTER P WITH ACUTE
+01E55	LATIN SMALL LETTER P WITH ACUTE
+01E56	LATIN CAPITAL LETTER P WITH DOT ABOVE
+01E57	LATIN SMALL LETTER P WITH DOT ABOVE
+01E58	LATIN CAPITAL LETTER R WITH DOT ABOVE
+01E59	LATIN SMALL LETTER R WITH DOT ABOVE
+01E5A	LATIN CAPITAL LETTER R WITH DOT BELOW
+01E5B	LATIN SMALL LETTER R WITH DOT BELOW
+01E5C	LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON
+01E5D	LATIN SMALL LETTER R WITH DOT BELOW AND MACRON
+01E5E	LATIN CAPITAL LETTER R WITH LINE BELOW
+01E5F	LATIN SMALL LETTER R WITH LINE BELOW
+01E60	LATIN CAPITAL LETTER S WITH DOT ABOVE
+01E61	LATIN SMALL LETTER S WITH DOT ABOVE
+01E62	LATIN CAPITAL LETTER S WITH DOT BELOW
+01E63	LATIN SMALL LETTER S WITH DOT BELOW
+01E64	LATIN CAPITAL LETTER S WITH ACUTE AND DOT ABOVE
+01E65	LATIN SMALL LETTER S WITH ACUTE AND DOT ABOVE
+01E66	LATIN CAPITAL LETTER S WITH CARON AND DOT ABOVE
+01E67	LATIN SMALL LETTER S WITH CARON AND DOT ABOVE
+01E68	LATIN CAPITAL LETTER S WITH DOT BELOW AND DOT ABOVE
+01E69	LATIN SMALL LETTER S WITH DOT BELOW AND DOT ABOVE
+01E6A	LATIN CAPITAL LETTER T WITH DOT ABOVE
+01E6B	LATIN SMALL LETTER T WITH DOT ABOVE
+01E6C	LATIN CAPITAL LETTER T WITH DOT BELOW
+01E6D	LATIN SMALL LETTER T WITH DOT BELOW
+01E6E	LATIN CAPITAL LETTER T WITH LINE BELOW
+01E6F	LATIN SMALL LETTER T WITH LINE BELOW
+01E70	LATIN CAPITAL LETTER T WITH CIRCUMFLEX BELOW
+01E71	LATIN SMALL LETTER T WITH CIRCUMFLEX BELOW
+01E72	LATIN CAPITAL LETTER U WITH DIAERESIS BELOW
+01E73	LATIN SMALL LETTER U WITH DIAERESIS BELOW
+01E74	LATIN CAPITAL LETTER U WITH TILDE BELOW
+01E75	LATIN SMALL LETTER U WITH TILDE BELOW
+01E76	LATIN CAPITAL LETTER U WITH CIRCUMFLEX BELOW
+01E77	LATIN SMALL LETTER U WITH CIRCUMFLEX BELOW
+01E78	LATIN CAPITAL LETTER U WITH TILDE AND ACUTE
+01E79	LATIN SMALL LETTER U WITH TILDE AND ACUTE
+01E7A	LATIN CAPITAL LETTER U WITH MACRON AND DIAERESIS
+01E7B	LATIN SMALL LETTER U WITH MACRON AND DIAERESIS
+01E7C	LATIN CAPITAL LETTER V WITH TILDE
+01E7D	LATIN SMALL LETTER V WITH TILDE
+01E7E	LATIN CAPITAL LETTER V WITH DOT BELOW
+01E7F	LATIN SMALL LETTER V WITH DOT BELOW
+01E80	LATIN CAPITAL LETTER W WITH GRAVE
+01E81	LATIN SMALL LETTER W WITH GRAVE
+01E82	LATIN CAPITAL LETTER W WITH ACUTE
+01E83	LATIN SMALL LETTER W WITH ACUTE
+01E84	LATIN CAPITAL LETTER W WITH DIAERESIS
+01E85	LATIN SMALL LETTER W WITH DIAERESIS
+01E86	LATIN CAPITAL LETTER W WITH DOT ABOVE
+01E87	LATIN SMALL LETTER W WITH DOT ABOVE
+01E88	LATIN CAPITAL LETTER W WITH DOT BELOW
+01E89	LATIN SMALL LETTER W WITH DOT BELOW
+01E8A	LATIN CAPITAL LETTER X WITH DOT ABOVE
+01E8B	LATIN SMALL LETTER X WITH DOT ABOVE
+01E8C	LATIN CAPITAL LETTER X WITH DIAERESIS
+01E8D	LATIN SMALL LETTER X WITH DIAERESIS
+01E8E	LATIN CAPITAL LETTER Y WITH DOT ABOVE
+01E8F	LATIN SMALL LETTER Y WITH DOT ABOVE
+01E90	LATIN CAPITAL LETTER Z WITH CIRCUMFLEX
+01E91	LATIN SMALL LETTER Z WITH CIRCUMFLEX
+01E92	LATIN CAPITAL LETTER Z WITH DOT BELOW
+01E93	LATIN SMALL LETTER Z WITH DOT BELOW
+01E94	LATIN CAPITAL LETTER Z WITH LINE BELOW
+01E95	LATIN SMALL LETTER Z WITH LINE BELOW
+01E96	LATIN SMALL LETTER H WITH LINE BELOW
+01E97	LATIN SMALL LETTER T WITH DIAERESIS
+01E98	LATIN SMALL LETTER W WITH RING ABOVE
+01E99	LATIN SMALL LETTER Y WITH RING ABOVE
+01E9A	LATIN SMALL LETTER A WITH RIGHT HALF RING
+01E9B	LATIN SMALL LETTER LONG S WITH DOT ABOVE
+01E9C	LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE
+01E9D	LATIN SMALL LETTER LONG S WITH HIGH STROKE
+01E9E	LATIN CAPITAL LETTER SHARP S
+01E9F	LATIN SMALL LETTER DELTA
+01EA0	LATIN CAPITAL LETTER A WITH DOT BELOW
+01EA1	LATIN SMALL LETTER A WITH DOT BELOW
+01EA2	LATIN CAPITAL LETTER A WITH HOOK ABOVE
+01EA3	LATIN SMALL LETTER A WITH HOOK ABOVE
+01EA4	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
+01EA5	LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
+01EA6	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+01EA7	LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
+01EA8	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+01EA9	LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+01EAA	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
+01EAB	LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
+01EAC	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+01EAD	LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+01EAE	LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
+01EAF	LATIN SMALL LETTER A WITH BREVE AND ACUTE
+01EB0	LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
+01EB1	LATIN SMALL LETTER A WITH BREVE AND GRAVE
+01EB2	LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
+01EB3	LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
+01EB4	LATIN CAPITAL LETTER A WITH BREVE AND TILDE
+01EB5	LATIN SMALL LETTER A WITH BREVE AND TILDE
+01EB6	LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
+01EB7	LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
+01EB8	LATIN CAPITAL LETTER E WITH DOT BELOW
+01EB9	LATIN SMALL LETTER E WITH DOT BELOW
+01EBA	LATIN CAPITAL LETTER E WITH HOOK ABOVE
+01EBB	LATIN SMALL LETTER E WITH HOOK ABOVE
+01EBC	LATIN CAPITAL LETTER E WITH TILDE
+01EBD	LATIN SMALL LETTER E WITH TILDE
+01EBE	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+01EBF	LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+01EC0	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+01EC1	LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+01EC2	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+01EC3	LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+01EC4	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+01EC5	LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+01EC6	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+01EC7	LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+01EC8	LATIN CAPITAL LETTER I WITH HOOK ABOVE
+01EC9	LATIN SMALL LETTER I WITH HOOK ABOVE
+01ECA	LATIN CAPITAL LETTER I WITH DOT BELOW
+01ECB	LATIN SMALL LETTER I WITH DOT BELOW
+01ECC	LATIN CAPITAL LETTER O WITH DOT BELOW
+01ECD	LATIN SMALL LETTER O WITH DOT BELOW
+01ECE	LATIN CAPITAL LETTER O WITH HOOK ABOVE
+01ECF	LATIN SMALL LETTER O WITH HOOK ABOVE
+01ED0	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+01ED1	LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+01ED2	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+01ED3	LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+01ED4	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+01ED5	LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+01ED6	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+01ED7	LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+01ED8	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01ED9	LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01EDA	LATIN CAPITAL LETTER O WITH HORN AND ACUTE
+01EDB	LATIN SMALL LETTER O WITH HORN AND ACUTE
+01EDC	LATIN CAPITAL LETTER O WITH HORN AND GRAVE
+01EDD	LATIN SMALL LETTER O WITH HORN AND GRAVE
+01EDE	LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
+01EDF	LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
+01EE0	LATIN CAPITAL LETTER O WITH HORN AND TILDE
+01EE1	LATIN SMALL LETTER O WITH HORN AND TILDE
+01EE2	LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+01EE3	LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+01EE4	LATIN CAPITAL LETTER U WITH DOT BELOW
+01EE5	LATIN SMALL LETTER U WITH DOT BELOW
+01EE6	LATIN CAPITAL LETTER U WITH HOOK ABOVE
+01EE7	LATIN SMALL LETTER U WITH HOOK ABOVE
+01EE8	LATIN CAPITAL LETTER U WITH HORN AND ACUTE
+01EE9	LATIN SMALL LETTER U WITH HORN AND ACUTE
+01EEA	LATIN CAPITAL LETTER U WITH HORN AND GRAVE
+01EEB	LATIN SMALL LETTER U WITH HORN AND GRAVE
+01EEC	LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
+01EED	LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
+01EEE	LATIN CAPITAL LETTER U WITH HORN AND TILDE
+01EEF	LATIN SMALL LETTER U WITH HORN AND TILDE
+01EF0	LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
+01EF1	LATIN SMALL LETTER U WITH HORN AND DOT BELOW
+01EF2	LATIN CAPITAL LETTER Y WITH GRAVE
+01EF3	LATIN SMALL LETTER Y WITH GRAVE
+01EF4	LATIN CAPITAL LETTER Y WITH DOT BELOW
+01EF5	LATIN SMALL LETTER Y WITH DOT BELOW
+01EF6	LATIN CAPITAL LETTER Y WITH HOOK ABOVE
+01EF7	LATIN SMALL LETTER Y WITH HOOK ABOVE
+01EF8	LATIN CAPITAL LETTER Y WITH TILDE
+01EF9	LATIN SMALL LETTER Y WITH TILDE
+01EFA	LATIN CAPITAL LETTER MIDDLE-WELSH LL
+01EFB	LATIN SMALL LETTER MIDDLE-WELSH LL
+01EFC	LATIN CAPITAL LETTER MIDDLE-WELSH V
+01EFD	LATIN SMALL LETTER MIDDLE-WELSH V
+01EFE	LATIN CAPITAL LETTER Y WITH LOOP
+01EFF	LATIN SMALL LETTER Y WITH LOOP
+01F00	GREEK SMALL LETTER ALPHA WITH PSILI
+01F01	GREEK SMALL LETTER ALPHA WITH DASIA
+01F02	GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA
+01F03	GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA
+01F04	GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA
+01F05	GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA
+01F06	GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI
+01F07	GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI
+01F08	GREEK CAPITAL LETTER ALPHA WITH PSILI
+01F09	GREEK CAPITAL LETTER ALPHA WITH DASIA
+01F0A	GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA
+01F0B	GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA
+01F0C	GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA
+01F0D	GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
+01F0E	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI
+01F0F	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI
+01F10	GREEK SMALL LETTER EPSILON WITH PSILI
+01F11	GREEK SMALL LETTER EPSILON WITH DASIA
+01F12	GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA
+01F13	GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA
+01F14	GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA
+01F15	GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA
+01F18	GREEK CAPITAL LETTER EPSILON WITH PSILI
+01F19	GREEK CAPITAL LETTER EPSILON WITH DASIA
+01F1A	GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA
+01F1B	GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA
+01F1C	GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA
+01F1D	GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA
+01F20	GREEK SMALL LETTER ETA WITH PSILI
+01F21	GREEK SMALL LETTER ETA WITH DASIA
+01F22	GREEK SMALL LETTER ETA WITH PSILI AND VARIA
+01F23	GREEK SMALL LETTER ETA WITH DASIA AND VARIA
+01F24	GREEK SMALL LETTER ETA WITH PSILI AND OXIA
+01F25	GREEK SMALL LETTER ETA WITH DASIA AND OXIA
+01F26	GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI
+01F27	GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI
+01F28	GREEK CAPITAL LETTER ETA WITH PSILI
+01F29	GREEK CAPITAL LETTER ETA WITH DASIA
+01F2A	GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA
+01F2B	GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA
+01F2C	GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA
+01F2D	GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA
+01F2E	GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI
+01F2F	GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI
+01F30	GREEK SMALL LETTER IOTA WITH PSILI
+01F31	GREEK SMALL LETTER IOTA WITH DASIA
+01F32	GREEK SMALL LETTER IOTA WITH PSILI AND VARIA
+01F33	GREEK SMALL LETTER IOTA WITH DASIA AND VARIA
+01F34	GREEK SMALL LETTER IOTA WITH PSILI AND OXIA
+01F35	GREEK SMALL LETTER IOTA WITH DASIA AND OXIA
+01F36	GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI
+01F37	GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI
+01F38	GREEK CAPITAL LETTER IOTA WITH PSILI
+01F39	GREEK CAPITAL LETTER IOTA WITH DASIA
+01F3A	GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA
+01F3B	GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA
+01F3C	GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA
+01F3D	GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA
+01F3E	GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI
+01F3F	GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI
+01F40	GREEK SMALL LETTER OMICRON WITH PSILI
+01F41	GREEK SMALL LETTER OMICRON WITH DASIA
+01F42	GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA
+01F43	GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA
+01F44	GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA
+01F45	GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA
+01F48	GREEK CAPITAL LETTER OMICRON WITH PSILI
+01F49	GREEK CAPITAL LETTER OMICRON WITH DASIA
+01F4A	GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA
+01F4B	GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA
+01F4C	GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA
+01F4D	GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA
+01F50	GREEK SMALL LETTER UPSILON WITH PSILI
+01F51	GREEK SMALL LETTER UPSILON WITH DASIA
+01F52	GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+01F53	GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA
+01F54	GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+01F55	GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA
+01F56	GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+01F57	GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI
+01F59	GREEK CAPITAL LETTER UPSILON WITH DASIA
+01F5B	GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA
+01F5D	GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA
+01F5F	GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI
+01F60	GREEK SMALL LETTER OMEGA WITH PSILI
+01F61	GREEK SMALL LETTER OMEGA WITH DASIA
+01F62	GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA
+01F63	GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA
+01F64	GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA
+01F65	GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA
+01F66	GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI
+01F67	GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI
+01F68	GREEK CAPITAL LETTER OMEGA WITH PSILI
+01F69	GREEK CAPITAL LETTER OMEGA WITH DASIA
+01F6A	GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA
+01F6B	GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA
+01F6C	GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA
+01F6D	GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA
+01F6E	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI
+01F6F	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI
+01F70	GREEK SMALL LETTER ALPHA WITH VARIA
+01F71	GREEK SMALL LETTER ALPHA WITH OXIA
+01F72	GREEK SMALL LETTER EPSILON WITH VARIA
+01F73	GREEK SMALL LETTER EPSILON WITH OXIA
+01F74	GREEK SMALL LETTER ETA WITH VARIA
+01F75	GREEK SMALL LETTER ETA WITH OXIA
+01F76	GREEK SMALL LETTER IOTA WITH VARIA
+01F77	GREEK SMALL LETTER IOTA WITH OXIA
+01F78	GREEK SMALL LETTER OMICRON WITH VARIA
+01F79	GREEK SMALL LETTER OMICRON WITH OXIA
+01F7A	GREEK SMALL LETTER UPSILON WITH VARIA
+01F7B	GREEK SMALL LETTER UPSILON WITH OXIA
+01F7C	GREEK SMALL LETTER OMEGA WITH VARIA
+01F7D	GREEK SMALL LETTER OMEGA WITH OXIA
+01F80	GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+01F81	GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+01F82	GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01F83	GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01F84	GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01F85	GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01F86	GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01F87	GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01F88	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+01F89	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+01F8A	GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01F8B	GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01F8C	GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01F8D	GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01F8E	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01F8F	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01F90	GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+01F91	GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+01F92	GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01F93	GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01F94	GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01F95	GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01F96	GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01F97	GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01F98	GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+01F99	GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+01F9A	GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01F9B	GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01F9C	GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01F9D	GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01F9E	GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01F9F	GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01FA0	GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+01FA1	GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+01FA2	GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01FA3	GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01FA4	GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01FA5	GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01FA6	GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01FA7	GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01FA8	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+01FA9	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+01FAA	GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01FAB	GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01FAC	GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01FAD	GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01FAE	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01FAF	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01FB0	GREEK SMALL LETTER ALPHA WITH VRACHY
+01FB1	GREEK SMALL LETTER ALPHA WITH MACRON
+01FB2	GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+01FB3	GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+01FB4	GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+01FB6	GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+01FB7	GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FB8	GREEK CAPITAL LETTER ALPHA WITH VRACHY
+01FB9	GREEK CAPITAL LETTER ALPHA WITH MACRON
+01FBA	GREEK CAPITAL LETTER ALPHA WITH VARIA
+01FBB	GREEK CAPITAL LETTER ALPHA WITH OXIA
+01FBC	GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+01FBD	GREEK KORONIS
+01FBE	GREEK PROSGEGRAMMENI
+01FBF	GREEK PSILI
+01FC0	GREEK PERISPOMENI
+01FC1	GREEK DIALYTIKA AND PERISPOMENI
+01FC2	GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+01FC3	GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+01FC4	GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+01FC6	GREEK SMALL LETTER ETA WITH PERISPOMENI
+01FC7	GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FC8	GREEK CAPITAL LETTER EPSILON WITH VARIA
+01FC9	GREEK CAPITAL LETTER EPSILON WITH OXIA
+01FCA	GREEK CAPITAL LETTER ETA WITH VARIA
+01FCB	GREEK CAPITAL LETTER ETA WITH OXIA
+01FCC	GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+01FCD	GREEK PSILI AND VARIA
+01FCE	GREEK PSILI AND OXIA
+01FCF	GREEK PSILI AND PERISPOMENI
+01FD0	GREEK SMALL LETTER IOTA WITH VRACHY
+01FD1	GREEK SMALL LETTER IOTA WITH MACRON
+01FD2	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
+01FD3	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
+01FD6	GREEK SMALL LETTER IOTA WITH PERISPOMENI
+01FD7	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
+01FD8	GREEK CAPITAL LETTER IOTA WITH VRACHY
+01FD9	GREEK CAPITAL LETTER IOTA WITH MACRON
+01FDA	GREEK CAPITAL LETTER IOTA WITH VARIA
+01FDB	GREEK CAPITAL LETTER IOTA WITH OXIA
+01FDD	GREEK DASIA AND VARIA
+01FDE	GREEK DASIA AND OXIA
+01FDF	GREEK DASIA AND PERISPOMENI
+01FE0	GREEK SMALL LETTER UPSILON WITH VRACHY
+01FE1	GREEK SMALL LETTER UPSILON WITH MACRON
+01FE2	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
+01FE3	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
+01FE4	GREEK SMALL LETTER RHO WITH PSILI
+01FE5	GREEK SMALL LETTER RHO WITH DASIA
+01FE6	GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+01FE7	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
+01FE8	GREEK CAPITAL LETTER UPSILON WITH VRACHY
+01FE9	GREEK CAPITAL LETTER UPSILON WITH MACRON
+01FEA	GREEK CAPITAL LETTER UPSILON WITH VARIA
+01FEB	GREEK CAPITAL LETTER UPSILON WITH OXIA
+01FEC	GREEK CAPITAL LETTER RHO WITH DASIA
+01FED	GREEK DIALYTIKA AND VARIA
+01FEE	GREEK DIALYTIKA AND OXIA
+01FEF	GREEK VARIA
+01FF2	GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+01FF3	GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+01FF4	GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+01FF6	GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+01FF7	GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FF8	GREEK CAPITAL LETTER OMICRON WITH VARIA
+01FF9	GREEK CAPITAL LETTER OMICRON WITH OXIA
+01FFA	GREEK CAPITAL LETTER OMEGA WITH VARIA
+01FFB	GREEK CAPITAL LETTER OMEGA WITH OXIA
+01FFC	GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+01FFD	GREEK OXIA
+01FFE	GREEK DASIA
+02000	EN QUAD
+02001	EM QUAD
+02002	EN SPACE
+02003	EM SPACE
+02004	THREE-PER-EM SPACE
+02005	FOUR-PER-EM SPACE
+02006	SIX-PER-EM SPACE
+02007	FIGURE SPACE
+02008	PUNCTUATION SPACE
+02009	THIN SPACE
+0200A	HAIR SPACE
+0200B	ZERO WIDTH SPACE
+0200B	ZWSP
+0200C	ZERO WIDTH NON-JOINER
+0200C	ZWNJ
+0200D	ZERO WIDTH JOINER
+0200D	ZWJ
+0200E	LEFT-TO-RIGHT MARK
+0200E	LRM
+0200F	RIGHT-TO-LEFT MARK
+0200F	RLM
+02010	HYPHEN
+02011	NON-BREAKING HYPHEN
+02012	FIGURE DASH
+02013	EN DASH
+02014	EM DASH
+02015	HORIZONTAL BAR
+02016	DOUBLE VERTICAL LINE
+02017	DOUBLE LOW LINE
+02018	LEFT SINGLE QUOTATION MARK
+02019	RIGHT SINGLE QUOTATION MARK
+0201A	SINGLE LOW-9 QUOTATION MARK
+0201B	SINGLE HIGH-REVERSED-9 QUOTATION MARK
+0201C	LEFT DOUBLE QUOTATION MARK
+0201D	RIGHT DOUBLE QUOTATION MARK
+0201E	DOUBLE LOW-9 QUOTATION MARK
+0201F	DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+02020	DAGGER
+02021	DOUBLE DAGGER
+02022	BULLET
+02023	TRIANGULAR BULLET
+02024	ONE DOT LEADER
+02025	TWO DOT LEADER
+02026	HORIZONTAL ELLIPSIS
+02027	HYPHENATION POINT
+02028	LINE SEPARATOR
+02029	PARAGRAPH SEPARATOR
+0202A	LEFT-TO-RIGHT EMBEDDING
+0202A	LRE
+0202B	RIGHT-TO-LEFT EMBEDDING
+0202B	RLE
+0202C	POP DIRECTIONAL FORMATTING
+0202C	PDF
+0202D	LEFT-TO-RIGHT OVERRIDE
+0202D	LRO
+0202E	RIGHT-TO-LEFT OVERRIDE
+0202E	RLO
+0202F	NARROW NO-BREAK SPACE
+0202F	NNBSP
+02030	PER MILLE SIGN
+02031	PER TEN THOUSAND SIGN
+02032	PRIME
+02033	DOUBLE PRIME
+02034	TRIPLE PRIME
+02035	REVERSED PRIME
+02036	REVERSED DOUBLE PRIME
+02037	REVERSED TRIPLE PRIME
+02038	CARET
+02039	SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0203A	SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0203B	REFERENCE MARK
+0203C	DOUBLE EXCLAMATION MARK
+0203D	INTERROBANG
+0203E	OVERLINE
+0203F	UNDERTIE
+02040	CHARACTER TIE
+02041	CARET INSERTION POINT
+02042	ASTERISM
+02043	HYPHEN BULLET
+02044	FRACTION SLASH
+02045	LEFT SQUARE BRACKET WITH QUILL
+02046	RIGHT SQUARE BRACKET WITH QUILL
+02047	DOUBLE QUESTION MARK
+02048	QUESTION EXCLAMATION MARK
+02049	EXCLAMATION QUESTION MARK
+0204A	TIRONIAN SIGN ET
+0204B	REVERSED PILCROW SIGN
+0204C	BLACK LEFTWARDS BULLET
+0204D	BLACK RIGHTWARDS BULLET
+0204E	LOW ASTERISK
+0204F	REVERSED SEMICOLON
+02050	CLOSE UP
+02051	TWO ASTERISKS ALIGNED VERTICALLY
+02052	COMMERCIAL MINUS SIGN
+02053	SWUNG DASH
+02054	INVERTED UNDERTIE
+02055	FLOWER PUNCTUATION MARK
+02056	THREE DOT PUNCTUATION
+02057	QUADRUPLE PRIME
+02058	FOUR DOT PUNCTUATION
+02059	FIVE DOT PUNCTUATION
+0205A	TWO DOT PUNCTUATION
+0205B	FOUR DOT MARK
+0205C	DOTTED CROSS
+0205D	TRICOLON
+0205E	VERTICAL FOUR DOTS
+0205F	MEDIUM MATHEMATICAL SPACE
+0205F	MMSP
+02060	WORD JOINER
+02060	WJ
+02061	FUNCTION APPLICATION
+02062	INVISIBLE TIMES
+02063	INVISIBLE SEPARATOR
+02064	INVISIBLE PLUS
+02066	LEFT-TO-RIGHT ISOLATE
+02066	LRI
+02067	RIGHT-TO-LEFT ISOLATE
+02067	RLI
+02068	FIRST STRONG ISOLATE
+02068	FSI
+02069	POP DIRECTIONAL ISOLATE
+02069	PDI
+0206A	INHIBIT SYMMETRIC SWAPPING
+0206B	ACTIVATE SYMMETRIC SWAPPING
+0206C	INHIBIT ARABIC FORM SHAPING
+0206D	ACTIVATE ARABIC FORM SHAPING
+0206E	NATIONAL DIGIT SHAPES
+0206F	NOMINAL DIGIT SHAPES
+02070	SUPERSCRIPT ZERO
+02071	SUPERSCRIPT LATIN SMALL LETTER I
+02074	SUPERSCRIPT FOUR
+02075	SUPERSCRIPT FIVE
+02076	SUPERSCRIPT SIX
+02077	SUPERSCRIPT SEVEN
+02078	SUPERSCRIPT EIGHT
+02079	SUPERSCRIPT NINE
+0207A	SUPERSCRIPT PLUS SIGN
+0207B	SUPERSCRIPT MINUS
+0207C	SUPERSCRIPT EQUALS SIGN
+0207D	SUPERSCRIPT LEFT PARENTHESIS
+0207E	SUPERSCRIPT RIGHT PARENTHESIS
+0207F	SUPERSCRIPT LATIN SMALL LETTER N
+02080	SUBSCRIPT ZERO
+02081	SUBSCRIPT ONE
+02082	SUBSCRIPT TWO
+02083	SUBSCRIPT THREE
+02084	SUBSCRIPT FOUR
+02085	SUBSCRIPT FIVE
+02086	SUBSCRIPT SIX
+02087	SUBSCRIPT SEVEN
+02088	SUBSCRIPT EIGHT
+02089	SUBSCRIPT NINE
+0208A	SUBSCRIPT PLUS SIGN
+0208B	SUBSCRIPT MINUS
+0208C	SUBSCRIPT EQUALS SIGN
+0208D	SUBSCRIPT LEFT PARENTHESIS
+0208E	SUBSCRIPT RIGHT PARENTHESIS
+02090	LATIN SUBSCRIPT SMALL LETTER A
+02091	LATIN SUBSCRIPT SMALL LETTER E
+02092	LATIN SUBSCRIPT SMALL LETTER O
+02093	LATIN SUBSCRIPT SMALL LETTER X
+02094	LATIN SUBSCRIPT SMALL LETTER SCHWA
+02095	LATIN SUBSCRIPT SMALL LETTER H
+02096	LATIN SUBSCRIPT SMALL LETTER K
+02097	LATIN SUBSCRIPT SMALL LETTER L
+02098	LATIN SUBSCRIPT SMALL LETTER M
+02099	LATIN SUBSCRIPT SMALL LETTER N
+0209A	LATIN SUBSCRIPT SMALL LETTER P
+0209B	LATIN SUBSCRIPT SMALL LETTER S
+0209C	LATIN SUBSCRIPT SMALL LETTER T
+020A0	EURO-CURRENCY SIGN
+020A1	COLON SIGN
+020A2	CRUZEIRO SIGN
+020A3	FRENCH FRANC SIGN
+020A4	LIRA SIGN
+020A5	MILL SIGN
+020A6	NAIRA SIGN
+020A7	PESETA SIGN
+020A8	RUPEE SIGN
+020A9	WON SIGN
+020AA	NEW SHEQEL SIGN
+020AB	DONG SIGN
+020AC	EURO SIGN
+020AD	KIP SIGN
+020AE	TUGRIK SIGN
+020AF	DRACHMA SIGN
+020B0	GERMAN PENNY SIGN
+020B1	PESO SIGN
+020B2	GUARANI SIGN
+020B3	AUSTRAL SIGN
+020B4	HRYVNIA SIGN
+020B5	CEDI SIGN
+020B6	LIVRE TOURNOIS SIGN
+020B7	SPESMILO SIGN
+020B8	TENGE SIGN
+020B9	INDIAN RUPEE SIGN
+020BA	TURKISH LIRA SIGN
+020BB	NORDIC MARK SIGN
+020BC	MANAT SIGN
+020BD	RUBLE SIGN
+020BE	LARI SIGN
+020BF	BITCOIN SIGN
+020D0	COMBINING LEFT HARPOON ABOVE
+020D1	COMBINING RIGHT HARPOON ABOVE
+020D2	COMBINING LONG VERTICAL LINE OVERLAY
+020D3	COMBINING SHORT VERTICAL LINE OVERLAY
+020D4	COMBINING ANTICLOCKWISE ARROW ABOVE
+020D5	COMBINING CLOCKWISE ARROW ABOVE
+020D6	COMBINING LEFT ARROW ABOVE
+020D7	COMBINING RIGHT ARROW ABOVE
+020D8	COMBINING RING OVERLAY
+020D9	COMBINING CLOCKWISE RING OVERLAY
+020DA	COMBINING ANTICLOCKWISE RING OVERLAY
+020DB	COMBINING THREE DOTS ABOVE
+020DC	COMBINING FOUR DOTS ABOVE
+020DD	COMBINING ENCLOSING CIRCLE
+020DE	COMBINING ENCLOSING SQUARE
+020DF	COMBINING ENCLOSING DIAMOND
+020E0	COMBINING ENCLOSING CIRCLE BACKSLASH
+020E1	COMBINING LEFT RIGHT ARROW ABOVE
+020E2	COMBINING ENCLOSING SCREEN
+020E3	COMBINING ENCLOSING KEYCAP
+020E4	COMBINING ENCLOSING UPWARD POINTING TRIANGLE
+020E5	COMBINING REVERSE SOLIDUS OVERLAY
+020E6	COMBINING DOUBLE VERTICAL STROKE OVERLAY
+020E7	COMBINING ANNUITY SYMBOL
+020E8	COMBINING TRIPLE UNDERDOT
+020E9	COMBINING WIDE BRIDGE ABOVE
+020EA	COMBINING LEFTWARDS ARROW OVERLAY
+020EB	COMBINING LONG DOUBLE SOLIDUS OVERLAY
+020EC	COMBINING RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+020ED	COMBINING LEFTWARDS HARPOON WITH BARB DOWNWARDS
+020EE	COMBINING LEFT ARROW BELOW
+020EF	COMBINING RIGHT ARROW BELOW
+020F0	COMBINING ASTERISK ABOVE
+02100	ACCOUNT OF
+02101	ADDRESSED TO THE SUBJECT
+02102	DOUBLE-STRUCK CAPITAL C
+02103	DEGREE CELSIUS
+02104	CENTRE LINE SYMBOL
+02105	CARE OF
+02106	CADA UNA
+02107	EULER CONSTANT
+02108	SCRUPLE
+02109	DEGREE FAHRENHEIT
+0210A	SCRIPT SMALL G
+0210B	SCRIPT CAPITAL H
+0210C	BLACK-LETTER CAPITAL H
+0210D	DOUBLE-STRUCK CAPITAL H
+0210E	PLANCK CONSTANT
+0210F	PLANCK CONSTANT OVER TWO PI
+02110	SCRIPT CAPITAL I
+02111	BLACK-LETTER CAPITAL I
+02112	SCRIPT CAPITAL L
+02113	SCRIPT SMALL L
+02114	L B BAR SYMBOL
+02115	DOUBLE-STRUCK CAPITAL N
+02116	NUMERO SIGN
+02117	SOUND RECORDING COPYRIGHT
+02118	WEIERSTRASS ELLIPTIC FUNCTION
+02118	SCRIPT CAPITAL P
+02119	DOUBLE-STRUCK CAPITAL P
+0211A	DOUBLE-STRUCK CAPITAL Q
+0211B	SCRIPT CAPITAL R
+0211C	BLACK-LETTER CAPITAL R
+0211D	DOUBLE-STRUCK CAPITAL R
+0211E	PRESCRIPTION TAKE
+0211F	RESPONSE
+02120	SERVICE MARK
+02121	TELEPHONE SIGN
+02122	TRADE MARK SIGN
+02123	VERSICLE
+02124	DOUBLE-STRUCK CAPITAL Z
+02125	OUNCE SIGN
+02126	OHM SIGN
+02127	INVERTED OHM SIGN
+02128	BLACK-LETTER CAPITAL Z
+02129	TURNED GREEK SMALL LETTER IOTA
+0212A	KELVIN SIGN
+0212B	ANGSTROM SIGN
+0212C	SCRIPT CAPITAL B
+0212D	BLACK-LETTER CAPITAL C
+0212E	ESTIMATED SYMBOL
+0212F	SCRIPT SMALL E
+02130	SCRIPT CAPITAL E
+02131	SCRIPT CAPITAL F
+02132	TURNED CAPITAL F
+02133	SCRIPT CAPITAL M
+02134	SCRIPT SMALL O
+02135	ALEF SYMBOL
+02136	BET SYMBOL
+02137	GIMEL SYMBOL
+02138	DALET SYMBOL
+02139	INFORMATION SOURCE
+0213A	ROTATED CAPITAL Q
+0213B	FACSIMILE SIGN
+0213C	DOUBLE-STRUCK SMALL PI
+0213D	DOUBLE-STRUCK SMALL GAMMA
+0213E	DOUBLE-STRUCK CAPITAL GAMMA
+0213F	DOUBLE-STRUCK CAPITAL PI
+02140	DOUBLE-STRUCK N-ARY SUMMATION
+02141	TURNED SANS-SERIF CAPITAL G
+02142	TURNED SANS-SERIF CAPITAL L
+02143	REVERSED SANS-SERIF CAPITAL L
+02144	TURNED SANS-SERIF CAPITAL Y
+02145	DOUBLE-STRUCK ITALIC CAPITAL D
+02146	DOUBLE-STRUCK ITALIC SMALL D
+02147	DOUBLE-STRUCK ITALIC SMALL E
+02148	DOUBLE-STRUCK ITALIC SMALL I
+02149	DOUBLE-STRUCK ITALIC SMALL J
+0214A	PROPERTY LINE
+0214B	TURNED AMPERSAND
+0214C	PER SIGN
+0214D	AKTIESELSKAB
+0214E	TURNED SMALL F
+0214F	SYMBOL FOR SAMARITAN SOURCE
+02150	VULGAR FRACTION ONE SEVENTH
+02151	VULGAR FRACTION ONE NINTH
+02152	VULGAR FRACTION ONE TENTH
+02153	VULGAR FRACTION ONE THIRD
+02154	VULGAR FRACTION TWO THIRDS
+02155	VULGAR FRACTION ONE FIFTH
+02156	VULGAR FRACTION TWO FIFTHS
+02157	VULGAR FRACTION THREE FIFTHS
+02158	VULGAR FRACTION FOUR FIFTHS
+02159	VULGAR FRACTION ONE SIXTH
+0215A	VULGAR FRACTION FIVE SIXTHS
+0215B	VULGAR FRACTION ONE EIGHTH
+0215C	VULGAR FRACTION THREE EIGHTHS
+0215D	VULGAR FRACTION FIVE EIGHTHS
+0215E	VULGAR FRACTION SEVEN EIGHTHS
+0215F	FRACTION NUMERATOR ONE
+02160	ROMAN NUMERAL ONE
+02161	ROMAN NUMERAL TWO
+02162	ROMAN NUMERAL THREE
+02163	ROMAN NUMERAL FOUR
+02164	ROMAN NUMERAL FIVE
+02165	ROMAN NUMERAL SIX
+02166	ROMAN NUMERAL SEVEN
+02167	ROMAN NUMERAL EIGHT
+02168	ROMAN NUMERAL NINE
+02169	ROMAN NUMERAL TEN
+0216A	ROMAN NUMERAL ELEVEN
+0216B	ROMAN NUMERAL TWELVE
+0216C	ROMAN NUMERAL FIFTY
+0216D	ROMAN NUMERAL ONE HUNDRED
+0216E	ROMAN NUMERAL FIVE HUNDRED
+0216F	ROMAN NUMERAL ONE THOUSAND
+02170	SMALL ROMAN NUMERAL ONE
+02171	SMALL ROMAN NUMERAL TWO
+02172	SMALL ROMAN NUMERAL THREE
+02173	SMALL ROMAN NUMERAL FOUR
+02174	SMALL ROMAN NUMERAL FIVE
+02175	SMALL ROMAN NUMERAL SIX
+02176	SMALL ROMAN NUMERAL SEVEN
+02177	SMALL ROMAN NUMERAL EIGHT
+02178	SMALL ROMAN NUMERAL NINE
+02179	SMALL ROMAN NUMERAL TEN
+0217A	SMALL ROMAN NUMERAL ELEVEN
+0217B	SMALL ROMAN NUMERAL TWELVE
+0217C	SMALL ROMAN NUMERAL FIFTY
+0217D	SMALL ROMAN NUMERAL ONE HUNDRED
+0217E	SMALL ROMAN NUMERAL FIVE HUNDRED
+0217F	SMALL ROMAN NUMERAL ONE THOUSAND
+02180	ROMAN NUMERAL ONE THOUSAND C D
+02181	ROMAN NUMERAL FIVE THOUSAND
+02182	ROMAN NUMERAL TEN THOUSAND
+02183	ROMAN NUMERAL REVERSED ONE HUNDRED
+02184	LATIN SMALL LETTER REVERSED C
+02185	ROMAN NUMERAL SIX LATE FORM
+02186	ROMAN NUMERAL FIFTY EARLY FORM
+02187	ROMAN NUMERAL FIFTY THOUSAND
+02188	ROMAN NUMERAL ONE HUNDRED THOUSAND
+02189	VULGAR FRACTION ZERO THIRDS
+0218A	TURNED DIGIT TWO
+0218B	TURNED DIGIT THREE
+02190	LEFTWARDS ARROW
+02191	UPWARDS ARROW
+02192	RIGHTWARDS ARROW
+02193	DOWNWARDS ARROW
+02194	LEFT RIGHT ARROW
+02195	UP DOWN ARROW
+02196	NORTH WEST ARROW
+02197	NORTH EAST ARROW
+02198	SOUTH EAST ARROW
+02199	SOUTH WEST ARROW
+0219A	LEFTWARDS ARROW WITH STROKE
+0219B	RIGHTWARDS ARROW WITH STROKE
+0219C	LEFTWARDS WAVE ARROW
+0219D	RIGHTWARDS WAVE ARROW
+0219E	LEFTWARDS TWO HEADED ARROW
+0219F	UPWARDS TWO HEADED ARROW
+021A0	RIGHTWARDS TWO HEADED ARROW
+021A1	DOWNWARDS TWO HEADED ARROW
+021A2	LEFTWARDS ARROW WITH TAIL
+021A3	RIGHTWARDS ARROW WITH TAIL
+021A4	LEFTWARDS ARROW FROM BAR
+021A5	UPWARDS ARROW FROM BAR
+021A6	RIGHTWARDS ARROW FROM BAR
+021A7	DOWNWARDS ARROW FROM BAR
+021A8	UP DOWN ARROW WITH BASE
+021A9	LEFTWARDS ARROW WITH HOOK
+021AA	RIGHTWARDS ARROW WITH HOOK
+021AB	LEFTWARDS ARROW WITH LOOP
+021AC	RIGHTWARDS ARROW WITH LOOP
+021AD	LEFT RIGHT WAVE ARROW
+021AE	LEFT RIGHT ARROW WITH STROKE
+021AF	DOWNWARDS ZIGZAG ARROW
+021B0	UPWARDS ARROW WITH TIP LEFTWARDS
+021B1	UPWARDS ARROW WITH TIP RIGHTWARDS
+021B2	DOWNWARDS ARROW WITH TIP LEFTWARDS
+021B3	DOWNWARDS ARROW WITH TIP RIGHTWARDS
+021B4	RIGHTWARDS ARROW WITH CORNER DOWNWARDS
+021B5	DOWNWARDS ARROW WITH CORNER LEFTWARDS
+021B6	ANTICLOCKWISE TOP SEMICIRCLE ARROW
+021B7	CLOCKWISE TOP SEMICIRCLE ARROW
+021B8	NORTH WEST ARROW TO LONG BAR
+021B9	LEFTWARDS ARROW TO BAR OVER RIGHTWARDS ARROW TO BAR
+021BA	ANTICLOCKWISE OPEN CIRCLE ARROW
+021BB	CLOCKWISE OPEN CIRCLE ARROW
+021BC	LEFTWARDS HARPOON WITH BARB UPWARDS
+021BD	LEFTWARDS HARPOON WITH BARB DOWNWARDS
+021BE	UPWARDS HARPOON WITH BARB RIGHTWARDS
+021BF	UPWARDS HARPOON WITH BARB LEFTWARDS
+021C0	RIGHTWARDS HARPOON WITH BARB UPWARDS
+021C1	RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+021C2	DOWNWARDS HARPOON WITH BARB RIGHTWARDS
+021C3	DOWNWARDS HARPOON WITH BARB LEFTWARDS
+021C4	RIGHTWARDS ARROW OVER LEFTWARDS ARROW
+021C5	UPWARDS ARROW LEFTWARDS OF DOWNWARDS ARROW
+021C6	LEFTWARDS ARROW OVER RIGHTWARDS ARROW
+021C7	LEFTWARDS PAIRED ARROWS
+021C8	UPWARDS PAIRED ARROWS
+021C9	RIGHTWARDS PAIRED ARROWS
+021CA	DOWNWARDS PAIRED ARROWS
+021CB	LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+021CC	RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+021CD	LEFTWARDS DOUBLE ARROW WITH STROKE
+021CE	LEFT RIGHT DOUBLE ARROW WITH STROKE
+021CF	RIGHTWARDS DOUBLE ARROW WITH STROKE
+021D0	LEFTWARDS DOUBLE ARROW
+021D1	UPWARDS DOUBLE ARROW
+021D2	RIGHTWARDS DOUBLE ARROW
+021D3	DOWNWARDS DOUBLE ARROW
+021D4	LEFT RIGHT DOUBLE ARROW
+021D5	UP DOWN DOUBLE ARROW
+021D6	NORTH WEST DOUBLE ARROW
+021D7	NORTH EAST DOUBLE ARROW
+021D8	SOUTH EAST DOUBLE ARROW
+021D9	SOUTH WEST DOUBLE ARROW
+021DA	LEFTWARDS TRIPLE ARROW
+021DB	RIGHTWARDS TRIPLE ARROW
+021DC	LEFTWARDS SQUIGGLE ARROW
+021DD	RIGHTWARDS SQUIGGLE ARROW
+021DE	UPWARDS ARROW WITH DOUBLE STROKE
+021DF	DOWNWARDS ARROW WITH DOUBLE STROKE
+021E0	LEFTWARDS DASHED ARROW
+021E1	UPWARDS DASHED ARROW
+021E2	RIGHTWARDS DASHED ARROW
+021E3	DOWNWARDS DASHED ARROW
+021E4	LEFTWARDS ARROW TO BAR
+021E5	RIGHTWARDS ARROW TO BAR
+021E6	LEFTWARDS WHITE ARROW
+021E7	UPWARDS WHITE ARROW
+021E8	RIGHTWARDS WHITE ARROW
+021E9	DOWNWARDS WHITE ARROW
+021EA	UPWARDS WHITE ARROW FROM BAR
+021EB	UPWARDS WHITE ARROW ON PEDESTAL
+021EC	UPWARDS WHITE ARROW ON PEDESTAL WITH HORIZONTAL BAR
+021ED	UPWARDS WHITE ARROW ON PEDESTAL WITH VERTICAL BAR
+021EE	UPWARDS WHITE DOUBLE ARROW
+021EF	UPWARDS WHITE DOUBLE ARROW ON PEDESTAL
+021F0	RIGHTWARDS WHITE ARROW FROM WALL
+021F1	NORTH WEST ARROW TO CORNER
+021F2	SOUTH EAST ARROW TO CORNER
+021F3	UP DOWN WHITE ARROW
+021F4	RIGHT ARROW WITH SMALL CIRCLE
+021F5	DOWNWARDS ARROW LEFTWARDS OF UPWARDS ARROW
+021F6	THREE RIGHTWARDS ARROWS
+021F7	LEFTWARDS ARROW WITH VERTICAL STROKE
+021F8	RIGHTWARDS ARROW WITH VERTICAL STROKE
+021F9	LEFT RIGHT ARROW WITH VERTICAL STROKE
+021FA	LEFTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+021FB	RIGHTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+021FC	LEFT RIGHT ARROW WITH DOUBLE VERTICAL STROKE
+021FD	LEFTWARDS OPEN-HEADED ARROW
+021FE	RIGHTWARDS OPEN-HEADED ARROW
+021FF	LEFT RIGHT OPEN-HEADED ARROW
+02200	FOR ALL
+02201	COMPLEMENT
+02202	PARTIAL DIFFERENTIAL
+02203	THERE EXISTS
+02204	THERE DOES NOT EXIST
+02205	EMPTY SET
+02206	INCREMENT
+02207	NABLA
+02208	ELEMENT OF
+02209	NOT AN ELEMENT OF
+0220A	SMALL ELEMENT OF
+0220B	CONTAINS AS MEMBER
+0220C	DOES NOT CONTAIN AS MEMBER
+0220D	SMALL CONTAINS AS MEMBER
+0220E	END OF PROOF
+0220F	N-ARY PRODUCT
+02210	N-ARY COPRODUCT
+02211	N-ARY SUMMATION
+02212	MINUS SIGN
+02213	MINUS-OR-PLUS SIGN
+02214	DOT PLUS
+02215	DIVISION SLASH
+02216	SET MINUS
+02217	ASTERISK OPERATOR
+02218	RING OPERATOR
+02219	BULLET OPERATOR
+0221A	SQUARE ROOT
+0221B	CUBE ROOT
+0221C	FOURTH ROOT
+0221D	PROPORTIONAL TO
+0221E	INFINITY
+0221F	RIGHT ANGLE
+02220	ANGLE
+02221	MEASURED ANGLE
+02222	SPHERICAL ANGLE
+02223	DIVIDES
+02224	DOES NOT DIVIDE
+02225	PARALLEL TO
+02226	NOT PARALLEL TO
+02227	LOGICAL AND
+02228	LOGICAL OR
+02229	INTERSECTION
+0222A	UNION
+0222B	INTEGRAL
+0222C	DOUBLE INTEGRAL
+0222D	TRIPLE INTEGRAL
+0222E	CONTOUR INTEGRAL
+0222F	SURFACE INTEGRAL
+02230	VOLUME INTEGRAL
+02231	CLOCKWISE INTEGRAL
+02232	CLOCKWISE CONTOUR INTEGRAL
+02233	ANTICLOCKWISE CONTOUR INTEGRAL
+02234	THEREFORE
+02235	BECAUSE
+02236	RATIO
+02237	PROPORTION
+02238	DOT MINUS
+02239	EXCESS
+0223A	GEOMETRIC PROPORTION
+0223B	HOMOTHETIC
+0223C	TILDE OPERATOR
+0223D	REVERSED TILDE
+0223E	INVERTED LAZY S
+0223F	SINE WAVE
+02240	WREATH PRODUCT
+02241	NOT TILDE
+02242	MINUS TILDE
+02243	ASYMPTOTICALLY EQUAL TO
+02244	NOT ASYMPTOTICALLY EQUAL TO
+02245	APPROXIMATELY EQUAL TO
+02246	APPROXIMATELY BUT NOT ACTUALLY EQUAL TO
+02247	NEITHER APPROXIMATELY NOR ACTUALLY EQUAL TO
+02248	ALMOST EQUAL TO
+02249	NOT ALMOST EQUAL TO
+0224A	ALMOST EQUAL OR EQUAL TO
+0224B	TRIPLE TILDE
+0224C	ALL EQUAL TO
+0224D	EQUIVALENT TO
+0224E	GEOMETRICALLY EQUIVALENT TO
+0224F	DIFFERENCE BETWEEN
+02250	APPROACHES THE LIMIT
+02251	GEOMETRICALLY EQUAL TO
+02252	APPROXIMATELY EQUAL TO OR THE IMAGE OF
+02253	IMAGE OF OR APPROXIMATELY EQUAL TO
+02254	COLON EQUALS
+02255	EQUALS COLON
+02256	RING IN EQUAL TO
+02257	RING EQUAL TO
+02258	CORRESPONDS TO
+02259	ESTIMATES
+0225A	EQUIANGULAR TO
+0225B	STAR EQUALS
+0225C	DELTA EQUAL TO
+0225D	EQUAL TO BY DEFINITION
+0225E	MEASURED BY
+0225F	QUESTIONED EQUAL TO
+02260	NOT EQUAL TO
+02261	IDENTICAL TO
+02262	NOT IDENTICAL TO
+02263	STRICTLY EQUIVALENT TO
+02264	LESS-THAN OR EQUAL TO
+02265	GREATER-THAN OR EQUAL TO
+02266	LESS-THAN OVER EQUAL TO
+02267	GREATER-THAN OVER EQUAL TO
+02268	LESS-THAN BUT NOT EQUAL TO
+02269	GREATER-THAN BUT NOT EQUAL TO
+0226A	MUCH LESS-THAN
+0226B	MUCH GREATER-THAN
+0226C	BETWEEN
+0226D	NOT EQUIVALENT TO
+0226E	NOT LESS-THAN
+0226F	NOT GREATER-THAN
+02270	NEITHER LESS-THAN NOR EQUAL TO
+02271	NEITHER GREATER-THAN NOR EQUAL TO
+02272	LESS-THAN OR EQUIVALENT TO
+02273	GREATER-THAN OR EQUIVALENT TO
+02274	NEITHER LESS-THAN NOR EQUIVALENT TO
+02275	NEITHER GREATER-THAN NOR EQUIVALENT TO
+02276	LESS-THAN OR GREATER-THAN
+02277	GREATER-THAN OR LESS-THAN
+02278	NEITHER LESS-THAN NOR GREATER-THAN
+02279	NEITHER GREATER-THAN NOR LESS-THAN
+0227A	PRECEDES
+0227B	SUCCEEDS
+0227C	PRECEDES OR EQUAL TO
+0227D	SUCCEEDS OR EQUAL TO
+0227E	PRECEDES OR EQUIVALENT TO
+0227F	SUCCEEDS OR EQUIVALENT TO
+02280	DOES NOT PRECEDE
+02281	DOES NOT SUCCEED
+02282	SUBSET OF
+02283	SUPERSET OF
+02284	NOT A SUBSET OF
+02285	NOT A SUPERSET OF
+02286	SUBSET OF OR EQUAL TO
+02287	SUPERSET OF OR EQUAL TO
+02288	NEITHER A SUBSET OF NOR EQUAL TO
+02289	NEITHER A SUPERSET OF NOR EQUAL TO
+0228A	SUBSET OF WITH NOT EQUAL TO
+0228B	SUPERSET OF WITH NOT EQUAL TO
+0228C	MULTISET
+0228D	MULTISET MULTIPLICATION
+0228E	MULTISET UNION
+0228F	SQUARE IMAGE OF
+02290	SQUARE ORIGINAL OF
+02291	SQUARE IMAGE OF OR EQUAL TO
+02292	SQUARE ORIGINAL OF OR EQUAL TO
+02293	SQUARE CAP
+02294	SQUARE CUP
+02295	CIRCLED PLUS
+02296	CIRCLED MINUS
+02297	CIRCLED TIMES
+02298	CIRCLED DIVISION SLASH
+02299	CIRCLED DOT OPERATOR
+0229A	CIRCLED RING OPERATOR
+0229B	CIRCLED ASTERISK OPERATOR
+0229C	CIRCLED EQUALS
+0229D	CIRCLED DASH
+0229E	SQUARED PLUS
+0229F	SQUARED MINUS
+022A0	SQUARED TIMES
+022A1	SQUARED DOT OPERATOR
+022A2	RIGHT TACK
+022A3	LEFT TACK
+022A4	DOWN TACK
+022A5	UP TACK
+022A6	ASSERTION
+022A7	MODELS
+022A8	TRUE
+022A9	FORCES
+022AA	TRIPLE VERTICAL BAR RIGHT TURNSTILE
+022AB	DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+022AC	DOES NOT PROVE
+022AD	NOT TRUE
+022AE	DOES NOT FORCE
+022AF	NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+022B0	PRECEDES UNDER RELATION
+022B1	SUCCEEDS UNDER RELATION
+022B2	NORMAL SUBGROUP OF
+022B3	CONTAINS AS NORMAL SUBGROUP
+022B4	NORMAL SUBGROUP OF OR EQUAL TO
+022B5	CONTAINS AS NORMAL SUBGROUP OR EQUAL TO
+022B6	ORIGINAL OF
+022B7	IMAGE OF
+022B8	MULTIMAP
+022B9	HERMITIAN CONJUGATE MATRIX
+022BA	INTERCALATE
+022BB	XOR
+022BC	NAND
+022BD	NOR
+022BE	RIGHT ANGLE WITH ARC
+022BF	RIGHT TRIANGLE
+022C0	N-ARY LOGICAL AND
+022C1	N-ARY LOGICAL OR
+022C2	N-ARY INTERSECTION
+022C3	N-ARY UNION
+022C4	DIAMOND OPERATOR
+022C5	DOT OPERATOR
+022C6	STAR OPERATOR
+022C7	DIVISION TIMES
+022C8	BOWTIE
+022C9	LEFT NORMAL FACTOR SEMIDIRECT PRODUCT
+022CA	RIGHT NORMAL FACTOR SEMIDIRECT PRODUCT
+022CB	LEFT SEMIDIRECT PRODUCT
+022CC	RIGHT SEMIDIRECT PRODUCT
+022CD	REVERSED TILDE EQUALS
+022CE	CURLY LOGICAL OR
+022CF	CURLY LOGICAL AND
+022D0	DOUBLE SUBSET
+022D1	DOUBLE SUPERSET
+022D2	DOUBLE INTERSECTION
+022D3	DOUBLE UNION
+022D4	PITCHFORK
+022D5	EQUAL AND PARALLEL TO
+022D6	LESS-THAN WITH DOT
+022D7	GREATER-THAN WITH DOT
+022D8	VERY MUCH LESS-THAN
+022D9	VERY MUCH GREATER-THAN
+022DA	LESS-THAN EQUAL TO OR GREATER-THAN
+022DB	GREATER-THAN EQUAL TO OR LESS-THAN
+022DC	EQUAL TO OR LESS-THAN
+022DD	EQUAL TO OR GREATER-THAN
+022DE	EQUAL TO OR PRECEDES
+022DF	EQUAL TO OR SUCCEEDS
+022E0	DOES NOT PRECEDE OR EQUAL
+022E1	DOES NOT SUCCEED OR EQUAL
+022E2	NOT SQUARE IMAGE OF OR EQUAL TO
+022E3	NOT SQUARE ORIGINAL OF OR EQUAL TO
+022E4	SQUARE IMAGE OF OR NOT EQUAL TO
+022E5	SQUARE ORIGINAL OF OR NOT EQUAL TO
+022E6	LESS-THAN BUT NOT EQUIVALENT TO
+022E7	GREATER-THAN BUT NOT EQUIVALENT TO
+022E8	PRECEDES BUT NOT EQUIVALENT TO
+022E9	SUCCEEDS BUT NOT EQUIVALENT TO
+022EA	NOT NORMAL SUBGROUP OF
+022EB	DOES NOT CONTAIN AS NORMAL SUBGROUP
+022EC	NOT NORMAL SUBGROUP OF OR EQUAL TO
+022ED	DOES NOT CONTAIN AS NORMAL SUBGROUP OR EQUAL
+022EE	VERTICAL ELLIPSIS
+022EF	MIDLINE HORIZONTAL ELLIPSIS
+022F0	UP RIGHT DIAGONAL ELLIPSIS
+022F1	DOWN RIGHT DIAGONAL ELLIPSIS
+022F2	ELEMENT OF WITH LONG HORIZONTAL STROKE
+022F3	ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022F4	SMALL ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022F5	ELEMENT OF WITH DOT ABOVE
+022F6	ELEMENT OF WITH OVERBAR
+022F7	SMALL ELEMENT OF WITH OVERBAR
+022F8	ELEMENT OF WITH UNDERBAR
+022F9	ELEMENT OF WITH TWO HORIZONTAL STROKES
+022FA	CONTAINS WITH LONG HORIZONTAL STROKE
+022FB	CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022FC	SMALL CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022FD	CONTAINS WITH OVERBAR
+022FE	SMALL CONTAINS WITH OVERBAR
+022FF	Z NOTATION BAG MEMBERSHIP
+02300	DIAMETER SIGN
+02301	ELECTRIC ARROW
+02302	HOUSE
+02303	UP ARROWHEAD
+02304	DOWN ARROWHEAD
+02305	PROJECTIVE
+02306	PERSPECTIVE
+02307	WAVY LINE
+02308	LEFT CEILING
+02309	RIGHT CEILING
+0230A	LEFT FLOOR
+0230B	RIGHT FLOOR
+0230C	BOTTOM RIGHT CROP
+0230D	BOTTOM LEFT CROP
+0230E	TOP RIGHT CROP
+0230F	TOP LEFT CROP
+02310	REVERSED NOT SIGN
+02311	SQUARE LOZENGE
+02312	ARC
+02313	SEGMENT
+02314	SECTOR
+02315	TELEPHONE RECORDER
+02316	POSITION INDICATOR
+02317	VIEWDATA SQUARE
+02318	PLACE OF INTEREST SIGN
+02319	TURNED NOT SIGN
+0231A	WATCH
+0231B	HOURGLASS
+0231C	TOP LEFT CORNER
+0231D	TOP RIGHT CORNER
+0231E	BOTTOM LEFT CORNER
+0231F	BOTTOM RIGHT CORNER
+02320	TOP HALF INTEGRAL
+02321	BOTTOM HALF INTEGRAL
+02322	FROWN
+02323	SMILE
+02324	UP ARROWHEAD BETWEEN TWO HORIZONTAL BARS
+02325	OPTION KEY
+02326	ERASE TO THE RIGHT
+02327	X IN A RECTANGLE BOX
+02328	KEYBOARD
+02329	LEFT-POINTING ANGLE BRACKET
+0232A	RIGHT-POINTING ANGLE BRACKET
+0232B	ERASE TO THE LEFT
+0232C	BENZENE RING
+0232D	CYLINDRICITY
+0232E	ALL AROUND-PROFILE
+0232F	SYMMETRY
+02330	TOTAL RUNOUT
+02331	DIMENSION ORIGIN
+02332	CONICAL TAPER
+02333	SLOPE
+02334	COUNTERBORE
+02335	COUNTERSINK
+02336	APL FUNCTIONAL SYMBOL I-BEAM
+02337	APL FUNCTIONAL SYMBOL SQUISH QUAD
+02338	APL FUNCTIONAL SYMBOL QUAD EQUAL
+02339	APL FUNCTIONAL SYMBOL QUAD DIVIDE
+0233A	APL FUNCTIONAL SYMBOL QUAD DIAMOND
+0233B	APL FUNCTIONAL SYMBOL QUAD JOT
+0233C	APL FUNCTIONAL SYMBOL QUAD CIRCLE
+0233D	APL FUNCTIONAL SYMBOL CIRCLE STILE
+0233E	APL FUNCTIONAL SYMBOL CIRCLE JOT
+0233F	APL FUNCTIONAL SYMBOL SLASH BAR
+02340	APL FUNCTIONAL SYMBOL BACKSLASH BAR
+02341	APL FUNCTIONAL SYMBOL QUAD SLASH
+02342	APL FUNCTIONAL SYMBOL QUAD BACKSLASH
+02343	APL FUNCTIONAL SYMBOL QUAD LESS-THAN
+02344	APL FUNCTIONAL SYMBOL QUAD GREATER-THAN
+02345	APL FUNCTIONAL SYMBOL LEFTWARDS VANE
+02346	APL FUNCTIONAL SYMBOL RIGHTWARDS VANE
+02347	APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
+02348	APL FUNCTIONAL SYMBOL QUAD RIGHTWARDS ARROW
+02349	APL FUNCTIONAL SYMBOL CIRCLE BACKSLASH
+0234A	APL FUNCTIONAL SYMBOL DOWN TACK UNDERBAR
+0234B	APL FUNCTIONAL SYMBOL DELTA STILE
+0234C	APL FUNCTIONAL SYMBOL QUAD DOWN CARET
+0234D	APL FUNCTIONAL SYMBOL QUAD DELTA
+0234E	APL FUNCTIONAL SYMBOL DOWN TACK JOT
+0234F	APL FUNCTIONAL SYMBOL UPWARDS VANE
+02350	APL FUNCTIONAL SYMBOL QUAD UPWARDS ARROW
+02351	APL FUNCTIONAL SYMBOL UP TACK OVERBAR
+02352	APL FUNCTIONAL SYMBOL DEL STILE
+02353	APL FUNCTIONAL SYMBOL QUAD UP CARET
+02354	APL FUNCTIONAL SYMBOL QUAD DEL
+02355	APL FUNCTIONAL SYMBOL UP TACK JOT
+02356	APL FUNCTIONAL SYMBOL DOWNWARDS VANE
+02357	APL FUNCTIONAL SYMBOL QUAD DOWNWARDS ARROW
+02358	APL FUNCTIONAL SYMBOL QUOTE UNDERBAR
+02359	APL FUNCTIONAL SYMBOL DELTA UNDERBAR
+0235A	APL FUNCTIONAL SYMBOL DIAMOND UNDERBAR
+0235B	APL FUNCTIONAL SYMBOL JOT UNDERBAR
+0235C	APL FUNCTIONAL SYMBOL CIRCLE UNDERBAR
+0235D	APL FUNCTIONAL SYMBOL UP SHOE JOT
+0235E	APL FUNCTIONAL SYMBOL QUOTE QUAD
+0235F	APL FUNCTIONAL SYMBOL CIRCLE STAR
+02360	APL FUNCTIONAL SYMBOL QUAD COLON
+02361	APL FUNCTIONAL SYMBOL UP TACK DIAERESIS
+02362	APL FUNCTIONAL SYMBOL DEL DIAERESIS
+02363	APL FUNCTIONAL SYMBOL STAR DIAERESIS
+02364	APL FUNCTIONAL SYMBOL JOT DIAERESIS
+02365	APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS
+02366	APL FUNCTIONAL SYMBOL DOWN SHOE STILE
+02367	APL FUNCTIONAL SYMBOL LEFT SHOE STILE
+02368	APL FUNCTIONAL SYMBOL TILDE DIAERESIS
+02369	APL FUNCTIONAL SYMBOL GREATER-THAN DIAERESIS
+0236A	APL FUNCTIONAL SYMBOL COMMA BAR
+0236B	APL FUNCTIONAL SYMBOL DEL TILDE
+0236C	APL FUNCTIONAL SYMBOL ZILDE
+0236D	APL FUNCTIONAL SYMBOL STILE TILDE
+0236E	APL FUNCTIONAL SYMBOL SEMICOLON UNDERBAR
+0236F	APL FUNCTIONAL SYMBOL QUAD NOT EQUAL
+02370	APL FUNCTIONAL SYMBOL QUAD QUESTION
+02371	APL FUNCTIONAL SYMBOL DOWN CARET TILDE
+02372	APL FUNCTIONAL SYMBOL UP CARET TILDE
+02373	APL FUNCTIONAL SYMBOL IOTA
+02374	APL FUNCTIONAL SYMBOL RHO
+02375	APL FUNCTIONAL SYMBOL OMEGA
+02376	APL FUNCTIONAL SYMBOL ALPHA UNDERBAR
+02377	APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
+02378	APL FUNCTIONAL SYMBOL IOTA UNDERBAR
+02379	APL FUNCTIONAL SYMBOL OMEGA UNDERBAR
+0237A	APL FUNCTIONAL SYMBOL ALPHA
+0237B	NOT CHECK MARK
+0237C	RIGHT ANGLE WITH DOWNWARDS ZIGZAG ARROW
+0237D	SHOULDERED OPEN BOX
+0237E	BELL SYMBOL
+0237F	VERTICAL LINE WITH MIDDLE DOT
+02380	INSERTION SYMBOL
+02381	CONTINUOUS UNDERLINE SYMBOL
+02382	DISCONTINUOUS UNDERLINE SYMBOL
+02383	EMPHASIS SYMBOL
+02384	COMPOSITION SYMBOL
+02385	WHITE SQUARE WITH CENTRE VERTICAL LINE
+02386	ENTER SYMBOL
+02387	ALTERNATIVE KEY SYMBOL
+02388	HELM SYMBOL
+02389	CIRCLED HORIZONTAL BAR WITH NOTCH
+0238A	CIRCLED TRIANGLE DOWN
+0238B	BROKEN CIRCLE WITH NORTHWEST ARROW
+0238C	UNDO SYMBOL
+0238D	MONOSTABLE SYMBOL
+0238E	HYSTERESIS SYMBOL
+0238F	OPEN-CIRCUIT-OUTPUT H-TYPE SYMBOL
+02390	OPEN-CIRCUIT-OUTPUT L-TYPE SYMBOL
+02391	PASSIVE-PULL-DOWN-OUTPUT SYMBOL
+02392	PASSIVE-PULL-UP-OUTPUT SYMBOL
+02393	DIRECT CURRENT SYMBOL FORM TWO
+02394	SOFTWARE-FUNCTION SYMBOL
+02395	APL FUNCTIONAL SYMBOL QUAD
+02396	DECIMAL SEPARATOR KEY SYMBOL
+02397	PREVIOUS PAGE
+02398	NEXT PAGE
+02399	PRINT SCREEN SYMBOL
+0239A	CLEAR SCREEN SYMBOL
+0239B	LEFT PARENTHESIS UPPER HOOK
+0239C	LEFT PARENTHESIS EXTENSION
+0239D	LEFT PARENTHESIS LOWER HOOK
+0239E	RIGHT PARENTHESIS UPPER HOOK
+0239F	RIGHT PARENTHESIS EXTENSION
+023A0	RIGHT PARENTHESIS LOWER HOOK
+023A1	LEFT SQUARE BRACKET UPPER CORNER
+023A2	LEFT SQUARE BRACKET EXTENSION
+023A3	LEFT SQUARE BRACKET LOWER CORNER
+023A4	RIGHT SQUARE BRACKET UPPER CORNER
+023A5	RIGHT SQUARE BRACKET EXTENSION
+023A6	RIGHT SQUARE BRACKET LOWER CORNER
+023A7	LEFT CURLY BRACKET UPPER HOOK
+023A8	LEFT CURLY BRACKET MIDDLE PIECE
+023A9	LEFT CURLY BRACKET LOWER HOOK
+023AA	CURLY BRACKET EXTENSION
+023AB	RIGHT CURLY BRACKET UPPER HOOK
+023AC	RIGHT CURLY BRACKET MIDDLE PIECE
+023AD	RIGHT CURLY BRACKET LOWER HOOK
+023AE	INTEGRAL EXTENSION
+023AF	HORIZONTAL LINE EXTENSION
+023B0	UPPER LEFT OR LOWER RIGHT CURLY BRACKET SECTION
+023B1	UPPER RIGHT OR LOWER LEFT CURLY BRACKET SECTION
+023B2	SUMMATION TOP
+023B3	SUMMATION BOTTOM
+023B4	TOP SQUARE BRACKET
+023B5	BOTTOM SQUARE BRACKET
+023B6	BOTTOM SQUARE BRACKET OVER TOP SQUARE BRACKET
+023B7	RADICAL SYMBOL BOTTOM
+023B8	LEFT VERTICAL BOX LINE
+023B9	RIGHT VERTICAL BOX LINE
+023BA	HORIZONTAL SCAN LINE-1
+023BB	HORIZONTAL SCAN LINE-3
+023BC	HORIZONTAL SCAN LINE-7
+023BD	HORIZONTAL SCAN LINE-9
+023BE	DENTISTRY SYMBOL LIGHT VERTICAL AND TOP RIGHT
+023BF	DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM RIGHT
+023C0	DENTISTRY SYMBOL LIGHT VERTICAL WITH CIRCLE
+023C1	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH CIRCLE
+023C2	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH CIRCLE
+023C3	DENTISTRY SYMBOL LIGHT VERTICAL WITH TRIANGLE
+023C4	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH TRIANGLE
+023C5	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH TRIANGLE
+023C6	DENTISTRY SYMBOL LIGHT VERTICAL AND WAVE
+023C7	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH WAVE
+023C8	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH WAVE
+023C9	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL
+023CA	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL
+023CB	DENTISTRY SYMBOL LIGHT VERTICAL AND TOP LEFT
+023CC	DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM LEFT
+023CD	SQUARE FOOT
+023CE	RETURN SYMBOL
+023CF	EJECT SYMBOL
+023D0	VERTICAL LINE EXTENSION
+023D1	METRICAL BREVE
+023D2	METRICAL LONG OVER SHORT
+023D3	METRICAL SHORT OVER LONG
+023D4	METRICAL LONG OVER TWO SHORTS
+023D5	METRICAL TWO SHORTS OVER LONG
+023D6	METRICAL TWO SHORTS JOINED
+023D7	METRICAL TRISEME
+023D8	METRICAL TETRASEME
+023D9	METRICAL PENTASEME
+023DA	EARTH GROUND
+023DB	FUSE
+023DC	TOP PARENTHESIS
+023DD	BOTTOM PARENTHESIS
+023DE	TOP CURLY BRACKET
+023DF	BOTTOM CURLY BRACKET
+023E0	TOP TORTOISE SHELL BRACKET
+023E1	BOTTOM TORTOISE SHELL BRACKET
+023E2	WHITE TRAPEZIUM
+023E3	BENZENE RING WITH CIRCLE
+023E4	STRAIGHTNESS
+023E5	FLATNESS
+023E6	AC CURRENT
+023E7	ELECTRICAL INTERSECTION
+023E8	DECIMAL EXPONENT SYMBOL
+023E9	BLACK RIGHT-POINTING DOUBLE TRIANGLE
+023EA	BLACK LEFT-POINTING DOUBLE TRIANGLE
+023EB	BLACK UP-POINTING DOUBLE TRIANGLE
+023EC	BLACK DOWN-POINTING DOUBLE TRIANGLE
+023ED	BLACK RIGHT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+023EE	BLACK LEFT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+023EF	BLACK RIGHT-POINTING TRIANGLE WITH DOUBLE VERTICAL BAR
+023F0	ALARM CLOCK
+023F1	STOPWATCH
+023F2	TIMER CLOCK
+023F3	HOURGLASS WITH FLOWING SAND
+023F4	BLACK MEDIUM LEFT-POINTING TRIANGLE
+023F5	BLACK MEDIUM RIGHT-POINTING TRIANGLE
+023F6	BLACK MEDIUM UP-POINTING TRIANGLE
+023F7	BLACK MEDIUM DOWN-POINTING TRIANGLE
+023F8	DOUBLE VERTICAL BAR
+023F9	BLACK SQUARE FOR STOP
+023FA	BLACK CIRCLE FOR RECORD
+023FB	POWER SYMBOL
+023FC	POWER ON-OFF SYMBOL
+023FD	POWER ON SYMBOL
+023FE	POWER SLEEP SYMBOL
+023FF	OBSERVER EYE SYMBOL
+02400	SYMBOL FOR NULL
+02401	SYMBOL FOR START OF HEADING
+02402	SYMBOL FOR START OF TEXT
+02403	SYMBOL FOR END OF TEXT
+02404	SYMBOL FOR END OF TRANSMISSION
+02405	SYMBOL FOR ENQUIRY
+02406	SYMBOL FOR ACKNOWLEDGE
+02407	SYMBOL FOR BELL
+02408	SYMBOL FOR BACKSPACE
+02409	SYMBOL FOR HORIZONTAL TABULATION
+0240A	SYMBOL FOR LINE FEED
+0240B	SYMBOL FOR VERTICAL TABULATION
+0240C	SYMBOL FOR FORM FEED
+0240D	SYMBOL FOR CARRIAGE RETURN
+0240E	SYMBOL FOR SHIFT OUT
+0240F	SYMBOL FOR SHIFT IN
+02410	SYMBOL FOR DATA LINK ESCAPE
+02411	SYMBOL FOR DEVICE CONTROL ONE
+02412	SYMBOL FOR DEVICE CONTROL TWO
+02413	SYMBOL FOR DEVICE CONTROL THREE
+02414	SYMBOL FOR DEVICE CONTROL FOUR
+02415	SYMBOL FOR NEGATIVE ACKNOWLEDGE
+02416	SYMBOL FOR SYNCHRONOUS IDLE
+02417	SYMBOL FOR END OF TRANSMISSION BLOCK
+02418	SYMBOL FOR CANCEL
+02419	SYMBOL FOR END OF MEDIUM
+0241A	SYMBOL FOR SUBSTITUTE
+0241B	SYMBOL FOR ESCAPE
+0241C	SYMBOL FOR FILE SEPARATOR
+0241D	SYMBOL FOR GROUP SEPARATOR
+0241E	SYMBOL FOR RECORD SEPARATOR
+0241F	SYMBOL FOR UNIT SEPARATOR
+02420	SYMBOL FOR SPACE
+02421	SYMBOL FOR DELETE
+02422	BLANK SYMBOL
+02423	OPEN BOX
+02424	SYMBOL FOR NEWLINE
+02425	SYMBOL FOR DELETE FORM TWO
+02426	SYMBOL FOR SUBSTITUTE FORM TWO
+02440	OCR HOOK
+02441	OCR CHAIR
+02442	OCR FORK
+02443	OCR INVERTED FORK
+02444	OCR BELT BUCKLE
+02445	OCR BOW TIE
+02446	OCR BRANCH BANK IDENTIFICATION
+02447	OCR AMOUNT OF CHECK
+02448	MICR ON US SYMBOL
+02448	OCR DASH
+02449	MICR DASH SYMBOL
+02449	OCR CUSTOMER ACCOUNT NUMBER
+0244A	OCR DOUBLE BACKSLASH
+02460	CIRCLED DIGIT ONE
+02461	CIRCLED DIGIT TWO
+02462	CIRCLED DIGIT THREE
+02463	CIRCLED DIGIT FOUR
+02464	CIRCLED DIGIT FIVE
+02465	CIRCLED DIGIT SIX
+02466	CIRCLED DIGIT SEVEN
+02467	CIRCLED DIGIT EIGHT
+02468	CIRCLED DIGIT NINE
+02469	CIRCLED NUMBER TEN
+0246A	CIRCLED NUMBER ELEVEN
+0246B	CIRCLED NUMBER TWELVE
+0246C	CIRCLED NUMBER THIRTEEN
+0246D	CIRCLED NUMBER FOURTEEN
+0246E	CIRCLED NUMBER FIFTEEN
+0246F	CIRCLED NUMBER SIXTEEN
+02470	CIRCLED NUMBER SEVENTEEN
+02471	CIRCLED NUMBER EIGHTEEN
+02472	CIRCLED NUMBER NINETEEN
+02473	CIRCLED NUMBER TWENTY
+02474	PARENTHESIZED DIGIT ONE
+02475	PARENTHESIZED DIGIT TWO
+02476	PARENTHESIZED DIGIT THREE
+02477	PARENTHESIZED DIGIT FOUR
+02478	PARENTHESIZED DIGIT FIVE
+02479	PARENTHESIZED DIGIT SIX
+0247A	PARENTHESIZED DIGIT SEVEN
+0247B	PARENTHESIZED DIGIT EIGHT
+0247C	PARENTHESIZED DIGIT NINE
+0247D	PARENTHESIZED NUMBER TEN
+0247E	PARENTHESIZED NUMBER ELEVEN
+0247F	PARENTHESIZED NUMBER TWELVE
+02480	PARENTHESIZED NUMBER THIRTEEN
+02481	PARENTHESIZED NUMBER FOURTEEN
+02482	PARENTHESIZED NUMBER FIFTEEN
+02483	PARENTHESIZED NUMBER SIXTEEN
+02484	PARENTHESIZED NUMBER SEVENTEEN
+02485	PARENTHESIZED NUMBER EIGHTEEN
+02486	PARENTHESIZED NUMBER NINETEEN
+02487	PARENTHESIZED NUMBER TWENTY
+02488	DIGIT ONE FULL STOP
+02489	DIGIT TWO FULL STOP
+0248A	DIGIT THREE FULL STOP
+0248B	DIGIT FOUR FULL STOP
+0248C	DIGIT FIVE FULL STOP
+0248D	DIGIT SIX FULL STOP
+0248E	DIGIT SEVEN FULL STOP
+0248F	DIGIT EIGHT FULL STOP
+02490	DIGIT NINE FULL STOP
+02491	NUMBER TEN FULL STOP
+02492	NUMBER ELEVEN FULL STOP
+02493	NUMBER TWELVE FULL STOP
+02494	NUMBER THIRTEEN FULL STOP
+02495	NUMBER FOURTEEN FULL STOP
+02496	NUMBER FIFTEEN FULL STOP
+02497	NUMBER SIXTEEN FULL STOP
+02498	NUMBER SEVENTEEN FULL STOP
+02499	NUMBER EIGHTEEN FULL STOP
+0249A	NUMBER NINETEEN FULL STOP
+0249B	NUMBER TWENTY FULL STOP
+0249C	PARENTHESIZED LATIN SMALL LETTER A
+0249D	PARENTHESIZED LATIN SMALL LETTER B
+0249E	PARENTHESIZED LATIN SMALL LETTER C
+0249F	PARENTHESIZED LATIN SMALL LETTER D
+024A0	PARENTHESIZED LATIN SMALL LETTER E
+024A1	PARENTHESIZED LATIN SMALL LETTER F
+024A2	PARENTHESIZED LATIN SMALL LETTER G
+024A3	PARENTHESIZED LATIN SMALL LETTER H
+024A4	PARENTHESIZED LATIN SMALL LETTER I
+024A5	PARENTHESIZED LATIN SMALL LETTER J
+024A6	PARENTHESIZED LATIN SMALL LETTER K
+024A7	PARENTHESIZED LATIN SMALL LETTER L
+024A8	PARENTHESIZED LATIN SMALL LETTER M
+024A9	PARENTHESIZED LATIN SMALL LETTER N
+024AA	PARENTHESIZED LATIN SMALL LETTER O
+024AB	PARENTHESIZED LATIN SMALL LETTER P
+024AC	PARENTHESIZED LATIN SMALL LETTER Q
+024AD	PARENTHESIZED LATIN SMALL LETTER R
+024AE	PARENTHESIZED LATIN SMALL LETTER S
+024AF	PARENTHESIZED LATIN SMALL LETTER T
+024B0	PARENTHESIZED LATIN SMALL LETTER U
+024B1	PARENTHESIZED LATIN SMALL LETTER V
+024B2	PARENTHESIZED LATIN SMALL LETTER W
+024B3	PARENTHESIZED LATIN SMALL LETTER X
+024B4	PARENTHESIZED LATIN SMALL LETTER Y
+024B5	PARENTHESIZED LATIN SMALL LETTER Z
+024B6	CIRCLED LATIN CAPITAL LETTER A
+024B7	CIRCLED LATIN CAPITAL LETTER B
+024B8	CIRCLED LATIN CAPITAL LETTER C
+024B9	CIRCLED LATIN CAPITAL LETTER D
+024BA	CIRCLED LATIN CAPITAL LETTER E
+024BB	CIRCLED LATIN CAPITAL LETTER F
+024BC	CIRCLED LATIN CAPITAL LETTER G
+024BD	CIRCLED LATIN CAPITAL LETTER H
+024BE	CIRCLED LATIN CAPITAL LETTER I
+024BF	CIRCLED LATIN CAPITAL LETTER J
+024C0	CIRCLED LATIN CAPITAL LETTER K
+024C1	CIRCLED LATIN CAPITAL LETTER L
+024C2	CIRCLED LATIN CAPITAL LETTER M
+024C3	CIRCLED LATIN CAPITAL LETTER N
+024C4	CIRCLED LATIN CAPITAL LETTER O
+024C5	CIRCLED LATIN CAPITAL LETTER P
+024C6	CIRCLED LATIN CAPITAL LETTER Q
+024C7	CIRCLED LATIN CAPITAL LETTER R
+024C8	CIRCLED LATIN CAPITAL LETTER S
+024C9	CIRCLED LATIN CAPITAL LETTER T
+024CA	CIRCLED LATIN CAPITAL LETTER U
+024CB	CIRCLED LATIN CAPITAL LETTER V
+024CC	CIRCLED LATIN CAPITAL LETTER W
+024CD	CIRCLED LATIN CAPITAL LETTER X
+024CE	CIRCLED LATIN CAPITAL LETTER Y
+024CF	CIRCLED LATIN CAPITAL LETTER Z
+024D0	CIRCLED LATIN SMALL LETTER A
+024D1	CIRCLED LATIN SMALL LETTER B
+024D2	CIRCLED LATIN SMALL LETTER C
+024D3	CIRCLED LATIN SMALL LETTER D
+024D4	CIRCLED LATIN SMALL LETTER E
+024D5	CIRCLED LATIN SMALL LETTER F
+024D6	CIRCLED LATIN SMALL LETTER G
+024D7	CIRCLED LATIN SMALL LETTER H
+024D8	CIRCLED LATIN SMALL LETTER I
+024D9	CIRCLED LATIN SMALL LETTER J
+024DA	CIRCLED LATIN SMALL LETTER K
+024DB	CIRCLED LATIN SMALL LETTER L
+024DC	CIRCLED LATIN SMALL LETTER M
+024DD	CIRCLED LATIN SMALL LETTER N
+024DE	CIRCLED LATIN SMALL LETTER O
+024DF	CIRCLED LATIN SMALL LETTER P
+024E0	CIRCLED LATIN SMALL LETTER Q
+024E1	CIRCLED LATIN SMALL LETTER R
+024E2	CIRCLED LATIN SMALL LETTER S
+024E3	CIRCLED LATIN SMALL LETTER T
+024E4	CIRCLED LATIN SMALL LETTER U
+024E5	CIRCLED LATIN SMALL LETTER V
+024E6	CIRCLED LATIN SMALL LETTER W
+024E7	CIRCLED LATIN SMALL LETTER X
+024E8	CIRCLED LATIN SMALL LETTER Y
+024E9	CIRCLED LATIN SMALL LETTER Z
+024EA	CIRCLED DIGIT ZERO
+024EB	NEGATIVE CIRCLED NUMBER ELEVEN
+024EC	NEGATIVE CIRCLED NUMBER TWELVE
+024ED	NEGATIVE CIRCLED NUMBER THIRTEEN
+024EE	NEGATIVE CIRCLED NUMBER FOURTEEN
+024EF	NEGATIVE CIRCLED NUMBER FIFTEEN
+024F0	NEGATIVE CIRCLED NUMBER SIXTEEN
+024F1	NEGATIVE CIRCLED NUMBER SEVENTEEN
+024F2	NEGATIVE CIRCLED NUMBER EIGHTEEN
+024F3	NEGATIVE CIRCLED NUMBER NINETEEN
+024F4	NEGATIVE CIRCLED NUMBER TWENTY
+024F5	DOUBLE CIRCLED DIGIT ONE
+024F6	DOUBLE CIRCLED DIGIT TWO
+024F7	DOUBLE CIRCLED DIGIT THREE
+024F8	DOUBLE CIRCLED DIGIT FOUR
+024F9	DOUBLE CIRCLED DIGIT FIVE
+024FA	DOUBLE CIRCLED DIGIT SIX
+024FB	DOUBLE CIRCLED DIGIT SEVEN
+024FC	DOUBLE CIRCLED DIGIT EIGHT
+024FD	DOUBLE CIRCLED DIGIT NINE
+024FE	DOUBLE CIRCLED NUMBER TEN
+024FF	NEGATIVE CIRCLED DIGIT ZERO
+02500	BOX DRAWINGS LIGHT HORIZONTAL
+02501	BOX DRAWINGS HEAVY HORIZONTAL
+02502	BOX DRAWINGS LIGHT VERTICAL
+02503	BOX DRAWINGS HEAVY VERTICAL
+02504	BOX DRAWINGS LIGHT TRIPLE DASH HORIZONTAL
+02505	BOX DRAWINGS HEAVY TRIPLE DASH HORIZONTAL
+02506	BOX DRAWINGS LIGHT TRIPLE DASH VERTICAL
+02507	BOX DRAWINGS HEAVY TRIPLE DASH VERTICAL
+02508	BOX DRAWINGS LIGHT QUADRUPLE DASH HORIZONTAL
+02509	BOX DRAWINGS HEAVY QUADRUPLE DASH HORIZONTAL
+0250A	BOX DRAWINGS LIGHT QUADRUPLE DASH VERTICAL
+0250B	BOX DRAWINGS HEAVY QUADRUPLE DASH VERTICAL
+0250C	BOX DRAWINGS LIGHT DOWN AND RIGHT
+0250D	BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY
+0250E	BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT
+0250F	BOX DRAWINGS HEAVY DOWN AND RIGHT
+02510	BOX DRAWINGS LIGHT DOWN AND LEFT
+02511	BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY
+02512	BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT
+02513	BOX DRAWINGS HEAVY DOWN AND LEFT
+02514	BOX DRAWINGS LIGHT UP AND RIGHT
+02515	BOX DRAWINGS UP LIGHT AND RIGHT HEAVY
+02516	BOX DRAWINGS UP HEAVY AND RIGHT LIGHT
+02517	BOX DRAWINGS HEAVY UP AND RIGHT
+02518	BOX DRAWINGS LIGHT UP AND LEFT
+02519	BOX DRAWINGS UP LIGHT AND LEFT HEAVY
+0251A	BOX DRAWINGS UP HEAVY AND LEFT LIGHT
+0251B	BOX DRAWINGS HEAVY UP AND LEFT
+0251C	BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0251D	BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
+0251E	BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT
+0251F	BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT
+02520	BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
+02521	BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY
+02522	BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY
+02523	BOX DRAWINGS HEAVY VERTICAL AND RIGHT
+02524	BOX DRAWINGS LIGHT VERTICAL AND LEFT
+02525	BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
+02526	BOX DRAWINGS UP HEAVY AND LEFT DOWN LIGHT
+02527	BOX DRAWINGS DOWN HEAVY AND LEFT UP LIGHT
+02528	BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
+02529	BOX DRAWINGS DOWN LIGHT AND LEFT UP HEAVY
+0252A	BOX DRAWINGS UP LIGHT AND LEFT DOWN HEAVY
+0252B	BOX DRAWINGS HEAVY VERTICAL AND LEFT
+0252C	BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0252D	BOX DRAWINGS LEFT HEAVY AND RIGHT DOWN LIGHT
+0252E	BOX DRAWINGS RIGHT HEAVY AND LEFT DOWN LIGHT
+0252F	BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
+02530	BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
+02531	BOX DRAWINGS RIGHT LIGHT AND LEFT DOWN HEAVY
+02532	BOX DRAWINGS LEFT LIGHT AND RIGHT DOWN HEAVY
+02533	BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
+02534	BOX DRAWINGS LIGHT UP AND HORIZONTAL
+02535	BOX DRAWINGS LEFT HEAVY AND RIGHT UP LIGHT
+02536	BOX DRAWINGS RIGHT HEAVY AND LEFT UP LIGHT
+02537	BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
+02538	BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
+02539	BOX DRAWINGS RIGHT LIGHT AND LEFT UP HEAVY
+0253A	BOX DRAWINGS LEFT LIGHT AND RIGHT UP HEAVY
+0253B	BOX DRAWINGS HEAVY UP AND HORIZONTAL
+0253C	BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0253D	BOX DRAWINGS LEFT HEAVY AND RIGHT VERTICAL LIGHT
+0253E	BOX DRAWINGS RIGHT HEAVY AND LEFT VERTICAL LIGHT
+0253F	BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
+02540	BOX DRAWINGS UP HEAVY AND DOWN HORIZONTAL LIGHT
+02541	BOX DRAWINGS DOWN HEAVY AND UP HORIZONTAL LIGHT
+02542	BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
+02543	BOX DRAWINGS LEFT UP HEAVY AND RIGHT DOWN LIGHT
+02544	BOX DRAWINGS RIGHT UP HEAVY AND LEFT DOWN LIGHT
+02545	BOX DRAWINGS LEFT DOWN HEAVY AND RIGHT UP LIGHT
+02546	BOX DRAWINGS RIGHT DOWN HEAVY AND LEFT UP LIGHT
+02547	BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY
+02548	BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY
+02549	BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+0254A	BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+0254B	BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
+0254C	BOX DRAWINGS LIGHT DOUBLE DASH HORIZONTAL
+0254D	BOX DRAWINGS HEAVY DOUBLE DASH HORIZONTAL
+0254E	BOX DRAWINGS LIGHT DOUBLE DASH VERTICAL
+0254F	BOX DRAWINGS HEAVY DOUBLE DASH VERTICAL
+02550	BOX DRAWINGS DOUBLE HORIZONTAL
+02551	BOX DRAWINGS DOUBLE VERTICAL
+02552	BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+02553	BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+02554	BOX DRAWINGS DOUBLE DOWN AND RIGHT
+02555	BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+02556	BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+02557	BOX DRAWINGS DOUBLE DOWN AND LEFT
+02558	BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+02559	BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0255A	BOX DRAWINGS DOUBLE UP AND RIGHT
+0255B	BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0255C	BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0255D	BOX DRAWINGS DOUBLE UP AND LEFT
+0255E	BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0255F	BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+02560	BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+02561	BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+02562	BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+02563	BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+02564	BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+02565	BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+02566	BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+02567	BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+02568	BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+02569	BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0256A	BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0256B	BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0256C	BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0256D	BOX DRAWINGS LIGHT ARC DOWN AND RIGHT
+0256E	BOX DRAWINGS LIGHT ARC DOWN AND LEFT
+0256F	BOX DRAWINGS LIGHT ARC UP AND LEFT
+02570	BOX DRAWINGS LIGHT ARC UP AND RIGHT
+02571	BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+02572	BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+02573	BOX DRAWINGS LIGHT DIAGONAL CROSS
+02574	BOX DRAWINGS LIGHT LEFT
+02575	BOX DRAWINGS LIGHT UP
+02576	BOX DRAWINGS LIGHT RIGHT
+02577	BOX DRAWINGS LIGHT DOWN
+02578	BOX DRAWINGS HEAVY LEFT
+02579	BOX DRAWINGS HEAVY UP
+0257A	BOX DRAWINGS HEAVY RIGHT
+0257B	BOX DRAWINGS HEAVY DOWN
+0257C	BOX DRAWINGS LIGHT LEFT AND HEAVY RIGHT
+0257D	BOX DRAWINGS LIGHT UP AND HEAVY DOWN
+0257E	BOX DRAWINGS HEAVY LEFT AND LIGHT RIGHT
+0257F	BOX DRAWINGS HEAVY UP AND LIGHT DOWN
+02580	UPPER HALF BLOCK
+02581	LOWER ONE EIGHTH BLOCK
+02582	LOWER ONE QUARTER BLOCK
+02583	LOWER THREE EIGHTHS BLOCK
+02584	LOWER HALF BLOCK
+02585	LOWER FIVE EIGHTHS BLOCK
+02586	LOWER THREE QUARTERS BLOCK
+02587	LOWER SEVEN EIGHTHS BLOCK
+02588	FULL BLOCK
+02589	LEFT SEVEN EIGHTHS BLOCK
+0258A	LEFT THREE QUARTERS BLOCK
+0258B	LEFT FIVE EIGHTHS BLOCK
+0258C	LEFT HALF BLOCK
+0258D	LEFT THREE EIGHTHS BLOCK
+0258E	LEFT ONE QUARTER BLOCK
+0258F	LEFT ONE EIGHTH BLOCK
+02590	RIGHT HALF BLOCK
+02591	LIGHT SHADE
+02592	MEDIUM SHADE
+02593	DARK SHADE
+02594	UPPER ONE EIGHTH BLOCK
+02595	RIGHT ONE EIGHTH BLOCK
+02596	QUADRANT LOWER LEFT
+02597	QUADRANT LOWER RIGHT
+02598	QUADRANT UPPER LEFT
+02599	QUADRANT UPPER LEFT AND LOWER LEFT AND LOWER RIGHT
+0259A	QUADRANT UPPER LEFT AND LOWER RIGHT
+0259B	QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER LEFT
+0259C	QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER RIGHT
+0259D	QUADRANT UPPER RIGHT
+0259E	QUADRANT UPPER RIGHT AND LOWER LEFT
+0259F	QUADRANT UPPER RIGHT AND LOWER LEFT AND LOWER RIGHT
+025A0	BLACK SQUARE
+025A1	WHITE SQUARE
+025A2	WHITE SQUARE WITH ROUNDED CORNERS
+025A3	WHITE SQUARE CONTAINING BLACK SMALL SQUARE
+025A4	SQUARE WITH HORIZONTAL FILL
+025A5	SQUARE WITH VERTICAL FILL
+025A6	SQUARE WITH ORTHOGONAL CROSSHATCH FILL
+025A7	SQUARE WITH UPPER LEFT TO LOWER RIGHT FILL
+025A8	SQUARE WITH UPPER RIGHT TO LOWER LEFT FILL
+025A9	SQUARE WITH DIAGONAL CROSSHATCH FILL
+025AA	BLACK SMALL SQUARE
+025AB	WHITE SMALL SQUARE
+025AC	BLACK RECTANGLE
+025AD	WHITE RECTANGLE
+025AE	BLACK VERTICAL RECTANGLE
+025AF	WHITE VERTICAL RECTANGLE
+025B0	BLACK PARALLELOGRAM
+025B1	WHITE PARALLELOGRAM
+025B2	BLACK UP-POINTING TRIANGLE
+025B3	WHITE UP-POINTING TRIANGLE
+025B4	BLACK UP-POINTING SMALL TRIANGLE
+025B5	WHITE UP-POINTING SMALL TRIANGLE
+025B6	BLACK RIGHT-POINTING TRIANGLE
+025B7	WHITE RIGHT-POINTING TRIANGLE
+025B8	BLACK RIGHT-POINTING SMALL TRIANGLE
+025B9	WHITE RIGHT-POINTING SMALL TRIANGLE
+025BA	BLACK RIGHT-POINTING POINTER
+025BB	WHITE RIGHT-POINTING POINTER
+025BC	BLACK DOWN-POINTING TRIANGLE
+025BD	WHITE DOWN-POINTING TRIANGLE
+025BE	BLACK DOWN-POINTING SMALL TRIANGLE
+025BF	WHITE DOWN-POINTING SMALL TRIANGLE
+025C0	BLACK LEFT-POINTING TRIANGLE
+025C1	WHITE LEFT-POINTING TRIANGLE
+025C2	BLACK LEFT-POINTING SMALL TRIANGLE
+025C3	WHITE LEFT-POINTING SMALL TRIANGLE
+025C4	BLACK LEFT-POINTING POINTER
+025C5	WHITE LEFT-POINTING POINTER
+025C6	BLACK DIAMOND
+025C7	WHITE DIAMOND
+025C8	WHITE DIAMOND CONTAINING BLACK SMALL DIAMOND
+025C9	FISHEYE
+025CA	LOZENGE
+025CB	WHITE CIRCLE
+025CC	DOTTED CIRCLE
+025CD	CIRCLE WITH VERTICAL FILL
+025CE	BULLSEYE
+025CF	BLACK CIRCLE
+025D0	CIRCLE WITH LEFT HALF BLACK
+025D1	CIRCLE WITH RIGHT HALF BLACK
+025D2	CIRCLE WITH LOWER HALF BLACK
+025D3	CIRCLE WITH UPPER HALF BLACK
+025D4	CIRCLE WITH UPPER RIGHT QUADRANT BLACK
+025D5	CIRCLE WITH ALL BUT UPPER LEFT QUADRANT BLACK
+025D6	LEFT HALF BLACK CIRCLE
+025D7	RIGHT HALF BLACK CIRCLE
+025D8	INVERSE BULLET
+025D9	INVERSE WHITE CIRCLE
+025DA	UPPER HALF INVERSE WHITE CIRCLE
+025DB	LOWER HALF INVERSE WHITE CIRCLE
+025DC	UPPER LEFT QUADRANT CIRCULAR ARC
+025DD	UPPER RIGHT QUADRANT CIRCULAR ARC
+025DE	LOWER RIGHT QUADRANT CIRCULAR ARC
+025DF	LOWER LEFT QUADRANT CIRCULAR ARC
+025E0	UPPER HALF CIRCLE
+025E1	LOWER HALF CIRCLE
+025E2	BLACK LOWER RIGHT TRIANGLE
+025E3	BLACK LOWER LEFT TRIANGLE
+025E4	BLACK UPPER LEFT TRIANGLE
+025E5	BLACK UPPER RIGHT TRIANGLE
+025E6	WHITE BULLET
+025E7	SQUARE WITH LEFT HALF BLACK
+025E8	SQUARE WITH RIGHT HALF BLACK
+025E9	SQUARE WITH UPPER LEFT DIAGONAL HALF BLACK
+025EA	SQUARE WITH LOWER RIGHT DIAGONAL HALF BLACK
+025EB	WHITE SQUARE WITH VERTICAL BISECTING LINE
+025EC	WHITE UP-POINTING TRIANGLE WITH DOT
+025ED	UP-POINTING TRIANGLE WITH LEFT HALF BLACK
+025EE	UP-POINTING TRIANGLE WITH RIGHT HALF BLACK
+025EF	LARGE CIRCLE
+025F0	WHITE SQUARE WITH UPPER LEFT QUADRANT
+025F1	WHITE SQUARE WITH LOWER LEFT QUADRANT
+025F2	WHITE SQUARE WITH LOWER RIGHT QUADRANT
+025F3	WHITE SQUARE WITH UPPER RIGHT QUADRANT
+025F4	WHITE CIRCLE WITH UPPER LEFT QUADRANT
+025F5	WHITE CIRCLE WITH LOWER LEFT QUADRANT
+025F6	WHITE CIRCLE WITH LOWER RIGHT QUADRANT
+025F7	WHITE CIRCLE WITH UPPER RIGHT QUADRANT
+025F8	UPPER LEFT TRIANGLE
+025F9	UPPER RIGHT TRIANGLE
+025FA	LOWER LEFT TRIANGLE
+025FB	WHITE MEDIUM SQUARE
+025FC	BLACK MEDIUM SQUARE
+025FD	WHITE MEDIUM SMALL SQUARE
+025FE	BLACK MEDIUM SMALL SQUARE
+025FF	LOWER RIGHT TRIANGLE
+02600	BLACK SUN WITH RAYS
+02601	CLOUD
+02602	UMBRELLA
+02603	SNOWMAN
+02604	COMET
+02605	BLACK STAR
+02606	WHITE STAR
+02607	LIGHTNING
+02608	THUNDERSTORM
+02609	SUN
+0260A	ASCENDING NODE
+0260B	DESCENDING NODE
+0260C	CONJUNCTION
+0260D	OPPOSITION
+0260E	BLACK TELEPHONE
+0260F	WHITE TELEPHONE
+02610	BALLOT BOX
+02611	BALLOT BOX WITH CHECK
+02612	BALLOT BOX WITH X
+02613	SALTIRE
+02614	UMBRELLA WITH RAIN DROPS
+02615	HOT BEVERAGE
+02616	WHITE SHOGI PIECE
+02617	BLACK SHOGI PIECE
+02618	SHAMROCK
+02619	REVERSED ROTATED FLORAL HEART BULLET
+0261A	BLACK LEFT POINTING INDEX
+0261B	BLACK RIGHT POINTING INDEX
+0261C	WHITE LEFT POINTING INDEX
+0261D	WHITE UP POINTING INDEX
+0261E	WHITE RIGHT POINTING INDEX
+0261F	WHITE DOWN POINTING INDEX
+02620	SKULL AND CROSSBONES
+02621	CAUTION SIGN
+02622	RADIOACTIVE SIGN
+02623	BIOHAZARD SIGN
+02624	CADUCEUS
+02625	ANKH
+02626	ORTHODOX CROSS
+02627	CHI RHO
+02628	CROSS OF LORRAINE
+02629	CROSS OF JERUSALEM
+0262A	STAR AND CRESCENT
+0262B	FARSI SYMBOL
+0262C	ADI SHAKTI
+0262D	HAMMER AND SICKLE
+0262E	PEACE SYMBOL
+0262F	YIN YANG
+02630	TRIGRAM FOR HEAVEN
+02631	TRIGRAM FOR LAKE
+02632	TRIGRAM FOR FIRE
+02633	TRIGRAM FOR THUNDER
+02634	TRIGRAM FOR WIND
+02635	TRIGRAM FOR WATER
+02636	TRIGRAM FOR MOUNTAIN
+02637	TRIGRAM FOR EARTH
+02638	WHEEL OF DHARMA
+02639	WHITE FROWNING FACE
+0263A	WHITE SMILING FACE
+0263B	BLACK SMILING FACE
+0263C	WHITE SUN WITH RAYS
+0263D	FIRST QUARTER MOON
+0263E	LAST QUARTER MOON
+0263F	MERCURY
+02640	FEMALE SIGN
+02641	EARTH
+02642	MALE SIGN
+02643	JUPITER
+02644	SATURN
+02645	URANUS
+02646	NEPTUNE
+02647	PLUTO
+02648	ARIES
+02649	TAURUS
+0264A	GEMINI
+0264B	CANCER
+0264C	LEO
+0264D	VIRGO
+0264E	LIBRA
+0264F	SCORPIUS
+02650	SAGITTARIUS
+02651	CAPRICORN
+02652	AQUARIUS
+02653	PISCES
+02654	WHITE CHESS KING
+02655	WHITE CHESS QUEEN
+02656	WHITE CHESS ROOK
+02657	WHITE CHESS BISHOP
+02658	WHITE CHESS KNIGHT
+02659	WHITE CHESS PAWN
+0265A	BLACK CHESS KING
+0265B	BLACK CHESS QUEEN
+0265C	BLACK CHESS ROOK
+0265D	BLACK CHESS BISHOP
+0265E	BLACK CHESS KNIGHT
+0265F	BLACK CHESS PAWN
+02660	BLACK SPADE SUIT
+02661	WHITE HEART SUIT
+02662	WHITE DIAMOND SUIT
+02663	BLACK CLUB SUIT
+02664	WHITE SPADE SUIT
+02665	BLACK HEART SUIT
+02666	BLACK DIAMOND SUIT
+02667	WHITE CLUB SUIT
+02668	HOT SPRINGS
+02669	QUARTER NOTE
+0266A	EIGHTH NOTE
+0266B	BEAMED EIGHTH NOTES
+0266C	BEAMED SIXTEENTH NOTES
+0266D	MUSIC FLAT SIGN
+0266E	MUSIC NATURAL SIGN
+0266F	MUSIC SHARP SIGN
+02670	WEST SYRIAC CROSS
+02671	EAST SYRIAC CROSS
+02672	UNIVERSAL RECYCLING SYMBOL
+02673	RECYCLING SYMBOL FOR TYPE-1 PLASTICS
+02674	RECYCLING SYMBOL FOR TYPE-2 PLASTICS
+02675	RECYCLING SYMBOL FOR TYPE-3 PLASTICS
+02676	RECYCLING SYMBOL FOR TYPE-4 PLASTICS
+02677	RECYCLING SYMBOL FOR TYPE-5 PLASTICS
+02678	RECYCLING SYMBOL FOR TYPE-6 PLASTICS
+02679	RECYCLING SYMBOL FOR TYPE-7 PLASTICS
+0267A	RECYCLING SYMBOL FOR GENERIC MATERIALS
+0267B	BLACK UNIVERSAL RECYCLING SYMBOL
+0267C	RECYCLED PAPER SYMBOL
+0267D	PARTIALLY-RECYCLED PAPER SYMBOL
+0267E	PERMANENT PAPER SIGN
+0267F	WHEELCHAIR SYMBOL
+02680	DIE FACE-1
+02681	DIE FACE-2
+02682	DIE FACE-3
+02683	DIE FACE-4
+02684	DIE FACE-5
+02685	DIE FACE-6
+02686	WHITE CIRCLE WITH DOT RIGHT
+02687	WHITE CIRCLE WITH TWO DOTS
+02688	BLACK CIRCLE WITH WHITE DOT RIGHT
+02689	BLACK CIRCLE WITH TWO WHITE DOTS
+0268A	MONOGRAM FOR YANG
+0268B	MONOGRAM FOR YIN
+0268C	DIGRAM FOR GREATER YANG
+0268D	DIGRAM FOR LESSER YIN
+0268E	DIGRAM FOR LESSER YANG
+0268F	DIGRAM FOR GREATER YIN
+02690	WHITE FLAG
+02691	BLACK FLAG
+02692	HAMMER AND PICK
+02693	ANCHOR
+02694	CROSSED SWORDS
+02695	STAFF OF AESCULAPIUS
+02696	SCALES
+02697	ALEMBIC
+02698	FLOWER
+02699	GEAR
+0269A	STAFF OF HERMES
+0269B	ATOM SYMBOL
+0269C	FLEUR-DE-LIS
+0269D	OUTLINED WHITE STAR
+0269E	THREE LINES CONVERGING RIGHT
+0269F	THREE LINES CONVERGING LEFT
+026A0	WARNING SIGN
+026A1	HIGH VOLTAGE SIGN
+026A2	DOUBLED FEMALE SIGN
+026A3	DOUBLED MALE SIGN
+026A4	INTERLOCKED FEMALE AND MALE SIGN
+026A5	MALE AND FEMALE SIGN
+026A6	MALE WITH STROKE SIGN
+026A7	MALE WITH STROKE AND MALE AND FEMALE SIGN
+026A8	VERTICAL MALE WITH STROKE SIGN
+026A9	HORIZONTAL MALE WITH STROKE SIGN
+026AA	MEDIUM WHITE CIRCLE
+026AB	MEDIUM BLACK CIRCLE
+026AC	MEDIUM SMALL WHITE CIRCLE
+026AD	MARRIAGE SYMBOL
+026AE	DIVORCE SYMBOL
+026AF	UNMARRIED PARTNERSHIP SYMBOL
+026B0	COFFIN
+026B1	FUNERAL URN
+026B2	NEUTER
+026B3	CERES
+026B4	PALLAS
+026B5	JUNO
+026B6	VESTA
+026B7	CHIRON
+026B8	BLACK MOON LILITH
+026B9	SEXTILE
+026BA	SEMISEXTILE
+026BB	QUINCUNX
+026BC	SESQUIQUADRATE
+026BD	SOCCER BALL
+026BE	BASEBALL
+026BF	SQUARED KEY
+026C0	WHITE DRAUGHTS MAN
+026C1	WHITE DRAUGHTS KING
+026C2	BLACK DRAUGHTS MAN
+026C3	BLACK DRAUGHTS KING
+026C4	SNOWMAN WITHOUT SNOW
+026C5	SUN BEHIND CLOUD
+026C6	RAIN
+026C7	BLACK SNOWMAN
+026C8	THUNDER CLOUD AND RAIN
+026C9	TURNED WHITE SHOGI PIECE
+026CA	TURNED BLACK SHOGI PIECE
+026CB	WHITE DIAMOND IN SQUARE
+026CC	CROSSING LANES
+026CD	DISABLED CAR
+026CE	OPHIUCHUS
+026CF	PICK
+026D0	CAR SLIDING
+026D1	HELMET WITH WHITE CROSS
+026D2	CIRCLED CROSSING LANES
+026D3	CHAINS
+026D4	NO ENTRY
+026D5	ALTERNATE ONE-WAY LEFT WAY TRAFFIC
+026D6	BLACK TWO-WAY LEFT WAY TRAFFIC
+026D7	WHITE TWO-WAY LEFT WAY TRAFFIC
+026D8	BLACK LEFT LANE MERGE
+026D9	WHITE LEFT LANE MERGE
+026DA	DRIVE SLOW SIGN
+026DB	HEAVY WHITE DOWN-POINTING TRIANGLE
+026DC	LEFT CLOSED ENTRY
+026DD	SQUARED SALTIRE
+026DE	FALLING DIAGONAL IN WHITE CIRCLE IN BLACK SQUARE
+026DF	BLACK TRUCK
+026E0	RESTRICTED LEFT ENTRY-1
+026E1	RESTRICTED LEFT ENTRY-2
+026E2	ASTRONOMICAL SYMBOL FOR URANUS
+026E3	HEAVY CIRCLE WITH STROKE AND TWO DOTS ABOVE
+026E4	PENTAGRAM
+026E5	RIGHT-HANDED INTERLACED PENTAGRAM
+026E6	LEFT-HANDED INTERLACED PENTAGRAM
+026E7	INVERTED PENTAGRAM
+026E8	BLACK CROSS ON SHIELD
+026E9	SHINTO SHRINE
+026EA	CHURCH
+026EB	CASTLE
+026EC	HISTORIC SITE
+026ED	GEAR WITHOUT HUB
+026EE	GEAR WITH HANDLES
+026EF	MAP SYMBOL FOR LIGHTHOUSE
+026F0	MOUNTAIN
+026F1	UMBRELLA ON GROUND
+026F2	FOUNTAIN
+026F3	FLAG IN HOLE
+026F4	FERRY
+026F5	SAILBOAT
+026F6	SQUARE FOUR CORNERS
+026F7	SKIER
+026F8	ICE SKATE
+026F9	PERSON WITH BALL
+026FA	TENT
+026FB	JAPANESE BANK SYMBOL
+026FC	HEADSTONE GRAVEYARD SYMBOL
+026FD	FUEL PUMP
+026FE	CUP ON BLACK SQUARE
+026FF	WHITE FLAG WITH HORIZONTAL MIDDLE BLACK STRIPE
+02700	BLACK SAFETY SCISSORS
+02701	UPPER BLADE SCISSORS
+02702	BLACK SCISSORS
+02703	LOWER BLADE SCISSORS
+02704	WHITE SCISSORS
+02705	WHITE HEAVY CHECK MARK
+02706	TELEPHONE LOCATION SIGN
+02707	TAPE DRIVE
+02708	AIRPLANE
+02709	ENVELOPE
+0270A	RAISED FIST
+0270B	RAISED HAND
+0270C	VICTORY HAND
+0270D	WRITING HAND
+0270E	LOWER RIGHT PENCIL
+0270F	PENCIL
+02710	UPPER RIGHT PENCIL
+02711	WHITE NIB
+02712	BLACK NIB
+02713	CHECK MARK
+02714	HEAVY CHECK MARK
+02715	MULTIPLICATION X
+02716	HEAVY MULTIPLICATION X
+02717	BALLOT X
+02718	HEAVY BALLOT X
+02719	OUTLINED GREEK CROSS
+0271A	HEAVY GREEK CROSS
+0271B	OPEN CENTRE CROSS
+0271C	HEAVY OPEN CENTRE CROSS
+0271D	LATIN CROSS
+0271E	SHADOWED WHITE LATIN CROSS
+0271F	OUTLINED LATIN CROSS
+02720	MALTESE CROSS
+02721	STAR OF DAVID
+02722	FOUR TEARDROP-SPOKED ASTERISK
+02723	FOUR BALLOON-SPOKED ASTERISK
+02724	HEAVY FOUR BALLOON-SPOKED ASTERISK
+02725	FOUR CLUB-SPOKED ASTERISK
+02726	BLACK FOUR POINTED STAR
+02727	WHITE FOUR POINTED STAR
+02728	SPARKLES
+02729	STRESS OUTLINED WHITE STAR
+0272A	CIRCLED WHITE STAR
+0272B	OPEN CENTRE BLACK STAR
+0272C	BLACK CENTRE WHITE STAR
+0272D	OUTLINED BLACK STAR
+0272E	HEAVY OUTLINED BLACK STAR
+0272F	PINWHEEL STAR
+02730	SHADOWED WHITE STAR
+02731	HEAVY ASTERISK
+02732	OPEN CENTRE ASTERISK
+02733	EIGHT SPOKED ASTERISK
+02734	EIGHT POINTED BLACK STAR
+02735	EIGHT POINTED PINWHEEL STAR
+02736	SIX POINTED BLACK STAR
+02737	EIGHT POINTED RECTILINEAR BLACK STAR
+02738	HEAVY EIGHT POINTED RECTILINEAR BLACK STAR
+02739	TWELVE POINTED BLACK STAR
+0273A	SIXTEEN POINTED ASTERISK
+0273B	TEARDROP-SPOKED ASTERISK
+0273C	OPEN CENTRE TEARDROP-SPOKED ASTERISK
+0273D	HEAVY TEARDROP-SPOKED ASTERISK
+0273E	SIX PETALLED BLACK AND WHITE FLORETTE
+0273F	BLACK FLORETTE
+02740	WHITE FLORETTE
+02741	EIGHT PETALLED OUTLINED BLACK FLORETTE
+02742	CIRCLED OPEN CENTRE EIGHT POINTED STAR
+02743	HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK
+02744	SNOWFLAKE
+02745	TIGHT TRIFOLIATE SNOWFLAKE
+02746	HEAVY CHEVRON SNOWFLAKE
+02747	SPARKLE
+02748	HEAVY SPARKLE
+02749	BALLOON-SPOKED ASTERISK
+0274A	EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0274B	HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0274C	CROSS MARK
+0274D	SHADOWED WHITE CIRCLE
+0274E	NEGATIVE SQUARED CROSS MARK
+0274F	LOWER RIGHT DROP-SHADOWED WHITE SQUARE
+02750	UPPER RIGHT DROP-SHADOWED WHITE SQUARE
+02751	LOWER RIGHT SHADOWED WHITE SQUARE
+02752	UPPER RIGHT SHADOWED WHITE SQUARE
+02753	BLACK QUESTION MARK ORNAMENT
+02754	WHITE QUESTION MARK ORNAMENT
+02755	WHITE EXCLAMATION MARK ORNAMENT
+02756	BLACK DIAMOND MINUS WHITE X
+02757	HEAVY EXCLAMATION MARK SYMBOL
+02758	LIGHT VERTICAL BAR
+02759	MEDIUM VERTICAL BAR
+0275A	HEAVY VERTICAL BAR
+0275B	HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT
+0275C	HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT
+0275D	HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+0275E	HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+0275F	HEAVY LOW SINGLE COMMA QUOTATION MARK ORNAMENT
+02760	HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+02761	CURVED STEM PARAGRAPH SIGN ORNAMENT
+02762	HEAVY EXCLAMATION MARK ORNAMENT
+02763	HEAVY HEART EXCLAMATION MARK ORNAMENT
+02764	HEAVY BLACK HEART
+02765	ROTATED HEAVY BLACK HEART BULLET
+02766	FLORAL HEART
+02767	ROTATED FLORAL HEART BULLET
+02768	MEDIUM LEFT PARENTHESIS ORNAMENT
+02769	MEDIUM RIGHT PARENTHESIS ORNAMENT
+0276A	MEDIUM FLATTENED LEFT PARENTHESIS ORNAMENT
+0276B	MEDIUM FLATTENED RIGHT PARENTHESIS ORNAMENT
+0276C	MEDIUM LEFT-POINTING ANGLE BRACKET ORNAMENT
+0276D	MEDIUM RIGHT-POINTING ANGLE BRACKET ORNAMENT
+0276E	HEAVY LEFT-POINTING ANGLE QUOTATION MARK ORNAMENT
+0276F	HEAVY RIGHT-POINTING ANGLE QUOTATION MARK ORNAMENT
+02770	HEAVY LEFT-POINTING ANGLE BRACKET ORNAMENT
+02771	HEAVY RIGHT-POINTING ANGLE BRACKET ORNAMENT
+02772	LIGHT LEFT TORTOISE SHELL BRACKET ORNAMENT
+02773	LIGHT RIGHT TORTOISE SHELL BRACKET ORNAMENT
+02774	MEDIUM LEFT CURLY BRACKET ORNAMENT
+02775	MEDIUM RIGHT CURLY BRACKET ORNAMENT
+02776	DINGBAT NEGATIVE CIRCLED DIGIT ONE
+02777	DINGBAT NEGATIVE CIRCLED DIGIT TWO
+02778	DINGBAT NEGATIVE CIRCLED DIGIT THREE
+02779	DINGBAT NEGATIVE CIRCLED DIGIT FOUR
+0277A	DINGBAT NEGATIVE CIRCLED DIGIT FIVE
+0277B	DINGBAT NEGATIVE CIRCLED DIGIT SIX
+0277C	DINGBAT NEGATIVE CIRCLED DIGIT SEVEN
+0277D	DINGBAT NEGATIVE CIRCLED DIGIT EIGHT
+0277E	DINGBAT NEGATIVE CIRCLED DIGIT NINE
+0277F	DINGBAT NEGATIVE CIRCLED NUMBER TEN
+02780	DINGBAT CIRCLED SANS-SERIF DIGIT ONE
+02781	DINGBAT CIRCLED SANS-SERIF DIGIT TWO
+02782	DINGBAT CIRCLED SANS-SERIF DIGIT THREE
+02783	DINGBAT CIRCLED SANS-SERIF DIGIT FOUR
+02784	DINGBAT CIRCLED SANS-SERIF DIGIT FIVE
+02785	DINGBAT CIRCLED SANS-SERIF DIGIT SIX
+02786	DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN
+02787	DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT
+02788	DINGBAT CIRCLED SANS-SERIF DIGIT NINE
+02789	DINGBAT CIRCLED SANS-SERIF NUMBER TEN
+0278A	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE
+0278B	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO
+0278C	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE
+0278D	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR
+0278E	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE
+0278F	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX
+02790	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN
+02791	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT
+02792	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE
+02793	DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN
+02794	HEAVY WIDE-HEADED RIGHTWARDS ARROW
+02795	HEAVY PLUS SIGN
+02796	HEAVY MINUS SIGN
+02797	HEAVY DIVISION SIGN
+02798	HEAVY SOUTH EAST ARROW
+02799	HEAVY RIGHTWARDS ARROW
+0279A	HEAVY NORTH EAST ARROW
+0279B	DRAFTING POINT RIGHTWARDS ARROW
+0279C	HEAVY ROUND-TIPPED RIGHTWARDS ARROW
+0279D	TRIANGLE-HEADED RIGHTWARDS ARROW
+0279E	HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW
+0279F	DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+027A0	HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+027A1	BLACK RIGHTWARDS ARROW
+027A2	THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD
+027A3	THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD
+027A4	BLACK RIGHTWARDS ARROWHEAD
+027A5	HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+027A6	HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+027A7	SQUAT BLACK RIGHTWARDS ARROW
+027A8	HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW
+027A9	RIGHT-SHADED WHITE RIGHTWARDS ARROW
+027AA	LEFT-SHADED WHITE RIGHTWARDS ARROW
+027AB	BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+027AC	FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+027AD	HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027AE	HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027AF	NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027B0	CURLY LOOP
+027B1	NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027B2	CIRCLED HEAVY WHITE RIGHTWARDS ARROW
+027B3	WHITE-FEATHERED RIGHTWARDS ARROW
+027B4	BLACK-FEATHERED SOUTH EAST ARROW
+027B5	BLACK-FEATHERED RIGHTWARDS ARROW
+027B6	BLACK-FEATHERED NORTH EAST ARROW
+027B7	HEAVY BLACK-FEATHERED SOUTH EAST ARROW
+027B8	HEAVY BLACK-FEATHERED RIGHTWARDS ARROW
+027B9	HEAVY BLACK-FEATHERED NORTH EAST ARROW
+027BA	TEARDROP-BARBED RIGHTWARDS ARROW
+027BB	HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW
+027BC	WEDGE-TAILED RIGHTWARDS ARROW
+027BD	HEAVY WEDGE-TAILED RIGHTWARDS ARROW
+027BE	OPEN-OUTLINED RIGHTWARDS ARROW
+027BF	DOUBLE CURLY LOOP
+027C0	THREE DIMENSIONAL ANGLE
+027C1	WHITE TRIANGLE CONTAINING SMALL WHITE TRIANGLE
+027C2	PERPENDICULAR
+027C3	OPEN SUBSET
+027C4	OPEN SUPERSET
+027C5	LEFT S-SHAPED BAG DELIMITER
+027C6	RIGHT S-SHAPED BAG DELIMITER
+027C7	OR WITH DOT INSIDE
+027C8	REVERSE SOLIDUS PRECEDING SUBSET
+027C9	SUPERSET PRECEDING SOLIDUS
+027CA	VERTICAL BAR WITH HORIZONTAL STROKE
+027CB	MATHEMATICAL RISING DIAGONAL
+027CC	LONG DIVISION
+027CD	MATHEMATICAL FALLING DIAGONAL
+027CE	SQUARED LOGICAL AND
+027CF	SQUARED LOGICAL OR
+027D0	WHITE DIAMOND WITH CENTRED DOT
+027D1	AND WITH DOT
+027D2	ELEMENT OF OPENING UPWARDS
+027D3	LOWER RIGHT CORNER WITH DOT
+027D4	UPPER LEFT CORNER WITH DOT
+027D5	LEFT OUTER JOIN
+027D6	RIGHT OUTER JOIN
+027D7	FULL OUTER JOIN
+027D8	LARGE UP TACK
+027D9	LARGE DOWN TACK
+027DA	LEFT AND RIGHT DOUBLE TURNSTILE
+027DB	LEFT AND RIGHT TACK
+027DC	LEFT MULTIMAP
+027DD	LONG RIGHT TACK
+027DE	LONG LEFT TACK
+027DF	UP TACK WITH CIRCLE ABOVE
+027E0	LOZENGE DIVIDED BY HORIZONTAL RULE
+027E1	WHITE CONCAVE-SIDED DIAMOND
+027E2	WHITE CONCAVE-SIDED DIAMOND WITH LEFTWARDS TICK
+027E3	WHITE CONCAVE-SIDED DIAMOND WITH RIGHTWARDS TICK
+027E4	WHITE SQUARE WITH LEFTWARDS TICK
+027E5	WHITE SQUARE WITH RIGHTWARDS TICK
+027E6	MATHEMATICAL LEFT WHITE SQUARE BRACKET
+027E7	MATHEMATICAL RIGHT WHITE SQUARE BRACKET
+027E8	MATHEMATICAL LEFT ANGLE BRACKET
+027E9	MATHEMATICAL RIGHT ANGLE BRACKET
+027EA	MATHEMATICAL LEFT DOUBLE ANGLE BRACKET
+027EB	MATHEMATICAL RIGHT DOUBLE ANGLE BRACKET
+027EC	MATHEMATICAL LEFT WHITE TORTOISE SHELL BRACKET
+027ED	MATHEMATICAL RIGHT WHITE TORTOISE SHELL BRACKET
+027EE	MATHEMATICAL LEFT FLATTENED PARENTHESIS
+027EF	MATHEMATICAL RIGHT FLATTENED PARENTHESIS
+027F0	UPWARDS QUADRUPLE ARROW
+027F1	DOWNWARDS QUADRUPLE ARROW
+027F2	ANTICLOCKWISE GAPPED CIRCLE ARROW
+027F3	CLOCKWISE GAPPED CIRCLE ARROW
+027F4	RIGHT ARROW WITH CIRCLED PLUS
+027F5	LONG LEFTWARDS ARROW
+027F6	LONG RIGHTWARDS ARROW
+027F7	LONG LEFT RIGHT ARROW
+027F8	LONG LEFTWARDS DOUBLE ARROW
+027F9	LONG RIGHTWARDS DOUBLE ARROW
+027FA	LONG LEFT RIGHT DOUBLE ARROW
+027FB	LONG LEFTWARDS ARROW FROM BAR
+027FC	LONG RIGHTWARDS ARROW FROM BAR
+027FD	LONG LEFTWARDS DOUBLE ARROW FROM BAR
+027FE	LONG RIGHTWARDS DOUBLE ARROW FROM BAR
+027FF	LONG RIGHTWARDS SQUIGGLE ARROW
+02800	BRAILLE PATTERN BLANK
+02801	BRAILLE PATTERN DOTS-1
+02802	BRAILLE PATTERN DOTS-2
+02803	BRAILLE PATTERN DOTS-12
+02804	BRAILLE PATTERN DOTS-3
+02805	BRAILLE PATTERN DOTS-13
+02806	BRAILLE PATTERN DOTS-23
+02807	BRAILLE PATTERN DOTS-123
+02808	BRAILLE PATTERN DOTS-4
+02809	BRAILLE PATTERN DOTS-14
+0280A	BRAILLE PATTERN DOTS-24
+0280B	BRAILLE PATTERN DOTS-124
+0280C	BRAILLE PATTERN DOTS-34
+0280D	BRAILLE PATTERN DOTS-134
+0280E	BRAILLE PATTERN DOTS-234
+0280F	BRAILLE PATTERN DOTS-1234
+02810	BRAILLE PATTERN DOTS-5
+02811	BRAILLE PATTERN DOTS-15
+02812	BRAILLE PATTERN DOTS-25
+02813	BRAILLE PATTERN DOTS-125
+02814	BRAILLE PATTERN DOTS-35
+02815	BRAILLE PATTERN DOTS-135
+02816	BRAILLE PATTERN DOTS-235
+02817	BRAILLE PATTERN DOTS-1235
+02818	BRAILLE PATTERN DOTS-45
+02819	BRAILLE PATTERN DOTS-145
+0281A	BRAILLE PATTERN DOTS-245
+0281B	BRAILLE PATTERN DOTS-1245
+0281C	BRAILLE PATTERN DOTS-345
+0281D	BRAILLE PATTERN DOTS-1345
+0281E	BRAILLE PATTERN DOTS-2345
+0281F	BRAILLE PATTERN DOTS-12345
+02820	BRAILLE PATTERN DOTS-6
+02821	BRAILLE PATTERN DOTS-16
+02822	BRAILLE PATTERN DOTS-26
+02823	BRAILLE PATTERN DOTS-126
+02824	BRAILLE PATTERN DOTS-36
+02825	BRAILLE PATTERN DOTS-136
+02826	BRAILLE PATTERN DOTS-236
+02827	BRAILLE PATTERN DOTS-1236
+02828	BRAILLE PATTERN DOTS-46
+02829	BRAILLE PATTERN DOTS-146
+0282A	BRAILLE PATTERN DOTS-246
+0282B	BRAILLE PATTERN DOTS-1246
+0282C	BRAILLE PATTERN DOTS-346
+0282D	BRAILLE PATTERN DOTS-1346
+0282E	BRAILLE PATTERN DOTS-2346
+0282F	BRAILLE PATTERN DOTS-12346
+02830	BRAILLE PATTERN DOTS-56
+02831	BRAILLE PATTERN DOTS-156
+02832	BRAILLE PATTERN DOTS-256
+02833	BRAILLE PATTERN DOTS-1256
+02834	BRAILLE PATTERN DOTS-356
+02835	BRAILLE PATTERN DOTS-1356
+02836	BRAILLE PATTERN DOTS-2356
+02837	BRAILLE PATTERN DOTS-12356
+02838	BRAILLE PATTERN DOTS-456
+02839	BRAILLE PATTERN DOTS-1456
+0283A	BRAILLE PATTERN DOTS-2456
+0283B	BRAILLE PATTERN DOTS-12456
+0283C	BRAILLE PATTERN DOTS-3456
+0283D	BRAILLE PATTERN DOTS-13456
+0283E	BRAILLE PATTERN DOTS-23456
+0283F	BRAILLE PATTERN DOTS-123456
+02840	BRAILLE PATTERN DOTS-7
+02841	BRAILLE PATTERN DOTS-17
+02842	BRAILLE PATTERN DOTS-27
+02843	BRAILLE PATTERN DOTS-127
+02844	BRAILLE PATTERN DOTS-37
+02845	BRAILLE PATTERN DOTS-137
+02846	BRAILLE PATTERN DOTS-237
+02847	BRAILLE PATTERN DOTS-1237
+02848	BRAILLE PATTERN DOTS-47
+02849	BRAILLE PATTERN DOTS-147
+0284A	BRAILLE PATTERN DOTS-247
+0284B	BRAILLE PATTERN DOTS-1247
+0284C	BRAILLE PATTERN DOTS-347
+0284D	BRAILLE PATTERN DOTS-1347
+0284E	BRAILLE PATTERN DOTS-2347
+0284F	BRAILLE PATTERN DOTS-12347
+02850	BRAILLE PATTERN DOTS-57
+02851	BRAILLE PATTERN DOTS-157
+02852	BRAILLE PATTERN DOTS-257
+02853	BRAILLE PATTERN DOTS-1257
+02854	BRAILLE PATTERN DOTS-357
+02855	BRAILLE PATTERN DOTS-1357
+02856	BRAILLE PATTERN DOTS-2357
+02857	BRAILLE PATTERN DOTS-12357
+02858	BRAILLE PATTERN DOTS-457
+02859	BRAILLE PATTERN DOTS-1457
+0285A	BRAILLE PATTERN DOTS-2457
+0285B	BRAILLE PATTERN DOTS-12457
+0285C	BRAILLE PATTERN DOTS-3457
+0285D	BRAILLE PATTERN DOTS-13457
+0285E	BRAILLE PATTERN DOTS-23457
+0285F	BRAILLE PATTERN DOTS-123457
+02860	BRAILLE PATTERN DOTS-67
+02861	BRAILLE PATTERN DOTS-167
+02862	BRAILLE PATTERN DOTS-267
+02863	BRAILLE PATTERN DOTS-1267
+02864	BRAILLE PATTERN DOTS-367
+02865	BRAILLE PATTERN DOTS-1367
+02866	BRAILLE PATTERN DOTS-2367
+02867	BRAILLE PATTERN DOTS-12367
+02868	BRAILLE PATTERN DOTS-467
+02869	BRAILLE PATTERN DOTS-1467
+0286A	BRAILLE PATTERN DOTS-2467
+0286B	BRAILLE PATTERN DOTS-12467
+0286C	BRAILLE PATTERN DOTS-3467
+0286D	BRAILLE PATTERN DOTS-13467
+0286E	BRAILLE PATTERN DOTS-23467
+0286F	BRAILLE PATTERN DOTS-123467
+02870	BRAILLE PATTERN DOTS-567
+02871	BRAILLE PATTERN DOTS-1567
+02872	BRAILLE PATTERN DOTS-2567
+02873	BRAILLE PATTERN DOTS-12567
+02874	BRAILLE PATTERN DOTS-3567
+02875	BRAILLE PATTERN DOTS-13567
+02876	BRAILLE PATTERN DOTS-23567
+02877	BRAILLE PATTERN DOTS-123567
+02878	BRAILLE PATTERN DOTS-4567
+02879	BRAILLE PATTERN DOTS-14567
+0287A	BRAILLE PATTERN DOTS-24567
+0287B	BRAILLE PATTERN DOTS-124567
+0287C	BRAILLE PATTERN DOTS-34567
+0287D	BRAILLE PATTERN DOTS-134567
+0287E	BRAILLE PATTERN DOTS-234567
+0287F	BRAILLE PATTERN DOTS-1234567
+02880	BRAILLE PATTERN DOTS-8
+02881	BRAILLE PATTERN DOTS-18
+02882	BRAILLE PATTERN DOTS-28
+02883	BRAILLE PATTERN DOTS-128
+02884	BRAILLE PATTERN DOTS-38
+02885	BRAILLE PATTERN DOTS-138
+02886	BRAILLE PATTERN DOTS-238
+02887	BRAILLE PATTERN DOTS-1238
+02888	BRAILLE PATTERN DOTS-48
+02889	BRAILLE PATTERN DOTS-148
+0288A	BRAILLE PATTERN DOTS-248
+0288B	BRAILLE PATTERN DOTS-1248
+0288C	BRAILLE PATTERN DOTS-348
+0288D	BRAILLE PATTERN DOTS-1348
+0288E	BRAILLE PATTERN DOTS-2348
+0288F	BRAILLE PATTERN DOTS-12348
+02890	BRAILLE PATTERN DOTS-58
+02891	BRAILLE PATTERN DOTS-158
+02892	BRAILLE PATTERN DOTS-258
+02893	BRAILLE PATTERN DOTS-1258
+02894	BRAILLE PATTERN DOTS-358
+02895	BRAILLE PATTERN DOTS-1358
+02896	BRAILLE PATTERN DOTS-2358
+02897	BRAILLE PATTERN DOTS-12358
+02898	BRAILLE PATTERN DOTS-458
+02899	BRAILLE PATTERN DOTS-1458
+0289A	BRAILLE PATTERN DOTS-2458
+0289B	BRAILLE PATTERN DOTS-12458
+0289C	BRAILLE PATTERN DOTS-3458
+0289D	BRAILLE PATTERN DOTS-13458
+0289E	BRAILLE PATTERN DOTS-23458
+0289F	BRAILLE PATTERN DOTS-123458
+028A0	BRAILLE PATTERN DOTS-68
+028A1	BRAILLE PATTERN DOTS-168
+028A2	BRAILLE PATTERN DOTS-268
+028A3	BRAILLE PATTERN DOTS-1268
+028A4	BRAILLE PATTERN DOTS-368
+028A5	BRAILLE PATTERN DOTS-1368
+028A6	BRAILLE PATTERN DOTS-2368
+028A7	BRAILLE PATTERN DOTS-12368
+028A8	BRAILLE PATTERN DOTS-468
+028A9	BRAILLE PATTERN DOTS-1468
+028AA	BRAILLE PATTERN DOTS-2468
+028AB	BRAILLE PATTERN DOTS-12468
+028AC	BRAILLE PATTERN DOTS-3468
+028AD	BRAILLE PATTERN DOTS-13468
+028AE	BRAILLE PATTERN DOTS-23468
+028AF	BRAILLE PATTERN DOTS-123468
+028B0	BRAILLE PATTERN DOTS-568
+028B1	BRAILLE PATTERN DOTS-1568
+028B2	BRAILLE PATTERN DOTS-2568
+028B3	BRAILLE PATTERN DOTS-12568
+028B4	BRAILLE PATTERN DOTS-3568
+028B5	BRAILLE PATTERN DOTS-13568
+028B6	BRAILLE PATTERN DOTS-23568
+028B7	BRAILLE PATTERN DOTS-123568
+028B8	BRAILLE PATTERN DOTS-4568
+028B9	BRAILLE PATTERN DOTS-14568
+028BA	BRAILLE PATTERN DOTS-24568
+028BB	BRAILLE PATTERN DOTS-124568
+028BC	BRAILLE PATTERN DOTS-34568
+028BD	BRAILLE PATTERN DOTS-134568
+028BE	BRAILLE PATTERN DOTS-234568
+028BF	BRAILLE PATTERN DOTS-1234568
+028C0	BRAILLE PATTERN DOTS-78
+028C1	BRAILLE PATTERN DOTS-178
+028C2	BRAILLE PATTERN DOTS-278
+028C3	BRAILLE PATTERN DOTS-1278
+028C4	BRAILLE PATTERN DOTS-378
+028C5	BRAILLE PATTERN DOTS-1378
+028C6	BRAILLE PATTERN DOTS-2378
+028C7	BRAILLE PATTERN DOTS-12378
+028C8	BRAILLE PATTERN DOTS-478
+028C9	BRAILLE PATTERN DOTS-1478
+028CA	BRAILLE PATTERN DOTS-2478
+028CB	BRAILLE PATTERN DOTS-12478
+028CC	BRAILLE PATTERN DOTS-3478
+028CD	BRAILLE PATTERN DOTS-13478
+028CE	BRAILLE PATTERN DOTS-23478
+028CF	BRAILLE PATTERN DOTS-123478
+028D0	BRAILLE PATTERN DOTS-578
+028D1	BRAILLE PATTERN DOTS-1578
+028D2	BRAILLE PATTERN DOTS-2578
+028D3	BRAILLE PATTERN DOTS-12578
+028D4	BRAILLE PATTERN DOTS-3578
+028D5	BRAILLE PATTERN DOTS-13578
+028D6	BRAILLE PATTERN DOTS-23578
+028D7	BRAILLE PATTERN DOTS-123578
+028D8	BRAILLE PATTERN DOTS-4578
+028D9	BRAILLE PATTERN DOTS-14578
+028DA	BRAILLE PATTERN DOTS-24578
+028DB	BRAILLE PATTERN DOTS-124578
+028DC	BRAILLE PATTERN DOTS-34578
+028DD	BRAILLE PATTERN DOTS-134578
+028DE	BRAILLE PATTERN DOTS-234578
+028DF	BRAILLE PATTERN DOTS-1234578
+028E0	BRAILLE PATTERN DOTS-678
+028E1	BRAILLE PATTERN DOTS-1678
+028E2	BRAILLE PATTERN DOTS-2678
+028E3	BRAILLE PATTERN DOTS-12678
+028E4	BRAILLE PATTERN DOTS-3678
+028E5	BRAILLE PATTERN DOTS-13678
+028E6	BRAILLE PATTERN DOTS-23678
+028E7	BRAILLE PATTERN DOTS-123678
+028E8	BRAILLE PATTERN DOTS-4678
+028E9	BRAILLE PATTERN DOTS-14678
+028EA	BRAILLE PATTERN DOTS-24678
+028EB	BRAILLE PATTERN DOTS-124678
+028EC	BRAILLE PATTERN DOTS-34678
+028ED	BRAILLE PATTERN DOTS-134678
+028EE	BRAILLE PATTERN DOTS-234678
+028EF	BRAILLE PATTERN DOTS-1234678
+028F0	BRAILLE PATTERN DOTS-5678
+028F1	BRAILLE PATTERN DOTS-15678
+028F2	BRAILLE PATTERN DOTS-25678
+028F3	BRAILLE PATTERN DOTS-125678
+028F4	BRAILLE PATTERN DOTS-35678
+028F5	BRAILLE PATTERN DOTS-135678
+028F6	BRAILLE PATTERN DOTS-235678
+028F7	BRAILLE PATTERN DOTS-1235678
+028F8	BRAILLE PATTERN DOTS-45678
+028F9	BRAILLE PATTERN DOTS-145678
+028FA	BRAILLE PATTERN DOTS-245678
+028FB	BRAILLE PATTERN DOTS-1245678
+028FC	BRAILLE PATTERN DOTS-345678
+028FD	BRAILLE PATTERN DOTS-1345678
+028FE	BRAILLE PATTERN DOTS-2345678
+028FF	BRAILLE PATTERN DOTS-12345678
+02900	RIGHTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+02901	RIGHTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02902	LEFTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+02903	RIGHTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+02904	LEFT RIGHT DOUBLE ARROW WITH VERTICAL STROKE
+02905	RIGHTWARDS TWO-HEADED ARROW FROM BAR
+02906	LEFTWARDS DOUBLE ARROW FROM BAR
+02907	RIGHTWARDS DOUBLE ARROW FROM BAR
+02908	DOWNWARDS ARROW WITH HORIZONTAL STROKE
+02909	UPWARDS ARROW WITH HORIZONTAL STROKE
+0290A	UPWARDS TRIPLE ARROW
+0290B	DOWNWARDS TRIPLE ARROW
+0290C	LEFTWARDS DOUBLE DASH ARROW
+0290D	RIGHTWARDS DOUBLE DASH ARROW
+0290E	LEFTWARDS TRIPLE DASH ARROW
+0290F	RIGHTWARDS TRIPLE DASH ARROW
+02910	RIGHTWARDS TWO-HEADED TRIPLE DASH ARROW
+02911	RIGHTWARDS ARROW WITH DOTTED STEM
+02912	UPWARDS ARROW TO BAR
+02913	DOWNWARDS ARROW TO BAR
+02914	RIGHTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+02915	RIGHTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02916	RIGHTWARDS TWO-HEADED ARROW WITH TAIL
+02917	RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+02918	RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02919	LEFTWARDS ARROW-TAIL
+0291A	RIGHTWARDS ARROW-TAIL
+0291B	LEFTWARDS DOUBLE ARROW-TAIL
+0291C	RIGHTWARDS DOUBLE ARROW-TAIL
+0291D	LEFTWARDS ARROW TO BLACK DIAMOND
+0291E	RIGHTWARDS ARROW TO BLACK DIAMOND
+0291F	LEFTWARDS ARROW FROM BAR TO BLACK DIAMOND
+02920	RIGHTWARDS ARROW FROM BAR TO BLACK DIAMOND
+02921	NORTH WEST AND SOUTH EAST ARROW
+02922	NORTH EAST AND SOUTH WEST ARROW
+02923	NORTH WEST ARROW WITH HOOK
+02924	NORTH EAST ARROW WITH HOOK
+02925	SOUTH EAST ARROW WITH HOOK
+02926	SOUTH WEST ARROW WITH HOOK
+02927	NORTH WEST ARROW AND NORTH EAST ARROW
+02928	NORTH EAST ARROW AND SOUTH EAST ARROW
+02929	SOUTH EAST ARROW AND SOUTH WEST ARROW
+0292A	SOUTH WEST ARROW AND NORTH WEST ARROW
+0292B	RISING DIAGONAL CROSSING FALLING DIAGONAL
+0292C	FALLING DIAGONAL CROSSING RISING DIAGONAL
+0292D	SOUTH EAST ARROW CROSSING NORTH EAST ARROW
+0292E	NORTH EAST ARROW CROSSING SOUTH EAST ARROW
+0292F	FALLING DIAGONAL CROSSING NORTH EAST ARROW
+02930	RISING DIAGONAL CROSSING SOUTH EAST ARROW
+02931	NORTH EAST ARROW CROSSING NORTH WEST ARROW
+02932	NORTH WEST ARROW CROSSING NORTH EAST ARROW
+02933	WAVE ARROW POINTING DIRECTLY RIGHT
+02934	ARROW POINTING RIGHTWARDS THEN CURVING UPWARDS
+02935	ARROW POINTING RIGHTWARDS THEN CURVING DOWNWARDS
+02936	ARROW POINTING DOWNWARDS THEN CURVING LEFTWARDS
+02937	ARROW POINTING DOWNWARDS THEN CURVING RIGHTWARDS
+02938	RIGHT-SIDE ARC CLOCKWISE ARROW
+02939	LEFT-SIDE ARC ANTICLOCKWISE ARROW
+0293A	TOP ARC ANTICLOCKWISE ARROW
+0293B	BOTTOM ARC ANTICLOCKWISE ARROW
+0293C	TOP ARC CLOCKWISE ARROW WITH MINUS
+0293D	TOP ARC ANTICLOCKWISE ARROW WITH PLUS
+0293E	LOWER RIGHT SEMICIRCULAR CLOCKWISE ARROW
+0293F	LOWER LEFT SEMICIRCULAR ANTICLOCKWISE ARROW
+02940	ANTICLOCKWISE CLOSED CIRCLE ARROW
+02941	CLOCKWISE CLOSED CIRCLE ARROW
+02942	RIGHTWARDS ARROW ABOVE SHORT LEFTWARDS ARROW
+02943	LEFTWARDS ARROW ABOVE SHORT RIGHTWARDS ARROW
+02944	SHORT RIGHTWARDS ARROW ABOVE LEFTWARDS ARROW
+02945	RIGHTWARDS ARROW WITH PLUS BELOW
+02946	LEFTWARDS ARROW WITH PLUS BELOW
+02947	RIGHTWARDS ARROW THROUGH X
+02948	LEFT RIGHT ARROW THROUGH SMALL CIRCLE
+02949	UPWARDS TWO-HEADED ARROW FROM SMALL CIRCLE
+0294A	LEFT BARB UP RIGHT BARB DOWN HARPOON
+0294B	LEFT BARB DOWN RIGHT BARB UP HARPOON
+0294C	UP BARB RIGHT DOWN BARB LEFT HARPOON
+0294D	UP BARB LEFT DOWN BARB RIGHT HARPOON
+0294E	LEFT BARB UP RIGHT BARB UP HARPOON
+0294F	UP BARB RIGHT DOWN BARB RIGHT HARPOON
+02950	LEFT BARB DOWN RIGHT BARB DOWN HARPOON
+02951	UP BARB LEFT DOWN BARB LEFT HARPOON
+02952	LEFTWARDS HARPOON WITH BARB UP TO BAR
+02953	RIGHTWARDS HARPOON WITH BARB UP TO BAR
+02954	UPWARDS HARPOON WITH BARB RIGHT TO BAR
+02955	DOWNWARDS HARPOON WITH BARB RIGHT TO BAR
+02956	LEFTWARDS HARPOON WITH BARB DOWN TO BAR
+02957	RIGHTWARDS HARPOON WITH BARB DOWN TO BAR
+02958	UPWARDS HARPOON WITH BARB LEFT TO BAR
+02959	DOWNWARDS HARPOON WITH BARB LEFT TO BAR
+0295A	LEFTWARDS HARPOON WITH BARB UP FROM BAR
+0295B	RIGHTWARDS HARPOON WITH BARB UP FROM BAR
+0295C	UPWARDS HARPOON WITH BARB RIGHT FROM BAR
+0295D	DOWNWARDS HARPOON WITH BARB RIGHT FROM BAR
+0295E	LEFTWARDS HARPOON WITH BARB DOWN FROM BAR
+0295F	RIGHTWARDS HARPOON WITH BARB DOWN FROM BAR
+02960	UPWARDS HARPOON WITH BARB LEFT FROM BAR
+02961	DOWNWARDS HARPOON WITH BARB LEFT FROM BAR
+02962	LEFTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+02963	UPWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+02964	RIGHTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+02965	DOWNWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+02966	LEFTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB UP
+02967	LEFTWARDS HARPOON WITH BARB DOWN ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+02968	RIGHTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB UP
+02969	RIGHTWARDS HARPOON WITH BARB DOWN ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+0296A	LEFTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+0296B	LEFTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+0296C	RIGHTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+0296D	RIGHTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+0296E	UPWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+0296F	DOWNWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+02970	RIGHT DOUBLE ARROW WITH ROUNDED HEAD
+02971	EQUALS SIGN ABOVE RIGHTWARDS ARROW
+02972	TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+02973	LEFTWARDS ARROW ABOVE TILDE OPERATOR
+02974	RIGHTWARDS ARROW ABOVE TILDE OPERATOR
+02975	RIGHTWARDS ARROW ABOVE ALMOST EQUAL TO
+02976	LESS-THAN ABOVE LEFTWARDS ARROW
+02977	LEFTWARDS ARROW THROUGH LESS-THAN
+02978	GREATER-THAN ABOVE RIGHTWARDS ARROW
+02979	SUBSET ABOVE RIGHTWARDS ARROW
+0297A	LEFTWARDS ARROW THROUGH SUBSET
+0297B	SUPERSET ABOVE LEFTWARDS ARROW
+0297C	LEFT FISH TAIL
+0297D	RIGHT FISH TAIL
+0297E	UP FISH TAIL
+0297F	DOWN FISH TAIL
+02980	TRIPLE VERTICAL BAR DELIMITER
+02981	Z NOTATION SPOT
+02982	Z NOTATION TYPE COLON
+02983	LEFT WHITE CURLY BRACKET
+02984	RIGHT WHITE CURLY BRACKET
+02985	LEFT WHITE PARENTHESIS
+02986	RIGHT WHITE PARENTHESIS
+02987	Z NOTATION LEFT IMAGE BRACKET
+02988	Z NOTATION RIGHT IMAGE BRACKET
+02989	Z NOTATION LEFT BINDING BRACKET
+0298A	Z NOTATION RIGHT BINDING BRACKET
+0298B	LEFT SQUARE BRACKET WITH UNDERBAR
+0298C	RIGHT SQUARE BRACKET WITH UNDERBAR
+0298D	LEFT SQUARE BRACKET WITH TICK IN TOP CORNER
+0298E	RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+0298F	LEFT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+02990	RIGHT SQUARE BRACKET WITH TICK IN TOP CORNER
+02991	LEFT ANGLE BRACKET WITH DOT
+02992	RIGHT ANGLE BRACKET WITH DOT
+02993	LEFT ARC LESS-THAN BRACKET
+02994	RIGHT ARC GREATER-THAN BRACKET
+02995	DOUBLE LEFT ARC GREATER-THAN BRACKET
+02996	DOUBLE RIGHT ARC LESS-THAN BRACKET
+02997	LEFT BLACK TORTOISE SHELL BRACKET
+02998	RIGHT BLACK TORTOISE SHELL BRACKET
+02999	DOTTED FENCE
+0299A	VERTICAL ZIGZAG LINE
+0299B	MEASURED ANGLE OPENING LEFT
+0299C	RIGHT ANGLE VARIANT WITH SQUARE
+0299D	MEASURED RIGHT ANGLE WITH DOT
+0299E	ANGLE WITH S INSIDE
+0299F	ACUTE ANGLE
+029A0	SPHERICAL ANGLE OPENING LEFT
+029A1	SPHERICAL ANGLE OPENING UP
+029A2	TURNED ANGLE
+029A3	REVERSED ANGLE
+029A4	ANGLE WITH UNDERBAR
+029A5	REVERSED ANGLE WITH UNDERBAR
+029A6	OBLIQUE ANGLE OPENING UP
+029A7	OBLIQUE ANGLE OPENING DOWN
+029A8	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND RIGHT
+029A9	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND LEFT
+029AA	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND RIGHT
+029AB	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND LEFT
+029AC	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND UP
+029AD	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND UP
+029AE	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND DOWN
+029AF	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND DOWN
+029B0	REVERSED EMPTY SET
+029B1	EMPTY SET WITH OVERBAR
+029B2	EMPTY SET WITH SMALL CIRCLE ABOVE
+029B3	EMPTY SET WITH RIGHT ARROW ABOVE
+029B4	EMPTY SET WITH LEFT ARROW ABOVE
+029B5	CIRCLE WITH HORIZONTAL BAR
+029B6	CIRCLED VERTICAL BAR
+029B7	CIRCLED PARALLEL
+029B8	CIRCLED REVERSE SOLIDUS
+029B9	CIRCLED PERPENDICULAR
+029BA	CIRCLE DIVIDED BY HORIZONTAL BAR AND TOP HALF DIVIDED BY VERTICAL BAR
+029BB	CIRCLE WITH SUPERIMPOSED X
+029BC	CIRCLED ANTICLOCKWISE-ROTATED DIVISION SIGN
+029BD	UP ARROW THROUGH CIRCLE
+029BE	CIRCLED WHITE BULLET
+029BF	CIRCLED BULLET
+029C0	CIRCLED LESS-THAN
+029C1	CIRCLED GREATER-THAN
+029C2	CIRCLE WITH SMALL CIRCLE TO THE RIGHT
+029C3	CIRCLE WITH TWO HORIZONTAL STROKES TO THE RIGHT
+029C4	SQUARED RISING DIAGONAL SLASH
+029C5	SQUARED FALLING DIAGONAL SLASH
+029C6	SQUARED ASTERISK
+029C7	SQUARED SMALL CIRCLE
+029C8	SQUARED SQUARE
+029C9	TWO JOINED SQUARES
+029CA	TRIANGLE WITH DOT ABOVE
+029CB	TRIANGLE WITH UNDERBAR
+029CC	S IN TRIANGLE
+029CD	TRIANGLE WITH SERIFS AT BOTTOM
+029CE	RIGHT TRIANGLE ABOVE LEFT TRIANGLE
+029CF	LEFT TRIANGLE BESIDE VERTICAL BAR
+029D0	VERTICAL BAR BESIDE RIGHT TRIANGLE
+029D1	BOWTIE WITH LEFT HALF BLACK
+029D2	BOWTIE WITH RIGHT HALF BLACK
+029D3	BLACK BOWTIE
+029D4	TIMES WITH LEFT HALF BLACK
+029D5	TIMES WITH RIGHT HALF BLACK
+029D6	WHITE HOURGLASS
+029D7	BLACK HOURGLASS
+029D8	LEFT WIGGLY FENCE
+029D9	RIGHT WIGGLY FENCE
+029DA	LEFT DOUBLE WIGGLY FENCE
+029DB	RIGHT DOUBLE WIGGLY FENCE
+029DC	INCOMPLETE INFINITY
+029DD	TIE OVER INFINITY
+029DE	INFINITY NEGATED WITH VERTICAL BAR
+029DF	DOUBLE-ENDED MULTIMAP
+029E0	SQUARE WITH CONTOURED OUTLINE
+029E1	INCREASES AS
+029E2	SHUFFLE PRODUCT
+029E3	EQUALS SIGN AND SLANTED PARALLEL
+029E4	EQUALS SIGN AND SLANTED PARALLEL WITH TILDE ABOVE
+029E5	IDENTICAL TO AND SLANTED PARALLEL
+029E6	GLEICH STARK
+029E7	THERMODYNAMIC
+029E8	DOWN-POINTING TRIANGLE WITH LEFT HALF BLACK
+029E9	DOWN-POINTING TRIANGLE WITH RIGHT HALF BLACK
+029EA	BLACK DIAMOND WITH DOWN ARROW
+029EB	BLACK LOZENGE
+029EC	WHITE CIRCLE WITH DOWN ARROW
+029ED	BLACK CIRCLE WITH DOWN ARROW
+029EE	ERROR-BARRED WHITE SQUARE
+029EF	ERROR-BARRED BLACK SQUARE
+029F0	ERROR-BARRED WHITE DIAMOND
+029F1	ERROR-BARRED BLACK DIAMOND
+029F2	ERROR-BARRED WHITE CIRCLE
+029F3	ERROR-BARRED BLACK CIRCLE
+029F4	RULE-DELAYED
+029F5	REVERSE SOLIDUS OPERATOR
+029F6	SOLIDUS WITH OVERBAR
+029F7	REVERSE SOLIDUS WITH HORIZONTAL STROKE
+029F8	BIG SOLIDUS
+029F9	BIG REVERSE SOLIDUS
+029FA	DOUBLE PLUS
+029FB	TRIPLE PLUS
+029FC	LEFT-POINTING CURVED ANGLE BRACKET
+029FD	RIGHT-POINTING CURVED ANGLE BRACKET
+029FE	TINY
+029FF	MINY
+02A00	N-ARY CIRCLED DOT OPERATOR
+02A01	N-ARY CIRCLED PLUS OPERATOR
+02A02	N-ARY CIRCLED TIMES OPERATOR
+02A03	N-ARY UNION OPERATOR WITH DOT
+02A04	N-ARY UNION OPERATOR WITH PLUS
+02A05	N-ARY SQUARE INTERSECTION OPERATOR
+02A06	N-ARY SQUARE UNION OPERATOR
+02A07	TWO LOGICAL AND OPERATOR
+02A08	TWO LOGICAL OR OPERATOR
+02A09	N-ARY TIMES OPERATOR
+02A0A	MODULO TWO SUM
+02A0B	SUMMATION WITH INTEGRAL
+02A0C	QUADRUPLE INTEGRAL OPERATOR
+02A0D	FINITE PART INTEGRAL
+02A0E	INTEGRAL WITH DOUBLE STROKE
+02A0F	INTEGRAL AVERAGE WITH SLASH
+02A10	CIRCULATION FUNCTION
+02A11	ANTICLOCKWISE INTEGRATION
+02A12	LINE INTEGRATION WITH RECTANGULAR PATH AROUND POLE
+02A13	LINE INTEGRATION WITH SEMICIRCULAR PATH AROUND POLE
+02A14	LINE INTEGRATION NOT INCLUDING THE POLE
+02A15	INTEGRAL AROUND A POINT OPERATOR
+02A16	QUATERNION INTEGRAL OPERATOR
+02A17	INTEGRAL WITH LEFTWARDS ARROW WITH HOOK
+02A18	INTEGRAL WITH TIMES SIGN
+02A19	INTEGRAL WITH INTERSECTION
+02A1A	INTEGRAL WITH UNION
+02A1B	INTEGRAL WITH OVERBAR
+02A1C	INTEGRAL WITH UNDERBAR
+02A1D	JOIN
+02A1E	LARGE LEFT TRIANGLE OPERATOR
+02A1F	Z NOTATION SCHEMA COMPOSITION
+02A20	Z NOTATION SCHEMA PIPING
+02A21	Z NOTATION SCHEMA PROJECTION
+02A22	PLUS SIGN WITH SMALL CIRCLE ABOVE
+02A23	PLUS SIGN WITH CIRCUMFLEX ACCENT ABOVE
+02A24	PLUS SIGN WITH TILDE ABOVE
+02A25	PLUS SIGN WITH DOT BELOW
+02A26	PLUS SIGN WITH TILDE BELOW
+02A27	PLUS SIGN WITH SUBSCRIPT TWO
+02A28	PLUS SIGN WITH BLACK TRIANGLE
+02A29	MINUS SIGN WITH COMMA ABOVE
+02A2A	MINUS SIGN WITH DOT BELOW
+02A2B	MINUS SIGN WITH FALLING DOTS
+02A2C	MINUS SIGN WITH RISING DOTS
+02A2D	PLUS SIGN IN LEFT HALF CIRCLE
+02A2E	PLUS SIGN IN RIGHT HALF CIRCLE
+02A2F	VECTOR OR CROSS PRODUCT
+02A30	MULTIPLICATION SIGN WITH DOT ABOVE
+02A31	MULTIPLICATION SIGN WITH UNDERBAR
+02A32	SEMIDIRECT PRODUCT WITH BOTTOM CLOSED
+02A33	SMASH PRODUCT
+02A34	MULTIPLICATION SIGN IN LEFT HALF CIRCLE
+02A35	MULTIPLICATION SIGN IN RIGHT HALF CIRCLE
+02A36	CIRCLED MULTIPLICATION SIGN WITH CIRCUMFLEX ACCENT
+02A37	MULTIPLICATION SIGN IN DOUBLE CIRCLE
+02A38	CIRCLED DIVISION SIGN
+02A39	PLUS SIGN IN TRIANGLE
+02A3A	MINUS SIGN IN TRIANGLE
+02A3B	MULTIPLICATION SIGN IN TRIANGLE
+02A3C	INTERIOR PRODUCT
+02A3D	RIGHTHAND INTERIOR PRODUCT
+02A3E	Z NOTATION RELATIONAL COMPOSITION
+02A3F	AMALGAMATION OR COPRODUCT
+02A40	INTERSECTION WITH DOT
+02A41	UNION WITH MINUS SIGN
+02A42	UNION WITH OVERBAR
+02A43	INTERSECTION WITH OVERBAR
+02A44	INTERSECTION WITH LOGICAL AND
+02A45	UNION WITH LOGICAL OR
+02A46	UNION ABOVE INTERSECTION
+02A47	INTERSECTION ABOVE UNION
+02A48	UNION ABOVE BAR ABOVE INTERSECTION
+02A49	INTERSECTION ABOVE BAR ABOVE UNION
+02A4A	UNION BESIDE AND JOINED WITH UNION
+02A4B	INTERSECTION BESIDE AND JOINED WITH INTERSECTION
+02A4C	CLOSED UNION WITH SERIFS
+02A4D	CLOSED INTERSECTION WITH SERIFS
+02A4E	DOUBLE SQUARE INTERSECTION
+02A4F	DOUBLE SQUARE UNION
+02A50	CLOSED UNION WITH SERIFS AND SMASH PRODUCT
+02A51	LOGICAL AND WITH DOT ABOVE
+02A52	LOGICAL OR WITH DOT ABOVE
+02A53	DOUBLE LOGICAL AND
+02A54	DOUBLE LOGICAL OR
+02A55	TWO INTERSECTING LOGICAL AND
+02A56	TWO INTERSECTING LOGICAL OR
+02A57	SLOPING LARGE OR
+02A58	SLOPING LARGE AND
+02A59	LOGICAL OR OVERLAPPING LOGICAL AND
+02A5A	LOGICAL AND WITH MIDDLE STEM
+02A5B	LOGICAL OR WITH MIDDLE STEM
+02A5C	LOGICAL AND WITH HORIZONTAL DASH
+02A5D	LOGICAL OR WITH HORIZONTAL DASH
+02A5E	LOGICAL AND WITH DOUBLE OVERBAR
+02A5F	LOGICAL AND WITH UNDERBAR
+02A60	LOGICAL AND WITH DOUBLE UNDERBAR
+02A61	SMALL VEE WITH UNDERBAR
+02A62	LOGICAL OR WITH DOUBLE OVERBAR
+02A63	LOGICAL OR WITH DOUBLE UNDERBAR
+02A64	Z NOTATION DOMAIN ANTIRESTRICTION
+02A65	Z NOTATION RANGE ANTIRESTRICTION
+02A66	EQUALS SIGN WITH DOT BELOW
+02A67	IDENTICAL WITH DOT ABOVE
+02A68	TRIPLE HORIZONTAL BAR WITH DOUBLE VERTICAL STROKE
+02A69	TRIPLE HORIZONTAL BAR WITH TRIPLE VERTICAL STROKE
+02A6A	TILDE OPERATOR WITH DOT ABOVE
+02A6B	TILDE OPERATOR WITH RISING DOTS
+02A6C	SIMILAR MINUS SIMILAR
+02A6D	CONGRUENT WITH DOT ABOVE
+02A6E	EQUALS WITH ASTERISK
+02A6F	ALMOST EQUAL TO WITH CIRCUMFLEX ACCENT
+02A70	APPROXIMATELY EQUAL OR EQUAL TO
+02A71	EQUALS SIGN ABOVE PLUS SIGN
+02A72	PLUS SIGN ABOVE EQUALS SIGN
+02A73	EQUALS SIGN ABOVE TILDE OPERATOR
+02A74	DOUBLE COLON EQUAL
+02A75	TWO CONSECUTIVE EQUALS SIGNS
+02A76	THREE CONSECUTIVE EQUALS SIGNS
+02A77	EQUALS SIGN WITH TWO DOTS ABOVE AND TWO DOTS BELOW
+02A78	EQUIVALENT WITH FOUR DOTS ABOVE
+02A79	LESS-THAN WITH CIRCLE INSIDE
+02A7A	GREATER-THAN WITH CIRCLE INSIDE
+02A7B	LESS-THAN WITH QUESTION MARK ABOVE
+02A7C	GREATER-THAN WITH QUESTION MARK ABOVE
+02A7D	LESS-THAN OR SLANTED EQUAL TO
+02A7E	GREATER-THAN OR SLANTED EQUAL TO
+02A7F	LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+02A80	GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+02A81	LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+02A82	GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+02A83	LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE RIGHT
+02A84	GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE LEFT
+02A85	LESS-THAN OR APPROXIMATE
+02A86	GREATER-THAN OR APPROXIMATE
+02A87	LESS-THAN AND SINGLE-LINE NOT EQUAL TO
+02A88	GREATER-THAN AND SINGLE-LINE NOT EQUAL TO
+02A89	LESS-THAN AND NOT APPROXIMATE
+02A8A	GREATER-THAN AND NOT APPROXIMATE
+02A8B	LESS-THAN ABOVE DOUBLE-LINE EQUAL ABOVE GREATER-THAN
+02A8C	GREATER-THAN ABOVE DOUBLE-LINE EQUAL ABOVE LESS-THAN
+02A8D	LESS-THAN ABOVE SIMILAR OR EQUAL
+02A8E	GREATER-THAN ABOVE SIMILAR OR EQUAL
+02A8F	LESS-THAN ABOVE SIMILAR ABOVE GREATER-THAN
+02A90	GREATER-THAN ABOVE SIMILAR ABOVE LESS-THAN
+02A91	LESS-THAN ABOVE GREATER-THAN ABOVE DOUBLE-LINE EQUAL
+02A92	GREATER-THAN ABOVE LESS-THAN ABOVE DOUBLE-LINE EQUAL
+02A93	LESS-THAN ABOVE SLANTED EQUAL ABOVE GREATER-THAN ABOVE SLANTED EQUAL
+02A94	GREATER-THAN ABOVE SLANTED EQUAL ABOVE LESS-THAN ABOVE SLANTED EQUAL
+02A95	SLANTED EQUAL TO OR LESS-THAN
+02A96	SLANTED EQUAL TO OR GREATER-THAN
+02A97	SLANTED EQUAL TO OR LESS-THAN WITH DOT INSIDE
+02A98	SLANTED EQUAL TO OR GREATER-THAN WITH DOT INSIDE
+02A99	DOUBLE-LINE EQUAL TO OR LESS-THAN
+02A9A	DOUBLE-LINE EQUAL TO OR GREATER-THAN
+02A9B	DOUBLE-LINE SLANTED EQUAL TO OR LESS-THAN
+02A9C	DOUBLE-LINE SLANTED EQUAL TO OR GREATER-THAN
+02A9D	SIMILAR OR LESS-THAN
+02A9E	SIMILAR OR GREATER-THAN
+02A9F	SIMILAR ABOVE LESS-THAN ABOVE EQUALS SIGN
+02AA0	SIMILAR ABOVE GREATER-THAN ABOVE EQUALS SIGN
+02AA1	DOUBLE NESTED LESS-THAN
+02AA2	DOUBLE NESTED GREATER-THAN
+02AA3	DOUBLE NESTED LESS-THAN WITH UNDERBAR
+02AA4	GREATER-THAN OVERLAPPING LESS-THAN
+02AA5	GREATER-THAN BESIDE LESS-THAN
+02AA6	LESS-THAN CLOSED BY CURVE
+02AA7	GREATER-THAN CLOSED BY CURVE
+02AA8	LESS-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+02AA9	GREATER-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+02AAA	SMALLER THAN
+02AAB	LARGER THAN
+02AAC	SMALLER THAN OR EQUAL TO
+02AAD	LARGER THAN OR EQUAL TO
+02AAE	EQUALS SIGN WITH BUMPY ABOVE
+02AAF	PRECEDES ABOVE SINGLE-LINE EQUALS SIGN
+02AB0	SUCCEEDS ABOVE SINGLE-LINE EQUALS SIGN
+02AB1	PRECEDES ABOVE SINGLE-LINE NOT EQUAL TO
+02AB2	SUCCEEDS ABOVE SINGLE-LINE NOT EQUAL TO
+02AB3	PRECEDES ABOVE EQUALS SIGN
+02AB4	SUCCEEDS ABOVE EQUALS SIGN
+02AB5	PRECEDES ABOVE NOT EQUAL TO
+02AB6	SUCCEEDS ABOVE NOT EQUAL TO
+02AB7	PRECEDES ABOVE ALMOST EQUAL TO
+02AB8	SUCCEEDS ABOVE ALMOST EQUAL TO
+02AB9	PRECEDES ABOVE NOT ALMOST EQUAL TO
+02ABA	SUCCEEDS ABOVE NOT ALMOST EQUAL TO
+02ABB	DOUBLE PRECEDES
+02ABC	DOUBLE SUCCEEDS
+02ABD	SUBSET WITH DOT
+02ABE	SUPERSET WITH DOT
+02ABF	SUBSET WITH PLUS SIGN BELOW
+02AC0	SUPERSET WITH PLUS SIGN BELOW
+02AC1	SUBSET WITH MULTIPLICATION SIGN BELOW
+02AC2	SUPERSET WITH MULTIPLICATION SIGN BELOW
+02AC3	SUBSET OF OR EQUAL TO WITH DOT ABOVE
+02AC4	SUPERSET OF OR EQUAL TO WITH DOT ABOVE
+02AC5	SUBSET OF ABOVE EQUALS SIGN
+02AC6	SUPERSET OF ABOVE EQUALS SIGN
+02AC7	SUBSET OF ABOVE TILDE OPERATOR
+02AC8	SUPERSET OF ABOVE TILDE OPERATOR
+02AC9	SUBSET OF ABOVE ALMOST EQUAL TO
+02ACA	SUPERSET OF ABOVE ALMOST EQUAL TO
+02ACB	SUBSET OF ABOVE NOT EQUAL TO
+02ACC	SUPERSET OF ABOVE NOT EQUAL TO
+02ACD	SQUARE LEFT OPEN BOX OPERATOR
+02ACE	SQUARE RIGHT OPEN BOX OPERATOR
+02ACF	CLOSED SUBSET
+02AD0	CLOSED SUPERSET
+02AD1	CLOSED SUBSET OR EQUAL TO
+02AD2	CLOSED SUPERSET OR EQUAL TO
+02AD3	SUBSET ABOVE SUPERSET
+02AD4	SUPERSET ABOVE SUBSET
+02AD5	SUBSET ABOVE SUBSET
+02AD6	SUPERSET ABOVE SUPERSET
+02AD7	SUPERSET BESIDE SUBSET
+02AD8	SUPERSET BESIDE AND JOINED BY DASH WITH SUBSET
+02AD9	ELEMENT OF OPENING DOWNWARDS
+02ADA	PITCHFORK WITH TEE TOP
+02ADB	TRANSVERSAL INTERSECTION
+02ADC	FORKING
+02ADD	NONFORKING
+02ADE	SHORT LEFT TACK
+02ADF	SHORT DOWN TACK
+02AE0	SHORT UP TACK
+02AE1	PERPENDICULAR WITH S
+02AE2	VERTICAL BAR TRIPLE RIGHT TURNSTILE
+02AE3	DOUBLE VERTICAL BAR LEFT TURNSTILE
+02AE4	VERTICAL BAR DOUBLE LEFT TURNSTILE
+02AE5	DOUBLE VERTICAL BAR DOUBLE LEFT TURNSTILE
+02AE6	LONG DASH FROM LEFT MEMBER OF DOUBLE VERTICAL
+02AE7	SHORT DOWN TACK WITH OVERBAR
+02AE8	SHORT UP TACK WITH UNDERBAR
+02AE9	SHORT UP TACK ABOVE SHORT DOWN TACK
+02AEA	DOUBLE DOWN TACK
+02AEB	DOUBLE UP TACK
+02AEC	DOUBLE STROKE NOT SIGN
+02AED	REVERSED DOUBLE STROKE NOT SIGN
+02AEE	DOES NOT DIVIDE WITH REVERSED NEGATION SLASH
+02AEF	VERTICAL LINE WITH CIRCLE ABOVE
+02AF0	VERTICAL LINE WITH CIRCLE BELOW
+02AF1	DOWN TACK WITH CIRCLE BELOW
+02AF2	PARALLEL WITH HORIZONTAL STROKE
+02AF3	PARALLEL WITH TILDE OPERATOR
+02AF4	TRIPLE VERTICAL BAR BINARY RELATION
+02AF5	TRIPLE VERTICAL BAR WITH HORIZONTAL STROKE
+02AF6	TRIPLE COLON OPERATOR
+02AF7	TRIPLE NESTED LESS-THAN
+02AF8	TRIPLE NESTED GREATER-THAN
+02AF9	DOUBLE-LINE SLANTED LESS-THAN OR EQUAL TO
+02AFA	DOUBLE-LINE SLANTED GREATER-THAN OR EQUAL TO
+02AFB	TRIPLE SOLIDUS BINARY RELATION
+02AFC	LARGE TRIPLE VERTICAL BAR OPERATOR
+02AFD	DOUBLE SOLIDUS OPERATOR
+02AFE	WHITE VERTICAL BAR
+02AFF	N-ARY WHITE VERTICAL BAR
+02B00	NORTH EAST WHITE ARROW
+02B01	NORTH WEST WHITE ARROW
+02B02	SOUTH EAST WHITE ARROW
+02B03	SOUTH WEST WHITE ARROW
+02B04	LEFT RIGHT WHITE ARROW
+02B05	LEFTWARDS BLACK ARROW
+02B06	UPWARDS BLACK ARROW
+02B07	DOWNWARDS BLACK ARROW
+02B08	NORTH EAST BLACK ARROW
+02B09	NORTH WEST BLACK ARROW
+02B0A	SOUTH EAST BLACK ARROW
+02B0B	SOUTH WEST BLACK ARROW
+02B0C	LEFT RIGHT BLACK ARROW
+02B0D	UP DOWN BLACK ARROW
+02B0E	RIGHTWARDS ARROW WITH TIP DOWNWARDS
+02B0F	RIGHTWARDS ARROW WITH TIP UPWARDS
+02B10	LEFTWARDS ARROW WITH TIP DOWNWARDS
+02B11	LEFTWARDS ARROW WITH TIP UPWARDS
+02B12	SQUARE WITH TOP HALF BLACK
+02B13	SQUARE WITH BOTTOM HALF BLACK
+02B14	SQUARE WITH UPPER RIGHT DIAGONAL HALF BLACK
+02B15	SQUARE WITH LOWER LEFT DIAGONAL HALF BLACK
+02B16	DIAMOND WITH LEFT HALF BLACK
+02B17	DIAMOND WITH RIGHT HALF BLACK
+02B18	DIAMOND WITH TOP HALF BLACK
+02B19	DIAMOND WITH BOTTOM HALF BLACK
+02B1A	DOTTED SQUARE
+02B1B	BLACK LARGE SQUARE
+02B1C	WHITE LARGE SQUARE
+02B1D	BLACK VERY SMALL SQUARE
+02B1E	WHITE VERY SMALL SQUARE
+02B1F	BLACK PENTAGON
+02B20	WHITE PENTAGON
+02B21	WHITE HEXAGON
+02B22	BLACK HEXAGON
+02B23	HORIZONTAL BLACK HEXAGON
+02B24	BLACK LARGE CIRCLE
+02B25	BLACK MEDIUM DIAMOND
+02B26	WHITE MEDIUM DIAMOND
+02B27	BLACK MEDIUM LOZENGE
+02B28	WHITE MEDIUM LOZENGE
+02B29	BLACK SMALL DIAMOND
+02B2A	BLACK SMALL LOZENGE
+02B2B	WHITE SMALL LOZENGE
+02B2C	BLACK HORIZONTAL ELLIPSE
+02B2D	WHITE HORIZONTAL ELLIPSE
+02B2E	BLACK VERTICAL ELLIPSE
+02B2F	WHITE VERTICAL ELLIPSE
+02B30	LEFT ARROW WITH SMALL CIRCLE
+02B31	THREE LEFTWARDS ARROWS
+02B32	LEFT ARROW WITH CIRCLED PLUS
+02B33	LONG LEFTWARDS SQUIGGLE ARROW
+02B34	LEFTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+02B35	LEFTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B36	LEFTWARDS TWO-HEADED ARROW FROM BAR
+02B37	LEFTWARDS TWO-HEADED TRIPLE DASH ARROW
+02B38	LEFTWARDS ARROW WITH DOTTED STEM
+02B39	LEFTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+02B3A	LEFTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02B3B	LEFTWARDS TWO-HEADED ARROW WITH TAIL
+02B3C	LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+02B3D	LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02B3E	LEFTWARDS ARROW THROUGH X
+02B3F	WAVE ARROW POINTING DIRECTLY LEFT
+02B40	EQUALS SIGN ABOVE LEFTWARDS ARROW
+02B41	REVERSE TILDE OPERATOR ABOVE LEFTWARDS ARROW
+02B42	LEFTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+02B43	RIGHTWARDS ARROW THROUGH GREATER-THAN
+02B44	RIGHTWARDS ARROW THROUGH SUPERSET
+02B45	LEFTWARDS QUADRUPLE ARROW
+02B46	RIGHTWARDS QUADRUPLE ARROW
+02B47	REVERSE TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+02B48	RIGHTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+02B49	TILDE OPERATOR ABOVE LEFTWARDS ARROW
+02B4A	LEFTWARDS ARROW ABOVE ALMOST EQUAL TO
+02B4B	LEFTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+02B4C	RIGHTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+02B4D	DOWNWARDS TRIANGLE-HEADED ZIGZAG ARROW
+02B4E	SHORT SLANTED NORTH ARROW
+02B4F	SHORT BACKSLANTED SOUTH ARROW
+02B50	WHITE MEDIUM STAR
+02B51	BLACK SMALL STAR
+02B52	WHITE SMALL STAR
+02B53	BLACK RIGHT-POINTING PENTAGON
+02B54	WHITE RIGHT-POINTING PENTAGON
+02B55	HEAVY LARGE CIRCLE
+02B56	HEAVY OVAL WITH OVAL INSIDE
+02B57	HEAVY CIRCLE WITH CIRCLE INSIDE
+02B58	HEAVY CIRCLE
+02B59	HEAVY CIRCLED SALTIRE
+02B5A	SLANTED NORTH ARROW WITH HOOKED HEAD
+02B5B	BACKSLANTED SOUTH ARROW WITH HOOKED TAIL
+02B5C	SLANTED NORTH ARROW WITH HORIZONTAL TAIL
+02B5D	BACKSLANTED SOUTH ARROW WITH HORIZONTAL TAIL
+02B5E	BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+02B5F	SHORT BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+02B60	LEFTWARDS TRIANGLE-HEADED ARROW
+02B61	UPWARDS TRIANGLE-HEADED ARROW
+02B62	RIGHTWARDS TRIANGLE-HEADED ARROW
+02B63	DOWNWARDS TRIANGLE-HEADED ARROW
+02B64	LEFT RIGHT TRIANGLE-HEADED ARROW
+02B65	UP DOWN TRIANGLE-HEADED ARROW
+02B66	NORTH WEST TRIANGLE-HEADED ARROW
+02B67	NORTH EAST TRIANGLE-HEADED ARROW
+02B68	SOUTH EAST TRIANGLE-HEADED ARROW
+02B69	SOUTH WEST TRIANGLE-HEADED ARROW
+02B6A	LEFTWARDS TRIANGLE-HEADED DASHED ARROW
+02B6B	UPWARDS TRIANGLE-HEADED DASHED ARROW
+02B6C	RIGHTWARDS TRIANGLE-HEADED DASHED ARROW
+02B6D	DOWNWARDS TRIANGLE-HEADED DASHED ARROW
+02B6E	CLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+02B6F	ANTICLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+02B70	LEFTWARDS TRIANGLE-HEADED ARROW TO BAR
+02B71	UPWARDS TRIANGLE-HEADED ARROW TO BAR
+02B72	RIGHTWARDS TRIANGLE-HEADED ARROW TO BAR
+02B73	DOWNWARDS TRIANGLE-HEADED ARROW TO BAR
+02B76	NORTH WEST TRIANGLE-HEADED ARROW TO BAR
+02B77	NORTH EAST TRIANGLE-HEADED ARROW TO BAR
+02B78	SOUTH EAST TRIANGLE-HEADED ARROW TO BAR
+02B79	SOUTH WEST TRIANGLE-HEADED ARROW TO BAR
+02B7A	LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B7A	LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7B	UPWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7C	RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B7C	RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7D	DOWNWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7E	HORIZONTAL TAB KEY
+02B7F	VERTICAL TAB KEY
+02B80	LEFTWARDS TRIANGLE-HEADED ARROW OVER RIGHTWARDS TRIANGLE-HEADED ARROW
+02B81	UPWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF DOWNWARDS TRIANGLE-HEADED ARROW
+02B82	RIGHTWARDS TRIANGLE-HEADED ARROW OVER LEFTWARDS TRIANGLE-HEADED ARROW
+02B83	DOWNWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF UPWARDS TRIANGLE-HEADED ARROW
+02B84	LEFTWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B85	UPWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B86	RIGHTWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B87	DOWNWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B88	LEFTWARDS BLACK CIRCLED WHITE ARROW
+02B89	UPWARDS BLACK CIRCLED WHITE ARROW
+02B8A	RIGHTWARDS BLACK CIRCLED WHITE ARROW
+02B8B	DOWNWARDS BLACK CIRCLED WHITE ARROW
+02B8C	ANTICLOCKWISE TRIANGLE-HEADED RIGHT U-SHAPED ARROW
+02B8D	ANTICLOCKWISE TRIANGLE-HEADED BOTTOM U-SHAPED ARROW
+02B8E	ANTICLOCKWISE TRIANGLE-HEADED LEFT U-SHAPED ARROW
+02B8F	ANTICLOCKWISE TRIANGLE-HEADED TOP U-SHAPED ARROW
+02B90	RETURN LEFT
+02B91	RETURN RIGHT
+02B92	NEWLINE LEFT
+02B93	NEWLINE RIGHT
+02B94	FOUR CORNER ARROWS CIRCLING ANTICLOCKWISE
+02B95	RIGHTWARDS BLACK ARROW
+02B98	THREE-D TOP-LIGHTED LEFTWARDS EQUILATERAL ARROWHEAD
+02B99	THREE-D RIGHT-LIGHTED UPWARDS EQUILATERAL ARROWHEAD
+02B9A	THREE-D TOP-LIGHTED RIGHTWARDS EQUILATERAL ARROWHEAD
+02B9B	THREE-D LEFT-LIGHTED DOWNWARDS EQUILATERAL ARROWHEAD
+02B9C	BLACK LEFTWARDS EQUILATERAL ARROWHEAD
+02B9D	BLACK UPWARDS EQUILATERAL ARROWHEAD
+02B9E	BLACK RIGHTWARDS EQUILATERAL ARROWHEAD
+02B9F	BLACK DOWNWARDS EQUILATERAL ARROWHEAD
+02BA0	DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+02BA1	DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+02BA2	UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+02BA3	UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+02BA4	LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+02BA5	RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+02BA6	LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+02BA7	RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+02BA8	BLACK CURVED DOWNWARDS AND LEFTWARDS ARROW
+02BA9	BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+02BAA	BLACK CURVED UPWARDS AND LEFTWARDS ARROW
+02BAB	BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+02BAC	BLACK CURVED LEFTWARDS AND UPWARDS ARROW
+02BAD	BLACK CURVED RIGHTWARDS AND UPWARDS ARROW
+02BAE	BLACK CURVED LEFTWARDS AND DOWNWARDS ARROW
+02BAF	BLACK CURVED RIGHTWARDS AND DOWNWARDS ARROW
+02BB0	RIBBON ARROW DOWN LEFT
+02BB1	RIBBON ARROW DOWN RIGHT
+02BB2	RIBBON ARROW UP LEFT
+02BB3	RIBBON ARROW UP RIGHT
+02BB4	RIBBON ARROW LEFT UP
+02BB5	RIBBON ARROW RIGHT UP
+02BB6	RIBBON ARROW LEFT DOWN
+02BB7	RIBBON ARROW RIGHT DOWN
+02BB8	UPWARDS WHITE ARROW FROM BAR WITH HORIZONTAL BAR
+02BB9	UP ARROWHEAD IN A RECTANGLE BOX
+02BBD	BALLOT BOX WITH LIGHT X
+02BBE	CIRCLED X
+02BBF	CIRCLED BOLD X
+02BC0	BLACK SQUARE CENTRED
+02BC1	BLACK DIAMOND CENTRED
+02BC2	TURNED BLACK PENTAGON
+02BC3	HORIZONTAL BLACK OCTAGON
+02BC4	BLACK OCTAGON
+02BC5	BLACK MEDIUM UP-POINTING TRIANGLE CENTRED
+02BC6	BLACK MEDIUM DOWN-POINTING TRIANGLE CENTRED
+02BC7	BLACK MEDIUM LEFT-POINTING TRIANGLE CENTRED
+02BC8	BLACK MEDIUM RIGHT-POINTING TRIANGLE CENTRED
+02BCA	TOP HALF BLACK CIRCLE
+02BCB	BOTTOM HALF BLACK CIRCLE
+02BCC	LIGHT FOUR POINTED BLACK CUSP
+02BCD	ROTATED LIGHT FOUR POINTED BLACK CUSP
+02BCE	WHITE FOUR POINTED CUSP
+02BCF	ROTATED WHITE FOUR POINTED CUSP
+02BD0	SQUARE POSITION INDICATOR
+02BD1	UNCERTAINTY SIGN
+02BD2	GROUP MARK
+02BEC	LEFTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BED	UPWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BEE	RIGHTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BEF	DOWNWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02C00	GLAGOLITIC CAPITAL LETTER AZU
+02C01	GLAGOLITIC CAPITAL LETTER BUKY
+02C02	GLAGOLITIC CAPITAL LETTER VEDE
+02C03	GLAGOLITIC CAPITAL LETTER GLAGOLI
+02C04	GLAGOLITIC CAPITAL LETTER DOBRO
+02C05	GLAGOLITIC CAPITAL LETTER YESTU
+02C06	GLAGOLITIC CAPITAL LETTER ZHIVETE
+02C07	GLAGOLITIC CAPITAL LETTER DZELO
+02C08	GLAGOLITIC CAPITAL LETTER ZEMLJA
+02C09	GLAGOLITIC CAPITAL LETTER IZHE
+02C0A	GLAGOLITIC CAPITAL LETTER INITIAL IZHE
+02C0B	GLAGOLITIC CAPITAL LETTER I
+02C0C	GLAGOLITIC CAPITAL LETTER DJERVI
+02C0D	GLAGOLITIC CAPITAL LETTER KAKO
+02C0E	GLAGOLITIC CAPITAL LETTER LJUDIJE
+02C0F	GLAGOLITIC CAPITAL LETTER MYSLITE
+02C10	GLAGOLITIC CAPITAL LETTER NASHI
+02C11	GLAGOLITIC CAPITAL LETTER ONU
+02C12	GLAGOLITIC CAPITAL LETTER POKOJI
+02C13	GLAGOLITIC CAPITAL LETTER RITSI
+02C14	GLAGOLITIC CAPITAL LETTER SLOVO
+02C15	GLAGOLITIC CAPITAL LETTER TVRIDO
+02C16	GLAGOLITIC CAPITAL LETTER UKU
+02C17	GLAGOLITIC CAPITAL LETTER FRITU
+02C18	GLAGOLITIC CAPITAL LETTER HERU
+02C19	GLAGOLITIC CAPITAL LETTER OTU
+02C1A	GLAGOLITIC CAPITAL LETTER PE
+02C1B	GLAGOLITIC CAPITAL LETTER SHTA
+02C1C	GLAGOLITIC CAPITAL LETTER TSI
+02C1D	GLAGOLITIC CAPITAL LETTER CHRIVI
+02C1E	GLAGOLITIC CAPITAL LETTER SHA
+02C1F	GLAGOLITIC CAPITAL LETTER YERU
+02C20	GLAGOLITIC CAPITAL LETTER YERI
+02C21	GLAGOLITIC CAPITAL LETTER YATI
+02C22	GLAGOLITIC CAPITAL LETTER SPIDERY HA
+02C23	GLAGOLITIC CAPITAL LETTER YU
+02C24	GLAGOLITIC CAPITAL LETTER SMALL YUS
+02C25	GLAGOLITIC CAPITAL LETTER SMALL YUS WITH TAIL
+02C26	GLAGOLITIC CAPITAL LETTER YO
+02C27	GLAGOLITIC CAPITAL LETTER IOTATED SMALL YUS
+02C28	GLAGOLITIC CAPITAL LETTER BIG YUS
+02C29	GLAGOLITIC CAPITAL LETTER IOTATED BIG YUS
+02C2A	GLAGOLITIC CAPITAL LETTER FITA
+02C2B	GLAGOLITIC CAPITAL LETTER IZHITSA
+02C2C	GLAGOLITIC CAPITAL LETTER SHTAPIC
+02C2D	GLAGOLITIC CAPITAL LETTER TROKUTASTI A
+02C2E	GLAGOLITIC CAPITAL LETTER LATINATE MYSLITE
+02C30	GLAGOLITIC SMALL LETTER AZU
+02C31	GLAGOLITIC SMALL LETTER BUKY
+02C32	GLAGOLITIC SMALL LETTER VEDE
+02C33	GLAGOLITIC SMALL LETTER GLAGOLI
+02C34	GLAGOLITIC SMALL LETTER DOBRO
+02C35	GLAGOLITIC SMALL LETTER YESTU
+02C36	GLAGOLITIC SMALL LETTER ZHIVETE
+02C37	GLAGOLITIC SMALL LETTER DZELO
+02C38	GLAGOLITIC SMALL LETTER ZEMLJA
+02C39	GLAGOLITIC SMALL LETTER IZHE
+02C3A	GLAGOLITIC SMALL LETTER INITIAL IZHE
+02C3B	GLAGOLITIC SMALL LETTER I
+02C3C	GLAGOLITIC SMALL LETTER DJERVI
+02C3D	GLAGOLITIC SMALL LETTER KAKO
+02C3E	GLAGOLITIC SMALL LETTER LJUDIJE
+02C3F	GLAGOLITIC SMALL LETTER MYSLITE
+02C40	GLAGOLITIC SMALL LETTER NASHI
+02C41	GLAGOLITIC SMALL LETTER ONU
+02C42	GLAGOLITIC SMALL LETTER POKOJI
+02C43	GLAGOLITIC SMALL LETTER RITSI
+02C44	GLAGOLITIC SMALL LETTER SLOVO
+02C45	GLAGOLITIC SMALL LETTER TVRIDO
+02C46	GLAGOLITIC SMALL LETTER UKU
+02C47	GLAGOLITIC SMALL LETTER FRITU
+02C48	GLAGOLITIC SMALL LETTER HERU
+02C49	GLAGOLITIC SMALL LETTER OTU
+02C4A	GLAGOLITIC SMALL LETTER PE
+02C4B	GLAGOLITIC SMALL LETTER SHTA
+02C4C	GLAGOLITIC SMALL LETTER TSI
+02C4D	GLAGOLITIC SMALL LETTER CHRIVI
+02C4E	GLAGOLITIC SMALL LETTER SHA
+02C4F	GLAGOLITIC SMALL LETTER YERU
+02C50	GLAGOLITIC SMALL LETTER YERI
+02C51	GLAGOLITIC SMALL LETTER YATI
+02C52	GLAGOLITIC SMALL LETTER SPIDERY HA
+02C53	GLAGOLITIC SMALL LETTER YU
+02C54	GLAGOLITIC SMALL LETTER SMALL YUS
+02C55	GLAGOLITIC SMALL LETTER SMALL YUS WITH TAIL
+02C56	GLAGOLITIC SMALL LETTER YO
+02C57	GLAGOLITIC SMALL LETTER IOTATED SMALL YUS
+02C58	GLAGOLITIC SMALL LETTER BIG YUS
+02C59	GLAGOLITIC SMALL LETTER IOTATED BIG YUS
+02C5A	GLAGOLITIC SMALL LETTER FITA
+02C5B	GLAGOLITIC SMALL LETTER IZHITSA
+02C5C	GLAGOLITIC SMALL LETTER SHTAPIC
+02C5D	GLAGOLITIC SMALL LETTER TROKUTASTI A
+02C5E	GLAGOLITIC SMALL LETTER LATINATE MYSLITE
+02C60	LATIN CAPITAL LETTER L WITH DOUBLE BAR
+02C61	LATIN SMALL LETTER L WITH DOUBLE BAR
+02C62	LATIN CAPITAL LETTER L WITH MIDDLE TILDE
+02C63	LATIN CAPITAL LETTER P WITH STROKE
+02C64	LATIN CAPITAL LETTER R WITH TAIL
+02C65	LATIN SMALL LETTER A WITH STROKE
+02C66	LATIN SMALL LETTER T WITH DIAGONAL STROKE
+02C67	LATIN CAPITAL LETTER H WITH DESCENDER
+02C68	LATIN SMALL LETTER H WITH DESCENDER
+02C69	LATIN CAPITAL LETTER K WITH DESCENDER
+02C6A	LATIN SMALL LETTER K WITH DESCENDER
+02C6B	LATIN CAPITAL LETTER Z WITH DESCENDER
+02C6C	LATIN SMALL LETTER Z WITH DESCENDER
+02C6D	LATIN CAPITAL LETTER ALPHA
+02C6E	LATIN CAPITAL LETTER M WITH HOOK
+02C6F	LATIN CAPITAL LETTER TURNED A
+02C70	LATIN CAPITAL LETTER TURNED ALPHA
+02C71	LATIN SMALL LETTER V WITH RIGHT HOOK
+02C72	LATIN CAPITAL LETTER W WITH HOOK
+02C73	LATIN SMALL LETTER W WITH HOOK
+02C74	LATIN SMALL LETTER V WITH CURL
+02C75	LATIN CAPITAL LETTER HALF H
+02C76	LATIN SMALL LETTER HALF H
+02C77	LATIN SMALL LETTER TAILLESS PHI
+02C78	LATIN SMALL LETTER E WITH NOTCH
+02C79	LATIN SMALL LETTER TURNED R WITH TAIL
+02C7A	LATIN SMALL LETTER O WITH LOW RING INSIDE
+02C7B	LATIN LETTER SMALL CAPITAL TURNED E
+02C7C	LATIN SUBSCRIPT SMALL LETTER J
+02C7D	MODIFIER LETTER CAPITAL V
+02C7E	LATIN CAPITAL LETTER S WITH SWASH TAIL
+02C7F	LATIN CAPITAL LETTER Z WITH SWASH TAIL
+02C80	COPTIC CAPITAL LETTER ALFA
+02C81	COPTIC SMALL LETTER ALFA
+02C82	COPTIC CAPITAL LETTER VIDA
+02C83	COPTIC SMALL LETTER VIDA
+02C84	COPTIC CAPITAL LETTER GAMMA
+02C85	COPTIC SMALL LETTER GAMMA
+02C86	COPTIC CAPITAL LETTER DALDA
+02C87	COPTIC SMALL LETTER DALDA
+02C88	COPTIC CAPITAL LETTER EIE
+02C89	COPTIC SMALL LETTER EIE
+02C8A	COPTIC CAPITAL LETTER SOU
+02C8B	COPTIC SMALL LETTER SOU
+02C8C	COPTIC CAPITAL LETTER ZATA
+02C8D	COPTIC SMALL LETTER ZATA
+02C8E	COPTIC CAPITAL LETTER HATE
+02C8F	COPTIC SMALL LETTER HATE
+02C90	COPTIC CAPITAL LETTER THETHE
+02C91	COPTIC SMALL LETTER THETHE
+02C92	COPTIC CAPITAL LETTER IAUDA
+02C93	COPTIC SMALL LETTER IAUDA
+02C94	COPTIC CAPITAL LETTER KAPA
+02C95	COPTIC SMALL LETTER KAPA
+02C96	COPTIC CAPITAL LETTER LAULA
+02C97	COPTIC SMALL LETTER LAULA
+02C98	COPTIC CAPITAL LETTER MI
+02C99	COPTIC SMALL LETTER MI
+02C9A	COPTIC CAPITAL LETTER NI
+02C9B	COPTIC SMALL LETTER NI
+02C9C	COPTIC CAPITAL LETTER KSI
+02C9D	COPTIC SMALL LETTER KSI
+02C9E	COPTIC CAPITAL LETTER O
+02C9F	COPTIC SMALL LETTER O
+02CA0	COPTIC CAPITAL LETTER PI
+02CA1	COPTIC SMALL LETTER PI
+02CA2	COPTIC CAPITAL LETTER RO
+02CA3	COPTIC SMALL LETTER RO
+02CA4	COPTIC CAPITAL LETTER SIMA
+02CA5	COPTIC SMALL LETTER SIMA
+02CA6	COPTIC CAPITAL LETTER TAU
+02CA7	COPTIC SMALL LETTER TAU
+02CA8	COPTIC CAPITAL LETTER UA
+02CA9	COPTIC SMALL LETTER UA
+02CAA	COPTIC CAPITAL LETTER FI
+02CAB	COPTIC SMALL LETTER FI
+02CAC	COPTIC CAPITAL LETTER KHI
+02CAD	COPTIC SMALL LETTER KHI
+02CAE	COPTIC CAPITAL LETTER PSI
+02CAF	COPTIC SMALL LETTER PSI
+02CB0	COPTIC CAPITAL LETTER OOU
+02CB1	COPTIC SMALL LETTER OOU
+02CB2	COPTIC CAPITAL LETTER DIALECT-P ALEF
+02CB3	COPTIC SMALL LETTER DIALECT-P ALEF
+02CB4	COPTIC CAPITAL LETTER OLD COPTIC AIN
+02CB5	COPTIC SMALL LETTER OLD COPTIC AIN
+02CB6	COPTIC CAPITAL LETTER CRYPTOGRAMMIC EIE
+02CB7	COPTIC SMALL LETTER CRYPTOGRAMMIC EIE
+02CB8	COPTIC CAPITAL LETTER DIALECT-P KAPA
+02CB9	COPTIC SMALL LETTER DIALECT-P KAPA
+02CBA	COPTIC CAPITAL LETTER DIALECT-P NI
+02CBB	COPTIC SMALL LETTER DIALECT-P NI
+02CBC	COPTIC CAPITAL LETTER CRYPTOGRAMMIC NI
+02CBD	COPTIC SMALL LETTER CRYPTOGRAMMIC NI
+02CBE	COPTIC CAPITAL LETTER OLD COPTIC OOU
+02CBF	COPTIC SMALL LETTER OLD COPTIC OOU
+02CC0	COPTIC CAPITAL LETTER SAMPI
+02CC1	COPTIC SMALL LETTER SAMPI
+02CC2	COPTIC CAPITAL LETTER CROSSED SHEI
+02CC3	COPTIC SMALL LETTER CROSSED SHEI
+02CC4	COPTIC CAPITAL LETTER OLD COPTIC SHEI
+02CC5	COPTIC SMALL LETTER OLD COPTIC SHEI
+02CC6	COPTIC CAPITAL LETTER OLD COPTIC ESH
+02CC7	COPTIC SMALL LETTER OLD COPTIC ESH
+02CC8	COPTIC CAPITAL LETTER AKHMIMIC KHEI
+02CC9	COPTIC SMALL LETTER AKHMIMIC KHEI
+02CCA	COPTIC CAPITAL LETTER DIALECT-P HORI
+02CCB	COPTIC SMALL LETTER DIALECT-P HORI
+02CCC	COPTIC CAPITAL LETTER OLD COPTIC HORI
+02CCD	COPTIC SMALL LETTER OLD COPTIC HORI
+02CCE	COPTIC CAPITAL LETTER OLD COPTIC HA
+02CCF	COPTIC SMALL LETTER OLD COPTIC HA
+02CD0	COPTIC CAPITAL LETTER L-SHAPED HA
+02CD1	COPTIC SMALL LETTER L-SHAPED HA
+02CD2	COPTIC CAPITAL LETTER OLD COPTIC HEI
+02CD3	COPTIC SMALL LETTER OLD COPTIC HEI
+02CD4	COPTIC CAPITAL LETTER OLD COPTIC HAT
+02CD5	COPTIC SMALL LETTER OLD COPTIC HAT
+02CD6	COPTIC CAPITAL LETTER OLD COPTIC GANGIA
+02CD7	COPTIC SMALL LETTER OLD COPTIC GANGIA
+02CD8	COPTIC CAPITAL LETTER OLD COPTIC DJA
+02CD9	COPTIC SMALL LETTER OLD COPTIC DJA
+02CDA	COPTIC CAPITAL LETTER OLD COPTIC SHIMA
+02CDB	COPTIC SMALL LETTER OLD COPTIC SHIMA
+02CDC	COPTIC CAPITAL LETTER OLD NUBIAN SHIMA
+02CDD	COPTIC SMALL LETTER OLD NUBIAN SHIMA
+02CDE	COPTIC CAPITAL LETTER OLD NUBIAN NGI
+02CDF	COPTIC SMALL LETTER OLD NUBIAN NGI
+02CE0	COPTIC CAPITAL LETTER OLD NUBIAN NYI
+02CE1	COPTIC SMALL LETTER OLD NUBIAN NYI
+02CE2	COPTIC CAPITAL LETTER OLD NUBIAN WAU
+02CE3	COPTIC SMALL LETTER OLD NUBIAN WAU
+02CE4	COPTIC SYMBOL KAI
+02CE5	COPTIC SYMBOL MI RO
+02CE6	COPTIC SYMBOL PI RO
+02CE7	COPTIC SYMBOL STAUROS
+02CE8	COPTIC SYMBOL TAU RO
+02CE9	COPTIC SYMBOL KHI RO
+02CEA	COPTIC SYMBOL SHIMA SIMA
+02CEB	COPTIC CAPITAL LETTER CRYPTOGRAMMIC SHEI
+02CEC	COPTIC SMALL LETTER CRYPTOGRAMMIC SHEI
+02CED	COPTIC CAPITAL LETTER CRYPTOGRAMMIC GANGIA
+02CEE	COPTIC SMALL LETTER CRYPTOGRAMMIC GANGIA
+02CEF	COPTIC COMBINING NI ABOVE
+02CF0	COPTIC COMBINING SPIRITUS ASPER
+02CF1	COPTIC COMBINING SPIRITUS LENIS
+02CF2	COPTIC CAPITAL LETTER BOHAIRIC KHEI
+02CF3	COPTIC SMALL LETTER BOHAIRIC KHEI
+02CF9	COPTIC OLD NUBIAN FULL STOP
+02CFA	COPTIC OLD NUBIAN DIRECT QUESTION MARK
+02CFB	COPTIC OLD NUBIAN INDIRECT QUESTION MARK
+02CFC	COPTIC OLD NUBIAN VERSE DIVIDER
+02CFD	COPTIC FRACTION ONE HALF
+02CFE	COPTIC FULL STOP
+02CFF	COPTIC MORPHOLOGICAL DIVIDER
+02D00	GEORGIAN SMALL LETTER AN
+02D01	GEORGIAN SMALL LETTER BAN
+02D02	GEORGIAN SMALL LETTER GAN
+02D03	GEORGIAN SMALL LETTER DON
+02D04	GEORGIAN SMALL LETTER EN
+02D05	GEORGIAN SMALL LETTER VIN
+02D06	GEORGIAN SMALL LETTER ZEN
+02D07	GEORGIAN SMALL LETTER TAN
+02D08	GEORGIAN SMALL LETTER IN
+02D09	GEORGIAN SMALL LETTER KAN
+02D0A	GEORGIAN SMALL LETTER LAS
+02D0B	GEORGIAN SMALL LETTER MAN
+02D0C	GEORGIAN SMALL LETTER NAR
+02D0D	GEORGIAN SMALL LETTER ON
+02D0E	GEORGIAN SMALL LETTER PAR
+02D0F	GEORGIAN SMALL LETTER ZHAR
+02D10	GEORGIAN SMALL LETTER RAE
+02D11	GEORGIAN SMALL LETTER SAN
+02D12	GEORGIAN SMALL LETTER TAR
+02D13	GEORGIAN SMALL LETTER UN
+02D14	GEORGIAN SMALL LETTER PHAR
+02D15	GEORGIAN SMALL LETTER KHAR
+02D16	GEORGIAN SMALL LETTER GHAN
+02D17	GEORGIAN SMALL LETTER QAR
+02D18	GEORGIAN SMALL LETTER SHIN
+02D19	GEORGIAN SMALL LETTER CHIN
+02D1A	GEORGIAN SMALL LETTER CAN
+02D1B	GEORGIAN SMALL LETTER JIL
+02D1C	GEORGIAN SMALL LETTER CIL
+02D1D	GEORGIAN SMALL LETTER CHAR
+02D1E	GEORGIAN SMALL LETTER XAN
+02D1F	GEORGIAN SMALL LETTER JHAN
+02D20	GEORGIAN SMALL LETTER HAE
+02D21	GEORGIAN SMALL LETTER HE
+02D22	GEORGIAN SMALL LETTER HIE
+02D23	GEORGIAN SMALL LETTER WE
+02D24	GEORGIAN SMALL LETTER HAR
+02D25	GEORGIAN SMALL LETTER HOE
+02D27	GEORGIAN SMALL LETTER YN
+02D2D	GEORGIAN SMALL LETTER AEN
+02D30	TIFINAGH LETTER YA
+02D31	TIFINAGH LETTER YAB
+02D32	TIFINAGH LETTER YABH
+02D33	TIFINAGH LETTER YAG
+02D34	TIFINAGH LETTER YAGHH
+02D35	TIFINAGH LETTER BERBER ACADEMY YAJ
+02D36	TIFINAGH LETTER YAJ
+02D37	TIFINAGH LETTER YAD
+02D38	TIFINAGH LETTER YADH
+02D39	TIFINAGH LETTER YADD
+02D3A	TIFINAGH LETTER YADDH
+02D3B	TIFINAGH LETTER YEY
+02D3C	TIFINAGH LETTER YAF
+02D3D	TIFINAGH LETTER YAK
+02D3E	TIFINAGH LETTER TUAREG YAK
+02D3F	TIFINAGH LETTER YAKHH
+02D40	TIFINAGH LETTER YAH
+02D41	TIFINAGH LETTER BERBER ACADEMY YAH
+02D42	TIFINAGH LETTER TUAREG YAH
+02D43	TIFINAGH LETTER YAHH
+02D44	TIFINAGH LETTER YAA
+02D45	TIFINAGH LETTER YAKH
+02D46	TIFINAGH LETTER TUAREG YAKH
+02D47	TIFINAGH LETTER YAQ
+02D48	TIFINAGH LETTER TUAREG YAQ
+02D49	TIFINAGH LETTER YI
+02D4A	TIFINAGH LETTER YAZH
+02D4B	TIFINAGH LETTER AHAGGAR YAZH
+02D4C	TIFINAGH LETTER TUAREG YAZH
+02D4D	TIFINAGH LETTER YAL
+02D4E	TIFINAGH LETTER YAM
+02D4F	TIFINAGH LETTER YAN
+02D50	TIFINAGH LETTER TUAREG YAGN
+02D51	TIFINAGH LETTER TUAREG YANG
+02D52	TIFINAGH LETTER YAP
+02D53	TIFINAGH LETTER YU
+02D54	TIFINAGH LETTER YAR
+02D55	TIFINAGH LETTER YARR
+02D56	TIFINAGH LETTER YAGH
+02D57	TIFINAGH LETTER TUAREG YAGH
+02D58	TIFINAGH LETTER AYER YAGH
+02D59	TIFINAGH LETTER YAS
+02D5A	TIFINAGH LETTER YASS
+02D5B	TIFINAGH LETTER YASH
+02D5C	TIFINAGH LETTER YAT
+02D5D	TIFINAGH LETTER YATH
+02D5E	TIFINAGH LETTER YACH
+02D5F	TIFINAGH LETTER YATT
+02D60	TIFINAGH LETTER YAV
+02D61	TIFINAGH LETTER YAW
+02D62	TIFINAGH LETTER YAY
+02D63	TIFINAGH LETTER YAZ
+02D64	TIFINAGH LETTER TAWELLEMET YAZ
+02D65	TIFINAGH LETTER YAZZ
+02D66	TIFINAGH LETTER YE
+02D67	TIFINAGH LETTER YO
+02D6F	TIFINAGH MODIFIER LETTER LABIALIZATION MARK
+02D70	TIFINAGH SEPARATOR MARK
+02D7F	TIFINAGH CONSONANT JOINER
+02D80	ETHIOPIC SYLLABLE LOA
+02D81	ETHIOPIC SYLLABLE MOA
+02D82	ETHIOPIC SYLLABLE ROA
+02D83	ETHIOPIC SYLLABLE SOA
+02D84	ETHIOPIC SYLLABLE SHOA
+02D85	ETHIOPIC SYLLABLE BOA
+02D86	ETHIOPIC SYLLABLE TOA
+02D87	ETHIOPIC SYLLABLE COA
+02D88	ETHIOPIC SYLLABLE NOA
+02D89	ETHIOPIC SYLLABLE NYOA
+02D8A	ETHIOPIC SYLLABLE GLOTTAL OA
+02D8B	ETHIOPIC SYLLABLE ZOA
+02D8C	ETHIOPIC SYLLABLE DOA
+02D8D	ETHIOPIC SYLLABLE DDOA
+02D8E	ETHIOPIC SYLLABLE JOA
+02D8F	ETHIOPIC SYLLABLE THOA
+02D90	ETHIOPIC SYLLABLE CHOA
+02D91	ETHIOPIC SYLLABLE PHOA
+02D92	ETHIOPIC SYLLABLE POA
+02D93	ETHIOPIC SYLLABLE GGWA
+02D94	ETHIOPIC SYLLABLE GGWI
+02D95	ETHIOPIC SYLLABLE GGWEE
+02D96	ETHIOPIC SYLLABLE GGWE
+02DA0	ETHIOPIC SYLLABLE SSA
+02DA1	ETHIOPIC SYLLABLE SSU
+02DA2	ETHIOPIC SYLLABLE SSI
+02DA3	ETHIOPIC SYLLABLE SSAA
+02DA4	ETHIOPIC SYLLABLE SSEE
+02DA5	ETHIOPIC SYLLABLE SSE
+02DA6	ETHIOPIC SYLLABLE SSO
+02DA8	ETHIOPIC SYLLABLE CCA
+02DA9	ETHIOPIC SYLLABLE CCU
+02DAA	ETHIOPIC SYLLABLE CCI
+02DAB	ETHIOPIC SYLLABLE CCAA
+02DAC	ETHIOPIC SYLLABLE CCEE
+02DAD	ETHIOPIC SYLLABLE CCE
+02DAE	ETHIOPIC SYLLABLE CCO
+02DB0	ETHIOPIC SYLLABLE ZZA
+02DB1	ETHIOPIC SYLLABLE ZZU
+02DB2	ETHIOPIC SYLLABLE ZZI
+02DB3	ETHIOPIC SYLLABLE ZZAA
+02DB4	ETHIOPIC SYLLABLE ZZEE
+02DB5	ETHIOPIC SYLLABLE ZZE
+02DB6	ETHIOPIC SYLLABLE ZZO
+02DB8	ETHIOPIC SYLLABLE CCHA
+02DB9	ETHIOPIC SYLLABLE CCHU
+02DBA	ETHIOPIC SYLLABLE CCHI
+02DBB	ETHIOPIC SYLLABLE CCHAA
+02DBC	ETHIOPIC SYLLABLE CCHEE
+02DBD	ETHIOPIC SYLLABLE CCHE
+02DBE	ETHIOPIC SYLLABLE CCHO
+02DC0	ETHIOPIC SYLLABLE QYA
+02DC1	ETHIOPIC SYLLABLE QYU
+02DC2	ETHIOPIC SYLLABLE QYI
+02DC3	ETHIOPIC SYLLABLE QYAA
+02DC4	ETHIOPIC SYLLABLE QYEE
+02DC5	ETHIOPIC SYLLABLE QYE
+02DC6	ETHIOPIC SYLLABLE QYO
+02DC8	ETHIOPIC SYLLABLE KYA
+02DC9	ETHIOPIC SYLLABLE KYU
+02DCA	ETHIOPIC SYLLABLE KYI
+02DCB	ETHIOPIC SYLLABLE KYAA
+02DCC	ETHIOPIC SYLLABLE KYEE
+02DCD	ETHIOPIC SYLLABLE KYE
+02DCE	ETHIOPIC SYLLABLE KYO
+02DD0	ETHIOPIC SYLLABLE XYA
+02DD1	ETHIOPIC SYLLABLE XYU
+02DD2	ETHIOPIC SYLLABLE XYI
+02DD3	ETHIOPIC SYLLABLE XYAA
+02DD4	ETHIOPIC SYLLABLE XYEE
+02DD5	ETHIOPIC SYLLABLE XYE
+02DD6	ETHIOPIC SYLLABLE XYO
+02DD8	ETHIOPIC SYLLABLE GYA
+02DD9	ETHIOPIC SYLLABLE GYU
+02DDA	ETHIOPIC SYLLABLE GYI
+02DDB	ETHIOPIC SYLLABLE GYAA
+02DDC	ETHIOPIC SYLLABLE GYEE
+02DDD	ETHIOPIC SYLLABLE GYE
+02DDE	ETHIOPIC SYLLABLE GYO
+02DE0	COMBINING CYRILLIC LETTER BE
+02DE1	COMBINING CYRILLIC LETTER VE
+02DE2	COMBINING CYRILLIC LETTER GHE
+02DE3	COMBINING CYRILLIC LETTER DE
+02DE4	COMBINING CYRILLIC LETTER ZHE
+02DE5	COMBINING CYRILLIC LETTER ZE
+02DE6	COMBINING CYRILLIC LETTER KA
+02DE7	COMBINING CYRILLIC LETTER EL
+02DE8	COMBINING CYRILLIC LETTER EM
+02DE9	COMBINING CYRILLIC LETTER EN
+02DEA	COMBINING CYRILLIC LETTER O
+02DEB	COMBINING CYRILLIC LETTER PE
+02DEC	COMBINING CYRILLIC LETTER ER
+02DED	COMBINING CYRILLIC LETTER ES
+02DEE	COMBINING CYRILLIC LETTER TE
+02DEF	COMBINING CYRILLIC LETTER HA
+02DF0	COMBINING CYRILLIC LETTER TSE
+02DF1	COMBINING CYRILLIC LETTER CHE
+02DF2	COMBINING CYRILLIC LETTER SHA
+02DF3	COMBINING CYRILLIC LETTER SHCHA
+02DF4	COMBINING CYRILLIC LETTER FITA
+02DF5	COMBINING CYRILLIC LETTER ES-TE
+02DF6	COMBINING CYRILLIC LETTER A
+02DF7	COMBINING CYRILLIC LETTER IE
+02DF8	COMBINING CYRILLIC LETTER DJERV
+02DF9	COMBINING CYRILLIC LETTER MONOGRAPH UK
+02DFA	COMBINING CYRILLIC LETTER YAT
+02DFB	COMBINING CYRILLIC LETTER YU
+02DFC	COMBINING CYRILLIC LETTER IOTIFIED A
+02DFD	COMBINING CYRILLIC LETTER LITTLE YUS
+02DFE	COMBINING CYRILLIC LETTER BIG YUS
+02DFF	COMBINING CYRILLIC LETTER IOTIFIED BIG YUS
+02E00	RIGHT ANGLE SUBSTITUTION MARKER
+02E01	RIGHT ANGLE DOTTED SUBSTITUTION MARKER
+02E02	LEFT SUBSTITUTION BRACKET
+02E03	RIGHT SUBSTITUTION BRACKET
+02E04	LEFT DOTTED SUBSTITUTION BRACKET
+02E05	RIGHT DOTTED SUBSTITUTION BRACKET
+02E06	RAISED INTERPOLATION MARKER
+02E07	RAISED DOTTED INTERPOLATION MARKER
+02E08	DOTTED TRANSPOSITION MARKER
+02E09	LEFT TRANSPOSITION BRACKET
+02E0A	RIGHT TRANSPOSITION BRACKET
+02E0B	RAISED SQUARE
+02E0C	LEFT RAISED OMISSION BRACKET
+02E0D	RIGHT RAISED OMISSION BRACKET
+02E0E	EDITORIAL CORONIS
+02E0F	PARAGRAPHOS
+02E10	FORKED PARAGRAPHOS
+02E11	REVERSED FORKED PARAGRAPHOS
+02E12	HYPODIASTOLE
+02E13	DOTTED OBELOS
+02E14	DOWNWARDS ANCORA
+02E15	UPWARDS ANCORA
+02E16	DOTTED RIGHT-POINTING ANGLE
+02E17	DOUBLE OBLIQUE HYPHEN
+02E18	INVERTED INTERROBANG
+02E19	PALM BRANCH
+02E1A	HYPHEN WITH DIAERESIS
+02E1B	TILDE WITH RING ABOVE
+02E1C	LEFT LOW PARAPHRASE BRACKET
+02E1D	RIGHT LOW PARAPHRASE BRACKET
+02E1E	TILDE WITH DOT ABOVE
+02E1F	TILDE WITH DOT BELOW
+02E20	LEFT VERTICAL BAR WITH QUILL
+02E21	RIGHT VERTICAL BAR WITH QUILL
+02E22	TOP LEFT HALF BRACKET
+02E23	TOP RIGHT HALF BRACKET
+02E24	BOTTOM LEFT HALF BRACKET
+02E25	BOTTOM RIGHT HALF BRACKET
+02E26	LEFT SIDEWAYS U BRACKET
+02E27	RIGHT SIDEWAYS U BRACKET
+02E28	LEFT DOUBLE PARENTHESIS
+02E29	RIGHT DOUBLE PARENTHESIS
+02E2A	TWO DOTS OVER ONE DOT PUNCTUATION
+02E2B	ONE DOT OVER TWO DOTS PUNCTUATION
+02E2C	SQUARED FOUR DOT PUNCTUATION
+02E2D	FIVE DOT MARK
+02E2E	REVERSED QUESTION MARK
+02E2F	VERTICAL TILDE
+02E30	RING POINT
+02E31	WORD SEPARATOR MIDDLE DOT
+02E32	TURNED COMMA
+02E33	RAISED DOT
+02E34	RAISED COMMA
+02E35	TURNED SEMICOLON
+02E36	DAGGER WITH LEFT GUARD
+02E37	DAGGER WITH RIGHT GUARD
+02E38	TURNED DAGGER
+02E39	TOP HALF SECTION SIGN
+02E3A	TWO-EM DASH
+02E3B	THREE-EM DASH
+02E3C	STENOGRAPHIC FULL STOP
+02E3D	VERTICAL SIX DOTS
+02E3E	WIGGLY VERTICAL LINE
+02E3F	CAPITULUM
+02E40	DOUBLE HYPHEN
+02E41	REVERSED COMMA
+02E42	DOUBLE LOW-REVERSED-9 QUOTATION MARK
+02E43	DASH WITH LEFT UPTURN
+02E44	DOUBLE SUSPENSION MARK
+02E45	INVERTED LOW KAVYKA
+02E46	INVERTED LOW KAVYKA WITH KAVYKA ABOVE
+02E47	LOW KAVYKA
+02E48	LOW KAVYKA WITH DOT
+02E49	DOUBLE STACKED COMMA
+02E80	CJK RADICAL REPEAT
+02E81	CJK RADICAL CLIFF
+02E82	CJK RADICAL SECOND ONE
+02E83	CJK RADICAL SECOND TWO
+02E84	CJK RADICAL SECOND THREE
+02E85	CJK RADICAL PERSON
+02E86	CJK RADICAL BOX
+02E87	CJK RADICAL TABLE
+02E88	CJK RADICAL KNIFE ONE
+02E89	CJK RADICAL KNIFE TWO
+02E8A	CJK RADICAL DIVINATION
+02E8B	CJK RADICAL SEAL
+02E8C	CJK RADICAL SMALL ONE
+02E8D	CJK RADICAL SMALL TWO
+02E8E	CJK RADICAL LAME ONE
+02E8F	CJK RADICAL LAME TWO
+02E90	CJK RADICAL LAME THREE
+02E91	CJK RADICAL LAME FOUR
+02E92	CJK RADICAL SNAKE
+02E93	CJK RADICAL THREAD
+02E94	CJK RADICAL SNOUT ONE
+02E95	CJK RADICAL SNOUT TWO
+02E96	CJK RADICAL HEART ONE
+02E97	CJK RADICAL HEART TWO
+02E98	CJK RADICAL HAND
+02E99	CJK RADICAL RAP
+02E9B	CJK RADICAL CHOKE
+02E9C	CJK RADICAL SUN
+02E9D	CJK RADICAL MOON
+02E9E	CJK RADICAL DEATH
+02E9F	CJK RADICAL MOTHER
+02EA0	CJK RADICAL CIVILIAN
+02EA1	CJK RADICAL WATER ONE
+02EA2	CJK RADICAL WATER TWO
+02EA3	CJK RADICAL FIRE
+02EA4	CJK RADICAL PAW ONE
+02EA5	CJK RADICAL PAW TWO
+02EA6	CJK RADICAL SIMPLIFIED HALF TREE TRUNK
+02EA7	CJK RADICAL COW
+02EA8	CJK RADICAL DOG
+02EA9	CJK RADICAL JADE
+02EAA	CJK RADICAL BOLT OF CLOTH
+02EAB	CJK RADICAL EYE
+02EAC	CJK RADICAL SPIRIT ONE
+02EAD	CJK RADICAL SPIRIT TWO
+02EAE	CJK RADICAL BAMBOO
+02EAF	CJK RADICAL SILK
+02EB0	CJK RADICAL C-SIMPLIFIED SILK
+02EB1	CJK RADICAL NET ONE
+02EB2	CJK RADICAL NET TWO
+02EB3	CJK RADICAL NET THREE
+02EB4	CJK RADICAL NET FOUR
+02EB5	CJK RADICAL MESH
+02EB6	CJK RADICAL SHEEP
+02EB7	CJK RADICAL RAM
+02EB8	CJK RADICAL EWE
+02EB9	CJK RADICAL OLD
+02EBA	CJK RADICAL BRUSH ONE
+02EBB	CJK RADICAL BRUSH TWO
+02EBC	CJK RADICAL MEAT
+02EBD	CJK RADICAL MORTAR
+02EBE	CJK RADICAL GRASS ONE
+02EBF	CJK RADICAL GRASS TWO
+02EC0	CJK RADICAL GRASS THREE
+02EC1	CJK RADICAL TIGER
+02EC2	CJK RADICAL CLOTHES
+02EC3	CJK RADICAL WEST ONE
+02EC4	CJK RADICAL WEST TWO
+02EC5	CJK RADICAL C-SIMPLIFIED SEE
+02EC6	CJK RADICAL SIMPLIFIED HORN
+02EC7	CJK RADICAL HORN
+02EC8	CJK RADICAL C-SIMPLIFIED SPEECH
+02EC9	CJK RADICAL C-SIMPLIFIED SHELL
+02ECA	CJK RADICAL FOOT
+02ECB	CJK RADICAL C-SIMPLIFIED CART
+02ECC	CJK RADICAL SIMPLIFIED WALK
+02ECD	CJK RADICAL WALK ONE
+02ECE	CJK RADICAL WALK TWO
+02ECF	CJK RADICAL CITY
+02ED0	CJK RADICAL C-SIMPLIFIED GOLD
+02ED1	CJK RADICAL LONG ONE
+02ED2	CJK RADICAL LONG TWO
+02ED3	CJK RADICAL C-SIMPLIFIED LONG
+02ED4	CJK RADICAL C-SIMPLIFIED GATE
+02ED5	CJK RADICAL MOUND ONE
+02ED6	CJK RADICAL MOUND TWO
+02ED7	CJK RADICAL RAIN
+02ED8	CJK RADICAL BLUE
+02ED9	CJK RADICAL C-SIMPLIFIED TANNED LEATHER
+02EDA	CJK RADICAL C-SIMPLIFIED LEAF
+02EDB	CJK RADICAL C-SIMPLIFIED WIND
+02EDC	CJK RADICAL C-SIMPLIFIED FLY
+02EDD	CJK RADICAL EAT ONE
+02EDE	CJK RADICAL EAT TWO
+02EDF	CJK RADICAL EAT THREE
+02EE0	CJK RADICAL C-SIMPLIFIED EAT
+02EE1	CJK RADICAL HEAD
+02EE2	CJK RADICAL C-SIMPLIFIED HORSE
+02EE3	CJK RADICAL BONE
+02EE4	CJK RADICAL GHOST
+02EE5	CJK RADICAL C-SIMPLIFIED FISH
+02EE6	CJK RADICAL C-SIMPLIFIED BIRD
+02EE7	CJK RADICAL C-SIMPLIFIED SALT
+02EE8	CJK RADICAL SIMPLIFIED WHEAT
+02EE9	CJK RADICAL SIMPLIFIED YELLOW
+02EEA	CJK RADICAL C-SIMPLIFIED FROG
+02EEB	CJK RADICAL J-SIMPLIFIED EVEN
+02EEC	CJK RADICAL C-SIMPLIFIED EVEN
+02EED	CJK RADICAL J-SIMPLIFIED TOOTH
+02EEE	CJK RADICAL C-SIMPLIFIED TOOTH
+02EEF	CJK RADICAL J-SIMPLIFIED DRAGON
+02EF0	CJK RADICAL C-SIMPLIFIED DRAGON
+02EF1	CJK RADICAL TURTLE
+02EF2	CJK RADICAL J-SIMPLIFIED TURTLE
+02EF3	CJK RADICAL C-SIMPLIFIED TURTLE
+02F00	KANGXI RADICAL ONE
+02F01	KANGXI RADICAL LINE
+02F02	KANGXI RADICAL DOT
+02F03	KANGXI RADICAL SLASH
+02F04	KANGXI RADICAL SECOND
+02F05	KANGXI RADICAL HOOK
+02F06	KANGXI RADICAL TWO
+02F07	KANGXI RADICAL LID
+02F08	KANGXI RADICAL MAN
+02F09	KANGXI RADICAL LEGS
+02F0A	KANGXI RADICAL ENTER
+02F0B	KANGXI RADICAL EIGHT
+02F0C	KANGXI RADICAL DOWN BOX
+02F0D	KANGXI RADICAL COVER
+02F0E	KANGXI RADICAL ICE
+02F0F	KANGXI RADICAL TABLE
+02F10	KANGXI RADICAL OPEN BOX
+02F11	KANGXI RADICAL KNIFE
+02F12	KANGXI RADICAL POWER
+02F13	KANGXI RADICAL WRAP
+02F14	KANGXI RADICAL SPOON
+02F15	KANGXI RADICAL RIGHT OPEN BOX
+02F16	KANGXI RADICAL HIDING ENCLOSURE
+02F17	KANGXI RADICAL TEN
+02F18	KANGXI RADICAL DIVINATION
+02F19	KANGXI RADICAL SEAL
+02F1A	KANGXI RADICAL CLIFF
+02F1B	KANGXI RADICAL PRIVATE
+02F1C	KANGXI RADICAL AGAIN
+02F1D	KANGXI RADICAL MOUTH
+02F1E	KANGXI RADICAL ENCLOSURE
+02F1F	KANGXI RADICAL EARTH
+02F20	KANGXI RADICAL SCHOLAR
+02F21	KANGXI RADICAL GO
+02F22	KANGXI RADICAL GO SLOWLY
+02F23	KANGXI RADICAL EVENING
+02F24	KANGXI RADICAL BIG
+02F25	KANGXI RADICAL WOMAN
+02F26	KANGXI RADICAL CHILD
+02F27	KANGXI RADICAL ROOF
+02F28	KANGXI RADICAL INCH
+02F29	KANGXI RADICAL SMALL
+02F2A	KANGXI RADICAL LAME
+02F2B	KANGXI RADICAL CORPSE
+02F2C	KANGXI RADICAL SPROUT
+02F2D	KANGXI RADICAL MOUNTAIN
+02F2E	KANGXI RADICAL RIVER
+02F2F	KANGXI RADICAL WORK
+02F30	KANGXI RADICAL ONESELF
+02F31	KANGXI RADICAL TURBAN
+02F32	KANGXI RADICAL DRY
+02F33	KANGXI RADICAL SHORT THREAD
+02F34	KANGXI RADICAL DOTTED CLIFF
+02F35	KANGXI RADICAL LONG STRIDE
+02F36	KANGXI RADICAL TWO HANDS
+02F37	KANGXI RADICAL SHOOT
+02F38	KANGXI RADICAL BOW
+02F39	KANGXI RADICAL SNOUT
+02F3A	KANGXI RADICAL BRISTLE
+02F3B	KANGXI RADICAL STEP
+02F3C	KANGXI RADICAL HEART
+02F3D	KANGXI RADICAL HALBERD
+02F3E	KANGXI RADICAL DOOR
+02F3F	KANGXI RADICAL HAND
+02F40	KANGXI RADICAL BRANCH
+02F41	KANGXI RADICAL RAP
+02F42	KANGXI RADICAL SCRIPT
+02F43	KANGXI RADICAL DIPPER
+02F44	KANGXI RADICAL AXE
+02F45	KANGXI RADICAL SQUARE
+02F46	KANGXI RADICAL NOT
+02F47	KANGXI RADICAL SUN
+02F48	KANGXI RADICAL SAY
+02F49	KANGXI RADICAL MOON
+02F4A	KANGXI RADICAL TREE
+02F4B	KANGXI RADICAL LACK
+02F4C	KANGXI RADICAL STOP
+02F4D	KANGXI RADICAL DEATH
+02F4E	KANGXI RADICAL WEAPON
+02F4F	KANGXI RADICAL DO NOT
+02F50	KANGXI RADICAL COMPARE
+02F51	KANGXI RADICAL FUR
+02F52	KANGXI RADICAL CLAN
+02F53	KANGXI RADICAL STEAM
+02F54	KANGXI RADICAL WATER
+02F55	KANGXI RADICAL FIRE
+02F56	KANGXI RADICAL CLAW
+02F57	KANGXI RADICAL FATHER
+02F58	KANGXI RADICAL DOUBLE X
+02F59	KANGXI RADICAL HALF TREE TRUNK
+02F5A	KANGXI RADICAL SLICE
+02F5B	KANGXI RADICAL FANG
+02F5C	KANGXI RADICAL COW
+02F5D	KANGXI RADICAL DOG
+02F5E	KANGXI RADICAL PROFOUND
+02F5F	KANGXI RADICAL JADE
+02F60	KANGXI RADICAL MELON
+02F61	KANGXI RADICAL TILE
+02F62	KANGXI RADICAL SWEET
+02F63	KANGXI RADICAL LIFE
+02F64	KANGXI RADICAL USE
+02F65	KANGXI RADICAL FIELD
+02F66	KANGXI RADICAL BOLT OF CLOTH
+02F67	KANGXI RADICAL SICKNESS
+02F68	KANGXI RADICAL DOTTED TENT
+02F69	KANGXI RADICAL WHITE
+02F6A	KANGXI RADICAL SKIN
+02F6B	KANGXI RADICAL DISH
+02F6C	KANGXI RADICAL EYE
+02F6D	KANGXI RADICAL SPEAR
+02F6E	KANGXI RADICAL ARROW
+02F6F	KANGXI RADICAL STONE
+02F70	KANGXI RADICAL SPIRIT
+02F71	KANGXI RADICAL TRACK
+02F72	KANGXI RADICAL GRAIN
+02F73	KANGXI RADICAL CAVE
+02F74	KANGXI RADICAL STAND
+02F75	KANGXI RADICAL BAMBOO
+02F76	KANGXI RADICAL RICE
+02F77	KANGXI RADICAL SILK
+02F78	KANGXI RADICAL JAR
+02F79	KANGXI RADICAL NET
+02F7A	KANGXI RADICAL SHEEP
+02F7B	KANGXI RADICAL FEATHER
+02F7C	KANGXI RADICAL OLD
+02F7D	KANGXI RADICAL AND
+02F7E	KANGXI RADICAL PLOW
+02F7F	KANGXI RADICAL EAR
+02F80	KANGXI RADICAL BRUSH
+02F81	KANGXI RADICAL MEAT
+02F82	KANGXI RADICAL MINISTER
+02F83	KANGXI RADICAL SELF
+02F84	KANGXI RADICAL ARRIVE
+02F85	KANGXI RADICAL MORTAR
+02F86	KANGXI RADICAL TONGUE
+02F87	KANGXI RADICAL OPPOSE
+02F88	KANGXI RADICAL BOAT
+02F89	KANGXI RADICAL STOPPING
+02F8A	KANGXI RADICAL COLOR
+02F8B	KANGXI RADICAL GRASS
+02F8C	KANGXI RADICAL TIGER
+02F8D	KANGXI RADICAL INSECT
+02F8E	KANGXI RADICAL BLOOD
+02F8F	KANGXI RADICAL WALK ENCLOSURE
+02F90	KANGXI RADICAL CLOTHES
+02F91	KANGXI RADICAL WEST
+02F92	KANGXI RADICAL SEE
+02F93	KANGXI RADICAL HORN
+02F94	KANGXI RADICAL SPEECH
+02F95	KANGXI RADICAL VALLEY
+02F96	KANGXI RADICAL BEAN
+02F97	KANGXI RADICAL PIG
+02F98	KANGXI RADICAL BADGER
+02F99	KANGXI RADICAL SHELL
+02F9A	KANGXI RADICAL RED
+02F9B	KANGXI RADICAL RUN
+02F9C	KANGXI RADICAL FOOT
+02F9D	KANGXI RADICAL BODY
+02F9E	KANGXI RADICAL CART
+02F9F	KANGXI RADICAL BITTER
+02FA0	KANGXI RADICAL MORNING
+02FA1	KANGXI RADICAL WALK
+02FA2	KANGXI RADICAL CITY
+02FA3	KANGXI RADICAL WINE
+02FA4	KANGXI RADICAL DISTINGUISH
+02FA5	KANGXI RADICAL VILLAGE
+02FA6	KANGXI RADICAL GOLD
+02FA7	KANGXI RADICAL LONG
+02FA8	KANGXI RADICAL GATE
+02FA9	KANGXI RADICAL MOUND
+02FAA	KANGXI RADICAL SLAVE
+02FAB	KANGXI RADICAL SHORT TAILED BIRD
+02FAC	KANGXI RADICAL RAIN
+02FAD	KANGXI RADICAL BLUE
+02FAE	KANGXI RADICAL WRONG
+02FAF	KANGXI RADICAL FACE
+02FB0	KANGXI RADICAL LEATHER
+02FB1	KANGXI RADICAL TANNED LEATHER
+02FB2	KANGXI RADICAL LEEK
+02FB3	KANGXI RADICAL SOUND
+02FB4	KANGXI RADICAL LEAF
+02FB5	KANGXI RADICAL WIND
+02FB6	KANGXI RADICAL FLY
+02FB7	KANGXI RADICAL EAT
+02FB8	KANGXI RADICAL HEAD
+02FB9	KANGXI RADICAL FRAGRANT
+02FBA	KANGXI RADICAL HORSE
+02FBB	KANGXI RADICAL BONE
+02FBC	KANGXI RADICAL TALL
+02FBD	KANGXI RADICAL HAIR
+02FBE	KANGXI RADICAL FIGHT
+02FBF	KANGXI RADICAL SACRIFICIAL WINE
+02FC0	KANGXI RADICAL CAULDRON
+02FC1	KANGXI RADICAL GHOST
+02FC2	KANGXI RADICAL FISH
+02FC3	KANGXI RADICAL BIRD
+02FC4	KANGXI RADICAL SALT
+02FC5	KANGXI RADICAL DEER
+02FC6	KANGXI RADICAL WHEAT
+02FC7	KANGXI RADICAL HEMP
+02FC8	KANGXI RADICAL YELLOW
+02FC9	KANGXI RADICAL MILLET
+02FCA	KANGXI RADICAL BLACK
+02FCB	KANGXI RADICAL EMBROIDERY
+02FCC	KANGXI RADICAL FROG
+02FCD	KANGXI RADICAL TRIPOD
+02FCE	KANGXI RADICAL DRUM
+02FCF	KANGXI RADICAL RAT
+02FD0	KANGXI RADICAL NOSE
+02FD1	KANGXI RADICAL EVEN
+02FD2	KANGXI RADICAL TOOTH
+02FD3	KANGXI RADICAL DRAGON
+02FD4	KANGXI RADICAL TURTLE
+02FD5	KANGXI RADICAL FLUTE
+02FF0	IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT
+02FF1	IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW
+02FF2	IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT
+02FF3	IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW
+02FF4	IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND
+02FF5	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE
+02FF6	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW
+02FF7	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT
+02FF8	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT
+02FF9	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT
+02FFA	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT
+02FFB	IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID
+03000	IDEOGRAPHIC SPACE
+03001	IDEOGRAPHIC COMMA
+03002	IDEOGRAPHIC FULL STOP
+03003	DITTO MARK
+03004	JAPANESE INDUSTRIAL STANDARD SYMBOL
+03005	IDEOGRAPHIC ITERATION MARK
+03006	IDEOGRAPHIC CLOSING MARK
+03007	IDEOGRAPHIC NUMBER ZERO
+03008	LEFT ANGLE BRACKET
+03009	RIGHT ANGLE BRACKET
+0300A	LEFT DOUBLE ANGLE BRACKET
+0300B	RIGHT DOUBLE ANGLE BRACKET
+0300C	LEFT CORNER BRACKET
+0300D	RIGHT CORNER BRACKET
+0300E	LEFT WHITE CORNER BRACKET
+0300F	RIGHT WHITE CORNER BRACKET
+03010	LEFT BLACK LENTICULAR BRACKET
+03011	RIGHT BLACK LENTICULAR BRACKET
+03012	POSTAL MARK
+03013	GETA MARK
+03014	LEFT TORTOISE SHELL BRACKET
+03015	RIGHT TORTOISE SHELL BRACKET
+03016	LEFT WHITE LENTICULAR BRACKET
+03017	RIGHT WHITE LENTICULAR BRACKET
+03018	LEFT WHITE TORTOISE SHELL BRACKET
+03019	RIGHT WHITE TORTOISE SHELL BRACKET
+0301A	LEFT WHITE SQUARE BRACKET
+0301B	RIGHT WHITE SQUARE BRACKET
+0301C	WAVE DASH
+0301D	REVERSED DOUBLE PRIME QUOTATION MARK
+0301E	DOUBLE PRIME QUOTATION MARK
+0301F	LOW DOUBLE PRIME QUOTATION MARK
+03020	POSTAL MARK FACE
+03021	HANGZHOU NUMERAL ONE
+03022	HANGZHOU NUMERAL TWO
+03023	HANGZHOU NUMERAL THREE
+03024	HANGZHOU NUMERAL FOUR
+03025	HANGZHOU NUMERAL FIVE
+03026	HANGZHOU NUMERAL SIX
+03027	HANGZHOU NUMERAL SEVEN
+03028	HANGZHOU NUMERAL EIGHT
+03029	HANGZHOU NUMERAL NINE
+0302A	IDEOGRAPHIC LEVEL TONE MARK
+0302B	IDEOGRAPHIC RISING TONE MARK
+0302C	IDEOGRAPHIC DEPARTING TONE MARK
+0302D	IDEOGRAPHIC ENTERING TONE MARK
+0302E	HANGUL SINGLE DOT TONE MARK
+0302F	HANGUL DOUBLE DOT TONE MARK
+03030	WAVY DASH
+03031	VERTICAL KANA REPEAT MARK
+03032	VERTICAL KANA REPEAT WITH VOICED SOUND MARK
+03033	VERTICAL KANA REPEAT MARK UPPER HALF
+03034	VERTICAL KANA REPEAT WITH VOICED SOUND MARK UPPER HALF
+03035	VERTICAL KANA REPEAT MARK LOWER HALF
+03036	CIRCLED POSTAL MARK
+03037	IDEOGRAPHIC TELEGRAPH LINE FEED SEPARATOR SYMBOL
+03038	HANGZHOU NUMERAL TEN
+03039	HANGZHOU NUMERAL TWENTY
+0303A	HANGZHOU NUMERAL THIRTY
+0303B	VERTICAL IDEOGRAPHIC ITERATION MARK
+0303C	MASU MARK
+0303D	PART ALTERNATION MARK
+0303E	IDEOGRAPHIC VARIATION INDICATOR
+0303F	IDEOGRAPHIC HALF FILL SPACE
+03041	HIRAGANA LETTER SMALL A
+03042	HIRAGANA LETTER A
+03043	HIRAGANA LETTER SMALL I
+03044	HIRAGANA LETTER I
+03045	HIRAGANA LETTER SMALL U
+03046	HIRAGANA LETTER U
+03047	HIRAGANA LETTER SMALL E
+03048	HIRAGANA LETTER E
+03049	HIRAGANA LETTER SMALL O
+0304A	HIRAGANA LETTER O
+0304B	HIRAGANA LETTER KA
+0304C	HIRAGANA LETTER GA
+0304D	HIRAGANA LETTER KI
+0304E	HIRAGANA LETTER GI
+0304F	HIRAGANA LETTER KU
+03050	HIRAGANA LETTER GU
+03051	HIRAGANA LETTER KE
+03052	HIRAGANA LETTER GE
+03053	HIRAGANA LETTER KO
+03054	HIRAGANA LETTER GO
+03055	HIRAGANA LETTER SA
+03056	HIRAGANA LETTER ZA
+03057	HIRAGANA LETTER SI
+03058	HIRAGANA LETTER ZI
+03059	HIRAGANA LETTER SU
+0305A	HIRAGANA LETTER ZU
+0305B	HIRAGANA LETTER SE
+0305C	HIRAGANA LETTER ZE
+0305D	HIRAGANA LETTER SO
+0305E	HIRAGANA LETTER ZO
+0305F	HIRAGANA LETTER TA
+03060	HIRAGANA LETTER DA
+03061	HIRAGANA LETTER TI
+03062	HIRAGANA LETTER DI
+03063	HIRAGANA LETTER SMALL TU
+03064	HIRAGANA LETTER TU
+03065	HIRAGANA LETTER DU
+03066	HIRAGANA LETTER TE
+03067	HIRAGANA LETTER DE
+03068	HIRAGANA LETTER TO
+03069	HIRAGANA LETTER DO
+0306A	HIRAGANA LETTER NA
+0306B	HIRAGANA LETTER NI
+0306C	HIRAGANA LETTER NU
+0306D	HIRAGANA LETTER NE
+0306E	HIRAGANA LETTER NO
+0306F	HIRAGANA LETTER HA
+03070	HIRAGANA LETTER BA
+03071	HIRAGANA LETTER PA
+03072	HIRAGANA LETTER HI
+03073	HIRAGANA LETTER BI
+03074	HIRAGANA LETTER PI
+03075	HIRAGANA LETTER HU
+03076	HIRAGANA LETTER BU
+03077	HIRAGANA LETTER PU
+03078	HIRAGANA LETTER HE
+03079	HIRAGANA LETTER BE
+0307A	HIRAGANA LETTER PE
+0307B	HIRAGANA LETTER HO
+0307C	HIRAGANA LETTER BO
+0307D	HIRAGANA LETTER PO
+0307E	HIRAGANA LETTER MA
+0307F	HIRAGANA LETTER MI
+03080	HIRAGANA LETTER MU
+03081	HIRAGANA LETTER ME
+03082	HIRAGANA LETTER MO
+03083	HIRAGANA LETTER SMALL YA
+03084	HIRAGANA LETTER YA
+03085	HIRAGANA LETTER SMALL YU
+03086	HIRAGANA LETTER YU
+03087	HIRAGANA LETTER SMALL YO
+03088	HIRAGANA LETTER YO
+03089	HIRAGANA LETTER RA
+0308A	HIRAGANA LETTER RI
+0308B	HIRAGANA LETTER RU
+0308C	HIRAGANA LETTER RE
+0308D	HIRAGANA LETTER RO
+0308E	HIRAGANA LETTER SMALL WA
+0308F	HIRAGANA LETTER WA
+03090	HIRAGANA LETTER WI
+03091	HIRAGANA LETTER WE
+03092	HIRAGANA LETTER WO
+03093	HIRAGANA LETTER N
+03094	HIRAGANA LETTER VU
+03095	HIRAGANA LETTER SMALL KA
+03096	HIRAGANA LETTER SMALL KE
+03099	COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK
+0309A	COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+0309B	KATAKANA-HIRAGANA VOICED SOUND MARK
+0309C	KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+0309D	HIRAGANA ITERATION MARK
+0309E	HIRAGANA VOICED ITERATION MARK
+0309F	HIRAGANA DIGRAPH YORI
+030A0	KATAKANA-HIRAGANA DOUBLE HYPHEN
+030A1	KATAKANA LETTER SMALL A
+030A2	KATAKANA LETTER A
+030A3	KATAKANA LETTER SMALL I
+030A4	KATAKANA LETTER I
+030A5	KATAKANA LETTER SMALL U
+030A6	KATAKANA LETTER U
+030A7	KATAKANA LETTER SMALL E
+030A8	KATAKANA LETTER E
+030A9	KATAKANA LETTER SMALL O
+030AA	KATAKANA LETTER O
+030AB	KATAKANA LETTER KA
+030AC	KATAKANA LETTER GA
+030AD	KATAKANA LETTER KI
+030AE	KATAKANA LETTER GI
+030AF	KATAKANA LETTER KU
+030B0	KATAKANA LETTER GU
+030B1	KATAKANA LETTER KE
+030B2	KATAKANA LETTER GE
+030B3	KATAKANA LETTER KO
+030B4	KATAKANA LETTER GO
+030B5	KATAKANA LETTER SA
+030B6	KATAKANA LETTER ZA
+030B7	KATAKANA LETTER SI
+030B8	KATAKANA LETTER ZI
+030B9	KATAKANA LETTER SU
+030BA	KATAKANA LETTER ZU
+030BB	KATAKANA LETTER SE
+030BC	KATAKANA LETTER ZE
+030BD	KATAKANA LETTER SO
+030BE	KATAKANA LETTER ZO
+030BF	KATAKANA LETTER TA
+030C0	KATAKANA LETTER DA
+030C1	KATAKANA LETTER TI
+030C2	KATAKANA LETTER DI
+030C3	KATAKANA LETTER SMALL TU
+030C4	KATAKANA LETTER TU
+030C5	KATAKANA LETTER DU
+030C6	KATAKANA LETTER TE
+030C7	KATAKANA LETTER DE
+030C8	KATAKANA LETTER TO
+030C9	KATAKANA LETTER DO
+030CA	KATAKANA LETTER NA
+030CB	KATAKANA LETTER NI
+030CC	KATAKANA LETTER NU
+030CD	KATAKANA LETTER NE
+030CE	KATAKANA LETTER NO
+030CF	KATAKANA LETTER HA
+030D0	KATAKANA LETTER BA
+030D1	KATAKANA LETTER PA
+030D2	KATAKANA LETTER HI
+030D3	KATAKANA LETTER BI
+030D4	KATAKANA LETTER PI
+030D5	KATAKANA LETTER HU
+030D6	KATAKANA LETTER BU
+030D7	KATAKANA LETTER PU
+030D8	KATAKANA LETTER HE
+030D9	KATAKANA LETTER BE
+030DA	KATAKANA LETTER PE
+030DB	KATAKANA LETTER HO
+030DC	KATAKANA LETTER BO
+030DD	KATAKANA LETTER PO
+030DE	KATAKANA LETTER MA
+030DF	KATAKANA LETTER MI
+030E0	KATAKANA LETTER MU
+030E1	KATAKANA LETTER ME
+030E2	KATAKANA LETTER MO
+030E3	KATAKANA LETTER SMALL YA
+030E4	KATAKANA LETTER YA
+030E5	KATAKANA LETTER SMALL YU
+030E6	KATAKANA LETTER YU
+030E7	KATAKANA LETTER SMALL YO
+030E8	KATAKANA LETTER YO
+030E9	KATAKANA LETTER RA
+030EA	KATAKANA LETTER RI
+030EB	KATAKANA LETTER RU
+030EC	KATAKANA LETTER RE
+030ED	KATAKANA LETTER RO
+030EE	KATAKANA LETTER SMALL WA
+030EF	KATAKANA LETTER WA
+030F0	KATAKANA LETTER WI
+030F1	KATAKANA LETTER WE
+030F2	KATAKANA LETTER WO
+030F3	KATAKANA LETTER N
+030F4	KATAKANA LETTER VU
+030F5	KATAKANA LETTER SMALL KA
+030F6	KATAKANA LETTER SMALL KE
+030F7	KATAKANA LETTER VA
+030F8	KATAKANA LETTER VI
+030F9	KATAKANA LETTER VE
+030FA	KATAKANA LETTER VO
+030FB	KATAKANA MIDDLE DOT
+030FC	KATAKANA-HIRAGANA PROLONGED SOUND MARK
+030FD	KATAKANA ITERATION MARK
+030FE	KATAKANA VOICED ITERATION MARK
+030FF	KATAKANA DIGRAPH KOTO
+03105	BOPOMOFO LETTER B
+03106	BOPOMOFO LETTER P
+03107	BOPOMOFO LETTER M
+03108	BOPOMOFO LETTER F
+03109	BOPOMOFO LETTER D
+0310A	BOPOMOFO LETTER T
+0310B	BOPOMOFO LETTER N
+0310C	BOPOMOFO LETTER L
+0310D	BOPOMOFO LETTER G
+0310E	BOPOMOFO LETTER K
+0310F	BOPOMOFO LETTER H
+03110	BOPOMOFO LETTER J
+03111	BOPOMOFO LETTER Q
+03112	BOPOMOFO LETTER X
+03113	BOPOMOFO LETTER ZH
+03114	BOPOMOFO LETTER CH
+03115	BOPOMOFO LETTER SH
+03116	BOPOMOFO LETTER R
+03117	BOPOMOFO LETTER Z
+03118	BOPOMOFO LETTER C
+03119	BOPOMOFO LETTER S
+0311A	BOPOMOFO LETTER A
+0311B	BOPOMOFO LETTER O
+0311C	BOPOMOFO LETTER E
+0311D	BOPOMOFO LETTER EH
+0311E	BOPOMOFO LETTER AI
+0311F	BOPOMOFO LETTER EI
+03120	BOPOMOFO LETTER AU
+03121	BOPOMOFO LETTER OU
+03122	BOPOMOFO LETTER AN
+03123	BOPOMOFO LETTER EN
+03124	BOPOMOFO LETTER ANG
+03125	BOPOMOFO LETTER ENG
+03126	BOPOMOFO LETTER ER
+03127	BOPOMOFO LETTER I
+03128	BOPOMOFO LETTER U
+03129	BOPOMOFO LETTER IU
+0312A	BOPOMOFO LETTER V
+0312B	BOPOMOFO LETTER NG
+0312C	BOPOMOFO LETTER GN
+0312D	BOPOMOFO LETTER IH
+0312E	BOPOMOFO LETTER O WITH DOT ABOVE
+03131	HANGUL LETTER KIYEOK
+03132	HANGUL LETTER SSANGKIYEOK
+03133	HANGUL LETTER KIYEOK-SIOS
+03134	HANGUL LETTER NIEUN
+03135	HANGUL LETTER NIEUN-CIEUC
+03136	HANGUL LETTER NIEUN-HIEUH
+03137	HANGUL LETTER TIKEUT
+03138	HANGUL LETTER SSANGTIKEUT
+03139	HANGUL LETTER RIEUL
+0313A	HANGUL LETTER RIEUL-KIYEOK
+0313B	HANGUL LETTER RIEUL-MIEUM
+0313C	HANGUL LETTER RIEUL-PIEUP
+0313D	HANGUL LETTER RIEUL-SIOS
+0313E	HANGUL LETTER RIEUL-THIEUTH
+0313F	HANGUL LETTER RIEUL-PHIEUPH
+03140	HANGUL LETTER RIEUL-HIEUH
+03141	HANGUL LETTER MIEUM
+03142	HANGUL LETTER PIEUP
+03143	HANGUL LETTER SSANGPIEUP
+03144	HANGUL LETTER PIEUP-SIOS
+03145	HANGUL LETTER SIOS
+03146	HANGUL LETTER SSANGSIOS
+03147	HANGUL LETTER IEUNG
+03148	HANGUL LETTER CIEUC
+03149	HANGUL LETTER SSANGCIEUC
+0314A	HANGUL LETTER CHIEUCH
+0314B	HANGUL LETTER KHIEUKH
+0314C	HANGUL LETTER THIEUTH
+0314D	HANGUL LETTER PHIEUPH
+0314E	HANGUL LETTER HIEUH
+0314F	HANGUL LETTER A
+03150	HANGUL LETTER AE
+03151	HANGUL LETTER YA
+03152	HANGUL LETTER YAE
+03153	HANGUL LETTER EO
+03154	HANGUL LETTER E
+03155	HANGUL LETTER YEO
+03156	HANGUL LETTER YE
+03157	HANGUL LETTER O
+03158	HANGUL LETTER WA
+03159	HANGUL LETTER WAE
+0315A	HANGUL LETTER OE
+0315B	HANGUL LETTER YO
+0315C	HANGUL LETTER U
+0315D	HANGUL LETTER WEO
+0315E	HANGUL LETTER WE
+0315F	HANGUL LETTER WI
+03160	HANGUL LETTER YU
+03161	HANGUL LETTER EU
+03162	HANGUL LETTER YI
+03163	HANGUL LETTER I
+03164	HANGUL FILLER
+03165	HANGUL LETTER SSANGNIEUN
+03166	HANGUL LETTER NIEUN-TIKEUT
+03167	HANGUL LETTER NIEUN-SIOS
+03168	HANGUL LETTER NIEUN-PANSIOS
+03169	HANGUL LETTER RIEUL-KIYEOK-SIOS
+0316A	HANGUL LETTER RIEUL-TIKEUT
+0316B	HANGUL LETTER RIEUL-PIEUP-SIOS
+0316C	HANGUL LETTER RIEUL-PANSIOS
+0316D	HANGUL LETTER RIEUL-YEORINHIEUH
+0316E	HANGUL LETTER MIEUM-PIEUP
+0316F	HANGUL LETTER MIEUM-SIOS
+03170	HANGUL LETTER MIEUM-PANSIOS
+03171	HANGUL LETTER KAPYEOUNMIEUM
+03172	HANGUL LETTER PIEUP-KIYEOK
+03173	HANGUL LETTER PIEUP-TIKEUT
+03174	HANGUL LETTER PIEUP-SIOS-KIYEOK
+03175	HANGUL LETTER PIEUP-SIOS-TIKEUT
+03176	HANGUL LETTER PIEUP-CIEUC
+03177	HANGUL LETTER PIEUP-THIEUTH
+03178	HANGUL LETTER KAPYEOUNPIEUP
+03179	HANGUL LETTER KAPYEOUNSSANGPIEUP
+0317A	HANGUL LETTER SIOS-KIYEOK
+0317B	HANGUL LETTER SIOS-NIEUN
+0317C	HANGUL LETTER SIOS-TIKEUT
+0317D	HANGUL LETTER SIOS-PIEUP
+0317E	HANGUL LETTER SIOS-CIEUC
+0317F	HANGUL LETTER PANSIOS
+03180	HANGUL LETTER SSANGIEUNG
+03181	HANGUL LETTER YESIEUNG
+03182	HANGUL LETTER YESIEUNG-SIOS
+03183	HANGUL LETTER YESIEUNG-PANSIOS
+03184	HANGUL LETTER KAPYEOUNPHIEUPH
+03185	HANGUL LETTER SSANGHIEUH
+03186	HANGUL LETTER YEORINHIEUH
+03187	HANGUL LETTER YO-YA
+03188	HANGUL LETTER YO-YAE
+03189	HANGUL LETTER YO-I
+0318A	HANGUL LETTER YU-YEO
+0318B	HANGUL LETTER YU-YE
+0318C	HANGUL LETTER YU-I
+0318D	HANGUL LETTER ARAEA
+0318E	HANGUL LETTER ARAEAE
+03190	IDEOGRAPHIC ANNOTATION LINKING MARK
+03191	IDEOGRAPHIC ANNOTATION REVERSE MARK
+03192	IDEOGRAPHIC ANNOTATION ONE MARK
+03193	IDEOGRAPHIC ANNOTATION TWO MARK
+03194	IDEOGRAPHIC ANNOTATION THREE MARK
+03195	IDEOGRAPHIC ANNOTATION FOUR MARK
+03196	IDEOGRAPHIC ANNOTATION TOP MARK
+03197	IDEOGRAPHIC ANNOTATION MIDDLE MARK
+03198	IDEOGRAPHIC ANNOTATION BOTTOM MARK
+03199	IDEOGRAPHIC ANNOTATION FIRST MARK
+0319A	IDEOGRAPHIC ANNOTATION SECOND MARK
+0319B	IDEOGRAPHIC ANNOTATION THIRD MARK
+0319C	IDEOGRAPHIC ANNOTATION FOURTH MARK
+0319D	IDEOGRAPHIC ANNOTATION HEAVEN MARK
+0319E	IDEOGRAPHIC ANNOTATION EARTH MARK
+0319F	IDEOGRAPHIC ANNOTATION MAN MARK
+031A0	BOPOMOFO LETTER BU
+031A1	BOPOMOFO LETTER ZI
+031A2	BOPOMOFO LETTER JI
+031A3	BOPOMOFO LETTER GU
+031A4	BOPOMOFO LETTER EE
+031A5	BOPOMOFO LETTER ENN
+031A6	BOPOMOFO LETTER OO
+031A7	BOPOMOFO LETTER ONN
+031A8	BOPOMOFO LETTER IR
+031A9	BOPOMOFO LETTER ANN
+031AA	BOPOMOFO LETTER INN
+031AB	BOPOMOFO LETTER UNN
+031AC	BOPOMOFO LETTER IM
+031AD	BOPOMOFO LETTER NGG
+031AE	BOPOMOFO LETTER AINN
+031AF	BOPOMOFO LETTER AUNN
+031B0	BOPOMOFO LETTER AM
+031B1	BOPOMOFO LETTER OM
+031B2	BOPOMOFO LETTER ONG
+031B3	BOPOMOFO LETTER INNN
+031B4	BOPOMOFO FINAL LETTER P
+031B5	BOPOMOFO FINAL LETTER T
+031B6	BOPOMOFO FINAL LETTER K
+031B7	BOPOMOFO FINAL LETTER H
+031B8	BOPOMOFO LETTER GH
+031B9	BOPOMOFO LETTER LH
+031BA	BOPOMOFO LETTER ZY
+031C0	CJK STROKE T
+031C1	CJK STROKE WG
+031C2	CJK STROKE XG
+031C3	CJK STROKE BXG
+031C4	CJK STROKE SW
+031C5	CJK STROKE HZZ
+031C6	CJK STROKE HZG
+031C7	CJK STROKE HP
+031C8	CJK STROKE HZWG
+031C9	CJK STROKE SZWG
+031CA	CJK STROKE HZT
+031CB	CJK STROKE HZZP
+031CC	CJK STROKE HPWG
+031CD	CJK STROKE HZW
+031CE	CJK STROKE HZZZ
+031CF	CJK STROKE N
+031D0	CJK STROKE H
+031D1	CJK STROKE S
+031D2	CJK STROKE P
+031D3	CJK STROKE SP
+031D4	CJK STROKE D
+031D5	CJK STROKE HZ
+031D6	CJK STROKE HG
+031D7	CJK STROKE SZ
+031D8	CJK STROKE SWZ
+031D9	CJK STROKE ST
+031DA	CJK STROKE SG
+031DB	CJK STROKE PD
+031DC	CJK STROKE PZ
+031DD	CJK STROKE TN
+031DE	CJK STROKE SZZ
+031DF	CJK STROKE SWG
+031E0	CJK STROKE HXWG
+031E1	CJK STROKE HZZZG
+031E2	CJK STROKE PG
+031E3	CJK STROKE Q
+031F0	KATAKANA LETTER SMALL KU
+031F1	KATAKANA LETTER SMALL SI
+031F2	KATAKANA LETTER SMALL SU
+031F3	KATAKANA LETTER SMALL TO
+031F4	KATAKANA LETTER SMALL NU
+031F5	KATAKANA LETTER SMALL HA
+031F6	KATAKANA LETTER SMALL HI
+031F7	KATAKANA LETTER SMALL HU
+031F8	KATAKANA LETTER SMALL HE
+031F9	KATAKANA LETTER SMALL HO
+031FA	KATAKANA LETTER SMALL MU
+031FB	KATAKANA LETTER SMALL RA
+031FC	KATAKANA LETTER SMALL RI
+031FD	KATAKANA LETTER SMALL RU
+031FE	KATAKANA LETTER SMALL RE
+031FF	KATAKANA LETTER SMALL RO
+03200	PARENTHESIZED HANGUL KIYEOK
+03201	PARENTHESIZED HANGUL NIEUN
+03202	PARENTHESIZED HANGUL TIKEUT
+03203	PARENTHESIZED HANGUL RIEUL
+03204	PARENTHESIZED HANGUL MIEUM
+03205	PARENTHESIZED HANGUL PIEUP
+03206	PARENTHESIZED HANGUL SIOS
+03207	PARENTHESIZED HANGUL IEUNG
+03208	PARENTHESIZED HANGUL CIEUC
+03209	PARENTHESIZED HANGUL CHIEUCH
+0320A	PARENTHESIZED HANGUL KHIEUKH
+0320B	PARENTHESIZED HANGUL THIEUTH
+0320C	PARENTHESIZED HANGUL PHIEUPH
+0320D	PARENTHESIZED HANGUL HIEUH
+0320E	PARENTHESIZED HANGUL KIYEOK A
+0320F	PARENTHESIZED HANGUL NIEUN A
+03210	PARENTHESIZED HANGUL TIKEUT A
+03211	PARENTHESIZED HANGUL RIEUL A
+03212	PARENTHESIZED HANGUL MIEUM A
+03213	PARENTHESIZED HANGUL PIEUP A
+03214	PARENTHESIZED HANGUL SIOS A
+03215	PARENTHESIZED HANGUL IEUNG A
+03216	PARENTHESIZED HANGUL CIEUC A
+03217	PARENTHESIZED HANGUL CHIEUCH A
+03218	PARENTHESIZED HANGUL KHIEUKH A
+03219	PARENTHESIZED HANGUL THIEUTH A
+0321A	PARENTHESIZED HANGUL PHIEUPH A
+0321B	PARENTHESIZED HANGUL HIEUH A
+0321C	PARENTHESIZED HANGUL CIEUC U
+0321D	PARENTHESIZED KOREAN CHARACTER OJEON
+0321E	PARENTHESIZED KOREAN CHARACTER O HU
+03220	PARENTHESIZED IDEOGRAPH ONE
+03221	PARENTHESIZED IDEOGRAPH TWO
+03222	PARENTHESIZED IDEOGRAPH THREE
+03223	PARENTHESIZED IDEOGRAPH FOUR
+03224	PARENTHESIZED IDEOGRAPH FIVE
+03225	PARENTHESIZED IDEOGRAPH SIX
+03226	PARENTHESIZED IDEOGRAPH SEVEN
+03227	PARENTHESIZED IDEOGRAPH EIGHT
+03228	PARENTHESIZED IDEOGRAPH NINE
+03229	PARENTHESIZED IDEOGRAPH TEN
+0322A	PARENTHESIZED IDEOGRAPH MOON
+0322B	PARENTHESIZED IDEOGRAPH FIRE
+0322C	PARENTHESIZED IDEOGRAPH WATER
+0322D	PARENTHESIZED IDEOGRAPH WOOD
+0322E	PARENTHESIZED IDEOGRAPH METAL
+0322F	PARENTHESIZED IDEOGRAPH EARTH
+03230	PARENTHESIZED IDEOGRAPH SUN
+03231	PARENTHESIZED IDEOGRAPH STOCK
+03232	PARENTHESIZED IDEOGRAPH HAVE
+03233	PARENTHESIZED IDEOGRAPH SOCIETY
+03234	PARENTHESIZED IDEOGRAPH NAME
+03235	PARENTHESIZED IDEOGRAPH SPECIAL
+03236	PARENTHESIZED IDEOGRAPH FINANCIAL
+03237	PARENTHESIZED IDEOGRAPH CONGRATULATION
+03238	PARENTHESIZED IDEOGRAPH LABOR
+03239	PARENTHESIZED IDEOGRAPH REPRESENT
+0323A	PARENTHESIZED IDEOGRAPH CALL
+0323B	PARENTHESIZED IDEOGRAPH STUDY
+0323C	PARENTHESIZED IDEOGRAPH SUPERVISE
+0323D	PARENTHESIZED IDEOGRAPH ENTERPRISE
+0323E	PARENTHESIZED IDEOGRAPH RESOURCE
+0323F	PARENTHESIZED IDEOGRAPH ALLIANCE
+03240	PARENTHESIZED IDEOGRAPH FESTIVAL
+03241	PARENTHESIZED IDEOGRAPH REST
+03242	PARENTHESIZED IDEOGRAPH SELF
+03243	PARENTHESIZED IDEOGRAPH REACH
+03244	CIRCLED IDEOGRAPH QUESTION
+03245	CIRCLED IDEOGRAPH KINDERGARTEN
+03246	CIRCLED IDEOGRAPH SCHOOL
+03247	CIRCLED IDEOGRAPH KOTO
+03248	CIRCLED NUMBER TEN ON BLACK SQUARE
+03249	CIRCLED NUMBER TWENTY ON BLACK SQUARE
+0324A	CIRCLED NUMBER THIRTY ON BLACK SQUARE
+0324B	CIRCLED NUMBER FORTY ON BLACK SQUARE
+0324C	CIRCLED NUMBER FIFTY ON BLACK SQUARE
+0324D	CIRCLED NUMBER SIXTY ON BLACK SQUARE
+0324E	CIRCLED NUMBER SEVENTY ON BLACK SQUARE
+0324F	CIRCLED NUMBER EIGHTY ON BLACK SQUARE
+03250	PARTNERSHIP SIGN
+03251	CIRCLED NUMBER TWENTY ONE
+03252	CIRCLED NUMBER TWENTY TWO
+03253	CIRCLED NUMBER TWENTY THREE
+03254	CIRCLED NUMBER TWENTY FOUR
+03255	CIRCLED NUMBER TWENTY FIVE
+03256	CIRCLED NUMBER TWENTY SIX
+03257	CIRCLED NUMBER TWENTY SEVEN
+03258	CIRCLED NUMBER TWENTY EIGHT
+03259	CIRCLED NUMBER TWENTY NINE
+0325A	CIRCLED NUMBER THIRTY
+0325B	CIRCLED NUMBER THIRTY ONE
+0325C	CIRCLED NUMBER THIRTY TWO
+0325D	CIRCLED NUMBER THIRTY THREE
+0325E	CIRCLED NUMBER THIRTY FOUR
+0325F	CIRCLED NUMBER THIRTY FIVE
+03260	CIRCLED HANGUL KIYEOK
+03261	CIRCLED HANGUL NIEUN
+03262	CIRCLED HANGUL TIKEUT
+03263	CIRCLED HANGUL RIEUL
+03264	CIRCLED HANGUL MIEUM
+03265	CIRCLED HANGUL PIEUP
+03266	CIRCLED HANGUL SIOS
+03267	CIRCLED HANGUL IEUNG
+03268	CIRCLED HANGUL CIEUC
+03269	CIRCLED HANGUL CHIEUCH
+0326A	CIRCLED HANGUL KHIEUKH
+0326B	CIRCLED HANGUL THIEUTH
+0326C	CIRCLED HANGUL PHIEUPH
+0326D	CIRCLED HANGUL HIEUH
+0326E	CIRCLED HANGUL KIYEOK A
+0326F	CIRCLED HANGUL NIEUN A
+03270	CIRCLED HANGUL TIKEUT A
+03271	CIRCLED HANGUL RIEUL A
+03272	CIRCLED HANGUL MIEUM A
+03273	CIRCLED HANGUL PIEUP A
+03274	CIRCLED HANGUL SIOS A
+03275	CIRCLED HANGUL IEUNG A
+03276	CIRCLED HANGUL CIEUC A
+03277	CIRCLED HANGUL CHIEUCH A
+03278	CIRCLED HANGUL KHIEUKH A
+03279	CIRCLED HANGUL THIEUTH A
+0327A	CIRCLED HANGUL PHIEUPH A
+0327B	CIRCLED HANGUL HIEUH A
+0327C	CIRCLED KOREAN CHARACTER CHAMKO
+0327D	CIRCLED KOREAN CHARACTER JUEUI
+0327E	CIRCLED HANGUL IEUNG U
+0327F	KOREAN STANDARD SYMBOL
+03280	CIRCLED IDEOGRAPH ONE
+03281	CIRCLED IDEOGRAPH TWO
+03282	CIRCLED IDEOGRAPH THREE
+03283	CIRCLED IDEOGRAPH FOUR
+03284	CIRCLED IDEOGRAPH FIVE
+03285	CIRCLED IDEOGRAPH SIX
+03286	CIRCLED IDEOGRAPH SEVEN
+03287	CIRCLED IDEOGRAPH EIGHT
+03288	CIRCLED IDEOGRAPH NINE
+03289	CIRCLED IDEOGRAPH TEN
+0328A	CIRCLED IDEOGRAPH MOON
+0328B	CIRCLED IDEOGRAPH FIRE
+0328C	CIRCLED IDEOGRAPH WATER
+0328D	CIRCLED IDEOGRAPH WOOD
+0328E	CIRCLED IDEOGRAPH METAL
+0328F	CIRCLED IDEOGRAPH EARTH
+03290	CIRCLED IDEOGRAPH SUN
+03291	CIRCLED IDEOGRAPH STOCK
+03292	CIRCLED IDEOGRAPH HAVE
+03293	CIRCLED IDEOGRAPH SOCIETY
+03294	CIRCLED IDEOGRAPH NAME
+03295	CIRCLED IDEOGRAPH SPECIAL
+03296	CIRCLED IDEOGRAPH FINANCIAL
+03297	CIRCLED IDEOGRAPH CONGRATULATION
+03298	CIRCLED IDEOGRAPH LABOR
+03299	CIRCLED IDEOGRAPH SECRET
+0329A	CIRCLED IDEOGRAPH MALE
+0329B	CIRCLED IDEOGRAPH FEMALE
+0329C	CIRCLED IDEOGRAPH SUITABLE
+0329D	CIRCLED IDEOGRAPH EXCELLENT
+0329E	CIRCLED IDEOGRAPH PRINT
+0329F	CIRCLED IDEOGRAPH ATTENTION
+032A0	CIRCLED IDEOGRAPH ITEM
+032A1	CIRCLED IDEOGRAPH REST
+032A2	CIRCLED IDEOGRAPH COPY
+032A3	CIRCLED IDEOGRAPH CORRECT
+032A4	CIRCLED IDEOGRAPH HIGH
+032A5	CIRCLED IDEOGRAPH CENTRE
+032A6	CIRCLED IDEOGRAPH LOW
+032A7	CIRCLED IDEOGRAPH LEFT
+032A8	CIRCLED IDEOGRAPH RIGHT
+032A9	CIRCLED IDEOGRAPH MEDICINE
+032AA	CIRCLED IDEOGRAPH RELIGION
+032AB	CIRCLED IDEOGRAPH STUDY
+032AC	CIRCLED IDEOGRAPH SUPERVISE
+032AD	CIRCLED IDEOGRAPH ENTERPRISE
+032AE	CIRCLED IDEOGRAPH RESOURCE
+032AF	CIRCLED IDEOGRAPH ALLIANCE
+032B0	CIRCLED IDEOGRAPH NIGHT
+032B1	CIRCLED NUMBER THIRTY SIX
+032B2	CIRCLED NUMBER THIRTY SEVEN
+032B3	CIRCLED NUMBER THIRTY EIGHT
+032B4	CIRCLED NUMBER THIRTY NINE
+032B5	CIRCLED NUMBER FORTY
+032B6	CIRCLED NUMBER FORTY ONE
+032B7	CIRCLED NUMBER FORTY TWO
+032B8	CIRCLED NUMBER FORTY THREE
+032B9	CIRCLED NUMBER FORTY FOUR
+032BA	CIRCLED NUMBER FORTY FIVE
+032BB	CIRCLED NUMBER FORTY SIX
+032BC	CIRCLED NUMBER FORTY SEVEN
+032BD	CIRCLED NUMBER FORTY EIGHT
+032BE	CIRCLED NUMBER FORTY NINE
+032BF	CIRCLED NUMBER FIFTY
+032C0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+032C1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+032C2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+032C3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+032C4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+032C5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+032C6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+032C7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+032C8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+032C9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+032CA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+032CB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+032CC	SQUARE HG
+032CD	SQUARE ERG
+032CE	SQUARE EV
+032CF	LIMITED LIABILITY SIGN
+032D0	CIRCLED KATAKANA A
+032D1	CIRCLED KATAKANA I
+032D2	CIRCLED KATAKANA U
+032D3	CIRCLED KATAKANA E
+032D4	CIRCLED KATAKANA O
+032D5	CIRCLED KATAKANA KA
+032D6	CIRCLED KATAKANA KI
+032D7	CIRCLED KATAKANA KU
+032D8	CIRCLED KATAKANA KE
+032D9	CIRCLED KATAKANA KO
+032DA	CIRCLED KATAKANA SA
+032DB	CIRCLED KATAKANA SI
+032DC	CIRCLED KATAKANA SU
+032DD	CIRCLED KATAKANA SE
+032DE	CIRCLED KATAKANA SO
+032DF	CIRCLED KATAKANA TA
+032E0	CIRCLED KATAKANA TI
+032E1	CIRCLED KATAKANA TU
+032E2	CIRCLED KATAKANA TE
+032E3	CIRCLED KATAKANA TO
+032E4	CIRCLED KATAKANA NA
+032E5	CIRCLED KATAKANA NI
+032E6	CIRCLED KATAKANA NU
+032E7	CIRCLED KATAKANA NE
+032E8	CIRCLED KATAKANA NO
+032E9	CIRCLED KATAKANA HA
+032EA	CIRCLED KATAKANA HI
+032EB	CIRCLED KATAKANA HU
+032EC	CIRCLED KATAKANA HE
+032ED	CIRCLED KATAKANA HO
+032EE	CIRCLED KATAKANA MA
+032EF	CIRCLED KATAKANA MI
+032F0	CIRCLED KATAKANA MU
+032F1	CIRCLED KATAKANA ME
+032F2	CIRCLED KATAKANA MO
+032F3	CIRCLED KATAKANA YA
+032F4	CIRCLED KATAKANA YU
+032F5	CIRCLED KATAKANA YO
+032F6	CIRCLED KATAKANA RA
+032F7	CIRCLED KATAKANA RI
+032F8	CIRCLED KATAKANA RU
+032F9	CIRCLED KATAKANA RE
+032FA	CIRCLED KATAKANA RO
+032FB	CIRCLED KATAKANA WA
+032FC	CIRCLED KATAKANA WI
+032FD	CIRCLED KATAKANA WE
+032FE	CIRCLED KATAKANA WO
+03300	SQUARE APAATO
+03301	SQUARE ARUHUA
+03302	SQUARE ANPEA
+03303	SQUARE AARU
+03304	SQUARE ININGU
+03305	SQUARE INTI
+03306	SQUARE UON
+03307	SQUARE ESUKUUDO
+03308	SQUARE EEKAA
+03309	SQUARE ONSU
+0330A	SQUARE OOMU
+0330B	SQUARE KAIRI
+0330C	SQUARE KARATTO
+0330D	SQUARE KARORII
+0330E	SQUARE GARON
+0330F	SQUARE GANMA
+03310	SQUARE GIGA
+03311	SQUARE GINII
+03312	SQUARE KYURII
+03313	SQUARE GIRUDAA
+03314	SQUARE KIRO
+03315	SQUARE KIROGURAMU
+03316	SQUARE KIROMEETORU
+03317	SQUARE KIROWATTO
+03318	SQUARE GURAMU
+03319	SQUARE GURAMUTON
+0331A	SQUARE KURUZEIRO
+0331B	SQUARE KUROONE
+0331C	SQUARE KEESU
+0331D	SQUARE KORUNA
+0331E	SQUARE KOOPO
+0331F	SQUARE SAIKURU
+03320	SQUARE SANTIIMU
+03321	SQUARE SIRINGU
+03322	SQUARE SENTI
+03323	SQUARE SENTO
+03324	SQUARE DAASU
+03325	SQUARE DESI
+03326	SQUARE DORU
+03327	SQUARE TON
+03328	SQUARE NANO
+03329	SQUARE NOTTO
+0332A	SQUARE HAITU
+0332B	SQUARE PAASENTO
+0332C	SQUARE PAATU
+0332D	SQUARE BAARERU
+0332E	SQUARE PIASUTORU
+0332F	SQUARE PIKURU
+03330	SQUARE PIKO
+03331	SQUARE BIRU
+03332	SQUARE HUARADDO
+03333	SQUARE HUIITO
+03334	SQUARE BUSSYERU
+03335	SQUARE HURAN
+03336	SQUARE HEKUTAARU
+03337	SQUARE PESO
+03338	SQUARE PENIHI
+03339	SQUARE HERUTU
+0333A	SQUARE PENSU
+0333B	SQUARE PEEZI
+0333C	SQUARE BEETA
+0333D	SQUARE POINTO
+0333E	SQUARE BORUTO
+0333F	SQUARE HON
+03340	SQUARE PONDO
+03341	SQUARE HOORU
+03342	SQUARE HOON
+03343	SQUARE MAIKURO
+03344	SQUARE MAIRU
+03345	SQUARE MAHHA
+03346	SQUARE MARUKU
+03347	SQUARE MANSYON
+03348	SQUARE MIKURON
+03349	SQUARE MIRI
+0334A	SQUARE MIRIBAARU
+0334B	SQUARE MEGA
+0334C	SQUARE MEGATON
+0334D	SQUARE MEETORU
+0334E	SQUARE YAADO
+0334F	SQUARE YAARU
+03350	SQUARE YUAN
+03351	SQUARE RITTORU
+03352	SQUARE RIRA
+03353	SQUARE RUPII
+03354	SQUARE RUUBURU
+03355	SQUARE REMU
+03356	SQUARE RENTOGEN
+03357	SQUARE WATTO
+03358	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+03359	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+0335A	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+0335B	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+0335C	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+0335D	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+0335E	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+0335F	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+03360	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+03361	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+03362	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+03363	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+03364	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+03365	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+03366	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+03367	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+03368	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+03369	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+0336A	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+0336B	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+0336C	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+0336D	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+0336E	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+0336F	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+03370	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+03371	SQUARE HPA
+03372	SQUARE DA
+03373	SQUARE AU
+03374	SQUARE BAR
+03375	SQUARE OV
+03376	SQUARE PC
+03377	SQUARE DM
+03378	SQUARE DM SQUARED
+03379	SQUARE DM CUBED
+0337A	SQUARE IU
+0337B	SQUARE ERA NAME HEISEI
+0337C	SQUARE ERA NAME SYOUWA
+0337D	SQUARE ERA NAME TAISYOU
+0337E	SQUARE ERA NAME MEIZI
+0337F	SQUARE CORPORATION
+03380	SQUARE PA AMPS
+03381	SQUARE NA
+03382	SQUARE MU A
+03383	SQUARE MA
+03384	SQUARE KA
+03385	SQUARE KB
+03386	SQUARE MB
+03387	SQUARE GB
+03388	SQUARE CAL
+03389	SQUARE KCAL
+0338A	SQUARE PF
+0338B	SQUARE NF
+0338C	SQUARE MU F
+0338D	SQUARE MU G
+0338E	SQUARE MG
+0338F	SQUARE KG
+03390	SQUARE HZ
+03391	SQUARE KHZ
+03392	SQUARE MHZ
+03393	SQUARE GHZ
+03394	SQUARE THZ
+03395	SQUARE MU L
+03396	SQUARE ML
+03397	SQUARE DL
+03398	SQUARE KL
+03399	SQUARE FM
+0339A	SQUARE NM
+0339B	SQUARE MU M
+0339C	SQUARE MM
+0339D	SQUARE CM
+0339E	SQUARE KM
+0339F	SQUARE MM SQUARED
+033A0	SQUARE CM SQUARED
+033A1	SQUARE M SQUARED
+033A2	SQUARE KM SQUARED
+033A3	SQUARE MM CUBED
+033A4	SQUARE CM CUBED
+033A5	SQUARE M CUBED
+033A6	SQUARE KM CUBED
+033A7	SQUARE M OVER S
+033A8	SQUARE M OVER S SQUARED
+033A9	SQUARE PA
+033AA	SQUARE KPA
+033AB	SQUARE MPA
+033AC	SQUARE GPA
+033AD	SQUARE RAD
+033AE	SQUARE RAD OVER S
+033AF	SQUARE RAD OVER S SQUARED
+033B0	SQUARE PS
+033B1	SQUARE NS
+033B2	SQUARE MU S
+033B3	SQUARE MS
+033B4	SQUARE PV
+033B5	SQUARE NV
+033B6	SQUARE MU V
+033B7	SQUARE MV
+033B8	SQUARE KV
+033B9	SQUARE MV MEGA
+033BA	SQUARE PW
+033BB	SQUARE NW
+033BC	SQUARE MU W
+033BD	SQUARE MW
+033BE	SQUARE KW
+033BF	SQUARE MW MEGA
+033C0	SQUARE K OHM
+033C1	SQUARE M OHM
+033C2	SQUARE AM
+033C3	SQUARE BQ
+033C4	SQUARE CC
+033C5	SQUARE CD
+033C6	SQUARE C OVER KG
+033C7	SQUARE CO
+033C8	SQUARE DB
+033C9	SQUARE GY
+033CA	SQUARE HA
+033CB	SQUARE HP
+033CC	SQUARE IN
+033CD	SQUARE KK
+033CE	SQUARE KM CAPITAL
+033CF	SQUARE KT
+033D0	SQUARE LM
+033D1	SQUARE LN
+033D2	SQUARE LOG
+033D3	SQUARE LX
+033D4	SQUARE MB SMALL
+033D5	SQUARE MIL
+033D6	SQUARE MOL
+033D7	SQUARE PH
+033D8	SQUARE PM
+033D9	SQUARE PPM
+033DA	SQUARE PR
+033DB	SQUARE SR
+033DC	SQUARE SV
+033DD	SQUARE WB
+033DE	SQUARE V OVER M
+033DF	SQUARE A OVER M
+033E0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+033E1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+033E2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+033E3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+033E4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+033E5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+033E6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+033E7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+033E8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+033E9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+033EA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+033EB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+033EC	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+033ED	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+033EE	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+033EF	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+033F0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+033F1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+033F2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+033F3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+033F4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+033F5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+033F6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+033F7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+033F8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+033F9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+033FA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+033FB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+033FC	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+033FD	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+033FE	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+033FF	SQUARE GAL
+04DC0	HEXAGRAM FOR THE CREATIVE HEAVEN
+04DC1	HEXAGRAM FOR THE RECEPTIVE EARTH
+04DC2	HEXAGRAM FOR DIFFICULTY AT THE BEGINNING
+04DC3	HEXAGRAM FOR YOUTHFUL FOLLY
+04DC4	HEXAGRAM FOR WAITING
+04DC5	HEXAGRAM FOR CONFLICT
+04DC6	HEXAGRAM FOR THE ARMY
+04DC7	HEXAGRAM FOR HOLDING TOGETHER
+04DC8	HEXAGRAM FOR SMALL TAMING
+04DC9	HEXAGRAM FOR TREADING
+04DCA	HEXAGRAM FOR PEACE
+04DCB	HEXAGRAM FOR STANDSTILL
+04DCC	HEXAGRAM FOR FELLOWSHIP
+04DCD	HEXAGRAM FOR GREAT POSSESSION
+04DCE	HEXAGRAM FOR MODESTY
+04DCF	HEXAGRAM FOR ENTHUSIASM
+04DD0	HEXAGRAM FOR FOLLOWING
+04DD1	HEXAGRAM FOR WORK ON THE DECAYED
+04DD2	HEXAGRAM FOR APPROACH
+04DD3	HEXAGRAM FOR CONTEMPLATION
+04DD4	HEXAGRAM FOR BITING THROUGH
+04DD5	HEXAGRAM FOR GRACE
+04DD6	HEXAGRAM FOR SPLITTING APART
+04DD7	HEXAGRAM FOR RETURN
+04DD8	HEXAGRAM FOR INNOCENCE
+04DD9	HEXAGRAM FOR GREAT TAMING
+04DDA	HEXAGRAM FOR MOUTH CORNERS
+04DDB	HEXAGRAM FOR GREAT PREPONDERANCE
+04DDC	HEXAGRAM FOR THE ABYSMAL WATER
+04DDD	HEXAGRAM FOR THE CLINGING FIRE
+04DDE	HEXAGRAM FOR INFLUENCE
+04DDF	HEXAGRAM FOR DURATION
+04DE0	HEXAGRAM FOR RETREAT
+04DE1	HEXAGRAM FOR GREAT POWER
+04DE2	HEXAGRAM FOR PROGRESS
+04DE3	HEXAGRAM FOR DARKENING OF THE LIGHT
+04DE4	HEXAGRAM FOR THE FAMILY
+04DE5	HEXAGRAM FOR OPPOSITION
+04DE6	HEXAGRAM FOR OBSTRUCTION
+04DE7	HEXAGRAM FOR DELIVERANCE
+04DE8	HEXAGRAM FOR DECREASE
+04DE9	HEXAGRAM FOR INCREASE
+04DEA	HEXAGRAM FOR BREAKTHROUGH
+04DEB	HEXAGRAM FOR COMING TO MEET
+04DEC	HEXAGRAM FOR GATHERING TOGETHER
+04DED	HEXAGRAM FOR PUSHING UPWARD
+04DEE	HEXAGRAM FOR OPPRESSION
+04DEF	HEXAGRAM FOR THE WELL
+04DF0	HEXAGRAM FOR REVOLUTION
+04DF1	HEXAGRAM FOR THE CAULDRON
+04DF2	HEXAGRAM FOR THE AROUSING THUNDER
+04DF3	HEXAGRAM FOR THE KEEPING STILL MOUNTAIN
+04DF4	HEXAGRAM FOR DEVELOPMENT
+04DF5	HEXAGRAM FOR THE MARRYING MAIDEN
+04DF6	HEXAGRAM FOR ABUNDANCE
+04DF7	HEXAGRAM FOR THE WANDERER
+04DF8	HEXAGRAM FOR THE GENTLE WIND
+04DF9	HEXAGRAM FOR THE JOYOUS LAKE
+04DFA	HEXAGRAM FOR DISPERSION
+04DFB	HEXAGRAM FOR LIMITATION
+04DFC	HEXAGRAM FOR INNER TRUTH
+04DFD	HEXAGRAM FOR SMALL PREPONDERANCE
+04DFE	HEXAGRAM FOR AFTER COMPLETION
+04DFF	HEXAGRAM FOR BEFORE COMPLETION
+0A000	YI SYLLABLE IT
+0A001	YI SYLLABLE IX
+0A002	YI SYLLABLE I
+0A003	YI SYLLABLE IP
+0A004	YI SYLLABLE IET
+0A005	YI SYLLABLE IEX
+0A006	YI SYLLABLE IE
+0A007	YI SYLLABLE IEP
+0A008	YI SYLLABLE AT
+0A009	YI SYLLABLE AX
+0A00A	YI SYLLABLE A
+0A00B	YI SYLLABLE AP
+0A00C	YI SYLLABLE UOX
+0A00D	YI SYLLABLE UO
+0A00E	YI SYLLABLE UOP
+0A00F	YI SYLLABLE OT
+0A010	YI SYLLABLE OX
+0A011	YI SYLLABLE O
+0A012	YI SYLLABLE OP
+0A013	YI SYLLABLE EX
+0A014	YI SYLLABLE E
+0A015	YI SYLLABLE ITERATION MARK
+0A015	YI SYLLABLE WU
+0A016	YI SYLLABLE BIT
+0A017	YI SYLLABLE BIX
+0A018	YI SYLLABLE BI
+0A019	YI SYLLABLE BIP
+0A01A	YI SYLLABLE BIET
+0A01B	YI SYLLABLE BIEX
+0A01C	YI SYLLABLE BIE
+0A01D	YI SYLLABLE BIEP
+0A01E	YI SYLLABLE BAT
+0A01F	YI SYLLABLE BAX
+0A020	YI SYLLABLE BA
+0A021	YI SYLLABLE BAP
+0A022	YI SYLLABLE BUOX
+0A023	YI SYLLABLE BUO
+0A024	YI SYLLABLE BUOP
+0A025	YI SYLLABLE BOT
+0A026	YI SYLLABLE BOX
+0A027	YI SYLLABLE BO
+0A028	YI SYLLABLE BOP
+0A029	YI SYLLABLE BEX
+0A02A	YI SYLLABLE BE
+0A02B	YI SYLLABLE BEP
+0A02C	YI SYLLABLE BUT
+0A02D	YI SYLLABLE BUX
+0A02E	YI SYLLABLE BU
+0A02F	YI SYLLABLE BUP
+0A030	YI SYLLABLE BURX
+0A031	YI SYLLABLE BUR
+0A032	YI SYLLABLE BYT
+0A033	YI SYLLABLE BYX
+0A034	YI SYLLABLE BY
+0A035	YI SYLLABLE BYP
+0A036	YI SYLLABLE BYRX
+0A037	YI SYLLABLE BYR
+0A038	YI SYLLABLE PIT
+0A039	YI SYLLABLE PIX
+0A03A	YI SYLLABLE PI
+0A03B	YI SYLLABLE PIP
+0A03C	YI SYLLABLE PIEX
+0A03D	YI SYLLABLE PIE
+0A03E	YI SYLLABLE PIEP
+0A03F	YI SYLLABLE PAT
+0A040	YI SYLLABLE PAX
+0A041	YI SYLLABLE PA
+0A042	YI SYLLABLE PAP
+0A043	YI SYLLABLE PUOX
+0A044	YI SYLLABLE PUO
+0A045	YI SYLLABLE PUOP
+0A046	YI SYLLABLE POT
+0A047	YI SYLLABLE POX
+0A048	YI SYLLABLE PO
+0A049	YI SYLLABLE POP
+0A04A	YI SYLLABLE PUT
+0A04B	YI SYLLABLE PUX
+0A04C	YI SYLLABLE PU
+0A04D	YI SYLLABLE PUP
+0A04E	YI SYLLABLE PURX
+0A04F	YI SYLLABLE PUR
+0A050	YI SYLLABLE PYT
+0A051	YI SYLLABLE PYX
+0A052	YI SYLLABLE PY
+0A053	YI SYLLABLE PYP
+0A054	YI SYLLABLE PYRX
+0A055	YI SYLLABLE PYR
+0A056	YI SYLLABLE BBIT
+0A057	YI SYLLABLE BBIX
+0A058	YI SYLLABLE BBI
+0A059	YI SYLLABLE BBIP
+0A05A	YI SYLLABLE BBIET
+0A05B	YI SYLLABLE BBIEX
+0A05C	YI SYLLABLE BBIE
+0A05D	YI SYLLABLE BBIEP
+0A05E	YI SYLLABLE BBAT
+0A05F	YI SYLLABLE BBAX
+0A060	YI SYLLABLE BBA
+0A061	YI SYLLABLE BBAP
+0A062	YI SYLLABLE BBUOX
+0A063	YI SYLLABLE BBUO
+0A064	YI SYLLABLE BBUOP
+0A065	YI SYLLABLE BBOT
+0A066	YI SYLLABLE BBOX
+0A067	YI SYLLABLE BBO
+0A068	YI SYLLABLE BBOP
+0A069	YI SYLLABLE BBEX
+0A06A	YI SYLLABLE BBE
+0A06B	YI SYLLABLE BBEP
+0A06C	YI SYLLABLE BBUT
+0A06D	YI SYLLABLE BBUX
+0A06E	YI SYLLABLE BBU
+0A06F	YI SYLLABLE BBUP
+0A070	YI SYLLABLE BBURX
+0A071	YI SYLLABLE BBUR
+0A072	YI SYLLABLE BBYT
+0A073	YI SYLLABLE BBYX
+0A074	YI SYLLABLE BBY
+0A075	YI SYLLABLE BBYP
+0A076	YI SYLLABLE NBIT
+0A077	YI SYLLABLE NBIX
+0A078	YI SYLLABLE NBI
+0A079	YI SYLLABLE NBIP
+0A07A	YI SYLLABLE NBIEX
+0A07B	YI SYLLABLE NBIE
+0A07C	YI SYLLABLE NBIEP
+0A07D	YI SYLLABLE NBAT
+0A07E	YI SYLLABLE NBAX
+0A07F	YI SYLLABLE NBA
+0A080	YI SYLLABLE NBAP
+0A081	YI SYLLABLE NBOT
+0A082	YI SYLLABLE NBOX
+0A083	YI SYLLABLE NBO
+0A084	YI SYLLABLE NBOP
+0A085	YI SYLLABLE NBUT
+0A086	YI SYLLABLE NBUX
+0A087	YI SYLLABLE NBU
+0A088	YI SYLLABLE NBUP
+0A089	YI SYLLABLE NBURX
+0A08A	YI SYLLABLE NBUR
+0A08B	YI SYLLABLE NBYT
+0A08C	YI SYLLABLE NBYX
+0A08D	YI SYLLABLE NBY
+0A08E	YI SYLLABLE NBYP
+0A08F	YI SYLLABLE NBYRX
+0A090	YI SYLLABLE NBYR
+0A091	YI SYLLABLE HMIT
+0A092	YI SYLLABLE HMIX
+0A093	YI SYLLABLE HMI
+0A094	YI SYLLABLE HMIP
+0A095	YI SYLLABLE HMIEX
+0A096	YI SYLLABLE HMIE
+0A097	YI SYLLABLE HMIEP
+0A098	YI SYLLABLE HMAT
+0A099	YI SYLLABLE HMAX
+0A09A	YI SYLLABLE HMA
+0A09B	YI SYLLABLE HMAP
+0A09C	YI SYLLABLE HMUOX
+0A09D	YI SYLLABLE HMUO
+0A09E	YI SYLLABLE HMUOP
+0A09F	YI SYLLABLE HMOT
+0A0A0	YI SYLLABLE HMOX
+0A0A1	YI SYLLABLE HMO
+0A0A2	YI SYLLABLE HMOP
+0A0A3	YI SYLLABLE HMUT
+0A0A4	YI SYLLABLE HMUX
+0A0A5	YI SYLLABLE HMU
+0A0A6	YI SYLLABLE HMUP
+0A0A7	YI SYLLABLE HMURX
+0A0A8	YI SYLLABLE HMUR
+0A0A9	YI SYLLABLE HMYX
+0A0AA	YI SYLLABLE HMY
+0A0AB	YI SYLLABLE HMYP
+0A0AC	YI SYLLABLE HMYRX
+0A0AD	YI SYLLABLE HMYR
+0A0AE	YI SYLLABLE MIT
+0A0AF	YI SYLLABLE MIX
+0A0B0	YI SYLLABLE MI
+0A0B1	YI SYLLABLE MIP
+0A0B2	YI SYLLABLE MIEX
+0A0B3	YI SYLLABLE MIE
+0A0B4	YI SYLLABLE MIEP
+0A0B5	YI SYLLABLE MAT
+0A0B6	YI SYLLABLE MAX
+0A0B7	YI SYLLABLE MA
+0A0B8	YI SYLLABLE MAP
+0A0B9	YI SYLLABLE MUOT
+0A0BA	YI SYLLABLE MUOX
+0A0BB	YI SYLLABLE MUO
+0A0BC	YI SYLLABLE MUOP
+0A0BD	YI SYLLABLE MOT
+0A0BE	YI SYLLABLE MOX
+0A0BF	YI SYLLABLE MO
+0A0C0	YI SYLLABLE MOP
+0A0C1	YI SYLLABLE MEX
+0A0C2	YI SYLLABLE ME
+0A0C3	YI SYLLABLE MUT
+0A0C4	YI SYLLABLE MUX
+0A0C5	YI SYLLABLE MU
+0A0C6	YI SYLLABLE MUP
+0A0C7	YI SYLLABLE MURX
+0A0C8	YI SYLLABLE MUR
+0A0C9	YI SYLLABLE MYT
+0A0CA	YI SYLLABLE MYX
+0A0CB	YI SYLLABLE MY
+0A0CC	YI SYLLABLE MYP
+0A0CD	YI SYLLABLE FIT
+0A0CE	YI SYLLABLE FIX
+0A0CF	YI SYLLABLE FI
+0A0D0	YI SYLLABLE FIP
+0A0D1	YI SYLLABLE FAT
+0A0D2	YI SYLLABLE FAX
+0A0D3	YI SYLLABLE FA
+0A0D4	YI SYLLABLE FAP
+0A0D5	YI SYLLABLE FOX
+0A0D6	YI SYLLABLE FO
+0A0D7	YI SYLLABLE FOP
+0A0D8	YI SYLLABLE FUT
+0A0D9	YI SYLLABLE FUX
+0A0DA	YI SYLLABLE FU
+0A0DB	YI SYLLABLE FUP
+0A0DC	YI SYLLABLE FURX
+0A0DD	YI SYLLABLE FUR
+0A0DE	YI SYLLABLE FYT
+0A0DF	YI SYLLABLE FYX
+0A0E0	YI SYLLABLE FY
+0A0E1	YI SYLLABLE FYP
+0A0E2	YI SYLLABLE VIT
+0A0E3	YI SYLLABLE VIX
+0A0E4	YI SYLLABLE VI
+0A0E5	YI SYLLABLE VIP
+0A0E6	YI SYLLABLE VIET
+0A0E7	YI SYLLABLE VIEX
+0A0E8	YI SYLLABLE VIE
+0A0E9	YI SYLLABLE VIEP
+0A0EA	YI SYLLABLE VAT
+0A0EB	YI SYLLABLE VAX
+0A0EC	YI SYLLABLE VA
+0A0ED	YI SYLLABLE VAP
+0A0EE	YI SYLLABLE VOT
+0A0EF	YI SYLLABLE VOX
+0A0F0	YI SYLLABLE VO
+0A0F1	YI SYLLABLE VOP
+0A0F2	YI SYLLABLE VEX
+0A0F3	YI SYLLABLE VEP
+0A0F4	YI SYLLABLE VUT
+0A0F5	YI SYLLABLE VUX
+0A0F6	YI SYLLABLE VU
+0A0F7	YI SYLLABLE VUP
+0A0F8	YI SYLLABLE VURX
+0A0F9	YI SYLLABLE VUR
+0A0FA	YI SYLLABLE VYT
+0A0FB	YI SYLLABLE VYX
+0A0FC	YI SYLLABLE VY
+0A0FD	YI SYLLABLE VYP
+0A0FE	YI SYLLABLE VYRX
+0A0FF	YI SYLLABLE VYR
+0A100	YI SYLLABLE DIT
+0A101	YI SYLLABLE DIX
+0A102	YI SYLLABLE DI
+0A103	YI SYLLABLE DIP
+0A104	YI SYLLABLE DIEX
+0A105	YI SYLLABLE DIE
+0A106	YI SYLLABLE DIEP
+0A107	YI SYLLABLE DAT
+0A108	YI SYLLABLE DAX
+0A109	YI SYLLABLE DA
+0A10A	YI SYLLABLE DAP
+0A10B	YI SYLLABLE DUOX
+0A10C	YI SYLLABLE DUO
+0A10D	YI SYLLABLE DOT
+0A10E	YI SYLLABLE DOX
+0A10F	YI SYLLABLE DO
+0A110	YI SYLLABLE DOP
+0A111	YI SYLLABLE DEX
+0A112	YI SYLLABLE DE
+0A113	YI SYLLABLE DEP
+0A114	YI SYLLABLE DUT
+0A115	YI SYLLABLE DUX
+0A116	YI SYLLABLE DU
+0A117	YI SYLLABLE DUP
+0A118	YI SYLLABLE DURX
+0A119	YI SYLLABLE DUR
+0A11A	YI SYLLABLE TIT
+0A11B	YI SYLLABLE TIX
+0A11C	YI SYLLABLE TI
+0A11D	YI SYLLABLE TIP
+0A11E	YI SYLLABLE TIEX
+0A11F	YI SYLLABLE TIE
+0A120	YI SYLLABLE TIEP
+0A121	YI SYLLABLE TAT
+0A122	YI SYLLABLE TAX
+0A123	YI SYLLABLE TA
+0A124	YI SYLLABLE TAP
+0A125	YI SYLLABLE TUOT
+0A126	YI SYLLABLE TUOX
+0A127	YI SYLLABLE TUO
+0A128	YI SYLLABLE TUOP
+0A129	YI SYLLABLE TOT
+0A12A	YI SYLLABLE TOX
+0A12B	YI SYLLABLE TO
+0A12C	YI SYLLABLE TOP
+0A12D	YI SYLLABLE TEX
+0A12E	YI SYLLABLE TE
+0A12F	YI SYLLABLE TEP
+0A130	YI SYLLABLE TUT
+0A131	YI SYLLABLE TUX
+0A132	YI SYLLABLE TU
+0A133	YI SYLLABLE TUP
+0A134	YI SYLLABLE TURX
+0A135	YI SYLLABLE TUR
+0A136	YI SYLLABLE DDIT
+0A137	YI SYLLABLE DDIX
+0A138	YI SYLLABLE DDI
+0A139	YI SYLLABLE DDIP
+0A13A	YI SYLLABLE DDIEX
+0A13B	YI SYLLABLE DDIE
+0A13C	YI SYLLABLE DDIEP
+0A13D	YI SYLLABLE DDAT
+0A13E	YI SYLLABLE DDAX
+0A13F	YI SYLLABLE DDA
+0A140	YI SYLLABLE DDAP
+0A141	YI SYLLABLE DDUOX
+0A142	YI SYLLABLE DDUO
+0A143	YI SYLLABLE DDUOP
+0A144	YI SYLLABLE DDOT
+0A145	YI SYLLABLE DDOX
+0A146	YI SYLLABLE DDO
+0A147	YI SYLLABLE DDOP
+0A148	YI SYLLABLE DDEX
+0A149	YI SYLLABLE DDE
+0A14A	YI SYLLABLE DDEP
+0A14B	YI SYLLABLE DDUT
+0A14C	YI SYLLABLE DDUX
+0A14D	YI SYLLABLE DDU
+0A14E	YI SYLLABLE DDUP
+0A14F	YI SYLLABLE DDURX
+0A150	YI SYLLABLE DDUR
+0A151	YI SYLLABLE NDIT
+0A152	YI SYLLABLE NDIX
+0A153	YI SYLLABLE NDI
+0A154	YI SYLLABLE NDIP
+0A155	YI SYLLABLE NDIEX
+0A156	YI SYLLABLE NDIE
+0A157	YI SYLLABLE NDAT
+0A158	YI SYLLABLE NDAX
+0A159	YI SYLLABLE NDA
+0A15A	YI SYLLABLE NDAP
+0A15B	YI SYLLABLE NDOT
+0A15C	YI SYLLABLE NDOX
+0A15D	YI SYLLABLE NDO
+0A15E	YI SYLLABLE NDOP
+0A15F	YI SYLLABLE NDEX
+0A160	YI SYLLABLE NDE
+0A161	YI SYLLABLE NDEP
+0A162	YI SYLLABLE NDUT
+0A163	YI SYLLABLE NDUX
+0A164	YI SYLLABLE NDU
+0A165	YI SYLLABLE NDUP
+0A166	YI SYLLABLE NDURX
+0A167	YI SYLLABLE NDUR
+0A168	YI SYLLABLE HNIT
+0A169	YI SYLLABLE HNIX
+0A16A	YI SYLLABLE HNI
+0A16B	YI SYLLABLE HNIP
+0A16C	YI SYLLABLE HNIET
+0A16D	YI SYLLABLE HNIEX
+0A16E	YI SYLLABLE HNIE
+0A16F	YI SYLLABLE HNIEP
+0A170	YI SYLLABLE HNAT
+0A171	YI SYLLABLE HNAX
+0A172	YI SYLLABLE HNA
+0A173	YI SYLLABLE HNAP
+0A174	YI SYLLABLE HNUOX
+0A175	YI SYLLABLE HNUO
+0A176	YI SYLLABLE HNOT
+0A177	YI SYLLABLE HNOX
+0A178	YI SYLLABLE HNOP
+0A179	YI SYLLABLE HNEX
+0A17A	YI SYLLABLE HNE
+0A17B	YI SYLLABLE HNEP
+0A17C	YI SYLLABLE HNUT
+0A17D	YI SYLLABLE NIT
+0A17E	YI SYLLABLE NIX
+0A17F	YI SYLLABLE NI
+0A180	YI SYLLABLE NIP
+0A181	YI SYLLABLE NIEX
+0A182	YI SYLLABLE NIE
+0A183	YI SYLLABLE NIEP
+0A184	YI SYLLABLE NAX
+0A185	YI SYLLABLE NA
+0A186	YI SYLLABLE NAP
+0A187	YI SYLLABLE NUOX
+0A188	YI SYLLABLE NUO
+0A189	YI SYLLABLE NUOP
+0A18A	YI SYLLABLE NOT
+0A18B	YI SYLLABLE NOX
+0A18C	YI SYLLABLE NO
+0A18D	YI SYLLABLE NOP
+0A18E	YI SYLLABLE NEX
+0A18F	YI SYLLABLE NE
+0A190	YI SYLLABLE NEP
+0A191	YI SYLLABLE NUT
+0A192	YI SYLLABLE NUX
+0A193	YI SYLLABLE NU
+0A194	YI SYLLABLE NUP
+0A195	YI SYLLABLE NURX
+0A196	YI SYLLABLE NUR
+0A197	YI SYLLABLE HLIT
+0A198	YI SYLLABLE HLIX
+0A199	YI SYLLABLE HLI
+0A19A	YI SYLLABLE HLIP
+0A19B	YI SYLLABLE HLIEX
+0A19C	YI SYLLABLE HLIE
+0A19D	YI SYLLABLE HLIEP
+0A19E	YI SYLLABLE HLAT
+0A19F	YI SYLLABLE HLAX
+0A1A0	YI SYLLABLE HLA
+0A1A1	YI SYLLABLE HLAP
+0A1A2	YI SYLLABLE HLUOX
+0A1A3	YI SYLLABLE HLUO
+0A1A4	YI SYLLABLE HLUOP
+0A1A5	YI SYLLABLE HLOX
+0A1A6	YI SYLLABLE HLO
+0A1A7	YI SYLLABLE HLOP
+0A1A8	YI SYLLABLE HLEX
+0A1A9	YI SYLLABLE HLE
+0A1AA	YI SYLLABLE HLEP
+0A1AB	YI SYLLABLE HLUT
+0A1AC	YI SYLLABLE HLUX
+0A1AD	YI SYLLABLE HLU
+0A1AE	YI SYLLABLE HLUP
+0A1AF	YI SYLLABLE HLURX
+0A1B0	YI SYLLABLE HLUR
+0A1B1	YI SYLLABLE HLYT
+0A1B2	YI SYLLABLE HLYX
+0A1B3	YI SYLLABLE HLY
+0A1B4	YI SYLLABLE HLYP
+0A1B5	YI SYLLABLE HLYRX
+0A1B6	YI SYLLABLE HLYR
+0A1B7	YI SYLLABLE LIT
+0A1B8	YI SYLLABLE LIX
+0A1B9	YI SYLLABLE LI
+0A1BA	YI SYLLABLE LIP
+0A1BB	YI SYLLABLE LIET
+0A1BC	YI SYLLABLE LIEX
+0A1BD	YI SYLLABLE LIE
+0A1BE	YI SYLLABLE LIEP
+0A1BF	YI SYLLABLE LAT
+0A1C0	YI SYLLABLE LAX
+0A1C1	YI SYLLABLE LA
+0A1C2	YI SYLLABLE LAP
+0A1C3	YI SYLLABLE LUOT
+0A1C4	YI SYLLABLE LUOX
+0A1C5	YI SYLLABLE LUO
+0A1C6	YI SYLLABLE LUOP
+0A1C7	YI SYLLABLE LOT
+0A1C8	YI SYLLABLE LOX
+0A1C9	YI SYLLABLE LO
+0A1CA	YI SYLLABLE LOP
+0A1CB	YI SYLLABLE LEX
+0A1CC	YI SYLLABLE LE
+0A1CD	YI SYLLABLE LEP
+0A1CE	YI SYLLABLE LUT
+0A1CF	YI SYLLABLE LUX
+0A1D0	YI SYLLABLE LU
+0A1D1	YI SYLLABLE LUP
+0A1D2	YI SYLLABLE LURX
+0A1D3	YI SYLLABLE LUR
+0A1D4	YI SYLLABLE LYT
+0A1D5	YI SYLLABLE LYX
+0A1D6	YI SYLLABLE LY
+0A1D7	YI SYLLABLE LYP
+0A1D8	YI SYLLABLE LYRX
+0A1D9	YI SYLLABLE LYR
+0A1DA	YI SYLLABLE GIT
+0A1DB	YI SYLLABLE GIX
+0A1DC	YI SYLLABLE GI
+0A1DD	YI SYLLABLE GIP
+0A1DE	YI SYLLABLE GIET
+0A1DF	YI SYLLABLE GIEX
+0A1E0	YI SYLLABLE GIE
+0A1E1	YI SYLLABLE GIEP
+0A1E2	YI SYLLABLE GAT
+0A1E3	YI SYLLABLE GAX
+0A1E4	YI SYLLABLE GA
+0A1E5	YI SYLLABLE GAP
+0A1E6	YI SYLLABLE GUOT
+0A1E7	YI SYLLABLE GUOX
+0A1E8	YI SYLLABLE GUO
+0A1E9	YI SYLLABLE GUOP
+0A1EA	YI SYLLABLE GOT
+0A1EB	YI SYLLABLE GOX
+0A1EC	YI SYLLABLE GO
+0A1ED	YI SYLLABLE GOP
+0A1EE	YI SYLLABLE GET
+0A1EF	YI SYLLABLE GEX
+0A1F0	YI SYLLABLE GE
+0A1F1	YI SYLLABLE GEP
+0A1F2	YI SYLLABLE GUT
+0A1F3	YI SYLLABLE GUX
+0A1F4	YI SYLLABLE GU
+0A1F5	YI SYLLABLE GUP
+0A1F6	YI SYLLABLE GURX
+0A1F7	YI SYLLABLE GUR
+0A1F8	YI SYLLABLE KIT
+0A1F9	YI SYLLABLE KIX
+0A1FA	YI SYLLABLE KI
+0A1FB	YI SYLLABLE KIP
+0A1FC	YI SYLLABLE KIEX
+0A1FD	YI SYLLABLE KIE
+0A1FE	YI SYLLABLE KIEP
+0A1FF	YI SYLLABLE KAT
+0A200	YI SYLLABLE KAX
+0A201	YI SYLLABLE KA
+0A202	YI SYLLABLE KAP
+0A203	YI SYLLABLE KUOX
+0A204	YI SYLLABLE KUO
+0A205	YI SYLLABLE KUOP
+0A206	YI SYLLABLE KOT
+0A207	YI SYLLABLE KOX
+0A208	YI SYLLABLE KO
+0A209	YI SYLLABLE KOP
+0A20A	YI SYLLABLE KET
+0A20B	YI SYLLABLE KEX
+0A20C	YI SYLLABLE KE
+0A20D	YI SYLLABLE KEP
+0A20E	YI SYLLABLE KUT
+0A20F	YI SYLLABLE KUX
+0A210	YI SYLLABLE KU
+0A211	YI SYLLABLE KUP
+0A212	YI SYLLABLE KURX
+0A213	YI SYLLABLE KUR
+0A214	YI SYLLABLE GGIT
+0A215	YI SYLLABLE GGIX
+0A216	YI SYLLABLE GGI
+0A217	YI SYLLABLE GGIEX
+0A218	YI SYLLABLE GGIE
+0A219	YI SYLLABLE GGIEP
+0A21A	YI SYLLABLE GGAT
+0A21B	YI SYLLABLE GGAX
+0A21C	YI SYLLABLE GGA
+0A21D	YI SYLLABLE GGAP
+0A21E	YI SYLLABLE GGUOT
+0A21F	YI SYLLABLE GGUOX
+0A220	YI SYLLABLE GGUO
+0A221	YI SYLLABLE GGUOP
+0A222	YI SYLLABLE GGOT
+0A223	YI SYLLABLE GGOX
+0A224	YI SYLLABLE GGO
+0A225	YI SYLLABLE GGOP
+0A226	YI SYLLABLE GGET
+0A227	YI SYLLABLE GGEX
+0A228	YI SYLLABLE GGE
+0A229	YI SYLLABLE GGEP
+0A22A	YI SYLLABLE GGUT
+0A22B	YI SYLLABLE GGUX
+0A22C	YI SYLLABLE GGU
+0A22D	YI SYLLABLE GGUP
+0A22E	YI SYLLABLE GGURX
+0A22F	YI SYLLABLE GGUR
+0A230	YI SYLLABLE MGIEX
+0A231	YI SYLLABLE MGIE
+0A232	YI SYLLABLE MGAT
+0A233	YI SYLLABLE MGAX
+0A234	YI SYLLABLE MGA
+0A235	YI SYLLABLE MGAP
+0A236	YI SYLLABLE MGUOX
+0A237	YI SYLLABLE MGUO
+0A238	YI SYLLABLE MGUOP
+0A239	YI SYLLABLE MGOT
+0A23A	YI SYLLABLE MGOX
+0A23B	YI SYLLABLE MGO
+0A23C	YI SYLLABLE MGOP
+0A23D	YI SYLLABLE MGEX
+0A23E	YI SYLLABLE MGE
+0A23F	YI SYLLABLE MGEP
+0A240	YI SYLLABLE MGUT
+0A241	YI SYLLABLE MGUX
+0A242	YI SYLLABLE MGU
+0A243	YI SYLLABLE MGUP
+0A244	YI SYLLABLE MGURX
+0A245	YI SYLLABLE MGUR
+0A246	YI SYLLABLE HXIT
+0A247	YI SYLLABLE HXIX
+0A248	YI SYLLABLE HXI
+0A249	YI SYLLABLE HXIP
+0A24A	YI SYLLABLE HXIET
+0A24B	YI SYLLABLE HXIEX
+0A24C	YI SYLLABLE HXIE
+0A24D	YI SYLLABLE HXIEP
+0A24E	YI SYLLABLE HXAT
+0A24F	YI SYLLABLE HXAX
+0A250	YI SYLLABLE HXA
+0A251	YI SYLLABLE HXAP
+0A252	YI SYLLABLE HXUOT
+0A253	YI SYLLABLE HXUOX
+0A254	YI SYLLABLE HXUO
+0A255	YI SYLLABLE HXUOP
+0A256	YI SYLLABLE HXOT
+0A257	YI SYLLABLE HXOX
+0A258	YI SYLLABLE HXO
+0A259	YI SYLLABLE HXOP
+0A25A	YI SYLLABLE HXEX
+0A25B	YI SYLLABLE HXE
+0A25C	YI SYLLABLE HXEP
+0A25D	YI SYLLABLE NGIEX
+0A25E	YI SYLLABLE NGIE
+0A25F	YI SYLLABLE NGIEP
+0A260	YI SYLLABLE NGAT
+0A261	YI SYLLABLE NGAX
+0A262	YI SYLLABLE NGA
+0A263	YI SYLLABLE NGAP
+0A264	YI SYLLABLE NGUOT
+0A265	YI SYLLABLE NGUOX
+0A266	YI SYLLABLE NGUO
+0A267	YI SYLLABLE NGOT
+0A268	YI SYLLABLE NGOX
+0A269	YI SYLLABLE NGO
+0A26A	YI SYLLABLE NGOP
+0A26B	YI SYLLABLE NGEX
+0A26C	YI SYLLABLE NGE
+0A26D	YI SYLLABLE NGEP
+0A26E	YI SYLLABLE HIT
+0A26F	YI SYLLABLE HIEX
+0A270	YI SYLLABLE HIE
+0A271	YI SYLLABLE HAT
+0A272	YI SYLLABLE HAX
+0A273	YI SYLLABLE HA
+0A274	YI SYLLABLE HAP
+0A275	YI SYLLABLE HUOT
+0A276	YI SYLLABLE HUOX
+0A277	YI SYLLABLE HUO
+0A278	YI SYLLABLE HUOP
+0A279	YI SYLLABLE HOT
+0A27A	YI SYLLABLE HOX
+0A27B	YI SYLLABLE HO
+0A27C	YI SYLLABLE HOP
+0A27D	YI SYLLABLE HEX
+0A27E	YI SYLLABLE HE
+0A27F	YI SYLLABLE HEP
+0A280	YI SYLLABLE WAT
+0A281	YI SYLLABLE WAX
+0A282	YI SYLLABLE WA
+0A283	YI SYLLABLE WAP
+0A284	YI SYLLABLE WUOX
+0A285	YI SYLLABLE WUO
+0A286	YI SYLLABLE WUOP
+0A287	YI SYLLABLE WOX
+0A288	YI SYLLABLE WO
+0A289	YI SYLLABLE WOP
+0A28A	YI SYLLABLE WEX
+0A28B	YI SYLLABLE WE
+0A28C	YI SYLLABLE WEP
+0A28D	YI SYLLABLE ZIT
+0A28E	YI SYLLABLE ZIX
+0A28F	YI SYLLABLE ZI
+0A290	YI SYLLABLE ZIP
+0A291	YI SYLLABLE ZIEX
+0A292	YI SYLLABLE ZIE
+0A293	YI SYLLABLE ZIEP
+0A294	YI SYLLABLE ZAT
+0A295	YI SYLLABLE ZAX
+0A296	YI SYLLABLE ZA
+0A297	YI SYLLABLE ZAP
+0A298	YI SYLLABLE ZUOX
+0A299	YI SYLLABLE ZUO
+0A29A	YI SYLLABLE ZUOP
+0A29B	YI SYLLABLE ZOT
+0A29C	YI SYLLABLE ZOX
+0A29D	YI SYLLABLE ZO
+0A29E	YI SYLLABLE ZOP
+0A29F	YI SYLLABLE ZEX
+0A2A0	YI SYLLABLE ZE
+0A2A1	YI SYLLABLE ZEP
+0A2A2	YI SYLLABLE ZUT
+0A2A3	YI SYLLABLE ZUX
+0A2A4	YI SYLLABLE ZU
+0A2A5	YI SYLLABLE ZUP
+0A2A6	YI SYLLABLE ZURX
+0A2A7	YI SYLLABLE ZUR
+0A2A8	YI SYLLABLE ZYT
+0A2A9	YI SYLLABLE ZYX
+0A2AA	YI SYLLABLE ZY
+0A2AB	YI SYLLABLE ZYP
+0A2AC	YI SYLLABLE ZYRX
+0A2AD	YI SYLLABLE ZYR
+0A2AE	YI SYLLABLE CIT
+0A2AF	YI SYLLABLE CIX
+0A2B0	YI SYLLABLE CI
+0A2B1	YI SYLLABLE CIP
+0A2B2	YI SYLLABLE CIET
+0A2B3	YI SYLLABLE CIEX
+0A2B4	YI SYLLABLE CIE
+0A2B5	YI SYLLABLE CIEP
+0A2B6	YI SYLLABLE CAT
+0A2B7	YI SYLLABLE CAX
+0A2B8	YI SYLLABLE CA
+0A2B9	YI SYLLABLE CAP
+0A2BA	YI SYLLABLE CUOX
+0A2BB	YI SYLLABLE CUO
+0A2BC	YI SYLLABLE CUOP
+0A2BD	YI SYLLABLE COT
+0A2BE	YI SYLLABLE COX
+0A2BF	YI SYLLABLE CO
+0A2C0	YI SYLLABLE COP
+0A2C1	YI SYLLABLE CEX
+0A2C2	YI SYLLABLE CE
+0A2C3	YI SYLLABLE CEP
+0A2C4	YI SYLLABLE CUT
+0A2C5	YI SYLLABLE CUX
+0A2C6	YI SYLLABLE CU
+0A2C7	YI SYLLABLE CUP
+0A2C8	YI SYLLABLE CURX
+0A2C9	YI SYLLABLE CUR
+0A2CA	YI SYLLABLE CYT
+0A2CB	YI SYLLABLE CYX
+0A2CC	YI SYLLABLE CY
+0A2CD	YI SYLLABLE CYP
+0A2CE	YI SYLLABLE CYRX
+0A2CF	YI SYLLABLE CYR
+0A2D0	YI SYLLABLE ZZIT
+0A2D1	YI SYLLABLE ZZIX
+0A2D2	YI SYLLABLE ZZI
+0A2D3	YI SYLLABLE ZZIP
+0A2D4	YI SYLLABLE ZZIET
+0A2D5	YI SYLLABLE ZZIEX
+0A2D6	YI SYLLABLE ZZIE
+0A2D7	YI SYLLABLE ZZIEP
+0A2D8	YI SYLLABLE ZZAT
+0A2D9	YI SYLLABLE ZZAX
+0A2DA	YI SYLLABLE ZZA
+0A2DB	YI SYLLABLE ZZAP
+0A2DC	YI SYLLABLE ZZOX
+0A2DD	YI SYLLABLE ZZO
+0A2DE	YI SYLLABLE ZZOP
+0A2DF	YI SYLLABLE ZZEX
+0A2E0	YI SYLLABLE ZZE
+0A2E1	YI SYLLABLE ZZEP
+0A2E2	YI SYLLABLE ZZUX
+0A2E3	YI SYLLABLE ZZU
+0A2E4	YI SYLLABLE ZZUP
+0A2E5	YI SYLLABLE ZZURX
+0A2E6	YI SYLLABLE ZZUR
+0A2E7	YI SYLLABLE ZZYT
+0A2E8	YI SYLLABLE ZZYX
+0A2E9	YI SYLLABLE ZZY
+0A2EA	YI SYLLABLE ZZYP
+0A2EB	YI SYLLABLE ZZYRX
+0A2EC	YI SYLLABLE ZZYR
+0A2ED	YI SYLLABLE NZIT
+0A2EE	YI SYLLABLE NZIX
+0A2EF	YI SYLLABLE NZI
+0A2F0	YI SYLLABLE NZIP
+0A2F1	YI SYLLABLE NZIEX
+0A2F2	YI SYLLABLE NZIE
+0A2F3	YI SYLLABLE NZIEP
+0A2F4	YI SYLLABLE NZAT
+0A2F5	YI SYLLABLE NZAX
+0A2F6	YI SYLLABLE NZA
+0A2F7	YI SYLLABLE NZAP
+0A2F8	YI SYLLABLE NZUOX
+0A2F9	YI SYLLABLE NZUO
+0A2FA	YI SYLLABLE NZOX
+0A2FB	YI SYLLABLE NZOP
+0A2FC	YI SYLLABLE NZEX
+0A2FD	YI SYLLABLE NZE
+0A2FE	YI SYLLABLE NZUX
+0A2FF	YI SYLLABLE NZU
+0A300	YI SYLLABLE NZUP
+0A301	YI SYLLABLE NZURX
+0A302	YI SYLLABLE NZUR
+0A303	YI SYLLABLE NZYT
+0A304	YI SYLLABLE NZYX
+0A305	YI SYLLABLE NZY
+0A306	YI SYLLABLE NZYP
+0A307	YI SYLLABLE NZYRX
+0A308	YI SYLLABLE NZYR
+0A309	YI SYLLABLE SIT
+0A30A	YI SYLLABLE SIX
+0A30B	YI SYLLABLE SI
+0A30C	YI SYLLABLE SIP
+0A30D	YI SYLLABLE SIEX
+0A30E	YI SYLLABLE SIE
+0A30F	YI SYLLABLE SIEP
+0A310	YI SYLLABLE SAT
+0A311	YI SYLLABLE SAX
+0A312	YI SYLLABLE SA
+0A313	YI SYLLABLE SAP
+0A314	YI SYLLABLE SUOX
+0A315	YI SYLLABLE SUO
+0A316	YI SYLLABLE SUOP
+0A317	YI SYLLABLE SOT
+0A318	YI SYLLABLE SOX
+0A319	YI SYLLABLE SO
+0A31A	YI SYLLABLE SOP
+0A31B	YI SYLLABLE SEX
+0A31C	YI SYLLABLE SE
+0A31D	YI SYLLABLE SEP
+0A31E	YI SYLLABLE SUT
+0A31F	YI SYLLABLE SUX
+0A320	YI SYLLABLE SU
+0A321	YI SYLLABLE SUP
+0A322	YI SYLLABLE SURX
+0A323	YI SYLLABLE SUR
+0A324	YI SYLLABLE SYT
+0A325	YI SYLLABLE SYX
+0A326	YI SYLLABLE SY
+0A327	YI SYLLABLE SYP
+0A328	YI SYLLABLE SYRX
+0A329	YI SYLLABLE SYR
+0A32A	YI SYLLABLE SSIT
+0A32B	YI SYLLABLE SSIX
+0A32C	YI SYLLABLE SSI
+0A32D	YI SYLLABLE SSIP
+0A32E	YI SYLLABLE SSIEX
+0A32F	YI SYLLABLE SSIE
+0A330	YI SYLLABLE SSIEP
+0A331	YI SYLLABLE SSAT
+0A332	YI SYLLABLE SSAX
+0A333	YI SYLLABLE SSA
+0A334	YI SYLLABLE SSAP
+0A335	YI SYLLABLE SSOT
+0A336	YI SYLLABLE SSOX
+0A337	YI SYLLABLE SSO
+0A338	YI SYLLABLE SSOP
+0A339	YI SYLLABLE SSEX
+0A33A	YI SYLLABLE SSE
+0A33B	YI SYLLABLE SSEP
+0A33C	YI SYLLABLE SSUT
+0A33D	YI SYLLABLE SSUX
+0A33E	YI SYLLABLE SSU
+0A33F	YI SYLLABLE SSUP
+0A340	YI SYLLABLE SSYT
+0A341	YI SYLLABLE SSYX
+0A342	YI SYLLABLE SSY
+0A343	YI SYLLABLE SSYP
+0A344	YI SYLLABLE SSYRX
+0A345	YI SYLLABLE SSYR
+0A346	YI SYLLABLE ZHAT
+0A347	YI SYLLABLE ZHAX
+0A348	YI SYLLABLE ZHA
+0A349	YI SYLLABLE ZHAP
+0A34A	YI SYLLABLE ZHUOX
+0A34B	YI SYLLABLE ZHUO
+0A34C	YI SYLLABLE ZHUOP
+0A34D	YI SYLLABLE ZHOT
+0A34E	YI SYLLABLE ZHOX
+0A34F	YI SYLLABLE ZHO
+0A350	YI SYLLABLE ZHOP
+0A351	YI SYLLABLE ZHET
+0A352	YI SYLLABLE ZHEX
+0A353	YI SYLLABLE ZHE
+0A354	YI SYLLABLE ZHEP
+0A355	YI SYLLABLE ZHUT
+0A356	YI SYLLABLE ZHUX
+0A357	YI SYLLABLE ZHU
+0A358	YI SYLLABLE ZHUP
+0A359	YI SYLLABLE ZHURX
+0A35A	YI SYLLABLE ZHUR
+0A35B	YI SYLLABLE ZHYT
+0A35C	YI SYLLABLE ZHYX
+0A35D	YI SYLLABLE ZHY
+0A35E	YI SYLLABLE ZHYP
+0A35F	YI SYLLABLE ZHYRX
+0A360	YI SYLLABLE ZHYR
+0A361	YI SYLLABLE CHAT
+0A362	YI SYLLABLE CHAX
+0A363	YI SYLLABLE CHA
+0A364	YI SYLLABLE CHAP
+0A365	YI SYLLABLE CHUOT
+0A366	YI SYLLABLE CHUOX
+0A367	YI SYLLABLE CHUO
+0A368	YI SYLLABLE CHUOP
+0A369	YI SYLLABLE CHOT
+0A36A	YI SYLLABLE CHOX
+0A36B	YI SYLLABLE CHO
+0A36C	YI SYLLABLE CHOP
+0A36D	YI SYLLABLE CHET
+0A36E	YI SYLLABLE CHEX
+0A36F	YI SYLLABLE CHE
+0A370	YI SYLLABLE CHEP
+0A371	YI SYLLABLE CHUX
+0A372	YI SYLLABLE CHU
+0A373	YI SYLLABLE CHUP
+0A374	YI SYLLABLE CHURX
+0A375	YI SYLLABLE CHUR
+0A376	YI SYLLABLE CHYT
+0A377	YI SYLLABLE CHYX
+0A378	YI SYLLABLE CHY
+0A379	YI SYLLABLE CHYP
+0A37A	YI SYLLABLE CHYRX
+0A37B	YI SYLLABLE CHYR
+0A37C	YI SYLLABLE RRAX
+0A37D	YI SYLLABLE RRA
+0A37E	YI SYLLABLE RRUOX
+0A37F	YI SYLLABLE RRUO
+0A380	YI SYLLABLE RROT
+0A381	YI SYLLABLE RROX
+0A382	YI SYLLABLE RRO
+0A383	YI SYLLABLE RROP
+0A384	YI SYLLABLE RRET
+0A385	YI SYLLABLE RREX
+0A386	YI SYLLABLE RRE
+0A387	YI SYLLABLE RREP
+0A388	YI SYLLABLE RRUT
+0A389	YI SYLLABLE RRUX
+0A38A	YI SYLLABLE RRU
+0A38B	YI SYLLABLE RRUP
+0A38C	YI SYLLABLE RRURX
+0A38D	YI SYLLABLE RRUR
+0A38E	YI SYLLABLE RRYT
+0A38F	YI SYLLABLE RRYX
+0A390	YI SYLLABLE RRY
+0A391	YI SYLLABLE RRYP
+0A392	YI SYLLABLE RRYRX
+0A393	YI SYLLABLE RRYR
+0A394	YI SYLLABLE NRAT
+0A395	YI SYLLABLE NRAX
+0A396	YI SYLLABLE NRA
+0A397	YI SYLLABLE NRAP
+0A398	YI SYLLABLE NROX
+0A399	YI SYLLABLE NRO
+0A39A	YI SYLLABLE NROP
+0A39B	YI SYLLABLE NRET
+0A39C	YI SYLLABLE NREX
+0A39D	YI SYLLABLE NRE
+0A39E	YI SYLLABLE NREP
+0A39F	YI SYLLABLE NRUT
+0A3A0	YI SYLLABLE NRUX
+0A3A1	YI SYLLABLE NRU
+0A3A2	YI SYLLABLE NRUP
+0A3A3	YI SYLLABLE NRURX
+0A3A4	YI SYLLABLE NRUR
+0A3A5	YI SYLLABLE NRYT
+0A3A6	YI SYLLABLE NRYX
+0A3A7	YI SYLLABLE NRY
+0A3A8	YI SYLLABLE NRYP
+0A3A9	YI SYLLABLE NRYRX
+0A3AA	YI SYLLABLE NRYR
+0A3AB	YI SYLLABLE SHAT
+0A3AC	YI SYLLABLE SHAX
+0A3AD	YI SYLLABLE SHA
+0A3AE	YI SYLLABLE SHAP
+0A3AF	YI SYLLABLE SHUOX
+0A3B0	YI SYLLABLE SHUO
+0A3B1	YI SYLLABLE SHUOP
+0A3B2	YI SYLLABLE SHOT
+0A3B3	YI SYLLABLE SHOX
+0A3B4	YI SYLLABLE SHO
+0A3B5	YI SYLLABLE SHOP
+0A3B6	YI SYLLABLE SHET
+0A3B7	YI SYLLABLE SHEX
+0A3B8	YI SYLLABLE SHE
+0A3B9	YI SYLLABLE SHEP
+0A3BA	YI SYLLABLE SHUT
+0A3BB	YI SYLLABLE SHUX
+0A3BC	YI SYLLABLE SHU
+0A3BD	YI SYLLABLE SHUP
+0A3BE	YI SYLLABLE SHURX
+0A3BF	YI SYLLABLE SHUR
+0A3C0	YI SYLLABLE SHYT
+0A3C1	YI SYLLABLE SHYX
+0A3C2	YI SYLLABLE SHY
+0A3C3	YI SYLLABLE SHYP
+0A3C4	YI SYLLABLE SHYRX
+0A3C5	YI SYLLABLE SHYR
+0A3C6	YI SYLLABLE RAT
+0A3C7	YI SYLLABLE RAX
+0A3C8	YI SYLLABLE RA
+0A3C9	YI SYLLABLE RAP
+0A3CA	YI SYLLABLE RUOX
+0A3CB	YI SYLLABLE RUO
+0A3CC	YI SYLLABLE RUOP
+0A3CD	YI SYLLABLE ROT
+0A3CE	YI SYLLABLE ROX
+0A3CF	YI SYLLABLE RO
+0A3D0	YI SYLLABLE ROP
+0A3D1	YI SYLLABLE REX
+0A3D2	YI SYLLABLE RE
+0A3D3	YI SYLLABLE REP
+0A3D4	YI SYLLABLE RUT
+0A3D5	YI SYLLABLE RUX
+0A3D6	YI SYLLABLE RU
+0A3D7	YI SYLLABLE RUP
+0A3D8	YI SYLLABLE RURX
+0A3D9	YI SYLLABLE RUR
+0A3DA	YI SYLLABLE RYT
+0A3DB	YI SYLLABLE RYX
+0A3DC	YI SYLLABLE RY
+0A3DD	YI SYLLABLE RYP
+0A3DE	YI SYLLABLE RYRX
+0A3DF	YI SYLLABLE RYR
+0A3E0	YI SYLLABLE JIT
+0A3E1	YI SYLLABLE JIX
+0A3E2	YI SYLLABLE JI
+0A3E3	YI SYLLABLE JIP
+0A3E4	YI SYLLABLE JIET
+0A3E5	YI SYLLABLE JIEX
+0A3E6	YI SYLLABLE JIE
+0A3E7	YI SYLLABLE JIEP
+0A3E8	YI SYLLABLE JUOT
+0A3E9	YI SYLLABLE JUOX
+0A3EA	YI SYLLABLE JUO
+0A3EB	YI SYLLABLE JUOP
+0A3EC	YI SYLLABLE JOT
+0A3ED	YI SYLLABLE JOX
+0A3EE	YI SYLLABLE JO
+0A3EF	YI SYLLABLE JOP
+0A3F0	YI SYLLABLE JUT
+0A3F1	YI SYLLABLE JUX
+0A3F2	YI SYLLABLE JU
+0A3F3	YI SYLLABLE JUP
+0A3F4	YI SYLLABLE JURX
+0A3F5	YI SYLLABLE JUR
+0A3F6	YI SYLLABLE JYT
+0A3F7	YI SYLLABLE JYX
+0A3F8	YI SYLLABLE JY
+0A3F9	YI SYLLABLE JYP
+0A3FA	YI SYLLABLE JYRX
+0A3FB	YI SYLLABLE JYR
+0A3FC	YI SYLLABLE QIT
+0A3FD	YI SYLLABLE QIX
+0A3FE	YI SYLLABLE QI
+0A3FF	YI SYLLABLE QIP
+0A400	YI SYLLABLE QIET
+0A401	YI SYLLABLE QIEX
+0A402	YI SYLLABLE QIE
+0A403	YI SYLLABLE QIEP
+0A404	YI SYLLABLE QUOT
+0A405	YI SYLLABLE QUOX
+0A406	YI SYLLABLE QUO
+0A407	YI SYLLABLE QUOP
+0A408	YI SYLLABLE QOT
+0A409	YI SYLLABLE QOX
+0A40A	YI SYLLABLE QO
+0A40B	YI SYLLABLE QOP
+0A40C	YI SYLLABLE QUT
+0A40D	YI SYLLABLE QUX
+0A40E	YI SYLLABLE QU
+0A40F	YI SYLLABLE QUP
+0A410	YI SYLLABLE QURX
+0A411	YI SYLLABLE QUR
+0A412	YI SYLLABLE QYT
+0A413	YI SYLLABLE QYX
+0A414	YI SYLLABLE QY
+0A415	YI SYLLABLE QYP
+0A416	YI SYLLABLE QYRX
+0A417	YI SYLLABLE QYR
+0A418	YI SYLLABLE JJIT
+0A419	YI SYLLABLE JJIX
+0A41A	YI SYLLABLE JJI
+0A41B	YI SYLLABLE JJIP
+0A41C	YI SYLLABLE JJIET
+0A41D	YI SYLLABLE JJIEX
+0A41E	YI SYLLABLE JJIE
+0A41F	YI SYLLABLE JJIEP
+0A420	YI SYLLABLE JJUOX
+0A421	YI SYLLABLE JJUO
+0A422	YI SYLLABLE JJUOP
+0A423	YI SYLLABLE JJOT
+0A424	YI SYLLABLE JJOX
+0A425	YI SYLLABLE JJO
+0A426	YI SYLLABLE JJOP
+0A427	YI SYLLABLE JJUT
+0A428	YI SYLLABLE JJUX
+0A429	YI SYLLABLE JJU
+0A42A	YI SYLLABLE JJUP
+0A42B	YI SYLLABLE JJURX
+0A42C	YI SYLLABLE JJUR
+0A42D	YI SYLLABLE JJYT
+0A42E	YI SYLLABLE JJYX
+0A42F	YI SYLLABLE JJY
+0A430	YI SYLLABLE JJYP
+0A431	YI SYLLABLE NJIT
+0A432	YI SYLLABLE NJIX
+0A433	YI SYLLABLE NJI
+0A434	YI SYLLABLE NJIP
+0A435	YI SYLLABLE NJIET
+0A436	YI SYLLABLE NJIEX
+0A437	YI SYLLABLE NJIE
+0A438	YI SYLLABLE NJIEP
+0A439	YI SYLLABLE NJUOX
+0A43A	YI SYLLABLE NJUO
+0A43B	YI SYLLABLE NJOT
+0A43C	YI SYLLABLE NJOX
+0A43D	YI SYLLABLE NJO
+0A43E	YI SYLLABLE NJOP
+0A43F	YI SYLLABLE NJUX
+0A440	YI SYLLABLE NJU
+0A441	YI SYLLABLE NJUP
+0A442	YI SYLLABLE NJURX
+0A443	YI SYLLABLE NJUR
+0A444	YI SYLLABLE NJYT
+0A445	YI SYLLABLE NJYX
+0A446	YI SYLLABLE NJY
+0A447	YI SYLLABLE NJYP
+0A448	YI SYLLABLE NJYRX
+0A449	YI SYLLABLE NJYR
+0A44A	YI SYLLABLE NYIT
+0A44B	YI SYLLABLE NYIX
+0A44C	YI SYLLABLE NYI
+0A44D	YI SYLLABLE NYIP
+0A44E	YI SYLLABLE NYIET
+0A44F	YI SYLLABLE NYIEX
+0A450	YI SYLLABLE NYIE
+0A451	YI SYLLABLE NYIEP
+0A452	YI SYLLABLE NYUOX
+0A453	YI SYLLABLE NYUO
+0A454	YI SYLLABLE NYUOP
+0A455	YI SYLLABLE NYOT
+0A456	YI SYLLABLE NYOX
+0A457	YI SYLLABLE NYO
+0A458	YI SYLLABLE NYOP
+0A459	YI SYLLABLE NYUT
+0A45A	YI SYLLABLE NYUX
+0A45B	YI SYLLABLE NYU
+0A45C	YI SYLLABLE NYUP
+0A45D	YI SYLLABLE XIT
+0A45E	YI SYLLABLE XIX
+0A45F	YI SYLLABLE XI
+0A460	YI SYLLABLE XIP
+0A461	YI SYLLABLE XIET
+0A462	YI SYLLABLE XIEX
+0A463	YI SYLLABLE XIE
+0A464	YI SYLLABLE XIEP
+0A465	YI SYLLABLE XUOX
+0A466	YI SYLLABLE XUO
+0A467	YI SYLLABLE XOT
+0A468	YI SYLLABLE XOX
+0A469	YI SYLLABLE XO
+0A46A	YI SYLLABLE XOP
+0A46B	YI SYLLABLE XYT
+0A46C	YI SYLLABLE XYX
+0A46D	YI SYLLABLE XY
+0A46E	YI SYLLABLE XYP
+0A46F	YI SYLLABLE XYRX
+0A470	YI SYLLABLE XYR
+0A471	YI SYLLABLE YIT
+0A472	YI SYLLABLE YIX
+0A473	YI SYLLABLE YI
+0A474	YI SYLLABLE YIP
+0A475	YI SYLLABLE YIET
+0A476	YI SYLLABLE YIEX
+0A477	YI SYLLABLE YIE
+0A478	YI SYLLABLE YIEP
+0A479	YI SYLLABLE YUOT
+0A47A	YI SYLLABLE YUOX
+0A47B	YI SYLLABLE YUO
+0A47C	YI SYLLABLE YUOP
+0A47D	YI SYLLABLE YOT
+0A47E	YI SYLLABLE YOX
+0A47F	YI SYLLABLE YO
+0A480	YI SYLLABLE YOP
+0A481	YI SYLLABLE YUT
+0A482	YI SYLLABLE YUX
+0A483	YI SYLLABLE YU
+0A484	YI SYLLABLE YUP
+0A485	YI SYLLABLE YURX
+0A486	YI SYLLABLE YUR
+0A487	YI SYLLABLE YYT
+0A488	YI SYLLABLE YYX
+0A489	YI SYLLABLE YY
+0A48A	YI SYLLABLE YYP
+0A48B	YI SYLLABLE YYRX
+0A48C	YI SYLLABLE YYR
+0A490	YI RADICAL QOT
+0A491	YI RADICAL LI
+0A492	YI RADICAL KIT
+0A493	YI RADICAL NYIP
+0A494	YI RADICAL CYP
+0A495	YI RADICAL SSI
+0A496	YI RADICAL GGOP
+0A497	YI RADICAL GEP
+0A498	YI RADICAL MI
+0A499	YI RADICAL HXIT
+0A49A	YI RADICAL LYR
+0A49B	YI RADICAL BBUT
+0A49C	YI RADICAL MOP
+0A49D	YI RADICAL YO
+0A49E	YI RADICAL PUT
+0A49F	YI RADICAL HXUO
+0A4A0	YI RADICAL TAT
+0A4A1	YI RADICAL GA
+0A4A2	YI RADICAL ZUP
+0A4A3	YI RADICAL CYT
+0A4A4	YI RADICAL DDUR
+0A4A5	YI RADICAL BUR
+0A4A6	YI RADICAL GGUO
+0A4A7	YI RADICAL NYOP
+0A4A8	YI RADICAL TU
+0A4A9	YI RADICAL OP
+0A4AA	YI RADICAL JJUT
+0A4AB	YI RADICAL ZOT
+0A4AC	YI RADICAL PYT
+0A4AD	YI RADICAL HMO
+0A4AE	YI RADICAL YIT
+0A4AF	YI RADICAL VUR
+0A4B0	YI RADICAL SHY
+0A4B1	YI RADICAL VEP
+0A4B2	YI RADICAL ZA
+0A4B3	YI RADICAL JO
+0A4B4	YI RADICAL NZUP
+0A4B5	YI RADICAL JJY
+0A4B6	YI RADICAL GOT
+0A4B7	YI RADICAL JJIE
+0A4B8	YI RADICAL WO
+0A4B9	YI RADICAL DU
+0A4BA	YI RADICAL SHUR
+0A4BB	YI RADICAL LIE
+0A4BC	YI RADICAL CY
+0A4BD	YI RADICAL CUOP
+0A4BE	YI RADICAL CIP
+0A4BF	YI RADICAL HXOP
+0A4C0	YI RADICAL SHAT
+0A4C1	YI RADICAL ZUR
+0A4C2	YI RADICAL SHOP
+0A4C3	YI RADICAL CHE
+0A4C4	YI RADICAL ZZIET
+0A4C5	YI RADICAL NBIE
+0A4C6	YI RADICAL KE
+0A4D0	LISU LETTER BA
+0A4D1	LISU LETTER PA
+0A4D2	LISU LETTER PHA
+0A4D3	LISU LETTER DA
+0A4D4	LISU LETTER TA
+0A4D5	LISU LETTER THA
+0A4D6	LISU LETTER GA
+0A4D7	LISU LETTER KA
+0A4D8	LISU LETTER KHA
+0A4D9	LISU LETTER JA
+0A4DA	LISU LETTER CA
+0A4DB	LISU LETTER CHA
+0A4DC	LISU LETTER DZA
+0A4DD	LISU LETTER TSA
+0A4DE	LISU LETTER TSHA
+0A4DF	LISU LETTER MA
+0A4E0	LISU LETTER NA
+0A4E1	LISU LETTER LA
+0A4E2	LISU LETTER SA
+0A4E3	LISU LETTER ZHA
+0A4E4	LISU LETTER ZA
+0A4E5	LISU LETTER NGA
+0A4E6	LISU LETTER HA
+0A4E7	LISU LETTER XA
+0A4E8	LISU LETTER HHA
+0A4E9	LISU LETTER FA
+0A4EA	LISU LETTER WA
+0A4EB	LISU LETTER SHA
+0A4EC	LISU LETTER YA
+0A4ED	LISU LETTER GHA
+0A4EE	LISU LETTER A
+0A4EF	LISU LETTER AE
+0A4F0	LISU LETTER E
+0A4F1	LISU LETTER EU
+0A4F2	LISU LETTER I
+0A4F3	LISU LETTER O
+0A4F4	LISU LETTER U
+0A4F5	LISU LETTER UE
+0A4F6	LISU LETTER UH
+0A4F7	LISU LETTER OE
+0A4F8	LISU LETTER TONE MYA TI
+0A4F9	LISU LETTER TONE NA PO
+0A4FA	LISU LETTER TONE MYA CYA
+0A4FB	LISU LETTER TONE MYA BO
+0A4FC	LISU LETTER TONE MYA NA
+0A4FD	LISU LETTER TONE MYA JEU
+0A4FE	LISU PUNCTUATION COMMA
+0A4FF	LISU PUNCTUATION FULL STOP
+0A500	VAI SYLLABLE EE
+0A501	VAI SYLLABLE EEN
+0A502	VAI SYLLABLE HEE
+0A503	VAI SYLLABLE WEE
+0A504	VAI SYLLABLE WEEN
+0A505	VAI SYLLABLE PEE
+0A506	VAI SYLLABLE BHEE
+0A507	VAI SYLLABLE BEE
+0A508	VAI SYLLABLE MBEE
+0A509	VAI SYLLABLE KPEE
+0A50A	VAI SYLLABLE MGBEE
+0A50B	VAI SYLLABLE GBEE
+0A50C	VAI SYLLABLE FEE
+0A50D	VAI SYLLABLE VEE
+0A50E	VAI SYLLABLE TEE
+0A50F	VAI SYLLABLE THEE
+0A510	VAI SYLLABLE DHEE
+0A511	VAI SYLLABLE DHHEE
+0A512	VAI SYLLABLE LEE
+0A513	VAI SYLLABLE REE
+0A514	VAI SYLLABLE DEE
+0A515	VAI SYLLABLE NDEE
+0A516	VAI SYLLABLE SEE
+0A517	VAI SYLLABLE SHEE
+0A518	VAI SYLLABLE ZEE
+0A519	VAI SYLLABLE ZHEE
+0A51A	VAI SYLLABLE CEE
+0A51B	VAI SYLLABLE JEE
+0A51C	VAI SYLLABLE NJEE
+0A51D	VAI SYLLABLE YEE
+0A51E	VAI SYLLABLE KEE
+0A51F	VAI SYLLABLE NGGEE
+0A520	VAI SYLLABLE GEE
+0A521	VAI SYLLABLE MEE
+0A522	VAI SYLLABLE NEE
+0A523	VAI SYLLABLE NYEE
+0A524	VAI SYLLABLE I
+0A525	VAI SYLLABLE IN
+0A526	VAI SYLLABLE HI
+0A527	VAI SYLLABLE HIN
+0A528	VAI SYLLABLE WI
+0A529	VAI SYLLABLE WIN
+0A52A	VAI SYLLABLE PI
+0A52B	VAI SYLLABLE BHI
+0A52C	VAI SYLLABLE BI
+0A52D	VAI SYLLABLE MBI
+0A52E	VAI SYLLABLE KPI
+0A52F	VAI SYLLABLE MGBI
+0A530	VAI SYLLABLE GBI
+0A531	VAI SYLLABLE FI
+0A532	VAI SYLLABLE VI
+0A533	VAI SYLLABLE TI
+0A534	VAI SYLLABLE THI
+0A535	VAI SYLLABLE DHI
+0A536	VAI SYLLABLE DHHI
+0A537	VAI SYLLABLE LI
+0A538	VAI SYLLABLE RI
+0A539	VAI SYLLABLE DI
+0A53A	VAI SYLLABLE NDI
+0A53B	VAI SYLLABLE SI
+0A53C	VAI SYLLABLE SHI
+0A53D	VAI SYLLABLE ZI
+0A53E	VAI SYLLABLE ZHI
+0A53F	VAI SYLLABLE CI
+0A540	VAI SYLLABLE JI
+0A541	VAI SYLLABLE NJI
+0A542	VAI SYLLABLE YI
+0A543	VAI SYLLABLE KI
+0A544	VAI SYLLABLE NGGI
+0A545	VAI SYLLABLE GI
+0A546	VAI SYLLABLE MI
+0A547	VAI SYLLABLE NI
+0A548	VAI SYLLABLE NYI
+0A549	VAI SYLLABLE A
+0A54A	VAI SYLLABLE AN
+0A54B	VAI SYLLABLE NGAN
+0A54C	VAI SYLLABLE HA
+0A54D	VAI SYLLABLE HAN
+0A54E	VAI SYLLABLE WA
+0A54F	VAI SYLLABLE WAN
+0A550	VAI SYLLABLE PA
+0A551	VAI SYLLABLE BHA
+0A552	VAI SYLLABLE BA
+0A553	VAI SYLLABLE MBA
+0A554	VAI SYLLABLE KPA
+0A555	VAI SYLLABLE KPAN
+0A556	VAI SYLLABLE MGBA
+0A557	VAI SYLLABLE GBA
+0A558	VAI SYLLABLE FA
+0A559	VAI SYLLABLE VA
+0A55A	VAI SYLLABLE TA
+0A55B	VAI SYLLABLE THA
+0A55C	VAI SYLLABLE DHA
+0A55D	VAI SYLLABLE DHHA
+0A55E	VAI SYLLABLE LA
+0A55F	VAI SYLLABLE RA
+0A560	VAI SYLLABLE DA
+0A561	VAI SYLLABLE NDA
+0A562	VAI SYLLABLE SA
+0A563	VAI SYLLABLE SHA
+0A564	VAI SYLLABLE ZA
+0A565	VAI SYLLABLE ZHA
+0A566	VAI SYLLABLE CA
+0A567	VAI SYLLABLE JA
+0A568	VAI SYLLABLE NJA
+0A569	VAI SYLLABLE YA
+0A56A	VAI SYLLABLE KA
+0A56B	VAI SYLLABLE KAN
+0A56C	VAI SYLLABLE NGGA
+0A56D	VAI SYLLABLE GA
+0A56E	VAI SYLLABLE MA
+0A56F	VAI SYLLABLE NA
+0A570	VAI SYLLABLE NYA
+0A571	VAI SYLLABLE OO
+0A572	VAI SYLLABLE OON
+0A573	VAI SYLLABLE HOO
+0A574	VAI SYLLABLE WOO
+0A575	VAI SYLLABLE WOON
+0A576	VAI SYLLABLE POO
+0A577	VAI SYLLABLE BHOO
+0A578	VAI SYLLABLE BOO
+0A579	VAI SYLLABLE MBOO
+0A57A	VAI SYLLABLE KPOO
+0A57B	VAI SYLLABLE MGBOO
+0A57C	VAI SYLLABLE GBOO
+0A57D	VAI SYLLABLE FOO
+0A57E	VAI SYLLABLE VOO
+0A57F	VAI SYLLABLE TOO
+0A580	VAI SYLLABLE THOO
+0A581	VAI SYLLABLE DHOO
+0A582	VAI SYLLABLE DHHOO
+0A583	VAI SYLLABLE LOO
+0A584	VAI SYLLABLE ROO
+0A585	VAI SYLLABLE DOO
+0A586	VAI SYLLABLE NDOO
+0A587	VAI SYLLABLE SOO
+0A588	VAI SYLLABLE SHOO
+0A589	VAI SYLLABLE ZOO
+0A58A	VAI SYLLABLE ZHOO
+0A58B	VAI SYLLABLE COO
+0A58C	VAI SYLLABLE JOO
+0A58D	VAI SYLLABLE NJOO
+0A58E	VAI SYLLABLE YOO
+0A58F	VAI SYLLABLE KOO
+0A590	VAI SYLLABLE NGGOO
+0A591	VAI SYLLABLE GOO
+0A592	VAI SYLLABLE MOO
+0A593	VAI SYLLABLE NOO
+0A594	VAI SYLLABLE NYOO
+0A595	VAI SYLLABLE U
+0A596	VAI SYLLABLE UN
+0A597	VAI SYLLABLE HU
+0A598	VAI SYLLABLE HUN
+0A599	VAI SYLLABLE WU
+0A59A	VAI SYLLABLE WUN
+0A59B	VAI SYLLABLE PU
+0A59C	VAI SYLLABLE BHU
+0A59D	VAI SYLLABLE BU
+0A59E	VAI SYLLABLE MBU
+0A59F	VAI SYLLABLE KPU
+0A5A0	VAI SYLLABLE MGBU
+0A5A1	VAI SYLLABLE GBU
+0A5A2	VAI SYLLABLE FU
+0A5A3	VAI SYLLABLE VU
+0A5A4	VAI SYLLABLE TU
+0A5A5	VAI SYLLABLE THU
+0A5A6	VAI SYLLABLE DHU
+0A5A7	VAI SYLLABLE DHHU
+0A5A8	VAI SYLLABLE LU
+0A5A9	VAI SYLLABLE RU
+0A5AA	VAI SYLLABLE DU
+0A5AB	VAI SYLLABLE NDU
+0A5AC	VAI SYLLABLE SU
+0A5AD	VAI SYLLABLE SHU
+0A5AE	VAI SYLLABLE ZU
+0A5AF	VAI SYLLABLE ZHU
+0A5B0	VAI SYLLABLE CU
+0A5B1	VAI SYLLABLE JU
+0A5B2	VAI SYLLABLE NJU
+0A5B3	VAI SYLLABLE YU
+0A5B4	VAI SYLLABLE KU
+0A5B5	VAI SYLLABLE NGGU
+0A5B6	VAI SYLLABLE GU
+0A5B7	VAI SYLLABLE MU
+0A5B8	VAI SYLLABLE NU
+0A5B9	VAI SYLLABLE NYU
+0A5BA	VAI SYLLABLE O
+0A5BB	VAI SYLLABLE ON
+0A5BC	VAI SYLLABLE NGON
+0A5BD	VAI SYLLABLE HO
+0A5BE	VAI SYLLABLE HON
+0A5BF	VAI SYLLABLE WO
+0A5C0	VAI SYLLABLE WON
+0A5C1	VAI SYLLABLE PO
+0A5C2	VAI SYLLABLE BHO
+0A5C3	VAI SYLLABLE BO
+0A5C4	VAI SYLLABLE MBO
+0A5C5	VAI SYLLABLE KPO
+0A5C6	VAI SYLLABLE MGBO
+0A5C7	VAI SYLLABLE GBO
+0A5C8	VAI SYLLABLE GBON
+0A5C9	VAI SYLLABLE FO
+0A5CA	VAI SYLLABLE VO
+0A5CB	VAI SYLLABLE TO
+0A5CC	VAI SYLLABLE THO
+0A5CD	VAI SYLLABLE DHO
+0A5CE	VAI SYLLABLE DHHO
+0A5CF	VAI SYLLABLE LO
+0A5D0	VAI SYLLABLE RO
+0A5D1	VAI SYLLABLE DO
+0A5D2	VAI SYLLABLE NDO
+0A5D3	VAI SYLLABLE SO
+0A5D4	VAI SYLLABLE SHO
+0A5D5	VAI SYLLABLE ZO
+0A5D6	VAI SYLLABLE ZHO
+0A5D7	VAI SYLLABLE CO
+0A5D8	VAI SYLLABLE JO
+0A5D9	VAI SYLLABLE NJO
+0A5DA	VAI SYLLABLE YO
+0A5DB	VAI SYLLABLE KO
+0A5DC	VAI SYLLABLE NGGO
+0A5DD	VAI SYLLABLE GO
+0A5DE	VAI SYLLABLE MO
+0A5DF	VAI SYLLABLE NO
+0A5E0	VAI SYLLABLE NYO
+0A5E1	VAI SYLLABLE E
+0A5E2	VAI SYLLABLE EN
+0A5E3	VAI SYLLABLE NGEN
+0A5E4	VAI SYLLABLE HE
+0A5E5	VAI SYLLABLE HEN
+0A5E6	VAI SYLLABLE WE
+0A5E7	VAI SYLLABLE WEN
+0A5E8	VAI SYLLABLE PE
+0A5E9	VAI SYLLABLE BHE
+0A5EA	VAI SYLLABLE BE
+0A5EB	VAI SYLLABLE MBE
+0A5EC	VAI SYLLABLE KPE
+0A5ED	VAI SYLLABLE KPEN
+0A5EE	VAI SYLLABLE MGBE
+0A5EF	VAI SYLLABLE GBE
+0A5F0	VAI SYLLABLE GBEN
+0A5F1	VAI SYLLABLE FE
+0A5F2	VAI SYLLABLE VE
+0A5F3	VAI SYLLABLE TE
+0A5F4	VAI SYLLABLE THE
+0A5F5	VAI SYLLABLE DHE
+0A5F6	VAI SYLLABLE DHHE
+0A5F7	VAI SYLLABLE LE
+0A5F8	VAI SYLLABLE RE
+0A5F9	VAI SYLLABLE DE
+0A5FA	VAI SYLLABLE NDE
+0A5FB	VAI SYLLABLE SE
+0A5FC	VAI SYLLABLE SHE
+0A5FD	VAI SYLLABLE ZE
+0A5FE	VAI SYLLABLE ZHE
+0A5FF	VAI SYLLABLE CE
+0A600	VAI SYLLABLE JE
+0A601	VAI SYLLABLE NJE
+0A602	VAI SYLLABLE YE
+0A603	VAI SYLLABLE KE
+0A604	VAI SYLLABLE NGGE
+0A605	VAI SYLLABLE NGGEN
+0A606	VAI SYLLABLE GE
+0A607	VAI SYLLABLE GEN
+0A608	VAI SYLLABLE ME
+0A609	VAI SYLLABLE NE
+0A60A	VAI SYLLABLE NYE
+0A60B	VAI SYLLABLE NG
+0A60C	VAI SYLLABLE LENGTHENER
+0A60D	VAI COMMA
+0A60E	VAI FULL STOP
+0A60F	VAI QUESTION MARK
+0A610	VAI SYLLABLE NDOLE FA
+0A611	VAI SYLLABLE NDOLE KA
+0A612	VAI SYLLABLE NDOLE SOO
+0A613	VAI SYMBOL FEENG
+0A614	VAI SYMBOL KEENG
+0A615	VAI SYMBOL TING
+0A616	VAI SYMBOL NII
+0A617	VAI SYMBOL BANG
+0A618	VAI SYMBOL FAA
+0A619	VAI SYMBOL TAA
+0A61A	VAI SYMBOL DANG
+0A61B	VAI SYMBOL DOONG
+0A61C	VAI SYMBOL KUNG
+0A61D	VAI SYMBOL TONG
+0A61E	VAI SYMBOL DO-O
+0A61F	VAI SYMBOL JONG
+0A620	VAI DIGIT ZERO
+0A621	VAI DIGIT ONE
+0A622	VAI DIGIT TWO
+0A623	VAI DIGIT THREE
+0A624	VAI DIGIT FOUR
+0A625	VAI DIGIT FIVE
+0A626	VAI DIGIT SIX
+0A627	VAI DIGIT SEVEN
+0A628	VAI DIGIT EIGHT
+0A629	VAI DIGIT NINE
+0A62A	VAI SYLLABLE NDOLE MA
+0A62B	VAI SYLLABLE NDOLE DO
+0A640	CYRILLIC CAPITAL LETTER ZEMLYA
+0A641	CYRILLIC SMALL LETTER ZEMLYA
+0A642	CYRILLIC CAPITAL LETTER DZELO
+0A643	CYRILLIC SMALL LETTER DZELO
+0A644	CYRILLIC CAPITAL LETTER REVERSED DZE
+0A645	CYRILLIC SMALL LETTER REVERSED DZE
+0A646	CYRILLIC CAPITAL LETTER IOTA
+0A647	CYRILLIC SMALL LETTER IOTA
+0A648	CYRILLIC CAPITAL LETTER DJERV
+0A649	CYRILLIC SMALL LETTER DJERV
+0A64A	CYRILLIC CAPITAL LETTER MONOGRAPH UK
+0A64B	CYRILLIC SMALL LETTER MONOGRAPH UK
+0A64C	CYRILLIC CAPITAL LETTER BROAD OMEGA
+0A64D	CYRILLIC SMALL LETTER BROAD OMEGA
+0A64E	CYRILLIC CAPITAL LETTER NEUTRAL YER
+0A64F	CYRILLIC SMALL LETTER NEUTRAL YER
+0A650	CYRILLIC CAPITAL LETTER YERU WITH BACK YER
+0A651	CYRILLIC SMALL LETTER YERU WITH BACK YER
+0A652	CYRILLIC CAPITAL LETTER IOTIFIED YAT
+0A653	CYRILLIC SMALL LETTER IOTIFIED YAT
+0A654	CYRILLIC CAPITAL LETTER REVERSED YU
+0A655	CYRILLIC SMALL LETTER REVERSED YU
+0A656	CYRILLIC CAPITAL LETTER IOTIFIED A
+0A657	CYRILLIC SMALL LETTER IOTIFIED A
+0A658	CYRILLIC CAPITAL LETTER CLOSED LITTLE YUS
+0A659	CYRILLIC SMALL LETTER CLOSED LITTLE YUS
+0A65A	CYRILLIC CAPITAL LETTER BLENDED YUS
+0A65B	CYRILLIC SMALL LETTER BLENDED YUS
+0A65C	CYRILLIC CAPITAL LETTER IOTIFIED CLOSED LITTLE YUS
+0A65D	CYRILLIC SMALL LETTER IOTIFIED CLOSED LITTLE YUS
+0A65E	CYRILLIC CAPITAL LETTER YN
+0A65F	CYRILLIC SMALL LETTER YN
+0A660	CYRILLIC CAPITAL LETTER REVERSED TSE
+0A661	CYRILLIC SMALL LETTER REVERSED TSE
+0A662	CYRILLIC CAPITAL LETTER SOFT DE
+0A663	CYRILLIC SMALL LETTER SOFT DE
+0A664	CYRILLIC CAPITAL LETTER SOFT EL
+0A665	CYRILLIC SMALL LETTER SOFT EL
+0A666	CYRILLIC CAPITAL LETTER SOFT EM
+0A667	CYRILLIC SMALL LETTER SOFT EM
+0A668	CYRILLIC CAPITAL LETTER MONOCULAR O
+0A669	CYRILLIC SMALL LETTER MONOCULAR O
+0A66A	CYRILLIC CAPITAL LETTER BINOCULAR O
+0A66B	CYRILLIC SMALL LETTER BINOCULAR O
+0A66C	CYRILLIC CAPITAL LETTER DOUBLE MONOCULAR O
+0A66D	CYRILLIC SMALL LETTER DOUBLE MONOCULAR O
+0A66E	CYRILLIC LETTER MULTIOCULAR O
+0A66F	COMBINING CYRILLIC VZMET
+0A670	COMBINING CYRILLIC TEN MILLIONS SIGN
+0A671	COMBINING CYRILLIC HUNDRED MILLIONS SIGN
+0A672	COMBINING CYRILLIC THOUSAND MILLIONS SIGN
+0A673	SLAVONIC ASTERISK
+0A674	COMBINING CYRILLIC LETTER UKRAINIAN IE
+0A675	COMBINING CYRILLIC LETTER I
+0A676	COMBINING CYRILLIC LETTER YI
+0A677	COMBINING CYRILLIC LETTER U
+0A678	COMBINING CYRILLIC LETTER HARD SIGN
+0A679	COMBINING CYRILLIC LETTER YERU
+0A67A	COMBINING CYRILLIC LETTER SOFT SIGN
+0A67B	COMBINING CYRILLIC LETTER OMEGA
+0A67C	COMBINING CYRILLIC KAVYKA
+0A67D	COMBINING CYRILLIC PAYEROK
+0A67E	CYRILLIC KAVYKA
+0A67F	CYRILLIC PAYEROK
+0A680	CYRILLIC CAPITAL LETTER DWE
+0A681	CYRILLIC SMALL LETTER DWE
+0A682	CYRILLIC CAPITAL LETTER DZWE
+0A683	CYRILLIC SMALL LETTER DZWE
+0A684	CYRILLIC CAPITAL LETTER ZHWE
+0A685	CYRILLIC SMALL LETTER ZHWE
+0A686	CYRILLIC CAPITAL LETTER CCHE
+0A687	CYRILLIC SMALL LETTER CCHE
+0A688	CYRILLIC CAPITAL LETTER DZZE
+0A689	CYRILLIC SMALL LETTER DZZE
+0A68A	CYRILLIC CAPITAL LETTER TE WITH MIDDLE HOOK
+0A68B	CYRILLIC SMALL LETTER TE WITH MIDDLE HOOK
+0A68C	CYRILLIC CAPITAL LETTER TWE
+0A68D	CYRILLIC SMALL LETTER TWE
+0A68E	CYRILLIC CAPITAL LETTER TSWE
+0A68F	CYRILLIC SMALL LETTER TSWE
+0A690	CYRILLIC CAPITAL LETTER TSSE
+0A691	CYRILLIC SMALL LETTER TSSE
+0A692	CYRILLIC CAPITAL LETTER TCHE
+0A693	CYRILLIC SMALL LETTER TCHE
+0A694	CYRILLIC CAPITAL LETTER HWE
+0A695	CYRILLIC SMALL LETTER HWE
+0A696	CYRILLIC CAPITAL LETTER SHWE
+0A697	CYRILLIC SMALL LETTER SHWE
+0A698	CYRILLIC CAPITAL LETTER DOUBLE O
+0A699	CYRILLIC SMALL LETTER DOUBLE O
+0A69A	CYRILLIC CAPITAL LETTER CROSSED O
+0A69B	CYRILLIC SMALL LETTER CROSSED O
+0A69C	MODIFIER LETTER CYRILLIC HARD SIGN
+0A69D	MODIFIER LETTER CYRILLIC SOFT SIGN
+0A69E	COMBINING CYRILLIC LETTER EF
+0A69F	COMBINING CYRILLIC LETTER IOTIFIED E
+0A6A0	BAMUM LETTER A
+0A6A1	BAMUM LETTER KA
+0A6A2	BAMUM LETTER U
+0A6A3	BAMUM LETTER KU
+0A6A4	BAMUM LETTER EE
+0A6A5	BAMUM LETTER REE
+0A6A6	BAMUM LETTER TAE
+0A6A7	BAMUM LETTER O
+0A6A8	BAMUM LETTER NYI
+0A6A9	BAMUM LETTER I
+0A6AA	BAMUM LETTER LA
+0A6AB	BAMUM LETTER PA
+0A6AC	BAMUM LETTER RII
+0A6AD	BAMUM LETTER RIEE
+0A6AE	BAMUM LETTER LEEEE
+0A6AF	BAMUM LETTER MEEEE
+0A6B0	BAMUM LETTER TAA
+0A6B1	BAMUM LETTER NDAA
+0A6B2	BAMUM LETTER NJAEM
+0A6B3	BAMUM LETTER M
+0A6B4	BAMUM LETTER SUU
+0A6B5	BAMUM LETTER MU
+0A6B6	BAMUM LETTER SHII
+0A6B7	BAMUM LETTER SI
+0A6B8	BAMUM LETTER SHEUX
+0A6B9	BAMUM LETTER SEUX
+0A6BA	BAMUM LETTER KYEE
+0A6BB	BAMUM LETTER KET
+0A6BC	BAMUM LETTER NUAE
+0A6BD	BAMUM LETTER NU
+0A6BE	BAMUM LETTER NJUAE
+0A6BF	BAMUM LETTER YOQ
+0A6C0	BAMUM LETTER SHU
+0A6C1	BAMUM LETTER YUQ
+0A6C2	BAMUM LETTER YA
+0A6C3	BAMUM LETTER NSHA
+0A6C4	BAMUM LETTER KEUX
+0A6C5	BAMUM LETTER PEUX
+0A6C6	BAMUM LETTER NJEE
+0A6C7	BAMUM LETTER NTEE
+0A6C8	BAMUM LETTER PUE
+0A6C9	BAMUM LETTER WUE
+0A6CA	BAMUM LETTER PEE
+0A6CB	BAMUM LETTER FEE
+0A6CC	BAMUM LETTER RU
+0A6CD	BAMUM LETTER LU
+0A6CE	BAMUM LETTER MI
+0A6CF	BAMUM LETTER NI
+0A6D0	BAMUM LETTER REUX
+0A6D1	BAMUM LETTER RAE
+0A6D2	BAMUM LETTER KEN
+0A6D3	BAMUM LETTER NGKWAEN
+0A6D4	BAMUM LETTER NGGA
+0A6D5	BAMUM LETTER NGA
+0A6D6	BAMUM LETTER SHO
+0A6D7	BAMUM LETTER PUAE
+0A6D8	BAMUM LETTER FU
+0A6D9	BAMUM LETTER FOM
+0A6DA	BAMUM LETTER WA
+0A6DB	BAMUM LETTER NA
+0A6DC	BAMUM LETTER LI
+0A6DD	BAMUM LETTER PI
+0A6DE	BAMUM LETTER LOQ
+0A6DF	BAMUM LETTER KO
+0A6E0	BAMUM LETTER MBEN
+0A6E1	BAMUM LETTER REN
+0A6E2	BAMUM LETTER MEN
+0A6E3	BAMUM LETTER MA
+0A6E4	BAMUM LETTER TI
+0A6E5	BAMUM LETTER KI
+0A6E6	BAMUM LETTER MO
+0A6E7	BAMUM LETTER MBAA
+0A6E8	BAMUM LETTER TET
+0A6E9	BAMUM LETTER KPA
+0A6EA	BAMUM LETTER TEN
+0A6EB	BAMUM LETTER NTUU
+0A6EC	BAMUM LETTER SAMBA
+0A6ED	BAMUM LETTER FAAMAE
+0A6EE	BAMUM LETTER KOVUU
+0A6EF	BAMUM LETTER KOGHOM
+0A6F0	BAMUM COMBINING MARK KOQNDON
+0A6F1	BAMUM COMBINING MARK TUKWENTIS
+0A6F2	BAMUM NJAEMLI
+0A6F3	BAMUM FULL STOP
+0A6F4	BAMUM COLON
+0A6F5	BAMUM COMMA
+0A6F6	BAMUM SEMICOLON
+0A6F7	BAMUM QUESTION MARK
+0A700	MODIFIER LETTER CHINESE TONE YIN PING
+0A701	MODIFIER LETTER CHINESE TONE YANG PING
+0A702	MODIFIER LETTER CHINESE TONE YIN SHANG
+0A703	MODIFIER LETTER CHINESE TONE YANG SHANG
+0A704	MODIFIER LETTER CHINESE TONE YIN QU
+0A705	MODIFIER LETTER CHINESE TONE YANG QU
+0A706	MODIFIER LETTER CHINESE TONE YIN RU
+0A707	MODIFIER LETTER CHINESE TONE YANG RU
+0A708	MODIFIER LETTER EXTRA-HIGH DOTTED TONE BAR
+0A709	MODIFIER LETTER HIGH DOTTED TONE BAR
+0A70A	MODIFIER LETTER MID DOTTED TONE BAR
+0A70B	MODIFIER LETTER LOW DOTTED TONE BAR
+0A70C	MODIFIER LETTER EXTRA-LOW DOTTED TONE BAR
+0A70D	MODIFIER LETTER EXTRA-HIGH DOTTED LEFT-STEM TONE BAR
+0A70E	MODIFIER LETTER HIGH DOTTED LEFT-STEM TONE BAR
+0A70F	MODIFIER LETTER MID DOTTED LEFT-STEM TONE BAR
+0A710	MODIFIER LETTER LOW DOTTED LEFT-STEM TONE BAR
+0A711	MODIFIER LETTER EXTRA-LOW DOTTED LEFT-STEM TONE BAR
+0A712	MODIFIER LETTER EXTRA-HIGH LEFT-STEM TONE BAR
+0A713	MODIFIER LETTER HIGH LEFT-STEM TONE BAR
+0A714	MODIFIER LETTER MID LEFT-STEM TONE BAR
+0A715	MODIFIER LETTER LOW LEFT-STEM TONE BAR
+0A716	MODIFIER LETTER EXTRA-LOW LEFT-STEM TONE BAR
+0A717	MODIFIER LETTER DOT VERTICAL BAR
+0A718	MODIFIER LETTER DOT SLASH
+0A719	MODIFIER LETTER DOT HORIZONTAL BAR
+0A71A	MODIFIER LETTER LOWER RIGHT CORNER ANGLE
+0A71B	MODIFIER LETTER RAISED UP ARROW
+0A71C	MODIFIER LETTER RAISED DOWN ARROW
+0A71D	MODIFIER LETTER RAISED EXCLAMATION MARK
+0A71E	MODIFIER LETTER RAISED INVERTED EXCLAMATION MARK
+0A71F	MODIFIER LETTER LOW INVERTED EXCLAMATION MARK
+0A720	MODIFIER LETTER STRESS AND HIGH TONE
+0A721	MODIFIER LETTER STRESS AND LOW TONE
+0A722	LATIN CAPITAL LETTER EGYPTOLOGICAL ALEF
+0A723	LATIN SMALL LETTER EGYPTOLOGICAL ALEF
+0A724	LATIN CAPITAL LETTER EGYPTOLOGICAL AIN
+0A725	LATIN SMALL LETTER EGYPTOLOGICAL AIN
+0A726	LATIN CAPITAL LETTER HENG
+0A727	LATIN SMALL LETTER HENG
+0A728	LATIN CAPITAL LETTER TZ
+0A729	LATIN SMALL LETTER TZ
+0A72A	LATIN CAPITAL LETTER TRESILLO
+0A72B	LATIN SMALL LETTER TRESILLO
+0A72C	LATIN CAPITAL LETTER CUATRILLO
+0A72D	LATIN SMALL LETTER CUATRILLO
+0A72E	LATIN CAPITAL LETTER CUATRILLO WITH COMMA
+0A72F	LATIN SMALL LETTER CUATRILLO WITH COMMA
+0A730	LATIN LETTER SMALL CAPITAL F
+0A731	LATIN LETTER SMALL CAPITAL S
+0A732	LATIN CAPITAL LETTER AA
+0A733	LATIN SMALL LETTER AA
+0A734	LATIN CAPITAL LETTER AO
+0A735	LATIN SMALL LETTER AO
+0A736	LATIN CAPITAL LETTER AU
+0A737	LATIN SMALL LETTER AU
+0A738	LATIN CAPITAL LETTER AV
+0A739	LATIN SMALL LETTER AV
+0A73A	LATIN CAPITAL LETTER AV WITH HORIZONTAL BAR
+0A73B	LATIN SMALL LETTER AV WITH HORIZONTAL BAR
+0A73C	LATIN CAPITAL LETTER AY
+0A73D	LATIN SMALL LETTER AY
+0A73E	LATIN CAPITAL LETTER REVERSED C WITH DOT
+0A73F	LATIN SMALL LETTER REVERSED C WITH DOT
+0A740	LATIN CAPITAL LETTER K WITH STROKE
+0A741	LATIN SMALL LETTER K WITH STROKE
+0A742	LATIN CAPITAL LETTER K WITH DIAGONAL STROKE
+0A743	LATIN SMALL LETTER K WITH DIAGONAL STROKE
+0A744	LATIN CAPITAL LETTER K WITH STROKE AND DIAGONAL STROKE
+0A745	LATIN SMALL LETTER K WITH STROKE AND DIAGONAL STROKE
+0A746	LATIN CAPITAL LETTER BROKEN L
+0A747	LATIN SMALL LETTER BROKEN L
+0A748	LATIN CAPITAL LETTER L WITH HIGH STROKE
+0A749	LATIN SMALL LETTER L WITH HIGH STROKE
+0A74A	LATIN CAPITAL LETTER O WITH LONG STROKE OVERLAY
+0A74B	LATIN SMALL LETTER O WITH LONG STROKE OVERLAY
+0A74C	LATIN CAPITAL LETTER O WITH LOOP
+0A74D	LATIN SMALL LETTER O WITH LOOP
+0A74E	LATIN CAPITAL LETTER OO
+0A74F	LATIN SMALL LETTER OO
+0A750	LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER
+0A751	LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER
+0A752	LATIN CAPITAL LETTER P WITH FLOURISH
+0A753	LATIN SMALL LETTER P WITH FLOURISH
+0A754	LATIN CAPITAL LETTER P WITH SQUIRREL TAIL
+0A755	LATIN SMALL LETTER P WITH SQUIRREL TAIL
+0A756	LATIN CAPITAL LETTER Q WITH STROKE THROUGH DESCENDER
+0A757	LATIN SMALL LETTER Q WITH STROKE THROUGH DESCENDER
+0A758	LATIN CAPITAL LETTER Q WITH DIAGONAL STROKE
+0A759	LATIN SMALL LETTER Q WITH DIAGONAL STROKE
+0A75A	LATIN CAPITAL LETTER R ROTUNDA
+0A75B	LATIN SMALL LETTER R ROTUNDA
+0A75C	LATIN CAPITAL LETTER RUM ROTUNDA
+0A75D	LATIN SMALL LETTER RUM ROTUNDA
+0A75E	LATIN CAPITAL LETTER V WITH DIAGONAL STROKE
+0A75F	LATIN SMALL LETTER V WITH DIAGONAL STROKE
+0A760	LATIN CAPITAL LETTER VY
+0A761	LATIN SMALL LETTER VY
+0A762	LATIN CAPITAL LETTER VISIGOTHIC Z
+0A763	LATIN SMALL LETTER VISIGOTHIC Z
+0A764	LATIN CAPITAL LETTER THORN WITH STROKE
+0A765	LATIN SMALL LETTER THORN WITH STROKE
+0A766	LATIN CAPITAL LETTER THORN WITH STROKE THROUGH DESCENDER
+0A767	LATIN SMALL LETTER THORN WITH STROKE THROUGH DESCENDER
+0A768	LATIN CAPITAL LETTER VEND
+0A769	LATIN SMALL LETTER VEND
+0A76A	LATIN CAPITAL LETTER ET
+0A76B	LATIN SMALL LETTER ET
+0A76C	LATIN CAPITAL LETTER IS
+0A76D	LATIN SMALL LETTER IS
+0A76E	LATIN CAPITAL LETTER CON
+0A76F	LATIN SMALL LETTER CON
+0A770	MODIFIER LETTER US
+0A771	LATIN SMALL LETTER DUM
+0A772	LATIN SMALL LETTER LUM
+0A773	LATIN SMALL LETTER MUM
+0A774	LATIN SMALL LETTER NUM
+0A775	LATIN SMALL LETTER RUM
+0A776	LATIN LETTER SMALL CAPITAL RUM
+0A777	LATIN SMALL LETTER TUM
+0A778	LATIN SMALL LETTER UM
+0A779	LATIN CAPITAL LETTER INSULAR D
+0A77A	LATIN SMALL LETTER INSULAR D
+0A77B	LATIN CAPITAL LETTER INSULAR F
+0A77C	LATIN SMALL LETTER INSULAR F
+0A77D	LATIN CAPITAL LETTER INSULAR G
+0A77E	LATIN CAPITAL LETTER TURNED INSULAR G
+0A77F	LATIN SMALL LETTER TURNED INSULAR G
+0A780	LATIN CAPITAL LETTER TURNED L
+0A781	LATIN SMALL LETTER TURNED L
+0A782	LATIN CAPITAL LETTER INSULAR R
+0A783	LATIN SMALL LETTER INSULAR R
+0A784	LATIN CAPITAL LETTER INSULAR S
+0A785	LATIN SMALL LETTER INSULAR S
+0A786	LATIN CAPITAL LETTER INSULAR T
+0A787	LATIN SMALL LETTER INSULAR T
+0A788	MODIFIER LETTER LOW CIRCUMFLEX ACCENT
+0A789	MODIFIER LETTER COLON
+0A78A	MODIFIER LETTER SHORT EQUALS SIGN
+0A78B	LATIN CAPITAL LETTER SALTILLO
+0A78C	LATIN SMALL LETTER SALTILLO
+0A78D	LATIN CAPITAL LETTER TURNED H
+0A78E	LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT
+0A78F	LATIN LETTER SINOLOGICAL DOT
+0A790	LATIN CAPITAL LETTER N WITH DESCENDER
+0A791	LATIN SMALL LETTER N WITH DESCENDER
+0A792	LATIN CAPITAL LETTER C WITH BAR
+0A793	LATIN SMALL LETTER C WITH BAR
+0A794	LATIN SMALL LETTER C WITH PALATAL HOOK
+0A795	LATIN SMALL LETTER H WITH PALATAL HOOK
+0A796	LATIN CAPITAL LETTER B WITH FLOURISH
+0A797	LATIN SMALL LETTER B WITH FLOURISH
+0A798	LATIN CAPITAL LETTER F WITH STROKE
+0A799	LATIN SMALL LETTER F WITH STROKE
+0A79A	LATIN CAPITAL LETTER VOLAPUK AE
+0A79B	LATIN SMALL LETTER VOLAPUK AE
+0A79C	LATIN CAPITAL LETTER VOLAPUK OE
+0A79D	LATIN SMALL LETTER VOLAPUK OE
+0A79E	LATIN CAPITAL LETTER VOLAPUK UE
+0A79F	LATIN SMALL LETTER VOLAPUK UE
+0A7A0	LATIN CAPITAL LETTER G WITH OBLIQUE STROKE
+0A7A1	LATIN SMALL LETTER G WITH OBLIQUE STROKE
+0A7A2	LATIN CAPITAL LETTER K WITH OBLIQUE STROKE
+0A7A3	LATIN SMALL LETTER K WITH OBLIQUE STROKE
+0A7A4	LATIN CAPITAL LETTER N WITH OBLIQUE STROKE
+0A7A5	LATIN SMALL LETTER N WITH OBLIQUE STROKE
+0A7A6	LATIN CAPITAL LETTER R WITH OBLIQUE STROKE
+0A7A7	LATIN SMALL LETTER R WITH OBLIQUE STROKE
+0A7A8	LATIN CAPITAL LETTER S WITH OBLIQUE STROKE
+0A7A9	LATIN SMALL LETTER S WITH OBLIQUE STROKE
+0A7AA	LATIN CAPITAL LETTER H WITH HOOK
+0A7AB	LATIN CAPITAL LETTER REVERSED OPEN E
+0A7AC	LATIN CAPITAL LETTER SCRIPT G
+0A7AD	LATIN CAPITAL LETTER L WITH BELT
+0A7AE	LATIN CAPITAL LETTER SMALL CAPITAL I
+0A7B0	LATIN CAPITAL LETTER TURNED K
+0A7B1	LATIN CAPITAL LETTER TURNED T
+0A7B2	LATIN CAPITAL LETTER J WITH CROSSED-TAIL
+0A7B3	LATIN CAPITAL LETTER CHI
+0A7B4	LATIN CAPITAL LETTER BETA
+0A7B5	LATIN SMALL LETTER BETA
+0A7B6	LATIN CAPITAL LETTER OMEGA
+0A7B7	LATIN SMALL LETTER OMEGA
+0A7F7	LATIN EPIGRAPHIC LETTER SIDEWAYS I
+0A7F8	MODIFIER LETTER CAPITAL H WITH STROKE
+0A7F9	MODIFIER LETTER SMALL LIGATURE OE
+0A7FA	LATIN LETTER SMALL CAPITAL TURNED M
+0A7FB	LATIN EPIGRAPHIC LETTER REVERSED F
+0A7FC	LATIN EPIGRAPHIC LETTER REVERSED P
+0A7FD	LATIN EPIGRAPHIC LETTER INVERTED M
+0A7FE	LATIN EPIGRAPHIC LETTER I LONGA
+0A7FF	LATIN EPIGRAPHIC LETTER ARCHAIC M
+0A800	SYLOTI NAGRI LETTER A
+0A801	SYLOTI NAGRI LETTER I
+0A802	SYLOTI NAGRI SIGN DVISVARA
+0A803	SYLOTI NAGRI LETTER U
+0A804	SYLOTI NAGRI LETTER E
+0A805	SYLOTI NAGRI LETTER O
+0A806	SYLOTI NAGRI SIGN HASANTA
+0A807	SYLOTI NAGRI LETTER KO
+0A808	SYLOTI NAGRI LETTER KHO
+0A809	SYLOTI NAGRI LETTER GO
+0A80A	SYLOTI NAGRI LETTER GHO
+0A80B	SYLOTI NAGRI SIGN ANUSVARA
+0A80C	SYLOTI NAGRI LETTER CO
+0A80D	SYLOTI NAGRI LETTER CHO
+0A80E	SYLOTI NAGRI LETTER JO
+0A80F	SYLOTI NAGRI LETTER JHO
+0A810	SYLOTI NAGRI LETTER TTO
+0A811	SYLOTI NAGRI LETTER TTHO
+0A812	SYLOTI NAGRI LETTER DDO
+0A813	SYLOTI NAGRI LETTER DDHO
+0A814	SYLOTI NAGRI LETTER TO
+0A815	SYLOTI NAGRI LETTER THO
+0A816	SYLOTI NAGRI LETTER DO
+0A817	SYLOTI NAGRI LETTER DHO
+0A818	SYLOTI NAGRI LETTER NO
+0A819	SYLOTI NAGRI LETTER PO
+0A81A	SYLOTI NAGRI LETTER PHO
+0A81B	SYLOTI NAGRI LETTER BO
+0A81C	SYLOTI NAGRI LETTER BHO
+0A81D	SYLOTI NAGRI LETTER MO
+0A81E	SYLOTI NAGRI LETTER RO
+0A81F	SYLOTI NAGRI LETTER LO
+0A820	SYLOTI NAGRI LETTER RRO
+0A821	SYLOTI NAGRI LETTER SO
+0A822	SYLOTI NAGRI LETTER HO
+0A823	SYLOTI NAGRI VOWEL SIGN A
+0A824	SYLOTI NAGRI VOWEL SIGN I
+0A825	SYLOTI NAGRI VOWEL SIGN U
+0A826	SYLOTI NAGRI VOWEL SIGN E
+0A827	SYLOTI NAGRI VOWEL SIGN OO
+0A828	SYLOTI NAGRI POETRY MARK-1
+0A829	SYLOTI NAGRI POETRY MARK-2
+0A82A	SYLOTI NAGRI POETRY MARK-3
+0A82B	SYLOTI NAGRI POETRY MARK-4
+0A830	NORTH INDIC FRACTION ONE QUARTER
+0A831	NORTH INDIC FRACTION ONE HALF
+0A832	NORTH INDIC FRACTION THREE QUARTERS
+0A833	NORTH INDIC FRACTION ONE SIXTEENTH
+0A834	NORTH INDIC FRACTION ONE EIGHTH
+0A835	NORTH INDIC FRACTION THREE SIXTEENTHS
+0A836	NORTH INDIC QUARTER MARK
+0A837	NORTH INDIC PLACEHOLDER MARK
+0A838	NORTH INDIC RUPEE MARK
+0A839	NORTH INDIC QUANTITY MARK
+0A840	PHAGS-PA LETTER KA
+0A841	PHAGS-PA LETTER KHA
+0A842	PHAGS-PA LETTER GA
+0A843	PHAGS-PA LETTER NGA
+0A844	PHAGS-PA LETTER CA
+0A845	PHAGS-PA LETTER CHA
+0A846	PHAGS-PA LETTER JA
+0A847	PHAGS-PA LETTER NYA
+0A848	PHAGS-PA LETTER TA
+0A849	PHAGS-PA LETTER THA
+0A84A	PHAGS-PA LETTER DA
+0A84B	PHAGS-PA LETTER NA
+0A84C	PHAGS-PA LETTER PA
+0A84D	PHAGS-PA LETTER PHA
+0A84E	PHAGS-PA LETTER BA
+0A84F	PHAGS-PA LETTER MA
+0A850	PHAGS-PA LETTER TSA
+0A851	PHAGS-PA LETTER TSHA
+0A852	PHAGS-PA LETTER DZA
+0A853	PHAGS-PA LETTER WA
+0A854	PHAGS-PA LETTER ZHA
+0A855	PHAGS-PA LETTER ZA
+0A856	PHAGS-PA LETTER SMALL A
+0A857	PHAGS-PA LETTER YA
+0A858	PHAGS-PA LETTER RA
+0A859	PHAGS-PA LETTER LA
+0A85A	PHAGS-PA LETTER SHA
+0A85B	PHAGS-PA LETTER SA
+0A85C	PHAGS-PA LETTER HA
+0A85D	PHAGS-PA LETTER A
+0A85E	PHAGS-PA LETTER I
+0A85F	PHAGS-PA LETTER U
+0A860	PHAGS-PA LETTER E
+0A861	PHAGS-PA LETTER O
+0A862	PHAGS-PA LETTER QA
+0A863	PHAGS-PA LETTER XA
+0A864	PHAGS-PA LETTER FA
+0A865	PHAGS-PA LETTER GGA
+0A866	PHAGS-PA LETTER EE
+0A867	PHAGS-PA SUBJOINED LETTER WA
+0A868	PHAGS-PA SUBJOINED LETTER YA
+0A869	PHAGS-PA LETTER TTA
+0A86A	PHAGS-PA LETTER TTHA
+0A86B	PHAGS-PA LETTER DDA
+0A86C	PHAGS-PA LETTER NNA
+0A86D	PHAGS-PA LETTER ALTERNATE YA
+0A86E	PHAGS-PA LETTER VOICELESS SHA
+0A86F	PHAGS-PA LETTER VOICED HA
+0A870	PHAGS-PA LETTER ASPIRATED FA
+0A871	PHAGS-PA SUBJOINED LETTER RA
+0A872	PHAGS-PA SUPERFIXED LETTER RA
+0A873	PHAGS-PA LETTER CANDRABINDU
+0A874	PHAGS-PA SINGLE HEAD MARK
+0A875	PHAGS-PA DOUBLE HEAD MARK
+0A876	PHAGS-PA MARK SHAD
+0A877	PHAGS-PA MARK DOUBLE SHAD
+0A880	SAURASHTRA SIGN ANUSVARA
+0A881	SAURASHTRA SIGN VISARGA
+0A882	SAURASHTRA LETTER A
+0A883	SAURASHTRA LETTER AA
+0A884	SAURASHTRA LETTER I
+0A885	SAURASHTRA LETTER II
+0A886	SAURASHTRA LETTER U
+0A887	SAURASHTRA LETTER UU
+0A888	SAURASHTRA LETTER VOCALIC R
+0A889	SAURASHTRA LETTER VOCALIC RR
+0A88A	SAURASHTRA LETTER VOCALIC L
+0A88B	SAURASHTRA LETTER VOCALIC LL
+0A88C	SAURASHTRA LETTER E
+0A88D	SAURASHTRA LETTER EE
+0A88E	SAURASHTRA LETTER AI
+0A88F	SAURASHTRA LETTER O
+0A890	SAURASHTRA LETTER OO
+0A891	SAURASHTRA LETTER AU
+0A892	SAURASHTRA LETTER KA
+0A893	SAURASHTRA LETTER KHA
+0A894	SAURASHTRA LETTER GA
+0A895	SAURASHTRA LETTER GHA
+0A896	SAURASHTRA LETTER NGA
+0A897	SAURASHTRA LETTER CA
+0A898	SAURASHTRA LETTER CHA
+0A899	SAURASHTRA LETTER JA
+0A89A	SAURASHTRA LETTER JHA
+0A89B	SAURASHTRA LETTER NYA
+0A89C	SAURASHTRA LETTER TTA
+0A89D	SAURASHTRA LETTER TTHA
+0A89E	SAURASHTRA LETTER DDA
+0A89F	SAURASHTRA LETTER DDHA
+0A8A0	SAURASHTRA LETTER NNA
+0A8A1	SAURASHTRA LETTER TA
+0A8A2	SAURASHTRA LETTER THA
+0A8A3	SAURASHTRA LETTER DA
+0A8A4	SAURASHTRA LETTER DHA
+0A8A5	SAURASHTRA LETTER NA
+0A8A6	SAURASHTRA LETTER PA
+0A8A7	SAURASHTRA LETTER PHA
+0A8A8	SAURASHTRA LETTER BA
+0A8A9	SAURASHTRA LETTER BHA
+0A8AA	SAURASHTRA LETTER MA
+0A8AB	SAURASHTRA LETTER YA
+0A8AC	SAURASHTRA LETTER RA
+0A8AD	SAURASHTRA LETTER LA
+0A8AE	SAURASHTRA LETTER VA
+0A8AF	SAURASHTRA LETTER SHA
+0A8B0	SAURASHTRA LETTER SSA
+0A8B1	SAURASHTRA LETTER SA
+0A8B2	SAURASHTRA LETTER HA
+0A8B3	SAURASHTRA LETTER LLA
+0A8B4	SAURASHTRA CONSONANT SIGN HAARU
+0A8B5	SAURASHTRA VOWEL SIGN AA
+0A8B6	SAURASHTRA VOWEL SIGN I
+0A8B7	SAURASHTRA VOWEL SIGN II
+0A8B8	SAURASHTRA VOWEL SIGN U
+0A8B9	SAURASHTRA VOWEL SIGN UU
+0A8BA	SAURASHTRA VOWEL SIGN VOCALIC R
+0A8BB	SAURASHTRA VOWEL SIGN VOCALIC RR
+0A8BC	SAURASHTRA VOWEL SIGN VOCALIC L
+0A8BD	SAURASHTRA VOWEL SIGN VOCALIC LL
+0A8BE	SAURASHTRA VOWEL SIGN E
+0A8BF	SAURASHTRA VOWEL SIGN EE
+0A8C0	SAURASHTRA VOWEL SIGN AI
+0A8C1	SAURASHTRA VOWEL SIGN O
+0A8C2	SAURASHTRA VOWEL SIGN OO
+0A8C3	SAURASHTRA VOWEL SIGN AU
+0A8C4	SAURASHTRA SIGN VIRAMA
+0A8C5	SAURASHTRA SIGN CANDRABINDU
+0A8CE	SAURASHTRA DANDA
+0A8CF	SAURASHTRA DOUBLE DANDA
+0A8D0	SAURASHTRA DIGIT ZERO
+0A8D1	SAURASHTRA DIGIT ONE
+0A8D2	SAURASHTRA DIGIT TWO
+0A8D3	SAURASHTRA DIGIT THREE
+0A8D4	SAURASHTRA DIGIT FOUR
+0A8D5	SAURASHTRA DIGIT FIVE
+0A8D6	SAURASHTRA DIGIT SIX
+0A8D7	SAURASHTRA DIGIT SEVEN
+0A8D8	SAURASHTRA DIGIT EIGHT
+0A8D9	SAURASHTRA DIGIT NINE
+0A8E0	COMBINING DEVANAGARI DIGIT ZERO
+0A8E1	COMBINING DEVANAGARI DIGIT ONE
+0A8E2	COMBINING DEVANAGARI DIGIT TWO
+0A8E3	COMBINING DEVANAGARI DIGIT THREE
+0A8E4	COMBINING DEVANAGARI DIGIT FOUR
+0A8E5	COMBINING DEVANAGARI DIGIT FIVE
+0A8E6	COMBINING DEVANAGARI DIGIT SIX
+0A8E7	COMBINING DEVANAGARI DIGIT SEVEN
+0A8E8	COMBINING DEVANAGARI DIGIT EIGHT
+0A8E9	COMBINING DEVANAGARI DIGIT NINE
+0A8EA	COMBINING DEVANAGARI LETTER A
+0A8EB	COMBINING DEVANAGARI LETTER U
+0A8EC	COMBINING DEVANAGARI LETTER KA
+0A8ED	COMBINING DEVANAGARI LETTER NA
+0A8EE	COMBINING DEVANAGARI LETTER PA
+0A8EF	COMBINING DEVANAGARI LETTER RA
+0A8F0	COMBINING DEVANAGARI LETTER VI
+0A8F1	COMBINING DEVANAGARI SIGN AVAGRAHA
+0A8F2	DEVANAGARI SIGN SPACING CANDRABINDU
+0A8F3	DEVANAGARI SIGN CANDRABINDU VIRAMA
+0A8F4	DEVANAGARI SIGN DOUBLE CANDRABINDU VIRAMA
+0A8F5	DEVANAGARI SIGN CANDRABINDU TWO
+0A8F6	DEVANAGARI SIGN CANDRABINDU THREE
+0A8F7	DEVANAGARI SIGN CANDRABINDU AVAGRAHA
+0A8F8	DEVANAGARI SIGN PUSHPIKA
+0A8F9	DEVANAGARI GAP FILLER
+0A8FA	DEVANAGARI CARET
+0A8FB	DEVANAGARI HEADSTROKE
+0A8FC	DEVANAGARI SIGN SIDDHAM
+0A8FD	DEVANAGARI JAIN OM
+0A900	KAYAH LI DIGIT ZERO
+0A901	KAYAH LI DIGIT ONE
+0A902	KAYAH LI DIGIT TWO
+0A903	KAYAH LI DIGIT THREE
+0A904	KAYAH LI DIGIT FOUR
+0A905	KAYAH LI DIGIT FIVE
+0A906	KAYAH LI DIGIT SIX
+0A907	KAYAH LI DIGIT SEVEN
+0A908	KAYAH LI DIGIT EIGHT
+0A909	KAYAH LI DIGIT NINE
+0A90A	KAYAH LI LETTER KA
+0A90B	KAYAH LI LETTER KHA
+0A90C	KAYAH LI LETTER GA
+0A90D	KAYAH LI LETTER NGA
+0A90E	KAYAH LI LETTER SA
+0A90F	KAYAH LI LETTER SHA
+0A910	KAYAH LI LETTER ZA
+0A911	KAYAH LI LETTER NYA
+0A912	KAYAH LI LETTER TA
+0A913	KAYAH LI LETTER HTA
+0A914	KAYAH LI LETTER NA
+0A915	KAYAH LI LETTER PA
+0A916	KAYAH LI LETTER PHA
+0A917	KAYAH LI LETTER MA
+0A918	KAYAH LI LETTER DA
+0A919	KAYAH LI LETTER BA
+0A91A	KAYAH LI LETTER RA
+0A91B	KAYAH LI LETTER YA
+0A91C	KAYAH LI LETTER LA
+0A91D	KAYAH LI LETTER WA
+0A91E	KAYAH LI LETTER THA
+0A91F	KAYAH LI LETTER HA
+0A920	KAYAH LI LETTER VA
+0A921	KAYAH LI LETTER CA
+0A922	KAYAH LI LETTER A
+0A923	KAYAH LI LETTER OE
+0A924	KAYAH LI LETTER I
+0A925	KAYAH LI LETTER OO
+0A926	KAYAH LI VOWEL UE
+0A927	KAYAH LI VOWEL E
+0A928	KAYAH LI VOWEL U
+0A929	KAYAH LI VOWEL EE
+0A92A	KAYAH LI VOWEL O
+0A92B	KAYAH LI TONE PLOPHU
+0A92C	KAYAH LI TONE CALYA
+0A92D	KAYAH LI TONE CALYA PLOPHU
+0A92E	KAYAH LI SIGN CWI
+0A92F	KAYAH LI SIGN SHYA
+0A930	REJANG LETTER KA
+0A931	REJANG LETTER GA
+0A932	REJANG LETTER NGA
+0A933	REJANG LETTER TA
+0A934	REJANG LETTER DA
+0A935	REJANG LETTER NA
+0A936	REJANG LETTER PA
+0A937	REJANG LETTER BA
+0A938	REJANG LETTER MA
+0A939	REJANG LETTER CA
+0A93A	REJANG LETTER JA
+0A93B	REJANG LETTER NYA
+0A93C	REJANG LETTER SA
+0A93D	REJANG LETTER RA
+0A93E	REJANG LETTER LA
+0A93F	REJANG LETTER YA
+0A940	REJANG LETTER WA
+0A941	REJANG LETTER HA
+0A942	REJANG LETTER MBA
+0A943	REJANG LETTER NGGA
+0A944	REJANG LETTER NDA
+0A945	REJANG LETTER NYJA
+0A946	REJANG LETTER A
+0A947	REJANG VOWEL SIGN I
+0A948	REJANG VOWEL SIGN U
+0A949	REJANG VOWEL SIGN E
+0A94A	REJANG VOWEL SIGN AI
+0A94B	REJANG VOWEL SIGN O
+0A94C	REJANG VOWEL SIGN AU
+0A94D	REJANG VOWEL SIGN EU
+0A94E	REJANG VOWEL SIGN EA
+0A94F	REJANG CONSONANT SIGN NG
+0A950	REJANG CONSONANT SIGN N
+0A951	REJANG CONSONANT SIGN R
+0A952	REJANG CONSONANT SIGN H
+0A953	REJANG VIRAMA
+0A95F	REJANG SECTION MARK
+0A960	HANGUL CHOSEONG TIKEUT-MIEUM
+0A961	HANGUL CHOSEONG TIKEUT-PIEUP
+0A962	HANGUL CHOSEONG TIKEUT-SIOS
+0A963	HANGUL CHOSEONG TIKEUT-CIEUC
+0A964	HANGUL CHOSEONG RIEUL-KIYEOK
+0A965	HANGUL CHOSEONG RIEUL-SSANGKIYEOK
+0A966	HANGUL CHOSEONG RIEUL-TIKEUT
+0A967	HANGUL CHOSEONG RIEUL-SSANGTIKEUT
+0A968	HANGUL CHOSEONG RIEUL-MIEUM
+0A969	HANGUL CHOSEONG RIEUL-PIEUP
+0A96A	HANGUL CHOSEONG RIEUL-SSANGPIEUP
+0A96B	HANGUL CHOSEONG RIEUL-KAPYEOUNPIEUP
+0A96C	HANGUL CHOSEONG RIEUL-SIOS
+0A96D	HANGUL CHOSEONG RIEUL-CIEUC
+0A96E	HANGUL CHOSEONG RIEUL-KHIEUKH
+0A96F	HANGUL CHOSEONG MIEUM-KIYEOK
+0A970	HANGUL CHOSEONG MIEUM-TIKEUT
+0A971	HANGUL CHOSEONG MIEUM-SIOS
+0A972	HANGUL CHOSEONG PIEUP-SIOS-THIEUTH
+0A973	HANGUL CHOSEONG PIEUP-KHIEUKH
+0A974	HANGUL CHOSEONG PIEUP-HIEUH
+0A975	HANGUL CHOSEONG SSANGSIOS-PIEUP
+0A976	HANGUL CHOSEONG IEUNG-RIEUL
+0A977	HANGUL CHOSEONG IEUNG-HIEUH
+0A978	HANGUL CHOSEONG SSANGCIEUC-HIEUH
+0A979	HANGUL CHOSEONG SSANGTHIEUTH
+0A97A	HANGUL CHOSEONG PHIEUPH-HIEUH
+0A97B	HANGUL CHOSEONG HIEUH-SIOS
+0A97C	HANGUL CHOSEONG SSANGYEORINHIEUH
+0A980	JAVANESE SIGN PANYANGGA
+0A981	JAVANESE SIGN CECAK
+0A982	JAVANESE SIGN LAYAR
+0A983	JAVANESE SIGN WIGNYAN
+0A984	JAVANESE LETTER A
+0A985	JAVANESE LETTER I KAWI
+0A986	JAVANESE LETTER I
+0A987	JAVANESE LETTER II
+0A988	JAVANESE LETTER U
+0A989	JAVANESE LETTER PA CEREK
+0A98A	JAVANESE LETTER NGA LELET
+0A98B	JAVANESE LETTER NGA LELET RASWADI
+0A98C	JAVANESE LETTER E
+0A98D	JAVANESE LETTER AI
+0A98E	JAVANESE LETTER O
+0A98F	JAVANESE LETTER KA
+0A990	JAVANESE LETTER KA SASAK
+0A991	JAVANESE LETTER KA MURDA
+0A992	JAVANESE LETTER GA
+0A993	JAVANESE LETTER GA MURDA
+0A994	JAVANESE LETTER NGA
+0A995	JAVANESE LETTER CA
+0A996	JAVANESE LETTER CA MURDA
+0A997	JAVANESE LETTER JA
+0A998	JAVANESE LETTER NYA MURDA
+0A999	JAVANESE LETTER JA MAHAPRANA
+0A99A	JAVANESE LETTER NYA
+0A99B	JAVANESE LETTER TTA
+0A99C	JAVANESE LETTER TTA MAHAPRANA
+0A99D	JAVANESE LETTER DDA
+0A99E	JAVANESE LETTER DDA MAHAPRANA
+0A99F	JAVANESE LETTER NA MURDA
+0A9A0	JAVANESE LETTER TA
+0A9A1	JAVANESE LETTER TA MURDA
+0A9A2	JAVANESE LETTER DA
+0A9A3	JAVANESE LETTER DA MAHAPRANA
+0A9A4	JAVANESE LETTER NA
+0A9A5	JAVANESE LETTER PA
+0A9A6	JAVANESE LETTER PA MURDA
+0A9A7	JAVANESE LETTER BA
+0A9A8	JAVANESE LETTER BA MURDA
+0A9A9	JAVANESE LETTER MA
+0A9AA	JAVANESE LETTER YA
+0A9AB	JAVANESE LETTER RA
+0A9AC	JAVANESE LETTER RA AGUNG
+0A9AD	JAVANESE LETTER LA
+0A9AE	JAVANESE LETTER WA
+0A9AF	JAVANESE LETTER SA MURDA
+0A9B0	JAVANESE LETTER SA MAHAPRANA
+0A9B1	JAVANESE LETTER SA
+0A9B2	JAVANESE LETTER HA
+0A9B3	JAVANESE SIGN CECAK TELU
+0A9B4	JAVANESE VOWEL SIGN TARUNG
+0A9B5	JAVANESE VOWEL SIGN TOLONG
+0A9B6	JAVANESE VOWEL SIGN WULU
+0A9B7	JAVANESE VOWEL SIGN WULU MELIK
+0A9B8	JAVANESE VOWEL SIGN SUKU
+0A9B9	JAVANESE VOWEL SIGN SUKU MENDUT
+0A9BA	JAVANESE VOWEL SIGN TALING
+0A9BB	JAVANESE VOWEL SIGN DIRGA MURE
+0A9BC	JAVANESE VOWEL SIGN PEPET
+0A9BD	JAVANESE CONSONANT SIGN KERET
+0A9BE	JAVANESE CONSONANT SIGN PENGKAL
+0A9BF	JAVANESE CONSONANT SIGN CAKRA
+0A9C0	JAVANESE PANGKON
+0A9C1	JAVANESE LEFT RERENGGAN
+0A9C2	JAVANESE RIGHT RERENGGAN
+0A9C3	JAVANESE PADA ANDAP
+0A9C4	JAVANESE PADA MADYA
+0A9C5	JAVANESE PADA LUHUR
+0A9C6	JAVANESE PADA WINDU
+0A9C7	JAVANESE PADA PANGKAT
+0A9C8	JAVANESE PADA LINGSA
+0A9C9	JAVANESE PADA LUNGSI
+0A9CA	JAVANESE PADA ADEG
+0A9CB	JAVANESE PADA ADEG ADEG
+0A9CC	JAVANESE PADA PISELEH
+0A9CD	JAVANESE TURNED PADA PISELEH
+0A9CF	JAVANESE PANGRANGKEP
+0A9D0	JAVANESE DIGIT ZERO
+0A9D1	JAVANESE DIGIT ONE
+0A9D2	JAVANESE DIGIT TWO
+0A9D3	JAVANESE DIGIT THREE
+0A9D4	JAVANESE DIGIT FOUR
+0A9D5	JAVANESE DIGIT FIVE
+0A9D6	JAVANESE DIGIT SIX
+0A9D7	JAVANESE DIGIT SEVEN
+0A9D8	JAVANESE DIGIT EIGHT
+0A9D9	JAVANESE DIGIT NINE
+0A9DE	JAVANESE PADA TIRTA TUMETES
+0A9DF	JAVANESE PADA ISEN-ISEN
+0A9E0	MYANMAR LETTER SHAN GHA
+0A9E1	MYANMAR LETTER SHAN CHA
+0A9E2	MYANMAR LETTER SHAN JHA
+0A9E3	MYANMAR LETTER SHAN NNA
+0A9E4	MYANMAR LETTER SHAN BHA
+0A9E5	MYANMAR SIGN SHAN SAW
+0A9E6	MYANMAR MODIFIER LETTER SHAN REDUPLICATION
+0A9E7	MYANMAR LETTER TAI LAING NYA
+0A9E8	MYANMAR LETTER TAI LAING FA
+0A9E9	MYANMAR LETTER TAI LAING GA
+0A9EA	MYANMAR LETTER TAI LAING GHA
+0A9EB	MYANMAR LETTER TAI LAING JA
+0A9EC	MYANMAR LETTER TAI LAING JHA
+0A9ED	MYANMAR LETTER TAI LAING DDA
+0A9EE	MYANMAR LETTER TAI LAING DDHA
+0A9EF	MYANMAR LETTER TAI LAING NNA
+0A9F0	MYANMAR TAI LAING DIGIT ZERO
+0A9F1	MYANMAR TAI LAING DIGIT ONE
+0A9F2	MYANMAR TAI LAING DIGIT TWO
+0A9F3	MYANMAR TAI LAING DIGIT THREE
+0A9F4	MYANMAR TAI LAING DIGIT FOUR
+0A9F5	MYANMAR TAI LAING DIGIT FIVE
+0A9F6	MYANMAR TAI LAING DIGIT SIX
+0A9F7	MYANMAR TAI LAING DIGIT SEVEN
+0A9F8	MYANMAR TAI LAING DIGIT EIGHT
+0A9F9	MYANMAR TAI LAING DIGIT NINE
+0A9FA	MYANMAR LETTER TAI LAING LLA
+0A9FB	MYANMAR LETTER TAI LAING DA
+0A9FC	MYANMAR LETTER TAI LAING DHA
+0A9FD	MYANMAR LETTER TAI LAING BA
+0A9FE	MYANMAR LETTER TAI LAING BHA
+0AA00	CHAM LETTER A
+0AA01	CHAM LETTER I
+0AA02	CHAM LETTER U
+0AA03	CHAM LETTER E
+0AA04	CHAM LETTER AI
+0AA05	CHAM LETTER O
+0AA06	CHAM LETTER KA
+0AA07	CHAM LETTER KHA
+0AA08	CHAM LETTER GA
+0AA09	CHAM LETTER GHA
+0AA0A	CHAM LETTER NGUE
+0AA0B	CHAM LETTER NGA
+0AA0C	CHAM LETTER CHA
+0AA0D	CHAM LETTER CHHA
+0AA0E	CHAM LETTER JA
+0AA0F	CHAM LETTER JHA
+0AA10	CHAM LETTER NHUE
+0AA11	CHAM LETTER NHA
+0AA12	CHAM LETTER NHJA
+0AA13	CHAM LETTER TA
+0AA14	CHAM LETTER THA
+0AA15	CHAM LETTER DA
+0AA16	CHAM LETTER DHA
+0AA17	CHAM LETTER NUE
+0AA18	CHAM LETTER NA
+0AA19	CHAM LETTER DDA
+0AA1A	CHAM LETTER PA
+0AA1B	CHAM LETTER PPA
+0AA1C	CHAM LETTER PHA
+0AA1D	CHAM LETTER BA
+0AA1E	CHAM LETTER BHA
+0AA1F	CHAM LETTER MUE
+0AA20	CHAM LETTER MA
+0AA21	CHAM LETTER BBA
+0AA22	CHAM LETTER YA
+0AA23	CHAM LETTER RA
+0AA24	CHAM LETTER LA
+0AA25	CHAM LETTER VA
+0AA26	CHAM LETTER SSA
+0AA27	CHAM LETTER SA
+0AA28	CHAM LETTER HA
+0AA29	CHAM VOWEL SIGN AA
+0AA2A	CHAM VOWEL SIGN I
+0AA2B	CHAM VOWEL SIGN II
+0AA2C	CHAM VOWEL SIGN EI
+0AA2D	CHAM VOWEL SIGN U
+0AA2E	CHAM VOWEL SIGN OE
+0AA2F	CHAM VOWEL SIGN O
+0AA30	CHAM VOWEL SIGN AI
+0AA31	CHAM VOWEL SIGN AU
+0AA32	CHAM VOWEL SIGN UE
+0AA33	CHAM CONSONANT SIGN YA
+0AA34	CHAM CONSONANT SIGN RA
+0AA35	CHAM CONSONANT SIGN LA
+0AA36	CHAM CONSONANT SIGN WA
+0AA40	CHAM LETTER FINAL K
+0AA41	CHAM LETTER FINAL G
+0AA42	CHAM LETTER FINAL NG
+0AA43	CHAM CONSONANT SIGN FINAL NG
+0AA44	CHAM LETTER FINAL CH
+0AA45	CHAM LETTER FINAL T
+0AA46	CHAM LETTER FINAL N
+0AA47	CHAM LETTER FINAL P
+0AA48	CHAM LETTER FINAL Y
+0AA49	CHAM LETTER FINAL R
+0AA4A	CHAM LETTER FINAL L
+0AA4B	CHAM LETTER FINAL SS
+0AA4C	CHAM CONSONANT SIGN FINAL M
+0AA4D	CHAM CONSONANT SIGN FINAL H
+0AA50	CHAM DIGIT ZERO
+0AA51	CHAM DIGIT ONE
+0AA52	CHAM DIGIT TWO
+0AA53	CHAM DIGIT THREE
+0AA54	CHAM DIGIT FOUR
+0AA55	CHAM DIGIT FIVE
+0AA56	CHAM DIGIT SIX
+0AA57	CHAM DIGIT SEVEN
+0AA58	CHAM DIGIT EIGHT
+0AA59	CHAM DIGIT NINE
+0AA5C	CHAM PUNCTUATION SPIRAL
+0AA5D	CHAM PUNCTUATION DANDA
+0AA5E	CHAM PUNCTUATION DOUBLE DANDA
+0AA5F	CHAM PUNCTUATION TRIPLE DANDA
+0AA60	MYANMAR LETTER KHAMTI GA
+0AA61	MYANMAR LETTER KHAMTI CA
+0AA62	MYANMAR LETTER KHAMTI CHA
+0AA63	MYANMAR LETTER KHAMTI JA
+0AA64	MYANMAR LETTER KHAMTI JHA
+0AA65	MYANMAR LETTER KHAMTI NYA
+0AA66	MYANMAR LETTER KHAMTI TTA
+0AA67	MYANMAR LETTER KHAMTI TTHA
+0AA68	MYANMAR LETTER KHAMTI DDA
+0AA69	MYANMAR LETTER KHAMTI DDHA
+0AA6A	MYANMAR LETTER KHAMTI DHA
+0AA6B	MYANMAR LETTER KHAMTI NA
+0AA6C	MYANMAR LETTER KHAMTI SA
+0AA6D	MYANMAR LETTER KHAMTI HA
+0AA6E	MYANMAR LETTER KHAMTI HHA
+0AA6F	MYANMAR LETTER KHAMTI FA
+0AA70	MYANMAR MODIFIER LETTER KHAMTI REDUPLICATION
+0AA71	MYANMAR LETTER KHAMTI XA
+0AA72	MYANMAR LETTER KHAMTI ZA
+0AA73	MYANMAR LETTER KHAMTI RA
+0AA74	MYANMAR LOGOGRAM KHAMTI OAY
+0AA75	MYANMAR LOGOGRAM KHAMTI QN
+0AA76	MYANMAR LOGOGRAM KHAMTI HM
+0AA77	MYANMAR SYMBOL AITON EXCLAMATION
+0AA78	MYANMAR SYMBOL AITON ONE
+0AA79	MYANMAR SYMBOL AITON TWO
+0AA7A	MYANMAR LETTER AITON RA
+0AA7B	MYANMAR SIGN PAO KAREN TONE
+0AA7C	MYANMAR SIGN TAI LAING TONE-2
+0AA7D	MYANMAR SIGN TAI LAING TONE-5
+0AA7E	MYANMAR LETTER SHWE PALAUNG CHA
+0AA7F	MYANMAR LETTER SHWE PALAUNG SHA
+0AA80	TAI VIET LETTER LOW KO
+0AA81	TAI VIET LETTER HIGH KO
+0AA82	TAI VIET LETTER LOW KHO
+0AA83	TAI VIET LETTER HIGH KHO
+0AA84	TAI VIET LETTER LOW KHHO
+0AA85	TAI VIET LETTER HIGH KHHO
+0AA86	TAI VIET LETTER LOW GO
+0AA87	TAI VIET LETTER HIGH GO
+0AA88	TAI VIET LETTER LOW NGO
+0AA89	TAI VIET LETTER HIGH NGO
+0AA8A	TAI VIET LETTER LOW CO
+0AA8B	TAI VIET LETTER HIGH CO
+0AA8C	TAI VIET LETTER LOW CHO
+0AA8D	TAI VIET LETTER HIGH CHO
+0AA8E	TAI VIET LETTER LOW SO
+0AA8F	TAI VIET LETTER HIGH SO
+0AA90	TAI VIET LETTER LOW NYO
+0AA91	TAI VIET LETTER HIGH NYO
+0AA92	TAI VIET LETTER LOW DO
+0AA93	TAI VIET LETTER HIGH DO
+0AA94	TAI VIET LETTER LOW TO
+0AA95	TAI VIET LETTER HIGH TO
+0AA96	TAI VIET LETTER LOW THO
+0AA97	TAI VIET LETTER HIGH THO
+0AA98	TAI VIET LETTER LOW NO
+0AA99	TAI VIET LETTER HIGH NO
+0AA9A	TAI VIET LETTER LOW BO
+0AA9B	TAI VIET LETTER HIGH BO
+0AA9C	TAI VIET LETTER LOW PO
+0AA9D	TAI VIET LETTER HIGH PO
+0AA9E	TAI VIET LETTER LOW PHO
+0AA9F	TAI VIET LETTER HIGH PHO
+0AAA0	TAI VIET LETTER LOW FO
+0AAA1	TAI VIET LETTER HIGH FO
+0AAA2	TAI VIET LETTER LOW MO
+0AAA3	TAI VIET LETTER HIGH MO
+0AAA4	TAI VIET LETTER LOW YO
+0AAA5	TAI VIET LETTER HIGH YO
+0AAA6	TAI VIET LETTER LOW RO
+0AAA7	TAI VIET LETTER HIGH RO
+0AAA8	TAI VIET LETTER LOW LO
+0AAA9	TAI VIET LETTER HIGH LO
+0AAAA	TAI VIET LETTER LOW VO
+0AAAB	TAI VIET LETTER HIGH VO
+0AAAC	TAI VIET LETTER LOW HO
+0AAAD	TAI VIET LETTER HIGH HO
+0AAAE	TAI VIET LETTER LOW O
+0AAAF	TAI VIET LETTER HIGH O
+0AAB0	TAI VIET MAI KANG
+0AAB1	TAI VIET VOWEL AA
+0AAB2	TAI VIET VOWEL I
+0AAB3	TAI VIET VOWEL UE
+0AAB4	TAI VIET VOWEL U
+0AAB5	TAI VIET VOWEL E
+0AAB6	TAI VIET VOWEL O
+0AAB7	TAI VIET MAI KHIT
+0AAB8	TAI VIET VOWEL IA
+0AAB9	TAI VIET VOWEL UEA
+0AABA	TAI VIET VOWEL UA
+0AABB	TAI VIET VOWEL AUE
+0AABC	TAI VIET VOWEL AY
+0AABD	TAI VIET VOWEL AN
+0AABE	TAI VIET VOWEL AM
+0AABF	TAI VIET TONE MAI EK
+0AAC0	TAI VIET TONE MAI NUENG
+0AAC1	TAI VIET TONE MAI THO
+0AAC2	TAI VIET TONE MAI SONG
+0AADB	TAI VIET SYMBOL KON
+0AADC	TAI VIET SYMBOL NUENG
+0AADD	TAI VIET SYMBOL SAM
+0AADE	TAI VIET SYMBOL HO HOI
+0AADF	TAI VIET SYMBOL KOI KOI
+0AAE0	MEETEI MAYEK LETTER E
+0AAE1	MEETEI MAYEK LETTER O
+0AAE2	MEETEI MAYEK LETTER CHA
+0AAE3	MEETEI MAYEK LETTER NYA
+0AAE4	MEETEI MAYEK LETTER TTA
+0AAE5	MEETEI MAYEK LETTER TTHA
+0AAE6	MEETEI MAYEK LETTER DDA
+0AAE7	MEETEI MAYEK LETTER DDHA
+0AAE8	MEETEI MAYEK LETTER NNA
+0AAE9	MEETEI MAYEK LETTER SHA
+0AAEA	MEETEI MAYEK LETTER SSA
+0AAEB	MEETEI MAYEK VOWEL SIGN II
+0AAEC	MEETEI MAYEK VOWEL SIGN UU
+0AAED	MEETEI MAYEK VOWEL SIGN AAI
+0AAEE	MEETEI MAYEK VOWEL SIGN AU
+0AAEF	MEETEI MAYEK VOWEL SIGN AAU
+0AAF0	MEETEI MAYEK CHEIKHAN
+0AAF1	MEETEI MAYEK AHANG KHUDAM
+0AAF2	MEETEI MAYEK ANJI
+0AAF3	MEETEI MAYEK SYLLABLE REPETITION MARK
+0AAF4	MEETEI MAYEK WORD REPETITION MARK
+0AAF5	MEETEI MAYEK VOWEL SIGN VISARGA
+0AAF6	MEETEI MAYEK VIRAMA
+0AB01	ETHIOPIC SYLLABLE TTHU
+0AB02	ETHIOPIC SYLLABLE TTHI
+0AB03	ETHIOPIC SYLLABLE TTHAA
+0AB04	ETHIOPIC SYLLABLE TTHEE
+0AB05	ETHIOPIC SYLLABLE TTHE
+0AB06	ETHIOPIC SYLLABLE TTHO
+0AB09	ETHIOPIC SYLLABLE DDHU
+0AB0A	ETHIOPIC SYLLABLE DDHI
+0AB0B	ETHIOPIC SYLLABLE DDHAA
+0AB0C	ETHIOPIC SYLLABLE DDHEE
+0AB0D	ETHIOPIC SYLLABLE DDHE
+0AB0E	ETHIOPIC SYLLABLE DDHO
+0AB11	ETHIOPIC SYLLABLE DZU
+0AB12	ETHIOPIC SYLLABLE DZI
+0AB13	ETHIOPIC SYLLABLE DZAA
+0AB14	ETHIOPIC SYLLABLE DZEE
+0AB15	ETHIOPIC SYLLABLE DZE
+0AB16	ETHIOPIC SYLLABLE DZO
+0AB20	ETHIOPIC SYLLABLE CCHHA
+0AB21	ETHIOPIC SYLLABLE CCHHU
+0AB22	ETHIOPIC SYLLABLE CCHHI
+0AB23	ETHIOPIC SYLLABLE CCHHAA
+0AB24	ETHIOPIC SYLLABLE CCHHEE
+0AB25	ETHIOPIC SYLLABLE CCHHE
+0AB26	ETHIOPIC SYLLABLE CCHHO
+0AB28	ETHIOPIC SYLLABLE BBA
+0AB29	ETHIOPIC SYLLABLE BBU
+0AB2A	ETHIOPIC SYLLABLE BBI
+0AB2B	ETHIOPIC SYLLABLE BBAA
+0AB2C	ETHIOPIC SYLLABLE BBEE
+0AB2D	ETHIOPIC SYLLABLE BBE
+0AB2E	ETHIOPIC SYLLABLE BBO
+0AB30	LATIN SMALL LETTER BARRED ALPHA
+0AB31	LATIN SMALL LETTER A REVERSED-SCHWA
+0AB32	LATIN SMALL LETTER BLACKLETTER E
+0AB33	LATIN SMALL LETTER BARRED E
+0AB34	LATIN SMALL LETTER E WITH FLOURISH
+0AB35	LATIN SMALL LETTER LENIS F
+0AB36	LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL
+0AB37	LATIN SMALL LETTER L WITH INVERTED LAZY S
+0AB38	LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+0AB39	LATIN SMALL LETTER L WITH MIDDLE RING
+0AB3A	LATIN SMALL LETTER M WITH CROSSED-TAIL
+0AB3B	LATIN SMALL LETTER N WITH CROSSED-TAIL
+0AB3C	LATIN SMALL LETTER ENG WITH CROSSED-TAIL
+0AB3D	LATIN SMALL LETTER BLACKLETTER O
+0AB3E	LATIN SMALL LETTER BLACKLETTER O WITH STROKE
+0AB3F	LATIN SMALL LETTER OPEN O WITH STROKE
+0AB40	LATIN SMALL LETTER INVERTED OE
+0AB41	LATIN SMALL LETTER TURNED OE WITH STROKE
+0AB42	LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE
+0AB43	LATIN SMALL LETTER TURNED O OPEN-O
+0AB44	LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE
+0AB45	LATIN SMALL LETTER STIRRUP R
+0AB46	LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG
+0AB47	LATIN SMALL LETTER R WITHOUT HANDLE
+0AB48	LATIN SMALL LETTER DOUBLE R
+0AB49	LATIN SMALL LETTER R WITH CROSSED-TAIL
+0AB4A	LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL
+0AB4B	LATIN SMALL LETTER SCRIPT R
+0AB4C	LATIN SMALL LETTER SCRIPT R WITH RING
+0AB4D	LATIN SMALL LETTER BASELINE ESH
+0AB4E	LATIN SMALL LETTER U WITH SHORT RIGHT LEG
+0AB4F	LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG
+0AB50	LATIN SMALL LETTER UI
+0AB51	LATIN SMALL LETTER TURNED UI
+0AB52	LATIN SMALL LETTER U WITH LEFT HOOK
+0AB53	LATIN SMALL LETTER CHI
+0AB54	LATIN SMALL LETTER CHI WITH LOW RIGHT RING
+0AB55	LATIN SMALL LETTER CHI WITH LOW LEFT SERIF
+0AB56	LATIN SMALL LETTER X WITH LOW RIGHT RING
+0AB57	LATIN SMALL LETTER X WITH LONG LEFT LEG
+0AB58	LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING
+0AB59	LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF
+0AB5A	LATIN SMALL LETTER Y WITH SHORT RIGHT LEG
+0AB5B	MODIFIER BREVE WITH INVERTED BREVE
+0AB5C	MODIFIER LETTER SMALL HENG
+0AB5D	MODIFIER LETTER SMALL L WITH INVERTED LAZY S
+0AB5E	MODIFIER LETTER SMALL L WITH MIDDLE TILDE
+0AB5F	MODIFIER LETTER SMALL U WITH LEFT HOOK
+0AB60	LATIN SMALL LETTER SAKHA YAT
+0AB61	LATIN SMALL LETTER IOTIFIED E
+0AB62	LATIN SMALL LETTER OPEN OE
+0AB63	LATIN SMALL LETTER UO
+0AB64	LATIN SMALL LETTER INVERTED ALPHA
+0AB65	GREEK LETTER SMALL CAPITAL OMEGA
+0AB70	CHEROKEE SMALL LETTER A
+0AB71	CHEROKEE SMALL LETTER E
+0AB72	CHEROKEE SMALL LETTER I
+0AB73	CHEROKEE SMALL LETTER O
+0AB74	CHEROKEE SMALL LETTER U
+0AB75	CHEROKEE SMALL LETTER V
+0AB76	CHEROKEE SMALL LETTER GA
+0AB77	CHEROKEE SMALL LETTER KA
+0AB78	CHEROKEE SMALL LETTER GE
+0AB79	CHEROKEE SMALL LETTER GI
+0AB7A	CHEROKEE SMALL LETTER GO
+0AB7B	CHEROKEE SMALL LETTER GU
+0AB7C	CHEROKEE SMALL LETTER GV
+0AB7D	CHEROKEE SMALL LETTER HA
+0AB7E	CHEROKEE SMALL LETTER HE
+0AB7F	CHEROKEE SMALL LETTER HI
+0AB80	CHEROKEE SMALL LETTER HO
+0AB81	CHEROKEE SMALL LETTER HU
+0AB82	CHEROKEE SMALL LETTER HV
+0AB83	CHEROKEE SMALL LETTER LA
+0AB84	CHEROKEE SMALL LETTER LE
+0AB85	CHEROKEE SMALL LETTER LI
+0AB86	CHEROKEE SMALL LETTER LO
+0AB87	CHEROKEE SMALL LETTER LU
+0AB88	CHEROKEE SMALL LETTER LV
+0AB89	CHEROKEE SMALL LETTER MA
+0AB8A	CHEROKEE SMALL LETTER ME
+0AB8B	CHEROKEE SMALL LETTER MI
+0AB8C	CHEROKEE SMALL LETTER MO
+0AB8D	CHEROKEE SMALL LETTER MU
+0AB8E	CHEROKEE SMALL LETTER NA
+0AB8F	CHEROKEE SMALL LETTER HNA
+0AB90	CHEROKEE SMALL LETTER NAH
+0AB91	CHEROKEE SMALL LETTER NE
+0AB92	CHEROKEE SMALL LETTER NI
+0AB93	CHEROKEE SMALL LETTER NO
+0AB94	CHEROKEE SMALL LETTER NU
+0AB95	CHEROKEE SMALL LETTER NV
+0AB96	CHEROKEE SMALL LETTER QUA
+0AB97	CHEROKEE SMALL LETTER QUE
+0AB98	CHEROKEE SMALL LETTER QUI
+0AB99	CHEROKEE SMALL LETTER QUO
+0AB9A	CHEROKEE SMALL LETTER QUU
+0AB9B	CHEROKEE SMALL LETTER QUV
+0AB9C	CHEROKEE SMALL LETTER SA
+0AB9D	CHEROKEE SMALL LETTER S
+0AB9E	CHEROKEE SMALL LETTER SE
+0AB9F	CHEROKEE SMALL LETTER SI
+0ABA0	CHEROKEE SMALL LETTER SO
+0ABA1	CHEROKEE SMALL LETTER SU
+0ABA2	CHEROKEE SMALL LETTER SV
+0ABA3	CHEROKEE SMALL LETTER DA
+0ABA4	CHEROKEE SMALL LETTER TA
+0ABA5	CHEROKEE SMALL LETTER DE
+0ABA6	CHEROKEE SMALL LETTER TE
+0ABA7	CHEROKEE SMALL LETTER DI
+0ABA8	CHEROKEE SMALL LETTER TI
+0ABA9	CHEROKEE SMALL LETTER DO
+0ABAA	CHEROKEE SMALL LETTER DU
+0ABAB	CHEROKEE SMALL LETTER DV
+0ABAC	CHEROKEE SMALL LETTER DLA
+0ABAD	CHEROKEE SMALL LETTER TLA
+0ABAE	CHEROKEE SMALL LETTER TLE
+0ABAF	CHEROKEE SMALL LETTER TLI
+0ABB0	CHEROKEE SMALL LETTER TLO
+0ABB1	CHEROKEE SMALL LETTER TLU
+0ABB2	CHEROKEE SMALL LETTER TLV
+0ABB3	CHEROKEE SMALL LETTER TSA
+0ABB4	CHEROKEE SMALL LETTER TSE
+0ABB5	CHEROKEE SMALL LETTER TSI
+0ABB6	CHEROKEE SMALL LETTER TSO
+0ABB7	CHEROKEE SMALL LETTER TSU
+0ABB8	CHEROKEE SMALL LETTER TSV
+0ABB9	CHEROKEE SMALL LETTER WA
+0ABBA	CHEROKEE SMALL LETTER WE
+0ABBB	CHEROKEE SMALL LETTER WI
+0ABBC	CHEROKEE SMALL LETTER WO
+0ABBD	CHEROKEE SMALL LETTER WU
+0ABBE	CHEROKEE SMALL LETTER WV
+0ABBF	CHEROKEE SMALL LETTER YA
+0ABC0	MEETEI MAYEK LETTER KOK
+0ABC1	MEETEI MAYEK LETTER SAM
+0ABC2	MEETEI MAYEK LETTER LAI
+0ABC3	MEETEI MAYEK LETTER MIT
+0ABC4	MEETEI MAYEK LETTER PA
+0ABC5	MEETEI MAYEK LETTER NA
+0ABC6	MEETEI MAYEK LETTER CHIL
+0ABC7	MEETEI MAYEK LETTER TIL
+0ABC8	MEETEI MAYEK LETTER KHOU
+0ABC9	MEETEI MAYEK LETTER NGOU
+0ABCA	MEETEI MAYEK LETTER THOU
+0ABCB	MEETEI MAYEK LETTER WAI
+0ABCC	MEETEI MAYEK LETTER YANG
+0ABCD	MEETEI MAYEK LETTER HUK
+0ABCE	MEETEI MAYEK LETTER UN
+0ABCF	MEETEI MAYEK LETTER I
+0ABD0	MEETEI MAYEK LETTER PHAM
+0ABD1	MEETEI MAYEK LETTER ATIYA
+0ABD2	MEETEI MAYEK LETTER GOK
+0ABD3	MEETEI MAYEK LETTER JHAM
+0ABD4	MEETEI MAYEK LETTER RAI
+0ABD5	MEETEI MAYEK LETTER BA
+0ABD6	MEETEI MAYEK LETTER JIL
+0ABD7	MEETEI MAYEK LETTER DIL
+0ABD8	MEETEI MAYEK LETTER GHOU
+0ABD9	MEETEI MAYEK LETTER DHOU
+0ABDA	MEETEI MAYEK LETTER BHAM
+0ABDB	MEETEI MAYEK LETTER KOK LONSUM
+0ABDC	MEETEI MAYEK LETTER LAI LONSUM
+0ABDD	MEETEI MAYEK LETTER MIT LONSUM
+0ABDE	MEETEI MAYEK LETTER PA LONSUM
+0ABDF	MEETEI MAYEK LETTER NA LONSUM
+0ABE0	MEETEI MAYEK LETTER TIL LONSUM
+0ABE1	MEETEI MAYEK LETTER NGOU LONSUM
+0ABE2	MEETEI MAYEK LETTER I LONSUM
+0ABE3	MEETEI MAYEK VOWEL SIGN ONAP
+0ABE4	MEETEI MAYEK VOWEL SIGN INAP
+0ABE5	MEETEI MAYEK VOWEL SIGN ANAP
+0ABE6	MEETEI MAYEK VOWEL SIGN YENAP
+0ABE7	MEETEI MAYEK VOWEL SIGN SOUNAP
+0ABE8	MEETEI MAYEK VOWEL SIGN UNAP
+0ABE9	MEETEI MAYEK VOWEL SIGN CHEINAP
+0ABEA	MEETEI MAYEK VOWEL SIGN NUNG
+0ABEB	MEETEI MAYEK CHEIKHEI
+0ABEC	MEETEI MAYEK LUM IYEK
+0ABED	MEETEI MAYEK APUN IYEK
+0ABF0	MEETEI MAYEK DIGIT ZERO
+0ABF1	MEETEI MAYEK DIGIT ONE
+0ABF2	MEETEI MAYEK DIGIT TWO
+0ABF3	MEETEI MAYEK DIGIT THREE
+0ABF4	MEETEI MAYEK DIGIT FOUR
+0ABF5	MEETEI MAYEK DIGIT FIVE
+0ABF6	MEETEI MAYEK DIGIT SIX
+0ABF7	MEETEI MAYEK DIGIT SEVEN
+0ABF8	MEETEI MAYEK DIGIT EIGHT
+0ABF9	MEETEI MAYEK DIGIT NINE
+0D7B0	HANGUL JUNGSEONG O-YEO
+0D7B1	HANGUL JUNGSEONG O-O-I
+0D7B2	HANGUL JUNGSEONG YO-A
+0D7B3	HANGUL JUNGSEONG YO-AE
+0D7B4	HANGUL JUNGSEONG YO-EO
+0D7B5	HANGUL JUNGSEONG U-YEO
+0D7B6	HANGUL JUNGSEONG U-I-I
+0D7B7	HANGUL JUNGSEONG YU-AE
+0D7B8	HANGUL JUNGSEONG YU-O
+0D7B9	HANGUL JUNGSEONG EU-A
+0D7BA	HANGUL JUNGSEONG EU-EO
+0D7BB	HANGUL JUNGSEONG EU-E
+0D7BC	HANGUL JUNGSEONG EU-O
+0D7BD	HANGUL JUNGSEONG I-YA-O
+0D7BE	HANGUL JUNGSEONG I-YAE
+0D7BF	HANGUL JUNGSEONG I-YEO
+0D7C0	HANGUL JUNGSEONG I-YE
+0D7C1	HANGUL JUNGSEONG I-O-I
+0D7C2	HANGUL JUNGSEONG I-YO
+0D7C3	HANGUL JUNGSEONG I-YU
+0D7C4	HANGUL JUNGSEONG I-I
+0D7C5	HANGUL JUNGSEONG ARAEA-A
+0D7C6	HANGUL JUNGSEONG ARAEA-E
+0D7CB	HANGUL JONGSEONG NIEUN-RIEUL
+0D7CC	HANGUL JONGSEONG NIEUN-CHIEUCH
+0D7CD	HANGUL JONGSEONG SSANGTIKEUT
+0D7CE	HANGUL JONGSEONG SSANGTIKEUT-PIEUP
+0D7CF	HANGUL JONGSEONG TIKEUT-PIEUP
+0D7D0	HANGUL JONGSEONG TIKEUT-SIOS
+0D7D1	HANGUL JONGSEONG TIKEUT-SIOS-KIYEOK
+0D7D2	HANGUL JONGSEONG TIKEUT-CIEUC
+0D7D3	HANGUL JONGSEONG TIKEUT-CHIEUCH
+0D7D4	HANGUL JONGSEONG TIKEUT-THIEUTH
+0D7D5	HANGUL JONGSEONG RIEUL-SSANGKIYEOK
+0D7D6	HANGUL JONGSEONG RIEUL-KIYEOK-HIEUH
+0D7D7	HANGUL JONGSEONG SSANGRIEUL-KHIEUKH
+0D7D8	HANGUL JONGSEONG RIEUL-MIEUM-HIEUH
+0D7D9	HANGUL JONGSEONG RIEUL-PIEUP-TIKEUT
+0D7DA	HANGUL JONGSEONG RIEUL-PIEUP-PHIEUPH
+0D7DB	HANGUL JONGSEONG RIEUL-YESIEUNG
+0D7DC	HANGUL JONGSEONG RIEUL-YEORINHIEUH-HIEUH
+0D7DD	HANGUL JONGSEONG KAPYEOUNRIEUL
+0D7DE	HANGUL JONGSEONG MIEUM-NIEUN
+0D7DF	HANGUL JONGSEONG MIEUM-SSANGNIEUN
+0D7E0	HANGUL JONGSEONG SSANGMIEUM
+0D7E1	HANGUL JONGSEONG MIEUM-PIEUP-SIOS
+0D7E2	HANGUL JONGSEONG MIEUM-CIEUC
+0D7E3	HANGUL JONGSEONG PIEUP-TIKEUT
+0D7E4	HANGUL JONGSEONG PIEUP-RIEUL-PHIEUPH
+0D7E5	HANGUL JONGSEONG PIEUP-MIEUM
+0D7E6	HANGUL JONGSEONG SSANGPIEUP
+0D7E7	HANGUL JONGSEONG PIEUP-SIOS-TIKEUT
+0D7E8	HANGUL JONGSEONG PIEUP-CIEUC
+0D7E9	HANGUL JONGSEONG PIEUP-CHIEUCH
+0D7EA	HANGUL JONGSEONG SIOS-MIEUM
+0D7EB	HANGUL JONGSEONG SIOS-KAPYEOUNPIEUP
+0D7EC	HANGUL JONGSEONG SSANGSIOS-KIYEOK
+0D7ED	HANGUL JONGSEONG SSANGSIOS-TIKEUT
+0D7EE	HANGUL JONGSEONG SIOS-PANSIOS
+0D7EF	HANGUL JONGSEONG SIOS-CIEUC
+0D7F0	HANGUL JONGSEONG SIOS-CHIEUCH
+0D7F1	HANGUL JONGSEONG SIOS-THIEUTH
+0D7F2	HANGUL JONGSEONG SIOS-HIEUH
+0D7F3	HANGUL JONGSEONG PANSIOS-PIEUP
+0D7F4	HANGUL JONGSEONG PANSIOS-KAPYEOUNPIEUP
+0D7F5	HANGUL JONGSEONG YESIEUNG-MIEUM
+0D7F6	HANGUL JONGSEONG YESIEUNG-HIEUH
+0D7F7	HANGUL JONGSEONG CIEUC-PIEUP
+0D7F8	HANGUL JONGSEONG CIEUC-SSANGPIEUP
+0D7F9	HANGUL JONGSEONG SSANGCIEUC
+0D7FA	HANGUL JONGSEONG PHIEUPH-SIOS
+0D7FB	HANGUL JONGSEONG PHIEUPH-THIEUTH
+0FB00	LATIN SMALL LIGATURE FF
+0FB01	LATIN SMALL LIGATURE FI
+0FB02	LATIN SMALL LIGATURE FL
+0FB03	LATIN SMALL LIGATURE FFI
+0FB04	LATIN SMALL LIGATURE FFL
+0FB05	LATIN SMALL LIGATURE LONG S T
+0FB06	LATIN SMALL LIGATURE ST
+0FB13	ARMENIAN SMALL LIGATURE MEN NOW
+0FB14	ARMENIAN SMALL LIGATURE MEN ECH
+0FB15	ARMENIAN SMALL LIGATURE MEN INI
+0FB16	ARMENIAN SMALL LIGATURE VEW NOW
+0FB17	ARMENIAN SMALL LIGATURE MEN XEH
+0FB1D	HEBREW LETTER YOD WITH HIRIQ
+0FB1E	HEBREW POINT JUDEO-SPANISH VARIKA
+0FB1F	HEBREW LIGATURE YIDDISH YOD YOD PATAH
+0FB20	HEBREW LETTER ALTERNATIVE AYIN
+0FB21	HEBREW LETTER WIDE ALEF
+0FB22	HEBREW LETTER WIDE DALET
+0FB23	HEBREW LETTER WIDE HE
+0FB24	HEBREW LETTER WIDE KAF
+0FB25	HEBREW LETTER WIDE LAMED
+0FB26	HEBREW LETTER WIDE FINAL MEM
+0FB27	HEBREW LETTER WIDE RESH
+0FB28	HEBREW LETTER WIDE TAV
+0FB29	HEBREW LETTER ALTERNATIVE PLUS SIGN
+0FB2A	HEBREW LETTER SHIN WITH SHIN DOT
+0FB2B	HEBREW LETTER SHIN WITH SIN DOT
+0FB2C	HEBREW LETTER SHIN WITH DAGESH AND SHIN DOT
+0FB2D	HEBREW LETTER SHIN WITH DAGESH AND SIN DOT
+0FB2E	HEBREW LETTER ALEF WITH PATAH
+0FB2F	HEBREW LETTER ALEF WITH QAMATS
+0FB30	HEBREW LETTER ALEF WITH MAPIQ
+0FB31	HEBREW LETTER BET WITH DAGESH
+0FB32	HEBREW LETTER GIMEL WITH DAGESH
+0FB33	HEBREW LETTER DALET WITH DAGESH
+0FB34	HEBREW LETTER HE WITH MAPIQ
+0FB35	HEBREW LETTER VAV WITH DAGESH
+0FB36	HEBREW LETTER ZAYIN WITH DAGESH
+0FB38	HEBREW LETTER TET WITH DAGESH
+0FB39	HEBREW LETTER YOD WITH DAGESH
+0FB3A	HEBREW LETTER FINAL KAF WITH DAGESH
+0FB3B	HEBREW LETTER KAF WITH DAGESH
+0FB3C	HEBREW LETTER LAMED WITH DAGESH
+0FB3E	HEBREW LETTER MEM WITH DAGESH
+0FB40	HEBREW LETTER NUN WITH DAGESH
+0FB41	HEBREW LETTER SAMEKH WITH DAGESH
+0FB43	HEBREW LETTER FINAL PE WITH DAGESH
+0FB44	HEBREW LETTER PE WITH DAGESH
+0FB46	HEBREW LETTER TSADI WITH DAGESH
+0FB47	HEBREW LETTER QOF WITH DAGESH
+0FB48	HEBREW LETTER RESH WITH DAGESH
+0FB49	HEBREW LETTER SHIN WITH DAGESH
+0FB4A	HEBREW LETTER TAV WITH DAGESH
+0FB4B	HEBREW LETTER VAV WITH HOLAM
+0FB4C	HEBREW LETTER BET WITH RAFE
+0FB4D	HEBREW LETTER KAF WITH RAFE
+0FB4E	HEBREW LETTER PE WITH RAFE
+0FB4F	HEBREW LIGATURE ALEF LAMED
+0FB50	ARABIC LETTER ALEF WASLA ISOLATED FORM
+0FB51	ARABIC LETTER ALEF WASLA FINAL FORM
+0FB52	ARABIC LETTER BEEH ISOLATED FORM
+0FB53	ARABIC LETTER BEEH FINAL FORM
+0FB54	ARABIC LETTER BEEH INITIAL FORM
+0FB55	ARABIC LETTER BEEH MEDIAL FORM
+0FB56	ARABIC LETTER PEH ISOLATED FORM
+0FB57	ARABIC LETTER PEH FINAL FORM
+0FB58	ARABIC LETTER PEH INITIAL FORM
+0FB59	ARABIC LETTER PEH MEDIAL FORM
+0FB5A	ARABIC LETTER BEHEH ISOLATED FORM
+0FB5B	ARABIC LETTER BEHEH FINAL FORM
+0FB5C	ARABIC LETTER BEHEH INITIAL FORM
+0FB5D	ARABIC LETTER BEHEH MEDIAL FORM
+0FB5E	ARABIC LETTER TTEHEH ISOLATED FORM
+0FB5F	ARABIC LETTER TTEHEH FINAL FORM
+0FB60	ARABIC LETTER TTEHEH INITIAL FORM
+0FB61	ARABIC LETTER TTEHEH MEDIAL FORM
+0FB62	ARABIC LETTER TEHEH ISOLATED FORM
+0FB63	ARABIC LETTER TEHEH FINAL FORM
+0FB64	ARABIC LETTER TEHEH INITIAL FORM
+0FB65	ARABIC LETTER TEHEH MEDIAL FORM
+0FB66	ARABIC LETTER TTEH ISOLATED FORM
+0FB67	ARABIC LETTER TTEH FINAL FORM
+0FB68	ARABIC LETTER TTEH INITIAL FORM
+0FB69	ARABIC LETTER TTEH MEDIAL FORM
+0FB6A	ARABIC LETTER VEH ISOLATED FORM
+0FB6B	ARABIC LETTER VEH FINAL FORM
+0FB6C	ARABIC LETTER VEH INITIAL FORM
+0FB6D	ARABIC LETTER VEH MEDIAL FORM
+0FB6E	ARABIC LETTER PEHEH ISOLATED FORM
+0FB6F	ARABIC LETTER PEHEH FINAL FORM
+0FB70	ARABIC LETTER PEHEH INITIAL FORM
+0FB71	ARABIC LETTER PEHEH MEDIAL FORM
+0FB72	ARABIC LETTER DYEH ISOLATED FORM
+0FB73	ARABIC LETTER DYEH FINAL FORM
+0FB74	ARABIC LETTER DYEH INITIAL FORM
+0FB75	ARABIC LETTER DYEH MEDIAL FORM
+0FB76	ARABIC LETTER NYEH ISOLATED FORM
+0FB77	ARABIC LETTER NYEH FINAL FORM
+0FB78	ARABIC LETTER NYEH INITIAL FORM
+0FB79	ARABIC LETTER NYEH MEDIAL FORM
+0FB7A	ARABIC LETTER TCHEH ISOLATED FORM
+0FB7B	ARABIC LETTER TCHEH FINAL FORM
+0FB7C	ARABIC LETTER TCHEH INITIAL FORM
+0FB7D	ARABIC LETTER TCHEH MEDIAL FORM
+0FB7E	ARABIC LETTER TCHEHEH ISOLATED FORM
+0FB7F	ARABIC LETTER TCHEHEH FINAL FORM
+0FB80	ARABIC LETTER TCHEHEH INITIAL FORM
+0FB81	ARABIC LETTER TCHEHEH MEDIAL FORM
+0FB82	ARABIC LETTER DDAHAL ISOLATED FORM
+0FB83	ARABIC LETTER DDAHAL FINAL FORM
+0FB84	ARABIC LETTER DAHAL ISOLATED FORM
+0FB85	ARABIC LETTER DAHAL FINAL FORM
+0FB86	ARABIC LETTER DUL ISOLATED FORM
+0FB87	ARABIC LETTER DUL FINAL FORM
+0FB88	ARABIC LETTER DDAL ISOLATED FORM
+0FB89	ARABIC LETTER DDAL FINAL FORM
+0FB8A	ARABIC LETTER JEH ISOLATED FORM
+0FB8B	ARABIC LETTER JEH FINAL FORM
+0FB8C	ARABIC LETTER RREH ISOLATED FORM
+0FB8D	ARABIC LETTER RREH FINAL FORM
+0FB8E	ARABIC LETTER KEHEH ISOLATED FORM
+0FB8F	ARABIC LETTER KEHEH FINAL FORM
+0FB90	ARABIC LETTER KEHEH INITIAL FORM
+0FB91	ARABIC LETTER KEHEH MEDIAL FORM
+0FB92	ARABIC LETTER GAF ISOLATED FORM
+0FB93	ARABIC LETTER GAF FINAL FORM
+0FB94	ARABIC LETTER GAF INITIAL FORM
+0FB95	ARABIC LETTER GAF MEDIAL FORM
+0FB96	ARABIC LETTER GUEH ISOLATED FORM
+0FB97	ARABIC LETTER GUEH FINAL FORM
+0FB98	ARABIC LETTER GUEH INITIAL FORM
+0FB99	ARABIC LETTER GUEH MEDIAL FORM
+0FB9A	ARABIC LETTER NGOEH ISOLATED FORM
+0FB9B	ARABIC LETTER NGOEH FINAL FORM
+0FB9C	ARABIC LETTER NGOEH INITIAL FORM
+0FB9D	ARABIC LETTER NGOEH MEDIAL FORM
+0FB9E	ARABIC LETTER NOON GHUNNA ISOLATED FORM
+0FB9F	ARABIC LETTER NOON GHUNNA FINAL FORM
+0FBA0	ARABIC LETTER RNOON ISOLATED FORM
+0FBA1	ARABIC LETTER RNOON FINAL FORM
+0FBA2	ARABIC LETTER RNOON INITIAL FORM
+0FBA3	ARABIC LETTER RNOON MEDIAL FORM
+0FBA4	ARABIC LETTER HEH WITH YEH ABOVE ISOLATED FORM
+0FBA5	ARABIC LETTER HEH WITH YEH ABOVE FINAL FORM
+0FBA6	ARABIC LETTER HEH GOAL ISOLATED FORM
+0FBA7	ARABIC LETTER HEH GOAL FINAL FORM
+0FBA8	ARABIC LETTER HEH GOAL INITIAL FORM
+0FBA9	ARABIC LETTER HEH GOAL MEDIAL FORM
+0FBAA	ARABIC LETTER HEH DOACHASHMEE ISOLATED FORM
+0FBAB	ARABIC LETTER HEH DOACHASHMEE FINAL FORM
+0FBAC	ARABIC LETTER HEH DOACHASHMEE INITIAL FORM
+0FBAD	ARABIC LETTER HEH DOACHASHMEE MEDIAL FORM
+0FBAE	ARABIC LETTER YEH BARREE ISOLATED FORM
+0FBAF	ARABIC LETTER YEH BARREE FINAL FORM
+0FBB0	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE ISOLATED FORM
+0FBB1	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE FINAL FORM
+0FBB2	ARABIC SYMBOL DOT ABOVE
+0FBB3	ARABIC SYMBOL DOT BELOW
+0FBB4	ARABIC SYMBOL TWO DOTS ABOVE
+0FBB5	ARABIC SYMBOL TWO DOTS BELOW
+0FBB6	ARABIC SYMBOL THREE DOTS ABOVE
+0FBB7	ARABIC SYMBOL THREE DOTS BELOW
+0FBB8	ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS ABOVE
+0FBB9	ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS BELOW
+0FBBA	ARABIC SYMBOL FOUR DOTS ABOVE
+0FBBB	ARABIC SYMBOL FOUR DOTS BELOW
+0FBBC	ARABIC SYMBOL DOUBLE VERTICAL BAR BELOW
+0FBBD	ARABIC SYMBOL TWO DOTS VERTICALLY ABOVE
+0FBBE	ARABIC SYMBOL TWO DOTS VERTICALLY BELOW
+0FBBF	ARABIC SYMBOL RING
+0FBC0	ARABIC SYMBOL SMALL TAH ABOVE
+0FBC1	ARABIC SYMBOL SMALL TAH BELOW
+0FBD3	ARABIC LETTER NG ISOLATED FORM
+0FBD4	ARABIC LETTER NG FINAL FORM
+0FBD5	ARABIC LETTER NG INITIAL FORM
+0FBD6	ARABIC LETTER NG MEDIAL FORM
+0FBD7	ARABIC LETTER U ISOLATED FORM
+0FBD8	ARABIC LETTER U FINAL FORM
+0FBD9	ARABIC LETTER OE ISOLATED FORM
+0FBDA	ARABIC LETTER OE FINAL FORM
+0FBDB	ARABIC LETTER YU ISOLATED FORM
+0FBDC	ARABIC LETTER YU FINAL FORM
+0FBDD	ARABIC LETTER U WITH HAMZA ABOVE ISOLATED FORM
+0FBDE	ARABIC LETTER VE ISOLATED FORM
+0FBDF	ARABIC LETTER VE FINAL FORM
+0FBE0	ARABIC LETTER KIRGHIZ OE ISOLATED FORM
+0FBE1	ARABIC LETTER KIRGHIZ OE FINAL FORM
+0FBE2	ARABIC LETTER KIRGHIZ YU ISOLATED FORM
+0FBE3	ARABIC LETTER KIRGHIZ YU FINAL FORM
+0FBE4	ARABIC LETTER E ISOLATED FORM
+0FBE5	ARABIC LETTER E FINAL FORM
+0FBE6	ARABIC LETTER E INITIAL FORM
+0FBE7	ARABIC LETTER E MEDIAL FORM
+0FBE8	ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA INITIAL FORM
+0FBE9	ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA MEDIAL FORM
+0FBEA	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF ISOLATED FORM
+0FBEB	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF FINAL FORM
+0FBEC	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE ISOLATED FORM
+0FBED	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE FINAL FORM
+0FBEE	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW ISOLATED FORM
+0FBEF	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW FINAL FORM
+0FBF0	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U ISOLATED FORM
+0FBF1	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U FINAL FORM
+0FBF2	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE ISOLATED FORM
+0FBF3	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE FINAL FORM
+0FBF4	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU ISOLATED FORM
+0FBF5	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU FINAL FORM
+0FBF6	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E ISOLATED FORM
+0FBF7	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E FINAL FORM
+0FBF8	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E INITIAL FORM
+0FBF9	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+0FBFA	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+0FBFB	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA INITIAL FORM
+0FBFC	ARABIC LETTER FARSI YEH ISOLATED FORM
+0FBFD	ARABIC LETTER FARSI YEH FINAL FORM
+0FBFE	ARABIC LETTER FARSI YEH INITIAL FORM
+0FBFF	ARABIC LETTER FARSI YEH MEDIAL FORM
+0FC00	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM ISOLATED FORM
+0FC01	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH ISOLATED FORM
+0FC02	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM ISOLATED FORM
+0FC03	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+0FC04	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH ISOLATED FORM
+0FC05	ARABIC LIGATURE BEH WITH JEEM ISOLATED FORM
+0FC06	ARABIC LIGATURE BEH WITH HAH ISOLATED FORM
+0FC07	ARABIC LIGATURE BEH WITH KHAH ISOLATED FORM
+0FC08	ARABIC LIGATURE BEH WITH MEEM ISOLATED FORM
+0FC09	ARABIC LIGATURE BEH WITH ALEF MAKSURA ISOLATED FORM
+0FC0A	ARABIC LIGATURE BEH WITH YEH ISOLATED FORM
+0FC0B	ARABIC LIGATURE TEH WITH JEEM ISOLATED FORM
+0FC0C	ARABIC LIGATURE TEH WITH HAH ISOLATED FORM
+0FC0D	ARABIC LIGATURE TEH WITH KHAH ISOLATED FORM
+0FC0E	ARABIC LIGATURE TEH WITH MEEM ISOLATED FORM
+0FC0F	ARABIC LIGATURE TEH WITH ALEF MAKSURA ISOLATED FORM
+0FC10	ARABIC LIGATURE TEH WITH YEH ISOLATED FORM
+0FC11	ARABIC LIGATURE THEH WITH JEEM ISOLATED FORM
+0FC12	ARABIC LIGATURE THEH WITH MEEM ISOLATED FORM
+0FC13	ARABIC LIGATURE THEH WITH ALEF MAKSURA ISOLATED FORM
+0FC14	ARABIC LIGATURE THEH WITH YEH ISOLATED FORM
+0FC15	ARABIC LIGATURE JEEM WITH HAH ISOLATED FORM
+0FC16	ARABIC LIGATURE JEEM WITH MEEM ISOLATED FORM
+0FC17	ARABIC LIGATURE HAH WITH JEEM ISOLATED FORM
+0FC18	ARABIC LIGATURE HAH WITH MEEM ISOLATED FORM
+0FC19	ARABIC LIGATURE KHAH WITH JEEM ISOLATED FORM
+0FC1A	ARABIC LIGATURE KHAH WITH HAH ISOLATED FORM
+0FC1B	ARABIC LIGATURE KHAH WITH MEEM ISOLATED FORM
+0FC1C	ARABIC LIGATURE SEEN WITH JEEM ISOLATED FORM
+0FC1D	ARABIC LIGATURE SEEN WITH HAH ISOLATED FORM
+0FC1E	ARABIC LIGATURE SEEN WITH KHAH ISOLATED FORM
+0FC1F	ARABIC LIGATURE SEEN WITH MEEM ISOLATED FORM
+0FC20	ARABIC LIGATURE SAD WITH HAH ISOLATED FORM
+0FC21	ARABIC LIGATURE SAD WITH MEEM ISOLATED FORM
+0FC22	ARABIC LIGATURE DAD WITH JEEM ISOLATED FORM
+0FC23	ARABIC LIGATURE DAD WITH HAH ISOLATED FORM
+0FC24	ARABIC LIGATURE DAD WITH KHAH ISOLATED FORM
+0FC25	ARABIC LIGATURE DAD WITH MEEM ISOLATED FORM
+0FC26	ARABIC LIGATURE TAH WITH HAH ISOLATED FORM
+0FC27	ARABIC LIGATURE TAH WITH MEEM ISOLATED FORM
+0FC28	ARABIC LIGATURE ZAH WITH MEEM ISOLATED FORM
+0FC29	ARABIC LIGATURE AIN WITH JEEM ISOLATED FORM
+0FC2A	ARABIC LIGATURE AIN WITH MEEM ISOLATED FORM
+0FC2B	ARABIC LIGATURE GHAIN WITH JEEM ISOLATED FORM
+0FC2C	ARABIC LIGATURE GHAIN WITH MEEM ISOLATED FORM
+0FC2D	ARABIC LIGATURE FEH WITH JEEM ISOLATED FORM
+0FC2E	ARABIC LIGATURE FEH WITH HAH ISOLATED FORM
+0FC2F	ARABIC LIGATURE FEH WITH KHAH ISOLATED FORM
+0FC30	ARABIC LIGATURE FEH WITH MEEM ISOLATED FORM
+0FC31	ARABIC LIGATURE FEH WITH ALEF MAKSURA ISOLATED FORM
+0FC32	ARABIC LIGATURE FEH WITH YEH ISOLATED FORM
+0FC33	ARABIC LIGATURE QAF WITH HAH ISOLATED FORM
+0FC34	ARABIC LIGATURE QAF WITH MEEM ISOLATED FORM
+0FC35	ARABIC LIGATURE QAF WITH ALEF MAKSURA ISOLATED FORM
+0FC36	ARABIC LIGATURE QAF WITH YEH ISOLATED FORM
+0FC37	ARABIC LIGATURE KAF WITH ALEF ISOLATED FORM
+0FC38	ARABIC LIGATURE KAF WITH JEEM ISOLATED FORM
+0FC39	ARABIC LIGATURE KAF WITH HAH ISOLATED FORM
+0FC3A	ARABIC LIGATURE KAF WITH KHAH ISOLATED FORM
+0FC3B	ARABIC LIGATURE KAF WITH LAM ISOLATED FORM
+0FC3C	ARABIC LIGATURE KAF WITH MEEM ISOLATED FORM
+0FC3D	ARABIC LIGATURE KAF WITH ALEF MAKSURA ISOLATED FORM
+0FC3E	ARABIC LIGATURE KAF WITH YEH ISOLATED FORM
+0FC3F	ARABIC LIGATURE LAM WITH JEEM ISOLATED FORM
+0FC40	ARABIC LIGATURE LAM WITH HAH ISOLATED FORM
+0FC41	ARABIC LIGATURE LAM WITH KHAH ISOLATED FORM
+0FC42	ARABIC LIGATURE LAM WITH MEEM ISOLATED FORM
+0FC43	ARABIC LIGATURE LAM WITH ALEF MAKSURA ISOLATED FORM
+0FC44	ARABIC LIGATURE LAM WITH YEH ISOLATED FORM
+0FC45	ARABIC LIGATURE MEEM WITH JEEM ISOLATED FORM
+0FC46	ARABIC LIGATURE MEEM WITH HAH ISOLATED FORM
+0FC47	ARABIC LIGATURE MEEM WITH KHAH ISOLATED FORM
+0FC48	ARABIC LIGATURE MEEM WITH MEEM ISOLATED FORM
+0FC49	ARABIC LIGATURE MEEM WITH ALEF MAKSURA ISOLATED FORM
+0FC4A	ARABIC LIGATURE MEEM WITH YEH ISOLATED FORM
+0FC4B	ARABIC LIGATURE NOON WITH JEEM ISOLATED FORM
+0FC4C	ARABIC LIGATURE NOON WITH HAH ISOLATED FORM
+0FC4D	ARABIC LIGATURE NOON WITH KHAH ISOLATED FORM
+0FC4E	ARABIC LIGATURE NOON WITH MEEM ISOLATED FORM
+0FC4F	ARABIC LIGATURE NOON WITH ALEF MAKSURA ISOLATED FORM
+0FC50	ARABIC LIGATURE NOON WITH YEH ISOLATED FORM
+0FC51	ARABIC LIGATURE HEH WITH JEEM ISOLATED FORM
+0FC52	ARABIC LIGATURE HEH WITH MEEM ISOLATED FORM
+0FC53	ARABIC LIGATURE HEH WITH ALEF MAKSURA ISOLATED FORM
+0FC54	ARABIC LIGATURE HEH WITH YEH ISOLATED FORM
+0FC55	ARABIC LIGATURE YEH WITH JEEM ISOLATED FORM
+0FC56	ARABIC LIGATURE YEH WITH HAH ISOLATED FORM
+0FC57	ARABIC LIGATURE YEH WITH KHAH ISOLATED FORM
+0FC58	ARABIC LIGATURE YEH WITH MEEM ISOLATED FORM
+0FC59	ARABIC LIGATURE YEH WITH ALEF MAKSURA ISOLATED FORM
+0FC5A	ARABIC LIGATURE YEH WITH YEH ISOLATED FORM
+0FC5B	ARABIC LIGATURE THAL WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5C	ARABIC LIGATURE REH WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5D	ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5E	ARABIC LIGATURE SHADDA WITH DAMMATAN ISOLATED FORM
+0FC5F	ARABIC LIGATURE SHADDA WITH KASRATAN ISOLATED FORM
+0FC60	ARABIC LIGATURE SHADDA WITH FATHA ISOLATED FORM
+0FC61	ARABIC LIGATURE SHADDA WITH DAMMA ISOLATED FORM
+0FC62	ARABIC LIGATURE SHADDA WITH KASRA ISOLATED FORM
+0FC63	ARABIC LIGATURE SHADDA WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC64	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH REH FINAL FORM
+0FC65	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ZAIN FINAL FORM
+0FC66	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM FINAL FORM
+0FC67	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH NOON FINAL FORM
+0FC68	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+0FC69	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH FINAL FORM
+0FC6A	ARABIC LIGATURE BEH WITH REH FINAL FORM
+0FC6B	ARABIC LIGATURE BEH WITH ZAIN FINAL FORM
+0FC6C	ARABIC LIGATURE BEH WITH MEEM FINAL FORM
+0FC6D	ARABIC LIGATURE BEH WITH NOON FINAL FORM
+0FC6E	ARABIC LIGATURE BEH WITH ALEF MAKSURA FINAL FORM
+0FC6F	ARABIC LIGATURE BEH WITH YEH FINAL FORM
+0FC70	ARABIC LIGATURE TEH WITH REH FINAL FORM
+0FC71	ARABIC LIGATURE TEH WITH ZAIN FINAL FORM
+0FC72	ARABIC LIGATURE TEH WITH MEEM FINAL FORM
+0FC73	ARABIC LIGATURE TEH WITH NOON FINAL FORM
+0FC74	ARABIC LIGATURE TEH WITH ALEF MAKSURA FINAL FORM
+0FC75	ARABIC LIGATURE TEH WITH YEH FINAL FORM
+0FC76	ARABIC LIGATURE THEH WITH REH FINAL FORM
+0FC77	ARABIC LIGATURE THEH WITH ZAIN FINAL FORM
+0FC78	ARABIC LIGATURE THEH WITH MEEM FINAL FORM
+0FC79	ARABIC LIGATURE THEH WITH NOON FINAL FORM
+0FC7A	ARABIC LIGATURE THEH WITH ALEF MAKSURA FINAL FORM
+0FC7B	ARABIC LIGATURE THEH WITH YEH FINAL FORM
+0FC7C	ARABIC LIGATURE FEH WITH ALEF MAKSURA FINAL FORM
+0FC7D	ARABIC LIGATURE FEH WITH YEH FINAL FORM
+0FC7E	ARABIC LIGATURE QAF WITH ALEF MAKSURA FINAL FORM
+0FC7F	ARABIC LIGATURE QAF WITH YEH FINAL FORM
+0FC80	ARABIC LIGATURE KAF WITH ALEF FINAL FORM
+0FC81	ARABIC LIGATURE KAF WITH LAM FINAL FORM
+0FC82	ARABIC LIGATURE KAF WITH MEEM FINAL FORM
+0FC83	ARABIC LIGATURE KAF WITH ALEF MAKSURA FINAL FORM
+0FC84	ARABIC LIGATURE KAF WITH YEH FINAL FORM
+0FC85	ARABIC LIGATURE LAM WITH MEEM FINAL FORM
+0FC86	ARABIC LIGATURE LAM WITH ALEF MAKSURA FINAL FORM
+0FC87	ARABIC LIGATURE LAM WITH YEH FINAL FORM
+0FC88	ARABIC LIGATURE MEEM WITH ALEF FINAL FORM
+0FC89	ARABIC LIGATURE MEEM WITH MEEM FINAL FORM
+0FC8A	ARABIC LIGATURE NOON WITH REH FINAL FORM
+0FC8B	ARABIC LIGATURE NOON WITH ZAIN FINAL FORM
+0FC8C	ARABIC LIGATURE NOON WITH MEEM FINAL FORM
+0FC8D	ARABIC LIGATURE NOON WITH NOON FINAL FORM
+0FC8E	ARABIC LIGATURE NOON WITH ALEF MAKSURA FINAL FORM
+0FC8F	ARABIC LIGATURE NOON WITH YEH FINAL FORM
+0FC90	ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF FINAL FORM
+0FC91	ARABIC LIGATURE YEH WITH REH FINAL FORM
+0FC92	ARABIC LIGATURE YEH WITH ZAIN FINAL FORM
+0FC93	ARABIC LIGATURE YEH WITH MEEM FINAL FORM
+0FC94	ARABIC LIGATURE YEH WITH NOON FINAL FORM
+0FC95	ARABIC LIGATURE YEH WITH ALEF MAKSURA FINAL FORM
+0FC96	ARABIC LIGATURE YEH WITH YEH FINAL FORM
+0FC97	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM INITIAL FORM
+0FC98	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH INITIAL FORM
+0FC99	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH KHAH INITIAL FORM
+0FC9A	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM INITIAL FORM
+0FC9B	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH INITIAL FORM
+0FC9C	ARABIC LIGATURE BEH WITH JEEM INITIAL FORM
+0FC9D	ARABIC LIGATURE BEH WITH HAH INITIAL FORM
+0FC9E	ARABIC LIGATURE BEH WITH KHAH INITIAL FORM
+0FC9F	ARABIC LIGATURE BEH WITH MEEM INITIAL FORM
+0FCA0	ARABIC LIGATURE BEH WITH HEH INITIAL FORM
+0FCA1	ARABIC LIGATURE TEH WITH JEEM INITIAL FORM
+0FCA2	ARABIC LIGATURE TEH WITH HAH INITIAL FORM
+0FCA3	ARABIC LIGATURE TEH WITH KHAH INITIAL FORM
+0FCA4	ARABIC LIGATURE TEH WITH MEEM INITIAL FORM
+0FCA5	ARABIC LIGATURE TEH WITH HEH INITIAL FORM
+0FCA6	ARABIC LIGATURE THEH WITH MEEM INITIAL FORM
+0FCA7	ARABIC LIGATURE JEEM WITH HAH INITIAL FORM
+0FCA8	ARABIC LIGATURE JEEM WITH MEEM INITIAL FORM
+0FCA9	ARABIC LIGATURE HAH WITH JEEM INITIAL FORM
+0FCAA	ARABIC LIGATURE HAH WITH MEEM INITIAL FORM
+0FCAB	ARABIC LIGATURE KHAH WITH JEEM INITIAL FORM
+0FCAC	ARABIC LIGATURE KHAH WITH MEEM INITIAL FORM
+0FCAD	ARABIC LIGATURE SEEN WITH JEEM INITIAL FORM
+0FCAE	ARABIC LIGATURE SEEN WITH HAH INITIAL FORM
+0FCAF	ARABIC LIGATURE SEEN WITH KHAH INITIAL FORM
+0FCB0	ARABIC LIGATURE SEEN WITH MEEM INITIAL FORM
+0FCB1	ARABIC LIGATURE SAD WITH HAH INITIAL FORM
+0FCB2	ARABIC LIGATURE SAD WITH KHAH INITIAL FORM
+0FCB3	ARABIC LIGATURE SAD WITH MEEM INITIAL FORM
+0FCB4	ARABIC LIGATURE DAD WITH JEEM INITIAL FORM
+0FCB5	ARABIC LIGATURE DAD WITH HAH INITIAL FORM
+0FCB6	ARABIC LIGATURE DAD WITH KHAH INITIAL FORM
+0FCB7	ARABIC LIGATURE DAD WITH MEEM INITIAL FORM
+0FCB8	ARABIC LIGATURE TAH WITH HAH INITIAL FORM
+0FCB9	ARABIC LIGATURE ZAH WITH MEEM INITIAL FORM
+0FCBA	ARABIC LIGATURE AIN WITH JEEM INITIAL FORM
+0FCBB	ARABIC LIGATURE AIN WITH MEEM INITIAL FORM
+0FCBC	ARABIC LIGATURE GHAIN WITH JEEM INITIAL FORM
+0FCBD	ARABIC LIGATURE GHAIN WITH MEEM INITIAL FORM
+0FCBE	ARABIC LIGATURE FEH WITH JEEM INITIAL FORM
+0FCBF	ARABIC LIGATURE FEH WITH HAH INITIAL FORM
+0FCC0	ARABIC LIGATURE FEH WITH KHAH INITIAL FORM
+0FCC1	ARABIC LIGATURE FEH WITH MEEM INITIAL FORM
+0FCC2	ARABIC LIGATURE QAF WITH HAH INITIAL FORM
+0FCC3	ARABIC LIGATURE QAF WITH MEEM INITIAL FORM
+0FCC4	ARABIC LIGATURE KAF WITH JEEM INITIAL FORM
+0FCC5	ARABIC LIGATURE KAF WITH HAH INITIAL FORM
+0FCC6	ARABIC LIGATURE KAF WITH KHAH INITIAL FORM
+0FCC7	ARABIC LIGATURE KAF WITH LAM INITIAL FORM
+0FCC8	ARABIC LIGATURE KAF WITH MEEM INITIAL FORM
+0FCC9	ARABIC LIGATURE LAM WITH JEEM INITIAL FORM
+0FCCA	ARABIC LIGATURE LAM WITH HAH INITIAL FORM
+0FCCB	ARABIC LIGATURE LAM WITH KHAH INITIAL FORM
+0FCCC	ARABIC LIGATURE LAM WITH MEEM INITIAL FORM
+0FCCD	ARABIC LIGATURE LAM WITH HEH INITIAL FORM
+0FCCE	ARABIC LIGATURE MEEM WITH JEEM INITIAL FORM
+0FCCF	ARABIC LIGATURE MEEM WITH HAH INITIAL FORM
+0FCD0	ARABIC LIGATURE MEEM WITH KHAH INITIAL FORM
+0FCD1	ARABIC LIGATURE MEEM WITH MEEM INITIAL FORM
+0FCD2	ARABIC LIGATURE NOON WITH JEEM INITIAL FORM
+0FCD3	ARABIC LIGATURE NOON WITH HAH INITIAL FORM
+0FCD4	ARABIC LIGATURE NOON WITH KHAH INITIAL FORM
+0FCD5	ARABIC LIGATURE NOON WITH MEEM INITIAL FORM
+0FCD6	ARABIC LIGATURE NOON WITH HEH INITIAL FORM
+0FCD7	ARABIC LIGATURE HEH WITH JEEM INITIAL FORM
+0FCD8	ARABIC LIGATURE HEH WITH MEEM INITIAL FORM
+0FCD9	ARABIC LIGATURE HEH WITH SUPERSCRIPT ALEF INITIAL FORM
+0FCDA	ARABIC LIGATURE YEH WITH JEEM INITIAL FORM
+0FCDB	ARABIC LIGATURE YEH WITH HAH INITIAL FORM
+0FCDC	ARABIC LIGATURE YEH WITH KHAH INITIAL FORM
+0FCDD	ARABIC LIGATURE YEH WITH MEEM INITIAL FORM
+0FCDE	ARABIC LIGATURE YEH WITH HEH INITIAL FORM
+0FCDF	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM MEDIAL FORM
+0FCE0	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH MEDIAL FORM
+0FCE1	ARABIC LIGATURE BEH WITH MEEM MEDIAL FORM
+0FCE2	ARABIC LIGATURE BEH WITH HEH MEDIAL FORM
+0FCE3	ARABIC LIGATURE TEH WITH MEEM MEDIAL FORM
+0FCE4	ARABIC LIGATURE TEH WITH HEH MEDIAL FORM
+0FCE5	ARABIC LIGATURE THEH WITH MEEM MEDIAL FORM
+0FCE6	ARABIC LIGATURE THEH WITH HEH MEDIAL FORM
+0FCE7	ARABIC LIGATURE SEEN WITH MEEM MEDIAL FORM
+0FCE8	ARABIC LIGATURE SEEN WITH HEH MEDIAL FORM
+0FCE9	ARABIC LIGATURE SHEEN WITH MEEM MEDIAL FORM
+0FCEA	ARABIC LIGATURE SHEEN WITH HEH MEDIAL FORM
+0FCEB	ARABIC LIGATURE KAF WITH LAM MEDIAL FORM
+0FCEC	ARABIC LIGATURE KAF WITH MEEM MEDIAL FORM
+0FCED	ARABIC LIGATURE LAM WITH MEEM MEDIAL FORM
+0FCEE	ARABIC LIGATURE NOON WITH MEEM MEDIAL FORM
+0FCEF	ARABIC LIGATURE NOON WITH HEH MEDIAL FORM
+0FCF0	ARABIC LIGATURE YEH WITH MEEM MEDIAL FORM
+0FCF1	ARABIC LIGATURE YEH WITH HEH MEDIAL FORM
+0FCF2	ARABIC LIGATURE SHADDA WITH FATHA MEDIAL FORM
+0FCF3	ARABIC LIGATURE SHADDA WITH DAMMA MEDIAL FORM
+0FCF4	ARABIC LIGATURE SHADDA WITH KASRA MEDIAL FORM
+0FCF5	ARABIC LIGATURE TAH WITH ALEF MAKSURA ISOLATED FORM
+0FCF6	ARABIC LIGATURE TAH WITH YEH ISOLATED FORM
+0FCF7	ARABIC LIGATURE AIN WITH ALEF MAKSURA ISOLATED FORM
+0FCF8	ARABIC LIGATURE AIN WITH YEH ISOLATED FORM
+0FCF9	ARABIC LIGATURE GHAIN WITH ALEF MAKSURA ISOLATED FORM
+0FCFA	ARABIC LIGATURE GHAIN WITH YEH ISOLATED FORM
+0FCFB	ARABIC LIGATURE SEEN WITH ALEF MAKSURA ISOLATED FORM
+0FCFC	ARABIC LIGATURE SEEN WITH YEH ISOLATED FORM
+0FCFD	ARABIC LIGATURE SHEEN WITH ALEF MAKSURA ISOLATED FORM
+0FCFE	ARABIC LIGATURE SHEEN WITH YEH ISOLATED FORM
+0FCFF	ARABIC LIGATURE HAH WITH ALEF MAKSURA ISOLATED FORM
+0FD00	ARABIC LIGATURE HAH WITH YEH ISOLATED FORM
+0FD01	ARABIC LIGATURE JEEM WITH ALEF MAKSURA ISOLATED FORM
+0FD02	ARABIC LIGATURE JEEM WITH YEH ISOLATED FORM
+0FD03	ARABIC LIGATURE KHAH WITH ALEF MAKSURA ISOLATED FORM
+0FD04	ARABIC LIGATURE KHAH WITH YEH ISOLATED FORM
+0FD05	ARABIC LIGATURE SAD WITH ALEF MAKSURA ISOLATED FORM
+0FD06	ARABIC LIGATURE SAD WITH YEH ISOLATED FORM
+0FD07	ARABIC LIGATURE DAD WITH ALEF MAKSURA ISOLATED FORM
+0FD08	ARABIC LIGATURE DAD WITH YEH ISOLATED FORM
+0FD09	ARABIC LIGATURE SHEEN WITH JEEM ISOLATED FORM
+0FD0A	ARABIC LIGATURE SHEEN WITH HAH ISOLATED FORM
+0FD0B	ARABIC LIGATURE SHEEN WITH KHAH ISOLATED FORM
+0FD0C	ARABIC LIGATURE SHEEN WITH MEEM ISOLATED FORM
+0FD0D	ARABIC LIGATURE SHEEN WITH REH ISOLATED FORM
+0FD0E	ARABIC LIGATURE SEEN WITH REH ISOLATED FORM
+0FD0F	ARABIC LIGATURE SAD WITH REH ISOLATED FORM
+0FD10	ARABIC LIGATURE DAD WITH REH ISOLATED FORM
+0FD11	ARABIC LIGATURE TAH WITH ALEF MAKSURA FINAL FORM
+0FD12	ARABIC LIGATURE TAH WITH YEH FINAL FORM
+0FD13	ARABIC LIGATURE AIN WITH ALEF MAKSURA FINAL FORM
+0FD14	ARABIC LIGATURE AIN WITH YEH FINAL FORM
+0FD15	ARABIC LIGATURE GHAIN WITH ALEF MAKSURA FINAL FORM
+0FD16	ARABIC LIGATURE GHAIN WITH YEH FINAL FORM
+0FD17	ARABIC LIGATURE SEEN WITH ALEF MAKSURA FINAL FORM
+0FD18	ARABIC LIGATURE SEEN WITH YEH FINAL FORM
+0FD19	ARABIC LIGATURE SHEEN WITH ALEF MAKSURA FINAL FORM
+0FD1A	ARABIC LIGATURE SHEEN WITH YEH FINAL FORM
+0FD1B	ARABIC LIGATURE HAH WITH ALEF MAKSURA FINAL FORM
+0FD1C	ARABIC LIGATURE HAH WITH YEH FINAL FORM
+0FD1D	ARABIC LIGATURE JEEM WITH ALEF MAKSURA FINAL FORM
+0FD1E	ARABIC LIGATURE JEEM WITH YEH FINAL FORM
+0FD1F	ARABIC LIGATURE KHAH WITH ALEF MAKSURA FINAL FORM
+0FD20	ARABIC LIGATURE KHAH WITH YEH FINAL FORM
+0FD21	ARABIC LIGATURE SAD WITH ALEF MAKSURA FINAL FORM
+0FD22	ARABIC LIGATURE SAD WITH YEH FINAL FORM
+0FD23	ARABIC LIGATURE DAD WITH ALEF MAKSURA FINAL FORM
+0FD24	ARABIC LIGATURE DAD WITH YEH FINAL FORM
+0FD25	ARABIC LIGATURE SHEEN WITH JEEM FINAL FORM
+0FD26	ARABIC LIGATURE SHEEN WITH HAH FINAL FORM
+0FD27	ARABIC LIGATURE SHEEN WITH KHAH FINAL FORM
+0FD28	ARABIC LIGATURE SHEEN WITH MEEM FINAL FORM
+0FD29	ARABIC LIGATURE SHEEN WITH REH FINAL FORM
+0FD2A	ARABIC LIGATURE SEEN WITH REH FINAL FORM
+0FD2B	ARABIC LIGATURE SAD WITH REH FINAL FORM
+0FD2C	ARABIC LIGATURE DAD WITH REH FINAL FORM
+0FD2D	ARABIC LIGATURE SHEEN WITH JEEM INITIAL FORM
+0FD2E	ARABIC LIGATURE SHEEN WITH HAH INITIAL FORM
+0FD2F	ARABIC LIGATURE SHEEN WITH KHAH INITIAL FORM
+0FD30	ARABIC LIGATURE SHEEN WITH MEEM INITIAL FORM
+0FD31	ARABIC LIGATURE SEEN WITH HEH INITIAL FORM
+0FD32	ARABIC LIGATURE SHEEN WITH HEH INITIAL FORM
+0FD33	ARABIC LIGATURE TAH WITH MEEM INITIAL FORM
+0FD34	ARABIC LIGATURE SEEN WITH JEEM MEDIAL FORM
+0FD35	ARABIC LIGATURE SEEN WITH HAH MEDIAL FORM
+0FD36	ARABIC LIGATURE SEEN WITH KHAH MEDIAL FORM
+0FD37	ARABIC LIGATURE SHEEN WITH JEEM MEDIAL FORM
+0FD38	ARABIC LIGATURE SHEEN WITH HAH MEDIAL FORM
+0FD39	ARABIC LIGATURE SHEEN WITH KHAH MEDIAL FORM
+0FD3A	ARABIC LIGATURE TAH WITH MEEM MEDIAL FORM
+0FD3B	ARABIC LIGATURE ZAH WITH MEEM MEDIAL FORM
+0FD3C	ARABIC LIGATURE ALEF WITH FATHATAN FINAL FORM
+0FD3D	ARABIC LIGATURE ALEF WITH FATHATAN ISOLATED FORM
+0FD3E	ORNATE LEFT PARENTHESIS
+0FD3F	ORNATE RIGHT PARENTHESIS
+0FD50	ARABIC LIGATURE TEH WITH JEEM WITH MEEM INITIAL FORM
+0FD51	ARABIC LIGATURE TEH WITH HAH WITH JEEM FINAL FORM
+0FD52	ARABIC LIGATURE TEH WITH HAH WITH JEEM INITIAL FORM
+0FD53	ARABIC LIGATURE TEH WITH HAH WITH MEEM INITIAL FORM
+0FD54	ARABIC LIGATURE TEH WITH KHAH WITH MEEM INITIAL FORM
+0FD55	ARABIC LIGATURE TEH WITH MEEM WITH JEEM INITIAL FORM
+0FD56	ARABIC LIGATURE TEH WITH MEEM WITH HAH INITIAL FORM
+0FD57	ARABIC LIGATURE TEH WITH MEEM WITH KHAH INITIAL FORM
+0FD58	ARABIC LIGATURE JEEM WITH MEEM WITH HAH FINAL FORM
+0FD59	ARABIC LIGATURE JEEM WITH MEEM WITH HAH INITIAL FORM
+0FD5A	ARABIC LIGATURE HAH WITH MEEM WITH YEH FINAL FORM
+0FD5B	ARABIC LIGATURE HAH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD5C	ARABIC LIGATURE SEEN WITH HAH WITH JEEM INITIAL FORM
+0FD5D	ARABIC LIGATURE SEEN WITH JEEM WITH HAH INITIAL FORM
+0FD5E	ARABIC LIGATURE SEEN WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FD5F	ARABIC LIGATURE SEEN WITH MEEM WITH HAH FINAL FORM
+0FD60	ARABIC LIGATURE SEEN WITH MEEM WITH HAH INITIAL FORM
+0FD61	ARABIC LIGATURE SEEN WITH MEEM WITH JEEM INITIAL FORM
+0FD62	ARABIC LIGATURE SEEN WITH MEEM WITH MEEM FINAL FORM
+0FD63	ARABIC LIGATURE SEEN WITH MEEM WITH MEEM INITIAL FORM
+0FD64	ARABIC LIGATURE SAD WITH HAH WITH HAH FINAL FORM
+0FD65	ARABIC LIGATURE SAD WITH HAH WITH HAH INITIAL FORM
+0FD66	ARABIC LIGATURE SAD WITH MEEM WITH MEEM FINAL FORM
+0FD67	ARABIC LIGATURE SHEEN WITH HAH WITH MEEM FINAL FORM
+0FD68	ARABIC LIGATURE SHEEN WITH HAH WITH MEEM INITIAL FORM
+0FD69	ARABIC LIGATURE SHEEN WITH JEEM WITH YEH FINAL FORM
+0FD6A	ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH FINAL FORM
+0FD6B	ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH INITIAL FORM
+0FD6C	ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM FINAL FORM
+0FD6D	ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM INITIAL FORM
+0FD6E	ARABIC LIGATURE DAD WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD6F	ARABIC LIGATURE DAD WITH KHAH WITH MEEM FINAL FORM
+0FD70	ARABIC LIGATURE DAD WITH KHAH WITH MEEM INITIAL FORM
+0FD71	ARABIC LIGATURE TAH WITH MEEM WITH HAH FINAL FORM
+0FD72	ARABIC LIGATURE TAH WITH MEEM WITH HAH INITIAL FORM
+0FD73	ARABIC LIGATURE TAH WITH MEEM WITH MEEM INITIAL FORM
+0FD74	ARABIC LIGATURE TAH WITH MEEM WITH YEH FINAL FORM
+0FD75	ARABIC LIGATURE AIN WITH JEEM WITH MEEM FINAL FORM
+0FD76	ARABIC LIGATURE AIN WITH MEEM WITH MEEM FINAL FORM
+0FD77	ARABIC LIGATURE AIN WITH MEEM WITH MEEM INITIAL FORM
+0FD78	ARABIC LIGATURE AIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD79	ARABIC LIGATURE GHAIN WITH MEEM WITH MEEM FINAL FORM
+0FD7A	ARABIC LIGATURE GHAIN WITH MEEM WITH YEH FINAL FORM
+0FD7B	ARABIC LIGATURE GHAIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD7C	ARABIC LIGATURE FEH WITH KHAH WITH MEEM FINAL FORM
+0FD7D	ARABIC LIGATURE FEH WITH KHAH WITH MEEM INITIAL FORM
+0FD7E	ARABIC LIGATURE QAF WITH MEEM WITH HAH FINAL FORM
+0FD7F	ARABIC LIGATURE QAF WITH MEEM WITH MEEM FINAL FORM
+0FD80	ARABIC LIGATURE LAM WITH HAH WITH MEEM FINAL FORM
+0FD81	ARABIC LIGATURE LAM WITH HAH WITH YEH FINAL FORM
+0FD82	ARABIC LIGATURE LAM WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD83	ARABIC LIGATURE LAM WITH JEEM WITH JEEM INITIAL FORM
+0FD84	ARABIC LIGATURE LAM WITH JEEM WITH JEEM FINAL FORM
+0FD85	ARABIC LIGATURE LAM WITH KHAH WITH MEEM FINAL FORM
+0FD86	ARABIC LIGATURE LAM WITH KHAH WITH MEEM INITIAL FORM
+0FD87	ARABIC LIGATURE LAM WITH MEEM WITH HAH FINAL FORM
+0FD88	ARABIC LIGATURE LAM WITH MEEM WITH HAH INITIAL FORM
+0FD89	ARABIC LIGATURE MEEM WITH HAH WITH JEEM INITIAL FORM
+0FD8A	ARABIC LIGATURE MEEM WITH HAH WITH MEEM INITIAL FORM
+0FD8B	ARABIC LIGATURE MEEM WITH HAH WITH YEH FINAL FORM
+0FD8C	ARABIC LIGATURE MEEM WITH JEEM WITH HAH INITIAL FORM
+0FD8D	ARABIC LIGATURE MEEM WITH JEEM WITH MEEM INITIAL FORM
+0FD8E	ARABIC LIGATURE MEEM WITH KHAH WITH JEEM INITIAL FORM
+0FD8F	ARABIC LIGATURE MEEM WITH KHAH WITH MEEM INITIAL FORM
+0FD92	ARABIC LIGATURE MEEM WITH JEEM WITH KHAH INITIAL FORM
+0FD93	ARABIC LIGATURE HEH WITH MEEM WITH JEEM INITIAL FORM
+0FD94	ARABIC LIGATURE HEH WITH MEEM WITH MEEM INITIAL FORM
+0FD95	ARABIC LIGATURE NOON WITH HAH WITH MEEM INITIAL FORM
+0FD96	ARABIC LIGATURE NOON WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD97	ARABIC LIGATURE NOON WITH JEEM WITH MEEM FINAL FORM
+0FD98	ARABIC LIGATURE NOON WITH JEEM WITH MEEM INITIAL FORM
+0FD99	ARABIC LIGATURE NOON WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FD9A	ARABIC LIGATURE NOON WITH MEEM WITH YEH FINAL FORM
+0FD9B	ARABIC LIGATURE NOON WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD9C	ARABIC LIGATURE YEH WITH MEEM WITH MEEM FINAL FORM
+0FD9D	ARABIC LIGATURE YEH WITH MEEM WITH MEEM INITIAL FORM
+0FD9E	ARABIC LIGATURE BEH WITH KHAH WITH YEH FINAL FORM
+0FD9F	ARABIC LIGATURE TEH WITH JEEM WITH YEH FINAL FORM
+0FDA0	ARABIC LIGATURE TEH WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FDA1	ARABIC LIGATURE TEH WITH KHAH WITH YEH FINAL FORM
+0FDA2	ARABIC LIGATURE TEH WITH KHAH WITH ALEF MAKSURA FINAL FORM
+0FDA3	ARABIC LIGATURE TEH WITH MEEM WITH YEH FINAL FORM
+0FDA4	ARABIC LIGATURE TEH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FDA5	ARABIC LIGATURE JEEM WITH MEEM WITH YEH FINAL FORM
+0FDA6	ARABIC LIGATURE JEEM WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FDA7	ARABIC LIGATURE JEEM WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FDA8	ARABIC LIGATURE SEEN WITH KHAH WITH ALEF MAKSURA FINAL FORM
+0FDA9	ARABIC LIGATURE SAD WITH HAH WITH YEH FINAL FORM
+0FDAA	ARABIC LIGATURE SHEEN WITH HAH WITH YEH FINAL FORM
+0FDAB	ARABIC LIGATURE DAD WITH HAH WITH YEH FINAL FORM
+0FDAC	ARABIC LIGATURE LAM WITH JEEM WITH YEH FINAL FORM
+0FDAD	ARABIC LIGATURE LAM WITH MEEM WITH YEH FINAL FORM
+0FDAE	ARABIC LIGATURE YEH WITH HAH WITH YEH FINAL FORM
+0FDAF	ARABIC LIGATURE YEH WITH JEEM WITH YEH FINAL FORM
+0FDB0	ARABIC LIGATURE YEH WITH MEEM WITH YEH FINAL FORM
+0FDB1	ARABIC LIGATURE MEEM WITH MEEM WITH YEH FINAL FORM
+0FDB2	ARABIC LIGATURE QAF WITH MEEM WITH YEH FINAL FORM
+0FDB3	ARABIC LIGATURE NOON WITH HAH WITH YEH FINAL FORM
+0FDB4	ARABIC LIGATURE QAF WITH MEEM WITH HAH INITIAL FORM
+0FDB5	ARABIC LIGATURE LAM WITH HAH WITH MEEM INITIAL FORM
+0FDB6	ARABIC LIGATURE AIN WITH MEEM WITH YEH FINAL FORM
+0FDB7	ARABIC LIGATURE KAF WITH MEEM WITH YEH FINAL FORM
+0FDB8	ARABIC LIGATURE NOON WITH JEEM WITH HAH INITIAL FORM
+0FDB9	ARABIC LIGATURE MEEM WITH KHAH WITH YEH FINAL FORM
+0FDBA	ARABIC LIGATURE LAM WITH JEEM WITH MEEM INITIAL FORM
+0FDBB	ARABIC LIGATURE KAF WITH MEEM WITH MEEM FINAL FORM
+0FDBC	ARABIC LIGATURE LAM WITH JEEM WITH MEEM FINAL FORM
+0FDBD	ARABIC LIGATURE NOON WITH JEEM WITH HAH FINAL FORM
+0FDBE	ARABIC LIGATURE JEEM WITH HAH WITH YEH FINAL FORM
+0FDBF	ARABIC LIGATURE HAH WITH JEEM WITH YEH FINAL FORM
+0FDC0	ARABIC LIGATURE MEEM WITH JEEM WITH YEH FINAL FORM
+0FDC1	ARABIC LIGATURE FEH WITH MEEM WITH YEH FINAL FORM
+0FDC2	ARABIC LIGATURE BEH WITH HAH WITH YEH FINAL FORM
+0FDC3	ARABIC LIGATURE KAF WITH MEEM WITH MEEM INITIAL FORM
+0FDC4	ARABIC LIGATURE AIN WITH JEEM WITH MEEM INITIAL FORM
+0FDC5	ARABIC LIGATURE SAD WITH MEEM WITH MEEM INITIAL FORM
+0FDC6	ARABIC LIGATURE SEEN WITH KHAH WITH YEH FINAL FORM
+0FDC7	ARABIC LIGATURE NOON WITH JEEM WITH YEH FINAL FORM
+0FDF0	ARABIC LIGATURE SALLA USED AS KORANIC STOP SIGN ISOLATED FORM
+0FDF1	ARABIC LIGATURE QALA USED AS KORANIC STOP SIGN ISOLATED FORM
+0FDF2	ARABIC LIGATURE ALLAH ISOLATED FORM
+0FDF3	ARABIC LIGATURE AKBAR ISOLATED FORM
+0FDF4	ARABIC LIGATURE MOHAMMAD ISOLATED FORM
+0FDF5	ARABIC LIGATURE SALAM ISOLATED FORM
+0FDF6	ARABIC LIGATURE RASOUL ISOLATED FORM
+0FDF7	ARABIC LIGATURE ALAYHE ISOLATED FORM
+0FDF8	ARABIC LIGATURE WASALLAM ISOLATED FORM
+0FDF9	ARABIC LIGATURE SALLA ISOLATED FORM
+0FDFA	ARABIC LIGATURE SALLALLAHOU ALAYHE WASALLAM
+0FDFB	ARABIC LIGATURE JALLAJALALOUHOU
+0FDFC	RIAL SIGN
+0FDFD	ARABIC LIGATURE BISMILLAH AR-RAHMAN AR-RAHEEM
+0FE00	VARIATION SELECTOR-1
+0FE00	VS1
+0FE01	VARIATION SELECTOR-2
+0FE01	VS2
+0FE02	VARIATION SELECTOR-3
+0FE02	VS3
+0FE03	VARIATION SELECTOR-4
+0FE03	VS4
+0FE04	VARIATION SELECTOR-5
+0FE04	VS5
+0FE05	VARIATION SELECTOR-6
+0FE05	VS6
+0FE06	VARIATION SELECTOR-7
+0FE06	VS7
+0FE07	VARIATION SELECTOR-8
+0FE07	VS8
+0FE08	VARIATION SELECTOR-9
+0FE08	VS9
+0FE09	VARIATION SELECTOR-10
+0FE09	VS10
+0FE0A	VARIATION SELECTOR-11
+0FE0A	VS11
+0FE0B	VARIATION SELECTOR-12
+0FE0B	VS12
+0FE0C	VARIATION SELECTOR-13
+0FE0C	VS13
+0FE0D	VARIATION SELECTOR-14
+0FE0D	VS14
+0FE0E	VARIATION SELECTOR-15
+0FE0E	VS15
+0FE0F	VARIATION SELECTOR-16
+0FE0F	VS16
+0FE10	PRESENTATION FORM FOR VERTICAL COMMA
+0FE11	PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC COMMA
+0FE12	PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC FULL STOP
+0FE13	PRESENTATION FORM FOR VERTICAL COLON
+0FE14	PRESENTATION FORM FOR VERTICAL SEMICOLON
+0FE15	PRESENTATION FORM FOR VERTICAL EXCLAMATION MARK
+0FE16	PRESENTATION FORM FOR VERTICAL QUESTION MARK
+0FE17	PRESENTATION FORM FOR VERTICAL LEFT WHITE LENTICULAR BRACKET
+0FE18	PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET
+0FE18	PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRAKCET
+0FE19	PRESENTATION FORM FOR VERTICAL HORIZONTAL ELLIPSIS
+0FE20	COMBINING LIGATURE LEFT HALF
+0FE21	COMBINING LIGATURE RIGHT HALF
+0FE22	COMBINING DOUBLE TILDE LEFT HALF
+0FE23	COMBINING DOUBLE TILDE RIGHT HALF
+0FE24	COMBINING MACRON LEFT HALF
+0FE25	COMBINING MACRON RIGHT HALF
+0FE26	COMBINING CONJOINING MACRON
+0FE27	COMBINING LIGATURE LEFT HALF BELOW
+0FE28	COMBINING LIGATURE RIGHT HALF BELOW
+0FE29	COMBINING TILDE LEFT HALF BELOW
+0FE2A	COMBINING TILDE RIGHT HALF BELOW
+0FE2B	COMBINING MACRON LEFT HALF BELOW
+0FE2C	COMBINING MACRON RIGHT HALF BELOW
+0FE2D	COMBINING CONJOINING MACRON BELOW
+0FE2E	COMBINING CYRILLIC TITLO LEFT HALF
+0FE2F	COMBINING CYRILLIC TITLO RIGHT HALF
+0FE30	PRESENTATION FORM FOR VERTICAL TWO DOT LEADER
+0FE31	PRESENTATION FORM FOR VERTICAL EM DASH
+0FE32	PRESENTATION FORM FOR VERTICAL EN DASH
+0FE33	PRESENTATION FORM FOR VERTICAL LOW LINE
+0FE34	PRESENTATION FORM FOR VERTICAL WAVY LOW LINE
+0FE35	PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS
+0FE36	PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS
+0FE37	PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
+0FE38	PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET
+0FE39	PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET
+0FE3A	PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET
+0FE3B	PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET
+0FE3C	PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET
+0FE3D	PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET
+0FE3E	PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET
+0FE3F	PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET
+0FE40	PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET
+0FE41	PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET
+0FE42	PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET
+0FE43	PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET
+0FE44	PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET
+0FE45	SESAME DOT
+0FE46	WHITE SESAME DOT
+0FE47	PRESENTATION FORM FOR VERTICAL LEFT SQUARE BRACKET
+0FE48	PRESENTATION FORM FOR VERTICAL RIGHT SQUARE BRACKET
+0FE49	DASHED OVERLINE
+0FE4A	CENTRELINE OVERLINE
+0FE4B	WAVY OVERLINE
+0FE4C	DOUBLE WAVY OVERLINE
+0FE4D	DASHED LOW LINE
+0FE4E	CENTRELINE LOW LINE
+0FE4F	WAVY LOW LINE
+0FE50	SMALL COMMA
+0FE51	SMALL IDEOGRAPHIC COMMA
+0FE52	SMALL FULL STOP
+0FE54	SMALL SEMICOLON
+0FE55	SMALL COLON
+0FE56	SMALL QUESTION MARK
+0FE57	SMALL EXCLAMATION MARK
+0FE58	SMALL EM DASH
+0FE59	SMALL LEFT PARENTHESIS
+0FE5A	SMALL RIGHT PARENTHESIS
+0FE5B	SMALL LEFT CURLY BRACKET
+0FE5C	SMALL RIGHT CURLY BRACKET
+0FE5D	SMALL LEFT TORTOISE SHELL BRACKET
+0FE5E	SMALL RIGHT TORTOISE SHELL BRACKET
+0FE5F	SMALL NUMBER SIGN
+0FE60	SMALL AMPERSAND
+0FE61	SMALL ASTERISK
+0FE62	SMALL PLUS SIGN
+0FE63	SMALL HYPHEN-MINUS
+0FE64	SMALL LESS-THAN SIGN
+0FE65	SMALL GREATER-THAN SIGN
+0FE66	SMALL EQUALS SIGN
+0FE68	SMALL REVERSE SOLIDUS
+0FE69	SMALL DOLLAR SIGN
+0FE6A	SMALL PERCENT SIGN
+0FE6B	SMALL COMMERCIAL AT
+0FE70	ARABIC FATHATAN ISOLATED FORM
+0FE71	ARABIC TATWEEL WITH FATHATAN ABOVE
+0FE72	ARABIC DAMMATAN ISOLATED FORM
+0FE73	ARABIC TAIL FRAGMENT
+0FE74	ARABIC KASRATAN ISOLATED FORM
+0FE76	ARABIC FATHA ISOLATED FORM
+0FE77	ARABIC FATHA MEDIAL FORM
+0FE78	ARABIC DAMMA ISOLATED FORM
+0FE79	ARABIC DAMMA MEDIAL FORM
+0FE7A	ARABIC KASRA ISOLATED FORM
+0FE7B	ARABIC KASRA MEDIAL FORM
+0FE7C	ARABIC SHADDA ISOLATED FORM
+0FE7D	ARABIC SHADDA MEDIAL FORM
+0FE7E	ARABIC SUKUN ISOLATED FORM
+0FE7F	ARABIC SUKUN MEDIAL FORM
+0FE80	ARABIC LETTER HAMZA ISOLATED FORM
+0FE81	ARABIC LETTER ALEF WITH MADDA ABOVE ISOLATED FORM
+0FE82	ARABIC LETTER ALEF WITH MADDA ABOVE FINAL FORM
+0FE83	ARABIC LETTER ALEF WITH HAMZA ABOVE ISOLATED FORM
+0FE84	ARABIC LETTER ALEF WITH HAMZA ABOVE FINAL FORM
+0FE85	ARABIC LETTER WAW WITH HAMZA ABOVE ISOLATED FORM
+0FE86	ARABIC LETTER WAW WITH HAMZA ABOVE FINAL FORM
+0FE87	ARABIC LETTER ALEF WITH HAMZA BELOW ISOLATED FORM
+0FE88	ARABIC LETTER ALEF WITH HAMZA BELOW FINAL FORM
+0FE89	ARABIC LETTER YEH WITH HAMZA ABOVE ISOLATED FORM
+0FE8A	ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM
+0FE8B	ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM
+0FE8C	ARABIC LETTER YEH WITH HAMZA ABOVE MEDIAL FORM
+0FE8D	ARABIC LETTER ALEF ISOLATED FORM
+0FE8E	ARABIC LETTER ALEF FINAL FORM
+0FE8F	ARABIC LETTER BEH ISOLATED FORM
+0FE90	ARABIC LETTER BEH FINAL FORM
+0FE91	ARABIC LETTER BEH INITIAL FORM
+0FE92	ARABIC LETTER BEH MEDIAL FORM
+0FE93	ARABIC LETTER TEH MARBUTA ISOLATED FORM
+0FE94	ARABIC LETTER TEH MARBUTA FINAL FORM
+0FE95	ARABIC LETTER TEH ISOLATED FORM
+0FE96	ARABIC LETTER TEH FINAL FORM
+0FE97	ARABIC LETTER TEH INITIAL FORM
+0FE98	ARABIC LETTER TEH MEDIAL FORM
+0FE99	ARABIC LETTER THEH ISOLATED FORM
+0FE9A	ARABIC LETTER THEH FINAL FORM
+0FE9B	ARABIC LETTER THEH INITIAL FORM
+0FE9C	ARABIC LETTER THEH MEDIAL FORM
+0FE9D	ARABIC LETTER JEEM ISOLATED FORM
+0FE9E	ARABIC LETTER JEEM FINAL FORM
+0FE9F	ARABIC LETTER JEEM INITIAL FORM
+0FEA0	ARABIC LETTER JEEM MEDIAL FORM
+0FEA1	ARABIC LETTER HAH ISOLATED FORM
+0FEA2	ARABIC LETTER HAH FINAL FORM
+0FEA3	ARABIC LETTER HAH INITIAL FORM
+0FEA4	ARABIC LETTER HAH MEDIAL FORM
+0FEA5	ARABIC LETTER KHAH ISOLATED FORM
+0FEA6	ARABIC LETTER KHAH FINAL FORM
+0FEA7	ARABIC LETTER KHAH INITIAL FORM
+0FEA8	ARABIC LETTER KHAH MEDIAL FORM
+0FEA9	ARABIC LETTER DAL ISOLATED FORM
+0FEAA	ARABIC LETTER DAL FINAL FORM
+0FEAB	ARABIC LETTER THAL ISOLATED FORM
+0FEAC	ARABIC LETTER THAL FINAL FORM
+0FEAD	ARABIC LETTER REH ISOLATED FORM
+0FEAE	ARABIC LETTER REH FINAL FORM
+0FEAF	ARABIC LETTER ZAIN ISOLATED FORM
+0FEB0	ARABIC LETTER ZAIN FINAL FORM
+0FEB1	ARABIC LETTER SEEN ISOLATED FORM
+0FEB2	ARABIC LETTER SEEN FINAL FORM
+0FEB3	ARABIC LETTER SEEN INITIAL FORM
+0FEB4	ARABIC LETTER SEEN MEDIAL FORM
+0FEB5	ARABIC LETTER SHEEN ISOLATED FORM
+0FEB6	ARABIC LETTER SHEEN FINAL FORM
+0FEB7	ARABIC LETTER SHEEN INITIAL FORM
+0FEB8	ARABIC LETTER SHEEN MEDIAL FORM
+0FEB9	ARABIC LETTER SAD ISOLATED FORM
+0FEBA	ARABIC LETTER SAD FINAL FORM
+0FEBB	ARABIC LETTER SAD INITIAL FORM
+0FEBC	ARABIC LETTER SAD MEDIAL FORM
+0FEBD	ARABIC LETTER DAD ISOLATED FORM
+0FEBE	ARABIC LETTER DAD FINAL FORM
+0FEBF	ARABIC LETTER DAD INITIAL FORM
+0FEC0	ARABIC LETTER DAD MEDIAL FORM
+0FEC1	ARABIC LETTER TAH ISOLATED FORM
+0FEC2	ARABIC LETTER TAH FINAL FORM
+0FEC3	ARABIC LETTER TAH INITIAL FORM
+0FEC4	ARABIC LETTER TAH MEDIAL FORM
+0FEC5	ARABIC LETTER ZAH ISOLATED FORM
+0FEC6	ARABIC LETTER ZAH FINAL FORM
+0FEC7	ARABIC LETTER ZAH INITIAL FORM
+0FEC8	ARABIC LETTER ZAH MEDIAL FORM
+0FEC9	ARABIC LETTER AIN ISOLATED FORM
+0FECA	ARABIC LETTER AIN FINAL FORM
+0FECB	ARABIC LETTER AIN INITIAL FORM
+0FECC	ARABIC LETTER AIN MEDIAL FORM
+0FECD	ARABIC LETTER GHAIN ISOLATED FORM
+0FECE	ARABIC LETTER GHAIN FINAL FORM
+0FECF	ARABIC LETTER GHAIN INITIAL FORM
+0FED0	ARABIC LETTER GHAIN MEDIAL FORM
+0FED1	ARABIC LETTER FEH ISOLATED FORM
+0FED2	ARABIC LETTER FEH FINAL FORM
+0FED3	ARABIC LETTER FEH INITIAL FORM
+0FED4	ARABIC LETTER FEH MEDIAL FORM
+0FED5	ARABIC LETTER QAF ISOLATED FORM
+0FED6	ARABIC LETTER QAF FINAL FORM
+0FED7	ARABIC LETTER QAF INITIAL FORM
+0FED8	ARABIC LETTER QAF MEDIAL FORM
+0FED9	ARABIC LETTER KAF ISOLATED FORM
+0FEDA	ARABIC LETTER KAF FINAL FORM
+0FEDB	ARABIC LETTER KAF INITIAL FORM
+0FEDC	ARABIC LETTER KAF MEDIAL FORM
+0FEDD	ARABIC LETTER LAM ISOLATED FORM
+0FEDE	ARABIC LETTER LAM FINAL FORM
+0FEDF	ARABIC LETTER LAM INITIAL FORM
+0FEE0	ARABIC LETTER LAM MEDIAL FORM
+0FEE1	ARABIC LETTER MEEM ISOLATED FORM
+0FEE2	ARABIC LETTER MEEM FINAL FORM
+0FEE3	ARABIC LETTER MEEM INITIAL FORM
+0FEE4	ARABIC LETTER MEEM MEDIAL FORM
+0FEE5	ARABIC LETTER NOON ISOLATED FORM
+0FEE6	ARABIC LETTER NOON FINAL FORM
+0FEE7	ARABIC LETTER NOON INITIAL FORM
+0FEE8	ARABIC LETTER NOON MEDIAL FORM
+0FEE9	ARABIC LETTER HEH ISOLATED FORM
+0FEEA	ARABIC LETTER HEH FINAL FORM
+0FEEB	ARABIC LETTER HEH INITIAL FORM
+0FEEC	ARABIC LETTER HEH MEDIAL FORM
+0FEED	ARABIC LETTER WAW ISOLATED FORM
+0FEEE	ARABIC LETTER WAW FINAL FORM
+0FEEF	ARABIC LETTER ALEF MAKSURA ISOLATED FORM
+0FEF0	ARABIC LETTER ALEF MAKSURA FINAL FORM
+0FEF1	ARABIC LETTER YEH ISOLATED FORM
+0FEF2	ARABIC LETTER YEH FINAL FORM
+0FEF3	ARABIC LETTER YEH INITIAL FORM
+0FEF4	ARABIC LETTER YEH MEDIAL FORM
+0FEF5	ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE ISOLATED FORM
+0FEF6	ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE FINAL FORM
+0FEF7	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE ISOLATED FORM
+0FEF8	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE FINAL FORM
+0FEF9	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW ISOLATED FORM
+0FEFA	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW FINAL FORM
+0FEFB	ARABIC LIGATURE LAM WITH ALEF ISOLATED FORM
+0FEFC	ARABIC LIGATURE LAM WITH ALEF FINAL FORM
+0FEFF	ZERO WIDTH NO-BREAK SPACE
+0FEFF	BYTE ORDER MARK
+0FEFF	BOM
+0FEFF	ZWNBSP
+0FF01	FULLWIDTH EXCLAMATION MARK
+0FF02	FULLWIDTH QUOTATION MARK
+0FF03	FULLWIDTH NUMBER SIGN
+0FF04	FULLWIDTH DOLLAR SIGN
+0FF05	FULLWIDTH PERCENT SIGN
+0FF06	FULLWIDTH AMPERSAND
+0FF07	FULLWIDTH APOSTROPHE
+0FF08	FULLWIDTH LEFT PARENTHESIS
+0FF09	FULLWIDTH RIGHT PARENTHESIS
+0FF0A	FULLWIDTH ASTERISK
+0FF0B	FULLWIDTH PLUS SIGN
+0FF0C	FULLWIDTH COMMA
+0FF0D	FULLWIDTH HYPHEN-MINUS
+0FF0E	FULLWIDTH FULL STOP
+0FF0F	FULLWIDTH SOLIDUS
+0FF10	FULLWIDTH DIGIT ZERO
+0FF11	FULLWIDTH DIGIT ONE
+0FF12	FULLWIDTH DIGIT TWO
+0FF13	FULLWIDTH DIGIT THREE
+0FF14	FULLWIDTH DIGIT FOUR
+0FF15	FULLWIDTH DIGIT FIVE
+0FF16	FULLWIDTH DIGIT SIX
+0FF17	FULLWIDTH DIGIT SEVEN
+0FF18	FULLWIDTH DIGIT EIGHT
+0FF19	FULLWIDTH DIGIT NINE
+0FF1A	FULLWIDTH COLON
+0FF1B	FULLWIDTH SEMICOLON
+0FF1C	FULLWIDTH LESS-THAN SIGN
+0FF1D	FULLWIDTH EQUALS SIGN
+0FF1E	FULLWIDTH GREATER-THAN SIGN
+0FF1F	FULLWIDTH QUESTION MARK
+0FF20	FULLWIDTH COMMERCIAL AT
+0FF21	FULLWIDTH LATIN CAPITAL LETTER A
+0FF22	FULLWIDTH LATIN CAPITAL LETTER B
+0FF23	FULLWIDTH LATIN CAPITAL LETTER C
+0FF24	FULLWIDTH LATIN CAPITAL LETTER D
+0FF25	FULLWIDTH LATIN CAPITAL LETTER E
+0FF26	FULLWIDTH LATIN CAPITAL LETTER F
+0FF27	FULLWIDTH LATIN CAPITAL LETTER G
+0FF28	FULLWIDTH LATIN CAPITAL LETTER H
+0FF29	FULLWIDTH LATIN CAPITAL LETTER I
+0FF2A	FULLWIDTH LATIN CAPITAL LETTER J
+0FF2B	FULLWIDTH LATIN CAPITAL LETTER K
+0FF2C	FULLWIDTH LATIN CAPITAL LETTER L
+0FF2D	FULLWIDTH LATIN CAPITAL LETTER M
+0FF2E	FULLWIDTH LATIN CAPITAL LETTER N
+0FF2F	FULLWIDTH LATIN CAPITAL LETTER O
+0FF30	FULLWIDTH LATIN CAPITAL LETTER P
+0FF31	FULLWIDTH LATIN CAPITAL LETTER Q
+0FF32	FULLWIDTH LATIN CAPITAL LETTER R
+0FF33	FULLWIDTH LATIN CAPITAL LETTER S
+0FF34	FULLWIDTH LATIN CAPITAL LETTER T
+0FF35	FULLWIDTH LATIN CAPITAL LETTER U
+0FF36	FULLWIDTH LATIN CAPITAL LETTER V
+0FF37	FULLWIDTH LATIN CAPITAL LETTER W
+0FF38	FULLWIDTH LATIN CAPITAL LETTER X
+0FF39	FULLWIDTH LATIN CAPITAL LETTER Y
+0FF3A	FULLWIDTH LATIN CAPITAL LETTER Z
+0FF3B	FULLWIDTH LEFT SQUARE BRACKET
+0FF3C	FULLWIDTH REVERSE SOLIDUS
+0FF3D	FULLWIDTH RIGHT SQUARE BRACKET
+0FF3E	FULLWIDTH CIRCUMFLEX ACCENT
+0FF3F	FULLWIDTH LOW LINE
+0FF40	FULLWIDTH GRAVE ACCENT
+0FF41	FULLWIDTH LATIN SMALL LETTER A
+0FF42	FULLWIDTH LATIN SMALL LETTER B
+0FF43	FULLWIDTH LATIN SMALL LETTER C
+0FF44	FULLWIDTH LATIN SMALL LETTER D
+0FF45	FULLWIDTH LATIN SMALL LETTER E
+0FF46	FULLWIDTH LATIN SMALL LETTER F
+0FF47	FULLWIDTH LATIN SMALL LETTER G
+0FF48	FULLWIDTH LATIN SMALL LETTER H
+0FF49	FULLWIDTH LATIN SMALL LETTER I
+0FF4A	FULLWIDTH LATIN SMALL LETTER J
+0FF4B	FULLWIDTH LATIN SMALL LETTER K
+0FF4C	FULLWIDTH LATIN SMALL LETTER L
+0FF4D	FULLWIDTH LATIN SMALL LETTER M
+0FF4E	FULLWIDTH LATIN SMALL LETTER N
+0FF4F	FULLWIDTH LATIN SMALL LETTER O
+0FF50	FULLWIDTH LATIN SMALL LETTER P
+0FF51	FULLWIDTH LATIN SMALL LETTER Q
+0FF52	FULLWIDTH LATIN SMALL LETTER R
+0FF53	FULLWIDTH LATIN SMALL LETTER S
+0FF54	FULLWIDTH LATIN SMALL LETTER T
+0FF55	FULLWIDTH LATIN SMALL LETTER U
+0FF56	FULLWIDTH LATIN SMALL LETTER V
+0FF57	FULLWIDTH LATIN SMALL LETTER W
+0FF58	FULLWIDTH LATIN SMALL LETTER X
+0FF59	FULLWIDTH LATIN SMALL LETTER Y
+0FF5A	FULLWIDTH LATIN SMALL LETTER Z
+0FF5B	FULLWIDTH LEFT CURLY BRACKET
+0FF5C	FULLWIDTH VERTICAL LINE
+0FF5D	FULLWIDTH RIGHT CURLY BRACKET
+0FF5E	FULLWIDTH TILDE
+0FF5F	FULLWIDTH LEFT WHITE PARENTHESIS
+0FF60	FULLWIDTH RIGHT WHITE PARENTHESIS
+0FF61	HALFWIDTH IDEOGRAPHIC FULL STOP
+0FF62	HALFWIDTH LEFT CORNER BRACKET
+0FF63	HALFWIDTH RIGHT CORNER BRACKET
+0FF64	HALFWIDTH IDEOGRAPHIC COMMA
+0FF65	HALFWIDTH KATAKANA MIDDLE DOT
+0FF66	HALFWIDTH KATAKANA LETTER WO
+0FF67	HALFWIDTH KATAKANA LETTER SMALL A
+0FF68	HALFWIDTH KATAKANA LETTER SMALL I
+0FF69	HALFWIDTH KATAKANA LETTER SMALL U
+0FF6A	HALFWIDTH KATAKANA LETTER SMALL E
+0FF6B	HALFWIDTH KATAKANA LETTER SMALL O
+0FF6C	HALFWIDTH KATAKANA LETTER SMALL YA
+0FF6D	HALFWIDTH KATAKANA LETTER SMALL YU
+0FF6E	HALFWIDTH KATAKANA LETTER SMALL YO
+0FF6F	HALFWIDTH KATAKANA LETTER SMALL TU
+0FF70	HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
+0FF71	HALFWIDTH KATAKANA LETTER A
+0FF72	HALFWIDTH KATAKANA LETTER I
+0FF73	HALFWIDTH KATAKANA LETTER U
+0FF74	HALFWIDTH KATAKANA LETTER E
+0FF75	HALFWIDTH KATAKANA LETTER O
+0FF76	HALFWIDTH KATAKANA LETTER KA
+0FF77	HALFWIDTH KATAKANA LETTER KI
+0FF78	HALFWIDTH KATAKANA LETTER KU
+0FF79	HALFWIDTH KATAKANA LETTER KE
+0FF7A	HALFWIDTH KATAKANA LETTER KO
+0FF7B	HALFWIDTH KATAKANA LETTER SA
+0FF7C	HALFWIDTH KATAKANA LETTER SI
+0FF7D	HALFWIDTH KATAKANA LETTER SU
+0FF7E	HALFWIDTH KATAKANA LETTER SE
+0FF7F	HALFWIDTH KATAKANA LETTER SO
+0FF80	HALFWIDTH KATAKANA LETTER TA
+0FF81	HALFWIDTH KATAKANA LETTER TI
+0FF82	HALFWIDTH KATAKANA LETTER TU
+0FF83	HALFWIDTH KATAKANA LETTER TE
+0FF84	HALFWIDTH KATAKANA LETTER TO
+0FF85	HALFWIDTH KATAKANA LETTER NA
+0FF86	HALFWIDTH KATAKANA LETTER NI
+0FF87	HALFWIDTH KATAKANA LETTER NU
+0FF88	HALFWIDTH KATAKANA LETTER NE
+0FF89	HALFWIDTH KATAKANA LETTER NO
+0FF8A	HALFWIDTH KATAKANA LETTER HA
+0FF8B	HALFWIDTH KATAKANA LETTER HI
+0FF8C	HALFWIDTH KATAKANA LETTER HU
+0FF8D	HALFWIDTH KATAKANA LETTER HE
+0FF8E	HALFWIDTH KATAKANA LETTER HO
+0FF8F	HALFWIDTH KATAKANA LETTER MA
+0FF90	HALFWIDTH KATAKANA LETTER MI
+0FF91	HALFWIDTH KATAKANA LETTER MU
+0FF92	HALFWIDTH KATAKANA LETTER ME
+0FF93	HALFWIDTH KATAKANA LETTER MO
+0FF94	HALFWIDTH KATAKANA LETTER YA
+0FF95	HALFWIDTH KATAKANA LETTER YU
+0FF96	HALFWIDTH KATAKANA LETTER YO
+0FF97	HALFWIDTH KATAKANA LETTER RA
+0FF98	HALFWIDTH KATAKANA LETTER RI
+0FF99	HALFWIDTH KATAKANA LETTER RU
+0FF9A	HALFWIDTH KATAKANA LETTER RE
+0FF9B	HALFWIDTH KATAKANA LETTER RO
+0FF9C	HALFWIDTH KATAKANA LETTER WA
+0FF9D	HALFWIDTH KATAKANA LETTER N
+0FF9E	HALFWIDTH KATAKANA VOICED SOUND MARK
+0FF9F	HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
+0FFA0	HALFWIDTH HANGUL FILLER
+0FFA1	HALFWIDTH HANGUL LETTER KIYEOK
+0FFA2	HALFWIDTH HANGUL LETTER SSANGKIYEOK
+0FFA3	HALFWIDTH HANGUL LETTER KIYEOK-SIOS
+0FFA4	HALFWIDTH HANGUL LETTER NIEUN
+0FFA5	HALFWIDTH HANGUL LETTER NIEUN-CIEUC
+0FFA6	HALFWIDTH HANGUL LETTER NIEUN-HIEUH
+0FFA7	HALFWIDTH HANGUL LETTER TIKEUT
+0FFA8	HALFWIDTH HANGUL LETTER SSANGTIKEUT
+0FFA9	HALFWIDTH HANGUL LETTER RIEUL
+0FFAA	HALFWIDTH HANGUL LETTER RIEUL-KIYEOK
+0FFAB	HALFWIDTH HANGUL LETTER RIEUL-MIEUM
+0FFAC	HALFWIDTH HANGUL LETTER RIEUL-PIEUP
+0FFAD	HALFWIDTH HANGUL LETTER RIEUL-SIOS
+0FFAE	HALFWIDTH HANGUL LETTER RIEUL-THIEUTH
+0FFAF	HALFWIDTH HANGUL LETTER RIEUL-PHIEUPH
+0FFB0	HALFWIDTH HANGUL LETTER RIEUL-HIEUH
+0FFB1	HALFWIDTH HANGUL LETTER MIEUM
+0FFB2	HALFWIDTH HANGUL LETTER PIEUP
+0FFB3	HALFWIDTH HANGUL LETTER SSANGPIEUP
+0FFB4	HALFWIDTH HANGUL LETTER PIEUP-SIOS
+0FFB5	HALFWIDTH HANGUL LETTER SIOS
+0FFB6	HALFWIDTH HANGUL LETTER SSANGSIOS
+0FFB7	HALFWIDTH HANGUL LETTER IEUNG
+0FFB8	HALFWIDTH HANGUL LETTER CIEUC
+0FFB9	HALFWIDTH HANGUL LETTER SSANGCIEUC
+0FFBA	HALFWIDTH HANGUL LETTER CHIEUCH
+0FFBB	HALFWIDTH HANGUL LETTER KHIEUKH
+0FFBC	HALFWIDTH HANGUL LETTER THIEUTH
+0FFBD	HALFWIDTH HANGUL LETTER PHIEUPH
+0FFBE	HALFWIDTH HANGUL LETTER HIEUH
+0FFC2	HALFWIDTH HANGUL LETTER A
+0FFC3	HALFWIDTH HANGUL LETTER AE
+0FFC4	HALFWIDTH HANGUL LETTER YA
+0FFC5	HALFWIDTH HANGUL LETTER YAE
+0FFC6	HALFWIDTH HANGUL LETTER EO
+0FFC7	HALFWIDTH HANGUL LETTER E
+0FFCA	HALFWIDTH HANGUL LETTER YEO
+0FFCB	HALFWIDTH HANGUL LETTER YE
+0FFCC	HALFWIDTH HANGUL LETTER O
+0FFCD	HALFWIDTH HANGUL LETTER WA
+0FFCE	HALFWIDTH HANGUL LETTER WAE
+0FFCF	HALFWIDTH HANGUL LETTER OE
+0FFD2	HALFWIDTH HANGUL LETTER YO
+0FFD3	HALFWIDTH HANGUL LETTER U
+0FFD4	HALFWIDTH HANGUL LETTER WEO
+0FFD5	HALFWIDTH HANGUL LETTER WE
+0FFD6	HALFWIDTH HANGUL LETTER WI
+0FFD7	HALFWIDTH HANGUL LETTER YU
+0FFDA	HALFWIDTH HANGUL LETTER EU
+0FFDB	HALFWIDTH HANGUL LETTER YI
+0FFDC	HALFWIDTH HANGUL LETTER I
+0FFE0	FULLWIDTH CENT SIGN
+0FFE1	FULLWIDTH POUND SIGN
+0FFE2	FULLWIDTH NOT SIGN
+0FFE3	FULLWIDTH MACRON
+0FFE4	FULLWIDTH BROKEN BAR
+0FFE5	FULLWIDTH YEN SIGN
+0FFE6	FULLWIDTH WON SIGN
+0FFE8	HALFWIDTH FORMS LIGHT VERTICAL
+0FFE9	HALFWIDTH LEFTWARDS ARROW
+0FFEA	HALFWIDTH UPWARDS ARROW
+0FFEB	HALFWIDTH RIGHTWARDS ARROW
+0FFEC	HALFWIDTH DOWNWARDS ARROW
+0FFED	HALFWIDTH BLACK SQUARE
+0FFEE	HALFWIDTH WHITE CIRCLE
+0FFF9	INTERLINEAR ANNOTATION ANCHOR
+0FFFA	INTERLINEAR ANNOTATION SEPARATOR
+0FFFB	INTERLINEAR ANNOTATION TERMINATOR
+0FFFC	OBJECT REPLACEMENT CHARACTER
+0FFFD	REPLACEMENT CHARACTER
+10000	LINEAR B SYLLABLE B008 A
+10001	LINEAR B SYLLABLE B038 E
+10002	LINEAR B SYLLABLE B028 I
+10003	LINEAR B SYLLABLE B061 O
+10004	LINEAR B SYLLABLE B010 U
+10005	LINEAR B SYLLABLE B001 DA
+10006	LINEAR B SYLLABLE B045 DE
+10007	LINEAR B SYLLABLE B007 DI
+10008	LINEAR B SYLLABLE B014 DO
+10009	LINEAR B SYLLABLE B051 DU
+1000A	LINEAR B SYLLABLE B057 JA
+1000B	LINEAR B SYLLABLE B046 JE
+1000D	LINEAR B SYLLABLE B036 JO
+1000E	LINEAR B SYLLABLE B065 JU
+1000F	LINEAR B SYLLABLE B077 KA
+10010	LINEAR B SYLLABLE B044 KE
+10011	LINEAR B SYLLABLE B067 KI
+10012	LINEAR B SYLLABLE B070 KO
+10013	LINEAR B SYLLABLE B081 KU
+10014	LINEAR B SYLLABLE B080 MA
+10015	LINEAR B SYLLABLE B013 ME
+10016	LINEAR B SYLLABLE B073 MI
+10017	LINEAR B SYLLABLE B015 MO
+10018	LINEAR B SYLLABLE B023 MU
+10019	LINEAR B SYLLABLE B006 NA
+1001A	LINEAR B SYLLABLE B024 NE
+1001B	LINEAR B SYLLABLE B030 NI
+1001C	LINEAR B SYLLABLE B052 NO
+1001D	LINEAR B SYLLABLE B055 NU
+1001E	LINEAR B SYLLABLE B003 PA
+1001F	LINEAR B SYLLABLE B072 PE
+10020	LINEAR B SYLLABLE B039 PI
+10021	LINEAR B SYLLABLE B011 PO
+10022	LINEAR B SYLLABLE B050 PU
+10023	LINEAR B SYLLABLE B016 QA
+10024	LINEAR B SYLLABLE B078 QE
+10025	LINEAR B SYLLABLE B021 QI
+10026	LINEAR B SYLLABLE B032 QO
+10028	LINEAR B SYLLABLE B060 RA
+10029	LINEAR B SYLLABLE B027 RE
+1002A	LINEAR B SYLLABLE B053 RI
+1002B	LINEAR B SYLLABLE B002 RO
+1002C	LINEAR B SYLLABLE B026 RU
+1002D	LINEAR B SYLLABLE B031 SA
+1002E	LINEAR B SYLLABLE B009 SE
+1002F	LINEAR B SYLLABLE B041 SI
+10030	LINEAR B SYLLABLE B012 SO
+10031	LINEAR B SYLLABLE B058 SU
+10032	LINEAR B SYLLABLE B059 TA
+10033	LINEAR B SYLLABLE B004 TE
+10034	LINEAR B SYLLABLE B037 TI
+10035	LINEAR B SYLLABLE B005 TO
+10036	LINEAR B SYLLABLE B069 TU
+10037	LINEAR B SYLLABLE B054 WA
+10038	LINEAR B SYLLABLE B075 WE
+10039	LINEAR B SYLLABLE B040 WI
+1003A	LINEAR B SYLLABLE B042 WO
+1003C	LINEAR B SYLLABLE B017 ZA
+1003D	LINEAR B SYLLABLE B074 ZE
+1003F	LINEAR B SYLLABLE B020 ZO
+10040	LINEAR B SYLLABLE B025 A2
+10041	LINEAR B SYLLABLE B043 A3
+10042	LINEAR B SYLLABLE B085 AU
+10043	LINEAR B SYLLABLE B071 DWE
+10044	LINEAR B SYLLABLE B090 DWO
+10045	LINEAR B SYLLABLE B048 NWA
+10046	LINEAR B SYLLABLE B029 PU2
+10047	LINEAR B SYLLABLE B062 PTE
+10048	LINEAR B SYLLABLE B076 RA2
+10049	LINEAR B SYLLABLE B033 RA3
+1004A	LINEAR B SYLLABLE B068 RO2
+1004B	LINEAR B SYLLABLE B066 TA2
+1004C	LINEAR B SYLLABLE B087 TWE
+1004D	LINEAR B SYLLABLE B091 TWO
+10050	LINEAR B SYMBOL B018
+10051	LINEAR B SYMBOL B019
+10052	LINEAR B SYMBOL B022
+10053	LINEAR B SYMBOL B034
+10054	LINEAR B SYMBOL B047
+10055	LINEAR B SYMBOL B049
+10056	LINEAR B SYMBOL B056
+10057	LINEAR B SYMBOL B063
+10058	LINEAR B SYMBOL B064
+10059	LINEAR B SYMBOL B079
+1005A	LINEAR B SYMBOL B082
+1005B	LINEAR B SYMBOL B083
+1005C	LINEAR B SYMBOL B086
+1005D	LINEAR B SYMBOL B089
+10080	LINEAR B IDEOGRAM B100 MAN
+10081	LINEAR B IDEOGRAM B102 WOMAN
+10082	LINEAR B IDEOGRAM B104 DEER
+10083	LINEAR B IDEOGRAM B105 EQUID
+10084	LINEAR B IDEOGRAM B105F MARE
+10085	LINEAR B IDEOGRAM B105M STALLION
+10086	LINEAR B IDEOGRAM B106F EWE
+10087	LINEAR B IDEOGRAM B106M RAM
+10088	LINEAR B IDEOGRAM B107F SHE-GOAT
+10089	LINEAR B IDEOGRAM B107M HE-GOAT
+1008A	LINEAR B IDEOGRAM B108F SOW
+1008B	LINEAR B IDEOGRAM B108M BOAR
+1008C	LINEAR B IDEOGRAM B109F COW
+1008D	LINEAR B IDEOGRAM B109M BULL
+1008E	LINEAR B IDEOGRAM B120 WHEAT
+1008F	LINEAR B IDEOGRAM B121 BARLEY
+10090	LINEAR B IDEOGRAM B122 OLIVE
+10091	LINEAR B IDEOGRAM B123 SPICE
+10092	LINEAR B IDEOGRAM B125 CYPERUS
+10093	LINEAR B MONOGRAM B127 KAPO
+10094	LINEAR B MONOGRAM B128 KANAKO
+10095	LINEAR B IDEOGRAM B130 OIL
+10096	LINEAR B IDEOGRAM B131 WINE
+10097	LINEAR B IDEOGRAM B132
+10098	LINEAR B MONOGRAM B133 AREPA
+10099	LINEAR B MONOGRAM B135 MERI
+1009A	LINEAR B IDEOGRAM B140 BRONZE
+1009B	LINEAR B IDEOGRAM B141 GOLD
+1009C	LINEAR B IDEOGRAM B142
+1009D	LINEAR B IDEOGRAM B145 WOOL
+1009E	LINEAR B IDEOGRAM B146
+1009F	LINEAR B IDEOGRAM B150
+100A0	LINEAR B IDEOGRAM B151 HORN
+100A1	LINEAR B IDEOGRAM B152
+100A2	LINEAR B IDEOGRAM B153
+100A3	LINEAR B IDEOGRAM B154
+100A4	LINEAR B MONOGRAM B156 TURO2
+100A5	LINEAR B IDEOGRAM B157
+100A6	LINEAR B IDEOGRAM B158
+100A7	LINEAR B IDEOGRAM B159 CLOTH
+100A8	LINEAR B IDEOGRAM B160
+100A9	LINEAR B IDEOGRAM B161
+100AA	LINEAR B IDEOGRAM B162 GARMENT
+100AB	LINEAR B IDEOGRAM B163 ARMOUR
+100AC	LINEAR B IDEOGRAM B164
+100AD	LINEAR B IDEOGRAM B165
+100AE	LINEAR B IDEOGRAM B166
+100AF	LINEAR B IDEOGRAM B167
+100B0	LINEAR B IDEOGRAM B168
+100B1	LINEAR B IDEOGRAM B169
+100B2	LINEAR B IDEOGRAM B170
+100B3	LINEAR B IDEOGRAM B171
+100B4	LINEAR B IDEOGRAM B172
+100B5	LINEAR B IDEOGRAM B173 MONTH
+100B6	LINEAR B IDEOGRAM B174
+100B7	LINEAR B IDEOGRAM B176 TREE
+100B8	LINEAR B IDEOGRAM B177
+100B9	LINEAR B IDEOGRAM B178
+100BA	LINEAR B IDEOGRAM B179
+100BB	LINEAR B IDEOGRAM B180
+100BC	LINEAR B IDEOGRAM B181
+100BD	LINEAR B IDEOGRAM B182
+100BE	LINEAR B IDEOGRAM B183
+100BF	LINEAR B IDEOGRAM B184
+100C0	LINEAR B IDEOGRAM B185
+100C1	LINEAR B IDEOGRAM B189
+100C2	LINEAR B IDEOGRAM B190
+100C3	LINEAR B IDEOGRAM B191 HELMET
+100C4	LINEAR B IDEOGRAM B220 FOOTSTOOL
+100C5	LINEAR B IDEOGRAM B225 BATHTUB
+100C6	LINEAR B IDEOGRAM B230 SPEAR
+100C7	LINEAR B IDEOGRAM B231 ARROW
+100C8	LINEAR B IDEOGRAM B232
+100C9	LINEAR B IDEOGRAM B233 SWORD
+100CA	LINEAR B IDEOGRAM B234
+100CB	LINEAR B IDEOGRAM B236
+100CC	LINEAR B IDEOGRAM B240 WHEELED CHARIOT
+100CD	LINEAR B IDEOGRAM B241 CHARIOT
+100CE	LINEAR B IDEOGRAM B242 CHARIOT FRAME
+100CF	LINEAR B IDEOGRAM B243 WHEEL
+100D0	LINEAR B IDEOGRAM B245
+100D1	LINEAR B IDEOGRAM B246
+100D2	LINEAR B MONOGRAM B247 DIPTE
+100D3	LINEAR B IDEOGRAM B248
+100D4	LINEAR B IDEOGRAM B249
+100D5	LINEAR B IDEOGRAM B251
+100D6	LINEAR B IDEOGRAM B252
+100D7	LINEAR B IDEOGRAM B253
+100D8	LINEAR B IDEOGRAM B254 DART
+100D9	LINEAR B IDEOGRAM B255
+100DA	LINEAR B IDEOGRAM B256
+100DB	LINEAR B IDEOGRAM B257
+100DC	LINEAR B IDEOGRAM B258
+100DD	LINEAR B IDEOGRAM B259
+100DE	LINEAR B IDEOGRAM VESSEL B155
+100DF	LINEAR B IDEOGRAM VESSEL B200
+100E0	LINEAR B IDEOGRAM VESSEL B201
+100E1	LINEAR B IDEOGRAM VESSEL B202
+100E2	LINEAR B IDEOGRAM VESSEL B203
+100E3	LINEAR B IDEOGRAM VESSEL B204
+100E4	LINEAR B IDEOGRAM VESSEL B205
+100E5	LINEAR B IDEOGRAM VESSEL B206
+100E6	LINEAR B IDEOGRAM VESSEL B207
+100E7	LINEAR B IDEOGRAM VESSEL B208
+100E8	LINEAR B IDEOGRAM VESSEL B209
+100E9	LINEAR B IDEOGRAM VESSEL B210
+100EA	LINEAR B IDEOGRAM VESSEL B211
+100EB	LINEAR B IDEOGRAM VESSEL B212
+100EC	LINEAR B IDEOGRAM VESSEL B213
+100ED	LINEAR B IDEOGRAM VESSEL B214
+100EE	LINEAR B IDEOGRAM VESSEL B215
+100EF	LINEAR B IDEOGRAM VESSEL B216
+100F0	LINEAR B IDEOGRAM VESSEL B217
+100F1	LINEAR B IDEOGRAM VESSEL B218
+100F2	LINEAR B IDEOGRAM VESSEL B219
+100F3	LINEAR B IDEOGRAM VESSEL B221
+100F4	LINEAR B IDEOGRAM VESSEL B222
+100F5	LINEAR B IDEOGRAM VESSEL B226
+100F6	LINEAR B IDEOGRAM VESSEL B227
+100F7	LINEAR B IDEOGRAM VESSEL B228
+100F8	LINEAR B IDEOGRAM VESSEL B229
+100F9	LINEAR B IDEOGRAM VESSEL B250
+100FA	LINEAR B IDEOGRAM VESSEL B305
+10100	AEGEAN WORD SEPARATOR LINE
+10101	AEGEAN WORD SEPARATOR DOT
+10102	AEGEAN CHECK MARK
+10107	AEGEAN NUMBER ONE
+10108	AEGEAN NUMBER TWO
+10109	AEGEAN NUMBER THREE
+1010A	AEGEAN NUMBER FOUR
+1010B	AEGEAN NUMBER FIVE
+1010C	AEGEAN NUMBER SIX
+1010D	AEGEAN NUMBER SEVEN
+1010E	AEGEAN NUMBER EIGHT
+1010F	AEGEAN NUMBER NINE
+10110	AEGEAN NUMBER TEN
+10111	AEGEAN NUMBER TWENTY
+10112	AEGEAN NUMBER THIRTY
+10113	AEGEAN NUMBER FORTY
+10114	AEGEAN NUMBER FIFTY
+10115	AEGEAN NUMBER SIXTY
+10116	AEGEAN NUMBER SEVENTY
+10117	AEGEAN NUMBER EIGHTY
+10118	AEGEAN NUMBER NINETY
+10119	AEGEAN NUMBER ONE HUNDRED
+1011A	AEGEAN NUMBER TWO HUNDRED
+1011B	AEGEAN NUMBER THREE HUNDRED
+1011C	AEGEAN NUMBER FOUR HUNDRED
+1011D	AEGEAN NUMBER FIVE HUNDRED
+1011E	AEGEAN NUMBER SIX HUNDRED
+1011F	AEGEAN NUMBER SEVEN HUNDRED
+10120	AEGEAN NUMBER EIGHT HUNDRED
+10121	AEGEAN NUMBER NINE HUNDRED
+10122	AEGEAN NUMBER ONE THOUSAND
+10123	AEGEAN NUMBER TWO THOUSAND
+10124	AEGEAN NUMBER THREE THOUSAND
+10125	AEGEAN NUMBER FOUR THOUSAND
+10126	AEGEAN NUMBER FIVE THOUSAND
+10127	AEGEAN NUMBER SIX THOUSAND
+10128	AEGEAN NUMBER SEVEN THOUSAND
+10129	AEGEAN NUMBER EIGHT THOUSAND
+1012A	AEGEAN NUMBER NINE THOUSAND
+1012B	AEGEAN NUMBER TEN THOUSAND
+1012C	AEGEAN NUMBER TWENTY THOUSAND
+1012D	AEGEAN NUMBER THIRTY THOUSAND
+1012E	AEGEAN NUMBER FORTY THOUSAND
+1012F	AEGEAN NUMBER FIFTY THOUSAND
+10130	AEGEAN NUMBER SIXTY THOUSAND
+10131	AEGEAN NUMBER SEVENTY THOUSAND
+10132	AEGEAN NUMBER EIGHTY THOUSAND
+10133	AEGEAN NUMBER NINETY THOUSAND
+10137	AEGEAN WEIGHT BASE UNIT
+10138	AEGEAN WEIGHT FIRST SUBUNIT
+10139	AEGEAN WEIGHT SECOND SUBUNIT
+1013A	AEGEAN WEIGHT THIRD SUBUNIT
+1013B	AEGEAN WEIGHT FOURTH SUBUNIT
+1013C	AEGEAN DRY MEASURE FIRST SUBUNIT
+1013D	AEGEAN LIQUID MEASURE FIRST SUBUNIT
+1013E	AEGEAN MEASURE SECOND SUBUNIT
+1013F	AEGEAN MEASURE THIRD SUBUNIT
+10140	GREEK ACROPHONIC ATTIC ONE QUARTER
+10141	GREEK ACROPHONIC ATTIC ONE HALF
+10142	GREEK ACROPHONIC ATTIC ONE DRACHMA
+10143	GREEK ACROPHONIC ATTIC FIVE
+10144	GREEK ACROPHONIC ATTIC FIFTY
+10145	GREEK ACROPHONIC ATTIC FIVE HUNDRED
+10146	GREEK ACROPHONIC ATTIC FIVE THOUSAND
+10147	GREEK ACROPHONIC ATTIC FIFTY THOUSAND
+10148	GREEK ACROPHONIC ATTIC FIVE TALENTS
+10149	GREEK ACROPHONIC ATTIC TEN TALENTS
+1014A	GREEK ACROPHONIC ATTIC FIFTY TALENTS
+1014B	GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
+1014C	GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
+1014D	GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
+1014E	GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
+1014F	GREEK ACROPHONIC ATTIC FIVE STATERS
+10150	GREEK ACROPHONIC ATTIC TEN STATERS
+10151	GREEK ACROPHONIC ATTIC FIFTY STATERS
+10152	GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
+10153	GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
+10154	GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
+10155	GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
+10156	GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
+10157	GREEK ACROPHONIC ATTIC TEN MNAS
+10158	GREEK ACROPHONIC HERAEUM ONE PLETHRON
+10159	GREEK ACROPHONIC THESPIAN ONE
+1015A	GREEK ACROPHONIC HERMIONIAN ONE
+1015B	GREEK ACROPHONIC EPIDAUREAN TWO
+1015C	GREEK ACROPHONIC THESPIAN TWO
+1015D	GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
+1015E	GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
+1015F	GREEK ACROPHONIC TROEZENIAN FIVE
+10160	GREEK ACROPHONIC TROEZENIAN TEN
+10161	GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
+10162	GREEK ACROPHONIC HERMIONIAN TEN
+10163	GREEK ACROPHONIC MESSENIAN TEN
+10164	GREEK ACROPHONIC THESPIAN TEN
+10165	GREEK ACROPHONIC THESPIAN THIRTY
+10166	GREEK ACROPHONIC TROEZENIAN FIFTY
+10167	GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
+10168	GREEK ACROPHONIC HERMIONIAN FIFTY
+10169	GREEK ACROPHONIC THESPIAN FIFTY
+1016A	GREEK ACROPHONIC THESPIAN ONE HUNDRED
+1016B	GREEK ACROPHONIC THESPIAN THREE HUNDRED
+1016C	GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
+1016D	GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
+1016E	GREEK ACROPHONIC THESPIAN FIVE HUNDRED
+1016F	GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED
+10170	GREEK ACROPHONIC NAXIAN FIVE HUNDRED
+10171	GREEK ACROPHONIC THESPIAN ONE THOUSAND
+10172	GREEK ACROPHONIC THESPIAN FIVE THOUSAND
+10173	GREEK ACROPHONIC DELPHIC FIVE MNAS
+10174	GREEK ACROPHONIC STRATIAN FIFTY MNAS
+10175	GREEK ONE HALF SIGN
+10176	GREEK ONE HALF SIGN ALTERNATE FORM
+10177	GREEK TWO THIRDS SIGN
+10178	GREEK THREE QUARTERS SIGN
+10179	GREEK YEAR SIGN
+1017A	GREEK TALENT SIGN
+1017B	GREEK DRACHMA SIGN
+1017C	GREEK OBOL SIGN
+1017D	GREEK TWO OBOLS SIGN
+1017E	GREEK THREE OBOLS SIGN
+1017F	GREEK FOUR OBOLS SIGN
+10180	GREEK FIVE OBOLS SIGN
+10181	GREEK METRETES SIGN
+10182	GREEK KYATHOS BASE SIGN
+10183	GREEK LITRA SIGN
+10184	GREEK OUNKIA SIGN
+10185	GREEK XESTES SIGN
+10186	GREEK ARTABE SIGN
+10187	GREEK AROURA SIGN
+10188	GREEK GRAMMA SIGN
+10189	GREEK TRYBLION BASE SIGN
+1018A	GREEK ZERO SIGN
+1018B	GREEK ONE QUARTER SIGN
+1018C	GREEK SINUSOID SIGN
+1018D	GREEK INDICTION SIGN
+1018E	NOMISMA SIGN
+10190	ROMAN SEXTANS SIGN
+10191	ROMAN UNCIA SIGN
+10192	ROMAN SEMUNCIA SIGN
+10193	ROMAN SEXTULA SIGN
+10194	ROMAN DIMIDIA SEXTULA SIGN
+10195	ROMAN SILIQUA SIGN
+10196	ROMAN DENARIUS SIGN
+10197	ROMAN QUINARIUS SIGN
+10198	ROMAN SESTERTIUS SIGN
+10199	ROMAN DUPONDIUS SIGN
+1019A	ROMAN AS SIGN
+1019B	ROMAN CENTURIAL SIGN
+101A0	GREEK SYMBOL TAU RHO
+101D0	PHAISTOS DISC SIGN PEDESTRIAN
+101D1	PHAISTOS DISC SIGN PLUMED HEAD
+101D2	PHAISTOS DISC SIGN TATTOOED HEAD
+101D3	PHAISTOS DISC SIGN CAPTIVE
+101D4	PHAISTOS DISC SIGN CHILD
+101D5	PHAISTOS DISC SIGN WOMAN
+101D6	PHAISTOS DISC SIGN HELMET
+101D7	PHAISTOS DISC SIGN GAUNTLET
+101D8	PHAISTOS DISC SIGN TIARA
+101D9	PHAISTOS DISC SIGN ARROW
+101DA	PHAISTOS DISC SIGN BOW
+101DB	PHAISTOS DISC SIGN SHIELD
+101DC	PHAISTOS DISC SIGN CLUB
+101DD	PHAISTOS DISC SIGN MANACLES
+101DE	PHAISTOS DISC SIGN MATTOCK
+101DF	PHAISTOS DISC SIGN SAW
+101E0	PHAISTOS DISC SIGN LID
+101E1	PHAISTOS DISC SIGN BOOMERANG
+101E2	PHAISTOS DISC SIGN CARPENTRY PLANE
+101E3	PHAISTOS DISC SIGN DOLIUM
+101E4	PHAISTOS DISC SIGN COMB
+101E5	PHAISTOS DISC SIGN SLING
+101E6	PHAISTOS DISC SIGN COLUMN
+101E7	PHAISTOS DISC SIGN BEEHIVE
+101E8	PHAISTOS DISC SIGN SHIP
+101E9	PHAISTOS DISC SIGN HORN
+101EA	PHAISTOS DISC SIGN HIDE
+101EB	PHAISTOS DISC SIGN BULLS LEG
+101EC	PHAISTOS DISC SIGN CAT
+101ED	PHAISTOS DISC SIGN RAM
+101EE	PHAISTOS DISC SIGN EAGLE
+101EF	PHAISTOS DISC SIGN DOVE
+101F0	PHAISTOS DISC SIGN TUNNY
+101F1	PHAISTOS DISC SIGN BEE
+101F2	PHAISTOS DISC SIGN PLANE TREE
+101F3	PHAISTOS DISC SIGN VINE
+101F4	PHAISTOS DISC SIGN PAPYRUS
+101F5	PHAISTOS DISC SIGN ROSETTE
+101F6	PHAISTOS DISC SIGN LILY
+101F7	PHAISTOS DISC SIGN OX BACK
+101F8	PHAISTOS DISC SIGN FLUTE
+101F9	PHAISTOS DISC SIGN GRATER
+101FA	PHAISTOS DISC SIGN STRAINER
+101FB	PHAISTOS DISC SIGN SMALL AXE
+101FC	PHAISTOS DISC SIGN WAVY BAND
+101FD	PHAISTOS DISC SIGN COMBINING OBLIQUE STROKE
+10280	LYCIAN LETTER A
+10281	LYCIAN LETTER E
+10282	LYCIAN LETTER B
+10283	LYCIAN LETTER BH
+10284	LYCIAN LETTER G
+10285	LYCIAN LETTER D
+10286	LYCIAN LETTER I
+10287	LYCIAN LETTER W
+10288	LYCIAN LETTER Z
+10289	LYCIAN LETTER TH
+1028A	LYCIAN LETTER J
+1028B	LYCIAN LETTER K
+1028C	LYCIAN LETTER Q
+1028D	LYCIAN LETTER L
+1028E	LYCIAN LETTER M
+1028F	LYCIAN LETTER N
+10290	LYCIAN LETTER MM
+10291	LYCIAN LETTER NN
+10292	LYCIAN LETTER U
+10293	LYCIAN LETTER P
+10294	LYCIAN LETTER KK
+10295	LYCIAN LETTER R
+10296	LYCIAN LETTER S
+10297	LYCIAN LETTER T
+10298	LYCIAN LETTER TT
+10299	LYCIAN LETTER AN
+1029A	LYCIAN LETTER EN
+1029B	LYCIAN LETTER H
+1029C	LYCIAN LETTER X
+102A0	CARIAN LETTER A
+102A1	CARIAN LETTER P2
+102A2	CARIAN LETTER D
+102A3	CARIAN LETTER L
+102A4	CARIAN LETTER UUU
+102A5	CARIAN LETTER R
+102A6	CARIAN LETTER LD
+102A7	CARIAN LETTER A2
+102A8	CARIAN LETTER Q
+102A9	CARIAN LETTER B
+102AA	CARIAN LETTER M
+102AB	CARIAN LETTER O
+102AC	CARIAN LETTER D2
+102AD	CARIAN LETTER T
+102AE	CARIAN LETTER SH
+102AF	CARIAN LETTER SH2
+102B0	CARIAN LETTER S
+102B1	CARIAN LETTER C-18
+102B2	CARIAN LETTER U
+102B3	CARIAN LETTER NN
+102B4	CARIAN LETTER X
+102B5	CARIAN LETTER N
+102B6	CARIAN LETTER TT2
+102B7	CARIAN LETTER P
+102B8	CARIAN LETTER SS
+102B9	CARIAN LETTER I
+102BA	CARIAN LETTER E
+102BB	CARIAN LETTER UUUU
+102BC	CARIAN LETTER K
+102BD	CARIAN LETTER K2
+102BE	CARIAN LETTER ND
+102BF	CARIAN LETTER UU
+102C0	CARIAN LETTER G
+102C1	CARIAN LETTER G2
+102C2	CARIAN LETTER ST
+102C3	CARIAN LETTER ST2
+102C4	CARIAN LETTER NG
+102C5	CARIAN LETTER II
+102C6	CARIAN LETTER C-39
+102C7	CARIAN LETTER TT
+102C8	CARIAN LETTER UUU2
+102C9	CARIAN LETTER RR
+102CA	CARIAN LETTER MB
+102CB	CARIAN LETTER MB2
+102CC	CARIAN LETTER MB3
+102CD	CARIAN LETTER MB4
+102CE	CARIAN LETTER LD2
+102CF	CARIAN LETTER E2
+102D0	CARIAN LETTER UUU3
+102E0	COPTIC EPACT THOUSANDS MARK
+102E1	COPTIC EPACT DIGIT ONE
+102E2	COPTIC EPACT DIGIT TWO
+102E3	COPTIC EPACT DIGIT THREE
+102E4	COPTIC EPACT DIGIT FOUR
+102E5	COPTIC EPACT DIGIT FIVE
+102E6	COPTIC EPACT DIGIT SIX
+102E7	COPTIC EPACT DIGIT SEVEN
+102E8	COPTIC EPACT DIGIT EIGHT
+102E9	COPTIC EPACT DIGIT NINE
+102EA	COPTIC EPACT NUMBER TEN
+102EB	COPTIC EPACT NUMBER TWENTY
+102EC	COPTIC EPACT NUMBER THIRTY
+102ED	COPTIC EPACT NUMBER FORTY
+102EE	COPTIC EPACT NUMBER FIFTY
+102EF	COPTIC EPACT NUMBER SIXTY
+102F0	COPTIC EPACT NUMBER SEVENTY
+102F1	COPTIC EPACT NUMBER EIGHTY
+102F2	COPTIC EPACT NUMBER NINETY
+102F3	COPTIC EPACT NUMBER ONE HUNDRED
+102F4	COPTIC EPACT NUMBER TWO HUNDRED
+102F5	COPTIC EPACT NUMBER THREE HUNDRED
+102F6	COPTIC EPACT NUMBER FOUR HUNDRED
+102F7	COPTIC EPACT NUMBER FIVE HUNDRED
+102F8	COPTIC EPACT NUMBER SIX HUNDRED
+102F9	COPTIC EPACT NUMBER SEVEN HUNDRED
+102FA	COPTIC EPACT NUMBER EIGHT HUNDRED
+102FB	COPTIC EPACT NUMBER NINE HUNDRED
+10300	OLD ITALIC LETTER A
+10301	OLD ITALIC LETTER BE
+10302	OLD ITALIC LETTER KE
+10303	OLD ITALIC LETTER DE
+10304	OLD ITALIC LETTER E
+10305	OLD ITALIC LETTER VE
+10306	OLD ITALIC LETTER ZE
+10307	OLD ITALIC LETTER HE
+10308	OLD ITALIC LETTER THE
+10309	OLD ITALIC LETTER I
+1030A	OLD ITALIC LETTER KA
+1030B	OLD ITALIC LETTER EL
+1030C	OLD ITALIC LETTER EM
+1030D	OLD ITALIC LETTER EN
+1030E	OLD ITALIC LETTER ESH
+1030F	OLD ITALIC LETTER O
+10310	OLD ITALIC LETTER PE
+10311	OLD ITALIC LETTER SHE
+10312	OLD ITALIC LETTER KU
+10313	OLD ITALIC LETTER ER
+10314	OLD ITALIC LETTER ES
+10315	OLD ITALIC LETTER TE
+10316	OLD ITALIC LETTER U
+10317	OLD ITALIC LETTER EKS
+10318	OLD ITALIC LETTER PHE
+10319	OLD ITALIC LETTER KHE
+1031A	OLD ITALIC LETTER EF
+1031B	OLD ITALIC LETTER ERS
+1031C	OLD ITALIC LETTER CHE
+1031D	OLD ITALIC LETTER II
+1031E	OLD ITALIC LETTER UU
+1031F	OLD ITALIC LETTER ESS
+10320	OLD ITALIC NUMERAL ONE
+10321	OLD ITALIC NUMERAL FIVE
+10322	OLD ITALIC NUMERAL TEN
+10323	OLD ITALIC NUMERAL FIFTY
+1032D	OLD ITALIC LETTER YE
+1032E	OLD ITALIC LETTER NORTHERN TSE
+1032F	OLD ITALIC LETTER SOUTHERN TSE
+10330	GOTHIC LETTER AHSA
+10331	GOTHIC LETTER BAIRKAN
+10332	GOTHIC LETTER GIBA
+10333	GOTHIC LETTER DAGS
+10334	GOTHIC LETTER AIHVUS
+10335	GOTHIC LETTER QAIRTHRA
+10336	GOTHIC LETTER IUJA
+10337	GOTHIC LETTER HAGL
+10338	GOTHIC LETTER THIUTH
+10339	GOTHIC LETTER EIS
+1033A	GOTHIC LETTER KUSMA
+1033B	GOTHIC LETTER LAGUS
+1033C	GOTHIC LETTER MANNA
+1033D	GOTHIC LETTER NAUTHS
+1033E	GOTHIC LETTER JER
+1033F	GOTHIC LETTER URUS
+10340	GOTHIC LETTER PAIRTHRA
+10341	GOTHIC LETTER NINETY
+10342	GOTHIC LETTER RAIDA
+10343	GOTHIC LETTER SAUIL
+10344	GOTHIC LETTER TEIWS
+10345	GOTHIC LETTER WINJA
+10346	GOTHIC LETTER FAIHU
+10347	GOTHIC LETTER IGGWS
+10348	GOTHIC LETTER HWAIR
+10349	GOTHIC LETTER OTHAL
+1034A	GOTHIC LETTER NINE HUNDRED
+10350	OLD PERMIC LETTER AN
+10351	OLD PERMIC LETTER BUR
+10352	OLD PERMIC LETTER GAI
+10353	OLD PERMIC LETTER DOI
+10354	OLD PERMIC LETTER E
+10355	OLD PERMIC LETTER ZHOI
+10356	OLD PERMIC LETTER DZHOI
+10357	OLD PERMIC LETTER ZATA
+10358	OLD PERMIC LETTER DZITA
+10359	OLD PERMIC LETTER I
+1035A	OLD PERMIC LETTER KOKE
+1035B	OLD PERMIC LETTER LEI
+1035C	OLD PERMIC LETTER MENOE
+1035D	OLD PERMIC LETTER NENOE
+1035E	OLD PERMIC LETTER VOOI
+1035F	OLD PERMIC LETTER PEEI
+10360	OLD PERMIC LETTER REI
+10361	OLD PERMIC LETTER SII
+10362	OLD PERMIC LETTER TAI
+10363	OLD PERMIC LETTER U
+10364	OLD PERMIC LETTER CHERY
+10365	OLD PERMIC LETTER SHOOI
+10366	OLD PERMIC LETTER SHCHOOI
+10367	OLD PERMIC LETTER YRY
+10368	OLD PERMIC LETTER YERU
+10369	OLD PERMIC LETTER O
+1036A	OLD PERMIC LETTER OO
+1036B	OLD PERMIC LETTER EF
+1036C	OLD PERMIC LETTER HA
+1036D	OLD PERMIC LETTER TSIU
+1036E	OLD PERMIC LETTER VER
+1036F	OLD PERMIC LETTER YER
+10370	OLD PERMIC LETTER YERI
+10371	OLD PERMIC LETTER YAT
+10372	OLD PERMIC LETTER IE
+10373	OLD PERMIC LETTER YU
+10374	OLD PERMIC LETTER YA
+10375	OLD PERMIC LETTER IA
+10376	COMBINING OLD PERMIC LETTER AN
+10377	COMBINING OLD PERMIC LETTER DOI
+10378	COMBINING OLD PERMIC LETTER ZATA
+10379	COMBINING OLD PERMIC LETTER NENOE
+1037A	COMBINING OLD PERMIC LETTER SII
+10380	UGARITIC LETTER ALPA
+10381	UGARITIC LETTER BETA
+10382	UGARITIC LETTER GAMLA
+10383	UGARITIC LETTER KHA
+10384	UGARITIC LETTER DELTA
+10385	UGARITIC LETTER HO
+10386	UGARITIC LETTER WO
+10387	UGARITIC LETTER ZETA
+10388	UGARITIC LETTER HOTA
+10389	UGARITIC LETTER TET
+1038A	UGARITIC LETTER YOD
+1038B	UGARITIC LETTER KAF
+1038C	UGARITIC LETTER SHIN
+1038D	UGARITIC LETTER LAMDA
+1038E	UGARITIC LETTER MEM
+1038F	UGARITIC LETTER DHAL
+10390	UGARITIC LETTER NUN
+10391	UGARITIC LETTER ZU
+10392	UGARITIC LETTER SAMKA
+10393	UGARITIC LETTER AIN
+10394	UGARITIC LETTER PU
+10395	UGARITIC LETTER SADE
+10396	UGARITIC LETTER QOPA
+10397	UGARITIC LETTER RASHA
+10398	UGARITIC LETTER THANNA
+10399	UGARITIC LETTER GHAIN
+1039A	UGARITIC LETTER TO
+1039B	UGARITIC LETTER I
+1039C	UGARITIC LETTER U
+1039D	UGARITIC LETTER SSU
+1039F	UGARITIC WORD DIVIDER
+103A0	OLD PERSIAN SIGN A
+103A1	OLD PERSIAN SIGN I
+103A2	OLD PERSIAN SIGN U
+103A3	OLD PERSIAN SIGN KA
+103A4	OLD PERSIAN SIGN KU
+103A5	OLD PERSIAN SIGN GA
+103A6	OLD PERSIAN SIGN GU
+103A7	OLD PERSIAN SIGN XA
+103A8	OLD PERSIAN SIGN CA
+103A9	OLD PERSIAN SIGN JA
+103AA	OLD PERSIAN SIGN JI
+103AB	OLD PERSIAN SIGN TA
+103AC	OLD PERSIAN SIGN TU
+103AD	OLD PERSIAN SIGN DA
+103AE	OLD PERSIAN SIGN DI
+103AF	OLD PERSIAN SIGN DU
+103B0	OLD PERSIAN SIGN THA
+103B1	OLD PERSIAN SIGN PA
+103B2	OLD PERSIAN SIGN BA
+103B3	OLD PERSIAN SIGN FA
+103B4	OLD PERSIAN SIGN NA
+103B5	OLD PERSIAN SIGN NU
+103B6	OLD PERSIAN SIGN MA
+103B7	OLD PERSIAN SIGN MI
+103B8	OLD PERSIAN SIGN MU
+103B9	OLD PERSIAN SIGN YA
+103BA	OLD PERSIAN SIGN VA
+103BB	OLD PERSIAN SIGN VI
+103BC	OLD PERSIAN SIGN RA
+103BD	OLD PERSIAN SIGN RU
+103BE	OLD PERSIAN SIGN LA
+103BF	OLD PERSIAN SIGN SA
+103C0	OLD PERSIAN SIGN ZA
+103C1	OLD PERSIAN SIGN SHA
+103C2	OLD PERSIAN SIGN SSA
+103C3	OLD PERSIAN SIGN HA
+103C8	OLD PERSIAN SIGN AURAMAZDAA
+103C9	OLD PERSIAN SIGN AURAMAZDAA-2
+103CA	OLD PERSIAN SIGN AURAMAZDAAHA
+103CB	OLD PERSIAN SIGN XSHAAYATHIYA
+103CC	OLD PERSIAN SIGN DAHYAAUSH
+103CD	OLD PERSIAN SIGN DAHYAAUSH-2
+103CE	OLD PERSIAN SIGN BAGA
+103CF	OLD PERSIAN SIGN BUUMISH
+103D0	OLD PERSIAN WORD DIVIDER
+103D1	OLD PERSIAN NUMBER ONE
+103D2	OLD PERSIAN NUMBER TWO
+103D3	OLD PERSIAN NUMBER TEN
+103D4	OLD PERSIAN NUMBER TWENTY
+103D5	OLD PERSIAN NUMBER HUNDRED
+10400	DESERET CAPITAL LETTER LONG I
+10401	DESERET CAPITAL LETTER LONG E
+10402	DESERET CAPITAL LETTER LONG A
+10403	DESERET CAPITAL LETTER LONG AH
+10404	DESERET CAPITAL LETTER LONG O
+10405	DESERET CAPITAL LETTER LONG OO
+10406	DESERET CAPITAL LETTER SHORT I
+10407	DESERET CAPITAL LETTER SHORT E
+10408	DESERET CAPITAL LETTER SHORT A
+10409	DESERET CAPITAL LETTER SHORT AH
+1040A	DESERET CAPITAL LETTER SHORT O
+1040B	DESERET CAPITAL LETTER SHORT OO
+1040C	DESERET CAPITAL LETTER AY
+1040D	DESERET CAPITAL LETTER OW
+1040E	DESERET CAPITAL LETTER WU
+1040F	DESERET CAPITAL LETTER YEE
+10410	DESERET CAPITAL LETTER H
+10411	DESERET CAPITAL LETTER PEE
+10412	DESERET CAPITAL LETTER BEE
+10413	DESERET CAPITAL LETTER TEE
+10414	DESERET CAPITAL LETTER DEE
+10415	DESERET CAPITAL LETTER CHEE
+10416	DESERET CAPITAL LETTER JEE
+10417	DESERET CAPITAL LETTER KAY
+10418	DESERET CAPITAL LETTER GAY
+10419	DESERET CAPITAL LETTER EF
+1041A	DESERET CAPITAL LETTER VEE
+1041B	DESERET CAPITAL LETTER ETH
+1041C	DESERET CAPITAL LETTER THEE
+1041D	DESERET CAPITAL LETTER ES
+1041E	DESERET CAPITAL LETTER ZEE
+1041F	DESERET CAPITAL LETTER ESH
+10420	DESERET CAPITAL LETTER ZHEE
+10421	DESERET CAPITAL LETTER ER
+10422	DESERET CAPITAL LETTER EL
+10423	DESERET CAPITAL LETTER EM
+10424	DESERET CAPITAL LETTER EN
+10425	DESERET CAPITAL LETTER ENG
+10426	DESERET CAPITAL LETTER OI
+10427	DESERET CAPITAL LETTER EW
+10428	DESERET SMALL LETTER LONG I
+10429	DESERET SMALL LETTER LONG E
+1042A	DESERET SMALL LETTER LONG A
+1042B	DESERET SMALL LETTER LONG AH
+1042C	DESERET SMALL LETTER LONG O
+1042D	DESERET SMALL LETTER LONG OO
+1042E	DESERET SMALL LETTER SHORT I
+1042F	DESERET SMALL LETTER SHORT E
+10430	DESERET SMALL LETTER SHORT A
+10431	DESERET SMALL LETTER SHORT AH
+10432	DESERET SMALL LETTER SHORT O
+10433	DESERET SMALL LETTER SHORT OO
+10434	DESERET SMALL LETTER AY
+10435	DESERET SMALL LETTER OW
+10436	DESERET SMALL LETTER WU
+10437	DESERET SMALL LETTER YEE
+10438	DESERET SMALL LETTER H
+10439	DESERET SMALL LETTER PEE
+1043A	DESERET SMALL LETTER BEE
+1043B	DESERET SMALL LETTER TEE
+1043C	DESERET SMALL LETTER DEE
+1043D	DESERET SMALL LETTER CHEE
+1043E	DESERET SMALL LETTER JEE
+1043F	DESERET SMALL LETTER KAY
+10440	DESERET SMALL LETTER GAY
+10441	DESERET SMALL LETTER EF
+10442	DESERET SMALL LETTER VEE
+10443	DESERET SMALL LETTER ETH
+10444	DESERET SMALL LETTER THEE
+10445	DESERET SMALL LETTER ES
+10446	DESERET SMALL LETTER ZEE
+10447	DESERET SMALL LETTER ESH
+10448	DESERET SMALL LETTER ZHEE
+10449	DESERET SMALL LETTER ER
+1044A	DESERET SMALL LETTER EL
+1044B	DESERET SMALL LETTER EM
+1044C	DESERET SMALL LETTER EN
+1044D	DESERET SMALL LETTER ENG
+1044E	DESERET SMALL LETTER OI
+1044F	DESERET SMALL LETTER EW
+10450	SHAVIAN LETTER PEEP
+10451	SHAVIAN LETTER TOT
+10452	SHAVIAN LETTER KICK
+10453	SHAVIAN LETTER FEE
+10454	SHAVIAN LETTER THIGH
+10455	SHAVIAN LETTER SO
+10456	SHAVIAN LETTER SURE
+10457	SHAVIAN LETTER CHURCH
+10458	SHAVIAN LETTER YEA
+10459	SHAVIAN LETTER HUNG
+1045A	SHAVIAN LETTER BIB
+1045B	SHAVIAN LETTER DEAD
+1045C	SHAVIAN LETTER GAG
+1045D	SHAVIAN LETTER VOW
+1045E	SHAVIAN LETTER THEY
+1045F	SHAVIAN LETTER ZOO
+10460	SHAVIAN LETTER MEASURE
+10461	SHAVIAN LETTER JUDGE
+10462	SHAVIAN LETTER WOE
+10463	SHAVIAN LETTER HA-HA
+10464	SHAVIAN LETTER LOLL
+10465	SHAVIAN LETTER MIME
+10466	SHAVIAN LETTER IF
+10467	SHAVIAN LETTER EGG
+10468	SHAVIAN LETTER ASH
+10469	SHAVIAN LETTER ADO
+1046A	SHAVIAN LETTER ON
+1046B	SHAVIAN LETTER WOOL
+1046C	SHAVIAN LETTER OUT
+1046D	SHAVIAN LETTER AH
+1046E	SHAVIAN LETTER ROAR
+1046F	SHAVIAN LETTER NUN
+10470	SHAVIAN LETTER EAT
+10471	SHAVIAN LETTER AGE
+10472	SHAVIAN LETTER ICE
+10473	SHAVIAN LETTER UP
+10474	SHAVIAN LETTER OAK
+10475	SHAVIAN LETTER OOZE
+10476	SHAVIAN LETTER OIL
+10477	SHAVIAN LETTER AWE
+10478	SHAVIAN LETTER ARE
+10479	SHAVIAN LETTER OR
+1047A	SHAVIAN LETTER AIR
+1047B	SHAVIAN LETTER ERR
+1047C	SHAVIAN LETTER ARRAY
+1047D	SHAVIAN LETTER EAR
+1047E	SHAVIAN LETTER IAN
+1047F	SHAVIAN LETTER YEW
+10480	OSMANYA LETTER ALEF
+10481	OSMANYA LETTER BA
+10482	OSMANYA LETTER TA
+10483	OSMANYA LETTER JA
+10484	OSMANYA LETTER XA
+10485	OSMANYA LETTER KHA
+10486	OSMANYA LETTER DEEL
+10487	OSMANYA LETTER RA
+10488	OSMANYA LETTER SA
+10489	OSMANYA LETTER SHIIN
+1048A	OSMANYA LETTER DHA
+1048B	OSMANYA LETTER CAYN
+1048C	OSMANYA LETTER GA
+1048D	OSMANYA LETTER FA
+1048E	OSMANYA LETTER QAAF
+1048F	OSMANYA LETTER KAAF
+10490	OSMANYA LETTER LAAN
+10491	OSMANYA LETTER MIIN
+10492	OSMANYA LETTER NUUN
+10493	OSMANYA LETTER WAW
+10494	OSMANYA LETTER HA
+10495	OSMANYA LETTER YA
+10496	OSMANYA LETTER A
+10497	OSMANYA LETTER E
+10498	OSMANYA LETTER I
+10499	OSMANYA LETTER O
+1049A	OSMANYA LETTER U
+1049B	OSMANYA LETTER AA
+1049C	OSMANYA LETTER EE
+1049D	OSMANYA LETTER OO
+104A0	OSMANYA DIGIT ZERO
+104A1	OSMANYA DIGIT ONE
+104A2	OSMANYA DIGIT TWO
+104A3	OSMANYA DIGIT THREE
+104A4	OSMANYA DIGIT FOUR
+104A5	OSMANYA DIGIT FIVE
+104A6	OSMANYA DIGIT SIX
+104A7	OSMANYA DIGIT SEVEN
+104A8	OSMANYA DIGIT EIGHT
+104A9	OSMANYA DIGIT NINE
+104B0	OSAGE CAPITAL LETTER A
+104B1	OSAGE CAPITAL LETTER AI
+104B2	OSAGE CAPITAL LETTER AIN
+104B3	OSAGE CAPITAL LETTER AH
+104B4	OSAGE CAPITAL LETTER BRA
+104B5	OSAGE CAPITAL LETTER CHA
+104B6	OSAGE CAPITAL LETTER EHCHA
+104B7	OSAGE CAPITAL LETTER E
+104B8	OSAGE CAPITAL LETTER EIN
+104B9	OSAGE CAPITAL LETTER HA
+104BA	OSAGE CAPITAL LETTER HYA
+104BB	OSAGE CAPITAL LETTER I
+104BC	OSAGE CAPITAL LETTER KA
+104BD	OSAGE CAPITAL LETTER EHKA
+104BE	OSAGE CAPITAL LETTER KYA
+104BF	OSAGE CAPITAL LETTER LA
+104C0	OSAGE CAPITAL LETTER MA
+104C1	OSAGE CAPITAL LETTER NA
+104C2	OSAGE CAPITAL LETTER O
+104C3	OSAGE CAPITAL LETTER OIN
+104C4	OSAGE CAPITAL LETTER PA
+104C5	OSAGE CAPITAL LETTER EHPA
+104C6	OSAGE CAPITAL LETTER SA
+104C7	OSAGE CAPITAL LETTER SHA
+104C8	OSAGE CAPITAL LETTER TA
+104C9	OSAGE CAPITAL LETTER EHTA
+104CA	OSAGE CAPITAL LETTER TSA
+104CB	OSAGE CAPITAL LETTER EHTSA
+104CC	OSAGE CAPITAL LETTER TSHA
+104CD	OSAGE CAPITAL LETTER DHA
+104CE	OSAGE CAPITAL LETTER U
+104CF	OSAGE CAPITAL LETTER WA
+104D0	OSAGE CAPITAL LETTER KHA
+104D1	OSAGE CAPITAL LETTER GHA
+104D2	OSAGE CAPITAL LETTER ZA
+104D3	OSAGE CAPITAL LETTER ZHA
+104D8	OSAGE SMALL LETTER A
+104D9	OSAGE SMALL LETTER AI
+104DA	OSAGE SMALL LETTER AIN
+104DB	OSAGE SMALL LETTER AH
+104DC	OSAGE SMALL LETTER BRA
+104DD	OSAGE SMALL LETTER CHA
+104DE	OSAGE SMALL LETTER EHCHA
+104DF	OSAGE SMALL LETTER E
+104E0	OSAGE SMALL LETTER EIN
+104E1	OSAGE SMALL LETTER HA
+104E2	OSAGE SMALL LETTER HYA
+104E3	OSAGE SMALL LETTER I
+104E4	OSAGE SMALL LETTER KA
+104E5	OSAGE SMALL LETTER EHKA
+104E6	OSAGE SMALL LETTER KYA
+104E7	OSAGE SMALL LETTER LA
+104E8	OSAGE SMALL LETTER MA
+104E9	OSAGE SMALL LETTER NA
+104EA	OSAGE SMALL LETTER O
+104EB	OSAGE SMALL LETTER OIN
+104EC	OSAGE SMALL LETTER PA
+104ED	OSAGE SMALL LETTER EHPA
+104EE	OSAGE SMALL LETTER SA
+104EF	OSAGE SMALL LETTER SHA
+104F0	OSAGE SMALL LETTER TA
+104F1	OSAGE SMALL LETTER EHTA
+104F2	OSAGE SMALL LETTER TSA
+104F3	OSAGE SMALL LETTER EHTSA
+104F4	OSAGE SMALL LETTER TSHA
+104F5	OSAGE SMALL LETTER DHA
+104F6	OSAGE SMALL LETTER U
+104F7	OSAGE SMALL LETTER WA
+104F8	OSAGE SMALL LETTER KHA
+104F9	OSAGE SMALL LETTER GHA
+104FA	OSAGE SMALL LETTER ZA
+104FB	OSAGE SMALL LETTER ZHA
+10500	ELBASAN LETTER A
+10501	ELBASAN LETTER BE
+10502	ELBASAN LETTER CE
+10503	ELBASAN LETTER CHE
+10504	ELBASAN LETTER DE
+10505	ELBASAN LETTER NDE
+10506	ELBASAN LETTER DHE
+10507	ELBASAN LETTER EI
+10508	ELBASAN LETTER E
+10509	ELBASAN LETTER FE
+1050A	ELBASAN LETTER GE
+1050B	ELBASAN LETTER GJE
+1050C	ELBASAN LETTER HE
+1050D	ELBASAN LETTER I
+1050E	ELBASAN LETTER JE
+1050F	ELBASAN LETTER KE
+10510	ELBASAN LETTER LE
+10511	ELBASAN LETTER LLE
+10512	ELBASAN LETTER ME
+10513	ELBASAN LETTER NE
+10514	ELBASAN LETTER NA
+10515	ELBASAN LETTER NJE
+10516	ELBASAN LETTER O
+10517	ELBASAN LETTER PE
+10518	ELBASAN LETTER QE
+10519	ELBASAN LETTER RE
+1051A	ELBASAN LETTER RRE
+1051B	ELBASAN LETTER SE
+1051C	ELBASAN LETTER SHE
+1051D	ELBASAN LETTER TE
+1051E	ELBASAN LETTER THE
+1051F	ELBASAN LETTER U
+10520	ELBASAN LETTER VE
+10521	ELBASAN LETTER XE
+10522	ELBASAN LETTER Y
+10523	ELBASAN LETTER ZE
+10524	ELBASAN LETTER ZHE
+10525	ELBASAN LETTER GHE
+10526	ELBASAN LETTER GHAMMA
+10527	ELBASAN LETTER KHE
+10530	CAUCASIAN ALBANIAN LETTER ALT
+10531	CAUCASIAN ALBANIAN LETTER BET
+10532	CAUCASIAN ALBANIAN LETTER GIM
+10533	CAUCASIAN ALBANIAN LETTER DAT
+10534	CAUCASIAN ALBANIAN LETTER EB
+10535	CAUCASIAN ALBANIAN LETTER ZARL
+10536	CAUCASIAN ALBANIAN LETTER EYN
+10537	CAUCASIAN ALBANIAN LETTER ZHIL
+10538	CAUCASIAN ALBANIAN LETTER TAS
+10539	CAUCASIAN ALBANIAN LETTER CHA
+1053A	CAUCASIAN ALBANIAN LETTER YOWD
+1053B	CAUCASIAN ALBANIAN LETTER ZHA
+1053C	CAUCASIAN ALBANIAN LETTER IRB
+1053D	CAUCASIAN ALBANIAN LETTER SHA
+1053E	CAUCASIAN ALBANIAN LETTER LAN
+1053F	CAUCASIAN ALBANIAN LETTER INYA
+10540	CAUCASIAN ALBANIAN LETTER XEYN
+10541	CAUCASIAN ALBANIAN LETTER DYAN
+10542	CAUCASIAN ALBANIAN LETTER CAR
+10543	CAUCASIAN ALBANIAN LETTER JHOX
+10544	CAUCASIAN ALBANIAN LETTER KAR
+10545	CAUCASIAN ALBANIAN LETTER LYIT
+10546	CAUCASIAN ALBANIAN LETTER HEYT
+10547	CAUCASIAN ALBANIAN LETTER QAY
+10548	CAUCASIAN ALBANIAN LETTER AOR
+10549	CAUCASIAN ALBANIAN LETTER CHOY
+1054A	CAUCASIAN ALBANIAN LETTER CHI
+1054B	CAUCASIAN ALBANIAN LETTER CYAY
+1054C	CAUCASIAN ALBANIAN LETTER MAQ
+1054D	CAUCASIAN ALBANIAN LETTER QAR
+1054E	CAUCASIAN ALBANIAN LETTER NOWC
+1054F	CAUCASIAN ALBANIAN LETTER DZYAY
+10550	CAUCASIAN ALBANIAN LETTER SHAK
+10551	CAUCASIAN ALBANIAN LETTER JAYN
+10552	CAUCASIAN ALBANIAN LETTER ON
+10553	CAUCASIAN ALBANIAN LETTER TYAY
+10554	CAUCASIAN ALBANIAN LETTER FAM
+10555	CAUCASIAN ALBANIAN LETTER DZAY
+10556	CAUCASIAN ALBANIAN LETTER CHAT
+10557	CAUCASIAN ALBANIAN LETTER PEN
+10558	CAUCASIAN ALBANIAN LETTER GHEYS
+10559	CAUCASIAN ALBANIAN LETTER RAT
+1055A	CAUCASIAN ALBANIAN LETTER SEYK
+1055B	CAUCASIAN ALBANIAN LETTER VEYZ
+1055C	CAUCASIAN ALBANIAN LETTER TIWR
+1055D	CAUCASIAN ALBANIAN LETTER SHOY
+1055E	CAUCASIAN ALBANIAN LETTER IWN
+1055F	CAUCASIAN ALBANIAN LETTER CYAW
+10560	CAUCASIAN ALBANIAN LETTER CAYN
+10561	CAUCASIAN ALBANIAN LETTER YAYD
+10562	CAUCASIAN ALBANIAN LETTER PIWR
+10563	CAUCASIAN ALBANIAN LETTER KIW
+1056F	CAUCASIAN ALBANIAN CITATION MARK
+10600	LINEAR A SIGN AB001
+10601	LINEAR A SIGN AB002
+10602	LINEAR A SIGN AB003
+10603	LINEAR A SIGN AB004
+10604	LINEAR A SIGN AB005
+10605	LINEAR A SIGN AB006
+10606	LINEAR A SIGN AB007
+10607	LINEAR A SIGN AB008
+10608	LINEAR A SIGN AB009
+10609	LINEAR A SIGN AB010
+1060A	LINEAR A SIGN AB011
+1060B	LINEAR A SIGN AB013
+1060C	LINEAR A SIGN AB016
+1060D	LINEAR A SIGN AB017
+1060E	LINEAR A SIGN AB020
+1060F	LINEAR A SIGN AB021
+10610	LINEAR A SIGN AB021F
+10611	LINEAR A SIGN AB021M
+10612	LINEAR A SIGN AB022
+10613	LINEAR A SIGN AB022F
+10614	LINEAR A SIGN AB022M
+10615	LINEAR A SIGN AB023
+10616	LINEAR A SIGN AB023M
+10617	LINEAR A SIGN AB024
+10618	LINEAR A SIGN AB026
+10619	LINEAR A SIGN AB027
+1061A	LINEAR A SIGN AB028
+1061B	LINEAR A SIGN A028B
+1061C	LINEAR A SIGN AB029
+1061D	LINEAR A SIGN AB030
+1061E	LINEAR A SIGN AB031
+1061F	LINEAR A SIGN AB034
+10620	LINEAR A SIGN AB037
+10621	LINEAR A SIGN AB038
+10622	LINEAR A SIGN AB039
+10623	LINEAR A SIGN AB040
+10624	LINEAR A SIGN AB041
+10625	LINEAR A SIGN AB044
+10626	LINEAR A SIGN AB045
+10627	LINEAR A SIGN AB046
+10628	LINEAR A SIGN AB047
+10629	LINEAR A SIGN AB048
+1062A	LINEAR A SIGN AB049
+1062B	LINEAR A SIGN AB050
+1062C	LINEAR A SIGN AB051
+1062D	LINEAR A SIGN AB053
+1062E	LINEAR A SIGN AB054
+1062F	LINEAR A SIGN AB055
+10630	LINEAR A SIGN AB056
+10631	LINEAR A SIGN AB057
+10632	LINEAR A SIGN AB058
+10633	LINEAR A SIGN AB059
+10634	LINEAR A SIGN AB060
+10635	LINEAR A SIGN AB061
+10636	LINEAR A SIGN AB065
+10637	LINEAR A SIGN AB066
+10638	LINEAR A SIGN AB067
+10639	LINEAR A SIGN AB069
+1063A	LINEAR A SIGN AB070
+1063B	LINEAR A SIGN AB073
+1063C	LINEAR A SIGN AB074
+1063D	LINEAR A SIGN AB076
+1063E	LINEAR A SIGN AB077
+1063F	LINEAR A SIGN AB078
+10640	LINEAR A SIGN AB079
+10641	LINEAR A SIGN AB080
+10642	LINEAR A SIGN AB081
+10643	LINEAR A SIGN AB082
+10644	LINEAR A SIGN AB085
+10645	LINEAR A SIGN AB086
+10646	LINEAR A SIGN AB087
+10647	LINEAR A SIGN A100-102
+10648	LINEAR A SIGN AB118
+10649	LINEAR A SIGN AB120
+1064A	LINEAR A SIGN A120B
+1064B	LINEAR A SIGN AB122
+1064C	LINEAR A SIGN AB123
+1064D	LINEAR A SIGN AB131A
+1064E	LINEAR A SIGN AB131B
+1064F	LINEAR A SIGN A131C
+10650	LINEAR A SIGN AB164
+10651	LINEAR A SIGN AB171
+10652	LINEAR A SIGN AB180
+10653	LINEAR A SIGN AB188
+10654	LINEAR A SIGN AB191
+10655	LINEAR A SIGN A301
+10656	LINEAR A SIGN A302
+10657	LINEAR A SIGN A303
+10658	LINEAR A SIGN A304
+10659	LINEAR A SIGN A305
+1065A	LINEAR A SIGN A306
+1065B	LINEAR A SIGN A307
+1065C	LINEAR A SIGN A308
+1065D	LINEAR A SIGN A309A
+1065E	LINEAR A SIGN A309B
+1065F	LINEAR A SIGN A309C
+10660	LINEAR A SIGN A310
+10661	LINEAR A SIGN A311
+10662	LINEAR A SIGN A312
+10663	LINEAR A SIGN A313A
+10664	LINEAR A SIGN A313B
+10665	LINEAR A SIGN A313C
+10666	LINEAR A SIGN A314
+10667	LINEAR A SIGN A315
+10668	LINEAR A SIGN A316
+10669	LINEAR A SIGN A317
+1066A	LINEAR A SIGN A318
+1066B	LINEAR A SIGN A319
+1066C	LINEAR A SIGN A320
+1066D	LINEAR A SIGN A321
+1066E	LINEAR A SIGN A322
+1066F	LINEAR A SIGN A323
+10670	LINEAR A SIGN A324
+10671	LINEAR A SIGN A325
+10672	LINEAR A SIGN A326
+10673	LINEAR A SIGN A327
+10674	LINEAR A SIGN A328
+10675	LINEAR A SIGN A329
+10676	LINEAR A SIGN A330
+10677	LINEAR A SIGN A331
+10678	LINEAR A SIGN A332
+10679	LINEAR A SIGN A333
+1067A	LINEAR A SIGN A334
+1067B	LINEAR A SIGN A335
+1067C	LINEAR A SIGN A336
+1067D	LINEAR A SIGN A337
+1067E	LINEAR A SIGN A338
+1067F	LINEAR A SIGN A339
+10680	LINEAR A SIGN A340
+10681	LINEAR A SIGN A341
+10682	LINEAR A SIGN A342
+10683	LINEAR A SIGN A343
+10684	LINEAR A SIGN A344
+10685	LINEAR A SIGN A345
+10686	LINEAR A SIGN A346
+10687	LINEAR A SIGN A347
+10688	LINEAR A SIGN A348
+10689	LINEAR A SIGN A349
+1068A	LINEAR A SIGN A350
+1068B	LINEAR A SIGN A351
+1068C	LINEAR A SIGN A352
+1068D	LINEAR A SIGN A353
+1068E	LINEAR A SIGN A354
+1068F	LINEAR A SIGN A355
+10690	LINEAR A SIGN A356
+10691	LINEAR A SIGN A357
+10692	LINEAR A SIGN A358
+10693	LINEAR A SIGN A359
+10694	LINEAR A SIGN A360
+10695	LINEAR A SIGN A361
+10696	LINEAR A SIGN A362
+10697	LINEAR A SIGN A363
+10698	LINEAR A SIGN A364
+10699	LINEAR A SIGN A365
+1069A	LINEAR A SIGN A366
+1069B	LINEAR A SIGN A367
+1069C	LINEAR A SIGN A368
+1069D	LINEAR A SIGN A369
+1069E	LINEAR A SIGN A370
+1069F	LINEAR A SIGN A371
+106A0	LINEAR A SIGN A400-VAS
+106A1	LINEAR A SIGN A401-VAS
+106A2	LINEAR A SIGN A402-VAS
+106A3	LINEAR A SIGN A403-VAS
+106A4	LINEAR A SIGN A404-VAS
+106A5	LINEAR A SIGN A405-VAS
+106A6	LINEAR A SIGN A406-VAS
+106A7	LINEAR A SIGN A407-VAS
+106A8	LINEAR A SIGN A408-VAS
+106A9	LINEAR A SIGN A409-VAS
+106AA	LINEAR A SIGN A410-VAS
+106AB	LINEAR A SIGN A411-VAS
+106AC	LINEAR A SIGN A412-VAS
+106AD	LINEAR A SIGN A413-VAS
+106AE	LINEAR A SIGN A414-VAS
+106AF	LINEAR A SIGN A415-VAS
+106B0	LINEAR A SIGN A416-VAS
+106B1	LINEAR A SIGN A417-VAS
+106B2	LINEAR A SIGN A418-VAS
+106B3	LINEAR A SIGN A501
+106B4	LINEAR A SIGN A502
+106B5	LINEAR A SIGN A503
+106B6	LINEAR A SIGN A504
+106B7	LINEAR A SIGN A505
+106B8	LINEAR A SIGN A506
+106B9	LINEAR A SIGN A508
+106BA	LINEAR A SIGN A509
+106BB	LINEAR A SIGN A510
+106BC	LINEAR A SIGN A511
+106BD	LINEAR A SIGN A512
+106BE	LINEAR A SIGN A513
+106BF	LINEAR A SIGN A515
+106C0	LINEAR A SIGN A516
+106C1	LINEAR A SIGN A520
+106C2	LINEAR A SIGN A521
+106C3	LINEAR A SIGN A523
+106C4	LINEAR A SIGN A524
+106C5	LINEAR A SIGN A525
+106C6	LINEAR A SIGN A526
+106C7	LINEAR A SIGN A527
+106C8	LINEAR A SIGN A528
+106C9	LINEAR A SIGN A529
+106CA	LINEAR A SIGN A530
+106CB	LINEAR A SIGN A531
+106CC	LINEAR A SIGN A532
+106CD	LINEAR A SIGN A534
+106CE	LINEAR A SIGN A535
+106CF	LINEAR A SIGN A536
+106D0	LINEAR A SIGN A537
+106D1	LINEAR A SIGN A538
+106D2	LINEAR A SIGN A539
+106D3	LINEAR A SIGN A540
+106D4	LINEAR A SIGN A541
+106D5	LINEAR A SIGN A542
+106D6	LINEAR A SIGN A545
+106D7	LINEAR A SIGN A547
+106D8	LINEAR A SIGN A548
+106D9	LINEAR A SIGN A549
+106DA	LINEAR A SIGN A550
+106DB	LINEAR A SIGN A551
+106DC	LINEAR A SIGN A552
+106DD	LINEAR A SIGN A553
+106DE	LINEAR A SIGN A554
+106DF	LINEAR A SIGN A555
+106E0	LINEAR A SIGN A556
+106E1	LINEAR A SIGN A557
+106E2	LINEAR A SIGN A559
+106E3	LINEAR A SIGN A563
+106E4	LINEAR A SIGN A564
+106E5	LINEAR A SIGN A565
+106E6	LINEAR A SIGN A566
+106E7	LINEAR A SIGN A568
+106E8	LINEAR A SIGN A569
+106E9	LINEAR A SIGN A570
+106EA	LINEAR A SIGN A571
+106EB	LINEAR A SIGN A572
+106EC	LINEAR A SIGN A573
+106ED	LINEAR A SIGN A574
+106EE	LINEAR A SIGN A575
+106EF	LINEAR A SIGN A576
+106F0	LINEAR A SIGN A577
+106F1	LINEAR A SIGN A578
+106F2	LINEAR A SIGN A579
+106F3	LINEAR A SIGN A580
+106F4	LINEAR A SIGN A581
+106F5	LINEAR A SIGN A582
+106F6	LINEAR A SIGN A583
+106F7	LINEAR A SIGN A584
+106F8	LINEAR A SIGN A585
+106F9	LINEAR A SIGN A586
+106FA	LINEAR A SIGN A587
+106FB	LINEAR A SIGN A588
+106FC	LINEAR A SIGN A589
+106FD	LINEAR A SIGN A591
+106FE	LINEAR A SIGN A592
+106FF	LINEAR A SIGN A594
+10700	LINEAR A SIGN A595
+10701	LINEAR A SIGN A596
+10702	LINEAR A SIGN A598
+10703	LINEAR A SIGN A600
+10704	LINEAR A SIGN A601
+10705	LINEAR A SIGN A602
+10706	LINEAR A SIGN A603
+10707	LINEAR A SIGN A604
+10708	LINEAR A SIGN A606
+10709	LINEAR A SIGN A608
+1070A	LINEAR A SIGN A609
+1070B	LINEAR A SIGN A610
+1070C	LINEAR A SIGN A611
+1070D	LINEAR A SIGN A612
+1070E	LINEAR A SIGN A613
+1070F	LINEAR A SIGN A614
+10710	LINEAR A SIGN A615
+10711	LINEAR A SIGN A616
+10712	LINEAR A SIGN A617
+10713	LINEAR A SIGN A618
+10714	LINEAR A SIGN A619
+10715	LINEAR A SIGN A620
+10716	LINEAR A SIGN A621
+10717	LINEAR A SIGN A622
+10718	LINEAR A SIGN A623
+10719	LINEAR A SIGN A624
+1071A	LINEAR A SIGN A626
+1071B	LINEAR A SIGN A627
+1071C	LINEAR A SIGN A628
+1071D	LINEAR A SIGN A629
+1071E	LINEAR A SIGN A634
+1071F	LINEAR A SIGN A637
+10720	LINEAR A SIGN A638
+10721	LINEAR A SIGN A640
+10722	LINEAR A SIGN A642
+10723	LINEAR A SIGN A643
+10724	LINEAR A SIGN A644
+10725	LINEAR A SIGN A645
+10726	LINEAR A SIGN A646
+10727	LINEAR A SIGN A648
+10728	LINEAR A SIGN A649
+10729	LINEAR A SIGN A651
+1072A	LINEAR A SIGN A652
+1072B	LINEAR A SIGN A653
+1072C	LINEAR A SIGN A654
+1072D	LINEAR A SIGN A655
+1072E	LINEAR A SIGN A656
+1072F	LINEAR A SIGN A657
+10730	LINEAR A SIGN A658
+10731	LINEAR A SIGN A659
+10732	LINEAR A SIGN A660
+10733	LINEAR A SIGN A661
+10734	LINEAR A SIGN A662
+10735	LINEAR A SIGN A663
+10736	LINEAR A SIGN A664
+10740	LINEAR A SIGN A701 A
+10741	LINEAR A SIGN A702 B
+10742	LINEAR A SIGN A703 D
+10743	LINEAR A SIGN A704 E
+10744	LINEAR A SIGN A705 F
+10745	LINEAR A SIGN A706 H
+10746	LINEAR A SIGN A707 J
+10747	LINEAR A SIGN A708 K
+10748	LINEAR A SIGN A709 L
+10749	LINEAR A SIGN A709-2 L2
+1074A	LINEAR A SIGN A709-3 L3
+1074B	LINEAR A SIGN A709-4 L4
+1074C	LINEAR A SIGN A709-6 L6
+1074D	LINEAR A SIGN A710 W
+1074E	LINEAR A SIGN A711 X
+1074F	LINEAR A SIGN A712 Y
+10750	LINEAR A SIGN A713 OMEGA
+10751	LINEAR A SIGN A714 ABB
+10752	LINEAR A SIGN A715 BB
+10753	LINEAR A SIGN A717 DD
+10754	LINEAR A SIGN A726 EYYY
+10755	LINEAR A SIGN A732 JE
+10760	LINEAR A SIGN A800
+10761	LINEAR A SIGN A801
+10762	LINEAR A SIGN A802
+10763	LINEAR A SIGN A803
+10764	LINEAR A SIGN A804
+10765	LINEAR A SIGN A805
+10766	LINEAR A SIGN A806
+10767	LINEAR A SIGN A807
+10800	CYPRIOT SYLLABLE A
+10801	CYPRIOT SYLLABLE E
+10802	CYPRIOT SYLLABLE I
+10803	CYPRIOT SYLLABLE O
+10804	CYPRIOT SYLLABLE U
+10805	CYPRIOT SYLLABLE JA
+10808	CYPRIOT SYLLABLE JO
+1080A	CYPRIOT SYLLABLE KA
+1080B	CYPRIOT SYLLABLE KE
+1080C	CYPRIOT SYLLABLE KI
+1080D	CYPRIOT SYLLABLE KO
+1080E	CYPRIOT SYLLABLE KU
+1080F	CYPRIOT SYLLABLE LA
+10810	CYPRIOT SYLLABLE LE
+10811	CYPRIOT SYLLABLE LI
+10812	CYPRIOT SYLLABLE LO
+10813	CYPRIOT SYLLABLE LU
+10814	CYPRIOT SYLLABLE MA
+10815	CYPRIOT SYLLABLE ME
+10816	CYPRIOT SYLLABLE MI
+10817	CYPRIOT SYLLABLE MO
+10818	CYPRIOT SYLLABLE MU
+10819	CYPRIOT SYLLABLE NA
+1081A	CYPRIOT SYLLABLE NE
+1081B	CYPRIOT SYLLABLE NI
+1081C	CYPRIOT SYLLABLE NO
+1081D	CYPRIOT SYLLABLE NU
+1081E	CYPRIOT SYLLABLE PA
+1081F	CYPRIOT SYLLABLE PE
+10820	CYPRIOT SYLLABLE PI
+10821	CYPRIOT SYLLABLE PO
+10822	CYPRIOT SYLLABLE PU
+10823	CYPRIOT SYLLABLE RA
+10824	CYPRIOT SYLLABLE RE
+10825	CYPRIOT SYLLABLE RI
+10826	CYPRIOT SYLLABLE RO
+10827	CYPRIOT SYLLABLE RU
+10828	CYPRIOT SYLLABLE SA
+10829	CYPRIOT SYLLABLE SE
+1082A	CYPRIOT SYLLABLE SI
+1082B	CYPRIOT SYLLABLE SO
+1082C	CYPRIOT SYLLABLE SU
+1082D	CYPRIOT SYLLABLE TA
+1082E	CYPRIOT SYLLABLE TE
+1082F	CYPRIOT SYLLABLE TI
+10830	CYPRIOT SYLLABLE TO
+10831	CYPRIOT SYLLABLE TU
+10832	CYPRIOT SYLLABLE WA
+10833	CYPRIOT SYLLABLE WE
+10834	CYPRIOT SYLLABLE WI
+10835	CYPRIOT SYLLABLE WO
+10837	CYPRIOT SYLLABLE XA
+10838	CYPRIOT SYLLABLE XE
+1083C	CYPRIOT SYLLABLE ZA
+1083F	CYPRIOT SYLLABLE ZO
+10840	IMPERIAL ARAMAIC LETTER ALEPH
+10841	IMPERIAL ARAMAIC LETTER BETH
+10842	IMPERIAL ARAMAIC LETTER GIMEL
+10843	IMPERIAL ARAMAIC LETTER DALETH
+10844	IMPERIAL ARAMAIC LETTER HE
+10845	IMPERIAL ARAMAIC LETTER WAW
+10846	IMPERIAL ARAMAIC LETTER ZAYIN
+10847	IMPERIAL ARAMAIC LETTER HETH
+10848	IMPERIAL ARAMAIC LETTER TETH
+10849	IMPERIAL ARAMAIC LETTER YODH
+1084A	IMPERIAL ARAMAIC LETTER KAPH
+1084B	IMPERIAL ARAMAIC LETTER LAMEDH
+1084C	IMPERIAL ARAMAIC LETTER MEM
+1084D	IMPERIAL ARAMAIC LETTER NUN
+1084E	IMPERIAL ARAMAIC LETTER SAMEKH
+1084F	IMPERIAL ARAMAIC LETTER AYIN
+10850	IMPERIAL ARAMAIC LETTER PE
+10851	IMPERIAL ARAMAIC LETTER SADHE
+10852	IMPERIAL ARAMAIC LETTER QOPH
+10853	IMPERIAL ARAMAIC LETTER RESH
+10854	IMPERIAL ARAMAIC LETTER SHIN
+10855	IMPERIAL ARAMAIC LETTER TAW
+10857	IMPERIAL ARAMAIC SECTION SIGN
+10858	IMPERIAL ARAMAIC NUMBER ONE
+10859	IMPERIAL ARAMAIC NUMBER TWO
+1085A	IMPERIAL ARAMAIC NUMBER THREE
+1085B	IMPERIAL ARAMAIC NUMBER TEN
+1085C	IMPERIAL ARAMAIC NUMBER TWENTY
+1085D	IMPERIAL ARAMAIC NUMBER ONE HUNDRED
+1085E	IMPERIAL ARAMAIC NUMBER ONE THOUSAND
+1085F	IMPERIAL ARAMAIC NUMBER TEN THOUSAND
+10860	PALMYRENE LETTER ALEPH
+10861	PALMYRENE LETTER BETH
+10862	PALMYRENE LETTER GIMEL
+10863	PALMYRENE LETTER DALETH
+10864	PALMYRENE LETTER HE
+10865	PALMYRENE LETTER WAW
+10866	PALMYRENE LETTER ZAYIN
+10867	PALMYRENE LETTER HETH
+10868	PALMYRENE LETTER TETH
+10869	PALMYRENE LETTER YODH
+1086A	PALMYRENE LETTER KAPH
+1086B	PALMYRENE LETTER LAMEDH
+1086C	PALMYRENE LETTER MEM
+1086D	PALMYRENE LETTER FINAL NUN
+1086E	PALMYRENE LETTER NUN
+1086F	PALMYRENE LETTER SAMEKH
+10870	PALMYRENE LETTER AYIN
+10871	PALMYRENE LETTER PE
+10872	PALMYRENE LETTER SADHE
+10873	PALMYRENE LETTER QOPH
+10874	PALMYRENE LETTER RESH
+10875	PALMYRENE LETTER SHIN
+10876	PALMYRENE LETTER TAW
+10877	PALMYRENE LEFT-POINTING FLEURON
+10878	PALMYRENE RIGHT-POINTING FLEURON
+10879	PALMYRENE NUMBER ONE
+1087A	PALMYRENE NUMBER TWO
+1087B	PALMYRENE NUMBER THREE
+1087C	PALMYRENE NUMBER FOUR
+1087D	PALMYRENE NUMBER FIVE
+1087E	PALMYRENE NUMBER TEN
+1087F	PALMYRENE NUMBER TWENTY
+10880	NABATAEAN LETTER FINAL ALEPH
+10881	NABATAEAN LETTER ALEPH
+10882	NABATAEAN LETTER FINAL BETH
+10883	NABATAEAN LETTER BETH
+10884	NABATAEAN LETTER GIMEL
+10885	NABATAEAN LETTER DALETH
+10886	NABATAEAN LETTER FINAL HE
+10887	NABATAEAN LETTER HE
+10888	NABATAEAN LETTER WAW
+10889	NABATAEAN LETTER ZAYIN
+1088A	NABATAEAN LETTER HETH
+1088B	NABATAEAN LETTER TETH
+1088C	NABATAEAN LETTER FINAL YODH
+1088D	NABATAEAN LETTER YODH
+1088E	NABATAEAN LETTER FINAL KAPH
+1088F	NABATAEAN LETTER KAPH
+10890	NABATAEAN LETTER FINAL LAMEDH
+10891	NABATAEAN LETTER LAMEDH
+10892	NABATAEAN LETTER FINAL MEM
+10893	NABATAEAN LETTER MEM
+10894	NABATAEAN LETTER FINAL NUN
+10895	NABATAEAN LETTER NUN
+10896	NABATAEAN LETTER SAMEKH
+10897	NABATAEAN LETTER AYIN
+10898	NABATAEAN LETTER PE
+10899	NABATAEAN LETTER SADHE
+1089A	NABATAEAN LETTER QOPH
+1089B	NABATAEAN LETTER RESH
+1089C	NABATAEAN LETTER FINAL SHIN
+1089D	NABATAEAN LETTER SHIN
+1089E	NABATAEAN LETTER TAW
+108A7	NABATAEAN NUMBER ONE
+108A8	NABATAEAN NUMBER TWO
+108A9	NABATAEAN NUMBER THREE
+108AA	NABATAEAN NUMBER FOUR
+108AB	NABATAEAN CRUCIFORM NUMBER FOUR
+108AC	NABATAEAN NUMBER FIVE
+108AD	NABATAEAN NUMBER TEN
+108AE	NABATAEAN NUMBER TWENTY
+108AF	NABATAEAN NUMBER ONE HUNDRED
+108E0	HATRAN LETTER ALEPH
+108E1	HATRAN LETTER BETH
+108E2	HATRAN LETTER GIMEL
+108E3	HATRAN LETTER DALETH-RESH
+108E4	HATRAN LETTER HE
+108E5	HATRAN LETTER WAW
+108E6	HATRAN LETTER ZAYN
+108E7	HATRAN LETTER HETH
+108E8	HATRAN LETTER TETH
+108E9	HATRAN LETTER YODH
+108EA	HATRAN LETTER KAPH
+108EB	HATRAN LETTER LAMEDH
+108EC	HATRAN LETTER MEM
+108ED	HATRAN LETTER NUN
+108EE	HATRAN LETTER SAMEKH
+108EF	HATRAN LETTER AYN
+108F0	HATRAN LETTER PE
+108F1	HATRAN LETTER SADHE
+108F2	HATRAN LETTER QOPH
+108F4	HATRAN LETTER SHIN
+108F5	HATRAN LETTER TAW
+108FB	HATRAN NUMBER ONE
+108FC	HATRAN NUMBER FIVE
+108FD	HATRAN NUMBER TEN
+108FE	HATRAN NUMBER TWENTY
+108FF	HATRAN NUMBER ONE HUNDRED
+10900	PHOENICIAN LETTER ALF
+10901	PHOENICIAN LETTER BET
+10902	PHOENICIAN LETTER GAML
+10903	PHOENICIAN LETTER DELT
+10904	PHOENICIAN LETTER HE
+10905	PHOENICIAN LETTER WAU
+10906	PHOENICIAN LETTER ZAI
+10907	PHOENICIAN LETTER HET
+10908	PHOENICIAN LETTER TET
+10909	PHOENICIAN LETTER YOD
+1090A	PHOENICIAN LETTER KAF
+1090B	PHOENICIAN LETTER LAMD
+1090C	PHOENICIAN LETTER MEM
+1090D	PHOENICIAN LETTER NUN
+1090E	PHOENICIAN LETTER SEMK
+1090F	PHOENICIAN LETTER AIN
+10910	PHOENICIAN LETTER PE
+10911	PHOENICIAN LETTER SADE
+10912	PHOENICIAN LETTER QOF
+10913	PHOENICIAN LETTER ROSH
+10914	PHOENICIAN LETTER SHIN
+10915	PHOENICIAN LETTER TAU
+10916	PHOENICIAN NUMBER ONE
+10917	PHOENICIAN NUMBER TEN
+10918	PHOENICIAN NUMBER TWENTY
+10919	PHOENICIAN NUMBER ONE HUNDRED
+1091A	PHOENICIAN NUMBER TWO
+1091B	PHOENICIAN NUMBER THREE
+1091F	PHOENICIAN WORD SEPARATOR
+10920	LYDIAN LETTER A
+10921	LYDIAN LETTER B
+10922	LYDIAN LETTER G
+10923	LYDIAN LETTER D
+10924	LYDIAN LETTER E
+10925	LYDIAN LETTER V
+10926	LYDIAN LETTER I
+10927	LYDIAN LETTER Y
+10928	LYDIAN LETTER K
+10929	LYDIAN LETTER L
+1092A	LYDIAN LETTER M
+1092B	LYDIAN LETTER N
+1092C	LYDIAN LETTER O
+1092D	LYDIAN LETTER R
+1092E	LYDIAN LETTER SS
+1092F	LYDIAN LETTER T
+10930	LYDIAN LETTER U
+10931	LYDIAN LETTER F
+10932	LYDIAN LETTER Q
+10933	LYDIAN LETTER S
+10934	LYDIAN LETTER TT
+10935	LYDIAN LETTER AN
+10936	LYDIAN LETTER EN
+10937	LYDIAN LETTER LY
+10938	LYDIAN LETTER NN
+10939	LYDIAN LETTER C
+1093F	LYDIAN TRIANGULAR MARK
+10980	MEROITIC HIEROGLYPHIC LETTER A
+10981	MEROITIC HIEROGLYPHIC LETTER E
+10982	MEROITIC HIEROGLYPHIC LETTER I
+10983	MEROITIC HIEROGLYPHIC LETTER O
+10984	MEROITIC HIEROGLYPHIC LETTER YA
+10985	MEROITIC HIEROGLYPHIC LETTER WA
+10986	MEROITIC HIEROGLYPHIC LETTER BA
+10987	MEROITIC HIEROGLYPHIC LETTER BA-2
+10988	MEROITIC HIEROGLYPHIC LETTER PA
+10989	MEROITIC HIEROGLYPHIC LETTER MA
+1098A	MEROITIC HIEROGLYPHIC LETTER NA
+1098B	MEROITIC HIEROGLYPHIC LETTER NA-2
+1098C	MEROITIC HIEROGLYPHIC LETTER NE
+1098D	MEROITIC HIEROGLYPHIC LETTER NE-2
+1098E	MEROITIC HIEROGLYPHIC LETTER RA
+1098F	MEROITIC HIEROGLYPHIC LETTER RA-2
+10990	MEROITIC HIEROGLYPHIC LETTER LA
+10991	MEROITIC HIEROGLYPHIC LETTER KHA
+10992	MEROITIC HIEROGLYPHIC LETTER HHA
+10993	MEROITIC HIEROGLYPHIC LETTER SA
+10994	MEROITIC HIEROGLYPHIC LETTER SA-2
+10995	MEROITIC HIEROGLYPHIC LETTER SE
+10996	MEROITIC HIEROGLYPHIC LETTER KA
+10997	MEROITIC HIEROGLYPHIC LETTER QA
+10998	MEROITIC HIEROGLYPHIC LETTER TA
+10999	MEROITIC HIEROGLYPHIC LETTER TA-2
+1099A	MEROITIC HIEROGLYPHIC LETTER TE
+1099B	MEROITIC HIEROGLYPHIC LETTER TE-2
+1099C	MEROITIC HIEROGLYPHIC LETTER TO
+1099D	MEROITIC HIEROGLYPHIC LETTER DA
+1099E	MEROITIC HIEROGLYPHIC SYMBOL VIDJ
+1099F	MEROITIC HIEROGLYPHIC SYMBOL VIDJ-2
+109A0	MEROITIC CURSIVE LETTER A
+109A1	MEROITIC CURSIVE LETTER E
+109A2	MEROITIC CURSIVE LETTER I
+109A3	MEROITIC CURSIVE LETTER O
+109A4	MEROITIC CURSIVE LETTER YA
+109A5	MEROITIC CURSIVE LETTER WA
+109A6	MEROITIC CURSIVE LETTER BA
+109A7	MEROITIC CURSIVE LETTER PA
+109A8	MEROITIC CURSIVE LETTER MA
+109A9	MEROITIC CURSIVE LETTER NA
+109AA	MEROITIC CURSIVE LETTER NE
+109AB	MEROITIC CURSIVE LETTER RA
+109AC	MEROITIC CURSIVE LETTER LA
+109AD	MEROITIC CURSIVE LETTER KHA
+109AE	MEROITIC CURSIVE LETTER HHA
+109AF	MEROITIC CURSIVE LETTER SA
+109B0	MEROITIC CURSIVE LETTER ARCHAIC SA
+109B1	MEROITIC CURSIVE LETTER SE
+109B2	MEROITIC CURSIVE LETTER KA
+109B3	MEROITIC CURSIVE LETTER QA
+109B4	MEROITIC CURSIVE LETTER TA
+109B5	MEROITIC CURSIVE LETTER TE
+109B6	MEROITIC CURSIVE LETTER TO
+109B7	MEROITIC CURSIVE LETTER DA
+109BC	MEROITIC CURSIVE FRACTION ELEVEN TWELFTHS
+109BD	MEROITIC CURSIVE FRACTION ONE HALF
+109BE	MEROITIC CURSIVE LOGOGRAM RMT
+109BF	MEROITIC CURSIVE LOGOGRAM IMN
+109C0	MEROITIC CURSIVE NUMBER ONE
+109C1	MEROITIC CURSIVE NUMBER TWO
+109C2	MEROITIC CURSIVE NUMBER THREE
+109C3	MEROITIC CURSIVE NUMBER FOUR
+109C4	MEROITIC CURSIVE NUMBER FIVE
+109C5	MEROITIC CURSIVE NUMBER SIX
+109C6	MEROITIC CURSIVE NUMBER SEVEN
+109C7	MEROITIC CURSIVE NUMBER EIGHT
+109C8	MEROITIC CURSIVE NUMBER NINE
+109C9	MEROITIC CURSIVE NUMBER TEN
+109CA	MEROITIC CURSIVE NUMBER TWENTY
+109CB	MEROITIC CURSIVE NUMBER THIRTY
+109CC	MEROITIC CURSIVE NUMBER FORTY
+109CD	MEROITIC CURSIVE NUMBER FIFTY
+109CE	MEROITIC CURSIVE NUMBER SIXTY
+109CF	MEROITIC CURSIVE NUMBER SEVENTY
+109D2	MEROITIC CURSIVE NUMBER ONE HUNDRED
+109D3	MEROITIC CURSIVE NUMBER TWO HUNDRED
+109D4	MEROITIC CURSIVE NUMBER THREE HUNDRED
+109D5	MEROITIC CURSIVE NUMBER FOUR HUNDRED
+109D6	MEROITIC CURSIVE NUMBER FIVE HUNDRED
+109D7	MEROITIC CURSIVE NUMBER SIX HUNDRED
+109D8	MEROITIC CURSIVE NUMBER SEVEN HUNDRED
+109D9	MEROITIC CURSIVE NUMBER EIGHT HUNDRED
+109DA	MEROITIC CURSIVE NUMBER NINE HUNDRED
+109DB	MEROITIC CURSIVE NUMBER ONE THOUSAND
+109DC	MEROITIC CURSIVE NUMBER TWO THOUSAND
+109DD	MEROITIC CURSIVE NUMBER THREE THOUSAND
+109DE	MEROITIC CURSIVE NUMBER FOUR THOUSAND
+109DF	MEROITIC CURSIVE NUMBER FIVE THOUSAND
+109E0	MEROITIC CURSIVE NUMBER SIX THOUSAND
+109E1	MEROITIC CURSIVE NUMBER SEVEN THOUSAND
+109E2	MEROITIC CURSIVE NUMBER EIGHT THOUSAND
+109E3	MEROITIC CURSIVE NUMBER NINE THOUSAND
+109E4	MEROITIC CURSIVE NUMBER TEN THOUSAND
+109E5	MEROITIC CURSIVE NUMBER TWENTY THOUSAND
+109E6	MEROITIC CURSIVE NUMBER THIRTY THOUSAND
+109E7	MEROITIC CURSIVE NUMBER FORTY THOUSAND
+109E8	MEROITIC CURSIVE NUMBER FIFTY THOUSAND
+109E9	MEROITIC CURSIVE NUMBER SIXTY THOUSAND
+109EA	MEROITIC CURSIVE NUMBER SEVENTY THOUSAND
+109EB	MEROITIC CURSIVE NUMBER EIGHTY THOUSAND
+109EC	MEROITIC CURSIVE NUMBER NINETY THOUSAND
+109ED	MEROITIC CURSIVE NUMBER ONE HUNDRED THOUSAND
+109EE	MEROITIC CURSIVE NUMBER TWO HUNDRED THOUSAND
+109EF	MEROITIC CURSIVE NUMBER THREE HUNDRED THOUSAND
+109F0	MEROITIC CURSIVE NUMBER FOUR HUNDRED THOUSAND
+109F1	MEROITIC CURSIVE NUMBER FIVE HUNDRED THOUSAND
+109F2	MEROITIC CURSIVE NUMBER SIX HUNDRED THOUSAND
+109F3	MEROITIC CURSIVE NUMBER SEVEN HUNDRED THOUSAND
+109F4	MEROITIC CURSIVE NUMBER EIGHT HUNDRED THOUSAND
+109F5	MEROITIC CURSIVE NUMBER NINE HUNDRED THOUSAND
+109F6	MEROITIC CURSIVE FRACTION ONE TWELFTH
+109F7	MEROITIC CURSIVE FRACTION TWO TWELFTHS
+109F8	MEROITIC CURSIVE FRACTION THREE TWELFTHS
+109F9	MEROITIC CURSIVE FRACTION FOUR TWELFTHS
+109FA	MEROITIC CURSIVE FRACTION FIVE TWELFTHS
+109FB	MEROITIC CURSIVE FRACTION SIX TWELFTHS
+109FC	MEROITIC CURSIVE FRACTION SEVEN TWELFTHS
+109FD	MEROITIC CURSIVE FRACTION EIGHT TWELFTHS
+109FE	MEROITIC CURSIVE FRACTION NINE TWELFTHS
+109FF	MEROITIC CURSIVE FRACTION TEN TWELFTHS
+10A00	KHAROSHTHI LETTER A
+10A01	KHAROSHTHI VOWEL SIGN I
+10A02	KHAROSHTHI VOWEL SIGN U
+10A03	KHAROSHTHI VOWEL SIGN VOCALIC R
+10A05	KHAROSHTHI VOWEL SIGN E
+10A06	KHAROSHTHI VOWEL SIGN O
+10A0C	KHAROSHTHI VOWEL LENGTH MARK
+10A0D	KHAROSHTHI SIGN DOUBLE RING BELOW
+10A0E	KHAROSHTHI SIGN ANUSVARA
+10A0F	KHAROSHTHI SIGN VISARGA
+10A10	KHAROSHTHI LETTER KA
+10A11	KHAROSHTHI LETTER KHA
+10A12	KHAROSHTHI LETTER GA
+10A13	KHAROSHTHI LETTER GHA
+10A15	KHAROSHTHI LETTER CA
+10A16	KHAROSHTHI LETTER CHA
+10A17	KHAROSHTHI LETTER JA
+10A19	KHAROSHTHI LETTER NYA
+10A1A	KHAROSHTHI LETTER TTA
+10A1B	KHAROSHTHI LETTER TTHA
+10A1C	KHAROSHTHI LETTER DDA
+10A1D	KHAROSHTHI LETTER DDHA
+10A1E	KHAROSHTHI LETTER NNA
+10A1F	KHAROSHTHI LETTER TA
+10A20	KHAROSHTHI LETTER THA
+10A21	KHAROSHTHI LETTER DA
+10A22	KHAROSHTHI LETTER DHA
+10A23	KHAROSHTHI LETTER NA
+10A24	KHAROSHTHI LETTER PA
+10A25	KHAROSHTHI LETTER PHA
+10A26	KHAROSHTHI LETTER BA
+10A27	KHAROSHTHI LETTER BHA
+10A28	KHAROSHTHI LETTER MA
+10A29	KHAROSHTHI LETTER YA
+10A2A	KHAROSHTHI LETTER RA
+10A2B	KHAROSHTHI LETTER LA
+10A2C	KHAROSHTHI LETTER VA
+10A2D	KHAROSHTHI LETTER SHA
+10A2E	KHAROSHTHI LETTER SSA
+10A2F	KHAROSHTHI LETTER SA
+10A30	KHAROSHTHI LETTER ZA
+10A31	KHAROSHTHI LETTER HA
+10A32	KHAROSHTHI LETTER KKA
+10A33	KHAROSHTHI LETTER TTTHA
+10A38	KHAROSHTHI SIGN BAR ABOVE
+10A39	KHAROSHTHI SIGN CAUDA
+10A3A	KHAROSHTHI SIGN DOT BELOW
+10A3F	KHAROSHTHI VIRAMA
+10A40	KHAROSHTHI DIGIT ONE
+10A41	KHAROSHTHI DIGIT TWO
+10A42	KHAROSHTHI DIGIT THREE
+10A43	KHAROSHTHI DIGIT FOUR
+10A44	KHAROSHTHI NUMBER TEN
+10A45	KHAROSHTHI NUMBER TWENTY
+10A46	KHAROSHTHI NUMBER ONE HUNDRED
+10A47	KHAROSHTHI NUMBER ONE THOUSAND
+10A50	KHAROSHTHI PUNCTUATION DOT
+10A51	KHAROSHTHI PUNCTUATION SMALL CIRCLE
+10A52	KHAROSHTHI PUNCTUATION CIRCLE
+10A53	KHAROSHTHI PUNCTUATION CRESCENT BAR
+10A54	KHAROSHTHI PUNCTUATION MANGALAM
+10A55	KHAROSHTHI PUNCTUATION LOTUS
+10A56	KHAROSHTHI PUNCTUATION DANDA
+10A57	KHAROSHTHI PUNCTUATION DOUBLE DANDA
+10A58	KHAROSHTHI PUNCTUATION LINES
+10A60	OLD SOUTH ARABIAN LETTER HE
+10A61	OLD SOUTH ARABIAN LETTER LAMEDH
+10A62	OLD SOUTH ARABIAN LETTER HETH
+10A63	OLD SOUTH ARABIAN LETTER MEM
+10A64	OLD SOUTH ARABIAN LETTER QOPH
+10A65	OLD SOUTH ARABIAN LETTER WAW
+10A66	OLD SOUTH ARABIAN LETTER SHIN
+10A67	OLD SOUTH ARABIAN LETTER RESH
+10A68	OLD SOUTH ARABIAN LETTER BETH
+10A69	OLD SOUTH ARABIAN LETTER TAW
+10A6A	OLD SOUTH ARABIAN LETTER SAT
+10A6B	OLD SOUTH ARABIAN LETTER KAPH
+10A6C	OLD SOUTH ARABIAN LETTER NUN
+10A6D	OLD SOUTH ARABIAN LETTER KHETH
+10A6E	OLD SOUTH ARABIAN LETTER SADHE
+10A6F	OLD SOUTH ARABIAN LETTER SAMEKH
+10A70	OLD SOUTH ARABIAN LETTER FE
+10A71	OLD SOUTH ARABIAN LETTER ALEF
+10A72	OLD SOUTH ARABIAN LETTER AYN
+10A73	OLD SOUTH ARABIAN LETTER DHADHE
+10A74	OLD SOUTH ARABIAN LETTER GIMEL
+10A75	OLD SOUTH ARABIAN LETTER DALETH
+10A76	OLD SOUTH ARABIAN LETTER GHAYN
+10A77	OLD SOUTH ARABIAN LETTER TETH
+10A78	OLD SOUTH ARABIAN LETTER ZAYN
+10A79	OLD SOUTH ARABIAN LETTER DHALETH
+10A7A	OLD SOUTH ARABIAN LETTER YODH
+10A7B	OLD SOUTH ARABIAN LETTER THAW
+10A7C	OLD SOUTH ARABIAN LETTER THETH
+10A7D	OLD SOUTH ARABIAN NUMBER ONE
+10A7E	OLD SOUTH ARABIAN NUMBER FIFTY
+10A7F	OLD SOUTH ARABIAN NUMERIC INDICATOR
+10A80	OLD NORTH ARABIAN LETTER HEH
+10A81	OLD NORTH ARABIAN LETTER LAM
+10A82	OLD NORTH ARABIAN LETTER HAH
+10A83	OLD NORTH ARABIAN LETTER MEEM
+10A84	OLD NORTH ARABIAN LETTER QAF
+10A85	OLD NORTH ARABIAN LETTER WAW
+10A86	OLD NORTH ARABIAN LETTER ES-2
+10A87	OLD NORTH ARABIAN LETTER REH
+10A88	OLD NORTH ARABIAN LETTER BEH
+10A89	OLD NORTH ARABIAN LETTER TEH
+10A8A	OLD NORTH ARABIAN LETTER ES-1
+10A8B	OLD NORTH ARABIAN LETTER KAF
+10A8C	OLD NORTH ARABIAN LETTER NOON
+10A8D	OLD NORTH ARABIAN LETTER KHAH
+10A8E	OLD NORTH ARABIAN LETTER SAD
+10A8F	OLD NORTH ARABIAN LETTER ES-3
+10A90	OLD NORTH ARABIAN LETTER FEH
+10A91	OLD NORTH ARABIAN LETTER ALEF
+10A92	OLD NORTH ARABIAN LETTER AIN
+10A93	OLD NORTH ARABIAN LETTER DAD
+10A94	OLD NORTH ARABIAN LETTER GEEM
+10A95	OLD NORTH ARABIAN LETTER DAL
+10A96	OLD NORTH ARABIAN LETTER GHAIN
+10A97	OLD NORTH ARABIAN LETTER TAH
+10A98	OLD NORTH ARABIAN LETTER ZAIN
+10A99	OLD NORTH ARABIAN LETTER THAL
+10A9A	OLD NORTH ARABIAN LETTER YEH
+10A9B	OLD NORTH ARABIAN LETTER THEH
+10A9C	OLD NORTH ARABIAN LETTER ZAH
+10A9D	OLD NORTH ARABIAN NUMBER ONE
+10A9E	OLD NORTH ARABIAN NUMBER TEN
+10A9F	OLD NORTH ARABIAN NUMBER TWENTY
+10AC0	MANICHAEAN LETTER ALEPH
+10AC1	MANICHAEAN LETTER BETH
+10AC2	MANICHAEAN LETTER BHETH
+10AC3	MANICHAEAN LETTER GIMEL
+10AC4	MANICHAEAN LETTER GHIMEL
+10AC5	MANICHAEAN LETTER DALETH
+10AC6	MANICHAEAN LETTER HE
+10AC7	MANICHAEAN LETTER WAW
+10AC8	MANICHAEAN SIGN UD
+10AC9	MANICHAEAN LETTER ZAYIN
+10ACA	MANICHAEAN LETTER ZHAYIN
+10ACB	MANICHAEAN LETTER JAYIN
+10ACC	MANICHAEAN LETTER JHAYIN
+10ACD	MANICHAEAN LETTER HETH
+10ACE	MANICHAEAN LETTER TETH
+10ACF	MANICHAEAN LETTER YODH
+10AD0	MANICHAEAN LETTER KAPH
+10AD1	MANICHAEAN LETTER XAPH
+10AD2	MANICHAEAN LETTER KHAPH
+10AD3	MANICHAEAN LETTER LAMEDH
+10AD4	MANICHAEAN LETTER DHAMEDH
+10AD5	MANICHAEAN LETTER THAMEDH
+10AD6	MANICHAEAN LETTER MEM
+10AD7	MANICHAEAN LETTER NUN
+10AD8	MANICHAEAN LETTER SAMEKH
+10AD9	MANICHAEAN LETTER AYIN
+10ADA	MANICHAEAN LETTER AAYIN
+10ADB	MANICHAEAN LETTER PE
+10ADC	MANICHAEAN LETTER FE
+10ADD	MANICHAEAN LETTER SADHE
+10ADE	MANICHAEAN LETTER QOPH
+10ADF	MANICHAEAN LETTER XOPH
+10AE0	MANICHAEAN LETTER QHOPH
+10AE1	MANICHAEAN LETTER RESH
+10AE2	MANICHAEAN LETTER SHIN
+10AE3	MANICHAEAN LETTER SSHIN
+10AE4	MANICHAEAN LETTER TAW
+10AE5	MANICHAEAN ABBREVIATION MARK ABOVE
+10AE6	MANICHAEAN ABBREVIATION MARK BELOW
+10AEB	MANICHAEAN NUMBER ONE
+10AEC	MANICHAEAN NUMBER FIVE
+10AED	MANICHAEAN NUMBER TEN
+10AEE	MANICHAEAN NUMBER TWENTY
+10AEF	MANICHAEAN NUMBER ONE HUNDRED
+10AF0	MANICHAEAN PUNCTUATION STAR
+10AF1	MANICHAEAN PUNCTUATION FLEURON
+10AF2	MANICHAEAN PUNCTUATION DOUBLE DOT WITHIN DOT
+10AF3	MANICHAEAN PUNCTUATION DOT WITHIN DOT
+10AF4	MANICHAEAN PUNCTUATION DOT
+10AF5	MANICHAEAN PUNCTUATION TWO DOTS
+10AF6	MANICHAEAN PUNCTUATION LINE FILLER
+10B00	AVESTAN LETTER A
+10B01	AVESTAN LETTER AA
+10B02	AVESTAN LETTER AO
+10B03	AVESTAN LETTER AAO
+10B04	AVESTAN LETTER AN
+10B05	AVESTAN LETTER AAN
+10B06	AVESTAN LETTER AE
+10B07	AVESTAN LETTER AEE
+10B08	AVESTAN LETTER E
+10B09	AVESTAN LETTER EE
+10B0A	AVESTAN LETTER O
+10B0B	AVESTAN LETTER OO
+10B0C	AVESTAN LETTER I
+10B0D	AVESTAN LETTER II
+10B0E	AVESTAN LETTER U
+10B0F	AVESTAN LETTER UU
+10B10	AVESTAN LETTER KE
+10B11	AVESTAN LETTER XE
+10B12	AVESTAN LETTER XYE
+10B13	AVESTAN LETTER XVE
+10B14	AVESTAN LETTER GE
+10B15	AVESTAN LETTER GGE
+10B16	AVESTAN LETTER GHE
+10B17	AVESTAN LETTER CE
+10B18	AVESTAN LETTER JE
+10B19	AVESTAN LETTER TE
+10B1A	AVESTAN LETTER THE
+10B1B	AVESTAN LETTER DE
+10B1C	AVESTAN LETTER DHE
+10B1D	AVESTAN LETTER TTE
+10B1E	AVESTAN LETTER PE
+10B1F	AVESTAN LETTER FE
+10B20	AVESTAN LETTER BE
+10B21	AVESTAN LETTER BHE
+10B22	AVESTAN LETTER NGE
+10B23	AVESTAN LETTER NGYE
+10B24	AVESTAN LETTER NGVE
+10B25	AVESTAN LETTER NE
+10B26	AVESTAN LETTER NYE
+10B27	AVESTAN LETTER NNE
+10B28	AVESTAN LETTER ME
+10B29	AVESTAN LETTER HME
+10B2A	AVESTAN LETTER YYE
+10B2B	AVESTAN LETTER YE
+10B2C	AVESTAN LETTER VE
+10B2D	AVESTAN LETTER RE
+10B2E	AVESTAN LETTER LE
+10B2F	AVESTAN LETTER SE
+10B30	AVESTAN LETTER ZE
+10B31	AVESTAN LETTER SHE
+10B32	AVESTAN LETTER ZHE
+10B33	AVESTAN LETTER SHYE
+10B34	AVESTAN LETTER SSHE
+10B35	AVESTAN LETTER HE
+10B39	AVESTAN ABBREVIATION MARK
+10B3A	TINY TWO DOTS OVER ONE DOT PUNCTUATION
+10B3B	SMALL TWO DOTS OVER ONE DOT PUNCTUATION
+10B3C	LARGE TWO DOTS OVER ONE DOT PUNCTUATION
+10B3D	LARGE ONE DOT OVER TWO DOTS PUNCTUATION
+10B3E	LARGE TWO RINGS OVER ONE RING PUNCTUATION
+10B3F	LARGE ONE RING OVER TWO RINGS PUNCTUATION
+10B40	INSCRIPTIONAL PARTHIAN LETTER ALEPH
+10B41	INSCRIPTIONAL PARTHIAN LETTER BETH
+10B42	INSCRIPTIONAL PARTHIAN LETTER GIMEL
+10B43	INSCRIPTIONAL PARTHIAN LETTER DALETH
+10B44	INSCRIPTIONAL PARTHIAN LETTER HE
+10B45	INSCRIPTIONAL PARTHIAN LETTER WAW
+10B46	INSCRIPTIONAL PARTHIAN LETTER ZAYIN
+10B47	INSCRIPTIONAL PARTHIAN LETTER HETH
+10B48	INSCRIPTIONAL PARTHIAN LETTER TETH
+10B49	INSCRIPTIONAL PARTHIAN LETTER YODH
+10B4A	INSCRIPTIONAL PARTHIAN LETTER KAPH
+10B4B	INSCRIPTIONAL PARTHIAN LETTER LAMEDH
+10B4C	INSCRIPTIONAL PARTHIAN LETTER MEM
+10B4D	INSCRIPTIONAL PARTHIAN LETTER NUN
+10B4E	INSCRIPTIONAL PARTHIAN LETTER SAMEKH
+10B4F	INSCRIPTIONAL PARTHIAN LETTER AYIN
+10B50	INSCRIPTIONAL PARTHIAN LETTER PE
+10B51	INSCRIPTIONAL PARTHIAN LETTER SADHE
+10B52	INSCRIPTIONAL PARTHIAN LETTER QOPH
+10B53	INSCRIPTIONAL PARTHIAN LETTER RESH
+10B54	INSCRIPTIONAL PARTHIAN LETTER SHIN
+10B55	INSCRIPTIONAL PARTHIAN LETTER TAW
+10B58	INSCRIPTIONAL PARTHIAN NUMBER ONE
+10B59	INSCRIPTIONAL PARTHIAN NUMBER TWO
+10B5A	INSCRIPTIONAL PARTHIAN NUMBER THREE
+10B5B	INSCRIPTIONAL PARTHIAN NUMBER FOUR
+10B5C	INSCRIPTIONAL PARTHIAN NUMBER TEN
+10B5D	INSCRIPTIONAL PARTHIAN NUMBER TWENTY
+10B5E	INSCRIPTIONAL PARTHIAN NUMBER ONE HUNDRED
+10B5F	INSCRIPTIONAL PARTHIAN NUMBER ONE THOUSAND
+10B60	INSCRIPTIONAL PAHLAVI LETTER ALEPH
+10B61	INSCRIPTIONAL PAHLAVI LETTER BETH
+10B62	INSCRIPTIONAL PAHLAVI LETTER GIMEL
+10B63	INSCRIPTIONAL PAHLAVI LETTER DALETH
+10B64	INSCRIPTIONAL PAHLAVI LETTER HE
+10B65	INSCRIPTIONAL PAHLAVI LETTER WAW-AYIN-RESH
+10B66	INSCRIPTIONAL PAHLAVI LETTER ZAYIN
+10B67	INSCRIPTIONAL PAHLAVI LETTER HETH
+10B68	INSCRIPTIONAL PAHLAVI LETTER TETH
+10B69	INSCRIPTIONAL PAHLAVI LETTER YODH
+10B6A	INSCRIPTIONAL PAHLAVI LETTER KAPH
+10B6B	INSCRIPTIONAL PAHLAVI LETTER LAMEDH
+10B6C	INSCRIPTIONAL PAHLAVI LETTER MEM-QOPH
+10B6D	INSCRIPTIONAL PAHLAVI LETTER NUN
+10B6E	INSCRIPTIONAL PAHLAVI LETTER SAMEKH
+10B6F	INSCRIPTIONAL PAHLAVI LETTER PE
+10B70	INSCRIPTIONAL PAHLAVI LETTER SADHE
+10B71	INSCRIPTIONAL PAHLAVI LETTER SHIN
+10B72	INSCRIPTIONAL PAHLAVI LETTER TAW
+10B78	INSCRIPTIONAL PAHLAVI NUMBER ONE
+10B79	INSCRIPTIONAL PAHLAVI NUMBER TWO
+10B7A	INSCRIPTIONAL PAHLAVI NUMBER THREE
+10B7B	INSCRIPTIONAL PAHLAVI NUMBER FOUR
+10B7C	INSCRIPTIONAL PAHLAVI NUMBER TEN
+10B7D	INSCRIPTIONAL PAHLAVI NUMBER TWENTY
+10B7E	INSCRIPTIONAL PAHLAVI NUMBER ONE HUNDRED
+10B7F	INSCRIPTIONAL PAHLAVI NUMBER ONE THOUSAND
+10B80	PSALTER PAHLAVI LETTER ALEPH
+10B81	PSALTER PAHLAVI LETTER BETH
+10B82	PSALTER PAHLAVI LETTER GIMEL
+10B83	PSALTER PAHLAVI LETTER DALETH
+10B84	PSALTER PAHLAVI LETTER HE
+10B85	PSALTER PAHLAVI LETTER WAW-AYIN-RESH
+10B86	PSALTER PAHLAVI LETTER ZAYIN
+10B87	PSALTER PAHLAVI LETTER HETH
+10B88	PSALTER PAHLAVI LETTER YODH
+10B89	PSALTER PAHLAVI LETTER KAPH
+10B8A	PSALTER PAHLAVI LETTER LAMEDH
+10B8B	PSALTER PAHLAVI LETTER MEM-QOPH
+10B8C	PSALTER PAHLAVI LETTER NUN
+10B8D	PSALTER PAHLAVI LETTER SAMEKH
+10B8E	PSALTER PAHLAVI LETTER PE
+10B8F	PSALTER PAHLAVI LETTER SADHE
+10B90	PSALTER PAHLAVI LETTER SHIN
+10B91	PSALTER PAHLAVI LETTER TAW
+10B99	PSALTER PAHLAVI SECTION MARK
+10B9A	PSALTER PAHLAVI TURNED SECTION MARK
+10B9B	PSALTER PAHLAVI FOUR DOTS WITH CROSS
+10B9C	PSALTER PAHLAVI FOUR DOTS WITH DOT
+10BA9	PSALTER PAHLAVI NUMBER ONE
+10BAA	PSALTER PAHLAVI NUMBER TWO
+10BAB	PSALTER PAHLAVI NUMBER THREE
+10BAC	PSALTER PAHLAVI NUMBER FOUR
+10BAD	PSALTER PAHLAVI NUMBER TEN
+10BAE	PSALTER PAHLAVI NUMBER TWENTY
+10BAF	PSALTER PAHLAVI NUMBER ONE HUNDRED
+10C00	OLD TURKIC LETTER ORKHON A
+10C01	OLD TURKIC LETTER YENISEI A
+10C02	OLD TURKIC LETTER YENISEI AE
+10C03	OLD TURKIC LETTER ORKHON I
+10C04	OLD TURKIC LETTER YENISEI I
+10C05	OLD TURKIC LETTER YENISEI E
+10C06	OLD TURKIC LETTER ORKHON O
+10C07	OLD TURKIC LETTER ORKHON OE
+10C08	OLD TURKIC LETTER YENISEI OE
+10C09	OLD TURKIC LETTER ORKHON AB
+10C0A	OLD TURKIC LETTER YENISEI AB
+10C0B	OLD TURKIC LETTER ORKHON AEB
+10C0C	OLD TURKIC LETTER YENISEI AEB
+10C0D	OLD TURKIC LETTER ORKHON AG
+10C0E	OLD TURKIC LETTER YENISEI AG
+10C0F	OLD TURKIC LETTER ORKHON AEG
+10C10	OLD TURKIC LETTER YENISEI AEG
+10C11	OLD TURKIC LETTER ORKHON AD
+10C12	OLD TURKIC LETTER YENISEI AD
+10C13	OLD TURKIC LETTER ORKHON AED
+10C14	OLD TURKIC LETTER ORKHON EZ
+10C15	OLD TURKIC LETTER YENISEI EZ
+10C16	OLD TURKIC LETTER ORKHON AY
+10C17	OLD TURKIC LETTER YENISEI AY
+10C18	OLD TURKIC LETTER ORKHON AEY
+10C19	OLD TURKIC LETTER YENISEI AEY
+10C1A	OLD TURKIC LETTER ORKHON AEK
+10C1B	OLD TURKIC LETTER YENISEI AEK
+10C1C	OLD TURKIC LETTER ORKHON OEK
+10C1D	OLD TURKIC LETTER YENISEI OEK
+10C1E	OLD TURKIC LETTER ORKHON AL
+10C1F	OLD TURKIC LETTER YENISEI AL
+10C20	OLD TURKIC LETTER ORKHON AEL
+10C21	OLD TURKIC LETTER ORKHON ELT
+10C22	OLD TURKIC LETTER ORKHON EM
+10C23	OLD TURKIC LETTER ORKHON AN
+10C24	OLD TURKIC LETTER ORKHON AEN
+10C25	OLD TURKIC LETTER YENISEI AEN
+10C26	OLD TURKIC LETTER ORKHON ENT
+10C27	OLD TURKIC LETTER YENISEI ENT
+10C28	OLD TURKIC LETTER ORKHON ENC
+10C29	OLD TURKIC LETTER YENISEI ENC
+10C2A	OLD TURKIC LETTER ORKHON ENY
+10C2B	OLD TURKIC LETTER YENISEI ENY
+10C2C	OLD TURKIC LETTER YENISEI ANG
+10C2D	OLD TURKIC LETTER ORKHON ENG
+10C2E	OLD TURKIC LETTER YENISEI AENG
+10C2F	OLD TURKIC LETTER ORKHON EP
+10C30	OLD TURKIC LETTER ORKHON OP
+10C31	OLD TURKIC LETTER ORKHON IC
+10C32	OLD TURKIC LETTER ORKHON EC
+10C33	OLD TURKIC LETTER YENISEI EC
+10C34	OLD TURKIC LETTER ORKHON AQ
+10C35	OLD TURKIC LETTER YENISEI AQ
+10C36	OLD TURKIC LETTER ORKHON IQ
+10C37	OLD TURKIC LETTER YENISEI IQ
+10C38	OLD TURKIC LETTER ORKHON OQ
+10C39	OLD TURKIC LETTER YENISEI OQ
+10C3A	OLD TURKIC LETTER ORKHON AR
+10C3B	OLD TURKIC LETTER YENISEI AR
+10C3C	OLD TURKIC LETTER ORKHON AER
+10C3D	OLD TURKIC LETTER ORKHON AS
+10C3E	OLD TURKIC LETTER ORKHON AES
+10C3F	OLD TURKIC LETTER ORKHON ASH
+10C40	OLD TURKIC LETTER YENISEI ASH
+10C41	OLD TURKIC LETTER ORKHON ESH
+10C42	OLD TURKIC LETTER YENISEI ESH
+10C43	OLD TURKIC LETTER ORKHON AT
+10C44	OLD TURKIC LETTER YENISEI AT
+10C45	OLD TURKIC LETTER ORKHON AET
+10C46	OLD TURKIC LETTER YENISEI AET
+10C47	OLD TURKIC LETTER ORKHON OT
+10C48	OLD TURKIC LETTER ORKHON BASH
+10C80	OLD HUNGARIAN CAPITAL LETTER A
+10C81	OLD HUNGARIAN CAPITAL LETTER AA
+10C82	OLD HUNGARIAN CAPITAL LETTER EB
+10C83	OLD HUNGARIAN CAPITAL LETTER AMB
+10C84	OLD HUNGARIAN CAPITAL LETTER EC
+10C85	OLD HUNGARIAN CAPITAL LETTER ENC
+10C86	OLD HUNGARIAN CAPITAL LETTER ECS
+10C87	OLD HUNGARIAN CAPITAL LETTER ED
+10C88	OLD HUNGARIAN CAPITAL LETTER AND
+10C89	OLD HUNGARIAN CAPITAL LETTER E
+10C8A	OLD HUNGARIAN CAPITAL LETTER CLOSE E
+10C8B	OLD HUNGARIAN CAPITAL LETTER EE
+10C8C	OLD HUNGARIAN CAPITAL LETTER EF
+10C8D	OLD HUNGARIAN CAPITAL LETTER EG
+10C8E	OLD HUNGARIAN CAPITAL LETTER EGY
+10C8F	OLD HUNGARIAN CAPITAL LETTER EH
+10C90	OLD HUNGARIAN CAPITAL LETTER I
+10C91	OLD HUNGARIAN CAPITAL LETTER II
+10C92	OLD HUNGARIAN CAPITAL LETTER EJ
+10C93	OLD HUNGARIAN CAPITAL LETTER EK
+10C94	OLD HUNGARIAN CAPITAL LETTER AK
+10C95	OLD HUNGARIAN CAPITAL LETTER UNK
+10C96	OLD HUNGARIAN CAPITAL LETTER EL
+10C97	OLD HUNGARIAN CAPITAL LETTER ELY
+10C98	OLD HUNGARIAN CAPITAL LETTER EM
+10C99	OLD HUNGARIAN CAPITAL LETTER EN
+10C9A	OLD HUNGARIAN CAPITAL LETTER ENY
+10C9B	OLD HUNGARIAN CAPITAL LETTER O
+10C9C	OLD HUNGARIAN CAPITAL LETTER OO
+10C9D	OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG OE
+10C9E	OLD HUNGARIAN CAPITAL LETTER RUDIMENTA OE
+10C9F	OLD HUNGARIAN CAPITAL LETTER OEE
+10CA0	OLD HUNGARIAN CAPITAL LETTER EP
+10CA1	OLD HUNGARIAN CAPITAL LETTER EMP
+10CA2	OLD HUNGARIAN CAPITAL LETTER ER
+10CA3	OLD HUNGARIAN CAPITAL LETTER SHORT ER
+10CA4	OLD HUNGARIAN CAPITAL LETTER ES
+10CA5	OLD HUNGARIAN CAPITAL LETTER ESZ
+10CA6	OLD HUNGARIAN CAPITAL LETTER ET
+10CA7	OLD HUNGARIAN CAPITAL LETTER ENT
+10CA8	OLD HUNGARIAN CAPITAL LETTER ETY
+10CA9	OLD HUNGARIAN CAPITAL LETTER ECH
+10CAA	OLD HUNGARIAN CAPITAL LETTER U
+10CAB	OLD HUNGARIAN CAPITAL LETTER UU
+10CAC	OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG UE
+10CAD	OLD HUNGARIAN CAPITAL LETTER RUDIMENTA UE
+10CAE	OLD HUNGARIAN CAPITAL LETTER EV
+10CAF	OLD HUNGARIAN CAPITAL LETTER EZ
+10CB0	OLD HUNGARIAN CAPITAL LETTER EZS
+10CB1	OLD HUNGARIAN CAPITAL LETTER ENT-SHAPED SIGN
+10CB2	OLD HUNGARIAN CAPITAL LETTER US
+10CC0	OLD HUNGARIAN SMALL LETTER A
+10CC1	OLD HUNGARIAN SMALL LETTER AA
+10CC2	OLD HUNGARIAN SMALL LETTER EB
+10CC3	OLD HUNGARIAN SMALL LETTER AMB
+10CC4	OLD HUNGARIAN SMALL LETTER EC
+10CC5	OLD HUNGARIAN SMALL LETTER ENC
+10CC6	OLD HUNGARIAN SMALL LETTER ECS
+10CC7	OLD HUNGARIAN SMALL LETTER ED
+10CC8	OLD HUNGARIAN SMALL LETTER AND
+10CC9	OLD HUNGARIAN SMALL LETTER E
+10CCA	OLD HUNGARIAN SMALL LETTER CLOSE E
+10CCB	OLD HUNGARIAN SMALL LETTER EE
+10CCC	OLD HUNGARIAN SMALL LETTER EF
+10CCD	OLD HUNGARIAN SMALL LETTER EG
+10CCE	OLD HUNGARIAN SMALL LETTER EGY
+10CCF	OLD HUNGARIAN SMALL LETTER EH
+10CD0	OLD HUNGARIAN SMALL LETTER I
+10CD1	OLD HUNGARIAN SMALL LETTER II
+10CD2	OLD HUNGARIAN SMALL LETTER EJ
+10CD3	OLD HUNGARIAN SMALL LETTER EK
+10CD4	OLD HUNGARIAN SMALL LETTER AK
+10CD5	OLD HUNGARIAN SMALL LETTER UNK
+10CD6	OLD HUNGARIAN SMALL LETTER EL
+10CD7	OLD HUNGARIAN SMALL LETTER ELY
+10CD8	OLD HUNGARIAN SMALL LETTER EM
+10CD9	OLD HUNGARIAN SMALL LETTER EN
+10CDA	OLD HUNGARIAN SMALL LETTER ENY
+10CDB	OLD HUNGARIAN SMALL LETTER O
+10CDC	OLD HUNGARIAN SMALL LETTER OO
+10CDD	OLD HUNGARIAN SMALL LETTER NIKOLSBURG OE
+10CDE	OLD HUNGARIAN SMALL LETTER RUDIMENTA OE
+10CDF	OLD HUNGARIAN SMALL LETTER OEE
+10CE0	OLD HUNGARIAN SMALL LETTER EP
+10CE1	OLD HUNGARIAN SMALL LETTER EMP
+10CE2	OLD HUNGARIAN SMALL LETTER ER
+10CE3	OLD HUNGARIAN SMALL LETTER SHORT ER
+10CE4	OLD HUNGARIAN SMALL LETTER ES
+10CE5	OLD HUNGARIAN SMALL LETTER ESZ
+10CE6	OLD HUNGARIAN SMALL LETTER ET
+10CE7	OLD HUNGARIAN SMALL LETTER ENT
+10CE8	OLD HUNGARIAN SMALL LETTER ETY
+10CE9	OLD HUNGARIAN SMALL LETTER ECH
+10CEA	OLD HUNGARIAN SMALL LETTER U
+10CEB	OLD HUNGARIAN SMALL LETTER UU
+10CEC	OLD HUNGARIAN SMALL LETTER NIKOLSBURG UE
+10CED	OLD HUNGARIAN SMALL LETTER RUDIMENTA UE
+10CEE	OLD HUNGARIAN SMALL LETTER EV
+10CEF	OLD HUNGARIAN SMALL LETTER EZ
+10CF0	OLD HUNGARIAN SMALL LETTER EZS
+10CF1	OLD HUNGARIAN SMALL LETTER ENT-SHAPED SIGN
+10CF2	OLD HUNGARIAN SMALL LETTER US
+10CFA	OLD HUNGARIAN NUMBER ONE
+10CFB	OLD HUNGARIAN NUMBER FIVE
+10CFC	OLD HUNGARIAN NUMBER TEN
+10CFD	OLD HUNGARIAN NUMBER FIFTY
+10CFE	OLD HUNGARIAN NUMBER ONE HUNDRED
+10CFF	OLD HUNGARIAN NUMBER ONE THOUSAND
+10E60	RUMI DIGIT ONE
+10E61	RUMI DIGIT TWO
+10E62	RUMI DIGIT THREE
+10E63	RUMI DIGIT FOUR
+10E64	RUMI DIGIT FIVE
+10E65	RUMI DIGIT SIX
+10E66	RUMI DIGIT SEVEN
+10E67	RUMI DIGIT EIGHT
+10E68	RUMI DIGIT NINE
+10E69	RUMI NUMBER TEN
+10E6A	RUMI NUMBER TWENTY
+10E6B	RUMI NUMBER THIRTY
+10E6C	RUMI NUMBER FORTY
+10E6D	RUMI NUMBER FIFTY
+10E6E	RUMI NUMBER SIXTY
+10E6F	RUMI NUMBER SEVENTY
+10E70	RUMI NUMBER EIGHTY
+10E71	RUMI NUMBER NINETY
+10E72	RUMI NUMBER ONE HUNDRED
+10E73	RUMI NUMBER TWO HUNDRED
+10E74	RUMI NUMBER THREE HUNDRED
+10E75	RUMI NUMBER FOUR HUNDRED
+10E76	RUMI NUMBER FIVE HUNDRED
+10E77	RUMI NUMBER SIX HUNDRED
+10E78	RUMI NUMBER SEVEN HUNDRED
+10E79	RUMI NUMBER EIGHT HUNDRED
+10E7A	RUMI NUMBER NINE HUNDRED
+10E7B	RUMI FRACTION ONE HALF
+10E7C	RUMI FRACTION ONE QUARTER
+10E7D	RUMI FRACTION ONE THIRD
+10E7E	RUMI FRACTION TWO THIRDS
+11000	BRAHMI SIGN CANDRABINDU
+11001	BRAHMI SIGN ANUSVARA
+11002	BRAHMI SIGN VISARGA
+11003	BRAHMI SIGN JIHVAMULIYA
+11004	BRAHMI SIGN UPADHMANIYA
+11005	BRAHMI LETTER A
+11006	BRAHMI LETTER AA
+11007	BRAHMI LETTER I
+11008	BRAHMI LETTER II
+11009	BRAHMI LETTER U
+1100A	BRAHMI LETTER UU
+1100B	BRAHMI LETTER VOCALIC R
+1100C	BRAHMI LETTER VOCALIC RR
+1100D	BRAHMI LETTER VOCALIC L
+1100E	BRAHMI LETTER VOCALIC LL
+1100F	BRAHMI LETTER E
+11010	BRAHMI LETTER AI
+11011	BRAHMI LETTER O
+11012	BRAHMI LETTER AU
+11013	BRAHMI LETTER KA
+11014	BRAHMI LETTER KHA
+11015	BRAHMI LETTER GA
+11016	BRAHMI LETTER GHA
+11017	BRAHMI LETTER NGA
+11018	BRAHMI LETTER CA
+11019	BRAHMI LETTER CHA
+1101A	BRAHMI LETTER JA
+1101B	BRAHMI LETTER JHA
+1101C	BRAHMI LETTER NYA
+1101D	BRAHMI LETTER TTA
+1101E	BRAHMI LETTER TTHA
+1101F	BRAHMI LETTER DDA
+11020	BRAHMI LETTER DDHA
+11021	BRAHMI LETTER NNA
+11022	BRAHMI LETTER TA
+11023	BRAHMI LETTER THA
+11024	BRAHMI LETTER DA
+11025	BRAHMI LETTER DHA
+11026	BRAHMI LETTER NA
+11027	BRAHMI LETTER PA
+11028	BRAHMI LETTER PHA
+11029	BRAHMI LETTER BA
+1102A	BRAHMI LETTER BHA
+1102B	BRAHMI LETTER MA
+1102C	BRAHMI LETTER YA
+1102D	BRAHMI LETTER RA
+1102E	BRAHMI LETTER LA
+1102F	BRAHMI LETTER VA
+11030	BRAHMI LETTER SHA
+11031	BRAHMI LETTER SSA
+11032	BRAHMI LETTER SA
+11033	BRAHMI LETTER HA
+11034	BRAHMI LETTER LLA
+11035	BRAHMI LETTER OLD TAMIL LLLA
+11036	BRAHMI LETTER OLD TAMIL RRA
+11037	BRAHMI LETTER OLD TAMIL NNNA
+11038	BRAHMI VOWEL SIGN AA
+11039	BRAHMI VOWEL SIGN BHATTIPROLU AA
+1103A	BRAHMI VOWEL SIGN I
+1103B	BRAHMI VOWEL SIGN II
+1103C	BRAHMI VOWEL SIGN U
+1103D	BRAHMI VOWEL SIGN UU
+1103E	BRAHMI VOWEL SIGN VOCALIC R
+1103F	BRAHMI VOWEL SIGN VOCALIC RR
+11040	BRAHMI VOWEL SIGN VOCALIC L
+11041	BRAHMI VOWEL SIGN VOCALIC LL
+11042	BRAHMI VOWEL SIGN E
+11043	BRAHMI VOWEL SIGN AI
+11044	BRAHMI VOWEL SIGN O
+11045	BRAHMI VOWEL SIGN AU
+11046	BRAHMI VIRAMA
+11047	BRAHMI DANDA
+11048	BRAHMI DOUBLE DANDA
+11049	BRAHMI PUNCTUATION DOT
+1104A	BRAHMI PUNCTUATION DOUBLE DOT
+1104B	BRAHMI PUNCTUATION LINE
+1104C	BRAHMI PUNCTUATION CRESCENT BAR
+1104D	BRAHMI PUNCTUATION LOTUS
+11052	BRAHMI NUMBER ONE
+11053	BRAHMI NUMBER TWO
+11054	BRAHMI NUMBER THREE
+11055	BRAHMI NUMBER FOUR
+11056	BRAHMI NUMBER FIVE
+11057	BRAHMI NUMBER SIX
+11058	BRAHMI NUMBER SEVEN
+11059	BRAHMI NUMBER EIGHT
+1105A	BRAHMI NUMBER NINE
+1105B	BRAHMI NUMBER TEN
+1105C	BRAHMI NUMBER TWENTY
+1105D	BRAHMI NUMBER THIRTY
+1105E	BRAHMI NUMBER FORTY
+1105F	BRAHMI NUMBER FIFTY
+11060	BRAHMI NUMBER SIXTY
+11061	BRAHMI NUMBER SEVENTY
+11062	BRAHMI NUMBER EIGHTY
+11063	BRAHMI NUMBER NINETY
+11064	BRAHMI NUMBER ONE HUNDRED
+11065	BRAHMI NUMBER ONE THOUSAND
+11066	BRAHMI DIGIT ZERO
+11067	BRAHMI DIGIT ONE
+11068	BRAHMI DIGIT TWO
+11069	BRAHMI DIGIT THREE
+1106A	BRAHMI DIGIT FOUR
+1106B	BRAHMI DIGIT FIVE
+1106C	BRAHMI DIGIT SIX
+1106D	BRAHMI DIGIT SEVEN
+1106E	BRAHMI DIGIT EIGHT
+1106F	BRAHMI DIGIT NINE
+1107F	BRAHMI NUMBER JOINER
+11080	KAITHI SIGN CANDRABINDU
+11081	KAITHI SIGN ANUSVARA
+11082	KAITHI SIGN VISARGA
+11083	KAITHI LETTER A
+11084	KAITHI LETTER AA
+11085	KAITHI LETTER I
+11086	KAITHI LETTER II
+11087	KAITHI LETTER U
+11088	KAITHI LETTER UU
+11089	KAITHI LETTER E
+1108A	KAITHI LETTER AI
+1108B	KAITHI LETTER O
+1108C	KAITHI LETTER AU
+1108D	KAITHI LETTER KA
+1108E	KAITHI LETTER KHA
+1108F	KAITHI LETTER GA
+11090	KAITHI LETTER GHA
+11091	KAITHI LETTER NGA
+11092	KAITHI LETTER CA
+11093	KAITHI LETTER CHA
+11094	KAITHI LETTER JA
+11095	KAITHI LETTER JHA
+11096	KAITHI LETTER NYA
+11097	KAITHI LETTER TTA
+11098	KAITHI LETTER TTHA
+11099	KAITHI LETTER DDA
+1109A	KAITHI LETTER DDDHA
+1109B	KAITHI LETTER DDHA
+1109C	KAITHI LETTER RHA
+1109D	KAITHI LETTER NNA
+1109E	KAITHI LETTER TA
+1109F	KAITHI LETTER THA
+110A0	KAITHI LETTER DA
+110A1	KAITHI LETTER DHA
+110A2	KAITHI LETTER NA
+110A3	KAITHI LETTER PA
+110A4	KAITHI LETTER PHA
+110A5	KAITHI LETTER BA
+110A6	KAITHI LETTER BHA
+110A7	KAITHI LETTER MA
+110A8	KAITHI LETTER YA
+110A9	KAITHI LETTER RA
+110AA	KAITHI LETTER LA
+110AB	KAITHI LETTER VA
+110AC	KAITHI LETTER SHA
+110AD	KAITHI LETTER SSA
+110AE	KAITHI LETTER SA
+110AF	KAITHI LETTER HA
+110B0	KAITHI VOWEL SIGN AA
+110B1	KAITHI VOWEL SIGN I
+110B2	KAITHI VOWEL SIGN II
+110B3	KAITHI VOWEL SIGN U
+110B4	KAITHI VOWEL SIGN UU
+110B5	KAITHI VOWEL SIGN E
+110B6	KAITHI VOWEL SIGN AI
+110B7	KAITHI VOWEL SIGN O
+110B8	KAITHI VOWEL SIGN AU
+110B9	KAITHI SIGN VIRAMA
+110BA	KAITHI SIGN NUKTA
+110BB	KAITHI ABBREVIATION SIGN
+110BC	KAITHI ENUMERATION SIGN
+110BD	KAITHI NUMBER SIGN
+110BE	KAITHI SECTION MARK
+110BF	KAITHI DOUBLE SECTION MARK
+110C0	KAITHI DANDA
+110C1	KAITHI DOUBLE DANDA
+110D0	SORA SOMPENG LETTER SAH
+110D1	SORA SOMPENG LETTER TAH
+110D2	SORA SOMPENG LETTER BAH
+110D3	SORA SOMPENG LETTER CAH
+110D4	SORA SOMPENG LETTER DAH
+110D5	SORA SOMPENG LETTER GAH
+110D6	SORA SOMPENG LETTER MAH
+110D7	SORA SOMPENG LETTER NGAH
+110D8	SORA SOMPENG LETTER LAH
+110D9	SORA SOMPENG LETTER NAH
+110DA	SORA SOMPENG LETTER VAH
+110DB	SORA SOMPENG LETTER PAH
+110DC	SORA SOMPENG LETTER YAH
+110DD	SORA SOMPENG LETTER RAH
+110DE	SORA SOMPENG LETTER HAH
+110DF	SORA SOMPENG LETTER KAH
+110E0	SORA SOMPENG LETTER JAH
+110E1	SORA SOMPENG LETTER NYAH
+110E2	SORA SOMPENG LETTER AH
+110E3	SORA SOMPENG LETTER EEH
+110E4	SORA SOMPENG LETTER IH
+110E5	SORA SOMPENG LETTER UH
+110E6	SORA SOMPENG LETTER OH
+110E7	SORA SOMPENG LETTER EH
+110E8	SORA SOMPENG LETTER MAE
+110F0	SORA SOMPENG DIGIT ZERO
+110F1	SORA SOMPENG DIGIT ONE
+110F2	SORA SOMPENG DIGIT TWO
+110F3	SORA SOMPENG DIGIT THREE
+110F4	SORA SOMPENG DIGIT FOUR
+110F5	SORA SOMPENG DIGIT FIVE
+110F6	SORA SOMPENG DIGIT SIX
+110F7	SORA SOMPENG DIGIT SEVEN
+110F8	SORA SOMPENG DIGIT EIGHT
+110F9	SORA SOMPENG DIGIT NINE
+11100	CHAKMA SIGN CANDRABINDU
+11101	CHAKMA SIGN ANUSVARA
+11102	CHAKMA SIGN VISARGA
+11103	CHAKMA LETTER AA
+11104	CHAKMA LETTER I
+11105	CHAKMA LETTER U
+11106	CHAKMA LETTER E
+11107	CHAKMA LETTER KAA
+11108	CHAKMA LETTER KHAA
+11109	CHAKMA LETTER GAA
+1110A	CHAKMA LETTER GHAA
+1110B	CHAKMA LETTER NGAA
+1110C	CHAKMA LETTER CAA
+1110D	CHAKMA LETTER CHAA
+1110E	CHAKMA LETTER JAA
+1110F	CHAKMA LETTER JHAA
+11110	CHAKMA LETTER NYAA
+11111	CHAKMA LETTER TTAA
+11112	CHAKMA LETTER TTHAA
+11113	CHAKMA LETTER DDAA
+11114	CHAKMA LETTER DDHAA
+11115	CHAKMA LETTER NNAA
+11116	CHAKMA LETTER TAA
+11117	CHAKMA LETTER THAA
+11118	CHAKMA LETTER DAA
+11119	CHAKMA LETTER DHAA
+1111A	CHAKMA LETTER NAA
+1111B	CHAKMA LETTER PAA
+1111C	CHAKMA LETTER PHAA
+1111D	CHAKMA LETTER BAA
+1111E	CHAKMA LETTER BHAA
+1111F	CHAKMA LETTER MAA
+11120	CHAKMA LETTER YYAA
+11121	CHAKMA LETTER YAA
+11122	CHAKMA LETTER RAA
+11123	CHAKMA LETTER LAA
+11124	CHAKMA LETTER WAA
+11125	CHAKMA LETTER SAA
+11126	CHAKMA LETTER HAA
+11127	CHAKMA VOWEL SIGN A
+11128	CHAKMA VOWEL SIGN I
+11129	CHAKMA VOWEL SIGN II
+1112A	CHAKMA VOWEL SIGN U
+1112B	CHAKMA VOWEL SIGN UU
+1112C	CHAKMA VOWEL SIGN E
+1112D	CHAKMA VOWEL SIGN AI
+1112E	CHAKMA VOWEL SIGN O
+1112F	CHAKMA VOWEL SIGN AU
+11130	CHAKMA VOWEL SIGN OI
+11131	CHAKMA O MARK
+11132	CHAKMA AU MARK
+11133	CHAKMA VIRAMA
+11134	CHAKMA MAAYYAA
+11136	CHAKMA DIGIT ZERO
+11137	CHAKMA DIGIT ONE
+11138	CHAKMA DIGIT TWO
+11139	CHAKMA DIGIT THREE
+1113A	CHAKMA DIGIT FOUR
+1113B	CHAKMA DIGIT FIVE
+1113C	CHAKMA DIGIT SIX
+1113D	CHAKMA DIGIT SEVEN
+1113E	CHAKMA DIGIT EIGHT
+1113F	CHAKMA DIGIT NINE
+11140	CHAKMA SECTION MARK
+11141	CHAKMA DANDA
+11142	CHAKMA DOUBLE DANDA
+11143	CHAKMA QUESTION MARK
+11150	MAHAJANI LETTER A
+11151	MAHAJANI LETTER I
+11152	MAHAJANI LETTER U
+11153	MAHAJANI LETTER E
+11154	MAHAJANI LETTER O
+11155	MAHAJANI LETTER KA
+11156	MAHAJANI LETTER KHA
+11157	MAHAJANI LETTER GA
+11158	MAHAJANI LETTER GHA
+11159	MAHAJANI LETTER CA
+1115A	MAHAJANI LETTER CHA
+1115B	MAHAJANI LETTER JA
+1115C	MAHAJANI LETTER JHA
+1115D	MAHAJANI LETTER NYA
+1115E	MAHAJANI LETTER TTA
+1115F	MAHAJANI LETTER TTHA
+11160	MAHAJANI LETTER DDA
+11161	MAHAJANI LETTER DDHA
+11162	MAHAJANI LETTER NNA
+11163	MAHAJANI LETTER TA
+11164	MAHAJANI LETTER THA
+11165	MAHAJANI LETTER DA
+11166	MAHAJANI LETTER DHA
+11167	MAHAJANI LETTER NA
+11168	MAHAJANI LETTER PA
+11169	MAHAJANI LETTER PHA
+1116A	MAHAJANI LETTER BA
+1116B	MAHAJANI LETTER BHA
+1116C	MAHAJANI LETTER MA
+1116D	MAHAJANI LETTER RA
+1116E	MAHAJANI LETTER LA
+1116F	MAHAJANI LETTER VA
+11170	MAHAJANI LETTER SA
+11171	MAHAJANI LETTER HA
+11172	MAHAJANI LETTER RRA
+11173	MAHAJANI SIGN NUKTA
+11174	MAHAJANI ABBREVIATION SIGN
+11175	MAHAJANI SECTION MARK
+11176	MAHAJANI LIGATURE SHRI
+11180	SHARADA SIGN CANDRABINDU
+11181	SHARADA SIGN ANUSVARA
+11182	SHARADA SIGN VISARGA
+11183	SHARADA LETTER A
+11184	SHARADA LETTER AA
+11185	SHARADA LETTER I
+11186	SHARADA LETTER II
+11187	SHARADA LETTER U
+11188	SHARADA LETTER UU
+11189	SHARADA LETTER VOCALIC R
+1118A	SHARADA LETTER VOCALIC RR
+1118B	SHARADA LETTER VOCALIC L
+1118C	SHARADA LETTER VOCALIC LL
+1118D	SHARADA LETTER E
+1118E	SHARADA LETTER AI
+1118F	SHARADA LETTER O
+11190	SHARADA LETTER AU
+11191	SHARADA LETTER KA
+11192	SHARADA LETTER KHA
+11193	SHARADA LETTER GA
+11194	SHARADA LETTER GHA
+11195	SHARADA LETTER NGA
+11196	SHARADA LETTER CA
+11197	SHARADA LETTER CHA
+11198	SHARADA LETTER JA
+11199	SHARADA LETTER JHA
+1119A	SHARADA LETTER NYA
+1119B	SHARADA LETTER TTA
+1119C	SHARADA LETTER TTHA
+1119D	SHARADA LETTER DDA
+1119E	SHARADA LETTER DDHA
+1119F	SHARADA LETTER NNA
+111A0	SHARADA LETTER TA
+111A1	SHARADA LETTER THA
+111A2	SHARADA LETTER DA
+111A3	SHARADA LETTER DHA
+111A4	SHARADA LETTER NA
+111A5	SHARADA LETTER PA
+111A6	SHARADA LETTER PHA
+111A7	SHARADA LETTER BA
+111A8	SHARADA LETTER BHA
+111A9	SHARADA LETTER MA
+111AA	SHARADA LETTER YA
+111AB	SHARADA LETTER RA
+111AC	SHARADA LETTER LA
+111AD	SHARADA LETTER LLA
+111AE	SHARADA LETTER VA
+111AF	SHARADA LETTER SHA
+111B0	SHARADA LETTER SSA
+111B1	SHARADA LETTER SA
+111B2	SHARADA LETTER HA
+111B3	SHARADA VOWEL SIGN AA
+111B4	SHARADA VOWEL SIGN I
+111B5	SHARADA VOWEL SIGN II
+111B6	SHARADA VOWEL SIGN U
+111B7	SHARADA VOWEL SIGN UU
+111B8	SHARADA VOWEL SIGN VOCALIC R
+111B9	SHARADA VOWEL SIGN VOCALIC RR
+111BA	SHARADA VOWEL SIGN VOCALIC L
+111BB	SHARADA VOWEL SIGN VOCALIC LL
+111BC	SHARADA VOWEL SIGN E
+111BD	SHARADA VOWEL SIGN AI
+111BE	SHARADA VOWEL SIGN O
+111BF	SHARADA VOWEL SIGN AU
+111C0	SHARADA SIGN VIRAMA
+111C1	SHARADA SIGN AVAGRAHA
+111C2	SHARADA SIGN JIHVAMULIYA
+111C3	SHARADA SIGN UPADHMANIYA
+111C4	SHARADA OM
+111C5	SHARADA DANDA
+111C6	SHARADA DOUBLE DANDA
+111C7	SHARADA ABBREVIATION SIGN
+111C8	SHARADA SEPARATOR
+111C9	SHARADA SANDHI MARK
+111CA	SHARADA SIGN NUKTA
+111CB	SHARADA VOWEL MODIFIER MARK
+111CC	SHARADA EXTRA SHORT VOWEL MARK
+111CD	SHARADA SUTRA MARK
+111D0	SHARADA DIGIT ZERO
+111D1	SHARADA DIGIT ONE
+111D2	SHARADA DIGIT TWO
+111D3	SHARADA DIGIT THREE
+111D4	SHARADA DIGIT FOUR
+111D5	SHARADA DIGIT FIVE
+111D6	SHARADA DIGIT SIX
+111D7	SHARADA DIGIT SEVEN
+111D8	SHARADA DIGIT EIGHT
+111D9	SHARADA DIGIT NINE
+111DA	SHARADA EKAM
+111DB	SHARADA SIGN SIDDHAM
+111DC	SHARADA HEADSTROKE
+111DD	SHARADA CONTINUATION SIGN
+111DE	SHARADA SECTION MARK-1
+111DF	SHARADA SECTION MARK-2
+111E1	SINHALA ARCHAIC DIGIT ONE
+111E2	SINHALA ARCHAIC DIGIT TWO
+111E3	SINHALA ARCHAIC DIGIT THREE
+111E4	SINHALA ARCHAIC DIGIT FOUR
+111E5	SINHALA ARCHAIC DIGIT FIVE
+111E6	SINHALA ARCHAIC DIGIT SIX
+111E7	SINHALA ARCHAIC DIGIT SEVEN
+111E8	SINHALA ARCHAIC DIGIT EIGHT
+111E9	SINHALA ARCHAIC DIGIT NINE
+111EA	SINHALA ARCHAIC NUMBER TEN
+111EB	SINHALA ARCHAIC NUMBER TWENTY
+111EC	SINHALA ARCHAIC NUMBER THIRTY
+111ED	SINHALA ARCHAIC NUMBER FORTY
+111EE	SINHALA ARCHAIC NUMBER FIFTY
+111EF	SINHALA ARCHAIC NUMBER SIXTY
+111F0	SINHALA ARCHAIC NUMBER SEVENTY
+111F1	SINHALA ARCHAIC NUMBER EIGHTY
+111F2	SINHALA ARCHAIC NUMBER NINETY
+111F3	SINHALA ARCHAIC NUMBER ONE HUNDRED
+111F4	SINHALA ARCHAIC NUMBER ONE THOUSAND
+11200	KHOJKI LETTER A
+11201	KHOJKI LETTER AA
+11202	KHOJKI LETTER I
+11203	KHOJKI LETTER U
+11204	KHOJKI LETTER E
+11205	KHOJKI LETTER AI
+11206	KHOJKI LETTER O
+11207	KHOJKI LETTER AU
+11208	KHOJKI LETTER KA
+11209	KHOJKI LETTER KHA
+1120A	KHOJKI LETTER GA
+1120B	KHOJKI LETTER GGA
+1120C	KHOJKI LETTER GHA
+1120D	KHOJKI LETTER NGA
+1120E	KHOJKI LETTER CA
+1120F	KHOJKI LETTER CHA
+11210	KHOJKI LETTER JA
+11211	KHOJKI LETTER JJA
+11213	KHOJKI LETTER NYA
+11214	KHOJKI LETTER TTA
+11215	KHOJKI LETTER TTHA
+11216	KHOJKI LETTER DDA
+11217	KHOJKI LETTER DDHA
+11218	KHOJKI LETTER NNA
+11219	KHOJKI LETTER TA
+1121A	KHOJKI LETTER THA
+1121B	KHOJKI LETTER DA
+1121C	KHOJKI LETTER DDDA
+1121D	KHOJKI LETTER DHA
+1121E	KHOJKI LETTER NA
+1121F	KHOJKI LETTER PA
+11220	KHOJKI LETTER PHA
+11221	KHOJKI LETTER BA
+11222	KHOJKI LETTER BBA
+11223	KHOJKI LETTER BHA
+11224	KHOJKI LETTER MA
+11225	KHOJKI LETTER YA
+11226	KHOJKI LETTER RA
+11227	KHOJKI LETTER LA
+11228	KHOJKI LETTER VA
+11229	KHOJKI LETTER SA
+1122A	KHOJKI LETTER HA
+1122B	KHOJKI LETTER LLA
+1122C	KHOJKI VOWEL SIGN AA
+1122D	KHOJKI VOWEL SIGN I
+1122E	KHOJKI VOWEL SIGN II
+1122F	KHOJKI VOWEL SIGN U
+11230	KHOJKI VOWEL SIGN E
+11231	KHOJKI VOWEL SIGN AI
+11232	KHOJKI VOWEL SIGN O
+11233	KHOJKI VOWEL SIGN AU
+11234	KHOJKI SIGN ANUSVARA
+11235	KHOJKI SIGN VIRAMA
+11236	KHOJKI SIGN NUKTA
+11237	KHOJKI SIGN SHADDA
+11238	KHOJKI DANDA
+11239	KHOJKI DOUBLE DANDA
+1123A	KHOJKI WORD SEPARATOR
+1123B	KHOJKI SECTION MARK
+1123C	KHOJKI DOUBLE SECTION MARK
+1123D	KHOJKI ABBREVIATION SIGN
+1123E	KHOJKI SIGN SUKUN
+11280	MULTANI LETTER A
+11281	MULTANI LETTER I
+11282	MULTANI LETTER U
+11283	MULTANI LETTER E
+11284	MULTANI LETTER KA
+11285	MULTANI LETTER KHA
+11286	MULTANI LETTER GA
+11288	MULTANI LETTER GHA
+1128A	MULTANI LETTER CA
+1128B	MULTANI LETTER CHA
+1128C	MULTANI LETTER JA
+1128D	MULTANI LETTER JJA
+1128F	MULTANI LETTER NYA
+11290	MULTANI LETTER TTA
+11291	MULTANI LETTER TTHA
+11292	MULTANI LETTER DDA
+11293	MULTANI LETTER DDDA
+11294	MULTANI LETTER DDHA
+11295	MULTANI LETTER NNA
+11296	MULTANI LETTER TA
+11297	MULTANI LETTER THA
+11298	MULTANI LETTER DA
+11299	MULTANI LETTER DHA
+1129A	MULTANI LETTER NA
+1129B	MULTANI LETTER PA
+1129C	MULTANI LETTER PHA
+1129D	MULTANI LETTER BA
+1129F	MULTANI LETTER BHA
+112A0	MULTANI LETTER MA
+112A1	MULTANI LETTER YA
+112A2	MULTANI LETTER RA
+112A3	MULTANI LETTER LA
+112A4	MULTANI LETTER VA
+112A5	MULTANI LETTER SA
+112A6	MULTANI LETTER HA
+112A7	MULTANI LETTER RRA
+112A8	MULTANI LETTER RHA
+112A9	MULTANI SECTION MARK
+112B0	KHUDAWADI LETTER A
+112B1	KHUDAWADI LETTER AA
+112B2	KHUDAWADI LETTER I
+112B3	KHUDAWADI LETTER II
+112B4	KHUDAWADI LETTER U
+112B5	KHUDAWADI LETTER UU
+112B6	KHUDAWADI LETTER E
+112B7	KHUDAWADI LETTER AI
+112B8	KHUDAWADI LETTER O
+112B9	KHUDAWADI LETTER AU
+112BA	KHUDAWADI LETTER KA
+112BB	KHUDAWADI LETTER KHA
+112BC	KHUDAWADI LETTER GA
+112BD	KHUDAWADI LETTER GGA
+112BE	KHUDAWADI LETTER GHA
+112BF	KHUDAWADI LETTER NGA
+112C0	KHUDAWADI LETTER CA
+112C1	KHUDAWADI LETTER CHA
+112C2	KHUDAWADI LETTER JA
+112C3	KHUDAWADI LETTER JJA
+112C4	KHUDAWADI LETTER JHA
+112C5	KHUDAWADI LETTER NYA
+112C6	KHUDAWADI LETTER TTA
+112C7	KHUDAWADI LETTER TTHA
+112C8	KHUDAWADI LETTER DDA
+112C9	KHUDAWADI LETTER DDDA
+112CA	KHUDAWADI LETTER RRA
+112CB	KHUDAWADI LETTER DDHA
+112CC	KHUDAWADI LETTER NNA
+112CD	KHUDAWADI LETTER TA
+112CE	KHUDAWADI LETTER THA
+112CF	KHUDAWADI LETTER DA
+112D0	KHUDAWADI LETTER DHA
+112D1	KHUDAWADI LETTER NA
+112D2	KHUDAWADI LETTER PA
+112D3	KHUDAWADI LETTER PHA
+112D4	KHUDAWADI LETTER BA
+112D5	KHUDAWADI LETTER BBA
+112D6	KHUDAWADI LETTER BHA
+112D7	KHUDAWADI LETTER MA
+112D8	KHUDAWADI LETTER YA
+112D9	KHUDAWADI LETTER RA
+112DA	KHUDAWADI LETTER LA
+112DB	KHUDAWADI LETTER VA
+112DC	KHUDAWADI LETTER SHA
+112DD	KHUDAWADI LETTER SA
+112DE	KHUDAWADI LETTER HA
+112DF	KHUDAWADI SIGN ANUSVARA
+112E0	KHUDAWADI VOWEL SIGN AA
+112E1	KHUDAWADI VOWEL SIGN I
+112E2	KHUDAWADI VOWEL SIGN II
+112E3	KHUDAWADI VOWEL SIGN U
+112E4	KHUDAWADI VOWEL SIGN UU
+112E5	KHUDAWADI VOWEL SIGN E
+112E6	KHUDAWADI VOWEL SIGN AI
+112E7	KHUDAWADI VOWEL SIGN O
+112E8	KHUDAWADI VOWEL SIGN AU
+112E9	KHUDAWADI SIGN NUKTA
+112EA	KHUDAWADI SIGN VIRAMA
+112F0	KHUDAWADI DIGIT ZERO
+112F1	KHUDAWADI DIGIT ONE
+112F2	KHUDAWADI DIGIT TWO
+112F3	KHUDAWADI DIGIT THREE
+112F4	KHUDAWADI DIGIT FOUR
+112F5	KHUDAWADI DIGIT FIVE
+112F6	KHUDAWADI DIGIT SIX
+112F7	KHUDAWADI DIGIT SEVEN
+112F8	KHUDAWADI DIGIT EIGHT
+112F9	KHUDAWADI DIGIT NINE
+11300	GRANTHA SIGN COMBINING ANUSVARA ABOVE
+11301	GRANTHA SIGN CANDRABINDU
+11302	GRANTHA SIGN ANUSVARA
+11303	GRANTHA SIGN VISARGA
+11305	GRANTHA LETTER A
+11306	GRANTHA LETTER AA
+11307	GRANTHA LETTER I
+11308	GRANTHA LETTER II
+11309	GRANTHA LETTER U
+1130A	GRANTHA LETTER UU
+1130B	GRANTHA LETTER VOCALIC R
+1130C	GRANTHA LETTER VOCALIC L
+1130F	GRANTHA LETTER EE
+11310	GRANTHA LETTER AI
+11313	GRANTHA LETTER OO
+11314	GRANTHA LETTER AU
+11315	GRANTHA LETTER KA
+11316	GRANTHA LETTER KHA
+11317	GRANTHA LETTER GA
+11318	GRANTHA LETTER GHA
+11319	GRANTHA LETTER NGA
+1131A	GRANTHA LETTER CA
+1131B	GRANTHA LETTER CHA
+1131C	GRANTHA LETTER JA
+1131D	GRANTHA LETTER JHA
+1131E	GRANTHA LETTER NYA
+1131F	GRANTHA LETTER TTA
+11320	GRANTHA LETTER TTHA
+11321	GRANTHA LETTER DDA
+11322	GRANTHA LETTER DDHA
+11323	GRANTHA LETTER NNA
+11324	GRANTHA LETTER TA
+11325	GRANTHA LETTER THA
+11326	GRANTHA LETTER DA
+11327	GRANTHA LETTER DHA
+11328	GRANTHA LETTER NA
+1132A	GRANTHA LETTER PA
+1132B	GRANTHA LETTER PHA
+1132C	GRANTHA LETTER BA
+1132D	GRANTHA LETTER BHA
+1132E	GRANTHA LETTER MA
+1132F	GRANTHA LETTER YA
+11330	GRANTHA LETTER RA
+11332	GRANTHA LETTER LA
+11333	GRANTHA LETTER LLA
+11335	GRANTHA LETTER VA
+11336	GRANTHA LETTER SHA
+11337	GRANTHA LETTER SSA
+11338	GRANTHA LETTER SA
+11339	GRANTHA LETTER HA
+1133C	GRANTHA SIGN NUKTA
+1133D	GRANTHA SIGN AVAGRAHA
+1133E	GRANTHA VOWEL SIGN AA
+1133F	GRANTHA VOWEL SIGN I
+11340	GRANTHA VOWEL SIGN II
+11341	GRANTHA VOWEL SIGN U
+11342	GRANTHA VOWEL SIGN UU
+11343	GRANTHA VOWEL SIGN VOCALIC R
+11344	GRANTHA VOWEL SIGN VOCALIC RR
+11347	GRANTHA VOWEL SIGN EE
+11348	GRANTHA VOWEL SIGN AI
+1134B	GRANTHA VOWEL SIGN OO
+1134C	GRANTHA VOWEL SIGN AU
+1134D	GRANTHA SIGN VIRAMA
+11350	GRANTHA OM
+11357	GRANTHA AU LENGTH MARK
+1135D	GRANTHA SIGN PLUTA
+1135E	GRANTHA LETTER VEDIC ANUSVARA
+1135F	GRANTHA LETTER VEDIC DOUBLE ANUSVARA
+11360	GRANTHA LETTER VOCALIC RR
+11361	GRANTHA LETTER VOCALIC LL
+11362	GRANTHA VOWEL SIGN VOCALIC L
+11363	GRANTHA VOWEL SIGN VOCALIC LL
+11366	COMBINING GRANTHA DIGIT ZERO
+11367	COMBINING GRANTHA DIGIT ONE
+11368	COMBINING GRANTHA DIGIT TWO
+11369	COMBINING GRANTHA DIGIT THREE
+1136A	COMBINING GRANTHA DIGIT FOUR
+1136B	COMBINING GRANTHA DIGIT FIVE
+1136C	COMBINING GRANTHA DIGIT SIX
+11370	COMBINING GRANTHA LETTER A
+11371	COMBINING GRANTHA LETTER KA
+11372	COMBINING GRANTHA LETTER NA
+11373	COMBINING GRANTHA LETTER VI
+11374	COMBINING GRANTHA LETTER PA
+11400	NEWA LETTER A
+11401	NEWA LETTER AA
+11402	NEWA LETTER I
+11403	NEWA LETTER II
+11404	NEWA LETTER U
+11405	NEWA LETTER UU
+11406	NEWA LETTER VOCALIC R
+11407	NEWA LETTER VOCALIC RR
+11408	NEWA LETTER VOCALIC L
+11409	NEWA LETTER VOCALIC LL
+1140A	NEWA LETTER E
+1140B	NEWA LETTER AI
+1140C	NEWA LETTER O
+1140D	NEWA LETTER AU
+1140E	NEWA LETTER KA
+1140F	NEWA LETTER KHA
+11410	NEWA LETTER GA
+11411	NEWA LETTER GHA
+11412	NEWA LETTER NGA
+11413	NEWA LETTER NGHA
+11414	NEWA LETTER CA
+11415	NEWA LETTER CHA
+11416	NEWA LETTER JA
+11417	NEWA LETTER JHA
+11418	NEWA LETTER NYA
+11419	NEWA LETTER NYHA
+1141A	NEWA LETTER TTA
+1141B	NEWA LETTER TTHA
+1141C	NEWA LETTER DDA
+1141D	NEWA LETTER DDHA
+1141E	NEWA LETTER NNA
+1141F	NEWA LETTER TA
+11420	NEWA LETTER THA
+11421	NEWA LETTER DA
+11422	NEWA LETTER DHA
+11423	NEWA LETTER NA
+11424	NEWA LETTER NHA
+11425	NEWA LETTER PA
+11426	NEWA LETTER PHA
+11427	NEWA LETTER BA
+11428	NEWA LETTER BHA
+11429	NEWA LETTER MA
+1142A	NEWA LETTER MHA
+1142B	NEWA LETTER YA
+1142C	NEWA LETTER RA
+1142D	NEWA LETTER RHA
+1142E	NEWA LETTER LA
+1142F	NEWA LETTER LHA
+11430	NEWA LETTER WA
+11431	NEWA LETTER SHA
+11432	NEWA LETTER SSA
+11433	NEWA LETTER SA
+11434	NEWA LETTER HA
+11435	NEWA VOWEL SIGN AA
+11436	NEWA VOWEL SIGN I
+11437	NEWA VOWEL SIGN II
+11438	NEWA VOWEL SIGN U
+11439	NEWA VOWEL SIGN UU
+1143A	NEWA VOWEL SIGN VOCALIC R
+1143B	NEWA VOWEL SIGN VOCALIC RR
+1143C	NEWA VOWEL SIGN VOCALIC L
+1143D	NEWA VOWEL SIGN VOCALIC LL
+1143E	NEWA VOWEL SIGN E
+1143F	NEWA VOWEL SIGN AI
+11440	NEWA VOWEL SIGN O
+11441	NEWA VOWEL SIGN AU
+11442	NEWA SIGN VIRAMA
+11443	NEWA SIGN CANDRABINDU
+11444	NEWA SIGN ANUSVARA
+11445	NEWA SIGN VISARGA
+11446	NEWA SIGN NUKTA
+11447	NEWA SIGN AVAGRAHA
+11448	NEWA SIGN FINAL ANUSVARA
+11449	NEWA OM
+1144A	NEWA SIDDHI
+1144B	NEWA DANDA
+1144C	NEWA DOUBLE DANDA
+1144D	NEWA COMMA
+1144E	NEWA GAP FILLER
+1144F	NEWA ABBREVIATION SIGN
+11450	NEWA DIGIT ZERO
+11451	NEWA DIGIT ONE
+11452	NEWA DIGIT TWO
+11453	NEWA DIGIT THREE
+11454	NEWA DIGIT FOUR
+11455	NEWA DIGIT FIVE
+11456	NEWA DIGIT SIX
+11457	NEWA DIGIT SEVEN
+11458	NEWA DIGIT EIGHT
+11459	NEWA DIGIT NINE
+1145B	NEWA PLACEHOLDER MARK
+1145D	NEWA INSERTION SIGN
+11480	TIRHUTA ANJI
+11481	TIRHUTA LETTER A
+11482	TIRHUTA LETTER AA
+11483	TIRHUTA LETTER I
+11484	TIRHUTA LETTER II
+11485	TIRHUTA LETTER U
+11486	TIRHUTA LETTER UU
+11487	TIRHUTA LETTER VOCALIC R
+11488	TIRHUTA LETTER VOCALIC RR
+11489	TIRHUTA LETTER VOCALIC L
+1148A	TIRHUTA LETTER VOCALIC LL
+1148B	TIRHUTA LETTER E
+1148C	TIRHUTA LETTER AI
+1148D	TIRHUTA LETTER O
+1148E	TIRHUTA LETTER AU
+1148F	TIRHUTA LETTER KA
+11490	TIRHUTA LETTER KHA
+11491	TIRHUTA LETTER GA
+11492	TIRHUTA LETTER GHA
+11493	TIRHUTA LETTER NGA
+11494	TIRHUTA LETTER CA
+11495	TIRHUTA LETTER CHA
+11496	TIRHUTA LETTER JA
+11497	TIRHUTA LETTER JHA
+11498	TIRHUTA LETTER NYA
+11499	TIRHUTA LETTER TTA
+1149A	TIRHUTA LETTER TTHA
+1149B	TIRHUTA LETTER DDA
+1149C	TIRHUTA LETTER DDHA
+1149D	TIRHUTA LETTER NNA
+1149E	TIRHUTA LETTER TA
+1149F	TIRHUTA LETTER THA
+114A0	TIRHUTA LETTER DA
+114A1	TIRHUTA LETTER DHA
+114A2	TIRHUTA LETTER NA
+114A3	TIRHUTA LETTER PA
+114A4	TIRHUTA LETTER PHA
+114A5	TIRHUTA LETTER BA
+114A6	TIRHUTA LETTER BHA
+114A7	TIRHUTA LETTER MA
+114A8	TIRHUTA LETTER YA
+114A9	TIRHUTA LETTER RA
+114AA	TIRHUTA LETTER LA
+114AB	TIRHUTA LETTER VA
+114AC	TIRHUTA LETTER SHA
+114AD	TIRHUTA LETTER SSA
+114AE	TIRHUTA LETTER SA
+114AF	TIRHUTA LETTER HA
+114B0	TIRHUTA VOWEL SIGN AA
+114B1	TIRHUTA VOWEL SIGN I
+114B2	TIRHUTA VOWEL SIGN II
+114B3	TIRHUTA VOWEL SIGN U
+114B4	TIRHUTA VOWEL SIGN UU
+114B5	TIRHUTA VOWEL SIGN VOCALIC R
+114B6	TIRHUTA VOWEL SIGN VOCALIC RR
+114B7	TIRHUTA VOWEL SIGN VOCALIC L
+114B8	TIRHUTA VOWEL SIGN VOCALIC LL
+114B9	TIRHUTA VOWEL SIGN E
+114BA	TIRHUTA VOWEL SIGN SHORT E
+114BB	TIRHUTA VOWEL SIGN AI
+114BC	TIRHUTA VOWEL SIGN O
+114BD	TIRHUTA VOWEL SIGN SHORT O
+114BE	TIRHUTA VOWEL SIGN AU
+114BF	TIRHUTA SIGN CANDRABINDU
+114C0	TIRHUTA SIGN ANUSVARA
+114C1	TIRHUTA SIGN VISARGA
+114C2	TIRHUTA SIGN VIRAMA
+114C3	TIRHUTA SIGN NUKTA
+114C4	TIRHUTA SIGN AVAGRAHA
+114C5	TIRHUTA GVANG
+114C6	TIRHUTA ABBREVIATION SIGN
+114C7	TIRHUTA OM
+114D0	TIRHUTA DIGIT ZERO
+114D1	TIRHUTA DIGIT ONE
+114D2	TIRHUTA DIGIT TWO
+114D3	TIRHUTA DIGIT THREE
+114D4	TIRHUTA DIGIT FOUR
+114D5	TIRHUTA DIGIT FIVE
+114D6	TIRHUTA DIGIT SIX
+114D7	TIRHUTA DIGIT SEVEN
+114D8	TIRHUTA DIGIT EIGHT
+114D9	TIRHUTA DIGIT NINE
+11580	SIDDHAM LETTER A
+11581	SIDDHAM LETTER AA
+11582	SIDDHAM LETTER I
+11583	SIDDHAM LETTER II
+11584	SIDDHAM LETTER U
+11585	SIDDHAM LETTER UU
+11586	SIDDHAM LETTER VOCALIC R
+11587	SIDDHAM LETTER VOCALIC RR
+11588	SIDDHAM LETTER VOCALIC L
+11589	SIDDHAM LETTER VOCALIC LL
+1158A	SIDDHAM LETTER E
+1158B	SIDDHAM LETTER AI
+1158C	SIDDHAM LETTER O
+1158D	SIDDHAM LETTER AU
+1158E	SIDDHAM LETTER KA
+1158F	SIDDHAM LETTER KHA
+11590	SIDDHAM LETTER GA
+11591	SIDDHAM LETTER GHA
+11592	SIDDHAM LETTER NGA
+11593	SIDDHAM LETTER CA
+11594	SIDDHAM LETTER CHA
+11595	SIDDHAM LETTER JA
+11596	SIDDHAM LETTER JHA
+11597	SIDDHAM LETTER NYA
+11598	SIDDHAM LETTER TTA
+11599	SIDDHAM LETTER TTHA
+1159A	SIDDHAM LETTER DDA
+1159B	SIDDHAM LETTER DDHA
+1159C	SIDDHAM LETTER NNA
+1159D	SIDDHAM LETTER TA
+1159E	SIDDHAM LETTER THA
+1159F	SIDDHAM LETTER DA
+115A0	SIDDHAM LETTER DHA
+115A1	SIDDHAM LETTER NA
+115A2	SIDDHAM LETTER PA
+115A3	SIDDHAM LETTER PHA
+115A4	SIDDHAM LETTER BA
+115A5	SIDDHAM LETTER BHA
+115A6	SIDDHAM LETTER MA
+115A7	SIDDHAM LETTER YA
+115A8	SIDDHAM LETTER RA
+115A9	SIDDHAM LETTER LA
+115AA	SIDDHAM LETTER VA
+115AB	SIDDHAM LETTER SHA
+115AC	SIDDHAM LETTER SSA
+115AD	SIDDHAM LETTER SA
+115AE	SIDDHAM LETTER HA
+115AF	SIDDHAM VOWEL SIGN AA
+115B0	SIDDHAM VOWEL SIGN I
+115B1	SIDDHAM VOWEL SIGN II
+115B2	SIDDHAM VOWEL SIGN U
+115B3	SIDDHAM VOWEL SIGN UU
+115B4	SIDDHAM VOWEL SIGN VOCALIC R
+115B5	SIDDHAM VOWEL SIGN VOCALIC RR
+115B8	SIDDHAM VOWEL SIGN E
+115B9	SIDDHAM VOWEL SIGN AI
+115BA	SIDDHAM VOWEL SIGN O
+115BB	SIDDHAM VOWEL SIGN AU
+115BC	SIDDHAM SIGN CANDRABINDU
+115BD	SIDDHAM SIGN ANUSVARA
+115BE	SIDDHAM SIGN VISARGA
+115BF	SIDDHAM SIGN VIRAMA
+115C0	SIDDHAM SIGN NUKTA
+115C1	SIDDHAM SIGN SIDDHAM
+115C2	SIDDHAM DANDA
+115C3	SIDDHAM DOUBLE DANDA
+115C4	SIDDHAM SEPARATOR DOT
+115C5	SIDDHAM SEPARATOR BAR
+115C6	SIDDHAM REPETITION MARK-1
+115C7	SIDDHAM REPETITION MARK-2
+115C8	SIDDHAM REPETITION MARK-3
+115C9	SIDDHAM END OF TEXT MARK
+115CA	SIDDHAM SECTION MARK WITH TRIDENT AND U-SHAPED ORNAMENTS
+115CB	SIDDHAM SECTION MARK WITH TRIDENT AND DOTTED CRESCENTS
+115CC	SIDDHAM SECTION MARK WITH RAYS AND DOTTED CRESCENTS
+115CD	SIDDHAM SECTION MARK WITH RAYS AND DOTTED DOUBLE CRESCENTS
+115CE	SIDDHAM SECTION MARK WITH RAYS AND DOTTED TRIPLE CRESCENTS
+115CF	SIDDHAM SECTION MARK DOUBLE RING
+115D0	SIDDHAM SECTION MARK DOUBLE RING WITH RAYS
+115D1	SIDDHAM SECTION MARK WITH DOUBLE CRESCENTS
+115D2	SIDDHAM SECTION MARK WITH TRIPLE CRESCENTS
+115D3	SIDDHAM SECTION MARK WITH QUADRUPLE CRESCENTS
+115D4	SIDDHAM SECTION MARK WITH SEPTUPLE CRESCENTS
+115D5	SIDDHAM SECTION MARK WITH CIRCLES AND RAYS
+115D6	SIDDHAM SECTION MARK WITH CIRCLES AND TWO ENCLOSURES
+115D7	SIDDHAM SECTION MARK WITH CIRCLES AND FOUR ENCLOSURES
+115D8	SIDDHAM LETTER THREE-CIRCLE ALTERNATE I
+115D9	SIDDHAM LETTER TWO-CIRCLE ALTERNATE I
+115DA	SIDDHAM LETTER TWO-CIRCLE ALTERNATE II
+115DB	SIDDHAM LETTER ALTERNATE U
+115DC	SIDDHAM VOWEL SIGN ALTERNATE U
+115DD	SIDDHAM VOWEL SIGN ALTERNATE UU
+11600	MODI LETTER A
+11601	MODI LETTER AA
+11602	MODI LETTER I
+11603	MODI LETTER II
+11604	MODI LETTER U
+11605	MODI LETTER UU
+11606	MODI LETTER VOCALIC R
+11607	MODI LETTER VOCALIC RR
+11608	MODI LETTER VOCALIC L
+11609	MODI LETTER VOCALIC LL
+1160A	MODI LETTER E
+1160B	MODI LETTER AI
+1160C	MODI LETTER O
+1160D	MODI LETTER AU
+1160E	MODI LETTER KA
+1160F	MODI LETTER KHA
+11610	MODI LETTER GA
+11611	MODI LETTER GHA
+11612	MODI LETTER NGA
+11613	MODI LETTER CA
+11614	MODI LETTER CHA
+11615	MODI LETTER JA
+11616	MODI LETTER JHA
+11617	MODI LETTER NYA
+11618	MODI LETTER TTA
+11619	MODI LETTER TTHA
+1161A	MODI LETTER DDA
+1161B	MODI LETTER DDHA
+1161C	MODI LETTER NNA
+1161D	MODI LETTER TA
+1161E	MODI LETTER THA
+1161F	MODI LETTER DA
+11620	MODI LETTER DHA
+11621	MODI LETTER NA
+11622	MODI LETTER PA
+11623	MODI LETTER PHA
+11624	MODI LETTER BA
+11625	MODI LETTER BHA
+11626	MODI LETTER MA
+11627	MODI LETTER YA
+11628	MODI LETTER RA
+11629	MODI LETTER LA
+1162A	MODI LETTER VA
+1162B	MODI LETTER SHA
+1162C	MODI LETTER SSA
+1162D	MODI LETTER SA
+1162E	MODI LETTER HA
+1162F	MODI LETTER LLA
+11630	MODI VOWEL SIGN AA
+11631	MODI VOWEL SIGN I
+11632	MODI VOWEL SIGN II
+11633	MODI VOWEL SIGN U
+11634	MODI VOWEL SIGN UU
+11635	MODI VOWEL SIGN VOCALIC R
+11636	MODI VOWEL SIGN VOCALIC RR
+11637	MODI VOWEL SIGN VOCALIC L
+11638	MODI VOWEL SIGN VOCALIC LL
+11639	MODI VOWEL SIGN E
+1163A	MODI VOWEL SIGN AI
+1163B	MODI VOWEL SIGN O
+1163C	MODI VOWEL SIGN AU
+1163D	MODI SIGN ANUSVARA
+1163E	MODI SIGN VISARGA
+1163F	MODI SIGN VIRAMA
+11640	MODI SIGN ARDHACANDRA
+11641	MODI DANDA
+11642	MODI DOUBLE DANDA
+11643	MODI ABBREVIATION SIGN
+11644	MODI SIGN HUVA
+11650	MODI DIGIT ZERO
+11651	MODI DIGIT ONE
+11652	MODI DIGIT TWO
+11653	MODI DIGIT THREE
+11654	MODI DIGIT FOUR
+11655	MODI DIGIT FIVE
+11656	MODI DIGIT SIX
+11657	MODI DIGIT SEVEN
+11658	MODI DIGIT EIGHT
+11659	MODI DIGIT NINE
+11660	MONGOLIAN BIRGA WITH ORNAMENT
+11661	MONGOLIAN ROTATED BIRGA
+11662	MONGOLIAN DOUBLE BIRGA WITH ORNAMENT
+11663	MONGOLIAN TRIPLE BIRGA WITH ORNAMENT
+11664	MONGOLIAN BIRGA WITH DOUBLE ORNAMENT
+11665	MONGOLIAN ROTATED BIRGA WITH ORNAMENT
+11666	MONGOLIAN ROTATED BIRGA WITH DOUBLE ORNAMENT
+11667	MONGOLIAN INVERTED BIRGA
+11668	MONGOLIAN INVERTED BIRGA WITH DOUBLE ORNAMENT
+11669	MONGOLIAN SWIRL BIRGA
+1166A	MONGOLIAN SWIRL BIRGA WITH ORNAMENT
+1166B	MONGOLIAN SWIRL BIRGA WITH DOUBLE ORNAMENT
+1166C	MONGOLIAN TURNED SWIRL BIRGA WITH DOUBLE ORNAMENT
+11680	TAKRI LETTER A
+11681	TAKRI LETTER AA
+11682	TAKRI LETTER I
+11683	TAKRI LETTER II
+11684	TAKRI LETTER U
+11685	TAKRI LETTER UU
+11686	TAKRI LETTER E
+11687	TAKRI LETTER AI
+11688	TAKRI LETTER O
+11689	TAKRI LETTER AU
+1168A	TAKRI LETTER KA
+1168B	TAKRI LETTER KHA
+1168C	TAKRI LETTER GA
+1168D	TAKRI LETTER GHA
+1168E	TAKRI LETTER NGA
+1168F	TAKRI LETTER CA
+11690	TAKRI LETTER CHA
+11691	TAKRI LETTER JA
+11692	TAKRI LETTER JHA
+11693	TAKRI LETTER NYA
+11694	TAKRI LETTER TTA
+11695	TAKRI LETTER TTHA
+11696	TAKRI LETTER DDA
+11697	TAKRI LETTER DDHA
+11698	TAKRI LETTER NNA
+11699	TAKRI LETTER TA
+1169A	TAKRI LETTER THA
+1169B	TAKRI LETTER DA
+1169C	TAKRI LETTER DHA
+1169D	TAKRI LETTER NA
+1169E	TAKRI LETTER PA
+1169F	TAKRI LETTER PHA
+116A0	TAKRI LETTER BA
+116A1	TAKRI LETTER BHA
+116A2	TAKRI LETTER MA
+116A3	TAKRI LETTER YA
+116A4	TAKRI LETTER RA
+116A5	TAKRI LETTER LA
+116A6	TAKRI LETTER VA
+116A7	TAKRI LETTER SHA
+116A8	TAKRI LETTER SA
+116A9	TAKRI LETTER HA
+116AA	TAKRI LETTER RRA
+116AB	TAKRI SIGN ANUSVARA
+116AC	TAKRI SIGN VISARGA
+116AD	TAKRI VOWEL SIGN AA
+116AE	TAKRI VOWEL SIGN I
+116AF	TAKRI VOWEL SIGN II
+116B0	TAKRI VOWEL SIGN U
+116B1	TAKRI VOWEL SIGN UU
+116B2	TAKRI VOWEL SIGN E
+116B3	TAKRI VOWEL SIGN AI
+116B4	TAKRI VOWEL SIGN O
+116B5	TAKRI VOWEL SIGN AU
+116B6	TAKRI SIGN VIRAMA
+116B7	TAKRI SIGN NUKTA
+116C0	TAKRI DIGIT ZERO
+116C1	TAKRI DIGIT ONE
+116C2	TAKRI DIGIT TWO
+116C3	TAKRI DIGIT THREE
+116C4	TAKRI DIGIT FOUR
+116C5	TAKRI DIGIT FIVE
+116C6	TAKRI DIGIT SIX
+116C7	TAKRI DIGIT SEVEN
+116C8	TAKRI DIGIT EIGHT
+116C9	TAKRI DIGIT NINE
+11700	AHOM LETTER KA
+11701	AHOM LETTER KHA
+11702	AHOM LETTER NGA
+11703	AHOM LETTER NA
+11704	AHOM LETTER TA
+11705	AHOM LETTER ALTERNATE TA
+11706	AHOM LETTER PA
+11707	AHOM LETTER PHA
+11708	AHOM LETTER BA
+11709	AHOM LETTER MA
+1170A	AHOM LETTER JA
+1170B	AHOM LETTER CHA
+1170C	AHOM LETTER THA
+1170D	AHOM LETTER RA
+1170E	AHOM LETTER LA
+1170F	AHOM LETTER SA
+11710	AHOM LETTER NYA
+11711	AHOM LETTER HA
+11712	AHOM LETTER A
+11713	AHOM LETTER DA
+11714	AHOM LETTER DHA
+11715	AHOM LETTER GA
+11716	AHOM LETTER ALTERNATE GA
+11717	AHOM LETTER GHA
+11718	AHOM LETTER BHA
+11719	AHOM LETTER JHA
+1171D	AHOM CONSONANT SIGN MEDIAL LA
+1171E	AHOM CONSONANT SIGN MEDIAL RA
+1171F	AHOM CONSONANT SIGN MEDIAL LIGATING RA
+11720	AHOM VOWEL SIGN A
+11721	AHOM VOWEL SIGN AA
+11722	AHOM VOWEL SIGN I
+11723	AHOM VOWEL SIGN II
+11724	AHOM VOWEL SIGN U
+11725	AHOM VOWEL SIGN UU
+11726	AHOM VOWEL SIGN E
+11727	AHOM VOWEL SIGN AW
+11728	AHOM VOWEL SIGN O
+11729	AHOM VOWEL SIGN AI
+1172A	AHOM VOWEL SIGN AM
+1172B	AHOM SIGN KILLER
+11730	AHOM DIGIT ZERO
+11731	AHOM DIGIT ONE
+11732	AHOM DIGIT TWO
+11733	AHOM DIGIT THREE
+11734	AHOM DIGIT FOUR
+11735	AHOM DIGIT FIVE
+11736	AHOM DIGIT SIX
+11737	AHOM DIGIT SEVEN
+11738	AHOM DIGIT EIGHT
+11739	AHOM DIGIT NINE
+1173A	AHOM NUMBER TEN
+1173B	AHOM NUMBER TWENTY
+1173C	AHOM SIGN SMALL SECTION
+1173D	AHOM SIGN SECTION
+1173E	AHOM SIGN RULAI
+1173F	AHOM SYMBOL VI
+118A0	WARANG CITI CAPITAL LETTER NGAA
+118A1	WARANG CITI CAPITAL LETTER A
+118A2	WARANG CITI CAPITAL LETTER WI
+118A3	WARANG CITI CAPITAL LETTER YU
+118A4	WARANG CITI CAPITAL LETTER YA
+118A5	WARANG CITI CAPITAL LETTER YO
+118A6	WARANG CITI CAPITAL LETTER II
+118A7	WARANG CITI CAPITAL LETTER UU
+118A8	WARANG CITI CAPITAL LETTER E
+118A9	WARANG CITI CAPITAL LETTER O
+118AA	WARANG CITI CAPITAL LETTER ANG
+118AB	WARANG CITI CAPITAL LETTER GA
+118AC	WARANG CITI CAPITAL LETTER KO
+118AD	WARANG CITI CAPITAL LETTER ENY
+118AE	WARANG CITI CAPITAL LETTER YUJ
+118AF	WARANG CITI CAPITAL LETTER UC
+118B0	WARANG CITI CAPITAL LETTER ENN
+118B1	WARANG CITI CAPITAL LETTER ODD
+118B2	WARANG CITI CAPITAL LETTER TTE
+118B3	WARANG CITI CAPITAL LETTER NUNG
+118B4	WARANG CITI CAPITAL LETTER DA
+118B5	WARANG CITI CAPITAL LETTER AT
+118B6	WARANG CITI CAPITAL LETTER AM
+118B7	WARANG CITI CAPITAL LETTER BU
+118B8	WARANG CITI CAPITAL LETTER PU
+118B9	WARANG CITI CAPITAL LETTER HIYO
+118BA	WARANG CITI CAPITAL LETTER HOLO
+118BB	WARANG CITI CAPITAL LETTER HORR
+118BC	WARANG CITI CAPITAL LETTER HAR
+118BD	WARANG CITI CAPITAL LETTER SSUU
+118BE	WARANG CITI CAPITAL LETTER SII
+118BF	WARANG CITI CAPITAL LETTER VIYO
+118C0	WARANG CITI SMALL LETTER NGAA
+118C1	WARANG CITI SMALL LETTER A
+118C2	WARANG CITI SMALL LETTER WI
+118C3	WARANG CITI SMALL LETTER YU
+118C4	WARANG CITI SMALL LETTER YA
+118C5	WARANG CITI SMALL LETTER YO
+118C6	WARANG CITI SMALL LETTER II
+118C7	WARANG CITI SMALL LETTER UU
+118C8	WARANG CITI SMALL LETTER E
+118C9	WARANG CITI SMALL LETTER O
+118CA	WARANG CITI SMALL LETTER ANG
+118CB	WARANG CITI SMALL LETTER GA
+118CC	WARANG CITI SMALL LETTER KO
+118CD	WARANG CITI SMALL LETTER ENY
+118CE	WARANG CITI SMALL LETTER YUJ
+118CF	WARANG CITI SMALL LETTER UC
+118D0	WARANG CITI SMALL LETTER ENN
+118D1	WARANG CITI SMALL LETTER ODD
+118D2	WARANG CITI SMALL LETTER TTE
+118D3	WARANG CITI SMALL LETTER NUNG
+118D4	WARANG CITI SMALL LETTER DA
+118D5	WARANG CITI SMALL LETTER AT
+118D6	WARANG CITI SMALL LETTER AM
+118D7	WARANG CITI SMALL LETTER BU
+118D8	WARANG CITI SMALL LETTER PU
+118D9	WARANG CITI SMALL LETTER HIYO
+118DA	WARANG CITI SMALL LETTER HOLO
+118DB	WARANG CITI SMALL LETTER HORR
+118DC	WARANG CITI SMALL LETTER HAR
+118DD	WARANG CITI SMALL LETTER SSUU
+118DE	WARANG CITI SMALL LETTER SII
+118DF	WARANG CITI SMALL LETTER VIYO
+118E0	WARANG CITI DIGIT ZERO
+118E1	WARANG CITI DIGIT ONE
+118E2	WARANG CITI DIGIT TWO
+118E3	WARANG CITI DIGIT THREE
+118E4	WARANG CITI DIGIT FOUR
+118E5	WARANG CITI DIGIT FIVE
+118E6	WARANG CITI DIGIT SIX
+118E7	WARANG CITI DIGIT SEVEN
+118E8	WARANG CITI DIGIT EIGHT
+118E9	WARANG CITI DIGIT NINE
+118EA	WARANG CITI NUMBER TEN
+118EB	WARANG CITI NUMBER TWENTY
+118EC	WARANG CITI NUMBER THIRTY
+118ED	WARANG CITI NUMBER FORTY
+118EE	WARANG CITI NUMBER FIFTY
+118EF	WARANG CITI NUMBER SIXTY
+118F0	WARANG CITI NUMBER SEVENTY
+118F1	WARANG CITI NUMBER EIGHTY
+118F2	WARANG CITI NUMBER NINETY
+118FF	WARANG CITI OM
+11A00	ZANABAZAR SQUARE LETTER A
+11A01	ZANABAZAR SQUARE VOWEL SIGN I
+11A02	ZANABAZAR SQUARE VOWEL SIGN UE
+11A03	ZANABAZAR SQUARE VOWEL SIGN U
+11A04	ZANABAZAR SQUARE VOWEL SIGN E
+11A05	ZANABAZAR SQUARE VOWEL SIGN OE
+11A06	ZANABAZAR SQUARE VOWEL SIGN O
+11A07	ZANABAZAR SQUARE VOWEL SIGN AI
+11A08	ZANABAZAR SQUARE VOWEL SIGN AU
+11A09	ZANABAZAR SQUARE VOWEL SIGN REVERSED I
+11A0A	ZANABAZAR SQUARE VOWEL LENGTH MARK
+11A0B	ZANABAZAR SQUARE LETTER KA
+11A0C	ZANABAZAR SQUARE LETTER KHA
+11A0D	ZANABAZAR SQUARE LETTER GA
+11A0E	ZANABAZAR SQUARE LETTER GHA
+11A0F	ZANABAZAR SQUARE LETTER NGA
+11A10	ZANABAZAR SQUARE LETTER CA
+11A11	ZANABAZAR SQUARE LETTER CHA
+11A12	ZANABAZAR SQUARE LETTER JA
+11A13	ZANABAZAR SQUARE LETTER NYA
+11A14	ZANABAZAR SQUARE LETTER TTA
+11A15	ZANABAZAR SQUARE LETTER TTHA
+11A16	ZANABAZAR SQUARE LETTER DDA
+11A17	ZANABAZAR SQUARE LETTER DDHA
+11A18	ZANABAZAR SQUARE LETTER NNA
+11A19	ZANABAZAR SQUARE LETTER TA
+11A1A	ZANABAZAR SQUARE LETTER THA
+11A1B	ZANABAZAR SQUARE LETTER DA
+11A1C	ZANABAZAR SQUARE LETTER DHA
+11A1D	ZANABAZAR SQUARE LETTER NA
+11A1E	ZANABAZAR SQUARE LETTER PA
+11A1F	ZANABAZAR SQUARE LETTER PHA
+11A20	ZANABAZAR SQUARE LETTER BA
+11A21	ZANABAZAR SQUARE LETTER BHA
+11A22	ZANABAZAR SQUARE LETTER MA
+11A23	ZANABAZAR SQUARE LETTER TSA
+11A24	ZANABAZAR SQUARE LETTER TSHA
+11A25	ZANABAZAR SQUARE LETTER DZA
+11A26	ZANABAZAR SQUARE LETTER DZHA
+11A27	ZANABAZAR SQUARE LETTER ZHA
+11A28	ZANABAZAR SQUARE LETTER ZA
+11A29	ZANABAZAR SQUARE LETTER -A
+11A2A	ZANABAZAR SQUARE LETTER YA
+11A2B	ZANABAZAR SQUARE LETTER RA
+11A2C	ZANABAZAR SQUARE LETTER LA
+11A2D	ZANABAZAR SQUARE LETTER VA
+11A2E	ZANABAZAR SQUARE LETTER SHA
+11A2F	ZANABAZAR SQUARE LETTER SSA
+11A30	ZANABAZAR SQUARE LETTER SA
+11A31	ZANABAZAR SQUARE LETTER HA
+11A32	ZANABAZAR SQUARE LETTER KSSA
+11A33	ZANABAZAR SQUARE FINAL CONSONANT MARK
+11A34	ZANABAZAR SQUARE SIGN VIRAMA
+11A35	ZANABAZAR SQUARE SIGN CANDRABINDU
+11A36	ZANABAZAR SQUARE SIGN CANDRABINDU WITH ORNAMENT
+11A37	ZANABAZAR SQUARE SIGN CANDRA WITH ORNAMENT
+11A38	ZANABAZAR SQUARE SIGN ANUSVARA
+11A39	ZANABAZAR SQUARE SIGN VISARGA
+11A3A	ZANABAZAR SQUARE CLUSTER-INITIAL LETTER RA
+11A3B	ZANABAZAR SQUARE CLUSTER-FINAL LETTER YA
+11A3C	ZANABAZAR SQUARE CLUSTER-FINAL LETTER RA
+11A3D	ZANABAZAR SQUARE CLUSTER-FINAL LETTER LA
+11A3E	ZANABAZAR SQUARE CLUSTER-FINAL LETTER VA
+11A3F	ZANABAZAR SQUARE INITIAL HEAD MARK
+11A40	ZANABAZAR SQUARE CLOSING HEAD MARK
+11A41	ZANABAZAR SQUARE MARK TSHEG
+11A42	ZANABAZAR SQUARE MARK SHAD
+11A43	ZANABAZAR SQUARE MARK DOUBLE SHAD
+11A44	ZANABAZAR SQUARE MARK LONG TSHEG
+11A45	ZANABAZAR SQUARE INITIAL DOUBLE-LINED HEAD MARK
+11A46	ZANABAZAR SQUARE CLOSING DOUBLE-LINED HEAD MARK
+11A47	ZANABAZAR SQUARE SUBJOINER
+11A50	SOYOMBO LETTER A
+11A51	SOYOMBO VOWEL SIGN I
+11A52	SOYOMBO VOWEL SIGN UE
+11A53	SOYOMBO VOWEL SIGN U
+11A54	SOYOMBO VOWEL SIGN E
+11A55	SOYOMBO VOWEL SIGN O
+11A56	SOYOMBO VOWEL SIGN OE
+11A57	SOYOMBO VOWEL SIGN AI
+11A58	SOYOMBO VOWEL SIGN AU
+11A59	SOYOMBO VOWEL SIGN VOCALIC R
+11A5A	SOYOMBO VOWEL SIGN VOCALIC L
+11A5B	SOYOMBO VOWEL LENGTH MARK
+11A5C	SOYOMBO LETTER KA
+11A5D	SOYOMBO LETTER KHA
+11A5E	SOYOMBO LETTER GA
+11A5F	SOYOMBO LETTER GHA
+11A60	SOYOMBO LETTER NGA
+11A61	SOYOMBO LETTER CA
+11A62	SOYOMBO LETTER CHA
+11A63	SOYOMBO LETTER JA
+11A64	SOYOMBO LETTER JHA
+11A65	SOYOMBO LETTER NYA
+11A66	SOYOMBO LETTER TTA
+11A67	SOYOMBO LETTER TTHA
+11A68	SOYOMBO LETTER DDA
+11A69	SOYOMBO LETTER DDHA
+11A6A	SOYOMBO LETTER NNA
+11A6B	SOYOMBO LETTER TA
+11A6C	SOYOMBO LETTER THA
+11A6D	SOYOMBO LETTER DA
+11A6E	SOYOMBO LETTER DHA
+11A6F	SOYOMBO LETTER NA
+11A70	SOYOMBO LETTER PA
+11A71	SOYOMBO LETTER PHA
+11A72	SOYOMBO LETTER BA
+11A73	SOYOMBO LETTER BHA
+11A74	SOYOMBO LETTER MA
+11A75	SOYOMBO LETTER TSA
+11A76	SOYOMBO LETTER TSHA
+11A77	SOYOMBO LETTER DZA
+11A78	SOYOMBO LETTER ZHA
+11A79	SOYOMBO LETTER ZA
+11A7A	SOYOMBO LETTER -A
+11A7B	SOYOMBO LETTER YA
+11A7C	SOYOMBO LETTER RA
+11A7D	SOYOMBO LETTER LA
+11A7E	SOYOMBO LETTER VA
+11A7F	SOYOMBO LETTER SHA
+11A80	SOYOMBO LETTER SSA
+11A81	SOYOMBO LETTER SA
+11A82	SOYOMBO LETTER HA
+11A83	SOYOMBO LETTER KSSA
+11A86	SOYOMBO CLUSTER-INITIAL LETTER RA
+11A87	SOYOMBO CLUSTER-INITIAL LETTER LA
+11A88	SOYOMBO CLUSTER-INITIAL LETTER SHA
+11A89	SOYOMBO CLUSTER-INITIAL LETTER SA
+11A8A	SOYOMBO FINAL CONSONANT SIGN G
+11A8B	SOYOMBO FINAL CONSONANT SIGN K
+11A8C	SOYOMBO FINAL CONSONANT SIGN NG
+11A8D	SOYOMBO FINAL CONSONANT SIGN D
+11A8E	SOYOMBO FINAL CONSONANT SIGN N
+11A8F	SOYOMBO FINAL CONSONANT SIGN B
+11A90	SOYOMBO FINAL CONSONANT SIGN M
+11A91	SOYOMBO FINAL CONSONANT SIGN R
+11A92	SOYOMBO FINAL CONSONANT SIGN L
+11A93	SOYOMBO FINAL CONSONANT SIGN SH
+11A94	SOYOMBO FINAL CONSONANT SIGN S
+11A95	SOYOMBO FINAL CONSONANT SIGN -A
+11A96	SOYOMBO SIGN ANUSVARA
+11A97	SOYOMBO SIGN VISARGA
+11A98	SOYOMBO GEMINATION MARK
+11A99	SOYOMBO SUBJOINER
+11A9A	SOYOMBO MARK TSHEG
+11A9B	SOYOMBO MARK SHAD
+11A9C	SOYOMBO MARK DOUBLE SHAD
+11A9E	SOYOMBO HEAD MARK WITH MOON AND SUN AND TRIPLE FLAME
+11A9F	SOYOMBO HEAD MARK WITH MOON AND SUN AND FLAME
+11AA0	SOYOMBO HEAD MARK WITH MOON AND SUN
+11AA1	SOYOMBO TERMINAL MARK-1
+11AA2	SOYOMBO TERMINAL MARK-2
+11AC0	PAU CIN HAU LETTER PA
+11AC1	PAU CIN HAU LETTER KA
+11AC2	PAU CIN HAU LETTER LA
+11AC3	PAU CIN HAU LETTER MA
+11AC4	PAU CIN HAU LETTER DA
+11AC5	PAU CIN HAU LETTER ZA
+11AC6	PAU CIN HAU LETTER VA
+11AC7	PAU CIN HAU LETTER NGA
+11AC8	PAU CIN HAU LETTER HA
+11AC9	PAU CIN HAU LETTER GA
+11ACA	PAU CIN HAU LETTER KHA
+11ACB	PAU CIN HAU LETTER SA
+11ACC	PAU CIN HAU LETTER BA
+11ACD	PAU CIN HAU LETTER CA
+11ACE	PAU CIN HAU LETTER TA
+11ACF	PAU CIN HAU LETTER THA
+11AD0	PAU CIN HAU LETTER NA
+11AD1	PAU CIN HAU LETTER PHA
+11AD2	PAU CIN HAU LETTER RA
+11AD3	PAU CIN HAU LETTER FA
+11AD4	PAU CIN HAU LETTER CHA
+11AD5	PAU CIN HAU LETTER A
+11AD6	PAU CIN HAU LETTER E
+11AD7	PAU CIN HAU LETTER I
+11AD8	PAU CIN HAU LETTER O
+11AD9	PAU CIN HAU LETTER U
+11ADA	PAU CIN HAU LETTER UA
+11ADB	PAU CIN HAU LETTER IA
+11ADC	PAU CIN HAU LETTER FINAL P
+11ADD	PAU CIN HAU LETTER FINAL K
+11ADE	PAU CIN HAU LETTER FINAL T
+11ADF	PAU CIN HAU LETTER FINAL M
+11AE0	PAU CIN HAU LETTER FINAL N
+11AE1	PAU CIN HAU LETTER FINAL L
+11AE2	PAU CIN HAU LETTER FINAL W
+11AE3	PAU CIN HAU LETTER FINAL NG
+11AE4	PAU CIN HAU LETTER FINAL Y
+11AE5	PAU CIN HAU RISING TONE LONG
+11AE6	PAU CIN HAU RISING TONE
+11AE7	PAU CIN HAU SANDHI GLOTTAL STOP
+11AE8	PAU CIN HAU RISING TONE LONG FINAL
+11AE9	PAU CIN HAU RISING TONE FINAL
+11AEA	PAU CIN HAU SANDHI GLOTTAL STOP FINAL
+11AEB	PAU CIN HAU SANDHI TONE LONG
+11AEC	PAU CIN HAU SANDHI TONE
+11AED	PAU CIN HAU SANDHI TONE LONG FINAL
+11AEE	PAU CIN HAU SANDHI TONE FINAL
+11AEF	PAU CIN HAU MID-LEVEL TONE
+11AF0	PAU CIN HAU GLOTTAL STOP VARIANT
+11AF1	PAU CIN HAU MID-LEVEL TONE LONG FINAL
+11AF2	PAU CIN HAU MID-LEVEL TONE FINAL
+11AF3	PAU CIN HAU LOW-FALLING TONE LONG
+11AF4	PAU CIN HAU LOW-FALLING TONE
+11AF5	PAU CIN HAU GLOTTAL STOP
+11AF6	PAU CIN HAU LOW-FALLING TONE LONG FINAL
+11AF7	PAU CIN HAU LOW-FALLING TONE FINAL
+11AF8	PAU CIN HAU GLOTTAL STOP FINAL
+11C00	BHAIKSUKI LETTER A
+11C01	BHAIKSUKI LETTER AA
+11C02	BHAIKSUKI LETTER I
+11C03	BHAIKSUKI LETTER II
+11C04	BHAIKSUKI LETTER U
+11C05	BHAIKSUKI LETTER UU
+11C06	BHAIKSUKI LETTER VOCALIC R
+11C07	BHAIKSUKI LETTER VOCALIC RR
+11C08	BHAIKSUKI LETTER VOCALIC L
+11C0A	BHAIKSUKI LETTER E
+11C0B	BHAIKSUKI LETTER AI
+11C0C	BHAIKSUKI LETTER O
+11C0D	BHAIKSUKI LETTER AU
+11C0E	BHAIKSUKI LETTER KA
+11C0F	BHAIKSUKI LETTER KHA
+11C10	BHAIKSUKI LETTER GA
+11C11	BHAIKSUKI LETTER GHA
+11C12	BHAIKSUKI LETTER NGA
+11C13	BHAIKSUKI LETTER CA
+11C14	BHAIKSUKI LETTER CHA
+11C15	BHAIKSUKI LETTER JA
+11C16	BHAIKSUKI LETTER JHA
+11C17	BHAIKSUKI LETTER NYA
+11C18	BHAIKSUKI LETTER TTA
+11C19	BHAIKSUKI LETTER TTHA
+11C1A	BHAIKSUKI LETTER DDA
+11C1B	BHAIKSUKI LETTER DDHA
+11C1C	BHAIKSUKI LETTER NNA
+11C1D	BHAIKSUKI LETTER TA
+11C1E	BHAIKSUKI LETTER THA
+11C1F	BHAIKSUKI LETTER DA
+11C20	BHAIKSUKI LETTER DHA
+11C21	BHAIKSUKI LETTER NA
+11C22	BHAIKSUKI LETTER PA
+11C23	BHAIKSUKI LETTER PHA
+11C24	BHAIKSUKI LETTER BA
+11C25	BHAIKSUKI LETTER BHA
+11C26	BHAIKSUKI LETTER MA
+11C27	BHAIKSUKI LETTER YA
+11C28	BHAIKSUKI LETTER RA
+11C29	BHAIKSUKI LETTER LA
+11C2A	BHAIKSUKI LETTER VA
+11C2B	BHAIKSUKI LETTER SHA
+11C2C	BHAIKSUKI LETTER SSA
+11C2D	BHAIKSUKI LETTER SA
+11C2E	BHAIKSUKI LETTER HA
+11C2F	BHAIKSUKI VOWEL SIGN AA
+11C30	BHAIKSUKI VOWEL SIGN I
+11C31	BHAIKSUKI VOWEL SIGN II
+11C32	BHAIKSUKI VOWEL SIGN U
+11C33	BHAIKSUKI VOWEL SIGN UU
+11C34	BHAIKSUKI VOWEL SIGN VOCALIC R
+11C35	BHAIKSUKI VOWEL SIGN VOCALIC RR
+11C36	BHAIKSUKI VOWEL SIGN VOCALIC L
+11C38	BHAIKSUKI VOWEL SIGN E
+11C39	BHAIKSUKI VOWEL SIGN AI
+11C3A	BHAIKSUKI VOWEL SIGN O
+11C3B	BHAIKSUKI VOWEL SIGN AU
+11C3C	BHAIKSUKI SIGN CANDRABINDU
+11C3D	BHAIKSUKI SIGN ANUSVARA
+11C3E	BHAIKSUKI SIGN VISARGA
+11C3F	BHAIKSUKI SIGN VIRAMA
+11C40	BHAIKSUKI SIGN AVAGRAHA
+11C41	BHAIKSUKI DANDA
+11C42	BHAIKSUKI DOUBLE DANDA
+11C43	BHAIKSUKI WORD SEPARATOR
+11C44	BHAIKSUKI GAP FILLER-1
+11C45	BHAIKSUKI GAP FILLER-2
+11C50	BHAIKSUKI DIGIT ZERO
+11C51	BHAIKSUKI DIGIT ONE
+11C52	BHAIKSUKI DIGIT TWO
+11C53	BHAIKSUKI DIGIT THREE
+11C54	BHAIKSUKI DIGIT FOUR
+11C55	BHAIKSUKI DIGIT FIVE
+11C56	BHAIKSUKI DIGIT SIX
+11C57	BHAIKSUKI DIGIT SEVEN
+11C58	BHAIKSUKI DIGIT EIGHT
+11C59	BHAIKSUKI DIGIT NINE
+11C5A	BHAIKSUKI NUMBER ONE
+11C5B	BHAIKSUKI NUMBER TWO
+11C5C	BHAIKSUKI NUMBER THREE
+11C5D	BHAIKSUKI NUMBER FOUR
+11C5E	BHAIKSUKI NUMBER FIVE
+11C5F	BHAIKSUKI NUMBER SIX
+11C60	BHAIKSUKI NUMBER SEVEN
+11C61	BHAIKSUKI NUMBER EIGHT
+11C62	BHAIKSUKI NUMBER NINE
+11C63	BHAIKSUKI NUMBER TEN
+11C64	BHAIKSUKI NUMBER TWENTY
+11C65	BHAIKSUKI NUMBER THIRTY
+11C66	BHAIKSUKI NUMBER FORTY
+11C67	BHAIKSUKI NUMBER FIFTY
+11C68	BHAIKSUKI NUMBER SIXTY
+11C69	BHAIKSUKI NUMBER SEVENTY
+11C6A	BHAIKSUKI NUMBER EIGHTY
+11C6B	BHAIKSUKI NUMBER NINETY
+11C6C	BHAIKSUKI HUNDREDS UNIT MARK
+11C70	MARCHEN HEAD MARK
+11C71	MARCHEN MARK SHAD
+11C72	MARCHEN LETTER KA
+11C73	MARCHEN LETTER KHA
+11C74	MARCHEN LETTER GA
+11C75	MARCHEN LETTER NGA
+11C76	MARCHEN LETTER CA
+11C77	MARCHEN LETTER CHA
+11C78	MARCHEN LETTER JA
+11C79	MARCHEN LETTER NYA
+11C7A	MARCHEN LETTER TA
+11C7B	MARCHEN LETTER THA
+11C7C	MARCHEN LETTER DA
+11C7D	MARCHEN LETTER NA
+11C7E	MARCHEN LETTER PA
+11C7F	MARCHEN LETTER PHA
+11C80	MARCHEN LETTER BA
+11C81	MARCHEN LETTER MA
+11C82	MARCHEN LETTER TSA
+11C83	MARCHEN LETTER TSHA
+11C84	MARCHEN LETTER DZA
+11C85	MARCHEN LETTER WA
+11C86	MARCHEN LETTER ZHA
+11C87	MARCHEN LETTER ZA
+11C88	MARCHEN LETTER -A
+11C89	MARCHEN LETTER YA
+11C8A	MARCHEN LETTER RA
+11C8B	MARCHEN LETTER LA
+11C8C	MARCHEN LETTER SHA
+11C8D	MARCHEN LETTER SA
+11C8E	MARCHEN LETTER HA
+11C8F	MARCHEN LETTER A
+11C92	MARCHEN SUBJOINED LETTER KA
+11C93	MARCHEN SUBJOINED LETTER KHA
+11C94	MARCHEN SUBJOINED LETTER GA
+11C95	MARCHEN SUBJOINED LETTER NGA
+11C96	MARCHEN SUBJOINED LETTER CA
+11C97	MARCHEN SUBJOINED LETTER CHA
+11C98	MARCHEN SUBJOINED LETTER JA
+11C99	MARCHEN SUBJOINED LETTER NYA
+11C9A	MARCHEN SUBJOINED LETTER TA
+11C9B	MARCHEN SUBJOINED LETTER THA
+11C9C	MARCHEN SUBJOINED LETTER DA
+11C9D	MARCHEN SUBJOINED LETTER NA
+11C9E	MARCHEN SUBJOINED LETTER PA
+11C9F	MARCHEN SUBJOINED LETTER PHA
+11CA0	MARCHEN SUBJOINED LETTER BA
+11CA1	MARCHEN SUBJOINED LETTER MA
+11CA2	MARCHEN SUBJOINED LETTER TSA
+11CA3	MARCHEN SUBJOINED LETTER TSHA
+11CA4	MARCHEN SUBJOINED LETTER DZA
+11CA5	MARCHEN SUBJOINED LETTER WA
+11CA6	MARCHEN SUBJOINED LETTER ZHA
+11CA7	MARCHEN SUBJOINED LETTER ZA
+11CA9	MARCHEN SUBJOINED LETTER YA
+11CAA	MARCHEN SUBJOINED LETTER RA
+11CAB	MARCHEN SUBJOINED LETTER LA
+11CAC	MARCHEN SUBJOINED LETTER SHA
+11CAD	MARCHEN SUBJOINED LETTER SA
+11CAE	MARCHEN SUBJOINED LETTER HA
+11CAF	MARCHEN SUBJOINED LETTER A
+11CB0	MARCHEN VOWEL SIGN AA
+11CB1	MARCHEN VOWEL SIGN I
+11CB2	MARCHEN VOWEL SIGN U
+11CB3	MARCHEN VOWEL SIGN E
+11CB4	MARCHEN VOWEL SIGN O
+11CB5	MARCHEN SIGN ANUSVARA
+11CB6	MARCHEN SIGN CANDRABINDU
+11D00	MASARAM GONDI LETTER A
+11D01	MASARAM GONDI LETTER AA
+11D02	MASARAM GONDI LETTER I
+11D03	MASARAM GONDI LETTER II
+11D04	MASARAM GONDI LETTER U
+11D05	MASARAM GONDI LETTER UU
+11D06	MASARAM GONDI LETTER E
+11D08	MASARAM GONDI LETTER AI
+11D09	MASARAM GONDI LETTER O
+11D0B	MASARAM GONDI LETTER AU
+11D0C	MASARAM GONDI LETTER KA
+11D0D	MASARAM GONDI LETTER KHA
+11D0E	MASARAM GONDI LETTER GA
+11D0F	MASARAM GONDI LETTER GHA
+11D10	MASARAM GONDI LETTER NGA
+11D11	MASARAM GONDI LETTER CA
+11D12	MASARAM GONDI LETTER CHA
+11D13	MASARAM GONDI LETTER JA
+11D14	MASARAM GONDI LETTER JHA
+11D15	MASARAM GONDI LETTER NYA
+11D16	MASARAM GONDI LETTER TTA
+11D17	MASARAM GONDI LETTER TTHA
+11D18	MASARAM GONDI LETTER DDA
+11D19	MASARAM GONDI LETTER DDHA
+11D1A	MASARAM GONDI LETTER NNA
+11D1B	MASARAM GONDI LETTER TA
+11D1C	MASARAM GONDI LETTER THA
+11D1D	MASARAM GONDI LETTER DA
+11D1E	MASARAM GONDI LETTER DHA
+11D1F	MASARAM GONDI LETTER NA
+11D20	MASARAM GONDI LETTER PA
+11D21	MASARAM GONDI LETTER PHA
+11D22	MASARAM GONDI LETTER BA
+11D23	MASARAM GONDI LETTER BHA
+11D24	MASARAM GONDI LETTER MA
+11D25	MASARAM GONDI LETTER YA
+11D26	MASARAM GONDI LETTER RA
+11D27	MASARAM GONDI LETTER LA
+11D28	MASARAM GONDI LETTER VA
+11D29	MASARAM GONDI LETTER SHA
+11D2A	MASARAM GONDI LETTER SSA
+11D2B	MASARAM GONDI LETTER SA
+11D2C	MASARAM GONDI LETTER HA
+11D2D	MASARAM GONDI LETTER LLA
+11D2E	MASARAM GONDI LETTER KSSA
+11D2F	MASARAM GONDI LETTER JNYA
+11D30	MASARAM GONDI LETTER TRA
+11D31	MASARAM GONDI VOWEL SIGN AA
+11D32	MASARAM GONDI VOWEL SIGN I
+11D33	MASARAM GONDI VOWEL SIGN II
+11D34	MASARAM GONDI VOWEL SIGN U
+11D35	MASARAM GONDI VOWEL SIGN UU
+11D36	MASARAM GONDI VOWEL SIGN VOCALIC R
+11D3A	MASARAM GONDI VOWEL SIGN E
+11D3C	MASARAM GONDI VOWEL SIGN AI
+11D3D	MASARAM GONDI VOWEL SIGN O
+11D3F	MASARAM GONDI VOWEL SIGN AU
+11D40	MASARAM GONDI SIGN ANUSVARA
+11D41	MASARAM GONDI SIGN VISARGA
+11D42	MASARAM GONDI SIGN NUKTA
+11D43	MASARAM GONDI SIGN CANDRA
+11D44	MASARAM GONDI SIGN HALANTA
+11D45	MASARAM GONDI VIRAMA
+11D46	MASARAM GONDI REPHA
+11D47	MASARAM GONDI RA-KARA
+11D50	MASARAM GONDI DIGIT ZERO
+11D51	MASARAM GONDI DIGIT ONE
+11D52	MASARAM GONDI DIGIT TWO
+11D53	MASARAM GONDI DIGIT THREE
+11D54	MASARAM GONDI DIGIT FOUR
+11D55	MASARAM GONDI DIGIT FIVE
+11D56	MASARAM GONDI DIGIT SIX
+11D57	MASARAM GONDI DIGIT SEVEN
+11D58	MASARAM GONDI DIGIT EIGHT
+11D59	MASARAM GONDI DIGIT NINE
+12000	CUNEIFORM SIGN A
+12001	CUNEIFORM SIGN A TIMES A
+12002	CUNEIFORM SIGN A TIMES BAD
+12003	CUNEIFORM SIGN A TIMES GAN2 TENU
+12004	CUNEIFORM SIGN A TIMES HA
+12005	CUNEIFORM SIGN A TIMES IGI
+12006	CUNEIFORM SIGN A TIMES LAGAR GUNU
+12007	CUNEIFORM SIGN A TIMES MUSH
+12008	CUNEIFORM SIGN A TIMES SAG
+12009	CUNEIFORM SIGN A2
+1200A	CUNEIFORM SIGN AB
+1200B	CUNEIFORM SIGN AB TIMES ASH2
+1200C	CUNEIFORM SIGN AB TIMES DUN3 GUNU
+1200D	CUNEIFORM SIGN AB TIMES GAL
+1200E	CUNEIFORM SIGN AB TIMES GAN2 TENU
+1200F	CUNEIFORM SIGN AB TIMES HA
+12010	CUNEIFORM SIGN AB TIMES IGI GUNU
+12011	CUNEIFORM SIGN AB TIMES IMIN
+12012	CUNEIFORM SIGN AB TIMES LAGAB
+12013	CUNEIFORM SIGN AB TIMES SHESH
+12014	CUNEIFORM SIGN AB TIMES U PLUS U PLUS U
+12015	CUNEIFORM SIGN AB GUNU
+12016	CUNEIFORM SIGN AB2
+12017	CUNEIFORM SIGN AB2 TIMES BALAG
+12018	CUNEIFORM SIGN AB2 TIMES GAN2 TENU
+12019	CUNEIFORM SIGN AB2 TIMES ME PLUS EN
+1201A	CUNEIFORM SIGN AB2 TIMES SHA3
+1201B	CUNEIFORM SIGN AB2 TIMES TAK4
+1201C	CUNEIFORM SIGN AD
+1201D	CUNEIFORM SIGN AK
+1201E	CUNEIFORM SIGN AK TIMES ERIN2
+1201F	CUNEIFORM SIGN AK TIMES SHITA PLUS GISH
+12020	CUNEIFORM SIGN AL
+12021	CUNEIFORM SIGN AL TIMES AL
+12022	CUNEIFORM SIGN AL TIMES DIM2
+12023	CUNEIFORM SIGN AL TIMES GISH
+12024	CUNEIFORM SIGN AL TIMES HA
+12025	CUNEIFORM SIGN AL TIMES KAD3
+12026	CUNEIFORM SIGN AL TIMES KI
+12027	CUNEIFORM SIGN AL TIMES SHE
+12028	CUNEIFORM SIGN AL TIMES USH
+12029	CUNEIFORM SIGN ALAN
+1202A	CUNEIFORM SIGN ALEPH
+1202B	CUNEIFORM SIGN AMAR
+1202C	CUNEIFORM SIGN AMAR TIMES SHE
+1202D	CUNEIFORM SIGN AN
+1202E	CUNEIFORM SIGN AN OVER AN
+1202F	CUNEIFORM SIGN AN THREE TIMES
+12030	CUNEIFORM SIGN AN PLUS NAGA OPPOSING AN PLUS NAGA
+12031	CUNEIFORM SIGN AN PLUS NAGA SQUARED
+12032	CUNEIFORM SIGN ANSHE
+12033	CUNEIFORM SIGN APIN
+12034	CUNEIFORM SIGN ARAD
+12035	CUNEIFORM SIGN ARAD TIMES KUR
+12036	CUNEIFORM SIGN ARKAB
+12037	CUNEIFORM SIGN ASAL2
+12038	CUNEIFORM SIGN ASH
+12039	CUNEIFORM SIGN ASH ZIDA TENU
+1203A	CUNEIFORM SIGN ASH KABA TENU
+1203B	CUNEIFORM SIGN ASH OVER ASH TUG2 OVER TUG2 TUG2 OVER TUG2 PAP
+1203C	CUNEIFORM SIGN ASH OVER ASH OVER ASH
+1203D	CUNEIFORM SIGN ASH OVER ASH OVER ASH CROSSING ASH OVER ASH OVER ASH
+1203E	CUNEIFORM SIGN ASH2
+1203F	CUNEIFORM SIGN ASHGAB
+12040	CUNEIFORM SIGN BA
+12041	CUNEIFORM SIGN BAD
+12042	CUNEIFORM SIGN BAG3
+12043	CUNEIFORM SIGN BAHAR2
+12044	CUNEIFORM SIGN BAL
+12045	CUNEIFORM SIGN BAL OVER BAL
+12046	CUNEIFORM SIGN BALAG
+12047	CUNEIFORM SIGN BAR
+12048	CUNEIFORM SIGN BARA2
+12049	CUNEIFORM SIGN BI
+1204A	CUNEIFORM SIGN BI TIMES A
+1204B	CUNEIFORM SIGN BI TIMES GAR
+1204C	CUNEIFORM SIGN BI TIMES IGI GUNU
+1204D	CUNEIFORM SIGN BU
+1204E	CUNEIFORM SIGN BU OVER BU AB
+1204F	CUNEIFORM SIGN BU OVER BU UN
+12050	CUNEIFORM SIGN BU CROSSING BU
+12051	CUNEIFORM SIGN BULUG
+12052	CUNEIFORM SIGN BULUG OVER BULUG
+12053	CUNEIFORM SIGN BUR
+12054	CUNEIFORM SIGN BUR2
+12055	CUNEIFORM SIGN DA
+12056	CUNEIFORM SIGN DAG
+12057	CUNEIFORM SIGN DAG KISIM5 TIMES A PLUS MASH
+12058	CUNEIFORM SIGN DAG KISIM5 TIMES AMAR
+12059	CUNEIFORM SIGN DAG KISIM5 TIMES BALAG
+1205A	CUNEIFORM SIGN DAG KISIM5 TIMES BI
+1205B	CUNEIFORM SIGN DAG KISIM5 TIMES GA
+1205C	CUNEIFORM SIGN DAG KISIM5 TIMES GA PLUS MASH
+1205D	CUNEIFORM SIGN DAG KISIM5 TIMES GI
+1205E	CUNEIFORM SIGN DAG KISIM5 TIMES GIR2
+1205F	CUNEIFORM SIGN DAG KISIM5 TIMES GUD
+12060	CUNEIFORM SIGN DAG KISIM5 TIMES HA
+12061	CUNEIFORM SIGN DAG KISIM5 TIMES IR
+12062	CUNEIFORM SIGN DAG KISIM5 TIMES IR PLUS LU
+12063	CUNEIFORM SIGN DAG KISIM5 TIMES KAK
+12064	CUNEIFORM SIGN DAG KISIM5 TIMES LA
+12065	CUNEIFORM SIGN DAG KISIM5 TIMES LU
+12066	CUNEIFORM SIGN DAG KISIM5 TIMES LU PLUS MASH2
+12067	CUNEIFORM SIGN DAG KISIM5 TIMES LUM
+12068	CUNEIFORM SIGN DAG KISIM5 TIMES NE
+12069	CUNEIFORM SIGN DAG KISIM5 TIMES PAP PLUS PAP
+1206A	CUNEIFORM SIGN DAG KISIM5 TIMES SI
+1206B	CUNEIFORM SIGN DAG KISIM5 TIMES TAK4
+1206C	CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS GIR2
+1206D	CUNEIFORM SIGN DAG KISIM5 TIMES USH
+1206E	CUNEIFORM SIGN DAM
+1206F	CUNEIFORM SIGN DAR
+12070	CUNEIFORM SIGN DARA3
+12071	CUNEIFORM SIGN DARA4
+12072	CUNEIFORM SIGN DI
+12073	CUNEIFORM SIGN DIB
+12074	CUNEIFORM SIGN DIM
+12075	CUNEIFORM SIGN DIM TIMES SHE
+12076	CUNEIFORM SIGN DIM2
+12077	CUNEIFORM SIGN DIN
+12078	CUNEIFORM SIGN DIN KASKAL U GUNU DISH
+12079	CUNEIFORM SIGN DISH
+1207A	CUNEIFORM SIGN DU
+1207B	CUNEIFORM SIGN DU OVER DU
+1207C	CUNEIFORM SIGN DU GUNU
+1207D	CUNEIFORM SIGN DU SHESHIG
+1207E	CUNEIFORM SIGN DUB
+1207F	CUNEIFORM SIGN DUB TIMES ESH2
+12080	CUNEIFORM SIGN DUB2
+12081	CUNEIFORM SIGN DUG
+12082	CUNEIFORM SIGN DUGUD
+12083	CUNEIFORM SIGN DUH
+12084	CUNEIFORM SIGN DUN
+12085	CUNEIFORM SIGN DUN3
+12086	CUNEIFORM SIGN DUN3 GUNU
+12087	CUNEIFORM SIGN DUN3 GUNU GUNU
+12088	CUNEIFORM SIGN DUN4
+12089	CUNEIFORM SIGN DUR2
+1208A	CUNEIFORM SIGN E
+1208B	CUNEIFORM SIGN E TIMES PAP
+1208C	CUNEIFORM SIGN E OVER E NUN OVER NUN
+1208D	CUNEIFORM SIGN E2
+1208E	CUNEIFORM SIGN E2 TIMES A PLUS HA PLUS DA
+1208F	CUNEIFORM SIGN E2 TIMES GAR
+12090	CUNEIFORM SIGN E2 TIMES MI
+12091	CUNEIFORM SIGN E2 TIMES SAL
+12092	CUNEIFORM SIGN E2 TIMES SHE
+12093	CUNEIFORM SIGN E2 TIMES U
+12094	CUNEIFORM SIGN EDIN
+12095	CUNEIFORM SIGN EGIR
+12096	CUNEIFORM SIGN EL
+12097	CUNEIFORM SIGN EN
+12098	CUNEIFORM SIGN EN TIMES GAN2
+12099	CUNEIFORM SIGN EN TIMES GAN2 TENU
+1209A	CUNEIFORM SIGN EN TIMES ME
+1209B	CUNEIFORM SIGN EN CROSSING EN
+1209C	CUNEIFORM SIGN EN OPPOSING EN
+1209D	CUNEIFORM SIGN EN SQUARED
+1209E	CUNEIFORM SIGN EREN
+1209F	CUNEIFORM SIGN ERIN2
+120A0	CUNEIFORM SIGN ESH2
+120A1	CUNEIFORM SIGN EZEN
+120A2	CUNEIFORM SIGN EZEN TIMES A
+120A3	CUNEIFORM SIGN EZEN TIMES A PLUS LAL
+120A4	CUNEIFORM SIGN EZEN TIMES A PLUS LAL TIMES LAL
+120A5	CUNEIFORM SIGN EZEN TIMES AN
+120A6	CUNEIFORM SIGN EZEN TIMES BAD
+120A7	CUNEIFORM SIGN EZEN TIMES DUN3 GUNU
+120A8	CUNEIFORM SIGN EZEN TIMES DUN3 GUNU GUNU
+120A9	CUNEIFORM SIGN EZEN TIMES HA
+120AA	CUNEIFORM SIGN EZEN TIMES HA GUNU
+120AB	CUNEIFORM SIGN EZEN TIMES IGI GUNU
+120AC	CUNEIFORM SIGN EZEN TIMES KASKAL
+120AD	CUNEIFORM SIGN EZEN TIMES KASKAL SQUARED
+120AE	CUNEIFORM SIGN EZEN TIMES KU3
+120AF	CUNEIFORM SIGN EZEN TIMES LA
+120B0	CUNEIFORM SIGN EZEN TIMES LAL TIMES LAL
+120B1	CUNEIFORM SIGN EZEN TIMES LI
+120B2	CUNEIFORM SIGN EZEN TIMES LU
+120B3	CUNEIFORM SIGN EZEN TIMES U2
+120B4	CUNEIFORM SIGN EZEN TIMES UD
+120B5	CUNEIFORM SIGN GA
+120B6	CUNEIFORM SIGN GA GUNU
+120B7	CUNEIFORM SIGN GA2
+120B8	CUNEIFORM SIGN GA2 TIMES A PLUS DA PLUS HA
+120B9	CUNEIFORM SIGN GA2 TIMES A PLUS HA
+120BA	CUNEIFORM SIGN GA2 TIMES A PLUS IGI
+120BB	CUNEIFORM SIGN GA2 TIMES AB2 TENU PLUS TAB
+120BC	CUNEIFORM SIGN GA2 TIMES AN
+120BD	CUNEIFORM SIGN GA2 TIMES ASH
+120BE	CUNEIFORM SIGN GA2 TIMES ASH2 PLUS GAL
+120BF	CUNEIFORM SIGN GA2 TIMES BAD
+120C0	CUNEIFORM SIGN GA2 TIMES BAR PLUS RA
+120C1	CUNEIFORM SIGN GA2 TIMES BUR
+120C2	CUNEIFORM SIGN GA2 TIMES BUR PLUS RA
+120C3	CUNEIFORM SIGN GA2 TIMES DA
+120C4	CUNEIFORM SIGN GA2 TIMES DI
+120C5	CUNEIFORM SIGN GA2 TIMES DIM TIMES SHE
+120C6	CUNEIFORM SIGN GA2 TIMES DUB
+120C7	CUNEIFORM SIGN GA2 TIMES EL
+120C8	CUNEIFORM SIGN GA2 TIMES EL PLUS LA
+120C9	CUNEIFORM SIGN GA2 TIMES EN
+120CA	CUNEIFORM SIGN GA2 TIMES EN TIMES GAN2 TENU
+120CB	CUNEIFORM SIGN GA2 TIMES GAN2 TENU
+120CC	CUNEIFORM SIGN GA2 TIMES GAR
+120CD	CUNEIFORM SIGN GA2 TIMES GI
+120CE	CUNEIFORM SIGN GA2 TIMES GI4
+120CF	CUNEIFORM SIGN GA2 TIMES GI4 PLUS A
+120D0	CUNEIFORM SIGN GA2 TIMES GIR2 PLUS SU
+120D1	CUNEIFORM SIGN GA2 TIMES HA PLUS LU PLUS ESH2
+120D2	CUNEIFORM SIGN GA2 TIMES HAL
+120D3	CUNEIFORM SIGN GA2 TIMES HAL PLUS LA
+120D4	CUNEIFORM SIGN GA2 TIMES HI PLUS LI
+120D5	CUNEIFORM SIGN GA2 TIMES HUB2
+120D6	CUNEIFORM SIGN GA2 TIMES IGI GUNU
+120D7	CUNEIFORM SIGN GA2 TIMES ISH PLUS HU PLUS ASH
+120D8	CUNEIFORM SIGN GA2 TIMES KAK
+120D9	CUNEIFORM SIGN GA2 TIMES KASKAL
+120DA	CUNEIFORM SIGN GA2 TIMES KID
+120DB	CUNEIFORM SIGN GA2 TIMES KID PLUS LAL
+120DC	CUNEIFORM SIGN GA2 TIMES KU3 PLUS AN
+120DD	CUNEIFORM SIGN GA2 TIMES LA
+120DE	CUNEIFORM SIGN GA2 TIMES ME PLUS EN
+120DF	CUNEIFORM SIGN GA2 TIMES MI
+120E0	CUNEIFORM SIGN GA2 TIMES NUN
+120E1	CUNEIFORM SIGN GA2 TIMES NUN OVER NUN
+120E2	CUNEIFORM SIGN GA2 TIMES PA
+120E3	CUNEIFORM SIGN GA2 TIMES SAL
+120E4	CUNEIFORM SIGN GA2 TIMES SAR
+120E5	CUNEIFORM SIGN GA2 TIMES SHE
+120E6	CUNEIFORM SIGN GA2 TIMES SHE PLUS TUR
+120E7	CUNEIFORM SIGN GA2 TIMES SHID
+120E8	CUNEIFORM SIGN GA2 TIMES SUM
+120E9	CUNEIFORM SIGN GA2 TIMES TAK4
+120EA	CUNEIFORM SIGN GA2 TIMES U
+120EB	CUNEIFORM SIGN GA2 TIMES UD
+120EC	CUNEIFORM SIGN GA2 TIMES UD PLUS DU
+120ED	CUNEIFORM SIGN GA2 OVER GA2
+120EE	CUNEIFORM SIGN GABA
+120EF	CUNEIFORM SIGN GABA CROSSING GABA
+120F0	CUNEIFORM SIGN GAD
+120F1	CUNEIFORM SIGN GAD OVER GAD GAR OVER GAR
+120F2	CUNEIFORM SIGN GAL
+120F3	CUNEIFORM SIGN GAL GAD OVER GAD GAR OVER GAR
+120F4	CUNEIFORM SIGN GALAM
+120F5	CUNEIFORM SIGN GAM
+120F6	CUNEIFORM SIGN GAN
+120F7	CUNEIFORM SIGN GAN2
+120F8	CUNEIFORM SIGN GAN2 TENU
+120F9	CUNEIFORM SIGN GAN2 OVER GAN2
+120FA	CUNEIFORM SIGN GAN2 CROSSING GAN2
+120FB	CUNEIFORM SIGN GAR
+120FC	CUNEIFORM SIGN GAR3
+120FD	CUNEIFORM SIGN GASHAN
+120FE	CUNEIFORM SIGN GESHTIN
+120FF	CUNEIFORM SIGN GESHTIN TIMES KUR
+12100	CUNEIFORM SIGN GI
+12101	CUNEIFORM SIGN GI TIMES E
+12102	CUNEIFORM SIGN GI TIMES U
+12103	CUNEIFORM SIGN GI CROSSING GI
+12104	CUNEIFORM SIGN GI4
+12105	CUNEIFORM SIGN GI4 OVER GI4
+12106	CUNEIFORM SIGN GI4 CROSSING GI4
+12107	CUNEIFORM SIGN GIDIM
+12108	CUNEIFORM SIGN GIR2
+12109	CUNEIFORM SIGN GIR2 GUNU
+1210A	CUNEIFORM SIGN GIR3
+1210B	CUNEIFORM SIGN GIR3 TIMES A PLUS IGI
+1210C	CUNEIFORM SIGN GIR3 TIMES GAN2 TENU
+1210D	CUNEIFORM SIGN GIR3 TIMES IGI
+1210E	CUNEIFORM SIGN GIR3 TIMES LU PLUS IGI
+1210F	CUNEIFORM SIGN GIR3 TIMES PA
+12110	CUNEIFORM SIGN GISAL
+12111	CUNEIFORM SIGN GISH
+12112	CUNEIFORM SIGN GISH CROSSING GISH
+12113	CUNEIFORM SIGN GISH TIMES BAD
+12114	CUNEIFORM SIGN GISH TIMES TAK4
+12115	CUNEIFORM SIGN GISH TENU
+12116	CUNEIFORM SIGN GU
+12117	CUNEIFORM SIGN GU CROSSING GU
+12118	CUNEIFORM SIGN GU2
+12119	CUNEIFORM SIGN GU2 TIMES KAK
+1211A	CUNEIFORM SIGN GU2 TIMES KAK TIMES IGI GUNU
+1211B	CUNEIFORM SIGN GU2 TIMES NUN
+1211C	CUNEIFORM SIGN GU2 TIMES SAL PLUS TUG2
+1211D	CUNEIFORM SIGN GU2 GUNU
+1211E	CUNEIFORM SIGN GUD
+1211F	CUNEIFORM SIGN GUD TIMES A PLUS KUR
+12120	CUNEIFORM SIGN GUD TIMES KUR
+12121	CUNEIFORM SIGN GUD OVER GUD LUGAL
+12122	CUNEIFORM SIGN GUL
+12123	CUNEIFORM SIGN GUM
+12124	CUNEIFORM SIGN GUM TIMES SHE
+12125	CUNEIFORM SIGN GUR
+12126	CUNEIFORM SIGN GUR7
+12127	CUNEIFORM SIGN GURUN
+12128	CUNEIFORM SIGN GURUSH
+12129	CUNEIFORM SIGN HA
+1212A	CUNEIFORM SIGN HA TENU
+1212B	CUNEIFORM SIGN HA GUNU
+1212C	CUNEIFORM SIGN HAL
+1212D	CUNEIFORM SIGN HI
+1212E	CUNEIFORM SIGN HI TIMES ASH
+1212F	CUNEIFORM SIGN HI TIMES ASH2
+12130	CUNEIFORM SIGN HI TIMES BAD
+12131	CUNEIFORM SIGN HI TIMES DISH
+12132	CUNEIFORM SIGN HI TIMES GAD
+12133	CUNEIFORM SIGN HI TIMES KIN
+12134	CUNEIFORM SIGN HI TIMES NUN
+12135	CUNEIFORM SIGN HI TIMES SHE
+12136	CUNEIFORM SIGN HI TIMES U
+12137	CUNEIFORM SIGN HU
+12138	CUNEIFORM SIGN HUB2
+12139	CUNEIFORM SIGN HUB2 TIMES AN
+1213A	CUNEIFORM SIGN HUB2 TIMES HAL
+1213B	CUNEIFORM SIGN HUB2 TIMES KASKAL
+1213C	CUNEIFORM SIGN HUB2 TIMES LISH
+1213D	CUNEIFORM SIGN HUB2 TIMES UD
+1213E	CUNEIFORM SIGN HUL2
+1213F	CUNEIFORM SIGN I
+12140	CUNEIFORM SIGN I A
+12141	CUNEIFORM SIGN IB
+12142	CUNEIFORM SIGN IDIM
+12143	CUNEIFORM SIGN IDIM OVER IDIM BUR
+12144	CUNEIFORM SIGN IDIM OVER IDIM SQUARED
+12145	CUNEIFORM SIGN IG
+12146	CUNEIFORM SIGN IGI
+12147	CUNEIFORM SIGN IGI DIB
+12148	CUNEIFORM SIGN IGI RI
+12149	CUNEIFORM SIGN IGI OVER IGI SHIR OVER SHIR UD OVER UD
+1214A	CUNEIFORM SIGN IGI GUNU
+1214B	CUNEIFORM SIGN IL
+1214C	CUNEIFORM SIGN IL TIMES GAN2 TENU
+1214D	CUNEIFORM SIGN IL2
+1214E	CUNEIFORM SIGN IM
+1214F	CUNEIFORM SIGN IM TIMES TAK4
+12150	CUNEIFORM SIGN IM CROSSING IM
+12151	CUNEIFORM SIGN IM OPPOSING IM
+12152	CUNEIFORM SIGN IM SQUARED
+12153	CUNEIFORM SIGN IMIN
+12154	CUNEIFORM SIGN IN
+12155	CUNEIFORM SIGN IR
+12156	CUNEIFORM SIGN ISH
+12157	CUNEIFORM SIGN KA
+12158	CUNEIFORM SIGN KA TIMES A
+12159	CUNEIFORM SIGN KA TIMES AD
+1215A	CUNEIFORM SIGN KA TIMES AD PLUS KU3
+1215B	CUNEIFORM SIGN KA TIMES ASH2
+1215C	CUNEIFORM SIGN KA TIMES BAD
+1215D	CUNEIFORM SIGN KA TIMES BALAG
+1215E	CUNEIFORM SIGN KA TIMES BAR
+1215F	CUNEIFORM SIGN KA TIMES BI
+12160	CUNEIFORM SIGN KA TIMES ERIN2
+12161	CUNEIFORM SIGN KA TIMES ESH2
+12162	CUNEIFORM SIGN KA TIMES GA
+12163	CUNEIFORM SIGN KA TIMES GAL
+12164	CUNEIFORM SIGN KA TIMES GAN2 TENU
+12165	CUNEIFORM SIGN KA TIMES GAR
+12166	CUNEIFORM SIGN KA TIMES GAR PLUS SHA3 PLUS A
+12167	CUNEIFORM SIGN KA TIMES GI
+12168	CUNEIFORM SIGN KA TIMES GIR2
+12169	CUNEIFORM SIGN KA TIMES GISH PLUS SAR
+1216A	CUNEIFORM SIGN KA TIMES GISH CROSSING GISH
+1216B	CUNEIFORM SIGN KA TIMES GU
+1216C	CUNEIFORM SIGN KA TIMES GUR7
+1216D	CUNEIFORM SIGN KA TIMES IGI
+1216E	CUNEIFORM SIGN KA TIMES IM
+1216F	CUNEIFORM SIGN KA TIMES KAK
+12170	CUNEIFORM SIGN KA TIMES KI
+12171	CUNEIFORM SIGN KA TIMES KID
+12172	CUNEIFORM SIGN KA TIMES LI
+12173	CUNEIFORM SIGN KA TIMES LU
+12174	CUNEIFORM SIGN KA TIMES ME
+12175	CUNEIFORM SIGN KA TIMES ME PLUS DU
+12176	CUNEIFORM SIGN KA TIMES ME PLUS GI
+12177	CUNEIFORM SIGN KA TIMES ME PLUS TE
+12178	CUNEIFORM SIGN KA TIMES MI
+12179	CUNEIFORM SIGN KA TIMES MI PLUS NUNUZ
+1217A	CUNEIFORM SIGN KA TIMES NE
+1217B	CUNEIFORM SIGN KA TIMES NUN
+1217C	CUNEIFORM SIGN KA TIMES PI
+1217D	CUNEIFORM SIGN KA TIMES RU
+1217E	CUNEIFORM SIGN KA TIMES SA
+1217F	CUNEIFORM SIGN KA TIMES SAR
+12180	CUNEIFORM SIGN KA TIMES SHA
+12181	CUNEIFORM SIGN KA TIMES SHE
+12182	CUNEIFORM SIGN KA TIMES SHID
+12183	CUNEIFORM SIGN KA TIMES SHU
+12184	CUNEIFORM SIGN KA TIMES SIG
+12185	CUNEIFORM SIGN KA TIMES SUHUR
+12186	CUNEIFORM SIGN KA TIMES TAR
+12187	CUNEIFORM SIGN KA TIMES U
+12188	CUNEIFORM SIGN KA TIMES U2
+12189	CUNEIFORM SIGN KA TIMES UD
+1218A	CUNEIFORM SIGN KA TIMES UMUM TIMES PA
+1218B	CUNEIFORM SIGN KA TIMES USH
+1218C	CUNEIFORM SIGN KA TIMES ZI
+1218D	CUNEIFORM SIGN KA2
+1218E	CUNEIFORM SIGN KA2 CROSSING KA2
+1218F	CUNEIFORM SIGN KAB
+12190	CUNEIFORM SIGN KAD2
+12191	CUNEIFORM SIGN KAD3
+12192	CUNEIFORM SIGN KAD4
+12193	CUNEIFORM SIGN KAD5
+12194	CUNEIFORM SIGN KAD5 OVER KAD5
+12195	CUNEIFORM SIGN KAK
+12196	CUNEIFORM SIGN KAK TIMES IGI GUNU
+12197	CUNEIFORM SIGN KAL
+12198	CUNEIFORM SIGN KAL TIMES BAD
+12199	CUNEIFORM SIGN KAL CROSSING KAL
+1219A	CUNEIFORM SIGN KAM2
+1219B	CUNEIFORM SIGN KAM4
+1219C	CUNEIFORM SIGN KASKAL
+1219D	CUNEIFORM SIGN KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219E	CUNEIFORM SIGN KASKAL OVER KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219F	CUNEIFORM SIGN KESH2
+121A0	CUNEIFORM SIGN KI
+121A1	CUNEIFORM SIGN KI TIMES BAD
+121A2	CUNEIFORM SIGN KI TIMES U
+121A3	CUNEIFORM SIGN KI TIMES UD
+121A4	CUNEIFORM SIGN KID
+121A5	CUNEIFORM SIGN KIN
+121A6	CUNEIFORM SIGN KISAL
+121A7	CUNEIFORM SIGN KISH
+121A8	CUNEIFORM SIGN KISIM5
+121A9	CUNEIFORM SIGN KISIM5 OVER KISIM5
+121AA	CUNEIFORM SIGN KU
+121AB	CUNEIFORM SIGN KU OVER HI TIMES ASH2 KU OVER HI TIMES ASH2
+121AC	CUNEIFORM SIGN KU3
+121AD	CUNEIFORM SIGN KU4
+121AE	CUNEIFORM SIGN KU4 VARIANT FORM
+121AF	CUNEIFORM SIGN KU7
+121B0	CUNEIFORM SIGN KUL
+121B1	CUNEIFORM SIGN KUL GUNU
+121B2	CUNEIFORM SIGN KUN
+121B3	CUNEIFORM SIGN KUR
+121B4	CUNEIFORM SIGN KUR OPPOSING KUR
+121B5	CUNEIFORM SIGN KUSHU2
+121B6	CUNEIFORM SIGN KWU318
+121B7	CUNEIFORM SIGN LA
+121B8	CUNEIFORM SIGN LAGAB
+121B9	CUNEIFORM SIGN LAGAB TIMES A
+121BA	CUNEIFORM SIGN LAGAB TIMES A PLUS DA PLUS HA
+121BB	CUNEIFORM SIGN LAGAB TIMES A PLUS GAR
+121BC	CUNEIFORM SIGN LAGAB TIMES A PLUS LAL
+121BD	CUNEIFORM SIGN LAGAB TIMES AL
+121BE	CUNEIFORM SIGN LAGAB TIMES AN
+121BF	CUNEIFORM SIGN LAGAB TIMES ASH ZIDA TENU
+121C0	CUNEIFORM SIGN LAGAB TIMES BAD
+121C1	CUNEIFORM SIGN LAGAB TIMES BI
+121C2	CUNEIFORM SIGN LAGAB TIMES DAR
+121C3	CUNEIFORM SIGN LAGAB TIMES EN
+121C4	CUNEIFORM SIGN LAGAB TIMES GA
+121C5	CUNEIFORM SIGN LAGAB TIMES GAR
+121C6	CUNEIFORM SIGN LAGAB TIMES GUD
+121C7	CUNEIFORM SIGN LAGAB TIMES GUD PLUS GUD
+121C8	CUNEIFORM SIGN LAGAB TIMES HA
+121C9	CUNEIFORM SIGN LAGAB TIMES HAL
+121CA	CUNEIFORM SIGN LAGAB TIMES HI TIMES NUN
+121CB	CUNEIFORM SIGN LAGAB TIMES IGI GUNU
+121CC	CUNEIFORM SIGN LAGAB TIMES IM
+121CD	CUNEIFORM SIGN LAGAB TIMES IM PLUS HA
+121CE	CUNEIFORM SIGN LAGAB TIMES IM PLUS LU
+121CF	CUNEIFORM SIGN LAGAB TIMES KI
+121D0	CUNEIFORM SIGN LAGAB TIMES KIN
+121D1	CUNEIFORM SIGN LAGAB TIMES KU3
+121D2	CUNEIFORM SIGN LAGAB TIMES KUL
+121D3	CUNEIFORM SIGN LAGAB TIMES KUL PLUS HI PLUS A
+121D4	CUNEIFORM SIGN LAGAB TIMES LAGAB
+121D5	CUNEIFORM SIGN LAGAB TIMES LISH
+121D6	CUNEIFORM SIGN LAGAB TIMES LU
+121D7	CUNEIFORM SIGN LAGAB TIMES LUL
+121D8	CUNEIFORM SIGN LAGAB TIMES ME
+121D9	CUNEIFORM SIGN LAGAB TIMES ME PLUS EN
+121DA	CUNEIFORM SIGN LAGAB TIMES MUSH
+121DB	CUNEIFORM SIGN LAGAB TIMES NE
+121DC	CUNEIFORM SIGN LAGAB TIMES SHE PLUS SUM
+121DD	CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH PLUS ERIN2
+121DE	CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH TENU
+121DF	CUNEIFORM SIGN LAGAB TIMES SHU2
+121E0	CUNEIFORM SIGN LAGAB TIMES SHU2 PLUS SHU2
+121E1	CUNEIFORM SIGN LAGAB TIMES SUM
+121E2	CUNEIFORM SIGN LAGAB TIMES TAG
+121E3	CUNEIFORM SIGN LAGAB TIMES TAK4
+121E4	CUNEIFORM SIGN LAGAB TIMES TE PLUS A PLUS SU PLUS NA
+121E5	CUNEIFORM SIGN LAGAB TIMES U
+121E6	CUNEIFORM SIGN LAGAB TIMES U PLUS A
+121E7	CUNEIFORM SIGN LAGAB TIMES U PLUS U PLUS U
+121E8	CUNEIFORM SIGN LAGAB TIMES U2 PLUS ASH
+121E9	CUNEIFORM SIGN LAGAB TIMES UD
+121EA	CUNEIFORM SIGN LAGAB TIMES USH
+121EB	CUNEIFORM SIGN LAGAB SQUARED
+121EC	CUNEIFORM SIGN LAGAR
+121ED	CUNEIFORM SIGN LAGAR TIMES SHE
+121EE	CUNEIFORM SIGN LAGAR TIMES SHE PLUS SUM
+121EF	CUNEIFORM SIGN LAGAR GUNU
+121F0	CUNEIFORM SIGN LAGAR GUNU OVER LAGAR GUNU SHE
+121F1	CUNEIFORM SIGN LAHSHU
+121F2	CUNEIFORM SIGN LAL
+121F3	CUNEIFORM SIGN LAL TIMES LAL
+121F4	CUNEIFORM SIGN LAM
+121F5	CUNEIFORM SIGN LAM TIMES KUR
+121F6	CUNEIFORM SIGN LAM TIMES KUR PLUS RU
+121F7	CUNEIFORM SIGN LI
+121F8	CUNEIFORM SIGN LIL
+121F9	CUNEIFORM SIGN LIMMU2
+121FA	CUNEIFORM SIGN LISH
+121FB	CUNEIFORM SIGN LU
+121FC	CUNEIFORM SIGN LU TIMES BAD
+121FD	CUNEIFORM SIGN LU2
+121FE	CUNEIFORM SIGN LU2 TIMES AL
+121FF	CUNEIFORM SIGN LU2 TIMES BAD
+12200	CUNEIFORM SIGN LU2 TIMES ESH2
+12201	CUNEIFORM SIGN LU2 TIMES ESH2 TENU
+12202	CUNEIFORM SIGN LU2 TIMES GAN2 TENU
+12203	CUNEIFORM SIGN LU2 TIMES HI TIMES BAD
+12204	CUNEIFORM SIGN LU2 TIMES IM
+12205	CUNEIFORM SIGN LU2 TIMES KAD2
+12206	CUNEIFORM SIGN LU2 TIMES KAD3
+12207	CUNEIFORM SIGN LU2 TIMES KAD3 PLUS ASH
+12208	CUNEIFORM SIGN LU2 TIMES KI
+12209	CUNEIFORM SIGN LU2 TIMES LA PLUS ASH
+1220A	CUNEIFORM SIGN LU2 TIMES LAGAB
+1220B	CUNEIFORM SIGN LU2 TIMES ME PLUS EN
+1220C	CUNEIFORM SIGN LU2 TIMES NE
+1220D	CUNEIFORM SIGN LU2 TIMES NU
+1220E	CUNEIFORM SIGN LU2 TIMES SI PLUS ASH
+1220F	CUNEIFORM SIGN LU2 TIMES SIK2 PLUS BU
+12210	CUNEIFORM SIGN LU2 TIMES TUG2
+12211	CUNEIFORM SIGN LU2 TENU
+12212	CUNEIFORM SIGN LU2 CROSSING LU2
+12213	CUNEIFORM SIGN LU2 OPPOSING LU2
+12214	CUNEIFORM SIGN LU2 SQUARED
+12215	CUNEIFORM SIGN LU2 SHESHIG
+12216	CUNEIFORM SIGN LU3
+12217	CUNEIFORM SIGN LUGAL
+12218	CUNEIFORM SIGN LUGAL OVER LUGAL
+12219	CUNEIFORM SIGN LUGAL OPPOSING LUGAL
+1221A	CUNEIFORM SIGN LUGAL SHESHIG
+1221B	CUNEIFORM SIGN LUH
+1221C	CUNEIFORM SIGN LUL
+1221D	CUNEIFORM SIGN LUM
+1221E	CUNEIFORM SIGN LUM OVER LUM
+1221F	CUNEIFORM SIGN LUM OVER LUM GAR OVER GAR
+12220	CUNEIFORM SIGN MA
+12221	CUNEIFORM SIGN MA TIMES TAK4
+12222	CUNEIFORM SIGN MA GUNU
+12223	CUNEIFORM SIGN MA2
+12224	CUNEIFORM SIGN MAH
+12225	CUNEIFORM SIGN MAR
+12226	CUNEIFORM SIGN MASH
+12227	CUNEIFORM SIGN MASH2
+12228	CUNEIFORM SIGN ME
+12229	CUNEIFORM SIGN MES
+1222A	CUNEIFORM SIGN MI
+1222B	CUNEIFORM SIGN MIN
+1222C	CUNEIFORM SIGN MU
+1222D	CUNEIFORM SIGN MU OVER MU
+1222E	CUNEIFORM SIGN MUG
+1222F	CUNEIFORM SIGN MUG GUNU
+12230	CUNEIFORM SIGN MUNSUB
+12231	CUNEIFORM SIGN MURGU2
+12232	CUNEIFORM SIGN MUSH
+12233	CUNEIFORM SIGN MUSH TIMES A
+12234	CUNEIFORM SIGN MUSH TIMES KUR
+12235	CUNEIFORM SIGN MUSH TIMES ZA
+12236	CUNEIFORM SIGN MUSH OVER MUSH
+12237	CUNEIFORM SIGN MUSH OVER MUSH TIMES A PLUS NA
+12238	CUNEIFORM SIGN MUSH CROSSING MUSH
+12239	CUNEIFORM SIGN MUSH3
+1223A	CUNEIFORM SIGN MUSH3 TIMES A
+1223B	CUNEIFORM SIGN MUSH3 TIMES A PLUS DI
+1223C	CUNEIFORM SIGN MUSH3 TIMES DI
+1223D	CUNEIFORM SIGN MUSH3 GUNU
+1223E	CUNEIFORM SIGN NA
+1223F	CUNEIFORM SIGN NA2
+12240	CUNEIFORM SIGN NAGA
+12241	CUNEIFORM SIGN NAGA INVERTED
+12242	CUNEIFORM SIGN NAGA TIMES SHU TENU
+12243	CUNEIFORM SIGN NAGA OPPOSING NAGA
+12244	CUNEIFORM SIGN NAGAR
+12245	CUNEIFORM SIGN NAM NUTILLU
+12246	CUNEIFORM SIGN NAM
+12247	CUNEIFORM SIGN NAM2
+12248	CUNEIFORM SIGN NE
+12249	CUNEIFORM SIGN NE TIMES A
+1224A	CUNEIFORM SIGN NE TIMES UD
+1224B	CUNEIFORM SIGN NE SHESHIG
+1224C	CUNEIFORM SIGN NI
+1224D	CUNEIFORM SIGN NI TIMES E
+1224E	CUNEIFORM SIGN NI2
+1224F	CUNEIFORM SIGN NIM
+12250	CUNEIFORM SIGN NIM TIMES GAN2 TENU
+12251	CUNEIFORM SIGN NIM TIMES GAR PLUS GAN2 TENU
+12252	CUNEIFORM SIGN NINDA2
+12253	CUNEIFORM SIGN NINDA2 TIMES AN
+12254	CUNEIFORM SIGN NINDA2 TIMES ASH
+12255	CUNEIFORM SIGN NINDA2 TIMES ASH PLUS ASH
+12256	CUNEIFORM SIGN NINDA2 TIMES GUD
+12257	CUNEIFORM SIGN NINDA2 TIMES ME PLUS GAN2 TENU
+12258	CUNEIFORM SIGN NINDA2 TIMES NE
+12259	CUNEIFORM SIGN NINDA2 TIMES NUN
+1225A	CUNEIFORM SIGN NINDA2 TIMES SHE
+1225B	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS A AN
+1225C	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH
+1225D	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH PLUS ASH
+1225E	CUNEIFORM SIGN NINDA2 TIMES U2 PLUS ASH
+1225F	CUNEIFORM SIGN NINDA2 TIMES USH
+12260	CUNEIFORM SIGN NISAG
+12261	CUNEIFORM SIGN NU
+12262	CUNEIFORM SIGN NU11
+12263	CUNEIFORM SIGN NUN
+12264	CUNEIFORM SIGN NUN LAGAR TIMES GAR
+12265	CUNEIFORM SIGN NUN LAGAR TIMES MASH
+12266	CUNEIFORM SIGN NUN LAGAR TIMES SAL
+12267	CUNEIFORM SIGN NUN LAGAR TIMES SAL OVER NUN LAGAR TIMES SAL
+12268	CUNEIFORM SIGN NUN LAGAR TIMES USH
+12269	CUNEIFORM SIGN NUN TENU
+1226A	CUNEIFORM SIGN NUN OVER NUN
+1226B	CUNEIFORM SIGN NUN CROSSING NUN
+1226C	CUNEIFORM SIGN NUN CROSSING NUN LAGAR OVER LAGAR
+1226D	CUNEIFORM SIGN NUNUZ
+1226E	CUNEIFORM SIGN NUNUZ AB2 TIMES ASHGAB
+1226F	CUNEIFORM SIGN NUNUZ AB2 TIMES BI
+12270	CUNEIFORM SIGN NUNUZ AB2 TIMES DUG
+12271	CUNEIFORM SIGN NUNUZ AB2 TIMES GUD
+12272	CUNEIFORM SIGN NUNUZ AB2 TIMES IGI GUNU
+12273	CUNEIFORM SIGN NUNUZ AB2 TIMES KAD3
+12274	CUNEIFORM SIGN NUNUZ AB2 TIMES LA
+12275	CUNEIFORM SIGN NUNUZ AB2 TIMES NE
+12276	CUNEIFORM SIGN NUNUZ AB2 TIMES SILA3
+12277	CUNEIFORM SIGN NUNUZ AB2 TIMES U2
+12278	CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI
+12279	CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI U
+1227A	CUNEIFORM SIGN PA
+1227B	CUNEIFORM SIGN PAD
+1227C	CUNEIFORM SIGN PAN
+1227D	CUNEIFORM SIGN PAP
+1227E	CUNEIFORM SIGN PESH2
+1227F	CUNEIFORM SIGN PI
+12280	CUNEIFORM SIGN PI TIMES A
+12281	CUNEIFORM SIGN PI TIMES AB
+12282	CUNEIFORM SIGN PI TIMES BI
+12283	CUNEIFORM SIGN PI TIMES BU
+12284	CUNEIFORM SIGN PI TIMES E
+12285	CUNEIFORM SIGN PI TIMES I
+12286	CUNEIFORM SIGN PI TIMES IB
+12287	CUNEIFORM SIGN PI TIMES U
+12288	CUNEIFORM SIGN PI TIMES U2
+12289	CUNEIFORM SIGN PI CROSSING PI
+1228A	CUNEIFORM SIGN PIRIG
+1228B	CUNEIFORM SIGN PIRIG TIMES KAL
+1228C	CUNEIFORM SIGN PIRIG TIMES UD
+1228D	CUNEIFORM SIGN PIRIG TIMES ZA
+1228E	CUNEIFORM SIGN PIRIG OPPOSING PIRIG
+1228F	CUNEIFORM SIGN RA
+12290	CUNEIFORM SIGN RAB
+12291	CUNEIFORM SIGN RI
+12292	CUNEIFORM SIGN RU
+12293	CUNEIFORM SIGN SA
+12294	CUNEIFORM SIGN SAG NUTILLU
+12295	CUNEIFORM SIGN SAG
+12296	CUNEIFORM SIGN SAG TIMES A
+12297	CUNEIFORM SIGN SAG TIMES DU
+12298	CUNEIFORM SIGN SAG TIMES DUB
+12299	CUNEIFORM SIGN SAG TIMES HA
+1229A	CUNEIFORM SIGN SAG TIMES KAK
+1229B	CUNEIFORM SIGN SAG TIMES KUR
+1229C	CUNEIFORM SIGN SAG TIMES LUM
+1229D	CUNEIFORM SIGN SAG TIMES MI
+1229E	CUNEIFORM SIGN SAG TIMES NUN
+1229F	CUNEIFORM SIGN SAG TIMES SAL
+122A0	CUNEIFORM SIGN SAG TIMES SHID
+122A1	CUNEIFORM SIGN SAG TIMES TAB
+122A2	CUNEIFORM SIGN SAG TIMES U2
+122A3	CUNEIFORM SIGN SAG TIMES UB
+122A4	CUNEIFORM SIGN SAG TIMES UM
+122A5	CUNEIFORM SIGN SAG TIMES UR
+122A6	CUNEIFORM SIGN SAG TIMES USH
+122A7	CUNEIFORM SIGN SAG OVER SAG
+122A8	CUNEIFORM SIGN SAG GUNU
+122A9	CUNEIFORM SIGN SAL
+122AA	CUNEIFORM SIGN SAL LAGAB TIMES ASH2
+122AB	CUNEIFORM SIGN SANGA2
+122AC	CUNEIFORM SIGN SAR
+122AD	CUNEIFORM SIGN SHA
+122AE	CUNEIFORM SIGN SHA3
+122AF	CUNEIFORM SIGN SHA3 TIMES A
+122B0	CUNEIFORM SIGN SHA3 TIMES BAD
+122B1	CUNEIFORM SIGN SHA3 TIMES GISH
+122B2	CUNEIFORM SIGN SHA3 TIMES NE
+122B3	CUNEIFORM SIGN SHA3 TIMES SHU2
+122B4	CUNEIFORM SIGN SHA3 TIMES TUR
+122B5	CUNEIFORM SIGN SHA3 TIMES U
+122B6	CUNEIFORM SIGN SHA3 TIMES U PLUS A
+122B7	CUNEIFORM SIGN SHA6
+122B8	CUNEIFORM SIGN SHAB6
+122B9	CUNEIFORM SIGN SHAR2
+122BA	CUNEIFORM SIGN SHE
+122BB	CUNEIFORM SIGN SHE HU
+122BC	CUNEIFORM SIGN SHE OVER SHE GAD OVER GAD GAR OVER GAR
+122BD	CUNEIFORM SIGN SHE OVER SHE TAB OVER TAB GAR OVER GAR
+122BE	CUNEIFORM SIGN SHEG9
+122BF	CUNEIFORM SIGN SHEN
+122C0	CUNEIFORM SIGN SHESH
+122C1	CUNEIFORM SIGN SHESH2
+122C2	CUNEIFORM SIGN SHESHLAM
+122C3	CUNEIFORM SIGN SHID
+122C4	CUNEIFORM SIGN SHID TIMES A
+122C5	CUNEIFORM SIGN SHID TIMES IM
+122C6	CUNEIFORM SIGN SHIM
+122C7	CUNEIFORM SIGN SHIM TIMES A
+122C8	CUNEIFORM SIGN SHIM TIMES BAL
+122C9	CUNEIFORM SIGN SHIM TIMES BULUG
+122CA	CUNEIFORM SIGN SHIM TIMES DIN
+122CB	CUNEIFORM SIGN SHIM TIMES GAR
+122CC	CUNEIFORM SIGN SHIM TIMES IGI
+122CD	CUNEIFORM SIGN SHIM TIMES IGI GUNU
+122CE	CUNEIFORM SIGN SHIM TIMES KUSHU2
+122CF	CUNEIFORM SIGN SHIM TIMES LUL
+122D0	CUNEIFORM SIGN SHIM TIMES MUG
+122D1	CUNEIFORM SIGN SHIM TIMES SAL
+122D2	CUNEIFORM SIGN SHINIG
+122D3	CUNEIFORM SIGN SHIR
+122D4	CUNEIFORM SIGN NU11 TENU
+122D4	CUNEIFORM SIGN SHIR TENU
+122D5	CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR
+122D5	CUNEIFORM SIGN SHIR OVER SHIR BUR OVER BUR
+122D6	CUNEIFORM SIGN SHITA
+122D7	CUNEIFORM SIGN SHU
+122D8	CUNEIFORM SIGN SHU OVER INVERTED SHU
+122D9	CUNEIFORM SIGN SHU2
+122DA	CUNEIFORM SIGN SHUBUR
+122DB	CUNEIFORM SIGN SI
+122DC	CUNEIFORM SIGN SI GUNU
+122DD	CUNEIFORM SIGN SIG
+122DE	CUNEIFORM SIGN SIG4
+122DF	CUNEIFORM SIGN SIG4 OVER SIG4 SHU2
+122E0	CUNEIFORM SIGN SIK2
+122E1	CUNEIFORM SIGN SILA3
+122E2	CUNEIFORM SIGN SU
+122E3	CUNEIFORM SIGN SU OVER SU
+122E4	CUNEIFORM SIGN SUD
+122E5	CUNEIFORM SIGN SUD2
+122E6	CUNEIFORM SIGN SUHUR
+122E7	CUNEIFORM SIGN SUM
+122E8	CUNEIFORM SIGN SUMASH
+122E9	CUNEIFORM SIGN SUR
+122EA	CUNEIFORM SIGN SUR9
+122EB	CUNEIFORM SIGN TA
+122EC	CUNEIFORM SIGN TA ASTERISK
+122ED	CUNEIFORM SIGN TA TIMES HI
+122EE	CUNEIFORM SIGN TA TIMES MI
+122EF	CUNEIFORM SIGN TA GUNU
+122F0	CUNEIFORM SIGN TAB
+122F1	CUNEIFORM SIGN TAB OVER TAB NI OVER NI DISH OVER DISH
+122F2	CUNEIFORM SIGN TAB SQUARED
+122F3	CUNEIFORM SIGN TAG
+122F4	CUNEIFORM SIGN TAG TIMES BI
+122F5	CUNEIFORM SIGN TAG TIMES GUD
+122F6	CUNEIFORM SIGN TAG TIMES SHE
+122F7	CUNEIFORM SIGN TAG TIMES SHU
+122F8	CUNEIFORM SIGN TAG TIMES TUG2
+122F9	CUNEIFORM SIGN TAG TIMES UD
+122FA	CUNEIFORM SIGN TAK4
+122FB	CUNEIFORM SIGN TAR
+122FC	CUNEIFORM SIGN TE
+122FD	CUNEIFORM SIGN TE GUNU
+122FE	CUNEIFORM SIGN TI
+122FF	CUNEIFORM SIGN TI TENU
+12300	CUNEIFORM SIGN TIL
+12301	CUNEIFORM SIGN TIR
+12302	CUNEIFORM SIGN TIR TIMES TAK4
+12303	CUNEIFORM SIGN TIR OVER TIR
+12304	CUNEIFORM SIGN TIR OVER TIR GAD OVER GAD GAR OVER GAR
+12305	CUNEIFORM SIGN TU
+12306	CUNEIFORM SIGN TUG2
+12307	CUNEIFORM SIGN TUK
+12308	CUNEIFORM SIGN TUM
+12309	CUNEIFORM SIGN TUR
+1230A	CUNEIFORM SIGN TUR OVER TUR ZA OVER ZA
+1230B	CUNEIFORM SIGN U
+1230C	CUNEIFORM SIGN U GUD
+1230D	CUNEIFORM SIGN U U U
+1230E	CUNEIFORM SIGN U OVER U PA OVER PA GAR OVER GAR
+1230F	CUNEIFORM SIGN U OVER U SUR OVER SUR
+12310	CUNEIFORM SIGN U OVER U U REVERSED OVER U REVERSED
+12311	CUNEIFORM SIGN U2
+12312	CUNEIFORM SIGN UB
+12313	CUNEIFORM SIGN UD
+12314	CUNEIFORM SIGN UD KUSHU2
+12315	CUNEIFORM SIGN UD TIMES BAD
+12316	CUNEIFORM SIGN UD TIMES MI
+12317	CUNEIFORM SIGN UD TIMES U PLUS U PLUS U
+12318	CUNEIFORM SIGN UD TIMES U PLUS U PLUS U GUNU
+12319	CUNEIFORM SIGN UD GUNU
+1231A	CUNEIFORM SIGN UD SHESHIG
+1231B	CUNEIFORM SIGN UD SHESHIG TIMES BAD
+1231C	CUNEIFORM SIGN UDUG
+1231D	CUNEIFORM SIGN UM
+1231E	CUNEIFORM SIGN UM TIMES LAGAB
+1231F	CUNEIFORM SIGN UM TIMES ME PLUS DA
+12320	CUNEIFORM SIGN UM TIMES SHA3
+12321	CUNEIFORM SIGN UM TIMES U
+12322	CUNEIFORM SIGN UMBIN
+12323	CUNEIFORM SIGN UMUM
+12324	CUNEIFORM SIGN UMUM TIMES KASKAL
+12325	CUNEIFORM SIGN UMUM TIMES PA
+12326	CUNEIFORM SIGN UN
+12327	CUNEIFORM SIGN UN GUNU
+12328	CUNEIFORM SIGN UR
+12329	CUNEIFORM SIGN UR CROSSING UR
+1232A	CUNEIFORM SIGN UR SHESHIG
+1232B	CUNEIFORM SIGN UR2
+1232C	CUNEIFORM SIGN UR2 TIMES A PLUS HA
+1232D	CUNEIFORM SIGN UR2 TIMES A PLUS NA
+1232E	CUNEIFORM SIGN UR2 TIMES AL
+1232F	CUNEIFORM SIGN UR2 TIMES HA
+12330	CUNEIFORM SIGN UR2 TIMES NUN
+12331	CUNEIFORM SIGN UR2 TIMES U2
+12332	CUNEIFORM SIGN UR2 TIMES U2 PLUS ASH
+12333	CUNEIFORM SIGN UR2 TIMES U2 PLUS BI
+12334	CUNEIFORM SIGN UR4
+12335	CUNEIFORM SIGN URI
+12336	CUNEIFORM SIGN URI3
+12337	CUNEIFORM SIGN URU
+12338	CUNEIFORM SIGN URU TIMES A
+12339	CUNEIFORM SIGN URU TIMES ASHGAB
+1233A	CUNEIFORM SIGN URU TIMES BAR
+1233B	CUNEIFORM SIGN URU TIMES DUN
+1233C	CUNEIFORM SIGN URU TIMES GA
+1233D	CUNEIFORM SIGN URU TIMES GAL
+1233E	CUNEIFORM SIGN URU TIMES GAN2 TENU
+1233F	CUNEIFORM SIGN URU TIMES GAR
+12340	CUNEIFORM SIGN URU TIMES GU
+12341	CUNEIFORM SIGN URU TIMES HA
+12342	CUNEIFORM SIGN URU TIMES IGI
+12343	CUNEIFORM SIGN URU TIMES IM
+12344	CUNEIFORM SIGN URU TIMES ISH
+12345	CUNEIFORM SIGN URU TIMES KI
+12346	CUNEIFORM SIGN URU TIMES LUM
+12347	CUNEIFORM SIGN URU TIMES MIN
+12348	CUNEIFORM SIGN URU TIMES PA
+12349	CUNEIFORM SIGN URU TIMES SHE
+1234A	CUNEIFORM SIGN URU TIMES SIG4
+1234B	CUNEIFORM SIGN URU TIMES TU
+1234C	CUNEIFORM SIGN URU TIMES U PLUS GUD
+1234D	CUNEIFORM SIGN URU TIMES UD
+1234E	CUNEIFORM SIGN URU TIMES URUDA
+1234F	CUNEIFORM SIGN URUDA
+12350	CUNEIFORM SIGN URUDA TIMES U
+12351	CUNEIFORM SIGN USH
+12352	CUNEIFORM SIGN USH TIMES A
+12353	CUNEIFORM SIGN USH TIMES KU
+12354	CUNEIFORM SIGN USH TIMES KUR
+12355	CUNEIFORM SIGN USH TIMES TAK4
+12356	CUNEIFORM SIGN USHX
+12357	CUNEIFORM SIGN USH2
+12358	CUNEIFORM SIGN USHUMX
+12359	CUNEIFORM SIGN UTUKI
+1235A	CUNEIFORM SIGN UZ3
+1235B	CUNEIFORM SIGN UZ3 TIMES KASKAL
+1235C	CUNEIFORM SIGN UZU
+1235D	CUNEIFORM SIGN ZA
+1235E	CUNEIFORM SIGN ZA TENU
+1235F	CUNEIFORM SIGN ZA SQUARED TIMES KUR
+12360	CUNEIFORM SIGN ZAG
+12361	CUNEIFORM SIGN ZAMX
+12362	CUNEIFORM SIGN ZE2
+12363	CUNEIFORM SIGN ZI
+12364	CUNEIFORM SIGN ZI OVER ZI
+12365	CUNEIFORM SIGN ZI3
+12366	CUNEIFORM SIGN ZIB
+12367	CUNEIFORM SIGN ZIB KABA TENU
+12368	CUNEIFORM SIGN ZIG
+12369	CUNEIFORM SIGN ZIZ2
+1236A	CUNEIFORM SIGN ZU
+1236B	CUNEIFORM SIGN ZU5
+1236C	CUNEIFORM SIGN ZU5 TIMES A
+1236D	CUNEIFORM SIGN ZUBUR
+1236E	CUNEIFORM SIGN ZUM
+1236F	CUNEIFORM SIGN KAP ELAMITE
+12370	CUNEIFORM SIGN AB TIMES NUN
+12371	CUNEIFORM SIGN AB2 TIMES A
+12372	CUNEIFORM SIGN AMAR TIMES KUG
+12373	CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS MASH
+12374	CUNEIFORM SIGN DAG3
+12375	CUNEIFORM SIGN DISH PLUS SHU
+12376	CUNEIFORM SIGN DUB TIMES SHE
+12377	CUNEIFORM SIGN EZEN TIMES GUD
+12378	CUNEIFORM SIGN EZEN TIMES SHE
+12379	CUNEIFORM SIGN GA2 TIMES AN PLUS KAK PLUS A
+1237A	CUNEIFORM SIGN GA2 TIMES ASH2
+1237B	CUNEIFORM SIGN GE22
+1237C	CUNEIFORM SIGN GIG
+1237D	CUNEIFORM SIGN HUSH
+1237E	CUNEIFORM SIGN KA TIMES ANSHE
+1237F	CUNEIFORM SIGN KA TIMES ASH3
+12380	CUNEIFORM SIGN KA TIMES GISH
+12381	CUNEIFORM SIGN KA TIMES GUD
+12382	CUNEIFORM SIGN KA TIMES HI TIMES ASH2
+12383	CUNEIFORM SIGN KA TIMES LUM
+12384	CUNEIFORM SIGN KA TIMES PA
+12385	CUNEIFORM SIGN KA TIMES SHUL
+12386	CUNEIFORM SIGN KA TIMES TU
+12387	CUNEIFORM SIGN KA TIMES UR2
+12388	CUNEIFORM SIGN LAGAB TIMES GI
+12389	CUNEIFORM SIGN LU2 SHESHIG TIMES BAD
+1238A	CUNEIFORM SIGN LU2 TIMES ESH2 PLUS LAL
+1238B	CUNEIFORM SIGN LU2 TIMES SHU
+1238C	CUNEIFORM SIGN MESH
+1238D	CUNEIFORM SIGN MUSH3 TIMES ZA
+1238E	CUNEIFORM SIGN NA4
+1238F	CUNEIFORM SIGN NIN
+12390	CUNEIFORM SIGN NIN9
+12391	CUNEIFORM SIGN NINDA2 TIMES BAL
+12392	CUNEIFORM SIGN NINDA2 TIMES GI
+12393	CUNEIFORM SIGN NU11 ROTATED NINETY DEGREES
+12394	CUNEIFORM SIGN PESH2 ASTERISK
+12395	CUNEIFORM SIGN PIR2
+12396	CUNEIFORM SIGN SAG TIMES IGI GUNU
+12397	CUNEIFORM SIGN TI2
+12398	CUNEIFORM SIGN UM TIMES ME
+12399	CUNEIFORM SIGN U U
+12400	CUNEIFORM NUMERIC SIGN TWO ASH
+12401	CUNEIFORM NUMERIC SIGN THREE ASH
+12402	CUNEIFORM NUMERIC SIGN FOUR ASH
+12403	CUNEIFORM NUMERIC SIGN FIVE ASH
+12404	CUNEIFORM NUMERIC SIGN SIX ASH
+12405	CUNEIFORM NUMERIC SIGN SEVEN ASH
+12406	CUNEIFORM NUMERIC SIGN EIGHT ASH
+12407	CUNEIFORM NUMERIC SIGN NINE ASH
+12408	CUNEIFORM NUMERIC SIGN THREE DISH
+12409	CUNEIFORM NUMERIC SIGN FOUR DISH
+1240A	CUNEIFORM NUMERIC SIGN FIVE DISH
+1240B	CUNEIFORM NUMERIC SIGN SIX DISH
+1240C	CUNEIFORM NUMERIC SIGN SEVEN DISH
+1240D	CUNEIFORM NUMERIC SIGN EIGHT DISH
+1240E	CUNEIFORM NUMERIC SIGN NINE DISH
+1240F	CUNEIFORM NUMERIC SIGN FOUR U
+12410	CUNEIFORM NUMERIC SIGN FIVE U
+12411	CUNEIFORM NUMERIC SIGN SIX U
+12412	CUNEIFORM NUMERIC SIGN SEVEN U
+12413	CUNEIFORM NUMERIC SIGN EIGHT U
+12414	CUNEIFORM NUMERIC SIGN NINE U
+12415	CUNEIFORM NUMERIC SIGN ONE GESH2
+12416	CUNEIFORM NUMERIC SIGN TWO GESH2
+12417	CUNEIFORM NUMERIC SIGN THREE GESH2
+12418	CUNEIFORM NUMERIC SIGN FOUR GESH2
+12419	CUNEIFORM NUMERIC SIGN FIVE GESH2
+1241A	CUNEIFORM NUMERIC SIGN SIX GESH2
+1241B	CUNEIFORM NUMERIC SIGN SEVEN GESH2
+1241C	CUNEIFORM NUMERIC SIGN EIGHT GESH2
+1241D	CUNEIFORM NUMERIC SIGN NINE GESH2
+1241E	CUNEIFORM NUMERIC SIGN ONE GESHU
+1241F	CUNEIFORM NUMERIC SIGN TWO GESHU
+12420	CUNEIFORM NUMERIC SIGN THREE GESHU
+12421	CUNEIFORM NUMERIC SIGN FOUR GESHU
+12422	CUNEIFORM NUMERIC SIGN FIVE GESHU
+12423	CUNEIFORM NUMERIC SIGN TWO SHAR2
+12424	CUNEIFORM NUMERIC SIGN THREE SHAR2
+12425	CUNEIFORM NUMERIC SIGN THREE SHAR2 VARIANT FORM
+12426	CUNEIFORM NUMERIC SIGN FOUR SHAR2
+12427	CUNEIFORM NUMERIC SIGN FIVE SHAR2
+12428	CUNEIFORM NUMERIC SIGN SIX SHAR2
+12429	CUNEIFORM NUMERIC SIGN SEVEN SHAR2
+1242A	CUNEIFORM NUMERIC SIGN EIGHT SHAR2
+1242B	CUNEIFORM NUMERIC SIGN NINE SHAR2
+1242C	CUNEIFORM NUMERIC SIGN ONE SHARU
+1242D	CUNEIFORM NUMERIC SIGN TWO SHARU
+1242E	CUNEIFORM NUMERIC SIGN THREE SHARU
+1242F	CUNEIFORM NUMERIC SIGN THREE SHARU VARIANT FORM
+12430	CUNEIFORM NUMERIC SIGN FOUR SHARU
+12431	CUNEIFORM NUMERIC SIGN FIVE SHARU
+12432	CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS DISH
+12433	CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS MIN
+12434	CUNEIFORM NUMERIC SIGN ONE BURU
+12435	CUNEIFORM NUMERIC SIGN TWO BURU
+12436	CUNEIFORM NUMERIC SIGN THREE BURU
+12437	CUNEIFORM NUMERIC SIGN THREE BURU VARIANT FORM
+12438	CUNEIFORM NUMERIC SIGN FOUR BURU
+12439	CUNEIFORM NUMERIC SIGN FIVE BURU
+1243A	CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH16
+1243B	CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH21
+1243C	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU
+1243D	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU4
+1243E	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU A
+1243F	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU B
+12440	CUNEIFORM NUMERIC SIGN SIX VARIANT FORM ASH9
+12441	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN3
+12442	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN A
+12443	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN B
+12444	CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU
+12445	CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU3
+12446	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU
+12447	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU3
+12448	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU4
+12449	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU A
+1244A	CUNEIFORM NUMERIC SIGN TWO ASH TENU
+1244B	CUNEIFORM NUMERIC SIGN THREE ASH TENU
+1244C	CUNEIFORM NUMERIC SIGN FOUR ASH TENU
+1244D	CUNEIFORM NUMERIC SIGN FIVE ASH TENU
+1244E	CUNEIFORM NUMERIC SIGN SIX ASH TENU
+1244F	CUNEIFORM NUMERIC SIGN ONE BAN2
+12450	CUNEIFORM NUMERIC SIGN TWO BAN2
+12451	CUNEIFORM NUMERIC SIGN THREE BAN2
+12452	CUNEIFORM NUMERIC SIGN FOUR BAN2
+12453	CUNEIFORM NUMERIC SIGN FOUR BAN2 VARIANT FORM
+12454	CUNEIFORM NUMERIC SIGN FIVE BAN2
+12455	CUNEIFORM NUMERIC SIGN FIVE BAN2 VARIANT FORM
+12456	CUNEIFORM NUMERIC SIGN NIGIDAMIN
+12457	CUNEIFORM NUMERIC SIGN NIGIDAESH
+12458	CUNEIFORM NUMERIC SIGN ONE ESHE3
+12459	CUNEIFORM NUMERIC SIGN TWO ESHE3
+1245A	CUNEIFORM NUMERIC SIGN ONE THIRD DISH
+1245B	CUNEIFORM NUMERIC SIGN TWO THIRDS DISH
+1245C	CUNEIFORM NUMERIC SIGN FIVE SIXTHS DISH
+1245D	CUNEIFORM NUMERIC SIGN ONE THIRD VARIANT FORM A
+1245E	CUNEIFORM NUMERIC SIGN TWO THIRDS VARIANT FORM A
+1245F	CUNEIFORM NUMERIC SIGN ONE EIGHTH ASH
+12460	CUNEIFORM NUMERIC SIGN ONE QUARTER ASH
+12461	CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE SIXTH
+12462	CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE QUARTER
+12463	CUNEIFORM NUMERIC SIGN ONE QUARTER GUR
+12464	CUNEIFORM NUMERIC SIGN ONE HALF GUR
+12465	CUNEIFORM NUMERIC SIGN ELAMITE ONE THIRD
+12466	CUNEIFORM NUMERIC SIGN ELAMITE TWO THIRDS
+12467	CUNEIFORM NUMERIC SIGN ELAMITE FORTY
+12468	CUNEIFORM NUMERIC SIGN ELAMITE FIFTY
+12469	CUNEIFORM NUMERIC SIGN FOUR U VARIANT FORM
+1246A	CUNEIFORM NUMERIC SIGN FIVE U VARIANT FORM
+1246B	CUNEIFORM NUMERIC SIGN SIX U VARIANT FORM
+1246C	CUNEIFORM NUMERIC SIGN SEVEN U VARIANT FORM
+1246D	CUNEIFORM NUMERIC SIGN EIGHT U VARIANT FORM
+1246E	CUNEIFORM NUMERIC SIGN NINE U VARIANT FORM
+12470	CUNEIFORM PUNCTUATION SIGN OLD ASSYRIAN WORD DIVIDER
+12471	CUNEIFORM PUNCTUATION SIGN VERTICAL COLON
+12472	CUNEIFORM PUNCTUATION SIGN DIAGONAL COLON
+12473	CUNEIFORM PUNCTUATION SIGN DIAGONAL TRICOLON
+12474	CUNEIFORM PUNCTUATION SIGN DIAGONAL QUADCOLON
+12480	CUNEIFORM SIGN AB TIMES NUN TENU
+12481	CUNEIFORM SIGN AB TIMES SHU2
+12482	CUNEIFORM SIGN AD TIMES ESH2
+12483	CUNEIFORM SIGN BAD TIMES DISH TENU
+12484	CUNEIFORM SIGN BAHAR2 TIMES AB2
+12485	CUNEIFORM SIGN BAHAR2 TIMES NI
+12486	CUNEIFORM SIGN BAHAR2 TIMES ZA
+12487	CUNEIFORM SIGN BU OVER BU TIMES NA2
+12488	CUNEIFORM SIGN DA TIMES TAK4
+12489	CUNEIFORM SIGN DAG TIMES KUR
+1248A	CUNEIFORM SIGN DIM TIMES IGI
+1248B	CUNEIFORM SIGN DIM TIMES U U U
+1248C	CUNEIFORM SIGN DIM2 TIMES UD
+1248D	CUNEIFORM SIGN DUG TIMES ANSHE
+1248E	CUNEIFORM SIGN DUG TIMES ASH
+1248F	CUNEIFORM SIGN DUG TIMES ASH AT LEFT
+12490	CUNEIFORM SIGN DUG TIMES DIN
+12491	CUNEIFORM SIGN DUG TIMES DUN
+12492	CUNEIFORM SIGN DUG TIMES ERIN2
+12493	CUNEIFORM SIGN DUG TIMES GA
+12494	CUNEIFORM SIGN DUG TIMES GI
+12495	CUNEIFORM SIGN DUG TIMES GIR2 GUNU
+12496	CUNEIFORM SIGN DUG TIMES GISH
+12497	CUNEIFORM SIGN DUG TIMES HA
+12498	CUNEIFORM SIGN DUG TIMES HI
+12499	CUNEIFORM SIGN DUG TIMES IGI GUNU
+1249A	CUNEIFORM SIGN DUG TIMES KASKAL
+1249B	CUNEIFORM SIGN DUG TIMES KUR
+1249C	CUNEIFORM SIGN DUG TIMES KUSHU2
+1249D	CUNEIFORM SIGN DUG TIMES KUSHU2 PLUS KASKAL
+1249E	CUNEIFORM SIGN DUG TIMES LAK-020
+1249F	CUNEIFORM SIGN DUG TIMES LAM
+124A0	CUNEIFORM SIGN DUG TIMES LAM TIMES KUR
+124A1	CUNEIFORM SIGN DUG TIMES LUH PLUS GISH
+124A2	CUNEIFORM SIGN DUG TIMES MASH
+124A3	CUNEIFORM SIGN DUG TIMES MES
+124A4	CUNEIFORM SIGN DUG TIMES MI
+124A5	CUNEIFORM SIGN DUG TIMES NI
+124A6	CUNEIFORM SIGN DUG TIMES PI
+124A7	CUNEIFORM SIGN DUG TIMES SHE
+124A8	CUNEIFORM SIGN DUG TIMES SI GUNU
+124A9	CUNEIFORM SIGN E2 TIMES KUR
+124AA	CUNEIFORM SIGN E2 TIMES PAP
+124AB	CUNEIFORM SIGN ERIN2 X
+124AC	CUNEIFORM SIGN ESH2 CROSSING ESH2
+124AD	CUNEIFORM SIGN EZEN SHESHIG TIMES ASH
+124AE	CUNEIFORM SIGN EZEN SHESHIG TIMES HI
+124AF	CUNEIFORM SIGN EZEN SHESHIG TIMES IGI GUNU
+124B0	CUNEIFORM SIGN EZEN SHESHIG TIMES LA
+124B1	CUNEIFORM SIGN EZEN SHESHIG TIMES LAL
+124B2	CUNEIFORM SIGN EZEN SHESHIG TIMES ME
+124B3	CUNEIFORM SIGN EZEN SHESHIG TIMES MES
+124B4	CUNEIFORM SIGN EZEN SHESHIG TIMES SU
+124B5	CUNEIFORM SIGN EZEN TIMES SU
+124B6	CUNEIFORM SIGN GA2 TIMES BAHAR2
+124B7	CUNEIFORM SIGN GA2 TIMES DIM GUNU
+124B8	CUNEIFORM SIGN GA2 TIMES DUG TIMES IGI GUNU
+124B9	CUNEIFORM SIGN GA2 TIMES DUG TIMES KASKAL
+124BA	CUNEIFORM SIGN GA2 TIMES EREN
+124BB	CUNEIFORM SIGN GA2 TIMES GA
+124BC	CUNEIFORM SIGN GA2 TIMES GAR PLUS DI
+124BD	CUNEIFORM SIGN GA2 TIMES GAR PLUS NE
+124BE	CUNEIFORM SIGN GA2 TIMES HA PLUS A
+124BF	CUNEIFORM SIGN GA2 TIMES KUSHU2 PLUS KASKAL
+124C0	CUNEIFORM SIGN GA2 TIMES LAM
+124C1	CUNEIFORM SIGN GA2 TIMES LAM TIMES KUR
+124C2	CUNEIFORM SIGN GA2 TIMES LUH
+124C3	CUNEIFORM SIGN GA2 TIMES MUSH
+124C4	CUNEIFORM SIGN GA2 TIMES NE
+124C5	CUNEIFORM SIGN GA2 TIMES NE PLUS E2
+124C6	CUNEIFORM SIGN GA2 TIMES NE PLUS GI
+124C7	CUNEIFORM SIGN GA2 TIMES SHIM
+124C8	CUNEIFORM SIGN GA2 TIMES ZIZ2
+124C9	CUNEIFORM SIGN GABA ROTATED NINETY DEGREES
+124CA	CUNEIFORM SIGN GESHTIN TIMES U
+124CB	CUNEIFORM SIGN GISH TIMES GISH CROSSING GISH
+124CC	CUNEIFORM SIGN GU2 TIMES IGI GUNU
+124CD	CUNEIFORM SIGN GUD PLUS GISH TIMES TAK4
+124CE	CUNEIFORM SIGN HA TENU GUNU
+124CF	CUNEIFORM SIGN HI TIMES ASH OVER HI TIMES ASH
+124D0	CUNEIFORM SIGN KA TIMES BU
+124D1	CUNEIFORM SIGN KA TIMES KA
+124D2	CUNEIFORM SIGN KA TIMES U U U
+124D3	CUNEIFORM SIGN KA TIMES UR
+124D4	CUNEIFORM SIGN LAGAB TIMES ZU OVER ZU
+124D5	CUNEIFORM SIGN LAK-003
+124D6	CUNEIFORM SIGN LAK-021
+124D7	CUNEIFORM SIGN LAK-025
+124D8	CUNEIFORM SIGN LAK-030
+124D9	CUNEIFORM SIGN LAK-050
+124DA	CUNEIFORM SIGN LAK-051
+124DB	CUNEIFORM SIGN LAK-062
+124DC	CUNEIFORM SIGN LAK-079 OVER LAK-079 GUNU
+124DD	CUNEIFORM SIGN LAK-080
+124DE	CUNEIFORM SIGN LAK-081 OVER LAK-081
+124DF	CUNEIFORM SIGN LAK-092
+124E0	CUNEIFORM SIGN LAK-130
+124E1	CUNEIFORM SIGN LAK-142
+124E2	CUNEIFORM SIGN LAK-210
+124E3	CUNEIFORM SIGN LAK-219
+124E4	CUNEIFORM SIGN LAK-220
+124E5	CUNEIFORM SIGN LAK-225
+124E6	CUNEIFORM SIGN LAK-228
+124E7	CUNEIFORM SIGN LAK-238
+124E8	CUNEIFORM SIGN LAK-265
+124E9	CUNEIFORM SIGN LAK-266
+124EA	CUNEIFORM SIGN LAK-343
+124EB	CUNEIFORM SIGN LAK-347
+124EC	CUNEIFORM SIGN LAK-348
+124ED	CUNEIFORM SIGN LAK-383
+124EE	CUNEIFORM SIGN LAK-384
+124EF	CUNEIFORM SIGN LAK-390
+124F0	CUNEIFORM SIGN LAK-441
+124F1	CUNEIFORM SIGN LAK-449
+124F2	CUNEIFORM SIGN LAK-449 TIMES GU
+124F3	CUNEIFORM SIGN LAK-449 TIMES IGI
+124F4	CUNEIFORM SIGN LAK-449 TIMES PAP PLUS LU3
+124F5	CUNEIFORM SIGN LAK-449 TIMES PAP PLUS PAP PLUS LU3
+124F6	CUNEIFORM SIGN LAK-449 TIMES U2 PLUS BA
+124F7	CUNEIFORM SIGN LAK-450
+124F8	CUNEIFORM SIGN LAK-457
+124F9	CUNEIFORM SIGN LAK-470
+124FA	CUNEIFORM SIGN LAK-483
+124FB	CUNEIFORM SIGN LAK-490
+124FC	CUNEIFORM SIGN LAK-492
+124FD	CUNEIFORM SIGN LAK-493
+124FE	CUNEIFORM SIGN LAK-495
+124FF	CUNEIFORM SIGN LAK-550
+12500	CUNEIFORM SIGN LAK-608
+12501	CUNEIFORM SIGN LAK-617
+12502	CUNEIFORM SIGN LAK-617 TIMES ASH
+12503	CUNEIFORM SIGN LAK-617 TIMES BAD
+12504	CUNEIFORM SIGN LAK-617 TIMES DUN3 GUNU GUNU
+12505	CUNEIFORM SIGN LAK-617 TIMES KU3
+12506	CUNEIFORM SIGN LAK-617 TIMES LA
+12507	CUNEIFORM SIGN LAK-617 TIMES TAR
+12508	CUNEIFORM SIGN LAK-617 TIMES TE
+12509	CUNEIFORM SIGN LAK-617 TIMES U2
+1250A	CUNEIFORM SIGN LAK-617 TIMES UD
+1250B	CUNEIFORM SIGN LAK-617 TIMES URUDA
+1250C	CUNEIFORM SIGN LAK-636
+1250D	CUNEIFORM SIGN LAK-648
+1250E	CUNEIFORM SIGN LAK-648 TIMES DUB
+1250F	CUNEIFORM SIGN LAK-648 TIMES GA
+12510	CUNEIFORM SIGN LAK-648 TIMES IGI
+12511	CUNEIFORM SIGN LAK-648 TIMES IGI GUNU
+12512	CUNEIFORM SIGN LAK-648 TIMES NI
+12513	CUNEIFORM SIGN LAK-648 TIMES PAP PLUS PAP PLUS LU3
+12514	CUNEIFORM SIGN LAK-648 TIMES SHESH PLUS KI
+12515	CUNEIFORM SIGN LAK-648 TIMES UD
+12516	CUNEIFORM SIGN LAK-648 TIMES URUDA
+12517	CUNEIFORM SIGN LAK-724
+12518	CUNEIFORM SIGN LAK-749
+12519	CUNEIFORM SIGN LU2 GUNU TIMES ASH
+1251A	CUNEIFORM SIGN LU2 TIMES DISH
+1251B	CUNEIFORM SIGN LU2 TIMES HAL
+1251C	CUNEIFORM SIGN LU2 TIMES PAP
+1251D	CUNEIFORM SIGN LU2 TIMES PAP PLUS PAP PLUS LU3
+1251E	CUNEIFORM SIGN LU2 TIMES TAK4
+1251F	CUNEIFORM SIGN MI PLUS ZA7
+12520	CUNEIFORM SIGN MUSH OVER MUSH TIMES GA
+12521	CUNEIFORM SIGN MUSH OVER MUSH TIMES KAK
+12522	CUNEIFORM SIGN NINDA2 TIMES DIM GUNU
+12523	CUNEIFORM SIGN NINDA2 TIMES GISH
+12524	CUNEIFORM SIGN NINDA2 TIMES GUL
+12525	CUNEIFORM SIGN NINDA2 TIMES HI
+12526	CUNEIFORM SIGN NINDA2 TIMES KESH2
+12527	CUNEIFORM SIGN NINDA2 TIMES LAK-050
+12528	CUNEIFORM SIGN NINDA2 TIMES MASH
+12529	CUNEIFORM SIGN NINDA2 TIMES PAP PLUS PAP
+1252A	CUNEIFORM SIGN NINDA2 TIMES U
+1252B	CUNEIFORM SIGN NINDA2 TIMES U PLUS U
+1252C	CUNEIFORM SIGN NINDA2 TIMES URUDA
+1252D	CUNEIFORM SIGN SAG GUNU TIMES HA
+1252E	CUNEIFORM SIGN SAG TIMES EN
+1252F	CUNEIFORM SIGN SAG TIMES SHE AT LEFT
+12530	CUNEIFORM SIGN SAG TIMES TAK4
+12531	CUNEIFORM SIGN SHA6 TENU
+12532	CUNEIFORM SIGN SHE OVER SHE
+12533	CUNEIFORM SIGN SHE PLUS HUB2
+12534	CUNEIFORM SIGN SHE PLUS NAM2
+12535	CUNEIFORM SIGN SHE PLUS SAR
+12536	CUNEIFORM SIGN SHU2 PLUS DUG TIMES NI
+12537	CUNEIFORM SIGN SHU2 PLUS E2 TIMES AN
+12538	CUNEIFORM SIGN SI TIMES TAK4
+12539	CUNEIFORM SIGN TAK4 PLUS SAG
+1253A	CUNEIFORM SIGN TUM TIMES GAN2 TENU
+1253B	CUNEIFORM SIGN TUM TIMES THREE DISH
+1253C	CUNEIFORM SIGN UR2 INVERTED
+1253D	CUNEIFORM SIGN UR2 TIMES UD
+1253E	CUNEIFORM SIGN URU TIMES DARA3
+1253F	CUNEIFORM SIGN URU TIMES LAK-668
+12540	CUNEIFORM SIGN URU TIMES LU3
+12541	CUNEIFORM SIGN ZA7
+12542	CUNEIFORM SIGN ZU OVER ZU PLUS SAR
+12543	CUNEIFORM SIGN ZU5 TIMES THREE DISH TENU
+13000	EGYPTIAN HIEROGLYPH A001
+13001	EGYPTIAN HIEROGLYPH A002
+13002	EGYPTIAN HIEROGLYPH A003
+13003	EGYPTIAN HIEROGLYPH A004
+13004	EGYPTIAN HIEROGLYPH A005
+13005	EGYPTIAN HIEROGLYPH A005A
+13006	EGYPTIAN HIEROGLYPH A006
+13007	EGYPTIAN HIEROGLYPH A006A
+13008	EGYPTIAN HIEROGLYPH A006B
+13009	EGYPTIAN HIEROGLYPH A007
+1300A	EGYPTIAN HIEROGLYPH A008
+1300B	EGYPTIAN HIEROGLYPH A009
+1300C	EGYPTIAN HIEROGLYPH A010
+1300D	EGYPTIAN HIEROGLYPH A011
+1300E	EGYPTIAN HIEROGLYPH A012
+1300F	EGYPTIAN HIEROGLYPH A013
+13010	EGYPTIAN HIEROGLYPH A014
+13011	EGYPTIAN HIEROGLYPH A014A
+13012	EGYPTIAN HIEROGLYPH A015
+13013	EGYPTIAN HIEROGLYPH A016
+13014	EGYPTIAN HIEROGLYPH A017
+13015	EGYPTIAN HIEROGLYPH A017A
+13016	EGYPTIAN HIEROGLYPH A018
+13017	EGYPTIAN HIEROGLYPH A019
+13018	EGYPTIAN HIEROGLYPH A020
+13019	EGYPTIAN HIEROGLYPH A021
+1301A	EGYPTIAN HIEROGLYPH A022
+1301B	EGYPTIAN HIEROGLYPH A023
+1301C	EGYPTIAN HIEROGLYPH A024
+1301D	EGYPTIAN HIEROGLYPH A025
+1301E	EGYPTIAN HIEROGLYPH A026
+1301F	EGYPTIAN HIEROGLYPH A027
+13020	EGYPTIAN HIEROGLYPH A028
+13021	EGYPTIAN HIEROGLYPH A029
+13022	EGYPTIAN HIEROGLYPH A030
+13023	EGYPTIAN HIEROGLYPH A031
+13024	EGYPTIAN HIEROGLYPH A032
+13025	EGYPTIAN HIEROGLYPH A032A
+13026	EGYPTIAN HIEROGLYPH A033
+13027	EGYPTIAN HIEROGLYPH A034
+13028	EGYPTIAN HIEROGLYPH A035
+13029	EGYPTIAN HIEROGLYPH A036
+1302A	EGYPTIAN HIEROGLYPH A037
+1302B	EGYPTIAN HIEROGLYPH A038
+1302C	EGYPTIAN HIEROGLYPH A039
+1302D	EGYPTIAN HIEROGLYPH A040
+1302E	EGYPTIAN HIEROGLYPH A040A
+1302F	EGYPTIAN HIEROGLYPH A041
+13030	EGYPTIAN HIEROGLYPH A042
+13031	EGYPTIAN HIEROGLYPH A042A
+13032	EGYPTIAN HIEROGLYPH A043
+13033	EGYPTIAN HIEROGLYPH A043A
+13034	EGYPTIAN HIEROGLYPH A044
+13035	EGYPTIAN HIEROGLYPH A045
+13036	EGYPTIAN HIEROGLYPH A045A
+13037	EGYPTIAN HIEROGLYPH A046
+13038	EGYPTIAN HIEROGLYPH A047
+13039	EGYPTIAN HIEROGLYPH A048
+1303A	EGYPTIAN HIEROGLYPH A049
+1303B	EGYPTIAN HIEROGLYPH A050
+1303C	EGYPTIAN HIEROGLYPH A051
+1303D	EGYPTIAN HIEROGLYPH A052
+1303E	EGYPTIAN HIEROGLYPH A053
+1303F	EGYPTIAN HIEROGLYPH A054
+13040	EGYPTIAN HIEROGLYPH A055
+13041	EGYPTIAN HIEROGLYPH A056
+13042	EGYPTIAN HIEROGLYPH A057
+13043	EGYPTIAN HIEROGLYPH A058
+13044	EGYPTIAN HIEROGLYPH A059
+13045	EGYPTIAN HIEROGLYPH A060
+13046	EGYPTIAN HIEROGLYPH A061
+13047	EGYPTIAN HIEROGLYPH A062
+13048	EGYPTIAN HIEROGLYPH A063
+13049	EGYPTIAN HIEROGLYPH A064
+1304A	EGYPTIAN HIEROGLYPH A065
+1304B	EGYPTIAN HIEROGLYPH A066
+1304C	EGYPTIAN HIEROGLYPH A067
+1304D	EGYPTIAN HIEROGLYPH A068
+1304E	EGYPTIAN HIEROGLYPH A069
+1304F	EGYPTIAN HIEROGLYPH A070
+13050	EGYPTIAN HIEROGLYPH B001
+13051	EGYPTIAN HIEROGLYPH B002
+13052	EGYPTIAN HIEROGLYPH B003
+13053	EGYPTIAN HIEROGLYPH B004
+13054	EGYPTIAN HIEROGLYPH B005
+13055	EGYPTIAN HIEROGLYPH B005A
+13056	EGYPTIAN HIEROGLYPH B006
+13057	EGYPTIAN HIEROGLYPH B007
+13058	EGYPTIAN HIEROGLYPH B008
+13059	EGYPTIAN HIEROGLYPH B009
+1305A	EGYPTIAN HIEROGLYPH C001
+1305B	EGYPTIAN HIEROGLYPH C002
+1305C	EGYPTIAN HIEROGLYPH C002A
+1305D	EGYPTIAN HIEROGLYPH C002B
+1305E	EGYPTIAN HIEROGLYPH C002C
+1305F	EGYPTIAN HIEROGLYPH C003
+13060	EGYPTIAN HIEROGLYPH C004
+13061	EGYPTIAN HIEROGLYPH C005
+13062	EGYPTIAN HIEROGLYPH C006
+13063	EGYPTIAN HIEROGLYPH C007
+13064	EGYPTIAN HIEROGLYPH C008
+13065	EGYPTIAN HIEROGLYPH C009
+13066	EGYPTIAN HIEROGLYPH C010
+13067	EGYPTIAN HIEROGLYPH C010A
+13068	EGYPTIAN HIEROGLYPH C011
+13069	EGYPTIAN HIEROGLYPH C012
+1306A	EGYPTIAN HIEROGLYPH C013
+1306B	EGYPTIAN HIEROGLYPH C014
+1306C	EGYPTIAN HIEROGLYPH C015
+1306D	EGYPTIAN HIEROGLYPH C016
+1306E	EGYPTIAN HIEROGLYPH C017
+1306F	EGYPTIAN HIEROGLYPH C018
+13070	EGYPTIAN HIEROGLYPH C019
+13071	EGYPTIAN HIEROGLYPH C020
+13072	EGYPTIAN HIEROGLYPH C021
+13073	EGYPTIAN HIEROGLYPH C022
+13074	EGYPTIAN HIEROGLYPH C023
+13075	EGYPTIAN HIEROGLYPH C024
+13076	EGYPTIAN HIEROGLYPH D001
+13077	EGYPTIAN HIEROGLYPH D002
+13078	EGYPTIAN HIEROGLYPH D003
+13079	EGYPTIAN HIEROGLYPH D004
+1307A	EGYPTIAN HIEROGLYPH D005
+1307B	EGYPTIAN HIEROGLYPH D006
+1307C	EGYPTIAN HIEROGLYPH D007
+1307D	EGYPTIAN HIEROGLYPH D008
+1307E	EGYPTIAN HIEROGLYPH D008A
+1307F	EGYPTIAN HIEROGLYPH D009
+13080	EGYPTIAN HIEROGLYPH D010
+13081	EGYPTIAN HIEROGLYPH D011
+13082	EGYPTIAN HIEROGLYPH D012
+13083	EGYPTIAN HIEROGLYPH D013
+13084	EGYPTIAN HIEROGLYPH D014
+13085	EGYPTIAN HIEROGLYPH D015
+13086	EGYPTIAN HIEROGLYPH D016
+13087	EGYPTIAN HIEROGLYPH D017
+13088	EGYPTIAN HIEROGLYPH D018
+13089	EGYPTIAN HIEROGLYPH D019
+1308A	EGYPTIAN HIEROGLYPH D020
+1308B	EGYPTIAN HIEROGLYPH D021
+1308C	EGYPTIAN HIEROGLYPH D022
+1308D	EGYPTIAN HIEROGLYPH D023
+1308E	EGYPTIAN HIEROGLYPH D024
+1308F	EGYPTIAN HIEROGLYPH D025
+13090	EGYPTIAN HIEROGLYPH D026
+13091	EGYPTIAN HIEROGLYPH D027
+13092	EGYPTIAN HIEROGLYPH D027A
+13093	EGYPTIAN HIEROGLYPH D028
+13094	EGYPTIAN HIEROGLYPH D029
+13095	EGYPTIAN HIEROGLYPH D030
+13096	EGYPTIAN HIEROGLYPH D031
+13097	EGYPTIAN HIEROGLYPH D031A
+13098	EGYPTIAN HIEROGLYPH D032
+13099	EGYPTIAN HIEROGLYPH D033
+1309A	EGYPTIAN HIEROGLYPH D034
+1309B	EGYPTIAN HIEROGLYPH D034A
+1309C	EGYPTIAN HIEROGLYPH D035
+1309D	EGYPTIAN HIEROGLYPH D036
+1309E	EGYPTIAN HIEROGLYPH D037
+1309F	EGYPTIAN HIEROGLYPH D038
+130A0	EGYPTIAN HIEROGLYPH D039
+130A1	EGYPTIAN HIEROGLYPH D040
+130A2	EGYPTIAN HIEROGLYPH D041
+130A3	EGYPTIAN HIEROGLYPH D042
+130A4	EGYPTIAN HIEROGLYPH D043
+130A5	EGYPTIAN HIEROGLYPH D044
+130A6	EGYPTIAN HIEROGLYPH D045
+130A7	EGYPTIAN HIEROGLYPH D046
+130A8	EGYPTIAN HIEROGLYPH D046A
+130A9	EGYPTIAN HIEROGLYPH D047
+130AA	EGYPTIAN HIEROGLYPH D048
+130AB	EGYPTIAN HIEROGLYPH D048A
+130AC	EGYPTIAN HIEROGLYPH D049
+130AD	EGYPTIAN HIEROGLYPH D050
+130AE	EGYPTIAN HIEROGLYPH D050A
+130AF	EGYPTIAN HIEROGLYPH D050B
+130B0	EGYPTIAN HIEROGLYPH D050C
+130B1	EGYPTIAN HIEROGLYPH D050D
+130B2	EGYPTIAN HIEROGLYPH D050E
+130B3	EGYPTIAN HIEROGLYPH D050F
+130B4	EGYPTIAN HIEROGLYPH D050G
+130B5	EGYPTIAN HIEROGLYPH D050H
+130B6	EGYPTIAN HIEROGLYPH D050I
+130B7	EGYPTIAN HIEROGLYPH D051
+130B8	EGYPTIAN HIEROGLYPH D052
+130B9	EGYPTIAN HIEROGLYPH D052A
+130BA	EGYPTIAN HIEROGLYPH D053
+130BB	EGYPTIAN HIEROGLYPH D054
+130BC	EGYPTIAN HIEROGLYPH D054A
+130BD	EGYPTIAN HIEROGLYPH D055
+130BE	EGYPTIAN HIEROGLYPH D056
+130BF	EGYPTIAN HIEROGLYPH D057
+130C0	EGYPTIAN HIEROGLYPH D058
+130C1	EGYPTIAN HIEROGLYPH D059
+130C2	EGYPTIAN HIEROGLYPH D060
+130C3	EGYPTIAN HIEROGLYPH D061
+130C4	EGYPTIAN HIEROGLYPH D062
+130C5	EGYPTIAN HIEROGLYPH D063
+130C6	EGYPTIAN HIEROGLYPH D064
+130C7	EGYPTIAN HIEROGLYPH D065
+130C8	EGYPTIAN HIEROGLYPH D066
+130C9	EGYPTIAN HIEROGLYPH D067
+130CA	EGYPTIAN HIEROGLYPH D067A
+130CB	EGYPTIAN HIEROGLYPH D067B
+130CC	EGYPTIAN HIEROGLYPH D067C
+130CD	EGYPTIAN HIEROGLYPH D067D
+130CE	EGYPTIAN HIEROGLYPH D067E
+130CF	EGYPTIAN HIEROGLYPH D067F
+130D0	EGYPTIAN HIEROGLYPH D067G
+130D1	EGYPTIAN HIEROGLYPH D067H
+130D2	EGYPTIAN HIEROGLYPH E001
+130D3	EGYPTIAN HIEROGLYPH E002
+130D4	EGYPTIAN HIEROGLYPH E003
+130D5	EGYPTIAN HIEROGLYPH E004
+130D6	EGYPTIAN HIEROGLYPH E005
+130D7	EGYPTIAN HIEROGLYPH E006
+130D8	EGYPTIAN HIEROGLYPH E007
+130D9	EGYPTIAN HIEROGLYPH E008
+130DA	EGYPTIAN HIEROGLYPH E008A
+130DB	EGYPTIAN HIEROGLYPH E009
+130DC	EGYPTIAN HIEROGLYPH E009A
+130DD	EGYPTIAN HIEROGLYPH E010
+130DE	EGYPTIAN HIEROGLYPH E011
+130DF	EGYPTIAN HIEROGLYPH E012
+130E0	EGYPTIAN HIEROGLYPH E013
+130E1	EGYPTIAN HIEROGLYPH E014
+130E2	EGYPTIAN HIEROGLYPH E015
+130E3	EGYPTIAN HIEROGLYPH E016
+130E4	EGYPTIAN HIEROGLYPH E016A
+130E5	EGYPTIAN HIEROGLYPH E017
+130E6	EGYPTIAN HIEROGLYPH E017A
+130E7	EGYPTIAN HIEROGLYPH E018
+130E8	EGYPTIAN HIEROGLYPH E019
+130E9	EGYPTIAN HIEROGLYPH E020
+130EA	EGYPTIAN HIEROGLYPH E020A
+130EB	EGYPTIAN HIEROGLYPH E021
+130EC	EGYPTIAN HIEROGLYPH E022
+130ED	EGYPTIAN HIEROGLYPH E023
+130EE	EGYPTIAN HIEROGLYPH E024
+130EF	EGYPTIAN HIEROGLYPH E025
+130F0	EGYPTIAN HIEROGLYPH E026
+130F1	EGYPTIAN HIEROGLYPH E027
+130F2	EGYPTIAN HIEROGLYPH E028
+130F3	EGYPTIAN HIEROGLYPH E028A
+130F4	EGYPTIAN HIEROGLYPH E029
+130F5	EGYPTIAN HIEROGLYPH E030
+130F6	EGYPTIAN HIEROGLYPH E031
+130F7	EGYPTIAN HIEROGLYPH E032
+130F8	EGYPTIAN HIEROGLYPH E033
+130F9	EGYPTIAN HIEROGLYPH E034
+130FA	EGYPTIAN HIEROGLYPH E034A
+130FB	EGYPTIAN HIEROGLYPH E036
+130FC	EGYPTIAN HIEROGLYPH E037
+130FD	EGYPTIAN HIEROGLYPH E038
+130FE	EGYPTIAN HIEROGLYPH F001
+130FF	EGYPTIAN HIEROGLYPH F001A
+13100	EGYPTIAN HIEROGLYPH F002
+13101	EGYPTIAN HIEROGLYPH F003
+13102	EGYPTIAN HIEROGLYPH F004
+13103	EGYPTIAN HIEROGLYPH F005
+13104	EGYPTIAN HIEROGLYPH F006
+13105	EGYPTIAN HIEROGLYPH F007
+13106	EGYPTIAN HIEROGLYPH F008
+13107	EGYPTIAN HIEROGLYPH F009
+13108	EGYPTIAN HIEROGLYPH F010
+13109	EGYPTIAN HIEROGLYPH F011
+1310A	EGYPTIAN HIEROGLYPH F012
+1310B	EGYPTIAN HIEROGLYPH F013
+1310C	EGYPTIAN HIEROGLYPH F013A
+1310D	EGYPTIAN HIEROGLYPH F014
+1310E	EGYPTIAN HIEROGLYPH F015
+1310F	EGYPTIAN HIEROGLYPH F016
+13110	EGYPTIAN HIEROGLYPH F017
+13111	EGYPTIAN HIEROGLYPH F018
+13112	EGYPTIAN HIEROGLYPH F019
+13113	EGYPTIAN HIEROGLYPH F020
+13114	EGYPTIAN HIEROGLYPH F021
+13115	EGYPTIAN HIEROGLYPH F021A
+13116	EGYPTIAN HIEROGLYPH F022
+13117	EGYPTIAN HIEROGLYPH F023
+13118	EGYPTIAN HIEROGLYPH F024
+13119	EGYPTIAN HIEROGLYPH F025
+1311A	EGYPTIAN HIEROGLYPH F026
+1311B	EGYPTIAN HIEROGLYPH F027
+1311C	EGYPTIAN HIEROGLYPH F028
+1311D	EGYPTIAN HIEROGLYPH F029
+1311E	EGYPTIAN HIEROGLYPH F030
+1311F	EGYPTIAN HIEROGLYPH F031
+13120	EGYPTIAN HIEROGLYPH F031A
+13121	EGYPTIAN HIEROGLYPH F032
+13122	EGYPTIAN HIEROGLYPH F033
+13123	EGYPTIAN HIEROGLYPH F034
+13124	EGYPTIAN HIEROGLYPH F035
+13125	EGYPTIAN HIEROGLYPH F036
+13126	EGYPTIAN HIEROGLYPH F037
+13127	EGYPTIAN HIEROGLYPH F037A
+13128	EGYPTIAN HIEROGLYPH F038
+13129	EGYPTIAN HIEROGLYPH F038A
+1312A	EGYPTIAN HIEROGLYPH F039
+1312B	EGYPTIAN HIEROGLYPH F040
+1312C	EGYPTIAN HIEROGLYPH F041
+1312D	EGYPTIAN HIEROGLYPH F042
+1312E	EGYPTIAN HIEROGLYPH F043
+1312F	EGYPTIAN HIEROGLYPH F044
+13130	EGYPTIAN HIEROGLYPH F045
+13131	EGYPTIAN HIEROGLYPH F045A
+13132	EGYPTIAN HIEROGLYPH F046
+13133	EGYPTIAN HIEROGLYPH F046A
+13134	EGYPTIAN HIEROGLYPH F047
+13135	EGYPTIAN HIEROGLYPH F047A
+13136	EGYPTIAN HIEROGLYPH F048
+13137	EGYPTIAN HIEROGLYPH F049
+13138	EGYPTIAN HIEROGLYPH F050
+13139	EGYPTIAN HIEROGLYPH F051
+1313A	EGYPTIAN HIEROGLYPH F051A
+1313B	EGYPTIAN HIEROGLYPH F051B
+1313C	EGYPTIAN HIEROGLYPH F051C
+1313D	EGYPTIAN HIEROGLYPH F052
+1313E	EGYPTIAN HIEROGLYPH F053
+1313F	EGYPTIAN HIEROGLYPH G001
+13140	EGYPTIAN HIEROGLYPH G002
+13141	EGYPTIAN HIEROGLYPH G003
+13142	EGYPTIAN HIEROGLYPH G004
+13143	EGYPTIAN HIEROGLYPH G005
+13144	EGYPTIAN HIEROGLYPH G006
+13145	EGYPTIAN HIEROGLYPH G006A
+13146	EGYPTIAN HIEROGLYPH G007
+13147	EGYPTIAN HIEROGLYPH G007A
+13148	EGYPTIAN HIEROGLYPH G007B
+13149	EGYPTIAN HIEROGLYPH G008
+1314A	EGYPTIAN HIEROGLYPH G009
+1314B	EGYPTIAN HIEROGLYPH G010
+1314C	EGYPTIAN HIEROGLYPH G011
+1314D	EGYPTIAN HIEROGLYPH G011A
+1314E	EGYPTIAN HIEROGLYPH G012
+1314F	EGYPTIAN HIEROGLYPH G013
+13150	EGYPTIAN HIEROGLYPH G014
+13151	EGYPTIAN HIEROGLYPH G015
+13152	EGYPTIAN HIEROGLYPH G016
+13153	EGYPTIAN HIEROGLYPH G017
+13154	EGYPTIAN HIEROGLYPH G018
+13155	EGYPTIAN HIEROGLYPH G019
+13156	EGYPTIAN HIEROGLYPH G020
+13157	EGYPTIAN HIEROGLYPH G020A
+13158	EGYPTIAN HIEROGLYPH G021
+13159	EGYPTIAN HIEROGLYPH G022
+1315A	EGYPTIAN HIEROGLYPH G023
+1315B	EGYPTIAN HIEROGLYPH G024
+1315C	EGYPTIAN HIEROGLYPH G025
+1315D	EGYPTIAN HIEROGLYPH G026
+1315E	EGYPTIAN HIEROGLYPH G026A
+1315F	EGYPTIAN HIEROGLYPH G027
+13160	EGYPTIAN HIEROGLYPH G028
+13161	EGYPTIAN HIEROGLYPH G029
+13162	EGYPTIAN HIEROGLYPH G030
+13163	EGYPTIAN HIEROGLYPH G031
+13164	EGYPTIAN HIEROGLYPH G032
+13165	EGYPTIAN HIEROGLYPH G033
+13166	EGYPTIAN HIEROGLYPH G034
+13167	EGYPTIAN HIEROGLYPH G035
+13168	EGYPTIAN HIEROGLYPH G036
+13169	EGYPTIAN HIEROGLYPH G036A
+1316A	EGYPTIAN HIEROGLYPH G037
+1316B	EGYPTIAN HIEROGLYPH G037A
+1316C	EGYPTIAN HIEROGLYPH G038
+1316D	EGYPTIAN HIEROGLYPH G039
+1316E	EGYPTIAN HIEROGLYPH G040
+1316F	EGYPTIAN HIEROGLYPH G041
+13170	EGYPTIAN HIEROGLYPH G042
+13171	EGYPTIAN HIEROGLYPH G043
+13172	EGYPTIAN HIEROGLYPH G043A
+13173	EGYPTIAN HIEROGLYPH G044
+13174	EGYPTIAN HIEROGLYPH G045
+13175	EGYPTIAN HIEROGLYPH G045A
+13176	EGYPTIAN HIEROGLYPH G046
+13177	EGYPTIAN HIEROGLYPH G047
+13178	EGYPTIAN HIEROGLYPH G048
+13179	EGYPTIAN HIEROGLYPH G049
+1317A	EGYPTIAN HIEROGLYPH G050
+1317B	EGYPTIAN HIEROGLYPH G051
+1317C	EGYPTIAN HIEROGLYPH G052
+1317D	EGYPTIAN HIEROGLYPH G053
+1317E	EGYPTIAN HIEROGLYPH G054
+1317F	EGYPTIAN HIEROGLYPH H001
+13180	EGYPTIAN HIEROGLYPH H002
+13181	EGYPTIAN HIEROGLYPH H003
+13182	EGYPTIAN HIEROGLYPH H004
+13183	EGYPTIAN HIEROGLYPH H005
+13184	EGYPTIAN HIEROGLYPH H006
+13185	EGYPTIAN HIEROGLYPH H006A
+13186	EGYPTIAN HIEROGLYPH H007
+13187	EGYPTIAN HIEROGLYPH H008
+13188	EGYPTIAN HIEROGLYPH I001
+13189	EGYPTIAN HIEROGLYPH I002
+1318A	EGYPTIAN HIEROGLYPH I003
+1318B	EGYPTIAN HIEROGLYPH I004
+1318C	EGYPTIAN HIEROGLYPH I005
+1318D	EGYPTIAN HIEROGLYPH I005A
+1318E	EGYPTIAN HIEROGLYPH I006
+1318F	EGYPTIAN HIEROGLYPH I007
+13190	EGYPTIAN HIEROGLYPH I008
+13191	EGYPTIAN HIEROGLYPH I009
+13192	EGYPTIAN HIEROGLYPH I009A
+13193	EGYPTIAN HIEROGLYPH I010
+13194	EGYPTIAN HIEROGLYPH I010A
+13195	EGYPTIAN HIEROGLYPH I011
+13196	EGYPTIAN HIEROGLYPH I011A
+13197	EGYPTIAN HIEROGLYPH I012
+13198	EGYPTIAN HIEROGLYPH I013
+13199	EGYPTIAN HIEROGLYPH I014
+1319A	EGYPTIAN HIEROGLYPH I015
+1319B	EGYPTIAN HIEROGLYPH K001
+1319C	EGYPTIAN HIEROGLYPH K002
+1319D	EGYPTIAN HIEROGLYPH K003
+1319E	EGYPTIAN HIEROGLYPH K004
+1319F	EGYPTIAN HIEROGLYPH K005
+131A0	EGYPTIAN HIEROGLYPH K006
+131A1	EGYPTIAN HIEROGLYPH K007
+131A2	EGYPTIAN HIEROGLYPH K008
+131A3	EGYPTIAN HIEROGLYPH L001
+131A4	EGYPTIAN HIEROGLYPH L002
+131A5	EGYPTIAN HIEROGLYPH L002A
+131A6	EGYPTIAN HIEROGLYPH L003
+131A7	EGYPTIAN HIEROGLYPH L004
+131A8	EGYPTIAN HIEROGLYPH L005
+131A9	EGYPTIAN HIEROGLYPH L006
+131AA	EGYPTIAN HIEROGLYPH L006A
+131AB	EGYPTIAN HIEROGLYPH L007
+131AC	EGYPTIAN HIEROGLYPH L008
+131AD	EGYPTIAN HIEROGLYPH M001
+131AE	EGYPTIAN HIEROGLYPH M001A
+131AF	EGYPTIAN HIEROGLYPH M001B
+131B0	EGYPTIAN HIEROGLYPH M002
+131B1	EGYPTIAN HIEROGLYPH M003
+131B2	EGYPTIAN HIEROGLYPH M003A
+131B3	EGYPTIAN HIEROGLYPH M004
+131B4	EGYPTIAN HIEROGLYPH M005
+131B5	EGYPTIAN HIEROGLYPH M006
+131B6	EGYPTIAN HIEROGLYPH M007
+131B7	EGYPTIAN HIEROGLYPH M008
+131B8	EGYPTIAN HIEROGLYPH M009
+131B9	EGYPTIAN HIEROGLYPH M010
+131BA	EGYPTIAN HIEROGLYPH M010A
+131BB	EGYPTIAN HIEROGLYPH M011
+131BC	EGYPTIAN HIEROGLYPH M012
+131BD	EGYPTIAN HIEROGLYPH M012A
+131BE	EGYPTIAN HIEROGLYPH M012B
+131BF	EGYPTIAN HIEROGLYPH M012C
+131C0	EGYPTIAN HIEROGLYPH M012D
+131C1	EGYPTIAN HIEROGLYPH M012E
+131C2	EGYPTIAN HIEROGLYPH M012F
+131C3	EGYPTIAN HIEROGLYPH M012G
+131C4	EGYPTIAN HIEROGLYPH M012H
+131C5	EGYPTIAN HIEROGLYPH M013
+131C6	EGYPTIAN HIEROGLYPH M014
+131C7	EGYPTIAN HIEROGLYPH M015
+131C8	EGYPTIAN HIEROGLYPH M015A
+131C9	EGYPTIAN HIEROGLYPH M016
+131CA	EGYPTIAN HIEROGLYPH M016A
+131CB	EGYPTIAN HIEROGLYPH M017
+131CC	EGYPTIAN HIEROGLYPH M017A
+131CD	EGYPTIAN HIEROGLYPH M018
+131CE	EGYPTIAN HIEROGLYPH M019
+131CF	EGYPTIAN HIEROGLYPH M020
+131D0	EGYPTIAN HIEROGLYPH M021
+131D1	EGYPTIAN HIEROGLYPH M022
+131D2	EGYPTIAN HIEROGLYPH M022A
+131D3	EGYPTIAN HIEROGLYPH M023
+131D4	EGYPTIAN HIEROGLYPH M024
+131D5	EGYPTIAN HIEROGLYPH M024A
+131D6	EGYPTIAN HIEROGLYPH M025
+131D7	EGYPTIAN HIEROGLYPH M026
+131D8	EGYPTIAN HIEROGLYPH M027
+131D9	EGYPTIAN HIEROGLYPH M028
+131DA	EGYPTIAN HIEROGLYPH M028A
+131DB	EGYPTIAN HIEROGLYPH M029
+131DC	EGYPTIAN HIEROGLYPH M030
+131DD	EGYPTIAN HIEROGLYPH M031
+131DE	EGYPTIAN HIEROGLYPH M031A
+131DF	EGYPTIAN HIEROGLYPH M032
+131E0	EGYPTIAN HIEROGLYPH M033
+131E1	EGYPTIAN HIEROGLYPH M033A
+131E2	EGYPTIAN HIEROGLYPH M033B
+131E3	EGYPTIAN HIEROGLYPH M034
+131E4	EGYPTIAN HIEROGLYPH M035
+131E5	EGYPTIAN HIEROGLYPH M036
+131E6	EGYPTIAN HIEROGLYPH M037
+131E7	EGYPTIAN HIEROGLYPH M038
+131E8	EGYPTIAN HIEROGLYPH M039
+131E9	EGYPTIAN HIEROGLYPH M040
+131EA	EGYPTIAN HIEROGLYPH M040A
+131EB	EGYPTIAN HIEROGLYPH M041
+131EC	EGYPTIAN HIEROGLYPH M042
+131ED	EGYPTIAN HIEROGLYPH M043
+131EE	EGYPTIAN HIEROGLYPH M044
+131EF	EGYPTIAN HIEROGLYPH N001
+131F0	EGYPTIAN HIEROGLYPH N002
+131F1	EGYPTIAN HIEROGLYPH N003
+131F2	EGYPTIAN HIEROGLYPH N004
+131F3	EGYPTIAN HIEROGLYPH N005
+131F4	EGYPTIAN HIEROGLYPH N006
+131F5	EGYPTIAN HIEROGLYPH N007
+131F6	EGYPTIAN HIEROGLYPH N008
+131F7	EGYPTIAN HIEROGLYPH N009
+131F8	EGYPTIAN HIEROGLYPH N010
+131F9	EGYPTIAN HIEROGLYPH N011
+131FA	EGYPTIAN HIEROGLYPH N012
+131FB	EGYPTIAN HIEROGLYPH N013
+131FC	EGYPTIAN HIEROGLYPH N014
+131FD	EGYPTIAN HIEROGLYPH N015
+131FE	EGYPTIAN HIEROGLYPH N016
+131FF	EGYPTIAN HIEROGLYPH N017
+13200	EGYPTIAN HIEROGLYPH N018
+13201	EGYPTIAN HIEROGLYPH N018A
+13202	EGYPTIAN HIEROGLYPH N018B
+13203	EGYPTIAN HIEROGLYPH N019
+13204	EGYPTIAN HIEROGLYPH N020
+13205	EGYPTIAN HIEROGLYPH N021
+13206	EGYPTIAN HIEROGLYPH N022
+13207	EGYPTIAN HIEROGLYPH N023
+13208	EGYPTIAN HIEROGLYPH N024
+13209	EGYPTIAN HIEROGLYPH N025
+1320A	EGYPTIAN HIEROGLYPH N025A
+1320B	EGYPTIAN HIEROGLYPH N026
+1320C	EGYPTIAN HIEROGLYPH N027
+1320D	EGYPTIAN HIEROGLYPH N028
+1320E	EGYPTIAN HIEROGLYPH N029
+1320F	EGYPTIAN HIEROGLYPH N030
+13210	EGYPTIAN HIEROGLYPH N031
+13211	EGYPTIAN HIEROGLYPH N032
+13212	EGYPTIAN HIEROGLYPH N033
+13213	EGYPTIAN HIEROGLYPH N033A
+13214	EGYPTIAN HIEROGLYPH N034
+13215	EGYPTIAN HIEROGLYPH N034A
+13216	EGYPTIAN HIEROGLYPH N035
+13217	EGYPTIAN HIEROGLYPH N035A
+13218	EGYPTIAN HIEROGLYPH N036
+13219	EGYPTIAN HIEROGLYPH N037
+1321A	EGYPTIAN HIEROGLYPH N037A
+1321B	EGYPTIAN HIEROGLYPH N038
+1321C	EGYPTIAN HIEROGLYPH N039
+1321D	EGYPTIAN HIEROGLYPH N040
+1321E	EGYPTIAN HIEROGLYPH N041
+1321F	EGYPTIAN HIEROGLYPH N042
+13220	EGYPTIAN HIEROGLYPH NL001
+13221	EGYPTIAN HIEROGLYPH NL002
+13222	EGYPTIAN HIEROGLYPH NL003
+13223	EGYPTIAN HIEROGLYPH NL004
+13224	EGYPTIAN HIEROGLYPH NL005
+13225	EGYPTIAN HIEROGLYPH NL005A
+13226	EGYPTIAN HIEROGLYPH NL006
+13227	EGYPTIAN HIEROGLYPH NL007
+13228	EGYPTIAN HIEROGLYPH NL008
+13229	EGYPTIAN HIEROGLYPH NL009
+1322A	EGYPTIAN HIEROGLYPH NL010
+1322B	EGYPTIAN HIEROGLYPH NL011
+1322C	EGYPTIAN HIEROGLYPH NL012
+1322D	EGYPTIAN HIEROGLYPH NL013
+1322E	EGYPTIAN HIEROGLYPH NL014
+1322F	EGYPTIAN HIEROGLYPH NL015
+13230	EGYPTIAN HIEROGLYPH NL016
+13231	EGYPTIAN HIEROGLYPH NL017
+13232	EGYPTIAN HIEROGLYPH NL017A
+13233	EGYPTIAN HIEROGLYPH NL018
+13234	EGYPTIAN HIEROGLYPH NL019
+13235	EGYPTIAN HIEROGLYPH NL020
+13236	EGYPTIAN HIEROGLYPH NU001
+13237	EGYPTIAN HIEROGLYPH NU002
+13238	EGYPTIAN HIEROGLYPH NU003
+13239	EGYPTIAN HIEROGLYPH NU004
+1323A	EGYPTIAN HIEROGLYPH NU005
+1323B	EGYPTIAN HIEROGLYPH NU006
+1323C	EGYPTIAN HIEROGLYPH NU007
+1323D	EGYPTIAN HIEROGLYPH NU008
+1323E	EGYPTIAN HIEROGLYPH NU009
+1323F	EGYPTIAN HIEROGLYPH NU010
+13240	EGYPTIAN HIEROGLYPH NU010A
+13241	EGYPTIAN HIEROGLYPH NU011
+13242	EGYPTIAN HIEROGLYPH NU011A
+13243	EGYPTIAN HIEROGLYPH NU012
+13244	EGYPTIAN HIEROGLYPH NU013
+13245	EGYPTIAN HIEROGLYPH NU014
+13246	EGYPTIAN HIEROGLYPH NU015
+13247	EGYPTIAN HIEROGLYPH NU016
+13248	EGYPTIAN HIEROGLYPH NU017
+13249	EGYPTIAN HIEROGLYPH NU018
+1324A	EGYPTIAN HIEROGLYPH NU018A
+1324B	EGYPTIAN HIEROGLYPH NU019
+1324C	EGYPTIAN HIEROGLYPH NU020
+1324D	EGYPTIAN HIEROGLYPH NU021
+1324E	EGYPTIAN HIEROGLYPH NU022
+1324F	EGYPTIAN HIEROGLYPH NU022A
+13250	EGYPTIAN HIEROGLYPH O001
+13251	EGYPTIAN HIEROGLYPH O001A
+13252	EGYPTIAN HIEROGLYPH O002
+13253	EGYPTIAN HIEROGLYPH O003
+13254	EGYPTIAN HIEROGLYPH O004
+13255	EGYPTIAN HIEROGLYPH O005
+13256	EGYPTIAN HIEROGLYPH O005A
+13257	EGYPTIAN HIEROGLYPH O006
+13258	EGYPTIAN HIEROGLYPH O006A
+13259	EGYPTIAN HIEROGLYPH O006B
+1325A	EGYPTIAN HIEROGLYPH O006C
+1325B	EGYPTIAN HIEROGLYPH O006D
+1325C	EGYPTIAN HIEROGLYPH O006E
+1325D	EGYPTIAN HIEROGLYPH O006F
+1325E	EGYPTIAN HIEROGLYPH O007
+1325F	EGYPTIAN HIEROGLYPH O008
+13260	EGYPTIAN HIEROGLYPH O009
+13261	EGYPTIAN HIEROGLYPH O010
+13262	EGYPTIAN HIEROGLYPH O010A
+13263	EGYPTIAN HIEROGLYPH O010B
+13264	EGYPTIAN HIEROGLYPH O010C
+13265	EGYPTIAN HIEROGLYPH O011
+13266	EGYPTIAN HIEROGLYPH O012
+13267	EGYPTIAN HIEROGLYPH O013
+13268	EGYPTIAN HIEROGLYPH O014
+13269	EGYPTIAN HIEROGLYPH O015
+1326A	EGYPTIAN HIEROGLYPH O016
+1326B	EGYPTIAN HIEROGLYPH O017
+1326C	EGYPTIAN HIEROGLYPH O018
+1326D	EGYPTIAN HIEROGLYPH O019
+1326E	EGYPTIAN HIEROGLYPH O019A
+1326F	EGYPTIAN HIEROGLYPH O020
+13270	EGYPTIAN HIEROGLYPH O020A
+13271	EGYPTIAN HIEROGLYPH O021
+13272	EGYPTIAN HIEROGLYPH O022
+13273	EGYPTIAN HIEROGLYPH O023
+13274	EGYPTIAN HIEROGLYPH O024
+13275	EGYPTIAN HIEROGLYPH O024A
+13276	EGYPTIAN HIEROGLYPH O025
+13277	EGYPTIAN HIEROGLYPH O025A
+13278	EGYPTIAN HIEROGLYPH O026
+13279	EGYPTIAN HIEROGLYPH O027
+1327A	EGYPTIAN HIEROGLYPH O028
+1327B	EGYPTIAN HIEROGLYPH O029
+1327C	EGYPTIAN HIEROGLYPH O029A
+1327D	EGYPTIAN HIEROGLYPH O030
+1327E	EGYPTIAN HIEROGLYPH O030A
+1327F	EGYPTIAN HIEROGLYPH O031
+13280	EGYPTIAN HIEROGLYPH O032
+13281	EGYPTIAN HIEROGLYPH O033
+13282	EGYPTIAN HIEROGLYPH O033A
+13283	EGYPTIAN HIEROGLYPH O034
+13284	EGYPTIAN HIEROGLYPH O035
+13285	EGYPTIAN HIEROGLYPH O036
+13286	EGYPTIAN HIEROGLYPH O036A
+13287	EGYPTIAN HIEROGLYPH O036B
+13288	EGYPTIAN HIEROGLYPH O036C
+13289	EGYPTIAN HIEROGLYPH O036D
+1328A	EGYPTIAN HIEROGLYPH O037
+1328B	EGYPTIAN HIEROGLYPH O038
+1328C	EGYPTIAN HIEROGLYPH O039
+1328D	EGYPTIAN HIEROGLYPH O040
+1328E	EGYPTIAN HIEROGLYPH O041
+1328F	EGYPTIAN HIEROGLYPH O042
+13290	EGYPTIAN HIEROGLYPH O043
+13291	EGYPTIAN HIEROGLYPH O044
+13292	EGYPTIAN HIEROGLYPH O045
+13293	EGYPTIAN HIEROGLYPH O046
+13294	EGYPTIAN HIEROGLYPH O047
+13295	EGYPTIAN HIEROGLYPH O048
+13296	EGYPTIAN HIEROGLYPH O049
+13297	EGYPTIAN HIEROGLYPH O050
+13298	EGYPTIAN HIEROGLYPH O050A
+13299	EGYPTIAN HIEROGLYPH O050B
+1329A	EGYPTIAN HIEROGLYPH O051
+1329B	EGYPTIAN HIEROGLYPH P001
+1329C	EGYPTIAN HIEROGLYPH P001A
+1329D	EGYPTIAN HIEROGLYPH P002
+1329E	EGYPTIAN HIEROGLYPH P003
+1329F	EGYPTIAN HIEROGLYPH P003A
+132A0	EGYPTIAN HIEROGLYPH P004
+132A1	EGYPTIAN HIEROGLYPH P005
+132A2	EGYPTIAN HIEROGLYPH P006
+132A3	EGYPTIAN HIEROGLYPH P007
+132A4	EGYPTIAN HIEROGLYPH P008
+132A5	EGYPTIAN HIEROGLYPH P009
+132A6	EGYPTIAN HIEROGLYPH P010
+132A7	EGYPTIAN HIEROGLYPH P011
+132A8	EGYPTIAN HIEROGLYPH Q001
+132A9	EGYPTIAN HIEROGLYPH Q002
+132AA	EGYPTIAN HIEROGLYPH Q003
+132AB	EGYPTIAN HIEROGLYPH Q004
+132AC	EGYPTIAN HIEROGLYPH Q005
+132AD	EGYPTIAN HIEROGLYPH Q006
+132AE	EGYPTIAN HIEROGLYPH Q007
+132AF	EGYPTIAN HIEROGLYPH R001
+132B0	EGYPTIAN HIEROGLYPH R002
+132B1	EGYPTIAN HIEROGLYPH R002A
+132B2	EGYPTIAN HIEROGLYPH R003
+132B3	EGYPTIAN HIEROGLYPH R003A
+132B4	EGYPTIAN HIEROGLYPH R003B
+132B5	EGYPTIAN HIEROGLYPH R004
+132B6	EGYPTIAN HIEROGLYPH R005
+132B7	EGYPTIAN HIEROGLYPH R006
+132B8	EGYPTIAN HIEROGLYPH R007
+132B9	EGYPTIAN HIEROGLYPH R008
+132BA	EGYPTIAN HIEROGLYPH R009
+132BB	EGYPTIAN HIEROGLYPH R010
+132BC	EGYPTIAN HIEROGLYPH R010A
+132BD	EGYPTIAN HIEROGLYPH R011
+132BE	EGYPTIAN HIEROGLYPH R012
+132BF	EGYPTIAN HIEROGLYPH R013
+132C0	EGYPTIAN HIEROGLYPH R014
+132C1	EGYPTIAN HIEROGLYPH R015
+132C2	EGYPTIAN HIEROGLYPH R016
+132C3	EGYPTIAN HIEROGLYPH R016A
+132C4	EGYPTIAN HIEROGLYPH R017
+132C5	EGYPTIAN HIEROGLYPH R018
+132C6	EGYPTIAN HIEROGLYPH R019
+132C7	EGYPTIAN HIEROGLYPH R020
+132C8	EGYPTIAN HIEROGLYPH R021
+132C9	EGYPTIAN HIEROGLYPH R022
+132CA	EGYPTIAN HIEROGLYPH R023
+132CB	EGYPTIAN HIEROGLYPH R024
+132CC	EGYPTIAN HIEROGLYPH R025
+132CD	EGYPTIAN HIEROGLYPH R026
+132CE	EGYPTIAN HIEROGLYPH R027
+132CF	EGYPTIAN HIEROGLYPH R028
+132D0	EGYPTIAN HIEROGLYPH R029
+132D1	EGYPTIAN HIEROGLYPH S001
+132D2	EGYPTIAN HIEROGLYPH S002
+132D3	EGYPTIAN HIEROGLYPH S002A
+132D4	EGYPTIAN HIEROGLYPH S003
+132D5	EGYPTIAN HIEROGLYPH S004
+132D6	EGYPTIAN HIEROGLYPH S005
+132D7	EGYPTIAN HIEROGLYPH S006
+132D8	EGYPTIAN HIEROGLYPH S006A
+132D9	EGYPTIAN HIEROGLYPH S007
+132DA	EGYPTIAN HIEROGLYPH S008
+132DB	EGYPTIAN HIEROGLYPH S009
+132DC	EGYPTIAN HIEROGLYPH S010
+132DD	EGYPTIAN HIEROGLYPH S011
+132DE	EGYPTIAN HIEROGLYPH S012
+132DF	EGYPTIAN HIEROGLYPH S013
+132E0	EGYPTIAN HIEROGLYPH S014
+132E1	EGYPTIAN HIEROGLYPH S014A
+132E2	EGYPTIAN HIEROGLYPH S014B
+132E3	EGYPTIAN HIEROGLYPH S015
+132E4	EGYPTIAN HIEROGLYPH S016
+132E5	EGYPTIAN HIEROGLYPH S017
+132E6	EGYPTIAN HIEROGLYPH S017A
+132E7	EGYPTIAN HIEROGLYPH S018
+132E8	EGYPTIAN HIEROGLYPH S019
+132E9	EGYPTIAN HIEROGLYPH S020
+132EA	EGYPTIAN HIEROGLYPH S021
+132EB	EGYPTIAN HIEROGLYPH S022
+132EC	EGYPTIAN HIEROGLYPH S023
+132ED	EGYPTIAN HIEROGLYPH S024
+132EE	EGYPTIAN HIEROGLYPH S025
+132EF	EGYPTIAN HIEROGLYPH S026
+132F0	EGYPTIAN HIEROGLYPH S026A
+132F1	EGYPTIAN HIEROGLYPH S026B
+132F2	EGYPTIAN HIEROGLYPH S027
+132F3	EGYPTIAN HIEROGLYPH S028
+132F4	EGYPTIAN HIEROGLYPH S029
+132F5	EGYPTIAN HIEROGLYPH S030
+132F6	EGYPTIAN HIEROGLYPH S031
+132F7	EGYPTIAN HIEROGLYPH S032
+132F8	EGYPTIAN HIEROGLYPH S033
+132F9	EGYPTIAN HIEROGLYPH S034
+132FA	EGYPTIAN HIEROGLYPH S035
+132FB	EGYPTIAN HIEROGLYPH S035A
+132FC	EGYPTIAN HIEROGLYPH S036
+132FD	EGYPTIAN HIEROGLYPH S037
+132FE	EGYPTIAN HIEROGLYPH S038
+132FF	EGYPTIAN HIEROGLYPH S039
+13300	EGYPTIAN HIEROGLYPH S040
+13301	EGYPTIAN HIEROGLYPH S041
+13302	EGYPTIAN HIEROGLYPH S042
+13303	EGYPTIAN HIEROGLYPH S043
+13304	EGYPTIAN HIEROGLYPH S044
+13305	EGYPTIAN HIEROGLYPH S045
+13306	EGYPTIAN HIEROGLYPH S046
+13307	EGYPTIAN HIEROGLYPH T001
+13308	EGYPTIAN HIEROGLYPH T002
+13309	EGYPTIAN HIEROGLYPH T003
+1330A	EGYPTIAN HIEROGLYPH T003A
+1330B	EGYPTIAN HIEROGLYPH T004
+1330C	EGYPTIAN HIEROGLYPH T005
+1330D	EGYPTIAN HIEROGLYPH T006
+1330E	EGYPTIAN HIEROGLYPH T007
+1330F	EGYPTIAN HIEROGLYPH T007A
+13310	EGYPTIAN HIEROGLYPH T008
+13311	EGYPTIAN HIEROGLYPH T008A
+13312	EGYPTIAN HIEROGLYPH T009
+13313	EGYPTIAN HIEROGLYPH T009A
+13314	EGYPTIAN HIEROGLYPH T010
+13315	EGYPTIAN HIEROGLYPH T011
+13316	EGYPTIAN HIEROGLYPH T011A
+13317	EGYPTIAN HIEROGLYPH T012
+13318	EGYPTIAN HIEROGLYPH T013
+13319	EGYPTIAN HIEROGLYPH T014
+1331A	EGYPTIAN HIEROGLYPH T015
+1331B	EGYPTIAN HIEROGLYPH T016
+1331C	EGYPTIAN HIEROGLYPH T016A
+1331D	EGYPTIAN HIEROGLYPH T017
+1331E	EGYPTIAN HIEROGLYPH T018
+1331F	EGYPTIAN HIEROGLYPH T019
+13320	EGYPTIAN HIEROGLYPH T020
+13321	EGYPTIAN HIEROGLYPH T021
+13322	EGYPTIAN HIEROGLYPH T022
+13323	EGYPTIAN HIEROGLYPH T023
+13324	EGYPTIAN HIEROGLYPH T024
+13325	EGYPTIAN HIEROGLYPH T025
+13326	EGYPTIAN HIEROGLYPH T026
+13327	EGYPTIAN HIEROGLYPH T027
+13328	EGYPTIAN HIEROGLYPH T028
+13329	EGYPTIAN HIEROGLYPH T029
+1332A	EGYPTIAN HIEROGLYPH T030
+1332B	EGYPTIAN HIEROGLYPH T031
+1332C	EGYPTIAN HIEROGLYPH T032
+1332D	EGYPTIAN HIEROGLYPH T032A
+1332E	EGYPTIAN HIEROGLYPH T033
+1332F	EGYPTIAN HIEROGLYPH T033A
+13330	EGYPTIAN HIEROGLYPH T034
+13331	EGYPTIAN HIEROGLYPH T035
+13332	EGYPTIAN HIEROGLYPH T036
+13333	EGYPTIAN HIEROGLYPH U001
+13334	EGYPTIAN HIEROGLYPH U002
+13335	EGYPTIAN HIEROGLYPH U003
+13336	EGYPTIAN HIEROGLYPH U004
+13337	EGYPTIAN HIEROGLYPH U005
+13338	EGYPTIAN HIEROGLYPH U006
+13339	EGYPTIAN HIEROGLYPH U006A
+1333A	EGYPTIAN HIEROGLYPH U006B
+1333B	EGYPTIAN HIEROGLYPH U007
+1333C	EGYPTIAN HIEROGLYPH U008
+1333D	EGYPTIAN HIEROGLYPH U009
+1333E	EGYPTIAN HIEROGLYPH U010
+1333F	EGYPTIAN HIEROGLYPH U011
+13340	EGYPTIAN HIEROGLYPH U012
+13341	EGYPTIAN HIEROGLYPH U013
+13342	EGYPTIAN HIEROGLYPH U014
+13343	EGYPTIAN HIEROGLYPH U015
+13344	EGYPTIAN HIEROGLYPH U016
+13345	EGYPTIAN HIEROGLYPH U017
+13346	EGYPTIAN HIEROGLYPH U018
+13347	EGYPTIAN HIEROGLYPH U019
+13348	EGYPTIAN HIEROGLYPH U020
+13349	EGYPTIAN HIEROGLYPH U021
+1334A	EGYPTIAN HIEROGLYPH U022
+1334B	EGYPTIAN HIEROGLYPH U023
+1334C	EGYPTIAN HIEROGLYPH U023A
+1334D	EGYPTIAN HIEROGLYPH U024
+1334E	EGYPTIAN HIEROGLYPH U025
+1334F	EGYPTIAN HIEROGLYPH U026
+13350	EGYPTIAN HIEROGLYPH U027
+13351	EGYPTIAN HIEROGLYPH U028
+13352	EGYPTIAN HIEROGLYPH U029
+13353	EGYPTIAN HIEROGLYPH U029A
+13354	EGYPTIAN HIEROGLYPH U030
+13355	EGYPTIAN HIEROGLYPH U031
+13356	EGYPTIAN HIEROGLYPH U032
+13357	EGYPTIAN HIEROGLYPH U032A
+13358	EGYPTIAN HIEROGLYPH U033
+13359	EGYPTIAN HIEROGLYPH U034
+1335A	EGYPTIAN HIEROGLYPH U035
+1335B	EGYPTIAN HIEROGLYPH U036
+1335C	EGYPTIAN HIEROGLYPH U037
+1335D	EGYPTIAN HIEROGLYPH U038
+1335E	EGYPTIAN HIEROGLYPH U039
+1335F	EGYPTIAN HIEROGLYPH U040
+13360	EGYPTIAN HIEROGLYPH U041
+13361	EGYPTIAN HIEROGLYPH U042
+13362	EGYPTIAN HIEROGLYPH V001
+13363	EGYPTIAN HIEROGLYPH V001A
+13364	EGYPTIAN HIEROGLYPH V001B
+13365	EGYPTIAN HIEROGLYPH V001C
+13366	EGYPTIAN HIEROGLYPH V001D
+13367	EGYPTIAN HIEROGLYPH V001E
+13368	EGYPTIAN HIEROGLYPH V001F
+13369	EGYPTIAN HIEROGLYPH V001G
+1336A	EGYPTIAN HIEROGLYPH V001H
+1336B	EGYPTIAN HIEROGLYPH V001I
+1336C	EGYPTIAN HIEROGLYPH V002
+1336D	EGYPTIAN HIEROGLYPH V002A
+1336E	EGYPTIAN HIEROGLYPH V003
+1336F	EGYPTIAN HIEROGLYPH V004
+13370	EGYPTIAN HIEROGLYPH V005
+13371	EGYPTIAN HIEROGLYPH V006
+13372	EGYPTIAN HIEROGLYPH V007
+13373	EGYPTIAN HIEROGLYPH V007A
+13374	EGYPTIAN HIEROGLYPH V007B
+13375	EGYPTIAN HIEROGLYPH V008
+13376	EGYPTIAN HIEROGLYPH V009
+13377	EGYPTIAN HIEROGLYPH V010
+13378	EGYPTIAN HIEROGLYPH V011
+13379	EGYPTIAN HIEROGLYPH V011A
+1337A	EGYPTIAN HIEROGLYPH V011B
+1337B	EGYPTIAN HIEROGLYPH V011C
+1337C	EGYPTIAN HIEROGLYPH V012
+1337D	EGYPTIAN HIEROGLYPH V012A
+1337E	EGYPTIAN HIEROGLYPH V012B
+1337F	EGYPTIAN HIEROGLYPH V013
+13380	EGYPTIAN HIEROGLYPH V014
+13381	EGYPTIAN HIEROGLYPH V015
+13382	EGYPTIAN HIEROGLYPH V016
+13383	EGYPTIAN HIEROGLYPH V017
+13384	EGYPTIAN HIEROGLYPH V018
+13385	EGYPTIAN HIEROGLYPH V019
+13386	EGYPTIAN HIEROGLYPH V020
+13387	EGYPTIAN HIEROGLYPH V020A
+13388	EGYPTIAN HIEROGLYPH V020B
+13389	EGYPTIAN HIEROGLYPH V020C
+1338A	EGYPTIAN HIEROGLYPH V020D
+1338B	EGYPTIAN HIEROGLYPH V020E
+1338C	EGYPTIAN HIEROGLYPH V020F
+1338D	EGYPTIAN HIEROGLYPH V020G
+1338E	EGYPTIAN HIEROGLYPH V020H
+1338F	EGYPTIAN HIEROGLYPH V020I
+13390	EGYPTIAN HIEROGLYPH V020J
+13391	EGYPTIAN HIEROGLYPH V020K
+13392	EGYPTIAN HIEROGLYPH V020L
+13393	EGYPTIAN HIEROGLYPH V021
+13394	EGYPTIAN HIEROGLYPH V022
+13395	EGYPTIAN HIEROGLYPH V023
+13396	EGYPTIAN HIEROGLYPH V023A
+13397	EGYPTIAN HIEROGLYPH V024
+13398	EGYPTIAN HIEROGLYPH V025
+13399	EGYPTIAN HIEROGLYPH V026
+1339A	EGYPTIAN HIEROGLYPH V027
+1339B	EGYPTIAN HIEROGLYPH V028
+1339C	EGYPTIAN HIEROGLYPH V028A
+1339D	EGYPTIAN HIEROGLYPH V029
+1339E	EGYPTIAN HIEROGLYPH V029A
+1339F	EGYPTIAN HIEROGLYPH V030
+133A0	EGYPTIAN HIEROGLYPH V030A
+133A1	EGYPTIAN HIEROGLYPH V031
+133A2	EGYPTIAN HIEROGLYPH V031A
+133A3	EGYPTIAN HIEROGLYPH V032
+133A4	EGYPTIAN HIEROGLYPH V033
+133A5	EGYPTIAN HIEROGLYPH V033A
+133A6	EGYPTIAN HIEROGLYPH V034
+133A7	EGYPTIAN HIEROGLYPH V035
+133A8	EGYPTIAN HIEROGLYPH V036
+133A9	EGYPTIAN HIEROGLYPH V037
+133AA	EGYPTIAN HIEROGLYPH V037A
+133AB	EGYPTIAN HIEROGLYPH V038
+133AC	EGYPTIAN HIEROGLYPH V039
+133AD	EGYPTIAN HIEROGLYPH V040
+133AE	EGYPTIAN HIEROGLYPH V040A
+133AF	EGYPTIAN HIEROGLYPH W001
+133B0	EGYPTIAN HIEROGLYPH W002
+133B1	EGYPTIAN HIEROGLYPH W003
+133B2	EGYPTIAN HIEROGLYPH W003A
+133B3	EGYPTIAN HIEROGLYPH W004
+133B4	EGYPTIAN HIEROGLYPH W005
+133B5	EGYPTIAN HIEROGLYPH W006
+133B6	EGYPTIAN HIEROGLYPH W007
+133B7	EGYPTIAN HIEROGLYPH W008
+133B8	EGYPTIAN HIEROGLYPH W009
+133B9	EGYPTIAN HIEROGLYPH W009A
+133BA	EGYPTIAN HIEROGLYPH W010
+133BB	EGYPTIAN HIEROGLYPH W010A
+133BC	EGYPTIAN HIEROGLYPH W011
+133BD	EGYPTIAN HIEROGLYPH W012
+133BE	EGYPTIAN HIEROGLYPH W013
+133BF	EGYPTIAN HIEROGLYPH W014
+133C0	EGYPTIAN HIEROGLYPH W014A
+133C1	EGYPTIAN HIEROGLYPH W015
+133C2	EGYPTIAN HIEROGLYPH W016
+133C3	EGYPTIAN HIEROGLYPH W017
+133C4	EGYPTIAN HIEROGLYPH W017A
+133C5	EGYPTIAN HIEROGLYPH W018
+133C6	EGYPTIAN HIEROGLYPH W018A
+133C7	EGYPTIAN HIEROGLYPH W019
+133C8	EGYPTIAN HIEROGLYPH W020
+133C9	EGYPTIAN HIEROGLYPH W021
+133CA	EGYPTIAN HIEROGLYPH W022
+133CB	EGYPTIAN HIEROGLYPH W023
+133CC	EGYPTIAN HIEROGLYPH W024
+133CD	EGYPTIAN HIEROGLYPH W024A
+133CE	EGYPTIAN HIEROGLYPH W025
+133CF	EGYPTIAN HIEROGLYPH X001
+133D0	EGYPTIAN HIEROGLYPH X002
+133D1	EGYPTIAN HIEROGLYPH X003
+133D2	EGYPTIAN HIEROGLYPH X004
+133D3	EGYPTIAN HIEROGLYPH X004A
+133D4	EGYPTIAN HIEROGLYPH X004B
+133D5	EGYPTIAN HIEROGLYPH X005
+133D6	EGYPTIAN HIEROGLYPH X006
+133D7	EGYPTIAN HIEROGLYPH X006A
+133D8	EGYPTIAN HIEROGLYPH X007
+133D9	EGYPTIAN HIEROGLYPH X008
+133DA	EGYPTIAN HIEROGLYPH X008A
+133DB	EGYPTIAN HIEROGLYPH Y001
+133DC	EGYPTIAN HIEROGLYPH Y001A
+133DD	EGYPTIAN HIEROGLYPH Y002
+133DE	EGYPTIAN HIEROGLYPH Y003
+133DF	EGYPTIAN HIEROGLYPH Y004
+133E0	EGYPTIAN HIEROGLYPH Y005
+133E1	EGYPTIAN HIEROGLYPH Y006
+133E2	EGYPTIAN HIEROGLYPH Y007
+133E3	EGYPTIAN HIEROGLYPH Y008
+133E4	EGYPTIAN HIEROGLYPH Z001
+133E5	EGYPTIAN HIEROGLYPH Z002
+133E6	EGYPTIAN HIEROGLYPH Z002A
+133E7	EGYPTIAN HIEROGLYPH Z002B
+133E8	EGYPTIAN HIEROGLYPH Z002C
+133E9	EGYPTIAN HIEROGLYPH Z002D
+133EA	EGYPTIAN HIEROGLYPH Z003
+133EB	EGYPTIAN HIEROGLYPH Z003A
+133EC	EGYPTIAN HIEROGLYPH Z003B
+133ED	EGYPTIAN HIEROGLYPH Z004
+133EE	EGYPTIAN HIEROGLYPH Z004A
+133EF	EGYPTIAN HIEROGLYPH Z005
+133F0	EGYPTIAN HIEROGLYPH Z005A
+133F1	EGYPTIAN HIEROGLYPH Z006
+133F2	EGYPTIAN HIEROGLYPH Z007
+133F3	EGYPTIAN HIEROGLYPH Z008
+133F4	EGYPTIAN HIEROGLYPH Z009
+133F5	EGYPTIAN HIEROGLYPH Z010
+133F6	EGYPTIAN HIEROGLYPH Z011
+133F7	EGYPTIAN HIEROGLYPH Z012
+133F8	EGYPTIAN HIEROGLYPH Z013
+133F9	EGYPTIAN HIEROGLYPH Z014
+133FA	EGYPTIAN HIEROGLYPH Z015
+133FB	EGYPTIAN HIEROGLYPH Z015A
+133FC	EGYPTIAN HIEROGLYPH Z015B
+133FD	EGYPTIAN HIEROGLYPH Z015C
+133FE	EGYPTIAN HIEROGLYPH Z015D
+133FF	EGYPTIAN HIEROGLYPH Z015E
+13400	EGYPTIAN HIEROGLYPH Z015F
+13401	EGYPTIAN HIEROGLYPH Z015G
+13402	EGYPTIAN HIEROGLYPH Z015H
+13403	EGYPTIAN HIEROGLYPH Z015I
+13404	EGYPTIAN HIEROGLYPH Z016
+13405	EGYPTIAN HIEROGLYPH Z016A
+13406	EGYPTIAN HIEROGLYPH Z016B
+13407	EGYPTIAN HIEROGLYPH Z016C
+13408	EGYPTIAN HIEROGLYPH Z016D
+13409	EGYPTIAN HIEROGLYPH Z016E
+1340A	EGYPTIAN HIEROGLYPH Z016F
+1340B	EGYPTIAN HIEROGLYPH Z016G
+1340C	EGYPTIAN HIEROGLYPH Z016H
+1340D	EGYPTIAN HIEROGLYPH AA001
+1340E	EGYPTIAN HIEROGLYPH AA002
+1340F	EGYPTIAN HIEROGLYPH AA003
+13410	EGYPTIAN HIEROGLYPH AA004
+13411	EGYPTIAN HIEROGLYPH AA005
+13412	EGYPTIAN HIEROGLYPH AA006
+13413	EGYPTIAN HIEROGLYPH AA007
+13414	EGYPTIAN HIEROGLYPH AA007A
+13415	EGYPTIAN HIEROGLYPH AA007B
+13416	EGYPTIAN HIEROGLYPH AA008
+13417	EGYPTIAN HIEROGLYPH AA009
+13418	EGYPTIAN HIEROGLYPH AA010
+13419	EGYPTIAN HIEROGLYPH AA011
+1341A	EGYPTIAN HIEROGLYPH AA012
+1341B	EGYPTIAN HIEROGLYPH AA013
+1341C	EGYPTIAN HIEROGLYPH AA014
+1341D	EGYPTIAN HIEROGLYPH AA015
+1341E	EGYPTIAN HIEROGLYPH AA016
+1341F	EGYPTIAN HIEROGLYPH AA017
+13420	EGYPTIAN HIEROGLYPH AA018
+13421	EGYPTIAN HIEROGLYPH AA019
+13422	EGYPTIAN HIEROGLYPH AA020
+13423	EGYPTIAN HIEROGLYPH AA021
+13424	EGYPTIAN HIEROGLYPH AA022
+13425	EGYPTIAN HIEROGLYPH AA023
+13426	EGYPTIAN HIEROGLYPH AA024
+13427	EGYPTIAN HIEROGLYPH AA025
+13428	EGYPTIAN HIEROGLYPH AA026
+13429	EGYPTIAN HIEROGLYPH AA027
+1342A	EGYPTIAN HIEROGLYPH AA028
+1342B	EGYPTIAN HIEROGLYPH AA029
+1342C	EGYPTIAN HIEROGLYPH AA030
+1342D	EGYPTIAN HIEROGLYPH AA031
+1342E	EGYPTIAN HIEROGLYPH AA032
+14400	ANATOLIAN HIEROGLYPH A001
+14401	ANATOLIAN HIEROGLYPH A002
+14402	ANATOLIAN HIEROGLYPH A003
+14403	ANATOLIAN HIEROGLYPH A004
+14404	ANATOLIAN HIEROGLYPH A005
+14405	ANATOLIAN HIEROGLYPH A006
+14406	ANATOLIAN HIEROGLYPH A007
+14407	ANATOLIAN HIEROGLYPH A008
+14408	ANATOLIAN HIEROGLYPH A009
+14409	ANATOLIAN HIEROGLYPH A010
+1440A	ANATOLIAN HIEROGLYPH A010A
+1440B	ANATOLIAN HIEROGLYPH A011
+1440C	ANATOLIAN HIEROGLYPH A012
+1440D	ANATOLIAN HIEROGLYPH A013
+1440E	ANATOLIAN HIEROGLYPH A014
+1440F	ANATOLIAN HIEROGLYPH A015
+14410	ANATOLIAN HIEROGLYPH A016
+14411	ANATOLIAN HIEROGLYPH A017
+14412	ANATOLIAN HIEROGLYPH A018
+14413	ANATOLIAN HIEROGLYPH A019
+14414	ANATOLIAN HIEROGLYPH A020
+14415	ANATOLIAN HIEROGLYPH A021
+14416	ANATOLIAN HIEROGLYPH A022
+14417	ANATOLIAN HIEROGLYPH A023
+14418	ANATOLIAN HIEROGLYPH A024
+14419	ANATOLIAN HIEROGLYPH A025
+1441A	ANATOLIAN HIEROGLYPH A026
+1441B	ANATOLIAN HIEROGLYPH A026A
+1441C	ANATOLIAN HIEROGLYPH A027
+1441D	ANATOLIAN HIEROGLYPH A028
+1441E	ANATOLIAN HIEROGLYPH A029
+1441F	ANATOLIAN HIEROGLYPH A030
+14420	ANATOLIAN HIEROGLYPH A031
+14421	ANATOLIAN HIEROGLYPH A032
+14422	ANATOLIAN HIEROGLYPH A033
+14423	ANATOLIAN HIEROGLYPH A034
+14424	ANATOLIAN HIEROGLYPH A035
+14425	ANATOLIAN HIEROGLYPH A036
+14426	ANATOLIAN HIEROGLYPH A037
+14427	ANATOLIAN HIEROGLYPH A038
+14428	ANATOLIAN HIEROGLYPH A039
+14429	ANATOLIAN HIEROGLYPH A039A
+1442A	ANATOLIAN HIEROGLYPH A040
+1442B	ANATOLIAN HIEROGLYPH A041
+1442C	ANATOLIAN HIEROGLYPH A041A
+1442D	ANATOLIAN HIEROGLYPH A042
+1442E	ANATOLIAN HIEROGLYPH A043
+1442F	ANATOLIAN HIEROGLYPH A044
+14430	ANATOLIAN HIEROGLYPH A045
+14431	ANATOLIAN HIEROGLYPH A045A
+14432	ANATOLIAN HIEROGLYPH A046
+14433	ANATOLIAN HIEROGLYPH A046A
+14434	ANATOLIAN HIEROGLYPH A046B
+14435	ANATOLIAN HIEROGLYPH A047
+14436	ANATOLIAN HIEROGLYPH A048
+14437	ANATOLIAN HIEROGLYPH A049
+14438	ANATOLIAN HIEROGLYPH A050
+14439	ANATOLIAN HIEROGLYPH A051
+1443A	ANATOLIAN HIEROGLYPH A052
+1443B	ANATOLIAN HIEROGLYPH A053
+1443C	ANATOLIAN HIEROGLYPH A054
+1443D	ANATOLIAN HIEROGLYPH A055
+1443E	ANATOLIAN HIEROGLYPH A056
+1443F	ANATOLIAN HIEROGLYPH A057
+14440	ANATOLIAN HIEROGLYPH A058
+14441	ANATOLIAN HIEROGLYPH A059
+14442	ANATOLIAN HIEROGLYPH A060
+14443	ANATOLIAN HIEROGLYPH A061
+14444	ANATOLIAN HIEROGLYPH A062
+14445	ANATOLIAN HIEROGLYPH A063
+14446	ANATOLIAN HIEROGLYPH A064
+14447	ANATOLIAN HIEROGLYPH A065
+14448	ANATOLIAN HIEROGLYPH A066
+14449	ANATOLIAN HIEROGLYPH A066A
+1444A	ANATOLIAN HIEROGLYPH A066B
+1444B	ANATOLIAN HIEROGLYPH A066C
+1444C	ANATOLIAN HIEROGLYPH A067
+1444D	ANATOLIAN HIEROGLYPH A068
+1444E	ANATOLIAN HIEROGLYPH A069
+1444F	ANATOLIAN HIEROGLYPH A070
+14450	ANATOLIAN HIEROGLYPH A071
+14451	ANATOLIAN HIEROGLYPH A072
+14452	ANATOLIAN HIEROGLYPH A073
+14453	ANATOLIAN HIEROGLYPH A074
+14454	ANATOLIAN HIEROGLYPH A075
+14455	ANATOLIAN HIEROGLYPH A076
+14456	ANATOLIAN HIEROGLYPH A077
+14457	ANATOLIAN HIEROGLYPH A078
+14458	ANATOLIAN HIEROGLYPH A079
+14459	ANATOLIAN HIEROGLYPH A080
+1445A	ANATOLIAN HIEROGLYPH A081
+1445B	ANATOLIAN HIEROGLYPH A082
+1445C	ANATOLIAN HIEROGLYPH A083
+1445D	ANATOLIAN HIEROGLYPH A084
+1445E	ANATOLIAN HIEROGLYPH A085
+1445F	ANATOLIAN HIEROGLYPH A086
+14460	ANATOLIAN HIEROGLYPH A087
+14461	ANATOLIAN HIEROGLYPH A088
+14462	ANATOLIAN HIEROGLYPH A089
+14463	ANATOLIAN HIEROGLYPH A090
+14464	ANATOLIAN HIEROGLYPH A091
+14465	ANATOLIAN HIEROGLYPH A092
+14466	ANATOLIAN HIEROGLYPH A093
+14467	ANATOLIAN HIEROGLYPH A094
+14468	ANATOLIAN HIEROGLYPH A095
+14469	ANATOLIAN HIEROGLYPH A096
+1446A	ANATOLIAN HIEROGLYPH A097
+1446B	ANATOLIAN HIEROGLYPH A097A
+1446C	ANATOLIAN HIEROGLYPH A098
+1446D	ANATOLIAN HIEROGLYPH A098A
+1446E	ANATOLIAN HIEROGLYPH A099
+1446F	ANATOLIAN HIEROGLYPH A100
+14470	ANATOLIAN HIEROGLYPH A100A
+14471	ANATOLIAN HIEROGLYPH A101
+14472	ANATOLIAN HIEROGLYPH A101A
+14473	ANATOLIAN HIEROGLYPH A102
+14474	ANATOLIAN HIEROGLYPH A102A
+14475	ANATOLIAN HIEROGLYPH A103
+14476	ANATOLIAN HIEROGLYPH A104
+14477	ANATOLIAN HIEROGLYPH A104A
+14478	ANATOLIAN HIEROGLYPH A104B
+14479	ANATOLIAN HIEROGLYPH A104C
+1447A	ANATOLIAN HIEROGLYPH A105
+1447B	ANATOLIAN HIEROGLYPH A105A
+1447C	ANATOLIAN HIEROGLYPH A105B
+1447D	ANATOLIAN HIEROGLYPH A106
+1447E	ANATOLIAN HIEROGLYPH A107
+1447F	ANATOLIAN HIEROGLYPH A107A
+14480	ANATOLIAN HIEROGLYPH A107B
+14481	ANATOLIAN HIEROGLYPH A107C
+14482	ANATOLIAN HIEROGLYPH A108
+14483	ANATOLIAN HIEROGLYPH A109
+14484	ANATOLIAN HIEROGLYPH A110
+14485	ANATOLIAN HIEROGLYPH A110A
+14486	ANATOLIAN HIEROGLYPH A110B
+14487	ANATOLIAN HIEROGLYPH A111
+14488	ANATOLIAN HIEROGLYPH A112
+14489	ANATOLIAN HIEROGLYPH A113
+1448A	ANATOLIAN HIEROGLYPH A114
+1448B	ANATOLIAN HIEROGLYPH A115
+1448C	ANATOLIAN HIEROGLYPH A115A
+1448D	ANATOLIAN HIEROGLYPH A116
+1448E	ANATOLIAN HIEROGLYPH A117
+1448F	ANATOLIAN HIEROGLYPH A118
+14490	ANATOLIAN HIEROGLYPH A119
+14491	ANATOLIAN HIEROGLYPH A120
+14492	ANATOLIAN HIEROGLYPH A121
+14493	ANATOLIAN HIEROGLYPH A122
+14494	ANATOLIAN HIEROGLYPH A123
+14495	ANATOLIAN HIEROGLYPH A124
+14496	ANATOLIAN HIEROGLYPH A125
+14497	ANATOLIAN HIEROGLYPH A125A
+14498	ANATOLIAN HIEROGLYPH A126
+14499	ANATOLIAN HIEROGLYPH A127
+1449A	ANATOLIAN HIEROGLYPH A128
+1449B	ANATOLIAN HIEROGLYPH A129
+1449C	ANATOLIAN HIEROGLYPH A130
+1449D	ANATOLIAN HIEROGLYPH A131
+1449E	ANATOLIAN HIEROGLYPH A132
+1449F	ANATOLIAN HIEROGLYPH A133
+144A0	ANATOLIAN HIEROGLYPH A134
+144A1	ANATOLIAN HIEROGLYPH A135
+144A2	ANATOLIAN HIEROGLYPH A135A
+144A3	ANATOLIAN HIEROGLYPH A136
+144A4	ANATOLIAN HIEROGLYPH A137
+144A5	ANATOLIAN HIEROGLYPH A138
+144A6	ANATOLIAN HIEROGLYPH A139
+144A7	ANATOLIAN HIEROGLYPH A140
+144A8	ANATOLIAN HIEROGLYPH A141
+144A9	ANATOLIAN HIEROGLYPH A142
+144AA	ANATOLIAN HIEROGLYPH A143
+144AB	ANATOLIAN HIEROGLYPH A144
+144AC	ANATOLIAN HIEROGLYPH A145
+144AD	ANATOLIAN HIEROGLYPH A146
+144AE	ANATOLIAN HIEROGLYPH A147
+144AF	ANATOLIAN HIEROGLYPH A148
+144B0	ANATOLIAN HIEROGLYPH A149
+144B1	ANATOLIAN HIEROGLYPH A150
+144B2	ANATOLIAN HIEROGLYPH A151
+144B3	ANATOLIAN HIEROGLYPH A152
+144B4	ANATOLIAN HIEROGLYPH A153
+144B5	ANATOLIAN HIEROGLYPH A154
+144B6	ANATOLIAN HIEROGLYPH A155
+144B7	ANATOLIAN HIEROGLYPH A156
+144B8	ANATOLIAN HIEROGLYPH A157
+144B9	ANATOLIAN HIEROGLYPH A158
+144BA	ANATOLIAN HIEROGLYPH A159
+144BB	ANATOLIAN HIEROGLYPH A160
+144BC	ANATOLIAN HIEROGLYPH A161
+144BD	ANATOLIAN HIEROGLYPH A162
+144BE	ANATOLIAN HIEROGLYPH A163
+144BF	ANATOLIAN HIEROGLYPH A164
+144C0	ANATOLIAN HIEROGLYPH A165
+144C1	ANATOLIAN HIEROGLYPH A166
+144C2	ANATOLIAN HIEROGLYPH A167
+144C3	ANATOLIAN HIEROGLYPH A168
+144C4	ANATOLIAN HIEROGLYPH A169
+144C5	ANATOLIAN HIEROGLYPH A170
+144C6	ANATOLIAN HIEROGLYPH A171
+144C7	ANATOLIAN HIEROGLYPH A172
+144C8	ANATOLIAN HIEROGLYPH A173
+144C9	ANATOLIAN HIEROGLYPH A174
+144CA	ANATOLIAN HIEROGLYPH A175
+144CB	ANATOLIAN HIEROGLYPH A176
+144CC	ANATOLIAN HIEROGLYPH A177
+144CD	ANATOLIAN HIEROGLYPH A178
+144CE	ANATOLIAN HIEROGLYPH A179
+144CF	ANATOLIAN HIEROGLYPH A180
+144D0	ANATOLIAN HIEROGLYPH A181
+144D1	ANATOLIAN HIEROGLYPH A182
+144D2	ANATOLIAN HIEROGLYPH A183
+144D3	ANATOLIAN HIEROGLYPH A184
+144D4	ANATOLIAN HIEROGLYPH A185
+144D5	ANATOLIAN HIEROGLYPH A186
+144D6	ANATOLIAN HIEROGLYPH A187
+144D7	ANATOLIAN HIEROGLYPH A188
+144D8	ANATOLIAN HIEROGLYPH A189
+144D9	ANATOLIAN HIEROGLYPH A190
+144DA	ANATOLIAN HIEROGLYPH A191
+144DB	ANATOLIAN HIEROGLYPH A192
+144DC	ANATOLIAN HIEROGLYPH A193
+144DD	ANATOLIAN HIEROGLYPH A194
+144DE	ANATOLIAN HIEROGLYPH A195
+144DF	ANATOLIAN HIEROGLYPH A196
+144E0	ANATOLIAN HIEROGLYPH A197
+144E1	ANATOLIAN HIEROGLYPH A198
+144E2	ANATOLIAN HIEROGLYPH A199
+144E3	ANATOLIAN HIEROGLYPH A200
+144E4	ANATOLIAN HIEROGLYPH A201
+144E5	ANATOLIAN HIEROGLYPH A202
+144E6	ANATOLIAN HIEROGLYPH A202A
+144E7	ANATOLIAN HIEROGLYPH A202B
+144E8	ANATOLIAN HIEROGLYPH A203
+144E9	ANATOLIAN HIEROGLYPH A204
+144EA	ANATOLIAN HIEROGLYPH A205
+144EB	ANATOLIAN HIEROGLYPH A206
+144EC	ANATOLIAN HIEROGLYPH A207
+144ED	ANATOLIAN HIEROGLYPH A207A
+144EE	ANATOLIAN HIEROGLYPH A208
+144EF	ANATOLIAN HIEROGLYPH A209
+144F0	ANATOLIAN HIEROGLYPH A209A
+144F1	ANATOLIAN HIEROGLYPH A210
+144F2	ANATOLIAN HIEROGLYPH A211
+144F3	ANATOLIAN HIEROGLYPH A212
+144F4	ANATOLIAN HIEROGLYPH A213
+144F5	ANATOLIAN HIEROGLYPH A214
+144F6	ANATOLIAN HIEROGLYPH A215
+144F7	ANATOLIAN HIEROGLYPH A215A
+144F8	ANATOLIAN HIEROGLYPH A216
+144F9	ANATOLIAN HIEROGLYPH A216A
+144FA	ANATOLIAN HIEROGLYPH A217
+144FB	ANATOLIAN HIEROGLYPH A218
+144FC	ANATOLIAN HIEROGLYPH A219
+144FD	ANATOLIAN HIEROGLYPH A220
+144FE	ANATOLIAN HIEROGLYPH A221
+144FF	ANATOLIAN HIEROGLYPH A222
+14500	ANATOLIAN HIEROGLYPH A223
+14501	ANATOLIAN HIEROGLYPH A224
+14502	ANATOLIAN HIEROGLYPH A225
+14503	ANATOLIAN HIEROGLYPH A226
+14504	ANATOLIAN HIEROGLYPH A227
+14505	ANATOLIAN HIEROGLYPH A227A
+14506	ANATOLIAN HIEROGLYPH A228
+14507	ANATOLIAN HIEROGLYPH A229
+14508	ANATOLIAN HIEROGLYPH A230
+14509	ANATOLIAN HIEROGLYPH A231
+1450A	ANATOLIAN HIEROGLYPH A232
+1450B	ANATOLIAN HIEROGLYPH A233
+1450C	ANATOLIAN HIEROGLYPH A234
+1450D	ANATOLIAN HIEROGLYPH A235
+1450E	ANATOLIAN HIEROGLYPH A236
+1450F	ANATOLIAN HIEROGLYPH A237
+14510	ANATOLIAN HIEROGLYPH A238
+14511	ANATOLIAN HIEROGLYPH A239
+14512	ANATOLIAN HIEROGLYPH A240
+14513	ANATOLIAN HIEROGLYPH A241
+14514	ANATOLIAN HIEROGLYPH A242
+14515	ANATOLIAN HIEROGLYPH A243
+14516	ANATOLIAN HIEROGLYPH A244
+14517	ANATOLIAN HIEROGLYPH A245
+14518	ANATOLIAN HIEROGLYPH A246
+14519	ANATOLIAN HIEROGLYPH A247
+1451A	ANATOLIAN HIEROGLYPH A248
+1451B	ANATOLIAN HIEROGLYPH A249
+1451C	ANATOLIAN HIEROGLYPH A250
+1451D	ANATOLIAN HIEROGLYPH A251
+1451E	ANATOLIAN HIEROGLYPH A252
+1451F	ANATOLIAN HIEROGLYPH A253
+14520	ANATOLIAN HIEROGLYPH A254
+14521	ANATOLIAN HIEROGLYPH A255
+14522	ANATOLIAN HIEROGLYPH A256
+14523	ANATOLIAN HIEROGLYPH A257
+14524	ANATOLIAN HIEROGLYPH A258
+14525	ANATOLIAN HIEROGLYPH A259
+14526	ANATOLIAN HIEROGLYPH A260
+14527	ANATOLIAN HIEROGLYPH A261
+14528	ANATOLIAN HIEROGLYPH A262
+14529	ANATOLIAN HIEROGLYPH A263
+1452A	ANATOLIAN HIEROGLYPH A264
+1452B	ANATOLIAN HIEROGLYPH A265
+1452C	ANATOLIAN HIEROGLYPH A266
+1452D	ANATOLIAN HIEROGLYPH A267
+1452E	ANATOLIAN HIEROGLYPH A267A
+1452F	ANATOLIAN HIEROGLYPH A268
+14530	ANATOLIAN HIEROGLYPH A269
+14531	ANATOLIAN HIEROGLYPH A270
+14532	ANATOLIAN HIEROGLYPH A271
+14533	ANATOLIAN HIEROGLYPH A272
+14534	ANATOLIAN HIEROGLYPH A273
+14535	ANATOLIAN HIEROGLYPH A274
+14536	ANATOLIAN HIEROGLYPH A275
+14537	ANATOLIAN HIEROGLYPH A276
+14538	ANATOLIAN HIEROGLYPH A277
+14539	ANATOLIAN HIEROGLYPH A278
+1453A	ANATOLIAN HIEROGLYPH A279
+1453B	ANATOLIAN HIEROGLYPH A280
+1453C	ANATOLIAN HIEROGLYPH A281
+1453D	ANATOLIAN HIEROGLYPH A282
+1453E	ANATOLIAN HIEROGLYPH A283
+1453F	ANATOLIAN HIEROGLYPH A284
+14540	ANATOLIAN HIEROGLYPH A285
+14541	ANATOLIAN HIEROGLYPH A286
+14542	ANATOLIAN HIEROGLYPH A287
+14543	ANATOLIAN HIEROGLYPH A288
+14544	ANATOLIAN HIEROGLYPH A289
+14545	ANATOLIAN HIEROGLYPH A289A
+14546	ANATOLIAN HIEROGLYPH A290
+14547	ANATOLIAN HIEROGLYPH A291
+14548	ANATOLIAN HIEROGLYPH A292
+14549	ANATOLIAN HIEROGLYPH A293
+1454A	ANATOLIAN HIEROGLYPH A294
+1454B	ANATOLIAN HIEROGLYPH A294A
+1454C	ANATOLIAN HIEROGLYPH A295
+1454D	ANATOLIAN HIEROGLYPH A296
+1454E	ANATOLIAN HIEROGLYPH A297
+1454F	ANATOLIAN HIEROGLYPH A298
+14550	ANATOLIAN HIEROGLYPH A299
+14551	ANATOLIAN HIEROGLYPH A299A
+14552	ANATOLIAN HIEROGLYPH A300
+14553	ANATOLIAN HIEROGLYPH A301
+14554	ANATOLIAN HIEROGLYPH A302
+14555	ANATOLIAN HIEROGLYPH A303
+14556	ANATOLIAN HIEROGLYPH A304
+14557	ANATOLIAN HIEROGLYPH A305
+14558	ANATOLIAN HIEROGLYPH A306
+14559	ANATOLIAN HIEROGLYPH A307
+1455A	ANATOLIAN HIEROGLYPH A308
+1455B	ANATOLIAN HIEROGLYPH A309
+1455C	ANATOLIAN HIEROGLYPH A309A
+1455D	ANATOLIAN HIEROGLYPH A310
+1455E	ANATOLIAN HIEROGLYPH A311
+1455F	ANATOLIAN HIEROGLYPH A312
+14560	ANATOLIAN HIEROGLYPH A313
+14561	ANATOLIAN HIEROGLYPH A314
+14562	ANATOLIAN HIEROGLYPH A315
+14563	ANATOLIAN HIEROGLYPH A316
+14564	ANATOLIAN HIEROGLYPH A317
+14565	ANATOLIAN HIEROGLYPH A318
+14566	ANATOLIAN HIEROGLYPH A319
+14567	ANATOLIAN HIEROGLYPH A320
+14568	ANATOLIAN HIEROGLYPH A321
+14569	ANATOLIAN HIEROGLYPH A322
+1456A	ANATOLIAN HIEROGLYPH A323
+1456B	ANATOLIAN HIEROGLYPH A324
+1456C	ANATOLIAN HIEROGLYPH A325
+1456D	ANATOLIAN HIEROGLYPH A326
+1456E	ANATOLIAN HIEROGLYPH A327
+1456F	ANATOLIAN HIEROGLYPH A328
+14570	ANATOLIAN HIEROGLYPH A329
+14571	ANATOLIAN HIEROGLYPH A329A
+14572	ANATOLIAN HIEROGLYPH A330
+14573	ANATOLIAN HIEROGLYPH A331
+14574	ANATOLIAN HIEROGLYPH A332A
+14575	ANATOLIAN HIEROGLYPH A332B
+14576	ANATOLIAN HIEROGLYPH A332C
+14577	ANATOLIAN HIEROGLYPH A333
+14578	ANATOLIAN HIEROGLYPH A334
+14579	ANATOLIAN HIEROGLYPH A335
+1457A	ANATOLIAN HIEROGLYPH A336
+1457B	ANATOLIAN HIEROGLYPH A336A
+1457C	ANATOLIAN HIEROGLYPH A336B
+1457D	ANATOLIAN HIEROGLYPH A336C
+1457E	ANATOLIAN HIEROGLYPH A337
+1457F	ANATOLIAN HIEROGLYPH A338
+14580	ANATOLIAN HIEROGLYPH A339
+14581	ANATOLIAN HIEROGLYPH A340
+14582	ANATOLIAN HIEROGLYPH A341
+14583	ANATOLIAN HIEROGLYPH A342
+14584	ANATOLIAN HIEROGLYPH A343
+14585	ANATOLIAN HIEROGLYPH A344
+14586	ANATOLIAN HIEROGLYPH A345
+14587	ANATOLIAN HIEROGLYPH A346
+14588	ANATOLIAN HIEROGLYPH A347
+14589	ANATOLIAN HIEROGLYPH A348
+1458A	ANATOLIAN HIEROGLYPH A349
+1458B	ANATOLIAN HIEROGLYPH A350
+1458C	ANATOLIAN HIEROGLYPH A351
+1458D	ANATOLIAN HIEROGLYPH A352
+1458E	ANATOLIAN HIEROGLYPH A353
+1458F	ANATOLIAN HIEROGLYPH A354
+14590	ANATOLIAN HIEROGLYPH A355
+14591	ANATOLIAN HIEROGLYPH A356
+14592	ANATOLIAN HIEROGLYPH A357
+14593	ANATOLIAN HIEROGLYPH A358
+14594	ANATOLIAN HIEROGLYPH A359
+14595	ANATOLIAN HIEROGLYPH A359A
+14596	ANATOLIAN HIEROGLYPH A360
+14597	ANATOLIAN HIEROGLYPH A361
+14598	ANATOLIAN HIEROGLYPH A362
+14599	ANATOLIAN HIEROGLYPH A363
+1459A	ANATOLIAN HIEROGLYPH A364
+1459B	ANATOLIAN HIEROGLYPH A364A
+1459C	ANATOLIAN HIEROGLYPH A365
+1459D	ANATOLIAN HIEROGLYPH A366
+1459E	ANATOLIAN HIEROGLYPH A367
+1459F	ANATOLIAN HIEROGLYPH A368
+145A0	ANATOLIAN HIEROGLYPH A368A
+145A1	ANATOLIAN HIEROGLYPH A369
+145A2	ANATOLIAN HIEROGLYPH A370
+145A3	ANATOLIAN HIEROGLYPH A371
+145A4	ANATOLIAN HIEROGLYPH A371A
+145A5	ANATOLIAN HIEROGLYPH A372
+145A6	ANATOLIAN HIEROGLYPH A373
+145A7	ANATOLIAN HIEROGLYPH A374
+145A8	ANATOLIAN HIEROGLYPH A375
+145A9	ANATOLIAN HIEROGLYPH A376
+145AA	ANATOLIAN HIEROGLYPH A377
+145AB	ANATOLIAN HIEROGLYPH A378
+145AC	ANATOLIAN HIEROGLYPH A379
+145AD	ANATOLIAN HIEROGLYPH A380
+145AE	ANATOLIAN HIEROGLYPH A381
+145AF	ANATOLIAN HIEROGLYPH A381A
+145B0	ANATOLIAN HIEROGLYPH A382
+145B1	ANATOLIAN HIEROGLYPH A383 RA OR RI
+145B2	ANATOLIAN HIEROGLYPH A383A
+145B3	ANATOLIAN HIEROGLYPH A384
+145B4	ANATOLIAN HIEROGLYPH A385
+145B5	ANATOLIAN HIEROGLYPH A386
+145B6	ANATOLIAN HIEROGLYPH A386A
+145B7	ANATOLIAN HIEROGLYPH A387
+145B8	ANATOLIAN HIEROGLYPH A388
+145B9	ANATOLIAN HIEROGLYPH A389
+145BA	ANATOLIAN HIEROGLYPH A390
+145BB	ANATOLIAN HIEROGLYPH A391
+145BC	ANATOLIAN HIEROGLYPH A392
+145BD	ANATOLIAN HIEROGLYPH A393 EIGHT
+145BE	ANATOLIAN HIEROGLYPH A394
+145BF	ANATOLIAN HIEROGLYPH A395
+145C0	ANATOLIAN HIEROGLYPH A396
+145C1	ANATOLIAN HIEROGLYPH A397
+145C2	ANATOLIAN HIEROGLYPH A398
+145C3	ANATOLIAN HIEROGLYPH A399
+145C4	ANATOLIAN HIEROGLYPH A400
+145C5	ANATOLIAN HIEROGLYPH A401
+145C6	ANATOLIAN HIEROGLYPH A402
+145C7	ANATOLIAN HIEROGLYPH A403
+145C8	ANATOLIAN HIEROGLYPH A404
+145C9	ANATOLIAN HIEROGLYPH A405
+145CA	ANATOLIAN HIEROGLYPH A406
+145CB	ANATOLIAN HIEROGLYPH A407
+145CC	ANATOLIAN HIEROGLYPH A408
+145CD	ANATOLIAN HIEROGLYPH A409
+145CE	ANATOLIAN HIEROGLYPH A410 BEGIN LOGOGRAM MARK
+145CF	ANATOLIAN HIEROGLYPH A410A END LOGOGRAM MARK
+145D0	ANATOLIAN HIEROGLYPH A411
+145D1	ANATOLIAN HIEROGLYPH A412
+145D2	ANATOLIAN HIEROGLYPH A413
+145D3	ANATOLIAN HIEROGLYPH A414
+145D4	ANATOLIAN HIEROGLYPH A415
+145D5	ANATOLIAN HIEROGLYPH A416
+145D6	ANATOLIAN HIEROGLYPH A417
+145D7	ANATOLIAN HIEROGLYPH A418
+145D8	ANATOLIAN HIEROGLYPH A419
+145D9	ANATOLIAN HIEROGLYPH A420
+145DA	ANATOLIAN HIEROGLYPH A421
+145DB	ANATOLIAN HIEROGLYPH A422
+145DC	ANATOLIAN HIEROGLYPH A423
+145DD	ANATOLIAN HIEROGLYPH A424
+145DE	ANATOLIAN HIEROGLYPH A425
+145DF	ANATOLIAN HIEROGLYPH A426
+145E0	ANATOLIAN HIEROGLYPH A427
+145E1	ANATOLIAN HIEROGLYPH A428
+145E2	ANATOLIAN HIEROGLYPH A429
+145E3	ANATOLIAN HIEROGLYPH A430
+145E4	ANATOLIAN HIEROGLYPH A431
+145E5	ANATOLIAN HIEROGLYPH A432
+145E6	ANATOLIAN HIEROGLYPH A433
+145E7	ANATOLIAN HIEROGLYPH A434
+145E8	ANATOLIAN HIEROGLYPH A435
+145E9	ANATOLIAN HIEROGLYPH A436
+145EA	ANATOLIAN HIEROGLYPH A437
+145EB	ANATOLIAN HIEROGLYPH A438
+145EC	ANATOLIAN HIEROGLYPH A439
+145ED	ANATOLIAN HIEROGLYPH A440
+145EE	ANATOLIAN HIEROGLYPH A441
+145EF	ANATOLIAN HIEROGLYPH A442
+145F0	ANATOLIAN HIEROGLYPH A443
+145F1	ANATOLIAN HIEROGLYPH A444
+145F2	ANATOLIAN HIEROGLYPH A445
+145F3	ANATOLIAN HIEROGLYPH A446
+145F4	ANATOLIAN HIEROGLYPH A447
+145F5	ANATOLIAN HIEROGLYPH A448
+145F6	ANATOLIAN HIEROGLYPH A449
+145F7	ANATOLIAN HIEROGLYPH A450
+145F8	ANATOLIAN HIEROGLYPH A450A
+145F9	ANATOLIAN HIEROGLYPH A451
+145FA	ANATOLIAN HIEROGLYPH A452
+145FB	ANATOLIAN HIEROGLYPH A453
+145FC	ANATOLIAN HIEROGLYPH A454
+145FD	ANATOLIAN HIEROGLYPH A455
+145FE	ANATOLIAN HIEROGLYPH A456
+145FF	ANATOLIAN HIEROGLYPH A457
+14600	ANATOLIAN HIEROGLYPH A457A
+14601	ANATOLIAN HIEROGLYPH A458
+14602	ANATOLIAN HIEROGLYPH A459
+14603	ANATOLIAN HIEROGLYPH A460
+14604	ANATOLIAN HIEROGLYPH A461
+14605	ANATOLIAN HIEROGLYPH A462
+14606	ANATOLIAN HIEROGLYPH A463
+14607	ANATOLIAN HIEROGLYPH A464
+14608	ANATOLIAN HIEROGLYPH A465
+14609	ANATOLIAN HIEROGLYPH A466
+1460A	ANATOLIAN HIEROGLYPH A467
+1460B	ANATOLIAN HIEROGLYPH A468
+1460C	ANATOLIAN HIEROGLYPH A469
+1460D	ANATOLIAN HIEROGLYPH A470
+1460E	ANATOLIAN HIEROGLYPH A471
+1460F	ANATOLIAN HIEROGLYPH A472
+14610	ANATOLIAN HIEROGLYPH A473
+14611	ANATOLIAN HIEROGLYPH A474
+14612	ANATOLIAN HIEROGLYPH A475
+14613	ANATOLIAN HIEROGLYPH A476
+14614	ANATOLIAN HIEROGLYPH A477
+14615	ANATOLIAN HIEROGLYPH A478
+14616	ANATOLIAN HIEROGLYPH A479
+14617	ANATOLIAN HIEROGLYPH A480
+14618	ANATOLIAN HIEROGLYPH A481
+14619	ANATOLIAN HIEROGLYPH A482
+1461A	ANATOLIAN HIEROGLYPH A483
+1461B	ANATOLIAN HIEROGLYPH A484
+1461C	ANATOLIAN HIEROGLYPH A485
+1461D	ANATOLIAN HIEROGLYPH A486
+1461E	ANATOLIAN HIEROGLYPH A487
+1461F	ANATOLIAN HIEROGLYPH A488
+14620	ANATOLIAN HIEROGLYPH A489
+14621	ANATOLIAN HIEROGLYPH A490
+14622	ANATOLIAN HIEROGLYPH A491
+14623	ANATOLIAN HIEROGLYPH A492
+14624	ANATOLIAN HIEROGLYPH A493
+14625	ANATOLIAN HIEROGLYPH A494
+14626	ANATOLIAN HIEROGLYPH A495
+14627	ANATOLIAN HIEROGLYPH A496
+14628	ANATOLIAN HIEROGLYPH A497
+14629	ANATOLIAN HIEROGLYPH A501
+1462A	ANATOLIAN HIEROGLYPH A502
+1462B	ANATOLIAN HIEROGLYPH A503
+1462C	ANATOLIAN HIEROGLYPH A504
+1462D	ANATOLIAN HIEROGLYPH A505
+1462E	ANATOLIAN HIEROGLYPH A506
+1462F	ANATOLIAN HIEROGLYPH A507
+14630	ANATOLIAN HIEROGLYPH A508
+14631	ANATOLIAN HIEROGLYPH A509
+14632	ANATOLIAN HIEROGLYPH A510
+14633	ANATOLIAN HIEROGLYPH A511
+14634	ANATOLIAN HIEROGLYPH A512
+14635	ANATOLIAN HIEROGLYPH A513
+14636	ANATOLIAN HIEROGLYPH A514
+14637	ANATOLIAN HIEROGLYPH A515
+14638	ANATOLIAN HIEROGLYPH A516
+14639	ANATOLIAN HIEROGLYPH A517
+1463A	ANATOLIAN HIEROGLYPH A518
+1463B	ANATOLIAN HIEROGLYPH A519
+1463C	ANATOLIAN HIEROGLYPH A520
+1463D	ANATOLIAN HIEROGLYPH A521
+1463E	ANATOLIAN HIEROGLYPH A522
+1463F	ANATOLIAN HIEROGLYPH A523
+14640	ANATOLIAN HIEROGLYPH A524
+14641	ANATOLIAN HIEROGLYPH A525
+14642	ANATOLIAN HIEROGLYPH A526
+14643	ANATOLIAN HIEROGLYPH A527
+14644	ANATOLIAN HIEROGLYPH A528
+14645	ANATOLIAN HIEROGLYPH A529
+14646	ANATOLIAN HIEROGLYPH A530
+16800	BAMUM LETTER PHASE-A NGKUE MFON
+16801	BAMUM LETTER PHASE-A GBIEE FON
+16802	BAMUM LETTER PHASE-A PON MFON PIPAEMGBIEE
+16803	BAMUM LETTER PHASE-A PON MFON PIPAEMBA
+16804	BAMUM LETTER PHASE-A NAA MFON
+16805	BAMUM LETTER PHASE-A SHUENSHUET
+16806	BAMUM LETTER PHASE-A TITA MFON
+16807	BAMUM LETTER PHASE-A NZA MFON
+16808	BAMUM LETTER PHASE-A SHINDA PA NJI
+16809	BAMUM LETTER PHASE-A PON PA NJI PIPAEMGBIEE
+1680A	BAMUM LETTER PHASE-A PON PA NJI PIPAEMBA
+1680B	BAMUM LETTER PHASE-A MAEMBGBIEE
+1680C	BAMUM LETTER PHASE-A TU MAEMBA
+1680D	BAMUM LETTER PHASE-A NGANGU
+1680E	BAMUM LETTER PHASE-A MAEMVEUX
+1680F	BAMUM LETTER PHASE-A MANSUAE
+16810	BAMUM LETTER PHASE-A MVEUAENGAM
+16811	BAMUM LETTER PHASE-A SEUNYAM
+16812	BAMUM LETTER PHASE-A NTOQPEN
+16813	BAMUM LETTER PHASE-A KEUKEUTNDA
+16814	BAMUM LETTER PHASE-A NKINDI
+16815	BAMUM LETTER PHASE-A SUU
+16816	BAMUM LETTER PHASE-A NGKUENZEUM
+16817	BAMUM LETTER PHASE-A LAPAQ
+16818	BAMUM LETTER PHASE-A LET KUT
+16819	BAMUM LETTER PHASE-A NTAP MFAA
+1681A	BAMUM LETTER PHASE-A MAEKEUP
+1681B	BAMUM LETTER PHASE-A PASHAE
+1681C	BAMUM LETTER PHASE-A GHEUAERAE
+1681D	BAMUM LETTER PHASE-A PAMSHAE
+1681E	BAMUM LETTER PHASE-A MON NGGEUAET
+1681F	BAMUM LETTER PHASE-A NZUN MEUT
+16820	BAMUM LETTER PHASE-A U YUQ NAE
+16821	BAMUM LETTER PHASE-A GHEUAEGHEUAE
+16822	BAMUM LETTER PHASE-A NTAP NTAA
+16823	BAMUM LETTER PHASE-A SISA
+16824	BAMUM LETTER PHASE-A MGBASA
+16825	BAMUM LETTER PHASE-A MEUNJOMNDEUQ
+16826	BAMUM LETTER PHASE-A MOOMPUQ
+16827	BAMUM LETTER PHASE-A KAFA
+16828	BAMUM LETTER PHASE-A PA LEERAEWA
+16829	BAMUM LETTER PHASE-A NDA LEERAEWA
+1682A	BAMUM LETTER PHASE-A PET
+1682B	BAMUM LETTER PHASE-A MAEMKPEN
+1682C	BAMUM LETTER PHASE-A NIKA
+1682D	BAMUM LETTER PHASE-A PUP
+1682E	BAMUM LETTER PHASE-A TUAEP
+1682F	BAMUM LETTER PHASE-A LUAEP
+16830	BAMUM LETTER PHASE-A SONJAM
+16831	BAMUM LETTER PHASE-A TEUTEUWEN
+16832	BAMUM LETTER PHASE-A MAENYI
+16833	BAMUM LETTER PHASE-A KET
+16834	BAMUM LETTER PHASE-A NDAANGGEUAET
+16835	BAMUM LETTER PHASE-A KUOQ
+16836	BAMUM LETTER PHASE-A MOOMEUT
+16837	BAMUM LETTER PHASE-A SHUM
+16838	BAMUM LETTER PHASE-A LOMMAE
+16839	BAMUM LETTER PHASE-A FIRI
+1683A	BAMUM LETTER PHASE-A ROM
+1683B	BAMUM LETTER PHASE-A KPOQ
+1683C	BAMUM LETTER PHASE-A SOQ
+1683D	BAMUM LETTER PHASE-A MAP PIEET
+1683E	BAMUM LETTER PHASE-A SHIRAE
+1683F	BAMUM LETTER PHASE-A NTAP
+16840	BAMUM LETTER PHASE-A SHOQ NSHUT YUM
+16841	BAMUM LETTER PHASE-A NYIT MONGKEUAEQ
+16842	BAMUM LETTER PHASE-A PAARAE
+16843	BAMUM LETTER PHASE-A NKAARAE
+16844	BAMUM LETTER PHASE-A UNKNOWN
+16845	BAMUM LETTER PHASE-A NGGEN
+16846	BAMUM LETTER PHASE-A MAESI
+16847	BAMUM LETTER PHASE-A NJAM
+16848	BAMUM LETTER PHASE-A MBANYI
+16849	BAMUM LETTER PHASE-A NYET
+1684A	BAMUM LETTER PHASE-A TEUAEN
+1684B	BAMUM LETTER PHASE-A SOT
+1684C	BAMUM LETTER PHASE-A PAAM
+1684D	BAMUM LETTER PHASE-A NSHIEE
+1684E	BAMUM LETTER PHASE-A MAEM
+1684F	BAMUM LETTER PHASE-A NYI
+16850	BAMUM LETTER PHASE-A KAQ
+16851	BAMUM LETTER PHASE-A NSHA
+16852	BAMUM LETTER PHASE-A VEE
+16853	BAMUM LETTER PHASE-A LU
+16854	BAMUM LETTER PHASE-A NEN
+16855	BAMUM LETTER PHASE-A NAQ
+16856	BAMUM LETTER PHASE-A MBAQ
+16857	BAMUM LETTER PHASE-B NSHUET
+16858	BAMUM LETTER PHASE-B TU MAEMGBIEE
+16859	BAMUM LETTER PHASE-B SIEE
+1685A	BAMUM LETTER PHASE-B SET TU
+1685B	BAMUM LETTER PHASE-B LOM NTEUM
+1685C	BAMUM LETTER PHASE-B MBA MAELEE
+1685D	BAMUM LETTER PHASE-B KIEEM
+1685E	BAMUM LETTER PHASE-B YEURAE
+1685F	BAMUM LETTER PHASE-B MBAARAE
+16860	BAMUM LETTER PHASE-B KAM
+16861	BAMUM LETTER PHASE-B PEESHI
+16862	BAMUM LETTER PHASE-B YAFU LEERAEWA
+16863	BAMUM LETTER PHASE-B LAM NSHUT NYAM
+16864	BAMUM LETTER PHASE-B NTIEE SHEUOQ
+16865	BAMUM LETTER PHASE-B NDU NJAA
+16866	BAMUM LETTER PHASE-B GHEUGHEUAEM
+16867	BAMUM LETTER PHASE-B PIT
+16868	BAMUM LETTER PHASE-B TU NSIEE
+16869	BAMUM LETTER PHASE-B SHET NJAQ
+1686A	BAMUM LETTER PHASE-B SHEUAEQTU
+1686B	BAMUM LETTER PHASE-B MFON TEUAEQ
+1686C	BAMUM LETTER PHASE-B MBIT MBAAKET
+1686D	BAMUM LETTER PHASE-B NYI NTEUM
+1686E	BAMUM LETTER PHASE-B KEUPUQ
+1686F	BAMUM LETTER PHASE-B GHEUGHEN
+16870	BAMUM LETTER PHASE-B KEUYEUX
+16871	BAMUM LETTER PHASE-B LAANAE
+16872	BAMUM LETTER PHASE-B PARUM
+16873	BAMUM LETTER PHASE-B VEUM
+16874	BAMUM LETTER PHASE-B NGKINDI MVOP
+16875	BAMUM LETTER PHASE-B NGGEU MBU
+16876	BAMUM LETTER PHASE-B WUAET
+16877	BAMUM LETTER PHASE-B SAKEUAE
+16878	BAMUM LETTER PHASE-B TAAM
+16879	BAMUM LETTER PHASE-B MEUQ
+1687A	BAMUM LETTER PHASE-B NGGUOQ
+1687B	BAMUM LETTER PHASE-B NGGUOQ LARGE
+1687C	BAMUM LETTER PHASE-B MFIYAQ
+1687D	BAMUM LETTER PHASE-B SUE
+1687E	BAMUM LETTER PHASE-B MBEURI
+1687F	BAMUM LETTER PHASE-B MONTIEEN
+16880	BAMUM LETTER PHASE-B NYAEMAE
+16881	BAMUM LETTER PHASE-B PUNGAAM
+16882	BAMUM LETTER PHASE-B MEUT NGGEET
+16883	BAMUM LETTER PHASE-B FEUX
+16884	BAMUM LETTER PHASE-B MBUOQ
+16885	BAMUM LETTER PHASE-B FEE
+16886	BAMUM LETTER PHASE-B KEUAEM
+16887	BAMUM LETTER PHASE-B MA NJEUAENA
+16888	BAMUM LETTER PHASE-B MA NJUQA
+16889	BAMUM LETTER PHASE-B LET
+1688A	BAMUM LETTER PHASE-B NGGAAM
+1688B	BAMUM LETTER PHASE-B NSEN
+1688C	BAMUM LETTER PHASE-B MA
+1688D	BAMUM LETTER PHASE-B KIQ
+1688E	BAMUM LETTER PHASE-B NGOM
+1688F	BAMUM LETTER PHASE-C NGKUE MAEMBA
+16890	BAMUM LETTER PHASE-C NZA
+16891	BAMUM LETTER PHASE-C YUM
+16892	BAMUM LETTER PHASE-C WANGKUOQ
+16893	BAMUM LETTER PHASE-C NGGEN
+16894	BAMUM LETTER PHASE-C NDEUAEREE
+16895	BAMUM LETTER PHASE-C NGKAQ
+16896	BAMUM LETTER PHASE-C GHARAE
+16897	BAMUM LETTER PHASE-C MBEEKEET
+16898	BAMUM LETTER PHASE-C GBAYI
+16899	BAMUM LETTER PHASE-C NYIR MKPARAQ MEUN
+1689A	BAMUM LETTER PHASE-C NTU MBIT
+1689B	BAMUM LETTER PHASE-C MBEUM
+1689C	BAMUM LETTER PHASE-C PIRIEEN
+1689D	BAMUM LETTER PHASE-C NDOMBU
+1689E	BAMUM LETTER PHASE-C MBAA CABBAGE-TREE
+1689F	BAMUM LETTER PHASE-C KEUSHEUAEP
+168A0	BAMUM LETTER PHASE-C GHAP
+168A1	BAMUM LETTER PHASE-C KEUKAQ
+168A2	BAMUM LETTER PHASE-C YU MUOMAE
+168A3	BAMUM LETTER PHASE-C NZEUM
+168A4	BAMUM LETTER PHASE-C MBUE
+168A5	BAMUM LETTER PHASE-C NSEUAEN
+168A6	BAMUM LETTER PHASE-C MBIT
+168A7	BAMUM LETTER PHASE-C YEUQ
+168A8	BAMUM LETTER PHASE-C KPARAQ
+168A9	BAMUM LETTER PHASE-C KAA
+168AA	BAMUM LETTER PHASE-C SEUX
+168AB	BAMUM LETTER PHASE-C NDIDA
+168AC	BAMUM LETTER PHASE-C TAASHAE
+168AD	BAMUM LETTER PHASE-C NJUEQ
+168AE	BAMUM LETTER PHASE-C TITA YUE
+168AF	BAMUM LETTER PHASE-C SUAET
+168B0	BAMUM LETTER PHASE-C NGGUAEN NYAM
+168B1	BAMUM LETTER PHASE-C VEUX
+168B2	BAMUM LETTER PHASE-C NANSANAQ
+168B3	BAMUM LETTER PHASE-C MA KEUAERI
+168B4	BAMUM LETTER PHASE-C NTAA
+168B5	BAMUM LETTER PHASE-C NGGUON
+168B6	BAMUM LETTER PHASE-C LAP
+168B7	BAMUM LETTER PHASE-C MBIRIEEN
+168B8	BAMUM LETTER PHASE-C MGBASAQ
+168B9	BAMUM LETTER PHASE-C NTEUNGBA
+168BA	BAMUM LETTER PHASE-C TEUTEUX
+168BB	BAMUM LETTER PHASE-C NGGUM
+168BC	BAMUM LETTER PHASE-C FUE
+168BD	BAMUM LETTER PHASE-C NDEUT
+168BE	BAMUM LETTER PHASE-C NSA
+168BF	BAMUM LETTER PHASE-C NSHAQ
+168C0	BAMUM LETTER PHASE-C BUNG
+168C1	BAMUM LETTER PHASE-C VEUAEPEN
+168C2	BAMUM LETTER PHASE-C MBERAE
+168C3	BAMUM LETTER PHASE-C RU
+168C4	BAMUM LETTER PHASE-C NJAEM
+168C5	BAMUM LETTER PHASE-C LAM
+168C6	BAMUM LETTER PHASE-C TITUAEP
+168C7	BAMUM LETTER PHASE-C NSUOT NGOM
+168C8	BAMUM LETTER PHASE-C NJEEEE
+168C9	BAMUM LETTER PHASE-C KET
+168CA	BAMUM LETTER PHASE-C NGGU
+168CB	BAMUM LETTER PHASE-C MAESI
+168CC	BAMUM LETTER PHASE-C MBUAEM
+168CD	BAMUM LETTER PHASE-C LU
+168CE	BAMUM LETTER PHASE-C KUT
+168CF	BAMUM LETTER PHASE-C NJAM
+168D0	BAMUM LETTER PHASE-C NGOM
+168D1	BAMUM LETTER PHASE-C WUP
+168D2	BAMUM LETTER PHASE-C NGGUEET
+168D3	BAMUM LETTER PHASE-C NSOM
+168D4	BAMUM LETTER PHASE-C NTEN
+168D5	BAMUM LETTER PHASE-C KUOP NKAARAE
+168D6	BAMUM LETTER PHASE-C NSUN
+168D7	BAMUM LETTER PHASE-C NDAM
+168D8	BAMUM LETTER PHASE-C MA NSIEE
+168D9	BAMUM LETTER PHASE-C YAA
+168DA	BAMUM LETTER PHASE-C NDAP
+168DB	BAMUM LETTER PHASE-C SHUEQ
+168DC	BAMUM LETTER PHASE-C SETFON
+168DD	BAMUM LETTER PHASE-C MBI
+168DE	BAMUM LETTER PHASE-C MAEMBA
+168DF	BAMUM LETTER PHASE-C MBANYI
+168E0	BAMUM LETTER PHASE-C KEUSEUX
+168E1	BAMUM LETTER PHASE-C MBEUX
+168E2	BAMUM LETTER PHASE-C KEUM
+168E3	BAMUM LETTER PHASE-C MBAA PICKET
+168E4	BAMUM LETTER PHASE-C YUWOQ
+168E5	BAMUM LETTER PHASE-C NJEUX
+168E6	BAMUM LETTER PHASE-C MIEE
+168E7	BAMUM LETTER PHASE-C MUAE
+168E8	BAMUM LETTER PHASE-C SHIQ
+168E9	BAMUM LETTER PHASE-C KEN LAW
+168EA	BAMUM LETTER PHASE-C KEN FATIGUE
+168EB	BAMUM LETTER PHASE-C NGAQ
+168EC	BAMUM LETTER PHASE-C NAQ
+168ED	BAMUM LETTER PHASE-C LIQ
+168EE	BAMUM LETTER PHASE-C PIN
+168EF	BAMUM LETTER PHASE-C PEN
+168F0	BAMUM LETTER PHASE-C TET
+168F1	BAMUM LETTER PHASE-D MBUO
+168F2	BAMUM LETTER PHASE-D WAP
+168F3	BAMUM LETTER PHASE-D NJI
+168F4	BAMUM LETTER PHASE-D MFON
+168F5	BAMUM LETTER PHASE-D NJIEE
+168F6	BAMUM LETTER PHASE-D LIEE
+168F7	BAMUM LETTER PHASE-D NJEUT
+168F8	BAMUM LETTER PHASE-D NSHEE
+168F9	BAMUM LETTER PHASE-D NGGAAMAE
+168FA	BAMUM LETTER PHASE-D NYAM
+168FB	BAMUM LETTER PHASE-D WUAEN
+168FC	BAMUM LETTER PHASE-D NGKUN
+168FD	BAMUM LETTER PHASE-D SHEE
+168FE	BAMUM LETTER PHASE-D NGKAP
+168FF	BAMUM LETTER PHASE-D KEUAETMEUN
+16900	BAMUM LETTER PHASE-D TEUT
+16901	BAMUM LETTER PHASE-D SHEUAE
+16902	BAMUM LETTER PHASE-D NJAP
+16903	BAMUM LETTER PHASE-D SUE
+16904	BAMUM LETTER PHASE-D KET
+16905	BAMUM LETTER PHASE-D YAEMMAE
+16906	BAMUM LETTER PHASE-D KUOM
+16907	BAMUM LETTER PHASE-D SAP
+16908	BAMUM LETTER PHASE-D MFEUT
+16909	BAMUM LETTER PHASE-D NDEUX
+1690A	BAMUM LETTER PHASE-D MALEERI
+1690B	BAMUM LETTER PHASE-D MEUT
+1690C	BAMUM LETTER PHASE-D SEUAEQ
+1690D	BAMUM LETTER PHASE-D YEN
+1690E	BAMUM LETTER PHASE-D NJEUAEM
+1690F	BAMUM LETTER PHASE-D KEUOT MBUAE
+16910	BAMUM LETTER PHASE-D NGKEURI
+16911	BAMUM LETTER PHASE-D TU
+16912	BAMUM LETTER PHASE-D GHAA
+16913	BAMUM LETTER PHASE-D NGKYEE
+16914	BAMUM LETTER PHASE-D FEUFEUAET
+16915	BAMUM LETTER PHASE-D NDEE
+16916	BAMUM LETTER PHASE-D MGBOFUM
+16917	BAMUM LETTER PHASE-D LEUAEP
+16918	BAMUM LETTER PHASE-D NDON
+16919	BAMUM LETTER PHASE-D MONI
+1691A	BAMUM LETTER PHASE-D MGBEUN
+1691B	BAMUM LETTER PHASE-D PUUT
+1691C	BAMUM LETTER PHASE-D MGBIEE
+1691D	BAMUM LETTER PHASE-D MFO
+1691E	BAMUM LETTER PHASE-D LUM
+1691F	BAMUM LETTER PHASE-D NSIEEP
+16920	BAMUM LETTER PHASE-D MBAA
+16921	BAMUM LETTER PHASE-D KWAET
+16922	BAMUM LETTER PHASE-D NYET
+16923	BAMUM LETTER PHASE-D TEUAEN
+16924	BAMUM LETTER PHASE-D SOT
+16925	BAMUM LETTER PHASE-D YUWOQ
+16926	BAMUM LETTER PHASE-D KEUM
+16927	BAMUM LETTER PHASE-D RAEM
+16928	BAMUM LETTER PHASE-D TEEEE
+16929	BAMUM LETTER PHASE-D NGKEUAEQ
+1692A	BAMUM LETTER PHASE-D MFEUAE
+1692B	BAMUM LETTER PHASE-D NSIEET
+1692C	BAMUM LETTER PHASE-D KEUP
+1692D	BAMUM LETTER PHASE-D PIP
+1692E	BAMUM LETTER PHASE-D PEUTAE
+1692F	BAMUM LETTER PHASE-D NYUE
+16930	BAMUM LETTER PHASE-D LET
+16931	BAMUM LETTER PHASE-D NGGAAM
+16932	BAMUM LETTER PHASE-D MFIEE
+16933	BAMUM LETTER PHASE-D NGGWAEN
+16934	BAMUM LETTER PHASE-D YUOM
+16935	BAMUM LETTER PHASE-D PAP
+16936	BAMUM LETTER PHASE-D YUOP
+16937	BAMUM LETTER PHASE-D NDAM
+16938	BAMUM LETTER PHASE-D NTEUM
+16939	BAMUM LETTER PHASE-D SUAE
+1693A	BAMUM LETTER PHASE-D KUN
+1693B	BAMUM LETTER PHASE-D NGGEUX
+1693C	BAMUM LETTER PHASE-D NGKIEE
+1693D	BAMUM LETTER PHASE-D TUOT
+1693E	BAMUM LETTER PHASE-D MEUN
+1693F	BAMUM LETTER PHASE-D KUQ
+16940	BAMUM LETTER PHASE-D NSUM
+16941	BAMUM LETTER PHASE-D TEUN
+16942	BAMUM LETTER PHASE-D MAENJET
+16943	BAMUM LETTER PHASE-D NGGAP
+16944	BAMUM LETTER PHASE-D LEUM
+16945	BAMUM LETTER PHASE-D NGGUOM
+16946	BAMUM LETTER PHASE-D NSHUT
+16947	BAMUM LETTER PHASE-D NJUEQ
+16948	BAMUM LETTER PHASE-D GHEUAE
+16949	BAMUM LETTER PHASE-D KU
+1694A	BAMUM LETTER PHASE-D REN OLD
+1694B	BAMUM LETTER PHASE-D TAE
+1694C	BAMUM LETTER PHASE-D TOQ
+1694D	BAMUM LETTER PHASE-D NYI
+1694E	BAMUM LETTER PHASE-D RII
+1694F	BAMUM LETTER PHASE-D LEEEE
+16950	BAMUM LETTER PHASE-D MEEEE
+16951	BAMUM LETTER PHASE-D M
+16952	BAMUM LETTER PHASE-D SUU
+16953	BAMUM LETTER PHASE-D MU
+16954	BAMUM LETTER PHASE-D SHII
+16955	BAMUM LETTER PHASE-D SHEUX
+16956	BAMUM LETTER PHASE-D KYEE
+16957	BAMUM LETTER PHASE-D NU
+16958	BAMUM LETTER PHASE-D SHU
+16959	BAMUM LETTER PHASE-D NTEE
+1695A	BAMUM LETTER PHASE-D PEE
+1695B	BAMUM LETTER PHASE-D NI
+1695C	BAMUM LETTER PHASE-D SHOQ
+1695D	BAMUM LETTER PHASE-D PUQ
+1695E	BAMUM LETTER PHASE-D MVOP
+1695F	BAMUM LETTER PHASE-D LOQ
+16960	BAMUM LETTER PHASE-D REN MUCH
+16961	BAMUM LETTER PHASE-D TI
+16962	BAMUM LETTER PHASE-D NTUU
+16963	BAMUM LETTER PHASE-D MBAA SEVEN
+16964	BAMUM LETTER PHASE-D SAQ
+16965	BAMUM LETTER PHASE-D FAA
+16966	BAMUM LETTER PHASE-E NDAP
+16967	BAMUM LETTER PHASE-E TOON
+16968	BAMUM LETTER PHASE-E MBEUM
+16969	BAMUM LETTER PHASE-E LAP
+1696A	BAMUM LETTER PHASE-E VOM
+1696B	BAMUM LETTER PHASE-E LOON
+1696C	BAMUM LETTER PHASE-E PAA
+1696D	BAMUM LETTER PHASE-E SOM
+1696E	BAMUM LETTER PHASE-E RAQ
+1696F	BAMUM LETTER PHASE-E NSHUOP
+16970	BAMUM LETTER PHASE-E NDUN
+16971	BAMUM LETTER PHASE-E PUAE
+16972	BAMUM LETTER PHASE-E TAM
+16973	BAMUM LETTER PHASE-E NGKA
+16974	BAMUM LETTER PHASE-E KPEUX
+16975	BAMUM LETTER PHASE-E WUO
+16976	BAMUM LETTER PHASE-E SEE
+16977	BAMUM LETTER PHASE-E NGGEUAET
+16978	BAMUM LETTER PHASE-E PAAM
+16979	BAMUM LETTER PHASE-E TOO
+1697A	BAMUM LETTER PHASE-E KUOP
+1697B	BAMUM LETTER PHASE-E LOM
+1697C	BAMUM LETTER PHASE-E NSHIEE
+1697D	BAMUM LETTER PHASE-E NGOP
+1697E	BAMUM LETTER PHASE-E MAEM
+1697F	BAMUM LETTER PHASE-E NGKEUX
+16980	BAMUM LETTER PHASE-E NGOQ
+16981	BAMUM LETTER PHASE-E NSHUE
+16982	BAMUM LETTER PHASE-E RIMGBA
+16983	BAMUM LETTER PHASE-E NJEUX
+16984	BAMUM LETTER PHASE-E PEEM
+16985	BAMUM LETTER PHASE-E SAA
+16986	BAMUM LETTER PHASE-E NGGURAE
+16987	BAMUM LETTER PHASE-E MGBA
+16988	BAMUM LETTER PHASE-E GHEUX
+16989	BAMUM LETTER PHASE-E NGKEUAEM
+1698A	BAMUM LETTER PHASE-E NJAEMLI
+1698B	BAMUM LETTER PHASE-E MAP
+1698C	BAMUM LETTER PHASE-E LOOT
+1698D	BAMUM LETTER PHASE-E NGGEEEE
+1698E	BAMUM LETTER PHASE-E NDIQ
+1698F	BAMUM LETTER PHASE-E TAEN NTEUM
+16990	BAMUM LETTER PHASE-E SET
+16991	BAMUM LETTER PHASE-E PUM
+16992	BAMUM LETTER PHASE-E NDAA SOFTNESS
+16993	BAMUM LETTER PHASE-E NGGUAESHAE NYAM
+16994	BAMUM LETTER PHASE-E YIEE
+16995	BAMUM LETTER PHASE-E GHEUN
+16996	BAMUM LETTER PHASE-E TUAE
+16997	BAMUM LETTER PHASE-E YEUAE
+16998	BAMUM LETTER PHASE-E PO
+16999	BAMUM LETTER PHASE-E TUMAE
+1699A	BAMUM LETTER PHASE-E KEUAE
+1699B	BAMUM LETTER PHASE-E SUAEN
+1699C	BAMUM LETTER PHASE-E TEUAEQ
+1699D	BAMUM LETTER PHASE-E VEUAE
+1699E	BAMUM LETTER PHASE-E WEUX
+1699F	BAMUM LETTER PHASE-E LAAM
+169A0	BAMUM LETTER PHASE-E PU
+169A1	BAMUM LETTER PHASE-E TAAQ
+169A2	BAMUM LETTER PHASE-E GHAAMAE
+169A3	BAMUM LETTER PHASE-E NGEUREUT
+169A4	BAMUM LETTER PHASE-E SHEUAEQ
+169A5	BAMUM LETTER PHASE-E MGBEN
+169A6	BAMUM LETTER PHASE-E MBEE
+169A7	BAMUM LETTER PHASE-E NZAQ
+169A8	BAMUM LETTER PHASE-E NKOM
+169A9	BAMUM LETTER PHASE-E GBET
+169AA	BAMUM LETTER PHASE-E TUM
+169AB	BAMUM LETTER PHASE-E KUET
+169AC	BAMUM LETTER PHASE-E YAP
+169AD	BAMUM LETTER PHASE-E NYI CLEAVER
+169AE	BAMUM LETTER PHASE-E YIT
+169AF	BAMUM LETTER PHASE-E MFEUQ
+169B0	BAMUM LETTER PHASE-E NDIAQ
+169B1	BAMUM LETTER PHASE-E PIEEQ
+169B2	BAMUM LETTER PHASE-E YUEQ
+169B3	BAMUM LETTER PHASE-E LEUAEM
+169B4	BAMUM LETTER PHASE-E FUE
+169B5	BAMUM LETTER PHASE-E GBEUX
+169B6	BAMUM LETTER PHASE-E NGKUP
+169B7	BAMUM LETTER PHASE-E KET
+169B8	BAMUM LETTER PHASE-E MAE
+169B9	BAMUM LETTER PHASE-E NGKAAMI
+169BA	BAMUM LETTER PHASE-E GHET
+169BB	BAMUM LETTER PHASE-E FA
+169BC	BAMUM LETTER PHASE-E NTUM
+169BD	BAMUM LETTER PHASE-E PEUT
+169BE	BAMUM LETTER PHASE-E YEUM
+169BF	BAMUM LETTER PHASE-E NGGEUAE
+169C0	BAMUM LETTER PHASE-E NYI BETWEEN
+169C1	BAMUM LETTER PHASE-E NZUQ
+169C2	BAMUM LETTER PHASE-E POON
+169C3	BAMUM LETTER PHASE-E MIEE
+169C4	BAMUM LETTER PHASE-E FUET
+169C5	BAMUM LETTER PHASE-E NAE
+169C6	BAMUM LETTER PHASE-E MUAE
+169C7	BAMUM LETTER PHASE-E GHEUAE
+169C8	BAMUM LETTER PHASE-E FU I
+169C9	BAMUM LETTER PHASE-E MVI
+169CA	BAMUM LETTER PHASE-E PUAQ
+169CB	BAMUM LETTER PHASE-E NGKUM
+169CC	BAMUM LETTER PHASE-E KUT
+169CD	BAMUM LETTER PHASE-E PIET
+169CE	BAMUM LETTER PHASE-E NTAP
+169CF	BAMUM LETTER PHASE-E YEUAET
+169D0	BAMUM LETTER PHASE-E NGGUP
+169D1	BAMUM LETTER PHASE-E PA PEOPLE
+169D2	BAMUM LETTER PHASE-E FU CALL
+169D3	BAMUM LETTER PHASE-E FOM
+169D4	BAMUM LETTER PHASE-E NJEE
+169D5	BAMUM LETTER PHASE-E A
+169D6	BAMUM LETTER PHASE-E TOQ
+169D7	BAMUM LETTER PHASE-E O
+169D8	BAMUM LETTER PHASE-E I
+169D9	BAMUM LETTER PHASE-E LAQ
+169DA	BAMUM LETTER PHASE-E PA PLURAL
+169DB	BAMUM LETTER PHASE-E TAA
+169DC	BAMUM LETTER PHASE-E TAQ
+169DD	BAMUM LETTER PHASE-E NDAA MY HOUSE
+169DE	BAMUM LETTER PHASE-E SHIQ
+169DF	BAMUM LETTER PHASE-E YEUX
+169E0	BAMUM LETTER PHASE-E NGUAE
+169E1	BAMUM LETTER PHASE-E YUAEN
+169E2	BAMUM LETTER PHASE-E YOQ SWIMMING
+169E3	BAMUM LETTER PHASE-E YOQ COVER
+169E4	BAMUM LETTER PHASE-E YUQ
+169E5	BAMUM LETTER PHASE-E YUN
+169E6	BAMUM LETTER PHASE-E KEUX
+169E7	BAMUM LETTER PHASE-E PEUX
+169E8	BAMUM LETTER PHASE-E NJEE EPOCH
+169E9	BAMUM LETTER PHASE-E PUE
+169EA	BAMUM LETTER PHASE-E WUE
+169EB	BAMUM LETTER PHASE-E FEE
+169EC	BAMUM LETTER PHASE-E VEE
+169ED	BAMUM LETTER PHASE-E LU
+169EE	BAMUM LETTER PHASE-E MI
+169EF	BAMUM LETTER PHASE-E REUX
+169F0	BAMUM LETTER PHASE-E RAE
+169F1	BAMUM LETTER PHASE-E NGUAET
+169F2	BAMUM LETTER PHASE-E NGA
+169F3	BAMUM LETTER PHASE-E SHO
+169F4	BAMUM LETTER PHASE-E SHOQ
+169F5	BAMUM LETTER PHASE-E FU REMEDY
+169F6	BAMUM LETTER PHASE-E NA
+169F7	BAMUM LETTER PHASE-E PI
+169F8	BAMUM LETTER PHASE-E LOQ
+169F9	BAMUM LETTER PHASE-E KO
+169FA	BAMUM LETTER PHASE-E MEN
+169FB	BAMUM LETTER PHASE-E MA
+169FC	BAMUM LETTER PHASE-E MAQ
+169FD	BAMUM LETTER PHASE-E TEU
+169FE	BAMUM LETTER PHASE-E KI
+169FF	BAMUM LETTER PHASE-E MON
+16A00	BAMUM LETTER PHASE-E TEN
+16A01	BAMUM LETTER PHASE-E FAQ
+16A02	BAMUM LETTER PHASE-E GHOM
+16A03	BAMUM LETTER PHASE-F KA
+16A04	BAMUM LETTER PHASE-F U
+16A05	BAMUM LETTER PHASE-F KU
+16A06	BAMUM LETTER PHASE-F EE
+16A07	BAMUM LETTER PHASE-F REE
+16A08	BAMUM LETTER PHASE-F TAE
+16A09	BAMUM LETTER PHASE-F NYI
+16A0A	BAMUM LETTER PHASE-F LA
+16A0B	BAMUM LETTER PHASE-F RII
+16A0C	BAMUM LETTER PHASE-F RIEE
+16A0D	BAMUM LETTER PHASE-F MEEEE
+16A0E	BAMUM LETTER PHASE-F TAA
+16A0F	BAMUM LETTER PHASE-F NDAA
+16A10	BAMUM LETTER PHASE-F NJAEM
+16A11	BAMUM LETTER PHASE-F M
+16A12	BAMUM LETTER PHASE-F SUU
+16A13	BAMUM LETTER PHASE-F SHII
+16A14	BAMUM LETTER PHASE-F SI
+16A15	BAMUM LETTER PHASE-F SEUX
+16A16	BAMUM LETTER PHASE-F KYEE
+16A17	BAMUM LETTER PHASE-F KET
+16A18	BAMUM LETTER PHASE-F NUAE
+16A19	BAMUM LETTER PHASE-F NU
+16A1A	BAMUM LETTER PHASE-F NJUAE
+16A1B	BAMUM LETTER PHASE-F YOQ
+16A1C	BAMUM LETTER PHASE-F SHU
+16A1D	BAMUM LETTER PHASE-F YA
+16A1E	BAMUM LETTER PHASE-F NSHA
+16A1F	BAMUM LETTER PHASE-F PEUX
+16A20	BAMUM LETTER PHASE-F NTEE
+16A21	BAMUM LETTER PHASE-F WUE
+16A22	BAMUM LETTER PHASE-F PEE
+16A23	BAMUM LETTER PHASE-F RU
+16A24	BAMUM LETTER PHASE-F NI
+16A25	BAMUM LETTER PHASE-F REUX
+16A26	BAMUM LETTER PHASE-F KEN
+16A27	BAMUM LETTER PHASE-F NGKWAEN
+16A28	BAMUM LETTER PHASE-F NGGA
+16A29	BAMUM LETTER PHASE-F SHO
+16A2A	BAMUM LETTER PHASE-F PUAE
+16A2B	BAMUM LETTER PHASE-F FOM
+16A2C	BAMUM LETTER PHASE-F WA
+16A2D	BAMUM LETTER PHASE-F LI
+16A2E	BAMUM LETTER PHASE-F LOQ
+16A2F	BAMUM LETTER PHASE-F KO
+16A30	BAMUM LETTER PHASE-F MBEN
+16A31	BAMUM LETTER PHASE-F REN
+16A32	BAMUM LETTER PHASE-F MA
+16A33	BAMUM LETTER PHASE-F MO
+16A34	BAMUM LETTER PHASE-F MBAA
+16A35	BAMUM LETTER PHASE-F TET
+16A36	BAMUM LETTER PHASE-F KPA
+16A37	BAMUM LETTER PHASE-F SAMBA
+16A38	BAMUM LETTER PHASE-F VUEQ
+16A40	MRO LETTER TA
+16A41	MRO LETTER NGI
+16A42	MRO LETTER YO
+16A43	MRO LETTER MIM
+16A44	MRO LETTER BA
+16A45	MRO LETTER DA
+16A46	MRO LETTER A
+16A47	MRO LETTER PHI
+16A48	MRO LETTER KHAI
+16A49	MRO LETTER HAO
+16A4A	MRO LETTER DAI
+16A4B	MRO LETTER CHU
+16A4C	MRO LETTER KEAAE
+16A4D	MRO LETTER OL
+16A4E	MRO LETTER MAEM
+16A4F	MRO LETTER NIN
+16A50	MRO LETTER PA
+16A51	MRO LETTER OO
+16A52	MRO LETTER O
+16A53	MRO LETTER RO
+16A54	MRO LETTER SHI
+16A55	MRO LETTER THEA
+16A56	MRO LETTER EA
+16A57	MRO LETTER WA
+16A58	MRO LETTER E
+16A59	MRO LETTER KO
+16A5A	MRO LETTER LAN
+16A5B	MRO LETTER LA
+16A5C	MRO LETTER HAI
+16A5D	MRO LETTER RI
+16A5E	MRO LETTER TEK
+16A60	MRO DIGIT ZERO
+16A61	MRO DIGIT ONE
+16A62	MRO DIGIT TWO
+16A63	MRO DIGIT THREE
+16A64	MRO DIGIT FOUR
+16A65	MRO DIGIT FIVE
+16A66	MRO DIGIT SIX
+16A67	MRO DIGIT SEVEN
+16A68	MRO DIGIT EIGHT
+16A69	MRO DIGIT NINE
+16A6E	MRO DANDA
+16A6F	MRO DOUBLE DANDA
+16AD0	BASSA VAH LETTER ENNI
+16AD1	BASSA VAH LETTER KA
+16AD2	BASSA VAH LETTER SE
+16AD3	BASSA VAH LETTER FA
+16AD4	BASSA VAH LETTER MBE
+16AD5	BASSA VAH LETTER YIE
+16AD6	BASSA VAH LETTER GAH
+16AD7	BASSA VAH LETTER DHII
+16AD8	BASSA VAH LETTER KPAH
+16AD9	BASSA VAH LETTER JO
+16ADA	BASSA VAH LETTER HWAH
+16ADB	BASSA VAH LETTER WA
+16ADC	BASSA VAH LETTER ZO
+16ADD	BASSA VAH LETTER GBU
+16ADE	BASSA VAH LETTER DO
+16ADF	BASSA VAH LETTER CE
+16AE0	BASSA VAH LETTER UWU
+16AE1	BASSA VAH LETTER TO
+16AE2	BASSA VAH LETTER BA
+16AE3	BASSA VAH LETTER VU
+16AE4	BASSA VAH LETTER YEIN
+16AE5	BASSA VAH LETTER PA
+16AE6	BASSA VAH LETTER WADDA
+16AE7	BASSA VAH LETTER A
+16AE8	BASSA VAH LETTER O
+16AE9	BASSA VAH LETTER OO
+16AEA	BASSA VAH LETTER U
+16AEB	BASSA VAH LETTER EE
+16AEC	BASSA VAH LETTER E
+16AED	BASSA VAH LETTER I
+16AF0	BASSA VAH COMBINING HIGH TONE
+16AF1	BASSA VAH COMBINING LOW TONE
+16AF2	BASSA VAH COMBINING MID TONE
+16AF3	BASSA VAH COMBINING LOW-MID TONE
+16AF4	BASSA VAH COMBINING HIGH-LOW TONE
+16AF5	BASSA VAH FULL STOP
+16B00	PAHAWH HMONG VOWEL KEEB
+16B01	PAHAWH HMONG VOWEL KEEV
+16B02	PAHAWH HMONG VOWEL KIB
+16B03	PAHAWH HMONG VOWEL KIV
+16B04	PAHAWH HMONG VOWEL KAUB
+16B05	PAHAWH HMONG VOWEL KAUV
+16B06	PAHAWH HMONG VOWEL KUB
+16B07	PAHAWH HMONG VOWEL KUV
+16B08	PAHAWH HMONG VOWEL KEB
+16B09	PAHAWH HMONG VOWEL KEV
+16B0A	PAHAWH HMONG VOWEL KAIB
+16B0B	PAHAWH HMONG VOWEL KAIV
+16B0C	PAHAWH HMONG VOWEL KOOB
+16B0D	PAHAWH HMONG VOWEL KOOV
+16B0E	PAHAWH HMONG VOWEL KAWB
+16B0F	PAHAWH HMONG VOWEL KAWV
+16B10	PAHAWH HMONG VOWEL KUAB
+16B11	PAHAWH HMONG VOWEL KUAV
+16B12	PAHAWH HMONG VOWEL KOB
+16B13	PAHAWH HMONG VOWEL KOV
+16B14	PAHAWH HMONG VOWEL KIAB
+16B15	PAHAWH HMONG VOWEL KIAV
+16B16	PAHAWH HMONG VOWEL KAB
+16B17	PAHAWH HMONG VOWEL KAV
+16B18	PAHAWH HMONG VOWEL KWB
+16B19	PAHAWH HMONG VOWEL KWV
+16B1A	PAHAWH HMONG VOWEL KAAB
+16B1B	PAHAWH HMONG VOWEL KAAV
+16B1C	PAHAWH HMONG CONSONANT VAU
+16B1D	PAHAWH HMONG CONSONANT NTSAU
+16B1E	PAHAWH HMONG CONSONANT LAU
+16B1F	PAHAWH HMONG CONSONANT HAU
+16B20	PAHAWH HMONG CONSONANT NLAU
+16B21	PAHAWH HMONG CONSONANT RAU
+16B22	PAHAWH HMONG CONSONANT NKAU
+16B23	PAHAWH HMONG CONSONANT QHAU
+16B24	PAHAWH HMONG CONSONANT YAU
+16B25	PAHAWH HMONG CONSONANT HLAU
+16B26	PAHAWH HMONG CONSONANT MAU
+16B27	PAHAWH HMONG CONSONANT CHAU
+16B28	PAHAWH HMONG CONSONANT NCHAU
+16B29	PAHAWH HMONG CONSONANT HNAU
+16B2A	PAHAWH HMONG CONSONANT PLHAU
+16B2B	PAHAWH HMONG CONSONANT NTHAU
+16B2C	PAHAWH HMONG CONSONANT NAU
+16B2D	PAHAWH HMONG CONSONANT AU
+16B2E	PAHAWH HMONG CONSONANT XAU
+16B2F	PAHAWH HMONG CONSONANT CAU
+16B30	PAHAWH HMONG MARK CIM TUB
+16B31	PAHAWH HMONG MARK CIM SO
+16B32	PAHAWH HMONG MARK CIM KES
+16B33	PAHAWH HMONG MARK CIM KHAV
+16B34	PAHAWH HMONG MARK CIM SUAM
+16B35	PAHAWH HMONG MARK CIM HOM
+16B36	PAHAWH HMONG MARK CIM TAUM
+16B37	PAHAWH HMONG SIGN VOS THOM
+16B38	PAHAWH HMONG SIGN VOS TSHAB CEEB
+16B39	PAHAWH HMONG SIGN CIM CHEEM
+16B3A	PAHAWH HMONG SIGN VOS THIAB
+16B3B	PAHAWH HMONG SIGN VOS FEEM
+16B3C	PAHAWH HMONG SIGN XYEEM NTXIV
+16B3D	PAHAWH HMONG SIGN XYEEM RHO
+16B3E	PAHAWH HMONG SIGN XYEEM TOV
+16B3F	PAHAWH HMONG SIGN XYEEM FAIB
+16B40	PAHAWH HMONG SIGN VOS SEEV
+16B41	PAHAWH HMONG SIGN MEEJ SUAB
+16B42	PAHAWH HMONG SIGN VOS NRUA
+16B43	PAHAWH HMONG SIGN IB YAM
+16B44	PAHAWH HMONG SIGN XAUS
+16B45	PAHAWH HMONG SIGN CIM TSOV ROG
+16B50	PAHAWH HMONG DIGIT ZERO
+16B51	PAHAWH HMONG DIGIT ONE
+16B52	PAHAWH HMONG DIGIT TWO
+16B53	PAHAWH HMONG DIGIT THREE
+16B54	PAHAWH HMONG DIGIT FOUR
+16B55	PAHAWH HMONG DIGIT FIVE
+16B56	PAHAWH HMONG DIGIT SIX
+16B57	PAHAWH HMONG DIGIT SEVEN
+16B58	PAHAWH HMONG DIGIT EIGHT
+16B59	PAHAWH HMONG DIGIT NINE
+16B5B	PAHAWH HMONG NUMBER TENS
+16B5C	PAHAWH HMONG NUMBER HUNDREDS
+16B5D	PAHAWH HMONG NUMBER TEN THOUSANDS
+16B5E	PAHAWH HMONG NUMBER MILLIONS
+16B5F	PAHAWH HMONG NUMBER HUNDRED MILLIONS
+16B60	PAHAWH HMONG NUMBER TEN BILLIONS
+16B61	PAHAWH HMONG NUMBER TRILLIONS
+16B63	PAHAWH HMONG SIGN VOS LUB
+16B64	PAHAWH HMONG SIGN XYOO
+16B65	PAHAWH HMONG SIGN HLI
+16B66	PAHAWH HMONG SIGN THIRD-STAGE HLI
+16B67	PAHAWH HMONG SIGN ZWJ THAJ
+16B68	PAHAWH HMONG SIGN HNUB
+16B69	PAHAWH HMONG SIGN NQIG
+16B6A	PAHAWH HMONG SIGN XIAB
+16B6B	PAHAWH HMONG SIGN NTUJ
+16B6C	PAHAWH HMONG SIGN AV
+16B6D	PAHAWH HMONG SIGN TXHEEJ CEEV
+16B6E	PAHAWH HMONG SIGN MEEJ TSEEB
+16B6F	PAHAWH HMONG SIGN TAU
+16B70	PAHAWH HMONG SIGN LOS
+16B71	PAHAWH HMONG SIGN MUS
+16B72	PAHAWH HMONG SIGN CIM HAIS LUS NTOG NTOG
+16B73	PAHAWH HMONG SIGN CIM CUAM TSHOOJ
+16B74	PAHAWH HMONG SIGN CIM TXWV
+16B75	PAHAWH HMONG SIGN CIM TXWV CHWV
+16B76	PAHAWH HMONG SIGN CIM PUB DAWB
+16B77	PAHAWH HMONG SIGN CIM NRES TOS
+16B7D	PAHAWH HMONG CLAN SIGN TSHEEJ
+16B7E	PAHAWH HMONG CLAN SIGN YEEG
+16B7F	PAHAWH HMONG CLAN SIGN LIS
+16B80	PAHAWH HMONG CLAN SIGN LAUJ
+16B81	PAHAWH HMONG CLAN SIGN XYOOJ
+16B82	PAHAWH HMONG CLAN SIGN KOO
+16B83	PAHAWH HMONG CLAN SIGN HAWJ
+16B84	PAHAWH HMONG CLAN SIGN MUAS
+16B85	PAHAWH HMONG CLAN SIGN THOJ
+16B86	PAHAWH HMONG CLAN SIGN TSAB
+16B87	PAHAWH HMONG CLAN SIGN PHAB
+16B88	PAHAWH HMONG CLAN SIGN KHAB
+16B89	PAHAWH HMONG CLAN SIGN HAM
+16B8A	PAHAWH HMONG CLAN SIGN VAJ
+16B8B	PAHAWH HMONG CLAN SIGN FAJ
+16B8C	PAHAWH HMONG CLAN SIGN YAJ
+16B8D	PAHAWH HMONG CLAN SIGN TSWB
+16B8E	PAHAWH HMONG CLAN SIGN KWM
+16B8F	PAHAWH HMONG CLAN SIGN VWJ
+16F00	MIAO LETTER PA
+16F01	MIAO LETTER BA
+16F02	MIAO LETTER YI PA
+16F03	MIAO LETTER PLA
+16F04	MIAO LETTER MA
+16F05	MIAO LETTER MHA
+16F06	MIAO LETTER ARCHAIC MA
+16F07	MIAO LETTER FA
+16F08	MIAO LETTER VA
+16F09	MIAO LETTER VFA
+16F0A	MIAO LETTER TA
+16F0B	MIAO LETTER DA
+16F0C	MIAO LETTER YI TTA
+16F0D	MIAO LETTER YI TA
+16F0E	MIAO LETTER TTA
+16F0F	MIAO LETTER DDA
+16F10	MIAO LETTER NA
+16F11	MIAO LETTER NHA
+16F12	MIAO LETTER YI NNA
+16F13	MIAO LETTER ARCHAIC NA
+16F14	MIAO LETTER NNA
+16F15	MIAO LETTER NNHA
+16F16	MIAO LETTER LA
+16F17	MIAO LETTER LYA
+16F18	MIAO LETTER LHA
+16F19	MIAO LETTER LHYA
+16F1A	MIAO LETTER TLHA
+16F1B	MIAO LETTER DLHA
+16F1C	MIAO LETTER TLHYA
+16F1D	MIAO LETTER DLHYA
+16F1E	MIAO LETTER KA
+16F1F	MIAO LETTER GA
+16F20	MIAO LETTER YI KA
+16F21	MIAO LETTER QA
+16F22	MIAO LETTER QGA
+16F23	MIAO LETTER NGA
+16F24	MIAO LETTER NGHA
+16F25	MIAO LETTER ARCHAIC NGA
+16F26	MIAO LETTER HA
+16F27	MIAO LETTER XA
+16F28	MIAO LETTER GHA
+16F29	MIAO LETTER GHHA
+16F2A	MIAO LETTER TSSA
+16F2B	MIAO LETTER DZZA
+16F2C	MIAO LETTER NYA
+16F2D	MIAO LETTER NYHA
+16F2E	MIAO LETTER TSHA
+16F2F	MIAO LETTER DZHA
+16F30	MIAO LETTER YI TSHA
+16F31	MIAO LETTER YI DZHA
+16F32	MIAO LETTER REFORMED TSHA
+16F33	MIAO LETTER SHA
+16F34	MIAO LETTER SSA
+16F35	MIAO LETTER ZHA
+16F36	MIAO LETTER ZSHA
+16F37	MIAO LETTER TSA
+16F38	MIAO LETTER DZA
+16F39	MIAO LETTER YI TSA
+16F3A	MIAO LETTER SA
+16F3B	MIAO LETTER ZA
+16F3C	MIAO LETTER ZSA
+16F3D	MIAO LETTER ZZA
+16F3E	MIAO LETTER ZZSA
+16F3F	MIAO LETTER ARCHAIC ZZA
+16F40	MIAO LETTER ZZYA
+16F41	MIAO LETTER ZZSYA
+16F42	MIAO LETTER WA
+16F43	MIAO LETTER AH
+16F44	MIAO LETTER HHA
+16F50	MIAO LETTER NASALIZATION
+16F51	MIAO SIGN ASPIRATION
+16F52	MIAO SIGN REFORMED VOICING
+16F53	MIAO SIGN REFORMED ASPIRATION
+16F54	MIAO VOWEL SIGN A
+16F55	MIAO VOWEL SIGN AA
+16F56	MIAO VOWEL SIGN AHH
+16F57	MIAO VOWEL SIGN AN
+16F58	MIAO VOWEL SIGN ANG
+16F59	MIAO VOWEL SIGN O
+16F5A	MIAO VOWEL SIGN OO
+16F5B	MIAO VOWEL SIGN WO
+16F5C	MIAO VOWEL SIGN W
+16F5D	MIAO VOWEL SIGN E
+16F5E	MIAO VOWEL SIGN EN
+16F5F	MIAO VOWEL SIGN ENG
+16F60	MIAO VOWEL SIGN OEY
+16F61	MIAO VOWEL SIGN I
+16F62	MIAO VOWEL SIGN IA
+16F63	MIAO VOWEL SIGN IAN
+16F64	MIAO VOWEL SIGN IANG
+16F65	MIAO VOWEL SIGN IO
+16F66	MIAO VOWEL SIGN IE
+16F67	MIAO VOWEL SIGN II
+16F68	MIAO VOWEL SIGN IU
+16F69	MIAO VOWEL SIGN ING
+16F6A	MIAO VOWEL SIGN U
+16F6B	MIAO VOWEL SIGN UA
+16F6C	MIAO VOWEL SIGN UAN
+16F6D	MIAO VOWEL SIGN UANG
+16F6E	MIAO VOWEL SIGN UU
+16F6F	MIAO VOWEL SIGN UEI
+16F70	MIAO VOWEL SIGN UNG
+16F71	MIAO VOWEL SIGN Y
+16F72	MIAO VOWEL SIGN YI
+16F73	MIAO VOWEL SIGN AE
+16F74	MIAO VOWEL SIGN AEE
+16F75	MIAO VOWEL SIGN ERR
+16F76	MIAO VOWEL SIGN ROUNDED ERR
+16F77	MIAO VOWEL SIGN ER
+16F78	MIAO VOWEL SIGN ROUNDED ER
+16F79	MIAO VOWEL SIGN AI
+16F7A	MIAO VOWEL SIGN EI
+16F7B	MIAO VOWEL SIGN AU
+16F7C	MIAO VOWEL SIGN OU
+16F7D	MIAO VOWEL SIGN N
+16F7E	MIAO VOWEL SIGN NG
+16F8F	MIAO TONE RIGHT
+16F90	MIAO TONE TOP RIGHT
+16F91	MIAO TONE ABOVE
+16F92	MIAO TONE BELOW
+16F93	MIAO LETTER TONE-2
+16F94	MIAO LETTER TONE-3
+16F95	MIAO LETTER TONE-4
+16F96	MIAO LETTER TONE-5
+16F97	MIAO LETTER TONE-6
+16F98	MIAO LETTER TONE-7
+16F99	MIAO LETTER TONE-8
+16F9A	MIAO LETTER REFORMED TONE-1
+16F9B	MIAO LETTER REFORMED TONE-2
+16F9C	MIAO LETTER REFORMED TONE-4
+16F9D	MIAO LETTER REFORMED TONE-5
+16F9E	MIAO LETTER REFORMED TONE-6
+16F9F	MIAO LETTER REFORMED TONE-8
+16FE0	TANGUT ITERATION MARK
+16FE1	NUSHU ITERATION MARK
+18800	TANGUT COMPONENT-001
+18801	TANGUT COMPONENT-002
+18802	TANGUT COMPONENT-003
+18803	TANGUT COMPONENT-004
+18804	TANGUT COMPONENT-005
+18805	TANGUT COMPONENT-006
+18806	TANGUT COMPONENT-007
+18807	TANGUT COMPONENT-008
+18808	TANGUT COMPONENT-009
+18809	TANGUT COMPONENT-010
+1880A	TANGUT COMPONENT-011
+1880B	TANGUT COMPONENT-012
+1880C	TANGUT COMPONENT-013
+1880D	TANGUT COMPONENT-014
+1880E	TANGUT COMPONENT-015
+1880F	TANGUT COMPONENT-016
+18810	TANGUT COMPONENT-017
+18811	TANGUT COMPONENT-018
+18812	TANGUT COMPONENT-019
+18813	TANGUT COMPONENT-020
+18814	TANGUT COMPONENT-021
+18815	TANGUT COMPONENT-022
+18816	TANGUT COMPONENT-023
+18817	TANGUT COMPONENT-024
+18818	TANGUT COMPONENT-025
+18819	TANGUT COMPONENT-026
+1881A	TANGUT COMPONENT-027
+1881B	TANGUT COMPONENT-028
+1881C	TANGUT COMPONENT-029
+1881D	TANGUT COMPONENT-030
+1881E	TANGUT COMPONENT-031
+1881F	TANGUT COMPONENT-032
+18820	TANGUT COMPONENT-033
+18821	TANGUT COMPONENT-034
+18822	TANGUT COMPONENT-035
+18823	TANGUT COMPONENT-036
+18824	TANGUT COMPONENT-037
+18825	TANGUT COMPONENT-038
+18826	TANGUT COMPONENT-039
+18827	TANGUT COMPONENT-040
+18828	TANGUT COMPONENT-041
+18829	TANGUT COMPONENT-042
+1882A	TANGUT COMPONENT-043
+1882B	TANGUT COMPONENT-044
+1882C	TANGUT COMPONENT-045
+1882D	TANGUT COMPONENT-046
+1882E	TANGUT COMPONENT-047
+1882F	TANGUT COMPONENT-048
+18830	TANGUT COMPONENT-049
+18831	TANGUT COMPONENT-050
+18832	TANGUT COMPONENT-051
+18833	TANGUT COMPONENT-052
+18834	TANGUT COMPONENT-053
+18835	TANGUT COMPONENT-054
+18836	TANGUT COMPONENT-055
+18837	TANGUT COMPONENT-056
+18838	TANGUT COMPONENT-057
+18839	TANGUT COMPONENT-058
+1883A	TANGUT COMPONENT-059
+1883B	TANGUT COMPONENT-060
+1883C	TANGUT COMPONENT-061
+1883D	TANGUT COMPONENT-062
+1883E	TANGUT COMPONENT-063
+1883F	TANGUT COMPONENT-064
+18840	TANGUT COMPONENT-065
+18841	TANGUT COMPONENT-066
+18842	TANGUT COMPONENT-067
+18843	TANGUT COMPONENT-068
+18844	TANGUT COMPONENT-069
+18845	TANGUT COMPONENT-070
+18846	TANGUT COMPONENT-071
+18847	TANGUT COMPONENT-072
+18848	TANGUT COMPONENT-073
+18849	TANGUT COMPONENT-074
+1884A	TANGUT COMPONENT-075
+1884B	TANGUT COMPONENT-076
+1884C	TANGUT COMPONENT-077
+1884D	TANGUT COMPONENT-078
+1884E	TANGUT COMPONENT-079
+1884F	TANGUT COMPONENT-080
+18850	TANGUT COMPONENT-081
+18851	TANGUT COMPONENT-082
+18852	TANGUT COMPONENT-083
+18853	TANGUT COMPONENT-084
+18854	TANGUT COMPONENT-085
+18855	TANGUT COMPONENT-086
+18856	TANGUT COMPONENT-087
+18857	TANGUT COMPONENT-088
+18858	TANGUT COMPONENT-089
+18859	TANGUT COMPONENT-090
+1885A	TANGUT COMPONENT-091
+1885B	TANGUT COMPONENT-092
+1885C	TANGUT COMPONENT-093
+1885D	TANGUT COMPONENT-094
+1885E	TANGUT COMPONENT-095
+1885F	TANGUT COMPONENT-096
+18860	TANGUT COMPONENT-097
+18861	TANGUT COMPONENT-098
+18862	TANGUT COMPONENT-099
+18863	TANGUT COMPONENT-100
+18864	TANGUT COMPONENT-101
+18865	TANGUT COMPONENT-102
+18866	TANGUT COMPONENT-103
+18867	TANGUT COMPONENT-104
+18868	TANGUT COMPONENT-105
+18869	TANGUT COMPONENT-106
+1886A	TANGUT COMPONENT-107
+1886B	TANGUT COMPONENT-108
+1886C	TANGUT COMPONENT-109
+1886D	TANGUT COMPONENT-110
+1886E	TANGUT COMPONENT-111
+1886F	TANGUT COMPONENT-112
+18870	TANGUT COMPONENT-113
+18871	TANGUT COMPONENT-114
+18872	TANGUT COMPONENT-115
+18873	TANGUT COMPONENT-116
+18874	TANGUT COMPONENT-117
+18875	TANGUT COMPONENT-118
+18876	TANGUT COMPONENT-119
+18877	TANGUT COMPONENT-120
+18878	TANGUT COMPONENT-121
+18879	TANGUT COMPONENT-122
+1887A	TANGUT COMPONENT-123
+1887B	TANGUT COMPONENT-124
+1887C	TANGUT COMPONENT-125
+1887D	TANGUT COMPONENT-126
+1887E	TANGUT COMPONENT-127
+1887F	TANGUT COMPONENT-128
+18880	TANGUT COMPONENT-129
+18881	TANGUT COMPONENT-130
+18882	TANGUT COMPONENT-131
+18883	TANGUT COMPONENT-132
+18884	TANGUT COMPONENT-133
+18885	TANGUT COMPONENT-134
+18886	TANGUT COMPONENT-135
+18887	TANGUT COMPONENT-136
+18888	TANGUT COMPONENT-137
+18889	TANGUT COMPONENT-138
+1888A	TANGUT COMPONENT-139
+1888B	TANGUT COMPONENT-140
+1888C	TANGUT COMPONENT-141
+1888D	TANGUT COMPONENT-142
+1888E	TANGUT COMPONENT-143
+1888F	TANGUT COMPONENT-144
+18890	TANGUT COMPONENT-145
+18891	TANGUT COMPONENT-146
+18892	TANGUT COMPONENT-147
+18893	TANGUT COMPONENT-148
+18894	TANGUT COMPONENT-149
+18895	TANGUT COMPONENT-150
+18896	TANGUT COMPONENT-151
+18897	TANGUT COMPONENT-152
+18898	TANGUT COMPONENT-153
+18899	TANGUT COMPONENT-154
+1889A	TANGUT COMPONENT-155
+1889B	TANGUT COMPONENT-156
+1889C	TANGUT COMPONENT-157
+1889D	TANGUT COMPONENT-158
+1889E	TANGUT COMPONENT-159
+1889F	TANGUT COMPONENT-160
+188A0	TANGUT COMPONENT-161
+188A1	TANGUT COMPONENT-162
+188A2	TANGUT COMPONENT-163
+188A3	TANGUT COMPONENT-164
+188A4	TANGUT COMPONENT-165
+188A5	TANGUT COMPONENT-166
+188A6	TANGUT COMPONENT-167
+188A7	TANGUT COMPONENT-168
+188A8	TANGUT COMPONENT-169
+188A9	TANGUT COMPONENT-170
+188AA	TANGUT COMPONENT-171
+188AB	TANGUT COMPONENT-172
+188AC	TANGUT COMPONENT-173
+188AD	TANGUT COMPONENT-174
+188AE	TANGUT COMPONENT-175
+188AF	TANGUT COMPONENT-176
+188B0	TANGUT COMPONENT-177
+188B1	TANGUT COMPONENT-178
+188B2	TANGUT COMPONENT-179
+188B3	TANGUT COMPONENT-180
+188B4	TANGUT COMPONENT-181
+188B5	TANGUT COMPONENT-182
+188B6	TANGUT COMPONENT-183
+188B7	TANGUT COMPONENT-184
+188B8	TANGUT COMPONENT-185
+188B9	TANGUT COMPONENT-186
+188BA	TANGUT COMPONENT-187
+188BB	TANGUT COMPONENT-188
+188BC	TANGUT COMPONENT-189
+188BD	TANGUT COMPONENT-190
+188BE	TANGUT COMPONENT-191
+188BF	TANGUT COMPONENT-192
+188C0	TANGUT COMPONENT-193
+188C1	TANGUT COMPONENT-194
+188C2	TANGUT COMPONENT-195
+188C3	TANGUT COMPONENT-196
+188C4	TANGUT COMPONENT-197
+188C5	TANGUT COMPONENT-198
+188C6	TANGUT COMPONENT-199
+188C7	TANGUT COMPONENT-200
+188C8	TANGUT COMPONENT-201
+188C9	TANGUT COMPONENT-202
+188CA	TANGUT COMPONENT-203
+188CB	TANGUT COMPONENT-204
+188CC	TANGUT COMPONENT-205
+188CD	TANGUT COMPONENT-206
+188CE	TANGUT COMPONENT-207
+188CF	TANGUT COMPONENT-208
+188D0	TANGUT COMPONENT-209
+188D1	TANGUT COMPONENT-210
+188D2	TANGUT COMPONENT-211
+188D3	TANGUT COMPONENT-212
+188D4	TANGUT COMPONENT-213
+188D5	TANGUT COMPONENT-214
+188D6	TANGUT COMPONENT-215
+188D7	TANGUT COMPONENT-216
+188D8	TANGUT COMPONENT-217
+188D9	TANGUT COMPONENT-218
+188DA	TANGUT COMPONENT-219
+188DB	TANGUT COMPONENT-220
+188DC	TANGUT COMPONENT-221
+188DD	TANGUT COMPONENT-222
+188DE	TANGUT COMPONENT-223
+188DF	TANGUT COMPONENT-224
+188E0	TANGUT COMPONENT-225
+188E1	TANGUT COMPONENT-226
+188E2	TANGUT COMPONENT-227
+188E3	TANGUT COMPONENT-228
+188E4	TANGUT COMPONENT-229
+188E5	TANGUT COMPONENT-230
+188E6	TANGUT COMPONENT-231
+188E7	TANGUT COMPONENT-232
+188E8	TANGUT COMPONENT-233
+188E9	TANGUT COMPONENT-234
+188EA	TANGUT COMPONENT-235
+188EB	TANGUT COMPONENT-236
+188EC	TANGUT COMPONENT-237
+188ED	TANGUT COMPONENT-238
+188EE	TANGUT COMPONENT-239
+188EF	TANGUT COMPONENT-240
+188F0	TANGUT COMPONENT-241
+188F1	TANGUT COMPONENT-242
+188F2	TANGUT COMPONENT-243
+188F3	TANGUT COMPONENT-244
+188F4	TANGUT COMPONENT-245
+188F5	TANGUT COMPONENT-246
+188F6	TANGUT COMPONENT-247
+188F7	TANGUT COMPONENT-248
+188F8	TANGUT COMPONENT-249
+188F9	TANGUT COMPONENT-250
+188FA	TANGUT COMPONENT-251
+188FB	TANGUT COMPONENT-252
+188FC	TANGUT COMPONENT-253
+188FD	TANGUT COMPONENT-254
+188FE	TANGUT COMPONENT-255
+188FF	TANGUT COMPONENT-256
+18900	TANGUT COMPONENT-257
+18901	TANGUT COMPONENT-258
+18902	TANGUT COMPONENT-259
+18903	TANGUT COMPONENT-260
+18904	TANGUT COMPONENT-261
+18905	TANGUT COMPONENT-262
+18906	TANGUT COMPONENT-263
+18907	TANGUT COMPONENT-264
+18908	TANGUT COMPONENT-265
+18909	TANGUT COMPONENT-266
+1890A	TANGUT COMPONENT-267
+1890B	TANGUT COMPONENT-268
+1890C	TANGUT COMPONENT-269
+1890D	TANGUT COMPONENT-270
+1890E	TANGUT COMPONENT-271
+1890F	TANGUT COMPONENT-272
+18910	TANGUT COMPONENT-273
+18911	TANGUT COMPONENT-274
+18912	TANGUT COMPONENT-275
+18913	TANGUT COMPONENT-276
+18914	TANGUT COMPONENT-277
+18915	TANGUT COMPONENT-278
+18916	TANGUT COMPONENT-279
+18917	TANGUT COMPONENT-280
+18918	TANGUT COMPONENT-281
+18919	TANGUT COMPONENT-282
+1891A	TANGUT COMPONENT-283
+1891B	TANGUT COMPONENT-284
+1891C	TANGUT COMPONENT-285
+1891D	TANGUT COMPONENT-286
+1891E	TANGUT COMPONENT-287
+1891F	TANGUT COMPONENT-288
+18920	TANGUT COMPONENT-289
+18921	TANGUT COMPONENT-290
+18922	TANGUT COMPONENT-291
+18923	TANGUT COMPONENT-292
+18924	TANGUT COMPONENT-293
+18925	TANGUT COMPONENT-294
+18926	TANGUT COMPONENT-295
+18927	TANGUT COMPONENT-296
+18928	TANGUT COMPONENT-297
+18929	TANGUT COMPONENT-298
+1892A	TANGUT COMPONENT-299
+1892B	TANGUT COMPONENT-300
+1892C	TANGUT COMPONENT-301
+1892D	TANGUT COMPONENT-302
+1892E	TANGUT COMPONENT-303
+1892F	TANGUT COMPONENT-304
+18930	TANGUT COMPONENT-305
+18931	TANGUT COMPONENT-306
+18932	TANGUT COMPONENT-307
+18933	TANGUT COMPONENT-308
+18934	TANGUT COMPONENT-309
+18935	TANGUT COMPONENT-310
+18936	TANGUT COMPONENT-311
+18937	TANGUT COMPONENT-312
+18938	TANGUT COMPONENT-313
+18939	TANGUT COMPONENT-314
+1893A	TANGUT COMPONENT-315
+1893B	TANGUT COMPONENT-316
+1893C	TANGUT COMPONENT-317
+1893D	TANGUT COMPONENT-318
+1893E	TANGUT COMPONENT-319
+1893F	TANGUT COMPONENT-320
+18940	TANGUT COMPONENT-321
+18941	TANGUT COMPONENT-322
+18942	TANGUT COMPONENT-323
+18943	TANGUT COMPONENT-324
+18944	TANGUT COMPONENT-325
+18945	TANGUT COMPONENT-326
+18946	TANGUT COMPONENT-327
+18947	TANGUT COMPONENT-328
+18948	TANGUT COMPONENT-329
+18949	TANGUT COMPONENT-330
+1894A	TANGUT COMPONENT-331
+1894B	TANGUT COMPONENT-332
+1894C	TANGUT COMPONENT-333
+1894D	TANGUT COMPONENT-334
+1894E	TANGUT COMPONENT-335
+1894F	TANGUT COMPONENT-336
+18950	TANGUT COMPONENT-337
+18951	TANGUT COMPONENT-338
+18952	TANGUT COMPONENT-339
+18953	TANGUT COMPONENT-340
+18954	TANGUT COMPONENT-341
+18955	TANGUT COMPONENT-342
+18956	TANGUT COMPONENT-343
+18957	TANGUT COMPONENT-344
+18958	TANGUT COMPONENT-345
+18959	TANGUT COMPONENT-346
+1895A	TANGUT COMPONENT-347
+1895B	TANGUT COMPONENT-348
+1895C	TANGUT COMPONENT-349
+1895D	TANGUT COMPONENT-350
+1895E	TANGUT COMPONENT-351
+1895F	TANGUT COMPONENT-352
+18960	TANGUT COMPONENT-353
+18961	TANGUT COMPONENT-354
+18962	TANGUT COMPONENT-355
+18963	TANGUT COMPONENT-356
+18964	TANGUT COMPONENT-357
+18965	TANGUT COMPONENT-358
+18966	TANGUT COMPONENT-359
+18967	TANGUT COMPONENT-360
+18968	TANGUT COMPONENT-361
+18969	TANGUT COMPONENT-362
+1896A	TANGUT COMPONENT-363
+1896B	TANGUT COMPONENT-364
+1896C	TANGUT COMPONENT-365
+1896D	TANGUT COMPONENT-366
+1896E	TANGUT COMPONENT-367
+1896F	TANGUT COMPONENT-368
+18970	TANGUT COMPONENT-369
+18971	TANGUT COMPONENT-370
+18972	TANGUT COMPONENT-371
+18973	TANGUT COMPONENT-372
+18974	TANGUT COMPONENT-373
+18975	TANGUT COMPONENT-374
+18976	TANGUT COMPONENT-375
+18977	TANGUT COMPONENT-376
+18978	TANGUT COMPONENT-377
+18979	TANGUT COMPONENT-378
+1897A	TANGUT COMPONENT-379
+1897B	TANGUT COMPONENT-380
+1897C	TANGUT COMPONENT-381
+1897D	TANGUT COMPONENT-382
+1897E	TANGUT COMPONENT-383
+1897F	TANGUT COMPONENT-384
+18980	TANGUT COMPONENT-385
+18981	TANGUT COMPONENT-386
+18982	TANGUT COMPONENT-387
+18983	TANGUT COMPONENT-388
+18984	TANGUT COMPONENT-389
+18985	TANGUT COMPONENT-390
+18986	TANGUT COMPONENT-391
+18987	TANGUT COMPONENT-392
+18988	TANGUT COMPONENT-393
+18989	TANGUT COMPONENT-394
+1898A	TANGUT COMPONENT-395
+1898B	TANGUT COMPONENT-396
+1898C	TANGUT COMPONENT-397
+1898D	TANGUT COMPONENT-398
+1898E	TANGUT COMPONENT-399
+1898F	TANGUT COMPONENT-400
+18990	TANGUT COMPONENT-401
+18991	TANGUT COMPONENT-402
+18992	TANGUT COMPONENT-403
+18993	TANGUT COMPONENT-404
+18994	TANGUT COMPONENT-405
+18995	TANGUT COMPONENT-406
+18996	TANGUT COMPONENT-407
+18997	TANGUT COMPONENT-408
+18998	TANGUT COMPONENT-409
+18999	TANGUT COMPONENT-410
+1899A	TANGUT COMPONENT-411
+1899B	TANGUT COMPONENT-412
+1899C	TANGUT COMPONENT-413
+1899D	TANGUT COMPONENT-414
+1899E	TANGUT COMPONENT-415
+1899F	TANGUT COMPONENT-416
+189A0	TANGUT COMPONENT-417
+189A1	TANGUT COMPONENT-418
+189A2	TANGUT COMPONENT-419
+189A3	TANGUT COMPONENT-420
+189A4	TANGUT COMPONENT-421
+189A5	TANGUT COMPONENT-422
+189A6	TANGUT COMPONENT-423
+189A7	TANGUT COMPONENT-424
+189A8	TANGUT COMPONENT-425
+189A9	TANGUT COMPONENT-426
+189AA	TANGUT COMPONENT-427
+189AB	TANGUT COMPONENT-428
+189AC	TANGUT COMPONENT-429
+189AD	TANGUT COMPONENT-430
+189AE	TANGUT COMPONENT-431
+189AF	TANGUT COMPONENT-432
+189B0	TANGUT COMPONENT-433
+189B1	TANGUT COMPONENT-434
+189B2	TANGUT COMPONENT-435
+189B3	TANGUT COMPONENT-436
+189B4	TANGUT COMPONENT-437
+189B5	TANGUT COMPONENT-438
+189B6	TANGUT COMPONENT-439
+189B7	TANGUT COMPONENT-440
+189B8	TANGUT COMPONENT-441
+189B9	TANGUT COMPONENT-442
+189BA	TANGUT COMPONENT-443
+189BB	TANGUT COMPONENT-444
+189BC	TANGUT COMPONENT-445
+189BD	TANGUT COMPONENT-446
+189BE	TANGUT COMPONENT-447
+189BF	TANGUT COMPONENT-448
+189C0	TANGUT COMPONENT-449
+189C1	TANGUT COMPONENT-450
+189C2	TANGUT COMPONENT-451
+189C3	TANGUT COMPONENT-452
+189C4	TANGUT COMPONENT-453
+189C5	TANGUT COMPONENT-454
+189C6	TANGUT COMPONENT-455
+189C7	TANGUT COMPONENT-456
+189C8	TANGUT COMPONENT-457
+189C9	TANGUT COMPONENT-458
+189CA	TANGUT COMPONENT-459
+189CB	TANGUT COMPONENT-460
+189CC	TANGUT COMPONENT-461
+189CD	TANGUT COMPONENT-462
+189CE	TANGUT COMPONENT-463
+189CF	TANGUT COMPONENT-464
+189D0	TANGUT COMPONENT-465
+189D1	TANGUT COMPONENT-466
+189D2	TANGUT COMPONENT-467
+189D3	TANGUT COMPONENT-468
+189D4	TANGUT COMPONENT-469
+189D5	TANGUT COMPONENT-470
+189D6	TANGUT COMPONENT-471
+189D7	TANGUT COMPONENT-472
+189D8	TANGUT COMPONENT-473
+189D9	TANGUT COMPONENT-474
+189DA	TANGUT COMPONENT-475
+189DB	TANGUT COMPONENT-476
+189DC	TANGUT COMPONENT-477
+189DD	TANGUT COMPONENT-478
+189DE	TANGUT COMPONENT-479
+189DF	TANGUT COMPONENT-480
+189E0	TANGUT COMPONENT-481
+189E1	TANGUT COMPONENT-482
+189E2	TANGUT COMPONENT-483
+189E3	TANGUT COMPONENT-484
+189E4	TANGUT COMPONENT-485
+189E5	TANGUT COMPONENT-486
+189E6	TANGUT COMPONENT-487
+189E7	TANGUT COMPONENT-488
+189E8	TANGUT COMPONENT-489
+189E9	TANGUT COMPONENT-490
+189EA	TANGUT COMPONENT-491
+189EB	TANGUT COMPONENT-492
+189EC	TANGUT COMPONENT-493
+189ED	TANGUT COMPONENT-494
+189EE	TANGUT COMPONENT-495
+189EF	TANGUT COMPONENT-496
+189F0	TANGUT COMPONENT-497
+189F1	TANGUT COMPONENT-498
+189F2	TANGUT COMPONENT-499
+189F3	TANGUT COMPONENT-500
+189F4	TANGUT COMPONENT-501
+189F5	TANGUT COMPONENT-502
+189F6	TANGUT COMPONENT-503
+189F7	TANGUT COMPONENT-504
+189F8	TANGUT COMPONENT-505
+189F9	TANGUT COMPONENT-506
+189FA	TANGUT COMPONENT-507
+189FB	TANGUT COMPONENT-508
+189FC	TANGUT COMPONENT-509
+189FD	TANGUT COMPONENT-510
+189FE	TANGUT COMPONENT-511
+189FF	TANGUT COMPONENT-512
+18A00	TANGUT COMPONENT-513
+18A01	TANGUT COMPONENT-514
+18A02	TANGUT COMPONENT-515
+18A03	TANGUT COMPONENT-516
+18A04	TANGUT COMPONENT-517
+18A05	TANGUT COMPONENT-518
+18A06	TANGUT COMPONENT-519
+18A07	TANGUT COMPONENT-520
+18A08	TANGUT COMPONENT-521
+18A09	TANGUT COMPONENT-522
+18A0A	TANGUT COMPONENT-523
+18A0B	TANGUT COMPONENT-524
+18A0C	TANGUT COMPONENT-525
+18A0D	TANGUT COMPONENT-526
+18A0E	TANGUT COMPONENT-527
+18A0F	TANGUT COMPONENT-528
+18A10	TANGUT COMPONENT-529
+18A11	TANGUT COMPONENT-530
+18A12	TANGUT COMPONENT-531
+18A13	TANGUT COMPONENT-532
+18A14	TANGUT COMPONENT-533
+18A15	TANGUT COMPONENT-534
+18A16	TANGUT COMPONENT-535
+18A17	TANGUT COMPONENT-536
+18A18	TANGUT COMPONENT-537
+18A19	TANGUT COMPONENT-538
+18A1A	TANGUT COMPONENT-539
+18A1B	TANGUT COMPONENT-540
+18A1C	TANGUT COMPONENT-541
+18A1D	TANGUT COMPONENT-542
+18A1E	TANGUT COMPONENT-543
+18A1F	TANGUT COMPONENT-544
+18A20	TANGUT COMPONENT-545
+18A21	TANGUT COMPONENT-546
+18A22	TANGUT COMPONENT-547
+18A23	TANGUT COMPONENT-548
+18A24	TANGUT COMPONENT-549
+18A25	TANGUT COMPONENT-550
+18A26	TANGUT COMPONENT-551
+18A27	TANGUT COMPONENT-552
+18A28	TANGUT COMPONENT-553
+18A29	TANGUT COMPONENT-554
+18A2A	TANGUT COMPONENT-555
+18A2B	TANGUT COMPONENT-556
+18A2C	TANGUT COMPONENT-557
+18A2D	TANGUT COMPONENT-558
+18A2E	TANGUT COMPONENT-559
+18A2F	TANGUT COMPONENT-560
+18A30	TANGUT COMPONENT-561
+18A31	TANGUT COMPONENT-562
+18A32	TANGUT COMPONENT-563
+18A33	TANGUT COMPONENT-564
+18A34	TANGUT COMPONENT-565
+18A35	TANGUT COMPONENT-566
+18A36	TANGUT COMPONENT-567
+18A37	TANGUT COMPONENT-568
+18A38	TANGUT COMPONENT-569
+18A39	TANGUT COMPONENT-570
+18A3A	TANGUT COMPONENT-571
+18A3B	TANGUT COMPONENT-572
+18A3C	TANGUT COMPONENT-573
+18A3D	TANGUT COMPONENT-574
+18A3E	TANGUT COMPONENT-575
+18A3F	TANGUT COMPONENT-576
+18A40	TANGUT COMPONENT-577
+18A41	TANGUT COMPONENT-578
+18A42	TANGUT COMPONENT-579
+18A43	TANGUT COMPONENT-580
+18A44	TANGUT COMPONENT-581
+18A45	TANGUT COMPONENT-582
+18A46	TANGUT COMPONENT-583
+18A47	TANGUT COMPONENT-584
+18A48	TANGUT COMPONENT-585
+18A49	TANGUT COMPONENT-586
+18A4A	TANGUT COMPONENT-587
+18A4B	TANGUT COMPONENT-588
+18A4C	TANGUT COMPONENT-589
+18A4D	TANGUT COMPONENT-590
+18A4E	TANGUT COMPONENT-591
+18A4F	TANGUT COMPONENT-592
+18A50	TANGUT COMPONENT-593
+18A51	TANGUT COMPONENT-594
+18A52	TANGUT COMPONENT-595
+18A53	TANGUT COMPONENT-596
+18A54	TANGUT COMPONENT-597
+18A55	TANGUT COMPONENT-598
+18A56	TANGUT COMPONENT-599
+18A57	TANGUT COMPONENT-600
+18A58	TANGUT COMPONENT-601
+18A59	TANGUT COMPONENT-602
+18A5A	TANGUT COMPONENT-603
+18A5B	TANGUT COMPONENT-604
+18A5C	TANGUT COMPONENT-605
+18A5D	TANGUT COMPONENT-606
+18A5E	TANGUT COMPONENT-607
+18A5F	TANGUT COMPONENT-608
+18A60	TANGUT COMPONENT-609
+18A61	TANGUT COMPONENT-610
+18A62	TANGUT COMPONENT-611
+18A63	TANGUT COMPONENT-612
+18A64	TANGUT COMPONENT-613
+18A65	TANGUT COMPONENT-614
+18A66	TANGUT COMPONENT-615
+18A67	TANGUT COMPONENT-616
+18A68	TANGUT COMPONENT-617
+18A69	TANGUT COMPONENT-618
+18A6A	TANGUT COMPONENT-619
+18A6B	TANGUT COMPONENT-620
+18A6C	TANGUT COMPONENT-621
+18A6D	TANGUT COMPONENT-622
+18A6E	TANGUT COMPONENT-623
+18A6F	TANGUT COMPONENT-624
+18A70	TANGUT COMPONENT-625
+18A71	TANGUT COMPONENT-626
+18A72	TANGUT COMPONENT-627
+18A73	TANGUT COMPONENT-628
+18A74	TANGUT COMPONENT-629
+18A75	TANGUT COMPONENT-630
+18A76	TANGUT COMPONENT-631
+18A77	TANGUT COMPONENT-632
+18A78	TANGUT COMPONENT-633
+18A79	TANGUT COMPONENT-634
+18A7A	TANGUT COMPONENT-635
+18A7B	TANGUT COMPONENT-636
+18A7C	TANGUT COMPONENT-637
+18A7D	TANGUT COMPONENT-638
+18A7E	TANGUT COMPONENT-639
+18A7F	TANGUT COMPONENT-640
+18A80	TANGUT COMPONENT-641
+18A81	TANGUT COMPONENT-642
+18A82	TANGUT COMPONENT-643
+18A83	TANGUT COMPONENT-644
+18A84	TANGUT COMPONENT-645
+18A85	TANGUT COMPONENT-646
+18A86	TANGUT COMPONENT-647
+18A87	TANGUT COMPONENT-648
+18A88	TANGUT COMPONENT-649
+18A89	TANGUT COMPONENT-650
+18A8A	TANGUT COMPONENT-651
+18A8B	TANGUT COMPONENT-652
+18A8C	TANGUT COMPONENT-653
+18A8D	TANGUT COMPONENT-654
+18A8E	TANGUT COMPONENT-655
+18A8F	TANGUT COMPONENT-656
+18A90	TANGUT COMPONENT-657
+18A91	TANGUT COMPONENT-658
+18A92	TANGUT COMPONENT-659
+18A93	TANGUT COMPONENT-660
+18A94	TANGUT COMPONENT-661
+18A95	TANGUT COMPONENT-662
+18A96	TANGUT COMPONENT-663
+18A97	TANGUT COMPONENT-664
+18A98	TANGUT COMPONENT-665
+18A99	TANGUT COMPONENT-666
+18A9A	TANGUT COMPONENT-667
+18A9B	TANGUT COMPONENT-668
+18A9C	TANGUT COMPONENT-669
+18A9D	TANGUT COMPONENT-670
+18A9E	TANGUT COMPONENT-671
+18A9F	TANGUT COMPONENT-672
+18AA0	TANGUT COMPONENT-673
+18AA1	TANGUT COMPONENT-674
+18AA2	TANGUT COMPONENT-675
+18AA3	TANGUT COMPONENT-676
+18AA4	TANGUT COMPONENT-677
+18AA5	TANGUT COMPONENT-678
+18AA6	TANGUT COMPONENT-679
+18AA7	TANGUT COMPONENT-680
+18AA8	TANGUT COMPONENT-681
+18AA9	TANGUT COMPONENT-682
+18AAA	TANGUT COMPONENT-683
+18AAB	TANGUT COMPONENT-684
+18AAC	TANGUT COMPONENT-685
+18AAD	TANGUT COMPONENT-686
+18AAE	TANGUT COMPONENT-687
+18AAF	TANGUT COMPONENT-688
+18AB0	TANGUT COMPONENT-689
+18AB1	TANGUT COMPONENT-690
+18AB2	TANGUT COMPONENT-691
+18AB3	TANGUT COMPONENT-692
+18AB4	TANGUT COMPONENT-693
+18AB5	TANGUT COMPONENT-694
+18AB6	TANGUT COMPONENT-695
+18AB7	TANGUT COMPONENT-696
+18AB8	TANGUT COMPONENT-697
+18AB9	TANGUT COMPONENT-698
+18ABA	TANGUT COMPONENT-699
+18ABB	TANGUT COMPONENT-700
+18ABC	TANGUT COMPONENT-701
+18ABD	TANGUT COMPONENT-702
+18ABE	TANGUT COMPONENT-703
+18ABF	TANGUT COMPONENT-704
+18AC0	TANGUT COMPONENT-705
+18AC1	TANGUT COMPONENT-706
+18AC2	TANGUT COMPONENT-707
+18AC3	TANGUT COMPONENT-708
+18AC4	TANGUT COMPONENT-709
+18AC5	TANGUT COMPONENT-710
+18AC6	TANGUT COMPONENT-711
+18AC7	TANGUT COMPONENT-712
+18AC8	TANGUT COMPONENT-713
+18AC9	TANGUT COMPONENT-714
+18ACA	TANGUT COMPONENT-715
+18ACB	TANGUT COMPONENT-716
+18ACC	TANGUT COMPONENT-717
+18ACD	TANGUT COMPONENT-718
+18ACE	TANGUT COMPONENT-719
+18ACF	TANGUT COMPONENT-720
+18AD0	TANGUT COMPONENT-721
+18AD1	TANGUT COMPONENT-722
+18AD2	TANGUT COMPONENT-723
+18AD3	TANGUT COMPONENT-724
+18AD4	TANGUT COMPONENT-725
+18AD5	TANGUT COMPONENT-726
+18AD6	TANGUT COMPONENT-727
+18AD7	TANGUT COMPONENT-728
+18AD8	TANGUT COMPONENT-729
+18AD9	TANGUT COMPONENT-730
+18ADA	TANGUT COMPONENT-731
+18ADB	TANGUT COMPONENT-732
+18ADC	TANGUT COMPONENT-733
+18ADD	TANGUT COMPONENT-734
+18ADE	TANGUT COMPONENT-735
+18ADF	TANGUT COMPONENT-736
+18AE0	TANGUT COMPONENT-737
+18AE1	TANGUT COMPONENT-738
+18AE2	TANGUT COMPONENT-739
+18AE3	TANGUT COMPONENT-740
+18AE4	TANGUT COMPONENT-741
+18AE5	TANGUT COMPONENT-742
+18AE6	TANGUT COMPONENT-743
+18AE7	TANGUT COMPONENT-744
+18AE8	TANGUT COMPONENT-745
+18AE9	TANGUT COMPONENT-746
+18AEA	TANGUT COMPONENT-747
+18AEB	TANGUT COMPONENT-748
+18AEC	TANGUT COMPONENT-749
+18AED	TANGUT COMPONENT-750
+18AEE	TANGUT COMPONENT-751
+18AEF	TANGUT COMPONENT-752
+18AF0	TANGUT COMPONENT-753
+18AF1	TANGUT COMPONENT-754
+18AF2	TANGUT COMPONENT-755
+1B000	KATAKANA LETTER ARCHAIC E
+1B001	HENTAIGANA LETTER E-1
+1B001	HIRAGANA LETTER ARCHAIC YE
+1B002	HENTAIGANA LETTER A-1
+1B003	HENTAIGANA LETTER A-2
+1B004	HENTAIGANA LETTER A-3
+1B005	HENTAIGANA LETTER A-WO
+1B006	HENTAIGANA LETTER I-1
+1B007	HENTAIGANA LETTER I-2
+1B008	HENTAIGANA LETTER I-3
+1B009	HENTAIGANA LETTER I-4
+1B00A	HENTAIGANA LETTER U-1
+1B00B	HENTAIGANA LETTER U-2
+1B00C	HENTAIGANA LETTER U-3
+1B00D	HENTAIGANA LETTER U-4
+1B00E	HENTAIGANA LETTER U-5
+1B00F	HENTAIGANA LETTER E-2
+1B010	HENTAIGANA LETTER E-3
+1B011	HENTAIGANA LETTER E-4
+1B012	HENTAIGANA LETTER E-5
+1B013	HENTAIGANA LETTER E-6
+1B014	HENTAIGANA LETTER O-1
+1B015	HENTAIGANA LETTER O-2
+1B016	HENTAIGANA LETTER O-3
+1B017	HENTAIGANA LETTER KA-1
+1B018	HENTAIGANA LETTER KA-2
+1B019	HENTAIGANA LETTER KA-3
+1B01A	HENTAIGANA LETTER KA-4
+1B01B	HENTAIGANA LETTER KA-5
+1B01C	HENTAIGANA LETTER KA-6
+1B01D	HENTAIGANA LETTER KA-7
+1B01E	HENTAIGANA LETTER KA-8
+1B01F	HENTAIGANA LETTER KA-9
+1B020	HENTAIGANA LETTER KA-10
+1B021	HENTAIGANA LETTER KA-11
+1B022	HENTAIGANA LETTER KA-KE
+1B023	HENTAIGANA LETTER KI-1
+1B024	HENTAIGANA LETTER KI-2
+1B025	HENTAIGANA LETTER KI-3
+1B026	HENTAIGANA LETTER KI-4
+1B027	HENTAIGANA LETTER KI-5
+1B028	HENTAIGANA LETTER KI-6
+1B029	HENTAIGANA LETTER KI-7
+1B02A	HENTAIGANA LETTER KI-8
+1B02B	HENTAIGANA LETTER KU-1
+1B02C	HENTAIGANA LETTER KU-2
+1B02D	HENTAIGANA LETTER KU-3
+1B02E	HENTAIGANA LETTER KU-4
+1B02F	HENTAIGANA LETTER KU-5
+1B030	HENTAIGANA LETTER KU-6
+1B031	HENTAIGANA LETTER KU-7
+1B032	HENTAIGANA LETTER KE-1
+1B033	HENTAIGANA LETTER KE-2
+1B034	HENTAIGANA LETTER KE-3
+1B035	HENTAIGANA LETTER KE-4
+1B036	HENTAIGANA LETTER KE-5
+1B037	HENTAIGANA LETTER KE-6
+1B038	HENTAIGANA LETTER KO-1
+1B039	HENTAIGANA LETTER KO-2
+1B03A	HENTAIGANA LETTER KO-3
+1B03B	HENTAIGANA LETTER KO-KI
+1B03C	HENTAIGANA LETTER SA-1
+1B03D	HENTAIGANA LETTER SA-2
+1B03E	HENTAIGANA LETTER SA-3
+1B03F	HENTAIGANA LETTER SA-4
+1B040	HENTAIGANA LETTER SA-5
+1B041	HENTAIGANA LETTER SA-6
+1B042	HENTAIGANA LETTER SA-7
+1B043	HENTAIGANA LETTER SA-8
+1B044	HENTAIGANA LETTER SI-1
+1B045	HENTAIGANA LETTER SI-2
+1B046	HENTAIGANA LETTER SI-3
+1B047	HENTAIGANA LETTER SI-4
+1B048	HENTAIGANA LETTER SI-5
+1B049	HENTAIGANA LETTER SI-6
+1B04A	HENTAIGANA LETTER SU-1
+1B04B	HENTAIGANA LETTER SU-2
+1B04C	HENTAIGANA LETTER SU-3
+1B04D	HENTAIGANA LETTER SU-4
+1B04E	HENTAIGANA LETTER SU-5
+1B04F	HENTAIGANA LETTER SU-6
+1B050	HENTAIGANA LETTER SU-7
+1B051	HENTAIGANA LETTER SU-8
+1B052	HENTAIGANA LETTER SE-1
+1B053	HENTAIGANA LETTER SE-2
+1B054	HENTAIGANA LETTER SE-3
+1B055	HENTAIGANA LETTER SE-4
+1B056	HENTAIGANA LETTER SE-5
+1B057	HENTAIGANA LETTER SO-1
+1B058	HENTAIGANA LETTER SO-2
+1B059	HENTAIGANA LETTER SO-3
+1B05A	HENTAIGANA LETTER SO-4
+1B05B	HENTAIGANA LETTER SO-5
+1B05C	HENTAIGANA LETTER SO-6
+1B05D	HENTAIGANA LETTER SO-7
+1B05E	HENTAIGANA LETTER TA-1
+1B05F	HENTAIGANA LETTER TA-2
+1B060	HENTAIGANA LETTER TA-3
+1B061	HENTAIGANA LETTER TA-4
+1B062	HENTAIGANA LETTER TI-1
+1B063	HENTAIGANA LETTER TI-2
+1B064	HENTAIGANA LETTER TI-3
+1B065	HENTAIGANA LETTER TI-4
+1B066	HENTAIGANA LETTER TI-5
+1B067	HENTAIGANA LETTER TI-6
+1B068	HENTAIGANA LETTER TI-7
+1B069	HENTAIGANA LETTER TU-1
+1B06A	HENTAIGANA LETTER TU-2
+1B06B	HENTAIGANA LETTER TU-3
+1B06C	HENTAIGANA LETTER TU-4
+1B06D	HENTAIGANA LETTER TU-TO
+1B06E	HENTAIGANA LETTER TE-1
+1B06F	HENTAIGANA LETTER TE-2
+1B070	HENTAIGANA LETTER TE-3
+1B071	HENTAIGANA LETTER TE-4
+1B072	HENTAIGANA LETTER TE-5
+1B073	HENTAIGANA LETTER TE-6
+1B074	HENTAIGANA LETTER TE-7
+1B075	HENTAIGANA LETTER TE-8
+1B076	HENTAIGANA LETTER TE-9
+1B077	HENTAIGANA LETTER TO-1
+1B078	HENTAIGANA LETTER TO-2
+1B079	HENTAIGANA LETTER TO-3
+1B07A	HENTAIGANA LETTER TO-4
+1B07B	HENTAIGANA LETTER TO-5
+1B07C	HENTAIGANA LETTER TO-6
+1B07D	HENTAIGANA LETTER TO-RA
+1B07E	HENTAIGANA LETTER NA-1
+1B07F	HENTAIGANA LETTER NA-2
+1B080	HENTAIGANA LETTER NA-3
+1B081	HENTAIGANA LETTER NA-4
+1B082	HENTAIGANA LETTER NA-5
+1B083	HENTAIGANA LETTER NA-6
+1B084	HENTAIGANA LETTER NA-7
+1B085	HENTAIGANA LETTER NA-8
+1B086	HENTAIGANA LETTER NA-9
+1B087	HENTAIGANA LETTER NI-1
+1B088	HENTAIGANA LETTER NI-2
+1B089	HENTAIGANA LETTER NI-3
+1B08A	HENTAIGANA LETTER NI-4
+1B08B	HENTAIGANA LETTER NI-5
+1B08C	HENTAIGANA LETTER NI-6
+1B08D	HENTAIGANA LETTER NI-7
+1B08E	HENTAIGANA LETTER NI-TE
+1B08F	HENTAIGANA LETTER NU-1
+1B090	HENTAIGANA LETTER NU-2
+1B091	HENTAIGANA LETTER NU-3
+1B092	HENTAIGANA LETTER NE-1
+1B093	HENTAIGANA LETTER NE-2
+1B094	HENTAIGANA LETTER NE-3
+1B095	HENTAIGANA LETTER NE-4
+1B096	HENTAIGANA LETTER NE-5
+1B097	HENTAIGANA LETTER NE-6
+1B098	HENTAIGANA LETTER NE-KO
+1B099	HENTAIGANA LETTER NO-1
+1B09A	HENTAIGANA LETTER NO-2
+1B09B	HENTAIGANA LETTER NO-3
+1B09C	HENTAIGANA LETTER NO-4
+1B09D	HENTAIGANA LETTER NO-5
+1B09E	HENTAIGANA LETTER HA-1
+1B09F	HENTAIGANA LETTER HA-2
+1B0A0	HENTAIGANA LETTER HA-3
+1B0A1	HENTAIGANA LETTER HA-4
+1B0A2	HENTAIGANA LETTER HA-5
+1B0A3	HENTAIGANA LETTER HA-6
+1B0A4	HENTAIGANA LETTER HA-7
+1B0A5	HENTAIGANA LETTER HA-8
+1B0A6	HENTAIGANA LETTER HA-9
+1B0A7	HENTAIGANA LETTER HA-10
+1B0A8	HENTAIGANA LETTER HA-11
+1B0A9	HENTAIGANA LETTER HI-1
+1B0AA	HENTAIGANA LETTER HI-2
+1B0AB	HENTAIGANA LETTER HI-3
+1B0AC	HENTAIGANA LETTER HI-4
+1B0AD	HENTAIGANA LETTER HI-5
+1B0AE	HENTAIGANA LETTER HI-6
+1B0AF	HENTAIGANA LETTER HI-7
+1B0B0	HENTAIGANA LETTER HU-1
+1B0B1	HENTAIGANA LETTER HU-2
+1B0B2	HENTAIGANA LETTER HU-3
+1B0B3	HENTAIGANA LETTER HE-1
+1B0B4	HENTAIGANA LETTER HE-2
+1B0B5	HENTAIGANA LETTER HE-3
+1B0B6	HENTAIGANA LETTER HE-4
+1B0B7	HENTAIGANA LETTER HE-5
+1B0B8	HENTAIGANA LETTER HE-6
+1B0B9	HENTAIGANA LETTER HE-7
+1B0BA	HENTAIGANA LETTER HO-1
+1B0BB	HENTAIGANA LETTER HO-2
+1B0BC	HENTAIGANA LETTER HO-3
+1B0BD	HENTAIGANA LETTER HO-4
+1B0BE	HENTAIGANA LETTER HO-5
+1B0BF	HENTAIGANA LETTER HO-6
+1B0C0	HENTAIGANA LETTER HO-7
+1B0C1	HENTAIGANA LETTER HO-8
+1B0C2	HENTAIGANA LETTER MA-1
+1B0C3	HENTAIGANA LETTER MA-2
+1B0C4	HENTAIGANA LETTER MA-3
+1B0C5	HENTAIGANA LETTER MA-4
+1B0C6	HENTAIGANA LETTER MA-5
+1B0C7	HENTAIGANA LETTER MA-6
+1B0C8	HENTAIGANA LETTER MA-7
+1B0C9	HENTAIGANA LETTER MI-1
+1B0CA	HENTAIGANA LETTER MI-2
+1B0CB	HENTAIGANA LETTER MI-3
+1B0CC	HENTAIGANA LETTER MI-4
+1B0CD	HENTAIGANA LETTER MI-5
+1B0CE	HENTAIGANA LETTER MI-6
+1B0CF	HENTAIGANA LETTER MI-7
+1B0D0	HENTAIGANA LETTER MU-1
+1B0D1	HENTAIGANA LETTER MU-2
+1B0D2	HENTAIGANA LETTER MU-3
+1B0D3	HENTAIGANA LETTER MU-4
+1B0D4	HENTAIGANA LETTER ME-1
+1B0D5	HENTAIGANA LETTER ME-2
+1B0D6	HENTAIGANA LETTER ME-MA
+1B0D7	HENTAIGANA LETTER MO-1
+1B0D8	HENTAIGANA LETTER MO-2
+1B0D9	HENTAIGANA LETTER MO-3
+1B0DA	HENTAIGANA LETTER MO-4
+1B0DB	HENTAIGANA LETTER MO-5
+1B0DC	HENTAIGANA LETTER MO-6
+1B0DD	HENTAIGANA LETTER YA-1
+1B0DE	HENTAIGANA LETTER YA-2
+1B0DF	HENTAIGANA LETTER YA-3
+1B0E0	HENTAIGANA LETTER YA-4
+1B0E1	HENTAIGANA LETTER YA-5
+1B0E2	HENTAIGANA LETTER YA-YO
+1B0E3	HENTAIGANA LETTER YU-1
+1B0E4	HENTAIGANA LETTER YU-2
+1B0E5	HENTAIGANA LETTER YU-3
+1B0E6	HENTAIGANA LETTER YU-4
+1B0E7	HENTAIGANA LETTER YO-1
+1B0E8	HENTAIGANA LETTER YO-2
+1B0E9	HENTAIGANA LETTER YO-3
+1B0EA	HENTAIGANA LETTER YO-4
+1B0EB	HENTAIGANA LETTER YO-5
+1B0EC	HENTAIGANA LETTER YO-6
+1B0ED	HENTAIGANA LETTER RA-1
+1B0EE	HENTAIGANA LETTER RA-2
+1B0EF	HENTAIGANA LETTER RA-3
+1B0F0	HENTAIGANA LETTER RA-4
+1B0F1	HENTAIGANA LETTER RI-1
+1B0F2	HENTAIGANA LETTER RI-2
+1B0F3	HENTAIGANA LETTER RI-3
+1B0F4	HENTAIGANA LETTER RI-4
+1B0F5	HENTAIGANA LETTER RI-5
+1B0F6	HENTAIGANA LETTER RI-6
+1B0F7	HENTAIGANA LETTER RI-7
+1B0F8	HENTAIGANA LETTER RU-1
+1B0F9	HENTAIGANA LETTER RU-2
+1B0FA	HENTAIGANA LETTER RU-3
+1B0FB	HENTAIGANA LETTER RU-4
+1B0FC	HENTAIGANA LETTER RU-5
+1B0FD	HENTAIGANA LETTER RU-6
+1B0FE	HENTAIGANA LETTER RE-1
+1B0FF	HENTAIGANA LETTER RE-2
+1B100	HENTAIGANA LETTER RE-3
+1B101	HENTAIGANA LETTER RE-4
+1B102	HENTAIGANA LETTER RO-1
+1B103	HENTAIGANA LETTER RO-2
+1B104	HENTAIGANA LETTER RO-3
+1B105	HENTAIGANA LETTER RO-4
+1B106	HENTAIGANA LETTER RO-5
+1B107	HENTAIGANA LETTER RO-6
+1B108	HENTAIGANA LETTER WA-1
+1B109	HENTAIGANA LETTER WA-2
+1B10A	HENTAIGANA LETTER WA-3
+1B10B	HENTAIGANA LETTER WA-4
+1B10C	HENTAIGANA LETTER WA-5
+1B10D	HENTAIGANA LETTER WI-1
+1B10E	HENTAIGANA LETTER WI-2
+1B10F	HENTAIGANA LETTER WI-3
+1B110	HENTAIGANA LETTER WI-4
+1B111	HENTAIGANA LETTER WI-5
+1B112	HENTAIGANA LETTER WE-1
+1B113	HENTAIGANA LETTER WE-2
+1B114	HENTAIGANA LETTER WE-3
+1B115	HENTAIGANA LETTER WE-4
+1B116	HENTAIGANA LETTER WO-1
+1B117	HENTAIGANA LETTER WO-2
+1B118	HENTAIGANA LETTER WO-3
+1B119	HENTAIGANA LETTER WO-4
+1B11A	HENTAIGANA LETTER WO-5
+1B11B	HENTAIGANA LETTER WO-6
+1B11C	HENTAIGANA LETTER WO-7
+1B11D	HENTAIGANA LETTER N-MU-MO-1
+1B11E	HENTAIGANA LETTER N-MU-MO-2
+1BC00	DUPLOYAN LETTER H
+1BC01	DUPLOYAN LETTER X
+1BC02	DUPLOYAN LETTER P
+1BC03	DUPLOYAN LETTER T
+1BC04	DUPLOYAN LETTER F
+1BC05	DUPLOYAN LETTER K
+1BC06	DUPLOYAN LETTER L
+1BC07	DUPLOYAN LETTER B
+1BC08	DUPLOYAN LETTER D
+1BC09	DUPLOYAN LETTER V
+1BC0A	DUPLOYAN LETTER G
+1BC0B	DUPLOYAN LETTER R
+1BC0C	DUPLOYAN LETTER P N
+1BC0D	DUPLOYAN LETTER D S
+1BC0E	DUPLOYAN LETTER F N
+1BC0F	DUPLOYAN LETTER K M
+1BC10	DUPLOYAN LETTER R S
+1BC11	DUPLOYAN LETTER TH
+1BC12	DUPLOYAN LETTER SLOAN DH
+1BC13	DUPLOYAN LETTER DH
+1BC14	DUPLOYAN LETTER KK
+1BC15	DUPLOYAN LETTER SLOAN J
+1BC16	DUPLOYAN LETTER HL
+1BC17	DUPLOYAN LETTER LH
+1BC18	DUPLOYAN LETTER RH
+1BC19	DUPLOYAN LETTER M
+1BC1A	DUPLOYAN LETTER N
+1BC1B	DUPLOYAN LETTER J
+1BC1C	DUPLOYAN LETTER S
+1BC1D	DUPLOYAN LETTER M N
+1BC1E	DUPLOYAN LETTER N M
+1BC1F	DUPLOYAN LETTER J M
+1BC20	DUPLOYAN LETTER S J
+1BC21	DUPLOYAN LETTER M WITH DOT
+1BC22	DUPLOYAN LETTER N WITH DOT
+1BC23	DUPLOYAN LETTER J WITH DOT
+1BC24	DUPLOYAN LETTER J WITH DOTS INSIDE AND ABOVE
+1BC25	DUPLOYAN LETTER S WITH DOT
+1BC26	DUPLOYAN LETTER S WITH DOT BELOW
+1BC27	DUPLOYAN LETTER M S
+1BC28	DUPLOYAN LETTER N S
+1BC29	DUPLOYAN LETTER J S
+1BC2A	DUPLOYAN LETTER S S
+1BC2B	DUPLOYAN LETTER M N S
+1BC2C	DUPLOYAN LETTER N M S
+1BC2D	DUPLOYAN LETTER J M S
+1BC2E	DUPLOYAN LETTER S J S
+1BC2F	DUPLOYAN LETTER J S WITH DOT
+1BC30	DUPLOYAN LETTER J N
+1BC31	DUPLOYAN LETTER J N S
+1BC32	DUPLOYAN LETTER S T
+1BC33	DUPLOYAN LETTER S T R
+1BC34	DUPLOYAN LETTER S P
+1BC35	DUPLOYAN LETTER S P R
+1BC36	DUPLOYAN LETTER T S
+1BC37	DUPLOYAN LETTER T R S
+1BC38	DUPLOYAN LETTER W
+1BC39	DUPLOYAN LETTER WH
+1BC3A	DUPLOYAN LETTER W R
+1BC3B	DUPLOYAN LETTER S N
+1BC3C	DUPLOYAN LETTER S M
+1BC3D	DUPLOYAN LETTER K R S
+1BC3E	DUPLOYAN LETTER G R S
+1BC3F	DUPLOYAN LETTER S K
+1BC40	DUPLOYAN LETTER S K R
+1BC41	DUPLOYAN LETTER A
+1BC42	DUPLOYAN LETTER SLOAN OW
+1BC43	DUPLOYAN LETTER OA
+1BC44	DUPLOYAN LETTER O
+1BC45	DUPLOYAN LETTER AOU
+1BC46	DUPLOYAN LETTER I
+1BC47	DUPLOYAN LETTER E
+1BC48	DUPLOYAN LETTER IE
+1BC49	DUPLOYAN LETTER SHORT I
+1BC4A	DUPLOYAN LETTER UI
+1BC4B	DUPLOYAN LETTER EE
+1BC4C	DUPLOYAN LETTER SLOAN EH
+1BC4D	DUPLOYAN LETTER ROMANIAN I
+1BC4E	DUPLOYAN LETTER SLOAN EE
+1BC4F	DUPLOYAN LETTER LONG I
+1BC50	DUPLOYAN LETTER YE
+1BC51	DUPLOYAN LETTER U
+1BC52	DUPLOYAN LETTER EU
+1BC53	DUPLOYAN LETTER XW
+1BC54	DUPLOYAN LETTER U N
+1BC55	DUPLOYAN LETTER LONG U
+1BC56	DUPLOYAN LETTER ROMANIAN U
+1BC57	DUPLOYAN LETTER UH
+1BC58	DUPLOYAN LETTER SLOAN U
+1BC59	DUPLOYAN LETTER OOH
+1BC5A	DUPLOYAN LETTER OW
+1BC5B	DUPLOYAN LETTER OU
+1BC5C	DUPLOYAN LETTER WA
+1BC5D	DUPLOYAN LETTER WO
+1BC5E	DUPLOYAN LETTER WI
+1BC5F	DUPLOYAN LETTER WEI
+1BC60	DUPLOYAN LETTER WOW
+1BC61	DUPLOYAN LETTER NASAL U
+1BC62	DUPLOYAN LETTER NASAL O
+1BC63	DUPLOYAN LETTER NASAL I
+1BC64	DUPLOYAN LETTER NASAL A
+1BC65	DUPLOYAN LETTER PERNIN AN
+1BC66	DUPLOYAN LETTER PERNIN AM
+1BC67	DUPLOYAN LETTER SLOAN EN
+1BC68	DUPLOYAN LETTER SLOAN AN
+1BC69	DUPLOYAN LETTER SLOAN ON
+1BC6A	DUPLOYAN LETTER VOCALIC M
+1BC70	DUPLOYAN AFFIX LEFT HORIZONTAL SECANT
+1BC71	DUPLOYAN AFFIX MID HORIZONTAL SECANT
+1BC72	DUPLOYAN AFFIX RIGHT HORIZONTAL SECANT
+1BC73	DUPLOYAN AFFIX LOW VERTICAL SECANT
+1BC74	DUPLOYAN AFFIX MID VERTICAL SECANT
+1BC75	DUPLOYAN AFFIX HIGH VERTICAL SECANT
+1BC76	DUPLOYAN AFFIX ATTACHED SECANT
+1BC77	DUPLOYAN AFFIX ATTACHED LEFT-TO-RIGHT SECANT
+1BC78	DUPLOYAN AFFIX ATTACHED TANGENT
+1BC79	DUPLOYAN AFFIX ATTACHED TAIL
+1BC7A	DUPLOYAN AFFIX ATTACHED E HOOK
+1BC7B	DUPLOYAN AFFIX ATTACHED I HOOK
+1BC7C	DUPLOYAN AFFIX ATTACHED TANGENT HOOK
+1BC80	DUPLOYAN AFFIX HIGH ACUTE
+1BC81	DUPLOYAN AFFIX HIGH TIGHT ACUTE
+1BC82	DUPLOYAN AFFIX HIGH GRAVE
+1BC83	DUPLOYAN AFFIX HIGH LONG GRAVE
+1BC84	DUPLOYAN AFFIX HIGH DOT
+1BC85	DUPLOYAN AFFIX HIGH CIRCLE
+1BC86	DUPLOYAN AFFIX HIGH LINE
+1BC87	DUPLOYAN AFFIX HIGH WAVE
+1BC88	DUPLOYAN AFFIX HIGH VERTICAL
+1BC90	DUPLOYAN AFFIX LOW ACUTE
+1BC91	DUPLOYAN AFFIX LOW TIGHT ACUTE
+1BC92	DUPLOYAN AFFIX LOW GRAVE
+1BC93	DUPLOYAN AFFIX LOW LONG GRAVE
+1BC94	DUPLOYAN AFFIX LOW DOT
+1BC95	DUPLOYAN AFFIX LOW CIRCLE
+1BC96	DUPLOYAN AFFIX LOW LINE
+1BC97	DUPLOYAN AFFIX LOW WAVE
+1BC98	DUPLOYAN AFFIX LOW VERTICAL
+1BC99	DUPLOYAN AFFIX LOW ARROW
+1BC9C	DUPLOYAN SIGN O WITH CROSS
+1BC9D	DUPLOYAN THICK LETTER SELECTOR
+1BC9E	DUPLOYAN DOUBLE MARK
+1BC9F	DUPLOYAN PUNCTUATION CHINOOK FULL STOP
+1BCA0	SHORTHAND FORMAT LETTER OVERLAP
+1BCA1	SHORTHAND FORMAT CONTINUING OVERLAP
+1BCA2	SHORTHAND FORMAT DOWN STEP
+1BCA3	SHORTHAND FORMAT UP STEP
+1D000	BYZANTINE MUSICAL SYMBOL PSILI
+1D001	BYZANTINE MUSICAL SYMBOL DASEIA
+1D002	BYZANTINE MUSICAL SYMBOL PERISPOMENI
+1D003	BYZANTINE MUSICAL SYMBOL OXEIA EKFONITIKON
+1D004	BYZANTINE MUSICAL SYMBOL OXEIA DIPLI
+1D005	BYZANTINE MUSICAL SYMBOL VAREIA EKFONITIKON
+1D006	BYZANTINE MUSICAL SYMBOL VAREIA DIPLI
+1D007	BYZANTINE MUSICAL SYMBOL KATHISTI
+1D008	BYZANTINE MUSICAL SYMBOL SYRMATIKI
+1D009	BYZANTINE MUSICAL SYMBOL PARAKLITIKI
+1D00A	BYZANTINE MUSICAL SYMBOL YPOKRISIS
+1D00B	BYZANTINE MUSICAL SYMBOL YPOKRISIS DIPLI
+1D00C	BYZANTINE MUSICAL SYMBOL KREMASTI
+1D00D	BYZANTINE MUSICAL SYMBOL APESO EKFONITIKON
+1D00E	BYZANTINE MUSICAL SYMBOL EXO EKFONITIKON
+1D00F	BYZANTINE MUSICAL SYMBOL TELEIA
+1D010	BYZANTINE MUSICAL SYMBOL KENTIMATA
+1D011	BYZANTINE MUSICAL SYMBOL APOSTROFOS
+1D012	BYZANTINE MUSICAL SYMBOL APOSTROFOS DIPLI
+1D013	BYZANTINE MUSICAL SYMBOL SYNEVMA
+1D014	BYZANTINE MUSICAL SYMBOL THITA
+1D015	BYZANTINE MUSICAL SYMBOL OLIGON ARCHAION
+1D016	BYZANTINE MUSICAL SYMBOL GORGON ARCHAION
+1D017	BYZANTINE MUSICAL SYMBOL PSILON
+1D018	BYZANTINE MUSICAL SYMBOL CHAMILON
+1D019	BYZANTINE MUSICAL SYMBOL VATHY
+1D01A	BYZANTINE MUSICAL SYMBOL ISON ARCHAION
+1D01B	BYZANTINE MUSICAL SYMBOL KENTIMA ARCHAION
+1D01C	BYZANTINE MUSICAL SYMBOL KENTIMATA ARCHAION
+1D01D	BYZANTINE MUSICAL SYMBOL SAXIMATA
+1D01E	BYZANTINE MUSICAL SYMBOL PARICHON
+1D01F	BYZANTINE MUSICAL SYMBOL STAVROS APODEXIA
+1D020	BYZANTINE MUSICAL SYMBOL OXEIAI ARCHAION
+1D021	BYZANTINE MUSICAL SYMBOL VAREIAI ARCHAION
+1D022	BYZANTINE MUSICAL SYMBOL APODERMA ARCHAION
+1D023	BYZANTINE MUSICAL SYMBOL APOTHEMA
+1D024	BYZANTINE MUSICAL SYMBOL KLASMA
+1D025	BYZANTINE MUSICAL SYMBOL REVMA
+1D026	BYZANTINE MUSICAL SYMBOL PIASMA ARCHAION
+1D027	BYZANTINE MUSICAL SYMBOL TINAGMA
+1D028	BYZANTINE MUSICAL SYMBOL ANATRICHISMA
+1D029	BYZANTINE MUSICAL SYMBOL SEISMA
+1D02A	BYZANTINE MUSICAL SYMBOL SYNAGMA ARCHAION
+1D02B	BYZANTINE MUSICAL SYMBOL SYNAGMA META STAVROU
+1D02C	BYZANTINE MUSICAL SYMBOL OYRANISMA ARCHAION
+1D02D	BYZANTINE MUSICAL SYMBOL THEMA
+1D02E	BYZANTINE MUSICAL SYMBOL LEMOI
+1D02F	BYZANTINE MUSICAL SYMBOL DYO
+1D030	BYZANTINE MUSICAL SYMBOL TRIA
+1D031	BYZANTINE MUSICAL SYMBOL TESSERA
+1D032	BYZANTINE MUSICAL SYMBOL KRATIMATA
+1D033	BYZANTINE MUSICAL SYMBOL APESO EXO NEO
+1D034	BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION
+1D035	BYZANTINE MUSICAL SYMBOL IMIFTHORA
+1D036	BYZANTINE MUSICAL SYMBOL TROMIKON ARCHAION
+1D037	BYZANTINE MUSICAL SYMBOL KATAVA TROMIKON
+1D038	BYZANTINE MUSICAL SYMBOL PELASTON
+1D039	BYZANTINE MUSICAL SYMBOL PSIFISTON
+1D03A	BYZANTINE MUSICAL SYMBOL KONTEVMA
+1D03B	BYZANTINE MUSICAL SYMBOL CHOREVMA ARCHAION
+1D03C	BYZANTINE MUSICAL SYMBOL RAPISMA
+1D03D	BYZANTINE MUSICAL SYMBOL PARAKALESMA ARCHAION
+1D03E	BYZANTINE MUSICAL SYMBOL PARAKLITIKI ARCHAION
+1D03F	BYZANTINE MUSICAL SYMBOL ICHADIN
+1D040	BYZANTINE MUSICAL SYMBOL NANA
+1D041	BYZANTINE MUSICAL SYMBOL PETASMA
+1D042	BYZANTINE MUSICAL SYMBOL KONTEVMA ALLO
+1D043	BYZANTINE MUSICAL SYMBOL TROMIKON ALLO
+1D044	BYZANTINE MUSICAL SYMBOL STRAGGISMATA
+1D045	BYZANTINE MUSICAL SYMBOL GRONTHISMATA
+1D046	BYZANTINE MUSICAL SYMBOL ISON NEO
+1D047	BYZANTINE MUSICAL SYMBOL OLIGON NEO
+1D048	BYZANTINE MUSICAL SYMBOL OXEIA NEO
+1D049	BYZANTINE MUSICAL SYMBOL PETASTI
+1D04A	BYZANTINE MUSICAL SYMBOL KOUFISMA
+1D04B	BYZANTINE MUSICAL SYMBOL PETASTOKOUFISMA
+1D04C	BYZANTINE MUSICAL SYMBOL KRATIMOKOUFISMA
+1D04D	BYZANTINE MUSICAL SYMBOL PELASTON NEO
+1D04E	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO ANO
+1D04F	BYZANTINE MUSICAL SYMBOL KENTIMA NEO ANO
+1D050	BYZANTINE MUSICAL SYMBOL YPSILI
+1D051	BYZANTINE MUSICAL SYMBOL APOSTROFOS NEO
+1D052	BYZANTINE MUSICAL SYMBOL APOSTROFOI SYNDESMOS NEO
+1D053	BYZANTINE MUSICAL SYMBOL YPORROI
+1D054	BYZANTINE MUSICAL SYMBOL KRATIMOYPORROON
+1D055	BYZANTINE MUSICAL SYMBOL ELAFRON
+1D056	BYZANTINE MUSICAL SYMBOL CHAMILI
+1D057	BYZANTINE MUSICAL SYMBOL MIKRON ISON
+1D058	BYZANTINE MUSICAL SYMBOL VAREIA NEO
+1D059	BYZANTINE MUSICAL SYMBOL PIASMA NEO
+1D05A	BYZANTINE MUSICAL SYMBOL PSIFISTON NEO
+1D05B	BYZANTINE MUSICAL SYMBOL OMALON
+1D05C	BYZANTINE MUSICAL SYMBOL ANTIKENOMA
+1D05D	BYZANTINE MUSICAL SYMBOL LYGISMA
+1D05E	BYZANTINE MUSICAL SYMBOL PARAKLITIKI NEO
+1D05F	BYZANTINE MUSICAL SYMBOL PARAKALESMA NEO
+1D060	BYZANTINE MUSICAL SYMBOL ETERON PARAKALESMA
+1D061	BYZANTINE MUSICAL SYMBOL KYLISMA
+1D062	BYZANTINE MUSICAL SYMBOL ANTIKENOKYLISMA
+1D063	BYZANTINE MUSICAL SYMBOL TROMIKON NEO
+1D064	BYZANTINE MUSICAL SYMBOL EKSTREPTON
+1D065	BYZANTINE MUSICAL SYMBOL SYNAGMA NEO
+1D066	BYZANTINE MUSICAL SYMBOL SYRMA
+1D067	BYZANTINE MUSICAL SYMBOL CHOREVMA NEO
+1D068	BYZANTINE MUSICAL SYMBOL EPEGERMA
+1D069	BYZANTINE MUSICAL SYMBOL SEISMA NEO
+1D06A	BYZANTINE MUSICAL SYMBOL XIRON KLASMA
+1D06B	BYZANTINE MUSICAL SYMBOL TROMIKOPSIFISTON
+1D06C	BYZANTINE MUSICAL SYMBOL PSIFISTOLYGISMA
+1D06D	BYZANTINE MUSICAL SYMBOL TROMIKOLYGISMA
+1D06E	BYZANTINE MUSICAL SYMBOL TROMIKOPARAKALESMA
+1D06F	BYZANTINE MUSICAL SYMBOL PSIFISTOPARAKALESMA
+1D070	BYZANTINE MUSICAL SYMBOL TROMIKOSYNAGMA
+1D071	BYZANTINE MUSICAL SYMBOL PSIFISTOSYNAGMA
+1D072	BYZANTINE MUSICAL SYMBOL GORGOSYNTHETON
+1D073	BYZANTINE MUSICAL SYMBOL ARGOSYNTHETON
+1D074	BYZANTINE MUSICAL SYMBOL ETERON ARGOSYNTHETON
+1D075	BYZANTINE MUSICAL SYMBOL OYRANISMA NEO
+1D076	BYZANTINE MUSICAL SYMBOL THEMATISMOS ESO
+1D077	BYZANTINE MUSICAL SYMBOL THEMATISMOS EXO
+1D078	BYZANTINE MUSICAL SYMBOL THEMA APLOUN
+1D079	BYZANTINE MUSICAL SYMBOL THES KAI APOTHES
+1D07A	BYZANTINE MUSICAL SYMBOL KATAVASMA
+1D07B	BYZANTINE MUSICAL SYMBOL ENDOFONON
+1D07C	BYZANTINE MUSICAL SYMBOL YFEN KATO
+1D07D	BYZANTINE MUSICAL SYMBOL YFEN ANO
+1D07E	BYZANTINE MUSICAL SYMBOL STAVROS
+1D07F	BYZANTINE MUSICAL SYMBOL KLASMA ANO
+1D080	BYZANTINE MUSICAL SYMBOL DIPLI ARCHAION
+1D081	BYZANTINE MUSICAL SYMBOL KRATIMA ARCHAION
+1D082	BYZANTINE MUSICAL SYMBOL KRATIMA ALLO
+1D083	BYZANTINE MUSICAL SYMBOL KRATIMA NEO
+1D084	BYZANTINE MUSICAL SYMBOL APODERMA NEO
+1D085	BYZANTINE MUSICAL SYMBOL APLI
+1D086	BYZANTINE MUSICAL SYMBOL DIPLI
+1D087	BYZANTINE MUSICAL SYMBOL TRIPLI
+1D088	BYZANTINE MUSICAL SYMBOL TETRAPLI
+1D089	BYZANTINE MUSICAL SYMBOL KORONIS
+1D08A	BYZANTINE MUSICAL SYMBOL LEIMMA ENOS CHRONOU
+1D08B	BYZANTINE MUSICAL SYMBOL LEIMMA DYO CHRONON
+1D08C	BYZANTINE MUSICAL SYMBOL LEIMMA TRION CHRONON
+1D08D	BYZANTINE MUSICAL SYMBOL LEIMMA TESSARON CHRONON
+1D08E	BYZANTINE MUSICAL SYMBOL LEIMMA IMISEOS CHRONOU
+1D08F	BYZANTINE MUSICAL SYMBOL GORGON NEO ANO
+1D090	BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON ARISTERA
+1D091	BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON DEXIA
+1D092	BYZANTINE MUSICAL SYMBOL DIGORGON
+1D093	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA KATO
+1D094	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA ANO
+1D095	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON DEXIA
+1D096	BYZANTINE MUSICAL SYMBOL TRIGORGON
+1D097	BYZANTINE MUSICAL SYMBOL ARGON
+1D098	BYZANTINE MUSICAL SYMBOL IMIDIARGON
+1D099	BYZANTINE MUSICAL SYMBOL DIARGON
+1D09A	BYZANTINE MUSICAL SYMBOL AGOGI POLI ARGI
+1D09B	BYZANTINE MUSICAL SYMBOL AGOGI ARGOTERI
+1D09C	BYZANTINE MUSICAL SYMBOL AGOGI ARGI
+1D09D	BYZANTINE MUSICAL SYMBOL AGOGI METRIA
+1D09E	BYZANTINE MUSICAL SYMBOL AGOGI MESI
+1D09F	BYZANTINE MUSICAL SYMBOL AGOGI GORGI
+1D0A0	BYZANTINE MUSICAL SYMBOL AGOGI GORGOTERI
+1D0A1	BYZANTINE MUSICAL SYMBOL AGOGI POLI GORGI
+1D0A2	BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOS ICHOS
+1D0A3	BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI PROTOS ICHOS
+1D0A4	BYZANTINE MUSICAL SYMBOL MARTYRIA DEYTEROS ICHOS
+1D0A5	BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI DEYTEROS ICHOS
+1D0A6	BYZANTINE MUSICAL SYMBOL MARTYRIA TRITOS ICHOS
+1D0A7	BYZANTINE MUSICAL SYMBOL MARTYRIA TRIFONIAS
+1D0A8	BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS ICHOS
+1D0A9	BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS LEGETOS ICHOS
+1D0AA	BYZANTINE MUSICAL SYMBOL MARTYRIA LEGETOS ICHOS
+1D0AB	BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS ICHOS
+1D0AC	BYZANTINE MUSICAL SYMBOL ISAKIA TELOUS ICHIMATOS
+1D0AD	BYZANTINE MUSICAL SYMBOL APOSTROFOI TELOUS ICHIMATOS
+1D0AE	BYZANTINE MUSICAL SYMBOL FANEROSIS TETRAFONIAS
+1D0AF	BYZANTINE MUSICAL SYMBOL FANEROSIS MONOFONIAS
+1D0B0	BYZANTINE MUSICAL SYMBOL FANEROSIS DIFONIAS
+1D0B1	BYZANTINE MUSICAL SYMBOL MARTYRIA VARYS ICHOS
+1D0B2	BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOVARYS ICHOS
+1D0B3	BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS TETARTOS ICHOS
+1D0B4	BYZANTINE MUSICAL SYMBOL GORTHMIKON N APLOUN
+1D0B5	BYZANTINE MUSICAL SYMBOL GORTHMIKON N DIPLOUN
+1D0B6	BYZANTINE MUSICAL SYMBOL ENARXIS KAI FTHORA VOU
+1D0B7	BYZANTINE MUSICAL SYMBOL IMIFONON
+1D0B8	BYZANTINE MUSICAL SYMBOL IMIFTHORON
+1D0B9	BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION DEYTEROU ICHOU
+1D0BA	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI PA
+1D0BB	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NANA
+1D0BC	BYZANTINE MUSICAL SYMBOL FTHORA NAOS ICHOS
+1D0BD	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI DI
+1D0BE	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON DIATONON DI
+1D0BF	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI KE
+1D0C0	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI ZO
+1D0C1	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI KATO
+1D0C2	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI ANO
+1D0C3	BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA DIFONIAS
+1D0C4	BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA MONOFONIAS
+1D0C5	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS
+1D0C5	BYZANTINE MUSICAL SYMBOL FHTORA SKLIRON CHROMA VASIS
+1D0C6	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA SYNAFI
+1D0C7	BYZANTINE MUSICAL SYMBOL FTHORA NENANO
+1D0C8	BYZANTINE MUSICAL SYMBOL CHROA ZYGOS
+1D0C9	BYZANTINE MUSICAL SYMBOL CHROA KLITON
+1D0CA	BYZANTINE MUSICAL SYMBOL CHROA SPATHI
+1D0CB	BYZANTINE MUSICAL SYMBOL FTHORA I YFESIS TETARTIMORION
+1D0CC	BYZANTINE MUSICAL SYMBOL FTHORA ENARMONIOS ANTIFONIA
+1D0CD	BYZANTINE MUSICAL SYMBOL YFESIS TRITIMORION
+1D0CE	BYZANTINE MUSICAL SYMBOL DIESIS TRITIMORION
+1D0CF	BYZANTINE MUSICAL SYMBOL DIESIS TETARTIMORION
+1D0D0	BYZANTINE MUSICAL SYMBOL DIESIS APLI DYO DODEKATA
+1D0D1	BYZANTINE MUSICAL SYMBOL DIESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D2	BYZANTINE MUSICAL SYMBOL DIESIS DIGRAMMOS EX DODEKATA
+1D0D3	BYZANTINE MUSICAL SYMBOL DIESIS TRIGRAMMOS OKTO DODEKATA
+1D0D4	BYZANTINE MUSICAL SYMBOL YFESIS APLI DYO DODEKATA
+1D0D5	BYZANTINE MUSICAL SYMBOL YFESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D6	BYZANTINE MUSICAL SYMBOL YFESIS DIGRAMMOS EX DODEKATA
+1D0D7	BYZANTINE MUSICAL SYMBOL YFESIS TRIGRAMMOS OKTO DODEKATA
+1D0D8	BYZANTINE MUSICAL SYMBOL GENIKI DIESIS
+1D0D9	BYZANTINE MUSICAL SYMBOL GENIKI YFESIS
+1D0DA	BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MIKRI
+1D0DB	BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MEGALI
+1D0DC	BYZANTINE MUSICAL SYMBOL DIASTOLI DIPLI
+1D0DD	BYZANTINE MUSICAL SYMBOL DIASTOLI THESEOS
+1D0DE	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS
+1D0DF	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS DISIMOU
+1D0E0	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TRISIMOU
+1D0E1	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TETRASIMOU
+1D0E2	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS
+1D0E3	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS DISIMOU
+1D0E4	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TRISIMOU
+1D0E5	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TETRASIMOU
+1D0E6	BYZANTINE MUSICAL SYMBOL DIGRAMMA GG
+1D0E7	BYZANTINE MUSICAL SYMBOL DIFTOGGOS OU
+1D0E8	BYZANTINE MUSICAL SYMBOL STIGMA
+1D0E9	BYZANTINE MUSICAL SYMBOL ARKTIKO PA
+1D0EA	BYZANTINE MUSICAL SYMBOL ARKTIKO VOU
+1D0EB	BYZANTINE MUSICAL SYMBOL ARKTIKO GA
+1D0EC	BYZANTINE MUSICAL SYMBOL ARKTIKO DI
+1D0ED	BYZANTINE MUSICAL SYMBOL ARKTIKO KE
+1D0EE	BYZANTINE MUSICAL SYMBOL ARKTIKO ZO
+1D0EF	BYZANTINE MUSICAL SYMBOL ARKTIKO NI
+1D0F0	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO MESO
+1D0F1	BYZANTINE MUSICAL SYMBOL KENTIMA NEO MESO
+1D0F2	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO KATO
+1D0F3	BYZANTINE MUSICAL SYMBOL KENTIMA NEO KATO
+1D0F4	BYZANTINE MUSICAL SYMBOL KLASMA KATO
+1D0F5	BYZANTINE MUSICAL SYMBOL GORGON NEO KATO
+1D100	MUSICAL SYMBOL SINGLE BARLINE
+1D101	MUSICAL SYMBOL DOUBLE BARLINE
+1D102	MUSICAL SYMBOL FINAL BARLINE
+1D103	MUSICAL SYMBOL REVERSE FINAL BARLINE
+1D104	MUSICAL SYMBOL DASHED BARLINE
+1D105	MUSICAL SYMBOL SHORT BARLINE
+1D106	MUSICAL SYMBOL LEFT REPEAT SIGN
+1D107	MUSICAL SYMBOL RIGHT REPEAT SIGN
+1D108	MUSICAL SYMBOL REPEAT DOTS
+1D109	MUSICAL SYMBOL DAL SEGNO
+1D10A	MUSICAL SYMBOL DA CAPO
+1D10B	MUSICAL SYMBOL SEGNO
+1D10C	MUSICAL SYMBOL CODA
+1D10D	MUSICAL SYMBOL REPEATED FIGURE-1
+1D10E	MUSICAL SYMBOL REPEATED FIGURE-2
+1D10F	MUSICAL SYMBOL REPEATED FIGURE-3
+1D110	MUSICAL SYMBOL FERMATA
+1D111	MUSICAL SYMBOL FERMATA BELOW
+1D112	MUSICAL SYMBOL BREATH MARK
+1D113	MUSICAL SYMBOL CAESURA
+1D114	MUSICAL SYMBOL BRACE
+1D115	MUSICAL SYMBOL BRACKET
+1D116	MUSICAL SYMBOL ONE-LINE STAFF
+1D117	MUSICAL SYMBOL TWO-LINE STAFF
+1D118	MUSICAL SYMBOL THREE-LINE STAFF
+1D119	MUSICAL SYMBOL FOUR-LINE STAFF
+1D11A	MUSICAL SYMBOL FIVE-LINE STAFF
+1D11B	MUSICAL SYMBOL SIX-LINE STAFF
+1D11C	MUSICAL SYMBOL SIX-STRING FRETBOARD
+1D11D	MUSICAL SYMBOL FOUR-STRING FRETBOARD
+1D11E	MUSICAL SYMBOL G CLEF
+1D11F	MUSICAL SYMBOL G CLEF OTTAVA ALTA
+1D120	MUSICAL SYMBOL G CLEF OTTAVA BASSA
+1D121	MUSICAL SYMBOL C CLEF
+1D122	MUSICAL SYMBOL F CLEF
+1D123	MUSICAL SYMBOL F CLEF OTTAVA ALTA
+1D124	MUSICAL SYMBOL F CLEF OTTAVA BASSA
+1D125	MUSICAL SYMBOL DRUM CLEF-1
+1D126	MUSICAL SYMBOL DRUM CLEF-2
+1D129	MUSICAL SYMBOL MULTIPLE MEASURE REST
+1D12A	MUSICAL SYMBOL DOUBLE SHARP
+1D12B	MUSICAL SYMBOL DOUBLE FLAT
+1D12C	MUSICAL SYMBOL FLAT UP
+1D12D	MUSICAL SYMBOL FLAT DOWN
+1D12E	MUSICAL SYMBOL NATURAL UP
+1D12F	MUSICAL SYMBOL NATURAL DOWN
+1D130	MUSICAL SYMBOL SHARP UP
+1D131	MUSICAL SYMBOL SHARP DOWN
+1D132	MUSICAL SYMBOL QUARTER TONE SHARP
+1D133	MUSICAL SYMBOL QUARTER TONE FLAT
+1D134	MUSICAL SYMBOL COMMON TIME
+1D135	MUSICAL SYMBOL CUT TIME
+1D136	MUSICAL SYMBOL OTTAVA ALTA
+1D137	MUSICAL SYMBOL OTTAVA BASSA
+1D138	MUSICAL SYMBOL QUINDICESIMA ALTA
+1D139	MUSICAL SYMBOL QUINDICESIMA BASSA
+1D13A	MUSICAL SYMBOL MULTI REST
+1D13B	MUSICAL SYMBOL WHOLE REST
+1D13C	MUSICAL SYMBOL HALF REST
+1D13D	MUSICAL SYMBOL QUARTER REST
+1D13E	MUSICAL SYMBOL EIGHTH REST
+1D13F	MUSICAL SYMBOL SIXTEENTH REST
+1D140	MUSICAL SYMBOL THIRTY-SECOND REST
+1D141	MUSICAL SYMBOL SIXTY-FOURTH REST
+1D142	MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH REST
+1D143	MUSICAL SYMBOL X NOTEHEAD
+1D144	MUSICAL SYMBOL PLUS NOTEHEAD
+1D145	MUSICAL SYMBOL CIRCLE X NOTEHEAD
+1D146	MUSICAL SYMBOL SQUARE NOTEHEAD WHITE
+1D147	MUSICAL SYMBOL SQUARE NOTEHEAD BLACK
+1D148	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP WHITE
+1D149	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP BLACK
+1D14A	MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT WHITE
+1D14B	MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT BLACK
+1D14C	MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT WHITE
+1D14D	MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT BLACK
+1D14E	MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN WHITE
+1D14F	MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN BLACK
+1D150	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT WHITE
+1D151	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT BLACK
+1D152	MUSICAL SYMBOL MOON NOTEHEAD WHITE
+1D153	MUSICAL SYMBOL MOON NOTEHEAD BLACK
+1D154	MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN WHITE
+1D155	MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN BLACK
+1D156	MUSICAL SYMBOL PARENTHESIS NOTEHEAD
+1D157	MUSICAL SYMBOL VOID NOTEHEAD
+1D158	MUSICAL SYMBOL NOTEHEAD BLACK
+1D159	MUSICAL SYMBOL NULL NOTEHEAD
+1D15A	MUSICAL SYMBOL CLUSTER NOTEHEAD WHITE
+1D15B	MUSICAL SYMBOL CLUSTER NOTEHEAD BLACK
+1D15C	MUSICAL SYMBOL BREVE
+1D15D	MUSICAL SYMBOL WHOLE NOTE
+1D15E	MUSICAL SYMBOL HALF NOTE
+1D15F	MUSICAL SYMBOL QUARTER NOTE
+1D160	MUSICAL SYMBOL EIGHTH NOTE
+1D161	MUSICAL SYMBOL SIXTEENTH NOTE
+1D162	MUSICAL SYMBOL THIRTY-SECOND NOTE
+1D163	MUSICAL SYMBOL SIXTY-FOURTH NOTE
+1D164	MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH NOTE
+1D165	MUSICAL SYMBOL COMBINING STEM
+1D166	MUSICAL SYMBOL COMBINING SPRECHGESANG STEM
+1D167	MUSICAL SYMBOL COMBINING TREMOLO-1
+1D168	MUSICAL SYMBOL COMBINING TREMOLO-2
+1D169	MUSICAL SYMBOL COMBINING TREMOLO-3
+1D16A	MUSICAL SYMBOL FINGERED TREMOLO-1
+1D16B	MUSICAL SYMBOL FINGERED TREMOLO-2
+1D16C	MUSICAL SYMBOL FINGERED TREMOLO-3
+1D16D	MUSICAL SYMBOL COMBINING AUGMENTATION DOT
+1D16E	MUSICAL SYMBOL COMBINING FLAG-1
+1D16F	MUSICAL SYMBOL COMBINING FLAG-2
+1D170	MUSICAL SYMBOL COMBINING FLAG-3
+1D171	MUSICAL SYMBOL COMBINING FLAG-4
+1D172	MUSICAL SYMBOL COMBINING FLAG-5
+1D173	MUSICAL SYMBOL BEGIN BEAM
+1D174	MUSICAL SYMBOL END BEAM
+1D175	MUSICAL SYMBOL BEGIN TIE
+1D176	MUSICAL SYMBOL END TIE
+1D177	MUSICAL SYMBOL BEGIN SLUR
+1D178	MUSICAL SYMBOL END SLUR
+1D179	MUSICAL SYMBOL BEGIN PHRASE
+1D17A	MUSICAL SYMBOL END PHRASE
+1D17B	MUSICAL SYMBOL COMBINING ACCENT
+1D17C	MUSICAL SYMBOL COMBINING STACCATO
+1D17D	MUSICAL SYMBOL COMBINING TENUTO
+1D17E	MUSICAL SYMBOL COMBINING STACCATISSIMO
+1D17F	MUSICAL SYMBOL COMBINING MARCATO
+1D180	MUSICAL SYMBOL COMBINING MARCATO-STACCATO
+1D181	MUSICAL SYMBOL COMBINING ACCENT-STACCATO
+1D182	MUSICAL SYMBOL COMBINING LOURE
+1D183	MUSICAL SYMBOL ARPEGGIATO UP
+1D184	MUSICAL SYMBOL ARPEGGIATO DOWN
+1D185	MUSICAL SYMBOL COMBINING DOIT
+1D186	MUSICAL SYMBOL COMBINING RIP
+1D187	MUSICAL SYMBOL COMBINING FLIP
+1D188	MUSICAL SYMBOL COMBINING SMEAR
+1D189	MUSICAL SYMBOL COMBINING BEND
+1D18A	MUSICAL SYMBOL COMBINING DOUBLE TONGUE
+1D18B	MUSICAL SYMBOL COMBINING TRIPLE TONGUE
+1D18C	MUSICAL SYMBOL RINFORZANDO
+1D18D	MUSICAL SYMBOL SUBITO
+1D18E	MUSICAL SYMBOL Z
+1D18F	MUSICAL SYMBOL PIANO
+1D190	MUSICAL SYMBOL MEZZO
+1D191	MUSICAL SYMBOL FORTE
+1D192	MUSICAL SYMBOL CRESCENDO
+1D193	MUSICAL SYMBOL DECRESCENDO
+1D194	MUSICAL SYMBOL GRACE NOTE SLASH
+1D195	MUSICAL SYMBOL GRACE NOTE NO SLASH
+1D196	MUSICAL SYMBOL TR
+1D197	MUSICAL SYMBOL TURN
+1D198	MUSICAL SYMBOL INVERTED TURN
+1D199	MUSICAL SYMBOL TURN SLASH
+1D19A	MUSICAL SYMBOL TURN UP
+1D19B	MUSICAL SYMBOL ORNAMENT STROKE-1
+1D19C	MUSICAL SYMBOL ORNAMENT STROKE-2
+1D19D	MUSICAL SYMBOL ORNAMENT STROKE-3
+1D19E	MUSICAL SYMBOL ORNAMENT STROKE-4
+1D19F	MUSICAL SYMBOL ORNAMENT STROKE-5
+1D1A0	MUSICAL SYMBOL ORNAMENT STROKE-6
+1D1A1	MUSICAL SYMBOL ORNAMENT STROKE-7
+1D1A2	MUSICAL SYMBOL ORNAMENT STROKE-8
+1D1A3	MUSICAL SYMBOL ORNAMENT STROKE-9
+1D1A4	MUSICAL SYMBOL ORNAMENT STROKE-10
+1D1A5	MUSICAL SYMBOL ORNAMENT STROKE-11
+1D1A6	MUSICAL SYMBOL HAUPTSTIMME
+1D1A7	MUSICAL SYMBOL NEBENSTIMME
+1D1A8	MUSICAL SYMBOL END OF STIMME
+1D1A9	MUSICAL SYMBOL DEGREE SLASH
+1D1AA	MUSICAL SYMBOL COMBINING DOWN BOW
+1D1AB	MUSICAL SYMBOL COMBINING UP BOW
+1D1AC	MUSICAL SYMBOL COMBINING HARMONIC
+1D1AD	MUSICAL SYMBOL COMBINING SNAP PIZZICATO
+1D1AE	MUSICAL SYMBOL PEDAL MARK
+1D1AF	MUSICAL SYMBOL PEDAL UP MARK
+1D1B0	MUSICAL SYMBOL HALF PEDAL MARK
+1D1B1	MUSICAL SYMBOL GLISSANDO UP
+1D1B2	MUSICAL SYMBOL GLISSANDO DOWN
+1D1B3	MUSICAL SYMBOL WITH FINGERNAILS
+1D1B4	MUSICAL SYMBOL DAMP
+1D1B5	MUSICAL SYMBOL DAMP ALL
+1D1B6	MUSICAL SYMBOL MAXIMA
+1D1B7	MUSICAL SYMBOL LONGA
+1D1B8	MUSICAL SYMBOL BREVIS
+1D1B9	MUSICAL SYMBOL SEMIBREVIS WHITE
+1D1BA	MUSICAL SYMBOL SEMIBREVIS BLACK
+1D1BB	MUSICAL SYMBOL MINIMA
+1D1BC	MUSICAL SYMBOL MINIMA BLACK
+1D1BD	MUSICAL SYMBOL SEMIMINIMA WHITE
+1D1BE	MUSICAL SYMBOL SEMIMINIMA BLACK
+1D1BF	MUSICAL SYMBOL FUSA WHITE
+1D1C0	MUSICAL SYMBOL FUSA BLACK
+1D1C1	MUSICAL SYMBOL LONGA PERFECTA REST
+1D1C2	MUSICAL SYMBOL LONGA IMPERFECTA REST
+1D1C3	MUSICAL SYMBOL BREVIS REST
+1D1C4	MUSICAL SYMBOL SEMIBREVIS REST
+1D1C5	MUSICAL SYMBOL MINIMA REST
+1D1C6	MUSICAL SYMBOL SEMIMINIMA REST
+1D1C7	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA
+1D1C8	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE IMPERFECTA
+1D1C9	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA DIMINUTION-1
+1D1CA	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE PERFECTA
+1D1CB	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA
+1D1CC	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-1
+1D1CD	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-2
+1D1CE	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-3
+1D1CF	MUSICAL SYMBOL CROIX
+1D1D0	MUSICAL SYMBOL GREGORIAN C CLEF
+1D1D1	MUSICAL SYMBOL GREGORIAN F CLEF
+1D1D2	MUSICAL SYMBOL SQUARE B
+1D1D3	MUSICAL SYMBOL VIRGA
+1D1D4	MUSICAL SYMBOL PODATUS
+1D1D5	MUSICAL SYMBOL CLIVIS
+1D1D6	MUSICAL SYMBOL SCANDICUS
+1D1D7	MUSICAL SYMBOL CLIMACUS
+1D1D8	MUSICAL SYMBOL TORCULUS
+1D1D9	MUSICAL SYMBOL PORRECTUS
+1D1DA	MUSICAL SYMBOL PORRECTUS FLEXUS
+1D1DB	MUSICAL SYMBOL SCANDICUS FLEXUS
+1D1DC	MUSICAL SYMBOL TORCULUS RESUPINUS
+1D1DD	MUSICAL SYMBOL PES SUBPUNCTIS
+1D1DE	MUSICAL SYMBOL KIEVAN C CLEF
+1D1DF	MUSICAL SYMBOL KIEVAN END OF PIECE
+1D1E0	MUSICAL SYMBOL KIEVAN FINAL NOTE
+1D1E1	MUSICAL SYMBOL KIEVAN RECITATIVE MARK
+1D1E2	MUSICAL SYMBOL KIEVAN WHOLE NOTE
+1D1E3	MUSICAL SYMBOL KIEVAN HALF NOTE
+1D1E4	MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM DOWN
+1D1E5	MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM UP
+1D1E6	MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM DOWN
+1D1E7	MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM UP
+1D1E8	MUSICAL SYMBOL KIEVAN FLAT SIGN
+1D200	GREEK VOCAL NOTATION SYMBOL-1
+1D201	GREEK VOCAL NOTATION SYMBOL-2
+1D202	GREEK VOCAL NOTATION SYMBOL-3
+1D203	GREEK VOCAL NOTATION SYMBOL-4
+1D204	GREEK VOCAL NOTATION SYMBOL-5
+1D205	GREEK VOCAL NOTATION SYMBOL-6
+1D206	GREEK VOCAL NOTATION SYMBOL-7
+1D207	GREEK VOCAL NOTATION SYMBOL-8
+1D208	GREEK VOCAL NOTATION SYMBOL-9
+1D209	GREEK VOCAL NOTATION SYMBOL-10
+1D20A	GREEK VOCAL NOTATION SYMBOL-11
+1D20B	GREEK VOCAL NOTATION SYMBOL-12
+1D20C	GREEK VOCAL NOTATION SYMBOL-13
+1D20D	GREEK VOCAL NOTATION SYMBOL-14
+1D20E	GREEK VOCAL NOTATION SYMBOL-15
+1D20F	GREEK VOCAL NOTATION SYMBOL-16
+1D210	GREEK VOCAL NOTATION SYMBOL-17
+1D211	GREEK VOCAL NOTATION SYMBOL-18
+1D212	GREEK VOCAL NOTATION SYMBOL-19
+1D213	GREEK VOCAL NOTATION SYMBOL-20
+1D214	GREEK VOCAL NOTATION SYMBOL-21
+1D215	GREEK VOCAL NOTATION SYMBOL-22
+1D216	GREEK VOCAL NOTATION SYMBOL-23
+1D217	GREEK VOCAL NOTATION SYMBOL-24
+1D218	GREEK VOCAL NOTATION SYMBOL-50
+1D219	GREEK VOCAL NOTATION SYMBOL-51
+1D21A	GREEK VOCAL NOTATION SYMBOL-52
+1D21B	GREEK VOCAL NOTATION SYMBOL-53
+1D21C	GREEK VOCAL NOTATION SYMBOL-54
+1D21D	GREEK INSTRUMENTAL NOTATION SYMBOL-1
+1D21E	GREEK INSTRUMENTAL NOTATION SYMBOL-2
+1D21F	GREEK INSTRUMENTAL NOTATION SYMBOL-4
+1D220	GREEK INSTRUMENTAL NOTATION SYMBOL-5
+1D221	GREEK INSTRUMENTAL NOTATION SYMBOL-7
+1D222	GREEK INSTRUMENTAL NOTATION SYMBOL-8
+1D223	GREEK INSTRUMENTAL NOTATION SYMBOL-11
+1D224	GREEK INSTRUMENTAL NOTATION SYMBOL-12
+1D225	GREEK INSTRUMENTAL NOTATION SYMBOL-13
+1D226	GREEK INSTRUMENTAL NOTATION SYMBOL-14
+1D227	GREEK INSTRUMENTAL NOTATION SYMBOL-17
+1D228	GREEK INSTRUMENTAL NOTATION SYMBOL-18
+1D229	GREEK INSTRUMENTAL NOTATION SYMBOL-19
+1D22A	GREEK INSTRUMENTAL NOTATION SYMBOL-23
+1D22B	GREEK INSTRUMENTAL NOTATION SYMBOL-24
+1D22C	GREEK INSTRUMENTAL NOTATION SYMBOL-25
+1D22D	GREEK INSTRUMENTAL NOTATION SYMBOL-26
+1D22E	GREEK INSTRUMENTAL NOTATION SYMBOL-27
+1D22F	GREEK INSTRUMENTAL NOTATION SYMBOL-29
+1D230	GREEK INSTRUMENTAL NOTATION SYMBOL-30
+1D231	GREEK INSTRUMENTAL NOTATION SYMBOL-32
+1D232	GREEK INSTRUMENTAL NOTATION SYMBOL-36
+1D233	GREEK INSTRUMENTAL NOTATION SYMBOL-37
+1D234	GREEK INSTRUMENTAL NOTATION SYMBOL-38
+1D235	GREEK INSTRUMENTAL NOTATION SYMBOL-39
+1D236	GREEK INSTRUMENTAL NOTATION SYMBOL-40
+1D237	GREEK INSTRUMENTAL NOTATION SYMBOL-42
+1D238	GREEK INSTRUMENTAL NOTATION SYMBOL-43
+1D239	GREEK INSTRUMENTAL NOTATION SYMBOL-45
+1D23A	GREEK INSTRUMENTAL NOTATION SYMBOL-47
+1D23B	GREEK INSTRUMENTAL NOTATION SYMBOL-48
+1D23C	GREEK INSTRUMENTAL NOTATION SYMBOL-49
+1D23D	GREEK INSTRUMENTAL NOTATION SYMBOL-50
+1D23E	GREEK INSTRUMENTAL NOTATION SYMBOL-51
+1D23F	GREEK INSTRUMENTAL NOTATION SYMBOL-52
+1D240	GREEK INSTRUMENTAL NOTATION SYMBOL-53
+1D241	GREEK INSTRUMENTAL NOTATION SYMBOL-54
+1D242	COMBINING GREEK MUSICAL TRISEME
+1D243	COMBINING GREEK MUSICAL TETRASEME
+1D244	COMBINING GREEK MUSICAL PENTASEME
+1D245	GREEK MUSICAL LEIMMA
+1D300	MONOGRAM FOR EARTH
+1D301	DIGRAM FOR HEAVENLY EARTH
+1D302	DIGRAM FOR HUMAN EARTH
+1D303	DIGRAM FOR EARTHLY HEAVEN
+1D304	DIGRAM FOR EARTHLY HUMAN
+1D305	DIGRAM FOR EARTH
+1D306	TETRAGRAM FOR CENTRE
+1D307	TETRAGRAM FOR FULL CIRCLE
+1D308	TETRAGRAM FOR MIRED
+1D309	TETRAGRAM FOR BARRIER
+1D30A	TETRAGRAM FOR KEEPING SMALL
+1D30B	TETRAGRAM FOR CONTRARIETY
+1D30C	TETRAGRAM FOR ASCENT
+1D30D	TETRAGRAM FOR OPPOSITION
+1D30E	TETRAGRAM FOR BRANCHING OUT
+1D30F	TETRAGRAM FOR DEFECTIVENESS OR DISTORTION
+1D310	TETRAGRAM FOR DIVERGENCE
+1D311	TETRAGRAM FOR YOUTHFULNESS
+1D312	TETRAGRAM FOR INCREASE
+1D313	TETRAGRAM FOR PENETRATION
+1D314	TETRAGRAM FOR REACH
+1D315	TETRAGRAM FOR CONTACT
+1D316	TETRAGRAM FOR HOLDING BACK
+1D317	TETRAGRAM FOR WAITING
+1D318	TETRAGRAM FOR FOLLOWING
+1D319	TETRAGRAM FOR ADVANCE
+1D31A	TETRAGRAM FOR RELEASE
+1D31B	TETRAGRAM FOR RESISTANCE
+1D31C	TETRAGRAM FOR EASE
+1D31D	TETRAGRAM FOR JOY
+1D31E	TETRAGRAM FOR CONTENTION
+1D31F	TETRAGRAM FOR ENDEAVOUR
+1D320	TETRAGRAM FOR DUTIES
+1D321	TETRAGRAM FOR CHANGE
+1D322	TETRAGRAM FOR DECISIVENESS
+1D323	TETRAGRAM FOR BOLD RESOLUTION
+1D324	TETRAGRAM FOR PACKING
+1D325	TETRAGRAM FOR LEGION
+1D326	TETRAGRAM FOR CLOSENESS
+1D327	TETRAGRAM FOR KINSHIP
+1D328	TETRAGRAM FOR GATHERING
+1D329	TETRAGRAM FOR STRENGTH
+1D32A	TETRAGRAM FOR PURITY
+1D32B	TETRAGRAM FOR FULLNESS
+1D32C	TETRAGRAM FOR RESIDENCE
+1D32D	TETRAGRAM FOR LAW OR MODEL
+1D32E	TETRAGRAM FOR RESPONSE
+1D32F	TETRAGRAM FOR GOING TO MEET
+1D330	TETRAGRAM FOR ENCOUNTERS
+1D331	TETRAGRAM FOR STOVE
+1D332	TETRAGRAM FOR GREATNESS
+1D333	TETRAGRAM FOR ENLARGEMENT
+1D334	TETRAGRAM FOR PATTERN
+1D335	TETRAGRAM FOR RITUAL
+1D336	TETRAGRAM FOR FLIGHT
+1D337	TETRAGRAM FOR VASTNESS OR WASTING
+1D338	TETRAGRAM FOR CONSTANCY
+1D339	TETRAGRAM FOR MEASURE
+1D33A	TETRAGRAM FOR ETERNITY
+1D33B	TETRAGRAM FOR UNITY
+1D33C	TETRAGRAM FOR DIMINISHMENT
+1D33D	TETRAGRAM FOR CLOSED MOUTH
+1D33E	TETRAGRAM FOR GUARDEDNESS
+1D33F	TETRAGRAM FOR GATHERING IN
+1D340	TETRAGRAM FOR MASSING
+1D341	TETRAGRAM FOR ACCUMULATION
+1D342	TETRAGRAM FOR EMBELLISHMENT
+1D343	TETRAGRAM FOR DOUBT
+1D344	TETRAGRAM FOR WATCH
+1D345	TETRAGRAM FOR SINKING
+1D346	TETRAGRAM FOR INNER
+1D347	TETRAGRAM FOR DEPARTURE
+1D348	TETRAGRAM FOR DARKENING
+1D349	TETRAGRAM FOR DIMMING
+1D34A	TETRAGRAM FOR EXHAUSTION
+1D34B	TETRAGRAM FOR SEVERANCE
+1D34C	TETRAGRAM FOR STOPPAGE
+1D34D	TETRAGRAM FOR HARDNESS
+1D34E	TETRAGRAM FOR COMPLETION
+1D34F	TETRAGRAM FOR CLOSURE
+1D350	TETRAGRAM FOR FAILURE
+1D351	TETRAGRAM FOR AGGRAVATION
+1D352	TETRAGRAM FOR COMPLIANCE
+1D353	TETRAGRAM FOR ON THE VERGE
+1D354	TETRAGRAM FOR DIFFICULTIES
+1D355	TETRAGRAM FOR LABOURING
+1D356	TETRAGRAM FOR FOSTERING
+1D360	COUNTING ROD UNIT DIGIT ONE
+1D361	COUNTING ROD UNIT DIGIT TWO
+1D362	COUNTING ROD UNIT DIGIT THREE
+1D363	COUNTING ROD UNIT DIGIT FOUR
+1D364	COUNTING ROD UNIT DIGIT FIVE
+1D365	COUNTING ROD UNIT DIGIT SIX
+1D366	COUNTING ROD UNIT DIGIT SEVEN
+1D367	COUNTING ROD UNIT DIGIT EIGHT
+1D368	COUNTING ROD UNIT DIGIT NINE
+1D369	COUNTING ROD TENS DIGIT ONE
+1D36A	COUNTING ROD TENS DIGIT TWO
+1D36B	COUNTING ROD TENS DIGIT THREE
+1D36C	COUNTING ROD TENS DIGIT FOUR
+1D36D	COUNTING ROD TENS DIGIT FIVE
+1D36E	COUNTING ROD TENS DIGIT SIX
+1D36F	COUNTING ROD TENS DIGIT SEVEN
+1D370	COUNTING ROD TENS DIGIT EIGHT
+1D371	COUNTING ROD TENS DIGIT NINE
+1D400	MATHEMATICAL BOLD CAPITAL A
+1D401	MATHEMATICAL BOLD CAPITAL B
+1D402	MATHEMATICAL BOLD CAPITAL C
+1D403	MATHEMATICAL BOLD CAPITAL D
+1D404	MATHEMATICAL BOLD CAPITAL E
+1D405	MATHEMATICAL BOLD CAPITAL F
+1D406	MATHEMATICAL BOLD CAPITAL G
+1D407	MATHEMATICAL BOLD CAPITAL H
+1D408	MATHEMATICAL BOLD CAPITAL I
+1D409	MATHEMATICAL BOLD CAPITAL J
+1D40A	MATHEMATICAL BOLD CAPITAL K
+1D40B	MATHEMATICAL BOLD CAPITAL L
+1D40C	MATHEMATICAL BOLD CAPITAL M
+1D40D	MATHEMATICAL BOLD CAPITAL N
+1D40E	MATHEMATICAL BOLD CAPITAL O
+1D40F	MATHEMATICAL BOLD CAPITAL P
+1D410	MATHEMATICAL BOLD CAPITAL Q
+1D411	MATHEMATICAL BOLD CAPITAL R
+1D412	MATHEMATICAL BOLD CAPITAL S
+1D413	MATHEMATICAL BOLD CAPITAL T
+1D414	MATHEMATICAL BOLD CAPITAL U
+1D415	MATHEMATICAL BOLD CAPITAL V
+1D416	MATHEMATICAL BOLD CAPITAL W
+1D417	MATHEMATICAL BOLD CAPITAL X
+1D418	MATHEMATICAL BOLD CAPITAL Y
+1D419	MATHEMATICAL BOLD CAPITAL Z
+1D41A	MATHEMATICAL BOLD SMALL A
+1D41B	MATHEMATICAL BOLD SMALL B
+1D41C	MATHEMATICAL BOLD SMALL C
+1D41D	MATHEMATICAL BOLD SMALL D
+1D41E	MATHEMATICAL BOLD SMALL E
+1D41F	MATHEMATICAL BOLD SMALL F
+1D420	MATHEMATICAL BOLD SMALL G
+1D421	MATHEMATICAL BOLD SMALL H
+1D422	MATHEMATICAL BOLD SMALL I
+1D423	MATHEMATICAL BOLD SMALL J
+1D424	MATHEMATICAL BOLD SMALL K
+1D425	MATHEMATICAL BOLD SMALL L
+1D426	MATHEMATICAL BOLD SMALL M
+1D427	MATHEMATICAL BOLD SMALL N
+1D428	MATHEMATICAL BOLD SMALL O
+1D429	MATHEMATICAL BOLD SMALL P
+1D42A	MATHEMATICAL BOLD SMALL Q
+1D42B	MATHEMATICAL BOLD SMALL R
+1D42C	MATHEMATICAL BOLD SMALL S
+1D42D	MATHEMATICAL BOLD SMALL T
+1D42E	MATHEMATICAL BOLD SMALL U
+1D42F	MATHEMATICAL BOLD SMALL V
+1D430	MATHEMATICAL BOLD SMALL W
+1D431	MATHEMATICAL BOLD SMALL X
+1D432	MATHEMATICAL BOLD SMALL Y
+1D433	MATHEMATICAL BOLD SMALL Z
+1D434	MATHEMATICAL ITALIC CAPITAL A
+1D435	MATHEMATICAL ITALIC CAPITAL B
+1D436	MATHEMATICAL ITALIC CAPITAL C
+1D437	MATHEMATICAL ITALIC CAPITAL D
+1D438	MATHEMATICAL ITALIC CAPITAL E
+1D439	MATHEMATICAL ITALIC CAPITAL F
+1D43A	MATHEMATICAL ITALIC CAPITAL G
+1D43B	MATHEMATICAL ITALIC CAPITAL H
+1D43C	MATHEMATICAL ITALIC CAPITAL I
+1D43D	MATHEMATICAL ITALIC CAPITAL J
+1D43E	MATHEMATICAL ITALIC CAPITAL K
+1D43F	MATHEMATICAL ITALIC CAPITAL L
+1D440	MATHEMATICAL ITALIC CAPITAL M
+1D441	MATHEMATICAL ITALIC CAPITAL N
+1D442	MATHEMATICAL ITALIC CAPITAL O
+1D443	MATHEMATICAL ITALIC CAPITAL P
+1D444	MATHEMATICAL ITALIC CAPITAL Q
+1D445	MATHEMATICAL ITALIC CAPITAL R
+1D446	MATHEMATICAL ITALIC CAPITAL S
+1D447	MATHEMATICAL ITALIC CAPITAL T
+1D448	MATHEMATICAL ITALIC CAPITAL U
+1D449	MATHEMATICAL ITALIC CAPITAL V
+1D44A	MATHEMATICAL ITALIC CAPITAL W
+1D44B	MATHEMATICAL ITALIC CAPITAL X
+1D44C	MATHEMATICAL ITALIC CAPITAL Y
+1D44D	MATHEMATICAL ITALIC CAPITAL Z
+1D44E	MATHEMATICAL ITALIC SMALL A
+1D44F	MATHEMATICAL ITALIC SMALL B
+1D450	MATHEMATICAL ITALIC SMALL C
+1D451	MATHEMATICAL ITALIC SMALL D
+1D452	MATHEMATICAL ITALIC SMALL E
+1D453	MATHEMATICAL ITALIC SMALL F
+1D454	MATHEMATICAL ITALIC SMALL G
+1D456	MATHEMATICAL ITALIC SMALL I
+1D457	MATHEMATICAL ITALIC SMALL J
+1D458	MATHEMATICAL ITALIC SMALL K
+1D459	MATHEMATICAL ITALIC SMALL L
+1D45A	MATHEMATICAL ITALIC SMALL M
+1D45B	MATHEMATICAL ITALIC SMALL N
+1D45C	MATHEMATICAL ITALIC SMALL O
+1D45D	MATHEMATICAL ITALIC SMALL P
+1D45E	MATHEMATICAL ITALIC SMALL Q
+1D45F	MATHEMATICAL ITALIC SMALL R
+1D460	MATHEMATICAL ITALIC SMALL S
+1D461	MATHEMATICAL ITALIC SMALL T
+1D462	MATHEMATICAL ITALIC SMALL U
+1D463	MATHEMATICAL ITALIC SMALL V
+1D464	MATHEMATICAL ITALIC SMALL W
+1D465	MATHEMATICAL ITALIC SMALL X
+1D466	MATHEMATICAL ITALIC SMALL Y
+1D467	MATHEMATICAL ITALIC SMALL Z
+1D468	MATHEMATICAL BOLD ITALIC CAPITAL A
+1D469	MATHEMATICAL BOLD ITALIC CAPITAL B
+1D46A	MATHEMATICAL BOLD ITALIC CAPITAL C
+1D46B	MATHEMATICAL BOLD ITALIC CAPITAL D
+1D46C	MATHEMATICAL BOLD ITALIC CAPITAL E
+1D46D	MATHEMATICAL BOLD ITALIC CAPITAL F
+1D46E	MATHEMATICAL BOLD ITALIC CAPITAL G
+1D46F	MATHEMATICAL BOLD ITALIC CAPITAL H
+1D470	MATHEMATICAL BOLD ITALIC CAPITAL I
+1D471	MATHEMATICAL BOLD ITALIC CAPITAL J
+1D472	MATHEMATICAL BOLD ITALIC CAPITAL K
+1D473	MATHEMATICAL BOLD ITALIC CAPITAL L
+1D474	MATHEMATICAL BOLD ITALIC CAPITAL M
+1D475	MATHEMATICAL BOLD ITALIC CAPITAL N
+1D476	MATHEMATICAL BOLD ITALIC CAPITAL O
+1D477	MATHEMATICAL BOLD ITALIC CAPITAL P
+1D478	MATHEMATICAL BOLD ITALIC CAPITAL Q
+1D479	MATHEMATICAL BOLD ITALIC CAPITAL R
+1D47A	MATHEMATICAL BOLD ITALIC CAPITAL S
+1D47B	MATHEMATICAL BOLD ITALIC CAPITAL T
+1D47C	MATHEMATICAL BOLD ITALIC CAPITAL U
+1D47D	MATHEMATICAL BOLD ITALIC CAPITAL V
+1D47E	MATHEMATICAL BOLD ITALIC CAPITAL W
+1D47F	MATHEMATICAL BOLD ITALIC CAPITAL X
+1D480	MATHEMATICAL BOLD ITALIC CAPITAL Y
+1D481	MATHEMATICAL BOLD ITALIC CAPITAL Z
+1D482	MATHEMATICAL BOLD ITALIC SMALL A
+1D483	MATHEMATICAL BOLD ITALIC SMALL B
+1D484	MATHEMATICAL BOLD ITALIC SMALL C
+1D485	MATHEMATICAL BOLD ITALIC SMALL D
+1D486	MATHEMATICAL BOLD ITALIC SMALL E
+1D487	MATHEMATICAL BOLD ITALIC SMALL F
+1D488	MATHEMATICAL BOLD ITALIC SMALL G
+1D489	MATHEMATICAL BOLD ITALIC SMALL H
+1D48A	MATHEMATICAL BOLD ITALIC SMALL I
+1D48B	MATHEMATICAL BOLD ITALIC SMALL J
+1D48C	MATHEMATICAL BOLD ITALIC SMALL K
+1D48D	MATHEMATICAL BOLD ITALIC SMALL L
+1D48E	MATHEMATICAL BOLD ITALIC SMALL M
+1D48F	MATHEMATICAL BOLD ITALIC SMALL N
+1D490	MATHEMATICAL BOLD ITALIC SMALL O
+1D491	MATHEMATICAL BOLD ITALIC SMALL P
+1D492	MATHEMATICAL BOLD ITALIC SMALL Q
+1D493	MATHEMATICAL BOLD ITALIC SMALL R
+1D494	MATHEMATICAL BOLD ITALIC SMALL S
+1D495	MATHEMATICAL BOLD ITALIC SMALL T
+1D496	MATHEMATICAL BOLD ITALIC SMALL U
+1D497	MATHEMATICAL BOLD ITALIC SMALL V
+1D498	MATHEMATICAL BOLD ITALIC SMALL W
+1D499	MATHEMATICAL BOLD ITALIC SMALL X
+1D49A	MATHEMATICAL BOLD ITALIC SMALL Y
+1D49B	MATHEMATICAL BOLD ITALIC SMALL Z
+1D49C	MATHEMATICAL SCRIPT CAPITAL A
+1D49E	MATHEMATICAL SCRIPT CAPITAL C
+1D49F	MATHEMATICAL SCRIPT CAPITAL D
+1D4A2	MATHEMATICAL SCRIPT CAPITAL G
+1D4A5	MATHEMATICAL SCRIPT CAPITAL J
+1D4A6	MATHEMATICAL SCRIPT CAPITAL K
+1D4A9	MATHEMATICAL SCRIPT CAPITAL N
+1D4AA	MATHEMATICAL SCRIPT CAPITAL O
+1D4AB	MATHEMATICAL SCRIPT CAPITAL P
+1D4AC	MATHEMATICAL SCRIPT CAPITAL Q
+1D4AE	MATHEMATICAL SCRIPT CAPITAL S
+1D4AF	MATHEMATICAL SCRIPT CAPITAL T
+1D4B0	MATHEMATICAL SCRIPT CAPITAL U
+1D4B1	MATHEMATICAL SCRIPT CAPITAL V
+1D4B2	MATHEMATICAL SCRIPT CAPITAL W
+1D4B3	MATHEMATICAL SCRIPT CAPITAL X
+1D4B4	MATHEMATICAL SCRIPT CAPITAL Y
+1D4B5	MATHEMATICAL SCRIPT CAPITAL Z
+1D4B6	MATHEMATICAL SCRIPT SMALL A
+1D4B7	MATHEMATICAL SCRIPT SMALL B
+1D4B8	MATHEMATICAL SCRIPT SMALL C
+1D4B9	MATHEMATICAL SCRIPT SMALL D
+1D4BB	MATHEMATICAL SCRIPT SMALL F
+1D4BD	MATHEMATICAL SCRIPT SMALL H
+1D4BE	MATHEMATICAL SCRIPT SMALL I
+1D4BF	MATHEMATICAL SCRIPT SMALL J
+1D4C0	MATHEMATICAL SCRIPT SMALL K
+1D4C1	MATHEMATICAL SCRIPT SMALL L
+1D4C2	MATHEMATICAL SCRIPT SMALL M
+1D4C3	MATHEMATICAL SCRIPT SMALL N
+1D4C5	MATHEMATICAL SCRIPT SMALL P
+1D4C6	MATHEMATICAL SCRIPT SMALL Q
+1D4C7	MATHEMATICAL SCRIPT SMALL R
+1D4C8	MATHEMATICAL SCRIPT SMALL S
+1D4C9	MATHEMATICAL SCRIPT SMALL T
+1D4CA	MATHEMATICAL SCRIPT SMALL U
+1D4CB	MATHEMATICAL SCRIPT SMALL V
+1D4CC	MATHEMATICAL SCRIPT SMALL W
+1D4CD	MATHEMATICAL SCRIPT SMALL X
+1D4CE	MATHEMATICAL SCRIPT SMALL Y
+1D4CF	MATHEMATICAL SCRIPT SMALL Z
+1D4D0	MATHEMATICAL BOLD SCRIPT CAPITAL A
+1D4D1	MATHEMATICAL BOLD SCRIPT CAPITAL B
+1D4D2	MATHEMATICAL BOLD SCRIPT CAPITAL C
+1D4D3	MATHEMATICAL BOLD SCRIPT CAPITAL D
+1D4D4	MATHEMATICAL BOLD SCRIPT CAPITAL E
+1D4D5	MATHEMATICAL BOLD SCRIPT CAPITAL F
+1D4D6	MATHEMATICAL BOLD SCRIPT CAPITAL G
+1D4D7	MATHEMATICAL BOLD SCRIPT CAPITAL H
+1D4D8	MATHEMATICAL BOLD SCRIPT CAPITAL I
+1D4D9	MATHEMATICAL BOLD SCRIPT CAPITAL J
+1D4DA	MATHEMATICAL BOLD SCRIPT CAPITAL K
+1D4DB	MATHEMATICAL BOLD SCRIPT CAPITAL L
+1D4DC	MATHEMATICAL BOLD SCRIPT CAPITAL M
+1D4DD	MATHEMATICAL BOLD SCRIPT CAPITAL N
+1D4DE	MATHEMATICAL BOLD SCRIPT CAPITAL O
+1D4DF	MATHEMATICAL BOLD SCRIPT CAPITAL P
+1D4E0	MATHEMATICAL BOLD SCRIPT CAPITAL Q
+1D4E1	MATHEMATICAL BOLD SCRIPT CAPITAL R
+1D4E2	MATHEMATICAL BOLD SCRIPT CAPITAL S
+1D4E3	MATHEMATICAL BOLD SCRIPT CAPITAL T
+1D4E4	MATHEMATICAL BOLD SCRIPT CAPITAL U
+1D4E5	MATHEMATICAL BOLD SCRIPT CAPITAL V
+1D4E6	MATHEMATICAL BOLD SCRIPT CAPITAL W
+1D4E7	MATHEMATICAL BOLD SCRIPT CAPITAL X
+1D4E8	MATHEMATICAL BOLD SCRIPT CAPITAL Y
+1D4E9	MATHEMATICAL BOLD SCRIPT CAPITAL Z
+1D4EA	MATHEMATICAL BOLD SCRIPT SMALL A
+1D4EB	MATHEMATICAL BOLD SCRIPT SMALL B
+1D4EC	MATHEMATICAL BOLD SCRIPT SMALL C
+1D4ED	MATHEMATICAL BOLD SCRIPT SMALL D
+1D4EE	MATHEMATICAL BOLD SCRIPT SMALL E
+1D4EF	MATHEMATICAL BOLD SCRIPT SMALL F
+1D4F0	MATHEMATICAL BOLD SCRIPT SMALL G
+1D4F1	MATHEMATICAL BOLD SCRIPT SMALL H
+1D4F2	MATHEMATICAL BOLD SCRIPT SMALL I
+1D4F3	MATHEMATICAL BOLD SCRIPT SMALL J
+1D4F4	MATHEMATICAL BOLD SCRIPT SMALL K
+1D4F5	MATHEMATICAL BOLD SCRIPT SMALL L
+1D4F6	MATHEMATICAL BOLD SCRIPT SMALL M
+1D4F7	MATHEMATICAL BOLD SCRIPT SMALL N
+1D4F8	MATHEMATICAL BOLD SCRIPT SMALL O
+1D4F9	MATHEMATICAL BOLD SCRIPT SMALL P
+1D4FA	MATHEMATICAL BOLD SCRIPT SMALL Q
+1D4FB	MATHEMATICAL BOLD SCRIPT SMALL R
+1D4FC	MATHEMATICAL BOLD SCRIPT SMALL S
+1D4FD	MATHEMATICAL BOLD SCRIPT SMALL T
+1D4FE	MATHEMATICAL BOLD SCRIPT SMALL U
+1D4FF	MATHEMATICAL BOLD SCRIPT SMALL V
+1D500	MATHEMATICAL BOLD SCRIPT SMALL W
+1D501	MATHEMATICAL BOLD SCRIPT SMALL X
+1D502	MATHEMATICAL BOLD SCRIPT SMALL Y
+1D503	MATHEMATICAL BOLD SCRIPT SMALL Z
+1D504	MATHEMATICAL FRAKTUR CAPITAL A
+1D505	MATHEMATICAL FRAKTUR CAPITAL B
+1D507	MATHEMATICAL FRAKTUR CAPITAL D
+1D508	MATHEMATICAL FRAKTUR CAPITAL E
+1D509	MATHEMATICAL FRAKTUR CAPITAL F
+1D50A	MATHEMATICAL FRAKTUR CAPITAL G
+1D50D	MATHEMATICAL FRAKTUR CAPITAL J
+1D50E	MATHEMATICAL FRAKTUR CAPITAL K
+1D50F	MATHEMATICAL FRAKTUR CAPITAL L
+1D510	MATHEMATICAL FRAKTUR CAPITAL M
+1D511	MATHEMATICAL FRAKTUR CAPITAL N
+1D512	MATHEMATICAL FRAKTUR CAPITAL O
+1D513	MATHEMATICAL FRAKTUR CAPITAL P
+1D514	MATHEMATICAL FRAKTUR CAPITAL Q
+1D516	MATHEMATICAL FRAKTUR CAPITAL S
+1D517	MATHEMATICAL FRAKTUR CAPITAL T
+1D518	MATHEMATICAL FRAKTUR CAPITAL U
+1D519	MATHEMATICAL FRAKTUR CAPITAL V
+1D51A	MATHEMATICAL FRAKTUR CAPITAL W
+1D51B	MATHEMATICAL FRAKTUR CAPITAL X
+1D51C	MATHEMATICAL FRAKTUR CAPITAL Y
+1D51E	MATHEMATICAL FRAKTUR SMALL A
+1D51F	MATHEMATICAL FRAKTUR SMALL B
+1D520	MATHEMATICAL FRAKTUR SMALL C
+1D521	MATHEMATICAL FRAKTUR SMALL D
+1D522	MATHEMATICAL FRAKTUR SMALL E
+1D523	MATHEMATICAL FRAKTUR SMALL F
+1D524	MATHEMATICAL FRAKTUR SMALL G
+1D525	MATHEMATICAL FRAKTUR SMALL H
+1D526	MATHEMATICAL FRAKTUR SMALL I
+1D527	MATHEMATICAL FRAKTUR SMALL J
+1D528	MATHEMATICAL FRAKTUR SMALL K
+1D529	MATHEMATICAL FRAKTUR SMALL L
+1D52A	MATHEMATICAL FRAKTUR SMALL M
+1D52B	MATHEMATICAL FRAKTUR SMALL N
+1D52C	MATHEMATICAL FRAKTUR SMALL O
+1D52D	MATHEMATICAL FRAKTUR SMALL P
+1D52E	MATHEMATICAL FRAKTUR SMALL Q
+1D52F	MATHEMATICAL FRAKTUR SMALL R
+1D530	MATHEMATICAL FRAKTUR SMALL S
+1D531	MATHEMATICAL FRAKTUR SMALL T
+1D532	MATHEMATICAL FRAKTUR SMALL U
+1D533	MATHEMATICAL FRAKTUR SMALL V
+1D534	MATHEMATICAL FRAKTUR SMALL W
+1D535	MATHEMATICAL FRAKTUR SMALL X
+1D536	MATHEMATICAL FRAKTUR SMALL Y
+1D537	MATHEMATICAL FRAKTUR SMALL Z
+1D538	MATHEMATICAL DOUBLE-STRUCK CAPITAL A
+1D539	MATHEMATICAL DOUBLE-STRUCK CAPITAL B
+1D53B	MATHEMATICAL DOUBLE-STRUCK CAPITAL D
+1D53C	MATHEMATICAL DOUBLE-STRUCK CAPITAL E
+1D53D	MATHEMATICAL DOUBLE-STRUCK CAPITAL F
+1D53E	MATHEMATICAL DOUBLE-STRUCK CAPITAL G
+1D540	MATHEMATICAL DOUBLE-STRUCK CAPITAL I
+1D541	MATHEMATICAL DOUBLE-STRUCK CAPITAL J
+1D542	MATHEMATICAL DOUBLE-STRUCK CAPITAL K
+1D543	MATHEMATICAL DOUBLE-STRUCK CAPITAL L
+1D544	MATHEMATICAL DOUBLE-STRUCK CAPITAL M
+1D546	MATHEMATICAL DOUBLE-STRUCK CAPITAL O
+1D54A	MATHEMATICAL DOUBLE-STRUCK CAPITAL S
+1D54B	MATHEMATICAL DOUBLE-STRUCK CAPITAL T
+1D54C	MATHEMATICAL DOUBLE-STRUCK CAPITAL U
+1D54D	MATHEMATICAL DOUBLE-STRUCK CAPITAL V
+1D54E	MATHEMATICAL DOUBLE-STRUCK CAPITAL W
+1D54F	MATHEMATICAL DOUBLE-STRUCK CAPITAL X
+1D550	MATHEMATICAL DOUBLE-STRUCK CAPITAL Y
+1D552	MATHEMATICAL DOUBLE-STRUCK SMALL A
+1D553	MATHEMATICAL DOUBLE-STRUCK SMALL B
+1D554	MATHEMATICAL DOUBLE-STRUCK SMALL C
+1D555	MATHEMATICAL DOUBLE-STRUCK SMALL D
+1D556	MATHEMATICAL DOUBLE-STRUCK SMALL E
+1D557	MATHEMATICAL DOUBLE-STRUCK SMALL F
+1D558	MATHEMATICAL DOUBLE-STRUCK SMALL G
+1D559	MATHEMATICAL DOUBLE-STRUCK SMALL H
+1D55A	MATHEMATICAL DOUBLE-STRUCK SMALL I
+1D55B	MATHEMATICAL DOUBLE-STRUCK SMALL J
+1D55C	MATHEMATICAL DOUBLE-STRUCK SMALL K
+1D55D	MATHEMATICAL DOUBLE-STRUCK SMALL L
+1D55E	MATHEMATICAL DOUBLE-STRUCK SMALL M
+1D55F	MATHEMATICAL DOUBLE-STRUCK SMALL N
+1D560	MATHEMATICAL DOUBLE-STRUCK SMALL O
+1D561	MATHEMATICAL DOUBLE-STRUCK SMALL P
+1D562	MATHEMATICAL DOUBLE-STRUCK SMALL Q
+1D563	MATHEMATICAL DOUBLE-STRUCK SMALL R
+1D564	MATHEMATICAL DOUBLE-STRUCK SMALL S
+1D565	MATHEMATICAL DOUBLE-STRUCK SMALL T
+1D566	MATHEMATICAL DOUBLE-STRUCK SMALL U
+1D567	MATHEMATICAL DOUBLE-STRUCK SMALL V
+1D568	MATHEMATICAL DOUBLE-STRUCK SMALL W
+1D569	MATHEMATICAL DOUBLE-STRUCK SMALL X
+1D56A	MATHEMATICAL DOUBLE-STRUCK SMALL Y
+1D56B	MATHEMATICAL DOUBLE-STRUCK SMALL Z
+1D56C	MATHEMATICAL BOLD FRAKTUR CAPITAL A
+1D56D	MATHEMATICAL BOLD FRAKTUR CAPITAL B
+1D56E	MATHEMATICAL BOLD FRAKTUR CAPITAL C
+1D56F	MATHEMATICAL BOLD FRAKTUR CAPITAL D
+1D570	MATHEMATICAL BOLD FRAKTUR CAPITAL E
+1D571	MATHEMATICAL BOLD FRAKTUR CAPITAL F
+1D572	MATHEMATICAL BOLD FRAKTUR CAPITAL G
+1D573	MATHEMATICAL BOLD FRAKTUR CAPITAL H
+1D574	MATHEMATICAL BOLD FRAKTUR CAPITAL I
+1D575	MATHEMATICAL BOLD FRAKTUR CAPITAL J
+1D576	MATHEMATICAL BOLD FRAKTUR CAPITAL K
+1D577	MATHEMATICAL BOLD FRAKTUR CAPITAL L
+1D578	MATHEMATICAL BOLD FRAKTUR CAPITAL M
+1D579	MATHEMATICAL BOLD FRAKTUR CAPITAL N
+1D57A	MATHEMATICAL BOLD FRAKTUR CAPITAL O
+1D57B	MATHEMATICAL BOLD FRAKTUR CAPITAL P
+1D57C	MATHEMATICAL BOLD FRAKTUR CAPITAL Q
+1D57D	MATHEMATICAL BOLD FRAKTUR CAPITAL R
+1D57E	MATHEMATICAL BOLD FRAKTUR CAPITAL S
+1D57F	MATHEMATICAL BOLD FRAKTUR CAPITAL T
+1D580	MATHEMATICAL BOLD FRAKTUR CAPITAL U
+1D581	MATHEMATICAL BOLD FRAKTUR CAPITAL V
+1D582	MATHEMATICAL BOLD FRAKTUR CAPITAL W
+1D583	MATHEMATICAL BOLD FRAKTUR CAPITAL X
+1D584	MATHEMATICAL BOLD FRAKTUR CAPITAL Y
+1D585	MATHEMATICAL BOLD FRAKTUR CAPITAL Z
+1D586	MATHEMATICAL BOLD FRAKTUR SMALL A
+1D587	MATHEMATICAL BOLD FRAKTUR SMALL B
+1D588	MATHEMATICAL BOLD FRAKTUR SMALL C
+1D589	MATHEMATICAL BOLD FRAKTUR SMALL D
+1D58A	MATHEMATICAL BOLD FRAKTUR SMALL E
+1D58B	MATHEMATICAL BOLD FRAKTUR SMALL F
+1D58C	MATHEMATICAL BOLD FRAKTUR SMALL G
+1D58D	MATHEMATICAL BOLD FRAKTUR SMALL H
+1D58E	MATHEMATICAL BOLD FRAKTUR SMALL I
+1D58F	MATHEMATICAL BOLD FRAKTUR SMALL J
+1D590	MATHEMATICAL BOLD FRAKTUR SMALL K
+1D591	MATHEMATICAL BOLD FRAKTUR SMALL L
+1D592	MATHEMATICAL BOLD FRAKTUR SMALL M
+1D593	MATHEMATICAL BOLD FRAKTUR SMALL N
+1D594	MATHEMATICAL BOLD FRAKTUR SMALL O
+1D595	MATHEMATICAL BOLD FRAKTUR SMALL P
+1D596	MATHEMATICAL BOLD FRAKTUR SMALL Q
+1D597	MATHEMATICAL BOLD FRAKTUR SMALL R
+1D598	MATHEMATICAL BOLD FRAKTUR SMALL S
+1D599	MATHEMATICAL BOLD FRAKTUR SMALL T
+1D59A	MATHEMATICAL BOLD FRAKTUR SMALL U
+1D59B	MATHEMATICAL BOLD FRAKTUR SMALL V
+1D59C	MATHEMATICAL BOLD FRAKTUR SMALL W
+1D59D	MATHEMATICAL BOLD FRAKTUR SMALL X
+1D59E	MATHEMATICAL BOLD FRAKTUR SMALL Y
+1D59F	MATHEMATICAL BOLD FRAKTUR SMALL Z
+1D5A0	MATHEMATICAL SANS-SERIF CAPITAL A
+1D5A1	MATHEMATICAL SANS-SERIF CAPITAL B
+1D5A2	MATHEMATICAL SANS-SERIF CAPITAL C
+1D5A3	MATHEMATICAL SANS-SERIF CAPITAL D
+1D5A4	MATHEMATICAL SANS-SERIF CAPITAL E
+1D5A5	MATHEMATICAL SANS-SERIF CAPITAL F
+1D5A6	MATHEMATICAL SANS-SERIF CAPITAL G
+1D5A7	MATHEMATICAL SANS-SERIF CAPITAL H
+1D5A8	MATHEMATICAL SANS-SERIF CAPITAL I
+1D5A9	MATHEMATICAL SANS-SERIF CAPITAL J
+1D5AA	MATHEMATICAL SANS-SERIF CAPITAL K
+1D5AB	MATHEMATICAL SANS-SERIF CAPITAL L
+1D5AC	MATHEMATICAL SANS-SERIF CAPITAL M
+1D5AD	MATHEMATICAL SANS-SERIF CAPITAL N
+1D5AE	MATHEMATICAL SANS-SERIF CAPITAL O
+1D5AF	MATHEMATICAL SANS-SERIF CAPITAL P
+1D5B0	MATHEMATICAL SANS-SERIF CAPITAL Q
+1D5B1	MATHEMATICAL SANS-SERIF CAPITAL R
+1D5B2	MATHEMATICAL SANS-SERIF CAPITAL S
+1D5B3	MATHEMATICAL SANS-SERIF CAPITAL T
+1D5B4	MATHEMATICAL SANS-SERIF CAPITAL U
+1D5B5	MATHEMATICAL SANS-SERIF CAPITAL V
+1D5B6	MATHEMATICAL SANS-SERIF CAPITAL W
+1D5B7	MATHEMATICAL SANS-SERIF CAPITAL X
+1D5B8	MATHEMATICAL SANS-SERIF CAPITAL Y
+1D5B9	MATHEMATICAL SANS-SERIF CAPITAL Z
+1D5BA	MATHEMATICAL SANS-SERIF SMALL A
+1D5BB	MATHEMATICAL SANS-SERIF SMALL B
+1D5BC	MATHEMATICAL SANS-SERIF SMALL C
+1D5BD	MATHEMATICAL SANS-SERIF SMALL D
+1D5BE	MATHEMATICAL SANS-SERIF SMALL E
+1D5BF	MATHEMATICAL SANS-SERIF SMALL F
+1D5C0	MATHEMATICAL SANS-SERIF SMALL G
+1D5C1	MATHEMATICAL SANS-SERIF SMALL H
+1D5C2	MATHEMATICAL SANS-SERIF SMALL I
+1D5C3	MATHEMATICAL SANS-SERIF SMALL J
+1D5C4	MATHEMATICAL SANS-SERIF SMALL K
+1D5C5	MATHEMATICAL SANS-SERIF SMALL L
+1D5C6	MATHEMATICAL SANS-SERIF SMALL M
+1D5C7	MATHEMATICAL SANS-SERIF SMALL N
+1D5C8	MATHEMATICAL SANS-SERIF SMALL O
+1D5C9	MATHEMATICAL SANS-SERIF SMALL P
+1D5CA	MATHEMATICAL SANS-SERIF SMALL Q
+1D5CB	MATHEMATICAL SANS-SERIF SMALL R
+1D5CC	MATHEMATICAL SANS-SERIF SMALL S
+1D5CD	MATHEMATICAL SANS-SERIF SMALL T
+1D5CE	MATHEMATICAL SANS-SERIF SMALL U
+1D5CF	MATHEMATICAL SANS-SERIF SMALL V
+1D5D0	MATHEMATICAL SANS-SERIF SMALL W
+1D5D1	MATHEMATICAL SANS-SERIF SMALL X
+1D5D2	MATHEMATICAL SANS-SERIF SMALL Y
+1D5D3	MATHEMATICAL SANS-SERIF SMALL Z
+1D5D4	MATHEMATICAL SANS-SERIF BOLD CAPITAL A
+1D5D5	MATHEMATICAL SANS-SERIF BOLD CAPITAL B
+1D5D6	MATHEMATICAL SANS-SERIF BOLD CAPITAL C
+1D5D7	MATHEMATICAL SANS-SERIF BOLD CAPITAL D
+1D5D8	MATHEMATICAL SANS-SERIF BOLD CAPITAL E
+1D5D9	MATHEMATICAL SANS-SERIF BOLD CAPITAL F
+1D5DA	MATHEMATICAL SANS-SERIF BOLD CAPITAL G
+1D5DB	MATHEMATICAL SANS-SERIF BOLD CAPITAL H
+1D5DC	MATHEMATICAL SANS-SERIF BOLD CAPITAL I
+1D5DD	MATHEMATICAL SANS-SERIF BOLD CAPITAL J
+1D5DE	MATHEMATICAL SANS-SERIF BOLD CAPITAL K
+1D5DF	MATHEMATICAL SANS-SERIF BOLD CAPITAL L
+1D5E0	MATHEMATICAL SANS-SERIF BOLD CAPITAL M
+1D5E1	MATHEMATICAL SANS-SERIF BOLD CAPITAL N
+1D5E2	MATHEMATICAL SANS-SERIF BOLD CAPITAL O
+1D5E3	MATHEMATICAL SANS-SERIF BOLD CAPITAL P
+1D5E4	MATHEMATICAL SANS-SERIF BOLD CAPITAL Q
+1D5E5	MATHEMATICAL SANS-SERIF BOLD CAPITAL R
+1D5E6	MATHEMATICAL SANS-SERIF BOLD CAPITAL S
+1D5E7	MATHEMATICAL SANS-SERIF BOLD CAPITAL T
+1D5E8	MATHEMATICAL SANS-SERIF BOLD CAPITAL U
+1D5E9	MATHEMATICAL SANS-SERIF BOLD CAPITAL V
+1D5EA	MATHEMATICAL SANS-SERIF BOLD CAPITAL W
+1D5EB	MATHEMATICAL SANS-SERIF BOLD CAPITAL X
+1D5EC	MATHEMATICAL SANS-SERIF BOLD CAPITAL Y
+1D5ED	MATHEMATICAL SANS-SERIF BOLD CAPITAL Z
+1D5EE	MATHEMATICAL SANS-SERIF BOLD SMALL A
+1D5EF	MATHEMATICAL SANS-SERIF BOLD SMALL B
+1D5F0	MATHEMATICAL SANS-SERIF BOLD SMALL C
+1D5F1	MATHEMATICAL SANS-SERIF BOLD SMALL D
+1D5F2	MATHEMATICAL SANS-SERIF BOLD SMALL E
+1D5F3	MATHEMATICAL SANS-SERIF BOLD SMALL F
+1D5F4	MATHEMATICAL SANS-SERIF BOLD SMALL G
+1D5F5	MATHEMATICAL SANS-SERIF BOLD SMALL H
+1D5F6	MATHEMATICAL SANS-SERIF BOLD SMALL I
+1D5F7	MATHEMATICAL SANS-SERIF BOLD SMALL J
+1D5F8	MATHEMATICAL SANS-SERIF BOLD SMALL K
+1D5F9	MATHEMATICAL SANS-SERIF BOLD SMALL L
+1D5FA	MATHEMATICAL SANS-SERIF BOLD SMALL M
+1D5FB	MATHEMATICAL SANS-SERIF BOLD SMALL N
+1D5FC	MATHEMATICAL SANS-SERIF BOLD SMALL O
+1D5FD	MATHEMATICAL SANS-SERIF BOLD SMALL P
+1D5FE	MATHEMATICAL SANS-SERIF BOLD SMALL Q
+1D5FF	MATHEMATICAL SANS-SERIF BOLD SMALL R
+1D600	MATHEMATICAL SANS-SERIF BOLD SMALL S
+1D601	MATHEMATICAL SANS-SERIF BOLD SMALL T
+1D602	MATHEMATICAL SANS-SERIF BOLD SMALL U
+1D603	MATHEMATICAL SANS-SERIF BOLD SMALL V
+1D604	MATHEMATICAL SANS-SERIF BOLD SMALL W
+1D605	MATHEMATICAL SANS-SERIF BOLD SMALL X
+1D606	MATHEMATICAL SANS-SERIF BOLD SMALL Y
+1D607	MATHEMATICAL SANS-SERIF BOLD SMALL Z
+1D608	MATHEMATICAL SANS-SERIF ITALIC CAPITAL A
+1D609	MATHEMATICAL SANS-SERIF ITALIC CAPITAL B
+1D60A	MATHEMATICAL SANS-SERIF ITALIC CAPITAL C
+1D60B	MATHEMATICAL SANS-SERIF ITALIC CAPITAL D
+1D60C	MATHEMATICAL SANS-SERIF ITALIC CAPITAL E
+1D60D	MATHEMATICAL SANS-SERIF ITALIC CAPITAL F
+1D60E	MATHEMATICAL SANS-SERIF ITALIC CAPITAL G
+1D60F	MATHEMATICAL SANS-SERIF ITALIC CAPITAL H
+1D610	MATHEMATICAL SANS-SERIF ITALIC CAPITAL I
+1D611	MATHEMATICAL SANS-SERIF ITALIC CAPITAL J
+1D612	MATHEMATICAL SANS-SERIF ITALIC CAPITAL K
+1D613	MATHEMATICAL SANS-SERIF ITALIC CAPITAL L
+1D614	MATHEMATICAL SANS-SERIF ITALIC CAPITAL M
+1D615	MATHEMATICAL SANS-SERIF ITALIC CAPITAL N
+1D616	MATHEMATICAL SANS-SERIF ITALIC CAPITAL O
+1D617	MATHEMATICAL SANS-SERIF ITALIC CAPITAL P
+1D618	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q
+1D619	MATHEMATICAL SANS-SERIF ITALIC CAPITAL R
+1D61A	MATHEMATICAL SANS-SERIF ITALIC CAPITAL S
+1D61B	MATHEMATICAL SANS-SERIF ITALIC CAPITAL T
+1D61C	MATHEMATICAL SANS-SERIF ITALIC CAPITAL U
+1D61D	MATHEMATICAL SANS-SERIF ITALIC CAPITAL V
+1D61E	MATHEMATICAL SANS-SERIF ITALIC CAPITAL W
+1D61F	MATHEMATICAL SANS-SERIF ITALIC CAPITAL X
+1D620	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y
+1D621	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z
+1D622	MATHEMATICAL SANS-SERIF ITALIC SMALL A
+1D623	MATHEMATICAL SANS-SERIF ITALIC SMALL B
+1D624	MATHEMATICAL SANS-SERIF ITALIC SMALL C
+1D625	MATHEMATICAL SANS-SERIF ITALIC SMALL D
+1D626	MATHEMATICAL SANS-SERIF ITALIC SMALL E
+1D627	MATHEMATICAL SANS-SERIF ITALIC SMALL F
+1D628	MATHEMATICAL SANS-SERIF ITALIC SMALL G
+1D629	MATHEMATICAL SANS-SERIF ITALIC SMALL H
+1D62A	MATHEMATICAL SANS-SERIF ITALIC SMALL I
+1D62B	MATHEMATICAL SANS-SERIF ITALIC SMALL J
+1D62C	MATHEMATICAL SANS-SERIF ITALIC SMALL K
+1D62D	MATHEMATICAL SANS-SERIF ITALIC SMALL L
+1D62E	MATHEMATICAL SANS-SERIF ITALIC SMALL M
+1D62F	MATHEMATICAL SANS-SERIF ITALIC SMALL N
+1D630	MATHEMATICAL SANS-SERIF ITALIC SMALL O
+1D631	MATHEMATICAL SANS-SERIF ITALIC SMALL P
+1D632	MATHEMATICAL SANS-SERIF ITALIC SMALL Q
+1D633	MATHEMATICAL SANS-SERIF ITALIC SMALL R
+1D634	MATHEMATICAL SANS-SERIF ITALIC SMALL S
+1D635	MATHEMATICAL SANS-SERIF ITALIC SMALL T
+1D636	MATHEMATICAL SANS-SERIF ITALIC SMALL U
+1D637	MATHEMATICAL SANS-SERIF ITALIC SMALL V
+1D638	MATHEMATICAL SANS-SERIF ITALIC SMALL W
+1D639	MATHEMATICAL SANS-SERIF ITALIC SMALL X
+1D63A	MATHEMATICAL SANS-SERIF ITALIC SMALL Y
+1D63B	MATHEMATICAL SANS-SERIF ITALIC SMALL Z
+1D63C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A
+1D63D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B
+1D63E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C
+1D63F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D
+1D640	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E
+1D641	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F
+1D642	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G
+1D643	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H
+1D644	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I
+1D645	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J
+1D646	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K
+1D647	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L
+1D648	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M
+1D649	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N
+1D64A	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O
+1D64B	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P
+1D64C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q
+1D64D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R
+1D64E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S
+1D64F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T
+1D650	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U
+1D651	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V
+1D652	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W
+1D653	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X
+1D654	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y
+1D655	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z
+1D656	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A
+1D657	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B
+1D658	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C
+1D659	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D
+1D65A	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E
+1D65B	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F
+1D65C	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G
+1D65D	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H
+1D65E	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I
+1D65F	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J
+1D660	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K
+1D661	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L
+1D662	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M
+1D663	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N
+1D664	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O
+1D665	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P
+1D666	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q
+1D667	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R
+1D668	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S
+1D669	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T
+1D66A	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U
+1D66B	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V
+1D66C	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W
+1D66D	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X
+1D66E	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y
+1D66F	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z
+1D670	MATHEMATICAL MONOSPACE CAPITAL A
+1D671	MATHEMATICAL MONOSPACE CAPITAL B
+1D672	MATHEMATICAL MONOSPACE CAPITAL C
+1D673	MATHEMATICAL MONOSPACE CAPITAL D
+1D674	MATHEMATICAL MONOSPACE CAPITAL E
+1D675	MATHEMATICAL MONOSPACE CAPITAL F
+1D676	MATHEMATICAL MONOSPACE CAPITAL G
+1D677	MATHEMATICAL MONOSPACE CAPITAL H
+1D678	MATHEMATICAL MONOSPACE CAPITAL I
+1D679	MATHEMATICAL MONOSPACE CAPITAL J
+1D67A	MATHEMATICAL MONOSPACE CAPITAL K
+1D67B	MATHEMATICAL MONOSPACE CAPITAL L
+1D67C	MATHEMATICAL MONOSPACE CAPITAL M
+1D67D	MATHEMATICAL MONOSPACE CAPITAL N
+1D67E	MATHEMATICAL MONOSPACE CAPITAL O
+1D67F	MATHEMATICAL MONOSPACE CAPITAL P
+1D680	MATHEMATICAL MONOSPACE CAPITAL Q
+1D681	MATHEMATICAL MONOSPACE CAPITAL R
+1D682	MATHEMATICAL MONOSPACE CAPITAL S
+1D683	MATHEMATICAL MONOSPACE CAPITAL T
+1D684	MATHEMATICAL MONOSPACE CAPITAL U
+1D685	MATHEMATICAL MONOSPACE CAPITAL V
+1D686	MATHEMATICAL MONOSPACE CAPITAL W
+1D687	MATHEMATICAL MONOSPACE CAPITAL X
+1D688	MATHEMATICAL MONOSPACE CAPITAL Y
+1D689	MATHEMATICAL MONOSPACE CAPITAL Z
+1D68A	MATHEMATICAL MONOSPACE SMALL A
+1D68B	MATHEMATICAL MONOSPACE SMALL B
+1D68C	MATHEMATICAL MONOSPACE SMALL C
+1D68D	MATHEMATICAL MONOSPACE SMALL D
+1D68E	MATHEMATICAL MONOSPACE SMALL E
+1D68F	MATHEMATICAL MONOSPACE SMALL F
+1D690	MATHEMATICAL MONOSPACE SMALL G
+1D691	MATHEMATICAL MONOSPACE SMALL H
+1D692	MATHEMATICAL MONOSPACE SMALL I
+1D693	MATHEMATICAL MONOSPACE SMALL J
+1D694	MATHEMATICAL MONOSPACE SMALL K
+1D695	MATHEMATICAL MONOSPACE SMALL L
+1D696	MATHEMATICAL MONOSPACE SMALL M
+1D697	MATHEMATICAL MONOSPACE SMALL N
+1D698	MATHEMATICAL MONOSPACE SMALL O
+1D699	MATHEMATICAL MONOSPACE SMALL P
+1D69A	MATHEMATICAL MONOSPACE SMALL Q
+1D69B	MATHEMATICAL MONOSPACE SMALL R
+1D69C	MATHEMATICAL MONOSPACE SMALL S
+1D69D	MATHEMATICAL MONOSPACE SMALL T
+1D69E	MATHEMATICAL MONOSPACE SMALL U
+1D69F	MATHEMATICAL MONOSPACE SMALL V
+1D6A0	MATHEMATICAL MONOSPACE SMALL W
+1D6A1	MATHEMATICAL MONOSPACE SMALL X
+1D6A2	MATHEMATICAL MONOSPACE SMALL Y
+1D6A3	MATHEMATICAL MONOSPACE SMALL Z
+1D6A4	MATHEMATICAL ITALIC SMALL DOTLESS I
+1D6A5	MATHEMATICAL ITALIC SMALL DOTLESS J
+1D6A8	MATHEMATICAL BOLD CAPITAL ALPHA
+1D6A9	MATHEMATICAL BOLD CAPITAL BETA
+1D6AA	MATHEMATICAL BOLD CAPITAL GAMMA
+1D6AB	MATHEMATICAL BOLD CAPITAL DELTA
+1D6AC	MATHEMATICAL BOLD CAPITAL EPSILON
+1D6AD	MATHEMATICAL BOLD CAPITAL ZETA
+1D6AE	MATHEMATICAL BOLD CAPITAL ETA
+1D6AF	MATHEMATICAL BOLD CAPITAL THETA
+1D6B0	MATHEMATICAL BOLD CAPITAL IOTA
+1D6B1	MATHEMATICAL BOLD CAPITAL KAPPA
+1D6B2	MATHEMATICAL BOLD CAPITAL LAMDA
+1D6B3	MATHEMATICAL BOLD CAPITAL MU
+1D6B4	MATHEMATICAL BOLD CAPITAL NU
+1D6B5	MATHEMATICAL BOLD CAPITAL XI
+1D6B6	MATHEMATICAL BOLD CAPITAL OMICRON
+1D6B7	MATHEMATICAL BOLD CAPITAL PI
+1D6B8	MATHEMATICAL BOLD CAPITAL RHO
+1D6B9	MATHEMATICAL BOLD CAPITAL THETA SYMBOL
+1D6BA	MATHEMATICAL BOLD CAPITAL SIGMA
+1D6BB	MATHEMATICAL BOLD CAPITAL TAU
+1D6BC	MATHEMATICAL BOLD CAPITAL UPSILON
+1D6BD	MATHEMATICAL BOLD CAPITAL PHI
+1D6BE	MATHEMATICAL BOLD CAPITAL CHI
+1D6BF	MATHEMATICAL BOLD CAPITAL PSI
+1D6C0	MATHEMATICAL BOLD CAPITAL OMEGA
+1D6C1	MATHEMATICAL BOLD NABLA
+1D6C2	MATHEMATICAL BOLD SMALL ALPHA
+1D6C3	MATHEMATICAL BOLD SMALL BETA
+1D6C4	MATHEMATICAL BOLD SMALL GAMMA
+1D6C5	MATHEMATICAL BOLD SMALL DELTA
+1D6C6	MATHEMATICAL BOLD SMALL EPSILON
+1D6C7	MATHEMATICAL BOLD SMALL ZETA
+1D6C8	MATHEMATICAL BOLD SMALL ETA
+1D6C9	MATHEMATICAL BOLD SMALL THETA
+1D6CA	MATHEMATICAL BOLD SMALL IOTA
+1D6CB	MATHEMATICAL BOLD SMALL KAPPA
+1D6CC	MATHEMATICAL BOLD SMALL LAMDA
+1D6CD	MATHEMATICAL BOLD SMALL MU
+1D6CE	MATHEMATICAL BOLD SMALL NU
+1D6CF	MATHEMATICAL BOLD SMALL XI
+1D6D0	MATHEMATICAL BOLD SMALL OMICRON
+1D6D1	MATHEMATICAL BOLD SMALL PI
+1D6D2	MATHEMATICAL BOLD SMALL RHO
+1D6D3	MATHEMATICAL BOLD SMALL FINAL SIGMA
+1D6D4	MATHEMATICAL BOLD SMALL SIGMA
+1D6D5	MATHEMATICAL BOLD SMALL TAU
+1D6D6	MATHEMATICAL BOLD SMALL UPSILON
+1D6D7	MATHEMATICAL BOLD SMALL PHI
+1D6D8	MATHEMATICAL BOLD SMALL CHI
+1D6D9	MATHEMATICAL BOLD SMALL PSI
+1D6DA	MATHEMATICAL BOLD SMALL OMEGA
+1D6DB	MATHEMATICAL BOLD PARTIAL DIFFERENTIAL
+1D6DC	MATHEMATICAL BOLD EPSILON SYMBOL
+1D6DD	MATHEMATICAL BOLD THETA SYMBOL
+1D6DE	MATHEMATICAL BOLD KAPPA SYMBOL
+1D6DF	MATHEMATICAL BOLD PHI SYMBOL
+1D6E0	MATHEMATICAL BOLD RHO SYMBOL
+1D6E1	MATHEMATICAL BOLD PI SYMBOL
+1D6E2	MATHEMATICAL ITALIC CAPITAL ALPHA
+1D6E3	MATHEMATICAL ITALIC CAPITAL BETA
+1D6E4	MATHEMATICAL ITALIC CAPITAL GAMMA
+1D6E5	MATHEMATICAL ITALIC CAPITAL DELTA
+1D6E6	MATHEMATICAL ITALIC CAPITAL EPSILON
+1D6E7	MATHEMATICAL ITALIC CAPITAL ZETA
+1D6E8	MATHEMATICAL ITALIC CAPITAL ETA
+1D6E9	MATHEMATICAL ITALIC CAPITAL THETA
+1D6EA	MATHEMATICAL ITALIC CAPITAL IOTA
+1D6EB	MATHEMATICAL ITALIC CAPITAL KAPPA
+1D6EC	MATHEMATICAL ITALIC CAPITAL LAMDA
+1D6ED	MATHEMATICAL ITALIC CAPITAL MU
+1D6EE	MATHEMATICAL ITALIC CAPITAL NU
+1D6EF	MATHEMATICAL ITALIC CAPITAL XI
+1D6F0	MATHEMATICAL ITALIC CAPITAL OMICRON
+1D6F1	MATHEMATICAL ITALIC CAPITAL PI
+1D6F2	MATHEMATICAL ITALIC CAPITAL RHO
+1D6F3	MATHEMATICAL ITALIC CAPITAL THETA SYMBOL
+1D6F4	MATHEMATICAL ITALIC CAPITAL SIGMA
+1D6F5	MATHEMATICAL ITALIC CAPITAL TAU
+1D6F6	MATHEMATICAL ITALIC CAPITAL UPSILON
+1D6F7	MATHEMATICAL ITALIC CAPITAL PHI
+1D6F8	MATHEMATICAL ITALIC CAPITAL CHI
+1D6F9	MATHEMATICAL ITALIC CAPITAL PSI
+1D6FA	MATHEMATICAL ITALIC CAPITAL OMEGA
+1D6FB	MATHEMATICAL ITALIC NABLA
+1D6FC	MATHEMATICAL ITALIC SMALL ALPHA
+1D6FD	MATHEMATICAL ITALIC SMALL BETA
+1D6FE	MATHEMATICAL ITALIC SMALL GAMMA
+1D6FF	MATHEMATICAL ITALIC SMALL DELTA
+1D700	MATHEMATICAL ITALIC SMALL EPSILON
+1D701	MATHEMATICAL ITALIC SMALL ZETA
+1D702	MATHEMATICAL ITALIC SMALL ETA
+1D703	MATHEMATICAL ITALIC SMALL THETA
+1D704	MATHEMATICAL ITALIC SMALL IOTA
+1D705	MATHEMATICAL ITALIC SMALL KAPPA
+1D706	MATHEMATICAL ITALIC SMALL LAMDA
+1D707	MATHEMATICAL ITALIC SMALL MU
+1D708	MATHEMATICAL ITALIC SMALL NU
+1D709	MATHEMATICAL ITALIC SMALL XI
+1D70A	MATHEMATICAL ITALIC SMALL OMICRON
+1D70B	MATHEMATICAL ITALIC SMALL PI
+1D70C	MATHEMATICAL ITALIC SMALL RHO
+1D70D	MATHEMATICAL ITALIC SMALL FINAL SIGMA
+1D70E	MATHEMATICAL ITALIC SMALL SIGMA
+1D70F	MATHEMATICAL ITALIC SMALL TAU
+1D710	MATHEMATICAL ITALIC SMALL UPSILON
+1D711	MATHEMATICAL ITALIC SMALL PHI
+1D712	MATHEMATICAL ITALIC SMALL CHI
+1D713	MATHEMATICAL ITALIC SMALL PSI
+1D714	MATHEMATICAL ITALIC SMALL OMEGA
+1D715	MATHEMATICAL ITALIC PARTIAL DIFFERENTIAL
+1D716	MATHEMATICAL ITALIC EPSILON SYMBOL
+1D717	MATHEMATICAL ITALIC THETA SYMBOL
+1D718	MATHEMATICAL ITALIC KAPPA SYMBOL
+1D719	MATHEMATICAL ITALIC PHI SYMBOL
+1D71A	MATHEMATICAL ITALIC RHO SYMBOL
+1D71B	MATHEMATICAL ITALIC PI SYMBOL
+1D71C	MATHEMATICAL BOLD ITALIC CAPITAL ALPHA
+1D71D	MATHEMATICAL BOLD ITALIC CAPITAL BETA
+1D71E	MATHEMATICAL BOLD ITALIC CAPITAL GAMMA
+1D71F	MATHEMATICAL BOLD ITALIC CAPITAL DELTA
+1D720	MATHEMATICAL BOLD ITALIC CAPITAL EPSILON
+1D721	MATHEMATICAL BOLD ITALIC CAPITAL ZETA
+1D722	MATHEMATICAL BOLD ITALIC CAPITAL ETA
+1D723	MATHEMATICAL BOLD ITALIC CAPITAL THETA
+1D724	MATHEMATICAL BOLD ITALIC CAPITAL IOTA
+1D725	MATHEMATICAL BOLD ITALIC CAPITAL KAPPA
+1D726	MATHEMATICAL BOLD ITALIC CAPITAL LAMDA
+1D727	MATHEMATICAL BOLD ITALIC CAPITAL MU
+1D728	MATHEMATICAL BOLD ITALIC CAPITAL NU
+1D729	MATHEMATICAL BOLD ITALIC CAPITAL XI
+1D72A	MATHEMATICAL BOLD ITALIC CAPITAL OMICRON
+1D72B	MATHEMATICAL BOLD ITALIC CAPITAL PI
+1D72C	MATHEMATICAL BOLD ITALIC CAPITAL RHO
+1D72D	MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL
+1D72E	MATHEMATICAL BOLD ITALIC CAPITAL SIGMA
+1D72F	MATHEMATICAL BOLD ITALIC CAPITAL TAU
+1D730	MATHEMATICAL BOLD ITALIC CAPITAL UPSILON
+1D731	MATHEMATICAL BOLD ITALIC CAPITAL PHI
+1D732	MATHEMATICAL BOLD ITALIC CAPITAL CHI
+1D733	MATHEMATICAL BOLD ITALIC CAPITAL PSI
+1D734	MATHEMATICAL BOLD ITALIC CAPITAL OMEGA
+1D735	MATHEMATICAL BOLD ITALIC NABLA
+1D736	MATHEMATICAL BOLD ITALIC SMALL ALPHA
+1D737	MATHEMATICAL BOLD ITALIC SMALL BETA
+1D738	MATHEMATICAL BOLD ITALIC SMALL GAMMA
+1D739	MATHEMATICAL BOLD ITALIC SMALL DELTA
+1D73A	MATHEMATICAL BOLD ITALIC SMALL EPSILON
+1D73B	MATHEMATICAL BOLD ITALIC SMALL ZETA
+1D73C	MATHEMATICAL BOLD ITALIC SMALL ETA
+1D73D	MATHEMATICAL BOLD ITALIC SMALL THETA
+1D73E	MATHEMATICAL BOLD ITALIC SMALL IOTA
+1D73F	MATHEMATICAL BOLD ITALIC SMALL KAPPA
+1D740	MATHEMATICAL BOLD ITALIC SMALL LAMDA
+1D741	MATHEMATICAL BOLD ITALIC SMALL MU
+1D742	MATHEMATICAL BOLD ITALIC SMALL NU
+1D743	MATHEMATICAL BOLD ITALIC SMALL XI
+1D744	MATHEMATICAL BOLD ITALIC SMALL OMICRON
+1D745	MATHEMATICAL BOLD ITALIC SMALL PI
+1D746	MATHEMATICAL BOLD ITALIC SMALL RHO
+1D747	MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA
+1D748	MATHEMATICAL BOLD ITALIC SMALL SIGMA
+1D749	MATHEMATICAL BOLD ITALIC SMALL TAU
+1D74A	MATHEMATICAL BOLD ITALIC SMALL UPSILON
+1D74B	MATHEMATICAL BOLD ITALIC SMALL PHI
+1D74C	MATHEMATICAL BOLD ITALIC SMALL CHI
+1D74D	MATHEMATICAL BOLD ITALIC SMALL PSI
+1D74E	MATHEMATICAL BOLD ITALIC SMALL OMEGA
+1D74F	MATHEMATICAL BOLD ITALIC PARTIAL DIFFERENTIAL
+1D750	MATHEMATICAL BOLD ITALIC EPSILON SYMBOL
+1D751	MATHEMATICAL BOLD ITALIC THETA SYMBOL
+1D752	MATHEMATICAL BOLD ITALIC KAPPA SYMBOL
+1D753	MATHEMATICAL BOLD ITALIC PHI SYMBOL
+1D754	MATHEMATICAL BOLD ITALIC RHO SYMBOL
+1D755	MATHEMATICAL BOLD ITALIC PI SYMBOL
+1D756	MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA
+1D757	MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA
+1D758	MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA
+1D759	MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA
+1D75A	MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON
+1D75B	MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA
+1D75C	MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA
+1D75D	MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA
+1D75E	MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA
+1D75F	MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA
+1D760	MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA
+1D761	MATHEMATICAL SANS-SERIF BOLD CAPITAL MU
+1D762	MATHEMATICAL SANS-SERIF BOLD CAPITAL NU
+1D763	MATHEMATICAL SANS-SERIF BOLD CAPITAL XI
+1D764	MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON
+1D765	MATHEMATICAL SANS-SERIF BOLD CAPITAL PI
+1D766	MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO
+1D767	MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL
+1D768	MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA
+1D769	MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU
+1D76A	MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON
+1D76B	MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI
+1D76C	MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI
+1D76D	MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI
+1D76E	MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA
+1D76F	MATHEMATICAL SANS-SERIF BOLD NABLA
+1D770	MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA
+1D771	MATHEMATICAL SANS-SERIF BOLD SMALL BETA
+1D772	MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA
+1D773	MATHEMATICAL SANS-SERIF BOLD SMALL DELTA
+1D774	MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON
+1D775	MATHEMATICAL SANS-SERIF BOLD SMALL ZETA
+1D776	MATHEMATICAL SANS-SERIF BOLD SMALL ETA
+1D777	MATHEMATICAL SANS-SERIF BOLD SMALL THETA
+1D778	MATHEMATICAL SANS-SERIF BOLD SMALL IOTA
+1D779	MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA
+1D77A	MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA
+1D77B	MATHEMATICAL SANS-SERIF BOLD SMALL MU
+1D77C	MATHEMATICAL SANS-SERIF BOLD SMALL NU
+1D77D	MATHEMATICAL SANS-SERIF BOLD SMALL XI
+1D77E	MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON
+1D77F	MATHEMATICAL SANS-SERIF BOLD SMALL PI
+1D780	MATHEMATICAL SANS-SERIF BOLD SMALL RHO
+1D781	MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA
+1D782	MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA
+1D783	MATHEMATICAL SANS-SERIF BOLD SMALL TAU
+1D784	MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON
+1D785	MATHEMATICAL SANS-SERIF BOLD SMALL PHI
+1D786	MATHEMATICAL SANS-SERIF BOLD SMALL CHI
+1D787	MATHEMATICAL SANS-SERIF BOLD SMALL PSI
+1D788	MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA
+1D789	MATHEMATICAL SANS-SERIF BOLD PARTIAL DIFFERENTIAL
+1D78A	MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL
+1D78B	MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL
+1D78C	MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL
+1D78D	MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL
+1D78E	MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL
+1D78F	MATHEMATICAL SANS-SERIF BOLD PI SYMBOL
+1D790	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA
+1D791	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA
+1D792	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA
+1D793	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA
+1D794	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON
+1D795	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA
+1D796	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA
+1D797	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA
+1D798	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA
+1D799	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA
+1D79A	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA
+1D79B	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU
+1D79C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU
+1D79D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI
+1D79E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON
+1D79F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI
+1D7A0	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO
+1D7A1	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL
+1D7A2	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA
+1D7A3	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU
+1D7A4	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON
+1D7A5	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI
+1D7A6	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI
+1D7A7	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI
+1D7A8	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA
+1D7A9	MATHEMATICAL SANS-SERIF BOLD ITALIC NABLA
+1D7AA	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA
+1D7AB	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA
+1D7AC	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA
+1D7AD	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA
+1D7AE	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON
+1D7AF	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA
+1D7B0	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA
+1D7B1	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA
+1D7B2	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA
+1D7B3	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA
+1D7B4	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA
+1D7B5	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU
+1D7B6	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU
+1D7B7	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI
+1D7B8	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON
+1D7B9	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI
+1D7BA	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO
+1D7BB	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA
+1D7BC	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA
+1D7BD	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU
+1D7BE	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON
+1D7BF	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI
+1D7C0	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI
+1D7C1	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI
+1D7C2	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA
+1D7C3	MATHEMATICAL SANS-SERIF BOLD ITALIC PARTIAL DIFFERENTIAL
+1D7C4	MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL
+1D7C5	MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL
+1D7C6	MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL
+1D7C7	MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL
+1D7C8	MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL
+1D7C9	MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL
+1D7CA	MATHEMATICAL BOLD CAPITAL DIGAMMA
+1D7CB	MATHEMATICAL BOLD SMALL DIGAMMA
+1D7CE	MATHEMATICAL BOLD DIGIT ZERO
+1D7CF	MATHEMATICAL BOLD DIGIT ONE
+1D7D0	MATHEMATICAL BOLD DIGIT TWO
+1D7D1	MATHEMATICAL BOLD DIGIT THREE
+1D7D2	MATHEMATICAL BOLD DIGIT FOUR
+1D7D3	MATHEMATICAL BOLD DIGIT FIVE
+1D7D4	MATHEMATICAL BOLD DIGIT SIX
+1D7D5	MATHEMATICAL BOLD DIGIT SEVEN
+1D7D6	MATHEMATICAL BOLD DIGIT EIGHT
+1D7D7	MATHEMATICAL BOLD DIGIT NINE
+1D7D8	MATHEMATICAL DOUBLE-STRUCK DIGIT ZERO
+1D7D9	MATHEMATICAL DOUBLE-STRUCK DIGIT ONE
+1D7DA	MATHEMATICAL DOUBLE-STRUCK DIGIT TWO
+1D7DB	MATHEMATICAL DOUBLE-STRUCK DIGIT THREE
+1D7DC	MATHEMATICAL DOUBLE-STRUCK DIGIT FOUR
+1D7DD	MATHEMATICAL DOUBLE-STRUCK DIGIT FIVE
+1D7DE	MATHEMATICAL DOUBLE-STRUCK DIGIT SIX
+1D7DF	MATHEMATICAL DOUBLE-STRUCK DIGIT SEVEN
+1D7E0	MATHEMATICAL DOUBLE-STRUCK DIGIT EIGHT
+1D7E1	MATHEMATICAL DOUBLE-STRUCK DIGIT NINE
+1D7E2	MATHEMATICAL SANS-SERIF DIGIT ZERO
+1D7E3	MATHEMATICAL SANS-SERIF DIGIT ONE
+1D7E4	MATHEMATICAL SANS-SERIF DIGIT TWO
+1D7E5	MATHEMATICAL SANS-SERIF DIGIT THREE
+1D7E6	MATHEMATICAL SANS-SERIF DIGIT FOUR
+1D7E7	MATHEMATICAL SANS-SERIF DIGIT FIVE
+1D7E8	MATHEMATICAL SANS-SERIF DIGIT SIX
+1D7E9	MATHEMATICAL SANS-SERIF DIGIT SEVEN
+1D7EA	MATHEMATICAL SANS-SERIF DIGIT EIGHT
+1D7EB	MATHEMATICAL SANS-SERIF DIGIT NINE
+1D7EC	MATHEMATICAL SANS-SERIF BOLD DIGIT ZERO
+1D7ED	MATHEMATICAL SANS-SERIF BOLD DIGIT ONE
+1D7EE	MATHEMATICAL SANS-SERIF BOLD DIGIT TWO
+1D7EF	MATHEMATICAL SANS-SERIF BOLD DIGIT THREE
+1D7F0	MATHEMATICAL SANS-SERIF BOLD DIGIT FOUR
+1D7F1	MATHEMATICAL SANS-SERIF BOLD DIGIT FIVE
+1D7F2	MATHEMATICAL SANS-SERIF BOLD DIGIT SIX
+1D7F3	MATHEMATICAL SANS-SERIF BOLD DIGIT SEVEN
+1D7F4	MATHEMATICAL SANS-SERIF BOLD DIGIT EIGHT
+1D7F5	MATHEMATICAL SANS-SERIF BOLD DIGIT NINE
+1D7F6	MATHEMATICAL MONOSPACE DIGIT ZERO
+1D7F7	MATHEMATICAL MONOSPACE DIGIT ONE
+1D7F8	MATHEMATICAL MONOSPACE DIGIT TWO
+1D7F9	MATHEMATICAL MONOSPACE DIGIT THREE
+1D7FA	MATHEMATICAL MONOSPACE DIGIT FOUR
+1D7FB	MATHEMATICAL MONOSPACE DIGIT FIVE
+1D7FC	MATHEMATICAL MONOSPACE DIGIT SIX
+1D7FD	MATHEMATICAL MONOSPACE DIGIT SEVEN
+1D7FE	MATHEMATICAL MONOSPACE DIGIT EIGHT
+1D7FF	MATHEMATICAL MONOSPACE DIGIT NINE
+1D800	SIGNWRITING HAND-FIST INDEX
+1D801	SIGNWRITING HAND-CIRCLE INDEX
+1D802	SIGNWRITING HAND-CUP INDEX
+1D803	SIGNWRITING HAND-OVAL INDEX
+1D804	SIGNWRITING HAND-HINGE INDEX
+1D805	SIGNWRITING HAND-ANGLE INDEX
+1D806	SIGNWRITING HAND-FIST INDEX BENT
+1D807	SIGNWRITING HAND-CIRCLE INDEX BENT
+1D808	SIGNWRITING HAND-FIST THUMB UNDER INDEX BENT
+1D809	SIGNWRITING HAND-FIST INDEX RAISED KNUCKLE
+1D80A	SIGNWRITING HAND-FIST INDEX CUPPED
+1D80B	SIGNWRITING HAND-FIST INDEX HINGED
+1D80C	SIGNWRITING HAND-FIST INDEX HINGED LOW
+1D80D	SIGNWRITING HAND-CIRCLE INDEX HINGE
+1D80E	SIGNWRITING HAND-FIST INDEX MIDDLE
+1D80F	SIGNWRITING HAND-CIRCLE INDEX MIDDLE
+1D810	SIGNWRITING HAND-FIST INDEX MIDDLE BENT
+1D811	SIGNWRITING HAND-FIST INDEX MIDDLE RAISED KNUCKLES
+1D812	SIGNWRITING HAND-FIST INDEX MIDDLE HINGED
+1D813	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED
+1D814	SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP
+1D815	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED
+1D816	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED INDEX BENT
+1D817	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED MIDDLE BENT
+1D818	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED
+1D819	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED
+1D81A	SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED
+1D81B	SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSSED
+1D81C	SIGNWRITING HAND-FIST MIDDLE BENT OVER INDEX
+1D81D	SIGNWRITING HAND-FIST INDEX BENT OVER MIDDLE
+1D81E	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB
+1D81F	SIGNWRITING HAND-CIRCLE INDEX MIDDLE THUMB
+1D820	SIGNWRITING HAND-FIST INDEX MIDDLE STRAIGHT THUMB BENT
+1D821	SIGNWRITING HAND-FIST INDEX MIDDLE BENT THUMB STRAIGHT
+1D822	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB BENT
+1D823	SIGNWRITING HAND-FIST INDEX MIDDLE HINGED SPREAD THUMB SIDE
+1D824	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB SIDE
+1D825	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB CONJOINED
+1D826	SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP THUMB SIDE
+1D827	SIGNWRITING HAND-FIST INDEX MIDDLE UP SPREAD THUMB FORWARD
+1D828	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CUPPED
+1D829	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CIRCLED
+1D82A	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HOOKED
+1D82B	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HINGED
+1D82C	SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE STRAIGHT
+1D82D	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE
+1D82E	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE CONJOINED
+1D82F	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE BENT
+1D830	SIGNWRITING HAND-FIST MIDDLE THUMB HOOKED INDEX UP
+1D831	SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE UP
+1D832	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED THUMB SIDE
+1D833	SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED THUMB SIDE
+1D834	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB FORWARD
+1D835	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED THUMB FORWARD
+1D836	SIGNWRITING HAND-FIST MIDDLE THUMB CUPPED INDEX UP
+1D837	SIGNWRITING HAND-FIST INDEX THUMB CUPPED MIDDLE UP
+1D838	SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX UP
+1D839	SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX HINGED
+1D83A	SIGNWRITING HAND-FIST INDEX THUMB ANGLED OUT MIDDLE UP
+1D83B	SIGNWRITING HAND-FIST INDEX THUMB ANGLED IN MIDDLE UP
+1D83C	SIGNWRITING HAND-FIST INDEX THUMB CIRCLED MIDDLE UP
+1D83D	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CONJOINED HINGED
+1D83E	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED OUT
+1D83F	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED
+1D840	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX UP
+1D841	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX CROSSED
+1D842	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED INDEX UP
+1D843	SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE HINGED
+1D844	SIGNWRITING HAND-FLAT FOUR FINGERS
+1D845	SIGNWRITING HAND-FLAT FOUR FINGERS BENT
+1D846	SIGNWRITING HAND-FLAT FOUR FINGERS HINGED
+1D847	SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED
+1D848	SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED SPLIT
+1D849	SIGNWRITING HAND-CLAW FOUR FINGERS CONJOINED
+1D84A	SIGNWRITING HAND-FIST FOUR FINGERS CONJOINED BENT
+1D84B	SIGNWRITING HAND-HINGE FOUR FINGERS CONJOINED
+1D84C	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD
+1D84D	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD
+1D84E	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD FOUR BENT
+1D84F	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD FOUR BENT
+1D850	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD BENT
+1D851	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD BENT
+1D852	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD THUMB FORWARD
+1D853	SIGNWRITING HAND-CUP FIVE FINGERS SPREAD
+1D854	SIGNWRITING HAND-CUP FIVE FINGERS SPREAD OPEN
+1D855	SIGNWRITING HAND-HINGE FIVE FINGERS SPREAD OPEN
+1D856	SIGNWRITING HAND-OVAL FIVE FINGERS SPREAD
+1D857	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED
+1D858	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED THUMB SIDE
+1D859	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED NO THUMB
+1D85A	SIGNWRITING HAND-FLAT
+1D85B	SIGNWRITING HAND-FLAT BETWEEN PALM FACINGS
+1D85C	SIGNWRITING HAND-FLAT HEEL
+1D85D	SIGNWRITING HAND-FLAT THUMB SIDE
+1D85E	SIGNWRITING HAND-FLAT HEEL THUMB SIDE
+1D85F	SIGNWRITING HAND-FLAT THUMB BENT
+1D860	SIGNWRITING HAND-FLAT THUMB FORWARD
+1D861	SIGNWRITING HAND-FLAT SPLIT INDEX THUMB SIDE
+1D862	SIGNWRITING HAND-FLAT SPLIT CENTRE
+1D863	SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE
+1D864	SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE BENT
+1D865	SIGNWRITING HAND-FLAT SPLIT LITTLE
+1D866	SIGNWRITING HAND-CLAW
+1D867	SIGNWRITING HAND-CLAW THUMB SIDE
+1D868	SIGNWRITING HAND-CLAW NO THUMB
+1D869	SIGNWRITING HAND-CLAW THUMB FORWARD
+1D86A	SIGNWRITING HAND-HOOK CURLICUE
+1D86B	SIGNWRITING HAND-HOOK
+1D86C	SIGNWRITING HAND-CUP OPEN
+1D86D	SIGNWRITING HAND-CUP
+1D86E	SIGNWRITING HAND-CUP OPEN THUMB SIDE
+1D86F	SIGNWRITING HAND-CUP THUMB SIDE
+1D870	SIGNWRITING HAND-CUP OPEN NO THUMB
+1D871	SIGNWRITING HAND-CUP NO THUMB
+1D872	SIGNWRITING HAND-CUP OPEN THUMB FORWARD
+1D873	SIGNWRITING HAND-CUP THUMB FORWARD
+1D874	SIGNWRITING HAND-CURLICUE OPEN
+1D875	SIGNWRITING HAND-CURLICUE
+1D876	SIGNWRITING HAND-CIRCLE
+1D877	SIGNWRITING HAND-OVAL
+1D878	SIGNWRITING HAND-OVAL THUMB SIDE
+1D879	SIGNWRITING HAND-OVAL NO THUMB
+1D87A	SIGNWRITING HAND-OVAL THUMB FORWARD
+1D87B	SIGNWRITING HAND-HINGE OPEN
+1D87C	SIGNWRITING HAND-HINGE OPEN THUMB FORWARD
+1D87D	SIGNWRITING HAND-HINGE
+1D87E	SIGNWRITING HAND-HINGE SMALL
+1D87F	SIGNWRITING HAND-HINGE OPEN THUMB SIDE
+1D880	SIGNWRITING HAND-HINGE THUMB SIDE
+1D881	SIGNWRITING HAND-HINGE OPEN NO THUMB
+1D882	SIGNWRITING HAND-HINGE NO THUMB
+1D883	SIGNWRITING HAND-HINGE THUMB SIDE TOUCHING INDEX
+1D884	SIGNWRITING HAND-HINGE THUMB BETWEEN MIDDLE RING
+1D885	SIGNWRITING HAND-ANGLE
+1D886	SIGNWRITING HAND-FIST INDEX MIDDLE RING
+1D887	SIGNWRITING HAND-CIRCLE INDEX MIDDLE RING
+1D888	SIGNWRITING HAND-HINGE INDEX MIDDLE RING
+1D889	SIGNWRITING HAND-ANGLE INDEX MIDDLE RING
+1D88A	SIGNWRITING HAND-HINGE LITTLE
+1D88B	SIGNWRITING HAND-FIST INDEX MIDDLE RING BENT
+1D88C	SIGNWRITING HAND-FIST INDEX MIDDLE RING CONJOINED
+1D88D	SIGNWRITING HAND-HINGE INDEX MIDDLE RING CONJOINED
+1D88E	SIGNWRITING HAND-FIST LITTLE DOWN
+1D88F	SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE STRAIGHT
+1D890	SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE CURVED
+1D891	SIGNWRITING HAND-FIST LITTLE DOWN OTHERS CIRCLED
+1D892	SIGNWRITING HAND-FIST LITTLE UP
+1D893	SIGNWRITING HAND-FIST THUMB UNDER LITTLE UP
+1D894	SIGNWRITING HAND-CIRCLE LITTLE UP
+1D895	SIGNWRITING HAND-OVAL LITTLE UP
+1D896	SIGNWRITING HAND-ANGLE LITTLE UP
+1D897	SIGNWRITING HAND-FIST LITTLE RAISED KNUCKLE
+1D898	SIGNWRITING HAND-FIST LITTLE BENT
+1D899	SIGNWRITING HAND-FIST LITTLE TOUCHES THUMB
+1D89A	SIGNWRITING HAND-FIST LITTLE THUMB
+1D89B	SIGNWRITING HAND-HINGE LITTLE THUMB
+1D89C	SIGNWRITING HAND-FIST LITTLE INDEX THUMB
+1D89D	SIGNWRITING HAND-HINGE LITTLE INDEX THUMB
+1D89E	SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB OUT
+1D89F	SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB
+1D8A0	SIGNWRITING HAND-FIST LITTLE INDEX
+1D8A1	SIGNWRITING HAND-CIRCLE LITTLE INDEX
+1D8A2	SIGNWRITING HAND-HINGE LITTLE INDEX
+1D8A3	SIGNWRITING HAND-ANGLE LITTLE INDEX
+1D8A4	SIGNWRITING HAND-FIST INDEX MIDDLE LITTLE
+1D8A5	SIGNWRITING HAND-CIRCLE INDEX MIDDLE LITTLE
+1D8A6	SIGNWRITING HAND-HINGE INDEX MIDDLE LITTLE
+1D8A7	SIGNWRITING HAND-HINGE RING
+1D8A8	SIGNWRITING HAND-ANGLE INDEX MIDDLE LITTLE
+1D8A9	SIGNWRITING HAND-FIST INDEX MIDDLE CROSS LITTLE
+1D8AA	SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSS LITTLE
+1D8AB	SIGNWRITING HAND-FIST RING DOWN
+1D8AC	SIGNWRITING HAND-HINGE RING DOWN INDEX THUMB HOOK MIDDLE
+1D8AD	SIGNWRITING HAND-ANGLE RING DOWN MIDDLE THUMB INDEX CROSS
+1D8AE	SIGNWRITING HAND-FIST RING UP
+1D8AF	SIGNWRITING HAND-FIST RING RAISED KNUCKLE
+1D8B0	SIGNWRITING HAND-FIST RING LITTLE
+1D8B1	SIGNWRITING HAND-CIRCLE RING LITTLE
+1D8B2	SIGNWRITING HAND-OVAL RING LITTLE
+1D8B3	SIGNWRITING HAND-ANGLE RING LITTLE
+1D8B4	SIGNWRITING HAND-FIST RING MIDDLE
+1D8B5	SIGNWRITING HAND-FIST RING MIDDLE CONJOINED
+1D8B6	SIGNWRITING HAND-FIST RING MIDDLE RAISED KNUCKLES
+1D8B7	SIGNWRITING HAND-FIST RING INDEX
+1D8B8	SIGNWRITING HAND-FIST RING THUMB
+1D8B9	SIGNWRITING HAND-HOOK RING THUMB
+1D8BA	SIGNWRITING HAND-FIST INDEX RING LITTLE
+1D8BB	SIGNWRITING HAND-CIRCLE INDEX RING LITTLE
+1D8BC	SIGNWRITING HAND-CURLICUE INDEX RING LITTLE ON
+1D8BD	SIGNWRITING HAND-HOOK INDEX RING LITTLE OUT
+1D8BE	SIGNWRITING HAND-HOOK INDEX RING LITTLE IN
+1D8BF	SIGNWRITING HAND-HOOK INDEX RING LITTLE UNDER
+1D8C0	SIGNWRITING HAND-CUP INDEX RING LITTLE
+1D8C1	SIGNWRITING HAND-HINGE INDEX RING LITTLE
+1D8C2	SIGNWRITING HAND-ANGLE INDEX RING LITTLE OUT
+1D8C3	SIGNWRITING HAND-ANGLE INDEX RING LITTLE
+1D8C4	SIGNWRITING HAND-FIST MIDDLE DOWN
+1D8C5	SIGNWRITING HAND-HINGE MIDDLE
+1D8C6	SIGNWRITING HAND-FIST MIDDLE UP
+1D8C7	SIGNWRITING HAND-CIRCLE MIDDLE UP
+1D8C8	SIGNWRITING HAND-FIST MIDDLE RAISED KNUCKLE
+1D8C9	SIGNWRITING HAND-FIST MIDDLE UP THUMB SIDE
+1D8CA	SIGNWRITING HAND-HOOK MIDDLE THUMB
+1D8CB	SIGNWRITING HAND-FIST MIDDLE THUMB LITTLE
+1D8CC	SIGNWRITING HAND-FIST MIDDLE LITTLE
+1D8CD	SIGNWRITING HAND-FIST MIDDLE RING LITTLE
+1D8CE	SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE
+1D8CF	SIGNWRITING HAND-CURLICUE MIDDLE RING LITTLE ON
+1D8D0	SIGNWRITING HAND-CUP MIDDLE RING LITTLE
+1D8D1	SIGNWRITING HAND-HINGE MIDDLE RING LITTLE
+1D8D2	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE OUT
+1D8D3	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE IN
+1D8D4	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE
+1D8D5	SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE BENT
+1D8D6	SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED
+1D8D7	SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED SIDE
+1D8D8	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED OUT
+1D8D9	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED IN
+1D8DA	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED
+1D8DB	SIGNWRITING HAND-HINGE INDEX HINGED
+1D8DC	SIGNWRITING HAND-FIST INDEX THUMB SIDE
+1D8DD	SIGNWRITING HAND-HINGE INDEX THUMB SIDE
+1D8DE	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB DIAGONAL
+1D8DF	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB CONJOINED
+1D8E0	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB BENT
+1D8E1	SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX BENT
+1D8E2	SIGNWRITING HAND-FIST INDEX THUMB SIDE BOTH BENT
+1D8E3	SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX HINGE
+1D8E4	SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX STRAIGHT
+1D8E5	SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX BENT
+1D8E6	SIGNWRITING HAND-FIST INDEX THUMB HOOK
+1D8E7	SIGNWRITING HAND-FIST INDEX THUMB CURLICUE
+1D8E8	SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB INSIDE
+1D8E9	SIGNWRITING HAND-CLAW INDEX THUMB CURVE THUMB INSIDE
+1D8EA	SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB UNDER
+1D8EB	SIGNWRITING HAND-FIST INDEX THUMB CIRCLE
+1D8EC	SIGNWRITING HAND-CUP INDEX THUMB
+1D8ED	SIGNWRITING HAND-CUP INDEX THUMB OPEN
+1D8EE	SIGNWRITING HAND-HINGE INDEX THUMB OPEN
+1D8EF	SIGNWRITING HAND-HINGE INDEX THUMB LARGE
+1D8F0	SIGNWRITING HAND-HINGE INDEX THUMB
+1D8F1	SIGNWRITING HAND-HINGE INDEX THUMB SMALL
+1D8F2	SIGNWRITING HAND-ANGLE INDEX THUMB OUT
+1D8F3	SIGNWRITING HAND-ANGLE INDEX THUMB IN
+1D8F4	SIGNWRITING HAND-ANGLE INDEX THUMB
+1D8F5	SIGNWRITING HAND-FIST THUMB
+1D8F6	SIGNWRITING HAND-FIST THUMB HEEL
+1D8F7	SIGNWRITING HAND-FIST THUMB SIDE DIAGONAL
+1D8F8	SIGNWRITING HAND-FIST THUMB SIDE CONJOINED
+1D8F9	SIGNWRITING HAND-FIST THUMB SIDE BENT
+1D8FA	SIGNWRITING HAND-FIST THUMB FORWARD
+1D8FB	SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE
+1D8FC	SIGNWRITING HAND-FIST THUMB BETWEEN MIDDLE RING
+1D8FD	SIGNWRITING HAND-FIST THUMB BETWEEN RING LITTLE
+1D8FE	SIGNWRITING HAND-FIST THUMB UNDER TWO FINGERS
+1D8FF	SIGNWRITING HAND-FIST THUMB OVER TWO FINGERS
+1D900	SIGNWRITING HAND-FIST THUMB UNDER THREE FINGERS
+1D901	SIGNWRITING HAND-FIST THUMB UNDER FOUR FINGERS
+1D902	SIGNWRITING HAND-FIST THUMB OVER FOUR RAISED KNUCKLES
+1D903	SIGNWRITING HAND-FIST
+1D904	SIGNWRITING HAND-FIST HEEL
+1D905	SIGNWRITING TOUCH SINGLE
+1D906	SIGNWRITING TOUCH MULTIPLE
+1D907	SIGNWRITING TOUCH BETWEEN
+1D908	SIGNWRITING GRASP SINGLE
+1D909	SIGNWRITING GRASP MULTIPLE
+1D90A	SIGNWRITING GRASP BETWEEN
+1D90B	SIGNWRITING STRIKE SINGLE
+1D90C	SIGNWRITING STRIKE MULTIPLE
+1D90D	SIGNWRITING STRIKE BETWEEN
+1D90E	SIGNWRITING BRUSH SINGLE
+1D90F	SIGNWRITING BRUSH MULTIPLE
+1D910	SIGNWRITING BRUSH BETWEEN
+1D911	SIGNWRITING RUB SINGLE
+1D912	SIGNWRITING RUB MULTIPLE
+1D913	SIGNWRITING RUB BETWEEN
+1D914	SIGNWRITING SURFACE SYMBOLS
+1D915	SIGNWRITING SURFACE BETWEEN
+1D916	SIGNWRITING SQUEEZE LARGE SINGLE
+1D917	SIGNWRITING SQUEEZE SMALL SINGLE
+1D918	SIGNWRITING SQUEEZE LARGE MULTIPLE
+1D919	SIGNWRITING SQUEEZE SMALL MULTIPLE
+1D91A	SIGNWRITING SQUEEZE SEQUENTIAL
+1D91B	SIGNWRITING FLICK LARGE SINGLE
+1D91C	SIGNWRITING FLICK SMALL SINGLE
+1D91D	SIGNWRITING FLICK LARGE MULTIPLE
+1D91E	SIGNWRITING FLICK SMALL MULTIPLE
+1D91F	SIGNWRITING FLICK SEQUENTIAL
+1D920	SIGNWRITING SQUEEZE FLICK ALTERNATING
+1D921	SIGNWRITING MOVEMENT-HINGE UP DOWN LARGE
+1D922	SIGNWRITING MOVEMENT-HINGE UP DOWN SMALL
+1D923	SIGNWRITING MOVEMENT-HINGE UP SEQUENTIAL
+1D924	SIGNWRITING MOVEMENT-HINGE DOWN SEQUENTIAL
+1D925	SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING LARGE
+1D926	SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING SMALL
+1D927	SIGNWRITING MOVEMENT-HINGE SIDE TO SIDE SCISSORS
+1D928	SIGNWRITING MOVEMENT-WALLPLANE FINGER CONTACT
+1D929	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CONTACT
+1D92A	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT SMALL
+1D92B	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT MEDIUM
+1D92C	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGE
+1D92D	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGEST
+1D92E	SIGNWRITING MOVEMENT-WALLPLANE SINGLE WRIST FLEX
+1D92F	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE STRAIGHT
+1D930	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE WRIST FLEX
+1D931	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING
+1D932	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING WRIST FLEX
+1D933	SIGNWRITING MOVEMENT-WALLPLANE CROSS
+1D934	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE STRAIGHT MOVEMENT
+1D935	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE WRIST FLEX
+1D936	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING
+1D937	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING WRIST FLEX
+1D938	SIGNWRITING MOVEMENT-WALLPLANE BEND SMALL
+1D939	SIGNWRITING MOVEMENT-WALLPLANE BEND MEDIUM
+1D93A	SIGNWRITING MOVEMENT-WALLPLANE BEND LARGE
+1D93B	SIGNWRITING MOVEMENT-WALLPLANE CORNER SMALL
+1D93C	SIGNWRITING MOVEMENT-WALLPLANE CORNER MEDIUM
+1D93D	SIGNWRITING MOVEMENT-WALLPLANE CORNER LARGE
+1D93E	SIGNWRITING MOVEMENT-WALLPLANE CORNER ROTATION
+1D93F	SIGNWRITING MOVEMENT-WALLPLANE CHECK SMALL
+1D940	SIGNWRITING MOVEMENT-WALLPLANE CHECK MEDIUM
+1D941	SIGNWRITING MOVEMENT-WALLPLANE CHECK LARGE
+1D942	SIGNWRITING MOVEMENT-WALLPLANE BOX SMALL
+1D943	SIGNWRITING MOVEMENT-WALLPLANE BOX MEDIUM
+1D944	SIGNWRITING MOVEMENT-WALLPLANE BOX LARGE
+1D945	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG SMALL
+1D946	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG MEDIUM
+1D947	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG LARGE
+1D948	SIGNWRITING MOVEMENT-WALLPLANE PEAKS SMALL
+1D949	SIGNWRITING MOVEMENT-WALLPLANE PEAKS MEDIUM
+1D94A	SIGNWRITING MOVEMENT-WALLPLANE PEAKS LARGE
+1D94B	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE SINGLE
+1D94C	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE DOUBLE
+1D94D	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE ALTERNATING
+1D94E	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE SINGLE
+1D94F	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE DOUBLE
+1D950	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE ALTERNATING
+1D951	SIGNWRITING TRAVEL-WALLPLANE SHAKING
+1D952	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL SINGLE
+1D953	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL DOUBLE
+1D954	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL TRIPLE
+1D955	SIGNWRITING MOVEMENT-DIAGONAL AWAY SMALL
+1D956	SIGNWRITING MOVEMENT-DIAGONAL AWAY MEDIUM
+1D957	SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGE
+1D958	SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGEST
+1D959	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS SMALL
+1D95A	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS MEDIUM
+1D95B	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGE
+1D95C	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGEST
+1D95D	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY SMALL
+1D95E	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY MEDIUM
+1D95F	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGE
+1D960	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGEST
+1D961	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS SMALL
+1D962	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS MEDIUM
+1D963	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGE
+1D964	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGEST
+1D965	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT SMALL
+1D966	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT MEDIUM
+1D967	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGE
+1D968	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGEST
+1D969	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE WRIST FLEX
+1D96A	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE STRAIGHT
+1D96B	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE WRIST FLEX
+1D96C	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING
+1D96D	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING WRIST FLEX
+1D96E	SIGNWRITING MOVEMENT-FLOORPLANE CROSS
+1D96F	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE STRAIGHT MOVEMENT
+1D970	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE WRIST FLEX
+1D971	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING MOVEMENT
+1D972	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING WRIST FLEX
+1D973	SIGNWRITING MOVEMENT-FLOORPLANE BEND
+1D974	SIGNWRITING MOVEMENT-FLOORPLANE CORNER SMALL
+1D975	SIGNWRITING MOVEMENT-FLOORPLANE CORNER MEDIUM
+1D976	SIGNWRITING MOVEMENT-FLOORPLANE CORNER LARGE
+1D977	SIGNWRITING MOVEMENT-FLOORPLANE CHECK
+1D978	SIGNWRITING MOVEMENT-FLOORPLANE BOX SMALL
+1D979	SIGNWRITING MOVEMENT-FLOORPLANE BOX MEDIUM
+1D97A	SIGNWRITING MOVEMENT-FLOORPLANE BOX LARGE
+1D97B	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG SMALL
+1D97C	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG MEDIUM
+1D97D	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG LARGE
+1D97E	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS SMALL
+1D97F	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS MEDIUM
+1D980	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS LARGE
+1D981	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE SINGLE
+1D982	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE DOUBLE
+1D983	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE ALTERNATING
+1D984	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE SINGLE
+1D985	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE DOUBLE
+1D986	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE ALTERNATING
+1D987	SIGNWRITING TRAVEL-FLOORPLANE SHAKING
+1D988	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER SMALL
+1D989	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER MEDIUM
+1D98A	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGE
+1D98B	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGEST
+1D98C	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE SMALL
+1D98D	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE MEDIUM
+1D98E	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGE
+1D98F	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGEST
+1D990	SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE SMALL
+1D991	SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE MEDIUM
+1D992	SIGNWRITING MOVEMENT-WALLPLANE HUMP SMALL
+1D993	SIGNWRITING MOVEMENT-WALLPLANE HUMP MEDIUM
+1D994	SIGNWRITING MOVEMENT-WALLPLANE HUMP LARGE
+1D995	SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL
+1D996	SIGNWRITING MOVEMENT-WALLPLANE LOOP MEDIUM
+1D997	SIGNWRITING MOVEMENT-WALLPLANE LOOP LARGE
+1D998	SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL DOUBLE
+1D999	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE SMALL
+1D99A	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE MEDIUM
+1D99B	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE LARGE
+1D99C	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE SMALL
+1D99D	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE MEDIUM
+1D99E	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE LARGE
+1D99F	SIGNWRITING MOVEMENT-WALLPLANE CURVE THEN STRAIGHT
+1D9A0	SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS SMALL
+1D9A1	SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS MEDIUM
+1D9A2	SIGNWRITING ROTATION-WALLPLANE SINGLE
+1D9A3	SIGNWRITING ROTATION-WALLPLANE DOUBLE
+1D9A4	SIGNWRITING ROTATION-WALLPLANE ALTERNATE
+1D9A5	SIGNWRITING MOVEMENT-WALLPLANE SHAKING
+1D9A6	SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING FRONT WALL
+1D9A7	SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING FRONT WALL
+1D9A8	SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING FRONT WALL
+1D9A9	SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING FRONT WALL
+1D9AA	SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING FRONT WALL
+1D9AB	SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING FRONT WALL
+1D9AC	SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING FRONT WALL
+1D9AD	SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING CHEST
+1D9AE	SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING CHEST
+1D9AF	SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING CHEST
+1D9B0	SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING CHEST
+1D9B1	SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING CHEST
+1D9B2	SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING CHEST
+1D9B3	SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING CHEST
+1D9B4	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH SMALL
+1D9B5	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH MEDIUM
+1D9B6	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH LARGE
+1D9B7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING SMALL
+1D9B8	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING LARGE
+1D9B9	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL DOUBLE
+1D9BA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE DOUBLE
+1D9BB	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL TRIPLE
+1D9BC	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE TRIPLE
+1D9BD	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL SINGLE
+1D9BE	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE SINGLE
+1D9BF	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL DOUBLE
+1D9C0	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE DOUBLE
+1D9C1	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING SMALL
+1D9C2	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING LARGE
+1D9C3	SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING CEILING
+1D9C4	SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING CEILING
+1D9C5	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING CEILING
+1D9C6	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR SMALL
+1D9C7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR LARGE
+1D9C8	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR SMALL DOUBLE
+1D9C9	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR LARGE DOUBLE
+1D9CA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE SMALL TRIPLE
+1D9CB	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE LARGE TRIPLE
+1D9CC	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL SINGLE
+1D9CD	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE SINGLE
+1D9CE	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL DOUBLE
+1D9CF	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE DOUBLE
+1D9D0	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR SMALL
+1D9D1	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR LARGE
+1D9D2	SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING FLOOR
+1D9D3	SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING FLOOR
+1D9D4	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING FLOOR
+1D9D5	SIGNWRITING MOVEMENT-FLOORPLANE CURVE SMALL
+1D9D6	SIGNWRITING MOVEMENT-FLOORPLANE CURVE MEDIUM
+1D9D7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGE
+1D9D8	SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGEST
+1D9D9	SIGNWRITING MOVEMENT-FLOORPLANE CURVE COMBINED
+1D9DA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP SMALL
+1D9DB	SIGNWRITING MOVEMENT-FLOORPLANE LOOP SMALL
+1D9DC	SIGNWRITING MOVEMENT-FLOORPLANE WAVE SNAKE
+1D9DD	SIGNWRITING MOVEMENT-FLOORPLANE WAVE SMALL
+1D9DE	SIGNWRITING MOVEMENT-FLOORPLANE WAVE LARGE
+1D9DF	SIGNWRITING ROTATION-FLOORPLANE SINGLE
+1D9E0	SIGNWRITING ROTATION-FLOORPLANE DOUBLE
+1D9E1	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING
+1D9E2	SIGNWRITING MOVEMENT-FLOORPLANE SHAKING PARALLEL
+1D9E3	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL SINGLE
+1D9E4	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM SINGLE
+1D9E5	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL DOUBLE
+1D9E6	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM DOUBLE
+1D9E7	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL SINGLE
+1D9E8	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM SINGLE
+1D9E9	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE SINGLE
+1D9EA	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL DOUBLE
+1D9EB	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM DOUBLE
+1D9EC	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE DOUBLE
+1D9ED	SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT SINGLE
+1D9EE	SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT DOUBLE
+1D9EF	SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL SINGLE
+1D9F0	SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL DOUBLE
+1D9F1	SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES SINGLE
+1D9F2	SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES DOUBLE
+1D9F3	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL SINGLE
+1D9F4	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL DOUBLE
+1D9F5	SIGNWRITING DYNAMIC ARROWHEAD SMALL
+1D9F6	SIGNWRITING DYNAMIC ARROWHEAD LARGE
+1D9F7	SIGNWRITING DYNAMIC FAST
+1D9F8	SIGNWRITING DYNAMIC SLOW
+1D9F9	SIGNWRITING DYNAMIC TENSE
+1D9FA	SIGNWRITING DYNAMIC RELAXED
+1D9FB	SIGNWRITING DYNAMIC SIMULTANEOUS
+1D9FC	SIGNWRITING DYNAMIC SIMULTANEOUS ALTERNATING
+1D9FD	SIGNWRITING DYNAMIC EVERY OTHER TIME
+1D9FE	SIGNWRITING DYNAMIC GRADUAL
+1D9FF	SIGNWRITING HEAD
+1DA00	SIGNWRITING HEAD RIM
+1DA01	SIGNWRITING HEAD MOVEMENT-WALLPLANE STRAIGHT
+1DA02	SIGNWRITING HEAD MOVEMENT-WALLPLANE TILT
+1DA03	SIGNWRITING HEAD MOVEMENT-FLOORPLANE STRAIGHT
+1DA04	SIGNWRITING HEAD MOVEMENT-WALLPLANE CURVE
+1DA05	SIGNWRITING HEAD MOVEMENT-FLOORPLANE CURVE
+1DA06	SIGNWRITING HEAD MOVEMENT CIRCLE
+1DA07	SIGNWRITING FACE DIRECTION POSITION NOSE FORWARD TILTING
+1DA08	SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN
+1DA09	SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN TILTING
+1DA0A	SIGNWRITING EYEBROWS STRAIGHT UP
+1DA0B	SIGNWRITING EYEBROWS STRAIGHT NEUTRAL
+1DA0C	SIGNWRITING EYEBROWS STRAIGHT DOWN
+1DA0D	SIGNWRITING DREAMY EYEBROWS NEUTRAL DOWN
+1DA0E	SIGNWRITING DREAMY EYEBROWS DOWN NEUTRAL
+1DA0F	SIGNWRITING DREAMY EYEBROWS UP NEUTRAL
+1DA10	SIGNWRITING DREAMY EYEBROWS NEUTRAL UP
+1DA11	SIGNWRITING FOREHEAD NEUTRAL
+1DA12	SIGNWRITING FOREHEAD CONTACT
+1DA13	SIGNWRITING FOREHEAD WRINKLED
+1DA14	SIGNWRITING EYES OPEN
+1DA15	SIGNWRITING EYES SQUEEZED
+1DA16	SIGNWRITING EYES CLOSED
+1DA17	SIGNWRITING EYE BLINK SINGLE
+1DA18	SIGNWRITING EYE BLINK MULTIPLE
+1DA19	SIGNWRITING EYES HALF OPEN
+1DA1A	SIGNWRITING EYES WIDE OPEN
+1DA1B	SIGNWRITING EYES HALF CLOSED
+1DA1C	SIGNWRITING EYES WIDENING MOVEMENT
+1DA1D	SIGNWRITING EYE WINK
+1DA1E	SIGNWRITING EYELASHES UP
+1DA1F	SIGNWRITING EYELASHES DOWN
+1DA20	SIGNWRITING EYELASHES FLUTTERING
+1DA21	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT
+1DA22	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT DOUBLE
+1DA23	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT ALTERNATING
+1DA24	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT
+1DA25	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT DOUBLE
+1DA26	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT ALTERNATING
+1DA27	SIGNWRITING EYEGAZE-WALLPLANE CURVED
+1DA28	SIGNWRITING EYEGAZE-FLOORPLANE CURVED
+1DA29	SIGNWRITING EYEGAZE-WALLPLANE CIRCLING
+1DA2A	SIGNWRITING CHEEKS PUFFED
+1DA2B	SIGNWRITING CHEEKS NEUTRAL
+1DA2C	SIGNWRITING CHEEKS SUCKED
+1DA2D	SIGNWRITING TENSE CHEEKS HIGH
+1DA2E	SIGNWRITING TENSE CHEEKS MIDDLE
+1DA2F	SIGNWRITING TENSE CHEEKS LOW
+1DA30	SIGNWRITING EARS
+1DA31	SIGNWRITING NOSE NEUTRAL
+1DA32	SIGNWRITING NOSE CONTACT
+1DA33	SIGNWRITING NOSE WRINKLES
+1DA34	SIGNWRITING NOSE WIGGLES
+1DA35	SIGNWRITING AIR BLOWING OUT
+1DA36	SIGNWRITING AIR SUCKING IN
+1DA37	SIGNWRITING AIR BLOW SMALL ROTATIONS
+1DA38	SIGNWRITING AIR SUCK SMALL ROTATIONS
+1DA39	SIGNWRITING BREATH INHALE
+1DA3A	SIGNWRITING BREATH EXHALE
+1DA3B	SIGNWRITING MOUTH CLOSED NEUTRAL
+1DA3C	SIGNWRITING MOUTH CLOSED FORWARD
+1DA3D	SIGNWRITING MOUTH CLOSED CONTACT
+1DA3E	SIGNWRITING MOUTH SMILE
+1DA3F	SIGNWRITING MOUTH SMILE WRINKLED
+1DA40	SIGNWRITING MOUTH SMILE OPEN
+1DA41	SIGNWRITING MOUTH FROWN
+1DA42	SIGNWRITING MOUTH FROWN WRINKLED
+1DA43	SIGNWRITING MOUTH FROWN OPEN
+1DA44	SIGNWRITING MOUTH OPEN CIRCLE
+1DA45	SIGNWRITING MOUTH OPEN FORWARD
+1DA46	SIGNWRITING MOUTH OPEN WRINKLED
+1DA47	SIGNWRITING MOUTH OPEN OVAL
+1DA48	SIGNWRITING MOUTH OPEN OVAL WRINKLED
+1DA49	SIGNWRITING MOUTH OPEN OVAL YAWN
+1DA4A	SIGNWRITING MOUTH OPEN RECTANGLE
+1DA4B	SIGNWRITING MOUTH OPEN RECTANGLE WRINKLED
+1DA4C	SIGNWRITING MOUTH OPEN RECTANGLE YAWN
+1DA4D	SIGNWRITING MOUTH KISS
+1DA4E	SIGNWRITING MOUTH KISS FORWARD
+1DA4F	SIGNWRITING MOUTH KISS WRINKLED
+1DA50	SIGNWRITING MOUTH TENSE
+1DA51	SIGNWRITING MOUTH TENSE FORWARD
+1DA52	SIGNWRITING MOUTH TENSE SUCKED
+1DA53	SIGNWRITING LIPS PRESSED TOGETHER
+1DA54	SIGNWRITING LIP LOWER OVER UPPER
+1DA55	SIGNWRITING LIP UPPER OVER LOWER
+1DA56	SIGNWRITING MOUTH CORNERS
+1DA57	SIGNWRITING MOUTH WRINKLES SINGLE
+1DA58	SIGNWRITING MOUTH WRINKLES DOUBLE
+1DA59	SIGNWRITING TONGUE STICKING OUT FAR
+1DA5A	SIGNWRITING TONGUE LICKING LIPS
+1DA5B	SIGNWRITING TONGUE TIP BETWEEN LIPS
+1DA5C	SIGNWRITING TONGUE TIP TOUCHING INSIDE MOUTH
+1DA5D	SIGNWRITING TONGUE INSIDE MOUTH RELAXED
+1DA5E	SIGNWRITING TONGUE MOVES AGAINST CHEEK
+1DA5F	SIGNWRITING TONGUE CENTRE STICKING OUT
+1DA60	SIGNWRITING TONGUE CENTRE INSIDE MOUTH
+1DA61	SIGNWRITING TEETH
+1DA62	SIGNWRITING TEETH MOVEMENT
+1DA63	SIGNWRITING TEETH ON TONGUE
+1DA64	SIGNWRITING TEETH ON TONGUE MOVEMENT
+1DA65	SIGNWRITING TEETH ON LIPS
+1DA66	SIGNWRITING TEETH ON LIPS MOVEMENT
+1DA67	SIGNWRITING TEETH BITE LIPS
+1DA68	SIGNWRITING MOVEMENT-WALLPLANE JAW
+1DA69	SIGNWRITING MOVEMENT-FLOORPLANE JAW
+1DA6A	SIGNWRITING NECK
+1DA6B	SIGNWRITING HAIR
+1DA6C	SIGNWRITING EXCITEMENT
+1DA6D	SIGNWRITING SHOULDER HIP SPINE
+1DA6E	SIGNWRITING SHOULDER HIP POSITIONS
+1DA6F	SIGNWRITING WALLPLANE SHOULDER HIP MOVE
+1DA70	SIGNWRITING FLOORPLANE SHOULDER HIP MOVE
+1DA71	SIGNWRITING SHOULDER TILTING FROM WAIST
+1DA72	SIGNWRITING TORSO-WALLPLANE STRAIGHT STRETCH
+1DA73	SIGNWRITING TORSO-WALLPLANE CURVED BEND
+1DA74	SIGNWRITING TORSO-FLOORPLANE TWISTING
+1DA75	SIGNWRITING UPPER BODY TILTING FROM HIP JOINTS
+1DA76	SIGNWRITING LIMB COMBINATION
+1DA77	SIGNWRITING LIMB LENGTH-1
+1DA78	SIGNWRITING LIMB LENGTH-2
+1DA79	SIGNWRITING LIMB LENGTH-3
+1DA7A	SIGNWRITING LIMB LENGTH-4
+1DA7B	SIGNWRITING LIMB LENGTH-5
+1DA7C	SIGNWRITING LIMB LENGTH-6
+1DA7D	SIGNWRITING LIMB LENGTH-7
+1DA7E	SIGNWRITING FINGER
+1DA7F	SIGNWRITING LOCATION-WALLPLANE SPACE
+1DA80	SIGNWRITING LOCATION-FLOORPLANE SPACE
+1DA81	SIGNWRITING LOCATION HEIGHT
+1DA82	SIGNWRITING LOCATION WIDTH
+1DA83	SIGNWRITING LOCATION DEPTH
+1DA84	SIGNWRITING LOCATION HEAD NECK
+1DA85	SIGNWRITING LOCATION TORSO
+1DA86	SIGNWRITING LOCATION LIMBS DIGITS
+1DA87	SIGNWRITING COMMA
+1DA88	SIGNWRITING FULL STOP
+1DA89	SIGNWRITING SEMICOLON
+1DA8A	SIGNWRITING COLON
+1DA8B	SIGNWRITING PARENTHESIS
+1DA9B	SIGNWRITING FILL MODIFIER-2
+1DA9C	SIGNWRITING FILL MODIFIER-3
+1DA9D	SIGNWRITING FILL MODIFIER-4
+1DA9E	SIGNWRITING FILL MODIFIER-5
+1DA9F	SIGNWRITING FILL MODIFIER-6
+1DAA1	SIGNWRITING ROTATION MODIFIER-2
+1DAA2	SIGNWRITING ROTATION MODIFIER-3
+1DAA3	SIGNWRITING ROTATION MODIFIER-4
+1DAA4	SIGNWRITING ROTATION MODIFIER-5
+1DAA5	SIGNWRITING ROTATION MODIFIER-6
+1DAA6	SIGNWRITING ROTATION MODIFIER-7
+1DAA7	SIGNWRITING ROTATION MODIFIER-8
+1DAA8	SIGNWRITING ROTATION MODIFIER-9
+1DAA9	SIGNWRITING ROTATION MODIFIER-10
+1DAAA	SIGNWRITING ROTATION MODIFIER-11
+1DAAB	SIGNWRITING ROTATION MODIFIER-12
+1DAAC	SIGNWRITING ROTATION MODIFIER-13
+1DAAD	SIGNWRITING ROTATION MODIFIER-14
+1DAAE	SIGNWRITING ROTATION MODIFIER-15
+1DAAF	SIGNWRITING ROTATION MODIFIER-16
+1E000	COMBINING GLAGOLITIC LETTER AZU
+1E001	COMBINING GLAGOLITIC LETTER BUKY
+1E002	COMBINING GLAGOLITIC LETTER VEDE
+1E003	COMBINING GLAGOLITIC LETTER GLAGOLI
+1E004	COMBINING GLAGOLITIC LETTER DOBRO
+1E005	COMBINING GLAGOLITIC LETTER YESTU
+1E006	COMBINING GLAGOLITIC LETTER ZHIVETE
+1E008	COMBINING GLAGOLITIC LETTER ZEMLJA
+1E009	COMBINING GLAGOLITIC LETTER IZHE
+1E00A	COMBINING GLAGOLITIC LETTER INITIAL IZHE
+1E00B	COMBINING GLAGOLITIC LETTER I
+1E00C	COMBINING GLAGOLITIC LETTER DJERVI
+1E00D	COMBINING GLAGOLITIC LETTER KAKO
+1E00E	COMBINING GLAGOLITIC LETTER LJUDIJE
+1E00F	COMBINING GLAGOLITIC LETTER MYSLITE
+1E010	COMBINING GLAGOLITIC LETTER NASHI
+1E011	COMBINING GLAGOLITIC LETTER ONU
+1E012	COMBINING GLAGOLITIC LETTER POKOJI
+1E013	COMBINING GLAGOLITIC LETTER RITSI
+1E014	COMBINING GLAGOLITIC LETTER SLOVO
+1E015	COMBINING GLAGOLITIC LETTER TVRIDO
+1E016	COMBINING GLAGOLITIC LETTER UKU
+1E017	COMBINING GLAGOLITIC LETTER FRITU
+1E018	COMBINING GLAGOLITIC LETTER HERU
+1E01B	COMBINING GLAGOLITIC LETTER SHTA
+1E01C	COMBINING GLAGOLITIC LETTER TSI
+1E01D	COMBINING GLAGOLITIC LETTER CHRIVI
+1E01E	COMBINING GLAGOLITIC LETTER SHA
+1E01F	COMBINING GLAGOLITIC LETTER YERU
+1E020	COMBINING GLAGOLITIC LETTER YERI
+1E021	COMBINING GLAGOLITIC LETTER YATI
+1E023	COMBINING GLAGOLITIC LETTER YU
+1E024	COMBINING GLAGOLITIC LETTER SMALL YUS
+1E026	COMBINING GLAGOLITIC LETTER YO
+1E027	COMBINING GLAGOLITIC LETTER IOTATED SMALL YUS
+1E028	COMBINING GLAGOLITIC LETTER BIG YUS
+1E029	COMBINING GLAGOLITIC LETTER IOTATED BIG YUS
+1E02A	COMBINING GLAGOLITIC LETTER FITA
+1E800	MENDE KIKAKUI SYLLABLE M001 KI
+1E801	MENDE KIKAKUI SYLLABLE M002 KA
+1E802	MENDE KIKAKUI SYLLABLE M003 KU
+1E803	MENDE KIKAKUI SYLLABLE M065 KEE
+1E804	MENDE KIKAKUI SYLLABLE M095 KE
+1E805	MENDE KIKAKUI SYLLABLE M076 KOO
+1E806	MENDE KIKAKUI SYLLABLE M048 KO
+1E807	MENDE KIKAKUI SYLLABLE M179 KUA
+1E808	MENDE KIKAKUI SYLLABLE M004 WI
+1E809	MENDE KIKAKUI SYLLABLE M005 WA
+1E80A	MENDE KIKAKUI SYLLABLE M006 WU
+1E80B	MENDE KIKAKUI SYLLABLE M126 WEE
+1E80C	MENDE KIKAKUI SYLLABLE M118 WE
+1E80D	MENDE KIKAKUI SYLLABLE M114 WOO
+1E80E	MENDE KIKAKUI SYLLABLE M045 WO
+1E80F	MENDE KIKAKUI SYLLABLE M194 WUI
+1E810	MENDE KIKAKUI SYLLABLE M143 WEI
+1E811	MENDE KIKAKUI SYLLABLE M061 WVI
+1E812	MENDE KIKAKUI SYLLABLE M049 WVA
+1E813	MENDE KIKAKUI SYLLABLE M139 WVE
+1E814	MENDE KIKAKUI SYLLABLE M007 MIN
+1E815	MENDE KIKAKUI SYLLABLE M008 MAN
+1E816	MENDE KIKAKUI SYLLABLE M009 MUN
+1E817	MENDE KIKAKUI SYLLABLE M059 MEN
+1E818	MENDE KIKAKUI SYLLABLE M094 MON
+1E819	MENDE KIKAKUI SYLLABLE M154 MUAN
+1E81A	MENDE KIKAKUI SYLLABLE M189 MUEN
+1E81B	MENDE KIKAKUI SYLLABLE M010 BI
+1E81C	MENDE KIKAKUI SYLLABLE M011 BA
+1E81D	MENDE KIKAKUI SYLLABLE M012 BU
+1E81E	MENDE KIKAKUI SYLLABLE M150 BEE
+1E81F	MENDE KIKAKUI SYLLABLE M097 BE
+1E820	MENDE KIKAKUI SYLLABLE M103 BOO
+1E821	MENDE KIKAKUI SYLLABLE M138 BO
+1E822	MENDE KIKAKUI SYLLABLE M013 I
+1E823	MENDE KIKAKUI SYLLABLE M014 A
+1E824	MENDE KIKAKUI SYLLABLE M015 U
+1E825	MENDE KIKAKUI SYLLABLE M163 EE
+1E826	MENDE KIKAKUI SYLLABLE M100 E
+1E827	MENDE KIKAKUI SYLLABLE M165 OO
+1E828	MENDE KIKAKUI SYLLABLE M147 O
+1E829	MENDE KIKAKUI SYLLABLE M137 EI
+1E82A	MENDE KIKAKUI SYLLABLE M131 IN
+1E82B	MENDE KIKAKUI SYLLABLE M135 IN
+1E82C	MENDE KIKAKUI SYLLABLE M195 AN
+1E82D	MENDE KIKAKUI SYLLABLE M178 EN
+1E82E	MENDE KIKAKUI SYLLABLE M019 SI
+1E82F	MENDE KIKAKUI SYLLABLE M020 SA
+1E830	MENDE KIKAKUI SYLLABLE M021 SU
+1E831	MENDE KIKAKUI SYLLABLE M162 SEE
+1E832	MENDE KIKAKUI SYLLABLE M116 SE
+1E833	MENDE KIKAKUI SYLLABLE M136 SOO
+1E834	MENDE KIKAKUI SYLLABLE M079 SO
+1E835	MENDE KIKAKUI SYLLABLE M196 SIA
+1E836	MENDE KIKAKUI SYLLABLE M025 LI
+1E837	MENDE KIKAKUI SYLLABLE M026 LA
+1E838	MENDE KIKAKUI SYLLABLE M027 LU
+1E839	MENDE KIKAKUI SYLLABLE M084 LEE
+1E83A	MENDE KIKAKUI SYLLABLE M073 LE
+1E83B	MENDE KIKAKUI SYLLABLE M054 LOO
+1E83C	MENDE KIKAKUI SYLLABLE M153 LO
+1E83D	MENDE KIKAKUI SYLLABLE M110 LONG LE
+1E83E	MENDE KIKAKUI SYLLABLE M016 DI
+1E83F	MENDE KIKAKUI SYLLABLE M017 DA
+1E840	MENDE KIKAKUI SYLLABLE M018 DU
+1E841	MENDE KIKAKUI SYLLABLE M089 DEE
+1E842	MENDE KIKAKUI SYLLABLE M180 DOO
+1E843	MENDE KIKAKUI SYLLABLE M181 DO
+1E844	MENDE KIKAKUI SYLLABLE M022 TI
+1E845	MENDE KIKAKUI SYLLABLE M023 TA
+1E846	MENDE KIKAKUI SYLLABLE M024 TU
+1E847	MENDE KIKAKUI SYLLABLE M091 TEE
+1E848	MENDE KIKAKUI SYLLABLE M055 TE
+1E849	MENDE KIKAKUI SYLLABLE M104 TOO
+1E84A	MENDE KIKAKUI SYLLABLE M069 TO
+1E84B	MENDE KIKAKUI SYLLABLE M028 JI
+1E84C	MENDE KIKAKUI SYLLABLE M029 JA
+1E84D	MENDE KIKAKUI SYLLABLE M030 JU
+1E84E	MENDE KIKAKUI SYLLABLE M157 JEE
+1E84F	MENDE KIKAKUI SYLLABLE M113 JE
+1E850	MENDE KIKAKUI SYLLABLE M160 JOO
+1E851	MENDE KIKAKUI SYLLABLE M063 JO
+1E852	MENDE KIKAKUI SYLLABLE M175 LONG JO
+1E853	MENDE KIKAKUI SYLLABLE M031 YI
+1E854	MENDE KIKAKUI SYLLABLE M032 YA
+1E855	MENDE KIKAKUI SYLLABLE M033 YU
+1E856	MENDE KIKAKUI SYLLABLE M109 YEE
+1E857	MENDE KIKAKUI SYLLABLE M080 YE
+1E858	MENDE KIKAKUI SYLLABLE M141 YOO
+1E859	MENDE KIKAKUI SYLLABLE M121 YO
+1E85A	MENDE KIKAKUI SYLLABLE M034 FI
+1E85B	MENDE KIKAKUI SYLLABLE M035 FA
+1E85C	MENDE KIKAKUI SYLLABLE M036 FU
+1E85D	MENDE KIKAKUI SYLLABLE M078 FEE
+1E85E	MENDE KIKAKUI SYLLABLE M075 FE
+1E85F	MENDE KIKAKUI SYLLABLE M133 FOO
+1E860	MENDE KIKAKUI SYLLABLE M088 FO
+1E861	MENDE KIKAKUI SYLLABLE M197 FUA
+1E862	MENDE KIKAKUI SYLLABLE M101 FAN
+1E863	MENDE KIKAKUI SYLLABLE M037 NIN
+1E864	MENDE KIKAKUI SYLLABLE M038 NAN
+1E865	MENDE KIKAKUI SYLLABLE M039 NUN
+1E866	MENDE KIKAKUI SYLLABLE M117 NEN
+1E867	MENDE KIKAKUI SYLLABLE M169 NON
+1E868	MENDE KIKAKUI SYLLABLE M176 HI
+1E869	MENDE KIKAKUI SYLLABLE M041 HA
+1E86A	MENDE KIKAKUI SYLLABLE M186 HU
+1E86B	MENDE KIKAKUI SYLLABLE M040 HEE
+1E86C	MENDE KIKAKUI SYLLABLE M096 HE
+1E86D	MENDE KIKAKUI SYLLABLE M042 HOO
+1E86E	MENDE KIKAKUI SYLLABLE M140 HO
+1E86F	MENDE KIKAKUI SYLLABLE M083 HEEI
+1E870	MENDE KIKAKUI SYLLABLE M128 HOOU
+1E871	MENDE KIKAKUI SYLLABLE M053 HIN
+1E872	MENDE KIKAKUI SYLLABLE M130 HAN
+1E873	MENDE KIKAKUI SYLLABLE M087 HUN
+1E874	MENDE KIKAKUI SYLLABLE M052 HEN
+1E875	MENDE KIKAKUI SYLLABLE M193 HON
+1E876	MENDE KIKAKUI SYLLABLE M046 HUAN
+1E877	MENDE KIKAKUI SYLLABLE M090 NGGI
+1E878	MENDE KIKAKUI SYLLABLE M043 NGGA
+1E879	MENDE KIKAKUI SYLLABLE M082 NGGU
+1E87A	MENDE KIKAKUI SYLLABLE M115 NGGEE
+1E87B	MENDE KIKAKUI SYLLABLE M146 NGGE
+1E87C	MENDE KIKAKUI SYLLABLE M156 NGGOO
+1E87D	MENDE KIKAKUI SYLLABLE M120 NGGO
+1E87E	MENDE KIKAKUI SYLLABLE M159 NGGAA
+1E87F	MENDE KIKAKUI SYLLABLE M127 NGGUA
+1E880	MENDE KIKAKUI SYLLABLE M086 LONG NGGE
+1E881	MENDE KIKAKUI SYLLABLE M106 LONG NGGOO
+1E882	MENDE KIKAKUI SYLLABLE M183 LONG NGGO
+1E883	MENDE KIKAKUI SYLLABLE M155 GI
+1E884	MENDE KIKAKUI SYLLABLE M111 GA
+1E885	MENDE KIKAKUI SYLLABLE M168 GU
+1E886	MENDE KIKAKUI SYLLABLE M190 GEE
+1E887	MENDE KIKAKUI SYLLABLE M166 GUEI
+1E888	MENDE KIKAKUI SYLLABLE M167 GUAN
+1E889	MENDE KIKAKUI SYLLABLE M184 NGEN
+1E88A	MENDE KIKAKUI SYLLABLE M057 NGON
+1E88B	MENDE KIKAKUI SYLLABLE M177 NGUAN
+1E88C	MENDE KIKAKUI SYLLABLE M068 PI
+1E88D	MENDE KIKAKUI SYLLABLE M099 PA
+1E88E	MENDE KIKAKUI SYLLABLE M050 PU
+1E88F	MENDE KIKAKUI SYLLABLE M081 PEE
+1E890	MENDE KIKAKUI SYLLABLE M051 PE
+1E891	MENDE KIKAKUI SYLLABLE M102 POO
+1E892	MENDE KIKAKUI SYLLABLE M066 PO
+1E893	MENDE KIKAKUI SYLLABLE M145 MBI
+1E894	MENDE KIKAKUI SYLLABLE M062 MBA
+1E895	MENDE KIKAKUI SYLLABLE M122 MBU
+1E896	MENDE KIKAKUI SYLLABLE M047 MBEE
+1E897	MENDE KIKAKUI SYLLABLE M188 MBEE
+1E898	MENDE KIKAKUI SYLLABLE M072 MBE
+1E899	MENDE KIKAKUI SYLLABLE M172 MBOO
+1E89A	MENDE KIKAKUI SYLLABLE M174 MBO
+1E89B	MENDE KIKAKUI SYLLABLE M187 MBUU
+1E89C	MENDE KIKAKUI SYLLABLE M161 LONG MBE
+1E89D	MENDE KIKAKUI SYLLABLE M105 LONG MBOO
+1E89E	MENDE KIKAKUI SYLLABLE M142 LONG MBO
+1E89F	MENDE KIKAKUI SYLLABLE M132 KPI
+1E8A0	MENDE KIKAKUI SYLLABLE M092 KPA
+1E8A1	MENDE KIKAKUI SYLLABLE M074 KPU
+1E8A2	MENDE KIKAKUI SYLLABLE M044 KPEE
+1E8A3	MENDE KIKAKUI SYLLABLE M108 KPE
+1E8A4	MENDE KIKAKUI SYLLABLE M112 KPOO
+1E8A5	MENDE KIKAKUI SYLLABLE M158 KPO
+1E8A6	MENDE KIKAKUI SYLLABLE M124 GBI
+1E8A7	MENDE KIKAKUI SYLLABLE M056 GBA
+1E8A8	MENDE KIKAKUI SYLLABLE M148 GBU
+1E8A9	MENDE KIKAKUI SYLLABLE M093 GBEE
+1E8AA	MENDE KIKAKUI SYLLABLE M107 GBE
+1E8AB	MENDE KIKAKUI SYLLABLE M071 GBOO
+1E8AC	MENDE KIKAKUI SYLLABLE M070 GBO
+1E8AD	MENDE KIKAKUI SYLLABLE M171 RA
+1E8AE	MENDE KIKAKUI SYLLABLE M123 NDI
+1E8AF	MENDE KIKAKUI SYLLABLE M129 NDA
+1E8B0	MENDE KIKAKUI SYLLABLE M125 NDU
+1E8B1	MENDE KIKAKUI SYLLABLE M191 NDEE
+1E8B2	MENDE KIKAKUI SYLLABLE M119 NDE
+1E8B3	MENDE KIKAKUI SYLLABLE M067 NDOO
+1E8B4	MENDE KIKAKUI SYLLABLE M064 NDO
+1E8B5	MENDE KIKAKUI SYLLABLE M152 NJA
+1E8B6	MENDE KIKAKUI SYLLABLE M192 NJU
+1E8B7	MENDE KIKAKUI SYLLABLE M149 NJEE
+1E8B8	MENDE KIKAKUI SYLLABLE M134 NJOO
+1E8B9	MENDE KIKAKUI SYLLABLE M182 VI
+1E8BA	MENDE KIKAKUI SYLLABLE M185 VA
+1E8BB	MENDE KIKAKUI SYLLABLE M151 VU
+1E8BC	MENDE KIKAKUI SYLLABLE M173 VEE
+1E8BD	MENDE KIKAKUI SYLLABLE M085 VE
+1E8BE	MENDE KIKAKUI SYLLABLE M144 VOO
+1E8BF	MENDE KIKAKUI SYLLABLE M077 VO
+1E8C0	MENDE KIKAKUI SYLLABLE M164 NYIN
+1E8C1	MENDE KIKAKUI SYLLABLE M058 NYAN
+1E8C2	MENDE KIKAKUI SYLLABLE M170 NYUN
+1E8C3	MENDE KIKAKUI SYLLABLE M098 NYEN
+1E8C4	MENDE KIKAKUI SYLLABLE M060 NYON
+1E8C7	MENDE KIKAKUI DIGIT ONE
+1E8C8	MENDE KIKAKUI DIGIT TWO
+1E8C9	MENDE KIKAKUI DIGIT THREE
+1E8CA	MENDE KIKAKUI DIGIT FOUR
+1E8CB	MENDE KIKAKUI DIGIT FIVE
+1E8CC	MENDE KIKAKUI DIGIT SIX
+1E8CD	MENDE KIKAKUI DIGIT SEVEN
+1E8CE	MENDE KIKAKUI DIGIT EIGHT
+1E8CF	MENDE KIKAKUI DIGIT NINE
+1E8D0	MENDE KIKAKUI COMBINING NUMBER TEENS
+1E8D1	MENDE KIKAKUI COMBINING NUMBER TENS
+1E8D2	MENDE KIKAKUI COMBINING NUMBER HUNDREDS
+1E8D3	MENDE KIKAKUI COMBINING NUMBER THOUSANDS
+1E8D4	MENDE KIKAKUI COMBINING NUMBER TEN THOUSANDS
+1E8D5	MENDE KIKAKUI COMBINING NUMBER HUNDRED THOUSANDS
+1E8D6	MENDE KIKAKUI COMBINING NUMBER MILLIONS
+1E900	ADLAM CAPITAL LETTER ALIF
+1E901	ADLAM CAPITAL LETTER DAALI
+1E902	ADLAM CAPITAL LETTER LAAM
+1E903	ADLAM CAPITAL LETTER MIIM
+1E904	ADLAM CAPITAL LETTER BA
+1E905	ADLAM CAPITAL LETTER SINNYIIYHE
+1E906	ADLAM CAPITAL LETTER PE
+1E907	ADLAM CAPITAL LETTER BHE
+1E908	ADLAM CAPITAL LETTER RA
+1E909	ADLAM CAPITAL LETTER E
+1E90A	ADLAM CAPITAL LETTER FA
+1E90B	ADLAM CAPITAL LETTER I
+1E90C	ADLAM CAPITAL LETTER O
+1E90D	ADLAM CAPITAL LETTER DHA
+1E90E	ADLAM CAPITAL LETTER YHE
+1E90F	ADLAM CAPITAL LETTER WAW
+1E910	ADLAM CAPITAL LETTER NUN
+1E911	ADLAM CAPITAL LETTER KAF
+1E912	ADLAM CAPITAL LETTER YA
+1E913	ADLAM CAPITAL LETTER U
+1E914	ADLAM CAPITAL LETTER JIIM
+1E915	ADLAM CAPITAL LETTER CHI
+1E916	ADLAM CAPITAL LETTER HA
+1E917	ADLAM CAPITAL LETTER QAAF
+1E918	ADLAM CAPITAL LETTER GA
+1E919	ADLAM CAPITAL LETTER NYA
+1E91A	ADLAM CAPITAL LETTER TU
+1E91B	ADLAM CAPITAL LETTER NHA
+1E91C	ADLAM CAPITAL LETTER VA
+1E91D	ADLAM CAPITAL LETTER KHA
+1E91E	ADLAM CAPITAL LETTER GBE
+1E91F	ADLAM CAPITAL LETTER ZAL
+1E920	ADLAM CAPITAL LETTER KPO
+1E921	ADLAM CAPITAL LETTER SHA
+1E922	ADLAM SMALL LETTER ALIF
+1E923	ADLAM SMALL LETTER DAALI
+1E924	ADLAM SMALL LETTER LAAM
+1E925	ADLAM SMALL LETTER MIIM
+1E926	ADLAM SMALL LETTER BA
+1E927	ADLAM SMALL LETTER SINNYIIYHE
+1E928	ADLAM SMALL LETTER PE
+1E929	ADLAM SMALL LETTER BHE
+1E92A	ADLAM SMALL LETTER RA
+1E92B	ADLAM SMALL LETTER E
+1E92C	ADLAM SMALL LETTER FA
+1E92D	ADLAM SMALL LETTER I
+1E92E	ADLAM SMALL LETTER O
+1E92F	ADLAM SMALL LETTER DHA
+1E930	ADLAM SMALL LETTER YHE
+1E931	ADLAM SMALL LETTER WAW
+1E932	ADLAM SMALL LETTER NUN
+1E933	ADLAM SMALL LETTER KAF
+1E934	ADLAM SMALL LETTER YA
+1E935	ADLAM SMALL LETTER U
+1E936	ADLAM SMALL LETTER JIIM
+1E937	ADLAM SMALL LETTER CHI
+1E938	ADLAM SMALL LETTER HA
+1E939	ADLAM SMALL LETTER QAAF
+1E93A	ADLAM SMALL LETTER GA
+1E93B	ADLAM SMALL LETTER NYA
+1E93C	ADLAM SMALL LETTER TU
+1E93D	ADLAM SMALL LETTER NHA
+1E93E	ADLAM SMALL LETTER VA
+1E93F	ADLAM SMALL LETTER KHA
+1E940	ADLAM SMALL LETTER GBE
+1E941	ADLAM SMALL LETTER ZAL
+1E942	ADLAM SMALL LETTER KPO
+1E943	ADLAM SMALL LETTER SHA
+1E944	ADLAM ALIF LENGTHENER
+1E945	ADLAM VOWEL LENGTHENER
+1E946	ADLAM GEMINATION MARK
+1E947	ADLAM HAMZA
+1E948	ADLAM CONSONANT MODIFIER
+1E949	ADLAM GEMINATE CONSONANT MODIFIER
+1E94A	ADLAM NUKTA
+1E950	ADLAM DIGIT ZERO
+1E951	ADLAM DIGIT ONE
+1E952	ADLAM DIGIT TWO
+1E953	ADLAM DIGIT THREE
+1E954	ADLAM DIGIT FOUR
+1E955	ADLAM DIGIT FIVE
+1E956	ADLAM DIGIT SIX
+1E957	ADLAM DIGIT SEVEN
+1E958	ADLAM DIGIT EIGHT
+1E959	ADLAM DIGIT NINE
+1E95E	ADLAM INITIAL EXCLAMATION MARK
+1E95F	ADLAM INITIAL QUESTION MARK
+1EE00	ARABIC MATHEMATICAL ALEF
+1EE01	ARABIC MATHEMATICAL BEH
+1EE02	ARABIC MATHEMATICAL JEEM
+1EE03	ARABIC MATHEMATICAL DAL
+1EE05	ARABIC MATHEMATICAL WAW
+1EE06	ARABIC MATHEMATICAL ZAIN
+1EE07	ARABIC MATHEMATICAL HAH
+1EE08	ARABIC MATHEMATICAL TAH
+1EE09	ARABIC MATHEMATICAL YEH
+1EE0A	ARABIC MATHEMATICAL KAF
+1EE0B	ARABIC MATHEMATICAL LAM
+1EE0C	ARABIC MATHEMATICAL MEEM
+1EE0D	ARABIC MATHEMATICAL NOON
+1EE0E	ARABIC MATHEMATICAL SEEN
+1EE0F	ARABIC MATHEMATICAL AIN
+1EE10	ARABIC MATHEMATICAL FEH
+1EE11	ARABIC MATHEMATICAL SAD
+1EE12	ARABIC MATHEMATICAL QAF
+1EE13	ARABIC MATHEMATICAL REH
+1EE14	ARABIC MATHEMATICAL SHEEN
+1EE15	ARABIC MATHEMATICAL TEH
+1EE16	ARABIC MATHEMATICAL THEH
+1EE17	ARABIC MATHEMATICAL KHAH
+1EE18	ARABIC MATHEMATICAL THAL
+1EE19	ARABIC MATHEMATICAL DAD
+1EE1A	ARABIC MATHEMATICAL ZAH
+1EE1B	ARABIC MATHEMATICAL GHAIN
+1EE1C	ARABIC MATHEMATICAL DOTLESS BEH
+1EE1D	ARABIC MATHEMATICAL DOTLESS NOON
+1EE1E	ARABIC MATHEMATICAL DOTLESS FEH
+1EE1F	ARABIC MATHEMATICAL DOTLESS QAF
+1EE21	ARABIC MATHEMATICAL INITIAL BEH
+1EE22	ARABIC MATHEMATICAL INITIAL JEEM
+1EE24	ARABIC MATHEMATICAL INITIAL HEH
+1EE27	ARABIC MATHEMATICAL INITIAL HAH
+1EE29	ARABIC MATHEMATICAL INITIAL YEH
+1EE2A	ARABIC MATHEMATICAL INITIAL KAF
+1EE2B	ARABIC MATHEMATICAL INITIAL LAM
+1EE2C	ARABIC MATHEMATICAL INITIAL MEEM
+1EE2D	ARABIC MATHEMATICAL INITIAL NOON
+1EE2E	ARABIC MATHEMATICAL INITIAL SEEN
+1EE2F	ARABIC MATHEMATICAL INITIAL AIN
+1EE30	ARABIC MATHEMATICAL INITIAL FEH
+1EE31	ARABIC MATHEMATICAL INITIAL SAD
+1EE32	ARABIC MATHEMATICAL INITIAL QAF
+1EE34	ARABIC MATHEMATICAL INITIAL SHEEN
+1EE35	ARABIC MATHEMATICAL INITIAL TEH
+1EE36	ARABIC MATHEMATICAL INITIAL THEH
+1EE37	ARABIC MATHEMATICAL INITIAL KHAH
+1EE39	ARABIC MATHEMATICAL INITIAL DAD
+1EE3B	ARABIC MATHEMATICAL INITIAL GHAIN
+1EE42	ARABIC MATHEMATICAL TAILED JEEM
+1EE47	ARABIC MATHEMATICAL TAILED HAH
+1EE49	ARABIC MATHEMATICAL TAILED YEH
+1EE4B	ARABIC MATHEMATICAL TAILED LAM
+1EE4D	ARABIC MATHEMATICAL TAILED NOON
+1EE4E	ARABIC MATHEMATICAL TAILED SEEN
+1EE4F	ARABIC MATHEMATICAL TAILED AIN
+1EE51	ARABIC MATHEMATICAL TAILED SAD
+1EE52	ARABIC MATHEMATICAL TAILED QAF
+1EE54	ARABIC MATHEMATICAL TAILED SHEEN
+1EE57	ARABIC MATHEMATICAL TAILED KHAH
+1EE59	ARABIC MATHEMATICAL TAILED DAD
+1EE5B	ARABIC MATHEMATICAL TAILED GHAIN
+1EE5D	ARABIC MATHEMATICAL TAILED DOTLESS NOON
+1EE5F	ARABIC MATHEMATICAL TAILED DOTLESS QAF
+1EE61	ARABIC MATHEMATICAL STRETCHED BEH
+1EE62	ARABIC MATHEMATICAL STRETCHED JEEM
+1EE64	ARABIC MATHEMATICAL STRETCHED HEH
+1EE67	ARABIC MATHEMATICAL STRETCHED HAH
+1EE68	ARABIC MATHEMATICAL STRETCHED TAH
+1EE69	ARABIC MATHEMATICAL STRETCHED YEH
+1EE6A	ARABIC MATHEMATICAL STRETCHED KAF
+1EE6C	ARABIC MATHEMATICAL STRETCHED MEEM
+1EE6D	ARABIC MATHEMATICAL STRETCHED NOON
+1EE6E	ARABIC MATHEMATICAL STRETCHED SEEN
+1EE6F	ARABIC MATHEMATICAL STRETCHED AIN
+1EE70	ARABIC MATHEMATICAL STRETCHED FEH
+1EE71	ARABIC MATHEMATICAL STRETCHED SAD
+1EE72	ARABIC MATHEMATICAL STRETCHED QAF
+1EE74	ARABIC MATHEMATICAL STRETCHED SHEEN
+1EE75	ARABIC MATHEMATICAL STRETCHED TEH
+1EE76	ARABIC MATHEMATICAL STRETCHED THEH
+1EE77	ARABIC MATHEMATICAL STRETCHED KHAH
+1EE79	ARABIC MATHEMATICAL STRETCHED DAD
+1EE7A	ARABIC MATHEMATICAL STRETCHED ZAH
+1EE7B	ARABIC MATHEMATICAL STRETCHED GHAIN
+1EE7C	ARABIC MATHEMATICAL STRETCHED DOTLESS BEH
+1EE7E	ARABIC MATHEMATICAL STRETCHED DOTLESS FEH
+1EE80	ARABIC MATHEMATICAL LOOPED ALEF
+1EE81	ARABIC MATHEMATICAL LOOPED BEH
+1EE82	ARABIC MATHEMATICAL LOOPED JEEM
+1EE83	ARABIC MATHEMATICAL LOOPED DAL
+1EE84	ARABIC MATHEMATICAL LOOPED HEH
+1EE85	ARABIC MATHEMATICAL LOOPED WAW
+1EE86	ARABIC MATHEMATICAL LOOPED ZAIN
+1EE87	ARABIC MATHEMATICAL LOOPED HAH
+1EE88	ARABIC MATHEMATICAL LOOPED TAH
+1EE89	ARABIC MATHEMATICAL LOOPED YEH
+1EE8B	ARABIC MATHEMATICAL LOOPED LAM
+1EE8C	ARABIC MATHEMATICAL LOOPED MEEM
+1EE8D	ARABIC MATHEMATICAL LOOPED NOON
+1EE8E	ARABIC MATHEMATICAL LOOPED SEEN
+1EE8F	ARABIC MATHEMATICAL LOOPED AIN
+1EE90	ARABIC MATHEMATICAL LOOPED FEH
+1EE91	ARABIC MATHEMATICAL LOOPED SAD
+1EE92	ARABIC MATHEMATICAL LOOPED QAF
+1EE93	ARABIC MATHEMATICAL LOOPED REH
+1EE94	ARABIC MATHEMATICAL LOOPED SHEEN
+1EE95	ARABIC MATHEMATICAL LOOPED TEH
+1EE96	ARABIC MATHEMATICAL LOOPED THEH
+1EE97	ARABIC MATHEMATICAL LOOPED KHAH
+1EE98	ARABIC MATHEMATICAL LOOPED THAL
+1EE99	ARABIC MATHEMATICAL LOOPED DAD
+1EE9A	ARABIC MATHEMATICAL LOOPED ZAH
+1EE9B	ARABIC MATHEMATICAL LOOPED GHAIN
+1EEA1	ARABIC MATHEMATICAL DOUBLE-STRUCK BEH
+1EEA2	ARABIC MATHEMATICAL DOUBLE-STRUCK JEEM
+1EEA3	ARABIC MATHEMATICAL DOUBLE-STRUCK DAL
+1EEA5	ARABIC MATHEMATICAL DOUBLE-STRUCK WAW
+1EEA6	ARABIC MATHEMATICAL DOUBLE-STRUCK ZAIN
+1EEA7	ARABIC MATHEMATICAL DOUBLE-STRUCK HAH
+1EEA8	ARABIC MATHEMATICAL DOUBLE-STRUCK TAH
+1EEA9	ARABIC MATHEMATICAL DOUBLE-STRUCK YEH
+1EEAB	ARABIC MATHEMATICAL DOUBLE-STRUCK LAM
+1EEAC	ARABIC MATHEMATICAL DOUBLE-STRUCK MEEM
+1EEAD	ARABIC MATHEMATICAL DOUBLE-STRUCK NOON
+1EEAE	ARABIC MATHEMATICAL DOUBLE-STRUCK SEEN
+1EEAF	ARABIC MATHEMATICAL DOUBLE-STRUCK AIN
+1EEB0	ARABIC MATHEMATICAL DOUBLE-STRUCK FEH
+1EEB1	ARABIC MATHEMATICAL DOUBLE-STRUCK SAD
+1EEB2	ARABIC MATHEMATICAL DOUBLE-STRUCK QAF
+1EEB3	ARABIC MATHEMATICAL DOUBLE-STRUCK REH
+1EEB4	ARABIC MATHEMATICAL DOUBLE-STRUCK SHEEN
+1EEB5	ARABIC MATHEMATICAL DOUBLE-STRUCK TEH
+1EEB6	ARABIC MATHEMATICAL DOUBLE-STRUCK THEH
+1EEB7	ARABIC MATHEMATICAL DOUBLE-STRUCK KHAH
+1EEB8	ARABIC MATHEMATICAL DOUBLE-STRUCK THAL
+1EEB9	ARABIC MATHEMATICAL DOUBLE-STRUCK DAD
+1EEBA	ARABIC MATHEMATICAL DOUBLE-STRUCK ZAH
+1EEBB	ARABIC MATHEMATICAL DOUBLE-STRUCK GHAIN
+1EEF0	ARABIC MATHEMATICAL OPERATOR MEEM WITH HAH WITH TATWEEL
+1EEF1	ARABIC MATHEMATICAL OPERATOR HAH WITH DAL
+1F000	MAHJONG TILE EAST WIND
+1F001	MAHJONG TILE SOUTH WIND
+1F002	MAHJONG TILE WEST WIND
+1F003	MAHJONG TILE NORTH WIND
+1F004	MAHJONG TILE RED DRAGON
+1F005	MAHJONG TILE GREEN DRAGON
+1F006	MAHJONG TILE WHITE DRAGON
+1F007	MAHJONG TILE ONE OF CHARACTERS
+1F008	MAHJONG TILE TWO OF CHARACTERS
+1F009	MAHJONG TILE THREE OF CHARACTERS
+1F00A	MAHJONG TILE FOUR OF CHARACTERS
+1F00B	MAHJONG TILE FIVE OF CHARACTERS
+1F00C	MAHJONG TILE SIX OF CHARACTERS
+1F00D	MAHJONG TILE SEVEN OF CHARACTERS
+1F00E	MAHJONG TILE EIGHT OF CHARACTERS
+1F00F	MAHJONG TILE NINE OF CHARACTERS
+1F010	MAHJONG TILE ONE OF BAMBOOS
+1F011	MAHJONG TILE TWO OF BAMBOOS
+1F012	MAHJONG TILE THREE OF BAMBOOS
+1F013	MAHJONG TILE FOUR OF BAMBOOS
+1F014	MAHJONG TILE FIVE OF BAMBOOS
+1F015	MAHJONG TILE SIX OF BAMBOOS
+1F016	MAHJONG TILE SEVEN OF BAMBOOS
+1F017	MAHJONG TILE EIGHT OF BAMBOOS
+1F018	MAHJONG TILE NINE OF BAMBOOS
+1F019	MAHJONG TILE ONE OF CIRCLES
+1F01A	MAHJONG TILE TWO OF CIRCLES
+1F01B	MAHJONG TILE THREE OF CIRCLES
+1F01C	MAHJONG TILE FOUR OF CIRCLES
+1F01D	MAHJONG TILE FIVE OF CIRCLES
+1F01E	MAHJONG TILE SIX OF CIRCLES
+1F01F	MAHJONG TILE SEVEN OF CIRCLES
+1F020	MAHJONG TILE EIGHT OF CIRCLES
+1F021	MAHJONG TILE NINE OF CIRCLES
+1F022	MAHJONG TILE PLUM
+1F023	MAHJONG TILE ORCHID
+1F024	MAHJONG TILE BAMBOO
+1F025	MAHJONG TILE CHRYSANTHEMUM
+1F026	MAHJONG TILE SPRING
+1F027	MAHJONG TILE SUMMER
+1F028	MAHJONG TILE AUTUMN
+1F029	MAHJONG TILE WINTER
+1F02A	MAHJONG TILE JOKER
+1F02B	MAHJONG TILE BACK
+1F030	DOMINO TILE HORIZONTAL BACK
+1F031	DOMINO TILE HORIZONTAL-00-00
+1F032	DOMINO TILE HORIZONTAL-00-01
+1F033	DOMINO TILE HORIZONTAL-00-02
+1F034	DOMINO TILE HORIZONTAL-00-03
+1F035	DOMINO TILE HORIZONTAL-00-04
+1F036	DOMINO TILE HORIZONTAL-00-05
+1F037	DOMINO TILE HORIZONTAL-00-06
+1F038	DOMINO TILE HORIZONTAL-01-00
+1F039	DOMINO TILE HORIZONTAL-01-01
+1F03A	DOMINO TILE HORIZONTAL-01-02
+1F03B	DOMINO TILE HORIZONTAL-01-03
+1F03C	DOMINO TILE HORIZONTAL-01-04
+1F03D	DOMINO TILE HORIZONTAL-01-05
+1F03E	DOMINO TILE HORIZONTAL-01-06
+1F03F	DOMINO TILE HORIZONTAL-02-00
+1F040	DOMINO TILE HORIZONTAL-02-01
+1F041	DOMINO TILE HORIZONTAL-02-02
+1F042	DOMINO TILE HORIZONTAL-02-03
+1F043	DOMINO TILE HORIZONTAL-02-04
+1F044	DOMINO TILE HORIZONTAL-02-05
+1F045	DOMINO TILE HORIZONTAL-02-06
+1F046	DOMINO TILE HORIZONTAL-03-00
+1F047	DOMINO TILE HORIZONTAL-03-01
+1F048	DOMINO TILE HORIZONTAL-03-02
+1F049	DOMINO TILE HORIZONTAL-03-03
+1F04A	DOMINO TILE HORIZONTAL-03-04
+1F04B	DOMINO TILE HORIZONTAL-03-05
+1F04C	DOMINO TILE HORIZONTAL-03-06
+1F04D	DOMINO TILE HORIZONTAL-04-00
+1F04E	DOMINO TILE HORIZONTAL-04-01
+1F04F	DOMINO TILE HORIZONTAL-04-02
+1F050	DOMINO TILE HORIZONTAL-04-03
+1F051	DOMINO TILE HORIZONTAL-04-04
+1F052	DOMINO TILE HORIZONTAL-04-05
+1F053	DOMINO TILE HORIZONTAL-04-06
+1F054	DOMINO TILE HORIZONTAL-05-00
+1F055	DOMINO TILE HORIZONTAL-05-01
+1F056	DOMINO TILE HORIZONTAL-05-02
+1F057	DOMINO TILE HORIZONTAL-05-03
+1F058	DOMINO TILE HORIZONTAL-05-04
+1F059	DOMINO TILE HORIZONTAL-05-05
+1F05A	DOMINO TILE HORIZONTAL-05-06
+1F05B	DOMINO TILE HORIZONTAL-06-00
+1F05C	DOMINO TILE HORIZONTAL-06-01
+1F05D	DOMINO TILE HORIZONTAL-06-02
+1F05E	DOMINO TILE HORIZONTAL-06-03
+1F05F	DOMINO TILE HORIZONTAL-06-04
+1F060	DOMINO TILE HORIZONTAL-06-05
+1F061	DOMINO TILE HORIZONTAL-06-06
+1F062	DOMINO TILE VERTICAL BACK
+1F063	DOMINO TILE VERTICAL-00-00
+1F064	DOMINO TILE VERTICAL-00-01
+1F065	DOMINO TILE VERTICAL-00-02
+1F066	DOMINO TILE VERTICAL-00-03
+1F067	DOMINO TILE VERTICAL-00-04
+1F068	DOMINO TILE VERTICAL-00-05
+1F069	DOMINO TILE VERTICAL-00-06
+1F06A	DOMINO TILE VERTICAL-01-00
+1F06B	DOMINO TILE VERTICAL-01-01
+1F06C	DOMINO TILE VERTICAL-01-02
+1F06D	DOMINO TILE VERTICAL-01-03
+1F06E	DOMINO TILE VERTICAL-01-04
+1F06F	DOMINO TILE VERTICAL-01-05
+1F070	DOMINO TILE VERTICAL-01-06
+1F071	DOMINO TILE VERTICAL-02-00
+1F072	DOMINO TILE VERTICAL-02-01
+1F073	DOMINO TILE VERTICAL-02-02
+1F074	DOMINO TILE VERTICAL-02-03
+1F075	DOMINO TILE VERTICAL-02-04
+1F076	DOMINO TILE VERTICAL-02-05
+1F077	DOMINO TILE VERTICAL-02-06
+1F078	DOMINO TILE VERTICAL-03-00
+1F079	DOMINO TILE VERTICAL-03-01
+1F07A	DOMINO TILE VERTICAL-03-02
+1F07B	DOMINO TILE VERTICAL-03-03
+1F07C	DOMINO TILE VERTICAL-03-04
+1F07D	DOMINO TILE VERTICAL-03-05
+1F07E	DOMINO TILE VERTICAL-03-06
+1F07F	DOMINO TILE VERTICAL-04-00
+1F080	DOMINO TILE VERTICAL-04-01
+1F081	DOMINO TILE VERTICAL-04-02
+1F082	DOMINO TILE VERTICAL-04-03
+1F083	DOMINO TILE VERTICAL-04-04
+1F084	DOMINO TILE VERTICAL-04-05
+1F085	DOMINO TILE VERTICAL-04-06
+1F086	DOMINO TILE VERTICAL-05-00
+1F087	DOMINO TILE VERTICAL-05-01
+1F088	DOMINO TILE VERTICAL-05-02
+1F089	DOMINO TILE VERTICAL-05-03
+1F08A	DOMINO TILE VERTICAL-05-04
+1F08B	DOMINO TILE VERTICAL-05-05
+1F08C	DOMINO TILE VERTICAL-05-06
+1F08D	DOMINO TILE VERTICAL-06-00
+1F08E	DOMINO TILE VERTICAL-06-01
+1F08F	DOMINO TILE VERTICAL-06-02
+1F090	DOMINO TILE VERTICAL-06-03
+1F091	DOMINO TILE VERTICAL-06-04
+1F092	DOMINO TILE VERTICAL-06-05
+1F093	DOMINO TILE VERTICAL-06-06
+1F0A0	PLAYING CARD BACK
+1F0A1	PLAYING CARD ACE OF SPADES
+1F0A2	PLAYING CARD TWO OF SPADES
+1F0A3	PLAYING CARD THREE OF SPADES
+1F0A4	PLAYING CARD FOUR OF SPADES
+1F0A5	PLAYING CARD FIVE OF SPADES
+1F0A6	PLAYING CARD SIX OF SPADES
+1F0A7	PLAYING CARD SEVEN OF SPADES
+1F0A8	PLAYING CARD EIGHT OF SPADES
+1F0A9	PLAYING CARD NINE OF SPADES
+1F0AA	PLAYING CARD TEN OF SPADES
+1F0AB	PLAYING CARD JACK OF SPADES
+1F0AC	PLAYING CARD KNIGHT OF SPADES
+1F0AD	PLAYING CARD QUEEN OF SPADES
+1F0AE	PLAYING CARD KING OF SPADES
+1F0B1	PLAYING CARD ACE OF HEARTS
+1F0B2	PLAYING CARD TWO OF HEARTS
+1F0B3	PLAYING CARD THREE OF HEARTS
+1F0B4	PLAYING CARD FOUR OF HEARTS
+1F0B5	PLAYING CARD FIVE OF HEARTS
+1F0B6	PLAYING CARD SIX OF HEARTS
+1F0B7	PLAYING CARD SEVEN OF HEARTS
+1F0B8	PLAYING CARD EIGHT OF HEARTS
+1F0B9	PLAYING CARD NINE OF HEARTS
+1F0BA	PLAYING CARD TEN OF HEARTS
+1F0BB	PLAYING CARD JACK OF HEARTS
+1F0BC	PLAYING CARD KNIGHT OF HEARTS
+1F0BD	PLAYING CARD QUEEN OF HEARTS
+1F0BE	PLAYING CARD KING OF HEARTS
+1F0BF	PLAYING CARD RED JOKER
+1F0C1	PLAYING CARD ACE OF DIAMONDS
+1F0C2	PLAYING CARD TWO OF DIAMONDS
+1F0C3	PLAYING CARD THREE OF DIAMONDS
+1F0C4	PLAYING CARD FOUR OF DIAMONDS
+1F0C5	PLAYING CARD FIVE OF DIAMONDS
+1F0C6	PLAYING CARD SIX OF DIAMONDS
+1F0C7	PLAYING CARD SEVEN OF DIAMONDS
+1F0C8	PLAYING CARD EIGHT OF DIAMONDS
+1F0C9	PLAYING CARD NINE OF DIAMONDS
+1F0CA	PLAYING CARD TEN OF DIAMONDS
+1F0CB	PLAYING CARD JACK OF DIAMONDS
+1F0CC	PLAYING CARD KNIGHT OF DIAMONDS
+1F0CD	PLAYING CARD QUEEN OF DIAMONDS
+1F0CE	PLAYING CARD KING OF DIAMONDS
+1F0CF	PLAYING CARD BLACK JOKER
+1F0D1	PLAYING CARD ACE OF CLUBS
+1F0D2	PLAYING CARD TWO OF CLUBS
+1F0D3	PLAYING CARD THREE OF CLUBS
+1F0D4	PLAYING CARD FOUR OF CLUBS
+1F0D5	PLAYING CARD FIVE OF CLUBS
+1F0D6	PLAYING CARD SIX OF CLUBS
+1F0D7	PLAYING CARD SEVEN OF CLUBS
+1F0D8	PLAYING CARD EIGHT OF CLUBS
+1F0D9	PLAYING CARD NINE OF CLUBS
+1F0DA	PLAYING CARD TEN OF CLUBS
+1F0DB	PLAYING CARD JACK OF CLUBS
+1F0DC	PLAYING CARD KNIGHT OF CLUBS
+1F0DD	PLAYING CARD QUEEN OF CLUBS
+1F0DE	PLAYING CARD KING OF CLUBS
+1F0DF	PLAYING CARD WHITE JOKER
+1F0E0	PLAYING CARD FOOL
+1F0E1	PLAYING CARD TRUMP-1
+1F0E2	PLAYING CARD TRUMP-2
+1F0E3	PLAYING CARD TRUMP-3
+1F0E4	PLAYING CARD TRUMP-4
+1F0E5	PLAYING CARD TRUMP-5
+1F0E6	PLAYING CARD TRUMP-6
+1F0E7	PLAYING CARD TRUMP-7
+1F0E8	PLAYING CARD TRUMP-8
+1F0E9	PLAYING CARD TRUMP-9
+1F0EA	PLAYING CARD TRUMP-10
+1F0EB	PLAYING CARD TRUMP-11
+1F0EC	PLAYING CARD TRUMP-12
+1F0ED	PLAYING CARD TRUMP-13
+1F0EE	PLAYING CARD TRUMP-14
+1F0EF	PLAYING CARD TRUMP-15
+1F0F0	PLAYING CARD TRUMP-16
+1F0F1	PLAYING CARD TRUMP-17
+1F0F2	PLAYING CARD TRUMP-18
+1F0F3	PLAYING CARD TRUMP-19
+1F0F4	PLAYING CARD TRUMP-20
+1F0F5	PLAYING CARD TRUMP-21
+1F100	DIGIT ZERO FULL STOP
+1F101	DIGIT ZERO COMMA
+1F102	DIGIT ONE COMMA
+1F103	DIGIT TWO COMMA
+1F104	DIGIT THREE COMMA
+1F105	DIGIT FOUR COMMA
+1F106	DIGIT FIVE COMMA
+1F107	DIGIT SIX COMMA
+1F108	DIGIT SEVEN COMMA
+1F109	DIGIT EIGHT COMMA
+1F10A	DIGIT NINE COMMA
+1F10B	DINGBAT CIRCLED SANS-SERIF DIGIT ZERO
+1F10C	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ZERO
+1F110	PARENTHESIZED LATIN CAPITAL LETTER A
+1F111	PARENTHESIZED LATIN CAPITAL LETTER B
+1F112	PARENTHESIZED LATIN CAPITAL LETTER C
+1F113	PARENTHESIZED LATIN CAPITAL LETTER D
+1F114	PARENTHESIZED LATIN CAPITAL LETTER E
+1F115	PARENTHESIZED LATIN CAPITAL LETTER F
+1F116	PARENTHESIZED LATIN CAPITAL LETTER G
+1F117	PARENTHESIZED LATIN CAPITAL LETTER H
+1F118	PARENTHESIZED LATIN CAPITAL LETTER I
+1F119	PARENTHESIZED LATIN CAPITAL LETTER J
+1F11A	PARENTHESIZED LATIN CAPITAL LETTER K
+1F11B	PARENTHESIZED LATIN CAPITAL LETTER L
+1F11C	PARENTHESIZED LATIN CAPITAL LETTER M
+1F11D	PARENTHESIZED LATIN CAPITAL LETTER N
+1F11E	PARENTHESIZED LATIN CAPITAL LETTER O
+1F11F	PARENTHESIZED LATIN CAPITAL LETTER P
+1F120	PARENTHESIZED LATIN CAPITAL LETTER Q
+1F121	PARENTHESIZED LATIN CAPITAL LETTER R
+1F122	PARENTHESIZED LATIN CAPITAL LETTER S
+1F123	PARENTHESIZED LATIN CAPITAL LETTER T
+1F124	PARENTHESIZED LATIN CAPITAL LETTER U
+1F125	PARENTHESIZED LATIN CAPITAL LETTER V
+1F126	PARENTHESIZED LATIN CAPITAL LETTER W
+1F127	PARENTHESIZED LATIN CAPITAL LETTER X
+1F128	PARENTHESIZED LATIN CAPITAL LETTER Y
+1F129	PARENTHESIZED LATIN CAPITAL LETTER Z
+1F12A	TORTOISE SHELL BRACKETED LATIN CAPITAL LETTER S
+1F12B	CIRCLED ITALIC LATIN CAPITAL LETTER C
+1F12C	CIRCLED ITALIC LATIN CAPITAL LETTER R
+1F12D	CIRCLED CD
+1F12E	CIRCLED WZ
+1F130	SQUARED LATIN CAPITAL LETTER A
+1F131	SQUARED LATIN CAPITAL LETTER B
+1F132	SQUARED LATIN CAPITAL LETTER C
+1F133	SQUARED LATIN CAPITAL LETTER D
+1F134	SQUARED LATIN CAPITAL LETTER E
+1F135	SQUARED LATIN CAPITAL LETTER F
+1F136	SQUARED LATIN CAPITAL LETTER G
+1F137	SQUARED LATIN CAPITAL LETTER H
+1F138	SQUARED LATIN CAPITAL LETTER I
+1F139	SQUARED LATIN CAPITAL LETTER J
+1F13A	SQUARED LATIN CAPITAL LETTER K
+1F13B	SQUARED LATIN CAPITAL LETTER L
+1F13C	SQUARED LATIN CAPITAL LETTER M
+1F13D	SQUARED LATIN CAPITAL LETTER N
+1F13E	SQUARED LATIN CAPITAL LETTER O
+1F13F	SQUARED LATIN CAPITAL LETTER P
+1F140	SQUARED LATIN CAPITAL LETTER Q
+1F141	SQUARED LATIN CAPITAL LETTER R
+1F142	SQUARED LATIN CAPITAL LETTER S
+1F143	SQUARED LATIN CAPITAL LETTER T
+1F144	SQUARED LATIN CAPITAL LETTER U
+1F145	SQUARED LATIN CAPITAL LETTER V
+1F146	SQUARED LATIN CAPITAL LETTER W
+1F147	SQUARED LATIN CAPITAL LETTER X
+1F148	SQUARED LATIN CAPITAL LETTER Y
+1F149	SQUARED LATIN CAPITAL LETTER Z
+1F14A	SQUARED HV
+1F14B	SQUARED MV
+1F14C	SQUARED SD
+1F14D	SQUARED SS
+1F14E	SQUARED PPV
+1F14F	SQUARED WC
+1F150	NEGATIVE CIRCLED LATIN CAPITAL LETTER A
+1F151	NEGATIVE CIRCLED LATIN CAPITAL LETTER B
+1F152	NEGATIVE CIRCLED LATIN CAPITAL LETTER C
+1F153	NEGATIVE CIRCLED LATIN CAPITAL LETTER D
+1F154	NEGATIVE CIRCLED LATIN CAPITAL LETTER E
+1F155	NEGATIVE CIRCLED LATIN CAPITAL LETTER F
+1F156	NEGATIVE CIRCLED LATIN CAPITAL LETTER G
+1F157	NEGATIVE CIRCLED LATIN CAPITAL LETTER H
+1F158	NEGATIVE CIRCLED LATIN CAPITAL LETTER I
+1F159	NEGATIVE CIRCLED LATIN CAPITAL LETTER J
+1F15A	NEGATIVE CIRCLED LATIN CAPITAL LETTER K
+1F15B	NEGATIVE CIRCLED LATIN CAPITAL LETTER L
+1F15C	NEGATIVE CIRCLED LATIN CAPITAL LETTER M
+1F15D	NEGATIVE CIRCLED LATIN CAPITAL LETTER N
+1F15E	NEGATIVE CIRCLED LATIN CAPITAL LETTER O
+1F15F	NEGATIVE CIRCLED LATIN CAPITAL LETTER P
+1F160	NEGATIVE CIRCLED LATIN CAPITAL LETTER Q
+1F161	NEGATIVE CIRCLED LATIN CAPITAL LETTER R
+1F162	NEGATIVE CIRCLED LATIN CAPITAL LETTER S
+1F163	NEGATIVE CIRCLED LATIN CAPITAL LETTER T
+1F164	NEGATIVE CIRCLED LATIN CAPITAL LETTER U
+1F165	NEGATIVE CIRCLED LATIN CAPITAL LETTER V
+1F166	NEGATIVE CIRCLED LATIN CAPITAL LETTER W
+1F167	NEGATIVE CIRCLED LATIN CAPITAL LETTER X
+1F168	NEGATIVE CIRCLED LATIN CAPITAL LETTER Y
+1F169	NEGATIVE CIRCLED LATIN CAPITAL LETTER Z
+1F16A	RAISED MC SIGN
+1F16B	RAISED MD SIGN
+1F170	NEGATIVE SQUARED LATIN CAPITAL LETTER A
+1F171	NEGATIVE SQUARED LATIN CAPITAL LETTER B
+1F172	NEGATIVE SQUARED LATIN CAPITAL LETTER C
+1F173	NEGATIVE SQUARED LATIN CAPITAL LETTER D
+1F174	NEGATIVE SQUARED LATIN CAPITAL LETTER E
+1F175	NEGATIVE SQUARED LATIN CAPITAL LETTER F
+1F176	NEGATIVE SQUARED LATIN CAPITAL LETTER G
+1F177	NEGATIVE SQUARED LATIN CAPITAL LETTER H
+1F178	NEGATIVE SQUARED LATIN CAPITAL LETTER I
+1F179	NEGATIVE SQUARED LATIN CAPITAL LETTER J
+1F17A	NEGATIVE SQUARED LATIN CAPITAL LETTER K
+1F17B	NEGATIVE SQUARED LATIN CAPITAL LETTER L
+1F17C	NEGATIVE SQUARED LATIN CAPITAL LETTER M
+1F17D	NEGATIVE SQUARED LATIN CAPITAL LETTER N
+1F17E	NEGATIVE SQUARED LATIN CAPITAL LETTER O
+1F17F	NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F180	NEGATIVE SQUARED LATIN CAPITAL LETTER Q
+1F181	NEGATIVE SQUARED LATIN CAPITAL LETTER R
+1F182	NEGATIVE SQUARED LATIN CAPITAL LETTER S
+1F183	NEGATIVE SQUARED LATIN CAPITAL LETTER T
+1F184	NEGATIVE SQUARED LATIN CAPITAL LETTER U
+1F185	NEGATIVE SQUARED LATIN CAPITAL LETTER V
+1F186	NEGATIVE SQUARED LATIN CAPITAL LETTER W
+1F187	NEGATIVE SQUARED LATIN CAPITAL LETTER X
+1F188	NEGATIVE SQUARED LATIN CAPITAL LETTER Y
+1F189	NEGATIVE SQUARED LATIN CAPITAL LETTER Z
+1F18A	CROSSED NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F18B	NEGATIVE SQUARED IC
+1F18C	NEGATIVE SQUARED PA
+1F18D	NEGATIVE SQUARED SA
+1F18E	NEGATIVE SQUARED AB
+1F18F	NEGATIVE SQUARED WC
+1F190	SQUARE DJ
+1F191	SQUARED CL
+1F192	SQUARED COOL
+1F193	SQUARED FREE
+1F194	SQUARED ID
+1F195	SQUARED NEW
+1F196	SQUARED NG
+1F197	SQUARED OK
+1F198	SQUARED SOS
+1F199	SQUARED UP WITH EXCLAMATION MARK
+1F19A	SQUARED VS
+1F19B	SQUARED THREE D
+1F19C	SQUARED SECOND SCREEN
+1F19D	SQUARED TWO K
+1F19E	SQUARED FOUR K
+1F19F	SQUARED EIGHT K
+1F1A0	SQUARED FIVE POINT ONE
+1F1A1	SQUARED SEVEN POINT ONE
+1F1A2	SQUARED TWENTY-TWO POINT TWO
+1F1A3	SQUARED SIXTY P
+1F1A4	SQUARED ONE HUNDRED TWENTY P
+1F1A5	SQUARED LATIN SMALL LETTER D
+1F1A6	SQUARED HC
+1F1A7	SQUARED HDR
+1F1A8	SQUARED HI-RES
+1F1A9	SQUARED LOSSLESS
+1F1AA	SQUARED SHV
+1F1AB	SQUARED UHD
+1F1AC	SQUARED VOD
+1F1E6	REGIONAL INDICATOR SYMBOL LETTER A
+1F1E7	REGIONAL INDICATOR SYMBOL LETTER B
+1F1E8	REGIONAL INDICATOR SYMBOL LETTER C
+1F1E9	REGIONAL INDICATOR SYMBOL LETTER D
+1F1EA	REGIONAL INDICATOR SYMBOL LETTER E
+1F1EB	REGIONAL INDICATOR SYMBOL LETTER F
+1F1EC	REGIONAL INDICATOR SYMBOL LETTER G
+1F1ED	REGIONAL INDICATOR SYMBOL LETTER H
+1F1EE	REGIONAL INDICATOR SYMBOL LETTER I
+1F1EF	REGIONAL INDICATOR SYMBOL LETTER J
+1F1F0	REGIONAL INDICATOR SYMBOL LETTER K
+1F1F1	REGIONAL INDICATOR SYMBOL LETTER L
+1F1F2	REGIONAL INDICATOR SYMBOL LETTER M
+1F1F3	REGIONAL INDICATOR SYMBOL LETTER N
+1F1F4	REGIONAL INDICATOR SYMBOL LETTER O
+1F1F5	REGIONAL INDICATOR SYMBOL LETTER P
+1F1F6	REGIONAL INDICATOR SYMBOL LETTER Q
+1F1F7	REGIONAL INDICATOR SYMBOL LETTER R
+1F1F8	REGIONAL INDICATOR SYMBOL LETTER S
+1F1F9	REGIONAL INDICATOR SYMBOL LETTER T
+1F1FA	REGIONAL INDICATOR SYMBOL LETTER U
+1F1FB	REGIONAL INDICATOR SYMBOL LETTER V
+1F1FC	REGIONAL INDICATOR SYMBOL LETTER W
+1F1FD	REGIONAL INDICATOR SYMBOL LETTER X
+1F1FE	REGIONAL INDICATOR SYMBOL LETTER Y
+1F1FF	REGIONAL INDICATOR SYMBOL LETTER Z
+1F200	SQUARE HIRAGANA HOKA
+1F201	SQUARED KATAKANA KOKO
+1F202	SQUARED KATAKANA SA
+1F210	SQUARED CJK UNIFIED IDEOGRAPH-624B
+1F211	SQUARED CJK UNIFIED IDEOGRAPH-5B57
+1F212	SQUARED CJK UNIFIED IDEOGRAPH-53CC
+1F213	SQUARED KATAKANA DE
+1F214	SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+1F215	SQUARED CJK UNIFIED IDEOGRAPH-591A
+1F216	SQUARED CJK UNIFIED IDEOGRAPH-89E3
+1F217	SQUARED CJK UNIFIED IDEOGRAPH-5929
+1F218	SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+1F219	SQUARED CJK UNIFIED IDEOGRAPH-6620
+1F21A	SQUARED CJK UNIFIED IDEOGRAPH-7121
+1F21B	SQUARED CJK UNIFIED IDEOGRAPH-6599
+1F21C	SQUARED CJK UNIFIED IDEOGRAPH-524D
+1F21D	SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F21E	SQUARED CJK UNIFIED IDEOGRAPH-518D
+1F21F	SQUARED CJK UNIFIED IDEOGRAPH-65B0
+1F220	SQUARED CJK UNIFIED IDEOGRAPH-521D
+1F221	SQUARED CJK UNIFIED IDEOGRAPH-7D42
+1F222	SQUARED CJK UNIFIED IDEOGRAPH-751F
+1F223	SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+1F224	SQUARED CJK UNIFIED IDEOGRAPH-58F0
+1F225	SQUARED CJK UNIFIED IDEOGRAPH-5439
+1F226	SQUARED CJK UNIFIED IDEOGRAPH-6F14
+1F227	SQUARED CJK UNIFIED IDEOGRAPH-6295
+1F228	SQUARED CJK UNIFIED IDEOGRAPH-6355
+1F229	SQUARED CJK UNIFIED IDEOGRAPH-4E00
+1F22A	SQUARED CJK UNIFIED IDEOGRAPH-4E09
+1F22B	SQUARED CJK UNIFIED IDEOGRAPH-904A
+1F22C	SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+1F22D	SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+1F22E	SQUARED CJK UNIFIED IDEOGRAPH-53F3
+1F22F	SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F230	SQUARED CJK UNIFIED IDEOGRAPH-8D70
+1F231	SQUARED CJK UNIFIED IDEOGRAPH-6253
+1F232	SQUARED CJK UNIFIED IDEOGRAPH-7981
+1F233	SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+1F234	SQUARED CJK UNIFIED IDEOGRAPH-5408
+1F235	SQUARED CJK UNIFIED IDEOGRAPH-6E80
+1F236	SQUARED CJK UNIFIED IDEOGRAPH-6709
+1F237	SQUARED CJK UNIFIED IDEOGRAPH-6708
+1F238	SQUARED CJK UNIFIED IDEOGRAPH-7533
+1F239	SQUARED CJK UNIFIED IDEOGRAPH-5272
+1F23A	SQUARED CJK UNIFIED IDEOGRAPH-55B6
+1F23B	SQUARED CJK UNIFIED IDEOGRAPH-914D
+1F240	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+1F241	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+1F242	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+1F243	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+1F244	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+1F245	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F246	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+1F247	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+1F248	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+1F250	CIRCLED IDEOGRAPH ADVANTAGE
+1F251	CIRCLED IDEOGRAPH ACCEPT
+1F260	ROUNDED SYMBOL FOR FU
+1F261	ROUNDED SYMBOL FOR LU
+1F262	ROUNDED SYMBOL FOR SHOU
+1F263	ROUNDED SYMBOL FOR XI
+1F264	ROUNDED SYMBOL FOR SHUANGXI
+1F265	ROUNDED SYMBOL FOR CAI
+1F300	CYCLONE
+1F301	FOGGY
+1F302	CLOSED UMBRELLA
+1F303	NIGHT WITH STARS
+1F304	SUNRISE OVER MOUNTAINS
+1F305	SUNRISE
+1F306	CITYSCAPE AT DUSK
+1F307	SUNSET OVER BUILDINGS
+1F308	RAINBOW
+1F309	BRIDGE AT NIGHT
+1F30A	WATER WAVE
+1F30B	VOLCANO
+1F30C	MILKY WAY
+1F30D	EARTH GLOBE EUROPE-AFRICA
+1F30E	EARTH GLOBE AMERICAS
+1F30F	EARTH GLOBE ASIA-AUSTRALIA
+1F310	GLOBE WITH MERIDIANS
+1F311	NEW MOON SYMBOL
+1F312	WAXING CRESCENT MOON SYMBOL
+1F313	FIRST QUARTER MOON SYMBOL
+1F314	WAXING GIBBOUS MOON SYMBOL
+1F315	FULL MOON SYMBOL
+1F316	WANING GIBBOUS MOON SYMBOL
+1F317	LAST QUARTER MOON SYMBOL
+1F318	WANING CRESCENT MOON SYMBOL
+1F319	CRESCENT MOON
+1F31A	NEW MOON WITH FACE
+1F31B	FIRST QUARTER MOON WITH FACE
+1F31C	LAST QUARTER MOON WITH FACE
+1F31D	FULL MOON WITH FACE
+1F31E	SUN WITH FACE
+1F31F	GLOWING STAR
+1F320	SHOOTING STAR
+1F321	THERMOMETER
+1F322	BLACK DROPLET
+1F323	WHITE SUN
+1F324	WHITE SUN WITH SMALL CLOUD
+1F325	WHITE SUN BEHIND CLOUD
+1F326	WHITE SUN BEHIND CLOUD WITH RAIN
+1F327	CLOUD WITH RAIN
+1F328	CLOUD WITH SNOW
+1F329	CLOUD WITH LIGHTNING
+1F32A	CLOUD WITH TORNADO
+1F32B	FOG
+1F32C	WIND BLOWING FACE
+1F32D	HOT DOG
+1F32E	TACO
+1F32F	BURRITO
+1F330	CHESTNUT
+1F331	SEEDLING
+1F332	EVERGREEN TREE
+1F333	DECIDUOUS TREE
+1F334	PALM TREE
+1F335	CACTUS
+1F336	HOT PEPPER
+1F337	TULIP
+1F338	CHERRY BLOSSOM
+1F339	ROSE
+1F33A	HIBISCUS
+1F33B	SUNFLOWER
+1F33C	BLOSSOM
+1F33D	EAR OF MAIZE
+1F33E	EAR OF RICE
+1F33F	HERB
+1F340	FOUR LEAF CLOVER
+1F341	MAPLE LEAF
+1F342	FALLEN LEAF
+1F343	LEAF FLUTTERING IN WIND
+1F344	MUSHROOM
+1F345	TOMATO
+1F346	AUBERGINE
+1F347	GRAPES
+1F348	MELON
+1F349	WATERMELON
+1F34A	TANGERINE
+1F34B	LEMON
+1F34C	BANANA
+1F34D	PINEAPPLE
+1F34E	RED APPLE
+1F34F	GREEN APPLE
+1F350	PEAR
+1F351	PEACH
+1F352	CHERRIES
+1F353	STRAWBERRY
+1F354	HAMBURGER
+1F355	SLICE OF PIZZA
+1F356	MEAT ON BONE
+1F357	POULTRY LEG
+1F358	RICE CRACKER
+1F359	RICE BALL
+1F35A	COOKED RICE
+1F35B	CURRY AND RICE
+1F35C	STEAMING BOWL
+1F35D	SPAGHETTI
+1F35E	BREAD
+1F35F	FRENCH FRIES
+1F360	ROASTED SWEET POTATO
+1F361	DANGO
+1F362	ODEN
+1F363	SUSHI
+1F364	FRIED SHRIMP
+1F365	FISH CAKE WITH SWIRL DESIGN
+1F366	SOFT ICE CREAM
+1F367	SHAVED ICE
+1F368	ICE CREAM
+1F369	DOUGHNUT
+1F36A	COOKIE
+1F36B	CHOCOLATE BAR
+1F36C	CANDY
+1F36D	LOLLIPOP
+1F36E	CUSTARD
+1F36F	HONEY POT
+1F370	SHORTCAKE
+1F371	BENTO BOX
+1F372	POT OF FOOD
+1F373	COOKING
+1F374	FORK AND KNIFE
+1F375	TEACUP WITHOUT HANDLE
+1F376	SAKE BOTTLE AND CUP
+1F377	WINE GLASS
+1F378	COCKTAIL GLASS
+1F379	TROPICAL DRINK
+1F37A	BEER MUG
+1F37B	CLINKING BEER MUGS
+1F37C	BABY BOTTLE
+1F37D	FORK AND KNIFE WITH PLATE
+1F37E	BOTTLE WITH POPPING CORK
+1F37F	POPCORN
+1F380	RIBBON
+1F381	WRAPPED PRESENT
+1F382	BIRTHDAY CAKE
+1F383	JACK-O-LANTERN
+1F384	CHRISTMAS TREE
+1F385	FATHER CHRISTMAS
+1F386	FIREWORKS
+1F387	FIREWORK SPARKLER
+1F388	BALLOON
+1F389	PARTY POPPER
+1F38A	CONFETTI BALL
+1F38B	TANABATA TREE
+1F38C	CROSSED FLAGS
+1F38D	PINE DECORATION
+1F38E	JAPANESE DOLLS
+1F38F	CARP STREAMER
+1F390	WIND CHIME
+1F391	MOON VIEWING CEREMONY
+1F392	SCHOOL SATCHEL
+1F393	GRADUATION CAP
+1F394	HEART WITH TIP ON THE LEFT
+1F395	BOUQUET OF FLOWERS
+1F396	MILITARY MEDAL
+1F397	REMINDER RIBBON
+1F398	MUSICAL KEYBOARD WITH JACKS
+1F399	STUDIO MICROPHONE
+1F39A	LEVEL SLIDER
+1F39B	CONTROL KNOBS
+1F39C	BEAMED ASCENDING MUSICAL NOTES
+1F39D	BEAMED DESCENDING MUSICAL NOTES
+1F39E	FILM FRAMES
+1F39F	ADMISSION TICKETS
+1F3A0	CAROUSEL HORSE
+1F3A1	FERRIS WHEEL
+1F3A2	ROLLER COASTER
+1F3A3	FISHING POLE AND FISH
+1F3A4	MICROPHONE
+1F3A5	MOVIE CAMERA
+1F3A6	CINEMA
+1F3A7	HEADPHONE
+1F3A8	ARTIST PALETTE
+1F3A9	TOP HAT
+1F3AA	CIRCUS TENT
+1F3AB	TICKET
+1F3AC	CLAPPER BOARD
+1F3AD	PERFORMING ARTS
+1F3AE	VIDEO GAME
+1F3AF	DIRECT HIT
+1F3B0	SLOT MACHINE
+1F3B1	BILLIARDS
+1F3B2	GAME DIE
+1F3B3	BOWLING
+1F3B4	FLOWER PLAYING CARDS
+1F3B5	MUSICAL NOTE
+1F3B6	MULTIPLE MUSICAL NOTES
+1F3B7	SAXOPHONE
+1F3B8	GUITAR
+1F3B9	MUSICAL KEYBOARD
+1F3BA	TRUMPET
+1F3BB	VIOLIN
+1F3BC	MUSICAL SCORE
+1F3BD	RUNNING SHIRT WITH SASH
+1F3BE	TENNIS RACQUET AND BALL
+1F3BF	SKI AND SKI BOOT
+1F3C0	BASKETBALL AND HOOP
+1F3C1	CHEQUERED FLAG
+1F3C2	SNOWBOARDER
+1F3C3	RUNNER
+1F3C4	SURFER
+1F3C5	SPORTS MEDAL
+1F3C6	TROPHY
+1F3C7	HORSE RACING
+1F3C8	AMERICAN FOOTBALL
+1F3C9	RUGBY FOOTBALL
+1F3CA	SWIMMER
+1F3CB	WEIGHT LIFTER
+1F3CC	GOLFER
+1F3CD	RACING MOTORCYCLE
+1F3CE	RACING CAR
+1F3CF	CRICKET BAT AND BALL
+1F3D0	VOLLEYBALL
+1F3D1	FIELD HOCKEY STICK AND BALL
+1F3D2	ICE HOCKEY STICK AND PUCK
+1F3D3	TABLE TENNIS PADDLE AND BALL
+1F3D4	SNOW CAPPED MOUNTAIN
+1F3D5	CAMPING
+1F3D6	BEACH WITH UMBRELLA
+1F3D7	BUILDING CONSTRUCTION
+1F3D8	HOUSE BUILDINGS
+1F3D9	CITYSCAPE
+1F3DA	DERELICT HOUSE BUILDING
+1F3DB	CLASSICAL BUILDING
+1F3DC	DESERT
+1F3DD	DESERT ISLAND
+1F3DE	NATIONAL PARK
+1F3DF	STADIUM
+1F3E0	HOUSE BUILDING
+1F3E1	HOUSE WITH GARDEN
+1F3E2	OFFICE BUILDING
+1F3E3	JAPANESE POST OFFICE
+1F3E4	EUROPEAN POST OFFICE
+1F3E5	HOSPITAL
+1F3E6	BANK
+1F3E7	AUTOMATED TELLER MACHINE
+1F3E8	HOTEL
+1F3E9	LOVE HOTEL
+1F3EA	CONVENIENCE STORE
+1F3EB	SCHOOL
+1F3EC	DEPARTMENT STORE
+1F3ED	FACTORY
+1F3EE	IZAKAYA LANTERN
+1F3EF	JAPANESE CASTLE
+1F3F0	EUROPEAN CASTLE
+1F3F1	WHITE PENNANT
+1F3F2	BLACK PENNANT
+1F3F3	WAVING WHITE FLAG
+1F3F4	WAVING BLACK FLAG
+1F3F5	ROSETTE
+1F3F6	BLACK ROSETTE
+1F3F7	LABEL
+1F3F8	BADMINTON RACQUET AND SHUTTLECOCK
+1F3F9	BOW AND ARROW
+1F3FA	AMPHORA
+1F3FB	EMOJI MODIFIER FITZPATRICK TYPE-1-2
+1F3FC	EMOJI MODIFIER FITZPATRICK TYPE-3
+1F3FD	EMOJI MODIFIER FITZPATRICK TYPE-4
+1F3FE	EMOJI MODIFIER FITZPATRICK TYPE-5
+1F3FF	EMOJI MODIFIER FITZPATRICK TYPE-6
+1F400	RAT
+1F401	MOUSE
+1F402	OX
+1F403	WATER BUFFALO
+1F404	COW
+1F405	TIGER
+1F406	LEOPARD
+1F407	RABBIT
+1F408	CAT
+1F409	DRAGON
+1F40A	CROCODILE
+1F40B	WHALE
+1F40C	SNAIL
+1F40D	SNAKE
+1F40E	HORSE
+1F40F	RAM
+1F410	GOAT
+1F411	SHEEP
+1F412	MONKEY
+1F413	ROOSTER
+1F414	CHICKEN
+1F415	DOG
+1F416	PIG
+1F417	BOAR
+1F418	ELEPHANT
+1F419	OCTOPUS
+1F41A	SPIRAL SHELL
+1F41B	BUG
+1F41C	ANT
+1F41D	HONEYBEE
+1F41E	LADY BEETLE
+1F41F	FISH
+1F420	TROPICAL FISH
+1F421	BLOWFISH
+1F422	TURTLE
+1F423	HATCHING CHICK
+1F424	BABY CHICK
+1F425	FRONT-FACING BABY CHICK
+1F426	BIRD
+1F427	PENGUIN
+1F428	KOALA
+1F429	POODLE
+1F42A	DROMEDARY CAMEL
+1F42B	BACTRIAN CAMEL
+1F42C	DOLPHIN
+1F42D	MOUSE FACE
+1F42E	COW FACE
+1F42F	TIGER FACE
+1F430	RABBIT FACE
+1F431	CAT FACE
+1F432	DRAGON FACE
+1F433	SPOUTING WHALE
+1F434	HORSE FACE
+1F435	MONKEY FACE
+1F436	DOG FACE
+1F437	PIG FACE
+1F438	FROG FACE
+1F439	HAMSTER FACE
+1F43A	WOLF FACE
+1F43B	BEAR FACE
+1F43C	PANDA FACE
+1F43D	PIG NOSE
+1F43E	PAW PRINTS
+1F43F	CHIPMUNK
+1F440	EYES
+1F441	EYE
+1F442	EAR
+1F443	NOSE
+1F444	MOUTH
+1F445	TONGUE
+1F446	WHITE UP POINTING BACKHAND INDEX
+1F447	WHITE DOWN POINTING BACKHAND INDEX
+1F448	WHITE LEFT POINTING BACKHAND INDEX
+1F449	WHITE RIGHT POINTING BACKHAND INDEX
+1F44A	FISTED HAND SIGN
+1F44B	WAVING HAND SIGN
+1F44C	OK HAND SIGN
+1F44D	THUMBS UP SIGN
+1F44E	THUMBS DOWN SIGN
+1F44F	CLAPPING HANDS SIGN
+1F450	OPEN HANDS SIGN
+1F451	CROWN
+1F452	WOMANS HAT
+1F453	EYEGLASSES
+1F454	NECKTIE
+1F455	T-SHIRT
+1F456	JEANS
+1F457	DRESS
+1F458	KIMONO
+1F459	BIKINI
+1F45A	WOMANS CLOTHES
+1F45B	PURSE
+1F45C	HANDBAG
+1F45D	POUCH
+1F45E	MANS SHOE
+1F45F	ATHLETIC SHOE
+1F460	HIGH-HEELED SHOE
+1F461	WOMANS SANDAL
+1F462	WOMANS BOOTS
+1F463	FOOTPRINTS
+1F464	BUST IN SILHOUETTE
+1F465	BUSTS IN SILHOUETTE
+1F466	BOY
+1F467	GIRL
+1F468	MAN
+1F469	WOMAN
+1F46A	FAMILY
+1F46B	MAN AND WOMAN HOLDING HANDS
+1F46C	TWO MEN HOLDING HANDS
+1F46D	TWO WOMEN HOLDING HANDS
+1F46E	POLICE OFFICER
+1F46F	WOMAN WITH BUNNY EARS
+1F470	BRIDE WITH VEIL
+1F471	PERSON WITH BLOND HAIR
+1F472	MAN WITH GUA PI MAO
+1F473	MAN WITH TURBAN
+1F474	OLDER MAN
+1F475	OLDER WOMAN
+1F476	BABY
+1F477	CONSTRUCTION WORKER
+1F478	PRINCESS
+1F479	JAPANESE OGRE
+1F47A	JAPANESE GOBLIN
+1F47B	GHOST
+1F47C	BABY ANGEL
+1F47D	EXTRATERRESTRIAL ALIEN
+1F47E	ALIEN MONSTER
+1F47F	IMP
+1F480	SKULL
+1F481	INFORMATION DESK PERSON
+1F482	GUARDSMAN
+1F483	DANCER
+1F484	LIPSTICK
+1F485	NAIL POLISH
+1F486	FACE MASSAGE
+1F487	HAIRCUT
+1F488	BARBER POLE
+1F489	SYRINGE
+1F48A	PILL
+1F48B	KISS MARK
+1F48C	LOVE LETTER
+1F48D	RING
+1F48E	GEM STONE
+1F48F	KISS
+1F490	BOUQUET
+1F491	COUPLE WITH HEART
+1F492	WEDDING
+1F493	BEATING HEART
+1F494	BROKEN HEART
+1F495	TWO HEARTS
+1F496	SPARKLING HEART
+1F497	GROWING HEART
+1F498	HEART WITH ARROW
+1F499	BLUE HEART
+1F49A	GREEN HEART
+1F49B	YELLOW HEART
+1F49C	PURPLE HEART
+1F49D	HEART WITH RIBBON
+1F49E	REVOLVING HEARTS
+1F49F	HEART DECORATION
+1F4A0	DIAMOND SHAPE WITH A DOT INSIDE
+1F4A1	ELECTRIC LIGHT BULB
+1F4A2	ANGER SYMBOL
+1F4A3	BOMB
+1F4A4	SLEEPING SYMBOL
+1F4A5	COLLISION SYMBOL
+1F4A6	SPLASHING SWEAT SYMBOL
+1F4A7	DROPLET
+1F4A8	DASH SYMBOL
+1F4A9	PILE OF POO
+1F4AA	FLEXED BICEPS
+1F4AB	DIZZY SYMBOL
+1F4AC	SPEECH BALLOON
+1F4AD	THOUGHT BALLOON
+1F4AE	WHITE FLOWER
+1F4AF	HUNDRED POINTS SYMBOL
+1F4B0	MONEY BAG
+1F4B1	CURRENCY EXCHANGE
+1F4B2	HEAVY DOLLAR SIGN
+1F4B3	CREDIT CARD
+1F4B4	BANKNOTE WITH YEN SIGN
+1F4B5	BANKNOTE WITH DOLLAR SIGN
+1F4B6	BANKNOTE WITH EURO SIGN
+1F4B7	BANKNOTE WITH POUND SIGN
+1F4B8	MONEY WITH WINGS
+1F4B9	CHART WITH UPWARDS TREND AND YEN SIGN
+1F4BA	SEAT
+1F4BB	PERSONAL COMPUTER
+1F4BC	BRIEFCASE
+1F4BD	MINIDISC
+1F4BE	FLOPPY DISK
+1F4BF	OPTICAL DISC
+1F4C0	DVD
+1F4C1	FILE FOLDER
+1F4C2	OPEN FILE FOLDER
+1F4C3	PAGE WITH CURL
+1F4C4	PAGE FACING UP
+1F4C5	CALENDAR
+1F4C6	TEAR-OFF CALENDAR
+1F4C7	CARD INDEX
+1F4C8	CHART WITH UPWARDS TREND
+1F4C9	CHART WITH DOWNWARDS TREND
+1F4CA	BAR CHART
+1F4CB	CLIPBOARD
+1F4CC	PUSHPIN
+1F4CD	ROUND PUSHPIN
+1F4CE	PAPERCLIP
+1F4CF	STRAIGHT RULER
+1F4D0	TRIANGULAR RULER
+1F4D1	BOOKMARK TABS
+1F4D2	LEDGER
+1F4D3	NOTEBOOK
+1F4D4	NOTEBOOK WITH DECORATIVE COVER
+1F4D5	CLOSED BOOK
+1F4D6	OPEN BOOK
+1F4D7	GREEN BOOK
+1F4D8	BLUE BOOK
+1F4D9	ORANGE BOOK
+1F4DA	BOOKS
+1F4DB	NAME BADGE
+1F4DC	SCROLL
+1F4DD	MEMO
+1F4DE	TELEPHONE RECEIVER
+1F4DF	PAGER
+1F4E0	FAX MACHINE
+1F4E1	SATELLITE ANTENNA
+1F4E2	PUBLIC ADDRESS LOUDSPEAKER
+1F4E3	CHEERING MEGAPHONE
+1F4E4	OUTBOX TRAY
+1F4E5	INBOX TRAY
+1F4E6	PACKAGE
+1F4E7	E-MAIL SYMBOL
+1F4E8	INCOMING ENVELOPE
+1F4E9	ENVELOPE WITH DOWNWARDS ARROW ABOVE
+1F4EA	CLOSED MAILBOX WITH LOWERED FLAG
+1F4EB	CLOSED MAILBOX WITH RAISED FLAG
+1F4EC	OPEN MAILBOX WITH RAISED FLAG
+1F4ED	OPEN MAILBOX WITH LOWERED FLAG
+1F4EE	POSTBOX
+1F4EF	POSTAL HORN
+1F4F0	NEWSPAPER
+1F4F1	MOBILE PHONE
+1F4F2	MOBILE PHONE WITH RIGHTWARDS ARROW AT LEFT
+1F4F3	VIBRATION MODE
+1F4F4	MOBILE PHONE OFF
+1F4F5	NO MOBILE PHONES
+1F4F6	ANTENNA WITH BARS
+1F4F7	CAMERA
+1F4F8	CAMERA WITH FLASH
+1F4F9	VIDEO CAMERA
+1F4FA	TELEVISION
+1F4FB	RADIO
+1F4FC	VIDEOCASSETTE
+1F4FD	FILM PROJECTOR
+1F4FE	PORTABLE STEREO
+1F4FF	PRAYER BEADS
+1F500	TWISTED RIGHTWARDS ARROWS
+1F501	CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS
+1F502	CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS WITH CIRCLED ONE OVERLAY
+1F503	CLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F504	ANTICLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F505	LOW BRIGHTNESS SYMBOL
+1F506	HIGH BRIGHTNESS SYMBOL
+1F507	SPEAKER WITH CANCELLATION STROKE
+1F508	SPEAKER
+1F509	SPEAKER WITH ONE SOUND WAVE
+1F50A	SPEAKER WITH THREE SOUND WAVES
+1F50B	BATTERY
+1F50C	ELECTRIC PLUG
+1F50D	LEFT-POINTING MAGNIFYING GLASS
+1F50E	RIGHT-POINTING MAGNIFYING GLASS
+1F50F	LOCK WITH INK PEN
+1F510	CLOSED LOCK WITH KEY
+1F511	KEY
+1F512	LOCK
+1F513	OPEN LOCK
+1F514	BELL
+1F515	BELL WITH CANCELLATION STROKE
+1F516	BOOKMARK
+1F517	LINK SYMBOL
+1F518	RADIO BUTTON
+1F519	BACK WITH LEFTWARDS ARROW ABOVE
+1F51A	END WITH LEFTWARDS ARROW ABOVE
+1F51B	ON WITH EXCLAMATION MARK WITH LEFT RIGHT ARROW ABOVE
+1F51C	SOON WITH RIGHTWARDS ARROW ABOVE
+1F51D	TOP WITH UPWARDS ARROW ABOVE
+1F51E	NO ONE UNDER EIGHTEEN SYMBOL
+1F51F	KEYCAP TEN
+1F520	INPUT SYMBOL FOR LATIN CAPITAL LETTERS
+1F521	INPUT SYMBOL FOR LATIN SMALL LETTERS
+1F522	INPUT SYMBOL FOR NUMBERS
+1F523	INPUT SYMBOL FOR SYMBOLS
+1F524	INPUT SYMBOL FOR LATIN LETTERS
+1F525	FIRE
+1F526	ELECTRIC TORCH
+1F527	WRENCH
+1F528	HAMMER
+1F529	NUT AND BOLT
+1F52A	HOCHO
+1F52B	PISTOL
+1F52C	MICROSCOPE
+1F52D	TELESCOPE
+1F52E	CRYSTAL BALL
+1F52F	SIX POINTED STAR WITH MIDDLE DOT
+1F530	JAPANESE SYMBOL FOR BEGINNER
+1F531	TRIDENT EMBLEM
+1F532	BLACK SQUARE BUTTON
+1F533	WHITE SQUARE BUTTON
+1F534	LARGE RED CIRCLE
+1F535	LARGE BLUE CIRCLE
+1F536	LARGE ORANGE DIAMOND
+1F537	LARGE BLUE DIAMOND
+1F538	SMALL ORANGE DIAMOND
+1F539	SMALL BLUE DIAMOND
+1F53A	UP-POINTING RED TRIANGLE
+1F53B	DOWN-POINTING RED TRIANGLE
+1F53C	UP-POINTING SMALL RED TRIANGLE
+1F53D	DOWN-POINTING SMALL RED TRIANGLE
+1F53E	LOWER RIGHT SHADOWED WHITE CIRCLE
+1F53F	UPPER RIGHT SHADOWED WHITE CIRCLE
+1F540	CIRCLED CROSS POMMEE
+1F541	CROSS POMMEE WITH HALF-CIRCLE BELOW
+1F542	CROSS POMMEE
+1F543	NOTCHED LEFT SEMICIRCLE WITH THREE DOTS
+1F544	NOTCHED RIGHT SEMICIRCLE WITH THREE DOTS
+1F545	SYMBOL FOR MARKS CHAPTER
+1F546	WHITE LATIN CROSS
+1F547	HEAVY LATIN CROSS
+1F548	CELTIC CROSS
+1F549	OM SYMBOL
+1F54A	DOVE OF PEACE
+1F54B	KAABA
+1F54C	MOSQUE
+1F54D	SYNAGOGUE
+1F54E	MENORAH WITH NINE BRANCHES
+1F54F	BOWL OF HYGIEIA
+1F550	CLOCK FACE ONE OCLOCK
+1F551	CLOCK FACE TWO OCLOCK
+1F552	CLOCK FACE THREE OCLOCK
+1F553	CLOCK FACE FOUR OCLOCK
+1F554	CLOCK FACE FIVE OCLOCK
+1F555	CLOCK FACE SIX OCLOCK
+1F556	CLOCK FACE SEVEN OCLOCK
+1F557	CLOCK FACE EIGHT OCLOCK
+1F558	CLOCK FACE NINE OCLOCK
+1F559	CLOCK FACE TEN OCLOCK
+1F55A	CLOCK FACE ELEVEN OCLOCK
+1F55B	CLOCK FACE TWELVE OCLOCK
+1F55C	CLOCK FACE ONE-THIRTY
+1F55D	CLOCK FACE TWO-THIRTY
+1F55E	CLOCK FACE THREE-THIRTY
+1F55F	CLOCK FACE FOUR-THIRTY
+1F560	CLOCK FACE FIVE-THIRTY
+1F561	CLOCK FACE SIX-THIRTY
+1F562	CLOCK FACE SEVEN-THIRTY
+1F563	CLOCK FACE EIGHT-THIRTY
+1F564	CLOCK FACE NINE-THIRTY
+1F565	CLOCK FACE TEN-THIRTY
+1F566	CLOCK FACE ELEVEN-THIRTY
+1F567	CLOCK FACE TWELVE-THIRTY
+1F568	RIGHT SPEAKER
+1F569	RIGHT SPEAKER WITH ONE SOUND WAVE
+1F56A	RIGHT SPEAKER WITH THREE SOUND WAVES
+1F56B	BULLHORN
+1F56C	BULLHORN WITH SOUND WAVES
+1F56D	RINGING BELL
+1F56E	BOOK
+1F56F	CANDLE
+1F570	MANTELPIECE CLOCK
+1F571	BLACK SKULL AND CROSSBONES
+1F572	NO PIRACY
+1F573	HOLE
+1F574	MAN IN BUSINESS SUIT LEVITATING
+1F575	SLEUTH OR SPY
+1F576	DARK SUNGLASSES
+1F577	SPIDER
+1F578	SPIDER WEB
+1F579	JOYSTICK
+1F57A	MAN DANCING
+1F57B	LEFT HAND TELEPHONE RECEIVER
+1F57C	TELEPHONE RECEIVER WITH PAGE
+1F57D	RIGHT HAND TELEPHONE RECEIVER
+1F57E	WHITE TOUCHTONE TELEPHONE
+1F57F	BLACK TOUCHTONE TELEPHONE
+1F580	TELEPHONE ON TOP OF MODEM
+1F581	CLAMSHELL MOBILE PHONE
+1F582	BACK OF ENVELOPE
+1F583	STAMPED ENVELOPE
+1F584	ENVELOPE WITH LIGHTNING
+1F585	FLYING ENVELOPE
+1F586	PEN OVER STAMPED ENVELOPE
+1F587	LINKED PAPERCLIPS
+1F588	BLACK PUSHPIN
+1F589	LOWER LEFT PENCIL
+1F58A	LOWER LEFT BALLPOINT PEN
+1F58B	LOWER LEFT FOUNTAIN PEN
+1F58C	LOWER LEFT PAINTBRUSH
+1F58D	LOWER LEFT CRAYON
+1F58E	LEFT WRITING HAND
+1F58F	TURNED OK HAND SIGN
+1F590	RAISED HAND WITH FINGERS SPLAYED
+1F591	REVERSED RAISED HAND WITH FINGERS SPLAYED
+1F592	REVERSED THUMBS UP SIGN
+1F593	REVERSED THUMBS DOWN SIGN
+1F594	REVERSED VICTORY HAND
+1F595	REVERSED HAND WITH MIDDLE FINGER EXTENDED
+1F596	RAISED HAND WITH PART BETWEEN MIDDLE AND RING FINGERS
+1F597	WHITE DOWN POINTING LEFT HAND INDEX
+1F598	SIDEWAYS WHITE LEFT POINTING INDEX
+1F599	SIDEWAYS WHITE RIGHT POINTING INDEX
+1F59A	SIDEWAYS BLACK LEFT POINTING INDEX
+1F59B	SIDEWAYS BLACK RIGHT POINTING INDEX
+1F59C	BLACK LEFT POINTING BACKHAND INDEX
+1F59D	BLACK RIGHT POINTING BACKHAND INDEX
+1F59E	SIDEWAYS WHITE UP POINTING INDEX
+1F59F	SIDEWAYS WHITE DOWN POINTING INDEX
+1F5A0	SIDEWAYS BLACK UP POINTING INDEX
+1F5A1	SIDEWAYS BLACK DOWN POINTING INDEX
+1F5A2	BLACK UP POINTING BACKHAND INDEX
+1F5A3	BLACK DOWN POINTING BACKHAND INDEX
+1F5A4	BLACK HEART
+1F5A5	DESKTOP COMPUTER
+1F5A6	KEYBOARD AND MOUSE
+1F5A7	THREE NETWORKED COMPUTERS
+1F5A8	PRINTER
+1F5A9	POCKET CALCULATOR
+1F5AA	BLACK HARD SHELL FLOPPY DISK
+1F5AB	WHITE HARD SHELL FLOPPY DISK
+1F5AC	SOFT SHELL FLOPPY DISK
+1F5AD	TAPE CARTRIDGE
+1F5AE	WIRED KEYBOARD
+1F5AF	ONE BUTTON MOUSE
+1F5B0	TWO BUTTON MOUSE
+1F5B1	THREE BUTTON MOUSE
+1F5B2	TRACKBALL
+1F5B3	OLD PERSONAL COMPUTER
+1F5B4	HARD DISK
+1F5B5	SCREEN
+1F5B6	PRINTER ICON
+1F5B7	FAX ICON
+1F5B8	OPTICAL DISC ICON
+1F5B9	DOCUMENT WITH TEXT
+1F5BA	DOCUMENT WITH TEXT AND PICTURE
+1F5BB	DOCUMENT WITH PICTURE
+1F5BC	FRAME WITH PICTURE
+1F5BD	FRAME WITH TILES
+1F5BE	FRAME WITH AN X
+1F5BF	BLACK FOLDER
+1F5C0	FOLDER
+1F5C1	OPEN FOLDER
+1F5C2	CARD INDEX DIVIDERS
+1F5C3	CARD FILE BOX
+1F5C4	FILE CABINET
+1F5C5	EMPTY NOTE
+1F5C6	EMPTY NOTE PAGE
+1F5C7	EMPTY NOTE PAD
+1F5C8	NOTE
+1F5C9	NOTE PAGE
+1F5CA	NOTE PAD
+1F5CB	EMPTY DOCUMENT
+1F5CC	EMPTY PAGE
+1F5CD	EMPTY PAGES
+1F5CE	DOCUMENT
+1F5CF	PAGE
+1F5D0	PAGES
+1F5D1	WASTEBASKET
+1F5D2	SPIRAL NOTE PAD
+1F5D3	SPIRAL CALENDAR PAD
+1F5D4	DESKTOP WINDOW
+1F5D5	MINIMIZE
+1F5D6	MAXIMIZE
+1F5D7	OVERLAP
+1F5D8	CLOCKWISE RIGHT AND LEFT SEMICIRCLE ARROWS
+1F5D9	CANCELLATION X
+1F5DA	INCREASE FONT SIZE SYMBOL
+1F5DB	DECREASE FONT SIZE SYMBOL
+1F5DC	COMPRESSION
+1F5DD	OLD KEY
+1F5DE	ROLLED-UP NEWSPAPER
+1F5DF	PAGE WITH CIRCLED TEXT
+1F5E0	STOCK CHART
+1F5E1	DAGGER KNIFE
+1F5E2	LIPS
+1F5E3	SPEAKING HEAD IN SILHOUETTE
+1F5E4	THREE RAYS ABOVE
+1F5E5	THREE RAYS BELOW
+1F5E6	THREE RAYS LEFT
+1F5E7	THREE RAYS RIGHT
+1F5E8	LEFT SPEECH BUBBLE
+1F5E9	RIGHT SPEECH BUBBLE
+1F5EA	TWO SPEECH BUBBLES
+1F5EB	THREE SPEECH BUBBLES
+1F5EC	LEFT THOUGHT BUBBLE
+1F5ED	RIGHT THOUGHT BUBBLE
+1F5EE	LEFT ANGER BUBBLE
+1F5EF	RIGHT ANGER BUBBLE
+1F5F0	MOOD BUBBLE
+1F5F1	LIGHTNING MOOD BUBBLE
+1F5F2	LIGHTNING MOOD
+1F5F3	BALLOT BOX WITH BALLOT
+1F5F4	BALLOT SCRIPT X
+1F5F5	BALLOT BOX WITH SCRIPT X
+1F5F6	BALLOT BOLD SCRIPT X
+1F5F7	BALLOT BOX WITH BOLD SCRIPT X
+1F5F8	LIGHT CHECK MARK
+1F5F9	BALLOT BOX WITH BOLD CHECK
+1F5FA	WORLD MAP
+1F5FB	MOUNT FUJI
+1F5FC	TOKYO TOWER
+1F5FD	STATUE OF LIBERTY
+1F5FE	SILHOUETTE OF JAPAN
+1F5FF	MOYAI
+1F600	GRINNING FACE
+1F601	GRINNING FACE WITH SMILING EYES
+1F602	FACE WITH TEARS OF JOY
+1F603	SMILING FACE WITH OPEN MOUTH
+1F604	SMILING FACE WITH OPEN MOUTH AND SMILING EYES
+1F605	SMILING FACE WITH OPEN MOUTH AND COLD SWEAT
+1F606	SMILING FACE WITH OPEN MOUTH AND TIGHTLY-CLOSED EYES
+1F607	SMILING FACE WITH HALO
+1F608	SMILING FACE WITH HORNS
+1F609	WINKING FACE
+1F60A	SMILING FACE WITH SMILING EYES
+1F60B	FACE SAVOURING DELICIOUS FOOD
+1F60C	RELIEVED FACE
+1F60D	SMILING FACE WITH HEART-SHAPED EYES
+1F60E	SMILING FACE WITH SUNGLASSES
+1F60F	SMIRKING FACE
+1F610	NEUTRAL FACE
+1F611	EXPRESSIONLESS FACE
+1F612	UNAMUSED FACE
+1F613	FACE WITH COLD SWEAT
+1F614	PENSIVE FACE
+1F615	CONFUSED FACE
+1F616	CONFOUNDED FACE
+1F617	KISSING FACE
+1F618	FACE THROWING A KISS
+1F619	KISSING FACE WITH SMILING EYES
+1F61A	KISSING FACE WITH CLOSED EYES
+1F61B	FACE WITH STUCK-OUT TONGUE
+1F61C	FACE WITH STUCK-OUT TONGUE AND WINKING EYE
+1F61D	FACE WITH STUCK-OUT TONGUE AND TIGHTLY-CLOSED EYES
+1F61E	DISAPPOINTED FACE
+1F61F	WORRIED FACE
+1F620	ANGRY FACE
+1F621	POUTING FACE
+1F622	CRYING FACE
+1F623	PERSEVERING FACE
+1F624	FACE WITH LOOK OF TRIUMPH
+1F625	DISAPPOINTED BUT RELIEVED FACE
+1F626	FROWNING FACE WITH OPEN MOUTH
+1F627	ANGUISHED FACE
+1F628	FEARFUL FACE
+1F629	WEARY FACE
+1F62A	SLEEPY FACE
+1F62B	TIRED FACE
+1F62C	GRIMACING FACE
+1F62D	LOUDLY CRYING FACE
+1F62E	FACE WITH OPEN MOUTH
+1F62F	HUSHED FACE
+1F630	FACE WITH OPEN MOUTH AND COLD SWEAT
+1F631	FACE SCREAMING IN FEAR
+1F632	ASTONISHED FACE
+1F633	FLUSHED FACE
+1F634	SLEEPING FACE
+1F635	DIZZY FACE
+1F636	FACE WITHOUT MOUTH
+1F637	FACE WITH MEDICAL MASK
+1F638	GRINNING CAT FACE WITH SMILING EYES
+1F639	CAT FACE WITH TEARS OF JOY
+1F63A	SMILING CAT FACE WITH OPEN MOUTH
+1F63B	SMILING CAT FACE WITH HEART-SHAPED EYES
+1F63C	CAT FACE WITH WRY SMILE
+1F63D	KISSING CAT FACE WITH CLOSED EYES
+1F63E	POUTING CAT FACE
+1F63F	CRYING CAT FACE
+1F640	WEARY CAT FACE
+1F641	SLIGHTLY FROWNING FACE
+1F642	SLIGHTLY SMILING FACE
+1F643	UPSIDE-DOWN FACE
+1F644	FACE WITH ROLLING EYES
+1F645	FACE WITH NO GOOD GESTURE
+1F646	FACE WITH OK GESTURE
+1F647	PERSON BOWING DEEPLY
+1F648	SEE-NO-EVIL MONKEY
+1F649	HEAR-NO-EVIL MONKEY
+1F64A	SPEAK-NO-EVIL MONKEY
+1F64B	HAPPY PERSON RAISING ONE HAND
+1F64C	PERSON RAISING BOTH HANDS IN CELEBRATION
+1F64D	PERSON FROWNING
+1F64E	PERSON WITH POUTING FACE
+1F64F	PERSON WITH FOLDED HANDS
+1F650	NORTH WEST POINTING LEAF
+1F651	SOUTH WEST POINTING LEAF
+1F652	NORTH EAST POINTING LEAF
+1F653	SOUTH EAST POINTING LEAF
+1F654	TURNED NORTH WEST POINTING LEAF
+1F655	TURNED SOUTH WEST POINTING LEAF
+1F656	TURNED NORTH EAST POINTING LEAF
+1F657	TURNED SOUTH EAST POINTING LEAF
+1F658	NORTH WEST POINTING VINE LEAF
+1F659	SOUTH WEST POINTING VINE LEAF
+1F65A	NORTH EAST POINTING VINE LEAF
+1F65B	SOUTH EAST POINTING VINE LEAF
+1F65C	HEAVY NORTH WEST POINTING VINE LEAF
+1F65D	HEAVY SOUTH WEST POINTING VINE LEAF
+1F65E	HEAVY NORTH EAST POINTING VINE LEAF
+1F65F	HEAVY SOUTH EAST POINTING VINE LEAF
+1F660	NORTH WEST POINTING BUD
+1F661	SOUTH WEST POINTING BUD
+1F662	NORTH EAST POINTING BUD
+1F663	SOUTH EAST POINTING BUD
+1F664	HEAVY NORTH WEST POINTING BUD
+1F665	HEAVY SOUTH WEST POINTING BUD
+1F666	HEAVY NORTH EAST POINTING BUD
+1F667	HEAVY SOUTH EAST POINTING BUD
+1F668	HOLLOW QUILT SQUARE ORNAMENT
+1F669	HOLLOW QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66A	SOLID QUILT SQUARE ORNAMENT
+1F66B	SOLID QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66C	LEFTWARDS ROCKET
+1F66D	UPWARDS ROCKET
+1F66E	RIGHTWARDS ROCKET
+1F66F	DOWNWARDS ROCKET
+1F670	SCRIPT LIGATURE ET ORNAMENT
+1F671	HEAVY SCRIPT LIGATURE ET ORNAMENT
+1F672	LIGATURE OPEN ET ORNAMENT
+1F673	HEAVY LIGATURE OPEN ET ORNAMENT
+1F674	HEAVY AMPERSAND ORNAMENT
+1F675	SWASH AMPERSAND ORNAMENT
+1F676	SANS-SERIF HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+1F677	SANS-SERIF HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F678	SANS-SERIF HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F679	HEAVY INTERROBANG ORNAMENT
+1F67A	SANS-SERIF INTERROBANG ORNAMENT
+1F67B	HEAVY SANS-SERIF INTERROBANG ORNAMENT
+1F67C	VERY HEAVY SOLIDUS
+1F67D	VERY HEAVY REVERSE SOLIDUS
+1F67E	CHECKER BOARD
+1F67F	REVERSE CHECKER BOARD
+1F680	ROCKET
+1F681	HELICOPTER
+1F682	STEAM LOCOMOTIVE
+1F683	RAILWAY CAR
+1F684	HIGH-SPEED TRAIN
+1F685	HIGH-SPEED TRAIN WITH BULLET NOSE
+1F686	TRAIN
+1F687	METRO
+1F688	LIGHT RAIL
+1F689	STATION
+1F68A	TRAM
+1F68B	TRAM CAR
+1F68C	BUS
+1F68D	ONCOMING BUS
+1F68E	TROLLEYBUS
+1F68F	BUS STOP
+1F690	MINIBUS
+1F691	AMBULANCE
+1F692	FIRE ENGINE
+1F693	POLICE CAR
+1F694	ONCOMING POLICE CAR
+1F695	TAXI
+1F696	ONCOMING TAXI
+1F697	AUTOMOBILE
+1F698	ONCOMING AUTOMOBILE
+1F699	RECREATIONAL VEHICLE
+1F69A	DELIVERY TRUCK
+1F69B	ARTICULATED LORRY
+1F69C	TRACTOR
+1F69D	MONORAIL
+1F69E	MOUNTAIN RAILWAY
+1F69F	SUSPENSION RAILWAY
+1F6A0	MOUNTAIN CABLEWAY
+1F6A1	AERIAL TRAMWAY
+1F6A2	SHIP
+1F6A3	ROWBOAT
+1F6A4	SPEEDBOAT
+1F6A5	HORIZONTAL TRAFFIC LIGHT
+1F6A6	VERTICAL TRAFFIC LIGHT
+1F6A7	CONSTRUCTION SIGN
+1F6A8	POLICE CARS REVOLVING LIGHT
+1F6A9	TRIANGULAR FLAG ON POST
+1F6AA	DOOR
+1F6AB	NO ENTRY SIGN
+1F6AC	SMOKING SYMBOL
+1F6AD	NO SMOKING SYMBOL
+1F6AE	PUT LITTER IN ITS PLACE SYMBOL
+1F6AF	DO NOT LITTER SYMBOL
+1F6B0	POTABLE WATER SYMBOL
+1F6B1	NON-POTABLE WATER SYMBOL
+1F6B2	BICYCLE
+1F6B3	NO BICYCLES
+1F6B4	BICYCLIST
+1F6B5	MOUNTAIN BICYCLIST
+1F6B6	PEDESTRIAN
+1F6B7	NO PEDESTRIANS
+1F6B8	CHILDREN CROSSING
+1F6B9	MENS SYMBOL
+1F6BA	WOMENS SYMBOL
+1F6BB	RESTROOM
+1F6BC	BABY SYMBOL
+1F6BD	TOILET
+1F6BE	WATER CLOSET
+1F6BF	SHOWER
+1F6C0	BATH
+1F6C1	BATHTUB
+1F6C2	PASSPORT CONTROL
+1F6C3	CUSTOMS
+1F6C4	BAGGAGE CLAIM
+1F6C5	LEFT LUGGAGE
+1F6C6	TRIANGLE WITH ROUNDED CORNERS
+1F6C7	PROHIBITED SIGN
+1F6C8	CIRCLED INFORMATION SOURCE
+1F6C9	BOYS SYMBOL
+1F6CA	GIRLS SYMBOL
+1F6CB	COUCH AND LAMP
+1F6CC	SLEEPING ACCOMMODATION
+1F6CD	SHOPPING BAGS
+1F6CE	BELLHOP BELL
+1F6CF	BED
+1F6D0	PLACE OF WORSHIP
+1F6D1	OCTAGONAL SIGN
+1F6D2	SHOPPING TROLLEY
+1F6D3	STUPA
+1F6D4	PAGODA
+1F6E0	HAMMER AND WRENCH
+1F6E1	SHIELD
+1F6E2	OIL DRUM
+1F6E3	MOTORWAY
+1F6E4	RAILWAY TRACK
+1F6E5	MOTOR BOAT
+1F6E6	UP-POINTING MILITARY AIRPLANE
+1F6E7	UP-POINTING AIRPLANE
+1F6E8	UP-POINTING SMALL AIRPLANE
+1F6E9	SMALL AIRPLANE
+1F6EA	NORTHEAST-POINTING AIRPLANE
+1F6EB	AIRPLANE DEPARTURE
+1F6EC	AIRPLANE ARRIVING
+1F6F0	SATELLITE
+1F6F1	ONCOMING FIRE ENGINE
+1F6F2	DIESEL LOCOMOTIVE
+1F6F3	PASSENGER SHIP
+1F6F4	SCOOTER
+1F6F5	MOTOR SCOOTER
+1F6F6	CANOE
+1F6F7	SLED
+1F6F8	FLYING SAUCER
+1F700	ALCHEMICAL SYMBOL FOR QUINTESSENCE
+1F701	ALCHEMICAL SYMBOL FOR AIR
+1F702	ALCHEMICAL SYMBOL FOR FIRE
+1F703	ALCHEMICAL SYMBOL FOR EARTH
+1F704	ALCHEMICAL SYMBOL FOR WATER
+1F705	ALCHEMICAL SYMBOL FOR AQUAFORTIS
+1F706	ALCHEMICAL SYMBOL FOR AQUA REGIA
+1F707	ALCHEMICAL SYMBOL FOR AQUA REGIA-2
+1F708	ALCHEMICAL SYMBOL FOR AQUA VITAE
+1F709	ALCHEMICAL SYMBOL FOR AQUA VITAE-2
+1F70A	ALCHEMICAL SYMBOL FOR VINEGAR
+1F70B	ALCHEMICAL SYMBOL FOR VINEGAR-2
+1F70C	ALCHEMICAL SYMBOL FOR VINEGAR-3
+1F70D	ALCHEMICAL SYMBOL FOR SULFUR
+1F70E	ALCHEMICAL SYMBOL FOR PHILOSOPHERS SULFUR
+1F70F	ALCHEMICAL SYMBOL FOR BLACK SULFUR
+1F710	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE
+1F711	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-2
+1F712	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-3
+1F713	ALCHEMICAL SYMBOL FOR CINNABAR
+1F714	ALCHEMICAL SYMBOL FOR SALT
+1F715	ALCHEMICAL SYMBOL FOR NITRE
+1F716	ALCHEMICAL SYMBOL FOR VITRIOL
+1F717	ALCHEMICAL SYMBOL FOR VITRIOL-2
+1F718	ALCHEMICAL SYMBOL FOR ROCK SALT
+1F719	ALCHEMICAL SYMBOL FOR ROCK SALT-2
+1F71A	ALCHEMICAL SYMBOL FOR GOLD
+1F71B	ALCHEMICAL SYMBOL FOR SILVER
+1F71C	ALCHEMICAL SYMBOL FOR IRON ORE
+1F71D	ALCHEMICAL SYMBOL FOR IRON ORE-2
+1F71E	ALCHEMICAL SYMBOL FOR CROCUS OF IRON
+1F71F	ALCHEMICAL SYMBOL FOR REGULUS OF IRON
+1F720	ALCHEMICAL SYMBOL FOR COPPER ORE
+1F721	ALCHEMICAL SYMBOL FOR IRON-COPPER ORE
+1F722	ALCHEMICAL SYMBOL FOR SUBLIMATE OF COPPER
+1F723	ALCHEMICAL SYMBOL FOR CROCUS OF COPPER
+1F724	ALCHEMICAL SYMBOL FOR CROCUS OF COPPER-2
+1F725	ALCHEMICAL SYMBOL FOR COPPER ANTIMONIATE
+1F726	ALCHEMICAL SYMBOL FOR SALT OF COPPER ANTIMONIATE
+1F727	ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF COPPER
+1F728	ALCHEMICAL SYMBOL FOR VERDIGRIS
+1F729	ALCHEMICAL SYMBOL FOR TIN ORE
+1F72A	ALCHEMICAL SYMBOL FOR LEAD ORE
+1F72B	ALCHEMICAL SYMBOL FOR ANTIMONY ORE
+1F72C	ALCHEMICAL SYMBOL FOR SUBLIMATE OF ANTIMONY
+1F72D	ALCHEMICAL SYMBOL FOR SALT OF ANTIMONY
+1F72E	ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF ANTIMONY
+1F72F	ALCHEMICAL SYMBOL FOR VINEGAR OF ANTIMONY
+1F730	ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY
+1F731	ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY-2
+1F732	ALCHEMICAL SYMBOL FOR REGULUS
+1F733	ALCHEMICAL SYMBOL FOR REGULUS-2
+1F734	ALCHEMICAL SYMBOL FOR REGULUS-3
+1F735	ALCHEMICAL SYMBOL FOR REGULUS-4
+1F736	ALCHEMICAL SYMBOL FOR ALKALI
+1F737	ALCHEMICAL SYMBOL FOR ALKALI-2
+1F738	ALCHEMICAL SYMBOL FOR MARCASITE
+1F739	ALCHEMICAL SYMBOL FOR SAL-AMMONIAC
+1F73A	ALCHEMICAL SYMBOL FOR ARSENIC
+1F73B	ALCHEMICAL SYMBOL FOR REALGAR
+1F73C	ALCHEMICAL SYMBOL FOR REALGAR-2
+1F73D	ALCHEMICAL SYMBOL FOR AURIPIGMENT
+1F73E	ALCHEMICAL SYMBOL FOR BISMUTH ORE
+1F73F	ALCHEMICAL SYMBOL FOR TARTAR
+1F740	ALCHEMICAL SYMBOL FOR TARTAR-2
+1F741	ALCHEMICAL SYMBOL FOR QUICK LIME
+1F742	ALCHEMICAL SYMBOL FOR BORAX
+1F743	ALCHEMICAL SYMBOL FOR BORAX-2
+1F744	ALCHEMICAL SYMBOL FOR BORAX-3
+1F745	ALCHEMICAL SYMBOL FOR ALUM
+1F746	ALCHEMICAL SYMBOL FOR OIL
+1F747	ALCHEMICAL SYMBOL FOR SPIRIT
+1F748	ALCHEMICAL SYMBOL FOR TINCTURE
+1F749	ALCHEMICAL SYMBOL FOR GUM
+1F74A	ALCHEMICAL SYMBOL FOR WAX
+1F74B	ALCHEMICAL SYMBOL FOR POWDER
+1F74C	ALCHEMICAL SYMBOL FOR CALX
+1F74D	ALCHEMICAL SYMBOL FOR TUTTY
+1F74E	ALCHEMICAL SYMBOL FOR CAPUT MORTUUM
+1F74F	ALCHEMICAL SYMBOL FOR SCEPTER OF JOVE
+1F750	ALCHEMICAL SYMBOL FOR CADUCEUS
+1F751	ALCHEMICAL SYMBOL FOR TRIDENT
+1F752	ALCHEMICAL SYMBOL FOR STARRED TRIDENT
+1F753	ALCHEMICAL SYMBOL FOR LODESTONE
+1F754	ALCHEMICAL SYMBOL FOR SOAP
+1F755	ALCHEMICAL SYMBOL FOR URINE
+1F756	ALCHEMICAL SYMBOL FOR HORSE DUNG
+1F757	ALCHEMICAL SYMBOL FOR ASHES
+1F758	ALCHEMICAL SYMBOL FOR POT ASHES
+1F759	ALCHEMICAL SYMBOL FOR BRICK
+1F75A	ALCHEMICAL SYMBOL FOR POWDERED BRICK
+1F75B	ALCHEMICAL SYMBOL FOR AMALGAM
+1F75C	ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM
+1F75D	ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM-2
+1F75E	ALCHEMICAL SYMBOL FOR SUBLIMATION
+1F75F	ALCHEMICAL SYMBOL FOR PRECIPITATE
+1F760	ALCHEMICAL SYMBOL FOR DISTILL
+1F761	ALCHEMICAL SYMBOL FOR DISSOLVE
+1F762	ALCHEMICAL SYMBOL FOR DISSOLVE-2
+1F763	ALCHEMICAL SYMBOL FOR PURIFY
+1F764	ALCHEMICAL SYMBOL FOR PUTREFACTION
+1F765	ALCHEMICAL SYMBOL FOR CRUCIBLE
+1F766	ALCHEMICAL SYMBOL FOR CRUCIBLE-2
+1F767	ALCHEMICAL SYMBOL FOR CRUCIBLE-3
+1F768	ALCHEMICAL SYMBOL FOR CRUCIBLE-4
+1F769	ALCHEMICAL SYMBOL FOR CRUCIBLE-5
+1F76A	ALCHEMICAL SYMBOL FOR ALEMBIC
+1F76B	ALCHEMICAL SYMBOL FOR BATH OF MARY
+1F76C	ALCHEMICAL SYMBOL FOR BATH OF VAPOURS
+1F76D	ALCHEMICAL SYMBOL FOR RETORT
+1F76E	ALCHEMICAL SYMBOL FOR HOUR
+1F76F	ALCHEMICAL SYMBOL FOR NIGHT
+1F770	ALCHEMICAL SYMBOL FOR DAY-NIGHT
+1F771	ALCHEMICAL SYMBOL FOR MONTH
+1F772	ALCHEMICAL SYMBOL FOR HALF DRAM
+1F773	ALCHEMICAL SYMBOL FOR HALF OUNCE
+1F780	BLACK LEFT-POINTING ISOSCELES RIGHT TRIANGLE
+1F781	BLACK UP-POINTING ISOSCELES RIGHT TRIANGLE
+1F782	BLACK RIGHT-POINTING ISOSCELES RIGHT TRIANGLE
+1F783	BLACK DOWN-POINTING ISOSCELES RIGHT TRIANGLE
+1F784	BLACK SLIGHTLY SMALL CIRCLE
+1F785	MEDIUM BOLD WHITE CIRCLE
+1F786	BOLD WHITE CIRCLE
+1F787	HEAVY WHITE CIRCLE
+1F788	VERY HEAVY WHITE CIRCLE
+1F789	EXTREMELY HEAVY WHITE CIRCLE
+1F78A	WHITE CIRCLE CONTAINING BLACK SMALL CIRCLE
+1F78B	ROUND TARGET
+1F78C	BLACK TINY SQUARE
+1F78D	BLACK SLIGHTLY SMALL SQUARE
+1F78E	LIGHT WHITE SQUARE
+1F78F	MEDIUM WHITE SQUARE
+1F790	BOLD WHITE SQUARE
+1F791	HEAVY WHITE SQUARE
+1F792	VERY HEAVY WHITE SQUARE
+1F793	EXTREMELY HEAVY WHITE SQUARE
+1F794	WHITE SQUARE CONTAINING BLACK VERY SMALL SQUARE
+1F795	WHITE SQUARE CONTAINING BLACK MEDIUM SQUARE
+1F796	SQUARE TARGET
+1F797	BLACK TINY DIAMOND
+1F798	BLACK VERY SMALL DIAMOND
+1F799	BLACK MEDIUM SMALL DIAMOND
+1F79A	WHITE DIAMOND CONTAINING BLACK VERY SMALL DIAMOND
+1F79B	WHITE DIAMOND CONTAINING BLACK MEDIUM DIAMOND
+1F79C	DIAMOND TARGET
+1F79D	BLACK TINY LOZENGE
+1F79E	BLACK VERY SMALL LOZENGE
+1F79F	BLACK MEDIUM SMALL LOZENGE
+1F7A0	WHITE LOZENGE CONTAINING BLACK SMALL LOZENGE
+1F7A1	THIN GREEK CROSS
+1F7A2	LIGHT GREEK CROSS
+1F7A3	MEDIUM GREEK CROSS
+1F7A4	BOLD GREEK CROSS
+1F7A5	VERY BOLD GREEK CROSS
+1F7A6	VERY HEAVY GREEK CROSS
+1F7A7	EXTREMELY HEAVY GREEK CROSS
+1F7A8	THIN SALTIRE
+1F7A9	LIGHT SALTIRE
+1F7AA	MEDIUM SALTIRE
+1F7AB	BOLD SALTIRE
+1F7AC	HEAVY SALTIRE
+1F7AD	VERY HEAVY SALTIRE
+1F7AE	EXTREMELY HEAVY SALTIRE
+1F7AF	LIGHT FIVE SPOKED ASTERISK
+1F7B0	MEDIUM FIVE SPOKED ASTERISK
+1F7B1	BOLD FIVE SPOKED ASTERISK
+1F7B2	HEAVY FIVE SPOKED ASTERISK
+1F7B3	VERY HEAVY FIVE SPOKED ASTERISK
+1F7B4	EXTREMELY HEAVY FIVE SPOKED ASTERISK
+1F7B5	LIGHT SIX SPOKED ASTERISK
+1F7B6	MEDIUM SIX SPOKED ASTERISK
+1F7B7	BOLD SIX SPOKED ASTERISK
+1F7B8	HEAVY SIX SPOKED ASTERISK
+1F7B9	VERY HEAVY SIX SPOKED ASTERISK
+1F7BA	EXTREMELY HEAVY SIX SPOKED ASTERISK
+1F7BB	LIGHT EIGHT SPOKED ASTERISK
+1F7BC	MEDIUM EIGHT SPOKED ASTERISK
+1F7BD	BOLD EIGHT SPOKED ASTERISK
+1F7BE	HEAVY EIGHT SPOKED ASTERISK
+1F7BF	VERY HEAVY EIGHT SPOKED ASTERISK
+1F7C0	LIGHT THREE POINTED BLACK STAR
+1F7C1	MEDIUM THREE POINTED BLACK STAR
+1F7C2	THREE POINTED BLACK STAR
+1F7C3	MEDIUM THREE POINTED PINWHEEL STAR
+1F7C4	LIGHT FOUR POINTED BLACK STAR
+1F7C5	MEDIUM FOUR POINTED BLACK STAR
+1F7C6	FOUR POINTED BLACK STAR
+1F7C7	MEDIUM FOUR POINTED PINWHEEL STAR
+1F7C8	REVERSE LIGHT FOUR POINTED PINWHEEL STAR
+1F7C9	LIGHT FIVE POINTED BLACK STAR
+1F7CA	HEAVY FIVE POINTED BLACK STAR
+1F7CB	MEDIUM SIX POINTED BLACK STAR
+1F7CC	HEAVY SIX POINTED BLACK STAR
+1F7CD	SIX POINTED PINWHEEL STAR
+1F7CE	MEDIUM EIGHT POINTED BLACK STAR
+1F7CF	HEAVY EIGHT POINTED BLACK STAR
+1F7D0	VERY HEAVY EIGHT POINTED BLACK STAR
+1F7D1	HEAVY EIGHT POINTED PINWHEEL STAR
+1F7D2	LIGHT TWELVE POINTED BLACK STAR
+1F7D3	HEAVY TWELVE POINTED BLACK STAR
+1F7D4	HEAVY TWELVE POINTED PINWHEEL STAR
+1F800	LEFTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F801	UPWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F802	RIGHTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F803	DOWNWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F804	LEFTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F805	UPWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F806	RIGHTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F807	DOWNWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F808	LEFTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F809	UPWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80A	RIGHTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80B	DOWNWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F810	LEFTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F811	UPWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F812	RIGHTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F813	DOWNWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F814	LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F815	UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F816	RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F817	DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F818	HEAVY LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F819	HEAVY UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81A	HEAVY RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81B	HEAVY DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81C	HEAVY LEFTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81D	HEAVY UPWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81E	HEAVY RIGHTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81F	HEAVY DOWNWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F820	LEFTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F821	UPWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F822	RIGHTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F823	DOWNWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F824	LEFTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F825	UPWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F826	RIGHTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F827	DOWNWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F828	LEFTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F829	UPWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82A	RIGHTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82B	DOWNWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82C	LEFTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82D	UPWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82E	RIGHTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82F	DOWNWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F830	LEFTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F831	UPWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F832	RIGHTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F833	DOWNWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F834	LEFTWARDS FINGER-POST ARROW
+1F835	UPWARDS FINGER-POST ARROW
+1F836	RIGHTWARDS FINGER-POST ARROW
+1F837	DOWNWARDS FINGER-POST ARROW
+1F838	LEFTWARDS SQUARED ARROW
+1F839	UPWARDS SQUARED ARROW
+1F83A	RIGHTWARDS SQUARED ARROW
+1F83B	DOWNWARDS SQUARED ARROW
+1F83C	LEFTWARDS COMPRESSED ARROW
+1F83D	UPWARDS COMPRESSED ARROW
+1F83E	RIGHTWARDS COMPRESSED ARROW
+1F83F	DOWNWARDS COMPRESSED ARROW
+1F840	LEFTWARDS HEAVY COMPRESSED ARROW
+1F841	UPWARDS HEAVY COMPRESSED ARROW
+1F842	RIGHTWARDS HEAVY COMPRESSED ARROW
+1F843	DOWNWARDS HEAVY COMPRESSED ARROW
+1F844	LEFTWARDS HEAVY ARROW
+1F845	UPWARDS HEAVY ARROW
+1F846	RIGHTWARDS HEAVY ARROW
+1F847	DOWNWARDS HEAVY ARROW
+1F850	LEFTWARDS SANS-SERIF ARROW
+1F851	UPWARDS SANS-SERIF ARROW
+1F852	RIGHTWARDS SANS-SERIF ARROW
+1F853	DOWNWARDS SANS-SERIF ARROW
+1F854	NORTH WEST SANS-SERIF ARROW
+1F855	NORTH EAST SANS-SERIF ARROW
+1F856	SOUTH EAST SANS-SERIF ARROW
+1F857	SOUTH WEST SANS-SERIF ARROW
+1F858	LEFT RIGHT SANS-SERIF ARROW
+1F859	UP DOWN SANS-SERIF ARROW
+1F860	WIDE-HEADED LEFTWARDS LIGHT BARB ARROW
+1F861	WIDE-HEADED UPWARDS LIGHT BARB ARROW
+1F862	WIDE-HEADED RIGHTWARDS LIGHT BARB ARROW
+1F863	WIDE-HEADED DOWNWARDS LIGHT BARB ARROW
+1F864	WIDE-HEADED NORTH WEST LIGHT BARB ARROW
+1F865	WIDE-HEADED NORTH EAST LIGHT BARB ARROW
+1F866	WIDE-HEADED SOUTH EAST LIGHT BARB ARROW
+1F867	WIDE-HEADED SOUTH WEST LIGHT BARB ARROW
+1F868	WIDE-HEADED LEFTWARDS BARB ARROW
+1F869	WIDE-HEADED UPWARDS BARB ARROW
+1F86A	WIDE-HEADED RIGHTWARDS BARB ARROW
+1F86B	WIDE-HEADED DOWNWARDS BARB ARROW
+1F86C	WIDE-HEADED NORTH WEST BARB ARROW
+1F86D	WIDE-HEADED NORTH EAST BARB ARROW
+1F86E	WIDE-HEADED SOUTH EAST BARB ARROW
+1F86F	WIDE-HEADED SOUTH WEST BARB ARROW
+1F870	WIDE-HEADED LEFTWARDS MEDIUM BARB ARROW
+1F871	WIDE-HEADED UPWARDS MEDIUM BARB ARROW
+1F872	WIDE-HEADED RIGHTWARDS MEDIUM BARB ARROW
+1F873	WIDE-HEADED DOWNWARDS MEDIUM BARB ARROW
+1F874	WIDE-HEADED NORTH WEST MEDIUM BARB ARROW
+1F875	WIDE-HEADED NORTH EAST MEDIUM BARB ARROW
+1F876	WIDE-HEADED SOUTH EAST MEDIUM BARB ARROW
+1F877	WIDE-HEADED SOUTH WEST MEDIUM BARB ARROW
+1F878	WIDE-HEADED LEFTWARDS HEAVY BARB ARROW
+1F879	WIDE-HEADED UPWARDS HEAVY BARB ARROW
+1F87A	WIDE-HEADED RIGHTWARDS HEAVY BARB ARROW
+1F87B	WIDE-HEADED DOWNWARDS HEAVY BARB ARROW
+1F87C	WIDE-HEADED NORTH WEST HEAVY BARB ARROW
+1F87D	WIDE-HEADED NORTH EAST HEAVY BARB ARROW
+1F87E	WIDE-HEADED SOUTH EAST HEAVY BARB ARROW
+1F87F	WIDE-HEADED SOUTH WEST HEAVY BARB ARROW
+1F880	WIDE-HEADED LEFTWARDS VERY HEAVY BARB ARROW
+1F881	WIDE-HEADED UPWARDS VERY HEAVY BARB ARROW
+1F882	WIDE-HEADED RIGHTWARDS VERY HEAVY BARB ARROW
+1F883	WIDE-HEADED DOWNWARDS VERY HEAVY BARB ARROW
+1F884	WIDE-HEADED NORTH WEST VERY HEAVY BARB ARROW
+1F885	WIDE-HEADED NORTH EAST VERY HEAVY BARB ARROW
+1F886	WIDE-HEADED SOUTH EAST VERY HEAVY BARB ARROW
+1F887	WIDE-HEADED SOUTH WEST VERY HEAVY BARB ARROW
+1F890	LEFTWARDS TRIANGLE ARROWHEAD
+1F891	UPWARDS TRIANGLE ARROWHEAD
+1F892	RIGHTWARDS TRIANGLE ARROWHEAD
+1F893	DOWNWARDS TRIANGLE ARROWHEAD
+1F894	LEFTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F895	UPWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F896	RIGHTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F897	DOWNWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F898	LEFTWARDS ARROW WITH NOTCHED TAIL
+1F899	UPWARDS ARROW WITH NOTCHED TAIL
+1F89A	RIGHTWARDS ARROW WITH NOTCHED TAIL
+1F89B	DOWNWARDS ARROW WITH NOTCHED TAIL
+1F89C	HEAVY ARROW SHAFT WIDTH ONE
+1F89D	HEAVY ARROW SHAFT WIDTH TWO THIRDS
+1F89E	HEAVY ARROW SHAFT WIDTH ONE HALF
+1F89F	HEAVY ARROW SHAFT WIDTH ONE THIRD
+1F8A0	LEFTWARDS BOTTOM-SHADED WHITE ARROW
+1F8A1	RIGHTWARDS BOTTOM SHADED WHITE ARROW
+1F8A2	LEFTWARDS TOP SHADED WHITE ARROW
+1F8A3	RIGHTWARDS TOP SHADED WHITE ARROW
+1F8A4	LEFTWARDS LEFT-SHADED WHITE ARROW
+1F8A5	RIGHTWARDS RIGHT-SHADED WHITE ARROW
+1F8A6	LEFTWARDS RIGHT-SHADED WHITE ARROW
+1F8A7	RIGHTWARDS LEFT-SHADED WHITE ARROW
+1F8A8	LEFTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8A9	RIGHTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8AA	LEFTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AB	RIGHTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AC	WHITE ARROW SHAFT WIDTH ONE
+1F8AD	WHITE ARROW SHAFT WIDTH TWO THIRDS
+1F900	CIRCLED CROSS FORMEE WITH FOUR DOTS
+1F901	CIRCLED CROSS FORMEE WITH TWO DOTS
+1F902	CIRCLED CROSS FORMEE
+1F903	LEFT HALF CIRCLE WITH FOUR DOTS
+1F904	LEFT HALF CIRCLE WITH THREE DOTS
+1F905	LEFT HALF CIRCLE WITH TWO DOTS
+1F906	LEFT HALF CIRCLE WITH DOT
+1F907	LEFT HALF CIRCLE
+1F908	DOWNWARD FACING HOOK
+1F909	DOWNWARD FACING NOTCHED HOOK
+1F90A	DOWNWARD FACING HOOK WITH DOT
+1F90B	DOWNWARD FACING NOTCHED HOOK WITH DOT
+1F910	ZIPPER-MOUTH FACE
+1F911	MONEY-MOUTH FACE
+1F912	FACE WITH THERMOMETER
+1F913	NERD FACE
+1F914	THINKING FACE
+1F915	FACE WITH HEAD-BANDAGE
+1F916	ROBOT FACE
+1F917	HUGGING FACE
+1F918	SIGN OF THE HORNS
+1F919	CALL ME HAND
+1F91A	RAISED BACK OF HAND
+1F91B	LEFT-FACING FIST
+1F91C	RIGHT-FACING FIST
+1F91D	HANDSHAKE
+1F91E	HAND WITH INDEX AND MIDDLE FINGERS CROSSED
+1F91F	I LOVE YOU HAND SIGN
+1F920	FACE WITH COWBOY HAT
+1F921	CLOWN FACE
+1F922	NAUSEATED FACE
+1F923	ROLLING ON THE FLOOR LAUGHING
+1F924	DROOLING FACE
+1F925	LYING FACE
+1F926	FACE PALM
+1F927	SNEEZING FACE
+1F928	FACE WITH ONE EYEBROW RAISED
+1F929	GRINNING FACE WITH STAR EYES
+1F92A	GRINNING FACE WITH ONE LARGE AND ONE SMALL EYE
+1F92B	FACE WITH FINGER COVERING CLOSED LIPS
+1F92C	SERIOUS FACE WITH SYMBOLS COVERING MOUTH
+1F92D	SMILING FACE WITH SMILING EYES AND HAND COVERING MOUTH
+1F92E	FACE WITH OPEN MOUTH VOMITING
+1F92F	SHOCKED FACE WITH EXPLODING HEAD
+1F930	PREGNANT WOMAN
+1F931	BREAST-FEEDING
+1F932	PALMS UP TOGETHER
+1F933	SELFIE
+1F934	PRINCE
+1F935	MAN IN TUXEDO
+1F936	MOTHER CHRISTMAS
+1F937	SHRUG
+1F938	PERSON DOING CARTWHEEL
+1F939	JUGGLING
+1F93A	FENCER
+1F93B	MODERN PENTATHLON
+1F93C	WRESTLERS
+1F93D	WATER POLO
+1F93E	HANDBALL
+1F940	WILTED FLOWER
+1F941	DRUM WITH DRUMSTICKS
+1F942	CLINKING GLASSES
+1F943	TUMBLER GLASS
+1F944	SPOON
+1F945	GOAL NET
+1F946	RIFLE
+1F947	FIRST PLACE MEDAL
+1F948	SECOND PLACE MEDAL
+1F949	THIRD PLACE MEDAL
+1F94A	BOXING GLOVE
+1F94B	MARTIAL ARTS UNIFORM
+1F94C	CURLING STONE
+1F950	CROISSANT
+1F951	AVOCADO
+1F952	CUCUMBER
+1F953	BACON
+1F954	POTATO
+1F955	CARROT
+1F956	BAGUETTE BREAD
+1F957	GREEN SALAD
+1F958	SHALLOW PAN OF FOOD
+1F959	STUFFED FLATBREAD
+1F95A	EGG
+1F95B	GLASS OF MILK
+1F95C	PEANUTS
+1F95D	KIWIFRUIT
+1F95E	PANCAKES
+1F95F	DUMPLING
+1F960	FORTUNE COOKIE
+1F961	TAKEOUT BOX
+1F962	CHOPSTICKS
+1F963	BOWL WITH SPOON
+1F964	CUP WITH STRAW
+1F965	COCONUT
+1F966	BROCCOLI
+1F967	PIE
+1F968	PRETZEL
+1F969	CUT OF MEAT
+1F96A	SANDWICH
+1F96B	CANNED FOOD
+1F980	CRAB
+1F981	LION FACE
+1F982	SCORPION
+1F983	TURKEY
+1F984	UNICORN FACE
+1F985	EAGLE
+1F986	DUCK
+1F987	BAT
+1F988	SHARK
+1F989	OWL
+1F98A	FOX FACE
+1F98B	BUTTERFLY
+1F98C	DEER
+1F98D	GORILLA
+1F98E	LIZARD
+1F98F	RHINOCEROS
+1F990	SHRIMP
+1F991	SQUID
+1F992	GIRAFFE FACE
+1F993	ZEBRA FACE
+1F994	HEDGEHOG
+1F995	SAUROPOD
+1F996	T-REX
+1F997	CRICKET
+1F9C0	CHEESE WEDGE
+1F9D0	FACE WITH MONOCLE
+1F9D1	ADULT
+1F9D2	CHILD
+1F9D3	OLDER ADULT
+1F9D4	BEARDED PERSON
+1F9D5	PERSON WITH HEADSCARF
+1F9D6	PERSON IN STEAMY ROOM
+1F9D7	PERSON CLIMBING
+1F9D8	PERSON IN LOTUS POSITION
+1F9D9	MAGE
+1F9DA	FAIRY
+1F9DB	VAMPIRE
+1F9DC	MERPERSON
+1F9DD	ELF
+1F9DE	GENIE
+1F9DF	ZOMBIE
+1F9E0	BRAIN
+1F9E1	ORANGE HEART
+1F9E2	BILLED CAP
+1F9E3	SCARF
+1F9E4	GLOVES
+1F9E5	COAT
+1F9E6	SOCKS
+E0001	LANGUAGE TAG
+E0020	TAG SPACE
+E0021	TAG EXCLAMATION MARK
+E0022	TAG QUOTATION MARK
+E0023	TAG NUMBER SIGN
+E0024	TAG DOLLAR SIGN
+E0025	TAG PERCENT SIGN
+E0026	TAG AMPERSAND
+E0027	TAG APOSTROPHE
+E0028	TAG LEFT PARENTHESIS
+E0029	TAG RIGHT PARENTHESIS
+E002A	TAG ASTERISK
+E002B	TAG PLUS SIGN
+E002C	TAG COMMA
+E002D	TAG HYPHEN-MINUS
+E002E	TAG FULL STOP
+E002F	TAG SOLIDUS
+E0030	TAG DIGIT ZERO
+E0031	TAG DIGIT ONE
+E0032	TAG DIGIT TWO
+E0033	TAG DIGIT THREE
+E0034	TAG DIGIT FOUR
+E0035	TAG DIGIT FIVE
+E0036	TAG DIGIT SIX
+E0037	TAG DIGIT SEVEN
+E0038	TAG DIGIT EIGHT
+E0039	TAG DIGIT NINE
+E003A	TAG COLON
+E003B	TAG SEMICOLON
+E003C	TAG LESS-THAN SIGN
+E003D	TAG EQUALS SIGN
+E003E	TAG GREATER-THAN SIGN
+E003F	TAG QUESTION MARK
+E0040	TAG COMMERCIAL AT
+E0041	TAG LATIN CAPITAL LETTER A
+E0042	TAG LATIN CAPITAL LETTER B
+E0043	TAG LATIN CAPITAL LETTER C
+E0044	TAG LATIN CAPITAL LETTER D
+E0045	TAG LATIN CAPITAL LETTER E
+E0046	TAG LATIN CAPITAL LETTER F
+E0047	TAG LATIN CAPITAL LETTER G
+E0048	TAG LATIN CAPITAL LETTER H
+E0049	TAG LATIN CAPITAL LETTER I
+E004A	TAG LATIN CAPITAL LETTER J
+E004B	TAG LATIN CAPITAL LETTER K
+E004C	TAG LATIN CAPITAL LETTER L
+E004D	TAG LATIN CAPITAL LETTER M
+E004E	TAG LATIN CAPITAL LETTER N
+E004F	TAG LATIN CAPITAL LETTER O
+E0050	TAG LATIN CAPITAL LETTER P
+E0051	TAG LATIN CAPITAL LETTER Q
+E0052	TAG LATIN CAPITAL LETTER R
+E0053	TAG LATIN CAPITAL LETTER S
+E0054	TAG LATIN CAPITAL LETTER T
+E0055	TAG LATIN CAPITAL LETTER U
+E0056	TAG LATIN CAPITAL LETTER V
+E0057	TAG LATIN CAPITAL LETTER W
+E0058	TAG LATIN CAPITAL LETTER X
+E0059	TAG LATIN CAPITAL LETTER Y
+E005A	TAG LATIN CAPITAL LETTER Z
+E005B	TAG LEFT SQUARE BRACKET
+E005C	TAG REVERSE SOLIDUS
+E005D	TAG RIGHT SQUARE BRACKET
+E005E	TAG CIRCUMFLEX ACCENT
+E005F	TAG LOW LINE
+E0060	TAG GRAVE ACCENT
+E0061	TAG LATIN SMALL LETTER A
+E0062	TAG LATIN SMALL LETTER B
+E0063	TAG LATIN SMALL LETTER C
+E0064	TAG LATIN SMALL LETTER D
+E0065	TAG LATIN SMALL LETTER E
+E0066	TAG LATIN SMALL LETTER F
+E0067	TAG LATIN SMALL LETTER G
+E0068	TAG LATIN SMALL LETTER H
+E0069	TAG LATIN SMALL LETTER I
+E006A	TAG LATIN SMALL LETTER J
+E006B	TAG LATIN SMALL LETTER K
+E006C	TAG LATIN SMALL LETTER L
+E006D	TAG LATIN SMALL LETTER M
+E006E	TAG LATIN SMALL LETTER N
+E006F	TAG LATIN SMALL LETTER O
+E0070	TAG LATIN SMALL LETTER P
+E0071	TAG LATIN SMALL LETTER Q
+E0072	TAG LATIN SMALL LETTER R
+E0073	TAG LATIN SMALL LETTER S
+E0074	TAG LATIN SMALL LETTER T
+E0075	TAG LATIN SMALL LETTER U
+E0076	TAG LATIN SMALL LETTER V
+E0077	TAG LATIN SMALL LETTER W
+E0078	TAG LATIN SMALL LETTER X
+E0079	TAG LATIN SMALL LETTER Y
+E007A	TAG LATIN SMALL LETTER Z
+E007B	TAG LEFT CURLY BRACKET
+E007C	TAG VERTICAL LINE
+E007D	TAG RIGHT CURLY BRACKET
+E007E	TAG TILDE
+E007F	CANCEL TAG
+E0100	VARIATION SELECTOR-17
+E0100	VS17
+E0101	VARIATION SELECTOR-18
+E0101	VS18
+E0102	VARIATION SELECTOR-19
+E0102	VS19
+E0103	VARIATION SELECTOR-20
+E0103	VS20
+E0104	VARIATION SELECTOR-21
+E0104	VS21
+E0105	VARIATION SELECTOR-22
+E0105	VS22
+E0106	VARIATION SELECTOR-23
+E0106	VS23
+E0107	VARIATION SELECTOR-24
+E0107	VS24
+E0108	VARIATION SELECTOR-25
+E0108	VS25
+E0109	VARIATION SELECTOR-26
+E0109	VS26
+E010A	VARIATION SELECTOR-27
+E010A	VS27
+E010B	VARIATION SELECTOR-28
+E010B	VS28
+E010C	VARIATION SELECTOR-29
+E010C	VS29
+E010D	VARIATION SELECTOR-30
+E010D	VS30
+E010E	VARIATION SELECTOR-31
+E010E	VS31
+E010F	VARIATION SELECTOR-32
+E010F	VS32
+E0110	VARIATION SELECTOR-33
+E0110	VS33
+E0111	VARIATION SELECTOR-34
+E0111	VS34
+E0112	VARIATION SELECTOR-35
+E0112	VS35
+E0113	VARIATION SELECTOR-36
+E0113	VS36
+E0114	VARIATION SELECTOR-37
+E0114	VS37
+E0115	VARIATION SELECTOR-38
+E0115	VS38
+E0116	VARIATION SELECTOR-39
+E0116	VS39
+E0117	VARIATION SELECTOR-40
+E0117	VS40
+E0118	VARIATION SELECTOR-41
+E0118	VS41
+E0119	VARIATION SELECTOR-42
+E0119	VS42
+E011A	VARIATION SELECTOR-43
+E011A	VS43
+E011B	VARIATION SELECTOR-44
+E011B	VS44
+E011C	VARIATION SELECTOR-45
+E011C	VS45
+E011D	VARIATION SELECTOR-46
+E011D	VS46
+E011E	VARIATION SELECTOR-47
+E011E	VS47
+E011F	VARIATION SELECTOR-48
+E011F	VS48
+E0120	VARIATION SELECTOR-49
+E0120	VS49
+E0121	VARIATION SELECTOR-50
+E0121	VS50
+E0122	VARIATION SELECTOR-51
+E0122	VS51
+E0123	VARIATION SELECTOR-52
+E0123	VS52
+E0124	VARIATION SELECTOR-53
+E0124	VS53
+E0125	VARIATION SELECTOR-54
+E0125	VS54
+E0126	VARIATION SELECTOR-55
+E0126	VS55
+E0127	VARIATION SELECTOR-56
+E0127	VS56
+E0128	VARIATION SELECTOR-57
+E0128	VS57
+E0129	VARIATION SELECTOR-58
+E0129	VS58
+E012A	VARIATION SELECTOR-59
+E012A	VS59
+E012B	VARIATION SELECTOR-60
+E012B	VS60
+E012C	VARIATION SELECTOR-61
+E012C	VS61
+E012D	VARIATION SELECTOR-62
+E012D	VS62
+E012E	VARIATION SELECTOR-63
+E012E	VS63
+E012F	VARIATION SELECTOR-64
+E012F	VS64
+E0130	VARIATION SELECTOR-65
+E0130	VS65
+E0131	VARIATION SELECTOR-66
+E0131	VS66
+E0132	VARIATION SELECTOR-67
+E0132	VS67
+E0133	VARIATION SELECTOR-68
+E0133	VS68
+E0134	VARIATION SELECTOR-69
+E0134	VS69
+E0135	VARIATION SELECTOR-70
+E0135	VS70
+E0136	VARIATION SELECTOR-71
+E0136	VS71
+E0137	VARIATION SELECTOR-72
+E0137	VS72
+E0138	VARIATION SELECTOR-73
+E0138	VS73
+E0139	VARIATION SELECTOR-74
+E0139	VS74
+E013A	VARIATION SELECTOR-75
+E013A	VS75
+E013B	VARIATION SELECTOR-76
+E013B	VS76
+E013C	VARIATION SELECTOR-77
+E013C	VS77
+E013D	VARIATION SELECTOR-78
+E013D	VS78
+E013E	VARIATION SELECTOR-79
+E013E	VS79
+E013F	VARIATION SELECTOR-80
+E013F	VS80
+E0140	VARIATION SELECTOR-81
+E0140	VS81
+E0141	VARIATION SELECTOR-82
+E0141	VS82
+E0142	VARIATION SELECTOR-83
+E0142	VS83
+E0143	VARIATION SELECTOR-84
+E0143	VS84
+E0144	VARIATION SELECTOR-85
+E0144	VS85
+E0145	VARIATION SELECTOR-86
+E0145	VS86
+E0146	VARIATION SELECTOR-87
+E0146	VS87
+E0147	VARIATION SELECTOR-88
+E0147	VS88
+E0148	VARIATION SELECTOR-89
+E0148	VS89
+E0149	VARIATION SELECTOR-90
+E0149	VS90
+E014A	VARIATION SELECTOR-91
+E014A	VS91
+E014B	VARIATION SELECTOR-92
+E014B	VS92
+E014C	VARIATION SELECTOR-93
+E014C	VS93
+E014D	VARIATION SELECTOR-94
+E014D	VS94
+E014E	VARIATION SELECTOR-95
+E014E	VS95
+E014F	VARIATION SELECTOR-96
+E014F	VS96
+E0150	VARIATION SELECTOR-97
+E0150	VS97
+E0151	VARIATION SELECTOR-98
+E0151	VS98
+E0152	VARIATION SELECTOR-99
+E0152	VS99
+E0153	VARIATION SELECTOR-100
+E0153	VS100
+E0154	VARIATION SELECTOR-101
+E0154	VS101
+E0155	VARIATION SELECTOR-102
+E0155	VS102
+E0156	VARIATION SELECTOR-103
+E0156	VS103
+E0157	VARIATION SELECTOR-104
+E0157	VS104
+E0158	VARIATION SELECTOR-105
+E0158	VS105
+E0159	VARIATION SELECTOR-106
+E0159	VS106
+E015A	VARIATION SELECTOR-107
+E015A	VS107
+E015B	VARIATION SELECTOR-108
+E015B	VS108
+E015C	VARIATION SELECTOR-109
+E015C	VS109
+E015D	VARIATION SELECTOR-110
+E015D	VS110
+E015E	VARIATION SELECTOR-111
+E015E	VS111
+E015F	VARIATION SELECTOR-112
+E015F	VS112
+E0160	VARIATION SELECTOR-113
+E0160	VS113
+E0161	VARIATION SELECTOR-114
+E0161	VS114
+E0162	VARIATION SELECTOR-115
+E0162	VS115
+E0163	VARIATION SELECTOR-116
+E0163	VS116
+E0164	VARIATION SELECTOR-117
+E0164	VS117
+E0165	VARIATION SELECTOR-118
+E0165	VS118
+E0166	VARIATION SELECTOR-119
+E0166	VS119
+E0167	VARIATION SELECTOR-120
+E0167	VS120
+E0168	VARIATION SELECTOR-121
+E0168	VS121
+E0169	VARIATION SELECTOR-122
+E0169	VS122
+E016A	VARIATION SELECTOR-123
+E016A	VS123
+E016B	VARIATION SELECTOR-124
+E016B	VS124
+E016C	VARIATION SELECTOR-125
+E016C	VS125
+E016D	VARIATION SELECTOR-126
+E016D	VS126
+E016E	VARIATION SELECTOR-127
+E016E	VS127
+E016F	VARIATION SELECTOR-128
+E016F	VS128
+E0170	VARIATION SELECTOR-129
+E0170	VS129
+E0171	VARIATION SELECTOR-130
+E0171	VS130
+E0172	VARIATION SELECTOR-131
+E0172	VS131
+E0173	VARIATION SELECTOR-132
+E0173	VS132
+E0174	VARIATION SELECTOR-133
+E0174	VS133
+E0175	VARIATION SELECTOR-134
+E0175	VS134
+E0176	VARIATION SELECTOR-135
+E0176	VS135
+E0177	VARIATION SELECTOR-136
+E0177	VS136
+E0178	VARIATION SELECTOR-137
+E0178	VS137
+E0179	VARIATION SELECTOR-138
+E0179	VS138
+E017A	VARIATION SELECTOR-139
+E017A	VS139
+E017B	VARIATION SELECTOR-140
+E017B	VS140
+E017C	VARIATION SELECTOR-141
+E017C	VS141
+E017D	VARIATION SELECTOR-142
+E017D	VS142
+E017E	VARIATION SELECTOR-143
+E017E	VS143
+E017F	VARIATION SELECTOR-144
+E017F	VS144
+E0180	VARIATION SELECTOR-145
+E0180	VS145
+E0181	VARIATION SELECTOR-146
+E0181	VS146
+E0182	VARIATION SELECTOR-147
+E0182	VS147
+E0183	VARIATION SELECTOR-148
+E0183	VS148
+E0184	VARIATION SELECTOR-149
+E0184	VS149
+E0185	VARIATION SELECTOR-150
+E0185	VS150
+E0186	VARIATION SELECTOR-151
+E0186	VS151
+E0187	VARIATION SELECTOR-152
+E0187	VS152
+E0188	VARIATION SELECTOR-153
+E0188	VS153
+E0189	VARIATION SELECTOR-154
+E0189	VS154
+E018A	VARIATION SELECTOR-155
+E018A	VS155
+E018B	VARIATION SELECTOR-156
+E018B	VS156
+E018C	VARIATION SELECTOR-157
+E018C	VS157
+E018D	VARIATION SELECTOR-158
+E018D	VS158
+E018E	VARIATION SELECTOR-159
+E018E	VS159
+E018F	VARIATION SELECTOR-160
+E018F	VS160
+E0190	VARIATION SELECTOR-161
+E0190	VS161
+E0191	VARIATION SELECTOR-162
+E0191	VS162
+E0192	VARIATION SELECTOR-163
+E0192	VS163
+E0193	VARIATION SELECTOR-164
+E0193	VS164
+E0194	VARIATION SELECTOR-165
+E0194	VS165
+E0195	VARIATION SELECTOR-166
+E0195	VS166
+E0196	VARIATION SELECTOR-167
+E0196	VS167
+E0197	VARIATION SELECTOR-168
+E0197	VS168
+E0198	VARIATION SELECTOR-169
+E0198	VS169
+E0199	VARIATION SELECTOR-170
+E0199	VS170
+E019A	VARIATION SELECTOR-171
+E019A	VS171
+E019B	VARIATION SELECTOR-172
+E019B	VS172
+E019C	VARIATION SELECTOR-173
+E019C	VS173
+E019D	VARIATION SELECTOR-174
+E019D	VS174
+E019E	VARIATION SELECTOR-175
+E019E	VS175
+E019F	VARIATION SELECTOR-176
+E019F	VS176
+E01A0	VARIATION SELECTOR-177
+E01A0	VS177
+E01A1	VARIATION SELECTOR-178
+E01A1	VS178
+E01A2	VARIATION SELECTOR-179
+E01A2	VS179
+E01A3	VARIATION SELECTOR-180
+E01A3	VS180
+E01A4	VARIATION SELECTOR-181
+E01A4	VS181
+E01A5	VARIATION SELECTOR-182
+E01A5	VS182
+E01A6	VARIATION SELECTOR-183
+E01A6	VS183
+E01A7	VARIATION SELECTOR-184
+E01A7	VS184
+E01A8	VARIATION SELECTOR-185
+E01A8	VS185
+E01A9	VARIATION SELECTOR-186
+E01A9	VS186
+E01AA	VARIATION SELECTOR-187
+E01AA	VS187
+E01AB	VARIATION SELECTOR-188
+E01AB	VS188
+E01AC	VARIATION SELECTOR-189
+E01AC	VS189
+E01AD	VARIATION SELECTOR-190
+E01AD	VS190
+E01AE	VARIATION SELECTOR-191
+E01AE	VS191
+E01AF	VARIATION SELECTOR-192
+E01AF	VS192
+E01B0	VARIATION SELECTOR-193
+E01B0	VS193
+E01B1	VARIATION SELECTOR-194
+E01B1	VS194
+E01B2	VARIATION SELECTOR-195
+E01B2	VS195
+E01B3	VARIATION SELECTOR-196
+E01B3	VS196
+E01B4	VARIATION SELECTOR-197
+E01B4	VS197
+E01B5	VARIATION SELECTOR-198
+E01B5	VS198
+E01B6	VARIATION SELECTOR-199
+E01B6	VS199
+E01B7	VARIATION SELECTOR-200
+E01B7	VS200
+E01B8	VARIATION SELECTOR-201
+E01B8	VS201
+E01B9	VARIATION SELECTOR-202
+E01B9	VS202
+E01BA	VARIATION SELECTOR-203
+E01BA	VS203
+E01BB	VARIATION SELECTOR-204
+E01BB	VS204
+E01BC	VARIATION SELECTOR-205
+E01BC	VS205
+E01BD	VARIATION SELECTOR-206
+E01BD	VS206
+E01BE	VARIATION SELECTOR-207
+E01BE	VS207
+E01BF	VARIATION SELECTOR-208
+E01BF	VS208
+E01C0	VARIATION SELECTOR-209
+E01C0	VS209
+E01C1	VARIATION SELECTOR-210
+E01C1	VS210
+E01C2	VARIATION SELECTOR-211
+E01C2	VS211
+E01C3	VARIATION SELECTOR-212
+E01C3	VS212
+E01C4	VARIATION SELECTOR-213
+E01C4	VS213
+E01C5	VARIATION SELECTOR-214
+E01C5	VS214
+E01C6	VARIATION SELECTOR-215
+E01C6	VS215
+E01C7	VARIATION SELECTOR-216
+E01C7	VS216
+E01C8	VARIATION SELECTOR-217
+E01C8	VS217
+E01C9	VARIATION SELECTOR-218
+E01C9	VS218
+E01CA	VARIATION SELECTOR-219
+E01CA	VS219
+E01CB	VARIATION SELECTOR-220
+E01CB	VS220
+E01CC	VARIATION SELECTOR-221
+E01CC	VS221
+E01CD	VARIATION SELECTOR-222
+E01CD	VS222
+E01CE	VARIATION SELECTOR-223
+E01CE	VS223
+E01CF	VARIATION SELECTOR-224
+E01CF	VS224
+E01D0	VARIATION SELECTOR-225
+E01D0	VS225
+E01D1	VARIATION SELECTOR-226
+E01D1	VS226
+E01D2	VARIATION SELECTOR-227
+E01D2	VS227
+E01D3	VARIATION SELECTOR-228
+E01D3	VS228
+E01D4	VARIATION SELECTOR-229
+E01D4	VS229
+E01D5	VARIATION SELECTOR-230
+E01D5	VS230
+E01D6	VARIATION SELECTOR-231
+E01D6	VS231
+E01D7	VARIATION SELECTOR-232
+E01D7	VS232
+E01D8	VARIATION SELECTOR-233
+E01D8	VS233
+E01D9	VARIATION SELECTOR-234
+E01D9	VS234
+E01DA	VARIATION SELECTOR-235
+E01DA	VS235
+E01DB	VARIATION SELECTOR-236
+E01DB	VS236
+E01DC	VARIATION SELECTOR-237
+E01DC	VS237
+E01DD	VARIATION SELECTOR-238
+E01DD	VS238
+E01DE	VARIATION SELECTOR-239
+E01DE	VS239
+E01DF	VARIATION SELECTOR-240
+E01DF	VS240
+E01E0	VARIATION SELECTOR-241
+E01E0	VS241
+E01E1	VARIATION SELECTOR-242
+E01E1	VS242
+E01E2	VARIATION SELECTOR-243
+E01E2	VS243
+E01E3	VARIATION SELECTOR-244
+E01E3	VS244
+E01E4	VARIATION SELECTOR-245
+E01E4	VS245
+E01E5	VARIATION SELECTOR-246
+E01E5	VS246
+E01E6	VARIATION SELECTOR-247
+E01E6	VS247
+E01E7	VARIATION SELECTOR-248
+E01E7	VS248
+E01E8	VARIATION SELECTOR-249
+E01E8	VS249
+E01E9	VARIATION SELECTOR-250
+E01E9	VS250
+E01EA	VARIATION SELECTOR-251
+E01EA	VS251
+E01EB	VARIATION SELECTOR-252
+E01EB	VS252
+E01EC	VARIATION SELECTOR-253
+E01EC	VS253
+E01ED	VARIATION SELECTOR-254
+E01ED	VS254
+E01EE	VARIATION SELECTOR-255
+E01EE	VS255
+E01EF	VARIATION SELECTOR-256
+E01EF	VS256
+0023 FE0F 20E3	KEYCAP NUMBER SIGN
+002A FE0F 20E3	KEYCAP ASTERISK
+0030 FE0F 20E3	KEYCAP DIGIT ZERO
+0031 FE0F 20E3	KEYCAP DIGIT ONE
+0032 FE0F 20E3	KEYCAP DIGIT TWO
+0033 FE0F 20E3	KEYCAP DIGIT THREE
+0034 FE0F 20E3	KEYCAP DIGIT FOUR
+0035 FE0F 20E3	KEYCAP DIGIT FIVE
+0036 FE0F 20E3	KEYCAP DIGIT SIX
+0037 FE0F 20E3	KEYCAP DIGIT SEVEN
+0038 FE0F 20E3	KEYCAP DIGIT EIGHT
+0039 FE0F 20E3	KEYCAP DIGIT NINE
+0100 0300	LATIN CAPITAL LETTER A WITH MACRON AND GRAVE
+0101 0300	LATIN SMALL LETTER A WITH MACRON AND GRAVE
+0045 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW
+0065 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW
+00C8 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE
+00E8 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE
+00C9 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE
+00E9 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE
+00CA 0304	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON
+00EA 0304	LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON
+00CA 030C	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON
+00EA 030C	LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON
+012A 0300	LATIN CAPITAL LETTER I WITH MACRON AND GRAVE
+012B 0300	LATIN SMALL LETTER I WITH MACRON AND GRAVE
+0069 0307 0301	LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE
+006E 0360 0067	LATIN SMALL LETTER NG WITH TILDE ABOVE
+004F 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW
+006F 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW
+00D2 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE
+00F2 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE
+00D3 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE
+00F3 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE
+0053 0329	LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW
+0073 0329	LATIN SMALL LETTER S WITH VERTICAL LINE BELOW
+016A 0300	LATIN CAPITAL LETTER U WITH MACRON AND GRAVE
+016B 0300	LATIN SMALL LETTER U WITH MACRON AND GRAVE
+0104 0301	LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE
+0105 0301	LATIN SMALL LETTER A WITH OGONEK AND ACUTE
+0104 0303	LATIN CAPITAL LETTER A WITH OGONEK AND TILDE
+0105 0303	LATIN SMALL LETTER A WITH OGONEK AND TILDE
+0118 0301	LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE
+0119 0301	LATIN SMALL LETTER E WITH OGONEK AND ACUTE
+0118 0303	LATIN CAPITAL LETTER E WITH OGONEK AND TILDE
+0119 0303	LATIN SMALL LETTER E WITH OGONEK AND TILDE
+0116 0301	LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE
+0117 0301	LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE
+0116 0303	LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE
+0117 0303	LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE
+0069 0307 0300	LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE
+0069 0307 0303	LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE
+012E 0301	LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE
+012F 0307 0301	LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE
+012E 0303	LATIN CAPITAL LETTER I WITH OGONEK AND TILDE
+012F 0307 0303	LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE
+004A 0303	LATIN CAPITAL LETTER J WITH TILDE
+006A 0307 0303	LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE
+004C 0303	LATIN CAPITAL LETTER L WITH TILDE
+006C 0303	LATIN SMALL LETTER L WITH TILDE
+004D 0303	LATIN CAPITAL LETTER M WITH TILDE
+006D 0303	LATIN SMALL LETTER M WITH TILDE
+0052 0303	LATIN CAPITAL LETTER R WITH TILDE
+0072 0303	LATIN SMALL LETTER R WITH TILDE
+0172 0301	LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE
+0173 0301	LATIN SMALL LETTER U WITH OGONEK AND ACUTE
+0172 0303	LATIN CAPITAL LETTER U WITH OGONEK AND TILDE
+0173 0303	LATIN SMALL LETTER U WITH OGONEK AND TILDE
+016A 0301	LATIN CAPITAL LETTER U WITH MACRON AND ACUTE
+016B 0301	LATIN SMALL LETTER U WITH MACRON AND ACUTE
+016A 0303	LATIN CAPITAL LETTER U WITH MACRON AND TILDE
+016B 0303	LATIN SMALL LETTER U WITH MACRON AND TILDE
+00E6 0300	LATIN SMALL LETTER AE WITH GRAVE
+0254 0300	LATIN SMALL LETTER OPEN O WITH GRAVE
+0254 0301	LATIN SMALL LETTER OPEN O WITH ACUTE
+028C 0300	LATIN SMALL LETTER TURNED V WITH GRAVE
+028C 0301	LATIN SMALL LETTER TURNED V WITH ACUTE
+0259 0300	LATIN SMALL LETTER SCHWA WITH GRAVE
+0259 0301	LATIN SMALL LETTER SCHWA WITH ACUTE
+025A 0300	LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE
+025A 0301	LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE
+0626 0627	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF
+0626 0648	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW
+0626 0649	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA
+0626 06C6	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE
+0626 06C7	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U
+0626 06C8	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU
+0626 06D0	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E
+0626 06D5	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE
+0646 06A9	ARABIC SEQUENCE NOON WITH KEHEH
+0995 09CD 09B7	BENGALI LETTER KHINYA
+0B95 0BCD	TAMIL CONSONANT K
+0B99 0BCD	TAMIL CONSONANT NG
+0B9A 0BCD	TAMIL CONSONANT C
+0B9E 0BCD	TAMIL CONSONANT NY
+0B9F 0BCD	TAMIL CONSONANT TT
+0BA3 0BCD	TAMIL CONSONANT NN
+0BA4 0BCD	TAMIL CONSONANT T
+0BA8 0BCD	TAMIL CONSONANT N
+0BAA 0BCD	TAMIL CONSONANT P
+0BAE 0BCD	TAMIL CONSONANT M
+0BAF 0BCD	TAMIL CONSONANT Y
+0BB0 0BCD	TAMIL CONSONANT R
+0BB2 0BCD	TAMIL CONSONANT L
+0BB5 0BCD	TAMIL CONSONANT V
+0BB4 0BCD	TAMIL CONSONANT LLL
+0BB3 0BCD	TAMIL CONSONANT LL
+0BB1 0BCD	TAMIL CONSONANT RR
+0BA9 0BCD	TAMIL CONSONANT NNN
+0B9C 0BCD	TAMIL CONSONANT J
+0BB6 0BCD	TAMIL CONSONANT SH
+0BB7 0BCD	TAMIL CONSONANT SS
+0BB8 0BCD	TAMIL CONSONANT S
+0BB9 0BCD	TAMIL CONSONANT H
+0B95 0BCD 0BB7 0BCD	TAMIL CONSONANT KSS
+0B95 0BBE	TAMIL SYLLABLE KAA
+0B95 0BBF	TAMIL SYLLABLE KI
+0B95 0BC0	TAMIL SYLLABLE KII
+0B95 0BC1	TAMIL SYLLABLE KU
+0B95 0BC2	TAMIL SYLLABLE KUU
+0B95 0BC6	TAMIL SYLLABLE KE
+0B95 0BC7	TAMIL SYLLABLE KEE
+0B95 0BC8	TAMIL SYLLABLE KAI
+0B95 0BCA	TAMIL SYLLABLE KO
+0B95 0BCB	TAMIL SYLLABLE KOO
+0B95 0BCC	TAMIL SYLLABLE KAU
+0B99 0BBE	TAMIL SYLLABLE NGAA
+0B99 0BBF	TAMIL SYLLABLE NGI
+0B99 0BC0	TAMIL SYLLABLE NGII
+0B99 0BC1	TAMIL SYLLABLE NGU
+0B99 0BC2	TAMIL SYLLABLE NGUU
+0B99 0BC6	TAMIL SYLLABLE NGE
+0B99 0BC7	TAMIL SYLLABLE NGEE
+0B99 0BC8	TAMIL SYLLABLE NGAI
+0B99 0BCA	TAMIL SYLLABLE NGO
+0B99 0BCB	TAMIL SYLLABLE NGOO
+0B99 0BCC	TAMIL SYLLABLE NGAU
+0B9A 0BBE	TAMIL SYLLABLE CAA
+0B9A 0BBF	TAMIL SYLLABLE CI
+0B9A 0BC0	TAMIL SYLLABLE CII
+0B9A 0BC1	TAMIL SYLLABLE CU
+0B9A 0BC2	TAMIL SYLLABLE CUU
+0B9A 0BC6	TAMIL SYLLABLE CE
+0B9A 0BC7	TAMIL SYLLABLE CEE
+0B9A 0BC8	TAMIL SYLLABLE CAI
+0B9A 0BCA	TAMIL SYLLABLE CO
+0B9A 0BCB	TAMIL SYLLABLE COO
+0B9A 0BCC	TAMIL SYLLABLE CAU
+0B9E 0BBE	TAMIL SYLLABLE NYAA
+0B9E 0BBF	TAMIL SYLLABLE NYI
+0B9E 0BC0	TAMIL SYLLABLE NYII
+0B9E 0BC1	TAMIL SYLLABLE NYU
+0B9E 0BC2	TAMIL SYLLABLE NYUU
+0B9E 0BC6	TAMIL SYLLABLE NYE
+0B9E 0BC7	TAMIL SYLLABLE NYEE
+0B9E 0BC8	TAMIL SYLLABLE NYAI
+0B9E 0BCA	TAMIL SYLLABLE NYO
+0B9E 0BCB	TAMIL SYLLABLE NYOO
+0B9E 0BCC	TAMIL SYLLABLE NYAU
+0B9F 0BBE	TAMIL SYLLABLE TTAA
+0B9F 0BBF	TAMIL SYLLABLE TTI
+0B9F 0BC0	TAMIL SYLLABLE TTII
+0B9F 0BC1	TAMIL SYLLABLE TTU
+0B9F 0BC2	TAMIL SYLLABLE TTUU
+0B9F 0BC6	TAMIL SYLLABLE TTE
+0B9F 0BC7	TAMIL SYLLABLE TTEE
+0B9F 0BC8	TAMIL SYLLABLE TTAI
+0B9F 0BCA	TAMIL SYLLABLE TTO
+0B9F 0BCB	TAMIL SYLLABLE TTOO
+0B9F 0BCC	TAMIL SYLLABLE TTAU
+0BA3 0BBE	TAMIL SYLLABLE NNAA
+0BA3 0BBF	TAMIL SYLLABLE NNI
+0BA3 0BC0	TAMIL SYLLABLE NNII
+0BA3 0BC1	TAMIL SYLLABLE NNU
+0BA3 0BC2	TAMIL SYLLABLE NNUU
+0BA3 0BC6	TAMIL SYLLABLE NNE
+0BA3 0BC7	TAMIL SYLLABLE NNEE
+0BA3 0BC8	TAMIL SYLLABLE NNAI
+0BA3 0BCA	TAMIL SYLLABLE NNO
+0BA3 0BCB	TAMIL SYLLABLE NNOO
+0BA3 0BCC	TAMIL SYLLABLE NNAU
+0BA4 0BBE	TAMIL SYLLABLE TAA
+0BA4 0BBF	TAMIL SYLLABLE TI
+0BA4 0BC0	TAMIL SYLLABLE TII
+0BA4 0BC1	TAMIL SYLLABLE TU
+0BA4 0BC2	TAMIL SYLLABLE TUU
+0BA4 0BC6	TAMIL SYLLABLE TE
+0BA4 0BC7	TAMIL SYLLABLE TEE
+0BA4 0BC8	TAMIL SYLLABLE TAI
+0BA4 0BCA	TAMIL SYLLABLE TO
+0BA4 0BCB	TAMIL SYLLABLE TOO
+0BA4 0BCC	TAMIL SYLLABLE TAU
+0BA8 0BBE	TAMIL SYLLABLE NAA
+0BA8 0BBF	TAMIL SYLLABLE NI
+0BA8 0BC0	TAMIL SYLLABLE NII
+0BA8 0BC1	TAMIL SYLLABLE NU
+0BA8 0BC2	TAMIL SYLLABLE NUU
+0BA8 0BC6	TAMIL SYLLABLE NE
+0BA8 0BC7	TAMIL SYLLABLE NEE
+0BA8 0BC8	TAMIL SYLLABLE NAI
+0BA8 0BCA	TAMIL SYLLABLE NO
+0BA8 0BCB	TAMIL SYLLABLE NOO
+0BA8 0BCC	TAMIL SYLLABLE NAU
+0BAA 0BBE	TAMIL SYLLABLE PAA
+0BAA 0BBF	TAMIL SYLLABLE PI
+0BAA 0BC0	TAMIL SYLLABLE PII
+0BAA 0BC1	TAMIL SYLLABLE PU
+0BAA 0BC2	TAMIL SYLLABLE PUU
+0BAA 0BC6	TAMIL SYLLABLE PE
+0BAA 0BC7	TAMIL SYLLABLE PEE
+0BAA 0BC8	TAMIL SYLLABLE PAI
+0BAA 0BCA	TAMIL SYLLABLE PO
+0BAA 0BCB	TAMIL SYLLABLE POO
+0BAA 0BCC	TAMIL SYLLABLE PAU
+0BAE 0BBE	TAMIL SYLLABLE MAA
+0BAE 0BBF	TAMIL SYLLABLE MI
+0BAE 0BC0	TAMIL SYLLABLE MII
+0BAE 0BC1	TAMIL SYLLABLE MU
+0BAE 0BC2	TAMIL SYLLABLE MUU
+0BAE 0BC6	TAMIL SYLLABLE ME
+0BAE 0BC7	TAMIL SYLLABLE MEE
+0BAE 0BC8	TAMIL SYLLABLE MAI
+0BAE 0BCA	TAMIL SYLLABLE MO
+0BAE 0BCB	TAMIL SYLLABLE MOO
+0BAE 0BCC	TAMIL SYLLABLE MAU
+0BAF 0BBE	TAMIL SYLLABLE YAA
+0BAF 0BBF	TAMIL SYLLABLE YI
+0BAF 0BC0	TAMIL SYLLABLE YII
+0BAF 0BC1	TAMIL SYLLABLE YU
+0BAF 0BC2	TAMIL SYLLABLE YUU
+0BAF 0BC6	TAMIL SYLLABLE YE
+0BAF 0BC7	TAMIL SYLLABLE YEE
+0BAF 0BC8	TAMIL SYLLABLE YAI
+0BAF 0BCA	TAMIL SYLLABLE YO
+0BAF 0BCB	TAMIL SYLLABLE YOO
+0BAF 0BCC	TAMIL SYLLABLE YAU
+0BB0 0BBE	TAMIL SYLLABLE RAA
+0BB0 0BBF	TAMIL SYLLABLE RI
+0BB0 0BC0	TAMIL SYLLABLE RII
+0BB0 0BC1	TAMIL SYLLABLE RU
+0BB0 0BC2	TAMIL SYLLABLE RUU
+0BB0 0BC6	TAMIL SYLLABLE RE
+0BB0 0BC7	TAMIL SYLLABLE REE
+0BB0 0BC8	TAMIL SYLLABLE RAI
+0BB0 0BCA	TAMIL SYLLABLE RO
+0BB0 0BCB	TAMIL SYLLABLE ROO
+0BB0 0BCC	TAMIL SYLLABLE RAU
+0BB2 0BBE	TAMIL SYLLABLE LAA
+0BB2 0BBF	TAMIL SYLLABLE LI
+0BB2 0BC0	TAMIL SYLLABLE LII
+0BB2 0BC1	TAMIL SYLLABLE LU
+0BB2 0BC2	TAMIL SYLLABLE LUU
+0BB2 0BC6	TAMIL SYLLABLE LE
+0BB2 0BC7	TAMIL SYLLABLE LEE
+0BB2 0BC8	TAMIL SYLLABLE LAI
+0BB2 0BCA	TAMIL SYLLABLE LO
+0BB2 0BCB	TAMIL SYLLABLE LOO
+0BB2 0BCC	TAMIL SYLLABLE LAU
+0BB5 0BBE	TAMIL SYLLABLE VAA
+0BB5 0BBF	TAMIL SYLLABLE VI
+0BB5 0BC0	TAMIL SYLLABLE VII
+0BB5 0BC1	TAMIL SYLLABLE VU
+0BB5 0BC2	TAMIL SYLLABLE VUU
+0BB5 0BC6	TAMIL SYLLABLE VE
+0BB5 0BC7	TAMIL SYLLABLE VEE
+0BB5 0BC8	TAMIL SYLLABLE VAI
+0BB5 0BCA	TAMIL SYLLABLE VO
+0BB5 0BCB	TAMIL SYLLABLE VOO
+0BB5 0BCC	TAMIL SYLLABLE VAU
+0BB4 0BBE	TAMIL SYLLABLE LLLAA
+0BB4 0BBF	TAMIL SYLLABLE LLLI
+0BB4 0BC0	TAMIL SYLLABLE LLLII
+0BB4 0BC1	TAMIL SYLLABLE LLLU
+0BB4 0BC2	TAMIL SYLLABLE LLLUU
+0BB4 0BC6	TAMIL SYLLABLE LLLE
+0BB4 0BC7	TAMIL SYLLABLE LLLEE
+0BB4 0BC8	TAMIL SYLLABLE LLLAI
+0BB4 0BCA	TAMIL SYLLABLE LLLO
+0BB4 0BCB	TAMIL SYLLABLE LLLOO
+0BB4 0BCC	TAMIL SYLLABLE LLLAU
+0BB3 0BBE	TAMIL SYLLABLE LLAA
+0BB3 0BBF	TAMIL SYLLABLE LLI
+0BB3 0BC0	TAMIL SYLLABLE LLII
+0BB3 0BC1	TAMIL SYLLABLE LLU
+0BB3 0BC2	TAMIL SYLLABLE LLUU
+0BB3 0BC6	TAMIL SYLLABLE LLE
+0BB3 0BC7	TAMIL SYLLABLE LLEE
+0BB3 0BC8	TAMIL SYLLABLE LLAI
+0BB3 0BCA	TAMIL SYLLABLE LLO
+0BB3 0BCB	TAMIL SYLLABLE LLOO
+0BB3 0BCC	TAMIL SYLLABLE LLAU
+0BB1 0BBE	TAMIL SYLLABLE RRAA
+0BB1 0BBF	TAMIL SYLLABLE RRI
+0BB1 0BC0	TAMIL SYLLABLE RRII
+0BB1 0BC1	TAMIL SYLLABLE RRU
+0BB1 0BC2	TAMIL SYLLABLE RRUU
+0BB1 0BC6	TAMIL SYLLABLE RRE
+0BB1 0BC7	TAMIL SYLLABLE RREE
+0BB1 0BC8	TAMIL SYLLABLE RRAI
+0BB1 0BCA	TAMIL SYLLABLE RRO
+0BB1 0BCB	TAMIL SYLLABLE RROO
+0BB1 0BCC	TAMIL SYLLABLE RRAU
+0BA9 0BBE	TAMIL SYLLABLE NNNAA
+0BA9 0BBF	TAMIL SYLLABLE NNNI
+0BA9 0BC0	TAMIL SYLLABLE NNNII
+0BA9 0BC1	TAMIL SYLLABLE NNNU
+0BA9 0BC2	TAMIL SYLLABLE NNNUU
+0BA9 0BC6	TAMIL SYLLABLE NNNE
+0BA9 0BC7	TAMIL SYLLABLE NNNEE
+0BA9 0BC8	TAMIL SYLLABLE NNNAI
+0BA9 0BCA	TAMIL SYLLABLE NNNO
+0BA9 0BCB	TAMIL SYLLABLE NNNOO
+0BA9 0BCC	TAMIL SYLLABLE NNNAU
+0B9C 0BBE	TAMIL SYLLABLE JAA
+0B9C 0BBF	TAMIL SYLLABLE JI
+0B9C 0BC0	TAMIL SYLLABLE JII
+0B9C 0BC1	TAMIL SYLLABLE JU
+0B9C 0BC2	TAMIL SYLLABLE JUU
+0B9C 0BC6	TAMIL SYLLABLE JE
+0B9C 0BC7	TAMIL SYLLABLE JEE
+0B9C 0BC8	TAMIL SYLLABLE JAI
+0B9C 0BCA	TAMIL SYLLABLE JO
+0B9C 0BCB	TAMIL SYLLABLE JOO
+0B9C 0BCC	TAMIL SYLLABLE JAU
+0BB6 0BBE	TAMIL SYLLABLE SHAA
+0BB6 0BBF	TAMIL SYLLABLE SHI
+0BB6 0BC0	TAMIL SYLLABLE SHII
+0BB6 0BC1	TAMIL SYLLABLE SHU
+0BB6 0BC2	TAMIL SYLLABLE SHUU
+0BB6 0BC6	TAMIL SYLLABLE SHE
+0BB6 0BC7	TAMIL SYLLABLE SHEE
+0BB6 0BC8	TAMIL SYLLABLE SHAI
+0BB6 0BCA	TAMIL SYLLABLE SHO
+0BB6 0BCB	TAMIL SYLLABLE SHOO
+0BB6 0BCC	TAMIL SYLLABLE SHAU
+0BB7 0BBE	TAMIL SYLLABLE SSAA
+0BB7 0BBF	TAMIL SYLLABLE SSI
+0BB7 0BC0	TAMIL SYLLABLE SSII
+0BB7 0BC1	TAMIL SYLLABLE SSU
+0BB7 0BC2	TAMIL SYLLABLE SSUU
+0BB7 0BC6	TAMIL SYLLABLE SSE
+0BB7 0BC7	TAMIL SYLLABLE SSEE
+0BB7 0BC8	TAMIL SYLLABLE SSAI
+0BB7 0BCA	TAMIL SYLLABLE SSO
+0BB7 0BCB	TAMIL SYLLABLE SSOO
+0BB7 0BCC	TAMIL SYLLABLE SSAU
+0BB8 0BBE	TAMIL SYLLABLE SAA
+0BB8 0BBF	TAMIL SYLLABLE SI
+0BB8 0BC0	TAMIL SYLLABLE SII
+0BB8 0BC1	TAMIL SYLLABLE SU
+0BB8 0BC2	TAMIL SYLLABLE SUU
+0BB8 0BC6	TAMIL SYLLABLE SE
+0BB8 0BC7	TAMIL SYLLABLE SEE
+0BB8 0BC8	TAMIL SYLLABLE SAI
+0BB8 0BCA	TAMIL SYLLABLE SO
+0BB8 0BCB	TAMIL SYLLABLE SOO
+0BB8 0BCC	TAMIL SYLLABLE SAU
+0BB9 0BBE	TAMIL SYLLABLE HAA
+0BB9 0BBF	TAMIL SYLLABLE HI
+0BB9 0BC0	TAMIL SYLLABLE HII
+0BB9 0BC1	TAMIL SYLLABLE HU
+0BB9 0BC2	TAMIL SYLLABLE HUU
+0BB9 0BC6	TAMIL SYLLABLE HE
+0BB9 0BC7	TAMIL SYLLABLE HEE
+0BB9 0BC8	TAMIL SYLLABLE HAI
+0BB9 0BCA	TAMIL SYLLABLE HO
+0BB9 0BCB	TAMIL SYLLABLE HOO
+0BB9 0BCC	TAMIL SYLLABLE HAU
+0B95 0BCD 0BB7	TAMIL SYLLABLE KSSA
+0B95 0BCD 0BB7 0BBE	TAMIL SYLLABLE KSSAA
+0B95 0BCD 0BB7 0BBF	TAMIL SYLLABLE KSSI
+0B95 0BCD 0BB7 0BC0	TAMIL SYLLABLE KSSII
+0B95 0BCD 0BB7 0BC1	TAMIL SYLLABLE KSSU
+0B95 0BCD 0BB7 0BC2	TAMIL SYLLABLE KSSUU
+0B95 0BCD 0BB7 0BC6	TAMIL SYLLABLE KSSE
+0B95 0BCD 0BB7 0BC7	TAMIL SYLLABLE KSSEE
+0B95 0BCD 0BB7 0BC8	TAMIL SYLLABLE KSSAI
+0B95 0BCD 0BB7 0BCA	TAMIL SYLLABLE KSSO
+0B95 0BCD 0BB7 0BCB	TAMIL SYLLABLE KSSOO
+0B95 0BCD 0BB7 0BCC	TAMIL SYLLABLE KSSAU
+0BB6 0BCD 0BB0 0BC0	TAMIL SYLLABLE SHRII
+0DCA 200D 0DBA	SINHALA CONSONANT SIGN YANSAYA
+0DCA 200D 0DBB	SINHALA CONSONANT SIGN RAKAARAANSAYA
+0DBB 0DCA 200D	SINHALA CONSONANT SIGN REPAYA
+10E3 0302	GEORGIAN LETTER U-BRJGU
+17D2 1780	KHMER CONSONANT SIGN COENG KA
+17D2 1781	KHMER CONSONANT SIGN COENG KHA
+17D2 1782	KHMER CONSONANT SIGN COENG KO
+17D2 1783	KHMER CONSONANT SIGN COENG KHO
+17D2 1784	KHMER CONSONANT SIGN COENG NGO
+17D2 1785	KHMER CONSONANT SIGN COENG CA
+17D2 1786	KHMER CONSONANT SIGN COENG CHA
+17D2 1787	KHMER CONSONANT SIGN COENG CO
+17D2 1788	KHMER CONSONANT SIGN COENG CHO
+17D2 1789	KHMER CONSONANT SIGN COENG NYO
+17D2 178A	KHMER CONSONANT SIGN COENG DA
+17D2 178B	KHMER CONSONANT SIGN COENG TTHA
+17D2 178C	KHMER CONSONANT SIGN COENG DO
+17D2 178D	KHMER CONSONANT SIGN COENG TTHO
+17D2 178E	KHMER CONSONANT SIGN COENG NA
+17D2 178F	KHMER CONSONANT SIGN COENG TA
+17D2 1790	KHMER CONSONANT SIGN COENG THA
+17D2 1791	KHMER CONSONANT SIGN COENG TO
+17D2 1792	KHMER CONSONANT SIGN COENG THO
+17D2 1793	KHMER CONSONANT SIGN COENG NO
+17D2 1794	KHMER CONSONANT SIGN COENG BA
+17D2 1795	KHMER CONSONANT SIGN COENG PHA
+17D2 1796	KHMER CONSONANT SIGN COENG PO
+17D2 1797	KHMER CONSONANT SIGN COENG PHO
+17D2 1798	KHMER CONSONANT SIGN COENG MO
+17D2 1799	KHMER CONSONANT SIGN COENG YO
+17D2 179A	KHMER CONSONANT SIGN COENG RO
+17D2 179B	KHMER CONSONANT SIGN COENG LO
+17D2 179C	KHMER CONSONANT SIGN COENG VO
+17D2 179D	KHMER CONSONANT SIGN COENG SHA
+17D2 179E	KHMER CONSONANT SIGN COENG SSA
+17D2 179F	KHMER CONSONANT SIGN COENG SA
+17D2 17A0	KHMER CONSONANT SIGN COENG HA
+17D2 17A1	KHMER CONSONANT SIGN COENG LA
+17D2 17A2	KHMER VOWEL SIGN COENG QA
+17D2 17A7	KHMER INDEPENDENT VOWEL SIGN COENG QU
+17D2 17AB	KHMER INDEPENDENT VOWEL SIGN COENG RY
+17D2 17AC	KHMER INDEPENDENT VOWEL SIGN COENG RYY
+17D2 17AF	KHMER INDEPENDENT VOWEL SIGN COENG QE
+17BB 17C6	KHMER VOWEL SIGN OM
+17B6 17C6	KHMER VOWEL SIGN AAM
+304B 309A	HIRAGANA LETTER BIDAKUON NGA
+304D 309A	HIRAGANA LETTER BIDAKUON NGI
+304F 309A	HIRAGANA LETTER BIDAKUON NGU
+3051 309A	HIRAGANA LETTER BIDAKUON NGE
+3053 309A	HIRAGANA LETTER BIDAKUON NGO
+30AB 309A	KATAKANA LETTER BIDAKUON NGA
+30AD 309A	KATAKANA LETTER BIDAKUON NGI
+30AF 309A	KATAKANA LETTER BIDAKUON NGU
+30B1 309A	KATAKANA LETTER BIDAKUON NGE
+30B3 309A	KATAKANA LETTER BIDAKUON NGO
+30BB 309A	KATAKANA LETTER AINU CE
+30C4 309A	KATAKANA LETTER AINU TU
+30C8 309A	KATAKANA LETTER AINU TO
+31F7 309A	KATAKANA LETTER AINU P
+02E5 02E9	MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR
+02E9 02E5	MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR
+END
+10.0.0
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+package charnames;
+
+# This module contains machine-generated tables and code for the
+# algorithmically-determinable Unicode character names.  The following
+# routines can be used to translate between name and code point and vice versa
+
+{ # Closure
+
+    # Matches legal code point.  4-6 hex numbers, If there are 6, the first
+    # two must be 10; if there are 5, the first must not be a 0.  Written this
+    # way to decrease backtracking.  The first regex allows the code point to
+    # be at the end of a word, but to work properly, the word shouldn't end
+    # with a valid hex character.  The second one won't match a code point at
+    # the end of a word, and doesn't have the run-on issue
+    my $run_on_code_point_re = qr/(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b)/;
+    my $code_point_re = qr/(?^aa:\b(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b))/;
+
+    # In the following hash, the keys are the bases of names which include
+    # the code point in the name, like CJK UNIFIED IDEOGRAPH-4E01.  The value
+    # of each key is another hash which is used to get the low and high ends
+    # for each range of code points that apply to the name.
+    my %names_ending_in_code_point = (
+'CJK COMPATIBILITY IDEOGRAPH' => 
+{
+'high' => 
+[
+64109,
+64217,
+195101,
+],
+'low' => 
+[
+63744,
+64112,
+194560,
+],
+},
+'CJK UNIFIED IDEOGRAPH' => 
+{
+'high' => 
+[
+19893,
+40938,
+173782,
+177972,
+178205,
+183969,
+191456,
+],
+'low' => 
+[
+13312,
+19968,
+131072,
+173824,
+177984,
+178208,
+183984,
+],
+},
+'NUSHU CHARACTER' => 
+{
+'high' => 
+[
+111355,
+],
+'low' => 
+[
+110960,
+],
+},
+'TANGUT IDEOGRAPH' => 
+{
+'high' => 
+[
+100332,
+],
+'low' => 
+[
+94208,
+],
+},
+
+    );
+
+    # The following hash is a copy of the previous one, except is for loose
+    # matching, so each name has blanks and dashes squeezed out
+    my %loose_names_ending_in_code_point = (
+'CJKCOMPATIBILITYIDEOGRAPH' => 
+{
+'high' => 
+[
+64109,
+64217,
+195101,
+],
+'low' => 
+[
+63744,
+64112,
+194560,
+],
+},
+'CJKUNIFIEDIDEOGRAPH' => 
+{
+'high' => 
+[
+19893,
+40938,
+173782,
+177972,
+178205,
+183969,
+191456,
+],
+'low' => 
+[
+13312,
+19968,
+131072,
+173824,
+177984,
+178208,
+183984,
+],
+},
+'NUSHUCHARACTER' => 
+{
+'high' => 
+[
+111355,
+],
+'low' => 
+[
+110960,
+],
+},
+'TANGUTIDEOGRAPH' => 
+{
+'high' => 
+[
+100332,
+],
+'low' => 
+[
+94208,
+],
+},
+
+    );
+
+    # And the following array gives the inverse mapping from code points to
+    # names.  Lowest code points are first
+    my @code_points_ending_in_code_point = (
+
+{
+'high' => 19893,
+'low' => 13312,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 40938,
+'low' => 19968,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 64109,
+'low' => 63744,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+{
+'high' => 64217,
+'low' => 64112,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+{
+'high' => 100332,
+'low' => 94208,
+'name' => 'TANGUT IDEOGRAPH',
+},
+{
+'high' => 111355,
+'low' => 110960,
+'name' => 'NUSHU CHARACTER',
+},
+{
+'high' => 173782,
+'low' => 131072,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 177972,
+'low' => 173824,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 178205,
+'low' => 177984,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 183969,
+'low' => 178208,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 191456,
+'low' => 183984,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 195101,
+'low' => 194560,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+,
+
+    );
+
+    # Convert from code point to Jamo short name for use in composing Hangul
+    # syllable names
+    my %Jamo = (
+4352 => 'G',
+4353 => 'GG',
+4354 => 'N',
+4355 => 'D',
+4356 => 'DD',
+4357 => 'R',
+4358 => 'M',
+4359 => 'B',
+4360 => 'BB',
+4361 => 'S',
+4362 => 'SS',
+4363 => '',
+4364 => 'J',
+4365 => 'JJ',
+4366 => 'C',
+4367 => 'K',
+4368 => 'T',
+4369 => 'P',
+4370 => 'H',
+4449 => 'A',
+4450 => 'AE',
+4451 => 'YA',
+4452 => 'YAE',
+4453 => 'EO',
+4454 => 'E',
+4455 => 'YEO',
+4456 => 'YE',
+4457 => 'O',
+4458 => 'WA',
+4459 => 'WAE',
+4460 => 'OE',
+4461 => 'YO',
+4462 => 'U',
+4463 => 'WEO',
+4464 => 'WE',
+4465 => 'WI',
+4466 => 'YU',
+4467 => 'EU',
+4468 => 'YI',
+4469 => 'I',
+4520 => 'G',
+4521 => 'GG',
+4522 => 'GS',
+4523 => 'N',
+4524 => 'NJ',
+4525 => 'NH',
+4526 => 'D',
+4527 => 'L',
+4528 => 'LG',
+4529 => 'LM',
+4530 => 'LB',
+4531 => 'LS',
+4532 => 'LT',
+4533 => 'LP',
+4534 => 'LH',
+4535 => 'M',
+4536 => 'B',
+4537 => 'BS',
+4538 => 'S',
+4539 => 'SS',
+4540 => 'NG',
+4541 => 'J',
+4542 => 'C',
+4543 => 'K',
+4544 => 'T',
+4545 => 'P',
+4546 => 'H',
+
+    );
+
+    # Leading consonant (can be null)
+    my %Jamo_L = (
+'' => 11,
+'B' => 7,
+'BB' => 8,
+'C' => 14,
+'D' => 3,
+'DD' => 4,
+'G' => 0,
+'GG' => 1,
+'H' => 18,
+'J' => 12,
+'JJ' => 13,
+'K' => 15,
+'M' => 6,
+'N' => 2,
+'P' => 17,
+'R' => 5,
+'S' => 9,
+'SS' => 10,
+'T' => 16,
+
+    );
+
+    # Vowel
+    my %Jamo_V = (
+'A' => 0,
+'AE' => 1,
+'E' => 5,
+'EO' => 4,
+'EU' => 18,
+'I' => 20,
+'O' => 8,
+'OE' => 11,
+'U' => 13,
+'WA' => 9,
+'WAE' => 10,
+'WE' => 15,
+'WEO' => 14,
+'WI' => 16,
+'YA' => 2,
+'YAE' => 3,
+'YE' => 7,
+'YEO' => 6,
+'YI' => 19,
+'YO' => 12,
+'YU' => 17,
+
+    );
+
+    # Optional trailing consonant
+    my %Jamo_T = (
+'B' => 17,
+'BS' => 18,
+'C' => 23,
+'D' => 7,
+'G' => 1,
+'GG' => 2,
+'GS' => 3,
+'H' => 27,
+'J' => 22,
+'K' => 24,
+'L' => 8,
+'LB' => 11,
+'LG' => 9,
+'LH' => 15,
+'LM' => 10,
+'LP' => 14,
+'LS' => 12,
+'LT' => 13,
+'M' => 16,
+'N' => 4,
+'NG' => 21,
+'NH' => 6,
+'NJ' => 5,
+'P' => 26,
+'S' => 19,
+'SS' => 20,
+'T' => 25,
+
+    );
+
+    # Computed re that splits up a Hangul name into LVT or LV syllables
+    my $syllable_re = qr/(|B|BB|C|D|DD|G|GG|H|J|JJ|K|M|N|P|R|S|SS|T)(A|AE|E|EO|EU|I|O|OE|U|WA|WAE|WE|WEO|WI|YA|YAE|YE|YEO|YI|YO|YU)(B|BS|C|D|G|GG|GS|H|J|K|L|LB|LG|LH|LM|LP|LS|LT|M|N|NG|NH|NJ|P|S|SS|T)?/;
+
+    my $HANGUL_SYLLABLE = "HANGUL SYLLABLE ";
+    my $loose_HANGUL_SYLLABLE = "HANGULSYLLABLE";
+
+    # These constants names and values were taken from the Unicode standard,
+    # version 5.1, section 3.12.  They are used in conjunction with Hangul
+    # syllables
+    my $SBase = 0xAC00;
+    my $LBase = 0x1100;
+    my $VBase = 0x1161;
+    my $TBase = 0x11A7;
+    my $SCount = 11172;
+    my $LCount = 19;
+    my $VCount = 21;
+    my $TCount = 28;
+    my $NCount = $VCount * $TCount;
+
+    sub name_to_code_point_special {
+        my ($name, $loose) = @_;
+
+        # Returns undef if not one of the specially handled names; otherwise
+        # returns the code point equivalent to the input name
+        # $loose is non-zero if to use loose matching, 'name' in that case
+        # must be input as upper case with all blanks and dashes squeezed out.
+
+        if ((! $loose && $name =~ s/$HANGUL_SYLLABLE//)
+            || ($loose && $name =~ s/$loose_HANGUL_SYLLABLE//))
+        {
+            return if $name !~ qr/^$syllable_re$/;
+            my $L = $Jamo_L{$1};
+            my $V = $Jamo_V{$2};
+            my $T = (defined $3) ? $Jamo_T{$3} : 0;
+            return ($L * $VCount + $V) * $TCount + $T + $SBase;
+        }
+
+        # Name must end in 'code_point' for this to handle.
+        return if (($loose && $name !~ /^ (.*?) ($run_on_code_point_re) $/x)
+                   || (! $loose && $name !~ /^ (.*) ($code_point_re) $/x));
+
+        my $base = $1;
+        my $code_point = CORE::hex $2;
+        my $names_ref;
+
+        if ($loose) {
+            $names_ref = \%loose_names_ending_in_code_point;
+        }
+        else {
+            return if $base !~ s/-$//;
+            $names_ref = \%names_ending_in_code_point;
+        }
+
+        # Name must be one of the ones which has the code point in it.
+        return if ! $names_ref->{$base};
+
+        # Look through the list of ranges that apply to this name to see if
+        # the code point is in one of them.
+        for (my $i = 0; $i < scalar @{$names_ref->{$base}{'low'}}; $i++) {
+            return if $names_ref->{$base}{'low'}->[$i] > $code_point;
+            next if $names_ref->{$base}{'high'}->[$i] < $code_point;
+
+            # Here, the code point is in the range.
+            return $code_point;
+        }
+
+        # Here, looked like the name had a code point number in it, but
+        # did not match one of the valid ones.
+        return;
+    }
+
+    sub code_point_to_name_special {
+        my $code_point = shift;
+
+        # Returns the name of a code point if algorithmically determinable;
+        # undef if not
+
+        # If in the Hangul range, calculate the name based on Unicode's
+        # algorithm
+        if ($code_point >= $SBase && $code_point <= $SBase + $SCount -1) {
+            use integer;
+            my $SIndex = $code_point - $SBase;
+            my $L = $LBase + $SIndex / $NCount;
+            my $V = $VBase + ($SIndex % $NCount) / $TCount;
+            my $T = $TBase + $SIndex % $TCount;
+            $name = "$HANGUL_SYLLABLE$Jamo{$L}$Jamo{$V}";
+            $name .= $Jamo{$T} if $T != $TBase;
+            return $name;
+        }
+
+        # Look through list of these code points for one in range.
+        foreach my $hash (@code_points_ending_in_code_point) {
+            return if $code_point < $hash->{'low'};
+            if ($code_point <= $hash->{'high'}) {
+                return sprintf("%s-%04X", $hash->{'name'}, $code_point);
+            }
+        }
+        return;            # None found
+    }
+} # End closure
+
+1;
+# Blocks-10.0.0.txt
+# Date: 2017-04-12, 17:30:00 GMT [KW]
+# © 2017 Unicode®, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+#
+# Unicode Character Database
+# For documentation, see http://www.unicode.org/reports/tr44/
+#
+# Format:
+# Start Code..End Code; Block Name
+
+# ================================================
+
+# Note:   When comparing block names, casing, whitespace, hyphens,
+#         and underbars are ignored.
+#         For example, "Latin Extended-A" and "latin extended a" are equivalent.
+#         For more information on the comparison of property values,
+#            see UAX #44: http://www.unicode.org/reports/tr44/
+#
+#  All block ranges start with a value where (cp MOD 16) = 0,
+#  and end with a value where (cp MOD 16) = 15. In other words,
+#  the last hexadecimal digit of the start of range is ...0
+#  and the last hexadecimal digit of the end of range is ...F.
+#  This constraint on block ranges guarantees that allocations
+#  are done in terms of whole columns, and that code chart display
+#  never involves splitting columns in the charts.
+#
+#  All code points not explicitly listed for Block
+#  have the value No_Block.
+
+# Property:	Block
+#
+# @missing: 0000..10FFFF; No_Block
+
+0000..007F; Basic Latin
+0080..00FF; Latin-1 Supplement
+0100..017F; Latin Extended-A
+0180..024F; Latin Extended-B
+0250..02AF; IPA Extensions
+02B0..02FF; Spacing Modifier Letters
+0300..036F; Combining Diacritical Marks
+0370..03FF; Greek and Coptic
+0400..04FF; Cyrillic
+0500..052F; Cyrillic Supplement
+0530..058F; Armenian
+0590..05FF; Hebrew
+0600..06FF; Arabic
+0700..074F; Syriac
+0750..077F; Arabic Supplement
+0780..07BF; Thaana
+07C0..07FF; NKo
+0800..083F; Samaritan
+0840..085F; Mandaic
+0860..086F; Syriac Supplement
+08A0..08FF; Arabic Extended-A
+0900..097F; Devanagari
+0980..09FF; Bengali
+0A00..0A7F; Gurmukhi
+0A80..0AFF; Gujarati
+0B00..0B7F; Oriya
+0B80..0BFF; Tamil
+0C00..0C7F; Telugu
+0C80..0CFF; Kannada
+0D00..0D7F; Malayalam
+0D80..0DFF; Sinhala
+0E00..0E7F; Thai
+0E80..0EFF; Lao
+0F00..0FFF; Tibetan
+1000..109F; Myanmar
+10A0..10FF; Georgian
+1100..11FF; Hangul Jamo
+1200..137F; Ethiopic
+1380..139F; Ethiopic Supplement
+13A0..13FF; Cherokee
+1400..167F; Unified Canadian Aboriginal Syllabics
+1680..169F; Ogham
+16A0..16FF; Runic
+1700..171F; Tagalog
+1720..173F; Hanunoo
+1740..175F; Buhid
+1760..177F; Tagbanwa
+1780..17FF; Khmer
+1800..18AF; Mongolian
+18B0..18FF; Unified Canadian Aboriginal Syllabics Extended
+1900..194F; Limbu
+1950..197F; Tai Le
+1980..19DF; New Tai Lue
+19E0..19FF; Khmer Symbols
+1A00..1A1F; Buginese
+1A20..1AAF; Tai Tham
+1AB0..1AFF; Combining Diacritical Marks Extended
+1B00..1B7F; Balinese
+1B80..1BBF; Sundanese
+1BC0..1BFF; Batak
+1C00..1C4F; Lepcha
+1C50..1C7F; Ol Chiki
+1C80..1C8F; Cyrillic Extended-C
+1CC0..1CCF; Sundanese Supplement
+1CD0..1CFF; Vedic Extensions
+1D00..1D7F; Phonetic Extensions
+1D80..1DBF; Phonetic Extensions Supplement
+1DC0..1DFF; Combining Diacritical Marks Supplement
+1E00..1EFF; Latin Extended Additional
+1F00..1FFF; Greek Extended
+2000..206F; General Punctuation
+2070..209F; Superscripts and Subscripts
+20A0..20CF; Currency Symbols
+20D0..20FF; Combining Diacritical Marks for Symbols
+2100..214F; Letterlike Symbols
+2150..218F; Number Forms
+2190..21FF; Arrows
+2200..22FF; Mathematical Operators
+2300..23FF; Miscellaneous Technical
+2400..243F; Control Pictures
+2440..245F; Optical Character Recognition
+2460..24FF; Enclosed Alphanumerics
+2500..257F; Box Drawing
+2580..259F; Block Elements
+25A0..25FF; Geometric Shapes
+2600..26FF; Miscellaneous Symbols
+2700..27BF; Dingbats
+27C0..27EF; Miscellaneous Mathematical Symbols-A
+27F0..27FF; Supplemental Arrows-A
+2800..28FF; Braille Patterns
+2900..297F; Supplemental Arrows-B
+2980..29FF; Miscellaneous Mathematical Symbols-B
+2A00..2AFF; Supplemental Mathematical Operators
+2B00..2BFF; Miscellaneous Symbols and Arrows
+2C00..2C5F; Glagolitic
+2C60..2C7F; Latin Extended-C
+2C80..2CFF; Coptic
+2D00..2D2F; Georgian Supplement
+2D30..2D7F; Tifinagh
+2D80..2DDF; Ethiopic Extended
+2DE0..2DFF; Cyrillic Extended-A
+2E00..2E7F; Supplemental Punctuation
+2E80..2EFF; CJK Radicals Supplement
+2F00..2FDF; Kangxi Radicals
+2FF0..2FFF; Ideographic Description Characters
+3000..303F; CJK Symbols and Punctuation
+3040..309F; Hiragana
+30A0..30FF; Katakana
+3100..312F; Bopomofo
+3130..318F; Hangul Compatibility Jamo
+3190..319F; Kanbun
+31A0..31BF; Bopomofo Extended
+31C0..31EF; CJK Strokes
+31F0..31FF; Katakana Phonetic Extensions
+3200..32FF; Enclosed CJK Letters and Months
+3300..33FF; CJK Compatibility
+3400..4DBF; CJK Unified Ideographs Extension A
+4DC0..4DFF; Yijing Hexagram Symbols
+4E00..9FFF; CJK Unified Ideographs
+A000..A48F; Yi Syllables
+A490..A4CF; Yi Radicals
+A4D0..A4FF; Lisu
+A500..A63F; Vai
+A640..A69F; Cyrillic Extended-B
+A6A0..A6FF; Bamum
+A700..A71F; Modifier Tone Letters
+A720..A7FF; Latin Extended-D
+A800..A82F; Syloti Nagri
+A830..A83F; Common Indic Number Forms
+A840..A87F; Phags-pa
+A880..A8DF; Saurashtra
+A8E0..A8FF; Devanagari Extended
+A900..A92F; Kayah Li
+A930..A95F; Rejang
+A960..A97F; Hangul Jamo Extended-A
+A980..A9DF; Javanese
+A9E0..A9FF; Myanmar Extended-B
+AA00..AA5F; Cham
+AA60..AA7F; Myanmar Extended-A
+AA80..AADF; Tai Viet
+AAE0..AAFF; Meetei Mayek Extensions
+AB00..AB2F; Ethiopic Extended-A
+AB30..AB6F; Latin Extended-E
+AB70..ABBF; Cherokee Supplement
+ABC0..ABFF; Meetei Mayek
+AC00..D7AF; Hangul Syllables
+D7B0..D7FF; Hangul Jamo Extended-B
+D800..DB7F; High Surrogates
+DB80..DBFF; High Private Use Surrogates
+DC00..DFFF; Low Surrogates
+E000..F8FF; Private Use Area
+F900..FAFF; CJK Compatibility Ideographs
+FB00..FB4F; Alphabetic Presentation Forms
+FB50..FDFF; Arabic Presentation Forms-A
+FE00..FE0F; Variation Selectors
+FE10..FE1F; Vertical Forms
+FE20..FE2F; Combining Half Marks
+FE30..FE4F; CJK Compatibility Forms
+FE50..FE6F; Small Form Variants
+FE70..FEFF; Arabic Presentation Forms-B
+FF00..FFEF; Halfwidth and Fullwidth Forms
+FFF0..FFFF; Specials
+10000..1007F; Linear B Syllabary
+10080..100FF; Linear B Ideograms
+10100..1013F; Aegean Numbers
+10140..1018F; Ancient Greek Numbers
+10190..101CF; Ancient Symbols
+101D0..101FF; Phaistos Disc
+10280..1029F; Lycian
+102A0..102DF; Carian
+102E0..102FF; Coptic Epact Numbers
+10300..1032F; Old Italic
+10330..1034F; Gothic
+10350..1037F; Old Permic
+10380..1039F; Ugaritic
+103A0..103DF; Old Persian
+10400..1044F; Deseret
+10450..1047F; Shavian
+10480..104AF; Osmanya
+104B0..104FF; Osage
+10500..1052F; Elbasan
+10530..1056F; Caucasian Albanian
+10600..1077F; Linear A
+10800..1083F; Cypriot Syllabary
+10840..1085F; Imperial Aramaic
+10860..1087F; Palmyrene
+10880..108AF; Nabataean
+108E0..108FF; Hatran
+10900..1091F; Phoenician
+10920..1093F; Lydian
+10980..1099F; Meroitic Hieroglyphs
+109A0..109FF; Meroitic Cursive
+10A00..10A5F; Kharoshthi
+10A60..10A7F; Old South Arabian
+10A80..10A9F; Old North Arabian
+10AC0..10AFF; Manichaean
+10B00..10B3F; Avestan
+10B40..10B5F; Inscriptional Parthian
+10B60..10B7F; Inscriptional Pahlavi
+10B80..10BAF; Psalter Pahlavi
+10C00..10C4F; Old Turkic
+10C80..10CFF; Old Hungarian
+10E60..10E7F; Rumi Numeral Symbols
+11000..1107F; Brahmi
+11080..110CF; Kaithi
+110D0..110FF; Sora Sompeng
+11100..1114F; Chakma
+11150..1117F; Mahajani
+11180..111DF; Sharada
+111E0..111FF; Sinhala Archaic Numbers
+11200..1124F; Khojki
+11280..112AF; Multani
+112B0..112FF; Khudawadi
+11300..1137F; Grantha
+11400..1147F; Newa
+11480..114DF; Tirhuta
+11580..115FF; Siddham
+11600..1165F; Modi
+11660..1167F; Mongolian Supplement
+11680..116CF; Takri
+11700..1173F; Ahom
+118A0..118FF; Warang Citi
+11A00..11A4F; Zanabazar Square
+11A50..11AAF; Soyombo
+11AC0..11AFF; Pau Cin Hau
+11C00..11C6F; Bhaiksuki
+11C70..11CBF; Marchen
+11D00..11D5F; Masaram Gondi
+12000..123FF; Cuneiform
+12400..1247F; Cuneiform Numbers and Punctuation
+12480..1254F; Early Dynastic Cuneiform
+13000..1342F; Egyptian Hieroglyphs
+14400..1467F; Anatolian Hieroglyphs
+16800..16A3F; Bamum Supplement
+16A40..16A6F; Mro
+16AD0..16AFF; Bassa Vah
+16B00..16B8F; Pahawh Hmong
+16F00..16F9F; Miao
+16FE0..16FFF; Ideographic Symbols and Punctuation
+17000..187FF; Tangut
+18800..18AFF; Tangut Components
+1B000..1B0FF; Kana Supplement
+1B100..1B12F; Kana Extended-A
+1B170..1B2FF; Nushu
+1BC00..1BC9F; Duployan
+1BCA0..1BCAF; Shorthand Format Controls
+1D000..1D0FF; Byzantine Musical Symbols
+1D100..1D1FF; Musical Symbols
+1D200..1D24F; Ancient Greek Musical Notation
+1D300..1D35F; Tai Xuan Jing Symbols
+1D360..1D37F; Counting Rod Numerals
+1D400..1D7FF; Mathematical Alphanumeric Symbols
+1D800..1DAAF; Sutton SignWriting
+1E000..1E02F; Glagolitic Supplement
+1E800..1E8DF; Mende Kikakui
+1E900..1E95F; Adlam
+1EE00..1EEFF; Arabic Mathematical Alphabetic Symbols
+1F000..1F02F; Mahjong Tiles
+1F030..1F09F; Domino Tiles
+1F0A0..1F0FF; Playing Cards
+1F100..1F1FF; Enclosed Alphanumeric Supplement
+1F200..1F2FF; Enclosed Ideographic Supplement
+1F300..1F5FF; Miscellaneous Symbols and Pictographs
+1F600..1F64F; Emoticons
+1F650..1F67F; Ornamental Dingbats
+1F680..1F6FF; Transport and Map Symbols
+1F700..1F77F; Alchemical Symbols
+1F780..1F7FF; Geometric Shapes Extended
+1F800..1F8FF; Supplemental Arrows-C
+1F900..1F9FF; Supplemental Symbols and Pictographs
+20000..2A6DF; CJK Unified Ideographs Extension B
+2A700..2B73F; CJK Unified Ideographs Extension C
+2B740..2B81F; CJK Unified Ideographs Extension D
+2B820..2CEAF; CJK Unified Ideographs Extension E
+2CEB0..2EBEF; CJK Unified Ideographs Extension F
+2F800..2FA1F; CJK Compatibility Ideographs Supplement
+E0000..E007F; Tags
+E0100..E01EF; Variation Selectors Supplement
+F0000..FFFFF; Supplementary Private Use Area-A
+100000..10FFFF; Supplementary Private Use Area-B
+
+# EOF
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# This file is for the use of utf8_heavy.pl and Unicode::UCD
+
+# Maps Unicode (not Perl single-form extensions) property names in loose
+# standard form to their corresponding standard names
+%utf8::loose_property_name_of = (
+'age' => 'age',
+'ahex' => 'ahex',
+'alpha' => 'alpha',
+'alphabetic' => 'alpha',
+'asciihexdigit' => 'ahex',
+'bc' => 'bc',
+'bidic' => 'bidic',
+'bidiclass' => 'bc',
+'bidicontrol' => 'bidic',
+'bidim' => 'bidim',
+'bidimirrored' => 'bidim',
+'bidipairedbrackettype' => 'bpt',
+'blk' => 'blk',
+'block' => 'blk',
+'bpt' => 'bpt',
+'canonicalcombiningclass' => 'ccc',
+'cased' => 'cased',
+'caseignorable' => 'ci',
+'category' => 'gc',
+'ccc' => 'ccc',
+'ce' => 'ce',
+'changeswhencasefolded' => 'cwcf',
+'changeswhencasemapped' => 'cwcm',
+'changeswhenlowercased' => 'cwl',
+'changeswhennfkccasefolded' => 'cwkcf',
+'changeswhentitlecased' => 'cwt',
+'changeswhenuppercased' => 'cwu',
+'ci' => 'ci',
+'compex' => 'compex',
+'compositionexclusion' => 'ce',
+'cwcf' => 'cwcf',
+'cwcm' => 'cwcm',
+'cwkcf' => 'cwkcf',
+'cwl' => 'cwl',
+'cwt' => 'cwt',
+'cwu' => 'cwu',
+'dash' => 'dash',
+'decompositiontype' => 'dt',
+'defaultignorablecodepoint' => 'di',
+'dep' => 'dep',
+'deprecated' => 'dep',
+'di' => 'di',
+'dia' => 'dia',
+'diacritic' => 'dia',
+'dt' => 'dt',
+'ea' => 'ea',
+'eastasianwidth' => 'ea',
+'ext' => 'ext',
+'extender' => 'ext',
+'fullcompositionexclusion' => 'compex',
+'gc' => 'gc',
+'gcb' => 'gcb',
+'generalcategory' => 'gc',
+'graphemebase' => 'grbase',
+'graphemeclusterbreak' => 'gcb',
+'graphemeextend' => 'grext',
+'grbase' => 'grbase',
+'grext' => 'grext',
+'hangulsyllabletype' => 'hst',
+'hex' => 'hex',
+'hexdigit' => 'hex',
+'hst' => 'hst',
+'hyphen' => 'hyphen',
+'idc' => 'idc',
+'idcontinue' => 'idc',
+'ideo' => 'ideo',
+'ideographic' => 'ideo',
+'ids' => 'ids',
+'idsb' => 'idsb',
+'idsbinaryoperator' => 'idsb',
+'idst' => 'idst',
+'idstart' => 'ids',
+'idstrinaryoperator' => 'idst',
+'in' => 'in',
+'indicpositionalcategory' => 'inpc',
+'indicsyllabiccategory' => 'insc',
+'inpc' => 'inpc',
+'insc' => 'insc',
+'jg' => 'jg',
+'joinc' => 'joinc',
+'joincontrol' => 'joinc',
+'joininggroup' => 'jg',
+'joiningtype' => 'jt',
+'jt' => 'jt',
+'lb' => 'lb',
+'linebreak' => 'lb',
+'loe' => 'loe',
+'logicalorderexception' => 'loe',
+'lower' => 'lower',
+'lowercase' => 'lower',
+'math' => 'math',
+'nchar' => 'nchar',
+'nfcqc' => 'nfcqc',
+'nfcquickcheck' => 'nfcqc',
+'nfdqc' => 'nfdqc',
+'nfdquickcheck' => 'nfdqc',
+'nfkcqc' => 'nfkcqc',
+'nfkcquickcheck' => 'nfkcqc',
+'nfkdqc' => 'nfkdqc',
+'nfkdquickcheck' => 'nfkdqc',
+'noncharactercodepoint' => 'nchar',
+'nt' => 'nt',
+'numerictype' => 'nt',
+'numericvalue' => 'nv',
+'nv' => 'nv',
+'patsyn' => 'patsyn',
+'patternsyntax' => 'patsyn',
+'patternwhitespace' => 'patws',
+'patws' => 'patws',
+'pcm' => 'pcm',
+'prependedconcatenationmark' => 'pcm',
+'presentin' => 'in',
+'qmark' => 'qmark',
+'quotationmark' => 'qmark',
+'radical' => 'radical',
+'regionalindicator' => 'ri',
+'ri' => 'ri',
+'sb' => 'sb',
+'sc' => 'sc',
+'script' => 'sc',
+'scriptextensions' => 'scx',
+'scx' => 'scx',
+'sd' => 'sd',
+'sentencebreak' => 'sb',
+'sentenceterminal' => 'sterm',
+'softdotted' => 'sd',
+'space' => 'wspace',
+'sterm' => 'sterm',
+'term' => 'term',
+'terminalpunctuation' => 'term',
+'uideo' => 'uideo',
+'unifiedideograph' => 'uideo',
+'upper' => 'upper',
+'uppercase' => 'upper',
+'variationselector' => 'vs',
+'verticalorientation' => 'vo',
+'vo' => 'vo',
+'vs' => 'vs',
+'wb' => 'wb',
+'whitespace' => 'wspace',
+'wordbreak' => 'wb',
+'wspace' => 'wspace',
+'xidc' => 'xidc',
+'xidcontinue' => 'xidc',
+'xids' => 'xids',
+'xidstart' => 'xids',
+);
+
+# Same, but strict names
+%utf8::strict_property_name_of = (
+'_perlgcb' => 'gcb',
+'_perlsb' => 'sb',
+'_perlscx' => '_perlscx',
+);
+
+# Gives the definitions (in the form of inversion lists) for those properties
+# whose definitions aren't kept in files
+@utf8::inline_definitions = (
+
+'V0',
+'V1
+0',
+'V2
+0
+1114112',
+'V4
+9
+14
+32
+33',
+'V6
+10
+14
+133
+134
+8232
+8234',
+'V6
+48
+58
+65
+91
+97
+123',
+'V4
+65
+91
+97
+123',
+'V4
+9
+10
+32
+33',
+'V4
+0
+32
+127
+128',
+'V2
+48
+58',
+'V2
+33
+127',
+'V2
+97
+123',
+'V2
+32
+127',
+'V2
+65
+91',
+'V2
+55296
+57344',
+'V2
+12334
+12336',
+'V2
+119149
+119150',
+'V2
+12330
+12331',
+'V6
+861
+863
+864
+866
+7629
+7630',
+'V2
+837
+838',
+'V2
+12441
+12443',
+'V2
+7630
+7631',
+'V6
+801
+803
+807
+809
+7632
+7633',
+'V2
+1456
+1457',
+'V2
+1457
+1458',
+'V2
+1458
+1459',
+'V2
+1459
+1460',
+'V2
+1460
+1461',
+'V2
+1461
+1462',
+'V2
+1462
+1463',
+'V2
+1463
+1464',
+'V4
+1464
+1465
+1479
+1480',
+'V2
+1465
+1467',
+'V2
+1467
+1468',
+'V2
+1468
+1469',
+'V2
+1469
+1470',
+'V2
+1471
+1472',
+'V2
+1473
+1474',
+'V2
+1474
+1475',
+'V2
+64286
+64287',
+'V4
+1611
+1612
+2288
+2289',
+'V4
+1612
+1613
+2289
+2290',
+'V4
+1613
+1614
+2290
+2291',
+'V4
+1560
+1561
+1614
+1615',
+'V4
+1561
+1562
+1615
+1616',
+'V4
+1562
+1563
+1616
+1617',
+'V2
+1617
+1618',
+'V2
+1618
+1619',
+'V2
+1648
+1649',
+'V2
+1809
+1810',
+'V2
+3157
+3158',
+'V2
+3158
+3159',
+'V2
+3640
+3642',
+'V2
+3656
+3660',
+'V2
+3768
+3770',
+'V2
+3784
+3788',
+'V2
+3953
+3954',
+'V6
+3954
+3955
+3962
+3966
+3968
+3969',
+'V2
+3956
+3957',
+'V6
+48
+58
+65
+71
+97
+103',
+'V4
+4352
+4448
+43360
+43389',
+'V4
+4520
+4608
+55243
+55292',
+'V4
+4448
+4520
+55216
+55239',
+'V2
+13
+14',
+'V2
+127995
+128000',
+'V2
+10
+11',
+'V2
+127462
+127488',
+'V2
+128102
+128106',
+'V2
+8205
+8206',
+'V4
+12272
+12274
+12276
+12284',
+'V5
+0
+12272
+12274
+12276
+12284',
+'V2
+12274
+12276',
+'V3
+0
+12274
+12276',
+'V2
+43455
+43456',
+'V4
+6971
+6972
+43456
+43457',
+'V2
+6973
+6974',
+'V2
+8204
+8205',
+'V6
+6512
+6517
+43712
+43713
+43714
+43715',
+'V2
+69759
+69760',
+'V6
+2510
+2511
+3412
+3415
+3450
+3456',
+'V6
+2673
+2674
+70199
+70200
+72344
+72345',
+'V4
+3660
+3661
+6093
+6094',
+'V2
+2947
+2948',
+'V2
+6089
+6091',
+'V6
+70082
+70084
+72250
+72251
+72326
+72330',
+'V2
+69714
+69734',
+'V2
+3976
+3981',
+'V4
+3313
+3315
+69635
+69637',
+'V4
+3406
+3407
+73030
+73031',
+'V2
+8204
+8206',
+'V3
+0
+8204
+8206',
+'V3
+0
+127462
+127488',
+'V6
+11904
+11930
+11931
+12020
+12032
+12246',
+'V4
+133
+134
+8232
+8234',
+'V6
+6155
+6158
+65024
+65040
+917760
+918000',
+'V2
+34
+35',
+'V6
+11
+13
+133
+134
+8232
+8234',
+'V2
+39
+40',
+'V4
+8364
+8365
+65532
+65533',
+'V2
+8378
+8379',
+'V4
+1564
+1565
+8294
+8298',
+'V6
+9
+10
+11
+12
+31
+32',
+'V2
+8296
+8297',
+'V2
+8234
+8235',
+'V2
+8294
+8295',
+'V2
+8237
+8238',
+'V2
+8236
+8237',
+'V2
+8297
+8298',
+'V2
+8235
+8236',
+'V2
+8295
+8296',
+'V2
+8238
+8239',
+'V2
+65024
+65040',
+'V2
+19968
+40960',
+'V2
+12272
+12288',
+'V2
+3712
+3840',
+'V2
+92736
+92784',
+'V2
+1984
+2048',
+'V2
+9280
+9312',
+'V2
+57344
+63744',
+'V2
+42240
+42560',
+'V2
+71424
+71488',
+'V2
+43520
+43616',
+'V2
+4352
+4608',
+'V2
+42192
+42240',
+'V2
+93952
+94112',
+'V2
+71168
+71264',
+'V2
+70656
+70784',
+'V2
+69216
+69248',
+'V2
+917504
+917632',
+'V2
+3584
+3712',
+'V2
+5120
+5760',
+'V2
+0
+128',
+'V2
+125184
+125280',
+'V2
+42656
+42752',
+'V2
+7104
+7168',
+'V2
+5952
+5984',
+'V2
+880
+1024',
+'V2
+6016
+6144',
+'V2
+6400
+6480',
+'V2
+119040
+119296',
+'V2
+110960
+111360',
+'V2
+5760
+5792',
+'V2
+2816
+2944',
+'V2
+66736
+66816',
+'V2
+5792
+5888',
+'V2
+6480
+6528',
+'V2
+71296
+71376',
+'V2
+2944
+3072',
+'V2
+917760
+918000',
+'V2
+1536
+1792',
+'V2
+8592
+8704',
+'V2
+69632
+69760',
+'V2
+66208
+66272',
+'V2
+69888
+69968',
+'V2
+11392
+11520',
+'V2
+127024
+127136',
+'V2
+66352
+66384',
+'V2
+44032
+55216',
+'V2
+67808
+67840',
+'V2
+1424
+1536',
+'V2
+592
+688',
+'V2
+69760
+69840',
+'V2
+12688
+12704',
+'V2
+12032
+12256',
+'V2
+70144
+70224',
+'V2
+128
+256',
+'V2
+7168
+7248',
+'V2
+66176
+66208',
+'V2
+67872
+67904',
+'V2
+43312
+43360',
+'V2
+1792
+1872',
+'V2
+94208
+100352',
+'V2
+3072
+3200',
+'V2
+1920
+1984',
+'V2
+19904
+19968',
+'V2
+68352
+68416',
+'V2
+2432
+2560',
+'V2
+10240
+10496',
+'V2
+13312
+19904',
+'V2
+131072
+173792',
+'V2
+173824
+177984',
+'V2
+177984
+178208',
+'V2
+178208
+183984',
+'V2
+183984
+191472',
+'V2
+66560
+66640',
+'V2
+66816
+66864',
+'V2
+70400
+70528',
+'V2
+5920
+5952',
+'V2
+110592
+110848',
+'V2
+3200
+3328',
+'V2
+43264
+43312',
+'V2
+67072
+67456',
+'V2
+126976
+127024',
+'V2
+2112
+2144',
+'V2
+72816
+72896',
+'V2
+70272
+70320',
+'V2
+4096
+4256',
+'V2
+7248
+7296',
+'V2
+66688
+66736',
+'V2
+43072
+43136',
+'V2
+70016
+70112',
+'V2
+66640
+66688',
+'V2
+71040
+71168',
+'V2
+3456
+3584',
+'V2
+72272
+72368',
+'V2
+983040
+1048576',
+'V2
+1048576
+1114112',
+'V2
+5888
+5920',
+'V2
+6688
+6832',
+'V2
+43648
+43744',
+'V2
+3840
+4096',
+'V2
+70784
+70880',
+'V2
+6320
+6400',
+'V2
+1328
+1424',
+'V2
+6912
+7040',
+'V2
+92160
+92736',
+'V2
+92880
+92928',
+'V2
+12544
+12592',
+'V2
+6656
+6688',
+'V2
+5024
+5120',
+'V2
+1024
+1280',
+'V2
+9984
+10176',
+'V2
+113664
+113824',
+'V2
+4608
+4992',
+'V2
+4256
+4352',
+'V2
+7936
+8192',
+'V2
+2688
+2816',
+'V2
+2560
+2688',
+'V2
+12352
+12448',
+'V2
+43360
+43392',
+'V2
+55216
+55296',
+'V2
+43392
+43488',
+'V2
+110848
+110896',
+'V2
+12448
+12544',
+'V2
+69968
+70016',
+'V2
+66000
+66048',
+'V2
+65520
+65536',
+'V2
+5984
+6016',
+'V2
+11568
+11648',
+'V2
+66432
+66464',
+'V2
+7376
+7424',
+'V2
+64336
+65024',
+'V2
+65136
+65280',
+'V2
+1872
+1920',
+'V2
+72704
+72816',
+'V2
+13056
+13312',
+'V2
+73728
+74752',
+'V2
+128512
+128592',
+'V2
+65056
+65072',
+'V2
+70320
+70400',
+'V2
+256
+384',
+'V2
+384
+592',
+'V2
+11360
+11392',
+'V2
+42784
+43008',
+'V2
+43824
+43888',
+'V2
+3328
+3456',
+'V2
+6144
+6320',
+'V2
+67712
+67760',
+'V2
+6528
+6624',
+'V2
+66304
+66352',
+'V2
+66384
+66432',
+'V2
+68608
+68688',
+'V2
+67680
+67712',
+'V2
+72384
+72448',
+'V2
+2048
+2112',
+'V2
+7040
+7104',
+'V2
+2144
+2160',
+'V2
+128768
+128896',
+'V2
+2208
+2304',
+'V2
+126464
+126720',
+'V2
+9472
+9600',
+'V2
+12736
+12784',
+'V2
+12288
+12352',
+'V2
+12592
+12688',
+'V2
+2304
+2432',
+'V2
+11264
+11360',
+'V2
+68096
+68192',
+'V2
+68288
+68352',
+'V2
+11008
+11264',
+'V2
+66464
+66528',
+'V2
+67840
+67872',
+'V2
+43136
+43232',
+'V2
+65104
+65136',
+'V2
+10224
+10240',
+'V2
+10496
+10624',
+'V2
+129024
+129280',
+'V2
+71840
+71936',
+'V2
+42128
+42192',
+'V2
+12704
+12736',
+'V2
+43888
+43968',
+'V2
+119648
+119680',
+'V2
+1280
+1328',
+'V2
+12800
+13056',
+'V2
+11648
+11744',
+'V2
+4992
+5024',
+'V2
+11520
+11568',
+'V2
+12784
+12800',
+'V2
+43968
+44032',
+'V2
+9728
+9984',
+'V2
+43616
+43648',
+'V2
+43488
+43520',
+'V2
+8528
+8592',
+'V2
+92928
+93072',
+'V2
+7424
+7552',
+'V2
+8192
+8304',
+'V2
+69840
+69888',
+'V2
+8304
+8352',
+'V2
+43008
+43056',
+'V2
+119552
+119648',
+'V2
+40960
+42128',
+'V2
+64256
+64336',
+'V2
+11744
+11776',
+'V2
+42560
+42656',
+'V2
+7296
+7312',
+'V2
+768
+880',
+'V2
+43776
+43824',
+'V2
+6624
+6656',
+'V2
+72960
+73056',
+'V2
+119808
+120832',
+'V2
+124928
+125152',
+'V2
+71264
+71296',
+'V2
+68736
+68864',
+'V2
+127136
+127232',
+'V2
+7360
+7376',
+'V2
+65792
+65856',
+'V2
+9600
+9632',
+'V2
+43232
+43264',
+'V2
+122880
+122928',
+'V2
+56320
+57344',
+'V2
+8704
+8960',
+'V2
+8960
+9216',
+'V2
+65040
+65056',
+'V2
+65936
+66000',
+'V2
+118784
+119040',
+'V2
+65072
+65104',
+'V2
+11904
+12032',
+'V2
+55296
+56192',
+'V2
+43744
+43776',
+'V2
+7552
+7616',
+'V2
+68480
+68528',
+'V2
+11776
+11904',
+'V2
+9216
+9280',
+'V2
+8352
+8400',
+'V2
+6832
+6912',
+'V2
+7616
+7680',
+'V2
+9632
+9728',
+'V2
+67648
+67680',
+'V2
+68000
+68096',
+'V2
+127744
+128512',
+'V2
+688
+768',
+'V2
+68224
+68256',
+'V2
+68192
+68224',
+'V2
+128640
+128768',
+'V2
+72192
+72272',
+'V2
+74752
+74880',
+'V2
+67584
+67648',
+'V2
+9312
+9472',
+'V2
+65280
+65520',
+'V2
+56192
+56320',
+'V2
+43056
+43072',
+'V2
+65664
+65792',
+'V2
+65536
+65664',
+'V2
+10176
+10224',
+'V2
+10624
+10752',
+'V2
+10752
+11008',
+'V2
+100352
+101120',
+'V2
+119296
+119376',
+'V2
+66864
+66928',
+'V2
+8448
+8528',
+'V2
+120832
+121520',
+'V2
+66272
+66304',
+'V2
+128896
+129024',
+'V2
+94176
+94208',
+'V2
+7680
+7936',
+'V2
+128592
+128640',
+'V2
+65856
+65936',
+'V2
+63744
+64256',
+'V2
+77824
+78896',
+'V2
+127232
+127488',
+'V2
+67968
+68000',
+'V2
+42752
+42784',
+'V2
+82944
+83584',
+'V2
+68448
+68480',
+'V2
+68416
+68448',
+'V2
+70112
+70144',
+'V2
+194560
+195104',
+'V2
+8400
+8448',
+'V2
+74880
+75088',
+'V2
+127488
+127744',
+'V2
+113824
+113840',
+'V2
+129280
+129536',
+'V6
+188
+191
+8528
+8544
+8585
+8586',
+'V6
+65104
+65107
+65108
+65127
+65128
+65132',
+'V6
+12288
+12289
+65281
+65377
+65504
+65511',
+'V4
+0
+32
+127
+160',
+'V6
+57344
+63744
+983040
+1048574
+1048576
+1114110',
+'V2
+8232
+8233',
+'V2
+8233
+8234',
+'V2
+1829
+1830',
+'V2
+1871
+1872',
+'V2
+1815
+1816',
+'V2
+1830
+1831',
+'V2
+1607
+1608',
+'V2
+1825
+1826',
+'V2
+1826
+1827',
+'V2
+1725
+1726',
+'V6
+1591
+1593
+1695
+1696
+2211
+2212',
+'V2
+1836
+1837',
+'V4
+1810
+1811
+1837
+1838',
+'V2
+1818
+1819',
+'V2
+1823
+1824',
+'V6
+1605
+1606
+1893
+1895
+2215
+2216',
+'V6
+1606
+1607
+1721
+1725
+1895
+1898',
+'V2
+1833
+1834',
+'V2
+1835
+1836',
+'V2
+1819
+1821',
+'V2
+1821
+1822',
+'V2
+1817
+1818',
+'V2
+1808
+1809',
+'V4
+1811
+1813
+1838
+1839',
+'V2
+1870
+1871',
+'V2
+1832
+1833',
+'V2
+1869
+1870',
+'V2
+1824
+1825',
+'V2
+1822
+1823',
+'V2
+1729
+1731',
+'V2
+1827
+1828',
+'V2
+1706
+1707',
+'V2
+1816
+1817',
+'V2
+1746
+1748',
+'V2
+2235
+2236',
+'V2
+2236
+2237',
+'V6
+1813
+1815
+1834
+1835
+1839
+1840',
+'V4
+1726
+1727
+1791
+1792',
+'V2
+1831
+1832',
+'V6
+1577
+1578
+1728
+1729
+1749
+1750',
+'V2
+2237
+2238',
+'V2
+2145
+2146',
+'V2
+2151
+2152',
+'V2
+2220
+2221',
+'V2
+2225
+2226',
+'V2
+1741
+1742',
+'V2
+1828
+1829',
+'V2
+2150
+2151',
+'V2
+2152
+2153',
+'V2
+2144
+2145',
+'V2
+2148
+2149',
+'V2
+2146
+2147',
+'V2
+2154
+2155',
+'V2
+2147
+2148',
+'V2
+68315
+68317',
+'V2
+2153
+2154',
+'V2
+2149
+2150',
+'V2
+68310
+68311',
+'V2
+68311
+68312',
+'V2
+68331
+68332',
+'V2
+68324
+68325',
+'V2
+68333
+68334',
+'V2
+68295
+68296',
+'V2
+1731
+1732',
+'V2
+68313
+68315',
+'V2
+68289
+68291',
+'V2
+68332
+68333',
+'V2
+68301
+68302',
+'V2
+68304
+68307',
+'V2
+68318
+68321',
+'V2
+68321
+68322',
+'V2
+68302
+68303',
+'V2
+68303
+68304',
+'V2
+68288
+68289',
+'V2
+68291
+68293',
+'V2
+68317
+68318',
+'V2
+68297
+68299',
+'V2
+68293
+68294',
+'V2
+68307
+68308',
+'V2
+68312
+68313',
+'V2
+68334
+68335',
+'V2
+68308
+68309',
+'V2
+68335
+68336',
+'V2
+68309
+68310',
+'V2
+1914
+1916',
+'V6
+43122
+43123
+68301
+68302
+68311
+68312',
+'V4
+8212
+8213
+11834
+11836',
+'V4
+11
+13
+8232
+8234',
+'V2
+65532
+65533',
+'V4
+41
+42
+93
+94',
+'V2
+45
+46',
+'V2
+133
+134',
+'V2
+55296
+57344',
+'V2
+32
+33',
+'V2
+47
+48',
+'V4
+8288
+8289
+65279
+65280',
+'V2
+8203
+8204',
+'V2
+12881
+12882',
+'V2
+12882
+12883',
+'V2
+12883
+12884',
+'V2
+12884
+12885',
+'V2
+12885
+12886',
+'V2
+12886
+12887',
+'V2
+12887
+12888',
+'V2
+12888
+12889',
+'V2
+12889
+12890',
+'V2
+12891
+12892',
+'V2
+12892
+12893',
+'V2
+12893
+12894',
+'V2
+12894
+12895',
+'V2
+12895
+12896',
+'V2
+12977
+12978',
+'V2
+12978
+12979',
+'V2
+12979
+12980',
+'V2
+12980
+12981',
+'V2
+12982
+12983',
+'V2
+12983
+12984',
+'V2
+12984
+12985',
+'V2
+12985
+12986',
+'V2
+12986
+12987',
+'V2
+12987
+12988',
+'V2
+12988
+12989',
+'V2
+12989
+12990',
+'V2
+12990
+12991',
+'V4
+3422
+3423
+8533
+8534',
+'V6
+8537
+8538
+68087
+68088
+74849
+74850',
+'V2
+8528
+8529',
+'V2
+8529
+8530',
+'V2
+8534
+8535',
+'V2
+3883
+3884',
+'V2
+8535
+8536',
+'V2
+8540
+8541',
+'V2
+8536
+8537',
+'V2
+3884
+3885',
+'V6
+8538
+8539
+68095
+68096
+74844
+74845',
+'V2
+8541
+8542',
+'V2
+3885
+3886',
+'V2
+8542
+8543',
+'V2
+3886
+3887',
+'V2
+3891
+3892',
+'V4
+3420
+3421
+8530
+8531',
+'V2
+68086
+68087',
+'V2
+3419
+3420',
+'V2
+3417
+3418',
+'V2
+3887
+3888',
+'V2
+3888
+3889',
+'V2
+3889
+3890',
+'V2
+3890
+3891',
+'V4
+65827
+65828
+68060
+68061',
+'V2
+3421
+3422',
+'V2
+3418
+3419',
+'V4
+65828
+65829
+68061
+68062',
+'V4
+65829
+65830
+68062
+68063',
+'V2
+68090
+68091',
+'V4
+65831
+65832
+68064
+68065',
+'V2
+68092
+68093',
+'V4
+65832
+65833
+68065
+68066',
+'V4
+65833
+65834
+68066
+68067',
+'V4
+65834
+65835
+68067
+68068',
+'V2
+3416
+3417',
+'V2
+68028
+68029',
+'V4
+65836
+65837
+68069
+68070',
+'V4
+65837
+65838
+68070
+68071',
+'V4
+65838
+65839
+68071
+68072',
+'V4
+65840
+65841
+68073
+68074',
+'V4
+65841
+65842
+68074
+68075',
+'V4
+65842
+65843
+68075
+68076',
+'V4
+65843
+65844
+68076
+68077',
+'V4
+8584
+8585
+68077
+68078',
+'V2
+68078
+68079',
+'V2
+74802
+74803',
+'V2
+68079
+68080',
+'V2
+68080
+68081',
+'V2
+74803
+74804',
+'V2
+68081
+68082',
+'V2
+68082
+68083',
+'V2
+68083
+68084',
+'V2
+68084
+68085',
+'V2
+68085
+68086',
+'V2
+93022
+93023',
+'V6
+20159
+20160
+20740
+20741
+93023
+93024',
+'V2
+93024
+93025',
+'V4
+20806
+20807
+93025
+93026',
+'V4
+40960
+42125
+42128
+42183',
+'V6
+125184
+125259
+125264
+125274
+125278
+125280',
+'V6
+746
+748
+12549
+12591
+12704
+12731',
+'V4
+6656
+6684
+6686
+6688',
+'V2
+5952
+5972',
+'V4
+69888
+69941
+69942
+69956',
+'V6
+994
+1008
+11392
+11508
+11513
+11520',
+'V2
+5920
+5941',
+'V6
+43392
+43470
+43472
+43482
+43486
+43488',
+'V4
+43264
+43310
+43311
+43312',
+'V4
+70144
+70162
+70163
+70207',
+'V2
+69760
+69826',
+'V6
+67072
+67383
+67392
+67414
+67424
+67432',
+'V2
+69968
+70007',
+'V4
+2112
+2140
+2142
+2143',
+'V4
+68288
+68327
+68331
+68343',
+'V4
+71168
+71237
+71248
+71258',
+'V6
+4096
+4256
+43488
+43519
+43616
+43648',
+'V2
+66384
+66427',
+'V2
+43072
+43128',
+'V6
+68480
+68498
+68505
+68509
+68521
+68528',
+'V4
+70016
+70094
+70096
+70112',
+'V4
+70320
+70379
+70384
+70394',
+'V2
+43008
+43052',
+'V6
+5984
+5997
+5998
+6001
+6002
+6004',
+'V4
+71296
+71352
+71360
+71370',
+'V4
+6480
+6510
+6512
+6517',
+'V4
+5888
+5901
+5902
+5909',
+'V2
+1920
+1970',
+'V4
+70784
+70856
+70864
+70874',
+'V6
+92736
+92767
+92768
+92778
+92782
+92784',
+'V2
+1984
+2043',
+'V2
+42240
+42540',
+'V4
+66864
+66916
+66927
+66928',
+'V6
+71424
+71450
+71453
+71468
+71472
+71488',
+'V4
+67648
+67670
+67671
+67680',
+'V4
+68352
+68406
+68409
+68416',
+'V4
+6912
+6988
+6992
+7037',
+'V4
+42656
+42744
+92160
+92729',
+'V4
+92880
+92910
+92912
+92918',
+'V4
+7104
+7156
+7164
+7168',
+'V6
+69632
+69710
+69714
+69744
+69759
+69760',
+'V6
+6656
+6684
+6686
+6688
+43471
+43472',
+'V4
+5941
+5943
+5952
+5972',
+'V4
+5120
+5760
+6320
+6390',
+'V2
+66208
+66257',
+'V6
+5024
+5110
+5112
+5118
+43888
+43968',
+'V2
+77824
+78895',
+'V2
+66816
+66856',
+'V2
+66352
+66379',
+'V2
+5920
+5943',
+'V6
+67808
+67827
+67828
+67830
+67835
+67840',
+'V2
+82944
+83527',
+'V6
+68736
+68787
+68800
+68851
+68858
+68864',
+'V4
+66304
+66340
+66349
+66352',
+'V6
+43392
+43470
+43471
+43482
+43486
+43488',
+'V6
+2790
+2800
+70144
+70162
+70163
+70207',
+'V6
+2406
+2416
+43056
+43066
+69760
+69826',
+'V6
+7168
+7224
+7227
+7242
+7245
+7248',
+'V2
+66176
+66205',
+'V4
+67872
+67898
+67903
+67904',
+'V6
+2404
+2416
+43056
+43066
+69968
+70007',
+'V6
+1600
+1601
+2112
+2140
+2142
+2143',
+'V6
+1600
+1601
+68288
+68327
+68331
+68343',
+'V6
+72816
+72848
+72850
+72872
+72873
+72887',
+'V4
+124928
+125125
+125127
+125143',
+'V6
+68000
+68024
+68028
+68048
+68050
+68096',
+'V6
+93952
+94021
+94032
+94079
+94095
+94112',
+'V6
+43056
+43066
+71168
+71237
+71248
+71258',
+'V6
+43744
+43767
+43968
+44014
+44016
+44026',
+'V4
+67712
+67743
+67751
+67760',
+'V6
+70656
+70746
+70747
+70748
+70749
+70750',
+'V4
+94177
+94178
+110960
+111356',
+'V2
+5760
+5789',
+'V2
+68608
+68681',
+'V4
+66736
+66772
+66776
+66812',
+'V4
+66688
+66718
+66720
+66730',
+'V2
+72384
+72441',
+'V4
+1155
+1156
+66384
+66427',
+'V6
+6146
+6148
+6149
+6150
+43072
+43128',
+'V4
+68448
+68467
+68472
+68480',
+'V4
+67840
+67868
+67871
+67872',
+'V4
+68416
+68438
+68440
+68448',
+'V4
+43312
+43348
+43359
+43360',
+'V4
+5792
+5867
+5870
+5881',
+'V4
+2048
+2094
+2096
+2111',
+'V4
+43136
+43206
+43214
+43226',
+'V6
+120832
+121484
+121499
+121504
+121505
+121520',
+'V4
+71040
+71094
+71096
+71134',
+'V4
+69840
+69865
+69872
+69882',
+'V6
+72272
+72324
+72326
+72349
+72350
+72355',
+'V4
+7040
+7104
+7360
+7368',
+'V6
+2404
+2406
+2534
+2544
+43008
+43052',
+'V6
+4160
+4170
+6480
+6510
+6512
+6517',
+'V6
+94176
+94177
+94208
+100333
+100352
+101107',
+'V4
+43648
+43715
+43739
+43744',
+'V6
+11568
+11624
+11631
+11633
+11647
+11648',
+'V6
+5888
+5901
+5902
+5909
+5941
+5943',
+'V4
+3585
+3643
+3648
+3676',
+'V4
+66432
+66462
+66463
+66464',
+'V4
+71840
+71923
+71935
+71936',
+'V4
+66464
+66500
+66504
+66518',
+'V2
+72192
+72264',
+,
+);
+
+# Maps property, table to file for those using stricter matching.  For paths
+# whose directory is '#', the file is in the form of a numeric index into
+# @inline_definitions
+%utf8::stricter_to_file_of = (
+'_canondcij' => 'SD/Y',
+'_case_ignorable' => 'CI/Y',
+'_combabove' => 'Ccc/A',
+'_perl_any_folds' => 'Perl/_PerlAny',
+'_perl_charname_begin' => 'Perl/_PerlCha',
+'_perl_charname_continue' => 'Perl/_PerlCh2',
+'_perl_folds_to_multi_char' => 'Perl/_PerlFol',
+'_perl_idcont' => 'Perl/_PerlIDC',
+'_perl_idstart' => 'Perl/_PerlIDS',
+'_perl_nchar' => 'Perl/_PerlNch',
+'_perl_patws' => 'Perl/_PerlPat',
+'_perl_problematic_locale_foldeds_start' => 'Perl/_PerlPr2',
+'_perl_problematic_locale_folds' => 'Perl/_PerlPro',
+'_perl_quotemeta' => 'Perl/_PerlQuo',
+'_perl_surrogate' => '#/14',
+'age=1.1' => 'Age/V11',
+'age=10' => 'Age/V100',
+'age=10.0' => 'Age/V100',
+'age=2' => 'Age/V20',
+'age=2.0' => 'Age/V20',
+'age=2.1' => '#/98',
+'age=3' => 'Age/V30',
+'age=3.0' => 'Age/V30',
+'age=3.1' => 'Age/V31',
+'age=3.2' => 'Age/V32',
+'age=4' => 'Age/V40',
+'age=4.0' => 'Age/V40',
+'age=4.1' => 'Age/V41',
+'age=5' => 'Age/V50',
+'age=5.0' => 'Age/V50',
+'age=5.1' => 'Age/V51',
+'age=5.2' => 'Age/V52',
+'age=6' => 'Age/V60',
+'age=6.0' => 'Age/V60',
+'age=6.1' => 'Age/V61',
+'age=6.2' => '#/99',
+'age=6.3' => '#/100',
+'age=7' => 'Age/V70',
+'age=7.0' => 'Age/V70',
+'age=8' => 'Age/V80',
+'age=8.0' => 'Age/V80',
+'age=9' => 'Age/V90',
+'age=9.0' => 'Age/V90',
+'ccc=0' => 'Ccc/NR',
+'ccc=1' => 'Ccc/OV',
+'ccc=10' => '#/23',
+'ccc=103' => '#/52',
+'ccc=107' => '#/53',
+'ccc=11' => '#/24',
+'ccc=118' => '#/54',
+'ccc=12' => '#/25',
+'ccc=122' => '#/55',
+'ccc=129' => '#/56',
+'ccc=13' => '#/26',
+'ccc=130' => '#/57',
+'ccc=132' => '#/58',
+'ccc=133' => '#/0',
+'ccc=14' => '#/27',
+'ccc=15' => '#/28',
+'ccc=16' => '#/29',
+'ccc=17' => '#/30',
+'ccc=18' => '#/31',
+'ccc=19' => '#/32',
+'ccc=20' => '#/33',
+'ccc=200' => '#/0',
+'ccc=202' => '#/22',
+'ccc=21' => '#/34',
+'ccc=214' => '#/21',
+'ccc=216' => 'Ccc/ATAR',
+'ccc=218' => '#/17',
+'ccc=22' => '#/35',
+'ccc=220' => 'Ccc/B',
+'ccc=222' => 'Ccc/BR',
+'ccc=224' => '#/15',
+'ccc=226' => '#/16',
+'ccc=228' => 'Ccc/AL',
+'ccc=23' => '#/36',
+'ccc=230' => 'Ccc/A',
+'ccc=232' => 'Ccc/AR',
+'ccc=233' => 'Ccc/DB',
+'ccc=234' => '#/18',
+'ccc=24' => '#/37',
+'ccc=240' => '#/19',
+'ccc=25' => '#/38',
+'ccc=26' => '#/39',
+'ccc=27' => '#/40',
+'ccc=28' => '#/41',
+'ccc=29' => '#/42',
+'ccc=30' => '#/43',
+'ccc=31' => '#/44',
+'ccc=32' => '#/45',
+'ccc=33' => '#/46',
+'ccc=34' => '#/47',
+'ccc=35' => '#/48',
+'ccc=36' => '#/49',
+'ccc=7' => 'Ccc/NK',
+'ccc=8' => '#/20',
+'ccc=84' => '#/50',
+'ccc=9' => 'Ccc/VR',
+'ccc=91' => '#/51',
+'in=1.1' => 'Age/V11',
+'in=10' => 'In/10_0',
+'in=10.0' => 'In/10_0',
+'in=2' => 'In/2_0',
+'in=2.0' => 'In/2_0',
+'in=2.1' => 'In/2_1',
+'in=3' => 'In/3_0',
+'in=3.0' => 'In/3_0',
+'in=3.1' => 'In/3_1',
+'in=3.2' => 'In/3_2',
+'in=4' => 'In/4_0',
+'in=4.0' => 'In/4_0',
+'in=4.1' => 'In/4_1',
+'in=5' => 'In/5_0',
+'in=5.0' => 'In/5_0',
+'in=5.1' => 'In/5_1',
+'in=5.2' => 'In/5_2',
+'in=6' => 'In/6_0',
+'in=6.0' => 'In/6_0',
+'in=6.1' => 'In/6_1',
+'in=6.2' => 'In/6_2',
+'in=6.3' => 'In/6_3',
+'in=7' => 'In/7_0',
+'in=7.0' => 'In/7_0',
+'in=8' => 'In/8_0',
+'in=8.0' => 'In/8_0',
+'in=9' => 'In/9_0',
+'in=9.0' => 'In/9_0',
+'nv=-1/2' => '#/535',
+'nv=0' => 'Nv/0',
+'nv=1' => 'Nv/1',
+'nv=1/10' => '#/536',
+'nv=1/12' => '#/537',
+'nv=1/16' => 'Nv/1_16',
+'nv=1/160' => '#/555',
+'nv=1/2' => 'Nv/1_2',
+'nv=1/20' => '#/538',
+'nv=1/3' => 'Nv/1_3',
+'nv=1/4' => 'Nv/1_4',
+'nv=1/40' => '#/539',
+'nv=1/5' => '#/520',
+'nv=1/6' => '#/521',
+'nv=1/7' => '#/522',
+'nv=1/8' => 'Nv/1_8',
+'nv=1/9' => '#/523',
+'nv=10' => 'Nv/10',
+'nv=100' => 'Nv/100',
+'nv=1000' => 'Nv/1000',
+'nv=10000' => 'Nv/10000',
+'nv=100000' => '#/564',
+'nv=1000000' => '#/575',
+'nv=100000000' => '#/576',
+'nv=10000000000' => '#/577',
+'nv=1000000000000' => '#/578',
+'nv=11' => 'Nv/11',
+'nv=11/12' => '#/556',
+'nv=11/2' => '#/540',
+'nv=12' => 'Nv/12',
+'nv=13' => 'Nv/13',
+'nv=13/2' => '#/541',
+'nv=14' => 'Nv/14',
+'nv=15' => 'Nv/15',
+'nv=15/2' => '#/542',
+'nv=16' => 'Nv/16',
+'nv=17' => 'Nv/17',
+'nv=17/2' => '#/543',
+'nv=18' => 'Nv/18',
+'nv=19' => 'Nv/19',
+'nv=2' => 'Nv/2',
+'nv=2/3' => 'Nv/2_3',
+'nv=2/5' => '#/524',
+'nv=20' => 'Nv/20',
+'nv=200' => 'Nv/200',
+'nv=2000' => '#/544',
+'nv=20000' => '#/557',
+'nv=200000' => '#/565',
+'nv=21' => '#/493',
+'nv=216000' => '#/566',
+'nv=22' => '#/494',
+'nv=23' => '#/495',
+'nv=24' => '#/496',
+'nv=25' => '#/497',
+'nv=26' => '#/498',
+'nv=27' => '#/499',
+'nv=28' => '#/500',
+'nv=29' => '#/501',
+'nv=3' => 'Nv/3',
+'nv=3/16' => 'Nv/3_16',
+'nv=3/2' => '#/525',
+'nv=3/20' => '#/545',
+'nv=3/4' => 'Nv/3_4',
+'nv=3/5' => '#/526',
+'nv=3/8' => '#/527',
+'nv=3/80' => '#/546',
+'nv=30' => 'Nv/30',
+'nv=300' => 'Nv/300',
+'nv=3000' => '#/547',
+'nv=30000' => '#/558',
+'nv=300000' => '#/567',
+'nv=31' => '#/502',
+'nv=32' => '#/503',
+'nv=33' => '#/504',
+'nv=34' => '#/505',
+'nv=35' => '#/506',
+'nv=36' => '#/507',
+'nv=37' => '#/508',
+'nv=38' => '#/509',
+'nv=39' => '#/510',
+'nv=4' => 'Nv/4',
+'nv=4/5' => '#/528',
+'nv=40' => 'Nv/40',
+'nv=400' => 'Nv/400',
+'nv=4000' => '#/548',
+'nv=40000' => '#/559',
+'nv=400000' => '#/568',
+'nv=41' => '#/511',
+'nv=42' => '#/512',
+'nv=43' => '#/513',
+'nv=432000' => '#/569',
+'nv=44' => '#/514',
+'nv=45' => '#/515',
+'nv=46' => '#/516',
+'nv=47' => '#/517',
+'nv=48' => '#/518',
+'nv=49' => '#/519',
+'nv=5' => 'Nv/5',
+'nv=5/12' => '#/549',
+'nv=5/2' => '#/529',
+'nv=5/6' => '#/530',
+'nv=5/8' => '#/531',
+'nv=50' => 'Nv/50',
+'nv=500' => 'Nv/500',
+'nv=5000' => 'Nv/5000',
+'nv=50000' => 'Nv/50000',
+'nv=500000' => '#/570',
+'nv=6' => 'Nv/6',
+'nv=60' => 'Nv/60',
+'nv=600' => 'Nv/600',
+'nv=6000' => '#/550',
+'nv=60000' => '#/560',
+'nv=600000' => '#/571',
+'nv=7' => 'Nv/7',
+'nv=7/12' => '#/551',
+'nv=7/2' => '#/532',
+'nv=7/8' => '#/533',
+'nv=70' => 'Nv/70',
+'nv=700' => 'Nv/700',
+'nv=7000' => '#/552',
+'nv=70000' => '#/561',
+'nv=700000' => '#/572',
+'nv=8' => 'Nv/8',
+'nv=80' => 'Nv/80',
+'nv=800' => 'Nv/800',
+'nv=8000' => '#/553',
+'nv=80000' => '#/562',
+'nv=800000' => '#/573',
+'nv=9' => 'Nv/9',
+'nv=9/2' => '#/534',
+'nv=90' => 'Nv/90',
+'nv=900' => 'Nv/900',
+'nv=9000' => '#/554',
+'nv=90000' => '#/563',
+'nv=900000' => '#/574',
+);
+
+# Maps property, table to file for those using loose matching.  For paths
+# whose directory is '#', the file is in the form of a numeric index into
+# @inline_definitions
+%utf8::loose_to_file_of = (
+'adlam' => 'Scx/Adlm',
+'adlm' => 'Scx/Adlm',
+'aegeannumbers' => '#/324',
+'age=na' => 'Age/NA',
+'age=unassigned' => 'Age/NA',
+'age=v100' => 'Age/V100',
+'age=v11' => 'Age/V11',
+'age=v20' => 'Age/V20',
+'age=v21' => '#/98',
+'age=v30' => 'Age/V30',
+'age=v31' => 'Age/V31',
+'age=v32' => 'Age/V32',
+'age=v40' => 'Age/V40',
+'age=v41' => 'Age/V41',
+'age=v50' => 'Age/V50',
+'age=v51' => 'Age/V51',
+'age=v52' => 'Age/V52',
+'age=v60' => 'Age/V60',
+'age=v61' => 'Age/V61',
+'age=v62' => '#/99',
+'age=v63' => '#/100',
+'age=v70' => 'Age/V70',
+'age=v80' => 'Age/V80',
+'age=v90' => 'Age/V90',
+'aghb' => '#/612',
+'ahex' => '#/59',
+'ahex=f' => '#/!59',
+'ahex=false' => '#/!59',
+'ahex=n' => '#/!59',
+'ahex=no' => '#/!59',
+'ahex=t' => '#/59',
+'ahex=true' => '#/59',
+'ahex=y' => '#/59',
+'ahex=yes' => '#/59',
+'ahom' => '#/613',
+'alchemical' => '#/267',
+'alchemicalsymbols' => '#/267',
+'all' => '#/1',
+'alnum' => 'Perl/Alnum',
+'alpha' => 'Alpha/Y',
+'alpha=f' => '!Alpha/Y',
+'alpha=false' => '!Alpha/Y',
+'alpha=n' => '!Alpha/Y',
+'alpha=no' => '!Alpha/Y',
+'alpha=t' => 'Alpha/Y',
+'alpha=true' => 'Alpha/Y',
+'alpha=y' => 'Alpha/Y',
+'alpha=yes' => 'Alpha/Y',
+'alphabetic' => 'Alpha/Y',
+'alphabeticpf' => '#/310',
+'alphabeticpresentationforms' => '#/310',
+'anatolianhieroglyphs' => '#/631',
+'ancientgreekmusic' => '#/366',
+'ancientgreekmusicalnotation' => '#/366',
+'ancientgreeknumbers' => '#/375',
+'ancientsymbols' => '#/332',
+'any' => '#/2',
+'arab' => 'Scx/Arab',
+'arabic' => 'Scx/Arab',
+'arabicexta' => '#/268',
+'arabicextendeda' => '#/268',
+'arabicmath' => '#/269',
+'arabicmathematicalalphabeticsymbols' => '#/269',
+'arabicpfa' => '#/241',
+'arabicpfb' => '#/242',
+'arabicpresentationformsa' => '#/241',
+'arabicpresentationformsb' => '#/242',
+'arabicsup' => '#/243',
+'arabicsupplement' => '#/243',
+'armenian' => 'Scx/Armn',
+'armi' => '#/614',
+'armn' => 'Scx/Armn',
+'arrows' => '#/150',
+'ascii' => '#/131',
+'asciihexdigit' => '#/59',
+'assigned' => 'Perl/Assigned',
+'avestan' => '#/615',
+'avst' => '#/615',
+'bali' => '#/616',
+'balinese' => '#/616',
+'bamu' => '#/617',
+'bamum' => '#/617',
+'bamumsup' => '#/215',
+'bamumsupplement' => '#/215',
+'basiclatin' => '#/131',
+'bass' => '#/618',
+'bassavah' => '#/618',
+'batak' => '#/619',
+'batk' => '#/619',
+'bc=al' => 'Bc/AL',
+'bc=an' => 'Bc/AN',
+'bc=arabicletter' => 'Bc/AL',
+'bc=arabicnumber' => 'Bc/AN',
+'bc=b' => 'Bc/B',
+'bc=bn' => 'Bc/BN',
+'bc=boundaryneutral' => 'Bc/BN',
+'bc=commonseparator' => 'Bc/CS',
+'bc=cs' => 'Bc/CS',
+'bc=en' => 'Bc/EN',
+'bc=es' => 'Bc/ES',
+'bc=et' => 'Bc/ET',
+'bc=europeannumber' => 'Bc/EN',
+'bc=europeanseparator' => 'Bc/ES',
+'bc=europeanterminator' => 'Bc/ET',
+'bc=firststrongisolate' => '#/102',
+'bc=fsi' => '#/102',
+'bc=l' => 'Bc/L',
+'bc=lefttoright' => 'Bc/L',
+'bc=lefttorightembedding' => '#/103',
+'bc=lefttorightisolate' => '#/104',
+'bc=lefttorightoverride' => '#/105',
+'bc=lre' => '#/103',
+'bc=lri' => '#/104',
+'bc=lro' => '#/105',
+'bc=nonspacingmark' => 'Bc/NSM',
+'bc=nsm' => 'Bc/NSM',
+'bc=on' => 'Bc/ON',
+'bc=otherneutral' => 'Bc/ON',
+'bc=paragraphseparator' => 'Bc/B',
+'bc=pdf' => '#/106',
+'bc=pdi' => '#/107',
+'bc=popdirectionalformat' => '#/106',
+'bc=popdirectionalisolate' => '#/107',
+'bc=r' => 'Bc/R',
+'bc=righttoleft' => 'Bc/R',
+'bc=righttoleftembedding' => '#/108',
+'bc=righttoleftisolate' => '#/109',
+'bc=righttoleftoverride' => '#/110',
+'bc=rle' => '#/108',
+'bc=rli' => '#/109',
+'bc=rlo' => '#/110',
+'bc=s' => '#/101',
+'bc=segmentseparator' => '#/101',
+'bc=whitespace' => 'Bc/WS',
+'bc=ws' => 'Bc/WS',
+'beng' => 'Scx/Beng',
+'bengali' => 'Scx/Beng',
+'bhaiksuki' => 'Scx/Bhks',
+'bhks' => 'Scx/Bhks',
+'bidic' => 'BidiC/Y',
+'bidic=f' => '!BidiC/Y',
+'bidic=false' => '!BidiC/Y',
+'bidic=n' => '!BidiC/Y',
+'bidic=no' => '!BidiC/Y',
+'bidic=t' => 'BidiC/Y',
+'bidic=true' => 'BidiC/Y',
+'bidic=y' => 'BidiC/Y',
+'bidic=yes' => 'BidiC/Y',
+'bidicontrol' => 'BidiC/Y',
+'bidim' => 'BidiM/Y',
+'bidim=f' => '!BidiM/Y',
+'bidim=false' => '!BidiM/Y',
+'bidim=n' => '!BidiM/Y',
+'bidim=no' => '!BidiM/Y',
+'bidim=t' => 'BidiM/Y',
+'bidim=true' => 'BidiM/Y',
+'bidim=y' => 'BidiM/Y',
+'bidim=yes' => 'BidiM/Y',
+'bidimirrored' => 'BidiM/Y',
+'blank' => 'Perl/Blank',
+'blk=adlam' => '#/132',
+'blk=aegeannumbers' => '#/324',
+'blk=ahom' => '#/120',
+'blk=alchemical' => '#/267',
+'blk=alchemicalsymbols' => '#/267',
+'blk=alphabeticpf' => '#/310',
+'blk=alphabeticpresentationforms' => '#/310',
+'blk=anatolianhieroglyphs' => '#/381',
+'blk=ancientgreekmusic' => '#/366',
+'blk=ancientgreekmusicalnotation' => '#/366',
+'blk=ancientgreeknumbers' => '#/375',
+'blk=ancientsymbols' => '#/332',
+'blk=arabic' => '#/149',
+'blk=arabicexta' => '#/268',
+'blk=arabicextendeda' => '#/268',
+'blk=arabicmath' => '#/269',
+'blk=arabicmathematicalalphabeticsymbols' => '#/269',
+'blk=arabicpfa' => '#/241',
+'blk=arabicpfb' => '#/242',
+'blk=arabicpresentationformsa' => '#/241',
+'blk=arabicpresentationformsb' => '#/242',
+'blk=arabicsup' => '#/243',
+'blk=arabicsupplement' => '#/243',
+'blk=armenian' => '#/213',
+'blk=arrows' => '#/150',
+'blk=ascii' => '#/131',
+'blk=avestan' => '#/175',
+'blk=balinese' => '#/214',
+'blk=bamum' => '#/133',
+'blk=bamumsup' => '#/215',
+'blk=bamumsupplement' => '#/215',
+'blk=basiclatin' => '#/131',
+'blk=bassavah' => '#/216',
+'blk=batak' => '#/134',
+'blk=bengali' => '#/176',
+'blk=bhaiksuki' => '#/244',
+'blk=blockelements' => '#/325',
+'blk=bopomofo' => '#/217',
+'blk=bopomofoext' => '#/288',
+'blk=bopomofoextended' => '#/288',
+'blk=boxdrawing' => '#/270',
+'blk=brahmi' => '#/151',
+'blk=braille' => '#/177',
+'blk=braillepatterns' => '#/177',
+'blk=buginese' => '#/218',
+'blk=buhid' => '#/135',
+'blk=byzantinemusic' => '#/333',
+'blk=byzantinemusicalsymbols' => '#/333',
+'blk=canadiansyllabics' => '#/130',
+'blk=carian' => '#/152',
+'blk=caucasianalbanian' => '#/367',
+'blk=chakma' => '#/153',
+'blk=cham' => '#/121',
+'blk=cherokee' => '#/219',
+'blk=cherokeesup' => '#/289',
+'blk=cherokeesupplement' => '#/289',
+'blk=cjk' => '#/112',
+'blk=cjkcompat' => '#/245',
+'blk=cjkcompatforms' => '#/334',
+'blk=cjkcompatibility' => '#/245',
+'blk=cjkcompatibilityforms' => '#/334',
+'blk=cjkcompatibilityideographs' => '#/376',
+'blk=cjkcompatibilityideographssupplement' => '#/385',
+'blk=cjkcompatideographs' => '#/376',
+'blk=cjkcompatideographssup' => '#/385',
+'blk=cjkexta' => '#/178',
+'blk=cjkextb' => '#/179',
+'blk=cjkextc' => '#/180',
+'blk=cjkextd' => '#/181',
+'blk=cjkexte' => '#/182',
+'blk=cjkextf' => '#/183',
+'blk=cjkradicalssup' => '#/335',
+'blk=cjkradicalssupplement' => '#/335',
+'blk=cjkstrokes' => '#/271',
+'blk=cjksymbols' => '#/272',
+'blk=cjksymbolsandpunctuation' => '#/272',
+'blk=cjkunifiedideographs' => '#/112',
+'blk=cjkunifiedideographsextensiona' => '#/178',
+'blk=cjkunifiedideographsextensionb' => '#/179',
+'blk=cjkunifiedideographsextensionc' => '#/180',
+'blk=cjkunifiedideographsextensiond' => '#/181',
+'blk=cjkunifiedideographsextensione' => '#/182',
+'blk=cjkunifiedideographsextensionf' => '#/183',
+'blk=combiningdiacriticalmarks' => '#/314',
+'blk=combiningdiacriticalmarksextended' => '#/343',
+'blk=combiningdiacriticalmarksforsymbols' => '#/386',
+'blk=combiningdiacriticalmarkssupplement' => '#/344',
+'blk=combininghalfmarks' => '#/248',
+'blk=combiningmarksforsymbols' => '#/386',
+'blk=commonindicnumberforms' => '#/359',
+'blk=compatjamo' => '#/273',
+'blk=controlpictures' => '#/341',
+'blk=coptic' => '#/154',
+'blk=copticepactnumbers' => '#/370',
+'blk=countingrod' => '#/290',
+'blk=countingrodnumerals' => '#/290',
+'blk=cuneiform' => '#/246',
+'blk=cuneiformnumbers' => '#/354',
+'blk=cuneiformnumbersandpunctuation' => '#/354',
+'blk=currencysymbols' => '#/342',
+'blk=cypriotsyllabary' => '#/355',
+'blk=cyrillic' => '#/220',
+'blk=cyrillicexta' => '#/311',
+'blk=cyrillicextb' => '#/312',
+'blk=cyrillicextc' => '#/313',
+'blk=cyrillicextendeda' => '#/311',
+'blk=cyrillicextendedb' => '#/312',
+'blk=cyrillicextendedc' => '#/313',
+'blk=cyrillicsup' => '#/291',
+'blk=cyrillicsupplement' => '#/291',
+'blk=cyrillicsupplementary' => '#/291',
+'blk=deseret' => '#/184',
+'blk=devanagari' => '#/274',
+'blk=devanagariext' => '#/326',
+'blk=devanagariextended' => '#/326',
+'blk=diacriticals' => '#/314',
+'blk=diacriticalsext' => '#/343',
+'blk=diacriticalsforsymbols' => '#/386',
+'blk=diacriticalssup' => '#/344',
+'blk=dingbats' => '#/221',
+'blk=domino' => '#/155',
+'blk=dominotiles' => '#/155',
+'blk=duployan' => '#/222',
+'blk=earlydynasticcuneiform' => '#/387',
+'blk=egyptianhieroglyphs' => '#/377',
+'blk=elbasan' => '#/185',
+'blk=emoticons' => '#/247',
+'blk=enclosedalphanum' => '#/356',
+'blk=enclosedalphanumerics' => '#/356',
+'blk=enclosedalphanumericsupplement' => '#/378',
+'blk=enclosedalphanumsup' => '#/378',
+'blk=enclosedcjk' => '#/292',
+'blk=enclosedcjklettersandmonths' => '#/292',
+'blk=enclosedideographicsup' => '#/388',
+'blk=enclosedideographicsupplement' => '#/388',
+'blk=ethiopic' => '#/223',
+'blk=ethiopicext' => '#/293',
+'blk=ethiopicexta' => '#/315',
+'blk=ethiopicextended' => '#/293',
+'blk=ethiopicextendeda' => '#/315',
+'blk=ethiopicsup' => '#/294',
+'blk=ethiopicsupplement' => '#/294',
+'blk=generalpunctuation' => '#/304',
+'blk=geometricshapes' => '#/345',
+'blk=geometricshapesext' => '#/371',
+'blk=geometricshapesextended' => '#/371',
+'blk=georgian' => '#/224',
+'blk=georgiansup' => '#/295',
+'blk=georgiansupplement' => '#/295',
+'blk=glagolitic' => '#/275',
+'blk=glagoliticsup' => '#/327',
+'blk=glagoliticsupplement' => '#/327',
+'blk=gothic' => '#/156',
+'blk=grantha' => '#/186',
+'blk=greek' => '#/136',
+'blk=greekandcoptic' => '#/136',
+'blk=greekext' => '#/225',
+'blk=greekextended' => '#/225',
+'blk=gujarati' => '#/226',
+'blk=gurmukhi' => '#/227',
+'blk=halfandfullforms' => '#/357',
+'blk=halfmarks' => '#/248',
+'blk=halfwidthandfullwidthforms' => '#/357',
+'blk=hangul' => '#/157',
+'blk=hangulcompatibilityjamo' => '#/273',
+'blk=hanguljamo' => '#/122',
+'blk=hanguljamoextendeda' => '#/229',
+'blk=hanguljamoextendedb' => '#/230',
+'blk=hangulsyllables' => '#/157',
+'blk=hanunoo' => '#/187',
+'blk=hatran' => '#/158',
+'blk=hebrew' => '#/159',
+'blk=highprivateusesurrogates' => '#/358',
+'blk=highpusurrogates' => '#/358',
+'blk=highsurrogates' => '#/336',
+'blk=hiragana' => '#/228',
+'blk=idc' => '#/113',
+'blk=ideographicdescriptioncharacters' => '#/113',
+'blk=ideographicsymbols' => '#/372',
+'blk=ideographicsymbolsandpunctuation' => '#/372',
+'blk=imperialaramaic' => '#/346',
+'blk=indicnumberforms' => '#/359',
+'blk=inscriptionalpahlavi' => '#/382',
+'blk=inscriptionalparthian' => '#/383',
+'blk=ipaext' => '#/160',
+'blk=ipaextensions' => '#/160',
+'blk=jamo' => '#/122',
+'blk=jamoexta' => '#/229',
+'blk=jamoextb' => '#/230',
+'blk=javanese' => '#/231',
+'blk=kaithi' => '#/161',
+'blk=kanaexta' => '#/232',
+'blk=kanaextendeda' => '#/232',
+'blk=kanasup' => '#/188',
+'blk=kanasupplement' => '#/188',
+'blk=kanbun' => '#/162',
+'blk=kangxi' => '#/163',
+'blk=kangxiradicals' => '#/163',
+'blk=kannada' => '#/189',
+'blk=katakana' => '#/233',
+'blk=katakanaext' => '#/296',
+'blk=katakanaphoneticextensions' => '#/296',
+'blk=kayahli' => '#/190',
+'blk=kharoshthi' => '#/276',
+'blk=khmer' => '#/137',
+'blk=khmersymbols' => '#/316',
+'blk=khojki' => '#/164',
+'blk=khudawadi' => '#/249',
+'blk=lao' => '#/114',
+'blk=latin1' => '#/165',
+'blk=latin1sup' => '#/165',
+'blk=latin1supplement' => '#/165',
+'blk=latinexta' => '#/250',
+'blk=latinextadditional' => '#/373',
+'blk=latinextb' => '#/251',
+'blk=latinextc' => '#/252',
+'blk=latinextd' => '#/253',
+'blk=latinexte' => '#/254',
+'blk=latinextendeda' => '#/250',
+'blk=latinextendedadditional' => '#/373',
+'blk=latinextendedb' => '#/251',
+'blk=latinextendedc' => '#/252',
+'blk=latinextendedd' => '#/253',
+'blk=latinextendede' => '#/254',
+'blk=lepcha' => '#/166',
+'blk=letterlikesymbols' => '#/368',
+'blk=limbu' => '#/138',
+'blk=lineara' => '#/191',
+'blk=linearbideograms' => '#/360',
+'blk=linearbsyllabary' => '#/361',
+'blk=lisu' => '#/123',
+'blk=lowsurrogates' => '#/328',
+'blk=lycian' => '#/167',
+'blk=lydian' => '#/168',
+'blk=mahajani' => '#/234',
+'blk=mahjong' => '#/192',
+'blk=mahjongtiles' => '#/192',
+'blk=malayalam' => '#/255',
+'blk=mandaic' => '#/193',
+'blk=manichaean' => '#/277',
+'blk=marchen' => '#/194',
+'blk=masaramgondi' => '#/317',
+'blk=mathalphanum' => '#/318',
+'blk=mathematicalalphanumericsymbols' => '#/318',
+'blk=mathematicaloperators' => '#/329',
+'blk=mathoperators' => '#/329',
+'blk=meeteimayek' => '#/297',
+'blk=meeteimayekext' => '#/337',
+'blk=meeteimayekextensions' => '#/337',
+'blk=mendekikakui' => '#/319',
+'blk=meroiticcursive' => '#/347',
+'blk=meroitichieroglyphs' => '#/379',
+'blk=miao' => '#/124',
+'blk=miscarrows' => '#/278',
+'blk=miscellaneousmathematicalsymbolsa' => '#/362',
+'blk=miscellaneousmathematicalsymbolsb' => '#/363',
+'blk=miscellaneoussymbols' => '#/298',
+'blk=miscellaneoussymbolsandarrows' => '#/278',
+'blk=miscellaneoussymbolsandpictographs' => '#/348',
+'blk=miscellaneoustechnical' => '#/330',
+'blk=miscmathsymbolsa' => '#/362',
+'blk=miscmathsymbolsb' => '#/363',
+'blk=miscpictographs' => '#/348',
+'blk=miscsymbols' => '#/298',
+'blk=misctechnical' => '#/330',
+'blk=modi' => '#/125',
+'blk=modifierletters' => '#/349',
+'blk=modifiertoneletters' => '#/380',
+'blk=mongolian' => '#/256',
+'blk=mongoliansup' => '#/320',
+'blk=mongoliansupplement' => '#/320',
+'blk=mro' => '#/115',
+'blk=multani' => '#/195',
+'blk=music' => '#/139',
+'blk=musicalsymbols' => '#/139',
+'blk=myanmar' => '#/196',
+'blk=myanmarexta' => '#/299',
+'blk=myanmarextb' => '#/300',
+'blk=myanmarextendeda' => '#/299',
+'blk=myanmarextendedb' => '#/300',
+'blk=nabataean' => '#/257',
+'blk=nb' => 'Blk/NB',
+'blk=newa' => '#/126',
+'blk=newtailue' => '#/258',
+'blk=nko' => '#/116',
+'blk=noblock' => 'Blk/NB',
+'blk=numberforms' => '#/301',
+'blk=nushu' => '#/140',
+'blk=ocr' => '#/117',
+'blk=ogham' => '#/141',
+'blk=olchiki' => '#/197',
+'blk=oldhungarian' => '#/321',
+'blk=olditalic' => '#/259',
+'blk=oldnortharabian' => '#/350',
+'blk=oldpermic' => '#/260',
+'blk=oldpersian' => '#/279',
+'blk=oldsoutharabian' => '#/351',
+'blk=oldturkic' => '#/261',
+'blk=opticalcharacterrecognition' => '#/117',
+'blk=oriya' => '#/142',
+'blk=ornamentaldingbats' => '#/374',
+'blk=osage' => '#/143',
+'blk=osmanya' => '#/198',
+'blk=pahawhhmong' => '#/302',
+'blk=palmyrene' => '#/262',
+'blk=paucinhau' => '#/263',
+'blk=phagspa' => '#/199',
+'blk=phaistos' => '#/235',
+'blk=phaistosdisc' => '#/235',
+'blk=phoenician' => '#/280',
+'blk=phoneticext' => '#/303',
+'blk=phoneticextensions' => '#/303',
+'blk=phoneticextensionssupplement' => '#/338',
+'blk=phoneticextsup' => '#/338',
+'blk=playingcards' => '#/322',
+'blk=privateuse' => '#/118',
+'blk=privateusearea' => '#/118',
+'blk=psalterpahlavi' => '#/339',
+'blk=pua' => '#/118',
+'blk=punctuation' => '#/304',
+'blk=rejang' => '#/169',
+'blk=rumi' => '#/127',
+'blk=ruminumeralsymbols' => '#/127',
+'blk=runic' => '#/144',
+'blk=samaritan' => '#/264',
+'blk=saurashtra' => '#/281',
+'blk=sharada' => '#/200',
+'blk=shavian' => '#/201',
+'blk=shorthandformatcontrols' => '#/389',
+'blk=siddham' => '#/202',
+'blk=sinhala' => '#/203',
+'blk=sinhalaarchaicnumbers' => '#/384',
+'blk=smallforms' => '#/282',
+'blk=smallformvariants' => '#/282',
+'blk=sorasompeng' => '#/305',
+'blk=soyombo' => '#/204',
+'blk=spacingmodifierletters' => '#/349',
+'blk=specials' => '#/236',
+'blk=sundanese' => '#/265',
+'blk=sundanesesup' => '#/323',
+'blk=sundanesesupplement' => '#/323',
+'blk=suparrowsa' => '#/283',
+'blk=suparrowsb' => '#/284',
+'blk=suparrowsc' => '#/285',
+'blk=superandsub' => '#/306',
+'blk=superscriptsandsubscripts' => '#/306',
+'blk=supmathoperators' => '#/364',
+'blk=supplementalarrowsa' => '#/283',
+'blk=supplementalarrowsb' => '#/284',
+'blk=supplementalarrowsc' => '#/285',
+'blk=supplementalmathematicaloperators' => '#/364',
+'blk=supplementalpunctuation' => '#/340',
+'blk=supplementalsymbolsandpictographs' => '#/390',
+'blk=supplementaryprivateuseareaa' => '#/205',
+'blk=supplementaryprivateuseareab' => '#/206',
+'blk=suppuaa' => '#/205',
+'blk=suppuab' => '#/206',
+'blk=suppunctuation' => '#/340',
+'blk=supsymbolsandpictographs' => '#/390',
+'blk=suttonsignwriting' => '#/369',
+'blk=sylotinagri' => '#/307',
+'blk=syriac' => '#/170',
+'blk=syriacsup' => '#/266',
+'blk=syriacsupplement' => '#/266',
+'blk=tagalog' => '#/207',
+'blk=tagbanwa' => '#/237',
+'blk=tags' => '#/128',
+'blk=taile' => '#/145',
+'blk=taitham' => '#/208',
+'blk=taiviet' => '#/209',
+'blk=taixuanjing' => '#/308',
+'blk=taixuanjingsymbols' => '#/308',
+'blk=takri' => '#/146',
+'blk=tamil' => '#/147',
+'blk=tangut' => '#/171',
+'blk=tangutcomponents' => '#/365',
+'blk=telugu' => '#/172',
+'blk=thaana' => '#/173',
+'blk=thai' => '#/129',
+'blk=tibetan' => '#/210',
+'blk=tifinagh' => '#/238',
+'blk=tirhuta' => '#/211',
+'blk=transportandmap' => '#/352',
+'blk=transportandmapsymbols' => '#/352',
+'blk=ucas' => '#/130',
+'blk=ucasext' => '#/212',
+'blk=ugaritic' => '#/239',
+'blk=unifiedcanadianaboriginalsyllabics' => '#/130',
+'blk=unifiedcanadianaboriginalsyllabicsextended' => '#/212',
+'blk=vai' => '#/119',
+'blk=variationselectors' => '#/111',
+'blk=variationselectorssupplement' => '#/148',
+'blk=vedicext' => '#/240',
+'blk=vedicextensions' => '#/240',
+'blk=verticalforms' => '#/331',
+'blk=vs' => '#/111',
+'blk=vssup' => '#/148',
+'blk=warangciti' => '#/286',
+'blk=yijing' => '#/174',
+'blk=yijinghexagramsymbols' => '#/174',
+'blk=yiradicals' => '#/287',
+'blk=yisyllables' => '#/309',
+'blk=zanabazarsquare' => '#/353',
+'blockelements' => '#/325',
+'bopo' => 'Scx/Bopo',
+'bopomofo' => 'Scx/Bopo',
+'bopomofoext' => '#/288',
+'bopomofoextended' => '#/288',
+'boxdrawing' => '#/270',
+'bpt=c' => 'Bpt/C',
+'bpt=close' => 'Bpt/C',
+'bpt=n' => 'Bpt/N',
+'bpt=none' => 'Bpt/N',
+'bpt=o' => 'Bpt/O',
+'bpt=open' => 'Bpt/O',
+'brah' => '#/620',
+'brahmi' => '#/620',
+'brai' => '#/177',
+'braille' => '#/177',
+'braillepatterns' => '#/177',
+'bugi' => '#/621',
+'buginese' => '#/621',
+'buhd' => '#/622',
+'buhid' => '#/622',
+'byzantinemusic' => '#/333',
+'byzantinemusicalsymbols' => '#/333',
+'c' => 'Gc/C',
+'cakm' => 'Scx/Cakm',
+'canadianaboriginal' => '#/623',
+'canadiansyllabics' => '#/130',
+'cans' => '#/623',
+'cari' => '#/624',
+'carian' => '#/624',
+'cased' => 'Cased/Y',
+'cased=f' => '!Cased/Y',
+'cased=false' => '!Cased/Y',
+'cased=n' => '!Cased/Y',
+'cased=no' => '!Cased/Y',
+'cased=t' => 'Cased/Y',
+'cased=true' => 'Cased/Y',
+'cased=y' => 'Cased/Y',
+'cased=yes' => 'Cased/Y',
+'casedletter' => 'Gc/LC',
+'caseignorable' => 'CI/Y',
+'caucasianalbanian' => '#/612',
+'cc' => '#/394',
+'ccc=a' => 'Ccc/A',
+'ccc=above' => 'Ccc/A',
+'ccc=aboveleft' => 'Ccc/AL',
+'ccc=aboveright' => 'Ccc/AR',
+'ccc=al' => 'Ccc/AL',
+'ccc=ar' => 'Ccc/AR',
+'ccc=ata' => '#/21',
+'ccc=atar' => 'Ccc/ATAR',
+'ccc=atb' => '#/22',
+'ccc=atbl' => '#/0',
+'ccc=attachedabove' => '#/21',
+'ccc=attachedaboveright' => 'Ccc/ATAR',
+'ccc=attachedbelow' => '#/22',
+'ccc=attachedbelowleft' => '#/0',
+'ccc=b' => 'Ccc/B',
+'ccc=below' => 'Ccc/B',
+'ccc=belowleft' => '#/17',
+'ccc=belowright' => 'Ccc/BR',
+'ccc=bl' => '#/17',
+'ccc=br' => 'Ccc/BR',
+'ccc=ccc10' => '#/23',
+'ccc=ccc103' => '#/52',
+'ccc=ccc107' => '#/53',
+'ccc=ccc11' => '#/24',
+'ccc=ccc118' => '#/54',
+'ccc=ccc12' => '#/25',
+'ccc=ccc122' => '#/55',
+'ccc=ccc129' => '#/56',
+'ccc=ccc13' => '#/26',
+'ccc=ccc130' => '#/57',
+'ccc=ccc132' => '#/58',
+'ccc=ccc133' => '#/0',
+'ccc=ccc14' => '#/27',
+'ccc=ccc15' => '#/28',
+'ccc=ccc16' => '#/29',
+'ccc=ccc17' => '#/30',
+'ccc=ccc18' => '#/31',
+'ccc=ccc19' => '#/32',
+'ccc=ccc20' => '#/33',
+'ccc=ccc21' => '#/34',
+'ccc=ccc22' => '#/35',
+'ccc=ccc23' => '#/36',
+'ccc=ccc24' => '#/37',
+'ccc=ccc25' => '#/38',
+'ccc=ccc26' => '#/39',
+'ccc=ccc27' => '#/40',
+'ccc=ccc28' => '#/41',
+'ccc=ccc29' => '#/42',
+'ccc=ccc30' => '#/43',
+'ccc=ccc31' => '#/44',
+'ccc=ccc32' => '#/45',
+'ccc=ccc33' => '#/46',
+'ccc=ccc34' => '#/47',
+'ccc=ccc35' => '#/48',
+'ccc=ccc36' => '#/49',
+'ccc=ccc84' => '#/50',
+'ccc=ccc91' => '#/51',
+'ccc=da' => '#/18',
+'ccc=db' => 'Ccc/DB',
+'ccc=doubleabove' => '#/18',
+'ccc=doublebelow' => 'Ccc/DB',
+'ccc=iotasubscript' => '#/19',
+'ccc=is' => '#/19',
+'ccc=kanavoicing' => '#/20',
+'ccc=kv' => '#/20',
+'ccc=l' => '#/15',
+'ccc=left' => '#/15',
+'ccc=nk' => 'Ccc/NK',
+'ccc=notreordered' => 'Ccc/NR',
+'ccc=nr' => 'Ccc/NR',
+'ccc=nukta' => 'Ccc/NK',
+'ccc=ov' => 'Ccc/OV',
+'ccc=overlay' => 'Ccc/OV',
+'ccc=r' => '#/16',
+'ccc=right' => '#/16',
+'ccc=virama' => 'Ccc/VR',
+'ccc=vr' => 'Ccc/VR',
+'ce' => 'CE/Y',
+'ce=f' => '!CE/Y',
+'ce=false' => '!CE/Y',
+'ce=n' => '!CE/Y',
+'ce=no' => '!CE/Y',
+'ce=t' => 'CE/Y',
+'ce=true' => 'CE/Y',
+'ce=y' => 'CE/Y',
+'ce=yes' => 'CE/Y',
+'cf' => 'Gc/Cf',
+'chakma' => 'Scx/Cakm',
+'cham' => 'Scx/Cham',
+'changeswhencasefolded' => 'CWCF/Y',
+'changeswhencasemapped' => 'CWCM/Y',
+'changeswhenlowercased' => 'CWL/Y',
+'changeswhennfkccasefolded' => 'CWKCF/Y',
+'changeswhentitlecased' => 'CWT/Y',
+'changeswhenuppercased' => 'CWU/Y',
+'cher' => '#/625',
+'cherokee' => '#/625',
+'cherokeesup' => '#/289',
+'cherokeesupplement' => '#/289',
+'ci' => 'CI/Y',
+'ci=f' => '!CI/Y',
+'ci=false' => '!CI/Y',
+'ci=n' => '!CI/Y',
+'ci=no' => '!CI/Y',
+'ci=t' => 'CI/Y',
+'ci=true' => 'CI/Y',
+'ci=y' => 'CI/Y',
+'ci=yes' => 'CI/Y',
+'cjk' => '#/112',
+'cjkcompat' => '#/245',
+'cjkcompatforms' => '#/334',
+'cjkcompatibility' => '#/245',
+'cjkcompatibilityforms' => '#/334',
+'cjkcompatibilityideographs' => '#/376',
+'cjkcompatibilityideographssupplement' => '#/385',
+'cjkcompatideographs' => '#/376',
+'cjkcompatideographssup' => '#/385',
+'cjkexta' => '#/178',
+'cjkextb' => '#/179',
+'cjkextc' => '#/180',
+'cjkextd' => '#/181',
+'cjkexte' => '#/182',
+'cjkextf' => '#/183',
+'cjkradicalssup' => '#/335',
+'cjkradicalssupplement' => '#/335',
+'cjkstrokes' => '#/271',
+'cjksymbols' => '#/272',
+'cjksymbolsandpunctuation' => '#/272',
+'cjkunifiedideographs' => '#/112',
+'cjkunifiedideographsextensiona' => '#/178',
+'cjkunifiedideographsextensionb' => '#/179',
+'cjkunifiedideographsextensionc' => '#/180',
+'cjkunifiedideographsextensiond' => '#/181',
+'cjkunifiedideographsextensione' => '#/182',
+'cjkunifiedideographsextensionf' => '#/183',
+'closepunctuation' => 'Gc/Pe',
+'cn' => 'Gc/Cn',
+'cntrl' => '#/394',
+'co' => '#/395',
+'combiningdiacriticalmarks' => '#/314',
+'combiningdiacriticalmarksextended' => '#/343',
+'combiningdiacriticalmarksforsymbols' => '#/386',
+'combiningdiacriticalmarkssupplement' => '#/344',
+'combininghalfmarks' => '#/248',
+'combiningmark' => 'Gc/M',
+'combiningmarksforsymbols' => '#/386',
+'common' => 'Scx/Zyyy',
+'commonindicnumberforms' => '#/359',
+'compatjamo' => '#/273',
+'compex' => 'CompEx/Y',
+'compex=f' => '!CompEx/Y',
+'compex=false' => '!CompEx/Y',
+'compex=n' => '!CompEx/Y',
+'compex=no' => '!CompEx/Y',
+'compex=t' => 'CompEx/Y',
+'compex=true' => 'CompEx/Y',
+'compex=y' => 'CompEx/Y',
+'compex=yes' => 'CompEx/Y',
+'compositionexclusion' => 'CE/Y',
+'connectorpunctuation' => 'Gc/Pc',
+'control' => '#/394',
+'controlpictures' => '#/341',
+'copt' => 'Scx/Copt',
+'coptic' => 'Scx/Copt',
+'copticepactnumbers' => '#/370',
+'countingrod' => '#/290',
+'countingrodnumerals' => '#/290',
+'cprt' => 'Scx/Cprt',
+'cs' => '#/14',
+'cuneiform' => 'Scx/Xsux',
+'cuneiformnumbers' => '#/354',
+'cuneiformnumbersandpunctuation' => '#/354',
+'currencysymbol' => 'Gc/Sc',
+'currencysymbols' => '#/342',
+'cwcf' => 'CWCF/Y',
+'cwcf=f' => '!CWCF/Y',
+'cwcf=false' => '!CWCF/Y',
+'cwcf=n' => '!CWCF/Y',
+'cwcf=no' => '!CWCF/Y',
+'cwcf=t' => 'CWCF/Y',
+'cwcf=true' => 'CWCF/Y',
+'cwcf=y' => 'CWCF/Y',
+'cwcf=yes' => 'CWCF/Y',
+'cwcm' => 'CWCM/Y',
+'cwcm=f' => '!CWCM/Y',
+'cwcm=false' => '!CWCM/Y',
+'cwcm=n' => '!CWCM/Y',
+'cwcm=no' => '!CWCM/Y',
+'cwcm=t' => 'CWCM/Y',
+'cwcm=true' => 'CWCM/Y',
+'cwcm=y' => 'CWCM/Y',
+'cwcm=yes' => 'CWCM/Y',
+'cwkcf' => 'CWKCF/Y',
+'cwkcf=f' => '!CWKCF/Y',
+'cwkcf=false' => '!CWKCF/Y',
+'cwkcf=n' => '!CWKCF/Y',
+'cwkcf=no' => '!CWKCF/Y',
+'cwkcf=t' => 'CWKCF/Y',
+'cwkcf=true' => 'CWKCF/Y',
+'cwkcf=y' => 'CWKCF/Y',
+'cwkcf=yes' => 'CWKCF/Y',
+'cwl' => 'CWL/Y',
+'cwl=f' => '!CWL/Y',
+'cwl=false' => '!CWL/Y',
+'cwl=n' => '!CWL/Y',
+'cwl=no' => '!CWL/Y',
+'cwl=t' => 'CWL/Y',
+'cwl=true' => 'CWL/Y',
+'cwl=y' => 'CWL/Y',
+'cwl=yes' => 'CWL/Y',
+'cwt' => 'CWT/Y',
+'cwt=f' => '!CWT/Y',
+'cwt=false' => '!CWT/Y',
+'cwt=n' => '!CWT/Y',
+'cwt=no' => '!CWT/Y',
+'cwt=t' => 'CWT/Y',
+'cwt=true' => 'CWT/Y',
+'cwt=y' => 'CWT/Y',
+'cwt=yes' => 'CWT/Y',
+'cwu' => 'CWU/Y',
+'cwu=f' => '!CWU/Y',
+'cwu=false' => '!CWU/Y',
+'cwu=n' => '!CWU/Y',
+'cwu=no' => '!CWU/Y',
+'cwu=t' => 'CWU/Y',
+'cwu=true' => 'CWU/Y',
+'cwu=y' => 'CWU/Y',
+'cwu=yes' => 'CWU/Y',
+'cypriot' => 'Scx/Cprt',
+'cypriotsyllabary' => '#/355',
+'cyrillic' => 'Scx/Cyrl',
+'cyrillicexta' => '#/311',
+'cyrillicextb' => '#/312',
+'cyrillicextc' => '#/313',
+'cyrillicextendeda' => '#/311',
+'cyrillicextendedb' => '#/312',
+'cyrillicextendedc' => '#/313',
+'cyrillicsup' => '#/291',
+'cyrillicsupplement' => '#/291',
+'cyrillicsupplementary' => '#/291',
+'cyrl' => 'Scx/Cyrl',
+'dash' => 'Dash/Y',
+'dash=f' => '!Dash/Y',
+'dash=false' => '!Dash/Y',
+'dash=n' => '!Dash/Y',
+'dash=no' => '!Dash/Y',
+'dash=t' => 'Dash/Y',
+'dash=true' => 'Dash/Y',
+'dash=y' => 'Dash/Y',
+'dash=yes' => 'Dash/Y',
+'dashpunctuation' => 'Gc/Pd',
+'decimalnumber' => 'Gc/Nd',
+'defaultignorablecodepoint' => 'DI/Y',
+'dep' => 'Dep/Y',
+'dep=f' => '!Dep/Y',
+'dep=false' => '!Dep/Y',
+'dep=n' => '!Dep/Y',
+'dep=no' => '!Dep/Y',
+'dep=t' => 'Dep/Y',
+'dep=true' => 'Dep/Y',
+'dep=y' => 'Dep/Y',
+'dep=yes' => 'Dep/Y',
+'deprecated' => 'Dep/Y',
+'deseret' => '#/184',
+'deva' => 'Scx/Deva',
+'devanagari' => 'Scx/Deva',
+'devanagariext' => '#/326',
+'devanagariextended' => '#/326',
+'di' => 'DI/Y',
+'di=f' => '!DI/Y',
+'di=false' => '!DI/Y',
+'di=n' => '!DI/Y',
+'di=no' => '!DI/Y',
+'di=t' => 'DI/Y',
+'di=true' => 'DI/Y',
+'di=y' => 'DI/Y',
+'di=yes' => 'DI/Y',
+'dia' => 'Dia/Y',
+'dia=f' => '!Dia/Y',
+'dia=false' => '!Dia/Y',
+'dia=n' => '!Dia/Y',
+'dia=no' => '!Dia/Y',
+'dia=t' => 'Dia/Y',
+'dia=true' => 'Dia/Y',
+'dia=y' => 'Dia/Y',
+'dia=yes' => 'Dia/Y',
+'diacritic' => 'Dia/Y',
+'diacriticals' => '#/314',
+'diacriticalsext' => '#/343',
+'diacriticalsforsymbols' => '#/386',
+'diacriticalssup' => '#/344',
+'digit' => 'Gc/Nd',
+'dingbats' => '#/221',
+'domino' => '#/155',
+'dominotiles' => '#/155',
+'dsrt' => '#/184',
+'dt=can' => 'NFDQC/N',
+'dt=canonical' => 'NFDQC/N',
+'dt=circle' => 'Dt/Enc',
+'dt=com' => 'Dt/Com',
+'dt=compat' => 'Dt/Com',
+'dt=enc' => 'Dt/Enc',
+'dt=fin' => 'Dt/Fin',
+'dt=final' => 'Dt/Fin',
+'dt=font' => 'Dt/Font',
+'dt=fra' => '#/391',
+'dt=fraction' => '#/391',
+'dt=init' => 'Dt/Init',
+'dt=initial' => 'Dt/Init',
+'dt=iso' => 'Dt/Iso',
+'dt=isolated' => 'Dt/Iso',
+'dt=med' => 'Dt/Med',
+'dt=medial' => 'Dt/Med',
+'dt=nar' => 'Dt/Nar',
+'dt=narrow' => 'Dt/Nar',
+'dt=nb' => 'Dt/Nb',
+'dt=nobreak' => 'Dt/Nb',
+'dt=noncanon' => 'Dt/NonCanon',
+'dt=noncanonical' => 'Dt/NonCanon',
+'dt=none' => 'NFKDQC/Y',
+'dt=small' => '#/392',
+'dt=sml' => '#/392',
+'dt=sqr' => 'Dt/Sqr',
+'dt=square' => 'Dt/Sqr',
+'dt=sub' => 'Dt/Sub',
+'dt=sup' => 'Dt/Sup',
+'dt=super' => 'Dt/Sup',
+'dt=vert' => 'Dt/Vert',
+'dt=vertical' => 'Dt/Vert',
+'dt=wide' => '#/393',
+'dupl' => 'Scx/Dupl',
+'duployan' => 'Scx/Dupl',
+'ea=a' => 'Ea/A',
+'ea=ambiguous' => 'Ea/A',
+'ea=f' => '#/393',
+'ea=fullwidth' => '#/393',
+'ea=h' => 'Ea/H',
+'ea=halfwidth' => 'Ea/H',
+'ea=n' => 'Ea/N',
+'ea=na' => 'Ea/Na',
+'ea=narrow' => 'Ea/Na',
+'ea=neutral' => 'Ea/N',
+'ea=w' => 'Ea/W',
+'ea=wide' => 'Ea/W',
+'earlydynasticcuneiform' => '#/387',
+'egyp' => '#/626',
+'egyptianhieroglyphs' => '#/626',
+'elba' => '#/627',
+'elbasan' => '#/627',
+'emoticons' => '#/247',
+'enclosedalphanum' => '#/356',
+'enclosedalphanumerics' => '#/356',
+'enclosedalphanumericsupplement' => '#/378',
+'enclosedalphanumsup' => '#/378',
+'enclosedcjk' => '#/292',
+'enclosedcjklettersandmonths' => '#/292',
+'enclosedideographicsup' => '#/388',
+'enclosedideographicsupplement' => '#/388',
+'enclosingmark' => 'Gc/Me',
+'ethi' => 'Scx/Ethi',
+'ethiopic' => 'Scx/Ethi',
+'ethiopicext' => '#/293',
+'ethiopicexta' => '#/315',
+'ethiopicextended' => '#/293',
+'ethiopicextendeda' => '#/315',
+'ethiopicsup' => '#/294',
+'ethiopicsupplement' => '#/294',
+'ext' => 'Ext/Y',
+'ext=f' => '!Ext/Y',
+'ext=false' => '!Ext/Y',
+'ext=n' => '!Ext/Y',
+'ext=no' => '!Ext/Y',
+'ext=t' => 'Ext/Y',
+'ext=true' => 'Ext/Y',
+'ext=y' => 'Ext/Y',
+'ext=yes' => 'Ext/Y',
+'extender' => 'Ext/Y',
+'finalpunctuation' => 'Gc/Pf',
+'format' => 'Gc/Cf',
+'fullcompositionexclusion' => 'CompEx/Y',
+'gc=c' => 'Gc/C',
+'gc=casedletter' => 'Gc/LC',
+'gc=cc' => '#/394',
+'gc=cf' => 'Gc/Cf',
+'gc=closepunctuation' => 'Gc/Pe',
+'gc=cn' => 'Gc/Cn',
+'gc=cntrl' => '#/394',
+'gc=co' => '#/395',
+'gc=combiningmark' => 'Gc/M',
+'gc=connectorpunctuation' => 'Gc/Pc',
+'gc=control' => '#/394',
+'gc=cs' => '#/14',
+'gc=currencysymbol' => 'Gc/Sc',
+'gc=dashpunctuation' => 'Gc/Pd',
+'gc=decimalnumber' => 'Gc/Nd',
+'gc=digit' => 'Gc/Nd',
+'gc=enclosingmark' => 'Gc/Me',
+'gc=finalpunctuation' => 'Gc/Pf',
+'gc=format' => 'Gc/Cf',
+'gc=initialpunctuation' => 'Gc/Pi',
+'gc=l' => 'Gc/L',
+'gc=l&' => 'Gc/LC',
+'gc=l_' => 'Gc/LC',
+'gc=lc' => 'Gc/LC',
+'gc=letter' => 'Gc/L',
+'gc=letternumber' => 'Gc/Nl',
+'gc=lineseparator' => '#/396',
+'gc=ll' => 'Gc/Ll',
+'gc=lm' => 'Gc/Lm',
+'gc=lo' => 'Gc/Lo',
+'gc=lowercaseletter' => 'Gc/Ll',
+'gc=lt' => 'Perl/Title',
+'gc=lu' => 'Gc/Lu',
+'gc=m' => 'Gc/M',
+'gc=mark' => 'Gc/M',
+'gc=mathsymbol' => 'Gc/Sm',
+'gc=mc' => 'Gc/Mc',
+'gc=me' => 'Gc/Me',
+'gc=mn' => 'Gc/Mn',
+'gc=modifierletter' => 'Gc/Lm',
+'gc=modifiersymbol' => 'Gc/Sk',
+'gc=n' => 'Gc/N',
+'gc=nd' => 'Gc/Nd',
+'gc=nl' => 'Gc/Nl',
+'gc=no' => 'Gc/No',
+'gc=nonspacingmark' => 'Gc/Mn',
+'gc=number' => 'Gc/N',
+'gc=openpunctuation' => 'Gc/Ps',
+'gc=other' => 'Gc/C',
+'gc=otherletter' => 'Gc/Lo',
+'gc=othernumber' => 'Gc/No',
+'gc=otherpunctuation' => 'Gc/Po',
+'gc=othersymbol' => 'Gc/So',
+'gc=p' => 'Gc/P',
+'gc=paragraphseparator' => '#/397',
+'gc=pc' => 'Gc/Pc',
+'gc=pd' => 'Gc/Pd',
+'gc=pe' => 'Gc/Pe',
+'gc=pf' => 'Gc/Pf',
+'gc=pi' => 'Gc/Pi',
+'gc=po' => 'Gc/Po',
+'gc=privateuse' => '#/395',
+'gc=ps' => 'Gc/Ps',
+'gc=punct' => 'Gc/P',
+'gc=punctuation' => 'Gc/P',
+'gc=s' => 'Gc/S',
+'gc=sc' => 'Gc/Sc',
+'gc=separator' => 'Gc/Z',
+'gc=sk' => 'Gc/Sk',
+'gc=sm' => 'Gc/Sm',
+'gc=so' => 'Gc/So',
+'gc=spaceseparator' => 'Gc/Zs',
+'gc=spacingmark' => 'Gc/Mc',
+'gc=surrogate' => '#/14',
+'gc=symbol' => 'Gc/S',
+'gc=titlecaseletter' => 'Perl/Title',
+'gc=unassigned' => 'Gc/Cn',
+'gc=uppercaseletter' => 'Gc/Lu',
+'gc=z' => 'Gc/Z',
+'gc=zl' => '#/396',
+'gc=zp' => '#/397',
+'gc=zs' => 'Gc/Zs',
+'gcb=cn' => 'GCB/CN',
+'gcb=control' => 'GCB/CN',
+'gcb=cr' => '#/63',
+'gcb=eb' => 'GCB/EB',
+'gcb=ebase' => 'GCB/EB',
+'gcb=ebasegaz' => '#/67',
+'gcb=ebg' => '#/67',
+'gcb=em' => '#/64',
+'gcb=emodifier' => '#/64',
+'gcb=ex' => 'GCB/EX',
+'gcb=extend' => 'GCB/EX',
+'gcb=gaz' => 'GCB/GAZ',
+'gcb=glueafterzwj' => 'GCB/GAZ',
+'gcb=l' => '#/60',
+'gcb=lf' => '#/65',
+'gcb=lv' => 'GCB/LV',
+'gcb=lvt' => 'GCB/LVT',
+'gcb=other' => 'GCB/XX',
+'gcb=pp' => 'GCB/PP',
+'gcb=prepend' => 'GCB/PP',
+'gcb=regionalindicator' => '#/66',
+'gcb=ri' => '#/66',
+'gcb=sm' => 'GCB/SM',
+'gcb=spacingmark' => 'GCB/SM',
+'gcb=t' => '#/61',
+'gcb=v' => '#/62',
+'gcb=xx' => 'GCB/XX',
+'gcb=zwj' => '#/68',
+'generalpunctuation' => '#/304',
+'geometricshapes' => '#/345',
+'geometricshapesext' => '#/371',
+'geometricshapesextended' => '#/371',
+'geor' => 'Scx/Geor',
+'georgian' => 'Scx/Geor',
+'georgiansup' => '#/295',
+'georgiansupplement' => '#/295',
+'glag' => 'Scx/Glag',
+'glagolitic' => 'Scx/Glag',
+'glagoliticsup' => '#/327',
+'glagoliticsupplement' => '#/327',
+'gonm' => 'Scx/Gonm',
+'goth' => '#/628',
+'gothic' => '#/628',
+'gran' => 'Scx/Gran',
+'grantha' => 'Scx/Gran',
+'graph' => 'Perl/Graph',
+'graphemebase' => 'GrBase/Y',
+'graphemeextend' => 'GCB/EX',
+'grbase' => 'GrBase/Y',
+'grbase=f' => '!GrBase/Y',
+'grbase=false' => '!GrBase/Y',
+'grbase=n' => '!GrBase/Y',
+'grbase=no' => '!GrBase/Y',
+'grbase=t' => 'GrBase/Y',
+'grbase=true' => 'GrBase/Y',
+'grbase=y' => 'GrBase/Y',
+'grbase=yes' => 'GrBase/Y',
+'greek' => 'Scx/Grek',
+'greekandcoptic' => '#/136',
+'greekext' => '#/225',
+'greekextended' => '#/225',
+'grek' => 'Scx/Grek',
+'grext' => 'GCB/EX',
+'grext=f' => '!GCB/EX',
+'grext=false' => '!GCB/EX',
+'grext=n' => '!GCB/EX',
+'grext=no' => '!GCB/EX',
+'grext=t' => 'GCB/EX',
+'grext=true' => 'GCB/EX',
+'grext=y' => 'GCB/EX',
+'grext=yes' => 'GCB/EX',
+'gujarati' => 'Scx/Gujr',
+'gujr' => 'Scx/Gujr',
+'gurmukhi' => 'Scx/Guru',
+'guru' => 'Scx/Guru',
+'halfandfullforms' => '#/357',
+'halfmarks' => '#/248',
+'halfwidthandfullwidthforms' => '#/357',
+'han' => 'Scx/Han',
+'hang' => 'Scx/Hang',
+'hangul' => 'Scx/Hang',
+'hangulcompatibilityjamo' => '#/273',
+'hanguljamo' => '#/122',
+'hanguljamoextendeda' => '#/229',
+'hanguljamoextendedb' => '#/230',
+'hangulsyllables' => '#/157',
+'hani' => 'Scx/Han',
+'hano' => '#/629',
+'hanunoo' => '#/629',
+'hatr' => '#/630',
+'hatran' => '#/630',
+'hebr' => 'Scx/Hebr',
+'hebrew' => 'Scx/Hebr',
+'hex' => 'Hex/Y',
+'hex=f' => '!Hex/Y',
+'hex=false' => '!Hex/Y',
+'hex=n' => '!Hex/Y',
+'hex=no' => '!Hex/Y',
+'hex=t' => 'Hex/Y',
+'hex=true' => 'Hex/Y',
+'hex=y' => 'Hex/Y',
+'hex=yes' => 'Hex/Y',
+'hexdigit' => 'Hex/Y',
+'highprivateusesurrogates' => '#/358',
+'highpusurrogates' => '#/358',
+'highsurrogates' => '#/336',
+'hira' => 'Scx/Hira',
+'hiragana' => 'Scx/Hira',
+'hluw' => '#/631',
+'hmng' => 'Scx/Hmng',
+'horizspace' => 'Perl/Blank',
+'hst=l' => '#/60',
+'hst=leadingjamo' => '#/60',
+'hst=lv' => 'GCB/LV',
+'hst=lvsyllable' => 'GCB/LV',
+'hst=lvt' => 'GCB/LVT',
+'hst=lvtsyllable' => 'GCB/LVT',
+'hst=na' => 'Hst/NA',
+'hst=notapplicable' => 'Hst/NA',
+'hst=t' => '#/61',
+'hst=trailingjamo' => '#/61',
+'hst=v' => '#/62',
+'hst=voweljamo' => '#/62',
+'hung' => '#/632',
+'hyphen' => 'Hyphen/T',
+'hyphen=f' => '!Hyphen/T',
+'hyphen=false' => '!Hyphen/T',
+'hyphen=n' => '!Hyphen/T',
+'hyphen=no' => '!Hyphen/T',
+'hyphen=t' => 'Hyphen/T',
+'hyphen=true' => 'Hyphen/T',
+'hyphen=y' => 'Hyphen/T',
+'hyphen=yes' => 'Hyphen/T',
+'idc' => 'IDC/Y',
+'idc=f' => '!IDC/Y',
+'idc=false' => '!IDC/Y',
+'idc=n' => '!IDC/Y',
+'idc=no' => '!IDC/Y',
+'idc=t' => 'IDC/Y',
+'idc=true' => 'IDC/Y',
+'idc=y' => 'IDC/Y',
+'idc=yes' => 'IDC/Y',
+'idcontinue' => 'IDC/Y',
+'ideo' => 'Ideo/Y',
+'ideo=f' => '!Ideo/Y',
+'ideo=false' => '!Ideo/Y',
+'ideo=n' => '!Ideo/Y',
+'ideo=no' => '!Ideo/Y',
+'ideo=t' => 'Ideo/Y',
+'ideo=true' => 'Ideo/Y',
+'ideo=y' => 'Ideo/Y',
+'ideo=yes' => 'Ideo/Y',
+'ideographic' => 'Ideo/Y',
+'ideographicdescriptioncharacters' => '#/113',
+'ideographicsymbols' => '#/372',
+'ideographicsymbolsandpunctuation' => '#/372',
+'ids' => 'IDS/Y',
+'ids=f' => '!IDS/Y',
+'ids=false' => '!IDS/Y',
+'ids=n' => '!IDS/Y',
+'ids=no' => '!IDS/Y',
+'ids=t' => 'IDS/Y',
+'ids=true' => 'IDS/Y',
+'ids=y' => 'IDS/Y',
+'ids=yes' => 'IDS/Y',
+'idsb' => '#/69',
+'idsb=f' => '#/!69',
+'idsb=false' => '#/!69',
+'idsb=n' => '#/!69',
+'idsb=no' => '#/!69',
+'idsb=t' => '#/69',
+'idsb=true' => '#/69',
+'idsb=y' => '#/69',
+'idsb=yes' => '#/69',
+'idsbinaryoperator' => '#/69',
+'idst' => '#/71',
+'idst=f' => '#/!71',
+'idst=false' => '#/!71',
+'idst=n' => '#/!71',
+'idst=no' => '#/!71',
+'idst=t' => '#/71',
+'idst=true' => '#/71',
+'idst=y' => '#/71',
+'idst=yes' => '#/71',
+'idstart' => 'IDS/Y',
+'idstrinaryoperator' => '#/71',
+'imperialaramaic' => '#/614',
+'in=unassigned' => 'Age/NA',
+'in=v100' => 'In/10_0',
+'in=v20' => 'In/2_0',
+'in=v21' => 'In/2_1',
+'in=v30' => 'In/3_0',
+'in=v31' => 'In/3_1',
+'in=v32' => 'In/3_2',
+'in=v40' => 'In/4_0',
+'in=v41' => 'In/4_1',
+'in=v50' => 'In/5_0',
+'in=v51' => 'In/5_1',
+'in=v52' => 'In/5_2',
+'in=v60' => 'In/6_0',
+'in=v61' => 'In/6_1',
+'in=v62' => 'In/6_2',
+'in=v63' => 'In/6_3',
+'in=v70' => 'In/7_0',
+'in=v80' => 'In/8_0',
+'in=v90' => 'In/9_0',
+'inadlam' => '#/132',
+'inaegeannumbers' => '#/324',
+'inahom' => '#/120',
+'inalchemical' => '#/267',
+'inalchemicalsymbols' => '#/267',
+'inalphabeticpf' => '#/310',
+'inalphabeticpresentationforms' => '#/310',
+'inanatolianhieroglyphs' => '#/381',
+'inancientgreekmusic' => '#/366',
+'inancientgreekmusicalnotation' => '#/366',
+'inancientgreeknumbers' => '#/375',
+'inancientsymbols' => '#/332',
+'inarabic' => '#/149',
+'inarabicexta' => '#/268',
+'inarabicextendeda' => '#/268',
+'inarabicmath' => '#/269',
+'inarabicmathematicalalphabeticsymbols' => '#/269',
+'inarabicpfa' => '#/241',
+'inarabicpfb' => '#/242',
+'inarabicpresentationformsa' => '#/241',
+'inarabicpresentationformsb' => '#/242',
+'inarabicsup' => '#/243',
+'inarabicsupplement' => '#/243',
+'inarmenian' => '#/213',
+'inarrows' => '#/150',
+'inascii' => '#/131',
+'inavestan' => '#/175',
+'inbalinese' => '#/214',
+'inbamum' => '#/133',
+'inbamumsup' => '#/215',
+'inbamumsupplement' => '#/215',
+'inbasiclatin' => '#/131',
+'inbassavah' => '#/216',
+'inbatak' => '#/134',
+'inbengali' => '#/176',
+'inbhaiksuki' => '#/244',
+'inblockelements' => '#/325',
+'inbopomofo' => '#/217',
+'inbopomofoext' => '#/288',
+'inbopomofoextended' => '#/288',
+'inboxdrawing' => '#/270',
+'inbrahmi' => '#/151',
+'inbraille' => '#/177',
+'inbraillepatterns' => '#/177',
+'inbuginese' => '#/218',
+'inbuhid' => '#/135',
+'inbyzantinemusic' => '#/333',
+'inbyzantinemusicalsymbols' => '#/333',
+'incanadiansyllabics' => '#/130',
+'incarian' => '#/152',
+'incaucasianalbanian' => '#/367',
+'inchakma' => '#/153',
+'incham' => '#/121',
+'incherokee' => '#/219',
+'incherokeesup' => '#/289',
+'incherokeesupplement' => '#/289',
+'incjk' => '#/112',
+'incjkcompat' => '#/245',
+'incjkcompatforms' => '#/334',
+'incjkcompatibility' => '#/245',
+'incjkcompatibilityforms' => '#/334',
+'incjkcompatibilityideographs' => '#/376',
+'incjkcompatibilityideographssupplement' => '#/385',
+'incjkcompatideographs' => '#/376',
+'incjkcompatideographssup' => '#/385',
+'incjkexta' => '#/178',
+'incjkextb' => '#/179',
+'incjkextc' => '#/180',
+'incjkextd' => '#/181',
+'incjkexte' => '#/182',
+'incjkextf' => '#/183',
+'incjkradicalssup' => '#/335',
+'incjkradicalssupplement' => '#/335',
+'incjkstrokes' => '#/271',
+'incjksymbols' => '#/272',
+'incjksymbolsandpunctuation' => '#/272',
+'incjkunifiedideographs' => '#/112',
+'incjkunifiedideographsextensiona' => '#/178',
+'incjkunifiedideographsextensionb' => '#/179',
+'incjkunifiedideographsextensionc' => '#/180',
+'incjkunifiedideographsextensiond' => '#/181',
+'incjkunifiedideographsextensione' => '#/182',
+'incjkunifiedideographsextensionf' => '#/183',
+'incombiningdiacriticalmarks' => '#/314',
+'incombiningdiacriticalmarksextended' => '#/343',
+'incombiningdiacriticalmarksforsymbols' => '#/386',
+'incombiningdiacriticalmarkssupplement' => '#/344',
+'incombininghalfmarks' => '#/248',
+'incombiningmarksforsymbols' => '#/386',
+'incommonindicnumberforms' => '#/359',
+'incompatjamo' => '#/273',
+'incontrolpictures' => '#/341',
+'incoptic' => '#/154',
+'incopticepactnumbers' => '#/370',
+'incountingrod' => '#/290',
+'incountingrodnumerals' => '#/290',
+'incuneiform' => '#/246',
+'incuneiformnumbers' => '#/354',
+'incuneiformnumbersandpunctuation' => '#/354',
+'incurrencysymbols' => '#/342',
+'incypriotsyllabary' => '#/355',
+'incyrillic' => '#/220',
+'incyrillicexta' => '#/311',
+'incyrillicextb' => '#/312',
+'incyrillicextc' => '#/313',
+'incyrillicextendeda' => '#/311',
+'incyrillicextendedb' => '#/312',
+'incyrillicextendedc' => '#/313',
+'incyrillicsup' => '#/291',
+'incyrillicsupplement' => '#/291',
+'incyrillicsupplementary' => '#/291',
+'indeseret' => '#/184',
+'indevanagari' => '#/274',
+'indevanagariext' => '#/326',
+'indevanagariextended' => '#/326',
+'indiacriticals' => '#/314',
+'indiacriticalsext' => '#/343',
+'indiacriticalsforsymbols' => '#/386',
+'indiacriticalssup' => '#/344',
+'indicnumberforms' => '#/359',
+'indingbats' => '#/221',
+'indomino' => '#/155',
+'indominotiles' => '#/155',
+'induployan' => '#/222',
+'inearlydynasticcuneiform' => '#/387',
+'inegyptianhieroglyphs' => '#/377',
+'inelbasan' => '#/185',
+'inemoticons' => '#/247',
+'inenclosedalphanum' => '#/356',
+'inenclosedalphanumerics' => '#/356',
+'inenclosedalphanumericsupplement' => '#/378',
+'inenclosedalphanumsup' => '#/378',
+'inenclosedcjk' => '#/292',
+'inenclosedcjklettersandmonths' => '#/292',
+'inenclosedideographicsup' => '#/388',
+'inenclosedideographicsupplement' => '#/388',
+'inethiopic' => '#/223',
+'inethiopicext' => '#/293',
+'inethiopicexta' => '#/315',
+'inethiopicextended' => '#/293',
+'inethiopicextendeda' => '#/315',
+'inethiopicsup' => '#/294',
+'inethiopicsupplement' => '#/294',
+'ingeneralpunctuation' => '#/304',
+'ingeometricshapes' => '#/345',
+'ingeometricshapesext' => '#/371',
+'ingeometricshapesextended' => '#/371',
+'ingeorgian' => '#/224',
+'ingeorgiansup' => '#/295',
+'ingeorgiansupplement' => '#/295',
+'inglagolitic' => '#/275',
+'inglagoliticsup' => '#/327',
+'inglagoliticsupplement' => '#/327',
+'ingothic' => '#/156',
+'ingrantha' => '#/186',
+'ingreek' => '#/136',
+'ingreekandcoptic' => '#/136',
+'ingreekext' => '#/225',
+'ingreekextended' => '#/225',
+'ingujarati' => '#/226',
+'ingurmukhi' => '#/227',
+'inhalfandfullforms' => '#/357',
+'inhalfmarks' => '#/248',
+'inhalfwidthandfullwidthforms' => '#/357',
+'inhangul' => '#/157',
+'inhangulcompatibilityjamo' => '#/273',
+'inhanguljamo' => '#/122',
+'inhanguljamoextendeda' => '#/229',
+'inhanguljamoextendedb' => '#/230',
+'inhangulsyllables' => '#/157',
+'inhanunoo' => '#/187',
+'inhatran' => '#/158',
+'inhebrew' => '#/159',
+'inherited' => 'Scx/Zinh',
+'inhighprivateusesurrogates' => '#/358',
+'inhighpusurrogates' => '#/358',
+'inhighsurrogates' => '#/336',
+'inhiragana' => '#/228',
+'inidc' => '#/113',
+'inideographicdescriptioncharacters' => '#/113',
+'inideographicsymbols' => '#/372',
+'inideographicsymbolsandpunctuation' => '#/372',
+'inimperialaramaic' => '#/346',
+'inindicnumberforms' => '#/359',
+'ininscriptionalpahlavi' => '#/382',
+'ininscriptionalparthian' => '#/383',
+'inipaext' => '#/160',
+'inipaextensions' => '#/160',
+'initialpunctuation' => 'Gc/Pi',
+'injamo' => '#/122',
+'injamoexta' => '#/229',
+'injamoextb' => '#/230',
+'injavanese' => '#/231',
+'inkaithi' => '#/161',
+'inkanaexta' => '#/232',
+'inkanaextendeda' => '#/232',
+'inkanasup' => '#/188',
+'inkanasupplement' => '#/188',
+'inkanbun' => '#/162',
+'inkangxi' => '#/163',
+'inkangxiradicals' => '#/163',
+'inkannada' => '#/189',
+'inkatakana' => '#/233',
+'inkatakanaext' => '#/296',
+'inkatakanaphoneticextensions' => '#/296',
+'inkayahli' => '#/190',
+'inkharoshthi' => '#/276',
+'inkhmer' => '#/137',
+'inkhmersymbols' => '#/316',
+'inkhojki' => '#/164',
+'inkhudawadi' => '#/249',
+'inlao' => '#/114',
+'inlatin1' => '#/165',
+'inlatin1sup' => '#/165',
+'inlatin1supplement' => '#/165',
+'inlatinexta' => '#/250',
+'inlatinextadditional' => '#/373',
+'inlatinextb' => '#/251',
+'inlatinextc' => '#/252',
+'inlatinextd' => '#/253',
+'inlatinexte' => '#/254',
+'inlatinextendeda' => '#/250',
+'inlatinextendedadditional' => '#/373',
+'inlatinextendedb' => '#/251',
+'inlatinextendedc' => '#/252',
+'inlatinextendedd' => '#/253',
+'inlatinextendede' => '#/254',
+'inlepcha' => '#/166',
+'inletterlikesymbols' => '#/368',
+'inlimbu' => '#/138',
+'inlineara' => '#/191',
+'inlinearbideograms' => '#/360',
+'inlinearbsyllabary' => '#/361',
+'inlisu' => '#/123',
+'inlowsurrogates' => '#/328',
+'inlycian' => '#/167',
+'inlydian' => '#/168',
+'inmahajani' => '#/234',
+'inmahjong' => '#/192',
+'inmahjongtiles' => '#/192',
+'inmalayalam' => '#/255',
+'inmandaic' => '#/193',
+'inmanichaean' => '#/277',
+'inmarchen' => '#/194',
+'inmasaramgondi' => '#/317',
+'inmathalphanum' => '#/318',
+'inmathematicalalphanumericsymbols' => '#/318',
+'inmathematicaloperators' => '#/329',
+'inmathoperators' => '#/329',
+'inmeeteimayek' => '#/297',
+'inmeeteimayekext' => '#/337',
+'inmeeteimayekextensions' => '#/337',
+'inmendekikakui' => '#/319',
+'inmeroiticcursive' => '#/347',
+'inmeroitichieroglyphs' => '#/379',
+'inmiao' => '#/124',
+'inmiscarrows' => '#/278',
+'inmiscellaneousmathematicalsymbolsa' => '#/362',
+'inmiscellaneousmathematicalsymbolsb' => '#/363',
+'inmiscellaneoussymbols' => '#/298',
+'inmiscellaneoussymbolsandarrows' => '#/278',
+'inmiscellaneoussymbolsandpictographs' => '#/348',
+'inmiscellaneoustechnical' => '#/330',
+'inmiscmathsymbolsa' => '#/362',
+'inmiscmathsymbolsb' => '#/363',
+'inmiscpictographs' => '#/348',
+'inmiscsymbols' => '#/298',
+'inmisctechnical' => '#/330',
+'inmodi' => '#/125',
+'inmodifierletters' => '#/349',
+'inmodifiertoneletters' => '#/380',
+'inmongolian' => '#/256',
+'inmongoliansup' => '#/320',
+'inmongoliansupplement' => '#/320',
+'inmro' => '#/115',
+'inmultani' => '#/195',
+'inmusic' => '#/139',
+'inmusicalsymbols' => '#/139',
+'inmyanmar' => '#/196',
+'inmyanmarexta' => '#/299',
+'inmyanmarextb' => '#/300',
+'inmyanmarextendeda' => '#/299',
+'inmyanmarextendedb' => '#/300',
+'innabataean' => '#/257',
+'innb' => 'Blk/NB',
+'innewa' => '#/126',
+'innewtailue' => '#/258',
+'innko' => '#/116',
+'innoblock' => 'Blk/NB',
+'innumberforms' => '#/301',
+'innushu' => '#/140',
+'inocr' => '#/117',
+'inogham' => '#/141',
+'inolchiki' => '#/197',
+'inoldhungarian' => '#/321',
+'inolditalic' => '#/259',
+'inoldnortharabian' => '#/350',
+'inoldpermic' => '#/260',
+'inoldpersian' => '#/279',
+'inoldsoutharabian' => '#/351',
+'inoldturkic' => '#/261',
+'inopticalcharacterrecognition' => '#/117',
+'inoriya' => '#/142',
+'inornamentaldingbats' => '#/374',
+'inosage' => '#/143',
+'inosmanya' => '#/198',
+'inpahawhhmong' => '#/302',
+'inpalmyrene' => '#/262',
+'inpaucinhau' => '#/263',
+'inpc=bottom' => 'InPC/Bottom',
+'inpc=bottomandleft' => '#/73',
+'inpc=bottomandright' => '#/74',
+'inpc=left' => 'InPC/Left',
+'inpc=leftandright' => 'InPC/LeftAndR',
+'inpc=na' => 'InPC/NA',
+'inpc=overstruck' => 'InPC/Overstru',
+'inpc=right' => 'InPC/Right',
+'inpc=top' => 'InPC/Top',
+'inpc=topandbottom' => 'InPC/TopAndBo',
+'inpc=topandbottomandright' => '#/75',
+'inpc=topandleft' => 'InPC/TopAndLe',
+'inpc=topandleftandright' => 'InPC/TopAndL2',
+'inpc=topandright' => 'InPC/TopAndRi',
+'inpc=visualorderleft' => 'InPC/VisualOr',
+'inphagspa' => '#/199',
+'inphaistos' => '#/235',
+'inphaistosdisc' => '#/235',
+'inphoenician' => '#/280',
+'inphoneticext' => '#/303',
+'inphoneticextensions' => '#/303',
+'inphoneticextensionssupplement' => '#/338',
+'inphoneticextsup' => '#/338',
+'inplayingcards' => '#/322',
+'inprivateuse' => '#/118',
+'inprivateusearea' => '#/118',
+'inpsalterpahlavi' => '#/339',
+'inpua' => '#/118',
+'inpunctuation' => '#/304',
+'inrejang' => '#/169',
+'inrumi' => '#/127',
+'inruminumeralsymbols' => '#/127',
+'inrunic' => '#/144',
+'insamaritan' => '#/264',
+'insaurashtra' => '#/281',
+'insc=avagraha' => 'InSC/Avagraha',
+'insc=bindu' => 'InSC/Bindu',
+'insc=brahmijoiningnumber' => '#/85',
+'insc=cantillationmark' => 'InSC/Cantilla',
+'insc=consonant' => 'InSC/Consonan',
+'insc=consonantdead' => '#/79',
+'insc=consonantfinal' => 'InSC/Consona2',
+'insc=consonantheadletter' => '#/86',
+'insc=consonantkiller' => '#/81',
+'insc=consonantmedial' => 'InSC/Consona3',
+'insc=consonantplaceholder' => 'InSC/Consona5',
+'insc=consonantprecedingrepha' => '#/88',
+'insc=consonantprefixed' => '#/84',
+'insc=consonantsubjoined' => 'InSC/Consona4',
+'insc=consonantsucceedingrepha' => 'InSC/Consona6',
+'insc=consonantwithstacker' => '#/87',
+'insc=geminationmark' => '#/80',
+'insc=invisiblestacker' => 'InSC/Invisibl',
+'insc=joiner' => '#/68',
+'insc=modifyingletter' => '#/82',
+'insc=nonjoiner' => '#/76',
+'insc=nukta' => 'InSC/Nukta',
+'insc=number' => 'InSC/Number',
+'insc=numberjoiner' => '#/78',
+'insc=other' => 'InSC/Other',
+'insc=purekiller' => 'InSC/PureKill',
+'insc=registershifter' => '#/83',
+'insc=syllablemodifier' => 'InSC/Syllable',
+'insc=toneletter' => '#/77',
+'insc=tonemark' => 'InSC/ToneMark',
+'insc=virama' => 'InSC/Virama',
+'insc=visarga' => 'InSC/Visarga',
+'insc=vowel' => 'InSC/Vowel',
+'insc=voweldependent' => 'InSC/VowelDep',
+'insc=vowelindependent' => 'InSC/VowelInd',
+'inscriptionalpahlavi' => '#/659',
+'inscriptionalparthian' => '#/661',
+'insharada' => '#/200',
+'inshavian' => '#/201',
+'inshorthandformatcontrols' => '#/389',
+'insiddham' => '#/202',
+'insinhala' => '#/203',
+'insinhalaarchaicnumbers' => '#/384',
+'insmallforms' => '#/282',
+'insmallformvariants' => '#/282',
+'insorasompeng' => '#/305',
+'insoyombo' => '#/204',
+'inspacingmodifierletters' => '#/349',
+'inspecials' => '#/236',
+'insundanese' => '#/265',
+'insundanesesup' => '#/323',
+'insundanesesupplement' => '#/323',
+'insuparrowsa' => '#/283',
+'insuparrowsb' => '#/284',
+'insuparrowsc' => '#/285',
+'insuperandsub' => '#/306',
+'insuperscriptsandsubscripts' => '#/306',
+'insupmathoperators' => '#/364',
+'insupplementalarrowsa' => '#/283',
+'insupplementalarrowsb' => '#/284',
+'insupplementalarrowsc' => '#/285',
+'insupplementalmathematicaloperators' => '#/364',
+'insupplementalpunctuation' => '#/340',
+'insupplementalsymbolsandpictographs' => '#/390',
+'insupplementaryprivateuseareaa' => '#/205',
+'insupplementaryprivateuseareab' => '#/206',
+'insuppuaa' => '#/205',
+'insuppuab' => '#/206',
+'insuppunctuation' => '#/340',
+'insupsymbolsandpictographs' => '#/390',
+'insuttonsignwriting' => '#/369',
+'insylotinagri' => '#/307',
+'insyriac' => '#/170',
+'insyriacsup' => '#/266',
+'insyriacsupplement' => '#/266',
+'intagalog' => '#/207',
+'intagbanwa' => '#/237',
+'intags' => '#/128',
+'intaile' => '#/145',
+'intaitham' => '#/208',
+'intaiviet' => '#/209',
+'intaixuanjing' => '#/308',
+'intaixuanjingsymbols' => '#/308',
+'intakri' => '#/146',
+'intamil' => '#/147',
+'intangut' => '#/171',
+'intangutcomponents' => '#/365',
+'intelugu' => '#/172',
+'inthaana' => '#/173',
+'inthai' => '#/129',
+'intibetan' => '#/210',
+'intifinagh' => '#/238',
+'intirhuta' => '#/211',
+'intransportandmap' => '#/352',
+'intransportandmapsymbols' => '#/352',
+'inucas' => '#/130',
+'inucasext' => '#/212',
+'inugaritic' => '#/239',
+'inunifiedcanadianaboriginalsyllabics' => '#/130',
+'inunifiedcanadianaboriginalsyllabicsextended' => '#/212',
+'invai' => '#/119',
+'invariationselectors' => '#/111',
+'invariationselectorssupplement' => '#/148',
+'invedicext' => '#/240',
+'invedicextensions' => '#/240',
+'inverticalforms' => '#/331',
+'invs' => '#/111',
+'invssup' => '#/148',
+'inwarangciti' => '#/286',
+'inyijing' => '#/174',
+'inyijinghexagramsymbols' => '#/174',
+'inyiradicals' => '#/287',
+'inyisyllables' => '#/309',
+'inzanabazarsquare' => '#/353',
+'ipaext' => '#/160',
+'ipaextensions' => '#/160',
+'isadlam' => 'Scx/Adlm',
+'isadlm' => 'Scx/Adlm',
+'isaegeannumbers' => '#/324',
+'isaghb' => '#/612',
+'isahex' => '#/59',
+'isahom' => '#/613',
+'isalchemical' => '#/267',
+'isalchemicalsymbols' => '#/267',
+'isall' => '#/1',
+'isalnum' => 'Perl/Alnum',
+'isalpha' => 'Alpha/Y',
+'isalphabetic' => 'Alpha/Y',
+'isalphabeticpf' => '#/310',
+'isalphabeticpresentationforms' => '#/310',
+'isanatolianhieroglyphs' => '#/631',
+'isancientgreekmusic' => '#/366',
+'isancientgreekmusicalnotation' => '#/366',
+'isancientgreeknumbers' => '#/375',
+'isancientsymbols' => '#/332',
+'isany' => '#/2',
+'isarab' => 'Scx/Arab',
+'isarabic' => 'Scx/Arab',
+'isarabicexta' => '#/268',
+'isarabicextendeda' => '#/268',
+'isarabicmath' => '#/269',
+'isarabicmathematicalalphabeticsymbols' => '#/269',
+'isarabicpfa' => '#/241',
+'isarabicpfb' => '#/242',
+'isarabicpresentationformsa' => '#/241',
+'isarabicpresentationformsb' => '#/242',
+'isarabicsup' => '#/243',
+'isarabicsupplement' => '#/243',
+'isarmenian' => 'Scx/Armn',
+'isarmi' => '#/614',
+'isarmn' => 'Scx/Armn',
+'isarrows' => '#/150',
+'isascii' => '#/131',
+'isasciihexdigit' => '#/59',
+'isassigned' => 'Perl/Assigned',
+'isavestan' => '#/615',
+'isavst' => '#/615',
+'isbali' => '#/616',
+'isbalinese' => '#/616',
+'isbamu' => '#/617',
+'isbamum' => '#/617',
+'isbamumsup' => '#/215',
+'isbamumsupplement' => '#/215',
+'isbasiclatin' => '#/131',
+'isbass' => '#/618',
+'isbassavah' => '#/618',
+'isbatak' => '#/619',
+'isbatk' => '#/619',
+'isbeng' => 'Scx/Beng',
+'isbengali' => 'Scx/Beng',
+'isbhaiksuki' => 'Scx/Bhks',
+'isbhks' => 'Scx/Bhks',
+'isbidic' => 'BidiC/Y',
+'isbidicontrol' => 'BidiC/Y',
+'isbidim' => 'BidiM/Y',
+'isbidimirrored' => 'BidiM/Y',
+'isblank' => 'Perl/Blank',
+'isblockelements' => '#/325',
+'isbopo' => 'Scx/Bopo',
+'isbopomofo' => 'Scx/Bopo',
+'isbopomofoext' => '#/288',
+'isbopomofoextended' => '#/288',
+'isboxdrawing' => '#/270',
+'isbrah' => '#/620',
+'isbrahmi' => '#/620',
+'isbrai' => '#/177',
+'isbraille' => '#/177',
+'isbraillepatterns' => '#/177',
+'isbugi' => '#/621',
+'isbuginese' => '#/621',
+'isbuhd' => '#/622',
+'isbuhid' => '#/622',
+'isbyzantinemusic' => '#/333',
+'isbyzantinemusicalsymbols' => '#/333',
+'isc' => 'Gc/C',
+'iscakm' => 'Scx/Cakm',
+'iscanadianaboriginal' => '#/623',
+'iscanadiansyllabics' => '#/130',
+'iscans' => '#/623',
+'iscari' => '#/624',
+'iscarian' => '#/624',
+'iscased' => 'Cased/Y',
+'iscasedletter' => 'Gc/LC',
+'iscaseignorable' => 'CI/Y',
+'iscaucasianalbanian' => '#/612',
+'iscc' => '#/394',
+'isce' => 'CE/Y',
+'iscf' => 'Gc/Cf',
+'ischakma' => 'Scx/Cakm',
+'ischam' => 'Scx/Cham',
+'ischangeswhencasefolded' => 'CWCF/Y',
+'ischangeswhencasemapped' => 'CWCM/Y',
+'ischangeswhenlowercased' => 'CWL/Y',
+'ischangeswhennfkccasefolded' => 'CWKCF/Y',
+'ischangeswhentitlecased' => 'CWT/Y',
+'ischangeswhenuppercased' => 'CWU/Y',
+'ischer' => '#/625',
+'ischerokee' => '#/625',
+'ischerokeesup' => '#/289',
+'ischerokeesupplement' => '#/289',
+'isci' => 'CI/Y',
+'iscjk' => '#/112',
+'iscjkcompat' => '#/245',
+'iscjkcompatforms' => '#/334',
+'iscjkcompatibility' => '#/245',
+'iscjkcompatibilityforms' => '#/334',
+'iscjkcompatibilityideographs' => '#/376',
+'iscjkcompatibilityideographssupplement' => '#/385',
+'iscjkcompatideographs' => '#/376',
+'iscjkcompatideographssup' => '#/385',
+'iscjkexta' => '#/178',
+'iscjkextb' => '#/179',
+'iscjkextc' => '#/180',
+'iscjkextd' => '#/181',
+'iscjkexte' => '#/182',
+'iscjkextf' => '#/183',
+'iscjkradicalssup' => '#/335',
+'iscjkradicalssupplement' => '#/335',
+'iscjkstrokes' => '#/271',
+'iscjksymbols' => '#/272',
+'iscjksymbolsandpunctuation' => '#/272',
+'iscjkunifiedideographs' => '#/112',
+'iscjkunifiedideographsextensiona' => '#/178',
+'iscjkunifiedideographsextensionb' => '#/179',
+'iscjkunifiedideographsextensionc' => '#/180',
+'iscjkunifiedideographsextensiond' => '#/181',
+'iscjkunifiedideographsextensione' => '#/182',
+'iscjkunifiedideographsextensionf' => '#/183',
+'isclosepunctuation' => 'Gc/Pe',
+'iscn' => 'Gc/Cn',
+'iscntrl' => '#/394',
+'isco' => '#/395',
+'iscombiningdiacriticalmarks' => '#/314',
+'iscombiningdiacriticalmarksextended' => '#/343',
+'iscombiningdiacriticalmarksforsymbols' => '#/386',
+'iscombiningdiacriticalmarkssupplement' => '#/344',
+'iscombininghalfmarks' => '#/248',
+'iscombiningmark' => 'Gc/M',
+'iscombiningmarksforsymbols' => '#/386',
+'iscommon' => 'Scx/Zyyy',
+'iscommonindicnumberforms' => '#/359',
+'iscompatjamo' => '#/273',
+'iscompex' => 'CompEx/Y',
+'iscompositionexclusion' => 'CE/Y',
+'isconnectorpunctuation' => 'Gc/Pc',
+'iscontrol' => '#/394',
+'iscontrolpictures' => '#/341',
+'iscopt' => 'Scx/Copt',
+'iscoptic' => 'Scx/Copt',
+'iscopticepactnumbers' => '#/370',
+'iscountingrod' => '#/290',
+'iscountingrodnumerals' => '#/290',
+'iscprt' => 'Scx/Cprt',
+'iscs' => '#/14',
+'iscuneiform' => 'Scx/Xsux',
+'iscuneiformnumbers' => '#/354',
+'iscuneiformnumbersandpunctuation' => '#/354',
+'iscurrencysymbol' => 'Gc/Sc',
+'iscurrencysymbols' => '#/342',
+'iscwcf' => 'CWCF/Y',
+'iscwcm' => 'CWCM/Y',
+'iscwkcf' => 'CWKCF/Y',
+'iscwl' => 'CWL/Y',
+'iscwt' => 'CWT/Y',
+'iscwu' => 'CWU/Y',
+'iscypriot' => 'Scx/Cprt',
+'iscypriotsyllabary' => '#/355',
+'iscyrillic' => 'Scx/Cyrl',
+'iscyrillicexta' => '#/311',
+'iscyrillicextb' => '#/312',
+'iscyrillicextc' => '#/313',
+'iscyrillicextendeda' => '#/311',
+'iscyrillicextendedb' => '#/312',
+'iscyrillicextendedc' => '#/313',
+'iscyrillicsup' => '#/291',
+'iscyrillicsupplement' => '#/291',
+'iscyrillicsupplementary' => '#/291',
+'iscyrl' => 'Scx/Cyrl',
+'isdash' => 'Dash/Y',
+'isdashpunctuation' => 'Gc/Pd',
+'isdecimalnumber' => 'Gc/Nd',
+'isdefaultignorablecodepoint' => 'DI/Y',
+'isdep' => 'Dep/Y',
+'isdeprecated' => 'Dep/Y',
+'isdeseret' => '#/184',
+'isdeva' => 'Scx/Deva',
+'isdevanagari' => 'Scx/Deva',
+'isdevanagariext' => '#/326',
+'isdevanagariextended' => '#/326',
+'isdi' => 'DI/Y',
+'isdia' => 'Dia/Y',
+'isdiacritic' => 'Dia/Y',
+'isdiacriticals' => '#/314',
+'isdiacriticalsext' => '#/343',
+'isdiacriticalsforsymbols' => '#/386',
+'isdiacriticalssup' => '#/344',
+'isdigit' => 'Gc/Nd',
+'isdingbats' => '#/221',
+'isdomino' => '#/155',
+'isdominotiles' => '#/155',
+'isdsrt' => '#/184',
+'isdupl' => 'Scx/Dupl',
+'isduployan' => 'Scx/Dupl',
+'isearlydynasticcuneiform' => '#/387',
+'isegyp' => '#/626',
+'isegyptianhieroglyphs' => '#/626',
+'iselba' => '#/627',
+'iselbasan' => '#/627',
+'isemoticons' => '#/247',
+'isenclosedalphanum' => '#/356',
+'isenclosedalphanumerics' => '#/356',
+'isenclosedalphanumericsupplement' => '#/378',
+'isenclosedalphanumsup' => '#/378',
+'isenclosedcjk' => '#/292',
+'isenclosedcjklettersandmonths' => '#/292',
+'isenclosedideographicsup' => '#/388',
+'isenclosedideographicsupplement' => '#/388',
+'isenclosingmark' => 'Gc/Me',
+'isethi' => 'Scx/Ethi',
+'isethiopic' => 'Scx/Ethi',
+'isethiopicext' => '#/293',
+'isethiopicexta' => '#/315',
+'isethiopicextended' => '#/293',
+'isethiopicextendeda' => '#/315',
+'isethiopicsup' => '#/294',
+'isethiopicsupplement' => '#/294',
+'isext' => 'Ext/Y',
+'isextender' => 'Ext/Y',
+'isfinalpunctuation' => 'Gc/Pf',
+'isformat' => 'Gc/Cf',
+'isfullcompositionexclusion' => 'CompEx/Y',
+'isgeneralpunctuation' => '#/304',
+'isgeometricshapes' => '#/345',
+'isgeometricshapesext' => '#/371',
+'isgeometricshapesextended' => '#/371',
+'isgeor' => 'Scx/Geor',
+'isgeorgian' => 'Scx/Geor',
+'isgeorgiansup' => '#/295',
+'isgeorgiansupplement' => '#/295',
+'isglag' => 'Scx/Glag',
+'isglagolitic' => 'Scx/Glag',
+'isglagoliticsup' => '#/327',
+'isglagoliticsupplement' => '#/327',
+'isgonm' => 'Scx/Gonm',
+'isgoth' => '#/628',
+'isgothic' => '#/628',
+'isgran' => 'Scx/Gran',
+'isgrantha' => 'Scx/Gran',
+'isgraph' => 'Perl/Graph',
+'isgraphemebase' => 'GrBase/Y',
+'isgraphemeextend' => 'GCB/EX',
+'isgrbase' => 'GrBase/Y',
+'isgreek' => 'Scx/Grek',
+'isgreekandcoptic' => '#/136',
+'isgreekext' => '#/225',
+'isgreekextended' => '#/225',
+'isgrek' => 'Scx/Grek',
+'isgrext' => 'GCB/EX',
+'isgujarati' => 'Scx/Gujr',
+'isgujr' => 'Scx/Gujr',
+'isgurmukhi' => 'Scx/Guru',
+'isguru' => 'Scx/Guru',
+'ishalfandfullforms' => '#/357',
+'ishalfmarks' => '#/248',
+'ishalfwidthandfullwidthforms' => '#/357',
+'ishan' => 'Scx/Han',
+'ishang' => 'Scx/Hang',
+'ishangul' => 'Scx/Hang',
+'ishangulcompatibilityjamo' => '#/273',
+'ishanguljamo' => '#/122',
+'ishanguljamoextendeda' => '#/229',
+'ishanguljamoextendedb' => '#/230',
+'ishangulsyllables' => '#/157',
+'ishani' => 'Scx/Han',
+'ishano' => '#/629',
+'ishanunoo' => '#/629',
+'ishatr' => '#/630',
+'ishatran' => '#/630',
+'ishebr' => 'Scx/Hebr',
+'ishebrew' => 'Scx/Hebr',
+'ishex' => 'Hex/Y',
+'ishexdigit' => 'Hex/Y',
+'ishighprivateusesurrogates' => '#/358',
+'ishighpusurrogates' => '#/358',
+'ishighsurrogates' => '#/336',
+'ishira' => 'Scx/Hira',
+'ishiragana' => 'Scx/Hira',
+'ishluw' => '#/631',
+'ishmng' => 'Scx/Hmng',
+'ishorizspace' => 'Perl/Blank',
+'ishung' => '#/632',
+'ishyphen' => 'Hyphen/T',
+'isidc' => 'IDC/Y',
+'isidcontinue' => 'IDC/Y',
+'isideo' => 'Ideo/Y',
+'isideographic' => 'Ideo/Y',
+'isideographicdescriptioncharacters' => '#/113',
+'isideographicsymbols' => '#/372',
+'isideographicsymbolsandpunctuation' => '#/372',
+'isids' => 'IDS/Y',
+'isidsb' => '#/69',
+'isidsbinaryoperator' => '#/69',
+'isidst' => '#/71',
+'isidstart' => 'IDS/Y',
+'isidstrinaryoperator' => '#/71',
+'isimperialaramaic' => '#/614',
+'isindicnumberforms' => '#/359',
+'isinherited' => 'Scx/Zinh',
+'isinitialpunctuation' => 'Gc/Pi',
+'isinscriptionalpahlavi' => '#/659',
+'isinscriptionalparthian' => '#/661',
+'isipaext' => '#/160',
+'isipaextensions' => '#/160',
+'isital' => '#/633',
+'isjamo' => '#/122',
+'isjamoexta' => '#/229',
+'isjamoextb' => '#/230',
+'isjava' => '#/634',
+'isjavanese' => '#/634',
+'isjoinc' => '#/89',
+'isjoincontrol' => '#/89',
+'iskaithi' => '#/636',
+'iskali' => '#/190',
+'iskana' => 'Scx/Kana',
+'iskanaexta' => '#/232',
+'iskanaextendeda' => '#/232',
+'iskanasup' => '#/188',
+'iskanasupplement' => '#/188',
+'iskanbun' => '#/162',
+'iskangxi' => '#/163',
+'iskangxiradicals' => '#/163',
+'iskannada' => 'Scx/Knda',
+'iskatakana' => 'Scx/Kana',
+'iskatakanaext' => '#/296',
+'iskatakanaphoneticextensions' => '#/296',
+'iskayahli' => '#/190',
+'iskhar' => 'Scx/Khar',
+'iskharoshthi' => 'Scx/Khar',
+'iskhmer' => 'Scx/Khmr',
+'iskhmersymbols' => '#/316',
+'iskhmr' => 'Scx/Khmr',
+'iskhoj' => '#/635',
+'iskhojki' => '#/635',
+'iskhudawadi' => 'Scx/Sind',
+'isknda' => 'Scx/Knda',
+'iskthi' => '#/636',
+'isl' => 'Gc/L',
+'isl&' => 'Gc/LC',
+'isl_' => 'Gc/LC',
+'islana' => 'Scx/Lana',
+'islao' => 'Scx/Lao',
+'islaoo' => 'Scx/Lao',
+'islatin' => 'Scx/Latn',
+'islatin1' => '#/165',
+'islatin1sup' => '#/165',
+'islatin1supplement' => '#/165',
+'islatinexta' => '#/250',
+'islatinextadditional' => '#/373',
+'islatinextb' => '#/251',
+'islatinextc' => '#/252',
+'islatinextd' => '#/253',
+'islatinexte' => '#/254',
+'islatinextendeda' => '#/250',
+'islatinextendedadditional' => '#/373',
+'islatinextendedb' => '#/251',
+'islatinextendedc' => '#/252',
+'islatinextendedd' => '#/253',
+'islatinextendede' => '#/254',
+'islatn' => 'Scx/Latn',
+'islc' => 'Gc/LC',
+'islepc' => '#/637',
+'islepcha' => '#/637',
+'isletter' => 'Gc/L',
+'isletterlikesymbols' => '#/368',
+'isletternumber' => 'Gc/Nl',
+'islimb' => 'Scx/Limb',
+'islimbu' => 'Scx/Limb',
+'islina' => 'Scx/Lina',
+'islinb' => 'Scx/Linb',
+'islineara' => 'Scx/Lina',
+'islinearb' => 'Scx/Linb',
+'islinearbideograms' => '#/360',
+'islinearbsyllabary' => '#/361',
+'islineseparator' => '#/396',
+'islisu' => '#/123',
+'isll' => 'Gc/Ll',
+'islm' => 'Gc/Lm',
+'islo' => 'Gc/Lo',
+'isloe' => 'InPC/VisualOr',
+'islogicalorderexception' => 'InPC/VisualOr',
+'islower' => 'Lower/Y',
+'islowercase' => 'Lower/Y',
+'islowercaseletter' => 'Gc/Ll',
+'islowsurrogates' => '#/328',
+'islt' => 'Perl/Title',
+'islu' => 'Gc/Lu',
+'islyci' => '#/638',
+'islycian' => '#/638',
+'islydi' => '#/639',
+'islydian' => '#/639',
+'ism' => 'Gc/M',
+'ismahajani' => '#/640',
+'ismahj' => '#/640',
+'ismahjong' => '#/192',
+'ismahjongtiles' => '#/192',
+'ismalayalam' => 'Scx/Mlym',
+'ismand' => '#/641',
+'ismandaic' => '#/641',
+'ismani' => '#/642',
+'ismanichaean' => '#/642',
+'ismarc' => '#/643',
+'ismarchen' => '#/643',
+'ismark' => 'Gc/M',
+'ismasaramgondi' => 'Scx/Gonm',
+'ismath' => 'Math/Y',
+'ismathalphanum' => '#/318',
+'ismathematicalalphanumericsymbols' => '#/318',
+'ismathematicaloperators' => '#/329',
+'ismathoperators' => '#/329',
+'ismathsymbol' => 'Gc/Sm',
+'ismc' => 'Gc/Mc',
+'isme' => 'Gc/Me',
+'ismeeteimayek' => '#/648',
+'ismeeteimayekext' => '#/337',
+'ismeeteimayekextensions' => '#/337',
+'ismend' => '#/644',
+'ismendekikakui' => '#/644',
+'ismerc' => '#/645',
+'ismero' => '#/379',
+'ismeroiticcursive' => '#/645',
+'ismeroitichieroglyphs' => '#/379',
+'ismiao' => '#/646',
+'ismiscarrows' => '#/278',
+'ismiscellaneousmathematicalsymbolsa' => '#/362',
+'ismiscellaneousmathematicalsymbolsb' => '#/363',
+'ismiscellaneoussymbols' => '#/298',
+'ismiscellaneoussymbolsandarrows' => '#/278',
+'ismiscellaneoussymbolsandpictographs' => '#/348',
+'ismiscellaneoustechnical' => '#/330',
+'ismiscmathsymbolsa' => '#/362',
+'ismiscmathsymbolsb' => '#/363',
+'ismiscpictographs' => '#/348',
+'ismiscsymbols' => '#/298',
+'ismisctechnical' => '#/330',
+'ismlym' => 'Scx/Mlym',
+'ismn' => 'Gc/Mn',
+'ismodi' => '#/647',
+'ismodifierletter' => 'Gc/Lm',
+'ismodifierletters' => '#/349',
+'ismodifiersymbol' => 'Gc/Sk',
+'ismodifiertoneletters' => '#/380',
+'ismong' => 'Scx/Mong',
+'ismongolian' => 'Scx/Mong',
+'ismongoliansup' => '#/320',
+'ismongoliansupplement' => '#/320',
+'ismro' => '#/609',
+'ismroo' => '#/609',
+'ismtei' => '#/648',
+'ismult' => 'Scx/Mult',
+'ismultani' => 'Scx/Mult',
+'ismusic' => '#/139',
+'ismusicalsymbols' => '#/139',
+'ismyanmar' => 'Scx/Mymr',
+'ismyanmarexta' => '#/299',
+'ismyanmarextb' => '#/300',
+'ismyanmarextendeda' => '#/299',
+'ismyanmarextendedb' => '#/300',
+'ismymr' => 'Scx/Mymr',
+'isn' => 'Gc/N',
+'isnabataean' => '#/649',
+'isnarb' => '#/350',
+'isnb' => 'Blk/NB',
+'isnbat' => '#/649',
+'isnchar' => 'Perl/_PerlNch',
+'isnd' => 'Gc/Nd',
+'isnewa' => '#/650',
+'isnewtailue' => 'Scx/Talu',
+'isnko' => '#/610',
+'isnkoo' => '#/610',
+'isnl' => 'Gc/Nl',
+'isno' => 'Gc/No',
+'isnoblock' => 'Blk/NB',
+'isnoncharactercodepoint' => 'Perl/_PerlNch',
+'isnonspacingmark' => 'Gc/Mn',
+'isnshu' => '#/651',
+'isnumber' => 'Gc/N',
+'isnumberforms' => '#/301',
+'isnushu' => '#/651',
+'isocr' => '#/117',
+'isogam' => '#/652',
+'isogham' => '#/652',
+'isolchiki' => '#/197',
+'isolck' => '#/197',
+'isoldhungarian' => '#/632',
+'isolditalic' => '#/633',
+'isoldnortharabian' => '#/350',
+'isoldpermic' => '#/657',
+'isoldpersian' => '#/680',
+'isoldsoutharabian' => '#/351',
+'isoldturkic' => '#/653',
+'isopenpunctuation' => 'Gc/Ps',
+'isopticalcharacterrecognition' => '#/117',
+'isoriya' => 'Scx/Orya',
+'isorkh' => '#/653',
+'isornamentaldingbats' => '#/374',
+'isorya' => 'Scx/Orya',
+'isosage' => '#/654',
+'isosge' => '#/654',
+'isosma' => '#/655',
+'isosmanya' => '#/655',
+'isother' => 'Gc/C',
+'isotherletter' => 'Gc/Lo',
+'isothernumber' => 'Gc/No',
+'isotherpunctuation' => 'Gc/Po',
+'isothersymbol' => 'Gc/So',
+'isp' => 'Gc/P',
+'ispahawhhmong' => 'Scx/Hmng',
+'ispalm' => '#/262',
+'ispalmyrene' => '#/262',
+'isparagraphseparator' => '#/397',
+'ispatsyn' => 'PatSyn/Y',
+'ispatternsyntax' => 'PatSyn/Y',
+'ispatternwhitespace' => 'Perl/_PerlPat',
+'ispatws' => 'Perl/_PerlPat',
+'ispauc' => '#/656',
+'ispaucinhau' => '#/656',
+'ispc' => 'Gc/Pc',
+'ispcm' => 'PCM/Y',
+'ispd' => 'Gc/Pd',
+'ispe' => 'Gc/Pe',
+'isperlspace' => '#/3',
+'isperlword' => 'Perl/PerlWord',
+'isperm' => '#/657',
+'ispf' => 'Gc/Pf',
+'isphag' => '#/658',
+'isphagspa' => '#/658',
+'isphaistos' => '#/235',
+'isphaistosdisc' => '#/235',
+'isphli' => '#/659',
+'isphlp' => 'Scx/Phlp',
+'isphnx' => '#/660',
+'isphoenician' => '#/660',
+'isphoneticext' => '#/303',
+'isphoneticextensions' => '#/303',
+'isphoneticextensionssupplement' => '#/338',
+'isphoneticextsup' => '#/338',
+'ispi' => 'Gc/Pi',
+'isplayingcards' => '#/322',
+'isplrd' => '#/646',
+'ispo' => 'Gc/Po',
+'isposixalnum' => '#/5',
+'isposixalpha' => '#/6',
+'isposixblank' => '#/7',
+'isposixcntrl' => '#/8',
+'isposixdigit' => '#/9',
+'isposixgraph' => '#/10',
+'isposixlower' => '#/11',
+'isposixprint' => '#/12',
+'isposixpunct' => 'Perl/PosixPun',
+'isposixspace' => '#/3',
+'isposixupper' => '#/13',
+'isposixword' => 'Perl/PerlWord',
+'isposixxdigit' => '#/59',
+'isprependedconcatenationmark' => 'PCM/Y',
+'isprint' => 'Perl/Print',
+'isprivateuse' => '#/395',
+'isprivateusearea' => '#/118',
+'isprti' => '#/661',
+'isps' => 'Gc/Ps',
+'ispsalterpahlavi' => 'Scx/Phlp',
+'ispua' => '#/118',
+'ispunct' => 'Gc/P',
+'ispunctuation' => 'Gc/P',
+'isqaac' => 'Scx/Copt',
+'isqaai' => 'Scx/Zinh',
+'isqmark' => 'QMark/Y',
+'isquotationmark' => 'QMark/Y',
+'isradical' => '#/92',
+'isregionalindicator' => '#/66',
+'isrejang' => '#/662',
+'isri' => '#/66',
+'isrjng' => '#/662',
+'isrumi' => '#/127',
+'isruminumeralsymbols' => '#/127',
+'isrunic' => '#/663',
+'isrunr' => '#/663',
+'iss' => 'Gc/S',
+'issamaritan' => '#/664',
+'issamr' => '#/664',
+'issarb' => '#/351',
+'issaur' => '#/665',
+'issaurashtra' => '#/665',
+'issc' => 'Gc/Sc',
+'issd' => 'SD/Y',
+'issentenceterminal' => 'STerm/Y',
+'isseparator' => 'Gc/Z',
+'issgnw' => '#/666',
+'issharada' => 'Scx/Shrd',
+'isshavian' => '#/201',
+'isshaw' => '#/201',
+'isshorthandformatcontrols' => '#/389',
+'isshrd' => 'Scx/Shrd',
+'issidd' => '#/667',
+'issiddham' => '#/667',
+'issignwriting' => '#/666',
+'issind' => 'Scx/Sind',
+'issinh' => 'Scx/Sinh',
+'issinhala' => 'Scx/Sinh',
+'issinhalaarchaicnumbers' => '#/384',
+'issk' => 'Gc/Sk',
+'issm' => 'Gc/Sm',
+'issmallforms' => '#/282',
+'issmallformvariants' => '#/282',
+'isso' => 'Gc/So',
+'issoftdotted' => 'SD/Y',
+'issora' => '#/668',
+'issorasompeng' => '#/668',
+'issoyo' => '#/669',
+'issoyombo' => '#/669',
+'isspace' => 'Perl/SpacePer',
+'isspaceperl' => 'Perl/SpacePer',
+'isspaceseparator' => 'Gc/Zs',
+'isspacingmark' => 'Gc/Mc',
+'isspacingmodifierletters' => '#/349',
+'isspecials' => '#/236',
+'issterm' => 'STerm/Y',
+'issund' => '#/670',
+'issundanese' => '#/670',
+'issundanesesup' => '#/323',
+'issundanesesupplement' => '#/323',
+'issuparrowsa' => '#/283',
+'issuparrowsb' => '#/284',
+'issuparrowsc' => '#/285',
+'issuperandsub' => '#/306',
+'issuperscriptsandsubscripts' => '#/306',
+'issupmathoperators' => '#/364',
+'issupplementalarrowsa' => '#/283',
+'issupplementalarrowsb' => '#/284',
+'issupplementalarrowsc' => '#/285',
+'issupplementalmathematicaloperators' => '#/364',
+'issupplementalpunctuation' => '#/340',
+'issupplementalsymbolsandpictographs' => '#/390',
+'issupplementaryprivateuseareaa' => '#/205',
+'issupplementaryprivateuseareab' => '#/206',
+'issuppuaa' => '#/205',
+'issuppuab' => '#/206',
+'issuppunctuation' => '#/340',
+'issupsymbolsandpictographs' => '#/390',
+'issurrogate' => '#/14',
+'issuttonsignwriting' => '#/369',
+'issylo' => '#/671',
+'issylotinagri' => '#/671',
+'issymbol' => 'Gc/S',
+'issyrc' => 'Scx/Syrc',
+'issyriac' => 'Scx/Syrc',
+'issyriacsup' => '#/266',
+'issyriacsupplement' => '#/266',
+'istagalog' => '#/676',
+'istagb' => 'Scx/Tagb',
+'istagbanwa' => 'Scx/Tagb',
+'istags' => '#/128',
+'istaile' => '#/672',
+'istaitham' => 'Scx/Lana',
+'istaiviet' => '#/674',
+'istaixuanjing' => '#/308',
+'istaixuanjingsymbols' => '#/308',
+'istakr' => 'Scx/Takr',
+'istakri' => 'Scx/Takr',
+'istale' => '#/672',
+'istalu' => 'Scx/Talu',
+'istamil' => 'Scx/Taml',
+'istaml' => 'Scx/Taml',
+'istang' => '#/673',
+'istangut' => '#/673',
+'istangutcomponents' => '#/365',
+'istavt' => '#/674',
+'istelu' => 'Scx/Telu',
+'istelugu' => 'Scx/Telu',
+'isterm' => 'Term/Y',
+'isterminalpunctuation' => 'Term/Y',
+'istfng' => '#/675',
+'istglg' => '#/676',
+'isthaa' => 'Scx/Thaa',
+'isthaana' => 'Scx/Thaa',
+'isthai' => '#/677',
+'istibetan' => 'Scx/Tibt',
+'istibt' => 'Scx/Tibt',
+'istifinagh' => '#/675',
+'istirh' => 'Scx/Tirh',
+'istirhuta' => 'Scx/Tirh',
+'istitle' => 'Perl/Title',
+'istitlecase' => 'Perl/Title',
+'istitlecaseletter' => 'Perl/Title',
+'istransportandmap' => '#/352',
+'istransportandmapsymbols' => '#/352',
+'isucas' => '#/130',
+'isucasext' => '#/212',
+'isugar' => '#/678',
+'isugaritic' => '#/678',
+'isuideo' => 'UIdeo/Y',
+'isunassigned' => 'Gc/Cn',
+'isunicode' => '#/2',
+'isunifiedcanadianaboriginalsyllabics' => '#/130',
+'isunifiedcanadianaboriginalsyllabicsextended' => '#/212',
+'isunifiedideograph' => 'UIdeo/Y',
+'isunknown' => 'Scx/Zzzz',
+'isupper' => 'Upper/Y',
+'isuppercase' => 'Upper/Y',
+'isuppercaseletter' => 'Gc/Lu',
+'isvai' => '#/611',
+'isvaii' => '#/611',
+'isvariationselector' => '#/94',
+'isvariationselectors' => '#/111',
+'isvariationselectorssupplement' => '#/148',
+'isvedicext' => '#/240',
+'isvedicextensions' => '#/240',
+'isverticalforms' => '#/331',
+'isvertspace' => '#/4',
+'isvs' => '#/94',
+'isvssup' => '#/148',
+'iswara' => '#/679',
+'iswarangciti' => '#/679',
+'iswhitespace' => 'Perl/SpacePer',
+'isword' => 'Perl/Word',
+'iswspace' => 'Perl/SpacePer',
+'isxdigit' => 'Hex/Y',
+'isxidc' => 'XIDC/Y',
+'isxidcontinue' => 'XIDC/Y',
+'isxids' => 'XIDS/Y',
+'isxidstart' => 'XIDS/Y',
+'isxpeo' => '#/680',
+'isxperlspace' => 'Perl/SpacePer',
+'isxposixalnum' => 'Perl/Alnum',
+'isxposixalpha' => 'Alpha/Y',
+'isxposixblank' => 'Perl/Blank',
+'isxposixcntrl' => '#/394',
+'isxposixdigit' => 'Gc/Nd',
+'isxposixgraph' => 'Perl/Graph',
+'isxposixlower' => 'Lower/Y',
+'isxposixprint' => 'Perl/Print',
+'isxposixpunct' => 'Perl/XPosixPu',
+'isxposixspace' => 'Perl/SpacePer',
+'isxposixupper' => 'Upper/Y',
+'isxposixword' => 'Perl/Word',
+'isxposixxdigit' => 'Hex/Y',
+'isxsux' => 'Scx/Xsux',
+'isyi' => 'Scx/Yi',
+'isyiii' => 'Scx/Yi',
+'isyijing' => '#/174',
+'isyijinghexagramsymbols' => '#/174',
+'isyiradicals' => '#/287',
+'isyisyllables' => '#/309',
+'isz' => 'Gc/Z',
+'iszanabazarsquare' => '#/681',
+'iszanb' => '#/681',
+'iszinh' => 'Scx/Zinh',
+'iszl' => '#/396',
+'iszp' => '#/397',
+'iszs' => 'Gc/Zs',
+'iszyyy' => 'Scx/Zyyy',
+'iszzzz' => 'Scx/Zzzz',
+'ital' => '#/633',
+'jamo' => '#/122',
+'jamoexta' => '#/229',
+'jamoextb' => '#/230',
+'java' => '#/634',
+'javanese' => '#/634',
+'jg=africanfeh' => '#/430',
+'jg=africannoon' => '#/436',
+'jg=africanqaf' => '#/431',
+'jg=ain' => 'Jg/Ain',
+'jg=alaph' => '#/418',
+'jg=alef' => 'Jg/Alef',
+'jg=beh' => 'Jg/Beh',
+'jg=beth' => '#/408',
+'jg=burushaskiyehbarree' => '#/480',
+'jg=dal' => 'Jg/Dal',
+'jg=dalathrish' => '#/432',
+'jg=e' => '#/398',
+'jg=farsiyeh' => 'Jg/FarsiYeh',
+'jg=fe' => '#/399',
+'jg=feh' => 'Jg/Feh',
+'jg=finalsemkath' => '#/442',
+'jg=gaf' => 'Jg/Gaf',
+'jg=gamal' => '#/419',
+'jg=hah' => 'Jg/Hah',
+'jg=hamzaonhehgoal' => '#/459',
+'jg=he' => '#/400',
+'jg=heh' => '#/402',
+'jg=hehgoal' => '#/425',
+'jg=heth' => '#/409',
+'jg=kaf' => 'Jg/Kaf',
+'jg=kaph' => '#/410',
+'jg=khaph' => '#/420',
+'jg=knottedheh' => '#/433',
+'jg=lam' => 'Jg/Lam',
+'jg=lamadh' => '#/423',
+'jg=malayalambha' => '#/443',
+'jg=malayalamja' => '#/437',
+'jg=malayalamlla' => '#/444',
+'jg=malayalamllla' => '#/451',
+'jg=malayalamnga' => '#/445',
+'jg=malayalamnna' => '#/446',
+'jg=malayalamnnna' => '#/452',
+'jg=malayalamnya' => '#/447',
+'jg=malayalamra' => '#/438',
+'jg=malayalamssa' => '#/448',
+'jg=malayalamtta' => '#/449',
+'jg=manichaeanaleph' => '#/469',
+'jg=manichaeanayin' => '#/460',
+'jg=manichaeanbeth' => '#/461',
+'jg=manichaeandaleth' => '#/473',
+'jg=manichaeandhamedh' => '#/477',
+'jg=manichaeanfive' => '#/462',
+'jg=manichaeangimel' => '#/470',
+'jg=manichaeanheth' => '#/463',
+'jg=manichaeanhundred' => '#/478',
+'jg=manichaeankaph' => '#/464',
+'jg=manichaeanlamedh' => '#/474',
+'jg=manichaeanmem' => '#/453',
+'jg=manichaeannun' => '#/454',
+'jg=manichaeanone' => '#/455',
+'jg=manichaeanpe' => '#/450',
+'jg=manichaeanqoph' => '#/465',
+'jg=manichaeanresh' => '#/466',
+'jg=manichaeansadhe' => '#/471',
+'jg=manichaeansamekh' => '#/475',
+'jg=manichaeantaw' => '#/456',
+'jg=manichaeanten' => '#/457',
+'jg=manichaeanteth' => '#/467',
+'jg=manichaeanthamedh' => '#/479',
+'jg=manichaeantwenty' => '#/476',
+'jg=manichaeanwaw' => '#/458',
+'jg=manichaeanyodh' => '#/468',
+'jg=manichaeanzayin' => '#/472',
+'jg=meem' => '#/411',
+'jg=mim' => '#/403',
+'jg=nojoininggroup' => 'Jg/NoJoinin',
+'jg=noon' => '#/412',
+'jg=nun' => '#/404',
+'jg=nya' => '#/405',
+'jg=pe' => '#/401',
+'jg=qaf' => 'Jg/Qaf',
+'jg=qaph' => '#/413',
+'jg=reh' => 'Jg/Reh',
+'jg=reversedpe' => '#/434',
+'jg=rohingyayeh' => '#/439',
+'jg=sad' => 'Jg/Sad',
+'jg=sadhe' => '#/421',
+'jg=seen' => 'Jg/Seen',
+'jg=semkath' => '#/426',
+'jg=shin' => '#/414',
+'jg=straightwaw' => '#/440',
+'jg=swashkaf' => '#/427',
+'jg=syriacwaw' => '#/428',
+'jg=tah' => '#/406',
+'jg=taw' => '#/407',
+'jg=tehmarbuta' => '#/435',
+'jg=tehmarbutagoal' => '#/459',
+'jg=teth' => '#/415',
+'jg=waw' => 'Jg/Waw',
+'jg=yeh' => 'Jg/Yeh',
+'jg=yehbarree' => '#/429',
+'jg=yehwithtail' => '#/441',
+'jg=yudh' => '#/416',
+'jg=yudhhe' => '#/424',
+'jg=zain' => '#/417',
+'jg=zhain' => '#/422',
+'joinc' => '#/89',
+'joinc=f' => '#/!89',
+'joinc=false' => '#/!89',
+'joinc=n' => '#/!89',
+'joinc=no' => '#/!89',
+'joinc=t' => '#/89',
+'joinc=true' => '#/89',
+'joinc=y' => '#/89',
+'joinc=yes' => '#/89',
+'joincontrol' => '#/89',
+'jt=c' => 'Jt/C',
+'jt=d' => 'Jt/D',
+'jt=dualjoining' => 'Jt/D',
+'jt=joincausing' => 'Jt/C',
+'jt=l' => '#/481',
+'jt=leftjoining' => '#/481',
+'jt=nonjoining' => 'Jt/U',
+'jt=r' => 'Jt/R',
+'jt=rightjoining' => 'Jt/R',
+'jt=t' => 'Jt/T',
+'jt=transparent' => 'Jt/T',
+'jt=u' => 'Jt/U',
+'kaithi' => '#/636',
+'kali' => '#/190',
+'kana' => 'Scx/Kana',
+'kanaexta' => '#/232',
+'kanaextendeda' => '#/232',
+'kanasup' => '#/188',
+'kanasupplement' => '#/188',
+'kanbun' => '#/162',
+'kangxi' => '#/163',
+'kangxiradicals' => '#/163',
+'kannada' => 'Scx/Knda',
+'katakana' => 'Scx/Kana',
+'katakanaext' => '#/296',
+'katakanaphoneticextensions' => '#/296',
+'kayahli' => '#/190',
+'khar' => 'Scx/Khar',
+'kharoshthi' => 'Scx/Khar',
+'khmer' => 'Scx/Khmr',
+'khmersymbols' => '#/316',
+'khmr' => 'Scx/Khmr',
+'khoj' => '#/635',
+'khojki' => '#/635',
+'khudawadi' => 'Scx/Sind',
+'knda' => 'Scx/Knda',
+'kthi' => '#/636',
+'l' => 'Gc/L',
+'l&' => 'Gc/LC',
+'l_' => 'Gc/LC',
+'lana' => 'Scx/Lana',
+'lao' => 'Scx/Lao',
+'laoo' => 'Scx/Lao',
+'latin' => 'Scx/Latn',
+'latin1' => '#/165',
+'latin1sup' => '#/165',
+'latin1supplement' => '#/165',
+'latinexta' => '#/250',
+'latinextadditional' => '#/373',
+'latinextb' => '#/251',
+'latinextc' => '#/252',
+'latinextd' => '#/253',
+'latinexte' => '#/254',
+'latinextendeda' => '#/250',
+'latinextendedadditional' => '#/373',
+'latinextendedb' => '#/251',
+'latinextendedc' => '#/252',
+'latinextendedd' => '#/253',
+'latinextendede' => '#/254',
+'latn' => 'Scx/Latn',
+'lb=ai' => 'Lb/AI',
+'lb=al' => 'Lb/AL',
+'lb=alphabetic' => 'Lb/AL',
+'lb=ambiguous' => 'Lb/AI',
+'lb=b2' => '#/482',
+'lb=ba' => 'Lb/BA',
+'lb=bb' => 'Lb/BB',
+'lb=bk' => '#/483',
+'lb=breakafter' => 'Lb/BA',
+'lb=breakbefore' => 'Lb/BB',
+'lb=breakboth' => '#/482',
+'lb=breaksymbols' => '#/490',
+'lb=carriagereturn' => '#/63',
+'lb=cb' => '#/484',
+'lb=cj' => 'Lb/CJ',
+'lb=cl' => 'Lb/CL',
+'lb=closeparenthesis' => '#/485',
+'lb=closepunctuation' => 'Lb/CL',
+'lb=cm' => 'Lb/CM',
+'lb=combiningmark' => 'Lb/CM',
+'lb=complexcontext' => 'Lb/SA',
+'lb=conditionaljapanesestarter' => 'Lb/CJ',
+'lb=contingentbreak' => '#/484',
+'lb=cp' => '#/485',
+'lb=cr' => '#/63',
+'lb=eb' => 'Lb/EB',
+'lb=ebase' => 'Lb/EB',
+'lb=em' => '#/64',
+'lb=emodifier' => '#/64',
+'lb=ex' => 'Lb/EX',
+'lb=exclamation' => 'Lb/EX',
+'lb=gl' => 'Lb/GL',
+'lb=glue' => 'Lb/GL',
+'lb=h2' => 'GCB/LV',
+'lb=h3' => 'GCB/LVT',
+'lb=hebrewletter' => 'WB/HL',
+'lb=hl' => 'WB/HL',
+'lb=hy' => '#/486',
+'lb=hyphen' => '#/486',
+'lb=id' => 'Lb/ID',
+'lb=ideographic' => 'Lb/ID',
+'lb=in' => 'Lb/IN',
+'lb=infixnumeric' => 'Lb/IS',
+'lb=inseparable' => 'Lb/IN',
+'lb=inseperable' => 'Lb/IN',
+'lb=is' => 'Lb/IS',
+'lb=jl' => '#/60',
+'lb=jt' => '#/61',
+'lb=jv' => '#/62',
+'lb=lf' => '#/65',
+'lb=linefeed' => '#/65',
+'lb=mandatorybreak' => '#/483',
+'lb=nextline' => '#/487',
+'lb=nl' => '#/487',
+'lb=nonstarter' => 'Lb/NS',
+'lb=ns' => 'Lb/NS',
+'lb=nu' => 'SB/NU',
+'lb=numeric' => 'SB/NU',
+'lb=op' => 'Lb/OP',
+'lb=openpunctuation' => 'Lb/OP',
+'lb=po' => 'Lb/PO',
+'lb=postfixnumeric' => 'Lb/PO',
+'lb=pr' => 'Lb/PR',
+'lb=prefixnumeric' => 'Lb/PR',
+'lb=qu' => 'Lb/QU',
+'lb=quotation' => 'Lb/QU',
+'lb=regionalindicator' => '#/66',
+'lb=ri' => '#/66',
+'lb=sa' => 'Lb/SA',
+'lb=sg' => '#/488',
+'lb=sp' => '#/489',
+'lb=space' => '#/489',
+'lb=surrogate' => '#/488',
+'lb=sy' => '#/490',
+'lb=unknown' => 'Lb/XX',
+'lb=wj' => '#/491',
+'lb=wordjoiner' => '#/491',
+'lb=xx' => 'Lb/XX',
+'lb=zw' => '#/492',
+'lb=zwj' => '#/68',
+'lb=zwspace' => '#/492',
+'lc' => 'Gc/LC',
+'lepc' => '#/637',
+'lepcha' => '#/637',
+'letter' => 'Gc/L',
+'letterlikesymbols' => '#/368',
+'letternumber' => 'Gc/Nl',
+'limb' => 'Scx/Limb',
+'limbu' => 'Scx/Limb',
+'lina' => 'Scx/Lina',
+'linb' => 'Scx/Linb',
+'lineara' => 'Scx/Lina',
+'linearb' => 'Scx/Linb',
+'linearbideograms' => '#/360',
+'linearbsyllabary' => '#/361',
+'lineseparator' => '#/396',
+'lisu' => '#/123',
+'ll' => 'Gc/Ll',
+'lm' => 'Gc/Lm',
+'lo' => 'Gc/Lo',
+'loe' => 'InPC/VisualOr',
+'loe=f' => '!InPC/VisualOr',
+'loe=false' => '!InPC/VisualOr',
+'loe=n' => '!InPC/VisualOr',
+'loe=no' => '!InPC/VisualOr',
+'loe=t' => 'InPC/VisualOr',
+'loe=true' => 'InPC/VisualOr',
+'loe=y' => 'InPC/VisualOr',
+'loe=yes' => 'InPC/VisualOr',
+'logicalorderexception' => 'InPC/VisualOr',
+'lower' => 'Lower/Y',
+'lower=f' => '!Lower/Y',
+'lower=false' => '!Lower/Y',
+'lower=n' => '!Lower/Y',
+'lower=no' => '!Lower/Y',
+'lower=t' => 'Lower/Y',
+'lower=true' => 'Lower/Y',
+'lower=y' => 'Lower/Y',
+'lower=yes' => 'Lower/Y',
+'lowercase' => 'Lower/Y',
+'lowercaseletter' => 'Gc/Ll',
+'lowsurrogates' => '#/328',
+'lt' => 'Perl/Title',
+'lu' => 'Gc/Lu',
+'lyci' => '#/638',
+'lycian' => '#/638',
+'lydi' => '#/639',
+'lydian' => '#/639',
+'m' => 'Gc/M',
+'mahajani' => '#/640',
+'mahj' => '#/640',
+'mahjong' => '#/192',
+'mahjongtiles' => '#/192',
+'malayalam' => 'Scx/Mlym',
+'mand' => '#/641',
+'mandaic' => '#/641',
+'mani' => '#/642',
+'manichaean' => '#/642',
+'marc' => '#/643',
+'marchen' => '#/643',
+'mark' => 'Gc/M',
+'masaramgondi' => 'Scx/Gonm',
+'math' => 'Math/Y',
+'math=f' => '!Math/Y',
+'math=false' => '!Math/Y',
+'math=n' => '!Math/Y',
+'math=no' => '!Math/Y',
+'math=t' => 'Math/Y',
+'math=true' => 'Math/Y',
+'math=y' => 'Math/Y',
+'math=yes' => 'Math/Y',
+'mathalphanum' => '#/318',
+'mathematicalalphanumericsymbols' => '#/318',
+'mathematicaloperators' => '#/329',
+'mathoperators' => '#/329',
+'mathsymbol' => 'Gc/Sm',
+'mc' => 'Gc/Mc',
+'me' => 'Gc/Me',
+'meeteimayek' => '#/648',
+'meeteimayekext' => '#/337',
+'meeteimayekextensions' => '#/337',
+'mend' => '#/644',
+'mendekikakui' => '#/644',
+'merc' => '#/645',
+'mero' => '#/379',
+'meroiticcursive' => '#/645',
+'meroitichieroglyphs' => '#/379',
+'miao' => '#/646',
+'miscarrows' => '#/278',
+'miscellaneousmathematicalsymbolsa' => '#/362',
+'miscellaneousmathematicalsymbolsb' => '#/363',
+'miscellaneoussymbols' => '#/298',
+'miscellaneoussymbolsandarrows' => '#/278',
+'miscellaneoussymbolsandpictographs' => '#/348',
+'miscellaneoustechnical' => '#/330',
+'miscmathsymbolsa' => '#/362',
+'miscmathsymbolsb' => '#/363',
+'miscpictographs' => '#/348',
+'miscsymbols' => '#/298',
+'misctechnical' => '#/330',
+'mlym' => 'Scx/Mlym',
+'mn' => 'Gc/Mn',
+'modi' => '#/647',
+'modifierletter' => 'Gc/Lm',
+'modifierletters' => '#/349',
+'modifiersymbol' => 'Gc/Sk',
+'modifiertoneletters' => '#/380',
+'mong' => 'Scx/Mong',
+'mongolian' => 'Scx/Mong',
+'mongoliansup' => '#/320',
+'mongoliansupplement' => '#/320',
+'mro' => '#/609',
+'mroo' => '#/609',
+'mtei' => '#/648',
+'mult' => 'Scx/Mult',
+'multani' => 'Scx/Mult',
+'music' => '#/139',
+'musicalsymbols' => '#/139',
+'myanmar' => 'Scx/Mymr',
+'myanmarexta' => '#/299',
+'myanmarextb' => '#/300',
+'myanmarextendeda' => '#/299',
+'myanmarextendedb' => '#/300',
+'mymr' => 'Scx/Mymr',
+'n' => 'Gc/N',
+'nabataean' => '#/649',
+'narb' => '#/350',
+'nb' => 'Blk/NB',
+'nbat' => '#/649',
+'nchar' => 'Perl/_PerlNch',
+'nchar=f' => '!Perl/_PerlNch',
+'nchar=false' => '!Perl/_PerlNch',
+'nchar=n' => '!Perl/_PerlNch',
+'nchar=no' => '!Perl/_PerlNch',
+'nchar=t' => 'Perl/_PerlNch',
+'nchar=true' => 'Perl/_PerlNch',
+'nchar=y' => 'Perl/_PerlNch',
+'nchar=yes' => 'Perl/_PerlNch',
+'nd' => 'Gc/Nd',
+'newa' => '#/650',
+'newtailue' => 'Scx/Talu',
+'nfcqc=m' => 'NFCQC/M',
+'nfcqc=maybe' => 'NFCQC/M',
+'nfcqc=n' => 'CompEx/Y',
+'nfcqc=no' => 'CompEx/Y',
+'nfcqc=y' => 'NFCQC/Y',
+'nfcqc=yes' => 'NFCQC/Y',
+'nfdqc=n' => 'NFDQC/N',
+'nfdqc=no' => 'NFDQC/N',
+'nfdqc=y' => 'NFDQC/Y',
+'nfdqc=yes' => 'NFDQC/Y',
+'nfkcqc=m' => 'NFCQC/M',
+'nfkcqc=maybe' => 'NFCQC/M',
+'nfkcqc=n' => 'NFKCQC/N',
+'nfkcqc=no' => 'NFKCQC/N',
+'nfkcqc=y' => 'NFKCQC/Y',
+'nfkcqc=yes' => 'NFKCQC/Y',
+'nfkdqc=n' => 'NFKDQC/N',
+'nfkdqc=no' => 'NFKDQC/N',
+'nfkdqc=y' => 'NFKDQC/Y',
+'nfkdqc=yes' => 'NFKDQC/Y',
+'nko' => '#/610',
+'nkoo' => '#/610',
+'nl' => 'Gc/Nl',
+'no' => 'Gc/No',
+'noblock' => 'Blk/NB',
+'noncharactercodepoint' => 'Perl/_PerlNch',
+'nonspacingmark' => 'Gc/Mn',
+'nshu' => '#/651',
+'nt=de' => 'Gc/Nd',
+'nt=decimal' => 'Gc/Nd',
+'nt=di' => 'Nt/Di',
+'nt=digit' => 'Nt/Di',
+'nt=none' => 'Nt/None',
+'nt=nu' => 'Nt/Nu',
+'nt=numeric' => 'Nt/Nu',
+'number' => 'Gc/N',
+'numberforms' => '#/301',
+'nushu' => '#/651',
+'nv=nan' => 'Nt/None',
+'ocr' => '#/117',
+'ogam' => '#/652',
+'ogham' => '#/652',
+'olchiki' => '#/197',
+'olck' => '#/197',
+'oldhungarian' => '#/632',
+'olditalic' => '#/633',
+'oldnortharabian' => '#/350',
+'oldpermic' => '#/657',
+'oldpersian' => '#/680',
+'oldsoutharabian' => '#/351',
+'oldturkic' => '#/653',
+'openpunctuation' => 'Gc/Ps',
+'opticalcharacterrecognition' => '#/117',
+'oriya' => 'Scx/Orya',
+'orkh' => '#/653',
+'ornamentaldingbats' => '#/374',
+'orya' => 'Scx/Orya',
+'osage' => '#/654',
+'osge' => '#/654',
+'osma' => '#/655',
+'osmanya' => '#/655',
+'other' => 'Gc/C',
+'otherletter' => 'Gc/Lo',
+'othernumber' => 'Gc/No',
+'otherpunctuation' => 'Gc/Po',
+'othersymbol' => 'Gc/So',
+'p' => 'Gc/P',
+'pahawhhmong' => 'Scx/Hmng',
+'palm' => '#/262',
+'palmyrene' => '#/262',
+'paragraphseparator' => '#/397',
+'patsyn' => 'PatSyn/Y',
+'patsyn=f' => '!PatSyn/Y',
+'patsyn=false' => '!PatSyn/Y',
+'patsyn=n' => '!PatSyn/Y',
+'patsyn=no' => '!PatSyn/Y',
+'patsyn=t' => 'PatSyn/Y',
+'patsyn=true' => 'PatSyn/Y',
+'patsyn=y' => 'PatSyn/Y',
+'patsyn=yes' => 'PatSyn/Y',
+'patternsyntax' => 'PatSyn/Y',
+'patternwhitespace' => 'Perl/_PerlPat',
+'patws' => 'Perl/_PerlPat',
+'patws=f' => '!Perl/_PerlPat',
+'patws=false' => '!Perl/_PerlPat',
+'patws=n' => '!Perl/_PerlPat',
+'patws=no' => '!Perl/_PerlPat',
+'patws=t' => 'Perl/_PerlPat',
+'patws=true' => 'Perl/_PerlPat',
+'patws=y' => 'Perl/_PerlPat',
+'patws=yes' => 'Perl/_PerlPat',
+'pauc' => '#/656',
+'paucinhau' => '#/656',
+'pc' => 'Gc/Pc',
+'pcm' => 'PCM/Y',
+'pcm=f' => '!PCM/Y',
+'pcm=false' => '!PCM/Y',
+'pcm=n' => '!PCM/Y',
+'pcm=no' => '!PCM/Y',
+'pcm=t' => 'PCM/Y',
+'pcm=true' => 'PCM/Y',
+'pcm=y' => 'PCM/Y',
+'pcm=yes' => 'PCM/Y',
+'pd' => 'Gc/Pd',
+'pe' => 'Gc/Pe',
+'perlspace' => '#/3',
+'perlword' => 'Perl/PerlWord',
+'perm' => '#/657',
+'pf' => 'Gc/Pf',
+'phag' => '#/658',
+'phagspa' => '#/658',
+'phaistos' => '#/235',
+'phaistosdisc' => '#/235',
+'phli' => '#/659',
+'phlp' => 'Scx/Phlp',
+'phnx' => '#/660',
+'phoenician' => '#/660',
+'phoneticext' => '#/303',
+'phoneticextensions' => '#/303',
+'phoneticextensionssupplement' => '#/338',
+'phoneticextsup' => '#/338',
+'pi' => 'Gc/Pi',
+'playingcards' => '#/322',
+'plrd' => '#/646',
+'po' => 'Gc/Po',
+'posixalnum' => '#/5',
+'posixalpha' => '#/6',
+'posixblank' => '#/7',
+'posixcntrl' => '#/8',
+'posixdigit' => '#/9',
+'posixgraph' => '#/10',
+'posixlower' => '#/11',
+'posixprint' => '#/12',
+'posixpunct' => 'Perl/PosixPun',
+'posixspace' => '#/3',
+'posixupper' => '#/13',
+'posixword' => 'Perl/PerlWord',
+'posixxdigit' => '#/59',
+'prependedconcatenationmark' => 'PCM/Y',
+'print' => 'Perl/Print',
+'privateuse' => '#/395',
+'privateusearea' => '#/118',
+'prti' => '#/661',
+'ps' => 'Gc/Ps',
+'psalterpahlavi' => 'Scx/Phlp',
+'pua' => '#/118',
+'punct' => 'Gc/P',
+'punctuation' => 'Gc/P',
+'qaac' => 'Scx/Copt',
+'qaai' => 'Scx/Zinh',
+'qmark' => 'QMark/Y',
+'qmark=f' => '!QMark/Y',
+'qmark=false' => '!QMark/Y',
+'qmark=n' => '!QMark/Y',
+'qmark=no' => '!QMark/Y',
+'qmark=t' => 'QMark/Y',
+'qmark=true' => 'QMark/Y',
+'qmark=y' => 'QMark/Y',
+'qmark=yes' => 'QMark/Y',
+'quotationmark' => 'QMark/Y',
+'radical' => '#/92',
+'radical=f' => '#/!92',
+'radical=false' => '#/!92',
+'radical=n' => '#/!92',
+'radical=no' => '#/!92',
+'radical=t' => '#/92',
+'radical=true' => '#/92',
+'radical=y' => '#/92',
+'radical=yes' => '#/92',
+'regionalindicator' => '#/66',
+'rejang' => '#/662',
+'ri' => '#/66',
+'ri=f' => '#/!66',
+'ri=false' => '#/!66',
+'ri=n' => '#/!66',
+'ri=no' => '#/!66',
+'ri=t' => '#/66',
+'ri=true' => '#/66',
+'ri=y' => '#/66',
+'ri=yes' => '#/66',
+'rjng' => '#/662',
+'rumi' => '#/127',
+'ruminumeralsymbols' => '#/127',
+'runic' => '#/663',
+'runr' => '#/663',
+'s' => 'Gc/S',
+'samaritan' => '#/664',
+'samr' => '#/664',
+'sarb' => '#/351',
+'saur' => '#/665',
+'saurashtra' => '#/665',
+'sb=at' => 'SB/AT',
+'sb=aterm' => 'SB/AT',
+'sb=cl' => 'SB/CL',
+'sb=close' => 'SB/CL',
+'sb=cr' => '#/63',
+'sb=ex' => 'SB/EX',
+'sb=extend' => 'SB/EX',
+'sb=fo' => 'SB/FO',
+'sb=format' => 'SB/FO',
+'sb=le' => 'SB/LE',
+'sb=lf' => '#/65',
+'sb=lo' => 'SB/LO',
+'sb=lower' => 'SB/LO',
+'sb=nu' => 'SB/NU',
+'sb=numeric' => 'SB/NU',
+'sb=oletter' => 'SB/LE',
+'sb=other' => 'SB/XX',
+'sb=sc' => 'SB/SC',
+'sb=scontinue' => 'SB/SC',
+'sb=se' => '#/93',
+'sb=sep' => '#/93',
+'sb=sp' => 'SB/Sp',
+'sb=st' => 'SB/ST',
+'sb=sterm' => 'SB/ST',
+'sb=up' => 'SB/UP',
+'sb=upper' => 'SB/UP',
+'sb=xx' => 'SB/XX',
+'sc' => 'Gc/Sc',
+'sc=adlam' => '#/580',
+'sc=adlm' => '#/580',
+'sc=aghb' => '#/612',
+'sc=ahom' => '#/613',
+'sc=anatolianhieroglyphs' => '#/631',
+'sc=arab' => 'Sc/Arab',
+'sc=arabic' => 'Sc/Arab',
+'sc=armenian' => 'Sc/Armn',
+'sc=armi' => '#/614',
+'sc=armn' => 'Sc/Armn',
+'sc=avestan' => '#/615',
+'sc=avst' => '#/615',
+'sc=bali' => '#/616',
+'sc=balinese' => '#/616',
+'sc=bamu' => '#/617',
+'sc=bamum' => '#/617',
+'sc=bass' => '#/618',
+'sc=bassavah' => '#/618',
+'sc=batak' => '#/619',
+'sc=batk' => '#/619',
+'sc=beng' => 'Sc/Beng',
+'sc=bengali' => 'Sc/Beng',
+'sc=bhaiksuki' => 'Scx/Bhks',
+'sc=bhks' => 'Scx/Bhks',
+'sc=bopo' => '#/581',
+'sc=bopomofo' => '#/581',
+'sc=brah' => '#/620',
+'sc=brahmi' => '#/620',
+'sc=brai' => '#/177',
+'sc=braille' => '#/177',
+'sc=bugi' => '#/582',
+'sc=buginese' => '#/582',
+'sc=buhd' => '#/583',
+'sc=buhid' => '#/583',
+'sc=cakm' => '#/584',
+'sc=canadianaboriginal' => '#/623',
+'sc=cans' => '#/623',
+'sc=cari' => '#/624',
+'sc=carian' => '#/624',
+'sc=caucasianalbanian' => '#/612',
+'sc=chakma' => '#/584',
+'sc=cham' => 'Scx/Cham',
+'sc=cher' => '#/625',
+'sc=cherokee' => '#/625',
+'sc=common' => 'Sc/Zyyy',
+'sc=copt' => '#/585',
+'sc=coptic' => '#/585',
+'sc=cprt' => 'Sc/Cprt',
+'sc=cuneiform' => 'Scx/Xsux',
+'sc=cypriot' => 'Sc/Cprt',
+'sc=cyrillic' => 'Sc/Cyrl',
+'sc=cyrl' => 'Sc/Cyrl',
+'sc=deseret' => '#/184',
+'sc=deva' => 'Sc/Deva',
+'sc=devanagari' => 'Sc/Deva',
+'sc=dsrt' => '#/184',
+'sc=dupl' => 'Sc/Dupl',
+'sc=duployan' => 'Sc/Dupl',
+'sc=egyp' => '#/626',
+'sc=egyptianhieroglyphs' => '#/626',
+'sc=elba' => '#/627',
+'sc=elbasan' => '#/627',
+'sc=ethi' => 'Scx/Ethi',
+'sc=ethiopic' => 'Scx/Ethi',
+'sc=geor' => 'Sc/Geor',
+'sc=georgian' => 'Sc/Geor',
+'sc=glag' => 'Sc/Glag',
+'sc=glagolitic' => 'Sc/Glag',
+'sc=gonm' => 'Scx/Gonm',
+'sc=goth' => '#/628',
+'sc=gothic' => '#/628',
+'sc=gran' => 'Sc/Gran',
+'sc=grantha' => 'Sc/Gran',
+'sc=greek' => 'Sc/Grek',
+'sc=grek' => 'Sc/Grek',
+'sc=gujarati' => 'Sc/Gujr',
+'sc=gujr' => 'Sc/Gujr',
+'sc=gurmukhi' => 'Sc/Guru',
+'sc=guru' => 'Sc/Guru',
+'sc=han' => 'Sc/Han',
+'sc=hang' => 'Sc/Hang',
+'sc=hangul' => 'Sc/Hang',
+'sc=hani' => 'Sc/Han',
+'sc=hano' => '#/586',
+'sc=hanunoo' => '#/586',
+'sc=hatr' => '#/630',
+'sc=hatran' => '#/630',
+'sc=hebr' => 'Scx/Hebr',
+'sc=hebrew' => 'Scx/Hebr',
+'sc=hira' => 'Sc/Hira',
+'sc=hiragana' => 'Sc/Hira',
+'sc=hluw' => '#/631',
+'sc=hmng' => 'Scx/Hmng',
+'sc=hung' => '#/632',
+'sc=imperialaramaic' => '#/614',
+'sc=inherited' => 'Sc/Zinh',
+'sc=inscriptionalpahlavi' => '#/659',
+'sc=inscriptionalparthian' => '#/661',
+'sc=ital' => '#/633',
+'sc=java' => '#/587',
+'sc=javanese' => '#/587',
+'sc=kaithi' => '#/590',
+'sc=kali' => '#/588',
+'sc=kana' => 'Sc/Kana',
+'sc=kannada' => 'Sc/Knda',
+'sc=katakana' => 'Sc/Kana',
+'sc=kayahli' => '#/588',
+'sc=khar' => 'Scx/Khar',
+'sc=kharoshthi' => 'Scx/Khar',
+'sc=khmer' => 'Scx/Khmr',
+'sc=khmr' => 'Scx/Khmr',
+'sc=khoj' => '#/589',
+'sc=khojki' => '#/589',
+'sc=khudawadi' => '#/601',
+'sc=knda' => 'Sc/Knda',
+'sc=kthi' => '#/590',
+'sc=lana' => 'Scx/Lana',
+'sc=lao' => 'Scx/Lao',
+'sc=laoo' => 'Scx/Lao',
+'sc=latin' => 'Sc/Latn',
+'sc=latn' => 'Sc/Latn',
+'sc=lepc' => '#/637',
+'sc=lepcha' => '#/637',
+'sc=limb' => 'Sc/Limb',
+'sc=limbu' => 'Sc/Limb',
+'sc=lina' => '#/591',
+'sc=linb' => 'Sc/Linb',
+'sc=lineara' => '#/591',
+'sc=linearb' => 'Sc/Linb',
+'sc=lisu' => '#/123',
+'sc=lyci' => '#/638',
+'sc=lycian' => '#/638',
+'sc=lydi' => '#/639',
+'sc=lydian' => '#/639',
+'sc=mahajani' => '#/592',
+'sc=mahj' => '#/592',
+'sc=malayalam' => 'Sc/Mlym',
+'sc=mand' => '#/593',
+'sc=mandaic' => '#/593',
+'sc=mani' => '#/594',
+'sc=manichaean' => '#/594',
+'sc=marc' => '#/643',
+'sc=marchen' => '#/643',
+'sc=masaramgondi' => 'Scx/Gonm',
+'sc=meeteimayek' => '#/648',
+'sc=mend' => '#/644',
+'sc=mendekikakui' => '#/644',
+'sc=merc' => '#/645',
+'sc=mero' => '#/379',
+'sc=meroiticcursive' => '#/645',
+'sc=meroitichieroglyphs' => '#/379',
+'sc=miao' => '#/646',
+'sc=mlym' => 'Sc/Mlym',
+'sc=modi' => '#/595',
+'sc=mong' => 'Sc/Mong',
+'sc=mongolian' => 'Sc/Mong',
+'sc=mro' => '#/609',
+'sc=mroo' => '#/609',
+'sc=mtei' => '#/648',
+'sc=mult' => 'Sc/Mult',
+'sc=multani' => 'Sc/Mult',
+'sc=myanmar' => '#/596',
+'sc=mymr' => '#/596',
+'sc=nabataean' => '#/649',
+'sc=narb' => '#/350',
+'sc=nbat' => '#/649',
+'sc=newa' => '#/650',
+'sc=newtailue' => 'Scx/Talu',
+'sc=nko' => '#/610',
+'sc=nkoo' => '#/610',
+'sc=nshu' => '#/651',
+'sc=nushu' => '#/651',
+'sc=ogam' => '#/652',
+'sc=ogham' => '#/652',
+'sc=olchiki' => '#/197',
+'sc=olck' => '#/197',
+'sc=oldhungarian' => '#/632',
+'sc=olditalic' => '#/633',
+'sc=oldnortharabian' => '#/350',
+'sc=oldpermic' => '#/597',
+'sc=oldpersian' => '#/680',
+'sc=oldsoutharabian' => '#/351',
+'sc=oldturkic' => '#/653',
+'sc=oriya' => 'Sc/Orya',
+'sc=orkh' => '#/653',
+'sc=orya' => 'Sc/Orya',
+'sc=osage' => '#/654',
+'sc=osge' => '#/654',
+'sc=osma' => '#/655',
+'sc=osmanya' => '#/655',
+'sc=pahawhhmong' => 'Scx/Hmng',
+'sc=palm' => '#/262',
+'sc=palmyrene' => '#/262',
+'sc=pauc' => '#/656',
+'sc=paucinhau' => '#/656',
+'sc=perm' => '#/597',
+'sc=phag' => '#/598',
+'sc=phagspa' => '#/598',
+'sc=phli' => '#/659',
+'sc=phlp' => '#/599',
+'sc=phnx' => '#/660',
+'sc=phoenician' => '#/660',
+'sc=plrd' => '#/646',
+'sc=prti' => '#/661',
+'sc=psalterpahlavi' => '#/599',
+'sc=qaac' => '#/585',
+'sc=qaai' => 'Sc/Zinh',
+'sc=rejang' => '#/662',
+'sc=rjng' => '#/662',
+'sc=runic' => '#/663',
+'sc=runr' => '#/663',
+'sc=samaritan' => '#/664',
+'sc=samr' => '#/664',
+'sc=sarb' => '#/351',
+'sc=saur' => '#/665',
+'sc=saurashtra' => '#/665',
+'sc=sgnw' => '#/666',
+'sc=sharada' => '#/600',
+'sc=shavian' => '#/201',
+'sc=shaw' => '#/201',
+'sc=shrd' => '#/600',
+'sc=sidd' => '#/667',
+'sc=siddham' => '#/667',
+'sc=signwriting' => '#/666',
+'sc=sind' => '#/601',
+'sc=sinh' => 'Sc/Sinh',
+'sc=sinhala' => 'Sc/Sinh',
+'sc=sora' => '#/668',
+'sc=sorasompeng' => '#/668',
+'sc=soyo' => '#/669',
+'sc=soyombo' => '#/669',
+'sc=sund' => '#/670',
+'sc=sundanese' => '#/670',
+'sc=sylo' => '#/602',
+'sc=sylotinagri' => '#/602',
+'sc=syrc' => 'Sc/Syrc',
+'sc=syriac' => 'Sc/Syrc',
+'sc=tagalog' => '#/606',
+'sc=tagb' => '#/603',
+'sc=tagbanwa' => '#/603',
+'sc=taile' => '#/605',
+'sc=taitham' => 'Scx/Lana',
+'sc=taiviet' => '#/674',
+'sc=takr' => '#/604',
+'sc=takri' => '#/604',
+'sc=tale' => '#/605',
+'sc=talu' => 'Scx/Talu',
+'sc=tamil' => 'Sc/Taml',
+'sc=taml' => 'Sc/Taml',
+'sc=tang' => '#/673',
+'sc=tangut' => '#/673',
+'sc=tavt' => '#/674',
+'sc=telu' => 'Sc/Telu',
+'sc=telugu' => 'Sc/Telu',
+'sc=tfng' => '#/675',
+'sc=tglg' => '#/606',
+'sc=thaa' => '#/607',
+'sc=thaana' => '#/607',
+'sc=thai' => '#/677',
+'sc=tibetan' => 'Scx/Tibt',
+'sc=tibt' => 'Scx/Tibt',
+'sc=tifinagh' => '#/675',
+'sc=tirh' => '#/608',
+'sc=tirhuta' => '#/608',
+'sc=ugar' => '#/678',
+'sc=ugaritic' => '#/678',
+'sc=unknown' => 'Scx/Zzzz',
+'sc=vai' => '#/611',
+'sc=vaii' => '#/611',
+'sc=wara' => '#/679',
+'sc=warangciti' => '#/679',
+'sc=xpeo' => '#/680',
+'sc=xsux' => 'Scx/Xsux',
+'sc=yi' => '#/579',
+'sc=yiii' => '#/579',
+'sc=zanabazarsquare' => '#/681',
+'sc=zanb' => '#/681',
+'sc=zinh' => 'Sc/Zinh',
+'sc=zyyy' => 'Sc/Zyyy',
+'sc=zzzz' => 'Scx/Zzzz',
+'scx=adlam' => 'Scx/Adlm',
+'scx=adlm' => 'Scx/Adlm',
+'scx=aghb' => '#/612',
+'scx=ahom' => '#/613',
+'scx=anatolianhieroglyphs' => '#/631',
+'scx=arab' => 'Scx/Arab',
+'scx=arabic' => 'Scx/Arab',
+'scx=armenian' => 'Scx/Armn',
+'scx=armi' => '#/614',
+'scx=armn' => 'Scx/Armn',
+'scx=avestan' => '#/615',
+'scx=avst' => '#/615',
+'scx=bali' => '#/616',
+'scx=balinese' => '#/616',
+'scx=bamu' => '#/617',
+'scx=bamum' => '#/617',
+'scx=bass' => '#/618',
+'scx=bassavah' => '#/618',
+'scx=batak' => '#/619',
+'scx=batk' => '#/619',
+'scx=beng' => 'Scx/Beng',
+'scx=bengali' => 'Scx/Beng',
+'scx=bhaiksuki' => 'Scx/Bhks',
+'scx=bhks' => 'Scx/Bhks',
+'scx=bopo' => 'Scx/Bopo',
+'scx=bopomofo' => 'Scx/Bopo',
+'scx=brah' => '#/620',
+'scx=brahmi' => '#/620',
+'scx=brai' => '#/177',
+'scx=braille' => '#/177',
+'scx=bugi' => '#/621',
+'scx=buginese' => '#/621',
+'scx=buhd' => '#/622',
+'scx=buhid' => '#/622',
+'scx=cakm' => 'Scx/Cakm',
+'scx=canadianaboriginal' => '#/623',
+'scx=cans' => '#/623',
+'scx=cari' => '#/624',
+'scx=carian' => '#/624',
+'scx=caucasianalbanian' => '#/612',
+'scx=chakma' => 'Scx/Cakm',
+'scx=cham' => 'Scx/Cham',
+'scx=cher' => '#/625',
+'scx=cherokee' => '#/625',
+'scx=common' => 'Scx/Zyyy',
+'scx=copt' => 'Scx/Copt',
+'scx=coptic' => 'Scx/Copt',
+'scx=cprt' => 'Scx/Cprt',
+'scx=cuneiform' => 'Scx/Xsux',
+'scx=cypriot' => 'Scx/Cprt',
+'scx=cyrillic' => 'Scx/Cyrl',
+'scx=cyrl' => 'Scx/Cyrl',
+'scx=deseret' => '#/184',
+'scx=deva' => 'Scx/Deva',
+'scx=devanagari' => 'Scx/Deva',
+'scx=dsrt' => '#/184',
+'scx=dupl' => 'Scx/Dupl',
+'scx=duployan' => 'Scx/Dupl',
+'scx=egyp' => '#/626',
+'scx=egyptianhieroglyphs' => '#/626',
+'scx=elba' => '#/627',
+'scx=elbasan' => '#/627',
+'scx=ethi' => 'Scx/Ethi',
+'scx=ethiopic' => 'Scx/Ethi',
+'scx=geor' => 'Scx/Geor',
+'scx=georgian' => 'Scx/Geor',
+'scx=glag' => 'Scx/Glag',
+'scx=glagolitic' => 'Scx/Glag',
+'scx=gonm' => 'Scx/Gonm',
+'scx=goth' => '#/628',
+'scx=gothic' => '#/628',
+'scx=gran' => 'Scx/Gran',
+'scx=grantha' => 'Scx/Gran',
+'scx=greek' => 'Scx/Grek',
+'scx=grek' => 'Scx/Grek',
+'scx=gujarati' => 'Scx/Gujr',
+'scx=gujr' => 'Scx/Gujr',
+'scx=gurmukhi' => 'Scx/Guru',
+'scx=guru' => 'Scx/Guru',
+'scx=han' => 'Scx/Han',
+'scx=hang' => 'Scx/Hang',
+'scx=hangul' => 'Scx/Hang',
+'scx=hani' => 'Scx/Han',
+'scx=hano' => '#/629',
+'scx=hanunoo' => '#/629',
+'scx=hatr' => '#/630',
+'scx=hatran' => '#/630',
+'scx=hebr' => 'Scx/Hebr',
+'scx=hebrew' => 'Scx/Hebr',
+'scx=hira' => 'Scx/Hira',
+'scx=hiragana' => 'Scx/Hira',
+'scx=hluw' => '#/631',
+'scx=hmng' => 'Scx/Hmng',
+'scx=hung' => '#/632',
+'scx=imperialaramaic' => '#/614',
+'scx=inherited' => 'Scx/Zinh',
+'scx=inscriptionalpahlavi' => '#/659',
+'scx=inscriptionalparthian' => '#/661',
+'scx=ital' => '#/633',
+'scx=java' => '#/634',
+'scx=javanese' => '#/634',
+'scx=kaithi' => '#/636',
+'scx=kali' => '#/190',
+'scx=kana' => 'Scx/Kana',
+'scx=kannada' => 'Scx/Knda',
+'scx=katakana' => 'Scx/Kana',
+'scx=kayahli' => '#/190',
+'scx=khar' => 'Scx/Khar',
+'scx=kharoshthi' => 'Scx/Khar',
+'scx=khmer' => 'Scx/Khmr',
+'scx=khmr' => 'Scx/Khmr',
+'scx=khoj' => '#/635',
+'scx=khojki' => '#/635',
+'scx=khudawadi' => 'Scx/Sind',
+'scx=knda' => 'Scx/Knda',
+'scx=kthi' => '#/636',
+'scx=lana' => 'Scx/Lana',
+'scx=lao' => 'Scx/Lao',
+'scx=laoo' => 'Scx/Lao',
+'scx=latin' => 'Scx/Latn',
+'scx=latn' => 'Scx/Latn',
+'scx=lepc' => '#/637',
+'scx=lepcha' => '#/637',
+'scx=limb' => 'Scx/Limb',
+'scx=limbu' => 'Scx/Limb',
+'scx=lina' => 'Scx/Lina',
+'scx=linb' => 'Scx/Linb',
+'scx=lineara' => 'Scx/Lina',
+'scx=linearb' => 'Scx/Linb',
+'scx=lisu' => '#/123',
+'scx=lyci' => '#/638',
+'scx=lycian' => '#/638',
+'scx=lydi' => '#/639',
+'scx=lydian' => '#/639',
+'scx=mahajani' => '#/640',
+'scx=mahj' => '#/640',
+'scx=malayalam' => 'Scx/Mlym',
+'scx=mand' => '#/641',
+'scx=mandaic' => '#/641',
+'scx=mani' => '#/642',
+'scx=manichaean' => '#/642',
+'scx=marc' => '#/643',
+'scx=marchen' => '#/643',
+'scx=masaramgondi' => 'Scx/Gonm',
+'scx=meeteimayek' => '#/648',
+'scx=mend' => '#/644',
+'scx=mendekikakui' => '#/644',
+'scx=merc' => '#/645',
+'scx=mero' => '#/379',
+'scx=meroiticcursive' => '#/645',
+'scx=meroitichieroglyphs' => '#/379',
+'scx=miao' => '#/646',
+'scx=mlym' => 'Scx/Mlym',
+'scx=modi' => '#/647',
+'scx=mong' => 'Scx/Mong',
+'scx=mongolian' => 'Scx/Mong',
+'scx=mro' => '#/609',
+'scx=mroo' => '#/609',
+'scx=mtei' => '#/648',
+'scx=mult' => 'Scx/Mult',
+'scx=multani' => 'Scx/Mult',
+'scx=myanmar' => 'Scx/Mymr',
+'scx=mymr' => 'Scx/Mymr',
+'scx=nabataean' => '#/649',
+'scx=narb' => '#/350',
+'scx=nbat' => '#/649',
+'scx=newa' => '#/650',
+'scx=newtailue' => 'Scx/Talu',
+'scx=nko' => '#/610',
+'scx=nkoo' => '#/610',
+'scx=nshu' => '#/651',
+'scx=nushu' => '#/651',
+'scx=ogam' => '#/652',
+'scx=ogham' => '#/652',
+'scx=olchiki' => '#/197',
+'scx=olck' => '#/197',
+'scx=oldhungarian' => '#/632',
+'scx=olditalic' => '#/633',
+'scx=oldnortharabian' => '#/350',
+'scx=oldpermic' => '#/657',
+'scx=oldpersian' => '#/680',
+'scx=oldsoutharabian' => '#/351',
+'scx=oldturkic' => '#/653',
+'scx=oriya' => 'Scx/Orya',
+'scx=orkh' => '#/653',
+'scx=orya' => 'Scx/Orya',
+'scx=osage' => '#/654',
+'scx=osge' => '#/654',
+'scx=osma' => '#/655',
+'scx=osmanya' => '#/655',
+'scx=pahawhhmong' => 'Scx/Hmng',
+'scx=palm' => '#/262',
+'scx=palmyrene' => '#/262',
+'scx=pauc' => '#/656',
+'scx=paucinhau' => '#/656',
+'scx=perm' => '#/657',
+'scx=phag' => '#/658',
+'scx=phagspa' => '#/658',
+'scx=phli' => '#/659',
+'scx=phlp' => 'Scx/Phlp',
+'scx=phnx' => '#/660',
+'scx=phoenician' => '#/660',
+'scx=plrd' => '#/646',
+'scx=prti' => '#/661',
+'scx=psalterpahlavi' => 'Scx/Phlp',
+'scx=qaac' => 'Scx/Copt',
+'scx=qaai' => 'Scx/Zinh',
+'scx=rejang' => '#/662',
+'scx=rjng' => '#/662',
+'scx=runic' => '#/663',
+'scx=runr' => '#/663',
+'scx=samaritan' => '#/664',
+'scx=samr' => '#/664',
+'scx=sarb' => '#/351',
+'scx=saur' => '#/665',
+'scx=saurashtra' => '#/665',
+'scx=sgnw' => '#/666',
+'scx=sharada' => 'Scx/Shrd',
+'scx=shavian' => '#/201',
+'scx=shaw' => '#/201',
+'scx=shrd' => 'Scx/Shrd',
+'scx=sidd' => '#/667',
+'scx=siddham' => '#/667',
+'scx=signwriting' => '#/666',
+'scx=sind' => 'Scx/Sind',
+'scx=sinh' => 'Scx/Sinh',
+'scx=sinhala' => 'Scx/Sinh',
+'scx=sora' => '#/668',
+'scx=sorasompeng' => '#/668',
+'scx=soyo' => '#/669',
+'scx=soyombo' => '#/669',
+'scx=sund' => '#/670',
+'scx=sundanese' => '#/670',
+'scx=sylo' => '#/671',
+'scx=sylotinagri' => '#/671',
+'scx=syrc' => 'Scx/Syrc',
+'scx=syriac' => 'Scx/Syrc',
+'scx=tagalog' => '#/676',
+'scx=tagb' => 'Scx/Tagb',
+'scx=tagbanwa' => 'Scx/Tagb',
+'scx=taile' => '#/672',
+'scx=taitham' => 'Scx/Lana',
+'scx=taiviet' => '#/674',
+'scx=takr' => 'Scx/Takr',
+'scx=takri' => 'Scx/Takr',
+'scx=tale' => '#/672',
+'scx=talu' => 'Scx/Talu',
+'scx=tamil' => 'Scx/Taml',
+'scx=taml' => 'Scx/Taml',
+'scx=tang' => '#/673',
+'scx=tangut' => '#/673',
+'scx=tavt' => '#/674',
+'scx=telu' => 'Scx/Telu',
+'scx=telugu' => 'Scx/Telu',
+'scx=tfng' => '#/675',
+'scx=tglg' => '#/676',
+'scx=thaa' => 'Scx/Thaa',
+'scx=thaana' => 'Scx/Thaa',
+'scx=thai' => '#/677',
+'scx=tibetan' => 'Scx/Tibt',
+'scx=tibt' => 'Scx/Tibt',
+'scx=tifinagh' => '#/675',
+'scx=tirh' => 'Scx/Tirh',
+'scx=tirhuta' => 'Scx/Tirh',
+'scx=ugar' => '#/678',
+'scx=ugaritic' => '#/678',
+'scx=unknown' => 'Scx/Zzzz',
+'scx=vai' => '#/611',
+'scx=vaii' => '#/611',
+'scx=wara' => '#/679',
+'scx=warangciti' => '#/679',
+'scx=xpeo' => '#/680',
+'scx=xsux' => 'Scx/Xsux',
+'scx=yi' => 'Scx/Yi',
+'scx=yiii' => 'Scx/Yi',
+'scx=zanabazarsquare' => '#/681',
+'scx=zanb' => '#/681',
+'scx=zinh' => 'Scx/Zinh',
+'scx=zyyy' => 'Scx/Zyyy',
+'scx=zzzz' => 'Scx/Zzzz',
+'sd' => 'SD/Y',
+'sd=f' => '!SD/Y',
+'sd=false' => '!SD/Y',
+'sd=n' => '!SD/Y',
+'sd=no' => '!SD/Y',
+'sd=t' => 'SD/Y',
+'sd=true' => 'SD/Y',
+'sd=y' => 'SD/Y',
+'sd=yes' => 'SD/Y',
+'sentenceterminal' => 'STerm/Y',
+'separator' => 'Gc/Z',
+'sgnw' => '#/666',
+'sharada' => 'Scx/Shrd',
+'shavian' => '#/201',
+'shaw' => '#/201',
+'shorthandformatcontrols' => '#/389',
+'shrd' => 'Scx/Shrd',
+'sidd' => '#/667',
+'siddham' => '#/667',
+'signwriting' => '#/666',
+'sind' => 'Scx/Sind',
+'sinh' => 'Scx/Sinh',
+'sinhala' => 'Scx/Sinh',
+'sinhalaarchaicnumbers' => '#/384',
+'sk' => 'Gc/Sk',
+'sm' => 'Gc/Sm',
+'smallforms' => '#/282',
+'smallformvariants' => '#/282',
+'so' => 'Gc/So',
+'softdotted' => 'SD/Y',
+'sora' => '#/668',
+'sorasompeng' => '#/668',
+'soyo' => '#/669',
+'soyombo' => '#/669',
+'space' => 'Perl/SpacePer',
+'spaceperl' => 'Perl/SpacePer',
+'spaceseparator' => 'Gc/Zs',
+'spacingmark' => 'Gc/Mc',
+'spacingmodifierletters' => '#/349',
+'specials' => '#/236',
+'sterm' => 'STerm/Y',
+'sterm=f' => '!STerm/Y',
+'sterm=false' => '!STerm/Y',
+'sterm=n' => '!STerm/Y',
+'sterm=no' => '!STerm/Y',
+'sterm=t' => 'STerm/Y',
+'sterm=true' => 'STerm/Y',
+'sterm=y' => 'STerm/Y',
+'sterm=yes' => 'STerm/Y',
+'sund' => '#/670',
+'sundanese' => '#/670',
+'sundanesesup' => '#/323',
+'sundanesesupplement' => '#/323',
+'suparrowsa' => '#/283',
+'suparrowsb' => '#/284',
+'suparrowsc' => '#/285',
+'superandsub' => '#/306',
+'superscriptsandsubscripts' => '#/306',
+'supmathoperators' => '#/364',
+'supplementalarrowsa' => '#/283',
+'supplementalarrowsb' => '#/284',
+'supplementalarrowsc' => '#/285',
+'supplementalmathematicaloperators' => '#/364',
+'supplementalpunctuation' => '#/340',
+'supplementalsymbolsandpictographs' => '#/390',
+'supplementaryprivateuseareaa' => '#/205',
+'supplementaryprivateuseareab' => '#/206',
+'suppuaa' => '#/205',
+'suppuab' => '#/206',
+'suppunctuation' => '#/340',
+'supsymbolsandpictographs' => '#/390',
+'surrogate' => '#/14',
+'suttonsignwriting' => '#/369',
+'sylo' => '#/671',
+'sylotinagri' => '#/671',
+'symbol' => 'Gc/S',
+'syrc' => 'Scx/Syrc',
+'syriac' => 'Scx/Syrc',
+'syriacsup' => '#/266',
+'syriacsupplement' => '#/266',
+'tagalog' => '#/676',
+'tagb' => 'Scx/Tagb',
+'tagbanwa' => 'Scx/Tagb',
+'tags' => '#/128',
+'taile' => '#/672',
+'taitham' => 'Scx/Lana',
+'taiviet' => '#/674',
+'taixuanjing' => '#/308',
+'taixuanjingsymbols' => '#/308',
+'takr' => 'Scx/Takr',
+'takri' => 'Scx/Takr',
+'tale' => '#/672',
+'talu' => 'Scx/Talu',
+'tamil' => 'Scx/Taml',
+'taml' => 'Scx/Taml',
+'tang' => '#/673',
+'tangut' => '#/673',
+'tangutcomponents' => '#/365',
+'tavt' => '#/674',
+'telu' => 'Scx/Telu',
+'telugu' => 'Scx/Telu',
+'term' => 'Term/Y',
+'term=f' => '!Term/Y',
+'term=false' => '!Term/Y',
+'term=n' => '!Term/Y',
+'term=no' => '!Term/Y',
+'term=t' => 'Term/Y',
+'term=true' => 'Term/Y',
+'term=y' => 'Term/Y',
+'term=yes' => 'Term/Y',
+'terminalpunctuation' => 'Term/Y',
+'tfng' => '#/675',
+'tglg' => '#/676',
+'thaa' => 'Scx/Thaa',
+'thaana' => 'Scx/Thaa',
+'thai' => '#/677',
+'tibetan' => 'Scx/Tibt',
+'tibt' => 'Scx/Tibt',
+'tifinagh' => '#/675',
+'tirh' => 'Scx/Tirh',
+'tirhuta' => 'Scx/Tirh',
+'title' => 'Perl/Title',
+'titlecase' => 'Perl/Title',
+'titlecaseletter' => 'Perl/Title',
+'transportandmap' => '#/352',
+'transportandmapsymbols' => '#/352',
+'ucas' => '#/130',
+'ucasext' => '#/212',
+'ugar' => '#/678',
+'ugaritic' => '#/678',
+'uideo' => 'UIdeo/Y',
+'uideo=f' => '!UIdeo/Y',
+'uideo=false' => '!UIdeo/Y',
+'uideo=n' => '!UIdeo/Y',
+'uideo=no' => '!UIdeo/Y',
+'uideo=t' => 'UIdeo/Y',
+'uideo=true' => 'UIdeo/Y',
+'uideo=y' => 'UIdeo/Y',
+'uideo=yes' => 'UIdeo/Y',
+'unassigned' => 'Gc/Cn',
+'unicode' => '#/2',
+'unifiedcanadianaboriginalsyllabics' => '#/130',
+'unifiedcanadianaboriginalsyllabicsextended' => '#/212',
+'unifiedideograph' => 'UIdeo/Y',
+'unknown' => 'Scx/Zzzz',
+'upper' => 'Upper/Y',
+'upper=f' => '!Upper/Y',
+'upper=false' => '!Upper/Y',
+'upper=n' => '!Upper/Y',
+'upper=no' => '!Upper/Y',
+'upper=t' => 'Upper/Y',
+'upper=true' => 'Upper/Y',
+'upper=y' => 'Upper/Y',
+'upper=yes' => 'Upper/Y',
+'uppercase' => 'Upper/Y',
+'uppercaseletter' => 'Gc/Lu',
+'vai' => '#/611',
+'vaii' => '#/611',
+'variationselector' => '#/94',
+'variationselectors' => '#/111',
+'variationselectorssupplement' => '#/148',
+'vedicext' => '#/240',
+'vedicextensions' => '#/240',
+'verticalforms' => '#/331',
+'vertspace' => '#/4',
+'vo=r' => 'Vo/R',
+'vo=rotated' => 'Vo/R',
+'vo=tr' => 'Vo/Tr',
+'vo=transformedrotated' => 'Vo/Tr',
+'vo=transformedupright' => 'Vo/Tu',
+'vo=tu' => 'Vo/Tu',
+'vo=u' => 'Vo/U',
+'vo=upright' => 'Vo/U',
+'vs' => '#/94',
+'vs=f' => '#/!94',
+'vs=false' => '#/!94',
+'vs=n' => '#/!94',
+'vs=no' => '#/!94',
+'vs=t' => '#/94',
+'vs=true' => '#/94',
+'vs=y' => '#/94',
+'vs=yes' => '#/94',
+'vssup' => '#/148',
+'wara' => '#/679',
+'warangciti' => '#/679',
+'wb=aletter' => 'WB/LE',
+'wb=cr' => '#/63',
+'wb=doublequote' => '#/95',
+'wb=dq' => '#/95',
+'wb=eb' => 'GCB/EB',
+'wb=ebase' => 'GCB/EB',
+'wb=ebasegaz' => '#/67',
+'wb=ebg' => '#/67',
+'wb=em' => '#/64',
+'wb=emodifier' => '#/64',
+'wb=ex' => 'WB/EX',
+'wb=extend' => 'WB/Extend',
+'wb=extendnumlet' => 'WB/EX',
+'wb=fo' => 'WB/FO',
+'wb=format' => 'WB/FO',
+'wb=gaz' => 'GCB/GAZ',
+'wb=glueafterzwj' => 'GCB/GAZ',
+'wb=hebrewletter' => 'WB/HL',
+'wb=hl' => 'WB/HL',
+'wb=ka' => 'WB/KA',
+'wb=katakana' => 'WB/KA',
+'wb=le' => 'WB/LE',
+'wb=lf' => '#/65',
+'wb=mb' => 'WB/MB',
+'wb=midletter' => 'WB/ML',
+'wb=midnum' => 'WB/MN',
+'wb=midnumlet' => 'WB/MB',
+'wb=ml' => 'WB/ML',
+'wb=mn' => 'WB/MN',
+'wb=newline' => '#/96',
+'wb=nl' => '#/96',
+'wb=nu' => 'WB/NU',
+'wb=numeric' => 'WB/NU',
+'wb=other' => 'WB/XX',
+'wb=regionalindicator' => '#/66',
+'wb=ri' => '#/66',
+'wb=singlequote' => '#/97',
+'wb=sq' => '#/97',
+'wb=xx' => 'WB/XX',
+'wb=zwj' => '#/68',
+'whitespace' => 'Perl/SpacePer',
+'word' => 'Perl/Word',
+'wspace' => 'Perl/SpacePer',
+'wspace=f' => '!Perl/SpacePer',
+'wspace=false' => '!Perl/SpacePer',
+'wspace=n' => '!Perl/SpacePer',
+'wspace=no' => '!Perl/SpacePer',
+'wspace=t' => 'Perl/SpacePer',
+'wspace=true' => 'Perl/SpacePer',
+'wspace=y' => 'Perl/SpacePer',
+'wspace=yes' => 'Perl/SpacePer',
+'xdigit' => 'Hex/Y',
+'xidc' => 'XIDC/Y',
+'xidc=f' => '!XIDC/Y',
+'xidc=false' => '!XIDC/Y',
+'xidc=n' => '!XIDC/Y',
+'xidc=no' => '!XIDC/Y',
+'xidc=t' => 'XIDC/Y',
+'xidc=true' => 'XIDC/Y',
+'xidc=y' => 'XIDC/Y',
+'xidc=yes' => 'XIDC/Y',
+'xidcontinue' => 'XIDC/Y',
+'xids' => 'XIDS/Y',
+'xids=f' => '!XIDS/Y',
+'xids=false' => '!XIDS/Y',
+'xids=n' => '!XIDS/Y',
+'xids=no' => '!XIDS/Y',
+'xids=t' => 'XIDS/Y',
+'xids=true' => 'XIDS/Y',
+'xids=y' => 'XIDS/Y',
+'xids=yes' => 'XIDS/Y',
+'xidstart' => 'XIDS/Y',
+'xpeo' => '#/680',
+'xperlspace' => 'Perl/SpacePer',
+'xposixalnum' => 'Perl/Alnum',
+'xposixalpha' => 'Alpha/Y',
+'xposixblank' => 'Perl/Blank',
+'xposixcntrl' => '#/394',
+'xposixdigit' => 'Gc/Nd',
+'xposixgraph' => 'Perl/Graph',
+'xposixlower' => 'Lower/Y',
+'xposixprint' => 'Perl/Print',
+'xposixpunct' => 'Perl/XPosixPu',
+'xposixspace' => 'Perl/SpacePer',
+'xposixupper' => 'Upper/Y',
+'xposixword' => 'Perl/Word',
+'xposixxdigit' => 'Hex/Y',
+'xsux' => 'Scx/Xsux',
+'yi' => 'Scx/Yi',
+'yiii' => 'Scx/Yi',
+'yijing' => '#/174',
+'yijinghexagramsymbols' => '#/174',
+'yiradicals' => '#/287',
+'yisyllables' => '#/309',
+'z' => 'Gc/Z',
+'zanabazarsquare' => '#/681',
+'zanb' => '#/681',
+'zinh' => 'Scx/Zinh',
+'zl' => '#/396',
+'zp' => '#/397',
+'zs' => 'Gc/Zs',
+'zyyy' => 'Scx/Zyyy',
+'zzzz' => 'Scx/Zzzz',
+);
+
+# Maps floating point to fractional form
+%utf8::nv_floating_to_rational = (
+'-0.5' => '-1/2',
+'0.00625' => '1/160',
+'0.025' => '1/40',
+'0.0375' => '3/80',
+'0.05' => '1/20',
+'0.0625' => '1/16',
+'0.0833333333333333' => '1/12',
+'0.1' => '1/10',
+'0.111111111111111' => '1/9',
+'0.125' => '1/8',
+'0.142857142857143' => '1/7',
+'0.15' => '3/20',
+'0.166666666666667' => '1/6',
+'0.1875' => '3/16',
+'0.2' => '1/5',
+'0.25' => '1/4',
+'0.333333333333333' => '1/3',
+'0.375' => '3/8',
+'0.4' => '2/5',
+'0.416666666666667' => '5/12',
+'0.5' => '1/2',
+'0.583333333333333' => '7/12',
+'0.6' => '3/5',
+'0.625' => '5/8',
+'0.666666666666667' => '2/3',
+'0.75' => '3/4',
+'0.8' => '4/5',
+'0.833333333333333' => '5/6',
+'0.875' => '7/8',
+'0.916666666666667' => '11/12',
+'1.5' => '3/2',
+'2.5' => '5/2',
+'3.5' => '7/2',
+'4.5' => '9/2',
+'5.5' => '11/2',
+'6.5' => '13/2',
+'7.5' => '15/2',
+'8.5' => '17/2',
+);
+
+# If a floating point number doesn't have enough digits in it to get this
+# close to a fraction, it isn't considered to be that fraction even if all the
+# digits it does have match.
+$utf8::max_floating_slop = 0.001;
+
+# Deprecated tables to generate a warning for.  The key is the file containing
+# the table, so as to avoid duplication, as many property names can map to the
+# file, but we only need one entry for all of them.
+%utf8::why_deprecated = (
+'#/488' => 'Deprecated by Unicode because surrogates should never appear in well-formed text, and therefore shouldn\'t be the basis for line breaking',
+'Hyphen/T' => 'Supplanted by Line_Break property values; see www.unicode.org/reports/tr14',
+);
+
+# A few properties have different behavior under /i matching.  This maps
+# those to substitute files to use under /i.
+%utf8::caseless_equivalent = (
+'gc=ll' => 'Gc/LC',
+'gc=lowercaseletter' => 'Gc/LC',
+'gc=lt' => 'Gc/LC',
+'gc=lu' => 'Gc/LC',
+'gc=titlecaseletter' => 'Gc/LC',
+'gc=uppercaseletter' => 'Gc/LC',
+'isll' => 'Gc/LC',
+'islower' => 'Cased/Y',
+'islowercase' => 'Cased/Y',
+'islowercaseletter' => 'Gc/LC',
+'islt' => 'Gc/LC',
+'islu' => 'Gc/LC',
+'isposixlower' => '#/6',
+'isposixupper' => '#/6',
+'istitle' => 'Cased/Y',
+'istitlecase' => 'Cased/Y',
+'istitlecaseletter' => 'Gc/LC',
+'isupper' => 'Cased/Y',
+'isuppercase' => 'Cased/Y',
+'isuppercaseletter' => 'Gc/LC',
+'isxposixlower' => 'Cased/Y',
+'isxposixupper' => 'Cased/Y',
+'ll' => 'Gc/LC',
+'lower' => 'Cased/Y',
+'lower=f' => '!Cased/Y',
+'lower=false' => '!Cased/Y',
+'lower=n' => '!Cased/Y',
+'lower=no' => '!Cased/Y',
+'lower=t' => 'Cased/Y',
+'lower=true' => 'Cased/Y',
+'lower=y' => 'Cased/Y',
+'lower=yes' => 'Cased/Y',
+'lowercase' => 'Cased/Y',
+'lowercaseletter' => 'Gc/LC',
+'lt' => 'Gc/LC',
+'lu' => 'Gc/LC',
+'posixlower' => '#/6',
+'posixupper' => '#/6',
+'title' => 'Cased/Y',
+'titlecase' => 'Cased/Y',
+'titlecaseletter' => 'Gc/LC',
+'upper' => 'Cased/Y',
+'upper=f' => '!Cased/Y',
+'upper=false' => '!Cased/Y',
+'upper=n' => '!Cased/Y',
+'upper=no' => '!Cased/Y',
+'upper=t' => 'Cased/Y',
+'upper=true' => 'Cased/Y',
+'upper=y' => 'Cased/Y',
+'upper=yes' => 'Cased/Y',
+'uppercase' => 'Cased/Y',
+'uppercaseletter' => 'Gc/LC',
+'xposixlower' => 'Cased/Y',
+'xposixupper' => 'Cased/Y',
+);
+
+# Property names to mapping files
+%utf8::loose_property_to_file_of = (
+'age' => 'To/Age',
+'bc' => 'To/Bc',
+'bidiclass' => 'To/Bc',
+'bidimirroringglyph' => 'To/Bmg',
+'bidipairedbracket' => 'To/Bpb',
+'bidipairedbrackettype' => 'To/Bpt',
+'bmg' => 'To/Bmg',
+'bpb' => 'To/Bpb',
+'bpt' => 'To/Bpt',
+'canonicalcombiningclass' => 'CombiningClass',
+'casefolding' => 'To/Cf',
+'category' => 'To/Gc',
+'ccc' => 'CombiningClass',
+'cf' => 'To/Cf',
+'ea' => 'To/Ea',
+'eastasianwidth' => 'To/Ea',
+'gc' => 'To/Gc',
+'gcb' => 'To/GCB',
+'generalcategory' => 'To/Gc',
+'graphemeclusterbreak' => 'To/GCB',
+'hangulsyllabletype' => 'To/Hst',
+'hst' => 'To/Hst',
+'indicpositionalcategory' => 'To/InPC',
+'indicsyllabiccategory' => 'To/InSC',
+'inpc' => 'To/InPC',
+'insc' => 'To/InSC',
+'isc' => 'To/Isc',
+'isocomment' => 'To/Isc',
+'jg' => 'To/Jg',
+'joininggroup' => 'To/Jg',
+'joiningtype' => 'To/Jt',
+'jt' => 'To/Jt',
+'lb' => 'To/Lb',
+'lc' => 'To/Lc',
+'linebreak' => 'To/Lb',
+'lowercasemapping' => 'To/Lc',
+'na1' => 'To/Na1',
+'namealias' => 'To/NameAlia',
+'nfcqc' => 'To/NFCQC',
+'nfcquickcheck' => 'To/NFCQC',
+'nfdqc' => 'To/NFDQC',
+'nfdquickcheck' => 'To/NFDQC',
+'nfkccasefold' => 'To/NFKCCF',
+'nfkccf' => 'To/NFKCCF',
+'nfkcqc' => 'To/NFKCQC',
+'nfkcquickcheck' => 'To/NFKCQC',
+'nfkdqc' => 'To/NFKDQC',
+'nfkdquickcheck' => 'To/NFKDQC',
+'nt' => 'To/Nt',
+'numerictype' => 'To/Nt',
+'numericvalue' => 'To/Nv',
+'nv' => 'To/Nv',
+'perldecimaldigit' => 'To/PerlDeci',
+'sb' => 'To/SB',
+'sc' => 'To/Sc',
+'script' => 'To/Sc',
+'scriptextensions' => 'To/Scx',
+'scx' => 'To/Scx',
+'sentencebreak' => 'To/SB',
+'tc' => 'To/Tc',
+'titlecasemapping' => 'To/Tc',
+'uc' => 'To/Uc',
+'unicode1name' => 'To/Na1',
+'uppercasemapping' => 'To/Uc',
+'verticalorientation' => 'To/Vo',
+'vo' => 'To/Vo',
+'wb' => 'To/WB',
+'wordbreak' => 'To/WB',
+);
+
+# Property names to mapping files
+%utf8::strict_property_to_file_of = (
+'_perl_gcb' => 'To/GCB',
+'_perl_lb' => 'To/_PerlLB',
+'_perl_name_alias' => 'To/NameAlia',
+'_perl_sb' => 'To/SB',
+'_perl_scx' => 'To/_PerlSCX',
+'_perl_wb' => 'To/_PerlWB',
+);
+
+# Files to the swash names within them.
+%utf8::file_to_swash_name = (
+'CombiningClass' => 'ToCombiningClass',
+'To/_PerlLB' => 'To_PerlLB',
+'To/_PerlSCX' => 'To_PerlSCX',
+'To/_PerlWB' => 'To_PerlWB',
+'To/Age' => 'ToAge',
+'To/Bc' => 'ToBc',
+'To/Bmg' => 'ToBmg',
+'To/Bpb' => 'ToBpb',
+'To/Bpt' => 'ToBpt',
+'To/Cf' => 'ToCf',
+'To/Ea' => 'ToEa',
+'To/Gc' => 'ToGc',
+'To/GCB' => 'ToGCB',
+'To/Hst' => 'ToHst',
+'To/InPC' => 'ToInPC',
+'To/InSC' => 'ToInSC',
+'To/Isc' => 'ToIsc',
+'To/Jg' => 'ToJg',
+'To/Jt' => 'ToJt',
+'To/Lb' => 'ToLb',
+'To/Lc' => 'ToLc',
+'To/Na1' => 'ToNa1',
+'To/NameAlia' => 'ToNameAlias',
+'To/NFCQC' => 'ToNFCQC',
+'To/NFDQC' => 'ToNFDQC',
+'To/NFKCCF' => 'ToNFKCCF',
+'To/NFKCQC' => 'ToNFKCQC',
+'To/NFKDQC' => 'ToNFKDQC',
+'To/Nt' => 'ToNt',
+'To/Nv' => 'ToNv',
+'To/PerlDeci' => 'ToPerlDecimalDigit',
+'To/SB' => 'ToSB',
+'To/Sc' => 'ToSc',
+'To/Scx' => 'ToScx',
+'To/Tc' => 'ToTc',
+'To/Uc' => 'ToUc',
+'To/Vo' => 'ToVo',
+'To/WB' => 'ToWB',
+);
+
+1;
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+A0		<noBreak> 0020
+A8		<compat> 0020 0308
+AA		<super> 0061
+AF		<compat> 0020 0304
+B2		<super> 0032
+B3		<super> 0033
+B4		<compat> 0020 0301
+B5		<compat> 03BC
+B8		<compat> 0020 0327
+B9		<super> 0031
+BA		<super> 006F
+BC		<fraction> 0031 2044 0034
+BD		<fraction> 0031 2044 0032
+BE		<fraction> 0033 2044 0034
+C0		0041 0300
+C1		0041 0301
+C2		0041 0302
+C3		0041 0303
+C4		0041 0308
+C5		0041 030A
+C7		0043 0327
+C8		0045 0300
+C9		0045 0301
+CA		0045 0302
+CB		0045 0308
+CC		0049 0300
+CD		0049 0301
+CE		0049 0302
+CF		0049 0308
+D1		004E 0303
+D2		004F 0300
+D3		004F 0301
+D4		004F 0302
+D5		004F 0303
+D6		004F 0308
+D9		0055 0300
+DA		0055 0301
+DB		0055 0302
+DC		0055 0308
+DD		0059 0301
+E0		0061 0300
+E1		0061 0301
+E2		0061 0302
+E3		0061 0303
+E4		0061 0308
+E5		0061 030A
+E7		0063 0327
+E8		0065 0300
+E9		0065 0301
+EA		0065 0302
+EB		0065 0308
+EC		0069 0300
+ED		0069 0301
+EE		0069 0302
+EF		0069 0308
+F1		006E 0303
+F2		006F 0300
+F3		006F 0301
+F4		006F 0302
+F5		006F 0303
+F6		006F 0308
+F9		0075 0300
+FA		0075 0301
+FB		0075 0302
+FC		0075 0308
+FD		0079 0301
+FF		0079 0308
+100		0041 0304
+101		0061 0304
+102		0041 0306
+103		0061 0306
+104		0041 0328
+105		0061 0328
+106		0043 0301
+107		0063 0301
+108		0043 0302
+109		0063 0302
+10A		0043 0307
+10B		0063 0307
+10C		0043 030C
+10D		0063 030C
+10E		0044 030C
+10F		0064 030C
+112		0045 0304
+113		0065 0304
+114		0045 0306
+115		0065 0306
+116		0045 0307
+117		0065 0307
+118		0045 0328
+119		0065 0328
+11A		0045 030C
+11B		0065 030C
+11C		0047 0302
+11D		0067 0302
+11E		0047 0306
+11F		0067 0306
+120		0047 0307
+121		0067 0307
+122		0047 0327
+123		0067 0327
+124		0048 0302
+125		0068 0302
+128		0049 0303
+129		0069 0303
+12A		0049 0304
+12B		0069 0304
+12C		0049 0306
+12D		0069 0306
+12E		0049 0328
+12F		0069 0328
+130		0049 0307
+132		<compat> 0049 004A
+133		<compat> 0069 006A
+134		004A 0302
+135		006A 0302
+136		004B 0327
+137		006B 0327
+139		004C 0301
+13A		006C 0301
+13B		004C 0327
+13C		006C 0327
+13D		004C 030C
+13E		006C 030C
+13F		<compat> 004C 00B7
+140		<compat> 006C 00B7
+143		004E 0301
+144		006E 0301
+145		004E 0327
+146		006E 0327
+147		004E 030C
+148		006E 030C
+149		<compat> 02BC 006E
+14C		004F 0304
+14D		006F 0304
+14E		004F 0306
+14F		006F 0306
+150		004F 030B
+151		006F 030B
+154		0052 0301
+155		0072 0301
+156		0052 0327
+157		0072 0327
+158		0052 030C
+159		0072 030C
+15A		0053 0301
+15B		0073 0301
+15C		0053 0302
+15D		0073 0302
+15E		0053 0327
+15F		0073 0327
+160		0053 030C
+161		0073 030C
+162		0054 0327
+163		0074 0327
+164		0054 030C
+165		0074 030C
+168		0055 0303
+169		0075 0303
+16A		0055 0304
+16B		0075 0304
+16C		0055 0306
+16D		0075 0306
+16E		0055 030A
+16F		0075 030A
+170		0055 030B
+171		0075 030B
+172		0055 0328
+173		0075 0328
+174		0057 0302
+175		0077 0302
+176		0059 0302
+177		0079 0302
+178		0059 0308
+179		005A 0301
+17A		007A 0301
+17B		005A 0307
+17C		007A 0307
+17D		005A 030C
+17E		007A 030C
+17F		<compat> 0073
+1A0		004F 031B
+1A1		006F 031B
+1AF		0055 031B
+1B0		0075 031B
+1C4		<compat> 0044 017D
+1C5		<compat> 0044 017E
+1C6		<compat> 0064 017E
+1C7		<compat> 004C 004A
+1C8		<compat> 004C 006A
+1C9		<compat> 006C 006A
+1CA		<compat> 004E 004A
+1CB		<compat> 004E 006A
+1CC		<compat> 006E 006A
+1CD		0041 030C
+1CE		0061 030C
+1CF		0049 030C
+1D0		0069 030C
+1D1		004F 030C
+1D2		006F 030C
+1D3		0055 030C
+1D4		0075 030C
+1D5		00DC 0304
+1D6		00FC 0304
+1D7		00DC 0301
+1D8		00FC 0301
+1D9		00DC 030C
+1DA		00FC 030C
+1DB		00DC 0300
+1DC		00FC 0300
+1DE		00C4 0304
+1DF		00E4 0304
+1E0		0226 0304
+1E1		0227 0304
+1E2		00C6 0304
+1E3		00E6 0304
+1E6		0047 030C
+1E7		0067 030C
+1E8		004B 030C
+1E9		006B 030C
+1EA		004F 0328
+1EB		006F 0328
+1EC		01EA 0304
+1ED		01EB 0304
+1EE		01B7 030C
+1EF		0292 030C
+1F0		006A 030C
+1F1		<compat> 0044 005A
+1F2		<compat> 0044 007A
+1F3		<compat> 0064 007A
+1F4		0047 0301
+1F5		0067 0301
+1F8		004E 0300
+1F9		006E 0300
+1FA		00C5 0301
+1FB		00E5 0301
+1FC		00C6 0301
+1FD		00E6 0301
+1FE		00D8 0301
+1FF		00F8 0301
+200		0041 030F
+201		0061 030F
+202		0041 0311
+203		0061 0311
+204		0045 030F
+205		0065 030F
+206		0045 0311
+207		0065 0311
+208		0049 030F
+209		0069 030F
+20A		0049 0311
+20B		0069 0311
+20C		004F 030F
+20D		006F 030F
+20E		004F 0311
+20F		006F 0311
+210		0052 030F
+211		0072 030F
+212		0052 0311
+213		0072 0311
+214		0055 030F
+215		0075 030F
+216		0055 0311
+217		0075 0311
+218		0053 0326
+219		0073 0326
+21A		0054 0326
+21B		0074 0326
+21E		0048 030C
+21F		0068 030C
+226		0041 0307
+227		0061 0307
+228		0045 0327
+229		0065 0327
+22A		00D6 0304
+22B		00F6 0304
+22C		00D5 0304
+22D		00F5 0304
+22E		004F 0307
+22F		006F 0307
+230		022E 0304
+231		022F 0304
+232		0059 0304
+233		0079 0304
+2B0		<super> 0068
+2B1		<super> 0266
+2B2		<super> 006A
+2B3		<super> 0072
+2B4		<super> 0279
+2B5		<super> 027B
+2B6		<super> 0281
+2B7		<super> 0077
+2B8		<super> 0079
+2D8		<compat> 0020 0306
+2D9		<compat> 0020 0307
+2DA		<compat> 0020 030A
+2DB		<compat> 0020 0328
+2DC		<compat> 0020 0303
+2DD		<compat> 0020 030B
+2E0		<super> 0263
+2E1		<super> 006C
+2E2		<super> 0073
+2E3		<super> 0078
+2E4		<super> 0295
+340		0300
+341		0301
+343		0313
+344		0308 0301
+374		02B9
+37A		<compat> 0020 0345
+37E		003B
+384		<compat> 0020 0301
+385		00A8 0301
+386		0391 0301
+387		00B7
+388		0395 0301
+389		0397 0301
+38A		0399 0301
+38C		039F 0301
+38E		03A5 0301
+38F		03A9 0301
+390		03CA 0301
+3AA		0399 0308
+3AB		03A5 0308
+3AC		03B1 0301
+3AD		03B5 0301
+3AE		03B7 0301
+3AF		03B9 0301
+3B0		03CB 0301
+3CA		03B9 0308
+3CB		03C5 0308
+3CC		03BF 0301
+3CD		03C5 0301
+3CE		03C9 0301
+3D0		<compat> 03B2
+3D1		<compat> 03B8
+3D2		<compat> 03A5
+3D3		03D2 0301
+3D4		03D2 0308
+3D5		<compat> 03C6
+3D6		<compat> 03C0
+3F0		<compat> 03BA
+3F1		<compat> 03C1
+3F2		<compat> 03C2
+3F4		<compat> 0398
+3F5		<compat> 03B5
+3F9		<compat> 03A3
+400		0415 0300
+401		0415 0308
+403		0413 0301
+407		0406 0308
+40C		041A 0301
+40D		0418 0300
+40E		0423 0306
+419		0418 0306
+439		0438 0306
+450		0435 0300
+451		0435 0308
+453		0433 0301
+457		0456 0308
+45C		043A 0301
+45D		0438 0300
+45E		0443 0306
+476		0474 030F
+477		0475 030F
+4C1		0416 0306
+4C2		0436 0306
+4D0		0410 0306
+4D1		0430 0306
+4D2		0410 0308
+4D3		0430 0308
+4D6		0415 0306
+4D7		0435 0306
+4DA		04D8 0308
+4DB		04D9 0308
+4DC		0416 0308
+4DD		0436 0308
+4DE		0417 0308
+4DF		0437 0308
+4E2		0418 0304
+4E3		0438 0304
+4E4		0418 0308
+4E5		0438 0308
+4E6		041E 0308
+4E7		043E 0308
+4EA		04E8 0308
+4EB		04E9 0308
+4EC		042D 0308
+4ED		044D 0308
+4EE		0423 0304
+4EF		0443 0304
+4F0		0423 0308
+4F1		0443 0308
+4F2		0423 030B
+4F3		0443 030B
+4F4		0427 0308
+4F5		0447 0308
+4F8		042B 0308
+4F9		044B 0308
+587		<compat> 0565 0582
+622		0627 0653
+623		0627 0654
+624		0648 0654
+625		0627 0655
+626		064A 0654
+675		<compat> 0627 0674
+676		<compat> 0648 0674
+677		<compat> 06C7 0674
+678		<compat> 064A 0674
+6C0		06D5 0654
+6C2		06C1 0654
+6D3		06D2 0654
+929		0928 093C
+931		0930 093C
+934		0933 093C
+958		0915 093C
+959		0916 093C
+95A		0917 093C
+95B		091C 093C
+95C		0921 093C
+95D		0922 093C
+95E		092B 093C
+95F		092F 093C
+9CB		09C7 09BE
+9CC		09C7 09D7
+9DC		09A1 09BC
+9DD		09A2 09BC
+9DF		09AF 09BC
+A33		0A32 0A3C
+A36		0A38 0A3C
+A59		0A16 0A3C
+A5A		0A17 0A3C
+A5B		0A1C 0A3C
+A5E		0A2B 0A3C
+B48		0B47 0B56
+B4B		0B47 0B3E
+B4C		0B47 0B57
+B5C		0B21 0B3C
+B5D		0B22 0B3C
+B94		0B92 0BD7
+BCA		0BC6 0BBE
+BCB		0BC7 0BBE
+BCC		0BC6 0BD7
+C48		0C46 0C56
+CC0		0CBF 0CD5
+CC7		0CC6 0CD5
+CC8		0CC6 0CD6
+CCA		0CC6 0CC2
+CCB		0CCA 0CD5
+D4A		0D46 0D3E
+D4B		0D47 0D3E
+D4C		0D46 0D57
+DDA		0DD9 0DCA
+DDC		0DD9 0DCF
+DDD		0DDC 0DCA
+DDE		0DD9 0DDF
+E33		<compat> 0E4D 0E32
+EB3		<compat> 0ECD 0EB2
+EDC		<compat> 0EAB 0E99
+EDD		<compat> 0EAB 0EA1
+F0C		<noBreak> 0F0B
+F43		0F42 0FB7
+F4D		0F4C 0FB7
+F52		0F51 0FB7
+F57		0F56 0FB7
+F5C		0F5B 0FB7
+F69		0F40 0FB5
+F73		0F71 0F72
+F75		0F71 0F74
+F76		0FB2 0F80
+F77		<compat> 0FB2 0F81
+F78		0FB3 0F80
+F79		<compat> 0FB3 0F81
+F81		0F71 0F80
+F93		0F92 0FB7
+F9D		0F9C 0FB7
+FA2		0FA1 0FB7
+FA7		0FA6 0FB7
+FAC		0FAB 0FB7
+FB9		0F90 0FB5
+1026		1025 102E
+10FC		<super> 10DC
+1B06		1B05 1B35
+1B08		1B07 1B35
+1B0A		1B09 1B35
+1B0C		1B0B 1B35
+1B0E		1B0D 1B35
+1B12		1B11 1B35
+1B3B		1B3A 1B35
+1B3D		1B3C 1B35
+1B40		1B3E 1B35
+1B41		1B3F 1B35
+1B43		1B42 1B35
+1D2C		<super> 0041
+1D2D		<super> 00C6
+1D2E		<super> 0042
+1D30		<super> 0044
+1D31		<super> 0045
+1D32		<super> 018E
+1D33		<super> 0047
+1D34		<super> 0048
+1D35		<super> 0049
+1D36		<super> 004A
+1D37		<super> 004B
+1D38		<super> 004C
+1D39		<super> 004D
+1D3A		<super> 004E
+1D3C		<super> 004F
+1D3D		<super> 0222
+1D3E		<super> 0050
+1D3F		<super> 0052
+1D40		<super> 0054
+1D41		<super> 0055
+1D42		<super> 0057
+1D43		<super> 0061
+1D44		<super> 0250
+1D45		<super> 0251
+1D46		<super> 1D02
+1D47		<super> 0062
+1D48		<super> 0064
+1D49		<super> 0065
+1D4A		<super> 0259
+1D4B		<super> 025B
+1D4C		<super> 025C
+1D4D		<super> 0067
+1D4F		<super> 006B
+1D50		<super> 006D
+1D51		<super> 014B
+1D52		<super> 006F
+1D53		<super> 0254
+1D54		<super> 1D16
+1D55		<super> 1D17
+1D56		<super> 0070
+1D57		<super> 0074
+1D58		<super> 0075
+1D59		<super> 1D1D
+1D5A		<super> 026F
+1D5B		<super> 0076
+1D5C		<super> 1D25
+1D5D		<super> 03B2
+1D5E		<super> 03B3
+1D5F		<super> 03B4
+1D60		<super> 03C6
+1D61		<super> 03C7
+1D62		<sub> 0069
+1D63		<sub> 0072
+1D64		<sub> 0075
+1D65		<sub> 0076
+1D66		<sub> 03B2
+1D67		<sub> 03B3
+1D68		<sub> 03C1
+1D69		<sub> 03C6
+1D6A		<sub> 03C7
+1D78		<super> 043D
+1D9B		<super> 0252
+1D9C		<super> 0063
+1D9D		<super> 0255
+1D9E		<super> 00F0
+1D9F		<super> 025C
+1DA0		<super> 0066
+1DA1		<super> 025F
+1DA2		<super> 0261
+1DA3		<super> 0265
+1DA4		<super> 0268
+1DA5		<super> 0269
+1DA6		<super> 026A
+1DA7		<super> 1D7B
+1DA8		<super> 029D
+1DA9		<super> 026D
+1DAA		<super> 1D85
+1DAB		<super> 029F
+1DAC		<super> 0271
+1DAD		<super> 0270
+1DAE		<super> 0272
+1DAF		<super> 0273
+1DB0		<super> 0274
+1DB1		<super> 0275
+1DB2		<super> 0278
+1DB3		<super> 0282
+1DB4		<super> 0283
+1DB5		<super> 01AB
+1DB6		<super> 0289
+1DB7		<super> 028A
+1DB8		<super> 1D1C
+1DB9		<super> 028B
+1DBA		<super> 028C
+1DBB		<super> 007A
+1DBC		<super> 0290
+1DBD		<super> 0291
+1DBE		<super> 0292
+1DBF		<super> 03B8
+1E00		0041 0325
+1E01		0061 0325
+1E02		0042 0307
+1E03		0062 0307
+1E04		0042 0323
+1E05		0062 0323
+1E06		0042 0331
+1E07		0062 0331
+1E08		00C7 0301
+1E09		00E7 0301
+1E0A		0044 0307
+1E0B		0064 0307
+1E0C		0044 0323
+1E0D		0064 0323
+1E0E		0044 0331
+1E0F		0064 0331
+1E10		0044 0327
+1E11		0064 0327
+1E12		0044 032D
+1E13		0064 032D
+1E14		0112 0300
+1E15		0113 0300
+1E16		0112 0301
+1E17		0113 0301
+1E18		0045 032D
+1E19		0065 032D
+1E1A		0045 0330
+1E1B		0065 0330
+1E1C		0228 0306
+1E1D		0229 0306
+1E1E		0046 0307
+1E1F		0066 0307
+1E20		0047 0304
+1E21		0067 0304
+1E22		0048 0307
+1E23		0068 0307
+1E24		0048 0323
+1E25		0068 0323
+1E26		0048 0308
+1E27		0068 0308
+1E28		0048 0327
+1E29		0068 0327
+1E2A		0048 032E
+1E2B		0068 032E
+1E2C		0049 0330
+1E2D		0069 0330
+1E2E		00CF 0301
+1E2F		00EF 0301
+1E30		004B 0301
+1E31		006B 0301
+1E32		004B 0323
+1E33		006B 0323
+1E34		004B 0331
+1E35		006B 0331
+1E36		004C 0323
+1E37		006C 0323
+1E38		1E36 0304
+1E39		1E37 0304
+1E3A		004C 0331
+1E3B		006C 0331
+1E3C		004C 032D
+1E3D		006C 032D
+1E3E		004D 0301
+1E3F		006D 0301
+1E40		004D 0307
+1E41		006D 0307
+1E42		004D 0323
+1E43		006D 0323
+1E44		004E 0307
+1E45		006E 0307
+1E46		004E 0323
+1E47		006E 0323
+1E48		004E 0331
+1E49		006E 0331
+1E4A		004E 032D
+1E4B		006E 032D
+1E4C		00D5 0301
+1E4D		00F5 0301
+1E4E		00D5 0308
+1E4F		00F5 0308
+1E50		014C 0300
+1E51		014D 0300
+1E52		014C 0301
+1E53		014D 0301
+1E54		0050 0301
+1E55		0070 0301
+1E56		0050 0307
+1E57		0070 0307
+1E58		0052 0307
+1E59		0072 0307
+1E5A		0052 0323
+1E5B		0072 0323
+1E5C		1E5A 0304
+1E5D		1E5B 0304
+1E5E		0052 0331
+1E5F		0072 0331
+1E60		0053 0307
+1E61		0073 0307
+1E62		0053 0323
+1E63		0073 0323
+1E64		015A 0307
+1E65		015B 0307
+1E66		0160 0307
+1E67		0161 0307
+1E68		1E62 0307
+1E69		1E63 0307
+1E6A		0054 0307
+1E6B		0074 0307
+1E6C		0054 0323
+1E6D		0074 0323
+1E6E		0054 0331
+1E6F		0074 0331
+1E70		0054 032D
+1E71		0074 032D
+1E72		0055 0324
+1E73		0075 0324
+1E74		0055 0330
+1E75		0075 0330
+1E76		0055 032D
+1E77		0075 032D
+1E78		0168 0301
+1E79		0169 0301
+1E7A		016A 0308
+1E7B		016B 0308
+1E7C		0056 0303
+1E7D		0076 0303
+1E7E		0056 0323
+1E7F		0076 0323
+1E80		0057 0300
+1E81		0077 0300
+1E82		0057 0301
+1E83		0077 0301
+1E84		0057 0308
+1E85		0077 0308
+1E86		0057 0307
+1E87		0077 0307
+1E88		0057 0323
+1E89		0077 0323
+1E8A		0058 0307
+1E8B		0078 0307
+1E8C		0058 0308
+1E8D		0078 0308
+1E8E		0059 0307
+1E8F		0079 0307
+1E90		005A 0302
+1E91		007A 0302
+1E92		005A 0323
+1E93		007A 0323
+1E94		005A 0331
+1E95		007A 0331
+1E96		0068 0331
+1E97		0074 0308
+1E98		0077 030A
+1E99		0079 030A
+1E9A		<compat> 0061 02BE
+1E9B		017F 0307
+1EA0		0041 0323
+1EA1		0061 0323
+1EA2		0041 0309
+1EA3		0061 0309
+1EA4		00C2 0301
+1EA5		00E2 0301
+1EA6		00C2 0300
+1EA7		00E2 0300
+1EA8		00C2 0309
+1EA9		00E2 0309
+1EAA		00C2 0303
+1EAB		00E2 0303
+1EAC		1EA0 0302
+1EAD		1EA1 0302
+1EAE		0102 0301
+1EAF		0103 0301
+1EB0		0102 0300
+1EB1		0103 0300
+1EB2		0102 0309
+1EB3		0103 0309
+1EB4		0102 0303
+1EB5		0103 0303
+1EB6		1EA0 0306
+1EB7		1EA1 0306
+1EB8		0045 0323
+1EB9		0065 0323
+1EBA		0045 0309
+1EBB		0065 0309
+1EBC		0045 0303
+1EBD		0065 0303
+1EBE		00CA 0301
+1EBF		00EA 0301
+1EC0		00CA 0300
+1EC1		00EA 0300
+1EC2		00CA 0309
+1EC3		00EA 0309
+1EC4		00CA 0303
+1EC5		00EA 0303
+1EC6		1EB8 0302
+1EC7		1EB9 0302
+1EC8		0049 0309
+1EC9		0069 0309
+1ECA		0049 0323
+1ECB		0069 0323
+1ECC		004F 0323
+1ECD		006F 0323
+1ECE		004F 0309
+1ECF		006F 0309
+1ED0		00D4 0301
+1ED1		00F4 0301
+1ED2		00D4 0300
+1ED3		00F4 0300
+1ED4		00D4 0309
+1ED5		00F4 0309
+1ED6		00D4 0303
+1ED7		00F4 0303
+1ED8		1ECC 0302
+1ED9		1ECD 0302
+1EDA		01A0 0301
+1EDB		01A1 0301
+1EDC		01A0 0300
+1EDD		01A1 0300
+1EDE		01A0 0309
+1EDF		01A1 0309
+1EE0		01A0 0303
+1EE1		01A1 0303
+1EE2		01A0 0323
+1EE3		01A1 0323
+1EE4		0055 0323
+1EE5		0075 0323
+1EE6		0055 0309
+1EE7		0075 0309
+1EE8		01AF 0301
+1EE9		01B0 0301
+1EEA		01AF 0300
+1EEB		01B0 0300
+1EEC		01AF 0309
+1EED		01B0 0309
+1EEE		01AF 0303
+1EEF		01B0 0303
+1EF0		01AF 0323
+1EF1		01B0 0323
+1EF2		0059 0300
+1EF3		0079 0300
+1EF4		0059 0323
+1EF5		0079 0323
+1EF6		0059 0309
+1EF7		0079 0309
+1EF8		0059 0303
+1EF9		0079 0303
+1F00		03B1 0313
+1F01		03B1 0314
+1F02		1F00 0300
+1F03		1F01 0300
+1F04		1F00 0301
+1F05		1F01 0301
+1F06		1F00 0342
+1F07		1F01 0342
+1F08		0391 0313
+1F09		0391 0314
+1F0A		1F08 0300
+1F0B		1F09 0300
+1F0C		1F08 0301
+1F0D		1F09 0301
+1F0E		1F08 0342
+1F0F		1F09 0342
+1F10		03B5 0313
+1F11		03B5 0314
+1F12		1F10 0300
+1F13		1F11 0300
+1F14		1F10 0301
+1F15		1F11 0301
+1F18		0395 0313
+1F19		0395 0314
+1F1A		1F18 0300
+1F1B		1F19 0300
+1F1C		1F18 0301
+1F1D		1F19 0301
+1F20		03B7 0313
+1F21		03B7 0314
+1F22		1F20 0300
+1F23		1F21 0300
+1F24		1F20 0301
+1F25		1F21 0301
+1F26		1F20 0342
+1F27		1F21 0342
+1F28		0397 0313
+1F29		0397 0314
+1F2A		1F28 0300
+1F2B		1F29 0300
+1F2C		1F28 0301
+1F2D		1F29 0301
+1F2E		1F28 0342
+1F2F		1F29 0342
+1F30		03B9 0313
+1F31		03B9 0314
+1F32		1F30 0300
+1F33		1F31 0300
+1F34		1F30 0301
+1F35		1F31 0301
+1F36		1F30 0342
+1F37		1F31 0342
+1F38		0399 0313
+1F39		0399 0314
+1F3A		1F38 0300
+1F3B		1F39 0300
+1F3C		1F38 0301
+1F3D		1F39 0301
+1F3E		1F38 0342
+1F3F		1F39 0342
+1F40		03BF 0313
+1F41		03BF 0314
+1F42		1F40 0300
+1F43		1F41 0300
+1F44		1F40 0301
+1F45		1F41 0301
+1F48		039F 0313
+1F49		039F 0314
+1F4A		1F48 0300
+1F4B		1F49 0300
+1F4C		1F48 0301
+1F4D		1F49 0301
+1F50		03C5 0313
+1F51		03C5 0314
+1F52		1F50 0300
+1F53		1F51 0300
+1F54		1F50 0301
+1F55		1F51 0301
+1F56		1F50 0342
+1F57		1F51 0342
+1F59		03A5 0314
+1F5B		1F59 0300
+1F5D		1F59 0301
+1F5F		1F59 0342
+1F60		03C9 0313
+1F61		03C9 0314
+1F62		1F60 0300
+1F63		1F61 0300
+1F64		1F60 0301
+1F65		1F61 0301
+1F66		1F60 0342
+1F67		1F61 0342
+1F68		03A9 0313
+1F69		03A9 0314
+1F6A		1F68 0300
+1F6B		1F69 0300
+1F6C		1F68 0301
+1F6D		1F69 0301
+1F6E		1F68 0342
+1F6F		1F69 0342
+1F70		03B1 0300
+1F71		03AC
+1F72		03B5 0300
+1F73		03AD
+1F74		03B7 0300
+1F75		03AE
+1F76		03B9 0300
+1F77		03AF
+1F78		03BF 0300
+1F79		03CC
+1F7A		03C5 0300
+1F7B		03CD
+1F7C		03C9 0300
+1F7D		03CE
+1F80		1F00 0345
+1F81		1F01 0345
+1F82		1F02 0345
+1F83		1F03 0345
+1F84		1F04 0345
+1F85		1F05 0345
+1F86		1F06 0345
+1F87		1F07 0345
+1F88		1F08 0345
+1F89		1F09 0345
+1F8A		1F0A 0345
+1F8B		1F0B 0345
+1F8C		1F0C 0345
+1F8D		1F0D 0345
+1F8E		1F0E 0345
+1F8F		1F0F 0345
+1F90		1F20 0345
+1F91		1F21 0345
+1F92		1F22 0345
+1F93		1F23 0345
+1F94		1F24 0345
+1F95		1F25 0345
+1F96		1F26 0345
+1F97		1F27 0345
+1F98		1F28 0345
+1F99		1F29 0345
+1F9A		1F2A 0345
+1F9B		1F2B 0345
+1F9C		1F2C 0345
+1F9D		1F2D 0345
+1F9E		1F2E 0345
+1F9F		1F2F 0345
+1FA0		1F60 0345
+1FA1		1F61 0345
+1FA2		1F62 0345
+1FA3		1F63 0345
+1FA4		1F64 0345
+1FA5		1F65 0345
+1FA6		1F66 0345
+1FA7		1F67 0345
+1FA8		1F68 0345
+1FA9		1F69 0345
+1FAA		1F6A 0345
+1FAB		1F6B 0345
+1FAC		1F6C 0345
+1FAD		1F6D 0345
+1FAE		1F6E 0345
+1FAF		1F6F 0345
+1FB0		03B1 0306
+1FB1		03B1 0304
+1FB2		1F70 0345
+1FB3		03B1 0345
+1FB4		03AC 0345
+1FB6		03B1 0342
+1FB7		1FB6 0345
+1FB8		0391 0306
+1FB9		0391 0304
+1FBA		0391 0300
+1FBB		0386
+1FBC		0391 0345
+1FBD		<compat> 0020 0313
+1FBE		03B9
+1FBF		<compat> 0020 0313
+1FC0		<compat> 0020 0342
+1FC1		00A8 0342
+1FC2		1F74 0345
+1FC3		03B7 0345
+1FC4		03AE 0345
+1FC6		03B7 0342
+1FC7		1FC6 0345
+1FC8		0395 0300
+1FC9		0388
+1FCA		0397 0300
+1FCB		0389
+1FCC		0397 0345
+1FCD		1FBF 0300
+1FCE		1FBF 0301
+1FCF		1FBF 0342
+1FD0		03B9 0306
+1FD1		03B9 0304
+1FD2		03CA 0300
+1FD3		0390
+1FD6		03B9 0342
+1FD7		03CA 0342
+1FD8		0399 0306
+1FD9		0399 0304
+1FDA		0399 0300
+1FDB		038A
+1FDD		1FFE 0300
+1FDE		1FFE 0301
+1FDF		1FFE 0342
+1FE0		03C5 0306
+1FE1		03C5 0304
+1FE2		03CB 0300
+1FE3		03B0
+1FE4		03C1 0313
+1FE5		03C1 0314
+1FE6		03C5 0342
+1FE7		03CB 0342
+1FE8		03A5 0306
+1FE9		03A5 0304
+1FEA		03A5 0300
+1FEB		038E
+1FEC		03A1 0314
+1FED		00A8 0300
+1FEE		0385
+1FEF		0060
+1FF2		1F7C 0345
+1FF3		03C9 0345
+1FF4		03CE 0345
+1FF6		03C9 0342
+1FF7		1FF6 0345
+1FF8		039F 0300
+1FF9		038C
+1FFA		03A9 0300
+1FFB		038F
+1FFC		03A9 0345
+1FFD		00B4
+1FFE		<compat> 0020 0314
+2000		2002
+2001		2003
+2002	2006	<compat> 0020
+2007		<noBreak> 0020
+2008	200A	<compat> 0020
+2011		<noBreak> 2010
+2017		<compat> 0020 0333
+2024		<compat> 002E
+2025		<compat> 002E 002E
+2026		<compat> 002E 002E 002E
+202F		<noBreak> 0020
+2033		<compat> 2032 2032
+2034		<compat> 2032 2032 2032
+2036		<compat> 2035 2035
+2037		<compat> 2035 2035 2035
+203C		<compat> 0021 0021
+203E		<compat> 0020 0305
+2047		<compat> 003F 003F
+2048		<compat> 003F 0021
+2049		<compat> 0021 003F
+2057		<compat> 2032 2032 2032 2032
+205F		<compat> 0020
+2070		<super> 0030
+2071		<super> 0069
+2074		<super> 0034
+2075		<super> 0035
+2076		<super> 0036
+2077		<super> 0037
+2078		<super> 0038
+2079		<super> 0039
+207A		<super> 002B
+207B		<super> 2212
+207C		<super> 003D
+207D		<super> 0028
+207E		<super> 0029
+207F		<super> 006E
+2080		<sub> 0030
+2081		<sub> 0031
+2082		<sub> 0032
+2083		<sub> 0033
+2084		<sub> 0034
+2085		<sub> 0035
+2086		<sub> 0036
+2087		<sub> 0037
+2088		<sub> 0038
+2089		<sub> 0039
+208A		<sub> 002B
+208B		<sub> 2212
+208C		<sub> 003D
+208D		<sub> 0028
+208E		<sub> 0029
+2090		<sub> 0061
+2091		<sub> 0065
+2092		<sub> 006F
+2093		<sub> 0078
+2094		<sub> 0259
+2095		<sub> 0068
+2096		<sub> 006B
+2097		<sub> 006C
+2098		<sub> 006D
+2099		<sub> 006E
+209A		<sub> 0070
+209B		<sub> 0073
+209C		<sub> 0074
+20A8		<compat> 0052 0073
+2100		<compat> 0061 002F 0063
+2101		<compat> 0061 002F 0073
+2102		<font> 0043
+2103		<compat> 00B0 0043
+2105		<compat> 0063 002F 006F
+2106		<compat> 0063 002F 0075
+2107		<compat> 0190
+2109		<compat> 00B0 0046
+210A		<font> 0067
+210B	210D	<font> 0048
+210E		<font> 0068
+210F		<font> 0127
+2110	2111	<font> 0049
+2112		<font> 004C
+2113		<font> 006C
+2115		<font> 004E
+2116		<compat> 004E 006F
+2119		<font> 0050
+211A		<font> 0051
+211B	211D	<font> 0052
+2120		<super> 0053 004D
+2121		<compat> 0054 0045 004C
+2122		<super> 0054 004D
+2124		<font> 005A
+2126		03A9
+2128		<font> 005A
+212A		004B
+212B		00C5
+212C		<font> 0042
+212D		<font> 0043
+212F		<font> 0065
+2130		<font> 0045
+2131		<font> 0046
+2133		<font> 004D
+2134		<font> 006F
+2135		<compat> 05D0
+2136		<compat> 05D1
+2137		<compat> 05D2
+2138		<compat> 05D3
+2139		<font> 0069
+213B		<compat> 0046 0041 0058
+213C		<font> 03C0
+213D		<font> 03B3
+213E		<font> 0393
+213F		<font> 03A0
+2140		<font> 2211
+2145		<font> 0044
+2146		<font> 0064
+2147		<font> 0065
+2148		<font> 0069
+2149		<font> 006A
+2150		<fraction> 0031 2044 0037
+2151		<fraction> 0031 2044 0039
+2152		<fraction> 0031 2044 0031 0030
+2153		<fraction> 0031 2044 0033
+2154		<fraction> 0032 2044 0033
+2155		<fraction> 0031 2044 0035
+2156		<fraction> 0032 2044 0035
+2157		<fraction> 0033 2044 0035
+2158		<fraction> 0034 2044 0035
+2159		<fraction> 0031 2044 0036
+215A		<fraction> 0035 2044 0036
+215B		<fraction> 0031 2044 0038
+215C		<fraction> 0033 2044 0038
+215D		<fraction> 0035 2044 0038
+215E		<fraction> 0037 2044 0038
+215F		<fraction> 0031 2044
+2160		<compat> 0049
+2161		<compat> 0049 0049
+2162		<compat> 0049 0049 0049
+2163		<compat> 0049 0056
+2164		<compat> 0056
+2165		<compat> 0056 0049
+2166		<compat> 0056 0049 0049
+2167		<compat> 0056 0049 0049 0049
+2168		<compat> 0049 0058
+2169		<compat> 0058
+216A		<compat> 0058 0049
+216B		<compat> 0058 0049 0049
+216C		<compat> 004C
+216D		<compat> 0043
+216E		<compat> 0044
+216F		<compat> 004D
+2170		<compat> 0069
+2171		<compat> 0069 0069
+2172		<compat> 0069 0069 0069
+2173		<compat> 0069 0076
+2174		<compat> 0076
+2175		<compat> 0076 0069
+2176		<compat> 0076 0069 0069
+2177		<compat> 0076 0069 0069 0069
+2178		<compat> 0069 0078
+2179		<compat> 0078
+217A		<compat> 0078 0069
+217B		<compat> 0078 0069 0069
+217C		<compat> 006C
+217D		<compat> 0063
+217E		<compat> 0064
+217F		<compat> 006D
+2189		<fraction> 0030 2044 0033
+219A		2190 0338
+219B		2192 0338
+21AE		2194 0338
+21CD		21D0 0338
+21CE		21D4 0338
+21CF		21D2 0338
+2204		2203 0338
+2209		2208 0338
+220C		220B 0338
+2224		2223 0338
+2226		2225 0338
+222C		<compat> 222B 222B
+222D		<compat> 222B 222B 222B
+222F		<compat> 222E 222E
+2230		<compat> 222E 222E 222E
+2241		223C 0338
+2244		2243 0338
+2247		2245 0338
+2249		2248 0338
+2260		003D 0338
+2262		2261 0338
+226D		224D 0338
+226E		003C 0338
+226F		003E 0338
+2270		2264 0338
+2271		2265 0338
+2274		2272 0338
+2275		2273 0338
+2278		2276 0338
+2279		2277 0338
+2280		227A 0338
+2281		227B 0338
+2284		2282 0338
+2285		2283 0338
+2288		2286 0338
+2289		2287 0338
+22AC		22A2 0338
+22AD		22A8 0338
+22AE		22A9 0338
+22AF		22AB 0338
+22E0		227C 0338
+22E1		227D 0338
+22E2		2291 0338
+22E3		2292 0338
+22EA		22B2 0338
+22EB		22B3 0338
+22EC		22B4 0338
+22ED		22B5 0338
+2329		3008
+232A		3009
+2460		<circle> 0031
+2461		<circle> 0032
+2462		<circle> 0033
+2463		<circle> 0034
+2464		<circle> 0035
+2465		<circle> 0036
+2466		<circle> 0037
+2467		<circle> 0038
+2468		<circle> 0039
+2469		<circle> 0031 0030
+246A		<circle> 0031 0031
+246B		<circle> 0031 0032
+246C		<circle> 0031 0033
+246D		<circle> 0031 0034
+246E		<circle> 0031 0035
+246F		<circle> 0031 0036
+2470		<circle> 0031 0037
+2471		<circle> 0031 0038
+2472		<circle> 0031 0039
+2473		<circle> 0032 0030
+2474		<compat> 0028 0031 0029
+2475		<compat> 0028 0032 0029
+2476		<compat> 0028 0033 0029
+2477		<compat> 0028 0034 0029
+2478		<compat> 0028 0035 0029
+2479		<compat> 0028 0036 0029
+247A		<compat> 0028 0037 0029
+247B		<compat> 0028 0038 0029
+247C		<compat> 0028 0039 0029
+247D		<compat> 0028 0031 0030 0029
+247E		<compat> 0028 0031 0031 0029
+247F		<compat> 0028 0031 0032 0029
+2480		<compat> 0028 0031 0033 0029
+2481		<compat> 0028 0031 0034 0029
+2482		<compat> 0028 0031 0035 0029
+2483		<compat> 0028 0031 0036 0029
+2484		<compat> 0028 0031 0037 0029
+2485		<compat> 0028 0031 0038 0029
+2486		<compat> 0028 0031 0039 0029
+2487		<compat> 0028 0032 0030 0029
+2488		<compat> 0031 002E
+2489		<compat> 0032 002E
+248A		<compat> 0033 002E
+248B		<compat> 0034 002E
+248C		<compat> 0035 002E
+248D		<compat> 0036 002E
+248E		<compat> 0037 002E
+248F		<compat> 0038 002E
+2490		<compat> 0039 002E
+2491		<compat> 0031 0030 002E
+2492		<compat> 0031 0031 002E
+2493		<compat> 0031 0032 002E
+2494		<compat> 0031 0033 002E
+2495		<compat> 0031 0034 002E
+2496		<compat> 0031 0035 002E
+2497		<compat> 0031 0036 002E
+2498		<compat> 0031 0037 002E
+2499		<compat> 0031 0038 002E
+249A		<compat> 0031 0039 002E
+249B		<compat> 0032 0030 002E
+249C		<compat> 0028 0061 0029
+249D		<compat> 0028 0062 0029
+249E		<compat> 0028 0063 0029
+249F		<compat> 0028 0064 0029
+24A0		<compat> 0028 0065 0029
+24A1		<compat> 0028 0066 0029
+24A2		<compat> 0028 0067 0029
+24A3		<compat> 0028 0068 0029
+24A4		<compat> 0028 0069 0029
+24A5		<compat> 0028 006A 0029
+24A6		<compat> 0028 006B 0029
+24A7		<compat> 0028 006C 0029
+24A8		<compat> 0028 006D 0029
+24A9		<compat> 0028 006E 0029
+24AA		<compat> 0028 006F 0029
+24AB		<compat> 0028 0070 0029
+24AC		<compat> 0028 0071 0029
+24AD		<compat> 0028 0072 0029
+24AE		<compat> 0028 0073 0029
+24AF		<compat> 0028 0074 0029
+24B0		<compat> 0028 0075 0029
+24B1		<compat> 0028 0076 0029
+24B2		<compat> 0028 0077 0029
+24B3		<compat> 0028 0078 0029
+24B4		<compat> 0028 0079 0029
+24B5		<compat> 0028 007A 0029
+24B6		<circle> 0041
+24B7		<circle> 0042
+24B8		<circle> 0043
+24B9		<circle> 0044
+24BA		<circle> 0045
+24BB		<circle> 0046
+24BC		<circle> 0047
+24BD		<circle> 0048
+24BE		<circle> 0049
+24BF		<circle> 004A
+24C0		<circle> 004B
+24C1		<circle> 004C
+24C2		<circle> 004D
+24C3		<circle> 004E
+24C4		<circle> 004F
+24C5		<circle> 0050
+24C6		<circle> 0051
+24C7		<circle> 0052
+24C8		<circle> 0053
+24C9		<circle> 0054
+24CA		<circle> 0055
+24CB		<circle> 0056
+24CC		<circle> 0057
+24CD		<circle> 0058
+24CE		<circle> 0059
+24CF		<circle> 005A
+24D0		<circle> 0061
+24D1		<circle> 0062
+24D2		<circle> 0063
+24D3		<circle> 0064
+24D4		<circle> 0065
+24D5		<circle> 0066
+24D6		<circle> 0067
+24D7		<circle> 0068
+24D8		<circle> 0069
+24D9		<circle> 006A
+24DA		<circle> 006B
+24DB		<circle> 006C
+24DC		<circle> 006D
+24DD		<circle> 006E
+24DE		<circle> 006F
+24DF		<circle> 0070
+24E0		<circle> 0071
+24E1		<circle> 0072
+24E2		<circle> 0073
+24E3		<circle> 0074
+24E4		<circle> 0075
+24E5		<circle> 0076
+24E6		<circle> 0077
+24E7		<circle> 0078
+24E8		<circle> 0079
+24E9		<circle> 007A
+24EA		<circle> 0030
+2A0C		<compat> 222B 222B 222B 222B
+2A74		<compat> 003A 003A 003D
+2A75		<compat> 003D 003D
+2A76		<compat> 003D 003D 003D
+2ADC		2ADD 0338
+2C7C		<sub> 006A
+2C7D		<super> 0056
+2D6F		<super> 2D61
+2E9F		<compat> 6BCD
+2EF3		<compat> 9F9F
+2F00		<compat> 4E00
+2F01		<compat> 4E28
+2F02		<compat> 4E36
+2F03		<compat> 4E3F
+2F04		<compat> 4E59
+2F05		<compat> 4E85
+2F06		<compat> 4E8C
+2F07		<compat> 4EA0
+2F08		<compat> 4EBA
+2F09		<compat> 513F
+2F0A		<compat> 5165
+2F0B		<compat> 516B
+2F0C		<compat> 5182
+2F0D		<compat> 5196
+2F0E		<compat> 51AB
+2F0F		<compat> 51E0
+2F10		<compat> 51F5
+2F11		<compat> 5200
+2F12		<compat> 529B
+2F13		<compat> 52F9
+2F14		<compat> 5315
+2F15		<compat> 531A
+2F16		<compat> 5338
+2F17		<compat> 5341
+2F18		<compat> 535C
+2F19		<compat> 5369
+2F1A		<compat> 5382
+2F1B		<compat> 53B6
+2F1C		<compat> 53C8
+2F1D		<compat> 53E3
+2F1E		<compat> 56D7
+2F1F		<compat> 571F
+2F20		<compat> 58EB
+2F21		<compat> 5902
+2F22		<compat> 590A
+2F23		<compat> 5915
+2F24		<compat> 5927
+2F25		<compat> 5973
+2F26		<compat> 5B50
+2F27		<compat> 5B80
+2F28		<compat> 5BF8
+2F29		<compat> 5C0F
+2F2A		<compat> 5C22
+2F2B		<compat> 5C38
+2F2C		<compat> 5C6E
+2F2D		<compat> 5C71
+2F2E		<compat> 5DDB
+2F2F		<compat> 5DE5
+2F30		<compat> 5DF1
+2F31		<compat> 5DFE
+2F32		<compat> 5E72
+2F33		<compat> 5E7A
+2F34		<compat> 5E7F
+2F35		<compat> 5EF4
+2F36		<compat> 5EFE
+2F37		<compat> 5F0B
+2F38		<compat> 5F13
+2F39		<compat> 5F50
+2F3A		<compat> 5F61
+2F3B		<compat> 5F73
+2F3C		<compat> 5FC3
+2F3D		<compat> 6208
+2F3E		<compat> 6236
+2F3F		<compat> 624B
+2F40		<compat> 652F
+2F41		<compat> 6534
+2F42		<compat> 6587
+2F43		<compat> 6597
+2F44		<compat> 65A4
+2F45		<compat> 65B9
+2F46		<compat> 65E0
+2F47		<compat> 65E5
+2F48		<compat> 66F0
+2F49		<compat> 6708
+2F4A		<compat> 6728
+2F4B		<compat> 6B20
+2F4C		<compat> 6B62
+2F4D		<compat> 6B79
+2F4E		<compat> 6BB3
+2F4F		<compat> 6BCB
+2F50		<compat> 6BD4
+2F51		<compat> 6BDB
+2F52		<compat> 6C0F
+2F53		<compat> 6C14
+2F54		<compat> 6C34
+2F55		<compat> 706B
+2F56		<compat> 722A
+2F57		<compat> 7236
+2F58		<compat> 723B
+2F59		<compat> 723F
+2F5A		<compat> 7247
+2F5B		<compat> 7259
+2F5C		<compat> 725B
+2F5D		<compat> 72AC
+2F5E		<compat> 7384
+2F5F		<compat> 7389
+2F60		<compat> 74DC
+2F61		<compat> 74E6
+2F62		<compat> 7518
+2F63		<compat> 751F
+2F64		<compat> 7528
+2F65		<compat> 7530
+2F66		<compat> 758B
+2F67		<compat> 7592
+2F68		<compat> 7676
+2F69		<compat> 767D
+2F6A		<compat> 76AE
+2F6B		<compat> 76BF
+2F6C		<compat> 76EE
+2F6D		<compat> 77DB
+2F6E		<compat> 77E2
+2F6F		<compat> 77F3
+2F70		<compat> 793A
+2F71		<compat> 79B8
+2F72		<compat> 79BE
+2F73		<compat> 7A74
+2F74		<compat> 7ACB
+2F75		<compat> 7AF9
+2F76		<compat> 7C73
+2F77		<compat> 7CF8
+2F78		<compat> 7F36
+2F79		<compat> 7F51
+2F7A		<compat> 7F8A
+2F7B		<compat> 7FBD
+2F7C		<compat> 8001
+2F7D		<compat> 800C
+2F7E		<compat> 8012
+2F7F		<compat> 8033
+2F80		<compat> 807F
+2F81		<compat> 8089
+2F82		<compat> 81E3
+2F83		<compat> 81EA
+2F84		<compat> 81F3
+2F85		<compat> 81FC
+2F86		<compat> 820C
+2F87		<compat> 821B
+2F88		<compat> 821F
+2F89		<compat> 826E
+2F8A		<compat> 8272
+2F8B		<compat> 8278
+2F8C		<compat> 864D
+2F8D		<compat> 866B
+2F8E		<compat> 8840
+2F8F		<compat> 884C
+2F90		<compat> 8863
+2F91		<compat> 897E
+2F92		<compat> 898B
+2F93		<compat> 89D2
+2F94		<compat> 8A00
+2F95		<compat> 8C37
+2F96		<compat> 8C46
+2F97		<compat> 8C55
+2F98		<compat> 8C78
+2F99		<compat> 8C9D
+2F9A		<compat> 8D64
+2F9B		<compat> 8D70
+2F9C		<compat> 8DB3
+2F9D		<compat> 8EAB
+2F9E		<compat> 8ECA
+2F9F		<compat> 8F9B
+2FA0		<compat> 8FB0
+2FA1		<compat> 8FB5
+2FA2		<compat> 9091
+2FA3		<compat> 9149
+2FA4		<compat> 91C6
+2FA5		<compat> 91CC
+2FA6		<compat> 91D1
+2FA7		<compat> 9577
+2FA8		<compat> 9580
+2FA9		<compat> 961C
+2FAA		<compat> 96B6
+2FAB		<compat> 96B9
+2FAC		<compat> 96E8
+2FAD		<compat> 9751
+2FAE		<compat> 975E
+2FAF		<compat> 9762
+2FB0		<compat> 9769
+2FB1		<compat> 97CB
+2FB2		<compat> 97ED
+2FB3		<compat> 97F3
+2FB4		<compat> 9801
+2FB5		<compat> 98A8
+2FB6		<compat> 98DB
+2FB7		<compat> 98DF
+2FB8		<compat> 9996
+2FB9		<compat> 9999
+2FBA		<compat> 99AC
+2FBB		<compat> 9AA8
+2FBC		<compat> 9AD8
+2FBD		<compat> 9ADF
+2FBE		<compat> 9B25
+2FBF		<compat> 9B2F
+2FC0		<compat> 9B32
+2FC1		<compat> 9B3C
+2FC2		<compat> 9B5A
+2FC3		<compat> 9CE5
+2FC4		<compat> 9E75
+2FC5		<compat> 9E7F
+2FC6		<compat> 9EA5
+2FC7		<compat> 9EBB
+2FC8		<compat> 9EC3
+2FC9		<compat> 9ECD
+2FCA		<compat> 9ED1
+2FCB		<compat> 9EF9
+2FCC		<compat> 9EFD
+2FCD		<compat> 9F0E
+2FCE		<compat> 9F13
+2FCF		<compat> 9F20
+2FD0		<compat> 9F3B
+2FD1		<compat> 9F4A
+2FD2		<compat> 9F52
+2FD3		<compat> 9F8D
+2FD4		<compat> 9F9C
+2FD5		<compat> 9FA0
+3000		<wide> 0020
+3036		<compat> 3012
+3038		<compat> 5341
+3039		<compat> 5344
+303A		<compat> 5345
+304C		304B 3099
+304E		304D 3099
+3050		304F 3099
+3052		3051 3099
+3054		3053 3099
+3056		3055 3099
+3058		3057 3099
+305A		3059 3099
+305C		305B 3099
+305E		305D 3099
+3060		305F 3099
+3062		3061 3099
+3065		3064 3099
+3067		3066 3099
+3069		3068 3099
+3070		306F 3099
+3071		306F 309A
+3073		3072 3099
+3074		3072 309A
+3076		3075 3099
+3077		3075 309A
+3079		3078 3099
+307A		3078 309A
+307C		307B 3099
+307D		307B 309A
+3094		3046 3099
+309B		<compat> 0020 3099
+309C		<compat> 0020 309A
+309E		309D 3099
+309F		<vertical> 3088 308A
+30AC		30AB 3099
+30AE		30AD 3099
+30B0		30AF 3099
+30B2		30B1 3099
+30B4		30B3 3099
+30B6		30B5 3099
+30B8		30B7 3099
+30BA		30B9 3099
+30BC		30BB 3099
+30BE		30BD 3099
+30C0		30BF 3099
+30C2		30C1 3099
+30C5		30C4 3099
+30C7		30C6 3099
+30C9		30C8 3099
+30D0		30CF 3099
+30D1		30CF 309A
+30D3		30D2 3099
+30D4		30D2 309A
+30D6		30D5 3099
+30D7		30D5 309A
+30D9		30D8 3099
+30DA		30D8 309A
+30DC		30DB 3099
+30DD		30DB 309A
+30F4		30A6 3099
+30F7		30EF 3099
+30F8		30F0 3099
+30F9		30F1 3099
+30FA		30F2 3099
+30FE		30FD 3099
+30FF		<vertical> 30B3 30C8
+3131		<compat> 1100
+3132		<compat> 1101
+3133		<compat> 11AA
+3134		<compat> 1102
+3135		<compat> 11AC
+3136		<compat> 11AD
+3137		<compat> 1103
+3138		<compat> 1104
+3139		<compat> 1105
+313A		<compat> 11B0
+313B		<compat> 11B1
+313C		<compat> 11B2
+313D		<compat> 11B3
+313E		<compat> 11B4
+313F		<compat> 11B5
+3140		<compat> 111A
+3141		<compat> 1106
+3142		<compat> 1107
+3143		<compat> 1108
+3144		<compat> 1121
+3145		<compat> 1109
+3146		<compat> 110A
+3147		<compat> 110B
+3148		<compat> 110C
+3149		<compat> 110D
+314A		<compat> 110E
+314B		<compat> 110F
+314C		<compat> 1110
+314D		<compat> 1111
+314E		<compat> 1112
+314F		<compat> 1161
+3150		<compat> 1162
+3151		<compat> 1163
+3152		<compat> 1164
+3153		<compat> 1165
+3154		<compat> 1166
+3155		<compat> 1167
+3156		<compat> 1168
+3157		<compat> 1169
+3158		<compat> 116A
+3159		<compat> 116B
+315A		<compat> 116C
+315B		<compat> 116D
+315C		<compat> 116E
+315D		<compat> 116F
+315E		<compat> 1170
+315F		<compat> 1171
+3160		<compat> 1172
+3161		<compat> 1173
+3162		<compat> 1174
+3163		<compat> 1175
+3164		<compat> 1160
+3165		<compat> 1114
+3166		<compat> 1115
+3167		<compat> 11C7
+3168		<compat> 11C8
+3169		<compat> 11CC
+316A		<compat> 11CE
+316B		<compat> 11D3
+316C		<compat> 11D7
+316D		<compat> 11D9
+316E		<compat> 111C
+316F		<compat> 11DD
+3170		<compat> 11DF
+3171		<compat> 111D
+3172		<compat> 111E
+3173		<compat> 1120
+3174		<compat> 1122
+3175		<compat> 1123
+3176		<compat> 1127
+3177		<compat> 1129
+3178		<compat> 112B
+3179		<compat> 112C
+317A		<compat> 112D
+317B		<compat> 112E
+317C		<compat> 112F
+317D		<compat> 1132
+317E		<compat> 1136
+317F		<compat> 1140
+3180		<compat> 1147
+3181		<compat> 114C
+3182		<compat> 11F1
+3183		<compat> 11F2
+3184		<compat> 1157
+3185		<compat> 1158
+3186		<compat> 1159
+3187		<compat> 1184
+3188		<compat> 1185
+3189		<compat> 1188
+318A		<compat> 1191
+318B		<compat> 1192
+318C		<compat> 1194
+318D		<compat> 119E
+318E		<compat> 11A1
+3192		<super> 4E00
+3193		<super> 4E8C
+3194		<super> 4E09
+3195		<super> 56DB
+3196		<super> 4E0A
+3197		<super> 4E2D
+3198		<super> 4E0B
+3199		<super> 7532
+319A		<super> 4E59
+319B		<super> 4E19
+319C		<super> 4E01
+319D		<super> 5929
+319E		<super> 5730
+319F		<super> 4EBA
+3200		<compat> 0028 1100 0029
+3201		<compat> 0028 1102 0029
+3202		<compat> 0028 1103 0029
+3203		<compat> 0028 1105 0029
+3204		<compat> 0028 1106 0029
+3205		<compat> 0028 1107 0029
+3206		<compat> 0028 1109 0029
+3207		<compat> 0028 110B 0029
+3208		<compat> 0028 110C 0029
+3209		<compat> 0028 110E 0029
+320A		<compat> 0028 110F 0029
+320B		<compat> 0028 1110 0029
+320C		<compat> 0028 1111 0029
+320D		<compat> 0028 1112 0029
+320E		<compat> 0028 1100 1161 0029
+320F		<compat> 0028 1102 1161 0029
+3210		<compat> 0028 1103 1161 0029
+3211		<compat> 0028 1105 1161 0029
+3212		<compat> 0028 1106 1161 0029
+3213		<compat> 0028 1107 1161 0029
+3214		<compat> 0028 1109 1161 0029
+3215		<compat> 0028 110B 1161 0029
+3216		<compat> 0028 110C 1161 0029
+3217		<compat> 0028 110E 1161 0029
+3218		<compat> 0028 110F 1161 0029
+3219		<compat> 0028 1110 1161 0029
+321A		<compat> 0028 1111 1161 0029
+321B		<compat> 0028 1112 1161 0029
+321C		<compat> 0028 110C 116E 0029
+321D		<compat> 0028 110B 1169 110C 1165 11AB 0029
+321E		<compat> 0028 110B 1169 1112 116E 0029
+3220		<compat> 0028 4E00 0029
+3221		<compat> 0028 4E8C 0029
+3222		<compat> 0028 4E09 0029
+3223		<compat> 0028 56DB 0029
+3224		<compat> 0028 4E94 0029
+3225		<compat> 0028 516D 0029
+3226		<compat> 0028 4E03 0029
+3227		<compat> 0028 516B 0029
+3228		<compat> 0028 4E5D 0029
+3229		<compat> 0028 5341 0029
+322A		<compat> 0028 6708 0029
+322B		<compat> 0028 706B 0029
+322C		<compat> 0028 6C34 0029
+322D		<compat> 0028 6728 0029
+322E		<compat> 0028 91D1 0029
+322F		<compat> 0028 571F 0029
+3230		<compat> 0028 65E5 0029
+3231		<compat> 0028 682A 0029
+3232		<compat> 0028 6709 0029
+3233		<compat> 0028 793E 0029
+3234		<compat> 0028 540D 0029
+3235		<compat> 0028 7279 0029
+3236		<compat> 0028 8CA1 0029
+3237		<compat> 0028 795D 0029
+3238		<compat> 0028 52B4 0029
+3239		<compat> 0028 4EE3 0029
+323A		<compat> 0028 547C 0029
+323B		<compat> 0028 5B66 0029
+323C		<compat> 0028 76E3 0029
+323D		<compat> 0028 4F01 0029
+323E		<compat> 0028 8CC7 0029
+323F		<compat> 0028 5354 0029
+3240		<compat> 0028 796D 0029
+3241		<compat> 0028 4F11 0029
+3242		<compat> 0028 81EA 0029
+3243		<compat> 0028 81F3 0029
+3244		<circle> 554F
+3245		<circle> 5E7C
+3246		<circle> 6587
+3247		<circle> 7B8F
+3250		<square> 0050 0054 0045
+3251		<circle> 0032 0031
+3252		<circle> 0032 0032
+3253		<circle> 0032 0033
+3254		<circle> 0032 0034
+3255		<circle> 0032 0035
+3256		<circle> 0032 0036
+3257		<circle> 0032 0037
+3258		<circle> 0032 0038
+3259		<circle> 0032 0039
+325A		<circle> 0033 0030
+325B		<circle> 0033 0031
+325C		<circle> 0033 0032
+325D		<circle> 0033 0033
+325E		<circle> 0033 0034
+325F		<circle> 0033 0035
+3260		<circle> 1100
+3261		<circle> 1102
+3262		<circle> 1103
+3263		<circle> 1105
+3264		<circle> 1106
+3265		<circle> 1107
+3266		<circle> 1109
+3267		<circle> 110B
+3268		<circle> 110C
+3269		<circle> 110E
+326A		<circle> 110F
+326B		<circle> 1110
+326C		<circle> 1111
+326D		<circle> 1112
+326E		<circle> 1100 1161
+326F		<circle> 1102 1161
+3270		<circle> 1103 1161
+3271		<circle> 1105 1161
+3272		<circle> 1106 1161
+3273		<circle> 1107 1161
+3274		<circle> 1109 1161
+3275		<circle> 110B 1161
+3276		<circle> 110C 1161
+3277		<circle> 110E 1161
+3278		<circle> 110F 1161
+3279		<circle> 1110 1161
+327A		<circle> 1111 1161
+327B		<circle> 1112 1161
+327C		<circle> 110E 1161 11B7 1100 1169
+327D		<circle> 110C 116E 110B 1174
+327E		<circle> 110B 116E
+3280		<circle> 4E00
+3281		<circle> 4E8C
+3282		<circle> 4E09
+3283		<circle> 56DB
+3284		<circle> 4E94
+3285		<circle> 516D
+3286		<circle> 4E03
+3287		<circle> 516B
+3288		<circle> 4E5D
+3289		<circle> 5341
+328A		<circle> 6708
+328B		<circle> 706B
+328C		<circle> 6C34
+328D		<circle> 6728
+328E		<circle> 91D1
+328F		<circle> 571F
+3290		<circle> 65E5
+3291		<circle> 682A
+3292		<circle> 6709
+3293		<circle> 793E
+3294		<circle> 540D
+3295		<circle> 7279
+3296		<circle> 8CA1
+3297		<circle> 795D
+3298		<circle> 52B4
+3299		<circle> 79D8
+329A		<circle> 7537
+329B		<circle> 5973
+329C		<circle> 9069
+329D		<circle> 512A
+329E		<circle> 5370
+329F		<circle> 6CE8
+32A0		<circle> 9805
+32A1		<circle> 4F11
+32A2		<circle> 5199
+32A3		<circle> 6B63
+32A4		<circle> 4E0A
+32A5		<circle> 4E2D
+32A6		<circle> 4E0B
+32A7		<circle> 5DE6
+32A8		<circle> 53F3
+32A9		<circle> 533B
+32AA		<circle> 5B97
+32AB		<circle> 5B66
+32AC		<circle> 76E3
+32AD		<circle> 4F01
+32AE		<circle> 8CC7
+32AF		<circle> 5354
+32B0		<circle> 591C
+32B1		<circle> 0033 0036
+32B2		<circle> 0033 0037
+32B3		<circle> 0033 0038
+32B4		<circle> 0033 0039
+32B5		<circle> 0034 0030
+32B6		<circle> 0034 0031
+32B7		<circle> 0034 0032
+32B8		<circle> 0034 0033
+32B9		<circle> 0034 0034
+32BA		<circle> 0034 0035
+32BB		<circle> 0034 0036
+32BC		<circle> 0034 0037
+32BD		<circle> 0034 0038
+32BE		<circle> 0034 0039
+32BF		<circle> 0035 0030
+32C0		<compat> 0031 6708
+32C1		<compat> 0032 6708
+32C2		<compat> 0033 6708
+32C3		<compat> 0034 6708
+32C4		<compat> 0035 6708
+32C5		<compat> 0036 6708
+32C6		<compat> 0037 6708
+32C7		<compat> 0038 6708
+32C8		<compat> 0039 6708
+32C9		<compat> 0031 0030 6708
+32CA		<compat> 0031 0031 6708
+32CB		<compat> 0031 0032 6708
+32CC		<square> 0048 0067
+32CD		<square> 0065 0072 0067
+32CE		<square> 0065 0056
+32CF		<square> 004C 0054 0044
+32D0		<circle> 30A2
+32D1		<circle> 30A4
+32D2		<circle> 30A6
+32D3		<circle> 30A8
+32D4		<circle> 30AA
+32D5		<circle> 30AB
+32D6		<circle> 30AD
+32D7		<circle> 30AF
+32D8		<circle> 30B1
+32D9		<circle> 30B3
+32DA		<circle> 30B5
+32DB		<circle> 30B7
+32DC		<circle> 30B9
+32DD		<circle> 30BB
+32DE		<circle> 30BD
+32DF		<circle> 30BF
+32E0		<circle> 30C1
+32E1		<circle> 30C4
+32E2		<circle> 30C6
+32E3		<circle> 30C8
+32E4		<circle> 30CA
+32E5		<circle> 30CB
+32E6		<circle> 30CC
+32E7		<circle> 30CD
+32E8		<circle> 30CE
+32E9		<circle> 30CF
+32EA		<circle> 30D2
+32EB		<circle> 30D5
+32EC		<circle> 30D8
+32ED		<circle> 30DB
+32EE		<circle> 30DE
+32EF		<circle> 30DF
+32F0		<circle> 30E0
+32F1		<circle> 30E1
+32F2		<circle> 30E2
+32F3		<circle> 30E4
+32F4		<circle> 30E6
+32F5		<circle> 30E8
+32F6		<circle> 30E9
+32F7		<circle> 30EA
+32F8		<circle> 30EB
+32F9		<circle> 30EC
+32FA		<circle> 30ED
+32FB		<circle> 30EF
+32FC		<circle> 30F0
+32FD		<circle> 30F1
+32FE		<circle> 30F2
+3300		<square> 30A2 30D1 30FC 30C8
+3301		<square> 30A2 30EB 30D5 30A1
+3302		<square> 30A2 30F3 30DA 30A2
+3303		<square> 30A2 30FC 30EB
+3304		<square> 30A4 30CB 30F3 30B0
+3305		<square> 30A4 30F3 30C1
+3306		<square> 30A6 30A9 30F3
+3307		<square> 30A8 30B9 30AF 30FC 30C9
+3308		<square> 30A8 30FC 30AB 30FC
+3309		<square> 30AA 30F3 30B9
+330A		<square> 30AA 30FC 30E0
+330B		<square> 30AB 30A4 30EA
+330C		<square> 30AB 30E9 30C3 30C8
+330D		<square> 30AB 30ED 30EA 30FC
+330E		<square> 30AC 30ED 30F3
+330F		<square> 30AC 30F3 30DE
+3310		<square> 30AE 30AC
+3311		<square> 30AE 30CB 30FC
+3312		<square> 30AD 30E5 30EA 30FC
+3313		<square> 30AE 30EB 30C0 30FC
+3314		<square> 30AD 30ED
+3315		<square> 30AD 30ED 30B0 30E9 30E0
+3316		<square> 30AD 30ED 30E1 30FC 30C8 30EB
+3317		<square> 30AD 30ED 30EF 30C3 30C8
+3318		<square> 30B0 30E9 30E0
+3319		<square> 30B0 30E9 30E0 30C8 30F3
+331A		<square> 30AF 30EB 30BC 30A4 30ED
+331B		<square> 30AF 30ED 30FC 30CD
+331C		<square> 30B1 30FC 30B9
+331D		<square> 30B3 30EB 30CA
+331E		<square> 30B3 30FC 30DD
+331F		<square> 30B5 30A4 30AF 30EB
+3320		<square> 30B5 30F3 30C1 30FC 30E0
+3321		<square> 30B7 30EA 30F3 30B0
+3322		<square> 30BB 30F3 30C1
+3323		<square> 30BB 30F3 30C8
+3324		<square> 30C0 30FC 30B9
+3325		<square> 30C7 30B7
+3326		<square> 30C9 30EB
+3327		<square> 30C8 30F3
+3328		<square> 30CA 30CE
+3329		<square> 30CE 30C3 30C8
+332A		<square> 30CF 30A4 30C4
+332B		<square> 30D1 30FC 30BB 30F3 30C8
+332C		<square> 30D1 30FC 30C4
+332D		<square> 30D0 30FC 30EC 30EB
+332E		<square> 30D4 30A2 30B9 30C8 30EB
+332F		<square> 30D4 30AF 30EB
+3330		<square> 30D4 30B3
+3331		<square> 30D3 30EB
+3332		<square> 30D5 30A1 30E9 30C3 30C9
+3333		<square> 30D5 30A3 30FC 30C8
+3334		<square> 30D6 30C3 30B7 30A7 30EB
+3335		<square> 30D5 30E9 30F3
+3336		<square> 30D8 30AF 30BF 30FC 30EB
+3337		<square> 30DA 30BD
+3338		<square> 30DA 30CB 30D2
+3339		<square> 30D8 30EB 30C4
+333A		<square> 30DA 30F3 30B9
+333B		<square> 30DA 30FC 30B8
+333C		<square> 30D9 30FC 30BF
+333D		<square> 30DD 30A4 30F3 30C8
+333E		<square> 30DC 30EB 30C8
+333F		<square> 30DB 30F3
+3340		<square> 30DD 30F3 30C9
+3341		<square> 30DB 30FC 30EB
+3342		<square> 30DB 30FC 30F3
+3343		<square> 30DE 30A4 30AF 30ED
+3344		<square> 30DE 30A4 30EB
+3345		<square> 30DE 30C3 30CF
+3346		<square> 30DE 30EB 30AF
+3347		<square> 30DE 30F3 30B7 30E7 30F3
+3348		<square> 30DF 30AF 30ED 30F3
+3349		<square> 30DF 30EA
+334A		<square> 30DF 30EA 30D0 30FC 30EB
+334B		<square> 30E1 30AC
+334C		<square> 30E1 30AC 30C8 30F3
+334D		<square> 30E1 30FC 30C8 30EB
+334E		<square> 30E4 30FC 30C9
+334F		<square> 30E4 30FC 30EB
+3350		<square> 30E6 30A2 30F3
+3351		<square> 30EA 30C3 30C8 30EB
+3352		<square> 30EA 30E9
+3353		<square> 30EB 30D4 30FC
+3354		<square> 30EB 30FC 30D6 30EB
+3355		<square> 30EC 30E0
+3356		<square> 30EC 30F3 30C8 30B2 30F3
+3357		<square> 30EF 30C3 30C8
+3358		<compat> 0030 70B9
+3359		<compat> 0031 70B9
+335A		<compat> 0032 70B9
+335B		<compat> 0033 70B9
+335C		<compat> 0034 70B9
+335D		<compat> 0035 70B9
+335E		<compat> 0036 70B9
+335F		<compat> 0037 70B9
+3360		<compat> 0038 70B9
+3361		<compat> 0039 70B9
+3362		<compat> 0031 0030 70B9
+3363		<compat> 0031 0031 70B9
+3364		<compat> 0031 0032 70B9
+3365		<compat> 0031 0033 70B9
+3366		<compat> 0031 0034 70B9
+3367		<compat> 0031 0035 70B9
+3368		<compat> 0031 0036 70B9
+3369		<compat> 0031 0037 70B9
+336A		<compat> 0031 0038 70B9
+336B		<compat> 0031 0039 70B9
+336C		<compat> 0032 0030 70B9
+336D		<compat> 0032 0031 70B9
+336E		<compat> 0032 0032 70B9
+336F		<compat> 0032 0033 70B9
+3370		<compat> 0032 0034 70B9
+3371		<square> 0068 0050 0061
+3372		<square> 0064 0061
+3373		<square> 0041 0055
+3374		<square> 0062 0061 0072
+3375		<square> 006F 0056
+3376		<square> 0070 0063
+3377		<square> 0064 006D
+3378		<square> 0064 006D 00B2
+3379		<square> 0064 006D 00B3
+337A		<square> 0049 0055
+337B		<square> 5E73 6210
+337C		<square> 662D 548C
+337D		<square> 5927 6B63
+337E		<square> 660E 6CBB
+337F		<square> 682A 5F0F 4F1A 793E
+3380		<square> 0070 0041
+3381		<square> 006E 0041
+3382		<square> 03BC 0041
+3383		<square> 006D 0041
+3384		<square> 006B 0041
+3385		<square> 004B 0042
+3386		<square> 004D 0042
+3387		<square> 0047 0042
+3388		<square> 0063 0061 006C
+3389		<square> 006B 0063 0061 006C
+338A		<square> 0070 0046
+338B		<square> 006E 0046
+338C		<square> 03BC 0046
+338D		<square> 03BC 0067
+338E		<square> 006D 0067
+338F		<square> 006B 0067
+3390		<square> 0048 007A
+3391		<square> 006B 0048 007A
+3392		<square> 004D 0048 007A
+3393		<square> 0047 0048 007A
+3394		<square> 0054 0048 007A
+3395		<square> 03BC 2113
+3396		<square> 006D 2113
+3397		<square> 0064 2113
+3398		<square> 006B 2113
+3399		<square> 0066 006D
+339A		<square> 006E 006D
+339B		<square> 03BC 006D
+339C		<square> 006D 006D
+339D		<square> 0063 006D
+339E		<square> 006B 006D
+339F		<square> 006D 006D 00B2
+33A0		<square> 0063 006D 00B2
+33A1		<square> 006D 00B2
+33A2		<square> 006B 006D 00B2
+33A3		<square> 006D 006D 00B3
+33A4		<square> 0063 006D 00B3
+33A5		<square> 006D 00B3
+33A6		<square> 006B 006D 00B3
+33A7		<square> 006D 2215 0073
+33A8		<square> 006D 2215 0073 00B2
+33A9		<square> 0050 0061
+33AA		<square> 006B 0050 0061
+33AB		<square> 004D 0050 0061
+33AC		<square> 0047 0050 0061
+33AD		<square> 0072 0061 0064
+33AE		<square> 0072 0061 0064 2215 0073
+33AF		<square> 0072 0061 0064 2215 0073 00B2
+33B0		<square> 0070 0073
+33B1		<square> 006E 0073
+33B2		<square> 03BC 0073
+33B3		<square> 006D 0073
+33B4		<square> 0070 0056
+33B5		<square> 006E 0056
+33B6		<square> 03BC 0056
+33B7		<square> 006D 0056
+33B8		<square> 006B 0056
+33B9		<square> 004D 0056
+33BA		<square> 0070 0057
+33BB		<square> 006E 0057
+33BC		<square> 03BC 0057
+33BD		<square> 006D 0057
+33BE		<square> 006B 0057
+33BF		<square> 004D 0057
+33C0		<square> 006B 03A9
+33C1		<square> 004D 03A9
+33C2		<square> 0061 002E 006D 002E
+33C3		<square> 0042 0071
+33C4		<square> 0063 0063
+33C5		<square> 0063 0064
+33C6		<square> 0043 2215 006B 0067
+33C7		<square> 0043 006F 002E
+33C8		<square> 0064 0042
+33C9		<square> 0047 0079
+33CA		<square> 0068 0061
+33CB		<square> 0048 0050
+33CC		<square> 0069 006E
+33CD		<square> 004B 004B
+33CE		<square> 004B 004D
+33CF		<square> 006B 0074
+33D0		<square> 006C 006D
+33D1		<square> 006C 006E
+33D2		<square> 006C 006F 0067
+33D3		<square> 006C 0078
+33D4		<square> 006D 0062
+33D5		<square> 006D 0069 006C
+33D6		<square> 006D 006F 006C
+33D7		<square> 0050 0048
+33D8		<square> 0070 002E 006D 002E
+33D9		<square> 0050 0050 004D
+33DA		<square> 0050 0052
+33DB		<square> 0073 0072
+33DC		<square> 0053 0076
+33DD		<square> 0057 0062
+33DE		<square> 0056 2215 006D
+33DF		<square> 0041 2215 006D
+33E0		<compat> 0031 65E5
+33E1		<compat> 0032 65E5
+33E2		<compat> 0033 65E5
+33E3		<compat> 0034 65E5
+33E4		<compat> 0035 65E5
+33E5		<compat> 0036 65E5
+33E6		<compat> 0037 65E5
+33E7		<compat> 0038 65E5
+33E8		<compat> 0039 65E5
+33E9		<compat> 0031 0030 65E5
+33EA		<compat> 0031 0031 65E5
+33EB		<compat> 0031 0032 65E5
+33EC		<compat> 0031 0033 65E5
+33ED		<compat> 0031 0034 65E5
+33EE		<compat> 0031 0035 65E5
+33EF		<compat> 0031 0036 65E5
+33F0		<compat> 0031 0037 65E5
+33F1		<compat> 0031 0038 65E5
+33F2		<compat> 0031 0039 65E5
+33F3		<compat> 0032 0030 65E5
+33F4		<compat> 0032 0031 65E5
+33F5		<compat> 0032 0032 65E5
+33F6		<compat> 0032 0033 65E5
+33F7		<compat> 0032 0034 65E5
+33F8		<compat> 0032 0035 65E5
+33F9		<compat> 0032 0036 65E5
+33FA		<compat> 0032 0037 65E5
+33FB		<compat> 0032 0038 65E5
+33FC		<compat> 0032 0039 65E5
+33FD		<compat> 0033 0030 65E5
+33FE		<compat> 0033 0031 65E5
+33FF		<square> 0067 0061 006C
+A69C		<super> 044A
+A69D		<super> 044C
+A770		<super> A76F
+A7F8		<super> 0126
+A7F9		<super> 0153
+AB5C		<super> A727
+AB5D		<super> AB37
+AB5E		<super> 026B
+AB5F		<super> AB52
+F900		8C48
+F901		66F4
+F902		8ECA
+F903		8CC8
+F904		6ED1
+F905		4E32
+F906		53E5
+F907	F908	9F9C
+F909		5951
+F90A		91D1
+F90B		5587
+F90C		5948
+F90D		61F6
+F90E		7669
+F90F		7F85
+F910		863F
+F911		87BA
+F912		88F8
+F913		908F
+F914		6A02
+F915		6D1B
+F916		70D9
+F917		73DE
+F918		843D
+F919		916A
+F91A		99F1
+F91B		4E82
+F91C		5375
+F91D		6B04
+F91E		721B
+F91F		862D
+F920		9E1E
+F921		5D50
+F922		6FEB
+F923		85CD
+F924		8964
+F925		62C9
+F926		81D8
+F927		881F
+F928		5ECA
+F929		6717
+F92A		6D6A
+F92B		72FC
+F92C		90CE
+F92D		4F86
+F92E		51B7
+F92F		52DE
+F930		64C4
+F931		6AD3
+F932		7210
+F933		76E7
+F934		8001
+F935		8606
+F936		865C
+F937		8DEF
+F938		9732
+F939		9B6F
+F93A		9DFA
+F93B		788C
+F93C		797F
+F93D		7DA0
+F93E		83C9
+F93F		9304
+F940		9E7F
+F941		8AD6
+F942		58DF
+F943		5F04
+F944		7C60
+F945		807E
+F946		7262
+F947		78CA
+F948		8CC2
+F949		96F7
+F94A		58D8
+F94B		5C62
+F94C		6A13
+F94D		6DDA
+F94E		6F0F
+F94F		7D2F
+F950		7E37
+F951		964B
+F952		52D2
+F953		808B
+F954		51DC
+F955		51CC
+F956		7A1C
+F957		7DBE
+F958		83F1
+F959		9675
+F95A		8B80
+F95B		62CF
+F95C		6A02
+F95D		8AFE
+F95E		4E39
+F95F		5BE7
+F960		6012
+F961		7387
+F962		7570
+F963		5317
+F964		78FB
+F965		4FBF
+F966		5FA9
+F967		4E0D
+F968		6CCC
+F969		6578
+F96A		7D22
+F96B		53C3
+F96C		585E
+F96D		7701
+F96E		8449
+F96F		8AAA
+F970		6BBA
+F971		8FB0
+F972		6C88
+F973		62FE
+F974		82E5
+F975		63A0
+F976		7565
+F977		4EAE
+F978		5169
+F979		51C9
+F97A		6881
+F97B		7CE7
+F97C		826F
+F97D		8AD2
+F97E		91CF
+F97F		52F5
+F980		5442
+F981		5973
+F982		5EEC
+F983		65C5
+F984		6FFE
+F985		792A
+F986		95AD
+F987		9A6A
+F988		9E97
+F989		9ECE
+F98A		529B
+F98B		66C6
+F98C		6B77
+F98D		8F62
+F98E		5E74
+F98F		6190
+F990		6200
+F991		649A
+F992		6F23
+F993		7149
+F994		7489
+F995		79CA
+F996		7DF4
+F997		806F
+F998		8F26
+F999		84EE
+F99A		9023
+F99B		934A
+F99C		5217
+F99D		52A3
+F99E		54BD
+F99F		70C8
+F9A0		88C2
+F9A1		8AAA
+F9A2		5EC9
+F9A3		5FF5
+F9A4		637B
+F9A5		6BAE
+F9A6		7C3E
+F9A7		7375
+F9A8		4EE4
+F9A9		56F9
+F9AA		5BE7
+F9AB		5DBA
+F9AC		601C
+F9AD		73B2
+F9AE		7469
+F9AF		7F9A
+F9B0		8046
+F9B1		9234
+F9B2		96F6
+F9B3		9748
+F9B4		9818
+F9B5		4F8B
+F9B6		79AE
+F9B7		91B4
+F9B8		96B8
+F9B9		60E1
+F9BA		4E86
+F9BB		50DA
+F9BC		5BEE
+F9BD		5C3F
+F9BE		6599
+F9BF		6A02
+F9C0		71CE
+F9C1		7642
+F9C2		84FC
+F9C3		907C
+F9C4		9F8D
+F9C5		6688
+F9C6		962E
+F9C7		5289
+F9C8		677B
+F9C9		67F3
+F9CA		6D41
+F9CB		6E9C
+F9CC		7409
+F9CD		7559
+F9CE		786B
+F9CF		7D10
+F9D0		985E
+F9D1		516D
+F9D2		622E
+F9D3		9678
+F9D4		502B
+F9D5		5D19
+F9D6		6DEA
+F9D7		8F2A
+F9D8		5F8B
+F9D9		6144
+F9DA		6817
+F9DB		7387
+F9DC		9686
+F9DD		5229
+F9DE		540F
+F9DF		5C65
+F9E0		6613
+F9E1		674E
+F9E2		68A8
+F9E3		6CE5
+F9E4		7406
+F9E5		75E2
+F9E6		7F79
+F9E7		88CF
+F9E8		88E1
+F9E9		91CC
+F9EA		96E2
+F9EB		533F
+F9EC		6EBA
+F9ED		541D
+F9EE		71D0
+F9EF		7498
+F9F0		85FA
+F9F1		96A3
+F9F2		9C57
+F9F3		9E9F
+F9F4		6797
+F9F5		6DCB
+F9F6		81E8
+F9F7		7ACB
+F9F8		7B20
+F9F9		7C92
+F9FA		72C0
+F9FB		7099
+F9FC		8B58
+F9FD		4EC0
+F9FE		8336
+F9FF		523A
+FA00		5207
+FA01		5EA6
+FA02		62D3
+FA03		7CD6
+FA04		5B85
+FA05		6D1E
+FA06		66B4
+FA07		8F3B
+FA08		884C
+FA09		964D
+FA0A		898B
+FA0B		5ED3
+FA0C		5140
+FA0D		55C0
+FA10		585A
+FA12		6674
+FA15		51DE
+FA16		732A
+FA17		76CA
+FA18		793C
+FA19		795E
+FA1A		7965
+FA1B		798F
+FA1C		9756
+FA1D		7CBE
+FA1E		7FBD
+FA20		8612
+FA22		8AF8
+FA25		9038
+FA26		90FD
+FA2A		98EF
+FA2B		98FC
+FA2C		9928
+FA2D		9DB4
+FA2E		90DE
+FA2F		96B7
+FA30		4FAE
+FA31		50E7
+FA32		514D
+FA33		52C9
+FA34		52E4
+FA35		5351
+FA36		559D
+FA37		5606
+FA38		5668
+FA39		5840
+FA3A		58A8
+FA3B		5C64
+FA3C		5C6E
+FA3D		6094
+FA3E		6168
+FA3F		618E
+FA40		61F2
+FA41		654F
+FA42		65E2
+FA43		6691
+FA44		6885
+FA45		6D77
+FA46		6E1A
+FA47		6F22
+FA48		716E
+FA49		722B
+FA4A		7422
+FA4B		7891
+FA4C		793E
+FA4D		7949
+FA4E		7948
+FA4F		7950
+FA50		7956
+FA51		795D
+FA52		798D
+FA53		798E
+FA54		7A40
+FA55		7A81
+FA56		7BC0
+FA57		7DF4
+FA58		7E09
+FA59		7E41
+FA5A		7F72
+FA5B		8005
+FA5C		81ED
+FA5D	FA5E	8279
+FA5F		8457
+FA60		8910
+FA61		8996
+FA62		8B01
+FA63		8B39
+FA64		8CD3
+FA65		8D08
+FA66		8FB6
+FA67		9038
+FA68		96E3
+FA69		97FF
+FA6A		983B
+FA6B		6075
+FA6C		242EE
+FA6D		8218
+FA70		4E26
+FA71		51B5
+FA72		5168
+FA73		4F80
+FA74		5145
+FA75		5180
+FA76		52C7
+FA77		52FA
+FA78		559D
+FA79		5555
+FA7A		5599
+FA7B		55E2
+FA7C		585A
+FA7D		58B3
+FA7E		5944
+FA7F		5954
+FA80		5A62
+FA81		5B28
+FA82		5ED2
+FA83		5ED9
+FA84		5F69
+FA85		5FAD
+FA86		60D8
+FA87		614E
+FA88		6108
+FA89		618E
+FA8A		6160
+FA8B		61F2
+FA8C		6234
+FA8D		63C4
+FA8E		641C
+FA8F		6452
+FA90		6556
+FA91		6674
+FA92		6717
+FA93		671B
+FA94		6756
+FA95		6B79
+FA96		6BBA
+FA97		6D41
+FA98		6EDB
+FA99		6ECB
+FA9A		6F22
+FA9B		701E
+FA9C		716E
+FA9D		77A7
+FA9E		7235
+FA9F		72AF
+FAA0		732A
+FAA1		7471
+FAA2		7506
+FAA3		753B
+FAA4		761D
+FAA5		761F
+FAA6		76CA
+FAA7		76DB
+FAA8		76F4
+FAA9		774A
+FAAA		7740
+FAAB		78CC
+FAAC		7AB1
+FAAD		7BC0
+FAAE		7C7B
+FAAF		7D5B
+FAB0		7DF4
+FAB1		7F3E
+FAB2		8005
+FAB3		8352
+FAB4		83EF
+FAB5		8779
+FAB6		8941
+FAB7		8986
+FAB8		8996
+FAB9		8ABF
+FABA		8AF8
+FABB		8ACB
+FABC		8B01
+FABD		8AFE
+FABE		8AED
+FABF		8B39
+FAC0		8B8A
+FAC1		8D08
+FAC2		8F38
+FAC3		9072
+FAC4		9199
+FAC5		9276
+FAC6		967C
+FAC7		96E3
+FAC8		9756
+FAC9		97DB
+FACA		97FF
+FACB		980B
+FACC		983B
+FACD		9B12
+FACE		9F9C
+FACF		2284A
+FAD0		22844
+FAD1		233D5
+FAD2		3B9D
+FAD3		4018
+FAD4		4039
+FAD5		25249
+FAD6		25CD0
+FAD7		27ED3
+FAD8		9F43
+FAD9		9F8E
+FB00		<compat> 0066 0066
+FB01		<compat> 0066 0069
+FB02		<compat> 0066 006C
+FB03		<compat> 0066 0066 0069
+FB04		<compat> 0066 0066 006C
+FB05		<compat> 017F 0074
+FB06		<compat> 0073 0074
+FB13		<compat> 0574 0576
+FB14		<compat> 0574 0565
+FB15		<compat> 0574 056B
+FB16		<compat> 057E 0576
+FB17		<compat> 0574 056D
+FB1D		05D9 05B4
+FB1F		05F2 05B7
+FB20		<font> 05E2
+FB21		<font> 05D0
+FB22		<font> 05D3
+FB23		<font> 05D4
+FB24		<font> 05DB
+FB25		<font> 05DC
+FB26		<font> 05DD
+FB27		<font> 05E8
+FB28		<font> 05EA
+FB29		<font> 002B
+FB2A		05E9 05C1
+FB2B		05E9 05C2
+FB2C		FB49 05C1
+FB2D		FB49 05C2
+FB2E		05D0 05B7
+FB2F		05D0 05B8
+FB30		05D0 05BC
+FB31		05D1 05BC
+FB32		05D2 05BC
+FB33		05D3 05BC
+FB34		05D4 05BC
+FB35		05D5 05BC
+FB36		05D6 05BC
+FB38		05D8 05BC
+FB39		05D9 05BC
+FB3A		05DA 05BC
+FB3B		05DB 05BC
+FB3C		05DC 05BC
+FB3E		05DE 05BC
+FB40		05E0 05BC
+FB41		05E1 05BC
+FB43		05E3 05BC
+FB44		05E4 05BC
+FB46		05E6 05BC
+FB47		05E7 05BC
+FB48		05E8 05BC
+FB49		05E9 05BC
+FB4A		05EA 05BC
+FB4B		05D5 05B9
+FB4C		05D1 05BF
+FB4D		05DB 05BF
+FB4E		05E4 05BF
+FB4F		<compat> 05D0 05DC
+FB50		<isolated> 0671
+FB51		<final> 0671
+FB52		<isolated> 067B
+FB53		<final> 067B
+FB54		<initial> 067B
+FB55		<medial> 067B
+FB56		<isolated> 067E
+FB57		<final> 067E
+FB58		<initial> 067E
+FB59		<medial> 067E
+FB5A		<isolated> 0680
+FB5B		<final> 0680
+FB5C		<initial> 0680
+FB5D		<medial> 0680
+FB5E		<isolated> 067A
+FB5F		<final> 067A
+FB60		<initial> 067A
+FB61		<medial> 067A
+FB62		<isolated> 067F
+FB63		<final> 067F
+FB64		<initial> 067F
+FB65		<medial> 067F
+FB66		<isolated> 0679
+FB67		<final> 0679
+FB68		<initial> 0679
+FB69		<medial> 0679
+FB6A		<isolated> 06A4
+FB6B		<final> 06A4
+FB6C		<initial> 06A4
+FB6D		<medial> 06A4
+FB6E		<isolated> 06A6
+FB6F		<final> 06A6
+FB70		<initial> 06A6
+FB71		<medial> 06A6
+FB72		<isolated> 0684
+FB73		<final> 0684
+FB74		<initial> 0684
+FB75		<medial> 0684
+FB76		<isolated> 0683
+FB77		<final> 0683
+FB78		<initial> 0683
+FB79		<medial> 0683
+FB7A		<isolated> 0686
+FB7B		<final> 0686
+FB7C		<initial> 0686
+FB7D		<medial> 0686
+FB7E		<isolated> 0687
+FB7F		<final> 0687
+FB80		<initial> 0687
+FB81		<medial> 0687
+FB82		<isolated> 068D
+FB83		<final> 068D
+FB84		<isolated> 068C
+FB85		<final> 068C
+FB86		<isolated> 068E
+FB87		<final> 068E
+FB88		<isolated> 0688
+FB89		<final> 0688
+FB8A		<isolated> 0698
+FB8B		<final> 0698
+FB8C		<isolated> 0691
+FB8D		<final> 0691
+FB8E		<isolated> 06A9
+FB8F		<final> 06A9
+FB90		<initial> 06A9
+FB91		<medial> 06A9
+FB92		<isolated> 06AF
+FB93		<final> 06AF
+FB94		<initial> 06AF
+FB95		<medial> 06AF
+FB96		<isolated> 06B3
+FB97		<final> 06B3
+FB98		<initial> 06B3
+FB99		<medial> 06B3
+FB9A		<isolated> 06B1
+FB9B		<final> 06B1
+FB9C		<initial> 06B1
+FB9D		<medial> 06B1
+FB9E		<isolated> 06BA
+FB9F		<final> 06BA
+FBA0		<isolated> 06BB
+FBA1		<final> 06BB
+FBA2		<initial> 06BB
+FBA3		<medial> 06BB
+FBA4		<isolated> 06C0
+FBA5		<final> 06C0
+FBA6		<isolated> 06C1
+FBA7		<final> 06C1
+FBA8		<initial> 06C1
+FBA9		<medial> 06C1
+FBAA		<isolated> 06BE
+FBAB		<final> 06BE
+FBAC		<initial> 06BE
+FBAD		<medial> 06BE
+FBAE		<isolated> 06D2
+FBAF		<final> 06D2
+FBB0		<isolated> 06D3
+FBB1		<final> 06D3
+FBD3		<isolated> 06AD
+FBD4		<final> 06AD
+FBD5		<initial> 06AD
+FBD6		<medial> 06AD
+FBD7		<isolated> 06C7
+FBD8		<final> 06C7
+FBD9		<isolated> 06C6
+FBDA		<final> 06C6
+FBDB		<isolated> 06C8
+FBDC		<final> 06C8
+FBDD		<isolated> 0677
+FBDE		<isolated> 06CB
+FBDF		<final> 06CB
+FBE0		<isolated> 06C5
+FBE1		<final> 06C5
+FBE2		<isolated> 06C9
+FBE3		<final> 06C9
+FBE4		<isolated> 06D0
+FBE5		<final> 06D0
+FBE6		<initial> 06D0
+FBE7		<medial> 06D0
+FBE8		<initial> 0649
+FBE9		<medial> 0649
+FBEA		<isolated> 0626 0627
+FBEB		<final> 0626 0627
+FBEC		<isolated> 0626 06D5
+FBED		<final> 0626 06D5
+FBEE		<isolated> 0626 0648
+FBEF		<final> 0626 0648
+FBF0		<isolated> 0626 06C7
+FBF1		<final> 0626 06C7
+FBF2		<isolated> 0626 06C6
+FBF3		<final> 0626 06C6
+FBF4		<isolated> 0626 06C8
+FBF5		<final> 0626 06C8
+FBF6		<isolated> 0626 06D0
+FBF7		<final> 0626 06D0
+FBF8		<initial> 0626 06D0
+FBF9		<isolated> 0626 0649
+FBFA		<final> 0626 0649
+FBFB		<initial> 0626 0649
+FBFC		<isolated> 06CC
+FBFD		<final> 06CC
+FBFE		<initial> 06CC
+FBFF		<medial> 06CC
+FC00		<isolated> 0626 062C
+FC01		<isolated> 0626 062D
+FC02		<isolated> 0626 0645
+FC03		<isolated> 0626 0649
+FC04		<isolated> 0626 064A
+FC05		<isolated> 0628 062C
+FC06		<isolated> 0628 062D
+FC07		<isolated> 0628 062E
+FC08		<isolated> 0628 0645
+FC09		<isolated> 0628 0649
+FC0A		<isolated> 0628 064A
+FC0B		<isolated> 062A 062C
+FC0C		<isolated> 062A 062D
+FC0D		<isolated> 062A 062E
+FC0E		<isolated> 062A 0645
+FC0F		<isolated> 062A 0649
+FC10		<isolated> 062A 064A
+FC11		<isolated> 062B 062C
+FC12		<isolated> 062B 0645
+FC13		<isolated> 062B 0649
+FC14		<isolated> 062B 064A
+FC15		<isolated> 062C 062D
+FC16		<isolated> 062C 0645
+FC17		<isolated> 062D 062C
+FC18		<isolated> 062D 0645
+FC19		<isolated> 062E 062C
+FC1A		<isolated> 062E 062D
+FC1B		<isolated> 062E 0645
+FC1C		<isolated> 0633 062C
+FC1D		<isolated> 0633 062D
+FC1E		<isolated> 0633 062E
+FC1F		<isolated> 0633 0645
+FC20		<isolated> 0635 062D
+FC21		<isolated> 0635 0645
+FC22		<isolated> 0636 062C
+FC23		<isolated> 0636 062D
+FC24		<isolated> 0636 062E
+FC25		<isolated> 0636 0645
+FC26		<isolated> 0637 062D
+FC27		<isolated> 0637 0645
+FC28		<isolated> 0638 0645
+FC29		<isolated> 0639 062C
+FC2A		<isolated> 0639 0645
+FC2B		<isolated> 063A 062C
+FC2C		<isolated> 063A 0645
+FC2D		<isolated> 0641 062C
+FC2E		<isolated> 0641 062D
+FC2F		<isolated> 0641 062E
+FC30		<isolated> 0641 0645
+FC31		<isolated> 0641 0649
+FC32		<isolated> 0641 064A
+FC33		<isolated> 0642 062D
+FC34		<isolated> 0642 0645
+FC35		<isolated> 0642 0649
+FC36		<isolated> 0642 064A
+FC37		<isolated> 0643 0627
+FC38		<isolated> 0643 062C
+FC39		<isolated> 0643 062D
+FC3A		<isolated> 0643 062E
+FC3B		<isolated> 0643 0644
+FC3C		<isolated> 0643 0645
+FC3D		<isolated> 0643 0649
+FC3E		<isolated> 0643 064A
+FC3F		<isolated> 0644 062C
+FC40		<isolated> 0644 062D
+FC41		<isolated> 0644 062E
+FC42		<isolated> 0644 0645
+FC43		<isolated> 0644 0649
+FC44		<isolated> 0644 064A
+FC45		<isolated> 0645 062C
+FC46		<isolated> 0645 062D
+FC47		<isolated> 0645 062E
+FC48		<isolated> 0645 0645
+FC49		<isolated> 0645 0649
+FC4A		<isolated> 0645 064A
+FC4B		<isolated> 0646 062C
+FC4C		<isolated> 0646 062D
+FC4D		<isolated> 0646 062E
+FC4E		<isolated> 0646 0645
+FC4F		<isolated> 0646 0649
+FC50		<isolated> 0646 064A
+FC51		<isolated> 0647 062C
+FC52		<isolated> 0647 0645
+FC53		<isolated> 0647 0649
+FC54		<isolated> 0647 064A
+FC55		<isolated> 064A 062C
+FC56		<isolated> 064A 062D
+FC57		<isolated> 064A 062E
+FC58		<isolated> 064A 0645
+FC59		<isolated> 064A 0649
+FC5A		<isolated> 064A 064A
+FC5B		<isolated> 0630 0670
+FC5C		<isolated> 0631 0670
+FC5D		<isolated> 0649 0670
+FC5E		<isolated> 0020 064C 0651
+FC5F		<isolated> 0020 064D 0651
+FC60		<isolated> 0020 064E 0651
+FC61		<isolated> 0020 064F 0651
+FC62		<isolated> 0020 0650 0651
+FC63		<isolated> 0020 0651 0670
+FC64		<final> 0626 0631
+FC65		<final> 0626 0632
+FC66		<final> 0626 0645
+FC67		<final> 0626 0646
+FC68		<final> 0626 0649
+FC69		<final> 0626 064A
+FC6A		<final> 0628 0631
+FC6B		<final> 0628 0632
+FC6C		<final> 0628 0645
+FC6D		<final> 0628 0646
+FC6E		<final> 0628 0649
+FC6F		<final> 0628 064A
+FC70		<final> 062A 0631
+FC71		<final> 062A 0632
+FC72		<final> 062A 0645
+FC73		<final> 062A 0646
+FC74		<final> 062A 0649
+FC75		<final> 062A 064A
+FC76		<final> 062B 0631
+FC77		<final> 062B 0632
+FC78		<final> 062B 0645
+FC79		<final> 062B 0646
+FC7A		<final> 062B 0649
+FC7B		<final> 062B 064A
+FC7C		<final> 0641 0649
+FC7D		<final> 0641 064A
+FC7E		<final> 0642 0649
+FC7F		<final> 0642 064A
+FC80		<final> 0643 0627
+FC81		<final> 0643 0644
+FC82		<final> 0643 0645
+FC83		<final> 0643 0649
+FC84		<final> 0643 064A
+FC85		<final> 0644 0645
+FC86		<final> 0644 0649
+FC87		<final> 0644 064A
+FC88		<final> 0645 0627
+FC89		<final> 0645 0645
+FC8A		<final> 0646 0631
+FC8B		<final> 0646 0632
+FC8C		<final> 0646 0645
+FC8D		<final> 0646 0646
+FC8E		<final> 0646 0649
+FC8F		<final> 0646 064A
+FC90		<final> 0649 0670
+FC91		<final> 064A 0631
+FC92		<final> 064A 0632
+FC93		<final> 064A 0645
+FC94		<final> 064A 0646
+FC95		<final> 064A 0649
+FC96		<final> 064A 064A
+FC97		<initial> 0626 062C
+FC98		<initial> 0626 062D
+FC99		<initial> 0626 062E
+FC9A		<initial> 0626 0645
+FC9B		<initial> 0626 0647
+FC9C		<initial> 0628 062C
+FC9D		<initial> 0628 062D
+FC9E		<initial> 0628 062E
+FC9F		<initial> 0628 0645
+FCA0		<initial> 0628 0647
+FCA1		<initial> 062A 062C
+FCA2		<initial> 062A 062D
+FCA3		<initial> 062A 062E
+FCA4		<initial> 062A 0645
+FCA5		<initial> 062A 0647
+FCA6		<initial> 062B 0645
+FCA7		<initial> 062C 062D
+FCA8		<initial> 062C 0645
+FCA9		<initial> 062D 062C
+FCAA		<initial> 062D 0645
+FCAB		<initial> 062E 062C
+FCAC		<initial> 062E 0645
+FCAD		<initial> 0633 062C
+FCAE		<initial> 0633 062D
+FCAF		<initial> 0633 062E
+FCB0		<initial> 0633 0645
+FCB1		<initial> 0635 062D
+FCB2		<initial> 0635 062E
+FCB3		<initial> 0635 0645
+FCB4		<initial> 0636 062C
+FCB5		<initial> 0636 062D
+FCB6		<initial> 0636 062E
+FCB7		<initial> 0636 0645
+FCB8		<initial> 0637 062D
+FCB9		<initial> 0638 0645
+FCBA		<initial> 0639 062C
+FCBB		<initial> 0639 0645
+FCBC		<initial> 063A 062C
+FCBD		<initial> 063A 0645
+FCBE		<initial> 0641 062C
+FCBF		<initial> 0641 062D
+FCC0		<initial> 0641 062E
+FCC1		<initial> 0641 0645
+FCC2		<initial> 0642 062D
+FCC3		<initial> 0642 0645
+FCC4		<initial> 0643 062C
+FCC5		<initial> 0643 062D
+FCC6		<initial> 0643 062E
+FCC7		<initial> 0643 0644
+FCC8		<initial> 0643 0645
+FCC9		<initial> 0644 062C
+FCCA		<initial> 0644 062D
+FCCB		<initial> 0644 062E
+FCCC		<initial> 0644 0645
+FCCD		<initial> 0644 0647
+FCCE		<initial> 0645 062C
+FCCF		<initial> 0645 062D
+FCD0		<initial> 0645 062E
+FCD1		<initial> 0645 0645
+FCD2		<initial> 0646 062C
+FCD3		<initial> 0646 062D
+FCD4		<initial> 0646 062E
+FCD5		<initial> 0646 0645
+FCD6		<initial> 0646 0647
+FCD7		<initial> 0647 062C
+FCD8		<initial> 0647 0645
+FCD9		<initial> 0647 0670
+FCDA		<initial> 064A 062C
+FCDB		<initial> 064A 062D
+FCDC		<initial> 064A 062E
+FCDD		<initial> 064A 0645
+FCDE		<initial> 064A 0647
+FCDF		<medial> 0626 0645
+FCE0		<medial> 0626 0647
+FCE1		<medial> 0628 0645
+FCE2		<medial> 0628 0647
+FCE3		<medial> 062A 0645
+FCE4		<medial> 062A 0647
+FCE5		<medial> 062B 0645
+FCE6		<medial> 062B 0647
+FCE7		<medial> 0633 0645
+FCE8		<medial> 0633 0647
+FCE9		<medial> 0634 0645
+FCEA		<medial> 0634 0647
+FCEB		<medial> 0643 0644
+FCEC		<medial> 0643 0645
+FCED		<medial> 0644 0645
+FCEE		<medial> 0646 0645
+FCEF		<medial> 0646 0647
+FCF0		<medial> 064A 0645
+FCF1		<medial> 064A 0647
+FCF2		<medial> 0640 064E 0651
+FCF3		<medial> 0640 064F 0651
+FCF4		<medial> 0640 0650 0651
+FCF5		<isolated> 0637 0649
+FCF6		<isolated> 0637 064A
+FCF7		<isolated> 0639 0649
+FCF8		<isolated> 0639 064A
+FCF9		<isolated> 063A 0649
+FCFA		<isolated> 063A 064A
+FCFB		<isolated> 0633 0649
+FCFC		<isolated> 0633 064A
+FCFD		<isolated> 0634 0649
+FCFE		<isolated> 0634 064A
+FCFF		<isolated> 062D 0649
+FD00		<isolated> 062D 064A
+FD01		<isolated> 062C 0649
+FD02		<isolated> 062C 064A
+FD03		<isolated> 062E 0649
+FD04		<isolated> 062E 064A
+FD05		<isolated> 0635 0649
+FD06		<isolated> 0635 064A
+FD07		<isolated> 0636 0649
+FD08		<isolated> 0636 064A
+FD09		<isolated> 0634 062C
+FD0A		<isolated> 0634 062D
+FD0B		<isolated> 0634 062E
+FD0C		<isolated> 0634 0645
+FD0D		<isolated> 0634 0631
+FD0E		<isolated> 0633 0631
+FD0F		<isolated> 0635 0631
+FD10		<isolated> 0636 0631
+FD11		<final> 0637 0649
+FD12		<final> 0637 064A
+FD13		<final> 0639 0649
+FD14		<final> 0639 064A
+FD15		<final> 063A 0649
+FD16		<final> 063A 064A
+FD17		<final> 0633 0649
+FD18		<final> 0633 064A
+FD19		<final> 0634 0649
+FD1A		<final> 0634 064A
+FD1B		<final> 062D 0649
+FD1C		<final> 062D 064A
+FD1D		<final> 062C 0649
+FD1E		<final> 062C 064A
+FD1F		<final> 062E 0649
+FD20		<final> 062E 064A
+FD21		<final> 0635 0649
+FD22		<final> 0635 064A
+FD23		<final> 0636 0649
+FD24		<final> 0636 064A
+FD25		<final> 0634 062C
+FD26		<final> 0634 062D
+FD27		<final> 0634 062E
+FD28		<final> 0634 0645
+FD29		<final> 0634 0631
+FD2A		<final> 0633 0631
+FD2B		<final> 0635 0631
+FD2C		<final> 0636 0631
+FD2D		<initial> 0634 062C
+FD2E		<initial> 0634 062D
+FD2F		<initial> 0634 062E
+FD30		<initial> 0634 0645
+FD31		<initial> 0633 0647
+FD32		<initial> 0634 0647
+FD33		<initial> 0637 0645
+FD34		<medial> 0633 062C
+FD35		<medial> 0633 062D
+FD36		<medial> 0633 062E
+FD37		<medial> 0634 062C
+FD38		<medial> 0634 062D
+FD39		<medial> 0634 062E
+FD3A		<medial> 0637 0645
+FD3B		<medial> 0638 0645
+FD3C		<final> 0627 064B
+FD3D		<isolated> 0627 064B
+FD50		<initial> 062A 062C 0645
+FD51		<final> 062A 062D 062C
+FD52		<initial> 062A 062D 062C
+FD53		<initial> 062A 062D 0645
+FD54		<initial> 062A 062E 0645
+FD55		<initial> 062A 0645 062C
+FD56		<initial> 062A 0645 062D
+FD57		<initial> 062A 0645 062E
+FD58		<final> 062C 0645 062D
+FD59		<initial> 062C 0645 062D
+FD5A		<final> 062D 0645 064A
+FD5B		<final> 062D 0645 0649
+FD5C		<initial> 0633 062D 062C
+FD5D		<initial> 0633 062C 062D
+FD5E		<final> 0633 062C 0649
+FD5F		<final> 0633 0645 062D
+FD60		<initial> 0633 0645 062D
+FD61		<initial> 0633 0645 062C
+FD62		<final> 0633 0645 0645
+FD63		<initial> 0633 0645 0645
+FD64		<final> 0635 062D 062D
+FD65		<initial> 0635 062D 062D
+FD66		<final> 0635 0645 0645
+FD67		<final> 0634 062D 0645
+FD68		<initial> 0634 062D 0645
+FD69		<final> 0634 062C 064A
+FD6A		<final> 0634 0645 062E
+FD6B		<initial> 0634 0645 062E
+FD6C		<final> 0634 0645 0645
+FD6D		<initial> 0634 0645 0645
+FD6E		<final> 0636 062D 0649
+FD6F		<final> 0636 062E 0645
+FD70		<initial> 0636 062E 0645
+FD71		<final> 0637 0645 062D
+FD72		<initial> 0637 0645 062D
+FD73		<initial> 0637 0645 0645
+FD74		<final> 0637 0645 064A
+FD75		<final> 0639 062C 0645
+FD76		<final> 0639 0645 0645
+FD77		<initial> 0639 0645 0645
+FD78		<final> 0639 0645 0649
+FD79		<final> 063A 0645 0645
+FD7A		<final> 063A 0645 064A
+FD7B		<final> 063A 0645 0649
+FD7C		<final> 0641 062E 0645
+FD7D		<initial> 0641 062E 0645
+FD7E		<final> 0642 0645 062D
+FD7F		<final> 0642 0645 0645
+FD80		<final> 0644 062D 0645
+FD81		<final> 0644 062D 064A
+FD82		<final> 0644 062D 0649
+FD83		<initial> 0644 062C 062C
+FD84		<final> 0644 062C 062C
+FD85		<final> 0644 062E 0645
+FD86		<initial> 0644 062E 0645
+FD87		<final> 0644 0645 062D
+FD88		<initial> 0644 0645 062D
+FD89		<initial> 0645 062D 062C
+FD8A		<initial> 0645 062D 0645
+FD8B		<final> 0645 062D 064A
+FD8C		<initial> 0645 062C 062D
+FD8D		<initial> 0645 062C 0645
+FD8E		<initial> 0645 062E 062C
+FD8F		<initial> 0645 062E 0645
+FD92		<initial> 0645 062C 062E
+FD93		<initial> 0647 0645 062C
+FD94		<initial> 0647 0645 0645
+FD95		<initial> 0646 062D 0645
+FD96		<final> 0646 062D 0649
+FD97		<final> 0646 062C 0645
+FD98		<initial> 0646 062C 0645
+FD99		<final> 0646 062C 0649
+FD9A		<final> 0646 0645 064A
+FD9B		<final> 0646 0645 0649
+FD9C		<final> 064A 0645 0645
+FD9D		<initial> 064A 0645 0645
+FD9E		<final> 0628 062E 064A
+FD9F		<final> 062A 062C 064A
+FDA0		<final> 062A 062C 0649
+FDA1		<final> 062A 062E 064A
+FDA2		<final> 062A 062E 0649
+FDA3		<final> 062A 0645 064A
+FDA4		<final> 062A 0645 0649
+FDA5		<final> 062C 0645 064A
+FDA6		<final> 062C 062D 0649
+FDA7		<final> 062C 0645 0649
+FDA8		<final> 0633 062E 0649
+FDA9		<final> 0635 062D 064A
+FDAA		<final> 0634 062D 064A
+FDAB		<final> 0636 062D 064A
+FDAC		<final> 0644 062C 064A
+FDAD		<final> 0644 0645 064A
+FDAE		<final> 064A 062D 064A
+FDAF		<final> 064A 062C 064A
+FDB0		<final> 064A 0645 064A
+FDB1		<final> 0645 0645 064A
+FDB2		<final> 0642 0645 064A
+FDB3		<final> 0646 062D 064A
+FDB4		<initial> 0642 0645 062D
+FDB5		<initial> 0644 062D 0645
+FDB6		<final> 0639 0645 064A
+FDB7		<final> 0643 0645 064A
+FDB8		<initial> 0646 062C 062D
+FDB9		<final> 0645 062E 064A
+FDBA		<initial> 0644 062C 0645
+FDBB		<final> 0643 0645 0645
+FDBC		<final> 0644 062C 0645
+FDBD		<final> 0646 062C 062D
+FDBE		<final> 062C 062D 064A
+FDBF		<final> 062D 062C 064A
+FDC0		<final> 0645 062C 064A
+FDC1		<final> 0641 0645 064A
+FDC2		<final> 0628 062D 064A
+FDC3		<initial> 0643 0645 0645
+FDC4		<initial> 0639 062C 0645
+FDC5		<initial> 0635 0645 0645
+FDC6		<final> 0633 062E 064A
+FDC7		<final> 0646 062C 064A
+FDF0		<isolated> 0635 0644 06D2
+FDF1		<isolated> 0642 0644 06D2
+FDF2		<isolated> 0627 0644 0644 0647
+FDF3		<isolated> 0627 0643 0628 0631
+FDF4		<isolated> 0645 062D 0645 062F
+FDF5		<isolated> 0635 0644 0639 0645
+FDF6		<isolated> 0631 0633 0648 0644
+FDF7		<isolated> 0639 0644 064A 0647
+FDF8		<isolated> 0648 0633 0644 0645
+FDF9		<isolated> 0635 0644 0649
+FDFA		<isolated> 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645
+FDFB		<isolated> 062C 0644 0020 062C 0644 0627 0644 0647
+FDFC		<isolated> 0631 06CC 0627 0644
+FE10		<vertical> 002C
+FE11		<vertical> 3001
+FE12		<vertical> 3002
+FE13		<vertical> 003A
+FE14		<vertical> 003B
+FE15		<vertical> 0021
+FE16		<vertical> 003F
+FE17		<vertical> 3016
+FE18		<vertical> 3017
+FE19		<vertical> 2026
+FE30		<vertical> 2025
+FE31		<vertical> 2014
+FE32		<vertical> 2013
+FE33	FE34	<vertical> 005F
+FE35		<vertical> 0028
+FE36		<vertical> 0029
+FE37		<vertical> 007B
+FE38		<vertical> 007D
+FE39		<vertical> 3014
+FE3A		<vertical> 3015
+FE3B		<vertical> 3010
+FE3C		<vertical> 3011
+FE3D		<vertical> 300A
+FE3E		<vertical> 300B
+FE3F		<vertical> 3008
+FE40		<vertical> 3009
+FE41		<vertical> 300C
+FE42		<vertical> 300D
+FE43		<vertical> 300E
+FE44		<vertical> 300F
+FE47		<vertical> 005B
+FE48		<vertical> 005D
+FE49	FE4C	<compat> 203E
+FE4D	FE4F	<compat> 005F
+FE50		<small> 002C
+FE51		<small> 3001
+FE52		<small> 002E
+FE54		<small> 003B
+FE55		<small> 003A
+FE56		<small> 003F
+FE57		<small> 0021
+FE58		<small> 2014
+FE59		<small> 0028
+FE5A		<small> 0029
+FE5B		<small> 007B
+FE5C		<small> 007D
+FE5D		<small> 3014
+FE5E		<small> 3015
+FE5F		<small> 0023
+FE60		<small> 0026
+FE61		<small> 002A
+FE62		<small> 002B
+FE63		<small> 002D
+FE64		<small> 003C
+FE65		<small> 003E
+FE66		<small> 003D
+FE68		<small> 005C
+FE69		<small> 0024
+FE6A		<small> 0025
+FE6B		<small> 0040
+FE70		<isolated> 0020 064B
+FE71		<medial> 0640 064B
+FE72		<isolated> 0020 064C
+FE74		<isolated> 0020 064D
+FE76		<isolated> 0020 064E
+FE77		<medial> 0640 064E
+FE78		<isolated> 0020 064F
+FE79		<medial> 0640 064F
+FE7A		<isolated> 0020 0650
+FE7B		<medial> 0640 0650
+FE7C		<isolated> 0020 0651
+FE7D		<medial> 0640 0651
+FE7E		<isolated> 0020 0652
+FE7F		<medial> 0640 0652
+FE80		<isolated> 0621
+FE81		<isolated> 0622
+FE82		<final> 0622
+FE83		<isolated> 0623
+FE84		<final> 0623
+FE85		<isolated> 0624
+FE86		<final> 0624
+FE87		<isolated> 0625
+FE88		<final> 0625
+FE89		<isolated> 0626
+FE8A		<final> 0626
+FE8B		<initial> 0626
+FE8C		<medial> 0626
+FE8D		<isolated> 0627
+FE8E		<final> 0627
+FE8F		<isolated> 0628
+FE90		<final> 0628
+FE91		<initial> 0628
+FE92		<medial> 0628
+FE93		<isolated> 0629
+FE94		<final> 0629
+FE95		<isolated> 062A
+FE96		<final> 062A
+FE97		<initial> 062A
+FE98		<medial> 062A
+FE99		<isolated> 062B
+FE9A		<final> 062B
+FE9B		<initial> 062B
+FE9C		<medial> 062B
+FE9D		<isolated> 062C
+FE9E		<final> 062C
+FE9F		<initial> 062C
+FEA0		<medial> 062C
+FEA1		<isolated> 062D
+FEA2		<final> 062D
+FEA3		<initial> 062D
+FEA4		<medial> 062D
+FEA5		<isolated> 062E
+FEA6		<final> 062E
+FEA7		<initial> 062E
+FEA8		<medial> 062E
+FEA9		<isolated> 062F
+FEAA		<final> 062F
+FEAB		<isolated> 0630
+FEAC		<final> 0630
+FEAD		<isolated> 0631
+FEAE		<final> 0631
+FEAF		<isolated> 0632
+FEB0		<final> 0632
+FEB1		<isolated> 0633
+FEB2		<final> 0633
+FEB3		<initial> 0633
+FEB4		<medial> 0633
+FEB5		<isolated> 0634
+FEB6		<final> 0634
+FEB7		<initial> 0634
+FEB8		<medial> 0634
+FEB9		<isolated> 0635
+FEBA		<final> 0635
+FEBB		<initial> 0635
+FEBC		<medial> 0635
+FEBD		<isolated> 0636
+FEBE		<final> 0636
+FEBF		<initial> 0636
+FEC0		<medial> 0636
+FEC1		<isolated> 0637
+FEC2		<final> 0637
+FEC3		<initial> 0637
+FEC4		<medial> 0637
+FEC5		<isolated> 0638
+FEC6		<final> 0638
+FEC7		<initial> 0638
+FEC8		<medial> 0638
+FEC9		<isolated> 0639
+FECA		<final> 0639
+FECB		<initial> 0639
+FECC		<medial> 0639
+FECD		<isolated> 063A
+FECE		<final> 063A
+FECF		<initial> 063A
+FED0		<medial> 063A
+FED1		<isolated> 0641
+FED2		<final> 0641
+FED3		<initial> 0641
+FED4		<medial> 0641
+FED5		<isolated> 0642
+FED6		<final> 0642
+FED7		<initial> 0642
+FED8		<medial> 0642
+FED9		<isolated> 0643
+FEDA		<final> 0643
+FEDB		<initial> 0643
+FEDC		<medial> 0643
+FEDD		<isolated> 0644
+FEDE		<final> 0644
+FEDF		<initial> 0644
+FEE0		<medial> 0644
+FEE1		<isolated> 0645
+FEE2		<final> 0645
+FEE3		<initial> 0645
+FEE4		<medial> 0645
+FEE5		<isolated> 0646
+FEE6		<final> 0646
+FEE7		<initial> 0646
+FEE8		<medial> 0646
+FEE9		<isolated> 0647
+FEEA		<final> 0647
+FEEB		<initial> 0647
+FEEC		<medial> 0647
+FEED		<isolated> 0648
+FEEE		<final> 0648
+FEEF		<isolated> 0649
+FEF0		<final> 0649
+FEF1		<isolated> 064A
+FEF2		<final> 064A
+FEF3		<initial> 064A
+FEF4		<medial> 064A
+FEF5		<isolated> 0644 0622
+FEF6		<final> 0644 0622
+FEF7		<isolated> 0644 0623
+FEF8		<final> 0644 0623
+FEF9		<isolated> 0644 0625
+FEFA		<final> 0644 0625
+FEFB		<isolated> 0644 0627
+FEFC		<final> 0644 0627
+FF01		<wide> 0021
+FF02		<wide> 0022
+FF03		<wide> 0023
+FF04		<wide> 0024
+FF05		<wide> 0025
+FF06		<wide> 0026
+FF07		<wide> 0027
+FF08		<wide> 0028
+FF09		<wide> 0029
+FF0A		<wide> 002A
+FF0B		<wide> 002B
+FF0C		<wide> 002C
+FF0D		<wide> 002D
+FF0E		<wide> 002E
+FF0F		<wide> 002F
+FF10		<wide> 0030
+FF11		<wide> 0031
+FF12		<wide> 0032
+FF13		<wide> 0033
+FF14		<wide> 0034
+FF15		<wide> 0035
+FF16		<wide> 0036
+FF17		<wide> 0037
+FF18		<wide> 0038
+FF19		<wide> 0039
+FF1A		<wide> 003A
+FF1B		<wide> 003B
+FF1C		<wide> 003C
+FF1D		<wide> 003D
+FF1E		<wide> 003E
+FF1F		<wide> 003F
+FF20		<wide> 0040
+FF21		<wide> 0041
+FF22		<wide> 0042
+FF23		<wide> 0043
+FF24		<wide> 0044
+FF25		<wide> 0045
+FF26		<wide> 0046
+FF27		<wide> 0047
+FF28		<wide> 0048
+FF29		<wide> 0049
+FF2A		<wide> 004A
+FF2B		<wide> 004B
+FF2C		<wide> 004C
+FF2D		<wide> 004D
+FF2E		<wide> 004E
+FF2F		<wide> 004F
+FF30		<wide> 0050
+FF31		<wide> 0051
+FF32		<wide> 0052
+FF33		<wide> 0053
+FF34		<wide> 0054
+FF35		<wide> 0055
+FF36		<wide> 0056
+FF37		<wide> 0057
+FF38		<wide> 0058
+FF39		<wide> 0059
+FF3A		<wide> 005A
+FF3B		<wide> 005B
+FF3C		<wide> 005C
+FF3D		<wide> 005D
+FF3E		<wide> 005E
+FF3F		<wide> 005F
+FF40		<wide> 0060
+FF41		<wide> 0061
+FF42		<wide> 0062
+FF43		<wide> 0063
+FF44		<wide> 0064
+FF45		<wide> 0065
+FF46		<wide> 0066
+FF47		<wide> 0067
+FF48		<wide> 0068
+FF49		<wide> 0069
+FF4A		<wide> 006A
+FF4B		<wide> 006B
+FF4C		<wide> 006C
+FF4D		<wide> 006D
+FF4E		<wide> 006E
+FF4F		<wide> 006F
+FF50		<wide> 0070
+FF51		<wide> 0071
+FF52		<wide> 0072
+FF53		<wide> 0073
+FF54		<wide> 0074
+FF55		<wide> 0075
+FF56		<wide> 0076
+FF57		<wide> 0077
+FF58		<wide> 0078
+FF59		<wide> 0079
+FF5A		<wide> 007A
+FF5B		<wide> 007B
+FF5C		<wide> 007C
+FF5D		<wide> 007D
+FF5E		<wide> 007E
+FF5F		<wide> 2985
+FF60		<wide> 2986
+FF61		<narrow> 3002
+FF62		<narrow> 300C
+FF63		<narrow> 300D
+FF64		<narrow> 3001
+FF65		<narrow> 30FB
+FF66		<narrow> 30F2
+FF67		<narrow> 30A1
+FF68		<narrow> 30A3
+FF69		<narrow> 30A5
+FF6A		<narrow> 30A7
+FF6B		<narrow> 30A9
+FF6C		<narrow> 30E3
+FF6D		<narrow> 30E5
+FF6E		<narrow> 30E7
+FF6F		<narrow> 30C3
+FF70		<narrow> 30FC
+FF71		<narrow> 30A2
+FF72		<narrow> 30A4
+FF73		<narrow> 30A6
+FF74		<narrow> 30A8
+FF75		<narrow> 30AA
+FF76		<narrow> 30AB
+FF77		<narrow> 30AD
+FF78		<narrow> 30AF
+FF79		<narrow> 30B1
+FF7A		<narrow> 30B3
+FF7B		<narrow> 30B5
+FF7C		<narrow> 30B7
+FF7D		<narrow> 30B9
+FF7E		<narrow> 30BB
+FF7F		<narrow> 30BD
+FF80		<narrow> 30BF
+FF81		<narrow> 30C1
+FF82		<narrow> 30C4
+FF83		<narrow> 30C6
+FF84		<narrow> 30C8
+FF85		<narrow> 30CA
+FF86		<narrow> 30CB
+FF87		<narrow> 30CC
+FF88		<narrow> 30CD
+FF89		<narrow> 30CE
+FF8A		<narrow> 30CF
+FF8B		<narrow> 30D2
+FF8C		<narrow> 30D5
+FF8D		<narrow> 30D8
+FF8E		<narrow> 30DB
+FF8F		<narrow> 30DE
+FF90		<narrow> 30DF
+FF91		<narrow> 30E0
+FF92		<narrow> 30E1
+FF93		<narrow> 30E2
+FF94		<narrow> 30E4
+FF95		<narrow> 30E6
+FF96		<narrow> 30E8
+FF97		<narrow> 30E9
+FF98		<narrow> 30EA
+FF99		<narrow> 30EB
+FF9A		<narrow> 30EC
+FF9B		<narrow> 30ED
+FF9C		<narrow> 30EF
+FF9D		<narrow> 30F3
+FF9E		<narrow> 3099
+FF9F		<narrow> 309A
+FFA0		<narrow> 3164
+FFA1		<narrow> 3131
+FFA2		<narrow> 3132
+FFA3		<narrow> 3133
+FFA4		<narrow> 3134
+FFA5		<narrow> 3135
+FFA6		<narrow> 3136
+FFA7		<narrow> 3137
+FFA8		<narrow> 3138
+FFA9		<narrow> 3139
+FFAA		<narrow> 313A
+FFAB		<narrow> 313B
+FFAC		<narrow> 313C
+FFAD		<narrow> 313D
+FFAE		<narrow> 313E
+FFAF		<narrow> 313F
+FFB0		<narrow> 3140
+FFB1		<narrow> 3141
+FFB2		<narrow> 3142
+FFB3		<narrow> 3143
+FFB4		<narrow> 3144
+FFB5		<narrow> 3145
+FFB6		<narrow> 3146
+FFB7		<narrow> 3147
+FFB8		<narrow> 3148
+FFB9		<narrow> 3149
+FFBA		<narrow> 314A
+FFBB		<narrow> 314B
+FFBC		<narrow> 314C
+FFBD		<narrow> 314D
+FFBE		<narrow> 314E
+FFC2		<narrow> 314F
+FFC3		<narrow> 3150
+FFC4		<narrow> 3151
+FFC5		<narrow> 3152
+FFC6		<narrow> 3153
+FFC7		<narrow> 3154
+FFCA		<narrow> 3155
+FFCB		<narrow> 3156
+FFCC		<narrow> 3157
+FFCD		<narrow> 3158
+FFCE		<narrow> 3159
+FFCF		<narrow> 315A
+FFD2		<narrow> 315B
+FFD3		<narrow> 315C
+FFD4		<narrow> 315D
+FFD5		<narrow> 315E
+FFD6		<narrow> 315F
+FFD7		<narrow> 3160
+FFDA		<narrow> 3161
+FFDB		<narrow> 3162
+FFDC		<narrow> 3163
+FFE0		<wide> 00A2
+FFE1		<wide> 00A3
+FFE2		<wide> 00AC
+FFE3		<wide> 00AF
+FFE4		<wide> 00A6
+FFE5		<wide> 00A5
+FFE6		<wide> 20A9
+FFE8		<narrow> 2502
+FFE9		<narrow> 2190
+FFEA		<narrow> 2191
+FFEB		<narrow> 2192
+FFEC		<narrow> 2193
+FFED		<narrow> 25A0
+FFEE		<narrow> 25CB
+1109A		11099 110BA
+1109C		1109B 110BA
+110AB		110A5 110BA
+1112E		11131 11127
+1112F		11132 11127
+1134B		11347 1133E
+1134C		11347 11357
+114BB		114B9 114BA
+114BC		114B9 114B0
+114BE		114B9 114BD
+115BA		115B8 115AF
+115BB		115B9 115AF
+1D15E		1D157 1D165
+1D15F		1D158 1D165
+1D160		1D15F 1D16E
+1D161		1D15F 1D16F
+1D162		1D15F 1D170
+1D163		1D15F 1D171
+1D164		1D15F 1D172
+1D1BB		1D1B9 1D165
+1D1BC		1D1BA 1D165
+1D1BD		1D1BB 1D16E
+1D1BE		1D1BC 1D16E
+1D1BF		1D1BB 1D16F
+1D1C0		1D1BC 1D16F
+1D400		<font> 0041
+1D401		<font> 0042
+1D402		<font> 0043
+1D403		<font> 0044
+1D404		<font> 0045
+1D405		<font> 0046
+1D406		<font> 0047
+1D407		<font> 0048
+1D408		<font> 0049
+1D409		<font> 004A
+1D40A		<font> 004B
+1D40B		<font> 004C
+1D40C		<font> 004D
+1D40D		<font> 004E
+1D40E		<font> 004F
+1D40F		<font> 0050
+1D410		<font> 0051
+1D411		<font> 0052
+1D412		<font> 0053
+1D413		<font> 0054
+1D414		<font> 0055
+1D415		<font> 0056
+1D416		<font> 0057
+1D417		<font> 0058
+1D418		<font> 0059
+1D419		<font> 005A
+1D41A		<font> 0061
+1D41B		<font> 0062
+1D41C		<font> 0063
+1D41D		<font> 0064
+1D41E		<font> 0065
+1D41F		<font> 0066
+1D420		<font> 0067
+1D421		<font> 0068
+1D422		<font> 0069
+1D423		<font> 006A
+1D424		<font> 006B
+1D425		<font> 006C
+1D426		<font> 006D
+1D427		<font> 006E
+1D428		<font> 006F
+1D429		<font> 0070
+1D42A		<font> 0071
+1D42B		<font> 0072
+1D42C		<font> 0073
+1D42D		<font> 0074
+1D42E		<font> 0075
+1D42F		<font> 0076
+1D430		<font> 0077
+1D431		<font> 0078
+1D432		<font> 0079
+1D433		<font> 007A
+1D434		<font> 0041
+1D435		<font> 0042
+1D436		<font> 0043
+1D437		<font> 0044
+1D438		<font> 0045
+1D439		<font> 0046
+1D43A		<font> 0047
+1D43B		<font> 0048
+1D43C		<font> 0049
+1D43D		<font> 004A
+1D43E		<font> 004B
+1D43F		<font> 004C
+1D440		<font> 004D
+1D441		<font> 004E
+1D442		<font> 004F
+1D443		<font> 0050
+1D444		<font> 0051
+1D445		<font> 0052
+1D446		<font> 0053
+1D447		<font> 0054
+1D448		<font> 0055
+1D449		<font> 0056
+1D44A		<font> 0057
+1D44B		<font> 0058
+1D44C		<font> 0059
+1D44D		<font> 005A
+1D44E		<font> 0061
+1D44F		<font> 0062
+1D450		<font> 0063
+1D451		<font> 0064
+1D452		<font> 0065
+1D453		<font> 0066
+1D454		<font> 0067
+1D456		<font> 0069
+1D457		<font> 006A
+1D458		<font> 006B
+1D459		<font> 006C
+1D45A		<font> 006D
+1D45B		<font> 006E
+1D45C		<font> 006F
+1D45D		<font> 0070
+1D45E		<font> 0071
+1D45F		<font> 0072
+1D460		<font> 0073
+1D461		<font> 0074
+1D462		<font> 0075
+1D463		<font> 0076
+1D464		<font> 0077
+1D465		<font> 0078
+1D466		<font> 0079
+1D467		<font> 007A
+1D468		<font> 0041
+1D469		<font> 0042
+1D46A		<font> 0043
+1D46B		<font> 0044
+1D46C		<font> 0045
+1D46D		<font> 0046
+1D46E		<font> 0047
+1D46F		<font> 0048
+1D470		<font> 0049
+1D471		<font> 004A
+1D472		<font> 004B
+1D473		<font> 004C
+1D474		<font> 004D
+1D475		<font> 004E
+1D476		<font> 004F
+1D477		<font> 0050
+1D478		<font> 0051
+1D479		<font> 0052
+1D47A		<font> 0053
+1D47B		<font> 0054
+1D47C		<font> 0055
+1D47D		<font> 0056
+1D47E		<font> 0057
+1D47F		<font> 0058
+1D480		<font> 0059
+1D481		<font> 005A
+1D482		<font> 0061
+1D483		<font> 0062
+1D484		<font> 0063
+1D485		<font> 0064
+1D486		<font> 0065
+1D487		<font> 0066
+1D488		<font> 0067
+1D489		<font> 0068
+1D48A		<font> 0069
+1D48B		<font> 006A
+1D48C		<font> 006B
+1D48D		<font> 006C
+1D48E		<font> 006D
+1D48F		<font> 006E
+1D490		<font> 006F
+1D491		<font> 0070
+1D492		<font> 0071
+1D493		<font> 0072
+1D494		<font> 0073
+1D495		<font> 0074
+1D496		<font> 0075
+1D497		<font> 0076
+1D498		<font> 0077
+1D499		<font> 0078
+1D49A		<font> 0079
+1D49B		<font> 007A
+1D49C		<font> 0041
+1D49E		<font> 0043
+1D49F		<font> 0044
+1D4A2		<font> 0047
+1D4A5		<font> 004A
+1D4A6		<font> 004B
+1D4A9		<font> 004E
+1D4AA		<font> 004F
+1D4AB		<font> 0050
+1D4AC		<font> 0051
+1D4AE		<font> 0053
+1D4AF		<font> 0054
+1D4B0		<font> 0055
+1D4B1		<font> 0056
+1D4B2		<font> 0057
+1D4B3		<font> 0058
+1D4B4		<font> 0059
+1D4B5		<font> 005A
+1D4B6		<font> 0061
+1D4B7		<font> 0062
+1D4B8		<font> 0063
+1D4B9		<font> 0064
+1D4BB		<font> 0066
+1D4BD		<font> 0068
+1D4BE		<font> 0069
+1D4BF		<font> 006A
+1D4C0		<font> 006B
+1D4C1		<font> 006C
+1D4C2		<font> 006D
+1D4C3		<font> 006E
+1D4C5		<font> 0070
+1D4C6		<font> 0071
+1D4C7		<font> 0072
+1D4C8		<font> 0073
+1D4C9		<font> 0074
+1D4CA		<font> 0075
+1D4CB		<font> 0076
+1D4CC		<font> 0077
+1D4CD		<font> 0078
+1D4CE		<font> 0079
+1D4CF		<font> 007A
+1D4D0		<font> 0041
+1D4D1		<font> 0042
+1D4D2		<font> 0043
+1D4D3		<font> 0044
+1D4D4		<font> 0045
+1D4D5		<font> 0046
+1D4D6		<font> 0047
+1D4D7		<font> 0048
+1D4D8		<font> 0049
+1D4D9		<font> 004A
+1D4DA		<font> 004B
+1D4DB		<font> 004C
+1D4DC		<font> 004D
+1D4DD		<font> 004E
+1D4DE		<font> 004F
+1D4DF		<font> 0050
+1D4E0		<font> 0051
+1D4E1		<font> 0052
+1D4E2		<font> 0053
+1D4E3		<font> 0054
+1D4E4		<font> 0055
+1D4E5		<font> 0056
+1D4E6		<font> 0057
+1D4E7		<font> 0058
+1D4E8		<font> 0059
+1D4E9		<font> 005A
+1D4EA		<font> 0061
+1D4EB		<font> 0062
+1D4EC		<font> 0063
+1D4ED		<font> 0064
+1D4EE		<font> 0065
+1D4EF		<font> 0066
+1D4F0		<font> 0067
+1D4F1		<font> 0068
+1D4F2		<font> 0069
+1D4F3		<font> 006A
+1D4F4		<font> 006B
+1D4F5		<font> 006C
+1D4F6		<font> 006D
+1D4F7		<font> 006E
+1D4F8		<font> 006F
+1D4F9		<font> 0070
+1D4FA		<font> 0071
+1D4FB		<font> 0072
+1D4FC		<font> 0073
+1D4FD		<font> 0074
+1D4FE		<font> 0075
+1D4FF		<font> 0076
+1D500		<font> 0077
+1D501		<font> 0078
+1D502		<font> 0079
+1D503		<font> 007A
+1D504		<font> 0041
+1D505		<font> 0042
+1D507		<font> 0044
+1D508		<font> 0045
+1D509		<font> 0046
+1D50A		<font> 0047
+1D50D		<font> 004A
+1D50E		<font> 004B
+1D50F		<font> 004C
+1D510		<font> 004D
+1D511		<font> 004E
+1D512		<font> 004F
+1D513		<font> 0050
+1D514		<font> 0051
+1D516		<font> 0053
+1D517		<font> 0054
+1D518		<font> 0055
+1D519		<font> 0056
+1D51A		<font> 0057
+1D51B		<font> 0058
+1D51C		<font> 0059
+1D51E		<font> 0061
+1D51F		<font> 0062
+1D520		<font> 0063
+1D521		<font> 0064
+1D522		<font> 0065
+1D523		<font> 0066
+1D524		<font> 0067
+1D525		<font> 0068
+1D526		<font> 0069
+1D527		<font> 006A
+1D528		<font> 006B
+1D529		<font> 006C
+1D52A		<font> 006D
+1D52B		<font> 006E
+1D52C		<font> 006F
+1D52D		<font> 0070
+1D52E		<font> 0071
+1D52F		<font> 0072
+1D530		<font> 0073
+1D531		<font> 0074
+1D532		<font> 0075
+1D533		<font> 0076
+1D534		<font> 0077
+1D535		<font> 0078
+1D536		<font> 0079
+1D537		<font> 007A
+1D538		<font> 0041
+1D539		<font> 0042
+1D53B		<font> 0044
+1D53C		<font> 0045
+1D53D		<font> 0046
+1D53E		<font> 0047
+1D540		<font> 0049
+1D541		<font> 004A
+1D542		<font> 004B
+1D543		<font> 004C
+1D544		<font> 004D
+1D546		<font> 004F
+1D54A		<font> 0053
+1D54B		<font> 0054
+1D54C		<font> 0055
+1D54D		<font> 0056
+1D54E		<font> 0057
+1D54F		<font> 0058
+1D550		<font> 0059
+1D552		<font> 0061
+1D553		<font> 0062
+1D554		<font> 0063
+1D555		<font> 0064
+1D556		<font> 0065
+1D557		<font> 0066
+1D558		<font> 0067
+1D559		<font> 0068
+1D55A		<font> 0069
+1D55B		<font> 006A
+1D55C		<font> 006B
+1D55D		<font> 006C
+1D55E		<font> 006D
+1D55F		<font> 006E
+1D560		<font> 006F
+1D561		<font> 0070
+1D562		<font> 0071
+1D563		<font> 0072
+1D564		<font> 0073
+1D565		<font> 0074
+1D566		<font> 0075
+1D567		<font> 0076
+1D568		<font> 0077
+1D569		<font> 0078
+1D56A		<font> 0079
+1D56B		<font> 007A
+1D56C		<font> 0041
+1D56D		<font> 0042
+1D56E		<font> 0043
+1D56F		<font> 0044
+1D570		<font> 0045
+1D571		<font> 0046
+1D572		<font> 0047
+1D573		<font> 0048
+1D574		<font> 0049
+1D575		<font> 004A
+1D576		<font> 004B
+1D577		<font> 004C
+1D578		<font> 004D
+1D579		<font> 004E
+1D57A		<font> 004F
+1D57B		<font> 0050
+1D57C		<font> 0051
+1D57D		<font> 0052
+1D57E		<font> 0053
+1D57F		<font> 0054
+1D580		<font> 0055
+1D581		<font> 0056
+1D582		<font> 0057
+1D583		<font> 0058
+1D584		<font> 0059
+1D585		<font> 005A
+1D586		<font> 0061
+1D587		<font> 0062
+1D588		<font> 0063
+1D589		<font> 0064
+1D58A		<font> 0065
+1D58B		<font> 0066
+1D58C		<font> 0067
+1D58D		<font> 0068
+1D58E		<font> 0069
+1D58F		<font> 006A
+1D590		<font> 006B
+1D591		<font> 006C
+1D592		<font> 006D
+1D593		<font> 006E
+1D594		<font> 006F
+1D595		<font> 0070
+1D596		<font> 0071
+1D597		<font> 0072
+1D598		<font> 0073
+1D599		<font> 0074
+1D59A		<font> 0075
+1D59B		<font> 0076
+1D59C		<font> 0077
+1D59D		<font> 0078
+1D59E		<font> 0079
+1D59F		<font> 007A
+1D5A0		<font> 0041
+1D5A1		<font> 0042
+1D5A2		<font> 0043
+1D5A3		<font> 0044
+1D5A4		<font> 0045
+1D5A5		<font> 0046
+1D5A6		<font> 0047
+1D5A7		<font> 0048
+1D5A8		<font> 0049
+1D5A9		<font> 004A
+1D5AA		<font> 004B
+1D5AB		<font> 004C
+1D5AC		<font> 004D
+1D5AD		<font> 004E
+1D5AE		<font> 004F
+1D5AF		<font> 0050
+1D5B0		<font> 0051
+1D5B1		<font> 0052
+1D5B2		<font> 0053
+1D5B3		<font> 0054
+1D5B4		<font> 0055
+1D5B5		<font> 0056
+1D5B6		<font> 0057
+1D5B7		<font> 0058
+1D5B8		<font> 0059
+1D5B9		<font> 005A
+1D5BA		<font> 0061
+1D5BB		<font> 0062
+1D5BC		<font> 0063
+1D5BD		<font> 0064
+1D5BE		<font> 0065
+1D5BF		<font> 0066
+1D5C0		<font> 0067
+1D5C1		<font> 0068
+1D5C2		<font> 0069
+1D5C3		<font> 006A
+1D5C4		<font> 006B
+1D5C5		<font> 006C
+1D5C6		<font> 006D
+1D5C7		<font> 006E
+1D5C8		<font> 006F
+1D5C9		<font> 0070
+1D5CA		<font> 0071
+1D5CB		<font> 0072
+1D5CC		<font> 0073
+1D5CD		<font> 0074
+1D5CE		<font> 0075
+1D5CF		<font> 0076
+1D5D0		<font> 0077
+1D5D1		<font> 0078
+1D5D2		<font> 0079
+1D5D3		<font> 007A
+1D5D4		<font> 0041
+1D5D5		<font> 0042
+1D5D6		<font> 0043
+1D5D7		<font> 0044
+1D5D8		<font> 0045
+1D5D9		<font> 0046
+1D5DA		<font> 0047
+1D5DB		<font> 0048
+1D5DC		<font> 0049
+1D5DD		<font> 004A
+1D5DE		<font> 004B
+1D5DF		<font> 004C
+1D5E0		<font> 004D
+1D5E1		<font> 004E
+1D5E2		<font> 004F
+1D5E3		<font> 0050
+1D5E4		<font> 0051
+1D5E5		<font> 0052
+1D5E6		<font> 0053
+1D5E7		<font> 0054
+1D5E8		<font> 0055
+1D5E9		<font> 0056
+1D5EA		<font> 0057
+1D5EB		<font> 0058
+1D5EC		<font> 0059
+1D5ED		<font> 005A
+1D5EE		<font> 0061
+1D5EF		<font> 0062
+1D5F0		<font> 0063
+1D5F1		<font> 0064
+1D5F2		<font> 0065
+1D5F3		<font> 0066
+1D5F4		<font> 0067
+1D5F5		<font> 0068
+1D5F6		<font> 0069
+1D5F7		<font> 006A
+1D5F8		<font> 006B
+1D5F9		<font> 006C
+1D5FA		<font> 006D
+1D5FB		<font> 006E
+1D5FC		<font> 006F
+1D5FD		<font> 0070
+1D5FE		<font> 0071
+1D5FF		<font> 0072
+1D600		<font> 0073
+1D601		<font> 0074
+1D602		<font> 0075
+1D603		<font> 0076
+1D604		<font> 0077
+1D605		<font> 0078
+1D606		<font> 0079
+1D607		<font> 007A
+1D608		<font> 0041
+1D609		<font> 0042
+1D60A		<font> 0043
+1D60B		<font> 0044
+1D60C		<font> 0045
+1D60D		<font> 0046
+1D60E		<font> 0047
+1D60F		<font> 0048
+1D610		<font> 0049
+1D611		<font> 004A
+1D612		<font> 004B
+1D613		<font> 004C
+1D614		<font> 004D
+1D615		<font> 004E
+1D616		<font> 004F
+1D617		<font> 0050
+1D618		<font> 0051
+1D619		<font> 0052
+1D61A		<font> 0053
+1D61B		<font> 0054
+1D61C		<font> 0055
+1D61D		<font> 0056
+1D61E		<font> 0057
+1D61F		<font> 0058
+1D620		<font> 0059
+1D621		<font> 005A
+1D622		<font> 0061
+1D623		<font> 0062
+1D624		<font> 0063
+1D625		<font> 0064
+1D626		<font> 0065
+1D627		<font> 0066
+1D628		<font> 0067
+1D629		<font> 0068
+1D62A		<font> 0069
+1D62B		<font> 006A
+1D62C		<font> 006B
+1D62D		<font> 006C
+1D62E		<font> 006D
+1D62F		<font> 006E
+1D630		<font> 006F
+1D631		<font> 0070
+1D632		<font> 0071
+1D633		<font> 0072
+1D634		<font> 0073
+1D635		<font> 0074
+1D636		<font> 0075
+1D637		<font> 0076
+1D638		<font> 0077
+1D639		<font> 0078
+1D63A		<font> 0079
+1D63B		<font> 007A
+1D63C		<font> 0041
+1D63D		<font> 0042
+1D63E		<font> 0043
+1D63F		<font> 0044
+1D640		<font> 0045
+1D641		<font> 0046
+1D642		<font> 0047
+1D643		<font> 0048
+1D644		<font> 0049
+1D645		<font> 004A
+1D646		<font> 004B
+1D647		<font> 004C
+1D648		<font> 004D
+1D649		<font> 004E
+1D64A		<font> 004F
+1D64B		<font> 0050
+1D64C		<font> 0051
+1D64D		<font> 0052
+1D64E		<font> 0053
+1D64F		<font> 0054
+1D650		<font> 0055
+1D651		<font> 0056
+1D652		<font> 0057
+1D653		<font> 0058
+1D654		<font> 0059
+1D655		<font> 005A
+1D656		<font> 0061
+1D657		<font> 0062
+1D658		<font> 0063
+1D659		<font> 0064
+1D65A		<font> 0065
+1D65B		<font> 0066
+1D65C		<font> 0067
+1D65D		<font> 0068
+1D65E		<font> 0069
+1D65F		<font> 006A
+1D660		<font> 006B
+1D661		<font> 006C
+1D662		<font> 006D
+1D663		<font> 006E
+1D664		<font> 006F
+1D665		<font> 0070
+1D666		<font> 0071
+1D667		<font> 0072
+1D668		<font> 0073
+1D669		<font> 0074
+1D66A		<font> 0075
+1D66B		<font> 0076
+1D66C		<font> 0077
+1D66D		<font> 0078
+1D66E		<font> 0079
+1D66F		<font> 007A
+1D670		<font> 0041
+1D671		<font> 0042
+1D672		<font> 0043
+1D673		<font> 0044
+1D674		<font> 0045
+1D675		<font> 0046
+1D676		<font> 0047
+1D677		<font> 0048
+1D678		<font> 0049
+1D679		<font> 004A
+1D67A		<font> 004B
+1D67B		<font> 004C
+1D67C		<font> 004D
+1D67D		<font> 004E
+1D67E		<font> 004F
+1D67F		<font> 0050
+1D680		<font> 0051
+1D681		<font> 0052
+1D682		<font> 0053
+1D683		<font> 0054
+1D684		<font> 0055
+1D685		<font> 0056
+1D686		<font> 0057
+1D687		<font> 0058
+1D688		<font> 0059
+1D689		<font> 005A
+1D68A		<font> 0061
+1D68B		<font> 0062
+1D68C		<font> 0063
+1D68D		<font> 0064
+1D68E		<font> 0065
+1D68F		<font> 0066
+1D690		<font> 0067
+1D691		<font> 0068
+1D692		<font> 0069
+1D693		<font> 006A
+1D694		<font> 006B
+1D695		<font> 006C
+1D696		<font> 006D
+1D697		<font> 006E
+1D698		<font> 006F
+1D699		<font> 0070
+1D69A		<font> 0071
+1D69B		<font> 0072
+1D69C		<font> 0073
+1D69D		<font> 0074
+1D69E		<font> 0075
+1D69F		<font> 0076
+1D6A0		<font> 0077
+1D6A1		<font> 0078
+1D6A2		<font> 0079
+1D6A3		<font> 007A
+1D6A4		<font> 0131
+1D6A5		<font> 0237
+1D6A8		<font> 0391
+1D6A9		<font> 0392
+1D6AA		<font> 0393
+1D6AB		<font> 0394
+1D6AC		<font> 0395
+1D6AD		<font> 0396
+1D6AE		<font> 0397
+1D6AF		<font> 0398
+1D6B0		<font> 0399
+1D6B1		<font> 039A
+1D6B2		<font> 039B
+1D6B3		<font> 039C
+1D6B4		<font> 039D
+1D6B5		<font> 039E
+1D6B6		<font> 039F
+1D6B7		<font> 03A0
+1D6B8		<font> 03A1
+1D6B9		<font> 03F4
+1D6BA		<font> 03A3
+1D6BB		<font> 03A4
+1D6BC		<font> 03A5
+1D6BD		<font> 03A6
+1D6BE		<font> 03A7
+1D6BF		<font> 03A8
+1D6C0		<font> 03A9
+1D6C1		<font> 2207
+1D6C2		<font> 03B1
+1D6C3		<font> 03B2
+1D6C4		<font> 03B3
+1D6C5		<font> 03B4
+1D6C6		<font> 03B5
+1D6C7		<font> 03B6
+1D6C8		<font> 03B7
+1D6C9		<font> 03B8
+1D6CA		<font> 03B9
+1D6CB		<font> 03BA
+1D6CC		<font> 03BB
+1D6CD		<font> 03BC
+1D6CE		<font> 03BD
+1D6CF		<font> 03BE
+1D6D0		<font> 03BF
+1D6D1		<font> 03C0
+1D6D2		<font> 03C1
+1D6D3		<font> 03C2
+1D6D4		<font> 03C3
+1D6D5		<font> 03C4
+1D6D6		<font> 03C5
+1D6D7		<font> 03C6
+1D6D8		<font> 03C7
+1D6D9		<font> 03C8
+1D6DA		<font> 03C9
+1D6DB		<font> 2202
+1D6DC		<font> 03F5
+1D6DD		<font> 03D1
+1D6DE		<font> 03F0
+1D6DF		<font> 03D5
+1D6E0		<font> 03F1
+1D6E1		<font> 03D6
+1D6E2		<font> 0391
+1D6E3		<font> 0392
+1D6E4		<font> 0393
+1D6E5		<font> 0394
+1D6E6		<font> 0395
+1D6E7		<font> 0396
+1D6E8		<font> 0397
+1D6E9		<font> 0398
+1D6EA		<font> 0399
+1D6EB		<font> 039A
+1D6EC		<font> 039B
+1D6ED		<font> 039C
+1D6EE		<font> 039D
+1D6EF		<font> 039E
+1D6F0		<font> 039F
+1D6F1		<font> 03A0
+1D6F2		<font> 03A1
+1D6F3		<font> 03F4
+1D6F4		<font> 03A3
+1D6F5		<font> 03A4
+1D6F6		<font> 03A5
+1D6F7		<font> 03A6
+1D6F8		<font> 03A7
+1D6F9		<font> 03A8
+1D6FA		<font> 03A9
+1D6FB		<font> 2207
+1D6FC		<font> 03B1
+1D6FD		<font> 03B2
+1D6FE		<font> 03B3
+1D6FF		<font> 03B4
+1D700		<font> 03B5
+1D701		<font> 03B6
+1D702		<font> 03B7
+1D703		<font> 03B8
+1D704		<font> 03B9
+1D705		<font> 03BA
+1D706		<font> 03BB
+1D707		<font> 03BC
+1D708		<font> 03BD
+1D709		<font> 03BE
+1D70A		<font> 03BF
+1D70B		<font> 03C0
+1D70C		<font> 03C1
+1D70D		<font> 03C2
+1D70E		<font> 03C3
+1D70F		<font> 03C4
+1D710		<font> 03C5
+1D711		<font> 03C6
+1D712		<font> 03C7
+1D713		<font> 03C8
+1D714		<font> 03C9
+1D715		<font> 2202
+1D716		<font> 03F5
+1D717		<font> 03D1
+1D718		<font> 03F0
+1D719		<font> 03D5
+1D71A		<font> 03F1
+1D71B		<font> 03D6
+1D71C		<font> 0391
+1D71D		<font> 0392
+1D71E		<font> 0393
+1D71F		<font> 0394
+1D720		<font> 0395
+1D721		<font> 0396
+1D722		<font> 0397
+1D723		<font> 0398
+1D724		<font> 0399
+1D725		<font> 039A
+1D726		<font> 039B
+1D727		<font> 039C
+1D728		<font> 039D
+1D729		<font> 039E
+1D72A		<font> 039F
+1D72B		<font> 03A0
+1D72C		<font> 03A1
+1D72D		<font> 03F4
+1D72E		<font> 03A3
+1D72F		<font> 03A4
+1D730		<font> 03A5
+1D731		<font> 03A6
+1D732		<font> 03A7
+1D733		<font> 03A8
+1D734		<font> 03A9
+1D735		<font> 2207
+1D736		<font> 03B1
+1D737		<font> 03B2
+1D738		<font> 03B3
+1D739		<font> 03B4
+1D73A		<font> 03B5
+1D73B		<font> 03B6
+1D73C		<font> 03B7
+1D73D		<font> 03B8
+1D73E		<font> 03B9
+1D73F		<font> 03BA
+1D740		<font> 03BB
+1D741		<font> 03BC
+1D742		<font> 03BD
+1D743		<font> 03BE
+1D744		<font> 03BF
+1D745		<font> 03C0
+1D746		<font> 03C1
+1D747		<font> 03C2
+1D748		<font> 03C3
+1D749		<font> 03C4
+1D74A		<font> 03C5
+1D74B		<font> 03C6
+1D74C		<font> 03C7
+1D74D		<font> 03C8
+1D74E		<font> 03C9
+1D74F		<font> 2202
+1D750		<font> 03F5
+1D751		<font> 03D1
+1D752		<font> 03F0
+1D753		<font> 03D5
+1D754		<font> 03F1
+1D755		<font> 03D6
+1D756		<font> 0391
+1D757		<font> 0392
+1D758		<font> 0393
+1D759		<font> 0394
+1D75A		<font> 0395
+1D75B		<font> 0396
+1D75C		<font> 0397
+1D75D		<font> 0398
+1D75E		<font> 0399
+1D75F		<font> 039A
+1D760		<font> 039B
+1D761		<font> 039C
+1D762		<font> 039D
+1D763		<font> 039E
+1D764		<font> 039F
+1D765		<font> 03A0
+1D766		<font> 03A1
+1D767		<font> 03F4
+1D768		<font> 03A3
+1D769		<font> 03A4
+1D76A		<font> 03A5
+1D76B		<font> 03A6
+1D76C		<font> 03A7
+1D76D		<font> 03A8
+1D76E		<font> 03A9
+1D76F		<font> 2207
+1D770		<font> 03B1
+1D771		<font> 03B2
+1D772		<font> 03B3
+1D773		<font> 03B4
+1D774		<font> 03B5
+1D775		<font> 03B6
+1D776		<font> 03B7
+1D777		<font> 03B8
+1D778		<font> 03B9
+1D779		<font> 03BA
+1D77A		<font> 03BB
+1D77B		<font> 03BC
+1D77C		<font> 03BD
+1D77D		<font> 03BE
+1D77E		<font> 03BF
+1D77F		<font> 03C0
+1D780		<font> 03C1
+1D781		<font> 03C2
+1D782		<font> 03C3
+1D783		<font> 03C4
+1D784		<font> 03C5
+1D785		<font> 03C6
+1D786		<font> 03C7
+1D787		<font> 03C8
+1D788		<font> 03C9
+1D789		<font> 2202
+1D78A		<font> 03F5
+1D78B		<font> 03D1
+1D78C		<font> 03F0
+1D78D		<font> 03D5
+1D78E		<font> 03F1
+1D78F		<font> 03D6
+1D790		<font> 0391
+1D791		<font> 0392
+1D792		<font> 0393
+1D793		<font> 0394
+1D794		<font> 0395
+1D795		<font> 0396
+1D796		<font> 0397
+1D797		<font> 0398
+1D798		<font> 0399
+1D799		<font> 039A
+1D79A		<font> 039B
+1D79B		<font> 039C
+1D79C		<font> 039D
+1D79D		<font> 039E
+1D79E		<font> 039F
+1D79F		<font> 03A0
+1D7A0		<font> 03A1
+1D7A1		<font> 03F4
+1D7A2		<font> 03A3
+1D7A3		<font> 03A4
+1D7A4		<font> 03A5
+1D7A5		<font> 03A6
+1D7A6		<font> 03A7
+1D7A7		<font> 03A8
+1D7A8		<font> 03A9
+1D7A9		<font> 2207
+1D7AA		<font> 03B1
+1D7AB		<font> 03B2
+1D7AC		<font> 03B3
+1D7AD		<font> 03B4
+1D7AE		<font> 03B5
+1D7AF		<font> 03B6
+1D7B0		<font> 03B7
+1D7B1		<font> 03B8
+1D7B2		<font> 03B9
+1D7B3		<font> 03BA
+1D7B4		<font> 03BB
+1D7B5		<font> 03BC
+1D7B6		<font> 03BD
+1D7B7		<font> 03BE
+1D7B8		<font> 03BF
+1D7B9		<font> 03C0
+1D7BA		<font> 03C1
+1D7BB		<font> 03C2
+1D7BC		<font> 03C3
+1D7BD		<font> 03C4
+1D7BE		<font> 03C5
+1D7BF		<font> 03C6
+1D7C0		<font> 03C7
+1D7C1		<font> 03C8
+1D7C2		<font> 03C9
+1D7C3		<font> 2202
+1D7C4		<font> 03F5
+1D7C5		<font> 03D1
+1D7C6		<font> 03F0
+1D7C7		<font> 03D5
+1D7C8		<font> 03F1
+1D7C9		<font> 03D6
+1D7CA		<font> 03DC
+1D7CB		<font> 03DD
+1D7CE		<font> 0030
+1D7CF		<font> 0031
+1D7D0		<font> 0032
+1D7D1		<font> 0033
+1D7D2		<font> 0034
+1D7D3		<font> 0035
+1D7D4		<font> 0036
+1D7D5		<font> 0037
+1D7D6		<font> 0038
+1D7D7		<font> 0039
+1D7D8		<font> 0030
+1D7D9		<font> 0031
+1D7DA		<font> 0032
+1D7DB		<font> 0033
+1D7DC		<font> 0034
+1D7DD		<font> 0035
+1D7DE		<font> 0036
+1D7DF		<font> 0037
+1D7E0		<font> 0038
+1D7E1		<font> 0039
+1D7E2		<font> 0030
+1D7E3		<font> 0031
+1D7E4		<font> 0032
+1D7E5		<font> 0033
+1D7E6		<font> 0034
+1D7E7		<font> 0035
+1D7E8		<font> 0036
+1D7E9		<font> 0037
+1D7EA		<font> 0038
+1D7EB		<font> 0039
+1D7EC		<font> 0030
+1D7ED		<font> 0031
+1D7EE		<font> 0032
+1D7EF		<font> 0033
+1D7F0		<font> 0034
+1D7F1		<font> 0035
+1D7F2		<font> 0036
+1D7F3		<font> 0037
+1D7F4		<font> 0038
+1D7F5		<font> 0039
+1D7F6		<font> 0030
+1D7F7		<font> 0031
+1D7F8		<font> 0032
+1D7F9		<font> 0033
+1D7FA		<font> 0034
+1D7FB		<font> 0035
+1D7FC		<font> 0036
+1D7FD		<font> 0037
+1D7FE		<font> 0038
+1D7FF		<font> 0039
+1EE00		<font> 0627
+1EE01		<font> 0628
+1EE02		<font> 062C
+1EE03		<font> 062F
+1EE05		<font> 0648
+1EE06		<font> 0632
+1EE07		<font> 062D
+1EE08		<font> 0637
+1EE09		<font> 064A
+1EE0A		<font> 0643
+1EE0B		<font> 0644
+1EE0C		<font> 0645
+1EE0D		<font> 0646
+1EE0E		<font> 0633
+1EE0F		<font> 0639
+1EE10		<font> 0641
+1EE11		<font> 0635
+1EE12		<font> 0642
+1EE13		<font> 0631
+1EE14		<font> 0634
+1EE15		<font> 062A
+1EE16		<font> 062B
+1EE17		<font> 062E
+1EE18		<font> 0630
+1EE19		<font> 0636
+1EE1A		<font> 0638
+1EE1B		<font> 063A
+1EE1C		<font> 066E
+1EE1D		<font> 06BA
+1EE1E		<font> 06A1
+1EE1F		<font> 066F
+1EE21		<font> 0628
+1EE22		<font> 062C
+1EE24		<font> 0647
+1EE27		<font> 062D
+1EE29		<font> 064A
+1EE2A		<font> 0643
+1EE2B		<font> 0644
+1EE2C		<font> 0645
+1EE2D		<font> 0646
+1EE2E		<font> 0633
+1EE2F		<font> 0639
+1EE30		<font> 0641
+1EE31		<font> 0635
+1EE32		<font> 0642
+1EE34		<font> 0634
+1EE35		<font> 062A
+1EE36		<font> 062B
+1EE37		<font> 062E
+1EE39		<font> 0636
+1EE3B		<font> 063A
+1EE42		<font> 062C
+1EE47		<font> 062D
+1EE49		<font> 064A
+1EE4B		<font> 0644
+1EE4D		<font> 0646
+1EE4E		<font> 0633
+1EE4F		<font> 0639
+1EE51		<font> 0635
+1EE52		<font> 0642
+1EE54		<font> 0634
+1EE57		<font> 062E
+1EE59		<font> 0636
+1EE5B		<font> 063A
+1EE5D		<font> 06BA
+1EE5F		<font> 066F
+1EE61		<font> 0628
+1EE62		<font> 062C
+1EE64		<font> 0647
+1EE67		<font> 062D
+1EE68		<font> 0637
+1EE69		<font> 064A
+1EE6A		<font> 0643
+1EE6C		<font> 0645
+1EE6D		<font> 0646
+1EE6E		<font> 0633
+1EE6F		<font> 0639
+1EE70		<font> 0641
+1EE71		<font> 0635
+1EE72		<font> 0642
+1EE74		<font> 0634
+1EE75		<font> 062A
+1EE76		<font> 062B
+1EE77		<font> 062E
+1EE79		<font> 0636
+1EE7A		<font> 0638
+1EE7B		<font> 063A
+1EE7C		<font> 066E
+1EE7E		<font> 06A1
+1EE80		<font> 0627
+1EE81		<font> 0628
+1EE82		<font> 062C
+1EE83		<font> 062F
+1EE84		<font> 0647
+1EE85		<font> 0648
+1EE86		<font> 0632
+1EE87		<font> 062D
+1EE88		<font> 0637
+1EE89		<font> 064A
+1EE8B		<font> 0644
+1EE8C		<font> 0645
+1EE8D		<font> 0646
+1EE8E		<font> 0633
+1EE8F		<font> 0639
+1EE90		<font> 0641
+1EE91		<font> 0635
+1EE92		<font> 0642
+1EE93		<font> 0631
+1EE94		<font> 0634
+1EE95		<font> 062A
+1EE96		<font> 062B
+1EE97		<font> 062E
+1EE98		<font> 0630
+1EE99		<font> 0636
+1EE9A		<font> 0638
+1EE9B		<font> 063A
+1EEA1		<font> 0628
+1EEA2		<font> 062C
+1EEA3		<font> 062F
+1EEA5		<font> 0648
+1EEA6		<font> 0632
+1EEA7		<font> 062D
+1EEA8		<font> 0637
+1EEA9		<font> 064A
+1EEAB		<font> 0644
+1EEAC		<font> 0645
+1EEAD		<font> 0646
+1EEAE		<font> 0633
+1EEAF		<font> 0639
+1EEB0		<font> 0641
+1EEB1		<font> 0635
+1EEB2		<font> 0642
+1EEB3		<font> 0631
+1EEB4		<font> 0634
+1EEB5		<font> 062A
+1EEB6		<font> 062B
+1EEB7		<font> 062E
+1EEB8		<font> 0630
+1EEB9		<font> 0636
+1EEBA		<font> 0638
+1EEBB		<font> 063A
+1F100		<compat> 0030 002E
+1F101		<compat> 0030 002C
+1F102		<compat> 0031 002C
+1F103		<compat> 0032 002C
+1F104		<compat> 0033 002C
+1F105		<compat> 0034 002C
+1F106		<compat> 0035 002C
+1F107		<compat> 0036 002C
+1F108		<compat> 0037 002C
+1F109		<compat> 0038 002C
+1F10A		<compat> 0039 002C
+1F110		<compat> 0028 0041 0029
+1F111		<compat> 0028 0042 0029
+1F112		<compat> 0028 0043 0029
+1F113		<compat> 0028 0044 0029
+1F114		<compat> 0028 0045 0029
+1F115		<compat> 0028 0046 0029
+1F116		<compat> 0028 0047 0029
+1F117		<compat> 0028 0048 0029
+1F118		<compat> 0028 0049 0029
+1F119		<compat> 0028 004A 0029
+1F11A		<compat> 0028 004B 0029
+1F11B		<compat> 0028 004C 0029
+1F11C		<compat> 0028 004D 0029
+1F11D		<compat> 0028 004E 0029
+1F11E		<compat> 0028 004F 0029
+1F11F		<compat> 0028 0050 0029
+1F120		<compat> 0028 0051 0029
+1F121		<compat> 0028 0052 0029
+1F122		<compat> 0028 0053 0029
+1F123		<compat> 0028 0054 0029
+1F124		<compat> 0028 0055 0029
+1F125		<compat> 0028 0056 0029
+1F126		<compat> 0028 0057 0029
+1F127		<compat> 0028 0058 0029
+1F128		<compat> 0028 0059 0029
+1F129		<compat> 0028 005A 0029
+1F12A		<compat> 3014 0053 3015
+1F12B		<circle> 0043
+1F12C		<circle> 0052
+1F12D		<circle> 0043 0044
+1F12E		<circle> 0057 005A
+1F130		<square> 0041
+1F131		<square> 0042
+1F132		<square> 0043
+1F133		<square> 0044
+1F134		<square> 0045
+1F135		<square> 0046
+1F136		<square> 0047
+1F137		<square> 0048
+1F138		<square> 0049
+1F139		<square> 004A
+1F13A		<square> 004B
+1F13B		<square> 004C
+1F13C		<square> 004D
+1F13D		<square> 004E
+1F13E		<square> 004F
+1F13F		<square> 0050
+1F140		<square> 0051
+1F141		<square> 0052
+1F142		<square> 0053
+1F143		<square> 0054
+1F144		<square> 0055
+1F145		<square> 0056
+1F146		<square> 0057
+1F147		<square> 0058
+1F148		<square> 0059
+1F149		<square> 005A
+1F14A		<square> 0048 0056
+1F14B		<square> 004D 0056
+1F14C		<square> 0053 0044
+1F14D		<square> 0053 0053
+1F14E		<square> 0050 0050 0056
+1F14F		<square> 0057 0043
+1F16A		<super> 004D 0043
+1F16B		<super> 004D 0044
+1F190		<square> 0044 004A
+1F200		<square> 307B 304B
+1F201		<square> 30B3 30B3
+1F202		<square> 30B5
+1F210		<square> 624B
+1F211		<square> 5B57
+1F212		<square> 53CC
+1F213		<square> 30C7
+1F214		<square> 4E8C
+1F215		<square> 591A
+1F216		<square> 89E3
+1F217		<square> 5929
+1F218		<square> 4EA4
+1F219		<square> 6620
+1F21A		<square> 7121
+1F21B		<square> 6599
+1F21C		<square> 524D
+1F21D		<square> 5F8C
+1F21E		<square> 518D
+1F21F		<square> 65B0
+1F220		<square> 521D
+1F221		<square> 7D42
+1F222		<square> 751F
+1F223		<square> 8CA9
+1F224		<square> 58F0
+1F225		<square> 5439
+1F226		<square> 6F14
+1F227		<square> 6295
+1F228		<square> 6355
+1F229		<square> 4E00
+1F22A		<square> 4E09
+1F22B		<square> 904A
+1F22C		<square> 5DE6
+1F22D		<square> 4E2D
+1F22E		<square> 53F3
+1F22F		<square> 6307
+1F230		<square> 8D70
+1F231		<square> 6253
+1F232		<square> 7981
+1F233		<square> 7A7A
+1F234		<square> 5408
+1F235		<square> 6E80
+1F236		<square> 6709
+1F237		<square> 6708
+1F238		<square> 7533
+1F239		<square> 5272
+1F23A		<square> 55B6
+1F23B		<square> 914D
+1F240		<compat> 3014 672C 3015
+1F241		<compat> 3014 4E09 3015
+1F242		<compat> 3014 4E8C 3015
+1F243		<compat> 3014 5B89 3015
+1F244		<compat> 3014 70B9 3015
+1F245		<compat> 3014 6253 3015
+1F246		<compat> 3014 76D7 3015
+1F247		<compat> 3014 52DD 3015
+1F248		<compat> 3014 6557 3015
+1F250		<circle> 5F97
+1F251		<circle> 53EF
+2F800		4E3D
+2F801		4E38
+2F802		4E41
+2F803		20122
+2F804		4F60
+2F805		4FAE
+2F806		4FBB
+2F807		5002
+2F808		507A
+2F809		5099
+2F80A		50E7
+2F80B		50CF
+2F80C		349E
+2F80D		2063A
+2F80E		514D
+2F80F		5154
+2F810		5164
+2F811		5177
+2F812		2051C
+2F813		34B9
+2F814		5167
+2F815		518D
+2F816		2054B
+2F817		5197
+2F818		51A4
+2F819		4ECC
+2F81A		51AC
+2F81B		51B5
+2F81C		291DF
+2F81D		51F5
+2F81E		5203
+2F81F		34DF
+2F820		523B
+2F821		5246
+2F822		5272
+2F823		5277
+2F824		3515
+2F825		52C7
+2F826		52C9
+2F827		52E4
+2F828		52FA
+2F829		5305
+2F82A		5306
+2F82B		5317
+2F82C		5349
+2F82D		5351
+2F82E		535A
+2F82F		5373
+2F830		537D
+2F831	2F833	537F
+2F834		20A2C
+2F835		7070
+2F836		53CA
+2F837		53DF
+2F838		20B63
+2F839		53EB
+2F83A		53F1
+2F83B		5406
+2F83C		549E
+2F83D		5438
+2F83E		5448
+2F83F		5468
+2F840		54A2
+2F841		54F6
+2F842		5510
+2F843		5553
+2F844		5563
+2F845	2F846	5584
+2F847		5599
+2F848		55AB
+2F849		55B3
+2F84A		55C2
+2F84B		5716
+2F84C		5606
+2F84D		5717
+2F84E		5651
+2F84F		5674
+2F850		5207
+2F851		58EE
+2F852		57CE
+2F853		57F4
+2F854		580D
+2F855		578B
+2F856		5832
+2F857		5831
+2F858		58AC
+2F859		214E4
+2F85A		58F2
+2F85B		58F7
+2F85C		5906
+2F85D		591A
+2F85E		5922
+2F85F		5962
+2F860		216A8
+2F861		216EA
+2F862		59EC
+2F863		5A1B
+2F864		5A27
+2F865		59D8
+2F866		5A66
+2F867		36EE
+2F868		36FC
+2F869		5B08
+2F86A	2F86B	5B3E
+2F86C		219C8
+2F86D		5BC3
+2F86E		5BD8
+2F86F		5BE7
+2F870		5BF3
+2F871		21B18
+2F872		5BFF
+2F873		5C06
+2F874		5F53
+2F875		5C22
+2F876		3781
+2F877		5C60
+2F878		5C6E
+2F879		5CC0
+2F87A		5C8D
+2F87B		21DE4
+2F87C		5D43
+2F87D		21DE6
+2F87E		5D6E
+2F87F		5D6B
+2F880		5D7C
+2F881		5DE1
+2F882		5DE2
+2F883		382F
+2F884		5DFD
+2F885		5E28
+2F886		5E3D
+2F887		5E69
+2F888		3862
+2F889		22183
+2F88A		387C
+2F88B		5EB0
+2F88C		5EB3
+2F88D		5EB6
+2F88E		5ECA
+2F88F		2A392
+2F890		5EFE
+2F891	2F892	22331
+2F893		8201
+2F894	2F895	5F22
+2F896		38C7
+2F897		232B8
+2F898		261DA
+2F899		5F62
+2F89A		5F6B
+2F89B		38E3
+2F89C		5F9A
+2F89D		5FCD
+2F89E		5FD7
+2F89F		5FF9
+2F8A0		6081
+2F8A1		393A
+2F8A2		391C
+2F8A3		6094
+2F8A4		226D4
+2F8A5		60C7
+2F8A6		6148
+2F8A7		614C
+2F8A8		614E
+2F8A9		614C
+2F8AA		617A
+2F8AB		618E
+2F8AC		61B2
+2F8AD		61A4
+2F8AE		61AF
+2F8AF		61DE
+2F8B0		61F2
+2F8B1		61F6
+2F8B2		6210
+2F8B3		621B
+2F8B4		625D
+2F8B5		62B1
+2F8B6		62D4
+2F8B7		6350
+2F8B8		22B0C
+2F8B9		633D
+2F8BA		62FC
+2F8BB		6368
+2F8BC		6383
+2F8BD		63E4
+2F8BE		22BF1
+2F8BF		6422
+2F8C0		63C5
+2F8C1		63A9
+2F8C2		3A2E
+2F8C3		6469
+2F8C4		647E
+2F8C5		649D
+2F8C6		6477
+2F8C7		3A6C
+2F8C8		654F
+2F8C9		656C
+2F8CA		2300A
+2F8CB		65E3
+2F8CC		66F8
+2F8CD		6649
+2F8CE		3B19
+2F8CF		6691
+2F8D0		3B08
+2F8D1		3AE4
+2F8D2		5192
+2F8D3		5195
+2F8D4		6700
+2F8D5		669C
+2F8D6		80AD
+2F8D7		43D9
+2F8D8		6717
+2F8D9		671B
+2F8DA		6721
+2F8DB		675E
+2F8DC		6753
+2F8DD		233C3
+2F8DE		3B49
+2F8DF		67FA
+2F8E0		6785
+2F8E1		6852
+2F8E2		6885
+2F8E3		2346D
+2F8E4		688E
+2F8E5		681F
+2F8E6		6914
+2F8E7		3B9D
+2F8E8		6942
+2F8E9		69A3
+2F8EA		69EA
+2F8EB		6AA8
+2F8EC		236A3
+2F8ED		6ADB
+2F8EE		3C18
+2F8EF		6B21
+2F8F0		238A7
+2F8F1		6B54
+2F8F2		3C4E
+2F8F3		6B72
+2F8F4		6B9F
+2F8F5		6BBA
+2F8F6		6BBB
+2F8F7		23A8D
+2F8F8		21D0B
+2F8F9		23AFA
+2F8FA		6C4E
+2F8FB		23CBC
+2F8FC		6CBF
+2F8FD		6CCD
+2F8FE		6C67
+2F8FF		6D16
+2F900		6D3E
+2F901		6D77
+2F902		6D41
+2F903		6D69
+2F904		6D78
+2F905		6D85
+2F906		23D1E
+2F907		6D34
+2F908		6E2F
+2F909		6E6E
+2F90A		3D33
+2F90B		6ECB
+2F90C		6EC7
+2F90D		23ED1
+2F90E		6DF9
+2F90F		6F6E
+2F910		23F5E
+2F911		23F8E
+2F912		6FC6
+2F913		7039
+2F914		701E
+2F915		701B
+2F916		3D96
+2F917		704A
+2F918		707D
+2F919		7077
+2F91A		70AD
+2F91B		20525
+2F91C		7145
+2F91D		24263
+2F91E		719C
+2F91F		243AB
+2F920		7228
+2F921		7235
+2F922		7250
+2F923		24608
+2F924		7280
+2F925		7295
+2F926		24735
+2F927		24814
+2F928		737A
+2F929		738B
+2F92A		3EAC
+2F92B		73A5
+2F92C	2F92D	3EB8
+2F92E		7447
+2F92F		745C
+2F930		7471
+2F931		7485
+2F932		74CA
+2F933		3F1B
+2F934		7524
+2F935		24C36
+2F936		753E
+2F937		24C92
+2F938		7570
+2F939		2219F
+2F93A		7610
+2F93B		24FA1
+2F93C		24FB8
+2F93D		25044
+2F93E		3FFC
+2F93F		4008
+2F940		76F4
+2F941		250F3
+2F942		250F2
+2F943		25119
+2F944		25133
+2F945		771E
+2F946	2F947	771F
+2F948		774A
+2F949		4039
+2F94A		778B
+2F94B		4046
+2F94C		4096
+2F94D		2541D
+2F94E		784E
+2F94F		788C
+2F950		78CC
+2F951		40E3
+2F952		25626
+2F953		7956
+2F954		2569A
+2F955		256C5
+2F956		798F
+2F957		79EB
+2F958		412F
+2F959		7A40
+2F95A		7A4A
+2F95B		7A4F
+2F95C		2597C
+2F95D	2F95E	25AA7
+2F95F		7AEE
+2F960		4202
+2F961		25BAB
+2F962		7BC6
+2F963		7BC9
+2F964		4227
+2F965		25C80
+2F966		7CD2
+2F967		42A0
+2F968		7CE8
+2F969		7CE3
+2F96A		7D00
+2F96B		25F86
+2F96C		7D63
+2F96D		4301
+2F96E		7DC7
+2F96F		7E02
+2F970		7E45
+2F971		4334
+2F972		26228
+2F973		26247
+2F974		4359
+2F975		262D9
+2F976		7F7A
+2F977		2633E
+2F978		7F95
+2F979		7FFA
+2F97A		8005
+2F97B		264DA
+2F97C		26523
+2F97D		8060
+2F97E		265A8
+2F97F		8070
+2F980		2335F
+2F981		43D5
+2F982		80B2
+2F983		8103
+2F984		440B
+2F985		813E
+2F986		5AB5
+2F987		267A7
+2F988		267B5
+2F989		23393
+2F98A		2339C
+2F98B		8201
+2F98C		8204
+2F98D		8F9E
+2F98E		446B
+2F98F		8291
+2F990		828B
+2F991		829D
+2F992		52B3
+2F993		82B1
+2F994		82B3
+2F995		82BD
+2F996		82E6
+2F997		26B3C
+2F998		82E5
+2F999		831D
+2F99A		8363
+2F99B		83AD
+2F99C		8323
+2F99D		83BD
+2F99E		83E7
+2F99F		8457
+2F9A0		8353
+2F9A1		83CA
+2F9A2		83CC
+2F9A3		83DC
+2F9A4		26C36
+2F9A5		26D6B
+2F9A6		26CD5
+2F9A7		452B
+2F9A8		84F1
+2F9A9		84F3
+2F9AA		8516
+2F9AB		273CA
+2F9AC		8564
+2F9AD		26F2C
+2F9AE		455D
+2F9AF		4561
+2F9B0		26FB1
+2F9B1		270D2
+2F9B2		456B
+2F9B3		8650
+2F9B4		865C
+2F9B5		8667
+2F9B6		8669
+2F9B7		86A9
+2F9B8		8688
+2F9B9		870E
+2F9BA		86E2
+2F9BB		8779
+2F9BC		8728
+2F9BD		876B
+2F9BE		8786
+2F9BF		45D7
+2F9C0		87E1
+2F9C1		8801
+2F9C2		45F9
+2F9C3		8860
+2F9C4		8863
+2F9C5		27667
+2F9C6		88D7
+2F9C7		88DE
+2F9C8		4635
+2F9C9		88FA
+2F9CA		34BB
+2F9CB		278AE
+2F9CC		27966
+2F9CD		46BE
+2F9CE		46C7
+2F9CF		8AA0
+2F9D0		8AED
+2F9D1		8B8A
+2F9D2		8C55
+2F9D3		27CA8
+2F9D4		8CAB
+2F9D5		8CC1
+2F9D6		8D1B
+2F9D7		8D77
+2F9D8		27F2F
+2F9D9		20804
+2F9DA		8DCB
+2F9DB		8DBC
+2F9DC		8DF0
+2F9DD		208DE
+2F9DE		8ED4
+2F9DF		8F38
+2F9E0		285D2
+2F9E1		285ED
+2F9E2		9094
+2F9E3		90F1
+2F9E4		9111
+2F9E5		2872E
+2F9E6		911B
+2F9E7		9238
+2F9E8		92D7
+2F9E9		92D8
+2F9EA		927C
+2F9EB		93F9
+2F9EC		9415
+2F9ED		28BFA
+2F9EE		958B
+2F9EF		4995
+2F9F0		95B7
+2F9F1		28D77
+2F9F2		49E6
+2F9F3		96C3
+2F9F4		5DB2
+2F9F5		9723
+2F9F6		29145
+2F9F7		2921A
+2F9F8		4A6E
+2F9F9		4A76
+2F9FA		97E0
+2F9FB		2940A
+2F9FC		4AB2
+2F9FD		29496
+2F9FE	2F9FF	980B
+2FA00		9829
+2FA01		295B6
+2FA02		98E2
+2FA03		4B33
+2FA04		9929
+2FA05		99A7
+2FA06		99C2
+2FA07		99FE
+2FA08		4BCE
+2FA09		29B30
+2FA0A		9B12
+2FA0B		9C40
+2FA0C		9CFD
+2FA0D		4CCE
+2FA0E		4CED
+2FA0F		9D67
+2FA10		2A0CE
+2FA11		4CF8
+2FA12		2A105
+2FA13		2A20E
+2FA14		2A291
+2FA15		9EBB
+2FA16		4D56
+2FA17		9EF9
+2FA18		9EFE
+2FA19		9F05
+2FA1A		9F0F
+2FA1B		9F16
+2FA1C		9F3B
+2FA1D		2A600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToCombiningClass'}{'format'} = 'i'; # integer
+$utf8::SwashInfo{'ToCombiningClass'}{'missing'} = '0';
+
+return <<'END';
+300	314	230
+315		232
+316	319	220
+31A		232
+31B		216
+31C	320	220
+321	322	202
+323	326	220
+327	328	202
+329	333	220
+334	338	1
+339	33C	220
+33D	344	230
+345		240
+346		230
+347	349	220
+34A	34C	230
+34D	34E	220
+350	352	230
+353	356	220
+357		230
+358		232
+359	35A	220
+35B		230
+35C		233
+35D	35E	234
+35F		233
+360	361	234
+362		233
+363	36F	230
+483	487	230
+591		220
+592	595	230
+596		220
+597	599	230
+59A		222
+59B		220
+59C	5A1	230
+5A2	5A7	220
+5A8	5A9	230
+5AA		220
+5AB	5AC	230
+5AD		222
+5AE		228
+5AF		230
+5B0		10
+5B1		11
+5B2		12
+5B3		13
+5B4		14
+5B5		15
+5B6		16
+5B7		17
+5B8		18
+5B9	5BA	19
+5BB		20
+5BC		21
+5BD		22
+5BF		23
+5C1		24
+5C2		25
+5C4		230
+5C5		220
+5C7		18
+610	617	230
+618		30
+619		31
+61A		32
+64B		27
+64C		28
+64D		29
+64E		30
+64F		31
+650		32
+651		33
+652		34
+653	654	230
+655	656	220
+657	65B	230
+65C		220
+65D	65E	230
+65F		220
+670		35
+6D6	6DC	230
+6DF	6E2	230
+6E3		220
+6E4		230
+6E7	6E8	230
+6EA		220
+6EB	6EC	230
+6ED		220
+711		36
+730		230
+731		220
+732	733	230
+734		220
+735	736	230
+737	739	220
+73A		230
+73B	73C	220
+73D		230
+73E		220
+73F	741	230
+742		220
+743		230
+744		220
+745		230
+746		220
+747		230
+748		220
+749	74A	230
+7EB	7F1	230
+7F2		220
+7F3		230
+816	819	230
+81B	823	230
+825	827	230
+829	82D	230
+859	85B	220
+8D4	8E1	230
+8E3		220
+8E4	8E5	230
+8E6		220
+8E7	8E8	230
+8E9		220
+8EA	8EC	230
+8ED	8EF	220
+8F0		27
+8F1		28
+8F2		29
+8F3	8F5	230
+8F6		220
+8F7	8F8	230
+8F9	8FA	220
+8FB	8FF	230
+93C		7
+94D		9
+951		230
+952		220
+953	954	230
+9BC		7
+9CD		9
+A3C		7
+A4D		9
+ABC		7
+ACD		9
+B3C		7
+B4D		9
+BCD		9
+C4D		9
+C55		84
+C56		91
+CBC		7
+CCD		9
+D3B	D3C	9
+D4D		9
+DCA		9
+E38	E39	103
+E3A		9
+E48	E4B	107
+EB8	EB9	118
+EC8	ECB	122
+F18	F19	220
+F35		220
+F37		220
+F39		216
+F71		129
+F72		130
+F74		132
+F7A	F7D	130
+F80		130
+F82	F83	230
+F84		9
+F86	F87	230
+FC6		220
+1037		7
+1039	103A	9
+108D		220
+135D	135F	230
+1714		9
+1734		9
+17D2		9
+17DD		230
+18A9		228
+1939		222
+193A		230
+193B		220
+1A17		230
+1A18		220
+1A60		9
+1A75	1A7C	230
+1A7F		220
+1AB0	1AB4	230
+1AB5	1ABA	220
+1ABB	1ABC	230
+1ABD		220
+1B34		7
+1B44		9
+1B6B		230
+1B6C		220
+1B6D	1B73	230
+1BAA	1BAB	9
+1BE6		7
+1BF2	1BF3	9
+1C37		7
+1CD0	1CD2	230
+1CD4		1
+1CD5	1CD9	220
+1CDA	1CDB	230
+1CDC	1CDF	220
+1CE0		230
+1CE2	1CE8	1
+1CED		220
+1CF4		230
+1CF8	1CF9	230
+1DC0	1DC1	230
+1DC2		220
+1DC3	1DC9	230
+1DCA		220
+1DCB	1DCC	230
+1DCD		234
+1DCE		214
+1DCF		220
+1DD0		202
+1DD1	1DF5	230
+1DF6		232
+1DF7	1DF8	228
+1DF9		220
+1DFB		230
+1DFC		233
+1DFD		220
+1DFE		230
+1DFF		220
+20D0	20D1	230
+20D2	20D3	1
+20D4	20D7	230
+20D8	20DA	1
+20DB	20DC	230
+20E1		230
+20E5	20E6	1
+20E7		230
+20E8		220
+20E9		230
+20EA	20EB	1
+20EC	20EF	220
+20F0		230
+2CEF	2CF1	230
+2D7F		9
+2DE0	2DFF	230
+302A		218
+302B		228
+302C		232
+302D		222
+302E	302F	224
+3099	309A	8
+A66F		230
+A674	A67D	230
+A69E	A69F	230
+A6F0	A6F1	230
+A806		9
+A8C4		9
+A8E0	A8F1	230
+A92B	A92D	220
+A953		9
+A9B3		7
+A9C0		9
+AAB0		230
+AAB2	AAB3	230
+AAB4		220
+AAB7	AAB8	230
+AABE	AABF	230
+AAC1		230
+AAF6		9
+ABED		9
+FB1E		26
+FE20	FE26	230
+FE27	FE2D	220
+FE2E	FE2F	230
+101FD		220
+102E0		220
+10376	1037A	230
+10A0D		220
+10A0F		230
+10A38		230
+10A39		1
+10A3A		220
+10A3F		9
+10AE5		230
+10AE6		220
+11046		9
+1107F		9
+110B9		9
+110BA		7
+11100	11102	230
+11133	11134	9
+11173		7
+111C0		9
+111CA		7
+11235		9
+11236		7
+112E9		7
+112EA		9
+1133C		7
+1134D		9
+11366	1136C	230
+11370	11374	230
+11442		9
+11446		7
+114C2		9
+114C3		7
+115BF		9
+115C0		7
+1163F		9
+116B6		9
+116B7		7
+1172B		9
+11A34		9
+11A47		9
+11A99		9
+11C3F		9
+11D42		7
+11D44	11D45	9
+16AF0	16AF4	1
+16B30	16B36	230
+1BC9E		1
+1D165	1D166	216
+1D167	1D169	1
+1D16D		226
+1D16E	1D172	216
+1D17B	1D182	220
+1D185	1D189	230
+1D18A	1D18B	220
+1D1AA	1D1AD	230
+1D242	1D244	230
+1E000	1E006	230
+1E008	1E018	230
+1E01B	1E021	230
+1E023	1E024	230
+1E026	1E02A	230
+1E8D0	1E8D6	220
+1E944	1E949	230
+1E94A		7
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToCf'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToCf'}{'specials_name'} = 'utf8::ToSpecCf'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToCf'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecCf = (
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\xB0" => "\x{006A}\x{030C}",             # U+01F0 => 006A 030C
+"\xCE\x90" => "\x{03B9}\x{0308}\x{0301}",     # U+0390 => 03B9 0308 0301
+"\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}",     # U+03B0 => 03C5 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xE1\xBA\x96" => "\x{0068}\x{0331}",         # U+1E96 => 0068 0331
+"\xE1\xBA\x97" => "\x{0074}\x{0308}",         # U+1E97 => 0074 0308
+"\xE1\xBA\x98" => "\x{0077}\x{030A}",         # U+1E98 => 0077 030A
+"\xE1\xBA\x99" => "\x{0079}\x{030A}",         # U+1E99 => 0079 030A
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBD\x90" => "\x{03C5}\x{0313}",         # U+1F50 => 03C5 0313
+"\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300
+"\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301
+"\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB6" => "\x{03B1}\x{0342}",         # U+1FB6 => 03B1 0342
+"\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x86" => "\x{03B7}\x{0342}",         # U+1FC6 => 03B7 0342
+"\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300
+"\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301
+"\xE1\xBF\x96" => "\x{03B9}\x{0342}",         # U+1FD6 => 03B9 0342
+"\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342
+"\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300
+"\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301
+"\xE1\xBF\xA4" => "\x{03C1}\x{0313}",         # U+1FE4 => 03C1 0313
+"\xE1\xBF\xA6" => "\x{03C5}\x{0342}",         # U+1FE6 => 03C5 0342
+"\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB6" => "\x{03C9}\x{0342}",         # U+1FF6 => 03C9 0342
+"\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+);
+
+return <<'END';
+41	5A	61
+B5		3BC
+C0	D6	E0
+D8	DE	F8
+100		101
+102		103
+104		105
+106		107
+108		109
+10A		10B
+10C		10D
+10E		10F
+110		111
+112		113
+114		115
+116		117
+118		119
+11A		11B
+11C		11D
+11E		11F
+120		121
+122		123
+124		125
+126		127
+128		129
+12A		12B
+12C		12D
+12E		12F
+132		133
+134		135
+136		137
+139		13A
+13B		13C
+13D		13E
+13F		140
+141		142
+143		144
+145		146
+147		148
+14A		14B
+14C		14D
+14E		14F
+150		151
+152		153
+154		155
+156		157
+158		159
+15A		15B
+15C		15D
+15E		15F
+160		161
+162		163
+164		165
+166		167
+168		169
+16A		16B
+16C		16D
+16E		16F
+170		171
+172		173
+174		175
+176		177
+178		FF
+179		17A
+17B		17C
+17D		17E
+17F		73
+181		253
+182		183
+184		185
+186		254
+187		188
+189	18A	256
+18B		18C
+18E		1DD
+18F		259
+190		25B
+191		192
+193		260
+194		263
+196		269
+197		268
+198		199
+19C		26F
+19D		272
+19F		275
+1A0		1A1
+1A2		1A3
+1A4		1A5
+1A6		280
+1A7		1A8
+1A9		283
+1AC		1AD
+1AE		288
+1AF		1B0
+1B1	1B2	28A
+1B3		1B4
+1B5		1B6
+1B7		292
+1B8		1B9
+1BC		1BD
+1C4		1C6
+1C5		1C6
+1C7		1C9
+1C8		1C9
+1CA		1CC
+1CB		1CC
+1CD		1CE
+1CF		1D0
+1D1		1D2
+1D3		1D4
+1D5		1D6
+1D7		1D8
+1D9		1DA
+1DB		1DC
+1DE		1DF
+1E0		1E1
+1E2		1E3
+1E4		1E5
+1E6		1E7
+1E8		1E9
+1EA		1EB
+1EC		1ED
+1EE		1EF
+1F1		1F3
+1F2		1F3
+1F4		1F5
+1F6		195
+1F7		1BF
+1F8		1F9
+1FA		1FB
+1FC		1FD
+1FE		1FF
+200		201
+202		203
+204		205
+206		207
+208		209
+20A		20B
+20C		20D
+20E		20F
+210		211
+212		213
+214		215
+216		217
+218		219
+21A		21B
+21C		21D
+21E		21F
+220		19E
+222		223
+224		225
+226		227
+228		229
+22A		22B
+22C		22D
+22E		22F
+230		231
+232		233
+23A		2C65
+23B		23C
+23D		19A
+23E		2C66
+241		242
+243		180
+244		289
+245		28C
+246		247
+248		249
+24A		24B
+24C		24D
+24E		24F
+345		3B9
+370		371
+372		373
+376		377
+37F		3F3
+386		3AC
+388	38A	3AD
+38C		3CC
+38E	38F	3CD
+391	3A1	3B1
+3A3	3AB	3C3
+3C2		3C3
+3CF		3D7
+3D0		3B2
+3D1		3B8
+3D5		3C6
+3D6		3C0
+3D8		3D9
+3DA		3DB
+3DC		3DD
+3DE		3DF
+3E0		3E1
+3E2		3E3
+3E4		3E5
+3E6		3E7
+3E8		3E9
+3EA		3EB
+3EC		3ED
+3EE		3EF
+3F0		3BA
+3F1		3C1
+3F4		3B8
+3F5		3B5
+3F7		3F8
+3F9		3F2
+3FA		3FB
+3FD	3FF	37B
+400	40F	450
+410	42F	430
+460		461
+462		463
+464		465
+466		467
+468		469
+46A		46B
+46C		46D
+46E		46F
+470		471
+472		473
+474		475
+476		477
+478		479
+47A		47B
+47C		47D
+47E		47F
+480		481
+48A		48B
+48C		48D
+48E		48F
+490		491
+492		493
+494		495
+496		497
+498		499
+49A		49B
+49C		49D
+49E		49F
+4A0		4A1
+4A2		4A3
+4A4		4A5
+4A6		4A7
+4A8		4A9
+4AA		4AB
+4AC		4AD
+4AE		4AF
+4B0		4B1
+4B2		4B3
+4B4		4B5
+4B6		4B7
+4B8		4B9
+4BA		4BB
+4BC		4BD
+4BE		4BF
+4C0		4CF
+4C1		4C2
+4C3		4C4
+4C5		4C6
+4C7		4C8
+4C9		4CA
+4CB		4CC
+4CD		4CE
+4D0		4D1
+4D2		4D3
+4D4		4D5
+4D6		4D7
+4D8		4D9
+4DA		4DB
+4DC		4DD
+4DE		4DF
+4E0		4E1
+4E2		4E3
+4E4		4E5
+4E6		4E7
+4E8		4E9
+4EA		4EB
+4EC		4ED
+4EE		4EF
+4F0		4F1
+4F2		4F3
+4F4		4F5
+4F6		4F7
+4F8		4F9
+4FA		4FB
+4FC		4FD
+4FE		4FF
+500		501
+502		503
+504		505
+506		507
+508		509
+50A		50B
+50C		50D
+50E		50F
+510		511
+512		513
+514		515
+516		517
+518		519
+51A		51B
+51C		51D
+51E		51F
+520		521
+522		523
+524		525
+526		527
+528		529
+52A		52B
+52C		52D
+52E		52F
+531	556	561
+10A0	10C5	2D00
+10C7		2D27
+10CD		2D2D
+13F8	13FD	13F0
+1C80		432
+1C81		434
+1C82		43E
+1C83	1C84	441
+1C85		442
+1C86		44A
+1C87		463
+1C88		A64B
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1E9E		DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08	1F0F	1F00
+1F18	1F1D	1F10
+1F28	1F2F	1F20
+1F38	1F3F	1F30
+1F48	1F4D	1F40
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68	1F6F	1F60
+1F88	1F8F	1F80
+1F98	1F9F	1F90
+1FA8	1FAF	1FA0
+1FB8	1FB9	1FB0
+1FBA	1FBB	1F70
+1FBC		1FB3
+1FBE		3B9
+1FC8	1FCB	1F72
+1FCC		1FC3
+1FD8	1FD9	1FD0
+1FDA	1FDB	1F76
+1FE8	1FE9	1FE0
+1FEA	1FEB	1F7A
+1FEC		1FE5
+1FF8	1FF9	1F78
+1FFA	1FFB	1F7C
+1FFC		1FF3
+2126		3C9
+212A		6B
+212B		E5
+2132		214E
+2160	216F	2170
+2183		2184
+24B6	24CF	24D0
+2C00	2C2E	2C30
+2C60		2C61
+2C62		26B
+2C63		1D7D
+2C64		27D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		251
+2C6E		271
+2C6F		250
+2C70		252
+2C72		2C73
+2C75		2C76
+2C7E	2C7F	23F
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		266
+A7AB		25C
+A7AC		261
+A7AD		26C
+A7AE		26A
+A7B0		29E
+A7B1		287
+A7B2		29D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+AB70	ABBF	13A0
+FF21	FF3A	FF41
+10400	10427	10428
+104B0	104D3	104D8
+10C80	10CB2	10CC0
+118A0	118BF	118C0
+1E900	1E921	1E922
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Case_Folding') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToFold'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToFold'}{'specials_name'} = 'utf8::ToSpecFold'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToFold'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecFold = (
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\xB0" => "\x{006A}\x{030C}",             # U+01F0 => 006A 030C
+"\xCE\x90" => "\x{03B9}\x{0308}\x{0301}",     # U+0390 => 03B9 0308 0301
+"\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}",     # U+03B0 => 03C5 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xE1\xBA\x96" => "\x{0068}\x{0331}",         # U+1E96 => 0068 0331
+"\xE1\xBA\x97" => "\x{0074}\x{0308}",         # U+1E97 => 0074 0308
+"\xE1\xBA\x98" => "\x{0077}\x{030A}",         # U+1E98 => 0077 030A
+"\xE1\xBA\x99" => "\x{0079}\x{030A}",         # U+1E99 => 0079 030A
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBD\x90" => "\x{03C5}\x{0313}",         # U+1F50 => 03C5 0313
+"\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300
+"\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301
+"\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB6" => "\x{03B1}\x{0342}",         # U+1FB6 => 03B1 0342
+"\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x86" => "\x{03B7}\x{0342}",         # U+1FC6 => 03B7 0342
+"\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300
+"\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301
+"\xE1\xBF\x96" => "\x{03B9}\x{0342}",         # U+1FD6 => 03B9 0342
+"\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342
+"\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300
+"\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301
+"\xE1\xBF\xA4" => "\x{03C1}\x{0313}",         # U+1FE4 => 03C1 0313
+"\xE1\xBF\xA6" => "\x{03C5}\x{0342}",         # U+1FE6 => 03C5 0342
+"\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB6" => "\x{03C9}\x{0342}",         # U+1FF6 => 03C9 0342
+"\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00B5		03BC
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0132		0133
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+013F		0140
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+017F		0073
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01C4		01C6
+01C5		01C6
+01C7		01C9
+01C8		01C9
+01CA		01CC
+01CB		01CC
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F1		01F3
+01F2		01F3
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+0345		03B9
+0370		0371
+0372		0373
+0376		0377
+037F		03F3
+0386		03AC
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03C2		03C3
+03CF		03D7
+03D0		03B2
+03D1		03B8
+03D5		03C6
+03D6		03C0
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F0		03BA
+03F1		03C1
+03F4		03B8
+03F5		03B5
+03F7		03F8
+03F9		03F2
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1C80		0432
+1C81		0434
+1C82		043E
+1C83		0441
+1C84		0442
+1C85		0442
+1C86		044A
+1C87		0463
+1C88		A64B
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1E9E		00DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F88		1F80
+1F89		1F81
+1F8A		1F82
+1F8B		1F83
+1F8C		1F84
+1F8D		1F85
+1F8E		1F86
+1F8F		1F87
+1F98		1F90
+1F99		1F91
+1F9A		1F92
+1F9B		1F93
+1F9C		1F94
+1F9D		1F95
+1F9E		1F96
+1F9F		1F97
+1FA8		1FA0
+1FA9		1FA1
+1FAA		1FA2
+1FAB		1FA3
+1FAC		1FA4
+1FAD		1FA5
+1FAE		1FA6
+1FAF		1FA7
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		1F71
+1FBC		1FB3
+1FBE		03B9
+1FC8		1F72
+1FC9		1F73
+1FCA		1F74
+1FCB		1F75
+1FCC		1FC3
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		1F77
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		1F7B
+1FEC		1FE5
+1FF8		1F78
+1FF9		1F79
+1FFA		1F7C
+1FFB		1F7D
+1FFC		1FF3
+2126		03C9
+212A		006B
+212B		00E5
+2132		214E
+2160		2170
+2161		2171
+2162		2172
+2163		2173
+2164		2174
+2165		2175
+2166		2176
+2167		2177
+2168		2178
+2169		2179
+216A		217A
+216B		217B
+216C		217C
+216D		217D
+216E		217E
+216F		217F
+2183		2184
+24B6		24D0
+24B7		24D1
+24B8		24D2
+24B9		24D3
+24BA		24D4
+24BB		24D5
+24BC		24D6
+24BD		24D7
+24BE		24D8
+24BF		24D9
+24C0		24DA
+24C1		24DB
+24C2		24DC
+24C3		24DD
+24C4		24DE
+24C5		24DF
+24C6		24E0
+24C7		24E1
+24C8		24E2
+24C9		24E3
+24CA		24E4
+24CB		24E5
+24CC		24E6
+24CD		24E7
+24CE		24E8
+24CF		24E9
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7AE		026A
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF21		FF41
+FF22		FF42
+FF23		FF43
+FF24		FF44
+FF25		FF45
+FF26		FF46
+FF27		FF47
+FF28		FF48
+FF29		FF49
+FF2A		FF4A
+FF2B		FF4B
+FF2C		FF4C
+FF2D		FF4D
+FF2E		FF4E
+FF2F		FF4F
+FF30		FF50
+FF31		FF51
+FF32		FF52
+FF33		FF53
+FF34		FF54
+FF35		FF55
+FF36		FF56
+FF37		FF57
+FF38		FF58
+FF39		FF59
+FF3A		FF5A
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+104B0		104D8
+104B1		104D9
+104B2		104DA
+104B3		104DB
+104B4		104DC
+104B5		104DD
+104B6		104DE
+104B7		104DF
+104B8		104E0
+104B9		104E1
+104BA		104E2
+104BB		104E3
+104BC		104E4
+104BD		104E5
+104BE		104E6
+104BF		104E7
+104C0		104E8
+104C1		104E9
+104C2		104EA
+104C3		104EB
+104C4		104EC
+104C5		104ED
+104C6		104EE
+104C7		104EF
+104C8		104F0
+104C9		104F1
+104CA		104F2
+104CB		104F3
+104CC		104F4
+104CD		104F5
+104CE		104F6
+104CF		104F7
+104D0		104F8
+104D1		104F9
+104D2		104FA
+104D3		104FB
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+1E900		1E922
+1E901		1E923
+1E902		1E924
+1E903		1E925
+1E904		1E926
+1E905		1E927
+1E906		1E928
+1E907		1E929
+1E908		1E92A
+1E909		1E92B
+1E90A		1E92C
+1E90B		1E92D
+1E90C		1E92E
+1E90D		1E92F
+1E90E		1E930
+1E90F		1E931
+1E910		1E932
+1E911		1E933
+1E912		1E934
+1E913		1E935
+1E914		1E936
+1E915		1E937
+1E916		1E938
+1E917		1E939
+1E918		1E93A
+1E919		1E93B
+1E91A		1E93C
+1E91B		1E93D
+1E91C		1E93E
+1E91D		1E93F
+1E91E		1E940
+1E91F		1E941
+1E920		1E942
+1E921		1E943
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'To_PerlSCX'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators
+$utf8::SwashInfo{'To_PerlSCX'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	40	Common
+41	5A	Latin
+5B	60	Common
+61	7A	Latin
+7B	A9	Common
+AA		Latin
+AB	B9	Common
+BA		Latin
+BB	BF	Common
+C0	D6	Latin
+D7		Common
+D8	F6	Latin
+F7		Common
+F8	2B8	Latin
+2B9	2DF	Common
+2E0	2E4	Latin
+2E5	2E9	Common
+2EA	2EB	Bopomofo Hanb
+2EC	2FF	Common
+300	341	Inherited
+342		Greek
+343	344	Inherited
+345		Greek
+346	362	Inherited
+363	36F	Latin
+370	373	Greek
+374		Common
+375	377	Greek
+37A	37D	Greek
+37E		Common
+37F		Greek
+384		Greek
+385		Common
+386		Greek
+387		Common
+388	38A	Greek
+38C		Greek
+38E	3A1	Greek
+3A3	3E1	Greek
+3E2	3EF	Coptic
+3F0	3FF	Greek
+400	482	Cyrillic
+483		Cyrillic Old_Permic
+484		Cyrillic Glagolitic
+485	486	Cyrillic Latin
+487		Cyrillic Glagolitic
+488	52F	Cyrillic
+531	556	Armenian
+559	55F	Armenian
+561	587	Armenian
+589		Armenian Georgian
+58A		Armenian
+58D	58F	Armenian
+591	5C7	Hebrew
+5D0	5EA	Hebrew
+5F0	5F4	Hebrew
+600	604	Arabic
+605		Common
+606	60B	Arabic
+60C		Arabic Syriac Thaana
+60D	61A	Arabic
+61B	61C	Arabic Syriac Thaana
+61E		Arabic
+61F		Arabic Syriac Thaana
+620	63F	Arabic
+640		Adlam Arabic Mandaic Manichaean Psalter_Pahlavi Syriac
+641	64A	Arabic
+64B	655	Arabic Syriac
+656	65F	Arabic
+660	669	Arabic Thaana
+66A	66F	Arabic
+670		Arabic Syriac
+671	6DC	Arabic
+6DD		Common
+6DE	6FF	Arabic
+700	70D	Syriac
+70F	74A	Syriac
+74D	74F	Syriac
+750	77F	Arabic
+780	7B1	Thaana
+7C0	7FA	Nko
+800	82D	Samaritan
+830	83E	Samaritan
+840	85B	Mandaic
+85E		Mandaic
+860	86A	Syriac
+8A0	8B4	Arabic
+8B6	8BD	Arabic
+8D4	8E1	Arabic
+8E2		Common
+8E3	8FF	Arabic
+900	950	Devanagari
+951		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Sharada Tamil Telugu
+952		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Tamil Telugu
+953	963	Devanagari
+964		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+965		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Limbu Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+966	96F	Devanagari Kaithi Mahajani
+970	97F	Devanagari
+980	983	Bengali
+985	98C	Bengali
+98F	990	Bengali
+993	9A8	Bengali
+9AA	9B0	Bengali
+9B2		Bengali
+9B6	9B9	Bengali
+9BC	9C4	Bengali
+9C7	9C8	Bengali
+9CB	9CE	Bengali
+9D7		Bengali
+9DC	9DD	Bengali
+9DF	9E3	Bengali
+9E6	9EF	Bengali Chakma Syloti_Nagri
+9F0	9FD	Bengali
+A01	A03	Gurmukhi
+A05	A0A	Gurmukhi
+A0F	A10	Gurmukhi
+A13	A28	Gurmukhi
+A2A	A30	Gurmukhi
+A32	A33	Gurmukhi
+A35	A36	Gurmukhi
+A38	A39	Gurmukhi
+A3C		Gurmukhi
+A3E	A42	Gurmukhi
+A47	A48	Gurmukhi
+A4B	A4D	Gurmukhi
+A51		Gurmukhi
+A59	A5C	Gurmukhi
+A5E		Gurmukhi
+A66	A6F	Gurmukhi Multani
+A70	A75	Gurmukhi
+A81	A83	Gujarati
+A85	A8D	Gujarati
+A8F	A91	Gujarati
+A93	AA8	Gujarati
+AAA	AB0	Gujarati
+AB2	AB3	Gujarati
+AB5	AB9	Gujarati
+ABC	AC5	Gujarati
+AC7	AC9	Gujarati
+ACB	ACD	Gujarati
+AD0		Gujarati
+AE0	AE3	Gujarati
+AE6	AEF	Gujarati Khojki
+AF0	AF1	Gujarati
+AF9	AFF	Gujarati
+B01	B03	Oriya
+B05	B0C	Oriya
+B0F	B10	Oriya
+B13	B28	Oriya
+B2A	B30	Oriya
+B32	B33	Oriya
+B35	B39	Oriya
+B3C	B44	Oriya
+B47	B48	Oriya
+B4B	B4D	Oriya
+B56	B57	Oriya
+B5C	B5D	Oriya
+B5F	B63	Oriya
+B66	B77	Oriya
+B82	B83	Tamil
+B85	B8A	Tamil
+B8E	B90	Tamil
+B92	B95	Tamil
+B99	B9A	Tamil
+B9C		Tamil
+B9E	B9F	Tamil
+BA3	BA4	Tamil
+BA8	BA9	Tamil
+BAA		Grantha Tamil
+BAE	BB4	Tamil
+BB5		Grantha Tamil
+BB6	BB9	Tamil
+BBE	BC2	Tamil
+BC6	BC8	Tamil
+BCA	BCD	Tamil
+BD0		Tamil
+BD7		Tamil
+BE6	BF2	Grantha Tamil
+BF3	BFA	Tamil
+C00	C03	Telugu
+C05	C0C	Telugu
+C0E	C10	Telugu
+C12	C28	Telugu
+C2A	C39	Telugu
+C3D	C44	Telugu
+C46	C48	Telugu
+C4A	C4D	Telugu
+C55	C56	Telugu
+C58	C5A	Telugu
+C60	C63	Telugu
+C66	C6F	Telugu
+C78	C7F	Telugu
+C80	C83	Kannada
+C85	C8C	Kannada
+C8E	C90	Kannada
+C92	CA8	Kannada
+CAA	CB3	Kannada
+CB5	CB9	Kannada
+CBC	CC4	Kannada
+CC6	CC8	Kannada
+CCA	CCD	Kannada
+CD5	CD6	Kannada
+CDE		Kannada
+CE0	CE3	Kannada
+CE6	CEF	Kannada
+CF1	CF2	Kannada
+D00	D03	Malayalam
+D05	D0C	Malayalam
+D0E	D10	Malayalam
+D12	D44	Malayalam
+D46	D48	Malayalam
+D4A	D4F	Malayalam
+D54	D63	Malayalam
+D66	D7F	Malayalam
+D82	D83	Sinhala
+D85	D96	Sinhala
+D9A	DB1	Sinhala
+DB3	DBB	Sinhala
+DBD		Sinhala
+DC0	DC6	Sinhala
+DCA		Sinhala
+DCF	DD4	Sinhala
+DD6		Sinhala
+DD8	DDF	Sinhala
+DE6	DEF	Sinhala
+DF2	DF4	Sinhala
+E01	E3A	Thai
+E3F		Common
+E40	E5B	Thai
+E81	E82	Lao
+E84		Lao
+E87	E88	Lao
+E8A		Lao
+E8D		Lao
+E94	E97	Lao
+E99	E9F	Lao
+EA1	EA3	Lao
+EA5		Lao
+EA7		Lao
+EAA	EAB	Lao
+EAD	EB9	Lao
+EBB	EBD	Lao
+EC0	EC4	Lao
+EC6		Lao
+EC8	ECD	Lao
+ED0	ED9	Lao
+EDC	EDF	Lao
+F00	F47	Tibetan
+F49	F6C	Tibetan
+F71	F97	Tibetan
+F99	FBC	Tibetan
+FBE	FCC	Tibetan
+FCE	FD4	Tibetan
+FD5	FD8	Common
+FD9	FDA	Tibetan
+1000	103F	Myanmar
+1040	1049	Chakma Myanmar Tai_Le
+104A	109F	Myanmar
+10A0	10C5	Georgian
+10C7		Georgian
+10CD		Georgian
+10D0	10FA	Georgian
+10FB		Georgian Latin
+10FC	10FF	Georgian
+1100	11FF	Hangul Kore
+1200	1248	Ethiopic
+124A	124D	Ethiopic
+1250	1256	Ethiopic
+1258		Ethiopic
+125A	125D	Ethiopic
+1260	1288	Ethiopic
+128A	128D	Ethiopic
+1290	12B0	Ethiopic
+12B2	12B5	Ethiopic
+12B8	12BE	Ethiopic
+12C0		Ethiopic
+12C2	12C5	Ethiopic
+12C8	12D6	Ethiopic
+12D8	1310	Ethiopic
+1312	1315	Ethiopic
+1318	135A	Ethiopic
+135D	137C	Ethiopic
+1380	1399	Ethiopic
+13A0	13F5	Cherokee
+13F8	13FD	Cherokee
+1400	167F	Canadian_Aboriginal
+1680	169C	Ogham
+16A0	16EA	Runic
+16EB	16ED	Common
+16EE	16F8	Runic
+1700	170C	Tagalog
+170E	1714	Tagalog
+1720	1734	Hanunoo
+1735	1736	Buhid Hanunoo Tagbanwa Tagalog
+1740	1753	Buhid
+1760	176C	Tagbanwa
+176E	1770	Tagbanwa
+1772	1773	Tagbanwa
+1780	17DD	Khmer
+17E0	17E9	Khmer
+17F0	17F9	Khmer
+1800	1801	Mongolian
+1802	1803	Mongolian Phags_Pa
+1804		Mongolian
+1805		Mongolian Phags_Pa
+1806	180E	Mongolian
+1810	1819	Mongolian
+1820	1877	Mongolian
+1880	18AA	Mongolian
+18B0	18F5	Canadian_Aboriginal
+1900	191E	Limbu
+1920	192B	Limbu
+1930	193B	Limbu
+1940		Limbu
+1944	194F	Limbu
+1950	196D	Tai_Le
+1970	1974	Tai_Le
+1980	19AB	New_Tai_Lue
+19B0	19C9	New_Tai_Lue
+19D0	19DA	New_Tai_Lue
+19DE	19DF	New_Tai_Lue
+19E0	19FF	Khmer
+1A00	1A1B	Buginese
+1A1E	1A1F	Buginese
+1A20	1A5E	Tai_Tham
+1A60	1A7C	Tai_Tham
+1A7F	1A89	Tai_Tham
+1A90	1A99	Tai_Tham
+1AA0	1AAD	Tai_Tham
+1AB0	1ABE	Inherited
+1B00	1B4B	Balinese
+1B50	1B7C	Balinese
+1B80	1BBF	Sundanese
+1BC0	1BF3	Batak
+1BFC	1BFF	Batak
+1C00	1C37	Lepcha
+1C3B	1C49	Lepcha
+1C4D	1C4F	Lepcha
+1C50	1C7F	Ol_Chiki
+1C80	1C88	Cyrillic
+1CC0	1CC7	Sundanese
+1CD0		Devanagari Grantha
+1CD1		Devanagari
+1CD2	1CD3	Devanagari Grantha
+1CD4	1CD6	Devanagari
+1CD7		Devanagari Sharada
+1CD8		Devanagari
+1CD9		Devanagari Sharada
+1CDA		Devanagari Kannada Malayalam Tamil Telugu
+1CDB		Devanagari
+1CDC	1CDD	Devanagari Sharada
+1CDE	1CDF	Devanagari
+1CE0		Devanagari Sharada
+1CE1	1CF1	Devanagari
+1CF2	1CF4	Devanagari Grantha
+1CF5		Devanagari Kannada
+1CF6		Devanagari
+1CF7		Bengali
+1CF8	1CF9	Devanagari Grantha
+1D00	1D25	Latin
+1D26	1D2A	Greek
+1D2B		Cyrillic
+1D2C	1D5C	Latin
+1D5D	1D61	Greek
+1D62	1D65	Latin
+1D66	1D6A	Greek
+1D6B	1D77	Latin
+1D78		Cyrillic
+1D79	1DBE	Latin
+1DBF	1DC1	Greek
+1DC2	1DF9	Inherited
+1DFB	1DFF	Inherited
+1E00	1EFF	Latin
+1F00	1F15	Greek
+1F18	1F1D	Greek
+1F20	1F45	Greek
+1F48	1F4D	Greek
+1F50	1F57	Greek
+1F59		Greek
+1F5B		Greek
+1F5D		Greek
+1F5F	1F7D	Greek
+1F80	1FB4	Greek
+1FB6	1FC4	Greek
+1FC6	1FD3	Greek
+1FD6	1FDB	Greek
+1FDD	1FEF	Greek
+1FF2	1FF4	Greek
+1FF6	1FFE	Greek
+2000	200B	Common
+200C	200D	Inherited
+200E	2064	Common
+2066	2070	Common
+2071		Latin
+2074	207E	Common
+207F		Latin
+2080	208E	Common
+2090	209C	Latin
+20A0	20BF	Common
+20D0	20EF	Inherited
+20F0		Devanagari Grantha Latin
+2100	2125	Common
+2126		Greek
+2127	2129	Common
+212A	212B	Latin
+212C	2131	Common
+2132		Latin
+2133	214D	Common
+214E		Latin
+214F	215F	Common
+2160	2188	Latin
+2189	218B	Common
+2190	2426	Common
+2440	244A	Common
+2460	27FF	Common
+2800	28FF	Braille
+2900	2B73	Common
+2B76	2B95	Common
+2B98	2BB9	Common
+2BBD	2BC8	Common
+2BCA	2BD2	Common
+2BEC	2BEF	Common
+2C00	2C2E	Glagolitic
+2C30	2C5E	Glagolitic
+2C60	2C7F	Latin
+2C80	2CF3	Coptic
+2CF9	2CFF	Coptic
+2D00	2D25	Georgian
+2D27		Georgian
+2D2D		Georgian
+2D30	2D67	Tifinagh
+2D6F	2D70	Tifinagh
+2D7F		Tifinagh
+2D80	2D96	Ethiopic
+2DA0	2DA6	Ethiopic
+2DA8	2DAE	Ethiopic
+2DB0	2DB6	Ethiopic
+2DB8	2DBE	Ethiopic
+2DC0	2DC6	Ethiopic
+2DC8	2DCE	Ethiopic
+2DD0	2DD6	Ethiopic
+2DD8	2DDE	Ethiopic
+2DE0	2DFF	Cyrillic
+2E00	2E42	Common
+2E43		Cyrillic Glagolitic
+2E44	2E49	Common
+2E80	2E99	Han Hanb Jpan Kore
+2E9B	2EF3	Han Hanb Jpan Kore
+2F00	2FD5	Han Hanb Jpan Kore
+2FF0	2FFB	Common
+3000		Common
+3001	3002	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi
+3003		Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+3004		Common
+3005	3007	Han Hanb Jpan Kore
+3008	3011	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi
+3012		Common
+3013		Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+3014	301B	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi
+301C	301F	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+3020		Common
+3021	3029	Han Hanb Jpan Kore
+302A	302D	Bopomofo Hanb Han Jpan Kore
+302E	302F	Hangul Kore
+3030		Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+3031	3035	Hiragana Jpan Katakana
+3036		Common
+3037		Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+3038	303B	Han Hanb Jpan Kore
+303C	303D	Han Hanb Jpan Kore Hiragana Katakana
+303E	303F	Han Hanb Jpan Kore
+3041	3096	Hiragana Jpan
+3099	309C	Hiragana Jpan Katakana
+309D	309F	Hiragana Jpan
+30A0		Hiragana Jpan Katakana
+30A1	30FA	Katakana Jpan
+30FB		Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi
+30FC		Hiragana Jpan Katakana
+30FD	30FF	Katakana Jpan
+3105	312E	Bopomofo Hanb
+3131	318E	Hangul Kore
+3190	319F	Han Hanb Jpan Kore
+31A0	31BA	Bopomofo Hanb
+31C0	31E3	Han Hanb Jpan Kore
+31F0	31FF	Katakana Jpan
+3200	321E	Hangul Kore
+3220	3247	Han Hanb Jpan Kore
+3248	325F	Common
+3260	327E	Hangul Kore
+327F		Common
+3280	32B0	Han Hanb Jpan Kore
+32B1	32BF	Common
+32C0	32CB	Han Hanb Jpan Kore
+32CC	32CF	Common
+32D0	32FE	Katakana Jpan
+3300	3357	Katakana Jpan
+3358	3370	Han Hanb Jpan Kore
+3371	337A	Common
+337B	337F	Han Hanb Jpan Kore
+3380	33DF	Common
+33E0	33FE	Han Hanb Jpan Kore
+33FF		Common
+3400	4DB5	Han Hanb Jpan Kore
+4DC0	4DFF	Common
+4E00	9FEA	Han Hanb Jpan Kore
+A000	A48C	Yi
+A490	A4C6	Yi
+A4D0	A4FF	Lisu
+A500	A62B	Vai
+A640	A66E	Cyrillic
+A66F		Cyrillic Glagolitic
+A670	A69F	Cyrillic
+A6A0	A6F7	Bamum
+A700	A721	Common
+A722	A787	Latin
+A788	A78A	Common
+A78B	A7AE	Latin
+A7B0	A7B7	Latin
+A7F7	A7FF	Latin
+A800	A82B	Syloti_Nagri
+A830	A835	Devanagari Gujarati Gurmukhi Kannada Kaithi Mahajani Modi Khudawadi Takri Tirhuta
+A836	A839	Devanagari Gujarati Gurmukhi Kaithi Mahajani Modi Khudawadi Takri Tirhuta
+A840	A877	Phags_Pa
+A880	A8C5	Saurashtra
+A8CE	A8D9	Saurashtra
+A8E0	A8F0	Devanagari
+A8F1		Bengali Devanagari
+A8F2		Devanagari
+A8F3		Devanagari Tamil
+A8F4	A8FD	Devanagari
+A900	A92D	Kayah_Li
+A92E		Kayah_Li Latin Myanmar
+A92F		Kayah_Li
+A930	A953	Rejang
+A95F		Rejang
+A960	A97C	Hangul Kore
+A980	A9CD	Javanese
+A9CF		Buginese Javanese
+A9D0	A9D9	Javanese
+A9DE	A9DF	Javanese
+A9E0	A9FE	Myanmar
+AA00	AA36	Cham
+AA40	AA4D	Cham
+AA50	AA59	Cham
+AA5C	AA5F	Cham
+AA60	AA7F	Myanmar
+AA80	AAC2	Tai_Viet
+AADB	AADF	Tai_Viet
+AAE0	AAF6	Meetei_Mayek
+AB01	AB06	Ethiopic
+AB09	AB0E	Ethiopic
+AB11	AB16	Ethiopic
+AB20	AB26	Ethiopic
+AB28	AB2E	Ethiopic
+AB30	AB5A	Latin
+AB5B		Common
+AB5C	AB64	Latin
+AB65		Greek
+AB70	ABBF	Cherokee
+ABC0	ABED	Meetei_Mayek
+ABF0	ABF9	Meetei_Mayek
+AC00	D7A3	Hangul Kore
+D7B0	D7C6	Hangul Kore
+D7CB	D7FB	Hangul Kore
+F900	FA6D	Han Hanb Jpan Kore
+FA70	FAD9	Han Hanb Jpan Kore
+FB00	FB06	Latin
+FB13	FB17	Armenian
+FB1D	FB36	Hebrew
+FB38	FB3C	Hebrew
+FB3E		Hebrew
+FB40	FB41	Hebrew
+FB43	FB44	Hebrew
+FB46	FB4F	Hebrew
+FB50	FBC1	Arabic
+FBD3	FD3D	Arabic
+FD3E	FD3F	Common
+FD50	FD8F	Arabic
+FD92	FDC7	Arabic
+FDF0	FDF1	Arabic
+FDF2		Arabic Thaana
+FDF3	FDFC	Arabic
+FDFD		Arabic Thaana
+FE00	FE0F	Inherited
+FE10	FE19	Common
+FE20	FE2D	Inherited
+FE2E	FE2F	Cyrillic
+FE30	FE44	Common
+FE45	FE46	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana
+FE47	FE52	Common
+FE54	FE66	Common
+FE68	FE6B	Common
+FE70	FE74	Arabic
+FE76	FEFC	Arabic
+FEFF		Common
+FF01	FF20	Common
+FF21	FF3A	Latin
+FF3B	FF40	Common
+FF41	FF5A	Latin
+FF5B	FF60	Common
+FF61	FF65	Bopomofo Hanb Hangul Kore Han Jpan Hiragana Katakana Yi
+FF66	FF6F	Katakana Jpan
+FF70		Hiragana Jpan Katakana
+FF71	FF9D	Katakana Jpan
+FF9E	FF9F	Hiragana Jpan Katakana
+FFA0	FFBE	Hangul Kore
+FFC2	FFC7	Hangul Kore
+FFCA	FFCF	Hangul Kore
+FFD2	FFD7	Hangul Kore
+FFDA	FFDC	Hangul Kore
+FFE0	FFE6	Common
+FFE8	FFEE	Common
+FFF9	FFFD	Common
+10000	1000B	Linear_B
+1000D	10026	Linear_B
+10028	1003A	Linear_B
+1003C	1003D	Linear_B
+1003F	1004D	Linear_B
+10050	1005D	Linear_B
+10080	100FA	Linear_B
+10100	10102	Cypriot Linear_B
+10107	10133	Cypriot Linear_A Linear_B
+10137	1013F	Cypriot Linear_B
+10140	1018E	Greek
+10190	1019B	Common
+101A0		Greek
+101D0	101FC	Common
+101FD		Inherited
+10280	1029C	Lycian
+102A0	102D0	Carian
+102E0	102FB	Arabic Coptic
+10300	10323	Old_Italic
+1032D	1032F	Old_Italic
+10330	1034A	Gothic
+10350	1037A	Old_Permic
+10380	1039D	Ugaritic
+1039F		Ugaritic
+103A0	103C3	Old_Persian
+103C8	103D5	Old_Persian
+10400	1044F	Deseret
+10450	1047F	Shavian
+10480	1049D	Osmanya
+104A0	104A9	Osmanya
+104B0	104D3	Osage
+104D8	104FB	Osage
+10500	10527	Elbasan
+10530	10563	Caucasian_Albanian
+1056F		Caucasian_Albanian
+10600	10736	Linear_A
+10740	10755	Linear_A
+10760	10767	Linear_A
+10800	10805	Cypriot
+10808		Cypriot
+1080A	10835	Cypriot
+10837	10838	Cypriot
+1083C		Cypriot
+1083F		Cypriot
+10840	10855	Imperial_Aramaic
+10857	1085F	Imperial_Aramaic
+10860	1087F	Palmyrene
+10880	1089E	Nabataean
+108A7	108AF	Nabataean
+108E0	108F2	Hatran
+108F4	108F5	Hatran
+108FB	108FF	Hatran
+10900	1091B	Phoenician
+1091F		Phoenician
+10920	10939	Lydian
+1093F		Lydian
+10980	1099F	Meroitic_Hieroglyphs
+109A0	109B7	Meroitic_Cursive
+109BC	109CF	Meroitic_Cursive
+109D2	109FF	Meroitic_Cursive
+10A00	10A03	Kharoshthi
+10A05	10A06	Kharoshthi
+10A0C	10A13	Kharoshthi
+10A15	10A17	Kharoshthi
+10A19	10A33	Kharoshthi
+10A38	10A3A	Kharoshthi
+10A3F	10A47	Kharoshthi
+10A50	10A58	Kharoshthi
+10A60	10A7F	Old_South_Arabian
+10A80	10A9F	Old_North_Arabian
+10AC0	10AE6	Manichaean
+10AEB	10AF6	Manichaean
+10B00	10B35	Avestan
+10B39	10B3F	Avestan
+10B40	10B55	Inscriptional_Parthian
+10B58	10B5F	Inscriptional_Parthian
+10B60	10B72	Inscriptional_Pahlavi
+10B78	10B7F	Inscriptional_Pahlavi
+10B80	10B91	Psalter_Pahlavi
+10B99	10B9C	Psalter_Pahlavi
+10BA9	10BAF	Psalter_Pahlavi
+10C00	10C48	Old_Turkic
+10C80	10CB2	Old_Hungarian
+10CC0	10CF2	Old_Hungarian
+10CFA	10CFF	Old_Hungarian
+10E60	10E7E	Arabic
+11000	1104D	Brahmi
+11052	1106F	Brahmi
+1107F		Brahmi
+11080	110C1	Kaithi
+110D0	110E8	Sora_Sompeng
+110F0	110F9	Sora_Sompeng
+11100	11134	Chakma
+11136	11143	Chakma
+11150	11176	Mahajani
+11180	111CD	Sharada
+111D0	111DF	Sharada
+111E1	111F4	Sinhala
+11200	11211	Khojki
+11213	1123E	Khojki
+11280	11286	Multani
+11288		Multani
+1128A	1128D	Multani
+1128F	1129D	Multani
+1129F	112A9	Multani
+112B0	112EA	Khudawadi
+112F0	112F9	Khudawadi
+11300		Grantha
+11301		Grantha Tamil
+11302		Grantha
+11303		Grantha Tamil
+11305	1130C	Grantha
+1130F	11310	Grantha
+11313	11328	Grantha
+1132A	11330	Grantha
+11332	11333	Grantha
+11335	11339	Grantha
+1133C		Grantha Tamil
+1133D	11344	Grantha
+11347	11348	Grantha
+1134B	1134D	Grantha
+11350		Grantha
+11357		Grantha
+1135D	11363	Grantha
+11366	1136C	Grantha
+11370	11374	Grantha
+11400	11459	Newa
+1145B		Newa
+1145D		Newa
+11480	114C7	Tirhuta
+114D0	114D9	Tirhuta
+11580	115B5	Siddham
+115B8	115DD	Siddham
+11600	11644	Modi
+11650	11659	Modi
+11660	1166C	Mongolian
+11680	116B7	Takri
+116C0	116C9	Takri
+11700	11719	Ahom
+1171D	1172B	Ahom
+11730	1173F	Ahom
+118A0	118F2	Warang_Citi
+118FF		Warang_Citi
+11A00	11A47	Zanabazar_Square
+11A50	11A83	Soyombo
+11A86	11A9C	Soyombo
+11A9E	11AA2	Soyombo
+11AC0	11AF8	Pau_Cin_Hau
+11C00	11C08	Bhaiksuki
+11C0A	11C36	Bhaiksuki
+11C38	11C45	Bhaiksuki
+11C50	11C6C	Bhaiksuki
+11C70	11C8F	Marchen
+11C92	11CA7	Marchen
+11CA9	11CB6	Marchen
+11D00	11D06	Masaram_Gondi
+11D08	11D09	Masaram_Gondi
+11D0B	11D36	Masaram_Gondi
+11D3A		Masaram_Gondi
+11D3C	11D3D	Masaram_Gondi
+11D3F	11D47	Masaram_Gondi
+11D50	11D59	Masaram_Gondi
+12000	12399	Cuneiform
+12400	1246E	Cuneiform
+12470	12474	Cuneiform
+12480	12543	Cuneiform
+13000	1342E	Egyptian_Hieroglyphs
+14400	14646	Anatolian_Hieroglyphs
+16800	16A38	Bamum
+16A40	16A5E	Mro
+16A60	16A69	Mro
+16A6E	16A6F	Mro
+16AD0	16AED	Bassa_Vah
+16AF0	16AF5	Bassa_Vah
+16B00	16B45	Pahawh_Hmong
+16B50	16B59	Pahawh_Hmong
+16B5B	16B61	Pahawh_Hmong
+16B63	16B77	Pahawh_Hmong
+16B7D	16B8F	Pahawh_Hmong
+16F00	16F44	Miao
+16F50	16F7E	Miao
+16F8F	16F9F	Miao
+16FE0		Tangut
+16FE1		Nushu
+17000	187EC	Tangut
+18800	18AF2	Tangut
+1B000		Katakana Jpan
+1B001	1B11E	Hiragana Jpan
+1B170	1B2FB	Nushu
+1BC00	1BC6A	Duployan
+1BC70	1BC7C	Duployan
+1BC80	1BC88	Duployan
+1BC90	1BC99	Duployan
+1BC9C	1BCA3	Duployan
+1D000	1D0F5	Common
+1D100	1D126	Common
+1D129	1D166	Common
+1D167	1D169	Inherited
+1D16A	1D17A	Common
+1D17B	1D182	Inherited
+1D183	1D184	Common
+1D185	1D18B	Inherited
+1D18C	1D1A9	Common
+1D1AA	1D1AD	Inherited
+1D1AE	1D1E8	Common
+1D200	1D245	Greek
+1D300	1D356	Common
+1D360	1D371	Han Hanb Jpan Kore
+1D400	1D454	Common
+1D456	1D49C	Common
+1D49E	1D49F	Common
+1D4A2		Common
+1D4A5	1D4A6	Common
+1D4A9	1D4AC	Common
+1D4AE	1D4B9	Common
+1D4BB		Common
+1D4BD	1D4C3	Common
+1D4C5	1D505	Common
+1D507	1D50A	Common
+1D50D	1D514	Common
+1D516	1D51C	Common
+1D51E	1D539	Common
+1D53B	1D53E	Common
+1D540	1D544	Common
+1D546		Common
+1D54A	1D550	Common
+1D552	1D6A5	Common
+1D6A8	1D7CB	Common
+1D7CE	1D7FF	Common
+1D800	1DA8B	SignWriting
+1DA9B	1DA9F	SignWriting
+1DAA1	1DAAF	SignWriting
+1E000	1E006	Glagolitic
+1E008	1E018	Glagolitic
+1E01B	1E021	Glagolitic
+1E023	1E024	Glagolitic
+1E026	1E02A	Glagolitic
+1E800	1E8C4	Mende_Kikakui
+1E8C7	1E8D6	Mende_Kikakui
+1E900	1E94A	Adlam
+1E950	1E959	Adlam
+1E95E	1E95F	Adlam
+1EE00	1EE03	Arabic
+1EE05	1EE1F	Arabic
+1EE21	1EE22	Arabic
+1EE24		Arabic
+1EE27		Arabic
+1EE29	1EE32	Arabic
+1EE34	1EE37	Arabic
+1EE39		Arabic
+1EE3B		Arabic
+1EE42		Arabic
+1EE47		Arabic
+1EE49		Arabic
+1EE4B		Arabic
+1EE4D	1EE4F	Arabic
+1EE51	1EE52	Arabic
+1EE54		Arabic
+1EE57		Arabic
+1EE59		Arabic
+1EE5B		Arabic
+1EE5D		Arabic
+1EE5F		Arabic
+1EE61	1EE62	Arabic
+1EE64		Arabic
+1EE67	1EE6A	Arabic
+1EE6C	1EE72	Arabic
+1EE74	1EE77	Arabic
+1EE79	1EE7C	Arabic
+1EE7E		Arabic
+1EE80	1EE89	Arabic
+1EE8B	1EE9B	Arabic
+1EEA1	1EEA3	Arabic
+1EEA5	1EEA9	Arabic
+1EEAB	1EEBB	Arabic
+1EEF0	1EEF1	Arabic
+1F000	1F02B	Common
+1F030	1F093	Common
+1F0A0	1F0AE	Common
+1F0B1	1F0BF	Common
+1F0C1	1F0CF	Common
+1F0D1	1F0F5	Common
+1F100	1F10C	Common
+1F110	1F12E	Common
+1F130	1F16B	Common
+1F170	1F1AC	Common
+1F1E6	1F1FF	Common
+1F200		Hiragana Jpan
+1F201	1F202	Common
+1F210	1F23B	Common
+1F240	1F248	Common
+1F250	1F251	Han Hanb Jpan Kore
+1F260	1F265	Common
+1F300	1F6D4	Common
+1F6E0	1F6EC	Common
+1F6F0	1F6F8	Common
+1F700	1F773	Common
+1F780	1F7D4	Common
+1F800	1F80B	Common
+1F810	1F847	Common
+1F850	1F859	Common
+1F860	1F887	Common
+1F890	1F8AD	Common
+1F900	1F90B	Common
+1F910	1F93E	Common
+1F940	1F94C	Common
+1F950	1F96B	Common
+1F980	1F997	Common
+1F9C0		Common
+1F9D0	1F9E6	Common
+20000	2A6D6	Han Hanb Jpan Kore
+2A700	2B734	Han Hanb Jpan Kore
+2B740	2B81D	Han Hanb Jpan Kore
+2B820	2CEA1	Han Hanb Jpan Kore
+2CEB0	2EBE0	Han Hanb Jpan Kore
+2F800	2FA1D	Han Hanb Jpan Kore
+E0001		Common
+E0020	E007F	Common
+E0100	E01EF	Inherited
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToGCB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToGCB'}{'missing'} = 'Other';
+
+return <<'END';
+0	9	Control
+A		LF
+B	C	Control
+D		CR
+E	1F	Control
+7F	9F	Control
+AD		Control
+300	36F	Extend
+483	489	Extend
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+600	605	Prepend
+610	61A	Extend
+61C		Control
+64B	65F	Extend
+670		Extend
+6D6	6DC	Extend
+6DD		Prepend
+6DF	6E4	Extend
+6E7	6E8	Extend
+6EA	6ED	Extend
+70F		Prepend
+711		Extend
+730	74A	Extend
+7A6	7B0	Extend
+7EB	7F3	Extend
+816	819	Extend
+81B	823	Extend
+825	827	Extend
+829	82D	Extend
+859	85B	Extend
+8D4	8E1	Extend
+8E2		Prepend
+8E3	902	Extend
+903		SpacingMark
+93A		Extend
+93B		SpacingMark
+93C		Extend
+93E	940	SpacingMark
+941	948	Extend
+949	94C	SpacingMark
+94D		Extend
+94E	94F	SpacingMark
+951	957	Extend
+962	963	Extend
+981		Extend
+982	983	SpacingMark
+9BC		Extend
+9BE		Extend
+9BF	9C0	SpacingMark
+9C1	9C4	Extend
+9C7	9C8	SpacingMark
+9CB	9CC	SpacingMark
+9CD		Extend
+9D7		Extend
+9E2	9E3	Extend
+A01	A02	Extend
+A03		SpacingMark
+A3C		Extend
+A3E	A40	SpacingMark
+A41	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A70	A71	Extend
+A75		Extend
+A81	A82	Extend
+A83		SpacingMark
+ABC		Extend
+ABE	AC0	SpacingMark
+AC1	AC5	Extend
+AC7	AC8	Extend
+AC9		SpacingMark
+ACB	ACC	SpacingMark
+ACD		Extend
+AE2	AE3	Extend
+AFA	AFF	Extend
+B01		Extend
+B02	B03	SpacingMark
+B3C		Extend
+B3E	B3F	Extend
+B40		SpacingMark
+B41	B44	Extend
+B47	B48	SpacingMark
+B4B	B4C	SpacingMark
+B4D		Extend
+B56	B57	Extend
+B62	B63	Extend
+B82		Extend
+BBE		Extend
+BBF		SpacingMark
+BC0		Extend
+BC1	BC2	SpacingMark
+BC6	BC8	SpacingMark
+BCA	BCC	SpacingMark
+BCD		Extend
+BD7		Extend
+C00		Extend
+C01	C03	SpacingMark
+C3E	C40	Extend
+C41	C44	SpacingMark
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C62	C63	Extend
+C81		Extend
+C82	C83	SpacingMark
+CBC		Extend
+CBE		SpacingMark
+CBF		Extend
+CC0	CC1	SpacingMark
+CC2		Extend
+CC3	CC4	SpacingMark
+CC6		Extend
+CC7	CC8	SpacingMark
+CCA	CCB	SpacingMark
+CCC	CCD	Extend
+CD5	CD6	Extend
+CE2	CE3	Extend
+D00	D01	Extend
+D02	D03	SpacingMark
+D3B	D3C	Extend
+D3E		Extend
+D3F	D40	SpacingMark
+D41	D44	Extend
+D46	D48	SpacingMark
+D4A	D4C	SpacingMark
+D4D		Extend
+D4E		Prepend
+D57		Extend
+D62	D63	Extend
+D82	D83	SpacingMark
+DCA		Extend
+DCF		Extend
+DD0	DD1	SpacingMark
+DD2	DD4	Extend
+DD6		Extend
+DD8	DDE	SpacingMark
+DDF		Extend
+DF2	DF3	SpacingMark
+E31		Extend
+E33		SpacingMark
+E34	E3A	Extend
+E47	E4E	Extend
+EB1		Extend
+EB3		SpacingMark
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+F18	F19	Extend
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	SpacingMark
+F71	F7E	Extend
+F7F		SpacingMark
+F80	F84	Extend
+F86	F87	Extend
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102D	1030	Extend
+1031		SpacingMark
+1032	1037	Extend
+1039	103A	Extend
+103B	103C	SpacingMark
+103D	103E	Extend
+1056	1057	SpacingMark
+1058	1059	Extend
+105E	1060	Extend
+1071	1074	Extend
+1082		Extend
+1084		SpacingMark
+1085	1086	Extend
+108D		Extend
+109D		Extend
+1100	115F	L
+1160	11A7	V
+11A8	11FF	T
+135D	135F	Extend
+1712	1714	Extend
+1732	1734	Extend
+1752	1753	Extend
+1772	1773	Extend
+17B4	17B5	Extend
+17B6		SpacingMark
+17B7	17BD	Extend
+17BE	17C5	SpacingMark
+17C6		Extend
+17C7	17C8	SpacingMark
+17C9	17D3	Extend
+17DD		Extend
+180B	180D	Extend
+180E		Control
+1885	1886	Extend
+18A9		Extend
+1920	1922	Extend
+1923	1926	SpacingMark
+1927	1928	Extend
+1929	192B	SpacingMark
+1930	1931	SpacingMark
+1932		Extend
+1933	1938	SpacingMark
+1939	193B	Extend
+1A17	1A18	Extend
+1A19	1A1A	SpacingMark
+1A1B		Extend
+1A55		SpacingMark
+1A56		Extend
+1A57		SpacingMark
+1A58	1A5E	Extend
+1A60		Extend
+1A62		Extend
+1A65	1A6C	Extend
+1A6D	1A72	SpacingMark
+1A73	1A7C	Extend
+1A7F		Extend
+1AB0	1ABE	Extend
+1B00	1B03	Extend
+1B04		SpacingMark
+1B34		Extend
+1B35		SpacingMark
+1B36	1B3A	Extend
+1B3B		SpacingMark
+1B3C		Extend
+1B3D	1B41	SpacingMark
+1B42		Extend
+1B43	1B44	SpacingMark
+1B6B	1B73	Extend
+1B80	1B81	Extend
+1B82		SpacingMark
+1BA1		SpacingMark
+1BA2	1BA5	Extend
+1BA6	1BA7	SpacingMark
+1BA8	1BA9	Extend
+1BAA		SpacingMark
+1BAB	1BAD	Extend
+1BE6		Extend
+1BE7		SpacingMark
+1BE8	1BE9	Extend
+1BEA	1BEC	SpacingMark
+1BED		Extend
+1BEE		SpacingMark
+1BEF	1BF1	Extend
+1BF2	1BF3	SpacingMark
+1C24	1C2B	SpacingMark
+1C2C	1C33	Extend
+1C34	1C35	SpacingMark
+1C36	1C37	Extend
+1CD0	1CD2	Extend
+1CD4	1CE0	Extend
+1CE1		SpacingMark
+1CE2	1CE8	Extend
+1CED		Extend
+1CF2	1CF3	SpacingMark
+1CF4		Extend
+1CF7		SpacingMark
+1CF8	1CF9	Extend
+1DC0	1DF9	Extend
+1DFB	1DFF	Extend
+200B		Control
+200C		Extend
+200D		ZWJ
+200E	200F	Control
+2028	202E	Control
+2060	206F	Control
+20D0	20F0	Extend
+261D		E_Base
+2640		Glue_After_Zwj
+2642		Glue_After_Zwj
+2695	2696	Glue_After_Zwj
+26F9		E_Base
+2708		Glue_After_Zwj
+270A	270D	E_Base
+2764		Glue_After_Zwj
+2CEF	2CF1	Extend
+2D7F		Extend
+2DE0	2DFF	Extend
+302A	302F	Extend
+3099	309A	Extend
+A66F	A672	Extend
+A674	A67D	Extend
+A69E	A69F	Extend
+A6F0	A6F1	Extend
+A802		Extend
+A806		Extend
+A80B		Extend
+A823	A824	SpacingMark
+A825	A826	Extend
+A827		SpacingMark
+A880	A881	SpacingMark
+A8B4	A8C3	SpacingMark
+A8C4	A8C5	Extend
+A8E0	A8F1	Extend
+A926	A92D	Extend
+A947	A951	Extend
+A952	A953	SpacingMark
+A960	A97C	L
+A980	A982	Extend
+A983		SpacingMark
+A9B3		Extend
+A9B4	A9B5	SpacingMark
+A9B6	A9B9	Extend
+A9BA	A9BB	SpacingMark
+A9BC		Extend
+A9BD	A9C0	SpacingMark
+A9E5		Extend
+AA29	AA2E	Extend
+AA2F	AA30	SpacingMark
+AA31	AA32	Extend
+AA33	AA34	SpacingMark
+AA35	AA36	Extend
+AA43		Extend
+AA4C		Extend
+AA4D		SpacingMark
+AA7C		Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAEB		SpacingMark
+AAEC	AAED	Extend
+AAEE	AAEF	SpacingMark
+AAF5		SpacingMark
+AAF6		Extend
+ABE3	ABE4	SpacingMark
+ABE5		Extend
+ABE6	ABE7	SpacingMark
+ABE8		Extend
+ABE9	ABEA	SpacingMark
+ABEC		SpacingMark
+ABED		Extend
+AC00		LV
+AC01	AC1B	LVT
+AC1C		LV
+AC1D	AC37	LVT
+AC38		LV
+AC39	AC53	LVT
+AC54		LV
+AC55	AC6F	LVT
+AC70		LV
+AC71	AC8B	LVT
+AC8C		LV
+AC8D	ACA7	LVT
+ACA8		LV
+ACA9	ACC3	LVT
+ACC4		LV
+ACC5	ACDF	LVT
+ACE0		LV
+ACE1	ACFB	LVT
+ACFC		LV
+ACFD	AD17	LVT
+AD18		LV
+AD19	AD33	LVT
+AD34		LV
+AD35	AD4F	LVT
+AD50		LV
+AD51	AD6B	LVT
+AD6C		LV
+AD6D	AD87	LVT
+AD88		LV
+AD89	ADA3	LVT
+ADA4		LV
+ADA5	ADBF	LVT
+ADC0		LV
+ADC1	ADDB	LVT
+ADDC		LV
+ADDD	ADF7	LVT
+ADF8		LV
+ADF9	AE13	LVT
+AE14		LV
+AE15	AE2F	LVT
+AE30		LV
+AE31	AE4B	LVT
+AE4C		LV
+AE4D	AE67	LVT
+AE68		LV
+AE69	AE83	LVT
+AE84		LV
+AE85	AE9F	LVT
+AEA0		LV
+AEA1	AEBB	LVT
+AEBC		LV
+AEBD	AED7	LVT
+AED8		LV
+AED9	AEF3	LVT
+AEF4		LV
+AEF5	AF0F	LVT
+AF10		LV
+AF11	AF2B	LVT
+AF2C		LV
+AF2D	AF47	LVT
+AF48		LV
+AF49	AF63	LVT
+AF64		LV
+AF65	AF7F	LVT
+AF80		LV
+AF81	AF9B	LVT
+AF9C		LV
+AF9D	AFB7	LVT
+AFB8		LV
+AFB9	AFD3	LVT
+AFD4		LV
+AFD5	AFEF	LVT
+AFF0		LV
+AFF1	B00B	LVT
+B00C		LV
+B00D	B027	LVT
+B028		LV
+B029	B043	LVT
+B044		LV
+B045	B05F	LVT
+B060		LV
+B061	B07B	LVT
+B07C		LV
+B07D	B097	LVT
+B098		LV
+B099	B0B3	LVT
+B0B4		LV
+B0B5	B0CF	LVT
+B0D0		LV
+B0D1	B0EB	LVT
+B0EC		LV
+B0ED	B107	LVT
+B108		LV
+B109	B123	LVT
+B124		LV
+B125	B13F	LVT
+B140		LV
+B141	B15B	LVT
+B15C		LV
+B15D	B177	LVT
+B178		LV
+B179	B193	LVT
+B194		LV
+B195	B1AF	LVT
+B1B0		LV
+B1B1	B1CB	LVT
+B1CC		LV
+B1CD	B1E7	LVT
+B1E8		LV
+B1E9	B203	LVT
+B204		LV
+B205	B21F	LVT
+B220		LV
+B221	B23B	LVT
+B23C		LV
+B23D	B257	LVT
+B258		LV
+B259	B273	LVT
+B274		LV
+B275	B28F	LVT
+B290		LV
+B291	B2AB	LVT
+B2AC		LV
+B2AD	B2C7	LVT
+B2C8		LV
+B2C9	B2E3	LVT
+B2E4		LV
+B2E5	B2FF	LVT
+B300		LV
+B301	B31B	LVT
+B31C		LV
+B31D	B337	LVT
+B338		LV
+B339	B353	LVT
+B354		LV
+B355	B36F	LVT
+B370		LV
+B371	B38B	LVT
+B38C		LV
+B38D	B3A7	LVT
+B3A8		LV
+B3A9	B3C3	LVT
+B3C4		LV
+B3C5	B3DF	LVT
+B3E0		LV
+B3E1	B3FB	LVT
+B3FC		LV
+B3FD	B417	LVT
+B418		LV
+B419	B433	LVT
+B434		LV
+B435	B44F	LVT
+B450		LV
+B451	B46B	LVT
+B46C		LV
+B46D	B487	LVT
+B488		LV
+B489	B4A3	LVT
+B4A4		LV
+B4A5	B4BF	LVT
+B4C0		LV
+B4C1	B4DB	LVT
+B4DC		LV
+B4DD	B4F7	LVT
+B4F8		LV
+B4F9	B513	LVT
+B514		LV
+B515	B52F	LVT
+B530		LV
+B531	B54B	LVT
+B54C		LV
+B54D	B567	LVT
+B568		LV
+B569	B583	LVT
+B584		LV
+B585	B59F	LVT
+B5A0		LV
+B5A1	B5BB	LVT
+B5BC		LV
+B5BD	B5D7	LVT
+B5D8		LV
+B5D9	B5F3	LVT
+B5F4		LV
+B5F5	B60F	LVT
+B610		LV
+B611	B62B	LVT
+B62C		LV
+B62D	B647	LVT
+B648		LV
+B649	B663	LVT
+B664		LV
+B665	B67F	LVT
+B680		LV
+B681	B69B	LVT
+B69C		LV
+B69D	B6B7	LVT
+B6B8		LV
+B6B9	B6D3	LVT
+B6D4		LV
+B6D5	B6EF	LVT
+B6F0		LV
+B6F1	B70B	LVT
+B70C		LV
+B70D	B727	LVT
+B728		LV
+B729	B743	LVT
+B744		LV
+B745	B75F	LVT
+B760		LV
+B761	B77B	LVT
+B77C		LV
+B77D	B797	LVT
+B798		LV
+B799	B7B3	LVT
+B7B4		LV
+B7B5	B7CF	LVT
+B7D0		LV
+B7D1	B7EB	LVT
+B7EC		LV
+B7ED	B807	LVT
+B808		LV
+B809	B823	LVT
+B824		LV
+B825	B83F	LVT
+B840		LV
+B841	B85B	LVT
+B85C		LV
+B85D	B877	LVT
+B878		LV
+B879	B893	LVT
+B894		LV
+B895	B8AF	LVT
+B8B0		LV
+B8B1	B8CB	LVT
+B8CC		LV
+B8CD	B8E7	LVT
+B8E8		LV
+B8E9	B903	LVT
+B904		LV
+B905	B91F	LVT
+B920		LV
+B921	B93B	LVT
+B93C		LV
+B93D	B957	LVT
+B958		LV
+B959	B973	LVT
+B974		LV
+B975	B98F	LVT
+B990		LV
+B991	B9AB	LVT
+B9AC		LV
+B9AD	B9C7	LVT
+B9C8		LV
+B9C9	B9E3	LVT
+B9E4		LV
+B9E5	B9FF	LVT
+BA00		LV
+BA01	BA1B	LVT
+BA1C		LV
+BA1D	BA37	LVT
+BA38		LV
+BA39	BA53	LVT
+BA54		LV
+BA55	BA6F	LVT
+BA70		LV
+BA71	BA8B	LVT
+BA8C		LV
+BA8D	BAA7	LVT
+BAA8		LV
+BAA9	BAC3	LVT
+BAC4		LV
+BAC5	BADF	LVT
+BAE0		LV
+BAE1	BAFB	LVT
+BAFC		LV
+BAFD	BB17	LVT
+BB18		LV
+BB19	BB33	LVT
+BB34		LV
+BB35	BB4F	LVT
+BB50		LV
+BB51	BB6B	LVT
+BB6C		LV
+BB6D	BB87	LVT
+BB88		LV
+BB89	BBA3	LVT
+BBA4		LV
+BBA5	BBBF	LVT
+BBC0		LV
+BBC1	BBDB	LVT
+BBDC		LV
+BBDD	BBF7	LVT
+BBF8		LV
+BBF9	BC13	LVT
+BC14		LV
+BC15	BC2F	LVT
+BC30		LV
+BC31	BC4B	LVT
+BC4C		LV
+BC4D	BC67	LVT
+BC68		LV
+BC69	BC83	LVT
+BC84		LV
+BC85	BC9F	LVT
+BCA0		LV
+BCA1	BCBB	LVT
+BCBC		LV
+BCBD	BCD7	LVT
+BCD8		LV
+BCD9	BCF3	LVT
+BCF4		LV
+BCF5	BD0F	LVT
+BD10		LV
+BD11	BD2B	LVT
+BD2C		LV
+BD2D	BD47	LVT
+BD48		LV
+BD49	BD63	LVT
+BD64		LV
+BD65	BD7F	LVT
+BD80		LV
+BD81	BD9B	LVT
+BD9C		LV
+BD9D	BDB7	LVT
+BDB8		LV
+BDB9	BDD3	LVT
+BDD4		LV
+BDD5	BDEF	LVT
+BDF0		LV
+BDF1	BE0B	LVT
+BE0C		LV
+BE0D	BE27	LVT
+BE28		LV
+BE29	BE43	LVT
+BE44		LV
+BE45	BE5F	LVT
+BE60		LV
+BE61	BE7B	LVT
+BE7C		LV
+BE7D	BE97	LVT
+BE98		LV
+BE99	BEB3	LVT
+BEB4		LV
+BEB5	BECF	LVT
+BED0		LV
+BED1	BEEB	LVT
+BEEC		LV
+BEED	BF07	LVT
+BF08		LV
+BF09	BF23	LVT
+BF24		LV
+BF25	BF3F	LVT
+BF40		LV
+BF41	BF5B	LVT
+BF5C		LV
+BF5D	BF77	LVT
+BF78		LV
+BF79	BF93	LVT
+BF94		LV
+BF95	BFAF	LVT
+BFB0		LV
+BFB1	BFCB	LVT
+BFCC		LV
+BFCD	BFE7	LVT
+BFE8		LV
+BFE9	C003	LVT
+C004		LV
+C005	C01F	LVT
+C020		LV
+C021	C03B	LVT
+C03C		LV
+C03D	C057	LVT
+C058		LV
+C059	C073	LVT
+C074		LV
+C075	C08F	LVT
+C090		LV
+C091	C0AB	LVT
+C0AC		LV
+C0AD	C0C7	LVT
+C0C8		LV
+C0C9	C0E3	LVT
+C0E4		LV
+C0E5	C0FF	LVT
+C100		LV
+C101	C11B	LVT
+C11C		LV
+C11D	C137	LVT
+C138		LV
+C139	C153	LVT
+C154		LV
+C155	C16F	LVT
+C170		LV
+C171	C18B	LVT
+C18C		LV
+C18D	C1A7	LVT
+C1A8		LV
+C1A9	C1C3	LVT
+C1C4		LV
+C1C5	C1DF	LVT
+C1E0		LV
+C1E1	C1FB	LVT
+C1FC		LV
+C1FD	C217	LVT
+C218		LV
+C219	C233	LVT
+C234		LV
+C235	C24F	LVT
+C250		LV
+C251	C26B	LVT
+C26C		LV
+C26D	C287	LVT
+C288		LV
+C289	C2A3	LVT
+C2A4		LV
+C2A5	C2BF	LVT
+C2C0		LV
+C2C1	C2DB	LVT
+C2DC		LV
+C2DD	C2F7	LVT
+C2F8		LV
+C2F9	C313	LVT
+C314		LV
+C315	C32F	LVT
+C330		LV
+C331	C34B	LVT
+C34C		LV
+C34D	C367	LVT
+C368		LV
+C369	C383	LVT
+C384		LV
+C385	C39F	LVT
+C3A0		LV
+C3A1	C3BB	LVT
+C3BC		LV
+C3BD	C3D7	LVT
+C3D8		LV
+C3D9	C3F3	LVT
+C3F4		LV
+C3F5	C40F	LVT
+C410		LV
+C411	C42B	LVT
+C42C		LV
+C42D	C447	LVT
+C448		LV
+C449	C463	LVT
+C464		LV
+C465	C47F	LVT
+C480		LV
+C481	C49B	LVT
+C49C		LV
+C49D	C4B7	LVT
+C4B8		LV
+C4B9	C4D3	LVT
+C4D4		LV
+C4D5	C4EF	LVT
+C4F0		LV
+C4F1	C50B	LVT
+C50C		LV
+C50D	C527	LVT
+C528		LV
+C529	C543	LVT
+C544		LV
+C545	C55F	LVT
+C560		LV
+C561	C57B	LVT
+C57C		LV
+C57D	C597	LVT
+C598		LV
+C599	C5B3	LVT
+C5B4		LV
+C5B5	C5CF	LVT
+C5D0		LV
+C5D1	C5EB	LVT
+C5EC		LV
+C5ED	C607	LVT
+C608		LV
+C609	C623	LVT
+C624		LV
+C625	C63F	LVT
+C640		LV
+C641	C65B	LVT
+C65C		LV
+C65D	C677	LVT
+C678		LV
+C679	C693	LVT
+C694		LV
+C695	C6AF	LVT
+C6B0		LV
+C6B1	C6CB	LVT
+C6CC		LV
+C6CD	C6E7	LVT
+C6E8		LV
+C6E9	C703	LVT
+C704		LV
+C705	C71F	LVT
+C720		LV
+C721	C73B	LVT
+C73C		LV
+C73D	C757	LVT
+C758		LV
+C759	C773	LVT
+C774		LV
+C775	C78F	LVT
+C790		LV
+C791	C7AB	LVT
+C7AC		LV
+C7AD	C7C7	LVT
+C7C8		LV
+C7C9	C7E3	LVT
+C7E4		LV
+C7E5	C7FF	LVT
+C800		LV
+C801	C81B	LVT
+C81C		LV
+C81D	C837	LVT
+C838		LV
+C839	C853	LVT
+C854		LV
+C855	C86F	LVT
+C870		LV
+C871	C88B	LVT
+C88C		LV
+C88D	C8A7	LVT
+C8A8		LV
+C8A9	C8C3	LVT
+C8C4		LV
+C8C5	C8DF	LVT
+C8E0		LV
+C8E1	C8FB	LVT
+C8FC		LV
+C8FD	C917	LVT
+C918		LV
+C919	C933	LVT
+C934		LV
+C935	C94F	LVT
+C950		LV
+C951	C96B	LVT
+C96C		LV
+C96D	C987	LVT
+C988		LV
+C989	C9A3	LVT
+C9A4		LV
+C9A5	C9BF	LVT
+C9C0		LV
+C9C1	C9DB	LVT
+C9DC		LV
+C9DD	C9F7	LVT
+C9F8		LV
+C9F9	CA13	LVT
+CA14		LV
+CA15	CA2F	LVT
+CA30		LV
+CA31	CA4B	LVT
+CA4C		LV
+CA4D	CA67	LVT
+CA68		LV
+CA69	CA83	LVT
+CA84		LV
+CA85	CA9F	LVT
+CAA0		LV
+CAA1	CABB	LVT
+CABC		LV
+CABD	CAD7	LVT
+CAD8		LV
+CAD9	CAF3	LVT
+CAF4		LV
+CAF5	CB0F	LVT
+CB10		LV
+CB11	CB2B	LVT
+CB2C		LV
+CB2D	CB47	LVT
+CB48		LV
+CB49	CB63	LVT
+CB64		LV
+CB65	CB7F	LVT
+CB80		LV
+CB81	CB9B	LVT
+CB9C		LV
+CB9D	CBB7	LVT
+CBB8		LV
+CBB9	CBD3	LVT
+CBD4		LV
+CBD5	CBEF	LVT
+CBF0		LV
+CBF1	CC0B	LVT
+CC0C		LV
+CC0D	CC27	LVT
+CC28		LV
+CC29	CC43	LVT
+CC44		LV
+CC45	CC5F	LVT
+CC60		LV
+CC61	CC7B	LVT
+CC7C		LV
+CC7D	CC97	LVT
+CC98		LV
+CC99	CCB3	LVT
+CCB4		LV
+CCB5	CCCF	LVT
+CCD0		LV
+CCD1	CCEB	LVT
+CCEC		LV
+CCED	CD07	LVT
+CD08		LV
+CD09	CD23	LVT
+CD24		LV
+CD25	CD3F	LVT
+CD40		LV
+CD41	CD5B	LVT
+CD5C		LV
+CD5D	CD77	LVT
+CD78		LV
+CD79	CD93	LVT
+CD94		LV
+CD95	CDAF	LVT
+CDB0		LV
+CDB1	CDCB	LVT
+CDCC		LV
+CDCD	CDE7	LVT
+CDE8		LV
+CDE9	CE03	LVT
+CE04		LV
+CE05	CE1F	LVT
+CE20		LV
+CE21	CE3B	LVT
+CE3C		LV
+CE3D	CE57	LVT
+CE58		LV
+CE59	CE73	LVT
+CE74		LV
+CE75	CE8F	LVT
+CE90		LV
+CE91	CEAB	LVT
+CEAC		LV
+CEAD	CEC7	LVT
+CEC8		LV
+CEC9	CEE3	LVT
+CEE4		LV
+CEE5	CEFF	LVT
+CF00		LV
+CF01	CF1B	LVT
+CF1C		LV
+CF1D	CF37	LVT
+CF38		LV
+CF39	CF53	LVT
+CF54		LV
+CF55	CF6F	LVT
+CF70		LV
+CF71	CF8B	LVT
+CF8C		LV
+CF8D	CFA7	LVT
+CFA8		LV
+CFA9	CFC3	LVT
+CFC4		LV
+CFC5	CFDF	LVT
+CFE0		LV
+CFE1	CFFB	LVT
+CFFC		LV
+CFFD	D017	LVT
+D018		LV
+D019	D033	LVT
+D034		LV
+D035	D04F	LVT
+D050		LV
+D051	D06B	LVT
+D06C		LV
+D06D	D087	LVT
+D088		LV
+D089	D0A3	LVT
+D0A4		LV
+D0A5	D0BF	LVT
+D0C0		LV
+D0C1	D0DB	LVT
+D0DC		LV
+D0DD	D0F7	LVT
+D0F8		LV
+D0F9	D113	LVT
+D114		LV
+D115	D12F	LVT
+D130		LV
+D131	D14B	LVT
+D14C		LV
+D14D	D167	LVT
+D168		LV
+D169	D183	LVT
+D184		LV
+D185	D19F	LVT
+D1A0		LV
+D1A1	D1BB	LVT
+D1BC		LV
+D1BD	D1D7	LVT
+D1D8		LV
+D1D9	D1F3	LVT
+D1F4		LV
+D1F5	D20F	LVT
+D210		LV
+D211	D22B	LVT
+D22C		LV
+D22D	D247	LVT
+D248		LV
+D249	D263	LVT
+D264		LV
+D265	D27F	LVT
+D280		LV
+D281	D29B	LVT
+D29C		LV
+D29D	D2B7	LVT
+D2B8		LV
+D2B9	D2D3	LVT
+D2D4		LV
+D2D5	D2EF	LVT
+D2F0		LV
+D2F1	D30B	LVT
+D30C		LV
+D30D	D327	LVT
+D328		LV
+D329	D343	LVT
+D344		LV
+D345	D35F	LVT
+D360		LV
+D361	D37B	LVT
+D37C		LV
+D37D	D397	LVT
+D398		LV
+D399	D3B3	LVT
+D3B4		LV
+D3B5	D3CF	LVT
+D3D0		LV
+D3D1	D3EB	LVT
+D3EC		LV
+D3ED	D407	LVT
+D408		LV
+D409	D423	LVT
+D424		LV
+D425	D43F	LVT
+D440		LV
+D441	D45B	LVT
+D45C		LV
+D45D	D477	LVT
+D478		LV
+D479	D493	LVT
+D494		LV
+D495	D4AF	LVT
+D4B0		LV
+D4B1	D4CB	LVT
+D4CC		LV
+D4CD	D4E7	LVT
+D4E8		LV
+D4E9	D503	LVT
+D504		LV
+D505	D51F	LVT
+D520		LV
+D521	D53B	LVT
+D53C		LV
+D53D	D557	LVT
+D558		LV
+D559	D573	LVT
+D574		LV
+D575	D58F	LVT
+D590		LV
+D591	D5AB	LVT
+D5AC		LV
+D5AD	D5C7	LVT
+D5C8		LV
+D5C9	D5E3	LVT
+D5E4		LV
+D5E5	D5FF	LVT
+D600		LV
+D601	D61B	LVT
+D61C		LV
+D61D	D637	LVT
+D638		LV
+D639	D653	LVT
+D654		LV
+D655	D66F	LVT
+D670		LV
+D671	D68B	LVT
+D68C		LV
+D68D	D6A7	LVT
+D6A8		LV
+D6A9	D6C3	LVT
+D6C4		LV
+D6C5	D6DF	LVT
+D6E0		LV
+D6E1	D6FB	LVT
+D6FC		LV
+D6FD	D717	LVT
+D718		LV
+D719	D733	LVT
+D734		LV
+D735	D74F	LVT
+D750		LV
+D751	D76B	LVT
+D76C		LV
+D76D	D787	LVT
+D788		LV
+D789	D7A3	LVT
+D7B0	D7C6	V
+D7CB	D7FB	T
+D800	DFFF	Control
+FB1E		Extend
+FE00	FE0F	Extend
+FE20	FE2F	Extend
+FEFF		Control
+FF9E	FF9F	Extend
+FFF0	FFFB	Control
+101FD		Extend
+102E0		Extend
+10376	1037A	Extend
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A38	10A3A	Extend
+10A3F		Extend
+10AE5	10AE6	Extend
+11000		SpacingMark
+11001		Extend
+11002		SpacingMark
+11038	11046	Extend
+1107F	11081	Extend
+11082		SpacingMark
+110B0	110B2	SpacingMark
+110B3	110B6	Extend
+110B7	110B8	SpacingMark
+110B9	110BA	Extend
+110BD		Prepend
+11100	11102	Extend
+11127	1112B	Extend
+1112C		SpacingMark
+1112D	11134	Extend
+11173		Extend
+11180	11181	Extend
+11182		SpacingMark
+111B3	111B5	SpacingMark
+111B6	111BE	Extend
+111BF	111C0	SpacingMark
+111C2	111C3	Prepend
+111CA	111CC	Extend
+1122C	1122E	SpacingMark
+1122F	11231	Extend
+11232	11233	SpacingMark
+11234		Extend
+11235		SpacingMark
+11236	11237	Extend
+1123E		Extend
+112DF		Extend
+112E0	112E2	SpacingMark
+112E3	112EA	Extend
+11300	11301	Extend
+11302	11303	SpacingMark
+1133C		Extend
+1133E		Extend
+1133F		SpacingMark
+11340		Extend
+11341	11344	SpacingMark
+11347	11348	SpacingMark
+1134B	1134D	SpacingMark
+11357		Extend
+11362	11363	SpacingMark
+11366	1136C	Extend
+11370	11374	Extend
+11435	11437	SpacingMark
+11438	1143F	Extend
+11440	11441	SpacingMark
+11442	11444	Extend
+11445		SpacingMark
+11446		Extend
+114B0		Extend
+114B1	114B2	SpacingMark
+114B3	114B8	Extend
+114B9		SpacingMark
+114BA		Extend
+114BB	114BC	SpacingMark
+114BD		Extend
+114BE		SpacingMark
+114BF	114C0	Extend
+114C1		SpacingMark
+114C2	114C3	Extend
+115AF		Extend
+115B0	115B1	SpacingMark
+115B2	115B5	Extend
+115B8	115BB	SpacingMark
+115BC	115BD	Extend
+115BE		SpacingMark
+115BF	115C0	Extend
+115DC	115DD	Extend
+11630	11632	SpacingMark
+11633	1163A	Extend
+1163B	1163C	SpacingMark
+1163D		Extend
+1163E		SpacingMark
+1163F	11640	Extend
+116AB		Extend
+116AC		SpacingMark
+116AD		Extend
+116AE	116AF	SpacingMark
+116B0	116B5	Extend
+116B6		SpacingMark
+116B7		Extend
+1171D	1171F	Extend
+11720	11721	SpacingMark
+11722	11725	Extend
+11726		SpacingMark
+11727	1172B	Extend
+11A01	11A06	Extend
+11A07	11A08	SpacingMark
+11A09	11A0A	Extend
+11A33	11A38	Extend
+11A39		SpacingMark
+11A3A		Prepend
+11A3B	11A3E	Extend
+11A47		Extend
+11A51	11A56	Extend
+11A57	11A58	SpacingMark
+11A59	11A5B	Extend
+11A86	11A89	Prepend
+11A8A	11A96	Extend
+11A97		SpacingMark
+11A98	11A99	Extend
+11C2F		SpacingMark
+11C30	11C36	Extend
+11C38	11C3D	Extend
+11C3E		SpacingMark
+11C3F		Extend
+11C92	11CA7	Extend
+11CA9		SpacingMark
+11CAA	11CB0	Extend
+11CB1		SpacingMark
+11CB2	11CB3	Extend
+11CB4		SpacingMark
+11CB5	11CB6	Extend
+11D31	11D36	Extend
+11D3A		Extend
+11D3C	11D3D	Extend
+11D3F	11D45	Extend
+11D46		Prepend
+11D47		Extend
+16AF0	16AF4	Extend
+16B30	16B36	Extend
+16F51	16F7E	SpacingMark
+16F8F	16F92	Extend
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Control
+1D165		Extend
+1D166		SpacingMark
+1D167	1D169	Extend
+1D16D		SpacingMark
+1D16E	1D172	Extend
+1D173	1D17A	Control
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E000	1E006	Extend
+1E008	1E018	Extend
+1E01B	1E021	Extend
+1E023	1E024	Extend
+1E026	1E02A	Extend
+1E8D0	1E8D6	Extend
+1E944	1E94A	Extend
+1F1E6	1F1FF	Regional_Indicator
+1F308		Glue_After_Zwj
+1F33E		Glue_After_Zwj
+1F373		Glue_After_Zwj
+1F385		E_Base
+1F393		Glue_After_Zwj
+1F3A4		Glue_After_Zwj
+1F3A8		Glue_After_Zwj
+1F3C2	1F3C4	E_Base
+1F3C7		E_Base
+1F3CA	1F3CC	E_Base
+1F3EB		Glue_After_Zwj
+1F3ED		Glue_After_Zwj
+1F3FB	1F3FF	E_Modifier
+1F442	1F443	E_Base
+1F446	1F450	E_Base
+1F466	1F469	E_Base_GAZ
+1F46E		E_Base
+1F470	1F478	E_Base
+1F47C		E_Base
+1F481	1F483	E_Base
+1F485	1F487	E_Base
+1F48B		Glue_After_Zwj
+1F4AA		E_Base
+1F4BB	1F4BC	Glue_After_Zwj
+1F527		Glue_After_Zwj
+1F52C		Glue_After_Zwj
+1F574	1F575	E_Base
+1F57A		E_Base
+1F590		E_Base
+1F595	1F596	E_Base
+1F5E8		Glue_After_Zwj
+1F645	1F647	E_Base
+1F64B	1F64F	E_Base
+1F680		Glue_After_Zwj
+1F692		Glue_After_Zwj
+1F6A3		E_Base
+1F6B4	1F6B6	E_Base
+1F6C0		E_Base
+1F6CC		E_Base
+1F918	1F91C	E_Base
+1F91E	1F91F	E_Base
+1F926		E_Base
+1F930	1F939	E_Base
+1F93D	1F93E	E_Base
+1F9D1	1F9DD	E_Base
+E0000	E001F	Control
+E0020	E007F	Extend
+E0080	E00FF	Control
+E0100	E01EF	Extend
+E01F0	E0FFF	Control
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'To_PerlLB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'To_PerlLB'}{'missing'} = 'Alphabetic';
+
+return <<'END';
+0	8	Combining_Mark
+9		Break_After
+A		Line_Feed
+B	C	Mandatory_Break
+D		Carriage_Return
+E	1F	Combining_Mark
+20		Space
+21		Exclamation
+22		Quotation
+24		Prefix_Numeric
+25		Postfix_Numeric
+27		Quotation
+28		Open_Punctuation
+29		Close_Parenthesis
+2B		Prefix_Numeric
+2C		Infix_Numeric
+2D		Hyphen
+2E		Infix_Numeric
+2F		Break_Symbols
+30	39	Numeric
+3A	3B	Infix_Numeric
+3F		Exclamation
+5B		Open_Punctuation
+5C		Prefix_Numeric
+5D		Close_Parenthesis
+7B		Open_Punctuation
+7C		Break_After
+7D		Close_Punctuation
+7F	84	Combining_Mark
+85		Next_Line
+86	9F	Combining_Mark
+A0		Glue
+A1		Open_Punctuation
+A2		Postfix_Numeric
+A3	A5	Prefix_Numeric
+AB		Quotation
+AD		Break_After
+B0		Postfix_Numeric
+B1		Prefix_Numeric
+B4		Break_Before
+BB		Quotation
+BF		Open_Punctuation
+2C8		Break_Before
+2CC		Break_Before
+2DF		Break_Before
+300	34E	Combining_Mark
+34F		Glue
+350	35B	Combining_Mark
+35C	362	Glue
+363	36F	Combining_Mark
+37E		Infix_Numeric
+483	489	Combining_Mark
+589		Infix_Numeric
+58A		Break_After
+58F		Prefix_Numeric
+591	5BD	Combining_Mark
+5BE		Break_After
+5BF		Combining_Mark
+5C1	5C2	Combining_Mark
+5C4	5C5	Combining_Mark
+5C6		Exclamation
+5C7		Combining_Mark
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+609	60B	Postfix_Numeric
+60C	60D	Infix_Numeric
+610	61A	Combining_Mark
+61B		Exclamation
+61C		Combining_Mark
+61E	61F	Exclamation
+64B	65F	Combining_Mark
+660	669	Numeric
+66A		Postfix_Numeric
+66B	66C	Numeric
+670		Combining_Mark
+6D4		Exclamation
+6D6	6DC	Combining_Mark
+6DF	6E4	Combining_Mark
+6E7	6E8	Combining_Mark
+6EA	6ED	Combining_Mark
+6F0	6F9	Numeric
+711		Combining_Mark
+730	74A	Combining_Mark
+7A6	7B0	Combining_Mark
+7C0	7C9	Numeric
+7EB	7F3	Combining_Mark
+7F8		Infix_Numeric
+7F9		Exclamation
+816	819	Combining_Mark
+81B	823	Combining_Mark
+825	827	Combining_Mark
+829	82D	Combining_Mark
+859	85B	Combining_Mark
+8D4	8E1	Combining_Mark
+8E3	903	Combining_Mark
+93A	93C	Combining_Mark
+93E	94F	Combining_Mark
+951	957	Combining_Mark
+962	963	Combining_Mark
+964	965	Break_After
+966	96F	Numeric
+981	983	Combining_Mark
+9BC		Combining_Mark
+9BE	9C4	Combining_Mark
+9C7	9C8	Combining_Mark
+9CB	9CD	Combining_Mark
+9D7		Combining_Mark
+9E2	9E3	Combining_Mark
+9E6	9EF	Numeric
+9F2	9F3	Postfix_Numeric
+9F9		Postfix_Numeric
+9FB		Prefix_Numeric
+A01	A03	Combining_Mark
+A3C		Combining_Mark
+A3E	A42	Combining_Mark
+A47	A48	Combining_Mark
+A4B	A4D	Combining_Mark
+A51		Combining_Mark
+A66	A6F	Numeric
+A70	A71	Combining_Mark
+A75		Combining_Mark
+A81	A83	Combining_Mark
+ABC		Combining_Mark
+ABE	AC5	Combining_Mark
+AC7	AC9	Combining_Mark
+ACB	ACD	Combining_Mark
+AE2	AE3	Combining_Mark
+AE6	AEF	Numeric
+AF1		Prefix_Numeric
+AFA	AFF	Combining_Mark
+B01	B03	Combining_Mark
+B3C		Combining_Mark
+B3E	B44	Combining_Mark
+B47	B48	Combining_Mark
+B4B	B4D	Combining_Mark
+B56	B57	Combining_Mark
+B62	B63	Combining_Mark
+B66	B6F	Numeric
+B82		Combining_Mark
+BBE	BC2	Combining_Mark
+BC6	BC8	Combining_Mark
+BCA	BCD	Combining_Mark
+BD7		Combining_Mark
+BE6	BEF	Numeric
+BF9		Prefix_Numeric
+C00	C03	Combining_Mark
+C3E	C44	Combining_Mark
+C46	C48	Combining_Mark
+C4A	C4D	Combining_Mark
+C55	C56	Combining_Mark
+C62	C63	Combining_Mark
+C66	C6F	Numeric
+C81	C83	Combining_Mark
+CBC		Combining_Mark
+CBE	CC4	Combining_Mark
+CC6	CC8	Combining_Mark
+CCA	CCD	Combining_Mark
+CD5	CD6	Combining_Mark
+CE2	CE3	Combining_Mark
+CE6	CEF	Numeric
+D00	D03	Combining_Mark
+D3B	D3C	Combining_Mark
+D3E	D44	Combining_Mark
+D46	D48	Combining_Mark
+D4A	D4D	Combining_Mark
+D57		Combining_Mark
+D62	D63	Combining_Mark
+D66	D6F	Numeric
+D79		Postfix_Numeric
+D82	D83	Combining_Mark
+DCA		Combining_Mark
+DCF	DD4	Combining_Mark
+DD6		Combining_Mark
+DD8	DDF	Combining_Mark
+DE6	DEF	Numeric
+DF2	DF3	Combining_Mark
+E31		Combining_Mark
+E34	E3A	Combining_Mark
+E3F		Prefix_Numeric
+E47	E4E	Combining_Mark
+E50	E59	Numeric
+E5A	E5B	Break_After
+EB1		Combining_Mark
+EB4	EB9	Combining_Mark
+EBB	EBC	Combining_Mark
+EC8	ECD	Combining_Mark
+ED0	ED9	Numeric
+F01	F04	Break_Before
+F06	F07	Break_Before
+F08		Glue
+F09	F0A	Break_Before
+F0B		Break_After
+F0C		Glue
+F0D	F11	Exclamation
+F12		Glue
+F14		Exclamation
+F18	F19	Combining_Mark
+F20	F29	Numeric
+F34		Break_After
+F35		Combining_Mark
+F37		Combining_Mark
+F39		Combining_Mark
+F3A		Open_Punctuation
+F3B		Close_Punctuation
+F3C		Open_Punctuation
+F3D		Close_Punctuation
+F3E	F3F	Combining_Mark
+F71	F7E	Combining_Mark
+F7F		Break_After
+F80	F84	Combining_Mark
+F85		Break_After
+F86	F87	Combining_Mark
+F8D	F97	Combining_Mark
+F99	FBC	Combining_Mark
+FBE	FBF	Break_After
+FC6		Combining_Mark
+FD0	FD1	Break_Before
+FD2		Break_After
+FD3		Break_Before
+FD9	FDA	Glue
+102B	103E	Combining_Mark
+1040	1049	Numeric
+104A	104B	Break_After
+1056	1059	Combining_Mark
+105E	1060	Combining_Mark
+1062	1064	Combining_Mark
+1067	106D	Combining_Mark
+1071	1074	Combining_Mark
+1082	108D	Combining_Mark
+108F		Combining_Mark
+1090	1099	Numeric
+109A	109D	Combining_Mark
+1100	115F	JL
+1160	11A7	JV
+11A8	11FF	JT
+135D	135F	Combining_Mark
+1361		Break_After
+1400		Break_After
+1680		Break_After
+169B		Open_Punctuation
+169C		Close_Punctuation
+16EB	16ED	Break_After
+1712	1714	Combining_Mark
+1732	1734	Combining_Mark
+1735	1736	Break_After
+1752	1753	Combining_Mark
+1772	1773	Combining_Mark
+17B4	17D3	Combining_Mark
+17D4	17D5	Break_After
+17D6		Nonstarter
+17D8		Break_After
+17DA		Break_After
+17DB		Prefix_Numeric
+17DD		Combining_Mark
+17E0	17E9	Numeric
+1802	1803	Exclamation
+1804	1805	Break_After
+1806		Break_Before
+1808	1809	Exclamation
+180B	180D	Combining_Mark
+180E		Glue
+1810	1819	Numeric
+1885	1886	Combining_Mark
+18A9		Combining_Mark
+1920	192B	Combining_Mark
+1930	193B	Combining_Mark
+1944	1945	Exclamation
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A17	1A1B	Combining_Mark
+1A55	1A5E	Combining_Mark
+1A60	1A7C	Combining_Mark
+1A7F		Combining_Mark
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Combining_Mark
+1B00	1B04	Combining_Mark
+1B34	1B44	Combining_Mark
+1B50	1B59	Numeric
+1B5A	1B5B	Break_After
+1B5D	1B60	Break_After
+1B6B	1B73	Combining_Mark
+1B80	1B82	Combining_Mark
+1BA1	1BAD	Combining_Mark
+1BB0	1BB9	Numeric
+1BE6	1BF3	Combining_Mark
+1C24	1C37	Combining_Mark
+1C3B	1C3F	Break_After
+1C40	1C49	Numeric
+1C50	1C59	Numeric
+1C7E	1C7F	Break_After
+1CD0	1CD2	Combining_Mark
+1CD4	1CE8	Combining_Mark
+1CED		Combining_Mark
+1CF2	1CF4	Combining_Mark
+1CF7	1CF9	Combining_Mark
+1DC0	1DF9	Combining_Mark
+1DFB	1DFF	Combining_Mark
+1FFD		Break_Before
+2000	2006	Break_After
+2007		Glue
+2008	200A	Break_After
+200B		ZWSpace
+200C		Combining_Mark
+200D		ZWJ
+200E	200F	Combining_Mark
+2010		Break_After
+2011		Glue
+2012	2013	Break_After
+2014		Break_Both
+2018	2019	Quotation
+201A		Open_Punctuation
+201B	201D	Quotation
+201E		Open_Punctuation
+201F		Quotation
+2024	2026	Inseparable
+2027		Break_After
+2028	2029	Mandatory_Break
+202A	202E	Combining_Mark
+202F		Glue
+2030	2037	Postfix_Numeric
+2039	203A	Quotation
+203C	203D	Nonstarter
+2044		Infix_Numeric
+2045		Open_Punctuation
+2046		Close_Punctuation
+2047	2049	Nonstarter
+2056		Break_After
+2058	205B	Break_After
+205D	205F	Break_After
+2060		Word_Joiner
+2066	206F	Combining_Mark
+207D		Open_Punctuation
+207E		Close_Punctuation
+208D		Open_Punctuation
+208E		Close_Punctuation
+20A0	20A6	Prefix_Numeric
+20A7		Postfix_Numeric
+20A8	20B5	Prefix_Numeric
+20B6		Postfix_Numeric
+20B7	20BA	Prefix_Numeric
+20BB		Postfix_Numeric
+20BC	20BD	Prefix_Numeric
+20BE		Postfix_Numeric
+20BF	20CF	Prefix_Numeric
+20D0	20F0	Combining_Mark
+2103		Postfix_Numeric
+2109		Postfix_Numeric
+2116		Prefix_Numeric
+2212	2213	Prefix_Numeric
+22EF		Inseparable
+2308		Open_Punctuation
+2309		Close_Punctuation
+230A		Open_Punctuation
+230B		Close_Punctuation
+231A	231B	Ideographic
+2329		Open_Punctuation
+232A		Close_Punctuation
+23F0	23F3	Ideographic
+2600	2603	Ideographic
+2614	2615	Ideographic
+2618		Ideographic
+261A	261C	Ideographic
+261D		E_Base
+261E	261F	Ideographic
+2639	263B	Ideographic
+2668		Ideographic
+267F		Ideographic
+26BD	26C8	Ideographic
+26CD		Ideographic
+26CF	26D1	Ideographic
+26D3	26D4	Ideographic
+26D8	26D9	Ideographic
+26DC		Ideographic
+26DF	26E1	Ideographic
+26EA		Ideographic
+26F1	26F5	Ideographic
+26F7	26F8	Ideographic
+26F9		E_Base
+26FA		Ideographic
+26FD	2704	Ideographic
+2708	2709	Ideographic
+270A	270D	E_Base
+275B	2760	Quotation
+2762	2763	Exclamation
+2764		Ideographic
+2768		Open_Punctuation
+2769		Close_Punctuation
+276A		Open_Punctuation
+276B		Close_Punctuation
+276C		Open_Punctuation
+276D		Close_Punctuation
+276E		Open_Punctuation
+276F		Close_Punctuation
+2770		Open_Punctuation
+2771		Close_Punctuation
+2772		Open_Punctuation
+2773		Close_Punctuation
+2774		Open_Punctuation
+2775		Close_Punctuation
+27C5		Open_Punctuation
+27C6		Close_Punctuation
+27E6		Open_Punctuation
+27E7		Close_Punctuation
+27E8		Open_Punctuation
+27E9		Close_Punctuation
+27EA		Open_Punctuation
+27EB		Close_Punctuation
+27EC		Open_Punctuation
+27ED		Close_Punctuation
+27EE		Open_Punctuation
+27EF		Close_Punctuation
+2983		Open_Punctuation
+2984		Close_Punctuation
+2985		Open_Punctuation
+2986		Close_Punctuation
+2987		Open_Punctuation
+2988		Close_Punctuation
+2989		Open_Punctuation
+298A		Close_Punctuation
+298B		Open_Punctuation
+298C		Close_Punctuation
+298D		Open_Punctuation
+298E		Close_Punctuation
+298F		Open_Punctuation
+2990		Close_Punctuation
+2991		Open_Punctuation
+2992		Close_Punctuation
+2993		Open_Punctuation
+2994		Close_Punctuation
+2995		Open_Punctuation
+2996		Close_Punctuation
+2997		Open_Punctuation
+2998		Close_Punctuation
+29D8		Open_Punctuation
+29D9		Close_Punctuation
+29DA		Open_Punctuation
+29DB		Close_Punctuation
+29FC		Open_Punctuation
+29FD		Close_Punctuation
+2CEF	2CF1	Combining_Mark
+2CF9		Exclamation
+2CFA	2CFC	Break_After
+2CFE		Exclamation
+2CFF		Break_After
+2D70		Break_After
+2D7F		Combining_Mark
+2DE0	2DFF	Combining_Mark
+2E00	2E0D	Quotation
+2E0E	2E15	Break_After
+2E17		Break_After
+2E18		Open_Punctuation
+2E19		Break_After
+2E1C	2E1D	Quotation
+2E20	2E21	Quotation
+2E22		Open_Punctuation
+2E23		Close_Punctuation
+2E24		Open_Punctuation
+2E25		Close_Punctuation
+2E26		Open_Punctuation
+2E27		Close_Punctuation
+2E28		Open_Punctuation
+2E29		Close_Punctuation
+2E2A	2E2D	Break_After
+2E2E		Exclamation
+2E30	2E31	Break_After
+2E33	2E34	Break_After
+2E3A	2E3B	Break_Both
+2E3C	2E3E	Break_After
+2E40	2E41	Break_After
+2E42		Open_Punctuation
+2E43	2E49	Break_After
+2E80	2E99	Ideographic
+2E9B	2EF3	Ideographic
+2F00	2FD5	Ideographic
+2FF0	2FFB	Ideographic
+3000		Break_After
+3001	3002	Close_Punctuation
+3003	3004	Ideographic
+3005		Nonstarter
+3006	3007	Ideographic
+3008		Open_Punctuation
+3009		Close_Punctuation
+300A		Open_Punctuation
+300B		Close_Punctuation
+300C		Open_Punctuation
+300D		Close_Punctuation
+300E		Open_Punctuation
+300F		Close_Punctuation
+3010		Open_Punctuation
+3011		Close_Punctuation
+3012	3013	Ideographic
+3014		Open_Punctuation
+3015		Close_Punctuation
+3016		Open_Punctuation
+3017		Close_Punctuation
+3018		Open_Punctuation
+3019		Close_Punctuation
+301A		Open_Punctuation
+301B		Close_Punctuation
+301C		Nonstarter
+301D		Open_Punctuation
+301E	301F	Close_Punctuation
+3020	3029	Ideographic
+302A	302F	Combining_Mark
+3030	3034	Ideographic
+3035		Combining_Mark
+3036	303A	Ideographic
+303B	303C	Nonstarter
+303D	303F	Ideographic
+3041		Nonstarter
+3042		Ideographic
+3043		Nonstarter
+3044		Ideographic
+3045		Nonstarter
+3046		Ideographic
+3047		Nonstarter
+3048		Ideographic
+3049		Nonstarter
+304A	3062	Ideographic
+3063		Nonstarter
+3064	3082	Ideographic
+3083		Nonstarter
+3084		Ideographic
+3085		Nonstarter
+3086		Ideographic
+3087		Nonstarter
+3088	308D	Ideographic
+308E		Nonstarter
+308F	3094	Ideographic
+3095	3096	Nonstarter
+3099	309A	Combining_Mark
+309B	309E	Nonstarter
+309F		Ideographic
+30A0	30A1	Nonstarter
+30A2		Ideographic
+30A3		Nonstarter
+30A4		Ideographic
+30A5		Nonstarter
+30A6		Ideographic
+30A7		Nonstarter
+30A8		Ideographic
+30A9		Nonstarter
+30AA	30C2	Ideographic
+30C3		Nonstarter
+30C4	30E2	Ideographic
+30E3		Nonstarter
+30E4		Ideographic
+30E5		Nonstarter
+30E6		Ideographic
+30E7		Nonstarter
+30E8	30ED	Ideographic
+30EE		Nonstarter
+30EF	30F4	Ideographic
+30F5	30F6	Nonstarter
+30F7	30FA	Ideographic
+30FB	30FE	Nonstarter
+30FF		Ideographic
+3105	312E	Ideographic
+3131	318E	Ideographic
+3190	31BA	Ideographic
+31C0	31E3	Ideographic
+31F0	31FF	Nonstarter
+3200	321E	Ideographic
+3220	3247	Ideographic
+3250	32FE	Ideographic
+3300	4DBF	Ideographic
+4E00	A014	Ideographic
+A015		Nonstarter
+A016	A48C	Ideographic
+A490	A4C6	Ideographic
+A4FE	A4FF	Break_After
+A60D		Break_After
+A60E		Exclamation
+A60F		Break_After
+A620	A629	Numeric
+A66F	A672	Combining_Mark
+A674	A67D	Combining_Mark
+A69E	A69F	Combining_Mark
+A6F0	A6F1	Combining_Mark
+A6F3	A6F7	Break_After
+A802		Combining_Mark
+A806		Combining_Mark
+A80B		Combining_Mark
+A823	A827	Combining_Mark
+A838		Postfix_Numeric
+A874	A875	Break_Before
+A876	A877	Exclamation
+A880	A881	Combining_Mark
+A8B4	A8C5	Combining_Mark
+A8CE	A8CF	Break_After
+A8D0	A8D9	Numeric
+A8E0	A8F1	Combining_Mark
+A8FC		Break_Before
+A900	A909	Numeric
+A926	A92D	Combining_Mark
+A92E	A92F	Break_After
+A947	A953	Combining_Mark
+A960	A97C	JL
+A980	A983	Combining_Mark
+A9B3	A9C0	Combining_Mark
+A9C7	A9C9	Break_After
+A9D0	A9D9	Numeric
+A9E5		Combining_Mark
+A9F0	A9F9	Numeric
+AA29	AA36	Combining_Mark
+AA43		Combining_Mark
+AA4C	AA4D	Combining_Mark
+AA50	AA59	Numeric
+AA5D	AA5F	Break_After
+AA7B	AA7D	Combining_Mark
+AAB0		Combining_Mark
+AAB2	AAB4	Combining_Mark
+AAB7	AAB8	Combining_Mark
+AABE	AABF	Combining_Mark
+AAC1		Combining_Mark
+AAEB	AAEF	Combining_Mark
+AAF0	AAF1	Break_After
+AAF5	AAF6	Combining_Mark
+ABE3	ABEA	Combining_Mark
+ABEB		Break_After
+ABEC	ABED	Combining_Mark
+ABF0	ABF9	Numeric
+AC00		H2
+AC01	AC1B	H3
+AC1C		H2
+AC1D	AC37	H3
+AC38		H2
+AC39	AC53	H3
+AC54		H2
+AC55	AC6F	H3
+AC70		H2
+AC71	AC8B	H3
+AC8C		H2
+AC8D	ACA7	H3
+ACA8		H2
+ACA9	ACC3	H3
+ACC4		H2
+ACC5	ACDF	H3
+ACE0		H2
+ACE1	ACFB	H3
+ACFC		H2
+ACFD	AD17	H3
+AD18		H2
+AD19	AD33	H3
+AD34		H2
+AD35	AD4F	H3
+AD50		H2
+AD51	AD6B	H3
+AD6C		H2
+AD6D	AD87	H3
+AD88		H2
+AD89	ADA3	H3
+ADA4		H2
+ADA5	ADBF	H3
+ADC0		H2
+ADC1	ADDB	H3
+ADDC		H2
+ADDD	ADF7	H3
+ADF8		H2
+ADF9	AE13	H3
+AE14		H2
+AE15	AE2F	H3
+AE30		H2
+AE31	AE4B	H3
+AE4C		H2
+AE4D	AE67	H3
+AE68		H2
+AE69	AE83	H3
+AE84		H2
+AE85	AE9F	H3
+AEA0		H2
+AEA1	AEBB	H3
+AEBC		H2
+AEBD	AED7	H3
+AED8		H2
+AED9	AEF3	H3
+AEF4		H2
+AEF5	AF0F	H3
+AF10		H2
+AF11	AF2B	H3
+AF2C		H2
+AF2D	AF47	H3
+AF48		H2
+AF49	AF63	H3
+AF64		H2
+AF65	AF7F	H3
+AF80		H2
+AF81	AF9B	H3
+AF9C		H2
+AF9D	AFB7	H3
+AFB8		H2
+AFB9	AFD3	H3
+AFD4		H2
+AFD5	AFEF	H3
+AFF0		H2
+AFF1	B00B	H3
+B00C		H2
+B00D	B027	H3
+B028		H2
+B029	B043	H3
+B044		H2
+B045	B05F	H3
+B060		H2
+B061	B07B	H3
+B07C		H2
+B07D	B097	H3
+B098		H2
+B099	B0B3	H3
+B0B4		H2
+B0B5	B0CF	H3
+B0D0		H2
+B0D1	B0EB	H3
+B0EC		H2
+B0ED	B107	H3
+B108		H2
+B109	B123	H3
+B124		H2
+B125	B13F	H3
+B140		H2
+B141	B15B	H3
+B15C		H2
+B15D	B177	H3
+B178		H2
+B179	B193	H3
+B194		H2
+B195	B1AF	H3
+B1B0		H2
+B1B1	B1CB	H3
+B1CC		H2
+B1CD	B1E7	H3
+B1E8		H2
+B1E9	B203	H3
+B204		H2
+B205	B21F	H3
+B220		H2
+B221	B23B	H3
+B23C		H2
+B23D	B257	H3
+B258		H2
+B259	B273	H3
+B274		H2
+B275	B28F	H3
+B290		H2
+B291	B2AB	H3
+B2AC		H2
+B2AD	B2C7	H3
+B2C8		H2
+B2C9	B2E3	H3
+B2E4		H2
+B2E5	B2FF	H3
+B300		H2
+B301	B31B	H3
+B31C		H2
+B31D	B337	H3
+B338		H2
+B339	B353	H3
+B354		H2
+B355	B36F	H3
+B370		H2
+B371	B38B	H3
+B38C		H2
+B38D	B3A7	H3
+B3A8		H2
+B3A9	B3C3	H3
+B3C4		H2
+B3C5	B3DF	H3
+B3E0		H2
+B3E1	B3FB	H3
+B3FC		H2
+B3FD	B417	H3
+B418		H2
+B419	B433	H3
+B434		H2
+B435	B44F	H3
+B450		H2
+B451	B46B	H3
+B46C		H2
+B46D	B487	H3
+B488		H2
+B489	B4A3	H3
+B4A4		H2
+B4A5	B4BF	H3
+B4C0		H2
+B4C1	B4DB	H3
+B4DC		H2
+B4DD	B4F7	H3
+B4F8		H2
+B4F9	B513	H3
+B514		H2
+B515	B52F	H3
+B530		H2
+B531	B54B	H3
+B54C		H2
+B54D	B567	H3
+B568		H2
+B569	B583	H3
+B584		H2
+B585	B59F	H3
+B5A0		H2
+B5A1	B5BB	H3
+B5BC		H2
+B5BD	B5D7	H3
+B5D8		H2
+B5D9	B5F3	H3
+B5F4		H2
+B5F5	B60F	H3
+B610		H2
+B611	B62B	H3
+B62C		H2
+B62D	B647	H3
+B648		H2
+B649	B663	H3
+B664		H2
+B665	B67F	H3
+B680		H2
+B681	B69B	H3
+B69C		H2
+B69D	B6B7	H3
+B6B8		H2
+B6B9	B6D3	H3
+B6D4		H2
+B6D5	B6EF	H3
+B6F0		H2
+B6F1	B70B	H3
+B70C		H2
+B70D	B727	H3
+B728		H2
+B729	B743	H3
+B744		H2
+B745	B75F	H3
+B760		H2
+B761	B77B	H3
+B77C		H2
+B77D	B797	H3
+B798		H2
+B799	B7B3	H3
+B7B4		H2
+B7B5	B7CF	H3
+B7D0		H2
+B7D1	B7EB	H3
+B7EC		H2
+B7ED	B807	H3
+B808		H2
+B809	B823	H3
+B824		H2
+B825	B83F	H3
+B840		H2
+B841	B85B	H3
+B85C		H2
+B85D	B877	H3
+B878		H2
+B879	B893	H3
+B894		H2
+B895	B8AF	H3
+B8B0		H2
+B8B1	B8CB	H3
+B8CC		H2
+B8CD	B8E7	H3
+B8E8		H2
+B8E9	B903	H3
+B904		H2
+B905	B91F	H3
+B920		H2
+B921	B93B	H3
+B93C		H2
+B93D	B957	H3
+B958		H2
+B959	B973	H3
+B974		H2
+B975	B98F	H3
+B990		H2
+B991	B9AB	H3
+B9AC		H2
+B9AD	B9C7	H3
+B9C8		H2
+B9C9	B9E3	H3
+B9E4		H2
+B9E5	B9FF	H3
+BA00		H2
+BA01	BA1B	H3
+BA1C		H2
+BA1D	BA37	H3
+BA38		H2
+BA39	BA53	H3
+BA54		H2
+BA55	BA6F	H3
+BA70		H2
+BA71	BA8B	H3
+BA8C		H2
+BA8D	BAA7	H3
+BAA8		H2
+BAA9	BAC3	H3
+BAC4		H2
+BAC5	BADF	H3
+BAE0		H2
+BAE1	BAFB	H3
+BAFC		H2
+BAFD	BB17	H3
+BB18		H2
+BB19	BB33	H3
+BB34		H2
+BB35	BB4F	H3
+BB50		H2
+BB51	BB6B	H3
+BB6C		H2
+BB6D	BB87	H3
+BB88		H2
+BB89	BBA3	H3
+BBA4		H2
+BBA5	BBBF	H3
+BBC0		H2
+BBC1	BBDB	H3
+BBDC		H2
+BBDD	BBF7	H3
+BBF8		H2
+BBF9	BC13	H3
+BC14		H2
+BC15	BC2F	H3
+BC30		H2
+BC31	BC4B	H3
+BC4C		H2
+BC4D	BC67	H3
+BC68		H2
+BC69	BC83	H3
+BC84		H2
+BC85	BC9F	H3
+BCA0		H2
+BCA1	BCBB	H3
+BCBC		H2
+BCBD	BCD7	H3
+BCD8		H2
+BCD9	BCF3	H3
+BCF4		H2
+BCF5	BD0F	H3
+BD10		H2
+BD11	BD2B	H3
+BD2C		H2
+BD2D	BD47	H3
+BD48		H2
+BD49	BD63	H3
+BD64		H2
+BD65	BD7F	H3
+BD80		H2
+BD81	BD9B	H3
+BD9C		H2
+BD9D	BDB7	H3
+BDB8		H2
+BDB9	BDD3	H3
+BDD4		H2
+BDD5	BDEF	H3
+BDF0		H2
+BDF1	BE0B	H3
+BE0C		H2
+BE0D	BE27	H3
+BE28		H2
+BE29	BE43	H3
+BE44		H2
+BE45	BE5F	H3
+BE60		H2
+BE61	BE7B	H3
+BE7C		H2
+BE7D	BE97	H3
+BE98		H2
+BE99	BEB3	H3
+BEB4		H2
+BEB5	BECF	H3
+BED0		H2
+BED1	BEEB	H3
+BEEC		H2
+BEED	BF07	H3
+BF08		H2
+BF09	BF23	H3
+BF24		H2
+BF25	BF3F	H3
+BF40		H2
+BF41	BF5B	H3
+BF5C		H2
+BF5D	BF77	H3
+BF78		H2
+BF79	BF93	H3
+BF94		H2
+BF95	BFAF	H3
+BFB0		H2
+BFB1	BFCB	H3
+BFCC		H2
+BFCD	BFE7	H3
+BFE8		H2
+BFE9	C003	H3
+C004		H2
+C005	C01F	H3
+C020		H2
+C021	C03B	H3
+C03C		H2
+C03D	C057	H3
+C058		H2
+C059	C073	H3
+C074		H2
+C075	C08F	H3
+C090		H2
+C091	C0AB	H3
+C0AC		H2
+C0AD	C0C7	H3
+C0C8		H2
+C0C9	C0E3	H3
+C0E4		H2
+C0E5	C0FF	H3
+C100		H2
+C101	C11B	H3
+C11C		H2
+C11D	C137	H3
+C138		H2
+C139	C153	H3
+C154		H2
+C155	C16F	H3
+C170		H2
+C171	C18B	H3
+C18C		H2
+C18D	C1A7	H3
+C1A8		H2
+C1A9	C1C3	H3
+C1C4		H2
+C1C5	C1DF	H3
+C1E0		H2
+C1E1	C1FB	H3
+C1FC		H2
+C1FD	C217	H3
+C218		H2
+C219	C233	H3
+C234		H2
+C235	C24F	H3
+C250		H2
+C251	C26B	H3
+C26C		H2
+C26D	C287	H3
+C288		H2
+C289	C2A3	H3
+C2A4		H2
+C2A5	C2BF	H3
+C2C0		H2
+C2C1	C2DB	H3
+C2DC		H2
+C2DD	C2F7	H3
+C2F8		H2
+C2F9	C313	H3
+C314		H2
+C315	C32F	H3
+C330		H2
+C331	C34B	H3
+C34C		H2
+C34D	C367	H3
+C368		H2
+C369	C383	H3
+C384		H2
+C385	C39F	H3
+C3A0		H2
+C3A1	C3BB	H3
+C3BC		H2
+C3BD	C3D7	H3
+C3D8		H2
+C3D9	C3F3	H3
+C3F4		H2
+C3F5	C40F	H3
+C410		H2
+C411	C42B	H3
+C42C		H2
+C42D	C447	H3
+C448		H2
+C449	C463	H3
+C464		H2
+C465	C47F	H3
+C480		H2
+C481	C49B	H3
+C49C		H2
+C49D	C4B7	H3
+C4B8		H2
+C4B9	C4D3	H3
+C4D4		H2
+C4D5	C4EF	H3
+C4F0		H2
+C4F1	C50B	H3
+C50C		H2
+C50D	C527	H3
+C528		H2
+C529	C543	H3
+C544		H2
+C545	C55F	H3
+C560		H2
+C561	C57B	H3
+C57C		H2
+C57D	C597	H3
+C598		H2
+C599	C5B3	H3
+C5B4		H2
+C5B5	C5CF	H3
+C5D0		H2
+C5D1	C5EB	H3
+C5EC		H2
+C5ED	C607	H3
+C608		H2
+C609	C623	H3
+C624		H2
+C625	C63F	H3
+C640		H2
+C641	C65B	H3
+C65C		H2
+C65D	C677	H3
+C678		H2
+C679	C693	H3
+C694		H2
+C695	C6AF	H3
+C6B0		H2
+C6B1	C6CB	H3
+C6CC		H2
+C6CD	C6E7	H3
+C6E8		H2
+C6E9	C703	H3
+C704		H2
+C705	C71F	H3
+C720		H2
+C721	C73B	H3
+C73C		H2
+C73D	C757	H3
+C758		H2
+C759	C773	H3
+C774		H2
+C775	C78F	H3
+C790		H2
+C791	C7AB	H3
+C7AC		H2
+C7AD	C7C7	H3
+C7C8		H2
+C7C9	C7E3	H3
+C7E4		H2
+C7E5	C7FF	H3
+C800		H2
+C801	C81B	H3
+C81C		H2
+C81D	C837	H3
+C838		H2
+C839	C853	H3
+C854		H2
+C855	C86F	H3
+C870		H2
+C871	C88B	H3
+C88C		H2
+C88D	C8A7	H3
+C8A8		H2
+C8A9	C8C3	H3
+C8C4		H2
+C8C5	C8DF	H3
+C8E0		H2
+C8E1	C8FB	H3
+C8FC		H2
+C8FD	C917	H3
+C918		H2
+C919	C933	H3
+C934		H2
+C935	C94F	H3
+C950		H2
+C951	C96B	H3
+C96C		H2
+C96D	C987	H3
+C988		H2
+C989	C9A3	H3
+C9A4		H2
+C9A5	C9BF	H3
+C9C0		H2
+C9C1	C9DB	H3
+C9DC		H2
+C9DD	C9F7	H3
+C9F8		H2
+C9F9	CA13	H3
+CA14		H2
+CA15	CA2F	H3
+CA30		H2
+CA31	CA4B	H3
+CA4C		H2
+CA4D	CA67	H3
+CA68		H2
+CA69	CA83	H3
+CA84		H2
+CA85	CA9F	H3
+CAA0		H2
+CAA1	CABB	H3
+CABC		H2
+CABD	CAD7	H3
+CAD8		H2
+CAD9	CAF3	H3
+CAF4		H2
+CAF5	CB0F	H3
+CB10		H2
+CB11	CB2B	H3
+CB2C		H2
+CB2D	CB47	H3
+CB48		H2
+CB49	CB63	H3
+CB64		H2
+CB65	CB7F	H3
+CB80		H2
+CB81	CB9B	H3
+CB9C		H2
+CB9D	CBB7	H3
+CBB8		H2
+CBB9	CBD3	H3
+CBD4		H2
+CBD5	CBEF	H3
+CBF0		H2
+CBF1	CC0B	H3
+CC0C		H2
+CC0D	CC27	H3
+CC28		H2
+CC29	CC43	H3
+CC44		H2
+CC45	CC5F	H3
+CC60		H2
+CC61	CC7B	H3
+CC7C		H2
+CC7D	CC97	H3
+CC98		H2
+CC99	CCB3	H3
+CCB4		H2
+CCB5	CCCF	H3
+CCD0		H2
+CCD1	CCEB	H3
+CCEC		H2
+CCED	CD07	H3
+CD08		H2
+CD09	CD23	H3
+CD24		H2
+CD25	CD3F	H3
+CD40		H2
+CD41	CD5B	H3
+CD5C		H2
+CD5D	CD77	H3
+CD78		H2
+CD79	CD93	H3
+CD94		H2
+CD95	CDAF	H3
+CDB0		H2
+CDB1	CDCB	H3
+CDCC		H2
+CDCD	CDE7	H3
+CDE8		H2
+CDE9	CE03	H3
+CE04		H2
+CE05	CE1F	H3
+CE20		H2
+CE21	CE3B	H3
+CE3C		H2
+CE3D	CE57	H3
+CE58		H2
+CE59	CE73	H3
+CE74		H2
+CE75	CE8F	H3
+CE90		H2
+CE91	CEAB	H3
+CEAC		H2
+CEAD	CEC7	H3
+CEC8		H2
+CEC9	CEE3	H3
+CEE4		H2
+CEE5	CEFF	H3
+CF00		H2
+CF01	CF1B	H3
+CF1C		H2
+CF1D	CF37	H3
+CF38		H2
+CF39	CF53	H3
+CF54		H2
+CF55	CF6F	H3
+CF70		H2
+CF71	CF8B	H3
+CF8C		H2
+CF8D	CFA7	H3
+CFA8		H2
+CFA9	CFC3	H3
+CFC4		H2
+CFC5	CFDF	H3
+CFE0		H2
+CFE1	CFFB	H3
+CFFC		H2
+CFFD	D017	H3
+D018		H2
+D019	D033	H3
+D034		H2
+D035	D04F	H3
+D050		H2
+D051	D06B	H3
+D06C		H2
+D06D	D087	H3
+D088		H2
+D089	D0A3	H3
+D0A4		H2
+D0A5	D0BF	H3
+D0C0		H2
+D0C1	D0DB	H3
+D0DC		H2
+D0DD	D0F7	H3
+D0F8		H2
+D0F9	D113	H3
+D114		H2
+D115	D12F	H3
+D130		H2
+D131	D14B	H3
+D14C		H2
+D14D	D167	H3
+D168		H2
+D169	D183	H3
+D184		H2
+D185	D19F	H3
+D1A0		H2
+D1A1	D1BB	H3
+D1BC		H2
+D1BD	D1D7	H3
+D1D8		H2
+D1D9	D1F3	H3
+D1F4		H2
+D1F5	D20F	H3
+D210		H2
+D211	D22B	H3
+D22C		H2
+D22D	D247	H3
+D248		H2
+D249	D263	H3
+D264		H2
+D265	D27F	H3
+D280		H2
+D281	D29B	H3
+D29C		H2
+D29D	D2B7	H3
+D2B8		H2
+D2B9	D2D3	H3
+D2D4		H2
+D2D5	D2EF	H3
+D2F0		H2
+D2F1	D30B	H3
+D30C		H2
+D30D	D327	H3
+D328		H2
+D329	D343	H3
+D344		H2
+D345	D35F	H3
+D360		H2
+D361	D37B	H3
+D37C		H2
+D37D	D397	H3
+D398		H2
+D399	D3B3	H3
+D3B4		H2
+D3B5	D3CF	H3
+D3D0		H2
+D3D1	D3EB	H3
+D3EC		H2
+D3ED	D407	H3
+D408		H2
+D409	D423	H3
+D424		H2
+D425	D43F	H3
+D440		H2
+D441	D45B	H3
+D45C		H2
+D45D	D477	H3
+D478		H2
+D479	D493	H3
+D494		H2
+D495	D4AF	H3
+D4B0		H2
+D4B1	D4CB	H3
+D4CC		H2
+D4CD	D4E7	H3
+D4E8		H2
+D4E9	D503	H3
+D504		H2
+D505	D51F	H3
+D520		H2
+D521	D53B	H3
+D53C		H2
+D53D	D557	H3
+D558		H2
+D559	D573	H3
+D574		H2
+D575	D58F	H3
+D590		H2
+D591	D5AB	H3
+D5AC		H2
+D5AD	D5C7	H3
+D5C8		H2
+D5C9	D5E3	H3
+D5E4		H2
+D5E5	D5FF	H3
+D600		H2
+D601	D61B	H3
+D61C		H2
+D61D	D637	H3
+D638		H2
+D639	D653	H3
+D654		H2
+D655	D66F	H3
+D670		H2
+D671	D68B	H3
+D68C		H2
+D68D	D6A7	H3
+D6A8		H2
+D6A9	D6C3	H3
+D6C4		H2
+D6C5	D6DF	H3
+D6E0		H2
+D6E1	D6FB	H3
+D6FC		H2
+D6FD	D717	H3
+D718		H2
+D719	D733	H3
+D734		H2
+D735	D74F	H3
+D750		H2
+D751	D76B	H3
+D76C		H2
+D76D	D787	H3
+D788		H2
+D789	D7A3	H3
+D7B0	D7C6	JV
+D7CB	D7FB	JT
+F900	FAFF	Ideographic
+FB1D		Hebrew_Letter
+FB1E		Combining_Mark
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FD3E		Close_Punctuation
+FD3F		Open_Punctuation
+FDFC		Postfix_Numeric
+FE00	FE0F	Combining_Mark
+FE10		Infix_Numeric
+FE11	FE12	Close_Punctuation
+FE13	FE14	Infix_Numeric
+FE15	FE16	Exclamation
+FE17		Open_Punctuation
+FE18		Close_Punctuation
+FE19		Inseparable
+FE20	FE2F	Combining_Mark
+FE30	FE34	Ideographic
+FE35		Open_Punctuation
+FE36		Close_Punctuation
+FE37		Open_Punctuation
+FE38		Close_Punctuation
+FE39		Open_Punctuation
+FE3A		Close_Punctuation
+FE3B		Open_Punctuation
+FE3C		Close_Punctuation
+FE3D		Open_Punctuation
+FE3E		Close_Punctuation
+FE3F		Open_Punctuation
+FE40		Close_Punctuation
+FE41		Open_Punctuation
+FE42		Close_Punctuation
+FE43		Open_Punctuation
+FE44		Close_Punctuation
+FE45	FE46	Ideographic
+FE47		Open_Punctuation
+FE48		Close_Punctuation
+FE49	FE4F	Ideographic
+FE50		Close_Punctuation
+FE51		Ideographic
+FE52		Close_Punctuation
+FE54	FE55	Nonstarter
+FE56	FE57	Exclamation
+FE58		Ideographic
+FE59		Open_Punctuation
+FE5A		Close_Punctuation
+FE5B		Open_Punctuation
+FE5C		Close_Punctuation
+FE5D		Open_Punctuation
+FE5E		Close_Punctuation
+FE5F	FE66	Ideographic
+FE68		Ideographic
+FE69		Prefix_Numeric
+FE6A		Postfix_Numeric
+FE6B		Ideographic
+FEFF		Word_Joiner
+FF01		Exclamation
+FF02	FF03	Ideographic
+FF04		Prefix_Numeric
+FF05		Postfix_Numeric
+FF06	FF07	Ideographic
+FF08		Open_Punctuation
+FF09		Close_Punctuation
+FF0A	FF0B	Ideographic
+FF0C		Close_Punctuation
+FF0D		Ideographic
+FF0E		Close_Punctuation
+FF0F	FF19	Ideographic
+FF1A	FF1B	Nonstarter
+FF1C	FF1E	Ideographic
+FF1F		Exclamation
+FF20	FF3A	Ideographic
+FF3B		Open_Punctuation
+FF3C		Ideographic
+FF3D		Close_Punctuation
+FF3E	FF5A	Ideographic
+FF5B		Open_Punctuation
+FF5C		Ideographic
+FF5D		Close_Punctuation
+FF5E		Ideographic
+FF5F		Open_Punctuation
+FF60	FF61	Close_Punctuation
+FF62		Open_Punctuation
+FF63	FF64	Close_Punctuation
+FF65		Nonstarter
+FF66		Ideographic
+FF67	FF70	Nonstarter
+FF71	FF9D	Ideographic
+FF9E	FF9F	Nonstarter
+FFA0	FFBE	Ideographic
+FFC2	FFC7	Ideographic
+FFCA	FFCF	Ideographic
+FFD2	FFD7	Ideographic
+FFDA	FFDC	Ideographic
+FFE0		Postfix_Numeric
+FFE1		Prefix_Numeric
+FFE2	FFE4	Ideographic
+FFE5	FFE6	Prefix_Numeric
+FFF9	FFFB	Combining_Mark
+FFFC		Contingent_Break
+10100	10102	Break_After
+101FD		Combining_Mark
+102E0		Combining_Mark
+10376	1037A	Combining_Mark
+1039F		Break_After
+103D0		Break_After
+104A0	104A9	Numeric
+10857		Break_After
+1091F		Break_After
+10A01	10A03	Combining_Mark
+10A05	10A06	Combining_Mark
+10A0C	10A0F	Combining_Mark
+10A38	10A3A	Combining_Mark
+10A3F		Combining_Mark
+10A50	10A57	Break_After
+10AE5	10AE6	Combining_Mark
+10AF0	10AF5	Break_After
+10AF6		Inseparable
+10B39	10B3F	Break_After
+11000	11002	Combining_Mark
+11038	11046	Combining_Mark
+11047	11048	Break_After
+11066	1106F	Numeric
+1107F	11082	Combining_Mark
+110B0	110BA	Combining_Mark
+110BE	110C1	Break_After
+110F0	110F9	Numeric
+11100	11102	Combining_Mark
+11127	11134	Combining_Mark
+11136	1113F	Numeric
+11140	11143	Break_After
+11173		Combining_Mark
+11175		Break_Before
+11180	11182	Combining_Mark
+111B3	111C0	Combining_Mark
+111C5	111C6	Break_After
+111C8		Break_After
+111CA	111CC	Combining_Mark
+111D0	111D9	Numeric
+111DB		Break_Before
+111DD	111DF	Break_After
+1122C	11237	Combining_Mark
+11238	11239	Break_After
+1123B	1123C	Break_After
+1123E		Combining_Mark
+112A9		Break_After
+112DF	112EA	Combining_Mark
+112F0	112F9	Numeric
+11300	11303	Combining_Mark
+1133C		Combining_Mark
+1133E	11344	Combining_Mark
+11347	11348	Combining_Mark
+1134B	1134D	Combining_Mark
+11357		Combining_Mark
+11362	11363	Combining_Mark
+11366	1136C	Combining_Mark
+11370	11374	Combining_Mark
+11435	11446	Combining_Mark
+1144B	1144E	Break_After
+11450	11459	Numeric
+1145B		Break_After
+114B0	114C3	Combining_Mark
+114D0	114D9	Numeric
+115AF	115B5	Combining_Mark
+115B8	115C0	Combining_Mark
+115C1		Break_Before
+115C2	115C3	Break_After
+115C4	115C5	Exclamation
+115C9	115D7	Break_After
+115DC	115DD	Combining_Mark
+11630	11640	Combining_Mark
+11641	11642	Break_After
+11650	11659	Numeric
+11660	1166C	Break_Before
+116AB	116B7	Combining_Mark
+116C0	116C9	Numeric
+1171D	1172B	Combining_Mark
+11730	11739	Numeric
+1173C	1173E	Break_After
+118E0	118E9	Numeric
+11A01	11A0A	Combining_Mark
+11A33	11A39	Combining_Mark
+11A3B	11A3E	Combining_Mark
+11A3F		Break_Before
+11A41	11A44	Break_After
+11A45		Break_Before
+11A47		Combining_Mark
+11A51	11A5B	Combining_Mark
+11A8A	11A99	Combining_Mark
+11A9A	11A9C	Break_After
+11A9E	11AA0	Break_Before
+11AA1	11AA2	Break_After
+11C2F	11C36	Combining_Mark
+11C38	11C3F	Combining_Mark
+11C41	11C45	Break_After
+11C50	11C59	Numeric
+11C70		Break_Before
+11C71		Exclamation
+11C92	11CA7	Combining_Mark
+11CA9	11CB6	Combining_Mark
+11D31	11D36	Combining_Mark
+11D3A		Combining_Mark
+11D3C	11D3D	Combining_Mark
+11D3F	11D45	Combining_Mark
+11D47		Combining_Mark
+11D50	11D59	Numeric
+12470	12474	Break_After
+13258	1325A	Open_Punctuation
+1325B	1325D	Close_Punctuation
+13282		Close_Punctuation
+13286		Open_Punctuation
+13287		Close_Punctuation
+13288		Open_Punctuation
+13289		Close_Punctuation
+13379		Open_Punctuation
+1337A	1337B	Close_Punctuation
+145CE		Open_Punctuation
+145CF		Close_Punctuation
+16A60	16A69	Numeric
+16A6E	16A6F	Break_After
+16AF0	16AF4	Combining_Mark
+16AF5		Break_After
+16B30	16B36	Combining_Mark
+16B37	16B39	Break_After
+16B44		Break_After
+16B50	16B59	Numeric
+16F51	16F7E	Combining_Mark
+16F8F	16F92	Combining_Mark
+16FE0	16FE1	Nonstarter
+17000	187EC	Ideographic
+18800	18AF2	Ideographic
+1B000	1B11E	Ideographic
+1B170	1B2FB	Ideographic
+1BC9D	1BC9E	Combining_Mark
+1BC9F		Break_After
+1BCA0	1BCA3	Combining_Mark
+1D165	1D169	Combining_Mark
+1D16D	1D182	Combining_Mark
+1D185	1D18B	Combining_Mark
+1D1AA	1D1AD	Combining_Mark
+1D242	1D244	Combining_Mark
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Combining_Mark
+1DA3B	1DA6C	Combining_Mark
+1DA75		Combining_Mark
+1DA84		Combining_Mark
+1DA87	1DA8A	Break_After
+1DA9B	1DA9F	Combining_Mark
+1DAA1	1DAAF	Combining_Mark
+1E000	1E006	Combining_Mark
+1E008	1E018	Combining_Mark
+1E01B	1E021	Combining_Mark
+1E023	1E024	Combining_Mark
+1E026	1E02A	Combining_Mark
+1E8D0	1E8D6	Combining_Mark
+1E944	1E94A	Combining_Mark
+1E950	1E959	Numeric
+1E95E	1E95F	Open_Punctuation
+1F000	1F0FF	Ideographic
+1F10D	1F10F	Ideographic
+1F12F		Ideographic
+1F16C	1F16F	Ideographic
+1F1AD	1F1E5	Ideographic
+1F1E6	1F1FF	Regional_Indicator
+1F200	1F384	Ideographic
+1F385		E_Base
+1F386	1F39B	Ideographic
+1F39E	1F3B4	Ideographic
+1F3B7	1F3BB	Ideographic
+1F3BD	1F3C1	Ideographic
+1F3C2	1F3C4	E_Base
+1F3C5	1F3C6	Ideographic
+1F3C7		E_Base
+1F3C8	1F3C9	Ideographic
+1F3CA	1F3CC	E_Base
+1F3CD	1F3FA	Ideographic
+1F3FB	1F3FF	E_Modifier
+1F400	1F441	Ideographic
+1F442	1F443	E_Base
+1F444	1F445	Ideographic
+1F446	1F450	E_Base
+1F451	1F465	Ideographic
+1F466	1F469	E_Base
+1F46A	1F46D	Ideographic
+1F46E		E_Base
+1F46F		Ideographic
+1F470	1F478	E_Base
+1F479	1F47B	Ideographic
+1F47C		E_Base
+1F47D	1F480	Ideographic
+1F481	1F483	E_Base
+1F484		Ideographic
+1F485	1F487	E_Base
+1F488	1F49F	Ideographic
+1F4A1		Ideographic
+1F4A3		Ideographic
+1F4A5	1F4A9	Ideographic
+1F4AA		E_Base
+1F4AB	1F4AE	Ideographic
+1F4B0		Ideographic
+1F4B3	1F4FF	Ideographic
+1F507	1F516	Ideographic
+1F525	1F531	Ideographic
+1F54A	1F573	Ideographic
+1F574	1F575	E_Base
+1F576	1F579	Ideographic
+1F57A		E_Base
+1F57B	1F58F	Ideographic
+1F590		E_Base
+1F591	1F594	Ideographic
+1F595	1F596	E_Base
+1F597	1F5D3	Ideographic
+1F5DC	1F5F3	Ideographic
+1F5FA	1F644	Ideographic
+1F645	1F647	E_Base
+1F648	1F64A	Ideographic
+1F64B	1F64F	E_Base
+1F676	1F678	Quotation
+1F679	1F67B	Nonstarter
+1F680	1F6A2	Ideographic
+1F6A3		E_Base
+1F6A4	1F6B3	Ideographic
+1F6B4	1F6B6	E_Base
+1F6B7	1F6BF	Ideographic
+1F6C0		E_Base
+1F6C1	1F6CB	Ideographic
+1F6CC		E_Base
+1F6CD	1F6FF	Ideographic
+1F774	1F77F	Ideographic
+1F7D5	1F7FF	Ideographic
+1F80C	1F80F	Ideographic
+1F848	1F84F	Ideographic
+1F85A	1F85F	Ideographic
+1F888	1F88F	Ideographic
+1F8AE	1F8FF	Ideographic
+1F90C	1F917	Ideographic
+1F918	1F91C	E_Base
+1F91D		Ideographic
+1F91E	1F91F	E_Base
+1F920	1F925	Ideographic
+1F926		E_Base
+1F927	1F92F	Ideographic
+1F930	1F939	E_Base
+1F93A	1F93C	Ideographic
+1F93D	1F93E	E_Base
+1F93F	1F9D0	Ideographic
+1F9D1	1F9DD	E_Base
+1F9DE	1FFFD	Ideographic
+20000	2FFFD	Ideographic
+30000	3FFFD	Ideographic
+E0001		Combining_Mark
+E0020	E007F	Combining_Mark
+E0100	E01EF	Combining_Mark
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('NFKC_Casefold') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKCCF'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToNFKCCF'}{'specials_name'} = 'utf8::ToSpecNFKCCF'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToNFKCCF'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecNFKCCF = (
+"\xC2\xA8" => "\x{0020}\x{0308}",             # U+00A8 => 0020 0308
+"\xC2\xAD" => "",                             # U+00AD => 
+"\xC2\xAF" => "\x{0020}\x{0304}",             # U+00AF => 0020 0304
+"\xC2\xB4" => "\x{0020}\x{0301}",             # U+00B4 => 0020 0301
+"\xC2\xB8" => "\x{0020}\x{0327}",             # U+00B8 => 0020 0327
+"\xC2\xBC" => "\x{0031}\x{2044}\x{0034}",     # U+00BC => 0031 2044 0034
+"\xC2\xBD" => "\x{0031}\x{2044}\x{0032}",     # U+00BD => 0031 2044 0032
+"\xC2\xBE" => "\x{0033}\x{2044}\x{0034}",     # U+00BE => 0033 2044 0034
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC4\xB2" => "\x{0069}\x{006A}",             # U+0132 => 0069 006A
+"\xC4\xB3" => "\x{0069}\x{006A}",             # U+0133 => 0069 006A
+"\xC4\xBF" => "\x{006C}\x{00B7}",             # U+013F => 006C 00B7
+"\xC5\x80" => "\x{006C}\x{00B7}",             # U+0140 => 006C 00B7
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\x84" => "\x{0064}\x{017E}",             # U+01C4 => 0064 017E
+"\xC7\x85" => "\x{0064}\x{017E}",             # U+01C5 => 0064 017E
+"\xC7\x86" => "\x{0064}\x{017E}",             # U+01C6 => 0064 017E
+"\xC7\x87" => "\x{006C}\x{006A}",             # U+01C7 => 006C 006A
+"\xC7\x88" => "\x{006C}\x{006A}",             # U+01C8 => 006C 006A
+"\xC7\x89" => "\x{006C}\x{006A}",             # U+01C9 => 006C 006A
+"\xC7\x8A" => "\x{006E}\x{006A}",             # U+01CA => 006E 006A
+"\xC7\x8B" => "\x{006E}\x{006A}",             # U+01CB => 006E 006A
+"\xC7\x8C" => "\x{006E}\x{006A}",             # U+01CC => 006E 006A
+"\xC7\xB1" => "\x{0064}\x{007A}",             # U+01F1 => 0064 007A
+"\xC7\xB2" => "\x{0064}\x{007A}",             # U+01F2 => 0064 007A
+"\xC7\xB3" => "\x{0064}\x{007A}",             # U+01F3 => 0064 007A
+"\xCB\x98" => "\x{0020}\x{0306}",             # U+02D8 => 0020 0306
+"\xCB\x99" => "\x{0020}\x{0307}",             # U+02D9 => 0020 0307
+"\xCB\x9A" => "\x{0020}\x{030A}",             # U+02DA => 0020 030A
+"\xCB\x9B" => "\x{0020}\x{0328}",             # U+02DB => 0020 0328
+"\xCB\x9C" => "\x{0020}\x{0303}",             # U+02DC => 0020 0303
+"\xCB\x9D" => "\x{0020}\x{030B}",             # U+02DD => 0020 030B
+"\xCD\x84" => "\x{0308}\x{0301}",             # U+0344 => 0308 0301
+"\xCD\x8F" => "",                             # U+034F => 
+"\xCD\xBA" => "\x{0020}\x{03B9}",             # U+037A => 0020 03B9
+"\xCE\x84" => "\x{0020}\x{0301}",             # U+0384 => 0020 0301
+"\xCE\x85" => "\x{0020}\x{0308}\x{0301}",     # U+0385 => 0020 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xD8\x9C" => "",                             # U+061C => 
+"\xD9\xB5" => "\x{0627}\x{0674}",             # U+0675 => 0627 0674
+"\xD9\xB6" => "\x{0648}\x{0674}",             # U+0676 => 0648 0674
+"\xD9\xB7" => "\x{06C7}\x{0674}",             # U+0677 => 06C7 0674
+"\xD9\xB8" => "\x{064A}\x{0674}",             # U+0678 => 064A 0674
+"\xE0\xA5\x98" => "\x{0915}\x{093C}",         # U+0958 => 0915 093C
+"\xE0\xA5\x99" => "\x{0916}\x{093C}",         # U+0959 => 0916 093C
+"\xE0\xA5\x9A" => "\x{0917}\x{093C}",         # U+095A => 0917 093C
+"\xE0\xA5\x9B" => "\x{091C}\x{093C}",         # U+095B => 091C 093C
+"\xE0\xA5\x9C" => "\x{0921}\x{093C}",         # U+095C => 0921 093C
+"\xE0\xA5\x9D" => "\x{0922}\x{093C}",         # U+095D => 0922 093C
+"\xE0\xA5\x9E" => "\x{092B}\x{093C}",         # U+095E => 092B 093C
+"\xE0\xA5\x9F" => "\x{092F}\x{093C}",         # U+095F => 092F 093C
+"\xE0\xA7\x9C" => "\x{09A1}\x{09BC}",         # U+09DC => 09A1 09BC
+"\xE0\xA7\x9D" => "\x{09A2}\x{09BC}",         # U+09DD => 09A2 09BC
+"\xE0\xA7\x9F" => "\x{09AF}\x{09BC}",         # U+09DF => 09AF 09BC
+"\xE0\xA8\xB3" => "\x{0A32}\x{0A3C}",         # U+0A33 => 0A32 0A3C
+"\xE0\xA8\xB6" => "\x{0A38}\x{0A3C}",         # U+0A36 => 0A38 0A3C
+"\xE0\xA9\x99" => "\x{0A16}\x{0A3C}",         # U+0A59 => 0A16 0A3C
+"\xE0\xA9\x9A" => "\x{0A17}\x{0A3C}",         # U+0A5A => 0A17 0A3C
+"\xE0\xA9\x9B" => "\x{0A1C}\x{0A3C}",         # U+0A5B => 0A1C 0A3C
+"\xE0\xA9\x9E" => "\x{0A2B}\x{0A3C}",         # U+0A5E => 0A2B 0A3C
+"\xE0\xAD\x9C" => "\x{0B21}\x{0B3C}",         # U+0B5C => 0B21 0B3C
+"\xE0\xAD\x9D" => "\x{0B22}\x{0B3C}",         # U+0B5D => 0B22 0B3C
+"\xE0\xB8\xB3" => "\x{0E4D}\x{0E32}",         # U+0E33 => 0E4D 0E32
+"\xE0\xBA\xB3" => "\x{0ECD}\x{0EB2}",         # U+0EB3 => 0ECD 0EB2
+"\xE0\xBB\x9C" => "\x{0EAB}\x{0E99}",         # U+0EDC => 0EAB 0E99
+"\xE0\xBB\x9D" => "\x{0EAB}\x{0EA1}",         # U+0EDD => 0EAB 0EA1
+"\xE0\xBD\x83" => "\x{0F42}\x{0FB7}",         # U+0F43 => 0F42 0FB7
+"\xE0\xBD\x8D" => "\x{0F4C}\x{0FB7}",         # U+0F4D => 0F4C 0FB7
+"\xE0\xBD\x92" => "\x{0F51}\x{0FB7}",         # U+0F52 => 0F51 0FB7
+"\xE0\xBD\x97" => "\x{0F56}\x{0FB7}",         # U+0F57 => 0F56 0FB7
+"\xE0\xBD\x9C" => "\x{0F5B}\x{0FB7}",         # U+0F5C => 0F5B 0FB7
+"\xE0\xBD\xA9" => "\x{0F40}\x{0FB5}",         # U+0F69 => 0F40 0FB5
+"\xE0\xBD\xB3" => "\x{0F71}\x{0F72}",         # U+0F73 => 0F71 0F72
+"\xE0\xBD\xB5" => "\x{0F71}\x{0F74}",         # U+0F75 => 0F71 0F74
+"\xE0\xBD\xB6" => "\x{0FB2}\x{0F80}",         # U+0F76 => 0FB2 0F80
+"\xE0\xBD\xB7" => "\x{0FB2}\x{0F71}\x{0F80}", # U+0F77 => 0FB2 0F71 0F80
+"\xE0\xBD\xB8" => "\x{0FB3}\x{0F80}",         # U+0F78 => 0FB3 0F80
+"\xE0\xBD\xB9" => "\x{0FB3}\x{0F71}\x{0F80}", # U+0F79 => 0FB3 0F71 0F80
+"\xE0\xBE\x81" => "\x{0F71}\x{0F80}",         # U+0F81 => 0F71 0F80
+"\xE0\xBE\x93" => "\x{0F92}\x{0FB7}",         # U+0F93 => 0F92 0FB7
+"\xE0\xBE\x9D" => "\x{0F9C}\x{0FB7}",         # U+0F9D => 0F9C 0FB7
+"\xE0\xBE\xA2" => "\x{0FA1}\x{0FB7}",         # U+0FA2 => 0FA1 0FB7
+"\xE0\xBE\xA7" => "\x{0FA6}\x{0FB7}",         # U+0FA7 => 0FA6 0FB7
+"\xE0\xBE\xAC" => "\x{0FAB}\x{0FB7}",         # U+0FAC => 0FAB 0FB7
+"\xE0\xBE\xB9" => "\x{0F90}\x{0FB5}",         # U+0FB9 => 0F90 0FB5
+"\xE1\x85\x9F" => "",                         # U+115F => 
+"\xE1\x85\xA0" => "",                         # U+1160 => 
+"\xE1\x9E\xB4" => "",                         # U+17B4 => 
+"\xE1\x9E\xB5" => "",                         # U+17B5 => 
+"\xE1\xA0\x8B" => "",                         # U+180B => 
+"\xE1\xA0\x8C" => "",                         # U+180C => 
+"\xE1\xA0\x8D" => "",                         # U+180D => 
+"\xE1\xA0\x8E" => "",                         # U+180E => 
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB7" => "\x{1FB6}\x{03B9}",         # U+1FB7 => 1FB6 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBE\xBD" => "\x{0020}\x{0313}",         # U+1FBD => 0020 0313
+"\xE1\xBE\xBF" => "\x{0020}\x{0313}",         # U+1FBF => 0020 0313
+"\xE1\xBF\x80" => "\x{0020}\x{0342}",         # U+1FC0 => 0020 0342
+"\xE1\xBF\x81" => "\x{0020}\x{0308}\x{0342}", # U+1FC1 => 0020 0308 0342
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x87" => "\x{1FC6}\x{03B9}",         # U+1FC7 => 1FC6 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x8D" => "\x{0020}\x{0313}\x{0300}", # U+1FCD => 0020 0313 0300
+"\xE1\xBF\x8E" => "\x{0020}\x{0313}\x{0301}", # U+1FCE => 0020 0313 0301
+"\xE1\xBF\x8F" => "\x{0020}\x{0313}\x{0342}", # U+1FCF => 0020 0313 0342
+"\xE1\xBF\x9D" => "\x{0020}\x{0314}\x{0300}", # U+1FDD => 0020 0314 0300
+"\xE1\xBF\x9E" => "\x{0020}\x{0314}\x{0301}", # U+1FDE => 0020 0314 0301
+"\xE1\xBF\x9F" => "\x{0020}\x{0314}\x{0342}", # U+1FDF => 0020 0314 0342
+"\xE1\xBF\xAD" => "\x{0020}\x{0308}\x{0300}", # U+1FED => 0020 0308 0300
+"\xE1\xBF\xAE" => "\x{0020}\x{0308}\x{0301}", # U+1FEE => 0020 0308 0301
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB7" => "\x{1FF6}\x{03B9}",         # U+1FF7 => 1FF6 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xE1\xBF\xBD" => "\x{0020}\x{0301}",         # U+1FFD => 0020 0301
+"\xE1\xBF\xBE" => "\x{0020}\x{0314}",         # U+1FFE => 0020 0314
+"\xE2\x80\x8B" => "",                         # U+200B => 
+"\xE2\x80\x8C" => "",                         # U+200C => 
+"\xE2\x80\x8D" => "",                         # U+200D => 
+"\xE2\x80\x8E" => "",                         # U+200E => 
+"\xE2\x80\x8F" => "",                         # U+200F => 
+"\xE2\x80\x97" => "\x{0020}\x{0333}",         # U+2017 => 0020 0333
+"\xE2\x80\xA5" => "\x{002E}\x{002E}",         # U+2025 => 002E 002E
+"\xE2\x80\xA6" => "\x{002E}\x{002E}\x{002E}", # U+2026 => 002E 002E 002E
+"\xE2\x80\xAA" => "",                         # U+202A => 
+"\xE2\x80\xAB" => "",                         # U+202B => 
+"\xE2\x80\xAC" => "",                         # U+202C => 
+"\xE2\x80\xAD" => "",                         # U+202D => 
+"\xE2\x80\xAE" => "",                         # U+202E => 
+"\xE2\x80\xB3" => "\x{2032}\x{2032}",         # U+2033 => 2032 2032
+"\xE2\x80\xB4" => "\x{2032}\x{2032}\x{2032}", # U+2034 => 2032 2032 2032
+"\xE2\x80\xB6" => "\x{2035}\x{2035}",         # U+2036 => 2035 2035
+"\xE2\x80\xB7" => "\x{2035}\x{2035}\x{2035}", # U+2037 => 2035 2035 2035
+"\xE2\x80\xBC" => "\x{0021}\x{0021}",         # U+203C => 0021 0021
+"\xE2\x80\xBE" => "\x{0020}\x{0305}",         # U+203E => 0020 0305
+"\xE2\x81\x87" => "\x{003F}\x{003F}",         # U+2047 => 003F 003F
+"\xE2\x81\x88" => "\x{003F}\x{0021}",         # U+2048 => 003F 0021
+"\xE2\x81\x89" => "\x{0021}\x{003F}",         # U+2049 => 0021 003F
+"\xE2\x81\x97" => "\x{2032}\x{2032}\x{2032}\x{2032}", # U+2057 => 2032 2032 2032 2032
+"\xE2\x81\xA0" => "",                         # U+2060 => 
+"\xE2\x81\xA1" => "",                         # U+2061 => 
+"\xE2\x81\xA2" => "",                         # U+2062 => 
+"\xE2\x81\xA3" => "",                         # U+2063 => 
+"\xE2\x81\xA4" => "",                         # U+2064 => 
+"\xE2\x81\xA5" => "",                         # U+2065 => 
+"\xE2\x81\xA6" => "",                         # U+2066 => 
+"\xE2\x81\xA7" => "",                         # U+2067 => 
+"\xE2\x81\xA8" => "",                         # U+2068 => 
+"\xE2\x81\xA9" => "",                         # U+2069 => 
+"\xE2\x81\xAA" => "",                         # U+206A => 
+"\xE2\x81\xAB" => "",                         # U+206B => 
+"\xE2\x81\xAC" => "",                         # U+206C => 
+"\xE2\x81\xAD" => "",                         # U+206D => 
+"\xE2\x81\xAE" => "",                         # U+206E => 
+"\xE2\x81\xAF" => "",                         # U+206F => 
+"\xE2\x82\xA8" => "\x{0072}\x{0073}",         # U+20A8 => 0072 0073
+"\xE2\x84\x80" => "\x{0061}\x{002F}\x{0063}", # U+2100 => 0061 002F 0063
+"\xE2\x84\x81" => "\x{0061}\x{002F}\x{0073}", # U+2101 => 0061 002F 0073
+"\xE2\x84\x83" => "\x{00B0}\x{0063}",         # U+2103 => 00B0 0063
+"\xE2\x84\x85" => "\x{0063}\x{002F}\x{006F}", # U+2105 => 0063 002F 006F
+"\xE2\x84\x86" => "\x{0063}\x{002F}\x{0075}", # U+2106 => 0063 002F 0075
+"\xE2\x84\x89" => "\x{00B0}\x{0066}",         # U+2109 => 00B0 0066
+"\xE2\x84\x96" => "\x{006E}\x{006F}",         # U+2116 => 006E 006F
+"\xE2\x84\xA0" => "\x{0073}\x{006D}",         # U+2120 => 0073 006D
+"\xE2\x84\xA1" => "\x{0074}\x{0065}\x{006C}", # U+2121 => 0074 0065 006C
+"\xE2\x84\xA2" => "\x{0074}\x{006D}",         # U+2122 => 0074 006D
+"\xE2\x84\xBB" => "\x{0066}\x{0061}\x{0078}", # U+213B => 0066 0061 0078
+"\xE2\x85\x90" => "\x{0031}\x{2044}\x{0037}", # U+2150 => 0031 2044 0037
+"\xE2\x85\x91" => "\x{0031}\x{2044}\x{0039}", # U+2151 => 0031 2044 0039
+"\xE2\x85\x92" => "\x{0031}\x{2044}\x{0031}\x{0030}", # U+2152 => 0031 2044 0031 0030
+"\xE2\x85\x93" => "\x{0031}\x{2044}\x{0033}", # U+2153 => 0031 2044 0033
+"\xE2\x85\x94" => "\x{0032}\x{2044}\x{0033}", # U+2154 => 0032 2044 0033
+"\xE2\x85\x95" => "\x{0031}\x{2044}\x{0035}", # U+2155 => 0031 2044 0035
+"\xE2\x85\x96" => "\x{0032}\x{2044}\x{0035}", # U+2156 => 0032 2044 0035
+"\xE2\x85\x97" => "\x{0033}\x{2044}\x{0035}", # U+2157 => 0033 2044 0035
+"\xE2\x85\x98" => "\x{0034}\x{2044}\x{0035}", # U+2158 => 0034 2044 0035
+"\xE2\x85\x99" => "\x{0031}\x{2044}\x{0036}", # U+2159 => 0031 2044 0036
+"\xE2\x85\x9A" => "\x{0035}\x{2044}\x{0036}", # U+215A => 0035 2044 0036
+"\xE2\x85\x9B" => "\x{0031}\x{2044}\x{0038}", # U+215B => 0031 2044 0038
+"\xE2\x85\x9C" => "\x{0033}\x{2044}\x{0038}", # U+215C => 0033 2044 0038
+"\xE2\x85\x9D" => "\x{0035}\x{2044}\x{0038}", # U+215D => 0035 2044 0038
+"\xE2\x85\x9E" => "\x{0037}\x{2044}\x{0038}", # U+215E => 0037 2044 0038
+"\xE2\x85\x9F" => "\x{0031}\x{2044}",         # U+215F => 0031 2044
+"\xE2\x85\xA1" => "\x{0069}\x{0069}",         # U+2161 => 0069 0069
+"\xE2\x85\xA2" => "\x{0069}\x{0069}\x{0069}", # U+2162 => 0069 0069 0069
+"\xE2\x85\xA3" => "\x{0069}\x{0076}",         # U+2163 => 0069 0076
+"\xE2\x85\xA5" => "\x{0076}\x{0069}",         # U+2165 => 0076 0069
+"\xE2\x85\xA6" => "\x{0076}\x{0069}\x{0069}", # U+2166 => 0076 0069 0069
+"\xE2\x85\xA7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2167 => 0076 0069 0069 0069
+"\xE2\x85\xA8" => "\x{0069}\x{0078}",         # U+2168 => 0069 0078
+"\xE2\x85\xAA" => "\x{0078}\x{0069}",         # U+216A => 0078 0069
+"\xE2\x85\xAB" => "\x{0078}\x{0069}\x{0069}", # U+216B => 0078 0069 0069
+"\xE2\x85\xB1" => "\x{0069}\x{0069}",         # U+2171 => 0069 0069
+"\xE2\x85\xB2" => "\x{0069}\x{0069}\x{0069}", # U+2172 => 0069 0069 0069
+"\xE2\x85\xB3" => "\x{0069}\x{0076}",         # U+2173 => 0069 0076
+"\xE2\x85\xB5" => "\x{0076}\x{0069}",         # U+2175 => 0076 0069
+"\xE2\x85\xB6" => "\x{0076}\x{0069}\x{0069}", # U+2176 => 0076 0069 0069
+"\xE2\x85\xB7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2177 => 0076 0069 0069 0069
+"\xE2\x85\xB8" => "\x{0069}\x{0078}",         # U+2178 => 0069 0078
+"\xE2\x85\xBA" => "\x{0078}\x{0069}",         # U+217A => 0078 0069
+"\xE2\x85\xBB" => "\x{0078}\x{0069}\x{0069}", # U+217B => 0078 0069 0069
+"\xE2\x86\x89" => "\x{0030}\x{2044}\x{0033}", # U+2189 => 0030 2044 0033
+"\xE2\x88\xAC" => "\x{222B}\x{222B}",         # U+222C => 222B 222B
+"\xE2\x88\xAD" => "\x{222B}\x{222B}\x{222B}", # U+222D => 222B 222B 222B
+"\xE2\x88\xAF" => "\x{222E}\x{222E}",         # U+222F => 222E 222E
+"\xE2\x88\xB0" => "\x{222E}\x{222E}\x{222E}", # U+2230 => 222E 222E 222E
+"\xE2\x91\xA9" => "\x{0031}\x{0030}",         # U+2469 => 0031 0030
+"\xE2\x91\xAA" => "\x{0031}\x{0031}",         # U+246A => 0031 0031
+"\xE2\x91\xAB" => "\x{0031}\x{0032}",         # U+246B => 0031 0032
+"\xE2\x91\xAC" => "\x{0031}\x{0033}",         # U+246C => 0031 0033
+"\xE2\x91\xAD" => "\x{0031}\x{0034}",         # U+246D => 0031 0034
+"\xE2\x91\xAE" => "\x{0031}\x{0035}",         # U+246E => 0031 0035
+"\xE2\x91\xAF" => "\x{0031}\x{0036}",         # U+246F => 0031 0036
+"\xE2\x91\xB0" => "\x{0031}\x{0037}",         # U+2470 => 0031 0037
+"\xE2\x91\xB1" => "\x{0031}\x{0038}",         # U+2471 => 0031 0038
+"\xE2\x91\xB2" => "\x{0031}\x{0039}",         # U+2472 => 0031 0039
+"\xE2\x91\xB3" => "\x{0032}\x{0030}",         # U+2473 => 0032 0030
+"\xE2\x91\xB4" => "\x{0028}\x{0031}\x{0029}", # U+2474 => 0028 0031 0029
+"\xE2\x91\xB5" => "\x{0028}\x{0032}\x{0029}", # U+2475 => 0028 0032 0029
+"\xE2\x91\xB6" => "\x{0028}\x{0033}\x{0029}", # U+2476 => 0028 0033 0029
+"\xE2\x91\xB7" => "\x{0028}\x{0034}\x{0029}", # U+2477 => 0028 0034 0029
+"\xE2\x91\xB8" => "\x{0028}\x{0035}\x{0029}", # U+2478 => 0028 0035 0029
+"\xE2\x91\xB9" => "\x{0028}\x{0036}\x{0029}", # U+2479 => 0028 0036 0029
+"\xE2\x91\xBA" => "\x{0028}\x{0037}\x{0029}", # U+247A => 0028 0037 0029
+"\xE2\x91\xBB" => "\x{0028}\x{0038}\x{0029}", # U+247B => 0028 0038 0029
+"\xE2\x91\xBC" => "\x{0028}\x{0039}\x{0029}", # U+247C => 0028 0039 0029
+"\xE2\x91\xBD" => "\x{0028}\x{0031}\x{0030}\x{0029}", # U+247D => 0028 0031 0030 0029
+"\xE2\x91\xBE" => "\x{0028}\x{0031}\x{0031}\x{0029}", # U+247E => 0028 0031 0031 0029
+"\xE2\x91\xBF" => "\x{0028}\x{0031}\x{0032}\x{0029}", # U+247F => 0028 0031 0032 0029
+"\xE2\x92\x80" => "\x{0028}\x{0031}\x{0033}\x{0029}", # U+2480 => 0028 0031 0033 0029
+"\xE2\x92\x81" => "\x{0028}\x{0031}\x{0034}\x{0029}", # U+2481 => 0028 0031 0034 0029
+"\xE2\x92\x82" => "\x{0028}\x{0031}\x{0035}\x{0029}", # U+2482 => 0028 0031 0035 0029
+"\xE2\x92\x83" => "\x{0028}\x{0031}\x{0036}\x{0029}", # U+2483 => 0028 0031 0036 0029
+"\xE2\x92\x84" => "\x{0028}\x{0031}\x{0037}\x{0029}", # U+2484 => 0028 0031 0037 0029
+"\xE2\x92\x85" => "\x{0028}\x{0031}\x{0038}\x{0029}", # U+2485 => 0028 0031 0038 0029
+"\xE2\x92\x86" => "\x{0028}\x{0031}\x{0039}\x{0029}", # U+2486 => 0028 0031 0039 0029
+"\xE2\x92\x87" => "\x{0028}\x{0032}\x{0030}\x{0029}", # U+2487 => 0028 0032 0030 0029
+"\xE2\x92\x88" => "\x{0031}\x{002E}",         # U+2488 => 0031 002E
+"\xE2\x92\x89" => "\x{0032}\x{002E}",         # U+2489 => 0032 002E
+"\xE2\x92\x8A" => "\x{0033}\x{002E}",         # U+248A => 0033 002E
+"\xE2\x92\x8B" => "\x{0034}\x{002E}",         # U+248B => 0034 002E
+"\xE2\x92\x8C" => "\x{0035}\x{002E}",         # U+248C => 0035 002E
+"\xE2\x92\x8D" => "\x{0036}\x{002E}",         # U+248D => 0036 002E
+"\xE2\x92\x8E" => "\x{0037}\x{002E}",         # U+248E => 0037 002E
+"\xE2\x92\x8F" => "\x{0038}\x{002E}",         # U+248F => 0038 002E
+"\xE2\x92\x90" => "\x{0039}\x{002E}",         # U+2490 => 0039 002E
+"\xE2\x92\x91" => "\x{0031}\x{0030}\x{002E}", # U+2491 => 0031 0030 002E
+"\xE2\x92\x92" => "\x{0031}\x{0031}\x{002E}", # U+2492 => 0031 0031 002E
+"\xE2\x92\x93" => "\x{0031}\x{0032}\x{002E}", # U+2493 => 0031 0032 002E
+"\xE2\x92\x94" => "\x{0031}\x{0033}\x{002E}", # U+2494 => 0031 0033 002E
+"\xE2\x92\x95" => "\x{0031}\x{0034}\x{002E}", # U+2495 => 0031 0034 002E
+"\xE2\x92\x96" => "\x{0031}\x{0035}\x{002E}", # U+2496 => 0031 0035 002E
+"\xE2\x92\x97" => "\x{0031}\x{0036}\x{002E}", # U+2497 => 0031 0036 002E
+"\xE2\x92\x98" => "\x{0031}\x{0037}\x{002E}", # U+2498 => 0031 0037 002E
+"\xE2\x92\x99" => "\x{0031}\x{0038}\x{002E}", # U+2499 => 0031 0038 002E
+"\xE2\x92\x9A" => "\x{0031}\x{0039}\x{002E}", # U+249A => 0031 0039 002E
+"\xE2\x92\x9B" => "\x{0032}\x{0030}\x{002E}", # U+249B => 0032 0030 002E
+"\xE2\x92\x9C" => "\x{0028}\x{0061}\x{0029}", # U+249C => 0028 0061 0029
+"\xE2\x92\x9D" => "\x{0028}\x{0062}\x{0029}", # U+249D => 0028 0062 0029
+"\xE2\x92\x9E" => "\x{0028}\x{0063}\x{0029}", # U+249E => 0028 0063 0029
+"\xE2\x92\x9F" => "\x{0028}\x{0064}\x{0029}", # U+249F => 0028 0064 0029
+"\xE2\x92\xA0" => "\x{0028}\x{0065}\x{0029}", # U+24A0 => 0028 0065 0029
+"\xE2\x92\xA1" => "\x{0028}\x{0066}\x{0029}", # U+24A1 => 0028 0066 0029
+"\xE2\x92\xA2" => "\x{0028}\x{0067}\x{0029}", # U+24A2 => 0028 0067 0029
+"\xE2\x92\xA3" => "\x{0028}\x{0068}\x{0029}", # U+24A3 => 0028 0068 0029
+"\xE2\x92\xA4" => "\x{0028}\x{0069}\x{0029}", # U+24A4 => 0028 0069 0029
+"\xE2\x92\xA5" => "\x{0028}\x{006A}\x{0029}", # U+24A5 => 0028 006A 0029
+"\xE2\x92\xA6" => "\x{0028}\x{006B}\x{0029}", # U+24A6 => 0028 006B 0029
+"\xE2\x92\xA7" => "\x{0028}\x{006C}\x{0029}", # U+24A7 => 0028 006C 0029
+"\xE2\x92\xA8" => "\x{0028}\x{006D}\x{0029}", # U+24A8 => 0028 006D 0029
+"\xE2\x92\xA9" => "\x{0028}\x{006E}\x{0029}", # U+24A9 => 0028 006E 0029
+"\xE2\x92\xAA" => "\x{0028}\x{006F}\x{0029}", # U+24AA => 0028 006F 0029
+"\xE2\x92\xAB" => "\x{0028}\x{0070}\x{0029}", # U+24AB => 0028 0070 0029
+"\xE2\x92\xAC" => "\x{0028}\x{0071}\x{0029}", # U+24AC => 0028 0071 0029
+"\xE2\x92\xAD" => "\x{0028}\x{0072}\x{0029}", # U+24AD => 0028 0072 0029
+"\xE2\x92\xAE" => "\x{0028}\x{0073}\x{0029}", # U+24AE => 0028 0073 0029
+"\xE2\x92\xAF" => "\x{0028}\x{0074}\x{0029}", # U+24AF => 0028 0074 0029
+"\xE2\x92\xB0" => "\x{0028}\x{0075}\x{0029}", # U+24B0 => 0028 0075 0029
+"\xE2\x92\xB1" => "\x{0028}\x{0076}\x{0029}", # U+24B1 => 0028 0076 0029
+"\xE2\x92\xB2" => "\x{0028}\x{0077}\x{0029}", # U+24B2 => 0028 0077 0029
+"\xE2\x92\xB3" => "\x{0028}\x{0078}\x{0029}", # U+24B3 => 0028 0078 0029
+"\xE2\x92\xB4" => "\x{0028}\x{0079}\x{0029}", # U+24B4 => 0028 0079 0029
+"\xE2\x92\xB5" => "\x{0028}\x{007A}\x{0029}", # U+24B5 => 0028 007A 0029
+"\xE2\xA8\x8C" => "\x{222B}\x{222B}\x{222B}\x{222B}", # U+2A0C => 222B 222B 222B 222B
+"\xE2\xA9\xB4" => "\x{003A}\x{003A}\x{003D}", # U+2A74 => 003A 003A 003D
+"\xE2\xA9\xB5" => "\x{003D}\x{003D}",         # U+2A75 => 003D 003D
+"\xE2\xA9\xB6" => "\x{003D}\x{003D}\x{003D}", # U+2A76 => 003D 003D 003D
+"\xE2\xAB\x9C" => "\x{2ADD}\x{0338}",         # U+2ADC => 2ADD 0338
+"\xE3\x82\x9B" => "\x{0020}\x{3099}",         # U+309B => 0020 3099
+"\xE3\x82\x9C" => "\x{0020}\x{309A}",         # U+309C => 0020 309A
+"\xE3\x82\x9F" => "\x{3088}\x{308A}",         # U+309F => 3088 308A
+"\xE3\x83\xBF" => "\x{30B3}\x{30C8}",         # U+30FF => 30B3 30C8
+"\xE3\x85\xA4" => "",                         # U+3164 => 
+"\xE3\x88\x80" => "\x{0028}\x{1100}\x{0029}", # U+3200 => 0028 1100 0029
+"\xE3\x88\x81" => "\x{0028}\x{1102}\x{0029}", # U+3201 => 0028 1102 0029
+"\xE3\x88\x82" => "\x{0028}\x{1103}\x{0029}", # U+3202 => 0028 1103 0029
+"\xE3\x88\x83" => "\x{0028}\x{1105}\x{0029}", # U+3203 => 0028 1105 0029
+"\xE3\x88\x84" => "\x{0028}\x{1106}\x{0029}", # U+3204 => 0028 1106 0029
+"\xE3\x88\x85" => "\x{0028}\x{1107}\x{0029}", # U+3205 => 0028 1107 0029
+"\xE3\x88\x86" => "\x{0028}\x{1109}\x{0029}", # U+3206 => 0028 1109 0029
+"\xE3\x88\x87" => "\x{0028}\x{110B}\x{0029}", # U+3207 => 0028 110B 0029
+"\xE3\x88\x88" => "\x{0028}\x{110C}\x{0029}", # U+3208 => 0028 110C 0029
+"\xE3\x88\x89" => "\x{0028}\x{110E}\x{0029}", # U+3209 => 0028 110E 0029
+"\xE3\x88\x8A" => "\x{0028}\x{110F}\x{0029}", # U+320A => 0028 110F 0029
+"\xE3\x88\x8B" => "\x{0028}\x{1110}\x{0029}", # U+320B => 0028 1110 0029
+"\xE3\x88\x8C" => "\x{0028}\x{1111}\x{0029}", # U+320C => 0028 1111 0029
+"\xE3\x88\x8D" => "\x{0028}\x{1112}\x{0029}", # U+320D => 0028 1112 0029
+"\xE3\x88\x8E" => "\x{0028}\x{AC00}\x{0029}", # U+320E => 0028 AC00 0029
+"\xE3\x88\x8F" => "\x{0028}\x{B098}\x{0029}", # U+320F => 0028 B098 0029
+"\xE3\x88\x90" => "\x{0028}\x{B2E4}\x{0029}", # U+3210 => 0028 B2E4 0029
+"\xE3\x88\x91" => "\x{0028}\x{B77C}\x{0029}", # U+3211 => 0028 B77C 0029
+"\xE3\x88\x92" => "\x{0028}\x{B9C8}\x{0029}", # U+3212 => 0028 B9C8 0029
+"\xE3\x88\x93" => "\x{0028}\x{BC14}\x{0029}", # U+3213 => 0028 BC14 0029
+"\xE3\x88\x94" => "\x{0028}\x{C0AC}\x{0029}", # U+3214 => 0028 C0AC 0029
+"\xE3\x88\x95" => "\x{0028}\x{C544}\x{0029}", # U+3215 => 0028 C544 0029
+"\xE3\x88\x96" => "\x{0028}\x{C790}\x{0029}", # U+3216 => 0028 C790 0029
+"\xE3\x88\x97" => "\x{0028}\x{CC28}\x{0029}", # U+3217 => 0028 CC28 0029
+"\xE3\x88\x98" => "\x{0028}\x{CE74}\x{0029}", # U+3218 => 0028 CE74 0029
+"\xE3\x88\x99" => "\x{0028}\x{D0C0}\x{0029}", # U+3219 => 0028 D0C0 0029
+"\xE3\x88\x9A" => "\x{0028}\x{D30C}\x{0029}", # U+321A => 0028 D30C 0029
+"\xE3\x88\x9B" => "\x{0028}\x{D558}\x{0029}", # U+321B => 0028 D558 0029
+"\xE3\x88\x9C" => "\x{0028}\x{C8FC}\x{0029}", # U+321C => 0028 C8FC 0029
+"\xE3\x88\x9D" => "\x{0028}\x{C624}\x{C804}\x{0029}", # U+321D => 0028 C624 C804 0029
+"\xE3\x88\x9E" => "\x{0028}\x{C624}\x{D6C4}\x{0029}", # U+321E => 0028 C624 D6C4 0029
+"\xE3\x88\xA0" => "\x{0028}\x{4E00}\x{0029}", # U+3220 => 0028 4E00 0029
+"\xE3\x88\xA1" => "\x{0028}\x{4E8C}\x{0029}", # U+3221 => 0028 4E8C 0029
+"\xE3\x88\xA2" => "\x{0028}\x{4E09}\x{0029}", # U+3222 => 0028 4E09 0029
+"\xE3\x88\xA3" => "\x{0028}\x{56DB}\x{0029}", # U+3223 => 0028 56DB 0029
+"\xE3\x88\xA4" => "\x{0028}\x{4E94}\x{0029}", # U+3224 => 0028 4E94 0029
+"\xE3\x88\xA5" => "\x{0028}\x{516D}\x{0029}", # U+3225 => 0028 516D 0029
+"\xE3\x88\xA6" => "\x{0028}\x{4E03}\x{0029}", # U+3226 => 0028 4E03 0029
+"\xE3\x88\xA7" => "\x{0028}\x{516B}\x{0029}", # U+3227 => 0028 516B 0029
+"\xE3\x88\xA8" => "\x{0028}\x{4E5D}\x{0029}", # U+3228 => 0028 4E5D 0029
+"\xE3\x88\xA9" => "\x{0028}\x{5341}\x{0029}", # U+3229 => 0028 5341 0029
+"\xE3\x88\xAA" => "\x{0028}\x{6708}\x{0029}", # U+322A => 0028 6708 0029
+"\xE3\x88\xAB" => "\x{0028}\x{706B}\x{0029}", # U+322B => 0028 706B 0029
+"\xE3\x88\xAC" => "\x{0028}\x{6C34}\x{0029}", # U+322C => 0028 6C34 0029
+"\xE3\x88\xAD" => "\x{0028}\x{6728}\x{0029}", # U+322D => 0028 6728 0029
+"\xE3\x88\xAE" => "\x{0028}\x{91D1}\x{0029}", # U+322E => 0028 91D1 0029
+"\xE3\x88\xAF" => "\x{0028}\x{571F}\x{0029}", # U+322F => 0028 571F 0029
+"\xE3\x88\xB0" => "\x{0028}\x{65E5}\x{0029}", # U+3230 => 0028 65E5 0029
+"\xE3\x88\xB1" => "\x{0028}\x{682A}\x{0029}", # U+3231 => 0028 682A 0029
+"\xE3\x88\xB2" => "\x{0028}\x{6709}\x{0029}", # U+3232 => 0028 6709 0029
+"\xE3\x88\xB3" => "\x{0028}\x{793E}\x{0029}", # U+3233 => 0028 793E 0029
+"\xE3\x88\xB4" => "\x{0028}\x{540D}\x{0029}", # U+3234 => 0028 540D 0029
+"\xE3\x88\xB5" => "\x{0028}\x{7279}\x{0029}", # U+3235 => 0028 7279 0029
+"\xE3\x88\xB6" => "\x{0028}\x{8CA1}\x{0029}", # U+3236 => 0028 8CA1 0029
+"\xE3\x88\xB7" => "\x{0028}\x{795D}\x{0029}", # U+3237 => 0028 795D 0029
+"\xE3\x88\xB8" => "\x{0028}\x{52B4}\x{0029}", # U+3238 => 0028 52B4 0029
+"\xE3\x88\xB9" => "\x{0028}\x{4EE3}\x{0029}", # U+3239 => 0028 4EE3 0029
+"\xE3\x88\xBA" => "\x{0028}\x{547C}\x{0029}", # U+323A => 0028 547C 0029
+"\xE3\x88\xBB" => "\x{0028}\x{5B66}\x{0029}", # U+323B => 0028 5B66 0029
+"\xE3\x88\xBC" => "\x{0028}\x{76E3}\x{0029}", # U+323C => 0028 76E3 0029
+"\xE3\x88\xBD" => "\x{0028}\x{4F01}\x{0029}", # U+323D => 0028 4F01 0029
+"\xE3\x88\xBE" => "\x{0028}\x{8CC7}\x{0029}", # U+323E => 0028 8CC7 0029
+"\xE3\x88\xBF" => "\x{0028}\x{5354}\x{0029}", # U+323F => 0028 5354 0029
+"\xE3\x89\x80" => "\x{0028}\x{796D}\x{0029}", # U+3240 => 0028 796D 0029
+"\xE3\x89\x81" => "\x{0028}\x{4F11}\x{0029}", # U+3241 => 0028 4F11 0029
+"\xE3\x89\x82" => "\x{0028}\x{81EA}\x{0029}", # U+3242 => 0028 81EA 0029
+"\xE3\x89\x83" => "\x{0028}\x{81F3}\x{0029}", # U+3243 => 0028 81F3 0029
+"\xE3\x89\x90" => "\x{0070}\x{0074}\x{0065}", # U+3250 => 0070 0074 0065
+"\xE3\x89\x91" => "\x{0032}\x{0031}",         # U+3251 => 0032 0031
+"\xE3\x89\x92" => "\x{0032}\x{0032}",         # U+3252 => 0032 0032
+"\xE3\x89\x93" => "\x{0032}\x{0033}",         # U+3253 => 0032 0033
+"\xE3\x89\x94" => "\x{0032}\x{0034}",         # U+3254 => 0032 0034
+"\xE3\x89\x95" => "\x{0032}\x{0035}",         # U+3255 => 0032 0035
+"\xE3\x89\x96" => "\x{0032}\x{0036}",         # U+3256 => 0032 0036
+"\xE3\x89\x97" => "\x{0032}\x{0037}",         # U+3257 => 0032 0037
+"\xE3\x89\x98" => "\x{0032}\x{0038}",         # U+3258 => 0032 0038
+"\xE3\x89\x99" => "\x{0032}\x{0039}",         # U+3259 => 0032 0039
+"\xE3\x89\x9A" => "\x{0033}\x{0030}",         # U+325A => 0033 0030
+"\xE3\x89\x9B" => "\x{0033}\x{0031}",         # U+325B => 0033 0031
+"\xE3\x89\x9C" => "\x{0033}\x{0032}",         # U+325C => 0033 0032
+"\xE3\x89\x9D" => "\x{0033}\x{0033}",         # U+325D => 0033 0033
+"\xE3\x89\x9E" => "\x{0033}\x{0034}",         # U+325E => 0033 0034
+"\xE3\x89\x9F" => "\x{0033}\x{0035}",         # U+325F => 0033 0035
+"\xE3\x89\xBC" => "\x{CC38}\x{ACE0}",         # U+327C => CC38 ACE0
+"\xE3\x89\xBD" => "\x{C8FC}\x{C758}",         # U+327D => C8FC C758
+"\xE3\x8A\xB1" => "\x{0033}\x{0036}",         # U+32B1 => 0033 0036
+"\xE3\x8A\xB2" => "\x{0033}\x{0037}",         # U+32B2 => 0033 0037
+"\xE3\x8A\xB3" => "\x{0033}\x{0038}",         # U+32B3 => 0033 0038
+"\xE3\x8A\xB4" => "\x{0033}\x{0039}",         # U+32B4 => 0033 0039
+"\xE3\x8A\xB5" => "\x{0034}\x{0030}",         # U+32B5 => 0034 0030
+"\xE3\x8A\xB6" => "\x{0034}\x{0031}",         # U+32B6 => 0034 0031
+"\xE3\x8A\xB7" => "\x{0034}\x{0032}",         # U+32B7 => 0034 0032
+"\xE3\x8A\xB8" => "\x{0034}\x{0033}",         # U+32B8 => 0034 0033
+"\xE3\x8A\xB9" => "\x{0034}\x{0034}",         # U+32B9 => 0034 0034
+"\xE3\x8A\xBA" => "\x{0034}\x{0035}",         # U+32BA => 0034 0035
+"\xE3\x8A\xBB" => "\x{0034}\x{0036}",         # U+32BB => 0034 0036
+"\xE3\x8A\xBC" => "\x{0034}\x{0037}",         # U+32BC => 0034 0037
+"\xE3\x8A\xBD" => "\x{0034}\x{0038}",         # U+32BD => 0034 0038
+"\xE3\x8A\xBE" => "\x{0034}\x{0039}",         # U+32BE => 0034 0039
+"\xE3\x8A\xBF" => "\x{0035}\x{0030}",         # U+32BF => 0035 0030
+"\xE3\x8B\x80" => "\x{0031}\x{6708}",         # U+32C0 => 0031 6708
+"\xE3\x8B\x81" => "\x{0032}\x{6708}",         # U+32C1 => 0032 6708
+"\xE3\x8B\x82" => "\x{0033}\x{6708}",         # U+32C2 => 0033 6708
+"\xE3\x8B\x83" => "\x{0034}\x{6708}",         # U+32C3 => 0034 6708
+"\xE3\x8B\x84" => "\x{0035}\x{6708}",         # U+32C4 => 0035 6708
+"\xE3\x8B\x85" => "\x{0036}\x{6708}",         # U+32C5 => 0036 6708
+"\xE3\x8B\x86" => "\x{0037}\x{6708}",         # U+32C6 => 0037 6708
+"\xE3\x8B\x87" => "\x{0038}\x{6708}",         # U+32C7 => 0038 6708
+"\xE3\x8B\x88" => "\x{0039}\x{6708}",         # U+32C8 => 0039 6708
+"\xE3\x8B\x89" => "\x{0031}\x{0030}\x{6708}", # U+32C9 => 0031 0030 6708
+"\xE3\x8B\x8A" => "\x{0031}\x{0031}\x{6708}", # U+32CA => 0031 0031 6708
+"\xE3\x8B\x8B" => "\x{0031}\x{0032}\x{6708}", # U+32CB => 0031 0032 6708
+"\xE3\x8B\x8C" => "\x{0068}\x{0067}",         # U+32CC => 0068 0067
+"\xE3\x8B\x8D" => "\x{0065}\x{0072}\x{0067}", # U+32CD => 0065 0072 0067
+"\xE3\x8B\x8E" => "\x{0065}\x{0076}",         # U+32CE => 0065 0076
+"\xE3\x8B\x8F" => "\x{006C}\x{0074}\x{0064}", # U+32CF => 006C 0074 0064
+"\xE3\x8C\x80" => "\x{30A2}\x{30D1}\x{30FC}\x{30C8}", # U+3300 => 30A2 30D1 30FC 30C8
+"\xE3\x8C\x81" => "\x{30A2}\x{30EB}\x{30D5}\x{30A1}", # U+3301 => 30A2 30EB 30D5 30A1
+"\xE3\x8C\x82" => "\x{30A2}\x{30F3}\x{30DA}\x{30A2}", # U+3302 => 30A2 30F3 30DA 30A2
+"\xE3\x8C\x83" => "\x{30A2}\x{30FC}\x{30EB}", # U+3303 => 30A2 30FC 30EB
+"\xE3\x8C\x84" => "\x{30A4}\x{30CB}\x{30F3}\x{30B0}", # U+3304 => 30A4 30CB 30F3 30B0
+"\xE3\x8C\x85" => "\x{30A4}\x{30F3}\x{30C1}", # U+3305 => 30A4 30F3 30C1
+"\xE3\x8C\x86" => "\x{30A6}\x{30A9}\x{30F3}", # U+3306 => 30A6 30A9 30F3
+"\xE3\x8C\x87" => "\x{30A8}\x{30B9}\x{30AF}\x{30FC}\x{30C9}", # U+3307 => 30A8 30B9 30AF 30FC 30C9
+"\xE3\x8C\x88" => "\x{30A8}\x{30FC}\x{30AB}\x{30FC}", # U+3308 => 30A8 30FC 30AB 30FC
+"\xE3\x8C\x89" => "\x{30AA}\x{30F3}\x{30B9}", # U+3309 => 30AA 30F3 30B9
+"\xE3\x8C\x8A" => "\x{30AA}\x{30FC}\x{30E0}", # U+330A => 30AA 30FC 30E0
+"\xE3\x8C\x8B" => "\x{30AB}\x{30A4}\x{30EA}", # U+330B => 30AB 30A4 30EA
+"\xE3\x8C\x8C" => "\x{30AB}\x{30E9}\x{30C3}\x{30C8}", # U+330C => 30AB 30E9 30C3 30C8
+"\xE3\x8C\x8D" => "\x{30AB}\x{30ED}\x{30EA}\x{30FC}", # U+330D => 30AB 30ED 30EA 30FC
+"\xE3\x8C\x8E" => "\x{30AC}\x{30ED}\x{30F3}", # U+330E => 30AC 30ED 30F3
+"\xE3\x8C\x8F" => "\x{30AC}\x{30F3}\x{30DE}", # U+330F => 30AC 30F3 30DE
+"\xE3\x8C\x90" => "\x{30AE}\x{30AC}",         # U+3310 => 30AE 30AC
+"\xE3\x8C\x91" => "\x{30AE}\x{30CB}\x{30FC}", # U+3311 => 30AE 30CB 30FC
+"\xE3\x8C\x92" => "\x{30AD}\x{30E5}\x{30EA}\x{30FC}", # U+3312 => 30AD 30E5 30EA 30FC
+"\xE3\x8C\x93" => "\x{30AE}\x{30EB}\x{30C0}\x{30FC}", # U+3313 => 30AE 30EB 30C0 30FC
+"\xE3\x8C\x94" => "\x{30AD}\x{30ED}",         # U+3314 => 30AD 30ED
+"\xE3\x8C\x95" => "\x{30AD}\x{30ED}\x{30B0}\x{30E9}\x{30E0}", # U+3315 => 30AD 30ED 30B0 30E9 30E0
+"\xE3\x8C\x96" => "\x{30AD}\x{30ED}\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+3316 => 30AD 30ED 30E1 30FC 30C8 30EB
+"\xE3\x8C\x97" => "\x{30AD}\x{30ED}\x{30EF}\x{30C3}\x{30C8}", # U+3317 => 30AD 30ED 30EF 30C3 30C8
+"\xE3\x8C\x98" => "\x{30B0}\x{30E9}\x{30E0}", # U+3318 => 30B0 30E9 30E0
+"\xE3\x8C\x99" => "\x{30B0}\x{30E9}\x{30E0}\x{30C8}\x{30F3}", # U+3319 => 30B0 30E9 30E0 30C8 30F3
+"\xE3\x8C\x9A" => "\x{30AF}\x{30EB}\x{30BC}\x{30A4}\x{30ED}", # U+331A => 30AF 30EB 30BC 30A4 30ED
+"\xE3\x8C\x9B" => "\x{30AF}\x{30ED}\x{30FC}\x{30CD}", # U+331B => 30AF 30ED 30FC 30CD
+"\xE3\x8C\x9C" => "\x{30B1}\x{30FC}\x{30B9}", # U+331C => 30B1 30FC 30B9
+"\xE3\x8C\x9D" => "\x{30B3}\x{30EB}\x{30CA}", # U+331D => 30B3 30EB 30CA
+"\xE3\x8C\x9E" => "\x{30B3}\x{30FC}\x{30DD}", # U+331E => 30B3 30FC 30DD
+"\xE3\x8C\x9F" => "\x{30B5}\x{30A4}\x{30AF}\x{30EB}", # U+331F => 30B5 30A4 30AF 30EB
+"\xE3\x8C\xA0" => "\x{30B5}\x{30F3}\x{30C1}\x{30FC}\x{30E0}", # U+3320 => 30B5 30F3 30C1 30FC 30E0
+"\xE3\x8C\xA1" => "\x{30B7}\x{30EA}\x{30F3}\x{30B0}", # U+3321 => 30B7 30EA 30F3 30B0
+"\xE3\x8C\xA2" => "\x{30BB}\x{30F3}\x{30C1}", # U+3322 => 30BB 30F3 30C1
+"\xE3\x8C\xA3" => "\x{30BB}\x{30F3}\x{30C8}", # U+3323 => 30BB 30F3 30C8
+"\xE3\x8C\xA4" => "\x{30C0}\x{30FC}\x{30B9}", # U+3324 => 30C0 30FC 30B9
+"\xE3\x8C\xA5" => "\x{30C7}\x{30B7}",         # U+3325 => 30C7 30B7
+"\xE3\x8C\xA6" => "\x{30C9}\x{30EB}",         # U+3326 => 30C9 30EB
+"\xE3\x8C\xA7" => "\x{30C8}\x{30F3}",         # U+3327 => 30C8 30F3
+"\xE3\x8C\xA8" => "\x{30CA}\x{30CE}",         # U+3328 => 30CA 30CE
+"\xE3\x8C\xA9" => "\x{30CE}\x{30C3}\x{30C8}", # U+3329 => 30CE 30C3 30C8
+"\xE3\x8C\xAA" => "\x{30CF}\x{30A4}\x{30C4}", # U+332A => 30CF 30A4 30C4
+"\xE3\x8C\xAB" => "\x{30D1}\x{30FC}\x{30BB}\x{30F3}\x{30C8}", # U+332B => 30D1 30FC 30BB 30F3 30C8
+"\xE3\x8C\xAC" => "\x{30D1}\x{30FC}\x{30C4}", # U+332C => 30D1 30FC 30C4
+"\xE3\x8C\xAD" => "\x{30D0}\x{30FC}\x{30EC}\x{30EB}", # U+332D => 30D0 30FC 30EC 30EB
+"\xE3\x8C\xAE" => "\x{30D4}\x{30A2}\x{30B9}\x{30C8}\x{30EB}", # U+332E => 30D4 30A2 30B9 30C8 30EB
+"\xE3\x8C\xAF" => "\x{30D4}\x{30AF}\x{30EB}", # U+332F => 30D4 30AF 30EB
+"\xE3\x8C\xB0" => "\x{30D4}\x{30B3}",         # U+3330 => 30D4 30B3
+"\xE3\x8C\xB1" => "\x{30D3}\x{30EB}",         # U+3331 => 30D3 30EB
+"\xE3\x8C\xB2" => "\x{30D5}\x{30A1}\x{30E9}\x{30C3}\x{30C9}", # U+3332 => 30D5 30A1 30E9 30C3 30C9
+"\xE3\x8C\xB3" => "\x{30D5}\x{30A3}\x{30FC}\x{30C8}", # U+3333 => 30D5 30A3 30FC 30C8
+"\xE3\x8C\xB4" => "\x{30D6}\x{30C3}\x{30B7}\x{30A7}\x{30EB}", # U+3334 => 30D6 30C3 30B7 30A7 30EB
+"\xE3\x8C\xB5" => "\x{30D5}\x{30E9}\x{30F3}", # U+3335 => 30D5 30E9 30F3
+"\xE3\x8C\xB6" => "\x{30D8}\x{30AF}\x{30BF}\x{30FC}\x{30EB}", # U+3336 => 30D8 30AF 30BF 30FC 30EB
+"\xE3\x8C\xB7" => "\x{30DA}\x{30BD}",         # U+3337 => 30DA 30BD
+"\xE3\x8C\xB8" => "\x{30DA}\x{30CB}\x{30D2}", # U+3338 => 30DA 30CB 30D2
+"\xE3\x8C\xB9" => "\x{30D8}\x{30EB}\x{30C4}", # U+3339 => 30D8 30EB 30C4
+"\xE3\x8C\xBA" => "\x{30DA}\x{30F3}\x{30B9}", # U+333A => 30DA 30F3 30B9
+"\xE3\x8C\xBB" => "\x{30DA}\x{30FC}\x{30B8}", # U+333B => 30DA 30FC 30B8
+"\xE3\x8C\xBC" => "\x{30D9}\x{30FC}\x{30BF}", # U+333C => 30D9 30FC 30BF
+"\xE3\x8C\xBD" => "\x{30DD}\x{30A4}\x{30F3}\x{30C8}", # U+333D => 30DD 30A4 30F3 30C8
+"\xE3\x8C\xBE" => "\x{30DC}\x{30EB}\x{30C8}", # U+333E => 30DC 30EB 30C8
+"\xE3\x8C\xBF" => "\x{30DB}\x{30F3}",         # U+333F => 30DB 30F3
+"\xE3\x8D\x80" => "\x{30DD}\x{30F3}\x{30C9}", # U+3340 => 30DD 30F3 30C9
+"\xE3\x8D\x81" => "\x{30DB}\x{30FC}\x{30EB}", # U+3341 => 30DB 30FC 30EB
+"\xE3\x8D\x82" => "\x{30DB}\x{30FC}\x{30F3}", # U+3342 => 30DB 30FC 30F3
+"\xE3\x8D\x83" => "\x{30DE}\x{30A4}\x{30AF}\x{30ED}", # U+3343 => 30DE 30A4 30AF 30ED
+"\xE3\x8D\x84" => "\x{30DE}\x{30A4}\x{30EB}", # U+3344 => 30DE 30A4 30EB
+"\xE3\x8D\x85" => "\x{30DE}\x{30C3}\x{30CF}", # U+3345 => 30DE 30C3 30CF
+"\xE3\x8D\x86" => "\x{30DE}\x{30EB}\x{30AF}", # U+3346 => 30DE 30EB 30AF
+"\xE3\x8D\x87" => "\x{30DE}\x{30F3}\x{30B7}\x{30E7}\x{30F3}", # U+3347 => 30DE 30F3 30B7 30E7 30F3
+"\xE3\x8D\x88" => "\x{30DF}\x{30AF}\x{30ED}\x{30F3}", # U+3348 => 30DF 30AF 30ED 30F3
+"\xE3\x8D\x89" => "\x{30DF}\x{30EA}",         # U+3349 => 30DF 30EA
+"\xE3\x8D\x8A" => "\x{30DF}\x{30EA}\x{30D0}\x{30FC}\x{30EB}", # U+334A => 30DF 30EA 30D0 30FC 30EB
+"\xE3\x8D\x8B" => "\x{30E1}\x{30AC}",         # U+334B => 30E1 30AC
+"\xE3\x8D\x8C" => "\x{30E1}\x{30AC}\x{30C8}\x{30F3}", # U+334C => 30E1 30AC 30C8 30F3
+"\xE3\x8D\x8D" => "\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+334D => 30E1 30FC 30C8 30EB
+"\xE3\x8D\x8E" => "\x{30E4}\x{30FC}\x{30C9}", # U+334E => 30E4 30FC 30C9
+"\xE3\x8D\x8F" => "\x{30E4}\x{30FC}\x{30EB}", # U+334F => 30E4 30FC 30EB
+"\xE3\x8D\x90" => "\x{30E6}\x{30A2}\x{30F3}", # U+3350 => 30E6 30A2 30F3
+"\xE3\x8D\x91" => "\x{30EA}\x{30C3}\x{30C8}\x{30EB}", # U+3351 => 30EA 30C3 30C8 30EB
+"\xE3\x8D\x92" => "\x{30EA}\x{30E9}",         # U+3352 => 30EA 30E9
+"\xE3\x8D\x93" => "\x{30EB}\x{30D4}\x{30FC}", # U+3353 => 30EB 30D4 30FC
+"\xE3\x8D\x94" => "\x{30EB}\x{30FC}\x{30D6}\x{30EB}", # U+3354 => 30EB 30FC 30D6 30EB
+"\xE3\x8D\x95" => "\x{30EC}\x{30E0}",         # U+3355 => 30EC 30E0
+"\xE3\x8D\x96" => "\x{30EC}\x{30F3}\x{30C8}\x{30B2}\x{30F3}", # U+3356 => 30EC 30F3 30C8 30B2 30F3
+"\xE3\x8D\x97" => "\x{30EF}\x{30C3}\x{30C8}", # U+3357 => 30EF 30C3 30C8
+"\xE3\x8D\x98" => "\x{0030}\x{70B9}",         # U+3358 => 0030 70B9
+"\xE3\x8D\x99" => "\x{0031}\x{70B9}",         # U+3359 => 0031 70B9
+"\xE3\x8D\x9A" => "\x{0032}\x{70B9}",         # U+335A => 0032 70B9
+"\xE3\x8D\x9B" => "\x{0033}\x{70B9}",         # U+335B => 0033 70B9
+"\xE3\x8D\x9C" => "\x{0034}\x{70B9}",         # U+335C => 0034 70B9
+"\xE3\x8D\x9D" => "\x{0035}\x{70B9}",         # U+335D => 0035 70B9
+"\xE3\x8D\x9E" => "\x{0036}\x{70B9}",         # U+335E => 0036 70B9
+"\xE3\x8D\x9F" => "\x{0037}\x{70B9}",         # U+335F => 0037 70B9
+"\xE3\x8D\xA0" => "\x{0038}\x{70B9}",         # U+3360 => 0038 70B9
+"\xE3\x8D\xA1" => "\x{0039}\x{70B9}",         # U+3361 => 0039 70B9
+"\xE3\x8D\xA2" => "\x{0031}\x{0030}\x{70B9}", # U+3362 => 0031 0030 70B9
+"\xE3\x8D\xA3" => "\x{0031}\x{0031}\x{70B9}", # U+3363 => 0031 0031 70B9
+"\xE3\x8D\xA4" => "\x{0031}\x{0032}\x{70B9}", # U+3364 => 0031 0032 70B9
+"\xE3\x8D\xA5" => "\x{0031}\x{0033}\x{70B9}", # U+3365 => 0031 0033 70B9
+"\xE3\x8D\xA6" => "\x{0031}\x{0034}\x{70B9}", # U+3366 => 0031 0034 70B9
+"\xE3\x8D\xA7" => "\x{0031}\x{0035}\x{70B9}", # U+3367 => 0031 0035 70B9
+"\xE3\x8D\xA8" => "\x{0031}\x{0036}\x{70B9}", # U+3368 => 0031 0036 70B9
+"\xE3\x8D\xA9" => "\x{0031}\x{0037}\x{70B9}", # U+3369 => 0031 0037 70B9
+"\xE3\x8D\xAA" => "\x{0031}\x{0038}\x{70B9}", # U+336A => 0031 0038 70B9
+"\xE3\x8D\xAB" => "\x{0031}\x{0039}\x{70B9}", # U+336B => 0031 0039 70B9
+"\xE3\x8D\xAC" => "\x{0032}\x{0030}\x{70B9}", # U+336C => 0032 0030 70B9
+"\xE3\x8D\xAD" => "\x{0032}\x{0031}\x{70B9}", # U+336D => 0032 0031 70B9
+"\xE3\x8D\xAE" => "\x{0032}\x{0032}\x{70B9}", # U+336E => 0032 0032 70B9
+"\xE3\x8D\xAF" => "\x{0032}\x{0033}\x{70B9}", # U+336F => 0032 0033 70B9
+"\xE3\x8D\xB0" => "\x{0032}\x{0034}\x{70B9}", # U+3370 => 0032 0034 70B9
+"\xE3\x8D\xB1" => "\x{0068}\x{0070}\x{0061}", # U+3371 => 0068 0070 0061
+"\xE3\x8D\xB2" => "\x{0064}\x{0061}",         # U+3372 => 0064 0061
+"\xE3\x8D\xB3" => "\x{0061}\x{0075}",         # U+3373 => 0061 0075
+"\xE3\x8D\xB4" => "\x{0062}\x{0061}\x{0072}", # U+3374 => 0062 0061 0072
+"\xE3\x8D\xB5" => "\x{006F}\x{0076}",         # U+3375 => 006F 0076
+"\xE3\x8D\xB6" => "\x{0070}\x{0063}",         # U+3376 => 0070 0063
+"\xE3\x8D\xB7" => "\x{0064}\x{006D}",         # U+3377 => 0064 006D
+"\xE3\x8D\xB8" => "\x{0064}\x{006D}\x{0032}", # U+3378 => 0064 006D 0032
+"\xE3\x8D\xB9" => "\x{0064}\x{006D}\x{0033}", # U+3379 => 0064 006D 0033
+"\xE3\x8D\xBA" => "\x{0069}\x{0075}",         # U+337A => 0069 0075
+"\xE3\x8D\xBB" => "\x{5E73}\x{6210}",         # U+337B => 5E73 6210
+"\xE3\x8D\xBC" => "\x{662D}\x{548C}",         # U+337C => 662D 548C
+"\xE3\x8D\xBD" => "\x{5927}\x{6B63}",         # U+337D => 5927 6B63
+"\xE3\x8D\xBE" => "\x{660E}\x{6CBB}",         # U+337E => 660E 6CBB
+"\xE3\x8D\xBF" => "\x{682A}\x{5F0F}\x{4F1A}\x{793E}", # U+337F => 682A 5F0F 4F1A 793E
+"\xE3\x8E\x80" => "\x{0070}\x{0061}",         # U+3380 => 0070 0061
+"\xE3\x8E\x81" => "\x{006E}\x{0061}",         # U+3381 => 006E 0061
+"\xE3\x8E\x82" => "\x{03BC}\x{0061}",         # U+3382 => 03BC 0061
+"\xE3\x8E\x83" => "\x{006D}\x{0061}",         # U+3383 => 006D 0061
+"\xE3\x8E\x84" => "\x{006B}\x{0061}",         # U+3384 => 006B 0061
+"\xE3\x8E\x85" => "\x{006B}\x{0062}",         # U+3385 => 006B 0062
+"\xE3\x8E\x86" => "\x{006D}\x{0062}",         # U+3386 => 006D 0062
+"\xE3\x8E\x87" => "\x{0067}\x{0062}",         # U+3387 => 0067 0062
+"\xE3\x8E\x88" => "\x{0063}\x{0061}\x{006C}", # U+3388 => 0063 0061 006C
+"\xE3\x8E\x89" => "\x{006B}\x{0063}\x{0061}\x{006C}", # U+3389 => 006B 0063 0061 006C
+"\xE3\x8E\x8A" => "\x{0070}\x{0066}",         # U+338A => 0070 0066
+"\xE3\x8E\x8B" => "\x{006E}\x{0066}",         # U+338B => 006E 0066
+"\xE3\x8E\x8C" => "\x{03BC}\x{0066}",         # U+338C => 03BC 0066
+"\xE3\x8E\x8D" => "\x{03BC}\x{0067}",         # U+338D => 03BC 0067
+"\xE3\x8E\x8E" => "\x{006D}\x{0067}",         # U+338E => 006D 0067
+"\xE3\x8E\x8F" => "\x{006B}\x{0067}",         # U+338F => 006B 0067
+"\xE3\x8E\x90" => "\x{0068}\x{007A}",         # U+3390 => 0068 007A
+"\xE3\x8E\x91" => "\x{006B}\x{0068}\x{007A}", # U+3391 => 006B 0068 007A
+"\xE3\x8E\x92" => "\x{006D}\x{0068}\x{007A}", # U+3392 => 006D 0068 007A
+"\xE3\x8E\x93" => "\x{0067}\x{0068}\x{007A}", # U+3393 => 0067 0068 007A
+"\xE3\x8E\x94" => "\x{0074}\x{0068}\x{007A}", # U+3394 => 0074 0068 007A
+"\xE3\x8E\x95" => "\x{03BC}\x{006C}",         # U+3395 => 03BC 006C
+"\xE3\x8E\x96" => "\x{006D}\x{006C}",         # U+3396 => 006D 006C
+"\xE3\x8E\x97" => "\x{0064}\x{006C}",         # U+3397 => 0064 006C
+"\xE3\x8E\x98" => "\x{006B}\x{006C}",         # U+3398 => 006B 006C
+"\xE3\x8E\x99" => "\x{0066}\x{006D}",         # U+3399 => 0066 006D
+"\xE3\x8E\x9A" => "\x{006E}\x{006D}",         # U+339A => 006E 006D
+"\xE3\x8E\x9B" => "\x{03BC}\x{006D}",         # U+339B => 03BC 006D
+"\xE3\x8E\x9C" => "\x{006D}\x{006D}",         # U+339C => 006D 006D
+"\xE3\x8E\x9D" => "\x{0063}\x{006D}",         # U+339D => 0063 006D
+"\xE3\x8E\x9E" => "\x{006B}\x{006D}",         # U+339E => 006B 006D
+"\xE3\x8E\x9F" => "\x{006D}\x{006D}\x{0032}", # U+339F => 006D 006D 0032
+"\xE3\x8E\xA0" => "\x{0063}\x{006D}\x{0032}", # U+33A0 => 0063 006D 0032
+"\xE3\x8E\xA1" => "\x{006D}\x{0032}",         # U+33A1 => 006D 0032
+"\xE3\x8E\xA2" => "\x{006B}\x{006D}\x{0032}", # U+33A2 => 006B 006D 0032
+"\xE3\x8E\xA3" => "\x{006D}\x{006D}\x{0033}", # U+33A3 => 006D 006D 0033
+"\xE3\x8E\xA4" => "\x{0063}\x{006D}\x{0033}", # U+33A4 => 0063 006D 0033
+"\xE3\x8E\xA5" => "\x{006D}\x{0033}",         # U+33A5 => 006D 0033
+"\xE3\x8E\xA6" => "\x{006B}\x{006D}\x{0033}", # U+33A6 => 006B 006D 0033
+"\xE3\x8E\xA7" => "\x{006D}\x{2215}\x{0073}", # U+33A7 => 006D 2215 0073
+"\xE3\x8E\xA8" => "\x{006D}\x{2215}\x{0073}\x{0032}", # U+33A8 => 006D 2215 0073 0032
+"\xE3\x8E\xA9" => "\x{0070}\x{0061}",         # U+33A9 => 0070 0061
+"\xE3\x8E\xAA" => "\x{006B}\x{0070}\x{0061}", # U+33AA => 006B 0070 0061
+"\xE3\x8E\xAB" => "\x{006D}\x{0070}\x{0061}", # U+33AB => 006D 0070 0061
+"\xE3\x8E\xAC" => "\x{0067}\x{0070}\x{0061}", # U+33AC => 0067 0070 0061
+"\xE3\x8E\xAD" => "\x{0072}\x{0061}\x{0064}", # U+33AD => 0072 0061 0064
+"\xE3\x8E\xAE" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}", # U+33AE => 0072 0061 0064 2215 0073
+"\xE3\x8E\xAF" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}\x{0032}", # U+33AF => 0072 0061 0064 2215 0073 0032
+"\xE3\x8E\xB0" => "\x{0070}\x{0073}",         # U+33B0 => 0070 0073
+"\xE3\x8E\xB1" => "\x{006E}\x{0073}",         # U+33B1 => 006E 0073
+"\xE3\x8E\xB2" => "\x{03BC}\x{0073}",         # U+33B2 => 03BC 0073
+"\xE3\x8E\xB3" => "\x{006D}\x{0073}",         # U+33B3 => 006D 0073
+"\xE3\x8E\xB4" => "\x{0070}\x{0076}",         # U+33B4 => 0070 0076
+"\xE3\x8E\xB5" => "\x{006E}\x{0076}",         # U+33B5 => 006E 0076
+"\xE3\x8E\xB6" => "\x{03BC}\x{0076}",         # U+33B6 => 03BC 0076
+"\xE3\x8E\xB7" => "\x{006D}\x{0076}",         # U+33B7 => 006D 0076
+"\xE3\x8E\xB8" => "\x{006B}\x{0076}",         # U+33B8 => 006B 0076
+"\xE3\x8E\xB9" => "\x{006D}\x{0076}",         # U+33B9 => 006D 0076
+"\xE3\x8E\xBA" => "\x{0070}\x{0077}",         # U+33BA => 0070 0077
+"\xE3\x8E\xBB" => "\x{006E}\x{0077}",         # U+33BB => 006E 0077
+"\xE3\x8E\xBC" => "\x{03BC}\x{0077}",         # U+33BC => 03BC 0077
+"\xE3\x8E\xBD" => "\x{006D}\x{0077}",         # U+33BD => 006D 0077
+"\xE3\x8E\xBE" => "\x{006B}\x{0077}",         # U+33BE => 006B 0077
+"\xE3\x8E\xBF" => "\x{006D}\x{0077}",         # U+33BF => 006D 0077
+"\xE3\x8F\x80" => "\x{006B}\x{03C9}",         # U+33C0 => 006B 03C9
+"\xE3\x8F\x81" => "\x{006D}\x{03C9}",         # U+33C1 => 006D 03C9
+"\xE3\x8F\x82" => "\x{0061}\x{002E}\x{006D}\x{002E}", # U+33C2 => 0061 002E 006D 002E
+"\xE3\x8F\x83" => "\x{0062}\x{0071}",         # U+33C3 => 0062 0071
+"\xE3\x8F\x84" => "\x{0063}\x{0063}",         # U+33C4 => 0063 0063
+"\xE3\x8F\x85" => "\x{0063}\x{0064}",         # U+33C5 => 0063 0064
+"\xE3\x8F\x86" => "\x{0063}\x{2215}\x{006B}\x{0067}", # U+33C6 => 0063 2215 006B 0067
+"\xE3\x8F\x87" => "\x{0063}\x{006F}\x{002E}", # U+33C7 => 0063 006F 002E
+"\xE3\x8F\x88" => "\x{0064}\x{0062}",         # U+33C8 => 0064 0062
+"\xE3\x8F\x89" => "\x{0067}\x{0079}",         # U+33C9 => 0067 0079
+"\xE3\x8F\x8A" => "\x{0068}\x{0061}",         # U+33CA => 0068 0061
+"\xE3\x8F\x8B" => "\x{0068}\x{0070}",         # U+33CB => 0068 0070
+"\xE3\x8F\x8C" => "\x{0069}\x{006E}",         # U+33CC => 0069 006E
+"\xE3\x8F\x8D" => "\x{006B}\x{006B}",         # U+33CD => 006B 006B
+"\xE3\x8F\x8E" => "\x{006B}\x{006D}",         # U+33CE => 006B 006D
+"\xE3\x8F\x8F" => "\x{006B}\x{0074}",         # U+33CF => 006B 0074
+"\xE3\x8F\x90" => "\x{006C}\x{006D}",         # U+33D0 => 006C 006D
+"\xE3\x8F\x91" => "\x{006C}\x{006E}",         # U+33D1 => 006C 006E
+"\xE3\x8F\x92" => "\x{006C}\x{006F}\x{0067}", # U+33D2 => 006C 006F 0067
+"\xE3\x8F\x93" => "\x{006C}\x{0078}",         # U+33D3 => 006C 0078
+"\xE3\x8F\x94" => "\x{006D}\x{0062}",         # U+33D4 => 006D 0062
+"\xE3\x8F\x95" => "\x{006D}\x{0069}\x{006C}", # U+33D5 => 006D 0069 006C
+"\xE3\x8F\x96" => "\x{006D}\x{006F}\x{006C}", # U+33D6 => 006D 006F 006C
+"\xE3\x8F\x97" => "\x{0070}\x{0068}",         # U+33D7 => 0070 0068
+"\xE3\x8F\x98" => "\x{0070}\x{002E}\x{006D}\x{002E}", # U+33D8 => 0070 002E 006D 002E
+"\xE3\x8F\x99" => "\x{0070}\x{0070}\x{006D}", # U+33D9 => 0070 0070 006D
+"\xE3\x8F\x9A" => "\x{0070}\x{0072}",         # U+33DA => 0070 0072
+"\xE3\x8F\x9B" => "\x{0073}\x{0072}",         # U+33DB => 0073 0072
+"\xE3\x8F\x9C" => "\x{0073}\x{0076}",         # U+33DC => 0073 0076
+"\xE3\x8F\x9D" => "\x{0077}\x{0062}",         # U+33DD => 0077 0062
+"\xE3\x8F\x9E" => "\x{0076}\x{2215}\x{006D}", # U+33DE => 0076 2215 006D
+"\xE3\x8F\x9F" => "\x{0061}\x{2215}\x{006D}", # U+33DF => 0061 2215 006D
+"\xE3\x8F\xA0" => "\x{0031}\x{65E5}",         # U+33E0 => 0031 65E5
+"\xE3\x8F\xA1" => "\x{0032}\x{65E5}",         # U+33E1 => 0032 65E5
+"\xE3\x8F\xA2" => "\x{0033}\x{65E5}",         # U+33E2 => 0033 65E5
+"\xE3\x8F\xA3" => "\x{0034}\x{65E5}",         # U+33E3 => 0034 65E5
+"\xE3\x8F\xA4" => "\x{0035}\x{65E5}",         # U+33E4 => 0035 65E5
+"\xE3\x8F\xA5" => "\x{0036}\x{65E5}",         # U+33E5 => 0036 65E5
+"\xE3\x8F\xA6" => "\x{0037}\x{65E5}",         # U+33E6 => 0037 65E5
+"\xE3\x8F\xA7" => "\x{0038}\x{65E5}",         # U+33E7 => 0038 65E5
+"\xE3\x8F\xA8" => "\x{0039}\x{65E5}",         # U+33E8 => 0039 65E5
+"\xE3\x8F\xA9" => "\x{0031}\x{0030}\x{65E5}", # U+33E9 => 0031 0030 65E5
+"\xE3\x8F\xAA" => "\x{0031}\x{0031}\x{65E5}", # U+33EA => 0031 0031 65E5
+"\xE3\x8F\xAB" => "\x{0031}\x{0032}\x{65E5}", # U+33EB => 0031 0032 65E5
+"\xE3\x8F\xAC" => "\x{0031}\x{0033}\x{65E5}", # U+33EC => 0031 0033 65E5
+"\xE3\x8F\xAD" => "\x{0031}\x{0034}\x{65E5}", # U+33ED => 0031 0034 65E5
+"\xE3\x8F\xAE" => "\x{0031}\x{0035}\x{65E5}", # U+33EE => 0031 0035 65E5
+"\xE3\x8F\xAF" => "\x{0031}\x{0036}\x{65E5}", # U+33EF => 0031 0036 65E5
+"\xE3\x8F\xB0" => "\x{0031}\x{0037}\x{65E5}", # U+33F0 => 0031 0037 65E5
+"\xE3\x8F\xB1" => "\x{0031}\x{0038}\x{65E5}", # U+33F1 => 0031 0038 65E5
+"\xE3\x8F\xB2" => "\x{0031}\x{0039}\x{65E5}", # U+33F2 => 0031 0039 65E5
+"\xE3\x8F\xB3" => "\x{0032}\x{0030}\x{65E5}", # U+33F3 => 0032 0030 65E5
+"\xE3\x8F\xB4" => "\x{0032}\x{0031}\x{65E5}", # U+33F4 => 0032 0031 65E5
+"\xE3\x8F\xB5" => "\x{0032}\x{0032}\x{65E5}", # U+33F5 => 0032 0032 65E5
+"\xE3\x8F\xB6" => "\x{0032}\x{0033}\x{65E5}", # U+33F6 => 0032 0033 65E5
+"\xE3\x8F\xB7" => "\x{0032}\x{0034}\x{65E5}", # U+33F7 => 0032 0034 65E5
+"\xE3\x8F\xB8" => "\x{0032}\x{0035}\x{65E5}", # U+33F8 => 0032 0035 65E5
+"\xE3\x8F\xB9" => "\x{0032}\x{0036}\x{65E5}", # U+33F9 => 0032 0036 65E5
+"\xE3\x8F\xBA" => "\x{0032}\x{0037}\x{65E5}", # U+33FA => 0032 0037 65E5
+"\xE3\x8F\xBB" => "\x{0032}\x{0038}\x{65E5}", # U+33FB => 0032 0038 65E5
+"\xE3\x8F\xBC" => "\x{0032}\x{0039}\x{65E5}", # U+33FC => 0032 0039 65E5
+"\xE3\x8F\xBD" => "\x{0033}\x{0030}\x{65E5}", # U+33FD => 0033 0030 65E5
+"\xE3\x8F\xBE" => "\x{0033}\x{0031}\x{65E5}", # U+33FE => 0033 0031 65E5
+"\xE3\x8F\xBF" => "\x{0067}\x{0061}\x{006C}", # U+33FF => 0067 0061 006C
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+"\xEF\xAC\x9D" => "\x{05D9}\x{05B4}",         # U+FB1D => 05D9 05B4
+"\xEF\xAC\x9F" => "\x{05F2}\x{05B7}",         # U+FB1F => 05F2 05B7
+"\xEF\xAC\xAA" => "\x{05E9}\x{05C1}",         # U+FB2A => 05E9 05C1
+"\xEF\xAC\xAB" => "\x{05E9}\x{05C2}",         # U+FB2B => 05E9 05C2
+"\xEF\xAC\xAC" => "\x{05E9}\x{05BC}\x{05C1}", # U+FB2C => 05E9 05BC 05C1
+"\xEF\xAC\xAD" => "\x{05E9}\x{05BC}\x{05C2}", # U+FB2D => 05E9 05BC 05C2
+"\xEF\xAC\xAE" => "\x{05D0}\x{05B7}",         # U+FB2E => 05D0 05B7
+"\xEF\xAC\xAF" => "\x{05D0}\x{05B8}",         # U+FB2F => 05D0 05B8
+"\xEF\xAC\xB0" => "\x{05D0}\x{05BC}",         # U+FB30 => 05D0 05BC
+"\xEF\xAC\xB1" => "\x{05D1}\x{05BC}",         # U+FB31 => 05D1 05BC
+"\xEF\xAC\xB2" => "\x{05D2}\x{05BC}",         # U+FB32 => 05D2 05BC
+"\xEF\xAC\xB3" => "\x{05D3}\x{05BC}",         # U+FB33 => 05D3 05BC
+"\xEF\xAC\xB4" => "\x{05D4}\x{05BC}",         # U+FB34 => 05D4 05BC
+"\xEF\xAC\xB5" => "\x{05D5}\x{05BC}",         # U+FB35 => 05D5 05BC
+"\xEF\xAC\xB6" => "\x{05D6}\x{05BC}",         # U+FB36 => 05D6 05BC
+"\xEF\xAC\xB8" => "\x{05D8}\x{05BC}",         # U+FB38 => 05D8 05BC
+"\xEF\xAC\xB9" => "\x{05D9}\x{05BC}",         # U+FB39 => 05D9 05BC
+"\xEF\xAC\xBA" => "\x{05DA}\x{05BC}",         # U+FB3A => 05DA 05BC
+"\xEF\xAC\xBB" => "\x{05DB}\x{05BC}",         # U+FB3B => 05DB 05BC
+"\xEF\xAC\xBC" => "\x{05DC}\x{05BC}",         # U+FB3C => 05DC 05BC
+"\xEF\xAC\xBE" => "\x{05DE}\x{05BC}",         # U+FB3E => 05DE 05BC
+"\xEF\xAD\x80" => "\x{05E0}\x{05BC}",         # U+FB40 => 05E0 05BC
+"\xEF\xAD\x81" => "\x{05E1}\x{05BC}",         # U+FB41 => 05E1 05BC
+"\xEF\xAD\x83" => "\x{05E3}\x{05BC}",         # U+FB43 => 05E3 05BC
+"\xEF\xAD\x84" => "\x{05E4}\x{05BC}",         # U+FB44 => 05E4 05BC
+"\xEF\xAD\x86" => "\x{05E6}\x{05BC}",         # U+FB46 => 05E6 05BC
+"\xEF\xAD\x87" => "\x{05E7}\x{05BC}",         # U+FB47 => 05E7 05BC
+"\xEF\xAD\x88" => "\x{05E8}\x{05BC}",         # U+FB48 => 05E8 05BC
+"\xEF\xAD\x89" => "\x{05E9}\x{05BC}",         # U+FB49 => 05E9 05BC
+"\xEF\xAD\x8A" => "\x{05EA}\x{05BC}",         # U+FB4A => 05EA 05BC
+"\xEF\xAD\x8B" => "\x{05D5}\x{05B9}",         # U+FB4B => 05D5 05B9
+"\xEF\xAD\x8C" => "\x{05D1}\x{05BF}",         # U+FB4C => 05D1 05BF
+"\xEF\xAD\x8D" => "\x{05DB}\x{05BF}",         # U+FB4D => 05DB 05BF
+"\xEF\xAD\x8E" => "\x{05E4}\x{05BF}",         # U+FB4E => 05E4 05BF
+"\xEF\xAD\x8F" => "\x{05D0}\x{05DC}",         # U+FB4F => 05D0 05DC
+"\xEF\xAF\x9D" => "\x{06C7}\x{0674}",         # U+FBDD => 06C7 0674
+"\xEF\xAF\xAA" => "\x{0626}\x{0627}",         # U+FBEA => 0626 0627
+"\xEF\xAF\xAB" => "\x{0626}\x{0627}",         # U+FBEB => 0626 0627
+"\xEF\xAF\xAC" => "\x{0626}\x{06D5}",         # U+FBEC => 0626 06D5
+"\xEF\xAF\xAD" => "\x{0626}\x{06D5}",         # U+FBED => 0626 06D5
+"\xEF\xAF\xAE" => "\x{0626}\x{0648}",         # U+FBEE => 0626 0648
+"\xEF\xAF\xAF" => "\x{0626}\x{0648}",         # U+FBEF => 0626 0648
+"\xEF\xAF\xB0" => "\x{0626}\x{06C7}",         # U+FBF0 => 0626 06C7
+"\xEF\xAF\xB1" => "\x{0626}\x{06C7}",         # U+FBF1 => 0626 06C7
+"\xEF\xAF\xB2" => "\x{0626}\x{06C6}",         # U+FBF2 => 0626 06C6
+"\xEF\xAF\xB3" => "\x{0626}\x{06C6}",         # U+FBF3 => 0626 06C6
+"\xEF\xAF\xB4" => "\x{0626}\x{06C8}",         # U+FBF4 => 0626 06C8
+"\xEF\xAF\xB5" => "\x{0626}\x{06C8}",         # U+FBF5 => 0626 06C8
+"\xEF\xAF\xB6" => "\x{0626}\x{06D0}",         # U+FBF6 => 0626 06D0
+"\xEF\xAF\xB7" => "\x{0626}\x{06D0}",         # U+FBF7 => 0626 06D0
+"\xEF\xAF\xB8" => "\x{0626}\x{06D0}",         # U+FBF8 => 0626 06D0
+"\xEF\xAF\xB9" => "\x{0626}\x{0649}",         # U+FBF9 => 0626 0649
+"\xEF\xAF\xBA" => "\x{0626}\x{0649}",         # U+FBFA => 0626 0649
+"\xEF\xAF\xBB" => "\x{0626}\x{0649}",         # U+FBFB => 0626 0649
+"\xEF\xB0\x80" => "\x{0626}\x{062C}",         # U+FC00 => 0626 062C
+"\xEF\xB0\x81" => "\x{0626}\x{062D}",         # U+FC01 => 0626 062D
+"\xEF\xB0\x82" => "\x{0626}\x{0645}",         # U+FC02 => 0626 0645
+"\xEF\xB0\x83" => "\x{0626}\x{0649}",         # U+FC03 => 0626 0649
+"\xEF\xB0\x84" => "\x{0626}\x{064A}",         # U+FC04 => 0626 064A
+"\xEF\xB0\x85" => "\x{0628}\x{062C}",         # U+FC05 => 0628 062C
+"\xEF\xB0\x86" => "\x{0628}\x{062D}",         # U+FC06 => 0628 062D
+"\xEF\xB0\x87" => "\x{0628}\x{062E}",         # U+FC07 => 0628 062E
+"\xEF\xB0\x88" => "\x{0628}\x{0645}",         # U+FC08 => 0628 0645
+"\xEF\xB0\x89" => "\x{0628}\x{0649}",         # U+FC09 => 0628 0649
+"\xEF\xB0\x8A" => "\x{0628}\x{064A}",         # U+FC0A => 0628 064A
+"\xEF\xB0\x8B" => "\x{062A}\x{062C}",         # U+FC0B => 062A 062C
+"\xEF\xB0\x8C" => "\x{062A}\x{062D}",         # U+FC0C => 062A 062D
+"\xEF\xB0\x8D" => "\x{062A}\x{062E}",         # U+FC0D => 062A 062E
+"\xEF\xB0\x8E" => "\x{062A}\x{0645}",         # U+FC0E => 062A 0645
+"\xEF\xB0\x8F" => "\x{062A}\x{0649}",         # U+FC0F => 062A 0649
+"\xEF\xB0\x90" => "\x{062A}\x{064A}",         # U+FC10 => 062A 064A
+"\xEF\xB0\x91" => "\x{062B}\x{062C}",         # U+FC11 => 062B 062C
+"\xEF\xB0\x92" => "\x{062B}\x{0645}",         # U+FC12 => 062B 0645
+"\xEF\xB0\x93" => "\x{062B}\x{0649}",         # U+FC13 => 062B 0649
+"\xEF\xB0\x94" => "\x{062B}\x{064A}",         # U+FC14 => 062B 064A
+"\xEF\xB0\x95" => "\x{062C}\x{062D}",         # U+FC15 => 062C 062D
+"\xEF\xB0\x96" => "\x{062C}\x{0645}",         # U+FC16 => 062C 0645
+"\xEF\xB0\x97" => "\x{062D}\x{062C}",         # U+FC17 => 062D 062C
+"\xEF\xB0\x98" => "\x{062D}\x{0645}",         # U+FC18 => 062D 0645
+"\xEF\xB0\x99" => "\x{062E}\x{062C}",         # U+FC19 => 062E 062C
+"\xEF\xB0\x9A" => "\x{062E}\x{062D}",         # U+FC1A => 062E 062D
+"\xEF\xB0\x9B" => "\x{062E}\x{0645}",         # U+FC1B => 062E 0645
+"\xEF\xB0\x9C" => "\x{0633}\x{062C}",         # U+FC1C => 0633 062C
+"\xEF\xB0\x9D" => "\x{0633}\x{062D}",         # U+FC1D => 0633 062D
+"\xEF\xB0\x9E" => "\x{0633}\x{062E}",         # U+FC1E => 0633 062E
+"\xEF\xB0\x9F" => "\x{0633}\x{0645}",         # U+FC1F => 0633 0645
+"\xEF\xB0\xA0" => "\x{0635}\x{062D}",         # U+FC20 => 0635 062D
+"\xEF\xB0\xA1" => "\x{0635}\x{0645}",         # U+FC21 => 0635 0645
+"\xEF\xB0\xA2" => "\x{0636}\x{062C}",         # U+FC22 => 0636 062C
+"\xEF\xB0\xA3" => "\x{0636}\x{062D}",         # U+FC23 => 0636 062D
+"\xEF\xB0\xA4" => "\x{0636}\x{062E}",         # U+FC24 => 0636 062E
+"\xEF\xB0\xA5" => "\x{0636}\x{0645}",         # U+FC25 => 0636 0645
+"\xEF\xB0\xA6" => "\x{0637}\x{062D}",         # U+FC26 => 0637 062D
+"\xEF\xB0\xA7" => "\x{0637}\x{0645}",         # U+FC27 => 0637 0645
+"\xEF\xB0\xA8" => "\x{0638}\x{0645}",         # U+FC28 => 0638 0645
+"\xEF\xB0\xA9" => "\x{0639}\x{062C}",         # U+FC29 => 0639 062C
+"\xEF\xB0\xAA" => "\x{0639}\x{0645}",         # U+FC2A => 0639 0645
+"\xEF\xB0\xAB" => "\x{063A}\x{062C}",         # U+FC2B => 063A 062C
+"\xEF\xB0\xAC" => "\x{063A}\x{0645}",         # U+FC2C => 063A 0645
+"\xEF\xB0\xAD" => "\x{0641}\x{062C}",         # U+FC2D => 0641 062C
+"\xEF\xB0\xAE" => "\x{0641}\x{062D}",         # U+FC2E => 0641 062D
+"\xEF\xB0\xAF" => "\x{0641}\x{062E}",         # U+FC2F => 0641 062E
+"\xEF\xB0\xB0" => "\x{0641}\x{0645}",         # U+FC30 => 0641 0645
+"\xEF\xB0\xB1" => "\x{0641}\x{0649}",         # U+FC31 => 0641 0649
+"\xEF\xB0\xB2" => "\x{0641}\x{064A}",         # U+FC32 => 0641 064A
+"\xEF\xB0\xB3" => "\x{0642}\x{062D}",         # U+FC33 => 0642 062D
+"\xEF\xB0\xB4" => "\x{0642}\x{0645}",         # U+FC34 => 0642 0645
+"\xEF\xB0\xB5" => "\x{0642}\x{0649}",         # U+FC35 => 0642 0649
+"\xEF\xB0\xB6" => "\x{0642}\x{064A}",         # U+FC36 => 0642 064A
+"\xEF\xB0\xB7" => "\x{0643}\x{0627}",         # U+FC37 => 0643 0627
+"\xEF\xB0\xB8" => "\x{0643}\x{062C}",         # U+FC38 => 0643 062C
+"\xEF\xB0\xB9" => "\x{0643}\x{062D}",         # U+FC39 => 0643 062D
+"\xEF\xB0\xBA" => "\x{0643}\x{062E}",         # U+FC3A => 0643 062E
+"\xEF\xB0\xBB" => "\x{0643}\x{0644}",         # U+FC3B => 0643 0644
+"\xEF\xB0\xBC" => "\x{0643}\x{0645}",         # U+FC3C => 0643 0645
+"\xEF\xB0\xBD" => "\x{0643}\x{0649}",         # U+FC3D => 0643 0649
+"\xEF\xB0\xBE" => "\x{0643}\x{064A}",         # U+FC3E => 0643 064A
+"\xEF\xB0\xBF" => "\x{0644}\x{062C}",         # U+FC3F => 0644 062C
+"\xEF\xB1\x80" => "\x{0644}\x{062D}",         # U+FC40 => 0644 062D
+"\xEF\xB1\x81" => "\x{0644}\x{062E}",         # U+FC41 => 0644 062E
+"\xEF\xB1\x82" => "\x{0644}\x{0645}",         # U+FC42 => 0644 0645
+"\xEF\xB1\x83" => "\x{0644}\x{0649}",         # U+FC43 => 0644 0649
+"\xEF\xB1\x84" => "\x{0644}\x{064A}",         # U+FC44 => 0644 064A
+"\xEF\xB1\x85" => "\x{0645}\x{062C}",         # U+FC45 => 0645 062C
+"\xEF\xB1\x86" => "\x{0645}\x{062D}",         # U+FC46 => 0645 062D
+"\xEF\xB1\x87" => "\x{0645}\x{062E}",         # U+FC47 => 0645 062E
+"\xEF\xB1\x88" => "\x{0645}\x{0645}",         # U+FC48 => 0645 0645
+"\xEF\xB1\x89" => "\x{0645}\x{0649}",         # U+FC49 => 0645 0649
+"\xEF\xB1\x8A" => "\x{0645}\x{064A}",         # U+FC4A => 0645 064A
+"\xEF\xB1\x8B" => "\x{0646}\x{062C}",         # U+FC4B => 0646 062C
+"\xEF\xB1\x8C" => "\x{0646}\x{062D}",         # U+FC4C => 0646 062D
+"\xEF\xB1\x8D" => "\x{0646}\x{062E}",         # U+FC4D => 0646 062E
+"\xEF\xB1\x8E" => "\x{0646}\x{0645}",         # U+FC4E => 0646 0645
+"\xEF\xB1\x8F" => "\x{0646}\x{0649}",         # U+FC4F => 0646 0649
+"\xEF\xB1\x90" => "\x{0646}\x{064A}",         # U+FC50 => 0646 064A
+"\xEF\xB1\x91" => "\x{0647}\x{062C}",         # U+FC51 => 0647 062C
+"\xEF\xB1\x92" => "\x{0647}\x{0645}",         # U+FC52 => 0647 0645
+"\xEF\xB1\x93" => "\x{0647}\x{0649}",         # U+FC53 => 0647 0649
+"\xEF\xB1\x94" => "\x{0647}\x{064A}",         # U+FC54 => 0647 064A
+"\xEF\xB1\x95" => "\x{064A}\x{062C}",         # U+FC55 => 064A 062C
+"\xEF\xB1\x96" => "\x{064A}\x{062D}",         # U+FC56 => 064A 062D
+"\xEF\xB1\x97" => "\x{064A}\x{062E}",         # U+FC57 => 064A 062E
+"\xEF\xB1\x98" => "\x{064A}\x{0645}",         # U+FC58 => 064A 0645
+"\xEF\xB1\x99" => "\x{064A}\x{0649}",         # U+FC59 => 064A 0649
+"\xEF\xB1\x9A" => "\x{064A}\x{064A}",         # U+FC5A => 064A 064A
+"\xEF\xB1\x9B" => "\x{0630}\x{0670}",         # U+FC5B => 0630 0670
+"\xEF\xB1\x9C" => "\x{0631}\x{0670}",         # U+FC5C => 0631 0670
+"\xEF\xB1\x9D" => "\x{0649}\x{0670}",         # U+FC5D => 0649 0670
+"\xEF\xB1\x9E" => "\x{0020}\x{064C}\x{0651}", # U+FC5E => 0020 064C 0651
+"\xEF\xB1\x9F" => "\x{0020}\x{064D}\x{0651}", # U+FC5F => 0020 064D 0651
+"\xEF\xB1\xA0" => "\x{0020}\x{064E}\x{0651}", # U+FC60 => 0020 064E 0651
+"\xEF\xB1\xA1" => "\x{0020}\x{064F}\x{0651}", # U+FC61 => 0020 064F 0651
+"\xEF\xB1\xA2" => "\x{0020}\x{0650}\x{0651}", # U+FC62 => 0020 0650 0651
+"\xEF\xB1\xA3" => "\x{0020}\x{0651}\x{0670}", # U+FC63 => 0020 0651 0670
+"\xEF\xB1\xA4" => "\x{0626}\x{0631}",         # U+FC64 => 0626 0631
+"\xEF\xB1\xA5" => "\x{0626}\x{0632}",         # U+FC65 => 0626 0632
+"\xEF\xB1\xA6" => "\x{0626}\x{0645}",         # U+FC66 => 0626 0645
+"\xEF\xB1\xA7" => "\x{0626}\x{0646}",         # U+FC67 => 0626 0646
+"\xEF\xB1\xA8" => "\x{0626}\x{0649}",         # U+FC68 => 0626 0649
+"\xEF\xB1\xA9" => "\x{0626}\x{064A}",         # U+FC69 => 0626 064A
+"\xEF\xB1\xAA" => "\x{0628}\x{0631}",         # U+FC6A => 0628 0631
+"\xEF\xB1\xAB" => "\x{0628}\x{0632}",         # U+FC6B => 0628 0632
+"\xEF\xB1\xAC" => "\x{0628}\x{0645}",         # U+FC6C => 0628 0645
+"\xEF\xB1\xAD" => "\x{0628}\x{0646}",         # U+FC6D => 0628 0646
+"\xEF\xB1\xAE" => "\x{0628}\x{0649}",         # U+FC6E => 0628 0649
+"\xEF\xB1\xAF" => "\x{0628}\x{064A}",         # U+FC6F => 0628 064A
+"\xEF\xB1\xB0" => "\x{062A}\x{0631}",         # U+FC70 => 062A 0631
+"\xEF\xB1\xB1" => "\x{062A}\x{0632}",         # U+FC71 => 062A 0632
+"\xEF\xB1\xB2" => "\x{062A}\x{0645}",         # U+FC72 => 062A 0645
+"\xEF\xB1\xB3" => "\x{062A}\x{0646}",         # U+FC73 => 062A 0646
+"\xEF\xB1\xB4" => "\x{062A}\x{0649}",         # U+FC74 => 062A 0649
+"\xEF\xB1\xB5" => "\x{062A}\x{064A}",         # U+FC75 => 062A 064A
+"\xEF\xB1\xB6" => "\x{062B}\x{0631}",         # U+FC76 => 062B 0631
+"\xEF\xB1\xB7" => "\x{062B}\x{0632}",         # U+FC77 => 062B 0632
+"\xEF\xB1\xB8" => "\x{062B}\x{0645}",         # U+FC78 => 062B 0645
+"\xEF\xB1\xB9" => "\x{062B}\x{0646}",         # U+FC79 => 062B 0646
+"\xEF\xB1\xBA" => "\x{062B}\x{0649}",         # U+FC7A => 062B 0649
+"\xEF\xB1\xBB" => "\x{062B}\x{064A}",         # U+FC7B => 062B 064A
+"\xEF\xB1\xBC" => "\x{0641}\x{0649}",         # U+FC7C => 0641 0649
+"\xEF\xB1\xBD" => "\x{0641}\x{064A}",         # U+FC7D => 0641 064A
+"\xEF\xB1\xBE" => "\x{0642}\x{0649}",         # U+FC7E => 0642 0649
+"\xEF\xB1\xBF" => "\x{0642}\x{064A}",         # U+FC7F => 0642 064A
+"\xEF\xB2\x80" => "\x{0643}\x{0627}",         # U+FC80 => 0643 0627
+"\xEF\xB2\x81" => "\x{0643}\x{0644}",         # U+FC81 => 0643 0644
+"\xEF\xB2\x82" => "\x{0643}\x{0645}",         # U+FC82 => 0643 0645
+"\xEF\xB2\x83" => "\x{0643}\x{0649}",         # U+FC83 => 0643 0649
+"\xEF\xB2\x84" => "\x{0643}\x{064A}",         # U+FC84 => 0643 064A
+"\xEF\xB2\x85" => "\x{0644}\x{0645}",         # U+FC85 => 0644 0645
+"\xEF\xB2\x86" => "\x{0644}\x{0649}",         # U+FC86 => 0644 0649
+"\xEF\xB2\x87" => "\x{0644}\x{064A}",         # U+FC87 => 0644 064A
+"\xEF\xB2\x88" => "\x{0645}\x{0627}",         # U+FC88 => 0645 0627
+"\xEF\xB2\x89" => "\x{0645}\x{0645}",         # U+FC89 => 0645 0645
+"\xEF\xB2\x8A" => "\x{0646}\x{0631}",         # U+FC8A => 0646 0631
+"\xEF\xB2\x8B" => "\x{0646}\x{0632}",         # U+FC8B => 0646 0632
+"\xEF\xB2\x8C" => "\x{0646}\x{0645}",         # U+FC8C => 0646 0645
+"\xEF\xB2\x8D" => "\x{0646}\x{0646}",         # U+FC8D => 0646 0646
+"\xEF\xB2\x8E" => "\x{0646}\x{0649}",         # U+FC8E => 0646 0649
+"\xEF\xB2\x8F" => "\x{0646}\x{064A}",         # U+FC8F => 0646 064A
+"\xEF\xB2\x90" => "\x{0649}\x{0670}",         # U+FC90 => 0649 0670
+"\xEF\xB2\x91" => "\x{064A}\x{0631}",         # U+FC91 => 064A 0631
+"\xEF\xB2\x92" => "\x{064A}\x{0632}",         # U+FC92 => 064A 0632
+"\xEF\xB2\x93" => "\x{064A}\x{0645}",         # U+FC93 => 064A 0645
+"\xEF\xB2\x94" => "\x{064A}\x{0646}",         # U+FC94 => 064A 0646
+"\xEF\xB2\x95" => "\x{064A}\x{0649}",         # U+FC95 => 064A 0649
+"\xEF\xB2\x96" => "\x{064A}\x{064A}",         # U+FC96 => 064A 064A
+"\xEF\xB2\x97" => "\x{0626}\x{062C}",         # U+FC97 => 0626 062C
+"\xEF\xB2\x98" => "\x{0626}\x{062D}",         # U+FC98 => 0626 062D
+"\xEF\xB2\x99" => "\x{0626}\x{062E}",         # U+FC99 => 0626 062E
+"\xEF\xB2\x9A" => "\x{0626}\x{0645}",         # U+FC9A => 0626 0645
+"\xEF\xB2\x9B" => "\x{0626}\x{0647}",         # U+FC9B => 0626 0647
+"\xEF\xB2\x9C" => "\x{0628}\x{062C}",         # U+FC9C => 0628 062C
+"\xEF\xB2\x9D" => "\x{0628}\x{062D}",         # U+FC9D => 0628 062D
+"\xEF\xB2\x9E" => "\x{0628}\x{062E}",         # U+FC9E => 0628 062E
+"\xEF\xB2\x9F" => "\x{0628}\x{0645}",         # U+FC9F => 0628 0645
+"\xEF\xB2\xA0" => "\x{0628}\x{0647}",         # U+FCA0 => 0628 0647
+"\xEF\xB2\xA1" => "\x{062A}\x{062C}",         # U+FCA1 => 062A 062C
+"\xEF\xB2\xA2" => "\x{062A}\x{062D}",         # U+FCA2 => 062A 062D
+"\xEF\xB2\xA3" => "\x{062A}\x{062E}",         # U+FCA3 => 062A 062E
+"\xEF\xB2\xA4" => "\x{062A}\x{0645}",         # U+FCA4 => 062A 0645
+"\xEF\xB2\xA5" => "\x{062A}\x{0647}",         # U+FCA5 => 062A 0647
+"\xEF\xB2\xA6" => "\x{062B}\x{0645}",         # U+FCA6 => 062B 0645
+"\xEF\xB2\xA7" => "\x{062C}\x{062D}",         # U+FCA7 => 062C 062D
+"\xEF\xB2\xA8" => "\x{062C}\x{0645}",         # U+FCA8 => 062C 0645
+"\xEF\xB2\xA9" => "\x{062D}\x{062C}",         # U+FCA9 => 062D 062C
+"\xEF\xB2\xAA" => "\x{062D}\x{0645}",         # U+FCAA => 062D 0645
+"\xEF\xB2\xAB" => "\x{062E}\x{062C}",         # U+FCAB => 062E 062C
+"\xEF\xB2\xAC" => "\x{062E}\x{0645}",         # U+FCAC => 062E 0645
+"\xEF\xB2\xAD" => "\x{0633}\x{062C}",         # U+FCAD => 0633 062C
+"\xEF\xB2\xAE" => "\x{0633}\x{062D}",         # U+FCAE => 0633 062D
+"\xEF\xB2\xAF" => "\x{0633}\x{062E}",         # U+FCAF => 0633 062E
+"\xEF\xB2\xB0" => "\x{0633}\x{0645}",         # U+FCB0 => 0633 0645
+"\xEF\xB2\xB1" => "\x{0635}\x{062D}",         # U+FCB1 => 0635 062D
+"\xEF\xB2\xB2" => "\x{0635}\x{062E}",         # U+FCB2 => 0635 062E
+"\xEF\xB2\xB3" => "\x{0635}\x{0645}",         # U+FCB3 => 0635 0645
+"\xEF\xB2\xB4" => "\x{0636}\x{062C}",         # U+FCB4 => 0636 062C
+"\xEF\xB2\xB5" => "\x{0636}\x{062D}",         # U+FCB5 => 0636 062D
+"\xEF\xB2\xB6" => "\x{0636}\x{062E}",         # U+FCB6 => 0636 062E
+"\xEF\xB2\xB7" => "\x{0636}\x{0645}",         # U+FCB7 => 0636 0645
+"\xEF\xB2\xB8" => "\x{0637}\x{062D}",         # U+FCB8 => 0637 062D
+"\xEF\xB2\xB9" => "\x{0638}\x{0645}",         # U+FCB9 => 0638 0645
+"\xEF\xB2\xBA" => "\x{0639}\x{062C}",         # U+FCBA => 0639 062C
+"\xEF\xB2\xBB" => "\x{0639}\x{0645}",         # U+FCBB => 0639 0645
+"\xEF\xB2\xBC" => "\x{063A}\x{062C}",         # U+FCBC => 063A 062C
+"\xEF\xB2\xBD" => "\x{063A}\x{0645}",         # U+FCBD => 063A 0645
+"\xEF\xB2\xBE" => "\x{0641}\x{062C}",         # U+FCBE => 0641 062C
+"\xEF\xB2\xBF" => "\x{0641}\x{062D}",         # U+FCBF => 0641 062D
+"\xEF\xB3\x80" => "\x{0641}\x{062E}",         # U+FCC0 => 0641 062E
+"\xEF\xB3\x81" => "\x{0641}\x{0645}",         # U+FCC1 => 0641 0645
+"\xEF\xB3\x82" => "\x{0642}\x{062D}",         # U+FCC2 => 0642 062D
+"\xEF\xB3\x83" => "\x{0642}\x{0645}",         # U+FCC3 => 0642 0645
+"\xEF\xB3\x84" => "\x{0643}\x{062C}",         # U+FCC4 => 0643 062C
+"\xEF\xB3\x85" => "\x{0643}\x{062D}",         # U+FCC5 => 0643 062D
+"\xEF\xB3\x86" => "\x{0643}\x{062E}",         # U+FCC6 => 0643 062E
+"\xEF\xB3\x87" => "\x{0643}\x{0644}",         # U+FCC7 => 0643 0644
+"\xEF\xB3\x88" => "\x{0643}\x{0645}",         # U+FCC8 => 0643 0645
+"\xEF\xB3\x89" => "\x{0644}\x{062C}",         # U+FCC9 => 0644 062C
+"\xEF\xB3\x8A" => "\x{0644}\x{062D}",         # U+FCCA => 0644 062D
+"\xEF\xB3\x8B" => "\x{0644}\x{062E}",         # U+FCCB => 0644 062E
+"\xEF\xB3\x8C" => "\x{0644}\x{0645}",         # U+FCCC => 0644 0645
+"\xEF\xB3\x8D" => "\x{0644}\x{0647}",         # U+FCCD => 0644 0647
+"\xEF\xB3\x8E" => "\x{0645}\x{062C}",         # U+FCCE => 0645 062C
+"\xEF\xB3\x8F" => "\x{0645}\x{062D}",         # U+FCCF => 0645 062D
+"\xEF\xB3\x90" => "\x{0645}\x{062E}",         # U+FCD0 => 0645 062E
+"\xEF\xB3\x91" => "\x{0645}\x{0645}",         # U+FCD1 => 0645 0645
+"\xEF\xB3\x92" => "\x{0646}\x{062C}",         # U+FCD2 => 0646 062C
+"\xEF\xB3\x93" => "\x{0646}\x{062D}",         # U+FCD3 => 0646 062D
+"\xEF\xB3\x94" => "\x{0646}\x{062E}",         # U+FCD4 => 0646 062E
+"\xEF\xB3\x95" => "\x{0646}\x{0645}",         # U+FCD5 => 0646 0645
+"\xEF\xB3\x96" => "\x{0646}\x{0647}",         # U+FCD6 => 0646 0647
+"\xEF\xB3\x97" => "\x{0647}\x{062C}",         # U+FCD7 => 0647 062C
+"\xEF\xB3\x98" => "\x{0647}\x{0645}",         # U+FCD8 => 0647 0645
+"\xEF\xB3\x99" => "\x{0647}\x{0670}",         # U+FCD9 => 0647 0670
+"\xEF\xB3\x9A" => "\x{064A}\x{062C}",         # U+FCDA => 064A 062C
+"\xEF\xB3\x9B" => "\x{064A}\x{062D}",         # U+FCDB => 064A 062D
+"\xEF\xB3\x9C" => "\x{064A}\x{062E}",         # U+FCDC => 064A 062E
+"\xEF\xB3\x9D" => "\x{064A}\x{0645}",         # U+FCDD => 064A 0645
+"\xEF\xB3\x9E" => "\x{064A}\x{0647}",         # U+FCDE => 064A 0647
+"\xEF\xB3\x9F" => "\x{0626}\x{0645}",         # U+FCDF => 0626 0645
+"\xEF\xB3\xA0" => "\x{0626}\x{0647}",         # U+FCE0 => 0626 0647
+"\xEF\xB3\xA1" => "\x{0628}\x{0645}",         # U+FCE1 => 0628 0645
+"\xEF\xB3\xA2" => "\x{0628}\x{0647}",         # U+FCE2 => 0628 0647
+"\xEF\xB3\xA3" => "\x{062A}\x{0645}",         # U+FCE3 => 062A 0645
+"\xEF\xB3\xA4" => "\x{062A}\x{0647}",         # U+FCE4 => 062A 0647
+"\xEF\xB3\xA5" => "\x{062B}\x{0645}",         # U+FCE5 => 062B 0645
+"\xEF\xB3\xA6" => "\x{062B}\x{0647}",         # U+FCE6 => 062B 0647
+"\xEF\xB3\xA7" => "\x{0633}\x{0645}",         # U+FCE7 => 0633 0645
+"\xEF\xB3\xA8" => "\x{0633}\x{0647}",         # U+FCE8 => 0633 0647
+"\xEF\xB3\xA9" => "\x{0634}\x{0645}",         # U+FCE9 => 0634 0645
+"\xEF\xB3\xAA" => "\x{0634}\x{0647}",         # U+FCEA => 0634 0647
+"\xEF\xB3\xAB" => "\x{0643}\x{0644}",         # U+FCEB => 0643 0644
+"\xEF\xB3\xAC" => "\x{0643}\x{0645}",         # U+FCEC => 0643 0645
+"\xEF\xB3\xAD" => "\x{0644}\x{0645}",         # U+FCED => 0644 0645
+"\xEF\xB3\xAE" => "\x{0646}\x{0645}",         # U+FCEE => 0646 0645
+"\xEF\xB3\xAF" => "\x{0646}\x{0647}",         # U+FCEF => 0646 0647
+"\xEF\xB3\xB0" => "\x{064A}\x{0645}",         # U+FCF0 => 064A 0645
+"\xEF\xB3\xB1" => "\x{064A}\x{0647}",         # U+FCF1 => 064A 0647
+"\xEF\xB3\xB2" => "\x{0640}\x{064E}\x{0651}", # U+FCF2 => 0640 064E 0651
+"\xEF\xB3\xB3" => "\x{0640}\x{064F}\x{0651}", # U+FCF3 => 0640 064F 0651
+"\xEF\xB3\xB4" => "\x{0640}\x{0650}\x{0651}", # U+FCF4 => 0640 0650 0651
+"\xEF\xB3\xB5" => "\x{0637}\x{0649}",         # U+FCF5 => 0637 0649
+"\xEF\xB3\xB6" => "\x{0637}\x{064A}",         # U+FCF6 => 0637 064A
+"\xEF\xB3\xB7" => "\x{0639}\x{0649}",         # U+FCF7 => 0639 0649
+"\xEF\xB3\xB8" => "\x{0639}\x{064A}",         # U+FCF8 => 0639 064A
+"\xEF\xB3\xB9" => "\x{063A}\x{0649}",         # U+FCF9 => 063A 0649
+"\xEF\xB3\xBA" => "\x{063A}\x{064A}",         # U+FCFA => 063A 064A
+"\xEF\xB3\xBB" => "\x{0633}\x{0649}",         # U+FCFB => 0633 0649
+"\xEF\xB3\xBC" => "\x{0633}\x{064A}",         # U+FCFC => 0633 064A
+"\xEF\xB3\xBD" => "\x{0634}\x{0649}",         # U+FCFD => 0634 0649
+"\xEF\xB3\xBE" => "\x{0634}\x{064A}",         # U+FCFE => 0634 064A
+"\xEF\xB3\xBF" => "\x{062D}\x{0649}",         # U+FCFF => 062D 0649
+"\xEF\xB4\x80" => "\x{062D}\x{064A}",         # U+FD00 => 062D 064A
+"\xEF\xB4\x81" => "\x{062C}\x{0649}",         # U+FD01 => 062C 0649
+"\xEF\xB4\x82" => "\x{062C}\x{064A}",         # U+FD02 => 062C 064A
+"\xEF\xB4\x83" => "\x{062E}\x{0649}",         # U+FD03 => 062E 0649
+"\xEF\xB4\x84" => "\x{062E}\x{064A}",         # U+FD04 => 062E 064A
+"\xEF\xB4\x85" => "\x{0635}\x{0649}",         # U+FD05 => 0635 0649
+"\xEF\xB4\x86" => "\x{0635}\x{064A}",         # U+FD06 => 0635 064A
+"\xEF\xB4\x87" => "\x{0636}\x{0649}",         # U+FD07 => 0636 0649
+"\xEF\xB4\x88" => "\x{0636}\x{064A}",         # U+FD08 => 0636 064A
+"\xEF\xB4\x89" => "\x{0634}\x{062C}",         # U+FD09 => 0634 062C
+"\xEF\xB4\x8A" => "\x{0634}\x{062D}",         # U+FD0A => 0634 062D
+"\xEF\xB4\x8B" => "\x{0634}\x{062E}",         # U+FD0B => 0634 062E
+"\xEF\xB4\x8C" => "\x{0634}\x{0645}",         # U+FD0C => 0634 0645
+"\xEF\xB4\x8D" => "\x{0634}\x{0631}",         # U+FD0D => 0634 0631
+"\xEF\xB4\x8E" => "\x{0633}\x{0631}",         # U+FD0E => 0633 0631
+"\xEF\xB4\x8F" => "\x{0635}\x{0631}",         # U+FD0F => 0635 0631
+"\xEF\xB4\x90" => "\x{0636}\x{0631}",         # U+FD10 => 0636 0631
+"\xEF\xB4\x91" => "\x{0637}\x{0649}",         # U+FD11 => 0637 0649
+"\xEF\xB4\x92" => "\x{0637}\x{064A}",         # U+FD12 => 0637 064A
+"\xEF\xB4\x93" => "\x{0639}\x{0649}",         # U+FD13 => 0639 0649
+"\xEF\xB4\x94" => "\x{0639}\x{064A}",         # U+FD14 => 0639 064A
+"\xEF\xB4\x95" => "\x{063A}\x{0649}",         # U+FD15 => 063A 0649
+"\xEF\xB4\x96" => "\x{063A}\x{064A}",         # U+FD16 => 063A 064A
+"\xEF\xB4\x97" => "\x{0633}\x{0649}",         # U+FD17 => 0633 0649
+"\xEF\xB4\x98" => "\x{0633}\x{064A}",         # U+FD18 => 0633 064A
+"\xEF\xB4\x99" => "\x{0634}\x{0649}",         # U+FD19 => 0634 0649
+"\xEF\xB4\x9A" => "\x{0634}\x{064A}",         # U+FD1A => 0634 064A
+"\xEF\xB4\x9B" => "\x{062D}\x{0649}",         # U+FD1B => 062D 0649
+"\xEF\xB4\x9C" => "\x{062D}\x{064A}",         # U+FD1C => 062D 064A
+"\xEF\xB4\x9D" => "\x{062C}\x{0649}",         # U+FD1D => 062C 0649
+"\xEF\xB4\x9E" => "\x{062C}\x{064A}",         # U+FD1E => 062C 064A
+"\xEF\xB4\x9F" => "\x{062E}\x{0649}",         # U+FD1F => 062E 0649
+"\xEF\xB4\xA0" => "\x{062E}\x{064A}",         # U+FD20 => 062E 064A
+"\xEF\xB4\xA1" => "\x{0635}\x{0649}",         # U+FD21 => 0635 0649
+"\xEF\xB4\xA2" => "\x{0635}\x{064A}",         # U+FD22 => 0635 064A
+"\xEF\xB4\xA3" => "\x{0636}\x{0649}",         # U+FD23 => 0636 0649
+"\xEF\xB4\xA4" => "\x{0636}\x{064A}",         # U+FD24 => 0636 064A
+"\xEF\xB4\xA5" => "\x{0634}\x{062C}",         # U+FD25 => 0634 062C
+"\xEF\xB4\xA6" => "\x{0634}\x{062D}",         # U+FD26 => 0634 062D
+"\xEF\xB4\xA7" => "\x{0634}\x{062E}",         # U+FD27 => 0634 062E
+"\xEF\xB4\xA8" => "\x{0634}\x{0645}",         # U+FD28 => 0634 0645
+"\xEF\xB4\xA9" => "\x{0634}\x{0631}",         # U+FD29 => 0634 0631
+"\xEF\xB4\xAA" => "\x{0633}\x{0631}",         # U+FD2A => 0633 0631
+"\xEF\xB4\xAB" => "\x{0635}\x{0631}",         # U+FD2B => 0635 0631
+"\xEF\xB4\xAC" => "\x{0636}\x{0631}",         # U+FD2C => 0636 0631
+"\xEF\xB4\xAD" => "\x{0634}\x{062C}",         # U+FD2D => 0634 062C
+"\xEF\xB4\xAE" => "\x{0634}\x{062D}",         # U+FD2E => 0634 062D
+"\xEF\xB4\xAF" => "\x{0634}\x{062E}",         # U+FD2F => 0634 062E
+"\xEF\xB4\xB0" => "\x{0634}\x{0645}",         # U+FD30 => 0634 0645
+"\xEF\xB4\xB1" => "\x{0633}\x{0647}",         # U+FD31 => 0633 0647
+"\xEF\xB4\xB2" => "\x{0634}\x{0647}",         # U+FD32 => 0634 0647
+"\xEF\xB4\xB3" => "\x{0637}\x{0645}",         # U+FD33 => 0637 0645
+"\xEF\xB4\xB4" => "\x{0633}\x{062C}",         # U+FD34 => 0633 062C
+"\xEF\xB4\xB5" => "\x{0633}\x{062D}",         # U+FD35 => 0633 062D
+"\xEF\xB4\xB6" => "\x{0633}\x{062E}",         # U+FD36 => 0633 062E
+"\xEF\xB4\xB7" => "\x{0634}\x{062C}",         # U+FD37 => 0634 062C
+"\xEF\xB4\xB8" => "\x{0634}\x{062D}",         # U+FD38 => 0634 062D
+"\xEF\xB4\xB9" => "\x{0634}\x{062E}",         # U+FD39 => 0634 062E
+"\xEF\xB4\xBA" => "\x{0637}\x{0645}",         # U+FD3A => 0637 0645
+"\xEF\xB4\xBB" => "\x{0638}\x{0645}",         # U+FD3B => 0638 0645
+"\xEF\xB4\xBC" => "\x{0627}\x{064B}",         # U+FD3C => 0627 064B
+"\xEF\xB4\xBD" => "\x{0627}\x{064B}",         # U+FD3D => 0627 064B
+"\xEF\xB5\x90" => "\x{062A}\x{062C}\x{0645}", # U+FD50 => 062A 062C 0645
+"\xEF\xB5\x91" => "\x{062A}\x{062D}\x{062C}", # U+FD51 => 062A 062D 062C
+"\xEF\xB5\x92" => "\x{062A}\x{062D}\x{062C}", # U+FD52 => 062A 062D 062C
+"\xEF\xB5\x93" => "\x{062A}\x{062D}\x{0645}", # U+FD53 => 062A 062D 0645
+"\xEF\xB5\x94" => "\x{062A}\x{062E}\x{0645}", # U+FD54 => 062A 062E 0645
+"\xEF\xB5\x95" => "\x{062A}\x{0645}\x{062C}", # U+FD55 => 062A 0645 062C
+"\xEF\xB5\x96" => "\x{062A}\x{0645}\x{062D}", # U+FD56 => 062A 0645 062D
+"\xEF\xB5\x97" => "\x{062A}\x{0645}\x{062E}", # U+FD57 => 062A 0645 062E
+"\xEF\xB5\x98" => "\x{062C}\x{0645}\x{062D}", # U+FD58 => 062C 0645 062D
+"\xEF\xB5\x99" => "\x{062C}\x{0645}\x{062D}", # U+FD59 => 062C 0645 062D
+"\xEF\xB5\x9A" => "\x{062D}\x{0645}\x{064A}", # U+FD5A => 062D 0645 064A
+"\xEF\xB5\x9B" => "\x{062D}\x{0645}\x{0649}", # U+FD5B => 062D 0645 0649
+"\xEF\xB5\x9C" => "\x{0633}\x{062D}\x{062C}", # U+FD5C => 0633 062D 062C
+"\xEF\xB5\x9D" => "\x{0633}\x{062C}\x{062D}", # U+FD5D => 0633 062C 062D
+"\xEF\xB5\x9E" => "\x{0633}\x{062C}\x{0649}", # U+FD5E => 0633 062C 0649
+"\xEF\xB5\x9F" => "\x{0633}\x{0645}\x{062D}", # U+FD5F => 0633 0645 062D
+"\xEF\xB5\xA0" => "\x{0633}\x{0645}\x{062D}", # U+FD60 => 0633 0645 062D
+"\xEF\xB5\xA1" => "\x{0633}\x{0645}\x{062C}", # U+FD61 => 0633 0645 062C
+"\xEF\xB5\xA2" => "\x{0633}\x{0645}\x{0645}", # U+FD62 => 0633 0645 0645
+"\xEF\xB5\xA3" => "\x{0633}\x{0645}\x{0645}", # U+FD63 => 0633 0645 0645
+"\xEF\xB5\xA4" => "\x{0635}\x{062D}\x{062D}", # U+FD64 => 0635 062D 062D
+"\xEF\xB5\xA5" => "\x{0635}\x{062D}\x{062D}", # U+FD65 => 0635 062D 062D
+"\xEF\xB5\xA6" => "\x{0635}\x{0645}\x{0645}", # U+FD66 => 0635 0645 0645
+"\xEF\xB5\xA7" => "\x{0634}\x{062D}\x{0645}", # U+FD67 => 0634 062D 0645
+"\xEF\xB5\xA8" => "\x{0634}\x{062D}\x{0645}", # U+FD68 => 0634 062D 0645
+"\xEF\xB5\xA9" => "\x{0634}\x{062C}\x{064A}", # U+FD69 => 0634 062C 064A
+"\xEF\xB5\xAA" => "\x{0634}\x{0645}\x{062E}", # U+FD6A => 0634 0645 062E
+"\xEF\xB5\xAB" => "\x{0634}\x{0645}\x{062E}", # U+FD6B => 0634 0645 062E
+"\xEF\xB5\xAC" => "\x{0634}\x{0645}\x{0645}", # U+FD6C => 0634 0645 0645
+"\xEF\xB5\xAD" => "\x{0634}\x{0645}\x{0645}", # U+FD6D => 0634 0645 0645
+"\xEF\xB5\xAE" => "\x{0636}\x{062D}\x{0649}", # U+FD6E => 0636 062D 0649
+"\xEF\xB5\xAF" => "\x{0636}\x{062E}\x{0645}", # U+FD6F => 0636 062E 0645
+"\xEF\xB5\xB0" => "\x{0636}\x{062E}\x{0645}", # U+FD70 => 0636 062E 0645
+"\xEF\xB5\xB1" => "\x{0637}\x{0645}\x{062D}", # U+FD71 => 0637 0645 062D
+"\xEF\xB5\xB2" => "\x{0637}\x{0645}\x{062D}", # U+FD72 => 0637 0645 062D
+"\xEF\xB5\xB3" => "\x{0637}\x{0645}\x{0645}", # U+FD73 => 0637 0645 0645
+"\xEF\xB5\xB4" => "\x{0637}\x{0645}\x{064A}", # U+FD74 => 0637 0645 064A
+"\xEF\xB5\xB5" => "\x{0639}\x{062C}\x{0645}", # U+FD75 => 0639 062C 0645
+"\xEF\xB5\xB6" => "\x{0639}\x{0645}\x{0645}", # U+FD76 => 0639 0645 0645
+"\xEF\xB5\xB7" => "\x{0639}\x{0645}\x{0645}", # U+FD77 => 0639 0645 0645
+"\xEF\xB5\xB8" => "\x{0639}\x{0645}\x{0649}", # U+FD78 => 0639 0645 0649
+"\xEF\xB5\xB9" => "\x{063A}\x{0645}\x{0645}", # U+FD79 => 063A 0645 0645
+"\xEF\xB5\xBA" => "\x{063A}\x{0645}\x{064A}", # U+FD7A => 063A 0645 064A
+"\xEF\xB5\xBB" => "\x{063A}\x{0645}\x{0649}", # U+FD7B => 063A 0645 0649
+"\xEF\xB5\xBC" => "\x{0641}\x{062E}\x{0645}", # U+FD7C => 0641 062E 0645
+"\xEF\xB5\xBD" => "\x{0641}\x{062E}\x{0645}", # U+FD7D => 0641 062E 0645
+"\xEF\xB5\xBE" => "\x{0642}\x{0645}\x{062D}", # U+FD7E => 0642 0645 062D
+"\xEF\xB5\xBF" => "\x{0642}\x{0645}\x{0645}", # U+FD7F => 0642 0645 0645
+"\xEF\xB6\x80" => "\x{0644}\x{062D}\x{0645}", # U+FD80 => 0644 062D 0645
+"\xEF\xB6\x81" => "\x{0644}\x{062D}\x{064A}", # U+FD81 => 0644 062D 064A
+"\xEF\xB6\x82" => "\x{0644}\x{062D}\x{0649}", # U+FD82 => 0644 062D 0649
+"\xEF\xB6\x83" => "\x{0644}\x{062C}\x{062C}", # U+FD83 => 0644 062C 062C
+"\xEF\xB6\x84" => "\x{0644}\x{062C}\x{062C}", # U+FD84 => 0644 062C 062C
+"\xEF\xB6\x85" => "\x{0644}\x{062E}\x{0645}", # U+FD85 => 0644 062E 0645
+"\xEF\xB6\x86" => "\x{0644}\x{062E}\x{0645}", # U+FD86 => 0644 062E 0645
+"\xEF\xB6\x87" => "\x{0644}\x{0645}\x{062D}", # U+FD87 => 0644 0645 062D
+"\xEF\xB6\x88" => "\x{0644}\x{0645}\x{062D}", # U+FD88 => 0644 0645 062D
+"\xEF\xB6\x89" => "\x{0645}\x{062D}\x{062C}", # U+FD89 => 0645 062D 062C
+"\xEF\xB6\x8A" => "\x{0645}\x{062D}\x{0645}", # U+FD8A => 0645 062D 0645
+"\xEF\xB6\x8B" => "\x{0645}\x{062D}\x{064A}", # U+FD8B => 0645 062D 064A
+"\xEF\xB6\x8C" => "\x{0645}\x{062C}\x{062D}", # U+FD8C => 0645 062C 062D
+"\xEF\xB6\x8D" => "\x{0645}\x{062C}\x{0645}", # U+FD8D => 0645 062C 0645
+"\xEF\xB6\x8E" => "\x{0645}\x{062E}\x{062C}", # U+FD8E => 0645 062E 062C
+"\xEF\xB6\x8F" => "\x{0645}\x{062E}\x{0645}", # U+FD8F => 0645 062E 0645
+"\xEF\xB6\x92" => "\x{0645}\x{062C}\x{062E}", # U+FD92 => 0645 062C 062E
+"\xEF\xB6\x93" => "\x{0647}\x{0645}\x{062C}", # U+FD93 => 0647 0645 062C
+"\xEF\xB6\x94" => "\x{0647}\x{0645}\x{0645}", # U+FD94 => 0647 0645 0645
+"\xEF\xB6\x95" => "\x{0646}\x{062D}\x{0645}", # U+FD95 => 0646 062D 0645
+"\xEF\xB6\x96" => "\x{0646}\x{062D}\x{0649}", # U+FD96 => 0646 062D 0649
+"\xEF\xB6\x97" => "\x{0646}\x{062C}\x{0645}", # U+FD97 => 0646 062C 0645
+"\xEF\xB6\x98" => "\x{0646}\x{062C}\x{0645}", # U+FD98 => 0646 062C 0645
+"\xEF\xB6\x99" => "\x{0646}\x{062C}\x{0649}", # U+FD99 => 0646 062C 0649
+"\xEF\xB6\x9A" => "\x{0646}\x{0645}\x{064A}", # U+FD9A => 0646 0645 064A
+"\xEF\xB6\x9B" => "\x{0646}\x{0645}\x{0649}", # U+FD9B => 0646 0645 0649
+"\xEF\xB6\x9C" => "\x{064A}\x{0645}\x{0645}", # U+FD9C => 064A 0645 0645
+"\xEF\xB6\x9D" => "\x{064A}\x{0645}\x{0645}", # U+FD9D => 064A 0645 0645
+"\xEF\xB6\x9E" => "\x{0628}\x{062E}\x{064A}", # U+FD9E => 0628 062E 064A
+"\xEF\xB6\x9F" => "\x{062A}\x{062C}\x{064A}", # U+FD9F => 062A 062C 064A
+"\xEF\xB6\xA0" => "\x{062A}\x{062C}\x{0649}", # U+FDA0 => 062A 062C 0649
+"\xEF\xB6\xA1" => "\x{062A}\x{062E}\x{064A}", # U+FDA1 => 062A 062E 064A
+"\xEF\xB6\xA2" => "\x{062A}\x{062E}\x{0649}", # U+FDA2 => 062A 062E 0649
+"\xEF\xB6\xA3" => "\x{062A}\x{0645}\x{064A}", # U+FDA3 => 062A 0645 064A
+"\xEF\xB6\xA4" => "\x{062A}\x{0645}\x{0649}", # U+FDA4 => 062A 0645 0649
+"\xEF\xB6\xA5" => "\x{062C}\x{0645}\x{064A}", # U+FDA5 => 062C 0645 064A
+"\xEF\xB6\xA6" => "\x{062C}\x{062D}\x{0649}", # U+FDA6 => 062C 062D 0649
+"\xEF\xB6\xA7" => "\x{062C}\x{0645}\x{0649}", # U+FDA7 => 062C 0645 0649
+"\xEF\xB6\xA8" => "\x{0633}\x{062E}\x{0649}", # U+FDA8 => 0633 062E 0649
+"\xEF\xB6\xA9" => "\x{0635}\x{062D}\x{064A}", # U+FDA9 => 0635 062D 064A
+"\xEF\xB6\xAA" => "\x{0634}\x{062D}\x{064A}", # U+FDAA => 0634 062D 064A
+"\xEF\xB6\xAB" => "\x{0636}\x{062D}\x{064A}", # U+FDAB => 0636 062D 064A
+"\xEF\xB6\xAC" => "\x{0644}\x{062C}\x{064A}", # U+FDAC => 0644 062C 064A
+"\xEF\xB6\xAD" => "\x{0644}\x{0645}\x{064A}", # U+FDAD => 0644 0645 064A
+"\xEF\xB6\xAE" => "\x{064A}\x{062D}\x{064A}", # U+FDAE => 064A 062D 064A
+"\xEF\xB6\xAF" => "\x{064A}\x{062C}\x{064A}", # U+FDAF => 064A 062C 064A
+"\xEF\xB6\xB0" => "\x{064A}\x{0645}\x{064A}", # U+FDB0 => 064A 0645 064A
+"\xEF\xB6\xB1" => "\x{0645}\x{0645}\x{064A}", # U+FDB1 => 0645 0645 064A
+"\xEF\xB6\xB2" => "\x{0642}\x{0645}\x{064A}", # U+FDB2 => 0642 0645 064A
+"\xEF\xB6\xB3" => "\x{0646}\x{062D}\x{064A}", # U+FDB3 => 0646 062D 064A
+"\xEF\xB6\xB4" => "\x{0642}\x{0645}\x{062D}", # U+FDB4 => 0642 0645 062D
+"\xEF\xB6\xB5" => "\x{0644}\x{062D}\x{0645}", # U+FDB5 => 0644 062D 0645
+"\xEF\xB6\xB6" => "\x{0639}\x{0645}\x{064A}", # U+FDB6 => 0639 0645 064A
+"\xEF\xB6\xB7" => "\x{0643}\x{0645}\x{064A}", # U+FDB7 => 0643 0645 064A
+"\xEF\xB6\xB8" => "\x{0646}\x{062C}\x{062D}", # U+FDB8 => 0646 062C 062D
+"\xEF\xB6\xB9" => "\x{0645}\x{062E}\x{064A}", # U+FDB9 => 0645 062E 064A
+"\xEF\xB6\xBA" => "\x{0644}\x{062C}\x{0645}", # U+FDBA => 0644 062C 0645
+"\xEF\xB6\xBB" => "\x{0643}\x{0645}\x{0645}", # U+FDBB => 0643 0645 0645
+"\xEF\xB6\xBC" => "\x{0644}\x{062C}\x{0645}", # U+FDBC => 0644 062C 0645
+"\xEF\xB6\xBD" => "\x{0646}\x{062C}\x{062D}", # U+FDBD => 0646 062C 062D
+"\xEF\xB6\xBE" => "\x{062C}\x{062D}\x{064A}", # U+FDBE => 062C 062D 064A
+"\xEF\xB6\xBF" => "\x{062D}\x{062C}\x{064A}", # U+FDBF => 062D 062C 064A
+"\xEF\xB7\x80" => "\x{0645}\x{062C}\x{064A}", # U+FDC0 => 0645 062C 064A
+"\xEF\xB7\x81" => "\x{0641}\x{0645}\x{064A}", # U+FDC1 => 0641 0645 064A
+"\xEF\xB7\x82" => "\x{0628}\x{062D}\x{064A}", # U+FDC2 => 0628 062D 064A
+"\xEF\xB7\x83" => "\x{0643}\x{0645}\x{0645}", # U+FDC3 => 0643 0645 0645
+"\xEF\xB7\x84" => "\x{0639}\x{062C}\x{0645}", # U+FDC4 => 0639 062C 0645
+"\xEF\xB7\x85" => "\x{0635}\x{0645}\x{0645}", # U+FDC5 => 0635 0645 0645
+"\xEF\xB7\x86" => "\x{0633}\x{062E}\x{064A}", # U+FDC6 => 0633 062E 064A
+"\xEF\xB7\x87" => "\x{0646}\x{062C}\x{064A}", # U+FDC7 => 0646 062C 064A
+"\xEF\xB7\xB0" => "\x{0635}\x{0644}\x{06D2}", # U+FDF0 => 0635 0644 06D2
+"\xEF\xB7\xB1" => "\x{0642}\x{0644}\x{06D2}", # U+FDF1 => 0642 0644 06D2
+"\xEF\xB7\xB2" => "\x{0627}\x{0644}\x{0644}\x{0647}", # U+FDF2 => 0627 0644 0644 0647
+"\xEF\xB7\xB3" => "\x{0627}\x{0643}\x{0628}\x{0631}", # U+FDF3 => 0627 0643 0628 0631
+"\xEF\xB7\xB4" => "\x{0645}\x{062D}\x{0645}\x{062F}", # U+FDF4 => 0645 062D 0645 062F
+"\xEF\xB7\xB5" => "\x{0635}\x{0644}\x{0639}\x{0645}", # U+FDF5 => 0635 0644 0639 0645
+"\xEF\xB7\xB6" => "\x{0631}\x{0633}\x{0648}\x{0644}", # U+FDF6 => 0631 0633 0648 0644
+"\xEF\xB7\xB7" => "\x{0639}\x{0644}\x{064A}\x{0647}", # U+FDF7 => 0639 0644 064A 0647
+"\xEF\xB7\xB8" => "\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDF8 => 0648 0633 0644 0645
+"\xEF\xB7\xB9" => "\x{0635}\x{0644}\x{0649}", # U+FDF9 => 0635 0644 0649
+"\xEF\xB7\xBA" => "\x{0635}\x{0644}\x{0649}\x{0020}\x{0627}\x{0644}\x{0644}\x{0647}\x{0020}\x{0639}\x{0644}\x{064A}\x{0647}\x{0020}\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDFA => 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645
+"\xEF\xB7\xBB" => "\x{062C}\x{0644}\x{0020}\x{062C}\x{0644}\x{0627}\x{0644}\x{0647}", # U+FDFB => 062C 0644 0020 062C 0644 0627 0644 0647
+"\xEF\xB7\xBC" => "\x{0631}\x{06CC}\x{0627}\x{0644}", # U+FDFC => 0631 06CC 0627 0644
+"\xEF\xB8\x80" => "",                         # U+FE00 => 
+"\xEF\xB8\x81" => "",                         # U+FE01 => 
+"\xEF\xB8\x82" => "",                         # U+FE02 => 
+"\xEF\xB8\x83" => "",                         # U+FE03 => 
+"\xEF\xB8\x84" => "",                         # U+FE04 => 
+"\xEF\xB8\x85" => "",                         # U+FE05 => 
+"\xEF\xB8\x86" => "",                         # U+FE06 => 
+"\xEF\xB8\x87" => "",                         # U+FE07 => 
+"\xEF\xB8\x88" => "",                         # U+FE08 => 
+"\xEF\xB8\x89" => "",                         # U+FE09 => 
+"\xEF\xB8\x8A" => "",                         # U+FE0A => 
+"\xEF\xB8\x8B" => "",                         # U+FE0B => 
+"\xEF\xB8\x8C" => "",                         # U+FE0C => 
+"\xEF\xB8\x8D" => "",                         # U+FE0D => 
+"\xEF\xB8\x8E" => "",                         # U+FE0E => 
+"\xEF\xB8\x8F" => "",                         # U+FE0F => 
+"\xEF\xB8\x99" => "\x{002E}\x{002E}\x{002E}", # U+FE19 => 002E 002E 002E
+"\xEF\xB8\xB0" => "\x{002E}\x{002E}",         # U+FE30 => 002E 002E
+"\xEF\xB9\x89" => "\x{0020}\x{0305}",         # U+FE49 => 0020 0305
+"\xEF\xB9\x8A" => "\x{0020}\x{0305}",         # U+FE4A => 0020 0305
+"\xEF\xB9\x8B" => "\x{0020}\x{0305}",         # U+FE4B => 0020 0305
+"\xEF\xB9\x8C" => "\x{0020}\x{0305}",         # U+FE4C => 0020 0305
+"\xEF\xB9\xB0" => "\x{0020}\x{064B}",         # U+FE70 => 0020 064B
+"\xEF\xB9\xB1" => "\x{0640}\x{064B}",         # U+FE71 => 0640 064B
+"\xEF\xB9\xB2" => "\x{0020}\x{064C}",         # U+FE72 => 0020 064C
+"\xEF\xB9\xB4" => "\x{0020}\x{064D}",         # U+FE74 => 0020 064D
+"\xEF\xB9\xB6" => "\x{0020}\x{064E}",         # U+FE76 => 0020 064E
+"\xEF\xB9\xB7" => "\x{0640}\x{064E}",         # U+FE77 => 0640 064E
+"\xEF\xB9\xB8" => "\x{0020}\x{064F}",         # U+FE78 => 0020 064F
+"\xEF\xB9\xB9" => "\x{0640}\x{064F}",         # U+FE79 => 0640 064F
+"\xEF\xB9\xBA" => "\x{0020}\x{0650}",         # U+FE7A => 0020 0650
+"\xEF\xB9\xBB" => "\x{0640}\x{0650}",         # U+FE7B => 0640 0650
+"\xEF\xB9\xBC" => "\x{0020}\x{0651}",         # U+FE7C => 0020 0651
+"\xEF\xB9\xBD" => "\x{0640}\x{0651}",         # U+FE7D => 0640 0651
+"\xEF\xB9\xBE" => "\x{0020}\x{0652}",         # U+FE7E => 0020 0652
+"\xEF\xB9\xBF" => "\x{0640}\x{0652}",         # U+FE7F => 0640 0652
+"\xEF\xBB\xB5" => "\x{0644}\x{0622}",         # U+FEF5 => 0644 0622
+"\xEF\xBB\xB6" => "\x{0644}\x{0622}",         # U+FEF6 => 0644 0622
+"\xEF\xBB\xB7" => "\x{0644}\x{0623}",         # U+FEF7 => 0644 0623
+"\xEF\xBB\xB8" => "\x{0644}\x{0623}",         # U+FEF8 => 0644 0623
+"\xEF\xBB\xB9" => "\x{0644}\x{0625}",         # U+FEF9 => 0644 0625
+"\xEF\xBB\xBA" => "\x{0644}\x{0625}",         # U+FEFA => 0644 0625
+"\xEF\xBB\xBB" => "\x{0644}\x{0627}",         # U+FEFB => 0644 0627
+"\xEF\xBB\xBC" => "\x{0644}\x{0627}",         # U+FEFC => 0644 0627
+"\xEF\xBB\xBF" => "",                         # U+FEFF => 
+"\xEF\xBE\xA0" => "",                         # U+FFA0 => 
+"\xEF\xBF\xA3" => "\x{0020}\x{0304}",         # U+FFE3 => 0020 0304
+"\xEF\xBF\xB0" => "",                         # U+FFF0 => 
+"\xEF\xBF\xB1" => "",                         # U+FFF1 => 
+"\xEF\xBF\xB2" => "",                         # U+FFF2 => 
+"\xEF\xBF\xB3" => "",                         # U+FFF3 => 
+"\xEF\xBF\xB4" => "",                         # U+FFF4 => 
+"\xEF\xBF\xB5" => "",                         # U+FFF5 => 
+"\xEF\xBF\xB6" => "",                         # U+FFF6 => 
+"\xEF\xBF\xB7" => "",                         # U+FFF7 => 
+"\xEF\xBF\xB8" => "",                         # U+FFF8 => 
+"\xF0\x9B\xB2\xA0" => "",                     # U+1BCA0 => 
+"\xF0\x9B\xB2\xA1" => "",                     # U+1BCA1 => 
+"\xF0\x9B\xB2\xA2" => "",                     # U+1BCA2 => 
+"\xF0\x9B\xB2\xA3" => "",                     # U+1BCA3 => 
+"\xF0\x9D\x85\x9E" => "\x{1D157}\x{1D165}",   # U+1D15E => 1D157 1D165
+"\xF0\x9D\x85\x9F" => "\x{1D158}\x{1D165}",   # U+1D15F => 1D158 1D165
+"\xF0\x9D\x85\xA0" => "\x{1D158}\x{1D165}\x{1D16E}", # U+1D160 => 1D158 1D165 1D16E
+"\xF0\x9D\x85\xA1" => "\x{1D158}\x{1D165}\x{1D16F}", # U+1D161 => 1D158 1D165 1D16F
+"\xF0\x9D\x85\xA2" => "\x{1D158}\x{1D165}\x{1D170}", # U+1D162 => 1D158 1D165 1D170
+"\xF0\x9D\x85\xA3" => "\x{1D158}\x{1D165}\x{1D171}", # U+1D163 => 1D158 1D165 1D171
+"\xF0\x9D\x85\xA4" => "\x{1D158}\x{1D165}\x{1D172}", # U+1D164 => 1D158 1D165 1D172
+"\xF0\x9D\x85\xB3" => "",                     # U+1D173 => 
+"\xF0\x9D\x85\xB4" => "",                     # U+1D174 => 
+"\xF0\x9D\x85\xB5" => "",                     # U+1D175 => 
+"\xF0\x9D\x85\xB6" => "",                     # U+1D176 => 
+"\xF0\x9D\x85\xB7" => "",                     # U+1D177 => 
+"\xF0\x9D\x85\xB8" => "",                     # U+1D178 => 
+"\xF0\x9D\x85\xB9" => "",                     # U+1D179 => 
+"\xF0\x9D\x85\xBA" => "",                     # U+1D17A => 
+"\xF0\x9D\x86\xBB" => "\x{1D1B9}\x{1D165}",   # U+1D1BB => 1D1B9 1D165
+"\xF0\x9D\x86\xBC" => "\x{1D1BA}\x{1D165}",   # U+1D1BC => 1D1BA 1D165
+"\xF0\x9D\x86\xBD" => "\x{1D1B9}\x{1D165}\x{1D16E}", # U+1D1BD => 1D1B9 1D165 1D16E
+"\xF0\x9D\x86\xBE" => "\x{1D1BA}\x{1D165}\x{1D16E}", # U+1D1BE => 1D1BA 1D165 1D16E
+"\xF0\x9D\x86\xBF" => "\x{1D1B9}\x{1D165}\x{1D16F}", # U+1D1BF => 1D1B9 1D165 1D16F
+"\xF0\x9D\x87\x80" => "\x{1D1BA}\x{1D165}\x{1D16F}", # U+1D1C0 => 1D1BA 1D165 1D16F
+"\xF0\x9F\x84\x80" => "\x{0030}\x{002E}",     # U+1F100 => 0030 002E
+"\xF0\x9F\x84\x81" => "\x{0030}\x{002C}",     # U+1F101 => 0030 002C
+"\xF0\x9F\x84\x82" => "\x{0031}\x{002C}",     # U+1F102 => 0031 002C
+"\xF0\x9F\x84\x83" => "\x{0032}\x{002C}",     # U+1F103 => 0032 002C
+"\xF0\x9F\x84\x84" => "\x{0033}\x{002C}",     # U+1F104 => 0033 002C
+"\xF0\x9F\x84\x85" => "\x{0034}\x{002C}",     # U+1F105 => 0034 002C
+"\xF0\x9F\x84\x86" => "\x{0035}\x{002C}",     # U+1F106 => 0035 002C
+"\xF0\x9F\x84\x87" => "\x{0036}\x{002C}",     # U+1F107 => 0036 002C
+"\xF0\x9F\x84\x88" => "\x{0037}\x{002C}",     # U+1F108 => 0037 002C
+"\xF0\x9F\x84\x89" => "\x{0038}\x{002C}",     # U+1F109 => 0038 002C
+"\xF0\x9F\x84\x8A" => "\x{0039}\x{002C}",     # U+1F10A => 0039 002C
+"\xF0\x9F\x84\x90" => "\x{0028}\x{0061}\x{0029}", # U+1F110 => 0028 0061 0029
+"\xF0\x9F\x84\x91" => "\x{0028}\x{0062}\x{0029}", # U+1F111 => 0028 0062 0029
+"\xF0\x9F\x84\x92" => "\x{0028}\x{0063}\x{0029}", # U+1F112 => 0028 0063 0029
+"\xF0\x9F\x84\x93" => "\x{0028}\x{0064}\x{0029}", # U+1F113 => 0028 0064 0029
+"\xF0\x9F\x84\x94" => "\x{0028}\x{0065}\x{0029}", # U+1F114 => 0028 0065 0029
+"\xF0\x9F\x84\x95" => "\x{0028}\x{0066}\x{0029}", # U+1F115 => 0028 0066 0029
+"\xF0\x9F\x84\x96" => "\x{0028}\x{0067}\x{0029}", # U+1F116 => 0028 0067 0029
+"\xF0\x9F\x84\x97" => "\x{0028}\x{0068}\x{0029}", # U+1F117 => 0028 0068 0029
+"\xF0\x9F\x84\x98" => "\x{0028}\x{0069}\x{0029}", # U+1F118 => 0028 0069 0029
+"\xF0\x9F\x84\x99" => "\x{0028}\x{006A}\x{0029}", # U+1F119 => 0028 006A 0029
+"\xF0\x9F\x84\x9A" => "\x{0028}\x{006B}\x{0029}", # U+1F11A => 0028 006B 0029
+"\xF0\x9F\x84\x9B" => "\x{0028}\x{006C}\x{0029}", # U+1F11B => 0028 006C 0029
+"\xF0\x9F\x84\x9C" => "\x{0028}\x{006D}\x{0029}", # U+1F11C => 0028 006D 0029
+"\xF0\x9F\x84\x9D" => "\x{0028}\x{006E}\x{0029}", # U+1F11D => 0028 006E 0029
+"\xF0\x9F\x84\x9E" => "\x{0028}\x{006F}\x{0029}", # U+1F11E => 0028 006F 0029
+"\xF0\x9F\x84\x9F" => "\x{0028}\x{0070}\x{0029}", # U+1F11F => 0028 0070 0029
+"\xF0\x9F\x84\xA0" => "\x{0028}\x{0071}\x{0029}", # U+1F120 => 0028 0071 0029
+"\xF0\x9F\x84\xA1" => "\x{0028}\x{0072}\x{0029}", # U+1F121 => 0028 0072 0029
+"\xF0\x9F\x84\xA2" => "\x{0028}\x{0073}\x{0029}", # U+1F122 => 0028 0073 0029
+"\xF0\x9F\x84\xA3" => "\x{0028}\x{0074}\x{0029}", # U+1F123 => 0028 0074 0029
+"\xF0\x9F\x84\xA4" => "\x{0028}\x{0075}\x{0029}", # U+1F124 => 0028 0075 0029
+"\xF0\x9F\x84\xA5" => "\x{0028}\x{0076}\x{0029}", # U+1F125 => 0028 0076 0029
+"\xF0\x9F\x84\xA6" => "\x{0028}\x{0077}\x{0029}", # U+1F126 => 0028 0077 0029
+"\xF0\x9F\x84\xA7" => "\x{0028}\x{0078}\x{0029}", # U+1F127 => 0028 0078 0029
+"\xF0\x9F\x84\xA8" => "\x{0028}\x{0079}\x{0029}", # U+1F128 => 0028 0079 0029
+"\xF0\x9F\x84\xA9" => "\x{0028}\x{007A}\x{0029}", # U+1F129 => 0028 007A 0029
+"\xF0\x9F\x84\xAA" => "\x{3014}\x{0073}\x{3015}", # U+1F12A => 3014 0073 3015
+"\xF0\x9F\x84\xAD" => "\x{0063}\x{0064}",     # U+1F12D => 0063 0064
+"\xF0\x9F\x84\xAE" => "\x{0077}\x{007A}",     # U+1F12E => 0077 007A
+"\xF0\x9F\x85\x8A" => "\x{0068}\x{0076}",     # U+1F14A => 0068 0076
+"\xF0\x9F\x85\x8B" => "\x{006D}\x{0076}",     # U+1F14B => 006D 0076
+"\xF0\x9F\x85\x8C" => "\x{0073}\x{0064}",     # U+1F14C => 0073 0064
+"\xF0\x9F\x85\x8D" => "\x{0073}\x{0073}",     # U+1F14D => 0073 0073
+"\xF0\x9F\x85\x8E" => "\x{0070}\x{0070}\x{0076}", # U+1F14E => 0070 0070 0076
+"\xF0\x9F\x85\x8F" => "\x{0077}\x{0063}",     # U+1F14F => 0077 0063
+"\xF0\x9F\x85\xAA" => "\x{006D}\x{0063}",     # U+1F16A => 006D 0063
+"\xF0\x9F\x85\xAB" => "\x{006D}\x{0064}",     # U+1F16B => 006D 0064
+"\xF0\x9F\x86\x90" => "\x{0064}\x{006A}",     # U+1F190 => 0064 006A
+"\xF0\x9F\x88\x80" => "\x{307B}\x{304B}",     # U+1F200 => 307B 304B
+"\xF0\x9F\x88\x81" => "\x{30B3}\x{30B3}",     # U+1F201 => 30B3 30B3
+"\xF0\x9F\x89\x80" => "\x{3014}\x{672C}\x{3015}", # U+1F240 => 3014 672C 3015
+"\xF0\x9F\x89\x81" => "\x{3014}\x{4E09}\x{3015}", # U+1F241 => 3014 4E09 3015
+"\xF0\x9F\x89\x82" => "\x{3014}\x{4E8C}\x{3015}", # U+1F242 => 3014 4E8C 3015
+"\xF0\x9F\x89\x83" => "\x{3014}\x{5B89}\x{3015}", # U+1F243 => 3014 5B89 3015
+"\xF0\x9F\x89\x84" => "\x{3014}\x{70B9}\x{3015}", # U+1F244 => 3014 70B9 3015
+"\xF0\x9F\x89\x85" => "\x{3014}\x{6253}\x{3015}", # U+1F245 => 3014 6253 3015
+"\xF0\x9F\x89\x86" => "\x{3014}\x{76D7}\x{3015}", # U+1F246 => 3014 76D7 3015
+"\xF0\x9F\x89\x87" => "\x{3014}\x{52DD}\x{3015}", # U+1F247 => 3014 52DD 3015
+"\xF0\x9F\x89\x88" => "\x{3014}\x{6557}\x{3015}", # U+1F248 => 3014 6557 3015
+"\xF3\xA0\x80\x80" => "",                     # U+E0000 => 
+"\xF3\xA0\x80\x81" => "",                     # U+E0001 => 
+"\xF3\xA0\x80\x82" => "",                     # U+E0002 => 
+"\xF3\xA0\x80\x83" => "",                     # U+E0003 => 
+"\xF3\xA0\x80\x84" => "",                     # U+E0004 => 
+"\xF3\xA0\x80\x85" => "",                     # U+E0005 => 
+"\xF3\xA0\x80\x86" => "",                     # U+E0006 => 
+"\xF3\xA0\x80\x87" => "",                     # U+E0007 => 
+"\xF3\xA0\x80\x88" => "",                     # U+E0008 => 
+"\xF3\xA0\x80\x89" => "",                     # U+E0009 => 
+"\xF3\xA0\x80\x8A" => "",                     # U+E000A => 
+"\xF3\xA0\x80\x8B" => "",                     # U+E000B => 
+"\xF3\xA0\x80\x8C" => "",                     # U+E000C => 
+"\xF3\xA0\x80\x8D" => "",                     # U+E000D => 
+"\xF3\xA0\x80\x8E" => "",                     # U+E000E => 
+"\xF3\xA0\x80\x8F" => "",                     # U+E000F => 
+"\xF3\xA0\x80\x90" => "",                     # U+E0010 => 
+"\xF3\xA0\x80\x91" => "",                     # U+E0011 => 
+"\xF3\xA0\x80\x92" => "",                     # U+E0012 => 
+"\xF3\xA0\x80\x93" => "",                     # U+E0013 => 
+"\xF3\xA0\x80\x94" => "",                     # U+E0014 => 
+"\xF3\xA0\x80\x95" => "",                     # U+E0015 => 
+"\xF3\xA0\x80\x96" => "",                     # U+E0016 => 
+"\xF3\xA0\x80\x97" => "",                     # U+E0017 => 
+"\xF3\xA0\x80\x98" => "",                     # U+E0018 => 
+"\xF3\xA0\x80\x99" => "",                     # U+E0019 => 
+"\xF3\xA0\x80\x9A" => "",                     # U+E001A => 
+"\xF3\xA0\x80\x9B" => "",                     # U+E001B => 
+"\xF3\xA0\x80\x9C" => "",                     # U+E001C => 
+"\xF3\xA0\x80\x9D" => "",                     # U+E001D => 
+"\xF3\xA0\x80\x9E" => "",                     # U+E001E => 
+"\xF3\xA0\x80\x9F" => "",                     # U+E001F => 
+"\xF3\xA0\x80\xA0" => "",                     # U+E0020 => 
+"\xF3\xA0\x80\xA1" => "",                     # U+E0021 => 
+"\xF3\xA0\x80\xA2" => "",                     # U+E0022 => 
+"\xF3\xA0\x80\xA3" => "",                     # U+E0023 => 
+"\xF3\xA0\x80\xA4" => "",                     # U+E0024 => 
+"\xF3\xA0\x80\xA5" => "",                     # U+E0025 => 
+"\xF3\xA0\x80\xA6" => "",                     # U+E0026 => 
+"\xF3\xA0\x80\xA7" => "",                     # U+E0027 => 
+"\xF3\xA0\x80\xA8" => "",                     # U+E0028 => 
+"\xF3\xA0\x80\xA9" => "",                     # U+E0029 => 
+"\xF3\xA0\x80\xAA" => "",                     # U+E002A => 
+"\xF3\xA0\x80\xAB" => "",                     # U+E002B => 
+"\xF3\xA0\x80\xAC" => "",                     # U+E002C => 
+"\xF3\xA0\x80\xAD" => "",                     # U+E002D => 
+"\xF3\xA0\x80\xAE" => "",                     # U+E002E => 
+"\xF3\xA0\x80\xAF" => "",                     # U+E002F => 
+"\xF3\xA0\x80\xB0" => "",                     # U+E0030 => 
+"\xF3\xA0\x80\xB1" => "",                     # U+E0031 => 
+"\xF3\xA0\x80\xB2" => "",                     # U+E0032 => 
+"\xF3\xA0\x80\xB3" => "",                     # U+E0033 => 
+"\xF3\xA0\x80\xB4" => "",                     # U+E0034 => 
+"\xF3\xA0\x80\xB5" => "",                     # U+E0035 => 
+"\xF3\xA0\x80\xB6" => "",                     # U+E0036 => 
+"\xF3\xA0\x80\xB7" => "",                     # U+E0037 => 
+"\xF3\xA0\x80\xB8" => "",                     # U+E0038 => 
+"\xF3\xA0\x80\xB9" => "",                     # U+E0039 => 
+"\xF3\xA0\x80\xBA" => "",                     # U+E003A => 
+"\xF3\xA0\x80\xBB" => "",                     # U+E003B => 
+"\xF3\xA0\x80\xBC" => "",                     # U+E003C => 
+"\xF3\xA0\x80\xBD" => "",                     # U+E003D => 
+"\xF3\xA0\x80\xBE" => "",                     # U+E003E => 
+"\xF3\xA0\x80\xBF" => "",                     # U+E003F => 
+"\xF3\xA0\x81\x80" => "",                     # U+E0040 => 
+"\xF3\xA0\x81\x81" => "",                     # U+E0041 => 
+"\xF3\xA0\x81\x82" => "",                     # U+E0042 => 
+"\xF3\xA0\x81\x83" => "",                     # U+E0043 => 
+"\xF3\xA0\x81\x84" => "",                     # U+E0044 => 
+"\xF3\xA0\x81\x85" => "",                     # U+E0045 => 
+"\xF3\xA0\x81\x86" => "",                     # U+E0046 => 
+"\xF3\xA0\x81\x87" => "",                     # U+E0047 => 
+"\xF3\xA0\x81\x88" => "",                     # U+E0048 => 
+"\xF3\xA0\x81\x89" => "",                     # U+E0049 => 
+"\xF3\xA0\x81\x8A" => "",                     # U+E004A => 
+"\xF3\xA0\x81\x8B" => "",                     # U+E004B => 
+"\xF3\xA0\x81\x8C" => "",                     # U+E004C => 
+"\xF3\xA0\x81\x8D" => "",                     # U+E004D => 
+"\xF3\xA0\x81\x8E" => "",                     # U+E004E => 
+"\xF3\xA0\x81\x8F" => "",                     # U+E004F => 
+"\xF3\xA0\x81\x90" => "",                     # U+E0050 => 
+"\xF3\xA0\x81\x91" => "",                     # U+E0051 => 
+"\xF3\xA0\x81\x92" => "",                     # U+E0052 => 
+"\xF3\xA0\x81\x93" => "",                     # U+E0053 => 
+"\xF3\xA0\x81\x94" => "",                     # U+E0054 => 
+"\xF3\xA0\x81\x95" => "",                     # U+E0055 => 
+"\xF3\xA0\x81\x96" => "",                     # U+E0056 => 
+"\xF3\xA0\x81\x97" => "",                     # U+E0057 => 
+"\xF3\xA0\x81\x98" => "",                     # U+E0058 => 
+"\xF3\xA0\x81\x99" => "",                     # U+E0059 => 
+"\xF3\xA0\x81\x9A" => "",                     # U+E005A => 
+"\xF3\xA0\x81\x9B" => "",                     # U+E005B => 
+"\xF3\xA0\x81\x9C" => "",                     # U+E005C => 
+"\xF3\xA0\x81\x9D" => "",                     # U+E005D => 
+"\xF3\xA0\x81\x9E" => "",                     # U+E005E => 
+"\xF3\xA0\x81\x9F" => "",                     # U+E005F => 
+"\xF3\xA0\x81\xA0" => "",                     # U+E0060 => 
+"\xF3\xA0\x81\xA1" => "",                     # U+E0061 => 
+"\xF3\xA0\x81\xA2" => "",                     # U+E0062 => 
+"\xF3\xA0\x81\xA3" => "",                     # U+E0063 => 
+"\xF3\xA0\x81\xA4" => "",                     # U+E0064 => 
+"\xF3\xA0\x81\xA5" => "",                     # U+E0065 => 
+"\xF3\xA0\x81\xA6" => "",                     # U+E0066 => 
+"\xF3\xA0\x81\xA7" => "",                     # U+E0067 => 
+"\xF3\xA0\x81\xA8" => "",                     # U+E0068 => 
+"\xF3\xA0\x81\xA9" => "",                     # U+E0069 => 
+"\xF3\xA0\x81\xAA" => "",                     # U+E006A => 
+"\xF3\xA0\x81\xAB" => "",                     # U+E006B => 
+"\xF3\xA0\x81\xAC" => "",                     # U+E006C => 
+"\xF3\xA0\x81\xAD" => "",                     # U+E006D => 
+"\xF3\xA0\x81\xAE" => "",                     # U+E006E => 
+"\xF3\xA0\x81\xAF" => "",                     # U+E006F => 
+"\xF3\xA0\x81\xB0" => "",                     # U+E0070 => 
+"\xF3\xA0\x81\xB1" => "",                     # U+E0071 => 
+"\xF3\xA0\x81\xB2" => "",                     # U+E0072 => 
+"\xF3\xA0\x81\xB3" => "",                     # U+E0073 => 
+"\xF3\xA0\x81\xB4" => "",                     # U+E0074 => 
+"\xF3\xA0\x81\xB5" => "",                     # U+E0075 => 
+"\xF3\xA0\x81\xB6" => "",                     # U+E0076 => 
+"\xF3\xA0\x81\xB7" => "",                     # U+E0077 => 
+"\xF3\xA0\x81\xB8" => "",                     # U+E0078 => 
+"\xF3\xA0\x81\xB9" => "",                     # U+E0079 => 
+"\xF3\xA0\x81\xBA" => "",                     # U+E007A => 
+"\xF3\xA0\x81\xBB" => "",                     # U+E007B => 
+"\xF3\xA0\x81\xBC" => "",                     # U+E007C => 
+"\xF3\xA0\x81\xBD" => "",                     # U+E007D => 
+"\xF3\xA0\x81\xBE" => "",                     # U+E007E => 
+"\xF3\xA0\x81\xBF" => "",                     # U+E007F => 
+"\xF3\xA0\x82\x80" => "",                     # U+E0080 => 
+"\xF3\xA0\x82\x81" => "",                     # U+E0081 => 
+"\xF3\xA0\x82\x82" => "",                     # U+E0082 => 
+"\xF3\xA0\x82\x83" => "",                     # U+E0083 => 
+"\xF3\xA0\x82\x84" => "",                     # U+E0084 => 
+"\xF3\xA0\x82\x85" => "",                     # U+E0085 => 
+"\xF3\xA0\x82\x86" => "",                     # U+E0086 => 
+"\xF3\xA0\x82\x87" => "",                     # U+E0087 => 
+"\xF3\xA0\x82\x88" => "",                     # U+E0088 => 
+"\xF3\xA0\x82\x89" => "",                     # U+E0089 => 
+"\xF3\xA0\x82\x8A" => "",                     # U+E008A => 
+"\xF3\xA0\x82\x8B" => "",                     # U+E008B => 
+"\xF3\xA0\x82\x8C" => "",                     # U+E008C => 
+"\xF3\xA0\x82\x8D" => "",                     # U+E008D => 
+"\xF3\xA0\x82\x8E" => "",                     # U+E008E => 
+"\xF3\xA0\x82\x8F" => "",                     # U+E008F => 
+"\xF3\xA0\x82\x90" => "",                     # U+E0090 => 
+"\xF3\xA0\x82\x91" => "",                     # U+E0091 => 
+"\xF3\xA0\x82\x92" => "",                     # U+E0092 => 
+"\xF3\xA0\x82\x93" => "",                     # U+E0093 => 
+"\xF3\xA0\x82\x94" => "",                     # U+E0094 => 
+"\xF3\xA0\x82\x95" => "",                     # U+E0095 => 
+"\xF3\xA0\x82\x96" => "",                     # U+E0096 => 
+"\xF3\xA0\x82\x97" => "",                     # U+E0097 => 
+"\xF3\xA0\x82\x98" => "",                     # U+E0098 => 
+"\xF3\xA0\x82\x99" => "",                     # U+E0099 => 
+"\xF3\xA0\x82\x9A" => "",                     # U+E009A => 
+"\xF3\xA0\x82\x9B" => "",                     # U+E009B => 
+"\xF3\xA0\x82\x9C" => "",                     # U+E009C => 
+"\xF3\xA0\x82\x9D" => "",                     # U+E009D => 
+"\xF3\xA0\x82\x9E" => "",                     # U+E009E => 
+"\xF3\xA0\x82\x9F" => "",                     # U+E009F => 
+"\xF3\xA0\x82\xA0" => "",                     # U+E00A0 => 
+"\xF3\xA0\x82\xA1" => "",                     # U+E00A1 => 
+"\xF3\xA0\x82\xA2" => "",                     # U+E00A2 => 
+"\xF3\xA0\x82\xA3" => "",                     # U+E00A3 => 
+"\xF3\xA0\x82\xA4" => "",                     # U+E00A4 => 
+"\xF3\xA0\x82\xA5" => "",                     # U+E00A5 => 
+"\xF3\xA0\x82\xA6" => "",                     # U+E00A6 => 
+"\xF3\xA0\x82\xA7" => "",                     # U+E00A7 => 
+"\xF3\xA0\x82\xA8" => "",                     # U+E00A8 => 
+"\xF3\xA0\x82\xA9" => "",                     # U+E00A9 => 
+"\xF3\xA0\x82\xAA" => "",                     # U+E00AA => 
+"\xF3\xA0\x82\xAB" => "",                     # U+E00AB => 
+"\xF3\xA0\x82\xAC" => "",                     # U+E00AC => 
+"\xF3\xA0\x82\xAD" => "",                     # U+E00AD => 
+"\xF3\xA0\x82\xAE" => "",                     # U+E00AE => 
+"\xF3\xA0\x82\xAF" => "",                     # U+E00AF => 
+"\xF3\xA0\x82\xB0" => "",                     # U+E00B0 => 
+"\xF3\xA0\x82\xB1" => "",                     # U+E00B1 => 
+"\xF3\xA0\x82\xB2" => "",                     # U+E00B2 => 
+"\xF3\xA0\x82\xB3" => "",                     # U+E00B3 => 
+"\xF3\xA0\x82\xB4" => "",                     # U+E00B4 => 
+"\xF3\xA0\x82\xB5" => "",                     # U+E00B5 => 
+"\xF3\xA0\x82\xB6" => "",                     # U+E00B6 => 
+"\xF3\xA0\x82\xB7" => "",                     # U+E00B7 => 
+"\xF3\xA0\x82\xB8" => "",                     # U+E00B8 => 
+"\xF3\xA0\x82\xB9" => "",                     # U+E00B9 => 
+"\xF3\xA0\x82\xBA" => "",                     # U+E00BA => 
+"\xF3\xA0\x82\xBB" => "",                     # U+E00BB => 
+"\xF3\xA0\x82\xBC" => "",                     # U+E00BC => 
+"\xF3\xA0\x82\xBD" => "",                     # U+E00BD => 
+"\xF3\xA0\x82\xBE" => "",                     # U+E00BE => 
+"\xF3\xA0\x82\xBF" => "",                     # U+E00BF => 
+"\xF3\xA0\x83\x80" => "",                     # U+E00C0 => 
+"\xF3\xA0\x83\x81" => "",                     # U+E00C1 => 
+"\xF3\xA0\x83\x82" => "",                     # U+E00C2 => 
+"\xF3\xA0\x83\x83" => "",                     # U+E00C3 => 
+"\xF3\xA0\x83\x84" => "",                     # U+E00C4 => 
+"\xF3\xA0\x83\x85" => "",                     # U+E00C5 => 
+"\xF3\xA0\x83\x86" => "",                     # U+E00C6 => 
+"\xF3\xA0\x83\x87" => "",                     # U+E00C7 => 
+"\xF3\xA0\x83\x88" => "",                     # U+E00C8 => 
+"\xF3\xA0\x83\x89" => "",                     # U+E00C9 => 
+"\xF3\xA0\x83\x8A" => "",                     # U+E00CA => 
+"\xF3\xA0\x83\x8B" => "",                     # U+E00CB => 
+"\xF3\xA0\x83\x8C" => "",                     # U+E00CC => 
+"\xF3\xA0\x83\x8D" => "",                     # U+E00CD => 
+"\xF3\xA0\x83\x8E" => "",                     # U+E00CE => 
+"\xF3\xA0\x83\x8F" => "",                     # U+E00CF => 
+"\xF3\xA0\x83\x90" => "",                     # U+E00D0 => 
+"\xF3\xA0\x83\x91" => "",                     # U+E00D1 => 
+"\xF3\xA0\x83\x92" => "",                     # U+E00D2 => 
+"\xF3\xA0\x83\x93" => "",                     # U+E00D3 => 
+"\xF3\xA0\x83\x94" => "",                     # U+E00D4 => 
+"\xF3\xA0\x83\x95" => "",                     # U+E00D5 => 
+"\xF3\xA0\x83\x96" => "",                     # U+E00D6 => 
+"\xF3\xA0\x83\x97" => "",                     # U+E00D7 => 
+"\xF3\xA0\x83\x98" => "",                     # U+E00D8 => 
+"\xF3\xA0\x83\x99" => "",                     # U+E00D9 => 
+"\xF3\xA0\x83\x9A" => "",                     # U+E00DA => 
+"\xF3\xA0\x83\x9B" => "",                     # U+E00DB => 
+"\xF3\xA0\x83\x9C" => "",                     # U+E00DC => 
+"\xF3\xA0\x83\x9D" => "",                     # U+E00DD => 
+"\xF3\xA0\x83\x9E" => "",                     # U+E00DE => 
+"\xF3\xA0\x83\x9F" => "",                     # U+E00DF => 
+"\xF3\xA0\x83\xA0" => "",                     # U+E00E0 => 
+"\xF3\xA0\x83\xA1" => "",                     # U+E00E1 => 
+"\xF3\xA0\x83\xA2" => "",                     # U+E00E2 => 
+"\xF3\xA0\x83\xA3" => "",                     # U+E00E3 => 
+"\xF3\xA0\x83\xA4" => "",                     # U+E00E4 => 
+"\xF3\xA0\x83\xA5" => "",                     # U+E00E5 => 
+"\xF3\xA0\x83\xA6" => "",                     # U+E00E6 => 
+"\xF3\xA0\x83\xA7" => "",                     # U+E00E7 => 
+"\xF3\xA0\x83\xA8" => "",                     # U+E00E8 => 
+"\xF3\xA0\x83\xA9" => "",                     # U+E00E9 => 
+"\xF3\xA0\x83\xAA" => "",                     # U+E00EA => 
+"\xF3\xA0\x83\xAB" => "",                     # U+E00EB => 
+"\xF3\xA0\x83\xAC" => "",                     # U+E00EC => 
+"\xF3\xA0\x83\xAD" => "",                     # U+E00ED => 
+"\xF3\xA0\x83\xAE" => "",                     # U+E00EE => 
+"\xF3\xA0\x83\xAF" => "",                     # U+E00EF => 
+"\xF3\xA0\x83\xB0" => "",                     # U+E00F0 => 
+"\xF3\xA0\x83\xB1" => "",                     # U+E00F1 => 
+"\xF3\xA0\x83\xB2" => "",                     # U+E00F2 => 
+"\xF3\xA0\x83\xB3" => "",                     # U+E00F3 => 
+"\xF3\xA0\x83\xB4" => "",                     # U+E00F4 => 
+"\xF3\xA0\x83\xB5" => "",                     # U+E00F5 => 
+"\xF3\xA0\x83\xB6" => "",                     # U+E00F6 => 
+"\xF3\xA0\x83\xB7" => "",                     # U+E00F7 => 
+"\xF3\xA0\x83\xB8" => "",                     # U+E00F8 => 
+"\xF3\xA0\x83\xB9" => "",                     # U+E00F9 => 
+"\xF3\xA0\x83\xBA" => "",                     # U+E00FA => 
+"\xF3\xA0\x83\xBB" => "",                     # U+E00FB => 
+"\xF3\xA0\x83\xBC" => "",                     # U+E00FC => 
+"\xF3\xA0\x83\xBD" => "",                     # U+E00FD => 
+"\xF3\xA0\x83\xBE" => "",                     # U+E00FE => 
+"\xF3\xA0\x83\xBF" => "",                     # U+E00FF => 
+"\xF3\xA0\x84\x80" => "",                     # U+E0100 => 
+"\xF3\xA0\x84\x81" => "",                     # U+E0101 => 
+"\xF3\xA0\x84\x82" => "",                     # U+E0102 => 
+"\xF3\xA0\x84\x83" => "",                     # U+E0103 => 
+"\xF3\xA0\x84\x84" => "",                     # U+E0104 => 
+"\xF3\xA0\x84\x85" => "",                     # U+E0105 => 
+"\xF3\xA0\x84\x86" => "",                     # U+E0106 => 
+"\xF3\xA0\x84\x87" => "",                     # U+E0107 => 
+"\xF3\xA0\x84\x88" => "",                     # U+E0108 => 
+"\xF3\xA0\x84\x89" => "",                     # U+E0109 => 
+"\xF3\xA0\x84\x8A" => "",                     # U+E010A => 
+"\xF3\xA0\x84\x8B" => "",                     # U+E010B => 
+"\xF3\xA0\x84\x8C" => "",                     # U+E010C => 
+"\xF3\xA0\x84\x8D" => "",                     # U+E010D => 
+"\xF3\xA0\x84\x8E" => "",                     # U+E010E => 
+"\xF3\xA0\x84\x8F" => "",                     # U+E010F => 
+"\xF3\xA0\x84\x90" => "",                     # U+E0110 => 
+"\xF3\xA0\x84\x91" => "",                     # U+E0111 => 
+"\xF3\xA0\x84\x92" => "",                     # U+E0112 => 
+"\xF3\xA0\x84\x93" => "",                     # U+E0113 => 
+"\xF3\xA0\x84\x94" => "",                     # U+E0114 => 
+"\xF3\xA0\x84\x95" => "",                     # U+E0115 => 
+"\xF3\xA0\x84\x96" => "",                     # U+E0116 => 
+"\xF3\xA0\x84\x97" => "",                     # U+E0117 => 
+"\xF3\xA0\x84\x98" => "",                     # U+E0118 => 
+"\xF3\xA0\x84\x99" => "",                     # U+E0119 => 
+"\xF3\xA0\x84\x9A" => "",                     # U+E011A => 
+"\xF3\xA0\x84\x9B" => "",                     # U+E011B => 
+"\xF3\xA0\x84\x9C" => "",                     # U+E011C => 
+"\xF3\xA0\x84\x9D" => "",                     # U+E011D => 
+"\xF3\xA0\x84\x9E" => "",                     # U+E011E => 
+"\xF3\xA0\x84\x9F" => "",                     # U+E011F => 
+"\xF3\xA0\x84\xA0" => "",                     # U+E0120 => 
+"\xF3\xA0\x84\xA1" => "",                     # U+E0121 => 
+"\xF3\xA0\x84\xA2" => "",                     # U+E0122 => 
+"\xF3\xA0\x84\xA3" => "",                     # U+E0123 => 
+"\xF3\xA0\x84\xA4" => "",                     # U+E0124 => 
+"\xF3\xA0\x84\xA5" => "",                     # U+E0125 => 
+"\xF3\xA0\x84\xA6" => "",                     # U+E0126 => 
+"\xF3\xA0\x84\xA7" => "",                     # U+E0127 => 
+"\xF3\xA0\x84\xA8" => "",                     # U+E0128 => 
+"\xF3\xA0\x84\xA9" => "",                     # U+E0129 => 
+"\xF3\xA0\x84\xAA" => "",                     # U+E012A => 
+"\xF3\xA0\x84\xAB" => "",                     # U+E012B => 
+"\xF3\xA0\x84\xAC" => "",                     # U+E012C => 
+"\xF3\xA0\x84\xAD" => "",                     # U+E012D => 
+"\xF3\xA0\x84\xAE" => "",                     # U+E012E => 
+"\xF3\xA0\x84\xAF" => "",                     # U+E012F => 
+"\xF3\xA0\x84\xB0" => "",                     # U+E0130 => 
+"\xF3\xA0\x84\xB1" => "",                     # U+E0131 => 
+"\xF3\xA0\x84\xB2" => "",                     # U+E0132 => 
+"\xF3\xA0\x84\xB3" => "",                     # U+E0133 => 
+"\xF3\xA0\x84\xB4" => "",                     # U+E0134 => 
+"\xF3\xA0\x84\xB5" => "",                     # U+E0135 => 
+"\xF3\xA0\x84\xB6" => "",                     # U+E0136 => 
+"\xF3\xA0\x84\xB7" => "",                     # U+E0137 => 
+"\xF3\xA0\x84\xB8" => "",                     # U+E0138 => 
+"\xF3\xA0\x84\xB9" => "",                     # U+E0139 => 
+"\xF3\xA0\x84\xBA" => "",                     # U+E013A => 
+"\xF3\xA0\x84\xBB" => "",                     # U+E013B => 
+"\xF3\xA0\x84\xBC" => "",                     # U+E013C => 
+"\xF3\xA0\x84\xBD" => "",                     # U+E013D => 
+"\xF3\xA0\x84\xBE" => "",                     # U+E013E => 
+"\xF3\xA0\x84\xBF" => "",                     # U+E013F => 
+"\xF3\xA0\x85\x80" => "",                     # U+E0140 => 
+"\xF3\xA0\x85\x81" => "",                     # U+E0141 => 
+"\xF3\xA0\x85\x82" => "",                     # U+E0142 => 
+"\xF3\xA0\x85\x83" => "",                     # U+E0143 => 
+"\xF3\xA0\x85\x84" => "",                     # U+E0144 => 
+"\xF3\xA0\x85\x85" => "",                     # U+E0145 => 
+"\xF3\xA0\x85\x86" => "",                     # U+E0146 => 
+"\xF3\xA0\x85\x87" => "",                     # U+E0147 => 
+"\xF3\xA0\x85\x88" => "",                     # U+E0148 => 
+"\xF3\xA0\x85\x89" => "",                     # U+E0149 => 
+"\xF3\xA0\x85\x8A" => "",                     # U+E014A => 
+"\xF3\xA0\x85\x8B" => "",                     # U+E014B => 
+"\xF3\xA0\x85\x8C" => "",                     # U+E014C => 
+"\xF3\xA0\x85\x8D" => "",                     # U+E014D => 
+"\xF3\xA0\x85\x8E" => "",                     # U+E014E => 
+"\xF3\xA0\x85\x8F" => "",                     # U+E014F => 
+"\xF3\xA0\x85\x90" => "",                     # U+E0150 => 
+"\xF3\xA0\x85\x91" => "",                     # U+E0151 => 
+"\xF3\xA0\x85\x92" => "",                     # U+E0152 => 
+"\xF3\xA0\x85\x93" => "",                     # U+E0153 => 
+"\xF3\xA0\x85\x94" => "",                     # U+E0154 => 
+"\xF3\xA0\x85\x95" => "",                     # U+E0155 => 
+"\xF3\xA0\x85\x96" => "",                     # U+E0156 => 
+"\xF3\xA0\x85\x97" => "",                     # U+E0157 => 
+"\xF3\xA0\x85\x98" => "",                     # U+E0158 => 
+"\xF3\xA0\x85\x99" => "",                     # U+E0159 => 
+"\xF3\xA0\x85\x9A" => "",                     # U+E015A => 
+"\xF3\xA0\x85\x9B" => "",                     # U+E015B => 
+"\xF3\xA0\x85\x9C" => "",                     # U+E015C => 
+"\xF3\xA0\x85\x9D" => "",                     # U+E015D => 
+"\xF3\xA0\x85\x9E" => "",                     # U+E015E => 
+"\xF3\xA0\x85\x9F" => "",                     # U+E015F => 
+"\xF3\xA0\x85\xA0" => "",                     # U+E0160 => 
+"\xF3\xA0\x85\xA1" => "",                     # U+E0161 => 
+"\xF3\xA0\x85\xA2" => "",                     # U+E0162 => 
+"\xF3\xA0\x85\xA3" => "",                     # U+E0163 => 
+"\xF3\xA0\x85\xA4" => "",                     # U+E0164 => 
+"\xF3\xA0\x85\xA5" => "",                     # U+E0165 => 
+"\xF3\xA0\x85\xA6" => "",                     # U+E0166 => 
+"\xF3\xA0\x85\xA7" => "",                     # U+E0167 => 
+"\xF3\xA0\x85\xA8" => "",                     # U+E0168 => 
+"\xF3\xA0\x85\xA9" => "",                     # U+E0169 => 
+"\xF3\xA0\x85\xAA" => "",                     # U+E016A => 
+"\xF3\xA0\x85\xAB" => "",                     # U+E016B => 
+"\xF3\xA0\x85\xAC" => "",                     # U+E016C => 
+"\xF3\xA0\x85\xAD" => "",                     # U+E016D => 
+"\xF3\xA0\x85\xAE" => "",                     # U+E016E => 
+"\xF3\xA0\x85\xAF" => "",                     # U+E016F => 
+"\xF3\xA0\x85\xB0" => "",                     # U+E0170 => 
+"\xF3\xA0\x85\xB1" => "",                     # U+E0171 => 
+"\xF3\xA0\x85\xB2" => "",                     # U+E0172 => 
+"\xF3\xA0\x85\xB3" => "",                     # U+E0173 => 
+"\xF3\xA0\x85\xB4" => "",                     # U+E0174 => 
+"\xF3\xA0\x85\xB5" => "",                     # U+E0175 => 
+"\xF3\xA0\x85\xB6" => "",                     # U+E0176 => 
+"\xF3\xA0\x85\xB7" => "",                     # U+E0177 => 
+"\xF3\xA0\x85\xB8" => "",                     # U+E0178 => 
+"\xF3\xA0\x85\xB9" => "",                     # U+E0179 => 
+"\xF3\xA0\x85\xBA" => "",                     # U+E017A => 
+"\xF3\xA0\x85\xBB" => "",                     # U+E017B => 
+"\xF3\xA0\x85\xBC" => "",                     # U+E017C => 
+"\xF3\xA0\x85\xBD" => "",                     # U+E017D => 
+"\xF3\xA0\x85\xBE" => "",                     # U+E017E => 
+"\xF3\xA0\x85\xBF" => "",                     # U+E017F => 
+"\xF3\xA0\x86\x80" => "",                     # U+E0180 => 
+"\xF3\xA0\x86\x81" => "",                     # U+E0181 => 
+"\xF3\xA0\x86\x82" => "",                     # U+E0182 => 
+"\xF3\xA0\x86\x83" => "",                     # U+E0183 => 
+"\xF3\xA0\x86\x84" => "",                     # U+E0184 => 
+"\xF3\xA0\x86\x85" => "",                     # U+E0185 => 
+"\xF3\xA0\x86\x86" => "",                     # U+E0186 => 
+"\xF3\xA0\x86\x87" => "",                     # U+E0187 => 
+"\xF3\xA0\x86\x88" => "",                     # U+E0188 => 
+"\xF3\xA0\x86\x89" => "",                     # U+E0189 => 
+"\xF3\xA0\x86\x8A" => "",                     # U+E018A => 
+"\xF3\xA0\x86\x8B" => "",                     # U+E018B => 
+"\xF3\xA0\x86\x8C" => "",                     # U+E018C => 
+"\xF3\xA0\x86\x8D" => "",                     # U+E018D => 
+"\xF3\xA0\x86\x8E" => "",                     # U+E018E => 
+"\xF3\xA0\x86\x8F" => "",                     # U+E018F => 
+"\xF3\xA0\x86\x90" => "",                     # U+E0190 => 
+"\xF3\xA0\x86\x91" => "",                     # U+E0191 => 
+"\xF3\xA0\x86\x92" => "",                     # U+E0192 => 
+"\xF3\xA0\x86\x93" => "",                     # U+E0193 => 
+"\xF3\xA0\x86\x94" => "",                     # U+E0194 => 
+"\xF3\xA0\x86\x95" => "",                     # U+E0195 => 
+"\xF3\xA0\x86\x96" => "",                     # U+E0196 => 
+"\xF3\xA0\x86\x97" => "",                     # U+E0197 => 
+"\xF3\xA0\x86\x98" => "",                     # U+E0198 => 
+"\xF3\xA0\x86\x99" => "",                     # U+E0199 => 
+"\xF3\xA0\x86\x9A" => "",                     # U+E019A => 
+"\xF3\xA0\x86\x9B" => "",                     # U+E019B => 
+"\xF3\xA0\x86\x9C" => "",                     # U+E019C => 
+"\xF3\xA0\x86\x9D" => "",                     # U+E019D => 
+"\xF3\xA0\x86\x9E" => "",                     # U+E019E => 
+"\xF3\xA0\x86\x9F" => "",                     # U+E019F => 
+"\xF3\xA0\x86\xA0" => "",                     # U+E01A0 => 
+"\xF3\xA0\x86\xA1" => "",                     # U+E01A1 => 
+"\xF3\xA0\x86\xA2" => "",                     # U+E01A2 => 
+"\xF3\xA0\x86\xA3" => "",                     # U+E01A3 => 
+"\xF3\xA0\x86\xA4" => "",                     # U+E01A4 => 
+"\xF3\xA0\x86\xA5" => "",                     # U+E01A5 => 
+"\xF3\xA0\x86\xA6" => "",                     # U+E01A6 => 
+"\xF3\xA0\x86\xA7" => "",                     # U+E01A7 => 
+"\xF3\xA0\x86\xA8" => "",                     # U+E01A8 => 
+"\xF3\xA0\x86\xA9" => "",                     # U+E01A9 => 
+"\xF3\xA0\x86\xAA" => "",                     # U+E01AA => 
+"\xF3\xA0\x86\xAB" => "",                     # U+E01AB => 
+"\xF3\xA0\x86\xAC" => "",                     # U+E01AC => 
+"\xF3\xA0\x86\xAD" => "",                     # U+E01AD => 
+"\xF3\xA0\x86\xAE" => "",                     # U+E01AE => 
+"\xF3\xA0\x86\xAF" => "",                     # U+E01AF => 
+"\xF3\xA0\x86\xB0" => "",                     # U+E01B0 => 
+"\xF3\xA0\x86\xB1" => "",                     # U+E01B1 => 
+"\xF3\xA0\x86\xB2" => "",                     # U+E01B2 => 
+"\xF3\xA0\x86\xB3" => "",                     # U+E01B3 => 
+"\xF3\xA0\x86\xB4" => "",                     # U+E01B4 => 
+"\xF3\xA0\x86\xB5" => "",                     # U+E01B5 => 
+"\xF3\xA0\x86\xB6" => "",                     # U+E01B6 => 
+"\xF3\xA0\x86\xB7" => "",                     # U+E01B7 => 
+"\xF3\xA0\x86\xB8" => "",                     # U+E01B8 => 
+"\xF3\xA0\x86\xB9" => "",                     # U+E01B9 => 
+"\xF3\xA0\x86\xBA" => "",                     # U+E01BA => 
+"\xF3\xA0\x86\xBB" => "",                     # U+E01BB => 
+"\xF3\xA0\x86\xBC" => "",                     # U+E01BC => 
+"\xF3\xA0\x86\xBD" => "",                     # U+E01BD => 
+"\xF3\xA0\x86\xBE" => "",                     # U+E01BE => 
+"\xF3\xA0\x86\xBF" => "",                     # U+E01BF => 
+"\xF3\xA0\x87\x80" => "",                     # U+E01C0 => 
+"\xF3\xA0\x87\x81" => "",                     # U+E01C1 => 
+"\xF3\xA0\x87\x82" => "",                     # U+E01C2 => 
+"\xF3\xA0\x87\x83" => "",                     # U+E01C3 => 
+"\xF3\xA0\x87\x84" => "",                     # U+E01C4 => 
+"\xF3\xA0\x87\x85" => "",                     # U+E01C5 => 
+"\xF3\xA0\x87\x86" => "",                     # U+E01C6 => 
+"\xF3\xA0\x87\x87" => "",                     # U+E01C7 => 
+"\xF3\xA0\x87\x88" => "",                     # U+E01C8 => 
+"\xF3\xA0\x87\x89" => "",                     # U+E01C9 => 
+"\xF3\xA0\x87\x8A" => "",                     # U+E01CA => 
+"\xF3\xA0\x87\x8B" => "",                     # U+E01CB => 
+"\xF3\xA0\x87\x8C" => "",                     # U+E01CC => 
+"\xF3\xA0\x87\x8D" => "",                     # U+E01CD => 
+"\xF3\xA0\x87\x8E" => "",                     # U+E01CE => 
+"\xF3\xA0\x87\x8F" => "",                     # U+E01CF => 
+"\xF3\xA0\x87\x90" => "",                     # U+E01D0 => 
+"\xF3\xA0\x87\x91" => "",                     # U+E01D1 => 
+"\xF3\xA0\x87\x92" => "",                     # U+E01D2 => 
+"\xF3\xA0\x87\x93" => "",                     # U+E01D3 => 
+"\xF3\xA0\x87\x94" => "",                     # U+E01D4 => 
+"\xF3\xA0\x87\x95" => "",                     # U+E01D5 => 
+"\xF3\xA0\x87\x96" => "",                     # U+E01D6 => 
+"\xF3\xA0\x87\x97" => "",                     # U+E01D7 => 
+"\xF3\xA0\x87\x98" => "",                     # U+E01D8 => 
+"\xF3\xA0\x87\x99" => "",                     # U+E01D9 => 
+"\xF3\xA0\x87\x9A" => "",                     # U+E01DA => 
+"\xF3\xA0\x87\x9B" => "",                     # U+E01DB => 
+"\xF3\xA0\x87\x9C" => "",                     # U+E01DC => 
+"\xF3\xA0\x87\x9D" => "",                     # U+E01DD => 
+"\xF3\xA0\x87\x9E" => "",                     # U+E01DE => 
+"\xF3\xA0\x87\x9F" => "",                     # U+E01DF => 
+"\xF3\xA0\x87\xA0" => "",                     # U+E01E0 => 
+"\xF3\xA0\x87\xA1" => "",                     # U+E01E1 => 
+"\xF3\xA0\x87\xA2" => "",                     # U+E01E2 => 
+"\xF3\xA0\x87\xA3" => "",                     # U+E01E3 => 
+"\xF3\xA0\x87\xA4" => "",                     # U+E01E4 => 
+"\xF3\xA0\x87\xA5" => "",                     # U+E01E5 => 
+"\xF3\xA0\x87\xA6" => "",                     # U+E01E6 => 
+"\xF3\xA0\x87\xA7" => "",                     # U+E01E7 => 
+"\xF3\xA0\x87\xA8" => "",                     # U+E01E8 => 
+"\xF3\xA0\x87\xA9" => "",                     # U+E01E9 => 
+"\xF3\xA0\x87\xAA" => "",                     # U+E01EA => 
+"\xF3\xA0\x87\xAB" => "",                     # U+E01EB => 
+"\xF3\xA0\x87\xAC" => "",                     # U+E01EC => 
+"\xF3\xA0\x87\xAD" => "",                     # U+E01ED => 
+"\xF3\xA0\x87\xAE" => "",                     # U+E01EE => 
+"\xF3\xA0\x87\xAF" => "",                     # U+E01EF => 
+"\xF3\xA0\x87\xB0" => "",                     # U+E01F0 => 
+"\xF3\xA0\x87\xB1" => "",                     # U+E01F1 => 
+"\xF3\xA0\x87\xB2" => "",                     # U+E01F2 => 
+"\xF3\xA0\x87\xB3" => "",                     # U+E01F3 => 
+"\xF3\xA0\x87\xB4" => "",                     # U+E01F4 => 
+"\xF3\xA0\x87\xB5" => "",                     # U+E01F5 => 
+"\xF3\xA0\x87\xB6" => "",                     # U+E01F6 => 
+"\xF3\xA0\x87\xB7" => "",                     # U+E01F7 => 
+"\xF3\xA0\x87\xB8" => "",                     # U+E01F8 => 
+"\xF3\xA0\x87\xB9" => "",                     # U+E01F9 => 
+"\xF3\xA0\x87\xBA" => "",                     # U+E01FA => 
+"\xF3\xA0\x87\xBB" => "",                     # U+E01FB => 
+"\xF3\xA0\x87\xBC" => "",                     # U+E01FC => 
+"\xF3\xA0\x87\xBD" => "",                     # U+E01FD => 
+"\xF3\xA0\x87\xBE" => "",                     # U+E01FE => 
+"\xF3\xA0\x87\xBF" => "",                     # U+E01FF => 
+"\xF3\xA0\x88\x80" => "",                     # U+E0200 => 
+"\xF3\xA0\x88\x81" => "",                     # U+E0201 => 
+"\xF3\xA0\x88\x82" => "",                     # U+E0202 => 
+"\xF3\xA0\x88\x83" => "",                     # U+E0203 => 
+"\xF3\xA0\x88\x84" => "",                     # U+E0204 => 
+"\xF3\xA0\x88\x85" => "",                     # U+E0205 => 
+"\xF3\xA0\x88\x86" => "",                     # U+E0206 => 
+"\xF3\xA0\x88\x87" => "",                     # U+E0207 => 
+"\xF3\xA0\x88\x88" => "",                     # U+E0208 => 
+"\xF3\xA0\x88\x89" => "",                     # U+E0209 => 
+"\xF3\xA0\x88\x8A" => "",                     # U+E020A => 
+"\xF3\xA0\x88\x8B" => "",                     # U+E020B => 
+"\xF3\xA0\x88\x8C" => "",                     # U+E020C => 
+"\xF3\xA0\x88\x8D" => "",                     # U+E020D => 
+"\xF3\xA0\x88\x8E" => "",                     # U+E020E => 
+"\xF3\xA0\x88\x8F" => "",                     # U+E020F => 
+"\xF3\xA0\x88\x90" => "",                     # U+E0210 => 
+"\xF3\xA0\x88\x91" => "",                     # U+E0211 => 
+"\xF3\xA0\x88\x92" => "",                     # U+E0212 => 
+"\xF3\xA0\x88\x93" => "",                     # U+E0213 => 
+"\xF3\xA0\x88\x94" => "",                     # U+E0214 => 
+"\xF3\xA0\x88\x95" => "",                     # U+E0215 => 
+"\xF3\xA0\x88\x96" => "",                     # U+E0216 => 
+"\xF3\xA0\x88\x97" => "",                     # U+E0217 => 
+"\xF3\xA0\x88\x98" => "",                     # U+E0218 => 
+"\xF3\xA0\x88\x99" => "",                     # U+E0219 => 
+"\xF3\xA0\x88\x9A" => "",                     # U+E021A => 
+"\xF3\xA0\x88\x9B" => "",                     # U+E021B => 
+"\xF3\xA0\x88\x9C" => "",                     # U+E021C => 
+"\xF3\xA0\x88\x9D" => "",                     # U+E021D => 
+"\xF3\xA0\x88\x9E" => "",                     # U+E021E => 
+"\xF3\xA0\x88\x9F" => "",                     # U+E021F => 
+"\xF3\xA0\x88\xA0" => "",                     # U+E0220 => 
+"\xF3\xA0\x88\xA1" => "",                     # U+E0221 => 
+"\xF3\xA0\x88\xA2" => "",                     # U+E0222 => 
+"\xF3\xA0\x88\xA3" => "",                     # U+E0223 => 
+"\xF3\xA0\x88\xA4" => "",                     # U+E0224 => 
+"\xF3\xA0\x88\xA5" => "",                     # U+E0225 => 
+"\xF3\xA0\x88\xA6" => "",                     # U+E0226 => 
+"\xF3\xA0\x88\xA7" => "",                     # U+E0227 => 
+"\xF3\xA0\x88\xA8" => "",                     # U+E0228 => 
+"\xF3\xA0\x88\xA9" => "",                     # U+E0229 => 
+"\xF3\xA0\x88\xAA" => "",                     # U+E022A => 
+"\xF3\xA0\x88\xAB" => "",                     # U+E022B => 
+"\xF3\xA0\x88\xAC" => "",                     # U+E022C => 
+"\xF3\xA0\x88\xAD" => "",                     # U+E022D => 
+"\xF3\xA0\x88\xAE" => "",                     # U+E022E => 
+"\xF3\xA0\x88\xAF" => "",                     # U+E022F => 
+"\xF3\xA0\x88\xB0" => "",                     # U+E0230 => 
+"\xF3\xA0\x88\xB1" => "",                     # U+E0231 => 
+"\xF3\xA0\x88\xB2" => "",                     # U+E0232 => 
+"\xF3\xA0\x88\xB3" => "",                     # U+E0233 => 
+"\xF3\xA0\x88\xB4" => "",                     # U+E0234 => 
+"\xF3\xA0\x88\xB5" => "",                     # U+E0235 => 
+"\xF3\xA0\x88\xB6" => "",                     # U+E0236 => 
+"\xF3\xA0\x88\xB7" => "",                     # U+E0237 => 
+"\xF3\xA0\x88\xB8" => "",                     # U+E0238 => 
+"\xF3\xA0\x88\xB9" => "",                     # U+E0239 => 
+"\xF3\xA0\x88\xBA" => "",                     # U+E023A => 
+"\xF3\xA0\x88\xBB" => "",                     # U+E023B => 
+"\xF3\xA0\x88\xBC" => "",                     # U+E023C => 
+"\xF3\xA0\x88\xBD" => "",                     # U+E023D => 
+"\xF3\xA0\x88\xBE" => "",                     # U+E023E => 
+"\xF3\xA0\x88\xBF" => "",                     # U+E023F => 
+"\xF3\xA0\x89\x80" => "",                     # U+E0240 => 
+"\xF3\xA0\x89\x81" => "",                     # U+E0241 => 
+"\xF3\xA0\x89\x82" => "",                     # U+E0242 => 
+"\xF3\xA0\x89\x83" => "",                     # U+E0243 => 
+"\xF3\xA0\x89\x84" => "",                     # U+E0244 => 
+"\xF3\xA0\x89\x85" => "",                     # U+E0245 => 
+"\xF3\xA0\x89\x86" => "",                     # U+E0246 => 
+"\xF3\xA0\x89\x87" => "",                     # U+E0247 => 
+"\xF3\xA0\x89\x88" => "",                     # U+E0248 => 
+"\xF3\xA0\x89\x89" => "",                     # U+E0249 => 
+"\xF3\xA0\x89\x8A" => "",                     # U+E024A => 
+"\xF3\xA0\x89\x8B" => "",                     # U+E024B => 
+"\xF3\xA0\x89\x8C" => "",                     # U+E024C => 
+"\xF3\xA0\x89\x8D" => "",                     # U+E024D => 
+"\xF3\xA0\x89\x8E" => "",                     # U+E024E => 
+"\xF3\xA0\x89\x8F" => "",                     # U+E024F => 
+"\xF3\xA0\x89\x90" => "",                     # U+E0250 => 
+"\xF3\xA0\x89\x91" => "",                     # U+E0251 => 
+"\xF3\xA0\x89\x92" => "",                     # U+E0252 => 
+"\xF3\xA0\x89\x93" => "",                     # U+E0253 => 
+"\xF3\xA0\x89\x94" => "",                     # U+E0254 => 
+"\xF3\xA0\x89\x95" => "",                     # U+E0255 => 
+"\xF3\xA0\x89\x96" => "",                     # U+E0256 => 
+"\xF3\xA0\x89\x97" => "",                     # U+E0257 => 
+"\xF3\xA0\x89\x98" => "",                     # U+E0258 => 
+"\xF3\xA0\x89\x99" => "",                     # U+E0259 => 
+"\xF3\xA0\x89\x9A" => "",                     # U+E025A => 
+"\xF3\xA0\x89\x9B" => "",                     # U+E025B => 
+"\xF3\xA0\x89\x9C" => "",                     # U+E025C => 
+"\xF3\xA0\x89\x9D" => "",                     # U+E025D => 
+"\xF3\xA0\x89\x9E" => "",                     # U+E025E => 
+"\xF3\xA0\x89\x9F" => "",                     # U+E025F => 
+"\xF3\xA0\x89\xA0" => "",                     # U+E0260 => 
+"\xF3\xA0\x89\xA1" => "",                     # U+E0261 => 
+"\xF3\xA0\x89\xA2" => "",                     # U+E0262 => 
+"\xF3\xA0\x89\xA3" => "",                     # U+E0263 => 
+"\xF3\xA0\x89\xA4" => "",                     # U+E0264 => 
+"\xF3\xA0\x89\xA5" => "",                     # U+E0265 => 
+"\xF3\xA0\x89\xA6" => "",                     # U+E0266 => 
+"\xF3\xA0\x89\xA7" => "",                     # U+E0267 => 
+"\xF3\xA0\x89\xA8" => "",                     # U+E0268 => 
+"\xF3\xA0\x89\xA9" => "",                     # U+E0269 => 
+"\xF3\xA0\x89\xAA" => "",                     # U+E026A => 
+"\xF3\xA0\x89\xAB" => "",                     # U+E026B => 
+"\xF3\xA0\x89\xAC" => "",                     # U+E026C => 
+"\xF3\xA0\x89\xAD" => "",                     # U+E026D => 
+"\xF3\xA0\x89\xAE" => "",                     # U+E026E => 
+"\xF3\xA0\x89\xAF" => "",                     # U+E026F => 
+"\xF3\xA0\x89\xB0" => "",                     # U+E0270 => 
+"\xF3\xA0\x89\xB1" => "",                     # U+E0271 => 
+"\xF3\xA0\x89\xB2" => "",                     # U+E0272 => 
+"\xF3\xA0\x89\xB3" => "",                     # U+E0273 => 
+"\xF3\xA0\x89\xB4" => "",                     # U+E0274 => 
+"\xF3\xA0\x89\xB5" => "",                     # U+E0275 => 
+"\xF3\xA0\x89\xB6" => "",                     # U+E0276 => 
+"\xF3\xA0\x89\xB7" => "",                     # U+E0277 => 
+"\xF3\xA0\x89\xB8" => "",                     # U+E0278 => 
+"\xF3\xA0\x89\xB9" => "",                     # U+E0279 => 
+"\xF3\xA0\x89\xBA" => "",                     # U+E027A => 
+"\xF3\xA0\x89\xBB" => "",                     # U+E027B => 
+"\xF3\xA0\x89\xBC" => "",                     # U+E027C => 
+"\xF3\xA0\x89\xBD" => "",                     # U+E027D => 
+"\xF3\xA0\x89\xBE" => "",                     # U+E027E => 
+"\xF3\xA0\x89\xBF" => "",                     # U+E027F => 
+"\xF3\xA0\x8A\x80" => "",                     # U+E0280 => 
+"\xF3\xA0\x8A\x81" => "",                     # U+E0281 => 
+"\xF3\xA0\x8A\x82" => "",                     # U+E0282 => 
+"\xF3\xA0\x8A\x83" => "",                     # U+E0283 => 
+"\xF3\xA0\x8A\x84" => "",                     # U+E0284 => 
+"\xF3\xA0\x8A\x85" => "",                     # U+E0285 => 
+"\xF3\xA0\x8A\x86" => "",                     # U+E0286 => 
+"\xF3\xA0\x8A\x87" => "",                     # U+E0287 => 
+"\xF3\xA0\x8A\x88" => "",                     # U+E0288 => 
+"\xF3\xA0\x8A\x89" => "",                     # U+E0289 => 
+"\xF3\xA0\x8A\x8A" => "",                     # U+E028A => 
+"\xF3\xA0\x8A\x8B" => "",                     # U+E028B => 
+"\xF3\xA0\x8A\x8C" => "",                     # U+E028C => 
+"\xF3\xA0\x8A\x8D" => "",                     # U+E028D => 
+"\xF3\xA0\x8A\x8E" => "",                     # U+E028E => 
+"\xF3\xA0\x8A\x8F" => "",                     # U+E028F => 
+"\xF3\xA0\x8A\x90" => "",                     # U+E0290 => 
+"\xF3\xA0\x8A\x91" => "",                     # U+E0291 => 
+"\xF3\xA0\x8A\x92" => "",                     # U+E0292 => 
+"\xF3\xA0\x8A\x93" => "",                     # U+E0293 => 
+"\xF3\xA0\x8A\x94" => "",                     # U+E0294 => 
+"\xF3\xA0\x8A\x95" => "",                     # U+E0295 => 
+"\xF3\xA0\x8A\x96" => "",                     # U+E0296 => 
+"\xF3\xA0\x8A\x97" => "",                     # U+E0297 => 
+"\xF3\xA0\x8A\x98" => "",                     # U+E0298 => 
+"\xF3\xA0\x8A\x99" => "",                     # U+E0299 => 
+"\xF3\xA0\x8A\x9A" => "",                     # U+E029A => 
+"\xF3\xA0\x8A\x9B" => "",                     # U+E029B => 
+"\xF3\xA0\x8A\x9C" => "",                     # U+E029C => 
+"\xF3\xA0\x8A\x9D" => "",                     # U+E029D => 
+"\xF3\xA0\x8A\x9E" => "",                     # U+E029E => 
+"\xF3\xA0\x8A\x9F" => "",                     # U+E029F => 
+"\xF3\xA0\x8A\xA0" => "",                     # U+E02A0 => 
+"\xF3\xA0\x8A\xA1" => "",                     # U+E02A1 => 
+"\xF3\xA0\x8A\xA2" => "",                     # U+E02A2 => 
+"\xF3\xA0\x8A\xA3" => "",                     # U+E02A3 => 
+"\xF3\xA0\x8A\xA4" => "",                     # U+E02A4 => 
+"\xF3\xA0\x8A\xA5" => "",                     # U+E02A5 => 
+"\xF3\xA0\x8A\xA6" => "",                     # U+E02A6 => 
+"\xF3\xA0\x8A\xA7" => "",                     # U+E02A7 => 
+"\xF3\xA0\x8A\xA8" => "",                     # U+E02A8 => 
+"\xF3\xA0\x8A\xA9" => "",                     # U+E02A9 => 
+"\xF3\xA0\x8A\xAA" => "",                     # U+E02AA => 
+"\xF3\xA0\x8A\xAB" => "",                     # U+E02AB => 
+"\xF3\xA0\x8A\xAC" => "",                     # U+E02AC => 
+"\xF3\xA0\x8A\xAD" => "",                     # U+E02AD => 
+"\xF3\xA0\x8A\xAE" => "",                     # U+E02AE => 
+"\xF3\xA0\x8A\xAF" => "",                     # U+E02AF => 
+"\xF3\xA0\x8A\xB0" => "",                     # U+E02B0 => 
+"\xF3\xA0\x8A\xB1" => "",                     # U+E02B1 => 
+"\xF3\xA0\x8A\xB2" => "",                     # U+E02B2 => 
+"\xF3\xA0\x8A\xB3" => "",                     # U+E02B3 => 
+"\xF3\xA0\x8A\xB4" => "",                     # U+E02B4 => 
+"\xF3\xA0\x8A\xB5" => "",                     # U+E02B5 => 
+"\xF3\xA0\x8A\xB6" => "",                     # U+E02B6 => 
+"\xF3\xA0\x8A\xB7" => "",                     # U+E02B7 => 
+"\xF3\xA0\x8A\xB8" => "",                     # U+E02B8 => 
+"\xF3\xA0\x8A\xB9" => "",                     # U+E02B9 => 
+"\xF3\xA0\x8A\xBA" => "",                     # U+E02BA => 
+"\xF3\xA0\x8A\xBB" => "",                     # U+E02BB => 
+"\xF3\xA0\x8A\xBC" => "",                     # U+E02BC => 
+"\xF3\xA0\x8A\xBD" => "",                     # U+E02BD => 
+"\xF3\xA0\x8A\xBE" => "",                     # U+E02BE => 
+"\xF3\xA0\x8A\xBF" => "",                     # U+E02BF => 
+"\xF3\xA0\x8B\x80" => "",                     # U+E02C0 => 
+"\xF3\xA0\x8B\x81" => "",                     # U+E02C1 => 
+"\xF3\xA0\x8B\x82" => "",                     # U+E02C2 => 
+"\xF3\xA0\x8B\x83" => "",                     # U+E02C3 => 
+"\xF3\xA0\x8B\x84" => "",                     # U+E02C4 => 
+"\xF3\xA0\x8B\x85" => "",                     # U+E02C5 => 
+"\xF3\xA0\x8B\x86" => "",                     # U+E02C6 => 
+"\xF3\xA0\x8B\x87" => "",                     # U+E02C7 => 
+"\xF3\xA0\x8B\x88" => "",                     # U+E02C8 => 
+"\xF3\xA0\x8B\x89" => "",                     # U+E02C9 => 
+"\xF3\xA0\x8B\x8A" => "",                     # U+E02CA => 
+"\xF3\xA0\x8B\x8B" => "",                     # U+E02CB => 
+"\xF3\xA0\x8B\x8C" => "",                     # U+E02CC => 
+"\xF3\xA0\x8B\x8D" => "",                     # U+E02CD => 
+"\xF3\xA0\x8B\x8E" => "",                     # U+E02CE => 
+"\xF3\xA0\x8B\x8F" => "",                     # U+E02CF => 
+"\xF3\xA0\x8B\x90" => "",                     # U+E02D0 => 
+"\xF3\xA0\x8B\x91" => "",                     # U+E02D1 => 
+"\xF3\xA0\x8B\x92" => "",                     # U+E02D2 => 
+"\xF3\xA0\x8B\x93" => "",                     # U+E02D3 => 
+"\xF3\xA0\x8B\x94" => "",                     # U+E02D4 => 
+"\xF3\xA0\x8B\x95" => "",                     # U+E02D5 => 
+"\xF3\xA0\x8B\x96" => "",                     # U+E02D6 => 
+"\xF3\xA0\x8B\x97" => "",                     # U+E02D7 => 
+"\xF3\xA0\x8B\x98" => "",                     # U+E02D8 => 
+"\xF3\xA0\x8B\x99" => "",                     # U+E02D9 => 
+"\xF3\xA0\x8B\x9A" => "",                     # U+E02DA => 
+"\xF3\xA0\x8B\x9B" => "",                     # U+E02DB => 
+"\xF3\xA0\x8B\x9C" => "",                     # U+E02DC => 
+"\xF3\xA0\x8B\x9D" => "",                     # U+E02DD => 
+"\xF3\xA0\x8B\x9E" => "",                     # U+E02DE => 
+"\xF3\xA0\x8B\x9F" => "",                     # U+E02DF => 
+"\xF3\xA0\x8B\xA0" => "",                     # U+E02E0 => 
+"\xF3\xA0\x8B\xA1" => "",                     # U+E02E1 => 
+"\xF3\xA0\x8B\xA2" => "",                     # U+E02E2 => 
+"\xF3\xA0\x8B\xA3" => "",                     # U+E02E3 => 
+"\xF3\xA0\x8B\xA4" => "",                     # U+E02E4 => 
+"\xF3\xA0\x8B\xA5" => "",                     # U+E02E5 => 
+"\xF3\xA0\x8B\xA6" => "",                     # U+E02E6 => 
+"\xF3\xA0\x8B\xA7" => "",                     # U+E02E7 => 
+"\xF3\xA0\x8B\xA8" => "",                     # U+E02E8 => 
+"\xF3\xA0\x8B\xA9" => "",                     # U+E02E9 => 
+"\xF3\xA0\x8B\xAA" => "",                     # U+E02EA => 
+"\xF3\xA0\x8B\xAB" => "",                     # U+E02EB => 
+"\xF3\xA0\x8B\xAC" => "",                     # U+E02EC => 
+"\xF3\xA0\x8B\xAD" => "",                     # U+E02ED => 
+"\xF3\xA0\x8B\xAE" => "",                     # U+E02EE => 
+"\xF3\xA0\x8B\xAF" => "",                     # U+E02EF => 
+"\xF3\xA0\x8B\xB0" => "",                     # U+E02F0 => 
+"\xF3\xA0\x8B\xB1" => "",                     # U+E02F1 => 
+"\xF3\xA0\x8B\xB2" => "",                     # U+E02F2 => 
+"\xF3\xA0\x8B\xB3" => "",                     # U+E02F3 => 
+"\xF3\xA0\x8B\xB4" => "",                     # U+E02F4 => 
+"\xF3\xA0\x8B\xB5" => "",                     # U+E02F5 => 
+"\xF3\xA0\x8B\xB6" => "",                     # U+E02F6 => 
+"\xF3\xA0\x8B\xB7" => "",                     # U+E02F7 => 
+"\xF3\xA0\x8B\xB8" => "",                     # U+E02F8 => 
+"\xF3\xA0\x8B\xB9" => "",                     # U+E02F9 => 
+"\xF3\xA0\x8B\xBA" => "",                     # U+E02FA => 
+"\xF3\xA0\x8B\xBB" => "",                     # U+E02FB => 
+"\xF3\xA0\x8B\xBC" => "",                     # U+E02FC => 
+"\xF3\xA0\x8B\xBD" => "",                     # U+E02FD => 
+"\xF3\xA0\x8B\xBE" => "",                     # U+E02FE => 
+"\xF3\xA0\x8B\xBF" => "",                     # U+E02FF => 
+"\xF3\xA0\x8C\x80" => "",                     # U+E0300 => 
+"\xF3\xA0\x8C\x81" => "",                     # U+E0301 => 
+"\xF3\xA0\x8C\x82" => "",                     # U+E0302 => 
+"\xF3\xA0\x8C\x83" => "",                     # U+E0303 => 
+"\xF3\xA0\x8C\x84" => "",                     # U+E0304 => 
+"\xF3\xA0\x8C\x85" => "",                     # U+E0305 => 
+"\xF3\xA0\x8C\x86" => "",                     # U+E0306 => 
+"\xF3\xA0\x8C\x87" => "",                     # U+E0307 => 
+"\xF3\xA0\x8C\x88" => "",                     # U+E0308 => 
+"\xF3\xA0\x8C\x89" => "",                     # U+E0309 => 
+"\xF3\xA0\x8C\x8A" => "",                     # U+E030A => 
+"\xF3\xA0\x8C\x8B" => "",                     # U+E030B => 
+"\xF3\xA0\x8C\x8C" => "",                     # U+E030C => 
+"\xF3\xA0\x8C\x8D" => "",                     # U+E030D => 
+"\xF3\xA0\x8C\x8E" => "",                     # U+E030E => 
+"\xF3\xA0\x8C\x8F" => "",                     # U+E030F => 
+"\xF3\xA0\x8C\x90" => "",                     # U+E0310 => 
+"\xF3\xA0\x8C\x91" => "",                     # U+E0311 => 
+"\xF3\xA0\x8C\x92" => "",                     # U+E0312 => 
+"\xF3\xA0\x8C\x93" => "",                     # U+E0313 => 
+"\xF3\xA0\x8C\x94" => "",                     # U+E0314 => 
+"\xF3\xA0\x8C\x95" => "",                     # U+E0315 => 
+"\xF3\xA0\x8C\x96" => "",                     # U+E0316 => 
+"\xF3\xA0\x8C\x97" => "",                     # U+E0317 => 
+"\xF3\xA0\x8C\x98" => "",                     # U+E0318 => 
+"\xF3\xA0\x8C\x99" => "",                     # U+E0319 => 
+"\xF3\xA0\x8C\x9A" => "",                     # U+E031A => 
+"\xF3\xA0\x8C\x9B" => "",                     # U+E031B => 
+"\xF3\xA0\x8C\x9C" => "",                     # U+E031C => 
+"\xF3\xA0\x8C\x9D" => "",                     # U+E031D => 
+"\xF3\xA0\x8C\x9E" => "",                     # U+E031E => 
+"\xF3\xA0\x8C\x9F" => "",                     # U+E031F => 
+"\xF3\xA0\x8C\xA0" => "",                     # U+E0320 => 
+"\xF3\xA0\x8C\xA1" => "",                     # U+E0321 => 
+"\xF3\xA0\x8C\xA2" => "",                     # U+E0322 => 
+"\xF3\xA0\x8C\xA3" => "",                     # U+E0323 => 
+"\xF3\xA0\x8C\xA4" => "",                     # U+E0324 => 
+"\xF3\xA0\x8C\xA5" => "",                     # U+E0325 => 
+"\xF3\xA0\x8C\xA6" => "",                     # U+E0326 => 
+"\xF3\xA0\x8C\xA7" => "",                     # U+E0327 => 
+"\xF3\xA0\x8C\xA8" => "",                     # U+E0328 => 
+"\xF3\xA0\x8C\xA9" => "",                     # U+E0329 => 
+"\xF3\xA0\x8C\xAA" => "",                     # U+E032A => 
+"\xF3\xA0\x8C\xAB" => "",                     # U+E032B => 
+"\xF3\xA0\x8C\xAC" => "",                     # U+E032C => 
+"\xF3\xA0\x8C\xAD" => "",                     # U+E032D => 
+"\xF3\xA0\x8C\xAE" => "",                     # U+E032E => 
+"\xF3\xA0\x8C\xAF" => "",                     # U+E032F => 
+"\xF3\xA0\x8C\xB0" => "",                     # U+E0330 => 
+"\xF3\xA0\x8C\xB1" => "",                     # U+E0331 => 
+"\xF3\xA0\x8C\xB2" => "",                     # U+E0332 => 
+"\xF3\xA0\x8C\xB3" => "",                     # U+E0333 => 
+"\xF3\xA0\x8C\xB4" => "",                     # U+E0334 => 
+"\xF3\xA0\x8C\xB5" => "",                     # U+E0335 => 
+"\xF3\xA0\x8C\xB6" => "",                     # U+E0336 => 
+"\xF3\xA0\x8C\xB7" => "",                     # U+E0337 => 
+"\xF3\xA0\x8C\xB8" => "",                     # U+E0338 => 
+"\xF3\xA0\x8C\xB9" => "",                     # U+E0339 => 
+"\xF3\xA0\x8C\xBA" => "",                     # U+E033A => 
+"\xF3\xA0\x8C\xBB" => "",                     # U+E033B => 
+"\xF3\xA0\x8C\xBC" => "",                     # U+E033C => 
+"\xF3\xA0\x8C\xBD" => "",                     # U+E033D => 
+"\xF3\xA0\x8C\xBE" => "",                     # U+E033E => 
+"\xF3\xA0\x8C\xBF" => "",                     # U+E033F => 
+"\xF3\xA0\x8D\x80" => "",                     # U+E0340 => 
+"\xF3\xA0\x8D\x81" => "",                     # U+E0341 => 
+"\xF3\xA0\x8D\x82" => "",                     # U+E0342 => 
+"\xF3\xA0\x8D\x83" => "",                     # U+E0343 => 
+"\xF3\xA0\x8D\x84" => "",                     # U+E0344 => 
+"\xF3\xA0\x8D\x85" => "",                     # U+E0345 => 
+"\xF3\xA0\x8D\x86" => "",                     # U+E0346 => 
+"\xF3\xA0\x8D\x87" => "",                     # U+E0347 => 
+"\xF3\xA0\x8D\x88" => "",                     # U+E0348 => 
+"\xF3\xA0\x8D\x89" => "",                     # U+E0349 => 
+"\xF3\xA0\x8D\x8A" => "",                     # U+E034A => 
+"\xF3\xA0\x8D\x8B" => "",                     # U+E034B => 
+"\xF3\xA0\x8D\x8C" => "",                     # U+E034C => 
+"\xF3\xA0\x8D\x8D" => "",                     # U+E034D => 
+"\xF3\xA0\x8D\x8E" => "",                     # U+E034E => 
+"\xF3\xA0\x8D\x8F" => "",                     # U+E034F => 
+"\xF3\xA0\x8D\x90" => "",                     # U+E0350 => 
+"\xF3\xA0\x8D\x91" => "",                     # U+E0351 => 
+"\xF3\xA0\x8D\x92" => "",                     # U+E0352 => 
+"\xF3\xA0\x8D\x93" => "",                     # U+E0353 => 
+"\xF3\xA0\x8D\x94" => "",                     # U+E0354 => 
+"\xF3\xA0\x8D\x95" => "",                     # U+E0355 => 
+"\xF3\xA0\x8D\x96" => "",                     # U+E0356 => 
+"\xF3\xA0\x8D\x97" => "",                     # U+E0357 => 
+"\xF3\xA0\x8D\x98" => "",                     # U+E0358 => 
+"\xF3\xA0\x8D\x99" => "",                     # U+E0359 => 
+"\xF3\xA0\x8D\x9A" => "",                     # U+E035A => 
+"\xF3\xA0\x8D\x9B" => "",                     # U+E035B => 
+"\xF3\xA0\x8D\x9C" => "",                     # U+E035C => 
+"\xF3\xA0\x8D\x9D" => "",                     # U+E035D => 
+"\xF3\xA0\x8D\x9E" => "",                     # U+E035E => 
+"\xF3\xA0\x8D\x9F" => "",                     # U+E035F => 
+"\xF3\xA0\x8D\xA0" => "",                     # U+E0360 => 
+"\xF3\xA0\x8D\xA1" => "",                     # U+E0361 => 
+"\xF3\xA0\x8D\xA2" => "",                     # U+E0362 => 
+"\xF3\xA0\x8D\xA3" => "",                     # U+E0363 => 
+"\xF3\xA0\x8D\xA4" => "",                     # U+E0364 => 
+"\xF3\xA0\x8D\xA5" => "",                     # U+E0365 => 
+"\xF3\xA0\x8D\xA6" => "",                     # U+E0366 => 
+"\xF3\xA0\x8D\xA7" => "",                     # U+E0367 => 
+"\xF3\xA0\x8D\xA8" => "",                     # U+E0368 => 
+"\xF3\xA0\x8D\xA9" => "",                     # U+E0369 => 
+"\xF3\xA0\x8D\xAA" => "",                     # U+E036A => 
+"\xF3\xA0\x8D\xAB" => "",                     # U+E036B => 
+"\xF3\xA0\x8D\xAC" => "",                     # U+E036C => 
+"\xF3\xA0\x8D\xAD" => "",                     # U+E036D => 
+"\xF3\xA0\x8D\xAE" => "",                     # U+E036E => 
+"\xF3\xA0\x8D\xAF" => "",                     # U+E036F => 
+"\xF3\xA0\x8D\xB0" => "",                     # U+E0370 => 
+"\xF3\xA0\x8D\xB1" => "",                     # U+E0371 => 
+"\xF3\xA0\x8D\xB2" => "",                     # U+E0372 => 
+"\xF3\xA0\x8D\xB3" => "",                     # U+E0373 => 
+"\xF3\xA0\x8D\xB4" => "",                     # U+E0374 => 
+"\xF3\xA0\x8D\xB5" => "",                     # U+E0375 => 
+"\xF3\xA0\x8D\xB6" => "",                     # U+E0376 => 
+"\xF3\xA0\x8D\xB7" => "",                     # U+E0377 => 
+"\xF3\xA0\x8D\xB8" => "",                     # U+E0378 => 
+"\xF3\xA0\x8D\xB9" => "",                     # U+E0379 => 
+"\xF3\xA0\x8D\xBA" => "",                     # U+E037A => 
+"\xF3\xA0\x8D\xBB" => "",                     # U+E037B => 
+"\xF3\xA0\x8D\xBC" => "",                     # U+E037C => 
+"\xF3\xA0\x8D\xBD" => "",                     # U+E037D => 
+"\xF3\xA0\x8D\xBE" => "",                     # U+E037E => 
+"\xF3\xA0\x8D\xBF" => "",                     # U+E037F => 
+"\xF3\xA0\x8E\x80" => "",                     # U+E0380 => 
+"\xF3\xA0\x8E\x81" => "",                     # U+E0381 => 
+"\xF3\xA0\x8E\x82" => "",                     # U+E0382 => 
+"\xF3\xA0\x8E\x83" => "",                     # U+E0383 => 
+"\xF3\xA0\x8E\x84" => "",                     # U+E0384 => 
+"\xF3\xA0\x8E\x85" => "",                     # U+E0385 => 
+"\xF3\xA0\x8E\x86" => "",                     # U+E0386 => 
+"\xF3\xA0\x8E\x87" => "",                     # U+E0387 => 
+"\xF3\xA0\x8E\x88" => "",                     # U+E0388 => 
+"\xF3\xA0\x8E\x89" => "",                     # U+E0389 => 
+"\xF3\xA0\x8E\x8A" => "",                     # U+E038A => 
+"\xF3\xA0\x8E\x8B" => "",                     # U+E038B => 
+"\xF3\xA0\x8E\x8C" => "",                     # U+E038C => 
+"\xF3\xA0\x8E\x8D" => "",                     # U+E038D => 
+"\xF3\xA0\x8E\x8E" => "",                     # U+E038E => 
+"\xF3\xA0\x8E\x8F" => "",                     # U+E038F => 
+"\xF3\xA0\x8E\x90" => "",                     # U+E0390 => 
+"\xF3\xA0\x8E\x91" => "",                     # U+E0391 => 
+"\xF3\xA0\x8E\x92" => "",                     # U+E0392 => 
+"\xF3\xA0\x8E\x93" => "",                     # U+E0393 => 
+"\xF3\xA0\x8E\x94" => "",                     # U+E0394 => 
+"\xF3\xA0\x8E\x95" => "",                     # U+E0395 => 
+"\xF3\xA0\x8E\x96" => "",                     # U+E0396 => 
+"\xF3\xA0\x8E\x97" => "",                     # U+E0397 => 
+"\xF3\xA0\x8E\x98" => "",                     # U+E0398 => 
+"\xF3\xA0\x8E\x99" => "",                     # U+E0399 => 
+"\xF3\xA0\x8E\x9A" => "",                     # U+E039A => 
+"\xF3\xA0\x8E\x9B" => "",                     # U+E039B => 
+"\xF3\xA0\x8E\x9C" => "",                     # U+E039C => 
+"\xF3\xA0\x8E\x9D" => "",                     # U+E039D => 
+"\xF3\xA0\x8E\x9E" => "",                     # U+E039E => 
+"\xF3\xA0\x8E\x9F" => "",                     # U+E039F => 
+"\xF3\xA0\x8E\xA0" => "",                     # U+E03A0 => 
+"\xF3\xA0\x8E\xA1" => "",                     # U+E03A1 => 
+"\xF3\xA0\x8E\xA2" => "",                     # U+E03A2 => 
+"\xF3\xA0\x8E\xA3" => "",                     # U+E03A3 => 
+"\xF3\xA0\x8E\xA4" => "",                     # U+E03A4 => 
+"\xF3\xA0\x8E\xA5" => "",                     # U+E03A5 => 
+"\xF3\xA0\x8E\xA6" => "",                     # U+E03A6 => 
+"\xF3\xA0\x8E\xA7" => "",                     # U+E03A7 => 
+"\xF3\xA0\x8E\xA8" => "",                     # U+E03A8 => 
+"\xF3\xA0\x8E\xA9" => "",                     # U+E03A9 => 
+"\xF3\xA0\x8E\xAA" => "",                     # U+E03AA => 
+"\xF3\xA0\x8E\xAB" => "",                     # U+E03AB => 
+"\xF3\xA0\x8E\xAC" => "",                     # U+E03AC => 
+"\xF3\xA0\x8E\xAD" => "",                     # U+E03AD => 
+"\xF3\xA0\x8E\xAE" => "",                     # U+E03AE => 
+"\xF3\xA0\x8E\xAF" => "",                     # U+E03AF => 
+"\xF3\xA0\x8E\xB0" => "",                     # U+E03B0 => 
+"\xF3\xA0\x8E\xB1" => "",                     # U+E03B1 => 
+"\xF3\xA0\x8E\xB2" => "",                     # U+E03B2 => 
+"\xF3\xA0\x8E\xB3" => "",                     # U+E03B3 => 
+"\xF3\xA0\x8E\xB4" => "",                     # U+E03B4 => 
+"\xF3\xA0\x8E\xB5" => "",                     # U+E03B5 => 
+"\xF3\xA0\x8E\xB6" => "",                     # U+E03B6 => 
+"\xF3\xA0\x8E\xB7" => "",                     # U+E03B7 => 
+"\xF3\xA0\x8E\xB8" => "",                     # U+E03B8 => 
+"\xF3\xA0\x8E\xB9" => "",                     # U+E03B9 => 
+"\xF3\xA0\x8E\xBA" => "",                     # U+E03BA => 
+"\xF3\xA0\x8E\xBB" => "",                     # U+E03BB => 
+"\xF3\xA0\x8E\xBC" => "",                     # U+E03BC => 
+"\xF3\xA0\x8E\xBD" => "",                     # U+E03BD => 
+"\xF3\xA0\x8E\xBE" => "",                     # U+E03BE => 
+"\xF3\xA0\x8E\xBF" => "",                     # U+E03BF => 
+"\xF3\xA0\x8F\x80" => "",                     # U+E03C0 => 
+"\xF3\xA0\x8F\x81" => "",                     # U+E03C1 => 
+"\xF3\xA0\x8F\x82" => "",                     # U+E03C2 => 
+"\xF3\xA0\x8F\x83" => "",                     # U+E03C3 => 
+"\xF3\xA0\x8F\x84" => "",                     # U+E03C4 => 
+"\xF3\xA0\x8F\x85" => "",                     # U+E03C5 => 
+"\xF3\xA0\x8F\x86" => "",                     # U+E03C6 => 
+"\xF3\xA0\x8F\x87" => "",                     # U+E03C7 => 
+"\xF3\xA0\x8F\x88" => "",                     # U+E03C8 => 
+"\xF3\xA0\x8F\x89" => "",                     # U+E03C9 => 
+"\xF3\xA0\x8F\x8A" => "",                     # U+E03CA => 
+"\xF3\xA0\x8F\x8B" => "",                     # U+E03CB => 
+"\xF3\xA0\x8F\x8C" => "",                     # U+E03CC => 
+"\xF3\xA0\x8F\x8D" => "",                     # U+E03CD => 
+"\xF3\xA0\x8F\x8E" => "",                     # U+E03CE => 
+"\xF3\xA0\x8F\x8F" => "",                     # U+E03CF => 
+"\xF3\xA0\x8F\x90" => "",                     # U+E03D0 => 
+"\xF3\xA0\x8F\x91" => "",                     # U+E03D1 => 
+"\xF3\xA0\x8F\x92" => "",                     # U+E03D2 => 
+"\xF3\xA0\x8F\x93" => "",                     # U+E03D3 => 
+"\xF3\xA0\x8F\x94" => "",                     # U+E03D4 => 
+"\xF3\xA0\x8F\x95" => "",                     # U+E03D5 => 
+"\xF3\xA0\x8F\x96" => "",                     # U+E03D6 => 
+"\xF3\xA0\x8F\x97" => "",                     # U+E03D7 => 
+"\xF3\xA0\x8F\x98" => "",                     # U+E03D8 => 
+"\xF3\xA0\x8F\x99" => "",                     # U+E03D9 => 
+"\xF3\xA0\x8F\x9A" => "",                     # U+E03DA => 
+"\xF3\xA0\x8F\x9B" => "",                     # U+E03DB => 
+"\xF3\xA0\x8F\x9C" => "",                     # U+E03DC => 
+"\xF3\xA0\x8F\x9D" => "",                     # U+E03DD => 
+"\xF3\xA0\x8F\x9E" => "",                     # U+E03DE => 
+"\xF3\xA0\x8F\x9F" => "",                     # U+E03DF => 
+"\xF3\xA0\x8F\xA0" => "",                     # U+E03E0 => 
+"\xF3\xA0\x8F\xA1" => "",                     # U+E03E1 => 
+"\xF3\xA0\x8F\xA2" => "",                     # U+E03E2 => 
+"\xF3\xA0\x8F\xA3" => "",                     # U+E03E3 => 
+"\xF3\xA0\x8F\xA4" => "",                     # U+E03E4 => 
+"\xF3\xA0\x8F\xA5" => "",                     # U+E03E5 => 
+"\xF3\xA0\x8F\xA6" => "",                     # U+E03E6 => 
+"\xF3\xA0\x8F\xA7" => "",                     # U+E03E7 => 
+"\xF3\xA0\x8F\xA8" => "",                     # U+E03E8 => 
+"\xF3\xA0\x8F\xA9" => "",                     # U+E03E9 => 
+"\xF3\xA0\x8F\xAA" => "",                     # U+E03EA => 
+"\xF3\xA0\x8F\xAB" => "",                     # U+E03EB => 
+"\xF3\xA0\x8F\xAC" => "",                     # U+E03EC => 
+"\xF3\xA0\x8F\xAD" => "",                     # U+E03ED => 
+"\xF3\xA0\x8F\xAE" => "",                     # U+E03EE => 
+"\xF3\xA0\x8F\xAF" => "",                     # U+E03EF => 
+"\xF3\xA0\x8F\xB0" => "",                     # U+E03F0 => 
+"\xF3\xA0\x8F\xB1" => "",                     # U+E03F1 => 
+"\xF3\xA0\x8F\xB2" => "",                     # U+E03F2 => 
+"\xF3\xA0\x8F\xB3" => "",                     # U+E03F3 => 
+"\xF3\xA0\x8F\xB4" => "",                     # U+E03F4 => 
+"\xF3\xA0\x8F\xB5" => "",                     # U+E03F5 => 
+"\xF3\xA0\x8F\xB6" => "",                     # U+E03F6 => 
+"\xF3\xA0\x8F\xB7" => "",                     # U+E03F7 => 
+"\xF3\xA0\x8F\xB8" => "",                     # U+E03F8 => 
+"\xF3\xA0\x8F\xB9" => "",                     # U+E03F9 => 
+"\xF3\xA0\x8F\xBA" => "",                     # U+E03FA => 
+"\xF3\xA0\x8F\xBB" => "",                     # U+E03FB => 
+"\xF3\xA0\x8F\xBC" => "",                     # U+E03FC => 
+"\xF3\xA0\x8F\xBD" => "",                     # U+E03FD => 
+"\xF3\xA0\x8F\xBE" => "",                     # U+E03FE => 
+"\xF3\xA0\x8F\xBF" => "",                     # U+E03FF => 
+"\xF3\xA0\x90\x80" => "",                     # U+E0400 => 
+"\xF3\xA0\x90\x81" => "",                     # U+E0401 => 
+"\xF3\xA0\x90\x82" => "",                     # U+E0402 => 
+"\xF3\xA0\x90\x83" => "",                     # U+E0403 => 
+"\xF3\xA0\x90\x84" => "",                     # U+E0404 => 
+"\xF3\xA0\x90\x85" => "",                     # U+E0405 => 
+"\xF3\xA0\x90\x86" => "",                     # U+E0406 => 
+"\xF3\xA0\x90\x87" => "",                     # U+E0407 => 
+"\xF3\xA0\x90\x88" => "",                     # U+E0408 => 
+"\xF3\xA0\x90\x89" => "",                     # U+E0409 => 
+"\xF3\xA0\x90\x8A" => "",                     # U+E040A => 
+"\xF3\xA0\x90\x8B" => "",                     # U+E040B => 
+"\xF3\xA0\x90\x8C" => "",                     # U+E040C => 
+"\xF3\xA0\x90\x8D" => "",                     # U+E040D => 
+"\xF3\xA0\x90\x8E" => "",                     # U+E040E => 
+"\xF3\xA0\x90\x8F" => "",                     # U+E040F => 
+"\xF3\xA0\x90\x90" => "",                     # U+E0410 => 
+"\xF3\xA0\x90\x91" => "",                     # U+E0411 => 
+"\xF3\xA0\x90\x92" => "",                     # U+E0412 => 
+"\xF3\xA0\x90\x93" => "",                     # U+E0413 => 
+"\xF3\xA0\x90\x94" => "",                     # U+E0414 => 
+"\xF3\xA0\x90\x95" => "",                     # U+E0415 => 
+"\xF3\xA0\x90\x96" => "",                     # U+E0416 => 
+"\xF3\xA0\x90\x97" => "",                     # U+E0417 => 
+"\xF3\xA0\x90\x98" => "",                     # U+E0418 => 
+"\xF3\xA0\x90\x99" => "",                     # U+E0419 => 
+"\xF3\xA0\x90\x9A" => "",                     # U+E041A => 
+"\xF3\xA0\x90\x9B" => "",                     # U+E041B => 
+"\xF3\xA0\x90\x9C" => "",                     # U+E041C => 
+"\xF3\xA0\x90\x9D" => "",                     # U+E041D => 
+"\xF3\xA0\x90\x9E" => "",                     # U+E041E => 
+"\xF3\xA0\x90\x9F" => "",                     # U+E041F => 
+"\xF3\xA0\x90\xA0" => "",                     # U+E0420 => 
+"\xF3\xA0\x90\xA1" => "",                     # U+E0421 => 
+"\xF3\xA0\x90\xA2" => "",                     # U+E0422 => 
+"\xF3\xA0\x90\xA3" => "",                     # U+E0423 => 
+"\xF3\xA0\x90\xA4" => "",                     # U+E0424 => 
+"\xF3\xA0\x90\xA5" => "",                     # U+E0425 => 
+"\xF3\xA0\x90\xA6" => "",                     # U+E0426 => 
+"\xF3\xA0\x90\xA7" => "",                     # U+E0427 => 
+"\xF3\xA0\x90\xA8" => "",                     # U+E0428 => 
+"\xF3\xA0\x90\xA9" => "",                     # U+E0429 => 
+"\xF3\xA0\x90\xAA" => "",                     # U+E042A => 
+"\xF3\xA0\x90\xAB" => "",                     # U+E042B => 
+"\xF3\xA0\x90\xAC" => "",                     # U+E042C => 
+"\xF3\xA0\x90\xAD" => "",                     # U+E042D => 
+"\xF3\xA0\x90\xAE" => "",                     # U+E042E => 
+"\xF3\xA0\x90\xAF" => "",                     # U+E042F => 
+"\xF3\xA0\x90\xB0" => "",                     # U+E0430 => 
+"\xF3\xA0\x90\xB1" => "",                     # U+E0431 => 
+"\xF3\xA0\x90\xB2" => "",                     # U+E0432 => 
+"\xF3\xA0\x90\xB3" => "",                     # U+E0433 => 
+"\xF3\xA0\x90\xB4" => "",                     # U+E0434 => 
+"\xF3\xA0\x90\xB5" => "",                     # U+E0435 => 
+"\xF3\xA0\x90\xB6" => "",                     # U+E0436 => 
+"\xF3\xA0\x90\xB7" => "",                     # U+E0437 => 
+"\xF3\xA0\x90\xB8" => "",                     # U+E0438 => 
+"\xF3\xA0\x90\xB9" => "",                     # U+E0439 => 
+"\xF3\xA0\x90\xBA" => "",                     # U+E043A => 
+"\xF3\xA0\x90\xBB" => "",                     # U+E043B => 
+"\xF3\xA0\x90\xBC" => "",                     # U+E043C => 
+"\xF3\xA0\x90\xBD" => "",                     # U+E043D => 
+"\xF3\xA0\x90\xBE" => "",                     # U+E043E => 
+"\xF3\xA0\x90\xBF" => "",                     # U+E043F => 
+"\xF3\xA0\x91\x80" => "",                     # U+E0440 => 
+"\xF3\xA0\x91\x81" => "",                     # U+E0441 => 
+"\xF3\xA0\x91\x82" => "",                     # U+E0442 => 
+"\xF3\xA0\x91\x83" => "",                     # U+E0443 => 
+"\xF3\xA0\x91\x84" => "",                     # U+E0444 => 
+"\xF3\xA0\x91\x85" => "",                     # U+E0445 => 
+"\xF3\xA0\x91\x86" => "",                     # U+E0446 => 
+"\xF3\xA0\x91\x87" => "",                     # U+E0447 => 
+"\xF3\xA0\x91\x88" => "",                     # U+E0448 => 
+"\xF3\xA0\x91\x89" => "",                     # U+E0449 => 
+"\xF3\xA0\x91\x8A" => "",                     # U+E044A => 
+"\xF3\xA0\x91\x8B" => "",                     # U+E044B => 
+"\xF3\xA0\x91\x8C" => "",                     # U+E044C => 
+"\xF3\xA0\x91\x8D" => "",                     # U+E044D => 
+"\xF3\xA0\x91\x8E" => "",                     # U+E044E => 
+"\xF3\xA0\x91\x8F" => "",                     # U+E044F => 
+"\xF3\xA0\x91\x90" => "",                     # U+E0450 => 
+"\xF3\xA0\x91\x91" => "",                     # U+E0451 => 
+"\xF3\xA0\x91\x92" => "",                     # U+E0452 => 
+"\xF3\xA0\x91\x93" => "",                     # U+E0453 => 
+"\xF3\xA0\x91\x94" => "",                     # U+E0454 => 
+"\xF3\xA0\x91\x95" => "",                     # U+E0455 => 
+"\xF3\xA0\x91\x96" => "",                     # U+E0456 => 
+"\xF3\xA0\x91\x97" => "",                     # U+E0457 => 
+"\xF3\xA0\x91\x98" => "",                     # U+E0458 => 
+"\xF3\xA0\x91\x99" => "",                     # U+E0459 => 
+"\xF3\xA0\x91\x9A" => "",                     # U+E045A => 
+"\xF3\xA0\x91\x9B" => "",                     # U+E045B => 
+"\xF3\xA0\x91\x9C" => "",                     # U+E045C => 
+"\xF3\xA0\x91\x9D" => "",                     # U+E045D => 
+"\xF3\xA0\x91\x9E" => "",                     # U+E045E => 
+"\xF3\xA0\x91\x9F" => "",                     # U+E045F => 
+"\xF3\xA0\x91\xA0" => "",                     # U+E0460 => 
+"\xF3\xA0\x91\xA1" => "",                     # U+E0461 => 
+"\xF3\xA0\x91\xA2" => "",                     # U+E0462 => 
+"\xF3\xA0\x91\xA3" => "",                     # U+E0463 => 
+"\xF3\xA0\x91\xA4" => "",                     # U+E0464 => 
+"\xF3\xA0\x91\xA5" => "",                     # U+E0465 => 
+"\xF3\xA0\x91\xA6" => "",                     # U+E0466 => 
+"\xF3\xA0\x91\xA7" => "",                     # U+E0467 => 
+"\xF3\xA0\x91\xA8" => "",                     # U+E0468 => 
+"\xF3\xA0\x91\xA9" => "",                     # U+E0469 => 
+"\xF3\xA0\x91\xAA" => "",                     # U+E046A => 
+"\xF3\xA0\x91\xAB" => "",                     # U+E046B => 
+"\xF3\xA0\x91\xAC" => "",                     # U+E046C => 
+"\xF3\xA0\x91\xAD" => "",                     # U+E046D => 
+"\xF3\xA0\x91\xAE" => "",                     # U+E046E => 
+"\xF3\xA0\x91\xAF" => "",                     # U+E046F => 
+"\xF3\xA0\x91\xB0" => "",                     # U+E0470 => 
+"\xF3\xA0\x91\xB1" => "",                     # U+E0471 => 
+"\xF3\xA0\x91\xB2" => "",                     # U+E0472 => 
+"\xF3\xA0\x91\xB3" => "",                     # U+E0473 => 
+"\xF3\xA0\x91\xB4" => "",                     # U+E0474 => 
+"\xF3\xA0\x91\xB5" => "",                     # U+E0475 => 
+"\xF3\xA0\x91\xB6" => "",                     # U+E0476 => 
+"\xF3\xA0\x91\xB7" => "",                     # U+E0477 => 
+"\xF3\xA0\x91\xB8" => "",                     # U+E0478 => 
+"\xF3\xA0\x91\xB9" => "",                     # U+E0479 => 
+"\xF3\xA0\x91\xBA" => "",                     # U+E047A => 
+"\xF3\xA0\x91\xBB" => "",                     # U+E047B => 
+"\xF3\xA0\x91\xBC" => "",                     # U+E047C => 
+"\xF3\xA0\x91\xBD" => "",                     # U+E047D => 
+"\xF3\xA0\x91\xBE" => "",                     # U+E047E => 
+"\xF3\xA0\x91\xBF" => "",                     # U+E047F => 
+"\xF3\xA0\x92\x80" => "",                     # U+E0480 => 
+"\xF3\xA0\x92\x81" => "",                     # U+E0481 => 
+"\xF3\xA0\x92\x82" => "",                     # U+E0482 => 
+"\xF3\xA0\x92\x83" => "",                     # U+E0483 => 
+"\xF3\xA0\x92\x84" => "",                     # U+E0484 => 
+"\xF3\xA0\x92\x85" => "",                     # U+E0485 => 
+"\xF3\xA0\x92\x86" => "",                     # U+E0486 => 
+"\xF3\xA0\x92\x87" => "",                     # U+E0487 => 
+"\xF3\xA0\x92\x88" => "",                     # U+E0488 => 
+"\xF3\xA0\x92\x89" => "",                     # U+E0489 => 
+"\xF3\xA0\x92\x8A" => "",                     # U+E048A => 
+"\xF3\xA0\x92\x8B" => "",                     # U+E048B => 
+"\xF3\xA0\x92\x8C" => "",                     # U+E048C => 
+"\xF3\xA0\x92\x8D" => "",                     # U+E048D => 
+"\xF3\xA0\x92\x8E" => "",                     # U+E048E => 
+"\xF3\xA0\x92\x8F" => "",                     # U+E048F => 
+"\xF3\xA0\x92\x90" => "",                     # U+E0490 => 
+"\xF3\xA0\x92\x91" => "",                     # U+E0491 => 
+"\xF3\xA0\x92\x92" => "",                     # U+E0492 => 
+"\xF3\xA0\x92\x93" => "",                     # U+E0493 => 
+"\xF3\xA0\x92\x94" => "",                     # U+E0494 => 
+"\xF3\xA0\x92\x95" => "",                     # U+E0495 => 
+"\xF3\xA0\x92\x96" => "",                     # U+E0496 => 
+"\xF3\xA0\x92\x97" => "",                     # U+E0497 => 
+"\xF3\xA0\x92\x98" => "",                     # U+E0498 => 
+"\xF3\xA0\x92\x99" => "",                     # U+E0499 => 
+"\xF3\xA0\x92\x9A" => "",                     # U+E049A => 
+"\xF3\xA0\x92\x9B" => "",                     # U+E049B => 
+"\xF3\xA0\x92\x9C" => "",                     # U+E049C => 
+"\xF3\xA0\x92\x9D" => "",                     # U+E049D => 
+"\xF3\xA0\x92\x9E" => "",                     # U+E049E => 
+"\xF3\xA0\x92\x9F" => "",                     # U+E049F => 
+"\xF3\xA0\x92\xA0" => "",                     # U+E04A0 => 
+"\xF3\xA0\x92\xA1" => "",                     # U+E04A1 => 
+"\xF3\xA0\x92\xA2" => "",                     # U+E04A2 => 
+"\xF3\xA0\x92\xA3" => "",                     # U+E04A3 => 
+"\xF3\xA0\x92\xA4" => "",                     # U+E04A4 => 
+"\xF3\xA0\x92\xA5" => "",                     # U+E04A5 => 
+"\xF3\xA0\x92\xA6" => "",                     # U+E04A6 => 
+"\xF3\xA0\x92\xA7" => "",                     # U+E04A7 => 
+"\xF3\xA0\x92\xA8" => "",                     # U+E04A8 => 
+"\xF3\xA0\x92\xA9" => "",                     # U+E04A9 => 
+"\xF3\xA0\x92\xAA" => "",                     # U+E04AA => 
+"\xF3\xA0\x92\xAB" => "",                     # U+E04AB => 
+"\xF3\xA0\x92\xAC" => "",                     # U+E04AC => 
+"\xF3\xA0\x92\xAD" => "",                     # U+E04AD => 
+"\xF3\xA0\x92\xAE" => "",                     # U+E04AE => 
+"\xF3\xA0\x92\xAF" => "",                     # U+E04AF => 
+"\xF3\xA0\x92\xB0" => "",                     # U+E04B0 => 
+"\xF3\xA0\x92\xB1" => "",                     # U+E04B1 => 
+"\xF3\xA0\x92\xB2" => "",                     # U+E04B2 => 
+"\xF3\xA0\x92\xB3" => "",                     # U+E04B3 => 
+"\xF3\xA0\x92\xB4" => "",                     # U+E04B4 => 
+"\xF3\xA0\x92\xB5" => "",                     # U+E04B5 => 
+"\xF3\xA0\x92\xB6" => "",                     # U+E04B6 => 
+"\xF3\xA0\x92\xB7" => "",                     # U+E04B7 => 
+"\xF3\xA0\x92\xB8" => "",                     # U+E04B8 => 
+"\xF3\xA0\x92\xB9" => "",                     # U+E04B9 => 
+"\xF3\xA0\x92\xBA" => "",                     # U+E04BA => 
+"\xF3\xA0\x92\xBB" => "",                     # U+E04BB => 
+"\xF3\xA0\x92\xBC" => "",                     # U+E04BC => 
+"\xF3\xA0\x92\xBD" => "",                     # U+E04BD => 
+"\xF3\xA0\x92\xBE" => "",                     # U+E04BE => 
+"\xF3\xA0\x92\xBF" => "",                     # U+E04BF => 
+"\xF3\xA0\x93\x80" => "",                     # U+E04C0 => 
+"\xF3\xA0\x93\x81" => "",                     # U+E04C1 => 
+"\xF3\xA0\x93\x82" => "",                     # U+E04C2 => 
+"\xF3\xA0\x93\x83" => "",                     # U+E04C3 => 
+"\xF3\xA0\x93\x84" => "",                     # U+E04C4 => 
+"\xF3\xA0\x93\x85" => "",                     # U+E04C5 => 
+"\xF3\xA0\x93\x86" => "",                     # U+E04C6 => 
+"\xF3\xA0\x93\x87" => "",                     # U+E04C7 => 
+"\xF3\xA0\x93\x88" => "",                     # U+E04C8 => 
+"\xF3\xA0\x93\x89" => "",                     # U+E04C9 => 
+"\xF3\xA0\x93\x8A" => "",                     # U+E04CA => 
+"\xF3\xA0\x93\x8B" => "",                     # U+E04CB => 
+"\xF3\xA0\x93\x8C" => "",                     # U+E04CC => 
+"\xF3\xA0\x93\x8D" => "",                     # U+E04CD => 
+"\xF3\xA0\x93\x8E" => "",                     # U+E04CE => 
+"\xF3\xA0\x93\x8F" => "",                     # U+E04CF => 
+"\xF3\xA0\x93\x90" => "",                     # U+E04D0 => 
+"\xF3\xA0\x93\x91" => "",                     # U+E04D1 => 
+"\xF3\xA0\x93\x92" => "",                     # U+E04D2 => 
+"\xF3\xA0\x93\x93" => "",                     # U+E04D3 => 
+"\xF3\xA0\x93\x94" => "",                     # U+E04D4 => 
+"\xF3\xA0\x93\x95" => "",                     # U+E04D5 => 
+"\xF3\xA0\x93\x96" => "",                     # U+E04D6 => 
+"\xF3\xA0\x93\x97" => "",                     # U+E04D7 => 
+"\xF3\xA0\x93\x98" => "",                     # U+E04D8 => 
+"\xF3\xA0\x93\x99" => "",                     # U+E04D9 => 
+"\xF3\xA0\x93\x9A" => "",                     # U+E04DA => 
+"\xF3\xA0\x93\x9B" => "",                     # U+E04DB => 
+"\xF3\xA0\x93\x9C" => "",                     # U+E04DC => 
+"\xF3\xA0\x93\x9D" => "",                     # U+E04DD => 
+"\xF3\xA0\x93\x9E" => "",                     # U+E04DE => 
+"\xF3\xA0\x93\x9F" => "",                     # U+E04DF => 
+"\xF3\xA0\x93\xA0" => "",                     # U+E04E0 => 
+"\xF3\xA0\x93\xA1" => "",                     # U+E04E1 => 
+"\xF3\xA0\x93\xA2" => "",                     # U+E04E2 => 
+"\xF3\xA0\x93\xA3" => "",                     # U+E04E3 => 
+"\xF3\xA0\x93\xA4" => "",                     # U+E04E4 => 
+"\xF3\xA0\x93\xA5" => "",                     # U+E04E5 => 
+"\xF3\xA0\x93\xA6" => "",                     # U+E04E6 => 
+"\xF3\xA0\x93\xA7" => "",                     # U+E04E7 => 
+"\xF3\xA0\x93\xA8" => "",                     # U+E04E8 => 
+"\xF3\xA0\x93\xA9" => "",                     # U+E04E9 => 
+"\xF3\xA0\x93\xAA" => "",                     # U+E04EA => 
+"\xF3\xA0\x93\xAB" => "",                     # U+E04EB => 
+"\xF3\xA0\x93\xAC" => "",                     # U+E04EC => 
+"\xF3\xA0\x93\xAD" => "",                     # U+E04ED => 
+"\xF3\xA0\x93\xAE" => "",                     # U+E04EE => 
+"\xF3\xA0\x93\xAF" => "",                     # U+E04EF => 
+"\xF3\xA0\x93\xB0" => "",                     # U+E04F0 => 
+"\xF3\xA0\x93\xB1" => "",                     # U+E04F1 => 
+"\xF3\xA0\x93\xB2" => "",                     # U+E04F2 => 
+"\xF3\xA0\x93\xB3" => "",                     # U+E04F3 => 
+"\xF3\xA0\x93\xB4" => "",                     # U+E04F4 => 
+"\xF3\xA0\x93\xB5" => "",                     # U+E04F5 => 
+"\xF3\xA0\x93\xB6" => "",                     # U+E04F6 => 
+"\xF3\xA0\x93\xB7" => "",                     # U+E04F7 => 
+"\xF3\xA0\x93\xB8" => "",                     # U+E04F8 => 
+"\xF3\xA0\x93\xB9" => "",                     # U+E04F9 => 
+"\xF3\xA0\x93\xBA" => "",                     # U+E04FA => 
+"\xF3\xA0\x93\xBB" => "",                     # U+E04FB => 
+"\xF3\xA0\x93\xBC" => "",                     # U+E04FC => 
+"\xF3\xA0\x93\xBD" => "",                     # U+E04FD => 
+"\xF3\xA0\x93\xBE" => "",                     # U+E04FE => 
+"\xF3\xA0\x93\xBF" => "",                     # U+E04FF => 
+"\xF3\xA0\x94\x80" => "",                     # U+E0500 => 
+"\xF3\xA0\x94\x81" => "",                     # U+E0501 => 
+"\xF3\xA0\x94\x82" => "",                     # U+E0502 => 
+"\xF3\xA0\x94\x83" => "",                     # U+E0503 => 
+"\xF3\xA0\x94\x84" => "",                     # U+E0504 => 
+"\xF3\xA0\x94\x85" => "",                     # U+E0505 => 
+"\xF3\xA0\x94\x86" => "",                     # U+E0506 => 
+"\xF3\xA0\x94\x87" => "",                     # U+E0507 => 
+"\xF3\xA0\x94\x88" => "",                     # U+E0508 => 
+"\xF3\xA0\x94\x89" => "",                     # U+E0509 => 
+"\xF3\xA0\x94\x8A" => "",                     # U+E050A => 
+"\xF3\xA0\x94\x8B" => "",                     # U+E050B => 
+"\xF3\xA0\x94\x8C" => "",                     # U+E050C => 
+"\xF3\xA0\x94\x8D" => "",                     # U+E050D => 
+"\xF3\xA0\x94\x8E" => "",                     # U+E050E => 
+"\xF3\xA0\x94\x8F" => "",                     # U+E050F => 
+"\xF3\xA0\x94\x90" => "",                     # U+E0510 => 
+"\xF3\xA0\x94\x91" => "",                     # U+E0511 => 
+"\xF3\xA0\x94\x92" => "",                     # U+E0512 => 
+"\xF3\xA0\x94\x93" => "",                     # U+E0513 => 
+"\xF3\xA0\x94\x94" => "",                     # U+E0514 => 
+"\xF3\xA0\x94\x95" => "",                     # U+E0515 => 
+"\xF3\xA0\x94\x96" => "",                     # U+E0516 => 
+"\xF3\xA0\x94\x97" => "",                     # U+E0517 => 
+"\xF3\xA0\x94\x98" => "",                     # U+E0518 => 
+"\xF3\xA0\x94\x99" => "",                     # U+E0519 => 
+"\xF3\xA0\x94\x9A" => "",                     # U+E051A => 
+"\xF3\xA0\x94\x9B" => "",                     # U+E051B => 
+"\xF3\xA0\x94\x9C" => "",                     # U+E051C => 
+"\xF3\xA0\x94\x9D" => "",                     # U+E051D => 
+"\xF3\xA0\x94\x9E" => "",                     # U+E051E => 
+"\xF3\xA0\x94\x9F" => "",                     # U+E051F => 
+"\xF3\xA0\x94\xA0" => "",                     # U+E0520 => 
+"\xF3\xA0\x94\xA1" => "",                     # U+E0521 => 
+"\xF3\xA0\x94\xA2" => "",                     # U+E0522 => 
+"\xF3\xA0\x94\xA3" => "",                     # U+E0523 => 
+"\xF3\xA0\x94\xA4" => "",                     # U+E0524 => 
+"\xF3\xA0\x94\xA5" => "",                     # U+E0525 => 
+"\xF3\xA0\x94\xA6" => "",                     # U+E0526 => 
+"\xF3\xA0\x94\xA7" => "",                     # U+E0527 => 
+"\xF3\xA0\x94\xA8" => "",                     # U+E0528 => 
+"\xF3\xA0\x94\xA9" => "",                     # U+E0529 => 
+"\xF3\xA0\x94\xAA" => "",                     # U+E052A => 
+"\xF3\xA0\x94\xAB" => "",                     # U+E052B => 
+"\xF3\xA0\x94\xAC" => "",                     # U+E052C => 
+"\xF3\xA0\x94\xAD" => "",                     # U+E052D => 
+"\xF3\xA0\x94\xAE" => "",                     # U+E052E => 
+"\xF3\xA0\x94\xAF" => "",                     # U+E052F => 
+"\xF3\xA0\x94\xB0" => "",                     # U+E0530 => 
+"\xF3\xA0\x94\xB1" => "",                     # U+E0531 => 
+"\xF3\xA0\x94\xB2" => "",                     # U+E0532 => 
+"\xF3\xA0\x94\xB3" => "",                     # U+E0533 => 
+"\xF3\xA0\x94\xB4" => "",                     # U+E0534 => 
+"\xF3\xA0\x94\xB5" => "",                     # U+E0535 => 
+"\xF3\xA0\x94\xB6" => "",                     # U+E0536 => 
+"\xF3\xA0\x94\xB7" => "",                     # U+E0537 => 
+"\xF3\xA0\x94\xB8" => "",                     # U+E0538 => 
+"\xF3\xA0\x94\xB9" => "",                     # U+E0539 => 
+"\xF3\xA0\x94\xBA" => "",                     # U+E053A => 
+"\xF3\xA0\x94\xBB" => "",                     # U+E053B => 
+"\xF3\xA0\x94\xBC" => "",                     # U+E053C => 
+"\xF3\xA0\x94\xBD" => "",                     # U+E053D => 
+"\xF3\xA0\x94\xBE" => "",                     # U+E053E => 
+"\xF3\xA0\x94\xBF" => "",                     # U+E053F => 
+"\xF3\xA0\x95\x80" => "",                     # U+E0540 => 
+"\xF3\xA0\x95\x81" => "",                     # U+E0541 => 
+"\xF3\xA0\x95\x82" => "",                     # U+E0542 => 
+"\xF3\xA0\x95\x83" => "",                     # U+E0543 => 
+"\xF3\xA0\x95\x84" => "",                     # U+E0544 => 
+"\xF3\xA0\x95\x85" => "",                     # U+E0545 => 
+"\xF3\xA0\x95\x86" => "",                     # U+E0546 => 
+"\xF3\xA0\x95\x87" => "",                     # U+E0547 => 
+"\xF3\xA0\x95\x88" => "",                     # U+E0548 => 
+"\xF3\xA0\x95\x89" => "",                     # U+E0549 => 
+"\xF3\xA0\x95\x8A" => "",                     # U+E054A => 
+"\xF3\xA0\x95\x8B" => "",                     # U+E054B => 
+"\xF3\xA0\x95\x8C" => "",                     # U+E054C => 
+"\xF3\xA0\x95\x8D" => "",                     # U+E054D => 
+"\xF3\xA0\x95\x8E" => "",                     # U+E054E => 
+"\xF3\xA0\x95\x8F" => "",                     # U+E054F => 
+"\xF3\xA0\x95\x90" => "",                     # U+E0550 => 
+"\xF3\xA0\x95\x91" => "",                     # U+E0551 => 
+"\xF3\xA0\x95\x92" => "",                     # U+E0552 => 
+"\xF3\xA0\x95\x93" => "",                     # U+E0553 => 
+"\xF3\xA0\x95\x94" => "",                     # U+E0554 => 
+"\xF3\xA0\x95\x95" => "",                     # U+E0555 => 
+"\xF3\xA0\x95\x96" => "",                     # U+E0556 => 
+"\xF3\xA0\x95\x97" => "",                     # U+E0557 => 
+"\xF3\xA0\x95\x98" => "",                     # U+E0558 => 
+"\xF3\xA0\x95\x99" => "",                     # U+E0559 => 
+"\xF3\xA0\x95\x9A" => "",                     # U+E055A => 
+"\xF3\xA0\x95\x9B" => "",                     # U+E055B => 
+"\xF3\xA0\x95\x9C" => "",                     # U+E055C => 
+"\xF3\xA0\x95\x9D" => "",                     # U+E055D => 
+"\xF3\xA0\x95\x9E" => "",                     # U+E055E => 
+"\xF3\xA0\x95\x9F" => "",                     # U+E055F => 
+"\xF3\xA0\x95\xA0" => "",                     # U+E0560 => 
+"\xF3\xA0\x95\xA1" => "",                     # U+E0561 => 
+"\xF3\xA0\x95\xA2" => "",                     # U+E0562 => 
+"\xF3\xA0\x95\xA3" => "",                     # U+E0563 => 
+"\xF3\xA0\x95\xA4" => "",                     # U+E0564 => 
+"\xF3\xA0\x95\xA5" => "",                     # U+E0565 => 
+"\xF3\xA0\x95\xA6" => "",                     # U+E0566 => 
+"\xF3\xA0\x95\xA7" => "",                     # U+E0567 => 
+"\xF3\xA0\x95\xA8" => "",                     # U+E0568 => 
+"\xF3\xA0\x95\xA9" => "",                     # U+E0569 => 
+"\xF3\xA0\x95\xAA" => "",                     # U+E056A => 
+"\xF3\xA0\x95\xAB" => "",                     # U+E056B => 
+"\xF3\xA0\x95\xAC" => "",                     # U+E056C => 
+"\xF3\xA0\x95\xAD" => "",                     # U+E056D => 
+"\xF3\xA0\x95\xAE" => "",                     # U+E056E => 
+"\xF3\xA0\x95\xAF" => "",                     # U+E056F => 
+"\xF3\xA0\x95\xB0" => "",                     # U+E0570 => 
+"\xF3\xA0\x95\xB1" => "",                     # U+E0571 => 
+"\xF3\xA0\x95\xB2" => "",                     # U+E0572 => 
+"\xF3\xA0\x95\xB3" => "",                     # U+E0573 => 
+"\xF3\xA0\x95\xB4" => "",                     # U+E0574 => 
+"\xF3\xA0\x95\xB5" => "",                     # U+E0575 => 
+"\xF3\xA0\x95\xB6" => "",                     # U+E0576 => 
+"\xF3\xA0\x95\xB7" => "",                     # U+E0577 => 
+"\xF3\xA0\x95\xB8" => "",                     # U+E0578 => 
+"\xF3\xA0\x95\xB9" => "",                     # U+E0579 => 
+"\xF3\xA0\x95\xBA" => "",                     # U+E057A => 
+"\xF3\xA0\x95\xBB" => "",                     # U+E057B => 
+"\xF3\xA0\x95\xBC" => "",                     # U+E057C => 
+"\xF3\xA0\x95\xBD" => "",                     # U+E057D => 
+"\xF3\xA0\x95\xBE" => "",                     # U+E057E => 
+"\xF3\xA0\x95\xBF" => "",                     # U+E057F => 
+"\xF3\xA0\x96\x80" => "",                     # U+E0580 => 
+"\xF3\xA0\x96\x81" => "",                     # U+E0581 => 
+"\xF3\xA0\x96\x82" => "",                     # U+E0582 => 
+"\xF3\xA0\x96\x83" => "",                     # U+E0583 => 
+"\xF3\xA0\x96\x84" => "",                     # U+E0584 => 
+"\xF3\xA0\x96\x85" => "",                     # U+E0585 => 
+"\xF3\xA0\x96\x86" => "",                     # U+E0586 => 
+"\xF3\xA0\x96\x87" => "",                     # U+E0587 => 
+"\xF3\xA0\x96\x88" => "",                     # U+E0588 => 
+"\xF3\xA0\x96\x89" => "",                     # U+E0589 => 
+"\xF3\xA0\x96\x8A" => "",                     # U+E058A => 
+"\xF3\xA0\x96\x8B" => "",                     # U+E058B => 
+"\xF3\xA0\x96\x8C" => "",                     # U+E058C => 
+"\xF3\xA0\x96\x8D" => "",                     # U+E058D => 
+"\xF3\xA0\x96\x8E" => "",                     # U+E058E => 
+"\xF3\xA0\x96\x8F" => "",                     # U+E058F => 
+"\xF3\xA0\x96\x90" => "",                     # U+E0590 => 
+"\xF3\xA0\x96\x91" => "",                     # U+E0591 => 
+"\xF3\xA0\x96\x92" => "",                     # U+E0592 => 
+"\xF3\xA0\x96\x93" => "",                     # U+E0593 => 
+"\xF3\xA0\x96\x94" => "",                     # U+E0594 => 
+"\xF3\xA0\x96\x95" => "",                     # U+E0595 => 
+"\xF3\xA0\x96\x96" => "",                     # U+E0596 => 
+"\xF3\xA0\x96\x97" => "",                     # U+E0597 => 
+"\xF3\xA0\x96\x98" => "",                     # U+E0598 => 
+"\xF3\xA0\x96\x99" => "",                     # U+E0599 => 
+"\xF3\xA0\x96\x9A" => "",                     # U+E059A => 
+"\xF3\xA0\x96\x9B" => "",                     # U+E059B => 
+"\xF3\xA0\x96\x9C" => "",                     # U+E059C => 
+"\xF3\xA0\x96\x9D" => "",                     # U+E059D => 
+"\xF3\xA0\x96\x9E" => "",                     # U+E059E => 
+"\xF3\xA0\x96\x9F" => "",                     # U+E059F => 
+"\xF3\xA0\x96\xA0" => "",                     # U+E05A0 => 
+"\xF3\xA0\x96\xA1" => "",                     # U+E05A1 => 
+"\xF3\xA0\x96\xA2" => "",                     # U+E05A2 => 
+"\xF3\xA0\x96\xA3" => "",                     # U+E05A3 => 
+"\xF3\xA0\x96\xA4" => "",                     # U+E05A4 => 
+"\xF3\xA0\x96\xA5" => "",                     # U+E05A5 => 
+"\xF3\xA0\x96\xA6" => "",                     # U+E05A6 => 
+"\xF3\xA0\x96\xA7" => "",                     # U+E05A7 => 
+"\xF3\xA0\x96\xA8" => "",                     # U+E05A8 => 
+"\xF3\xA0\x96\xA9" => "",                     # U+E05A9 => 
+"\xF3\xA0\x96\xAA" => "",                     # U+E05AA => 
+"\xF3\xA0\x96\xAB" => "",                     # U+E05AB => 
+"\xF3\xA0\x96\xAC" => "",                     # U+E05AC => 
+"\xF3\xA0\x96\xAD" => "",                     # U+E05AD => 
+"\xF3\xA0\x96\xAE" => "",                     # U+E05AE => 
+"\xF3\xA0\x96\xAF" => "",                     # U+E05AF => 
+"\xF3\xA0\x96\xB0" => "",                     # U+E05B0 => 
+"\xF3\xA0\x96\xB1" => "",                     # U+E05B1 => 
+"\xF3\xA0\x96\xB2" => "",                     # U+E05B2 => 
+"\xF3\xA0\x96\xB3" => "",                     # U+E05B3 => 
+"\xF3\xA0\x96\xB4" => "",                     # U+E05B4 => 
+"\xF3\xA0\x96\xB5" => "",                     # U+E05B5 => 
+"\xF3\xA0\x96\xB6" => "",                     # U+E05B6 => 
+"\xF3\xA0\x96\xB7" => "",                     # U+E05B7 => 
+"\xF3\xA0\x96\xB8" => "",                     # U+E05B8 => 
+"\xF3\xA0\x96\xB9" => "",                     # U+E05B9 => 
+"\xF3\xA0\x96\xBA" => "",                     # U+E05BA => 
+"\xF3\xA0\x96\xBB" => "",                     # U+E05BB => 
+"\xF3\xA0\x96\xBC" => "",                     # U+E05BC => 
+"\xF3\xA0\x96\xBD" => "",                     # U+E05BD => 
+"\xF3\xA0\x96\xBE" => "",                     # U+E05BE => 
+"\xF3\xA0\x96\xBF" => "",                     # U+E05BF => 
+"\xF3\xA0\x97\x80" => "",                     # U+E05C0 => 
+"\xF3\xA0\x97\x81" => "",                     # U+E05C1 => 
+"\xF3\xA0\x97\x82" => "",                     # U+E05C2 => 
+"\xF3\xA0\x97\x83" => "",                     # U+E05C3 => 
+"\xF3\xA0\x97\x84" => "",                     # U+E05C4 => 
+"\xF3\xA0\x97\x85" => "",                     # U+E05C5 => 
+"\xF3\xA0\x97\x86" => "",                     # U+E05C6 => 
+"\xF3\xA0\x97\x87" => "",                     # U+E05C7 => 
+"\xF3\xA0\x97\x88" => "",                     # U+E05C8 => 
+"\xF3\xA0\x97\x89" => "",                     # U+E05C9 => 
+"\xF3\xA0\x97\x8A" => "",                     # U+E05CA => 
+"\xF3\xA0\x97\x8B" => "",                     # U+E05CB => 
+"\xF3\xA0\x97\x8C" => "",                     # U+E05CC => 
+"\xF3\xA0\x97\x8D" => "",                     # U+E05CD => 
+"\xF3\xA0\x97\x8E" => "",                     # U+E05CE => 
+"\xF3\xA0\x97\x8F" => "",                     # U+E05CF => 
+"\xF3\xA0\x97\x90" => "",                     # U+E05D0 => 
+"\xF3\xA0\x97\x91" => "",                     # U+E05D1 => 
+"\xF3\xA0\x97\x92" => "",                     # U+E05D2 => 
+"\xF3\xA0\x97\x93" => "",                     # U+E05D3 => 
+"\xF3\xA0\x97\x94" => "",                     # U+E05D4 => 
+"\xF3\xA0\x97\x95" => "",                     # U+E05D5 => 
+"\xF3\xA0\x97\x96" => "",                     # U+E05D6 => 
+"\xF3\xA0\x97\x97" => "",                     # U+E05D7 => 
+"\xF3\xA0\x97\x98" => "",                     # U+E05D8 => 
+"\xF3\xA0\x97\x99" => "",                     # U+E05D9 => 
+"\xF3\xA0\x97\x9A" => "",                     # U+E05DA => 
+"\xF3\xA0\x97\x9B" => "",                     # U+E05DB => 
+"\xF3\xA0\x97\x9C" => "",                     # U+E05DC => 
+"\xF3\xA0\x97\x9D" => "",                     # U+E05DD => 
+"\xF3\xA0\x97\x9E" => "",                     # U+E05DE => 
+"\xF3\xA0\x97\x9F" => "",                     # U+E05DF => 
+"\xF3\xA0\x97\xA0" => "",                     # U+E05E0 => 
+"\xF3\xA0\x97\xA1" => "",                     # U+E05E1 => 
+"\xF3\xA0\x97\xA2" => "",                     # U+E05E2 => 
+"\xF3\xA0\x97\xA3" => "",                     # U+E05E3 => 
+"\xF3\xA0\x97\xA4" => "",                     # U+E05E4 => 
+"\xF3\xA0\x97\xA5" => "",                     # U+E05E5 => 
+"\xF3\xA0\x97\xA6" => "",                     # U+E05E6 => 
+"\xF3\xA0\x97\xA7" => "",                     # U+E05E7 => 
+"\xF3\xA0\x97\xA8" => "",                     # U+E05E8 => 
+"\xF3\xA0\x97\xA9" => "",                     # U+E05E9 => 
+"\xF3\xA0\x97\xAA" => "",                     # U+E05EA => 
+"\xF3\xA0\x97\xAB" => "",                     # U+E05EB => 
+"\xF3\xA0\x97\xAC" => "",                     # U+E05EC => 
+"\xF3\xA0\x97\xAD" => "",                     # U+E05ED => 
+"\xF3\xA0\x97\xAE" => "",                     # U+E05EE => 
+"\xF3\xA0\x97\xAF" => "",                     # U+E05EF => 
+"\xF3\xA0\x97\xB0" => "",                     # U+E05F0 => 
+"\xF3\xA0\x97\xB1" => "",                     # U+E05F1 => 
+"\xF3\xA0\x97\xB2" => "",                     # U+E05F2 => 
+"\xF3\xA0\x97\xB3" => "",                     # U+E05F3 => 
+"\xF3\xA0\x97\xB4" => "",                     # U+E05F4 => 
+"\xF3\xA0\x97\xB5" => "",                     # U+E05F5 => 
+"\xF3\xA0\x97\xB6" => "",                     # U+E05F6 => 
+"\xF3\xA0\x97\xB7" => "",                     # U+E05F7 => 
+"\xF3\xA0\x97\xB8" => "",                     # U+E05F8 => 
+"\xF3\xA0\x97\xB9" => "",                     # U+E05F9 => 
+"\xF3\xA0\x97\xBA" => "",                     # U+E05FA => 
+"\xF3\xA0\x97\xBB" => "",                     # U+E05FB => 
+"\xF3\xA0\x97\xBC" => "",                     # U+E05FC => 
+"\xF3\xA0\x97\xBD" => "",                     # U+E05FD => 
+"\xF3\xA0\x97\xBE" => "",                     # U+E05FE => 
+"\xF3\xA0\x97\xBF" => "",                     # U+E05FF => 
+"\xF3\xA0\x98\x80" => "",                     # U+E0600 => 
+"\xF3\xA0\x98\x81" => "",                     # U+E0601 => 
+"\xF3\xA0\x98\x82" => "",                     # U+E0602 => 
+"\xF3\xA0\x98\x83" => "",                     # U+E0603 => 
+"\xF3\xA0\x98\x84" => "",                     # U+E0604 => 
+"\xF3\xA0\x98\x85" => "",                     # U+E0605 => 
+"\xF3\xA0\x98\x86" => "",                     # U+E0606 => 
+"\xF3\xA0\x98\x87" => "",                     # U+E0607 => 
+"\xF3\xA0\x98\x88" => "",                     # U+E0608 => 
+"\xF3\xA0\x98\x89" => "",                     # U+E0609 => 
+"\xF3\xA0\x98\x8A" => "",                     # U+E060A => 
+"\xF3\xA0\x98\x8B" => "",                     # U+E060B => 
+"\xF3\xA0\x98\x8C" => "",                     # U+E060C => 
+"\xF3\xA0\x98\x8D" => "",                     # U+E060D => 
+"\xF3\xA0\x98\x8E" => "",                     # U+E060E => 
+"\xF3\xA0\x98\x8F" => "",                     # U+E060F => 
+"\xF3\xA0\x98\x90" => "",                     # U+E0610 => 
+"\xF3\xA0\x98\x91" => "",                     # U+E0611 => 
+"\xF3\xA0\x98\x92" => "",                     # U+E0612 => 
+"\xF3\xA0\x98\x93" => "",                     # U+E0613 => 
+"\xF3\xA0\x98\x94" => "",                     # U+E0614 => 
+"\xF3\xA0\x98\x95" => "",                     # U+E0615 => 
+"\xF3\xA0\x98\x96" => "",                     # U+E0616 => 
+"\xF3\xA0\x98\x97" => "",                     # U+E0617 => 
+"\xF3\xA0\x98\x98" => "",                     # U+E0618 => 
+"\xF3\xA0\x98\x99" => "",                     # U+E0619 => 
+"\xF3\xA0\x98\x9A" => "",                     # U+E061A => 
+"\xF3\xA0\x98\x9B" => "",                     # U+E061B => 
+"\xF3\xA0\x98\x9C" => "",                     # U+E061C => 
+"\xF3\xA0\x98\x9D" => "",                     # U+E061D => 
+"\xF3\xA0\x98\x9E" => "",                     # U+E061E => 
+"\xF3\xA0\x98\x9F" => "",                     # U+E061F => 
+"\xF3\xA0\x98\xA0" => "",                     # U+E0620 => 
+"\xF3\xA0\x98\xA1" => "",                     # U+E0621 => 
+"\xF3\xA0\x98\xA2" => "",                     # U+E0622 => 
+"\xF3\xA0\x98\xA3" => "",                     # U+E0623 => 
+"\xF3\xA0\x98\xA4" => "",                     # U+E0624 => 
+"\xF3\xA0\x98\xA5" => "",                     # U+E0625 => 
+"\xF3\xA0\x98\xA6" => "",                     # U+E0626 => 
+"\xF3\xA0\x98\xA7" => "",                     # U+E0627 => 
+"\xF3\xA0\x98\xA8" => "",                     # U+E0628 => 
+"\xF3\xA0\x98\xA9" => "",                     # U+E0629 => 
+"\xF3\xA0\x98\xAA" => "",                     # U+E062A => 
+"\xF3\xA0\x98\xAB" => "",                     # U+E062B => 
+"\xF3\xA0\x98\xAC" => "",                     # U+E062C => 
+"\xF3\xA0\x98\xAD" => "",                     # U+E062D => 
+"\xF3\xA0\x98\xAE" => "",                     # U+E062E => 
+"\xF3\xA0\x98\xAF" => "",                     # U+E062F => 
+"\xF3\xA0\x98\xB0" => "",                     # U+E0630 => 
+"\xF3\xA0\x98\xB1" => "",                     # U+E0631 => 
+"\xF3\xA0\x98\xB2" => "",                     # U+E0632 => 
+"\xF3\xA0\x98\xB3" => "",                     # U+E0633 => 
+"\xF3\xA0\x98\xB4" => "",                     # U+E0634 => 
+"\xF3\xA0\x98\xB5" => "",                     # U+E0635 => 
+"\xF3\xA0\x98\xB6" => "",                     # U+E0636 => 
+"\xF3\xA0\x98\xB7" => "",                     # U+E0637 => 
+"\xF3\xA0\x98\xB8" => "",                     # U+E0638 => 
+"\xF3\xA0\x98\xB9" => "",                     # U+E0639 => 
+"\xF3\xA0\x98\xBA" => "",                     # U+E063A => 
+"\xF3\xA0\x98\xBB" => "",                     # U+E063B => 
+"\xF3\xA0\x98\xBC" => "",                     # U+E063C => 
+"\xF3\xA0\x98\xBD" => "",                     # U+E063D => 
+"\xF3\xA0\x98\xBE" => "",                     # U+E063E => 
+"\xF3\xA0\x98\xBF" => "",                     # U+E063F => 
+"\xF3\xA0\x99\x80" => "",                     # U+E0640 => 
+"\xF3\xA0\x99\x81" => "",                     # U+E0641 => 
+"\xF3\xA0\x99\x82" => "",                     # U+E0642 => 
+"\xF3\xA0\x99\x83" => "",                     # U+E0643 => 
+"\xF3\xA0\x99\x84" => "",                     # U+E0644 => 
+"\xF3\xA0\x99\x85" => "",                     # U+E0645 => 
+"\xF3\xA0\x99\x86" => "",                     # U+E0646 => 
+"\xF3\xA0\x99\x87" => "",                     # U+E0647 => 
+"\xF3\xA0\x99\x88" => "",                     # U+E0648 => 
+"\xF3\xA0\x99\x89" => "",                     # U+E0649 => 
+"\xF3\xA0\x99\x8A" => "",                     # U+E064A => 
+"\xF3\xA0\x99\x8B" => "",                     # U+E064B => 
+"\xF3\xA0\x99\x8C" => "",                     # U+E064C => 
+"\xF3\xA0\x99\x8D" => "",                     # U+E064D => 
+"\xF3\xA0\x99\x8E" => "",                     # U+E064E => 
+"\xF3\xA0\x99\x8F" => "",                     # U+E064F => 
+"\xF3\xA0\x99\x90" => "",                     # U+E0650 => 
+"\xF3\xA0\x99\x91" => "",                     # U+E0651 => 
+"\xF3\xA0\x99\x92" => "",                     # U+E0652 => 
+"\xF3\xA0\x99\x93" => "",                     # U+E0653 => 
+"\xF3\xA0\x99\x94" => "",                     # U+E0654 => 
+"\xF3\xA0\x99\x95" => "",                     # U+E0655 => 
+"\xF3\xA0\x99\x96" => "",                     # U+E0656 => 
+"\xF3\xA0\x99\x97" => "",                     # U+E0657 => 
+"\xF3\xA0\x99\x98" => "",                     # U+E0658 => 
+"\xF3\xA0\x99\x99" => "",                     # U+E0659 => 
+"\xF3\xA0\x99\x9A" => "",                     # U+E065A => 
+"\xF3\xA0\x99\x9B" => "",                     # U+E065B => 
+"\xF3\xA0\x99\x9C" => "",                     # U+E065C => 
+"\xF3\xA0\x99\x9D" => "",                     # U+E065D => 
+"\xF3\xA0\x99\x9E" => "",                     # U+E065E => 
+"\xF3\xA0\x99\x9F" => "",                     # U+E065F => 
+"\xF3\xA0\x99\xA0" => "",                     # U+E0660 => 
+"\xF3\xA0\x99\xA1" => "",                     # U+E0661 => 
+"\xF3\xA0\x99\xA2" => "",                     # U+E0662 => 
+"\xF3\xA0\x99\xA3" => "",                     # U+E0663 => 
+"\xF3\xA0\x99\xA4" => "",                     # U+E0664 => 
+"\xF3\xA0\x99\xA5" => "",                     # U+E0665 => 
+"\xF3\xA0\x99\xA6" => "",                     # U+E0666 => 
+"\xF3\xA0\x99\xA7" => "",                     # U+E0667 => 
+"\xF3\xA0\x99\xA8" => "",                     # U+E0668 => 
+"\xF3\xA0\x99\xA9" => "",                     # U+E0669 => 
+"\xF3\xA0\x99\xAA" => "",                     # U+E066A => 
+"\xF3\xA0\x99\xAB" => "",                     # U+E066B => 
+"\xF3\xA0\x99\xAC" => "",                     # U+E066C => 
+"\xF3\xA0\x99\xAD" => "",                     # U+E066D => 
+"\xF3\xA0\x99\xAE" => "",                     # U+E066E => 
+"\xF3\xA0\x99\xAF" => "",                     # U+E066F => 
+"\xF3\xA0\x99\xB0" => "",                     # U+E0670 => 
+"\xF3\xA0\x99\xB1" => "",                     # U+E0671 => 
+"\xF3\xA0\x99\xB2" => "",                     # U+E0672 => 
+"\xF3\xA0\x99\xB3" => "",                     # U+E0673 => 
+"\xF3\xA0\x99\xB4" => "",                     # U+E0674 => 
+"\xF3\xA0\x99\xB5" => "",                     # U+E0675 => 
+"\xF3\xA0\x99\xB6" => "",                     # U+E0676 => 
+"\xF3\xA0\x99\xB7" => "",                     # U+E0677 => 
+"\xF3\xA0\x99\xB8" => "",                     # U+E0678 => 
+"\xF3\xA0\x99\xB9" => "",                     # U+E0679 => 
+"\xF3\xA0\x99\xBA" => "",                     # U+E067A => 
+"\xF3\xA0\x99\xBB" => "",                     # U+E067B => 
+"\xF3\xA0\x99\xBC" => "",                     # U+E067C => 
+"\xF3\xA0\x99\xBD" => "",                     # U+E067D => 
+"\xF3\xA0\x99\xBE" => "",                     # U+E067E => 
+"\xF3\xA0\x99\xBF" => "",                     # U+E067F => 
+"\xF3\xA0\x9A\x80" => "",                     # U+E0680 => 
+"\xF3\xA0\x9A\x81" => "",                     # U+E0681 => 
+"\xF3\xA0\x9A\x82" => "",                     # U+E0682 => 
+"\xF3\xA0\x9A\x83" => "",                     # U+E0683 => 
+"\xF3\xA0\x9A\x84" => "",                     # U+E0684 => 
+"\xF3\xA0\x9A\x85" => "",                     # U+E0685 => 
+"\xF3\xA0\x9A\x86" => "",                     # U+E0686 => 
+"\xF3\xA0\x9A\x87" => "",                     # U+E0687 => 
+"\xF3\xA0\x9A\x88" => "",                     # U+E0688 => 
+"\xF3\xA0\x9A\x89" => "",                     # U+E0689 => 
+"\xF3\xA0\x9A\x8A" => "",                     # U+E068A => 
+"\xF3\xA0\x9A\x8B" => "",                     # U+E068B => 
+"\xF3\xA0\x9A\x8C" => "",                     # U+E068C => 
+"\xF3\xA0\x9A\x8D" => "",                     # U+E068D => 
+"\xF3\xA0\x9A\x8E" => "",                     # U+E068E => 
+"\xF3\xA0\x9A\x8F" => "",                     # U+E068F => 
+"\xF3\xA0\x9A\x90" => "",                     # U+E0690 => 
+"\xF3\xA0\x9A\x91" => "",                     # U+E0691 => 
+"\xF3\xA0\x9A\x92" => "",                     # U+E0692 => 
+"\xF3\xA0\x9A\x93" => "",                     # U+E0693 => 
+"\xF3\xA0\x9A\x94" => "",                     # U+E0694 => 
+"\xF3\xA0\x9A\x95" => "",                     # U+E0695 => 
+"\xF3\xA0\x9A\x96" => "",                     # U+E0696 => 
+"\xF3\xA0\x9A\x97" => "",                     # U+E0697 => 
+"\xF3\xA0\x9A\x98" => "",                     # U+E0698 => 
+"\xF3\xA0\x9A\x99" => "",                     # U+E0699 => 
+"\xF3\xA0\x9A\x9A" => "",                     # U+E069A => 
+"\xF3\xA0\x9A\x9B" => "",                     # U+E069B => 
+"\xF3\xA0\x9A\x9C" => "",                     # U+E069C => 
+"\xF3\xA0\x9A\x9D" => "",                     # U+E069D => 
+"\xF3\xA0\x9A\x9E" => "",                     # U+E069E => 
+"\xF3\xA0\x9A\x9F" => "",                     # U+E069F => 
+"\xF3\xA0\x9A\xA0" => "",                     # U+E06A0 => 
+"\xF3\xA0\x9A\xA1" => "",                     # U+E06A1 => 
+"\xF3\xA0\x9A\xA2" => "",                     # U+E06A2 => 
+"\xF3\xA0\x9A\xA3" => "",                     # U+E06A3 => 
+"\xF3\xA0\x9A\xA4" => "",                     # U+E06A4 => 
+"\xF3\xA0\x9A\xA5" => "",                     # U+E06A5 => 
+"\xF3\xA0\x9A\xA6" => "",                     # U+E06A6 => 
+"\xF3\xA0\x9A\xA7" => "",                     # U+E06A7 => 
+"\xF3\xA0\x9A\xA8" => "",                     # U+E06A8 => 
+"\xF3\xA0\x9A\xA9" => "",                     # U+E06A9 => 
+"\xF3\xA0\x9A\xAA" => "",                     # U+E06AA => 
+"\xF3\xA0\x9A\xAB" => "",                     # U+E06AB => 
+"\xF3\xA0\x9A\xAC" => "",                     # U+E06AC => 
+"\xF3\xA0\x9A\xAD" => "",                     # U+E06AD => 
+"\xF3\xA0\x9A\xAE" => "",                     # U+E06AE => 
+"\xF3\xA0\x9A\xAF" => "",                     # U+E06AF => 
+"\xF3\xA0\x9A\xB0" => "",                     # U+E06B0 => 
+"\xF3\xA0\x9A\xB1" => "",                     # U+E06B1 => 
+"\xF3\xA0\x9A\xB2" => "",                     # U+E06B2 => 
+"\xF3\xA0\x9A\xB3" => "",                     # U+E06B3 => 
+"\xF3\xA0\x9A\xB4" => "",                     # U+E06B4 => 
+"\xF3\xA0\x9A\xB5" => "",                     # U+E06B5 => 
+"\xF3\xA0\x9A\xB6" => "",                     # U+E06B6 => 
+"\xF3\xA0\x9A\xB7" => "",                     # U+E06B7 => 
+"\xF3\xA0\x9A\xB8" => "",                     # U+E06B8 => 
+"\xF3\xA0\x9A\xB9" => "",                     # U+E06B9 => 
+"\xF3\xA0\x9A\xBA" => "",                     # U+E06BA => 
+"\xF3\xA0\x9A\xBB" => "",                     # U+E06BB => 
+"\xF3\xA0\x9A\xBC" => "",                     # U+E06BC => 
+"\xF3\xA0\x9A\xBD" => "",                     # U+E06BD => 
+"\xF3\xA0\x9A\xBE" => "",                     # U+E06BE => 
+"\xF3\xA0\x9A\xBF" => "",                     # U+E06BF => 
+"\xF3\xA0\x9B\x80" => "",                     # U+E06C0 => 
+"\xF3\xA0\x9B\x81" => "",                     # U+E06C1 => 
+"\xF3\xA0\x9B\x82" => "",                     # U+E06C2 => 
+"\xF3\xA0\x9B\x83" => "",                     # U+E06C3 => 
+"\xF3\xA0\x9B\x84" => "",                     # U+E06C4 => 
+"\xF3\xA0\x9B\x85" => "",                     # U+E06C5 => 
+"\xF3\xA0\x9B\x86" => "",                     # U+E06C6 => 
+"\xF3\xA0\x9B\x87" => "",                     # U+E06C7 => 
+"\xF3\xA0\x9B\x88" => "",                     # U+E06C8 => 
+"\xF3\xA0\x9B\x89" => "",                     # U+E06C9 => 
+"\xF3\xA0\x9B\x8A" => "",                     # U+E06CA => 
+"\xF3\xA0\x9B\x8B" => "",                     # U+E06CB => 
+"\xF3\xA0\x9B\x8C" => "",                     # U+E06CC => 
+"\xF3\xA0\x9B\x8D" => "",                     # U+E06CD => 
+"\xF3\xA0\x9B\x8E" => "",                     # U+E06CE => 
+"\xF3\xA0\x9B\x8F" => "",                     # U+E06CF => 
+"\xF3\xA0\x9B\x90" => "",                     # U+E06D0 => 
+"\xF3\xA0\x9B\x91" => "",                     # U+E06D1 => 
+"\xF3\xA0\x9B\x92" => "",                     # U+E06D2 => 
+"\xF3\xA0\x9B\x93" => "",                     # U+E06D3 => 
+"\xF3\xA0\x9B\x94" => "",                     # U+E06D4 => 
+"\xF3\xA0\x9B\x95" => "",                     # U+E06D5 => 
+"\xF3\xA0\x9B\x96" => "",                     # U+E06D6 => 
+"\xF3\xA0\x9B\x97" => "",                     # U+E06D7 => 
+"\xF3\xA0\x9B\x98" => "",                     # U+E06D8 => 
+"\xF3\xA0\x9B\x99" => "",                     # U+E06D9 => 
+"\xF3\xA0\x9B\x9A" => "",                     # U+E06DA => 
+"\xF3\xA0\x9B\x9B" => "",                     # U+E06DB => 
+"\xF3\xA0\x9B\x9C" => "",                     # U+E06DC => 
+"\xF3\xA0\x9B\x9D" => "",                     # U+E06DD => 
+"\xF3\xA0\x9B\x9E" => "",                     # U+E06DE => 
+"\xF3\xA0\x9B\x9F" => "",                     # U+E06DF => 
+"\xF3\xA0\x9B\xA0" => "",                     # U+E06E0 => 
+"\xF3\xA0\x9B\xA1" => "",                     # U+E06E1 => 
+"\xF3\xA0\x9B\xA2" => "",                     # U+E06E2 => 
+"\xF3\xA0\x9B\xA3" => "",                     # U+E06E3 => 
+"\xF3\xA0\x9B\xA4" => "",                     # U+E06E4 => 
+"\xF3\xA0\x9B\xA5" => "",                     # U+E06E5 => 
+"\xF3\xA0\x9B\xA6" => "",                     # U+E06E6 => 
+"\xF3\xA0\x9B\xA7" => "",                     # U+E06E7 => 
+"\xF3\xA0\x9B\xA8" => "",                     # U+E06E8 => 
+"\xF3\xA0\x9B\xA9" => "",                     # U+E06E9 => 
+"\xF3\xA0\x9B\xAA" => "",                     # U+E06EA => 
+"\xF3\xA0\x9B\xAB" => "",                     # U+E06EB => 
+"\xF3\xA0\x9B\xAC" => "",                     # U+E06EC => 
+"\xF3\xA0\x9B\xAD" => "",                     # U+E06ED => 
+"\xF3\xA0\x9B\xAE" => "",                     # U+E06EE => 
+"\xF3\xA0\x9B\xAF" => "",                     # U+E06EF => 
+"\xF3\xA0\x9B\xB0" => "",                     # U+E06F0 => 
+"\xF3\xA0\x9B\xB1" => "",                     # U+E06F1 => 
+"\xF3\xA0\x9B\xB2" => "",                     # U+E06F2 => 
+"\xF3\xA0\x9B\xB3" => "",                     # U+E06F3 => 
+"\xF3\xA0\x9B\xB4" => "",                     # U+E06F4 => 
+"\xF3\xA0\x9B\xB5" => "",                     # U+E06F5 => 
+"\xF3\xA0\x9B\xB6" => "",                     # U+E06F6 => 
+"\xF3\xA0\x9B\xB7" => "",                     # U+E06F7 => 
+"\xF3\xA0\x9B\xB8" => "",                     # U+E06F8 => 
+"\xF3\xA0\x9B\xB9" => "",                     # U+E06F9 => 
+"\xF3\xA0\x9B\xBA" => "",                     # U+E06FA => 
+"\xF3\xA0\x9B\xBB" => "",                     # U+E06FB => 
+"\xF3\xA0\x9B\xBC" => "",                     # U+E06FC => 
+"\xF3\xA0\x9B\xBD" => "",                     # U+E06FD => 
+"\xF3\xA0\x9B\xBE" => "",                     # U+E06FE => 
+"\xF3\xA0\x9B\xBF" => "",                     # U+E06FF => 
+"\xF3\xA0\x9C\x80" => "",                     # U+E0700 => 
+"\xF3\xA0\x9C\x81" => "",                     # U+E0701 => 
+"\xF3\xA0\x9C\x82" => "",                     # U+E0702 => 
+"\xF3\xA0\x9C\x83" => "",                     # U+E0703 => 
+"\xF3\xA0\x9C\x84" => "",                     # U+E0704 => 
+"\xF3\xA0\x9C\x85" => "",                     # U+E0705 => 
+"\xF3\xA0\x9C\x86" => "",                     # U+E0706 => 
+"\xF3\xA0\x9C\x87" => "",                     # U+E0707 => 
+"\xF3\xA0\x9C\x88" => "",                     # U+E0708 => 
+"\xF3\xA0\x9C\x89" => "",                     # U+E0709 => 
+"\xF3\xA0\x9C\x8A" => "",                     # U+E070A => 
+"\xF3\xA0\x9C\x8B" => "",                     # U+E070B => 
+"\xF3\xA0\x9C\x8C" => "",                     # U+E070C => 
+"\xF3\xA0\x9C\x8D" => "",                     # U+E070D => 
+"\xF3\xA0\x9C\x8E" => "",                     # U+E070E => 
+"\xF3\xA0\x9C\x8F" => "",                     # U+E070F => 
+"\xF3\xA0\x9C\x90" => "",                     # U+E0710 => 
+"\xF3\xA0\x9C\x91" => "",                     # U+E0711 => 
+"\xF3\xA0\x9C\x92" => "",                     # U+E0712 => 
+"\xF3\xA0\x9C\x93" => "",                     # U+E0713 => 
+"\xF3\xA0\x9C\x94" => "",                     # U+E0714 => 
+"\xF3\xA0\x9C\x95" => "",                     # U+E0715 => 
+"\xF3\xA0\x9C\x96" => "",                     # U+E0716 => 
+"\xF3\xA0\x9C\x97" => "",                     # U+E0717 => 
+"\xF3\xA0\x9C\x98" => "",                     # U+E0718 => 
+"\xF3\xA0\x9C\x99" => "",                     # U+E0719 => 
+"\xF3\xA0\x9C\x9A" => "",                     # U+E071A => 
+"\xF3\xA0\x9C\x9B" => "",                     # U+E071B => 
+"\xF3\xA0\x9C\x9C" => "",                     # U+E071C => 
+"\xF3\xA0\x9C\x9D" => "",                     # U+E071D => 
+"\xF3\xA0\x9C\x9E" => "",                     # U+E071E => 
+"\xF3\xA0\x9C\x9F" => "",                     # U+E071F => 
+"\xF3\xA0\x9C\xA0" => "",                     # U+E0720 => 
+"\xF3\xA0\x9C\xA1" => "",                     # U+E0721 => 
+"\xF3\xA0\x9C\xA2" => "",                     # U+E0722 => 
+"\xF3\xA0\x9C\xA3" => "",                     # U+E0723 => 
+"\xF3\xA0\x9C\xA4" => "",                     # U+E0724 => 
+"\xF3\xA0\x9C\xA5" => "",                     # U+E0725 => 
+"\xF3\xA0\x9C\xA6" => "",                     # U+E0726 => 
+"\xF3\xA0\x9C\xA7" => "",                     # U+E0727 => 
+"\xF3\xA0\x9C\xA8" => "",                     # U+E0728 => 
+"\xF3\xA0\x9C\xA9" => "",                     # U+E0729 => 
+"\xF3\xA0\x9C\xAA" => "",                     # U+E072A => 
+"\xF3\xA0\x9C\xAB" => "",                     # U+E072B => 
+"\xF3\xA0\x9C\xAC" => "",                     # U+E072C => 
+"\xF3\xA0\x9C\xAD" => "",                     # U+E072D => 
+"\xF3\xA0\x9C\xAE" => "",                     # U+E072E => 
+"\xF3\xA0\x9C\xAF" => "",                     # U+E072F => 
+"\xF3\xA0\x9C\xB0" => "",                     # U+E0730 => 
+"\xF3\xA0\x9C\xB1" => "",                     # U+E0731 => 
+"\xF3\xA0\x9C\xB2" => "",                     # U+E0732 => 
+"\xF3\xA0\x9C\xB3" => "",                     # U+E0733 => 
+"\xF3\xA0\x9C\xB4" => "",                     # U+E0734 => 
+"\xF3\xA0\x9C\xB5" => "",                     # U+E0735 => 
+"\xF3\xA0\x9C\xB6" => "",                     # U+E0736 => 
+"\xF3\xA0\x9C\xB7" => "",                     # U+E0737 => 
+"\xF3\xA0\x9C\xB8" => "",                     # U+E0738 => 
+"\xF3\xA0\x9C\xB9" => "",                     # U+E0739 => 
+"\xF3\xA0\x9C\xBA" => "",                     # U+E073A => 
+"\xF3\xA0\x9C\xBB" => "",                     # U+E073B => 
+"\xF3\xA0\x9C\xBC" => "",                     # U+E073C => 
+"\xF3\xA0\x9C\xBD" => "",                     # U+E073D => 
+"\xF3\xA0\x9C\xBE" => "",                     # U+E073E => 
+"\xF3\xA0\x9C\xBF" => "",                     # U+E073F => 
+"\xF3\xA0\x9D\x80" => "",                     # U+E0740 => 
+"\xF3\xA0\x9D\x81" => "",                     # U+E0741 => 
+"\xF3\xA0\x9D\x82" => "",                     # U+E0742 => 
+"\xF3\xA0\x9D\x83" => "",                     # U+E0743 => 
+"\xF3\xA0\x9D\x84" => "",                     # U+E0744 => 
+"\xF3\xA0\x9D\x85" => "",                     # U+E0745 => 
+"\xF3\xA0\x9D\x86" => "",                     # U+E0746 => 
+"\xF3\xA0\x9D\x87" => "",                     # U+E0747 => 
+"\xF3\xA0\x9D\x88" => "",                     # U+E0748 => 
+"\xF3\xA0\x9D\x89" => "",                     # U+E0749 => 
+"\xF3\xA0\x9D\x8A" => "",                     # U+E074A => 
+"\xF3\xA0\x9D\x8B" => "",                     # U+E074B => 
+"\xF3\xA0\x9D\x8C" => "",                     # U+E074C => 
+"\xF3\xA0\x9D\x8D" => "",                     # U+E074D => 
+"\xF3\xA0\x9D\x8E" => "",                     # U+E074E => 
+"\xF3\xA0\x9D\x8F" => "",                     # U+E074F => 
+"\xF3\xA0\x9D\x90" => "",                     # U+E0750 => 
+"\xF3\xA0\x9D\x91" => "",                     # U+E0751 => 
+"\xF3\xA0\x9D\x92" => "",                     # U+E0752 => 
+"\xF3\xA0\x9D\x93" => "",                     # U+E0753 => 
+"\xF3\xA0\x9D\x94" => "",                     # U+E0754 => 
+"\xF3\xA0\x9D\x95" => "",                     # U+E0755 => 
+"\xF3\xA0\x9D\x96" => "",                     # U+E0756 => 
+"\xF3\xA0\x9D\x97" => "",                     # U+E0757 => 
+"\xF3\xA0\x9D\x98" => "",                     # U+E0758 => 
+"\xF3\xA0\x9D\x99" => "",                     # U+E0759 => 
+"\xF3\xA0\x9D\x9A" => "",                     # U+E075A => 
+"\xF3\xA0\x9D\x9B" => "",                     # U+E075B => 
+"\xF3\xA0\x9D\x9C" => "",                     # U+E075C => 
+"\xF3\xA0\x9D\x9D" => "",                     # U+E075D => 
+"\xF3\xA0\x9D\x9E" => "",                     # U+E075E => 
+"\xF3\xA0\x9D\x9F" => "",                     # U+E075F => 
+"\xF3\xA0\x9D\xA0" => "",                     # U+E0760 => 
+"\xF3\xA0\x9D\xA1" => "",                     # U+E0761 => 
+"\xF3\xA0\x9D\xA2" => "",                     # U+E0762 => 
+"\xF3\xA0\x9D\xA3" => "",                     # U+E0763 => 
+"\xF3\xA0\x9D\xA4" => "",                     # U+E0764 => 
+"\xF3\xA0\x9D\xA5" => "",                     # U+E0765 => 
+"\xF3\xA0\x9D\xA6" => "",                     # U+E0766 => 
+"\xF3\xA0\x9D\xA7" => "",                     # U+E0767 => 
+"\xF3\xA0\x9D\xA8" => "",                     # U+E0768 => 
+"\xF3\xA0\x9D\xA9" => "",                     # U+E0769 => 
+"\xF3\xA0\x9D\xAA" => "",                     # U+E076A => 
+"\xF3\xA0\x9D\xAB" => "",                     # U+E076B => 
+"\xF3\xA0\x9D\xAC" => "",                     # U+E076C => 
+"\xF3\xA0\x9D\xAD" => "",                     # U+E076D => 
+"\xF3\xA0\x9D\xAE" => "",                     # U+E076E => 
+"\xF3\xA0\x9D\xAF" => "",                     # U+E076F => 
+"\xF3\xA0\x9D\xB0" => "",                     # U+E0770 => 
+"\xF3\xA0\x9D\xB1" => "",                     # U+E0771 => 
+"\xF3\xA0\x9D\xB2" => "",                     # U+E0772 => 
+"\xF3\xA0\x9D\xB3" => "",                     # U+E0773 => 
+"\xF3\xA0\x9D\xB4" => "",                     # U+E0774 => 
+"\xF3\xA0\x9D\xB5" => "",                     # U+E0775 => 
+"\xF3\xA0\x9D\xB6" => "",                     # U+E0776 => 
+"\xF3\xA0\x9D\xB7" => "",                     # U+E0777 => 
+"\xF3\xA0\x9D\xB8" => "",                     # U+E0778 => 
+"\xF3\xA0\x9D\xB9" => "",                     # U+E0779 => 
+"\xF3\xA0\x9D\xBA" => "",                     # U+E077A => 
+"\xF3\xA0\x9D\xBB" => "",                     # U+E077B => 
+"\xF3\xA0\x9D\xBC" => "",                     # U+E077C => 
+"\xF3\xA0\x9D\xBD" => "",                     # U+E077D => 
+"\xF3\xA0\x9D\xBE" => "",                     # U+E077E => 
+"\xF3\xA0\x9D\xBF" => "",                     # U+E077F => 
+"\xF3\xA0\x9E\x80" => "",                     # U+E0780 => 
+"\xF3\xA0\x9E\x81" => "",                     # U+E0781 => 
+"\xF3\xA0\x9E\x82" => "",                     # U+E0782 => 
+"\xF3\xA0\x9E\x83" => "",                     # U+E0783 => 
+"\xF3\xA0\x9E\x84" => "",                     # U+E0784 => 
+"\xF3\xA0\x9E\x85" => "",                     # U+E0785 => 
+"\xF3\xA0\x9E\x86" => "",                     # U+E0786 => 
+"\xF3\xA0\x9E\x87" => "",                     # U+E0787 => 
+"\xF3\xA0\x9E\x88" => "",                     # U+E0788 => 
+"\xF3\xA0\x9E\x89" => "",                     # U+E0789 => 
+"\xF3\xA0\x9E\x8A" => "",                     # U+E078A => 
+"\xF3\xA0\x9E\x8B" => "",                     # U+E078B => 
+"\xF3\xA0\x9E\x8C" => "",                     # U+E078C => 
+"\xF3\xA0\x9E\x8D" => "",                     # U+E078D => 
+"\xF3\xA0\x9E\x8E" => "",                     # U+E078E => 
+"\xF3\xA0\x9E\x8F" => "",                     # U+E078F => 
+"\xF3\xA0\x9E\x90" => "",                     # U+E0790 => 
+"\xF3\xA0\x9E\x91" => "",                     # U+E0791 => 
+"\xF3\xA0\x9E\x92" => "",                     # U+E0792 => 
+"\xF3\xA0\x9E\x93" => "",                     # U+E0793 => 
+"\xF3\xA0\x9E\x94" => "",                     # U+E0794 => 
+"\xF3\xA0\x9E\x95" => "",                     # U+E0795 => 
+"\xF3\xA0\x9E\x96" => "",                     # U+E0796 => 
+"\xF3\xA0\x9E\x97" => "",                     # U+E0797 => 
+"\xF3\xA0\x9E\x98" => "",                     # U+E0798 => 
+"\xF3\xA0\x9E\x99" => "",                     # U+E0799 => 
+"\xF3\xA0\x9E\x9A" => "",                     # U+E079A => 
+"\xF3\xA0\x9E\x9B" => "",                     # U+E079B => 
+"\xF3\xA0\x9E\x9C" => "",                     # U+E079C => 
+"\xF3\xA0\x9E\x9D" => "",                     # U+E079D => 
+"\xF3\xA0\x9E\x9E" => "",                     # U+E079E => 
+"\xF3\xA0\x9E\x9F" => "",                     # U+E079F => 
+"\xF3\xA0\x9E\xA0" => "",                     # U+E07A0 => 
+"\xF3\xA0\x9E\xA1" => "",                     # U+E07A1 => 
+"\xF3\xA0\x9E\xA2" => "",                     # U+E07A2 => 
+"\xF3\xA0\x9E\xA3" => "",                     # U+E07A3 => 
+"\xF3\xA0\x9E\xA4" => "",                     # U+E07A4 => 
+"\xF3\xA0\x9E\xA5" => "",                     # U+E07A5 => 
+"\xF3\xA0\x9E\xA6" => "",                     # U+E07A6 => 
+"\xF3\xA0\x9E\xA7" => "",                     # U+E07A7 => 
+"\xF3\xA0\x9E\xA8" => "",                     # U+E07A8 => 
+"\xF3\xA0\x9E\xA9" => "",                     # U+E07A9 => 
+"\xF3\xA0\x9E\xAA" => "",                     # U+E07AA => 
+"\xF3\xA0\x9E\xAB" => "",                     # U+E07AB => 
+"\xF3\xA0\x9E\xAC" => "",                     # U+E07AC => 
+"\xF3\xA0\x9E\xAD" => "",                     # U+E07AD => 
+"\xF3\xA0\x9E\xAE" => "",                     # U+E07AE => 
+"\xF3\xA0\x9E\xAF" => "",                     # U+E07AF => 
+"\xF3\xA0\x9E\xB0" => "",                     # U+E07B0 => 
+"\xF3\xA0\x9E\xB1" => "",                     # U+E07B1 => 
+"\xF3\xA0\x9E\xB2" => "",                     # U+E07B2 => 
+"\xF3\xA0\x9E\xB3" => "",                     # U+E07B3 => 
+"\xF3\xA0\x9E\xB4" => "",                     # U+E07B4 => 
+"\xF3\xA0\x9E\xB5" => "",                     # U+E07B5 => 
+"\xF3\xA0\x9E\xB6" => "",                     # U+E07B6 => 
+"\xF3\xA0\x9E\xB7" => "",                     # U+E07B7 => 
+"\xF3\xA0\x9E\xB8" => "",                     # U+E07B8 => 
+"\xF3\xA0\x9E\xB9" => "",                     # U+E07B9 => 
+"\xF3\xA0\x9E\xBA" => "",                     # U+E07BA => 
+"\xF3\xA0\x9E\xBB" => "",                     # U+E07BB => 
+"\xF3\xA0\x9E\xBC" => "",                     # U+E07BC => 
+"\xF3\xA0\x9E\xBD" => "",                     # U+E07BD => 
+"\xF3\xA0\x9E\xBE" => "",                     # U+E07BE => 
+"\xF3\xA0\x9E\xBF" => "",                     # U+E07BF => 
+"\xF3\xA0\x9F\x80" => "",                     # U+E07C0 => 
+"\xF3\xA0\x9F\x81" => "",                     # U+E07C1 => 
+"\xF3\xA0\x9F\x82" => "",                     # U+E07C2 => 
+"\xF3\xA0\x9F\x83" => "",                     # U+E07C3 => 
+"\xF3\xA0\x9F\x84" => "",                     # U+E07C4 => 
+"\xF3\xA0\x9F\x85" => "",                     # U+E07C5 => 
+"\xF3\xA0\x9F\x86" => "",                     # U+E07C6 => 
+"\xF3\xA0\x9F\x87" => "",                     # U+E07C7 => 
+"\xF3\xA0\x9F\x88" => "",                     # U+E07C8 => 
+"\xF3\xA0\x9F\x89" => "",                     # U+E07C9 => 
+"\xF3\xA0\x9F\x8A" => "",                     # U+E07CA => 
+"\xF3\xA0\x9F\x8B" => "",                     # U+E07CB => 
+"\xF3\xA0\x9F\x8C" => "",                     # U+E07CC => 
+"\xF3\xA0\x9F\x8D" => "",                     # U+E07CD => 
+"\xF3\xA0\x9F\x8E" => "",                     # U+E07CE => 
+"\xF3\xA0\x9F\x8F" => "",                     # U+E07CF => 
+"\xF3\xA0\x9F\x90" => "",                     # U+E07D0 => 
+"\xF3\xA0\x9F\x91" => "",                     # U+E07D1 => 
+"\xF3\xA0\x9F\x92" => "",                     # U+E07D2 => 
+"\xF3\xA0\x9F\x93" => "",                     # U+E07D3 => 
+"\xF3\xA0\x9F\x94" => "",                     # U+E07D4 => 
+"\xF3\xA0\x9F\x95" => "",                     # U+E07D5 => 
+"\xF3\xA0\x9F\x96" => "",                     # U+E07D6 => 
+"\xF3\xA0\x9F\x97" => "",                     # U+E07D7 => 
+"\xF3\xA0\x9F\x98" => "",                     # U+E07D8 => 
+"\xF3\xA0\x9F\x99" => "",                     # U+E07D9 => 
+"\xF3\xA0\x9F\x9A" => "",                     # U+E07DA => 
+"\xF3\xA0\x9F\x9B" => "",                     # U+E07DB => 
+"\xF3\xA0\x9F\x9C" => "",                     # U+E07DC => 
+"\xF3\xA0\x9F\x9D" => "",                     # U+E07DD => 
+"\xF3\xA0\x9F\x9E" => "",                     # U+E07DE => 
+"\xF3\xA0\x9F\x9F" => "",                     # U+E07DF => 
+"\xF3\xA0\x9F\xA0" => "",                     # U+E07E0 => 
+"\xF3\xA0\x9F\xA1" => "",                     # U+E07E1 => 
+"\xF3\xA0\x9F\xA2" => "",                     # U+E07E2 => 
+"\xF3\xA0\x9F\xA3" => "",                     # U+E07E3 => 
+"\xF3\xA0\x9F\xA4" => "",                     # U+E07E4 => 
+"\xF3\xA0\x9F\xA5" => "",                     # U+E07E5 => 
+"\xF3\xA0\x9F\xA6" => "",                     # U+E07E6 => 
+"\xF3\xA0\x9F\xA7" => "",                     # U+E07E7 => 
+"\xF3\xA0\x9F\xA8" => "",                     # U+E07E8 => 
+"\xF3\xA0\x9F\xA9" => "",                     # U+E07E9 => 
+"\xF3\xA0\x9F\xAA" => "",                     # U+E07EA => 
+"\xF3\xA0\x9F\xAB" => "",                     # U+E07EB => 
+"\xF3\xA0\x9F\xAC" => "",                     # U+E07EC => 
+"\xF3\xA0\x9F\xAD" => "",                     # U+E07ED => 
+"\xF3\xA0\x9F\xAE" => "",                     # U+E07EE => 
+"\xF3\xA0\x9F\xAF" => "",                     # U+E07EF => 
+"\xF3\xA0\x9F\xB0" => "",                     # U+E07F0 => 
+"\xF3\xA0\x9F\xB1" => "",                     # U+E07F1 => 
+"\xF3\xA0\x9F\xB2" => "",                     # U+E07F2 => 
+"\xF3\xA0\x9F\xB3" => "",                     # U+E07F3 => 
+"\xF3\xA0\x9F\xB4" => "",                     # U+E07F4 => 
+"\xF3\xA0\x9F\xB5" => "",                     # U+E07F5 => 
+"\xF3\xA0\x9F\xB6" => "",                     # U+E07F6 => 
+"\xF3\xA0\x9F\xB7" => "",                     # U+E07F7 => 
+"\xF3\xA0\x9F\xB8" => "",                     # U+E07F8 => 
+"\xF3\xA0\x9F\xB9" => "",                     # U+E07F9 => 
+"\xF3\xA0\x9F\xBA" => "",                     # U+E07FA => 
+"\xF3\xA0\x9F\xBB" => "",                     # U+E07FB => 
+"\xF3\xA0\x9F\xBC" => "",                     # U+E07FC => 
+"\xF3\xA0\x9F\xBD" => "",                     # U+E07FD => 
+"\xF3\xA0\x9F\xBE" => "",                     # U+E07FE => 
+"\xF3\xA0\x9F\xBF" => "",                     # U+E07FF => 
+"\xF3\xA0\xA0\x80" => "",                     # U+E0800 => 
+"\xF3\xA0\xA0\x81" => "",                     # U+E0801 => 
+"\xF3\xA0\xA0\x82" => "",                     # U+E0802 => 
+"\xF3\xA0\xA0\x83" => "",                     # U+E0803 => 
+"\xF3\xA0\xA0\x84" => "",                     # U+E0804 => 
+"\xF3\xA0\xA0\x85" => "",                     # U+E0805 => 
+"\xF3\xA0\xA0\x86" => "",                     # U+E0806 => 
+"\xF3\xA0\xA0\x87" => "",                     # U+E0807 => 
+"\xF3\xA0\xA0\x88" => "",                     # U+E0808 => 
+"\xF3\xA0\xA0\x89" => "",                     # U+E0809 => 
+"\xF3\xA0\xA0\x8A" => "",                     # U+E080A => 
+"\xF3\xA0\xA0\x8B" => "",                     # U+E080B => 
+"\xF3\xA0\xA0\x8C" => "",                     # U+E080C => 
+"\xF3\xA0\xA0\x8D" => "",                     # U+E080D => 
+"\xF3\xA0\xA0\x8E" => "",                     # U+E080E => 
+"\xF3\xA0\xA0\x8F" => "",                     # U+E080F => 
+"\xF3\xA0\xA0\x90" => "",                     # U+E0810 => 
+"\xF3\xA0\xA0\x91" => "",                     # U+E0811 => 
+"\xF3\xA0\xA0\x92" => "",                     # U+E0812 => 
+"\xF3\xA0\xA0\x93" => "",                     # U+E0813 => 
+"\xF3\xA0\xA0\x94" => "",                     # U+E0814 => 
+"\xF3\xA0\xA0\x95" => "",                     # U+E0815 => 
+"\xF3\xA0\xA0\x96" => "",                     # U+E0816 => 
+"\xF3\xA0\xA0\x97" => "",                     # U+E0817 => 
+"\xF3\xA0\xA0\x98" => "",                     # U+E0818 => 
+"\xF3\xA0\xA0\x99" => "",                     # U+E0819 => 
+"\xF3\xA0\xA0\x9A" => "",                     # U+E081A => 
+"\xF3\xA0\xA0\x9B" => "",                     # U+E081B => 
+"\xF3\xA0\xA0\x9C" => "",                     # U+E081C => 
+"\xF3\xA0\xA0\x9D" => "",                     # U+E081D => 
+"\xF3\xA0\xA0\x9E" => "",                     # U+E081E => 
+"\xF3\xA0\xA0\x9F" => "",                     # U+E081F => 
+"\xF3\xA0\xA0\xA0" => "",                     # U+E0820 => 
+"\xF3\xA0\xA0\xA1" => "",                     # U+E0821 => 
+"\xF3\xA0\xA0\xA2" => "",                     # U+E0822 => 
+"\xF3\xA0\xA0\xA3" => "",                     # U+E0823 => 
+"\xF3\xA0\xA0\xA4" => "",                     # U+E0824 => 
+"\xF3\xA0\xA0\xA5" => "",                     # U+E0825 => 
+"\xF3\xA0\xA0\xA6" => "",                     # U+E0826 => 
+"\xF3\xA0\xA0\xA7" => "",                     # U+E0827 => 
+"\xF3\xA0\xA0\xA8" => "",                     # U+E0828 => 
+"\xF3\xA0\xA0\xA9" => "",                     # U+E0829 => 
+"\xF3\xA0\xA0\xAA" => "",                     # U+E082A => 
+"\xF3\xA0\xA0\xAB" => "",                     # U+E082B => 
+"\xF3\xA0\xA0\xAC" => "",                     # U+E082C => 
+"\xF3\xA0\xA0\xAD" => "",                     # U+E082D => 
+"\xF3\xA0\xA0\xAE" => "",                     # U+E082E => 
+"\xF3\xA0\xA0\xAF" => "",                     # U+E082F => 
+"\xF3\xA0\xA0\xB0" => "",                     # U+E0830 => 
+"\xF3\xA0\xA0\xB1" => "",                     # U+E0831 => 
+"\xF3\xA0\xA0\xB2" => "",                     # U+E0832 => 
+"\xF3\xA0\xA0\xB3" => "",                     # U+E0833 => 
+"\xF3\xA0\xA0\xB4" => "",                     # U+E0834 => 
+"\xF3\xA0\xA0\xB5" => "",                     # U+E0835 => 
+"\xF3\xA0\xA0\xB6" => "",                     # U+E0836 => 
+"\xF3\xA0\xA0\xB7" => "",                     # U+E0837 => 
+"\xF3\xA0\xA0\xB8" => "",                     # U+E0838 => 
+"\xF3\xA0\xA0\xB9" => "",                     # U+E0839 => 
+"\xF3\xA0\xA0\xBA" => "",                     # U+E083A => 
+"\xF3\xA0\xA0\xBB" => "",                     # U+E083B => 
+"\xF3\xA0\xA0\xBC" => "",                     # U+E083C => 
+"\xF3\xA0\xA0\xBD" => "",                     # U+E083D => 
+"\xF3\xA0\xA0\xBE" => "",                     # U+E083E => 
+"\xF3\xA0\xA0\xBF" => "",                     # U+E083F => 
+"\xF3\xA0\xA1\x80" => "",                     # U+E0840 => 
+"\xF3\xA0\xA1\x81" => "",                     # U+E0841 => 
+"\xF3\xA0\xA1\x82" => "",                     # U+E0842 => 
+"\xF3\xA0\xA1\x83" => "",                     # U+E0843 => 
+"\xF3\xA0\xA1\x84" => "",                     # U+E0844 => 
+"\xF3\xA0\xA1\x85" => "",                     # U+E0845 => 
+"\xF3\xA0\xA1\x86" => "",                     # U+E0846 => 
+"\xF3\xA0\xA1\x87" => "",                     # U+E0847 => 
+"\xF3\xA0\xA1\x88" => "",                     # U+E0848 => 
+"\xF3\xA0\xA1\x89" => "",                     # U+E0849 => 
+"\xF3\xA0\xA1\x8A" => "",                     # U+E084A => 
+"\xF3\xA0\xA1\x8B" => "",                     # U+E084B => 
+"\xF3\xA0\xA1\x8C" => "",                     # U+E084C => 
+"\xF3\xA0\xA1\x8D" => "",                     # U+E084D => 
+"\xF3\xA0\xA1\x8E" => "",                     # U+E084E => 
+"\xF3\xA0\xA1\x8F" => "",                     # U+E084F => 
+"\xF3\xA0\xA1\x90" => "",                     # U+E0850 => 
+"\xF3\xA0\xA1\x91" => "",                     # U+E0851 => 
+"\xF3\xA0\xA1\x92" => "",                     # U+E0852 => 
+"\xF3\xA0\xA1\x93" => "",                     # U+E0853 => 
+"\xF3\xA0\xA1\x94" => "",                     # U+E0854 => 
+"\xF3\xA0\xA1\x95" => "",                     # U+E0855 => 
+"\xF3\xA0\xA1\x96" => "",                     # U+E0856 => 
+"\xF3\xA0\xA1\x97" => "",                     # U+E0857 => 
+"\xF3\xA0\xA1\x98" => "",                     # U+E0858 => 
+"\xF3\xA0\xA1\x99" => "",                     # U+E0859 => 
+"\xF3\xA0\xA1\x9A" => "",                     # U+E085A => 
+"\xF3\xA0\xA1\x9B" => "",                     # U+E085B => 
+"\xF3\xA0\xA1\x9C" => "",                     # U+E085C => 
+"\xF3\xA0\xA1\x9D" => "",                     # U+E085D => 
+"\xF3\xA0\xA1\x9E" => "",                     # U+E085E => 
+"\xF3\xA0\xA1\x9F" => "",                     # U+E085F => 
+"\xF3\xA0\xA1\xA0" => "",                     # U+E0860 => 
+"\xF3\xA0\xA1\xA1" => "",                     # U+E0861 => 
+"\xF3\xA0\xA1\xA2" => "",                     # U+E0862 => 
+"\xF3\xA0\xA1\xA3" => "",                     # U+E0863 => 
+"\xF3\xA0\xA1\xA4" => "",                     # U+E0864 => 
+"\xF3\xA0\xA1\xA5" => "",                     # U+E0865 => 
+"\xF3\xA0\xA1\xA6" => "",                     # U+E0866 => 
+"\xF3\xA0\xA1\xA7" => "",                     # U+E0867 => 
+"\xF3\xA0\xA1\xA8" => "",                     # U+E0868 => 
+"\xF3\xA0\xA1\xA9" => "",                     # U+E0869 => 
+"\xF3\xA0\xA1\xAA" => "",                     # U+E086A => 
+"\xF3\xA0\xA1\xAB" => "",                     # U+E086B => 
+"\xF3\xA0\xA1\xAC" => "",                     # U+E086C => 
+"\xF3\xA0\xA1\xAD" => "",                     # U+E086D => 
+"\xF3\xA0\xA1\xAE" => "",                     # U+E086E => 
+"\xF3\xA0\xA1\xAF" => "",                     # U+E086F => 
+"\xF3\xA0\xA1\xB0" => "",                     # U+E0870 => 
+"\xF3\xA0\xA1\xB1" => "",                     # U+E0871 => 
+"\xF3\xA0\xA1\xB2" => "",                     # U+E0872 => 
+"\xF3\xA0\xA1\xB3" => "",                     # U+E0873 => 
+"\xF3\xA0\xA1\xB4" => "",                     # U+E0874 => 
+"\xF3\xA0\xA1\xB5" => "",                     # U+E0875 => 
+"\xF3\xA0\xA1\xB6" => "",                     # U+E0876 => 
+"\xF3\xA0\xA1\xB7" => "",                     # U+E0877 => 
+"\xF3\xA0\xA1\xB8" => "",                     # U+E0878 => 
+"\xF3\xA0\xA1\xB9" => "",                     # U+E0879 => 
+"\xF3\xA0\xA1\xBA" => "",                     # U+E087A => 
+"\xF3\xA0\xA1\xBB" => "",                     # U+E087B => 
+"\xF3\xA0\xA1\xBC" => "",                     # U+E087C => 
+"\xF3\xA0\xA1\xBD" => "",                     # U+E087D => 
+"\xF3\xA0\xA1\xBE" => "",                     # U+E087E => 
+"\xF3\xA0\xA1\xBF" => "",                     # U+E087F => 
+"\xF3\xA0\xA2\x80" => "",                     # U+E0880 => 
+"\xF3\xA0\xA2\x81" => "",                     # U+E0881 => 
+"\xF3\xA0\xA2\x82" => "",                     # U+E0882 => 
+"\xF3\xA0\xA2\x83" => "",                     # U+E0883 => 
+"\xF3\xA0\xA2\x84" => "",                     # U+E0884 => 
+"\xF3\xA0\xA2\x85" => "",                     # U+E0885 => 
+"\xF3\xA0\xA2\x86" => "",                     # U+E0886 => 
+"\xF3\xA0\xA2\x87" => "",                     # U+E0887 => 
+"\xF3\xA0\xA2\x88" => "",                     # U+E0888 => 
+"\xF3\xA0\xA2\x89" => "",                     # U+E0889 => 
+"\xF3\xA0\xA2\x8A" => "",                     # U+E088A => 
+"\xF3\xA0\xA2\x8B" => "",                     # U+E088B => 
+"\xF3\xA0\xA2\x8C" => "",                     # U+E088C => 
+"\xF3\xA0\xA2\x8D" => "",                     # U+E088D => 
+"\xF3\xA0\xA2\x8E" => "",                     # U+E088E => 
+"\xF3\xA0\xA2\x8F" => "",                     # U+E088F => 
+"\xF3\xA0\xA2\x90" => "",                     # U+E0890 => 
+"\xF3\xA0\xA2\x91" => "",                     # U+E0891 => 
+"\xF3\xA0\xA2\x92" => "",                     # U+E0892 => 
+"\xF3\xA0\xA2\x93" => "",                     # U+E0893 => 
+"\xF3\xA0\xA2\x94" => "",                     # U+E0894 => 
+"\xF3\xA0\xA2\x95" => "",                     # U+E0895 => 
+"\xF3\xA0\xA2\x96" => "",                     # U+E0896 => 
+"\xF3\xA0\xA2\x97" => "",                     # U+E0897 => 
+"\xF3\xA0\xA2\x98" => "",                     # U+E0898 => 
+"\xF3\xA0\xA2\x99" => "",                     # U+E0899 => 
+"\xF3\xA0\xA2\x9A" => "",                     # U+E089A => 
+"\xF3\xA0\xA2\x9B" => "",                     # U+E089B => 
+"\xF3\xA0\xA2\x9C" => "",                     # U+E089C => 
+"\xF3\xA0\xA2\x9D" => "",                     # U+E089D => 
+"\xF3\xA0\xA2\x9E" => "",                     # U+E089E => 
+"\xF3\xA0\xA2\x9F" => "",                     # U+E089F => 
+"\xF3\xA0\xA2\xA0" => "",                     # U+E08A0 => 
+"\xF3\xA0\xA2\xA1" => "",                     # U+E08A1 => 
+"\xF3\xA0\xA2\xA2" => "",                     # U+E08A2 => 
+"\xF3\xA0\xA2\xA3" => "",                     # U+E08A3 => 
+"\xF3\xA0\xA2\xA4" => "",                     # U+E08A4 => 
+"\xF3\xA0\xA2\xA5" => "",                     # U+E08A5 => 
+"\xF3\xA0\xA2\xA6" => "",                     # U+E08A6 => 
+"\xF3\xA0\xA2\xA7" => "",                     # U+E08A7 => 
+"\xF3\xA0\xA2\xA8" => "",                     # U+E08A8 => 
+"\xF3\xA0\xA2\xA9" => "",                     # U+E08A9 => 
+"\xF3\xA0\xA2\xAA" => "",                     # U+E08AA => 
+"\xF3\xA0\xA2\xAB" => "",                     # U+E08AB => 
+"\xF3\xA0\xA2\xAC" => "",                     # U+E08AC => 
+"\xF3\xA0\xA2\xAD" => "",                     # U+E08AD => 
+"\xF3\xA0\xA2\xAE" => "",                     # U+E08AE => 
+"\xF3\xA0\xA2\xAF" => "",                     # U+E08AF => 
+"\xF3\xA0\xA2\xB0" => "",                     # U+E08B0 => 
+"\xF3\xA0\xA2\xB1" => "",                     # U+E08B1 => 
+"\xF3\xA0\xA2\xB2" => "",                     # U+E08B2 => 
+"\xF3\xA0\xA2\xB3" => "",                     # U+E08B3 => 
+"\xF3\xA0\xA2\xB4" => "",                     # U+E08B4 => 
+"\xF3\xA0\xA2\xB5" => "",                     # U+E08B5 => 
+"\xF3\xA0\xA2\xB6" => "",                     # U+E08B6 => 
+"\xF3\xA0\xA2\xB7" => "",                     # U+E08B7 => 
+"\xF3\xA0\xA2\xB8" => "",                     # U+E08B8 => 
+"\xF3\xA0\xA2\xB9" => "",                     # U+E08B9 => 
+"\xF3\xA0\xA2\xBA" => "",                     # U+E08BA => 
+"\xF3\xA0\xA2\xBB" => "",                     # U+E08BB => 
+"\xF3\xA0\xA2\xBC" => "",                     # U+E08BC => 
+"\xF3\xA0\xA2\xBD" => "",                     # U+E08BD => 
+"\xF3\xA0\xA2\xBE" => "",                     # U+E08BE => 
+"\xF3\xA0\xA2\xBF" => "",                     # U+E08BF => 
+"\xF3\xA0\xA3\x80" => "",                     # U+E08C0 => 
+"\xF3\xA0\xA3\x81" => "",                     # U+E08C1 => 
+"\xF3\xA0\xA3\x82" => "",                     # U+E08C2 => 
+"\xF3\xA0\xA3\x83" => "",                     # U+E08C3 => 
+"\xF3\xA0\xA3\x84" => "",                     # U+E08C4 => 
+"\xF3\xA0\xA3\x85" => "",                     # U+E08C5 => 
+"\xF3\xA0\xA3\x86" => "",                     # U+E08C6 => 
+"\xF3\xA0\xA3\x87" => "",                     # U+E08C7 => 
+"\xF3\xA0\xA3\x88" => "",                     # U+E08C8 => 
+"\xF3\xA0\xA3\x89" => "",                     # U+E08C9 => 
+"\xF3\xA0\xA3\x8A" => "",                     # U+E08CA => 
+"\xF3\xA0\xA3\x8B" => "",                     # U+E08CB => 
+"\xF3\xA0\xA3\x8C" => "",                     # U+E08CC => 
+"\xF3\xA0\xA3\x8D" => "",                     # U+E08CD => 
+"\xF3\xA0\xA3\x8E" => "",                     # U+E08CE => 
+"\xF3\xA0\xA3\x8F" => "",                     # U+E08CF => 
+"\xF3\xA0\xA3\x90" => "",                     # U+E08D0 => 
+"\xF3\xA0\xA3\x91" => "",                     # U+E08D1 => 
+"\xF3\xA0\xA3\x92" => "",                     # U+E08D2 => 
+"\xF3\xA0\xA3\x93" => "",                     # U+E08D3 => 
+"\xF3\xA0\xA3\x94" => "",                     # U+E08D4 => 
+"\xF3\xA0\xA3\x95" => "",                     # U+E08D5 => 
+"\xF3\xA0\xA3\x96" => "",                     # U+E08D6 => 
+"\xF3\xA0\xA3\x97" => "",                     # U+E08D7 => 
+"\xF3\xA0\xA3\x98" => "",                     # U+E08D8 => 
+"\xF3\xA0\xA3\x99" => "",                     # U+E08D9 => 
+"\xF3\xA0\xA3\x9A" => "",                     # U+E08DA => 
+"\xF3\xA0\xA3\x9B" => "",                     # U+E08DB => 
+"\xF3\xA0\xA3\x9C" => "",                     # U+E08DC => 
+"\xF3\xA0\xA3\x9D" => "",                     # U+E08DD => 
+"\xF3\xA0\xA3\x9E" => "",                     # U+E08DE => 
+"\xF3\xA0\xA3\x9F" => "",                     # U+E08DF => 
+"\xF3\xA0\xA3\xA0" => "",                     # U+E08E0 => 
+"\xF3\xA0\xA3\xA1" => "",                     # U+E08E1 => 
+"\xF3\xA0\xA3\xA2" => "",                     # U+E08E2 => 
+"\xF3\xA0\xA3\xA3" => "",                     # U+E08E3 => 
+"\xF3\xA0\xA3\xA4" => "",                     # U+E08E4 => 
+"\xF3\xA0\xA3\xA5" => "",                     # U+E08E5 => 
+"\xF3\xA0\xA3\xA6" => "",                     # U+E08E6 => 
+"\xF3\xA0\xA3\xA7" => "",                     # U+E08E7 => 
+"\xF3\xA0\xA3\xA8" => "",                     # U+E08E8 => 
+"\xF3\xA0\xA3\xA9" => "",                     # U+E08E9 => 
+"\xF3\xA0\xA3\xAA" => "",                     # U+E08EA => 
+"\xF3\xA0\xA3\xAB" => "",                     # U+E08EB => 
+"\xF3\xA0\xA3\xAC" => "",                     # U+E08EC => 
+"\xF3\xA0\xA3\xAD" => "",                     # U+E08ED => 
+"\xF3\xA0\xA3\xAE" => "",                     # U+E08EE => 
+"\xF3\xA0\xA3\xAF" => "",                     # U+E08EF => 
+"\xF3\xA0\xA3\xB0" => "",                     # U+E08F0 => 
+"\xF3\xA0\xA3\xB1" => "",                     # U+E08F1 => 
+"\xF3\xA0\xA3\xB2" => "",                     # U+E08F2 => 
+"\xF3\xA0\xA3\xB3" => "",                     # U+E08F3 => 
+"\xF3\xA0\xA3\xB4" => "",                     # U+E08F4 => 
+"\xF3\xA0\xA3\xB5" => "",                     # U+E08F5 => 
+"\xF3\xA0\xA3\xB6" => "",                     # U+E08F6 => 
+"\xF3\xA0\xA3\xB7" => "",                     # U+E08F7 => 
+"\xF3\xA0\xA3\xB8" => "",                     # U+E08F8 => 
+"\xF3\xA0\xA3\xB9" => "",                     # U+E08F9 => 
+"\xF3\xA0\xA3\xBA" => "",                     # U+E08FA => 
+"\xF3\xA0\xA3\xBB" => "",                     # U+E08FB => 
+"\xF3\xA0\xA3\xBC" => "",                     # U+E08FC => 
+"\xF3\xA0\xA3\xBD" => "",                     # U+E08FD => 
+"\xF3\xA0\xA3\xBE" => "",                     # U+E08FE => 
+"\xF3\xA0\xA3\xBF" => "",                     # U+E08FF => 
+"\xF3\xA0\xA4\x80" => "",                     # U+E0900 => 
+"\xF3\xA0\xA4\x81" => "",                     # U+E0901 => 
+"\xF3\xA0\xA4\x82" => "",                     # U+E0902 => 
+"\xF3\xA0\xA4\x83" => "",                     # U+E0903 => 
+"\xF3\xA0\xA4\x84" => "",                     # U+E0904 => 
+"\xF3\xA0\xA4\x85" => "",                     # U+E0905 => 
+"\xF3\xA0\xA4\x86" => "",                     # U+E0906 => 
+"\xF3\xA0\xA4\x87" => "",                     # U+E0907 => 
+"\xF3\xA0\xA4\x88" => "",                     # U+E0908 => 
+"\xF3\xA0\xA4\x89" => "",                     # U+E0909 => 
+"\xF3\xA0\xA4\x8A" => "",                     # U+E090A => 
+"\xF3\xA0\xA4\x8B" => "",                     # U+E090B => 
+"\xF3\xA0\xA4\x8C" => "",                     # U+E090C => 
+"\xF3\xA0\xA4\x8D" => "",                     # U+E090D => 
+"\xF3\xA0\xA4\x8E" => "",                     # U+E090E => 
+"\xF3\xA0\xA4\x8F" => "",                     # U+E090F => 
+"\xF3\xA0\xA4\x90" => "",                     # U+E0910 => 
+"\xF3\xA0\xA4\x91" => "",                     # U+E0911 => 
+"\xF3\xA0\xA4\x92" => "",                     # U+E0912 => 
+"\xF3\xA0\xA4\x93" => "",                     # U+E0913 => 
+"\xF3\xA0\xA4\x94" => "",                     # U+E0914 => 
+"\xF3\xA0\xA4\x95" => "",                     # U+E0915 => 
+"\xF3\xA0\xA4\x96" => "",                     # U+E0916 => 
+"\xF3\xA0\xA4\x97" => "",                     # U+E0917 => 
+"\xF3\xA0\xA4\x98" => "",                     # U+E0918 => 
+"\xF3\xA0\xA4\x99" => "",                     # U+E0919 => 
+"\xF3\xA0\xA4\x9A" => "",                     # U+E091A => 
+"\xF3\xA0\xA4\x9B" => "",                     # U+E091B => 
+"\xF3\xA0\xA4\x9C" => "",                     # U+E091C => 
+"\xF3\xA0\xA4\x9D" => "",                     # U+E091D => 
+"\xF3\xA0\xA4\x9E" => "",                     # U+E091E => 
+"\xF3\xA0\xA4\x9F" => "",                     # U+E091F => 
+"\xF3\xA0\xA4\xA0" => "",                     # U+E0920 => 
+"\xF3\xA0\xA4\xA1" => "",                     # U+E0921 => 
+"\xF3\xA0\xA4\xA2" => "",                     # U+E0922 => 
+"\xF3\xA0\xA4\xA3" => "",                     # U+E0923 => 
+"\xF3\xA0\xA4\xA4" => "",                     # U+E0924 => 
+"\xF3\xA0\xA4\xA5" => "",                     # U+E0925 => 
+"\xF3\xA0\xA4\xA6" => "",                     # U+E0926 => 
+"\xF3\xA0\xA4\xA7" => "",                     # U+E0927 => 
+"\xF3\xA0\xA4\xA8" => "",                     # U+E0928 => 
+"\xF3\xA0\xA4\xA9" => "",                     # U+E0929 => 
+"\xF3\xA0\xA4\xAA" => "",                     # U+E092A => 
+"\xF3\xA0\xA4\xAB" => "",                     # U+E092B => 
+"\xF3\xA0\xA4\xAC" => "",                     # U+E092C => 
+"\xF3\xA0\xA4\xAD" => "",                     # U+E092D => 
+"\xF3\xA0\xA4\xAE" => "",                     # U+E092E => 
+"\xF3\xA0\xA4\xAF" => "",                     # U+E092F => 
+"\xF3\xA0\xA4\xB0" => "",                     # U+E0930 => 
+"\xF3\xA0\xA4\xB1" => "",                     # U+E0931 => 
+"\xF3\xA0\xA4\xB2" => "",                     # U+E0932 => 
+"\xF3\xA0\xA4\xB3" => "",                     # U+E0933 => 
+"\xF3\xA0\xA4\xB4" => "",                     # U+E0934 => 
+"\xF3\xA0\xA4\xB5" => "",                     # U+E0935 => 
+"\xF3\xA0\xA4\xB6" => "",                     # U+E0936 => 
+"\xF3\xA0\xA4\xB7" => "",                     # U+E0937 => 
+"\xF3\xA0\xA4\xB8" => "",                     # U+E0938 => 
+"\xF3\xA0\xA4\xB9" => "",                     # U+E0939 => 
+"\xF3\xA0\xA4\xBA" => "",                     # U+E093A => 
+"\xF3\xA0\xA4\xBB" => "",                     # U+E093B => 
+"\xF3\xA0\xA4\xBC" => "",                     # U+E093C => 
+"\xF3\xA0\xA4\xBD" => "",                     # U+E093D => 
+"\xF3\xA0\xA4\xBE" => "",                     # U+E093E => 
+"\xF3\xA0\xA4\xBF" => "",                     # U+E093F => 
+"\xF3\xA0\xA5\x80" => "",                     # U+E0940 => 
+"\xF3\xA0\xA5\x81" => "",                     # U+E0941 => 
+"\xF3\xA0\xA5\x82" => "",                     # U+E0942 => 
+"\xF3\xA0\xA5\x83" => "",                     # U+E0943 => 
+"\xF3\xA0\xA5\x84" => "",                     # U+E0944 => 
+"\xF3\xA0\xA5\x85" => "",                     # U+E0945 => 
+"\xF3\xA0\xA5\x86" => "",                     # U+E0946 => 
+"\xF3\xA0\xA5\x87" => "",                     # U+E0947 => 
+"\xF3\xA0\xA5\x88" => "",                     # U+E0948 => 
+"\xF3\xA0\xA5\x89" => "",                     # U+E0949 => 
+"\xF3\xA0\xA5\x8A" => "",                     # U+E094A => 
+"\xF3\xA0\xA5\x8B" => "",                     # U+E094B => 
+"\xF3\xA0\xA5\x8C" => "",                     # U+E094C => 
+"\xF3\xA0\xA5\x8D" => "",                     # U+E094D => 
+"\xF3\xA0\xA5\x8E" => "",                     # U+E094E => 
+"\xF3\xA0\xA5\x8F" => "",                     # U+E094F => 
+"\xF3\xA0\xA5\x90" => "",                     # U+E0950 => 
+"\xF3\xA0\xA5\x91" => "",                     # U+E0951 => 
+"\xF3\xA0\xA5\x92" => "",                     # U+E0952 => 
+"\xF3\xA0\xA5\x93" => "",                     # U+E0953 => 
+"\xF3\xA0\xA5\x94" => "",                     # U+E0954 => 
+"\xF3\xA0\xA5\x95" => "",                     # U+E0955 => 
+"\xF3\xA0\xA5\x96" => "",                     # U+E0956 => 
+"\xF3\xA0\xA5\x97" => "",                     # U+E0957 => 
+"\xF3\xA0\xA5\x98" => "",                     # U+E0958 => 
+"\xF3\xA0\xA5\x99" => "",                     # U+E0959 => 
+"\xF3\xA0\xA5\x9A" => "",                     # U+E095A => 
+"\xF3\xA0\xA5\x9B" => "",                     # U+E095B => 
+"\xF3\xA0\xA5\x9C" => "",                     # U+E095C => 
+"\xF3\xA0\xA5\x9D" => "",                     # U+E095D => 
+"\xF3\xA0\xA5\x9E" => "",                     # U+E095E => 
+"\xF3\xA0\xA5\x9F" => "",                     # U+E095F => 
+"\xF3\xA0\xA5\xA0" => "",                     # U+E0960 => 
+"\xF3\xA0\xA5\xA1" => "",                     # U+E0961 => 
+"\xF3\xA0\xA5\xA2" => "",                     # U+E0962 => 
+"\xF3\xA0\xA5\xA3" => "",                     # U+E0963 => 
+"\xF3\xA0\xA5\xA4" => "",                     # U+E0964 => 
+"\xF3\xA0\xA5\xA5" => "",                     # U+E0965 => 
+"\xF3\xA0\xA5\xA6" => "",                     # U+E0966 => 
+"\xF3\xA0\xA5\xA7" => "",                     # U+E0967 => 
+"\xF3\xA0\xA5\xA8" => "",                     # U+E0968 => 
+"\xF3\xA0\xA5\xA9" => "",                     # U+E0969 => 
+"\xF3\xA0\xA5\xAA" => "",                     # U+E096A => 
+"\xF3\xA0\xA5\xAB" => "",                     # U+E096B => 
+"\xF3\xA0\xA5\xAC" => "",                     # U+E096C => 
+"\xF3\xA0\xA5\xAD" => "",                     # U+E096D => 
+"\xF3\xA0\xA5\xAE" => "",                     # U+E096E => 
+"\xF3\xA0\xA5\xAF" => "",                     # U+E096F => 
+"\xF3\xA0\xA5\xB0" => "",                     # U+E0970 => 
+"\xF3\xA0\xA5\xB1" => "",                     # U+E0971 => 
+"\xF3\xA0\xA5\xB2" => "",                     # U+E0972 => 
+"\xF3\xA0\xA5\xB3" => "",                     # U+E0973 => 
+"\xF3\xA0\xA5\xB4" => "",                     # U+E0974 => 
+"\xF3\xA0\xA5\xB5" => "",                     # U+E0975 => 
+"\xF3\xA0\xA5\xB6" => "",                     # U+E0976 => 
+"\xF3\xA0\xA5\xB7" => "",                     # U+E0977 => 
+"\xF3\xA0\xA5\xB8" => "",                     # U+E0978 => 
+"\xF3\xA0\xA5\xB9" => "",                     # U+E0979 => 
+"\xF3\xA0\xA5\xBA" => "",                     # U+E097A => 
+"\xF3\xA0\xA5\xBB" => "",                     # U+E097B => 
+"\xF3\xA0\xA5\xBC" => "",                     # U+E097C => 
+"\xF3\xA0\xA5\xBD" => "",                     # U+E097D => 
+"\xF3\xA0\xA5\xBE" => "",                     # U+E097E => 
+"\xF3\xA0\xA5\xBF" => "",                     # U+E097F => 
+"\xF3\xA0\xA6\x80" => "",                     # U+E0980 => 
+"\xF3\xA0\xA6\x81" => "",                     # U+E0981 => 
+"\xF3\xA0\xA6\x82" => "",                     # U+E0982 => 
+"\xF3\xA0\xA6\x83" => "",                     # U+E0983 => 
+"\xF3\xA0\xA6\x84" => "",                     # U+E0984 => 
+"\xF3\xA0\xA6\x85" => "",                     # U+E0985 => 
+"\xF3\xA0\xA6\x86" => "",                     # U+E0986 => 
+"\xF3\xA0\xA6\x87" => "",                     # U+E0987 => 
+"\xF3\xA0\xA6\x88" => "",                     # U+E0988 => 
+"\xF3\xA0\xA6\x89" => "",                     # U+E0989 => 
+"\xF3\xA0\xA6\x8A" => "",                     # U+E098A => 
+"\xF3\xA0\xA6\x8B" => "",                     # U+E098B => 
+"\xF3\xA0\xA6\x8C" => "",                     # U+E098C => 
+"\xF3\xA0\xA6\x8D" => "",                     # U+E098D => 
+"\xF3\xA0\xA6\x8E" => "",                     # U+E098E => 
+"\xF3\xA0\xA6\x8F" => "",                     # U+E098F => 
+"\xF3\xA0\xA6\x90" => "",                     # U+E0990 => 
+"\xF3\xA0\xA6\x91" => "",                     # U+E0991 => 
+"\xF3\xA0\xA6\x92" => "",                     # U+E0992 => 
+"\xF3\xA0\xA6\x93" => "",                     # U+E0993 => 
+"\xF3\xA0\xA6\x94" => "",                     # U+E0994 => 
+"\xF3\xA0\xA6\x95" => "",                     # U+E0995 => 
+"\xF3\xA0\xA6\x96" => "",                     # U+E0996 => 
+"\xF3\xA0\xA6\x97" => "",                     # U+E0997 => 
+"\xF3\xA0\xA6\x98" => "",                     # U+E0998 => 
+"\xF3\xA0\xA6\x99" => "",                     # U+E0999 => 
+"\xF3\xA0\xA6\x9A" => "",                     # U+E099A => 
+"\xF3\xA0\xA6\x9B" => "",                     # U+E099B => 
+"\xF3\xA0\xA6\x9C" => "",                     # U+E099C => 
+"\xF3\xA0\xA6\x9D" => "",                     # U+E099D => 
+"\xF3\xA0\xA6\x9E" => "",                     # U+E099E => 
+"\xF3\xA0\xA6\x9F" => "",                     # U+E099F => 
+"\xF3\xA0\xA6\xA0" => "",                     # U+E09A0 => 
+"\xF3\xA0\xA6\xA1" => "",                     # U+E09A1 => 
+"\xF3\xA0\xA6\xA2" => "",                     # U+E09A2 => 
+"\xF3\xA0\xA6\xA3" => "",                     # U+E09A3 => 
+"\xF3\xA0\xA6\xA4" => "",                     # U+E09A4 => 
+"\xF3\xA0\xA6\xA5" => "",                     # U+E09A5 => 
+"\xF3\xA0\xA6\xA6" => "",                     # U+E09A6 => 
+"\xF3\xA0\xA6\xA7" => "",                     # U+E09A7 => 
+"\xF3\xA0\xA6\xA8" => "",                     # U+E09A8 => 
+"\xF3\xA0\xA6\xA9" => "",                     # U+E09A9 => 
+"\xF3\xA0\xA6\xAA" => "",                     # U+E09AA => 
+"\xF3\xA0\xA6\xAB" => "",                     # U+E09AB => 
+"\xF3\xA0\xA6\xAC" => "",                     # U+E09AC => 
+"\xF3\xA0\xA6\xAD" => "",                     # U+E09AD => 
+"\xF3\xA0\xA6\xAE" => "",                     # U+E09AE => 
+"\xF3\xA0\xA6\xAF" => "",                     # U+E09AF => 
+"\xF3\xA0\xA6\xB0" => "",                     # U+E09B0 => 
+"\xF3\xA0\xA6\xB1" => "",                     # U+E09B1 => 
+"\xF3\xA0\xA6\xB2" => "",                     # U+E09B2 => 
+"\xF3\xA0\xA6\xB3" => "",                     # U+E09B3 => 
+"\xF3\xA0\xA6\xB4" => "",                     # U+E09B4 => 
+"\xF3\xA0\xA6\xB5" => "",                     # U+E09B5 => 
+"\xF3\xA0\xA6\xB6" => "",                     # U+E09B6 => 
+"\xF3\xA0\xA6\xB7" => "",                     # U+E09B7 => 
+"\xF3\xA0\xA6\xB8" => "",                     # U+E09B8 => 
+"\xF3\xA0\xA6\xB9" => "",                     # U+E09B9 => 
+"\xF3\xA0\xA6\xBA" => "",                     # U+E09BA => 
+"\xF3\xA0\xA6\xBB" => "",                     # U+E09BB => 
+"\xF3\xA0\xA6\xBC" => "",                     # U+E09BC => 
+"\xF3\xA0\xA6\xBD" => "",                     # U+E09BD => 
+"\xF3\xA0\xA6\xBE" => "",                     # U+E09BE => 
+"\xF3\xA0\xA6\xBF" => "",                     # U+E09BF => 
+"\xF3\xA0\xA7\x80" => "",                     # U+E09C0 => 
+"\xF3\xA0\xA7\x81" => "",                     # U+E09C1 => 
+"\xF3\xA0\xA7\x82" => "",                     # U+E09C2 => 
+"\xF3\xA0\xA7\x83" => "",                     # U+E09C3 => 
+"\xF3\xA0\xA7\x84" => "",                     # U+E09C4 => 
+"\xF3\xA0\xA7\x85" => "",                     # U+E09C5 => 
+"\xF3\xA0\xA7\x86" => "",                     # U+E09C6 => 
+"\xF3\xA0\xA7\x87" => "",                     # U+E09C7 => 
+"\xF3\xA0\xA7\x88" => "",                     # U+E09C8 => 
+"\xF3\xA0\xA7\x89" => "",                     # U+E09C9 => 
+"\xF3\xA0\xA7\x8A" => "",                     # U+E09CA => 
+"\xF3\xA0\xA7\x8B" => "",                     # U+E09CB => 
+"\xF3\xA0\xA7\x8C" => "",                     # U+E09CC => 
+"\xF3\xA0\xA7\x8D" => "",                     # U+E09CD => 
+"\xF3\xA0\xA7\x8E" => "",                     # U+E09CE => 
+"\xF3\xA0\xA7\x8F" => "",                     # U+E09CF => 
+"\xF3\xA0\xA7\x90" => "",                     # U+E09D0 => 
+"\xF3\xA0\xA7\x91" => "",                     # U+E09D1 => 
+"\xF3\xA0\xA7\x92" => "",                     # U+E09D2 => 
+"\xF3\xA0\xA7\x93" => "",                     # U+E09D3 => 
+"\xF3\xA0\xA7\x94" => "",                     # U+E09D4 => 
+"\xF3\xA0\xA7\x95" => "",                     # U+E09D5 => 
+"\xF3\xA0\xA7\x96" => "",                     # U+E09D6 => 
+"\xF3\xA0\xA7\x97" => "",                     # U+E09D7 => 
+"\xF3\xA0\xA7\x98" => "",                     # U+E09D8 => 
+"\xF3\xA0\xA7\x99" => "",                     # U+E09D9 => 
+"\xF3\xA0\xA7\x9A" => "",                     # U+E09DA => 
+"\xF3\xA0\xA7\x9B" => "",                     # U+E09DB => 
+"\xF3\xA0\xA7\x9C" => "",                     # U+E09DC => 
+"\xF3\xA0\xA7\x9D" => "",                     # U+E09DD => 
+"\xF3\xA0\xA7\x9E" => "",                     # U+E09DE => 
+"\xF3\xA0\xA7\x9F" => "",                     # U+E09DF => 
+"\xF3\xA0\xA7\xA0" => "",                     # U+E09E0 => 
+"\xF3\xA0\xA7\xA1" => "",                     # U+E09E1 => 
+"\xF3\xA0\xA7\xA2" => "",                     # U+E09E2 => 
+"\xF3\xA0\xA7\xA3" => "",                     # U+E09E3 => 
+"\xF3\xA0\xA7\xA4" => "",                     # U+E09E4 => 
+"\xF3\xA0\xA7\xA5" => "",                     # U+E09E5 => 
+"\xF3\xA0\xA7\xA6" => "",                     # U+E09E6 => 
+"\xF3\xA0\xA7\xA7" => "",                     # U+E09E7 => 
+"\xF3\xA0\xA7\xA8" => "",                     # U+E09E8 => 
+"\xF3\xA0\xA7\xA9" => "",                     # U+E09E9 => 
+"\xF3\xA0\xA7\xAA" => "",                     # U+E09EA => 
+"\xF3\xA0\xA7\xAB" => "",                     # U+E09EB => 
+"\xF3\xA0\xA7\xAC" => "",                     # U+E09EC => 
+"\xF3\xA0\xA7\xAD" => "",                     # U+E09ED => 
+"\xF3\xA0\xA7\xAE" => "",                     # U+E09EE => 
+"\xF3\xA0\xA7\xAF" => "",                     # U+E09EF => 
+"\xF3\xA0\xA7\xB0" => "",                     # U+E09F0 => 
+"\xF3\xA0\xA7\xB1" => "",                     # U+E09F1 => 
+"\xF3\xA0\xA7\xB2" => "",                     # U+E09F2 => 
+"\xF3\xA0\xA7\xB3" => "",                     # U+E09F3 => 
+"\xF3\xA0\xA7\xB4" => "",                     # U+E09F4 => 
+"\xF3\xA0\xA7\xB5" => "",                     # U+E09F5 => 
+"\xF3\xA0\xA7\xB6" => "",                     # U+E09F6 => 
+"\xF3\xA0\xA7\xB7" => "",                     # U+E09F7 => 
+"\xF3\xA0\xA7\xB8" => "",                     # U+E09F8 => 
+"\xF3\xA0\xA7\xB9" => "",                     # U+E09F9 => 
+"\xF3\xA0\xA7\xBA" => "",                     # U+E09FA => 
+"\xF3\xA0\xA7\xBB" => "",                     # U+E09FB => 
+"\xF3\xA0\xA7\xBC" => "",                     # U+E09FC => 
+"\xF3\xA0\xA7\xBD" => "",                     # U+E09FD => 
+"\xF3\xA0\xA7\xBE" => "",                     # U+E09FE => 
+"\xF3\xA0\xA7\xBF" => "",                     # U+E09FF => 
+"\xF3\xA0\xA8\x80" => "",                     # U+E0A00 => 
+"\xF3\xA0\xA8\x81" => "",                     # U+E0A01 => 
+"\xF3\xA0\xA8\x82" => "",                     # U+E0A02 => 
+"\xF3\xA0\xA8\x83" => "",                     # U+E0A03 => 
+"\xF3\xA0\xA8\x84" => "",                     # U+E0A04 => 
+"\xF3\xA0\xA8\x85" => "",                     # U+E0A05 => 
+"\xF3\xA0\xA8\x86" => "",                     # U+E0A06 => 
+"\xF3\xA0\xA8\x87" => "",                     # U+E0A07 => 
+"\xF3\xA0\xA8\x88" => "",                     # U+E0A08 => 
+"\xF3\xA0\xA8\x89" => "",                     # U+E0A09 => 
+"\xF3\xA0\xA8\x8A" => "",                     # U+E0A0A => 
+"\xF3\xA0\xA8\x8B" => "",                     # U+E0A0B => 
+"\xF3\xA0\xA8\x8C" => "",                     # U+E0A0C => 
+"\xF3\xA0\xA8\x8D" => "",                     # U+E0A0D => 
+"\xF3\xA0\xA8\x8E" => "",                     # U+E0A0E => 
+"\xF3\xA0\xA8\x8F" => "",                     # U+E0A0F => 
+"\xF3\xA0\xA8\x90" => "",                     # U+E0A10 => 
+"\xF3\xA0\xA8\x91" => "",                     # U+E0A11 => 
+"\xF3\xA0\xA8\x92" => "",                     # U+E0A12 => 
+"\xF3\xA0\xA8\x93" => "",                     # U+E0A13 => 
+"\xF3\xA0\xA8\x94" => "",                     # U+E0A14 => 
+"\xF3\xA0\xA8\x95" => "",                     # U+E0A15 => 
+"\xF3\xA0\xA8\x96" => "",                     # U+E0A16 => 
+"\xF3\xA0\xA8\x97" => "",                     # U+E0A17 => 
+"\xF3\xA0\xA8\x98" => "",                     # U+E0A18 => 
+"\xF3\xA0\xA8\x99" => "",                     # U+E0A19 => 
+"\xF3\xA0\xA8\x9A" => "",                     # U+E0A1A => 
+"\xF3\xA0\xA8\x9B" => "",                     # U+E0A1B => 
+"\xF3\xA0\xA8\x9C" => "",                     # U+E0A1C => 
+"\xF3\xA0\xA8\x9D" => "",                     # U+E0A1D => 
+"\xF3\xA0\xA8\x9E" => "",                     # U+E0A1E => 
+"\xF3\xA0\xA8\x9F" => "",                     # U+E0A1F => 
+"\xF3\xA0\xA8\xA0" => "",                     # U+E0A20 => 
+"\xF3\xA0\xA8\xA1" => "",                     # U+E0A21 => 
+"\xF3\xA0\xA8\xA2" => "",                     # U+E0A22 => 
+"\xF3\xA0\xA8\xA3" => "",                     # U+E0A23 => 
+"\xF3\xA0\xA8\xA4" => "",                     # U+E0A24 => 
+"\xF3\xA0\xA8\xA5" => "",                     # U+E0A25 => 
+"\xF3\xA0\xA8\xA6" => "",                     # U+E0A26 => 
+"\xF3\xA0\xA8\xA7" => "",                     # U+E0A27 => 
+"\xF3\xA0\xA8\xA8" => "",                     # U+E0A28 => 
+"\xF3\xA0\xA8\xA9" => "",                     # U+E0A29 => 
+"\xF3\xA0\xA8\xAA" => "",                     # U+E0A2A => 
+"\xF3\xA0\xA8\xAB" => "",                     # U+E0A2B => 
+"\xF3\xA0\xA8\xAC" => "",                     # U+E0A2C => 
+"\xF3\xA0\xA8\xAD" => "",                     # U+E0A2D => 
+"\xF3\xA0\xA8\xAE" => "",                     # U+E0A2E => 
+"\xF3\xA0\xA8\xAF" => "",                     # U+E0A2F => 
+"\xF3\xA0\xA8\xB0" => "",                     # U+E0A30 => 
+"\xF3\xA0\xA8\xB1" => "",                     # U+E0A31 => 
+"\xF3\xA0\xA8\xB2" => "",                     # U+E0A32 => 
+"\xF3\xA0\xA8\xB3" => "",                     # U+E0A33 => 
+"\xF3\xA0\xA8\xB4" => "",                     # U+E0A34 => 
+"\xF3\xA0\xA8\xB5" => "",                     # U+E0A35 => 
+"\xF3\xA0\xA8\xB6" => "",                     # U+E0A36 => 
+"\xF3\xA0\xA8\xB7" => "",                     # U+E0A37 => 
+"\xF3\xA0\xA8\xB8" => "",                     # U+E0A38 => 
+"\xF3\xA0\xA8\xB9" => "",                     # U+E0A39 => 
+"\xF3\xA0\xA8\xBA" => "",                     # U+E0A3A => 
+"\xF3\xA0\xA8\xBB" => "",                     # U+E0A3B => 
+"\xF3\xA0\xA8\xBC" => "",                     # U+E0A3C => 
+"\xF3\xA0\xA8\xBD" => "",                     # U+E0A3D => 
+"\xF3\xA0\xA8\xBE" => "",                     # U+E0A3E => 
+"\xF3\xA0\xA8\xBF" => "",                     # U+E0A3F => 
+"\xF3\xA0\xA9\x80" => "",                     # U+E0A40 => 
+"\xF3\xA0\xA9\x81" => "",                     # U+E0A41 => 
+"\xF3\xA0\xA9\x82" => "",                     # U+E0A42 => 
+"\xF3\xA0\xA9\x83" => "",                     # U+E0A43 => 
+"\xF3\xA0\xA9\x84" => "",                     # U+E0A44 => 
+"\xF3\xA0\xA9\x85" => "",                     # U+E0A45 => 
+"\xF3\xA0\xA9\x86" => "",                     # U+E0A46 => 
+"\xF3\xA0\xA9\x87" => "",                     # U+E0A47 => 
+"\xF3\xA0\xA9\x88" => "",                     # U+E0A48 => 
+"\xF3\xA0\xA9\x89" => "",                     # U+E0A49 => 
+"\xF3\xA0\xA9\x8A" => "",                     # U+E0A4A => 
+"\xF3\xA0\xA9\x8B" => "",                     # U+E0A4B => 
+"\xF3\xA0\xA9\x8C" => "",                     # U+E0A4C => 
+"\xF3\xA0\xA9\x8D" => "",                     # U+E0A4D => 
+"\xF3\xA0\xA9\x8E" => "",                     # U+E0A4E => 
+"\xF3\xA0\xA9\x8F" => "",                     # U+E0A4F => 
+"\xF3\xA0\xA9\x90" => "",                     # U+E0A50 => 
+"\xF3\xA0\xA9\x91" => "",                     # U+E0A51 => 
+"\xF3\xA0\xA9\x92" => "",                     # U+E0A52 => 
+"\xF3\xA0\xA9\x93" => "",                     # U+E0A53 => 
+"\xF3\xA0\xA9\x94" => "",                     # U+E0A54 => 
+"\xF3\xA0\xA9\x95" => "",                     # U+E0A55 => 
+"\xF3\xA0\xA9\x96" => "",                     # U+E0A56 => 
+"\xF3\xA0\xA9\x97" => "",                     # U+E0A57 => 
+"\xF3\xA0\xA9\x98" => "",                     # U+E0A58 => 
+"\xF3\xA0\xA9\x99" => "",                     # U+E0A59 => 
+"\xF3\xA0\xA9\x9A" => "",                     # U+E0A5A => 
+"\xF3\xA0\xA9\x9B" => "",                     # U+E0A5B => 
+"\xF3\xA0\xA9\x9C" => "",                     # U+E0A5C => 
+"\xF3\xA0\xA9\x9D" => "",                     # U+E0A5D => 
+"\xF3\xA0\xA9\x9E" => "",                     # U+E0A5E => 
+"\xF3\xA0\xA9\x9F" => "",                     # U+E0A5F => 
+"\xF3\xA0\xA9\xA0" => "",                     # U+E0A60 => 
+"\xF3\xA0\xA9\xA1" => "",                     # U+E0A61 => 
+"\xF3\xA0\xA9\xA2" => "",                     # U+E0A62 => 
+"\xF3\xA0\xA9\xA3" => "",                     # U+E0A63 => 
+"\xF3\xA0\xA9\xA4" => "",                     # U+E0A64 => 
+"\xF3\xA0\xA9\xA5" => "",                     # U+E0A65 => 
+"\xF3\xA0\xA9\xA6" => "",                     # U+E0A66 => 
+"\xF3\xA0\xA9\xA7" => "",                     # U+E0A67 => 
+"\xF3\xA0\xA9\xA8" => "",                     # U+E0A68 => 
+"\xF3\xA0\xA9\xA9" => "",                     # U+E0A69 => 
+"\xF3\xA0\xA9\xAA" => "",                     # U+E0A6A => 
+"\xF3\xA0\xA9\xAB" => "",                     # U+E0A6B => 
+"\xF3\xA0\xA9\xAC" => "",                     # U+E0A6C => 
+"\xF3\xA0\xA9\xAD" => "",                     # U+E0A6D => 
+"\xF3\xA0\xA9\xAE" => "",                     # U+E0A6E => 
+"\xF3\xA0\xA9\xAF" => "",                     # U+E0A6F => 
+"\xF3\xA0\xA9\xB0" => "",                     # U+E0A70 => 
+"\xF3\xA0\xA9\xB1" => "",                     # U+E0A71 => 
+"\xF3\xA0\xA9\xB2" => "",                     # U+E0A72 => 
+"\xF3\xA0\xA9\xB3" => "",                     # U+E0A73 => 
+"\xF3\xA0\xA9\xB4" => "",                     # U+E0A74 => 
+"\xF3\xA0\xA9\xB5" => "",                     # U+E0A75 => 
+"\xF3\xA0\xA9\xB6" => "",                     # U+E0A76 => 
+"\xF3\xA0\xA9\xB7" => "",                     # U+E0A77 => 
+"\xF3\xA0\xA9\xB8" => "",                     # U+E0A78 => 
+"\xF3\xA0\xA9\xB9" => "",                     # U+E0A79 => 
+"\xF3\xA0\xA9\xBA" => "",                     # U+E0A7A => 
+"\xF3\xA0\xA9\xBB" => "",                     # U+E0A7B => 
+"\xF3\xA0\xA9\xBC" => "",                     # U+E0A7C => 
+"\xF3\xA0\xA9\xBD" => "",                     # U+E0A7D => 
+"\xF3\xA0\xA9\xBE" => "",                     # U+E0A7E => 
+"\xF3\xA0\xA9\xBF" => "",                     # U+E0A7F => 
+"\xF3\xA0\xAA\x80" => "",                     # U+E0A80 => 
+"\xF3\xA0\xAA\x81" => "",                     # U+E0A81 => 
+"\xF3\xA0\xAA\x82" => "",                     # U+E0A82 => 
+"\xF3\xA0\xAA\x83" => "",                     # U+E0A83 => 
+"\xF3\xA0\xAA\x84" => "",                     # U+E0A84 => 
+"\xF3\xA0\xAA\x85" => "",                     # U+E0A85 => 
+"\xF3\xA0\xAA\x86" => "",                     # U+E0A86 => 
+"\xF3\xA0\xAA\x87" => "",                     # U+E0A87 => 
+"\xF3\xA0\xAA\x88" => "",                     # U+E0A88 => 
+"\xF3\xA0\xAA\x89" => "",                     # U+E0A89 => 
+"\xF3\xA0\xAA\x8A" => "",                     # U+E0A8A => 
+"\xF3\xA0\xAA\x8B" => "",                     # U+E0A8B => 
+"\xF3\xA0\xAA\x8C" => "",                     # U+E0A8C => 
+"\xF3\xA0\xAA\x8D" => "",                     # U+E0A8D => 
+"\xF3\xA0\xAA\x8E" => "",                     # U+E0A8E => 
+"\xF3\xA0\xAA\x8F" => "",                     # U+E0A8F => 
+"\xF3\xA0\xAA\x90" => "",                     # U+E0A90 => 
+"\xF3\xA0\xAA\x91" => "",                     # U+E0A91 => 
+"\xF3\xA0\xAA\x92" => "",                     # U+E0A92 => 
+"\xF3\xA0\xAA\x93" => "",                     # U+E0A93 => 
+"\xF3\xA0\xAA\x94" => "",                     # U+E0A94 => 
+"\xF3\xA0\xAA\x95" => "",                     # U+E0A95 => 
+"\xF3\xA0\xAA\x96" => "",                     # U+E0A96 => 
+"\xF3\xA0\xAA\x97" => "",                     # U+E0A97 => 
+"\xF3\xA0\xAA\x98" => "",                     # U+E0A98 => 
+"\xF3\xA0\xAA\x99" => "",                     # U+E0A99 => 
+"\xF3\xA0\xAA\x9A" => "",                     # U+E0A9A => 
+"\xF3\xA0\xAA\x9B" => "",                     # U+E0A9B => 
+"\xF3\xA0\xAA\x9C" => "",                     # U+E0A9C => 
+"\xF3\xA0\xAA\x9D" => "",                     # U+E0A9D => 
+"\xF3\xA0\xAA\x9E" => "",                     # U+E0A9E => 
+"\xF3\xA0\xAA\x9F" => "",                     # U+E0A9F => 
+"\xF3\xA0\xAA\xA0" => "",                     # U+E0AA0 => 
+"\xF3\xA0\xAA\xA1" => "",                     # U+E0AA1 => 
+"\xF3\xA0\xAA\xA2" => "",                     # U+E0AA2 => 
+"\xF3\xA0\xAA\xA3" => "",                     # U+E0AA3 => 
+"\xF3\xA0\xAA\xA4" => "",                     # U+E0AA4 => 
+"\xF3\xA0\xAA\xA5" => "",                     # U+E0AA5 => 
+"\xF3\xA0\xAA\xA6" => "",                     # U+E0AA6 => 
+"\xF3\xA0\xAA\xA7" => "",                     # U+E0AA7 => 
+"\xF3\xA0\xAA\xA8" => "",                     # U+E0AA8 => 
+"\xF3\xA0\xAA\xA9" => "",                     # U+E0AA9 => 
+"\xF3\xA0\xAA\xAA" => "",                     # U+E0AAA => 
+"\xF3\xA0\xAA\xAB" => "",                     # U+E0AAB => 
+"\xF3\xA0\xAA\xAC" => "",                     # U+E0AAC => 
+"\xF3\xA0\xAA\xAD" => "",                     # U+E0AAD => 
+"\xF3\xA0\xAA\xAE" => "",                     # U+E0AAE => 
+"\xF3\xA0\xAA\xAF" => "",                     # U+E0AAF => 
+"\xF3\xA0\xAA\xB0" => "",                     # U+E0AB0 => 
+"\xF3\xA0\xAA\xB1" => "",                     # U+E0AB1 => 
+"\xF3\xA0\xAA\xB2" => "",                     # U+E0AB2 => 
+"\xF3\xA0\xAA\xB3" => "",                     # U+E0AB3 => 
+"\xF3\xA0\xAA\xB4" => "",                     # U+E0AB4 => 
+"\xF3\xA0\xAA\xB5" => "",                     # U+E0AB5 => 
+"\xF3\xA0\xAA\xB6" => "",                     # U+E0AB6 => 
+"\xF3\xA0\xAA\xB7" => "",                     # U+E0AB7 => 
+"\xF3\xA0\xAA\xB8" => "",                     # U+E0AB8 => 
+"\xF3\xA0\xAA\xB9" => "",                     # U+E0AB9 => 
+"\xF3\xA0\xAA\xBA" => "",                     # U+E0ABA => 
+"\xF3\xA0\xAA\xBB" => "",                     # U+E0ABB => 
+"\xF3\xA0\xAA\xBC" => "",                     # U+E0ABC => 
+"\xF3\xA0\xAA\xBD" => "",                     # U+E0ABD => 
+"\xF3\xA0\xAA\xBE" => "",                     # U+E0ABE => 
+"\xF3\xA0\xAA\xBF" => "",                     # U+E0ABF => 
+"\xF3\xA0\xAB\x80" => "",                     # U+E0AC0 => 
+"\xF3\xA0\xAB\x81" => "",                     # U+E0AC1 => 
+"\xF3\xA0\xAB\x82" => "",                     # U+E0AC2 => 
+"\xF3\xA0\xAB\x83" => "",                     # U+E0AC3 => 
+"\xF3\xA0\xAB\x84" => "",                     # U+E0AC4 => 
+"\xF3\xA0\xAB\x85" => "",                     # U+E0AC5 => 
+"\xF3\xA0\xAB\x86" => "",                     # U+E0AC6 => 
+"\xF3\xA0\xAB\x87" => "",                     # U+E0AC7 => 
+"\xF3\xA0\xAB\x88" => "",                     # U+E0AC8 => 
+"\xF3\xA0\xAB\x89" => "",                     # U+E0AC9 => 
+"\xF3\xA0\xAB\x8A" => "",                     # U+E0ACA => 
+"\xF3\xA0\xAB\x8B" => "",                     # U+E0ACB => 
+"\xF3\xA0\xAB\x8C" => "",                     # U+E0ACC => 
+"\xF3\xA0\xAB\x8D" => "",                     # U+E0ACD => 
+"\xF3\xA0\xAB\x8E" => "",                     # U+E0ACE => 
+"\xF3\xA0\xAB\x8F" => "",                     # U+E0ACF => 
+"\xF3\xA0\xAB\x90" => "",                     # U+E0AD0 => 
+"\xF3\xA0\xAB\x91" => "",                     # U+E0AD1 => 
+"\xF3\xA0\xAB\x92" => "",                     # U+E0AD2 => 
+"\xF3\xA0\xAB\x93" => "",                     # U+E0AD3 => 
+"\xF3\xA0\xAB\x94" => "",                     # U+E0AD4 => 
+"\xF3\xA0\xAB\x95" => "",                     # U+E0AD5 => 
+"\xF3\xA0\xAB\x96" => "",                     # U+E0AD6 => 
+"\xF3\xA0\xAB\x97" => "",                     # U+E0AD7 => 
+"\xF3\xA0\xAB\x98" => "",                     # U+E0AD8 => 
+"\xF3\xA0\xAB\x99" => "",                     # U+E0AD9 => 
+"\xF3\xA0\xAB\x9A" => "",                     # U+E0ADA => 
+"\xF3\xA0\xAB\x9B" => "",                     # U+E0ADB => 
+"\xF3\xA0\xAB\x9C" => "",                     # U+E0ADC => 
+"\xF3\xA0\xAB\x9D" => "",                     # U+E0ADD => 
+"\xF3\xA0\xAB\x9E" => "",                     # U+E0ADE => 
+"\xF3\xA0\xAB\x9F" => "",                     # U+E0ADF => 
+"\xF3\xA0\xAB\xA0" => "",                     # U+E0AE0 => 
+"\xF3\xA0\xAB\xA1" => "",                     # U+E0AE1 => 
+"\xF3\xA0\xAB\xA2" => "",                     # U+E0AE2 => 
+"\xF3\xA0\xAB\xA3" => "",                     # U+E0AE3 => 
+"\xF3\xA0\xAB\xA4" => "",                     # U+E0AE4 => 
+"\xF3\xA0\xAB\xA5" => "",                     # U+E0AE5 => 
+"\xF3\xA0\xAB\xA6" => "",                     # U+E0AE6 => 
+"\xF3\xA0\xAB\xA7" => "",                     # U+E0AE7 => 
+"\xF3\xA0\xAB\xA8" => "",                     # U+E0AE8 => 
+"\xF3\xA0\xAB\xA9" => "",                     # U+E0AE9 => 
+"\xF3\xA0\xAB\xAA" => "",                     # U+E0AEA => 
+"\xF3\xA0\xAB\xAB" => "",                     # U+E0AEB => 
+"\xF3\xA0\xAB\xAC" => "",                     # U+E0AEC => 
+"\xF3\xA0\xAB\xAD" => "",                     # U+E0AED => 
+"\xF3\xA0\xAB\xAE" => "",                     # U+E0AEE => 
+"\xF3\xA0\xAB\xAF" => "",                     # U+E0AEF => 
+"\xF3\xA0\xAB\xB0" => "",                     # U+E0AF0 => 
+"\xF3\xA0\xAB\xB1" => "",                     # U+E0AF1 => 
+"\xF3\xA0\xAB\xB2" => "",                     # U+E0AF2 => 
+"\xF3\xA0\xAB\xB3" => "",                     # U+E0AF3 => 
+"\xF3\xA0\xAB\xB4" => "",                     # U+E0AF4 => 
+"\xF3\xA0\xAB\xB5" => "",                     # U+E0AF5 => 
+"\xF3\xA0\xAB\xB6" => "",                     # U+E0AF6 => 
+"\xF3\xA0\xAB\xB7" => "",                     # U+E0AF7 => 
+"\xF3\xA0\xAB\xB8" => "",                     # U+E0AF8 => 
+"\xF3\xA0\xAB\xB9" => "",                     # U+E0AF9 => 
+"\xF3\xA0\xAB\xBA" => "",                     # U+E0AFA => 
+"\xF3\xA0\xAB\xBB" => "",                     # U+E0AFB => 
+"\xF3\xA0\xAB\xBC" => "",                     # U+E0AFC => 
+"\xF3\xA0\xAB\xBD" => "",                     # U+E0AFD => 
+"\xF3\xA0\xAB\xBE" => "",                     # U+E0AFE => 
+"\xF3\xA0\xAB\xBF" => "",                     # U+E0AFF => 
+"\xF3\xA0\xAC\x80" => "",                     # U+E0B00 => 
+"\xF3\xA0\xAC\x81" => "",                     # U+E0B01 => 
+"\xF3\xA0\xAC\x82" => "",                     # U+E0B02 => 
+"\xF3\xA0\xAC\x83" => "",                     # U+E0B03 => 
+"\xF3\xA0\xAC\x84" => "",                     # U+E0B04 => 
+"\xF3\xA0\xAC\x85" => "",                     # U+E0B05 => 
+"\xF3\xA0\xAC\x86" => "",                     # U+E0B06 => 
+"\xF3\xA0\xAC\x87" => "",                     # U+E0B07 => 
+"\xF3\xA0\xAC\x88" => "",                     # U+E0B08 => 
+"\xF3\xA0\xAC\x89" => "",                     # U+E0B09 => 
+"\xF3\xA0\xAC\x8A" => "",                     # U+E0B0A => 
+"\xF3\xA0\xAC\x8B" => "",                     # U+E0B0B => 
+"\xF3\xA0\xAC\x8C" => "",                     # U+E0B0C => 
+"\xF3\xA0\xAC\x8D" => "",                     # U+E0B0D => 
+"\xF3\xA0\xAC\x8E" => "",                     # U+E0B0E => 
+"\xF3\xA0\xAC\x8F" => "",                     # U+E0B0F => 
+"\xF3\xA0\xAC\x90" => "",                     # U+E0B10 => 
+"\xF3\xA0\xAC\x91" => "",                     # U+E0B11 => 
+"\xF3\xA0\xAC\x92" => "",                     # U+E0B12 => 
+"\xF3\xA0\xAC\x93" => "",                     # U+E0B13 => 
+"\xF3\xA0\xAC\x94" => "",                     # U+E0B14 => 
+"\xF3\xA0\xAC\x95" => "",                     # U+E0B15 => 
+"\xF3\xA0\xAC\x96" => "",                     # U+E0B16 => 
+"\xF3\xA0\xAC\x97" => "",                     # U+E0B17 => 
+"\xF3\xA0\xAC\x98" => "",                     # U+E0B18 => 
+"\xF3\xA0\xAC\x99" => "",                     # U+E0B19 => 
+"\xF3\xA0\xAC\x9A" => "",                     # U+E0B1A => 
+"\xF3\xA0\xAC\x9B" => "",                     # U+E0B1B => 
+"\xF3\xA0\xAC\x9C" => "",                     # U+E0B1C => 
+"\xF3\xA0\xAC\x9D" => "",                     # U+E0B1D => 
+"\xF3\xA0\xAC\x9E" => "",                     # U+E0B1E => 
+"\xF3\xA0\xAC\x9F" => "",                     # U+E0B1F => 
+"\xF3\xA0\xAC\xA0" => "",                     # U+E0B20 => 
+"\xF3\xA0\xAC\xA1" => "",                     # U+E0B21 => 
+"\xF3\xA0\xAC\xA2" => "",                     # U+E0B22 => 
+"\xF3\xA0\xAC\xA3" => "",                     # U+E0B23 => 
+"\xF3\xA0\xAC\xA4" => "",                     # U+E0B24 => 
+"\xF3\xA0\xAC\xA5" => "",                     # U+E0B25 => 
+"\xF3\xA0\xAC\xA6" => "",                     # U+E0B26 => 
+"\xF3\xA0\xAC\xA7" => "",                     # U+E0B27 => 
+"\xF3\xA0\xAC\xA8" => "",                     # U+E0B28 => 
+"\xF3\xA0\xAC\xA9" => "",                     # U+E0B29 => 
+"\xF3\xA0\xAC\xAA" => "",                     # U+E0B2A => 
+"\xF3\xA0\xAC\xAB" => "",                     # U+E0B2B => 
+"\xF3\xA0\xAC\xAC" => "",                     # U+E0B2C => 
+"\xF3\xA0\xAC\xAD" => "",                     # U+E0B2D => 
+"\xF3\xA0\xAC\xAE" => "",                     # U+E0B2E => 
+"\xF3\xA0\xAC\xAF" => "",                     # U+E0B2F => 
+"\xF3\xA0\xAC\xB0" => "",                     # U+E0B30 => 
+"\xF3\xA0\xAC\xB1" => "",                     # U+E0B31 => 
+"\xF3\xA0\xAC\xB2" => "",                     # U+E0B32 => 
+"\xF3\xA0\xAC\xB3" => "",                     # U+E0B33 => 
+"\xF3\xA0\xAC\xB4" => "",                     # U+E0B34 => 
+"\xF3\xA0\xAC\xB5" => "",                     # U+E0B35 => 
+"\xF3\xA0\xAC\xB6" => "",                     # U+E0B36 => 
+"\xF3\xA0\xAC\xB7" => "",                     # U+E0B37 => 
+"\xF3\xA0\xAC\xB8" => "",                     # U+E0B38 => 
+"\xF3\xA0\xAC\xB9" => "",                     # U+E0B39 => 
+"\xF3\xA0\xAC\xBA" => "",                     # U+E0B3A => 
+"\xF3\xA0\xAC\xBB" => "",                     # U+E0B3B => 
+"\xF3\xA0\xAC\xBC" => "",                     # U+E0B3C => 
+"\xF3\xA0\xAC\xBD" => "",                     # U+E0B3D => 
+"\xF3\xA0\xAC\xBE" => "",                     # U+E0B3E => 
+"\xF3\xA0\xAC\xBF" => "",                     # U+E0B3F => 
+"\xF3\xA0\xAD\x80" => "",                     # U+E0B40 => 
+"\xF3\xA0\xAD\x81" => "",                     # U+E0B41 => 
+"\xF3\xA0\xAD\x82" => "",                     # U+E0B42 => 
+"\xF3\xA0\xAD\x83" => "",                     # U+E0B43 => 
+"\xF3\xA0\xAD\x84" => "",                     # U+E0B44 => 
+"\xF3\xA0\xAD\x85" => "",                     # U+E0B45 => 
+"\xF3\xA0\xAD\x86" => "",                     # U+E0B46 => 
+"\xF3\xA0\xAD\x87" => "",                     # U+E0B47 => 
+"\xF3\xA0\xAD\x88" => "",                     # U+E0B48 => 
+"\xF3\xA0\xAD\x89" => "",                     # U+E0B49 => 
+"\xF3\xA0\xAD\x8A" => "",                     # U+E0B4A => 
+"\xF3\xA0\xAD\x8B" => "",                     # U+E0B4B => 
+"\xF3\xA0\xAD\x8C" => "",                     # U+E0B4C => 
+"\xF3\xA0\xAD\x8D" => "",                     # U+E0B4D => 
+"\xF3\xA0\xAD\x8E" => "",                     # U+E0B4E => 
+"\xF3\xA0\xAD\x8F" => "",                     # U+E0B4F => 
+"\xF3\xA0\xAD\x90" => "",                     # U+E0B50 => 
+"\xF3\xA0\xAD\x91" => "",                     # U+E0B51 => 
+"\xF3\xA0\xAD\x92" => "",                     # U+E0B52 => 
+"\xF3\xA0\xAD\x93" => "",                     # U+E0B53 => 
+"\xF3\xA0\xAD\x94" => "",                     # U+E0B54 => 
+"\xF3\xA0\xAD\x95" => "",                     # U+E0B55 => 
+"\xF3\xA0\xAD\x96" => "",                     # U+E0B56 => 
+"\xF3\xA0\xAD\x97" => "",                     # U+E0B57 => 
+"\xF3\xA0\xAD\x98" => "",                     # U+E0B58 => 
+"\xF3\xA0\xAD\x99" => "",                     # U+E0B59 => 
+"\xF3\xA0\xAD\x9A" => "",                     # U+E0B5A => 
+"\xF3\xA0\xAD\x9B" => "",                     # U+E0B5B => 
+"\xF3\xA0\xAD\x9C" => "",                     # U+E0B5C => 
+"\xF3\xA0\xAD\x9D" => "",                     # U+E0B5D => 
+"\xF3\xA0\xAD\x9E" => "",                     # U+E0B5E => 
+"\xF3\xA0\xAD\x9F" => "",                     # U+E0B5F => 
+"\xF3\xA0\xAD\xA0" => "",                     # U+E0B60 => 
+"\xF3\xA0\xAD\xA1" => "",                     # U+E0B61 => 
+"\xF3\xA0\xAD\xA2" => "",                     # U+E0B62 => 
+"\xF3\xA0\xAD\xA3" => "",                     # U+E0B63 => 
+"\xF3\xA0\xAD\xA4" => "",                     # U+E0B64 => 
+"\xF3\xA0\xAD\xA5" => "",                     # U+E0B65 => 
+"\xF3\xA0\xAD\xA6" => "",                     # U+E0B66 => 
+"\xF3\xA0\xAD\xA7" => "",                     # U+E0B67 => 
+"\xF3\xA0\xAD\xA8" => "",                     # U+E0B68 => 
+"\xF3\xA0\xAD\xA9" => "",                     # U+E0B69 => 
+"\xF3\xA0\xAD\xAA" => "",                     # U+E0B6A => 
+"\xF3\xA0\xAD\xAB" => "",                     # U+E0B6B => 
+"\xF3\xA0\xAD\xAC" => "",                     # U+E0B6C => 
+"\xF3\xA0\xAD\xAD" => "",                     # U+E0B6D => 
+"\xF3\xA0\xAD\xAE" => "",                     # U+E0B6E => 
+"\xF3\xA0\xAD\xAF" => "",                     # U+E0B6F => 
+"\xF3\xA0\xAD\xB0" => "",                     # U+E0B70 => 
+"\xF3\xA0\xAD\xB1" => "",                     # U+E0B71 => 
+"\xF3\xA0\xAD\xB2" => "",                     # U+E0B72 => 
+"\xF3\xA0\xAD\xB3" => "",                     # U+E0B73 => 
+"\xF3\xA0\xAD\xB4" => "",                     # U+E0B74 => 
+"\xF3\xA0\xAD\xB5" => "",                     # U+E0B75 => 
+"\xF3\xA0\xAD\xB6" => "",                     # U+E0B76 => 
+"\xF3\xA0\xAD\xB7" => "",                     # U+E0B77 => 
+"\xF3\xA0\xAD\xB8" => "",                     # U+E0B78 => 
+"\xF3\xA0\xAD\xB9" => "",                     # U+E0B79 => 
+"\xF3\xA0\xAD\xBA" => "",                     # U+E0B7A => 
+"\xF3\xA0\xAD\xBB" => "",                     # U+E0B7B => 
+"\xF3\xA0\xAD\xBC" => "",                     # U+E0B7C => 
+"\xF3\xA0\xAD\xBD" => "",                     # U+E0B7D => 
+"\xF3\xA0\xAD\xBE" => "",                     # U+E0B7E => 
+"\xF3\xA0\xAD\xBF" => "",                     # U+E0B7F => 
+"\xF3\xA0\xAE\x80" => "",                     # U+E0B80 => 
+"\xF3\xA0\xAE\x81" => "",                     # U+E0B81 => 
+"\xF3\xA0\xAE\x82" => "",                     # U+E0B82 => 
+"\xF3\xA0\xAE\x83" => "",                     # U+E0B83 => 
+"\xF3\xA0\xAE\x84" => "",                     # U+E0B84 => 
+"\xF3\xA0\xAE\x85" => "",                     # U+E0B85 => 
+"\xF3\xA0\xAE\x86" => "",                     # U+E0B86 => 
+"\xF3\xA0\xAE\x87" => "",                     # U+E0B87 => 
+"\xF3\xA0\xAE\x88" => "",                     # U+E0B88 => 
+"\xF3\xA0\xAE\x89" => "",                     # U+E0B89 => 
+"\xF3\xA0\xAE\x8A" => "",                     # U+E0B8A => 
+"\xF3\xA0\xAE\x8B" => "",                     # U+E0B8B => 
+"\xF3\xA0\xAE\x8C" => "",                     # U+E0B8C => 
+"\xF3\xA0\xAE\x8D" => "",                     # U+E0B8D => 
+"\xF3\xA0\xAE\x8E" => "",                     # U+E0B8E => 
+"\xF3\xA0\xAE\x8F" => "",                     # U+E0B8F => 
+"\xF3\xA0\xAE\x90" => "",                     # U+E0B90 => 
+"\xF3\xA0\xAE\x91" => "",                     # U+E0B91 => 
+"\xF3\xA0\xAE\x92" => "",                     # U+E0B92 => 
+"\xF3\xA0\xAE\x93" => "",                     # U+E0B93 => 
+"\xF3\xA0\xAE\x94" => "",                     # U+E0B94 => 
+"\xF3\xA0\xAE\x95" => "",                     # U+E0B95 => 
+"\xF3\xA0\xAE\x96" => "",                     # U+E0B96 => 
+"\xF3\xA0\xAE\x97" => "",                     # U+E0B97 => 
+"\xF3\xA0\xAE\x98" => "",                     # U+E0B98 => 
+"\xF3\xA0\xAE\x99" => "",                     # U+E0B99 => 
+"\xF3\xA0\xAE\x9A" => "",                     # U+E0B9A => 
+"\xF3\xA0\xAE\x9B" => "",                     # U+E0B9B => 
+"\xF3\xA0\xAE\x9C" => "",                     # U+E0B9C => 
+"\xF3\xA0\xAE\x9D" => "",                     # U+E0B9D => 
+"\xF3\xA0\xAE\x9E" => "",                     # U+E0B9E => 
+"\xF3\xA0\xAE\x9F" => "",                     # U+E0B9F => 
+"\xF3\xA0\xAE\xA0" => "",                     # U+E0BA0 => 
+"\xF3\xA0\xAE\xA1" => "",                     # U+E0BA1 => 
+"\xF3\xA0\xAE\xA2" => "",                     # U+E0BA2 => 
+"\xF3\xA0\xAE\xA3" => "",                     # U+E0BA3 => 
+"\xF3\xA0\xAE\xA4" => "",                     # U+E0BA4 => 
+"\xF3\xA0\xAE\xA5" => "",                     # U+E0BA5 => 
+"\xF3\xA0\xAE\xA6" => "",                     # U+E0BA6 => 
+"\xF3\xA0\xAE\xA7" => "",                     # U+E0BA7 => 
+"\xF3\xA0\xAE\xA8" => "",                     # U+E0BA8 => 
+"\xF3\xA0\xAE\xA9" => "",                     # U+E0BA9 => 
+"\xF3\xA0\xAE\xAA" => "",                     # U+E0BAA => 
+"\xF3\xA0\xAE\xAB" => "",                     # U+E0BAB => 
+"\xF3\xA0\xAE\xAC" => "",                     # U+E0BAC => 
+"\xF3\xA0\xAE\xAD" => "",                     # U+E0BAD => 
+"\xF3\xA0\xAE\xAE" => "",                     # U+E0BAE => 
+"\xF3\xA0\xAE\xAF" => "",                     # U+E0BAF => 
+"\xF3\xA0\xAE\xB0" => "",                     # U+E0BB0 => 
+"\xF3\xA0\xAE\xB1" => "",                     # U+E0BB1 => 
+"\xF3\xA0\xAE\xB2" => "",                     # U+E0BB2 => 
+"\xF3\xA0\xAE\xB3" => "",                     # U+E0BB3 => 
+"\xF3\xA0\xAE\xB4" => "",                     # U+E0BB4 => 
+"\xF3\xA0\xAE\xB5" => "",                     # U+E0BB5 => 
+"\xF3\xA0\xAE\xB6" => "",                     # U+E0BB6 => 
+"\xF3\xA0\xAE\xB7" => "",                     # U+E0BB7 => 
+"\xF3\xA0\xAE\xB8" => "",                     # U+E0BB8 => 
+"\xF3\xA0\xAE\xB9" => "",                     # U+E0BB9 => 
+"\xF3\xA0\xAE\xBA" => "",                     # U+E0BBA => 
+"\xF3\xA0\xAE\xBB" => "",                     # U+E0BBB => 
+"\xF3\xA0\xAE\xBC" => "",                     # U+E0BBC => 
+"\xF3\xA0\xAE\xBD" => "",                     # U+E0BBD => 
+"\xF3\xA0\xAE\xBE" => "",                     # U+E0BBE => 
+"\xF3\xA0\xAE\xBF" => "",                     # U+E0BBF => 
+"\xF3\xA0\xAF\x80" => "",                     # U+E0BC0 => 
+"\xF3\xA0\xAF\x81" => "",                     # U+E0BC1 => 
+"\xF3\xA0\xAF\x82" => "",                     # U+E0BC2 => 
+"\xF3\xA0\xAF\x83" => "",                     # U+E0BC3 => 
+"\xF3\xA0\xAF\x84" => "",                     # U+E0BC4 => 
+"\xF3\xA0\xAF\x85" => "",                     # U+E0BC5 => 
+"\xF3\xA0\xAF\x86" => "",                     # U+E0BC6 => 
+"\xF3\xA0\xAF\x87" => "",                     # U+E0BC7 => 
+"\xF3\xA0\xAF\x88" => "",                     # U+E0BC8 => 
+"\xF3\xA0\xAF\x89" => "",                     # U+E0BC9 => 
+"\xF3\xA0\xAF\x8A" => "",                     # U+E0BCA => 
+"\xF3\xA0\xAF\x8B" => "",                     # U+E0BCB => 
+"\xF3\xA0\xAF\x8C" => "",                     # U+E0BCC => 
+"\xF3\xA0\xAF\x8D" => "",                     # U+E0BCD => 
+"\xF3\xA0\xAF\x8E" => "",                     # U+E0BCE => 
+"\xF3\xA0\xAF\x8F" => "",                     # U+E0BCF => 
+"\xF3\xA0\xAF\x90" => "",                     # U+E0BD0 => 
+"\xF3\xA0\xAF\x91" => "",                     # U+E0BD1 => 
+"\xF3\xA0\xAF\x92" => "",                     # U+E0BD2 => 
+"\xF3\xA0\xAF\x93" => "",                     # U+E0BD3 => 
+"\xF3\xA0\xAF\x94" => "",                     # U+E0BD4 => 
+"\xF3\xA0\xAF\x95" => "",                     # U+E0BD5 => 
+"\xF3\xA0\xAF\x96" => "",                     # U+E0BD6 => 
+"\xF3\xA0\xAF\x97" => "",                     # U+E0BD7 => 
+"\xF3\xA0\xAF\x98" => "",                     # U+E0BD8 => 
+"\xF3\xA0\xAF\x99" => "",                     # U+E0BD9 => 
+"\xF3\xA0\xAF\x9A" => "",                     # U+E0BDA => 
+"\xF3\xA0\xAF\x9B" => "",                     # U+E0BDB => 
+"\xF3\xA0\xAF\x9C" => "",                     # U+E0BDC => 
+"\xF3\xA0\xAF\x9D" => "",                     # U+E0BDD => 
+"\xF3\xA0\xAF\x9E" => "",                     # U+E0BDE => 
+"\xF3\xA0\xAF\x9F" => "",                     # U+E0BDF => 
+"\xF3\xA0\xAF\xA0" => "",                     # U+E0BE0 => 
+"\xF3\xA0\xAF\xA1" => "",                     # U+E0BE1 => 
+"\xF3\xA0\xAF\xA2" => "",                     # U+E0BE2 => 
+"\xF3\xA0\xAF\xA3" => "",                     # U+E0BE3 => 
+"\xF3\xA0\xAF\xA4" => "",                     # U+E0BE4 => 
+"\xF3\xA0\xAF\xA5" => "",                     # U+E0BE5 => 
+"\xF3\xA0\xAF\xA6" => "",                     # U+E0BE6 => 
+"\xF3\xA0\xAF\xA7" => "",                     # U+E0BE7 => 
+"\xF3\xA0\xAF\xA8" => "",                     # U+E0BE8 => 
+"\xF3\xA0\xAF\xA9" => "",                     # U+E0BE9 => 
+"\xF3\xA0\xAF\xAA" => "",                     # U+E0BEA => 
+"\xF3\xA0\xAF\xAB" => "",                     # U+E0BEB => 
+"\xF3\xA0\xAF\xAC" => "",                     # U+E0BEC => 
+"\xF3\xA0\xAF\xAD" => "",                     # U+E0BED => 
+"\xF3\xA0\xAF\xAE" => "",                     # U+E0BEE => 
+"\xF3\xA0\xAF\xAF" => "",                     # U+E0BEF => 
+"\xF3\xA0\xAF\xB0" => "",                     # U+E0BF0 => 
+"\xF3\xA0\xAF\xB1" => "",                     # U+E0BF1 => 
+"\xF3\xA0\xAF\xB2" => "",                     # U+E0BF2 => 
+"\xF3\xA0\xAF\xB3" => "",                     # U+E0BF3 => 
+"\xF3\xA0\xAF\xB4" => "",                     # U+E0BF4 => 
+"\xF3\xA0\xAF\xB5" => "",                     # U+E0BF5 => 
+"\xF3\xA0\xAF\xB6" => "",                     # U+E0BF6 => 
+"\xF3\xA0\xAF\xB7" => "",                     # U+E0BF7 => 
+"\xF3\xA0\xAF\xB8" => "",                     # U+E0BF8 => 
+"\xF3\xA0\xAF\xB9" => "",                     # U+E0BF9 => 
+"\xF3\xA0\xAF\xBA" => "",                     # U+E0BFA => 
+"\xF3\xA0\xAF\xBB" => "",                     # U+E0BFB => 
+"\xF3\xA0\xAF\xBC" => "",                     # U+E0BFC => 
+"\xF3\xA0\xAF\xBD" => "",                     # U+E0BFD => 
+"\xF3\xA0\xAF\xBE" => "",                     # U+E0BFE => 
+"\xF3\xA0\xAF\xBF" => "",                     # U+E0BFF => 
+"\xF3\xA0\xB0\x80" => "",                     # U+E0C00 => 
+"\xF3\xA0\xB0\x81" => "",                     # U+E0C01 => 
+"\xF3\xA0\xB0\x82" => "",                     # U+E0C02 => 
+"\xF3\xA0\xB0\x83" => "",                     # U+E0C03 => 
+"\xF3\xA0\xB0\x84" => "",                     # U+E0C04 => 
+"\xF3\xA0\xB0\x85" => "",                     # U+E0C05 => 
+"\xF3\xA0\xB0\x86" => "",                     # U+E0C06 => 
+"\xF3\xA0\xB0\x87" => "",                     # U+E0C07 => 
+"\xF3\xA0\xB0\x88" => "",                     # U+E0C08 => 
+"\xF3\xA0\xB0\x89" => "",                     # U+E0C09 => 
+"\xF3\xA0\xB0\x8A" => "",                     # U+E0C0A => 
+"\xF3\xA0\xB0\x8B" => "",                     # U+E0C0B => 
+"\xF3\xA0\xB0\x8C" => "",                     # U+E0C0C => 
+"\xF3\xA0\xB0\x8D" => "",                     # U+E0C0D => 
+"\xF3\xA0\xB0\x8E" => "",                     # U+E0C0E => 
+"\xF3\xA0\xB0\x8F" => "",                     # U+E0C0F => 
+"\xF3\xA0\xB0\x90" => "",                     # U+E0C10 => 
+"\xF3\xA0\xB0\x91" => "",                     # U+E0C11 => 
+"\xF3\xA0\xB0\x92" => "",                     # U+E0C12 => 
+"\xF3\xA0\xB0\x93" => "",                     # U+E0C13 => 
+"\xF3\xA0\xB0\x94" => "",                     # U+E0C14 => 
+"\xF3\xA0\xB0\x95" => "",                     # U+E0C15 => 
+"\xF3\xA0\xB0\x96" => "",                     # U+E0C16 => 
+"\xF3\xA0\xB0\x97" => "",                     # U+E0C17 => 
+"\xF3\xA0\xB0\x98" => "",                     # U+E0C18 => 
+"\xF3\xA0\xB0\x99" => "",                     # U+E0C19 => 
+"\xF3\xA0\xB0\x9A" => "",                     # U+E0C1A => 
+"\xF3\xA0\xB0\x9B" => "",                     # U+E0C1B => 
+"\xF3\xA0\xB0\x9C" => "",                     # U+E0C1C => 
+"\xF3\xA0\xB0\x9D" => "",                     # U+E0C1D => 
+"\xF3\xA0\xB0\x9E" => "",                     # U+E0C1E => 
+"\xF3\xA0\xB0\x9F" => "",                     # U+E0C1F => 
+"\xF3\xA0\xB0\xA0" => "",                     # U+E0C20 => 
+"\xF3\xA0\xB0\xA1" => "",                     # U+E0C21 => 
+"\xF3\xA0\xB0\xA2" => "",                     # U+E0C22 => 
+"\xF3\xA0\xB0\xA3" => "",                     # U+E0C23 => 
+"\xF3\xA0\xB0\xA4" => "",                     # U+E0C24 => 
+"\xF3\xA0\xB0\xA5" => "",                     # U+E0C25 => 
+"\xF3\xA0\xB0\xA6" => "",                     # U+E0C26 => 
+"\xF3\xA0\xB0\xA7" => "",                     # U+E0C27 => 
+"\xF3\xA0\xB0\xA8" => "",                     # U+E0C28 => 
+"\xF3\xA0\xB0\xA9" => "",                     # U+E0C29 => 
+"\xF3\xA0\xB0\xAA" => "",                     # U+E0C2A => 
+"\xF3\xA0\xB0\xAB" => "",                     # U+E0C2B => 
+"\xF3\xA0\xB0\xAC" => "",                     # U+E0C2C => 
+"\xF3\xA0\xB0\xAD" => "",                     # U+E0C2D => 
+"\xF3\xA0\xB0\xAE" => "",                     # U+E0C2E => 
+"\xF3\xA0\xB0\xAF" => "",                     # U+E0C2F => 
+"\xF3\xA0\xB0\xB0" => "",                     # U+E0C30 => 
+"\xF3\xA0\xB0\xB1" => "",                     # U+E0C31 => 
+"\xF3\xA0\xB0\xB2" => "",                     # U+E0C32 => 
+"\xF3\xA0\xB0\xB3" => "",                     # U+E0C33 => 
+"\xF3\xA0\xB0\xB4" => "",                     # U+E0C34 => 
+"\xF3\xA0\xB0\xB5" => "",                     # U+E0C35 => 
+"\xF3\xA0\xB0\xB6" => "",                     # U+E0C36 => 
+"\xF3\xA0\xB0\xB7" => "",                     # U+E0C37 => 
+"\xF3\xA0\xB0\xB8" => "",                     # U+E0C38 => 
+"\xF3\xA0\xB0\xB9" => "",                     # U+E0C39 => 
+"\xF3\xA0\xB0\xBA" => "",                     # U+E0C3A => 
+"\xF3\xA0\xB0\xBB" => "",                     # U+E0C3B => 
+"\xF3\xA0\xB0\xBC" => "",                     # U+E0C3C => 
+"\xF3\xA0\xB0\xBD" => "",                     # U+E0C3D => 
+"\xF3\xA0\xB0\xBE" => "",                     # U+E0C3E => 
+"\xF3\xA0\xB0\xBF" => "",                     # U+E0C3F => 
+"\xF3\xA0\xB1\x80" => "",                     # U+E0C40 => 
+"\xF3\xA0\xB1\x81" => "",                     # U+E0C41 => 
+"\xF3\xA0\xB1\x82" => "",                     # U+E0C42 => 
+"\xF3\xA0\xB1\x83" => "",                     # U+E0C43 => 
+"\xF3\xA0\xB1\x84" => "",                     # U+E0C44 => 
+"\xF3\xA0\xB1\x85" => "",                     # U+E0C45 => 
+"\xF3\xA0\xB1\x86" => "",                     # U+E0C46 => 
+"\xF3\xA0\xB1\x87" => "",                     # U+E0C47 => 
+"\xF3\xA0\xB1\x88" => "",                     # U+E0C48 => 
+"\xF3\xA0\xB1\x89" => "",                     # U+E0C49 => 
+"\xF3\xA0\xB1\x8A" => "",                     # U+E0C4A => 
+"\xF3\xA0\xB1\x8B" => "",                     # U+E0C4B => 
+"\xF3\xA0\xB1\x8C" => "",                     # U+E0C4C => 
+"\xF3\xA0\xB1\x8D" => "",                     # U+E0C4D => 
+"\xF3\xA0\xB1\x8E" => "",                     # U+E0C4E => 
+"\xF3\xA0\xB1\x8F" => "",                     # U+E0C4F => 
+"\xF3\xA0\xB1\x90" => "",                     # U+E0C50 => 
+"\xF3\xA0\xB1\x91" => "",                     # U+E0C51 => 
+"\xF3\xA0\xB1\x92" => "",                     # U+E0C52 => 
+"\xF3\xA0\xB1\x93" => "",                     # U+E0C53 => 
+"\xF3\xA0\xB1\x94" => "",                     # U+E0C54 => 
+"\xF3\xA0\xB1\x95" => "",                     # U+E0C55 => 
+"\xF3\xA0\xB1\x96" => "",                     # U+E0C56 => 
+"\xF3\xA0\xB1\x97" => "",                     # U+E0C57 => 
+"\xF3\xA0\xB1\x98" => "",                     # U+E0C58 => 
+"\xF3\xA0\xB1\x99" => "",                     # U+E0C59 => 
+"\xF3\xA0\xB1\x9A" => "",                     # U+E0C5A => 
+"\xF3\xA0\xB1\x9B" => "",                     # U+E0C5B => 
+"\xF3\xA0\xB1\x9C" => "",                     # U+E0C5C => 
+"\xF3\xA0\xB1\x9D" => "",                     # U+E0C5D => 
+"\xF3\xA0\xB1\x9E" => "",                     # U+E0C5E => 
+"\xF3\xA0\xB1\x9F" => "",                     # U+E0C5F => 
+"\xF3\xA0\xB1\xA0" => "",                     # U+E0C60 => 
+"\xF3\xA0\xB1\xA1" => "",                     # U+E0C61 => 
+"\xF3\xA0\xB1\xA2" => "",                     # U+E0C62 => 
+"\xF3\xA0\xB1\xA3" => "",                     # U+E0C63 => 
+"\xF3\xA0\xB1\xA4" => "",                     # U+E0C64 => 
+"\xF3\xA0\xB1\xA5" => "",                     # U+E0C65 => 
+"\xF3\xA0\xB1\xA6" => "",                     # U+E0C66 => 
+"\xF3\xA0\xB1\xA7" => "",                     # U+E0C67 => 
+"\xF3\xA0\xB1\xA8" => "",                     # U+E0C68 => 
+"\xF3\xA0\xB1\xA9" => "",                     # U+E0C69 => 
+"\xF3\xA0\xB1\xAA" => "",                     # U+E0C6A => 
+"\xF3\xA0\xB1\xAB" => "",                     # U+E0C6B => 
+"\xF3\xA0\xB1\xAC" => "",                     # U+E0C6C => 
+"\xF3\xA0\xB1\xAD" => "",                     # U+E0C6D => 
+"\xF3\xA0\xB1\xAE" => "",                     # U+E0C6E => 
+"\xF3\xA0\xB1\xAF" => "",                     # U+E0C6F => 
+"\xF3\xA0\xB1\xB0" => "",                     # U+E0C70 => 
+"\xF3\xA0\xB1\xB1" => "",                     # U+E0C71 => 
+"\xF3\xA0\xB1\xB2" => "",                     # U+E0C72 => 
+"\xF3\xA0\xB1\xB3" => "",                     # U+E0C73 => 
+"\xF3\xA0\xB1\xB4" => "",                     # U+E0C74 => 
+"\xF3\xA0\xB1\xB5" => "",                     # U+E0C75 => 
+"\xF3\xA0\xB1\xB6" => "",                     # U+E0C76 => 
+"\xF3\xA0\xB1\xB7" => "",                     # U+E0C77 => 
+"\xF3\xA0\xB1\xB8" => "",                     # U+E0C78 => 
+"\xF3\xA0\xB1\xB9" => "",                     # U+E0C79 => 
+"\xF3\xA0\xB1\xBA" => "",                     # U+E0C7A => 
+"\xF3\xA0\xB1\xBB" => "",                     # U+E0C7B => 
+"\xF3\xA0\xB1\xBC" => "",                     # U+E0C7C => 
+"\xF3\xA0\xB1\xBD" => "",                     # U+E0C7D => 
+"\xF3\xA0\xB1\xBE" => "",                     # U+E0C7E => 
+"\xF3\xA0\xB1\xBF" => "",                     # U+E0C7F => 
+"\xF3\xA0\xB2\x80" => "",                     # U+E0C80 => 
+"\xF3\xA0\xB2\x81" => "",                     # U+E0C81 => 
+"\xF3\xA0\xB2\x82" => "",                     # U+E0C82 => 
+"\xF3\xA0\xB2\x83" => "",                     # U+E0C83 => 
+"\xF3\xA0\xB2\x84" => "",                     # U+E0C84 => 
+"\xF3\xA0\xB2\x85" => "",                     # U+E0C85 => 
+"\xF3\xA0\xB2\x86" => "",                     # U+E0C86 => 
+"\xF3\xA0\xB2\x87" => "",                     # U+E0C87 => 
+"\xF3\xA0\xB2\x88" => "",                     # U+E0C88 => 
+"\xF3\xA0\xB2\x89" => "",                     # U+E0C89 => 
+"\xF3\xA0\xB2\x8A" => "",                     # U+E0C8A => 
+"\xF3\xA0\xB2\x8B" => "",                     # U+E0C8B => 
+"\xF3\xA0\xB2\x8C" => "",                     # U+E0C8C => 
+"\xF3\xA0\xB2\x8D" => "",                     # U+E0C8D => 
+"\xF3\xA0\xB2\x8E" => "",                     # U+E0C8E => 
+"\xF3\xA0\xB2\x8F" => "",                     # U+E0C8F => 
+"\xF3\xA0\xB2\x90" => "",                     # U+E0C90 => 
+"\xF3\xA0\xB2\x91" => "",                     # U+E0C91 => 
+"\xF3\xA0\xB2\x92" => "",                     # U+E0C92 => 
+"\xF3\xA0\xB2\x93" => "",                     # U+E0C93 => 
+"\xF3\xA0\xB2\x94" => "",                     # U+E0C94 => 
+"\xF3\xA0\xB2\x95" => "",                     # U+E0C95 => 
+"\xF3\xA0\xB2\x96" => "",                     # U+E0C96 => 
+"\xF3\xA0\xB2\x97" => "",                     # U+E0C97 => 
+"\xF3\xA0\xB2\x98" => "",                     # U+E0C98 => 
+"\xF3\xA0\xB2\x99" => "",                     # U+E0C99 => 
+"\xF3\xA0\xB2\x9A" => "",                     # U+E0C9A => 
+"\xF3\xA0\xB2\x9B" => "",                     # U+E0C9B => 
+"\xF3\xA0\xB2\x9C" => "",                     # U+E0C9C => 
+"\xF3\xA0\xB2\x9D" => "",                     # U+E0C9D => 
+"\xF3\xA0\xB2\x9E" => "",                     # U+E0C9E => 
+"\xF3\xA0\xB2\x9F" => "",                     # U+E0C9F => 
+"\xF3\xA0\xB2\xA0" => "",                     # U+E0CA0 => 
+"\xF3\xA0\xB2\xA1" => "",                     # U+E0CA1 => 
+"\xF3\xA0\xB2\xA2" => "",                     # U+E0CA2 => 
+"\xF3\xA0\xB2\xA3" => "",                     # U+E0CA3 => 
+"\xF3\xA0\xB2\xA4" => "",                     # U+E0CA4 => 
+"\xF3\xA0\xB2\xA5" => "",                     # U+E0CA5 => 
+"\xF3\xA0\xB2\xA6" => "",                     # U+E0CA6 => 
+"\xF3\xA0\xB2\xA7" => "",                     # U+E0CA7 => 
+"\xF3\xA0\xB2\xA8" => "",                     # U+E0CA8 => 
+"\xF3\xA0\xB2\xA9" => "",                     # U+E0CA9 => 
+"\xF3\xA0\xB2\xAA" => "",                     # U+E0CAA => 
+"\xF3\xA0\xB2\xAB" => "",                     # U+E0CAB => 
+"\xF3\xA0\xB2\xAC" => "",                     # U+E0CAC => 
+"\xF3\xA0\xB2\xAD" => "",                     # U+E0CAD => 
+"\xF3\xA0\xB2\xAE" => "",                     # U+E0CAE => 
+"\xF3\xA0\xB2\xAF" => "",                     # U+E0CAF => 
+"\xF3\xA0\xB2\xB0" => "",                     # U+E0CB0 => 
+"\xF3\xA0\xB2\xB1" => "",                     # U+E0CB1 => 
+"\xF3\xA0\xB2\xB2" => "",                     # U+E0CB2 => 
+"\xF3\xA0\xB2\xB3" => "",                     # U+E0CB3 => 
+"\xF3\xA0\xB2\xB4" => "",                     # U+E0CB4 => 
+"\xF3\xA0\xB2\xB5" => "",                     # U+E0CB5 => 
+"\xF3\xA0\xB2\xB6" => "",                     # U+E0CB6 => 
+"\xF3\xA0\xB2\xB7" => "",                     # U+E0CB7 => 
+"\xF3\xA0\xB2\xB8" => "",                     # U+E0CB8 => 
+"\xF3\xA0\xB2\xB9" => "",                     # U+E0CB9 => 
+"\xF3\xA0\xB2\xBA" => "",                     # U+E0CBA => 
+"\xF3\xA0\xB2\xBB" => "",                     # U+E0CBB => 
+"\xF3\xA0\xB2\xBC" => "",                     # U+E0CBC => 
+"\xF3\xA0\xB2\xBD" => "",                     # U+E0CBD => 
+"\xF3\xA0\xB2\xBE" => "",                     # U+E0CBE => 
+"\xF3\xA0\xB2\xBF" => "",                     # U+E0CBF => 
+"\xF3\xA0\xB3\x80" => "",                     # U+E0CC0 => 
+"\xF3\xA0\xB3\x81" => "",                     # U+E0CC1 => 
+"\xF3\xA0\xB3\x82" => "",                     # U+E0CC2 => 
+"\xF3\xA0\xB3\x83" => "",                     # U+E0CC3 => 
+"\xF3\xA0\xB3\x84" => "",                     # U+E0CC4 => 
+"\xF3\xA0\xB3\x85" => "",                     # U+E0CC5 => 
+"\xF3\xA0\xB3\x86" => "",                     # U+E0CC6 => 
+"\xF3\xA0\xB3\x87" => "",                     # U+E0CC7 => 
+"\xF3\xA0\xB3\x88" => "",                     # U+E0CC8 => 
+"\xF3\xA0\xB3\x89" => "",                     # U+E0CC9 => 
+"\xF3\xA0\xB3\x8A" => "",                     # U+E0CCA => 
+"\xF3\xA0\xB3\x8B" => "",                     # U+E0CCB => 
+"\xF3\xA0\xB3\x8C" => "",                     # U+E0CCC => 
+"\xF3\xA0\xB3\x8D" => "",                     # U+E0CCD => 
+"\xF3\xA0\xB3\x8E" => "",                     # U+E0CCE => 
+"\xF3\xA0\xB3\x8F" => "",                     # U+E0CCF => 
+"\xF3\xA0\xB3\x90" => "",                     # U+E0CD0 => 
+"\xF3\xA0\xB3\x91" => "",                     # U+E0CD1 => 
+"\xF3\xA0\xB3\x92" => "",                     # U+E0CD2 => 
+"\xF3\xA0\xB3\x93" => "",                     # U+E0CD3 => 
+"\xF3\xA0\xB3\x94" => "",                     # U+E0CD4 => 
+"\xF3\xA0\xB3\x95" => "",                     # U+E0CD5 => 
+"\xF3\xA0\xB3\x96" => "",                     # U+E0CD6 => 
+"\xF3\xA0\xB3\x97" => "",                     # U+E0CD7 => 
+"\xF3\xA0\xB3\x98" => "",                     # U+E0CD8 => 
+"\xF3\xA0\xB3\x99" => "",                     # U+E0CD9 => 
+"\xF3\xA0\xB3\x9A" => "",                     # U+E0CDA => 
+"\xF3\xA0\xB3\x9B" => "",                     # U+E0CDB => 
+"\xF3\xA0\xB3\x9C" => "",                     # U+E0CDC => 
+"\xF3\xA0\xB3\x9D" => "",                     # U+E0CDD => 
+"\xF3\xA0\xB3\x9E" => "",                     # U+E0CDE => 
+"\xF3\xA0\xB3\x9F" => "",                     # U+E0CDF => 
+"\xF3\xA0\xB3\xA0" => "",                     # U+E0CE0 => 
+"\xF3\xA0\xB3\xA1" => "",                     # U+E0CE1 => 
+"\xF3\xA0\xB3\xA2" => "",                     # U+E0CE2 => 
+"\xF3\xA0\xB3\xA3" => "",                     # U+E0CE3 => 
+"\xF3\xA0\xB3\xA4" => "",                     # U+E0CE4 => 
+"\xF3\xA0\xB3\xA5" => "",                     # U+E0CE5 => 
+"\xF3\xA0\xB3\xA6" => "",                     # U+E0CE6 => 
+"\xF3\xA0\xB3\xA7" => "",                     # U+E0CE7 => 
+"\xF3\xA0\xB3\xA8" => "",                     # U+E0CE8 => 
+"\xF3\xA0\xB3\xA9" => "",                     # U+E0CE9 => 
+"\xF3\xA0\xB3\xAA" => "",                     # U+E0CEA => 
+"\xF3\xA0\xB3\xAB" => "",                     # U+E0CEB => 
+"\xF3\xA0\xB3\xAC" => "",                     # U+E0CEC => 
+"\xF3\xA0\xB3\xAD" => "",                     # U+E0CED => 
+"\xF3\xA0\xB3\xAE" => "",                     # U+E0CEE => 
+"\xF3\xA0\xB3\xAF" => "",                     # U+E0CEF => 
+"\xF3\xA0\xB3\xB0" => "",                     # U+E0CF0 => 
+"\xF3\xA0\xB3\xB1" => "",                     # U+E0CF1 => 
+"\xF3\xA0\xB3\xB2" => "",                     # U+E0CF2 => 
+"\xF3\xA0\xB3\xB3" => "",                     # U+E0CF3 => 
+"\xF3\xA0\xB3\xB4" => "",                     # U+E0CF4 => 
+"\xF3\xA0\xB3\xB5" => "",                     # U+E0CF5 => 
+"\xF3\xA0\xB3\xB6" => "",                     # U+E0CF6 => 
+"\xF3\xA0\xB3\xB7" => "",                     # U+E0CF7 => 
+"\xF3\xA0\xB3\xB8" => "",                     # U+E0CF8 => 
+"\xF3\xA0\xB3\xB9" => "",                     # U+E0CF9 => 
+"\xF3\xA0\xB3\xBA" => "",                     # U+E0CFA => 
+"\xF3\xA0\xB3\xBB" => "",                     # U+E0CFB => 
+"\xF3\xA0\xB3\xBC" => "",                     # U+E0CFC => 
+"\xF3\xA0\xB3\xBD" => "",                     # U+E0CFD => 
+"\xF3\xA0\xB3\xBE" => "",                     # U+E0CFE => 
+"\xF3\xA0\xB3\xBF" => "",                     # U+E0CFF => 
+"\xF3\xA0\xB4\x80" => "",                     # U+E0D00 => 
+"\xF3\xA0\xB4\x81" => "",                     # U+E0D01 => 
+"\xF3\xA0\xB4\x82" => "",                     # U+E0D02 => 
+"\xF3\xA0\xB4\x83" => "",                     # U+E0D03 => 
+"\xF3\xA0\xB4\x84" => "",                     # U+E0D04 => 
+"\xF3\xA0\xB4\x85" => "",                     # U+E0D05 => 
+"\xF3\xA0\xB4\x86" => "",                     # U+E0D06 => 
+"\xF3\xA0\xB4\x87" => "",                     # U+E0D07 => 
+"\xF3\xA0\xB4\x88" => "",                     # U+E0D08 => 
+"\xF3\xA0\xB4\x89" => "",                     # U+E0D09 => 
+"\xF3\xA0\xB4\x8A" => "",                     # U+E0D0A => 
+"\xF3\xA0\xB4\x8B" => "",                     # U+E0D0B => 
+"\xF3\xA0\xB4\x8C" => "",                     # U+E0D0C => 
+"\xF3\xA0\xB4\x8D" => "",                     # U+E0D0D => 
+"\xF3\xA0\xB4\x8E" => "",                     # U+E0D0E => 
+"\xF3\xA0\xB4\x8F" => "",                     # U+E0D0F => 
+"\xF3\xA0\xB4\x90" => "",                     # U+E0D10 => 
+"\xF3\xA0\xB4\x91" => "",                     # U+E0D11 => 
+"\xF3\xA0\xB4\x92" => "",                     # U+E0D12 => 
+"\xF3\xA0\xB4\x93" => "",                     # U+E0D13 => 
+"\xF3\xA0\xB4\x94" => "",                     # U+E0D14 => 
+"\xF3\xA0\xB4\x95" => "",                     # U+E0D15 => 
+"\xF3\xA0\xB4\x96" => "",                     # U+E0D16 => 
+"\xF3\xA0\xB4\x97" => "",                     # U+E0D17 => 
+"\xF3\xA0\xB4\x98" => "",                     # U+E0D18 => 
+"\xF3\xA0\xB4\x99" => "",                     # U+E0D19 => 
+"\xF3\xA0\xB4\x9A" => "",                     # U+E0D1A => 
+"\xF3\xA0\xB4\x9B" => "",                     # U+E0D1B => 
+"\xF3\xA0\xB4\x9C" => "",                     # U+E0D1C => 
+"\xF3\xA0\xB4\x9D" => "",                     # U+E0D1D => 
+"\xF3\xA0\xB4\x9E" => "",                     # U+E0D1E => 
+"\xF3\xA0\xB4\x9F" => "",                     # U+E0D1F => 
+"\xF3\xA0\xB4\xA0" => "",                     # U+E0D20 => 
+"\xF3\xA0\xB4\xA1" => "",                     # U+E0D21 => 
+"\xF3\xA0\xB4\xA2" => "",                     # U+E0D22 => 
+"\xF3\xA0\xB4\xA3" => "",                     # U+E0D23 => 
+"\xF3\xA0\xB4\xA4" => "",                     # U+E0D24 => 
+"\xF3\xA0\xB4\xA5" => "",                     # U+E0D25 => 
+"\xF3\xA0\xB4\xA6" => "",                     # U+E0D26 => 
+"\xF3\xA0\xB4\xA7" => "",                     # U+E0D27 => 
+"\xF3\xA0\xB4\xA8" => "",                     # U+E0D28 => 
+"\xF3\xA0\xB4\xA9" => "",                     # U+E0D29 => 
+"\xF3\xA0\xB4\xAA" => "",                     # U+E0D2A => 
+"\xF3\xA0\xB4\xAB" => "",                     # U+E0D2B => 
+"\xF3\xA0\xB4\xAC" => "",                     # U+E0D2C => 
+"\xF3\xA0\xB4\xAD" => "",                     # U+E0D2D => 
+"\xF3\xA0\xB4\xAE" => "",                     # U+E0D2E => 
+"\xF3\xA0\xB4\xAF" => "",                     # U+E0D2F => 
+"\xF3\xA0\xB4\xB0" => "",                     # U+E0D30 => 
+"\xF3\xA0\xB4\xB1" => "",                     # U+E0D31 => 
+"\xF3\xA0\xB4\xB2" => "",                     # U+E0D32 => 
+"\xF3\xA0\xB4\xB3" => "",                     # U+E0D33 => 
+"\xF3\xA0\xB4\xB4" => "",                     # U+E0D34 => 
+"\xF3\xA0\xB4\xB5" => "",                     # U+E0D35 => 
+"\xF3\xA0\xB4\xB6" => "",                     # U+E0D36 => 
+"\xF3\xA0\xB4\xB7" => "",                     # U+E0D37 => 
+"\xF3\xA0\xB4\xB8" => "",                     # U+E0D38 => 
+"\xF3\xA0\xB4\xB9" => "",                     # U+E0D39 => 
+"\xF3\xA0\xB4\xBA" => "",                     # U+E0D3A => 
+"\xF3\xA0\xB4\xBB" => "",                     # U+E0D3B => 
+"\xF3\xA0\xB4\xBC" => "",                     # U+E0D3C => 
+"\xF3\xA0\xB4\xBD" => "",                     # U+E0D3D => 
+"\xF3\xA0\xB4\xBE" => "",                     # U+E0D3E => 
+"\xF3\xA0\xB4\xBF" => "",                     # U+E0D3F => 
+"\xF3\xA0\xB5\x80" => "",                     # U+E0D40 => 
+"\xF3\xA0\xB5\x81" => "",                     # U+E0D41 => 
+"\xF3\xA0\xB5\x82" => "",                     # U+E0D42 => 
+"\xF3\xA0\xB5\x83" => "",                     # U+E0D43 => 
+"\xF3\xA0\xB5\x84" => "",                     # U+E0D44 => 
+"\xF3\xA0\xB5\x85" => "",                     # U+E0D45 => 
+"\xF3\xA0\xB5\x86" => "",                     # U+E0D46 => 
+"\xF3\xA0\xB5\x87" => "",                     # U+E0D47 => 
+"\xF3\xA0\xB5\x88" => "",                     # U+E0D48 => 
+"\xF3\xA0\xB5\x89" => "",                     # U+E0D49 => 
+"\xF3\xA0\xB5\x8A" => "",                     # U+E0D4A => 
+"\xF3\xA0\xB5\x8B" => "",                     # U+E0D4B => 
+"\xF3\xA0\xB5\x8C" => "",                     # U+E0D4C => 
+"\xF3\xA0\xB5\x8D" => "",                     # U+E0D4D => 
+"\xF3\xA0\xB5\x8E" => "",                     # U+E0D4E => 
+"\xF3\xA0\xB5\x8F" => "",                     # U+E0D4F => 
+"\xF3\xA0\xB5\x90" => "",                     # U+E0D50 => 
+"\xF3\xA0\xB5\x91" => "",                     # U+E0D51 => 
+"\xF3\xA0\xB5\x92" => "",                     # U+E0D52 => 
+"\xF3\xA0\xB5\x93" => "",                     # U+E0D53 => 
+"\xF3\xA0\xB5\x94" => "",                     # U+E0D54 => 
+"\xF3\xA0\xB5\x95" => "",                     # U+E0D55 => 
+"\xF3\xA0\xB5\x96" => "",                     # U+E0D56 => 
+"\xF3\xA0\xB5\x97" => "",                     # U+E0D57 => 
+"\xF3\xA0\xB5\x98" => "",                     # U+E0D58 => 
+"\xF3\xA0\xB5\x99" => "",                     # U+E0D59 => 
+"\xF3\xA0\xB5\x9A" => "",                     # U+E0D5A => 
+"\xF3\xA0\xB5\x9B" => "",                     # U+E0D5B => 
+"\xF3\xA0\xB5\x9C" => "",                     # U+E0D5C => 
+"\xF3\xA0\xB5\x9D" => "",                     # U+E0D5D => 
+"\xF3\xA0\xB5\x9E" => "",                     # U+E0D5E => 
+"\xF3\xA0\xB5\x9F" => "",                     # U+E0D5F => 
+"\xF3\xA0\xB5\xA0" => "",                     # U+E0D60 => 
+"\xF3\xA0\xB5\xA1" => "",                     # U+E0D61 => 
+"\xF3\xA0\xB5\xA2" => "",                     # U+E0D62 => 
+"\xF3\xA0\xB5\xA3" => "",                     # U+E0D63 => 
+"\xF3\xA0\xB5\xA4" => "",                     # U+E0D64 => 
+"\xF3\xA0\xB5\xA5" => "",                     # U+E0D65 => 
+"\xF3\xA0\xB5\xA6" => "",                     # U+E0D66 => 
+"\xF3\xA0\xB5\xA7" => "",                     # U+E0D67 => 
+"\xF3\xA0\xB5\xA8" => "",                     # U+E0D68 => 
+"\xF3\xA0\xB5\xA9" => "",                     # U+E0D69 => 
+"\xF3\xA0\xB5\xAA" => "",                     # U+E0D6A => 
+"\xF3\xA0\xB5\xAB" => "",                     # U+E0D6B => 
+"\xF3\xA0\xB5\xAC" => "",                     # U+E0D6C => 
+"\xF3\xA0\xB5\xAD" => "",                     # U+E0D6D => 
+"\xF3\xA0\xB5\xAE" => "",                     # U+E0D6E => 
+"\xF3\xA0\xB5\xAF" => "",                     # U+E0D6F => 
+"\xF3\xA0\xB5\xB0" => "",                     # U+E0D70 => 
+"\xF3\xA0\xB5\xB1" => "",                     # U+E0D71 => 
+"\xF3\xA0\xB5\xB2" => "",                     # U+E0D72 => 
+"\xF3\xA0\xB5\xB3" => "",                     # U+E0D73 => 
+"\xF3\xA0\xB5\xB4" => "",                     # U+E0D74 => 
+"\xF3\xA0\xB5\xB5" => "",                     # U+E0D75 => 
+"\xF3\xA0\xB5\xB6" => "",                     # U+E0D76 => 
+"\xF3\xA0\xB5\xB7" => "",                     # U+E0D77 => 
+"\xF3\xA0\xB5\xB8" => "",                     # U+E0D78 => 
+"\xF3\xA0\xB5\xB9" => "",                     # U+E0D79 => 
+"\xF3\xA0\xB5\xBA" => "",                     # U+E0D7A => 
+"\xF3\xA0\xB5\xBB" => "",                     # U+E0D7B => 
+"\xF3\xA0\xB5\xBC" => "",                     # U+E0D7C => 
+"\xF3\xA0\xB5\xBD" => "",                     # U+E0D7D => 
+"\xF3\xA0\xB5\xBE" => "",                     # U+E0D7E => 
+"\xF3\xA0\xB5\xBF" => "",                     # U+E0D7F => 
+"\xF3\xA0\xB6\x80" => "",                     # U+E0D80 => 
+"\xF3\xA0\xB6\x81" => "",                     # U+E0D81 => 
+"\xF3\xA0\xB6\x82" => "",                     # U+E0D82 => 
+"\xF3\xA0\xB6\x83" => "",                     # U+E0D83 => 
+"\xF3\xA0\xB6\x84" => "",                     # U+E0D84 => 
+"\xF3\xA0\xB6\x85" => "",                     # U+E0D85 => 
+"\xF3\xA0\xB6\x86" => "",                     # U+E0D86 => 
+"\xF3\xA0\xB6\x87" => "",                     # U+E0D87 => 
+"\xF3\xA0\xB6\x88" => "",                     # U+E0D88 => 
+"\xF3\xA0\xB6\x89" => "",                     # U+E0D89 => 
+"\xF3\xA0\xB6\x8A" => "",                     # U+E0D8A => 
+"\xF3\xA0\xB6\x8B" => "",                     # U+E0D8B => 
+"\xF3\xA0\xB6\x8C" => "",                     # U+E0D8C => 
+"\xF3\xA0\xB6\x8D" => "",                     # U+E0D8D => 
+"\xF3\xA0\xB6\x8E" => "",                     # U+E0D8E => 
+"\xF3\xA0\xB6\x8F" => "",                     # U+E0D8F => 
+"\xF3\xA0\xB6\x90" => "",                     # U+E0D90 => 
+"\xF3\xA0\xB6\x91" => "",                     # U+E0D91 => 
+"\xF3\xA0\xB6\x92" => "",                     # U+E0D92 => 
+"\xF3\xA0\xB6\x93" => "",                     # U+E0D93 => 
+"\xF3\xA0\xB6\x94" => "",                     # U+E0D94 => 
+"\xF3\xA0\xB6\x95" => "",                     # U+E0D95 => 
+"\xF3\xA0\xB6\x96" => "",                     # U+E0D96 => 
+"\xF3\xA0\xB6\x97" => "",                     # U+E0D97 => 
+"\xF3\xA0\xB6\x98" => "",                     # U+E0D98 => 
+"\xF3\xA0\xB6\x99" => "",                     # U+E0D99 => 
+"\xF3\xA0\xB6\x9A" => "",                     # U+E0D9A => 
+"\xF3\xA0\xB6\x9B" => "",                     # U+E0D9B => 
+"\xF3\xA0\xB6\x9C" => "",                     # U+E0D9C => 
+"\xF3\xA0\xB6\x9D" => "",                     # U+E0D9D => 
+"\xF3\xA0\xB6\x9E" => "",                     # U+E0D9E => 
+"\xF3\xA0\xB6\x9F" => "",                     # U+E0D9F => 
+"\xF3\xA0\xB6\xA0" => "",                     # U+E0DA0 => 
+"\xF3\xA0\xB6\xA1" => "",                     # U+E0DA1 => 
+"\xF3\xA0\xB6\xA2" => "",                     # U+E0DA2 => 
+"\xF3\xA0\xB6\xA3" => "",                     # U+E0DA3 => 
+"\xF3\xA0\xB6\xA4" => "",                     # U+E0DA4 => 
+"\xF3\xA0\xB6\xA5" => "",                     # U+E0DA5 => 
+"\xF3\xA0\xB6\xA6" => "",                     # U+E0DA6 => 
+"\xF3\xA0\xB6\xA7" => "",                     # U+E0DA7 => 
+"\xF3\xA0\xB6\xA8" => "",                     # U+E0DA8 => 
+"\xF3\xA0\xB6\xA9" => "",                     # U+E0DA9 => 
+"\xF3\xA0\xB6\xAA" => "",                     # U+E0DAA => 
+"\xF3\xA0\xB6\xAB" => "",                     # U+E0DAB => 
+"\xF3\xA0\xB6\xAC" => "",                     # U+E0DAC => 
+"\xF3\xA0\xB6\xAD" => "",                     # U+E0DAD => 
+"\xF3\xA0\xB6\xAE" => "",                     # U+E0DAE => 
+"\xF3\xA0\xB6\xAF" => "",                     # U+E0DAF => 
+"\xF3\xA0\xB6\xB0" => "",                     # U+E0DB0 => 
+"\xF3\xA0\xB6\xB1" => "",                     # U+E0DB1 => 
+"\xF3\xA0\xB6\xB2" => "",                     # U+E0DB2 => 
+"\xF3\xA0\xB6\xB3" => "",                     # U+E0DB3 => 
+"\xF3\xA0\xB6\xB4" => "",                     # U+E0DB4 => 
+"\xF3\xA0\xB6\xB5" => "",                     # U+E0DB5 => 
+"\xF3\xA0\xB6\xB6" => "",                     # U+E0DB6 => 
+"\xF3\xA0\xB6\xB7" => "",                     # U+E0DB7 => 
+"\xF3\xA0\xB6\xB8" => "",                     # U+E0DB8 => 
+"\xF3\xA0\xB6\xB9" => "",                     # U+E0DB9 => 
+"\xF3\xA0\xB6\xBA" => "",                     # U+E0DBA => 
+"\xF3\xA0\xB6\xBB" => "",                     # U+E0DBB => 
+"\xF3\xA0\xB6\xBC" => "",                     # U+E0DBC => 
+"\xF3\xA0\xB6\xBD" => "",                     # U+E0DBD => 
+"\xF3\xA0\xB6\xBE" => "",                     # U+E0DBE => 
+"\xF3\xA0\xB6\xBF" => "",                     # U+E0DBF => 
+"\xF3\xA0\xB7\x80" => "",                     # U+E0DC0 => 
+"\xF3\xA0\xB7\x81" => "",                     # U+E0DC1 => 
+"\xF3\xA0\xB7\x82" => "",                     # U+E0DC2 => 
+"\xF3\xA0\xB7\x83" => "",                     # U+E0DC3 => 
+"\xF3\xA0\xB7\x84" => "",                     # U+E0DC4 => 
+"\xF3\xA0\xB7\x85" => "",                     # U+E0DC5 => 
+"\xF3\xA0\xB7\x86" => "",                     # U+E0DC6 => 
+"\xF3\xA0\xB7\x87" => "",                     # U+E0DC7 => 
+"\xF3\xA0\xB7\x88" => "",                     # U+E0DC8 => 
+"\xF3\xA0\xB7\x89" => "",                     # U+E0DC9 => 
+"\xF3\xA0\xB7\x8A" => "",                     # U+E0DCA => 
+"\xF3\xA0\xB7\x8B" => "",                     # U+E0DCB => 
+"\xF3\xA0\xB7\x8C" => "",                     # U+E0DCC => 
+"\xF3\xA0\xB7\x8D" => "",                     # U+E0DCD => 
+"\xF3\xA0\xB7\x8E" => "",                     # U+E0DCE => 
+"\xF3\xA0\xB7\x8F" => "",                     # U+E0DCF => 
+"\xF3\xA0\xB7\x90" => "",                     # U+E0DD0 => 
+"\xF3\xA0\xB7\x91" => "",                     # U+E0DD1 => 
+"\xF3\xA0\xB7\x92" => "",                     # U+E0DD2 => 
+"\xF3\xA0\xB7\x93" => "",                     # U+E0DD3 => 
+"\xF3\xA0\xB7\x94" => "",                     # U+E0DD4 => 
+"\xF3\xA0\xB7\x95" => "",                     # U+E0DD5 => 
+"\xF3\xA0\xB7\x96" => "",                     # U+E0DD6 => 
+"\xF3\xA0\xB7\x97" => "",                     # U+E0DD7 => 
+"\xF3\xA0\xB7\x98" => "",                     # U+E0DD8 => 
+"\xF3\xA0\xB7\x99" => "",                     # U+E0DD9 => 
+"\xF3\xA0\xB7\x9A" => "",                     # U+E0DDA => 
+"\xF3\xA0\xB7\x9B" => "",                     # U+E0DDB => 
+"\xF3\xA0\xB7\x9C" => "",                     # U+E0DDC => 
+"\xF3\xA0\xB7\x9D" => "",                     # U+E0DDD => 
+"\xF3\xA0\xB7\x9E" => "",                     # U+E0DDE => 
+"\xF3\xA0\xB7\x9F" => "",                     # U+E0DDF => 
+"\xF3\xA0\xB7\xA0" => "",                     # U+E0DE0 => 
+"\xF3\xA0\xB7\xA1" => "",                     # U+E0DE1 => 
+"\xF3\xA0\xB7\xA2" => "",                     # U+E0DE2 => 
+"\xF3\xA0\xB7\xA3" => "",                     # U+E0DE3 => 
+"\xF3\xA0\xB7\xA4" => "",                     # U+E0DE4 => 
+"\xF3\xA0\xB7\xA5" => "",                     # U+E0DE5 => 
+"\xF3\xA0\xB7\xA6" => "",                     # U+E0DE6 => 
+"\xF3\xA0\xB7\xA7" => "",                     # U+E0DE7 => 
+"\xF3\xA0\xB7\xA8" => "",                     # U+E0DE8 => 
+"\xF3\xA0\xB7\xA9" => "",                     # U+E0DE9 => 
+"\xF3\xA0\xB7\xAA" => "",                     # U+E0DEA => 
+"\xF3\xA0\xB7\xAB" => "",                     # U+E0DEB => 
+"\xF3\xA0\xB7\xAC" => "",                     # U+E0DEC => 
+"\xF3\xA0\xB7\xAD" => "",                     # U+E0DED => 
+"\xF3\xA0\xB7\xAE" => "",                     # U+E0DEE => 
+"\xF3\xA0\xB7\xAF" => "",                     # U+E0DEF => 
+"\xF3\xA0\xB7\xB0" => "",                     # U+E0DF0 => 
+"\xF3\xA0\xB7\xB1" => "",                     # U+E0DF1 => 
+"\xF3\xA0\xB7\xB2" => "",                     # U+E0DF2 => 
+"\xF3\xA0\xB7\xB3" => "",                     # U+E0DF3 => 
+"\xF3\xA0\xB7\xB4" => "",                     # U+E0DF4 => 
+"\xF3\xA0\xB7\xB5" => "",                     # U+E0DF5 => 
+"\xF3\xA0\xB7\xB6" => "",                     # U+E0DF6 => 
+"\xF3\xA0\xB7\xB7" => "",                     # U+E0DF7 => 
+"\xF3\xA0\xB7\xB8" => "",                     # U+E0DF8 => 
+"\xF3\xA0\xB7\xB9" => "",                     # U+E0DF9 => 
+"\xF3\xA0\xB7\xBA" => "",                     # U+E0DFA => 
+"\xF3\xA0\xB7\xBB" => "",                     # U+E0DFB => 
+"\xF3\xA0\xB7\xBC" => "",                     # U+E0DFC => 
+"\xF3\xA0\xB7\xBD" => "",                     # U+E0DFD => 
+"\xF3\xA0\xB7\xBE" => "",                     # U+E0DFE => 
+"\xF3\xA0\xB7\xBF" => "",                     # U+E0DFF => 
+"\xF3\xA0\xB8\x80" => "",                     # U+E0E00 => 
+"\xF3\xA0\xB8\x81" => "",                     # U+E0E01 => 
+"\xF3\xA0\xB8\x82" => "",                     # U+E0E02 => 
+"\xF3\xA0\xB8\x83" => "",                     # U+E0E03 => 
+"\xF3\xA0\xB8\x84" => "",                     # U+E0E04 => 
+"\xF3\xA0\xB8\x85" => "",                     # U+E0E05 => 
+"\xF3\xA0\xB8\x86" => "",                     # U+E0E06 => 
+"\xF3\xA0\xB8\x87" => "",                     # U+E0E07 => 
+"\xF3\xA0\xB8\x88" => "",                     # U+E0E08 => 
+"\xF3\xA0\xB8\x89" => "",                     # U+E0E09 => 
+"\xF3\xA0\xB8\x8A" => "",                     # U+E0E0A => 
+"\xF3\xA0\xB8\x8B" => "",                     # U+E0E0B => 
+"\xF3\xA0\xB8\x8C" => "",                     # U+E0E0C => 
+"\xF3\xA0\xB8\x8D" => "",                     # U+E0E0D => 
+"\xF3\xA0\xB8\x8E" => "",                     # U+E0E0E => 
+"\xF3\xA0\xB8\x8F" => "",                     # U+E0E0F => 
+"\xF3\xA0\xB8\x90" => "",                     # U+E0E10 => 
+"\xF3\xA0\xB8\x91" => "",                     # U+E0E11 => 
+"\xF3\xA0\xB8\x92" => "",                     # U+E0E12 => 
+"\xF3\xA0\xB8\x93" => "",                     # U+E0E13 => 
+"\xF3\xA0\xB8\x94" => "",                     # U+E0E14 => 
+"\xF3\xA0\xB8\x95" => "",                     # U+E0E15 => 
+"\xF3\xA0\xB8\x96" => "",                     # U+E0E16 => 
+"\xF3\xA0\xB8\x97" => "",                     # U+E0E17 => 
+"\xF3\xA0\xB8\x98" => "",                     # U+E0E18 => 
+"\xF3\xA0\xB8\x99" => "",                     # U+E0E19 => 
+"\xF3\xA0\xB8\x9A" => "",                     # U+E0E1A => 
+"\xF3\xA0\xB8\x9B" => "",                     # U+E0E1B => 
+"\xF3\xA0\xB8\x9C" => "",                     # U+E0E1C => 
+"\xF3\xA0\xB8\x9D" => "",                     # U+E0E1D => 
+"\xF3\xA0\xB8\x9E" => "",                     # U+E0E1E => 
+"\xF3\xA0\xB8\x9F" => "",                     # U+E0E1F => 
+"\xF3\xA0\xB8\xA0" => "",                     # U+E0E20 => 
+"\xF3\xA0\xB8\xA1" => "",                     # U+E0E21 => 
+"\xF3\xA0\xB8\xA2" => "",                     # U+E0E22 => 
+"\xF3\xA0\xB8\xA3" => "",                     # U+E0E23 => 
+"\xF3\xA0\xB8\xA4" => "",                     # U+E0E24 => 
+"\xF3\xA0\xB8\xA5" => "",                     # U+E0E25 => 
+"\xF3\xA0\xB8\xA6" => "",                     # U+E0E26 => 
+"\xF3\xA0\xB8\xA7" => "",                     # U+E0E27 => 
+"\xF3\xA0\xB8\xA8" => "",                     # U+E0E28 => 
+"\xF3\xA0\xB8\xA9" => "",                     # U+E0E29 => 
+"\xF3\xA0\xB8\xAA" => "",                     # U+E0E2A => 
+"\xF3\xA0\xB8\xAB" => "",                     # U+E0E2B => 
+"\xF3\xA0\xB8\xAC" => "",                     # U+E0E2C => 
+"\xF3\xA0\xB8\xAD" => "",                     # U+E0E2D => 
+"\xF3\xA0\xB8\xAE" => "",                     # U+E0E2E => 
+"\xF3\xA0\xB8\xAF" => "",                     # U+E0E2F => 
+"\xF3\xA0\xB8\xB0" => "",                     # U+E0E30 => 
+"\xF3\xA0\xB8\xB1" => "",                     # U+E0E31 => 
+"\xF3\xA0\xB8\xB2" => "",                     # U+E0E32 => 
+"\xF3\xA0\xB8\xB3" => "",                     # U+E0E33 => 
+"\xF3\xA0\xB8\xB4" => "",                     # U+E0E34 => 
+"\xF3\xA0\xB8\xB5" => "",                     # U+E0E35 => 
+"\xF3\xA0\xB8\xB6" => "",                     # U+E0E36 => 
+"\xF3\xA0\xB8\xB7" => "",                     # U+E0E37 => 
+"\xF3\xA0\xB8\xB8" => "",                     # U+E0E38 => 
+"\xF3\xA0\xB8\xB9" => "",                     # U+E0E39 => 
+"\xF3\xA0\xB8\xBA" => "",                     # U+E0E3A => 
+"\xF3\xA0\xB8\xBB" => "",                     # U+E0E3B => 
+"\xF3\xA0\xB8\xBC" => "",                     # U+E0E3C => 
+"\xF3\xA0\xB8\xBD" => "",                     # U+E0E3D => 
+"\xF3\xA0\xB8\xBE" => "",                     # U+E0E3E => 
+"\xF3\xA0\xB8\xBF" => "",                     # U+E0E3F => 
+"\xF3\xA0\xB9\x80" => "",                     # U+E0E40 => 
+"\xF3\xA0\xB9\x81" => "",                     # U+E0E41 => 
+"\xF3\xA0\xB9\x82" => "",                     # U+E0E42 => 
+"\xF3\xA0\xB9\x83" => "",                     # U+E0E43 => 
+"\xF3\xA0\xB9\x84" => "",                     # U+E0E44 => 
+"\xF3\xA0\xB9\x85" => "",                     # U+E0E45 => 
+"\xF3\xA0\xB9\x86" => "",                     # U+E0E46 => 
+"\xF3\xA0\xB9\x87" => "",                     # U+E0E47 => 
+"\xF3\xA0\xB9\x88" => "",                     # U+E0E48 => 
+"\xF3\xA0\xB9\x89" => "",                     # U+E0E49 => 
+"\xF3\xA0\xB9\x8A" => "",                     # U+E0E4A => 
+"\xF3\xA0\xB9\x8B" => "",                     # U+E0E4B => 
+"\xF3\xA0\xB9\x8C" => "",                     # U+E0E4C => 
+"\xF3\xA0\xB9\x8D" => "",                     # U+E0E4D => 
+"\xF3\xA0\xB9\x8E" => "",                     # U+E0E4E => 
+"\xF3\xA0\xB9\x8F" => "",                     # U+E0E4F => 
+"\xF3\xA0\xB9\x90" => "",                     # U+E0E50 => 
+"\xF3\xA0\xB9\x91" => "",                     # U+E0E51 => 
+"\xF3\xA0\xB9\x92" => "",                     # U+E0E52 => 
+"\xF3\xA0\xB9\x93" => "",                     # U+E0E53 => 
+"\xF3\xA0\xB9\x94" => "",                     # U+E0E54 => 
+"\xF3\xA0\xB9\x95" => "",                     # U+E0E55 => 
+"\xF3\xA0\xB9\x96" => "",                     # U+E0E56 => 
+"\xF3\xA0\xB9\x97" => "",                     # U+E0E57 => 
+"\xF3\xA0\xB9\x98" => "",                     # U+E0E58 => 
+"\xF3\xA0\xB9\x99" => "",                     # U+E0E59 => 
+"\xF3\xA0\xB9\x9A" => "",                     # U+E0E5A => 
+"\xF3\xA0\xB9\x9B" => "",                     # U+E0E5B => 
+"\xF3\xA0\xB9\x9C" => "",                     # U+E0E5C => 
+"\xF3\xA0\xB9\x9D" => "",                     # U+E0E5D => 
+"\xF3\xA0\xB9\x9E" => "",                     # U+E0E5E => 
+"\xF3\xA0\xB9\x9F" => "",                     # U+E0E5F => 
+"\xF3\xA0\xB9\xA0" => "",                     # U+E0E60 => 
+"\xF3\xA0\xB9\xA1" => "",                     # U+E0E61 => 
+"\xF3\xA0\xB9\xA2" => "",                     # U+E0E62 => 
+"\xF3\xA0\xB9\xA3" => "",                     # U+E0E63 => 
+"\xF3\xA0\xB9\xA4" => "",                     # U+E0E64 => 
+"\xF3\xA0\xB9\xA5" => "",                     # U+E0E65 => 
+"\xF3\xA0\xB9\xA6" => "",                     # U+E0E66 => 
+"\xF3\xA0\xB9\xA7" => "",                     # U+E0E67 => 
+"\xF3\xA0\xB9\xA8" => "",                     # U+E0E68 => 
+"\xF3\xA0\xB9\xA9" => "",                     # U+E0E69 => 
+"\xF3\xA0\xB9\xAA" => "",                     # U+E0E6A => 
+"\xF3\xA0\xB9\xAB" => "",                     # U+E0E6B => 
+"\xF3\xA0\xB9\xAC" => "",                     # U+E0E6C => 
+"\xF3\xA0\xB9\xAD" => "",                     # U+E0E6D => 
+"\xF3\xA0\xB9\xAE" => "",                     # U+E0E6E => 
+"\xF3\xA0\xB9\xAF" => "",                     # U+E0E6F => 
+"\xF3\xA0\xB9\xB0" => "",                     # U+E0E70 => 
+"\xF3\xA0\xB9\xB1" => "",                     # U+E0E71 => 
+"\xF3\xA0\xB9\xB2" => "",                     # U+E0E72 => 
+"\xF3\xA0\xB9\xB3" => "",                     # U+E0E73 => 
+"\xF3\xA0\xB9\xB4" => "",                     # U+E0E74 => 
+"\xF3\xA0\xB9\xB5" => "",                     # U+E0E75 => 
+"\xF3\xA0\xB9\xB6" => "",                     # U+E0E76 => 
+"\xF3\xA0\xB9\xB7" => "",                     # U+E0E77 => 
+"\xF3\xA0\xB9\xB8" => "",                     # U+E0E78 => 
+"\xF3\xA0\xB9\xB9" => "",                     # U+E0E79 => 
+"\xF3\xA0\xB9\xBA" => "",                     # U+E0E7A => 
+"\xF3\xA0\xB9\xBB" => "",                     # U+E0E7B => 
+"\xF3\xA0\xB9\xBC" => "",                     # U+E0E7C => 
+"\xF3\xA0\xB9\xBD" => "",                     # U+E0E7D => 
+"\xF3\xA0\xB9\xBE" => "",                     # U+E0E7E => 
+"\xF3\xA0\xB9\xBF" => "",                     # U+E0E7F => 
+"\xF3\xA0\xBA\x80" => "",                     # U+E0E80 => 
+"\xF3\xA0\xBA\x81" => "",                     # U+E0E81 => 
+"\xF3\xA0\xBA\x82" => "",                     # U+E0E82 => 
+"\xF3\xA0\xBA\x83" => "",                     # U+E0E83 => 
+"\xF3\xA0\xBA\x84" => "",                     # U+E0E84 => 
+"\xF3\xA0\xBA\x85" => "",                     # U+E0E85 => 
+"\xF3\xA0\xBA\x86" => "",                     # U+E0E86 => 
+"\xF3\xA0\xBA\x87" => "",                     # U+E0E87 => 
+"\xF3\xA0\xBA\x88" => "",                     # U+E0E88 => 
+"\xF3\xA0\xBA\x89" => "",                     # U+E0E89 => 
+"\xF3\xA0\xBA\x8A" => "",                     # U+E0E8A => 
+"\xF3\xA0\xBA\x8B" => "",                     # U+E0E8B => 
+"\xF3\xA0\xBA\x8C" => "",                     # U+E0E8C => 
+"\xF3\xA0\xBA\x8D" => "",                     # U+E0E8D => 
+"\xF3\xA0\xBA\x8E" => "",                     # U+E0E8E => 
+"\xF3\xA0\xBA\x8F" => "",                     # U+E0E8F => 
+"\xF3\xA0\xBA\x90" => "",                     # U+E0E90 => 
+"\xF3\xA0\xBA\x91" => "",                     # U+E0E91 => 
+"\xF3\xA0\xBA\x92" => "",                     # U+E0E92 => 
+"\xF3\xA0\xBA\x93" => "",                     # U+E0E93 => 
+"\xF3\xA0\xBA\x94" => "",                     # U+E0E94 => 
+"\xF3\xA0\xBA\x95" => "",                     # U+E0E95 => 
+"\xF3\xA0\xBA\x96" => "",                     # U+E0E96 => 
+"\xF3\xA0\xBA\x97" => "",                     # U+E0E97 => 
+"\xF3\xA0\xBA\x98" => "",                     # U+E0E98 => 
+"\xF3\xA0\xBA\x99" => "",                     # U+E0E99 => 
+"\xF3\xA0\xBA\x9A" => "",                     # U+E0E9A => 
+"\xF3\xA0\xBA\x9B" => "",                     # U+E0E9B => 
+"\xF3\xA0\xBA\x9C" => "",                     # U+E0E9C => 
+"\xF3\xA0\xBA\x9D" => "",                     # U+E0E9D => 
+"\xF3\xA0\xBA\x9E" => "",                     # U+E0E9E => 
+"\xF3\xA0\xBA\x9F" => "",                     # U+E0E9F => 
+"\xF3\xA0\xBA\xA0" => "",                     # U+E0EA0 => 
+"\xF3\xA0\xBA\xA1" => "",                     # U+E0EA1 => 
+"\xF3\xA0\xBA\xA2" => "",                     # U+E0EA2 => 
+"\xF3\xA0\xBA\xA3" => "",                     # U+E0EA3 => 
+"\xF3\xA0\xBA\xA4" => "",                     # U+E0EA4 => 
+"\xF3\xA0\xBA\xA5" => "",                     # U+E0EA5 => 
+"\xF3\xA0\xBA\xA6" => "",                     # U+E0EA6 => 
+"\xF3\xA0\xBA\xA7" => "",                     # U+E0EA7 => 
+"\xF3\xA0\xBA\xA8" => "",                     # U+E0EA8 => 
+"\xF3\xA0\xBA\xA9" => "",                     # U+E0EA9 => 
+"\xF3\xA0\xBA\xAA" => "",                     # U+E0EAA => 
+"\xF3\xA0\xBA\xAB" => "",                     # U+E0EAB => 
+"\xF3\xA0\xBA\xAC" => "",                     # U+E0EAC => 
+"\xF3\xA0\xBA\xAD" => "",                     # U+E0EAD => 
+"\xF3\xA0\xBA\xAE" => "",                     # U+E0EAE => 
+"\xF3\xA0\xBA\xAF" => "",                     # U+E0EAF => 
+"\xF3\xA0\xBA\xB0" => "",                     # U+E0EB0 => 
+"\xF3\xA0\xBA\xB1" => "",                     # U+E0EB1 => 
+"\xF3\xA0\xBA\xB2" => "",                     # U+E0EB2 => 
+"\xF3\xA0\xBA\xB3" => "",                     # U+E0EB3 => 
+"\xF3\xA0\xBA\xB4" => "",                     # U+E0EB4 => 
+"\xF3\xA0\xBA\xB5" => "",                     # U+E0EB5 => 
+"\xF3\xA0\xBA\xB6" => "",                     # U+E0EB6 => 
+"\xF3\xA0\xBA\xB7" => "",                     # U+E0EB7 => 
+"\xF3\xA0\xBA\xB8" => "",                     # U+E0EB8 => 
+"\xF3\xA0\xBA\xB9" => "",                     # U+E0EB9 => 
+"\xF3\xA0\xBA\xBA" => "",                     # U+E0EBA => 
+"\xF3\xA0\xBA\xBB" => "",                     # U+E0EBB => 
+"\xF3\xA0\xBA\xBC" => "",                     # U+E0EBC => 
+"\xF3\xA0\xBA\xBD" => "",                     # U+E0EBD => 
+"\xF3\xA0\xBA\xBE" => "",                     # U+E0EBE => 
+"\xF3\xA0\xBA\xBF" => "",                     # U+E0EBF => 
+"\xF3\xA0\xBB\x80" => "",                     # U+E0EC0 => 
+"\xF3\xA0\xBB\x81" => "",                     # U+E0EC1 => 
+"\xF3\xA0\xBB\x82" => "",                     # U+E0EC2 => 
+"\xF3\xA0\xBB\x83" => "",                     # U+E0EC3 => 
+"\xF3\xA0\xBB\x84" => "",                     # U+E0EC4 => 
+"\xF3\xA0\xBB\x85" => "",                     # U+E0EC5 => 
+"\xF3\xA0\xBB\x86" => "",                     # U+E0EC6 => 
+"\xF3\xA0\xBB\x87" => "",                     # U+E0EC7 => 
+"\xF3\xA0\xBB\x88" => "",                     # U+E0EC8 => 
+"\xF3\xA0\xBB\x89" => "",                     # U+E0EC9 => 
+"\xF3\xA0\xBB\x8A" => "",                     # U+E0ECA => 
+"\xF3\xA0\xBB\x8B" => "",                     # U+E0ECB => 
+"\xF3\xA0\xBB\x8C" => "",                     # U+E0ECC => 
+"\xF3\xA0\xBB\x8D" => "",                     # U+E0ECD => 
+"\xF3\xA0\xBB\x8E" => "",                     # U+E0ECE => 
+"\xF3\xA0\xBB\x8F" => "",                     # U+E0ECF => 
+"\xF3\xA0\xBB\x90" => "",                     # U+E0ED0 => 
+"\xF3\xA0\xBB\x91" => "",                     # U+E0ED1 => 
+"\xF3\xA0\xBB\x92" => "",                     # U+E0ED2 => 
+"\xF3\xA0\xBB\x93" => "",                     # U+E0ED3 => 
+"\xF3\xA0\xBB\x94" => "",                     # U+E0ED4 => 
+"\xF3\xA0\xBB\x95" => "",                     # U+E0ED5 => 
+"\xF3\xA0\xBB\x96" => "",                     # U+E0ED6 => 
+"\xF3\xA0\xBB\x97" => "",                     # U+E0ED7 => 
+"\xF3\xA0\xBB\x98" => "",                     # U+E0ED8 => 
+"\xF3\xA0\xBB\x99" => "",                     # U+E0ED9 => 
+"\xF3\xA0\xBB\x9A" => "",                     # U+E0EDA => 
+"\xF3\xA0\xBB\x9B" => "",                     # U+E0EDB => 
+"\xF3\xA0\xBB\x9C" => "",                     # U+E0EDC => 
+"\xF3\xA0\xBB\x9D" => "",                     # U+E0EDD => 
+"\xF3\xA0\xBB\x9E" => "",                     # U+E0EDE => 
+"\xF3\xA0\xBB\x9F" => "",                     # U+E0EDF => 
+"\xF3\xA0\xBB\xA0" => "",                     # U+E0EE0 => 
+"\xF3\xA0\xBB\xA1" => "",                     # U+E0EE1 => 
+"\xF3\xA0\xBB\xA2" => "",                     # U+E0EE2 => 
+"\xF3\xA0\xBB\xA3" => "",                     # U+E0EE3 => 
+"\xF3\xA0\xBB\xA4" => "",                     # U+E0EE4 => 
+"\xF3\xA0\xBB\xA5" => "",                     # U+E0EE5 => 
+"\xF3\xA0\xBB\xA6" => "",                     # U+E0EE6 => 
+"\xF3\xA0\xBB\xA7" => "",                     # U+E0EE7 => 
+"\xF3\xA0\xBB\xA8" => "",                     # U+E0EE8 => 
+"\xF3\xA0\xBB\xA9" => "",                     # U+E0EE9 => 
+"\xF3\xA0\xBB\xAA" => "",                     # U+E0EEA => 
+"\xF3\xA0\xBB\xAB" => "",                     # U+E0EEB => 
+"\xF3\xA0\xBB\xAC" => "",                     # U+E0EEC => 
+"\xF3\xA0\xBB\xAD" => "",                     # U+E0EED => 
+"\xF3\xA0\xBB\xAE" => "",                     # U+E0EEE => 
+"\xF3\xA0\xBB\xAF" => "",                     # U+E0EEF => 
+"\xF3\xA0\xBB\xB0" => "",                     # U+E0EF0 => 
+"\xF3\xA0\xBB\xB1" => "",                     # U+E0EF1 => 
+"\xF3\xA0\xBB\xB2" => "",                     # U+E0EF2 => 
+"\xF3\xA0\xBB\xB3" => "",                     # U+E0EF3 => 
+"\xF3\xA0\xBB\xB4" => "",                     # U+E0EF4 => 
+"\xF3\xA0\xBB\xB5" => "",                     # U+E0EF5 => 
+"\xF3\xA0\xBB\xB6" => "",                     # U+E0EF6 => 
+"\xF3\xA0\xBB\xB7" => "",                     # U+E0EF7 => 
+"\xF3\xA0\xBB\xB8" => "",                     # U+E0EF8 => 
+"\xF3\xA0\xBB\xB9" => "",                     # U+E0EF9 => 
+"\xF3\xA0\xBB\xBA" => "",                     # U+E0EFA => 
+"\xF3\xA0\xBB\xBB" => "",                     # U+E0EFB => 
+"\xF3\xA0\xBB\xBC" => "",                     # U+E0EFC => 
+"\xF3\xA0\xBB\xBD" => "",                     # U+E0EFD => 
+"\xF3\xA0\xBB\xBE" => "",                     # U+E0EFE => 
+"\xF3\xA0\xBB\xBF" => "",                     # U+E0EFF => 
+"\xF3\xA0\xBC\x80" => "",                     # U+E0F00 => 
+"\xF3\xA0\xBC\x81" => "",                     # U+E0F01 => 
+"\xF3\xA0\xBC\x82" => "",                     # U+E0F02 => 
+"\xF3\xA0\xBC\x83" => "",                     # U+E0F03 => 
+"\xF3\xA0\xBC\x84" => "",                     # U+E0F04 => 
+"\xF3\xA0\xBC\x85" => "",                     # U+E0F05 => 
+"\xF3\xA0\xBC\x86" => "",                     # U+E0F06 => 
+"\xF3\xA0\xBC\x87" => "",                     # U+E0F07 => 
+"\xF3\xA0\xBC\x88" => "",                     # U+E0F08 => 
+"\xF3\xA0\xBC\x89" => "",                     # U+E0F09 => 
+"\xF3\xA0\xBC\x8A" => "",                     # U+E0F0A => 
+"\xF3\xA0\xBC\x8B" => "",                     # U+E0F0B => 
+"\xF3\xA0\xBC\x8C" => "",                     # U+E0F0C => 
+"\xF3\xA0\xBC\x8D" => "",                     # U+E0F0D => 
+"\xF3\xA0\xBC\x8E" => "",                     # U+E0F0E => 
+"\xF3\xA0\xBC\x8F" => "",                     # U+E0F0F => 
+"\xF3\xA0\xBC\x90" => "",                     # U+E0F10 => 
+"\xF3\xA0\xBC\x91" => "",                     # U+E0F11 => 
+"\xF3\xA0\xBC\x92" => "",                     # U+E0F12 => 
+"\xF3\xA0\xBC\x93" => "",                     # U+E0F13 => 
+"\xF3\xA0\xBC\x94" => "",                     # U+E0F14 => 
+"\xF3\xA0\xBC\x95" => "",                     # U+E0F15 => 
+"\xF3\xA0\xBC\x96" => "",                     # U+E0F16 => 
+"\xF3\xA0\xBC\x97" => "",                     # U+E0F17 => 
+"\xF3\xA0\xBC\x98" => "",                     # U+E0F18 => 
+"\xF3\xA0\xBC\x99" => "",                     # U+E0F19 => 
+"\xF3\xA0\xBC\x9A" => "",                     # U+E0F1A => 
+"\xF3\xA0\xBC\x9B" => "",                     # U+E0F1B => 
+"\xF3\xA0\xBC\x9C" => "",                     # U+E0F1C => 
+"\xF3\xA0\xBC\x9D" => "",                     # U+E0F1D => 
+"\xF3\xA0\xBC\x9E" => "",                     # U+E0F1E => 
+"\xF3\xA0\xBC\x9F" => "",                     # U+E0F1F => 
+"\xF3\xA0\xBC\xA0" => "",                     # U+E0F20 => 
+"\xF3\xA0\xBC\xA1" => "",                     # U+E0F21 => 
+"\xF3\xA0\xBC\xA2" => "",                     # U+E0F22 => 
+"\xF3\xA0\xBC\xA3" => "",                     # U+E0F23 => 
+"\xF3\xA0\xBC\xA4" => "",                     # U+E0F24 => 
+"\xF3\xA0\xBC\xA5" => "",                     # U+E0F25 => 
+"\xF3\xA0\xBC\xA6" => "",                     # U+E0F26 => 
+"\xF3\xA0\xBC\xA7" => "",                     # U+E0F27 => 
+"\xF3\xA0\xBC\xA8" => "",                     # U+E0F28 => 
+"\xF3\xA0\xBC\xA9" => "",                     # U+E0F29 => 
+"\xF3\xA0\xBC\xAA" => "",                     # U+E0F2A => 
+"\xF3\xA0\xBC\xAB" => "",                     # U+E0F2B => 
+"\xF3\xA0\xBC\xAC" => "",                     # U+E0F2C => 
+"\xF3\xA0\xBC\xAD" => "",                     # U+E0F2D => 
+"\xF3\xA0\xBC\xAE" => "",                     # U+E0F2E => 
+"\xF3\xA0\xBC\xAF" => "",                     # U+E0F2F => 
+"\xF3\xA0\xBC\xB0" => "",                     # U+E0F30 => 
+"\xF3\xA0\xBC\xB1" => "",                     # U+E0F31 => 
+"\xF3\xA0\xBC\xB2" => "",                     # U+E0F32 => 
+"\xF3\xA0\xBC\xB3" => "",                     # U+E0F33 => 
+"\xF3\xA0\xBC\xB4" => "",                     # U+E0F34 => 
+"\xF3\xA0\xBC\xB5" => "",                     # U+E0F35 => 
+"\xF3\xA0\xBC\xB6" => "",                     # U+E0F36 => 
+"\xF3\xA0\xBC\xB7" => "",                     # U+E0F37 => 
+"\xF3\xA0\xBC\xB8" => "",                     # U+E0F38 => 
+"\xF3\xA0\xBC\xB9" => "",                     # U+E0F39 => 
+"\xF3\xA0\xBC\xBA" => "",                     # U+E0F3A => 
+"\xF3\xA0\xBC\xBB" => "",                     # U+E0F3B => 
+"\xF3\xA0\xBC\xBC" => "",                     # U+E0F3C => 
+"\xF3\xA0\xBC\xBD" => "",                     # U+E0F3D => 
+"\xF3\xA0\xBC\xBE" => "",                     # U+E0F3E => 
+"\xF3\xA0\xBC\xBF" => "",                     # U+E0F3F => 
+"\xF3\xA0\xBD\x80" => "",                     # U+E0F40 => 
+"\xF3\xA0\xBD\x81" => "",                     # U+E0F41 => 
+"\xF3\xA0\xBD\x82" => "",                     # U+E0F42 => 
+"\xF3\xA0\xBD\x83" => "",                     # U+E0F43 => 
+"\xF3\xA0\xBD\x84" => "",                     # U+E0F44 => 
+"\xF3\xA0\xBD\x85" => "",                     # U+E0F45 => 
+"\xF3\xA0\xBD\x86" => "",                     # U+E0F46 => 
+"\xF3\xA0\xBD\x87" => "",                     # U+E0F47 => 
+"\xF3\xA0\xBD\x88" => "",                     # U+E0F48 => 
+"\xF3\xA0\xBD\x89" => "",                     # U+E0F49 => 
+"\xF3\xA0\xBD\x8A" => "",                     # U+E0F4A => 
+"\xF3\xA0\xBD\x8B" => "",                     # U+E0F4B => 
+"\xF3\xA0\xBD\x8C" => "",                     # U+E0F4C => 
+"\xF3\xA0\xBD\x8D" => "",                     # U+E0F4D => 
+"\xF3\xA0\xBD\x8E" => "",                     # U+E0F4E => 
+"\xF3\xA0\xBD\x8F" => "",                     # U+E0F4F => 
+"\xF3\xA0\xBD\x90" => "",                     # U+E0F50 => 
+"\xF3\xA0\xBD\x91" => "",                     # U+E0F51 => 
+"\xF3\xA0\xBD\x92" => "",                     # U+E0F52 => 
+"\xF3\xA0\xBD\x93" => "",                     # U+E0F53 => 
+"\xF3\xA0\xBD\x94" => "",                     # U+E0F54 => 
+"\xF3\xA0\xBD\x95" => "",                     # U+E0F55 => 
+"\xF3\xA0\xBD\x96" => "",                     # U+E0F56 => 
+"\xF3\xA0\xBD\x97" => "",                     # U+E0F57 => 
+"\xF3\xA0\xBD\x98" => "",                     # U+E0F58 => 
+"\xF3\xA0\xBD\x99" => "",                     # U+E0F59 => 
+"\xF3\xA0\xBD\x9A" => "",                     # U+E0F5A => 
+"\xF3\xA0\xBD\x9B" => "",                     # U+E0F5B => 
+"\xF3\xA0\xBD\x9C" => "",                     # U+E0F5C => 
+"\xF3\xA0\xBD\x9D" => "",                     # U+E0F5D => 
+"\xF3\xA0\xBD\x9E" => "",                     # U+E0F5E => 
+"\xF3\xA0\xBD\x9F" => "",                     # U+E0F5F => 
+"\xF3\xA0\xBD\xA0" => "",                     # U+E0F60 => 
+"\xF3\xA0\xBD\xA1" => "",                     # U+E0F61 => 
+"\xF3\xA0\xBD\xA2" => "",                     # U+E0F62 => 
+"\xF3\xA0\xBD\xA3" => "",                     # U+E0F63 => 
+"\xF3\xA0\xBD\xA4" => "",                     # U+E0F64 => 
+"\xF3\xA0\xBD\xA5" => "",                     # U+E0F65 => 
+"\xF3\xA0\xBD\xA6" => "",                     # U+E0F66 => 
+"\xF3\xA0\xBD\xA7" => "",                     # U+E0F67 => 
+"\xF3\xA0\xBD\xA8" => "",                     # U+E0F68 => 
+"\xF3\xA0\xBD\xA9" => "",                     # U+E0F69 => 
+"\xF3\xA0\xBD\xAA" => "",                     # U+E0F6A => 
+"\xF3\xA0\xBD\xAB" => "",                     # U+E0F6B => 
+"\xF3\xA0\xBD\xAC" => "",                     # U+E0F6C => 
+"\xF3\xA0\xBD\xAD" => "",                     # U+E0F6D => 
+"\xF3\xA0\xBD\xAE" => "",                     # U+E0F6E => 
+"\xF3\xA0\xBD\xAF" => "",                     # U+E0F6F => 
+"\xF3\xA0\xBD\xB0" => "",                     # U+E0F70 => 
+"\xF3\xA0\xBD\xB1" => "",                     # U+E0F71 => 
+"\xF3\xA0\xBD\xB2" => "",                     # U+E0F72 => 
+"\xF3\xA0\xBD\xB3" => "",                     # U+E0F73 => 
+"\xF3\xA0\xBD\xB4" => "",                     # U+E0F74 => 
+"\xF3\xA0\xBD\xB5" => "",                     # U+E0F75 => 
+"\xF3\xA0\xBD\xB6" => "",                     # U+E0F76 => 
+"\xF3\xA0\xBD\xB7" => "",                     # U+E0F77 => 
+"\xF3\xA0\xBD\xB8" => "",                     # U+E0F78 => 
+"\xF3\xA0\xBD\xB9" => "",                     # U+E0F79 => 
+"\xF3\xA0\xBD\xBA" => "",                     # U+E0F7A => 
+"\xF3\xA0\xBD\xBB" => "",                     # U+E0F7B => 
+"\xF3\xA0\xBD\xBC" => "",                     # U+E0F7C => 
+"\xF3\xA0\xBD\xBD" => "",                     # U+E0F7D => 
+"\xF3\xA0\xBD\xBE" => "",                     # U+E0F7E => 
+"\xF3\xA0\xBD\xBF" => "",                     # U+E0F7F => 
+"\xF3\xA0\xBE\x80" => "",                     # U+E0F80 => 
+"\xF3\xA0\xBE\x81" => "",                     # U+E0F81 => 
+"\xF3\xA0\xBE\x82" => "",                     # U+E0F82 => 
+"\xF3\xA0\xBE\x83" => "",                     # U+E0F83 => 
+"\xF3\xA0\xBE\x84" => "",                     # U+E0F84 => 
+"\xF3\xA0\xBE\x85" => "",                     # U+E0F85 => 
+"\xF3\xA0\xBE\x86" => "",                     # U+E0F86 => 
+"\xF3\xA0\xBE\x87" => "",                     # U+E0F87 => 
+"\xF3\xA0\xBE\x88" => "",                     # U+E0F88 => 
+"\xF3\xA0\xBE\x89" => "",                     # U+E0F89 => 
+"\xF3\xA0\xBE\x8A" => "",                     # U+E0F8A => 
+"\xF3\xA0\xBE\x8B" => "",                     # U+E0F8B => 
+"\xF3\xA0\xBE\x8C" => "",                     # U+E0F8C => 
+"\xF3\xA0\xBE\x8D" => "",                     # U+E0F8D => 
+"\xF3\xA0\xBE\x8E" => "",                     # U+E0F8E => 
+"\xF3\xA0\xBE\x8F" => "",                     # U+E0F8F => 
+"\xF3\xA0\xBE\x90" => "",                     # U+E0F90 => 
+"\xF3\xA0\xBE\x91" => "",                     # U+E0F91 => 
+"\xF3\xA0\xBE\x92" => "",                     # U+E0F92 => 
+"\xF3\xA0\xBE\x93" => "",                     # U+E0F93 => 
+"\xF3\xA0\xBE\x94" => "",                     # U+E0F94 => 
+"\xF3\xA0\xBE\x95" => "",                     # U+E0F95 => 
+"\xF3\xA0\xBE\x96" => "",                     # U+E0F96 => 
+"\xF3\xA0\xBE\x97" => "",                     # U+E0F97 => 
+"\xF3\xA0\xBE\x98" => "",                     # U+E0F98 => 
+"\xF3\xA0\xBE\x99" => "",                     # U+E0F99 => 
+"\xF3\xA0\xBE\x9A" => "",                     # U+E0F9A => 
+"\xF3\xA0\xBE\x9B" => "",                     # U+E0F9B => 
+"\xF3\xA0\xBE\x9C" => "",                     # U+E0F9C => 
+"\xF3\xA0\xBE\x9D" => "",                     # U+E0F9D => 
+"\xF3\xA0\xBE\x9E" => "",                     # U+E0F9E => 
+"\xF3\xA0\xBE\x9F" => "",                     # U+E0F9F => 
+"\xF3\xA0\xBE\xA0" => "",                     # U+E0FA0 => 
+"\xF3\xA0\xBE\xA1" => "",                     # U+E0FA1 => 
+"\xF3\xA0\xBE\xA2" => "",                     # U+E0FA2 => 
+"\xF3\xA0\xBE\xA3" => "",                     # U+E0FA3 => 
+"\xF3\xA0\xBE\xA4" => "",                     # U+E0FA4 => 
+"\xF3\xA0\xBE\xA5" => "",                     # U+E0FA5 => 
+"\xF3\xA0\xBE\xA6" => "",                     # U+E0FA6 => 
+"\xF3\xA0\xBE\xA7" => "",                     # U+E0FA7 => 
+"\xF3\xA0\xBE\xA8" => "",                     # U+E0FA8 => 
+"\xF3\xA0\xBE\xA9" => "",                     # U+E0FA9 => 
+"\xF3\xA0\xBE\xAA" => "",                     # U+E0FAA => 
+"\xF3\xA0\xBE\xAB" => "",                     # U+E0FAB => 
+"\xF3\xA0\xBE\xAC" => "",                     # U+E0FAC => 
+"\xF3\xA0\xBE\xAD" => "",                     # U+E0FAD => 
+"\xF3\xA0\xBE\xAE" => "",                     # U+E0FAE => 
+"\xF3\xA0\xBE\xAF" => "",                     # U+E0FAF => 
+"\xF3\xA0\xBE\xB0" => "",                     # U+E0FB0 => 
+"\xF3\xA0\xBE\xB1" => "",                     # U+E0FB1 => 
+"\xF3\xA0\xBE\xB2" => "",                     # U+E0FB2 => 
+"\xF3\xA0\xBE\xB3" => "",                     # U+E0FB3 => 
+"\xF3\xA0\xBE\xB4" => "",                     # U+E0FB4 => 
+"\xF3\xA0\xBE\xB5" => "",                     # U+E0FB5 => 
+"\xF3\xA0\xBE\xB6" => "",                     # U+E0FB6 => 
+"\xF3\xA0\xBE\xB7" => "",                     # U+E0FB7 => 
+"\xF3\xA0\xBE\xB8" => "",                     # U+E0FB8 => 
+"\xF3\xA0\xBE\xB9" => "",                     # U+E0FB9 => 
+"\xF3\xA0\xBE\xBA" => "",                     # U+E0FBA => 
+"\xF3\xA0\xBE\xBB" => "",                     # U+E0FBB => 
+"\xF3\xA0\xBE\xBC" => "",                     # U+E0FBC => 
+"\xF3\xA0\xBE\xBD" => "",                     # U+E0FBD => 
+"\xF3\xA0\xBE\xBE" => "",                     # U+E0FBE => 
+"\xF3\xA0\xBE\xBF" => "",                     # U+E0FBF => 
+"\xF3\xA0\xBF\x80" => "",                     # U+E0FC0 => 
+"\xF3\xA0\xBF\x81" => "",                     # U+E0FC1 => 
+"\xF3\xA0\xBF\x82" => "",                     # U+E0FC2 => 
+"\xF3\xA0\xBF\x83" => "",                     # U+E0FC3 => 
+"\xF3\xA0\xBF\x84" => "",                     # U+E0FC4 => 
+"\xF3\xA0\xBF\x85" => "",                     # U+E0FC5 => 
+"\xF3\xA0\xBF\x86" => "",                     # U+E0FC6 => 
+"\xF3\xA0\xBF\x87" => "",                     # U+E0FC7 => 
+"\xF3\xA0\xBF\x88" => "",                     # U+E0FC8 => 
+"\xF3\xA0\xBF\x89" => "",                     # U+E0FC9 => 
+"\xF3\xA0\xBF\x8A" => "",                     # U+E0FCA => 
+"\xF3\xA0\xBF\x8B" => "",                     # U+E0FCB => 
+"\xF3\xA0\xBF\x8C" => "",                     # U+E0FCC => 
+"\xF3\xA0\xBF\x8D" => "",                     # U+E0FCD => 
+"\xF3\xA0\xBF\x8E" => "",                     # U+E0FCE => 
+"\xF3\xA0\xBF\x8F" => "",                     # U+E0FCF => 
+"\xF3\xA0\xBF\x90" => "",                     # U+E0FD0 => 
+"\xF3\xA0\xBF\x91" => "",                     # U+E0FD1 => 
+"\xF3\xA0\xBF\x92" => "",                     # U+E0FD2 => 
+"\xF3\xA0\xBF\x93" => "",                     # U+E0FD3 => 
+"\xF3\xA0\xBF\x94" => "",                     # U+E0FD4 => 
+"\xF3\xA0\xBF\x95" => "",                     # U+E0FD5 => 
+"\xF3\xA0\xBF\x96" => "",                     # U+E0FD6 => 
+"\xF3\xA0\xBF\x97" => "",                     # U+E0FD7 => 
+"\xF3\xA0\xBF\x98" => "",                     # U+E0FD8 => 
+"\xF3\xA0\xBF\x99" => "",                     # U+E0FD9 => 
+"\xF3\xA0\xBF\x9A" => "",                     # U+E0FDA => 
+"\xF3\xA0\xBF\x9B" => "",                     # U+E0FDB => 
+"\xF3\xA0\xBF\x9C" => "",                     # U+E0FDC => 
+"\xF3\xA0\xBF\x9D" => "",                     # U+E0FDD => 
+"\xF3\xA0\xBF\x9E" => "",                     # U+E0FDE => 
+"\xF3\xA0\xBF\x9F" => "",                     # U+E0FDF => 
+"\xF3\xA0\xBF\xA0" => "",                     # U+E0FE0 => 
+"\xF3\xA0\xBF\xA1" => "",                     # U+E0FE1 => 
+"\xF3\xA0\xBF\xA2" => "",                     # U+E0FE2 => 
+"\xF3\xA0\xBF\xA3" => "",                     # U+E0FE3 => 
+"\xF3\xA0\xBF\xA4" => "",                     # U+E0FE4 => 
+"\xF3\xA0\xBF\xA5" => "",                     # U+E0FE5 => 
+"\xF3\xA0\xBF\xA6" => "",                     # U+E0FE6 => 
+"\xF3\xA0\xBF\xA7" => "",                     # U+E0FE7 => 
+"\xF3\xA0\xBF\xA8" => "",                     # U+E0FE8 => 
+"\xF3\xA0\xBF\xA9" => "",                     # U+E0FE9 => 
+"\xF3\xA0\xBF\xAA" => "",                     # U+E0FEA => 
+"\xF3\xA0\xBF\xAB" => "",                     # U+E0FEB => 
+"\xF3\xA0\xBF\xAC" => "",                     # U+E0FEC => 
+"\xF3\xA0\xBF\xAD" => "",                     # U+E0FED => 
+"\xF3\xA0\xBF\xAE" => "",                     # U+E0FEE => 
+"\xF3\xA0\xBF\xAF" => "",                     # U+E0FEF => 
+"\xF3\xA0\xBF\xB0" => "",                     # U+E0FF0 => 
+"\xF3\xA0\xBF\xB1" => "",                     # U+E0FF1 => 
+"\xF3\xA0\xBF\xB2" => "",                     # U+E0FF2 => 
+"\xF3\xA0\xBF\xB3" => "",                     # U+E0FF3 => 
+"\xF3\xA0\xBF\xB4" => "",                     # U+E0FF4 => 
+"\xF3\xA0\xBF\xB5" => "",                     # U+E0FF5 => 
+"\xF3\xA0\xBF\xB6" => "",                     # U+E0FF6 => 
+"\xF3\xA0\xBF\xB7" => "",                     # U+E0FF7 => 
+"\xF3\xA0\xBF\xB8" => "",                     # U+E0FF8 => 
+"\xF3\xA0\xBF\xB9" => "",                     # U+E0FF9 => 
+"\xF3\xA0\xBF\xBA" => "",                     # U+E0FFA => 
+"\xF3\xA0\xBF\xBB" => "",                     # U+E0FFB => 
+"\xF3\xA0\xBF\xBC" => "",                     # U+E0FFC => 
+"\xF3\xA0\xBF\xBD" => "",                     # U+E0FFD => 
+"\xF3\xA0\xBF\xBE" => "",                     # U+E0FFE => 
+"\xF3\xA0\xBF\xBF" => "",                     # U+E0FFF => 
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00A0		0020
+00AA		0061
+00B2		0032
+00B3		0033
+00B5		03BC
+00B9		0031
+00BA		006F
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+017F		0073
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+02B0		0068
+02B1		0266
+02B2		006A
+02B3		0072
+02B4		0279
+02B5		027B
+02B6		0281
+02B7		0077
+02B8		0079
+02E0		0263
+02E1		006C
+02E2		0073
+02E3		0078
+02E4		0295
+0340		0300
+0341		0301
+0343		0313
+0345		03B9
+0370		0371
+0372		0373
+0374		02B9
+0376		0377
+037E		003B
+037F		03F3
+0386		03AC
+0387		00B7
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03C2		03C3
+03CF		03D7
+03D0		03B2
+03D1		03B8
+03D2		03C5
+03D3		03CD
+03D4		03CB
+03D5		03C6
+03D6		03C0
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F0		03BA
+03F1		03C1
+03F2		03C3
+03F4		03B8
+03F5		03B5
+03F7		03F8
+03F9		03C3
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+0F0C		0F0B
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+10FC		10DC
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1C80		0432
+1C81		0434
+1C82		043E
+1C83		0441
+1C84		0442
+1C85		0442
+1C86		044A
+1C87		0463
+1C88		A64B
+1D2C		0061
+1D2D		00E6
+1D2E		0062
+1D30		0064
+1D31		0065
+1D32		01DD
+1D33		0067
+1D34		0068
+1D35		0069
+1D36		006A
+1D37		006B
+1D38		006C
+1D39		006D
+1D3A		006E
+1D3C		006F
+1D3D		0223
+1D3E		0070
+1D3F		0072
+1D40		0074
+1D41		0075
+1D42		0077
+1D43		0061
+1D44		0250
+1D45		0251
+1D46		1D02
+1D47		0062
+1D48		0064
+1D49		0065
+1D4A		0259
+1D4B		025B
+1D4C		025C
+1D4D		0067
+1D4F		006B
+1D50		006D
+1D51		014B
+1D52		006F
+1D53		0254
+1D54		1D16
+1D55		1D17
+1D56		0070
+1D57		0074
+1D58		0075
+1D59		1D1D
+1D5A		026F
+1D5B		0076
+1D5C		1D25
+1D5D		03B2
+1D5E		03B3
+1D5F		03B4
+1D60		03C6
+1D61		03C7
+1D62		0069
+1D63		0072
+1D64		0075
+1D65		0076
+1D66		03B2
+1D67		03B3
+1D68		03C1
+1D69		03C6
+1D6A		03C7
+1D78		043D
+1D9B		0252
+1D9C		0063
+1D9D		0255
+1D9E		00F0
+1D9F		025C
+1DA0		0066
+1DA1		025F
+1DA2		0261
+1DA3		0265
+1DA4		0268
+1DA5		0269
+1DA6		026A
+1DA7		1D7B
+1DA8		029D
+1DA9		026D
+1DAA		1D85
+1DAB		029F
+1DAC		0271
+1DAD		0270
+1DAE		0272
+1DAF		0273
+1DB0		0274
+1DB1		0275
+1DB2		0278
+1DB3		0282
+1DB4		0283
+1DB5		01AB
+1DB6		0289
+1DB7		028A
+1DB8		1D1C
+1DB9		028B
+1DBA		028C
+1DBB		007A
+1DBC		0290
+1DBD		0291
+1DBE		0292
+1DBF		03B8
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F71		03AC
+1F73		03AD
+1F75		03AE
+1F77		03AF
+1F79		03CC
+1F7B		03CD
+1F7D		03CE
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		03AC
+1FBE		03B9
+1FC8		1F72
+1FC9		03AD
+1FCA		1F74
+1FCB		03AE
+1FD3		0390
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		03AF
+1FE3		03B0
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		03CD
+1FEC		1FE5
+1FEF		0060
+1FF8		1F78
+1FF9		03CC
+1FFA		1F7C
+1FFB		03CE
+2000		0020
+2001		0020
+2002		0020
+2003		0020
+2004		0020
+2005		0020
+2006		0020
+2007		0020
+2008		0020
+2009		0020
+200A		0020
+2011		2010
+2024		002E
+202F		0020
+205F		0020
+2070		0030
+2071		0069
+2074		0034
+2075		0035
+2076		0036
+2077		0037
+2078		0038
+2079		0039
+207A		002B
+207B		2212
+207C		003D
+207D		0028
+207E		0029
+207F		006E
+2080		0030
+2081		0031
+2082		0032
+2083		0033
+2084		0034
+2085		0035
+2086		0036
+2087		0037
+2088		0038
+2089		0039
+208A		002B
+208B		2212
+208C		003D
+208D		0028
+208E		0029
+2090		0061
+2091		0065
+2092		006F
+2093		0078
+2094		0259
+2095		0068
+2096		006B
+2097		006C
+2098		006D
+2099		006E
+209A		0070
+209B		0073
+209C		0074
+2102		0063
+2107		025B
+210A		0067
+210B		0068
+210C		0068
+210D		0068
+210E		0068
+210F		0127
+2110		0069
+2111		0069
+2112		006C
+2113		006C
+2115		006E
+2119		0070
+211A		0071
+211B		0072
+211C		0072
+211D		0072
+2124		007A
+2126		03C9
+2128		007A
+212A		006B
+212B		00E5
+212C		0062
+212D		0063
+212F		0065
+2130		0065
+2131		0066
+2132		214E
+2133		006D
+2134		006F
+2135		05D0
+2136		05D1
+2137		05D2
+2138		05D3
+2139		0069
+213C		03C0
+213D		03B3
+213E		03B3
+213F		03C0
+2140		2211
+2145		0064
+2146		0064
+2147		0065
+2148		0069
+2149		006A
+2160		0069
+2164		0076
+2169		0078
+216C		006C
+216D		0063
+216E		0064
+216F		006D
+2170		0069
+2174		0076
+2179		0078
+217C		006C
+217D		0063
+217E		0064
+217F		006D
+2183		2184
+2329		3008
+232A		3009
+2460		0031
+2461		0032
+2462		0033
+2463		0034
+2464		0035
+2465		0036
+2466		0037
+2467		0038
+2468		0039
+24B6		0061
+24B7		0062
+24B8		0063
+24B9		0064
+24BA		0065
+24BB		0066
+24BC		0067
+24BD		0068
+24BE		0069
+24BF		006A
+24C0		006B
+24C1		006C
+24C2		006D
+24C3		006E
+24C4		006F
+24C5		0070
+24C6		0071
+24C7		0072
+24C8		0073
+24C9		0074
+24CA		0075
+24CB		0076
+24CC		0077
+24CD		0078
+24CE		0079
+24CF		007A
+24D0		0061
+24D1		0062
+24D2		0063
+24D3		0064
+24D4		0065
+24D5		0066
+24D6		0067
+24D7		0068
+24D8		0069
+24D9		006A
+24DA		006B
+24DB		006C
+24DC		006D
+24DD		006E
+24DE		006F
+24DF		0070
+24E0		0071
+24E1		0072
+24E2		0073
+24E3		0074
+24E4		0075
+24E5		0076
+24E6		0077
+24E7		0078
+24E8		0079
+24E9		007A
+24EA		0030
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7C		006A
+2C7D		0076
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+2D6F		2D61
+2E9F		6BCD
+2EF3		9F9F
+2F00		4E00
+2F01		4E28
+2F02		4E36
+2F03		4E3F
+2F04		4E59
+2F05		4E85
+2F06		4E8C
+2F07		4EA0
+2F08		4EBA
+2F09		513F
+2F0A		5165
+2F0B		516B
+2F0C		5182
+2F0D		5196
+2F0E		51AB
+2F0F		51E0
+2F10		51F5
+2F11		5200
+2F12		529B
+2F13		52F9
+2F14		5315
+2F15		531A
+2F16		5338
+2F17		5341
+2F18		535C
+2F19		5369
+2F1A		5382
+2F1B		53B6
+2F1C		53C8
+2F1D		53E3
+2F1E		56D7
+2F1F		571F
+2F20		58EB
+2F21		5902
+2F22		590A
+2F23		5915
+2F24		5927
+2F25		5973
+2F26		5B50
+2F27		5B80
+2F28		5BF8
+2F29		5C0F
+2F2A		5C22
+2F2B		5C38
+2F2C		5C6E
+2F2D		5C71
+2F2E		5DDB
+2F2F		5DE5
+2F30		5DF1
+2F31		5DFE
+2F32		5E72
+2F33		5E7A
+2F34		5E7F
+2F35		5EF4
+2F36		5EFE
+2F37		5F0B
+2F38		5F13
+2F39		5F50
+2F3A		5F61
+2F3B		5F73
+2F3C		5FC3
+2F3D		6208
+2F3E		6236
+2F3F		624B
+2F40		652F
+2F41		6534
+2F42		6587
+2F43		6597
+2F44		65A4
+2F45		65B9
+2F46		65E0
+2F47		65E5
+2F48		66F0
+2F49		6708
+2F4A		6728
+2F4B		6B20
+2F4C		6B62
+2F4D		6B79
+2F4E		6BB3
+2F4F		6BCB
+2F50		6BD4
+2F51		6BDB
+2F52		6C0F
+2F53		6C14
+2F54		6C34
+2F55		706B
+2F56		722A
+2F57		7236
+2F58		723B
+2F59		723F
+2F5A		7247
+2F5B		7259
+2F5C		725B
+2F5D		72AC
+2F5E		7384
+2F5F		7389
+2F60		74DC
+2F61		74E6
+2F62		7518
+2F63		751F
+2F64		7528
+2F65		7530
+2F66		758B
+2F67		7592
+2F68		7676
+2F69		767D
+2F6A		76AE
+2F6B		76BF
+2F6C		76EE
+2F6D		77DB
+2F6E		77E2
+2F6F		77F3
+2F70		793A
+2F71		79B8
+2F72		79BE
+2F73		7A74
+2F74		7ACB
+2F75		7AF9
+2F76		7C73
+2F77		7CF8
+2F78		7F36
+2F79		7F51
+2F7A		7F8A
+2F7B		7FBD
+2F7C		8001
+2F7D		800C
+2F7E		8012
+2F7F		8033
+2F80		807F
+2F81		8089
+2F82		81E3
+2F83		81EA
+2F84		81F3
+2F85		81FC
+2F86		820C
+2F87		821B
+2F88		821F
+2F89		826E
+2F8A		8272
+2F8B		8278
+2F8C		864D
+2F8D		866B
+2F8E		8840
+2F8F		884C
+2F90		8863
+2F91		897E
+2F92		898B
+2F93		89D2
+2F94		8A00
+2F95		8C37
+2F96		8C46
+2F97		8C55
+2F98		8C78
+2F99		8C9D
+2F9A		8D64
+2F9B		8D70
+2F9C		8DB3
+2F9D		8EAB
+2F9E		8ECA
+2F9F		8F9B
+2FA0		8FB0
+2FA1		8FB5
+2FA2		9091
+2FA3		9149
+2FA4		91C6
+2FA5		91CC
+2FA6		91D1
+2FA7		9577
+2FA8		9580
+2FA9		961C
+2FAA		96B6
+2FAB		96B9
+2FAC		96E8
+2FAD		9751
+2FAE		975E
+2FAF		9762
+2FB0		9769
+2FB1		97CB
+2FB2		97ED
+2FB3		97F3
+2FB4		9801
+2FB5		98A8
+2FB6		98DB
+2FB7		98DF
+2FB8		9996
+2FB9		9999
+2FBA		99AC
+2FBB		9AA8
+2FBC		9AD8
+2FBD		9ADF
+2FBE		9B25
+2FBF		9B2F
+2FC0		9B32
+2FC1		9B3C
+2FC2		9B5A
+2FC3		9CE5
+2FC4		9E75
+2FC5		9E7F
+2FC6		9EA5
+2FC7		9EBB
+2FC8		9EC3
+2FC9		9ECD
+2FCA		9ED1
+2FCB		9EF9
+2FCC		9EFD
+2FCD		9F0E
+2FCE		9F13
+2FCF		9F20
+2FD0		9F3B
+2FD1		9F4A
+2FD2		9F52
+2FD3		9F8D
+2FD4		9F9C
+2FD5		9FA0
+3000		0020
+3036		3012
+3038		5341
+3039		5344
+303A		5345
+3131		1100
+3132		1101
+3133		11AA
+3134		1102
+3135		11AC
+3136		11AD
+3137		1103
+3138		1104
+3139		1105
+313A		11B0
+313B		11B1
+313C		11B2
+313D		11B3
+313E		11B4
+313F		11B5
+3140		111A
+3141		1106
+3142		1107
+3143		1108
+3144		1121
+3145		1109
+3146		110A
+3147		110B
+3148		110C
+3149		110D
+314A		110E
+314B		110F
+314C		1110
+314D		1111
+314E		1112
+314F		1161
+3150		1162
+3151		1163
+3152		1164
+3153		1165
+3154		1166
+3155		1167
+3156		1168
+3157		1169
+3158		116A
+3159		116B
+315A		116C
+315B		116D
+315C		116E
+315D		116F
+315E		1170
+315F		1171
+3160		1172
+3161		1173
+3162		1174
+3163		1175
+3165		1114
+3166		1115
+3167		11C7
+3168		11C8
+3169		11CC
+316A		11CE
+316B		11D3
+316C		11D7
+316D		11D9
+316E		111C
+316F		11DD
+3170		11DF
+3171		111D
+3172		111E
+3173		1120
+3174		1122
+3175		1123
+3176		1127
+3177		1129
+3178		112B
+3179		112C
+317A		112D
+317B		112E
+317C		112F
+317D		1132
+317E		1136
+317F		1140
+3180		1147
+3181		114C
+3182		11F1
+3183		11F2
+3184		1157
+3185		1158
+3186		1159
+3187		1184
+3188		1185
+3189		1188
+318A		1191
+318B		1192
+318C		1194
+318D		119E
+318E		11A1
+3192		4E00
+3193		4E8C
+3194		4E09
+3195		56DB
+3196		4E0A
+3197		4E2D
+3198		4E0B
+3199		7532
+319A		4E59
+319B		4E19
+319C		4E01
+319D		5929
+319E		5730
+319F		4EBA
+3244		554F
+3245		5E7C
+3246		6587
+3247		7B8F
+3260		1100
+3261		1102
+3262		1103
+3263		1105
+3264		1106
+3265		1107
+3266		1109
+3267		110B
+3268		110C
+3269		110E
+326A		110F
+326B		1110
+326C		1111
+326D		1112
+326E		AC00
+326F		B098
+3270		B2E4
+3271		B77C
+3272		B9C8
+3273		BC14
+3274		C0AC
+3275		C544
+3276		C790
+3277		CC28
+3278		CE74
+3279		D0C0
+327A		D30C
+327B		D558
+327E		C6B0
+3280		4E00
+3281		4E8C
+3282		4E09
+3283		56DB
+3284		4E94
+3285		516D
+3286		4E03
+3287		516B
+3288		4E5D
+3289		5341
+328A		6708
+328B		706B
+328C		6C34
+328D		6728
+328E		91D1
+328F		571F
+3290		65E5
+3291		682A
+3292		6709
+3293		793E
+3294		540D
+3295		7279
+3296		8CA1
+3297		795D
+3298		52B4
+3299		79D8
+329A		7537
+329B		5973
+329C		9069
+329D		512A
+329E		5370
+329F		6CE8
+32A0		9805
+32A1		4F11
+32A2		5199
+32A3		6B63
+32A4		4E0A
+32A5		4E2D
+32A6		4E0B
+32A7		5DE6
+32A8		53F3
+32A9		533B
+32AA		5B97
+32AB		5B66
+32AC		76E3
+32AD		4F01
+32AE		8CC7
+32AF		5354
+32B0		591C
+32D0		30A2
+32D1		30A4
+32D2		30A6
+32D3		30A8
+32D4		30AA
+32D5		30AB
+32D6		30AD
+32D7		30AF
+32D8		30B1
+32D9		30B3
+32DA		30B5
+32DB		30B7
+32DC		30B9
+32DD		30BB
+32DE		30BD
+32DF		30BF
+32E0		30C1
+32E1		30C4
+32E2		30C6
+32E3		30C8
+32E4		30CA
+32E5		30CB
+32E6		30CC
+32E7		30CD
+32E8		30CE
+32E9		30CF
+32EA		30D2
+32EB		30D5
+32EC		30D8
+32ED		30DB
+32EE		30DE
+32EF		30DF
+32F0		30E0
+32F1		30E1
+32F2		30E2
+32F3		30E4
+32F4		30E6
+32F5		30E8
+32F6		30E9
+32F7		30EA
+32F8		30EB
+32F9		30EC
+32FA		30ED
+32FB		30EF
+32FC		30F0
+32FD		30F1
+32FE		30F2
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A69C		044A
+A69D		044C
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A770		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7AE		026A
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+A7F8		0127
+A7F9		0153
+AB5C		A727
+AB5D		AB37
+AB5E		026B
+AB5F		AB52
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+F900		8C48
+F901		66F4
+F902		8ECA
+F903		8CC8
+F904		6ED1
+F905		4E32
+F906		53E5
+F907		9F9C
+F908		9F9C
+F909		5951
+F90A		91D1
+F90B		5587
+F90C		5948
+F90D		61F6
+F90E		7669
+F90F		7F85
+F910		863F
+F911		87BA
+F912		88F8
+F913		908F
+F914		6A02
+F915		6D1B
+F916		70D9
+F917		73DE
+F918		843D
+F919		916A
+F91A		99F1
+F91B		4E82
+F91C		5375
+F91D		6B04
+F91E		721B
+F91F		862D
+F920		9E1E
+F921		5D50
+F922		6FEB
+F923		85CD
+F924		8964
+F925		62C9
+F926		81D8
+F927		881F
+F928		5ECA
+F929		6717
+F92A		6D6A
+F92B		72FC
+F92C		90CE
+F92D		4F86
+F92E		51B7
+F92F		52DE
+F930		64C4
+F931		6AD3
+F932		7210
+F933		76E7
+F934		8001
+F935		8606
+F936		865C
+F937		8DEF
+F938		9732
+F939		9B6F
+F93A		9DFA
+F93B		788C
+F93C		797F
+F93D		7DA0
+F93E		83C9
+F93F		9304
+F940		9E7F
+F941		8AD6
+F942		58DF
+F943		5F04
+F944		7C60
+F945		807E
+F946		7262
+F947		78CA
+F948		8CC2
+F949		96F7
+F94A		58D8
+F94B		5C62
+F94C		6A13
+F94D		6DDA
+F94E		6F0F
+F94F		7D2F
+F950		7E37
+F951		964B
+F952		52D2
+F953		808B
+F954		51DC
+F955		51CC
+F956		7A1C
+F957		7DBE
+F958		83F1
+F959		9675
+F95A		8B80
+F95B		62CF
+F95C		6A02
+F95D		8AFE
+F95E		4E39
+F95F		5BE7
+F960		6012
+F961		7387
+F962		7570
+F963		5317
+F964		78FB
+F965		4FBF
+F966		5FA9
+F967		4E0D
+F968		6CCC
+F969		6578
+F96A		7D22
+F96B		53C3
+F96C		585E
+F96D		7701
+F96E		8449
+F96F		8AAA
+F970		6BBA
+F971		8FB0
+F972		6C88
+F973		62FE
+F974		82E5
+F975		63A0
+F976		7565
+F977		4EAE
+F978		5169
+F979		51C9
+F97A		6881
+F97B		7CE7
+F97C		826F
+F97D		8AD2
+F97E		91CF
+F97F		52F5
+F980		5442
+F981		5973
+F982		5EEC
+F983		65C5
+F984		6FFE
+F985		792A
+F986		95AD
+F987		9A6A
+F988		9E97
+F989		9ECE
+F98A		529B
+F98B		66C6
+F98C		6B77
+F98D		8F62
+F98E		5E74
+F98F		6190
+F990		6200
+F991		649A
+F992		6F23
+F993		7149
+F994		7489
+F995		79CA
+F996		7DF4
+F997		806F
+F998		8F26
+F999		84EE
+F99A		9023
+F99B		934A
+F99C		5217
+F99D		52A3
+F99E		54BD
+F99F		70C8
+F9A0		88C2
+F9A1		8AAA
+F9A2		5EC9
+F9A3		5FF5
+F9A4		637B
+F9A5		6BAE
+F9A6		7C3E
+F9A7		7375
+F9A8		4EE4
+F9A9		56F9
+F9AA		5BE7
+F9AB		5DBA
+F9AC		601C
+F9AD		73B2
+F9AE		7469
+F9AF		7F9A
+F9B0		8046
+F9B1		9234
+F9B2		96F6
+F9B3		9748
+F9B4		9818
+F9B5		4F8B
+F9B6		79AE
+F9B7		91B4
+F9B8		96B8
+F9B9		60E1
+F9BA		4E86
+F9BB		50DA
+F9BC		5BEE
+F9BD		5C3F
+F9BE		6599
+F9BF		6A02
+F9C0		71CE
+F9C1		7642
+F9C2		84FC
+F9C3		907C
+F9C4		9F8D
+F9C5		6688
+F9C6		962E
+F9C7		5289
+F9C8		677B
+F9C9		67F3
+F9CA		6D41
+F9CB		6E9C
+F9CC		7409
+F9CD		7559
+F9CE		786B
+F9CF		7D10
+F9D0		985E
+F9D1		516D
+F9D2		622E
+F9D3		9678
+F9D4		502B
+F9D5		5D19
+F9D6		6DEA
+F9D7		8F2A
+F9D8		5F8B
+F9D9		6144
+F9DA		6817
+F9DB		7387
+F9DC		9686
+F9DD		5229
+F9DE		540F
+F9DF		5C65
+F9E0		6613
+F9E1		674E
+F9E2		68A8
+F9E3		6CE5
+F9E4		7406
+F9E5		75E2
+F9E6		7F79
+F9E7		88CF
+F9E8		88E1
+F9E9		91CC
+F9EA		96E2
+F9EB		533F
+F9EC		6EBA
+F9ED		541D
+F9EE		71D0
+F9EF		7498
+F9F0		85FA
+F9F1		96A3
+F9F2		9C57
+F9F3		9E9F
+F9F4		6797
+F9F5		6DCB
+F9F6		81E8
+F9F7		7ACB
+F9F8		7B20
+F9F9		7C92
+F9FA		72C0
+F9FB		7099
+F9FC		8B58
+F9FD		4EC0
+F9FE		8336
+F9FF		523A
+FA00		5207
+FA01		5EA6
+FA02		62D3
+FA03		7CD6
+FA04		5B85
+FA05		6D1E
+FA06		66B4
+FA07		8F3B
+FA08		884C
+FA09		964D
+FA0A		898B
+FA0B		5ED3
+FA0C		5140
+FA0D		55C0
+FA10		585A
+FA12		6674
+FA15		51DE
+FA16		732A
+FA17		76CA
+FA18		793C
+FA19		795E
+FA1A		7965
+FA1B		798F
+FA1C		9756
+FA1D		7CBE
+FA1E		7FBD
+FA20		8612
+FA22		8AF8
+FA25		9038
+FA26		90FD
+FA2A		98EF
+FA2B		98FC
+FA2C		9928
+FA2D		9DB4
+FA2E		90DE
+FA2F		96B7
+FA30		4FAE
+FA31		50E7
+FA32		514D
+FA33		52C9
+FA34		52E4
+FA35		5351
+FA36		559D
+FA37		5606
+FA38		5668
+FA39		5840
+FA3A		58A8
+FA3B		5C64
+FA3C		5C6E
+FA3D		6094
+FA3E		6168
+FA3F		618E
+FA40		61F2
+FA41		654F
+FA42		65E2
+FA43		6691
+FA44		6885
+FA45		6D77
+FA46		6E1A
+FA47		6F22
+FA48		716E
+FA49		722B
+FA4A		7422
+FA4B		7891
+FA4C		793E
+FA4D		7949
+FA4E		7948
+FA4F		7950
+FA50		7956
+FA51		795D
+FA52		798D
+FA53		798E
+FA54		7A40
+FA55		7A81
+FA56		7BC0
+FA57		7DF4
+FA58		7E09
+FA59		7E41
+FA5A		7F72
+FA5B		8005
+FA5C		81ED
+FA5D		8279
+FA5E		8279
+FA5F		8457
+FA60		8910
+FA61		8996
+FA62		8B01
+FA63		8B39
+FA64		8CD3
+FA65		8D08
+FA66		8FB6
+FA67		9038
+FA68		96E3
+FA69		97FF
+FA6A		983B
+FA6B		6075
+FA6C		242EE
+FA6D		8218
+FA70		4E26
+FA71		51B5
+FA72		5168
+FA73		4F80
+FA74		5145
+FA75		5180
+FA76		52C7
+FA77		52FA
+FA78		559D
+FA79		5555
+FA7A		5599
+FA7B		55E2
+FA7C		585A
+FA7D		58B3
+FA7E		5944
+FA7F		5954
+FA80		5A62
+FA81		5B28
+FA82		5ED2
+FA83		5ED9
+FA84		5F69
+FA85		5FAD
+FA86		60D8
+FA87		614E
+FA88		6108
+FA89		618E
+FA8A		6160
+FA8B		61F2
+FA8C		6234
+FA8D		63C4
+FA8E		641C
+FA8F		6452
+FA90		6556
+FA91		6674
+FA92		6717
+FA93		671B
+FA94		6756
+FA95		6B79
+FA96		6BBA
+FA97		6D41
+FA98		6EDB
+FA99		6ECB
+FA9A		6F22
+FA9B		701E
+FA9C		716E
+FA9D		77A7
+FA9E		7235
+FA9F		72AF
+FAA0		732A
+FAA1		7471
+FAA2		7506
+FAA3		753B
+FAA4		761D
+FAA5		761F
+FAA6		76CA
+FAA7		76DB
+FAA8		76F4
+FAA9		774A
+FAAA		7740
+FAAB		78CC
+FAAC		7AB1
+FAAD		7BC0
+FAAE		7C7B
+FAAF		7D5B
+FAB0		7DF4
+FAB1		7F3E
+FAB2		8005
+FAB3		8352
+FAB4		83EF
+FAB5		8779
+FAB6		8941
+FAB7		8986
+FAB8		8996
+FAB9		8ABF
+FABA		8AF8
+FABB		8ACB
+FABC		8B01
+FABD		8AFE
+FABE		8AED
+FABF		8B39
+FAC0		8B8A
+FAC1		8D08
+FAC2		8F38
+FAC3		9072
+FAC4		9199
+FAC5		9276
+FAC6		967C
+FAC7		96E3
+FAC8		9756
+FAC9		97DB
+FACA		97FF
+FACB		980B
+FACC		983B
+FACD		9B12
+FACE		9F9C
+FACF		2284A
+FAD0		22844
+FAD1		233D5
+FAD2		3B9D
+FAD3		4018
+FAD4		4039
+FAD5		25249
+FAD6		25CD0
+FAD7		27ED3
+FAD8		9F43
+FAD9		9F8E
+FB20		05E2
+FB21		05D0
+FB22		05D3
+FB23		05D4
+FB24		05DB
+FB25		05DC
+FB26		05DD
+FB27		05E8
+FB28		05EA
+FB29		002B
+FB50		0671
+FB51		0671
+FB52		067B
+FB53		067B
+FB54		067B
+FB55		067B
+FB56		067E
+FB57		067E
+FB58		067E
+FB59		067E
+FB5A		0680
+FB5B		0680
+FB5C		0680
+FB5D		0680
+FB5E		067A
+FB5F		067A
+FB60		067A
+FB61		067A
+FB62		067F
+FB63		067F
+FB64		067F
+FB65		067F
+FB66		0679
+FB67		0679
+FB68		0679
+FB69		0679
+FB6A		06A4
+FB6B		06A4
+FB6C		06A4
+FB6D		06A4
+FB6E		06A6
+FB6F		06A6
+FB70		06A6
+FB71		06A6
+FB72		0684
+FB73		0684
+FB74		0684
+FB75		0684
+FB76		0683
+FB77		0683
+FB78		0683
+FB79		0683
+FB7A		0686
+FB7B		0686
+FB7C		0686
+FB7D		0686
+FB7E		0687
+FB7F		0687
+FB80		0687
+FB81		0687
+FB82		068D
+FB83		068D
+FB84		068C
+FB85		068C
+FB86		068E
+FB87		068E
+FB88		0688
+FB89		0688
+FB8A		0698
+FB8B		0698
+FB8C		0691
+FB8D		0691
+FB8E		06A9
+FB8F		06A9
+FB90		06A9
+FB91		06A9
+FB92		06AF
+FB93		06AF
+FB94		06AF
+FB95		06AF
+FB96		06B3
+FB97		06B3
+FB98		06B3
+FB99		06B3
+FB9A		06B1
+FB9B		06B1
+FB9C		06B1
+FB9D		06B1
+FB9E		06BA
+FB9F		06BA
+FBA0		06BB
+FBA1		06BB
+FBA2		06BB
+FBA3		06BB
+FBA4		06C0
+FBA5		06C0
+FBA6		06C1
+FBA7		06C1
+FBA8		06C1
+FBA9		06C1
+FBAA		06BE
+FBAB		06BE
+FBAC		06BE
+FBAD		06BE
+FBAE		06D2
+FBAF		06D2
+FBB0		06D3
+FBB1		06D3
+FBD3		06AD
+FBD4		06AD
+FBD5		06AD
+FBD6		06AD
+FBD7		06C7
+FBD8		06C7
+FBD9		06C6
+FBDA		06C6
+FBDB		06C8
+FBDC		06C8
+FBDE		06CB
+FBDF		06CB
+FBE0		06C5
+FBE1		06C5
+FBE2		06C9
+FBE3		06C9
+FBE4		06D0
+FBE5		06D0
+FBE6		06D0
+FBE7		06D0
+FBE8		0649
+FBE9		0649
+FBFC		06CC
+FBFD		06CC
+FBFE		06CC
+FBFF		06CC
+FE10		002C
+FE11		3001
+FE12		3002
+FE13		003A
+FE14		003B
+FE15		0021
+FE16		003F
+FE17		3016
+FE18		3017
+FE31		2014
+FE32		2013
+FE33		005F
+FE34		005F
+FE35		0028
+FE36		0029
+FE37		007B
+FE38		007D
+FE39		3014
+FE3A		3015
+FE3B		3010
+FE3C		3011
+FE3D		300A
+FE3E		300B
+FE3F		3008
+FE40		3009
+FE41		300C
+FE42		300D
+FE43		300E
+FE44		300F
+FE47		005B
+FE48		005D
+FE4D		005F
+FE4E		005F
+FE4F		005F
+FE50		002C
+FE51		3001
+FE52		002E
+FE54		003B
+FE55		003A
+FE56		003F
+FE57		0021
+FE58		2014
+FE59		0028
+FE5A		0029
+FE5B		007B
+FE5C		007D
+FE5D		3014
+FE5E		3015
+FE5F		0023
+FE60		0026
+FE61		002A
+FE62		002B
+FE63		002D
+FE64		003C
+FE65		003E
+FE66		003D
+FE68		005C
+FE69		0024
+FE6A		0025
+FE6B		0040
+FE80		0621
+FE81		0622
+FE82		0622
+FE83		0623
+FE84		0623
+FE85		0624
+FE86		0624
+FE87		0625
+FE88		0625
+FE89		0626
+FE8A		0626
+FE8B		0626
+FE8C		0626
+FE8D		0627
+FE8E		0627
+FE8F		0628
+FE90		0628
+FE91		0628
+FE92		0628
+FE93		0629
+FE94		0629
+FE95		062A
+FE96		062A
+FE97		062A
+FE98		062A
+FE99		062B
+FE9A		062B
+FE9B		062B
+FE9C		062B
+FE9D		062C
+FE9E		062C
+FE9F		062C
+FEA0		062C
+FEA1		062D
+FEA2		062D
+FEA3		062D
+FEA4		062D
+FEA5		062E
+FEA6		062E
+FEA7		062E
+FEA8		062E
+FEA9		062F
+FEAA		062F
+FEAB		0630
+FEAC		0630
+FEAD		0631
+FEAE		0631
+FEAF		0632
+FEB0		0632
+FEB1		0633
+FEB2		0633
+FEB3		0633
+FEB4		0633
+FEB5		0634
+FEB6		0634
+FEB7		0634
+FEB8		0634
+FEB9		0635
+FEBA		0635
+FEBB		0635
+FEBC		0635
+FEBD		0636
+FEBE		0636
+FEBF		0636
+FEC0		0636
+FEC1		0637
+FEC2		0637
+FEC3		0637
+FEC4		0637
+FEC5		0638
+FEC6		0638
+FEC7		0638
+FEC8		0638
+FEC9		0639
+FECA		0639
+FECB		0639
+FECC		0639
+FECD		063A
+FECE		063A
+FECF		063A
+FED0		063A
+FED1		0641
+FED2		0641
+FED3		0641
+FED4		0641
+FED5		0642
+FED6		0642
+FED7		0642
+FED8		0642
+FED9		0643
+FEDA		0643
+FEDB		0643
+FEDC		0643
+FEDD		0644
+FEDE		0644
+FEDF		0644
+FEE0		0644
+FEE1		0645
+FEE2		0645
+FEE3		0645
+FEE4		0645
+FEE5		0646
+FEE6		0646
+FEE7		0646
+FEE8		0646
+FEE9		0647
+FEEA		0647
+FEEB		0647
+FEEC		0647
+FEED		0648
+FEEE		0648
+FEEF		0649
+FEF0		0649
+FEF1		064A
+FEF2		064A
+FEF3		064A
+FEF4		064A
+FF01		0021
+FF02		0022
+FF03		0023
+FF04		0024
+FF05		0025
+FF06		0026
+FF07		0027
+FF08		0028
+FF09		0029
+FF0A		002A
+FF0B		002B
+FF0C		002C
+FF0D		002D
+FF0E		002E
+FF0F		002F
+FF10		0030
+FF11		0031
+FF12		0032
+FF13		0033
+FF14		0034
+FF15		0035
+FF16		0036
+FF17		0037
+FF18		0038
+FF19		0039
+FF1A		003A
+FF1B		003B
+FF1C		003C
+FF1D		003D
+FF1E		003E
+FF1F		003F
+FF20		0040
+FF21		0061
+FF22		0062
+FF23		0063
+FF24		0064
+FF25		0065
+FF26		0066
+FF27		0067
+FF28		0068
+FF29		0069
+FF2A		006A
+FF2B		006B
+FF2C		006C
+FF2D		006D
+FF2E		006E
+FF2F		006F
+FF30		0070
+FF31		0071
+FF32		0072
+FF33		0073
+FF34		0074
+FF35		0075
+FF36		0076
+FF37		0077
+FF38		0078
+FF39		0079
+FF3A		007A
+FF3B		005B
+FF3C		005C
+FF3D		005D
+FF3E		005E
+FF3F		005F
+FF40		0060
+FF41		0061
+FF42		0062
+FF43		0063
+FF44		0064
+FF45		0065
+FF46		0066
+FF47		0067
+FF48		0068
+FF49		0069
+FF4A		006A
+FF4B		006B
+FF4C		006C
+FF4D		006D
+FF4E		006E
+FF4F		006F
+FF50		0070
+FF51		0071
+FF52		0072
+FF53		0073
+FF54		0074
+FF55		0075
+FF56		0076
+FF57		0077
+FF58		0078
+FF59		0079
+FF5A		007A
+FF5B		007B
+FF5C		007C
+FF5D		007D
+FF5E		007E
+FF5F		2985
+FF60		2986
+FF61		3002
+FF62		300C
+FF63		300D
+FF64		3001
+FF65		30FB
+FF66		30F2
+FF67		30A1
+FF68		30A3
+FF69		30A5
+FF6A		30A7
+FF6B		30A9
+FF6C		30E3
+FF6D		30E5
+FF6E		30E7
+FF6F		30C3
+FF70		30FC
+FF71		30A2
+FF72		30A4
+FF73		30A6
+FF74		30A8
+FF75		30AA
+FF76		30AB
+FF77		30AD
+FF78		30AF
+FF79		30B1
+FF7A		30B3
+FF7B		30B5
+FF7C		30B7
+FF7D		30B9
+FF7E		30BB
+FF7F		30BD
+FF80		30BF
+FF81		30C1
+FF82		30C4
+FF83		30C6
+FF84		30C8
+FF85		30CA
+FF86		30CB
+FF87		30CC
+FF88		30CD
+FF89		30CE
+FF8A		30CF
+FF8B		30D2
+FF8C		30D5
+FF8D		30D8
+FF8E		30DB
+FF8F		30DE
+FF90		30DF
+FF91		30E0
+FF92		30E1
+FF93		30E2
+FF94		30E4
+FF95		30E6
+FF96		30E8
+FF97		30E9
+FF98		30EA
+FF99		30EB
+FF9A		30EC
+FF9B		30ED
+FF9C		30EF
+FF9D		30F3
+FF9E		3099
+FF9F		309A
+FFA1		1100
+FFA2		1101
+FFA3		11AA
+FFA4		1102
+FFA5		11AC
+FFA6		11AD
+FFA7		1103
+FFA8		1104
+FFA9		1105
+FFAA		11B0
+FFAB		11B1
+FFAC		11B2
+FFAD		11B3
+FFAE		11B4
+FFAF		11B5
+FFB0		111A
+FFB1		1106
+FFB2		1107
+FFB3		1108
+FFB4		1121
+FFB5		1109
+FFB6		110A
+FFB7		110B
+FFB8		110C
+FFB9		110D
+FFBA		110E
+FFBB		110F
+FFBC		1110
+FFBD		1111
+FFBE		1112
+FFC2		1161
+FFC3		1162
+FFC4		1163
+FFC5		1164
+FFC6		1165
+FFC7		1166
+FFCA		1167
+FFCB		1168
+FFCC		1169
+FFCD		116A
+FFCE		116B
+FFCF		116C
+FFD2		116D
+FFD3		116E
+FFD4		116F
+FFD5		1170
+FFD6		1171
+FFD7		1172
+FFDA		1173
+FFDB		1174
+FFDC		1175
+FFE0		00A2
+FFE1		00A3
+FFE2		00AC
+FFE4		00A6
+FFE5		00A5
+FFE6		20A9
+FFE8		2502
+FFE9		2190
+FFEA		2191
+FFEB		2192
+FFEC		2193
+FFED		25A0
+FFEE		25CB
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+104B0		104D8
+104B1		104D9
+104B2		104DA
+104B3		104DB
+104B4		104DC
+104B5		104DD
+104B6		104DE
+104B7		104DF
+104B8		104E0
+104B9		104E1
+104BA		104E2
+104BB		104E3
+104BC		104E4
+104BD		104E5
+104BE		104E6
+104BF		104E7
+104C0		104E8
+104C1		104E9
+104C2		104EA
+104C3		104EB
+104C4		104EC
+104C5		104ED
+104C6		104EE
+104C7		104EF
+104C8		104F0
+104C9		104F1
+104CA		104F2
+104CB		104F3
+104CC		104F4
+104CD		104F5
+104CE		104F6
+104CF		104F7
+104D0		104F8
+104D1		104F9
+104D2		104FA
+104D3		104FB
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+1D400		0061
+1D401		0062
+1D402		0063
+1D403		0064
+1D404		0065
+1D405		0066
+1D406		0067
+1D407		0068
+1D408		0069
+1D409		006A
+1D40A		006B
+1D40B		006C
+1D40C		006D
+1D40D		006E
+1D40E		006F
+1D40F		0070
+1D410		0071
+1D411		0072
+1D412		0073
+1D413		0074
+1D414		0075
+1D415		0076
+1D416		0077
+1D417		0078
+1D418		0079
+1D419		007A
+1D41A		0061
+1D41B		0062
+1D41C		0063
+1D41D		0064
+1D41E		0065
+1D41F		0066
+1D420		0067
+1D421		0068
+1D422		0069
+1D423		006A
+1D424		006B
+1D425		006C
+1D426		006D
+1D427		006E
+1D428		006F
+1D429		0070
+1D42A		0071
+1D42B		0072
+1D42C		0073
+1D42D		0074
+1D42E		0075
+1D42F		0076
+1D430		0077
+1D431		0078
+1D432		0079
+1D433		007A
+1D434		0061
+1D435		0062
+1D436		0063
+1D437		0064
+1D438		0065
+1D439		0066
+1D43A		0067
+1D43B		0068
+1D43C		0069
+1D43D		006A
+1D43E		006B
+1D43F		006C
+1D440		006D
+1D441		006E
+1D442		006F
+1D443		0070
+1D444		0071
+1D445		0072
+1D446		0073
+1D447		0074
+1D448		0075
+1D449		0076
+1D44A		0077
+1D44B		0078
+1D44C		0079
+1D44D		007A
+1D44E		0061
+1D44F		0062
+1D450		0063
+1D451		0064
+1D452		0065
+1D453		0066
+1D454		0067
+1D456		0069
+1D457		006A
+1D458		006B
+1D459		006C
+1D45A		006D
+1D45B		006E
+1D45C		006F
+1D45D		0070
+1D45E		0071
+1D45F		0072
+1D460		0073
+1D461		0074
+1D462		0075
+1D463		0076
+1D464		0077
+1D465		0078
+1D466		0079
+1D467		007A
+1D468		0061
+1D469		0062
+1D46A		0063
+1D46B		0064
+1D46C		0065
+1D46D		0066
+1D46E		0067
+1D46F		0068
+1D470		0069
+1D471		006A
+1D472		006B
+1D473		006C
+1D474		006D
+1D475		006E
+1D476		006F
+1D477		0070
+1D478		0071
+1D479		0072
+1D47A		0073
+1D47B		0074
+1D47C		0075
+1D47D		0076
+1D47E		0077
+1D47F		0078
+1D480		0079
+1D481		007A
+1D482		0061
+1D483		0062
+1D484		0063
+1D485		0064
+1D486		0065
+1D487		0066
+1D488		0067
+1D489		0068
+1D48A		0069
+1D48B		006A
+1D48C		006B
+1D48D		006C
+1D48E		006D
+1D48F		006E
+1D490		006F
+1D491		0070
+1D492		0071
+1D493		0072
+1D494		0073
+1D495		0074
+1D496		0075
+1D497		0076
+1D498		0077
+1D499		0078
+1D49A		0079
+1D49B		007A
+1D49C		0061
+1D49E		0063
+1D49F		0064
+1D4A2		0067
+1D4A5		006A
+1D4A6		006B
+1D4A9		006E
+1D4AA		006F
+1D4AB		0070
+1D4AC		0071
+1D4AE		0073
+1D4AF		0074
+1D4B0		0075
+1D4B1		0076
+1D4B2		0077
+1D4B3		0078
+1D4B4		0079
+1D4B5		007A
+1D4B6		0061
+1D4B7		0062
+1D4B8		0063
+1D4B9		0064
+1D4BB		0066
+1D4BD		0068
+1D4BE		0069
+1D4BF		006A
+1D4C0		006B
+1D4C1		006C
+1D4C2		006D
+1D4C3		006E
+1D4C5		0070
+1D4C6		0071
+1D4C7		0072
+1D4C8		0073
+1D4C9		0074
+1D4CA		0075
+1D4CB		0076
+1D4CC		0077
+1D4CD		0078
+1D4CE		0079
+1D4CF		007A
+1D4D0		0061
+1D4D1		0062
+1D4D2		0063
+1D4D3		0064
+1D4D4		0065
+1D4D5		0066
+1D4D6		0067
+1D4D7		0068
+1D4D8		0069
+1D4D9		006A
+1D4DA		006B
+1D4DB		006C
+1D4DC		006D
+1D4DD		006E
+1D4DE		006F
+1D4DF		0070
+1D4E0		0071
+1D4E1		0072
+1D4E2		0073
+1D4E3		0074
+1D4E4		0075
+1D4E5		0076
+1D4E6		0077
+1D4E7		0078
+1D4E8		0079
+1D4E9		007A
+1D4EA		0061
+1D4EB		0062
+1D4EC		0063
+1D4ED		0064
+1D4EE		0065
+1D4EF		0066
+1D4F0		0067
+1D4F1		0068
+1D4F2		0069
+1D4F3		006A
+1D4F4		006B
+1D4F5		006C
+1D4F6		006D
+1D4F7		006E
+1D4F8		006F
+1D4F9		0070
+1D4FA		0071
+1D4FB		0072
+1D4FC		0073
+1D4FD		0074
+1D4FE		0075
+1D4FF		0076
+1D500		0077
+1D501		0078
+1D502		0079
+1D503		007A
+1D504		0061
+1D505		0062
+1D507		0064
+1D508		0065
+1D509		0066
+1D50A		0067
+1D50D		006A
+1D50E		006B
+1D50F		006C
+1D510		006D
+1D511		006E
+1D512		006F
+1D513		0070
+1D514		0071
+1D516		0073
+1D517		0074
+1D518		0075
+1D519		0076
+1D51A		0077
+1D51B		0078
+1D51C		0079
+1D51E		0061
+1D51F		0062
+1D520		0063
+1D521		0064
+1D522		0065
+1D523		0066
+1D524		0067
+1D525		0068
+1D526		0069
+1D527		006A
+1D528		006B
+1D529		006C
+1D52A		006D
+1D52B		006E
+1D52C		006F
+1D52D		0070
+1D52E		0071
+1D52F		0072
+1D530		0073
+1D531		0074
+1D532		0075
+1D533		0076
+1D534		0077
+1D535		0078
+1D536		0079
+1D537		007A
+1D538		0061
+1D539		0062
+1D53B		0064
+1D53C		0065
+1D53D		0066
+1D53E		0067
+1D540		0069
+1D541		006A
+1D542		006B
+1D543		006C
+1D544		006D
+1D546		006F
+1D54A		0073
+1D54B		0074
+1D54C		0075
+1D54D		0076
+1D54E		0077
+1D54F		0078
+1D550		0079
+1D552		0061
+1D553		0062
+1D554		0063
+1D555		0064
+1D556		0065
+1D557		0066
+1D558		0067
+1D559		0068
+1D55A		0069
+1D55B		006A
+1D55C		006B
+1D55D		006C
+1D55E		006D
+1D55F		006E
+1D560		006F
+1D561		0070
+1D562		0071
+1D563		0072
+1D564		0073
+1D565		0074
+1D566		0075
+1D567		0076
+1D568		0077
+1D569		0078
+1D56A		0079
+1D56B		007A
+1D56C		0061
+1D56D		0062
+1D56E		0063
+1D56F		0064
+1D570		0065
+1D571		0066
+1D572		0067
+1D573		0068
+1D574		0069
+1D575		006A
+1D576		006B
+1D577		006C
+1D578		006D
+1D579		006E
+1D57A		006F
+1D57B		0070
+1D57C		0071
+1D57D		0072
+1D57E		0073
+1D57F		0074
+1D580		0075
+1D581		0076
+1D582		0077
+1D583		0078
+1D584		0079
+1D585		007A
+1D586		0061
+1D587		0062
+1D588		0063
+1D589		0064
+1D58A		0065
+1D58B		0066
+1D58C		0067
+1D58D		0068
+1D58E		0069
+1D58F		006A
+1D590		006B
+1D591		006C
+1D592		006D
+1D593		006E
+1D594		006F
+1D595		0070
+1D596		0071
+1D597		0072
+1D598		0073
+1D599		0074
+1D59A		0075
+1D59B		0076
+1D59C		0077
+1D59D		0078
+1D59E		0079
+1D59F		007A
+1D5A0		0061
+1D5A1		0062
+1D5A2		0063
+1D5A3		0064
+1D5A4		0065
+1D5A5		0066
+1D5A6		0067
+1D5A7		0068
+1D5A8		0069
+1D5A9		006A
+1D5AA		006B
+1D5AB		006C
+1D5AC		006D
+1D5AD		006E
+1D5AE		006F
+1D5AF		0070
+1D5B0		0071
+1D5B1		0072
+1D5B2		0073
+1D5B3		0074
+1D5B4		0075
+1D5B5		0076
+1D5B6		0077
+1D5B7		0078
+1D5B8		0079
+1D5B9		007A
+1D5BA		0061
+1D5BB		0062
+1D5BC		0063
+1D5BD		0064
+1D5BE		0065
+1D5BF		0066
+1D5C0		0067
+1D5C1		0068
+1D5C2		0069
+1D5C3		006A
+1D5C4		006B
+1D5C5		006C
+1D5C6		006D
+1D5C7		006E
+1D5C8		006F
+1D5C9		0070
+1D5CA		0071
+1D5CB		0072
+1D5CC		0073
+1D5CD		0074
+1D5CE		0075
+1D5CF		0076
+1D5D0		0077
+1D5D1		0078
+1D5D2		0079
+1D5D3		007A
+1D5D4		0061
+1D5D5		0062
+1D5D6		0063
+1D5D7		0064
+1D5D8		0065
+1D5D9		0066
+1D5DA		0067
+1D5DB		0068
+1D5DC		0069
+1D5DD		006A
+1D5DE		006B
+1D5DF		006C
+1D5E0		006D
+1D5E1		006E
+1D5E2		006F
+1D5E3		0070
+1D5E4		0071
+1D5E5		0072
+1D5E6		0073
+1D5E7		0074
+1D5E8		0075
+1D5E9		0076
+1D5EA		0077
+1D5EB		0078
+1D5EC		0079
+1D5ED		007A
+1D5EE		0061
+1D5EF		0062
+1D5F0		0063
+1D5F1		0064
+1D5F2		0065
+1D5F3		0066
+1D5F4		0067
+1D5F5		0068
+1D5F6		0069
+1D5F7		006A
+1D5F8		006B
+1D5F9		006C
+1D5FA		006D
+1D5FB		006E
+1D5FC		006F
+1D5FD		0070
+1D5FE		0071
+1D5FF		0072
+1D600		0073
+1D601		0074
+1D602		0075
+1D603		0076
+1D604		0077
+1D605		0078
+1D606		0079
+1D607		007A
+1D608		0061
+1D609		0062
+1D60A		0063
+1D60B		0064
+1D60C		0065
+1D60D		0066
+1D60E		0067
+1D60F		0068
+1D610		0069
+1D611		006A
+1D612		006B
+1D613		006C
+1D614		006D
+1D615		006E
+1D616		006F
+1D617		0070
+1D618		0071
+1D619		0072
+1D61A		0073
+1D61B		0074
+1D61C		0075
+1D61D		0076
+1D61E		0077
+1D61F		0078
+1D620		0079
+1D621		007A
+1D622		0061
+1D623		0062
+1D624		0063
+1D625		0064
+1D626		0065
+1D627		0066
+1D628		0067
+1D629		0068
+1D62A		0069
+1D62B		006A
+1D62C		006B
+1D62D		006C
+1D62E		006D
+1D62F		006E
+1D630		006F
+1D631		0070
+1D632		0071
+1D633		0072
+1D634		0073
+1D635		0074
+1D636		0075
+1D637		0076
+1D638		0077
+1D639		0078
+1D63A		0079
+1D63B		007A
+1D63C		0061
+1D63D		0062
+1D63E		0063
+1D63F		0064
+1D640		0065
+1D641		0066
+1D642		0067
+1D643		0068
+1D644		0069
+1D645		006A
+1D646		006B
+1D647		006C
+1D648		006D
+1D649		006E
+1D64A		006F
+1D64B		0070
+1D64C		0071
+1D64D		0072
+1D64E		0073
+1D64F		0074
+1D650		0075
+1D651		0076
+1D652		0077
+1D653		0078
+1D654		0079
+1D655		007A
+1D656		0061
+1D657		0062
+1D658		0063
+1D659		0064
+1D65A		0065
+1D65B		0066
+1D65C		0067
+1D65D		0068
+1D65E		0069
+1D65F		006A
+1D660		006B
+1D661		006C
+1D662		006D
+1D663		006E
+1D664		006F
+1D665		0070
+1D666		0071
+1D667		0072
+1D668		0073
+1D669		0074
+1D66A		0075
+1D66B		0076
+1D66C		0077
+1D66D		0078
+1D66E		0079
+1D66F		007A
+1D670		0061
+1D671		0062
+1D672		0063
+1D673		0064
+1D674		0065
+1D675		0066
+1D676		0067
+1D677		0068
+1D678		0069
+1D679		006A
+1D67A		006B
+1D67B		006C
+1D67C		006D
+1D67D		006E
+1D67E		006F
+1D67F		0070
+1D680		0071
+1D681		0072
+1D682		0073
+1D683		0074
+1D684		0075
+1D685		0076
+1D686		0077
+1D687		0078
+1D688		0079
+1D689		007A
+1D68A		0061
+1D68B		0062
+1D68C		0063
+1D68D		0064
+1D68E		0065
+1D68F		0066
+1D690		0067
+1D691		0068
+1D692		0069
+1D693		006A
+1D694		006B
+1D695		006C
+1D696		006D
+1D697		006E
+1D698		006F
+1D699		0070
+1D69A		0071
+1D69B		0072
+1D69C		0073
+1D69D		0074
+1D69E		0075
+1D69F		0076
+1D6A0		0077
+1D6A1		0078
+1D6A2		0079
+1D6A3		007A
+1D6A4		0131
+1D6A5		0237
+1D6A8		03B1
+1D6A9		03B2
+1D6AA		03B3
+1D6AB		03B4
+1D6AC		03B5
+1D6AD		03B6
+1D6AE		03B7
+1D6AF		03B8
+1D6B0		03B9
+1D6B1		03BA
+1D6B2		03BB
+1D6B3		03BC
+1D6B4		03BD
+1D6B5		03BE
+1D6B6		03BF
+1D6B7		03C0
+1D6B8		03C1
+1D6B9		03B8
+1D6BA		03C3
+1D6BB		03C4
+1D6BC		03C5
+1D6BD		03C6
+1D6BE		03C7
+1D6BF		03C8
+1D6C0		03C9
+1D6C1		2207
+1D6C2		03B1
+1D6C3		03B2
+1D6C4		03B3
+1D6C5		03B4
+1D6C6		03B5
+1D6C7		03B6
+1D6C8		03B7
+1D6C9		03B8
+1D6CA		03B9
+1D6CB		03BA
+1D6CC		03BB
+1D6CD		03BC
+1D6CE		03BD
+1D6CF		03BE
+1D6D0		03BF
+1D6D1		03C0
+1D6D2		03C1
+1D6D3		03C3
+1D6D4		03C3
+1D6D5		03C4
+1D6D6		03C5
+1D6D7		03C6
+1D6D8		03C7
+1D6D9		03C8
+1D6DA		03C9
+1D6DB		2202
+1D6DC		03B5
+1D6DD		03B8
+1D6DE		03BA
+1D6DF		03C6
+1D6E0		03C1
+1D6E1		03C0
+1D6E2		03B1
+1D6E3		03B2
+1D6E4		03B3
+1D6E5		03B4
+1D6E6		03B5
+1D6E7		03B6
+1D6E8		03B7
+1D6E9		03B8
+1D6EA		03B9
+1D6EB		03BA
+1D6EC		03BB
+1D6ED		03BC
+1D6EE		03BD
+1D6EF		03BE
+1D6F0		03BF
+1D6F1		03C0
+1D6F2		03C1
+1D6F3		03B8
+1D6F4		03C3
+1D6F5		03C4
+1D6F6		03C5
+1D6F7		03C6
+1D6F8		03C7
+1D6F9		03C8
+1D6FA		03C9
+1D6FB		2207
+1D6FC		03B1
+1D6FD		03B2
+1D6FE		03B3
+1D6FF		03B4
+1D700		03B5
+1D701		03B6
+1D702		03B7
+1D703		03B8
+1D704		03B9
+1D705		03BA
+1D706		03BB
+1D707		03BC
+1D708		03BD
+1D709		03BE
+1D70A		03BF
+1D70B		03C0
+1D70C		03C1
+1D70D		03C3
+1D70E		03C3
+1D70F		03C4
+1D710		03C5
+1D711		03C6
+1D712		03C7
+1D713		03C8
+1D714		03C9
+1D715		2202
+1D716		03B5
+1D717		03B8
+1D718		03BA
+1D719		03C6
+1D71A		03C1
+1D71B		03C0
+1D71C		03B1
+1D71D		03B2
+1D71E		03B3
+1D71F		03B4
+1D720		03B5
+1D721		03B6
+1D722		03B7
+1D723		03B8
+1D724		03B9
+1D725		03BA
+1D726		03BB
+1D727		03BC
+1D728		03BD
+1D729		03BE
+1D72A		03BF
+1D72B		03C0
+1D72C		03C1
+1D72D		03B8
+1D72E		03C3
+1D72F		03C4
+1D730		03C5
+1D731		03C6
+1D732		03C7
+1D733		03C8
+1D734		03C9
+1D735		2207
+1D736		03B1
+1D737		03B2
+1D738		03B3
+1D739		03B4
+1D73A		03B5
+1D73B		03B6
+1D73C		03B7
+1D73D		03B8
+1D73E		03B9
+1D73F		03BA
+1D740		03BB
+1D741		03BC
+1D742		03BD
+1D743		03BE
+1D744		03BF
+1D745		03C0
+1D746		03C1
+1D747		03C3
+1D748		03C3
+1D749		03C4
+1D74A		03C5
+1D74B		03C6
+1D74C		03C7
+1D74D		03C8
+1D74E		03C9
+1D74F		2202
+1D750		03B5
+1D751		03B8
+1D752		03BA
+1D753		03C6
+1D754		03C1
+1D755		03C0
+1D756		03B1
+1D757		03B2
+1D758		03B3
+1D759		03B4
+1D75A		03B5
+1D75B		03B6
+1D75C		03B7
+1D75D		03B8
+1D75E		03B9
+1D75F		03BA
+1D760		03BB
+1D761		03BC
+1D762		03BD
+1D763		03BE
+1D764		03BF
+1D765		03C0
+1D766		03C1
+1D767		03B8
+1D768		03C3
+1D769		03C4
+1D76A		03C5
+1D76B		03C6
+1D76C		03C7
+1D76D		03C8
+1D76E		03C9
+1D76F		2207
+1D770		03B1
+1D771		03B2
+1D772		03B3
+1D773		03B4
+1D774		03B5
+1D775		03B6
+1D776		03B7
+1D777		03B8
+1D778		03B9
+1D779		03BA
+1D77A		03BB
+1D77B		03BC
+1D77C		03BD
+1D77D		03BE
+1D77E		03BF
+1D77F		03C0
+1D780		03C1
+1D781		03C3
+1D782		03C3
+1D783		03C4
+1D784		03C5
+1D785		03C6
+1D786		03C7
+1D787		03C8
+1D788		03C9
+1D789		2202
+1D78A		03B5
+1D78B		03B8
+1D78C		03BA
+1D78D		03C6
+1D78E		03C1
+1D78F		03C0
+1D790		03B1
+1D791		03B2
+1D792		03B3
+1D793		03B4
+1D794		03B5
+1D795		03B6
+1D796		03B7
+1D797		03B8
+1D798		03B9
+1D799		03BA
+1D79A		03BB
+1D79B		03BC
+1D79C		03BD
+1D79D		03BE
+1D79E		03BF
+1D79F		03C0
+1D7A0		03C1
+1D7A1		03B8
+1D7A2		03C3
+1D7A3		03C4
+1D7A4		03C5
+1D7A5		03C6
+1D7A6		03C7
+1D7A7		03C8
+1D7A8		03C9
+1D7A9		2207
+1D7AA		03B1
+1D7AB		03B2
+1D7AC		03B3
+1D7AD		03B4
+1D7AE		03B5
+1D7AF		03B6
+1D7B0		03B7
+1D7B1		03B8
+1D7B2		03B9
+1D7B3		03BA
+1D7B4		03BB
+1D7B5		03BC
+1D7B6		03BD
+1D7B7		03BE
+1D7B8		03BF
+1D7B9		03C0
+1D7BA		03C1
+1D7BB		03C3
+1D7BC		03C3
+1D7BD		03C4
+1D7BE		03C5
+1D7BF		03C6
+1D7C0		03C7
+1D7C1		03C8
+1D7C2		03C9
+1D7C3		2202
+1D7C4		03B5
+1D7C5		03B8
+1D7C6		03BA
+1D7C7		03C6
+1D7C8		03C1
+1D7C9		03C0
+1D7CA		03DD
+1D7CB		03DD
+1D7CE		0030
+1D7CF		0031
+1D7D0		0032
+1D7D1		0033
+1D7D2		0034
+1D7D3		0035
+1D7D4		0036
+1D7D5		0037
+1D7D6		0038
+1D7D7		0039
+1D7D8		0030
+1D7D9		0031
+1D7DA		0032
+1D7DB		0033
+1D7DC		0034
+1D7DD		0035
+1D7DE		0036
+1D7DF		0037
+1D7E0		0038
+1D7E1		0039
+1D7E2		0030
+1D7E3		0031
+1D7E4		0032
+1D7E5		0033
+1D7E6		0034
+1D7E7		0035
+1D7E8		0036
+1D7E9		0037
+1D7EA		0038
+1D7EB		0039
+1D7EC		0030
+1D7ED		0031
+1D7EE		0032
+1D7EF		0033
+1D7F0		0034
+1D7F1		0035
+1D7F2		0036
+1D7F3		0037
+1D7F4		0038
+1D7F5		0039
+1D7F6		0030
+1D7F7		0031
+1D7F8		0032
+1D7F9		0033
+1D7FA		0034
+1D7FB		0035
+1D7FC		0036
+1D7FD		0037
+1D7FE		0038
+1D7FF		0039
+1E900		1E922
+1E901		1E923
+1E902		1E924
+1E903		1E925
+1E904		1E926
+1E905		1E927
+1E906		1E928
+1E907		1E929
+1E908		1E92A
+1E909		1E92B
+1E90A		1E92C
+1E90B		1E92D
+1E90C		1E92E
+1E90D		1E92F
+1E90E		1E930
+1E90F		1E931
+1E910		1E932
+1E911		1E933
+1E912		1E934
+1E913		1E935
+1E914		1E936
+1E915		1E937
+1E916		1E938
+1E917		1E939
+1E918		1E93A
+1E919		1E93B
+1E91A		1E93C
+1E91B		1E93D
+1E91C		1E93E
+1E91D		1E93F
+1E91E		1E940
+1E91F		1E941
+1E920		1E942
+1E921		1E943
+1EE00		0627
+1EE01		0628
+1EE02		062C
+1EE03		062F
+1EE05		0648
+1EE06		0632
+1EE07		062D
+1EE08		0637
+1EE09		064A
+1EE0A		0643
+1EE0B		0644
+1EE0C		0645
+1EE0D		0646
+1EE0E		0633
+1EE0F		0639
+1EE10		0641
+1EE11		0635
+1EE12		0642
+1EE13		0631
+1EE14		0634
+1EE15		062A
+1EE16		062B
+1EE17		062E
+1EE18		0630
+1EE19		0636
+1EE1A		0638
+1EE1B		063A
+1EE1C		066E
+1EE1D		06BA
+1EE1E		06A1
+1EE1F		066F
+1EE21		0628
+1EE22		062C
+1EE24		0647
+1EE27		062D
+1EE29		064A
+1EE2A		0643
+1EE2B		0644
+1EE2C		0645
+1EE2D		0646
+1EE2E		0633
+1EE2F		0639
+1EE30		0641
+1EE31		0635
+1EE32		0642
+1EE34		0634
+1EE35		062A
+1EE36		062B
+1EE37		062E
+1EE39		0636
+1EE3B		063A
+1EE42		062C
+1EE47		062D
+1EE49		064A
+1EE4B		0644
+1EE4D		0646
+1EE4E		0633
+1EE4F		0639
+1EE51		0635
+1EE52		0642
+1EE54		0634
+1EE57		062E
+1EE59		0636
+1EE5B		063A
+1EE5D		06BA
+1EE5F		066F
+1EE61		0628
+1EE62		062C
+1EE64		0647
+1EE67		062D
+1EE68		0637
+1EE69		064A
+1EE6A		0643
+1EE6C		0645
+1EE6D		0646
+1EE6E		0633
+1EE6F		0639
+1EE70		0641
+1EE71		0635
+1EE72		0642
+1EE74		0634
+1EE75		062A
+1EE76		062B
+1EE77		062E
+1EE79		0636
+1EE7A		0638
+1EE7B		063A
+1EE7C		066E
+1EE7E		06A1
+1EE80		0627
+1EE81		0628
+1EE82		062C
+1EE83		062F
+1EE84		0647
+1EE85		0648
+1EE86		0632
+1EE87		062D
+1EE88		0637
+1EE89		064A
+1EE8B		0644
+1EE8C		0645
+1EE8D		0646
+1EE8E		0633
+1EE8F		0639
+1EE90		0641
+1EE91		0635
+1EE92		0642
+1EE93		0631
+1EE94		0634
+1EE95		062A
+1EE96		062B
+1EE97		062E
+1EE98		0630
+1EE99		0636
+1EE9A		0638
+1EE9B		063A
+1EEA1		0628
+1EEA2		062C
+1EEA3		062F
+1EEA5		0648
+1EEA6		0632
+1EEA7		062D
+1EEA8		0637
+1EEA9		064A
+1EEAB		0644
+1EEAC		0645
+1EEAD		0646
+1EEAE		0633
+1EEAF		0639
+1EEB0		0641
+1EEB1		0635
+1EEB2		0642
+1EEB3		0631
+1EEB4		0634
+1EEB5		062A
+1EEB6		062B
+1EEB7		062E
+1EEB8		0630
+1EEB9		0636
+1EEBA		0638
+1EEBB		063A
+1F12B		0063
+1F12C		0072
+1F130		0061
+1F131		0062
+1F132		0063
+1F133		0064
+1F134		0065
+1F135		0066
+1F136		0067
+1F137		0068
+1F138		0069
+1F139		006A
+1F13A		006B
+1F13B		006C
+1F13C		006D
+1F13D		006E
+1F13E		006F
+1F13F		0070
+1F140		0071
+1F141		0072
+1F142		0073
+1F143		0074
+1F144		0075
+1F145		0076
+1F146		0077
+1F147		0078
+1F148		0079
+1F149		007A
+1F202		30B5
+1F210		624B
+1F211		5B57
+1F212		53CC
+1F213		30C7
+1F214		4E8C
+1F215		591A
+1F216		89E3
+1F217		5929
+1F218		4EA4
+1F219		6620
+1F21A		7121
+1F21B		6599
+1F21C		524D
+1F21D		5F8C
+1F21E		518D
+1F21F		65B0
+1F220		521D
+1F221		7D42
+1F222		751F
+1F223		8CA9
+1F224		58F0
+1F225		5439
+1F226		6F14
+1F227		6295
+1F228		6355
+1F229		4E00
+1F22A		4E09
+1F22B		904A
+1F22C		5DE6
+1F22D		4E2D
+1F22E		53F3
+1F22F		6307
+1F230		8D70
+1F231		6253
+1F232		7981
+1F233		7A7A
+1F234		5408
+1F235		6E80
+1F236		6709
+1F237		6708
+1F238		7533
+1F239		5272
+1F23A		55B6
+1F23B		914D
+1F250		5F97
+1F251		53EF
+2F800		4E3D
+2F801		4E38
+2F802		4E41
+2F803		20122
+2F804		4F60
+2F805		4FAE
+2F806		4FBB
+2F807		5002
+2F808		507A
+2F809		5099
+2F80A		50E7
+2F80B		50CF
+2F80C		349E
+2F80D		2063A
+2F80E		514D
+2F80F		5154
+2F810		5164
+2F811		5177
+2F812		2051C
+2F813		34B9
+2F814		5167
+2F815		518D
+2F816		2054B
+2F817		5197
+2F818		51A4
+2F819		4ECC
+2F81A		51AC
+2F81B		51B5
+2F81C		291DF
+2F81D		51F5
+2F81E		5203
+2F81F		34DF
+2F820		523B
+2F821		5246
+2F822		5272
+2F823		5277
+2F824		3515
+2F825		52C7
+2F826		52C9
+2F827		52E4
+2F828		52FA
+2F829		5305
+2F82A		5306
+2F82B		5317
+2F82C		5349
+2F82D		5351
+2F82E		535A
+2F82F		5373
+2F830		537D
+2F831		537F
+2F832		537F
+2F833		537F
+2F834		20A2C
+2F835		7070
+2F836		53CA
+2F837		53DF
+2F838		20B63
+2F839		53EB
+2F83A		53F1
+2F83B		5406
+2F83C		549E
+2F83D		5438
+2F83E		5448
+2F83F		5468
+2F840		54A2
+2F841		54F6
+2F842		5510
+2F843		5553
+2F844		5563
+2F845		5584
+2F846		5584
+2F847		5599
+2F848		55AB
+2F849		55B3
+2F84A		55C2
+2F84B		5716
+2F84C		5606
+2F84D		5717
+2F84E		5651
+2F84F		5674
+2F850		5207
+2F851		58EE
+2F852		57CE
+2F853		57F4
+2F854		580D
+2F855		578B
+2F856		5832
+2F857		5831
+2F858		58AC
+2F859		214E4
+2F85A		58F2
+2F85B		58F7
+2F85C		5906
+2F85D		591A
+2F85E		5922
+2F85F		5962
+2F860		216A8
+2F861		216EA
+2F862		59EC
+2F863		5A1B
+2F864		5A27
+2F865		59D8
+2F866		5A66
+2F867		36EE
+2F868		36FC
+2F869		5B08
+2F86A		5B3E
+2F86B		5B3E
+2F86C		219C8
+2F86D		5BC3
+2F86E		5BD8
+2F86F		5BE7
+2F870		5BF3
+2F871		21B18
+2F872		5BFF
+2F873		5C06
+2F874		5F53
+2F875		5C22
+2F876		3781
+2F877		5C60
+2F878		5C6E
+2F879		5CC0
+2F87A		5C8D
+2F87B		21DE4
+2F87C		5D43
+2F87D		21DE6
+2F87E		5D6E
+2F87F		5D6B
+2F880		5D7C
+2F881		5DE1
+2F882		5DE2
+2F883		382F
+2F884		5DFD
+2F885		5E28
+2F886		5E3D
+2F887		5E69
+2F888		3862
+2F889		22183
+2F88A		387C
+2F88B		5EB0
+2F88C		5EB3
+2F88D		5EB6
+2F88E		5ECA
+2F88F		2A392
+2F890		5EFE
+2F891		22331
+2F892		22331
+2F893		8201
+2F894		5F22
+2F895		5F22
+2F896		38C7
+2F897		232B8
+2F898		261DA
+2F899		5F62
+2F89A		5F6B
+2F89B		38E3
+2F89C		5F9A
+2F89D		5FCD
+2F89E		5FD7
+2F89F		5FF9
+2F8A0		6081
+2F8A1		393A
+2F8A2		391C
+2F8A3		6094
+2F8A4		226D4
+2F8A5		60C7
+2F8A6		6148
+2F8A7		614C
+2F8A8		614E
+2F8A9		614C
+2F8AA		617A
+2F8AB		618E
+2F8AC		61B2
+2F8AD		61A4
+2F8AE		61AF
+2F8AF		61DE
+2F8B0		61F2
+2F8B1		61F6
+2F8B2		6210
+2F8B3		621B
+2F8B4		625D
+2F8B5		62B1
+2F8B6		62D4
+2F8B7		6350
+2F8B8		22B0C
+2F8B9		633D
+2F8BA		62FC
+2F8BB		6368
+2F8BC		6383
+2F8BD		63E4
+2F8BE		22BF1
+2F8BF		6422
+2F8C0		63C5
+2F8C1		63A9
+2F8C2		3A2E
+2F8C3		6469
+2F8C4		647E
+2F8C5		649D
+2F8C6		6477
+2F8C7		3A6C
+2F8C8		654F
+2F8C9		656C
+2F8CA		2300A
+2F8CB		65E3
+2F8CC		66F8
+2F8CD		6649
+2F8CE		3B19
+2F8CF		6691
+2F8D0		3B08
+2F8D1		3AE4
+2F8D2		5192
+2F8D3		5195
+2F8D4		6700
+2F8D5		669C
+2F8D6		80AD
+2F8D7		43D9
+2F8D8		6717
+2F8D9		671B
+2F8DA		6721
+2F8DB		675E
+2F8DC		6753
+2F8DD		233C3
+2F8DE		3B49
+2F8DF		67FA
+2F8E0		6785
+2F8E1		6852
+2F8E2		6885
+2F8E3		2346D
+2F8E4		688E
+2F8E5		681F
+2F8E6		6914
+2F8E7		3B9D
+2F8E8		6942
+2F8E9		69A3
+2F8EA		69EA
+2F8EB		6AA8
+2F8EC		236A3
+2F8ED		6ADB
+2F8EE		3C18
+2F8EF		6B21
+2F8F0		238A7
+2F8F1		6B54
+2F8F2		3C4E
+2F8F3		6B72
+2F8F4		6B9F
+2F8F5		6BBA
+2F8F6		6BBB
+2F8F7		23A8D
+2F8F8		21D0B
+2F8F9		23AFA
+2F8FA		6C4E
+2F8FB		23CBC
+2F8FC		6CBF
+2F8FD		6CCD
+2F8FE		6C67
+2F8FF		6D16
+2F900		6D3E
+2F901		6D77
+2F902		6D41
+2F903		6D69
+2F904		6D78
+2F905		6D85
+2F906		23D1E
+2F907		6D34
+2F908		6E2F
+2F909		6E6E
+2F90A		3D33
+2F90B		6ECB
+2F90C		6EC7
+2F90D		23ED1
+2F90E		6DF9
+2F90F		6F6E
+2F910		23F5E
+2F911		23F8E
+2F912		6FC6
+2F913		7039
+2F914		701E
+2F915		701B
+2F916		3D96
+2F917		704A
+2F918		707D
+2F919		7077
+2F91A		70AD
+2F91B		20525
+2F91C		7145
+2F91D		24263
+2F91E		719C
+2F91F		243AB
+2F920		7228
+2F921		7235
+2F922		7250
+2F923		24608
+2F924		7280
+2F925		7295
+2F926		24735
+2F927		24814
+2F928		737A
+2F929		738B
+2F92A		3EAC
+2F92B		73A5
+2F92C		3EB8
+2F92D		3EB8
+2F92E		7447
+2F92F		745C
+2F930		7471
+2F931		7485
+2F932		74CA
+2F933		3F1B
+2F934		7524
+2F935		24C36
+2F936		753E
+2F937		24C92
+2F938		7570
+2F939		2219F
+2F93A		7610
+2F93B		24FA1
+2F93C		24FB8
+2F93D		25044
+2F93E		3FFC
+2F93F		4008
+2F940		76F4
+2F941		250F3
+2F942		250F2
+2F943		25119
+2F944		25133
+2F945		771E
+2F946		771F
+2F947		771F
+2F948		774A
+2F949		4039
+2F94A		778B
+2F94B		4046
+2F94C		4096
+2F94D		2541D
+2F94E		784E
+2F94F		788C
+2F950		78CC
+2F951		40E3
+2F952		25626
+2F953		7956
+2F954		2569A
+2F955		256C5
+2F956		798F
+2F957		79EB
+2F958		412F
+2F959		7A40
+2F95A		7A4A
+2F95B		7A4F
+2F95C		2597C
+2F95D		25AA7
+2F95E		25AA7
+2F95F		7AEE
+2F960		4202
+2F961		25BAB
+2F962		7BC6
+2F963		7BC9
+2F964		4227
+2F965		25C80
+2F966		7CD2
+2F967		42A0
+2F968		7CE8
+2F969		7CE3
+2F96A		7D00
+2F96B		25F86
+2F96C		7D63
+2F96D		4301
+2F96E		7DC7
+2F96F		7E02
+2F970		7E45
+2F971		4334
+2F972		26228
+2F973		26247
+2F974		4359
+2F975		262D9
+2F976		7F7A
+2F977		2633E
+2F978		7F95
+2F979		7FFA
+2F97A		8005
+2F97B		264DA
+2F97C		26523
+2F97D		8060
+2F97E		265A8
+2F97F		8070
+2F980		2335F
+2F981		43D5
+2F982		80B2
+2F983		8103
+2F984		440B
+2F985		813E
+2F986		5AB5
+2F987		267A7
+2F988		267B5
+2F989		23393
+2F98A		2339C
+2F98B		8201
+2F98C		8204
+2F98D		8F9E
+2F98E		446B
+2F98F		8291
+2F990		828B
+2F991		829D
+2F992		52B3
+2F993		82B1
+2F994		82B3
+2F995		82BD
+2F996		82E6
+2F997		26B3C
+2F998		82E5
+2F999		831D
+2F99A		8363
+2F99B		83AD
+2F99C		8323
+2F99D		83BD
+2F99E		83E7
+2F99F		8457
+2F9A0		8353
+2F9A1		83CA
+2F9A2		83CC
+2F9A3		83DC
+2F9A4		26C36
+2F9A5		26D6B
+2F9A6		26CD5
+2F9A7		452B
+2F9A8		84F1
+2F9A9		84F3
+2F9AA		8516
+2F9AB		273CA
+2F9AC		8564
+2F9AD		26F2C
+2F9AE		455D
+2F9AF		4561
+2F9B0		26FB1
+2F9B1		270D2
+2F9B2		456B
+2F9B3		8650
+2F9B4		865C
+2F9B5		8667
+2F9B6		8669
+2F9B7		86A9
+2F9B8		8688
+2F9B9		870E
+2F9BA		86E2
+2F9BB		8779
+2F9BC		8728
+2F9BD		876B
+2F9BE		8786
+2F9BF		45D7
+2F9C0		87E1
+2F9C1		8801
+2F9C2		45F9
+2F9C3		8860
+2F9C4		8863
+2F9C5		27667
+2F9C6		88D7
+2F9C7		88DE
+2F9C8		4635
+2F9C9		88FA
+2F9CA		34BB
+2F9CB		278AE
+2F9CC		27966
+2F9CD		46BE
+2F9CE		46C7
+2F9CF		8AA0
+2F9D0		8AED
+2F9D1		8B8A
+2F9D2		8C55
+2F9D3		27CA8
+2F9D4		8CAB
+2F9D5		8CC1
+2F9D6		8D1B
+2F9D7		8D77
+2F9D8		27F2F
+2F9D9		20804
+2F9DA		8DCB
+2F9DB		8DBC
+2F9DC		8DF0
+2F9DD		208DE
+2F9DE		8ED4
+2F9DF		8F38
+2F9E0		285D2
+2F9E1		285ED
+2F9E2		9094
+2F9E3		90F1
+2F9E4		9111
+2F9E5		2872E
+2F9E6		911B
+2F9E7		9238
+2F9E8		92D7
+2F9E9		92D8
+2F9EA		927C
+2F9EB		93F9
+2F9EC		9415
+2F9ED		28BFA
+2F9EE		958B
+2F9EF		4995
+2F9F0		95B7
+2F9F1		28D77
+2F9F2		49E6
+2F9F3		96C3
+2F9F4		5DB2
+2F9F5		9723
+2F9F6		29145
+2F9F7		2921A
+2F9F8		4A6E
+2F9F9		4A76
+2F9FA		97E0
+2F9FB		2940A
+2F9FC		4AB2
+2F9FD		29496
+2F9FE		980B
+2F9FF		980B
+2FA00		9829
+2FA01		295B6
+2FA02		98E2
+2FA03		4B33
+2FA04		9929
+2FA05		99A7
+2FA06		99C2
+2FA07		99FE
+2FA08		4BCE
+2FA09		29B30
+2FA0A		9B12
+2FA0B		9C40
+2FA0C		9CFD
+2FA0D		4CCE
+2FA0E		4CED
+2FA0F		9D67
+2FA10		2A0CE
+2FA11		4CF8
+2FA12		2A105
+2FA13		2A20E
+2FA14		2A291
+2FA15		9EBB
+2FA16		4D56
+2FA17		9EF9
+2FA18		9EFE
+2FA19		9F05
+2FA1A		9F0F
+2FA1B		9F16
+2FA1C		9F3B
+2FA1D		2A600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToVo'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToVo'}{'missing'} = 'R';
+
+return <<'END';
+0	A6	Rotated
+A7		U
+A8		Rotated
+A9		U
+AA	AD	Rotated
+AE		U
+AF	B0	Rotated
+B1		U
+B2	BB	Rotated
+BC	BE	U
+BF	D6	Rotated
+D7		U
+D8	F6	Rotated
+F7		U
+F8	2E9	Rotated
+2EA	2EB	U
+2EC	377	Rotated
+37A	37F	Rotated
+384	38A	Rotated
+38C		Rotated
+38E	3A1	Rotated
+3A3	52F	Rotated
+531	556	Rotated
+559	55F	Rotated
+561	587	Rotated
+589	58A	Rotated
+58D	58F	Rotated
+591	5C7	Rotated
+5D0	5EA	Rotated
+5F0	5F4	Rotated
+600	61C	Rotated
+61E	70D	Rotated
+70F	74A	Rotated
+74D	7B1	Rotated
+7C0	7FA	Rotated
+800	82D	Rotated
+830	83E	Rotated
+840	85B	Rotated
+85E		Rotated
+860	86A	Rotated
+8A0	8B4	Rotated
+8B6	8BD	Rotated
+8D4	983	Rotated
+985	98C	Rotated
+98F	990	Rotated
+993	9A8	Rotated
+9AA	9B0	Rotated
+9B2		Rotated
+9B6	9B9	Rotated
+9BC	9C4	Rotated
+9C7	9C8	Rotated
+9CB	9CE	Rotated
+9D7		Rotated
+9DC	9DD	Rotated
+9DF	9E3	Rotated
+9E6	9FD	Rotated
+A01	A03	Rotated
+A05	A0A	Rotated
+A0F	A10	Rotated
+A13	A28	Rotated
+A2A	A30	Rotated
+A32	A33	Rotated
+A35	A36	Rotated
+A38	A39	Rotated
+A3C		Rotated
+A3E	A42	Rotated
+A47	A48	Rotated
+A4B	A4D	Rotated
+A51		Rotated
+A59	A5C	Rotated
+A5E		Rotated
+A66	A75	Rotated
+A81	A83	Rotated
+A85	A8D	Rotated
+A8F	A91	Rotated
+A93	AA8	Rotated
+AAA	AB0	Rotated
+AB2	AB3	Rotated
+AB5	AB9	Rotated
+ABC	AC5	Rotated
+AC7	AC9	Rotated
+ACB	ACD	Rotated
+AD0		Rotated
+AE0	AE3	Rotated
+AE6	AF1	Rotated
+AF9	AFF	Rotated
+B01	B03	Rotated
+B05	B0C	Rotated
+B0F	B10	Rotated
+B13	B28	Rotated
+B2A	B30	Rotated
+B32	B33	Rotated
+B35	B39	Rotated
+B3C	B44	Rotated
+B47	B48	Rotated
+B4B	B4D	Rotated
+B56	B57	Rotated
+B5C	B5D	Rotated
+B5F	B63	Rotated
+B66	B77	Rotated
+B82	B83	Rotated
+B85	B8A	Rotated
+B8E	B90	Rotated
+B92	B95	Rotated
+B99	B9A	Rotated
+B9C		Rotated
+B9E	B9F	Rotated
+BA3	BA4	Rotated
+BA8	BAA	Rotated
+BAE	BB9	Rotated
+BBE	BC2	Rotated
+BC6	BC8	Rotated
+BCA	BCD	Rotated
+BD0		Rotated
+BD7		Rotated
+BE6	BFA	Rotated
+C00	C03	Rotated
+C05	C0C	Rotated
+C0E	C10	Rotated
+C12	C28	Rotated
+C2A	C39	Rotated
+C3D	C44	Rotated
+C46	C48	Rotated
+C4A	C4D	Rotated
+C55	C56	Rotated
+C58	C5A	Rotated
+C60	C63	Rotated
+C66	C6F	Rotated
+C78	C83	Rotated
+C85	C8C	Rotated
+C8E	C90	Rotated
+C92	CA8	Rotated
+CAA	CB3	Rotated
+CB5	CB9	Rotated
+CBC	CC4	Rotated
+CC6	CC8	Rotated
+CCA	CCD	Rotated
+CD5	CD6	Rotated
+CDE		Rotated
+CE0	CE3	Rotated
+CE6	CEF	Rotated
+CF1	CF2	Rotated
+D00	D03	Rotated
+D05	D0C	Rotated
+D0E	D10	Rotated
+D12	D44	Rotated
+D46	D48	Rotated
+D4A	D4F	Rotated
+D54	D63	Rotated
+D66	D7F	Rotated
+D82	D83	Rotated
+D85	D96	Rotated
+D9A	DB1	Rotated
+DB3	DBB	Rotated
+DBD		Rotated
+DC0	DC6	Rotated
+DCA		Rotated
+DCF	DD4	Rotated
+DD6		Rotated
+DD8	DDF	Rotated
+DE6	DEF	Rotated
+DF2	DF4	Rotated
+E01	E3A	Rotated
+E3F	E5B	Rotated
+E81	E82	Rotated
+E84		Rotated
+E87	E88	Rotated
+E8A		Rotated
+E8D		Rotated
+E94	E97	Rotated
+E99	E9F	Rotated
+EA1	EA3	Rotated
+EA5		Rotated
+EA7		Rotated
+EAA	EAB	Rotated
+EAD	EB9	Rotated
+EBB	EBD	Rotated
+EC0	EC4	Rotated
+EC6		Rotated
+EC8	ECD	Rotated
+ED0	ED9	Rotated
+EDC	EDF	Rotated
+F00	F47	Rotated
+F49	F6C	Rotated
+F71	F97	Rotated
+F99	FBC	Rotated
+FBE	FCC	Rotated
+FCE	FDA	Rotated
+1000	10C5	Rotated
+10C7		Rotated
+10CD		Rotated
+10D0	10FF	Rotated
+1100	11FF	U
+1200	1248	Rotated
+124A	124D	Rotated
+1250	1256	Rotated
+1258		Rotated
+125A	125D	Rotated
+1260	1288	Rotated
+128A	128D	Rotated
+1290	12B0	Rotated
+12B2	12B5	Rotated
+12B8	12BE	Rotated
+12C0		Rotated
+12C2	12C5	Rotated
+12C8	12D6	Rotated
+12D8	1310	Rotated
+1312	1315	Rotated
+1318	135A	Rotated
+135D	137C	Rotated
+1380	1399	Rotated
+13A0	13F5	Rotated
+13F8	13FD	Rotated
+1400		Rotated
+1401	167F	U
+1680	169C	Rotated
+16A0	16F8	Rotated
+1700	170C	Rotated
+170E	1714	Rotated
+1720	1736	Rotated
+1740	1753	Rotated
+1760	176C	Rotated
+176E	1770	Rotated
+1772	1773	Rotated
+1780	17DD	Rotated
+17E0	17E9	Rotated
+17F0	17F9	Rotated
+1800	180E	Rotated
+1810	1819	Rotated
+1820	1877	Rotated
+1880	18AA	Rotated
+18B0	18FF	U
+1900	191E	Rotated
+1920	192B	Rotated
+1930	193B	Rotated
+1940		Rotated
+1944	196D	Rotated
+1970	1974	Rotated
+1980	19AB	Rotated
+19B0	19C9	Rotated
+19D0	19DA	Rotated
+19DE	1A1B	Rotated
+1A1E	1A5E	Rotated
+1A60	1A7C	Rotated
+1A7F	1A89	Rotated
+1A90	1A99	Rotated
+1AA0	1AAD	Rotated
+1AB0	1ABE	Rotated
+1B00	1B4B	Rotated
+1B50	1B7C	Rotated
+1B80	1BF3	Rotated
+1BFC	1C37	Rotated
+1C3B	1C49	Rotated
+1C4D	1C88	Rotated
+1CC0	1CC7	Rotated
+1CD0	1CF9	Rotated
+1D00	1DF9	Rotated
+1DFB	1F15	Rotated
+1F18	1F1D	Rotated
+1F20	1F45	Rotated
+1F48	1F4D	Rotated
+1F50	1F57	Rotated
+1F59		Rotated
+1F5B		Rotated
+1F5D		Rotated
+1F5F	1F7D	Rotated
+1F80	1FB4	Rotated
+1FB6	1FC4	Rotated
+1FC6	1FD3	Rotated
+1FD6	1FDB	Rotated
+1FDD	1FEF	Rotated
+1FF2	1FF4	Rotated
+1FF6	1FFE	Rotated
+2000	2015	Rotated
+2016		U
+2017	201F	Rotated
+2020	2021	U
+2022	202F	Rotated
+2030	2031	U
+2032	203A	Rotated
+203B	203C	U
+203D	2041	Rotated
+2042		U
+2043	2046	Rotated
+2047	2049	U
+204A	2050	Rotated
+2051		U
+2052	2064	Rotated
+2065		U
+2066	2071	Rotated
+2074	208E	Rotated
+2090	209C	Rotated
+20A0	20BF	Rotated
+20D0	20DC	Rotated
+20DD	20E0	U
+20E1		Rotated
+20E2	20E4	U
+20E5	20F0	Rotated
+2100	2101	U
+2102		Rotated
+2103	2109	U
+210A	210E	Rotated
+210F		U
+2110	2112	Rotated
+2113	2114	U
+2115		Rotated
+2116	2117	U
+2118	211D	Rotated
+211E	2123	U
+2124		Rotated
+2125		U
+2126		Rotated
+2127		U
+2128		Rotated
+2129		U
+212A	212D	Rotated
+212E		U
+212F	2134	Rotated
+2135	213F	U
+2140	2144	Rotated
+2145	214A	U
+214B		Rotated
+214C	214D	U
+214E		Rotated
+214F	2189	U
+218A	218B	Rotated
+218C	218F	U
+2190	221D	Rotated
+221E		U
+221F	2233	Rotated
+2234	2235	U
+2236	22FF	Rotated
+2300	2307	U
+2308	230B	Rotated
+230C	231F	U
+2320	2323	Rotated
+2324	2328	U
+2329	232A	Tr
+232B		U
+232C	237C	Rotated
+237D	239A	U
+239B	23BD	Rotated
+23BE	23CD	U
+23CE		Rotated
+23CF		U
+23D0		Rotated
+23D1	23DB	U
+23DC	23E1	Rotated
+23E2	2422	U
+2423		Rotated
+2424	24FF	U
+2500	259F	Rotated
+25A0	2619	U
+261A	261F	Rotated
+2620	2767	U
+2768	2775	Rotated
+2776	2793	U
+2794	2B11	Rotated
+2B12	2B2F	U
+2B30	2B4F	Rotated
+2B50	2B59	U
+2B5A	2B73	Rotated
+2B76	2B95	Rotated
+2B98	2BB7	Rotated
+2BB8	2BD1	U
+2BD2		Rotated
+2BD3	2BEB	U
+2BEC	2BEF	Rotated
+2BF0	2BFF	U
+2C00	2C2E	Rotated
+2C30	2C5E	Rotated
+2C60	2CF3	Rotated
+2CF9	2D25	Rotated
+2D27		Rotated
+2D2D		Rotated
+2D30	2D67	Rotated
+2D6F	2D70	Rotated
+2D7F	2D96	Rotated
+2DA0	2DA6	Rotated
+2DA8	2DAE	Rotated
+2DB0	2DB6	Rotated
+2DB8	2DBE	Rotated
+2DC0	2DC6	Rotated
+2DC8	2DCE	Rotated
+2DD0	2DD6	Rotated
+2DD8	2DDE	Rotated
+2DE0	2E49	Rotated
+2E80	3000	U
+3001	3002	Tu
+3003	3007	U
+3008	3011	Tr
+3012	3013	U
+3014	301F	Tr
+3020	302F	U
+3030		Tr
+3031	3040	U
+3041		Tu
+3042		U
+3043		Tu
+3044		U
+3045		Tu
+3046		U
+3047		Tu
+3048		U
+3049		Tu
+304A	3062	U
+3063		Tu
+3064	3082	U
+3083		Tu
+3084		U
+3085		Tu
+3086		U
+3087		Tu
+3088	308D	U
+308E		Tu
+308F	3094	U
+3095	3096	Tu
+3097	309A	U
+309B	309C	Tu
+309D	309F	U
+30A0		Tr
+30A1		Tu
+30A2		U
+30A3		Tu
+30A4		U
+30A5		Tu
+30A6		U
+30A7		Tu
+30A8		U
+30A9		Tu
+30AA	30C2	U
+30C3		Tu
+30C4	30E2	U
+30E3		Tu
+30E4		U
+30E5		Tu
+30E6		U
+30E7		Tu
+30E8	30ED	U
+30EE		Tu
+30EF	30F4	U
+30F5	30F6	Tu
+30F7	30FB	U
+30FC		Tr
+30FD	3126	U
+3127		Tu
+3128	31EF	U
+31F0	31FF	Tu
+3200	32FF	U
+3300	3357	Tu
+3358	337A	U
+337B	337F	Tu
+3380	A4CF	U
+A4D0	A62B	Rotated
+A640	A6F7	Rotated
+A700	A7AE	Rotated
+A7B0	A7B7	Rotated
+A7F7	A82B	Rotated
+A830	A839	Rotated
+A840	A877	Rotated
+A880	A8C5	Rotated
+A8CE	A8D9	Rotated
+A8E0	A8FD	Rotated
+A900	A953	Rotated
+A95F		Rotated
+A960	A97F	U
+A980	A9CD	Rotated
+A9CF	A9D9	Rotated
+A9DE	A9FE	Rotated
+AA00	AA36	Rotated
+AA40	AA4D	Rotated
+AA50	AA59	Rotated
+AA5C	AAC2	Rotated
+AADB	AAF6	Rotated
+AB01	AB06	Rotated
+AB09	AB0E	Rotated
+AB11	AB16	Rotated
+AB20	AB26	Rotated
+AB28	AB2E	Rotated
+AB30	AB65	Rotated
+AB70	ABED	Rotated
+ABF0	ABF9	Rotated
+AC00	D7FF	U
+D800	DFFF	Rotated
+E000	FAFF	U
+FB00	FB06	Rotated
+FB13	FB17	Rotated
+FB1D	FB36	Rotated
+FB38	FB3C	Rotated
+FB3E		Rotated
+FB40	FB41	Rotated
+FB43	FB44	Rotated
+FB46	FBC1	Rotated
+FBD3	FD3F	Rotated
+FD50	FD8F	Rotated
+FD92	FDC7	Rotated
+FDF0	FDFD	Rotated
+FE00	FE0F	Rotated
+FE10	FE1F	U
+FE20	FE2F	Rotated
+FE30	FE48	U
+FE49	FE4F	Rotated
+FE50	FE52	Tu
+FE53	FE57	U
+FE58		Rotated
+FE59	FE5E	Tr
+FE5F	FE62	U
+FE63	FE66	Rotated
+FE67	FE6F	U
+FE70	FE74	Rotated
+FE76	FEFC	Rotated
+FEFF		Rotated
+FF01		Tu
+FF02	FF07	U
+FF08	FF09	Tr
+FF0A	FF0B	U
+FF0C		Tu
+FF0D		Rotated
+FF0E		Tu
+FF0F	FF19	U
+FF1A	FF1B	Tr
+FF1C	FF1E	Rotated
+FF1F		Tu
+FF20	FF3A	U
+FF3B		Tr
+FF3C		U
+FF3D		Tr
+FF3E		U
+FF3F		Tr
+FF40	FF5A	U
+FF5B	FF60	Tr
+FF61	FFBE	Rotated
+FFC2	FFC7	Rotated
+FFCA	FFCF	Rotated
+FFD2	FFD7	Rotated
+FFDA	FFDC	Rotated
+FFE0	FFE2	U
+FFE3		Tr
+FFE4	FFE7	U
+FFE8	FFEE	Rotated
+FFF0	FFF8	U
+FFF9	FFFB	Rotated
+FFFC	FFFD	U
+10000	1000B	Rotated
+1000D	10026	Rotated
+10028	1003A	Rotated
+1003C	1003D	Rotated
+1003F	1004D	Rotated
+10050	1005D	Rotated
+10080	100FA	Rotated
+10100	10102	Rotated
+10107	10133	Rotated
+10137	1018E	Rotated
+10190	1019B	Rotated
+101A0		Rotated
+101D0	101FD	Rotated
+10280	1029C	Rotated
+102A0	102D0	Rotated
+102E0	102FB	Rotated
+10300	10323	Rotated
+1032D	1034A	Rotated
+10350	1037A	Rotated
+10380	1039D	Rotated
+1039F	103C3	Rotated
+103C8	103D5	Rotated
+10400	1049D	Rotated
+104A0	104A9	Rotated
+104B0	104D3	Rotated
+104D8	104FB	Rotated
+10500	10527	Rotated
+10530	10563	Rotated
+1056F		Rotated
+10600	10736	Rotated
+10740	10755	Rotated
+10760	10767	Rotated
+10800	10805	Rotated
+10808		Rotated
+1080A	10835	Rotated
+10837	10838	Rotated
+1083C		Rotated
+1083F	10855	Rotated
+10857	1089E	Rotated
+108A7	108AF	Rotated
+108E0	108F2	Rotated
+108F4	108F5	Rotated
+108FB	1091B	Rotated
+1091F	10939	Rotated
+1093F		Rotated
+10980	1099F	U
+109A0	109B7	Rotated
+109BC	109CF	Rotated
+109D2	10A03	Rotated
+10A05	10A06	Rotated
+10A0C	10A13	Rotated
+10A15	10A17	Rotated
+10A19	10A33	Rotated
+10A38	10A3A	Rotated
+10A3F	10A47	Rotated
+10A50	10A58	Rotated
+10A60	10A9F	Rotated
+10AC0	10AE6	Rotated
+10AEB	10AF6	Rotated
+10B00	10B35	Rotated
+10B39	10B55	Rotated
+10B58	10B72	Rotated
+10B78	10B91	Rotated
+10B99	10B9C	Rotated
+10BA9	10BAF	Rotated
+10C00	10C48	Rotated
+10C80	10CB2	Rotated
+10CC0	10CF2	Rotated
+10CFA	10CFF	Rotated
+10E60	10E7E	Rotated
+11000	1104D	Rotated
+11052	1106F	Rotated
+1107F	110C1	Rotated
+110D0	110E8	Rotated
+110F0	110F9	Rotated
+11100	11134	Rotated
+11136	11143	Rotated
+11150	11176	Rotated
+11180	111CD	Rotated
+111D0	111DF	Rotated
+111E1	111F4	Rotated
+11200	11211	Rotated
+11213	1123E	Rotated
+11280	11286	Rotated
+11288		Rotated
+1128A	1128D	Rotated
+1128F	1129D	Rotated
+1129F	112A9	Rotated
+112B0	112EA	Rotated
+112F0	112F9	Rotated
+11300	11303	Rotated
+11305	1130C	Rotated
+1130F	11310	Rotated
+11313	11328	Rotated
+1132A	11330	Rotated
+11332	11333	Rotated
+11335	11339	Rotated
+1133C	11344	Rotated
+11347	11348	Rotated
+1134B	1134D	Rotated
+11350		Rotated
+11357		Rotated
+1135D	11363	Rotated
+11366	1136C	Rotated
+11370	11374	Rotated
+11400	11459	Rotated
+1145B		Rotated
+1145D		Rotated
+11480	114C7	Rotated
+114D0	114D9	Rotated
+11580	115FF	U
+11600	11644	Rotated
+11650	11659	Rotated
+11660	1166C	Rotated
+11680	116B7	Rotated
+116C0	116C9	Rotated
+11700	11719	Rotated
+1171D	1172B	Rotated
+11730	1173F	Rotated
+118A0	118F2	Rotated
+118FF		Rotated
+11A00	11AAF	U
+11AC0	11AF8	Rotated
+11C00	11C08	Rotated
+11C0A	11C36	Rotated
+11C38	11C45	Rotated
+11C50	11C6C	Rotated
+11C70	11C8F	Rotated
+11C92	11CA7	Rotated
+11CA9	11CB6	Rotated
+11D00	11D06	Rotated
+11D08	11D09	Rotated
+11D0B	11D36	Rotated
+11D3A		Rotated
+11D3C	11D3D	Rotated
+11D3F	11D47	Rotated
+11D50	11D59	Rotated
+12000	12399	Rotated
+12400	1246E	Rotated
+12470	12474	Rotated
+12480	12543	Rotated
+13000	1342F	U
+14400	1467F	U
+16800	16A38	Rotated
+16A40	16A5E	Rotated
+16A60	16A69	Rotated
+16A6E	16A6F	Rotated
+16AD0	16AED	Rotated
+16AF0	16AF5	Rotated
+16B00	16B45	Rotated
+16B50	16B59	Rotated
+16B5B	16B61	Rotated
+16B63	16B77	Rotated
+16B7D	16B8F	Rotated
+16F00	16F44	Rotated
+16F50	16F7E	Rotated
+16F8F	16F9F	Rotated
+16FE0	18AFF	U
+1B000	1B12F	U
+1B170	1B2FF	U
+1BC00	1BC6A	Rotated
+1BC70	1BC7C	Rotated
+1BC80	1BC88	Rotated
+1BC90	1BC99	Rotated
+1BC9C	1BCA3	Rotated
+1D000	1D1FF	U
+1D200	1D245	Rotated
+1D300	1D37F	U
+1D400	1D454	Rotated
+1D456	1D49C	Rotated
+1D49E	1D49F	Rotated
+1D4A2		Rotated
+1D4A5	1D4A6	Rotated
+1D4A9	1D4AC	Rotated
+1D4AE	1D4B9	Rotated
+1D4BB		Rotated
+1D4BD	1D4C3	Rotated
+1D4C5	1D505	Rotated
+1D507	1D50A	Rotated
+1D50D	1D514	Rotated
+1D516	1D51C	Rotated
+1D51E	1D539	Rotated
+1D53B	1D53E	Rotated
+1D540	1D544	Rotated
+1D546		Rotated
+1D54A	1D550	Rotated
+1D552	1D6A5	Rotated
+1D6A8	1D7CB	Rotated
+1D7CE	1D7FF	Rotated
+1D800	1DAAF	U
+1E000	1E006	Rotated
+1E008	1E018	Rotated
+1E01B	1E021	Rotated
+1E023	1E024	Rotated
+1E026	1E02A	Rotated
+1E800	1E8C4	Rotated
+1E8C7	1E8D6	Rotated
+1E900	1E94A	Rotated
+1E950	1E959	Rotated
+1E95E	1E95F	Rotated
+1EE00	1EE03	Rotated
+1EE05	1EE1F	Rotated
+1EE21	1EE22	Rotated
+1EE24		Rotated
+1EE27		Rotated
+1EE29	1EE32	Rotated
+1EE34	1EE37	Rotated
+1EE39		Rotated
+1EE3B		Rotated
+1EE42		Rotated
+1EE47		Rotated
+1EE49		Rotated
+1EE4B		Rotated
+1EE4D	1EE4F	Rotated
+1EE51	1EE52	Rotated
+1EE54		Rotated
+1EE57		Rotated
+1EE59		Rotated
+1EE5B		Rotated
+1EE5D		Rotated
+1EE5F		Rotated
+1EE61	1EE62	Rotated
+1EE64		Rotated
+1EE67	1EE6A	Rotated
+1EE6C	1EE72	Rotated
+1EE74	1EE77	Rotated
+1EE79	1EE7C	Rotated
+1EE7E		Rotated
+1EE80	1EE89	Rotated
+1EE8B	1EE9B	Rotated
+1EEA1	1EEA3	Rotated
+1EEA5	1EEA9	Rotated
+1EEAB	1EEBB	Rotated
+1EEF0	1EEF1	Rotated
+1F000	1F1FF	U
+1F200	1F201	Tu
+1F202	1F7FF	U
+1F800	1F80B	Rotated
+1F810	1F847	Rotated
+1F850	1F859	Rotated
+1F860	1F887	Rotated
+1F890	1F8AD	Rotated
+1F900	1F9FF	U
+20000	2FFFD	U
+30000	3FFFD	U
+E0001		Rotated
+E0020	E007F	Rotated
+E0100	E01EF	Rotated
+F0000	FFFFD	U
+100000	10FFFD	U
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToEa'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToEa'}{'missing'} = 'Neutral';
+
+return <<'END';
+20	7E	Na
+A1		A
+A2	A3	Na
+A4		A
+A5	A6	Na
+A7	A8	A
+AA		A
+AC		Na
+AD	AE	A
+AF		Na
+B0	B4	A
+B6	BA	A
+BC	BF	A
+C6		A
+D0		A
+D7	D8	A
+DE	E1	A
+E6		A
+E8	EA	A
+EC	ED	A
+F0		A
+F2	F3	A
+F7	FA	A
+FC		A
+FE		A
+101		A
+111		A
+113		A
+11B		A
+126	127	A
+12B		A
+131	133	A
+138		A
+13F	142	A
+144		A
+148	14B	A
+14D		A
+152	153	A
+166	167	A
+16B		A
+1CE		A
+1D0		A
+1D2		A
+1D4		A
+1D6		A
+1D8		A
+1DA		A
+1DC		A
+251		A
+261		A
+2C4		A
+2C7		A
+2C9	2CB	A
+2CD		A
+2D0		A
+2D8	2DB	A
+2DD		A
+2DF		A
+300	36F	A
+391	3A1	A
+3A3	3A9	A
+3B1	3C1	A
+3C3	3C9	A
+401		A
+410	44F	A
+451		A
+1100	115F	W
+2010		A
+2013	2016	A
+2018	2019	A
+201C	201D	A
+2020	2022	A
+2024	2027	A
+2030		A
+2032	2033	A
+2035		A
+203B		A
+203E		A
+2074		A
+207F		A
+2081	2084	A
+20A9		H
+20AC		A
+2103		A
+2105		A
+2109		A
+2113		A
+2116		A
+2121	2122	A
+2126		A
+212B		A
+2153	2154	A
+215B	215E	A
+2160	216B	A
+2170	2179	A
+2189		A
+2190	2199	A
+21B8	21B9	A
+21D2		A
+21D4		A
+21E7		A
+2200		A
+2202	2203	A
+2207	2208	A
+220B		A
+220F		A
+2211		A
+2215		A
+221A		A
+221D	2220	A
+2223		A
+2225		A
+2227	222C	A
+222E		A
+2234	2237	A
+223C	223D	A
+2248		A
+224C		A
+2252		A
+2260	2261	A
+2264	2267	A
+226A	226B	A
+226E	226F	A
+2282	2283	A
+2286	2287	A
+2295		A
+2299		A
+22A5		A
+22BF		A
+2312		A
+231A	231B	W
+2329	232A	W
+23E9	23EC	W
+23F0		W
+23F3		W
+2460	24E9	A
+24EB	254B	A
+2550	2573	A
+2580	258F	A
+2592	2595	A
+25A0	25A1	A
+25A3	25A9	A
+25B2	25B3	A
+25B6	25B7	A
+25BC	25BD	A
+25C0	25C1	A
+25C6	25C8	A
+25CB		A
+25CE	25D1	A
+25E2	25E5	A
+25EF		A
+25FD	25FE	W
+2605	2606	A
+2609		A
+260E	260F	A
+2614	2615	W
+261C		A
+261E		A
+2640		A
+2642		A
+2648	2653	W
+2660	2661	A
+2663	2665	A
+2667	266A	A
+266C	266D	A
+266F		A
+267F		W
+2693		W
+269E	269F	A
+26A1		W
+26AA	26AB	W
+26BD	26BE	W
+26BF		A
+26C4	26C5	W
+26C6	26CD	A
+26CE		W
+26CF	26D3	A
+26D4		W
+26D5	26E1	A
+26E3		A
+26E8	26E9	A
+26EA		W
+26EB	26F1	A
+26F2	26F3	W
+26F4		A
+26F5		W
+26F6	26F9	A
+26FA		W
+26FB	26FC	A
+26FD		W
+26FE	26FF	A
+2705		W
+270A	270B	W
+2728		W
+273D		A
+274C		W
+274E		W
+2753	2755	W
+2757		W
+2776	277F	A
+2795	2797	W
+27B0		W
+27BF		W
+27E6	27ED	Na
+2985	2986	Na
+2B1B	2B1C	W
+2B50		W
+2B55		W
+2B56	2B59	A
+2E80	2E99	W
+2E9B	2EF3	W
+2F00	2FD5	W
+2FF0	2FFB	W
+3000		F
+3001	303E	W
+3041	3096	W
+3099	30FF	W
+3105	312E	W
+3131	318E	W
+3190	31BA	W
+31C0	31E3	W
+31F0	321E	W
+3220	3247	W
+3248	324F	A
+3250	32FE	W
+3300	4DBF	W
+4E00	A48C	W
+A490	A4C6	W
+A960	A97C	W
+AC00	D7A3	W
+E000	F8FF	A
+F900	FAFF	W
+FE00	FE0F	A
+FE10	FE19	W
+FE30	FE52	W
+FE54	FE66	W
+FE68	FE6B	W
+FF01	FF60	F
+FF61	FFBE	H
+FFC2	FFC7	H
+FFCA	FFCF	H
+FFD2	FFD7	H
+FFDA	FFDC	H
+FFE0	FFE6	F
+FFE8	FFEE	H
+FFFD		A
+16FE0	16FE1	W
+17000	187EC	W
+18800	18AF2	W
+1B000	1B11E	W
+1B170	1B2FB	W
+1F004		W
+1F0CF		W
+1F100	1F10A	A
+1F110	1F12D	A
+1F130	1F169	A
+1F170	1F18D	A
+1F18E		W
+1F18F	1F190	A
+1F191	1F19A	W
+1F19B	1F1AC	A
+1F200	1F202	W
+1F210	1F23B	W
+1F240	1F248	W
+1F250	1F251	W
+1F260	1F265	W
+1F300	1F320	W
+1F32D	1F335	W
+1F337	1F37C	W
+1F37E	1F393	W
+1F3A0	1F3CA	W
+1F3CF	1F3D3	W
+1F3E0	1F3F0	W
+1F3F4		W
+1F3F8	1F43E	W
+1F440		W
+1F442	1F4FC	W
+1F4FF	1F53D	W
+1F54B	1F54E	W
+1F550	1F567	W
+1F57A		W
+1F595	1F596	W
+1F5A4		W
+1F5FB	1F64F	W
+1F680	1F6C5	W
+1F6CC		W
+1F6D0	1F6D2	W
+1F6EB	1F6EC	W
+1F6F4	1F6F8	W
+1F910	1F93E	W
+1F940	1F94C	W
+1F950	1F96B	W
+1F980	1F997	W
+1F9C0		W
+1F9D0	1F9E6	W
+20000	2FFFD	W
+30000	3FFFD	W
+E0100	E01EF	A
+F0000	FFFFD	A
+100000	10FFFD	A
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToUc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToUc'}{'specials_name'} = 'utf8::ToSpecUc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecUc = (
+"\xC3\x9F" => "\x{0053}\x{0053}",             # U+00DF => 0053 0053
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0552}",             # U+0587 => 0535 0552
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\x80" => "\x{1F08}\x{0399}",         # U+1F80 => 1F08 0399
+"\xE1\xBE\x81" => "\x{1F09}\x{0399}",         # U+1F81 => 1F09 0399
+"\xE1\xBE\x82" => "\x{1F0A}\x{0399}",         # U+1F82 => 1F0A 0399
+"\xE1\xBE\x83" => "\x{1F0B}\x{0399}",         # U+1F83 => 1F0B 0399
+"\xE1\xBE\x84" => "\x{1F0C}\x{0399}",         # U+1F84 => 1F0C 0399
+"\xE1\xBE\x85" => "\x{1F0D}\x{0399}",         # U+1F85 => 1F0D 0399
+"\xE1\xBE\x86" => "\x{1F0E}\x{0399}",         # U+1F86 => 1F0E 0399
+"\xE1\xBE\x87" => "\x{1F0F}\x{0399}",         # U+1F87 => 1F0F 0399
+"\xE1\xBE\x88" => "\x{1F08}\x{0399}",         # U+1F88 => 1F08 0399
+"\xE1\xBE\x89" => "\x{1F09}\x{0399}",         # U+1F89 => 1F09 0399
+"\xE1\xBE\x8A" => "\x{1F0A}\x{0399}",         # U+1F8A => 1F0A 0399
+"\xE1\xBE\x8B" => "\x{1F0B}\x{0399}",         # U+1F8B => 1F0B 0399
+"\xE1\xBE\x8C" => "\x{1F0C}\x{0399}",         # U+1F8C => 1F0C 0399
+"\xE1\xBE\x8D" => "\x{1F0D}\x{0399}",         # U+1F8D => 1F0D 0399
+"\xE1\xBE\x8E" => "\x{1F0E}\x{0399}",         # U+1F8E => 1F0E 0399
+"\xE1\xBE\x8F" => "\x{1F0F}\x{0399}",         # U+1F8F => 1F0F 0399
+"\xE1\xBE\x90" => "\x{1F28}\x{0399}",         # U+1F90 => 1F28 0399
+"\xE1\xBE\x91" => "\x{1F29}\x{0399}",         # U+1F91 => 1F29 0399
+"\xE1\xBE\x92" => "\x{1F2A}\x{0399}",         # U+1F92 => 1F2A 0399
+"\xE1\xBE\x93" => "\x{1F2B}\x{0399}",         # U+1F93 => 1F2B 0399
+"\xE1\xBE\x94" => "\x{1F2C}\x{0399}",         # U+1F94 => 1F2C 0399
+"\xE1\xBE\x95" => "\x{1F2D}\x{0399}",         # U+1F95 => 1F2D 0399
+"\xE1\xBE\x96" => "\x{1F2E}\x{0399}",         # U+1F96 => 1F2E 0399
+"\xE1\xBE\x97" => "\x{1F2F}\x{0399}",         # U+1F97 => 1F2F 0399
+"\xE1\xBE\x98" => "\x{1F28}\x{0399}",         # U+1F98 => 1F28 0399
+"\xE1\xBE\x99" => "\x{1F29}\x{0399}",         # U+1F99 => 1F29 0399
+"\xE1\xBE\x9A" => "\x{1F2A}\x{0399}",         # U+1F9A => 1F2A 0399
+"\xE1\xBE\x9B" => "\x{1F2B}\x{0399}",         # U+1F9B => 1F2B 0399
+"\xE1\xBE\x9C" => "\x{1F2C}\x{0399}",         # U+1F9C => 1F2C 0399
+"\xE1\xBE\x9D" => "\x{1F2D}\x{0399}",         # U+1F9D => 1F2D 0399
+"\xE1\xBE\x9E" => "\x{1F2E}\x{0399}",         # U+1F9E => 1F2E 0399
+"\xE1\xBE\x9F" => "\x{1F2F}\x{0399}",         # U+1F9F => 1F2F 0399
+"\xE1\xBE\xA0" => "\x{1F68}\x{0399}",         # U+1FA0 => 1F68 0399
+"\xE1\xBE\xA1" => "\x{1F69}\x{0399}",         # U+1FA1 => 1F69 0399
+"\xE1\xBE\xA2" => "\x{1F6A}\x{0399}",         # U+1FA2 => 1F6A 0399
+"\xE1\xBE\xA3" => "\x{1F6B}\x{0399}",         # U+1FA3 => 1F6B 0399
+"\xE1\xBE\xA4" => "\x{1F6C}\x{0399}",         # U+1FA4 => 1F6C 0399
+"\xE1\xBE\xA5" => "\x{1F6D}\x{0399}",         # U+1FA5 => 1F6D 0399
+"\xE1\xBE\xA6" => "\x{1F6E}\x{0399}",         # U+1FA6 => 1F6E 0399
+"\xE1\xBE\xA7" => "\x{1F6F}\x{0399}",         # U+1FA7 => 1F6F 0399
+"\xE1\xBE\xA8" => "\x{1F68}\x{0399}",         # U+1FA8 => 1F68 0399
+"\xE1\xBE\xA9" => "\x{1F69}\x{0399}",         # U+1FA9 => 1F69 0399
+"\xE1\xBE\xAA" => "\x{1F6A}\x{0399}",         # U+1FAA => 1F6A 0399
+"\xE1\xBE\xAB" => "\x{1F6B}\x{0399}",         # U+1FAB => 1F6B 0399
+"\xE1\xBE\xAC" => "\x{1F6C}\x{0399}",         # U+1FAC => 1F6C 0399
+"\xE1\xBE\xAD" => "\x{1F6D}\x{0399}",         # U+1FAD => 1F6D 0399
+"\xE1\xBE\xAE" => "\x{1F6E}\x{0399}",         # U+1FAE => 1F6E 0399
+"\xE1\xBE\xAF" => "\x{1F6F}\x{0399}",         # U+1FAF => 1F6F 0399
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0399}",         # U+1FB2 => 1FBA 0399
+"\xE1\xBE\xB3" => "\x{0391}\x{0399}",         # U+1FB3 => 0391 0399
+"\xE1\xBE\xB4" => "\x{0386}\x{0399}",         # U+1FB4 => 0386 0399
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399
+"\xE1\xBE\xBC" => "\x{0391}\x{0399}",         # U+1FBC => 0391 0399
+"\xE1\xBF\x82" => "\x{1FCA}\x{0399}",         # U+1FC2 => 1FCA 0399
+"\xE1\xBF\x83" => "\x{0397}\x{0399}",         # U+1FC3 => 0397 0399
+"\xE1\xBF\x84" => "\x{0389}\x{0399}",         # U+1FC4 => 0389 0399
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399
+"\xE1\xBF\x8C" => "\x{0397}\x{0399}",         # U+1FCC => 0397 0399
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0399}",         # U+1FF2 => 1FFA 0399
+"\xE1\xBF\xB3" => "\x{03A9}\x{0399}",         # U+1FF3 => 03A9 0399
+"\xE1\xBF\xB4" => "\x{038F}\x{0399}",         # U+1FF4 => 038F 0399
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399
+"\xE1\xBF\xBC" => "\x{03A9}\x{0399}",         # U+1FFC => 03A9 0399
+"\xEF\xAC\x80" => "\x{0046}\x{0046}",         # U+FB00 => 0046 0046
+"\xEF\xAC\x81" => "\x{0046}\x{0049}",         # U+FB01 => 0046 0049
+"\xEF\xAC\x82" => "\x{0046}\x{004C}",         # U+FB02 => 0046 004C
+"\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049
+"\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C
+"\xEF\xAC\x85" => "\x{0053}\x{0054}",         # U+FB05 => 0053 0054
+"\xEF\xAC\x86" => "\x{0053}\x{0054}",         # U+FB06 => 0053 0054
+"\xEF\xAC\x93" => "\x{0544}\x{0546}",         # U+FB13 => 0544 0546
+"\xEF\xAC\x94" => "\x{0544}\x{0535}",         # U+FB14 => 0544 0535
+"\xEF\xAC\x95" => "\x{0544}\x{053B}",         # U+FB15 => 0544 053B
+"\xEF\xAC\x96" => "\x{054E}\x{0546}",         # U+FB16 => 054E 0546
+"\xEF\xAC\x97" => "\x{0544}\x{053D}",         # U+FB17 => 0544 053D
+);
+
+return <<'END';
+61	7A	41
+B5		39C
+E0	F6	C0
+F8	FE	D8
+FF		178
+101		100
+103		102
+105		104
+107		106
+109		108
+10B		10A
+10D		10C
+10F		10E
+111		110
+113		112
+115		114
+117		116
+119		118
+11B		11A
+11D		11C
+11F		11E
+121		120
+123		122
+125		124
+127		126
+129		128
+12B		12A
+12D		12C
+12F		12E
+131		49
+133		132
+135		134
+137		136
+13A		139
+13C		13B
+13E		13D
+140		13F
+142		141
+144		143
+146		145
+148		147
+14B		14A
+14D		14C
+14F		14E
+151		150
+153		152
+155		154
+157		156
+159		158
+15B		15A
+15D		15C
+15F		15E
+161		160
+163		162
+165		164
+167		166
+169		168
+16B		16A
+16D		16C
+16F		16E
+171		170
+173		172
+175		174
+177		176
+17A		179
+17C		17B
+17E		17D
+17F		53
+180		243
+183		182
+185		184
+188		187
+18C		18B
+192		191
+195		1F6
+199		198
+19A		23D
+19E		220
+1A1		1A0
+1A3		1A2
+1A5		1A4
+1A8		1A7
+1AD		1AC
+1B0		1AF
+1B4		1B3
+1B6		1B5
+1B9		1B8
+1BD		1BC
+1BF		1F7
+1C5		1C4
+1C6		1C4
+1C8		1C7
+1C9		1C7
+1CB		1CA
+1CC		1CA
+1CE		1CD
+1D0		1CF
+1D2		1D1
+1D4		1D3
+1D6		1D5
+1D8		1D7
+1DA		1D9
+1DC		1DB
+1DD		18E
+1DF		1DE
+1E1		1E0
+1E3		1E2
+1E5		1E4
+1E7		1E6
+1E9		1E8
+1EB		1EA
+1ED		1EC
+1EF		1EE
+1F2		1F1
+1F3		1F1
+1F5		1F4
+1F9		1F8
+1FB		1FA
+1FD		1FC
+1FF		1FE
+201		200
+203		202
+205		204
+207		206
+209		208
+20B		20A
+20D		20C
+20F		20E
+211		210
+213		212
+215		214
+217		216
+219		218
+21B		21A
+21D		21C
+21F		21E
+223		222
+225		224
+227		226
+229		228
+22B		22A
+22D		22C
+22F		22E
+231		230
+233		232
+23C		23B
+23F	240	2C7E
+242		241
+247		246
+249		248
+24B		24A
+24D		24C
+24F		24E
+250		2C6F
+251		2C6D
+252		2C70
+253		181
+254		186
+256	257	189
+259		18F
+25B		190
+25C		A7AB
+260		193
+261		A7AC
+263		194
+265		A78D
+266		A7AA
+268		197
+269		196
+26A		A7AE
+26B		2C62
+26C		A7AD
+26F		19C
+271		2C6E
+272		19D
+275		19F
+27D		2C64
+280		1A6
+283		1A9
+287		A7B1
+288		1AE
+289		244
+28A	28B	1B1
+28C		245
+292		1B7
+29D		A7B2
+29E		A7B0
+345		399
+371		370
+373		372
+377		376
+37B	37D	3FD
+3AC		386
+3AD	3AF	388
+3B1	3C1	391
+3C2		3A3
+3C3	3CB	3A3
+3CC		38C
+3CD	3CE	38E
+3D0		392
+3D1		398
+3D5		3A6
+3D6		3A0
+3D7		3CF
+3D9		3D8
+3DB		3DA
+3DD		3DC
+3DF		3DE
+3E1		3E0
+3E3		3E2
+3E5		3E4
+3E7		3E6
+3E9		3E8
+3EB		3EA
+3ED		3EC
+3EF		3EE
+3F0		39A
+3F1		3A1
+3F2		3F9
+3F3		37F
+3F5		395
+3F8		3F7
+3FB		3FA
+430	44F	410
+450	45F	400
+461		460
+463		462
+465		464
+467		466
+469		468
+46B		46A
+46D		46C
+46F		46E
+471		470
+473		472
+475		474
+477		476
+479		478
+47B		47A
+47D		47C
+47F		47E
+481		480
+48B		48A
+48D		48C
+48F		48E
+491		490
+493		492
+495		494
+497		496
+499		498
+49B		49A
+49D		49C
+49F		49E
+4A1		4A0
+4A3		4A2
+4A5		4A4
+4A7		4A6
+4A9		4A8
+4AB		4AA
+4AD		4AC
+4AF		4AE
+4B1		4B0
+4B3		4B2
+4B5		4B4
+4B7		4B6
+4B9		4B8
+4BB		4BA
+4BD		4BC
+4BF		4BE
+4C2		4C1
+4C4		4C3
+4C6		4C5
+4C8		4C7
+4CA		4C9
+4CC		4CB
+4CE		4CD
+4CF		4C0
+4D1		4D0
+4D3		4D2
+4D5		4D4
+4D7		4D6
+4D9		4D8
+4DB		4DA
+4DD		4DC
+4DF		4DE
+4E1		4E0
+4E3		4E2
+4E5		4E4
+4E7		4E6
+4E9		4E8
+4EB		4EA
+4ED		4EC
+4EF		4EE
+4F1		4F0
+4F3		4F2
+4F5		4F4
+4F7		4F6
+4F9		4F8
+4FB		4FA
+4FD		4FC
+4FF		4FE
+501		500
+503		502
+505		504
+507		506
+509		508
+50B		50A
+50D		50C
+50F		50E
+511		510
+513		512
+515		514
+517		516
+519		518
+51B		51A
+51D		51C
+51F		51E
+521		520
+523		522
+525		524
+527		526
+529		528
+52B		52A
+52D		52C
+52F		52E
+561	586	531
+13F8	13FD	13F0
+1C80		412
+1C81		414
+1C82		41E
+1C83	1C84	421
+1C85		422
+1C86		42A
+1C87		462
+1C88		A64A
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00	1F07	1F08
+1F10	1F15	1F18
+1F20	1F27	1F28
+1F30	1F37	1F38
+1F40	1F45	1F48
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60	1F67	1F68
+1F70	1F71	1FBA
+1F72	1F75	1FC8
+1F76	1F77	1FDA
+1F78	1F79	1FF8
+1F7A	1F7B	1FEA
+1F7C	1F7D	1FFA
+1F80	1F87	1F88
+1F90	1F97	1F98
+1FA0	1FA7	1FA8
+1FB0	1FB1	1FB8
+1FB3		1FBC
+1FBE		399
+1FC3		1FCC
+1FD0	1FD1	1FD8
+1FE0	1FE1	1FE8
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170	217F	2160
+2184		2183
+24D0	24E9	24B6
+2C30	2C5E	2C00
+2C61		2C60
+2C65		23A
+2C66		23E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00	2D25	10A0
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70	ABBF	13A0
+FF41	FF5A	FF21
+10428	1044F	10400
+104D8	104FB	104B0
+10CC0	10CF2	10C80
+118C0	118DF	118A0
+1E922	1E943	1E900
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToWB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToWB'}{'missing'} = 'Other';
+
+return <<'END';
+A		LF
+B	C	Newline
+D		CR
+22		Double_Quote
+27		Single_Quote
+2C		MidNum
+2E		MidNumLet
+30	39	Numeric
+3A		MidLetter
+3B		MidNum
+41	5A	ALetter
+5F		ExtendNumLet
+61	7A	ALetter
+85		Newline
+AA		ALetter
+AD		Format
+B5		ALetter
+B7		MidLetter
+BA		ALetter
+C0	D6	ALetter
+D8	F6	ALetter
+F8	2D7	ALetter
+2DE	2E4	ALetter
+2EC	2FF	ALetter
+300	36F	Extend
+370	374	ALetter
+376	377	ALetter
+37A	37D	ALetter
+37E		MidNum
+37F		ALetter
+386		ALetter
+387		MidLetter
+388	38A	ALetter
+38C		ALetter
+38E	3A1	ALetter
+3A3	3F5	ALetter
+3F7	481	ALetter
+483	489	Extend
+48A	52F	ALetter
+531	556	ALetter
+559		ALetter
+561	587	ALetter
+589		MidNum
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+5F3		ALetter
+5F4		MidLetter
+600	605	Format
+60C	60D	MidNum
+610	61A	Extend
+61C		Format
+620	64A	ALetter
+64B	65F	Extend
+660	669	Numeric
+66B		Numeric
+66C		MidNum
+66E	66F	ALetter
+670		Extend
+671	6D3	ALetter
+6D5		ALetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	ALetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	ALetter
+6F0	6F9	Numeric
+6FA	6FC	ALetter
+6FF		ALetter
+70F		Format
+710		ALetter
+711		Extend
+712	72F	ALetter
+730	74A	Extend
+74D	7A5	ALetter
+7A6	7B0	Extend
+7B1		ALetter
+7C0	7C9	Numeric
+7CA	7EA	ALetter
+7EB	7F3	Extend
+7F4	7F5	ALetter
+7F8		MidNum
+7FA		ALetter
+800	815	ALetter
+816	819	Extend
+81A		ALetter
+81B	823	Extend
+824		ALetter
+825	827	Extend
+828		ALetter
+829	82D	Extend
+840	858	ALetter
+859	85B	Extend
+860	86A	ALetter
+8A0	8B4	ALetter
+8B6	8BD	ALetter
+8D4	8E1	Extend
+8E2		Format
+8E3	903	Extend
+904	939	ALetter
+93A	93C	Extend
+93D		ALetter
+93E	94F	Extend
+950		ALetter
+951	957	Extend
+958	961	ALetter
+962	963	Extend
+966	96F	Numeric
+971	980	ALetter
+981	983	Extend
+985	98C	ALetter
+98F	990	ALetter
+993	9A8	ALetter
+9AA	9B0	ALetter
+9B2		ALetter
+9B6	9B9	ALetter
+9BC		Extend
+9BD		ALetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		ALetter
+9D7		Extend
+9DC	9DD	ALetter
+9DF	9E1	ALetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	ALetter
+9FC		ALetter
+A01	A03	Extend
+A05	A0A	ALetter
+A0F	A10	ALetter
+A13	A28	ALetter
+A2A	A30	ALetter
+A32	A33	ALetter
+A35	A36	ALetter
+A38	A39	ALetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	ALetter
+A5E		ALetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	ALetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	ALetter
+A8F	A91	ALetter
+A93	AA8	ALetter
+AAA	AB0	ALetter
+AB2	AB3	ALetter
+AB5	AB9	ALetter
+ABC		Extend
+ABD		ALetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		ALetter
+AE0	AE1	ALetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		ALetter
+AFA	AFF	Extend
+B01	B03	Extend
+B05	B0C	ALetter
+B0F	B10	ALetter
+B13	B28	ALetter
+B2A	B30	ALetter
+B32	B33	ALetter
+B35	B39	ALetter
+B3C		Extend
+B3D		ALetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	ALetter
+B5F	B61	ALetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		ALetter
+B82		Extend
+B83		ALetter
+B85	B8A	ALetter
+B8E	B90	ALetter
+B92	B95	ALetter
+B99	B9A	ALetter
+B9C		ALetter
+B9E	B9F	ALetter
+BA3	BA4	ALetter
+BA8	BAA	ALetter
+BAE	BB9	ALetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		ALetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	ALetter
+C0E	C10	ALetter
+C12	C28	ALetter
+C2A	C39	ALetter
+C3D		ALetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	ALetter
+C60	C61	ALetter
+C62	C63	Extend
+C66	C6F	Numeric
+C80		ALetter
+C81	C83	Extend
+C85	C8C	ALetter
+C8E	C90	ALetter
+C92	CA8	ALetter
+CAA	CB3	ALetter
+CB5	CB9	ALetter
+CBC		Extend
+CBD		ALetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		ALetter
+CE0	CE1	ALetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	ALetter
+D00	D03	Extend
+D05	D0C	ALetter
+D0E	D10	ALetter
+D12	D3A	ALetter
+D3B	D3C	Extend
+D3D		ALetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		ALetter
+D54	D56	ALetter
+D57		Extend
+D5F	D61	ALetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	ALetter
+D82	D83	Extend
+D85	D96	ALetter
+D9A	DB1	ALetter
+DB3	DBB	ALetter
+DBD		ALetter
+DC0	DC6	ALetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E31		Extend
+E34	E3A	Extend
+E47	E4E	Extend
+E50	E59	Numeric
+EB1		Extend
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+ED0	ED9	Numeric
+F00		ALetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	Extend
+F40	F47	ALetter
+F49	F6C	ALetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	ALetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102B	103E	Extend
+1040	1049	Numeric
+1056	1059	Extend
+105E	1060	Extend
+1062	1064	Extend
+1067	106D	Extend
+1071	1074	Extend
+1082	108D	Extend
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	ALetter
+10C7		ALetter
+10CD		ALetter
+10D0	10FA	ALetter
+10FC	1248	ALetter
+124A	124D	ALetter
+1250	1256	ALetter
+1258		ALetter
+125A	125D	ALetter
+1260	1288	ALetter
+128A	128D	ALetter
+1290	12B0	ALetter
+12B2	12B5	ALetter
+12B8	12BE	ALetter
+12C0		ALetter
+12C2	12C5	ALetter
+12C8	12D6	ALetter
+12D8	1310	ALetter
+1312	1315	ALetter
+1318	135A	ALetter
+135D	135F	Extend
+1380	138F	ALetter
+13A0	13F5	ALetter
+13F8	13FD	ALetter
+1401	166C	ALetter
+166F	167F	ALetter
+1681	169A	ALetter
+16A0	16EA	ALetter
+16EE	16F8	ALetter
+1700	170C	ALetter
+170E	1711	ALetter
+1712	1714	Extend
+1720	1731	ALetter
+1732	1734	Extend
+1740	1751	ALetter
+1752	1753	Extend
+1760	176C	ALetter
+176E	1770	ALetter
+1772	1773	Extend
+17B4	17D3	Extend
+17DD		Extend
+17E0	17E9	Numeric
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	ALetter
+1880	1884	ALetter
+1885	1886	Extend
+1887	18A8	ALetter
+18A9		Extend
+18AA		ALetter
+18B0	18F5	ALetter
+1900	191E	ALetter
+1920	192B	Extend
+1930	193B	Extend
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A00	1A16	ALetter
+1A17	1A1B	Extend
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	ALetter
+1B34	1B44	Extend
+1B45	1B4B	ALetter
+1B50	1B59	Numeric
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	ALetter
+1BA1	1BAD	Extend
+1BAE	1BAF	ALetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	ALetter
+1BE6	1BF3	Extend
+1C00	1C23	ALetter
+1C24	1C37	Extend
+1C40	1C49	Numeric
+1C4D	1C4F	ALetter
+1C50	1C59	Numeric
+1C5A	1C7D	ALetter
+1C80	1C88	ALetter
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	ALetter
+1CED		Extend
+1CEE	1CF1	ALetter
+1CF2	1CF4	Extend
+1CF5	1CF6	ALetter
+1CF7	1CF9	Extend
+1D00	1DBF	ALetter
+1DC0	1DF9	Extend
+1DFB	1DFF	Extend
+1E00	1F15	ALetter
+1F18	1F1D	ALetter
+1F20	1F45	ALetter
+1F48	1F4D	ALetter
+1F50	1F57	ALetter
+1F59		ALetter
+1F5B		ALetter
+1F5D		ALetter
+1F5F	1F7D	ALetter
+1F80	1FB4	ALetter
+1FB6	1FBC	ALetter
+1FBE		ALetter
+1FC2	1FC4	ALetter
+1FC6	1FCC	ALetter
+1FD0	1FD3	ALetter
+1FD6	1FDB	ALetter
+1FE0	1FEC	ALetter
+1FF2	1FF4	ALetter
+1FF6	1FFC	ALetter
+200C		Extend
+200D		ZWJ
+200E	200F	Format
+2018	2019	MidNumLet
+2024		MidNumLet
+2027		MidLetter
+2028	2029	Newline
+202A	202E	Format
+202F		ExtendNumLet
+203F	2040	ExtendNumLet
+2044		MidNum
+2054		ExtendNumLet
+2060	2064	Format
+2066	206F	Format
+2071		ALetter
+207F		ALetter
+2090	209C	ALetter
+20D0	20F0	Extend
+2102		ALetter
+2107		ALetter
+210A	2113	ALetter
+2115		ALetter
+2119	211D	ALetter
+2124		ALetter
+2126		ALetter
+2128		ALetter
+212A	212D	ALetter
+212F	2139	ALetter
+213C	213F	ALetter
+2145	2149	ALetter
+214E		ALetter
+2160	2188	ALetter
+24B6	24E9	ALetter
+261D		E_Base
+2640		Glue_After_Zwj
+2642		Glue_After_Zwj
+2695	2696	Glue_After_Zwj
+26F9		E_Base
+2708		Glue_After_Zwj
+270A	270D	E_Base
+2764		Glue_After_Zwj
+2C00	2C2E	ALetter
+2C30	2C5E	ALetter
+2C60	2CE4	ALetter
+2CEB	2CEE	ALetter
+2CEF	2CF1	Extend
+2CF2	2CF3	ALetter
+2D00	2D25	ALetter
+2D27		ALetter
+2D2D		ALetter
+2D30	2D67	ALetter
+2D6F		ALetter
+2D7F		Extend
+2D80	2D96	ALetter
+2DA0	2DA6	ALetter
+2DA8	2DAE	ALetter
+2DB0	2DB6	ALetter
+2DB8	2DBE	ALetter
+2DC0	2DC6	ALetter
+2DC8	2DCE	ALetter
+2DD0	2DD6	ALetter
+2DD8	2DDE	ALetter
+2DE0	2DFF	Extend
+2E2F		ALetter
+3005		ALetter
+302A	302F	Extend
+3031	3035	Katakana
+303B	303C	ALetter
+3099	309A	Extend
+309B	309C	Katakana
+30A0	30FA	Katakana
+30FC	30FF	Katakana
+3105	312E	ALetter
+3131	318E	ALetter
+31A0	31BA	ALetter
+31F0	31FF	Katakana
+32D0	32FE	Katakana
+3300	3357	Katakana
+A000	A48C	ALetter
+A4D0	A4FD	ALetter
+A500	A60C	ALetter
+A610	A61F	ALetter
+A620	A629	Numeric
+A62A	A62B	ALetter
+A640	A66E	ALetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F	A69D	ALetter
+A69E	A69F	Extend
+A6A0	A6EF	ALetter
+A6F0	A6F1	Extend
+A717	A7AE	ALetter
+A7B0	A7B7	ALetter
+A7F7	A801	ALetter
+A802		Extend
+A803	A805	ALetter
+A806		Extend
+A807	A80A	ALetter
+A80B		Extend
+A80C	A822	ALetter
+A823	A827	Extend
+A840	A873	ALetter
+A880	A881	Extend
+A882	A8B3	ALetter
+A8B4	A8C5	Extend
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	ALetter
+A8FB		ALetter
+A8FD		ALetter
+A900	A909	Numeric
+A90A	A925	ALetter
+A926	A92D	Extend
+A930	A946	ALetter
+A947	A953	Extend
+A960	A97C	ALetter
+A980	A983	Extend
+A984	A9B2	ALetter
+A9B3	A9C0	Extend
+A9CF		ALetter
+A9D0	A9D9	Numeric
+A9E5		Extend
+A9F0	A9F9	Numeric
+AA00	AA28	ALetter
+AA29	AA36	Extend
+AA40	AA42	ALetter
+AA43		Extend
+AA44	AA4B	ALetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA7B	AA7D	Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAE0	AAEA	ALetter
+AAEB	AAEF	Extend
+AAF2	AAF4	ALetter
+AAF5	AAF6	Extend
+AB01	AB06	ALetter
+AB09	AB0E	ALetter
+AB11	AB16	ALetter
+AB20	AB26	ALetter
+AB28	AB2E	ALetter
+AB30	AB65	ALetter
+AB70	ABE2	ALetter
+ABE3	ABEA	Extend
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	ALetter
+D7B0	D7C6	ALetter
+D7CB	D7FB	ALetter
+FB00	FB06	ALetter
+FB13	FB17	ALetter
+FB1D		Hebrew_Letter
+FB1E		Extend
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FB50	FBB1	ALetter
+FBD3	FD3D	ALetter
+FD50	FD8F	ALetter
+FD92	FDC7	ALetter
+FDF0	FDFB	ALetter
+FE00	FE0F	Extend
+FE10		MidNum
+FE13		MidLetter
+FE14		MidNum
+FE20	FE2F	Extend
+FE33	FE34	ExtendNumLet
+FE4D	FE4F	ExtendNumLet
+FE50		MidNum
+FE52		MidNumLet
+FE54		MidNum
+FE55		MidLetter
+FE70	FE74	ALetter
+FE76	FEFC	ALetter
+FEFF		Format
+FF07		MidNumLet
+FF0C		MidNum
+FF0E		MidNumLet
+FF1A		MidLetter
+FF1B		MidNum
+FF21	FF3A	ALetter
+FF3F		ExtendNumLet
+FF41	FF5A	ALetter
+FF66	FF9D	Katakana
+FF9E	FF9F	Extend
+FFA0	FFBE	ALetter
+FFC2	FFC7	ALetter
+FFCA	FFCF	ALetter
+FFD2	FFD7	ALetter
+FFDA	FFDC	ALetter
+FFF9	FFFB	Format
+10000	1000B	ALetter
+1000D	10026	ALetter
+10028	1003A	ALetter
+1003C	1003D	ALetter
+1003F	1004D	ALetter
+10050	1005D	ALetter
+10080	100FA	ALetter
+10140	10174	ALetter
+101FD		Extend
+10280	1029C	ALetter
+102A0	102D0	ALetter
+102E0		Extend
+10300	1031F	ALetter
+1032D	1034A	ALetter
+10350	10375	ALetter
+10376	1037A	Extend
+10380	1039D	ALetter
+103A0	103C3	ALetter
+103C8	103CF	ALetter
+103D1	103D5	ALetter
+10400	1049D	ALetter
+104A0	104A9	Numeric
+104B0	104D3	ALetter
+104D8	104FB	ALetter
+10500	10527	ALetter
+10530	10563	ALetter
+10600	10736	ALetter
+10740	10755	ALetter
+10760	10767	ALetter
+10800	10805	ALetter
+10808		ALetter
+1080A	10835	ALetter
+10837	10838	ALetter
+1083C		ALetter
+1083F	10855	ALetter
+10860	10876	ALetter
+10880	1089E	ALetter
+108E0	108F2	ALetter
+108F4	108F5	ALetter
+10900	10915	ALetter
+10920	10939	ALetter
+10980	109B7	ALetter
+109BE	109BF	ALetter
+10A00		ALetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	ALetter
+10A15	10A17	ALetter
+10A19	10A33	ALetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A60	10A7C	ALetter
+10A80	10A9C	ALetter
+10AC0	10AC7	ALetter
+10AC9	10AE4	ALetter
+10AE5	10AE6	Extend
+10B00	10B35	ALetter
+10B40	10B55	ALetter
+10B60	10B72	ALetter
+10B80	10B91	ALetter
+10C00	10C48	ALetter
+10C80	10CB2	ALetter
+10CC0	10CF2	ALetter
+11000	11002	Extend
+11003	11037	ALetter
+11038	11046	Extend
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	ALetter
+110B0	110BA	Extend
+110BD		Format
+110D0	110E8	ALetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	ALetter
+11127	11134	Extend
+11136	1113F	Numeric
+11150	11172	ALetter
+11173		Extend
+11176		ALetter
+11180	11182	Extend
+11183	111B2	ALetter
+111B3	111C0	Extend
+111C1	111C4	ALetter
+111CA	111CC	Extend
+111D0	111D9	Numeric
+111DA		ALetter
+111DC		ALetter
+11200	11211	ALetter
+11213	1122B	ALetter
+1122C	11237	Extend
+1123E		Extend
+11280	11286	ALetter
+11288		ALetter
+1128A	1128D	ALetter
+1128F	1129D	ALetter
+1129F	112A8	ALetter
+112B0	112DE	ALetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	ALetter
+1130F	11310	ALetter
+11313	11328	ALetter
+1132A	11330	ALetter
+11332	11333	ALetter
+11335	11339	ALetter
+1133C		Extend
+1133D		ALetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		ALetter
+11357		Extend
+1135D	11361	ALetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11400	11434	ALetter
+11435	11446	Extend
+11447	1144A	ALetter
+11450	11459	Numeric
+11480	114AF	ALetter
+114B0	114C3	Extend
+114C4	114C5	ALetter
+114C7		ALetter
+114D0	114D9	Numeric
+11580	115AE	ALetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115D8	115DB	ALetter
+115DC	115DD	Extend
+11600	1162F	ALetter
+11630	11640	Extend
+11644		ALetter
+11650	11659	Numeric
+11680	116AA	ALetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+1171D	1172B	Extend
+11730	11739	Numeric
+118A0	118DF	ALetter
+118E0	118E9	Numeric
+118FF		ALetter
+11A00		ALetter
+11A01	11A0A	Extend
+11A0B	11A32	ALetter
+11A33	11A39	Extend
+11A3A		ALetter
+11A3B	11A3E	Extend
+11A47		Extend
+11A50		ALetter
+11A51	11A5B	Extend
+11A5C	11A83	ALetter
+11A86	11A89	ALetter
+11A8A	11A99	Extend
+11AC0	11AF8	ALetter
+11C00	11C08	ALetter
+11C0A	11C2E	ALetter
+11C2F	11C36	Extend
+11C38	11C3F	Extend
+11C40		ALetter
+11C50	11C59	Numeric
+11C72	11C8F	ALetter
+11C92	11CA7	Extend
+11CA9	11CB6	Extend
+11D00	11D06	ALetter
+11D08	11D09	ALetter
+11D0B	11D30	ALetter
+11D31	11D36	Extend
+11D3A		Extend
+11D3C	11D3D	Extend
+11D3F	11D45	Extend
+11D46		ALetter
+11D47		Extend
+11D50	11D59	Numeric
+12000	12399	ALetter
+12400	1246E	ALetter
+12480	12543	ALetter
+13000	1342E	ALetter
+14400	14646	ALetter
+16800	16A38	ALetter
+16A40	16A5E	ALetter
+16A60	16A69	Numeric
+16AD0	16AED	ALetter
+16AF0	16AF4	Extend
+16B00	16B2F	ALetter
+16B30	16B36	Extend
+16B40	16B43	ALetter
+16B50	16B59	Numeric
+16B63	16B77	ALetter
+16B7D	16B8F	ALetter
+16F00	16F44	ALetter
+16F50		ALetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	ALetter
+16FE0	16FE1	ALetter
+1B000		Katakana
+1BC00	1BC6A	ALetter
+1BC70	1BC7C	ALetter
+1BC80	1BC88	ALetter
+1BC90	1BC99	ALetter
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D454	ALetter
+1D456	1D49C	ALetter
+1D49E	1D49F	ALetter
+1D4A2		ALetter
+1D4A5	1D4A6	ALetter
+1D4A9	1D4AC	ALetter
+1D4AE	1D4B9	ALetter
+1D4BB		ALetter
+1D4BD	1D4C3	ALetter
+1D4C5	1D505	ALetter
+1D507	1D50A	ALetter
+1D50D	1D514	ALetter
+1D516	1D51C	ALetter
+1D51E	1D539	ALetter
+1D53B	1D53E	ALetter
+1D540	1D544	ALetter
+1D546		ALetter
+1D54A	1D550	ALetter
+1D552	1D6A5	ALetter
+1D6A8	1D6C0	ALetter
+1D6C2	1D6DA	ALetter
+1D6DC	1D6FA	ALetter
+1D6FC	1D714	ALetter
+1D716	1D734	ALetter
+1D736	1D74E	ALetter
+1D750	1D76E	ALetter
+1D770	1D788	ALetter
+1D78A	1D7A8	ALetter
+1D7AA	1D7C2	ALetter
+1D7C4	1D7CB	ALetter
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E000	1E006	Extend
+1E008	1E018	Extend
+1E01B	1E021	Extend
+1E023	1E024	Extend
+1E026	1E02A	Extend
+1E800	1E8C4	ALetter
+1E8D0	1E8D6	Extend
+1E900	1E943	ALetter
+1E944	1E94A	Extend
+1E950	1E959	Numeric
+1EE00	1EE03	ALetter
+1EE05	1EE1F	ALetter
+1EE21	1EE22	ALetter
+1EE24		ALetter
+1EE27		ALetter
+1EE29	1EE32	ALetter
+1EE34	1EE37	ALetter
+1EE39		ALetter
+1EE3B		ALetter
+1EE42		ALetter
+1EE47		ALetter
+1EE49		ALetter
+1EE4B		ALetter
+1EE4D	1EE4F	ALetter
+1EE51	1EE52	ALetter
+1EE54		ALetter
+1EE57		ALetter
+1EE59		ALetter
+1EE5B		ALetter
+1EE5D		ALetter
+1EE5F		ALetter
+1EE61	1EE62	ALetter
+1EE64		ALetter
+1EE67	1EE6A	ALetter
+1EE6C	1EE72	ALetter
+1EE74	1EE77	ALetter
+1EE79	1EE7C	ALetter
+1EE7E		ALetter
+1EE80	1EE89	ALetter
+1EE8B	1EE9B	ALetter
+1EEA1	1EEA3	ALetter
+1EEA5	1EEA9	ALetter
+1EEAB	1EEBB	ALetter
+1F130	1F149	ALetter
+1F150	1F169	ALetter
+1F170	1F189	ALetter
+1F1E6	1F1FF	Regional_Indicator
+1F308		Glue_After_Zwj
+1F33E		Glue_After_Zwj
+1F373		Glue_After_Zwj
+1F385		E_Base
+1F393		Glue_After_Zwj
+1F3A4		Glue_After_Zwj
+1F3A8		Glue_After_Zwj
+1F3C2	1F3C4	E_Base
+1F3C7		E_Base
+1F3CA	1F3CC	E_Base
+1F3EB		Glue_After_Zwj
+1F3ED		Glue_After_Zwj
+1F3FB	1F3FF	E_Modifier
+1F442	1F443	E_Base
+1F446	1F450	E_Base
+1F466	1F469	E_Base_GAZ
+1F46E		E_Base
+1F470	1F478	E_Base
+1F47C		E_Base
+1F481	1F483	E_Base
+1F485	1F487	E_Base
+1F48B		Glue_After_Zwj
+1F4AA		E_Base
+1F4BB	1F4BC	Glue_After_Zwj
+1F527		Glue_After_Zwj
+1F52C		Glue_After_Zwj
+1F574	1F575	E_Base
+1F57A		E_Base
+1F590		E_Base
+1F595	1F596	E_Base
+1F5E8		Glue_After_Zwj
+1F645	1F647	E_Base
+1F64B	1F64F	E_Base
+1F680		Glue_After_Zwj
+1F692		Glue_After_Zwj
+1F6A3		E_Base
+1F6B4	1F6B6	E_Base
+1F6C0		E_Base
+1F6CC		E_Base
+1F918	1F91C	E_Base
+1F91E	1F91F	E_Base
+1F926		E_Base
+1F930	1F939	E_Base
+1F93D	1F93E	E_Base
+1F9D1	1F9DD	E_Base
+E0001		Format
+E0020	E007F	Extend
+E0100	E01EF	Extend
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToGc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToGc'}{'missing'} = 'Cn';
+
+return <<'END';
+0	1F	Cc
+20		Zs
+21	23	Po
+24		Sc
+25	27	Po
+28		Ps
+29		Pe
+2A		Po
+2B		Sm
+2C		Po
+2D		Pd
+2E	2F	Po
+30	39	Nd
+3A	3B	Po
+3C	3E	Sm
+3F	40	Po
+41	5A	Lu
+5B		Ps
+5C		Po
+5D		Pe
+5E		Sk
+5F		Pc
+60		Sk
+61	7A	Ll
+7B		Ps
+7C		Sm
+7D		Pe
+7E		Sm
+7F	9F	Cc
+A0		Zs
+A1		Po
+A2	A5	Sc
+A6		So
+A7		Po
+A8		Sk
+A9		So
+AA		Lo
+AB		Pi
+AC		Sm
+AD		Cf
+AE		So
+AF		Sk
+B0		So
+B1		Sm
+B2	B3	No
+B4		Sk
+B5		Ll
+B6	B7	Po
+B8		Sk
+B9		No
+BA		Lo
+BB		Pf
+BC	BE	No
+BF		Po
+C0	D6	Lu
+D7		Sm
+D8	DE	Lu
+DF	F6	Ll
+F7		Sm
+F8	FF	Ll
+100		Lu
+101		Ll
+102		Lu
+103		Ll
+104		Lu
+105		Ll
+106		Lu
+107		Ll
+108		Lu
+109		Ll
+10A		Lu
+10B		Ll
+10C		Lu
+10D		Ll
+10E		Lu
+10F		Ll
+110		Lu
+111		Ll
+112		Lu
+113		Ll
+114		Lu
+115		Ll
+116		Lu
+117		Ll
+118		Lu
+119		Ll
+11A		Lu
+11B		Ll
+11C		Lu
+11D		Ll
+11E		Lu
+11F		Ll
+120		Lu
+121		Ll
+122		Lu
+123		Ll
+124		Lu
+125		Ll
+126		Lu
+127		Ll
+128		Lu
+129		Ll
+12A		Lu
+12B		Ll
+12C		Lu
+12D		Ll
+12E		Lu
+12F		Ll
+130		Lu
+131		Ll
+132		Lu
+133		Ll
+134		Lu
+135		Ll
+136		Lu
+137	138	Ll
+139		Lu
+13A		Ll
+13B		Lu
+13C		Ll
+13D		Lu
+13E		Ll
+13F		Lu
+140		Ll
+141		Lu
+142		Ll
+143		Lu
+144		Ll
+145		Lu
+146		Ll
+147		Lu
+148	149	Ll
+14A		Lu
+14B		Ll
+14C		Lu
+14D		Ll
+14E		Lu
+14F		Ll
+150		Lu
+151		Ll
+152		Lu
+153		Ll
+154		Lu
+155		Ll
+156		Lu
+157		Ll
+158		Lu
+159		Ll
+15A		Lu
+15B		Ll
+15C		Lu
+15D		Ll
+15E		Lu
+15F		Ll
+160		Lu
+161		Ll
+162		Lu
+163		Ll
+164		Lu
+165		Ll
+166		Lu
+167		Ll
+168		Lu
+169		Ll
+16A		Lu
+16B		Ll
+16C		Lu
+16D		Ll
+16E		Lu
+16F		Ll
+170		Lu
+171		Ll
+172		Lu
+173		Ll
+174		Lu
+175		Ll
+176		Lu
+177		Ll
+178	179	Lu
+17A		Ll
+17B		Lu
+17C		Ll
+17D		Lu
+17E	180	Ll
+181	182	Lu
+183		Ll
+184		Lu
+185		Ll
+186	187	Lu
+188		Ll
+189	18B	Lu
+18C	18D	Ll
+18E	191	Lu
+192		Ll
+193	194	Lu
+195		Ll
+196	198	Lu
+199	19B	Ll
+19C	19D	Lu
+19E		Ll
+19F	1A0	Lu
+1A1		Ll
+1A2		Lu
+1A3		Ll
+1A4		Lu
+1A5		Ll
+1A6	1A7	Lu
+1A8		Ll
+1A9		Lu
+1AA	1AB	Ll
+1AC		Lu
+1AD		Ll
+1AE	1AF	Lu
+1B0		Ll
+1B1	1B3	Lu
+1B4		Ll
+1B5		Lu
+1B6		Ll
+1B7	1B8	Lu
+1B9	1BA	Ll
+1BB		Lo
+1BC		Lu
+1BD	1BF	Ll
+1C0	1C3	Lo
+1C4		Lu
+1C5		Lt
+1C6		Ll
+1C7		Lu
+1C8		Lt
+1C9		Ll
+1CA		Lu
+1CB		Lt
+1CC		Ll
+1CD		Lu
+1CE		Ll
+1CF		Lu
+1D0		Ll
+1D1		Lu
+1D2		Ll
+1D3		Lu
+1D4		Ll
+1D5		Lu
+1D6		Ll
+1D7		Lu
+1D8		Ll
+1D9		Lu
+1DA		Ll
+1DB		Lu
+1DC	1DD	Ll
+1DE		Lu
+1DF		Ll
+1E0		Lu
+1E1		Ll
+1E2		Lu
+1E3		Ll
+1E4		Lu
+1E5		Ll
+1E6		Lu
+1E7		Ll
+1E8		Lu
+1E9		Ll
+1EA		Lu
+1EB		Ll
+1EC		Lu
+1ED		Ll
+1EE		Lu
+1EF	1F0	Ll
+1F1		Lu
+1F2		Lt
+1F3		Ll
+1F4		Lu
+1F5		Ll
+1F6	1F8	Lu
+1F9		Ll
+1FA		Lu
+1FB		Ll
+1FC		Lu
+1FD		Ll
+1FE		Lu
+1FF		Ll
+200		Lu
+201		Ll
+202		Lu
+203		Ll
+204		Lu
+205		Ll
+206		Lu
+207		Ll
+208		Lu
+209		Ll
+20A		Lu
+20B		Ll
+20C		Lu
+20D		Ll
+20E		Lu
+20F		Ll
+210		Lu
+211		Ll
+212		Lu
+213		Ll
+214		Lu
+215		Ll
+216		Lu
+217		Ll
+218		Lu
+219		Ll
+21A		Lu
+21B		Ll
+21C		Lu
+21D		Ll
+21E		Lu
+21F		Ll
+220		Lu
+221		Ll
+222		Lu
+223		Ll
+224		Lu
+225		Ll
+226		Lu
+227		Ll
+228		Lu
+229		Ll
+22A		Lu
+22B		Ll
+22C		Lu
+22D		Ll
+22E		Lu
+22F		Ll
+230		Lu
+231		Ll
+232		Lu
+233	239	Ll
+23A	23B	Lu
+23C		Ll
+23D	23E	Lu
+23F	240	Ll
+241		Lu
+242		Ll
+243	246	Lu
+247		Ll
+248		Lu
+249		Ll
+24A		Lu
+24B		Ll
+24C		Lu
+24D		Ll
+24E		Lu
+24F	293	Ll
+294		Lo
+295	2AF	Ll
+2B0	2C1	Lm
+2C2	2C5	Sk
+2C6	2D1	Lm
+2D2	2DF	Sk
+2E0	2E4	Lm
+2E5	2EB	Sk
+2EC		Lm
+2ED		Sk
+2EE		Lm
+2EF	2FF	Sk
+300	36F	Mn
+370		Lu
+371		Ll
+372		Lu
+373		Ll
+374		Lm
+375		Sk
+376		Lu
+377		Ll
+37A		Lm
+37B	37D	Ll
+37E		Po
+37F		Lu
+384	385	Sk
+386		Lu
+387		Po
+388	38A	Lu
+38C		Lu
+38E	38F	Lu
+390		Ll
+391	3A1	Lu
+3A3	3AB	Lu
+3AC	3CE	Ll
+3CF		Lu
+3D0	3D1	Ll
+3D2	3D4	Lu
+3D5	3D7	Ll
+3D8		Lu
+3D9		Ll
+3DA		Lu
+3DB		Ll
+3DC		Lu
+3DD		Ll
+3DE		Lu
+3DF		Ll
+3E0		Lu
+3E1		Ll
+3E2		Lu
+3E3		Ll
+3E4		Lu
+3E5		Ll
+3E6		Lu
+3E7		Ll
+3E8		Lu
+3E9		Ll
+3EA		Lu
+3EB		Ll
+3EC		Lu
+3ED		Ll
+3EE		Lu
+3EF	3F3	Ll
+3F4		Lu
+3F5		Ll
+3F6		Sm
+3F7		Lu
+3F8		Ll
+3F9	3FA	Lu
+3FB	3FC	Ll
+3FD	42F	Lu
+430	45F	Ll
+460		Lu
+461		Ll
+462		Lu
+463		Ll
+464		Lu
+465		Ll
+466		Lu
+467		Ll
+468		Lu
+469		Ll
+46A		Lu
+46B		Ll
+46C		Lu
+46D		Ll
+46E		Lu
+46F		Ll
+470		Lu
+471		Ll
+472		Lu
+473		Ll
+474		Lu
+475		Ll
+476		Lu
+477		Ll
+478		Lu
+479		Ll
+47A		Lu
+47B		Ll
+47C		Lu
+47D		Ll
+47E		Lu
+47F		Ll
+480		Lu
+481		Ll
+482		So
+483	487	Mn
+488	489	Me
+48A		Lu
+48B		Ll
+48C		Lu
+48D		Ll
+48E		Lu
+48F		Ll
+490		Lu
+491		Ll
+492		Lu
+493		Ll
+494		Lu
+495		Ll
+496		Lu
+497		Ll
+498		Lu
+499		Ll
+49A		Lu
+49B		Ll
+49C		Lu
+49D		Ll
+49E		Lu
+49F		Ll
+4A0		Lu
+4A1		Ll
+4A2		Lu
+4A3		Ll
+4A4		Lu
+4A5		Ll
+4A6		Lu
+4A7		Ll
+4A8		Lu
+4A9		Ll
+4AA		Lu
+4AB		Ll
+4AC		Lu
+4AD		Ll
+4AE		Lu
+4AF		Ll
+4B0		Lu
+4B1		Ll
+4B2		Lu
+4B3		Ll
+4B4		Lu
+4B5		Ll
+4B6		Lu
+4B7		Ll
+4B8		Lu
+4B9		Ll
+4BA		Lu
+4BB		Ll
+4BC		Lu
+4BD		Ll
+4BE		Lu
+4BF		Ll
+4C0	4C1	Lu
+4C2		Ll
+4C3		Lu
+4C4		Ll
+4C5		Lu
+4C6		Ll
+4C7		Lu
+4C8		Ll
+4C9		Lu
+4CA		Ll
+4CB		Lu
+4CC		Ll
+4CD		Lu
+4CE	4CF	Ll
+4D0		Lu
+4D1		Ll
+4D2		Lu
+4D3		Ll
+4D4		Lu
+4D5		Ll
+4D6		Lu
+4D7		Ll
+4D8		Lu
+4D9		Ll
+4DA		Lu
+4DB		Ll
+4DC		Lu
+4DD		Ll
+4DE		Lu
+4DF		Ll
+4E0		Lu
+4E1		Ll
+4E2		Lu
+4E3		Ll
+4E4		Lu
+4E5		Ll
+4E6		Lu
+4E7		Ll
+4E8		Lu
+4E9		Ll
+4EA		Lu
+4EB		Ll
+4EC		Lu
+4ED		Ll
+4EE		Lu
+4EF		Ll
+4F0		Lu
+4F1		Ll
+4F2		Lu
+4F3		Ll
+4F4		Lu
+4F5		Ll
+4F6		Lu
+4F7		Ll
+4F8		Lu
+4F9		Ll
+4FA		Lu
+4FB		Ll
+4FC		Lu
+4FD		Ll
+4FE		Lu
+4FF		Ll
+500		Lu
+501		Ll
+502		Lu
+503		Ll
+504		Lu
+505		Ll
+506		Lu
+507		Ll
+508		Lu
+509		Ll
+50A		Lu
+50B		Ll
+50C		Lu
+50D		Ll
+50E		Lu
+50F		Ll
+510		Lu
+511		Ll
+512		Lu
+513		Ll
+514		Lu
+515		Ll
+516		Lu
+517		Ll
+518		Lu
+519		Ll
+51A		Lu
+51B		Ll
+51C		Lu
+51D		Ll
+51E		Lu
+51F		Ll
+520		Lu
+521		Ll
+522		Lu
+523		Ll
+524		Lu
+525		Ll
+526		Lu
+527		Ll
+528		Lu
+529		Ll
+52A		Lu
+52B		Ll
+52C		Lu
+52D		Ll
+52E		Lu
+52F		Ll
+531	556	Lu
+559		Lm
+55A	55F	Po
+561	587	Ll
+589		Po
+58A		Pd
+58D	58E	So
+58F		Sc
+591	5BD	Mn
+5BE		Pd
+5BF		Mn
+5C0		Po
+5C1	5C2	Mn
+5C3		Po
+5C4	5C5	Mn
+5C6		Po
+5C7		Mn
+5D0	5EA	Lo
+5F0	5F2	Lo
+5F3	5F4	Po
+600	605	Cf
+606	608	Sm
+609	60A	Po
+60B		Sc
+60C	60D	Po
+60E	60F	So
+610	61A	Mn
+61B		Po
+61C		Cf
+61E	61F	Po
+620	63F	Lo
+640		Lm
+641	64A	Lo
+64B	65F	Mn
+660	669	Nd
+66A	66D	Po
+66E	66F	Lo
+670		Mn
+671	6D3	Lo
+6D4		Po
+6D5		Lo
+6D6	6DC	Mn
+6DD		Cf
+6DE		So
+6DF	6E4	Mn
+6E5	6E6	Lm
+6E7	6E8	Mn
+6E9		So
+6EA	6ED	Mn
+6EE	6EF	Lo
+6F0	6F9	Nd
+6FA	6FC	Lo
+6FD	6FE	So
+6FF		Lo
+700	70D	Po
+70F		Cf
+710		Lo
+711		Mn
+712	72F	Lo
+730	74A	Mn
+74D	7A5	Lo
+7A6	7B0	Mn
+7B1		Lo
+7C0	7C9	Nd
+7CA	7EA	Lo
+7EB	7F3	Mn
+7F4	7F5	Lm
+7F6		So
+7F7	7F9	Po
+7FA		Lm
+800	815	Lo
+816	819	Mn
+81A		Lm
+81B	823	Mn
+824		Lm
+825	827	Mn
+828		Lm
+829	82D	Mn
+830	83E	Po
+840	858	Lo
+859	85B	Mn
+85E		Po
+860	86A	Lo
+8A0	8B4	Lo
+8B6	8BD	Lo
+8D4	8E1	Mn
+8E2		Cf
+8E3	902	Mn
+903		Mc
+904	939	Lo
+93A		Mn
+93B		Mc
+93C		Mn
+93D		Lo
+93E	940	Mc
+941	948	Mn
+949	94C	Mc
+94D		Mn
+94E	94F	Mc
+950		Lo
+951	957	Mn
+958	961	Lo
+962	963	Mn
+964	965	Po
+966	96F	Nd
+970		Po
+971		Lm
+972	980	Lo
+981		Mn
+982	983	Mc
+985	98C	Lo
+98F	990	Lo
+993	9A8	Lo
+9AA	9B0	Lo
+9B2		Lo
+9B6	9B9	Lo
+9BC		Mn
+9BD		Lo
+9BE	9C0	Mc
+9C1	9C4	Mn
+9C7	9C8	Mc
+9CB	9CC	Mc
+9CD		Mn
+9CE		Lo
+9D7		Mc
+9DC	9DD	Lo
+9DF	9E1	Lo
+9E2	9E3	Mn
+9E6	9EF	Nd
+9F0	9F1	Lo
+9F2	9F3	Sc
+9F4	9F9	No
+9FA		So
+9FB		Sc
+9FC		Lo
+9FD		Po
+A01	A02	Mn
+A03		Mc
+A05	A0A	Lo
+A0F	A10	Lo
+A13	A28	Lo
+A2A	A30	Lo
+A32	A33	Lo
+A35	A36	Lo
+A38	A39	Lo
+A3C		Mn
+A3E	A40	Mc
+A41	A42	Mn
+A47	A48	Mn
+A4B	A4D	Mn
+A51		Mn
+A59	A5C	Lo
+A5E		Lo
+A66	A6F	Nd
+A70	A71	Mn
+A72	A74	Lo
+A75		Mn
+A81	A82	Mn
+A83		Mc
+A85	A8D	Lo
+A8F	A91	Lo
+A93	AA8	Lo
+AAA	AB0	Lo
+AB2	AB3	Lo
+AB5	AB9	Lo
+ABC		Mn
+ABD		Lo
+ABE	AC0	Mc
+AC1	AC5	Mn
+AC7	AC8	Mn
+AC9		Mc
+ACB	ACC	Mc
+ACD		Mn
+AD0		Lo
+AE0	AE1	Lo
+AE2	AE3	Mn
+AE6	AEF	Nd
+AF0		Po
+AF1		Sc
+AF9		Lo
+AFA	AFF	Mn
+B01		Mn
+B02	B03	Mc
+B05	B0C	Lo
+B0F	B10	Lo
+B13	B28	Lo
+B2A	B30	Lo
+B32	B33	Lo
+B35	B39	Lo
+B3C		Mn
+B3D		Lo
+B3E		Mc
+B3F		Mn
+B40		Mc
+B41	B44	Mn
+B47	B48	Mc
+B4B	B4C	Mc
+B4D		Mn
+B56		Mn
+B57		Mc
+B5C	B5D	Lo
+B5F	B61	Lo
+B62	B63	Mn
+B66	B6F	Nd
+B70		So
+B71		Lo
+B72	B77	No
+B82		Mn
+B83		Lo
+B85	B8A	Lo
+B8E	B90	Lo
+B92	B95	Lo
+B99	B9A	Lo
+B9C		Lo
+B9E	B9F	Lo
+BA3	BA4	Lo
+BA8	BAA	Lo
+BAE	BB9	Lo
+BBE	BBF	Mc
+BC0		Mn
+BC1	BC2	Mc
+BC6	BC8	Mc
+BCA	BCC	Mc
+BCD		Mn
+BD0		Lo
+BD7		Mc
+BE6	BEF	Nd
+BF0	BF2	No
+BF3	BF8	So
+BF9		Sc
+BFA		So
+C00		Mn
+C01	C03	Mc
+C05	C0C	Lo
+C0E	C10	Lo
+C12	C28	Lo
+C2A	C39	Lo
+C3D		Lo
+C3E	C40	Mn
+C41	C44	Mc
+C46	C48	Mn
+C4A	C4D	Mn
+C55	C56	Mn
+C58	C5A	Lo
+C60	C61	Lo
+C62	C63	Mn
+C66	C6F	Nd
+C78	C7E	No
+C7F		So
+C80		Lo
+C81		Mn
+C82	C83	Mc
+C85	C8C	Lo
+C8E	C90	Lo
+C92	CA8	Lo
+CAA	CB3	Lo
+CB5	CB9	Lo
+CBC		Mn
+CBD		Lo
+CBE		Mc
+CBF		Mn
+CC0	CC4	Mc
+CC6		Mn
+CC7	CC8	Mc
+CCA	CCB	Mc
+CCC	CCD	Mn
+CD5	CD6	Mc
+CDE		Lo
+CE0	CE1	Lo
+CE2	CE3	Mn
+CE6	CEF	Nd
+CF1	CF2	Lo
+D00	D01	Mn
+D02	D03	Mc
+D05	D0C	Lo
+D0E	D10	Lo
+D12	D3A	Lo
+D3B	D3C	Mn
+D3D		Lo
+D3E	D40	Mc
+D41	D44	Mn
+D46	D48	Mc
+D4A	D4C	Mc
+D4D		Mn
+D4E		Lo
+D4F		So
+D54	D56	Lo
+D57		Mc
+D58	D5E	No
+D5F	D61	Lo
+D62	D63	Mn
+D66	D6F	Nd
+D70	D78	No
+D79		So
+D7A	D7F	Lo
+D82	D83	Mc
+D85	D96	Lo
+D9A	DB1	Lo
+DB3	DBB	Lo
+DBD		Lo
+DC0	DC6	Lo
+DCA		Mn
+DCF	DD1	Mc
+DD2	DD4	Mn
+DD6		Mn
+DD8	DDF	Mc
+DE6	DEF	Nd
+DF2	DF3	Mc
+DF4		Po
+E01	E30	Lo
+E31		Mn
+E32	E33	Lo
+E34	E3A	Mn
+E3F		Sc
+E40	E45	Lo
+E46		Lm
+E47	E4E	Mn
+E4F		Po
+E50	E59	Nd
+E5A	E5B	Po
+E81	E82	Lo
+E84		Lo
+E87	E88	Lo
+E8A		Lo
+E8D		Lo
+E94	E97	Lo
+E99	E9F	Lo
+EA1	EA3	Lo
+EA5		Lo
+EA7		Lo
+EAA	EAB	Lo
+EAD	EB0	Lo
+EB1		Mn
+EB2	EB3	Lo
+EB4	EB9	Mn
+EBB	EBC	Mn
+EBD		Lo
+EC0	EC4	Lo
+EC6		Lm
+EC8	ECD	Mn
+ED0	ED9	Nd
+EDC	EDF	Lo
+F00		Lo
+F01	F03	So
+F04	F12	Po
+F13		So
+F14		Po
+F15	F17	So
+F18	F19	Mn
+F1A	F1F	So
+F20	F29	Nd
+F2A	F33	No
+F34		So
+F35		Mn
+F36		So
+F37		Mn
+F38		So
+F39		Mn
+F3A		Ps
+F3B		Pe
+F3C		Ps
+F3D		Pe
+F3E	F3F	Mc
+F40	F47	Lo
+F49	F6C	Lo
+F71	F7E	Mn
+F7F		Mc
+F80	F84	Mn
+F85		Po
+F86	F87	Mn
+F88	F8C	Lo
+F8D	F97	Mn
+F99	FBC	Mn
+FBE	FC5	So
+FC6		Mn
+FC7	FCC	So
+FCE	FCF	So
+FD0	FD4	Po
+FD5	FD8	So
+FD9	FDA	Po
+1000	102A	Lo
+102B	102C	Mc
+102D	1030	Mn
+1031		Mc
+1032	1037	Mn
+1038		Mc
+1039	103A	Mn
+103B	103C	Mc
+103D	103E	Mn
+103F		Lo
+1040	1049	Nd
+104A	104F	Po
+1050	1055	Lo
+1056	1057	Mc
+1058	1059	Mn
+105A	105D	Lo
+105E	1060	Mn
+1061		Lo
+1062	1064	Mc
+1065	1066	Lo
+1067	106D	Mc
+106E	1070	Lo
+1071	1074	Mn
+1075	1081	Lo
+1082		Mn
+1083	1084	Mc
+1085	1086	Mn
+1087	108C	Mc
+108D		Mn
+108E		Lo
+108F		Mc
+1090	1099	Nd
+109A	109C	Mc
+109D		Mn
+109E	109F	So
+10A0	10C5	Lu
+10C7		Lu
+10CD		Lu
+10D0	10FA	Lo
+10FB		Po
+10FC		Lm
+10FD	1248	Lo
+124A	124D	Lo
+1250	1256	Lo
+1258		Lo
+125A	125D	Lo
+1260	1288	Lo
+128A	128D	Lo
+1290	12B0	Lo
+12B2	12B5	Lo
+12B8	12BE	Lo
+12C0		Lo
+12C2	12C5	Lo
+12C8	12D6	Lo
+12D8	1310	Lo
+1312	1315	Lo
+1318	135A	Lo
+135D	135F	Mn
+1360	1368	Po
+1369	137C	No
+1380	138F	Lo
+1390	1399	So
+13A0	13F5	Lu
+13F8	13FD	Ll
+1400		Pd
+1401	166C	Lo
+166D	166E	Po
+166F	167F	Lo
+1680		Zs
+1681	169A	Lo
+169B		Ps
+169C		Pe
+16A0	16EA	Lo
+16EB	16ED	Po
+16EE	16F0	Nl
+16F1	16F8	Lo
+1700	170C	Lo
+170E	1711	Lo
+1712	1714	Mn
+1720	1731	Lo
+1732	1734	Mn
+1735	1736	Po
+1740	1751	Lo
+1752	1753	Mn
+1760	176C	Lo
+176E	1770	Lo
+1772	1773	Mn
+1780	17B3	Lo
+17B4	17B5	Mn
+17B6		Mc
+17B7	17BD	Mn
+17BE	17C5	Mc
+17C6		Mn
+17C7	17C8	Mc
+17C9	17D3	Mn
+17D4	17D6	Po
+17D7		Lm
+17D8	17DA	Po
+17DB		Sc
+17DC		Lo
+17DD		Mn
+17E0	17E9	Nd
+17F0	17F9	No
+1800	1805	Po
+1806		Pd
+1807	180A	Po
+180B	180D	Mn
+180E		Cf
+1810	1819	Nd
+1820	1842	Lo
+1843		Lm
+1844	1877	Lo
+1880	1884	Lo
+1885	1886	Mn
+1887	18A8	Lo
+18A9		Mn
+18AA		Lo
+18B0	18F5	Lo
+1900	191E	Lo
+1920	1922	Mn
+1923	1926	Mc
+1927	1928	Mn
+1929	192B	Mc
+1930	1931	Mc
+1932		Mn
+1933	1938	Mc
+1939	193B	Mn
+1940		So
+1944	1945	Po
+1946	194F	Nd
+1950	196D	Lo
+1970	1974	Lo
+1980	19AB	Lo
+19B0	19C9	Lo
+19D0	19D9	Nd
+19DA		No
+19DE	19FF	So
+1A00	1A16	Lo
+1A17	1A18	Mn
+1A19	1A1A	Mc
+1A1B		Mn
+1A1E	1A1F	Po
+1A20	1A54	Lo
+1A55		Mc
+1A56		Mn
+1A57		Mc
+1A58	1A5E	Mn
+1A60		Mn
+1A61		Mc
+1A62		Mn
+1A63	1A64	Mc
+1A65	1A6C	Mn
+1A6D	1A72	Mc
+1A73	1A7C	Mn
+1A7F		Mn
+1A80	1A89	Nd
+1A90	1A99	Nd
+1AA0	1AA6	Po
+1AA7		Lm
+1AA8	1AAD	Po
+1AB0	1ABD	Mn
+1ABE		Me
+1B00	1B03	Mn
+1B04		Mc
+1B05	1B33	Lo
+1B34		Mn
+1B35		Mc
+1B36	1B3A	Mn
+1B3B		Mc
+1B3C		Mn
+1B3D	1B41	Mc
+1B42		Mn
+1B43	1B44	Mc
+1B45	1B4B	Lo
+1B50	1B59	Nd
+1B5A	1B60	Po
+1B61	1B6A	So
+1B6B	1B73	Mn
+1B74	1B7C	So
+1B80	1B81	Mn
+1B82		Mc
+1B83	1BA0	Lo
+1BA1		Mc
+1BA2	1BA5	Mn
+1BA6	1BA7	Mc
+1BA8	1BA9	Mn
+1BAA		Mc
+1BAB	1BAD	Mn
+1BAE	1BAF	Lo
+1BB0	1BB9	Nd
+1BBA	1BE5	Lo
+1BE6		Mn
+1BE7		Mc
+1BE8	1BE9	Mn
+1BEA	1BEC	Mc
+1BED		Mn
+1BEE		Mc
+1BEF	1BF1	Mn
+1BF2	1BF3	Mc
+1BFC	1BFF	Po
+1C00	1C23	Lo
+1C24	1C2B	Mc
+1C2C	1C33	Mn
+1C34	1C35	Mc
+1C36	1C37	Mn
+1C3B	1C3F	Po
+1C40	1C49	Nd
+1C4D	1C4F	Lo
+1C50	1C59	Nd
+1C5A	1C77	Lo
+1C78	1C7D	Lm
+1C7E	1C7F	Po
+1C80	1C88	Ll
+1CC0	1CC7	Po
+1CD0	1CD2	Mn
+1CD3		Po
+1CD4	1CE0	Mn
+1CE1		Mc
+1CE2	1CE8	Mn
+1CE9	1CEC	Lo
+1CED		Mn
+1CEE	1CF1	Lo
+1CF2	1CF3	Mc
+1CF4		Mn
+1CF5	1CF6	Lo
+1CF7		Mc
+1CF8	1CF9	Mn
+1D00	1D2B	Ll
+1D2C	1D6A	Lm
+1D6B	1D77	Ll
+1D78		Lm
+1D79	1D9A	Ll
+1D9B	1DBF	Lm
+1DC0	1DF9	Mn
+1DFB	1DFF	Mn
+1E00		Lu
+1E01		Ll
+1E02		Lu
+1E03		Ll
+1E04		Lu
+1E05		Ll
+1E06		Lu
+1E07		Ll
+1E08		Lu
+1E09		Ll
+1E0A		Lu
+1E0B		Ll
+1E0C		Lu
+1E0D		Ll
+1E0E		Lu
+1E0F		Ll
+1E10		Lu
+1E11		Ll
+1E12		Lu
+1E13		Ll
+1E14		Lu
+1E15		Ll
+1E16		Lu
+1E17		Ll
+1E18		Lu
+1E19		Ll
+1E1A		Lu
+1E1B		Ll
+1E1C		Lu
+1E1D		Ll
+1E1E		Lu
+1E1F		Ll
+1E20		Lu
+1E21		Ll
+1E22		Lu
+1E23		Ll
+1E24		Lu
+1E25		Ll
+1E26		Lu
+1E27		Ll
+1E28		Lu
+1E29		Ll
+1E2A		Lu
+1E2B		Ll
+1E2C		Lu
+1E2D		Ll
+1E2E		Lu
+1E2F		Ll
+1E30		Lu
+1E31		Ll
+1E32		Lu
+1E33		Ll
+1E34		Lu
+1E35		Ll
+1E36		Lu
+1E37		Ll
+1E38		Lu
+1E39		Ll
+1E3A		Lu
+1E3B		Ll
+1E3C		Lu
+1E3D		Ll
+1E3E		Lu
+1E3F		Ll
+1E40		Lu
+1E41		Ll
+1E42		Lu
+1E43		Ll
+1E44		Lu
+1E45		Ll
+1E46		Lu
+1E47		Ll
+1E48		Lu
+1E49		Ll
+1E4A		Lu
+1E4B		Ll
+1E4C		Lu
+1E4D		Ll
+1E4E		Lu
+1E4F		Ll
+1E50		Lu
+1E51		Ll
+1E52		Lu
+1E53		Ll
+1E54		Lu
+1E55		Ll
+1E56		Lu
+1E57		Ll
+1E58		Lu
+1E59		Ll
+1E5A		Lu
+1E5B		Ll
+1E5C		Lu
+1E5D		Ll
+1E5E		Lu
+1E5F		Ll
+1E60		Lu
+1E61		Ll
+1E62		Lu
+1E63		Ll
+1E64		Lu
+1E65		Ll
+1E66		Lu
+1E67		Ll
+1E68		Lu
+1E69		Ll
+1E6A		Lu
+1E6B		Ll
+1E6C		Lu
+1E6D		Ll
+1E6E		Lu
+1E6F		Ll
+1E70		Lu
+1E71		Ll
+1E72		Lu
+1E73		Ll
+1E74		Lu
+1E75		Ll
+1E76		Lu
+1E77		Ll
+1E78		Lu
+1E79		Ll
+1E7A		Lu
+1E7B		Ll
+1E7C		Lu
+1E7D		Ll
+1E7E		Lu
+1E7F		Ll
+1E80		Lu
+1E81		Ll
+1E82		Lu
+1E83		Ll
+1E84		Lu
+1E85		Ll
+1E86		Lu
+1E87		Ll
+1E88		Lu
+1E89		Ll
+1E8A		Lu
+1E8B		Ll
+1E8C		Lu
+1E8D		Ll
+1E8E		Lu
+1E8F		Ll
+1E90		Lu
+1E91		Ll
+1E92		Lu
+1E93		Ll
+1E94		Lu
+1E95	1E9D	Ll
+1E9E		Lu
+1E9F		Ll
+1EA0		Lu
+1EA1		Ll
+1EA2		Lu
+1EA3		Ll
+1EA4		Lu
+1EA5		Ll
+1EA6		Lu
+1EA7		Ll
+1EA8		Lu
+1EA9		Ll
+1EAA		Lu
+1EAB		Ll
+1EAC		Lu
+1EAD		Ll
+1EAE		Lu
+1EAF		Ll
+1EB0		Lu
+1EB1		Ll
+1EB2		Lu
+1EB3		Ll
+1EB4		Lu
+1EB5		Ll
+1EB6		Lu
+1EB7		Ll
+1EB8		Lu
+1EB9		Ll
+1EBA		Lu
+1EBB		Ll
+1EBC		Lu
+1EBD		Ll
+1EBE		Lu
+1EBF		Ll
+1EC0		Lu
+1EC1		Ll
+1EC2		Lu
+1EC3		Ll
+1EC4		Lu
+1EC5		Ll
+1EC6		Lu
+1EC7		Ll
+1EC8		Lu
+1EC9		Ll
+1ECA		Lu
+1ECB		Ll
+1ECC		Lu
+1ECD		Ll
+1ECE		Lu
+1ECF		Ll
+1ED0		Lu
+1ED1		Ll
+1ED2		Lu
+1ED3		Ll
+1ED4		Lu
+1ED5		Ll
+1ED6		Lu
+1ED7		Ll
+1ED8		Lu
+1ED9		Ll
+1EDA		Lu
+1EDB		Ll
+1EDC		Lu
+1EDD		Ll
+1EDE		Lu
+1EDF		Ll
+1EE0		Lu
+1EE1		Ll
+1EE2		Lu
+1EE3		Ll
+1EE4		Lu
+1EE5		Ll
+1EE6		Lu
+1EE7		Ll
+1EE8		Lu
+1EE9		Ll
+1EEA		Lu
+1EEB		Ll
+1EEC		Lu
+1EED		Ll
+1EEE		Lu
+1EEF		Ll
+1EF0		Lu
+1EF1		Ll
+1EF2		Lu
+1EF3		Ll
+1EF4		Lu
+1EF5		Ll
+1EF6		Lu
+1EF7		Ll
+1EF8		Lu
+1EF9		Ll
+1EFA		Lu
+1EFB		Ll
+1EFC		Lu
+1EFD		Ll
+1EFE		Lu
+1EFF	1F07	Ll
+1F08	1F0F	Lu
+1F10	1F15	Ll
+1F18	1F1D	Lu
+1F20	1F27	Ll
+1F28	1F2F	Lu
+1F30	1F37	Ll
+1F38	1F3F	Lu
+1F40	1F45	Ll
+1F48	1F4D	Lu
+1F50	1F57	Ll
+1F59		Lu
+1F5B		Lu
+1F5D		Lu
+1F5F		Lu
+1F60	1F67	Ll
+1F68	1F6F	Lu
+1F70	1F7D	Ll
+1F80	1F87	Ll
+1F88	1F8F	Lt
+1F90	1F97	Ll
+1F98	1F9F	Lt
+1FA0	1FA7	Ll
+1FA8	1FAF	Lt
+1FB0	1FB4	Ll
+1FB6	1FB7	Ll
+1FB8	1FBB	Lu
+1FBC		Lt
+1FBD		Sk
+1FBE		Ll
+1FBF	1FC1	Sk
+1FC2	1FC4	Ll
+1FC6	1FC7	Ll
+1FC8	1FCB	Lu
+1FCC		Lt
+1FCD	1FCF	Sk
+1FD0	1FD3	Ll
+1FD6	1FD7	Ll
+1FD8	1FDB	Lu
+1FDD	1FDF	Sk
+1FE0	1FE7	Ll
+1FE8	1FEC	Lu
+1FED	1FEF	Sk
+1FF2	1FF4	Ll
+1FF6	1FF7	Ll
+1FF8	1FFB	Lu
+1FFC		Lt
+1FFD	1FFE	Sk
+2000	200A	Zs
+200B	200F	Cf
+2010	2015	Pd
+2016	2017	Po
+2018		Pi
+2019		Pf
+201A		Ps
+201B	201C	Pi
+201D		Pf
+201E		Ps
+201F		Pi
+2020	2027	Po
+2028		Zl
+2029		Zp
+202A	202E	Cf
+202F		Zs
+2030	2038	Po
+2039		Pi
+203A		Pf
+203B	203E	Po
+203F	2040	Pc
+2041	2043	Po
+2044		Sm
+2045		Ps
+2046		Pe
+2047	2051	Po
+2052		Sm
+2053		Po
+2054		Pc
+2055	205E	Po
+205F		Zs
+2060	2064	Cf
+2066	206F	Cf
+2070		No
+2071		Lm
+2074	2079	No
+207A	207C	Sm
+207D		Ps
+207E		Pe
+207F		Lm
+2080	2089	No
+208A	208C	Sm
+208D		Ps
+208E		Pe
+2090	209C	Lm
+20A0	20BF	Sc
+20D0	20DC	Mn
+20DD	20E0	Me
+20E1		Mn
+20E2	20E4	Me
+20E5	20F0	Mn
+2100	2101	So
+2102		Lu
+2103	2106	So
+2107		Lu
+2108	2109	So
+210A		Ll
+210B	210D	Lu
+210E	210F	Ll
+2110	2112	Lu
+2113		Ll
+2114		So
+2115		Lu
+2116	2117	So
+2118		Sm
+2119	211D	Lu
+211E	2123	So
+2124		Lu
+2125		So
+2126		Lu
+2127		So
+2128		Lu
+2129		So
+212A	212D	Lu
+212E		So
+212F		Ll
+2130	2133	Lu
+2134		Ll
+2135	2138	Lo
+2139		Ll
+213A	213B	So
+213C	213D	Ll
+213E	213F	Lu
+2140	2144	Sm
+2145		Lu
+2146	2149	Ll
+214A		So
+214B		Sm
+214C	214D	So
+214E		Ll
+214F		So
+2150	215F	No
+2160	2182	Nl
+2183		Lu
+2184		Ll
+2185	2188	Nl
+2189		No
+218A	218B	So
+2190	2194	Sm
+2195	2199	So
+219A	219B	Sm
+219C	219F	So
+21A0		Sm
+21A1	21A2	So
+21A3		Sm
+21A4	21A5	So
+21A6		Sm
+21A7	21AD	So
+21AE		Sm
+21AF	21CD	So
+21CE	21CF	Sm
+21D0	21D1	So
+21D2		Sm
+21D3		So
+21D4		Sm
+21D5	21F3	So
+21F4	22FF	Sm
+2300	2307	So
+2308		Ps
+2309		Pe
+230A		Ps
+230B		Pe
+230C	231F	So
+2320	2321	Sm
+2322	2328	So
+2329		Ps
+232A		Pe
+232B	237B	So
+237C		Sm
+237D	239A	So
+239B	23B3	Sm
+23B4	23DB	So
+23DC	23E1	Sm
+23E2	2426	So
+2440	244A	So
+2460	249B	No
+249C	24E9	So
+24EA	24FF	No
+2500	25B6	So
+25B7		Sm
+25B8	25C0	So
+25C1		Sm
+25C2	25F7	So
+25F8	25FF	Sm
+2600	266E	So
+266F		Sm
+2670	2767	So
+2768		Ps
+2769		Pe
+276A		Ps
+276B		Pe
+276C		Ps
+276D		Pe
+276E		Ps
+276F		Pe
+2770		Ps
+2771		Pe
+2772		Ps
+2773		Pe
+2774		Ps
+2775		Pe
+2776	2793	No
+2794	27BF	So
+27C0	27C4	Sm
+27C5		Ps
+27C6		Pe
+27C7	27E5	Sm
+27E6		Ps
+27E7		Pe
+27E8		Ps
+27E9		Pe
+27EA		Ps
+27EB		Pe
+27EC		Ps
+27ED		Pe
+27EE		Ps
+27EF		Pe
+27F0	27FF	Sm
+2800	28FF	So
+2900	2982	Sm
+2983		Ps
+2984		Pe
+2985		Ps
+2986		Pe
+2987		Ps
+2988		Pe
+2989		Ps
+298A		Pe
+298B		Ps
+298C		Pe
+298D		Ps
+298E		Pe
+298F		Ps
+2990		Pe
+2991		Ps
+2992		Pe
+2993		Ps
+2994		Pe
+2995		Ps
+2996		Pe
+2997		Ps
+2998		Pe
+2999	29D7	Sm
+29D8		Ps
+29D9		Pe
+29DA		Ps
+29DB		Pe
+29DC	29FB	Sm
+29FC		Ps
+29FD		Pe
+29FE	2AFF	Sm
+2B00	2B2F	So
+2B30	2B44	Sm
+2B45	2B46	So
+2B47	2B4C	Sm
+2B4D	2B73	So
+2B76	2B95	So
+2B98	2BB9	So
+2BBD	2BC8	So
+2BCA	2BD2	So
+2BEC	2BEF	So
+2C00	2C2E	Lu
+2C30	2C5E	Ll
+2C60		Lu
+2C61		Ll
+2C62	2C64	Lu
+2C65	2C66	Ll
+2C67		Lu
+2C68		Ll
+2C69		Lu
+2C6A		Ll
+2C6B		Lu
+2C6C		Ll
+2C6D	2C70	Lu
+2C71		Ll
+2C72		Lu
+2C73	2C74	Ll
+2C75		Lu
+2C76	2C7B	Ll
+2C7C	2C7D	Lm
+2C7E	2C80	Lu
+2C81		Ll
+2C82		Lu
+2C83		Ll
+2C84		Lu
+2C85		Ll
+2C86		Lu
+2C87		Ll
+2C88		Lu
+2C89		Ll
+2C8A		Lu
+2C8B		Ll
+2C8C		Lu
+2C8D		Ll
+2C8E		Lu
+2C8F		Ll
+2C90		Lu
+2C91		Ll
+2C92		Lu
+2C93		Ll
+2C94		Lu
+2C95		Ll
+2C96		Lu
+2C97		Ll
+2C98		Lu
+2C99		Ll
+2C9A		Lu
+2C9B		Ll
+2C9C		Lu
+2C9D		Ll
+2C9E		Lu
+2C9F		Ll
+2CA0		Lu
+2CA1		Ll
+2CA2		Lu
+2CA3		Ll
+2CA4		Lu
+2CA5		Ll
+2CA6		Lu
+2CA7		Ll
+2CA8		Lu
+2CA9		Ll
+2CAA		Lu
+2CAB		Ll
+2CAC		Lu
+2CAD		Ll
+2CAE		Lu
+2CAF		Ll
+2CB0		Lu
+2CB1		Ll
+2CB2		Lu
+2CB3		Ll
+2CB4		Lu
+2CB5		Ll
+2CB6		Lu
+2CB7		Ll
+2CB8		Lu
+2CB9		Ll
+2CBA		Lu
+2CBB		Ll
+2CBC		Lu
+2CBD		Ll
+2CBE		Lu
+2CBF		Ll
+2CC0		Lu
+2CC1		Ll
+2CC2		Lu
+2CC3		Ll
+2CC4		Lu
+2CC5		Ll
+2CC6		Lu
+2CC7		Ll
+2CC8		Lu
+2CC9		Ll
+2CCA		Lu
+2CCB		Ll
+2CCC		Lu
+2CCD		Ll
+2CCE		Lu
+2CCF		Ll
+2CD0		Lu
+2CD1		Ll
+2CD2		Lu
+2CD3		Ll
+2CD4		Lu
+2CD5		Ll
+2CD6		Lu
+2CD7		Ll
+2CD8		Lu
+2CD9		Ll
+2CDA		Lu
+2CDB		Ll
+2CDC		Lu
+2CDD		Ll
+2CDE		Lu
+2CDF		Ll
+2CE0		Lu
+2CE1		Ll
+2CE2		Lu
+2CE3	2CE4	Ll
+2CE5	2CEA	So
+2CEB		Lu
+2CEC		Ll
+2CED		Lu
+2CEE		Ll
+2CEF	2CF1	Mn
+2CF2		Lu
+2CF3		Ll
+2CF9	2CFC	Po
+2CFD		No
+2CFE	2CFF	Po
+2D00	2D25	Ll
+2D27		Ll
+2D2D		Ll
+2D30	2D67	Lo
+2D6F		Lm
+2D70		Po
+2D7F		Mn
+2D80	2D96	Lo
+2DA0	2DA6	Lo
+2DA8	2DAE	Lo
+2DB0	2DB6	Lo
+2DB8	2DBE	Lo
+2DC0	2DC6	Lo
+2DC8	2DCE	Lo
+2DD0	2DD6	Lo
+2DD8	2DDE	Lo
+2DE0	2DFF	Mn
+2E00	2E01	Po
+2E02		Pi
+2E03		Pf
+2E04		Pi
+2E05		Pf
+2E06	2E08	Po
+2E09		Pi
+2E0A		Pf
+2E0B		Po
+2E0C		Pi
+2E0D		Pf
+2E0E	2E16	Po
+2E17		Pd
+2E18	2E19	Po
+2E1A		Pd
+2E1B		Po
+2E1C		Pi
+2E1D		Pf
+2E1E	2E1F	Po
+2E20		Pi
+2E21		Pf
+2E22		Ps
+2E23		Pe
+2E24		Ps
+2E25		Pe
+2E26		Ps
+2E27		Pe
+2E28		Ps
+2E29		Pe
+2E2A	2E2E	Po
+2E2F		Lm
+2E30	2E39	Po
+2E3A	2E3B	Pd
+2E3C	2E3F	Po
+2E40		Pd
+2E41		Po
+2E42		Ps
+2E43	2E49	Po
+2E80	2E99	So
+2E9B	2EF3	So
+2F00	2FD5	So
+2FF0	2FFB	So
+3000		Zs
+3001	3003	Po
+3004		So
+3005		Lm
+3006		Lo
+3007		Nl
+3008		Ps
+3009		Pe
+300A		Ps
+300B		Pe
+300C		Ps
+300D		Pe
+300E		Ps
+300F		Pe
+3010		Ps
+3011		Pe
+3012	3013	So
+3014		Ps
+3015		Pe
+3016		Ps
+3017		Pe
+3018		Ps
+3019		Pe
+301A		Ps
+301B		Pe
+301C		Pd
+301D		Ps
+301E	301F	Pe
+3020		So
+3021	3029	Nl
+302A	302D	Mn
+302E	302F	Mc
+3030		Pd
+3031	3035	Lm
+3036	3037	So
+3038	303A	Nl
+303B		Lm
+303C		Lo
+303D		Po
+303E	303F	So
+3041	3096	Lo
+3099	309A	Mn
+309B	309C	Sk
+309D	309E	Lm
+309F		Lo
+30A0		Pd
+30A1	30FA	Lo
+30FB		Po
+30FC	30FE	Lm
+30FF		Lo
+3105	312E	Lo
+3131	318E	Lo
+3190	3191	So
+3192	3195	No
+3196	319F	So
+31A0	31BA	Lo
+31C0	31E3	So
+31F0	31FF	Lo
+3200	321E	So
+3220	3229	No
+322A	3247	So
+3248	324F	No
+3250		So
+3251	325F	No
+3260	327F	So
+3280	3289	No
+328A	32B0	So
+32B1	32BF	No
+32C0	32FE	So
+3300	33FF	So
+3400	4DB5	Lo
+4DC0	4DFF	So
+4E00	9FEA	Lo
+A000	A014	Lo
+A015		Lm
+A016	A48C	Lo
+A490	A4C6	So
+A4D0	A4F7	Lo
+A4F8	A4FD	Lm
+A4FE	A4FF	Po
+A500	A60B	Lo
+A60C		Lm
+A60D	A60F	Po
+A610	A61F	Lo
+A620	A629	Nd
+A62A	A62B	Lo
+A640		Lu
+A641		Ll
+A642		Lu
+A643		Ll
+A644		Lu
+A645		Ll
+A646		Lu
+A647		Ll
+A648		Lu
+A649		Ll
+A64A		Lu
+A64B		Ll
+A64C		Lu
+A64D		Ll
+A64E		Lu
+A64F		Ll
+A650		Lu
+A651		Ll
+A652		Lu
+A653		Ll
+A654		Lu
+A655		Ll
+A656		Lu
+A657		Ll
+A658		Lu
+A659		Ll
+A65A		Lu
+A65B		Ll
+A65C		Lu
+A65D		Ll
+A65E		Lu
+A65F		Ll
+A660		Lu
+A661		Ll
+A662		Lu
+A663		Ll
+A664		Lu
+A665		Ll
+A666		Lu
+A667		Ll
+A668		Lu
+A669		Ll
+A66A		Lu
+A66B		Ll
+A66C		Lu
+A66D		Ll
+A66E		Lo
+A66F		Mn
+A670	A672	Me
+A673		Po
+A674	A67D	Mn
+A67E		Po
+A67F		Lm
+A680		Lu
+A681		Ll
+A682		Lu
+A683		Ll
+A684		Lu
+A685		Ll
+A686		Lu
+A687		Ll
+A688		Lu
+A689		Ll
+A68A		Lu
+A68B		Ll
+A68C		Lu
+A68D		Ll
+A68E		Lu
+A68F		Ll
+A690		Lu
+A691		Ll
+A692		Lu
+A693		Ll
+A694		Lu
+A695		Ll
+A696		Lu
+A697		Ll
+A698		Lu
+A699		Ll
+A69A		Lu
+A69B		Ll
+A69C	A69D	Lm
+A69E	A69F	Mn
+A6A0	A6E5	Lo
+A6E6	A6EF	Nl
+A6F0	A6F1	Mn
+A6F2	A6F7	Po
+A700	A716	Sk
+A717	A71F	Lm
+A720	A721	Sk
+A722		Lu
+A723		Ll
+A724		Lu
+A725		Ll
+A726		Lu
+A727		Ll
+A728		Lu
+A729		Ll
+A72A		Lu
+A72B		Ll
+A72C		Lu
+A72D		Ll
+A72E		Lu
+A72F	A731	Ll
+A732		Lu
+A733		Ll
+A734		Lu
+A735		Ll
+A736		Lu
+A737		Ll
+A738		Lu
+A739		Ll
+A73A		Lu
+A73B		Ll
+A73C		Lu
+A73D		Ll
+A73E		Lu
+A73F		Ll
+A740		Lu
+A741		Ll
+A742		Lu
+A743		Ll
+A744		Lu
+A745		Ll
+A746		Lu
+A747		Ll
+A748		Lu
+A749		Ll
+A74A		Lu
+A74B		Ll
+A74C		Lu
+A74D		Ll
+A74E		Lu
+A74F		Ll
+A750		Lu
+A751		Ll
+A752		Lu
+A753		Ll
+A754		Lu
+A755		Ll
+A756		Lu
+A757		Ll
+A758		Lu
+A759		Ll
+A75A		Lu
+A75B		Ll
+A75C		Lu
+A75D		Ll
+A75E		Lu
+A75F		Ll
+A760		Lu
+A761		Ll
+A762		Lu
+A763		Ll
+A764		Lu
+A765		Ll
+A766		Lu
+A767		Ll
+A768		Lu
+A769		Ll
+A76A		Lu
+A76B		Ll
+A76C		Lu
+A76D		Ll
+A76E		Lu
+A76F		Ll
+A770		Lm
+A771	A778	Ll
+A779		Lu
+A77A		Ll
+A77B		Lu
+A77C		Ll
+A77D	A77E	Lu
+A77F		Ll
+A780		Lu
+A781		Ll
+A782		Lu
+A783		Ll
+A784		Lu
+A785		Ll
+A786		Lu
+A787		Ll
+A788		Lm
+A789	A78A	Sk
+A78B		Lu
+A78C		Ll
+A78D		Lu
+A78E		Ll
+A78F		Lo
+A790		Lu
+A791		Ll
+A792		Lu
+A793	A795	Ll
+A796		Lu
+A797		Ll
+A798		Lu
+A799		Ll
+A79A		Lu
+A79B		Ll
+A79C		Lu
+A79D		Ll
+A79E		Lu
+A79F		Ll
+A7A0		Lu
+A7A1		Ll
+A7A2		Lu
+A7A3		Ll
+A7A4		Lu
+A7A5		Ll
+A7A6		Lu
+A7A7		Ll
+A7A8		Lu
+A7A9		Ll
+A7AA	A7AE	Lu
+A7B0	A7B4	Lu
+A7B5		Ll
+A7B6		Lu
+A7B7		Ll
+A7F7		Lo
+A7F8	A7F9	Lm
+A7FA		Ll
+A7FB	A801	Lo
+A802		Mn
+A803	A805	Lo
+A806		Mn
+A807	A80A	Lo
+A80B		Mn
+A80C	A822	Lo
+A823	A824	Mc
+A825	A826	Mn
+A827		Mc
+A828	A82B	So
+A830	A835	No
+A836	A837	So
+A838		Sc
+A839		So
+A840	A873	Lo
+A874	A877	Po
+A880	A881	Mc
+A882	A8B3	Lo
+A8B4	A8C3	Mc
+A8C4	A8C5	Mn
+A8CE	A8CF	Po
+A8D0	A8D9	Nd
+A8E0	A8F1	Mn
+A8F2	A8F7	Lo
+A8F8	A8FA	Po
+A8FB		Lo
+A8FC		Po
+A8FD		Lo
+A900	A909	Nd
+A90A	A925	Lo
+A926	A92D	Mn
+A92E	A92F	Po
+A930	A946	Lo
+A947	A951	Mn
+A952	A953	Mc
+A95F		Po
+A960	A97C	Lo
+A980	A982	Mn
+A983		Mc
+A984	A9B2	Lo
+A9B3		Mn
+A9B4	A9B5	Mc
+A9B6	A9B9	Mn
+A9BA	A9BB	Mc
+A9BC		Mn
+A9BD	A9C0	Mc
+A9C1	A9CD	Po
+A9CF		Lm
+A9D0	A9D9	Nd
+A9DE	A9DF	Po
+A9E0	A9E4	Lo
+A9E5		Mn
+A9E6		Lm
+A9E7	A9EF	Lo
+A9F0	A9F9	Nd
+A9FA	A9FE	Lo
+AA00	AA28	Lo
+AA29	AA2E	Mn
+AA2F	AA30	Mc
+AA31	AA32	Mn
+AA33	AA34	Mc
+AA35	AA36	Mn
+AA40	AA42	Lo
+AA43		Mn
+AA44	AA4B	Lo
+AA4C		Mn
+AA4D		Mc
+AA50	AA59	Nd
+AA5C	AA5F	Po
+AA60	AA6F	Lo
+AA70		Lm
+AA71	AA76	Lo
+AA77	AA79	So
+AA7A		Lo
+AA7B		Mc
+AA7C		Mn
+AA7D		Mc
+AA7E	AAAF	Lo
+AAB0		Mn
+AAB1		Lo
+AAB2	AAB4	Mn
+AAB5	AAB6	Lo
+AAB7	AAB8	Mn
+AAB9	AABD	Lo
+AABE	AABF	Mn
+AAC0		Lo
+AAC1		Mn
+AAC2		Lo
+AADB	AADC	Lo
+AADD		Lm
+AADE	AADF	Po
+AAE0	AAEA	Lo
+AAEB		Mc
+AAEC	AAED	Mn
+AAEE	AAEF	Mc
+AAF0	AAF1	Po
+AAF2		Lo
+AAF3	AAF4	Lm
+AAF5		Mc
+AAF6		Mn
+AB01	AB06	Lo
+AB09	AB0E	Lo
+AB11	AB16	Lo
+AB20	AB26	Lo
+AB28	AB2E	Lo
+AB30	AB5A	Ll
+AB5B		Sk
+AB5C	AB5F	Lm
+AB60	AB65	Ll
+AB70	ABBF	Ll
+ABC0	ABE2	Lo
+ABE3	ABE4	Mc
+ABE5		Mn
+ABE6	ABE7	Mc
+ABE8		Mn
+ABE9	ABEA	Mc
+ABEB		Po
+ABEC		Mc
+ABED		Mn
+ABF0	ABF9	Nd
+AC00	D7A3	Lo
+D7B0	D7C6	Lo
+D7CB	D7FB	Lo
+D800	DFFF	Cs
+E000	F8FF	Co
+F900	FA6D	Lo
+FA70	FAD9	Lo
+FB00	FB06	Ll
+FB13	FB17	Ll
+FB1D		Lo
+FB1E		Mn
+FB1F	FB28	Lo
+FB29		Sm
+FB2A	FB36	Lo
+FB38	FB3C	Lo
+FB3E		Lo
+FB40	FB41	Lo
+FB43	FB44	Lo
+FB46	FBB1	Lo
+FBB2	FBC1	Sk
+FBD3	FD3D	Lo
+FD3E		Pe
+FD3F		Ps
+FD50	FD8F	Lo
+FD92	FDC7	Lo
+FDF0	FDFB	Lo
+FDFC		Sc
+FDFD		So
+FE00	FE0F	Mn
+FE10	FE16	Po
+FE17		Ps
+FE18		Pe
+FE19		Po
+FE20	FE2F	Mn
+FE30		Po
+FE31	FE32	Pd
+FE33	FE34	Pc
+FE35		Ps
+FE36		Pe
+FE37		Ps
+FE38		Pe
+FE39		Ps
+FE3A		Pe
+FE3B		Ps
+FE3C		Pe
+FE3D		Ps
+FE3E		Pe
+FE3F		Ps
+FE40		Pe
+FE41		Ps
+FE42		Pe
+FE43		Ps
+FE44		Pe
+FE45	FE46	Po
+FE47		Ps
+FE48		Pe
+FE49	FE4C	Po
+FE4D	FE4F	Pc
+FE50	FE52	Po
+FE54	FE57	Po
+FE58		Pd
+FE59		Ps
+FE5A		Pe
+FE5B		Ps
+FE5C		Pe
+FE5D		Ps
+FE5E		Pe
+FE5F	FE61	Po
+FE62		Sm
+FE63		Pd
+FE64	FE66	Sm
+FE68		Po
+FE69		Sc
+FE6A	FE6B	Po
+FE70	FE74	Lo
+FE76	FEFC	Lo
+FEFF		Cf
+FF01	FF03	Po
+FF04		Sc
+FF05	FF07	Po
+FF08		Ps
+FF09		Pe
+FF0A		Po
+FF0B		Sm
+FF0C		Po
+FF0D		Pd
+FF0E	FF0F	Po
+FF10	FF19	Nd
+FF1A	FF1B	Po
+FF1C	FF1E	Sm
+FF1F	FF20	Po
+FF21	FF3A	Lu
+FF3B		Ps
+FF3C		Po
+FF3D		Pe
+FF3E		Sk
+FF3F		Pc
+FF40		Sk
+FF41	FF5A	Ll
+FF5B		Ps
+FF5C		Sm
+FF5D		Pe
+FF5E		Sm
+FF5F		Ps
+FF60		Pe
+FF61		Po
+FF62		Ps
+FF63		Pe
+FF64	FF65	Po
+FF66	FF6F	Lo
+FF70		Lm
+FF71	FF9D	Lo
+FF9E	FF9F	Lm
+FFA0	FFBE	Lo
+FFC2	FFC7	Lo
+FFCA	FFCF	Lo
+FFD2	FFD7	Lo
+FFDA	FFDC	Lo
+FFE0	FFE1	Sc
+FFE2		Sm
+FFE3		Sk
+FFE4		So
+FFE5	FFE6	Sc
+FFE8		So
+FFE9	FFEC	Sm
+FFED	FFEE	So
+FFF9	FFFB	Cf
+FFFC	FFFD	So
+10000	1000B	Lo
+1000D	10026	Lo
+10028	1003A	Lo
+1003C	1003D	Lo
+1003F	1004D	Lo
+10050	1005D	Lo
+10080	100FA	Lo
+10100	10102	Po
+10107	10133	No
+10137	1013F	So
+10140	10174	Nl
+10175	10178	No
+10179	10189	So
+1018A	1018B	No
+1018C	1018E	So
+10190	1019B	So
+101A0		So
+101D0	101FC	So
+101FD		Mn
+10280	1029C	Lo
+102A0	102D0	Lo
+102E0		Mn
+102E1	102FB	No
+10300	1031F	Lo
+10320	10323	No
+1032D	10340	Lo
+10341		Nl
+10342	10349	Lo
+1034A		Nl
+10350	10375	Lo
+10376	1037A	Mn
+10380	1039D	Lo
+1039F		Po
+103A0	103C3	Lo
+103C8	103CF	Lo
+103D0		Po
+103D1	103D5	Nl
+10400	10427	Lu
+10428	1044F	Ll
+10450	1049D	Lo
+104A0	104A9	Nd
+104B0	104D3	Lu
+104D8	104FB	Ll
+10500	10527	Lo
+10530	10563	Lo
+1056F		Po
+10600	10736	Lo
+10740	10755	Lo
+10760	10767	Lo
+10800	10805	Lo
+10808		Lo
+1080A	10835	Lo
+10837	10838	Lo
+1083C		Lo
+1083F	10855	Lo
+10857		Po
+10858	1085F	No
+10860	10876	Lo
+10877	10878	So
+10879	1087F	No
+10880	1089E	Lo
+108A7	108AF	No
+108E0	108F2	Lo
+108F4	108F5	Lo
+108FB	108FF	No
+10900	10915	Lo
+10916	1091B	No
+1091F		Po
+10920	10939	Lo
+1093F		Po
+10980	109B7	Lo
+109BC	109BD	No
+109BE	109BF	Lo
+109C0	109CF	No
+109D2	109FF	No
+10A00		Lo
+10A01	10A03	Mn
+10A05	10A06	Mn
+10A0C	10A0F	Mn
+10A10	10A13	Lo
+10A15	10A17	Lo
+10A19	10A33	Lo
+10A38	10A3A	Mn
+10A3F		Mn
+10A40	10A47	No
+10A50	10A58	Po
+10A60	10A7C	Lo
+10A7D	10A7E	No
+10A7F		Po
+10A80	10A9C	Lo
+10A9D	10A9F	No
+10AC0	10AC7	Lo
+10AC8		So
+10AC9	10AE4	Lo
+10AE5	10AE6	Mn
+10AEB	10AEF	No
+10AF0	10AF6	Po
+10B00	10B35	Lo
+10B39	10B3F	Po
+10B40	10B55	Lo
+10B58	10B5F	No
+10B60	10B72	Lo
+10B78	10B7F	No
+10B80	10B91	Lo
+10B99	10B9C	Po
+10BA9	10BAF	No
+10C00	10C48	Lo
+10C80	10CB2	Lu
+10CC0	10CF2	Ll
+10CFA	10CFF	No
+10E60	10E7E	No
+11000		Mc
+11001		Mn
+11002		Mc
+11003	11037	Lo
+11038	11046	Mn
+11047	1104D	Po
+11052	11065	No
+11066	1106F	Nd
+1107F	11081	Mn
+11082		Mc
+11083	110AF	Lo
+110B0	110B2	Mc
+110B3	110B6	Mn
+110B7	110B8	Mc
+110B9	110BA	Mn
+110BB	110BC	Po
+110BD		Cf
+110BE	110C1	Po
+110D0	110E8	Lo
+110F0	110F9	Nd
+11100	11102	Mn
+11103	11126	Lo
+11127	1112B	Mn
+1112C		Mc
+1112D	11134	Mn
+11136	1113F	Nd
+11140	11143	Po
+11150	11172	Lo
+11173		Mn
+11174	11175	Po
+11176		Lo
+11180	11181	Mn
+11182		Mc
+11183	111B2	Lo
+111B3	111B5	Mc
+111B6	111BE	Mn
+111BF	111C0	Mc
+111C1	111C4	Lo
+111C5	111C9	Po
+111CA	111CC	Mn
+111CD		Po
+111D0	111D9	Nd
+111DA		Lo
+111DB		Po
+111DC		Lo
+111DD	111DF	Po
+111E1	111F4	No
+11200	11211	Lo
+11213	1122B	Lo
+1122C	1122E	Mc
+1122F	11231	Mn
+11232	11233	Mc
+11234		Mn
+11235		Mc
+11236	11237	Mn
+11238	1123D	Po
+1123E		Mn
+11280	11286	Lo
+11288		Lo
+1128A	1128D	Lo
+1128F	1129D	Lo
+1129F	112A8	Lo
+112A9		Po
+112B0	112DE	Lo
+112DF		Mn
+112E0	112E2	Mc
+112E3	112EA	Mn
+112F0	112F9	Nd
+11300	11301	Mn
+11302	11303	Mc
+11305	1130C	Lo
+1130F	11310	Lo
+11313	11328	Lo
+1132A	11330	Lo
+11332	11333	Lo
+11335	11339	Lo
+1133C		Mn
+1133D		Lo
+1133E	1133F	Mc
+11340		Mn
+11341	11344	Mc
+11347	11348	Mc
+1134B	1134D	Mc
+11350		Lo
+11357		Mc
+1135D	11361	Lo
+11362	11363	Mc
+11366	1136C	Mn
+11370	11374	Mn
+11400	11434	Lo
+11435	11437	Mc
+11438	1143F	Mn
+11440	11441	Mc
+11442	11444	Mn
+11445		Mc
+11446		Mn
+11447	1144A	Lo
+1144B	1144F	Po
+11450	11459	Nd
+1145B		Po
+1145D		Po
+11480	114AF	Lo
+114B0	114B2	Mc
+114B3	114B8	Mn
+114B9		Mc
+114BA		Mn
+114BB	114BE	Mc
+114BF	114C0	Mn
+114C1		Mc
+114C2	114C3	Mn
+114C4	114C5	Lo
+114C6		Po
+114C7		Lo
+114D0	114D9	Nd
+11580	115AE	Lo
+115AF	115B1	Mc
+115B2	115B5	Mn
+115B8	115BB	Mc
+115BC	115BD	Mn
+115BE		Mc
+115BF	115C0	Mn
+115C1	115D7	Po
+115D8	115DB	Lo
+115DC	115DD	Mn
+11600	1162F	Lo
+11630	11632	Mc
+11633	1163A	Mn
+1163B	1163C	Mc
+1163D		Mn
+1163E		Mc
+1163F	11640	Mn
+11641	11643	Po
+11644		Lo
+11650	11659	Nd
+11660	1166C	Po
+11680	116AA	Lo
+116AB		Mn
+116AC		Mc
+116AD		Mn
+116AE	116AF	Mc
+116B0	116B5	Mn
+116B6		Mc
+116B7		Mn
+116C0	116C9	Nd
+11700	11719	Lo
+1171D	1171F	Mn
+11720	11721	Mc
+11722	11725	Mn
+11726		Mc
+11727	1172B	Mn
+11730	11739	Nd
+1173A	1173B	No
+1173C	1173E	Po
+1173F		So
+118A0	118BF	Lu
+118C0	118DF	Ll
+118E0	118E9	Nd
+118EA	118F2	No
+118FF		Lo
+11A00		Lo
+11A01	11A06	Mn
+11A07	11A08	Mc
+11A09	11A0A	Mn
+11A0B	11A32	Lo
+11A33	11A38	Mn
+11A39		Mc
+11A3A		Lo
+11A3B	11A3E	Mn
+11A3F	11A46	Po
+11A47		Mn
+11A50		Lo
+11A51	11A56	Mn
+11A57	11A58	Mc
+11A59	11A5B	Mn
+11A5C	11A83	Lo
+11A86	11A89	Lo
+11A8A	11A96	Mn
+11A97		Mc
+11A98	11A99	Mn
+11A9A	11A9C	Po
+11A9E	11AA2	Po
+11AC0	11AF8	Lo
+11C00	11C08	Lo
+11C0A	11C2E	Lo
+11C2F		Mc
+11C30	11C36	Mn
+11C38	11C3D	Mn
+11C3E		Mc
+11C3F		Mn
+11C40		Lo
+11C41	11C45	Po
+11C50	11C59	Nd
+11C5A	11C6C	No
+11C70	11C71	Po
+11C72	11C8F	Lo
+11C92	11CA7	Mn
+11CA9		Mc
+11CAA	11CB0	Mn
+11CB1		Mc
+11CB2	11CB3	Mn
+11CB4		Mc
+11CB5	11CB6	Mn
+11D00	11D06	Lo
+11D08	11D09	Lo
+11D0B	11D30	Lo
+11D31	11D36	Mn
+11D3A		Mn
+11D3C	11D3D	Mn
+11D3F	11D45	Mn
+11D46		Lo
+11D47		Mn
+11D50	11D59	Nd
+12000	12399	Lo
+12400	1246E	Nl
+12470	12474	Po
+12480	12543	Lo
+13000	1342E	Lo
+14400	14646	Lo
+16800	16A38	Lo
+16A40	16A5E	Lo
+16A60	16A69	Nd
+16A6E	16A6F	Po
+16AD0	16AED	Lo
+16AF0	16AF4	Mn
+16AF5		Po
+16B00	16B2F	Lo
+16B30	16B36	Mn
+16B37	16B3B	Po
+16B3C	16B3F	So
+16B40	16B43	Lm
+16B44		Po
+16B45		So
+16B50	16B59	Nd
+16B5B	16B61	No
+16B63	16B77	Lo
+16B7D	16B8F	Lo
+16F00	16F44	Lo
+16F50		Lo
+16F51	16F7E	Mc
+16F8F	16F92	Mn
+16F93	16F9F	Lm
+16FE0	16FE1	Lm
+17000	187EC	Lo
+18800	18AF2	Lo
+1B000	1B11E	Lo
+1B170	1B2FB	Lo
+1BC00	1BC6A	Lo
+1BC70	1BC7C	Lo
+1BC80	1BC88	Lo
+1BC90	1BC99	Lo
+1BC9C		So
+1BC9D	1BC9E	Mn
+1BC9F		Po
+1BCA0	1BCA3	Cf
+1D000	1D0F5	So
+1D100	1D126	So
+1D129	1D164	So
+1D165	1D166	Mc
+1D167	1D169	Mn
+1D16A	1D16C	So
+1D16D	1D172	Mc
+1D173	1D17A	Cf
+1D17B	1D182	Mn
+1D183	1D184	So
+1D185	1D18B	Mn
+1D18C	1D1A9	So
+1D1AA	1D1AD	Mn
+1D1AE	1D1E8	So
+1D200	1D241	So
+1D242	1D244	Mn
+1D245		So
+1D300	1D356	So
+1D360	1D371	No
+1D400	1D419	Lu
+1D41A	1D433	Ll
+1D434	1D44D	Lu
+1D44E	1D454	Ll
+1D456	1D467	Ll
+1D468	1D481	Lu
+1D482	1D49B	Ll
+1D49C		Lu
+1D49E	1D49F	Lu
+1D4A2		Lu
+1D4A5	1D4A6	Lu
+1D4A9	1D4AC	Lu
+1D4AE	1D4B5	Lu
+1D4B6	1D4B9	Ll
+1D4BB		Ll
+1D4BD	1D4C3	Ll
+1D4C5	1D4CF	Ll
+1D4D0	1D4E9	Lu
+1D4EA	1D503	Ll
+1D504	1D505	Lu
+1D507	1D50A	Lu
+1D50D	1D514	Lu
+1D516	1D51C	Lu
+1D51E	1D537	Ll
+1D538	1D539	Lu
+1D53B	1D53E	Lu
+1D540	1D544	Lu
+1D546		Lu
+1D54A	1D550	Lu
+1D552	1D56B	Ll
+1D56C	1D585	Lu
+1D586	1D59F	Ll
+1D5A0	1D5B9	Lu
+1D5BA	1D5D3	Ll
+1D5D4	1D5ED	Lu
+1D5EE	1D607	Ll
+1D608	1D621	Lu
+1D622	1D63B	Ll
+1D63C	1D655	Lu
+1D656	1D66F	Ll
+1D670	1D689	Lu
+1D68A	1D6A5	Ll
+1D6A8	1D6C0	Lu
+1D6C1		Sm
+1D6C2	1D6DA	Ll
+1D6DB		Sm
+1D6DC	1D6E1	Ll
+1D6E2	1D6FA	Lu
+1D6FB		Sm
+1D6FC	1D714	Ll
+1D715		Sm
+1D716	1D71B	Ll
+1D71C	1D734	Lu
+1D735		Sm
+1D736	1D74E	Ll
+1D74F		Sm
+1D750	1D755	Ll
+1D756	1D76E	Lu
+1D76F		Sm
+1D770	1D788	Ll
+1D789		Sm
+1D78A	1D78F	Ll
+1D790	1D7A8	Lu
+1D7A9		Sm
+1D7AA	1D7C2	Ll
+1D7C3		Sm
+1D7C4	1D7C9	Ll
+1D7CA		Lu
+1D7CB		Ll
+1D7CE	1D7FF	Nd
+1D800	1D9FF	So
+1DA00	1DA36	Mn
+1DA37	1DA3A	So
+1DA3B	1DA6C	Mn
+1DA6D	1DA74	So
+1DA75		Mn
+1DA76	1DA83	So
+1DA84		Mn
+1DA85	1DA86	So
+1DA87	1DA8B	Po
+1DA9B	1DA9F	Mn
+1DAA1	1DAAF	Mn
+1E000	1E006	Mn
+1E008	1E018	Mn
+1E01B	1E021	Mn
+1E023	1E024	Mn
+1E026	1E02A	Mn
+1E800	1E8C4	Lo
+1E8C7	1E8CF	No
+1E8D0	1E8D6	Mn
+1E900	1E921	Lu
+1E922	1E943	Ll
+1E944	1E94A	Mn
+1E950	1E959	Nd
+1E95E	1E95F	Po
+1EE00	1EE03	Lo
+1EE05	1EE1F	Lo
+1EE21	1EE22	Lo
+1EE24		Lo
+1EE27		Lo
+1EE29	1EE32	Lo
+1EE34	1EE37	Lo
+1EE39		Lo
+1EE3B		Lo
+1EE42		Lo
+1EE47		Lo
+1EE49		Lo
+1EE4B		Lo
+1EE4D	1EE4F	Lo
+1EE51	1EE52	Lo
+1EE54		Lo
+1EE57		Lo
+1EE59		Lo
+1EE5B		Lo
+1EE5D		Lo
+1EE5F		Lo
+1EE61	1EE62	Lo
+1EE64		Lo
+1EE67	1EE6A	Lo
+1EE6C	1EE72	Lo
+1EE74	1EE77	Lo
+1EE79	1EE7C	Lo
+1EE7E		Lo
+1EE80	1EE89	Lo
+1EE8B	1EE9B	Lo
+1EEA1	1EEA3	Lo
+1EEA5	1EEA9	Lo
+1EEAB	1EEBB	Lo
+1EEF0	1EEF1	Sm
+1F000	1F02B	So
+1F030	1F093	So
+1F0A0	1F0AE	So
+1F0B1	1F0BF	So
+1F0C1	1F0CF	So
+1F0D1	1F0F5	So
+1F100	1F10C	No
+1F110	1F12E	So
+1F130	1F16B	So
+1F170	1F1AC	So
+1F1E6	1F202	So
+1F210	1F23B	So
+1F240	1F248	So
+1F250	1F251	So
+1F260	1F265	So
+1F300	1F3FA	So
+1F3FB	1F3FF	Sk
+1F400	1F6D4	So
+1F6E0	1F6EC	So
+1F6F0	1F6F8	So
+1F700	1F773	So
+1F780	1F7D4	So
+1F800	1F80B	So
+1F810	1F847	So
+1F850	1F859	So
+1F860	1F887	So
+1F890	1F8AD	So
+1F900	1F90B	So
+1F910	1F93E	So
+1F940	1F94C	So
+1F950	1F96B	So
+1F980	1F997	So
+1F9C0		So
+1F9D0	1F9E6	So
+20000	2A6D6	Lo
+2A700	2B734	Lo
+2B740	2B81D	Lo
+2B820	2CEA1	Lo
+2CEB0	2EBE0	Lo
+2F800	2FA1D	Lo
+E0001		Cf
+E0020	E007F	Cf
+E0100	E01EF	Mn
+F0000	FFFFD	Co
+100000	10FFFD	Co
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKCQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFKCQC'}{'missing'} = 'Yes';
+
+return <<'END';
+A0		N
+A8		N
+AA		N
+AF		N
+B2	B5	N
+B8	BA	N
+BC	BE	N
+132	133	N
+13F	140	N
+149		N
+17F		N
+1C4	1CC	N
+1F1	1F3	N
+2B0	2B8	N
+2D8	2DD	N
+2E0	2E4	N
+300	304	M
+306	30C	M
+30F		M
+311		M
+313	314	M
+31B		M
+323	328	M
+32D	32E	M
+330	331	M
+338		M
+340	341	N
+342		M
+343	344	N
+345		M
+374		N
+37A		N
+37E		N
+384	385	N
+387		N
+3D0	3D6	N
+3F0	3F2	N
+3F4	3F5	N
+3F9		N
+587		N
+653	655	M
+675	678	N
+93C		M
+958	95F	N
+9BE		M
+9D7		M
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B3E		M
+B56	B57	M
+B5C	B5D	N
+BBE		M
+BD7		M
+C56		M
+CC2		M
+CD5	CD6	M
+D3E		M
+D57		M
+DCA		M
+DCF		M
+DDF		M
+E33		N
+EB3		N
+EDC	EDD	N
+F0C		N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F79	N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+102E		M
+10FC		N
+1161	1175	M
+11A8	11C2	M
+1B35		M
+1D2C	1D2E	N
+1D30	1D3A	N
+1D3C	1D4D	N
+1D4F	1D6A	N
+1D78		N
+1D9B	1DBF	N
+1E9A	1E9B	N
+1F71		N
+1F73		N
+1F75		N
+1F77		N
+1F79		N
+1F7B		N
+1F7D		N
+1FBB		N
+1FBD	1FC1	N
+1FC9		N
+1FCB		N
+1FCD	1FCF	N
+1FD3		N
+1FDB		N
+1FDD	1FDF	N
+1FE3		N
+1FEB		N
+1FED	1FEF	N
+1FF9		N
+1FFB		N
+1FFD	1FFE	N
+2000	200A	N
+2011		N
+2017		N
+2024	2026	N
+202F		N
+2033	2034	N
+2036	2037	N
+203C		N
+203E		N
+2047	2049	N
+2057		N
+205F		N
+2070	2071	N
+2074	208E	N
+2090	209C	N
+20A8		N
+2100	2103	N
+2105	2107	N
+2109	2113	N
+2115	2116	N
+2119	211D	N
+2120	2122	N
+2124		N
+2126		N
+2128		N
+212A	212D	N
+212F	2131	N
+2133	2139	N
+213B	2140	N
+2145	2149	N
+2150	217F	N
+2189		N
+222C	222D	N
+222F	2230	N
+2329	232A	N
+2460	24EA	N
+2A0C		N
+2A74	2A76	N
+2ADC		N
+2C7C	2C7D	N
+2D6F		N
+2E9F		N
+2EF3		N
+2F00	2FD5	N
+3000		N
+3036		N
+3038	303A	N
+3099	309A	M
+309B	309C	N
+309F		N
+30FF		N
+3131	318E	N
+3192	319F	N
+3200	321E	N
+3220	3247	N
+3250	327E	N
+3280	32FE	N
+3300	33FF	N
+A69C	A69D	N
+A770		N
+A7F8	A7F9	N
+AB5C	AB5F	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB00	FB06	N
+FB13	FB17	N
+FB1D		N
+FB1F	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FBB1	N
+FBD3	FD3D	N
+FD50	FD8F	N
+FD92	FDC7	N
+FDF0	FDFC	N
+FE10	FE19	N
+FE30	FE44	N
+FE47	FE52	N
+FE54	FE66	N
+FE68	FE6B	N
+FE70	FE72	N
+FE74		N
+FE76	FEFC	N
+FF01	FFBE	N
+FFC2	FFC7	N
+FFCA	FFCF	N
+FFD2	FFD7	N
+FFDA	FFDC	N
+FFE0	FFE6	N
+FFE8	FFEE	N
+110BA		M
+11127		M
+1133E		M
+11357		M
+114B0		M
+114BA		M
+114BD		M
+115AF		M
+1D15E	1D164	N
+1D1BB	1D1C0	N
+1D400	1D454	N
+1D456	1D49C	N
+1D49E	1D49F	N
+1D4A2		N
+1D4A5	1D4A6	N
+1D4A9	1D4AC	N
+1D4AE	1D4B9	N
+1D4BB		N
+1D4BD	1D4C3	N
+1D4C5	1D505	N
+1D507	1D50A	N
+1D50D	1D514	N
+1D516	1D51C	N
+1D51E	1D539	N
+1D53B	1D53E	N
+1D540	1D544	N
+1D546		N
+1D54A	1D550	N
+1D552	1D6A5	N
+1D6A8	1D7CB	N
+1D7CE	1D7FF	N
+1EE00	1EE03	N
+1EE05	1EE1F	N
+1EE21	1EE22	N
+1EE24		N
+1EE27		N
+1EE29	1EE32	N
+1EE34	1EE37	N
+1EE39		N
+1EE3B		N
+1EE42		N
+1EE47		N
+1EE49		N
+1EE4B		N
+1EE4D	1EE4F	N
+1EE51	1EE52	N
+1EE54		N
+1EE57		N
+1EE59		N
+1EE5B		N
+1EE5D		N
+1EE5F		N
+1EE61	1EE62	N
+1EE64		N
+1EE67	1EE6A	N
+1EE6C	1EE72	N
+1EE74	1EE77	N
+1EE79	1EE7C	N
+1EE7E		N
+1EE80	1EE89	N
+1EE8B	1EE9B	N
+1EEA1	1EEA3	N
+1EEA5	1EEA9	N
+1EEAB	1EEBB	N
+1F100	1F10A	N
+1F110	1F12E	N
+1F130	1F14F	N
+1F16A	1F16B	N
+1F190		N
+1F200	1F202	N
+1F210	1F23B	N
+1F240	1F248	N
+1F250	1F251	N
+2F800	2FA1D	N
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNameAlias'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNameAlias'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0		NULL: control
+0		NUL: abbreviation
+1		START OF HEADING: control
+1		SOH: abbreviation
+2		START OF TEXT: control
+2		STX: abbreviation
+3		END OF TEXT: control
+3		ETX: abbreviation
+4		END OF TRANSMISSION: control
+4		EOT: abbreviation
+5		ENQUIRY: control
+5		ENQ: abbreviation
+6		ACKNOWLEDGE: control
+6		ACK: abbreviation
+7		ALERT: control
+7		BEL: abbreviation
+8		BACKSPACE: control
+8		BS: abbreviation
+9		CHARACTER TABULATION: control
+9		HORIZONTAL TABULATION: control
+9		HT: abbreviation
+9		TAB: abbreviation
+A		LINE FEED: control
+A		NEW LINE: control
+A		END OF LINE: control
+A		LF: abbreviation
+A		NL: abbreviation
+A		EOL: abbreviation
+B		LINE TABULATION: control
+B		VERTICAL TABULATION: control
+B		VT: abbreviation
+C		FORM FEED: control
+C		FF: abbreviation
+D		CARRIAGE RETURN: control
+D		CR: abbreviation
+E		SHIFT OUT: control
+E		LOCKING-SHIFT ONE: control
+E		SO: abbreviation
+F		SHIFT IN: control
+F		LOCKING-SHIFT ZERO: control
+F		SI: abbreviation
+10		DATA LINK ESCAPE: control
+10		DLE: abbreviation
+11		DEVICE CONTROL ONE: control
+11		DC1: abbreviation
+12		DEVICE CONTROL TWO: control
+12		DC2: abbreviation
+13		DEVICE CONTROL THREE: control
+13		DC3: abbreviation
+14		DEVICE CONTROL FOUR: control
+14		DC4: abbreviation
+15		NEGATIVE ACKNOWLEDGE: control
+15		NAK: abbreviation
+16		SYNCHRONOUS IDLE: control
+16		SYN: abbreviation
+17		END OF TRANSMISSION BLOCK: control
+17		ETB: abbreviation
+18		CANCEL: control
+18		CAN: abbreviation
+19		END OF MEDIUM: control
+19		EOM: abbreviation
+1A		SUBSTITUTE: control
+1A		SUB: abbreviation
+1B		ESCAPE: control
+1B		ESC: abbreviation
+1C		INFORMATION SEPARATOR FOUR: control
+1C		FILE SEPARATOR: control
+1C		FS: abbreviation
+1D		INFORMATION SEPARATOR THREE: control
+1D		GROUP SEPARATOR: control
+1D		GS: abbreviation
+1E		INFORMATION SEPARATOR TWO: control
+1E		RECORD SEPARATOR: control
+1E		RS: abbreviation
+1F		INFORMATION SEPARATOR ONE: control
+1F		UNIT SEPARATOR: control
+1F		US: abbreviation
+20		SP: abbreviation
+7F		DELETE: control
+7F		DEL: abbreviation
+80		PADDING CHARACTER: figment
+80		PAD: abbreviation
+81		HIGH OCTET PRESET: figment
+81		HOP: abbreviation
+82		BREAK PERMITTED HERE: control
+82		BPH: abbreviation
+83		NO BREAK HERE: control
+83		NBH: abbreviation
+84		INDEX: control
+84		IND: abbreviation
+85		NEXT LINE: control
+85		NEL: abbreviation
+86		START OF SELECTED AREA: control
+86		SSA: abbreviation
+87		END OF SELECTED AREA: control
+87		ESA: abbreviation
+88		CHARACTER TABULATION SET: control
+88		HORIZONTAL TABULATION SET: control
+88		HTS: abbreviation
+89		CHARACTER TABULATION WITH JUSTIFICATION: control
+89		HORIZONTAL TABULATION WITH JUSTIFICATION: control
+89		HTJ: abbreviation
+8A		LINE TABULATION SET: control
+8A		VERTICAL TABULATION SET: control
+8A		VTS: abbreviation
+8B		PARTIAL LINE FORWARD: control
+8B		PARTIAL LINE DOWN: control
+8B		PLD: abbreviation
+8C		PARTIAL LINE BACKWARD: control
+8C		PARTIAL LINE UP: control
+8C		PLU: abbreviation
+8D		REVERSE LINE FEED: control
+8D		REVERSE INDEX: control
+8D		RI: abbreviation
+8E		SINGLE SHIFT TWO: control
+8E		SINGLE-SHIFT-2: control
+8E		SS2: abbreviation
+8F		SINGLE SHIFT THREE: control
+8F		SINGLE-SHIFT-3: control
+8F		SS3: abbreviation
+90		DEVICE CONTROL STRING: control
+90		DCS: abbreviation
+91		PRIVATE USE ONE: control
+91		PRIVATE USE-1: control
+91		PU1: abbreviation
+92		PRIVATE USE TWO: control
+92		PRIVATE USE-2: control
+92		PU2: abbreviation
+93		SET TRANSMIT STATE: control
+93		STS: abbreviation
+94		CANCEL CHARACTER: control
+94		CCH: abbreviation
+95		MESSAGE WAITING: control
+95		MW: abbreviation
+96		START OF GUARDED AREA: control
+96		START OF PROTECTED AREA: control
+96		SPA: abbreviation
+97		END OF GUARDED AREA: control
+97		END OF PROTECTED AREA: control
+97		EPA: abbreviation
+98		START OF STRING: control
+98		SOS: abbreviation
+99		SINGLE GRAPHIC CHARACTER INTRODUCER: figment
+99		SGC: abbreviation
+9A		SINGLE CHARACTER INTRODUCER: control
+9A		SCI: abbreviation
+9B		CONTROL SEQUENCE INTRODUCER: control
+9B		CSI: abbreviation
+9C		STRING TERMINATOR: control
+9C		ST: abbreviation
+9D		OPERATING SYSTEM COMMAND: control
+9D		OSC: abbreviation
+9E		PRIVACY MESSAGE: control
+9E		PM: abbreviation
+9F		APPLICATION PROGRAM COMMAND: control
+9F		APC: abbreviation
+A0		NBSP: abbreviation
+AD		SHY: abbreviation
+1A2		LATIN CAPITAL LETTER GHA: correction
+1A3		LATIN SMALL LETTER GHA: correction
+34F		CGJ: abbreviation
+61C		ALM: abbreviation
+709		SYRIAC SUBLINEAR COLON SKEWED LEFT: correction
+CDE		KANNADA LETTER LLLA: correction
+E9D		LAO LETTER FO FON: correction
+E9F		LAO LETTER FO FAY: correction
+EA3		LAO LETTER RO: correction
+EA5		LAO LETTER LO: correction
+FD0		TIBETAN MARK BKA- SHOG GI MGO RGYAN: correction
+11EC		HANGUL JONGSEONG YESIEUNG-KIYEOK: correction
+11ED		HANGUL JONGSEONG YESIEUNG-SSANGKIYEOK: correction
+11EE		HANGUL JONGSEONG SSANGYESIEUNG: correction
+11EF		HANGUL JONGSEONG YESIEUNG-KHIEUKH: correction
+180B		FVS1: abbreviation
+180C		FVS2: abbreviation
+180D		FVS3: abbreviation
+180E		MVS: abbreviation
+200B		ZWSP: abbreviation
+200C		ZWNJ: abbreviation
+200D		ZWJ: abbreviation
+200E		LRM: abbreviation
+200F		RLM: abbreviation
+202A		LRE: abbreviation
+202B		RLE: abbreviation
+202C		PDF: abbreviation
+202D		LRO: abbreviation
+202E		RLO: abbreviation
+202F		NNBSP: abbreviation
+205F		MMSP: abbreviation
+2060		WJ: abbreviation
+2066		LRI: abbreviation
+2067		RLI: abbreviation
+2068		FSI: abbreviation
+2069		PDI: abbreviation
+2118		WEIERSTRASS ELLIPTIC FUNCTION: correction
+2448		MICR ON US SYMBOL: correction
+2449		MICR DASH SYMBOL: correction
+2B7A		LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction
+2B7C		RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction
+A015		YI SYLLABLE ITERATION MARK: correction
+FE00		VS1: abbreviation
+FE01		VS2: abbreviation
+FE02		VS3: abbreviation
+FE03		VS4: abbreviation
+FE04		VS5: abbreviation
+FE05		VS6: abbreviation
+FE06		VS7: abbreviation
+FE07		VS8: abbreviation
+FE08		VS9: abbreviation
+FE09		VS10: abbreviation
+FE0A		VS11: abbreviation
+FE0B		VS12: abbreviation
+FE0C		VS13: abbreviation
+FE0D		VS14: abbreviation
+FE0E		VS15: abbreviation
+FE0F		VS16: abbreviation
+FE18		PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET: correction
+FEFF		BYTE ORDER MARK: alternate
+FEFF		BOM: abbreviation
+FEFF		ZWNBSP: abbreviation
+122D4		CUNEIFORM SIGN NU11 TENU: correction
+122D5		CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR: correction
+1B001		HENTAIGANA LETTER E-1: correction
+1D0C5		BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS: correction
+E0100		VS17: abbreviation
+E0101		VS18: abbreviation
+E0102		VS19: abbreviation
+E0103		VS20: abbreviation
+E0104		VS21: abbreviation
+E0105		VS22: abbreviation
+E0106		VS23: abbreviation
+E0107		VS24: abbreviation
+E0108		VS25: abbreviation
+E0109		VS26: abbreviation
+E010A		VS27: abbreviation
+E010B		VS28: abbreviation
+E010C		VS29: abbreviation
+E010D		VS30: abbreviation
+E010E		VS31: abbreviation
+E010F		VS32: abbreviation
+E0110		VS33: abbreviation
+E0111		VS34: abbreviation
+E0112		VS35: abbreviation
+E0113		VS36: abbreviation
+E0114		VS37: abbreviation
+E0115		VS38: abbreviation
+E0116		VS39: abbreviation
+E0117		VS40: abbreviation
+E0118		VS41: abbreviation
+E0119		VS42: abbreviation
+E011A		VS43: abbreviation
+E011B		VS44: abbreviation
+E011C		VS45: abbreviation
+E011D		VS46: abbreviation
+E011E		VS47: abbreviation
+E011F		VS48: abbreviation
+E0120		VS49: abbreviation
+E0121		VS50: abbreviation
+E0122		VS51: abbreviation
+E0123		VS52: abbreviation
+E0124		VS53: abbreviation
+E0125		VS54: abbreviation
+E0126		VS55: abbreviation
+E0127		VS56: abbreviation
+E0128		VS57: abbreviation
+E0129		VS58: abbreviation
+E012A		VS59: abbreviation
+E012B		VS60: abbreviation
+E012C		VS61: abbreviation
+E012D		VS62: abbreviation
+E012E		VS63: abbreviation
+E012F		VS64: abbreviation
+E0130		VS65: abbreviation
+E0131		VS66: abbreviation
+E0132		VS67: abbreviation
+E0133		VS68: abbreviation
+E0134		VS69: abbreviation
+E0135		VS70: abbreviation
+E0136		VS71: abbreviation
+E0137		VS72: abbreviation
+E0138		VS73: abbreviation
+E0139		VS74: abbreviation
+E013A		VS75: abbreviation
+E013B		VS76: abbreviation
+E013C		VS77: abbreviation
+E013D		VS78: abbreviation
+E013E		VS79: abbreviation
+E013F		VS80: abbreviation
+E0140		VS81: abbreviation
+E0141		VS82: abbreviation
+E0142		VS83: abbreviation
+E0143		VS84: abbreviation
+E0144		VS85: abbreviation
+E0145		VS86: abbreviation
+E0146		VS87: abbreviation
+E0147		VS88: abbreviation
+E0148		VS89: abbreviation
+E0149		VS90: abbreviation
+E014A		VS91: abbreviation
+E014B		VS92: abbreviation
+E014C		VS93: abbreviation
+E014D		VS94: abbreviation
+E014E		VS95: abbreviation
+E014F		VS96: abbreviation
+E0150		VS97: abbreviation
+E0151		VS98: abbreviation
+E0152		VS99: abbreviation
+E0153		VS100: abbreviation
+E0154		VS101: abbreviation
+E0155		VS102: abbreviation
+E0156		VS103: abbreviation
+E0157		VS104: abbreviation
+E0158		VS105: abbreviation
+E0159		VS106: abbreviation
+E015A		VS107: abbreviation
+E015B		VS108: abbreviation
+E015C		VS109: abbreviation
+E015D		VS110: abbreviation
+E015E		VS111: abbreviation
+E015F		VS112: abbreviation
+E0160		VS113: abbreviation
+E0161		VS114: abbreviation
+E0162		VS115: abbreviation
+E0163		VS116: abbreviation
+E0164		VS117: abbreviation
+E0165		VS118: abbreviation
+E0166		VS119: abbreviation
+E0167		VS120: abbreviation
+E0168		VS121: abbreviation
+E0169		VS122: abbreviation
+E016A		VS123: abbreviation
+E016B		VS124: abbreviation
+E016C		VS125: abbreviation
+E016D		VS126: abbreviation
+E016E		VS127: abbreviation
+E016F		VS128: abbreviation
+E0170		VS129: abbreviation
+E0171		VS130: abbreviation
+E0172		VS131: abbreviation
+E0173		VS132: abbreviation
+E0174		VS133: abbreviation
+E0175		VS134: abbreviation
+E0176		VS135: abbreviation
+E0177		VS136: abbreviation
+E0178		VS137: abbreviation
+E0179		VS138: abbreviation
+E017A		VS139: abbreviation
+E017B		VS140: abbreviation
+E017C		VS141: abbreviation
+E017D		VS142: abbreviation
+E017E		VS143: abbreviation
+E017F		VS144: abbreviation
+E0180		VS145: abbreviation
+E0181		VS146: abbreviation
+E0182		VS147: abbreviation
+E0183		VS148: abbreviation
+E0184		VS149: abbreviation
+E0185		VS150: abbreviation
+E0186		VS151: abbreviation
+E0187		VS152: abbreviation
+E0188		VS153: abbreviation
+E0189		VS154: abbreviation
+E018A		VS155: abbreviation
+E018B		VS156: abbreviation
+E018C		VS157: abbreviation
+E018D		VS158: abbreviation
+E018E		VS159: abbreviation
+E018F		VS160: abbreviation
+E0190		VS161: abbreviation
+E0191		VS162: abbreviation
+E0192		VS163: abbreviation
+E0193		VS164: abbreviation
+E0194		VS165: abbreviation
+E0195		VS166: abbreviation
+E0196		VS167: abbreviation
+E0197		VS168: abbreviation
+E0198		VS169: abbreviation
+E0199		VS170: abbreviation
+E019A		VS171: abbreviation
+E019B		VS172: abbreviation
+E019C		VS173: abbreviation
+E019D		VS174: abbreviation
+E019E		VS175: abbreviation
+E019F		VS176: abbreviation
+E01A0		VS177: abbreviation
+E01A1		VS178: abbreviation
+E01A2		VS179: abbreviation
+E01A3		VS180: abbreviation
+E01A4		VS181: abbreviation
+E01A5		VS182: abbreviation
+E01A6		VS183: abbreviation
+E01A7		VS184: abbreviation
+E01A8		VS185: abbreviation
+E01A9		VS186: abbreviation
+E01AA		VS187: abbreviation
+E01AB		VS188: abbreviation
+E01AC		VS189: abbreviation
+E01AD		VS190: abbreviation
+E01AE		VS191: abbreviation
+E01AF		VS192: abbreviation
+E01B0		VS193: abbreviation
+E01B1		VS194: abbreviation
+E01B2		VS195: abbreviation
+E01B3		VS196: abbreviation
+E01B4		VS197: abbreviation
+E01B5		VS198: abbreviation
+E01B6		VS199: abbreviation
+E01B7		VS200: abbreviation
+E01B8		VS201: abbreviation
+E01B9		VS202: abbreviation
+E01BA		VS203: abbreviation
+E01BB		VS204: abbreviation
+E01BC		VS205: abbreviation
+E01BD		VS206: abbreviation
+E01BE		VS207: abbreviation
+E01BF		VS208: abbreviation
+E01C0		VS209: abbreviation
+E01C1		VS210: abbreviation
+E01C2		VS211: abbreviation
+E01C3		VS212: abbreviation
+E01C4		VS213: abbreviation
+E01C5		VS214: abbreviation
+E01C6		VS215: abbreviation
+E01C7		VS216: abbreviation
+E01C8		VS217: abbreviation
+E01C9		VS218: abbreviation
+E01CA		VS219: abbreviation
+E01CB		VS220: abbreviation
+E01CC		VS221: abbreviation
+E01CD		VS222: abbreviation
+E01CE		VS223: abbreviation
+E01CF		VS224: abbreviation
+E01D0		VS225: abbreviation
+E01D1		VS226: abbreviation
+E01D2		VS227: abbreviation
+E01D3		VS228: abbreviation
+E01D4		VS229: abbreviation
+E01D5		VS230: abbreviation
+E01D6		VS231: abbreviation
+E01D7		VS232: abbreviation
+E01D8		VS233: abbreviation
+E01D9		VS234: abbreviation
+E01DA		VS235: abbreviation
+E01DB		VS236: abbreviation
+E01DC		VS237: abbreviation
+E01DD		VS238: abbreviation
+E01DE		VS239: abbreviation
+E01DF		VS240: abbreviation
+E01E0		VS241: abbreviation
+E01E1		VS242: abbreviation
+E01E2		VS243: abbreviation
+E01E3		VS244: abbreviation
+E01E4		VS245: abbreviation
+E01E5		VS246: abbreviation
+E01E6		VS247: abbreviation
+E01E7		VS248: abbreviation
+E01E8		VS249: abbreviation
+E01E9		VS250: abbreviation
+E01EA		VS251: abbreviation
+E01EB		VS252: abbreviation
+E01EC		VS253: abbreviation
+E01ED		VS254: abbreviation
+E01EE		VS255: abbreviation
+E01EF		VS256: abbreviation
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToInPC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToInPC'}{'missing'} = 'NA';
+
+return <<'END';
+900	902	Top
+903		Right
+93A		Top
+93B		Right
+93C		Bottom
+93E		Right
+93F		Left
+940		Right
+941	944	Bottom
+945	948	Top
+949	94C	Right
+94D		Bottom
+94E		Left
+94F		Right
+951		Top
+952		Bottom
+953	955	Top
+956	957	Bottom
+962	963	Bottom
+981		Top
+982	983	Right
+9BC		Bottom
+9BE		Right
+9BF		Left
+9C0		Right
+9C1	9C4	Bottom
+9C7	9C8	Left
+9CB	9CC	Left_And_Right
+9CD		Bottom
+9D7		Right
+9E2	9E3	Bottom
+A01	A02	Top
+A03		Right
+A3C		Bottom
+A3E		Right
+A3F		Left
+A40		Right
+A41	A42	Bottom
+A47	A48	Top
+A4B	A4C	Top
+A4D		Bottom
+A70	A71	Top
+A75		Bottom
+A81	A82	Top
+A83		Right
+ABC		Bottom
+ABE		Right
+ABF		Left
+AC0		Right
+AC1	AC4	Bottom
+AC5		Top
+AC7	AC8	Top
+AC9		Top_And_Right
+ACB	ACC	Right
+ACD		Bottom
+AE2	AE3	Bottom
+AFA	AFF	Top
+B01		Top
+B02	B03	Right
+B3C		Bottom
+B3E		Right
+B3F		Top
+B40		Right
+B41	B44	Bottom
+B47		Left
+B48		Top_And_Left
+B4B		Left_And_Right
+B4C		Top_And_Left_And_Right
+B4D		Bottom
+B56		Top
+B57		Top_And_Right
+B62	B63	Bottom
+B82		Top
+BBE	BBF	Right
+BC0		Top
+BC1	BC2	Right
+BC6	BC8	Left
+BCA	BCC	Left_And_Right
+BCD		Top
+BD7		Right
+C00		Top
+C01	C03	Right
+C3E	C40	Top
+C41	C44	Right
+C46	C47	Top
+C48		Top_And_Bottom
+C4A	C4D	Top
+C55		Top
+C56		Bottom
+C62	C63	Bottom
+C81		Top
+C82	C83	Right
+CBC		Bottom
+CBE		Right
+CBF		Top
+CC0		Top_And_Right
+CC1	CC4	Right
+CC6		Top
+CC7	CC8	Top_And_Right
+CCA	CCB	Top_And_Right
+CCC	CCD	Top
+CD5	CD6	Right
+CE2	CE3	Bottom
+D00	D01	Top
+D02	D03	Right
+D3B	D3C	Top
+D3E	D42	Right
+D43	D44	Bottom
+D46	D48	Left
+D4A	D4C	Left_And_Right
+D4D		Top
+D57		Right
+D62	D63	Bottom
+D82	D83	Right
+DCA		Top
+DCF	DD1	Right
+DD2	DD3	Top
+DD4		Bottom
+DD6		Bottom
+DD8		Right
+DD9		Left
+DDA		Top_And_Left
+DDB		Left
+DDC		Left_And_Right
+DDD		Top_And_Left_And_Right
+DDE		Left_And_Right
+DDF		Right
+DF2	DF3	Right
+E30		Right
+E31		Top
+E32	E33	Right
+E34	E37	Top
+E38	E3A	Bottom
+E40	E44	Visual_Order_Left
+E45		Right
+E47	E4E	Top
+EB0		Right
+EB1		Top
+EB2	EB3	Right
+EB4	EB7	Top
+EB8	EB9	Bottom
+EBB		Top
+EBC		Bottom
+EC0	EC4	Visual_Order_Left
+EC8	ECD	Top
+F18	F19	Bottom
+F35		Bottom
+F37		Bottom
+F39		Top
+F3E		Right
+F3F		Left
+F71		Bottom
+F72		Top
+F73		Top_And_Bottom
+F74	F75	Bottom
+F76	F79	Top_And_Bottom
+F7A	F7E	Top
+F7F		Right
+F80		Top
+F81		Top_And_Bottom
+F82	F83	Top
+F84		Bottom
+F86	F87	Top
+F8D	F97	Bottom
+F99	FBC	Bottom
+FC6		Bottom
+102B	102C	Right
+102D	102E	Top
+102F	1030	Bottom
+1031		Left
+1032	1036	Top
+1037		Bottom
+1038		Right
+103A		Top
+103B		Right
+103D	103E	Bottom
+1056	1057	Right
+1058	1059	Bottom
+105E	1060	Bottom
+1062	1064	Right
+1067	106D	Right
+1071	1074	Top
+1082		Bottom
+1083		Right
+1084		Left
+1085	1086	Top
+1087	108C	Right
+108D		Bottom
+108F		Right
+109A	109C	Right
+109D		Top
+1712		Top
+1713	1714	Bottom
+1732		Top
+1733	1734	Bottom
+1752		Top
+1753		Bottom
+1772		Top
+1773		Bottom
+17B6		Right
+17B7	17BA	Top
+17BB	17BD	Bottom
+17BE		Top_And_Left
+17BF		Top_And_Left_And_Right
+17C0		Left_And_Right
+17C1	17C3	Left
+17C4	17C5	Left_And_Right
+17C6		Top
+17C7	17C8	Right
+17C9	17D1	Top
+17D3		Top
+17DD		Top
+1920	1921	Top
+1922		Bottom
+1923	1924	Right
+1925	1926	Top_And_Right
+1927	1928	Top
+1929	192B	Right
+1930	1931	Right
+1932		Bottom
+1933	1938	Right
+1939		Bottom
+193A		Top
+193B		Bottom
+19B0	19B4	Right
+19B5	19B7	Visual_Order_Left
+19B8	19B9	Right
+19BA		Visual_Order_Left
+19BB	19C0	Right
+19C8	19C9	Right
+1A17		Top
+1A18		Bottom
+1A19		Left
+1A1A		Right
+1A1B		Top
+1A55		Left
+1A56		Bottom
+1A57		Right
+1A58	1A5A	Top
+1A5B	1A5E	Bottom
+1A61		Right
+1A62		Top
+1A63	1A64	Right
+1A65	1A68	Top
+1A69	1A6A	Bottom
+1A6B		Top
+1A6C		Bottom
+1A6D		Right
+1A6E	1A72	Left
+1A73	1A7C	Top
+1A7F		Bottom
+1B00	1B03	Top
+1B04		Right
+1B34		Top
+1B35		Right
+1B36	1B37	Top
+1B38	1B3A	Bottom
+1B3B		Bottom_And_Right
+1B3C		Top_And_Bottom
+1B3D		Top_And_Bottom_And_Right
+1B3E	1B3F	Left
+1B40	1B41	Left_And_Right
+1B42		Top
+1B43		Top_And_Right
+1B44		Right
+1B6B		Top
+1B6C		Bottom
+1B6D	1B73	Top
+1B80	1B81	Top
+1B82		Right
+1BA1		Right
+1BA2	1BA3	Bottom
+1BA4		Top
+1BA5		Bottom
+1BA6		Left
+1BA7		Right
+1BA8	1BA9	Top
+1BAA		Right
+1BAC	1BAD	Bottom
+1BE6		Top
+1BE7		Right
+1BE8	1BE9	Top
+1BEA	1BEC	Right
+1BED		Top
+1BEE		Right
+1BEF	1BF1	Top
+1BF2	1BF3	Right
+1C24	1C26	Right
+1C27	1C28	Left
+1C29		Top_And_Left
+1C2A	1C2B	Right
+1C2C		Bottom
+1C2D	1C33	Top
+1C34	1C35	Left
+1C36		Top
+1C37		Bottom
+1CD0	1CD2	Top
+1CD4		Overstruck
+1CD5	1CD9	Bottom
+1CDA	1CDB	Top
+1CDC	1CDF	Bottom
+1CE0		Top
+1CE1		Right
+1CE2	1CE8	Overstruck
+1CED		Bottom
+1CF4		Top
+1CF7		Right
+1DFB		Top
+A806		Top
+A80B		Top
+A823	A824	Right
+A825		Bottom
+A826		Top
+A827		Right
+A880	A881	Right
+A8B4	A8C3	Right
+A8C4		Bottom
+A8C5		Top
+A8E0	A8F1	Top
+A92B	A92D	Bottom
+A947	A949	Bottom
+A94A		Top
+A94B	A94E	Bottom
+A94F	A951	Top
+A952	A953	Right
+A980	A982	Top
+A983		Right
+A9B3		Top
+A9B4	A9B5	Right
+A9B6	A9B7	Top
+A9B8	A9B9	Bottom
+A9BA	A9BB	Left
+A9BC		Top
+A9BD	A9BE	Right
+A9BF		Bottom_And_Left
+A9C0		Bottom_And_Right
+A9E5		Top
+AA29	AA2C	Top
+AA2D		Bottom
+AA2E		Top
+AA2F	AA30	Left
+AA31		Top
+AA32		Bottom
+AA33		Right
+AA34		Left
+AA35	AA36	Bottom
+AA43		Top
+AA4C		Top
+AA4D		Right
+AA7B		Right
+AA7C		Top
+AA7D		Right
+AAB0		Top
+AAB1		Right
+AAB2	AAB3	Top
+AAB4		Bottom
+AAB5	AAB6	Visual_Order_Left
+AAB7	AAB8	Top
+AAB9		Visual_Order_Left
+AABA		Right
+AABB	AABC	Visual_Order_Left
+AABD		Right
+AABE	AABF	Top
+AAC1		Top
+AAEB		Left
+AAEC		Bottom
+AAED		Top
+AAEE		Left
+AAEF		Right
+AAF5		Right
+ABE3	ABE4	Right
+ABE5		Top
+ABE6	ABE7	Right
+ABE8		Bottom
+ABE9	ABEA	Right
+ABEC		Right
+ABED		Bottom
+10A01		Overstruck
+10A02	10A03	Bottom
+10A05		Top
+10A06		Overstruck
+10A0C	10A0E	Bottom
+10A0F		Top
+10A38		Top
+10A39	10A3A	Bottom
+11000		Right
+11001		Top
+11002		Right
+11038	1103B	Top
+1103C	11041	Bottom
+11042	11046	Top
+11080	11081	Top
+11082		Right
+110B0		Right
+110B1		Left
+110B2		Right
+110B3	110B4	Bottom
+110B5	110B6	Top
+110B7	110B8	Right
+110B9	110BA	Bottom
+11100	11102	Top
+11127	11129	Top
+1112A	1112B	Bottom
+1112C		Left
+1112D		Top
+1112E	1112F	Top_And_Bottom
+11130		Top
+11131	11132	Bottom
+11134		Top
+11173		Bottom
+11180	11181	Top
+11182		Right
+111B3		Right
+111B4		Left
+111B5		Right
+111B6	111BB	Bottom
+111BC	111BE	Top
+111BF		Top_And_Right
+111C0		Right
+111CB		Top
+111CC		Bottom
+1122C	1122E	Right
+1122F		Bottom
+11230	11231	Top
+11232	11233	Top_And_Right
+11234		Top
+11235		Right
+11236	11237	Top
+1123E		Top
+112DF		Top
+112E0		Right
+112E1		Left
+112E2		Right
+112E3	112E4	Bottom
+112E5	112E8	Top
+112E9	112EA	Bottom
+11301		Top
+11302	11303	Right
+1133E	1133F	Right
+11340		Top
+11341	11344	Right
+11347	11348	Left
+1134B	1134C	Left_And_Right
+1134D		Right
+11357		Right
+11362	11363	Right
+11366	1136C	Top
+11370	11374	Top
+11435		Right
+11436		Left
+11437		Right
+11438	1143D	Bottom
+1143E	1143F	Top
+11440	11441	Right
+11442		Bottom
+11443	11444	Top
+11445		Right
+11446		Bottom
+114B0		Right
+114B1		Left
+114B2		Right
+114B3	114B8	Bottom
+114B9		Left
+114BA		Top
+114BB		Top_And_Left
+114BC		Left_And_Right
+114BD		Right
+114BE		Left_And_Right
+114BF	114C0	Top
+114C1		Right
+114C2	114C3	Bottom
+115AF		Right
+115B0		Left
+115B1		Right
+115B2	115B5	Bottom
+115B8		Left
+115B9		Top_And_Left
+115BA		Left_And_Right
+115BB		Top_And_Left_And_Right
+115BC	115BD	Top
+115BE		Right
+115BF	115C0	Bottom
+115DC	115DD	Bottom
+11630	11632	Right
+11633	11638	Bottom
+11639	1163A	Top
+1163B	1163C	Right
+1163D		Top
+1163E		Right
+1163F		Bottom
+11640		Top
+116AB		Top
+116AC		Right
+116AD		Top
+116AE		Left
+116AF		Right
+116B0	116B1	Bottom
+116B2	116B5	Top
+116B6		Right
+116B7		Bottom
+1171D		Bottom
+1171F		Top
+11720	11721	Right
+11722	11723	Top
+11724	11725	Bottom
+11726		Left
+11727		Top
+11728		Bottom
+11729	1172B	Top
+11A01		Top
+11A02	11A03	Bottom
+11A04	11A09	Top
+11A0A		Bottom
+11A33	11A34	Bottom
+11A35	11A38	Top
+11A39		Right
+11A3B	11A3E	Bottom
+11A51		Top
+11A52	11A53	Bottom
+11A54	11A56	Top
+11A57	11A58	Right
+11A59	11A5B	Bottom
+11A8A	11A95	Bottom
+11A96		Top
+11A97		Right
+11A98		Top
+11C2F		Right
+11C30	11C31	Top
+11C32	11C36	Bottom
+11C38	11C3D	Top
+11C3E		Right
+11C3F		Bottom
+11C92	11CA7	Bottom
+11CA9		Right
+11CAA	11CB0	Bottom
+11CB1		Left
+11CB2		Bottom
+11CB3		Top
+11CB4		Right
+11CB5	11CB6	Top
+11D31	11D35	Top
+11D36		Bottom
+11D3A		Top
+11D3C	11D3D	Top
+11D3F	11D41	Top
+11D42		Bottom
+11D43		Top
+11D44		Bottom
+11D47		Bottom
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToBc'}{'missing'} = 'L';
+
+return <<'END';
+0	8	BN
+9		S
+A		B
+B		S
+C		WS
+D		B
+E	1B	BN
+1C	1E	B
+1F		S
+20		WS
+21	22	ON
+23	25	ET
+26	2A	ON
+2B		ES
+2C		CS
+2D		ES
+2E	2F	CS
+30	39	EN
+3A		CS
+3B	40	ON
+5B	60	ON
+7B	7E	ON
+7F	84	BN
+85		B
+86	9F	BN
+A0		CS
+A1		ON
+A2	A5	ET
+A6	A9	ON
+AB	AC	ON
+AD		BN
+AE	AF	ON
+B0	B1	ET
+B2	B3	EN
+B4		ON
+B6	B8	ON
+B9		EN
+BB	BF	ON
+D7		ON
+F7		ON
+2B9	2BA	ON
+2C2	2CF	ON
+2D2	2DF	ON
+2E5	2ED	ON
+2EF	2FF	ON
+300	36F	NSM
+374	375	ON
+37E		ON
+384	385	ON
+387		ON
+3F6		ON
+483	489	NSM
+58A		ON
+58D	58E	ON
+58F		ET
+590		R
+591	5BD	NSM
+5BE		R
+5BF		NSM
+5C0		R
+5C1	5C2	NSM
+5C3		R
+5C4	5C5	NSM
+5C6		R
+5C7		NSM
+5C8	5FF	R
+600	605	AN
+606	607	ON
+608		AL
+609	60A	ET
+60B		AL
+60C		CS
+60D		AL
+60E	60F	ON
+610	61A	NSM
+61B	64A	AL
+64B	65F	NSM
+660	669	AN
+66A		ET
+66B	66C	AN
+66D	66F	AL
+670		NSM
+671	6D5	AL
+6D6	6DC	NSM
+6DD		AN
+6DE		ON
+6DF	6E4	NSM
+6E5	6E6	AL
+6E7	6E8	NSM
+6E9		ON
+6EA	6ED	NSM
+6EE	6EF	AL
+6F0	6F9	EN
+6FA	710	AL
+711		NSM
+712	72F	AL
+730	74A	NSM
+74B	7A5	AL
+7A6	7B0	NSM
+7B1	7BF	AL
+7C0	7EA	R
+7EB	7F3	NSM
+7F4	7F5	R
+7F6	7F9	ON
+7FA	815	R
+816	819	NSM
+81A		R
+81B	823	NSM
+824		R
+825	827	NSM
+828		R
+829	82D	NSM
+82E	858	R
+859	85B	NSM
+85C	85F	R
+860	86F	AL
+870	89F	R
+8A0	8D3	AL
+8D4	8E1	NSM
+8E2		AN
+8E3	902	NSM
+93A		NSM
+93C		NSM
+941	948	NSM
+94D		NSM
+951	957	NSM
+962	963	NSM
+981		NSM
+9BC		NSM
+9C1	9C4	NSM
+9CD		NSM
+9E2	9E3	NSM
+9F2	9F3	ET
+9FB		ET
+A01	A02	NSM
+A3C		NSM
+A41	A42	NSM
+A47	A48	NSM
+A4B	A4D	NSM
+A51		NSM
+A70	A71	NSM
+A75		NSM
+A81	A82	NSM
+ABC		NSM
+AC1	AC5	NSM
+AC7	AC8	NSM
+ACD		NSM
+AE2	AE3	NSM
+AF1		ET
+AFA	AFF	NSM
+B01		NSM
+B3C		NSM
+B3F		NSM
+B41	B44	NSM
+B4D		NSM
+B56		NSM
+B62	B63	NSM
+B82		NSM
+BC0		NSM
+BCD		NSM
+BF3	BF8	ON
+BF9		ET
+BFA		ON
+C00		NSM
+C3E	C40	NSM
+C46	C48	NSM
+C4A	C4D	NSM
+C55	C56	NSM
+C62	C63	NSM
+C78	C7E	ON
+C81		NSM
+CBC		NSM
+CCC	CCD	NSM
+CE2	CE3	NSM
+D00	D01	NSM
+D3B	D3C	NSM
+D41	D44	NSM
+D4D		NSM
+D62	D63	NSM
+DCA		NSM
+DD2	DD4	NSM
+DD6		NSM
+E31		NSM
+E34	E3A	NSM
+E3F		ET
+E47	E4E	NSM
+EB1		NSM
+EB4	EB9	NSM
+EBB	EBC	NSM
+EC8	ECD	NSM
+F18	F19	NSM
+F35		NSM
+F37		NSM
+F39		NSM
+F3A	F3D	ON
+F71	F7E	NSM
+F80	F84	NSM
+F86	F87	NSM
+F8D	F97	NSM
+F99	FBC	NSM
+FC6		NSM
+102D	1030	NSM
+1032	1037	NSM
+1039	103A	NSM
+103D	103E	NSM
+1058	1059	NSM
+105E	1060	NSM
+1071	1074	NSM
+1082		NSM
+1085	1086	NSM
+108D		NSM
+109D		NSM
+135D	135F	NSM
+1390	1399	ON
+1400		ON
+1680		WS
+169B	169C	ON
+1712	1714	NSM
+1732	1734	NSM
+1752	1753	NSM
+1772	1773	NSM
+17B4	17B5	NSM
+17B7	17BD	NSM
+17C6		NSM
+17C9	17D3	NSM
+17DB		ET
+17DD		NSM
+17F0	17F9	ON
+1800	180A	ON
+180B	180D	NSM
+180E		BN
+1885	1886	NSM
+18A9		NSM
+1920	1922	NSM
+1927	1928	NSM
+1932		NSM
+1939	193B	NSM
+1940		ON
+1944	1945	ON
+19DE	19FF	ON
+1A17	1A18	NSM
+1A1B		NSM
+1A56		NSM
+1A58	1A5E	NSM
+1A60		NSM
+1A62		NSM
+1A65	1A6C	NSM
+1A73	1A7C	NSM
+1A7F		NSM
+1AB0	1ABE	NSM
+1B00	1B03	NSM
+1B34		NSM
+1B36	1B3A	NSM
+1B3C		NSM
+1B42		NSM
+1B6B	1B73	NSM
+1B80	1B81	NSM
+1BA2	1BA5	NSM
+1BA8	1BA9	NSM
+1BAB	1BAD	NSM
+1BE6		NSM
+1BE8	1BE9	NSM
+1BED		NSM
+1BEF	1BF1	NSM
+1C2C	1C33	NSM
+1C36	1C37	NSM
+1CD0	1CD2	NSM
+1CD4	1CE0	NSM
+1CE2	1CE8	NSM
+1CED		NSM
+1CF4		NSM
+1CF8	1CF9	NSM
+1DC0	1DF9	NSM
+1DFB	1DFF	NSM
+1FBD		ON
+1FBF	1FC1	ON
+1FCD	1FCF	ON
+1FDD	1FDF	ON
+1FED	1FEF	ON
+1FFD	1FFE	ON
+2000	200A	WS
+200B	200D	BN
+200F		R
+2010	2027	ON
+2028		WS
+2029		B
+202A		LRE
+202B		RLE
+202C		PDF
+202D		LRO
+202E		RLO
+202F		CS
+2030	2034	ET
+2035	2043	ON
+2044		CS
+2045	205E	ON
+205F		WS
+2060	2065	BN
+2066		LRI
+2067		RLI
+2068		FSI
+2069		PDI
+206A	206F	BN
+2070		EN
+2074	2079	EN
+207A	207B	ES
+207C	207E	ON
+2080	2089	EN
+208A	208B	ES
+208C	208E	ON
+20A0	20CF	ET
+20D0	20F0	NSM
+2100	2101	ON
+2103	2106	ON
+2108	2109	ON
+2114		ON
+2116	2118	ON
+211E	2123	ON
+2125		ON
+2127		ON
+2129		ON
+212E		ET
+213A	213B	ON
+2140	2144	ON
+214A	214D	ON
+2150	215F	ON
+2189	218B	ON
+2190	2211	ON
+2212		ES
+2213		ET
+2214	2335	ON
+237B	2394	ON
+2396	2426	ON
+2440	244A	ON
+2460	2487	ON
+2488	249B	EN
+24EA	26AB	ON
+26AD	27FF	ON
+2900	2B73	ON
+2B76	2B95	ON
+2B98	2BB9	ON
+2BBD	2BC8	ON
+2BCA	2BD2	ON
+2BEC	2BEF	ON
+2CE5	2CEA	ON
+2CEF	2CF1	NSM
+2CF9	2CFF	ON
+2D7F		NSM
+2DE0	2DFF	NSM
+2E00	2E49	ON
+2E80	2E99	ON
+2E9B	2EF3	ON
+2F00	2FD5	ON
+2FF0	2FFB	ON
+3000		WS
+3001	3004	ON
+3008	3020	ON
+302A	302D	NSM
+3030		ON
+3036	3037	ON
+303D	303F	ON
+3099	309A	NSM
+309B	309C	ON
+30A0		ON
+30FB		ON
+31C0	31E3	ON
+321D	321E	ON
+3250	325F	ON
+327C	327E	ON
+32B1	32BF	ON
+32CC	32CF	ON
+3377	337A	ON
+33DE	33DF	ON
+33FF		ON
+4DC0	4DFF	ON
+A490	A4C6	ON
+A60D	A60F	ON
+A66F	A672	NSM
+A673		ON
+A674	A67D	NSM
+A67E	A67F	ON
+A69E	A69F	NSM
+A6F0	A6F1	NSM
+A700	A721	ON
+A788		ON
+A802		NSM
+A806		NSM
+A80B		NSM
+A825	A826	NSM
+A828	A82B	ON
+A838	A839	ET
+A874	A877	ON
+A8C4	A8C5	NSM
+A8E0	A8F1	NSM
+A926	A92D	NSM
+A947	A951	NSM
+A980	A982	NSM
+A9B3		NSM
+A9B6	A9B9	NSM
+A9BC		NSM
+A9E5		NSM
+AA29	AA2E	NSM
+AA31	AA32	NSM
+AA35	AA36	NSM
+AA43		NSM
+AA4C		NSM
+AA7C		NSM
+AAB0		NSM
+AAB2	AAB4	NSM
+AAB7	AAB8	NSM
+AABE	AABF	NSM
+AAC1		NSM
+AAEC	AAED	NSM
+AAF6		NSM
+ABE5		NSM
+ABE8		NSM
+ABED		NSM
+FB1D		R
+FB1E		NSM
+FB1F	FB28	R
+FB29		ES
+FB2A	FB4F	R
+FB50	FD3D	AL
+FD3E	FD3F	ON
+FD40	FDCF	AL
+FDD0	FDEF	BN
+FDF0	FDFC	AL
+FDFD		ON
+FDFE	FDFF	AL
+FE00	FE0F	NSM
+FE10	FE19	ON
+FE20	FE2F	NSM
+FE30	FE4F	ON
+FE50		CS
+FE51		ON
+FE52		CS
+FE54		ON
+FE55		CS
+FE56	FE5E	ON
+FE5F		ET
+FE60	FE61	ON
+FE62	FE63	ES
+FE64	FE66	ON
+FE68		ON
+FE69	FE6A	ET
+FE6B		ON
+FE70	FEFE	AL
+FEFF		BN
+FF01	FF02	ON
+FF03	FF05	ET
+FF06	FF0A	ON
+FF0B		ES
+FF0C		CS
+FF0D		ES
+FF0E	FF0F	CS
+FF10	FF19	EN
+FF1A		CS
+FF1B	FF20	ON
+FF3B	FF40	ON
+FF5B	FF65	ON
+FFE0	FFE1	ET
+FFE2	FFE4	ON
+FFE5	FFE6	ET
+FFE8	FFEE	ON
+FFF0	FFF8	BN
+FFF9	FFFD	ON
+FFFE	FFFF	BN
+10101		ON
+10140	1018C	ON
+10190	1019B	ON
+101A0		ON
+101FD		NSM
+102E0		NSM
+102E1	102FB	EN
+10376	1037A	NSM
+10800	1091E	R
+1091F		ON
+10920	10A00	R
+10A01	10A03	NSM
+10A04		R
+10A05	10A06	NSM
+10A07	10A0B	R
+10A0C	10A0F	NSM
+10A10	10A37	R
+10A38	10A3A	NSM
+10A3B	10A3E	R
+10A3F		NSM
+10A40	10AE4	R
+10AE5	10AE6	NSM
+10AE7	10B38	R
+10B39	10B3F	ON
+10B40	10E5F	R
+10E60	10E7E	AN
+10E7F	10FFF	R
+11001		NSM
+11038	11046	NSM
+11052	11065	ON
+1107F	11081	NSM
+110B3	110B6	NSM
+110B9	110BA	NSM
+11100	11102	NSM
+11127	1112B	NSM
+1112D	11134	NSM
+11173		NSM
+11180	11181	NSM
+111B6	111BE	NSM
+111CA	111CC	NSM
+1122F	11231	NSM
+11234		NSM
+11236	11237	NSM
+1123E		NSM
+112DF		NSM
+112E3	112EA	NSM
+11300	11301	NSM
+1133C		NSM
+11340		NSM
+11366	1136C	NSM
+11370	11374	NSM
+11438	1143F	NSM
+11442	11444	NSM
+11446		NSM
+114B3	114B8	NSM
+114BA		NSM
+114BF	114C0	NSM
+114C2	114C3	NSM
+115B2	115B5	NSM
+115BC	115BD	NSM
+115BF	115C0	NSM
+115DC	115DD	NSM
+11633	1163A	NSM
+1163D		NSM
+1163F	11640	NSM
+11660	1166C	ON
+116AB		NSM
+116AD		NSM
+116B0	116B5	NSM
+116B7		NSM
+1171D	1171F	NSM
+11722	11725	NSM
+11727	1172B	NSM
+11A01	11A06	NSM
+11A09	11A0A	NSM
+11A33	11A38	NSM
+11A3B	11A3E	NSM
+11A47		NSM
+11A51	11A56	NSM
+11A59	11A5B	NSM
+11A8A	11A96	NSM
+11A98	11A99	NSM
+11C30	11C36	NSM
+11C38	11C3D	NSM
+11C92	11CA7	NSM
+11CAA	11CB0	NSM
+11CB2	11CB3	NSM
+11CB5	11CB6	NSM
+11D31	11D36	NSM
+11D3A		NSM
+11D3C	11D3D	NSM
+11D3F	11D45	NSM
+11D47		NSM
+16AF0	16AF4	NSM
+16B30	16B36	NSM
+16F8F	16F92	NSM
+1BC9D	1BC9E	NSM
+1BCA0	1BCA3	BN
+1D167	1D169	NSM
+1D173	1D17A	BN
+1D17B	1D182	NSM
+1D185	1D18B	NSM
+1D1AA	1D1AD	NSM
+1D200	1D241	ON
+1D242	1D244	NSM
+1D245		ON
+1D300	1D356	ON
+1D6DB		ON
+1D715		ON
+1D74F		ON
+1D789		ON
+1D7C3		ON
+1D7CE	1D7FF	EN
+1DA00	1DA36	NSM
+1DA3B	1DA6C	NSM
+1DA75		NSM
+1DA84		NSM
+1DA9B	1DA9F	NSM
+1DAA1	1DAAF	NSM
+1E000	1E006	NSM
+1E008	1E018	NSM
+1E01B	1E021	NSM
+1E023	1E024	NSM
+1E026	1E02A	NSM
+1E800	1E8CF	R
+1E8D0	1E8D6	NSM
+1E8D7	1E943	R
+1E944	1E94A	NSM
+1E94B	1EDFF	R
+1EE00	1EEEF	AL
+1EEF0	1EEF1	ON
+1EEF2	1EEFF	AL
+1EF00	1EFFF	R
+1F000	1F02B	ON
+1F030	1F093	ON
+1F0A0	1F0AE	ON
+1F0B1	1F0BF	ON
+1F0C1	1F0CF	ON
+1F0D1	1F0F5	ON
+1F100	1F10A	EN
+1F10B	1F10C	ON
+1F16A	1F16B	ON
+1F260	1F265	ON
+1F300	1F6D4	ON
+1F6E0	1F6EC	ON
+1F6F0	1F6F8	ON
+1F700	1F773	ON
+1F780	1F7D4	ON
+1F800	1F80B	ON
+1F810	1F847	ON
+1F850	1F859	ON
+1F860	1F887	ON
+1F890	1F8AD	ON
+1F900	1F90B	ON
+1F910	1F93E	ON
+1F940	1F94C	ON
+1F950	1F96B	ON
+1F980	1F997	ON
+1F9C0		ON
+1F9D0	1F9E6	ON
+1FFFE	1FFFF	BN
+2FFFE	2FFFF	BN
+3FFFE	3FFFF	BN
+4FFFE	4FFFF	BN
+5FFFE	5FFFF	BN
+6FFFE	6FFFF	BN
+7FFFE	7FFFF	BN
+8FFFE	8FFFF	BN
+9FFFE	9FFFF	BN
+AFFFE	AFFFF	BN
+BFFFE	BFFFF	BN
+CFFFE	CFFFF	BN
+DFFFE	E00FF	BN
+E0100	E01EF	NSM
+E01F0	E0FFF	BN
+EFFFE	EFFFF	BN
+FFFFE	FFFFF	BN
+10FFFE	10FFFF	BN
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToSc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToSc'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	40	Common
+41	5A	Latin
+5B	60	Common
+61	7A	Latin
+7B	A9	Common
+AA		Latin
+AB	B9	Common
+BA		Latin
+BB	BF	Common
+C0	D6	Latin
+D7		Common
+D8	F6	Latin
+F7		Common
+F8	2B8	Latin
+2B9	2DF	Common
+2E0	2E4	Latin
+2E5	2E9	Common
+2EA	2EB	Bopomofo
+2EC	2FF	Common
+300	36F	Inherited
+370	373	Greek
+374		Common
+375	377	Greek
+37A	37D	Greek
+37E		Common
+37F		Greek
+384		Greek
+385		Common
+386		Greek
+387		Common
+388	38A	Greek
+38C		Greek
+38E	3A1	Greek
+3A3	3E1	Greek
+3E2	3EF	Coptic
+3F0	3FF	Greek
+400	484	Cyrillic
+485	486	Inherited
+487	52F	Cyrillic
+531	556	Armenian
+559	55F	Armenian
+561	587	Armenian
+589		Common
+58A		Armenian
+58D	58F	Armenian
+591	5C7	Hebrew
+5D0	5EA	Hebrew
+5F0	5F4	Hebrew
+600	604	Arabic
+605		Common
+606	60B	Arabic
+60C		Common
+60D	61A	Arabic
+61B		Common
+61C		Arabic
+61E		Arabic
+61F		Common
+620	63F	Arabic
+640		Common
+641	64A	Arabic
+64B	655	Inherited
+656	66F	Arabic
+670		Inherited
+671	6DC	Arabic
+6DD		Common
+6DE	6FF	Arabic
+700	70D	Syriac
+70F	74A	Syriac
+74D	74F	Syriac
+750	77F	Arabic
+780	7B1	Thaana
+7C0	7FA	Nko
+800	82D	Samaritan
+830	83E	Samaritan
+840	85B	Mandaic
+85E		Mandaic
+860	86A	Syriac
+8A0	8B4	Arabic
+8B6	8BD	Arabic
+8D4	8E1	Arabic
+8E2		Common
+8E3	8FF	Arabic
+900	950	Devanagari
+951	952	Inherited
+953	963	Devanagari
+964	965	Common
+966	97F	Devanagari
+980	983	Bengali
+985	98C	Bengali
+98F	990	Bengali
+993	9A8	Bengali
+9AA	9B0	Bengali
+9B2		Bengali
+9B6	9B9	Bengali
+9BC	9C4	Bengali
+9C7	9C8	Bengali
+9CB	9CE	Bengali
+9D7		Bengali
+9DC	9DD	Bengali
+9DF	9E3	Bengali
+9E6	9FD	Bengali
+A01	A03	Gurmukhi
+A05	A0A	Gurmukhi
+A0F	A10	Gurmukhi
+A13	A28	Gurmukhi
+A2A	A30	Gurmukhi
+A32	A33	Gurmukhi
+A35	A36	Gurmukhi
+A38	A39	Gurmukhi
+A3C		Gurmukhi
+A3E	A42	Gurmukhi
+A47	A48	Gurmukhi
+A4B	A4D	Gurmukhi
+A51		Gurmukhi
+A59	A5C	Gurmukhi
+A5E		Gurmukhi
+A66	A75	Gurmukhi
+A81	A83	Gujarati
+A85	A8D	Gujarati
+A8F	A91	Gujarati
+A93	AA8	Gujarati
+AAA	AB0	Gujarati
+AB2	AB3	Gujarati
+AB5	AB9	Gujarati
+ABC	AC5	Gujarati
+AC7	AC9	Gujarati
+ACB	ACD	Gujarati
+AD0		Gujarati
+AE0	AE3	Gujarati
+AE6	AF1	Gujarati
+AF9	AFF	Gujarati
+B01	B03	Oriya
+B05	B0C	Oriya
+B0F	B10	Oriya
+B13	B28	Oriya
+B2A	B30	Oriya
+B32	B33	Oriya
+B35	B39	Oriya
+B3C	B44	Oriya
+B47	B48	Oriya
+B4B	B4D	Oriya
+B56	B57	Oriya
+B5C	B5D	Oriya
+B5F	B63	Oriya
+B66	B77	Oriya
+B82	B83	Tamil
+B85	B8A	Tamil
+B8E	B90	Tamil
+B92	B95	Tamil
+B99	B9A	Tamil
+B9C		Tamil
+B9E	B9F	Tamil
+BA3	BA4	Tamil
+BA8	BAA	Tamil
+BAE	BB9	Tamil
+BBE	BC2	Tamil
+BC6	BC8	Tamil
+BCA	BCD	Tamil
+BD0		Tamil
+BD7		Tamil
+BE6	BFA	Tamil
+C00	C03	Telugu
+C05	C0C	Telugu
+C0E	C10	Telugu
+C12	C28	Telugu
+C2A	C39	Telugu
+C3D	C44	Telugu
+C46	C48	Telugu
+C4A	C4D	Telugu
+C55	C56	Telugu
+C58	C5A	Telugu
+C60	C63	Telugu
+C66	C6F	Telugu
+C78	C7F	Telugu
+C80	C83	Kannada
+C85	C8C	Kannada
+C8E	C90	Kannada
+C92	CA8	Kannada
+CAA	CB3	Kannada
+CB5	CB9	Kannada
+CBC	CC4	Kannada
+CC6	CC8	Kannada
+CCA	CCD	Kannada
+CD5	CD6	Kannada
+CDE		Kannada
+CE0	CE3	Kannada
+CE6	CEF	Kannada
+CF1	CF2	Kannada
+D00	D03	Malayalam
+D05	D0C	Malayalam
+D0E	D10	Malayalam
+D12	D44	Malayalam
+D46	D48	Malayalam
+D4A	D4F	Malayalam
+D54	D63	Malayalam
+D66	D7F	Malayalam
+D82	D83	Sinhala
+D85	D96	Sinhala
+D9A	DB1	Sinhala
+DB3	DBB	Sinhala
+DBD		Sinhala
+DC0	DC6	Sinhala
+DCA		Sinhala
+DCF	DD4	Sinhala
+DD6		Sinhala
+DD8	DDF	Sinhala
+DE6	DEF	Sinhala
+DF2	DF4	Sinhala
+E01	E3A	Thai
+E3F		Common
+E40	E5B	Thai
+E81	E82	Lao
+E84		Lao
+E87	E88	Lao
+E8A		Lao
+E8D		Lao
+E94	E97	Lao
+E99	E9F	Lao
+EA1	EA3	Lao
+EA5		Lao
+EA7		Lao
+EAA	EAB	Lao
+EAD	EB9	Lao
+EBB	EBD	Lao
+EC0	EC4	Lao
+EC6		Lao
+EC8	ECD	Lao
+ED0	ED9	Lao
+EDC	EDF	Lao
+F00	F47	Tibetan
+F49	F6C	Tibetan
+F71	F97	Tibetan
+F99	FBC	Tibetan
+FBE	FCC	Tibetan
+FCE	FD4	Tibetan
+FD5	FD8	Common
+FD9	FDA	Tibetan
+1000	109F	Myanmar
+10A0	10C5	Georgian
+10C7		Georgian
+10CD		Georgian
+10D0	10FA	Georgian
+10FB		Common
+10FC	10FF	Georgian
+1100	11FF	Hangul
+1200	1248	Ethiopic
+124A	124D	Ethiopic
+1250	1256	Ethiopic
+1258		Ethiopic
+125A	125D	Ethiopic
+1260	1288	Ethiopic
+128A	128D	Ethiopic
+1290	12B0	Ethiopic
+12B2	12B5	Ethiopic
+12B8	12BE	Ethiopic
+12C0		Ethiopic
+12C2	12C5	Ethiopic
+12C8	12D6	Ethiopic
+12D8	1310	Ethiopic
+1312	1315	Ethiopic
+1318	135A	Ethiopic
+135D	137C	Ethiopic
+1380	1399	Ethiopic
+13A0	13F5	Cherokee
+13F8	13FD	Cherokee
+1400	167F	Canadian_Aboriginal
+1680	169C	Ogham
+16A0	16EA	Runic
+16EB	16ED	Common
+16EE	16F8	Runic
+1700	170C	Tagalog
+170E	1714	Tagalog
+1720	1734	Hanunoo
+1735	1736	Common
+1740	1753	Buhid
+1760	176C	Tagbanwa
+176E	1770	Tagbanwa
+1772	1773	Tagbanwa
+1780	17DD	Khmer
+17E0	17E9	Khmer
+17F0	17F9	Khmer
+1800	1801	Mongolian
+1802	1803	Common
+1804		Mongolian
+1805		Common
+1806	180E	Mongolian
+1810	1819	Mongolian
+1820	1877	Mongolian
+1880	18AA	Mongolian
+18B0	18F5	Canadian_Aboriginal
+1900	191E	Limbu
+1920	192B	Limbu
+1930	193B	Limbu
+1940		Limbu
+1944	194F	Limbu
+1950	196D	Tai_Le
+1970	1974	Tai_Le
+1980	19AB	New_Tai_Lue
+19B0	19C9	New_Tai_Lue
+19D0	19DA	New_Tai_Lue
+19DE	19DF	New_Tai_Lue
+19E0	19FF	Khmer
+1A00	1A1B	Buginese
+1A1E	1A1F	Buginese
+1A20	1A5E	Tai_Tham
+1A60	1A7C	Tai_Tham
+1A7F	1A89	Tai_Tham
+1A90	1A99	Tai_Tham
+1AA0	1AAD	Tai_Tham
+1AB0	1ABE	Inherited
+1B00	1B4B	Balinese
+1B50	1B7C	Balinese
+1B80	1BBF	Sundanese
+1BC0	1BF3	Batak
+1BFC	1BFF	Batak
+1C00	1C37	Lepcha
+1C3B	1C49	Lepcha
+1C4D	1C4F	Lepcha
+1C50	1C7F	Ol_Chiki
+1C80	1C88	Cyrillic
+1CC0	1CC7	Sundanese
+1CD0	1CD2	Inherited
+1CD3		Common
+1CD4	1CE0	Inherited
+1CE1		Common
+1CE2	1CE8	Inherited
+1CE9	1CEC	Common
+1CED		Inherited
+1CEE	1CF3	Common
+1CF4		Inherited
+1CF5	1CF7	Common
+1CF8	1CF9	Inherited
+1D00	1D25	Latin
+1D26	1D2A	Greek
+1D2B		Cyrillic
+1D2C	1D5C	Latin
+1D5D	1D61	Greek
+1D62	1D65	Latin
+1D66	1D6A	Greek
+1D6B	1D77	Latin
+1D78		Cyrillic
+1D79	1DBE	Latin
+1DBF		Greek
+1DC0	1DF9	Inherited
+1DFB	1DFF	Inherited
+1E00	1EFF	Latin
+1F00	1F15	Greek
+1F18	1F1D	Greek
+1F20	1F45	Greek
+1F48	1F4D	Greek
+1F50	1F57	Greek
+1F59		Greek
+1F5B		Greek
+1F5D		Greek
+1F5F	1F7D	Greek
+1F80	1FB4	Greek
+1FB6	1FC4	Greek
+1FC6	1FD3	Greek
+1FD6	1FDB	Greek
+1FDD	1FEF	Greek
+1FF2	1FF4	Greek
+1FF6	1FFE	Greek
+2000	200B	Common
+200C	200D	Inherited
+200E	2064	Common
+2066	2070	Common
+2071		Latin
+2074	207E	Common
+207F		Latin
+2080	208E	Common
+2090	209C	Latin
+20A0	20BF	Common
+20D0	20F0	Inherited
+2100	2125	Common
+2126		Greek
+2127	2129	Common
+212A	212B	Latin
+212C	2131	Common
+2132		Latin
+2133	214D	Common
+214E		Latin
+214F	215F	Common
+2160	2188	Latin
+2189	218B	Common
+2190	2426	Common
+2440	244A	Common
+2460	27FF	Common
+2800	28FF	Braille
+2900	2B73	Common
+2B76	2B95	Common
+2B98	2BB9	Common
+2BBD	2BC8	Common
+2BCA	2BD2	Common
+2BEC	2BEF	Common
+2C00	2C2E	Glagolitic
+2C30	2C5E	Glagolitic
+2C60	2C7F	Latin
+2C80	2CF3	Coptic
+2CF9	2CFF	Coptic
+2D00	2D25	Georgian
+2D27		Georgian
+2D2D		Georgian
+2D30	2D67	Tifinagh
+2D6F	2D70	Tifinagh
+2D7F		Tifinagh
+2D80	2D96	Ethiopic
+2DA0	2DA6	Ethiopic
+2DA8	2DAE	Ethiopic
+2DB0	2DB6	Ethiopic
+2DB8	2DBE	Ethiopic
+2DC0	2DC6	Ethiopic
+2DC8	2DCE	Ethiopic
+2DD0	2DD6	Ethiopic
+2DD8	2DDE	Ethiopic
+2DE0	2DFF	Cyrillic
+2E00	2E49	Common
+2E80	2E99	Han
+2E9B	2EF3	Han
+2F00	2FD5	Han
+2FF0	2FFB	Common
+3000	3004	Common
+3005		Han
+3006		Common
+3007		Han
+3008	3020	Common
+3021	3029	Han
+302A	302D	Inherited
+302E	302F	Hangul
+3030	3037	Common
+3038	303B	Han
+303C	303F	Common
+3041	3096	Hiragana
+3099	309A	Inherited
+309B	309C	Common
+309D	309F	Hiragana
+30A0		Common
+30A1	30FA	Katakana
+30FB	30FC	Common
+30FD	30FF	Katakana
+3105	312E	Bopomofo
+3131	318E	Hangul
+3190	319F	Common
+31A0	31BA	Bopomofo
+31C0	31E3	Common
+31F0	31FF	Katakana
+3200	321E	Hangul
+3220	325F	Common
+3260	327E	Hangul
+327F	32CF	Common
+32D0	32FE	Katakana
+3300	3357	Katakana
+3358	33FF	Common
+3400	4DB5	Han
+4DC0	4DFF	Common
+4E00	9FEA	Han
+A000	A48C	Yi
+A490	A4C6	Yi
+A4D0	A4FF	Lisu
+A500	A62B	Vai
+A640	A69F	Cyrillic
+A6A0	A6F7	Bamum
+A700	A721	Common
+A722	A787	Latin
+A788	A78A	Common
+A78B	A7AE	Latin
+A7B0	A7B7	Latin
+A7F7	A7FF	Latin
+A800	A82B	Syloti_Nagri
+A830	A839	Common
+A840	A877	Phags_Pa
+A880	A8C5	Saurashtra
+A8CE	A8D9	Saurashtra
+A8E0	A8FD	Devanagari
+A900	A92D	Kayah_Li
+A92E		Common
+A92F		Kayah_Li
+A930	A953	Rejang
+A95F		Rejang
+A960	A97C	Hangul
+A980	A9CD	Javanese
+A9CF		Common
+A9D0	A9D9	Javanese
+A9DE	A9DF	Javanese
+A9E0	A9FE	Myanmar
+AA00	AA36	Cham
+AA40	AA4D	Cham
+AA50	AA59	Cham
+AA5C	AA5F	Cham
+AA60	AA7F	Myanmar
+AA80	AAC2	Tai_Viet
+AADB	AADF	Tai_Viet
+AAE0	AAF6	Meetei_Mayek
+AB01	AB06	Ethiopic
+AB09	AB0E	Ethiopic
+AB11	AB16	Ethiopic
+AB20	AB26	Ethiopic
+AB28	AB2E	Ethiopic
+AB30	AB5A	Latin
+AB5B		Common
+AB5C	AB64	Latin
+AB65		Greek
+AB70	ABBF	Cherokee
+ABC0	ABED	Meetei_Mayek
+ABF0	ABF9	Meetei_Mayek
+AC00	D7A3	Hangul
+D7B0	D7C6	Hangul
+D7CB	D7FB	Hangul
+F900	FA6D	Han
+FA70	FAD9	Han
+FB00	FB06	Latin
+FB13	FB17	Armenian
+FB1D	FB36	Hebrew
+FB38	FB3C	Hebrew
+FB3E		Hebrew
+FB40	FB41	Hebrew
+FB43	FB44	Hebrew
+FB46	FB4F	Hebrew
+FB50	FBC1	Arabic
+FBD3	FD3D	Arabic
+FD3E	FD3F	Common
+FD50	FD8F	Arabic
+FD92	FDC7	Arabic
+FDF0	FDFD	Arabic
+FE00	FE0F	Inherited
+FE10	FE19	Common
+FE20	FE2D	Inherited
+FE2E	FE2F	Cyrillic
+FE30	FE52	Common
+FE54	FE66	Common
+FE68	FE6B	Common
+FE70	FE74	Arabic
+FE76	FEFC	Arabic
+FEFF		Common
+FF01	FF20	Common
+FF21	FF3A	Latin
+FF3B	FF40	Common
+FF41	FF5A	Latin
+FF5B	FF65	Common
+FF66	FF6F	Katakana
+FF70		Common
+FF71	FF9D	Katakana
+FF9E	FF9F	Common
+FFA0	FFBE	Hangul
+FFC2	FFC7	Hangul
+FFCA	FFCF	Hangul
+FFD2	FFD7	Hangul
+FFDA	FFDC	Hangul
+FFE0	FFE6	Common
+FFE8	FFEE	Common
+FFF9	FFFD	Common
+10000	1000B	Linear_B
+1000D	10026	Linear_B
+10028	1003A	Linear_B
+1003C	1003D	Linear_B
+1003F	1004D	Linear_B
+10050	1005D	Linear_B
+10080	100FA	Linear_B
+10100	10102	Common
+10107	10133	Common
+10137	1013F	Common
+10140	1018E	Greek
+10190	1019B	Common
+101A0		Greek
+101D0	101FC	Common
+101FD		Inherited
+10280	1029C	Lycian
+102A0	102D0	Carian
+102E0		Inherited
+102E1	102FB	Common
+10300	10323	Old_Italic
+1032D	1032F	Old_Italic
+10330	1034A	Gothic
+10350	1037A	Old_Permic
+10380	1039D	Ugaritic
+1039F		Ugaritic
+103A0	103C3	Old_Persian
+103C8	103D5	Old_Persian
+10400	1044F	Deseret
+10450	1047F	Shavian
+10480	1049D	Osmanya
+104A0	104A9	Osmanya
+104B0	104D3	Osage
+104D8	104FB	Osage
+10500	10527	Elbasan
+10530	10563	Caucasian_Albanian
+1056F		Caucasian_Albanian
+10600	10736	Linear_A
+10740	10755	Linear_A
+10760	10767	Linear_A
+10800	10805	Cypriot
+10808		Cypriot
+1080A	10835	Cypriot
+10837	10838	Cypriot
+1083C		Cypriot
+1083F		Cypriot
+10840	10855	Imperial_Aramaic
+10857	1085F	Imperial_Aramaic
+10860	1087F	Palmyrene
+10880	1089E	Nabataean
+108A7	108AF	Nabataean
+108E0	108F2	Hatran
+108F4	108F5	Hatran
+108FB	108FF	Hatran
+10900	1091B	Phoenician
+1091F		Phoenician
+10920	10939	Lydian
+1093F		Lydian
+10980	1099F	Meroitic_Hieroglyphs
+109A0	109B7	Meroitic_Cursive
+109BC	109CF	Meroitic_Cursive
+109D2	109FF	Meroitic_Cursive
+10A00	10A03	Kharoshthi
+10A05	10A06	Kharoshthi
+10A0C	10A13	Kharoshthi
+10A15	10A17	Kharoshthi
+10A19	10A33	Kharoshthi
+10A38	10A3A	Kharoshthi
+10A3F	10A47	Kharoshthi
+10A50	10A58	Kharoshthi
+10A60	10A7F	Old_South_Arabian
+10A80	10A9F	Old_North_Arabian
+10AC0	10AE6	Manichaean
+10AEB	10AF6	Manichaean
+10B00	10B35	Avestan
+10B39	10B3F	Avestan
+10B40	10B55	Inscriptional_Parthian
+10B58	10B5F	Inscriptional_Parthian
+10B60	10B72	Inscriptional_Pahlavi
+10B78	10B7F	Inscriptional_Pahlavi
+10B80	10B91	Psalter_Pahlavi
+10B99	10B9C	Psalter_Pahlavi
+10BA9	10BAF	Psalter_Pahlavi
+10C00	10C48	Old_Turkic
+10C80	10CB2	Old_Hungarian
+10CC0	10CF2	Old_Hungarian
+10CFA	10CFF	Old_Hungarian
+10E60	10E7E	Arabic
+11000	1104D	Brahmi
+11052	1106F	Brahmi
+1107F		Brahmi
+11080	110C1	Kaithi
+110D0	110E8	Sora_Sompeng
+110F0	110F9	Sora_Sompeng
+11100	11134	Chakma
+11136	11143	Chakma
+11150	11176	Mahajani
+11180	111CD	Sharada
+111D0	111DF	Sharada
+111E1	111F4	Sinhala
+11200	11211	Khojki
+11213	1123E	Khojki
+11280	11286	Multani
+11288		Multani
+1128A	1128D	Multani
+1128F	1129D	Multani
+1129F	112A9	Multani
+112B0	112EA	Khudawadi
+112F0	112F9	Khudawadi
+11300	11303	Grantha
+11305	1130C	Grantha
+1130F	11310	Grantha
+11313	11328	Grantha
+1132A	11330	Grantha
+11332	11333	Grantha
+11335	11339	Grantha
+1133C	11344	Grantha
+11347	11348	Grantha
+1134B	1134D	Grantha
+11350		Grantha
+11357		Grantha
+1135D	11363	Grantha
+11366	1136C	Grantha
+11370	11374	Grantha
+11400	11459	Newa
+1145B		Newa
+1145D		Newa
+11480	114C7	Tirhuta
+114D0	114D9	Tirhuta
+11580	115B5	Siddham
+115B8	115DD	Siddham
+11600	11644	Modi
+11650	11659	Modi
+11660	1166C	Mongolian
+11680	116B7	Takri
+116C0	116C9	Takri
+11700	11719	Ahom
+1171D	1172B	Ahom
+11730	1173F	Ahom
+118A0	118F2	Warang_Citi
+118FF		Warang_Citi
+11A00	11A47	Zanabazar_Square
+11A50	11A83	Soyombo
+11A86	11A9C	Soyombo
+11A9E	11AA2	Soyombo
+11AC0	11AF8	Pau_Cin_Hau
+11C00	11C08	Bhaiksuki
+11C0A	11C36	Bhaiksuki
+11C38	11C45	Bhaiksuki
+11C50	11C6C	Bhaiksuki
+11C70	11C8F	Marchen
+11C92	11CA7	Marchen
+11CA9	11CB6	Marchen
+11D00	11D06	Masaram_Gondi
+11D08	11D09	Masaram_Gondi
+11D0B	11D36	Masaram_Gondi
+11D3A		Masaram_Gondi
+11D3C	11D3D	Masaram_Gondi
+11D3F	11D47	Masaram_Gondi
+11D50	11D59	Masaram_Gondi
+12000	12399	Cuneiform
+12400	1246E	Cuneiform
+12470	12474	Cuneiform
+12480	12543	Cuneiform
+13000	1342E	Egyptian_Hieroglyphs
+14400	14646	Anatolian_Hieroglyphs
+16800	16A38	Bamum
+16A40	16A5E	Mro
+16A60	16A69	Mro
+16A6E	16A6F	Mro
+16AD0	16AED	Bassa_Vah
+16AF0	16AF5	Bassa_Vah
+16B00	16B45	Pahawh_Hmong
+16B50	16B59	Pahawh_Hmong
+16B5B	16B61	Pahawh_Hmong
+16B63	16B77	Pahawh_Hmong
+16B7D	16B8F	Pahawh_Hmong
+16F00	16F44	Miao
+16F50	16F7E	Miao
+16F8F	16F9F	Miao
+16FE0		Tangut
+16FE1		Nushu
+17000	187EC	Tangut
+18800	18AF2	Tangut
+1B000		Katakana
+1B001	1B11E	Hiragana
+1B170	1B2FB	Nushu
+1BC00	1BC6A	Duployan
+1BC70	1BC7C	Duployan
+1BC80	1BC88	Duployan
+1BC90	1BC99	Duployan
+1BC9C	1BC9F	Duployan
+1BCA0	1BCA3	Common
+1D000	1D0F5	Common
+1D100	1D126	Common
+1D129	1D166	Common
+1D167	1D169	Inherited
+1D16A	1D17A	Common
+1D17B	1D182	Inherited
+1D183	1D184	Common
+1D185	1D18B	Inherited
+1D18C	1D1A9	Common
+1D1AA	1D1AD	Inherited
+1D1AE	1D1E8	Common
+1D200	1D245	Greek
+1D300	1D356	Common
+1D360	1D371	Common
+1D400	1D454	Common
+1D456	1D49C	Common
+1D49E	1D49F	Common
+1D4A2		Common
+1D4A5	1D4A6	Common
+1D4A9	1D4AC	Common
+1D4AE	1D4B9	Common
+1D4BB		Common
+1D4BD	1D4C3	Common
+1D4C5	1D505	Common
+1D507	1D50A	Common
+1D50D	1D514	Common
+1D516	1D51C	Common
+1D51E	1D539	Common
+1D53B	1D53E	Common
+1D540	1D544	Common
+1D546		Common
+1D54A	1D550	Common
+1D552	1D6A5	Common
+1D6A8	1D7CB	Common
+1D7CE	1D7FF	Common
+1D800	1DA8B	SignWriting
+1DA9B	1DA9F	SignWriting
+1DAA1	1DAAF	SignWriting
+1E000	1E006	Glagolitic
+1E008	1E018	Glagolitic
+1E01B	1E021	Glagolitic
+1E023	1E024	Glagolitic
+1E026	1E02A	Glagolitic
+1E800	1E8C4	Mende_Kikakui
+1E8C7	1E8D6	Mende_Kikakui
+1E900	1E94A	Adlam
+1E950	1E959	Adlam
+1E95E	1E95F	Adlam
+1EE00	1EE03	Arabic
+1EE05	1EE1F	Arabic
+1EE21	1EE22	Arabic
+1EE24		Arabic
+1EE27		Arabic
+1EE29	1EE32	Arabic
+1EE34	1EE37	Arabic
+1EE39		Arabic
+1EE3B		Arabic
+1EE42		Arabic
+1EE47		Arabic
+1EE49		Arabic
+1EE4B		Arabic
+1EE4D	1EE4F	Arabic
+1EE51	1EE52	Arabic
+1EE54		Arabic
+1EE57		Arabic
+1EE59		Arabic
+1EE5B		Arabic
+1EE5D		Arabic
+1EE5F		Arabic
+1EE61	1EE62	Arabic
+1EE64		Arabic
+1EE67	1EE6A	Arabic
+1EE6C	1EE72	Arabic
+1EE74	1EE77	Arabic
+1EE79	1EE7C	Arabic
+1EE7E		Arabic
+1EE80	1EE89	Arabic
+1EE8B	1EE9B	Arabic
+1EEA1	1EEA3	Arabic
+1EEA5	1EEA9	Arabic
+1EEAB	1EEBB	Arabic
+1EEF0	1EEF1	Arabic
+1F000	1F02B	Common
+1F030	1F093	Common
+1F0A0	1F0AE	Common
+1F0B1	1F0BF	Common
+1F0C1	1F0CF	Common
+1F0D1	1F0F5	Common
+1F100	1F10C	Common
+1F110	1F12E	Common
+1F130	1F16B	Common
+1F170	1F1AC	Common
+1F1E6	1F1FF	Common
+1F200		Hiragana
+1F201	1F202	Common
+1F210	1F23B	Common
+1F240	1F248	Common
+1F250	1F251	Common
+1F260	1F265	Common
+1F300	1F6D4	Common
+1F6E0	1F6EC	Common
+1F6F0	1F6F8	Common
+1F700	1F773	Common
+1F780	1F7D4	Common
+1F800	1F80B	Common
+1F810	1F847	Common
+1F850	1F859	Common
+1F860	1F887	Common
+1F890	1F8AD	Common
+1F900	1F90B	Common
+1F910	1F93E	Common
+1F940	1F94C	Common
+1F950	1F96B	Common
+1F980	1F997	Common
+1F9C0		Common
+1F9D0	1F9E6	Common
+20000	2A6D6	Han
+2A700	2B734	Han
+2B740	2B81D	Han
+2B820	2CEA1	Han
+2CEB0	2EBE0	Han
+2F800	2FA1D	Han
+E0001		Common
+E0020	E007F	Common
+E0100	E01EF	Inherited
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToScx'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators
+$utf8::SwashInfo{'ToScx'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	40	Common
+41	5A	Latin
+5B	60	Common
+61	7A	Latin
+7B	A9	Common
+AA		Latin
+AB	B9	Common
+BA		Latin
+BB	BF	Common
+C0	D6	Latin
+D7		Common
+D8	F6	Latin
+F7		Common
+F8	2B8	Latin
+2B9	2DF	Common
+2E0	2E4	Latin
+2E5	2E9	Common
+2EA	2EB	Bopomofo
+2EC	2FF	Common
+300	341	Inherited
+342		Greek
+343	344	Inherited
+345		Greek
+346	362	Inherited
+363	36F	Latin
+370	373	Greek
+374		Common
+375	377	Greek
+37A	37D	Greek
+37E		Common
+37F		Greek
+384		Greek
+385		Common
+386		Greek
+387		Common
+388	38A	Greek
+38C		Greek
+38E	3A1	Greek
+3A3	3E1	Greek
+3E2	3EF	Coptic
+3F0	3FF	Greek
+400	482	Cyrillic
+483		Cyrillic Old_Permic
+484		Cyrillic Glagolitic
+485	486	Cyrillic Latin
+487		Cyrillic Glagolitic
+488	52F	Cyrillic
+531	556	Armenian
+559	55F	Armenian
+561	587	Armenian
+589		Armenian Georgian
+58A		Armenian
+58D	58F	Armenian
+591	5C7	Hebrew
+5D0	5EA	Hebrew
+5F0	5F4	Hebrew
+600	604	Arabic
+605		Common
+606	60B	Arabic
+60C		Arabic Syriac Thaana
+60D	61A	Arabic
+61B	61C	Arabic Syriac Thaana
+61E		Arabic
+61F		Arabic Syriac Thaana
+620	63F	Arabic
+640		Adlam Arabic Mandaic Manichaean Psalter_Pahlavi Syriac
+641	64A	Arabic
+64B	655	Arabic Syriac
+656	65F	Arabic
+660	669	Arabic Thaana
+66A	66F	Arabic
+670		Arabic Syriac
+671	6DC	Arabic
+6DD		Common
+6DE	6FF	Arabic
+700	70D	Syriac
+70F	74A	Syriac
+74D	74F	Syriac
+750	77F	Arabic
+780	7B1	Thaana
+7C0	7FA	Nko
+800	82D	Samaritan
+830	83E	Samaritan
+840	85B	Mandaic
+85E		Mandaic
+860	86A	Syriac
+8A0	8B4	Arabic
+8B6	8BD	Arabic
+8D4	8E1	Arabic
+8E2		Common
+8E3	8FF	Arabic
+900	950	Devanagari
+951		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Sharada Tamil Telugu
+952		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Tamil Telugu
+953	963	Devanagari
+964		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+965		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Limbu Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+966	96F	Devanagari Kaithi Mahajani
+970	97F	Devanagari
+980	983	Bengali
+985	98C	Bengali
+98F	990	Bengali
+993	9A8	Bengali
+9AA	9B0	Bengali
+9B2		Bengali
+9B6	9B9	Bengali
+9BC	9C4	Bengali
+9C7	9C8	Bengali
+9CB	9CE	Bengali
+9D7		Bengali
+9DC	9DD	Bengali
+9DF	9E3	Bengali
+9E6	9EF	Bengali Chakma Syloti_Nagri
+9F0	9FD	Bengali
+A01	A03	Gurmukhi
+A05	A0A	Gurmukhi
+A0F	A10	Gurmukhi
+A13	A28	Gurmukhi
+A2A	A30	Gurmukhi
+A32	A33	Gurmukhi
+A35	A36	Gurmukhi
+A38	A39	Gurmukhi
+A3C		Gurmukhi
+A3E	A42	Gurmukhi
+A47	A48	Gurmukhi
+A4B	A4D	Gurmukhi
+A51		Gurmukhi
+A59	A5C	Gurmukhi
+A5E		Gurmukhi
+A66	A6F	Gurmukhi Multani
+A70	A75	Gurmukhi
+A81	A83	Gujarati
+A85	A8D	Gujarati
+A8F	A91	Gujarati
+A93	AA8	Gujarati
+AAA	AB0	Gujarati
+AB2	AB3	Gujarati
+AB5	AB9	Gujarati
+ABC	AC5	Gujarati
+AC7	AC9	Gujarati
+ACB	ACD	Gujarati
+AD0		Gujarati
+AE0	AE3	Gujarati
+AE6	AEF	Gujarati Khojki
+AF0	AF1	Gujarati
+AF9	AFF	Gujarati
+B01	B03	Oriya
+B05	B0C	Oriya
+B0F	B10	Oriya
+B13	B28	Oriya
+B2A	B30	Oriya
+B32	B33	Oriya
+B35	B39	Oriya
+B3C	B44	Oriya
+B47	B48	Oriya
+B4B	B4D	Oriya
+B56	B57	Oriya
+B5C	B5D	Oriya
+B5F	B63	Oriya
+B66	B77	Oriya
+B82	B83	Tamil
+B85	B8A	Tamil
+B8E	B90	Tamil
+B92	B95	Tamil
+B99	B9A	Tamil
+B9C		Tamil
+B9E	B9F	Tamil
+BA3	BA4	Tamil
+BA8	BA9	Tamil
+BAA		Grantha Tamil
+BAE	BB4	Tamil
+BB5		Grantha Tamil
+BB6	BB9	Tamil
+BBE	BC2	Tamil
+BC6	BC8	Tamil
+BCA	BCD	Tamil
+BD0		Tamil
+BD7		Tamil
+BE6	BF2	Grantha Tamil
+BF3	BFA	Tamil
+C00	C03	Telugu
+C05	C0C	Telugu
+C0E	C10	Telugu
+C12	C28	Telugu
+C2A	C39	Telugu
+C3D	C44	Telugu
+C46	C48	Telugu
+C4A	C4D	Telugu
+C55	C56	Telugu
+C58	C5A	Telugu
+C60	C63	Telugu
+C66	C6F	Telugu
+C78	C7F	Telugu
+C80	C83	Kannada
+C85	C8C	Kannada
+C8E	C90	Kannada
+C92	CA8	Kannada
+CAA	CB3	Kannada
+CB5	CB9	Kannada
+CBC	CC4	Kannada
+CC6	CC8	Kannada
+CCA	CCD	Kannada
+CD5	CD6	Kannada
+CDE		Kannada
+CE0	CE3	Kannada
+CE6	CEF	Kannada
+CF1	CF2	Kannada
+D00	D03	Malayalam
+D05	D0C	Malayalam
+D0E	D10	Malayalam
+D12	D44	Malayalam
+D46	D48	Malayalam
+D4A	D4F	Malayalam
+D54	D63	Malayalam
+D66	D7F	Malayalam
+D82	D83	Sinhala
+D85	D96	Sinhala
+D9A	DB1	Sinhala
+DB3	DBB	Sinhala
+DBD		Sinhala
+DC0	DC6	Sinhala
+DCA		Sinhala
+DCF	DD4	Sinhala
+DD6		Sinhala
+DD8	DDF	Sinhala
+DE6	DEF	Sinhala
+DF2	DF4	Sinhala
+E01	E3A	Thai
+E3F		Common
+E40	E5B	Thai
+E81	E82	Lao
+E84		Lao
+E87	E88	Lao
+E8A		Lao
+E8D		Lao
+E94	E97	Lao
+E99	E9F	Lao
+EA1	EA3	Lao
+EA5		Lao
+EA7		Lao
+EAA	EAB	Lao
+EAD	EB9	Lao
+EBB	EBD	Lao
+EC0	EC4	Lao
+EC6		Lao
+EC8	ECD	Lao
+ED0	ED9	Lao
+EDC	EDF	Lao
+F00	F47	Tibetan
+F49	F6C	Tibetan
+F71	F97	Tibetan
+F99	FBC	Tibetan
+FBE	FCC	Tibetan
+FCE	FD4	Tibetan
+FD5	FD8	Common
+FD9	FDA	Tibetan
+1000	103F	Myanmar
+1040	1049	Chakma Myanmar Tai_Le
+104A	109F	Myanmar
+10A0	10C5	Georgian
+10C7		Georgian
+10CD		Georgian
+10D0	10FA	Georgian
+10FB		Georgian Latin
+10FC	10FF	Georgian
+1100	11FF	Hangul
+1200	1248	Ethiopic
+124A	124D	Ethiopic
+1250	1256	Ethiopic
+1258		Ethiopic
+125A	125D	Ethiopic
+1260	1288	Ethiopic
+128A	128D	Ethiopic
+1290	12B0	Ethiopic
+12B2	12B5	Ethiopic
+12B8	12BE	Ethiopic
+12C0		Ethiopic
+12C2	12C5	Ethiopic
+12C8	12D6	Ethiopic
+12D8	1310	Ethiopic
+1312	1315	Ethiopic
+1318	135A	Ethiopic
+135D	137C	Ethiopic
+1380	1399	Ethiopic
+13A0	13F5	Cherokee
+13F8	13FD	Cherokee
+1400	167F	Canadian_Aboriginal
+1680	169C	Ogham
+16A0	16EA	Runic
+16EB	16ED	Common
+16EE	16F8	Runic
+1700	170C	Tagalog
+170E	1714	Tagalog
+1720	1734	Hanunoo
+1735	1736	Buhid Hanunoo Tagbanwa Tagalog
+1740	1753	Buhid
+1760	176C	Tagbanwa
+176E	1770	Tagbanwa
+1772	1773	Tagbanwa
+1780	17DD	Khmer
+17E0	17E9	Khmer
+17F0	17F9	Khmer
+1800	1801	Mongolian
+1802	1803	Mongolian Phags_Pa
+1804		Mongolian
+1805		Mongolian Phags_Pa
+1806	180E	Mongolian
+1810	1819	Mongolian
+1820	1877	Mongolian
+1880	18AA	Mongolian
+18B0	18F5	Canadian_Aboriginal
+1900	191E	Limbu
+1920	192B	Limbu
+1930	193B	Limbu
+1940		Limbu
+1944	194F	Limbu
+1950	196D	Tai_Le
+1970	1974	Tai_Le
+1980	19AB	New_Tai_Lue
+19B0	19C9	New_Tai_Lue
+19D0	19DA	New_Tai_Lue
+19DE	19DF	New_Tai_Lue
+19E0	19FF	Khmer
+1A00	1A1B	Buginese
+1A1E	1A1F	Buginese
+1A20	1A5E	Tai_Tham
+1A60	1A7C	Tai_Tham
+1A7F	1A89	Tai_Tham
+1A90	1A99	Tai_Tham
+1AA0	1AAD	Tai_Tham
+1AB0	1ABE	Inherited
+1B00	1B4B	Balinese
+1B50	1B7C	Balinese
+1B80	1BBF	Sundanese
+1BC0	1BF3	Batak
+1BFC	1BFF	Batak
+1C00	1C37	Lepcha
+1C3B	1C49	Lepcha
+1C4D	1C4F	Lepcha
+1C50	1C7F	Ol_Chiki
+1C80	1C88	Cyrillic
+1CC0	1CC7	Sundanese
+1CD0		Devanagari Grantha
+1CD1		Devanagari
+1CD2	1CD3	Devanagari Grantha
+1CD4	1CD6	Devanagari
+1CD7		Devanagari Sharada
+1CD8		Devanagari
+1CD9		Devanagari Sharada
+1CDA		Devanagari Kannada Malayalam Tamil Telugu
+1CDB		Devanagari
+1CDC	1CDD	Devanagari Sharada
+1CDE	1CDF	Devanagari
+1CE0		Devanagari Sharada
+1CE1	1CF1	Devanagari
+1CF2	1CF4	Devanagari Grantha
+1CF5		Devanagari Kannada
+1CF6		Devanagari
+1CF7		Bengali
+1CF8	1CF9	Devanagari Grantha
+1D00	1D25	Latin
+1D26	1D2A	Greek
+1D2B		Cyrillic
+1D2C	1D5C	Latin
+1D5D	1D61	Greek
+1D62	1D65	Latin
+1D66	1D6A	Greek
+1D6B	1D77	Latin
+1D78		Cyrillic
+1D79	1DBE	Latin
+1DBF	1DC1	Greek
+1DC2	1DF9	Inherited
+1DFB	1DFF	Inherited
+1E00	1EFF	Latin
+1F00	1F15	Greek
+1F18	1F1D	Greek
+1F20	1F45	Greek
+1F48	1F4D	Greek
+1F50	1F57	Greek
+1F59		Greek
+1F5B		Greek
+1F5D		Greek
+1F5F	1F7D	Greek
+1F80	1FB4	Greek
+1FB6	1FC4	Greek
+1FC6	1FD3	Greek
+1FD6	1FDB	Greek
+1FDD	1FEF	Greek
+1FF2	1FF4	Greek
+1FF6	1FFE	Greek
+2000	200B	Common
+200C	200D	Inherited
+200E	2064	Common
+2066	2070	Common
+2071		Latin
+2074	207E	Common
+207F		Latin
+2080	208E	Common
+2090	209C	Latin
+20A0	20BF	Common
+20D0	20EF	Inherited
+20F0		Devanagari Grantha Latin
+2100	2125	Common
+2126		Greek
+2127	2129	Common
+212A	212B	Latin
+212C	2131	Common
+2132		Latin
+2133	214D	Common
+214E		Latin
+214F	215F	Common
+2160	2188	Latin
+2189	218B	Common
+2190	2426	Common
+2440	244A	Common
+2460	27FF	Common
+2800	28FF	Braille
+2900	2B73	Common
+2B76	2B95	Common
+2B98	2BB9	Common
+2BBD	2BC8	Common
+2BCA	2BD2	Common
+2BEC	2BEF	Common
+2C00	2C2E	Glagolitic
+2C30	2C5E	Glagolitic
+2C60	2C7F	Latin
+2C80	2CF3	Coptic
+2CF9	2CFF	Coptic
+2D00	2D25	Georgian
+2D27		Georgian
+2D2D		Georgian
+2D30	2D67	Tifinagh
+2D6F	2D70	Tifinagh
+2D7F		Tifinagh
+2D80	2D96	Ethiopic
+2DA0	2DA6	Ethiopic
+2DA8	2DAE	Ethiopic
+2DB0	2DB6	Ethiopic
+2DB8	2DBE	Ethiopic
+2DC0	2DC6	Ethiopic
+2DC8	2DCE	Ethiopic
+2DD0	2DD6	Ethiopic
+2DD8	2DDE	Ethiopic
+2DE0	2DFF	Cyrillic
+2E00	2E42	Common
+2E43		Cyrillic Glagolitic
+2E44	2E49	Common
+2E80	2E99	Han
+2E9B	2EF3	Han
+2F00	2FD5	Han
+2FF0	2FFB	Common
+3000		Common
+3001	3002	Bopomofo Hangul Han Hiragana Katakana Yi
+3003		Bopomofo Hangul Han Hiragana Katakana
+3004		Common
+3005	3007	Han
+3008	3011	Bopomofo Hangul Han Hiragana Katakana Yi
+3012		Common
+3013		Bopomofo Hangul Han Hiragana Katakana
+3014	301B	Bopomofo Hangul Han Hiragana Katakana Yi
+301C	301F	Bopomofo Hangul Han Hiragana Katakana
+3020		Common
+3021	3029	Han
+302A	302D	Bopomofo Han
+302E	302F	Hangul
+3030		Bopomofo Hangul Han Hiragana Katakana
+3031	3035	Hiragana Katakana
+3036		Common
+3037		Bopomofo Hangul Han Hiragana Katakana
+3038	303B	Han
+303C	303D	Han Hiragana Katakana
+303E	303F	Han
+3041	3096	Hiragana
+3099	309C	Hiragana Katakana
+309D	309F	Hiragana
+30A0		Hiragana Katakana
+30A1	30FA	Katakana
+30FB		Bopomofo Hangul Han Hiragana Katakana Yi
+30FC		Hiragana Katakana
+30FD	30FF	Katakana
+3105	312E	Bopomofo
+3131	318E	Hangul
+3190	319F	Han
+31A0	31BA	Bopomofo
+31C0	31E3	Han
+31F0	31FF	Katakana
+3200	321E	Hangul
+3220	3247	Han
+3248	325F	Common
+3260	327E	Hangul
+327F		Common
+3280	32B0	Han
+32B1	32BF	Common
+32C0	32CB	Han
+32CC	32CF	Common
+32D0	32FE	Katakana
+3300	3357	Katakana
+3358	3370	Han
+3371	337A	Common
+337B	337F	Han
+3380	33DF	Common
+33E0	33FE	Han
+33FF		Common
+3400	4DB5	Han
+4DC0	4DFF	Common
+4E00	9FEA	Han
+A000	A48C	Yi
+A490	A4C6	Yi
+A4D0	A4FF	Lisu
+A500	A62B	Vai
+A640	A66E	Cyrillic
+A66F		Cyrillic Glagolitic
+A670	A69F	Cyrillic
+A6A0	A6F7	Bamum
+A700	A721	Common
+A722	A787	Latin
+A788	A78A	Common
+A78B	A7AE	Latin
+A7B0	A7B7	Latin
+A7F7	A7FF	Latin
+A800	A82B	Syloti_Nagri
+A830	A835	Devanagari Gujarati Gurmukhi Kannada Kaithi Mahajani Modi Khudawadi Takri Tirhuta
+A836	A839	Devanagari Gujarati Gurmukhi Kaithi Mahajani Modi Khudawadi Takri Tirhuta
+A840	A877	Phags_Pa
+A880	A8C5	Saurashtra
+A8CE	A8D9	Saurashtra
+A8E0	A8F0	Devanagari
+A8F1		Bengali Devanagari
+A8F2		Devanagari
+A8F3		Devanagari Tamil
+A8F4	A8FD	Devanagari
+A900	A92D	Kayah_Li
+A92E		Kayah_Li Latin Myanmar
+A92F		Kayah_Li
+A930	A953	Rejang
+A95F		Rejang
+A960	A97C	Hangul
+A980	A9CD	Javanese
+A9CF		Buginese Javanese
+A9D0	A9D9	Javanese
+A9DE	A9DF	Javanese
+A9E0	A9FE	Myanmar
+AA00	AA36	Cham
+AA40	AA4D	Cham
+AA50	AA59	Cham
+AA5C	AA5F	Cham
+AA60	AA7F	Myanmar
+AA80	AAC2	Tai_Viet
+AADB	AADF	Tai_Viet
+AAE0	AAF6	Meetei_Mayek
+AB01	AB06	Ethiopic
+AB09	AB0E	Ethiopic
+AB11	AB16	Ethiopic
+AB20	AB26	Ethiopic
+AB28	AB2E	Ethiopic
+AB30	AB5A	Latin
+AB5B		Common
+AB5C	AB64	Latin
+AB65		Greek
+AB70	ABBF	Cherokee
+ABC0	ABED	Meetei_Mayek
+ABF0	ABF9	Meetei_Mayek
+AC00	D7A3	Hangul
+D7B0	D7C6	Hangul
+D7CB	D7FB	Hangul
+F900	FA6D	Han
+FA70	FAD9	Han
+FB00	FB06	Latin
+FB13	FB17	Armenian
+FB1D	FB36	Hebrew
+FB38	FB3C	Hebrew
+FB3E		Hebrew
+FB40	FB41	Hebrew
+FB43	FB44	Hebrew
+FB46	FB4F	Hebrew
+FB50	FBC1	Arabic
+FBD3	FD3D	Arabic
+FD3E	FD3F	Common
+FD50	FD8F	Arabic
+FD92	FDC7	Arabic
+FDF0	FDF1	Arabic
+FDF2		Arabic Thaana
+FDF3	FDFC	Arabic
+FDFD		Arabic Thaana
+FE00	FE0F	Inherited
+FE10	FE19	Common
+FE20	FE2D	Inherited
+FE2E	FE2F	Cyrillic
+FE30	FE44	Common
+FE45	FE46	Bopomofo Hangul Han Hiragana Katakana
+FE47	FE52	Common
+FE54	FE66	Common
+FE68	FE6B	Common
+FE70	FE74	Arabic
+FE76	FEFC	Arabic
+FEFF		Common
+FF01	FF20	Common
+FF21	FF3A	Latin
+FF3B	FF40	Common
+FF41	FF5A	Latin
+FF5B	FF60	Common
+FF61	FF65	Bopomofo Hangul Han Hiragana Katakana Yi
+FF66	FF6F	Katakana
+FF70		Hiragana Katakana
+FF71	FF9D	Katakana
+FF9E	FF9F	Hiragana Katakana
+FFA0	FFBE	Hangul
+FFC2	FFC7	Hangul
+FFCA	FFCF	Hangul
+FFD2	FFD7	Hangul
+FFDA	FFDC	Hangul
+FFE0	FFE6	Common
+FFE8	FFEE	Common
+FFF9	FFFD	Common
+10000	1000B	Linear_B
+1000D	10026	Linear_B
+10028	1003A	Linear_B
+1003C	1003D	Linear_B
+1003F	1004D	Linear_B
+10050	1005D	Linear_B
+10080	100FA	Linear_B
+10100	10102	Cypriot Linear_B
+10107	10133	Cypriot Linear_A Linear_B
+10137	1013F	Cypriot Linear_B
+10140	1018E	Greek
+10190	1019B	Common
+101A0		Greek
+101D0	101FC	Common
+101FD		Inherited
+10280	1029C	Lycian
+102A0	102D0	Carian
+102E0	102FB	Arabic Coptic
+10300	10323	Old_Italic
+1032D	1032F	Old_Italic
+10330	1034A	Gothic
+10350	1037A	Old_Permic
+10380	1039D	Ugaritic
+1039F		Ugaritic
+103A0	103C3	Old_Persian
+103C8	103D5	Old_Persian
+10400	1044F	Deseret
+10450	1047F	Shavian
+10480	1049D	Osmanya
+104A0	104A9	Osmanya
+104B0	104D3	Osage
+104D8	104FB	Osage
+10500	10527	Elbasan
+10530	10563	Caucasian_Albanian
+1056F		Caucasian_Albanian
+10600	10736	Linear_A
+10740	10755	Linear_A
+10760	10767	Linear_A
+10800	10805	Cypriot
+10808		Cypriot
+1080A	10835	Cypriot
+10837	10838	Cypriot
+1083C		Cypriot
+1083F		Cypriot
+10840	10855	Imperial_Aramaic
+10857	1085F	Imperial_Aramaic
+10860	1087F	Palmyrene
+10880	1089E	Nabataean
+108A7	108AF	Nabataean
+108E0	108F2	Hatran
+108F4	108F5	Hatran
+108FB	108FF	Hatran
+10900	1091B	Phoenician
+1091F		Phoenician
+10920	10939	Lydian
+1093F		Lydian
+10980	1099F	Meroitic_Hieroglyphs
+109A0	109B7	Meroitic_Cursive
+109BC	109CF	Meroitic_Cursive
+109D2	109FF	Meroitic_Cursive
+10A00	10A03	Kharoshthi
+10A05	10A06	Kharoshthi
+10A0C	10A13	Kharoshthi
+10A15	10A17	Kharoshthi
+10A19	10A33	Kharoshthi
+10A38	10A3A	Kharoshthi
+10A3F	10A47	Kharoshthi
+10A50	10A58	Kharoshthi
+10A60	10A7F	Old_South_Arabian
+10A80	10A9F	Old_North_Arabian
+10AC0	10AE6	Manichaean
+10AEB	10AF6	Manichaean
+10B00	10B35	Avestan
+10B39	10B3F	Avestan
+10B40	10B55	Inscriptional_Parthian
+10B58	10B5F	Inscriptional_Parthian
+10B60	10B72	Inscriptional_Pahlavi
+10B78	10B7F	Inscriptional_Pahlavi
+10B80	10B91	Psalter_Pahlavi
+10B99	10B9C	Psalter_Pahlavi
+10BA9	10BAF	Psalter_Pahlavi
+10C00	10C48	Old_Turkic
+10C80	10CB2	Old_Hungarian
+10CC0	10CF2	Old_Hungarian
+10CFA	10CFF	Old_Hungarian
+10E60	10E7E	Arabic
+11000	1104D	Brahmi
+11052	1106F	Brahmi
+1107F		Brahmi
+11080	110C1	Kaithi
+110D0	110E8	Sora_Sompeng
+110F0	110F9	Sora_Sompeng
+11100	11134	Chakma
+11136	11143	Chakma
+11150	11176	Mahajani
+11180	111CD	Sharada
+111D0	111DF	Sharada
+111E1	111F4	Sinhala
+11200	11211	Khojki
+11213	1123E	Khojki
+11280	11286	Multani
+11288		Multani
+1128A	1128D	Multani
+1128F	1129D	Multani
+1129F	112A9	Multani
+112B0	112EA	Khudawadi
+112F0	112F9	Khudawadi
+11300		Grantha
+11301		Grantha Tamil
+11302		Grantha
+11303		Grantha Tamil
+11305	1130C	Grantha
+1130F	11310	Grantha
+11313	11328	Grantha
+1132A	11330	Grantha
+11332	11333	Grantha
+11335	11339	Grantha
+1133C		Grantha Tamil
+1133D	11344	Grantha
+11347	11348	Grantha
+1134B	1134D	Grantha
+11350		Grantha
+11357		Grantha
+1135D	11363	Grantha
+11366	1136C	Grantha
+11370	11374	Grantha
+11400	11459	Newa
+1145B		Newa
+1145D		Newa
+11480	114C7	Tirhuta
+114D0	114D9	Tirhuta
+11580	115B5	Siddham
+115B8	115DD	Siddham
+11600	11644	Modi
+11650	11659	Modi
+11660	1166C	Mongolian
+11680	116B7	Takri
+116C0	116C9	Takri
+11700	11719	Ahom
+1171D	1172B	Ahom
+11730	1173F	Ahom
+118A0	118F2	Warang_Citi
+118FF		Warang_Citi
+11A00	11A47	Zanabazar_Square
+11A50	11A83	Soyombo
+11A86	11A9C	Soyombo
+11A9E	11AA2	Soyombo
+11AC0	11AF8	Pau_Cin_Hau
+11C00	11C08	Bhaiksuki
+11C0A	11C36	Bhaiksuki
+11C38	11C45	Bhaiksuki
+11C50	11C6C	Bhaiksuki
+11C70	11C8F	Marchen
+11C92	11CA7	Marchen
+11CA9	11CB6	Marchen
+11D00	11D06	Masaram_Gondi
+11D08	11D09	Masaram_Gondi
+11D0B	11D36	Masaram_Gondi
+11D3A		Masaram_Gondi
+11D3C	11D3D	Masaram_Gondi
+11D3F	11D47	Masaram_Gondi
+11D50	11D59	Masaram_Gondi
+12000	12399	Cuneiform
+12400	1246E	Cuneiform
+12470	12474	Cuneiform
+12480	12543	Cuneiform
+13000	1342E	Egyptian_Hieroglyphs
+14400	14646	Anatolian_Hieroglyphs
+16800	16A38	Bamum
+16A40	16A5E	Mro
+16A60	16A69	Mro
+16A6E	16A6F	Mro
+16AD0	16AED	Bassa_Vah
+16AF0	16AF5	Bassa_Vah
+16B00	16B45	Pahawh_Hmong
+16B50	16B59	Pahawh_Hmong
+16B5B	16B61	Pahawh_Hmong
+16B63	16B77	Pahawh_Hmong
+16B7D	16B8F	Pahawh_Hmong
+16F00	16F44	Miao
+16F50	16F7E	Miao
+16F8F	16F9F	Miao
+16FE0		Tangut
+16FE1		Nushu
+17000	187EC	Tangut
+18800	18AF2	Tangut
+1B000		Katakana
+1B001	1B11E	Hiragana
+1B170	1B2FB	Nushu
+1BC00	1BC6A	Duployan
+1BC70	1BC7C	Duployan
+1BC80	1BC88	Duployan
+1BC90	1BC99	Duployan
+1BC9C	1BCA3	Duployan
+1D000	1D0F5	Common
+1D100	1D126	Common
+1D129	1D166	Common
+1D167	1D169	Inherited
+1D16A	1D17A	Common
+1D17B	1D182	Inherited
+1D183	1D184	Common
+1D185	1D18B	Inherited
+1D18C	1D1A9	Common
+1D1AA	1D1AD	Inherited
+1D1AE	1D1E8	Common
+1D200	1D245	Greek
+1D300	1D356	Common
+1D360	1D371	Han
+1D400	1D454	Common
+1D456	1D49C	Common
+1D49E	1D49F	Common
+1D4A2		Common
+1D4A5	1D4A6	Common
+1D4A9	1D4AC	Common
+1D4AE	1D4B9	Common
+1D4BB		Common
+1D4BD	1D4C3	Common
+1D4C5	1D505	Common
+1D507	1D50A	Common
+1D50D	1D514	Common
+1D516	1D51C	Common
+1D51E	1D539	Common
+1D53B	1D53E	Common
+1D540	1D544	Common
+1D546		Common
+1D54A	1D550	Common
+1D552	1D6A5	Common
+1D6A8	1D7CB	Common
+1D7CE	1D7FF	Common
+1D800	1DA8B	SignWriting
+1DA9B	1DA9F	SignWriting
+1DAA1	1DAAF	SignWriting
+1E000	1E006	Glagolitic
+1E008	1E018	Glagolitic
+1E01B	1E021	Glagolitic
+1E023	1E024	Glagolitic
+1E026	1E02A	Glagolitic
+1E800	1E8C4	Mende_Kikakui
+1E8C7	1E8D6	Mende_Kikakui
+1E900	1E94A	Adlam
+1E950	1E959	Adlam
+1E95E	1E95F	Adlam
+1EE00	1EE03	Arabic
+1EE05	1EE1F	Arabic
+1EE21	1EE22	Arabic
+1EE24		Arabic
+1EE27		Arabic
+1EE29	1EE32	Arabic
+1EE34	1EE37	Arabic
+1EE39		Arabic
+1EE3B		Arabic
+1EE42		Arabic
+1EE47		Arabic
+1EE49		Arabic
+1EE4B		Arabic
+1EE4D	1EE4F	Arabic
+1EE51	1EE52	Arabic
+1EE54		Arabic
+1EE57		Arabic
+1EE59		Arabic
+1EE5B		Arabic
+1EE5D		Arabic
+1EE5F		Arabic
+1EE61	1EE62	Arabic
+1EE64		Arabic
+1EE67	1EE6A	Arabic
+1EE6C	1EE72	Arabic
+1EE74	1EE77	Arabic
+1EE79	1EE7C	Arabic
+1EE7E		Arabic
+1EE80	1EE89	Arabic
+1EE8B	1EE9B	Arabic
+1EEA1	1EEA3	Arabic
+1EEA5	1EEA9	Arabic
+1EEAB	1EEBB	Arabic
+1EEF0	1EEF1	Arabic
+1F000	1F02B	Common
+1F030	1F093	Common
+1F0A0	1F0AE	Common
+1F0B1	1F0BF	Common
+1F0C1	1F0CF	Common
+1F0D1	1F0F5	Common
+1F100	1F10C	Common
+1F110	1F12E	Common
+1F130	1F16B	Common
+1F170	1F1AC	Common
+1F1E6	1F1FF	Common
+1F200		Hiragana
+1F201	1F202	Common
+1F210	1F23B	Common
+1F240	1F248	Common
+1F250	1F251	Han
+1F260	1F265	Common
+1F300	1F6D4	Common
+1F6E0	1F6EC	Common
+1F6F0	1F6F8	Common
+1F700	1F773	Common
+1F780	1F7D4	Common
+1F800	1F80B	Common
+1F810	1F847	Common
+1F850	1F859	Common
+1F860	1F887	Common
+1F890	1F8AD	Common
+1F900	1F90B	Common
+1F910	1F93E	Common
+1F940	1F94C	Common
+1F950	1F96B	Common
+1F980	1F997	Common
+1F9C0		Common
+1F9D0	1F9E6	Common
+20000	2A6D6	Han
+2A700	2B734	Han
+2B740	2B81D	Han
+2B820	2CEA1	Han
+2CEB0	2EBE0	Han
+2F800	2FA1D	Han
+E0001		Common
+E0020	E007F	Common
+E0100	E01EF	Inherited
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToJg'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToJg'}{'missing'} = 'No_Joining_Group';
+
+return <<'END';
+620		Yeh
+622	623	Alef
+624		Waw
+625		Alef
+626		Yeh
+627		Alef
+628		Beh
+629		Teh_Marbuta
+62A	62B	Beh
+62C	62E	Hah
+62F	630	Dal
+631	632	Reh
+633	634	Seen
+635	636	Sad
+637	638	Tah
+639	63A	Ain
+63B	63C	Gaf
+63D	63F	Farsi_Yeh
+641		Feh
+642		Qaf
+643		Kaf
+644		Lam
+645		Meem
+646		Noon
+647		Heh
+648		Waw
+649	64A	Yeh
+66E		Beh
+66F		Qaf
+671	673	Alef
+675		Alef
+676	677	Waw
+678		Yeh
+679	680	Beh
+681	687	Hah
+688	690	Dal
+691	699	Reh
+69A	69C	Seen
+69D	69E	Sad
+69F		Tah
+6A0		Ain
+6A1	6A6	Feh
+6A7	6A8	Qaf
+6A9		Gaf
+6AA		Swash_Kaf
+6AB		Gaf
+6AC	6AE	Kaf
+6AF	6B4	Gaf
+6B5	6B8	Lam
+6B9	6BC	Noon
+6BD		Nya
+6BE		Knotted_Heh
+6BF		Hah
+6C0		Teh_Marbuta
+6C1	6C2	Heh_Goal
+6C3		Teh_Marbuta_Goal
+6C4	6CB	Waw
+6CC		Farsi_Yeh
+6CD		Yeh_With_Tail
+6CE		Farsi_Yeh
+6CF		Waw
+6D0	6D1	Yeh
+6D2	6D3	Yeh_Barree
+6D5		Teh_Marbuta
+6EE		Dal
+6EF		Reh
+6FA		Seen
+6FB		Sad
+6FC		Ain
+6FF		Knotted_Heh
+710		Alaph
+712		Beth
+713	714	Gamal
+715	716	Dalath_Rish
+717		He
+718		Syriac_Waw
+719		Zain
+71A		Heth
+71B	71C	Teth
+71D		Yudh
+71E		Yudh_He
+71F		Kaph
+720		Lamadh
+721		Mim
+722		Nun
+723		Semkath
+724		Final_Semkath
+725		E
+726		Pe
+727		Reversed_Pe
+728		Sadhe
+729		Qaph
+72A		Dalath_Rish
+72B		Shin
+72C		Taw
+72D		Beth
+72E		Gamal
+72F		Dalath_Rish
+74D		Zhain
+74E		Khaph
+74F		Fe
+750	756	Beh
+757	758	Hah
+759	75A	Dal
+75B		Reh
+75C		Seen
+75D	75F	Ain
+760	761	Feh
+762	764	Gaf
+765	766	Meem
+767	769	Noon
+76A		Lam
+76B	76C	Reh
+76D		Seen
+76E	76F	Hah
+770		Seen
+771		Reh
+772		Hah
+773	774	Alef
+775	776	Farsi_Yeh
+777		Yeh
+778	779	Waw
+77A	77B	Burushaski_Yeh_Barree
+77C		Hah
+77D	77E	Seen
+77F		Kaf
+860		Malayalam_Nga
+861		Malayalam_Ja
+862		Malayalam_Nya
+863		Malayalam_Tta
+864		Malayalam_Nna
+865		Malayalam_Nnna
+866		Malayalam_Bha
+867		Malayalam_Ra
+868		Malayalam_Lla
+869		Malayalam_Llla
+86A		Malayalam_Ssa
+8A0	8A1	Beh
+8A2		Hah
+8A3		Tah
+8A4		Feh
+8A5		Qaf
+8A6		Lam
+8A7		Meem
+8A8	8A9	Yeh
+8AA		Reh
+8AB		Waw
+8AC		Rohingya_Yeh
+8AE		Dal
+8AF		Sad
+8B0		Gaf
+8B1		Straight_Waw
+8B2		Reh
+8B3		Ain
+8B4		Kaf
+8B6	8B8	Beh
+8B9		Reh
+8BA		Yeh
+8BB		African_Feh
+8BC		African_Qaf
+8BD		African_Noon
+10AC0		Manichaean_Aleph
+10AC1	10AC2	Manichaean_Beth
+10AC3	10AC4	Manichaean_Gimel
+10AC5		Manichaean_Daleth
+10AC7		Manichaean_Waw
+10AC9	10ACA	Manichaean_Zayin
+10ACD		Manichaean_Heth
+10ACE		Manichaean_Teth
+10ACF		Manichaean_Yodh
+10AD0	10AD2	Manichaean_Kaph
+10AD3		Manichaean_Lamedh
+10AD4		Manichaean_Dhamedh
+10AD5		Manichaean_Thamedh
+10AD6		Manichaean_Mem
+10AD7		Manichaean_Nun
+10AD8		Manichaean_Samekh
+10AD9	10ADA	Manichaean_Ayin
+10ADB	10ADC	Manichaean_Pe
+10ADD		Manichaean_Sadhe
+10ADE	10AE0	Manichaean_Qoph
+10AE1		Manichaean_Resh
+10AE4		Manichaean_Taw
+10AEB		Manichaean_One
+10AEC		Manichaean_Five
+10AED		Manichaean_Ten
+10AEE		Manichaean_Twenty
+10AEF		Manichaean_Hundred
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToInSC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToInSC'}{'missing'} = 'Other';
+
+return <<'END';
+2D		Consonant_Placeholder
+30	39	Number
+A0		Consonant_Placeholder
+B2	B3	Syllable_Modifier
+D7		Consonant_Placeholder
+900	902	Bindu
+903		Visarga
+904	914	Vowel_Independent
+915	939	Consonant
+93A	93B	Vowel_Dependent
+93C		Nukta
+93D		Avagraha
+93E	94C	Vowel_Dependent
+94D		Virama
+94E	94F	Vowel_Dependent
+951	952	Cantillation_Mark
+955	957	Vowel_Dependent
+958	95F	Consonant
+960	961	Vowel_Independent
+962	963	Vowel_Dependent
+966	96F	Number
+972	977	Vowel_Independent
+978	97F	Consonant
+981	982	Bindu
+983		Visarga
+985	98C	Vowel_Independent
+98F	990	Vowel_Independent
+993	994	Vowel_Independent
+995	9A8	Consonant
+9AA	9B0	Consonant
+9B2		Consonant
+9B6	9B9	Consonant
+9BC		Nukta
+9BD		Avagraha
+9BE	9C4	Vowel_Dependent
+9C7	9C8	Vowel_Dependent
+9CB	9CC	Vowel_Dependent
+9CD		Virama
+9CE		Consonant_Dead
+9D7		Vowel_Dependent
+9DC	9DD	Consonant
+9DF		Consonant
+9E0	9E1	Vowel_Independent
+9E2	9E3	Vowel_Dependent
+9E6	9EF	Number
+9F0	9F1	Consonant
+9FC		Bindu
+A01	A02	Bindu
+A03		Visarga
+A05	A0A	Vowel_Independent
+A0F	A10	Vowel_Independent
+A13	A14	Vowel_Independent
+A15	A28	Consonant
+A2A	A30	Consonant
+A32	A33	Consonant
+A35	A36	Consonant
+A38	A39	Consonant
+A3C		Nukta
+A3E	A42	Vowel_Dependent
+A47	A48	Vowel_Dependent
+A4B	A4C	Vowel_Dependent
+A4D		Virama
+A59	A5C	Consonant
+A5E		Consonant
+A66	A6F	Number
+A70		Bindu
+A71		Gemination_Mark
+A72	A73	Consonant_Placeholder
+A75		Consonant_Medial
+A81	A82	Bindu
+A83		Visarga
+A85	A8D	Vowel_Independent
+A8F	A91	Vowel_Independent
+A93	A94	Vowel_Independent
+A95	AA8	Consonant
+AAA	AB0	Consonant
+AB2	AB3	Consonant
+AB5	AB9	Consonant
+ABC		Nukta
+ABD		Avagraha
+ABE	AC5	Vowel_Dependent
+AC7	AC9	Vowel_Dependent
+ACB	ACC	Vowel_Dependent
+ACD		Virama
+AE0	AE1	Vowel_Independent
+AE2	AE3	Vowel_Dependent
+AE6	AEF	Number
+AF9		Consonant
+AFA	AFC	Cantillation_Mark
+AFD	AFF	Nukta
+B01	B02	Bindu
+B03		Visarga
+B05	B0C	Vowel_Independent
+B0F	B10	Vowel_Independent
+B13	B14	Vowel_Independent
+B15	B28	Consonant
+B2A	B30	Consonant
+B32	B33	Consonant
+B35	B39	Consonant
+B3C		Nukta
+B3D		Avagraha
+B3E	B44	Vowel_Dependent
+B47	B48	Vowel_Dependent
+B4B	B4C	Vowel_Dependent
+B4D		Virama
+B56	B57	Vowel_Dependent
+B5C	B5D	Consonant
+B5F		Consonant
+B60	B61	Vowel_Independent
+B62	B63	Vowel_Dependent
+B66	B6F	Number
+B71		Consonant
+B82		Bindu
+B83		Modifying_Letter
+B85	B8A	Vowel_Independent
+B8E	B90	Vowel_Independent
+B92	B94	Vowel_Independent
+B95		Consonant
+B99	B9A	Consonant
+B9C		Consonant
+B9E	B9F	Consonant
+BA3	BA4	Consonant
+BA8	BAA	Consonant
+BAE	BB9	Consonant
+BBE	BC2	Vowel_Dependent
+BC6	BC8	Vowel_Dependent
+BCA	BCC	Vowel_Dependent
+BCD		Virama
+BD7		Vowel_Dependent
+BE6	BEF	Number
+C00	C02	Bindu
+C03		Visarga
+C05	C0C	Vowel_Independent
+C0E	C10	Vowel_Independent
+C12	C14	Vowel_Independent
+C15	C28	Consonant
+C2A	C39	Consonant
+C3D		Avagraha
+C3E	C44	Vowel_Dependent
+C46	C48	Vowel_Dependent
+C4A	C4C	Vowel_Dependent
+C4D		Virama
+C55	C56	Vowel_Dependent
+C58	C5A	Consonant
+C60	C61	Vowel_Independent
+C62	C63	Vowel_Dependent
+C66	C6F	Number
+C81	C82	Bindu
+C83		Visarga
+C85	C8C	Vowel_Independent
+C8E	C90	Vowel_Independent
+C92	C94	Vowel_Independent
+C95	CA8	Consonant
+CAA	CB3	Consonant
+CB5	CB9	Consonant
+CBC		Nukta
+CBD		Avagraha
+CBE	CC4	Vowel_Dependent
+CC6	CC8	Vowel_Dependent
+CCA	CCC	Vowel_Dependent
+CCD		Virama
+CD5	CD6	Vowel_Dependent
+CDE		Consonant
+CE0	CE1	Vowel_Independent
+CE2	CE3	Vowel_Dependent
+CE6	CEF	Number
+CF1	CF2	Consonant_With_Stacker
+D00	D02	Bindu
+D03		Visarga
+D05	D0C	Vowel_Independent
+D0E	D10	Vowel_Independent
+D12	D14	Vowel_Independent
+D15	D3A	Consonant
+D3B	D3C	Pure_Killer
+D3D		Avagraha
+D3E	D44	Vowel_Dependent
+D46	D48	Vowel_Dependent
+D4A	D4C	Vowel_Dependent
+D4D		Virama
+D4E		Consonant_Preceding_Repha
+D54	D56	Consonant_Dead
+D57		Vowel_Dependent
+D5F	D61	Vowel_Independent
+D62	D63	Vowel_Dependent
+D66	D6F	Number
+D7A	D7F	Consonant_Dead
+D82		Bindu
+D83		Visarga
+D85	D96	Vowel_Independent
+D9A	DB1	Consonant
+DB3	DBB	Consonant
+DBD		Consonant
+DC0	DC6	Consonant
+DCA		Virama
+DCF	DD4	Vowel_Dependent
+DD6		Vowel_Dependent
+DD8	DDF	Vowel_Dependent
+DE6	DEF	Number
+DF2	DF3	Vowel_Dependent
+E01	E2E	Consonant
+E30	E39	Vowel_Dependent
+E3A		Pure_Killer
+E40	E45	Vowel_Dependent
+E47		Vowel_Dependent
+E48	E4B	Tone_Mark
+E4C		Consonant_Killer
+E4D		Bindu
+E4E		Pure_Killer
+E50	E59	Number
+E81	E82	Consonant
+E84		Consonant
+E87	E88	Consonant
+E8A		Consonant
+E8D		Consonant
+E94	E97	Consonant
+E99	E9F	Consonant
+EA1	EA3	Consonant
+EA5		Consonant
+EA7		Consonant
+EAA	EAB	Consonant
+EAD	EAE	Consonant
+EB0	EB9	Vowel_Dependent
+EBB		Vowel_Dependent
+EBC	EBD	Consonant_Medial
+EC0	EC4	Vowel_Dependent
+EC8	ECB	Tone_Mark
+ECD		Bindu
+ED0	ED9	Number
+EDC	EDF	Consonant
+F20	F33	Number
+F35		Syllable_Modifier
+F37		Syllable_Modifier
+F39		Nukta
+F40	F47	Consonant
+F49	F6C	Consonant
+F71	F7D	Vowel_Dependent
+F7E		Bindu
+F7F		Visarga
+F80	F81	Vowel_Dependent
+F82	F83	Bindu
+F84		Pure_Killer
+F85		Avagraha
+F88	F8C	Consonant_Head_Letter
+F8D	F97	Consonant_Subjoined
+F99	FBC	Consonant_Subjoined
+FC6		Syllable_Modifier
+1000	1020	Consonant
+1021	102A	Vowel_Independent
+102B	1035	Vowel_Dependent
+1036		Bindu
+1037		Tone_Mark
+1038		Visarga
+1039		Invisible_Stacker
+103A		Pure_Killer
+103B	103E	Consonant_Medial
+103F		Consonant
+1040	1049	Number
+104E		Consonant_Placeholder
+1050	1051	Consonant
+1052	1055	Vowel_Independent
+1056	1059	Vowel_Dependent
+105A	105D	Consonant
+105E	1060	Consonant_Medial
+1061		Consonant
+1062		Vowel_Dependent
+1063	1064	Tone_Mark
+1065	1066	Consonant
+1067	1068	Vowel_Dependent
+1069	106D	Tone_Mark
+106E	1070	Consonant
+1071	1074	Vowel_Dependent
+1075	1081	Consonant
+1082		Consonant_Medial
+1083	1086	Vowel_Dependent
+1087	108D	Tone_Mark
+108E		Consonant
+108F		Tone_Mark
+1090	1099	Number
+109A	109B	Tone_Mark
+109C	109D	Vowel_Dependent
+1700	1702	Vowel_Independent
+1703	170C	Consonant
+170E	1711	Consonant
+1712	1713	Vowel_Dependent
+1714		Pure_Killer
+1720	1722	Vowel_Independent
+1723	1731	Consonant
+1732	1733	Vowel_Dependent
+1734		Pure_Killer
+1740	1742	Vowel_Independent
+1743	1751	Consonant
+1752	1753	Vowel_Dependent
+1760	1762	Vowel_Independent
+1763	176C	Consonant
+176E	1770	Consonant
+1772	1773	Vowel_Dependent
+1780	17A2	Consonant
+17A3	17B3	Vowel_Independent
+17B6	17C5	Vowel_Dependent
+17C6		Bindu
+17C7		Visarga
+17C8		Vowel_Dependent
+17C9	17CA	Register_Shifter
+17CB		Syllable_Modifier
+17CC		Consonant_Succeeding_Repha
+17CD		Consonant_Killer
+17CE	17D0	Syllable_Modifier
+17D1		Pure_Killer
+17D2		Invisible_Stacker
+17D3		Syllable_Modifier
+17DC		Avagraha
+17DD		Syllable_Modifier
+17E0	17E9	Number
+1900		Consonant_Placeholder
+1901	191E	Consonant
+1920	1928	Vowel_Dependent
+1929	192B	Consonant_Subjoined
+1930	1931	Consonant_Final
+1932		Bindu
+1933	1939	Consonant_Final
+193A		Vowel_Dependent
+193B		Syllable_Modifier
+1946	194F	Number
+1950	1962	Consonant
+1963	196D	Vowel
+1970	1974	Tone_Letter
+1980	19AB	Consonant
+19B0	19C0	Vowel_Dependent
+19C1	19C7	Consonant_Final
+19C8	19C9	Tone_Mark
+19D0	19D9	Number
+1A00	1A16	Consonant
+1A17	1A1B	Vowel_Dependent
+1A20	1A4C	Consonant
+1A4D	1A52	Vowel_Independent
+1A53	1A54	Consonant
+1A55	1A56	Consonant_Medial
+1A57		Consonant_Subjoined
+1A58	1A59	Consonant_Final
+1A5A		Consonant_Succeeding_Repha
+1A5B	1A5E	Consonant_Subjoined
+1A60		Invisible_Stacker
+1A61	1A73	Vowel_Dependent
+1A74		Bindu
+1A75	1A79	Tone_Mark
+1A7A		Pure_Killer
+1A7B	1A7C	Syllable_Modifier
+1A7F		Syllable_Modifier
+1A80	1A89	Number
+1A90	1A99	Number
+1B00	1B02	Bindu
+1B03		Consonant_Succeeding_Repha
+1B04		Visarga
+1B05	1B12	Vowel_Independent
+1B13	1B33	Consonant
+1B34		Nukta
+1B35	1B43	Vowel_Dependent
+1B44		Virama
+1B45	1B4B	Consonant
+1B50	1B59	Number
+1B80		Bindu
+1B81		Consonant_Succeeding_Repha
+1B82		Visarga
+1B83	1B89	Vowel_Independent
+1B8A	1BA0	Consonant
+1BA1	1BA3	Consonant_Subjoined
+1BA4	1BA9	Vowel_Dependent
+1BAA		Pure_Killer
+1BAB		Invisible_Stacker
+1BAC	1BAD	Consonant_Subjoined
+1BAE	1BAF	Consonant
+1BB0	1BB9	Number
+1BBA		Avagraha
+1BBB	1BBD	Consonant
+1BBE	1BBF	Consonant_Final
+1BC0	1BE3	Consonant
+1BE4	1BE5	Vowel_Independent
+1BE6		Nukta
+1BE7	1BEF	Vowel_Dependent
+1BF0	1BF1	Consonant_Final
+1BF2	1BF3	Pure_Killer
+1C00	1C23	Consonant
+1C24	1C25	Consonant_Subjoined
+1C26	1C2C	Vowel_Dependent
+1C2D	1C33	Consonant_Final
+1C34	1C35	Bindu
+1C36		Syllable_Modifier
+1C37		Nukta
+1C40	1C49	Number
+1C4D	1C4F	Consonant
+1CD0	1CD2	Cantillation_Mark
+1CD4	1CE1	Cantillation_Mark
+1CF2	1CF3	Visarga
+1CF4		Cantillation_Mark
+1CF7	1CF9	Cantillation_Mark
+1DFB		Syllable_Modifier
+200C		Non_Joiner
+200D		Joiner
+2010	2014	Consonant_Placeholder
+2074		Syllable_Modifier
+2082	2084	Syllable_Modifier
+25CC		Consonant_Placeholder
+A800	A801	Vowel_Independent
+A803	A805	Vowel_Independent
+A806		Pure_Killer
+A807	A80A	Consonant
+A80B		Bindu
+A80C	A822	Consonant
+A823	A827	Vowel_Dependent
+A840	A85D	Consonant
+A85E	A861	Vowel
+A862	A865	Consonant
+A866		Vowel
+A867	A868	Consonant_Subjoined
+A869	A870	Consonant
+A871		Consonant_Subjoined
+A872		Consonant
+A873		Bindu
+A880		Bindu
+A881		Visarga
+A882	A891	Vowel_Independent
+A892	A8B3	Consonant
+A8B4		Consonant_Final
+A8B5	A8C3	Vowel_Dependent
+A8C4		Virama
+A8C5		Bindu
+A8D0	A8D9	Number
+A8E0	A8F1	Cantillation_Mark
+A8F2	A8F3	Bindu
+A900	A909	Number
+A90A	A921	Consonant
+A922	A92A	Vowel
+A92B	A92D	Tone_Mark
+A930	A946	Consonant
+A947	A94E	Vowel_Dependent
+A94F	A952	Consonant_Final
+A953		Pure_Killer
+A980	A981	Bindu
+A982		Consonant_Succeeding_Repha
+A983		Visarga
+A984	A988	Vowel_Independent
+A989	A98B	Consonant
+A98C	A98E	Vowel_Independent
+A98F	A9B2	Consonant
+A9B3		Nukta
+A9B4	A9BC	Vowel_Dependent
+A9BD		Consonant_Subjoined
+A9BE	A9BF	Consonant_Medial
+A9C0		Virama
+A9D0	A9D9	Number
+A9E0	A9E4	Consonant
+A9E5		Vowel_Dependent
+A9E7	A9EF	Consonant
+A9F0	A9F9	Number
+A9FA	A9FE	Consonant
+AA00	AA05	Vowel_Independent
+AA06	AA28	Consonant
+AA29	AA32	Vowel_Dependent
+AA33	AA36	Consonant_Medial
+AA40	AA4D	Consonant_Final
+AA50	AA59	Number
+AA60	AA6F	Consonant
+AA71	AA73	Consonant
+AA74	AA76	Consonant_Placeholder
+AA7A		Consonant
+AA7B	AA7D	Tone_Mark
+AA7E	AAAF	Consonant
+AAB0	AABE	Vowel_Dependent
+AABF		Tone_Mark
+AAC0		Tone_Letter
+AAC1		Tone_Mark
+AAC2		Tone_Letter
+AAE0	AAE1	Vowel_Independent
+AAE2	AAEA	Consonant
+AAEB	AAEF	Vowel_Dependent
+AAF5		Visarga
+AAF6		Invisible_Stacker
+ABC0	ABCD	Consonant
+ABCE	ABCF	Vowel_Independent
+ABD0		Consonant
+ABD1		Vowel_Independent
+ABD2	ABDA	Consonant
+ABDB	ABE2	Consonant_Final
+ABE3	ABEA	Vowel_Dependent
+ABEC		Tone_Mark
+ABED		Pure_Killer
+ABF0	ABF9	Number
+10A00		Consonant
+10A01	10A03	Vowel_Dependent
+10A05	10A06	Vowel_Dependent
+10A0C	10A0D	Vowel_Dependent
+10A0E		Bindu
+10A0F		Visarga
+10A10	10A13	Consonant
+10A15	10A17	Consonant
+10A19	10A33	Consonant
+10A38	10A3A	Nukta
+10A3F		Invisible_Stacker
+10A40	10A47	Number
+11000	11001	Bindu
+11002		Visarga
+11003	11004	Consonant_With_Stacker
+11005	11012	Vowel_Independent
+11013	11037	Consonant
+11038	11045	Vowel_Dependent
+11046		Virama
+11052	11065	Brahmi_Joining_Number
+11066	1106F	Number
+1107F		Number_Joiner
+11080	11081	Bindu
+11082		Visarga
+11083	1108C	Vowel_Independent
+1108D	110AF	Consonant
+110B0	110B8	Vowel_Dependent
+110B9		Virama
+110BA		Nukta
+11100	11101	Bindu
+11102		Visarga
+11103	11106	Vowel_Independent
+11107	11126	Consonant
+11127	11132	Vowel_Dependent
+11133		Invisible_Stacker
+11134		Pure_Killer
+11136	1113F	Number
+11150	11154	Vowel
+11155	11172	Consonant
+11173		Nukta
+11180	11181	Bindu
+11182		Visarga
+11183	11190	Vowel_Independent
+11191	111B2	Consonant
+111B3	111BF	Vowel_Dependent
+111C0		Virama
+111C1		Avagraha
+111C2	111C3	Consonant_Prefixed
+111CA		Nukta
+111CB	111CC	Vowel_Dependent
+111D0	111D9	Number
+111E1	111F4	Number
+11200	11207	Vowel_Independent
+11208	11211	Consonant
+11213	1122B	Consonant
+1122C	11233	Vowel_Dependent
+11234		Bindu
+11235		Virama
+11236		Nukta
+11237		Gemination_Mark
+1123E		Cantillation_Mark
+11280	11283	Vowel_Independent
+11284	11286	Consonant
+11288		Consonant
+1128A	1128D	Consonant
+1128F	1129D	Consonant
+1129F	112A8	Consonant
+112B0	112B9	Vowel_Independent
+112BA	112DE	Consonant
+112DF		Bindu
+112E0	112E8	Vowel_Dependent
+112E9		Nukta
+112EA		Pure_Killer
+112F0	112F9	Number
+11300	11302	Bindu
+11303		Visarga
+11305	1130C	Vowel_Independent
+1130F	11310	Vowel_Independent
+11313	11314	Vowel_Independent
+11315	11328	Consonant
+1132A	11330	Consonant
+11332	11333	Consonant
+11335	11339	Consonant
+1133C		Nukta
+1133D		Avagraha
+1133E	11344	Vowel_Dependent
+11347	11348	Vowel_Dependent
+1134B	1134C	Vowel_Dependent
+1134D		Virama
+11357		Vowel_Dependent
+1135E	1135F	Bindu
+11360	11361	Vowel_Independent
+11362	11363	Vowel_Dependent
+11366	1136C	Cantillation_Mark
+11370	11374	Cantillation_Mark
+11400	1140D	Vowel_Independent
+1140E	11434	Consonant
+11435	11441	Vowel_Dependent
+11442		Virama
+11443	11444	Bindu
+11445		Visarga
+11446		Nukta
+11447		Avagraha
+11450	11459	Number
+11481	1148E	Vowel_Independent
+1148F	114AF	Consonant
+114B0	114BE	Vowel_Dependent
+114BF	114C0	Bindu
+114C1		Visarga
+114C2		Virama
+114C3		Nukta
+114C4		Avagraha
+114D0	114D9	Number
+11580	1158D	Vowel_Independent
+1158E	115AE	Consonant
+115AF	115B5	Vowel_Dependent
+115B8	115BB	Vowel_Dependent
+115BC	115BD	Bindu
+115BE		Visarga
+115BF		Virama
+115C0		Nukta
+115D8	115DB	Vowel_Independent
+115DC	115DD	Vowel_Dependent
+11600	1160D	Vowel_Independent
+1160E	1162F	Consonant
+11630	1163C	Vowel_Dependent
+1163D		Bindu
+1163E		Visarga
+1163F		Virama
+11640		Vowel_Dependent
+11650	11659	Number
+11680	11689	Vowel_Independent
+1168A	116AA	Consonant
+116AB		Bindu
+116AC		Visarga
+116AD	116B5	Vowel_Dependent
+116B6		Virama
+116B7		Nukta
+116C0	116C9	Number
+11700	11719	Consonant
+1171D	1171F	Consonant_Medial
+11720	1172A	Vowel_Dependent
+1172B		Pure_Killer
+11730	1173B	Number
+11A00		Vowel_Independent
+11A01	11A0A	Vowel_Dependent
+11A0B	11A32	Consonant
+11A33		Syllable_Modifier
+11A34		Pure_Killer
+11A35	11A38	Bindu
+11A39		Visarga
+11A3A		Consonant_Prefixed
+11A3B	11A3E	Consonant_Medial
+11A3F		Consonant_Placeholder
+11A45		Consonant_Placeholder
+11A47		Invisible_Stacker
+11A50		Vowel_Independent
+11A51	11A5B	Vowel_Dependent
+11A5C	11A83	Consonant
+11A86	11A89	Consonant_Prefixed
+11A8A	11A95	Consonant_Final
+11A96		Bindu
+11A97		Visarga
+11A98		Gemination_Mark
+11A99		Invisible_Stacker
+11C00	11C08	Vowel_Independent
+11C0A	11C0D	Vowel_Independent
+11C0E	11C2E	Consonant
+11C2F	11C36	Vowel_Dependent
+11C38	11C3B	Vowel_Dependent
+11C3C	11C3D	Bindu
+11C3E		Visarga
+11C3F		Virama
+11C40		Avagraha
+11C50	11C6C	Number
+11C72	11C8F	Consonant
+11C92	11CA7	Consonant_Subjoined
+11CA9	11CAF	Consonant_Subjoined
+11CB0	11CB4	Vowel_Dependent
+11CB5	11CB6	Bindu
+11D00	11D06	Vowel_Independent
+11D08	11D09	Vowel_Independent
+11D0B		Vowel_Independent
+11D0C	11D30	Consonant
+11D31	11D36	Vowel_Dependent
+11D3A		Vowel_Dependent
+11D3C	11D3D	Vowel_Dependent
+11D3F		Vowel_Dependent
+11D40		Bindu
+11D41		Visarga
+11D42		Nukta
+11D43		Vowel_Dependent
+11D44		Pure_Killer
+11D45		Invisible_Stacker
+11D46		Consonant_Preceding_Repha
+11D47		Consonant_Medial
+11D50	11D59	Number
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Perl_Decimal_Digit') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToDigit'}{'format'} = 'd'; # single decimal digit
+$utf8::SwashInfo{'ToDigit'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0030		0
+0031		1
+0032		2
+0033		3
+0034		4
+0035		5
+0036		6
+0037		7
+0038		8
+0039		9
+0660		0
+0661		1
+0662		2
+0663		3
+0664		4
+0665		5
+0666		6
+0667		7
+0668		8
+0669		9
+06F0		0
+06F1		1
+06F2		2
+06F3		3
+06F4		4
+06F5		5
+06F6		6
+06F7		7
+06F8		8
+06F9		9
+07C0		0
+07C1		1
+07C2		2
+07C3		3
+07C4		4
+07C5		5
+07C6		6
+07C7		7
+07C8		8
+07C9		9
+0966		0
+0967		1
+0968		2
+0969		3
+096A		4
+096B		5
+096C		6
+096D		7
+096E		8
+096F		9
+09E6		0
+09E7		1
+09E8		2
+09E9		3
+09EA		4
+09EB		5
+09EC		6
+09ED		7
+09EE		8
+09EF		9
+0A66		0
+0A67		1
+0A68		2
+0A69		3
+0A6A		4
+0A6B		5
+0A6C		6
+0A6D		7
+0A6E		8
+0A6F		9
+0AE6		0
+0AE7		1
+0AE8		2
+0AE9		3
+0AEA		4
+0AEB		5
+0AEC		6
+0AED		7
+0AEE		8
+0AEF		9
+0B66		0
+0B67		1
+0B68		2
+0B69		3
+0B6A		4
+0B6B		5
+0B6C		6
+0B6D		7
+0B6E		8
+0B6F		9
+0BE6		0
+0BE7		1
+0BE8		2
+0BE9		3
+0BEA		4
+0BEB		5
+0BEC		6
+0BED		7
+0BEE		8
+0BEF		9
+0C66		0
+0C67		1
+0C68		2
+0C69		3
+0C6A		4
+0C6B		5
+0C6C		6
+0C6D		7
+0C6E		8
+0C6F		9
+0CE6		0
+0CE7		1
+0CE8		2
+0CE9		3
+0CEA		4
+0CEB		5
+0CEC		6
+0CED		7
+0CEE		8
+0CEF		9
+0D66		0
+0D67		1
+0D68		2
+0D69		3
+0D6A		4
+0D6B		5
+0D6C		6
+0D6D		7
+0D6E		8
+0D6F		9
+0DE6		0
+0DE7		1
+0DE8		2
+0DE9		3
+0DEA		4
+0DEB		5
+0DEC		6
+0DED		7
+0DEE		8
+0DEF		9
+0E50		0
+0E51		1
+0E52		2
+0E53		3
+0E54		4
+0E55		5
+0E56		6
+0E57		7
+0E58		8
+0E59		9
+0ED0		0
+0ED1		1
+0ED2		2
+0ED3		3
+0ED4		4
+0ED5		5
+0ED6		6
+0ED7		7
+0ED8		8
+0ED9		9
+0F20		0
+0F21		1
+0F22		2
+0F23		3
+0F24		4
+0F25		5
+0F26		6
+0F27		7
+0F28		8
+0F29		9
+1040		0
+1041		1
+1042		2
+1043		3
+1044		4
+1045		5
+1046		6
+1047		7
+1048		8
+1049		9
+1090		0
+1091		1
+1092		2
+1093		3
+1094		4
+1095		5
+1096		6
+1097		7
+1098		8
+1099		9
+17E0		0
+17E1		1
+17E2		2
+17E3		3
+17E4		4
+17E5		5
+17E6		6
+17E7		7
+17E8		8
+17E9		9
+1810		0
+1811		1
+1812		2
+1813		3
+1814		4
+1815		5
+1816		6
+1817		7
+1818		8
+1819		9
+1946		0
+1947		1
+1948		2
+1949		3
+194A		4
+194B		5
+194C		6
+194D		7
+194E		8
+194F		9
+19D0		0
+19D1		1
+19D2		2
+19D3		3
+19D4		4
+19D5		5
+19D6		6
+19D7		7
+19D8		8
+19D9		9
+1A80		0
+1A81		1
+1A82		2
+1A83		3
+1A84		4
+1A85		5
+1A86		6
+1A87		7
+1A88		8
+1A89		9
+1A90		0
+1A91		1
+1A92		2
+1A93		3
+1A94		4
+1A95		5
+1A96		6
+1A97		7
+1A98		8
+1A99		9
+1B50		0
+1B51		1
+1B52		2
+1B53		3
+1B54		4
+1B55		5
+1B56		6
+1B57		7
+1B58		8
+1B59		9
+1BB0		0
+1BB1		1
+1BB2		2
+1BB3		3
+1BB4		4
+1BB5		5
+1BB6		6
+1BB7		7
+1BB8		8
+1BB9		9
+1C40		0
+1C41		1
+1C42		2
+1C43		3
+1C44		4
+1C45		5
+1C46		6
+1C47		7
+1C48		8
+1C49		9
+1C50		0
+1C51		1
+1C52		2
+1C53		3
+1C54		4
+1C55		5
+1C56		6
+1C57		7
+1C58		8
+1C59		9
+A620		0
+A621		1
+A622		2
+A623		3
+A624		4
+A625		5
+A626		6
+A627		7
+A628		8
+A629		9
+A8D0		0
+A8D1		1
+A8D2		2
+A8D3		3
+A8D4		4
+A8D5		5
+A8D6		6
+A8D7		7
+A8D8		8
+A8D9		9
+A900		0
+A901		1
+A902		2
+A903		3
+A904		4
+A905		5
+A906		6
+A907		7
+A908		8
+A909		9
+A9D0		0
+A9D1		1
+A9D2		2
+A9D3		3
+A9D4		4
+A9D5		5
+A9D6		6
+A9D7		7
+A9D8		8
+A9D9		9
+A9F0		0
+A9F1		1
+A9F2		2
+A9F3		3
+A9F4		4
+A9F5		5
+A9F6		6
+A9F7		7
+A9F8		8
+A9F9		9
+AA50		0
+AA51		1
+AA52		2
+AA53		3
+AA54		4
+AA55		5
+AA56		6
+AA57		7
+AA58		8
+AA59		9
+ABF0		0
+ABF1		1
+ABF2		2
+ABF3		3
+ABF4		4
+ABF5		5
+ABF6		6
+ABF7		7
+ABF8		8
+ABF9		9
+FF10		0
+FF11		1
+FF12		2
+FF13		3
+FF14		4
+FF15		5
+FF16		6
+FF17		7
+FF18		8
+FF19		9
+104A0		0
+104A1		1
+104A2		2
+104A3		3
+104A4		4
+104A5		5
+104A6		6
+104A7		7
+104A8		8
+104A9		9
+11066		0
+11067		1
+11068		2
+11069		3
+1106A		4
+1106B		5
+1106C		6
+1106D		7
+1106E		8
+1106F		9
+110F0		0
+110F1		1
+110F2		2
+110F3		3
+110F4		4
+110F5		5
+110F6		6
+110F7		7
+110F8		8
+110F9		9
+11136		0
+11137		1
+11138		2
+11139		3
+1113A		4
+1113B		5
+1113C		6
+1113D		7
+1113E		8
+1113F		9
+111D0		0
+111D1		1
+111D2		2
+111D3		3
+111D4		4
+111D5		5
+111D6		6
+111D7		7
+111D8		8
+111D9		9
+112F0		0
+112F1		1
+112F2		2
+112F3		3
+112F4		4
+112F5		5
+112F6		6
+112F7		7
+112F8		8
+112F9		9
+11450		0
+11451		1
+11452		2
+11453		3
+11454		4
+11455		5
+11456		6
+11457		7
+11458		8
+11459		9
+114D0		0
+114D1		1
+114D2		2
+114D3		3
+114D4		4
+114D5		5
+114D6		6
+114D7		7
+114D8		8
+114D9		9
+11650		0
+11651		1
+11652		2
+11653		3
+11654		4
+11655		5
+11656		6
+11657		7
+11658		8
+11659		9
+116C0		0
+116C1		1
+116C2		2
+116C3		3
+116C4		4
+116C5		5
+116C6		6
+116C7		7
+116C8		8
+116C9		9
+11730		0
+11731		1
+11732		2
+11733		3
+11734		4
+11735		5
+11736		6
+11737		7
+11738		8
+11739		9
+118E0		0
+118E1		1
+118E2		2
+118E3		3
+118E4		4
+118E5		5
+118E6		6
+118E7		7
+118E8		8
+118E9		9
+11C50		0
+11C51		1
+11C52		2
+11C53		3
+11C54		4
+11C55		5
+11C56		6
+11C57		7
+11C58		8
+11C59		9
+11D50		0
+11D51		1
+11D52		2
+11D53		3
+11D54		4
+11D55		5
+11D56		6
+11D57		7
+11D58		8
+11D59		9
+16A60		0
+16A61		1
+16A62		2
+16A63		3
+16A64		4
+16A65		5
+16A66		6
+16A67		7
+16A68		8
+16A69		9
+16B50		0
+16B51		1
+16B52		2
+16B53		3
+16B54		4
+16B55		5
+16B56		6
+16B57		7
+16B58		8
+16B59		9
+1D7CE		0
+1D7CF		1
+1D7D0		2
+1D7D1		3
+1D7D2		4
+1D7D3		5
+1D7D4		6
+1D7D5		7
+1D7D6		8
+1D7D7		9
+1D7D8		0
+1D7D9		1
+1D7DA		2
+1D7DB		3
+1D7DC		4
+1D7DD		5
+1D7DE		6
+1D7DF		7
+1D7E0		8
+1D7E1		9
+1D7E2		0
+1D7E3		1
+1D7E4		2
+1D7E5		3
+1D7E6		4
+1D7E7		5
+1D7E8		6
+1D7E9		7
+1D7EA		8
+1D7EB		9
+1D7EC		0
+1D7ED		1
+1D7EE		2
+1D7EF		3
+1D7F0		4
+1D7F1		5
+1D7F2		6
+1D7F3		7
+1D7F4		8
+1D7F5		9
+1D7F6		0
+1D7F7		1
+1D7F8		2
+1D7F9		3
+1D7FA		4
+1D7FB		5
+1D7FC		6
+1D7FD		7
+1D7FE		8
+1D7FF		9
+1E950		0
+1E951		1
+1E952		2
+1E953		3
+1E954		4
+1E955		5
+1E956		6
+1E957		7
+1E958		8
+1E959		9
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToIsc'}{'format'} = 'd'; # single decimal digit
+$utf8::SwashInfo{'ToIsc'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings must be modified to get the correct values by adding the code
+# point ordinal number to each one that is numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment
+$utf8::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+30	39	0
+660	669	0
+6F0	6F9	0
+7C0	7C9	0
+966	96F	0
+9E6	9EF	0
+A66	A6F	0
+AE6	AEF	0
+B66	B6F	0
+BE6	BEF	0
+C66	C6F	0
+CE6	CEF	0
+D66	D6F	0
+DE6	DEF	0
+E50	E59	0
+ED0	ED9	0
+F20	F29	0
+1040	1049	0
+1090	1099	0
+17E0	17E9	0
+1810	1819	0
+1946	194F	0
+19D0	19D9	0
+1A80	1A89	0
+1A90	1A99	0
+1B50	1B59	0
+1BB0	1BB9	0
+1C40	1C49	0
+1C50	1C59	0
+A620	A629	0
+A8D0	A8D9	0
+A900	A909	0
+A9D0	A9D9	0
+A9F0	A9F9	0
+AA50	AA59	0
+ABF0	ABF9	0
+FF10	FF19	0
+104A0	104A9	0
+11066	1106F	0
+110F0	110F9	0
+11136	1113F	0
+111D0	111D9	0
+112F0	112F9	0
+11450	11459	0
+114D0	114D9	0
+11650	11659	0
+116C0	116C9	0
+11730	11739	0
+118E0	118E9	0
+11C50	11C59	0
+11D50	11D59	0
+16A60	16A69	0
+16B50	16B59	0
+1D7CE	1D7D7	0
+1D7D8	1D7E1	0
+1D7E2	1D7EB	0
+1D7EC	1D7F5	0
+1D7F6	1D7FF	0
+1E950	1E959	0
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBpt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToBpt'}{'missing'} = 'n';
+
+return <<'END';
+28		o
+29		c
+5B		o
+5D		c
+7B		o
+7D		c
+F3A		o
+F3B		c
+F3C		o
+F3D		c
+169B		o
+169C		c
+2045		o
+2046		c
+207D		o
+207E		c
+208D		o
+208E		c
+2308		o
+2309		c
+230A		o
+230B		c
+2329		o
+232A		c
+2768		o
+2769		c
+276A		o
+276B		c
+276C		o
+276D		c
+276E		o
+276F		c
+2770		o
+2771		c
+2772		o
+2773		c
+2774		o
+2775		c
+27C5		o
+27C6		c
+27E6		o
+27E7		c
+27E8		o
+27E9		c
+27EA		o
+27EB		c
+27EC		o
+27ED		c
+27EE		o
+27EF		c
+2983		o
+2984		c
+2985		o
+2986		c
+2987		o
+2988		c
+2989		o
+298A		c
+298B		o
+298C		c
+298D		o
+298E		c
+298F		o
+2990		c
+2991		o
+2992		c
+2993		o
+2994		c
+2995		o
+2996		c
+2997		o
+2998		c
+29D8		o
+29D9		c
+29DA		o
+29DB		c
+29FC		o
+29FD		c
+2E22		o
+2E23		c
+2E24		o
+2E25		c
+2E26		o
+2E27		c
+2E28		o
+2E29		c
+3008		o
+3009		c
+300A		o
+300B		c
+300C		o
+300D		c
+300E		o
+300F		c
+3010		o
+3011		c
+3014		o
+3015		c
+3016		o
+3017		c
+3018		o
+3019		c
+301A		o
+301B		c
+FE59		o
+FE5A		c
+FE5B		o
+FE5C		c
+FE5D		o
+FE5E		c
+FF08		o
+FF09		c
+FF3B		o
+FF3D		c
+FF5B		o
+FF5D		c
+FF5F		o
+FF60		c
+FF62		o
+FF63		c
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings must be modified to get the correct values by adding the code
+# point ordinal number to each one that is numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNv'}{'format'} = 'a'; # some entries need adjustment
+$utf8::SwashInfo{'ToNv'}{'missing'} = 'NaN';
+
+return <<'END';
+30	39	0
+B2	B3	2
+B9		1
+BC		1/4
+BD		1/2
+BE		3/4
+660	669	0
+6F0	6F9	0
+7C0	7C9	0
+966	96F	0
+9E6	9EF	0
+9F4		1/16
+9F5		1/8
+9F6		3/16
+9F7		1/4
+9F8		3/4
+9F9		16
+A66	A6F	0
+AE6	AEF	0
+B66	B6F	0
+B72		1/4
+B73		1/2
+B74		3/4
+B75		1/16
+B76		1/8
+B77		3/16
+BE6	BF0	0
+BF1		100
+BF2		1000
+C66	C6F	0
+C78	C7B	0
+C7C	C7E	1
+CE6	CEF	0
+D58		1/160
+D59		1/40
+D5A		3/80
+D5B		1/20
+D5C		1/10
+D5D		3/20
+D5E		1/5
+D66	D70	0
+D71		100
+D72		1000
+D73		1/4
+D74		1/2
+D75		3/4
+D76		1/16
+D77		1/8
+D78		3/16
+DE6	DEF	0
+E50	E59	0
+ED0	ED9	0
+F20	F29	0
+F2A		1/2
+F2B		3/2
+F2C		5/2
+F2D		7/2
+F2E		9/2
+F2F		11/2
+F30		13/2
+F31		15/2
+F32		17/2
+F33		-1/2
+1040	1049	0
+1090	1099	0
+1369	1372	1
+1373		20
+1374		30
+1375		40
+1376		50
+1377		60
+1378		70
+1379		80
+137A		90
+137B		100
+137C		10000
+16EE	16F0	17
+17E0	17E9	0
+17F0	17F9	0
+1810	1819	0
+1946	194F	0
+19D0	19D9	0
+19DA		1
+1A80	1A89	0
+1A90	1A99	0
+1B50	1B59	0
+1BB0	1BB9	0
+1C40	1C49	0
+1C50	1C59	0
+2070		0
+2074	2079	4
+2080	2089	0
+2150		1/7
+2151		1/9
+2152		1/10
+2153		1/3
+2154		2/3
+2155		1/5
+2156		2/5
+2157		3/5
+2158		4/5
+2159		1/6
+215A		5/6
+215B		1/8
+215C		3/8
+215D		5/8
+215E		7/8
+215F		1
+2160	216B	1
+216C		50
+216D		100
+216E		500
+216F		1000
+2170	217B	1
+217C		50
+217D		100
+217E		500
+217F		1000
+2180		1000
+2181		5000
+2182		10000
+2185		6
+2186		50
+2187		50000
+2188		100000
+2189		0
+2460	2473	1
+2474	2487	1
+2488	249B	1
+24EA		0
+24EB	24F4	11
+24F5	24FE	1
+24FF		0
+2776	277F	1
+2780	2789	1
+278A	2793	1
+2CFD		1/2
+3007		0
+3021	3029	1
+3038		10
+3039		20
+303A		30
+3192	3195	1
+3220	3229	1
+3248		10
+3249		20
+324A		30
+324B		40
+324C		50
+324D		60
+324E		70
+324F		80
+3251	325F	21
+3280	3289	1
+32B1	32BF	36
+3405		5
+3483		2
+382A		5
+3B4D		7
+4E00		1
+4E03		7
+4E07		10000
+4E09		3
+4E5D		9
+4E8C		2
+4E94		5
+4E96		4
+4EBF		100000000
+4EC0		10
+4EDF		1000
+4EE8		3
+4F0D		5
+4F70		100
+5104		100000000
+5146		1000000000000
+5169		2
+516B		8
+516D		6
+5341		10
+5343		1000
+5344		20
+5345		30
+534C		40
+53C1		3
+53C2		3
+53C3		3
+53C4		3
+56DB		4
+58F1		1
+58F9		1
+5E7A		1
+5EFE		9
+5EFF		20
+5F0C	5F0E	1
+5F10		2
+62FE		10
+634C		8
+67D2		7
+6F06		7
+7396		9
+767E		100
+8086		4
+842C		10000
+8CAE		2
+8CB3		2
+8D30		2
+9621		1000
+9646		6
+964C		100
+9678		6
+96F6		0
+A620	A629	0
+A6E6	A6EE	1
+A6EF		0
+A830		1/4
+A831		1/2
+A832		3/4
+A833		1/16
+A834		1/8
+A835		3/16
+A8D0	A8D9	0
+A900	A909	0
+A9D0	A9D9	0
+A9F0	A9F9	0
+AA50	AA59	0
+ABF0	ABF9	0
+F96B		3
+F973		10
+F978		2
+F9B2		0
+F9D1		6
+F9D3		6
+F9FD		10
+FF10	FF19	0
+10107	10110	1
+10111		20
+10112		30
+10113		40
+10114		50
+10115		60
+10116		70
+10117		80
+10118		90
+10119		100
+1011A		200
+1011B		300
+1011C		400
+1011D		500
+1011E		600
+1011F		700
+10120		800
+10121		900
+10122		1000
+10123		2000
+10124		3000
+10125		4000
+10126		5000
+10127		6000
+10128		7000
+10129		8000
+1012A		9000
+1012B		10000
+1012C		20000
+1012D		30000
+1012E		40000
+1012F		50000
+10130		60000
+10131		70000
+10132		80000
+10133		90000
+10140		1/4
+10141		1/2
+10142		1
+10143		5
+10144		50
+10145		500
+10146		5000
+10147		50000
+10148		5
+10149		10
+1014A		50
+1014B		100
+1014C		500
+1014D		1000
+1014E		5000
+1014F		5
+10150		10
+10151		50
+10152		100
+10153		500
+10154		1000
+10155		10000
+10156		50000
+10157		10
+10158		1
+10159		1
+1015A	1015B	1
+1015C		2
+1015D		2
+1015E		2
+1015F		5
+10160		10
+10161		10
+10162		10
+10163		10
+10164		10
+10165		30
+10166		50
+10167		50
+10168		50
+10169		50
+1016A		100
+1016B		300
+1016C		500
+1016D		500
+1016E		500
+1016F		500
+10170		500
+10171		1000
+10172		5000
+10173		5
+10174		50
+10175		1/2
+10176		1/2
+10177		2/3
+10178		3/4
+1018A		0
+1018B		1/4
+102E1	102EA	1
+102EB		20
+102EC		30
+102ED		40
+102EE		50
+102EF		60
+102F0		70
+102F1		80
+102F2		90
+102F3		100
+102F4		200
+102F5		300
+102F6		400
+102F7		500
+102F8		600
+102F9		700
+102FA		800
+102FB		900
+10320		1
+10321		5
+10322		10
+10323		50
+10341		90
+1034A		900
+103D1	103D2	1
+103D3		10
+103D4		20
+103D5		100
+104A0	104A9	0
+10858	1085A	1
+1085B		10
+1085C		20
+1085D		100
+1085E		1000
+1085F		10000
+10879	1087D	1
+1087E		10
+1087F		20
+108A7	108AA	1
+108AB	108AC	4
+108AD		10
+108AE		20
+108AF		100
+108FB		1
+108FC		5
+108FD		10
+108FE		20
+108FF		100
+10916		1
+10917		10
+10918		20
+10919		100
+1091A	1091B	2
+109BC		11/12
+109BD		1/2
+109C0	109C9	1
+109CA		20
+109CB		30
+109CC		40
+109CD		50
+109CE		60
+109CF		70
+109D2		100
+109D3		200
+109D4		300
+109D5		400
+109D6		500
+109D7		600
+109D8		700
+109D9		800
+109DA		900
+109DB		1000
+109DC		2000
+109DD		3000
+109DE		4000
+109DF		5000
+109E0		6000
+109E1		7000
+109E2		8000
+109E3		9000
+109E4		10000
+109E5		20000
+109E6		30000
+109E7		40000
+109E8		50000
+109E9		60000
+109EA		70000
+109EB		80000
+109EC		90000
+109ED		100000
+109EE		200000
+109EF		300000
+109F0		400000
+109F1		500000
+109F2		600000
+109F3		700000
+109F4		800000
+109F5		900000
+109F6		1/12
+109F7		1/6
+109F8		1/4
+109F9		1/3
+109FA		5/12
+109FB		1/2
+109FC		7/12
+109FD		2/3
+109FE		3/4
+109FF		5/6
+10A40	10A43	1
+10A44		10
+10A45		20
+10A46		100
+10A47		1000
+10A7D		1
+10A7E		50
+10A9D		1
+10A9E		10
+10A9F		20
+10AEB		1
+10AEC		5
+10AED		10
+10AEE		20
+10AEF		100
+10B58	10B5B	1
+10B5C		10
+10B5D		20
+10B5E		100
+10B5F		1000
+10B78	10B7B	1
+10B7C		10
+10B7D		20
+10B7E		100
+10B7F		1000
+10BA9	10BAC	1
+10BAD		10
+10BAE		20
+10BAF		100
+10CFA		1
+10CFB		5
+10CFC		10
+10CFD		50
+10CFE		100
+10CFF		1000
+10E60	10E69	1
+10E6A		20
+10E6B		30
+10E6C		40
+10E6D		50
+10E6E		60
+10E6F		70
+10E70		80
+10E71		90
+10E72		100
+10E73		200
+10E74		300
+10E75		400
+10E76		500
+10E77		600
+10E78		700
+10E79		800
+10E7A		900
+10E7B		1/2
+10E7C		1/4
+10E7D		1/3
+10E7E		2/3
+11052	1105B	1
+1105C		20
+1105D		30
+1105E		40
+1105F		50
+11060		60
+11061		70
+11062		80
+11063		90
+11064		100
+11065		1000
+11066	1106F	0
+110F0	110F9	0
+11136	1113F	0
+111D0	111D9	0
+111E1	111EA	1
+111EB		20
+111EC		30
+111ED		40
+111EE		50
+111EF		60
+111F0		70
+111F1		80
+111F2		90
+111F3		100
+111F4		1000
+112F0	112F9	0
+11450	11459	0
+114D0	114D9	0
+11650	11659	0
+116C0	116C9	0
+11730	1173A	0
+1173B		20
+118E0	118EA	0
+118EB		20
+118EC		30
+118ED		40
+118EE		50
+118EF		60
+118F0		70
+118F1		80
+118F2		90
+11C50	11C59	0
+11C5A	11C63	1
+11C64		20
+11C65		30
+11C66		40
+11C67		50
+11C68		60
+11C69		70
+11C6A		80
+11C6B		90
+11C6C		100
+11D50	11D59	0
+12400	12407	2
+12408	1240E	3
+1240F	12414	4
+12415	1241D	1
+1241E	12422	1
+12423	12424	2
+12425	1242B	3
+1242C	1242E	1
+1242F	12431	3
+12432		216000
+12433		432000
+12434	12436	1
+12437	12439	3
+1243A		3
+1243B	1243C	3
+1243D		4
+1243E		4
+1243F		4
+12440	12441	6
+12442		7
+12443	12444	7
+12445	12446	8
+12447		9
+12448		9
+12449		9
+1244A	1244E	2
+1244F	12452	1
+12453	12454	4
+12455		5
+12456	12457	2
+12458	12459	1
+1245A		1/3
+1245B		2/3
+1245C		5/6
+1245D		1/3
+1245E		2/3
+1245F		1/8
+12460		1/4
+12461		1/6
+12462		1/4
+12463		1/4
+12464		1/2
+12465		1/3
+12466		2/3
+12467		40
+12468		50
+12469	1246E	4
+16A60	16A69	0
+16B50	16B59	0
+16B5B		10
+16B5C		100
+16B5D		10000
+16B5E		1000000
+16B5F		100000000
+16B60		10000000000
+16B61		1000000000000
+1D360	1D369	1
+1D36A		20
+1D36B		30
+1D36C		40
+1D36D		50
+1D36E		60
+1D36F		70
+1D370		80
+1D371		90
+1D7CE	1D7D7	0
+1D7D8	1D7E1	0
+1D7E2	1D7EB	0
+1D7EC	1D7F5	0
+1D7F6	1D7FF	0
+1E8C7	1E8CF	1
+1E950	1E959	0
+1F100		0
+1F101	1F10A	0
+1F10B		0
+1F10C		0
+20001		7
+20064		4
+200E2		4
+20121		5
+2092A		1
+20983		30
+2098C		40
+2099C		40
+20AEA		6
+20AFD		3
+20B19		3
+22390		2
+22998		3
+23B1B		3
+2626D		4
+2F890		9
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Titlecase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToTitle'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToTitle'}{'specials_name'} = 'utf8::ToSpecTitle'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToTitle'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecTitle = (
+"\xC3\x9F" => "\x{0053}\x{0073}",             # U+00DF => 0053 0073
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0582}",             # U+0587 => 0535 0582
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0345}",         # U+1FB2 => 1FBA 0345
+"\xE1\xBE\xB4" => "\x{0386}\x{0345}",         # U+1FB4 => 0386 0345
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345
+"\xE1\xBF\x82" => "\x{1FCA}\x{0345}",         # U+1FC2 => 1FCA 0345
+"\xE1\xBF\x84" => "\x{0389}\x{0345}",         # U+1FC4 => 0389 0345
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0345}",         # U+1FF2 => 1FFA 0345
+"\xE1\xBF\xB4" => "\x{038F}\x{0345}",         # U+1FF4 => 038F 0345
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345
+"\xEF\xAC\x80" => "\x{0046}\x{0066}",         # U+FB00 => 0046 0066
+"\xEF\xAC\x81" => "\x{0046}\x{0069}",         # U+FB01 => 0046 0069
+"\xEF\xAC\x82" => "\x{0046}\x{006C}",         # U+FB02 => 0046 006C
+"\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069
+"\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C
+"\xEF\xAC\x85" => "\x{0053}\x{0074}",         # U+FB05 => 0053 0074
+"\xEF\xAC\x86" => "\x{0053}\x{0074}",         # U+FB06 => 0053 0074
+"\xEF\xAC\x93" => "\x{0544}\x{0576}",         # U+FB13 => 0544 0576
+"\xEF\xAC\x94" => "\x{0544}\x{0565}",         # U+FB14 => 0544 0565
+"\xEF\xAC\x95" => "\x{0544}\x{056B}",         # U+FB15 => 0544 056B
+"\xEF\xAC\x96" => "\x{054E}\x{0576}",         # U+FB16 => 054E 0576
+"\xEF\xAC\x97" => "\x{0544}\x{056D}",         # U+FB17 => 0544 056D
+);
+
+return <<'END';
+0061		0041
+0062		0042
+0063		0043
+0064		0044
+0065		0045
+0066		0046
+0067		0047
+0068		0048
+0069		0049
+006A		004A
+006B		004B
+006C		004C
+006D		004D
+006E		004E
+006F		004F
+0070		0050
+0071		0051
+0072		0052
+0073		0053
+0074		0054
+0075		0055
+0076		0056
+0077		0057
+0078		0058
+0079		0059
+007A		005A
+00B5		039C
+00E0		00C0
+00E1		00C1
+00E2		00C2
+00E3		00C3
+00E4		00C4
+00E5		00C5
+00E6		00C6
+00E7		00C7
+00E8		00C8
+00E9		00C9
+00EA		00CA
+00EB		00CB
+00EC		00CC
+00ED		00CD
+00EE		00CE
+00EF		00CF
+00F0		00D0
+00F1		00D1
+00F2		00D2
+00F3		00D3
+00F4		00D4
+00F5		00D5
+00F6		00D6
+00F8		00D8
+00F9		00D9
+00FA		00DA
+00FB		00DB
+00FC		00DC
+00FD		00DD
+00FE		00DE
+00FF		0178
+0101		0100
+0103		0102
+0105		0104
+0107		0106
+0109		0108
+010B		010A
+010D		010C
+010F		010E
+0111		0110
+0113		0112
+0115		0114
+0117		0116
+0119		0118
+011B		011A
+011D		011C
+011F		011E
+0121		0120
+0123		0122
+0125		0124
+0127		0126
+0129		0128
+012B		012A
+012D		012C
+012F		012E
+0131		0049
+0133		0132
+0135		0134
+0137		0136
+013A		0139
+013C		013B
+013E		013D
+0140		013F
+0142		0141
+0144		0143
+0146		0145
+0148		0147
+014B		014A
+014D		014C
+014F		014E
+0151		0150
+0153		0152
+0155		0154
+0157		0156
+0159		0158
+015B		015A
+015D		015C
+015F		015E
+0161		0160
+0163		0162
+0165		0164
+0167		0166
+0169		0168
+016B		016A
+016D		016C
+016F		016E
+0171		0170
+0173		0172
+0175		0174
+0177		0176
+017A		0179
+017C		017B
+017E		017D
+017F		0053
+0180		0243
+0183		0182
+0185		0184
+0188		0187
+018C		018B
+0192		0191
+0195		01F6
+0199		0198
+019A		023D
+019E		0220
+01A1		01A0
+01A3		01A2
+01A5		01A4
+01A8		01A7
+01AD		01AC
+01B0		01AF
+01B4		01B3
+01B6		01B5
+01B9		01B8
+01BD		01BC
+01BF		01F7
+01C4		01C5
+01C6		01C5
+01C7		01C8
+01C9		01C8
+01CA		01CB
+01CC		01CB
+01CE		01CD
+01D0		01CF
+01D2		01D1
+01D4		01D3
+01D6		01D5
+01D8		01D7
+01DA		01D9
+01DC		01DB
+01DD		018E
+01DF		01DE
+01E1		01E0
+01E3		01E2
+01E5		01E4
+01E7		01E6
+01E9		01E8
+01EB		01EA
+01ED		01EC
+01EF		01EE
+01F1		01F2
+01F3		01F2
+01F5		01F4
+01F9		01F8
+01FB		01FA
+01FD		01FC
+01FF		01FE
+0201		0200
+0203		0202
+0205		0204
+0207		0206
+0209		0208
+020B		020A
+020D		020C
+020F		020E
+0211		0210
+0213		0212
+0215		0214
+0217		0216
+0219		0218
+021B		021A
+021D		021C
+021F		021E
+0223		0222
+0225		0224
+0227		0226
+0229		0228
+022B		022A
+022D		022C
+022F		022E
+0231		0230
+0233		0232
+023C		023B
+023F		2C7E
+0240		2C7F
+0242		0241
+0247		0246
+0249		0248
+024B		024A
+024D		024C
+024F		024E
+0250		2C6F
+0251		2C6D
+0252		2C70
+0253		0181
+0254		0186
+0256		0189
+0257		018A
+0259		018F
+025B		0190
+025C		A7AB
+0260		0193
+0261		A7AC
+0263		0194
+0265		A78D
+0266		A7AA
+0268		0197
+0269		0196
+026A		A7AE
+026B		2C62
+026C		A7AD
+026F		019C
+0271		2C6E
+0272		019D
+0275		019F
+027D		2C64
+0280		01A6
+0283		01A9
+0287		A7B1
+0288		01AE
+0289		0244
+028A		01B1
+028B		01B2
+028C		0245
+0292		01B7
+029D		A7B2
+029E		A7B0
+0345		0399
+0371		0370
+0373		0372
+0377		0376
+037B		03FD
+037C		03FE
+037D		03FF
+03AC		0386
+03AD		0388
+03AE		0389
+03AF		038A
+03B1		0391
+03B2		0392
+03B3		0393
+03B4		0394
+03B5		0395
+03B6		0396
+03B7		0397
+03B8		0398
+03B9		0399
+03BA		039A
+03BB		039B
+03BC		039C
+03BD		039D
+03BE		039E
+03BF		039F
+03C0		03A0
+03C1		03A1
+03C2		03A3
+03C3		03A3
+03C4		03A4
+03C5		03A5
+03C6		03A6
+03C7		03A7
+03C8		03A8
+03C9		03A9
+03CA		03AA
+03CB		03AB
+03CC		038C
+03CD		038E
+03CE		038F
+03D0		0392
+03D1		0398
+03D5		03A6
+03D6		03A0
+03D7		03CF
+03D9		03D8
+03DB		03DA
+03DD		03DC
+03DF		03DE
+03E1		03E0
+03E3		03E2
+03E5		03E4
+03E7		03E6
+03E9		03E8
+03EB		03EA
+03ED		03EC
+03EF		03EE
+03F0		039A
+03F1		03A1
+03F2		03F9
+03F3		037F
+03F5		0395
+03F8		03F7
+03FB		03FA
+0430		0410
+0431		0411
+0432		0412
+0433		0413
+0434		0414
+0435		0415
+0436		0416
+0437		0417
+0438		0418
+0439		0419
+043A		041A
+043B		041B
+043C		041C
+043D		041D
+043E		041E
+043F		041F
+0440		0420
+0441		0421
+0442		0422
+0443		0423
+0444		0424
+0445		0425
+0446		0426
+0447		0427
+0448		0428
+0449		0429
+044A		042A
+044B		042B
+044C		042C
+044D		042D
+044E		042E
+044F		042F
+0450		0400
+0451		0401
+0452		0402
+0453		0403
+0454		0404
+0455		0405
+0456		0406
+0457		0407
+0458		0408
+0459		0409
+045A		040A
+045B		040B
+045C		040C
+045D		040D
+045E		040E
+045F		040F
+0461		0460
+0463		0462
+0465		0464
+0467		0466
+0469		0468
+046B		046A
+046D		046C
+046F		046E
+0471		0470
+0473		0472
+0475		0474
+0477		0476
+0479		0478
+047B		047A
+047D		047C
+047F		047E
+0481		0480
+048B		048A
+048D		048C
+048F		048E
+0491		0490
+0493		0492
+0495		0494
+0497		0496
+0499		0498
+049B		049A
+049D		049C
+049F		049E
+04A1		04A0
+04A3		04A2
+04A5		04A4
+04A7		04A6
+04A9		04A8
+04AB		04AA
+04AD		04AC
+04AF		04AE
+04B1		04B0
+04B3		04B2
+04B5		04B4
+04B7		04B6
+04B9		04B8
+04BB		04BA
+04BD		04BC
+04BF		04BE
+04C2		04C1
+04C4		04C3
+04C6		04C5
+04C8		04C7
+04CA		04C9
+04CC		04CB
+04CE		04CD
+04CF		04C0
+04D1		04D0
+04D3		04D2
+04D5		04D4
+04D7		04D6
+04D9		04D8
+04DB		04DA
+04DD		04DC
+04DF		04DE
+04E1		04E0
+04E3		04E2
+04E5		04E4
+04E7		04E6
+04E9		04E8
+04EB		04EA
+04ED		04EC
+04EF		04EE
+04F1		04F0
+04F3		04F2
+04F5		04F4
+04F7		04F6
+04F9		04F8
+04FB		04FA
+04FD		04FC
+04FF		04FE
+0501		0500
+0503		0502
+0505		0504
+0507		0506
+0509		0508
+050B		050A
+050D		050C
+050F		050E
+0511		0510
+0513		0512
+0515		0514
+0517		0516
+0519		0518
+051B		051A
+051D		051C
+051F		051E
+0521		0520
+0523		0522
+0525		0524
+0527		0526
+0529		0528
+052B		052A
+052D		052C
+052F		052E
+0561		0531
+0562		0532
+0563		0533
+0564		0534
+0565		0535
+0566		0536
+0567		0537
+0568		0538
+0569		0539
+056A		053A
+056B		053B
+056C		053C
+056D		053D
+056E		053E
+056F		053F
+0570		0540
+0571		0541
+0572		0542
+0573		0543
+0574		0544
+0575		0545
+0576		0546
+0577		0547
+0578		0548
+0579		0549
+057A		054A
+057B		054B
+057C		054C
+057D		054D
+057E		054E
+057F		054F
+0580		0550
+0581		0551
+0582		0552
+0583		0553
+0584		0554
+0585		0555
+0586		0556
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1C80		0412
+1C81		0414
+1C82		041E
+1C83		0421
+1C84		0422
+1C85		0422
+1C86		042A
+1C87		0462
+1C88		A64A
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00		1F08
+1F01		1F09
+1F02		1F0A
+1F03		1F0B
+1F04		1F0C
+1F05		1F0D
+1F06		1F0E
+1F07		1F0F
+1F10		1F18
+1F11		1F19
+1F12		1F1A
+1F13		1F1B
+1F14		1F1C
+1F15		1F1D
+1F20		1F28
+1F21		1F29
+1F22		1F2A
+1F23		1F2B
+1F24		1F2C
+1F25		1F2D
+1F26		1F2E
+1F27		1F2F
+1F30		1F38
+1F31		1F39
+1F32		1F3A
+1F33		1F3B
+1F34		1F3C
+1F35		1F3D
+1F36		1F3E
+1F37		1F3F
+1F40		1F48
+1F41		1F49
+1F42		1F4A
+1F43		1F4B
+1F44		1F4C
+1F45		1F4D
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60		1F68
+1F61		1F69
+1F62		1F6A
+1F63		1F6B
+1F64		1F6C
+1F65		1F6D
+1F66		1F6E
+1F67		1F6F
+1F70		1FBA
+1F71		1FBB
+1F72		1FC8
+1F73		1FC9
+1F74		1FCA
+1F75		1FCB
+1F76		1FDA
+1F77		1FDB
+1F78		1FF8
+1F79		1FF9
+1F7A		1FEA
+1F7B		1FEB
+1F7C		1FFA
+1F7D		1FFB
+1F80		1F88
+1F81		1F89
+1F82		1F8A
+1F83		1F8B
+1F84		1F8C
+1F85		1F8D
+1F86		1F8E
+1F87		1F8F
+1F90		1F98
+1F91		1F99
+1F92		1F9A
+1F93		1F9B
+1F94		1F9C
+1F95		1F9D
+1F96		1F9E
+1F97		1F9F
+1FA0		1FA8
+1FA1		1FA9
+1FA2		1FAA
+1FA3		1FAB
+1FA4		1FAC
+1FA5		1FAD
+1FA6		1FAE
+1FA7		1FAF
+1FB0		1FB8
+1FB1		1FB9
+1FB3		1FBC
+1FBE		0399
+1FC3		1FCC
+1FD0		1FD8
+1FD1		1FD9
+1FE0		1FE8
+1FE1		1FE9
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170		2160
+2171		2161
+2172		2162
+2173		2163
+2174		2164
+2175		2165
+2176		2166
+2177		2167
+2178		2168
+2179		2169
+217A		216A
+217B		216B
+217C		216C
+217D		216D
+217E		216E
+217F		216F
+2184		2183
+24D0		24B6
+24D1		24B7
+24D2		24B8
+24D3		24B9
+24D4		24BA
+24D5		24BB
+24D6		24BC
+24D7		24BD
+24D8		24BE
+24D9		24BF
+24DA		24C0
+24DB		24C1
+24DC		24C2
+24DD		24C3
+24DE		24C4
+24DF		24C5
+24E0		24C6
+24E1		24C7
+24E2		24C8
+24E3		24C9
+24E4		24CA
+24E5		24CB
+24E6		24CC
+24E7		24CD
+24E8		24CE
+24E9		24CF
+2C30		2C00
+2C31		2C01
+2C32		2C02
+2C33		2C03
+2C34		2C04
+2C35		2C05
+2C36		2C06
+2C37		2C07
+2C38		2C08
+2C39		2C09
+2C3A		2C0A
+2C3B		2C0B
+2C3C		2C0C
+2C3D		2C0D
+2C3E		2C0E
+2C3F		2C0F
+2C40		2C10
+2C41		2C11
+2C42		2C12
+2C43		2C13
+2C44		2C14
+2C45		2C15
+2C46		2C16
+2C47		2C17
+2C48		2C18
+2C49		2C19
+2C4A		2C1A
+2C4B		2C1B
+2C4C		2C1C
+2C4D		2C1D
+2C4E		2C1E
+2C4F		2C1F
+2C50		2C20
+2C51		2C21
+2C52		2C22
+2C53		2C23
+2C54		2C24
+2C55		2C25
+2C56		2C26
+2C57		2C27
+2C58		2C28
+2C59		2C29
+2C5A		2C2A
+2C5B		2C2B
+2C5C		2C2C
+2C5D		2C2D
+2C5E		2C2E
+2C61		2C60
+2C65		023A
+2C66		023E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00		10A0
+2D01		10A1
+2D02		10A2
+2D03		10A3
+2D04		10A4
+2D05		10A5
+2D06		10A6
+2D07		10A7
+2D08		10A8
+2D09		10A9
+2D0A		10AA
+2D0B		10AB
+2D0C		10AC
+2D0D		10AD
+2D0E		10AE
+2D0F		10AF
+2D10		10B0
+2D11		10B1
+2D12		10B2
+2D13		10B3
+2D14		10B4
+2D15		10B5
+2D16		10B6
+2D17		10B7
+2D18		10B8
+2D19		10B9
+2D1A		10BA
+2D1B		10BB
+2D1C		10BC
+2D1D		10BD
+2D1E		10BE
+2D1F		10BF
+2D20		10C0
+2D21		10C1
+2D22		10C2
+2D23		10C3
+2D24		10C4
+2D25		10C5
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF41		FF21
+FF42		FF22
+FF43		FF23
+FF44		FF24
+FF45		FF25
+FF46		FF26
+FF47		FF27
+FF48		FF28
+FF49		FF29
+FF4A		FF2A
+FF4B		FF2B
+FF4C		FF2C
+FF4D		FF2D
+FF4E		FF2E
+FF4F		FF2F
+FF50		FF30
+FF51		FF31
+FF52		FF32
+FF53		FF33
+FF54		FF34
+FF55		FF35
+FF56		FF36
+FF57		FF37
+FF58		FF38
+FF59		FF39
+FF5A		FF3A
+10428		10400
+10429		10401
+1042A		10402
+1042B		10403
+1042C		10404
+1042D		10405
+1042E		10406
+1042F		10407
+10430		10408
+10431		10409
+10432		1040A
+10433		1040B
+10434		1040C
+10435		1040D
+10436		1040E
+10437		1040F
+10438		10410
+10439		10411
+1043A		10412
+1043B		10413
+1043C		10414
+1043D		10415
+1043E		10416
+1043F		10417
+10440		10418
+10441		10419
+10442		1041A
+10443		1041B
+10444		1041C
+10445		1041D
+10446		1041E
+10447		1041F
+10448		10420
+10449		10421
+1044A		10422
+1044B		10423
+1044C		10424
+1044D		10425
+1044E		10426
+1044F		10427
+104D8		104B0
+104D9		104B1
+104DA		104B2
+104DB		104B3
+104DC		104B4
+104DD		104B5
+104DE		104B6
+104DF		104B7
+104E0		104B8
+104E1		104B9
+104E2		104BA
+104E3		104BB
+104E4		104BC
+104E5		104BD
+104E6		104BE
+104E7		104BF
+104E8		104C0
+104E9		104C1
+104EA		104C2
+104EB		104C3
+104EC		104C4
+104ED		104C5
+104EE		104C6
+104EF		104C7
+104F0		104C8
+104F1		104C9
+104F2		104CA
+104F3		104CB
+104F4		104CC
+104F5		104CD
+104F6		104CE
+104F7		104CF
+104F8		104D0
+104F9		104D1
+104FA		104D2
+104FB		104D3
+10CC0		10C80
+10CC1		10C81
+10CC2		10C82
+10CC3		10C83
+10CC4		10C84
+10CC5		10C85
+10CC6		10C86
+10CC7		10C87
+10CC8		10C88
+10CC9		10C89
+10CCA		10C8A
+10CCB		10C8B
+10CCC		10C8C
+10CCD		10C8D
+10CCE		10C8E
+10CCF		10C8F
+10CD0		10C90
+10CD1		10C91
+10CD2		10C92
+10CD3		10C93
+10CD4		10C94
+10CD5		10C95
+10CD6		10C96
+10CD7		10C97
+10CD8		10C98
+10CD9		10C99
+10CDA		10C9A
+10CDB		10C9B
+10CDC		10C9C
+10CDD		10C9D
+10CDE		10C9E
+10CDF		10C9F
+10CE0		10CA0
+10CE1		10CA1
+10CE2		10CA2
+10CE3		10CA3
+10CE4		10CA4
+10CE5		10CA5
+10CE6		10CA6
+10CE7		10CA7
+10CE8		10CA8
+10CE9		10CA9
+10CEA		10CAA
+10CEB		10CAB
+10CEC		10CAC
+10CED		10CAD
+10CEE		10CAE
+10CEF		10CAF
+10CF0		10CB0
+10CF1		10CB1
+10CF2		10CB2
+118C0		118A0
+118C1		118A1
+118C2		118A2
+118C3		118A3
+118C4		118A4
+118C5		118A5
+118C6		118A6
+118C7		118A7
+118C8		118A8
+118C9		118A9
+118CA		118AA
+118CB		118AB
+118CC		118AC
+118CD		118AD
+118CE		118AE
+118CF		118AF
+118D0		118B0
+118D1		118B1
+118D2		118B2
+118D3		118B3
+118D4		118B4
+118D5		118B5
+118D6		118B6
+118D7		118B7
+118D8		118B8
+118D9		118B9
+118DA		118BA
+118DB		118BB
+118DC		118BC
+118DD		118BD
+118DE		118BE
+118DF		118BF
+1E922		1E900
+1E923		1E901
+1E924		1E902
+1E925		1E903
+1E926		1E904
+1E927		1E905
+1E928		1E906
+1E929		1E907
+1E92A		1E908
+1E92B		1E909
+1E92C		1E90A
+1E92D		1E90B
+1E92E		1E90C
+1E92F		1E90D
+1E930		1E90E
+1E931		1E90F
+1E932		1E910
+1E933		1E911
+1E934		1E912
+1E935		1E913
+1E936		1E914
+1E937		1E915
+1E938		1E916
+1E939		1E917
+1E93A		1E918
+1E93B		1E919
+1E93C		1E91A
+1E93D		1E91B
+1E93E		1E91C
+1E93F		1E91D
+1E940		1E91E
+1E941		1E91F
+1E942		1E920
+1E943		1E921
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Bidi_Mirroring_Glyph') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBmg'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToBmg'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0028		0029
+0029		0028
+003C		003E
+003E		003C
+005B		005D
+005D		005B
+007B		007D
+007D		007B
+00AB		00BB
+00BB		00AB
+0F3A		0F3B
+0F3B		0F3A
+0F3C		0F3D
+0F3D		0F3C
+169B		169C
+169C		169B
+2039		203A
+203A		2039
+2045		2046
+2046		2045
+207D		207E
+207E		207D
+208D		208E
+208E		208D
+2208		220B
+2209		220C
+220A		220D
+220B		2208
+220C		2209
+220D		220A
+2215		29F5
+223C		223D
+223D		223C
+2243		22CD
+2252		2253
+2253		2252
+2254		2255
+2255		2254
+2264		2265
+2265		2264
+2266		2267
+2267		2266
+2268		2269
+2269		2268
+226A		226B
+226B		226A
+226E		226F
+226F		226E
+2270		2271
+2271		2270
+2272		2273
+2273		2272
+2274		2275
+2275		2274
+2276		2277
+2277		2276
+2278		2279
+2279		2278
+227A		227B
+227B		227A
+227C		227D
+227D		227C
+227E		227F
+227F		227E
+2280		2281
+2281		2280
+2282		2283
+2283		2282
+2284		2285
+2285		2284
+2286		2287
+2287		2286
+2288		2289
+2289		2288
+228A		228B
+228B		228A
+228F		2290
+2290		228F
+2291		2292
+2292		2291
+2298		29B8
+22A2		22A3
+22A3		22A2
+22A6		2ADE
+22A8		2AE4
+22A9		2AE3
+22AB		2AE5
+22B0		22B1
+22B1		22B0
+22B2		22B3
+22B3		22B2
+22B4		22B5
+22B5		22B4
+22B6		22B7
+22B7		22B6
+22C9		22CA
+22CA		22C9
+22CB		22CC
+22CC		22CB
+22CD		2243
+22D0		22D1
+22D1		22D0
+22D6		22D7
+22D7		22D6
+22D8		22D9
+22D9		22D8
+22DA		22DB
+22DB		22DA
+22DC		22DD
+22DD		22DC
+22DE		22DF
+22DF		22DE
+22E0		22E1
+22E1		22E0
+22E2		22E3
+22E3		22E2
+22E4		22E5
+22E5		22E4
+22E6		22E7
+22E7		22E6
+22E8		22E9
+22E9		22E8
+22EA		22EB
+22EB		22EA
+22EC		22ED
+22ED		22EC
+22F0		22F1
+22F1		22F0
+22F2		22FA
+22F3		22FB
+22F4		22FC
+22F6		22FD
+22F7		22FE
+22FA		22F2
+22FB		22F3
+22FC		22F4
+22FD		22F6
+22FE		22F7
+2308		2309
+2309		2308
+230A		230B
+230B		230A
+2329		232A
+232A		2329
+2768		2769
+2769		2768
+276A		276B
+276B		276A
+276C		276D
+276D		276C
+276E		276F
+276F		276E
+2770		2771
+2771		2770
+2772		2773
+2773		2772
+2774		2775
+2775		2774
+27C3		27C4
+27C4		27C3
+27C5		27C6
+27C6		27C5
+27C8		27C9
+27C9		27C8
+27CB		27CD
+27CD		27CB
+27D5		27D6
+27D6		27D5
+27DD		27DE
+27DE		27DD
+27E2		27E3
+27E3		27E2
+27E4		27E5
+27E5		27E4
+27E6		27E7
+27E7		27E6
+27E8		27E9
+27E9		27E8
+27EA		27EB
+27EB		27EA
+27EC		27ED
+27ED		27EC
+27EE		27EF
+27EF		27EE
+2983		2984
+2984		2983
+2985		2986
+2986		2985
+2987		2988
+2988		2987
+2989		298A
+298A		2989
+298B		298C
+298C		298B
+298D		2990
+298E		298F
+298F		298E
+2990		298D
+2991		2992
+2992		2991
+2993		2994
+2994		2993
+2995		2996
+2996		2995
+2997		2998
+2998		2997
+29B8		2298
+29C0		29C1
+29C1		29C0
+29C4		29C5
+29C5		29C4
+29CF		29D0
+29D0		29CF
+29D1		29D2
+29D2		29D1
+29D4		29D5
+29D5		29D4
+29D8		29D9
+29D9		29D8
+29DA		29DB
+29DB		29DA
+29F5		2215
+29F8		29F9
+29F9		29F8
+29FC		29FD
+29FD		29FC
+2A2B		2A2C
+2A2C		2A2B
+2A2D		2A2E
+2A2E		2A2D
+2A34		2A35
+2A35		2A34
+2A3C		2A3D
+2A3D		2A3C
+2A64		2A65
+2A65		2A64
+2A79		2A7A
+2A7A		2A79
+2A7D		2A7E
+2A7E		2A7D
+2A7F		2A80
+2A80		2A7F
+2A81		2A82
+2A82		2A81
+2A83		2A84
+2A84		2A83
+2A8B		2A8C
+2A8C		2A8B
+2A91		2A92
+2A92		2A91
+2A93		2A94
+2A94		2A93
+2A95		2A96
+2A96		2A95
+2A97		2A98
+2A98		2A97
+2A99		2A9A
+2A9A		2A99
+2A9B		2A9C
+2A9C		2A9B
+2AA1		2AA2
+2AA2		2AA1
+2AA6		2AA7
+2AA7		2AA6
+2AA8		2AA9
+2AA9		2AA8
+2AAA		2AAB
+2AAB		2AAA
+2AAC		2AAD
+2AAD		2AAC
+2AAF		2AB0
+2AB0		2AAF
+2AB3		2AB4
+2AB4		2AB3
+2ABB		2ABC
+2ABC		2ABB
+2ABD		2ABE
+2ABE		2ABD
+2ABF		2AC0
+2AC0		2ABF
+2AC1		2AC2
+2AC2		2AC1
+2AC3		2AC4
+2AC4		2AC3
+2AC5		2AC6
+2AC6		2AC5
+2ACD		2ACE
+2ACE		2ACD
+2ACF		2AD0
+2AD0		2ACF
+2AD1		2AD2
+2AD2		2AD1
+2AD3		2AD4
+2AD4		2AD3
+2AD5		2AD6
+2AD6		2AD5
+2ADE		22A6
+2AE3		22A9
+2AE4		22A8
+2AE5		22AB
+2AEC		2AED
+2AED		2AEC
+2AF7		2AF8
+2AF8		2AF7
+2AF9		2AFA
+2AFA		2AF9
+2E02		2E03
+2E03		2E02
+2E04		2E05
+2E05		2E04
+2E09		2E0A
+2E0A		2E09
+2E0C		2E0D
+2E0D		2E0C
+2E1C		2E1D
+2E1D		2E1C
+2E20		2E21
+2E21		2E20
+2E22		2E23
+2E23		2E22
+2E24		2E25
+2E25		2E24
+2E26		2E27
+2E27		2E26
+2E28		2E29
+2E29		2E28
+3008		3009
+3009		3008
+300A		300B
+300B		300A
+300C		300D
+300D		300C
+300E		300F
+300F		300E
+3010		3011
+3011		3010
+3014		3015
+3015		3014
+3016		3017
+3017		3016
+3018		3019
+3019		3018
+301A		301B
+301B		301A
+FE59		FE5A
+FE5A		FE59
+FE5B		FE5C
+FE5C		FE5B
+FE5D		FE5E
+FE5E		FE5D
+FE64		FE65
+FE65		FE64
+FF08		FF09
+FF09		FF08
+FF1C		FF1E
+FF1E		FF1C
+FF3B		FF3D
+FF3D		FF3B
+FF5B		FF5D
+FF5D		FF5B
+FF5F		FF60
+FF60		FF5F
+FF62		FF63
+FF63		FF62
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToSB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToSB'}{'missing'} = 'Other';
+
+return <<'END';
+9		Sp
+A		LF
+B	C	Sp
+D		CR
+20		Sp
+21		STerm
+22		Close
+27	29	Close
+2C	2D	SContinue
+2E		ATerm
+30	39	Numeric
+3A		SContinue
+3F		STerm
+41	5A	Upper
+5B		Close
+5D		Close
+61	7A	Lower
+7B		Close
+7D		Close
+85		Sep
+A0		Sp
+AA		Lower
+AB		Close
+AD		Format
+B5		Lower
+BA		Lower
+BB		Close
+C0	D6	Upper
+D8	DE	Upper
+DF	F6	Lower
+F8	FF	Lower
+100		Upper
+101		Lower
+102		Upper
+103		Lower
+104		Upper
+105		Lower
+106		Upper
+107		Lower
+108		Upper
+109		Lower
+10A		Upper
+10B		Lower
+10C		Upper
+10D		Lower
+10E		Upper
+10F		Lower
+110		Upper
+111		Lower
+112		Upper
+113		Lower
+114		Upper
+115		Lower
+116		Upper
+117		Lower
+118		Upper
+119		Lower
+11A		Upper
+11B		Lower
+11C		Upper
+11D		Lower
+11E		Upper
+11F		Lower
+120		Upper
+121		Lower
+122		Upper
+123		Lower
+124		Upper
+125		Lower
+126		Upper
+127		Lower
+128		Upper
+129		Lower
+12A		Upper
+12B		Lower
+12C		Upper
+12D		Lower
+12E		Upper
+12F		Lower
+130		Upper
+131		Lower
+132		Upper
+133		Lower
+134		Upper
+135		Lower
+136		Upper
+137	138	Lower
+139		Upper
+13A		Lower
+13B		Upper
+13C		Lower
+13D		Upper
+13E		Lower
+13F		Upper
+140		Lower
+141		Upper
+142		Lower
+143		Upper
+144		Lower
+145		Upper
+146		Lower
+147		Upper
+148	149	Lower
+14A		Upper
+14B		Lower
+14C		Upper
+14D		Lower
+14E		Upper
+14F		Lower
+150		Upper
+151		Lower
+152		Upper
+153		Lower
+154		Upper
+155		Lower
+156		Upper
+157		Lower
+158		Upper
+159		Lower
+15A		Upper
+15B		Lower
+15C		Upper
+15D		Lower
+15E		Upper
+15F		Lower
+160		Upper
+161		Lower
+162		Upper
+163		Lower
+164		Upper
+165		Lower
+166		Upper
+167		Lower
+168		Upper
+169		Lower
+16A		Upper
+16B		Lower
+16C		Upper
+16D		Lower
+16E		Upper
+16F		Lower
+170		Upper
+171		Lower
+172		Upper
+173		Lower
+174		Upper
+175		Lower
+176		Upper
+177		Lower
+178	179	Upper
+17A		Lower
+17B		Upper
+17C		Lower
+17D		Upper
+17E	180	Lower
+181	182	Upper
+183		Lower
+184		Upper
+185		Lower
+186	187	Upper
+188		Lower
+189	18B	Upper
+18C	18D	Lower
+18E	191	Upper
+192		Lower
+193	194	Upper
+195		Lower
+196	198	Upper
+199	19B	Lower
+19C	19D	Upper
+19E		Lower
+19F	1A0	Upper
+1A1		Lower
+1A2		Upper
+1A3		Lower
+1A4		Upper
+1A5		Lower
+1A6	1A7	Upper
+1A8		Lower
+1A9		Upper
+1AA	1AB	Lower
+1AC		Upper
+1AD		Lower
+1AE	1AF	Upper
+1B0		Lower
+1B1	1B3	Upper
+1B4		Lower
+1B5		Upper
+1B6		Lower
+1B7	1B8	Upper
+1B9	1BA	Lower
+1BB		OLetter
+1BC		Upper
+1BD	1BF	Lower
+1C0	1C3	OLetter
+1C4	1C5	Upper
+1C6		Lower
+1C7	1C8	Upper
+1C9		Lower
+1CA	1CB	Upper
+1CC		Lower
+1CD		Upper
+1CE		Lower
+1CF		Upper
+1D0		Lower
+1D1		Upper
+1D2		Lower
+1D3		Upper
+1D4		Lower
+1D5		Upper
+1D6		Lower
+1D7		Upper
+1D8		Lower
+1D9		Upper
+1DA		Lower
+1DB		Upper
+1DC	1DD	Lower
+1DE		Upper
+1DF		Lower
+1E0		Upper
+1E1		Lower
+1E2		Upper
+1E3		Lower
+1E4		Upper
+1E5		Lower
+1E6		Upper
+1E7		Lower
+1E8		Upper
+1E9		Lower
+1EA		Upper
+1EB		Lower
+1EC		Upper
+1ED		Lower
+1EE		Upper
+1EF	1F0	Lower
+1F1	1F2	Upper
+1F3		Lower
+1F4		Upper
+1F5		Lower
+1F6	1F8	Upper
+1F9		Lower
+1FA		Upper
+1FB		Lower
+1FC		Upper
+1FD		Lower
+1FE		Upper
+1FF		Lower
+200		Upper
+201		Lower
+202		Upper
+203		Lower
+204		Upper
+205		Lower
+206		Upper
+207		Lower
+208		Upper
+209		Lower
+20A		Upper
+20B		Lower
+20C		Upper
+20D		Lower
+20E		Upper
+20F		Lower
+210		Upper
+211		Lower
+212		Upper
+213		Lower
+214		Upper
+215		Lower
+216		Upper
+217		Lower
+218		Upper
+219		Lower
+21A		Upper
+21B		Lower
+21C		Upper
+21D		Lower
+21E		Upper
+21F		Lower
+220		Upper
+221		Lower
+222		Upper
+223		Lower
+224		Upper
+225		Lower
+226		Upper
+227		Lower
+228		Upper
+229		Lower
+22A		Upper
+22B		Lower
+22C		Upper
+22D		Lower
+22E		Upper
+22F		Lower
+230		Upper
+231		Lower
+232		Upper
+233	239	Lower
+23A	23B	Upper
+23C		Lower
+23D	23E	Upper
+23F	240	Lower
+241		Upper
+242		Lower
+243	246	Upper
+247		Lower
+248		Upper
+249		Lower
+24A		Upper
+24B		Lower
+24C		Upper
+24D		Lower
+24E		Upper
+24F	293	Lower
+294		OLetter
+295	2B8	Lower
+2B9	2BF	OLetter
+2C0	2C1	Lower
+2C6	2D1	OLetter
+2E0	2E4	Lower
+2EC		OLetter
+2EE		OLetter
+300	36F	Extend
+370		Upper
+371		Lower
+372		Upper
+373		Lower
+374		OLetter
+376		Upper
+377		Lower
+37A	37D	Lower
+37F		Upper
+386		Upper
+388	38A	Upper
+38C		Upper
+38E	38F	Upper
+390		Lower
+391	3A1	Upper
+3A3	3AB	Upper
+3AC	3CE	Lower
+3CF		Upper
+3D0	3D1	Lower
+3D2	3D4	Upper
+3D5	3D7	Lower
+3D8		Upper
+3D9		Lower
+3DA		Upper
+3DB		Lower
+3DC		Upper
+3DD		Lower
+3DE		Upper
+3DF		Lower
+3E0		Upper
+3E1		Lower
+3E2		Upper
+3E3		Lower
+3E4		Upper
+3E5		Lower
+3E6		Upper
+3E7		Lower
+3E8		Upper
+3E9		Lower
+3EA		Upper
+3EB		Lower
+3EC		Upper
+3ED		Lower
+3EE		Upper
+3EF	3F3	Lower
+3F4		Upper
+3F5		Lower
+3F7		Upper
+3F8		Lower
+3F9	3FA	Upper
+3FB	3FC	Lower
+3FD	42F	Upper
+430	45F	Lower
+460		Upper
+461		Lower
+462		Upper
+463		Lower
+464		Upper
+465		Lower
+466		Upper
+467		Lower
+468		Upper
+469		Lower
+46A		Upper
+46B		Lower
+46C		Upper
+46D		Lower
+46E		Upper
+46F		Lower
+470		Upper
+471		Lower
+472		Upper
+473		Lower
+474		Upper
+475		Lower
+476		Upper
+477		Lower
+478		Upper
+479		Lower
+47A		Upper
+47B		Lower
+47C		Upper
+47D		Lower
+47E		Upper
+47F		Lower
+480		Upper
+481		Lower
+483	489	Extend
+48A		Upper
+48B		Lower
+48C		Upper
+48D		Lower
+48E		Upper
+48F		Lower
+490		Upper
+491		Lower
+492		Upper
+493		Lower
+494		Upper
+495		Lower
+496		Upper
+497		Lower
+498		Upper
+499		Lower
+49A		Upper
+49B		Lower
+49C		Upper
+49D		Lower
+49E		Upper
+49F		Lower
+4A0		Upper
+4A1		Lower
+4A2		Upper
+4A3		Lower
+4A4		Upper
+4A5		Lower
+4A6		Upper
+4A7		Lower
+4A8		Upper
+4A9		Lower
+4AA		Upper
+4AB		Lower
+4AC		Upper
+4AD		Lower
+4AE		Upper
+4AF		Lower
+4B0		Upper
+4B1		Lower
+4B2		Upper
+4B3		Lower
+4B4		Upper
+4B5		Lower
+4B6		Upper
+4B7		Lower
+4B8		Upper
+4B9		Lower
+4BA		Upper
+4BB		Lower
+4BC		Upper
+4BD		Lower
+4BE		Upper
+4BF		Lower
+4C0	4C1	Upper
+4C2		Lower
+4C3		Upper
+4C4		Lower
+4C5		Upper
+4C6		Lower
+4C7		Upper
+4C8		Lower
+4C9		Upper
+4CA		Lower
+4CB		Upper
+4CC		Lower
+4CD		Upper
+4CE	4CF	Lower
+4D0		Upper
+4D1		Lower
+4D2		Upper
+4D3		Lower
+4D4		Upper
+4D5		Lower
+4D6		Upper
+4D7		Lower
+4D8		Upper
+4D9		Lower
+4DA		Upper
+4DB		Lower
+4DC		Upper
+4DD		Lower
+4DE		Upper
+4DF		Lower
+4E0		Upper
+4E1		Lower
+4E2		Upper
+4E3		Lower
+4E4		Upper
+4E5		Lower
+4E6		Upper
+4E7		Lower
+4E8		Upper
+4E9		Lower
+4EA		Upper
+4EB		Lower
+4EC		Upper
+4ED		Lower
+4EE		Upper
+4EF		Lower
+4F0		Upper
+4F1		Lower
+4F2		Upper
+4F3		Lower
+4F4		Upper
+4F5		Lower
+4F6		Upper
+4F7		Lower
+4F8		Upper
+4F9		Lower
+4FA		Upper
+4FB		Lower
+4FC		Upper
+4FD		Lower
+4FE		Upper
+4FF		Lower
+500		Upper
+501		Lower
+502		Upper
+503		Lower
+504		Upper
+505		Lower
+506		Upper
+507		Lower
+508		Upper
+509		Lower
+50A		Upper
+50B		Lower
+50C		Upper
+50D		Lower
+50E		Upper
+50F		Lower
+510		Upper
+511		Lower
+512		Upper
+513		Lower
+514		Upper
+515		Lower
+516		Upper
+517		Lower
+518		Upper
+519		Lower
+51A		Upper
+51B		Lower
+51C		Upper
+51D		Lower
+51E		Upper
+51F		Lower
+520		Upper
+521		Lower
+522		Upper
+523		Lower
+524		Upper
+525		Lower
+526		Upper
+527		Lower
+528		Upper
+529		Lower
+52A		Upper
+52B		Lower
+52C		Upper
+52D		Lower
+52E		Upper
+52F		Lower
+531	556	Upper
+559		OLetter
+55D		SContinue
+561	587	Lower
+589		STerm
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	OLetter
+5F0	5F3	OLetter
+600	605	Format
+60C	60D	SContinue
+610	61A	Extend
+61C		Format
+61F		STerm
+620	64A	OLetter
+64B	65F	Extend
+660	669	Numeric
+66B	66C	Numeric
+66E	66F	OLetter
+670		Extend
+671	6D3	OLetter
+6D4		STerm
+6D5		OLetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	OLetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	OLetter
+6F0	6F9	Numeric
+6FA	6FC	OLetter
+6FF		OLetter
+700	702	STerm
+70F		Format
+710		OLetter
+711		Extend
+712	72F	OLetter
+730	74A	Extend
+74D	7A5	OLetter
+7A6	7B0	Extend
+7B1		OLetter
+7C0	7C9	Numeric
+7CA	7EA	OLetter
+7EB	7F3	Extend
+7F4	7F5	OLetter
+7F8		SContinue
+7F9		STerm
+7FA		OLetter
+800	815	OLetter
+816	819	Extend
+81A		OLetter
+81B	823	Extend
+824		OLetter
+825	827	Extend
+828		OLetter
+829	82D	Extend
+840	858	OLetter
+859	85B	Extend
+860	86A	OLetter
+8A0	8B4	OLetter
+8B6	8BD	OLetter
+8D4	8E1	Extend
+8E2		Format
+8E3	903	Extend
+904	939	OLetter
+93A	93C	Extend
+93D		OLetter
+93E	94F	Extend
+950		OLetter
+951	957	Extend
+958	961	OLetter
+962	963	Extend
+964	965	STerm
+966	96F	Numeric
+971	980	OLetter
+981	983	Extend
+985	98C	OLetter
+98F	990	OLetter
+993	9A8	OLetter
+9AA	9B0	OLetter
+9B2		OLetter
+9B6	9B9	OLetter
+9BC		Extend
+9BD		OLetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		OLetter
+9D7		Extend
+9DC	9DD	OLetter
+9DF	9E1	OLetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	OLetter
+9FC		OLetter
+A01	A03	Extend
+A05	A0A	OLetter
+A0F	A10	OLetter
+A13	A28	OLetter
+A2A	A30	OLetter
+A32	A33	OLetter
+A35	A36	OLetter
+A38	A39	OLetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	OLetter
+A5E		OLetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	OLetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	OLetter
+A8F	A91	OLetter
+A93	AA8	OLetter
+AAA	AB0	OLetter
+AB2	AB3	OLetter
+AB5	AB9	OLetter
+ABC		Extend
+ABD		OLetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		OLetter
+AE0	AE1	OLetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		OLetter
+AFA	AFF	Extend
+B01	B03	Extend
+B05	B0C	OLetter
+B0F	B10	OLetter
+B13	B28	OLetter
+B2A	B30	OLetter
+B32	B33	OLetter
+B35	B39	OLetter
+B3C		Extend
+B3D		OLetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	OLetter
+B5F	B61	OLetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		OLetter
+B82		Extend
+B83		OLetter
+B85	B8A	OLetter
+B8E	B90	OLetter
+B92	B95	OLetter
+B99	B9A	OLetter
+B9C		OLetter
+B9E	B9F	OLetter
+BA3	BA4	OLetter
+BA8	BAA	OLetter
+BAE	BB9	OLetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		OLetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	OLetter
+C0E	C10	OLetter
+C12	C28	OLetter
+C2A	C39	OLetter
+C3D		OLetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	OLetter
+C60	C61	OLetter
+C62	C63	Extend
+C66	C6F	Numeric
+C80		OLetter
+C81	C83	Extend
+C85	C8C	OLetter
+C8E	C90	OLetter
+C92	CA8	OLetter
+CAA	CB3	OLetter
+CB5	CB9	OLetter
+CBC		Extend
+CBD		OLetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		OLetter
+CE0	CE1	OLetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	OLetter
+D00	D03	Extend
+D05	D0C	OLetter
+D0E	D10	OLetter
+D12	D3A	OLetter
+D3B	D3C	Extend
+D3D		OLetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		OLetter
+D54	D56	OLetter
+D57		Extend
+D5F	D61	OLetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	OLetter
+D82	D83	Extend
+D85	D96	OLetter
+D9A	DB1	OLetter
+DB3	DBB	OLetter
+DBD		OLetter
+DC0	DC6	OLetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E01	E30	OLetter
+E31		Extend
+E32	E33	OLetter
+E34	E3A	Extend
+E40	E46	OLetter
+E47	E4E	Extend
+E50	E59	Numeric
+E81	E82	OLetter
+E84		OLetter
+E87	E88	OLetter
+E8A		OLetter
+E8D		OLetter
+E94	E97	OLetter
+E99	E9F	OLetter
+EA1	EA3	OLetter
+EA5		OLetter
+EA7		OLetter
+EAA	EAB	OLetter
+EAD	EB0	OLetter
+EB1		Extend
+EB2	EB3	OLetter
+EB4	EB9	Extend
+EBB	EBC	Extend
+EBD		OLetter
+EC0	EC4	OLetter
+EC6		OLetter
+EC8	ECD	Extend
+ED0	ED9	Numeric
+EDC	EDF	OLetter
+F00		OLetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3A	F3D	Close
+F3E	F3F	Extend
+F40	F47	OLetter
+F49	F6C	OLetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	OLetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+1000	102A	OLetter
+102B	103E	Extend
+103F		OLetter
+1040	1049	Numeric
+104A	104B	STerm
+1050	1055	OLetter
+1056	1059	Extend
+105A	105D	OLetter
+105E	1060	Extend
+1061		OLetter
+1062	1064	Extend
+1065	1066	OLetter
+1067	106D	Extend
+106E	1070	OLetter
+1071	1074	Extend
+1075	1081	OLetter
+1082	108D	Extend
+108E		OLetter
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	Upper
+10C7		Upper
+10CD		Upper
+10D0	10FA	OLetter
+10FC	1248	OLetter
+124A	124D	OLetter
+1250	1256	OLetter
+1258		OLetter
+125A	125D	OLetter
+1260	1288	OLetter
+128A	128D	OLetter
+1290	12B0	OLetter
+12B2	12B5	OLetter
+12B8	12BE	OLetter
+12C0		OLetter
+12C2	12C5	OLetter
+12C8	12D6	OLetter
+12D8	1310	OLetter
+1312	1315	OLetter
+1318	135A	OLetter
+135D	135F	Extend
+1362		STerm
+1367	1368	STerm
+1380	138F	OLetter
+13A0	13F5	Upper
+13F8	13FD	Lower
+1401	166C	OLetter
+166E		STerm
+166F	167F	OLetter
+1680		Sp
+1681	169A	OLetter
+169B	169C	Close
+16A0	16EA	OLetter
+16EE	16F8	OLetter
+1700	170C	OLetter
+170E	1711	OLetter
+1712	1714	Extend
+1720	1731	OLetter
+1732	1734	Extend
+1735	1736	STerm
+1740	1751	OLetter
+1752	1753	Extend
+1760	176C	OLetter
+176E	1770	OLetter
+1772	1773	Extend
+1780	17B3	OLetter
+17B4	17D3	Extend
+17D7		OLetter
+17DC		OLetter
+17DD		Extend
+17E0	17E9	Numeric
+1802		SContinue
+1803		STerm
+1808		SContinue
+1809		STerm
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	OLetter
+1880	1884	OLetter
+1885	1886	Extend
+1887	18A8	OLetter
+18A9		Extend
+18AA		OLetter
+18B0	18F5	OLetter
+1900	191E	OLetter
+1920	192B	Extend
+1930	193B	Extend
+1944	1945	STerm
+1946	194F	Numeric
+1950	196D	OLetter
+1970	1974	OLetter
+1980	19AB	OLetter
+19B0	19C9	OLetter
+19D0	19D9	Numeric
+1A00	1A16	OLetter
+1A17	1A1B	Extend
+1A20	1A54	OLetter
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AA7		OLetter
+1AA8	1AAB	STerm
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	OLetter
+1B34	1B44	Extend
+1B45	1B4B	OLetter
+1B50	1B59	Numeric
+1B5A	1B5B	STerm
+1B5E	1B5F	STerm
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	OLetter
+1BA1	1BAD	Extend
+1BAE	1BAF	OLetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	OLetter
+1BE6	1BF3	Extend
+1C00	1C23	OLetter
+1C24	1C37	Extend
+1C3B	1C3C	STerm
+1C40	1C49	Numeric
+1C4D	1C4F	OLetter
+1C50	1C59	Numeric
+1C5A	1C7D	OLetter
+1C7E	1C7F	STerm
+1C80	1C88	Lower
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	OLetter
+1CED		Extend
+1CEE	1CF1	OLetter
+1CF2	1CF4	Extend
+1CF5	1CF6	OLetter
+1CF7	1CF9	Extend
+1D00	1DBF	Lower
+1DC0	1DF9	Extend
+1DFB	1DFF	Extend
+1E00		Upper
+1E01		Lower
+1E02		Upper
+1E03		Lower
+1E04		Upper
+1E05		Lower
+1E06		Upper
+1E07		Lower
+1E08		Upper
+1E09		Lower
+1E0A		Upper
+1E0B		Lower
+1E0C		Upper
+1E0D		Lower
+1E0E		Upper
+1E0F		Lower
+1E10		Upper
+1E11		Lower
+1E12		Upper
+1E13		Lower
+1E14		Upper
+1E15		Lower
+1E16		Upper
+1E17		Lower
+1E18		Upper
+1E19		Lower
+1E1A		Upper
+1E1B		Lower
+1E1C		Upper
+1E1D		Lower
+1E1E		Upper
+1E1F		Lower
+1E20		Upper
+1E21		Lower
+1E22		Upper
+1E23		Lower
+1E24		Upper
+1E25		Lower
+1E26		Upper
+1E27		Lower
+1E28		Upper
+1E29		Lower
+1E2A		Upper
+1E2B		Lower
+1E2C		Upper
+1E2D		Lower
+1E2E		Upper
+1E2F		Lower
+1E30		Upper
+1E31		Lower
+1E32		Upper
+1E33		Lower
+1E34		Upper
+1E35		Lower
+1E36		Upper
+1E37		Lower
+1E38		Upper
+1E39		Lower
+1E3A		Upper
+1E3B		Lower
+1E3C		Upper
+1E3D		Lower
+1E3E		Upper
+1E3F		Lower
+1E40		Upper
+1E41		Lower
+1E42		Upper
+1E43		Lower
+1E44		Upper
+1E45		Lower
+1E46		Upper
+1E47		Lower
+1E48		Upper
+1E49		Lower
+1E4A		Upper
+1E4B		Lower
+1E4C		Upper
+1E4D		Lower
+1E4E		Upper
+1E4F		Lower
+1E50		Upper
+1E51		Lower
+1E52		Upper
+1E53		Lower
+1E54		Upper
+1E55		Lower
+1E56		Upper
+1E57		Lower
+1E58		Upper
+1E59		Lower
+1E5A		Upper
+1E5B		Lower
+1E5C		Upper
+1E5D		Lower
+1E5E		Upper
+1E5F		Lower
+1E60		Upper
+1E61		Lower
+1E62		Upper
+1E63		Lower
+1E64		Upper
+1E65		Lower
+1E66		Upper
+1E67		Lower
+1E68		Upper
+1E69		Lower
+1E6A		Upper
+1E6B		Lower
+1E6C		Upper
+1E6D		Lower
+1E6E		Upper
+1E6F		Lower
+1E70		Upper
+1E71		Lower
+1E72		Upper
+1E73		Lower
+1E74		Upper
+1E75		Lower
+1E76		Upper
+1E77		Lower
+1E78		Upper
+1E79		Lower
+1E7A		Upper
+1E7B		Lower
+1E7C		Upper
+1E7D		Lower
+1E7E		Upper
+1E7F		Lower
+1E80		Upper
+1E81		Lower
+1E82		Upper
+1E83		Lower
+1E84		Upper
+1E85		Lower
+1E86		Upper
+1E87		Lower
+1E88		Upper
+1E89		Lower
+1E8A		Upper
+1E8B		Lower
+1E8C		Upper
+1E8D		Lower
+1E8E		Upper
+1E8F		Lower
+1E90		Upper
+1E91		Lower
+1E92		Upper
+1E93		Lower
+1E94		Upper
+1E95	1E9D	Lower
+1E9E		Upper
+1E9F		Lower
+1EA0		Upper
+1EA1		Lower
+1EA2		Upper
+1EA3		Lower
+1EA4		Upper
+1EA5		Lower
+1EA6		Upper
+1EA7		Lower
+1EA8		Upper
+1EA9		Lower
+1EAA		Upper
+1EAB		Lower
+1EAC		Upper
+1EAD		Lower
+1EAE		Upper
+1EAF		Lower
+1EB0		Upper
+1EB1		Lower
+1EB2		Upper
+1EB3		Lower
+1EB4		Upper
+1EB5		Lower
+1EB6		Upper
+1EB7		Lower
+1EB8		Upper
+1EB9		Lower
+1EBA		Upper
+1EBB		Lower
+1EBC		Upper
+1EBD		Lower
+1EBE		Upper
+1EBF		Lower
+1EC0		Upper
+1EC1		Lower
+1EC2		Upper
+1EC3		Lower
+1EC4		Upper
+1EC5		Lower
+1EC6		Upper
+1EC7		Lower
+1EC8		Upper
+1EC9		Lower
+1ECA		Upper
+1ECB		Lower
+1ECC		Upper
+1ECD		Lower
+1ECE		Upper
+1ECF		Lower
+1ED0		Upper
+1ED1		Lower
+1ED2		Upper
+1ED3		Lower
+1ED4		Upper
+1ED5		Lower
+1ED6		Upper
+1ED7		Lower
+1ED8		Upper
+1ED9		Lower
+1EDA		Upper
+1EDB		Lower
+1EDC		Upper
+1EDD		Lower
+1EDE		Upper
+1EDF		Lower
+1EE0		Upper
+1EE1		Lower
+1EE2		Upper
+1EE3		Lower
+1EE4		Upper
+1EE5		Lower
+1EE6		Upper
+1EE7		Lower
+1EE8		Upper
+1EE9		Lower
+1EEA		Upper
+1EEB		Lower
+1EEC		Upper
+1EED		Lower
+1EEE		Upper
+1EEF		Lower
+1EF0		Upper
+1EF1		Lower
+1EF2		Upper
+1EF3		Lower
+1EF4		Upper
+1EF5		Lower
+1EF6		Upper
+1EF7		Lower
+1EF8		Upper
+1EF9		Lower
+1EFA		Upper
+1EFB		Lower
+1EFC		Upper
+1EFD		Lower
+1EFE		Upper
+1EFF	1F07	Lower
+1F08	1F0F	Upper
+1F10	1F15	Lower
+1F18	1F1D	Upper
+1F20	1F27	Lower
+1F28	1F2F	Upper
+1F30	1F37	Lower
+1F38	1F3F	Upper
+1F40	1F45	Lower
+1F48	1F4D	Upper
+1F50	1F57	Lower
+1F59		Upper
+1F5B		Upper
+1F5D		Upper
+1F5F		Upper
+1F60	1F67	Lower
+1F68	1F6F	Upper
+1F70	1F7D	Lower
+1F80	1F87	Lower
+1F88	1F8F	Upper
+1F90	1F97	Lower
+1F98	1F9F	Upper
+1FA0	1FA7	Lower
+1FA8	1FAF	Upper
+1FB0	1FB4	Lower
+1FB6	1FB7	Lower
+1FB8	1FBC	Upper
+1FBE		Lower
+1FC2	1FC4	Lower
+1FC6	1FC7	Lower
+1FC8	1FCC	Upper
+1FD0	1FD3	Lower
+1FD6	1FD7	Lower
+1FD8	1FDB	Upper
+1FE0	1FE7	Lower
+1FE8	1FEC	Upper
+1FF2	1FF4	Lower
+1FF6	1FF7	Lower
+1FF8	1FFC	Upper
+2000	200A	Sp
+200B		Format
+200C	200D	Extend
+200E	200F	Format
+2013	2014	SContinue
+2018	201F	Close
+2024		ATerm
+2028	2029	Sep
+202A	202E	Format
+202F		Sp
+2039	203A	Close
+203C	203D	STerm
+2045	2046	Close
+2047	2049	STerm
+205F		Sp
+2060	2064	Format
+2066	206F	Format
+2071		Lower
+207D	207E	Close
+207F		Lower
+208D	208E	Close
+2090	209C	Lower
+20D0	20F0	Extend
+2102		Upper
+2107		Upper
+210A		Lower
+210B	210D	Upper
+210E	210F	Lower
+2110	2112	Upper
+2113		Lower
+2115		Upper
+2119	211D	Upper
+2124		Upper
+2126		Upper
+2128		Upper
+212A	212D	Upper
+212F		Lower
+2130	2133	Upper
+2134		Lower
+2135	2138	OLetter
+2139		Lower
+213C	213D	Lower
+213E	213F	Upper
+2145		Upper
+2146	2149	Lower
+214E		Lower
+2160	216F	Upper
+2170	217F	Lower
+2180	2182	OLetter
+2183		Upper
+2184		Lower
+2185	2188	OLetter
+2308	230B	Close
+2329	232A	Close
+24B6	24CF	Upper
+24D0	24E9	Lower
+275B	2760	Close
+2768	2775	Close
+27C5	27C6	Close
+27E6	27EF	Close
+2983	2998	Close
+29D8	29DB	Close
+29FC	29FD	Close
+2C00	2C2E	Upper
+2C30	2C5E	Lower
+2C60		Upper
+2C61		Lower
+2C62	2C64	Upper
+2C65	2C66	Lower
+2C67		Upper
+2C68		Lower
+2C69		Upper
+2C6A		Lower
+2C6B		Upper
+2C6C		Lower
+2C6D	2C70	Upper
+2C71		Lower
+2C72		Upper
+2C73	2C74	Lower
+2C75		Upper
+2C76	2C7D	Lower
+2C7E	2C80	Upper
+2C81		Lower
+2C82		Upper
+2C83		Lower
+2C84		Upper
+2C85		Lower
+2C86		Upper
+2C87		Lower
+2C88		Upper
+2C89		Lower
+2C8A		Upper
+2C8B		Lower
+2C8C		Upper
+2C8D		Lower
+2C8E		Upper
+2C8F		Lower
+2C90		Upper
+2C91		Lower
+2C92		Upper
+2C93		Lower
+2C94		Upper
+2C95		Lower
+2C96		Upper
+2C97		Lower
+2C98		Upper
+2C99		Lower
+2C9A		Upper
+2C9B		Lower
+2C9C		Upper
+2C9D		Lower
+2C9E		Upper
+2C9F		Lower
+2CA0		Upper
+2CA1		Lower
+2CA2		Upper
+2CA3		Lower
+2CA4		Upper
+2CA5		Lower
+2CA6		Upper
+2CA7		Lower
+2CA8		Upper
+2CA9		Lower
+2CAA		Upper
+2CAB		Lower
+2CAC		Upper
+2CAD		Lower
+2CAE		Upper
+2CAF		Lower
+2CB0		Upper
+2CB1		Lower
+2CB2		Upper
+2CB3		Lower
+2CB4		Upper
+2CB5		Lower
+2CB6		Upper
+2CB7		Lower
+2CB8		Upper
+2CB9		Lower
+2CBA		Upper
+2CBB		Lower
+2CBC		Upper
+2CBD		Lower
+2CBE		Upper
+2CBF		Lower
+2CC0		Upper
+2CC1		Lower
+2CC2		Upper
+2CC3		Lower
+2CC4		Upper
+2CC5		Lower
+2CC6		Upper
+2CC7		Lower
+2CC8		Upper
+2CC9		Lower
+2CCA		Upper
+2CCB		Lower
+2CCC		Upper
+2CCD		Lower
+2CCE		Upper
+2CCF		Lower
+2CD0		Upper
+2CD1		Lower
+2CD2		Upper
+2CD3		Lower
+2CD4		Upper
+2CD5		Lower
+2CD6		Upper
+2CD7		Lower
+2CD8		Upper
+2CD9		Lower
+2CDA		Upper
+2CDB		Lower
+2CDC		Upper
+2CDD		Lower
+2CDE		Upper
+2CDF		Lower
+2CE0		Upper
+2CE1		Lower
+2CE2		Upper
+2CE3	2CE4	Lower
+2CEB		Upper
+2CEC		Lower
+2CED		Upper
+2CEE		Lower
+2CEF	2CF1	Extend
+2CF2		Upper
+2CF3		Lower
+2D00	2D25	Lower
+2D27		Lower
+2D2D		Lower
+2D30	2D67	OLetter
+2D6F		OLetter
+2D7F		Extend
+2D80	2D96	OLetter
+2DA0	2DA6	OLetter
+2DA8	2DAE	OLetter
+2DB0	2DB6	OLetter
+2DB8	2DBE	OLetter
+2DC0	2DC6	OLetter
+2DC8	2DCE	OLetter
+2DD0	2DD6	OLetter
+2DD8	2DDE	OLetter
+2DE0	2DFF	Extend
+2E00	2E0D	Close
+2E1C	2E1D	Close
+2E20	2E29	Close
+2E2E		STerm
+2E2F		OLetter
+2E3C		STerm
+2E42		Close
+3000		Sp
+3001		SContinue
+3002		STerm
+3005	3007	OLetter
+3008	3011	Close
+3014	301B	Close
+301D	301F	Close
+3021	3029	OLetter
+302A	302F	Extend
+3031	3035	OLetter
+3038	303C	OLetter
+3041	3096	OLetter
+3099	309A	Extend
+309D	309F	OLetter
+30A1	30FA	OLetter
+30FC	30FF	OLetter
+3105	312E	OLetter
+3131	318E	OLetter
+31A0	31BA	OLetter
+31F0	31FF	OLetter
+3400	4DB5	OLetter
+4E00	9FEA	OLetter
+A000	A48C	OLetter
+A4D0	A4FD	OLetter
+A4FF		STerm
+A500	A60C	OLetter
+A60E	A60F	STerm
+A610	A61F	OLetter
+A620	A629	Numeric
+A62A	A62B	OLetter
+A640		Upper
+A641		Lower
+A642		Upper
+A643		Lower
+A644		Upper
+A645		Lower
+A646		Upper
+A647		Lower
+A648		Upper
+A649		Lower
+A64A		Upper
+A64B		Lower
+A64C		Upper
+A64D		Lower
+A64E		Upper
+A64F		Lower
+A650		Upper
+A651		Lower
+A652		Upper
+A653		Lower
+A654		Upper
+A655		Lower
+A656		Upper
+A657		Lower
+A658		Upper
+A659		Lower
+A65A		Upper
+A65B		Lower
+A65C		Upper
+A65D		Lower
+A65E		Upper
+A65F		Lower
+A660		Upper
+A661		Lower
+A662		Upper
+A663		Lower
+A664		Upper
+A665		Lower
+A666		Upper
+A667		Lower
+A668		Upper
+A669		Lower
+A66A		Upper
+A66B		Lower
+A66C		Upper
+A66D		Lower
+A66E		OLetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F		OLetter
+A680		Upper
+A681		Lower
+A682		Upper
+A683		Lower
+A684		Upper
+A685		Lower
+A686		Upper
+A687		Lower
+A688		Upper
+A689		Lower
+A68A		Upper
+A68B		Lower
+A68C		Upper
+A68D		Lower
+A68E		Upper
+A68F		Lower
+A690		Upper
+A691		Lower
+A692		Upper
+A693		Lower
+A694		Upper
+A695		Lower
+A696		Upper
+A697		Lower
+A698		Upper
+A699		Lower
+A69A		Upper
+A69B	A69D	Lower
+A69E	A69F	Extend
+A6A0	A6EF	OLetter
+A6F0	A6F1	Extend
+A6F3		STerm
+A6F7		STerm
+A717	A71F	OLetter
+A722		Upper
+A723		Lower
+A724		Upper
+A725		Lower
+A726		Upper
+A727		Lower
+A728		Upper
+A729		Lower
+A72A		Upper
+A72B		Lower
+A72C		Upper
+A72D		Lower
+A72E		Upper
+A72F	A731	Lower
+A732		Upper
+A733		Lower
+A734		Upper
+A735		Lower
+A736		Upper
+A737		Lower
+A738		Upper
+A739		Lower
+A73A		Upper
+A73B		Lower
+A73C		Upper
+A73D		Lower
+A73E		Upper
+A73F		Lower
+A740		Upper
+A741		Lower
+A742		Upper
+A743		Lower
+A744		Upper
+A745		Lower
+A746		Upper
+A747		Lower
+A748		Upper
+A749		Lower
+A74A		Upper
+A74B		Lower
+A74C		Upper
+A74D		Lower
+A74E		Upper
+A74F		Lower
+A750		Upper
+A751		Lower
+A752		Upper
+A753		Lower
+A754		Upper
+A755		Lower
+A756		Upper
+A757		Lower
+A758		Upper
+A759		Lower
+A75A		Upper
+A75B		Lower
+A75C		Upper
+A75D		Lower
+A75E		Upper
+A75F		Lower
+A760		Upper
+A761		Lower
+A762		Upper
+A763		Lower
+A764		Upper
+A765		Lower
+A766		Upper
+A767		Lower
+A768		Upper
+A769		Lower
+A76A		Upper
+A76B		Lower
+A76C		Upper
+A76D		Lower
+A76E		Upper
+A76F	A778	Lower
+A779		Upper
+A77A		Lower
+A77B		Upper
+A77C		Lower
+A77D	A77E	Upper
+A77F		Lower
+A780		Upper
+A781		Lower
+A782		Upper
+A783		Lower
+A784		Upper
+A785		Lower
+A786		Upper
+A787		Lower
+A788		OLetter
+A78B		Upper
+A78C		Lower
+A78D		Upper
+A78E		Lower
+A78F		OLetter
+A790		Upper
+A791		Lower
+A792		Upper
+A793	A795	Lower
+A796		Upper
+A797		Lower
+A798		Upper
+A799		Lower
+A79A		Upper
+A79B		Lower
+A79C		Upper
+A79D		Lower
+A79E		Upper
+A79F		Lower
+A7A0		Upper
+A7A1		Lower
+A7A2		Upper
+A7A3		Lower
+A7A4		Upper
+A7A5		Lower
+A7A6		Upper
+A7A7		Lower
+A7A8		Upper
+A7A9		Lower
+A7AA	A7AE	Upper
+A7B0	A7B4	Upper
+A7B5		Lower
+A7B6		Upper
+A7B7		Lower
+A7F7		OLetter
+A7F8	A7FA	Lower
+A7FB	A801	OLetter
+A802		Extend
+A803	A805	OLetter
+A806		Extend
+A807	A80A	OLetter
+A80B		Extend
+A80C	A822	OLetter
+A823	A827	Extend
+A840	A873	OLetter
+A876	A877	STerm
+A880	A881	Extend
+A882	A8B3	OLetter
+A8B4	A8C5	Extend
+A8CE	A8CF	STerm
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	OLetter
+A8FB		OLetter
+A8FD		OLetter
+A900	A909	Numeric
+A90A	A925	OLetter
+A926	A92D	Extend
+A92F		STerm
+A930	A946	OLetter
+A947	A953	Extend
+A960	A97C	OLetter
+A980	A983	Extend
+A984	A9B2	OLetter
+A9B3	A9C0	Extend
+A9C8	A9C9	STerm
+A9CF		OLetter
+A9D0	A9D9	Numeric
+A9E0	A9E4	OLetter
+A9E5		Extend
+A9E6	A9EF	OLetter
+A9F0	A9F9	Numeric
+A9FA	A9FE	OLetter
+AA00	AA28	OLetter
+AA29	AA36	Extend
+AA40	AA42	OLetter
+AA43		Extend
+AA44	AA4B	OLetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA5D	AA5F	STerm
+AA60	AA76	OLetter
+AA7A		OLetter
+AA7B	AA7D	Extend
+AA7E	AAAF	OLetter
+AAB0		Extend
+AAB1		OLetter
+AAB2	AAB4	Extend
+AAB5	AAB6	OLetter
+AAB7	AAB8	Extend
+AAB9	AABD	OLetter
+AABE	AABF	Extend
+AAC0		OLetter
+AAC1		Extend
+AAC2		OLetter
+AADB	AADD	OLetter
+AAE0	AAEA	OLetter
+AAEB	AAEF	Extend
+AAF0	AAF1	STerm
+AAF2	AAF4	OLetter
+AAF5	AAF6	Extend
+AB01	AB06	OLetter
+AB09	AB0E	OLetter
+AB11	AB16	OLetter
+AB20	AB26	OLetter
+AB28	AB2E	OLetter
+AB30	AB5A	Lower
+AB5C	AB65	Lower
+AB70	ABBF	Lower
+ABC0	ABE2	OLetter
+ABE3	ABEA	Extend
+ABEB		STerm
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	OLetter
+D7B0	D7C6	OLetter
+D7CB	D7FB	OLetter
+F900	FA6D	OLetter
+FA70	FAD9	OLetter
+FB00	FB06	Lower
+FB13	FB17	Lower
+FB1D		OLetter
+FB1E		Extend
+FB1F	FB28	OLetter
+FB2A	FB36	OLetter
+FB38	FB3C	OLetter
+FB3E		OLetter
+FB40	FB41	OLetter
+FB43	FB44	OLetter
+FB46	FBB1	OLetter
+FBD3	FD3D	OLetter
+FD3E	FD3F	Close
+FD50	FD8F	OLetter
+FD92	FDC7	OLetter
+FDF0	FDFB	OLetter
+FE00	FE0F	Extend
+FE10	FE11	SContinue
+FE13		SContinue
+FE17	FE18	Close
+FE20	FE2F	Extend
+FE31	FE32	SContinue
+FE35	FE44	Close
+FE47	FE48	Close
+FE50	FE51	SContinue
+FE52		ATerm
+FE55		SContinue
+FE56	FE57	STerm
+FE58		SContinue
+FE59	FE5E	Close
+FE63		SContinue
+FE70	FE74	OLetter
+FE76	FEFC	OLetter
+FEFF		Format
+FF01		STerm
+FF08	FF09	Close
+FF0C	FF0D	SContinue
+FF0E		ATerm
+FF1A		SContinue
+FF1F		STerm
+FF21	FF3A	Upper
+FF3B		Close
+FF3D		Close
+FF41	FF5A	Lower
+FF5B		Close
+FF5D		Close
+FF5F	FF60	Close
+FF61		STerm
+FF62	FF63	Close
+FF64		SContinue
+FF66	FF9D	OLetter
+FF9E	FF9F	Extend
+FFA0	FFBE	OLetter
+FFC2	FFC7	OLetter
+FFCA	FFCF	OLetter
+FFD2	FFD7	OLetter
+FFDA	FFDC	OLetter
+FFF9	FFFB	Format
+10000	1000B	OLetter
+1000D	10026	OLetter
+10028	1003A	OLetter
+1003C	1003D	OLetter
+1003F	1004D	OLetter
+10050	1005D	OLetter
+10080	100FA	OLetter
+10140	10174	OLetter
+101FD		Extend
+10280	1029C	OLetter
+102A0	102D0	OLetter
+102E0		Extend
+10300	1031F	OLetter
+1032D	1034A	OLetter
+10350	10375	OLetter
+10376	1037A	Extend
+10380	1039D	OLetter
+103A0	103C3	OLetter
+103C8	103CF	OLetter
+103D1	103D5	OLetter
+10400	10427	Upper
+10428	1044F	Lower
+10450	1049D	OLetter
+104A0	104A9	Numeric
+104B0	104D3	Upper
+104D8	104FB	Lower
+10500	10527	OLetter
+10530	10563	OLetter
+10600	10736	OLetter
+10740	10755	OLetter
+10760	10767	OLetter
+10800	10805	OLetter
+10808		OLetter
+1080A	10835	OLetter
+10837	10838	OLetter
+1083C		OLetter
+1083F	10855	OLetter
+10860	10876	OLetter
+10880	1089E	OLetter
+108E0	108F2	OLetter
+108F4	108F5	OLetter
+10900	10915	OLetter
+10920	10939	OLetter
+10980	109B7	OLetter
+109BE	109BF	OLetter
+10A00		OLetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	OLetter
+10A15	10A17	OLetter
+10A19	10A33	OLetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A56	10A57	STerm
+10A60	10A7C	OLetter
+10A80	10A9C	OLetter
+10AC0	10AC7	OLetter
+10AC9	10AE4	OLetter
+10AE5	10AE6	Extend
+10B00	10B35	OLetter
+10B40	10B55	OLetter
+10B60	10B72	OLetter
+10B80	10B91	OLetter
+10C00	10C48	OLetter
+10C80	10CB2	Upper
+10CC0	10CF2	Lower
+11000	11002	Extend
+11003	11037	OLetter
+11038	11046	Extend
+11047	11048	STerm
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	OLetter
+110B0	110BA	Extend
+110BD		Format
+110BE	110C1	STerm
+110D0	110E8	OLetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	OLetter
+11127	11134	Extend
+11136	1113F	Numeric
+11141	11143	STerm
+11150	11172	OLetter
+11173		Extend
+11176		OLetter
+11180	11182	Extend
+11183	111B2	OLetter
+111B3	111C0	Extend
+111C1	111C4	OLetter
+111C5	111C6	STerm
+111CA	111CC	Extend
+111CD		STerm
+111D0	111D9	Numeric
+111DA		OLetter
+111DC		OLetter
+111DE	111DF	STerm
+11200	11211	OLetter
+11213	1122B	OLetter
+1122C	11237	Extend
+11238	11239	STerm
+1123B	1123C	STerm
+1123E		Extend
+11280	11286	OLetter
+11288		OLetter
+1128A	1128D	OLetter
+1128F	1129D	OLetter
+1129F	112A8	OLetter
+112A9		STerm
+112B0	112DE	OLetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	OLetter
+1130F	11310	OLetter
+11313	11328	OLetter
+1132A	11330	OLetter
+11332	11333	OLetter
+11335	11339	OLetter
+1133C		Extend
+1133D		OLetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		OLetter
+11357		Extend
+1135D	11361	OLetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11400	11434	OLetter
+11435	11446	Extend
+11447	1144A	OLetter
+1144B	1144C	STerm
+11450	11459	Numeric
+11480	114AF	OLetter
+114B0	114C3	Extend
+114C4	114C5	OLetter
+114C7		OLetter
+114D0	114D9	Numeric
+11580	115AE	OLetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115C2	115C3	STerm
+115C9	115D7	STerm
+115D8	115DB	OLetter
+115DC	115DD	Extend
+11600	1162F	OLetter
+11630	11640	Extend
+11641	11642	STerm
+11644		OLetter
+11650	11659	Numeric
+11680	116AA	OLetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+11700	11719	OLetter
+1171D	1172B	Extend
+11730	11739	Numeric
+1173C	1173E	STerm
+118A0	118BF	Upper
+118C0	118DF	Lower
+118E0	118E9	Numeric
+118FF		OLetter
+11A00		OLetter
+11A01	11A0A	Extend
+11A0B	11A32	OLetter
+11A33	11A39	Extend
+11A3A		OLetter
+11A3B	11A3E	Extend
+11A42	11A43	STerm
+11A47		Extend
+11A50		OLetter
+11A51	11A5B	Extend
+11A5C	11A83	OLetter
+11A86	11A89	OLetter
+11A8A	11A99	Extend
+11A9B	11A9C	STerm
+11AC0	11AF8	OLetter
+11C00	11C08	OLetter
+11C0A	11C2E	OLetter
+11C2F	11C36	Extend
+11C38	11C3F	Extend
+11C40		OLetter
+11C41	11C42	STerm
+11C50	11C59	Numeric
+11C72	11C8F	OLetter
+11C92	11CA7	Extend
+11CA9	11CB6	Extend
+11D00	11D06	OLetter
+11D08	11D09	OLetter
+11D0B	11D30	OLetter
+11D31	11D36	Extend
+11D3A		Extend
+11D3C	11D3D	Extend
+11D3F	11D45	Extend
+11D46		OLetter
+11D47		Extend
+11D50	11D59	Numeric
+12000	12399	OLetter
+12400	1246E	OLetter
+12480	12543	OLetter
+13000	1342E	OLetter
+14400	14646	OLetter
+16800	16A38	OLetter
+16A40	16A5E	OLetter
+16A60	16A69	Numeric
+16A6E	16A6F	STerm
+16AD0	16AED	OLetter
+16AF0	16AF4	Extend
+16AF5		STerm
+16B00	16B2F	OLetter
+16B30	16B36	Extend
+16B37	16B38	STerm
+16B40	16B43	OLetter
+16B44		STerm
+16B50	16B59	Numeric
+16B63	16B77	OLetter
+16B7D	16B8F	OLetter
+16F00	16F44	OLetter
+16F50		OLetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	OLetter
+16FE0	16FE1	OLetter
+17000	187EC	OLetter
+18800	18AF2	OLetter
+1B000	1B11E	OLetter
+1B170	1B2FB	OLetter
+1BC00	1BC6A	OLetter
+1BC70	1BC7C	OLetter
+1BC80	1BC88	OLetter
+1BC90	1BC99	OLetter
+1BC9D	1BC9E	Extend
+1BC9F		STerm
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D419	Upper
+1D41A	1D433	Lower
+1D434	1D44D	Upper
+1D44E	1D454	Lower
+1D456	1D467	Lower
+1D468	1D481	Upper
+1D482	1D49B	Lower
+1D49C		Upper
+1D49E	1D49F	Upper
+1D4A2		Upper
+1D4A5	1D4A6	Upper
+1D4A9	1D4AC	Upper
+1D4AE	1D4B5	Upper
+1D4B6	1D4B9	Lower
+1D4BB		Lower
+1D4BD	1D4C3	Lower
+1D4C5	1D4CF	Lower
+1D4D0	1D4E9	Upper
+1D4EA	1D503	Lower
+1D504	1D505	Upper
+1D507	1D50A	Upper
+1D50D	1D514	Upper
+1D516	1D51C	Upper
+1D51E	1D537	Lower
+1D538	1D539	Upper
+1D53B	1D53E	Upper
+1D540	1D544	Upper
+1D546		Upper
+1D54A	1D550	Upper
+1D552	1D56B	Lower
+1D56C	1D585	Upper
+1D586	1D59F	Lower
+1D5A0	1D5B9	Upper
+1D5BA	1D5D3	Lower
+1D5D4	1D5ED	Upper
+1D5EE	1D607	Lower
+1D608	1D621	Upper
+1D622	1D63B	Lower
+1D63C	1D655	Upper
+1D656	1D66F	Lower
+1D670	1D689	Upper
+1D68A	1D6A5	Lower
+1D6A8	1D6C0	Upper
+1D6C2	1D6DA	Lower
+1D6DC	1D6E1	Lower
+1D6E2	1D6FA	Upper
+1D6FC	1D714	Lower
+1D716	1D71B	Lower
+1D71C	1D734	Upper
+1D736	1D74E	Lower
+1D750	1D755	Lower
+1D756	1D76E	Upper
+1D770	1D788	Lower
+1D78A	1D78F	Lower
+1D790	1D7A8	Upper
+1D7AA	1D7C2	Lower
+1D7C4	1D7C9	Lower
+1D7CA		Upper
+1D7CB		Lower
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA88		STerm
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E000	1E006	Extend
+1E008	1E018	Extend
+1E01B	1E021	Extend
+1E023	1E024	Extend
+1E026	1E02A	Extend
+1E800	1E8C4	OLetter
+1E8D0	1E8D6	Extend
+1E900	1E921	Upper
+1E922	1E943	Lower
+1E944	1E94A	Extend
+1E950	1E959	Numeric
+1EE00	1EE03	OLetter
+1EE05	1EE1F	OLetter
+1EE21	1EE22	OLetter
+1EE24		OLetter
+1EE27		OLetter
+1EE29	1EE32	OLetter
+1EE34	1EE37	OLetter
+1EE39		OLetter
+1EE3B		OLetter
+1EE42		OLetter
+1EE47		OLetter
+1EE49		OLetter
+1EE4B		OLetter
+1EE4D	1EE4F	OLetter
+1EE51	1EE52	OLetter
+1EE54		OLetter
+1EE57		OLetter
+1EE59		OLetter
+1EE5B		OLetter
+1EE5D		OLetter
+1EE5F		OLetter
+1EE61	1EE62	OLetter
+1EE64		OLetter
+1EE67	1EE6A	OLetter
+1EE6C	1EE72	OLetter
+1EE74	1EE77	OLetter
+1EE79	1EE7C	OLetter
+1EE7E		OLetter
+1EE80	1EE89	OLetter
+1EE8B	1EE9B	OLetter
+1EEA1	1EEA3	OLetter
+1EEA5	1EEA9	OLetter
+1EEAB	1EEBB	OLetter
+1F130	1F149	Upper
+1F150	1F169	Upper
+1F170	1F189	Upper
+1F676	1F678	Close
+20000	2A6D6	OLetter
+2A700	2B734	OLetter
+2B740	2B81D	OLetter
+2B820	2CEA1	OLetter
+2CEB0	2EBE0	OLetter
+2F800	2FA1D	OLetter
+E0001		Format
+E0020	E007F	Extend
+E0100	E01EF	Extend
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Uppercase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToUpper'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToUpper'}{'specials_name'} = 'utf8::ToSpecUpper'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToUpper'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecUpper = (
+"\xC3\x9F" => "\x{0053}\x{0053}",             # U+00DF => 0053 0053
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0552}",             # U+0587 => 0535 0552
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\x80" => "\x{1F08}\x{0399}",         # U+1F80 => 1F08 0399
+"\xE1\xBE\x81" => "\x{1F09}\x{0399}",         # U+1F81 => 1F09 0399
+"\xE1\xBE\x82" => "\x{1F0A}\x{0399}",         # U+1F82 => 1F0A 0399
+"\xE1\xBE\x83" => "\x{1F0B}\x{0399}",         # U+1F83 => 1F0B 0399
+"\xE1\xBE\x84" => "\x{1F0C}\x{0399}",         # U+1F84 => 1F0C 0399
+"\xE1\xBE\x85" => "\x{1F0D}\x{0399}",         # U+1F85 => 1F0D 0399
+"\xE1\xBE\x86" => "\x{1F0E}\x{0399}",         # U+1F86 => 1F0E 0399
+"\xE1\xBE\x87" => "\x{1F0F}\x{0399}",         # U+1F87 => 1F0F 0399
+"\xE1\xBE\x88" => "\x{1F08}\x{0399}",         # U+1F88 => 1F08 0399
+"\xE1\xBE\x89" => "\x{1F09}\x{0399}",         # U+1F89 => 1F09 0399
+"\xE1\xBE\x8A" => "\x{1F0A}\x{0399}",         # U+1F8A => 1F0A 0399
+"\xE1\xBE\x8B" => "\x{1F0B}\x{0399}",         # U+1F8B => 1F0B 0399
+"\xE1\xBE\x8C" => "\x{1F0C}\x{0399}",         # U+1F8C => 1F0C 0399
+"\xE1\xBE\x8D" => "\x{1F0D}\x{0399}",         # U+1F8D => 1F0D 0399
+"\xE1\xBE\x8E" => "\x{1F0E}\x{0399}",         # U+1F8E => 1F0E 0399
+"\xE1\xBE\x8F" => "\x{1F0F}\x{0399}",         # U+1F8F => 1F0F 0399
+"\xE1\xBE\x90" => "\x{1F28}\x{0399}",         # U+1F90 => 1F28 0399
+"\xE1\xBE\x91" => "\x{1F29}\x{0399}",         # U+1F91 => 1F29 0399
+"\xE1\xBE\x92" => "\x{1F2A}\x{0399}",         # U+1F92 => 1F2A 0399
+"\xE1\xBE\x93" => "\x{1F2B}\x{0399}",         # U+1F93 => 1F2B 0399
+"\xE1\xBE\x94" => "\x{1F2C}\x{0399}",         # U+1F94 => 1F2C 0399
+"\xE1\xBE\x95" => "\x{1F2D}\x{0399}",         # U+1F95 => 1F2D 0399
+"\xE1\xBE\x96" => "\x{1F2E}\x{0399}",         # U+1F96 => 1F2E 0399
+"\xE1\xBE\x97" => "\x{1F2F}\x{0399}",         # U+1F97 => 1F2F 0399
+"\xE1\xBE\x98" => "\x{1F28}\x{0399}",         # U+1F98 => 1F28 0399
+"\xE1\xBE\x99" => "\x{1F29}\x{0399}",         # U+1F99 => 1F29 0399
+"\xE1\xBE\x9A" => "\x{1F2A}\x{0399}",         # U+1F9A => 1F2A 0399
+"\xE1\xBE\x9B" => "\x{1F2B}\x{0399}",         # U+1F9B => 1F2B 0399
+"\xE1\xBE\x9C" => "\x{1F2C}\x{0399}",         # U+1F9C => 1F2C 0399
+"\xE1\xBE\x9D" => "\x{1F2D}\x{0399}",         # U+1F9D => 1F2D 0399
+"\xE1\xBE\x9E" => "\x{1F2E}\x{0399}",         # U+1F9E => 1F2E 0399
+"\xE1\xBE\x9F" => "\x{1F2F}\x{0399}",         # U+1F9F => 1F2F 0399
+"\xE1\xBE\xA0" => "\x{1F68}\x{0399}",         # U+1FA0 => 1F68 0399
+"\xE1\xBE\xA1" => "\x{1F69}\x{0399}",         # U+1FA1 => 1F69 0399
+"\xE1\xBE\xA2" => "\x{1F6A}\x{0399}",         # U+1FA2 => 1F6A 0399
+"\xE1\xBE\xA3" => "\x{1F6B}\x{0399}",         # U+1FA3 => 1F6B 0399
+"\xE1\xBE\xA4" => "\x{1F6C}\x{0399}",         # U+1FA4 => 1F6C 0399
+"\xE1\xBE\xA5" => "\x{1F6D}\x{0399}",         # U+1FA5 => 1F6D 0399
+"\xE1\xBE\xA6" => "\x{1F6E}\x{0399}",         # U+1FA6 => 1F6E 0399
+"\xE1\xBE\xA7" => "\x{1F6F}\x{0399}",         # U+1FA7 => 1F6F 0399
+"\xE1\xBE\xA8" => "\x{1F68}\x{0399}",         # U+1FA8 => 1F68 0399
+"\xE1\xBE\xA9" => "\x{1F69}\x{0399}",         # U+1FA9 => 1F69 0399
+"\xE1\xBE\xAA" => "\x{1F6A}\x{0399}",         # U+1FAA => 1F6A 0399
+"\xE1\xBE\xAB" => "\x{1F6B}\x{0399}",         # U+1FAB => 1F6B 0399
+"\xE1\xBE\xAC" => "\x{1F6C}\x{0399}",         # U+1FAC => 1F6C 0399
+"\xE1\xBE\xAD" => "\x{1F6D}\x{0399}",         # U+1FAD => 1F6D 0399
+"\xE1\xBE\xAE" => "\x{1F6E}\x{0399}",         # U+1FAE => 1F6E 0399
+"\xE1\xBE\xAF" => "\x{1F6F}\x{0399}",         # U+1FAF => 1F6F 0399
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0399}",         # U+1FB2 => 1FBA 0399
+"\xE1\xBE\xB3" => "\x{0391}\x{0399}",         # U+1FB3 => 0391 0399
+"\xE1\xBE\xB4" => "\x{0386}\x{0399}",         # U+1FB4 => 0386 0399
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399
+"\xE1\xBE\xBC" => "\x{0391}\x{0399}",         # U+1FBC => 0391 0399
+"\xE1\xBF\x82" => "\x{1FCA}\x{0399}",         # U+1FC2 => 1FCA 0399
+"\xE1\xBF\x83" => "\x{0397}\x{0399}",         # U+1FC3 => 0397 0399
+"\xE1\xBF\x84" => "\x{0389}\x{0399}",         # U+1FC4 => 0389 0399
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399
+"\xE1\xBF\x8C" => "\x{0397}\x{0399}",         # U+1FCC => 0397 0399
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0399}",         # U+1FF2 => 1FFA 0399
+"\xE1\xBF\xB3" => "\x{03A9}\x{0399}",         # U+1FF3 => 03A9 0399
+"\xE1\xBF\xB4" => "\x{038F}\x{0399}",         # U+1FF4 => 038F 0399
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399
+"\xE1\xBF\xBC" => "\x{03A9}\x{0399}",         # U+1FFC => 03A9 0399
+"\xEF\xAC\x80" => "\x{0046}\x{0046}",         # U+FB00 => 0046 0046
+"\xEF\xAC\x81" => "\x{0046}\x{0049}",         # U+FB01 => 0046 0049
+"\xEF\xAC\x82" => "\x{0046}\x{004C}",         # U+FB02 => 0046 004C
+"\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049
+"\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C
+"\xEF\xAC\x85" => "\x{0053}\x{0054}",         # U+FB05 => 0053 0054
+"\xEF\xAC\x86" => "\x{0053}\x{0054}",         # U+FB06 => 0053 0054
+"\xEF\xAC\x93" => "\x{0544}\x{0546}",         # U+FB13 => 0544 0546
+"\xEF\xAC\x94" => "\x{0544}\x{0535}",         # U+FB14 => 0544 0535
+"\xEF\xAC\x95" => "\x{0544}\x{053B}",         # U+FB15 => 0544 053B
+"\xEF\xAC\x96" => "\x{054E}\x{0546}",         # U+FB16 => 054E 0546
+"\xEF\xAC\x97" => "\x{0544}\x{053D}",         # U+FB17 => 0544 053D
+);
+
+return <<'END';
+0061		0041
+0062		0042
+0063		0043
+0064		0044
+0065		0045
+0066		0046
+0067		0047
+0068		0048
+0069		0049
+006A		004A
+006B		004B
+006C		004C
+006D		004D
+006E		004E
+006F		004F
+0070		0050
+0071		0051
+0072		0052
+0073		0053
+0074		0054
+0075		0055
+0076		0056
+0077		0057
+0078		0058
+0079		0059
+007A		005A
+00B5		039C
+00E0		00C0
+00E1		00C1
+00E2		00C2
+00E3		00C3
+00E4		00C4
+00E5		00C5
+00E6		00C6
+00E7		00C7
+00E8		00C8
+00E9		00C9
+00EA		00CA
+00EB		00CB
+00EC		00CC
+00ED		00CD
+00EE		00CE
+00EF		00CF
+00F0		00D0
+00F1		00D1
+00F2		00D2
+00F3		00D3
+00F4		00D4
+00F5		00D5
+00F6		00D6
+00F8		00D8
+00F9		00D9
+00FA		00DA
+00FB		00DB
+00FC		00DC
+00FD		00DD
+00FE		00DE
+00FF		0178
+0101		0100
+0103		0102
+0105		0104
+0107		0106
+0109		0108
+010B		010A
+010D		010C
+010F		010E
+0111		0110
+0113		0112
+0115		0114
+0117		0116
+0119		0118
+011B		011A
+011D		011C
+011F		011E
+0121		0120
+0123		0122
+0125		0124
+0127		0126
+0129		0128
+012B		012A
+012D		012C
+012F		012E
+0131		0049
+0133		0132
+0135		0134
+0137		0136
+013A		0139
+013C		013B
+013E		013D
+0140		013F
+0142		0141
+0144		0143
+0146		0145
+0148		0147
+014B		014A
+014D		014C
+014F		014E
+0151		0150
+0153		0152
+0155		0154
+0157		0156
+0159		0158
+015B		015A
+015D		015C
+015F		015E
+0161		0160
+0163		0162
+0165		0164
+0167		0166
+0169		0168
+016B		016A
+016D		016C
+016F		016E
+0171		0170
+0173		0172
+0175		0174
+0177		0176
+017A		0179
+017C		017B
+017E		017D
+017F		0053
+0180		0243
+0183		0182
+0185		0184
+0188		0187
+018C		018B
+0192		0191
+0195		01F6
+0199		0198
+019A		023D
+019E		0220
+01A1		01A0
+01A3		01A2
+01A5		01A4
+01A8		01A7
+01AD		01AC
+01B0		01AF
+01B4		01B3
+01B6		01B5
+01B9		01B8
+01BD		01BC
+01BF		01F7
+01C5		01C4
+01C6		01C4
+01C8		01C7
+01C9		01C7
+01CB		01CA
+01CC		01CA
+01CE		01CD
+01D0		01CF
+01D2		01D1
+01D4		01D3
+01D6		01D5
+01D8		01D7
+01DA		01D9
+01DC		01DB
+01DD		018E
+01DF		01DE
+01E1		01E0
+01E3		01E2
+01E5		01E4
+01E7		01E6
+01E9		01E8
+01EB		01EA
+01ED		01EC
+01EF		01EE
+01F2		01F1
+01F3		01F1
+01F5		01F4
+01F9		01F8
+01FB		01FA
+01FD		01FC
+01FF		01FE
+0201		0200
+0203		0202
+0205		0204
+0207		0206
+0209		0208
+020B		020A
+020D		020C
+020F		020E
+0211		0210
+0213		0212
+0215		0214
+0217		0216
+0219		0218
+021B		021A
+021D		021C
+021F		021E
+0223		0222
+0225		0224
+0227		0226
+0229		0228
+022B		022A
+022D		022C
+022F		022E
+0231		0230
+0233		0232
+023C		023B
+023F		2C7E
+0240		2C7F
+0242		0241
+0247		0246
+0249		0248
+024B		024A
+024D		024C
+024F		024E
+0250		2C6F
+0251		2C6D
+0252		2C70
+0253		0181
+0254		0186
+0256		0189
+0257		018A
+0259		018F
+025B		0190
+025C		A7AB
+0260		0193
+0261		A7AC
+0263		0194
+0265		A78D
+0266		A7AA
+0268		0197
+0269		0196
+026A		A7AE
+026B		2C62
+026C		A7AD
+026F		019C
+0271		2C6E
+0272		019D
+0275		019F
+027D		2C64
+0280		01A6
+0283		01A9
+0287		A7B1
+0288		01AE
+0289		0244
+028A		01B1
+028B		01B2
+028C		0245
+0292		01B7
+029D		A7B2
+029E		A7B0
+0345		0399
+0371		0370
+0373		0372
+0377		0376
+037B		03FD
+037C		03FE
+037D		03FF
+03AC		0386
+03AD		0388
+03AE		0389
+03AF		038A
+03B1		0391
+03B2		0392
+03B3		0393
+03B4		0394
+03B5		0395
+03B6		0396
+03B7		0397
+03B8		0398
+03B9		0399
+03BA		039A
+03BB		039B
+03BC		039C
+03BD		039D
+03BE		039E
+03BF		039F
+03C0		03A0
+03C1		03A1
+03C2		03A3
+03C3		03A3
+03C4		03A4
+03C5		03A5
+03C6		03A6
+03C7		03A7
+03C8		03A8
+03C9		03A9
+03CA		03AA
+03CB		03AB
+03CC		038C
+03CD		038E
+03CE		038F
+03D0		0392
+03D1		0398
+03D5		03A6
+03D6		03A0
+03D7		03CF
+03D9		03D8
+03DB		03DA
+03DD		03DC
+03DF		03DE
+03E1		03E0
+03E3		03E2
+03E5		03E4
+03E7		03E6
+03E9		03E8
+03EB		03EA
+03ED		03EC
+03EF		03EE
+03F0		039A
+03F1		03A1
+03F2		03F9
+03F3		037F
+03F5		0395
+03F8		03F7
+03FB		03FA
+0430		0410
+0431		0411
+0432		0412
+0433		0413
+0434		0414
+0435		0415
+0436		0416
+0437		0417
+0438		0418
+0439		0419
+043A		041A
+043B		041B
+043C		041C
+043D		041D
+043E		041E
+043F		041F
+0440		0420
+0441		0421
+0442		0422
+0443		0423
+0444		0424
+0445		0425
+0446		0426
+0447		0427
+0448		0428
+0449		0429
+044A		042A
+044B		042B
+044C		042C
+044D		042D
+044E		042E
+044F		042F
+0450		0400
+0451		0401
+0452		0402
+0453		0403
+0454		0404
+0455		0405
+0456		0406
+0457		0407
+0458		0408
+0459		0409
+045A		040A
+045B		040B
+045C		040C
+045D		040D
+045E		040E
+045F		040F
+0461		0460
+0463		0462
+0465		0464
+0467		0466
+0469		0468
+046B		046A
+046D		046C
+046F		046E
+0471		0470
+0473		0472
+0475		0474
+0477		0476
+0479		0478
+047B		047A
+047D		047C
+047F		047E
+0481		0480
+048B		048A
+048D		048C
+048F		048E
+0491		0490
+0493		0492
+0495		0494
+0497		0496
+0499		0498
+049B		049A
+049D		049C
+049F		049E
+04A1		04A0
+04A3		04A2
+04A5		04A4
+04A7		04A6
+04A9		04A8
+04AB		04AA
+04AD		04AC
+04AF		04AE
+04B1		04B0
+04B3		04B2
+04B5		04B4
+04B7		04B6
+04B9		04B8
+04BB		04BA
+04BD		04BC
+04BF		04BE
+04C2		04C1
+04C4		04C3
+04C6		04C5
+04C8		04C7
+04CA		04C9
+04CC		04CB
+04CE		04CD
+04CF		04C0
+04D1		04D0
+04D3		04D2
+04D5		04D4
+04D7		04D6
+04D9		04D8
+04DB		04DA
+04DD		04DC
+04DF		04DE
+04E1		04E0
+04E3		04E2
+04E5		04E4
+04E7		04E6
+04E9		04E8
+04EB		04EA
+04ED		04EC
+04EF		04EE
+04F1		04F0
+04F3		04F2
+04F5		04F4
+04F7		04F6
+04F9		04F8
+04FB		04FA
+04FD		04FC
+04FF		04FE
+0501		0500
+0503		0502
+0505		0504
+0507		0506
+0509		0508
+050B		050A
+050D		050C
+050F		050E
+0511		0510
+0513		0512
+0515		0514
+0517		0516
+0519		0518
+051B		051A
+051D		051C
+051F		051E
+0521		0520
+0523		0522
+0525		0524
+0527		0526
+0529		0528
+052B		052A
+052D		052C
+052F		052E
+0561		0531
+0562		0532
+0563		0533
+0564		0534
+0565		0535
+0566		0536
+0567		0537
+0568		0538
+0569		0539
+056A		053A
+056B		053B
+056C		053C
+056D		053D
+056E		053E
+056F		053F
+0570		0540
+0571		0541
+0572		0542
+0573		0543
+0574		0544
+0575		0545
+0576		0546
+0577		0547
+0578		0548
+0579		0549
+057A		054A
+057B		054B
+057C		054C
+057D		054D
+057E		054E
+057F		054F
+0580		0550
+0581		0551
+0582		0552
+0583		0553
+0584		0554
+0585		0555
+0586		0556
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1C80		0412
+1C81		0414
+1C82		041E
+1C83		0421
+1C84		0422
+1C85		0422
+1C86		042A
+1C87		0462
+1C88		A64A
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00		1F08
+1F01		1F09
+1F02		1F0A
+1F03		1F0B
+1F04		1F0C
+1F05		1F0D
+1F06		1F0E
+1F07		1F0F
+1F10		1F18
+1F11		1F19
+1F12		1F1A
+1F13		1F1B
+1F14		1F1C
+1F15		1F1D
+1F20		1F28
+1F21		1F29
+1F22		1F2A
+1F23		1F2B
+1F24		1F2C
+1F25		1F2D
+1F26		1F2E
+1F27		1F2F
+1F30		1F38
+1F31		1F39
+1F32		1F3A
+1F33		1F3B
+1F34		1F3C
+1F35		1F3D
+1F36		1F3E
+1F37		1F3F
+1F40		1F48
+1F41		1F49
+1F42		1F4A
+1F43		1F4B
+1F44		1F4C
+1F45		1F4D
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60		1F68
+1F61		1F69
+1F62		1F6A
+1F63		1F6B
+1F64		1F6C
+1F65		1F6D
+1F66		1F6E
+1F67		1F6F
+1F70		1FBA
+1F71		1FBB
+1F72		1FC8
+1F73		1FC9
+1F74		1FCA
+1F75		1FCB
+1F76		1FDA
+1F77		1FDB
+1F78		1FF8
+1F79		1FF9
+1F7A		1FEA
+1F7B		1FEB
+1F7C		1FFA
+1F7D		1FFB
+1FB0		1FB8
+1FB1		1FB9
+1FBE		0399
+1FD0		1FD8
+1FD1		1FD9
+1FE0		1FE8
+1FE1		1FE9
+1FE5		1FEC
+214E		2132
+2170		2160
+2171		2161
+2172		2162
+2173		2163
+2174		2164
+2175		2165
+2176		2166
+2177		2167
+2178		2168
+2179		2169
+217A		216A
+217B		216B
+217C		216C
+217D		216D
+217E		216E
+217F		216F
+2184		2183
+24D0		24B6
+24D1		24B7
+24D2		24B8
+24D3		24B9
+24D4		24BA
+24D5		24BB
+24D6		24BC
+24D7		24BD
+24D8		24BE
+24D9		24BF
+24DA		24C0
+24DB		24C1
+24DC		24C2
+24DD		24C3
+24DE		24C4
+24DF		24C5
+24E0		24C6
+24E1		24C7
+24E2		24C8
+24E3		24C9
+24E4		24CA
+24E5		24CB
+24E6		24CC
+24E7		24CD
+24E8		24CE
+24E9		24CF
+2C30		2C00
+2C31		2C01
+2C32		2C02
+2C33		2C03
+2C34		2C04
+2C35		2C05
+2C36		2C06
+2C37		2C07
+2C38		2C08
+2C39		2C09
+2C3A		2C0A
+2C3B		2C0B
+2C3C		2C0C
+2C3D		2C0D
+2C3E		2C0E
+2C3F		2C0F
+2C40		2C10
+2C41		2C11
+2C42		2C12
+2C43		2C13
+2C44		2C14
+2C45		2C15
+2C46		2C16
+2C47		2C17
+2C48		2C18
+2C49		2C19
+2C4A		2C1A
+2C4B		2C1B
+2C4C		2C1C
+2C4D		2C1D
+2C4E		2C1E
+2C4F		2C1F
+2C50		2C20
+2C51		2C21
+2C52		2C22
+2C53		2C23
+2C54		2C24
+2C55		2C25
+2C56		2C26
+2C57		2C27
+2C58		2C28
+2C59		2C29
+2C5A		2C2A
+2C5B		2C2B
+2C5C		2C2C
+2C5D		2C2D
+2C5E		2C2E
+2C61		2C60
+2C65		023A
+2C66		023E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00		10A0
+2D01		10A1
+2D02		10A2
+2D03		10A3
+2D04		10A4
+2D05		10A5
+2D06		10A6
+2D07		10A7
+2D08		10A8
+2D09		10A9
+2D0A		10AA
+2D0B		10AB
+2D0C		10AC
+2D0D		10AD
+2D0E		10AE
+2D0F		10AF
+2D10		10B0
+2D11		10B1
+2D12		10B2
+2D13		10B3
+2D14		10B4
+2D15		10B5
+2D16		10B6
+2D17		10B7
+2D18		10B8
+2D19		10B9
+2D1A		10BA
+2D1B		10BB
+2D1C		10BC
+2D1D		10BD
+2D1E		10BE
+2D1F		10BF
+2D20		10C0
+2D21		10C1
+2D22		10C2
+2D23		10C3
+2D24		10C4
+2D25		10C5
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF41		FF21
+FF42		FF22
+FF43		FF23
+FF44		FF24
+FF45		FF25
+FF46		FF26
+FF47		FF27
+FF48		FF28
+FF49		FF29
+FF4A		FF2A
+FF4B		FF2B
+FF4C		FF2C
+FF4D		FF2D
+FF4E		FF2E
+FF4F		FF2F
+FF50		FF30
+FF51		FF31
+FF52		FF32
+FF53		FF33
+FF54		FF34
+FF55		FF35
+FF56		FF36
+FF57		FF37
+FF58		FF38
+FF59		FF39
+FF5A		FF3A
+10428		10400
+10429		10401
+1042A		10402
+1042B		10403
+1042C		10404
+1042D		10405
+1042E		10406
+1042F		10407
+10430		10408
+10431		10409
+10432		1040A
+10433		1040B
+10434		1040C
+10435		1040D
+10436		1040E
+10437		1040F
+10438		10410
+10439		10411
+1043A		10412
+1043B		10413
+1043C		10414
+1043D		10415
+1043E		10416
+1043F		10417
+10440		10418
+10441		10419
+10442		1041A
+10443		1041B
+10444		1041C
+10445		1041D
+10446		1041E
+10447		1041F
+10448		10420
+10449		10421
+1044A		10422
+1044B		10423
+1044C		10424
+1044D		10425
+1044E		10426
+1044F		10427
+104D8		104B0
+104D9		104B1
+104DA		104B2
+104DB		104B3
+104DC		104B4
+104DD		104B5
+104DE		104B6
+104DF		104B7
+104E0		104B8
+104E1		104B9
+104E2		104BA
+104E3		104BB
+104E4		104BC
+104E5		104BD
+104E6		104BE
+104E7		104BF
+104E8		104C0
+104E9		104C1
+104EA		104C2
+104EB		104C3
+104EC		104C4
+104ED		104C5
+104EE		104C6
+104EF		104C7
+104F0		104C8
+104F1		104C9
+104F2		104CA
+104F3		104CB
+104F4		104CC
+104F5		104CD
+104F6		104CE
+104F7		104CF
+104F8		104D0
+104F9		104D1
+104FA		104D2
+104FB		104D3
+10CC0		10C80
+10CC1		10C81
+10CC2		10C82
+10CC3		10C83
+10CC4		10C84
+10CC5		10C85
+10CC6		10C86
+10CC7		10C87
+10CC8		10C88
+10CC9		10C89
+10CCA		10C8A
+10CCB		10C8B
+10CCC		10C8C
+10CCD		10C8D
+10CCE		10C8E
+10CCF		10C8F
+10CD0		10C90
+10CD1		10C91
+10CD2		10C92
+10CD3		10C93
+10CD4		10C94
+10CD5		10C95
+10CD6		10C96
+10CD7		10C97
+10CD8		10C98
+10CD9		10C99
+10CDA		10C9A
+10CDB		10C9B
+10CDC		10C9C
+10CDD		10C9D
+10CDE		10C9E
+10CDF		10C9F
+10CE0		10CA0
+10CE1		10CA1
+10CE2		10CA2
+10CE3		10CA3
+10CE4		10CA4
+10CE5		10CA5
+10CE6		10CA6
+10CE7		10CA7
+10CE8		10CA8
+10CE9		10CA9
+10CEA		10CAA
+10CEB		10CAB
+10CEC		10CAC
+10CED		10CAD
+10CEE		10CAE
+10CEF		10CAF
+10CF0		10CB0
+10CF1		10CB1
+10CF2		10CB2
+118C0		118A0
+118C1		118A1
+118C2		118A2
+118C3		118A3
+118C4		118A4
+118C5		118A5
+118C6		118A6
+118C7		118A7
+118C8		118A8
+118C9		118A9
+118CA		118AA
+118CB		118AB
+118CC		118AC
+118CD		118AD
+118CE		118AE
+118CF		118AF
+118D0		118B0
+118D1		118B1
+118D2		118B2
+118D3		118B3
+118D4		118B4
+118D5		118B5
+118D6		118B6
+118D7		118B7
+118D8		118B8
+118D9		118B9
+118DA		118BA
+118DB		118BB
+118DC		118BC
+118DD		118BD
+118DE		118BE
+118DF		118BF
+1E922		1E900
+1E923		1E901
+1E924		1E902
+1E925		1E903
+1E926		1E904
+1E927		1E905
+1E928		1E906
+1E929		1E907
+1E92A		1E908
+1E92B		1E909
+1E92C		1E90A
+1E92D		1E90B
+1E92E		1E90C
+1E92F		1E90D
+1E930		1E90E
+1E931		1E90F
+1E932		1E910
+1E933		1E911
+1E934		1E912
+1E935		1E913
+1E936		1E914
+1E937		1E915
+1E938		1E916
+1E939		1E917
+1E93A		1E918
+1E93B		1E919
+1E93C		1E91A
+1E93D		1E91B
+1E93E		1E91C
+1E93F		1E91D
+1E940		1E91E
+1E941		1E91F
+1E942		1E920
+1E943		1E921
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKDQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFKDQC'}{'missing'} = 'Yes';
+
+return <<'END';
+A0		N
+A8		N
+AA		N
+AF		N
+B2	B5	N
+B8	BA	N
+BC	BE	N
+C0	C5	N
+C7	CF	N
+D1	D6	N
+D9	DD	N
+E0	E5	N
+E7	EF	N
+F1	F6	N
+F9	FD	N
+FF	10F	N
+112	125	N
+128	130	N
+132	137	N
+139	140	N
+143	149	N
+14C	151	N
+154	165	N
+168	17F	N
+1A0	1A1	N
+1AF	1B0	N
+1C4	1DC	N
+1DE	1E3	N
+1E6	1F5	N
+1F8	21B	N
+21E	21F	N
+226	233	N
+2B0	2B8	N
+2D8	2DD	N
+2E0	2E4	N
+340	341	N
+343	344	N
+374		N
+37A		N
+37E		N
+384	38A	N
+38C		N
+38E	390	N
+3AA	3B0	N
+3CA	3CE	N
+3D0	3D6	N
+3F0	3F2	N
+3F4	3F5	N
+3F9		N
+400	401	N
+403		N
+407		N
+40C	40E	N
+419		N
+439		N
+450	451	N
+453		N
+457		N
+45C	45E	N
+476	477	N
+4C1	4C2	N
+4D0	4D3	N
+4D6	4D7	N
+4DA	4DF	N
+4E2	4E7	N
+4EA	4F5	N
+4F8	4F9	N
+587		N
+622	626	N
+675	678	N
+6C0		N
+6C2		N
+6D3		N
+929		N
+931		N
+934		N
+958	95F	N
+9CB	9CC	N
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B48		N
+B4B	B4C	N
+B5C	B5D	N
+B94		N
+BCA	BCC	N
+C48		N
+CC0		N
+CC7	CC8	N
+CCA	CCB	N
+D4A	D4C	N
+DDA		N
+DDC	DDE	N
+E33		N
+EB3		N
+EDC	EDD	N
+F0C		N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F79	N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+1026		N
+10FC		N
+1B06		N
+1B08		N
+1B0A		N
+1B0C		N
+1B0E		N
+1B12		N
+1B3B		N
+1B3D		N
+1B40	1B41	N
+1B43		N
+1D2C	1D2E	N
+1D30	1D3A	N
+1D3C	1D4D	N
+1D4F	1D6A	N
+1D78		N
+1D9B	1DBF	N
+1E00	1E9B	N
+1EA0	1EF9	N
+1F00	1F15	N
+1F18	1F1D	N
+1F20	1F45	N
+1F48	1F4D	N
+1F50	1F57	N
+1F59		N
+1F5B		N
+1F5D		N
+1F5F	1F7D	N
+1F80	1FB4	N
+1FB6	1FC4	N
+1FC6	1FD3	N
+1FD6	1FDB	N
+1FDD	1FEF	N
+1FF2	1FF4	N
+1FF6	1FFE	N
+2000	200A	N
+2011		N
+2017		N
+2024	2026	N
+202F		N
+2033	2034	N
+2036	2037	N
+203C		N
+203E		N
+2047	2049	N
+2057		N
+205F		N
+2070	2071	N
+2074	208E	N
+2090	209C	N
+20A8		N
+2100	2103	N
+2105	2107	N
+2109	2113	N
+2115	2116	N
+2119	211D	N
+2120	2122	N
+2124		N
+2126		N
+2128		N
+212A	212D	N
+212F	2131	N
+2133	2139	N
+213B	2140	N
+2145	2149	N
+2150	217F	N
+2189		N
+219A	219B	N
+21AE		N
+21CD	21CF	N
+2204		N
+2209		N
+220C		N
+2224		N
+2226		N
+222C	222D	N
+222F	2230	N
+2241		N
+2244		N
+2247		N
+2249		N
+2260		N
+2262		N
+226D	2271	N
+2274	2275	N
+2278	2279	N
+2280	2281	N
+2284	2285	N
+2288	2289	N
+22AC	22AF	N
+22E0	22E3	N
+22EA	22ED	N
+2329	232A	N
+2460	24EA	N
+2A0C		N
+2A74	2A76	N
+2ADC		N
+2C7C	2C7D	N
+2D6F		N
+2E9F		N
+2EF3		N
+2F00	2FD5	N
+3000		N
+3036		N
+3038	303A	N
+304C		N
+304E		N
+3050		N
+3052		N
+3054		N
+3056		N
+3058		N
+305A		N
+305C		N
+305E		N
+3060		N
+3062		N
+3065		N
+3067		N
+3069		N
+3070	3071	N
+3073	3074	N
+3076	3077	N
+3079	307A	N
+307C	307D	N
+3094		N
+309B	309C	N
+309E	309F	N
+30AC		N
+30AE		N
+30B0		N
+30B2		N
+30B4		N
+30B6		N
+30B8		N
+30BA		N
+30BC		N
+30BE		N
+30C0		N
+30C2		N
+30C5		N
+30C7		N
+30C9		N
+30D0	30D1	N
+30D3	30D4	N
+30D6	30D7	N
+30D9	30DA	N
+30DC	30DD	N
+30F4		N
+30F7	30FA	N
+30FE	30FF	N
+3131	318E	N
+3192	319F	N
+3200	321E	N
+3220	3247	N
+3250	327E	N
+3280	32FE	N
+3300	33FF	N
+A69C	A69D	N
+A770		N
+A7F8	A7F9	N
+AB5C	AB5F	N
+AC00	D7A3	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB00	FB06	N
+FB13	FB17	N
+FB1D		N
+FB1F	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FBB1	N
+FBD3	FD3D	N
+FD50	FD8F	N
+FD92	FDC7	N
+FDF0	FDFC	N
+FE10	FE19	N
+FE30	FE44	N
+FE47	FE52	N
+FE54	FE66	N
+FE68	FE6B	N
+FE70	FE72	N
+FE74		N
+FE76	FEFC	N
+FF01	FFBE	N
+FFC2	FFC7	N
+FFCA	FFCF	N
+FFD2	FFD7	N
+FFDA	FFDC	N
+FFE0	FFE6	N
+FFE8	FFEE	N
+1109A		N
+1109C		N
+110AB		N
+1112E	1112F	N
+1134B	1134C	N
+114BB	114BC	N
+114BE		N
+115BA	115BB	N
+1D15E	1D164	N
+1D1BB	1D1C0	N
+1D400	1D454	N
+1D456	1D49C	N
+1D49E	1D49F	N
+1D4A2		N
+1D4A5	1D4A6	N
+1D4A9	1D4AC	N
+1D4AE	1D4B9	N
+1D4BB		N
+1D4BD	1D4C3	N
+1D4C5	1D505	N
+1D507	1D50A	N
+1D50D	1D514	N
+1D516	1D51C	N
+1D51E	1D539	N
+1D53B	1D53E	N
+1D540	1D544	N
+1D546		N
+1D54A	1D550	N
+1D552	1D6A5	N
+1D6A8	1D7CB	N
+1D7CE	1D7FF	N
+1EE00	1EE03	N
+1EE05	1EE1F	N
+1EE21	1EE22	N
+1EE24		N
+1EE27		N
+1EE29	1EE32	N
+1EE34	1EE37	N
+1EE39		N
+1EE3B		N
+1EE42		N
+1EE47		N
+1EE49		N
+1EE4B		N
+1EE4D	1EE4F	N
+1EE51	1EE52	N
+1EE54		N
+1EE57		N
+1EE59		N
+1EE5B		N
+1EE5D		N
+1EE5F		N
+1EE61	1EE62	N
+1EE64		N
+1EE67	1EE6A	N
+1EE6C	1EE72	N
+1EE74	1EE77	N
+1EE79	1EE7C	N
+1EE7E		N
+1EE80	1EE89	N
+1EE8B	1EE9B	N
+1EEA1	1EEA3	N
+1EEA5	1EEA9	N
+1EEAB	1EEBB	N
+1F100	1F10A	N
+1F110	1F12E	N
+1F130	1F14F	N
+1F16A	1F16B	N
+1F190		N
+1F200	1F202	N
+1F210	1F23B	N
+1F240	1F248	N
+1F250	1F251	N
+2F800	2FA1D	N
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'To_PerlWB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'To_PerlWB'}{'missing'} = 'Other';
+
+return <<'END';
+9		Perl_Tailored_HSpace
+A		LF
+B	C	Newline
+D		CR
+20		Perl_Tailored_HSpace
+22		Double_Quote
+27		Single_Quote
+2C		MidNum
+2E		MidNumLet
+30	39	Numeric
+3A		MidLetter
+3B		MidNum
+41	5A	ALetter
+5F		ExtendNumLet
+61	7A	ALetter
+85		Newline
+A0		Perl_Tailored_HSpace
+AA		ALetter
+AD		Format
+B5		ALetter
+B7		MidLetter
+BA		ALetter
+C0	D6	ALetter
+D8	F6	ALetter
+F8	2D7	ALetter
+2DE	2E4	ALetter
+2EC	2FF	ALetter
+300	36F	Extend
+370	374	ALetter
+376	377	ALetter
+37A	37D	ALetter
+37E		MidNum
+37F		ALetter
+386		ALetter
+387		MidLetter
+388	38A	ALetter
+38C		ALetter
+38E	3A1	ALetter
+3A3	3F5	ALetter
+3F7	481	ALetter
+483	489	Extend
+48A	52F	ALetter
+531	556	ALetter
+559		ALetter
+561	587	ALetter
+589		MidNum
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+5F3		ALetter
+5F4		MidLetter
+600	605	Format
+60C	60D	MidNum
+610	61A	Extend
+61C		Format
+620	64A	ALetter
+64B	65F	Extend
+660	669	Numeric
+66B		Numeric
+66C		MidNum
+66E	66F	ALetter
+670		Extend
+671	6D3	ALetter
+6D5		ALetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	ALetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	ALetter
+6F0	6F9	Numeric
+6FA	6FC	ALetter
+6FF		ALetter
+70F		Format
+710		ALetter
+711		Extend
+712	72F	ALetter
+730	74A	Extend
+74D	7A5	ALetter
+7A6	7B0	Extend
+7B1		ALetter
+7C0	7C9	Numeric
+7CA	7EA	ALetter
+7EB	7F3	Extend
+7F4	7F5	ALetter
+7F8		MidNum
+7FA		ALetter
+800	815	ALetter
+816	819	Extend
+81A		ALetter
+81B	823	Extend
+824		ALetter
+825	827	Extend
+828		ALetter
+829	82D	Extend
+840	858	ALetter
+859	85B	Extend
+860	86A	ALetter
+8A0	8B4	ALetter
+8B6	8BD	ALetter
+8D4	8E1	Extend
+8E2		Format
+8E3	903	Extend
+904	939	ALetter
+93A	93C	Extend
+93D		ALetter
+93E	94F	Extend
+950		ALetter
+951	957	Extend
+958	961	ALetter
+962	963	Extend
+966	96F	Numeric
+971	980	ALetter
+981	983	Extend
+985	98C	ALetter
+98F	990	ALetter
+993	9A8	ALetter
+9AA	9B0	ALetter
+9B2		ALetter
+9B6	9B9	ALetter
+9BC		Extend
+9BD		ALetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		ALetter
+9D7		Extend
+9DC	9DD	ALetter
+9DF	9E1	ALetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	ALetter
+9FC		ALetter
+A01	A03	Extend
+A05	A0A	ALetter
+A0F	A10	ALetter
+A13	A28	ALetter
+A2A	A30	ALetter
+A32	A33	ALetter
+A35	A36	ALetter
+A38	A39	ALetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	ALetter
+A5E		ALetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	ALetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	ALetter
+A8F	A91	ALetter
+A93	AA8	ALetter
+AAA	AB0	ALetter
+AB2	AB3	ALetter
+AB5	AB9	ALetter
+ABC		Extend
+ABD		ALetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		ALetter
+AE0	AE1	ALetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		ALetter
+AFA	AFF	Extend
+B01	B03	Extend
+B05	B0C	ALetter
+B0F	B10	ALetter
+B13	B28	ALetter
+B2A	B30	ALetter
+B32	B33	ALetter
+B35	B39	ALetter
+B3C		Extend
+B3D		ALetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	ALetter
+B5F	B61	ALetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		ALetter
+B82		Extend
+B83		ALetter
+B85	B8A	ALetter
+B8E	B90	ALetter
+B92	B95	ALetter
+B99	B9A	ALetter
+B9C		ALetter
+B9E	B9F	ALetter
+BA3	BA4	ALetter
+BA8	BAA	ALetter
+BAE	BB9	ALetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		ALetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	ALetter
+C0E	C10	ALetter
+C12	C28	ALetter
+C2A	C39	ALetter
+C3D		ALetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	ALetter
+C60	C61	ALetter
+C62	C63	Extend
+C66	C6F	Numeric
+C80		ALetter
+C81	C83	Extend
+C85	C8C	ALetter
+C8E	C90	ALetter
+C92	CA8	ALetter
+CAA	CB3	ALetter
+CB5	CB9	ALetter
+CBC		Extend
+CBD		ALetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		ALetter
+CE0	CE1	ALetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	ALetter
+D00	D03	Extend
+D05	D0C	ALetter
+D0E	D10	ALetter
+D12	D3A	ALetter
+D3B	D3C	Extend
+D3D		ALetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		ALetter
+D54	D56	ALetter
+D57		Extend
+D5F	D61	ALetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	ALetter
+D82	D83	Extend
+D85	D96	ALetter
+D9A	DB1	ALetter
+DB3	DBB	ALetter
+DBD		ALetter
+DC0	DC6	ALetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E31		Extend
+E34	E3A	Extend
+E47	E4E	Extend
+E50	E59	Numeric
+EB1		Extend
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+ED0	ED9	Numeric
+F00		ALetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	Extend
+F40	F47	ALetter
+F49	F6C	ALetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	ALetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102B	103E	Extend
+1040	1049	Numeric
+1056	1059	Extend
+105E	1060	Extend
+1062	1064	Extend
+1067	106D	Extend
+1071	1074	Extend
+1082	108D	Extend
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	ALetter
+10C7		ALetter
+10CD		ALetter
+10D0	10FA	ALetter
+10FC	1248	ALetter
+124A	124D	ALetter
+1250	1256	ALetter
+1258		ALetter
+125A	125D	ALetter
+1260	1288	ALetter
+128A	128D	ALetter
+1290	12B0	ALetter
+12B2	12B5	ALetter
+12B8	12BE	ALetter
+12C0		ALetter
+12C2	12C5	ALetter
+12C8	12D6	ALetter
+12D8	1310	ALetter
+1312	1315	ALetter
+1318	135A	ALetter
+135D	135F	Extend
+1380	138F	ALetter
+13A0	13F5	ALetter
+13F8	13FD	ALetter
+1401	166C	ALetter
+166F	167F	ALetter
+1680		Perl_Tailored_HSpace
+1681	169A	ALetter
+16A0	16EA	ALetter
+16EE	16F8	ALetter
+1700	170C	ALetter
+170E	1711	ALetter
+1712	1714	Extend
+1720	1731	ALetter
+1732	1734	Extend
+1740	1751	ALetter
+1752	1753	Extend
+1760	176C	ALetter
+176E	1770	ALetter
+1772	1773	Extend
+17B4	17D3	Extend
+17DD		Extend
+17E0	17E9	Numeric
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	ALetter
+1880	1884	ALetter
+1885	1886	Extend
+1887	18A8	ALetter
+18A9		Extend
+18AA		ALetter
+18B0	18F5	ALetter
+1900	191E	ALetter
+1920	192B	Extend
+1930	193B	Extend
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A00	1A16	ALetter
+1A17	1A1B	Extend
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	ALetter
+1B34	1B44	Extend
+1B45	1B4B	ALetter
+1B50	1B59	Numeric
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	ALetter
+1BA1	1BAD	Extend
+1BAE	1BAF	ALetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	ALetter
+1BE6	1BF3	Extend
+1C00	1C23	ALetter
+1C24	1C37	Extend
+1C40	1C49	Numeric
+1C4D	1C4F	ALetter
+1C50	1C59	Numeric
+1C5A	1C7D	ALetter
+1C80	1C88	ALetter
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	ALetter
+1CED		Extend
+1CEE	1CF1	ALetter
+1CF2	1CF4	Extend
+1CF5	1CF6	ALetter
+1CF7	1CF9	Extend
+1D00	1DBF	ALetter
+1DC0	1DF9	Extend
+1DFB	1DFF	Extend
+1E00	1F15	ALetter
+1F18	1F1D	ALetter
+1F20	1F45	ALetter
+1F48	1F4D	ALetter
+1F50	1F57	ALetter
+1F59		ALetter
+1F5B		ALetter
+1F5D		ALetter
+1F5F	1F7D	ALetter
+1F80	1FB4	ALetter
+1FB6	1FBC	ALetter
+1FBE		ALetter
+1FC2	1FC4	ALetter
+1FC6	1FCC	ALetter
+1FD0	1FD3	ALetter
+1FD6	1FDB	ALetter
+1FE0	1FEC	ALetter
+1FF2	1FF4	ALetter
+1FF6	1FFC	ALetter
+2000	200A	Perl_Tailored_HSpace
+200C		Extend
+200D		ZWJ
+200E	200F	Format
+2018	2019	MidNumLet
+2024		MidNumLet
+2027		MidLetter
+2028	2029	Newline
+202A	202E	Format
+202F		ExtendNumLet
+203F	2040	ExtendNumLet
+2044		MidNum
+2054		ExtendNumLet
+205F		Perl_Tailored_HSpace
+2060	2064	Format
+2066	206F	Format
+2071		ALetter
+207F		ALetter
+2090	209C	ALetter
+20D0	20F0	Extend
+2102		ALetter
+2107		ALetter
+210A	2113	ALetter
+2115		ALetter
+2119	211D	ALetter
+2124		ALetter
+2126		ALetter
+2128		ALetter
+212A	212D	ALetter
+212F	2139	ALetter
+213C	213F	ALetter
+2145	2149	ALetter
+214E		ALetter
+2160	2188	ALetter
+24B6	24E9	ALetter
+261D		E_Base
+2640		Glue_After_Zwj
+2642		Glue_After_Zwj
+2695	2696	Glue_After_Zwj
+26F9		E_Base
+2708		Glue_After_Zwj
+270A	270D	E_Base
+2764		Glue_After_Zwj
+2C00	2C2E	ALetter
+2C30	2C5E	ALetter
+2C60	2CE4	ALetter
+2CEB	2CEE	ALetter
+2CEF	2CF1	Extend
+2CF2	2CF3	ALetter
+2D00	2D25	ALetter
+2D27		ALetter
+2D2D		ALetter
+2D30	2D67	ALetter
+2D6F		ALetter
+2D7F		Extend
+2D80	2D96	ALetter
+2DA0	2DA6	ALetter
+2DA8	2DAE	ALetter
+2DB0	2DB6	ALetter
+2DB8	2DBE	ALetter
+2DC0	2DC6	ALetter
+2DC8	2DCE	ALetter
+2DD0	2DD6	ALetter
+2DD8	2DDE	ALetter
+2DE0	2DFF	Extend
+2E2F		ALetter
+3000		Perl_Tailored_HSpace
+3005		ALetter
+302A	302F	Extend
+3031	3035	Katakana
+303B	303C	ALetter
+3099	309A	Extend
+309B	309C	Katakana
+30A0	30FA	Katakana
+30FC	30FF	Katakana
+3105	312E	ALetter
+3131	318E	ALetter
+31A0	31BA	ALetter
+31F0	31FF	Katakana
+32D0	32FE	Katakana
+3300	3357	Katakana
+A000	A48C	ALetter
+A4D0	A4FD	ALetter
+A500	A60C	ALetter
+A610	A61F	ALetter
+A620	A629	Numeric
+A62A	A62B	ALetter
+A640	A66E	ALetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F	A69D	ALetter
+A69E	A69F	Extend
+A6A0	A6EF	ALetter
+A6F0	A6F1	Extend
+A717	A7AE	ALetter
+A7B0	A7B7	ALetter
+A7F7	A801	ALetter
+A802		Extend
+A803	A805	ALetter
+A806		Extend
+A807	A80A	ALetter
+A80B		Extend
+A80C	A822	ALetter
+A823	A827	Extend
+A840	A873	ALetter
+A880	A881	Extend
+A882	A8B3	ALetter
+A8B4	A8C5	Extend
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	ALetter
+A8FB		ALetter
+A8FD		ALetter
+A900	A909	Numeric
+A90A	A925	ALetter
+A926	A92D	Extend
+A930	A946	ALetter
+A947	A953	Extend
+A960	A97C	ALetter
+A980	A983	Extend
+A984	A9B2	ALetter
+A9B3	A9C0	Extend
+A9CF		ALetter
+A9D0	A9D9	Numeric
+A9E5		Extend
+A9F0	A9F9	Numeric
+AA00	AA28	ALetter
+AA29	AA36	Extend
+AA40	AA42	ALetter
+AA43		Extend
+AA44	AA4B	ALetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA7B	AA7D	Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAE0	AAEA	ALetter
+AAEB	AAEF	Extend
+AAF2	AAF4	ALetter
+AAF5	AAF6	Extend
+AB01	AB06	ALetter
+AB09	AB0E	ALetter
+AB11	AB16	ALetter
+AB20	AB26	ALetter
+AB28	AB2E	ALetter
+AB30	AB65	ALetter
+AB70	ABE2	ALetter
+ABE3	ABEA	Extend
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	ALetter
+D7B0	D7C6	ALetter
+D7CB	D7FB	ALetter
+FB00	FB06	ALetter
+FB13	FB17	ALetter
+FB1D		Hebrew_Letter
+FB1E		Extend
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FB50	FBB1	ALetter
+FBD3	FD3D	ALetter
+FD50	FD8F	ALetter
+FD92	FDC7	ALetter
+FDF0	FDFB	ALetter
+FE00	FE0F	Extend
+FE10		MidNum
+FE13		MidLetter
+FE14		MidNum
+FE20	FE2F	Extend
+FE33	FE34	ExtendNumLet
+FE4D	FE4F	ExtendNumLet
+FE50		MidNum
+FE52		MidNumLet
+FE54		MidNum
+FE55		MidLetter
+FE70	FE74	ALetter
+FE76	FEFC	ALetter
+FEFF		Format
+FF07		MidNumLet
+FF0C		MidNum
+FF0E		MidNumLet
+FF1A		MidLetter
+FF1B		MidNum
+FF21	FF3A	ALetter
+FF3F		ExtendNumLet
+FF41	FF5A	ALetter
+FF66	FF9D	Katakana
+FF9E	FF9F	Extend
+FFA0	FFBE	ALetter
+FFC2	FFC7	ALetter
+FFCA	FFCF	ALetter
+FFD2	FFD7	ALetter
+FFDA	FFDC	ALetter
+FFF9	FFFB	Format
+10000	1000B	ALetter
+1000D	10026	ALetter
+10028	1003A	ALetter
+1003C	1003D	ALetter
+1003F	1004D	ALetter
+10050	1005D	ALetter
+10080	100FA	ALetter
+10140	10174	ALetter
+101FD		Extend
+10280	1029C	ALetter
+102A0	102D0	ALetter
+102E0		Extend
+10300	1031F	ALetter
+1032D	1034A	ALetter
+10350	10375	ALetter
+10376	1037A	Extend
+10380	1039D	ALetter
+103A0	103C3	ALetter
+103C8	103CF	ALetter
+103D1	103D5	ALetter
+10400	1049D	ALetter
+104A0	104A9	Numeric
+104B0	104D3	ALetter
+104D8	104FB	ALetter
+10500	10527	ALetter
+10530	10563	ALetter
+10600	10736	ALetter
+10740	10755	ALetter
+10760	10767	ALetter
+10800	10805	ALetter
+10808		ALetter
+1080A	10835	ALetter
+10837	10838	ALetter
+1083C		ALetter
+1083F	10855	ALetter
+10860	10876	ALetter
+10880	1089E	ALetter
+108E0	108F2	ALetter
+108F4	108F5	ALetter
+10900	10915	ALetter
+10920	10939	ALetter
+10980	109B7	ALetter
+109BE	109BF	ALetter
+10A00		ALetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	ALetter
+10A15	10A17	ALetter
+10A19	10A33	ALetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A60	10A7C	ALetter
+10A80	10A9C	ALetter
+10AC0	10AC7	ALetter
+10AC9	10AE4	ALetter
+10AE5	10AE6	Extend
+10B00	10B35	ALetter
+10B40	10B55	ALetter
+10B60	10B72	ALetter
+10B80	10B91	ALetter
+10C00	10C48	ALetter
+10C80	10CB2	ALetter
+10CC0	10CF2	ALetter
+11000	11002	Extend
+11003	11037	ALetter
+11038	11046	Extend
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	ALetter
+110B0	110BA	Extend
+110BD		Format
+110D0	110E8	ALetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	ALetter
+11127	11134	Extend
+11136	1113F	Numeric
+11150	11172	ALetter
+11173		Extend
+11176		ALetter
+11180	11182	Extend
+11183	111B2	ALetter
+111B3	111C0	Extend
+111C1	111C4	ALetter
+111CA	111CC	Extend
+111D0	111D9	Numeric
+111DA		ALetter
+111DC		ALetter
+11200	11211	ALetter
+11213	1122B	ALetter
+1122C	11237	Extend
+1123E		Extend
+11280	11286	ALetter
+11288		ALetter
+1128A	1128D	ALetter
+1128F	1129D	ALetter
+1129F	112A8	ALetter
+112B0	112DE	ALetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	ALetter
+1130F	11310	ALetter
+11313	11328	ALetter
+1132A	11330	ALetter
+11332	11333	ALetter
+11335	11339	ALetter
+1133C		Extend
+1133D		ALetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		ALetter
+11357		Extend
+1135D	11361	ALetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11400	11434	ALetter
+11435	11446	Extend
+11447	1144A	ALetter
+11450	11459	Numeric
+11480	114AF	ALetter
+114B0	114C3	Extend
+114C4	114C5	ALetter
+114C7		ALetter
+114D0	114D9	Numeric
+11580	115AE	ALetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115D8	115DB	ALetter
+115DC	115DD	Extend
+11600	1162F	ALetter
+11630	11640	Extend
+11644		ALetter
+11650	11659	Numeric
+11680	116AA	ALetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+1171D	1172B	Extend
+11730	11739	Numeric
+118A0	118DF	ALetter
+118E0	118E9	Numeric
+118FF		ALetter
+11A00		ALetter
+11A01	11A0A	Extend
+11A0B	11A32	ALetter
+11A33	11A39	Extend
+11A3A		ALetter
+11A3B	11A3E	Extend
+11A47		Extend
+11A50		ALetter
+11A51	11A5B	Extend
+11A5C	11A83	ALetter
+11A86	11A89	ALetter
+11A8A	11A99	Extend
+11AC0	11AF8	ALetter
+11C00	11C08	ALetter
+11C0A	11C2E	ALetter
+11C2F	11C36	Extend
+11C38	11C3F	Extend
+11C40		ALetter
+11C50	11C59	Numeric
+11C72	11C8F	ALetter
+11C92	11CA7	Extend
+11CA9	11CB6	Extend
+11D00	11D06	ALetter
+11D08	11D09	ALetter
+11D0B	11D30	ALetter
+11D31	11D36	Extend
+11D3A		Extend
+11D3C	11D3D	Extend
+11D3F	11D45	Extend
+11D46		ALetter
+11D47		Extend
+11D50	11D59	Numeric
+12000	12399	ALetter
+12400	1246E	ALetter
+12480	12543	ALetter
+13000	1342E	ALetter
+14400	14646	ALetter
+16800	16A38	ALetter
+16A40	16A5E	ALetter
+16A60	16A69	Numeric
+16AD0	16AED	ALetter
+16AF0	16AF4	Extend
+16B00	16B2F	ALetter
+16B30	16B36	Extend
+16B40	16B43	ALetter
+16B50	16B59	Numeric
+16B63	16B77	ALetter
+16B7D	16B8F	ALetter
+16F00	16F44	ALetter
+16F50		ALetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	ALetter
+16FE0	16FE1	ALetter
+1B000		Katakana
+1BC00	1BC6A	ALetter
+1BC70	1BC7C	ALetter
+1BC80	1BC88	ALetter
+1BC90	1BC99	ALetter
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D454	ALetter
+1D456	1D49C	ALetter
+1D49E	1D49F	ALetter
+1D4A2		ALetter
+1D4A5	1D4A6	ALetter
+1D4A9	1D4AC	ALetter
+1D4AE	1D4B9	ALetter
+1D4BB		ALetter
+1D4BD	1D4C3	ALetter
+1D4C5	1D505	ALetter
+1D507	1D50A	ALetter
+1D50D	1D514	ALetter
+1D516	1D51C	ALetter
+1D51E	1D539	ALetter
+1D53B	1D53E	ALetter
+1D540	1D544	ALetter
+1D546		ALetter
+1D54A	1D550	ALetter
+1D552	1D6A5	ALetter
+1D6A8	1D6C0	ALetter
+1D6C2	1D6DA	ALetter
+1D6DC	1D6FA	ALetter
+1D6FC	1D714	ALetter
+1D716	1D734	ALetter
+1D736	1D74E	ALetter
+1D750	1D76E	ALetter
+1D770	1D788	ALetter
+1D78A	1D7A8	ALetter
+1D7AA	1D7C2	ALetter
+1D7C4	1D7CB	ALetter
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E000	1E006	Extend
+1E008	1E018	Extend
+1E01B	1E021	Extend
+1E023	1E024	Extend
+1E026	1E02A	Extend
+1E800	1E8C4	ALetter
+1E8D0	1E8D6	Extend
+1E900	1E943	ALetter
+1E944	1E94A	Extend
+1E950	1E959	Numeric
+1EE00	1EE03	ALetter
+1EE05	1EE1F	ALetter
+1EE21	1EE22	ALetter
+1EE24		ALetter
+1EE27		ALetter
+1EE29	1EE32	ALetter
+1EE34	1EE37	ALetter
+1EE39		ALetter
+1EE3B		ALetter
+1EE42		ALetter
+1EE47		ALetter
+1EE49		ALetter
+1EE4B		ALetter
+1EE4D	1EE4F	ALetter
+1EE51	1EE52	ALetter
+1EE54		ALetter
+1EE57		ALetter
+1EE59		ALetter
+1EE5B		ALetter
+1EE5D		ALetter
+1EE5F		ALetter
+1EE61	1EE62	ALetter
+1EE64		ALetter
+1EE67	1EE6A	ALetter
+1EE6C	1EE72	ALetter
+1EE74	1EE77	ALetter
+1EE79	1EE7C	ALetter
+1EE7E		ALetter
+1EE80	1EE89	ALetter
+1EE8B	1EE9B	ALetter
+1EEA1	1EEA3	ALetter
+1EEA5	1EEA9	ALetter
+1EEAB	1EEBB	ALetter
+1F130	1F149	ALetter
+1F150	1F169	ALetter
+1F170	1F189	ALetter
+1F1E6	1F1FF	Regional_Indicator
+1F308		Glue_After_Zwj
+1F33E		Glue_After_Zwj
+1F373		Glue_After_Zwj
+1F385		E_Base
+1F393		Glue_After_Zwj
+1F3A4		Glue_After_Zwj
+1F3A8		Glue_After_Zwj
+1F3C2	1F3C4	E_Base
+1F3C7		E_Base
+1F3CA	1F3CC	E_Base
+1F3EB		Glue_After_Zwj
+1F3ED		Glue_After_Zwj
+1F3FB	1F3FF	E_Modifier
+1F442	1F443	E_Base
+1F446	1F450	E_Base
+1F466	1F469	E_Base_GAZ
+1F46E		E_Base
+1F470	1F478	E_Base
+1F47C		E_Base
+1F481	1F483	E_Base
+1F485	1F487	E_Base
+1F48B		Glue_After_Zwj
+1F4AA		E_Base
+1F4BB	1F4BC	Glue_After_Zwj
+1F527		Glue_After_Zwj
+1F52C		Glue_After_Zwj
+1F574	1F575	E_Base
+1F57A		E_Base
+1F590		E_Base
+1F595	1F596	E_Base
+1F5E8		Glue_After_Zwj
+1F645	1F647	E_Base
+1F64B	1F64F	E_Base
+1F680		Glue_After_Zwj
+1F692		Glue_After_Zwj
+1F6A3		E_Base
+1F6B4	1F6B6	E_Base
+1F6C0		E_Base
+1F6CC		E_Base
+1F918	1F91C	E_Base
+1F91E	1F91F	E_Base
+1F926		E_Base
+1F930	1F939	E_Base
+1F93D	1F93E	E_Base
+1F9D1	1F9DD	E_Base
+E0001		Format
+E0020	E007F	Extend
+E0100	E01EF	Extend
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBpb'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToBpb'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+28		0029
+29		0028
+5B		005D
+5D		005B
+7B		007D
+7D		007B
+F3A		0F3B
+F3B		0F3A
+F3C		0F3D
+F3D		0F3C
+169B		169C
+169C		169B
+2045		2046
+2046		2045
+207D		207E
+207E		207D
+208D		208E
+208E		208D
+2308		2309
+2309		2308
+230A		230B
+230B		230A
+2329		232A
+232A		2329
+2768		2769
+2769		2768
+276A		276B
+276B		276A
+276C		276D
+276D		276C
+276E		276F
+276F		276E
+2770		2771
+2771		2770
+2772		2773
+2773		2772
+2774		2775
+2775		2774
+27C5		27C6
+27C6		27C5
+27E6		27E7
+27E7		27E6
+27E8		27E9
+27E9		27E8
+27EA		27EB
+27EB		27EA
+27EC		27ED
+27ED		27EC
+27EE		27EF
+27EF		27EE
+2983		2984
+2984		2983
+2985		2986
+2986		2985
+2987		2988
+2988		2987
+2989		298A
+298A		2989
+298B		298C
+298C		298B
+298D		2990
+298E		298F
+298F		298E
+2990		298D
+2991		2992
+2992		2991
+2993		2994
+2994		2993
+2995		2996
+2996		2995
+2997		2998
+2998		2997
+29D8		29D9
+29D9		29D8
+29DA		29DB
+29DB		29DA
+29FC		29FD
+29FD		29FC
+2E22		2E23
+2E23		2E22
+2E24		2E25
+2E25		2E24
+2E26		2E27
+2E27		2E26
+2E28		2E29
+2E29		2E28
+3008		3009
+3009		3008
+300A		300B
+300B		300A
+300C		300D
+300D		300C
+300E		300F
+300F		300E
+3010		3011
+3011		3010
+3014		3015
+3015		3014
+3016		3017
+3017		3016
+3018		3019
+3019		3018
+301A		301B
+301B		301A
+FE59		FE5A
+FE5A		FE59
+FE5B		FE5C
+FE5C		FE5B
+FE5D		FE5E
+FE5E		FE5D
+FF08		FF09
+FF09		FF08
+FF3B		FF3D
+FF3D		FF3B
+FF5B		FF5D
+FF5D		FF5B
+FF5F		FF60
+FF60		FF5F
+FF62		FF63
+FF63		FF62
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToTc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToTc'}{'specials_name'} = 'utf8::ToSpecTc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToTc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecTc = (
+"\xC3\x9F" => "\x{0053}\x{0073}",             # U+00DF => 0053 0073
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0582}",             # U+0587 => 0535 0582
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0345}",         # U+1FB2 => 1FBA 0345
+"\xE1\xBE\xB4" => "\x{0386}\x{0345}",         # U+1FB4 => 0386 0345
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345
+"\xE1\xBF\x82" => "\x{1FCA}\x{0345}",         # U+1FC2 => 1FCA 0345
+"\xE1\xBF\x84" => "\x{0389}\x{0345}",         # U+1FC4 => 0389 0345
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0345}",         # U+1FF2 => 1FFA 0345
+"\xE1\xBF\xB4" => "\x{038F}\x{0345}",         # U+1FF4 => 038F 0345
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345
+"\xEF\xAC\x80" => "\x{0046}\x{0066}",         # U+FB00 => 0046 0066
+"\xEF\xAC\x81" => "\x{0046}\x{0069}",         # U+FB01 => 0046 0069
+"\xEF\xAC\x82" => "\x{0046}\x{006C}",         # U+FB02 => 0046 006C
+"\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069
+"\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C
+"\xEF\xAC\x85" => "\x{0053}\x{0074}",         # U+FB05 => 0053 0074
+"\xEF\xAC\x86" => "\x{0053}\x{0074}",         # U+FB06 => 0053 0074
+"\xEF\xAC\x93" => "\x{0544}\x{0576}",         # U+FB13 => 0544 0576
+"\xEF\xAC\x94" => "\x{0544}\x{0565}",         # U+FB14 => 0544 0565
+"\xEF\xAC\x95" => "\x{0544}\x{056B}",         # U+FB15 => 0544 056B
+"\xEF\xAC\x96" => "\x{054E}\x{0576}",         # U+FB16 => 054E 0576
+"\xEF\xAC\x97" => "\x{0544}\x{056D}",         # U+FB17 => 0544 056D
+);
+
+return <<'END';
+61	7A	41
+B5		39C
+E0	F6	C0
+F8	FE	D8
+FF		178
+101		100
+103		102
+105		104
+107		106
+109		108
+10B		10A
+10D		10C
+10F		10E
+111		110
+113		112
+115		114
+117		116
+119		118
+11B		11A
+11D		11C
+11F		11E
+121		120
+123		122
+125		124
+127		126
+129		128
+12B		12A
+12D		12C
+12F		12E
+131		49
+133		132
+135		134
+137		136
+13A		139
+13C		13B
+13E		13D
+140		13F
+142		141
+144		143
+146		145
+148		147
+14B		14A
+14D		14C
+14F		14E
+151		150
+153		152
+155		154
+157		156
+159		158
+15B		15A
+15D		15C
+15F		15E
+161		160
+163		162
+165		164
+167		166
+169		168
+16B		16A
+16D		16C
+16F		16E
+171		170
+173		172
+175		174
+177		176
+17A		179
+17C		17B
+17E		17D
+17F		53
+180		243
+183		182
+185		184
+188		187
+18C		18B
+192		191
+195		1F6
+199		198
+19A		23D
+19E		220
+1A1		1A0
+1A3		1A2
+1A5		1A4
+1A8		1A7
+1AD		1AC
+1B0		1AF
+1B4		1B3
+1B6		1B5
+1B9		1B8
+1BD		1BC
+1BF		1F7
+1C4		1C5
+1C6		1C5
+1C7		1C8
+1C9		1C8
+1CA		1CB
+1CC		1CB
+1CE		1CD
+1D0		1CF
+1D2		1D1
+1D4		1D3
+1D6		1D5
+1D8		1D7
+1DA		1D9
+1DC		1DB
+1DD		18E
+1DF		1DE
+1E1		1E0
+1E3		1E2
+1E5		1E4
+1E7		1E6
+1E9		1E8
+1EB		1EA
+1ED		1EC
+1EF		1EE
+1F1		1F2
+1F3		1F2
+1F5		1F4
+1F9		1F8
+1FB		1FA
+1FD		1FC
+1FF		1FE
+201		200
+203		202
+205		204
+207		206
+209		208
+20B		20A
+20D		20C
+20F		20E
+211		210
+213		212
+215		214
+217		216
+219		218
+21B		21A
+21D		21C
+21F		21E
+223		222
+225		224
+227		226
+229		228
+22B		22A
+22D		22C
+22F		22E
+231		230
+233		232
+23C		23B
+23F	240	2C7E
+242		241
+247		246
+249		248
+24B		24A
+24D		24C
+24F		24E
+250		2C6F
+251		2C6D
+252		2C70
+253		181
+254		186
+256	257	189
+259		18F
+25B		190
+25C		A7AB
+260		193
+261		A7AC
+263		194
+265		A78D
+266		A7AA
+268		197
+269		196
+26A		A7AE
+26B		2C62
+26C		A7AD
+26F		19C
+271		2C6E
+272		19D
+275		19F
+27D		2C64
+280		1A6
+283		1A9
+287		A7B1
+288		1AE
+289		244
+28A	28B	1B1
+28C		245
+292		1B7
+29D		A7B2
+29E		A7B0
+345		399
+371		370
+373		372
+377		376
+37B	37D	3FD
+3AC		386
+3AD	3AF	388
+3B1	3C1	391
+3C2		3A3
+3C3	3CB	3A3
+3CC		38C
+3CD	3CE	38E
+3D0		392
+3D1		398
+3D5		3A6
+3D6		3A0
+3D7		3CF
+3D9		3D8
+3DB		3DA
+3DD		3DC
+3DF		3DE
+3E1		3E0
+3E3		3E2
+3E5		3E4
+3E7		3E6
+3E9		3E8
+3EB		3EA
+3ED		3EC
+3EF		3EE
+3F0		39A
+3F1		3A1
+3F2		3F9
+3F3		37F
+3F5		395
+3F8		3F7
+3FB		3FA
+430	44F	410
+450	45F	400
+461		460
+463		462
+465		464
+467		466
+469		468
+46B		46A
+46D		46C
+46F		46E
+471		470
+473		472
+475		474
+477		476
+479		478
+47B		47A
+47D		47C
+47F		47E
+481		480
+48B		48A
+48D		48C
+48F		48E
+491		490
+493		492
+495		494
+497		496
+499		498
+49B		49A
+49D		49C
+49F		49E
+4A1		4A0
+4A3		4A2
+4A5		4A4
+4A7		4A6
+4A9		4A8
+4AB		4AA
+4AD		4AC
+4AF		4AE
+4B1		4B0
+4B3		4B2
+4B5		4B4
+4B7		4B6
+4B9		4B8
+4BB		4BA
+4BD		4BC
+4BF		4BE
+4C2		4C1
+4C4		4C3
+4C6		4C5
+4C8		4C7
+4CA		4C9
+4CC		4CB
+4CE		4CD
+4CF		4C0
+4D1		4D0
+4D3		4D2
+4D5		4D4
+4D7		4D6
+4D9		4D8
+4DB		4DA
+4DD		4DC
+4DF		4DE
+4E1		4E0
+4E3		4E2
+4E5		4E4
+4E7		4E6
+4E9		4E8
+4EB		4EA
+4ED		4EC
+4EF		4EE
+4F1		4F0
+4F3		4F2
+4F5		4F4
+4F7		4F6
+4F9		4F8
+4FB		4FA
+4FD		4FC
+4FF		4FE
+501		500
+503		502
+505		504
+507		506
+509		508
+50B		50A
+50D		50C
+50F		50E
+511		510
+513		512
+515		514
+517		516
+519		518
+51B		51A
+51D		51C
+51F		51E
+521		520
+523		522
+525		524
+527		526
+529		528
+52B		52A
+52D		52C
+52F		52E
+561	586	531
+13F8	13FD	13F0
+1C80		412
+1C81		414
+1C82		41E
+1C83	1C84	421
+1C85		422
+1C86		42A
+1C87		462
+1C88		A64A
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00	1F07	1F08
+1F10	1F15	1F18
+1F20	1F27	1F28
+1F30	1F37	1F38
+1F40	1F45	1F48
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60	1F67	1F68
+1F70	1F71	1FBA
+1F72	1F75	1FC8
+1F76	1F77	1FDA
+1F78	1F79	1FF8
+1F7A	1F7B	1FEA
+1F7C	1F7D	1FFA
+1F80	1F87	1F88
+1F90	1F97	1F98
+1FA0	1FA7	1FA8
+1FB0	1FB1	1FB8
+1FB3		1FBC
+1FBE		399
+1FC3		1FCC
+1FD0	1FD1	1FD8
+1FE0	1FE1	1FE8
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170	217F	2160
+2184		2183
+24D0	24E9	24B6
+2C30	2C5E	2C00
+2C61		2C60
+2C65		23A
+2C66		23E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00	2D25	10A0
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70	ABBF	13A0
+FF41	FF5A	FF21
+10428	1044F	10400
+104D8	104FB	104B0
+10CC0	10CF2	10C80
+118C0	118DF	118A0
+1E922	1E943	1E900
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToHst'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToHst'}{'missing'} = 'NA';
+
+return <<'END';
+1100	115F	L
+1160	11A7	V
+11A8	11FF	T
+A960	A97C	L
+AC00		LV
+AC01	AC1B	LVT
+AC1C		LV
+AC1D	AC37	LVT
+AC38		LV
+AC39	AC53	LVT
+AC54		LV
+AC55	AC6F	LVT
+AC70		LV
+AC71	AC8B	LVT
+AC8C		LV
+AC8D	ACA7	LVT
+ACA8		LV
+ACA9	ACC3	LVT
+ACC4		LV
+ACC5	ACDF	LVT
+ACE0		LV
+ACE1	ACFB	LVT
+ACFC		LV
+ACFD	AD17	LVT
+AD18		LV
+AD19	AD33	LVT
+AD34		LV
+AD35	AD4F	LVT
+AD50		LV
+AD51	AD6B	LVT
+AD6C		LV
+AD6D	AD87	LVT
+AD88		LV
+AD89	ADA3	LVT
+ADA4		LV
+ADA5	ADBF	LVT
+ADC0		LV
+ADC1	ADDB	LVT
+ADDC		LV
+ADDD	ADF7	LVT
+ADF8		LV
+ADF9	AE13	LVT
+AE14		LV
+AE15	AE2F	LVT
+AE30		LV
+AE31	AE4B	LVT
+AE4C		LV
+AE4D	AE67	LVT
+AE68		LV
+AE69	AE83	LVT
+AE84		LV
+AE85	AE9F	LVT
+AEA0		LV
+AEA1	AEBB	LVT
+AEBC		LV
+AEBD	AED7	LVT
+AED8		LV
+AED9	AEF3	LVT
+AEF4		LV
+AEF5	AF0F	LVT
+AF10		LV
+AF11	AF2B	LVT
+AF2C		LV
+AF2D	AF47	LVT
+AF48		LV
+AF49	AF63	LVT
+AF64		LV
+AF65	AF7F	LVT
+AF80		LV
+AF81	AF9B	LVT
+AF9C		LV
+AF9D	AFB7	LVT
+AFB8		LV
+AFB9	AFD3	LVT
+AFD4		LV
+AFD5	AFEF	LVT
+AFF0		LV
+AFF1	B00B	LVT
+B00C		LV
+B00D	B027	LVT
+B028		LV
+B029	B043	LVT
+B044		LV
+B045	B05F	LVT
+B060		LV
+B061	B07B	LVT
+B07C		LV
+B07D	B097	LVT
+B098		LV
+B099	B0B3	LVT
+B0B4		LV
+B0B5	B0CF	LVT
+B0D0		LV
+B0D1	B0EB	LVT
+B0EC		LV
+B0ED	B107	LVT
+B108		LV
+B109	B123	LVT
+B124		LV
+B125	B13F	LVT
+B140		LV
+B141	B15B	LVT
+B15C		LV
+B15D	B177	LVT
+B178		LV
+B179	B193	LVT
+B194		LV
+B195	B1AF	LVT
+B1B0		LV
+B1B1	B1CB	LVT
+B1CC		LV
+B1CD	B1E7	LVT
+B1E8		LV
+B1E9	B203	LVT
+B204		LV
+B205	B21F	LVT
+B220		LV
+B221	B23B	LVT
+B23C		LV
+B23D	B257	LVT
+B258		LV
+B259	B273	LVT
+B274		LV
+B275	B28F	LVT
+B290		LV
+B291	B2AB	LVT
+B2AC		LV
+B2AD	B2C7	LVT
+B2C8		LV
+B2C9	B2E3	LVT
+B2E4		LV
+B2E5	B2FF	LVT
+B300		LV
+B301	B31B	LVT
+B31C		LV
+B31D	B337	LVT
+B338		LV
+B339	B353	LVT
+B354		LV
+B355	B36F	LVT
+B370		LV
+B371	B38B	LVT
+B38C		LV
+B38D	B3A7	LVT
+B3A8		LV
+B3A9	B3C3	LVT
+B3C4		LV
+B3C5	B3DF	LVT
+B3E0		LV
+B3E1	B3FB	LVT
+B3FC		LV
+B3FD	B417	LVT
+B418		LV
+B419	B433	LVT
+B434		LV
+B435	B44F	LVT
+B450		LV
+B451	B46B	LVT
+B46C		LV
+B46D	B487	LVT
+B488		LV
+B489	B4A3	LVT
+B4A4		LV
+B4A5	B4BF	LVT
+B4C0		LV
+B4C1	B4DB	LVT
+B4DC		LV
+B4DD	B4F7	LVT
+B4F8		LV
+B4F9	B513	LVT
+B514		LV
+B515	B52F	LVT
+B530		LV
+B531	B54B	LVT
+B54C		LV
+B54D	B567	LVT
+B568		LV
+B569	B583	LVT
+B584		LV
+B585	B59F	LVT
+B5A0		LV
+B5A1	B5BB	LVT
+B5BC		LV
+B5BD	B5D7	LVT
+B5D8		LV
+B5D9	B5F3	LVT
+B5F4		LV
+B5F5	B60F	LVT
+B610		LV
+B611	B62B	LVT
+B62C		LV
+B62D	B647	LVT
+B648		LV
+B649	B663	LVT
+B664		LV
+B665	B67F	LVT
+B680		LV
+B681	B69B	LVT
+B69C		LV
+B69D	B6B7	LVT
+B6B8		LV
+B6B9	B6D3	LVT
+B6D4		LV
+B6D5	B6EF	LVT
+B6F0		LV
+B6F1	B70B	LVT
+B70C		LV
+B70D	B727	LVT
+B728		LV
+B729	B743	LVT
+B744		LV
+B745	B75F	LVT
+B760		LV
+B761	B77B	LVT
+B77C		LV
+B77D	B797	LVT
+B798		LV
+B799	B7B3	LVT
+B7B4		LV
+B7B5	B7CF	LVT
+B7D0		LV
+B7D1	B7EB	LVT
+B7EC		LV
+B7ED	B807	LVT
+B808		LV
+B809	B823	LVT
+B824		LV
+B825	B83F	LVT
+B840		LV
+B841	B85B	LVT
+B85C		LV
+B85D	B877	LVT
+B878		LV
+B879	B893	LVT
+B894		LV
+B895	B8AF	LVT
+B8B0		LV
+B8B1	B8CB	LVT
+B8CC		LV
+B8CD	B8E7	LVT
+B8E8		LV
+B8E9	B903	LVT
+B904		LV
+B905	B91F	LVT
+B920		LV
+B921	B93B	LVT
+B93C		LV
+B93D	B957	LVT
+B958		LV
+B959	B973	LVT
+B974		LV
+B975	B98F	LVT
+B990		LV
+B991	B9AB	LVT
+B9AC		LV
+B9AD	B9C7	LVT
+B9C8		LV
+B9C9	B9E3	LVT
+B9E4		LV
+B9E5	B9FF	LVT
+BA00		LV
+BA01	BA1B	LVT
+BA1C		LV
+BA1D	BA37	LVT
+BA38		LV
+BA39	BA53	LVT
+BA54		LV
+BA55	BA6F	LVT
+BA70		LV
+BA71	BA8B	LVT
+BA8C		LV
+BA8D	BAA7	LVT
+BAA8		LV
+BAA9	BAC3	LVT
+BAC4		LV
+BAC5	BADF	LVT
+BAE0		LV
+BAE1	BAFB	LVT
+BAFC		LV
+BAFD	BB17	LVT
+BB18		LV
+BB19	BB33	LVT
+BB34		LV
+BB35	BB4F	LVT
+BB50		LV
+BB51	BB6B	LVT
+BB6C		LV
+BB6D	BB87	LVT
+BB88		LV
+BB89	BBA3	LVT
+BBA4		LV
+BBA5	BBBF	LVT
+BBC0		LV
+BBC1	BBDB	LVT
+BBDC		LV
+BBDD	BBF7	LVT
+BBF8		LV
+BBF9	BC13	LVT
+BC14		LV
+BC15	BC2F	LVT
+BC30		LV
+BC31	BC4B	LVT
+BC4C		LV
+BC4D	BC67	LVT
+BC68		LV
+BC69	BC83	LVT
+BC84		LV
+BC85	BC9F	LVT
+BCA0		LV
+BCA1	BCBB	LVT
+BCBC		LV
+BCBD	BCD7	LVT
+BCD8		LV
+BCD9	BCF3	LVT
+BCF4		LV
+BCF5	BD0F	LVT
+BD10		LV
+BD11	BD2B	LVT
+BD2C		LV
+BD2D	BD47	LVT
+BD48		LV
+BD49	BD63	LVT
+BD64		LV
+BD65	BD7F	LVT
+BD80		LV
+BD81	BD9B	LVT
+BD9C		LV
+BD9D	BDB7	LVT
+BDB8		LV
+BDB9	BDD3	LVT
+BDD4		LV
+BDD5	BDEF	LVT
+BDF0		LV
+BDF1	BE0B	LVT
+BE0C		LV
+BE0D	BE27	LVT
+BE28		LV
+BE29	BE43	LVT
+BE44		LV
+BE45	BE5F	LVT
+BE60		LV
+BE61	BE7B	LVT
+BE7C		LV
+BE7D	BE97	LVT
+BE98		LV
+BE99	BEB3	LVT
+BEB4		LV
+BEB5	BECF	LVT
+BED0		LV
+BED1	BEEB	LVT
+BEEC		LV
+BEED	BF07	LVT
+BF08		LV
+BF09	BF23	LVT
+BF24		LV
+BF25	BF3F	LVT
+BF40		LV
+BF41	BF5B	LVT
+BF5C		LV
+BF5D	BF77	LVT
+BF78		LV
+BF79	BF93	LVT
+BF94		LV
+BF95	BFAF	LVT
+BFB0		LV
+BFB1	BFCB	LVT
+BFCC		LV
+BFCD	BFE7	LVT
+BFE8		LV
+BFE9	C003	LVT
+C004		LV
+C005	C01F	LVT
+C020		LV
+C021	C03B	LVT
+C03C		LV
+C03D	C057	LVT
+C058		LV
+C059	C073	LVT
+C074		LV
+C075	C08F	LVT
+C090		LV
+C091	C0AB	LVT
+C0AC		LV
+C0AD	C0C7	LVT
+C0C8		LV
+C0C9	C0E3	LVT
+C0E4		LV
+C0E5	C0FF	LVT
+C100		LV
+C101	C11B	LVT
+C11C		LV
+C11D	C137	LVT
+C138		LV
+C139	C153	LVT
+C154		LV
+C155	C16F	LVT
+C170		LV
+C171	C18B	LVT
+C18C		LV
+C18D	C1A7	LVT
+C1A8		LV
+C1A9	C1C3	LVT
+C1C4		LV
+C1C5	C1DF	LVT
+C1E0		LV
+C1E1	C1FB	LVT
+C1FC		LV
+C1FD	C217	LVT
+C218		LV
+C219	C233	LVT
+C234		LV
+C235	C24F	LVT
+C250		LV
+C251	C26B	LVT
+C26C		LV
+C26D	C287	LVT
+C288		LV
+C289	C2A3	LVT
+C2A4		LV
+C2A5	C2BF	LVT
+C2C0		LV
+C2C1	C2DB	LVT
+C2DC		LV
+C2DD	C2F7	LVT
+C2F8		LV
+C2F9	C313	LVT
+C314		LV
+C315	C32F	LVT
+C330		LV
+C331	C34B	LVT
+C34C		LV
+C34D	C367	LVT
+C368		LV
+C369	C383	LVT
+C384		LV
+C385	C39F	LVT
+C3A0		LV
+C3A1	C3BB	LVT
+C3BC		LV
+C3BD	C3D7	LVT
+C3D8		LV
+C3D9	C3F3	LVT
+C3F4		LV
+C3F5	C40F	LVT
+C410		LV
+C411	C42B	LVT
+C42C		LV
+C42D	C447	LVT
+C448		LV
+C449	C463	LVT
+C464		LV
+C465	C47F	LVT
+C480		LV
+C481	C49B	LVT
+C49C		LV
+C49D	C4B7	LVT
+C4B8		LV
+C4B9	C4D3	LVT
+C4D4		LV
+C4D5	C4EF	LVT
+C4F0		LV
+C4F1	C50B	LVT
+C50C		LV
+C50D	C527	LVT
+C528		LV
+C529	C543	LVT
+C544		LV
+C545	C55F	LVT
+C560		LV
+C561	C57B	LVT
+C57C		LV
+C57D	C597	LVT
+C598		LV
+C599	C5B3	LVT
+C5B4		LV
+C5B5	C5CF	LVT
+C5D0		LV
+C5D1	C5EB	LVT
+C5EC		LV
+C5ED	C607	LVT
+C608		LV
+C609	C623	LVT
+C624		LV
+C625	C63F	LVT
+C640		LV
+C641	C65B	LVT
+C65C		LV
+C65D	C677	LVT
+C678		LV
+C679	C693	LVT
+C694		LV
+C695	C6AF	LVT
+C6B0		LV
+C6B1	C6CB	LVT
+C6CC		LV
+C6CD	C6E7	LVT
+C6E8		LV
+C6E9	C703	LVT
+C704		LV
+C705	C71F	LVT
+C720		LV
+C721	C73B	LVT
+C73C		LV
+C73D	C757	LVT
+C758		LV
+C759	C773	LVT
+C774		LV
+C775	C78F	LVT
+C790		LV
+C791	C7AB	LVT
+C7AC		LV
+C7AD	C7C7	LVT
+C7C8		LV
+C7C9	C7E3	LVT
+C7E4		LV
+C7E5	C7FF	LVT
+C800		LV
+C801	C81B	LVT
+C81C		LV
+C81D	C837	LVT
+C838		LV
+C839	C853	LVT
+C854		LV
+C855	C86F	LVT
+C870		LV
+C871	C88B	LVT
+C88C		LV
+C88D	C8A7	LVT
+C8A8		LV
+C8A9	C8C3	LVT
+C8C4		LV
+C8C5	C8DF	LVT
+C8E0		LV
+C8E1	C8FB	LVT
+C8FC		LV
+C8FD	C917	LVT
+C918		LV
+C919	C933	LVT
+C934		LV
+C935	C94F	LVT
+C950		LV
+C951	C96B	LVT
+C96C		LV
+C96D	C987	LVT
+C988		LV
+C989	C9A3	LVT
+C9A4		LV
+C9A5	C9BF	LVT
+C9C0		LV
+C9C1	C9DB	LVT
+C9DC		LV
+C9DD	C9F7	LVT
+C9F8		LV
+C9F9	CA13	LVT
+CA14		LV
+CA15	CA2F	LVT
+CA30		LV
+CA31	CA4B	LVT
+CA4C		LV
+CA4D	CA67	LVT
+CA68		LV
+CA69	CA83	LVT
+CA84		LV
+CA85	CA9F	LVT
+CAA0		LV
+CAA1	CABB	LVT
+CABC		LV
+CABD	CAD7	LVT
+CAD8		LV
+CAD9	CAF3	LVT
+CAF4		LV
+CAF5	CB0F	LVT
+CB10		LV
+CB11	CB2B	LVT
+CB2C		LV
+CB2D	CB47	LVT
+CB48		LV
+CB49	CB63	LVT
+CB64		LV
+CB65	CB7F	LVT
+CB80		LV
+CB81	CB9B	LVT
+CB9C		LV
+CB9D	CBB7	LVT
+CBB8		LV
+CBB9	CBD3	LVT
+CBD4		LV
+CBD5	CBEF	LVT
+CBF0		LV
+CBF1	CC0B	LVT
+CC0C		LV
+CC0D	CC27	LVT
+CC28		LV
+CC29	CC43	LVT
+CC44		LV
+CC45	CC5F	LVT
+CC60		LV
+CC61	CC7B	LVT
+CC7C		LV
+CC7D	CC97	LVT
+CC98		LV
+CC99	CCB3	LVT
+CCB4		LV
+CCB5	CCCF	LVT
+CCD0		LV
+CCD1	CCEB	LVT
+CCEC		LV
+CCED	CD07	LVT
+CD08		LV
+CD09	CD23	LVT
+CD24		LV
+CD25	CD3F	LVT
+CD40		LV
+CD41	CD5B	LVT
+CD5C		LV
+CD5D	CD77	LVT
+CD78		LV
+CD79	CD93	LVT
+CD94		LV
+CD95	CDAF	LVT
+CDB0		LV
+CDB1	CDCB	LVT
+CDCC		LV
+CDCD	CDE7	LVT
+CDE8		LV
+CDE9	CE03	LVT
+CE04		LV
+CE05	CE1F	LVT
+CE20		LV
+CE21	CE3B	LVT
+CE3C		LV
+CE3D	CE57	LVT
+CE58		LV
+CE59	CE73	LVT
+CE74		LV
+CE75	CE8F	LVT
+CE90		LV
+CE91	CEAB	LVT
+CEAC		LV
+CEAD	CEC7	LVT
+CEC8		LV
+CEC9	CEE3	LVT
+CEE4		LV
+CEE5	CEFF	LVT
+CF00		LV
+CF01	CF1B	LVT
+CF1C		LV
+CF1D	CF37	LVT
+CF38		LV
+CF39	CF53	LVT
+CF54		LV
+CF55	CF6F	LVT
+CF70		LV
+CF71	CF8B	LVT
+CF8C		LV
+CF8D	CFA7	LVT
+CFA8		LV
+CFA9	CFC3	LVT
+CFC4		LV
+CFC5	CFDF	LVT
+CFE0		LV
+CFE1	CFFB	LVT
+CFFC		LV
+CFFD	D017	LVT
+D018		LV
+D019	D033	LVT
+D034		LV
+D035	D04F	LVT
+D050		LV
+D051	D06B	LVT
+D06C		LV
+D06D	D087	LVT
+D088		LV
+D089	D0A3	LVT
+D0A4		LV
+D0A5	D0BF	LVT
+D0C0		LV
+D0C1	D0DB	LVT
+D0DC		LV
+D0DD	D0F7	LVT
+D0F8		LV
+D0F9	D113	LVT
+D114		LV
+D115	D12F	LVT
+D130		LV
+D131	D14B	LVT
+D14C		LV
+D14D	D167	LVT
+D168		LV
+D169	D183	LVT
+D184		LV
+D185	D19F	LVT
+D1A0		LV
+D1A1	D1BB	LVT
+D1BC		LV
+D1BD	D1D7	LVT
+D1D8		LV
+D1D9	D1F3	LVT
+D1F4		LV
+D1F5	D20F	LVT
+D210		LV
+D211	D22B	LVT
+D22C		LV
+D22D	D247	LVT
+D248		LV
+D249	D263	LVT
+D264		LV
+D265	D27F	LVT
+D280		LV
+D281	D29B	LVT
+D29C		LV
+D29D	D2B7	LVT
+D2B8		LV
+D2B9	D2D3	LVT
+D2D4		LV
+D2D5	D2EF	LVT
+D2F0		LV
+D2F1	D30B	LVT
+D30C		LV
+D30D	D327	LVT
+D328		LV
+D329	D343	LVT
+D344		LV
+D345	D35F	LVT
+D360		LV
+D361	D37B	LVT
+D37C		LV
+D37D	D397	LVT
+D398		LV
+D399	D3B3	LVT
+D3B4		LV
+D3B5	D3CF	LVT
+D3D0		LV
+D3D1	D3EB	LVT
+D3EC		LV
+D3ED	D407	LVT
+D408		LV
+D409	D423	LVT
+D424		LV
+D425	D43F	LVT
+D440		LV
+D441	D45B	LVT
+D45C		LV
+D45D	D477	LVT
+D478		LV
+D479	D493	LVT
+D494		LV
+D495	D4AF	LVT
+D4B0		LV
+D4B1	D4CB	LVT
+D4CC		LV
+D4CD	D4E7	LVT
+D4E8		LV
+D4E9	D503	LVT
+D504		LV
+D505	D51F	LVT
+D520		LV
+D521	D53B	LVT
+D53C		LV
+D53D	D557	LVT
+D558		LV
+D559	D573	LVT
+D574		LV
+D575	D58F	LVT
+D590		LV
+D591	D5AB	LVT
+D5AC		LV
+D5AD	D5C7	LVT
+D5C8		LV
+D5C9	D5E3	LVT
+D5E4		LV
+D5E5	D5FF	LVT
+D600		LV
+D601	D61B	LVT
+D61C		LV
+D61D	D637	LVT
+D638		LV
+D639	D653	LVT
+D654		LV
+D655	D66F	LVT
+D670		LV
+D671	D68B	LVT
+D68C		LV
+D68D	D6A7	LVT
+D6A8		LV
+D6A9	D6C3	LVT
+D6C4		LV
+D6C5	D6DF	LVT
+D6E0		LV
+D6E1	D6FB	LVT
+D6FC		LV
+D6FD	D717	LVT
+D718		LV
+D719	D733	LVT
+D734		LV
+D735	D74F	LVT
+D750		LV
+D751	D76B	LVT
+D76C		LV
+D76D	D787	LVT
+D788		LV
+D789	D7A3	LVT
+D7B0	D7C6	V
+D7CB	D7FB	T
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToJt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToJt'}{'missing'} = 'Non_Joining';
+
+return <<'END';
+AD		T
+300	36F	T
+483	489	T
+591	5BD	T
+5BF		T
+5C1	5C2	T
+5C4	5C5	T
+5C7		T
+610	61A	T
+61C		T
+620		D
+622	625	R
+626		D
+627		R
+628		D
+629		R
+62A	62E	D
+62F	632	R
+633	63F	D
+640		C
+641	647	D
+648		R
+649	64A	D
+64B	65F	T
+66E	66F	D
+670		T
+671	673	R
+675	677	R
+678	687	D
+688	699	R
+69A	6BF	D
+6C0		R
+6C1	6C2	D
+6C3	6CB	R
+6CC		D
+6CD		R
+6CE		D
+6CF		R
+6D0	6D1	D
+6D2	6D3	R
+6D5		R
+6D6	6DC	T
+6DF	6E4	T
+6E7	6E8	T
+6EA	6ED	T
+6EE	6EF	R
+6FA	6FC	D
+6FF		D
+70F		T
+710		R
+711		T
+712	714	D
+715	719	R
+71A	71D	D
+71E		R
+71F	727	D
+728		R
+729		D
+72A		R
+72B		D
+72C		R
+72D	72E	D
+72F		R
+730	74A	T
+74D		R
+74E	758	D
+759	75B	R
+75C	76A	D
+76B	76C	R
+76D	770	D
+771		R
+772		D
+773	774	R
+775	777	D
+778	779	R
+77A	77F	D
+7A6	7B0	T
+7CA	7EA	D
+7EB	7F3	T
+7FA		C
+816	819	T
+81B	823	T
+825	827	T
+829	82D	T
+840		R
+841	845	D
+846	847	R
+848		D
+849		R
+84A	853	D
+854		R
+855		D
+859	85B	T
+860		D
+862	865	D
+867		R
+868		D
+869	86A	R
+8A0	8A9	D
+8AA	8AC	R
+8AE		R
+8AF	8B0	D
+8B1	8B2	R
+8B3	8B4	D
+8B6	8B8	D
+8B9		R
+8BA	8BD	D
+8D4	8E1	T
+8E3	902	T
+93A		T
+93C		T
+941	948	T
+94D		T
+951	957	T
+962	963	T
+981		T
+9BC		T
+9C1	9C4	T
+9CD		T
+9E2	9E3	T
+A01	A02	T
+A3C		T
+A41	A42	T
+A47	A48	T
+A4B	A4D	T
+A51		T
+A70	A71	T
+A75		T
+A81	A82	T
+ABC		T
+AC1	AC5	T
+AC7	AC8	T
+ACD		T
+AE2	AE3	T
+AFA	AFF	T
+B01		T
+B3C		T
+B3F		T
+B41	B44	T
+B4D		T
+B56		T
+B62	B63	T
+B82		T
+BC0		T
+BCD		T
+C00		T
+C3E	C40	T
+C46	C48	T
+C4A	C4D	T
+C55	C56	T
+C62	C63	T
+C81		T
+CBC		T
+CBF		T
+CC6		T
+CCC	CCD	T
+CE2	CE3	T
+D00	D01	T
+D3B	D3C	T
+D41	D44	T
+D4D		T
+D62	D63	T
+DCA		T
+DD2	DD4	T
+DD6		T
+E31		T
+E34	E3A	T
+E47	E4E	T
+EB1		T
+EB4	EB9	T
+EBB	EBC	T
+EC8	ECD	T
+F18	F19	T
+F35		T
+F37		T
+F39		T
+F71	F7E	T
+F80	F84	T
+F86	F87	T
+F8D	F97	T
+F99	FBC	T
+FC6		T
+102D	1030	T
+1032	1037	T
+1039	103A	T
+103D	103E	T
+1058	1059	T
+105E	1060	T
+1071	1074	T
+1082		T
+1085	1086	T
+108D		T
+109D		T
+135D	135F	T
+1712	1714	T
+1732	1734	T
+1752	1753	T
+1772	1773	T
+17B4	17B5	T
+17B7	17BD	T
+17C6		T
+17C9	17D3	T
+17DD		T
+1807		D
+180A		C
+180B	180D	T
+1820	1877	D
+1885	1886	T
+1887	18A8	D
+18A9		T
+18AA		D
+1920	1922	T
+1927	1928	T
+1932		T
+1939	193B	T
+1A17	1A18	T
+1A1B		T
+1A56		T
+1A58	1A5E	T
+1A60		T
+1A62		T
+1A65	1A6C	T
+1A73	1A7C	T
+1A7F		T
+1AB0	1ABE	T
+1B00	1B03	T
+1B34		T
+1B36	1B3A	T
+1B3C		T
+1B42		T
+1B6B	1B73	T
+1B80	1B81	T
+1BA2	1BA5	T
+1BA8	1BA9	T
+1BAB	1BAD	T
+1BE6		T
+1BE8	1BE9	T
+1BED		T
+1BEF	1BF1	T
+1C2C	1C33	T
+1C36	1C37	T
+1CD0	1CD2	T
+1CD4	1CE0	T
+1CE2	1CE8	T
+1CED		T
+1CF4		T
+1CF8	1CF9	T
+1DC0	1DF9	T
+1DFB	1DFF	T
+200B		T
+200D		C
+200E	200F	T
+202A	202E	T
+2060	2064	T
+206A	206F	T
+20D0	20F0	T
+2CEF	2CF1	T
+2D7F		T
+2DE0	2DFF	T
+302A	302D	T
+3099	309A	T
+A66F	A672	T
+A674	A67D	T
+A69E	A69F	T
+A6F0	A6F1	T
+A802		T
+A806		T
+A80B		T
+A825	A826	T
+A840	A871	D
+A872		L
+A8C4	A8C5	T
+A8E0	A8F1	T
+A926	A92D	T
+A947	A951	T
+A980	A982	T
+A9B3		T
+A9B6	A9B9	T
+A9BC		T
+A9E5		T
+AA29	AA2E	T
+AA31	AA32	T
+AA35	AA36	T
+AA43		T
+AA4C		T
+AA7C		T
+AAB0		T
+AAB2	AAB4	T
+AAB7	AAB8	T
+AABE	AABF	T
+AAC1		T
+AAEC	AAED	T
+AAF6		T
+ABE5		T
+ABE8		T
+ABED		T
+FB1E		T
+FE00	FE0F	T
+FE20	FE2F	T
+FEFF		T
+FFF9	FFFB	T
+101FD		T
+102E0		T
+10376	1037A	T
+10A01	10A03	T
+10A05	10A06	T
+10A0C	10A0F	T
+10A38	10A3A	T
+10A3F		T
+10AC0	10AC4	D
+10AC5		R
+10AC7		R
+10AC9	10ACA	R
+10ACD		L
+10ACE	10AD2	R
+10AD3	10AD6	D
+10AD7		L
+10AD8	10ADC	D
+10ADD		R
+10ADE	10AE0	D
+10AE1		R
+10AE4		R
+10AE5	10AE6	T
+10AEB	10AEE	D
+10AEF		R
+10B80		D
+10B81		R
+10B82		D
+10B83	10B85	R
+10B86	10B88	D
+10B89		R
+10B8A	10B8B	D
+10B8C		R
+10B8D		D
+10B8E	10B8F	R
+10B90		D
+10B91		R
+10BA9	10BAC	R
+10BAD	10BAE	D
+11001		T
+11038	11046	T
+1107F	11081	T
+110B3	110B6	T
+110B9	110BA	T
+110BD		T
+11100	11102	T
+11127	1112B	T
+1112D	11134	T
+11173		T
+11180	11181	T
+111B6	111BE	T
+111CA	111CC	T
+1122F	11231	T
+11234		T
+11236	11237	T
+1123E		T
+112DF		T
+112E3	112EA	T
+11300	11301	T
+1133C		T
+11340		T
+11366	1136C	T
+11370	11374	T
+11438	1143F	T
+11442	11444	T
+11446		T
+114B3	114B8	T
+114BA		T
+114BF	114C0	T
+114C2	114C3	T
+115B2	115B5	T
+115BC	115BD	T
+115BF	115C0	T
+115DC	115DD	T
+11633	1163A	T
+1163D		T
+1163F	11640	T
+116AB		T
+116AD		T
+116B0	116B5	T
+116B7		T
+1171D	1171F	T
+11722	11725	T
+11727	1172B	T
+11A01	11A06	T
+11A09	11A0A	T
+11A33	11A38	T
+11A3B	11A3E	T
+11A47		T
+11A51	11A56	T
+11A59	11A5B	T
+11A8A	11A96	T
+11A98	11A99	T
+11C30	11C36	T
+11C38	11C3D	T
+11C3F		T
+11C92	11CA7	T
+11CAA	11CB0	T
+11CB2	11CB3	T
+11CB5	11CB6	T
+11D31	11D36	T
+11D3A		T
+11D3C	11D3D	T
+11D3F	11D45	T
+11D47		T
+16AF0	16AF4	T
+16B30	16B36	T
+16F8F	16F92	T
+1BC9D	1BC9E	T
+1BCA0	1BCA3	T
+1D167	1D169	T
+1D173	1D182	T
+1D185	1D18B	T
+1D1AA	1D1AD	T
+1D242	1D244	T
+1DA00	1DA36	T
+1DA3B	1DA6C	T
+1DA75		T
+1DA84		T
+1DA9B	1DA9F	T
+1DAA1	1DAAF	T
+1E000	1E006	T
+1E008	1E018	T
+1E01B	1E021	T
+1E023	1E024	T
+1E026	1E02A	T
+1E8D0	1E8D6	T
+1E900	1E943	D
+1E944	1E94A	T
+E0001		T
+E0020	E007F	T
+E0100	E01EF	T
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNa1'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNa1'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0		NULL
+1		START OF HEADING
+2		START OF TEXT
+3		END OF TEXT
+4		END OF TRANSMISSION
+5		ENQUIRY
+6		ACKNOWLEDGE
+7		BELL
+8		BACKSPACE
+9		CHARACTER TABULATION
+A		LINE FEED (LF)
+B		LINE TABULATION
+C		FORM FEED (FF)
+D		CARRIAGE RETURN (CR)
+E		SHIFT OUT
+F		SHIFT IN
+10		DATA LINK ESCAPE
+11		DEVICE CONTROL ONE
+12		DEVICE CONTROL TWO
+13		DEVICE CONTROL THREE
+14		DEVICE CONTROL FOUR
+15		NEGATIVE ACKNOWLEDGE
+16		SYNCHRONOUS IDLE
+17		END OF TRANSMISSION BLOCK
+18		CANCEL
+19		END OF MEDIUM
+1A		SUBSTITUTE
+1B		ESCAPE
+1C		INFORMATION SEPARATOR FOUR
+1D		INFORMATION SEPARATOR THREE
+1E		INFORMATION SEPARATOR TWO
+1F		INFORMATION SEPARATOR ONE
+27		APOSTROPHE-QUOTE
+28		OPENING PARENTHESIS
+29		CLOSING PARENTHESIS
+2E		PERIOD
+2F		SLASH
+5B		OPENING SQUARE BRACKET
+5C		BACKSLASH
+5D		CLOSING SQUARE BRACKET
+5E		SPACING CIRCUMFLEX
+5F		SPACING UNDERSCORE
+60		SPACING GRAVE
+7B		OPENING CURLY BRACKET
+7C		VERTICAL BAR
+7D		CLOSING CURLY BRACKET
+7F		DELETE
+82		BREAK PERMITTED HERE
+83		NO BREAK HERE
+85		NEXT LINE (NEL)
+86		START OF SELECTED AREA
+87		END OF SELECTED AREA
+88		CHARACTER TABULATION SET
+89		CHARACTER TABULATION WITH JUSTIFICATION
+8A		LINE TABULATION SET
+8B		PARTIAL LINE FORWARD
+8C		PARTIAL LINE BACKWARD
+8D		REVERSE LINE FEED
+8E		SINGLE SHIFT TWO
+8F		SINGLE SHIFT THREE
+90		DEVICE CONTROL STRING
+91		PRIVATE USE ONE
+92		PRIVATE USE TWO
+93		SET TRANSMIT STATE
+94		CANCEL CHARACTER
+95		MESSAGE WAITING
+96		START OF GUARDED AREA
+97		END OF GUARDED AREA
+98		START OF STRING
+9A		SINGLE CHARACTER INTRODUCER
+9B		CONTROL SEQUENCE INTRODUCER
+9C		STRING TERMINATOR
+9D		OPERATING SYSTEM COMMAND
+9E		PRIVACY MESSAGE
+9F		APPLICATION PROGRAM COMMAND
+A0		NON-BREAKING SPACE
+A6		BROKEN VERTICAL BAR
+A8		SPACING DIAERESIS
+AB		LEFT POINTING GUILLEMET
+AE		REGISTERED TRADE MARK SIGN
+AF		SPACING MACRON
+B1		PLUS-OR-MINUS SIGN
+B2		SUPERSCRIPT DIGIT TWO
+B3		SUPERSCRIPT DIGIT THREE
+B4		SPACING ACUTE
+B6		PARAGRAPH SIGN
+B8		SPACING CEDILLA
+B9		SUPERSCRIPT DIGIT ONE
+BB		RIGHT POINTING GUILLEMET
+BC		FRACTION ONE QUARTER
+BD		FRACTION ONE HALF
+BE		FRACTION THREE QUARTERS
+C0		LATIN CAPITAL LETTER A GRAVE
+C1		LATIN CAPITAL LETTER A ACUTE
+C2		LATIN CAPITAL LETTER A CIRCUMFLEX
+C3		LATIN CAPITAL LETTER A TILDE
+C4		LATIN CAPITAL LETTER A DIAERESIS
+C5		LATIN CAPITAL LETTER A RING
+C6		LATIN CAPITAL LETTER A E
+C7		LATIN CAPITAL LETTER C CEDILLA
+C8		LATIN CAPITAL LETTER E GRAVE
+C9		LATIN CAPITAL LETTER E ACUTE
+CA		LATIN CAPITAL LETTER E CIRCUMFLEX
+CB		LATIN CAPITAL LETTER E DIAERESIS
+CC		LATIN CAPITAL LETTER I GRAVE
+CD		LATIN CAPITAL LETTER I ACUTE
+CE		LATIN CAPITAL LETTER I CIRCUMFLEX
+CF		LATIN CAPITAL LETTER I DIAERESIS
+D1		LATIN CAPITAL LETTER N TILDE
+D2		LATIN CAPITAL LETTER O GRAVE
+D3		LATIN CAPITAL LETTER O ACUTE
+D4		LATIN CAPITAL LETTER O CIRCUMFLEX
+D5		LATIN CAPITAL LETTER O TILDE
+D6		LATIN CAPITAL LETTER O DIAERESIS
+D8		LATIN CAPITAL LETTER O SLASH
+D9		LATIN CAPITAL LETTER U GRAVE
+DA		LATIN CAPITAL LETTER U ACUTE
+DB		LATIN CAPITAL LETTER U CIRCUMFLEX
+DC		LATIN CAPITAL LETTER U DIAERESIS
+DD		LATIN CAPITAL LETTER Y ACUTE
+E0		LATIN SMALL LETTER A GRAVE
+E1		LATIN SMALL LETTER A ACUTE
+E2		LATIN SMALL LETTER A CIRCUMFLEX
+E3		LATIN SMALL LETTER A TILDE
+E4		LATIN SMALL LETTER A DIAERESIS
+E5		LATIN SMALL LETTER A RING
+E6		LATIN SMALL LETTER A E
+E7		LATIN SMALL LETTER C CEDILLA
+E8		LATIN SMALL LETTER E GRAVE
+E9		LATIN SMALL LETTER E ACUTE
+EA		LATIN SMALL LETTER E CIRCUMFLEX
+EB		LATIN SMALL LETTER E DIAERESIS
+EC		LATIN SMALL LETTER I GRAVE
+ED		LATIN SMALL LETTER I ACUTE
+EE		LATIN SMALL LETTER I CIRCUMFLEX
+EF		LATIN SMALL LETTER I DIAERESIS
+F1		LATIN SMALL LETTER N TILDE
+F2		LATIN SMALL LETTER O GRAVE
+F3		LATIN SMALL LETTER O ACUTE
+F4		LATIN SMALL LETTER O CIRCUMFLEX
+F5		LATIN SMALL LETTER O TILDE
+F6		LATIN SMALL LETTER O DIAERESIS
+F8		LATIN SMALL LETTER O SLASH
+F9		LATIN SMALL LETTER U GRAVE
+FA		LATIN SMALL LETTER U ACUTE
+FB		LATIN SMALL LETTER U CIRCUMFLEX
+FC		LATIN SMALL LETTER U DIAERESIS
+FD		LATIN SMALL LETTER Y ACUTE
+FF		LATIN SMALL LETTER Y DIAERESIS
+100		LATIN CAPITAL LETTER A MACRON
+101		LATIN SMALL LETTER A MACRON
+102		LATIN CAPITAL LETTER A BREVE
+103		LATIN SMALL LETTER A BREVE
+104		LATIN CAPITAL LETTER A OGONEK
+105		LATIN SMALL LETTER A OGONEK
+106		LATIN CAPITAL LETTER C ACUTE
+107		LATIN SMALL LETTER C ACUTE
+108		LATIN CAPITAL LETTER C CIRCUMFLEX
+109		LATIN SMALL LETTER C CIRCUMFLEX
+10A		LATIN CAPITAL LETTER C DOT
+10B		LATIN SMALL LETTER C DOT
+10C		LATIN CAPITAL LETTER C HACEK
+10D		LATIN SMALL LETTER C HACEK
+10E		LATIN CAPITAL LETTER D HACEK
+10F		LATIN SMALL LETTER D HACEK
+110		LATIN CAPITAL LETTER D BAR
+111		LATIN SMALL LETTER D BAR
+112		LATIN CAPITAL LETTER E MACRON
+113		LATIN SMALL LETTER E MACRON
+114		LATIN CAPITAL LETTER E BREVE
+115		LATIN SMALL LETTER E BREVE
+116		LATIN CAPITAL LETTER E DOT
+117		LATIN SMALL LETTER E DOT
+118		LATIN CAPITAL LETTER E OGONEK
+119		LATIN SMALL LETTER E OGONEK
+11A		LATIN CAPITAL LETTER E HACEK
+11B		LATIN SMALL LETTER E HACEK
+11C		LATIN CAPITAL LETTER G CIRCUMFLEX
+11D		LATIN SMALL LETTER G CIRCUMFLEX
+11E		LATIN CAPITAL LETTER G BREVE
+11F		LATIN SMALL LETTER G BREVE
+120		LATIN CAPITAL LETTER G DOT
+121		LATIN SMALL LETTER G DOT
+122		LATIN CAPITAL LETTER G CEDILLA
+123		LATIN SMALL LETTER G CEDILLA
+124		LATIN CAPITAL LETTER H CIRCUMFLEX
+125		LATIN SMALL LETTER H CIRCUMFLEX
+126		LATIN CAPITAL LETTER H BAR
+127		LATIN SMALL LETTER H BAR
+128		LATIN CAPITAL LETTER I TILDE
+129		LATIN SMALL LETTER I TILDE
+12A		LATIN CAPITAL LETTER I MACRON
+12B		LATIN SMALL LETTER I MACRON
+12C		LATIN CAPITAL LETTER I BREVE
+12D		LATIN SMALL LETTER I BREVE
+12E		LATIN CAPITAL LETTER I OGONEK
+12F		LATIN SMALL LETTER I OGONEK
+130		LATIN CAPITAL LETTER I DOT
+132		LATIN CAPITAL LETTER I J
+133		LATIN SMALL LETTER I J
+134		LATIN CAPITAL LETTER J CIRCUMFLEX
+135		LATIN SMALL LETTER J CIRCUMFLEX
+136		LATIN CAPITAL LETTER K CEDILLA
+137		LATIN SMALL LETTER K CEDILLA
+139		LATIN CAPITAL LETTER L ACUTE
+13A		LATIN SMALL LETTER L ACUTE
+13B		LATIN CAPITAL LETTER L CEDILLA
+13C		LATIN SMALL LETTER L CEDILLA
+13D		LATIN CAPITAL LETTER L HACEK
+13E		LATIN SMALL LETTER L HACEK
+141		LATIN CAPITAL LETTER L SLASH
+142		LATIN SMALL LETTER L SLASH
+143		LATIN CAPITAL LETTER N ACUTE
+144		LATIN SMALL LETTER N ACUTE
+145		LATIN CAPITAL LETTER N CEDILLA
+146		LATIN SMALL LETTER N CEDILLA
+147		LATIN CAPITAL LETTER N HACEK
+148		LATIN SMALL LETTER N HACEK
+149		LATIN SMALL LETTER APOSTROPHE N
+14C		LATIN CAPITAL LETTER O MACRON
+14D		LATIN SMALL LETTER O MACRON
+14E		LATIN CAPITAL LETTER O BREVE
+14F		LATIN SMALL LETTER O BREVE
+150		LATIN CAPITAL LETTER O DOUBLE ACUTE
+151		LATIN SMALL LETTER O DOUBLE ACUTE
+152		LATIN CAPITAL LETTER O E
+153		LATIN SMALL LETTER O E
+154		LATIN CAPITAL LETTER R ACUTE
+155		LATIN SMALL LETTER R ACUTE
+156		LATIN CAPITAL LETTER R CEDILLA
+157		LATIN SMALL LETTER R CEDILLA
+158		LATIN CAPITAL LETTER R HACEK
+159		LATIN SMALL LETTER R HACEK
+15A		LATIN CAPITAL LETTER S ACUTE
+15B		LATIN SMALL LETTER S ACUTE
+15C		LATIN CAPITAL LETTER S CIRCUMFLEX
+15D		LATIN SMALL LETTER S CIRCUMFLEX
+15E		LATIN CAPITAL LETTER S CEDILLA
+15F		LATIN SMALL LETTER S CEDILLA
+160		LATIN CAPITAL LETTER S HACEK
+161		LATIN SMALL LETTER S HACEK
+162		LATIN CAPITAL LETTER T CEDILLA
+163		LATIN SMALL LETTER T CEDILLA
+164		LATIN CAPITAL LETTER T HACEK
+165		LATIN SMALL LETTER T HACEK
+166		LATIN CAPITAL LETTER T BAR
+167		LATIN SMALL LETTER T BAR
+168		LATIN CAPITAL LETTER U TILDE
+169		LATIN SMALL LETTER U TILDE
+16A		LATIN CAPITAL LETTER U MACRON
+16B		LATIN SMALL LETTER U MACRON
+16C		LATIN CAPITAL LETTER U BREVE
+16D		LATIN SMALL LETTER U BREVE
+16E		LATIN CAPITAL LETTER U RING
+16F		LATIN SMALL LETTER U RING
+170		LATIN CAPITAL LETTER U DOUBLE ACUTE
+171		LATIN SMALL LETTER U DOUBLE ACUTE
+172		LATIN CAPITAL LETTER U OGONEK
+173		LATIN SMALL LETTER U OGONEK
+174		LATIN CAPITAL LETTER W CIRCUMFLEX
+175		LATIN SMALL LETTER W CIRCUMFLEX
+176		LATIN CAPITAL LETTER Y CIRCUMFLEX
+177		LATIN SMALL LETTER Y CIRCUMFLEX
+178		LATIN CAPITAL LETTER Y DIAERESIS
+179		LATIN CAPITAL LETTER Z ACUTE
+17A		LATIN SMALL LETTER Z ACUTE
+17B		LATIN CAPITAL LETTER Z DOT
+17C		LATIN SMALL LETTER Z DOT
+17D		LATIN CAPITAL LETTER Z HACEK
+17E		LATIN SMALL LETTER Z HACEK
+180		LATIN SMALL LETTER B BAR
+181		LATIN CAPITAL LETTER B HOOK
+182		LATIN CAPITAL LETTER B TOPBAR
+183		LATIN SMALL LETTER B TOPBAR
+187		LATIN CAPITAL LETTER C HOOK
+188		LATIN SMALL LETTER C HOOK
+18A		LATIN CAPITAL LETTER D HOOK
+18B		LATIN CAPITAL LETTER D TOPBAR
+18C		LATIN SMALL LETTER D TOPBAR
+18E		LATIN CAPITAL LETTER TURNED E
+190		LATIN CAPITAL LETTER EPSILON
+191		LATIN CAPITAL LETTER F HOOK
+192		LATIN SMALL LETTER SCRIPT F
+193		LATIN CAPITAL LETTER G HOOK
+195		LATIN SMALL LETTER H V
+197		LATIN CAPITAL LETTER BARRED I
+198		LATIN CAPITAL LETTER K HOOK
+199		LATIN SMALL LETTER K HOOK
+19A		LATIN SMALL LETTER BARRED L
+19B		LATIN SMALL LETTER BARRED LAMBDA
+19D		LATIN CAPITAL LETTER N HOOK
+19F		LATIN CAPITAL LETTER BARRED O
+1A0		LATIN CAPITAL LETTER O HORN
+1A1		LATIN SMALL LETTER O HORN
+1A2		LATIN CAPITAL LETTER O I
+1A3		LATIN SMALL LETTER O I
+1A4		LATIN CAPITAL LETTER P HOOK
+1A5		LATIN SMALL LETTER P HOOK
+1A6		LATIN LETTER Y R
+1AB		LATIN SMALL LETTER T PALATAL HOOK
+1AC		LATIN CAPITAL LETTER T HOOK
+1AD		LATIN SMALL LETTER T HOOK
+1AE		LATIN CAPITAL LETTER T RETROFLEX HOOK
+1AF		LATIN CAPITAL LETTER U HORN
+1B0		LATIN SMALL LETTER U HORN
+1B2		LATIN CAPITAL LETTER SCRIPT V
+1B3		LATIN CAPITAL LETTER Y HOOK
+1B4		LATIN SMALL LETTER Y HOOK
+1B5		LATIN CAPITAL LETTER Z BAR
+1B6		LATIN SMALL LETTER Z BAR
+1B7		LATIN CAPITAL LETTER YOGH
+1B8		LATIN CAPITAL LETTER REVERSED YOGH
+1B9		LATIN SMALL LETTER REVERSED YOGH
+1BA		LATIN SMALL LETTER YOGH WITH TAIL
+1BB		LATIN LETTER TWO BAR
+1BE		LATIN LETTER INVERTED GLOTTAL STOP BAR
+1C0		LATIN LETTER PIPE
+1C1		LATIN LETTER DOUBLE PIPE
+1C2		LATIN LETTER PIPE DOUBLE BAR
+1C3		LATIN LETTER EXCLAMATION MARK
+1C4		LATIN CAPITAL LETTER D Z HACEK
+1C5		LATIN LETTER CAPITAL D SMALL Z HACEK
+1C6		LATIN SMALL LETTER D Z HACEK
+1C7		LATIN CAPITAL LETTER L J
+1C8		LATIN LETTER CAPITAL L SMALL J
+1C9		LATIN SMALL LETTER L J
+1CA		LATIN CAPITAL LETTER N J
+1CB		LATIN LETTER CAPITAL N SMALL J
+1CC		LATIN SMALL LETTER N J
+1CD		LATIN CAPITAL LETTER A HACEK
+1CE		LATIN SMALL LETTER A HACEK
+1CF		LATIN CAPITAL LETTER I HACEK
+1D0		LATIN SMALL LETTER I HACEK
+1D1		LATIN CAPITAL LETTER O HACEK
+1D2		LATIN SMALL LETTER O HACEK
+1D3		LATIN CAPITAL LETTER U HACEK
+1D4		LATIN SMALL LETTER U HACEK
+1D5		LATIN CAPITAL LETTER U DIAERESIS MACRON
+1D6		LATIN SMALL LETTER U DIAERESIS MACRON
+1D7		LATIN CAPITAL LETTER U DIAERESIS ACUTE
+1D8		LATIN SMALL LETTER U DIAERESIS ACUTE
+1D9		LATIN CAPITAL LETTER U DIAERESIS HACEK
+1DA		LATIN SMALL LETTER U DIAERESIS HACEK
+1DB		LATIN CAPITAL LETTER U DIAERESIS GRAVE
+1DC		LATIN SMALL LETTER U DIAERESIS GRAVE
+1DE		LATIN CAPITAL LETTER A DIAERESIS MACRON
+1DF		LATIN SMALL LETTER A DIAERESIS MACRON
+1E0		LATIN CAPITAL LETTER A DOT MACRON
+1E1		LATIN SMALL LETTER A DOT MACRON
+1E2		LATIN CAPITAL LETTER A E MACRON
+1E3		LATIN SMALL LETTER A E MACRON
+1E4		LATIN CAPITAL LETTER G BAR
+1E5		LATIN SMALL LETTER G BAR
+1E6		LATIN CAPITAL LETTER G HACEK
+1E7		LATIN SMALL LETTER G HACEK
+1E8		LATIN CAPITAL LETTER K HACEK
+1E9		LATIN SMALL LETTER K HACEK
+1EA		LATIN CAPITAL LETTER O OGONEK
+1EB		LATIN SMALL LETTER O OGONEK
+1EC		LATIN CAPITAL LETTER O OGONEK MACRON
+1ED		LATIN SMALL LETTER O OGONEK MACRON
+1EE		LATIN CAPITAL LETTER YOGH HACEK
+1EF		LATIN SMALL LETTER YOGH HACEK
+1F0		LATIN SMALL LETTER J HACEK
+251		LATIN SMALL LETTER SCRIPT A
+252		LATIN SMALL LETTER TURNED SCRIPT A
+253		LATIN SMALL LETTER B HOOK
+255		LATIN SMALL LETTER C CURL
+256		LATIN SMALL LETTER D RETROFLEX HOOK
+257		LATIN SMALL LETTER D HOOK
+25A		LATIN SMALL LETTER SCHWA HOOK
+25B		LATIN SMALL LETTER EPSILON
+25C		LATIN SMALL LETTER REVERSED EPSILON
+25D		LATIN SMALL LETTER REVERSED EPSILON HOOK
+25E		LATIN SMALL LETTER CLOSED REVERSED EPSILON
+25F		LATIN SMALL LETTER DOTLESS J BAR
+260		LATIN SMALL LETTER G HOOK
+264		LATIN SMALL LETTER BABY GAMMA
+266		LATIN SMALL LETTER H HOOK
+267		LATIN SMALL LETTER HENG HOOK
+268		LATIN SMALL LETTER BARRED I
+26C		LATIN SMALL LETTER L BELT
+26D		LATIN SMALL LETTER L RETROFLEX HOOK
+26E		LATIN SMALL LETTER L YOGH
+271		LATIN SMALL LETTER M HOOK
+272		LATIN SMALL LETTER N HOOK
+273		LATIN SMALL LETTER N RETROFLEX HOOK
+276		LATIN LETTER SMALL CAPITAL O E
+27B		LATIN SMALL LETTER TURNED R HOOK
+27D		LATIN SMALL LETTER R HOOK
+27E		LATIN SMALL LETTER FISHHOOK R
+27F		LATIN SMALL LETTER REVERSED FISHHOOK R
+282		LATIN SMALL LETTER S HOOK
+284		LATIN SMALL LETTER DOTLESS J BAR HOOK
+286		LATIN SMALL LETTER ESH CURL
+288		LATIN SMALL LETTER T RETROFLEX HOOK
+28B		LATIN SMALL LETTER SCRIPT V
+290		LATIN SMALL LETTER Z RETROFLEX HOOK
+291		LATIN SMALL LETTER Z CURL
+292		LATIN SMALL LETTER YOGH
+293		LATIN SMALL LETTER YOGH CURL
+295		LATIN LETTER REVERSED GLOTTAL STOP
+298		LATIN LETTER BULLSEYE
+29A		LATIN SMALL LETTER CLOSED EPSILON
+29B		LATIN LETTER SMALL CAPITAL G HOOK
+29D		LATIN SMALL LETTER CROSSED-TAIL J
+2A0		LATIN SMALL LETTER Q HOOK
+2A1		LATIN LETTER GLOTTAL STOP BAR
+2A2		LATIN LETTER REVERSED GLOTTAL STOP BAR
+2A3		LATIN SMALL LETTER D Z
+2A4		LATIN SMALL LETTER D YOGH
+2A5		LATIN SMALL LETTER D Z CURL
+2A6		LATIN SMALL LETTER T S
+2A7		LATIN SMALL LETTER T ESH
+2A8		LATIN SMALL LETTER T C CURL
+2B1		MODIFIER LETTER SMALL H HOOK
+2B5		MODIFIER LETTER SMALL TURNED R HOOK
+2C6		MODIFIER LETTER CIRCUMFLEX
+2C7		MODIFIER LETTER HACEK
+2CA		MODIFIER LETTER ACUTE
+2CB		MODIFIER LETTER GRAVE
+2CE		MODIFIER LETTER LOW GRAVE
+2CF		MODIFIER LETTER LOW ACUTE
+2D2		MODIFIER LETTER CENTERED RIGHT HALF RING
+2D3		MODIFIER LETTER CENTERED LEFT HALF RING
+2D8		SPACING BREVE
+2D9		SPACING DOT ABOVE
+2DA		SPACING RING ABOVE
+2DB		SPACING OGONEK
+2DC		SPACING TILDE
+2DD		SPACING DOUBLE ACUTE
+300		NON-SPACING GRAVE
+301		NON-SPACING ACUTE
+302		NON-SPACING CIRCUMFLEX
+303		NON-SPACING TILDE
+304		NON-SPACING MACRON
+305		NON-SPACING OVERSCORE
+306		NON-SPACING BREVE
+307		NON-SPACING DOT ABOVE
+308		NON-SPACING DIAERESIS
+309		NON-SPACING HOOK ABOVE
+30A		NON-SPACING RING ABOVE
+30B		NON-SPACING DOUBLE ACUTE
+30C		NON-SPACING HACEK
+30D		NON-SPACING VERTICAL LINE ABOVE
+30E		NON-SPACING DOUBLE VERTICAL LINE ABOVE
+30F		NON-SPACING DOUBLE GRAVE
+310		NON-SPACING CANDRABINDU
+311		NON-SPACING INVERTED BREVE
+312		NON-SPACING TURNED COMMA ABOVE
+313		NON-SPACING COMMA ABOVE
+314		NON-SPACING REVERSED COMMA ABOVE
+315		NON-SPACING COMMA ABOVE RIGHT
+316		NON-SPACING GRAVE BELOW
+317		NON-SPACING ACUTE BELOW
+318		NON-SPACING LEFT TACK BELOW
+319		NON-SPACING RIGHT TACK BELOW
+31A		NON-SPACING LEFT ANGLE ABOVE
+31B		NON-SPACING HORN
+31C		NON-SPACING LEFT HALF RING BELOW
+31D		NON-SPACING UP TACK BELOW
+31E		NON-SPACING DOWN TACK BELOW
+31F		NON-SPACING PLUS SIGN BELOW
+320		NON-SPACING MINUS SIGN BELOW
+321		NON-SPACING PALATALIZED HOOK BELOW
+322		NON-SPACING RETROFLEX HOOK BELOW
+323		NON-SPACING DOT BELOW
+324		NON-SPACING DOUBLE DOT BELOW
+325		NON-SPACING RING BELOW
+326		NON-SPACING COMMA BELOW
+327		NON-SPACING CEDILLA
+328		NON-SPACING OGONEK
+329		NON-SPACING VERTICAL LINE BELOW
+32A		NON-SPACING BRIDGE BELOW
+32B		NON-SPACING INVERTED DOUBLE ARCH BELOW
+32C		NON-SPACING HACEK BELOW
+32D		NON-SPACING CIRCUMFLEX BELOW
+32E		NON-SPACING BREVE BELOW
+32F		NON-SPACING INVERTED BREVE BELOW
+330		NON-SPACING TILDE BELOW
+331		NON-SPACING MACRON BELOW
+332		NON-SPACING UNDERSCORE
+333		NON-SPACING DOUBLE UNDERSCORE
+334		NON-SPACING TILDE OVERLAY
+335		NON-SPACING SHORT BAR OVERLAY
+336		NON-SPACING LONG BAR OVERLAY
+337		NON-SPACING SHORT SLASH OVERLAY
+338		NON-SPACING LONG SLASH OVERLAY
+339		NON-SPACING RIGHT HALF RING BELOW
+33A		NON-SPACING INVERTED BRIDGE BELOW
+33B		NON-SPACING SQUARE BELOW
+33C		NON-SPACING SEAGULL BELOW
+33D		NON-SPACING X ABOVE
+33E		NON-SPACING VERTICAL TILDE
+33F		NON-SPACING DOUBLE OVERSCORE
+340		NON-SPACING GRAVE TONE MARK
+341		NON-SPACING ACUTE TONE MARK
+344		GREEK NON-SPACING DIAERESIS TONOS
+345		GREEK NON-SPACING IOTA BELOW
+374		GREEK UPPER NUMERAL SIGN
+37A		GREEK SPACING IOTA BELOW
+384		GREEK SPACING TONOS
+385		GREEK SPACING DIAERESIS TONOS
+386		GREEK CAPITAL LETTER ALPHA TONOS
+388		GREEK CAPITAL LETTER EPSILON TONOS
+389		GREEK CAPITAL LETTER ETA TONOS
+38A		GREEK CAPITAL LETTER IOTA TONOS
+38C		GREEK CAPITAL LETTER OMICRON TONOS
+38E		GREEK CAPITAL LETTER UPSILON TONOS
+38F		GREEK CAPITAL LETTER OMEGA TONOS
+390		GREEK SMALL LETTER IOTA DIAERESIS TONOS
+39B		GREEK CAPITAL LETTER LAMBDA
+3AA		GREEK CAPITAL LETTER IOTA DIAERESIS
+3AB		GREEK CAPITAL LETTER UPSILON DIAERESIS
+3AC		GREEK SMALL LETTER ALPHA TONOS
+3AD		GREEK SMALL LETTER EPSILON TONOS
+3AE		GREEK SMALL LETTER ETA TONOS
+3AF		GREEK SMALL LETTER IOTA TONOS
+3B0		GREEK SMALL LETTER UPSILON DIAERESIS TONOS
+3BB		GREEK SMALL LETTER LAMBDA
+3CA		GREEK SMALL LETTER IOTA DIAERESIS
+3CB		GREEK SMALL LETTER UPSILON DIAERESIS
+3CC		GREEK SMALL LETTER OMICRON TONOS
+3CD		GREEK SMALL LETTER UPSILON TONOS
+3CE		GREEK SMALL LETTER OMEGA TONOS
+3D0		GREEK SMALL LETTER CURLED BETA
+3D1		GREEK SMALL LETTER SCRIPT THETA
+3D2		GREEK CAPITAL LETTER UPSILON HOOK
+3D3		GREEK CAPITAL LETTER UPSILON HOOK TONOS
+3D4		GREEK CAPITAL LETTER UPSILON HOOK DIAERESIS
+3D5		GREEK SMALL LETTER SCRIPT PHI
+3D6		GREEK SMALL LETTER OMEGA PI
+3DA		GREEK CAPITAL LETTER STIGMA
+3DC		GREEK CAPITAL LETTER DIGAMMA
+3DE		GREEK CAPITAL LETTER KOPPA
+3E0		GREEK CAPITAL LETTER SAMPI
+3E2		GREEK CAPITAL LETTER SHEI
+3E3		GREEK SMALL LETTER SHEI
+3E4		GREEK CAPITAL LETTER FEI
+3E5		GREEK SMALL LETTER FEI
+3E6		GREEK CAPITAL LETTER KHEI
+3E7		GREEK SMALL LETTER KHEI
+3E8		GREEK CAPITAL LETTER HORI
+3E9		GREEK SMALL LETTER HORI
+3EA		GREEK CAPITAL LETTER GANGIA
+3EB		GREEK SMALL LETTER GANGIA
+3EC		GREEK CAPITAL LETTER SHIMA
+3ED		GREEK SMALL LETTER SHIMA
+3EE		GREEK CAPITAL LETTER DEI
+3EF		GREEK SMALL LETTER DEI
+3F0		GREEK SMALL LETTER SCRIPT KAPPA
+3F1		GREEK SMALL LETTER TAILED RHO
+3F2		GREEK SMALL LETTER LUNATE SIGMA
+404		CYRILLIC CAPITAL LETTER E
+406		CYRILLIC CAPITAL LETTER I
+413		CYRILLIC CAPITAL LETTER GE
+418		CYRILLIC CAPITAL LETTER II
+419		CYRILLIC CAPITAL LETTER SHORT II
+425		CYRILLIC CAPITAL LETTER KHA
+42B		CYRILLIC CAPITAL LETTER YERI
+42D		CYRILLIC CAPITAL LETTER REVERSED E
+42E		CYRILLIC CAPITAL LETTER IU
+42F		CYRILLIC CAPITAL LETTER IA
+433		CYRILLIC SMALL LETTER GE
+438		CYRILLIC SMALL LETTER II
+439		CYRILLIC SMALL LETTER SHORT II
+445		CYRILLIC SMALL LETTER KHA
+44B		CYRILLIC SMALL LETTER YERI
+44D		CYRILLIC SMALL LETTER REVERSED E
+44E		CYRILLIC SMALL LETTER IU
+44F		CYRILLIC SMALL LETTER IA
+454		CYRILLIC SMALL LETTER E
+456		CYRILLIC SMALL LETTER I
+476		CYRILLIC CAPITAL LETTER IZHITSA DOUBLE GRAVE
+477		CYRILLIC SMALL LETTER IZHITSA DOUBLE GRAVE
+478		CYRILLIC CAPITAL LETTER UK DIGRAPH
+479		CYRILLIC SMALL LETTER UK DIGRAPH
+47C		CYRILLIC CAPITAL LETTER OMEGA TITLO
+47D		CYRILLIC SMALL LETTER OMEGA TITLO
+483		CYRILLIC NON-SPACING TITLO
+484		CYRILLIC NON-SPACING PALATALIZATION
+485		CYRILLIC NON-SPACING DASIA PNEUMATA
+486		CYRILLIC NON-SPACING PSILI PNEUMATA
+490		CYRILLIC CAPITAL LETTER GE WITH UPTURN
+491		CYRILLIC SMALL LETTER GE WITH UPTURN
+492		CYRILLIC CAPITAL LETTER GE BAR
+493		CYRILLIC SMALL LETTER GE BAR
+494		CYRILLIC CAPITAL LETTER GE HOOK
+495		CYRILLIC SMALL LETTER GE HOOK
+496		CYRILLIC CAPITAL LETTER ZHE WITH RIGHT DESCENDER
+497		CYRILLIC SMALL LETTER ZHE WITH RIGHT DESCENDER
+498		CYRILLIC CAPITAL LETTER ZE CEDILLA
+499		CYRILLIC SMALL LETTER ZE CEDILLA
+49A		CYRILLIC CAPITAL LETTER KA WITH RIGHT DESCENDER
+49B		CYRILLIC SMALL LETTER KA WITH RIGHT DESCENDER
+49C		CYRILLIC CAPITAL LETTER KA VERTICAL BAR
+49D		CYRILLIC SMALL LETTER KA VERTICAL BAR
+49E		CYRILLIC CAPITAL LETTER KA BAR
+49F		CYRILLIC SMALL LETTER KA BAR
+4A0		CYRILLIC CAPITAL LETTER REVERSED GE KA
+4A1		CYRILLIC SMALL LETTER REVERSED GE KA
+4A2		CYRILLIC CAPITAL LETTER EN WITH RIGHT DESCENDER
+4A3		CYRILLIC SMALL LETTER EN WITH RIGHT DESCENDER
+4A4		CYRILLIC CAPITAL LETTER EN GE
+4A5		CYRILLIC SMALL LETTER EN GE
+4A6		CYRILLIC CAPITAL LETTER PE HOOK
+4A7		CYRILLIC SMALL LETTER PE HOOK
+4A8		CYRILLIC CAPITAL LETTER O HOOK
+4A9		CYRILLIC SMALL LETTER O HOOK
+4AA		CYRILLIC CAPITAL LETTER ES CEDILLA
+4AB		CYRILLIC SMALL LETTER ES CEDILLA
+4AC		CYRILLIC CAPITAL LETTER TE WITH RIGHT DESCENDER
+4AD		CYRILLIC SMALL LETTER TE WITH RIGHT DESCENDER
+4B0		CYRILLIC CAPITAL LETTER STRAIGHT U BAR
+4B1		CYRILLIC SMALL LETTER STRAIGHT U BAR
+4B2		CYRILLIC CAPITAL LETTER KHA WITH RIGHT DESCENDER
+4B3		CYRILLIC SMALL LETTER KHA WITH RIGHT DESCENDER
+4B4		CYRILLIC CAPITAL LETTER TE TSE
+4B5		CYRILLIC SMALL LETTER TE TSE
+4B6		CYRILLIC CAPITAL LETTER CHE WITH RIGHT DESCENDER
+4B7		CYRILLIC SMALL LETTER CHE WITH RIGHT DESCENDER
+4B8		CYRILLIC CAPITAL LETTER CHE VERTICAL BAR
+4B9		CYRILLIC SMALL LETTER CHE VERTICAL BAR
+4BA		CYRILLIC CAPITAL LETTER H
+4BB		CYRILLIC SMALL LETTER H
+4BC		CYRILLIC CAPITAL LETTER IE HOOK
+4BD		CYRILLIC SMALL LETTER IE HOOK
+4BE		CYRILLIC CAPITAL LETTER IE HOOK OGONEK
+4BF		CYRILLIC SMALL LETTER IE HOOK OGONEK
+4C0		CYRILLIC LETTER I
+4C1		CYRILLIC CAPITAL LETTER SHORT ZHE
+4C2		CYRILLIC SMALL LETTER SHORT ZHE
+4C3		CYRILLIC CAPITAL LETTER KA HOOK
+4C4		CYRILLIC SMALL LETTER KA HOOK
+4C7		CYRILLIC CAPITAL LETTER EN HOOK
+4C8		CYRILLIC SMALL LETTER EN HOOK
+4CB		CYRILLIC CAPITAL LETTER CHE WITH LEFT DESCENDER
+4CC		CYRILLIC SMALL LETTER CHE WITH LEFT DESCENDER
+542		ARMENIAN CAPITAL LETTER LAD
+55A		ARMENIAN MODIFIER LETTER RIGHT HALF RING
+572		ARMENIAN SMALL LETTER LAD
+589		ARMENIAN PERIOD
+5BC		HEBREW POINT DAGESH
+5C0		HEBREW POINT PASEQ
+5F0		HEBREW LETTER DOUBLE VAV
+5F1		HEBREW LETTER VAV YOD
+5F2		HEBREW LETTER DOUBLE YOD
+621		ARABIC LETTER HAMZAH
+622		ARABIC LETTER MADDAH ON ALEF
+623		ARABIC LETTER HAMZAH ON ALEF
+624		ARABIC LETTER HAMZAH ON WAW
+625		ARABIC LETTER HAMZAH UNDER ALEF
+626		ARABIC LETTER HAMZAH ON YA
+628		ARABIC LETTER BAA
+629		ARABIC LETTER TAA MARBUTAH
+62A		ARABIC LETTER TAA
+62B		ARABIC LETTER THAA
+62D		ARABIC LETTER HAA
+62E		ARABIC LETTER KHAA
+631		ARABIC LETTER RA
+638		ARABIC LETTER DHAH
+641		ARABIC LETTER FA
+643		ARABIC LETTER CAF
+647		ARABIC LETTER HA
+649		ARABIC LETTER ALEF MAQSURAH
+64A		ARABIC LETTER YA
+64E		ARABIC FATHAH
+64F		ARABIC DAMMAH
+650		ARABIC KASRAH
+651		ARABIC SHADDAH
+670		ARABIC ALEF ABOVE
+671		ARABIC LETTER HAMZAT WASL ON ALEF
+672		ARABIC LETTER WAVY HAMZAH ON ALEF
+673		ARABIC LETTER WAVY HAMZAH UNDER ALEF
+674		ARABIC LETTER HIGH HAMZAH
+675		ARABIC LETTER HIGH HAMZAH ALEF
+676		ARABIC LETTER HIGH HAMZAH WAW
+677		ARABIC LETTER HIGH HAMZAH WAW WITH DAMMAH
+678		ARABIC LETTER HIGH HAMZAH YA
+679		ARABIC LETTER TAA WITH SMALL TAH
+67A		ARABIC LETTER TAA WITH TWO DOTS VERTICAL ABOVE
+67B		ARABIC LETTER BAA WITH TWO DOTS VERTICAL BELOW
+67C		ARABIC LETTER TAA WITH RING
+67D		ARABIC LETTER TAA WITH THREE DOTS ABOVE DOWNWARD
+67E		ARABIC LETTER TAA WITH THREE DOTS BELOW
+67F		ARABIC LETTER TAA WITH FOUR DOTS ABOVE
+680		ARABIC LETTER BAA WITH FOUR DOTS BELOW
+681		ARABIC LETTER HAMZAH ON HAA
+682		ARABIC LETTER HAA WITH TWO DOTS VERTICAL ABOVE
+683		ARABIC LETTER HAA WITH MIDDLE TWO DOTS
+684		ARABIC LETTER HAA WITH MIDDLE TWO DOTS VERTICAL
+685		ARABIC LETTER HAA WITH THREE DOTS ABOVE
+686		ARABIC LETTER HAA WITH MIDDLE THREE DOTS DOWNWARD
+687		ARABIC LETTER HAA WITH MIDDLE FOUR DOTS
+688		ARABIC LETTER DAL WITH SMALL TAH
+68C		ARABIC LETTER DAL WITH TWO DOTS ABOVE
+68D		ARABIC LETTER DAL WITH TWO DOTS BELOW
+68E		ARABIC LETTER DAL WITH THREE DOTS ABOVE
+68F		ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARD
+691		ARABIC LETTER RA WITH SMALL TAH
+692		ARABIC LETTER RA WITH SMALL V
+693		ARABIC LETTER RA WITH RING
+694		ARABIC LETTER RA WITH DOT BELOW
+695		ARABIC LETTER RA WITH SMALL V BELOW
+696		ARABIC LETTER RA WITH DOT BELOW AND DOT ABOVE
+697		ARABIC LETTER RA WITH TWO DOTS ABOVE
+698		ARABIC LETTER RA WITH THREE DOTS ABOVE
+699		ARABIC LETTER RA WITH FOUR DOTS ABOVE
+6A1		ARABIC LETTER DOTLESS FA
+6A2		ARABIC LETTER FA WITH DOT MOVED BELOW
+6A3		ARABIC LETTER FA WITH DOT BELOW
+6A4		ARABIC LETTER FA WITH THREE DOTS ABOVE
+6A5		ARABIC LETTER FA WITH THREE DOTS BELOW
+6A6		ARABIC LETTER FA WITH FOUR DOTS ABOVE
+6A9		ARABIC LETTER OPEN CAF
+6AA		ARABIC LETTER SWASH CAF
+6AB		ARABIC LETTER CAF WITH RING
+6AC		ARABIC LETTER CAF WITH DOT ABOVE
+6AD		ARABIC LETTER CAF WITH THREE DOTS ABOVE
+6AE		ARABIC LETTER CAF WITH THREE DOTS BELOW
+6B1		ARABIC LETTER GAF WITH TWO DOTS ABOVE
+6B3		ARABIC LETTER GAF WITH TWO DOTS VERTICAL BELOW
+6BA		ARABIC LETTER DOTLESS NOON
+6BB		ARABIC LETTER DOTLESS NOON WITH SMALL TAH
+6BE		ARABIC LETTER KNOTTED HA
+6C0		ARABIC LETTER HAMZAH ON HA
+6C1		ARABIC LETTER HA GOAL
+6C2		ARABIC LETTER HAMZAH ON HA GOAL
+6C3		ARABIC LETTER TAA MARBUTAH GOAL
+6C5		ARABIC LETTER WAW WITH BAR
+6C6		ARABIC LETTER WAW WITH SMALL V
+6C7		ARABIC LETTER WAW WITH DAMMAH
+6C8		ARABIC LETTER WAW WITH ALEF ABOVE
+6C9		ARABIC LETTER WAW WITH INVERTED SMALL V
+6CB		ARABIC LETTER WAW WITH THREE DOTS ABOVE
+6CC		ARABIC LETTER DOTLESS YA
+6CD		ARABIC LETTER YA WITH TAIL
+6CE		ARABIC LETTER YA WITH SMALL V
+6D0		ARABIC LETTER YA WITH TWO DOTS VERTICAL BELOW
+6D1		ARABIC LETTER YA WITH THREE DOTS BELOW
+6D2		ARABIC LETTER YA BARREE
+6D3		ARABIC LETTER HAMZAH ON YA BARREE
+6D4		ARABIC PERIOD
+6F0		EASTERN ARABIC-INDIC DIGIT ZERO
+6F1		EASTERN ARABIC-INDIC DIGIT ONE
+6F2		EASTERN ARABIC-INDIC DIGIT TWO
+6F3		EASTERN ARABIC-INDIC DIGIT THREE
+6F4		EASTERN ARABIC-INDIC DIGIT FOUR
+6F5		EASTERN ARABIC-INDIC DIGIT FIVE
+6F6		EASTERN ARABIC-INDIC DIGIT SIX
+6F7		EASTERN ARABIC-INDIC DIGIT SEVEN
+6F8		EASTERN ARABIC-INDIC DIGIT EIGHT
+6F9		EASTERN ARABIC-INDIC DIGIT NINE
+9F1		BENGALI LETTER VA WITH LOWER DIAGONAL
+E01		THAI LETTER KO KAI
+E02		THAI LETTER KHO KHAI
+E03		THAI LETTER KHO KHUAT
+E04		THAI LETTER KHO KHWAI
+E05		THAI LETTER KHO KHON
+E06		THAI LETTER KHO RAKHANG
+E07		THAI LETTER NGO NGU
+E08		THAI LETTER CHO CHAN
+E09		THAI LETTER CHO CHING
+E0A		THAI LETTER CHO CHANG
+E0B		THAI LETTER SO SO
+E0C		THAI LETTER CHO CHOE
+E0D		THAI LETTER YO YING
+E0E		THAI LETTER DO CHADA
+E0F		THAI LETTER TO PATAK
+E10		THAI LETTER THO THAN
+E11		THAI LETTER THO NANGMONTHO
+E12		THAI LETTER THO PHUTHAO
+E13		THAI LETTER NO NEN
+E14		THAI LETTER DO DEK
+E15		THAI LETTER TO TAO
+E16		THAI LETTER THO THUNG
+E17		THAI LETTER THO THAHAN
+E18		THAI LETTER THO THONG
+E19		THAI LETTER NO NU
+E1A		THAI LETTER BO BAIMAI
+E1B		THAI LETTER PO PLA
+E1C		THAI LETTER PHO PHUNG
+E1D		THAI LETTER FO FA
+E1E		THAI LETTER PHO PHAN
+E1F		THAI LETTER FO FAN
+E20		THAI LETTER PHO SAMPHAO
+E21		THAI LETTER MO MA
+E22		THAI LETTER YO YAK
+E23		THAI LETTER RO RUA
+E24		THAI LETTER RU
+E25		THAI LETTER LO LING
+E26		THAI LETTER LU
+E27		THAI LETTER WO WAEN
+E28		THAI LETTER SO SALA
+E29		THAI LETTER SO RUSI
+E2A		THAI LETTER SO SUA
+E2B		THAI LETTER HO HIP
+E2C		THAI LETTER LO CHULA
+E2D		THAI LETTER O ANG
+E2E		THAI LETTER HO NOK HUK
+E2F		THAI PAI YAN NOI
+E30		THAI VOWEL SIGN SARA A
+E31		THAI VOWEL SIGN MAI HAN-AKAT
+E32		THAI VOWEL SIGN SARA AA
+E33		THAI VOWEL SIGN SARA AM
+E34		THAI VOWEL SIGN SARA I
+E35		THAI VOWEL SIGN SARA II
+E36		THAI VOWEL SIGN SARA UE
+E37		THAI VOWEL SIGN SARA UEE
+E38		THAI VOWEL SIGN SARA U
+E39		THAI VOWEL SIGN SARA UU
+E3A		THAI VOWEL SIGN PHINTHU
+E3F		THAI BAHT SIGN
+E40		THAI VOWEL SIGN SARA E
+E41		THAI VOWEL SIGN SARA AE
+E42		THAI VOWEL SIGN SARA O
+E43		THAI VOWEL SIGN SARA MAI MUAN
+E44		THAI VOWEL SIGN SARA MAI MALAI
+E45		THAI LAK KHANG YAO
+E46		THAI MAI YAMOK
+E47		THAI VOWEL SIGN MAI TAI KHU
+E48		THAI TONE MAI EK
+E49		THAI TONE MAI THO
+E4A		THAI TONE MAI TRI
+E4B		THAI TONE MAI CHATTAWA
+E4C		THAI THANTHAKHAT
+E4D		THAI NIKKHAHIT
+E4E		THAI YAMAKKAN
+E4F		THAI FONGMAN
+E5A		THAI ANGKHANKHU
+E5B		THAI KHOMUT
+F04		TIBETAN SINGLE ORNAMENT
+F08		TIBETAN RGYANSHAD
+F0B		TIBETAN TSEG
+F0D		TIBETAN SHAD
+F0E		TIBETAN DOUBLE SHAD
+F11		TIBETAN RINCHANPHUNGSHAD
+F14		TIBETAN COMMA
+F35		TIBETAN HONORIFIC UNDER RING
+F37		TIBETAN UNDER RING
+F39		TIBETAN LENITION MARK
+F3C		TIBETAN LEFT BRACE
+F3D		TIBETAN RIGHT BRACE
+F4A		TIBETAN LETTER REVERSED TA
+F4B		TIBETAN LETTER REVERSED THA
+F4C		TIBETAN LETTER REVERSED DA
+F4E		TIBETAN LETTER REVERSED NA
+F60		TIBETAN LETTER AA
+F65		TIBETAN LETTER REVERSED SHA
+F7B		TIBETAN VOWEL SIGN AI
+F7D		TIBETAN VOWEL SIGN AU
+F7E		TIBETAN ANUSVARA
+F7F		TIBETAN VISARGA
+F80		TIBETAN VOWEL SIGN SHORT I
+F82		TIBETAN CANDRABINDU WITH ORNAMENT
+F83		TIBETAN CANDRABINDU
+F84		TIBETAN VIRAMA
+F85		TIBETAN CHUCHENYIGE
+10D0		GEORGIAN SMALL LETTER AN
+10D1		GEORGIAN SMALL LETTER BAN
+10D2		GEORGIAN SMALL LETTER GAN
+10D3		GEORGIAN SMALL LETTER DON
+10D4		GEORGIAN SMALL LETTER EN
+10D5		GEORGIAN SMALL LETTER VIN
+10D6		GEORGIAN SMALL LETTER ZEN
+10D7		GEORGIAN SMALL LETTER TAN
+10D8		GEORGIAN SMALL LETTER IN
+10D9		GEORGIAN SMALL LETTER KAN
+10DA		GEORGIAN SMALL LETTER LAS
+10DB		GEORGIAN SMALL LETTER MAN
+10DC		GEORGIAN SMALL LETTER NAR
+10DD		GEORGIAN SMALL LETTER ON
+10DE		GEORGIAN SMALL LETTER PAR
+10DF		GEORGIAN SMALL LETTER ZHAR
+10E0		GEORGIAN SMALL LETTER RAE
+10E1		GEORGIAN SMALL LETTER SAN
+10E2		GEORGIAN SMALL LETTER TAR
+10E3		GEORGIAN SMALL LETTER UN
+10E4		GEORGIAN SMALL LETTER PHAR
+10E5		GEORGIAN SMALL LETTER KHAR
+10E6		GEORGIAN SMALL LETTER GHAN
+10E7		GEORGIAN SMALL LETTER QAR
+10E8		GEORGIAN SMALL LETTER SHIN
+10E9		GEORGIAN SMALL LETTER CHIN
+10EA		GEORGIAN SMALL LETTER CAN
+10EB		GEORGIAN SMALL LETTER JIL
+10EC		GEORGIAN SMALL LETTER CIL
+10ED		GEORGIAN SMALL LETTER CHAR
+10EE		GEORGIAN SMALL LETTER XAN
+10EF		GEORGIAN SMALL LETTER JHAN
+10F0		GEORGIAN SMALL LETTER HAE
+10F1		GEORGIAN SMALL LETTER HE
+10F2		GEORGIAN SMALL LETTER HIE
+10F3		GEORGIAN SMALL LETTER WE
+10F4		GEORGIAN SMALL LETTER HAR
+10F5		GEORGIAN SMALL LETTER HOE
+10F6		GEORGIAN SMALL LETTER FI
+2015		QUOTATION DASH
+2016		DOUBLE VERTICAL BAR
+2017		SPACING DOUBLE UNDERSCORE
+2018		SINGLE TURNED COMMA QUOTATION MARK
+2019		SINGLE COMMA QUOTATION MARK
+201A		LOW SINGLE COMMA QUOTATION MARK
+201B		SINGLE REVERSED COMMA QUOTATION MARK
+201C		DOUBLE TURNED COMMA QUOTATION MARK
+201D		DOUBLE COMMA QUOTATION MARK
+201E		LOW DOUBLE COMMA QUOTATION MARK
+201F		DOUBLE REVERSED COMMA QUOTATION MARK
+2039		LEFT POINTING SINGLE GUILLEMET
+203A		RIGHT POINTING SINGLE GUILLEMET
+203E		SPACING OVERSCORE
+2070		SUPERSCRIPT DIGIT ZERO
+2074		SUPERSCRIPT DIGIT FOUR
+2075		SUPERSCRIPT DIGIT FIVE
+2076		SUPERSCRIPT DIGIT SIX
+2077		SUPERSCRIPT DIGIT SEVEN
+2078		SUPERSCRIPT DIGIT EIGHT
+2079		SUPERSCRIPT DIGIT NINE
+207B		SUPERSCRIPT HYPHEN-MINUS
+207D		SUPERSCRIPT OPENING PARENTHESIS
+207E		SUPERSCRIPT CLOSING PARENTHESIS
+2080		SUBSCRIPT DIGIT ZERO
+2081		SUBSCRIPT DIGIT ONE
+2082		SUBSCRIPT DIGIT TWO
+2083		SUBSCRIPT DIGIT THREE
+2084		SUBSCRIPT DIGIT FOUR
+2085		SUBSCRIPT DIGIT FIVE
+2086		SUBSCRIPT DIGIT SIX
+2087		SUBSCRIPT DIGIT SEVEN
+2088		SUBSCRIPT DIGIT EIGHT
+2089		SUBSCRIPT DIGIT NINE
+208B		SUBSCRIPT HYPHEN-MINUS
+208D		SUBSCRIPT OPENING PARENTHESIS
+208E		SUBSCRIPT CLOSING PARENTHESIS
+20D0		NON-SPACING LEFT HARPOON ABOVE
+20D1		NON-SPACING RIGHT HARPOON ABOVE
+20D2		NON-SPACING LONG VERTICAL BAR OVERLAY
+20D3		NON-SPACING SHORT VERTICAL BAR OVERLAY
+20D4		NON-SPACING ANTICLOCKWISE ARROW ABOVE
+20D5		NON-SPACING CLOCKWISE ARROW ABOVE
+20D6		NON-SPACING LEFT ARROW ABOVE
+20D7		NON-SPACING RIGHT ARROW ABOVE
+20D8		NON-SPACING RING OVERLAY
+20D9		NON-SPACING CLOCKWISE RING OVERLAY
+20DA		NON-SPACING ANTICLOCKWISE RING OVERLAY
+20DB		NON-SPACING THREE DOTS ABOVE
+20DC		NON-SPACING FOUR DOTS ABOVE
+20DD		ENCLOSING CIRCLE
+20DE		ENCLOSING SQUARE
+20DF		ENCLOSING DIAMOND
+20E0		ENCLOSING CIRCLE SLASH
+20E1		NON-SPACING LEFT RIGHT ARROW ABOVE
+2102		DOUBLE-STRUCK C
+2103		DEGREES CENTIGRADE
+2104		C L SYMBOL
+2107		EULERS
+2109		DEGREES FAHRENHEIT
+210B		SCRIPT H
+210C		BLACK-LETTER H
+210D		DOUBLE-STRUCK H
+210F		PLANCK CONSTANT OVER 2 PI
+2110		SCRIPT I
+2111		BLACK-LETTER I
+2112		SCRIPT L
+2115		DOUBLE-STRUCK N
+2116		NUMERO
+2118		SCRIPT P
+2119		DOUBLE-STRUCK P
+211A		DOUBLE-STRUCK Q
+211B		SCRIPT R
+211C		BLACK-LETTER R
+211D		DOUBLE-STRUCK R
+2121		T E L SYMBOL
+2122		TRADEMARK
+2124		DOUBLE-STRUCK Z
+2125		OUNCE
+2126		OHM
+2127		MHO
+2128		BLACK-LETTER Z
+212A		DEGREES KELVIN
+212B		ANGSTROM UNIT
+212C		SCRIPT B
+212D		BLACK-LETTER C
+2130		SCRIPT E
+2131		SCRIPT F
+2132		TURNED F
+2133		SCRIPT M
+2135		FIRST TRANSFINITE CARDINAL
+2136		SECOND TRANSFINITE CARDINAL
+2137		THIRD TRANSFINITE CARDINAL
+2138		FOURTH TRANSFINITE CARDINAL
+2153		FRACTION ONE THIRD
+2154		FRACTION TWO THIRDS
+2155		FRACTION ONE FIFTH
+2156		FRACTION TWO FIFTHS
+2157		FRACTION THREE FIFTHS
+2158		FRACTION FOUR FIFTHS
+2159		FRACTION ONE SIXTH
+215A		FRACTION FIVE SIXTHS
+215B		FRACTION ONE EIGHTH
+215C		FRACTION THREE EIGHTHS
+215D		FRACTION FIVE EIGHTHS
+215E		FRACTION SEVEN EIGHTHS
+2190		LEFT ARROW
+2191		UP ARROW
+2192		RIGHT ARROW
+2193		DOWN ARROW
+2196		UPPER LEFT ARROW
+2197		UPPER RIGHT ARROW
+2198		LOWER RIGHT ARROW
+2199		LOWER LEFT ARROW
+219A		LEFT ARROW WITH STROKE
+219B		RIGHT ARROW WITH STROKE
+219C		LEFT WAVE ARROW
+219D		RIGHT WAVE ARROW
+219E		LEFT TWO HEADED ARROW
+219F		UP TWO HEADED ARROW
+21A0		RIGHT TWO HEADED ARROW
+21A1		DOWN TWO HEADED ARROW
+21A2		LEFT ARROW WITH TAIL
+21A3		RIGHT ARROW WITH TAIL
+21A4		LEFT ARROW FROM BAR
+21A5		UP ARROW FROM BAR
+21A6		RIGHT ARROW FROM BAR
+21A7		DOWN ARROW FROM BAR
+21A9		LEFT ARROW WITH HOOK
+21AA		RIGHT ARROW WITH HOOK
+21AB		LEFT ARROW WITH LOOP
+21AC		RIGHT ARROW WITH LOOP
+21AF		DOWN ZIGZAG ARROW
+21B0		UP ARROW WITH TIP LEFT
+21B1		UP ARROW WITH TIP RIGHT
+21B2		DOWN ARROW WITH TIP LEFT
+21B3		DOWN ARROW WITH TIP RIGHT
+21B4		RIGHT ARROW WITH CORNER DOWN
+21B5		DOWN ARROW WITH CORNER LEFT
+21B8		UPPER LEFT ARROW TO LONG BAR
+21B9		LEFT ARROW TO BAR OVER RIGHT ARROW TO BAR
+21BC		LEFT HARPOON WITH BARB UP
+21BD		LEFT HARPOON WITH BARB DOWN
+21BE		UP HARPOON WITH BARB RIGHT
+21BF		UP HARPOON WITH BARB LEFT
+21C0		RIGHT HARPOON WITH BARB UP
+21C1		RIGHT HARPOON WITH BARB DOWN
+21C2		DOWN HARPOON WITH BARB RIGHT
+21C3		DOWN HARPOON WITH BARB LEFT
+21C4		RIGHT ARROW OVER LEFT ARROW
+21C5		UP ARROW LEFT OF DOWN ARROW
+21C6		LEFT ARROW OVER RIGHT ARROW
+21C7		LEFT PAIRED ARROWS
+21C8		UP PAIRED ARROWS
+21C9		RIGHT PAIRED ARROWS
+21CA		DOWN PAIRED ARROWS
+21CB		LEFT HARPOON OVER RIGHT HARPOON
+21CC		RIGHT HARPOON OVER LEFT HARPOON
+21CD		LEFT DOUBLE ARROW WITH STROKE
+21CF		RIGHT DOUBLE ARROW WITH STROKE
+21D0		LEFT DOUBLE ARROW
+21D1		UP DOUBLE ARROW
+21D2		RIGHT DOUBLE ARROW
+21D3		DOWN DOUBLE ARROW
+21D6		UPPER LEFT DOUBLE ARROW
+21D7		UPPER RIGHT DOUBLE ARROW
+21D8		LOWER RIGHT DOUBLE ARROW
+21D9		LOWER LEFT DOUBLE ARROW
+21DA		LEFT TRIPLE ARROW
+21DB		RIGHT TRIPLE ARROW
+21DC		LEFT SQUIGGLE ARROW
+21DD		RIGHT SQUIGGLE ARROW
+21DE		UP ARROW WITH DOUBLE STROKE
+21DF		DOWN ARROW WITH DOUBLE STROKE
+21E0		LEFT DASHED ARROW
+21E1		UP DASHED ARROW
+21E2		RIGHT DASHED ARROW
+21E3		DOWN DASHED ARROW
+21E4		LEFT ARROW TO BAR
+21E5		RIGHT ARROW TO BAR
+21E6		WHITE LEFT ARROW
+21E7		WHITE UP ARROW
+21E8		WHITE RIGHT ARROW
+21E9		WHITE DOWN ARROW
+21EA		WHITE UP ARROW FROM BAR
+2254		COLON EQUAL
+2255		EQUAL COLON
+2264		LESS THAN OR EQUAL TO
+2265		GREATER THAN OR EQUAL TO
+2266		LESS THAN OVER EQUAL TO
+2267		GREATER THAN OVER EQUAL TO
+2268		LESS THAN BUT NOT EQUAL TO
+2269		GREATER THAN BUT NOT EQUAL TO
+226A		MUCH LESS THAN
+226B		MUCH GREATER THAN
+226E		NOT LESS THAN
+226F		NOT GREATER THAN
+2270		NEITHER LESS THAN NOR EQUAL TO
+2271		NEITHER GREATER THAN NOR EQUAL TO
+2272		LESS THAN OR EQUIVALENT TO
+2273		GREATER THAN OR EQUIVALENT TO
+2274		NEITHER LESS THAN NOR EQUIVALENT TO
+2275		NEITHER GREATER THAN NOR EQUIVALENT TO
+2276		LESS THAN OR GREATER THAN
+2277		GREATER THAN OR LESS THAN
+2278		NEITHER LESS THAN NOR GREATER THAN
+2279		NEITHER GREATER THAN NOR LESS THAN
+228A		SUBSET OF OR NOT EQUAL TO
+228B		SUPERSET OF OR NOT EQUAL TO
+22D6		LESS THAN WITH DOT
+22D7		GREATER THAN WITH DOT
+22D8		VERY MUCH LESS THAN
+22D9		VERY MUCH GREATER THAN
+22DA		LESS THAN EQUAL TO OR GREATER THAN
+22DB		GREATER THAN EQUAL TO OR LESS THAN
+22DC		EQUAL TO OR LESS THAN
+22DD		EQUAL TO OR GREATER THAN
+22E6		LESS THAN BUT NOT EQUIVALENT TO
+22E7		GREATER THAN BUT NOT EQUIVALENT TO
+2318		COMMAND KEY
+2324		ENTER KEY
+2326		DELETE TO THE RIGHT KEY
+2327		CLEAR KEY
+2329		BRA
+232A		KET
+232B		DELETE TO THE LEFT KEY
+2400		GRAPHIC FOR NULL
+2401		GRAPHIC FOR START OF HEADING
+2402		GRAPHIC FOR START OF TEXT
+2403		GRAPHIC FOR END OF TEXT
+2404		GRAPHIC FOR END OF TRANSMISSION
+2405		GRAPHIC FOR ENQUIRY
+2406		GRAPHIC FOR ACKNOWLEDGE
+2407		GRAPHIC FOR BELL
+2408		GRAPHIC FOR BACKSPACE
+2409		GRAPHIC FOR HORIZONTAL TABULATION
+240A		GRAPHIC FOR LINE FEED
+240B		GRAPHIC FOR VERTICAL TABULATION
+240C		GRAPHIC FOR FORM FEED
+240D		GRAPHIC FOR CARRIAGE RETURN
+240E		GRAPHIC FOR SHIFT OUT
+240F		GRAPHIC FOR SHIFT IN
+2410		GRAPHIC FOR DATA LINK ESCAPE
+2411		GRAPHIC FOR DEVICE CONTROL ONE
+2412		GRAPHIC FOR DEVICE CONTROL TWO
+2413		GRAPHIC FOR DEVICE CONTROL THREE
+2414		GRAPHIC FOR DEVICE CONTROL FOUR
+2415		GRAPHIC FOR NEGATIVE ACKNOWLEDGE
+2416		GRAPHIC FOR SYNCHRONOUS IDLE
+2417		GRAPHIC FOR END OF TRANSMISSION BLOCK
+2418		GRAPHIC FOR CANCEL
+2419		GRAPHIC FOR END OF MEDIUM
+241A		GRAPHIC FOR SUBSTITUTE
+241B		GRAPHIC FOR ESCAPE
+241C		GRAPHIC FOR FILE SEPARATOR
+241D		GRAPHIC FOR GROUP SEPARATOR
+241E		GRAPHIC FOR RECORD SEPARATOR
+241F		GRAPHIC FOR UNIT SEPARATOR
+2420		GRAPHIC FOR SPACE
+2421		GRAPHIC FOR DELETE
+2422		BLANK
+2424		GRAPHIC FOR NEWLINE
+2488		DIGIT ONE PERIOD
+2489		DIGIT TWO PERIOD
+248A		DIGIT THREE PERIOD
+248B		DIGIT FOUR PERIOD
+248C		DIGIT FIVE PERIOD
+248D		DIGIT SIX PERIOD
+248E		DIGIT SEVEN PERIOD
+248F		DIGIT EIGHT PERIOD
+2490		DIGIT NINE PERIOD
+2491		NUMBER TEN PERIOD
+2492		NUMBER ELEVEN PERIOD
+2493		NUMBER TWELVE PERIOD
+2494		NUMBER THIRTEEN PERIOD
+2495		NUMBER FOURTEEN PERIOD
+2496		NUMBER FIFTEEN PERIOD
+2497		NUMBER SIXTEEN PERIOD
+2498		NUMBER SEVENTEEN PERIOD
+2499		NUMBER EIGHTEEN PERIOD
+249A		NUMBER NINETEEN PERIOD
+249B		NUMBER TWENTY PERIOD
+2500		FORMS LIGHT HORIZONTAL
+2501		FORMS HEAVY HORIZONTAL
+2502		FORMS LIGHT VERTICAL
+2503		FORMS HEAVY VERTICAL
+2504		FORMS LIGHT TRIPLE DASH HORIZONTAL
+2505		FORMS HEAVY TRIPLE DASH HORIZONTAL
+2506		FORMS LIGHT TRIPLE DASH VERTICAL
+2507		FORMS HEAVY TRIPLE DASH VERTICAL
+2508		FORMS LIGHT QUADRUPLE DASH HORIZONTAL
+2509		FORMS HEAVY QUADRUPLE DASH HORIZONTAL
+250A		FORMS LIGHT QUADRUPLE DASH VERTICAL
+250B		FORMS HEAVY QUADRUPLE DASH VERTICAL
+250C		FORMS LIGHT DOWN AND RIGHT
+250D		FORMS DOWN LIGHT AND RIGHT HEAVY
+250E		FORMS DOWN HEAVY AND RIGHT LIGHT
+250F		FORMS HEAVY DOWN AND RIGHT
+2510		FORMS LIGHT DOWN AND LEFT
+2511		FORMS DOWN LIGHT AND LEFT HEAVY
+2512		FORMS DOWN HEAVY AND LEFT LIGHT
+2513		FORMS HEAVY DOWN AND LEFT
+2514		FORMS LIGHT UP AND RIGHT
+2515		FORMS UP LIGHT AND RIGHT HEAVY
+2516		FORMS UP HEAVY AND RIGHT LIGHT
+2517		FORMS HEAVY UP AND RIGHT
+2518		FORMS LIGHT UP AND LEFT
+2519		FORMS UP LIGHT AND LEFT HEAVY
+251A		FORMS UP HEAVY AND LEFT LIGHT
+251B		FORMS HEAVY UP AND LEFT
+251C		FORMS LIGHT VERTICAL AND RIGHT
+251D		FORMS VERTICAL LIGHT AND RIGHT HEAVY
+251E		FORMS UP HEAVY AND RIGHT DOWN LIGHT
+251F		FORMS DOWN HEAVY AND RIGHT UP LIGHT
+2520		FORMS VERTICAL HEAVY AND RIGHT LIGHT
+2521		FORMS DOWN LIGHT AND RIGHT UP HEAVY
+2522		FORMS UP LIGHT AND RIGHT DOWN HEAVY
+2523		FORMS HEAVY VERTICAL AND RIGHT
+2524		FORMS LIGHT VERTICAL AND LEFT
+2525		FORMS VERTICAL LIGHT AND LEFT HEAVY
+2526		FORMS UP HEAVY AND LEFT DOWN LIGHT
+2527		FORMS DOWN HEAVY AND LEFT UP LIGHT
+2528		FORMS VERTICAL HEAVY AND LEFT LIGHT
+2529		FORMS DOWN LIGHT AND LEFT UP HEAVY
+252A		FORMS UP LIGHT AND LEFT DOWN HEAVY
+252B		FORMS HEAVY VERTICAL AND LEFT
+252C		FORMS LIGHT DOWN AND HORIZONTAL
+252D		FORMS LEFT HEAVY AND RIGHT DOWN LIGHT
+252E		FORMS RIGHT HEAVY AND LEFT DOWN LIGHT
+252F		FORMS DOWN LIGHT AND HORIZONTAL HEAVY
+2530		FORMS DOWN HEAVY AND HORIZONTAL LIGHT
+2531		FORMS RIGHT LIGHT AND LEFT DOWN HEAVY
+2532		FORMS LEFT LIGHT AND RIGHT DOWN HEAVY
+2533		FORMS HEAVY DOWN AND HORIZONTAL
+2534		FORMS LIGHT UP AND HORIZONTAL
+2535		FORMS LEFT HEAVY AND RIGHT UP LIGHT
+2536		FORMS RIGHT HEAVY AND LEFT UP LIGHT
+2537		FORMS UP LIGHT AND HORIZONTAL HEAVY
+2538		FORMS UP HEAVY AND HORIZONTAL LIGHT
+2539		FORMS RIGHT LIGHT AND LEFT UP HEAVY
+253A		FORMS LEFT LIGHT AND RIGHT UP HEAVY
+253B		FORMS HEAVY UP AND HORIZONTAL
+253C		FORMS LIGHT VERTICAL AND HORIZONTAL
+253D		FORMS LEFT HEAVY AND RIGHT VERTICAL LIGHT
+253E		FORMS RIGHT HEAVY AND LEFT VERTICAL LIGHT
+253F		FORMS VERTICAL LIGHT AND HORIZONTAL HEAVY
+2540		FORMS UP HEAVY AND DOWN HORIZONTAL LIGHT
+2541		FORMS DOWN HEAVY AND UP HORIZONTAL LIGHT
+2542		FORMS VERTICAL HEAVY AND HORIZONTAL LIGHT
+2543		FORMS LEFT UP HEAVY AND RIGHT DOWN LIGHT
+2544		FORMS RIGHT UP HEAVY AND LEFT DOWN LIGHT
+2545		FORMS LEFT DOWN HEAVY AND RIGHT UP LIGHT
+2546		FORMS RIGHT DOWN HEAVY AND LEFT UP LIGHT
+2547		FORMS DOWN LIGHT AND UP HORIZONTAL HEAVY
+2548		FORMS UP LIGHT AND DOWN HORIZONTAL HEAVY
+2549		FORMS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+254A		FORMS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+254B		FORMS HEAVY VERTICAL AND HORIZONTAL
+254C		FORMS LIGHT DOUBLE DASH HORIZONTAL
+254D		FORMS HEAVY DOUBLE DASH HORIZONTAL
+254E		FORMS LIGHT DOUBLE DASH VERTICAL
+254F		FORMS HEAVY DOUBLE DASH VERTICAL
+2550		FORMS DOUBLE HORIZONTAL
+2551		FORMS DOUBLE VERTICAL
+2552		FORMS DOWN SINGLE AND RIGHT DOUBLE
+2553		FORMS DOWN DOUBLE AND RIGHT SINGLE
+2554		FORMS DOUBLE DOWN AND RIGHT
+2555		FORMS DOWN SINGLE AND LEFT DOUBLE
+2556		FORMS DOWN DOUBLE AND LEFT SINGLE
+2557		FORMS DOUBLE DOWN AND LEFT
+2558		FORMS UP SINGLE AND RIGHT DOUBLE
+2559		FORMS UP DOUBLE AND RIGHT SINGLE
+255A		FORMS DOUBLE UP AND RIGHT
+255B		FORMS UP SINGLE AND LEFT DOUBLE
+255C		FORMS UP DOUBLE AND LEFT SINGLE
+255D		FORMS DOUBLE UP AND LEFT
+255E		FORMS VERTICAL SINGLE AND RIGHT DOUBLE
+255F		FORMS VERTICAL DOUBLE AND RIGHT SINGLE
+2560		FORMS DOUBLE VERTICAL AND RIGHT
+2561		FORMS VERTICAL SINGLE AND LEFT DOUBLE
+2562		FORMS VERTICAL DOUBLE AND LEFT SINGLE
+2563		FORMS DOUBLE VERTICAL AND LEFT
+2564		FORMS DOWN SINGLE AND HORIZONTAL DOUBLE
+2565		FORMS DOWN DOUBLE AND HORIZONTAL SINGLE
+2566		FORMS DOUBLE DOWN AND HORIZONTAL
+2567		FORMS UP SINGLE AND HORIZONTAL DOUBLE
+2568		FORMS UP DOUBLE AND HORIZONTAL SINGLE
+2569		FORMS DOUBLE UP AND HORIZONTAL
+256A		FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+256B		FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+256C		FORMS DOUBLE VERTICAL AND HORIZONTAL
+256D		FORMS LIGHT ARC DOWN AND RIGHT
+256E		FORMS LIGHT ARC DOWN AND LEFT
+256F		FORMS LIGHT ARC UP AND LEFT
+2570		FORMS LIGHT ARC UP AND RIGHT
+2571		FORMS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+2572		FORMS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+2573		FORMS LIGHT DIAGONAL CROSS
+2574		FORMS LIGHT LEFT
+2575		FORMS LIGHT UP
+2576		FORMS LIGHT RIGHT
+2577		FORMS LIGHT DOWN
+2578		FORMS HEAVY LEFT
+2579		FORMS HEAVY UP
+257A		FORMS HEAVY RIGHT
+257B		FORMS HEAVY DOWN
+257C		FORMS LIGHT LEFT AND HEAVY RIGHT
+257D		FORMS LIGHT UP AND HEAVY DOWN
+257E		FORMS HEAVY LEFT AND LIGHT RIGHT
+257F		FORMS HEAVY UP AND LIGHT DOWN
+2586		LOWER THREE QUARTER BLOCK
+258A		LEFT THREE QUARTER BLOCK
+25B2		BLACK UP POINTING TRIANGLE
+25B3		WHITE UP POINTING TRIANGLE
+25B4		BLACK UP POINTING SMALL TRIANGLE
+25B5		WHITE UP POINTING SMALL TRIANGLE
+25B6		BLACK RIGHT POINTING TRIANGLE
+25B7		WHITE RIGHT POINTING TRIANGLE
+25B8		BLACK RIGHT POINTING SMALL TRIANGLE
+25B9		WHITE RIGHT POINTING SMALL TRIANGLE
+25BA		BLACK RIGHT POINTING POINTER
+25BB		WHITE RIGHT POINTING POINTER
+25BC		BLACK DOWN POINTING TRIANGLE
+25BD		WHITE DOWN POINTING TRIANGLE
+25BE		BLACK DOWN POINTING SMALL TRIANGLE
+25BF		WHITE DOWN POINTING SMALL TRIANGLE
+25C0		BLACK LEFT POINTING TRIANGLE
+25C1		WHITE LEFT POINTING TRIANGLE
+25C2		BLACK LEFT POINTING SMALL TRIANGLE
+25C3		WHITE LEFT POINTING SMALL TRIANGLE
+25C4		BLACK LEFT POINTING POINTER
+25C5		WHITE LEFT POINTING POINTER
+25EC		WHITE UP POINTING TRIANGLE WITH DOT
+25ED		UP POINTING TRIANGLE WITH LEFT HALF BLACK
+25EE		UP POINTING TRIANGLE WITH RIGHT HALF BLACK
+262B		SYMBOL OF IRAN
+266B		BARRED EIGHTH NOTES
+266C		BARRED SIXTEENTH NOTES
+266D		FLAT
+266E		NATURAL
+266F		SHARP
+271B		OPEN CENTER CROSS
+271C		HEAVY OPEN CENTER CROSS
+272B		OPEN CENTER BLACK STAR
+272C		BLACK CENTER WHITE STAR
+2732		OPEN CENTER ASTERISK
+273C		OPEN CENTER TEARDROP-SPOKED ASTERISK
+2742		CIRCLED OPEN CENTER EIGHT POINTED STAR
+2776		INVERSE CIRCLED DIGIT ONE
+2777		INVERSE CIRCLED DIGIT TWO
+2778		INVERSE CIRCLED DIGIT THREE
+2779		INVERSE CIRCLED DIGIT FOUR
+277A		INVERSE CIRCLED DIGIT FIVE
+277B		INVERSE CIRCLED DIGIT SIX
+277C		INVERSE CIRCLED DIGIT SEVEN
+277D		INVERSE CIRCLED DIGIT EIGHT
+277E		INVERSE CIRCLED DIGIT NINE
+277F		INVERSE CIRCLED NUMBER TEN
+2780		CIRCLED SANS-SERIF DIGIT ONE
+2781		CIRCLED SANS-SERIF DIGIT TWO
+2782		CIRCLED SANS-SERIF DIGIT THREE
+2783		CIRCLED SANS-SERIF DIGIT FOUR
+2784		CIRCLED SANS-SERIF DIGIT FIVE
+2785		CIRCLED SANS-SERIF DIGIT SIX
+2786		CIRCLED SANS-SERIF DIGIT SEVEN
+2787		CIRCLED SANS-SERIF DIGIT EIGHT
+2788		CIRCLED SANS-SERIF DIGIT NINE
+2789		CIRCLED SANS-SERIF NUMBER TEN
+278A		INVERSE CIRCLED SANS-SERIF DIGIT ONE
+278B		INVERSE CIRCLED SANS-SERIF DIGIT TWO
+278C		INVERSE CIRCLED SANS-SERIF DIGIT THREE
+278D		INVERSE CIRCLED SANS-SERIF DIGIT FOUR
+278E		INVERSE CIRCLED SANS-SERIF DIGIT FIVE
+278F		INVERSE CIRCLED SANS-SERIF DIGIT SIX
+2790		INVERSE CIRCLED SANS-SERIF DIGIT SEVEN
+2791		INVERSE CIRCLED SANS-SERIF DIGIT EIGHT
+2792		INVERSE CIRCLED SANS-SERIF DIGIT NINE
+2793		INVERSE CIRCLED SANS-SERIF NUMBER TEN
+2794		HEAVY WIDE-HEADED RIGHT ARROW
+2798		HEAVY LOWER RIGHT ARROW
+2799		HEAVY RIGHT ARROW
+279A		HEAVY UPPER RIGHT ARROW
+279B		DRAFTING POINT RIGHT ARROW
+279C		HEAVY ROUND-TIPPED RIGHT ARROW
+279D		TRIANGLE-HEADED RIGHT ARROW
+279E		HEAVY TRIANGLE-HEADED RIGHT ARROW
+279F		DASHED TRIANGLE-HEADED RIGHT ARROW
+27A0		HEAVY DASHED TRIANGLE-HEADED RIGHT ARROW
+27A1		BLACK RIGHT ARROW
+27A2		THREE-D TOP-LIGHTED RIGHT ARROWHEAD
+27A3		THREE-D BOTTOM-LIGHTED RIGHT ARROWHEAD
+27A4		BLACK RIGHT ARROWHEAD
+27A5		HEAVY BLACK CURVED DOWN AND RIGHT ARROW
+27A6		HEAVY BLACK CURVED UP AND RIGHT ARROW
+27A7		SQUAT BLACK RIGHT ARROW
+27A8		HEAVY CONCAVE-POINTED BLACK RIGHT ARROW
+27A9		RIGHT-SHADED WHITE RIGHT ARROW
+27AA		LEFT-SHADED WHITE RIGHT ARROW
+27AB		BACK-TILTED SHADOWED WHITE RIGHT ARROW
+27AC		FRONT-TILTED SHADOWED WHITE RIGHT ARROW
+27AD		HEAVY LOWER RIGHT-SHADOWED WHITE RIGHT ARROW
+27AE		HEAVY UPPER RIGHT-SHADOWED WHITE RIGHT ARROW
+27AF		NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHT ARROW
+27B1		NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHT ARROW
+27B2		CIRCLED HEAVY WHITE RIGHT ARROW
+27B3		WHITE-FEATHERED RIGHT ARROW
+27B4		BLACK-FEATHERED LOWER RIGHT ARROW
+27B5		BLACK-FEATHERED RIGHT ARROW
+27B6		BLACK-FEATHERED UPPER RIGHT ARROW
+27B7		HEAVY BLACK-FEATHERED LOWER RIGHT ARROW
+27B8		HEAVY BLACK-FEATHERED RIGHT ARROW
+27B9		HEAVY BLACK-FEATHERED UPPER RIGHT ARROW
+27BA		TEARDROP-BARBED RIGHT ARROW
+27BB		HEAVY TEARDROP-SHANKED RIGHT ARROW
+27BC		WEDGE-TAILED RIGHT ARROW
+27BD		HEAVY WEDGE-TAILED RIGHT ARROW
+27BE		OPEN-OUTLINED RIGHT ARROW
+3002		IDEOGRAPHIC PERIOD
+3008		OPENING ANGLE BRACKET
+3009		CLOSING ANGLE BRACKET
+300A		OPENING DOUBLE ANGLE BRACKET
+300B		CLOSING DOUBLE ANGLE BRACKET
+300C		OPENING CORNER BRACKET
+300D		CLOSING CORNER BRACKET
+300E		OPENING WHITE CORNER BRACKET
+300F		CLOSING WHITE CORNER BRACKET
+3010		OPENING BLACK LENTICULAR BRACKET
+3011		CLOSING BLACK LENTICULAR BRACKET
+3014		OPENING TORTOISE SHELL BRACKET
+3015		CLOSING TORTOISE SHELL BRACKET
+3016		OPENING WHITE LENTICULAR BRACKET
+3017		CLOSING WHITE LENTICULAR BRACKET
+3018		OPENING WHITE TORTOISE SHELL BRACKET
+3019		CLOSING WHITE TORTOISE SHELL BRACKET
+301A		OPENING WHITE SQUARE BRACKET
+301B		CLOSING WHITE SQUARE BRACKET
+3099		NON-SPACING KATAKANA-HIRAGANA VOICED SOUND MARK
+309A		NON-SPACING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+3131		HANGUL LETTER GIYEOG
+3132		HANGUL LETTER SSANG GIYEOG
+3133		HANGUL LETTER GIYEOG SIOS
+3135		HANGUL LETTER NIEUN JIEUJ
+3136		HANGUL LETTER NIEUN HIEUH
+3137		HANGUL LETTER DIGEUD
+3138		HANGUL LETTER SSANG DIGEUD
+3139		HANGUL LETTER LIEUL
+313A		HANGUL LETTER LIEUL GIYEOG
+313B		HANGUL LETTER LIEUL MIEUM
+313C		HANGUL LETTER LIEUL BIEUB
+313D		HANGUL LETTER LIEUL SIOS
+313E		HANGUL LETTER LIEUL TIEUT
+313F		HANGUL LETTER LIEUL PIEUP
+3140		HANGUL LETTER LIEUL HIEUH
+3142		HANGUL LETTER BIEUB
+3143		HANGUL LETTER SSANG BIEUB
+3144		HANGUL LETTER BIEUB SIOS
+3146		HANGUL LETTER SSANG SIOS
+3148		HANGUL LETTER JIEUJ
+3149		HANGUL LETTER SSANG JIEUJ
+314A		HANGUL LETTER CIEUC
+314B		HANGUL LETTER KIYEOK
+314C		HANGUL LETTER TIEUT
+314D		HANGUL LETTER PIEUP
+3164		HANGUL CAE OM
+3165		HANGUL LETTER SSANG NIEUN
+3166		HANGUL LETTER NIEUN DIGEUD
+3167		HANGUL LETTER NIEUN SIOS
+3168		HANGUL LETTER NIEUN BAN CHI EUM
+3169		HANGUL LETTER LIEUL GIYEOG SIOS
+316A		HANGUL LETTER LIEUL DIGEUD
+316B		HANGUL LETTER LIEUL BIEUB SIOS
+316C		HANGUL LETTER LIEUL BAN CHI EUM
+316D		HANGUL LETTER LIEUL YEOLIN HIEUH
+316E		HANGUL LETTER MIEUM BIEUB
+316F		HANGUL LETTER MIEUM SIOS
+3170		HANGUL LETTER BIEUB BAN CHI EUM
+3171		HANGUL LETTER MIEUM SUN GYEONG EUM
+3172		HANGUL LETTER BIEUB GIYEOG
+3173		HANGUL LETTER BIEUB DIGEUD
+3174		HANGUL LETTER BIEUB SIOS GIYEOG
+3175		HANGUL LETTER BIEUB SIOS DIGEUD
+3176		HANGUL LETTER BIEUB JIEUJ
+3177		HANGUL LETTER BIEUB TIEUT
+3178		HANGUL LETTER BIEUB SUN GYEONG EUM
+3179		HANGUL LETTER SSANG BIEUB SUN GYEONG EUM
+317A		HANGUL LETTER SIOS GIYEOG
+317B		HANGUL LETTER SIOS NIEUN
+317C		HANGUL LETTER SIOS DIGEUD
+317D		HANGUL LETTER SIOS BIEUB
+317E		HANGUL LETTER SIOS JIEUJ
+317F		HANGUL LETTER BAN CHI EUM
+3180		HANGUL LETTER SSANG IEUNG
+3181		HANGUL LETTER NGIEUNG
+3182		HANGUL LETTER NGIEUNG SIOS
+3183		HANGUL LETTER NGIEUNG BAN CHI EUM
+3184		HANGUL LETTER PIEUP SUN GYEONG EUM
+3185		HANGUL LETTER SSANG HIEUH
+3186		HANGUL LETTER YEOLIN HIEUH
+3187		HANGUL LETTER YOYA
+3188		HANGUL LETTER YOYAE
+3189		HANGUL LETTER YOI
+318A		HANGUL LETTER YUYEO
+318B		HANGUL LETTER YUYE
+318C		HANGUL LETTER YUI
+318D		HANGUL LETTER ALAE A
+318E		HANGUL LETTER ALAE AE
+3190		KANBUN TATETEN
+3191		KAERITEN RE
+3192		KAERITEN ITI
+3193		KAERITEN NI
+3194		KAERITEN SAN
+3195		KAERITEN SI
+3196		KAERITEN ZYOU
+3197		KAERITEN TYUU
+3198		KAERITEN GE
+3199		KAERITEN KOU
+319A		KAERITEN OTU
+319B		KAERITEN HEI
+319C		KAERITEN TEI
+319D		KAERITEN TEN
+319E		KAERITEN TI
+319F		KAERITEN ZIN
+3200		PARENTHESIZED HANGUL GIYEOG
+3202		PARENTHESIZED HANGUL DIGEUD
+3203		PARENTHESIZED HANGUL LIEUL
+3205		PARENTHESIZED HANGUL BIEUB
+3208		PARENTHESIZED HANGUL JIEUJ
+3209		PARENTHESIZED HANGUL CIEUC
+320A		PARENTHESIZED HANGUL KIYEOK
+320B		PARENTHESIZED HANGUL TIEUT
+320C		PARENTHESIZED HANGUL PIEUP
+320E		PARENTHESIZED HANGUL GA
+320F		PARENTHESIZED HANGUL NA
+3210		PARENTHESIZED HANGUL DA
+3211		PARENTHESIZED HANGUL LA
+3212		PARENTHESIZED HANGUL MA
+3213		PARENTHESIZED HANGUL BA
+3214		PARENTHESIZED HANGUL SA
+3215		PARENTHESIZED HANGUL A
+3216		PARENTHESIZED HANGUL JA
+3217		PARENTHESIZED HANGUL CA
+3218		PARENTHESIZED HANGUL KA
+3219		PARENTHESIZED HANGUL TA
+321A		PARENTHESIZED HANGUL PA
+321B		PARENTHESIZED HANGUL HA
+321C		PARENTHESIZED HANGUL JU
+3260		CIRCLED HANGUL GIYEOG
+3262		CIRCLED HANGUL DIGEUD
+3263		CIRCLED HANGUL LIEUL
+3265		CIRCLED HANGUL BIEUB
+3268		CIRCLED HANGUL JIEUJ
+3269		CIRCLED HANGUL CIEUC
+326A		CIRCLED HANGUL KIYEOK
+326B		CIRCLED HANGUL TIEUT
+326C		CIRCLED HANGUL PIEUP
+326E		CIRCLED HANGUL GA
+326F		CIRCLED HANGUL NA
+3270		CIRCLED HANGUL DA
+3271		CIRCLED HANGUL LA
+3272		CIRCLED HANGUL MA
+3273		CIRCLED HANGUL BA
+3274		CIRCLED HANGUL SA
+3275		CIRCLED HANGUL A
+3276		CIRCLED HANGUL JA
+3277		CIRCLED HANGUL CA
+3278		CIRCLED HANGUL KA
+3279		CIRCLED HANGUL TA
+327A		CIRCLED HANGUL PA
+327B		CIRCLED HANGUL HA
+32A5		CIRCLED IDEOGRAPH CENTER
+3300		SQUARED APAATO
+3301		SQUARED ARUHUA
+3302		SQUARED ANPEA
+3303		SQUARED AARU
+3304		SQUARED ININGU
+3305		SQUARED INTI
+3306		SQUARED UON
+3307		SQUARED ESUKUUDO
+3308		SQUARED EEKAA
+3309		SQUARED ONSU
+330A		SQUARED OOMU
+330B		SQUARED KAIRI
+330C		SQUARED KARATTO
+330D		SQUARED KARORII
+330E		SQUARED GARON
+330F		SQUARED GANMA
+3310		SQUARED GIGA
+3311		SQUARED GINII
+3312		SQUARED KYURII
+3313		SQUARED GIRUDAA
+3314		SQUARED KIRO
+3315		SQUARED KIROGURAMU
+3316		SQUARED KIROMEETORU
+3317		SQUARED KIROWATTO
+3318		SQUARED GURAMU
+3319		SQUARED GURAMUTON
+331A		SQUARED KURUZEIRO
+331B		SQUARED KUROONE
+331C		SQUARED KEESU
+331D		SQUARED KORUNA
+331E		SQUARED KOOPO
+331F		SQUARED SAIKURU
+3320		SQUARED SANTIIMU
+3321		SQUARED SIRINGU
+3322		SQUARED SENTI
+3323		SQUARED SENTO
+3324		SQUARED DAASU
+3325		SQUARED DESI
+3326		SQUARED DORU
+3327		SQUARED TON
+3328		SQUARED NANO
+3329		SQUARED NOTTO
+332A		SQUARED HAITU
+332B		SQUARED PAASENTO
+332C		SQUARED PAATU
+332D		SQUARED BAARERU
+332E		SQUARED PIASUTORU
+332F		SQUARED PIKURU
+3330		SQUARED PIKO
+3331		SQUARED BIRU
+3332		SQUARED HUARADDO
+3333		SQUARED HUIITO
+3334		SQUARED BUSSYERU
+3335		SQUARED HURAN
+3336		SQUARED HEKUTAARU
+3337		SQUARED PESO
+3338		SQUARED PENIHI
+3339		SQUARED HERUTU
+333A		SQUARED PENSU
+333B		SQUARED PEEZI
+333C		SQUARED BEETA
+333D		SQUARED POINTO
+333E		SQUARED BORUTO
+333F		SQUARED HON
+3340		SQUARED PONDO
+3341		SQUARED HOORU
+3342		SQUARED HOON
+3343		SQUARED MAIKURO
+3344		SQUARED MAIRU
+3345		SQUARED MAHHA
+3346		SQUARED MARUKU
+3347		SQUARED MANSYON
+3348		SQUARED MIKURON
+3349		SQUARED MIRI
+334A		SQUARED MIRIBAARU
+334B		SQUARED MEGA
+334C		SQUARED MEGATON
+334D		SQUARED MEETORU
+334E		SQUARED YAADO
+334F		SQUARED YAARU
+3350		SQUARED YUAN
+3351		SQUARED RITTORU
+3352		SQUARED RIRA
+3353		SQUARED RUPII
+3354		SQUARED RUUBURU
+3355		SQUARED REMU
+3356		SQUARED RENTOGEN
+3357		SQUARED WATTO
+337B		SQUARED TWO IDEOGRAPHS ERA NAME HEISEI
+337C		SQUARED TWO IDEOGRAPHS ERA NAME SYOUWA
+337D		SQUARED TWO IDEOGRAPHS ERA NAME TAISYOU
+337E		SQUARED TWO IDEOGRAPHS ERA NAME MEIZI
+337F		SQUARED FOUR IDEOGRAPHS CORPORATION
+3380		SQUARED PA AMPS
+3381		SQUARED NA
+3382		SQUARED MU A
+3383		SQUARED MA
+3384		SQUARED KA
+3385		SQUARED KB
+3386		SQUARED MB
+3387		SQUARED GB
+3388		SQUARED CAL
+3389		SQUARED KCAL
+338A		SQUARED PF
+338B		SQUARED NF
+338C		SQUARED MU F
+338D		SQUARED MU G
+338E		SQUARED MG
+338F		SQUARED KG
+3390		SQUARED HZ
+3391		SQUARED KHZ
+3392		SQUARED MHZ
+3393		SQUARED GHZ
+3394		SQUARED THZ
+3395		SQUARED MU L
+3396		SQUARED ML
+3397		SQUARED DL
+3398		SQUARED KL
+3399		SQUARED FM
+339A		SQUARED NM
+339B		SQUARED MU M
+339C		SQUARED MM
+339D		SQUARED CM
+339E		SQUARED KM
+339F		SQUARED MM SQUARED
+33A0		SQUARED CM SQUARED
+33A1		SQUARED M SQUARED
+33A2		SQUARED KM SQUARED
+33A3		SQUARED MM CUBED
+33A4		SQUARED CM CUBED
+33A5		SQUARED M CUBED
+33A6		SQUARED KM CUBED
+33A7		SQUARED M OVER S
+33A8		SQUARED M OVER S SQUARED
+33A9		SQUARED PA
+33AA		SQUARED KPA
+33AB		SQUARED MPA
+33AC		SQUARED GPA
+33AD		SQUARED RAD
+33AE		SQUARED RAD OVER S
+33AF		SQUARED RAD OVER S SQUARED
+33B0		SQUARED PS
+33B1		SQUARED NS
+33B2		SQUARED MU S
+33B3		SQUARED MS
+33B4		SQUARED PV
+33B5		SQUARED NV
+33B6		SQUARED MU V
+33B7		SQUARED MV
+33B8		SQUARED KV
+33B9		SQUARED MV MEGA
+33BA		SQUARED PW
+33BB		SQUARED NW
+33BC		SQUARED MU W
+33BD		SQUARED MW
+33BE		SQUARED KW
+33BF		SQUARED MW MEGA
+33C0		SQUARED K OHM
+33C1		SQUARED M OHM
+33C2		SQUARED AM
+33C3		SQUARED BQ
+33C4		SQUARED CC
+33C5		SQUARED CD
+33C6		SQUARED C OVER KG
+33C7		SQUARED CO
+33C8		SQUARED DB
+33C9		SQUARED GY
+33CA		SQUARED HA
+33CB		SQUARED HP
+33CC		SQUARED IN
+33CD		SQUARED KK
+33CE		SQUARED KM CAPITAL
+33CF		SQUARED KT
+33D0		SQUARED LM
+33D1		SQUARED LN
+33D2		SQUARED LOG
+33D3		SQUARED LX
+33D4		SQUARED MB SMALL
+33D5		SQUARED MIL
+33D6		SQUARED MOL
+33D7		SQUARED PH
+33D8		SQUARED PM
+33D9		SQUARED PPM
+33DA		SQUARED PR
+33DB		SQUARED SR
+33DC		SQUARED SV
+33DD		SQUARED WB
+FB1E		HEBREW POINT VARIKA
+FDFA		ARABIC LETTER SALLALLAHOU ALAYHE WASALLAM
+FDFB		ARABIC LETTER JALLAJALALOUHOU
+FE30		GLYPH FOR VERTICAL TWO DOT LEADER
+FE31		GLYPH FOR VERTICAL EM DASH
+FE32		GLYPH FOR VERTICAL EN DASH
+FE33		GLYPH FOR VERTICAL SPACING UNDERSCORE
+FE34		GLYPH FOR VERTICAL SPACING WAVY UNDERSCORE
+FE35		GLYPH FOR VERTICAL OPENING PARENTHESIS
+FE36		GLYPH FOR VERTICAL CLOSING PARENTHESIS
+FE37		GLYPH FOR VERTICAL OPENING CURLY BRACKET
+FE38		GLYPH FOR VERTICAL CLOSING CURLY BRACKET
+FE39		GLYPH FOR VERTICAL OPENING TORTOISE SHELL BRACKET
+FE3A		GLYPH FOR VERTICAL CLOSING TORTOISE SHELL BRACKET
+FE3B		GLYPH FOR VERTICAL OPENING BLACK LENTICULAR BRACKET
+FE3C		GLYPH FOR VERTICAL CLOSING BLACK LENTICULAR BRACKET
+FE3D		GLYPH FOR VERTICAL OPENING DOUBLE ANGLE BRACKET
+FE3E		GLYPH FOR VERTICAL CLOSING DOUBLE ANGLE BRACKET
+FE3F		GLYPH FOR VERTICAL OPENING ANGLE BRACKET
+FE40		GLYPH FOR VERTICAL CLOSING ANGLE BRACKET
+FE41		GLYPH FOR VERTICAL OPENING CORNER BRACKET
+FE42		GLYPH FOR VERTICAL CLOSING CORNER BRACKET
+FE43		GLYPH FOR VERTICAL OPENING WHITE CORNER BRACKET
+FE44		GLYPH FOR VERTICAL CLOSING WHITE CORNER BRACKET
+FE49		SPACING DASHED OVERSCORE
+FE4A		SPACING CENTERLINE OVERSCORE
+FE4B		SPACING WAVY OVERSCORE
+FE4C		SPACING DOUBLE WAVY OVERSCORE
+FE4D		SPACING DASHED UNDERSCORE
+FE4E		SPACING CENTERLINE UNDERSCORE
+FE4F		SPACING WAVY UNDERSCORE
+FE52		SMALL PERIOD
+FE59		SMALL OPENING PARENTHESIS
+FE5A		SMALL CLOSING PARENTHESIS
+FE5B		SMALL OPENING CURLY BRACKET
+FE5C		SMALL CLOSING CURLY BRACKET
+FE5D		SMALL OPENING TORTOISE SHELL BRACKET
+FE5E		SMALL CLOSING TORTOISE SHELL BRACKET
+FE68		SMALL BACKSLASH
+FE70		ARABIC SPACING FATHATAN
+FE71		ARABIC FATHATAN ON TATWEEL
+FE72		ARABIC SPACING DAMMATAN
+FE74		ARABIC SPACING KASRATAN
+FE76		ARABIC SPACING FATHAH
+FE77		ARABIC FATHAH ON TATWEEL
+FE78		ARABIC SPACING DAMMAH
+FE79		ARABIC DAMMAH ON TATWEEL
+FE7A		ARABIC SPACING KASRAH
+FE7B		ARABIC KASRAH ON TATWEEL
+FE7C		ARABIC SPACING SHADDAH
+FE7D		ARABIC SHADDAH ON TATWEEL
+FE7E		ARABIC SPACING SUKUN
+FE7F		ARABIC SUKUN ON TATWEEL
+FE80		GLYPH FOR ISOLATE ARABIC HAMZAH
+FE81		GLYPH FOR ISOLATE ARABIC MADDAH ON ALEF
+FE82		GLYPH FOR FINAL ARABIC MADDAH ON ALEF
+FE83		GLYPH FOR ISOLATE ARABIC HAMZAH ON ALEF
+FE84		GLYPH FOR FINAL ARABIC HAMZAH ON ALEF
+FE85		GLYPH FOR ISOLATE ARABIC HAMZAH ON WAW
+FE86		GLYPH FOR FINAL ARABIC HAMZAH ON WAW
+FE87		GLYPH FOR ISOLATE ARABIC HAMZAH UNDER ALEF
+FE88		GLYPH FOR FINAL ARABIC HAMZAH UNDER ALEF
+FE89		GLYPH FOR ISOLATE ARABIC HAMZAH ON YA
+FE8A		GLYPH FOR FINAL ARABIC HAMZAH ON YA
+FE8B		GLYPH FOR INITIAL ARABIC HAMZAH ON YA
+FE8C		GLYPH FOR MEDIAL ARABIC HAMZAH ON YA
+FE8D		GLYPH FOR ISOLATE ARABIC ALEF
+FE8E		GLYPH FOR FINAL ARABIC ALEF
+FE8F		GLYPH FOR ISOLATE ARABIC BAA
+FE90		GLYPH FOR FINAL ARABIC BAA
+FE91		GLYPH FOR INITIAL ARABIC BAA
+FE92		GLYPH FOR MEDIAL ARABIC BAA
+FE93		GLYPH FOR ISOLATE ARABIC TAA MARBUTAH
+FE94		GLYPH FOR FINAL ARABIC TAA MARBUTAH
+FE95		GLYPH FOR ISOLATE ARABIC TAA
+FE96		GLYPH FOR FINAL ARABIC TAA
+FE97		GLYPH FOR INITIAL ARABIC TAA
+FE98		GLYPH FOR MEDIAL ARABIC TAA
+FE99		GLYPH FOR ISOLATE ARABIC THAA
+FE9A		GLYPH FOR FINAL ARABIC THAA
+FE9B		GLYPH FOR INITIAL ARABIC THAA
+FE9C		GLYPH FOR MEDIAL ARABIC THAA
+FE9D		GLYPH FOR ISOLATE ARABIC JEEM
+FE9E		GLYPH FOR FINAL ARABIC JEEM
+FE9F		GLYPH FOR INITIAL ARABIC JEEM
+FEA0		GLYPH FOR MEDIAL ARABIC JEEM
+FEA1		GLYPH FOR ISOLATE ARABIC HAA
+FEA2		GLYPH FOR FINAL ARABIC HAA
+FEA3		GLYPH FOR INITIAL ARABIC HAA
+FEA4		GLYPH FOR MEDIAL ARABIC HAA
+FEA5		GLYPH FOR ISOLATE ARABIC KHAA
+FEA6		GLYPH FOR FINAL ARABIC KHAA
+FEA7		GLYPH FOR INITIAL ARABIC KHAA
+FEA8		GLYPH FOR MEDIAL ARABIC KHAA
+FEA9		GLYPH FOR ISOLATE ARABIC DAL
+FEAA		GLYPH FOR FINAL ARABIC DAL
+FEAB		GLYPH FOR ISOLATE ARABIC THAL
+FEAC		GLYPH FOR FINAL ARABIC THAL
+FEAD		GLYPH FOR ISOLATE ARABIC RA
+FEAE		GLYPH FOR FINAL ARABIC RA
+FEAF		GLYPH FOR ISOLATE ARABIC ZAIN
+FEB0		GLYPH FOR FINAL ARABIC ZAIN
+FEB1		GLYPH FOR ISOLATE ARABIC SEEN
+FEB2		GLYPH FOR FINAL ARABIC SEEN
+FEB3		GLYPH FOR INITIAL ARABIC SEEN
+FEB4		GLYPH FOR MEDIAL ARABIC SEEN
+FEB5		GLYPH FOR ISOLATE ARABIC SHEEN
+FEB6		GLYPH FOR FINAL ARABIC SHEEN
+FEB7		GLYPH FOR INITIAL ARABIC SHEEN
+FEB8		GLYPH FOR MEDIAL ARABIC SHEEN
+FEB9		GLYPH FOR ISOLATE ARABIC SAD
+FEBA		GLYPH FOR FINAL ARABIC SAD
+FEBB		GLYPH FOR INITIAL ARABIC SAD
+FEBC		GLYPH FOR MEDIAL ARABIC SAD
+FEBD		GLYPH FOR ISOLATE ARABIC DAD
+FEBE		GLYPH FOR FINAL ARABIC DAD
+FEBF		GLYPH FOR INITIAL ARABIC DAD
+FEC0		GLYPH FOR MEDIAL ARABIC DAD
+FEC1		GLYPH FOR ISOLATE ARABIC TAH
+FEC2		GLYPH FOR FINAL ARABIC TAH
+FEC3		GLYPH FOR INITIAL ARABIC TAH
+FEC4		GLYPH FOR MEDIAL ARABIC TAH
+FEC5		GLYPH FOR ISOLATE ARABIC DHAH
+FEC6		GLYPH FOR FINAL ARABIC DHAH
+FEC7		GLYPH FOR INITIAL ARABIC DHAH
+FEC8		GLYPH FOR MEDIAL ARABIC DHAH
+FEC9		GLYPH FOR ISOLATE ARABIC AIN
+FECA		GLYPH FOR FINAL ARABIC AIN
+FECB		GLYPH FOR INITIAL ARABIC AIN
+FECC		GLYPH FOR MEDIAL ARABIC AIN
+FECD		GLYPH FOR ISOLATE ARABIC GHAIN
+FECE		GLYPH FOR FINAL ARABIC GHAIN
+FECF		GLYPH FOR INITIAL ARABIC GHAIN
+FED0		GLYPH FOR MEDIAL ARABIC GHAIN
+FED1		GLYPH FOR ISOLATE ARABIC FA
+FED2		GLYPH FOR FINAL ARABIC FA
+FED3		GLYPH FOR INITIAL ARABIC FA
+FED4		GLYPH FOR MEDIAL ARABIC FA
+FED5		GLYPH FOR ISOLATE ARABIC QAF
+FED6		GLYPH FOR FINAL ARABIC QAF
+FED7		GLYPH FOR INITIAL ARABIC QAF
+FED8		GLYPH FOR MEDIAL ARABIC QAF
+FED9		GLYPH FOR ISOLATE ARABIC CAF
+FEDA		GLYPH FOR FINAL ARABIC CAF
+FEDB		GLYPH FOR INITIAL ARABIC CAF
+FEDC		GLYPH FOR MEDIAL ARABIC CAF
+FEDD		GLYPH FOR ISOLATE ARABIC LAM
+FEDE		GLYPH FOR FINAL ARABIC LAM
+FEDF		GLYPH FOR INITIAL ARABIC LAM
+FEE0		GLYPH FOR MEDIAL ARABIC LAM
+FEE1		GLYPH FOR ISOLATE ARABIC MEEM
+FEE2		GLYPH FOR FINAL ARABIC MEEM
+FEE3		GLYPH FOR INITIAL ARABIC MEEM
+FEE4		GLYPH FOR MEDIAL ARABIC MEEM
+FEE5		GLYPH FOR ISOLATE ARABIC NOON
+FEE6		GLYPH FOR FINAL ARABIC NOON
+FEE7		GLYPH FOR INITIAL ARABIC NOON
+FEE8		GLYPH FOR MEDIAL ARABIC NOON
+FEE9		GLYPH FOR ISOLATE ARABIC HA
+FEEA		GLYPH FOR FINAL ARABIC HA
+FEEB		GLYPH FOR INITIAL ARABIC HA
+FEEC		GLYPH FOR MEDIAL ARABIC HA
+FEED		GLYPH FOR ISOLATE ARABIC WAW
+FEEE		GLYPH FOR FINAL ARABIC WAW
+FEEF		GLYPH FOR ISOLATE ARABIC ALEF MAQSURAH
+FEF0		GLYPH FOR FINAL ARABIC ALEF MAQSURAH
+FEF1		GLYPH FOR ISOLATE ARABIC YA
+FEF2		GLYPH FOR FINAL ARABIC YA
+FEF3		GLYPH FOR INITIAL ARABIC YA
+FEF4		GLYPH FOR MEDIAL ARABIC YA
+FEF5		GLYPH FOR ISOLATE ARABIC MADDAH ON LIGATURE LAM ALEF
+FEF6		GLYPH FOR FINAL ARABIC MADDAH ON LIGATURE LAM ALEF
+FEF7		GLYPH FOR ISOLATE ARABIC HAMZAH ON LIGATURE LAM ALEF
+FEF8		GLYPH FOR FINAL ARABIC HAMZAH ON LIGATURE LAM ALEF
+FEF9		GLYPH FOR ISOLATE ARABIC HAMZAH UNDER LIGATURE LAM ALEF
+FEFA		GLYPH FOR FINAL ARABIC HAMZAH UNDER LIGATURE LAM ALEF
+FEFB		GLYPH FOR ISOLATE ARABIC LIGATURE LAM ALEF
+FEFC		GLYPH FOR FINAL ARABIC LIGATURE LAM ALEF
+FEFF		BYTE ORDER MARK
+FF08		FULLWIDTH OPENING PARENTHESIS
+FF09		FULLWIDTH CLOSING PARENTHESIS
+FF0E		FULLWIDTH PERIOD
+FF0F		FULLWIDTH SLASH
+FF3B		FULLWIDTH OPENING SQUARE BRACKET
+FF3C		FULLWIDTH BACKSLASH
+FF3D		FULLWIDTH CLOSING SQUARE BRACKET
+FF3E		FULLWIDTH SPACING CIRCUMFLEX
+FF3F		FULLWIDTH SPACING UNDERSCORE
+FF40		FULLWIDTH SPACING GRAVE
+FF5B		FULLWIDTH OPENING CURLY BRACKET
+FF5C		FULLWIDTH VERTICAL BAR
+FF5D		FULLWIDTH CLOSING CURLY BRACKET
+FF5E		FULLWIDTH SPACING TILDE
+FF61		HALFWIDTH IDEOGRAPHIC PERIOD
+FF62		HALFWIDTH OPENING CORNER BRACKET
+FF63		HALFWIDTH CLOSING CORNER BRACKET
+FFA0		HALFWIDTH HANGUL CAE OM
+FFA1		HALFWIDTH HANGUL LETTER GIYEOG
+FFA2		HALFWIDTH HANGUL LETTER SSANG GIYEOG
+FFA3		HALFWIDTH HANGUL LETTER GIYEOG SIOS
+FFA5		HALFWIDTH HANGUL LETTER NIEUN JIEUJ
+FFA6		HALFWIDTH HANGUL LETTER NIEUN HIEUH
+FFA7		HALFWIDTH HANGUL LETTER DIGEUD
+FFA8		HALFWIDTH HANGUL LETTER SSANG DIGEUD
+FFA9		HALFWIDTH HANGUL LETTER LIEUL
+FFAA		HALFWIDTH HANGUL LETTER LIEUL GIYEOG
+FFAB		HALFWIDTH HANGUL LETTER LIEUL MIEUM
+FFAC		HALFWIDTH HANGUL LETTER LIEUL BIEUB
+FFAD		HALFWIDTH HANGUL LETTER LIEUL SIOS
+FFAE		HALFWIDTH HANGUL LETTER LIEUL TIEUT
+FFAF		HALFWIDTH HANGUL LETTER LIEUL PIEUP
+FFB0		HALFWIDTH HANGUL LETTER LIEUL HIEUH
+FFB2		HALFWIDTH HANGUL LETTER BIEUB
+FFB3		HALFWIDTH HANGUL LETTER SSANG BIEUB
+FFB4		HALFWIDTH HANGUL LETTER BIEUB SIOS
+FFB6		HALFWIDTH HANGUL LETTER SSANG SIOS
+FFB8		HALFWIDTH HANGUL LETTER JIEUJ
+FFB9		HALFWIDTH HANGUL LETTER SSANG JIEUJ
+FFBA		HALFWIDTH HANGUL LETTER CIEUC
+FFBB		HALFWIDTH HANGUL LETTER KIYEOK
+FFBC		HALFWIDTH HANGUL LETTER TIEUT
+FFBD		HALFWIDTH HANGUL LETTER PIEUP
+FFE3		FULLWIDTH SPACING MACRON
+FFE4		FULLWIDTH BROKEN VERTICAL BAR
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFDQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFDQC'}{'missing'} = 'Yes';
+
+return <<'END';
+C0	C5	N
+C7	CF	N
+D1	D6	N
+D9	DD	N
+E0	E5	N
+E7	EF	N
+F1	F6	N
+F9	FD	N
+FF	10F	N
+112	125	N
+128	130	N
+134	137	N
+139	13E	N
+143	148	N
+14C	151	N
+154	165	N
+168	17E	N
+1A0	1A1	N
+1AF	1B0	N
+1CD	1DC	N
+1DE	1E3	N
+1E6	1F0	N
+1F4	1F5	N
+1F8	21B	N
+21E	21F	N
+226	233	N
+340	341	N
+343	344	N
+374		N
+37E		N
+385	38A	N
+38C		N
+38E	390	N
+3AA	3B0	N
+3CA	3CE	N
+3D3	3D4	N
+400	401	N
+403		N
+407		N
+40C	40E	N
+419		N
+439		N
+450	451	N
+453		N
+457		N
+45C	45E	N
+476	477	N
+4C1	4C2	N
+4D0	4D3	N
+4D6	4D7	N
+4DA	4DF	N
+4E2	4E7	N
+4EA	4F5	N
+4F8	4F9	N
+622	626	N
+6C0		N
+6C2		N
+6D3		N
+929		N
+931		N
+934		N
+958	95F	N
+9CB	9CC	N
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B48		N
+B4B	B4C	N
+B5C	B5D	N
+B94		N
+BCA	BCC	N
+C48		N
+CC0		N
+CC7	CC8	N
+CCA	CCB	N
+D4A	D4C	N
+DDA		N
+DDC	DDE	N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F76	N
+F78		N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+1026		N
+1B06		N
+1B08		N
+1B0A		N
+1B0C		N
+1B0E		N
+1B12		N
+1B3B		N
+1B3D		N
+1B40	1B41	N
+1B43		N
+1E00	1E99	N
+1E9B		N
+1EA0	1EF9	N
+1F00	1F15	N
+1F18	1F1D	N
+1F20	1F45	N
+1F48	1F4D	N
+1F50	1F57	N
+1F59		N
+1F5B		N
+1F5D		N
+1F5F	1F7D	N
+1F80	1FB4	N
+1FB6	1FBC	N
+1FBE		N
+1FC1	1FC4	N
+1FC6	1FD3	N
+1FD6	1FDB	N
+1FDD	1FEF	N
+1FF2	1FF4	N
+1FF6	1FFD	N
+2000	2001	N
+2126		N
+212A	212B	N
+219A	219B	N
+21AE		N
+21CD	21CF	N
+2204		N
+2209		N
+220C		N
+2224		N
+2226		N
+2241		N
+2244		N
+2247		N
+2249		N
+2260		N
+2262		N
+226D	2271	N
+2274	2275	N
+2278	2279	N
+2280	2281	N
+2284	2285	N
+2288	2289	N
+22AC	22AF	N
+22E0	22E3	N
+22EA	22ED	N
+2329	232A	N
+2ADC		N
+304C		N
+304E		N
+3050		N
+3052		N
+3054		N
+3056		N
+3058		N
+305A		N
+305C		N
+305E		N
+3060		N
+3062		N
+3065		N
+3067		N
+3069		N
+3070	3071	N
+3073	3074	N
+3076	3077	N
+3079	307A	N
+307C	307D	N
+3094		N
+309E		N
+30AC		N
+30AE		N
+30B0		N
+30B2		N
+30B4		N
+30B6		N
+30B8		N
+30BA		N
+30BC		N
+30BE		N
+30C0		N
+30C2		N
+30C5		N
+30C7		N
+30C9		N
+30D0	30D1	N
+30D3	30D4	N
+30D6	30D7	N
+30D9	30DA	N
+30DC	30DD	N
+30F4		N
+30F7	30FA	N
+30FE		N
+AC00	D7A3	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB1D		N
+FB1F		N
+FB2A	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FB4E	N
+1109A		N
+1109C		N
+110AB		N
+1112E	1112F	N
+1134B	1134C	N
+114BB	114BC	N
+114BE		N
+115BA	115BB	N
+1D15E	1D164	N
+1D1BB	1D1C0	N
+2F800	2FA1D	N
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFCQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFCQC'}{'missing'} = 'Yes';
+
+return <<'END';
+300	304	M
+306	30C	M
+30F		M
+311		M
+313	314	M
+31B		M
+323	328	M
+32D	32E	M
+330	331	M
+338		M
+340	341	N
+342		M
+343	344	N
+345		M
+374		N
+37E		N
+387		N
+653	655	M
+93C		M
+958	95F	N
+9BE		M
+9D7		M
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B3E		M
+B56	B57	M
+B5C	B5D	N
+BBE		M
+BD7		M
+C56		M
+CC2		M
+CD5	CD6	M
+D3E		M
+D57		M
+DCA		M
+DCF		M
+DDF		M
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F76	N
+F78		N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+102E		M
+1161	1175	M
+11A8	11C2	M
+1B35		M
+1F71		N
+1F73		N
+1F75		N
+1F77		N
+1F79		N
+1F7B		N
+1F7D		N
+1FBB		N
+1FBE		N
+1FC9		N
+1FCB		N
+1FD3		N
+1FDB		N
+1FE3		N
+1FEB		N
+1FEE	1FEF	N
+1FF9		N
+1FFB		N
+1FFD		N
+2000	2001	N
+2126		N
+212A	212B	N
+2329	232A	N
+2ADC		N
+3099	309A	M
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB1D		N
+FB1F		N
+FB2A	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FB4E	N
+110BA		M
+11127		M
+1133E		M
+11357		M
+114B0		M
+114BA		M
+114BD		M
+115AF		M
+1D15E	1D164	N
+1D1BB	1D1C0	N
+2F800	2FA1D	N
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLb'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToLb'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	8	CM
+9		BA
+A		LF
+B	C	BK
+D		CR
+E	1F	CM
+20		SP
+21		EX
+22		QU
+23		AL
+24		PR
+25		PO
+26		AL
+27		QU
+28		OP
+29		CP
+2A		AL
+2B		PR
+2C		IS
+2D		HY
+2E		IS
+2F		SY
+30	39	NU
+3A	3B	IS
+3C	3E	AL
+3F		EX
+40	5A	AL
+5B		OP
+5C		PR
+5D		CP
+5E	7A	AL
+7B		OP
+7C		BA
+7D		CL
+7E		AL
+7F	84	CM
+85		NL
+86	9F	CM
+A0		GL
+A1		OP
+A2		PO
+A3	A5	PR
+A6		AL
+A7	A8	AI
+A9		AL
+AA		AI
+AB		QU
+AC		AL
+AD		BA
+AE	AF	AL
+B0		PO
+B1		PR
+B2	B3	AI
+B4		BB
+B5		AL
+B6	BA	AI
+BB		QU
+BC	BE	AI
+BF		OP
+C0	D6	AL
+D7		AI
+D8	F6	AL
+F7		AI
+F8	2C6	AL
+2C7		AI
+2C8		BB
+2C9	2CB	AI
+2CC		BB
+2CD		AI
+2CE	2CF	AL
+2D0		AI
+2D1	2D7	AL
+2D8	2DB	AI
+2DC		AL
+2DD		AI
+2DE		AL
+2DF		BB
+2E0	2FF	AL
+300	34E	CM
+34F		GL
+350	35B	CM
+35C	362	GL
+363	36F	CM
+370	377	AL
+37A	37D	AL
+37E		IS
+37F		AL
+384	38A	AL
+38C		AL
+38E	3A1	AL
+3A3	482	AL
+483	489	CM
+48A	52F	AL
+531	556	AL
+559	55F	AL
+561	587	AL
+589		IS
+58A		BA
+58D	58E	AL
+58F		PR
+591	5BD	CM
+5BE		BA
+5BF		CM
+5C0		AL
+5C1	5C2	CM
+5C3		AL
+5C4	5C5	CM
+5C6		EX
+5C7		CM
+5D0	5EA	HL
+5F0	5F2	HL
+5F3	5F4	AL
+600	608	AL
+609	60B	PO
+60C	60D	IS
+60E	60F	AL
+610	61A	CM
+61B		EX
+61C		CM
+61E	61F	EX
+620	64A	AL
+64B	65F	CM
+660	669	NU
+66A		PO
+66B	66C	NU
+66D	66F	AL
+670		CM
+671	6D3	AL
+6D4		EX
+6D5		AL
+6D6	6DC	CM
+6DD	6DE	AL
+6DF	6E4	CM
+6E5	6E6	AL
+6E7	6E8	CM
+6E9		AL
+6EA	6ED	CM
+6EE	6EF	AL
+6F0	6F9	NU
+6FA	70D	AL
+70F	710	AL
+711		CM
+712	72F	AL
+730	74A	CM
+74D	7A5	AL
+7A6	7B0	CM
+7B1		AL
+7C0	7C9	NU
+7CA	7EA	AL
+7EB	7F3	CM
+7F4	7F7	AL
+7F8		IS
+7F9		EX
+7FA		AL
+800	815	AL
+816	819	CM
+81A		AL
+81B	823	CM
+824		AL
+825	827	CM
+828		AL
+829	82D	CM
+830	83E	AL
+840	858	AL
+859	85B	CM
+85E		AL
+860	86A	AL
+8A0	8B4	AL
+8B6	8BD	AL
+8D4	8E1	CM
+8E2		AL
+8E3	903	CM
+904	939	AL
+93A	93C	CM
+93D		AL
+93E	94F	CM
+950		AL
+951	957	CM
+958	961	AL
+962	963	CM
+964	965	BA
+966	96F	NU
+970	980	AL
+981	983	CM
+985	98C	AL
+98F	990	AL
+993	9A8	AL
+9AA	9B0	AL
+9B2		AL
+9B6	9B9	AL
+9BC		CM
+9BD		AL
+9BE	9C4	CM
+9C7	9C8	CM
+9CB	9CD	CM
+9CE		AL
+9D7		CM
+9DC	9DD	AL
+9DF	9E1	AL
+9E2	9E3	CM
+9E6	9EF	NU
+9F0	9F1	AL
+9F2	9F3	PO
+9F4	9F8	AL
+9F9		PO
+9FA		AL
+9FB		PR
+9FC	9FD	AL
+A01	A03	CM
+A05	A0A	AL
+A0F	A10	AL
+A13	A28	AL
+A2A	A30	AL
+A32	A33	AL
+A35	A36	AL
+A38	A39	AL
+A3C		CM
+A3E	A42	CM
+A47	A48	CM
+A4B	A4D	CM
+A51		CM
+A59	A5C	AL
+A5E		AL
+A66	A6F	NU
+A70	A71	CM
+A72	A74	AL
+A75		CM
+A81	A83	CM
+A85	A8D	AL
+A8F	A91	AL
+A93	AA8	AL
+AAA	AB0	AL
+AB2	AB3	AL
+AB5	AB9	AL
+ABC		CM
+ABD		AL
+ABE	AC5	CM
+AC7	AC9	CM
+ACB	ACD	CM
+AD0		AL
+AE0	AE1	AL
+AE2	AE3	CM
+AE6	AEF	NU
+AF0		AL
+AF1		PR
+AF9		AL
+AFA	AFF	CM
+B01	B03	CM
+B05	B0C	AL
+B0F	B10	AL
+B13	B28	AL
+B2A	B30	AL
+B32	B33	AL
+B35	B39	AL
+B3C		CM
+B3D		AL
+B3E	B44	CM
+B47	B48	CM
+B4B	B4D	CM
+B56	B57	CM
+B5C	B5D	AL
+B5F	B61	AL
+B62	B63	CM
+B66	B6F	NU
+B70	B77	AL
+B82		CM
+B83		AL
+B85	B8A	AL
+B8E	B90	AL
+B92	B95	AL
+B99	B9A	AL
+B9C		AL
+B9E	B9F	AL
+BA3	BA4	AL
+BA8	BAA	AL
+BAE	BB9	AL
+BBE	BC2	CM
+BC6	BC8	CM
+BCA	BCD	CM
+BD0		AL
+BD7		CM
+BE6	BEF	NU
+BF0	BF8	AL
+BF9		PR
+BFA		AL
+C00	C03	CM
+C05	C0C	AL
+C0E	C10	AL
+C12	C28	AL
+C2A	C39	AL
+C3D		AL
+C3E	C44	CM
+C46	C48	CM
+C4A	C4D	CM
+C55	C56	CM
+C58	C5A	AL
+C60	C61	AL
+C62	C63	CM
+C66	C6F	NU
+C78	C80	AL
+C81	C83	CM
+C85	C8C	AL
+C8E	C90	AL
+C92	CA8	AL
+CAA	CB3	AL
+CB5	CB9	AL
+CBC		CM
+CBD		AL
+CBE	CC4	CM
+CC6	CC8	CM
+CCA	CCD	CM
+CD5	CD6	CM
+CDE		AL
+CE0	CE1	AL
+CE2	CE3	CM
+CE6	CEF	NU
+CF1	CF2	AL
+D00	D03	CM
+D05	D0C	AL
+D0E	D10	AL
+D12	D3A	AL
+D3B	D3C	CM
+D3D		AL
+D3E	D44	CM
+D46	D48	CM
+D4A	D4D	CM
+D4E	D4F	AL
+D54	D56	AL
+D57		CM
+D58	D61	AL
+D62	D63	CM
+D66	D6F	NU
+D70	D78	AL
+D79		PO
+D7A	D7F	AL
+D82	D83	CM
+D85	D96	AL
+D9A	DB1	AL
+DB3	DBB	AL
+DBD		AL
+DC0	DC6	AL
+DCA		CM
+DCF	DD4	CM
+DD6		CM
+DD8	DDF	CM
+DE6	DEF	NU
+DF2	DF3	CM
+DF4		AL
+E01	E3A	SA
+E3F		PR
+E40	E4E	SA
+E4F		AL
+E50	E59	NU
+E5A	E5B	BA
+E81	E82	SA
+E84		SA
+E87	E88	SA
+E8A		SA
+E8D		SA
+E94	E97	SA
+E99	E9F	SA
+EA1	EA3	SA
+EA5		SA
+EA7		SA
+EAA	EAB	SA
+EAD	EB9	SA
+EBB	EBD	SA
+EC0	EC4	SA
+EC6		SA
+EC8	ECD	SA
+ED0	ED9	NU
+EDC	EDF	SA
+F00		AL
+F01	F04	BB
+F05		AL
+F06	F07	BB
+F08		GL
+F09	F0A	BB
+F0B		BA
+F0C		GL
+F0D	F11	EX
+F12		GL
+F13		AL
+F14		EX
+F15	F17	AL
+F18	F19	CM
+F1A	F1F	AL
+F20	F29	NU
+F2A	F33	AL
+F34		BA
+F35		CM
+F36		AL
+F37		CM
+F38		AL
+F39		CM
+F3A		OP
+F3B		CL
+F3C		OP
+F3D		CL
+F3E	F3F	CM
+F40	F47	AL
+F49	F6C	AL
+F71	F7E	CM
+F7F		BA
+F80	F84	CM
+F85		BA
+F86	F87	CM
+F88	F8C	AL
+F8D	F97	CM
+F99	FBC	CM
+FBE	FBF	BA
+FC0	FC5	AL
+FC6		CM
+FC7	FCC	AL
+FCE	FCF	AL
+FD0	FD1	BB
+FD2		BA
+FD3		BB
+FD4	FD8	AL
+FD9	FDA	GL
+1000	103F	SA
+1040	1049	NU
+104A	104B	BA
+104C	104F	AL
+1050	108F	SA
+1090	1099	NU
+109A	109F	SA
+10A0	10C5	AL
+10C7		AL
+10CD		AL
+10D0	10FF	AL
+1100	115F	JL
+1160	11A7	JV
+11A8	11FF	JT
+1200	1248	AL
+124A	124D	AL
+1250	1256	AL
+1258		AL
+125A	125D	AL
+1260	1288	AL
+128A	128D	AL
+1290	12B0	AL
+12B2	12B5	AL
+12B8	12BE	AL
+12C0		AL
+12C2	12C5	AL
+12C8	12D6	AL
+12D8	1310	AL
+1312	1315	AL
+1318	135A	AL
+135D	135F	CM
+1360		AL
+1361		BA
+1362	137C	AL
+1380	1399	AL
+13A0	13F5	AL
+13F8	13FD	AL
+1400		BA
+1401	167F	AL
+1680		BA
+1681	169A	AL
+169B		OP
+169C		CL
+16A0	16EA	AL
+16EB	16ED	BA
+16EE	16F8	AL
+1700	170C	AL
+170E	1711	AL
+1712	1714	CM
+1720	1731	AL
+1732	1734	CM
+1735	1736	BA
+1740	1751	AL
+1752	1753	CM
+1760	176C	AL
+176E	1770	AL
+1772	1773	CM
+1780	17D3	SA
+17D4	17D5	BA
+17D6		NS
+17D7		SA
+17D8		BA
+17D9		AL
+17DA		BA
+17DB		PR
+17DC	17DD	SA
+17E0	17E9	NU
+17F0	17F9	AL
+1800	1801	AL
+1802	1803	EX
+1804	1805	BA
+1806		BB
+1807		AL
+1808	1809	EX
+180A		AL
+180B	180D	CM
+180E		GL
+1810	1819	NU
+1820	1877	AL
+1880	1884	AL
+1885	1886	CM
+1887	18A8	AL
+18A9		CM
+18AA		AL
+18B0	18F5	AL
+1900	191E	AL
+1920	192B	CM
+1930	193B	CM
+1940		AL
+1944	1945	EX
+1946	194F	NU
+1950	196D	SA
+1970	1974	SA
+1980	19AB	SA
+19B0	19C9	SA
+19D0	19D9	NU
+19DA		SA
+19DE	19DF	SA
+19E0	1A16	AL
+1A17	1A1B	CM
+1A1E	1A1F	AL
+1A20	1A5E	SA
+1A60	1A7C	SA
+1A7F		CM
+1A80	1A89	NU
+1A90	1A99	NU
+1AA0	1AAD	SA
+1AB0	1ABE	CM
+1B00	1B04	CM
+1B05	1B33	AL
+1B34	1B44	CM
+1B45	1B4B	AL
+1B50	1B59	NU
+1B5A	1B5B	BA
+1B5C		AL
+1B5D	1B60	BA
+1B61	1B6A	AL
+1B6B	1B73	CM
+1B74	1B7C	AL
+1B80	1B82	CM
+1B83	1BA0	AL
+1BA1	1BAD	CM
+1BAE	1BAF	AL
+1BB0	1BB9	NU
+1BBA	1BE5	AL
+1BE6	1BF3	CM
+1BFC	1C23	AL
+1C24	1C37	CM
+1C3B	1C3F	BA
+1C40	1C49	NU
+1C4D	1C4F	AL
+1C50	1C59	NU
+1C5A	1C7D	AL
+1C7E	1C7F	BA
+1C80	1C88	AL
+1CC0	1CC7	AL
+1CD0	1CD2	CM
+1CD3		AL
+1CD4	1CE8	CM
+1CE9	1CEC	AL
+1CED		CM
+1CEE	1CF1	AL
+1CF2	1CF4	CM
+1CF5	1CF6	AL
+1CF7	1CF9	CM
+1D00	1DBF	AL
+1DC0	1DF9	CM
+1DFB	1DFF	CM
+1E00	1F15	AL
+1F18	1F1D	AL
+1F20	1F45	AL
+1F48	1F4D	AL
+1F50	1F57	AL
+1F59		AL
+1F5B		AL
+1F5D		AL
+1F5F	1F7D	AL
+1F80	1FB4	AL
+1FB6	1FC4	AL
+1FC6	1FD3	AL
+1FD6	1FDB	AL
+1FDD	1FEF	AL
+1FF2	1FF4	AL
+1FF6	1FFC	AL
+1FFD		BB
+1FFE		AL
+2000	2006	BA
+2007		GL
+2008	200A	BA
+200B		ZW
+200C		CM
+200D		ZWJ
+200E	200F	CM
+2010		BA
+2011		GL
+2012	2013	BA
+2014		B2
+2015	2016	AI
+2017		AL
+2018	2019	QU
+201A		OP
+201B	201D	QU
+201E		OP
+201F		QU
+2020	2021	AI
+2022	2023	AL
+2024	2026	IN
+2027		BA
+2028	2029	BK
+202A	202E	CM
+202F		GL
+2030	2037	PO
+2038		AL
+2039	203A	QU
+203B		AI
+203C	203D	NS
+203E	2043	AL
+2044		IS
+2045		OP
+2046		CL
+2047	2049	NS
+204A	2055	AL
+2056		BA
+2057		AL
+2058	205B	BA
+205C		AL
+205D	205F	BA
+2060		WJ
+2061	2064	AL
+2066	206F	CM
+2070	2071	AL
+2074		AI
+2075	207C	AL
+207D		OP
+207E		CL
+207F		AI
+2080		AL
+2081	2084	AI
+2085	208C	AL
+208D		OP
+208E		CL
+2090	209C	AL
+20A0	20A6	PR
+20A7		PO
+20A8	20B5	PR
+20B6		PO
+20B7	20BA	PR
+20BB		PO
+20BC	20BD	PR
+20BE		PO
+20BF	20CF	PR
+20D0	20F0	CM
+2100	2102	AL
+2103		PO
+2104		AL
+2105		AI
+2106	2108	AL
+2109		PO
+210A	2112	AL
+2113		AI
+2114	2115	AL
+2116		PR
+2117	2120	AL
+2121	2122	AI
+2123	212A	AL
+212B		AI
+212C	2153	AL
+2154	2155	AI
+2156	215A	AL
+215B		AI
+215C	215D	AL
+215E		AI
+215F		AL
+2160	216B	AI
+216C	216F	AL
+2170	2179	AI
+217A	2188	AL
+2189		AI
+218A	218B	AL
+2190	2199	AI
+219A	21D1	AL
+21D2		AI
+21D3		AL
+21D4		AI
+21D5	21FF	AL
+2200		AI
+2201		AL
+2202	2203	AI
+2204	2206	AL
+2207	2208	AI
+2209	220A	AL
+220B		AI
+220C	220E	AL
+220F		AI
+2210		AL
+2211		AI
+2212	2213	PR
+2214		AL
+2215		AI
+2216	2219	AL
+221A		AI
+221B	221C	AL
+221D	2220	AI
+2221	2222	AL
+2223		AI
+2224		AL
+2225		AI
+2226		AL
+2227	222C	AI
+222D		AL
+222E		AI
+222F	2233	AL
+2234	2237	AI
+2238	223B	AL
+223C	223D	AI
+223E	2247	AL
+2248		AI
+2249	224B	AL
+224C		AI
+224D	2251	AL
+2252		AI
+2253	225F	AL
+2260	2261	AI
+2262	2263	AL
+2264	2267	AI
+2268	2269	AL
+226A	226B	AI
+226C	226D	AL
+226E	226F	AI
+2270	2281	AL
+2282	2283	AI
+2284	2285	AL
+2286	2287	AI
+2288	2294	AL
+2295		AI
+2296	2298	AL
+2299		AI
+229A	22A4	AL
+22A5		AI
+22A6	22BE	AL
+22BF		AI
+22C0	22EE	AL
+22EF		IN
+22F0	2307	AL
+2308		OP
+2309		CL
+230A		OP
+230B		CL
+230C	2311	AL
+2312		AI
+2313	2319	AL
+231A	231B	ID
+231C	2328	AL
+2329		OP
+232A		CL
+232B	23EF	AL
+23F0	23F3	ID
+23F4	2426	AL
+2440	244A	AL
+2460	24FE	AI
+24FF		AL
+2500	254B	AI
+254C	254F	AL
+2550	2574	AI
+2575	257F	AL
+2580	258F	AI
+2590	2591	AL
+2592	2595	AI
+2596	259F	AL
+25A0	25A1	AI
+25A2		AL
+25A3	25A9	AI
+25AA	25B1	AL
+25B2	25B3	AI
+25B4	25B5	AL
+25B6	25B7	AI
+25B8	25BB	AL
+25BC	25BD	AI
+25BE	25BF	AL
+25C0	25C1	AI
+25C2	25C5	AL
+25C6	25C8	AI
+25C9	25CA	AL
+25CB		AI
+25CC	25CD	AL
+25CE	25D1	AI
+25D2	25E1	AL
+25E2	25E5	AI
+25E6	25EE	AL
+25EF		AI
+25F0	25FF	AL
+2600	2603	ID
+2604		AL
+2605	2606	AI
+2607	2608	AL
+2609		AI
+260A	260D	AL
+260E	260F	AI
+2610	2613	AL
+2614	2615	ID
+2616	2617	AI
+2618		ID
+2619		AL
+261A	261C	ID
+261D		EB
+261E	261F	ID
+2620	2638	AL
+2639	263B	ID
+263C	263F	AL
+2640		AI
+2641		AL
+2642		AI
+2643	265F	AL
+2660	2661	AI
+2662		AL
+2663	2665	AI
+2666		AL
+2667		AI
+2668		ID
+2669	266A	AI
+266B		AL
+266C	266D	AI
+266E		AL
+266F		AI
+2670	267E	AL
+267F		ID
+2680	269D	AL
+269E	269F	AI
+26A0	26BC	AL
+26BD	26C8	ID
+26C9	26CC	AI
+26CD		ID
+26CE		AL
+26CF	26D1	ID
+26D2		AI
+26D3	26D4	ID
+26D5	26D7	AI
+26D8	26D9	ID
+26DA	26DB	AI
+26DC		ID
+26DD	26DE	AI
+26DF	26E1	ID
+26E2		AL
+26E3		AI
+26E4	26E7	AL
+26E8	26E9	AI
+26EA		ID
+26EB	26F0	AI
+26F1	26F5	ID
+26F6		AI
+26F7	26F8	ID
+26F9		EB
+26FA		ID
+26FB	26FC	AI
+26FD	2704	ID
+2705	2707	AL
+2708	2709	ID
+270A	270D	EB
+270E	2756	AL
+2757		AI
+2758	275A	AL
+275B	2760	QU
+2761		AL
+2762	2763	EX
+2764		ID
+2765	2767	AL
+2768		OP
+2769		CL
+276A		OP
+276B		CL
+276C		OP
+276D		CL
+276E		OP
+276F		CL
+2770		OP
+2771		CL
+2772		OP
+2773		CL
+2774		OP
+2775		CL
+2776	2793	AI
+2794	27C4	AL
+27C5		OP
+27C6		CL
+27C7	27E5	AL
+27E6		OP
+27E7		CL
+27E8		OP
+27E9		CL
+27EA		OP
+27EB		CL
+27EC		OP
+27ED		CL
+27EE		OP
+27EF		CL
+27F0	2982	AL
+2983		OP
+2984		CL
+2985		OP
+2986		CL
+2987		OP
+2988		CL
+2989		OP
+298A		CL
+298B		OP
+298C		CL
+298D		OP
+298E		CL
+298F		OP
+2990		CL
+2991		OP
+2992		CL
+2993		OP
+2994		CL
+2995		OP
+2996		CL
+2997		OP
+2998		CL
+2999	29D7	AL
+29D8		OP
+29D9		CL
+29DA		OP
+29DB		CL
+29DC	29FB	AL
+29FC		OP
+29FD		CL
+29FE	2B54	AL
+2B55	2B59	AI
+2B5A	2B73	AL
+2B76	2B95	AL
+2B98	2BB9	AL
+2BBD	2BC8	AL
+2BCA	2BD2	AL
+2BEC	2BEF	AL
+2C00	2C2E	AL
+2C30	2C5E	AL
+2C60	2CEE	AL
+2CEF	2CF1	CM
+2CF2	2CF3	AL
+2CF9		EX
+2CFA	2CFC	BA
+2CFD		AL
+2CFE		EX
+2CFF		BA
+2D00	2D25	AL
+2D27		AL
+2D2D		AL
+2D30	2D67	AL
+2D6F		AL
+2D70		BA
+2D7F		CM
+2D80	2D96	AL
+2DA0	2DA6	AL
+2DA8	2DAE	AL
+2DB0	2DB6	AL
+2DB8	2DBE	AL
+2DC0	2DC6	AL
+2DC8	2DCE	AL
+2DD0	2DD6	AL
+2DD8	2DDE	AL
+2DE0	2DFF	CM
+2E00	2E0D	QU
+2E0E	2E15	BA
+2E16		AL
+2E17		BA
+2E18		OP
+2E19		BA
+2E1A	2E1B	AL
+2E1C	2E1D	QU
+2E1E	2E1F	AL
+2E20	2E21	QU
+2E22		OP
+2E23		CL
+2E24		OP
+2E25		CL
+2E26		OP
+2E27		CL
+2E28		OP
+2E29		CL
+2E2A	2E2D	BA
+2E2E		EX
+2E2F		AL
+2E30	2E31	BA
+2E32		AL
+2E33	2E34	BA
+2E35	2E39	AL
+2E3A	2E3B	B2
+2E3C	2E3E	BA
+2E3F		AL
+2E40	2E41	BA
+2E42		OP
+2E43	2E49	BA
+2E80	2E99	ID
+2E9B	2EF3	ID
+2F00	2FD5	ID
+2FF0	2FFB	ID
+3000		BA
+3001	3002	CL
+3003	3004	ID
+3005		NS
+3006	3007	ID
+3008		OP
+3009		CL
+300A		OP
+300B		CL
+300C		OP
+300D		CL
+300E		OP
+300F		CL
+3010		OP
+3011		CL
+3012	3013	ID
+3014		OP
+3015		CL
+3016		OP
+3017		CL
+3018		OP
+3019		CL
+301A		OP
+301B		CL
+301C		NS
+301D		OP
+301E	301F	CL
+3020	3029	ID
+302A	302F	CM
+3030	3034	ID
+3035		CM
+3036	303A	ID
+303B	303C	NS
+303D	303F	ID
+3041		CJ
+3042		ID
+3043		CJ
+3044		ID
+3045		CJ
+3046		ID
+3047		CJ
+3048		ID
+3049		CJ
+304A	3062	ID
+3063		CJ
+3064	3082	ID
+3083		CJ
+3084		ID
+3085		CJ
+3086		ID
+3087		CJ
+3088	308D	ID
+308E		CJ
+308F	3094	ID
+3095	3096	CJ
+3099	309A	CM
+309B	309E	NS
+309F		ID
+30A0		NS
+30A1		CJ
+30A2		ID
+30A3		CJ
+30A4		ID
+30A5		CJ
+30A6		ID
+30A7		CJ
+30A8		ID
+30A9		CJ
+30AA	30C2	ID
+30C3		CJ
+30C4	30E2	ID
+30E3		CJ
+30E4		ID
+30E5		CJ
+30E6		ID
+30E7		CJ
+30E8	30ED	ID
+30EE		CJ
+30EF	30F4	ID
+30F5	30F6	CJ
+30F7	30FA	ID
+30FB		NS
+30FC		CJ
+30FD	30FE	NS
+30FF		ID
+3105	312E	ID
+3131	318E	ID
+3190	31BA	ID
+31C0	31E3	ID
+31F0	31FF	CJ
+3200	321E	ID
+3220	3247	ID
+3248	324F	AI
+3250	32FE	ID
+3300	4DBF	ID
+4DC0	4DFF	AL
+4E00	A014	ID
+A015		NS
+A016	A48C	ID
+A490	A4C6	ID
+A4D0	A4FD	AL
+A4FE	A4FF	BA
+A500	A60C	AL
+A60D		BA
+A60E		EX
+A60F		BA
+A610	A61F	AL
+A620	A629	NU
+A62A	A62B	AL
+A640	A66E	AL
+A66F	A672	CM
+A673		AL
+A674	A67D	CM
+A67E	A69D	AL
+A69E	A69F	CM
+A6A0	A6EF	AL
+A6F0	A6F1	CM
+A6F2		AL
+A6F3	A6F7	BA
+A700	A7AE	AL
+A7B0	A7B7	AL
+A7F7	A801	AL
+A802		CM
+A803	A805	AL
+A806		CM
+A807	A80A	AL
+A80B		CM
+A80C	A822	AL
+A823	A827	CM
+A828	A82B	AL
+A830	A837	AL
+A838		PO
+A839		AL
+A840	A873	AL
+A874	A875	BB
+A876	A877	EX
+A880	A881	CM
+A882	A8B3	AL
+A8B4	A8C5	CM
+A8CE	A8CF	BA
+A8D0	A8D9	NU
+A8E0	A8F1	CM
+A8F2	A8FB	AL
+A8FC		BB
+A8FD		AL
+A900	A909	NU
+A90A	A925	AL
+A926	A92D	CM
+A92E	A92F	BA
+A930	A946	AL
+A947	A953	CM
+A95F		AL
+A960	A97C	JL
+A980	A983	CM
+A984	A9B2	AL
+A9B3	A9C0	CM
+A9C1	A9C6	AL
+A9C7	A9C9	BA
+A9CA	A9CD	AL
+A9CF		AL
+A9D0	A9D9	NU
+A9DE	A9DF	AL
+A9E0	A9EF	SA
+A9F0	A9F9	NU
+A9FA	A9FE	SA
+AA00	AA28	AL
+AA29	AA36	CM
+AA40	AA42	AL
+AA43		CM
+AA44	AA4B	AL
+AA4C	AA4D	CM
+AA50	AA59	NU
+AA5C		AL
+AA5D	AA5F	BA
+AA60	AAC2	SA
+AADB	AADF	SA
+AAE0	AAEA	AL
+AAEB	AAEF	CM
+AAF0	AAF1	BA
+AAF2	AAF4	AL
+AAF5	AAF6	CM
+AB01	AB06	AL
+AB09	AB0E	AL
+AB11	AB16	AL
+AB20	AB26	AL
+AB28	AB2E	AL
+AB30	AB65	AL
+AB70	ABE2	AL
+ABE3	ABEA	CM
+ABEB		BA
+ABEC	ABED	CM
+ABF0	ABF9	NU
+AC00		H2
+AC01	AC1B	H3
+AC1C		H2
+AC1D	AC37	H3
+AC38		H2
+AC39	AC53	H3
+AC54		H2
+AC55	AC6F	H3
+AC70		H2
+AC71	AC8B	H3
+AC8C		H2
+AC8D	ACA7	H3
+ACA8		H2
+ACA9	ACC3	H3
+ACC4		H2
+ACC5	ACDF	H3
+ACE0		H2
+ACE1	ACFB	H3
+ACFC		H2
+ACFD	AD17	H3
+AD18		H2
+AD19	AD33	H3
+AD34		H2
+AD35	AD4F	H3
+AD50		H2
+AD51	AD6B	H3
+AD6C		H2
+AD6D	AD87	H3
+AD88		H2
+AD89	ADA3	H3
+ADA4		H2
+ADA5	ADBF	H3
+ADC0		H2
+ADC1	ADDB	H3
+ADDC		H2
+ADDD	ADF7	H3
+ADF8		H2
+ADF9	AE13	H3
+AE14		H2
+AE15	AE2F	H3
+AE30		H2
+AE31	AE4B	H3
+AE4C		H2
+AE4D	AE67	H3
+AE68		H2
+AE69	AE83	H3
+AE84		H2
+AE85	AE9F	H3
+AEA0		H2
+AEA1	AEBB	H3
+AEBC		H2
+AEBD	AED7	H3
+AED8		H2
+AED9	AEF3	H3
+AEF4		H2
+AEF5	AF0F	H3
+AF10		H2
+AF11	AF2B	H3
+AF2C		H2
+AF2D	AF47	H3
+AF48		H2
+AF49	AF63	H3
+AF64		H2
+AF65	AF7F	H3
+AF80		H2
+AF81	AF9B	H3
+AF9C		H2
+AF9D	AFB7	H3
+AFB8		H2
+AFB9	AFD3	H3
+AFD4		H2
+AFD5	AFEF	H3
+AFF0		H2
+AFF1	B00B	H3
+B00C		H2
+B00D	B027	H3
+B028		H2
+B029	B043	H3
+B044		H2
+B045	B05F	H3
+B060		H2
+B061	B07B	H3
+B07C		H2
+B07D	B097	H3
+B098		H2
+B099	B0B3	H3
+B0B4		H2
+B0B5	B0CF	H3
+B0D0		H2
+B0D1	B0EB	H3
+B0EC		H2
+B0ED	B107	H3
+B108		H2
+B109	B123	H3
+B124		H2
+B125	B13F	H3
+B140		H2
+B141	B15B	H3
+B15C		H2
+B15D	B177	H3
+B178		H2
+B179	B193	H3
+B194		H2
+B195	B1AF	H3
+B1B0		H2
+B1B1	B1CB	H3
+B1CC		H2
+B1CD	B1E7	H3
+B1E8		H2
+B1E9	B203	H3
+B204		H2
+B205	B21F	H3
+B220		H2
+B221	B23B	H3
+B23C		H2
+B23D	B257	H3
+B258		H2
+B259	B273	H3
+B274		H2
+B275	B28F	H3
+B290		H2
+B291	B2AB	H3
+B2AC		H2
+B2AD	B2C7	H3
+B2C8		H2
+B2C9	B2E3	H3
+B2E4		H2
+B2E5	B2FF	H3
+B300		H2
+B301	B31B	H3
+B31C		H2
+B31D	B337	H3
+B338		H2
+B339	B353	H3
+B354		H2
+B355	B36F	H3
+B370		H2
+B371	B38B	H3
+B38C		H2
+B38D	B3A7	H3
+B3A8		H2
+B3A9	B3C3	H3
+B3C4		H2
+B3C5	B3DF	H3
+B3E0		H2
+B3E1	B3FB	H3
+B3FC		H2
+B3FD	B417	H3
+B418		H2
+B419	B433	H3
+B434		H2
+B435	B44F	H3
+B450		H2
+B451	B46B	H3
+B46C		H2
+B46D	B487	H3
+B488		H2
+B489	B4A3	H3
+B4A4		H2
+B4A5	B4BF	H3
+B4C0		H2
+B4C1	B4DB	H3
+B4DC		H2
+B4DD	B4F7	H3
+B4F8		H2
+B4F9	B513	H3
+B514		H2
+B515	B52F	H3
+B530		H2
+B531	B54B	H3
+B54C		H2
+B54D	B567	H3
+B568		H2
+B569	B583	H3
+B584		H2
+B585	B59F	H3
+B5A0		H2
+B5A1	B5BB	H3
+B5BC		H2
+B5BD	B5D7	H3
+B5D8		H2
+B5D9	B5F3	H3
+B5F4		H2
+B5F5	B60F	H3
+B610		H2
+B611	B62B	H3
+B62C		H2
+B62D	B647	H3
+B648		H2
+B649	B663	H3
+B664		H2
+B665	B67F	H3
+B680		H2
+B681	B69B	H3
+B69C		H2
+B69D	B6B7	H3
+B6B8		H2
+B6B9	B6D3	H3
+B6D4		H2
+B6D5	B6EF	H3
+B6F0		H2
+B6F1	B70B	H3
+B70C		H2
+B70D	B727	H3
+B728		H2
+B729	B743	H3
+B744		H2
+B745	B75F	H3
+B760		H2
+B761	B77B	H3
+B77C		H2
+B77D	B797	H3
+B798		H2
+B799	B7B3	H3
+B7B4		H2
+B7B5	B7CF	H3
+B7D0		H2
+B7D1	B7EB	H3
+B7EC		H2
+B7ED	B807	H3
+B808		H2
+B809	B823	H3
+B824		H2
+B825	B83F	H3
+B840		H2
+B841	B85B	H3
+B85C		H2
+B85D	B877	H3
+B878		H2
+B879	B893	H3
+B894		H2
+B895	B8AF	H3
+B8B0		H2
+B8B1	B8CB	H3
+B8CC		H2
+B8CD	B8E7	H3
+B8E8		H2
+B8E9	B903	H3
+B904		H2
+B905	B91F	H3
+B920		H2
+B921	B93B	H3
+B93C		H2
+B93D	B957	H3
+B958		H2
+B959	B973	H3
+B974		H2
+B975	B98F	H3
+B990		H2
+B991	B9AB	H3
+B9AC		H2
+B9AD	B9C7	H3
+B9C8		H2
+B9C9	B9E3	H3
+B9E4		H2
+B9E5	B9FF	H3
+BA00		H2
+BA01	BA1B	H3
+BA1C		H2
+BA1D	BA37	H3
+BA38		H2
+BA39	BA53	H3
+BA54		H2
+BA55	BA6F	H3
+BA70		H2
+BA71	BA8B	H3
+BA8C		H2
+BA8D	BAA7	H3
+BAA8		H2
+BAA9	BAC3	H3
+BAC4		H2
+BAC5	BADF	H3
+BAE0		H2
+BAE1	BAFB	H3
+BAFC		H2
+BAFD	BB17	H3
+BB18		H2
+BB19	BB33	H3
+BB34		H2
+BB35	BB4F	H3
+BB50		H2
+BB51	BB6B	H3
+BB6C		H2
+BB6D	BB87	H3
+BB88		H2
+BB89	BBA3	H3
+BBA4		H2
+BBA5	BBBF	H3
+BBC0		H2
+BBC1	BBDB	H3
+BBDC		H2
+BBDD	BBF7	H3
+BBF8		H2
+BBF9	BC13	H3
+BC14		H2
+BC15	BC2F	H3
+BC30		H2
+BC31	BC4B	H3
+BC4C		H2
+BC4D	BC67	H3
+BC68		H2
+BC69	BC83	H3
+BC84		H2
+BC85	BC9F	H3
+BCA0		H2
+BCA1	BCBB	H3
+BCBC		H2
+BCBD	BCD7	H3
+BCD8		H2
+BCD9	BCF3	H3
+BCF4		H2
+BCF5	BD0F	H3
+BD10		H2
+BD11	BD2B	H3
+BD2C		H2
+BD2D	BD47	H3
+BD48		H2
+BD49	BD63	H3
+BD64		H2
+BD65	BD7F	H3
+BD80		H2
+BD81	BD9B	H3
+BD9C		H2
+BD9D	BDB7	H3
+BDB8		H2
+BDB9	BDD3	H3
+BDD4		H2
+BDD5	BDEF	H3
+BDF0		H2
+BDF1	BE0B	H3
+BE0C		H2
+BE0D	BE27	H3
+BE28		H2
+BE29	BE43	H3
+BE44		H2
+BE45	BE5F	H3
+BE60		H2
+BE61	BE7B	H3
+BE7C		H2
+BE7D	BE97	H3
+BE98		H2
+BE99	BEB3	H3
+BEB4		H2
+BEB5	BECF	H3
+BED0		H2
+BED1	BEEB	H3
+BEEC		H2
+BEED	BF07	H3
+BF08		H2
+BF09	BF23	H3
+BF24		H2
+BF25	BF3F	H3
+BF40		H2
+BF41	BF5B	H3
+BF5C		H2
+BF5D	BF77	H3
+BF78		H2
+BF79	BF93	H3
+BF94		H2
+BF95	BFAF	H3
+BFB0		H2
+BFB1	BFCB	H3
+BFCC		H2
+BFCD	BFE7	H3
+BFE8		H2
+BFE9	C003	H3
+C004		H2
+C005	C01F	H3
+C020		H2
+C021	C03B	H3
+C03C		H2
+C03D	C057	H3
+C058		H2
+C059	C073	H3
+C074		H2
+C075	C08F	H3
+C090		H2
+C091	C0AB	H3
+C0AC		H2
+C0AD	C0C7	H3
+C0C8		H2
+C0C9	C0E3	H3
+C0E4		H2
+C0E5	C0FF	H3
+C100		H2
+C101	C11B	H3
+C11C		H2
+C11D	C137	H3
+C138		H2
+C139	C153	H3
+C154		H2
+C155	C16F	H3
+C170		H2
+C171	C18B	H3
+C18C		H2
+C18D	C1A7	H3
+C1A8		H2
+C1A9	C1C3	H3
+C1C4		H2
+C1C5	C1DF	H3
+C1E0		H2
+C1E1	C1FB	H3
+C1FC		H2
+C1FD	C217	H3
+C218		H2
+C219	C233	H3
+C234		H2
+C235	C24F	H3
+C250		H2
+C251	C26B	H3
+C26C		H2
+C26D	C287	H3
+C288		H2
+C289	C2A3	H3
+C2A4		H2
+C2A5	C2BF	H3
+C2C0		H2
+C2C1	C2DB	H3
+C2DC		H2
+C2DD	C2F7	H3
+C2F8		H2
+C2F9	C313	H3
+C314		H2
+C315	C32F	H3
+C330		H2
+C331	C34B	H3
+C34C		H2
+C34D	C367	H3
+C368		H2
+C369	C383	H3
+C384		H2
+C385	C39F	H3
+C3A0		H2
+C3A1	C3BB	H3
+C3BC		H2
+C3BD	C3D7	H3
+C3D8		H2
+C3D9	C3F3	H3
+C3F4		H2
+C3F5	C40F	H3
+C410		H2
+C411	C42B	H3
+C42C		H2
+C42D	C447	H3
+C448		H2
+C449	C463	H3
+C464		H2
+C465	C47F	H3
+C480		H2
+C481	C49B	H3
+C49C		H2
+C49D	C4B7	H3
+C4B8		H2
+C4B9	C4D3	H3
+C4D4		H2
+C4D5	C4EF	H3
+C4F0		H2
+C4F1	C50B	H3
+C50C		H2
+C50D	C527	H3
+C528		H2
+C529	C543	H3
+C544		H2
+C545	C55F	H3
+C560		H2
+C561	C57B	H3
+C57C		H2
+C57D	C597	H3
+C598		H2
+C599	C5B3	H3
+C5B4		H2
+C5B5	C5CF	H3
+C5D0		H2
+C5D1	C5EB	H3
+C5EC		H2
+C5ED	C607	H3
+C608		H2
+C609	C623	H3
+C624		H2
+C625	C63F	H3
+C640		H2
+C641	C65B	H3
+C65C		H2
+C65D	C677	H3
+C678		H2
+C679	C693	H3
+C694		H2
+C695	C6AF	H3
+C6B0		H2
+C6B1	C6CB	H3
+C6CC		H2
+C6CD	C6E7	H3
+C6E8		H2
+C6E9	C703	H3
+C704		H2
+C705	C71F	H3
+C720		H2
+C721	C73B	H3
+C73C		H2
+C73D	C757	H3
+C758		H2
+C759	C773	H3
+C774		H2
+C775	C78F	H3
+C790		H2
+C791	C7AB	H3
+C7AC		H2
+C7AD	C7C7	H3
+C7C8		H2
+C7C9	C7E3	H3
+C7E4		H2
+C7E5	C7FF	H3
+C800		H2
+C801	C81B	H3
+C81C		H2
+C81D	C837	H3
+C838		H2
+C839	C853	H3
+C854		H2
+C855	C86F	H3
+C870		H2
+C871	C88B	H3
+C88C		H2
+C88D	C8A7	H3
+C8A8		H2
+C8A9	C8C3	H3
+C8C4		H2
+C8C5	C8DF	H3
+C8E0		H2
+C8E1	C8FB	H3
+C8FC		H2
+C8FD	C917	H3
+C918		H2
+C919	C933	H3
+C934		H2
+C935	C94F	H3
+C950		H2
+C951	C96B	H3
+C96C		H2
+C96D	C987	H3
+C988		H2
+C989	C9A3	H3
+C9A4		H2
+C9A5	C9BF	H3
+C9C0		H2
+C9C1	C9DB	H3
+C9DC		H2
+C9DD	C9F7	H3
+C9F8		H2
+C9F9	CA13	H3
+CA14		H2
+CA15	CA2F	H3
+CA30		H2
+CA31	CA4B	H3
+CA4C		H2
+CA4D	CA67	H3
+CA68		H2
+CA69	CA83	H3
+CA84		H2
+CA85	CA9F	H3
+CAA0		H2
+CAA1	CABB	H3
+CABC		H2
+CABD	CAD7	H3
+CAD8		H2
+CAD9	CAF3	H3
+CAF4		H2
+CAF5	CB0F	H3
+CB10		H2
+CB11	CB2B	H3
+CB2C		H2
+CB2D	CB47	H3
+CB48		H2
+CB49	CB63	H3
+CB64		H2
+CB65	CB7F	H3
+CB80		H2
+CB81	CB9B	H3
+CB9C		H2
+CB9D	CBB7	H3
+CBB8		H2
+CBB9	CBD3	H3
+CBD4		H2
+CBD5	CBEF	H3
+CBF0		H2
+CBF1	CC0B	H3
+CC0C		H2
+CC0D	CC27	H3
+CC28		H2
+CC29	CC43	H3
+CC44		H2
+CC45	CC5F	H3
+CC60		H2
+CC61	CC7B	H3
+CC7C		H2
+CC7D	CC97	H3
+CC98		H2
+CC99	CCB3	H3
+CCB4		H2
+CCB5	CCCF	H3
+CCD0		H2
+CCD1	CCEB	H3
+CCEC		H2
+CCED	CD07	H3
+CD08		H2
+CD09	CD23	H3
+CD24		H2
+CD25	CD3F	H3
+CD40		H2
+CD41	CD5B	H3
+CD5C		H2
+CD5D	CD77	H3
+CD78		H2
+CD79	CD93	H3
+CD94		H2
+CD95	CDAF	H3
+CDB0		H2
+CDB1	CDCB	H3
+CDCC		H2
+CDCD	CDE7	H3
+CDE8		H2
+CDE9	CE03	H3
+CE04		H2
+CE05	CE1F	H3
+CE20		H2
+CE21	CE3B	H3
+CE3C		H2
+CE3D	CE57	H3
+CE58		H2
+CE59	CE73	H3
+CE74		H2
+CE75	CE8F	H3
+CE90		H2
+CE91	CEAB	H3
+CEAC		H2
+CEAD	CEC7	H3
+CEC8		H2
+CEC9	CEE3	H3
+CEE4		H2
+CEE5	CEFF	H3
+CF00		H2
+CF01	CF1B	H3
+CF1C		H2
+CF1D	CF37	H3
+CF38		H2
+CF39	CF53	H3
+CF54		H2
+CF55	CF6F	H3
+CF70		H2
+CF71	CF8B	H3
+CF8C		H2
+CF8D	CFA7	H3
+CFA8		H2
+CFA9	CFC3	H3
+CFC4		H2
+CFC5	CFDF	H3
+CFE0		H2
+CFE1	CFFB	H3
+CFFC		H2
+CFFD	D017	H3
+D018		H2
+D019	D033	H3
+D034		H2
+D035	D04F	H3
+D050		H2
+D051	D06B	H3
+D06C		H2
+D06D	D087	H3
+D088		H2
+D089	D0A3	H3
+D0A4		H2
+D0A5	D0BF	H3
+D0C0		H2
+D0C1	D0DB	H3
+D0DC		H2
+D0DD	D0F7	H3
+D0F8		H2
+D0F9	D113	H3
+D114		H2
+D115	D12F	H3
+D130		H2
+D131	D14B	H3
+D14C		H2
+D14D	D167	H3
+D168		H2
+D169	D183	H3
+D184		H2
+D185	D19F	H3
+D1A0		H2
+D1A1	D1BB	H3
+D1BC		H2
+D1BD	D1D7	H3
+D1D8		H2
+D1D9	D1F3	H3
+D1F4		H2
+D1F5	D20F	H3
+D210		H2
+D211	D22B	H3
+D22C		H2
+D22D	D247	H3
+D248		H2
+D249	D263	H3
+D264		H2
+D265	D27F	H3
+D280		H2
+D281	D29B	H3
+D29C		H2
+D29D	D2B7	H3
+D2B8		H2
+D2B9	D2D3	H3
+D2D4		H2
+D2D5	D2EF	H3
+D2F0		H2
+D2F1	D30B	H3
+D30C		H2
+D30D	D327	H3
+D328		H2
+D329	D343	H3
+D344		H2
+D345	D35F	H3
+D360		H2
+D361	D37B	H3
+D37C		H2
+D37D	D397	H3
+D398		H2
+D399	D3B3	H3
+D3B4		H2
+D3B5	D3CF	H3
+D3D0		H2
+D3D1	D3EB	H3
+D3EC		H2
+D3ED	D407	H3
+D408		H2
+D409	D423	H3
+D424		H2
+D425	D43F	H3
+D440		H2
+D441	D45B	H3
+D45C		H2
+D45D	D477	H3
+D478		H2
+D479	D493	H3
+D494		H2
+D495	D4AF	H3
+D4B0		H2
+D4B1	D4CB	H3
+D4CC		H2
+D4CD	D4E7	H3
+D4E8		H2
+D4E9	D503	H3
+D504		H2
+D505	D51F	H3
+D520		H2
+D521	D53B	H3
+D53C		H2
+D53D	D557	H3
+D558		H2
+D559	D573	H3
+D574		H2
+D575	D58F	H3
+D590		H2
+D591	D5AB	H3
+D5AC		H2
+D5AD	D5C7	H3
+D5C8		H2
+D5C9	D5E3	H3
+D5E4		H2
+D5E5	D5FF	H3
+D600		H2
+D601	D61B	H3
+D61C		H2
+D61D	D637	H3
+D638		H2
+D639	D653	H3
+D654		H2
+D655	D66F	H3
+D670		H2
+D671	D68B	H3
+D68C		H2
+D68D	D6A7	H3
+D6A8		H2
+D6A9	D6C3	H3
+D6C4		H2
+D6C5	D6DF	H3
+D6E0		H2
+D6E1	D6FB	H3
+D6FC		H2
+D6FD	D717	H3
+D718		H2
+D719	D733	H3
+D734		H2
+D735	D74F	H3
+D750		H2
+D751	D76B	H3
+D76C		H2
+D76D	D787	H3
+D788		H2
+D789	D7A3	H3
+D7B0	D7C6	JV
+D7CB	D7FB	JT
+D800	DFFF	SG
+F900	FAFF	ID
+FB00	FB06	AL
+FB13	FB17	AL
+FB1D		HL
+FB1E		CM
+FB1F	FB28	HL
+FB29		AL
+FB2A	FB36	HL
+FB38	FB3C	HL
+FB3E		HL
+FB40	FB41	HL
+FB43	FB44	HL
+FB46	FB4F	HL
+FB50	FBC1	AL
+FBD3	FD3D	AL
+FD3E		CL
+FD3F		OP
+FD50	FD8F	AL
+FD92	FDC7	AL
+FDF0	FDFB	AL
+FDFC		PO
+FDFD		AL
+FE00	FE0F	CM
+FE10		IS
+FE11	FE12	CL
+FE13	FE14	IS
+FE15	FE16	EX
+FE17		OP
+FE18		CL
+FE19		IN
+FE20	FE2F	CM
+FE30	FE34	ID
+FE35		OP
+FE36		CL
+FE37		OP
+FE38		CL
+FE39		OP
+FE3A		CL
+FE3B		OP
+FE3C		CL
+FE3D		OP
+FE3E		CL
+FE3F		OP
+FE40		CL
+FE41		OP
+FE42		CL
+FE43		OP
+FE44		CL
+FE45	FE46	ID
+FE47		OP
+FE48		CL
+FE49	FE4F	ID
+FE50		CL
+FE51		ID
+FE52		CL
+FE54	FE55	NS
+FE56	FE57	EX
+FE58		ID
+FE59		OP
+FE5A		CL
+FE5B		OP
+FE5C		CL
+FE5D		OP
+FE5E		CL
+FE5F	FE66	ID
+FE68		ID
+FE69		PR
+FE6A		PO
+FE6B		ID
+FE70	FE74	AL
+FE76	FEFC	AL
+FEFF		WJ
+FF01		EX
+FF02	FF03	ID
+FF04		PR
+FF05		PO
+FF06	FF07	ID
+FF08		OP
+FF09		CL
+FF0A	FF0B	ID
+FF0C		CL
+FF0D		ID
+FF0E		CL
+FF0F	FF19	ID
+FF1A	FF1B	NS
+FF1C	FF1E	ID
+FF1F		EX
+FF20	FF3A	ID
+FF3B		OP
+FF3C		ID
+FF3D		CL
+FF3E	FF5A	ID
+FF5B		OP
+FF5C		ID
+FF5D		CL
+FF5E		ID
+FF5F		OP
+FF60	FF61	CL
+FF62		OP
+FF63	FF64	CL
+FF65		NS
+FF66		ID
+FF67	FF70	CJ
+FF71	FF9D	ID
+FF9E	FF9F	NS
+FFA0	FFBE	ID
+FFC2	FFC7	ID
+FFCA	FFCF	ID
+FFD2	FFD7	ID
+FFDA	FFDC	ID
+FFE0		PO
+FFE1		PR
+FFE2	FFE4	ID
+FFE5	FFE6	PR
+FFE8	FFEE	AL
+FFF9	FFFB	CM
+FFFC		CB
+FFFD		AI
+10000	1000B	AL
+1000D	10026	AL
+10028	1003A	AL
+1003C	1003D	AL
+1003F	1004D	AL
+10050	1005D	AL
+10080	100FA	AL
+10100	10102	BA
+10107	10133	AL
+10137	1018E	AL
+10190	1019B	AL
+101A0		AL
+101D0	101FC	AL
+101FD		CM
+10280	1029C	AL
+102A0	102D0	AL
+102E0		CM
+102E1	102FB	AL
+10300	10323	AL
+1032D	1034A	AL
+10350	10375	AL
+10376	1037A	CM
+10380	1039D	AL
+1039F		BA
+103A0	103C3	AL
+103C8	103CF	AL
+103D0		BA
+103D1	103D5	AL
+10400	1049D	AL
+104A0	104A9	NU
+104B0	104D3	AL
+104D8	104FB	AL
+10500	10527	AL
+10530	10563	AL
+1056F		AL
+10600	10736	AL
+10740	10755	AL
+10760	10767	AL
+10800	10805	AL
+10808		AL
+1080A	10835	AL
+10837	10838	AL
+1083C		AL
+1083F	10855	AL
+10857		BA
+10858	1089E	AL
+108A7	108AF	AL
+108E0	108F2	AL
+108F4	108F5	AL
+108FB	1091B	AL
+1091F		BA
+10920	10939	AL
+1093F		AL
+10980	109B7	AL
+109BC	109CF	AL
+109D2	10A00	AL
+10A01	10A03	CM
+10A05	10A06	CM
+10A0C	10A0F	CM
+10A10	10A13	AL
+10A15	10A17	AL
+10A19	10A33	AL
+10A38	10A3A	CM
+10A3F		CM
+10A40	10A47	AL
+10A50	10A57	BA
+10A58		AL
+10A60	10A9F	AL
+10AC0	10AE4	AL
+10AE5	10AE6	CM
+10AEB	10AEF	AL
+10AF0	10AF5	BA
+10AF6		IN
+10B00	10B35	AL
+10B39	10B3F	BA
+10B40	10B55	AL
+10B58	10B72	AL
+10B78	10B91	AL
+10B99	10B9C	AL
+10BA9	10BAF	AL
+10C00	10C48	AL
+10C80	10CB2	AL
+10CC0	10CF2	AL
+10CFA	10CFF	AL
+10E60	10E7E	AL
+11000	11002	CM
+11003	11037	AL
+11038	11046	CM
+11047	11048	BA
+11049	1104D	AL
+11052	11065	AL
+11066	1106F	NU
+1107F	11082	CM
+11083	110AF	AL
+110B0	110BA	CM
+110BB	110BD	AL
+110BE	110C1	BA
+110D0	110E8	AL
+110F0	110F9	NU
+11100	11102	CM
+11103	11126	AL
+11127	11134	CM
+11136	1113F	NU
+11140	11143	BA
+11150	11172	AL
+11173		CM
+11174		AL
+11175		BB
+11176		AL
+11180	11182	CM
+11183	111B2	AL
+111B3	111C0	CM
+111C1	111C4	AL
+111C5	111C6	BA
+111C7		AL
+111C8		BA
+111C9		AL
+111CA	111CC	CM
+111CD		AL
+111D0	111D9	NU
+111DA		AL
+111DB		BB
+111DC		AL
+111DD	111DF	BA
+111E1	111F4	AL
+11200	11211	AL
+11213	1122B	AL
+1122C	11237	CM
+11238	11239	BA
+1123A		AL
+1123B	1123C	BA
+1123D		AL
+1123E		CM
+11280	11286	AL
+11288		AL
+1128A	1128D	AL
+1128F	1129D	AL
+1129F	112A8	AL
+112A9		BA
+112B0	112DE	AL
+112DF	112EA	CM
+112F0	112F9	NU
+11300	11303	CM
+11305	1130C	AL
+1130F	11310	AL
+11313	11328	AL
+1132A	11330	AL
+11332	11333	AL
+11335	11339	AL
+1133C		CM
+1133D		AL
+1133E	11344	CM
+11347	11348	CM
+1134B	1134D	CM
+11350		AL
+11357		CM
+1135D	11361	AL
+11362	11363	CM
+11366	1136C	CM
+11370	11374	CM
+11400	11434	AL
+11435	11446	CM
+11447	1144A	AL
+1144B	1144E	BA
+1144F		AL
+11450	11459	NU
+1145B		BA
+1145D		AL
+11480	114AF	AL
+114B0	114C3	CM
+114C4	114C7	AL
+114D0	114D9	NU
+11580	115AE	AL
+115AF	115B5	CM
+115B8	115C0	CM
+115C1		BB
+115C2	115C3	BA
+115C4	115C5	EX
+115C6	115C8	AL
+115C9	115D7	BA
+115D8	115DB	AL
+115DC	115DD	CM
+11600	1162F	AL
+11630	11640	CM
+11641	11642	BA
+11643	11644	AL
+11650	11659	NU
+11660	1166C	BB
+11680	116AA	AL
+116AB	116B7	CM
+116C0	116C9	NU
+11700	11719	SA
+1171D	1172B	SA
+11730	11739	NU
+1173A	1173B	SA
+1173C	1173E	BA
+1173F		SA
+118A0	118DF	AL
+118E0	118E9	NU
+118EA	118F2	AL
+118FF		AL
+11A00		AL
+11A01	11A0A	CM
+11A0B	11A32	AL
+11A33	11A39	CM
+11A3A		AL
+11A3B	11A3E	CM
+11A3F		BB
+11A40		AL
+11A41	11A44	BA
+11A45		BB
+11A46		AL
+11A47		CM
+11A50		AL
+11A51	11A5B	CM
+11A5C	11A83	AL
+11A86	11A89	AL
+11A8A	11A99	CM
+11A9A	11A9C	BA
+11A9E	11AA0	BB
+11AA1	11AA2	BA
+11AC0	11AF8	AL
+11C00	11C08	AL
+11C0A	11C2E	AL
+11C2F	11C36	CM
+11C38	11C3F	CM
+11C40		AL
+11C41	11C45	BA
+11C50	11C59	NU
+11C5A	11C6C	AL
+11C70		BB
+11C71		EX
+11C72	11C8F	AL
+11C92	11CA7	CM
+11CA9	11CB6	CM
+11D00	11D06	AL
+11D08	11D09	AL
+11D0B	11D30	AL
+11D31	11D36	CM
+11D3A		CM
+11D3C	11D3D	CM
+11D3F	11D45	CM
+11D46		AL
+11D47		CM
+11D50	11D59	NU
+12000	12399	AL
+12400	1246E	AL
+12470	12474	BA
+12480	12543	AL
+13000	13257	AL
+13258	1325A	OP
+1325B	1325D	CL
+1325E	13281	AL
+13282		CL
+13283	13285	AL
+13286		OP
+13287		CL
+13288		OP
+13289		CL
+1328A	13378	AL
+13379		OP
+1337A	1337B	CL
+1337C	1342E	AL
+14400	145CD	AL
+145CE		OP
+145CF		CL
+145D0	14646	AL
+16800	16A38	AL
+16A40	16A5E	AL
+16A60	16A69	NU
+16A6E	16A6F	BA
+16AD0	16AED	AL
+16AF0	16AF4	CM
+16AF5		BA
+16B00	16B2F	AL
+16B30	16B36	CM
+16B37	16B39	BA
+16B3A	16B43	AL
+16B44		BA
+16B45		AL
+16B50	16B59	NU
+16B5B	16B61	AL
+16B63	16B77	AL
+16B7D	16B8F	AL
+16F00	16F44	AL
+16F50		AL
+16F51	16F7E	CM
+16F8F	16F92	CM
+16F93	16F9F	AL
+16FE0	16FE1	NS
+17000	187EC	ID
+18800	18AF2	ID
+1B000	1B11E	ID
+1B170	1B2FB	ID
+1BC00	1BC6A	AL
+1BC70	1BC7C	AL
+1BC80	1BC88	AL
+1BC90	1BC99	AL
+1BC9C		AL
+1BC9D	1BC9E	CM
+1BC9F		BA
+1BCA0	1BCA3	CM
+1D000	1D0F5	AL
+1D100	1D126	AL
+1D129	1D164	AL
+1D165	1D169	CM
+1D16A	1D16C	AL
+1D16D	1D182	CM
+1D183	1D184	AL
+1D185	1D18B	CM
+1D18C	1D1A9	AL
+1D1AA	1D1AD	CM
+1D1AE	1D1E8	AL
+1D200	1D241	AL
+1D242	1D244	CM
+1D245		AL
+1D300	1D356	AL
+1D360	1D371	AL
+1D400	1D454	AL
+1D456	1D49C	AL
+1D49E	1D49F	AL
+1D4A2		AL
+1D4A5	1D4A6	AL
+1D4A9	1D4AC	AL
+1D4AE	1D4B9	AL
+1D4BB		AL
+1D4BD	1D4C3	AL
+1D4C5	1D505	AL
+1D507	1D50A	AL
+1D50D	1D514	AL
+1D516	1D51C	AL
+1D51E	1D539	AL
+1D53B	1D53E	AL
+1D540	1D544	AL
+1D546		AL
+1D54A	1D550	AL
+1D552	1D6A5	AL
+1D6A8	1D7CB	AL
+1D7CE	1D7FF	NU
+1D800	1D9FF	AL
+1DA00	1DA36	CM
+1DA37	1DA3A	AL
+1DA3B	1DA6C	CM
+1DA6D	1DA74	AL
+1DA75		CM
+1DA76	1DA83	AL
+1DA84		CM
+1DA85	1DA86	AL
+1DA87	1DA8A	BA
+1DA8B		AL
+1DA9B	1DA9F	CM
+1DAA1	1DAAF	CM
+1E000	1E006	CM
+1E008	1E018	CM
+1E01B	1E021	CM
+1E023	1E024	CM
+1E026	1E02A	CM
+1E800	1E8C4	AL
+1E8C7	1E8CF	AL
+1E8D0	1E8D6	CM
+1E900	1E943	AL
+1E944	1E94A	CM
+1E950	1E959	NU
+1E95E	1E95F	OP
+1EE00	1EE03	AL
+1EE05	1EE1F	AL
+1EE21	1EE22	AL
+1EE24		AL
+1EE27		AL
+1EE29	1EE32	AL
+1EE34	1EE37	AL
+1EE39		AL
+1EE3B		AL
+1EE42		AL
+1EE47		AL
+1EE49		AL
+1EE4B		AL
+1EE4D	1EE4F	AL
+1EE51	1EE52	AL
+1EE54		AL
+1EE57		AL
+1EE59		AL
+1EE5B		AL
+1EE5D		AL
+1EE5F		AL
+1EE61	1EE62	AL
+1EE64		AL
+1EE67	1EE6A	AL
+1EE6C	1EE72	AL
+1EE74	1EE77	AL
+1EE79	1EE7C	AL
+1EE7E		AL
+1EE80	1EE89	AL
+1EE8B	1EE9B	AL
+1EEA1	1EEA3	AL
+1EEA5	1EEA9	AL
+1EEAB	1EEBB	AL
+1EEF0	1EEF1	AL
+1F000	1F0FF	ID
+1F100	1F10C	AI
+1F10D	1F10F	ID
+1F110	1F12D	AI
+1F12E		AL
+1F12F		ID
+1F130	1F169	AI
+1F16A	1F16B	AL
+1F16C	1F16F	ID
+1F170	1F1AC	AI
+1F1AD	1F1E5	ID
+1F1E6	1F1FF	RI
+1F200	1F384	ID
+1F385		EB
+1F386	1F39B	ID
+1F39C	1F39D	AL
+1F39E	1F3B4	ID
+1F3B5	1F3B6	AL
+1F3B7	1F3BB	ID
+1F3BC		AL
+1F3BD	1F3C1	ID
+1F3C2	1F3C4	EB
+1F3C5	1F3C6	ID
+1F3C7		EB
+1F3C8	1F3C9	ID
+1F3CA	1F3CC	EB
+1F3CD	1F3FA	ID
+1F3FB	1F3FF	EM
+1F400	1F441	ID
+1F442	1F443	EB
+1F444	1F445	ID
+1F446	1F450	EB
+1F451	1F465	ID
+1F466	1F469	EB
+1F46A	1F46D	ID
+1F46E		EB
+1F46F		ID
+1F470	1F478	EB
+1F479	1F47B	ID
+1F47C		EB
+1F47D	1F480	ID
+1F481	1F483	EB
+1F484		ID
+1F485	1F487	EB
+1F488	1F49F	ID
+1F4A0		AL
+1F4A1		ID
+1F4A2		AL
+1F4A3		ID
+1F4A4		AL
+1F4A5	1F4A9	ID
+1F4AA		EB
+1F4AB	1F4AE	ID
+1F4AF		AL
+1F4B0		ID
+1F4B1	1F4B2	AL
+1F4B3	1F4FF	ID
+1F500	1F506	AL
+1F507	1F516	ID
+1F517	1F524	AL
+1F525	1F531	ID
+1F532	1F549	AL
+1F54A	1F573	ID
+1F574	1F575	EB
+1F576	1F579	ID
+1F57A		EB
+1F57B	1F58F	ID
+1F590		EB
+1F591	1F594	ID
+1F595	1F596	EB
+1F597	1F5D3	ID
+1F5D4	1F5DB	AL
+1F5DC	1F5F3	ID
+1F5F4	1F5F9	AL
+1F5FA	1F644	ID
+1F645	1F647	EB
+1F648	1F64A	ID
+1F64B	1F64F	EB
+1F650	1F675	AL
+1F676	1F678	QU
+1F679	1F67B	NS
+1F67C	1F67F	AL
+1F680	1F6A2	ID
+1F6A3		EB
+1F6A4	1F6B3	ID
+1F6B4	1F6B6	EB
+1F6B7	1F6BF	ID
+1F6C0		EB
+1F6C1	1F6CB	ID
+1F6CC		EB
+1F6CD	1F6FF	ID
+1F700	1F773	AL
+1F774	1F77F	ID
+1F780	1F7D4	AL
+1F7D5	1F7FF	ID
+1F800	1F80B	AL
+1F80C	1F80F	ID
+1F810	1F847	AL
+1F848	1F84F	ID
+1F850	1F859	AL
+1F85A	1F85F	ID
+1F860	1F887	AL
+1F888	1F88F	ID
+1F890	1F8AD	AL
+1F8AE	1F8FF	ID
+1F900	1F90B	AL
+1F90C	1F917	ID
+1F918	1F91C	EB
+1F91D		ID
+1F91E	1F91F	EB
+1F920	1F925	ID
+1F926		EB
+1F927	1F92F	ID
+1F930	1F939	EB
+1F93A	1F93C	ID
+1F93D	1F93E	EB
+1F93F	1F9D0	ID
+1F9D1	1F9DD	EB
+1F9DE	1FFFD	ID
+20000	2FFFD	ID
+30000	3FFFD	ID
+E0001		CM
+E0020	E007F	CM
+E0100	E01EF	CM
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToAge'}{'format'} = 'f'; # floating point number
+$utf8::SwashInfo{'ToAge'}{'missing'} = 'Unassigned';
+
+return <<'END';
+0	1F5	1.1
+1F6	1F9	3.0
+1FA	217	1.1
+218	21F	3.0
+220		3.2
+221		4.0
+222	233	3.0
+234	236	4.0
+237	241	4.1
+242	24F	5.0
+250	2A8	1.1
+2A9	2AD	3.0
+2AE	2AF	4.0
+2B0	2DE	1.1
+2DF		3.0
+2E0	2E9	1.1
+2EA	2EE	3.0
+2EF	2FF	4.0
+300	345	1.1
+346	34E	3.0
+34F		3.2
+350	357	4.0
+358	35C	4.1
+35D	35F	4.0
+360	361	1.1
+362		3.0
+363	36F	3.2
+370	373	5.1
+374	375	1.1
+376	377	5.1
+37A		1.1
+37B	37D	5.0
+37E		1.1
+37F		7.0
+384	38A	1.1
+38C		1.1
+38E	3A1	1.1
+3A3	3CE	1.1
+3CF		5.1
+3D0	3D6	1.1
+3D7		3.0
+3D8	3D9	3.2
+3DA		1.1
+3DB		3.0
+3DC		1.1
+3DD		3.0
+3DE		1.1
+3DF		3.0
+3E0		1.1
+3E1		3.0
+3E2	3F3	1.1
+3F4	3F5	3.1
+3F6		3.2
+3F7	3FB	4.0
+3FC	3FF	4.1
+400		3.0
+401	40C	1.1
+40D		3.0
+40E	44F	1.1
+450		3.0
+451	45C	1.1
+45D		3.0
+45E	486	1.1
+487		5.1
+488	489	3.0
+48A	48B	3.2
+48C	48F	3.0
+490	4C4	1.1
+4C5	4C6	3.2
+4C7	4C8	1.1
+4C9	4CA	3.2
+4CB	4CC	1.1
+4CD	4CE	3.2
+4CF		5.0
+4D0	4EB	1.1
+4EC	4ED	3.0
+4EE	4F5	1.1
+4F6	4F7	4.1
+4F8	4F9	1.1
+4FA	4FF	5.0
+500	50F	3.2
+510	513	5.0
+514	523	5.1
+524	525	5.2
+526	527	6.0
+528	52F	7.0
+531	556	1.1
+559	55F	1.1
+561	587	1.1
+589		1.1
+58A		3.0
+58D	58E	7.0
+58F		6.1
+591	5A1	2.0
+5A2		4.1
+5A3	5AF	2.0
+5B0	5B9	1.1
+5BA		5.0
+5BB	5C3	1.1
+5C4		2.0
+5C5	5C7	4.1
+5D0	5EA	1.1
+5F0	5F4	1.1
+600	603	4.0
+604		6.1
+605		7.0
+606	60A	5.1
+60B		4.1
+60C		1.1
+60D	615	4.0
+616	61A	5.1
+61B		1.1
+61C		6.3
+61E		4.1
+61F		1.1
+620		6.0
+621	63A	1.1
+63B	63F	5.1
+640	652	1.1
+653	655	3.0
+656	658	4.0
+659	65E	4.1
+65F		6.0
+660	66D	1.1
+66E	66F	3.2
+670	6B7	1.1
+6B8	6B9	3.0
+6BA	6BE	1.1
+6BF		3.0
+6C0	6CE	1.1
+6CF		3.0
+6D0	6ED	1.1
+6EE	6EF	4.0
+6F0	6F9	1.1
+6FA	6FE	3.0
+6FF		4.0
+700	70D	3.0
+70F	72C	3.0
+72D	72F	4.0
+730	74A	3.0
+74D	74F	4.0
+750	76D	4.1
+76E	77F	5.1
+780	7B0	3.0
+7B1		3.2
+7C0	7FA	5.0
+800	82D	5.2
+830	83E	5.2
+840	85B	6.0
+85E		6.0
+860	86A	10.0
+8A0		6.1
+8A1		7.0
+8A2	8AC	6.1
+8AD	8B2	7.0
+8B3	8B4	8.0
+8B6	8BD	9.0
+8D4	8E2	9.0
+8E3		8.0
+8E4	8FE	6.1
+8FF		7.0
+900		5.2
+901	903	1.1
+904		4.0
+905	939	1.1
+93A	93B	6.0
+93C	94D	1.1
+94E		5.2
+94F		6.0
+950	954	1.1
+955		5.2
+956	957	6.0
+958	970	1.1
+971	972	5.1
+973	977	6.0
+978		7.0
+979	97A	5.2
+97B	97C	5.0
+97D		4.1
+97E	97F	5.0
+980		7.0
+981	983	1.1
+985	98C	1.1
+98F	990	1.1
+993	9A8	1.1
+9AA	9B0	1.1
+9B2		1.1
+9B6	9B9	1.1
+9BC		1.1
+9BD		4.0
+9BE	9C4	1.1
+9C7	9C8	1.1
+9CB	9CD	1.1
+9CE		4.1
+9D7		1.1
+9DC	9DD	1.1
+9DF	9E3	1.1
+9E6	9FA	1.1
+9FB		5.2
+9FC	9FD	10.0
+A01		4.0
+A02		1.1
+A03		4.0
+A05	A0A	1.1
+A0F	A10	1.1
+A13	A28	1.1
+A2A	A30	1.1
+A32	A33	1.1
+A35	A36	1.1
+A38	A39	1.1
+A3C		1.1
+A3E	A42	1.1
+A47	A48	1.1
+A4B	A4D	1.1
+A51		5.1
+A59	A5C	1.1
+A5E		1.1
+A66	A74	1.1
+A75		5.1
+A81	A83	1.1
+A85	A8B	1.1
+A8C		4.0
+A8D		1.1
+A8F	A91	1.1
+A93	AA8	1.1
+AAA	AB0	1.1
+AB2	AB3	1.1
+AB5	AB9	1.1
+ABC	AC5	1.1
+AC7	AC9	1.1
+ACB	ACD	1.1
+AD0		1.1
+AE0		1.1
+AE1	AE3	4.0
+AE6	AEF	1.1
+AF0		6.1
+AF1		4.0
+AF9		8.0
+AFA	AFF	10.0
+B01	B03	1.1
+B05	B0C	1.1
+B0F	B10	1.1
+B13	B28	1.1
+B2A	B30	1.1
+B32	B33	1.1
+B35		4.0
+B36	B39	1.1
+B3C	B43	1.1
+B44		5.1
+B47	B48	1.1
+B4B	B4D	1.1
+B56	B57	1.1
+B5C	B5D	1.1
+B5F	B61	1.1
+B62	B63	5.1
+B66	B70	1.1
+B71		4.0
+B72	B77	6.0
+B82	B83	1.1
+B85	B8A	1.1
+B8E	B90	1.1
+B92	B95	1.1
+B99	B9A	1.1
+B9C		1.1
+B9E	B9F	1.1
+BA3	BA4	1.1
+BA8	BAA	1.1
+BAE	BB5	1.1
+BB6		4.1
+BB7	BB9	1.1
+BBE	BC2	1.1
+BC6	BC8	1.1
+BCA	BCD	1.1
+BD0		5.1
+BD7		1.1
+BE6		4.1
+BE7	BF2	1.1
+BF3	BFA	4.0
+C00		7.0
+C01	C03	1.1
+C05	C0C	1.1
+C0E	C10	1.1
+C12	C28	1.1
+C2A	C33	1.1
+C34		7.0
+C35	C39	1.1
+C3D		5.1
+C3E	C44	1.1
+C46	C48	1.1
+C4A	C4D	1.1
+C55	C56	1.1
+C58	C59	5.1
+C5A		8.0
+C60	C61	1.1
+C62	C63	5.1
+C66	C6F	1.1
+C78	C7F	5.1
+C80		9.0
+C81		7.0
+C82	C83	1.1
+C85	C8C	1.1
+C8E	C90	1.1
+C92	CA8	1.1
+CAA	CB3	1.1
+CB5	CB9	1.1
+CBC	CBD	4.0
+CBE	CC4	1.1
+CC6	CC8	1.1
+CCA	CCD	1.1
+CD5	CD6	1.1
+CDE		1.1
+CE0	CE1	1.1
+CE2	CE3	5.0
+CE6	CEF	1.1
+CF1	CF2	5.0
+D00		10.0
+D01		7.0
+D02	D03	1.1
+D05	D0C	1.1
+D0E	D10	1.1
+D12	D28	1.1
+D29		6.0
+D2A	D39	1.1
+D3A		6.0
+D3B	D3C	10.0
+D3D		5.1
+D3E	D43	1.1
+D44		5.1
+D46	D48	1.1
+D4A	D4D	1.1
+D4E		6.0
+D4F		9.0
+D54	D56	9.0
+D57		1.1
+D58	D5E	9.0
+D5F		8.0
+D60	D61	1.1
+D62	D63	5.1
+D66	D6F	1.1
+D70	D75	5.1
+D76	D78	9.0
+D79	D7F	5.1
+D82	D83	3.0
+D85	D96	3.0
+D9A	DB1	3.0
+DB3	DBB	3.0
+DBD		3.0
+DC0	DC6	3.0
+DCA		3.0
+DCF	DD4	3.0
+DD6		3.0
+DD8	DDF	3.0
+DE6	DEF	7.0
+DF2	DF4	3.0
+E01	E3A	1.1
+E3F	E5B	1.1
+E81	E82	1.1
+E84		1.1
+E87	E88	1.1
+E8A		1.1
+E8D		1.1
+E94	E97	1.1
+E99	E9F	1.1
+EA1	EA3	1.1
+EA5		1.1
+EA7		1.1
+EAA	EAB	1.1
+EAD	EB9	1.1
+EBB	EBD	1.1
+EC0	EC4	1.1
+EC6		1.1
+EC8	ECD	1.1
+ED0	ED9	1.1
+EDC	EDD	1.1
+EDE	EDF	6.1
+F00	F47	2.0
+F49	F69	2.0
+F6A		3.0
+F6B	F6C	5.1
+F71	F8B	2.0
+F8C	F8F	6.0
+F90	F95	2.0
+F96		3.0
+F97		2.0
+F99	FAD	2.0
+FAE	FB0	3.0
+FB1	FB7	2.0
+FB8		3.0
+FB9		2.0
+FBA	FBC	3.0
+FBE	FCC	3.0
+FCE		5.1
+FCF		3.0
+FD0	FD1	4.1
+FD2	FD4	5.1
+FD5	FD8	5.2
+FD9	FDA	6.0
+1000	1021	3.0
+1022		5.1
+1023	1027	3.0
+1028		5.1
+1029	102A	3.0
+102B		5.1
+102C	1032	3.0
+1033	1035	5.1
+1036	1039	3.0
+103A	103F	5.1
+1040	1059	3.0
+105A	1099	5.1
+109A	109D	5.2
+109E	109F	5.1
+10A0	10C5	1.1
+10C7		6.1
+10CD		6.1
+10D0	10F6	1.1
+10F7	10F8	3.2
+10F9	10FA	4.1
+10FB		1.1
+10FC		4.1
+10FD	10FF	6.1
+1100	1159	1.1
+115A	115E	5.2
+115F	11A2	1.1
+11A3	11A7	5.2
+11A8	11F9	1.1
+11FA	11FF	5.2
+1200	1206	3.0
+1207		4.1
+1208	1246	3.0
+1247		4.1
+1248		3.0
+124A	124D	3.0
+1250	1256	3.0
+1258		3.0
+125A	125D	3.0
+1260	1286	3.0
+1287		4.1
+1288		3.0
+128A	128D	3.0
+1290	12AE	3.0
+12AF		4.1
+12B0		3.0
+12B2	12B5	3.0
+12B8	12BE	3.0
+12C0		3.0
+12C2	12C5	3.0
+12C8	12CE	3.0
+12CF		4.1
+12D0	12D6	3.0
+12D8	12EE	3.0
+12EF		4.1
+12F0	130E	3.0
+130F		4.1
+1310		3.0
+1312	1315	3.0
+1318	131E	3.0
+131F		4.1
+1320	1346	3.0
+1347		4.1
+1348	135A	3.0
+135D	135E	6.0
+135F	1360	4.1
+1361	137C	3.0
+1380	1399	4.1
+13A0	13F4	3.0
+13F5		8.0
+13F8	13FD	8.0
+1400		5.2
+1401	1676	3.0
+1677	167F	5.2
+1680	169C	3.0
+16A0	16F0	3.0
+16F1	16F8	7.0
+1700	170C	3.2
+170E	1714	3.2
+1720	1736	3.2
+1740	1753	3.2
+1760	176C	3.2
+176E	1770	3.2
+1772	1773	3.2
+1780	17DC	3.0
+17DD		4.0
+17E0	17E9	3.0
+17F0	17F9	4.0
+1800	180E	3.0
+1810	1819	3.0
+1820	1877	3.0
+1880	18A9	3.0
+18AA		5.1
+18B0	18F5	5.2
+1900	191C	4.0
+191D	191E	7.0
+1920	192B	4.0
+1930	193B	4.0
+1940		4.0
+1944	196D	4.0
+1970	1974	4.0
+1980	19A9	4.1
+19AA	19AB	5.2
+19B0	19C9	4.1
+19D0	19D9	4.1
+19DA		5.2
+19DE	19DF	4.1
+19E0	19FF	4.0
+1A00	1A1B	4.1
+1A1E	1A1F	4.1
+1A20	1A5E	5.2
+1A60	1A7C	5.2
+1A7F	1A89	5.2
+1A90	1A99	5.2
+1AA0	1AAD	5.2
+1AB0	1ABE	7.0
+1B00	1B4B	5.0
+1B50	1B7C	5.0
+1B80	1BAA	5.1
+1BAB	1BAD	6.1
+1BAE	1BB9	5.1
+1BBA	1BBF	6.1
+1BC0	1BF3	6.0
+1BFC	1BFF	6.0
+1C00	1C37	5.1
+1C3B	1C49	5.1
+1C4D	1C7F	5.1
+1C80	1C88	9.0
+1CC0	1CC7	6.1
+1CD0	1CF2	5.2
+1CF3	1CF6	6.1
+1CF7		10.0
+1CF8	1CF9	7.0
+1D00	1D6B	4.0
+1D6C	1DC3	4.1
+1DC4	1DCA	5.0
+1DCB	1DE6	5.1
+1DE7	1DF5	7.0
+1DF6	1DF9	10.0
+1DFB		9.0
+1DFC		6.0
+1DFD		5.2
+1DFE	1DFF	5.0
+1E00	1E9A	1.1
+1E9B		2.0
+1E9C	1E9F	5.1
+1EA0	1EF9	1.1
+1EFA	1EFF	5.1
+1F00	1F15	1.1
+1F18	1F1D	1.1
+1F20	1F45	1.1
+1F48	1F4D	1.1
+1F50	1F57	1.1
+1F59		1.1
+1F5B		1.1
+1F5D		1.1
+1F5F	1F7D	1.1
+1F80	1FB4	1.1
+1FB6	1FC4	1.1
+1FC6	1FD3	1.1
+1FD6	1FDB	1.1
+1FDD	1FEF	1.1
+1FF2	1FF4	1.1
+1FF6	1FFE	1.1
+2000	202E	1.1
+202F		3.0
+2030	2046	1.1
+2047		3.2
+2048	204D	3.0
+204E	2052	3.2
+2053	2054	4.0
+2055	2056	4.1
+2057		3.2
+2058	205E	4.1
+205F	2063	3.2
+2064		5.1
+2066	2069	6.3
+206A	2070	1.1
+2071		3.2
+2074	208E	1.1
+2090	2094	4.1
+2095	209C	6.0
+20A0	20AA	1.1
+20AB		2.0
+20AC		2.1
+20AD	20AF	3.0
+20B0	20B1	3.2
+20B2	20B5	4.1
+20B6	20B8	5.2
+20B9		6.0
+20BA		6.2
+20BB	20BD	7.0
+20BE		8.0
+20BF		10.0
+20D0	20E1	1.1
+20E2	20E3	3.0
+20E4	20EA	3.2
+20EB		4.1
+20EC	20EF	5.0
+20F0		5.1
+2100	2138	1.1
+2139	213A	3.0
+213B		4.0
+213C		4.1
+213D	214B	3.2
+214C		4.1
+214D	214E	5.0
+214F		5.1
+2150	2152	5.2
+2153	2182	1.1
+2183		3.0
+2184		5.0
+2185	2188	5.1
+2189		5.2
+218A	218B	8.0
+2190	21EA	1.1
+21EB	21F3	3.0
+21F4	21FF	3.2
+2200	22F1	1.1
+22F2	22FF	3.2
+2300		1.1
+2301		3.0
+2302	237A	1.1
+237B		3.0
+237C		3.2
+237D	239A	3.0
+239B	23CE	3.2
+23CF	23D0	4.0
+23D1	23DB	4.1
+23DC	23E7	5.0
+23E8		5.2
+23E9	23F3	6.0
+23F4	23FA	7.0
+23FB	23FE	9.0
+23FF		10.0
+2400	2424	1.1
+2425	2426	3.0
+2440	244A	1.1
+2460	24EA	1.1
+24EB	24FE	3.2
+24FF		4.0
+2500	2595	1.1
+2596	259F	3.2
+25A0	25EF	1.1
+25F0	25F7	3.0
+25F8	25FF	3.2
+2600	2613	1.1
+2614	2615	4.0
+2616	2617	3.2
+2618		4.1
+2619		3.0
+261A	266F	1.1
+2670	2671	3.0
+2672	267D	3.2
+267E	267F	4.1
+2680	2689	3.2
+268A	2691	4.0
+2692	269C	4.1
+269D		5.1
+269E	269F	5.2
+26A0	26A1	4.0
+26A2	26B1	4.1
+26B2		5.0
+26B3	26BC	5.1
+26BD	26BF	5.2
+26C0	26C3	5.1
+26C4	26CD	5.2
+26CE		6.0
+26CF	26E1	5.2
+26E2		6.0
+26E3		5.2
+26E4	26E7	6.0
+26E8	26FF	5.2
+2700		7.0
+2701	2704	1.1
+2705		6.0
+2706	2709	1.1
+270A	270B	6.0
+270C	2727	1.1
+2728		6.0
+2729	274B	1.1
+274C		6.0
+274D		1.1
+274E		6.0
+274F	2752	1.1
+2753	2755	6.0
+2756		1.1
+2757		5.2
+2758	275E	1.1
+275F	2760	6.0
+2761	2767	1.1
+2768	2775	3.2
+2776	2794	1.1
+2795	2797	6.0
+2798	27AF	1.1
+27B0		6.0
+27B1	27BE	1.1
+27BF		6.0
+27C0	27C6	4.1
+27C7	27CA	5.0
+27CB		6.1
+27CC		5.1
+27CD		6.1
+27CE	27CF	6.0
+27D0	27EB	3.2
+27EC	27EF	5.1
+27F0	27FF	3.2
+2800	28FF	3.0
+2900	2AFF	3.2
+2B00	2B0D	4.0
+2B0E	2B13	4.1
+2B14	2B1A	5.0
+2B1B	2B1F	5.1
+2B20	2B23	5.0
+2B24	2B4C	5.1
+2B4D	2B4F	7.0
+2B50	2B54	5.1
+2B55	2B59	5.2
+2B5A	2B73	7.0
+2B76	2B95	7.0
+2B98	2BB9	7.0
+2BBD	2BC8	7.0
+2BCA	2BD1	7.0
+2BD2		10.0
+2BEC	2BEF	8.0
+2C00	2C2E	4.1
+2C30	2C5E	4.1
+2C60	2C6C	5.0
+2C6D	2C6F	5.1
+2C70		5.2
+2C71	2C73	5.1
+2C74	2C77	5.0
+2C78	2C7D	5.1
+2C7E	2C7F	5.2
+2C80	2CEA	4.1
+2CEB	2CF1	5.2
+2CF2	2CF3	6.1
+2CF9	2D25	4.1
+2D27		6.1
+2D2D		6.1
+2D30	2D65	4.1
+2D66	2D67	6.1
+2D6F		4.1
+2D70		6.0
+2D7F		6.0
+2D80	2D96	4.1
+2DA0	2DA6	4.1
+2DA8	2DAE	4.1
+2DB0	2DB6	4.1
+2DB8	2DBE	4.1
+2DC0	2DC6	4.1
+2DC8	2DCE	4.1
+2DD0	2DD6	4.1
+2DD8	2DDE	4.1
+2DE0	2DFF	5.1
+2E00	2E17	4.1
+2E18	2E1B	5.1
+2E1C	2E1D	4.1
+2E1E	2E30	5.1
+2E31		5.2
+2E32	2E3B	6.1
+2E3C	2E42	7.0
+2E43	2E44	9.0
+2E45	2E49	10.0
+2E80	2E99	3.0
+2E9B	2EF3	3.0
+2F00	2FD5	3.0
+2FF0	2FFB	3.0
+3000	3037	1.1
+3038	303A	3.0
+303B	303D	3.2
+303E		3.0
+303F		1.1
+3041	3094	1.1
+3095	3096	3.2
+3099	309E	1.1
+309F	30A0	3.2
+30A1	30FE	1.1
+30FF		3.2
+3105	312C	1.1
+312D		5.1
+312E		10.0
+3131	318E	1.1
+3190	319F	1.1
+31A0	31B7	3.0
+31B8	31BA	6.0
+31C0	31CF	4.1
+31D0	31E3	5.1
+31F0	31FF	3.2
+3200	321C	1.1
+321D	321E	4.0
+3220	3243	1.1
+3244	324F	5.2
+3250		4.0
+3251	325F	3.2
+3260	327B	1.1
+327C	327D	4.0
+327E		4.1
+327F	32B0	1.1
+32B1	32BF	3.2
+32C0	32CB	1.1
+32CC	32CF	4.0
+32D0	32FE	1.1
+3300	3376	1.1
+3377	337A	4.0
+337B	33DD	1.1
+33DE	33DF	4.0
+33E0	33FE	1.1
+33FF		4.0
+3400	4DB5	3.0
+4DC0	4DFF	4.0
+4E00	9FA5	1.1
+9FA6	9FBB	4.1
+9FBC	9FC3	5.1
+9FC4	9FCB	5.2
+9FCC		6.1
+9FCD	9FD5	8.0
+9FD6	9FEA	10.0
+A000	A48C	3.0
+A490	A4A1	3.0
+A4A2	A4A3	3.2
+A4A4	A4B3	3.0
+A4B4		3.2
+A4B5	A4C0	3.0
+A4C1		3.2
+A4C2	A4C4	3.0
+A4C5		3.2
+A4C6		3.0
+A4D0	A4FF	5.2
+A500	A62B	5.1
+A640	A65F	5.1
+A660	A661	6.0
+A662	A673	5.1
+A674	A67B	6.1
+A67C	A697	5.1
+A698	A69D	7.0
+A69E		8.0
+A69F		6.1
+A6A0	A6F7	5.2
+A700	A716	4.1
+A717	A71A	5.0
+A71B	A71F	5.1
+A720	A721	5.0
+A722	A78C	5.1
+A78D	A78E	6.0
+A78F		8.0
+A790	A791	6.0
+A792	A793	6.1
+A794	A79F	7.0
+A7A0	A7A9	6.0
+A7AA		6.1
+A7AB	A7AD	7.0
+A7AE		9.0
+A7B0	A7B1	7.0
+A7B2	A7B7	8.0
+A7F7		7.0
+A7F8	A7F9	6.1
+A7FA		6.0
+A7FB	A7FF	5.1
+A800	A82B	4.1
+A830	A839	5.2
+A840	A877	5.0
+A880	A8C4	5.1
+A8C5		9.0
+A8CE	A8D9	5.1
+A8E0	A8FB	5.2
+A8FC	A8FD	8.0
+A900	A953	5.1
+A95F		5.1
+A960	A97C	5.2
+A980	A9CD	5.2
+A9CF	A9D9	5.2
+A9DE	A9DF	5.2
+A9E0	A9FE	7.0
+AA00	AA36	5.1
+AA40	AA4D	5.1
+AA50	AA59	5.1
+AA5C	AA5F	5.1
+AA60	AA7B	5.2
+AA7C	AA7F	7.0
+AA80	AAC2	5.2
+AADB	AADF	5.2
+AAE0	AAF6	6.1
+AB01	AB06	6.0
+AB09	AB0E	6.0
+AB11	AB16	6.0
+AB20	AB26	6.0
+AB28	AB2E	6.0
+AB30	AB5F	7.0
+AB60	AB63	8.0
+AB64	AB65	7.0
+AB70	ABBF	8.0
+ABC0	ABED	5.2
+ABF0	ABF9	5.2
+AC00	D7A3	2.0
+D7B0	D7C6	5.2
+D7CB	D7FB	5.2
+D800	DFFF	2.0
+E000	FA2D	1.1
+FA2E	FA2F	6.1
+FA30	FA6A	3.2
+FA6B	FA6D	5.2
+FA70	FAD9	4.1
+FB00	FB06	1.1
+FB13	FB17	1.1
+FB1D		3.0
+FB1E	FB36	1.1
+FB38	FB3C	1.1
+FB3E		1.1
+FB40	FB41	1.1
+FB43	FB44	1.1
+FB46	FBB1	1.1
+FBB2	FBC1	6.0
+FBD3	FD3F	1.1
+FD50	FD8F	1.1
+FD92	FDC7	1.1
+FDD0	FDEF	3.1
+FDF0	FDFB	1.1
+FDFC		3.2
+FDFD		4.0
+FE00	FE0F	3.2
+FE10	FE19	4.1
+FE20	FE23	1.1
+FE24	FE26	5.1
+FE27	FE2D	7.0
+FE2E	FE2F	8.0
+FE30	FE44	1.1
+FE45	FE46	3.2
+FE47	FE48	4.0
+FE49	FE52	1.1
+FE54	FE66	1.1
+FE68	FE6B	1.1
+FE70	FE72	1.1
+FE73		3.2
+FE74		1.1
+FE76	FEFC	1.1
+FEFF		1.1
+FF01	FF5E	1.1
+FF5F	FF60	3.2
+FF61	FFBE	1.1
+FFC2	FFC7	1.1
+FFCA	FFCF	1.1
+FFD2	FFD7	1.1
+FFDA	FFDC	1.1
+FFE0	FFE6	1.1
+FFE8	FFEE	1.1
+FFF9	FFFB	3.0
+FFFC		2.1
+FFFD	FFFF	1.1
+10000	1000B	4.0
+1000D	10026	4.0
+10028	1003A	4.0
+1003C	1003D	4.0
+1003F	1004D	4.0
+10050	1005D	4.0
+10080	100FA	4.0
+10100	10102	4.0
+10107	10133	4.0
+10137	1013F	4.0
+10140	1018A	4.1
+1018B	1018C	7.0
+1018D	1018E	9.0
+10190	1019B	5.1
+101A0		7.0
+101D0	101FD	5.1
+10280	1029C	5.1
+102A0	102D0	5.1
+102E0	102FB	7.0
+10300	1031E	3.1
+1031F		7.0
+10320	10323	3.1
+1032D	1032F	10.0
+10330	1034A	3.1
+10350	1037A	7.0
+10380	1039D	4.0
+1039F		4.0
+103A0	103C3	4.1
+103C8	103D5	4.1
+10400	10425	3.1
+10426	10427	4.0
+10428	1044D	3.1
+1044E	1049D	4.0
+104A0	104A9	4.0
+104B0	104D3	9.0
+104D8	104FB	9.0
+10500	10527	7.0
+10530	10563	7.0
+1056F		7.0
+10600	10736	7.0
+10740	10755	7.0
+10760	10767	7.0
+10800	10805	4.0
+10808		4.0
+1080A	10835	4.0
+10837	10838	4.0
+1083C		4.0
+1083F		4.0
+10840	10855	5.2
+10857	1085F	5.2
+10860	1089E	7.0
+108A7	108AF	7.0
+108E0	108F2	8.0
+108F4	108F5	8.0
+108FB	108FF	8.0
+10900	10919	5.0
+1091A	1091B	5.2
+1091F		5.0
+10920	10939	5.1
+1093F		5.1
+10980	109B7	6.1
+109BC	109BD	8.0
+109BE	109BF	6.1
+109C0	109CF	8.0
+109D2	109FF	8.0
+10A00	10A03	4.1
+10A05	10A06	4.1
+10A0C	10A13	4.1
+10A15	10A17	4.1
+10A19	10A33	4.1
+10A38	10A3A	4.1
+10A3F	10A47	4.1
+10A50	10A58	4.1
+10A60	10A7F	5.2
+10A80	10A9F	7.0
+10AC0	10AE6	7.0
+10AEB	10AF6	7.0
+10B00	10B35	5.2
+10B39	10B55	5.2
+10B58	10B72	5.2
+10B78	10B7F	5.2
+10B80	10B91	7.0
+10B99	10B9C	7.0
+10BA9	10BAF	7.0
+10C00	10C48	5.2
+10C80	10CB2	8.0
+10CC0	10CF2	8.0
+10CFA	10CFF	8.0
+10E60	10E7E	5.2
+11000	1104D	6.0
+11052	1106F	6.0
+1107F		7.0
+11080	110C1	5.2
+110D0	110E8	6.1
+110F0	110F9	6.1
+11100	11134	6.1
+11136	11143	6.1
+11150	11176	7.0
+11180	111C8	6.1
+111C9	111CC	8.0
+111CD		7.0
+111D0	111D9	6.1
+111DA		7.0
+111DB	111DF	8.0
+111E1	111F4	7.0
+11200	11211	7.0
+11213	1123D	7.0
+1123E		9.0
+11280	11286	8.0
+11288		8.0
+1128A	1128D	8.0
+1128F	1129D	8.0
+1129F	112A9	8.0
+112B0	112EA	7.0
+112F0	112F9	7.0
+11300		8.0
+11301	11303	7.0
+11305	1130C	7.0
+1130F	11310	7.0
+11313	11328	7.0
+1132A	11330	7.0
+11332	11333	7.0
+11335	11339	7.0
+1133C	11344	7.0
+11347	11348	7.0
+1134B	1134D	7.0
+11350		8.0
+11357		7.0
+1135D	11363	7.0
+11366	1136C	7.0
+11370	11374	7.0
+11400	11459	9.0
+1145B		9.0
+1145D		9.0
+11480	114C7	7.0
+114D0	114D9	7.0
+11580	115B5	7.0
+115B8	115C9	7.0
+115CA	115DD	8.0
+11600	11644	7.0
+11650	11659	7.0
+11660	1166C	9.0
+11680	116B7	6.1
+116C0	116C9	6.1
+11700	11719	8.0
+1171D	1172B	8.0
+11730	1173F	8.0
+118A0	118F2	7.0
+118FF		7.0
+11A00	11A47	10.0
+11A50	11A83	10.0
+11A86	11A9C	10.0
+11A9E	11AA2	10.0
+11AC0	11AF8	7.0
+11C00	11C08	9.0
+11C0A	11C36	9.0
+11C38	11C45	9.0
+11C50	11C6C	9.0
+11C70	11C8F	9.0
+11C92	11CA7	9.0
+11CA9	11CB6	9.0
+11D00	11D06	10.0
+11D08	11D09	10.0
+11D0B	11D36	10.0
+11D3A		10.0
+11D3C	11D3D	10.0
+11D3F	11D47	10.0
+11D50	11D59	10.0
+12000	1236E	5.0
+1236F	12398	7.0
+12399		8.0
+12400	12462	5.0
+12463	1246E	7.0
+12470	12473	5.0
+12474		7.0
+12480	12543	8.0
+13000	1342E	5.2
+14400	14646	8.0
+16800	16A38	6.0
+16A40	16A5E	7.0
+16A60	16A69	7.0
+16A6E	16A6F	7.0
+16AD0	16AED	7.0
+16AF0	16AF5	7.0
+16B00	16B45	7.0
+16B50	16B59	7.0
+16B5B	16B61	7.0
+16B63	16B77	7.0
+16B7D	16B8F	7.0
+16F00	16F44	6.1
+16F50	16F7E	6.1
+16F8F	16F9F	6.1
+16FE0		9.0
+16FE1		10.0
+17000	187EC	9.0
+18800	18AF2	9.0
+1B000	1B001	6.0
+1B002	1B11E	10.0
+1B170	1B2FB	10.0
+1BC00	1BC6A	7.0
+1BC70	1BC7C	7.0
+1BC80	1BC88	7.0
+1BC90	1BC99	7.0
+1BC9C	1BCA3	7.0
+1D000	1D0F5	3.1
+1D100	1D126	3.1
+1D129		5.1
+1D12A	1D1DD	3.1
+1D1DE	1D1E8	8.0
+1D200	1D245	4.1
+1D300	1D356	4.0
+1D360	1D371	5.0
+1D400	1D454	3.1
+1D456	1D49C	3.1
+1D49E	1D49F	3.1
+1D4A2		3.1
+1D4A5	1D4A6	3.1
+1D4A9	1D4AC	3.1
+1D4AE	1D4B9	3.1
+1D4BB		3.1
+1D4BD	1D4C0	3.1
+1D4C1		4.0
+1D4C2	1D4C3	3.1
+1D4C5	1D505	3.1
+1D507	1D50A	3.1
+1D50D	1D514	3.1
+1D516	1D51C	3.1
+1D51E	1D539	3.1
+1D53B	1D53E	3.1
+1D540	1D544	3.1
+1D546		3.1
+1D54A	1D550	3.1
+1D552	1D6A3	3.1
+1D6A4	1D6A5	4.1
+1D6A8	1D7C9	3.1
+1D7CA	1D7CB	5.0
+1D7CE	1D7FF	3.1
+1D800	1DA8B	8.0
+1DA9B	1DA9F	8.0
+1DAA1	1DAAF	8.0
+1E000	1E006	9.0
+1E008	1E018	9.0
+1E01B	1E021	9.0
+1E023	1E024	9.0
+1E026	1E02A	9.0
+1E800	1E8C4	7.0
+1E8C7	1E8D6	7.0
+1E900	1E94A	9.0
+1E950	1E959	9.0
+1E95E	1E95F	9.0
+1EE00	1EE03	6.1
+1EE05	1EE1F	6.1
+1EE21	1EE22	6.1
+1EE24		6.1
+1EE27		6.1
+1EE29	1EE32	6.1
+1EE34	1EE37	6.1
+1EE39		6.1
+1EE3B		6.1
+1EE42		6.1
+1EE47		6.1
+1EE49		6.1
+1EE4B		6.1
+1EE4D	1EE4F	6.1
+1EE51	1EE52	6.1
+1EE54		6.1
+1EE57		6.1
+1EE59		6.1
+1EE5B		6.1
+1EE5D		6.1
+1EE5F		6.1
+1EE61	1EE62	6.1
+1EE64		6.1
+1EE67	1EE6A	6.1
+1EE6C	1EE72	6.1
+1EE74	1EE77	6.1
+1EE79	1EE7C	6.1
+1EE7E		6.1
+1EE80	1EE89	6.1
+1EE8B	1EE9B	6.1
+1EEA1	1EEA3	6.1
+1EEA5	1EEA9	6.1
+1EEAB	1EEBB	6.1
+1EEF0	1EEF1	6.1
+1F000	1F02B	5.1
+1F030	1F093	5.1
+1F0A0	1F0AE	6.0
+1F0B1	1F0BE	6.0
+1F0BF		7.0
+1F0C1	1F0CF	6.0
+1F0D1	1F0DF	6.0
+1F0E0	1F0F5	7.0
+1F100	1F10A	5.2
+1F10B	1F10C	7.0
+1F110	1F12E	5.2
+1F130		6.0
+1F131		5.2
+1F132	1F13C	6.0
+1F13D		5.2
+1F13E		6.0
+1F13F		5.2
+1F140	1F141	6.0
+1F142		5.2
+1F143	1F145	6.0
+1F146		5.2
+1F147	1F149	6.0
+1F14A	1F14E	5.2
+1F14F	1F156	6.0
+1F157		5.2
+1F158	1F15E	6.0
+1F15F		5.2
+1F160	1F169	6.0
+1F16A	1F16B	6.1
+1F170	1F178	6.0
+1F179		5.2
+1F17A		6.0
+1F17B	1F17C	5.2
+1F17D	1F17E	6.0
+1F17F		5.2
+1F180	1F189	6.0
+1F18A	1F18D	5.2
+1F18E	1F18F	6.0
+1F190		5.2
+1F191	1F19A	6.0
+1F19B	1F1AC	9.0
+1F1E6	1F1FF	6.0
+1F200		5.2
+1F201	1F202	6.0
+1F210	1F231	5.2
+1F232	1F23A	6.0
+1F23B		9.0
+1F240	1F248	5.2
+1F250	1F251	6.0
+1F260	1F265	10.0
+1F300	1F320	6.0
+1F321	1F32C	7.0
+1F32D	1F32F	8.0
+1F330	1F335	6.0
+1F336		7.0
+1F337	1F37C	6.0
+1F37D		7.0
+1F37E	1F37F	8.0
+1F380	1F393	6.0
+1F394	1F39F	7.0
+1F3A0	1F3C4	6.0
+1F3C5		7.0
+1F3C6	1F3CA	6.0
+1F3CB	1F3CE	7.0
+1F3CF	1F3D3	8.0
+1F3D4	1F3DF	7.0
+1F3E0	1F3F0	6.0
+1F3F1	1F3F7	7.0
+1F3F8	1F3FF	8.0
+1F400	1F43E	6.0
+1F43F		7.0
+1F440		6.0
+1F441		7.0
+1F442	1F4F7	6.0
+1F4F8		7.0
+1F4F9	1F4FC	6.0
+1F4FD	1F4FE	7.0
+1F4FF		8.0
+1F500	1F53D	6.0
+1F53E	1F53F	7.0
+1F540	1F543	6.1
+1F544	1F54A	7.0
+1F54B	1F54F	8.0
+1F550	1F567	6.0
+1F568	1F579	7.0
+1F57A		9.0
+1F57B	1F5A3	7.0
+1F5A4		9.0
+1F5A5	1F5FA	7.0
+1F5FB	1F5FF	6.0
+1F600		6.1
+1F601	1F610	6.0
+1F611		6.1
+1F612	1F614	6.0
+1F615		6.1
+1F616		6.0
+1F617		6.1
+1F618		6.0
+1F619		6.1
+1F61A		6.0
+1F61B		6.1
+1F61C	1F61E	6.0
+1F61F		6.1
+1F620	1F625	6.0
+1F626	1F627	6.1
+1F628	1F62B	6.0
+1F62C		6.1
+1F62D		6.0
+1F62E	1F62F	6.1
+1F630	1F633	6.0
+1F634		6.1
+1F635	1F640	6.0
+1F641	1F642	7.0
+1F643	1F644	8.0
+1F645	1F64F	6.0
+1F650	1F67F	7.0
+1F680	1F6C5	6.0
+1F6C6	1F6CF	7.0
+1F6D0		8.0
+1F6D1	1F6D2	9.0
+1F6D3	1F6D4	10.0
+1F6E0	1F6EC	7.0
+1F6F0	1F6F3	7.0
+1F6F4	1F6F6	9.0
+1F6F7	1F6F8	10.0
+1F700	1F773	6.0
+1F780	1F7D4	7.0
+1F800	1F80B	7.0
+1F810	1F847	7.0
+1F850	1F859	7.0
+1F860	1F887	7.0
+1F890	1F8AD	7.0
+1F900	1F90B	10.0
+1F910	1F918	8.0
+1F919	1F91E	9.0
+1F91F		10.0
+1F920	1F927	9.0
+1F928	1F92F	10.0
+1F930		9.0
+1F931	1F932	10.0
+1F933	1F93E	9.0
+1F940	1F94B	9.0
+1F94C		10.0
+1F950	1F95E	9.0
+1F95F	1F96B	10.0
+1F980	1F984	8.0
+1F985	1F991	9.0
+1F992	1F997	10.0
+1F9C0		8.0
+1F9D0	1F9E6	10.0
+1FFFE	1FFFF	2.0
+20000	2A6D6	3.1
+2A700	2B734	5.2
+2B740	2B81D	6.0
+2B820	2CEA1	8.0
+2CEB0	2EBE0	10.0
+2F800	2FA1D	3.1
+2FFFE	2FFFF	2.0
+3FFFE	3FFFF	2.0
+4FFFE	4FFFF	2.0
+5FFFE	5FFFF	2.0
+6FFFE	6FFFF	2.0
+7FFFE	7FFFF	2.0
+8FFFE	8FFFF	2.0
+9FFFE	9FFFF	2.0
+AFFFE	AFFFF	2.0
+BFFFE	BFFFF	2.0
+CFFFE	CFFFF	2.0
+DFFFE	DFFFF	2.0
+E0001		3.1
+E0020	E007F	3.1
+E0100	E01EF	4.0
+EFFFE	10FFFF	2.0
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Lowercase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLower'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToLower'}{'specials_name'} = 'utf8::ToSpecLower'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToLower'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecLower = (
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0132		0133
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+013F		0140
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01C4		01C6
+01C5		01C6
+01C7		01C9
+01C8		01C9
+01CA		01CC
+01CB		01CC
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F1		01F3
+01F2		01F3
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+0370		0371
+0372		0373
+0376		0377
+037F		03F3
+0386		03AC
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03CF		03D7
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F4		03B8
+03F7		03F8
+03F9		03F2
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+13A0		AB70
+13A1		AB71
+13A2		AB72
+13A3		AB73
+13A4		AB74
+13A5		AB75
+13A6		AB76
+13A7		AB77
+13A8		AB78
+13A9		AB79
+13AA		AB7A
+13AB		AB7B
+13AC		AB7C
+13AD		AB7D
+13AE		AB7E
+13AF		AB7F
+13B0		AB80
+13B1		AB81
+13B2		AB82
+13B3		AB83
+13B4		AB84
+13B5		AB85
+13B6		AB86
+13B7		AB87
+13B8		AB88
+13B9		AB89
+13BA		AB8A
+13BB		AB8B
+13BC		AB8C
+13BD		AB8D
+13BE		AB8E
+13BF		AB8F
+13C0		AB90
+13C1		AB91
+13C2		AB92
+13C3		AB93
+13C4		AB94
+13C5		AB95
+13C6		AB96
+13C7		AB97
+13C8		AB98
+13C9		AB99
+13CA		AB9A
+13CB		AB9B
+13CC		AB9C
+13CD		AB9D
+13CE		AB9E
+13CF		AB9F
+13D0		ABA0
+13D1		ABA1
+13D2		ABA2
+13D3		ABA3
+13D4		ABA4
+13D5		ABA5
+13D6		ABA6
+13D7		ABA7
+13D8		ABA8
+13D9		ABA9
+13DA		ABAA
+13DB		ABAB
+13DC		ABAC
+13DD		ABAD
+13DE		ABAE
+13DF		ABAF
+13E0		ABB0
+13E1		ABB1
+13E2		ABB2
+13E3		ABB3
+13E4		ABB4
+13E5		ABB5
+13E6		ABB6
+13E7		ABB7
+13E8		ABB8
+13E9		ABB9
+13EA		ABBA
+13EB		ABBB
+13EC		ABBC
+13ED		ABBD
+13EE		ABBE
+13EF		ABBF
+13F0		13F8
+13F1		13F9
+13F2		13FA
+13F3		13FB
+13F4		13FC
+13F5		13FD
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9E		00DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F88		1F80
+1F89		1F81
+1F8A		1F82
+1F8B		1F83
+1F8C		1F84
+1F8D		1F85
+1F8E		1F86
+1F8F		1F87
+1F98		1F90
+1F99		1F91
+1F9A		1F92
+1F9B		1F93
+1F9C		1F94
+1F9D		1F95
+1F9E		1F96
+1F9F		1F97
+1FA8		1FA0
+1FA9		1FA1
+1FAA		1FA2
+1FAB		1FA3
+1FAC		1FA4
+1FAD		1FA5
+1FAE		1FA6
+1FAF		1FA7
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		1F71
+1FBC		1FB3
+1FC8		1F72
+1FC9		1F73
+1FCA		1F74
+1FCB		1F75
+1FCC		1FC3
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		1F77
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		1F7B
+1FEC		1FE5
+1FF8		1F78
+1FF9		1F79
+1FFA		1F7C
+1FFB		1F7D
+1FFC		1FF3
+2126		03C9
+212A		006B
+212B		00E5
+2132		214E
+2160		2170
+2161		2171
+2162		2172
+2163		2173
+2164		2174
+2165		2175
+2166		2176
+2167		2177
+2168		2178
+2169		2179
+216A		217A
+216B		217B
+216C		217C
+216D		217D
+216E		217E
+216F		217F
+2183		2184
+24B6		24D0
+24B7		24D1
+24B8		24D2
+24B9		24D3
+24BA		24D4
+24BB		24D5
+24BC		24D6
+24BD		24D7
+24BE		24D8
+24BF		24D9
+24C0		24DA
+24C1		24DB
+24C2		24DC
+24C3		24DD
+24C4		24DE
+24C5		24DF
+24C6		24E0
+24C7		24E1
+24C8		24E2
+24C9		24E3
+24CA		24E4
+24CB		24E5
+24CC		24E6
+24CD		24E7
+24CE		24E8
+24CF		24E9
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7AE		026A
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+FF21		FF41
+FF22		FF42
+FF23		FF43
+FF24		FF44
+FF25		FF45
+FF26		FF46
+FF27		FF47
+FF28		FF48
+FF29		FF49
+FF2A		FF4A
+FF2B		FF4B
+FF2C		FF4C
+FF2D		FF4D
+FF2E		FF4E
+FF2F		FF4F
+FF30		FF50
+FF31		FF51
+FF32		FF52
+FF33		FF53
+FF34		FF54
+FF35		FF55
+FF36		FF56
+FF37		FF57
+FF38		FF58
+FF39		FF59
+FF3A		FF5A
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+104B0		104D8
+104B1		104D9
+104B2		104DA
+104B3		104DB
+104B4		104DC
+104B5		104DD
+104B6		104DE
+104B7		104DF
+104B8		104E0
+104B9		104E1
+104BA		104E2
+104BB		104E3
+104BC		104E4
+104BD		104E5
+104BE		104E6
+104BF		104E7
+104C0		104E8
+104C1		104E9
+104C2		104EA
+104C3		104EB
+104C4		104EC
+104C5		104ED
+104C6		104EE
+104C7		104EF
+104C8		104F0
+104C9		104F1
+104CA		104F2
+104CB		104F3
+104CC		104F4
+104CD		104F5
+104CE		104F6
+104CF		104F7
+104D0		104F8
+104D1		104F9
+104D2		104FA
+104D3		104FB
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+1E900		1E922
+1E901		1E923
+1E902		1E924
+1E903		1E925
+1E904		1E926
+1E905		1E927
+1E906		1E928
+1E907		1E929
+1E908		1E92A
+1E909		1E92B
+1E90A		1E92C
+1E90B		1E92D
+1E90C		1E92E
+1E90D		1E92F
+1E90E		1E930
+1E90F		1E931
+1E910		1E932
+1E911		1E933
+1E912		1E934
+1E913		1E935
+1E914		1E936
+1E915		1E937
+1E916		1E938
+1E917		1E939
+1E918		1E93A
+1E919		1E93B
+1E91A		1E93C
+1E91B		1E93D
+1E91C		1E93E
+1E91D		1E93F
+1E91E		1E940
+1E91F		1E941
+1E920		1E942
+1E921		1E943
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToLc'}{'specials_name'} = 'utf8::ToSpecLc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToLc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecLc = (
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+);
+
+return <<'END';
+41	5A	61
+C0	D6	E0
+D8	DE	F8
+100		101
+102		103
+104		105
+106		107
+108		109
+10A		10B
+10C		10D
+10E		10F
+110		111
+112		113
+114		115
+116		117
+118		119
+11A		11B
+11C		11D
+11E		11F
+120		121
+122		123
+124		125
+126		127
+128		129
+12A		12B
+12C		12D
+12E		12F
+130		69
+132		133
+134		135
+136		137
+139		13A
+13B		13C
+13D		13E
+13F		140
+141		142
+143		144
+145		146
+147		148
+14A		14B
+14C		14D
+14E		14F
+150		151
+152		153
+154		155
+156		157
+158		159
+15A		15B
+15C		15D
+15E		15F
+160		161
+162		163
+164		165
+166		167
+168		169
+16A		16B
+16C		16D
+16E		16F
+170		171
+172		173
+174		175
+176		177
+178		FF
+179		17A
+17B		17C
+17D		17E
+181		253
+182		183
+184		185
+186		254
+187		188
+189	18A	256
+18B		18C
+18E		1DD
+18F		259
+190		25B
+191		192
+193		260
+194		263
+196		269
+197		268
+198		199
+19C		26F
+19D		272
+19F		275
+1A0		1A1
+1A2		1A3
+1A4		1A5
+1A6		280
+1A7		1A8
+1A9		283
+1AC		1AD
+1AE		288
+1AF		1B0
+1B1	1B2	28A
+1B3		1B4
+1B5		1B6
+1B7		292
+1B8		1B9
+1BC		1BD
+1C4		1C6
+1C5		1C6
+1C7		1C9
+1C8		1C9
+1CA		1CC
+1CB		1CC
+1CD		1CE
+1CF		1D0
+1D1		1D2
+1D3		1D4
+1D5		1D6
+1D7		1D8
+1D9		1DA
+1DB		1DC
+1DE		1DF
+1E0		1E1
+1E2		1E3
+1E4		1E5
+1E6		1E7
+1E8		1E9
+1EA		1EB
+1EC		1ED
+1EE		1EF
+1F1		1F3
+1F2		1F3
+1F4		1F5
+1F6		195
+1F7		1BF
+1F8		1F9
+1FA		1FB
+1FC		1FD
+1FE		1FF
+200		201
+202		203
+204		205
+206		207
+208		209
+20A		20B
+20C		20D
+20E		20F
+210		211
+212		213
+214		215
+216		217
+218		219
+21A		21B
+21C		21D
+21E		21F
+220		19E
+222		223
+224		225
+226		227
+228		229
+22A		22B
+22C		22D
+22E		22F
+230		231
+232		233
+23A		2C65
+23B		23C
+23D		19A
+23E		2C66
+241		242
+243		180
+244		289
+245		28C
+246		247
+248		249
+24A		24B
+24C		24D
+24E		24F
+370		371
+372		373
+376		377
+37F		3F3
+386		3AC
+388	38A	3AD
+38C		3CC
+38E	38F	3CD
+391	3A1	3B1
+3A3	3AB	3C3
+3CF		3D7
+3D8		3D9
+3DA		3DB
+3DC		3DD
+3DE		3DF
+3E0		3E1
+3E2		3E3
+3E4		3E5
+3E6		3E7
+3E8		3E9
+3EA		3EB
+3EC		3ED
+3EE		3EF
+3F4		3B8
+3F7		3F8
+3F9		3F2
+3FA		3FB
+3FD	3FF	37B
+400	40F	450
+410	42F	430
+460		461
+462		463
+464		465
+466		467
+468		469
+46A		46B
+46C		46D
+46E		46F
+470		471
+472		473
+474		475
+476		477
+478		479
+47A		47B
+47C		47D
+47E		47F
+480		481
+48A		48B
+48C		48D
+48E		48F
+490		491
+492		493
+494		495
+496		497
+498		499
+49A		49B
+49C		49D
+49E		49F
+4A0		4A1
+4A2		4A3
+4A4		4A5
+4A6		4A7
+4A8		4A9
+4AA		4AB
+4AC		4AD
+4AE		4AF
+4B0		4B1
+4B2		4B3
+4B4		4B5
+4B6		4B7
+4B8		4B9
+4BA		4BB
+4BC		4BD
+4BE		4BF
+4C0		4CF
+4C1		4C2
+4C3		4C4
+4C5		4C6
+4C7		4C8
+4C9		4CA
+4CB		4CC
+4CD		4CE
+4D0		4D1
+4D2		4D3
+4D4		4D5
+4D6		4D7
+4D8		4D9
+4DA		4DB
+4DC		4DD
+4DE		4DF
+4E0		4E1
+4E2		4E3
+4E4		4E5
+4E6		4E7
+4E8		4E9
+4EA		4EB
+4EC		4ED
+4EE		4EF
+4F0		4F1
+4F2		4F3
+4F4		4F5
+4F6		4F7
+4F8		4F9
+4FA		4FB
+4FC		4FD
+4FE		4FF
+500		501
+502		503
+504		505
+506		507
+508		509
+50A		50B
+50C		50D
+50E		50F
+510		511
+512		513
+514		515
+516		517
+518		519
+51A		51B
+51C		51D
+51E		51F
+520		521
+522		523
+524		525
+526		527
+528		529
+52A		52B
+52C		52D
+52E		52F
+531	556	561
+10A0	10C5	2D00
+10C7		2D27
+10CD		2D2D
+13A0	13EF	AB70
+13F0	13F5	13F8
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9E		DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08	1F0F	1F00
+1F18	1F1D	1F10
+1F28	1F2F	1F20
+1F38	1F3F	1F30
+1F48	1F4D	1F40
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68	1F6F	1F60
+1F88	1F8F	1F80
+1F98	1F9F	1F90
+1FA8	1FAF	1FA0
+1FB8	1FB9	1FB0
+1FBA	1FBB	1F70
+1FBC		1FB3
+1FC8	1FCB	1F72
+1FCC		1FC3
+1FD8	1FD9	1FD0
+1FDA	1FDB	1F76
+1FE8	1FE9	1FE0
+1FEA	1FEB	1F7A
+1FEC		1FE5
+1FF8	1FF9	1F78
+1FFA	1FFB	1F7C
+1FFC		1FF3
+2126		3C9
+212A		6B
+212B		E5
+2132		214E
+2160	216F	2170
+2183		2184
+24B6	24CF	24D0
+2C00	2C2E	2C30
+2C60		2C61
+2C62		26B
+2C63		1D7D
+2C64		27D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		251
+2C6E		271
+2C6F		250
+2C70		252
+2C72		2C73
+2C75		2C76
+2C7E	2C7F	23F
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		266
+A7AB		25C
+A7AC		261
+A7AD		26C
+A7AE		26A
+A7B0		29E
+A7B1		287
+A7B2		29D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+FF21	FF3A	FF41
+10400	10427	10428
+104B0	104D3	104D8
+10C80	10CB2	10CC0
+118A0	118BF	118C0
+1E900	1E921	1E922
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNt'}{'missing'} = 'None';
+
+return <<'END';
+30	39	Decimal
+B2	B3	Digit
+B9		Digit
+BC	BE	Numeric
+660	669	Decimal
+6F0	6F9	Decimal
+7C0	7C9	Decimal
+966	96F	Decimal
+9E6	9EF	Decimal
+9F4	9F9	Numeric
+A66	A6F	Decimal
+AE6	AEF	Decimal
+B66	B6F	Decimal
+B72	B77	Numeric
+BE6	BEF	Decimal
+BF0	BF2	Numeric
+C66	C6F	Decimal
+C78	C7E	Numeric
+CE6	CEF	Decimal
+D58	D5E	Numeric
+D66	D6F	Decimal
+D70	D78	Numeric
+DE6	DEF	Decimal
+E50	E59	Decimal
+ED0	ED9	Decimal
+F20	F29	Decimal
+F2A	F33	Numeric
+1040	1049	Decimal
+1090	1099	Decimal
+1369	1371	Digit
+1372	137C	Numeric
+16EE	16F0	Numeric
+17E0	17E9	Decimal
+17F0	17F9	Numeric
+1810	1819	Decimal
+1946	194F	Decimal
+19D0	19D9	Decimal
+19DA		Digit
+1A80	1A89	Decimal
+1A90	1A99	Decimal
+1B50	1B59	Decimal
+1BB0	1BB9	Decimal
+1C40	1C49	Decimal
+1C50	1C59	Decimal
+2070		Digit
+2074	2079	Digit
+2080	2089	Digit
+2150	2182	Numeric
+2185	2189	Numeric
+2460	2468	Digit
+2469	2473	Numeric
+2474	247C	Digit
+247D	2487	Numeric
+2488	2490	Digit
+2491	249B	Numeric
+24EA		Digit
+24EB	24F4	Numeric
+24F5	24FD	Digit
+24FE		Numeric
+24FF		Digit
+2776	277E	Digit
+277F		Numeric
+2780	2788	Digit
+2789		Numeric
+278A	2792	Digit
+2793		Numeric
+2CFD		Numeric
+3007		Numeric
+3021	3029	Numeric
+3038	303A	Numeric
+3192	3195	Numeric
+3220	3229	Numeric
+3248	324F	Numeric
+3251	325F	Numeric
+3280	3289	Numeric
+32B1	32BF	Numeric
+3405		Numeric
+3483		Numeric
+382A		Numeric
+3B4D		Numeric
+4E00		Numeric
+4E03		Numeric
+4E07		Numeric
+4E09		Numeric
+4E5D		Numeric
+4E8C		Numeric
+4E94		Numeric
+4E96		Numeric
+4EBF	4EC0	Numeric
+4EDF		Numeric
+4EE8		Numeric
+4F0D		Numeric
+4F70		Numeric
+5104		Numeric
+5146		Numeric
+5169		Numeric
+516B		Numeric
+516D		Numeric
+5341		Numeric
+5343	5345	Numeric
+534C		Numeric
+53C1	53C4	Numeric
+56DB		Numeric
+58F1		Numeric
+58F9		Numeric
+5E7A		Numeric
+5EFE	5EFF	Numeric
+5F0C	5F0E	Numeric
+5F10		Numeric
+62FE		Numeric
+634C		Numeric
+67D2		Numeric
+6F06		Numeric
+7396		Numeric
+767E		Numeric
+8086		Numeric
+842C		Numeric
+8CAE		Numeric
+8CB3		Numeric
+8D30		Numeric
+9621		Numeric
+9646		Numeric
+964C		Numeric
+9678		Numeric
+96F6		Numeric
+A620	A629	Decimal
+A6E6	A6EF	Numeric
+A830	A835	Numeric
+A8D0	A8D9	Decimal
+A900	A909	Decimal
+A9D0	A9D9	Decimal
+A9F0	A9F9	Decimal
+AA50	AA59	Decimal
+ABF0	ABF9	Decimal
+F96B		Numeric
+F973		Numeric
+F978		Numeric
+F9B2		Numeric
+F9D1		Numeric
+F9D3		Numeric
+F9FD		Numeric
+FF10	FF19	Decimal
+10107	10133	Numeric
+10140	10178	Numeric
+1018A	1018B	Numeric
+102E1	102FB	Numeric
+10320	10323	Numeric
+10341		Numeric
+1034A		Numeric
+103D1	103D5	Numeric
+104A0	104A9	Decimal
+10858	1085F	Numeric
+10879	1087F	Numeric
+108A7	108AF	Numeric
+108FB	108FF	Numeric
+10916	1091B	Numeric
+109BC	109BD	Numeric
+109C0	109CF	Numeric
+109D2	109FF	Numeric
+10A40	10A43	Digit
+10A44	10A47	Numeric
+10A7D	10A7E	Numeric
+10A9D	10A9F	Numeric
+10AEB	10AEF	Numeric
+10B58	10B5F	Numeric
+10B78	10B7F	Numeric
+10BA9	10BAF	Numeric
+10CFA	10CFF	Numeric
+10E60	10E68	Digit
+10E69	10E7E	Numeric
+11052	1105A	Digit
+1105B	11065	Numeric
+11066	1106F	Decimal
+110F0	110F9	Decimal
+11136	1113F	Decimal
+111D0	111D9	Decimal
+111E1	111F4	Numeric
+112F0	112F9	Decimal
+11450	11459	Decimal
+114D0	114D9	Decimal
+11650	11659	Decimal
+116C0	116C9	Decimal
+11730	11739	Decimal
+1173A	1173B	Numeric
+118E0	118E9	Decimal
+118EA	118F2	Numeric
+11C50	11C59	Decimal
+11C5A	11C6C	Numeric
+11D50	11D59	Decimal
+12400	1246E	Numeric
+16A60	16A69	Decimal
+16B50	16B59	Decimal
+16B5B	16B61	Numeric
+1D360	1D371	Numeric
+1D7CE	1D7FF	Decimal
+1E8C7	1E8CF	Numeric
+1E950	1E959	Decimal
+1F100	1F10A	Digit
+1F10B	1F10C	Numeric
+20001		Numeric
+20064		Numeric
+200E2		Numeric
+20121		Numeric
+2092A		Numeric
+20983		Numeric
+2098C		Numeric
+2099C		Numeric
+20AEA		Numeric
+20AFD		Numeric
+20B19		Numeric
+22390		Numeric
+22998		Numeric
+23B1B		Numeric
+2626D		Numeric
+2F890		Numeric
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+34
+35
+39
+40
+171
+172
+187
+188
+8216
+8224
+8249
+8251
+11842
+11843
+12300
+12304
+12317
+12320
+65089
+65093
+65282
+65283
+65287
+65288
+65378
+65380
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1378
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4969
+4978
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V154
+545
+546
+564
+567
+686
+688
+751
+768
+848
+856
+861
+864
+1015
+1020
+1536
+1540
+1549
+1558
+1622
+1625
+1774
+1776
+1791
+1792
+1837
+1840
+1869
+1872
+2308
+2309
+2493
+2494
+2561
+2562
+2563
+2564
+2700
+2701
+2785
+2788
+2801
+2802
+2869
+2870
+2929
+2930
+3059
+3067
+3260
+3262
+6109
+6110
+6128
+6138
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6624
+6656
+7424
+7532
+8275
+8277
+8507
+8508
+9167
+9169
+9471
+9472
+9748
+9750
+9866
+9874
+9888
+9890
+11008
+11022
+12829
+12831
+12880
+12881
+12924
+12926
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+65021
+65022
+65095
+65097
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+66432
+66462
+66463
+66464
+66598
+66600
+66638
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+119552
+119639
+120001
+120002
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V172
+567
+578
+856
+861
+1020
+1024
+1270
+1272
+1442
+1443
+1477
+1480
+1547
+1548
+1566
+1567
+1625
+1631
+1872
+1902
+2429
+2430
+2510
+2511
+2998
+2999
+3046
+3047
+4048
+4050
+4345
+4347
+4348
+4349
+4615
+4616
+4679
+4680
+4743
+4744
+4783
+4784
+4815
+4816
+4847
+4848
+4879
+4880
+4895
+4896
+4935
+4936
+4959
+4961
+4992
+5018
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6624
+6656
+6684
+6686
+6688
+7532
+7620
+8277
+8279
+8280
+8287
+8336
+8341
+8370
+8374
+8427
+8428
+8508
+8509
+8524
+8525
+9169
+9180
+9752
+9753
+9854
+9856
+9874
+9885
+9890
+9906
+10176
+10183
+11022
+11028
+11264
+11311
+11312
+11359
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+12736
+12752
+12926
+12927
+40870
+40892
+42752
+42775
+43008
+43052
+64112
+64218
+65040
+65050
+65856
+65931
+66464
+66500
+66504
+66518
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+119296
+119366
+120484
+120486
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V242
+502
+506
+536
+544
+546
+564
+681
+686
+735
+736
+746
+751
+838
+847
+866
+867
+983
+984
+987
+988
+989
+990
+991
+992
+993
+994
+1024
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1160
+1162
+1164
+1168
+1260
+1262
+1418
+1419
+1619
+1622
+1720
+1722
+1727
+1728
+1743
+1744
+1786
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3946
+3947
+3990
+3991
+4014
+4017
+4024
+4025
+4026
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+8239
+8240
+8264
+8270
+8365
+8368
+8418
+8420
+8505
+8507
+8579
+8580
+8683
+8692
+8961
+8962
+9083
+9084
+9085
+9115
+9253
+9255
+9712
+9720
+9753
+9754
+9840
+9842
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12344
+12347
+12350
+12351
+12704
+12728
+13312
+19894
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+64285
+64286
+65529
+65532
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+1425
+1442
+1443
+1456
+1476
+1477
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+7835
+7836
+8363
+8364
+44032
+55204
+55296
+57344
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V70
+578
+592
+891
+894
+1231
+1232
+1274
+1280
+1296
+1300
+1466
+1467
+1984
+2043
+2427
+2429
+2430
+2432
+3298
+3300
+3313
+3315
+6912
+6988
+6992
+7037
+7620
+7627
+7678
+7680
+8428
+8432
+8525
+8527
+8580
+8581
+9180
+9192
+9906
+9907
+10183
+10187
+11028
+11035
+11040
+11044
+11360
+11373
+11380
+11384
+42775
+42779
+42784
+42786
+43072
+43128
+67840
+67866
+67871
+67872
+73728
+74607
+74752
+74851
+74864
+74868
+119648
+119666
+120778
+120780
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V118
+2227
+2229
+2275
+2276
+2809
+2810
+3162
+3163
+3423
+3424
+5109
+5110
+5112
+5118
+8382
+8383
+8586
+8588
+11244
+11248
+40909
+40918
+42654
+42655
+42895
+42896
+42930
+42936
+43260
+43262
+43872
+43876
+43888
+43968
+65070
+65072
+67808
+67827
+67828
+67830
+67835
+67840
+68028
+68030
+68032
+68048
+68050
+68096
+68736
+68787
+68800
+68851
+68858
+68864
+70089
+70093
+70107
+70112
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70400
+70401
+70480
+70481
+71114
+71134
+71424
+71450
+71453
+71468
+71472
+71488
+74649
+74650
+74880
+75076
+82944
+83527
+119262
+119273
+120832
+121484
+121499
+121504
+121505
+121520
+127789
+127792
+127870
+127872
+127951
+127956
+127992
+128000
+128255
+128256
+128331
+128336
+128579
+128581
+128720
+128721
+129296
+129305
+129408
+129413
+129472
+129473
+178208
+183970
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V104
+2230
+2238
+2260
+2275
+3200
+3201
+3407
+3408
+3412
+3415
+3416
+3423
+3446
+3449
+7296
+7305
+7675
+7676
+9211
+9215
+11843
+11845
+42926
+42927
+43205
+43206
+65933
+65935
+66736
+66772
+66776
+66812
+70206
+70207
+70656
+70746
+70747
+70748
+70749
+70750
+71264
+71277
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+94176
+94177
+94208
+100333
+100352
+101107
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125184
+125259
+125264
+125274
+125278
+125280
+127387
+127405
+127547
+127548
+128378
+128379
+128420
+128421
+128721
+128723
+128756
+128759
+129305
+129311
+129312
+129320
+129328
+129329
+129331
+129343
+129344
+129356
+129360
+129375
+129413
+129426
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V282
+895
+896
+1320
+1328
+1421
+1423
+1541
+1542
+2209
+2210
+2221
+2227
+2303
+2304
+2424
+2425
+2432
+2433
+3072
+3073
+3124
+3125
+3201
+3202
+3329
+3330
+3558
+3568
+5873
+5881
+6429
+6431
+6832
+6847
+7416
+7418
+7655
+7670
+8379
+8382
+9204
+9211
+9984
+9985
+11085
+11088
+11098
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11836
+11843
+42648
+42654
+42900
+42912
+42923
+42926
+42928
+42930
+42999
+43000
+43488
+43519
+43644
+43648
+43824
+43872
+43876
+43878
+65063
+65070
+65931
+65933
+65952
+65953
+66272
+66300
+66335
+66336
+66384
+66427
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67680
+67743
+67751
+67760
+68224
+68256
+68288
+68327
+68331
+68343
+68480
+68498
+68505
+68509
+68521
+68528
+69759
+69760
+69968
+70007
+70093
+70094
+70106
+70107
+70113
+70133
+70144
+70162
+70163
+70206
+70320
+70379
+70384
+70394
+70401
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71114
+71168
+71237
+71248
+71258
+71840
+71923
+71935
+71936
+72384
+72441
+74607
+74649
+74851
+74863
+74868
+74869
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+124928
+125125
+125127
+125143
+127167
+127168
+127200
+127222
+127243
+127245
+127777
+127789
+127798
+127799
+127869
+127870
+127892
+127904
+127941
+127942
+127947
+127951
+127956
+127968
+127985
+127992
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128255
+128318
+128320
+128324
+128331
+128360
+128378
+128379
+128420
+128421
+128507
+128577
+128579
+128592
+128640
+128710
+128720
+128736
+128749
+128752
+128756
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V576
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1456
+1466
+1467
+1476
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7835
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8363
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+57344
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65536
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V118
+544
+545
+847
+848
+867
+880
+984
+986
+1014
+1015
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1231
+1280
+1296
+1646
+1648
+1969
+1970
+4343
+4345
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+8263
+8264
+8270
+8275
+8279
+8280
+8287
+8292
+8305
+8306
+8368
+8370
+8420
+8427
+8509
+8524
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9167
+9451
+9471
+9622
+9632
+9720
+9728
+9750
+9752
+9842
+9854
+9856
+9866
+10088
+10102
+10192
+10220
+10224
+10240
+10496
+11008
+12347
+12350
+12437
+12439
+12447
+12449
+12543
+12544
+12784
+12800
+12881
+12896
+12977
+12992
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+64048
+64107
+65020
+65021
+65024
+65040
+65093
+65095
+65139
+65140
+65375
+65377
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V178
+880
+884
+886
+888
+975
+976
+1159
+1160
+1300
+1316
+1542
+1547
+1558
+1563
+1595
+1600
+1902
+1920
+2417
+2419
+2641
+2642
+2677
+2678
+2884
+2885
+2914
+2916
+3024
+3025
+3133
+3134
+3160
+3162
+3170
+3172
+3192
+3200
+3389
+3390
+3396
+3397
+3426
+3428
+3440
+3446
+3449
+3456
+3947
+3949
+4046
+4047
+4050
+4053
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4250
+4254
+4256
+6314
+6315
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7627
+7655
+7836
+7840
+7930
+7936
+8292
+8293
+8432
+8433
+8527
+8528
+8581
+8585
+9885
+9886
+9907
+9917
+9920
+9924
+10188
+10189
+10220
+10224
+11035
+11040
+11044
+11085
+11088
+11093
+11373
+11376
+11377
+11380
+11384
+11390
+11744
+11776
+11800
+11804
+11806
+11825
+12589
+12590
+12752
+12772
+40892
+40900
+42240
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42779
+42784
+42786
+42893
+43003
+43008
+43136
+43205
+43214
+43226
+43264
+43348
+43359
+43360
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+65060
+65063
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+67872
+67898
+67903
+67904
+119081
+119082
+126976
+127020
+127024
+127124
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1317
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V178
+1423
+1424
+1540
+1541
+2208
+2209
+2210
+2221
+2276
+2303
+2800
+2801
+3806
+3808
+4295
+4296
+4301
+4302
+4349
+4352
+7083
+7086
+7098
+7104
+7360
+7368
+7411
+7415
+10187
+10188
+10189
+10190
+11506
+11508
+11559
+11560
+11565
+11566
+11622
+11624
+11826
+11836
+40908
+40909
+42612
+42620
+42655
+42656
+42898
+42900
+42922
+42923
+43000
+43002
+43744
+43767
+64046
+64048
+67968
+68024
+68030
+68032
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+93952
+94021
+94032
+94079
+94095
+94112
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+127338
+127340
+128320
+128324
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V180
+1316
+1318
+2048
+2094
+2096
+2111
+2304
+2305
+2382
+2383
+2389
+2390
+2425
+2427
+2555
+2556
+4053
+4057
+4250
+4254
+4442
+4447
+4515
+4520
+4602
+4608
+5120
+5121
+5751
+5760
+6320
+6390
+6570
+6572
+6618
+6619
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+7376
+7411
+7677
+7678
+8374
+8377
+8528
+8531
+8585
+8586
+9192
+9193
+9886
+9888
+9917
+9920
+9924
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+10071
+10072
+11093
+11098
+11376
+11377
+11390
+11392
+11499
+11506
+11825
+11826
+12868
+12880
+40900
+40908
+42192
+42240
+42656
+42744
+43056
+43066
+43232
+43260
+43360
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43616
+43644
+43648
+43715
+43739
+43744
+43968
+44014
+44016
+44026
+55216
+55239
+55243
+55292
+64107
+64110
+67648
+67670
+67671
+67680
+67866
+67868
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69760
+69826
+77824
+78895
+127232
+127243
+127248
+127279
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127488
+127489
+127504
+127538
+127552
+127561
+173824
+177973
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V80
+2144
+2155
+2556
+2558
+2810
+2816
+3328
+3329
+3387
+3389
+7415
+7416
+7670
+7674
+8383
+8384
+9215
+9216
+11218
+11219
+11845
+11850
+12590
+12591
+40918
+40939
+66349
+66352
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+94177
+94178
+110594
+110879
+110960
+111356
+127584
+127590
+128723
+128725
+128759
+128761
+129280
+129292
+129311
+129312
+129320
+129328
+129329
+129331
+129356
+129357
+129375
+129388
+129426
+129432
+129488
+129511
+183984
+191457
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V72
+1012
+1014
+64976
+65008
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131072
+173783
+194560
+195102
+917505
+917506
+917536
+917632
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V212
+1318
+1320
+1568
+1569
+1631
+1632
+2112
+2140
+2142
+2143
+2362
+2364
+2383
+2384
+2390
+2392
+2419
+2424
+2930
+2936
+3369
+3370
+3386
+3387
+3406
+3407
+3980
+3984
+4057
+4059
+4957
+4959
+7104
+7156
+7164
+7168
+7676
+7677
+8341
+8349
+8377
+8378
+9193
+9204
+9934
+9935
+9954
+9955
+9956
+9960
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10190
+10192
+11632
+11633
+11647
+11648
+12728
+12731
+42592
+42594
+42893
+42895
+42896
+42898
+42912
+42922
+43002
+43003
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+64434
+64450
+69632
+69710
+69714
+69744
+92160
+92729
+110592
+110594
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127280
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127338
+127344
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127387
+127462
+127488
+127489
+127491
+127538
+127547
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128336
+128360
+128507
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+177984
+178206
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1564
+1565
+8206
+8208
+8234
+8239
+8294
+8298
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1184
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+13312
+19894
+19968
+40939
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V66
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3958
+3959
+3960
+3961
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+10972
+10973
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+119134
+119141
+119227
+119233
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1264
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8120
+8124
+8136
+8140
+8152
+8156
+8168
+8173
+8184
+8188
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+125184
+125218
+127280
+127306
+127312
+127338
+127344
+127370
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1392
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4969
+4978
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V780
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+306
+312
+313
+321
+323
+330
+332
+338
+340
+358
+360
+384
+416
+418
+431
+433
+452
+477
+478
+484
+486
+502
+504
+540
+542
+544
+550
+564
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+907
+908
+909
+910
+913
+938
+945
+970
+975
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1415
+1416
+1570
+1575
+1653
+1657
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+4348
+4349
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8748
+8750
+8751
+8753
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12443
+12445
+12446
+12448
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V781
+0
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+306
+312
+313
+321
+323
+330
+332
+338
+340
+358
+360
+384
+416
+418
+431
+433
+452
+477
+478
+484
+486
+502
+504
+540
+542
+544
+550
+564
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+907
+908
+909
+910
+913
+938
+945
+970
+975
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1415
+1416
+1570
+1575
+1653
+1657
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+4348
+4349
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8748
+8750
+8751
+8753
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12443
+12445
+12446
+12448
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1214
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+312
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+397
+402
+403
+405
+406
+409
+411
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+429
+430
+432
+433
+436
+437
+438
+439
+441
+442
+445
+446
+447
+448
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+564
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1020
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7296
+7305
+7545
+7546
+7549
+7550
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7836
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8117
+8118
+8120
+8124
+8125
+8126
+8127
+8130
+8133
+8134
+8136
+8140
+8141
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8188
+8189
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11379
+11380
+11382
+11383
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11492
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42800
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42897
+42898
+42899
+42900
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+66776
+66812
+68800
+68851
+71872
+71904
+125218
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+7424
+7462
+7468
+7517
+7522
+7526
+7531
+7544
+7545
+7615
+7680
+7936
+8305
+8306
+8319
+8320
+8336
+8349
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+11360
+11392
+42786
+42888
+42891
+42927
+42928
+42936
+42999
+43008
+43824
+43867
+43868
+43877
+64256
+64263
+65313
+65339
+65345
+65371
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V72
+880
+884
+885
+888
+890
+894
+895
+896
+900
+901
+902
+903
+904
+907
+908
+909
+910
+930
+931
+994
+1008
+1024
+7462
+7467
+7517
+7522
+7526
+7531
+7615
+7616
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8486
+8487
+43877
+43878
+65856
+65935
+65952
+65953
+119296
+119366
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+11904
+11930
+11931
+12020
+12032
+12246
+12293
+12294
+12295
+12296
+12321
+12330
+12344
+12348
+13312
+19894
+19968
+40939
+63744
+64110
+64112
+64218
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V114
+1536
+1541
+1542
+1548
+1549
+1563
+1564
+1565
+1566
+1567
+1568
+1600
+1601
+1611
+1622
+1648
+1649
+1757
+1758
+1792
+1872
+1920
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2304
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65022
+65136
+65141
+65142
+65277
+69216
+69247
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1329
+1367
+1369
+1376
+1377
+1416
+1418
+1419
+1421
+1424
+64275
+64280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113824
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6480
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+12449
+12539
+12541
+12544
+12784
+12800
+13008
+13055
+13056
+13144
+65382
+65392
+65393
+65438
+110592
+110593
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V328
+0
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+746
+748
+768
+884
+885
+894
+895
+901
+902
+903
+904
+1417
+1418
+1541
+1542
+1548
+1549
+1563
+1564
+1567
+1568
+1600
+1601
+1757
+1758
+2274
+2275
+2404
+2406
+3647
+3648
+4053
+4057
+4347
+4348
+5867
+5870
+5941
+5943
+6146
+6148
+6149
+6150
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+8192
+8204
+8206
+8293
+8294
+8305
+8308
+8319
+8320
+8335
+8352
+8384
+8448
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+8588
+8592
+9255
+9280
+9291
+9312
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11776
+11850
+12272
+12284
+12288
+12293
+12294
+12295
+12296
+12321
+12336
+12344
+12348
+12352
+12443
+12445
+12448
+12449
+12539
+12541
+12688
+12704
+12736
+12772
+12832
+12896
+12927
+13008
+13144
+13312
+19904
+19968
+42752
+42786
+42888
+42891
+43056
+43066
+43310
+43311
+43471
+43472
+43867
+43868
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65279
+65280
+65281
+65313
+65339
+65345
+65371
+65382
+65392
+65393
+65438
+65440
+65504
+65511
+65512
+65519
+65529
+65534
+65792
+65795
+65799
+65844
+65847
+65856
+65936
+65948
+66000
+66045
+66273
+66300
+113824
+113828
+118784
+119030
+119040
+119079
+119081
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119273
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127488
+127489
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+917505
+917506
+917536
+917632
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2432
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1792
+1806
+1807
+1867
+1869
+1872
+2144
+2155
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4352
+11520
+11558
+11559
+11560
+11565
+11566
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+6144
+6146
+6148
+6149
+6150
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+71264
+71277
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2304
+2385
+2387
+2404
+2406
+2432
+43232
+43262
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+12353
+12439
+12445
+12448
+110593
+110879
+127488
+127489
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+70113
+70133
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+4352
+4608
+12334
+12336
+12593
+12687
+12800
+12831
+12896
+12927
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V54
+768
+880
+1157
+1159
+1611
+1622
+1648
+1649
+2385
+2387
+6832
+6847
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8204
+8206
+8400
+8433
+12330
+12334
+12441
+12443
+65024
+65040
+65056
+65070
+66045
+66046
+66272
+66273
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1024
+1157
+1159
+1328
+7296
+7305
+7467
+7468
+7544
+7545
+11744
+11776
+42560
+42656
+65070
+65072
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+11264
+11311
+11312
+11359
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V232
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+312
+313
+397
+398
+411
+412
+426
+428
+442
+444
+446
+447
+448
+452
+545
+546
+564
+570
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+978
+981
+1014
+1015
+1020
+1021
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7296
+7305
+7545
+7546
+7549
+7550
+7680
+7836
+7838
+7839
+7840
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11377
+11378
+11380
+11381
+11383
+11390
+11492
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42800
+42802
+42864
+42873
+42888
+42891
+42894
+42896
+42900
+42902
+42927
+42928
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+66736
+66772
+66776
+66812
+68736
+68787
+68800
+68851
+71840
+71904
+125184
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+44
+45
+59
+60
+894
+895
+1417
+1418
+1548
+1550
+1644
+1645
+2040
+2041
+8260
+8261
+65040
+65041
+65044
+65045
+65104
+65105
+65108
+65109
+65292
+65293
+65307
+65308
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+1488
+1515
+1520
+1523
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64336
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V532
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7418
+7616
+7674
+7675
+7680
+8204
+8205
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65438
+65440
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+72193
+72203
+72243
+72250
+72251
+72255
+72263
+72264
+72273
+72284
+72330
+72346
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+2274
+2275
+6158
+6159
+8206
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+95
+96
+8239
+8240
+8255
+8257
+8276
+8277
+65075
+65077
+65101
+65104
+65343
+65344
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1499
+0
+10
+14
+34
+35
+39
+40
+44
+45
+46
+47
+48
+60
+65
+91
+95
+96
+97
+123
+133
+134
+170
+171
+173
+174
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+728
+734
+741
+748
+885
+886
+888
+890
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1417
+1418
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1525
+1536
+1542
+1548
+1550
+1552
+1563
+1564
+1565
+1568
+1642
+1643
+1645
+1646
+1748
+1749
+1758
+1759
+1769
+1770
+1789
+1791
+1792
+1807
+1867
+1869
+1970
+1984
+2038
+2040
+2041
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3664
+3674
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3792
+3802
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4160
+4170
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6068
+6100
+6109
+6110
+6112
+6122
+6155
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6480
+6608
+6618
+6656
+6684
+6741
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6832
+6847
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8204
+8208
+8216
+8218
+8228
+8229
+8231
+8240
+8255
+8257
+8260
+8261
+8276
+8277
+8288
+8293
+8294
+8304
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+9757
+9758
+9792
+9793
+9794
+9795
+9877
+9879
+9977
+9978
+9992
+9993
+9994
+9998
+10084
+10085
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12294
+12330
+12336
+12337
+12342
+12347
+12349
+12441
+12445
+12448
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13008
+13055
+13056
+13144
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42775
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43493
+43494
+43504
+43514
+43520
+43575
+43584
+43598
+43600
+43610
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65041
+65043
+65045
+65056
+65072
+65075
+65077
+65101
+65105
+65106
+65107
+65108
+65110
+65136
+65141
+65142
+65277
+65279
+65280
+65287
+65288
+65292
+65293
+65294
+65295
+65306
+65308
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65529
+65532
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69821
+69822
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+110592
+110593
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+127462
+127488
+127752
+127753
+127806
+127807
+127859
+127860
+127877
+127878
+127891
+127892
+127908
+127909
+127912
+127913
+127938
+127941
+127943
+127944
+127946
+127949
+127979
+127980
+127981
+127982
+127995
+128000
+128066
+128068
+128070
+128081
+128102
+128106
+128110
+128111
+128112
+128121
+128124
+128125
+128129
+128132
+128133
+128136
+128139
+128140
+128170
+128171
+128187
+128189
+128295
+128296
+128300
+128301
+128372
+128374
+128378
+128379
+128400
+128401
+128405
+128407
+128488
+128489
+128581
+128584
+128587
+128592
+128640
+128641
+128658
+128659
+128675
+128676
+128692
+128695
+128704
+128705
+128716
+128717
+129304
+129309
+129310
+129312
+129318
+129319
+129328
+129338
+129341
+129343
+129489
+129502
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1014
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+728
+734
+741
+748
+768
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1523
+1524
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6656
+6679
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12294
+12347
+12349
+12549
+12591
+12593
+12687
+12704
+12731
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43520
+43561
+43584
+43587
+43588
+43596
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+64256
+64263
+64275
+64280
+64336
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+12337
+12342
+12443
+12445
+12448
+12539
+12540
+12544
+12784
+12800
+13008
+13055
+13056
+13144
+65382
+65438
+110592
+110593
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+58
+59
+183
+184
+903
+904
+1524
+1525
+8231
+8232
+65043
+65044
+65109
+65110
+65306
+65307
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V110
+48
+58
+1632
+1642
+1643
+1644
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+72784
+72794
+73040
+73050
+92768
+92778
+93008
+93018
+120782
+120832
+125264
+125274
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+46
+47
+8216
+8218
+8228
+8229
+65106
+65107
+65287
+65288
+65294
+65295
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+8532
+8533
+65911
+65912
+68093
+68094
+69246
+69247
+74843
+74844
+74846
+74847
+74854
+74855
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V222
+52
+53
+1636
+1637
+1780
+1781
+1988
+1989
+2410
+2411
+2538
+2539
+2666
+2667
+2794
+2795
+2922
+2923
+3050
+3051
+3178
+3179
+3306
+3307
+3434
+3435
+3562
+3563
+3668
+3669
+3796
+3797
+3876
+3877
+4164
+4165
+4244
+4245
+4972
+4973
+6116
+6117
+6132
+6133
+6164
+6165
+6474
+6475
+6612
+6613
+6788
+6789
+6804
+6805
+6996
+6997
+7092
+7093
+7236
+7237
+7252
+7253
+8308
+8309
+8324
+8325
+8547
+8548
+8563
+8564
+9315
+9316
+9335
+9336
+9355
+9356
+9464
+9465
+10105
+10106
+10115
+10116
+10125
+10126
+12324
+12325
+12693
+12694
+12835
+12836
+12931
+12932
+20118
+20119
+22235
+22236
+32902
+32903
+42532
+42533
+42729
+42730
+43220
+43221
+43268
+43269
+43476
+43477
+43508
+43509
+43604
+43605
+44020
+44021
+65300
+65301
+65802
+65803
+66276
+66277
+66724
+66725
+67708
+67709
+67754
+67756
+68035
+68036
+68163
+68164
+68443
+68444
+68475
+68476
+68524
+68525
+69219
+69220
+69717
+69718
+69738
+69739
+69876
+69877
+69946
+69947
+70100
+70101
+70116
+70117
+70388
+70389
+70740
+70741
+70868
+70869
+71252
+71253
+71364
+71365
+71476
+71477
+71908
+71909
+72788
+72789
+72797
+72798
+73044
+73045
+74754
+74755
+74761
+74762
+74767
+74768
+74776
+74777
+74785
+74786
+74790
+74791
+74800
+74801
+74808
+74809
+74812
+74816
+74828
+74829
+74834
+74836
+74857
+74858
+92772
+92773
+93012
+93013
+119651
+119652
+120786
+120787
+120796
+120797
+120806
+120807
+120816
+120817
+120826
+120827
+125130
+125131
+125268
+125269
+127237
+127238
+131172
+131173
+131298
+131299
+156269
+156270
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V238
+50
+51
+178
+179
+1634
+1635
+1778
+1779
+1986
+1987
+2408
+2409
+2536
+2537
+2664
+2665
+2792
+2793
+2920
+2921
+3048
+3049
+3176
+3177
+3194
+3195
+3197
+3198
+3304
+3305
+3432
+3433
+3560
+3561
+3666
+3667
+3794
+3795
+3874
+3875
+4162
+4163
+4242
+4243
+4970
+4971
+6114
+6115
+6130
+6131
+6162
+6163
+6472
+6473
+6610
+6611
+6786
+6787
+6802
+6803
+6994
+6995
+7090
+7091
+7234
+7235
+7250
+7251
+8322
+8323
+8545
+8546
+8561
+8562
+9313
+9314
+9333
+9334
+9353
+9354
+9462
+9463
+10103
+10104
+10113
+10114
+10123
+10124
+12322
+12323
+12691
+12692
+12833
+12834
+12929
+12930
+13443
+13444
+20108
+20109
+20841
+20842
+24333
+24334
+24336
+24337
+36014
+36015
+36019
+36020
+36144
+36145
+42530
+42531
+42727
+42728
+43218
+43219
+43266
+43267
+43474
+43475
+43506
+43507
+43602
+43603
+44018
+44019
+63864
+63865
+65298
+65299
+65800
+65801
+65883
+65887
+66274
+66275
+66514
+66515
+66722
+66723
+67673
+67674
+67706
+67707
+67752
+67753
+67866
+67867
+68033
+68034
+68161
+68162
+68441
+68442
+68473
+68474
+68522
+68523
+69217
+69218
+69715
+69716
+69736
+69737
+69874
+69875
+69944
+69945
+70098
+70099
+70114
+70115
+70386
+70387
+70738
+70739
+70866
+70867
+71250
+71251
+71362
+71363
+71474
+71475
+71906
+71907
+72786
+72787
+72795
+72796
+73042
+73043
+74752
+74753
+74774
+74775
+74783
+74784
+74787
+74788
+74797
+74798
+74805
+74806
+74826
+74827
+74832
+74833
+74838
+74839
+74841
+74842
+92770
+92771
+93010
+93011
+119649
+119650
+120784
+120785
+120794
+120795
+120804
+120805
+120814
+120815
+120824
+120825
+125128
+125129
+125266
+125267
+127235
+127236
+140176
+140177
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V190
+56
+57
+1640
+1641
+1784
+1785
+1992
+1993
+2414
+2415
+2542
+2543
+2670
+2671
+2798
+2799
+2926
+2927
+3054
+3055
+3182
+3183
+3310
+3311
+3438
+3439
+3566
+3567
+3672
+3673
+3800
+3801
+3880
+3881
+4168
+4169
+4248
+4249
+4976
+4977
+6120
+6121
+6136
+6137
+6168
+6169
+6478
+6479
+6616
+6617
+6792
+6793
+6808
+6809
+7000
+7001
+7096
+7097
+7240
+7241
+7256
+7257
+8312
+8313
+8328
+8329
+8551
+8552
+8567
+8568
+9319
+9320
+9339
+9340
+9359
+9360
+9468
+9469
+10109
+10110
+10119
+10120
+10129
+10130
+12328
+12329
+12839
+12840
+12935
+12936
+20843
+20844
+25420
+25421
+42536
+42537
+42733
+42734
+43224
+43225
+43272
+43273
+43480
+43481
+43512
+43513
+43608
+43609
+44024
+44025
+65304
+65305
+65806
+65807
+66280
+66281
+66728
+66729
+68039
+68040
+69223
+69224
+69721
+69722
+69742
+69743
+69880
+69881
+69950
+69951
+70104
+70105
+70120
+70121
+70392
+70393
+70744
+70745
+70872
+70873
+71256
+71257
+71368
+71369
+71480
+71481
+71912
+71913
+72792
+72793
+72801
+72802
+73048
+73049
+74758
+74759
+74765
+74766
+74771
+74772
+74780
+74781
+74794
+74795
+74820
+74822
+74861
+74862
+92776
+92777
+93016
+93017
+119655
+119656
+120790
+120791
+120800
+120801
+120810
+120811
+120820
+120821
+120830
+120831
+125134
+125135
+125272
+125273
+127241
+127242
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+4986
+4987
+65816
+65817
+66290
+66291
+66369
+66370
+69233
+69234
+69731
+69732
+70130
+70131
+71922
+71923
+72811
+72812
+119665
+119666
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+4983
+4984
+12877
+12878
+65813
+65814
+66287
+66288
+68046
+68047
+69230
+69231
+69728
+69729
+70127
+70128
+71919
+71920
+72808
+72809
+119662
+119663
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+4979
+4980
+9331
+9332
+9351
+9352
+9371
+9372
+9460
+9461
+12345
+12346
+12873
+12874
+21316
+21317
+24319
+24320
+65809
+65810
+66283
+66284
+66516
+66517
+67676
+67677
+67711
+67712
+67758
+67759
+67838
+67839
+67864
+67865
+68042
+68043
+68165
+68166
+68255
+68256
+68334
+68335
+68445
+68446
+68477
+68478
+68526
+68527
+69226
+69227
+69724
+69725
+70123
+70124
+71483
+71484
+71915
+71916
+72804
+72805
+119658
+119659
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+4984
+4985
+12878
+12879
+65814
+65815
+66288
+66289
+68047
+68048
+69231
+69232
+69729
+69730
+70128
+70129
+71920
+71921
+72809
+72810
+119663
+119664
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+188
+189
+2551
+2552
+2930
+2931
+3443
+3444
+43056
+43057
+65856
+65857
+65931
+65932
+68088
+68089
+69244
+69245
+74848
+74849
+74850
+74852
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+4988
+4989
+8578
+8579
+19975
+19976
+33836
+33837
+65835
+65836
+65877
+65878
+67679
+67680
+68068
+68069
+93021
+93022
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5872
+5873
+9330
+9331
+9350
+9351
+9370
+9371
+9459
+9460
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+4985
+4986
+12879
+12880
+65815
+65816
+66289
+66290
+69232
+69233
+69730
+69731
+70129
+70130
+71921
+71922
+72810
+72811
+119664
+119665
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8554
+8555
+8570
+8571
+9322
+9323
+9342
+9343
+9362
+9363
+9451
+9452
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+4981
+4982
+12875
+12876
+12981
+12982
+21324
+21325
+65811
+65812
+66285
+66286
+68044
+68045
+69228
+69229
+69726
+69727
+70125
+70126
+71917
+71918
+72806
+72807
+74855
+74856
+119660
+119661
+133516
+133517
+133532
+133533
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+189
+190
+2931
+2932
+3444
+3445
+3882
+3883
+11517
+11518
+43057
+43058
+65857
+65858
+65909
+65911
+68029
+68030
+68091
+68092
+69243
+69244
+74852
+74853
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65823
+65824
+66297
+66298
+68056
+68057
+69240
+69241
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V238
+49
+50
+185
+186
+1633
+1634
+1777
+1778
+1985
+1986
+2407
+2408
+2535
+2536
+2663
+2664
+2791
+2792
+2919
+2920
+3047
+3048
+3175
+3176
+3193
+3194
+3196
+3197
+3303
+3304
+3431
+3432
+3559
+3560
+3665
+3666
+3793
+3794
+3873
+3874
+4161
+4162
+4241
+4242
+4969
+4970
+6113
+6114
+6129
+6130
+6161
+6162
+6471
+6472
+6609
+6610
+6618
+6619
+6785
+6786
+6801
+6802
+6993
+6994
+7089
+7090
+7233
+7234
+7249
+7250
+8321
+8322
+8543
+8545
+8560
+8561
+9312
+9313
+9332
+9333
+9352
+9353
+9461
+9462
+10102
+10103
+10112
+10113
+10122
+10123
+12321
+12322
+12690
+12691
+12832
+12833
+12928
+12929
+19968
+19969
+22769
+22770
+22777
+22778
+24186
+24187
+24332
+24333
+42529
+42530
+42726
+42727
+43217
+43218
+43265
+43266
+43473
+43474
+43505
+43506
+43601
+43602
+44017
+44018
+65297
+65298
+65799
+65800
+65858
+65859
+65880
+65883
+66273
+66274
+66336
+66337
+66513
+66514
+66721
+66722
+67672
+67673
+67705
+67706
+67751
+67752
+67835
+67836
+67862
+67863
+68032
+68033
+68160
+68161
+68221
+68222
+68253
+68254
+68331
+68332
+68440
+68441
+68472
+68473
+68521
+68522
+68858
+68859
+69216
+69217
+69714
+69715
+69735
+69736
+69873
+69874
+69943
+69944
+70097
+70098
+70113
+70114
+70385
+70386
+70737
+70738
+70865
+70866
+71249
+71250
+71361
+71362
+71473
+71474
+71905
+71906
+72785
+72786
+72794
+72795
+73041
+73042
+74773
+74774
+74782
+74783
+74796
+74797
+74804
+74805
+74831
+74832
+74840
+74841
+92769
+92770
+93009
+93010
+119648
+119649
+120783
+120784
+120793
+120794
+120803
+120804
+120813
+120814
+120823
+120824
+125127
+125128
+125265
+125266
+127234
+127235
+133418
+133419
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65818
+65819
+66292
+66293
+68051
+68052
+69235
+69236
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8531
+8532
+68089
+68090
+69245
+69246
+74842
+74843
+74845
+74846
+74853
+74854
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+2553
+2554
+9327
+9328
+9347
+9348
+9367
+9368
+9456
+9457
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9325
+9326
+9345
+9346
+9365
+9366
+9454
+9455
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65824
+65825
+66298
+66299
+68057
+68058
+69241
+69242
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V196
+55
+56
+1639
+1640
+1783
+1784
+1991
+1992
+2413
+2414
+2541
+2542
+2669
+2670
+2797
+2798
+2925
+2926
+3053
+3054
+3181
+3182
+3309
+3310
+3437
+3438
+3565
+3566
+3671
+3672
+3799
+3800
+3879
+3880
+4167
+4168
+4247
+4248
+4975
+4976
+6119
+6120
+6135
+6136
+6167
+6168
+6477
+6478
+6615
+6616
+6791
+6792
+6807
+6808
+6999
+7000
+7095
+7096
+7239
+7240
+7255
+7256
+8311
+8312
+8327
+8328
+8550
+8551
+8566
+8567
+9318
+9319
+9338
+9339
+9358
+9359
+9467
+9468
+10108
+10109
+10118
+10119
+10128
+10129
+12327
+12328
+12838
+12839
+12934
+12935
+15181
+15182
+19971
+19972
+26578
+26579
+28422
+28423
+42535
+42536
+42732
+42733
+43223
+43224
+43271
+43272
+43479
+43480
+43511
+43512
+43607
+43608
+44023
+44024
+65303
+65304
+65805
+65806
+66279
+66280
+66727
+66728
+68038
+68039
+69222
+69223
+69720
+69721
+69741
+69742
+69879
+69880
+69949
+69950
+70103
+70104
+70119
+70120
+70391
+70392
+70743
+70744
+70871
+70872
+71255
+71256
+71367
+71368
+71479
+71480
+71911
+71912
+72791
+72792
+72800
+72801
+73047
+73048
+74757
+74758
+74764
+74765
+74770
+74771
+74779
+74780
+74793
+74794
+74817
+74820
+74860
+74861
+92775
+92776
+93015
+93016
+119654
+119655
+120789
+120790
+120799
+120800
+120809
+120810
+120819
+120820
+120829
+120830
+125133
+125134
+125271
+125272
+127240
+127241
+131073
+131074
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9324
+9325
+9344
+9345
+9364
+9365
+9453
+9454
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V202
+54
+55
+1638
+1639
+1782
+1783
+1990
+1991
+2412
+2413
+2540
+2541
+2668
+2669
+2796
+2797
+2924
+2925
+3052
+3053
+3180
+3181
+3308
+3309
+3436
+3437
+3564
+3565
+3670
+3671
+3798
+3799
+3878
+3879
+4166
+4167
+4246
+4247
+4974
+4975
+6118
+6119
+6134
+6135
+6166
+6167
+6476
+6477
+6614
+6615
+6790
+6791
+6806
+6807
+6998
+6999
+7094
+7095
+7238
+7239
+7254
+7255
+8310
+8311
+8326
+8327
+8549
+8550
+8565
+8566
+8581
+8582
+9317
+9318
+9337
+9338
+9357
+9358
+9466
+9467
+10107
+10108
+10117
+10118
+10127
+10128
+12326
+12327
+12837
+12838
+12933
+12934
+20845
+20846
+38470
+38471
+38520
+38521
+42534
+42535
+42731
+42732
+43222
+43223
+43270
+43271
+43478
+43479
+43510
+43511
+43606
+43607
+44022
+44023
+63953
+63954
+63955
+63956
+65302
+65303
+65804
+65805
+66278
+66279
+66726
+66727
+68037
+68038
+69221
+69222
+69719
+69720
+69740
+69741
+69878
+69879
+69948
+69949
+70102
+70103
+70118
+70119
+70390
+70391
+70742
+70743
+70870
+70871
+71254
+71255
+71366
+71367
+71478
+71479
+71910
+71911
+72790
+72791
+72799
+72800
+73046
+73047
+74756
+74757
+74763
+74764
+74769
+74770
+74778
+74779
+74792
+74793
+74816
+74817
+74830
+74831
+74859
+74860
+92774
+92775
+93014
+93015
+119653
+119654
+120788
+120789
+120798
+120799
+120808
+120809
+120818
+120819
+120828
+120829
+125132
+125133
+125270
+125271
+127239
+127240
+133866
+133867
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V194
+57
+58
+1641
+1642
+1785
+1786
+1993
+1994
+2415
+2416
+2543
+2544
+2671
+2672
+2799
+2800
+2927
+2928
+3055
+3056
+3183
+3184
+3311
+3312
+3439
+3440
+3567
+3568
+3673
+3674
+3801
+3802
+3881
+3882
+4169
+4170
+4249
+4250
+4977
+4978
+6121
+6122
+6137
+6138
+6169
+6170
+6479
+6480
+6617
+6618
+6793
+6794
+6809
+6810
+7001
+7002
+7097
+7098
+7241
+7242
+7257
+7258
+8313
+8314
+8329
+8330
+8552
+8553
+8568
+8569
+9320
+9321
+9340
+9341
+9360
+9361
+9469
+9470
+10110
+10111
+10120
+10121
+10130
+10131
+12329
+12330
+12840
+12841
+12936
+12937
+20061
+20062
+24318
+24319
+29590
+29591
+42537
+42538
+42734
+42735
+43225
+43226
+43273
+43274
+43481
+43482
+43513
+43514
+43609
+43610
+44025
+44026
+65305
+65306
+65807
+65808
+66281
+66282
+66729
+66730
+68040
+68041
+69224
+69225
+69722
+69723
+69743
+69744
+69881
+69882
+69951
+69952
+70105
+70106
+70121
+70122
+70393
+70394
+70745
+70746
+70873
+70874
+71257
+71258
+71369
+71370
+71481
+71482
+71913
+71914
+72793
+72794
+72802
+72803
+73049
+73050
+74759
+74760
+74766
+74767
+74772
+74773
+74781
+74782
+74795
+74796
+74822
+74826
+74862
+74863
+92777
+92778
+93017
+93018
+119656
+119657
+120791
+120792
+120801
+120802
+120811
+120812
+120821
+120822
+120831
+120832
+125135
+125136
+125273
+125274
+127242
+127243
+194704
+194705
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+4982
+4983
+8556
+8557
+8572
+8573
+8582
+8583
+12876
+12877
+12991
+12992
+65812
+65813
+65860
+65861
+65866
+65867
+65873
+65874
+65894
+65898
+65908
+65909
+66286
+66287
+66339
+66340
+68045
+68046
+68222
+68223
+68861
+68862
+69229
+69230
+69727
+69728
+70126
+70127
+71918
+71919
+72807
+72808
+74856
+74857
+119661
+119662
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2549
+2550
+2934
+2935
+3447
+3448
+8539
+8540
+43060
+43061
+74847
+74848
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65822
+65823
+66296
+66297
+68055
+68056
+69239
+69240
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+65825
+65826
+66299
+66300
+66378
+66379
+68058
+68059
+69242
+69243
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9326
+9327
+9346
+9347
+9366
+9367
+9455
+9456
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+190
+191
+2552
+2553
+2932
+2933
+3445
+3446
+43058
+43059
+65912
+65913
+68094
+68095
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5870
+5871
+9328
+9329
+9348
+9349
+9368
+9369
+9457
+9458
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+65819
+65820
+65899
+65900
+66293
+66294
+68052
+68053
+69236
+69237
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+4980
+4981
+12346
+12347
+12874
+12875
+12890
+12891
+21317
+21318
+65810
+65811
+65893
+65894
+66284
+66285
+68043
+68044
+69227
+69228
+69725
+69726
+70124
+70125
+71916
+71917
+72805
+72806
+119659
+119660
+133507
+133508
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8577
+8578
+65830
+65831
+65862
+65863
+65870
+65871
+65906
+65907
+68063
+68064
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V234
+51
+52
+179
+180
+1635
+1636
+1779
+1780
+1987
+1988
+2409
+2410
+2537
+2538
+2665
+2666
+2793
+2794
+2921
+2922
+3049
+3050
+3177
+3178
+3195
+3196
+3198
+3199
+3305
+3306
+3433
+3434
+3561
+3562
+3667
+3668
+3795
+3796
+3875
+3876
+4163
+4164
+4243
+4244
+4971
+4972
+6115
+6116
+6131
+6132
+6163
+6164
+6473
+6474
+6611
+6612
+6787
+6788
+6803
+6804
+6995
+6996
+7091
+7092
+7235
+7236
+7251
+7252
+8323
+8324
+8546
+8547
+8562
+8563
+9314
+9315
+9334
+9335
+9354
+9355
+9463
+9464
+10104
+10105
+10114
+10115
+10124
+10125
+12323
+12324
+12692
+12693
+12834
+12835
+12930
+12931
+19977
+19978
+20200
+20201
+21441
+21445
+24334
+24335
+42531
+42532
+42728
+42729
+43219
+43220
+43267
+43268
+43475
+43476
+43507
+43508
+43603
+43604
+44019
+44020
+63851
+63852
+65299
+65300
+65801
+65802
+66275
+66276
+66723
+66724
+67674
+67675
+67707
+67708
+67753
+67754
+67867
+67868
+68034
+68035
+68162
+68163
+68442
+68443
+68474
+68475
+68523
+68524
+69218
+69219
+69716
+69717
+69737
+69738
+69875
+69876
+69945
+69946
+70099
+70100
+70115
+70116
+70387
+70388
+70739
+70740
+70867
+70868
+71251
+71252
+71363
+71364
+71475
+71476
+71907
+71908
+72787
+72788
+72796
+72797
+73043
+73044
+74753
+74754
+74760
+74761
+74775
+74776
+74784
+74785
+74788
+74790
+74798
+74800
+74806
+74808
+74810
+74812
+74827
+74828
+74833
+74834
+74839
+74840
+92771
+92772
+93011
+93012
+119650
+119651
+120785
+120786
+120795
+120796
+120805
+120806
+120815
+120816
+120825
+120826
+125129
+125130
+125267
+125268
+127236
+127237
+133885
+133886
+133913
+133914
+141720
+141721
+146203
+146204
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+3058
+3059
+3442
+3443
+8559
+8560
+8575
+8577
+20191
+20192
+21315
+21316
+38433
+38434
+65826
+65827
+65869
+65870
+65876
+65877
+65905
+65906
+67678
+67679
+68059
+68060
+68167
+68168
+68447
+68448
+68479
+68480
+68863
+68864
+69733
+69734
+70132
+70133
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65820
+65821
+66294
+66295
+68053
+68054
+69237
+69238
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5871
+5872
+9329
+9330
+9349
+9350
+9369
+9370
+9458
+9459
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V100
+3056
+3057
+3440
+3441
+4978
+4979
+8553
+8554
+8569
+8570
+9321
+9322
+9341
+9342
+9361
+9362
+9470
+9471
+10111
+10112
+10121
+10122
+10131
+10132
+12344
+12345
+12841
+12842
+12872
+12873
+12937
+12938
+20160
+20161
+21313
+21314
+25342
+25343
+63859
+63860
+63997
+63998
+65808
+65809
+65865
+65866
+65872
+65873
+65879
+65880
+65888
+65893
+66282
+66283
+66338
+66339
+66515
+66516
+67675
+67676
+67710
+67711
+67757
+67758
+67837
+67838
+67863
+67864
+68041
+68042
+68164
+68165
+68254
+68255
+68333
+68334
+68444
+68445
+68476
+68477
+68525
+68526
+68860
+68861
+69225
+69226
+69723
+69724
+70122
+70123
+71482
+71483
+71914
+71915
+72803
+72804
+93019
+93020
+119657
+119658
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+8558
+8559
+8574
+8575
+65821
+65822
+65861
+65862
+65868
+65869
+65875
+65876
+65900
+65905
+66295
+66296
+68054
+68055
+69238
+69239
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+8583
+8584
+65839
+65840
+65863
+65864
+65878
+65879
+68072
+68073
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V146
+48
+49
+1632
+1633
+1776
+1777
+1984
+1985
+2406
+2407
+2534
+2535
+2662
+2663
+2790
+2791
+2918
+2919
+3046
+3047
+3174
+3175
+3192
+3193
+3302
+3303
+3430
+3431
+3558
+3559
+3664
+3665
+3792
+3793
+3872
+3873
+4160
+4161
+4240
+4241
+6112
+6113
+6128
+6129
+6160
+6161
+6470
+6471
+6608
+6609
+6784
+6785
+6800
+6801
+6992
+6993
+7088
+7089
+7232
+7233
+7248
+7249
+8304
+8305
+8320
+8321
+8585
+8586
+9450
+9451
+9471
+9472
+12295
+12296
+38646
+38647
+42528
+42529
+42735
+42736
+43216
+43217
+43264
+43265
+43472
+43473
+43504
+43505
+43600
+43601
+44016
+44017
+63922
+63923
+65296
+65297
+65930
+65931
+66720
+66721
+69734
+69735
+69872
+69873
+69942
+69943
+70096
+70097
+70384
+70385
+70736
+70737
+70864
+70865
+71248
+71249
+71360
+71361
+71472
+71473
+71904
+71905
+72784
+72785
+73040
+73041
+92768
+92769
+93008
+93009
+120782
+120783
+120792
+120793
+120802
+120803
+120812
+120813
+120822
+120823
+125264
+125265
+127232
+127234
+127243
+127245
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2548
+2549
+2933
+2934
+3446
+3447
+43059
+43060
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2550
+2551
+2935
+2936
+3448
+3449
+43061
+43062
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V226
+53
+54
+1637
+1638
+1781
+1782
+1989
+1990
+2411
+2412
+2539
+2540
+2667
+2668
+2795
+2796
+2923
+2924
+3051
+3052
+3179
+3180
+3307
+3308
+3435
+3436
+3563
+3564
+3669
+3670
+3797
+3798
+3877
+3878
+4165
+4166
+4245
+4246
+4973
+4974
+6117
+6118
+6133
+6134
+6165
+6166
+6475
+6476
+6613
+6614
+6789
+6790
+6805
+6806
+6997
+6998
+7093
+7094
+7237
+7238
+7253
+7254
+8309
+8310
+8325
+8326
+8548
+8549
+8564
+8565
+9316
+9317
+9336
+9337
+9356
+9357
+9465
+9466
+10106
+10107
+10116
+10117
+10126
+10127
+12325
+12326
+12836
+12837
+12932
+12933
+13317
+13318
+14378
+14379
+20116
+20117
+20237
+20238
+42533
+42534
+42730
+42731
+43221
+43222
+43269
+43270
+43477
+43478
+43509
+43510
+43605
+43606
+44021
+44022
+65301
+65302
+65803
+65804
+65859
+65860
+65864
+65865
+65871
+65872
+65887
+65888
+65907
+65908
+66277
+66278
+66337
+66338
+66725
+66726
+67709
+67710
+67756
+67757
+67836
+67837
+68036
+68037
+68332
+68333
+68859
+68860
+69220
+69221
+69718
+69719
+69739
+69740
+69877
+69878
+69947
+69948
+70101
+70102
+70117
+70118
+70389
+70390
+70741
+70742
+70869
+70870
+71253
+71254
+71365
+71366
+71477
+71478
+71909
+71910
+72789
+72790
+72798
+72799
+73045
+73046
+74755
+74756
+74762
+74763
+74768
+74769
+74777
+74778
+74786
+74787
+74791
+74792
+74801
+74802
+74809
+74810
+74829
+74830
+74836
+74838
+74858
+74859
+92773
+92774
+93013
+93014
+119652
+119653
+120787
+120788
+120797
+120798
+120807
+120808
+120817
+120818
+120827
+120828
+125131
+125132
+125269
+125270
+127238
+127239
+131361
+131362
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V60
+3057
+3058
+3441
+3442
+4987
+4988
+8557
+8558
+8573
+8574
+20336
+20337
+30334
+30335
+38476
+38477
+65817
+65818
+65867
+65868
+65874
+65875
+65898
+65899
+66291
+66292
+66517
+66518
+67677
+67678
+67759
+67760
+67839
+67840
+67865
+67866
+68050
+68051
+68166
+68167
+68335
+68336
+68446
+68447
+68478
+68479
+68527
+68528
+68862
+68863
+69234
+69235
+69732
+69733
+70131
+70132
+72812
+72813
+93020
+93021
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8555
+8556
+8571
+8572
+9323
+9324
+9343
+9344
+9363
+9364
+9452
+9453
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1206
+65
+91
+181
+182
+192
+215
+216
+224
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+329
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+383
+384
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+837
+838
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+962
+963
+975
+978
+981
+983
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1008
+1010
+1012
+1014
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+1415
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5112
+5118
+7296
+7305
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7834
+7836
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8064
+8112
+8114
+8117
+8119
+8125
+8130
+8133
+8135
+8141
+8152
+8156
+8168
+8173
+8178
+8181
+8183
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+125184
+125218
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+2274
+2275
+6158
+6159
+8203
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+917536
+917632
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+94
+95
+96
+97
+168
+169
+175
+176
+180
+181
+184
+185
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+900
+902
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+12443
+12445
+42752
+42775
+42784
+42786
+42889
+42891
+43867
+43868
+64434
+64450
+65342
+65343
+65344
+65345
+65507
+65508
+127995
+128000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1297
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+5870
+5873
+8544
+8579
+8581
+8585
+12295
+12296
+12321
+12330
+12344
+12347
+42726
+42736
+65856
+65909
+66369
+66370
+66378
+66379
+66513
+66518
+74752
+74863
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1254
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8120
+8124
+8136
+8140
+8152
+8156
+8168
+8173
+8184
+8188
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8579
+8580
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+125184
+125218
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V434
+36
+37
+43
+44
+60
+63
+94
+95
+96
+97
+124
+125
+126
+127
+162
+167
+168
+170
+172
+173
+174
+178
+180
+181
+184
+185
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+900
+902
+1014
+1015
+1154
+1155
+1421
+1424
+1542
+1545
+1547
+1548
+1550
+1552
+1758
+1759
+1769
+1770
+1789
+1791
+2038
+2039
+2546
+2548
+2554
+2556
+2801
+2802
+2928
+2929
+3059
+3067
+3199
+3200
+3407
+3408
+3449
+3450
+3647
+3648
+3841
+3844
+3859
+3860
+3861
+3864
+3866
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+4030
+4038
+4039
+4045
+4046
+4048
+4053
+4057
+4254
+4256
+5008
+5018
+6107
+6108
+6464
+6465
+6622
+6656
+7009
+7019
+7028
+7037
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8260
+8261
+8274
+8275
+8314
+8317
+8330
+8333
+8352
+8384
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8528
+8586
+8588
+8592
+8968
+8972
+9001
+9003
+9255
+9280
+9291
+9372
+9450
+9472
+10088
+10132
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11493
+11499
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12292
+12293
+12306
+12308
+12320
+12321
+12342
+12344
+12350
+12352
+12443
+12445
+12688
+12690
+12694
+12704
+12736
+12772
+12800
+12831
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13055
+13056
+13312
+19904
+19968
+42128
+42183
+42752
+42775
+42784
+42786
+42889
+42891
+43048
+43052
+43062
+43066
+43639
+43642
+43867
+43868
+64297
+64298
+64434
+64450
+65020
+65022
+65122
+65123
+65124
+65127
+65129
+65130
+65284
+65285
+65291
+65292
+65308
+65311
+65342
+65343
+65344
+65345
+65372
+65373
+65374
+65375
+65504
+65511
+65512
+65519
+65532
+65534
+65847
+65856
+65913
+65930
+65932
+65935
+65936
+65948
+65952
+65953
+66000
+66045
+67703
+67705
+68296
+68297
+71487
+71488
+92988
+92992
+92997
+92998
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V150
+40
+41
+91
+92
+123
+124
+3898
+3899
+3900
+3901
+5787
+5788
+8218
+8219
+8222
+8223
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11842
+11843
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12317
+12318
+64831
+64832
+65047
+65048
+65077
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65095
+65096
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V526
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7418
+7616
+7674
+7675
+7680
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+72193
+72203
+72243
+72250
+72251
+72255
+72263
+72264
+72273
+72284
+72330
+72346
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V128
+43
+44
+60
+63
+124
+125
+126
+127
+172
+173
+177
+178
+215
+216
+247
+248
+1014
+1015
+1542
+1545
+8260
+8261
+8274
+8275
+8314
+8317
+8330
+8333
+8472
+8473
+8512
+8517
+8523
+8524
+8592
+8597
+8602
+8604
+8608
+8609
+8611
+8612
+8614
+8615
+8622
+8623
+8654
+8656
+8658
+8659
+8660
+8661
+8692
+8960
+8992
+8994
+9084
+9085
+9115
+9140
+9180
+9186
+9655
+9656
+9665
+9666
+9720
+9728
+9839
+9840
+10176
+10181
+10183
+10214
+10224
+10240
+10496
+10627
+10649
+10712
+10716
+10748
+10750
+11008
+11056
+11077
+11079
+11085
+64297
+64298
+65122
+65123
+65124
+65127
+65291
+65292
+65308
+65311
+65372
+65373
+65374
+65375
+65506
+65507
+65513
+65517
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+126704
+126706
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V338
+33
+36
+37
+40
+42
+43
+44
+45
+46
+48
+58
+60
+63
+65
+92
+93
+161
+162
+167
+168
+182
+184
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1418
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2557
+2558
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5741
+5743
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6150
+6151
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8214
+8216
+8224
+8232
+8240
+8249
+8251
+8255
+8257
+8260
+8263
+8274
+8275
+8276
+8277
+8287
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11778
+11782
+11785
+11787
+11788
+11790
+11799
+11800
+11802
+11803
+11804
+11806
+11808
+11818
+11823
+11824
+11834
+11836
+11840
+11841
+11842
+11843
+11850
+12289
+12292
+12349
+12350
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+65040
+65047
+65049
+65050
+65072
+65073
+65093
+65095
+65097
+65101
+65104
+65107
+65108
+65112
+65119
+65122
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65288
+65290
+65291
+65292
+65293
+65294
+65296
+65306
+65308
+65311
+65313
+65340
+65341
+65377
+65378
+65380
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70731
+70736
+70747
+70748
+70749
+70750
+70854
+70855
+71105
+71128
+71233
+71236
+71264
+71277
+71484
+71487
+72255
+72263
+72346
+72349
+72350
+72355
+72769
+72774
+72816
+72818
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+125278
+125280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V232
+48
+58
+178
+180
+185
+186
+188
+191
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2548
+2554
+2662
+2672
+2790
+2800
+2918
+2928
+2930
+2936
+3046
+3059
+3174
+3184
+3192
+3199
+3302
+3312
+3416
+3423
+3430
+3449
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+4969
+4989
+5870
+5873
+6112
+6122
+6128
+6138
+6160
+6170
+6470
+6480
+6608
+6619
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8579
+8581
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+42528
+42538
+42726
+42736
+43056
+43062
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+65296
+65306
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+66720
+66730
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+71904
+71923
+72784
+72813
+73040
+73050
+74752
+74863
+92768
+92778
+93008
+93018
+93019
+93026
+119648
+119666
+120782
+120832
+125127
+125136
+125264
+125274
+127232
+127245
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V114
+688
+706
+710
+722
+736
+741
+748
+749
+750
+751
+884
+885
+890
+891
+1369
+1370
+1600
+1601
+1765
+1767
+2036
+2038
+2042
+2043
+2074
+2075
+2084
+2085
+2088
+2089
+2417
+2418
+3654
+3655
+3782
+3783
+4348
+4349
+6103
+6104
+6211
+6212
+6823
+6824
+7288
+7294
+7468
+7531
+7544
+7545
+7579
+7616
+8305
+8306
+8319
+8320
+8336
+8349
+11388
+11390
+11631
+11632
+11823
+11824
+12293
+12294
+12337
+12342
+12347
+12348
+12445
+12447
+12540
+12543
+40981
+40982
+42232
+42238
+42508
+42509
+42623
+42624
+42652
+42654
+42775
+42784
+42864
+42865
+42888
+42889
+43000
+43002
+43471
+43472
+43494
+43495
+43632
+43633
+43741
+43742
+43763
+43765
+43868
+43872
+65392
+65393
+65438
+65440
+92992
+92996
+94099
+94112
+94176
+94178
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+36
+37
+162
+166
+1423
+1424
+1547
+1548
+2546
+2548
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8352
+8384
+43064
+43065
+65020
+65021
+65129
+65130
+65284
+65285
+65504
+65506
+65509
+65511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1170
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12295
+12337
+12342
+12347
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42726
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+187
+188
+8217
+8218
+8221
+8222
+8250
+8251
+11779
+11780
+11781
+11782
+11786
+11787
+11789
+11790
+11805
+11806
+11809
+11810
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V252
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+443
+444
+448
+452
+660
+661
+688
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7296
+7305
+7424
+7468
+7531
+7544
+7545
+7579
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8505
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11388
+11390
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42864
+42865
+42888
+42891
+42895
+42896
+42927
+42928
+42936
+43002
+43003
+43824
+43867
+43872
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+66736
+66772
+66776
+66812
+68736
+68787
+68800
+68851
+71840
+71904
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+125184
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V918
+170
+171
+186
+187
+443
+444
+448
+452
+660
+661
+1488
+1515
+1520
+1523
+1568
+1600
+1601
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2048
+2070
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2418
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3654
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4304
+4347
+4349
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6108
+6109
+6176
+6211
+6212
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7288
+7401
+7405
+7406
+7410
+7413
+7415
+8501
+8505
+11568
+11624
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12294
+12295
+12348
+12349
+12353
+12439
+12447
+12448
+12449
+12539
+12543
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+40981
+40982
+42125
+42192
+42232
+42240
+42508
+42512
+42528
+42538
+42540
+42606
+42607
+42656
+42726
+42895
+42896
+42999
+43000
+43003
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43488
+43493
+43495
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43632
+43633
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43741
+43744
+43755
+43762
+43763
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65382
+65392
+65393
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66640
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1160
+1162
+6846
+6847
+8413
+8417
+8418
+8421
+42608
+42611
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V602
+768
+880
+1155
+1160
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6846
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8400
+8413
+8417
+8418
+8421
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1266
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+688
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7296
+7305
+7424
+7468
+7531
+7544
+7545
+7579
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8580
+8581
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11388
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42865
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43002
+43003
+43824
+43867
+43872
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+66776
+66812
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+125218
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V344
+33
+36
+37
+43
+44
+48
+58
+60
+63
+65
+91
+94
+95
+96
+123
+124
+125
+126
+161
+162
+167
+168
+171
+172
+182
+184
+187
+188
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1419
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2557
+2558
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3898
+3902
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5120
+5121
+5741
+5743
+5787
+5789
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8208
+8232
+8240
+8260
+8261
+8274
+8275
+8287
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11823
+11824
+11850
+12289
+12292
+12296
+12306
+12308
+12320
+12336
+12337
+12349
+12350
+12448
+12449
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65122
+65123
+65124
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65291
+65292
+65296
+65306
+65308
+65311
+65313
+65339
+65342
+65343
+65344
+65371
+65372
+65373
+65374
+65375
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70731
+70736
+70747
+70748
+70749
+70750
+70854
+70855
+71105
+71128
+71233
+71236
+71264
+71277
+71484
+71487
+72255
+72263
+72346
+72349
+72350
+72355
+72769
+72774
+72816
+72818
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+125278
+125280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V120
+178
+180
+185
+186
+188
+191
+2548
+2554
+2930
+2936
+3056
+3059
+3192
+3199
+3416
+3423
+3440
+3449
+3882
+3892
+4969
+4989
+6128
+6138
+6618
+6619
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8544
+8585
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+43056
+43062
+65799
+65844
+65909
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69734
+70113
+70133
+71482
+71484
+71914
+71923
+72794
+72813
+93019
+93026
+119648
+119666
+125127
+125136
+127232
+127245
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1305
+0
+32
+127
+160
+173
+174
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1542
+1564
+1566
+1757
+1758
+1806
+1808
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8208
+8234
+8239
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69821
+69822
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113824
+118784
+119030
+119040
+119079
+119081
+119155
+119163
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V144
+41
+42
+93
+94
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+12318
+12320
+64830
+64831
+65048
+65049
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65093
+65096
+65097
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65341
+65342
+65373
+65374
+65376
+65377
+65379
+65380
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+171
+172
+8216
+8217
+8219
+8221
+8223
+8224
+8249
+8250
+11778
+11779
+11780
+11781
+11785
+11786
+11788
+11789
+11804
+11805
+11808
+11809
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+45
+46
+1418
+1419
+1470
+1471
+5120
+5121
+6150
+6151
+8208
+8214
+11799
+11800
+11802
+11803
+11834
+11836
+11840
+11841
+12316
+12317
+12336
+12337
+12448
+12449
+65073
+65075
+65112
+65113
+65123
+65124
+65293
+65294
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+95
+96
+8255
+8257
+8276
+8277
+65075
+65077
+65101
+65104
+65343
+65344
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V346
+166
+167
+169
+170
+174
+175
+176
+177
+1154
+1155
+1421
+1423
+1550
+1552
+1758
+1759
+1769
+1770
+1789
+1791
+2038
+2039
+2554
+2555
+2928
+2929
+3059
+3065
+3066
+3067
+3199
+3200
+3407
+3408
+3449
+3450
+3841
+3844
+3859
+3860
+3861
+3864
+3866
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+4030
+4038
+4039
+4045
+4046
+4048
+4053
+4057
+4254
+4256
+5008
+5018
+6464
+6465
+6622
+6656
+7009
+7019
+7028
+7037
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8522
+8523
+8524
+8526
+8527
+8528
+8586
+8588
+8597
+8602
+8604
+8608
+8609
+8611
+8612
+8614
+8615
+8622
+8623
+8654
+8656
+8658
+8659
+8660
+8661
+8692
+8960
+8968
+8972
+8992
+8994
+9001
+9003
+9084
+9085
+9115
+9140
+9180
+9186
+9255
+9280
+9291
+9372
+9450
+9472
+9655
+9656
+9665
+9666
+9720
+9728
+9839
+9840
+10088
+10132
+10176
+10240
+10496
+11008
+11056
+11077
+11079
+11085
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11493
+11499
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12292
+12293
+12306
+12308
+12320
+12321
+12342
+12344
+12350
+12352
+12688
+12690
+12694
+12704
+12736
+12772
+12800
+12831
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13055
+13056
+13312
+19904
+19968
+42128
+42183
+43048
+43052
+43062
+43064
+43065
+43066
+43639
+43642
+65021
+65022
+65508
+65509
+65512
+65513
+65517
+65519
+65532
+65534
+65847
+65856
+65913
+65930
+65932
+65935
+65936
+65948
+65952
+65953
+66000
+66045
+67703
+67705
+68296
+68297
+71487
+71488
+92988
+92992
+92997
+92998
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+127995
+128000
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V320
+2307
+2308
+2363
+2364
+2366
+2369
+2377
+2381
+2382
+2384
+2434
+2436
+2494
+2497
+2503
+2505
+2507
+2509
+2519
+2520
+2563
+2564
+2622
+2625
+2691
+2692
+2750
+2753
+2761
+2762
+2763
+2765
+2818
+2820
+2878
+2879
+2880
+2881
+2887
+2889
+2891
+2893
+2903
+2904
+3006
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3031
+3032
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3264
+3269
+3271
+3273
+3274
+3276
+3285
+3287
+3330
+3332
+3390
+3393
+3398
+3401
+3402
+3405
+3415
+3416
+3458
+3460
+3535
+3538
+3544
+3552
+3570
+3572
+3902
+3904
+3967
+3968
+4139
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4182
+4184
+4194
+4197
+4199
+4206
+4227
+4229
+4231
+4237
+4239
+4240
+4250
+4253
+6070
+6071
+6078
+6086
+6087
+6089
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6681
+6683
+6741
+6742
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6771
+6916
+6917
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6981
+7042
+7043
+7073
+7074
+7078
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7212
+7220
+7222
+7393
+7394
+7410
+7412
+7415
+7416
+12334
+12336
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43450
+43452
+43453
+43457
+43567
+43569
+43571
+43573
+43597
+43598
+43643
+43644
+43645
+43646
+43755
+43756
+43758
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69811
+69815
+69817
+69932
+69933
+70018
+70019
+70067
+70070
+70079
+70081
+70188
+70191
+70194
+70196
+70197
+70198
+70368
+70371
+70402
+70404
+70462
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70709
+70712
+70720
+70722
+70725
+70726
+70832
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+71087
+71090
+71096
+71100
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71342
+71344
+71350
+71351
+71456
+71458
+71462
+71463
+72199
+72201
+72249
+72250
+72279
+72281
+72343
+72344
+72751
+72752
+72766
+72767
+72873
+72874
+72881
+72882
+72884
+72885
+94033
+94079
+119141
+119143
+119149
+119155
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V110
+48
+58
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+65296
+65306
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+72784
+72794
+73040
+73050
+92768
+92778
+93008
+93018
+120782
+120832
+125264
+125274
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1188
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1182
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12295
+12337
+12342
+12347
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42726
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V252
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+305
+306
+312
+313
+397
+398
+411
+412
+426
+428
+442
+444
+446
+447
+448
+452
+545
+546
+564
+570
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+700
+701
+702
+703
+768
+770
+775
+777
+778
+779
+780
+781
+787
+788
+817
+818
+834
+835
+837
+838
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+978
+981
+1014
+1015
+1020
+1021
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7296
+7305
+7545
+7546
+7549
+7550
+7680
+7836
+7838
+7839
+7840
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11377
+11378
+11380
+11381
+11383
+11390
+11492
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42800
+42802
+42864
+42873
+42888
+42891
+42894
+42896
+42900
+42902
+42927
+42928
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+66736
+66772
+66776
+66812
+68736
+68787
+68800
+68851
+71840
+71904
+125184
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1308
+33
+127
+161
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5760
+5761
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+57344
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1386
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6847
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8204
+8206
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+0
+256
+304
+305
+329
+330
+376
+377
+383
+384
+496
+497
+924
+925
+956
+957
+7830
+7835
+7838
+7839
+8490
+8492
+64256
+64263
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1392
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+223
+224
+304
+305
+329
+330
+496
+497
+912
+913
+944
+945
+1415
+1416
+7830
+7835
+7838
+7839
+8016
+8017
+8018
+8019
+8020
+8021
+8022
+8023
+8064
+8112
+8114
+8117
+8118
+8120
+8124
+8125
+8130
+8133
+8134
+8136
+8140
+8141
+8146
+8148
+8150
+8152
+8162
+8165
+8166
+8168
+8178
+8181
+8182
+8184
+8188
+8189
+64256
+64263
+64275
+64280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+9
+10
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+453
+454
+456
+457
+459
+460
+498
+499
+8072
+8080
+8088
+8096
+8104
+8112
+8124
+8125
+8140
+8141
+8188
+8189
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+9
+14
+32
+33
+133
+134
+8206
+8208
+8232
+8234
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1298
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1390
+48
+58
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+837
+838
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1456
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1624
+1625
+1642
+1646
+1748
+1749
+1757
+1761
+1769
+1773
+1789
+1791
+1792
+1808
+1856
+1869
+1970
+1984
+2027
+2036
+2038
+2042
+2043
+2048
+2072
+2074
+2093
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2272
+2275
+2282
+2288
+2364
+2365
+2381
+2382
+2385
+2389
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2501
+2503
+2505
+2507
+2509
+2510
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2627
+2631
+2633
+2635
+2637
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2758
+2759
+2762
+2763
+2765
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2813
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3405
+3406
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3655
+3661
+3662
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3789
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3872
+3882
+3904
+3912
+3913
+3949
+3953
+3970
+3976
+3992
+3993
+4029
+4096
+4151
+4152
+4153
+4155
+4170
+4176
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4240
+4250
+4252
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5908
+5920
+5940
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6089
+6103
+6104
+6108
+6109
+6112
+6122
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6457
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6753
+6773
+6784
+6794
+6800
+6810
+6823
+6824
+6912
+6964
+6965
+6980
+6981
+6988
+6992
+7002
+7040
+7082
+7084
+7142
+7143
+7154
+7168
+7222
+7232
+7242
+7245
+7294
+7296
+7305
+7401
+7405
+7406
+7412
+7413
+7415
+7424
+7616
+7655
+7669
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42607
+42612
+42620
+42623
+42736
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43048
+43072
+43124
+43136
+43204
+43205
+43206
+43216
+43226
+43250
+43256
+43259
+43260
+43261
+43262
+43264
+43307
+43312
+43347
+43360
+43389
+43392
+43443
+43444
+43456
+43471
+43482
+43488
+43493
+43494
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43643
+43646
+43711
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43760
+43762
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69702
+69734
+69744
+69762
+69817
+69840
+69865
+69872
+69882
+69888
+69939
+69942
+69952
+69968
+70003
+70006
+70007
+70016
+70080
+70081
+70085
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70197
+70199
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70377
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70469
+70471
+70473
+70475
+70477
+70480
+70481
+70487
+70488
+70493
+70500
+70656
+70722
+70723
+70726
+70727
+70731
+70736
+70746
+70784
+70850
+70852
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71103
+71128
+71134
+71168
+71231
+71232
+71233
+71236
+71237
+71248
+71258
+71296
+71350
+71360
+71370
+71424
+71450
+71453
+71467
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72243
+72245
+72255
+72272
+72324
+72326
+72344
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72767
+72768
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73026
+73027
+73028
+73030
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113822
+113823
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125184
+125252
+125255
+125256
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1302
+32
+127
+160
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8232
+8234
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+57344
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+9
+14
+32
+33
+133
+134
+160
+161
+5760
+5761
+8192
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V78
+0
+48
+58
+65
+91
+95
+96
+97
+123
+168
+169
+170
+171
+175
+176
+178
+182
+183
+187
+188
+191
+192
+215
+216
+247
+248
+847
+848
+1564
+1565
+4447
+4449
+5760
+5761
+6068
+6070
+6155
+6159
+8192
+8255
+8257
+8276
+8277
+8304
+8592
+9312
+9472
+10102
+10132
+11264
+11776
+11904
+12288
+12292
+12296
+12321
+12336
+12337
+12644
+12645
+64830
+64832
+65024
+65040
+65093
+65095
+65279
+65280
+65440
+65441
+65520
+65529
+113824
+113828
+119155
+119163
+917504
+921600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1398
+32
+33
+40
+42
+45
+46
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7296
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70731
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72192
+72255
+72263
+72264
+72272
+72324
+72326
+72346
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+48
+58
+65
+91
+95
+96
+97
+123
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+0
+256
+304
+305
+329
+330
+376
+377
+383
+384
+496
+497
+700
+701
+924
+925
+956
+957
+7830
+7835
+7838
+7839
+8490
+8492
+64256
+64263
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+33
+48
+58
+65
+91
+97
+123
+127
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V334
+33
+48
+58
+65
+91
+97
+123
+127
+161
+162
+167
+168
+171
+172
+182
+184
+187
+188
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1419
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2557
+2558
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3898
+3902
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5120
+5121
+5741
+5743
+5787
+5789
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8208
+8232
+8240
+8260
+8261
+8274
+8275
+8287
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11823
+11824
+11850
+12289
+12292
+12296
+12306
+12308
+12320
+12336
+12337
+12349
+12350
+12448
+12449
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65122
+65123
+65124
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65291
+65292
+65296
+65306
+65308
+65311
+65313
+65339
+65342
+65343
+65344
+65371
+65372
+65373
+65374
+65375
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70731
+70736
+70747
+70748
+70749
+70750
+70854
+70855
+71105
+71128
+71233
+71236
+71264
+71277
+71484
+71487
+72255
+72263
+72346
+72349
+72350
+72355
+72769
+72774
+72816
+72818
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+125278
+125280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+64976
+65008
+65534
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1180
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8072
+8080
+8088
+8096
+8104
+8112
+8120
+8125
+8136
+8141
+8152
+8156
+8168
+8173
+8184
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+125184
+125218
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V794
+0
+545
+546
+564
+592
+686
+688
+751
+768
+848
+864
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1015
+1024
+1159
+1160
+1231
+1232
+1270
+1272
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1970
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4345
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8275
+8279
+8280
+8287
+8292
+8298
+8306
+8308
+8335
+8352
+8370
+8400
+8427
+8448
+8507
+8509
+8524
+8531
+8580
+8592
+9167
+9216
+9255
+9280
+9291
+9312
+9471
+9472
+9748
+9750
+9752
+9753
+9854
+9856
+9866
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10192
+10220
+10224
+11008
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12784
+12829
+12832
+12868
+12881
+12924
+12927
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42183
+44032
+55204
+55296
+64046
+64048
+64107
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65021
+65024
+65040
+65056
+65060
+65072
+65095
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1246
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V738
+0
+544
+546
+564
+592
+686
+688
+751
+768
+847
+864
+867
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+984
+986
+1012
+1024
+1159
+1160
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1232
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1646
+1648
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8263
+8264
+8270
+8298
+8305
+8308
+8335
+8352
+8368
+8400
+8420
+8448
+8507
+8531
+8580
+8592
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9216
+9255
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9720
+9728
+9748
+9753
+9842
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12347
+12350
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12728
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1022
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4304
+4349
+4352
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7104
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7376
+7411
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8378
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+10187
+10188
+10189
+10190
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11506
+11513
+11558
+11568
+11622
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11826
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40908
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42612
+42620
+42648
+42656
+42744
+42752
+42895
+42896
+42898
+42912
+42922
+43002
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43744
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64046
+64048
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127338
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128336
+128360
+128507
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1296
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9215
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11845
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94177
+94208
+100333
+100352
+101107
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127744
+128723
+128736
+128749
+128752
+128759
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129311
+129312
+129320
+129328
+129329
+129331
+129343
+129344
+129356
+129360
+129375
+129408
+129426
+129472
+129473
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8379
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V624
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8365
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8378
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V804
+0
+544
+546
+564
+592
+686
+688
+751
+768
+847
+864
+867
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+984
+986
+1014
+1024
+1159
+1160
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1232
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1646
+1648
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8263
+8264
+8270
+8298
+8305
+8308
+8335
+8352
+8368
+8400
+8420
+8448
+8507
+8531
+8580
+8592
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9216
+9255
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9720
+9728
+9748
+9753
+9842
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12347
+12350
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12728
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V860
+0
+578
+592
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1159
+1160
+1231
+1232
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1466
+1467
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1547
+1558
+1563
+1564
+1566
+1568
+1569
+1595
+1600
+1631
+1632
+1806
+1807
+1867
+1869
+1902
+1920
+1970
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2429
+2430
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4050
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+7424
+7620
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8292
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8428
+8448
+8525
+8531
+8580
+8592
+9180
+9216
+9255
+9280
+9291
+9312
+9885
+9888
+9906
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10183
+10192
+10220
+10224
+11028
+11264
+11311
+11312
+11359
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12736
+12752
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40892
+40960
+42125
+42128
+42183
+42752
+42775
+43008
+43052
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+118784
+119030
+119040
+119079
+119082
+119262
+119296
+119366
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V880
+0
+880
+884
+886
+890
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1159
+1160
+1300
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1547
+1558
+1563
+1564
+1566
+1568
+1569
+1595
+1600
+1631
+1632
+1806
+1807
+1867
+1869
+1902
+1920
+1970
+1984
+2043
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2427
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4050
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+6912
+6988
+6992
+7037
+7424
+7627
+7678
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8292
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8432
+8448
+8527
+8531
+8581
+8592
+9192
+9216
+9255
+9280
+9291
+9312
+9885
+9888
+9907
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10192
+10220
+10224
+11035
+11040
+11044
+11264
+11311
+11312
+11359
+11360
+11373
+11380
+11384
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12736
+12752
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40892
+40960
+42125
+42128
+42183
+42752
+42779
+42784
+42786
+43008
+43052
+43072
+43128
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+67840
+67866
+67871
+67872
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+73728
+74607
+74752
+74851
+74864
+74868
+118784
+119030
+119040
+119079
+119082
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1220
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2227
+2276
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8382
+8400
+8433
+8448
+8586
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42654
+42655
+42744
+42752
+42895
+42896
+42926
+42928
+42930
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43872
+43876
+43878
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65070
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70089
+70093
+70094
+70096
+70107
+70113
+70133
+70144
+70162
+70163
+70206
+70320
+70379
+70384
+70394
+70401
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71114
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74649
+74752
+74863
+74864
+74869
+77824
+78895
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127789
+127792
+127870
+127872
+127951
+127956
+127992
+128000
+128255
+128256
+128331
+128336
+128378
+128379
+128420
+128421
+128579
+128581
+128720
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1318
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V990
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1318
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1568
+1569
+1631
+1632
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2304
+2362
+2364
+2383
+2384
+2390
+2392
+2419
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3389
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4046
+4057
+4096
+4294
+4304
+4349
+4352
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7376
+7411
+7424
+7655
+7677
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8377
+8400
+8433
+8448
+8586
+8592
+9193
+9216
+9255
+9280
+9291
+9312
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10188
+10189
+10192
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11506
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11826
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12728
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40908
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42656
+42744
+42752
+42893
+43003
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43744
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64046
+64048
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69760
+69826
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127232
+127243
+127248
+127279
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127488
+127489
+127504
+127538
+127552
+127561
+131070
+173783
+173824
+177973
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V624
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8364
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V824
+0
+567
+592
+856
+861
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1020
+1024
+1159
+1160
+1231
+1232
+1270
+1272
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1536
+1540
+1548
+1558
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1625
+1632
+1806
+1807
+1867
+1869
+1872
+1920
+1970
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4345
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6624
+6656
+7424
+7532
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8277
+8279
+8280
+8287
+8292
+8298
+8306
+8308
+8335
+8352
+8370
+8400
+8427
+8448
+8508
+8509
+8524
+8531
+8580
+8592
+9169
+9216
+9255
+9280
+9291
+9312
+9752
+9753
+9854
+9856
+9874
+9888
+9890
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10192
+10220
+10224
+11022
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12784
+12831
+12832
+12868
+12880
+12926
+12927
+13055
+13056
+19894
+19904
+40870
+40960
+42125
+42128
+42183
+44032
+55204
+55296
+64046
+64048
+64107
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65040
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66464
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+118784
+119030
+119040
+119079
+119082
+119262
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8379
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V910
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1316
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1568
+1569
+1631
+1632
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2419
+2427
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3389
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4046
+4053
+4096
+4250
+4254
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7424
+7655
+7678
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8433
+8448
+8528
+8531
+8585
+8592
+9192
+9216
+9255
+9280
+9291
+9312
+9886
+9888
+9917
+9920
+9924
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10188
+10189
+10192
+11085
+11088
+11093
+11264
+11311
+11312
+11359
+11360
+11376
+11377
+11390
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11825
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12728
+12736
+12772
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40900
+40960
+42125
+42128
+42183
+42240
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42752
+42893
+43003
+43052
+43072
+43128
+43136
+43205
+43214
+43226
+43264
+43348
+43359
+43360
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+67840
+67866
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+73728
+74607
+74752
+74851
+74864
+74868
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+183
+184
+720
+722
+1600
+1601
+2042
+2043
+3654
+3655
+3782
+3783
+6154
+6155
+6211
+6212
+6823
+6824
+7222
+7223
+7291
+7292
+12293
+12294
+12337
+12342
+12445
+12447
+12540
+12543
+40981
+40982
+42508
+42509
+43471
+43472
+43494
+43495
+43632
+43633
+43741
+43742
+43763
+43765
+65392
+65393
+70493
+70494
+71110
+71113
+72344
+72345
+92994
+92996
+94176
+94178
+125252
+125255
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V358
+161
+162
+164
+165
+167
+169
+170
+171
+173
+175
+176
+181
+182
+187
+188
+192
+198
+199
+208
+209
+215
+217
+222
+226
+230
+231
+232
+235
+236
+238
+240
+241
+242
+244
+247
+251
+252
+253
+254
+255
+257
+258
+273
+274
+275
+276
+283
+284
+294
+296
+299
+300
+305
+308
+312
+313
+319
+323
+324
+325
+328
+332
+333
+334
+338
+340
+358
+360
+363
+364
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+477
+593
+594
+609
+610
+708
+709
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+913
+930
+931
+938
+945
+962
+963
+970
+1025
+1026
+1040
+1104
+1105
+1106
+8208
+8209
+8211
+8215
+8216
+8218
+8220
+8222
+8224
+8227
+8228
+8232
+8240
+8241
+8242
+8244
+8245
+8246
+8251
+8252
+8254
+8255
+8308
+8309
+8319
+8320
+8321
+8325
+8364
+8365
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8486
+8487
+8491
+8492
+8531
+8533
+8539
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8632
+8634
+8658
+8659
+8660
+8661
+8679
+8680
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+9312
+9450
+9451
+9548
+9552
+9588
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9733
+9735
+9737
+9738
+9742
+9744
+9756
+9757
+9758
+9759
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9886
+9888
+9919
+9920
+9926
+9934
+9935
+9940
+9941
+9954
+9955
+9956
+9960
+9962
+9963
+9970
+9972
+9973
+9974
+9978
+9979
+9981
+9982
+9984
+10045
+10046
+10102
+10112
+11094
+11098
+12872
+12880
+57344
+63744
+65024
+65040
+65533
+65534
+127232
+127243
+127248
+127278
+127280
+127338
+127344
+127374
+127375
+127377
+127387
+127405
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V208
+4352
+4448
+8986
+8988
+9001
+9003
+9193
+9197
+9200
+9201
+9203
+9204
+9725
+9727
+9748
+9750
+9800
+9812
+9855
+9856
+9875
+9876
+9889
+9890
+9898
+9900
+9917
+9919
+9924
+9926
+9934
+9935
+9940
+9941
+9962
+9963
+9970
+9972
+9973
+9974
+9978
+9979
+9981
+9982
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10133
+10136
+10160
+10161
+10175
+10176
+11035
+11037
+11088
+11089
+11093
+11094
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12351
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+12872
+12880
+13055
+13056
+19904
+19968
+42125
+42128
+42183
+43360
+43389
+44032
+55204
+63744
+64256
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+126980
+126981
+127183
+127184
+127374
+127375
+127377
+127387
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+127777
+127789
+127798
+127799
+127869
+127870
+127892
+127904
+127947
+127951
+127956
+127968
+127985
+127988
+127989
+127992
+128063
+128064
+128065
+128066
+128253
+128255
+128318
+128331
+128335
+128336
+128360
+128378
+128379
+128405
+128407
+128420
+128421
+128507
+128592
+128640
+128710
+128716
+128717
+128720
+128723
+128747
+128749
+128756
+128761
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+196606
+196608
+262142
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V533
+0
+32
+127
+161
+169
+170
+171
+172
+181
+182
+187
+188
+192
+198
+199
+208
+209
+215
+217
+222
+226
+230
+231
+232
+235
+236
+238
+240
+241
+242
+244
+247
+251
+252
+253
+254
+255
+257
+258
+273
+274
+275
+276
+283
+284
+294
+296
+299
+300
+305
+308
+312
+313
+319
+323
+324
+325
+328
+332
+333
+334
+338
+340
+358
+360
+363
+364
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+477
+593
+594
+609
+610
+708
+709
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+913
+930
+931
+938
+945
+962
+963
+970
+1025
+1026
+1040
+1104
+1105
+1106
+4352
+4448
+8208
+8209
+8211
+8215
+8216
+8218
+8220
+8222
+8224
+8227
+8228
+8232
+8240
+8241
+8242
+8244
+8245
+8246
+8251
+8252
+8254
+8255
+8308
+8309
+8319
+8320
+8321
+8325
+8361
+8362
+8364
+8365
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8486
+8487
+8491
+8492
+8531
+8533
+8539
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8632
+8634
+8658
+8659
+8660
+8661
+8679
+8680
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+8986
+8988
+9001
+9003
+9193
+9197
+9200
+9201
+9203
+9204
+9312
+9450
+9451
+9548
+9552
+9588
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9725
+9727
+9733
+9735
+9737
+9738
+9742
+9744
+9748
+9750
+9756
+9757
+9758
+9759
+9792
+9793
+9794
+9795
+9800
+9812
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9855
+9856
+9875
+9876
+9886
+9888
+9889
+9890
+9898
+9900
+9917
+9920
+9924
+9954
+9955
+9956
+9960
+9984
+9989
+9990
+9994
+9996
+10024
+10025
+10045
+10046
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10102
+10112
+10133
+10136
+10160
+10161
+10175
+10176
+10214
+10222
+10629
+10631
+11035
+11037
+11088
+11089
+11093
+11098
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12351
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19904
+19968
+42125
+42128
+42183
+43360
+43389
+44032
+55204
+57344
+64256
+65024
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65534
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+126980
+126981
+127183
+127184
+127232
+127243
+127248
+127278
+127280
+127338
+127344
+127405
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+127777
+127789
+127798
+127799
+127869
+127870
+127892
+127904
+127947
+127951
+127956
+127968
+127985
+127988
+127989
+127992
+128063
+128064
+128065
+128066
+128253
+128255
+128318
+128331
+128335
+128336
+128360
+128378
+128379
+128405
+128407
+128420
+128421
+128507
+128592
+128640
+128710
+128716
+128717
+128720
+128723
+128747
+128749
+128756
+128761
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+196606
+196608
+262142
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+8361
+8362
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65512
+65519
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+32
+127
+162
+164
+165
+167
+172
+173
+175
+176
+10214
+10222
+10629
+10631
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+48
+58
+178
+180
+185
+186
+1776
+1786
+8304
+8305
+8308
+8314
+8320
+8330
+9352
+9372
+65296
+65306
+66273
+66300
+120782
+120832
+127232
+127243
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V66
+1424
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1536
+1984
+2027
+2036
+2038
+2042
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2144
+2160
+2208
+8207
+8208
+64285
+64286
+64287
+64297
+64298
+64336
+67584
+67871
+67872
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+68409
+68416
+69216
+69247
+69632
+124928
+125136
+125143
+125252
+125259
+126464
+126720
+126976
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+12
+13
+32
+33
+5760
+5761
+8192
+8203
+8232
+8233
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V859
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+697
+699
+706
+720
+722
+736
+741
+750
+751
+880
+884
+886
+894
+895
+900
+902
+903
+904
+1014
+1015
+1155
+1162
+1418
+1419
+1421
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2546
+2548
+2555
+2556
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2801
+2802
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3059
+3067
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3192
+3199
+3201
+3202
+3260
+3261
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3647
+3648
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3902
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5008
+5018
+5120
+5121
+5760
+5761
+5787
+5789
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6107
+6108
+6109
+6110
+6128
+6138
+6144
+6159
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6464
+6465
+6468
+6470
+6622
+6656
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8192
+8206
+8207
+8305
+8308
+8319
+8320
+8335
+8352
+8433
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8528
+8544
+8585
+8588
+8592
+9014
+9083
+9109
+9110
+9255
+9280
+9291
+9312
+9372
+9450
+9900
+9901
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11493
+11499
+11503
+11506
+11513
+11520
+11647
+11648
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12293
+12296
+12321
+12330
+12334
+12336
+12337
+12342
+12344
+12349
+12352
+12441
+12445
+12448
+12449
+12539
+12540
+12736
+12772
+12829
+12831
+12880
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+42128
+42183
+42509
+42512
+42607
+42624
+42654
+42656
+42736
+42738
+42752
+42786
+42888
+42889
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43048
+43052
+43064
+43066
+43124
+43128
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64285
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65280
+65281
+65313
+65339
+65345
+65371
+65382
+65504
+65511
+65512
+65519
+65520
+65536
+65793
+65794
+65856
+65933
+65936
+65948
+65952
+65953
+66045
+66046
+66272
+66300
+66422
+66427
+67584
+69632
+69633
+69634
+69688
+69703
+69714
+69734
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71264
+71277
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119296
+119366
+119552
+119639
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127338
+127340
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+921600
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+44
+45
+46
+48
+58
+59
+160
+161
+1548
+1549
+8239
+8240
+8260
+8261
+65104
+65105
+65106
+65107
+65109
+65110
+65292
+65293
+65294
+65296
+65306
+65307
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+0
+9
+14
+28
+127
+133
+134
+160
+173
+174
+6158
+6159
+8203
+8206
+8288
+8294
+8298
+8304
+64976
+65008
+65279
+65280
+65520
+65529
+65534
+65536
+113824
+113828
+119155
+119163
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917760
+918000
+921600
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V354
+33
+35
+38
+43
+59
+65
+91
+97
+123
+127
+161
+162
+166
+170
+171
+173
+174
+176
+180
+181
+182
+185
+187
+192
+215
+216
+247
+248
+697
+699
+706
+720
+722
+736
+741
+750
+751
+768
+884
+886
+894
+895
+900
+902
+903
+904
+1014
+1015
+1418
+1419
+1421
+1423
+1542
+1544
+1550
+1552
+1758
+1759
+1769
+1770
+2038
+2042
+3059
+3065
+3066
+3067
+3192
+3199
+3898
+3902
+5008
+5018
+5120
+5121
+5787
+5789
+6128
+6138
+6144
+6155
+6464
+6465
+6468
+6470
+6622
+6656
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8208
+8232
+8245
+8260
+8261
+8287
+8316
+8319
+8332
+8335
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8528
+8544
+8585
+8588
+8592
+8722
+8724
+9014
+9083
+9109
+9110
+9255
+9280
+9291
+9312
+9352
+9450
+9900
+9901
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11493
+11499
+11513
+11520
+11776
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12352
+12443
+12445
+12448
+12449
+12539
+12540
+12736
+12772
+12829
+12831
+12880
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+42128
+42183
+42509
+42512
+42611
+42612
+42622
+42624
+42752
+42786
+42888
+42889
+43048
+43052
+43124
+43128
+64830
+64832
+65021
+65022
+65040
+65050
+65072
+65104
+65105
+65106
+65108
+65109
+65110
+65119
+65120
+65122
+65124
+65127
+65128
+65129
+65131
+65132
+65281
+65283
+65286
+65291
+65307
+65313
+65339
+65345
+65371
+65382
+65506
+65509
+65512
+65519
+65529
+65534
+65793
+65794
+65856
+65933
+65936
+65948
+65952
+65953
+67871
+67872
+68409
+68416
+69714
+69734
+71264
+71277
+119296
+119362
+119365
+119366
+119552
+119639
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127243
+127245
+127338
+127340
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V592
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1536
+1542
+1632
+1642
+1643
+1645
+1757
+1758
+2274
+2275
+69216
+69247
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+10
+11
+13
+14
+28
+31
+133
+134
+8233
+8234
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+43
+44
+45
+46
+8314
+8316
+8330
+8332
+8722
+8723
+64297
+64298
+65122
+65124
+65291
+65292
+65293
+65294
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+35
+38
+162
+166
+176
+178
+1423
+1424
+1545
+1547
+1642
+1643
+2546
+2548
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8240
+8245
+8352
+8400
+8494
+8495
+8723
+8724
+43064
+43066
+65119
+65120
+65129
+65131
+65283
+65286
+65504
+65506
+65509
+65511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+1544
+1545
+1547
+1548
+1549
+1550
+1563
+1611
+1645
+1648
+1649
+1750
+1765
+1767
+1774
+1776
+1786
+1809
+1810
+1840
+1867
+1958
+1969
+1984
+2144
+2160
+2208
+2260
+64336
+64830
+64832
+64976
+65008
+65021
+65022
+65024
+65136
+65279
+126464
+126704
+126706
+126720
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V80
+2367
+2368
+2382
+2383
+2495
+2496
+2503
+2505
+2623
+2624
+2751
+2752
+2887
+2888
+3014
+3017
+3398
+3401
+3545
+3546
+3547
+3548
+3903
+3904
+4145
+4146
+4228
+4229
+6081
+6084
+6681
+6682
+6741
+6742
+6766
+6771
+6974
+6976
+7078
+7079
+7207
+7209
+7220
+7222
+43450
+43452
+43567
+43569
+43572
+43573
+43755
+43756
+43758
+43759
+69809
+69810
+69932
+69933
+70068
+70069
+70369
+70370
+70471
+70473
+70710
+70711
+70833
+70834
+70841
+70842
+71088
+71089
+71096
+71097
+71342
+71343
+71462
+71463
+72881
+72882
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2892
+2893
+3549
+3550
+6079
+6080
+71099
+71100
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+3648
+3653
+3776
+3781
+6581
+6584
+6586
+6587
+43701
+43703
+43705
+43706
+43707
+43709
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V348
+2304
+2307
+2362
+2363
+2373
+2377
+2385
+2386
+2387
+2390
+2433
+2434
+2561
+2563
+2631
+2633
+2635
+2637
+2672
+2674
+2689
+2691
+2757
+2758
+2759
+2761
+2810
+2816
+2817
+2818
+2879
+2880
+2902
+2903
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3144
+3146
+3150
+3157
+3158
+3201
+3202
+3263
+3264
+3270
+3271
+3276
+3278
+3328
+3330
+3387
+3389
+3405
+3406
+3530
+3531
+3538
+3540
+3633
+3634
+3636
+3640
+3655
+3663
+3761
+3762
+3764
+3768
+3771
+3772
+3784
+3790
+3897
+3898
+3954
+3955
+3962
+3967
+3968
+3969
+3970
+3972
+3974
+3976
+4141
+4143
+4146
+4151
+4154
+4155
+4209
+4213
+4229
+4231
+4253
+4254
+5906
+5907
+5938
+5939
+5970
+5971
+6002
+6003
+6071
+6075
+6086
+6087
+6089
+6098
+6099
+6100
+6109
+6110
+6432
+6434
+6439
+6441
+6458
+6459
+6679
+6680
+6683
+6684
+6744
+6747
+6754
+6755
+6757
+6761
+6763
+6764
+6771
+6781
+6912
+6916
+6964
+6965
+6966
+6968
+6978
+6979
+7019
+7020
+7021
+7028
+7040
+7042
+7076
+7077
+7080
+7082
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7213
+7220
+7222
+7223
+7376
+7379
+7386
+7388
+7392
+7393
+7412
+7413
+7675
+7676
+43014
+43015
+43019
+43020
+43046
+43047
+43205
+43206
+43232
+43250
+43338
+43339
+43343
+43346
+43392
+43395
+43443
+43444
+43446
+43448
+43452
+43453
+43493
+43494
+43561
+43565
+43566
+43567
+43569
+43570
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43700
+43703
+43705
+43710
+43712
+43713
+43714
+43757
+43758
+44005
+44006
+68101
+68102
+68111
+68112
+68152
+68153
+69633
+69634
+69688
+69692
+69698
+69703
+69760
+69762
+69813
+69815
+69888
+69891
+69927
+69930
+69933
+69934
+69936
+69937
+69940
+69941
+70016
+70018
+70076
+70079
+70091
+70092
+70192
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70373
+70377
+70401
+70402
+70464
+70465
+70502
+70509
+70512
+70517
+70718
+70720
+70723
+70725
+70842
+70843
+70847
+70849
+71100
+71102
+71225
+71227
+71229
+71230
+71232
+71233
+71339
+71340
+71341
+71342
+71346
+71350
+71455
+71456
+71458
+71460
+71463
+71464
+71465
+71468
+72193
+72194
+72196
+72202
+72245
+72249
+72273
+72274
+72276
+72279
+72342
+72343
+72344
+72345
+72752
+72754
+72760
+72766
+72883
+72884
+72885
+72887
+73009
+73014
+73018
+73019
+73020
+73022
+73023
+73026
+73027
+73028
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+7380
+7381
+7394
+7401
+68097
+68098
+68102
+68103
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+2507
+2509
+2891
+2892
+3018
+3021
+3402
+3405
+3548
+3549
+3550
+3551
+6080
+6081
+6084
+6086
+6976
+6978
+70475
+70477
+70844
+70845
+70846
+70847
+71098
+71099
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V383
+0
+2304
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3632
+3643
+3648
+3654
+3655
+3663
+3760
+3770
+3771
+3773
+3776
+3781
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4153
+4154
+4156
+4157
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6070
+6098
+6099
+6100
+6109
+6110
+6432
+6444
+6448
+6460
+6576
+6593
+6600
+6602
+6679
+6684
+6741
+6751
+6753
+6781
+6783
+6784
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7083
+7084
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7412
+7413
+7415
+7416
+7675
+7676
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43307
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43712
+43713
+43714
+43755
+43760
+43765
+43766
+44003
+44011
+44012
+44014
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+69632
+69635
+69688
+69703
+69760
+69763
+69808
+69819
+69888
+69891
+69927
+69939
+69940
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70091
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70401
+70404
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71454
+71455
+71468
+72193
+72203
+72243
+72250
+72251
+72255
+72273
+72284
+72330
+72345
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73029
+73031
+73032
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V300
+2307
+2308
+2363
+2364
+2366
+2367
+2368
+2369
+2377
+2381
+2383
+2384
+2434
+2436
+2494
+2495
+2496
+2497
+2519
+2520
+2563
+2564
+2622
+2623
+2624
+2625
+2691
+2692
+2750
+2751
+2752
+2753
+2763
+2765
+2818
+2820
+2878
+2879
+2880
+2881
+3006
+3008
+3009
+3011
+3031
+3032
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3265
+3269
+3285
+3287
+3330
+3332
+3390
+3395
+3415
+3416
+3458
+3460
+3535
+3538
+3544
+3545
+3551
+3552
+3570
+3572
+3632
+3633
+3634
+3636
+3653
+3654
+3760
+3761
+3762
+3764
+3902
+3903
+3967
+3968
+4139
+4141
+4152
+4153
+4155
+4156
+4182
+4184
+4194
+4197
+4199
+4206
+4227
+4228
+4231
+4237
+4239
+4240
+4250
+4253
+6070
+6071
+6087
+6089
+6435
+6437
+6441
+6444
+6448
+6450
+6451
+6457
+6576
+6581
+6584
+6586
+6587
+6593
+6600
+6602
+6682
+6683
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6766
+6916
+6917
+6965
+6966
+6980
+6981
+7042
+7043
+7073
+7074
+7079
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7207
+7210
+7212
+7393
+7394
+7415
+7416
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43453
+43455
+43571
+43572
+43597
+43598
+43643
+43644
+43645
+43646
+43697
+43698
+43706
+43707
+43709
+43710
+43759
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69809
+69810
+69811
+69815
+69817
+70018
+70019
+70067
+70068
+70069
+70070
+70080
+70081
+70188
+70191
+70197
+70198
+70368
+70369
+70370
+70371
+70402
+70404
+70462
+70464
+70465
+70469
+70477
+70478
+70487
+70488
+70498
+70500
+70709
+70710
+70711
+70712
+70720
+70722
+70725
+70726
+70832
+70833
+70834
+70835
+70845
+70846
+70849
+70850
+71087
+71088
+71089
+71090
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71343
+71344
+71350
+71351
+71456
+71458
+72249
+72250
+72279
+72281
+72343
+72344
+72751
+72752
+72766
+72767
+72873
+72874
+72884
+72885
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V264
+2364
+2365
+2369
+2373
+2381
+2382
+2386
+2387
+2390
+2392
+2402
+2404
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2620
+2621
+2625
+2627
+2637
+2638
+2677
+2678
+2748
+2749
+2753
+2757
+2765
+2766
+2786
+2788
+2876
+2877
+2881
+2885
+2893
+2894
+2914
+2916
+3158
+3159
+3170
+3172
+3260
+3261
+3298
+3300
+3395
+3397
+3426
+3428
+3540
+3541
+3542
+3543
+3640
+3643
+3768
+3770
+3772
+3773
+3864
+3866
+3893
+3894
+3895
+3896
+3953
+3954
+3956
+3958
+3972
+3973
+3981
+3992
+3993
+4029
+4038
+4039
+4143
+4145
+4151
+4152
+4157
+4159
+4184
+4186
+4190
+4193
+4226
+4227
+4237
+4238
+5907
+5909
+5939
+5941
+5971
+5972
+6003
+6004
+6075
+6078
+6434
+6435
+6450
+6451
+6457
+6458
+6459
+6460
+6680
+6681
+6742
+6743
+6747
+6751
+6761
+6763
+6764
+6765
+6783
+6784
+6968
+6971
+7020
+7021
+7074
+7076
+7077
+7078
+7084
+7086
+7212
+7213
+7223
+7224
+7381
+7386
+7388
+7392
+7405
+7406
+43045
+43046
+43204
+43205
+43307
+43310
+43335
+43338
+43339
+43343
+43448
+43450
+43565
+43566
+43570
+43571
+43573
+43575
+43700
+43701
+43756
+43757
+44008
+44009
+44013
+44014
+68098
+68100
+68108
+68111
+68153
+68155
+69692
+69698
+69811
+69813
+69817
+69819
+69930
+69932
+69937
+69939
+70003
+70004
+70070
+70076
+70092
+70093
+70191
+70192
+70371
+70373
+70377
+70379
+70712
+70718
+70722
+70723
+70726
+70727
+70835
+70841
+70850
+70852
+71090
+71094
+71103
+71105
+71132
+71134
+71219
+71225
+71231
+71232
+71344
+71346
+71351
+71352
+71453
+71454
+71460
+71462
+71464
+71465
+72194
+72196
+72202
+72203
+72243
+72245
+72251
+72255
+72274
+72276
+72281
+72284
+72330
+72342
+72754
+72759
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72883
+73014
+73015
+73026
+73027
+73028
+73029
+73031
+73032
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+2761
+2762
+2903
+2904
+3264
+3265
+3271
+3273
+3274
+3276
+6437
+6439
+6979
+6980
+70079
+70080
+70194
+70196
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+3144
+3145
+3955
+3956
+3958
+3962
+3969
+3970
+6972
+6973
+69934
+69936
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2888
+2889
+3546
+3547
+6078
+6079
+7209
+7210
+70843
+70844
+71097
+71098
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+34
+35
+39
+40
+171
+172
+187
+188
+8216
+8218
+8219
+8222
+8223
+8224
+8249
+8251
+10075
+10081
+11776
+11790
+11804
+11806
+11808
+11810
+128630
+128633
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V164
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12289
+12291
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+12318
+12320
+64830
+64831
+65041
+65043
+65048
+65049
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65093
+65096
+65097
+65104
+65105
+65106
+65107
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65292
+65293
+65294
+65295
+65341
+65342
+65373
+65374
+65376
+65378
+65379
+65381
+78427
+78430
+78466
+78467
+78471
+78472
+78473
+78474
+78714
+78716
+83407
+83408
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+160
+161
+847
+848
+860
+867
+3848
+3849
+3852
+3853
+3858
+3859
+4057
+4059
+6158
+6159
+8199
+8200
+8209
+8210
+8239
+8240
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V84
+3585
+3643
+3648
+3663
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3804
+3808
+4096
+4160
+4176
+4240
+4250
+4256
+6016
+6100
+6103
+6104
+6108
+6110
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6618
+6619
+6622
+6624
+6688
+6751
+6752
+6781
+6816
+6830
+43488
+43504
+43514
+43519
+43616
+43715
+43739
+43744
+71424
+71450
+71453
+71468
+71482
+71484
+71487
+71488
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+36
+37
+43
+44
+92
+93
+163
+166
+177
+178
+1423
+1424
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8352
+8359
+8360
+8374
+8375
+8379
+8380
+8382
+8383
+8400
+8470
+8471
+8722
+8724
+65129
+65130
+65284
+65285
+65505
+65506
+65509
+65511
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+33
+34
+63
+64
+1478
+1479
+1563
+1564
+1566
+1568
+1748
+1749
+2041
+2042
+3853
+3858
+3860
+3861
+6146
+6148
+6152
+6154
+6468
+6470
+10082
+10084
+11513
+11514
+11518
+11519
+11822
+11823
+42510
+42511
+43126
+43128
+65045
+65047
+65110
+65112
+65281
+65282
+65311
+65312
+71108
+71110
+72817
+72818
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1215
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+57344
+63744
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+131070
+131072
+196606
+196608
+262142
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V168
+40
+41
+91
+92
+123
+124
+161
+162
+191
+192
+3898
+3899
+3900
+3901
+5787
+5788
+8218
+8219
+8222
+8223
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11800
+11801
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11842
+11843
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12317
+12318
+64831
+64832
+65047
+65048
+65077
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65095
+65096
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+78424
+78427
+78470
+78471
+78472
+78473
+78713
+78714
+83406
+83407
+125278
+125280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V320
+8986
+8988
+9200
+9204
+9728
+9732
+9748
+9750
+9752
+9753
+9754
+9757
+9758
+9760
+9785
+9788
+9832
+9833
+9855
+9856
+9917
+9929
+9933
+9934
+9935
+9938
+9939
+9941
+9944
+9946
+9948
+9949
+9951
+9954
+9962
+9963
+9969
+9974
+9975
+9977
+9978
+9979
+9981
+9989
+9992
+9994
+10084
+10085
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12291
+12293
+12294
+12296
+12306
+12308
+12320
+12330
+12336
+12341
+12342
+12347
+12349
+12352
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12447
+12448
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12539
+12543
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12800
+12831
+12832
+12872
+12880
+13055
+13056
+19904
+19968
+40981
+40982
+42125
+42128
+42183
+63744
+64256
+65072
+65077
+65093
+65095
+65097
+65104
+65105
+65106
+65112
+65113
+65119
+65127
+65128
+65129
+65131
+65132
+65282
+65284
+65286
+65288
+65290
+65292
+65293
+65294
+65295
+65306
+65308
+65311
+65312
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65382
+65383
+65393
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65506
+65509
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+126976
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127488
+127877
+127878
+127900
+127902
+127925
+127927
+127932
+127933
+127938
+127941
+127943
+127944
+127946
+127949
+127995
+128000
+128066
+128068
+128070
+128081
+128102
+128106
+128110
+128111
+128112
+128121
+128124
+128125
+128129
+128132
+128133
+128136
+128160
+128161
+128162
+128163
+128164
+128165
+128170
+128171
+128175
+128176
+128177
+128179
+128256
+128263
+128279
+128293
+128306
+128330
+128372
+128374
+128378
+128379
+128400
+128401
+128405
+128407
+128468
+128476
+128500
+128506
+128581
+128584
+128587
+128640
+128675
+128676
+128692
+128695
+128704
+128705
+128716
+128717
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129304
+129309
+129310
+129312
+129318
+129319
+129328
+129338
+129341
+129343
+129489
+129502
+131070
+131072
+196606
+196608
+262142
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+6102
+6103
+8252
+8254
+8263
+8266
+12293
+12294
+12316
+12317
+12347
+12349
+12443
+12447
+12448
+12449
+12539
+12540
+12541
+12543
+40981
+40982
+65108
+65110
+65306
+65308
+65381
+65382
+65438
+65440
+94176
+94178
+128633
+128636
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+37
+38
+162
+163
+176
+177
+1545
+1548
+1642
+1643
+2546
+2548
+2553
+2554
+3449
+3450
+8240
+8248
+8359
+8360
+8374
+8375
+8379
+8380
+8382
+8383
+8451
+8452
+8457
+8458
+43064
+43065
+65020
+65021
+65130
+65131
+65285
+65286
+65504
+65505
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+8228
+8231
+8943
+8944
+65049
+65050
+68342
+68343
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V50
+12353
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12439
+12449
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12540
+12541
+12784
+12800
+65383
+65393
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V218
+167
+169
+170
+171
+178
+180
+182
+187
+188
+191
+215
+216
+247
+248
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+8213
+8215
+8224
+8226
+8251
+8252
+8308
+8309
+8319
+8320
+8321
+8325
+8453
+8454
+8467
+8468
+8481
+8483
+8491
+8492
+8532
+8534
+8539
+8540
+8542
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8658
+8659
+8660
+8661
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+9312
+9471
+9472
+9548
+9552
+9589
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9733
+9735
+9737
+9738
+9742
+9744
+9750
+9752
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9832
+9833
+9835
+9836
+9838
+9839
+9840
+9886
+9888
+9929
+9933
+9938
+9939
+9941
+9944
+9946
+9948
+9949
+9951
+9955
+9956
+9960
+9962
+9963
+9969
+9974
+9975
+9979
+9981
+10071
+10072
+10102
+10132
+11093
+11098
+12872
+12880
+65533
+65534
+127232
+127245
+127248
+127278
+127280
+127338
+127344
+127405
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V184
+9
+10
+124
+125
+173
+174
+1418
+1419
+1470
+1471
+2404
+2406
+3674
+3676
+3851
+3852
+3892
+3893
+3967
+3968
+3973
+3974
+4030
+4032
+4050
+4051
+4170
+4172
+4961
+4962
+5120
+5121
+5760
+5761
+5867
+5870
+5941
+5943
+6100
+6102
+6104
+6105
+6106
+6107
+6148
+6150
+7002
+7004
+7005
+7009
+7227
+7232
+7294
+7296
+8192
+8199
+8200
+8203
+8208
+8209
+8210
+8212
+8231
+8232
+8278
+8279
+8280
+8284
+8285
+8288
+11514
+11517
+11519
+11520
+11632
+11633
+11790
+11798
+11799
+11800
+11801
+11802
+11818
+11822
+11824
+11826
+11827
+11829
+11836
+11839
+11840
+11842
+11843
+11850
+12288
+12289
+42238
+42240
+42509
+42510
+42511
+42512
+42739
+42744
+43214
+43216
+43310
+43312
+43463
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65792
+65795
+66463
+66464
+66512
+66513
+67671
+67672
+67871
+67872
+68176
+68184
+68336
+68342
+68409
+68416
+69703
+69705
+69822
+69826
+69952
+69956
+70085
+70087
+70088
+70089
+70109
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+70731
+70735
+70747
+70748
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+72257
+72261
+72346
+72349
+72353
+72355
+72769
+72774
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92986
+92996
+92997
+113823
+113824
+121479
+121483
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V502
+0
+9
+14
+32
+127
+133
+134
+160
+768
+847
+848
+860
+867
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7418
+7616
+7674
+7675
+7680
+8204
+8205
+8206
+8208
+8234
+8239
+8294
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12341
+12342
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43561
+43575
+43587
+43588
+43596
+43598
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+72193
+72203
+72243
+72250
+72251
+72255
+72263
+72264
+72273
+72284
+72330
+72346
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+9757
+9758
+9977
+9978
+9994
+9998
+127877
+127878
+127938
+127941
+127943
+127944
+127946
+127949
+128066
+128068
+128070
+128081
+128102
+128106
+128110
+128111
+128112
+128121
+128124
+128125
+128129
+128132
+128133
+128136
+128170
+128171
+128372
+128374
+128378
+128379
+128400
+128401
+128405
+128407
+128581
+128584
+128587
+128592
+128675
+128676
+128692
+128695
+128704
+128705
+128716
+128717
+129304
+129309
+129310
+129312
+129318
+129319
+129328
+129338
+129341
+129343
+129489
+129502
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+44
+45
+46
+47
+58
+60
+894
+895
+1417
+1418
+1548
+1550
+2040
+2041
+8260
+8261
+65040
+65041
+65043
+65045
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1442
+35
+36
+38
+39
+42
+43
+60
+63
+64
+91
+94
+123
+126
+127
+166
+167
+169
+170
+172
+173
+174
+176
+181
+182
+192
+215
+216
+247
+248
+711
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+888
+890
+894
+895
+896
+900
+907
+908
+909
+910
+930
+931
+1155
+1162
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1421
+1423
+1472
+1473
+1475
+1476
+1523
+1525
+1536
+1545
+1550
+1552
+1568
+1611
+1645
+1648
+1649
+1748
+1749
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1776
+1786
+1806
+1807
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2040
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2096
+2111
+2112
+2137
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2274
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2416
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2548
+2553
+2554
+2555
+2556
+2558
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2800
+2801
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2928
+2936
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3056
+3065
+3066
+3067
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3192
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3408
+3412
+3415
+3416
+3426
+3440
+3449
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3572
+3573
+3663
+3664
+3840
+3841
+3845
+3846
+3859
+3860
+3861
+3864
+3866
+3872
+3882
+3892
+3894
+3895
+3896
+3897
+3904
+3912
+3913
+3949
+3976
+3981
+4032
+4038
+4039
+4045
+4046
+4048
+4052
+4057
+4172
+4176
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4352
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4960
+4961
+4962
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5121
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6105
+6106
+6128
+6138
+6144
+6146
+6151
+6152
+6154
+6155
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6464
+6465
+6624
+6679
+6686
+6688
+6917
+6964
+6981
+6988
+7004
+7005
+7009
+7019
+7028
+7037
+7043
+7073
+7086
+7088
+7098
+7142
+7164
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7360
+7368
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8189
+8190
+8191
+8215
+8216
+8226
+8228
+8248
+8249
+8254
+8260
+8266
+8278
+8279
+8280
+8284
+8285
+8289
+8293
+8304
+8306
+8309
+8317
+8320
+8321
+8325
+8333
+8336
+8349
+8448
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8491
+8492
+8532
+8534
+8539
+8540
+8542
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8588
+8602
+8658
+8659
+8660
+8661
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8724
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8943
+8944
+8968
+8972
+8978
+8979
+8986
+8988
+9001
+9003
+9200
+9204
+9255
+9280
+9291
+9471
+9472
+9548
+9552
+9589
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9728
+9732
+9733
+9735
+9737
+9738
+9742
+9744
+9748
+9753
+9754
+9760
+9785
+9788
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9855
+9856
+9886
+9888
+9917
+9934
+9935
+9954
+9955
+9956
+9960
+9989
+9992
+9998
+10071
+10072
+10075
+10081
+10082
+10085
+10088
+10132
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11093
+11098
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11503
+11506
+11508
+11517
+11518
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11798
+11799
+11802
+11804
+11806
+11808
+11823
+11824
+11826
+11827
+11829
+11834
+11839
+11840
+19904
+19968
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+42739
+42752
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43052
+43056
+43064
+43065
+43066
+43072
+43124
+43138
+43188
+43250
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43359
+43360
+43396
+43443
+43457
+43463
+43466
+43470
+43471
+43472
+43486
+43488
+43520
+43561
+43584
+43587
+43588
+43596
+43612
+43613
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44003
+64256
+64263
+64275
+64280
+64297
+64298
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65021
+65022
+65136
+65141
+65142
+65277
+65512
+65519
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66045
+66176
+66205
+66208
+66257
+66273
+66300
+66304
+66340
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67672
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67872
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68160
+68168
+68184
+68185
+68192
+68256
+68288
+68325
+68331
+68336
+68352
+68406
+68416
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69635
+69688
+69705
+69710
+69714
+69734
+69763
+69808
+69819
+69822
+69840
+69865
+69891
+69927
+69968
+70003
+70004
+70005
+70006
+70007
+70019
+70067
+70081
+70085
+70087
+70088
+70089
+70090
+70093
+70094
+70106
+70107
+70108
+70109
+70113
+70133
+70144
+70162
+70163
+70188
+70202
+70203
+70205
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70735
+70736
+70749
+70750
+70784
+70832
+70852
+70856
+71040
+71087
+71110
+71113
+71128
+71132
+71168
+71216
+71235
+71237
+71296
+71339
+71840
+71904
+71914
+71923
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72256
+72257
+72262
+72263
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72794
+72813
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78424
+78430
+78466
+78467
+78470
+78474
+78713
+78716
+78895
+82944
+83406
+83408
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92986
+92996
+92997
+92998
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+121483
+121484
+124928
+125125
+125127
+125136
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+127278
+127279
+127338
+127340
+127900
+127902
+127925
+127927
+127932
+127933
+128160
+128161
+128162
+128163
+128164
+128165
+128175
+128176
+128177
+128179
+128256
+128263
+128279
+128293
+128306
+128330
+128468
+128476
+128500
+128506
+128592
+128630
+128636
+128640
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+180
+181
+712
+713
+716
+717
+735
+736
+3841
+3845
+3846
+3848
+3849
+3851
+4048
+4050
+4051
+4052
+6150
+6151
+8189
+8190
+43124
+43126
+43260
+43261
+70005
+70006
+70107
+70108
+71105
+71106
+71264
+71277
+72255
+72256
+72261
+72262
+72350
+72353
+72816
+72817
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V11
+0
+4352
+4608
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V120
+40
+41
+91
+92
+123
+124
+3898
+3899
+3900
+3901
+5787
+5788
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V59
+0
+40
+42
+91
+92
+93
+94
+123
+124
+125
+126
+3898
+3902
+5787
+5789
+8261
+8263
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11810
+11818
+12296
+12306
+12308
+12316
+65113
+65119
+65288
+65290
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V120
+41
+42
+93
+94
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65341
+65342
+65373
+65374
+65376
+65377
+65379
+65380
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+45
+46
+173
+174
+1418
+1419
+6150
+6151
+8208
+8210
+11799
+11800
+12539
+12540
+65123
+65124
+65293
+65294
+65381
+65382
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V175
+0
+167
+168
+169
+170
+174
+175
+177
+178
+188
+191
+215
+216
+247
+248
+746
+748
+4352
+4608
+5121
+5760
+6320
+6400
+8214
+8215
+8224
+8226
+8240
+8242
+8251
+8253
+8258
+8259
+8263
+8266
+8273
+8274
+8293
+8294
+8413
+8417
+8418
+8421
+8448
+8450
+8451
+8458
+8463
+8464
+8467
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8512
+8517
+8523
+8524
+8526
+8527
+8586
+8588
+8592
+8734
+8735
+8756
+8758
+8960
+8968
+8972
+8992
+8996
+9004
+9085
+9115
+9150
+9166
+9167
+9168
+9169
+9180
+9186
+9251
+9252
+9472
+9632
+9754
+9760
+10088
+10102
+10132
+11026
+11056
+11088
+11098
+11192
+11218
+11219
+11244
+11248
+11264
+11904
+42192
+43360
+43392
+44032
+55296
+57344
+64256
+65040
+65056
+65072
+65097
+65104
+65112
+65113
+65123
+65127
+65136
+65281
+65293
+65294
+65308
+65311
+65377
+65504
+65512
+65520
+65529
+65532
+65534
+67968
+68000
+71040
+71168
+72192
+72368
+77824
+78896
+82944
+83584
+94176
+101120
+110592
+110896
+110960
+111360
+118784
+119296
+119552
+119680
+120832
+121520
+126976
+129024
+129280
+129536
+131072
+196606
+196608
+262142
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+9001
+9003
+12296
+12306
+12308
+12320
+12336
+12337
+12448
+12449
+12540
+12541
+65113
+65119
+65288
+65290
+65306
+65308
+65339
+65340
+65341
+65342
+65343
+65344
+65371
+65377
+65507
+65508
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V252
+167
+168
+169
+170
+174
+175
+177
+178
+188
+191
+215
+216
+247
+248
+746
+748
+4352
+4608
+5121
+5760
+6320
+6400
+8214
+8215
+8224
+8226
+8240
+8242
+8251
+8253
+8258
+8259
+8263
+8266
+8273
+8274
+8293
+8294
+8413
+8417
+8418
+8421
+8448
+8450
+8451
+8458
+8463
+8464
+8467
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8512
+8517
+8523
+8524
+8526
+8527
+8586
+8588
+8592
+8734
+8735
+8756
+8758
+8960
+8968
+8972
+8992
+8996
+9001
+9003
+9004
+9085
+9115
+9150
+9166
+9167
+9168
+9169
+9180
+9186
+9251
+9252
+9472
+9632
+9754
+9760
+10088
+10102
+10132
+11026
+11056
+11088
+11098
+11192
+11218
+11219
+11244
+11248
+11264
+11904
+12289
+12291
+12296
+12306
+12308
+12320
+12336
+12337
+12353
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12439
+12443
+12445
+12448
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12540
+12541
+12583
+12584
+12784
+12800
+13056
+13144
+13179
+13184
+42192
+43360
+43392
+44032
+55296
+57344
+64256
+65040
+65056
+65072
+65097
+65107
+65112
+65119
+65123
+65127
+65136
+65282
+65288
+65290
+65292
+65295
+65306
+65312
+65339
+65340
+65341
+65342
+65343
+65344
+65371
+65504
+65507
+65508
+65512
+65520
+65529
+65532
+65534
+67968
+68000
+71040
+71168
+72192
+72368
+77824
+78896
+82944
+83584
+94176
+101120
+110592
+110896
+110960
+111360
+118784
+119296
+119552
+119680
+120832
+121520
+126976
+127488
+127490
+129024
+129280
+129536
+131072
+196606
+196608
+262142
+983040
+1048574
+1048576
+1114110
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V68
+12289
+12291
+12353
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12439
+12443
+12445
+12449
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12583
+12584
+12784
+12800
+13056
+13144
+13179
+13184
+65104
+65107
+65281
+65282
+65292
+65293
+65294
+65295
+65311
+65312
+127488
+127490
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+45
+46
+1418
+1419
+1470
+1471
+5120
+5121
+6150
+6151
+8208
+8214
+8275
+8276
+8315
+8316
+8331
+8332
+8722
+8723
+11799
+11800
+11802
+11803
+11834
+11836
+11840
+11841
+12316
+12317
+12336
+12337
+12448
+12449
+65073
+65075
+65112
+65113
+65123
+65124
+65293
+65294
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V222
+40
+42
+60
+61
+62
+63
+91
+92
+93
+94
+123
+124
+125
+126
+171
+172
+187
+188
+3898
+3902
+5787
+5789
+8249
+8251
+8261
+8263
+8317
+8319
+8333
+8335
+8512
+8513
+8705
+8709
+8712
+8718
+8721
+8722
+8725
+8727
+8730
+8734
+8735
+8739
+8740
+8741
+8742
+8743
+8747
+8756
+8761
+8762
+8763
+8781
+8786
+8790
+8799
+8801
+8802
+8803
+8804
+8812
+8814
+8845
+8847
+8851
+8856
+8857
+8866
+8868
+8870
+8889
+8894
+8896
+8905
+8910
+8912
+8914
+8918
+8942
+8944
+8960
+8968
+8972
+8992
+8994
+9001
+9003
+10088
+10102
+10176
+10177
+10179
+10183
+10184
+10186
+10187
+10190
+10195
+10199
+10204
+10207
+10210
+10224
+10627
+10649
+10651
+10672
+10680
+10681
+10688
+10694
+10697
+10698
+10702
+10707
+10708
+10710
+10712
+10717
+10721
+10722
+10723
+10726
+10728
+10730
+10740
+10746
+10748
+10750
+10762
+10781
+10782
+10786
+10788
+10789
+10790
+10791
+10793
+10794
+10795
+10799
+10804
+10806
+10812
+10815
+10839
+10841
+10852
+10854
+10858
+10862
+10863
+10865
+10867
+10869
+10873
+10916
+10918
+10926
+10927
+10967
+10972
+10973
+10974
+10975
+10978
+10983
+10988
+10991
+10995
+10996
+10999
+11004
+11005
+11006
+11778
+11782
+11785
+11787
+11788
+11790
+11804
+11806
+11808
+11818
+12296
+12306
+12308
+12316
+65113
+65119
+65124
+65126
+65288
+65290
+65308
+65309
+65310
+65311
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+48
+58
+65
+71
+97
+103
+65296
+65306
+65313
+65319
+65345
+65351
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1582
+32
+127
+160
+173
+174
+768
+880
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1155
+1162
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1488
+1515
+1520
+1525
+1542
+1552
+1563
+1564
+1566
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1765
+1767
+1769
+1770
+1774
+1806
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1984
+2027
+2036
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2096
+2111
+2112
+2137
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2495
+2497
+2503
+2505
+2507
+2509
+2510
+2511
+2524
+2526
+2527
+2530
+2534
+2558
+2563
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2625
+2649
+2653
+2654
+2655
+2662
+2672
+2674
+2677
+2691
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2753
+2761
+2762
+2763
+2765
+2768
+2769
+2784
+2786
+2790
+2802
+2809
+2810
+2818
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2880
+2881
+2887
+2889
+2891
+2893
+2908
+2910
+2911
+2914
+2918
+2936
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3007
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3137
+3141
+3160
+3163
+3168
+3170
+3174
+3184
+3192
+3201
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3263
+3264
+3266
+3267
+3269
+3271
+3273
+3274
+3276
+3294
+3295
+3296
+3298
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3391
+3393
+3398
+3401
+3402
+3405
+3406
+3408
+3412
+3415
+3416
+3426
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3536
+3538
+3544
+3551
+3558
+3568
+3570
+3573
+3585
+3633
+3634
+3636
+3647
+3655
+3663
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3792
+3802
+3804
+3808
+3840
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3912
+3913
+3949
+3967
+3968
+3973
+3974
+3976
+3981
+4030
+4038
+4039
+4045
+4046
+4059
+4096
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4960
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5941
+5943
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6112
+6122
+6128
+6138
+6144
+6155
+6160
+6170
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6679
+6681
+6683
+6686
+6742
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6771
+6784
+6794
+6800
+6810
+6816
+6830
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6988
+6992
+7019
+7028
+7037
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7164
+7212
+7220
+7222
+7227
+7242
+7245
+7305
+7360
+7368
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8208
+8232
+8239
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11503
+11506
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12330
+12336
+12352
+12353
+12439
+12443
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+42744
+42752
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43052
+43056
+43066
+43072
+43128
+43136
+43204
+43214
+43226
+43250
+43262
+43264
+43302
+43310
+43335
+43346
+43348
+43359
+43389
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43470
+43471
+43482
+43486
+43493
+43494
+43519
+43520
+43561
+43567
+43569
+43571
+43573
+43584
+43587
+43588
+43596
+43597
+43598
+43600
+43610
+43612
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43756
+43758
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44005
+44006
+44008
+44009
+44013
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65281
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66045
+66176
+66205
+66208
+66257
+66273
+66300
+66304
+66340
+66349
+66379
+66384
+66422
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68160
+68168
+68176
+68185
+68192
+68256
+68288
+68325
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69633
+69634
+69688
+69703
+69710
+69714
+69744
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69826
+69840
+69865
+69872
+69882
+69891
+69927
+69932
+69933
+69942
+69956
+69968
+70003
+70004
+70007
+70018
+70070
+70079
+70090
+70093
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70367
+70368
+70371
+70384
+70394
+70402
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70463
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70493
+70500
+70656
+70712
+70720
+70722
+70725
+70726
+70727
+70746
+70747
+70748
+70749
+70750
+70784
+70832
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+70852
+70856
+70864
+70874
+71040
+71087
+71088
+71090
+71096
+71100
+71102
+71103
+71105
+71132
+71168
+71219
+71227
+71229
+71230
+71231
+71233
+71237
+71248
+71258
+71264
+71277
+71296
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71360
+71370
+71424
+71450
+71456
+71458
+71462
+71463
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72272
+72273
+72279
+72281
+72284
+72324
+72326
+72330
+72343
+72344
+72346
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72752
+72766
+72767
+72768
+72774
+72784
+72813
+72816
+72848
+72873
+72874
+72881
+72882
+72884
+72885
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92917
+92918
+92928
+92976
+92983
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113821
+113823
+113824
+118784
+119030
+119040
+119079
+119081
+119141
+119142
+119143
+119146
+119150
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121484
+124928
+125125
+125127
+125136
+125184
+125252
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V56
+33
+48
+58
+65
+91
+95
+96
+97
+123
+127
+161
+168
+169
+170
+171
+173
+174
+175
+176
+178
+182
+183
+187
+188
+191
+192
+215
+216
+247
+248
+8208
+8232
+8240
+8255
+8257
+8276
+8277
+8287
+8592
+9312
+9472
+10102
+10132
+11264
+11776
+11904
+12289
+12292
+12296
+12321
+12336
+12337
+64830
+64832
+65093
+65095
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+12294
+12296
+12321
+12330
+12344
+12347
+13312
+19894
+19968
+40939
+63744
+64110
+64112
+64218
+94208
+100333
+100352
+101107
+110960
+111356
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V95
+2160
+2208
+7312
+7360
+12256
+12272
+66048
+66176
+66528
+66560
+66928
+67072
+67456
+67584
+67760
+67808
+67904
+67968
+68256
+68288
+68528
+68608
+68688
+68736
+68864
+69216
+69248
+69632
+70224
+70272
+70528
+70656
+70880
+71040
+71376
+71424
+71488
+71840
+71936
+72192
+72368
+72384
+72448
+72704
+72896
+72960
+73056
+73728
+75088
+77824
+78896
+82944
+83584
+92160
+92784
+92880
+93072
+93952
+94112
+94176
+101120
+110592
+110896
+110960
+111360
+113664
+113840
+118784
+119376
+119552
+119680
+119808
+121520
+122880
+122928
+124928
+125152
+125184
+125280
+126464
+126720
+126976
+129536
+131072
+173792
+173824
+191472
+194560
+195104
+917504
+917632
+917760
+918000
+983040
+1114112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V462
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+308
+312
+313
+319
+323
+329
+332
+338
+340
+358
+360
+383
+416
+418
+431
+433
+461
+477
+478
+484
+486
+497
+500
+502
+504
+540
+542
+544
+550
+564
+832
+834
+835
+837
+884
+885
+894
+895
+901
+907
+908
+909
+910
+913
+938
+945
+970
+975
+979
+981
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1570
+1575
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7680
+7834
+7835
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8129
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+10972
+10973
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12446
+12447
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12543
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V463
+0
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+308
+312
+313
+319
+323
+329
+332
+338
+340
+358
+360
+383
+416
+418
+431
+433
+461
+477
+478
+484
+486
+497
+500
+502
+504
+540
+542
+544
+550
+564
+832
+834
+835
+837
+884
+885
+894
+895
+901
+907
+908
+909
+910
+913
+938
+945
+970
+975
+979
+981
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1570
+1575
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7680
+7834
+7835
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8129
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+10972
+10973
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12446
+12447
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12543
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V88
+34
+35
+39
+42
+91
+92
+93
+94
+123
+124
+125
+126
+171
+172
+187
+188
+3898
+3902
+5787
+5789
+8216
+8224
+8249
+8251
+8261
+8263
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10075
+10081
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11776
+11790
+11804
+11806
+11808
+11818
+11842
+11843
+12296
+12306
+12308
+12316
+12317
+12320
+64830
+64832
+65047
+65049
+65077
+65093
+65095
+65097
+65113
+65119
+65288
+65290
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+128630
+128633
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+2274
+2275
+6158
+6159
+8203
+8204
+8206
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V532
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7418
+7616
+7674
+7675
+7680
+8204
+8206
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65438
+65440
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+72193
+72203
+72243
+72250
+72251
+72255
+72263
+72264
+72273
+72284
+72330
+72346
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1523
+0
+9
+14
+32
+35
+39
+42
+44
+47
+48
+59
+63
+64
+65
+92
+93
+94
+97
+124
+125
+126
+133
+134
+160
+161
+170
+172
+173
+174
+181
+182
+186
+188
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1373
+1374
+1377
+1416
+1417
+1418
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1524
+1536
+1542
+1548
+1550
+1552
+1563
+1564
+1565
+1567
+1642
+1643
+1645
+1646
+1758
+1759
+1769
+1770
+1789
+1791
+1795
+1807
+1867
+1869
+1970
+1984
+2038
+2040
+2043
+2048
+2094
+2112
+2140
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4172
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4962
+4963
+4967
+4969
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5742
+5789
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6146
+6148
+6152
+6154
+6155
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6828
+6832
+6847
+6912
+6988
+6992
+7004
+7006
+7008
+7019
+7028
+7040
+7156
+7168
+7224
+7227
+7229
+7232
+7242
+7245
+7305
+7376
+7379
+7380
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8192
+8208
+8211
+8213
+8216
+8224
+8228
+8229
+8232
+8240
+8249
+8251
+8252
+8254
+8261
+8266
+8287
+8293
+8294
+8304
+8305
+8306
+8317
+8320
+8333
+8335
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+8968
+8972
+9001
+9003
+9398
+9450
+10075
+10081
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11790
+11804
+11806
+11808
+11818
+11822
+11824
+11836
+11837
+11842
+11843
+12288
+12291
+12293
+12306
+12308
+12316
+12317
+12320
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42239
+42509
+42510
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42739
+42740
+42743
+42744
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43048
+43072
+43124
+43126
+43128
+43136
+43206
+43214
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43311
+43348
+43360
+43389
+43392
+43457
+43464
+43466
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43613
+43639
+43642
+43715
+43739
+43742
+43744
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65042
+65043
+65044
+65047
+65049
+65056
+65072
+65073
+65075
+65077
+65093
+65095
+65097
+65104
+65107
+65109
+65119
+65123
+65124
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65282
+65288
+65290
+65292
+65295
+65306
+65307
+65311
+65312
+65313
+65340
+65341
+65342
+65345
+65372
+65373
+65374
+65375
+65381
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65529
+65532
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68182
+68184
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69705
+69734
+69744
+69759
+69819
+69821
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69953
+69956
+69968
+70004
+70006
+70007
+70016
+70087
+70090
+70094
+70096
+70107
+70108
+70109
+70110
+70112
+70144
+70162
+70163
+70202
+70203
+70205
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70733
+70736
+70746
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71106
+71108
+71113
+71134
+71168
+71235
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71484
+71487
+71840
+71914
+71935
+71936
+72192
+72255
+72258
+72260
+72263
+72264
+72272
+72324
+72326
+72346
+72347
+72349
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72771
+72784
+72794
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92985
+92992
+92997
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121480
+121481
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125136
+125143
+125184
+125259
+125264
+125274
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+128630
+128633
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V964
+443
+444
+448
+452
+660
+661
+697
+704
+710
+722
+748
+749
+750
+751
+884
+885
+1369
+1370
+1488
+1515
+1520
+1524
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6277
+6279
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+8501
+8505
+8576
+8579
+8581
+8585
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42606
+42607
+42623
+42624
+42656
+42736
+42775
+42784
+42888
+42889
+42895
+42896
+42999
+43000
+43003
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66640
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1270
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8072
+8080
+8088
+8096
+8104
+8112
+8120
+8125
+8136
+8141
+8152
+8156
+8168
+8173
+8184
+8189
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+125184
+125218
+127280
+127306
+127312
+127338
+127344
+127370
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+44
+46
+58
+59
+1373
+1374
+1548
+1550
+2040
+2041
+6146
+6147
+6152
+6153
+8211
+8213
+12289
+12290
+65040
+65042
+65043
+65044
+65073
+65075
+65104
+65106
+65109
+65110
+65112
+65113
+65123
+65124
+65292
+65294
+65306
+65307
+65380
+65381
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V110
+48
+58
+1632
+1642
+1643
+1645
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+72784
+72794
+73040
+73050
+92768
+92778
+93008
+93018
+120782
+120832
+125264
+125274
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V130
+33
+34
+63
+64
+1417
+1418
+1567
+1568
+1748
+1749
+1792
+1795
+2041
+2042
+2404
+2406
+4170
+4172
+4962
+4963
+4967
+4969
+5742
+5743
+5941
+5943
+6147
+6148
+6153
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7006
+7008
+7227
+7229
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+12290
+12291
+42239
+42240
+42510
+42512
+42739
+42740
+42743
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43464
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65110
+65112
+65281
+65282
+65311
+65312
+65377
+65378
+68182
+68184
+69703
+69705
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+70731
+70733
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+72258
+72260
+72347
+72349
+72769
+72771
+92782
+92784
+92917
+92918
+92983
+92985
+92996
+92997
+113823
+113824
+121480
+121481
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+46
+47
+8228
+8229
+65106
+65107
+65294
+65295
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+9
+10
+11
+13
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1278
+97
+123
+170
+171
+181
+182
+186
+187
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+697
+704
+706
+736
+741
+881
+882
+883
+884
+887
+888
+890
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7296
+7305
+7424
+7616
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8305
+8306
+8319
+8320
+8336
+8349
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42654
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+66776
+66812
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+125218
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+105
+107
+303
+304
+585
+586
+616
+617
+669
+670
+690
+691
+1011
+1012
+1110
+1111
+1112
+1113
+7522
+7523
+7574
+7575
+7588
+7589
+7592
+7593
+7725
+7726
+7883
+7884
+8305
+8306
+8520
+8522
+11388
+11389
+119842
+119844
+119894
+119896
+119946
+119948
+119998
+120000
+120050
+120052
+120102
+120104
+120154
+120156
+120206
+120208
+120258
+120260
+120310
+120312
+120362
+120364
+120414
+120416
+120466
+120468
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V377
+0
+48
+58
+178
+180
+185
+186
+188
+191
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2548
+2554
+2662
+2672
+2790
+2800
+2918
+2928
+2930
+2936
+3046
+3059
+3174
+3184
+3192
+3199
+3302
+3312
+3416
+3423
+3430
+3449
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+4969
+4989
+5870
+5873
+6112
+6122
+6128
+6138
+6160
+6170
+6470
+6480
+6608
+6619
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8579
+8581
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13317
+13318
+13443
+13444
+14378
+14379
+15181
+15182
+19968
+19969
+19971
+19972
+19975
+19976
+19977
+19978
+20061
+20062
+20108
+20109
+20116
+20117
+20118
+20119
+20159
+20161
+20191
+20192
+20200
+20201
+20237
+20238
+20336
+20337
+20740
+20741
+20806
+20807
+20841
+20842
+20843
+20844
+20845
+20846
+21313
+21314
+21315
+21318
+21324
+21325
+21441
+21445
+22235
+22236
+22769
+22770
+22777
+22778
+24186
+24187
+24318
+24320
+24332
+24335
+24336
+24337
+25342
+25343
+25420
+25421
+26578
+26579
+28422
+28423
+29590
+29591
+30334
+30335
+32902
+32903
+33836
+33837
+36014
+36015
+36019
+36020
+36144
+36145
+38433
+38434
+38470
+38471
+38476
+38477
+38520
+38521
+38646
+38647
+42528
+42538
+42726
+42736
+43056
+43062
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+63851
+63852
+63859
+63860
+63864
+63865
+63922
+63923
+63953
+63954
+63955
+63956
+63997
+63998
+65296
+65306
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+66720
+66730
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+71904
+71923
+72784
+72813
+73040
+73050
+74752
+74863
+92768
+92778
+93008
+93018
+93019
+93026
+119648
+119666
+120782
+120832
+125127
+125136
+125264
+125274
+127232
+127245
+131073
+131074
+131172
+131173
+131298
+131299
+131361
+131362
+133418
+133419
+133507
+133508
+133516
+133517
+133532
+133533
+133866
+133867
+133885
+133886
+133913
+133914
+140176
+140177
+141720
+141721
+146203
+146204
+156269
+156270
+194704
+194705
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+178
+180
+185
+186
+4969
+4978
+6618
+6619
+8304
+8305
+8308
+8314
+8320
+8330
+9312
+9321
+9332
+9341
+9352
+9361
+9450
+9451
+9461
+9470
+9471
+9472
+10102
+10111
+10112
+10121
+10122
+10131
+68160
+68164
+69216
+69225
+69714
+69723
+127232
+127243
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V280
+188
+191
+2548
+2554
+2930
+2936
+3056
+3059
+3192
+3199
+3416
+3423
+3440
+3449
+3882
+3892
+4978
+4989
+5870
+5873
+6128
+6138
+8528
+8579
+8581
+8586
+9321
+9332
+9341
+9352
+9361
+9372
+9451
+9461
+9470
+9471
+10111
+10112
+10121
+10122
+10131
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13317
+13318
+13443
+13444
+14378
+14379
+15181
+15182
+19968
+19969
+19971
+19972
+19975
+19976
+19977
+19978
+20061
+20062
+20108
+20109
+20116
+20117
+20118
+20119
+20159
+20161
+20191
+20192
+20200
+20201
+20237
+20238
+20336
+20337
+20740
+20741
+20806
+20807
+20841
+20842
+20843
+20844
+20845
+20846
+21313
+21314
+21315
+21318
+21324
+21325
+21441
+21445
+22235
+22236
+22769
+22770
+22777
+22778
+24186
+24187
+24318
+24320
+24332
+24335
+24336
+24337
+25342
+25343
+25420
+25421
+26578
+26579
+28422
+28423
+29590
+29591
+30334
+30335
+32902
+32903
+33836
+33837
+36014
+36015
+36019
+36020
+36144
+36145
+38433
+38434
+38470
+38471
+38476
+38477
+38520
+38521
+38646
+38647
+42726
+42736
+43056
+43062
+63851
+63852
+63859
+63860
+63864
+63865
+63922
+63923
+63953
+63954
+63955
+63956
+63997
+63998
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68164
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69225
+69247
+69723
+69734
+70113
+70133
+71482
+71484
+71914
+71923
+72794
+72813
+74752
+74863
+93019
+93026
+119648
+119666
+125127
+125136
+127243
+127245
+131073
+131074
+131172
+131173
+131298
+131299
+131361
+131362
+133418
+133419
+133507
+133508
+133516
+133517
+133532
+133533
+133866
+133867
+133885
+133886
+133913
+133914
+140176
+140177
+141720
+141721
+146203
+146204
+156269
+156270
+194704
+194705
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1280
+97
+123
+170
+171
+181
+182
+186
+187
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+697
+704
+706
+736
+741
+837
+838
+881
+882
+883
+884
+887
+888
+890
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7296
+7305
+7424
+7616
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8305
+8306
+8319
+8320
+8336
+8349
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42654
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+66776
+66812
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+125218
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65512
+65519
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V372
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+890
+891
+900
+901
+976
+979
+981
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3959
+3960
+3961
+3962
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7835
+8125
+8126
+8127
+8129
+8190
+8191
+8194
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8488
+8489
+8492
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9312
+9451
+10764
+10765
+10868
+10871
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+64256
+64263
+64275
+64280
+64288
+64298
+64335
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V196
+64336
+64337
+64338
+64339
+64342
+64343
+64346
+64347
+64350
+64351
+64354
+64355
+64358
+64359
+64362
+64363
+64366
+64367
+64370
+64371
+64374
+64375
+64378
+64379
+64382
+64383
+64386
+64387
+64388
+64389
+64390
+64391
+64392
+64393
+64394
+64395
+64396
+64397
+64398
+64399
+64402
+64403
+64406
+64407
+64410
+64411
+64414
+64415
+64416
+64417
+64420
+64421
+64422
+64423
+64426
+64427
+64430
+64431
+64432
+64433
+64467
+64468
+64471
+64472
+64473
+64474
+64475
+64476
+64477
+64479
+64480
+64481
+64482
+64483
+64484
+64485
+64490
+64491
+64492
+64493
+64494
+64495
+64496
+64497
+64498
+64499
+64500
+64501
+64502
+64503
+64505
+64506
+64508
+64509
+64512
+64612
+64757
+64785
+64829
+64830
+65008
+65021
+65136
+65137
+65138
+65139
+65140
+65141
+65142
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65152
+65154
+65155
+65156
+65157
+65158
+65159
+65160
+65161
+65162
+65165
+65166
+65167
+65168
+65171
+65172
+65173
+65174
+65177
+65178
+65181
+65182
+65185
+65186
+65189
+65190
+65193
+65194
+65195
+65196
+65197
+65198
+65199
+65200
+65201
+65202
+65205
+65206
+65209
+65210
+65213
+65214
+65217
+65218
+65221
+65222
+65225
+65226
+65229
+65230
+65233
+65234
+65237
+65238
+65241
+65242
+65245
+65246
+65249
+65250
+65253
+65254
+65257
+65258
+65261
+65262
+65263
+65264
+65265
+65266
+65269
+65270
+65271
+65272
+65273
+65274
+65275
+65276
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V108
+64341
+64342
+64345
+64346
+64349
+64350
+64353
+64354
+64357
+64358
+64361
+64362
+64365
+64366
+64369
+64370
+64373
+64374
+64377
+64378
+64381
+64382
+64385
+64386
+64401
+64402
+64405
+64406
+64409
+64410
+64413
+64414
+64419
+64420
+64425
+64426
+64429
+64430
+64470
+64471
+64487
+64488
+64489
+64490
+64511
+64512
+64735
+64757
+64820
+64828
+65137
+65138
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65152
+65164
+65165
+65170
+65171
+65176
+65177
+65180
+65181
+65184
+65185
+65188
+65189
+65192
+65193
+65204
+65205
+65208
+65209
+65212
+65213
+65216
+65217
+65220
+65221
+65224
+65225
+65228
+65229
+65232
+65233
+65236
+65237
+65240
+65241
+65244
+65245
+65248
+65249
+65252
+65253
+65256
+65257
+65260
+65261
+65268
+65269
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V148
+168
+169
+175
+176
+180
+182
+184
+185
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+728
+734
+890
+891
+900
+901
+976
+979
+981
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+3635
+3636
+3763
+3764
+3804
+3806
+3959
+3960
+3961
+3962
+7834
+7835
+8125
+8126
+8127
+8129
+8190
+8191
+8194
+8199
+8200
+8203
+8215
+8216
+8228
+8231
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8360
+8361
+8448
+8450
+8451
+8452
+8453
+8456
+8457
+8458
+8470
+8471
+8481
+8482
+8501
+8505
+8507
+8508
+8544
+8576
+8748
+8750
+8751
+8753
+9332
+9398
+10764
+10765
+10868
+10871
+11935
+11936
+12019
+12020
+12032
+12246
+12342
+12343
+12344
+12347
+12443
+12445
+12593
+12687
+12800
+12831
+12832
+12868
+12992
+13004
+13144
+13169
+13280
+13311
+64256
+64263
+64275
+64280
+64335
+64336
+65097
+65104
+127232
+127243
+127248
+127275
+127552
+127561
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V226
+64337
+64338
+64339
+64340
+64343
+64344
+64347
+64348
+64351
+64352
+64355
+64356
+64359
+64360
+64363
+64364
+64367
+64368
+64371
+64372
+64375
+64376
+64379
+64380
+64383
+64384
+64387
+64388
+64389
+64390
+64391
+64392
+64393
+64394
+64395
+64396
+64397
+64398
+64399
+64400
+64403
+64404
+64407
+64408
+64411
+64412
+64415
+64416
+64417
+64418
+64421
+64422
+64423
+64424
+64427
+64428
+64431
+64432
+64433
+64434
+64468
+64469
+64472
+64473
+64474
+64475
+64476
+64477
+64479
+64480
+64481
+64482
+64483
+64484
+64485
+64486
+64491
+64492
+64493
+64494
+64495
+64496
+64497
+64498
+64499
+64500
+64501
+64502
+64503
+64504
+64506
+64507
+64509
+64510
+64612
+64663
+64785
+64813
+64828
+64829
+64849
+64850
+64856
+64857
+64858
+64860
+64862
+64864
+64866
+64867
+64868
+64869
+64870
+64872
+64873
+64875
+64876
+64877
+64878
+64880
+64881
+64882
+64884
+64887
+64888
+64893
+64894
+64899
+64900
+64902
+64903
+64904
+64907
+64908
+64918
+64920
+64921
+64925
+64926
+64948
+64950
+64952
+64953
+64954
+64955
+64963
+64966
+64968
+65154
+65155
+65156
+65157
+65158
+65159
+65160
+65161
+65162
+65163
+65166
+65167
+65168
+65169
+65172
+65173
+65174
+65175
+65178
+65179
+65182
+65183
+65186
+65187
+65190
+65191
+65194
+65195
+65196
+65197
+65198
+65199
+65200
+65201
+65202
+65203
+65206
+65207
+65210
+65211
+65214
+65215
+65218
+65219
+65222
+65223
+65226
+65227
+65230
+65231
+65234
+65235
+65238
+65239
+65242
+65243
+65246
+65247
+65250
+65251
+65254
+65255
+65258
+65259
+65262
+65263
+65264
+65265
+65266
+65267
+65270
+65271
+65272
+65273
+65274
+65275
+65276
+65277
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+9312
+9332
+9398
+9451
+12868
+12872
+12881
+12927
+12928
+12992
+13008
+13055
+127275
+127279
+127568
+127570
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+170
+171
+178
+180
+185
+187
+688
+697
+736
+741
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7522
+7544
+7545
+7579
+7616
+8304
+8306
+8308
+8320
+8480
+8481
+8482
+8483
+11389
+11390
+11631
+11632
+12690
+12704
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+127338
+127340
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V150
+64340
+64341
+64344
+64345
+64348
+64349
+64352
+64353
+64356
+64357
+64360
+64361
+64364
+64365
+64368
+64369
+64372
+64373
+64376
+64377
+64380
+64381
+64384
+64385
+64400
+64401
+64404
+64405
+64408
+64409
+64412
+64413
+64418
+64419
+64424
+64425
+64428
+64429
+64469
+64470
+64486
+64487
+64488
+64489
+64504
+64505
+64507
+64508
+64510
+64511
+64663
+64735
+64813
+64820
+64848
+64849
+64850
+64856
+64857
+64858
+64860
+64862
+64864
+64866
+64867
+64868
+64869
+64870
+64872
+64873
+64875
+64876
+64877
+64878
+64880
+64881
+64882
+64884
+64887
+64888
+64893
+64894
+64899
+64900
+64902
+64903
+64904
+64907
+64908
+64912
+64914
+64918
+64920
+64921
+64925
+64926
+64948
+64950
+64952
+64953
+64954
+64955
+64963
+64966
+65163
+65164
+65169
+65170
+65175
+65176
+65179
+65180
+65183
+65184
+65187
+65188
+65191
+65192
+65203
+65204
+65207
+65208
+65211
+65212
+65215
+65216
+65219
+65220
+65223
+65224
+65227
+65228
+65231
+65232
+65235
+65236
+65239
+65240
+65243
+65244
+65247
+65248
+65251
+65252
+65255
+65256
+65259
+65260
+65267
+65268
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V134
+8450
+8451
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8488
+8489
+8492
+8494
+8495
+8498
+8499
+8501
+8505
+8506
+8508
+8513
+8517
+8522
+64288
+64298
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+160
+161
+3852
+3853
+8199
+8200
+8209
+8210
+8239
+8240
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+12447
+12448
+12543
+12544
+65040
+65050
+65072
+65093
+65095
+65097
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+12880
+12881
+13004
+13008
+13056
+13144
+13169
+13280
+13311
+13312
+127280
+127312
+127376
+127377
+127488
+127491
+127504
+127548
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+7522
+7531
+8320
+8335
+8336
+8349
+11388
+11389
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V82
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+834
+835
+837
+838
+1619
+1622
+2364
+2365
+2494
+2495
+2519
+2520
+2878
+2879
+2902
+2904
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+4142
+4143
+4449
+4470
+4520
+4547
+6965
+6966
+12441
+12443
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V223
+0
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+832
+838
+884
+885
+894
+895
+903
+904
+1619
+1622
+2364
+2365
+2392
+2400
+2494
+2495
+2519
+2520
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2878
+2879
+2902
+2904
+2908
+2910
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4142
+4143
+4449
+4470
+4520
+4547
+6965
+6966
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8126
+8127
+8137
+8138
+8139
+8140
+8147
+8148
+8155
+8156
+8163
+8164
+8171
+8172
+8174
+8176
+8185
+8186
+8187
+8188
+8189
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+9001
+9003
+10972
+10973
+12441
+12443
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+119134
+119141
+119227
+119233
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+820
+825
+7380
+7381
+7394
+7401
+8402
+8404
+8408
+8411
+8421
+8423
+8426
+8428
+68153
+68154
+92912
+92917
+113822
+113823
+119143
+119146
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V220
+768
+789
+829
+837
+838
+839
+842
+845
+848
+851
+855
+856
+859
+860
+867
+880
+1155
+1160
+1426
+1430
+1431
+1434
+1436
+1442
+1448
+1450
+1451
+1453
+1455
+1456
+1476
+1477
+1552
+1560
+1619
+1621
+1623
+1628
+1629
+1631
+1750
+1757
+1759
+1763
+1764
+1765
+1767
+1769
+1771
+1773
+1840
+1841
+1842
+1844
+1845
+1847
+1850
+1851
+1853
+1854
+1855
+1858
+1859
+1860
+1861
+1862
+1863
+1864
+1865
+1867
+2027
+2034
+2035
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2260
+2274
+2276
+2278
+2279
+2281
+2282
+2285
+2291
+2294
+2295
+2297
+2299
+2304
+2385
+2386
+2387
+2389
+3970
+3972
+3974
+3976
+4957
+4960
+6109
+6110
+6458
+6459
+6679
+6680
+6773
+6781
+6832
+6837
+6843
+6845
+7019
+7020
+7021
+7028
+7376
+7379
+7386
+7388
+7392
+7393
+7412
+7413
+7416
+7418
+7616
+7618
+7619
+7626
+7627
+7629
+7633
+7670
+7675
+7676
+7678
+7679
+8400
+8402
+8404
+8408
+8411
+8413
+8417
+8418
+8423
+8424
+8425
+8426
+8432
+8433
+11503
+11506
+11744
+11776
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43232
+43250
+43696
+43697
+43698
+43700
+43703
+43705
+43710
+43712
+43713
+43714
+65056
+65063
+65070
+65072
+66422
+66427
+68111
+68112
+68152
+68153
+68325
+68326
+69888
+69891
+70502
+70509
+70512
+70517
+92976
+92983
+119173
+119178
+119210
+119214
+119362
+119365
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125252
+125258
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V96
+2381
+2382
+2509
+2510
+2637
+2638
+2765
+2766
+2893
+2894
+3021
+3022
+3149
+3150
+3277
+3278
+3387
+3389
+3405
+3406
+3530
+3531
+3642
+3643
+3972
+3973
+4153
+4155
+5908
+5909
+5940
+5941
+6098
+6099
+6752
+6753
+6980
+6981
+7082
+7084
+7154
+7156
+11647
+11648
+43014
+43015
+43204
+43205
+43347
+43348
+43456
+43457
+43766
+43767
+44013
+44014
+68159
+68160
+69702
+69703
+69759
+69760
+69817
+69818
+69939
+69941
+70080
+70081
+70197
+70198
+70378
+70379
+70477
+70478
+70722
+70723
+70850
+70851
+71103
+71104
+71231
+71232
+71350
+71351
+71467
+71468
+72244
+72245
+72263
+72264
+72345
+72346
+72767
+72768
+73028
+73030
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+860
+861
+863
+864
+866
+867
+7676
+7677
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1434
+1435
+1453
+1454
+6457
+6458
+12333
+12334
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+789
+790
+794
+795
+856
+857
+7670
+7671
+12332
+12333
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+795
+796
+3897
+3898
+119141
+119143
+119150
+119155
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V337
+0
+768
+847
+848
+880
+1155
+1160
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2304
+2364
+2365
+2381
+2382
+2385
+2389
+2492
+2493
+2509
+2510
+2620
+2621
+2637
+2638
+2748
+2749
+2765
+2766
+2876
+2877
+2893
+2894
+3021
+3022
+3149
+3150
+3157
+3159
+3260
+3261
+3277
+3278
+3387
+3389
+3405
+3406
+3530
+3531
+3640
+3643
+3656
+3660
+3768
+3770
+3784
+3788
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3955
+3956
+3957
+3962
+3966
+3968
+3969
+3970
+3973
+3974
+3976
+4038
+4039
+4151
+4152
+4153
+4155
+4237
+4238
+4957
+4960
+5908
+5909
+5940
+5941
+6098
+6099
+6109
+6110
+6313
+6314
+6457
+6460
+6679
+6681
+6752
+6753
+6773
+6781
+6783
+6784
+6832
+6846
+6964
+6965
+6980
+6981
+7019
+7028
+7082
+7084
+7142
+7143
+7154
+7156
+7223
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8400
+8413
+8417
+8418
+8421
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43014
+43015
+43204
+43205
+43232
+43250
+43307
+43310
+43347
+43348
+43443
+43444
+43456
+43457
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43766
+43767
+44013
+44014
+64286
+64287
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68109
+68110
+68111
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69702
+69703
+69759
+69760
+69817
+69819
+69888
+69891
+69939
+69941
+70003
+70004
+70080
+70081
+70090
+70091
+70197
+70199
+70377
+70379
+70460
+70461
+70477
+70478
+70502
+70509
+70512
+70517
+70722
+70723
+70726
+70727
+70850
+70852
+71103
+71105
+71231
+71232
+71350
+71352
+71467
+71468
+72244
+72245
+72263
+72264
+72345
+72346
+72767
+72768
+73026
+73027
+73028
+73030
+92912
+92917
+92976
+92983
+113822
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V46
+2364
+2365
+2492
+2493
+2620
+2621
+2748
+2749
+2876
+2877
+3260
+3261
+4151
+4152
+6964
+6965
+7142
+7143
+7223
+7224
+43443
+43444
+69818
+69819
+70003
+70004
+70090
+70091
+70198
+70199
+70377
+70378
+70460
+70461
+70726
+70727
+70851
+70852
+71104
+71105
+71351
+71352
+73026
+73027
+125258
+125259
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V144
+790
+794
+796
+801
+803
+807
+809
+820
+825
+829
+839
+842
+845
+847
+851
+855
+857
+859
+1425
+1426
+1430
+1431
+1435
+1436
+1442
+1448
+1450
+1451
+1477
+1478
+1621
+1623
+1628
+1629
+1631
+1632
+1763
+1764
+1770
+1771
+1773
+1774
+1841
+1842
+1844
+1845
+1847
+1850
+1851
+1853
+1854
+1855
+1858
+1859
+1860
+1861
+1862
+1863
+1864
+1865
+2034
+2035
+2137
+2140
+2275
+2276
+2278
+2279
+2281
+2282
+2285
+2288
+2294
+2295
+2297
+2299
+2386
+2387
+3864
+3866
+3893
+3894
+3895
+3896
+4038
+4039
+4237
+4238
+6459
+6460
+6680
+6681
+6783
+6784
+6837
+6843
+6845
+6846
+7020
+7021
+7381
+7386
+7388
+7392
+7405
+7406
+7618
+7619
+7626
+7627
+7631
+7632
+7673
+7674
+7677
+7678
+7679
+7680
+8424
+8425
+8428
+8432
+43307
+43310
+43700
+43701
+65063
+65070
+66045
+66046
+66272
+66273
+68109
+68110
+68154
+68155
+68326
+68327
+119163
+119171
+119178
+119180
+125136
+125143
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1454
+1455
+6313
+6314
+7671
+7673
+12331
+12332
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+1536
+1542
+1757
+1758
+1807
+1808
+2274
+2275
+3406
+3407
+69821
+69822
+70082
+70084
+72250
+72251
+72326
+72330
+73030
+73031
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+0
+10
+11
+13
+14
+32
+127
+160
+173
+174
+1564
+1565
+6158
+6159
+8203
+8204
+8206
+8208
+8232
+8239
+8288
+8304
+55296
+57344
+65279
+65280
+65520
+65532
+113824
+113828
+119155
+119163
+917504
+917536
+917632
+917760
+918000
+921600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V798
+44033
+44060
+44061
+44088
+44089
+44116
+44117
+44144
+44145
+44172
+44173
+44200
+44201
+44228
+44229
+44256
+44257
+44284
+44285
+44312
+44313
+44340
+44341
+44368
+44369
+44396
+44397
+44424
+44425
+44452
+44453
+44480
+44481
+44508
+44509
+44536
+44537
+44564
+44565
+44592
+44593
+44620
+44621
+44648
+44649
+44676
+44677
+44704
+44705
+44732
+44733
+44760
+44761
+44788
+44789
+44816
+44817
+44844
+44845
+44872
+44873
+44900
+44901
+44928
+44929
+44956
+44957
+44984
+44985
+45012
+45013
+45040
+45041
+45068
+45069
+45096
+45097
+45124
+45125
+45152
+45153
+45180
+45181
+45208
+45209
+45236
+45237
+45264
+45265
+45292
+45293
+45320
+45321
+45348
+45349
+45376
+45377
+45404
+45405
+45432
+45433
+45460
+45461
+45488
+45489
+45516
+45517
+45544
+45545
+45572
+45573
+45600
+45601
+45628
+45629
+45656
+45657
+45684
+45685
+45712
+45713
+45740
+45741
+45768
+45769
+45796
+45797
+45824
+45825
+45852
+45853
+45880
+45881
+45908
+45909
+45936
+45937
+45964
+45965
+45992
+45993
+46020
+46021
+46048
+46049
+46076
+46077
+46104
+46105
+46132
+46133
+46160
+46161
+46188
+46189
+46216
+46217
+46244
+46245
+46272
+46273
+46300
+46301
+46328
+46329
+46356
+46357
+46384
+46385
+46412
+46413
+46440
+46441
+46468
+46469
+46496
+46497
+46524
+46525
+46552
+46553
+46580
+46581
+46608
+46609
+46636
+46637
+46664
+46665
+46692
+46693
+46720
+46721
+46748
+46749
+46776
+46777
+46804
+46805
+46832
+46833
+46860
+46861
+46888
+46889
+46916
+46917
+46944
+46945
+46972
+46973
+47000
+47001
+47028
+47029
+47056
+47057
+47084
+47085
+47112
+47113
+47140
+47141
+47168
+47169
+47196
+47197
+47224
+47225
+47252
+47253
+47280
+47281
+47308
+47309
+47336
+47337
+47364
+47365
+47392
+47393
+47420
+47421
+47448
+47449
+47476
+47477
+47504
+47505
+47532
+47533
+47560
+47561
+47588
+47589
+47616
+47617
+47644
+47645
+47672
+47673
+47700
+47701
+47728
+47729
+47756
+47757
+47784
+47785
+47812
+47813
+47840
+47841
+47868
+47869
+47896
+47897
+47924
+47925
+47952
+47953
+47980
+47981
+48008
+48009
+48036
+48037
+48064
+48065
+48092
+48093
+48120
+48121
+48148
+48149
+48176
+48177
+48204
+48205
+48232
+48233
+48260
+48261
+48288
+48289
+48316
+48317
+48344
+48345
+48372
+48373
+48400
+48401
+48428
+48429
+48456
+48457
+48484
+48485
+48512
+48513
+48540
+48541
+48568
+48569
+48596
+48597
+48624
+48625
+48652
+48653
+48680
+48681
+48708
+48709
+48736
+48737
+48764
+48765
+48792
+48793
+48820
+48821
+48848
+48849
+48876
+48877
+48904
+48905
+48932
+48933
+48960
+48961
+48988
+48989
+49016
+49017
+49044
+49045
+49072
+49073
+49100
+49101
+49128
+49129
+49156
+49157
+49184
+49185
+49212
+49213
+49240
+49241
+49268
+49269
+49296
+49297
+49324
+49325
+49352
+49353
+49380
+49381
+49408
+49409
+49436
+49437
+49464
+49465
+49492
+49493
+49520
+49521
+49548
+49549
+49576
+49577
+49604
+49605
+49632
+49633
+49660
+49661
+49688
+49689
+49716
+49717
+49744
+49745
+49772
+49773
+49800
+49801
+49828
+49829
+49856
+49857
+49884
+49885
+49912
+49913
+49940
+49941
+49968
+49969
+49996
+49997
+50024
+50025
+50052
+50053
+50080
+50081
+50108
+50109
+50136
+50137
+50164
+50165
+50192
+50193
+50220
+50221
+50248
+50249
+50276
+50277
+50304
+50305
+50332
+50333
+50360
+50361
+50388
+50389
+50416
+50417
+50444
+50445
+50472
+50473
+50500
+50501
+50528
+50529
+50556
+50557
+50584
+50585
+50612
+50613
+50640
+50641
+50668
+50669
+50696
+50697
+50724
+50725
+50752
+50753
+50780
+50781
+50808
+50809
+50836
+50837
+50864
+50865
+50892
+50893
+50920
+50921
+50948
+50949
+50976
+50977
+51004
+51005
+51032
+51033
+51060
+51061
+51088
+51089
+51116
+51117
+51144
+51145
+51172
+51173
+51200
+51201
+51228
+51229
+51256
+51257
+51284
+51285
+51312
+51313
+51340
+51341
+51368
+51369
+51396
+51397
+51424
+51425
+51452
+51453
+51480
+51481
+51508
+51509
+51536
+51537
+51564
+51565
+51592
+51593
+51620
+51621
+51648
+51649
+51676
+51677
+51704
+51705
+51732
+51733
+51760
+51761
+51788
+51789
+51816
+51817
+51844
+51845
+51872
+51873
+51900
+51901
+51928
+51929
+51956
+51957
+51984
+51985
+52012
+52013
+52040
+52041
+52068
+52069
+52096
+52097
+52124
+52125
+52152
+52153
+52180
+52181
+52208
+52209
+52236
+52237
+52264
+52265
+52292
+52293
+52320
+52321
+52348
+52349
+52376
+52377
+52404
+52405
+52432
+52433
+52460
+52461
+52488
+52489
+52516
+52517
+52544
+52545
+52572
+52573
+52600
+52601
+52628
+52629
+52656
+52657
+52684
+52685
+52712
+52713
+52740
+52741
+52768
+52769
+52796
+52797
+52824
+52825
+52852
+52853
+52880
+52881
+52908
+52909
+52936
+52937
+52964
+52965
+52992
+52993
+53020
+53021
+53048
+53049
+53076
+53077
+53104
+53105
+53132
+53133
+53160
+53161
+53188
+53189
+53216
+53217
+53244
+53245
+53272
+53273
+53300
+53301
+53328
+53329
+53356
+53357
+53384
+53385
+53412
+53413
+53440
+53441
+53468
+53469
+53496
+53497
+53524
+53525
+53552
+53553
+53580
+53581
+53608
+53609
+53636
+53637
+53664
+53665
+53692
+53693
+53720
+53721
+53748
+53749
+53776
+53777
+53804
+53805
+53832
+53833
+53860
+53861
+53888
+53889
+53916
+53917
+53944
+53945
+53972
+53973
+54000
+54001
+54028
+54029
+54056
+54057
+54084
+54085
+54112
+54113
+54140
+54141
+54168
+54169
+54196
+54197
+54224
+54225
+54252
+54253
+54280
+54281
+54308
+54309
+54336
+54337
+54364
+54365
+54392
+54393
+54420
+54421
+54448
+54449
+54476
+54477
+54504
+54505
+54532
+54533
+54560
+54561
+54588
+54589
+54616
+54617
+54644
+54645
+54672
+54673
+54700
+54701
+54728
+54729
+54756
+54757
+54784
+54785
+54812
+54813
+54840
+54841
+54868
+54869
+54896
+54897
+54924
+54925
+54952
+54953
+54980
+54981
+55008
+55009
+55036
+55037
+55064
+55065
+55092
+55093
+55120
+55121
+55148
+55149
+55176
+55177
+55204
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V638
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2494
+2495
+2497
+2501
+2509
+2510
+2519
+2520
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2878
+2880
+2881
+2885
+2893
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3007
+3008
+3009
+3021
+3022
+3031
+3032
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3266
+3267
+3270
+3271
+3276
+3278
+3285
+3287
+3298
+3300
+3328
+3330
+3387
+3389
+3390
+3391
+3393
+3397
+3405
+3406
+3415
+3416
+3426
+3428
+3530
+3531
+3535
+3536
+3538
+3541
+3542
+3543
+3551
+3552
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8204
+8205
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65438
+65440
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70462
+70463
+70464
+70465
+70487
+70488
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70832
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+70852
+71087
+71088
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119141
+119142
+119143
+119146
+119150
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V671
+32
+127
+160
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1536
+1542
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1765
+1767
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2810
+2816
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3328
+3332
+3387
+3389
+3390
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3635
+3643
+3655
+3663
+3761
+3762
+3763
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4152
+4153
+4159
+4182
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4228
+4231
+4237
+4238
+4253
+4254
+4352
+4608
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6159
+6277
+6279
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6753
+6754
+6755
+6757
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7418
+7616
+7674
+7675
+7680
+8203
+8208
+8232
+8239
+8288
+8304
+8400
+8433
+9757
+9758
+9792
+9793
+9794
+9795
+9877
+9879
+9977
+9978
+9992
+9993
+9994
+9998
+10084
+10085
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43206
+43232
+43250
+43302
+43310
+43335
+43348
+43360
+43389
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+57344
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65438
+65440
+65520
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69821
+69822
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70082
+70084
+70090
+70093
+70188
+70200
+70206
+70207
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70709
+70727
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+72193
+72203
+72243
+72255
+72263
+72264
+72273
+72284
+72326
+72346
+72751
+72759
+72760
+72768
+72850
+72872
+72873
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+127462
+127488
+127752
+127753
+127806
+127807
+127859
+127860
+127877
+127878
+127891
+127892
+127908
+127909
+127912
+127913
+127938
+127941
+127943
+127944
+127946
+127949
+127979
+127980
+127981
+127982
+127995
+128000
+128066
+128068
+128070
+128081
+128102
+128106
+128110
+128111
+128112
+128121
+128124
+128125
+128129
+128132
+128133
+128136
+128139
+128140
+128170
+128171
+128187
+128189
+128295
+128296
+128300
+128301
+128372
+128374
+128378
+128379
+128400
+128401
+128405
+128407
+128488
+128489
+128581
+128584
+128587
+128592
+128640
+128641
+128658
+128659
+128675
+128676
+128692
+128695
+128704
+128705
+128716
+128717
+129304
+129309
+129310
+129312
+129318
+129319
+129328
+129338
+129341
+129343
+129489
+129502
+917504
+921600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+9792
+9793
+9794
+9795
+9877
+9879
+9992
+9993
+10084
+10085
+127752
+127753
+127806
+127807
+127859
+127860
+127891
+127892
+127908
+127909
+127912
+127913
+127979
+127980
+127981
+127982
+128139
+128140
+128187
+128189
+128295
+128296
+128300
+128301
+128488
+128489
+128640
+128641
+128658
+128659
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V798
+44032
+44033
+44060
+44061
+44088
+44089
+44116
+44117
+44144
+44145
+44172
+44173
+44200
+44201
+44228
+44229
+44256
+44257
+44284
+44285
+44312
+44313
+44340
+44341
+44368
+44369
+44396
+44397
+44424
+44425
+44452
+44453
+44480
+44481
+44508
+44509
+44536
+44537
+44564
+44565
+44592
+44593
+44620
+44621
+44648
+44649
+44676
+44677
+44704
+44705
+44732
+44733
+44760
+44761
+44788
+44789
+44816
+44817
+44844
+44845
+44872
+44873
+44900
+44901
+44928
+44929
+44956
+44957
+44984
+44985
+45012
+45013
+45040
+45041
+45068
+45069
+45096
+45097
+45124
+45125
+45152
+45153
+45180
+45181
+45208
+45209
+45236
+45237
+45264
+45265
+45292
+45293
+45320
+45321
+45348
+45349
+45376
+45377
+45404
+45405
+45432
+45433
+45460
+45461
+45488
+45489
+45516
+45517
+45544
+45545
+45572
+45573
+45600
+45601
+45628
+45629
+45656
+45657
+45684
+45685
+45712
+45713
+45740
+45741
+45768
+45769
+45796
+45797
+45824
+45825
+45852
+45853
+45880
+45881
+45908
+45909
+45936
+45937
+45964
+45965
+45992
+45993
+46020
+46021
+46048
+46049
+46076
+46077
+46104
+46105
+46132
+46133
+46160
+46161
+46188
+46189
+46216
+46217
+46244
+46245
+46272
+46273
+46300
+46301
+46328
+46329
+46356
+46357
+46384
+46385
+46412
+46413
+46440
+46441
+46468
+46469
+46496
+46497
+46524
+46525
+46552
+46553
+46580
+46581
+46608
+46609
+46636
+46637
+46664
+46665
+46692
+46693
+46720
+46721
+46748
+46749
+46776
+46777
+46804
+46805
+46832
+46833
+46860
+46861
+46888
+46889
+46916
+46917
+46944
+46945
+46972
+46973
+47000
+47001
+47028
+47029
+47056
+47057
+47084
+47085
+47112
+47113
+47140
+47141
+47168
+47169
+47196
+47197
+47224
+47225
+47252
+47253
+47280
+47281
+47308
+47309
+47336
+47337
+47364
+47365
+47392
+47393
+47420
+47421
+47448
+47449
+47476
+47477
+47504
+47505
+47532
+47533
+47560
+47561
+47588
+47589
+47616
+47617
+47644
+47645
+47672
+47673
+47700
+47701
+47728
+47729
+47756
+47757
+47784
+47785
+47812
+47813
+47840
+47841
+47868
+47869
+47896
+47897
+47924
+47925
+47952
+47953
+47980
+47981
+48008
+48009
+48036
+48037
+48064
+48065
+48092
+48093
+48120
+48121
+48148
+48149
+48176
+48177
+48204
+48205
+48232
+48233
+48260
+48261
+48288
+48289
+48316
+48317
+48344
+48345
+48372
+48373
+48400
+48401
+48428
+48429
+48456
+48457
+48484
+48485
+48512
+48513
+48540
+48541
+48568
+48569
+48596
+48597
+48624
+48625
+48652
+48653
+48680
+48681
+48708
+48709
+48736
+48737
+48764
+48765
+48792
+48793
+48820
+48821
+48848
+48849
+48876
+48877
+48904
+48905
+48932
+48933
+48960
+48961
+48988
+48989
+49016
+49017
+49044
+49045
+49072
+49073
+49100
+49101
+49128
+49129
+49156
+49157
+49184
+49185
+49212
+49213
+49240
+49241
+49268
+49269
+49296
+49297
+49324
+49325
+49352
+49353
+49380
+49381
+49408
+49409
+49436
+49437
+49464
+49465
+49492
+49493
+49520
+49521
+49548
+49549
+49576
+49577
+49604
+49605
+49632
+49633
+49660
+49661
+49688
+49689
+49716
+49717
+49744
+49745
+49772
+49773
+49800
+49801
+49828
+49829
+49856
+49857
+49884
+49885
+49912
+49913
+49940
+49941
+49968
+49969
+49996
+49997
+50024
+50025
+50052
+50053
+50080
+50081
+50108
+50109
+50136
+50137
+50164
+50165
+50192
+50193
+50220
+50221
+50248
+50249
+50276
+50277
+50304
+50305
+50332
+50333
+50360
+50361
+50388
+50389
+50416
+50417
+50444
+50445
+50472
+50473
+50500
+50501
+50528
+50529
+50556
+50557
+50584
+50585
+50612
+50613
+50640
+50641
+50668
+50669
+50696
+50697
+50724
+50725
+50752
+50753
+50780
+50781
+50808
+50809
+50836
+50837
+50864
+50865
+50892
+50893
+50920
+50921
+50948
+50949
+50976
+50977
+51004
+51005
+51032
+51033
+51060
+51061
+51088
+51089
+51116
+51117
+51144
+51145
+51172
+51173
+51200
+51201
+51228
+51229
+51256
+51257
+51284
+51285
+51312
+51313
+51340
+51341
+51368
+51369
+51396
+51397
+51424
+51425
+51452
+51453
+51480
+51481
+51508
+51509
+51536
+51537
+51564
+51565
+51592
+51593
+51620
+51621
+51648
+51649
+51676
+51677
+51704
+51705
+51732
+51733
+51760
+51761
+51788
+51789
+51816
+51817
+51844
+51845
+51872
+51873
+51900
+51901
+51928
+51929
+51956
+51957
+51984
+51985
+52012
+52013
+52040
+52041
+52068
+52069
+52096
+52097
+52124
+52125
+52152
+52153
+52180
+52181
+52208
+52209
+52236
+52237
+52264
+52265
+52292
+52293
+52320
+52321
+52348
+52349
+52376
+52377
+52404
+52405
+52432
+52433
+52460
+52461
+52488
+52489
+52516
+52517
+52544
+52545
+52572
+52573
+52600
+52601
+52628
+52629
+52656
+52657
+52684
+52685
+52712
+52713
+52740
+52741
+52768
+52769
+52796
+52797
+52824
+52825
+52852
+52853
+52880
+52881
+52908
+52909
+52936
+52937
+52964
+52965
+52992
+52993
+53020
+53021
+53048
+53049
+53076
+53077
+53104
+53105
+53132
+53133
+53160
+53161
+53188
+53189
+53216
+53217
+53244
+53245
+53272
+53273
+53300
+53301
+53328
+53329
+53356
+53357
+53384
+53385
+53412
+53413
+53440
+53441
+53468
+53469
+53496
+53497
+53524
+53525
+53552
+53553
+53580
+53581
+53608
+53609
+53636
+53637
+53664
+53665
+53692
+53693
+53720
+53721
+53748
+53749
+53776
+53777
+53804
+53805
+53832
+53833
+53860
+53861
+53888
+53889
+53916
+53917
+53944
+53945
+53972
+53973
+54000
+54001
+54028
+54029
+54056
+54057
+54084
+54085
+54112
+54113
+54140
+54141
+54168
+54169
+54196
+54197
+54224
+54225
+54252
+54253
+54280
+54281
+54308
+54309
+54336
+54337
+54364
+54365
+54392
+54393
+54420
+54421
+54448
+54449
+54476
+54477
+54504
+54505
+54532
+54533
+54560
+54561
+54588
+54589
+54616
+54617
+54644
+54645
+54672
+54673
+54700
+54701
+54728
+54729
+54756
+54757
+54784
+54785
+54812
+54813
+54840
+54841
+54868
+54869
+54896
+54897
+54924
+54925
+54952
+54953
+54980
+54981
+55008
+55009
+55036
+55037
+55064
+55065
+55092
+55093
+55120
+55121
+55148
+55149
+55176
+55177
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V290
+2307
+2308
+2363
+2364
+2366
+2369
+2377
+2381
+2382
+2384
+2434
+2436
+2495
+2497
+2503
+2505
+2507
+2509
+2563
+2564
+2622
+2625
+2691
+2692
+2750
+2753
+2761
+2762
+2763
+2765
+2818
+2820
+2880
+2881
+2887
+2889
+2891
+2893
+3007
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3264
+3266
+3267
+3269
+3271
+3273
+3274
+3276
+3330
+3332
+3391
+3393
+3398
+3401
+3402
+3405
+3458
+3460
+3536
+3538
+3544
+3551
+3570
+3572
+3635
+3636
+3763
+3764
+3902
+3904
+3967
+3968
+4145
+4146
+4155
+4157
+4182
+4184
+4228
+4229
+6070
+6071
+6078
+6086
+6087
+6089
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6681
+6683
+6741
+6742
+6743
+6744
+6765
+6771
+6916
+6917
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6981
+7042
+7043
+7073
+7074
+7078
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7212
+7220
+7222
+7393
+7394
+7410
+7412
+7415
+7416
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43450
+43452
+43453
+43457
+43567
+43569
+43571
+43573
+43597
+43598
+43755
+43756
+43758
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69811
+69815
+69817
+69932
+69933
+70018
+70019
+70067
+70070
+70079
+70081
+70188
+70191
+70194
+70196
+70197
+70198
+70368
+70371
+70402
+70404
+70463
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70498
+70500
+70709
+70712
+70720
+70722
+70725
+70726
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+71088
+71090
+71096
+71100
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71342
+71344
+71350
+71351
+71456
+71458
+71462
+71463
+72199
+72201
+72249
+72250
+72279
+72281
+72343
+72344
+72751
+72752
+72766
+72767
+72873
+72874
+72881
+72882
+72884
+72885
+94033
+94079
+119142
+119143
+119149
+119150
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+9757
+9758
+9977
+9978
+9994
+9998
+127877
+127878
+127938
+127941
+127943
+127944
+127946
+127949
+128066
+128068
+128070
+128081
+128110
+128111
+128112
+128121
+128124
+128125
+128129
+128132
+128133
+128136
+128170
+128171
+128372
+128374
+128378
+128379
+128400
+128401
+128405
+128407
+128581
+128584
+128587
+128592
+128675
+128676
+128692
+128695
+128704
+128705
+128716
+128717
+129304
+129309
+129310
+129312
+129318
+129319
+129328
+129338
+129341
+129343
+129489
+129502
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V276
+43
+44
+60
+63
+94
+95
+124
+125
+126
+127
+172
+173
+177
+178
+215
+216
+247
+248
+976
+979
+981
+982
+1008
+1010
+1012
+1015
+1542
+1545
+8214
+8215
+8242
+8245
+8256
+8257
+8260
+8261
+8274
+8275
+8289
+8293
+8314
+8319
+8330
+8335
+8400
+8413
+8417
+8418
+8421
+8423
+8427
+8432
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8488
+8490
+8492
+8494
+8495
+8498
+8499
+8505
+8508
+8522
+8523
+8524
+8592
+8616
+8617
+8623
+8624
+8626
+8630
+8632
+8636
+8668
+8669
+8670
+8676
+8678
+8692
+8960
+8968
+8972
+8992
+8994
+9084
+9085
+9115
+9142
+9143
+9144
+9168
+9169
+9180
+9187
+9632
+9634
+9646
+9656
+9660
+9666
+9670
+9672
+9674
+9676
+9679
+9684
+9698
+9699
+9700
+9701
+9703
+9709
+9720
+9728
+9733
+9735
+9792
+9793
+9794
+9795
+9824
+9828
+9837
+9840
+10176
+10240
+10496
+11008
+11056
+11077
+11079
+11085
+64297
+64298
+65121
+65127
+65128
+65129
+65291
+65292
+65308
+65311
+65340
+65341
+65342
+65343
+65372
+65373
+65374
+65375
+65506
+65507
+65513
+65517
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V270
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+443
+444
+448
+452
+660
+661
+697
+704
+706
+736
+741
+837
+838
+880
+884
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7296
+7305
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8505
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42654
+42786
+42888
+42891
+42895
+42896
+42927
+42928
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+66736
+66772
+66776
+66812
+68736
+68787
+68800
+68851
+71840
+71904
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+125184
+125252
+127280
+127306
+127312
+127338
+127344
+127370
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+173
+174
+847
+848
+1564
+1565
+4447
+4449
+6068
+6070
+6155
+6159
+8203
+8208
+8234
+8239
+8288
+8304
+12644
+12645
+65024
+65040
+65279
+65280
+65440
+65441
+65520
+65529
+113824
+113828
+119155
+119163
+917504
+921600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1536
+1542
+1757
+1758
+1807
+1808
+2274
+2275
+69821
+69822
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+2677
+2678
+3772
+3774
+4155
+4159
+4190
+4193
+4226
+4227
+6741
+6743
+43454
+43456
+43571
+43575
+71453
+71456
+72251
+72255
+73031
+73032
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V298
+2325
+2362
+2392
+2400
+2424
+2432
+2453
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2524
+2526
+2527
+2528
+2544
+2546
+2581
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2709
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2809
+2810
+2837
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2908
+2910
+2911
+2912
+2929
+2930
+2965
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3093
+3113
+3114
+3130
+3160
+3163
+3221
+3241
+3242
+3252
+3253
+3258
+3294
+3295
+3349
+3387
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3631
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3759
+3804
+3808
+3904
+3912
+3913
+3949
+4096
+4129
+4159
+4160
+4176
+4178
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+5891
+5901
+5902
+5906
+5923
+5938
+5955
+5970
+5987
+5997
+5998
+6001
+6016
+6051
+6401
+6431
+6480
+6499
+6528
+6572
+6656
+6679
+6688
+6733
+6739
+6741
+6931
+6964
+6981
+6988
+7050
+7073
+7086
+7088
+7099
+7102
+7104
+7140
+7168
+7204
+7245
+7248
+43015
+43019
+43020
+43043
+43072
+43102
+43106
+43110
+43113
+43121
+43122
+43123
+43154
+43188
+43274
+43298
+43312
+43335
+43401
+43404
+43407
+43443
+43488
+43493
+43495
+43504
+43514
+43519
+43526
+43561
+43616
+43632
+43633
+43636
+43642
+43643
+43646
+43696
+43746
+43755
+43968
+43982
+43984
+43985
+43986
+43995
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+69651
+69688
+69773
+69808
+69895
+69927
+69973
+70003
+70033
+70067
+70152
+70162
+70163
+70188
+70276
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70330
+70367
+70421
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70670
+70709
+70799
+70832
+71054
+71087
+71182
+71216
+71306
+71339
+71424
+71450
+72203
+72243
+72284
+72324
+72718
+72751
+72818
+72848
+72972
+73009
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V156
+2308
+2325
+2400
+2402
+2418
+2424
+2437
+2445
+2447
+2449
+2451
+2453
+2528
+2530
+2565
+2571
+2575
+2577
+2579
+2581
+2693
+2702
+2703
+2706
+2707
+2709
+2784
+2786
+2821
+2829
+2831
+2833
+2835
+2837
+2912
+2914
+2949
+2955
+2958
+2961
+2962
+2965
+3077
+3085
+3086
+3089
+3090
+3093
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3221
+3296
+3298
+3333
+3341
+3342
+3345
+3346
+3349
+3423
+3426
+3461
+3479
+4129
+4139
+4178
+4182
+5888
+5891
+5920
+5923
+5952
+5955
+5984
+5987
+6051
+6068
+6733
+6739
+6917
+6931
+7043
+7050
+7140
+7142
+43008
+43010
+43011
+43014
+43138
+43154
+43396
+43401
+43404
+43407
+43520
+43526
+43744
+43746
+43982
+43984
+43985
+43986
+69637
+69651
+69763
+69773
+69891
+69895
+70019
+70033
+70144
+70152
+70272
+70276
+70320
+70330
+70405
+70413
+70415
+70417
+70419
+70421
+70496
+70498
+70656
+70670
+70785
+70799
+71040
+71054
+71128
+71132
+71168
+71182
+71296
+71306
+72192
+72193
+72272
+72273
+72704
+72713
+72714
+72718
+72960
+72967
+72968
+72970
+72971
+72972
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+3656
+3660
+3784
+3788
+4151
+4152
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4240
+4250
+4252
+6600
+6602
+6773
+6778
+43307
+43310
+43643
+43646
+43711
+43712
+43713
+43714
+44012
+44013
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6092
+6093
+6746
+6747
+6915
+6916
+7041
+7042
+43394
+43395
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+4153
+4154
+6098
+6099
+6752
+6753
+7083
+7084
+43766
+43767
+68159
+68160
+69939
+69940
+72263
+72264
+72345
+72346
+73029
+73030
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+2364
+2365
+2492
+2493
+2620
+2621
+2748
+2749
+2813
+2816
+2876
+2877
+3260
+3261
+3897
+3898
+6964
+6965
+7142
+7143
+7223
+7224
+43443
+43444
+68152
+68155
+69818
+69819
+70003
+70004
+70090
+70091
+70198
+70199
+70377
+70378
+70460
+70461
+70726
+70727
+70851
+70852
+71104
+71105
+71351
+71352
+73026
+73027
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V86
+48
+58
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+6112
+6122
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+68160
+68168
+69734
+69744
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70736
+70746
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+72784
+72813
+73040
+73050
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+178
+180
+3893
+3894
+3895
+3896
+4038
+4039
+6091
+6092
+6094
+6097
+6099
+6100
+6109
+6110
+6459
+6460
+6779
+6781
+6783
+6784
+7222
+7223
+7675
+7676
+8308
+8309
+8322
+8325
+72243
+72244
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+6448
+6450
+6451
+6458
+6593
+6600
+6744
+6746
+7102
+7104
+7152
+7154
+7213
+7220
+43188
+43189
+43343
+43347
+43584
+43598
+43995
+44003
+72330
+72342
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+2385
+2387
+2810
+2813
+7376
+7379
+7380
+7394
+7412
+7413
+7415
+7418
+43232
+43250
+70206
+70207
+70502
+70509
+70512
+70517
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V96
+2304
+2307
+2433
+2435
+2556
+2557
+2561
+2563
+2672
+2673
+2689
+2691
+2817
+2819
+2946
+2947
+3072
+3075
+3201
+3203
+3328
+3331
+3458
+3459
+3661
+3662
+3789
+3790
+3966
+3967
+3970
+3972
+4150
+4151
+6086
+6087
+6450
+6451
+6772
+6773
+6912
+6915
+7040
+7041
+7220
+7222
+43019
+43020
+43123
+43124
+43136
+43137
+43205
+43206
+43250
+43252
+43392
+43394
+68110
+68111
+69632
+69634
+69760
+69762
+69888
+69890
+70016
+70018
+70196
+70197
+70367
+70368
+70400
+70403
+70494
+70496
+70723
+70725
+70847
+70849
+71100
+71102
+71229
+71230
+71339
+71340
+72245
+72249
+72342
+72343
+72764
+72766
+72885
+72887
+73024
+73025
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V613
+0
+45
+46
+48
+58
+160
+161
+178
+180
+215
+216
+2304
+2384
+2385
+2387
+2389
+2404
+2406
+2416
+2418
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2676
+2677
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2784
+2788
+2790
+2800
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3407
+3412
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3631
+3632
+3643
+3648
+3654
+3655
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3759
+3760
+3770
+3771
+3774
+3776
+3781
+3784
+3788
+3789
+3790
+3792
+3802
+3804
+3808
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+3898
+3904
+3912
+3913
+3949
+3953
+3974
+3976
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4174
+4175
+4176
+4254
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6100
+6108
+6110
+6112
+6122
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6912
+6988
+6992
+7002
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7248
+7376
+7379
+7380
+7394
+7410
+7413
+7415
+7418
+7675
+7676
+8204
+8206
+8208
+8213
+8308
+8309
+8322
+8325
+9676
+9677
+43008
+43010
+43011
+43048
+43072
+43124
+43136
+43206
+43216
+43226
+43232
+43252
+43264
+43310
+43312
+43348
+43392
+43457
+43472
+43482
+43488
+43494
+43495
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43632
+43633
+43639
+43642
+43715
+43744
+43760
+43765
+43767
+43968
+44011
+44012
+44014
+44016
+44026
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+69632
+69703
+69714
+69744
+69759
+69819
+69888
+69941
+69942
+69952
+69968
+70004
+70016
+70084
+70090
+70093
+70096
+70106
+70113
+70133
+70144
+70162
+70163
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70494
+70500
+70502
+70509
+70512
+70517
+70656
+70728
+70736
+70746
+70785
+70853
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71484
+72192
+72256
+72261
+72262
+72263
+72264
+72272
+72324
+72326
+72346
+72704
+72713
+72714
+72759
+72760
+72769
+72784
+72813
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+3981
+3992
+3993
+4029
+6441
+6444
+6743
+6744
+6747
+6751
+7073
+7076
+7084
+7086
+7204
+7206
+43111
+43113
+43121
+43122
+43453
+43454
+72850
+72872
+72873
+72880
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+2381
+2382
+2509
+2510
+2637
+2638
+2765
+2766
+2893
+2894
+3021
+3022
+3149
+3150
+3277
+3278
+3405
+3406
+3530
+3531
+6980
+6981
+43204
+43205
+43456
+43457
+69702
+69703
+69817
+69818
+70080
+70081
+70197
+70198
+70477
+70478
+70722
+70723
+70850
+70851
+71103
+71104
+71231
+71232
+71350
+71351
+72767
+72768
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6499
+6510
+43102
+43106
+43110
+43111
+43298
+43307
+69968
+69973
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V236
+2362
+2364
+2366
+2381
+2382
+2384
+2389
+2392
+2402
+2404
+2494
+2501
+2503
+2505
+2507
+2509
+2519
+2520
+2530
+2532
+2622
+2627
+2631
+2633
+2635
+2637
+2750
+2758
+2759
+2762
+2763
+2765
+2786
+2788
+2878
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2914
+2916
+3006
+3011
+3014
+3017
+3018
+3021
+3031
+3032
+3134
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3170
+3172
+3262
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3298
+3300
+3390
+3397
+3398
+3401
+3402
+3405
+3415
+3416
+3426
+3428
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3632
+3642
+3648
+3654
+3655
+3656
+3760
+3770
+3771
+3772
+3776
+3781
+3953
+3966
+3968
+3970
+4139
+4150
+4182
+4186
+4194
+4195
+4199
+4201
+4209
+4213
+4227
+4231
+4252
+4254
+5906
+5908
+5938
+5940
+5970
+5972
+6002
+6004
+6070
+6086
+6088
+6089
+6432
+6441
+6458
+6459
+6576
+6593
+6679
+6684
+6753
+6772
+6965
+6980
+7076
+7082
+7143
+7152
+7206
+7213
+43043
+43048
+43189
+43204
+43335
+43343
+43444
+43453
+43493
+43494
+43561
+43571
+43696
+43711
+43755
+43760
+44003
+44011
+68097
+68100
+68101
+68103
+68108
+68110
+69688
+69702
+69808
+69817
+69927
+69939
+70067
+70080
+70091
+70093
+70188
+70196
+70368
+70377
+70462
+70469
+70471
+70473
+70475
+70477
+70487
+70488
+70498
+70500
+70709
+70722
+70832
+70847
+71087
+71094
+71096
+71100
+71132
+71134
+71216
+71229
+71232
+71233
+71341
+71350
+71456
+71467
+72193
+72203
+72273
+72284
+72751
+72759
+72760
+72764
+72880
+72885
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73024
+73027
+73028
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+2365
+2366
+2493
+2494
+2749
+2750
+2877
+2878
+3133
+3134
+3261
+3262
+3389
+3390
+3973
+3974
+6108
+6109
+7098
+7099
+70081
+70082
+70461
+70462
+70727
+70728
+70852
+70853
+72768
+72769
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+3387
+3389
+3642
+3643
+3662
+3663
+3972
+3973
+4154
+4155
+5908
+5909
+5940
+5941
+6097
+6098
+6778
+6779
+7082
+7083
+7154
+7156
+43014
+43015
+43347
+43348
+44013
+44014
+69940
+69941
+70378
+70379
+71467
+71468
+72244
+72245
+73028
+73029
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+45
+46
+160
+161
+215
+216
+2674
+2676
+4174
+4175
+6400
+6401
+8208
+8213
+9676
+9677
+43636
+43639
+72255
+72256
+72261
+72262
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V66
+2307
+2308
+2435
+2436
+2563
+2564
+2691
+2692
+2819
+2820
+3075
+3076
+3203
+3204
+3331
+3332
+3459
+3460
+3967
+3968
+4152
+4153
+6087
+6088
+6916
+6917
+7042
+7043
+7410
+7412
+43137
+43138
+43395
+43396
+43765
+43766
+68111
+68112
+69634
+69635
+69762
+69763
+69890
+69891
+70018
+70019
+70403
+70404
+70725
+70726
+70849
+70850
+71102
+71103
+71230
+71231
+71340
+71341
+72249
+72250
+72343
+72344
+72766
+72767
+73025
+73026
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V106
+1570
+1574
+1575
+1576
+1577
+1578
+1583
+1587
+1608
+1609
+1649
+1652
+1653
+1656
+1672
+1690
+1728
+1729
+1731
+1740
+1741
+1742
+1743
+1744
+1746
+1748
+1749
+1750
+1774
+1776
+1808
+1809
+1813
+1818
+1822
+1823
+1832
+1833
+1834
+1835
+1836
+1837
+1839
+1840
+1869
+1870
+1881
+1884
+1899
+1901
+1905
+1906
+1907
+1909
+1912
+1914
+2112
+2113
+2118
+2120
+2121
+2122
+2132
+2133
+2151
+2152
+2153
+2155
+2218
+2221
+2222
+2223
+2225
+2227
+2233
+2234
+68293
+68294
+68295
+68296
+68297
+68299
+68302
+68307
+68317
+68318
+68321
+68322
+68324
+68325
+68335
+68336
+68481
+68482
+68483
+68486
+68489
+68490
+68492
+68493
+68494
+68496
+68497
+68498
+68521
+68525
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V667
+0
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1568
+1569
+1570
+1632
+1646
+1652
+1653
+1748
+1749
+1757
+1759
+1765
+1767
+1769
+1770
+1776
+1786
+1789
+1791
+1792
+1807
+1867
+1869
+1920
+1958
+1969
+1994
+2036
+2042
+2043
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2112
+2134
+2137
+2140
+2144
+2145
+2146
+2150
+2151
+2155
+2208
+2221
+2222
+2229
+2230
+2238
+2260
+2274
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6151
+6152
+6154
+6158
+6176
+6264
+6277
+6315
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8203
+8204
+8205
+8208
+8234
+8239
+8288
+8293
+8298
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43072
+43123
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68288
+68294
+68295
+68296
+68297
+68299
+68301
+68322
+68324
+68327
+68331
+68336
+68480
+68498
+68521
+68527
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125184
+125259
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V118
+1568
+1569
+1574
+1575
+1576
+1577
+1578
+1583
+1587
+1600
+1601
+1608
+1609
+1611
+1646
+1648
+1656
+1672
+1690
+1728
+1729
+1731
+1740
+1741
+1742
+1743
+1744
+1746
+1786
+1789
+1791
+1792
+1810
+1813
+1818
+1822
+1823
+1832
+1833
+1834
+1835
+1836
+1837
+1839
+1870
+1881
+1884
+1899
+1901
+1905
+1906
+1907
+1909
+1912
+1914
+1920
+1994
+2027
+2113
+2118
+2120
+2121
+2122
+2132
+2133
+2134
+2144
+2145
+2146
+2150
+2152
+2153
+2208
+2218
+2223
+2225
+2227
+2229
+2230
+2233
+2234
+2238
+6151
+6152
+6176
+6264
+6279
+6313
+6314
+6315
+43072
+43122
+68288
+68293
+68307
+68311
+68312
+68317
+68318
+68321
+68331
+68335
+68480
+68481
+68482
+68483
+68486
+68489
+68490
+68492
+68493
+68494
+68496
+68497
+68525
+68527
+125184
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1600
+1601
+2042
+2043
+6154
+6155
+8205
+8206
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V626
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2260
+2274
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7674
+7675
+7680
+8203
+8204
+8206
+8208
+8234
+8239
+8288
+8293
+8298
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1170
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2556
+2557
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3200
+3201
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3412
+3415
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12443
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70656
+70709
+70727
+70731
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72192
+72193
+72203
+72243
+72250
+72251
+72272
+72273
+72284
+72324
+72326
+72330
+72384
+72441
+72704
+72713
+72714
+72751
+72768
+72769
+72818
+72848
+72960
+72967
+72968
+72970
+72971
+73009
+73030
+73031
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+125184
+125252
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V762
+39
+40
+46
+47
+58
+59
+94
+95
+96
+97
+168
+169
+173
+174
+175
+176
+180
+181
+183
+185
+688
+880
+884
+886
+890
+891
+900
+902
+903
+904
+1155
+1162
+1369
+1370
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1524
+1525
+1536
+1542
+1552
+1563
+1564
+1565
+1600
+1601
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2038
+2042
+2043
+2070
+2094
+2137
+2140
+2260
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2417
+2418
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2810
+2816
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3328
+3330
+3387
+3389
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3654
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3782
+3783
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4348
+4349
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6103
+6104
+6109
+6110
+6155
+6159
+6211
+6212
+6277
+6279
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6823
+6824
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7288
+7294
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7468
+7531
+7544
+7545
+7579
+7674
+7675
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8203
+8208
+8216
+8218
+8228
+8229
+8231
+8232
+8234
+8239
+8288
+8293
+8294
+8304
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+11388
+11390
+11503
+11506
+11631
+11632
+11647
+11648
+11744
+11776
+11823
+11824
+12293
+12294
+12330
+12334
+12337
+12342
+12347
+12348
+12441
+12447
+12540
+12543
+40981
+40982
+42232
+42238
+42508
+42509
+42607
+42611
+42612
+42622
+42623
+42624
+42652
+42656
+42736
+42738
+42752
+42786
+42864
+42865
+42888
+42891
+43000
+43002
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43206
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43471
+43472
+43493
+43495
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43632
+43633
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43741
+43742
+43756
+43758
+43763
+43765
+43766
+43767
+43867
+43872
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+64434
+64450
+65024
+65040
+65043
+65044
+65056
+65072
+65106
+65107
+65109
+65110
+65279
+65280
+65287
+65288
+65294
+65295
+65306
+65307
+65342
+65343
+65344
+65345
+65392
+65393
+65438
+65440
+65507
+65508
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70207
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70712
+70720
+70722
+70725
+70726
+70727
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+72193
+72199
+72201
+72203
+72243
+72249
+72251
+72255
+72263
+72264
+72273
+72279
+72281
+72284
+72330
+72343
+72344
+72346
+72752
+72759
+72760
+72766
+72767
+72768
+72850
+72872
+72874
+72881
+72882
+72884
+72885
+72887
+73009
+73015
+73018
+73019
+73020
+73022
+73023
+73030
+73031
+73032
+92912
+92917
+92976
+92983
+92992
+92996
+94095
+94112
+94176
+94178
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+125136
+125143
+125252
+125259
+127995
+128000
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1630
+65
+91
+160
+161
+168
+169
+170
+171
+173
+174
+175
+176
+178
+182
+184
+187
+188
+191
+192
+215
+216
+224
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+322
+323
+324
+325
+326
+327
+328
+329
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+383
+384
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+688
+697
+728
+734
+736
+741
+832
+834
+835
+838
+847
+848
+880
+881
+882
+883
+884
+885
+886
+887
+890
+891
+894
+896
+900
+907
+908
+909
+910
+912
+913
+930
+931
+940
+962
+963
+975
+983
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1008
+1011
+1012
+1014
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+1415
+1416
+1564
+1565
+1653
+1657
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4256
+4294
+4295
+4296
+4301
+4302
+4348
+4349
+4447
+4449
+5112
+5118
+6068
+6070
+6155
+6159
+7296
+7305
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7834
+7836
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8064
+8112
+8114
+8117
+8119
+8133
+8135
+8144
+8147
+8148
+8152
+8156
+8157
+8160
+8163
+8164
+8168
+8176
+8178
+8181
+8183
+8191
+8192
+8208
+8209
+8210
+8215
+8216
+8228
+8231
+8234
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8579
+8580
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11388
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42654
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42865
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42927
+42928
+42933
+42934
+42935
+43000
+43002
+43868
+43872
+43888
+43968
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65024
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65520
+65529
+66560
+66600
+66736
+66772
+68736
+68787
+71840
+71872
+113824
+113828
+119134
+119141
+119155
+119163
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+125184
+125218
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+194560
+195102
+917504
+921600
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1216
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+312
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+397
+402
+403
+405
+406
+409
+411
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+429
+430
+432
+433
+436
+437
+438
+439
+441
+442
+445
+446
+447
+448
+452
+453
+454
+456
+457
+459
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+498
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+564
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1020
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7296
+7305
+7545
+7546
+7549
+7550
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7836
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11379
+11380
+11382
+11383
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11492
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42800
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42897
+42898
+42899
+42900
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+66776
+66812
+68800
+68851
+71872
+71904
+125218
+125252
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V318
+94
+95
+96
+97
+168
+169
+175
+176
+180
+181
+183
+185
+688
+847
+848
+856
+861
+867
+884
+886
+890
+891
+900
+902
+1155
+1160
+1369
+1370
+1425
+1442
+1443
+1470
+1471
+1472
+1473
+1475
+1476
+1477
+1611
+1619
+1623
+1625
+1759
+1761
+1765
+1767
+1770
+1773
+1840
+1867
+1958
+1969
+2027
+2038
+2072
+2074
+2275
+2303
+2364
+2365
+2381
+2382
+2385
+2389
+2417
+2418
+2492
+2493
+2509
+2510
+2620
+2621
+2637
+2638
+2748
+2749
+2765
+2766
+2813
+2816
+2876
+2877
+2893
+2894
+3021
+3022
+3149
+3150
+3260
+3261
+3277
+3278
+3387
+3389
+3405
+3406
+3530
+3531
+3655
+3661
+3662
+3663
+3784
+3789
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3970
+3973
+3974
+3976
+4038
+4039
+4151
+4152
+4153
+4155
+4231
+4238
+4239
+4240
+4250
+4252
+6089
+6100
+6109
+6110
+6457
+6460
+6773
+6781
+6783
+6784
+6832
+6846
+6964
+6965
+6980
+6981
+7019
+7028
+7082
+7084
+7222
+7224
+7288
+7294
+7376
+7401
+7405
+7406
+7412
+7413
+7415
+7418
+7468
+7531
+7620
+7632
+7669
+7674
+7677
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+11503
+11506
+11823
+11824
+12330
+12336
+12441
+12445
+12540
+12541
+42607
+42608
+42620
+42622
+42623
+42624
+42652
+42654
+42736
+42738
+42775
+42786
+42888
+42889
+43000
+43002
+43204
+43205
+43232
+43250
+43307
+43311
+43347
+43348
+43443
+43444
+43456
+43457
+43493
+43494
+43643
+43646
+43711
+43715
+43766
+43767
+43867
+43872
+44012
+44014
+64286
+64287
+65056
+65072
+65342
+65343
+65344
+65345
+65392
+65393
+65438
+65440
+65507
+65508
+66272
+66273
+68325
+68327
+69817
+69819
+69939
+69941
+70003
+70004
+70080
+70081
+70090
+70093
+70197
+70199
+70377
+70379
+70460
+70461
+70477
+70478
+70502
+70509
+70512
+70517
+70722
+70723
+70726
+70727
+70850
+70852
+71103
+71105
+71231
+71232
+71350
+71352
+71467
+71468
+72244
+72245
+72263
+72264
+72345
+72346
+72767
+72768
+73026
+73027
+73028
+73030
+92912
+92917
+94095
+94112
+119143
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+125136
+125143
+125252
+125255
+125256
+125259
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V194
+33
+34
+44
+45
+46
+47
+58
+60
+63
+64
+894
+895
+903
+904
+1417
+1418
+1475
+1476
+1548
+1549
+1563
+1564
+1567
+1568
+1748
+1749
+1792
+1803
+1804
+1805
+2040
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+3674
+3676
+3848
+3849
+3853
+3859
+4170
+4172
+4961
+4969
+5741
+5743
+5867
+5870
+5941
+5943
+6100
+6103
+6106
+6107
+6146
+6150
+6152
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7005
+7008
+7227
+7232
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+11841
+11842
+12289
+12291
+42238
+42240
+42509
+42512
+42739
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43463
+43466
+43613
+43616
+43743
+43744
+43760
+43762
+44011
+44012
+65104
+65107
+65108
+65112
+65281
+65282
+65292
+65293
+65294
+65295
+65306
+65308
+65311
+65312
+65377
+65378
+65380
+65381
+66463
+66464
+66512
+66513
+67671
+67672
+67871
+67872
+68182
+68184
+68336
+68342
+68410
+68416
+68505
+68509
+69703
+69710
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70205
+70313
+70314
+70731
+70734
+70747
+70748
+71106
+71110
+71113
+71128
+71233
+71235
+71484
+71487
+72258
+72260
+72347
+72349
+72353
+72355
+72769
+72772
+72817
+72818
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92986
+92996
+92997
+113823
+113824
+121479
+121483
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V136
+33
+34
+46
+47
+63
+64
+1417
+1418
+1567
+1568
+1748
+1749
+1792
+1795
+2041
+2042
+2404
+2406
+4170
+4172
+4962
+4963
+4967
+4969
+5742
+5743
+5941
+5943
+6147
+6148
+6153
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7006
+7008
+7227
+7229
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+12290
+12291
+42239
+42240
+42510
+42512
+42739
+42740
+42743
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43464
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65106
+65107
+65110
+65112
+65281
+65282
+65294
+65295
+65311
+65312
+65377
+65378
+68182
+68184
+69703
+69705
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+70731
+70733
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+72258
+72260
+72347
+72349
+72769
+72771
+92782
+92784
+92917
+92918
+92983
+92985
+92996
+92997
+113823
+113824
+121480
+121481
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1320
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+837
+838
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1456
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1624
+1625
+1632
+1646
+1748
+1749
+1757
+1761
+1769
+1773
+1776
+1786
+1789
+1791
+1792
+1808
+1856
+1869
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2072
+2074
+2093
+2112
+2137
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2272
+2275
+2282
+2288
+2364
+2365
+2381
+2382
+2385
+2389
+2404
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2501
+2503
+2505
+2507
+2509
+2510
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2544
+2546
+2556
+2557
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2627
+2631
+2633
+2635
+2637
+2641
+2642
+2649
+2653
+2654
+2655
+2672
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2758
+2759
+2762
+2763
+2765
+2768
+2769
+2784
+2788
+2809
+2813
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2908
+2910
+2911
+2916
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3031
+3032
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3160
+3163
+3168
+3172
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3294
+3295
+3296
+3300
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3405
+3406
+3407
+3412
+3416
+3423
+3428
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3585
+3643
+3648
+3655
+3661
+3662
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3789
+3790
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3953
+3970
+3976
+3992
+3993
+4029
+4096
+4151
+4152
+4153
+4155
+4160
+4176
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4252
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5908
+5920
+5940
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6089
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6457
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6684
+6688
+6751
+6753
+6773
+6823
+6824
+6912
+6964
+6965
+6980
+6981
+6988
+7040
+7082
+7084
+7088
+7098
+7142
+7143
+7154
+7168
+7222
+7245
+7248
+7258
+7294
+7296
+7305
+7401
+7405
+7406
+7412
+7413
+7415
+7424
+7616
+7655
+7669
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12591
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40939
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42612
+42620
+42623
+42736
+42775
+42784
+42786
+42889
+42891
+42927
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43048
+43072
+43124
+43136
+43204
+43205
+43206
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43307
+43312
+43347
+43360
+43389
+43392
+43443
+43444
+43456
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43575
+43584
+43598
+43616
+43639
+43642
+43643
+43646
+43711
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43760
+43762
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66349
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69702
+69762
+69817
+69840
+69865
+69888
+69939
+69968
+70003
+70006
+70007
+70016
+70080
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70197
+70199
+70200
+70206
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70377
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70469
+70471
+70473
+70475
+70477
+70480
+70481
+70487
+70488
+70493
+70500
+70656
+70722
+70723
+70726
+70727
+70731
+70784
+70850
+70852
+70854
+70855
+70856
+71040
+71094
+71096
+71103
+71128
+71134
+71168
+71231
+71232
+71233
+71236
+71237
+71296
+71350
+71424
+71450
+71453
+71467
+71840
+71904
+71935
+71936
+72192
+72243
+72245
+72255
+72272
+72324
+72326
+72344
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72767
+72768
+72769
+72818
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73026
+73027
+73028
+73030
+73032
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92983
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113822
+113823
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125184
+125252
+125255
+125256
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1587
+1589
+1690
+1693
+1786
+1787
+1884
+1885
+1901
+1902
+1904
+1905
+1917
+1919
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+1585
+1587
+1681
+1690
+1775
+1776
+1883
+1884
+1899
+1901
+1905
+1906
+2218
+2219
+2226
+2227
+2233
+2234
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1572
+1573
+1608
+1609
+1654
+1656
+1732
+1740
+1743
+1744
+1912
+1914
+2219
+2220
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1583
+1585
+1672
+1681
+1774
+1775
+1881
+1883
+2222
+2223
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1597
+1600
+1740
+1741
+1742
+1743
+1909
+1911
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1568
+1569
+1574
+1575
+1609
+1611
+1656
+1657
+1744
+1746
+1911
+1912
+2216
+2218
+2234
+2235
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1603
+1604
+1708
+1711
+1919
+1920
+2228
+2229
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1602
+1603
+1647
+1648
+1703
+1705
+2213
+2214
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1589
+1591
+1693
+1695
+1787
+1788
+2223
+2224
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1601
+1602
+1697
+1703
+1888
+1890
+2212
+2213
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1580
+1583
+1665
+1672
+1727
+1728
+1879
+1881
+1902
+1904
+1906
+1907
+1916
+1917
+2210
+2211
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1576
+1577
+1578
+1580
+1646
+1647
+1657
+1665
+1872
+1879
+2208
+2210
+2230
+2233
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1593
+1595
+1696
+1697
+1788
+1789
+1885
+1888
+2227
+2228
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V47
+0
+1568
+1569
+1570
+1600
+1601
+1611
+1646
+1648
+1649
+1652
+1653
+1748
+1749
+1750
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1920
+2144
+2155
+2208
+2221
+2222
+2229
+2230
+2238
+68288
+68294
+68295
+68296
+68297
+68299
+68301
+68322
+68324
+68325
+68331
+68336
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1604
+1605
+1717
+1721
+1898
+1899
+2214
+2215
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1570
+1572
+1573
+1574
+1575
+1576
+1649
+1652
+1653
+1654
+1907
+1909
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1595
+1597
+1705
+1706
+1707
+1708
+1711
+1717
+1890
+1893
+2224
+2225
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+65792
+65795
+65799
+65844
+65847
+65856
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V74
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+867
+880
+1157
+1159
+2385
+2387
+4347
+4348
+7424
+7462
+7468
+7517
+7522
+7526
+7531
+7544
+7545
+7615
+7680
+7936
+8305
+8306
+8319
+8320
+8336
+8349
+8432
+8433
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+11360
+11392
+42786
+42888
+42891
+42927
+42928
+42936
+42999
+43008
+43310
+43311
+43824
+43867
+43868
+43877
+64256
+64263
+65313
+65339
+65345
+65371
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1600
+1601
+68480
+68498
+68505
+68509
+68521
+68528
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+5941
+5943
+5984
+5997
+5998
+6001
+6002
+6004
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+12289
+12291
+12296
+12306
+12308
+12316
+12539
+12540
+40960
+42125
+42128
+42183
+65377
+65382
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V76
+834
+835
+837
+838
+880
+884
+885
+888
+890
+894
+895
+896
+900
+901
+902
+903
+904
+907
+908
+909
+910
+930
+931
+994
+1008
+1024
+7462
+7467
+7517
+7522
+7526
+7531
+7615
+7618
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8486
+8487
+43877
+43878
+65856
+65935
+65952
+65953
+119296
+119366
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+11904
+11930
+11931
+12020
+12032
+12246
+12289
+12292
+12293
+12306
+12307
+12320
+12321
+12334
+12336
+12337
+12343
+12352
+12539
+12540
+12688
+12704
+12736
+12772
+12832
+12872
+12928
+12977
+12992
+13004
+13144
+13169
+13179
+13184
+13280
+13311
+13312
+19894
+19968
+40939
+63744
+64110
+64112
+64218
+65093
+65095
+65377
+65382
+119648
+119666
+127568
+127570
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+2385
+2387
+2404
+2406
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+43056
+43066
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6016
+6110
+6112
+6122
+6128
+6138
+6624
+6656
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4053
+4057
+4059
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V50
+2385
+2387
+2404
+2406
+2986
+2987
+2997
+2998
+3046
+3059
+7376
+7377
+7378
+7380
+7410
+7413
+7416
+7418
+8432
+8433
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V104
+1536
+1541
+1542
+1565
+1566
+1757
+1758
+1792
+1872
+1920
+2208
+2229
+2230
+2238
+2260
+2274
+2275
+2304
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65022
+65136
+65141
+65142
+65277
+66272
+66300
+69216
+69247
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V46
+2385
+2387
+2404
+2406
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+7386
+7387
+43251
+43252
+70401
+70402
+70403
+70404
+70460
+70461
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+64275
+64280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2405
+2406
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6480
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+12289
+12292
+12296
+12306
+12307
+12320
+12336
+12342
+12343
+12344
+12348
+12350
+12441
+12445
+12448
+12544
+12784
+12800
+13008
+13055
+13056
+13144
+65093
+65095
+65377
+65440
+110592
+110593
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+2385
+2387
+2404
+2406
+3200
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+7386
+7387
+7413
+7414
+43056
+43062
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+2385
+2386
+7383
+7384
+7385
+7386
+7388
+7390
+7392
+7393
+70016
+70094
+70096
+70112
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2385
+2387
+2404
+2406
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+7386
+7387
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V276
+0
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+746
+748
+768
+884
+885
+894
+895
+901
+902
+903
+904
+1541
+1542
+1757
+1758
+2274
+2275
+3647
+3648
+4053
+4057
+5867
+5870
+8192
+8204
+8206
+8293
+8294
+8305
+8308
+8319
+8320
+8335
+8352
+8384
+8448
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+8588
+8592
+9255
+9280
+9291
+9312
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11776
+11843
+11844
+11850
+12272
+12284
+12288
+12289
+12292
+12293
+12306
+12307
+12320
+12321
+12342
+12343
+12872
+12896
+12927
+12928
+12977
+12992
+13004
+13008
+13169
+13179
+13184
+13280
+13311
+13312
+19904
+19968
+42752
+42786
+42888
+42891
+43867
+43868
+64830
+64832
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65279
+65280
+65281
+65313
+65339
+65345
+65371
+65377
+65504
+65511
+65512
+65519
+65529
+65534
+65936
+65948
+66000
+66045
+118784
+119030
+119040
+119079
+119081
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119273
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127488
+127489
+127491
+127504
+127548
+127552
+127561
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+917505
+917506
+917536
+917632
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+2385
+2387
+2404
+2406
+2432
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+7415
+7416
+43249
+43250
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+1548
+1549
+1563
+1565
+1567
+1568
+1600
+1601
+1611
+1622
+1648
+1649
+1792
+1806
+1807
+1867
+1869
+1872
+2144
+2155
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+70784
+70856
+70864
+70874
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2534
+2544
+4160
+4170
+69888
+69941
+69942
+69956
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1293
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2144
+2155
+2208
+2229
+2230
+2238
+2260
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2558
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2816
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7305
+7360
+7368
+7376
+7418
+7424
+7674
+7675
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8384
+8400
+8433
+8448
+8588
+8592
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11219
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11850
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12591
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40939
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42927
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43206
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65935
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66349
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66736
+66772
+66776
+66812
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70207
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70656
+70746
+70747
+70748
+70749
+70750
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71264
+71277
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72192
+72264
+72272
+72324
+72326
+72349
+72350
+72355
+72384
+72441
+72704
+72713
+72714
+72759
+72760
+72774
+72784
+72813
+72816
+72848
+72850
+72872
+72873
+72887
+72960
+72967
+72968
+72970
+72971
+73015
+73018
+73019
+73020
+73022
+73023
+73032
+73040
+73050
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+94176
+94178
+94208
+100333
+100352
+101107
+110592
+110879
+110960
+111356
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+124928
+125125
+125127
+125143
+125184
+125259
+125264
+125274
+125278
+125280
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127405
+127462
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+127584
+127590
+127744
+128725
+128736
+128749
+128752
+128761
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129280
+129292
+129296
+129343
+129344
+129357
+129360
+129388
+129408
+129432
+129472
+129473
+129488
+129511
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+183984
+191457
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1548
+1549
+1563
+1565
+1567
+1568
+1632
+1642
+1920
+1970
+65010
+65011
+65021
+65022
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1417
+1418
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4352
+11520
+11558
+11559
+11560
+11565
+11566
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65799
+65844
+67072
+67383
+67392
+67414
+67424
+67432
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+1425
+1480
+1488
+1515
+1520
+1525
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64336
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+746
+748
+12289
+12292
+12296
+12306
+12307
+12320
+12330
+12334
+12336
+12337
+12343
+12344
+12539
+12540
+12549
+12591
+12704
+12731
+65093
+65095
+65377
+65382
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+71264
+71277
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+2385
+2387
+2404
+2406
+3328
+3332
+3333
+3341
+3342
+3345
+3346
+3397
+3398
+3401
+3402
+3408
+3412
+3428
+3430
+3456
+7386
+7387
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2304
+2432
+7376
+7415
+7416
+7418
+8432
+8433
+43056
+43066
+43232
+43262
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+12289
+12292
+12296
+12306
+12307
+12320
+12336
+12342
+12343
+12344
+12348
+12350
+12353
+12439
+12441
+12449
+12539
+12541
+65093
+65095
+65377
+65382
+65392
+65393
+65438
+65440
+110593
+110879
+127488
+127489
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+71296
+71352
+71360
+71370
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2404
+2406
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+70113
+70133
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2662
+2672
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6624
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+70320
+70379
+70384
+70394
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+994
+1008
+11392
+11508
+11513
+11520
+66272
+66300
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1600
+1601
+125184
+125259
+125264
+125274
+125278
+125280
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+4352
+4608
+12289
+12292
+12296
+12306
+12307
+12320
+12334
+12337
+12343
+12344
+12539
+12540
+12593
+12687
+12800
+12831
+12896
+12927
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+65093
+65095
+65377
+65382
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2385
+2387
+2404
+2406
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+4096
+4256
+43310
+43311
+43488
+43519
+43616
+43648
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+768
+834
+835
+837
+838
+867
+6832
+6847
+7618
+7674
+7675
+7680
+8204
+8206
+8400
+8432
+65024
+65040
+65056
+65070
+66045
+66046
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+917760
+918000
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1024
+1328
+7296
+7305
+7467
+7468
+7544
+7545
+11744
+11776
+11843
+11844
+42560
+42656
+65070
+65072
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+1156
+1157
+1159
+1160
+11264
+11311
+11312
+11359
+11843
+11844
+42607
+42608
+122880
+122887
+122888
+122905
+122907
+122914
+122915
+122917
+122918
+122923
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+2385
+2387
+2404
+2406
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+43056
+43066
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V146
+832
+834
+835
+837
+884
+885
+894
+895
+903
+904
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8126
+8127
+8137
+8138
+8139
+8140
+8147
+8148
+8155
+8156
+8163
+8164
+8171
+8172
+8174
+8176
+8185
+8186
+8187
+8188
+8189
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+9001
+9003
+10972
+10973
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+119134
+119141
+119227
+119233
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V498
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+902
+903
+904
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7836
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8125
+8130
+8137
+8138
+8139
+8140
+8141
+8144
+8147
+8148
+8155
+8156
+8157
+8160
+8163
+8164
+8171
+8172
+8173
+8176
+8185
+8186
+8187
+8188
+8189
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V573
+0
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+832
+838
+884
+885
+890
+891
+894
+895
+900
+902
+903
+904
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1619
+1622
+1653
+1657
+2364
+2365
+2392
+2400
+2494
+2495
+2519
+2520
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2878
+2879
+2902
+2904
+2908
+2910
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4142
+4143
+4348
+4349
+4449
+4470
+4520
+4547
+6965
+6966
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7836
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8125
+8130
+8137
+8138
+8139
+8140
+8141
+8144
+8147
+8148
+8155
+8156
+8157
+8160
+8163
+8164
+8171
+8172
+8173
+8176
+8185
+8186
+8187
+8188
+8189
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12441
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127548
+127552
+127561
+127568
+127570
+194560
+195102
+END
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 10.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+329
+330
+1651
+1652
+3959
+3960
+3961
+3962
+6051
+6053
+8298
+8304
+9001
+9003
+917505
+917506
+END
+# IO::Zlib.pm
+#
+# Copyright (c) 1998-2004 Tom Hughes <tom@compton.nu>.
+# All rights reserved. This program is free software; you can redistribute
+# it and/or modify it under the same terms as Perl itself.
+
+package IO::Zlib;
+
+$VERSION = "1.10";
+
+
+require 5.006;
+
+use strict;
+use vars qw($VERSION $AUTOLOAD @ISA);
+
+use Carp;
+use Fcntl qw(SEEK_SET);
+
+my $has_Compress_Zlib;
+my $aliased;
+
+sub has_Compress_Zlib {
+    $has_Compress_Zlib;
+}
+
+BEGIN {
+    eval { require Compress::Zlib };
+    $has_Compress_Zlib = $@ || $Compress::Zlib::VERSION < 2.000 ? 0 : 1;
+}
+
+use Symbol;
+use Tie::Handle;
+
+# These might use some $^O logic.
+my $gzip_read_open   = "gzip -dc %s |";
+my $gzip_write_open  = "| gzip > %s";
+
+my $gzip_external;
+my $gzip_used;
+
+sub gzip_read_open {
+    $gzip_read_open;
+}
+
+sub gzip_write_open {
+    $gzip_write_open;
+}
+
+sub gzip_external {
+    $gzip_external;
+}
+
+sub gzip_used {
+    $gzip_used;
+}
+
+sub can_gunzip {
+    $has_Compress_Zlib || $gzip_external;
+}
+
+sub _import {
+    my $import = shift;
+    while (@_) {
+	if ($_[0] eq ':gzip_external') {
+	    shift;
+	    if (@_) {
+		$gzip_external = shift;
+	    } else {
+		croak "$import: ':gzip_external' requires an argument";
+	    }
+	}
+	elsif ($_[0] eq ':gzip_read_open') {
+	    shift;
+	    if (@_) {
+		$gzip_read_open = shift;
+		croak "$import: ':gzip_read_open' '$gzip_read_open' is illegal"
+		    unless $gzip_read_open =~ /^.+%s.+\|\s*$/;
+	    } else {
+		croak "$import: ':gzip_read_open' requires an argument";
+	    }
+	}
+	elsif ($_[0] eq ':gzip_write_open') {
+	    shift;
+	    if (@_) {
+		$gzip_write_open = shift;
+		croak "$import: ':gzip_write_open' '$gzip_read_open' is illegal"
+		    unless $gzip_write_open =~ /^\s*\|.+%s.*$/;
+	    } else {
+		croak "$import: ':gzip_write_open' requires an argument";
+	    }
+	}
+	else {
+	    last;
+	}
+    }
+    return @_;
+}
+
+sub _alias {
+    my $import = shift;
+    if ((!$has_Compress_Zlib && !defined $gzip_external) || $gzip_external) {
+	# The undef *gzopen is really needed only during
+	# testing where we eval several 'use IO::Zlib's.
+	undef *gzopen;
+        *gzopen                 = \&gzopen_external;
+        *IO::Handle::gzread     = \&gzread_external;
+        *IO::Handle::gzwrite    = \&gzwrite_external;
+        *IO::Handle::gzreadline = \&gzreadline_external;
+        *IO::Handle::gzeof      = \&gzeof_external;
+        *IO::Handle::gzclose    = \&gzclose_external;
+	$gzip_used = 1;
+    } else {
+	croak "$import: no Compress::Zlib and no external gzip"
+	    unless $has_Compress_Zlib;
+        *gzopen     = \&Compress::Zlib::gzopen;
+        *gzread     = \&Compress::Zlib::gzread;
+        *gzwrite    = \&Compress::Zlib::gzwrite;
+        *gzreadline = \&Compress::Zlib::gzreadline;
+        *gzeof      = \&Compress::Zlib::gzeof;
+    }
+    $aliased = 1;
+}
+
+sub import {
+    shift;
+    my $import = "IO::Zlib::import";
+    if (@_) {
+	if (_import($import, @_)) {
+	    croak "$import: '@_' is illegal";
+	}
+    }
+    _alias($import);
+}
+
+@ISA = qw(Tie::Handle);
+
+sub TIEHANDLE
+{
+    my $class = shift;
+    my @args = @_;
+
+    my $self = bless {}, $class;
+
+    return @args ? $self->OPEN(@args) : $self;
+}
+
+sub DESTROY
+{
+}
+
+sub OPEN
+{
+    my $self = shift;
+    my $filename = shift;
+    my $mode = shift;
+
+    croak "IO::Zlib::open: needs a filename" unless defined($filename);
+
+    $self->{'file'} = gzopen($filename,$mode);
+
+    return defined($self->{'file'}) ? $self : undef;
+}
+
+sub CLOSE
+{
+    my $self = shift;
+
+    return undef unless defined($self->{'file'});
+
+    my $status = $self->{'file'}->gzclose();
+
+    delete $self->{'file'};
+
+    return ($status == 0) ? 1 : undef;
+}
+
+sub READ
+{
+    my $self = shift;
+    my $bufref = \$_[0];
+    my $nbytes = $_[1];
+    my $offset = $_[2] || 0;
+
+    croak "IO::Zlib::READ: NBYTES must be specified" unless defined($nbytes);
+
+    $$bufref = "" unless defined($$bufref);
+
+    my $bytesread = $self->{'file'}->gzread(substr($$bufref,$offset),$nbytes);
+
+    return undef if $bytesread < 0;
+
+    return $bytesread;
+}
+
+sub READLINE
+{
+    my $self = shift;
+
+    my $line;
+
+    return () if $self->{'file'}->gzreadline($line) <= 0;
+
+    return $line unless wantarray;
+
+    my @lines = $line;
+
+    while ($self->{'file'}->gzreadline($line) > 0)
+    {
+        push @lines, $line;
+    }
+
+    return @lines;
+}
+
+sub WRITE
+{
+    my $self = shift;
+    my $buf = shift;
+    my $length = shift;
+    my $offset = shift;
+
+    croak "IO::Zlib::WRITE: too long LENGTH" unless $offset + $length <= length($buf);
+
+    return $self->{'file'}->gzwrite(substr($buf,$offset,$length));
+}
+
+sub EOF
+{
+    my $self = shift;
+
+    return $self->{'file'}->gzeof();
+}
+
+sub FILENO
+{
+    return undef;
+}
+
+sub new
+{
+    my $class = shift;
+    my @args = @_;
+
+    _alias("new", @_) unless $aliased; # Some call new IO::Zlib directly...
+
+    my $self = gensym();
+
+    tie *{$self}, $class, @args;
+
+    return tied(${$self}) ? bless $self, $class : undef;
+}
+
+sub getline
+{
+    my $self = shift;
+
+    return scalar tied(*{$self})->READLINE();
+}
+
+sub getlines
+{
+    my $self = shift;
+
+    croak "IO::Zlib::getlines: must be called in list context"
+	unless wantarray;
+
+    return tied(*{$self})->READLINE();
+}
+
+sub opened
+{
+    my $self = shift;
+
+    return defined tied(*{$self})->{'file'};
+}
+
+sub AUTOLOAD
+{
+    my $self = shift;
+
+    $AUTOLOAD =~ s/.*:://;
+    $AUTOLOAD =~ tr/a-z/A-Z/;
+
+    return tied(*{$self})->$AUTOLOAD(@_);
+}
+
+sub gzopen_external {
+    my ($filename, $mode) = @_;
+    require IO::Handle;
+    my $fh = IO::Handle->new();
+    if ($mode =~ /r/) {
+	# Because someone will try to read ungzipped files
+	# with this we peek and verify the signature.  Yes,
+	# this means that we open the file twice (if it is
+	# gzipped).
+	# Plenty of race conditions exist in this code, but
+	# the alternative would be to capture the stderr of
+	# gzip and parse it, which would be a portability nightmare.
+	if (-e $filename && open($fh, $filename)) {
+	    binmode $fh;
+	    my $sig;
+	    my $rdb = read($fh, $sig, 2);
+	    if ($rdb == 2 && $sig eq "\x1F\x8B") {
+		my $ropen = sprintf $gzip_read_open, $filename;
+		if (open($fh, $ropen)) {
+		    binmode $fh;
+		    return $fh;
+		} else {
+		    return undef;
+		}
+	    }
+	    seek($fh, 0, SEEK_SET) or
+		die "IO::Zlib: open('$filename', 'r'): seek: $!";
+	    return $fh;
+	} else {
+	    return undef;
+	}
+    } elsif ($mode =~ /w/) {
+	my $level = '';
+	$level = "-$1" if $mode =~ /([1-9])/;
+	# To maximize portability we would need to open
+	# two filehandles here, one for "| gzip $level"
+	# and another for "> $filename", and then when
+	# writing copy bytes from the first to the second.
+	# We are using IO::Handle objects for now, however,
+	# and they can only contain one stream at a time.
+	my $wopen = sprintf $gzip_write_open, $filename;
+	if (open($fh, $wopen)) {
+	    $fh->autoflush(1);
+	    binmode $fh;
+	    return $fh;
+	} else {
+	    return undef;
+	}
+    } else {
+	croak "IO::Zlib::gzopen_external: mode '$mode' is illegal";
+    }
+    return undef;
+}
+
+sub gzread_external {
+    # Use read() instead of syswrite() because people may
+    # mix reads and readlines, and we don't want to mess
+    # the stdio buffering.  See also gzreadline_external()
+    # and gzwrite_external().
+    my $nread = read($_[0], $_[1], @_ == 3 ? $_[2] : 4096);
+    defined $nread ? $nread : -1;
+}
+
+sub gzwrite_external {
+    # Using syswrite() is okay (cf. gzread_external())
+    # since the bytes leave this process and buffering
+    # is therefore not an issue.
+    my $nwrote = syswrite($_[0], $_[1]);
+    defined $nwrote ? $nwrote : -1;
+}
+
+sub gzreadline_external {
+    # See the comment in gzread_external().
+    $_[1] = readline($_[0]);
+    return defined $_[1] ? length($_[1]) : -1;
+}
+
+sub gzeof_external {
+    return eof($_[0]);
+}
+
+sub gzclose_external {
+    close($_[0]);
+    # I am not entirely certain why this is needed but it seems
+    # the above close() always fails (as if the stream would have
+    # been already closed - something to do with using external
+    # processes via pipes?)
+    return 0;
+}
+
+1;
+package IO::Compress::Bzip2 ;
+
+use strict ;
+use warnings;
+use bytes;
+require Exporter ;
+
+use IO::Compress::Base 2.074 ;
+
+use IO::Compress::Base::Common  2.074 qw();
+use IO::Compress::Adapter::Bzip2 2.074 ;
+
+
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
+
+$VERSION = '2.074';
+$Bzip2Error = '';
+
+@ISA    = qw(IO::Compress::Base Exporter);
+@EXPORT_OK = qw( $Bzip2Error bzip2 ) ;
+%EXPORT_TAGS = %IO::Compress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$Bzip2Error);
+    return $obj->_create(undef, @_);
+}
+
+sub bzip2
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$Bzip2Error);
+    $obj->_def(@_);
+}
+
+
+sub mkHeader 
+{
+    my $self = shift ;
+    return '';
+
+}
+
+sub getExtraParams
+{
+    my $self = shift ;
+
+    use IO::Compress::Base::Common  2.074 qw(:Parse);
+    
+    return (  
+            'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned,  1],
+            'workfactor'    => [IO::Compress::Base::Common::Parse_unsigned,  0],
+            'verbosity'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+        );
+}
+
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    # check that BlockSize100K is a number between 1 & 9
+    if ($got->parsed('blocksize100k')) {
+        my $value = $got->getValue('blocksize100k');
+        return $self->saveErrorString(undef, "Parameter 'BlockSize100K' not between 1 and 9, got $value")
+            unless defined $value && $value >= 1 && $value <= 9;
+
+    }
+
+    # check that WorkFactor between 0 & 250
+    if ($got->parsed('workfactor')) {
+        my $value = $got->getValue('workfactor');
+        return $self->saveErrorString(undef, "Parameter 'WorkFactor' not between 0 and 250, got $value")
+            unless $value >= 0 && $value <= 250;
+    }
+
+    return 1 ;
+}
+
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my $BlockSize100K = $got->getValue('blocksize100k');
+    my $WorkFactor    = $got->getValue('workfactor');
+    my $Verbosity     = $got->getValue('verbosity');
+
+    my ($obj, $errstr, $errno) = IO::Compress::Adapter::Bzip2::mkCompObject(
+                                               $BlockSize100K, $WorkFactor,
+                                               $Verbosity);
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+    
+    return $obj;
+}
+
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return '';
+#}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Bunzip2');
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+1;
+
+__END__
+
+package IO::Compress::Gzip ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter ;
+
+use IO::Compress::RawDeflate 2.074 () ; 
+use IO::Compress::Adapter::Deflate 2.074 ;
+
+use IO::Compress::Base::Common  2.074 qw(:Status );
+use IO::Compress::Gzip::Constants 2.074 ;
+use IO::Compress::Zlib::Extra 2.074 ;
+
+BEGIN
+{
+    if (defined &utf8::downgrade ) 
+      { *noUTF8 = \&utf8::downgrade }
+    else
+      { *noUTF8 = sub {} }  
+}
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
+
+$VERSION = '2.074';
+$GzipError = '' ;
+
+@ISA    = qw(IO::Compress::RawDeflate Exporter);
+@EXPORT_OK = qw( $GzipError gzip ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$GzipError);
+
+    $obj->_create(undef, @_);
+}
+
+
+sub gzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$GzipError);
+    return $obj->_def(@_);
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    #return GZIP_MINIMUM_HEADER ;
+#    return $self->mkHeader(*$self->{Got});
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+
+    return (
+            # zlib behaviour
+            $self->getZlibParams(),
+           
+            # Gzip header fields
+            'minimal'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'comment'   => [IO::Compress::Base::Common::Parse_any,       undef],
+            'name'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'time'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'textflag'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'headercrc' => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'os_code'   => [IO::Compress::Base::Common::Parse_unsigned,  $Compress::Raw::Zlib::gzip_os_code],
+            'extrafield'=> [IO::Compress::Base::Common::Parse_any,       undef],
+            'extraflags'=> [IO::Compress::Base::Common::Parse_any,       undef],
+
+        );
+}
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    return 1
+        if $got->getValue('merge') ;
+
+    my $strict = $got->getValue('strict') ;
+
+
+    {
+        if (! $got->parsed('time') ) {
+            # Modification time defaults to now.
+            $got->setValue(time => time) ;
+        }
+
+        # Check that the Name & Comment don't have embedded NULLs
+        # Also check that they only contain ISO 8859-1 chars.
+        if ($got->parsed('name') && defined $got->getValue('name')) {
+            my $name = $got->getValue('name');
+                
+            return $self->saveErrorString(undef, "Null Character found in Name",
+                                                Z_DATA_ERROR)
+                if $strict && $name =~ /\x00/ ;
+
+            return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Name",
+                                                Z_DATA_ERROR)
+                if $strict && $name =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ;
+        }
+
+        if ($got->parsed('comment') && defined $got->getValue('comment')) {
+            my $comment = $got->getValue('comment');
+
+            return $self->saveErrorString(undef, "Null Character found in Comment",
+                                                Z_DATA_ERROR)
+                if $strict && $comment =~ /\x00/ ;
+
+            return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Comment",
+                                                Z_DATA_ERROR)
+                if $strict && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o;
+        }
+
+        if ($got->parsed('os_code') ) {
+            my $value = $got->getValue('os_code');
+
+            return $self->saveErrorString(undef, "OS_Code must be between 0 and 255, got '$value'")
+                if $value < 0 || $value > 255 ;
+            
+        }
+
+        # gzip only supports Deflate at present
+        $got->setValue('method' => Z_DEFLATED) ;
+
+        if ( ! $got->parsed('extraflags')) {
+            $got->setValue('extraflags' => 2) 
+                if $got->getValue('level') == Z_BEST_COMPRESSION ;
+            $got->setValue('extraflags' => 4) 
+                if $got->getValue('level') == Z_BEST_SPEED ;
+        }
+
+        my $data = $got->getValue('extrafield') ;
+        if (defined $data) {
+            my $bad = IO::Compress::Zlib::Extra::parseExtraField($data, $strict, 1) ;
+            return $self->saveErrorString(undef, "Error with ExtraField Parameter: $bad", Z_DATA_ERROR)
+                if $bad ;
+
+            $got->setValue('extrafield' => $data) ;
+        }
+    }
+
+    return 1;
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return pack("V V", *$self->{Compress}->crc32(), 
+                       *$self->{UnCompSize}->get32bit());
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Gunzip',
+                \$IO::Uncompress::Gunzip::GunzipError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $filename = shift ;
+
+    return if IO::Compress::Base::Common::isaScalar($filename);
+
+    my $defaultTime = (stat($filename))[9] ;
+
+    $params->setValue('name' => $filename)
+        if ! $params->parsed('name') ;
+
+    $params->setValue('time' => $defaultTime) 
+        if ! $params->parsed('time') ;
+}
+
+
+sub mkHeader
+{
+    my $self = shift ;
+    my $param = shift ;
+
+    # short-circuit if a minimal header is requested.
+    return GZIP_MINIMUM_HEADER if $param->getValue('minimal') ;
+
+    # METHOD
+    my $method = $param->valueOrDefault('method', GZIP_CM_DEFLATED) ;
+
+    # FLAGS
+    my $flags       = GZIP_FLG_DEFAULT ;
+    $flags |= GZIP_FLG_FTEXT    if $param->getValue('textflag') ;
+    $flags |= GZIP_FLG_FHCRC    if $param->getValue('headercrc') ;
+    $flags |= GZIP_FLG_FEXTRA   if $param->wantValue('extrafield') ;
+    $flags |= GZIP_FLG_FNAME    if $param->wantValue('name') ;
+    $flags |= GZIP_FLG_FCOMMENT if $param->wantValue('comment') ;
+    
+    # MTIME
+    my $time = $param->valueOrDefault('time', GZIP_MTIME_DEFAULT) ;
+
+    # EXTRA FLAGS
+    my $extra_flags = $param->valueOrDefault('extraflags', GZIP_XFL_DEFAULT);
+
+    # OS CODE
+    my $os_code = $param->valueOrDefault('os_code', GZIP_OS_DEFAULT) ;
+
+
+    my $out = pack("C4 V C C", 
+            GZIP_ID1,   # ID1
+            GZIP_ID2,   # ID2
+            $method,    # Compression Method
+            $flags,     # Flags
+            $time,      # Modification Time
+            $extra_flags, # Extra Flags
+            $os_code,   # Operating System Code
+            ) ;
+
+    # EXTRA
+    if ($flags & GZIP_FLG_FEXTRA) {
+        my $extra = $param->getValue('extrafield') ;
+        $out .= pack("v", length $extra) . $extra ;
+    }
+
+    # NAME
+    if ($flags & GZIP_FLG_FNAME) {
+        my $name .= $param->getValue('name') ;
+        $name =~ s/\x00.*$//;
+        $out .= $name ;
+        # Terminate the filename with NULL unless it already is
+        $out .= GZIP_NULL_BYTE 
+            if !length $name or
+               substr($name, 1, -1) ne GZIP_NULL_BYTE ;
+    }
+
+    # COMMENT
+    if ($flags & GZIP_FLG_FCOMMENT) {
+        my $comment .= $param->getValue('comment') ;
+        $comment =~ s/\x00.*$//;
+        $out .= $comment ;
+        # Terminate the comment with NULL unless it already is
+        $out .= GZIP_NULL_BYTE
+            if ! length $comment or
+               substr($comment, 1, -1) ne GZIP_NULL_BYTE;
+    }
+
+    # HEADER CRC
+    $out .= pack("v", Compress::Raw::Zlib::crc32($out) & 0x00FF ) 
+        if $param->getValue('headercrc') ;
+
+    noUTF8($out);
+
+    return $out ;
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+1; 
+
+__END__
+
+
+package IO::Compress::Base ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+
+use IO::Compress::Base::Common 2.074 ;
+
+use IO::File (); ;
+use Scalar::Util ();
+
+#use File::Glob;
+#require Exporter ;
+use Carp() ;
+use Symbol();
+#use bytes;
+
+our (@ISA, $VERSION);
+@ISA    = qw(IO::File Exporter);
+
+$VERSION = '2.074';
+
+#Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
+
+sub saveStatus
+{
+    my $self   = shift ;
+    ${ *$self->{ErrorNo} } = shift() + 0 ;
+    ${ *$self->{Error} } = '' ;
+
+    return ${ *$self->{ErrorNo} } ;
+}
+
+
+sub saveErrorString
+{
+    my $self   = shift ;
+    my $retval = shift ;
+    ${ *$self->{Error} } = shift ;
+    ${ *$self->{ErrorNo} } = shift() + 0 if @_ ;
+
+    return $retval;
+}
+
+sub croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString(0, $_[0]);
+    Carp::croak $_[0];
+}
+
+sub closeError
+{
+    my $self = shift ;
+    my $retval = shift ;
+
+    my $errno = *$self->{ErrorNo};
+    my $error = ${ *$self->{Error} };
+
+    $self->close();
+
+    *$self->{ErrorNo} = $errno ;
+    ${ *$self->{Error} } = $error ;
+
+    return $retval;
+}
+
+
+
+sub error
+{
+    my $self   = shift ;
+    return ${ *$self->{Error} } ;
+}
+
+sub errorNo
+{
+    my $self   = shift ;
+    return ${ *$self->{ErrorNo} } ;
+}
+
+
+sub writeAt
+{
+    my $self = shift ;
+    my $offset = shift;
+    my $data = shift;
+
+    if (defined *$self->{FH}) {
+        my $here = tell(*$self->{FH});
+        return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) 
+            if $here < 0 ;
+        seek(*$self->{FH}, $offset, IO::Handle::SEEK_SET)
+            or return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+        defined *$self->{FH}->write($data, length $data)
+            or return $self->saveErrorString(undef, $!, $!) ;
+        seek(*$self->{FH}, $here, IO::Handle::SEEK_SET)
+            or return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+    }
+    else {
+        substr(${ *$self->{Buffer} }, $offset, length($data)) = $data ;
+    }
+
+    return 1;
+}
+
+sub outputPayload
+{
+
+    my $self = shift ;
+    return $self->output(@_);
+}
+
+
+sub output
+{
+    my $self = shift ;
+    my $data = shift ;
+    my $last = shift ;
+
+    return 1 
+        if length $data == 0 && ! $last ;
+
+    if ( *$self->{FilterContainer} ) {
+        *_ = \$data;
+        &{ *$self->{FilterContainer} }();
+    }
+
+    if (length $data) {
+        if ( defined *$self->{FH} ) {
+                defined *$self->{FH}->write( $data, length $data )
+                or return $self->saveErrorString(0, $!, $!); 
+        }
+        else {
+                ${ *$self->{Buffer} } .= $data ;
+        }
+    }
+
+    return 1;
+}
+
+sub getOneShotParams
+{
+    return ( 'multistream' => [IO::Compress::Base::Common::Parse_boolean,   1],
+           );
+}
+
+our %PARAMS = (
+            # Generic Parameters
+            'autoclose' => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'encode'    => [IO::Compress::Base::Common::Parse_any,       undef],
+            'strict'    => [IO::Compress::Base::Common::Parse_boolean,   1],
+            'append'    => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'binmodein' => [IO::Compress::Base::Common::Parse_boolean,   0],
+
+            'filtercontainer' => [IO::Compress::Base::Common::Parse_code,  undef],
+        );
+        
+sub checkParams
+{
+    my $self = shift ;
+    my $class = shift ;
+
+    my $got = shift || IO::Compress::Base::Parameters::new();
+
+    $got->parse(
+        {
+            %PARAMS,
+
+
+            $self->getExtraParams(),
+            *$self->{OneShot} ? $self->getOneShotParams() 
+                              : (),
+        }, 
+        @_) or $self->croakError("${class}: " . $got->getError())  ;
+
+    return $got ;
+}
+
+sub _create
+{
+    my $obj = shift;
+    my $got = shift;
+
+    *$obj->{Closed} = 1 ;
+
+    my $class = ref $obj;
+    $obj->croakError("$class: Missing Output parameter")
+        if ! @_ && ! $got ;
+
+    my $outValue = shift ;
+    my $oneShot = 1 ;
+
+    if (! $got)
+    {
+        $oneShot = 0 ;
+        $got = $obj->checkParams($class, undef, @_)
+            or return undef ;
+    }
+
+    my $lax = ! $got->getValue('strict') ;
+
+    my $outType = IO::Compress::Base::Common::whatIsOutput($outValue);
+
+    $obj->ckOutputParam($class, $outValue)
+        or return undef ;
+
+    if ($outType eq 'buffer') {
+        *$obj->{Buffer} = $outValue;
+    }
+    else {
+        my $buff = "" ;
+        *$obj->{Buffer} = \$buff ;
+    }
+
+    # Merge implies Append
+    my $merge = $got->getValue('merge') ;
+    my $appendOutput = $got->getValue('append') || $merge ;
+    *$obj->{Append} = $appendOutput;
+    *$obj->{FilterContainer} = $got->getValue('filtercontainer') ;
+
+    if ($merge)
+    {
+        # Switch off Merge mode if output file/buffer is empty/doesn't exist
+        if (($outType eq 'buffer' && length $$outValue == 0 ) ||
+            ($outType ne 'buffer' && (! -e $outValue || (-w _ && -z _))) )
+          { $merge = 0 }
+    }
+
+    # If output is a file, check that it is writable
+    #no warnings;
+    #if ($outType eq 'filename' && -e $outValue && ! -w _)
+    #  { return $obj->saveErrorString(undef, "Output file '$outValue' is not writable" ) }
+
+    $obj->ckParams($got)
+        or $obj->croakError("${class}: " . $obj->error());
+
+    if ($got->getValue('encode')) { 
+        my $want_encoding = $got->getValue('encode');
+        *$obj->{Encoding} = IO::Compress::Base::Common::getEncoding($obj, $class, $want_encoding);
+        my $x = *$obj->{Encoding}; 
+    }
+    else {
+        *$obj->{Encoding} = undef; 
+    }
+    
+    $obj->saveStatus(STATUS_OK) ;
+
+    my $status ;
+    if (! $merge)
+    {
+        *$obj->{Compress} = $obj->mkComp($got)
+            or return undef;
+        
+        *$obj->{UnCompSize} = new U64 ;
+        *$obj->{CompSize} = new U64 ;
+
+        if ( $outType eq 'buffer') {
+            ${ *$obj->{Buffer} }  = ''
+                unless $appendOutput ;
+        }
+        else {
+            if ($outType eq 'handle') {
+                *$obj->{FH} = $outValue ;
+                setBinModeOutput(*$obj->{FH}) ;
+                #$outValue->flush() ;
+                *$obj->{Handle} = 1 ;
+                if ($appendOutput)
+                {
+                    seek(*$obj->{FH}, 0, IO::Handle::SEEK_END)
+                        or return $obj->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+
+                }
+            }
+            elsif ($outType eq 'filename') {    
+                no warnings;
+                my $mode = '>' ;
+                $mode = '>>'
+                    if $appendOutput;
+                *$obj->{FH} = new IO::File "$mode $outValue" 
+                    or return $obj->saveErrorString(undef, "cannot open file '$outValue': $!", $!) ;
+                *$obj->{StdIO} = ($outValue eq '-'); 
+                setBinModeOutput(*$obj->{FH}) ;
+            }
+        }
+
+        *$obj->{Header} = $obj->mkHeader($got) ;
+        $obj->output( *$obj->{Header} )
+            or return undef;
+        $obj->beforePayload();
+    }
+    else
+    {
+        *$obj->{Compress} = $obj->createMerge($outValue, $outType)
+            or return undef;
+    }
+
+    *$obj->{Closed} = 0 ;
+    *$obj->{AutoClose} = $got->getValue('autoclose') ;
+    *$obj->{Output} = $outValue;
+    *$obj->{ClassName} = $class;
+    *$obj->{Got} = $got;
+    *$obj->{OneShot} = 0 ;
+
+    return $obj ;
+}
+
+sub ckOutputParam 
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $outType = IO::Compress::Base::Common::whatIsOutput($_[0]);
+
+    $self->croakError("$from: output parameter not a filename, filehandle or scalar ref")
+        if ! $outType ;
+
+    #$self->croakError("$from: output filename is undef or null string")
+        #if $outType eq 'filename' && (! defined $_[0] || $_[0] eq '')  ;
+
+    $self->croakError("$from: output buffer is read-only")
+        if $outType eq 'buffer' && Scalar::Util::readonly(${ $_[0] });
+    
+    return 1;    
+}
+
+
+sub _def
+{
+    my $obj = shift ;
+    
+    my $class= (caller)[0] ;
+    my $name = (caller(1))[3] ;
+
+    $obj->croakError("$name: expected at least 1 parameters\n")
+        unless @_ >= 1 ;
+
+    my $input = shift ;
+    my $haveOut = @_ ;
+    my $output = shift ;
+
+    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+        or return undef ;
+
+    push @_, $output if $haveOut && $x->{Hash};
+
+    *$obj->{OneShot} = 1 ;
+
+    my $got = $obj->checkParams($name, undef, @_)
+        or return undef ;
+
+    $x->{Got} = $got ;
+
+#    if ($x->{Hash})
+#    {
+#        while (my($k, $v) = each %$input)
+#        {
+#            $v = \$input->{$k} 
+#                unless defined $v ;
+#
+#            $obj->_singleTarget($x, 1, $k, $v, @_)
+#                or return undef ;
+#        }
+#
+#        return keys %$input ;
+#    }
+
+    if ($x->{GlobMap})
+    {
+        $x->{oneInput} = 1 ;
+        foreach my $pair (@{ $x->{Pairs} })
+        {
+            my ($from, $to) = @$pair ;
+            $obj->_singleTarget($x, 1, $from, $to, @_)
+                or return undef ;
+        }
+
+        return scalar @{ $x->{Pairs} } ;
+    }
+
+    if (! $x->{oneOutput} )
+    {
+        my $inFile = ($x->{inType} eq 'filenames' 
+                        || $x->{inType} eq 'filename');
+
+        $x->{inType} = $inFile ? 'filename' : 'buffer';
+        
+        foreach my $in ($x->{oneInput} ? $input : @$input)
+        {
+            my $out ;
+            $x->{oneInput} = 1 ;
+
+            $obj->_singleTarget($x, $inFile, $in, \$out, @_)
+                or return undef ;
+
+            push @$output, \$out ;
+            #if ($x->{outType} eq 'array')
+            #  { push @$output, \$out }
+            #else
+            #  { $output->{$in} = \$out }
+        }
+
+        return 1 ;
+    }
+
+    # finally the 1 to 1 and n to 1
+    return $obj->_singleTarget($x, 1, $input, $output, @_);
+
+    Carp::croak "should not be here" ;
+}
+
+sub _singleTarget
+{
+    my $obj             = shift ;
+    my $x               = shift ;
+    my $inputIsFilename = shift;
+    my $input           = shift;
+    
+    if ($x->{oneInput})
+    {
+        $obj->getFileInfo($x->{Got}, $input)
+            if isaScalar($input) || (isaFilename($input) and $inputIsFilename) ;
+
+        my $z = $obj->_create($x->{Got}, @_)
+            or return undef ;
+
+
+        defined $z->_wr2($input, $inputIsFilename) 
+            or return $z->closeError(undef) ;
+
+        return $z->close() ;
+    }
+    else
+    {
+        my $afterFirst = 0 ;
+        my $inputIsFilename = ($x->{inType} ne 'array');
+        my $keep = $x->{Got}->clone();
+
+        #for my $element ( ($x->{inType} eq 'hash') ? keys %$input : @$input)
+        for my $element ( @$input)
+        {
+            my $isFilename = isaFilename($element);
+
+            if ( $afterFirst ++ )
+            {
+                defined addInterStream($obj, $element, $isFilename)
+                    or return $obj->closeError(undef) ;
+            }
+            else
+            {
+                $obj->getFileInfo($x->{Got}, $element)
+                    if isaScalar($element) || $isFilename;
+
+                $obj->_create($x->{Got}, @_)
+                    or return undef ;
+            }
+
+            defined $obj->_wr2($element, $isFilename) 
+                or return $obj->closeError(undef) ;
+
+            *$obj->{Got} = $keep->clone();
+        }
+        return $obj->close() ;
+    }
+
+}
+
+sub _wr2
+{
+    my $self = shift ;
+
+    my $source = shift ;
+    my $inputIsFilename = shift;
+
+    my $input = $source ;
+    if (! $inputIsFilename)
+    {
+        $input = \$source 
+            if ! ref $source;
+    }
+
+    if ( ref $input && ref $input eq 'SCALAR' )
+    {
+        return $self->syswrite($input, @_) ;
+    }
+
+    if ( ! ref $input  || isaFilehandle($input))
+    {
+        my $isFilehandle = isaFilehandle($input) ;
+
+        my $fh = $input ;
+
+        if ( ! $isFilehandle )
+        {
+            $fh = new IO::File "<$input"
+                or return $self->saveErrorString(undef, "cannot open file '$input': $!", $!) ;
+        }
+        binmode $fh if *$self->{Got}->valueOrDefault('binmodein') ;
+
+        my $status ;
+        my $buff ;
+        my $count = 0 ;
+        while ($status = read($fh, $buff, 16 * 1024)) {
+            $count += length $buff;
+            defined $self->syswrite($buff, @_) 
+                or return undef ;
+        }
+
+        return $self->saveErrorString(undef, $!, $!) 
+            if ! defined $status ;
+
+        if ( (!$isFilehandle || *$self->{AutoClose}) && $input ne '-')
+        {    
+            $fh->close() 
+                or return undef ;
+        }
+
+        return $count ;
+    }
+
+    Carp::croak "Should not be here";
+    return undef;
+}
+
+sub addInterStream
+{
+    my $self = shift ;
+    my $input = shift ;
+    my $inputIsFilename = shift ;
+
+    if (*$self->{Got}->getValue('multistream'))
+    {
+        $self->getFileInfo(*$self->{Got}, $input)
+            #if isaFilename($input) and $inputIsFilename ;
+            if isaScalar($input) || isaFilename($input) ;
+
+        # TODO -- newStream needs to allow gzip/zip header to be modified
+        return $self->newStream();
+    }
+    elsif (*$self->{Got}->getValue('autoflush'))
+    {
+        #return $self->flush(Z_FULL_FLUSH);
+    }
+
+    return 1 ;
+}
+
+sub getFileInfo
+{
+}
+
+sub TIEHANDLE
+{
+    return $_[0] if ref($_[0]);
+    die "OOPS\n" ;
+}
+  
+sub UNTIE
+{
+    my $self = shift ;
+}
+
+sub DESTROY
+{
+    my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+    
+    $self->close() ;
+
+    # TODO - memory leak with 5.8.0 - this isn't called until 
+    #        global destruction
+    #
+    %{ *$self } = () ;
+    undef $self ;
+}
+
+
+
+sub filterUncompressed
+{
+}
+
+sub syswrite
+{
+    my $self = shift ;
+
+    my $buffer ;
+    if (ref $_[0] ) {
+        $self->croakError( *$self->{ClassName} . "::write: not a scalar reference" )
+            unless ref $_[0] eq 'SCALAR' ;
+        $buffer = $_[0] ;
+    }
+    else {
+        $buffer = \$_[0] ;
+    }
+
+    if (@_ > 1) {
+        my $slen = defined $$buffer ? length($$buffer) : 0;
+        my $len = $slen;
+        my $offset = 0;
+        $len = $_[1] if $_[1] < $len;
+
+        if (@_ > 2) {
+            $offset = $_[2] || 0;
+            $self->croakError(*$self->{ClassName} . "::write: offset outside string") 
+                if $offset > $slen;
+            if ($offset < 0) {
+                $offset += $slen;
+                $self->croakError( *$self->{ClassName} . "::write: offset outside string") if $offset < 0;
+            }
+            my $rem = $slen - $offset;
+            $len = $rem if $rem < $len;
+        }
+
+        $buffer = \substr($$buffer, $offset, $len) ;
+    }
+
+    return 0 if (! defined $$buffer || length $$buffer == 0) && ! *$self->{FlushPending};
+    
+#    *$self->{Pending} .= $$buffer ;
+#    
+#    return length $$buffer
+#        if (length *$self->{Pending} < 1024 * 16 && ! *$self->{FlushPending}) ;
+#
+#    $$buffer = *$self->{Pending} ; 
+#    *$self->{Pending} = '';
+    
+    if (*$self->{Encoding}) {      
+        $$buffer = *$self->{Encoding}->encode($$buffer);
+    }
+    else {
+        $] >= 5.008 and ( utf8::downgrade($$buffer, 1) 
+            or Carp::croak "Wide character in " .  *$self->{ClassName} . "::write:");
+    }
+
+    $self->filterUncompressed($buffer);
+
+    my $buffer_length = defined $$buffer ? length($$buffer) : 0 ;
+    *$self->{UnCompSize}->add($buffer_length) ;
+
+    my $outBuffer='';
+    my $status = *$self->{Compress}->compr($buffer, $outBuffer) ;
+
+    return $self->saveErrorString(undef, *$self->{Compress}{Error}, 
+                                         *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    *$self->{CompSize}->add(length $outBuffer) ;
+
+    $self->outputPayload($outBuffer)
+        or return undef;
+
+    return $buffer_length;
+}
+
+sub print
+{
+    my $self = shift;
+
+    #if (ref $self) {
+    #    $self = *$self{GLOB} ;
+    #}
+
+    if (defined $\) {
+        if (defined $,) {
+            defined $self->syswrite(join($,, @_) . $\);
+        } else {
+            defined $self->syswrite(join("", @_) . $\);
+        }
+    } else {
+        if (defined $,) {
+            defined $self->syswrite(join($,, @_));
+        } else {
+            defined $self->syswrite(join("", @_));
+        }
+    }
+}
+
+sub printf
+{
+    my $self = shift;
+    my $fmt = shift;
+    defined $self->syswrite(sprintf($fmt, @_));
+}
+
+sub _flushCompressed
+{
+    my $self = shift ;
+
+    my $outBuffer='';
+    my $status = *$self->{Compress}->flush($outBuffer, @_) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, 
+                                    *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    if ( defined *$self->{FH} ) {
+        *$self->{FH}->clearerr();
+    }
+
+    *$self->{CompSize}->add(length $outBuffer) ;
+
+    $self->outputPayload($outBuffer)
+        or return 0;
+    return 1;        
+}
+
+sub flush
+{   
+    my $self = shift ;
+
+    $self->_flushCompressed(@_)
+        or return 0;        
+
+    if ( defined *$self->{FH} ) {
+        defined *$self->{FH}->flush()
+            or return $self->saveErrorString(0, $!, $!); 
+    }
+
+    return 1;
+}
+
+sub beforePayload
+{
+}
+
+sub _newStream
+{
+    my $self = shift ;
+    my $got  = shift;
+
+    my $class = ref $self;
+
+    $self->_writeTrailer()
+        or return 0 ;
+
+    $self->ckParams($got)
+        or $self->croakError("newStream: $self->{Error}");
+
+    if ($got->getValue('encode')) { 
+        my $want_encoding = $got->getValue('encode');
+        *$self->{Encoding} = IO::Compress::Base::Common::getEncoding($self, $class, $want_encoding);
+    }
+    else {
+        *$self->{Encoding} = undef;
+    }
+    
+    *$self->{Compress} = $self->mkComp($got)
+        or return 0;
+
+    *$self->{Header} = $self->mkHeader($got) ;
+    $self->output(*$self->{Header} )
+        or return 0;
+    
+    *$self->{UnCompSize}->reset();
+    *$self->{CompSize}->reset();
+
+    $self->beforePayload();
+
+    return 1 ;
+}
+
+sub newStream
+{
+    my $self = shift ;
+  
+    my $got = $self->checkParams('newStream', *$self->{Got}, @_)
+        or return 0 ;    
+
+    $self->_newStream($got);
+
+#    *$self->{Compress} = $self->mkComp($got)
+#        or return 0;
+#
+#    *$self->{Header} = $self->mkHeader($got) ;
+#    $self->output(*$self->{Header} )
+#        or return 0;
+#    
+#    *$self->{UnCompSize}->reset();
+#    *$self->{CompSize}->reset();
+#
+#    $self->beforePayload();
+#
+#    return 1 ;
+}
+
+sub reset
+{
+    my $self = shift ;
+    return *$self->{Compress}->reset() ;
+}
+
+sub _writeTrailer
+{
+    my $self = shift ;
+
+    my $trailer = '';
+
+    my $status = *$self->{Compress}->close($trailer) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    *$self->{CompSize}->add(length $trailer) ;
+
+    $trailer .= $self->mkTrailer();
+    defined $trailer
+      or return 0;
+
+    return $self->output($trailer);
+}
+
+sub _writeFinalTrailer
+{
+    my $self = shift ;
+
+    return $self->output($self->mkFinalTrailer());
+}
+
+sub close
+{
+    my $self = shift ;
+    return 1 if *$self->{Closed} || ! *$self->{Compress} ;
+    *$self->{Closed} = 1 ;
+
+    untie *$self 
+        if $] >= 5.008 ;
+
+    *$self->{FlushPending} = 1 ;
+    $self->_writeTrailer()
+        or return 0 ;
+
+    $self->_writeFinalTrailer()
+        or return 0 ;
+
+    $self->output( "", 1 )
+        or return 0;
+
+    if (defined *$self->{FH}) {
+
+        if ((! *$self->{Handle} || *$self->{AutoClose}) && ! *$self->{StdIO}) {
+            $! = 0 ;
+            *$self->{FH}->close()
+                or return $self->saveErrorString(0, $!, $!); 
+        }
+        delete *$self->{FH} ;
+        # This delete can set $! in older Perls, so reset the errno
+        $! = 0 ;
+    }
+
+    return 1;
+}
+
+
+#sub total_in
+#sub total_out
+#sub msg
+#
+#sub crc
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->crc32() ;
+#}
+#
+#sub msg
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->msg() ;
+#}
+#
+#sub dict_adler
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->dict_adler() ;
+#}
+#
+#sub get_Level
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->get_Level() ;
+#}
+#
+#sub get_Strategy
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->get_Strategy() ;
+#}
+
+
+sub tell
+{
+    my $self = shift ;
+
+    return *$self->{UnCompSize}->get32bit() ;
+}
+
+sub eof
+{
+    my $self = shift ;
+
+    return *$self->{Closed} ;
+}
+
+
+sub seek
+{
+    my $self     = shift ;
+    my $position = shift;
+    my $whence   = shift ;
+
+    my $here = $self->tell() ;
+    my $target = 0 ;
+
+    #use IO::Handle qw(SEEK_SET SEEK_CUR SEEK_END);
+    use IO::Handle ;
+
+    if ($whence == IO::Handle::SEEK_SET) {
+        $target = $position ;
+    }
+    elsif ($whence == IO::Handle::SEEK_CUR || $whence == IO::Handle::SEEK_END) {
+        $target = $here + $position ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} . "::seek: unknown value, $whence, for whence parameter");
+    }
+
+    # short circuit if seeking to current offset
+    return 1 if $target == $here ;    
+
+    # Outlaw any attempt to seek backwards
+    $self->croakError(*$self->{ClassName} . "::seek: cannot seek backwards")
+        if $target < $here ;
+
+    # Walk the file to the new offset
+    my $offset = $target - $here ;
+
+    my $buffer ;
+    defined $self->syswrite("\x00" x $offset)
+        or return 0;
+
+    return 1 ;
+}
+
+sub binmode
+{
+    1;
+#    my $self     = shift ;
+#    return defined *$self->{FH} 
+#            ? binmode *$self->{FH} 
+#            : 1 ;
+}
+
+sub fileno
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->fileno() 
+            : undef ;
+}
+
+sub opened
+{
+    my $self     = shift ;
+    return ! *$self->{Closed} ;
+}
+
+sub autoflush
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->autoflush(@_) 
+            : undef ;
+}
+
+sub input_line_number
+{
+    return undef ;
+}
+
+
+sub _notAvailable
+{
+    my $name = shift ;
+    return sub { Carp::croak "$name Not Available: File opened only for output" ; } ;
+}
+
+*read     = _notAvailable('read');
+*READ     = _notAvailable('read');
+*readline = _notAvailable('readline');
+*READLINE = _notAvailable('readline');
+*getc     = _notAvailable('getc');
+*GETC     = _notAvailable('getc');
+
+*FILENO   = \&fileno;
+*PRINT    = \&print;
+*PRINTF   = \&printf;
+*WRITE    = \&syswrite;
+*write    = \&syswrite;
+*SEEK     = \&seek; 
+*TELL     = \&tell;
+*EOF      = \&eof;
+*CLOSE    = \&close;
+*BINMODE  = \&binmode;
+
+#*sysread  = \&_notAvailable;
+#*syswrite = \&_write;
+
+1; 
+
+__END__
+
+package IO::Compress::Zip ;
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status );
+use IO::Compress::RawDeflate 2.074 ();
+use IO::Compress::Adapter::Deflate 2.074 ;
+use IO::Compress::Adapter::Identity 2.074 ;
+use IO::Compress::Zlib::Extra 2.074 ;
+use IO::Compress::Zip::Constants 2.074 ;
+
+use File::Spec();
+use Config;
+
+use Compress::Raw::Zlib  2.074 (); 
+
+BEGIN
+{
+    eval { require IO::Compress::Adapter::Bzip2 ; 
+           import  IO::Compress::Adapter::Bzip2 2.074 ; 
+           require IO::Compress::Bzip2 ; 
+           import  IO::Compress::Bzip2 2.074 ; 
+         } ;
+         
+    eval { require IO::Compress::Adapter::Lzma ; 
+           import  IO::Compress::Adapter::Lzma 2.074 ; 
+           require IO::Compress::Lzma ; 
+           import  IO::Compress::Lzma 2.074 ; 
+         } ;
+}
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
+
+$VERSION = '2.074';
+$ZipError = '';
+
+@ISA = qw(IO::Compress::RawDeflate Exporter);
+@EXPORT_OK = qw( $ZipError zip ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+$EXPORT_TAGS{zip_method} = [qw( ZIP_CM_STORE ZIP_CM_DEFLATE ZIP_CM_BZIP2 ZIP_CM_LZMA)];
+push @{ $EXPORT_TAGS{all} }, @{ $EXPORT_TAGS{zip_method} };
+
+Exporter::export_ok_tags('all');
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$ZipError);    
+    $obj->_create(undef, @_);
+
+}
+
+sub zip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$ZipError);    
+    return $obj->_def(@_);
+}
+
+sub isMethodAvailable
+{
+    my $method = shift;
+    
+    # Store & Deflate are always available
+    return 1
+        if $method == ZIP_CM_STORE || $method == ZIP_CM_DEFLATE ;
+        
+    return 1 
+        if $method == ZIP_CM_BZIP2 and 
+           defined $IO::Compress::Adapter::Bzip2::VERSION;
+           
+    return 1
+        if $method == ZIP_CM_LZMA and
+           defined $IO::Compress::Adapter::Lzma::VERSION;
+           
+    return 0;       
+}
+
+sub beforePayload
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Sparse} ) {
+        my $inc = 1024 * 100 ;
+        my $NULLS = ("\x00" x $inc) ;
+        my $sparse = *$self->{ZipData}{Sparse} ;
+        *$self->{CompSize}->add( $sparse );
+        *$self->{UnCompSize}->add( $sparse );
+        
+        *$self->{FH}->seek($sparse, IO::Handle::SEEK_CUR);
+        
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32($NULLS, *$self->{ZipData}{CRC32})
+            for 1 .. int $sparse / $inc;
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(substr($NULLS, 0,  $sparse % $inc), 
+                                         *$self->{ZipData}{CRC32})
+            if $sparse % $inc;
+    }
+}
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_STORE) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Identity::mkCompObject(
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject(
+                                                 $got->getValue('crc32'),
+                                                 $got->getValue('adler32'),
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_BZIP2) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Bzip2::mkCompObject(
+                                                $got->getValue('blocksize100k'),
+                                                $got->getValue('workfactor'),
+                                                $got->getValue('verbosity')
+                                               );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_LZMA) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Lzma::mkRawZipCompObject($got->getValue('preset'),
+                                                                                 $got->getValue('extreme'),
+                                                                                 );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+       if ! defined $obj;
+
+    if (! defined *$self->{ZipData}{SizesOffset}) {
+        *$self->{ZipData}{SizesOffset} = 0;
+        *$self->{ZipData}{Offset} = new U64 ;
+    }
+
+    *$self->{ZipData}{AnyZip64} = 0
+        if ! defined  *$self->{ZipData}{AnyZip64} ;
+
+    return $obj;    
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    *$self->{Compress}->reset();
+    *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32('');
+
+    return STATUS_OK;    
+}
+
+sub filterUncompressed
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        *$self->{ZipData}{CRC32} = *$self->{Compress}->crc32();
+    }
+    else {
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(${$_[0]}, *$self->{ZipData}{CRC32});
+
+    }
+}
+
+sub canonicalName
+{
+    # This sub is derived from Archive::Zip::_asZipDirName
+
+    # Return the normalized name as used in a zip file (path
+    # separators become slashes, etc.).
+    # Will translate internal slashes in path components (i.e. on Macs) to
+    # underscores.  Discards volume names.
+    # When $forceDir is set, returns paths with trailing slashes 
+    #
+    # input         output
+    # .             '.'
+    # ./a           a
+    # ./a/b         a/b
+    # ./a/b/        a/b
+    # a/b/          a/b
+    # /a/b/         a/b
+    # c:\a\b\c.doc  a/b/c.doc      # on Windows
+    # "i/o maps:whatever"   i_o maps/whatever   # on Macs
+
+    my $name      = shift;
+    my $forceDir  = shift ;
+
+    my ( $volume, $directories, $file ) =
+      File::Spec->splitpath( File::Spec->canonpath($name), $forceDir );
+      
+    my @dirs = map { $_ =~ s{/}{_}g; $_ } 
+               File::Spec->splitdir($directories);
+
+    if ( @dirs > 0 ) { pop (@dirs) if $dirs[-1] eq '' }   # remove empty component
+    push @dirs, defined($file) ? $file : '' ;
+
+    my $normalised_path = join '/', @dirs;
+
+    # Leading directory separators should not be stored in zip archives.
+    # Example:
+    #   C:\a\b\c\      a/b/c
+    #   C:\a\b\c.txt   a/b/c.txt
+    #   /a/b/c/        a/b/c
+    #   /a/b/c.txt     a/b/c.txt
+    $normalised_path =~ s{^/}{};  # remove leading separator
+
+    return $normalised_path;
+}
+
+
+sub mkHeader
+{
+    my $self  = shift;
+    my $param = shift ;
+    
+    *$self->{ZipData}{LocalHdrOffset} = U64::clone(*$self->{ZipData}{Offset});
+        
+    my $comment = '';
+    $comment = $param->valueOrDefault('comment') ;
+
+    my $filename = '';
+    $filename = $param->valueOrDefault('name') ;
+
+    $filename = canonicalName($filename)
+        if length $filename && $param->getValue('canonicalname') ;
+
+    if (defined *$self->{ZipData}{FilterName} ) {
+        local *_ = \$filename ;
+        &{ *$self->{ZipData}{FilterName} }() ;
+    }
+
+#    if ( $param->getValue('utf8') ) {
+#        require Encode ;
+#        $filename = Encode::encode_utf8($filename)
+#            if length $filename ;
+#        $comment = Encode::encode_utf8($comment)
+#            if length $comment ;
+#    }
+
+    my $hdr = '';
+
+    my $time = _unixToDosTime($param->getValue('time'));
+
+    my $extra = '';
+    my $ctlExtra = '';
+    my $empty = 0;
+    my $osCode = $param->getValue('os_code') ;
+    my $extFileAttr = 0 ;
+    
+    # This code assumes Unix.
+    # TODO - revisit this
+    $extFileAttr = 0100644 << 16 
+        if $osCode == ZIP_OS_CODE_UNIX ;
+
+    if (*$self->{ZipData}{Zip64}) {
+        $empty = IO::Compress::Base::Common::MAX32;
+
+        my $x = '';
+        $x .= pack "V V", 0, 0 ; # uncompressedLength   
+        $x .= pack "V V", 0, 0 ; # compressedLength   
+        
+        # Zip64 needs to be first in extra field to workaround a Windows Explorer Bug
+        # See http://www.info-zip.org/phpBB3/viewtopic.php?f=3&t=440 for details
+        $extra .= IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_ZIP64, $x);
+    }
+
+    if (! $param->getValue('minimal')) {
+        if ($param->parsed('mtime'))
+        {
+            $extra .= mkExtendedTime($param->getValue('mtime'), 
+                                    $param->getValue('atime'), 
+                                    $param->getValue('ctime'));
+
+            $ctlExtra .= mkExtendedTime($param->getValue('mtime'));
+        }
+
+        if ( $osCode == ZIP_OS_CODE_UNIX )
+        {
+            if ( $param->getValue('want_exunixn') )
+            {
+                    my $ux3 = mkUnixNExtra( @{ $param->getValue('want_exunixn') }); 
+                    $extra    .= $ux3;
+                    $ctlExtra .= $ux3;
+            }
+
+            if ( $param->getValue('exunix2') )
+            {
+                    $extra    .= mkUnix2Extra( @{ $param->getValue('exunix2') }); 
+                    $ctlExtra .= mkUnix2Extra();
+            }
+        }
+
+        $extFileAttr = $param->getValue('extattr') 
+            if defined $param->getValue('extattr') ;
+
+        $extra .= $param->getValue('extrafieldlocal') 
+            if defined $param->getValue('extrafieldlocal');
+
+        $ctlExtra .= $param->getValue('extrafieldcentral') 
+            if defined $param->getValue('extrafieldcentral');
+    }
+
+    my $method = *$self->{ZipData}{Method} ;
+    my $gpFlag = 0 ;    
+    $gpFlag |= ZIP_GP_FLAG_STREAMING_MASK
+        if *$self->{ZipData}{Stream} ;
+
+    $gpFlag |= ZIP_GP_FLAG_LZMA_EOS_PRESENT
+        if $method == ZIP_CM_LZMA ;
+
+#    $gpFlag |= ZIP_GP_FLAG_LANGUAGE_ENCODING
+#        if  $param->getValue('utf8') && (length($filename) || length($comment));
+
+    my $version = $ZIP_CM_MIN_VERSIONS{$method};
+    $version = ZIP64_MIN_VERSION
+        if ZIP64_MIN_VERSION > $version && *$self->{ZipData}{Zip64};
+
+    my $madeBy = ($param->getValue('os_code') << 8) + $version;
+    my $extract = $version;
+
+    *$self->{ZipData}{Version} = $version;
+    *$self->{ZipData}{MadeBy} = $madeBy;
+
+    my $ifa = 0;
+    $ifa |= ZIP_IFA_TEXT_MASK
+        if $param->getValue('textflag');
+
+    $hdr .= pack "V", ZIP_LOCAL_HDR_SIG ; # signature
+    $hdr .= pack 'v', $extract   ; # extract Version & OS
+    $hdr .= pack 'v', $gpFlag    ; # general purpose flag (set streaming mode)
+    $hdr .= pack 'v', $method    ; # compression method (deflate)
+    $hdr .= pack 'V', $time      ; # last mod date/time
+    $hdr .= pack 'V', 0          ; # crc32               - 0 when streaming
+    $hdr .= pack 'V', $empty     ; # compressed length   - 0 when streaming
+    $hdr .= pack 'V', $empty     ; # uncompressed length - 0 when streaming
+    $hdr .= pack 'v', length $filename ; # filename length
+    $hdr .= pack 'v', length $extra ; # extra length
+    
+    $hdr .= $filename ;
+
+    # Remember the offset for the compressed & uncompressed lengths in the
+    # local header.
+    if (*$self->{ZipData}{Zip64}) {
+        *$self->{ZipData}{SizesOffset} = *$self->{ZipData}{Offset}->get64bit()
+            + length($hdr) + 4 ;
+    }
+    else {
+        *$self->{ZipData}{SizesOffset} = *$self->{ZipData}{Offset}->get64bit()
+                                            + 18;
+    }
+
+    $hdr .= $extra ;
+
+
+    my $ctl = '';
+
+    $ctl .= pack "V", ZIP_CENTRAL_HDR_SIG ; # signature
+    $ctl .= pack 'v', $madeBy    ; # version made by
+    $ctl .= pack 'v', $extract   ; # extract Version
+    $ctl .= pack 'v', $gpFlag    ; # general purpose flag (streaming mode)
+    $ctl .= pack 'v', $method    ; # compression method (deflate)
+    $ctl .= pack 'V', $time      ; # last mod date/time
+    $ctl .= pack 'V', 0          ; # crc32
+    $ctl .= pack 'V', $empty     ; # compressed length
+    $ctl .= pack 'V', $empty     ; # uncompressed length
+    $ctl .= pack 'v', length $filename ; # filename length
+
+    *$self->{ZipData}{ExtraOffset} = length $ctl;
+    *$self->{ZipData}{ExtraSize} = length $ctlExtra ;
+
+    $ctl .= pack 'v', length $ctlExtra ; # extra length
+    $ctl .= pack 'v', length $comment ;  # file comment length
+    $ctl .= pack 'v', 0          ; # disk number start 
+    $ctl .= pack 'v', $ifa       ; # internal file attributes
+    $ctl .= pack 'V', $extFileAttr   ; # external file attributes
+
+    # offset to local hdr
+    if (*$self->{ZipData}{LocalHdrOffset}->is64bit() ) { 
+        $ctl .= pack 'V', IO::Compress::Base::Common::MAX32 ;
+    }
+    else {
+        $ctl .= *$self->{ZipData}{LocalHdrOffset}->getPacked_V32() ; 
+    }
+    
+    $ctl .= $filename ;
+
+    *$self->{ZipData}{Offset}->add32(length $hdr) ;
+
+    *$self->{ZipData}{CentralHeader} = [ $ctl, $ctlExtra, $comment];
+
+    return $hdr;
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+
+    my $crc32 ;
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        $crc32 = pack "V", *$self->{Compress}->crc32();
+    }
+    else {
+        $crc32 = pack "V", *$self->{ZipData}{CRC32};
+    }
+
+    my ($ctl, $ctlExtra, $comment) = @{ *$self->{ZipData}{CentralHeader} };   
+
+    my $sizes ;
+    if (! *$self->{ZipData}{Zip64}) {
+        $sizes .= *$self->{CompSize}->getPacked_V32() ;   # Compressed size
+        $sizes .= *$self->{UnCompSize}->getPacked_V32() ; # Uncompressed size
+    }
+    else {
+        $sizes .= *$self->{CompSize}->getPacked_V64() ;   # Compressed size
+        $sizes .= *$self->{UnCompSize}->getPacked_V64() ; # Uncompressed size
+    }
+
+    my $data = $crc32 . $sizes ;
+
+    my $xtrasize  = *$self->{UnCompSize}->getPacked_V64() ; # Uncompressed size
+       $xtrasize .= *$self->{CompSize}->getPacked_V64() ;   # Compressed size
+
+    my $hdr = '';
+
+    if (*$self->{ZipData}{Stream}) {
+        $hdr  = pack "V", ZIP_DATA_HDR_SIG ;                       # signature
+        $hdr .= $data ;
+    }
+    else {
+        $self->writeAt(*$self->{ZipData}{LocalHdrOffset}->get64bit() + 14,  $crc32)
+            or return undef;
+        $self->writeAt(*$self->{ZipData}{SizesOffset}, 
+                *$self->{ZipData}{Zip64} ? $xtrasize : $sizes)
+            or return undef;
+    }
+
+    # Central Header Record/Zip64 extended field
+
+    substr($ctl, 16, length $crc32) = $crc32 ;
+
+    my $zip64Payload = '';
+
+    # uncompressed length - only set zip64 if needed
+    if (*$self->{UnCompSize}->isAlmost64bit()) { #  || *$self->{ZipData}{Zip64}) {
+        $zip64Payload .= *$self->{UnCompSize}->getPacked_V64() ; 
+    } else {
+        substr($ctl, 24, 4) = *$self->{UnCompSize}->getPacked_V32() ;
+    }
+
+    # compressed length - only set zip64 if needed
+    if (*$self->{CompSize}->isAlmost64bit()) { # || *$self->{ZipData}{Zip64}) {
+        $zip64Payload .= *$self->{CompSize}->getPacked_V64() ; 
+    } else {
+        substr($ctl, 20, 4) = *$self->{CompSize}->getPacked_V32() ;
+    }
+
+    # Local Header offset
+    $zip64Payload .= *$self->{ZipData}{LocalHdrOffset}->getPacked_V64()
+        if *$self->{ZipData}{LocalHdrOffset}->is64bit() ; 
+
+    # disk no - always zero, so don't need to include it.
+    #$zip64Payload .= pack "V", 0    ; 
+
+    my $zip64Xtra = '';
+    
+    if (length $zip64Payload) {
+        $zip64Xtra = IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_ZIP64, $zip64Payload);
+        
+        substr($ctl, *$self->{ZipData}{ExtraOffset}, 2) = 
+             pack 'v', *$self->{ZipData}{ExtraSize} + length $zip64Xtra;
+
+        *$self->{ZipData}{AnyZip64} = 1;
+    }
+
+    # Zip64 needs to be first in extra field to workaround a Windows Explorer Bug
+    # See http://www.info-zip.org/phpBB3/viewtopic.php?f=3&t=440 for details
+    $ctl .= $zip64Xtra . $ctlExtra . $comment;
+    
+    *$self->{ZipData}{Offset}->add32(length($hdr));
+    *$self->{ZipData}{Offset}->add( *$self->{CompSize} );
+    push @{ *$self->{ZipData}{CentralDir} }, $ctl ;
+
+    return $hdr;
+}
+
+sub mkFinalTrailer
+{
+    my $self = shift ;
+        
+    my $comment = '';
+    $comment = *$self->{ZipData}{ZipComment} ;
+
+    my $cd_offset = *$self->{ZipData}{Offset}->get32bit() ; # offset to start central dir
+
+    my $entries = @{ *$self->{ZipData}{CentralDir} };
+    
+    *$self->{ZipData}{AnyZip64} = 1 
+        if *$self->{ZipData}{Offset}->is64bit || $entries >= 0xFFFF ;      
+           
+    my $cd = join '', @{ *$self->{ZipData}{CentralDir} };
+    my $cd_len = length $cd ;
+
+    my $z64e = '';
+
+    if ( *$self->{ZipData}{AnyZip64} ) {
+
+        my $v  = *$self->{ZipData}{Version} ;
+        my $mb = *$self->{ZipData}{MadeBy} ;
+        $z64e .= pack 'v', $mb            ; # Version made by
+        $z64e .= pack 'v', $v             ; # Version to extract
+        $z64e .= pack 'V', 0              ; # number of disk
+        $z64e .= pack 'V', 0              ; # number of disk with central dir
+        $z64e .= U64::pack_V64 $entries   ; # entries in central dir on this disk
+        $z64e .= U64::pack_V64 $entries   ; # entries in central dir
+        $z64e .= U64::pack_V64 $cd_len    ; # size of central dir
+        $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to start central dir
+
+        $z64e  = pack("V", ZIP64_END_CENTRAL_REC_HDR_SIG) # signature
+              .  U64::pack_V64(length $z64e)
+              .  $z64e ;
+
+        *$self->{ZipData}{Offset}->add32(length $cd) ; 
+
+        $z64e .= pack "V", ZIP64_END_CENTRAL_LOC_HDR_SIG; # signature
+        $z64e .= pack 'V', 0              ; # number of disk with central dir
+        $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to end zip64 central dir
+        $z64e .= pack 'V', 1              ; # Total number of disks 
+
+        $cd_offset = IO::Compress::Base::Common::MAX32 ;
+        $cd_len = IO::Compress::Base::Common::MAX32 if IO::Compress::Base::Common::isGeMax32 $cd_len ;
+        $entries = 0xFFFF if $entries >= 0xFFFF ;
+    }
+
+    my $ecd = '';
+    $ecd .= pack "V", ZIP_END_CENTRAL_HDR_SIG ; # signature
+    $ecd .= pack 'v', 0          ; # number of disk
+    $ecd .= pack 'v', 0          ; # number of disk with central dir
+    $ecd .= pack 'v', $entries   ; # entries in central dir on this disk
+    $ecd .= pack 'v', $entries   ; # entries in central dir
+    $ecd .= pack 'V', $cd_len    ; # size of central dir
+    $ecd .= pack 'V', $cd_offset ; # offset to start central dir
+    $ecd .= pack 'v', length $comment ; # zipfile comment length
+    $ecd .= $comment;
+
+    return $cd . $z64e . $ecd ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    $got->setValue('crc32' => 1);
+
+    if (! $got->parsed('time') ) {
+        # Modification time defaults to now.
+        $got->setValue('time' => time) ;
+    }
+
+    if ($got->parsed('extime') ) {
+        my $timeRef = $got->getValue('extime');
+        if ( defined $timeRef) {
+            return $self->saveErrorString(undef, "exTime not a 3-element array ref")   
+                if ref $timeRef ne 'ARRAY' || @$timeRef != 3;
+        }
+
+        $got->setValue("mtime", $timeRef->[1]);
+        $got->setValue("atime", $timeRef->[0]);
+        $got->setValue("ctime", $timeRef->[2]);
+    }
+    
+    # Unix2/3 Extended Attribute
+    for my $name (qw(exunix2 exunixn))
+    {
+        if ($got->parsed($name) ) {
+            my $idRef = $got->getValue($name);
+            if ( defined $idRef) {
+                return $self->saveErrorString(undef, "$name not a 2-element array ref")   
+                    if ref $idRef ne 'ARRAY' || @$idRef != 2;
+            }
+
+            $got->setValue("uid", $idRef->[0]);
+            $got->setValue("gid", $idRef->[1]);
+            $got->setValue("want_$name", $idRef);
+        }
+    }
+
+    *$self->{ZipData}{AnyZip64} = 1
+        if $got->getValue('zip64');
+    *$self->{ZipData}{Zip64} = $got->getValue('zip64');
+    *$self->{ZipData}{Stream} = $got->getValue('stream');
+
+    my $method = $got->getValue('method');
+    return $self->saveErrorString(undef, "Unknown Method '$method'")   
+        if ! defined $ZIP_CM_MIN_VERSIONS{$method};
+
+    return $self->saveErrorString(undef, "Bzip2 not available")
+        if $method == ZIP_CM_BZIP2 and 
+           ! defined $IO::Compress::Adapter::Bzip2::VERSION;
+
+    return $self->saveErrorString(undef, "Lzma not available")
+        if $method == ZIP_CM_LZMA 
+        and ! defined $IO::Compress::Adapter::Lzma::VERSION;
+
+    *$self->{ZipData}{Method} = $method;
+
+    *$self->{ZipData}{ZipComment} = $got->getValue('zipcomment') ;
+
+    for my $name (qw( extrafieldlocal extrafieldcentral ))
+    {
+        my $data = $got->getValue($name) ;
+        if (defined $data) {
+            my $bad = IO::Compress::Zlib::Extra::parseExtraField($data, 1, 0) ;
+            return $self->saveErrorString(undef, "Error with $name Parameter: $bad")
+                if $bad ;
+
+            $got->setValue($name, $data) ;
+        }
+    }
+
+    return undef
+        if defined $IO::Compress::Bzip2::VERSION
+            and ! IO::Compress::Bzip2::ckParams($self, $got);
+
+    if ($got->parsed('sparse') ) {
+        *$self->{ZipData}{Sparse} = $got->getValue('sparse') ;
+        *$self->{ZipData}{Method} = ZIP_CM_STORE;
+    }
+
+    if ($got->parsed('filtername')) {
+        my $v = $got->getValue('filtername') ;
+        *$self->{ZipData}{FilterName} = $v
+            if ref $v eq 'CODE' ;
+    }
+
+    return 1 ;
+}
+
+sub outputPayload
+{
+    my $self = shift ;
+    return 1 if *$self->{ZipData}{Sparse} ;
+    return $self->output(@_);
+}
+
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#
+#    return $self->mkHeader(*$self->{Got});
+#}
+
+
+our %PARAMS = (            
+            'stream'    => [IO::Compress::Base::Common::Parse_boolean,   1],
+           #'store'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'method'    => [IO::Compress::Base::Common::Parse_unsigned,  ZIP_CM_DEFLATE],
+            
+#            # Zip header fields
+            'minimal'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'zip64'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'comment'   => [IO::Compress::Base::Common::Parse_any,       ''],
+            'zipcomment'=> [IO::Compress::Base::Common::Parse_any,       ''],
+            'name'      => [IO::Compress::Base::Common::Parse_any,       ''],
+            'filtername'=> [IO::Compress::Base::Common::Parse_code,      undef],
+            'canonicalname'=> [IO::Compress::Base::Common::Parse_boolean,   0],
+#            'utf8'      => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'time'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'extime'    => [IO::Compress::Base::Common::Parse_any,       undef],
+            'exunix2'   => [IO::Compress::Base::Common::Parse_any,       undef], 
+            'exunixn'   => [IO::Compress::Base::Common::Parse_any,       undef], 
+            'extattr'   => [IO::Compress::Base::Common::Parse_any, 
+                    $Compress::Raw::Zlib::gzip_os_code == 3 
+                        ? 0100644 << 16 
+                        : 0],
+            'os_code'   => [IO::Compress::Base::Common::Parse_unsigned,  $Compress::Raw::Zlib::gzip_os_code],
+            
+            'textflag'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'extrafieldlocal'  => [IO::Compress::Base::Common::Parse_any,    undef],
+            'extrafieldcentral'=> [IO::Compress::Base::Common::Parse_any,    undef],
+
+            # Lzma
+            'preset'   => [IO::Compress::Base::Common::Parse_unsigned, 6],
+            'extreme'  => [IO::Compress::Base::Common::Parse_boolean,  0],
+
+            # For internal use only         
+            'sparse'    => [IO::Compress::Base::Common::Parse_unsigned,  0],
+
+            IO::Compress::RawDeflate::getZlibParams(),
+            defined $IO::Compress::Bzip2::VERSION
+                ? IO::Compress::Bzip2::getExtraParams()
+                : ()
+                
+  
+                );
+
+sub getExtraParams
+{
+    return %PARAMS ;
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Unzip',
+                \$IO::Uncompress::Unzip::UnzipError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $filename = shift ;
+
+    if (IO::Compress::Base::Common::isaScalar($filename))
+    {
+        $params->setValue(zip64 => 1)
+            if IO::Compress::Base::Common::isGeMax32 length (${ $filename }) ;
+
+        return ;
+    }
+
+    my ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) ;
+    if ( $params->parsed('storelinks') )
+    {
+        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) 
+                = (lstat($filename))[2, 4,5,7, 8,9,10] ;
+    }
+    else
+    {
+        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) 
+                = (stat($filename))[2, 4,5,7, 8,9,10] ;
+    }
+
+    $params->setValue(textflag => -T $filename )
+        if ! $params->parsed('textflag');
+
+    $params->setValue(zip64 => 1)
+        if IO::Compress::Base::Common::isGeMax32 $size ;
+
+    $params->setValue('name' => $filename)
+        if ! $params->parsed('name') ;
+
+    $params->setValue('time' => $mtime) 
+        if ! $params->parsed('time') ;
+    
+    if ( ! $params->parsed('extime'))
+    {
+        $params->setValue('mtime' => $mtime) ;
+        $params->setValue('atime' => $atime) ;
+        $params->setValue('ctime' => undef) ; # No Creation time
+        # TODO - see if can fillout creation time on non-Unix
+    }
+
+    # NOTE - Unix specific code alert
+    if (! $params->parsed('extattr'))
+    {
+        use Fcntl qw(:mode) ;
+        my $attr = $mode << 16;
+        $attr |= ZIP_A_RONLY if ($mode & S_IWRITE) == 0 ;
+        $attr |= ZIP_A_DIR   if ($mode & S_IFMT  ) == S_IFDIR ;
+        
+        $params->setValue('extattr' => $attr);
+    }
+
+    $params->setValue('want_exunixn', [$uid, $gid]);
+    $params->setValue('uid' => $uid) ;
+    $params->setValue('gid' => $gid) ;
+    
+}
+
+sub mkExtendedTime
+{
+    # order expected is m, a, c
+
+    my $times = '';
+    my $bit = 1 ;
+    my $flags = 0;
+
+    for my $time (@_)
+    {
+        if (defined $time)
+        {
+            $flags |= $bit;
+            $times .= pack("V", $time);
+        }
+
+        $bit <<= 1 ;
+    }
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_EXT_TIMESTAMP,
+                                                 pack("C", $flags) .  $times);
+}
+
+sub mkUnix2Extra
+{
+    my $ids = '';
+    for my $id (@_)
+    {
+        $ids .= pack("v", $id);
+    }
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIX2, 
+                                                 $ids);
+}
+
+sub mkUnixNExtra
+{
+    my $uid = shift;
+    my $gid = shift;
+
+    # Assumes UID/GID are 32-bit
+    my $ids ;
+    $ids .= pack "C", 1; # version
+    $ids .= pack "C", $Config{uidsize};
+    $ids .= pack "V", $uid;
+    $ids .= pack "C", $Config{gidsize};
+    $ids .= pack "V", $gid;
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIXN, 
+                                                 $ids);
+}
+
+
+# from Archive::Zip
+sub _unixToDosTime    # Archive::Zip::Member
+{
+	my $time_t = shift;
+    
+    # TODO - add something to cope with unix time < 1980 
+	my ( $sec, $min, $hour, $mday, $mon, $year ) = localtime($time_t);
+	my $dt = 0;
+	$dt += ( $sec >> 1 );
+	$dt += ( $min << 5 );
+	$dt += ( $hour << 11 );
+	$dt += ( $mday << 16 );
+	$dt += ( ( $mon + 1 ) << 21 );
+	$dt += ( ( $year - 80 ) << 25 );
+	return $dt;
+}
+
+1;
+
+__END__
+
+package IO::Compress::RawDeflate ;
+
+# create RFC1951
+#
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base 2.074 ;
+use IO::Compress::Base::Common  2.074 qw(:Status );
+use IO::Compress::Adapter::Deflate 2.074 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
+
+$VERSION = '2.074';
+$RawDeflateError = '';
+
+@ISA = qw(IO::Compress::Base Exporter);
+@EXPORT_OK = qw( $RawDeflateError rawdeflate ) ;
+push @EXPORT_OK, @IO::Compress::Adapter::Deflate::EXPORT_OK ;
+
+%EXPORT_TAGS = %IO::Compress::Adapter::Deflate::DEFLATE_CONSTANTS;
+
+
+{
+    my %seen;
+    foreach (keys %EXPORT_TAGS )
+    {
+        push @{$EXPORT_TAGS{constants}}, 
+                 grep { !$seen{$_}++ } 
+                 @{ $EXPORT_TAGS{$_} }
+    }
+    $EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;
+}
+
+
+%DEFLATE_CONSTANTS = %EXPORT_TAGS;
+
+#push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+Exporter::export_ok_tags('all');
+              
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$RawDeflateError);
+
+    return $obj->_create(undef, @_);
+}
+
+sub rawdeflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$RawDeflateError);
+    return $obj->_def(@_);
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+
+    return 1 ;
+}
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject(
+                                                 $got->getValue('crc32'),
+                                                 $got->getValue('adler32'),
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+
+   return $self->saveErrorString(undef, $errstr, $errno)
+       if ! defined $obj;
+
+   return $obj;    
+}
+
+
+sub mkHeader
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return '';
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+    return getZlibParams();
+}
+
+use IO::Compress::Base::Common  2.074 qw(:Parse);
+use Compress::Raw::Zlib  2.074 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+our %PARAMS = (
+            #'method'   => [IO::Compress::Base::Common::Parse_unsigned,  Z_DEFLATED],
+            'level'     => [IO::Compress::Base::Common::Parse_signed,    Z_DEFAULT_COMPRESSION],
+            'strategy'  => [IO::Compress::Base::Common::Parse_signed,    Z_DEFAULT_STRATEGY],
+
+            'crc32'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'adler32'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'merge'     => [IO::Compress::Base::Common::Parse_boolean,   0], 
+        );
+        
+sub getZlibParams
+{
+    return %PARAMS;    
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::RawInflate', 
+                \$IO::Uncompress::RawInflate::RawInflateError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+use Fcntl qw(SEEK_SET);
+
+sub createMerge
+{
+    my $self = shift ;
+    my $outValue = shift ;
+    my $outType = shift ;
+
+    my ($invClass, $error_ref) = $self->getInverseClass();
+    eval "require $invClass" 
+        or die "aaaahhhh" ;
+
+    my $inf = $invClass->new( $outValue, 
+                             Transparent => 0, 
+                             #Strict     => 1,
+                             AutoClose   => 0,
+                             Scan        => 1)
+       or return $self->saveErrorString(undef, "Cannot create InflateScan object: $$error_ref" ) ;
+
+    my $end_offset = 0;
+    $inf->scan() 
+        or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $inf->errorNo) ;
+    $inf->zap($end_offset) 
+        or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $inf->errorNo) ;
+
+    my $def = *$self->{Compress} = $inf->createDeflate();
+
+    *$self->{Header} = *$inf->{Info}{Header};
+    *$self->{UnCompSize} = *$inf->{UnCompSize}->clone();
+    *$self->{CompSize} = *$inf->{CompSize}->clone();
+    # TODO -- fix this
+    #*$self->{CompSize} = new U64(0, *$self->{UnCompSize_32bit});
+
+
+    if ( $outType eq 'buffer') 
+      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
+    elsif ($outType eq 'handle' || $outType eq 'filename') {
+        *$self->{FH} = *$inf->{FH} ;
+        delete *$inf->{FH};
+        *$self->{FH}->flush() ;
+        *$self->{Handle} = 1 if $outType eq 'handle';
+
+        #seek(*$self->{FH}, $end_offset, SEEK_SET) 
+        *$self->{FH}->seek($end_offset, SEEK_SET) 
+            or return $self->saveErrorString(undef, $!, $!) ;
+    }
+
+    return $def ;
+}
+
+#### zlib specific methods
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    my $level = shift ;
+    my $strategy = shift ;
+
+    my $status = *$self->{Compress}->deflateParams(Level => $level, Strategy => $strategy) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    return 1;    
+}
+
+
+
+
+1;
+
+__END__
+
+package IO::Compress::Deflate ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter ;
+
+use IO::Compress::RawDeflate 2.074 ();
+use IO::Compress::Adapter::Deflate 2.074 ;
+
+use IO::Compress::Zlib::Constants 2.074 ;
+use IO::Compress::Base::Common  2.074 qw();
+
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
+
+$VERSION = '2.074';
+$DeflateError = '';
+
+@ISA    = qw(IO::Compress::RawDeflate Exporter);
+@EXPORT_OK = qw( $DeflateError deflate ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$DeflateError);
+    return $obj->_create(undef, @_);
+}
+
+sub deflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$DeflateError);
+    return $obj->_def(@_);
+}
+
+
+sub bitmask($$$$)
+{
+    my $into  = shift ;
+    my $value  = shift ;
+    my $offset = shift ;
+    my $mask   = shift ;
+
+    return $into | (($value & $mask) << $offset ) ;
+}
+
+sub mkDeflateHdr($$$;$)
+{
+    my $method = shift ;
+    my $cinfo  = shift;
+    my $level  = shift;
+    my $fdict_adler = shift  ;
+
+    my $cmf = 0;
+    my $flg = 0;
+    my $fdict = 0;
+    $fdict = 1 if defined $fdict_adler;
+
+    $cmf = bitmask($cmf, $method, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS);
+    $cmf = bitmask($cmf, $cinfo,  ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS);
+
+    $flg = bitmask($flg, $fdict,  ZLIB_FLG_FDICT_OFFSET, ZLIB_FLG_FDICT_BITS);
+    $flg = bitmask($flg, $level,  ZLIB_FLG_LEVEL_OFFSET, ZLIB_FLG_LEVEL_BITS);
+
+    my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ;
+    $flg = bitmask($flg, $fcheck, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS);
+
+    my $hdr =  pack("CC", $cmf, $flg) ;
+    $hdr .= pack("N", $fdict_adler) if $fdict ;
+
+    return $hdr;
+}
+
+sub mkHeader 
+{
+    my $self = shift ;
+    my $param = shift ;
+
+    my $level = $param->getValue('level');
+    my $strategy = $param->getValue('strategy');
+
+    my $lflag ;
+    $level = 6 
+        if $level == Z_DEFAULT_COMPRESSION ;
+
+    if (ZLIB_VERNUM >= 0x1210)
+    {
+        if ($strategy >= Z_HUFFMAN_ONLY || $level < 2)
+         {  $lflag = ZLIB_FLG_LEVEL_FASTEST }
+        elsif ($level < 6)
+         {  $lflag = ZLIB_FLG_LEVEL_FAST }
+        elsif ($level == 6)
+         {  $lflag = ZLIB_FLG_LEVEL_DEFAULT }
+        else
+         {  $lflag = ZLIB_FLG_LEVEL_SLOWEST }
+    }
+    else
+    {
+        $lflag = ($level - 1) >> 1 ;
+        $lflag = 3 if $lflag > 3 ;
+    }
+
+     #my $wbits = (MAX_WBITS - 8) << 4 ;
+    my $wbits = 7;
+    mkDeflateHdr(ZLIB_CMF_CM_DEFLATED, $wbits, $lflag);
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    $got->setValue('adler32' => 1);
+    return 1 ;
+}
+
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return pack("N", *$self->{Compress}->adler32()) ;
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return *$self->{Header};
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+    return $self->getZlibParams(),
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Inflate',
+                \$IO::Uncompress::Inflate::InflateError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+
+
+1;
+
+__END__
+
+package IO::Compress::Gzip::Constants;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
+our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
+
+$VERSION = '2.074';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+    GZIP_ID_SIZE
+    GZIP_ID1
+    GZIP_ID2
+
+    GZIP_FLG_DEFAULT
+    GZIP_FLG_FTEXT
+    GZIP_FLG_FHCRC
+    GZIP_FLG_FEXTRA
+    GZIP_FLG_FNAME
+    GZIP_FLG_FCOMMENT
+    GZIP_FLG_RESERVED
+
+    GZIP_CM_DEFLATED
+
+    GZIP_MIN_HEADER_SIZE
+    GZIP_TRAILER_SIZE
+
+    GZIP_MTIME_DEFAULT
+    GZIP_XFL_DEFAULT
+    GZIP_FEXTRA_HEADER_SIZE
+    GZIP_FEXTRA_MAX_SIZE
+    GZIP_FEXTRA_SUBFIELD_HEADER_SIZE
+    GZIP_FEXTRA_SUBFIELD_ID_SIZE
+    GZIP_FEXTRA_SUBFIELD_LEN_SIZE
+    GZIP_FEXTRA_SUBFIELD_MAX_SIZE
+
+    $GZIP_FNAME_INVALID_CHAR_RE
+    $GZIP_FCOMMENT_INVALID_CHAR_RE
+
+    GZIP_FHCRC_SIZE
+
+    GZIP_ISIZE_MAX
+    GZIP_ISIZE_MOD_VALUE
+
+
+    GZIP_NULL_BYTE
+
+    GZIP_OS_DEFAULT
+
+    %GZIP_OS_Names
+
+    GZIP_MINIMUM_HEADER
+
+    );
+
+# Constant names derived from RFC 1952
+
+use constant GZIP_ID_SIZE                     => 2 ;
+use constant GZIP_ID1                         => 0x1F;
+use constant GZIP_ID2                         => 0x8B;
+
+use constant GZIP_MIN_HEADER_SIZE             => 10 ;# minimum gzip header size
+use constant GZIP_TRAILER_SIZE                => 8 ;
+
+
+use constant GZIP_FLG_DEFAULT                 => 0x00 ;
+use constant GZIP_FLG_FTEXT                   => 0x01 ;
+use constant GZIP_FLG_FHCRC                   => 0x02 ; # called CONTINUATION in gzip
+use constant GZIP_FLG_FEXTRA                  => 0x04 ;
+use constant GZIP_FLG_FNAME                   => 0x08 ;
+use constant GZIP_FLG_FCOMMENT                => 0x10 ;
+#use constant GZIP_FLG_ENCRYPTED              => 0x20 ; # documented in gzip sources
+use constant GZIP_FLG_RESERVED                => (0x20 | 0x40 | 0x80) ;
+
+use constant GZIP_XFL_DEFAULT                 => 0x00 ;
+
+use constant GZIP_MTIME_DEFAULT               => 0x00 ;
+
+use constant GZIP_FEXTRA_HEADER_SIZE          => 2 ;
+use constant GZIP_FEXTRA_MAX_SIZE             => 0xFFFF ;
+use constant GZIP_FEXTRA_SUBFIELD_ID_SIZE     => 2 ;
+use constant GZIP_FEXTRA_SUBFIELD_LEN_SIZE    => 2 ;
+use constant GZIP_FEXTRA_SUBFIELD_HEADER_SIZE => GZIP_FEXTRA_SUBFIELD_ID_SIZE +
+                                                 GZIP_FEXTRA_SUBFIELD_LEN_SIZE;
+use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE    => GZIP_FEXTRA_MAX_SIZE - 
+                                                 GZIP_FEXTRA_SUBFIELD_HEADER_SIZE ;
+
+
+if (ord('A') == 193)
+{
+    # EBCDIC 
+    $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]';
+    $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]';
+    
+}
+else
+{
+    $GZIP_FNAME_INVALID_CHAR_RE       =  '[\x00-\x1F\x7F-\x9F]';
+    $GZIP_FCOMMENT_INVALID_CHAR_RE    =  '[\x00-\x09\x11-\x1F\x7F-\x9F]';
+}            
+
+use constant GZIP_FHCRC_SIZE        => 2 ; # aka CONTINUATION in gzip
+
+use constant GZIP_CM_DEFLATED       => 8 ;
+
+use constant GZIP_NULL_BYTE         => "\x00";
+use constant GZIP_ISIZE_MAX         => 0xFFFFFFFF ;
+use constant GZIP_ISIZE_MOD_VALUE   => GZIP_ISIZE_MAX + 1 ;
+
+# OS Names sourced from http://www.gzip.org/format.txt
+
+use constant GZIP_OS_DEFAULT=> 0xFF ;
+%GZIP_OS_Names = (
+    0   => 'MS-DOS',
+    1   => 'Amiga',
+    2   => 'VMS',
+    3   => 'Unix',
+    4   => 'VM/CMS',
+    5   => 'Atari TOS',
+    6   => 'HPFS (OS/2, NT)',
+    7   => 'Macintosh',
+    8   => 'Z-System',
+    9   => 'CP/M',
+    10  => 'TOPS-20',
+    11  => 'NTFS (NT)',
+    12  => 'SMS QDOS',
+    13  => 'Acorn RISCOS',
+    14  => 'VFAT file system (Win95, NT)',
+    15  => 'MVS',
+    16  => 'BeOS',
+    17  => 'Tandem/NSK',
+    18  => 'THEOS',
+    GZIP_OS_DEFAULT()   => 'Unknown',
+    ) ;
+
+use constant GZIP_MINIMUM_HEADER =>   pack("C4 V C C",  
+        GZIP_ID1, GZIP_ID2, GZIP_CM_DEFLATED, GZIP_FLG_DEFAULT,
+        GZIP_MTIME_DEFAULT, GZIP_XFL_DEFAULT, GZIP_OS_DEFAULT) ;
+
+
+1;
+package IO::Compress::Zip::Constants;
+
+use strict ;
+use warnings;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
+
+$VERSION = '2.074';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+    ZIP_CM_STORE
+    ZIP_CM_DEFLATE
+    ZIP_CM_BZIP2
+    ZIP_CM_LZMA
+    ZIP_CM_PPMD
+    
+    ZIP_LOCAL_HDR_SIG
+    ZIP_DATA_HDR_SIG
+    ZIP_CENTRAL_HDR_SIG
+    ZIP_END_CENTRAL_HDR_SIG
+    ZIP64_END_CENTRAL_REC_HDR_SIG
+    ZIP64_END_CENTRAL_LOC_HDR_SIG
+    ZIP64_ARCHIVE_EXTRA_SIG
+    ZIP64_DIGITAL_SIGNATURE_SIG
+
+    ZIP_GP_FLAG_ENCRYPTED_MASK
+    ZIP_GP_FLAG_STREAMING_MASK
+    ZIP_GP_FLAG_PATCHED_MASK
+    ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK
+    ZIP_GP_FLAG_LZMA_EOS_PRESENT
+    ZIP_GP_FLAG_LANGUAGE_ENCODING
+
+    ZIP_EXTRA_ID_ZIP64
+    ZIP_EXTRA_ID_EXT_TIMESTAMP
+    ZIP_EXTRA_ID_INFO_ZIP_UNIX2
+    ZIP_EXTRA_ID_INFO_ZIP_UNIXN
+    ZIP_EXTRA_ID_INFO_ZIP_Upath
+    ZIP_EXTRA_ID_INFO_ZIP_Ucom        
+    ZIP_EXTRA_ID_JAVA_EXE
+
+    ZIP_OS_CODE_UNIX
+    ZIP_OS_CODE_DEFAULT
+
+    ZIP_IFA_TEXT_MASK
+
+    %ZIP_CM_MIN_VERSIONS
+    ZIP64_MIN_VERSION
+
+    ZIP_A_RONLY
+    ZIP_A_HIDDEN
+    ZIP_A_SYSTEM
+    ZIP_A_LABEL
+    ZIP_A_DIR 
+    ZIP_A_ARCHIVE
+    );
+
+# Compression types supported
+use constant ZIP_CM_STORE                      => 0 ;
+use constant ZIP_CM_DEFLATE                    => 8 ;
+use constant ZIP_CM_BZIP2                      => 12 ;
+use constant ZIP_CM_LZMA                       => 14 ; # Not Supported yet
+use constant ZIP_CM_PPMD                       => 98 ; # Not Supported yet
+
+# General Purpose Flag
+use constant ZIP_GP_FLAG_ENCRYPTED_MASK        => (1 << 0) ;
+use constant ZIP_GP_FLAG_STREAMING_MASK        => (1 << 3) ;
+use constant ZIP_GP_FLAG_PATCHED_MASK          => (1 << 5) ;
+use constant ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK => (1 << 6) ;
+use constant ZIP_GP_FLAG_LZMA_EOS_PRESENT      => (1 << 1) ;
+use constant ZIP_GP_FLAG_LANGUAGE_ENCODING     => (1 << 11) ;
+
+# Internal File Attributes
+use constant ZIP_IFA_TEXT_MASK                 => 1;
+
+# Signatures for each of the headers
+use constant ZIP_LOCAL_HDR_SIG                 => 0x04034b50;
+use constant ZIP_DATA_HDR_SIG                  => 0x08074b50;
+use constant packed_ZIP_DATA_HDR_SIG           => pack "V", ZIP_DATA_HDR_SIG;
+use constant ZIP_CENTRAL_HDR_SIG               => 0x02014b50;
+use constant ZIP_END_CENTRAL_HDR_SIG           => 0x06054b50;
+use constant ZIP64_END_CENTRAL_REC_HDR_SIG     => 0x06064b50;
+use constant ZIP64_END_CENTRAL_LOC_HDR_SIG     => 0x07064b50;
+use constant ZIP64_ARCHIVE_EXTRA_SIG           => 0x08064b50;
+use constant ZIP64_DIGITAL_SIGNATURE_SIG       => 0x05054b50;
+
+use constant ZIP_OS_CODE_UNIX                  => 3;
+use constant ZIP_OS_CODE_DEFAULT               => 3;
+
+# Extra Field ID's
+use constant ZIP_EXTRA_ID_ZIP64                => pack "v", 1;
+use constant ZIP_EXTRA_ID_EXT_TIMESTAMP        => "UT";
+use constant ZIP_EXTRA_ID_INFO_ZIP_UNIX2       => "Ux";
+use constant ZIP_EXTRA_ID_INFO_ZIP_UNIXN       => "ux";
+use constant ZIP_EXTRA_ID_INFO_ZIP_Upath       => "up";
+use constant ZIP_EXTRA_ID_INFO_ZIP_Ucom        => "uc";
+use constant ZIP_EXTRA_ID_JAVA_EXE             => pack "v", 0xCAFE;
+
+# DOS Attributes
+use constant ZIP_A_RONLY                       => 0x01;
+use constant ZIP_A_HIDDEN                      => 0x02;
+use constant ZIP_A_SYSTEM                      => 0x04;
+use constant ZIP_A_LABEL                       => 0x08;
+use constant ZIP_A_DIR                         => 0x10;
+use constant ZIP_A_ARCHIVE                     => 0x20;
+
+use constant ZIP64_MIN_VERSION                 => 45;
+
+%ZIP_CM_MIN_VERSIONS = (
+            ZIP_CM_STORE()                     => 20,
+            ZIP_CM_DEFLATE()                   => 20,
+            ZIP_CM_BZIP2()                     => 46,
+            ZIP_CM_LZMA()                      => 63,
+            ZIP_CM_PPMD()                      => 63,
+            );
+
+
+1;
+
+__END__
+
+
+package IO::Compress::Zlib::Constants ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT);
+
+$VERSION = '2.074';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+        ZLIB_HEADER_SIZE
+        ZLIB_TRAILER_SIZE
+
+        ZLIB_CMF_CM_OFFSET
+        ZLIB_CMF_CM_BITS
+        ZLIB_CMF_CM_DEFLATED
+
+        ZLIB_CMF_CINFO_OFFSET
+        ZLIB_CMF_CINFO_BITS 
+        ZLIB_CMF_CINFO_MAX
+
+        ZLIB_FLG_FCHECK_OFFSET
+        ZLIB_FLG_FCHECK_BITS
+
+        ZLIB_FLG_FDICT_OFFSET
+        ZLIB_FLG_FDICT_BITS
+
+        ZLIB_FLG_LEVEL_OFFSET
+        ZLIB_FLG_LEVEL_BITS
+
+        ZLIB_FLG_LEVEL_FASTEST
+        ZLIB_FLG_LEVEL_FAST
+        ZLIB_FLG_LEVEL_DEFAULT
+        ZLIB_FLG_LEVEL_SLOWEST
+
+        ZLIB_FDICT_SIZE
+
+        );
+
+# Constant names derived from RFC1950
+
+use constant ZLIB_HEADER_SIZE       => 2;
+use constant ZLIB_TRAILER_SIZE      => 4;
+
+use constant ZLIB_CMF_CM_OFFSET     => 0;
+use constant ZLIB_CMF_CM_BITS       => 0xF ; # 0b1111
+use constant ZLIB_CMF_CM_DEFLATED   => 8;
+
+use constant ZLIB_CMF_CINFO_OFFSET  => 4;
+use constant ZLIB_CMF_CINFO_BITS    => 0xF ; # 0b1111;
+use constant ZLIB_CMF_CINFO_MAX     => 7;
+
+use constant ZLIB_FLG_FCHECK_OFFSET => 0;
+use constant ZLIB_FLG_FCHECK_BITS   => 0x1F ; # 0b11111;
+
+use constant ZLIB_FLG_FDICT_OFFSET  => 5;
+use constant ZLIB_FLG_FDICT_BITS    => 0x1 ; # 0b1;
+
+use constant ZLIB_FLG_LEVEL_OFFSET  => 6;
+use constant ZLIB_FLG_LEVEL_BITS    => 0x3 ; # 0b11;
+
+use constant ZLIB_FLG_LEVEL_FASTEST => 0;
+use constant ZLIB_FLG_LEVEL_FAST    => 1;
+use constant ZLIB_FLG_LEVEL_DEFAULT => 2;
+use constant ZLIB_FLG_LEVEL_SLOWEST => 3;
+
+use constant ZLIB_FDICT_SIZE        => 4;
+
+
+1;
+package IO::Compress::Zlib::Extra;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
+
+$VERSION = '2.074';
+
+use IO::Compress::Gzip::Constants 2.074 ;
+
+sub ExtraFieldError
+{
+    return $_[0];
+    return "Error with ExtraField Parameter: $_[0]" ;
+}
+
+sub validateExtraFieldPair
+{
+    my $pair = shift ;
+    my $strict = shift;
+    my $gzipMode = shift ;
+
+    return ExtraFieldError("Not an array ref")
+        unless ref $pair &&  ref $pair eq 'ARRAY';
+
+    return ExtraFieldError("SubField must have two parts")
+        unless @$pair == 2 ;
+
+    return ExtraFieldError("SubField ID is a reference")
+        if ref $pair->[0] ;
+
+    return ExtraFieldError("SubField Data is a reference")
+        if ref $pair->[1] ;
+
+    # ID is exactly two chars   
+    return ExtraFieldError("SubField ID not two chars long")
+        unless length $pair->[0] == GZIP_FEXTRA_SUBFIELD_ID_SIZE ;
+
+    # Check that the 2nd byte of the ID isn't 0    
+    return ExtraFieldError("SubField ID 2nd byte is 0x00")
+        if $strict && $gzipMode && substr($pair->[0], 1, 1) eq "\x00" ;
+
+    return ExtraFieldError("SubField Data too long")
+        if length $pair->[1] > GZIP_FEXTRA_SUBFIELD_MAX_SIZE ;
+
+
+    return undef ;
+}
+
+sub parseRawExtra
+{
+    my $data     = shift ;
+    my $extraRef = shift;
+    my $strict   = shift;
+    my $gzipMode = shift ;
+
+    #my $lax = shift ;
+
+    #return undef
+    #    if $lax ;
+
+    my $XLEN = length $data ;
+
+    return ExtraFieldError("Too Large")
+        if $XLEN > GZIP_FEXTRA_MAX_SIZE;
+
+    my $offset = 0 ;
+    while ($offset < $XLEN) {
+
+        return ExtraFieldError("Truncated in FEXTRA Body Section")
+            if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
+
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
+
+        my $subLen =  unpack("v", substr($data, $offset,
+                                            GZIP_FEXTRA_SUBFIELD_LEN_SIZE));
+        $offset += GZIP_FEXTRA_SUBFIELD_LEN_SIZE ;
+
+        return ExtraFieldError("Truncated in FEXTRA Body Section")
+            if $offset + $subLen > $XLEN ;
+
+        my $bad = validateExtraFieldPair( [$id, 
+                                           substr($data, $offset, $subLen)], 
+                                           $strict, $gzipMode );
+        return $bad if $bad ;
+        push @$extraRef, [$id => substr($data, $offset, $subLen)]
+            if defined $extraRef;;
+
+        $offset += $subLen ;
+    }
+
+        
+    return undef ;
+}
+
+sub findID
+{
+    my $id_want = shift ;
+    my $data    = shift;
+
+    my $XLEN = length $data ;
+
+    my $offset = 0 ;
+    while ($offset < $XLEN) {
+
+        return undef
+            if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
+
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
+
+        my $subLen =  unpack("v", substr($data, $offset,
+                                            GZIP_FEXTRA_SUBFIELD_LEN_SIZE));
+        $offset += GZIP_FEXTRA_SUBFIELD_LEN_SIZE ;
+
+        return undef
+            if $offset + $subLen > $XLEN ;
+
+        return substr($data, $offset, $subLen)
+            if $id eq $id_want ;
+
+        $offset += $subLen ;
+    }
+        
+    return undef ;
+}
+
+
+sub mkSubField
+{
+    my $id = shift ;
+    my $data = shift ;
+
+    return $id . pack("v", length $data) . $data ;
+}
+
+sub parseExtraField
+{
+    my $dataRef  = $_[0];
+    my $strict   = $_[1];
+    my $gzipMode = $_[2];
+    #my $lax     = @_ == 2 ? $_[1] : 1;
+
+
+    # ExtraField can be any of
+    #
+    #    -ExtraField => $data
+    #
+    #    -ExtraField => [$id1, $data1,
+    #                    $id2, $data2]
+    #                     ...
+    #                   ]
+    #
+    #    -ExtraField => [ [$id1 => $data1],
+    #                     [$id2 => $data2],
+    #                     ...
+    #                   ]
+    #
+    #    -ExtraField => { $id1 => $data1,
+    #                     $id2 => $data2,
+    #                     ...
+    #                   }
+    
+    if ( ! ref $dataRef ) {
+
+        return undef
+            if ! $strict;
+
+        return parseRawExtra($dataRef, undef, 1, $gzipMode);
+    }
+
+    my $data = $dataRef;
+    my $out = '' ;
+
+    if (ref $data eq 'ARRAY') {    
+        if (ref $data->[0]) {
+
+            foreach my $pair (@$data) {
+                return ExtraFieldError("Not list of lists")
+                    unless ref $pair eq 'ARRAY' ;
+
+                my $bad = validateExtraFieldPair($pair, $strict, $gzipMode) ;
+                return $bad if $bad ;
+
+                $out .= mkSubField(@$pair);
+            }   
+        }   
+        else {
+            return ExtraFieldError("Not even number of elements")
+                unless @$data % 2  == 0;
+
+            for (my $ix = 0; $ix <= @$data -1 ; $ix += 2) {
+                my $bad = validateExtraFieldPair([$data->[$ix],
+                                                  $data->[$ix+1]], 
+                                                 $strict, $gzipMode) ;
+                return $bad if $bad ;
+
+                $out .= mkSubField($data->[$ix], $data->[$ix+1]);
+            }   
+        }
+    }   
+    elsif (ref $data eq 'HASH') {    
+        while (my ($id, $info) = each %$data) {
+            my $bad = validateExtraFieldPair([$id, $info], $strict, $gzipMode);
+            return $bad if $bad ;
+
+            $out .= mkSubField($id, $info);
+        }   
+    }   
+    else {
+        return ExtraFieldError("Not a scalar, array ref or hash ref") ;
+    }
+
+    return ExtraFieldError("Too Large")
+        if length $out > GZIP_FEXTRA_MAX_SIZE;
+
+    $_[0] = $out ;
+
+    return undef;
+}
+
+1;
+
+__END__
+package IO::Compress::Adapter::Bzip2 ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status);
+
+use Compress::Raw::Bzip2  2.074 ;
+
+our ($VERSION);
+$VERSION = '2.074';
+
+sub mkCompObject
+{
+    my $BlockSize100K = shift ;
+    my $WorkFactor = shift ;
+    my $Verbosity  = shift ;
+
+    $BlockSize100K = 1 if ! defined $BlockSize100K ;
+    $WorkFactor    = 0 if ! defined $WorkFactor ;
+    $Verbosity     = 0 if ! defined $Verbosity ;
+
+    my ($def, $status) = new Compress::Raw::Bzip2(1, $BlockSize100K,
+                                                 $WorkFactor, $Verbosity);
+
+    return (undef, "Could not create Deflate object: $status", $status)
+        if $status != BZ_OK ;
+
+    return bless {'Def'        => $def,
+                  'Error'      => '',
+                  'ErrorNo'    => 0,
+                 }  ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzdeflate($_[0], $_[1]) ;
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_RUN_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzflush($_[0]);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_RUN_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+    
+}
+
+sub close
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzclose($_[0]);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_STREAM_END)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+    
+}
+
+
+sub reset
+{
+    my $self = shift ;
+
+    my $outer = $self->{Outer};
+
+    my ($def, $status) = new Compress::Raw::Bzip2();
+    $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
+
+    if ($status != BZ_OK)
+    {
+        $self->{Error} = "Cannot create Deflate object: $status"; 
+        return STATUS_ERROR;
+    }
+
+    $self->{Def} = $def;
+
+    return STATUS_OK;    
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->uncompressedBytes();
+}
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    0;
+#}
+#
+
+#sub total_in
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_in();
+#}
+#
+#sub crc32
+#{
+#    my $self = shift ;
+#    $self->{Def}->crc32();
+#}
+#
+#sub adler32
+#{
+#    my $self = shift ;
+#    $self->{Def}->adler32();
+#}
+
+
+1;
+
+__END__
+
+package IO::Compress::Adapter::Identity ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status);
+our ($VERSION);
+
+$VERSION = '2.074';
+
+sub mkCompObject
+{
+    my $level    = shift ;
+    my $strategy = shift ;
+
+    return bless {
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                  'ErrorNo'    => 0,
+                 } ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    if (defined ${ $_[0] } && length ${ $_[0] }) {
+        $self->{CompSize} += length ${ $_[0] } ;
+        $self->{UnCompSize} = $self->{CompSize} ;
+
+        if ( ref $_[1] ) 
+          { ${ $_[1] } .= ${ $_[0] } }
+        else
+          { $_[1] .= ${ $_[0] } }
+    }
+
+    return STATUS_OK ;
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    return STATUS_OK;    
+}
+
+sub close
+{
+    my $self = shift ;
+
+    return STATUS_OK;    
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    $self->{CompSize}   = 0;
+    $self->{UnCompSize} = 0;
+
+    return STATUS_OK;    
+}
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    return STATUS_OK;   
+}
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+#
+#sub total_in
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    return $self->{UnCompSize} ;
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    return $self->{UnCompSize} ;
+}
+
+1;
+
+
+__END__
+
+package IO::Compress::Adapter::Deflate ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.074 qw(:Status);
+use Compress::Raw::Zlib  2.074 qw( !crc32 !adler32 ) ;
+                                  
+require Exporter;                                     
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
+
+$VERSION = '2.074';
+@ISA = qw(Exporter);
+@EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
+%EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
+@EXPORT = @EXPORT_OK;
+%DEFLATE_CONSTANTS = %EXPORT_TAGS ;
+
+sub mkCompObject
+{
+    my $crc32    = shift ;
+    my $adler32  = shift ;
+    my $level    = shift ;
+    my $strategy = shift ;
+
+    my ($def, $status) = new Compress::Raw::Zlib::Deflate
+                                -AppendOutput   => 1,
+                                -CRC32          => $crc32,
+                                -ADLER32        => $adler32,
+                                -Level          => $level,
+                                -Strategy       => $strategy,
+                                -WindowBits     => - MAX_WBITS;
+
+    return (undef, "Cannot create Deflate object: $status", $status) 
+        if $status != Z_OK;    
+
+    return bless {'Def'        => $def,
+                  'Error'      => '',
+                 } ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflate($_[0], $_[1]) ;
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $opt = $_[1] || Z_FINISH;
+    my $status = $def->flush($_[0], $opt);
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;        
+}
+
+sub close
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    $def->flush($_[0], Z_FINISH)
+        if defined $def ;
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflateReset() ;
+    $self->{ErrorNo} = $status;
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflateParams(@_);
+    $self->{ErrorNo} = $status;
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "deflateParams Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;   
+}
+
+
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_out();
+#}
+#
+#sub total_in
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_in();
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+
+    $self->{Def}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->uncompressedBytes();
+}
+
+
+
+
+sub crc32
+{
+    my $self = shift ;
+    $self->{Def}->crc32();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    $self->{Def}->adler32();
+}
+
+
+1;
+
+__END__
+
+package IO::Compress::Base::Common;
+
+use strict ;
+use warnings;
+use bytes;
+
+use Carp;
+use Scalar::Util qw(blessed readonly);
+use File::GlobMapper;
+
+require Exporter;
+our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
+@ISA = qw(Exporter);
+$VERSION = '2.074';
+
+@EXPORT = qw( isaFilehandle isaFilename isaScalar
+              whatIsInput whatIsOutput 
+              isaFileGlobString cleanFileGlobString oneTarget
+              setBinModeInput setBinModeOutput
+              ckInOutParams 
+              createSelfTiedObject
+              
+              isGeMax32
+
+              MAX32
+
+              WANT_CODE
+              WANT_EXT
+              WANT_UNDEF
+              WANT_HASH
+
+              STATUS_OK
+              STATUS_ENDSTREAM
+              STATUS_EOF
+              STATUS_ERROR
+          );  
+
+%EXPORT_TAGS = ( Status => [qw( STATUS_OK
+                                 STATUS_ENDSTREAM
+                                 STATUS_EOF
+                                 STATUS_ERROR
+                           )]);
+
+                       
+use constant STATUS_OK        => 0;
+use constant STATUS_ENDSTREAM => 1;
+use constant STATUS_EOF       => 2;
+use constant STATUS_ERROR     => -1;
+use constant MAX16            => 0xFFFF ;  
+use constant MAX32            => 0xFFFFFFFF ;  
+use constant MAX32cmp         => 0xFFFFFFFF + 1 - 1; # for 5.6.x on 32-bit need to force an non-IV value 
+          
+
+sub isGeMax32
+{
+    return $_[0] >= MAX32cmp ;
+}
+
+sub hasEncode()
+{
+    if (! defined $HAS_ENCODE) {
+        eval
+        {
+            require Encode;
+            Encode->import();
+        };
+
+        $HAS_ENCODE = $@ ? 0 : 1 ;
+    }
+
+    return $HAS_ENCODE;
+}
+
+sub getEncoding($$$)
+{
+    my $obj = shift;
+    my $class = shift ;
+    my $want_encoding = shift ;
+
+    $obj->croakError("$class: Encode module needed to use -Encode")
+        if ! hasEncode();
+
+    my $encoding = Encode::find_encoding($want_encoding);
+
+    $obj->croakError("$class: Encoding '$want_encoding' is not available")
+       if ! $encoding;
+
+    return $encoding;
+}
+
+our ($needBinmode);
+$needBinmode = ($^O eq 'MSWin32' || 
+                    ($] >= 5.006 && eval ' ${^UNICODE} || ${^UTF8LOCALE} '))
+                    ? 1 : 1 ;
+
+sub setBinModeInput($)
+{
+    my $handle = shift ;
+
+    binmode $handle 
+        if  $needBinmode;
+}
+
+sub setBinModeOutput($)
+{
+    my $handle = shift ;
+
+    binmode $handle
+        if  $needBinmode;
+}
+
+sub isaFilehandle($)
+{
+    use utf8; # Pragma needed to keep Perl 5.6.0 happy
+    return (defined $_[0] and 
+             (UNIVERSAL::isa($_[0],'GLOB') or 
+              UNIVERSAL::isa($_[0],'IO::Handle') or
+              UNIVERSAL::isa(\$_[0],'GLOB')) 
+          )
+}
+
+sub isaScalar
+{
+    return ( defined($_[0]) and ref($_[0]) eq 'SCALAR' and defined ${ $_[0] } ) ;
+}
+
+sub isaFilename($)
+{
+    return (defined $_[0] and 
+           ! ref $_[0]    and 
+           UNIVERSAL::isa(\$_[0], 'SCALAR'));
+}
+
+sub isaFileGlobString
+{
+    return defined $_[0] && $_[0] =~ /^<.*>$/;
+}
+
+sub cleanFileGlobString
+{
+    my $string = shift ;
+
+    $string =~ s/^\s*<\s*(.*)\s*>\s*$/$1/;
+
+    return $string;
+}
+
+use constant WANT_CODE  => 1 ;
+use constant WANT_EXT   => 2 ;
+use constant WANT_UNDEF => 4 ;
+#use constant WANT_HASH  => 8 ;
+use constant WANT_HASH  => 0 ;
+
+sub whatIsInput($;$)
+{
+    my $got = whatIs(@_);
+    
+    if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-')
+    {
+        #use IO::File;
+        $got = 'handle';
+        $_[0] = *STDIN;
+        #$_[0] = new IO::File("<-");
+    }
+
+    return $got;
+}
+
+sub whatIsOutput($;$)
+{
+    my $got = whatIs(@_);
+    
+    if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-')
+    {
+        $got = 'handle';
+        $_[0] = *STDOUT;
+        #$_[0] = new IO::File(">-");
+    }
+    
+    return $got;
+}
+
+sub whatIs ($;$)
+{
+    return 'handle' if isaFilehandle($_[0]);
+
+    my $wantCode = defined $_[1] && $_[1] & WANT_CODE ;
+    my $extended = defined $_[1] && $_[1] & WANT_EXT ;
+    my $undef    = defined $_[1] && $_[1] & WANT_UNDEF ;
+    my $hash     = defined $_[1] && $_[1] & WANT_HASH ;
+
+    return 'undef'  if ! defined $_[0] && $undef ;
+
+    if (ref $_[0]) {
+        return ''       if blessed($_[0]); # is an object
+        #return ''       if UNIVERSAL::isa($_[0], 'UNIVERSAL'); # is an object
+        return 'buffer' if UNIVERSAL::isa($_[0], 'SCALAR');
+        return 'array'  if UNIVERSAL::isa($_[0], 'ARRAY')  && $extended ;
+        return 'hash'   if UNIVERSAL::isa($_[0], 'HASH')   && $hash ;
+        return 'code'   if UNIVERSAL::isa($_[0], 'CODE')   && $wantCode ;
+        return '';
+    }
+
+    return 'fileglob' if $extended && isaFileGlobString($_[0]);
+    return 'filename';
+}
+
+sub oneTarget
+{
+    return $_[0] =~ /^(code|handle|buffer|filename)$/;
+}
+
+sub IO::Compress::Base::Validator::new
+{
+    my $class = shift ;
+
+    my $Class = shift ;
+    my $error_ref = shift ;
+    my $reportClass = shift ;
+
+    my %data = (Class       => $Class, 
+                Error       => $error_ref,
+                reportClass => $reportClass, 
+               ) ;
+
+    my $obj = bless \%data, $class ;
+
+    local $Carp::CarpLevel = 1;
+
+    my $inType    = $data{inType}    = whatIsInput($_[0], WANT_EXT|WANT_HASH);
+    my $outType   = $data{outType}   = whatIsOutput($_[1], WANT_EXT|WANT_HASH);
+
+    my $oneInput  = $data{oneInput}  = oneTarget($inType);
+    my $oneOutput = $data{oneOutput} = oneTarget($outType);
+
+    if (! $inType)
+    {
+        $obj->croakError("$reportClass: illegal input parameter") ;
+        #return undef ;
+    }    
+
+#    if ($inType eq 'hash')
+#    {
+#        $obj->{Hash} = 1 ;
+#        $obj->{oneInput} = 1 ;
+#        return $obj->validateHash($_[0]);
+#    }
+
+    if (! $outType)
+    {
+        $obj->croakError("$reportClass: illegal output parameter") ;
+        #return undef ;
+    }    
+
+
+    if ($inType ne 'fileglob' && $outType eq 'fileglob')
+    {
+        $obj->croakError("Need input fileglob for outout fileglob");
+    }    
+
+#    if ($inType ne 'fileglob' && $outType eq 'hash' && $inType ne 'filename' )
+#    {
+#        $obj->croakError("input must ne filename or fileglob when output is a hash");
+#    }    
+
+    if ($inType eq 'fileglob' && $outType eq 'fileglob')
+    {
+        $data{GlobMap} = 1 ;
+        $data{inType} = $data{outType} = 'filename';
+        my $mapper = new File::GlobMapper($_[0], $_[1]);
+        if ( ! $mapper )
+        {
+            return $obj->saveErrorString($File::GlobMapper::Error) ;
+        }
+        $data{Pairs} = $mapper->getFileMap();
+
+        return $obj;
+    }
+    
+    $obj->croakError("$reportClass: input and output $inType are identical")
+        if $inType eq $outType && $_[0] eq $_[1] && $_[0] ne '-' ;
+
+    if ($inType eq 'fileglob') # && $outType ne 'fileglob'
+    {
+        my $glob = cleanFileGlobString($_[0]);
+        my @inputs = glob($glob);
+
+        if (@inputs == 0)
+        {
+            # TODO -- legal or die?
+            die "globmap matched zero file -- legal or die???" ;
+        }
+        elsif (@inputs == 1)
+        {
+            $obj->validateInputFilenames($inputs[0])
+                or return undef;
+            $_[0] = $inputs[0]  ;
+            $data{inType} = 'filename' ;
+            $data{oneInput} = 1;
+        }
+        else
+        {
+            $obj->validateInputFilenames(@inputs)
+                or return undef;
+            $_[0] = [ @inputs ] ;
+            $data{inType} = 'filenames' ;
+        }
+    }
+    elsif ($inType eq 'filename')
+    {
+        $obj->validateInputFilenames($_[0])
+            or return undef;
+    }
+    elsif ($inType eq 'array')
+    {
+        $data{inType} = 'filenames' ;
+        $obj->validateInputArray($_[0])
+            or return undef ;
+    }
+
+    return $obj->saveErrorString("$reportClass: output buffer is read-only")
+        if $outType eq 'buffer' && readonly(${ $_[1] });
+
+    if ($outType eq 'filename' )
+    {
+        $obj->croakError("$reportClass: output filename is undef or null string")
+            if ! defined $_[1] || $_[1] eq ''  ;
+
+        if (-e $_[1])
+        {
+            if (-d _ )
+            {
+                return $obj->saveErrorString("output file '$_[1]' is a directory");
+            }
+        }
+    }
+    
+    return $obj ;
+}
+
+sub IO::Compress::Base::Validator::saveErrorString
+{
+    my $self   = shift ;
+    ${ $self->{Error} } = shift ;
+    return undef;
+    
+}
+
+sub IO::Compress::Base::Validator::croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString($_[0]);
+    croak $_[0];
+}
+
+
+
+sub IO::Compress::Base::Validator::validateInputFilenames
+{
+    my $self = shift ;
+
+    foreach my $filename (@_)
+    {
+        $self->croakError("$self->{reportClass}: input filename is undef or null string")
+            if ! defined $filename || $filename eq ''  ;
+
+        next if $filename eq '-';
+
+        if (! -e $filename )
+        {
+            return $self->saveErrorString("input file '$filename' does not exist");
+        }
+
+        if (-d _ )
+        {
+            return $self->saveErrorString("input file '$filename' is a directory");
+        }
+
+#        if (! -r _ )
+#        {
+#            return $self->saveErrorString("cannot open file '$filename': $!");
+#        }
+    }
+
+    return 1 ;
+}
+
+sub IO::Compress::Base::Validator::validateInputArray
+{
+    my $self = shift ;
+
+    if ( @{ $_[0] } == 0 )
+    {
+        return $self->saveErrorString("empty array reference") ;
+    }    
+
+    foreach my $element ( @{ $_[0] } )
+    {
+        my $inType  = whatIsInput($element);
+    
+        if (! $inType)
+        {
+            $self->croakError("unknown input parameter") ;
+        }    
+        elsif($inType eq 'filename')
+        {
+            $self->validateInputFilenames($element)
+                or return undef ;
+        }
+        else
+        {
+            $self->croakError("not a filename") ;
+        }
+    }
+
+    return 1 ;
+}
+
+#sub IO::Compress::Base::Validator::validateHash
+#{
+#    my $self = shift ;
+#    my $href = shift ;
+#
+#    while (my($k, $v) = each %$href)
+#    {
+#        my $ktype = whatIsInput($k);
+#        my $vtype = whatIsOutput($v, WANT_EXT|WANT_UNDEF) ;
+#
+#        if ($ktype ne 'filename')
+#        {
+#            return $self->saveErrorString("hash key not filename") ;
+#        }    
+#
+#        my %valid = map { $_ => 1 } qw(filename buffer array undef handle) ;
+#        if (! $valid{$vtype})
+#        {
+#            return $self->saveErrorString("hash value not ok") ;
+#        }    
+#    }
+#
+#    return $self ;
+#}
+
+sub createSelfTiedObject
+{
+    my $class = shift || (caller)[0] ;
+    my $error_ref = shift ;
+
+    my $obj = bless Symbol::gensym(), ref($class) || $class;
+    tie *$obj, $obj if $] >= 5.005;
+    *$obj->{Closed} = 1 ;
+    $$error_ref = '';
+    *$obj->{Error} = $error_ref ;
+    my $errno = 0 ;
+    *$obj->{ErrorNo} = \$errno ;
+
+    return $obj;
+}
+
+
+
+#package Parse::Parameters ;
+#
+#
+#require Exporter;
+#our ($VERSION, @ISA, @EXPORT);
+#$VERSION = '2.000_08';
+#@ISA = qw(Exporter);
+
+$EXPORT_TAGS{Parse} = [qw( ParseParameters 
+                           Parse_any Parse_unsigned Parse_signed 
+                           Parse_boolean Parse_string
+                           Parse_code
+                           Parse_writable_scalar
+                         )
+                      ];              
+
+push @EXPORT, @{ $EXPORT_TAGS{Parse} } ;
+
+use constant Parse_any      => 0x01;
+use constant Parse_unsigned => 0x02;
+use constant Parse_signed   => 0x04;
+use constant Parse_boolean  => 0x08;
+use constant Parse_string   => 0x10;
+use constant Parse_code     => 0x20;
+
+#use constant Parse_store_ref        => 0x100 ;
+#use constant Parse_multiple         => 0x100 ;
+use constant Parse_writable         => 0x200 ;
+use constant Parse_writable_scalar  => 0x400 | Parse_writable ;
+
+use constant OFF_PARSED     => 0 ;
+use constant OFF_TYPE       => 1 ;
+use constant OFF_DEFAULT    => 2 ;
+use constant OFF_FIXED      => 3 ;
+#use constant OFF_FIRST_ONLY => 4 ;
+#use constant OFF_STICKY     => 5 ;
+
+use constant IxError => 0;
+use constant IxGot   => 1 ;
+
+sub ParseParameters
+{
+    my $level = shift || 0 ; 
+
+    my $sub = (caller($level + 1))[3] ;
+    local $Carp::CarpLevel = 1 ;
+    
+    return $_[1]
+        if @_ == 2 && defined $_[1] && UNIVERSAL::isa($_[1], "IO::Compress::Base::Parameters");
+    
+    my $p = new IO::Compress::Base::Parameters() ;            
+    $p->parse(@_)
+        or croak "$sub: $p->[IxError]" ;
+
+    return $p;
+}
+
+
+use strict;
+
+use warnings;
+use Carp;
+
+
+sub Init
+{
+    my $default = shift ;
+    my %got ;
+    
+    my $obj = IO::Compress::Base::Parameters::new();
+    while (my ($key, $v) = each %$default)
+    {
+        croak "need 2 params [@$v]"
+            if @$v != 2 ;
+
+        my ($type, $value) = @$v ;
+#        my ($first_only, $sticky, $type, $value) = @$v ;
+        my $sticky = 0;
+        my $x ;
+        $obj->_checkType($key, \$value, $type, 0, \$x) 
+            or return undef ;
+
+        $key = lc $key;
+
+#        if (! $sticky) {
+#            $x = []
+#                if $type & Parse_multiple;
+
+#            $got{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
+            $got{$key} = [0, $type, $value, $x] ;            
+#        }
+#
+#        $got{$key}[OFF_PARSED] = 0 ;
+    }
+    
+    return bless \%got, "IO::Compress::Base::Parameters::Defaults" ;
+}
+
+sub IO::Compress::Base::Parameters::new
+{
+    #my $class = shift ;
+
+    my $obj;
+    $obj->[IxError] = '';
+    $obj->[IxGot] = {} ;          
+
+    return bless $obj, 'IO::Compress::Base::Parameters' ;
+}
+
+sub IO::Compress::Base::Parameters::setError
+{
+    my $self = shift ;
+    my $error = shift ;
+    my $retval = @_ ? shift : undef ;
+
+
+    $self->[IxError] = $error ;
+    return $retval;
+}
+          
+sub IO::Compress::Base::Parameters::getError
+{
+    my $self = shift ;
+    return $self->[IxError] ;
+}
+          
+sub IO::Compress::Base::Parameters::parse
+{
+    my $self = shift ;
+    my $default = shift ;
+
+    my $got = $self->[IxGot] ;
+    my $firstTime = keys %{ $got } == 0 ;
+
+    my (@Bad) ;
+    my @entered = () ;
+
+    # Allow the options to be passed as a hash reference or
+    # as the complete hash.
+    if (@_ == 0) {
+        @entered = () ;
+    }
+    elsif (@_ == 1) {
+        my $href = $_[0] ;
+    
+        return $self->setError("Expected even number of parameters, got 1")
+            if ! defined $href or ! ref $href or ref $href ne "HASH" ;
+ 
+        foreach my $key (keys %$href) {
+            push @entered, $key ;
+            push @entered, \$href->{$key} ;
+        }
+    }
+    else {
+       
+        my $count = @_;
+        return $self->setError("Expected even number of parameters, got $count")
+            if $count % 2 != 0 ;
+        
+        for my $i (0.. $count / 2 - 1) {
+            push @entered, $_[2 * $i] ;
+            push @entered, \$_[2 * $i + 1] ;
+        }
+    }
+
+        foreach my $key (keys %$default)
+        {
+    
+            my ($type, $value) = @{ $default->{$key} } ;
+  
+            if ($firstTime) {   
+                $got->{$key} = [0, $type, $value, $value] ;               
+            }
+            else
+            {
+                $got->{$key}[OFF_PARSED] = 0 ;      
+            }               
+        }
+
+
+    my %parsed = ();
+    
+   
+    for my $i (0.. @entered / 2 - 1) {
+        my $key = $entered[2* $i] ;
+        my $value = $entered[2* $i+1] ;
+
+        #print "Key [$key] Value [$value]" ;
+        #print defined $$value ? "[$$value]\n" : "[undef]\n";
+
+        $key =~ s/^-// ;
+        my $canonkey = lc $key;
+ 
+        if ($got->{$canonkey})                                  
+        {
+            my $type = $got->{$canonkey}[OFF_TYPE] ;
+            my $parsed = $parsed{$canonkey};
+            ++ $parsed{$canonkey};
+
+            return $self->setError("Muliple instances of '$key' found") 
+                if $parsed ; 
+
+            my $s ;
+            $self->_checkType($key, $value, $type, 1, \$s)
+                or return undef ;
+
+            $value = $$value ;
+            $got->{$canonkey} = [1, $type, $value, $s] ;
+
+        }
+        else
+          { push (@Bad, $key) }
+    }
+ 
+    if (@Bad) {
+        my ($bad) = join(", ", @Bad) ;
+        return $self->setError("unknown key value(s) $bad") ;
+    }
+
+    return 1;
+}
+
+sub IO::Compress::Base::Parameters::_checkType
+{
+    my $self = shift ;
+
+    my $key   = shift ;
+    my $value = shift ;
+    my $type  = shift ;
+    my $validate  = shift ;
+    my $output  = shift;
+
+    #local $Carp::CarpLevel = $level ;
+    #print "PARSE $type $key $value $validate $sub\n" ;
+
+    if ($type & Parse_writable_scalar)
+    {
+        return $self->setError("Parameter '$key' not writable")
+            if  readonly $$value ;
+
+        if (ref $$value) 
+        {
+            return $self->setError("Parameter '$key' not a scalar reference")
+                if ref $$value ne 'SCALAR' ;
+
+            $$output = $$value ;
+        }
+        else  
+        {
+            return $self->setError("Parameter '$key' not a scalar")
+                if ref $value ne 'SCALAR' ;
+
+            $$output = $value ;
+        }
+
+        return 1;
+    }
+
+
+    $value = $$value ;
+
+    if ($type & Parse_any)
+    {
+        $$output = $value ;
+        return 1;
+    }
+    elsif ($type & Parse_unsigned)
+    {
+     
+        return $self->setError("Parameter '$key' must be an unsigned int, got 'undef'")
+            if ! defined $value ;
+        return $self->setError("Parameter '$key' must be an unsigned int, got '$value'")
+            if $value !~ /^\d+$/;
+    
+        $$output = defined $value ? $value : 0 ;    
+        return 1;
+    }
+    elsif ($type & Parse_signed)
+    {
+        return $self->setError("Parameter '$key' must be a signed int, got 'undef'")
+            if ! defined $value ;
+        return $self->setError("Parameter '$key' must be a signed int, got '$value'")
+            if $value !~ /^-?\d+$/;
+
+        $$output = defined $value ? $value : 0 ;    
+        return 1 ;
+    }
+    elsif ($type & Parse_boolean)
+    {
+        return $self->setError("Parameter '$key' must be an int, got '$value'")
+            if defined $value && $value !~ /^\d*$/;
+
+        $$output =  defined $value && $value != 0 ? 1 : 0 ;    
+        return 1;
+    }
+
+    elsif ($type & Parse_string)
+    {
+        $$output = defined $value ? $value : "" ;    
+        return 1;
+    }
+    elsif ($type & Parse_code)
+    {
+        return $self->setError("Parameter '$key' must be a code reference, got '$value'")
+            if (! defined $value || ref $value ne 'CODE') ;
+
+        $$output = defined $value ? $value : "" ;    
+        return 1;
+    }
+    
+    $$output = $value ;
+    return 1;
+}
+
+sub IO::Compress::Base::Parameters::parsed
+{
+    return $_[0]->[IxGot]{$_[1]}[OFF_PARSED] ;
+}
+
+
+sub IO::Compress::Base::Parameters::getValue
+{
+    return  $_[0]->[IxGot]{$_[1]}[OFF_FIXED] ;
+}
+sub IO::Compress::Base::Parameters::setValue
+{
+    $_[0]->[IxGot]{$_[1]}[OFF_PARSED]  = 1;
+    $_[0]->[IxGot]{$_[1]}[OFF_DEFAULT] = $_[2] ;
+    $_[0]->[IxGot]{$_[1]}[OFF_FIXED]   = $_[2] ;            
+}
+
+sub IO::Compress::Base::Parameters::valueRef
+{
+    return  $_[0]->[IxGot]{$_[1]}[OFF_FIXED]  ;
+}
+
+sub IO::Compress::Base::Parameters::valueOrDefault
+{
+    my $self = shift ;
+    my $name = shift ;
+    my $default = shift ;
+
+    my $value = $self->[IxGot]{$name}[OFF_DEFAULT] ;
+    
+    return $value if defined $value ;
+    return $default ;
+}
+
+sub IO::Compress::Base::Parameters::wantValue
+{
+    return defined $_[0]->[IxGot]{$_[1]}[OFF_DEFAULT] ;
+}
+
+sub IO::Compress::Base::Parameters::clone
+{
+    my $self = shift ;
+    my $obj = [] ;
+    my %got ;
+
+    my $hash = $self->[IxGot] ;
+    for my $k (keys %{ $hash })
+    {
+        $got{$k} = [ @{ $hash->{$k} } ];
+    }
+
+    $obj->[IxError] = $self->[IxError];
+    $obj->[IxGot] = \%got ;
+
+    return bless $obj, 'IO::Compress::Base::Parameters' ;
+}
+
+package U64;
+
+use constant MAX32 => 0xFFFFFFFF ;
+use constant HI_1 => MAX32 + 1 ;
+use constant LOW   => 0 ;
+use constant HIGH  => 1;
+
+sub new
+{
+    return bless [ 0, 0 ], $_[0]
+        if @_ == 1 ;
+        
+    return bless [ $_[1], 0 ], $_[0]
+        if @_ == 2 ;
+        
+    return bless [ $_[2], $_[1] ], $_[0]      
+        if @_ == 3 ;  
+}
+
+sub newUnpack_V64
+{
+    my ($low, $hi) = unpack "V V", $_[0] ;
+    bless [ $low, $hi ], "U64";
+}
+
+sub newUnpack_V32
+{
+    my $string = shift;
+
+    my $low = unpack "V", $string ;
+    bless [ $low, 0 ], "U64";
+}
+
+sub reset
+{
+    $_[0]->[HIGH] = $_[0]->[LOW] = 0;
+}
+
+sub clone
+{
+    bless [ @{$_[0]}  ], ref $_[0] ;    
+}
+
+sub getHigh
+{
+    return $_[0]->[HIGH];
+}
+
+sub getLow
+{
+    return $_[0]->[LOW];
+}
+
+sub get32bit
+{
+    return $_[0]->[LOW];
+}
+
+sub get64bit
+{
+    # Not using << here because the result will still be
+    # a 32-bit value on systems where int size is 32-bits
+    return $_[0]->[HIGH] * HI_1 + $_[0]->[LOW];
+}
+
+sub add
+{
+#    my $self = shift;
+    my $value = $_[1];
+
+    if (ref $value eq 'U64') {
+        $_[0]->[HIGH] += $value->[HIGH] ;
+        $value = $value->[LOW];
+    }
+    elsif ($value > MAX32) {      
+        $_[0]->[HIGH] += int($value / HI_1) ;
+        $value = $value % HI_1;
+    }
+     
+    my $available = MAX32 - $_[0]->[LOW] ;
+ 
+    if ($value > $available) {
+       ++ $_[0]->[HIGH] ;
+       $_[0]->[LOW] = $value - $available - 1;
+    }
+    else {
+       $_[0]->[LOW] += $value ;
+    }
+}
+
+sub add32
+{
+#    my $self = shift;
+    my $value = $_[1];
+
+    if ($value > MAX32) {      
+        $_[0]->[HIGH] += int($value / HI_1) ;
+        $value = $value % HI_1;
+    }
+     
+    my $available = MAX32 - $_[0]->[LOW] ;
+ 
+    if ($value > $available) {
+       ++ $_[0]->[HIGH] ;
+       $_[0]->[LOW] = $value - $available - 1;
+    }
+    else {
+       $_[0]->[LOW] += $value ;
+    }
+}
+
+sub subtract
+{
+    my $self = shift;
+    my $value = shift;
+
+    if (ref $value eq 'U64') {
+
+        if ($value->[HIGH]) {
+            die "bad"
+                if $self->[HIGH] == 0 ||
+                   $value->[HIGH] > $self->[HIGH] ;
+
+           $self->[HIGH] -= $value->[HIGH] ;
+        }
+
+        $value = $value->[LOW] ;
+    }
+
+    if ($value > $self->[LOW]) {
+       -- $self->[HIGH] ;
+       $self->[LOW] = MAX32 - $value + $self->[LOW] + 1 ;
+    }
+    else {
+       $self->[LOW] -= $value;
+    }
+}
+
+sub equal
+{
+    my $self = shift;
+    my $other = shift;
+
+    return $self->[LOW]  == $other->[LOW] &&
+           $self->[HIGH] == $other->[HIGH] ;
+}
+
+sub gt
+{
+    my $self = shift;
+    my $other = shift;
+
+    return $self->cmp($other) > 0 ;
+}
+
+sub cmp
+{
+    my $self = shift;
+    my $other = shift ;
+
+    if ($self->[LOW] == $other->[LOW]) {
+        return $self->[HIGH] - $other->[HIGH] ;
+    }
+    else {
+        return $self->[LOW] - $other->[LOW] ;
+    }
+}
+    
+
+sub is64bit
+{
+    return $_[0]->[HIGH] > 0 ;
+}
+
+sub isAlmost64bit
+{
+    return $_[0]->[HIGH] > 0 ||  $_[0]->[LOW] == MAX32 ;
+}
+
+sub getPacked_V64
+{
+    return pack "V V", @{ $_[0] } ;
+}
+
+sub getPacked_V32
+{
+    return pack "V", $_[0]->[LOW] ;
+}
+
+sub pack_V64
+{
+    return pack "V V", $_[0], 0;
+}
+
+
+sub full32 
+{
+    return $_[0] == MAX32 ;
+}
+
+sub Value_VV64
+{
+    my $buffer = shift;
+
+    my ($lo, $hi) = unpack ("V V" , $buffer);
+    no warnings 'uninitialized';
+    return $hi * HI_1 + $lo;
+}
+
+
+package IO::Compress::Base::Common;
+
+1;
+package IO::Uncompress::Inflate ;
+# for RFC1950
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status );
+use IO::Compress::Zlib::Constants 2.074 ;
+
+use IO::Uncompress::RawInflate  2.074 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
+
+$VERSION = '2.074';
+$InflateError = '';
+
+@ISA    = qw(IO::Uncompress::RawInflate Exporter);
+@EXPORT_OK = qw( $InflateError inflate ) ;
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$InflateError);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub inflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$InflateError);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return ();
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gunzip always needs adler32
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, ZLIB_HEADER_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Header size is " . 
+                                        ZLIB_HEADER_SIZE . " bytes") 
+        if length $magic != ZLIB_HEADER_SIZE;
+
+    #return $self->HeaderError("CRC mismatch.")
+    return undef
+        if ! $self->isZlibMagic($magic) ;
+                      
+    *$self->{Type} = 'rfc1950';
+    return $magic;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    return $self->_readDeflateHeader($magic) ;
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    my $ADLER32 = unpack("N", $trailer) ;
+    *$self->{Info}{ADLER32} = $ADLER32;    
+    return $self->TrailerError("CRC mismatch")
+        if *$self->{Strict} && $ADLER32 != *$self->{Uncomp}->adler32() ;
+
+    return STATUS_OK;
+}
+
+
+
+sub isZlibMagic
+{
+    my $self = shift;
+    my $buffer = shift ;
+
+    return 0 
+        if length $buffer < ZLIB_HEADER_SIZE ;
+
+    my $hdr = unpack("n", $buffer) ;
+    #return 0 if $hdr % 31 != 0 ;
+    return $self->HeaderError("CRC mismatch.")
+        if $hdr % 31 != 0 ;
+
+    my ($CMF, $FLG) = unpack "C C", $buffer;
+    my $cm =    bits($CMF, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS) ;
+
+    # Only Deflate supported
+    return $self->HeaderError("Not Deflate (CM is $cm)") 
+        if $cm != ZLIB_CMF_CM_DEFLATED ;
+
+    # Max window value is 7 for Deflate.
+    my $cinfo = bits($CMF, ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS) ;
+    return $self->HeaderError("CINFO > " . ZLIB_CMF_CINFO_MAX . 
+                              " (CINFO is $cinfo)") 
+        if $cinfo > ZLIB_CMF_CINFO_MAX ;
+
+    return 1;    
+}
+
+sub bits
+{
+    my $data   = shift ;
+    my $offset = shift ;
+    my $mask  = shift ;
+
+    ($data >> $offset ) & $mask & 0xFF ;
+}
+
+
+sub _readDeflateHeader
+{
+    my ($self, $buffer) = @_ ;
+
+#    if (! $buffer) {
+#        $self->smartReadExact(\$buffer, ZLIB_HEADER_SIZE);
+#
+#        *$self->{HeaderPending} = $buffer ;
+#
+#        return $self->HeaderError("Header size is " . 
+#                                            ZLIB_HEADER_SIZE . " bytes") 
+#            if length $buffer != ZLIB_HEADER_SIZE;
+#
+#        return $self->HeaderError("CRC mismatch.")
+#            if ! isZlibMagic($buffer) ;
+#    }
+                                        
+    my ($CMF, $FLG) = unpack "C C", $buffer;
+    my $FDICT = bits($FLG, ZLIB_FLG_FDICT_OFFSET,  ZLIB_FLG_FDICT_BITS ),
+
+    my $cm = bits($CMF, ZLIB_CMF_CM_OFFSET, ZLIB_CMF_CM_BITS) ;
+    $cm == ZLIB_CMF_CM_DEFLATED 
+        or return $self->HeaderError("Not Deflate (CM is $cm)") ;
+
+    my $DICTID;
+    if ($FDICT) {
+        $self->smartReadExact(\$buffer, ZLIB_FDICT_SIZE)
+            or return $self->TruncatedHeader("FDICT");
+
+        $DICTID = unpack("N", $buffer) ;
+    }
+
+    *$self->{Type} = 'rfc1950';
+
+    return {
+        'Type'          => 'rfc1950',
+        'FingerprintLength'  => ZLIB_HEADER_SIZE,
+        'HeaderLength'  => ZLIB_HEADER_SIZE,
+        'TrailerLength' => ZLIB_TRAILER_SIZE,
+        'Header'        => $buffer,
+
+        CMF     =>      $CMF                                               ,
+        CM      => bits($CMF, ZLIB_CMF_CM_OFFSET,     ZLIB_CMF_CM_BITS    ),
+        CINFO   => bits($CMF, ZLIB_CMF_CINFO_OFFSET,  ZLIB_CMF_CINFO_BITS ),
+        FLG     =>      $FLG                                               ,
+        FCHECK  => bits($FLG, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS),
+        FDICT   => bits($FLG, ZLIB_FLG_FDICT_OFFSET,  ZLIB_FLG_FDICT_BITS ),
+        FLEVEL  => bits($FLG, ZLIB_FLG_LEVEL_OFFSET,  ZLIB_FLG_LEVEL_BITS ),
+        DICTID  =>      $DICTID                                            ,
+
+    };
+}
+
+
+
+
+1 ;
+
+__END__
+
+
+
+package IO::Uncompress::Gunzip ;
+
+require 5.006 ;
+
+# for RFC1952
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Uncompress::RawInflate 2.074 ;
+
+use Compress::Raw::Zlib 2.074 () ;
+use IO::Compress::Base::Common 2.074 qw(:Status );
+use IO::Compress::Gzip::Constants 2.074 ;
+use IO::Compress::Zlib::Extra 2.074 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GunzipError);
+
+@ISA = qw(IO::Uncompress::RawInflate Exporter);
+@EXPORT_OK = qw( $GunzipError gunzip );
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+$GunzipError = '';
+
+$VERSION = '2.074';
+
+sub new
+{
+    my $class = shift ;
+    $GunzipError = '';
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$GunzipError);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub gunzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$GunzipError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+    return ( 'parseextra' => [IO::Compress::Base::Common::Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gunzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    return 1;
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, GZIP_ID_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              GZIP_MIN_HEADER_SIZE . " bytes") 
+        if length $magic != GZIP_ID_SIZE ;                                    
+
+    return $self->HeaderError("Bad Magic")
+        if ! isGzipMagic($magic) ;
+
+    *$self->{Type} = 'rfc1952';
+
+    return $magic ;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift;
+
+    return $self->_readGzipHeader($magic);
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    # Check CRC & ISIZE 
+    my ($CRC32, $ISIZE) = unpack("V V", $trailer) ;
+    *$self->{Info}{CRC32} = $CRC32;    
+    *$self->{Info}{ISIZE} = $ISIZE;    
+
+    if (*$self->{Strict}) {
+        return $self->TrailerError("CRC mismatch")
+            if $CRC32 != *$self->{Uncomp}->crc32() ;
+
+        my $exp_isize = *$self->{UnCompSize}->get32bit();
+        return $self->TrailerError("ISIZE mismatch. Got $ISIZE"
+                                  . ", expected $exp_isize")
+            if $ISIZE != $exp_isize ;
+    }
+
+    return STATUS_OK;
+}
+
+sub isGzipMagic
+{
+    my $buffer = shift ;
+    return 0 if length $buffer < GZIP_ID_SIZE ;
+    my ($id1, $id2) = unpack("C C", $buffer) ;
+    return $id1 == GZIP_ID1 && $id2 == GZIP_ID2 ;
+}
+
+sub _readFullGzipHeader($)
+{
+    my ($self) = @_ ;
+    my $magic = '' ;
+
+    $self->smartReadExact(\$magic, GZIP_ID_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              GZIP_MIN_HEADER_SIZE . " bytes") 
+        if length $magic != GZIP_ID_SIZE ;                                    
+
+
+    return $self->HeaderError("Bad Magic")
+        if ! isGzipMagic($magic) ;
+
+    my $status = $self->_readGzipHeader($magic);
+    delete *$self->{Transparent} if ! defined $status ;
+    return $status ;
+}
+
+sub _readGzipHeader($)
+{
+    my ($self, $magic) = @_ ;
+    my ($HeaderCRC) ;
+    my ($buffer) = '' ;
+
+    $self->smartReadExact(\$buffer, GZIP_MIN_HEADER_SIZE - GZIP_ID_SIZE)
+        or return $self->HeaderError("Minimum header size is " . 
+                                     GZIP_MIN_HEADER_SIZE . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    # now split out the various parts
+    my ($cm, $flag, $mtime, $xfl, $os) = unpack("C C V C C", $buffer) ;
+
+    $cm == GZIP_CM_DEFLATED 
+        or return $self->HeaderError("Not Deflate (CM is $cm)") ;
+
+    # check for use of reserved bits
+    return $self->HeaderError("Use of Reserved Bits in FLG field.")
+        if $flag & GZIP_FLG_RESERVED ; 
+
+    my $EXTRA ;
+    my @EXTRA = () ;
+    if ($flag & GZIP_FLG_FEXTRA) {
+        $EXTRA = "" ;
+        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE) 
+            or return $self->TruncatedHeader("FEXTRA Length") ;
+
+        my ($XLEN) = unpack("v", $buffer) ;
+        $self->smartReadExact(\$EXTRA, $XLEN) 
+            or return $self->TruncatedHeader("FEXTRA Body");
+        $keep .= $buffer . $EXTRA ;
+
+        if ($XLEN && *$self->{'ParseExtra'}) {
+            my $bad = IO::Compress::Zlib::Extra::parseRawExtra($EXTRA,
+                                                \@EXTRA, 1, 1);
+            return $self->HeaderError($bad)
+                if defined $bad;
+        }
+    }
+
+    my $origname ;
+    if ($flag & GZIP_FLG_FNAME) {
+        $origname = "" ;
+        while (1) {
+            $self->smartReadExact(\$buffer, 1) 
+                or return $self->TruncatedHeader("FNAME");
+            last if $buffer eq GZIP_NULL_BYTE ;
+            $origname .= $buffer 
+        }
+        $keep .= $origname . GZIP_NULL_BYTE ;
+
+        return $self->HeaderError("Non ISO 8859-1 Character found in Name")
+            if *$self->{Strict} && $origname =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ;
+    }
+
+    my $comment ;
+    if ($flag & GZIP_FLG_FCOMMENT) {
+        $comment = "";
+        while (1) {
+            $self->smartReadExact(\$buffer, 1) 
+                or return $self->TruncatedHeader("FCOMMENT");
+            last if $buffer eq GZIP_NULL_BYTE ;
+            $comment .= $buffer 
+        }
+        $keep .= $comment . GZIP_NULL_BYTE ;
+
+        return $self->HeaderError("Non ISO 8859-1 Character found in Comment")
+            if *$self->{Strict} && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o ;
+    }
+
+    if ($flag & GZIP_FLG_FHCRC) {
+        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE) 
+            or return $self->TruncatedHeader("FHCRC");
+
+        $HeaderCRC = unpack("v", $buffer) ;
+        my $crc16 = Compress::Raw::Zlib::crc32($keep) & 0xFF ;
+
+        return $self->HeaderError("CRC16 mismatch.")
+            if *$self->{Strict} && $crc16 != $HeaderCRC;
+
+        $keep .= $buffer ;
+    }
+
+    # Assume compression method is deflated for xfl tests
+    #if ($xfl) {
+    #}
+
+    *$self->{Type} = 'rfc1952';
+
+    return {
+        'Type'          => 'rfc1952',
+        'FingerprintLength'  => 2,
+        'HeaderLength'  => length $keep,
+        'TrailerLength' => GZIP_TRAILER_SIZE,
+        'Header'        => $keep,
+        'isMinimalHeader' => $keep eq GZIP_MINIMUM_HEADER ? 1 : 0,
+
+        'MethodID'      => $cm,
+        'MethodName'    => $cm == GZIP_CM_DEFLATED ? "Deflated" : "Unknown" ,
+        'TextFlag'      => $flag & GZIP_FLG_FTEXT ? 1 : 0,
+        'HeaderCRCFlag' => $flag & GZIP_FLG_FHCRC ? 1 : 0,
+        'NameFlag'      => $flag & GZIP_FLG_FNAME ? 1 : 0,
+        'CommentFlag'   => $flag & GZIP_FLG_FCOMMENT ? 1 : 0,
+        'ExtraFlag'     => $flag & GZIP_FLG_FEXTRA ? 1 : 0,
+        'Name'          => $origname,
+        'Comment'       => $comment,
+        'Time'          => $mtime,
+        'OsID'          => $os,
+        'OsName'        => defined $GZIP_OS_Names{$os} 
+                                 ? $GZIP_OS_Names{$os} : "Unknown",
+        'HeaderCRC'     => $HeaderCRC,
+        'Flags'         => $flag,
+        'ExtraFlags'    => $xfl,
+        'ExtraFieldRaw' => $EXTRA,
+        'ExtraField'    => [ @EXTRA ],
+
+
+        #'CompSize'=> $compsize,
+        #'CRC32'=> $CRC32,
+        #'OrigSize'=> $ISIZE,
+      }
+}
+
+
+1;
+
+__END__
+
+
+package IO::Uncompress::AnyUncompress ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.074 ();
+
+use IO::Uncompress::Base 2.074 ;
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
+
+$VERSION = '2.074';
+$AnyUncompressError = '';
+
+@ISA = qw(IO::Uncompress::Base Exporter);
+@EXPORT_OK = qw( $AnyUncompressError anyuncompress ) ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+# TODO - allow the user to pick a set of the three formats to allow
+#        or just assume want to auto-detect any of the three formats.
+
+BEGIN
+{
+   local @INC = @INC;
+   pop @INC if $INC[-1] eq '.';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.074 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.074 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.074 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.074 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.074 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.074 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.074 ;';
+   eval ' use IO::Uncompress::UnLzop 2.074 ;';
+   eval ' use IO::Uncompress::Gunzip 2.074 ;';
+   eval ' use IO::Uncompress::Inflate 2.074 ;';
+   eval ' use IO::Uncompress::RawInflate 2.074 ;';
+   eval ' use IO::Uncompress::Unzip 2.074 ;';
+   eval ' use IO::Uncompress::UnLzf 2.074 ;';
+   eval ' use IO::Uncompress::UnLzma 2.074 ;';
+   eval ' use IO::Uncompress::UnXz 2.074 ;';
+}
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyUncompressError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub anyuncompress
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyUncompressError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{ 
+    return ( 'rawinflate' => [IO::Compress::Base::Common::Parse_boolean,  0] ,
+             'unlzma'     => [IO::Compress::Base::Common::Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # any always needs both crc32 and adler32
+    $got->setValue('crc32' => 1);
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my $magic ;
+
+    # try zlib first
+    if (defined $IO::Uncompress::RawInflate::VERSION )
+    {
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+        
+        my @possible = qw( Inflate Gunzip Unzip );
+        unshift @possible, 'RawInflate' 
+            if $got->getValue('rawinflate');
+
+        $magic = $self->ckMagic( @possible );
+        
+        if ($magic) {
+            *$self->{Info} = $self->readHeader($magic)
+                or return undef ;
+
+            return 1;
+        }
+     }
+
+    if (defined $IO::Uncompress::UnLzma::VERSION && $got->getValue('unlzma'))
+    {
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnLzma::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+        
+        my @possible = qw( UnLzma );
+        #unshift @possible, 'RawInflate' 
+        #    if $got->getValue('rawinflate');
+
+        if ( *$self->{Info} = $self->ckMagic( @possible ))
+        {
+            return 1;
+        }
+     }
+
+     if (defined $IO::Uncompress::UnXz::VERSION and
+         $magic = $self->ckMagic('UnXz')) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) =
+            IO::Uncompress::Adapter::UnXz::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::Bunzip2::VERSION and
+         $magic = $self->ckMagic('Bunzip2')) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Bunzip2::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::UnLzop::VERSION and
+            $magic = $self->ckMagic('UnLzop')) {
+
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::LZO::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::UnLzf::VERSION and
+            $magic = $self->ckMagic('UnLzf')) {
+
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Lzf::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     return 0 ;
+}
+
+
+
+sub ckMagic
+{
+    my $self = shift;
+    my @names = @_ ;
+
+    my $keep = ref $self ;
+    for my $class ( map { "IO::Uncompress::$_" } @names)
+    {
+        bless $self => $class;
+        my $magic = $self->ckMagic();
+
+        if ($magic)
+        {
+            #bless $self => $class;
+            return $magic ;
+        }
+
+        $self->pushBack(*$self->{HeaderPending})  ;
+        *$self->{HeaderPending} = ''  ;
+    }    
+
+    bless $self => $keep;
+    return undef;
+}
+
+1 ;
+
+__END__
+
+
+package IO::Uncompress::Unzip;
+
+require 5.006 ;
+
+# for RFC1952
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::File;
+use IO::Uncompress::RawInflate  2.074 ;
+use IO::Compress::Base::Common  2.074 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.074 ;
+use IO::Uncompress::Adapter::Identity 2.074 ;
+use IO::Compress::Zlib::Extra 2.074 ;
+use IO::Compress::Zip::Constants 2.074 ;
+
+use Compress::Raw::Zlib  2.074 () ;
+
+BEGIN
+{
+    eval{ require IO::Uncompress::Adapter::Bunzip2 ;
+          import  IO::Uncompress::Adapter::Bunzip2 } ;
+    eval{ require IO::Uncompress::Adapter::UnLzma ;
+          import  IO::Uncompress::Adapter::UnLzma } ;
+}
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
+
+$VERSION = '2.074';
+$UnzipError = '';
+
+@ISA    = qw(IO::Uncompress::RawInflate Exporter);
+@EXPORT_OK = qw( $UnzipError unzip );
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+%headerLookup = (
+        ZIP_CENTRAL_HDR_SIG,            \&skipCentralDirectory,
+        ZIP_END_CENTRAL_HDR_SIG,        \&skipEndCentralDirectory,
+        ZIP64_END_CENTRAL_REC_HDR_SIG,  \&skipCentralDirectory64Rec,
+        ZIP64_END_CENTRAL_LOC_HDR_SIG,  \&skipCentralDirectory64Loc,
+        ZIP64_ARCHIVE_EXTRA_SIG,        \&skipArchiveExtra,
+        ZIP64_DIGITAL_SIGNATURE_SIG,    \&skipDigitalSignature,
+        );
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$UnzipError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub unzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$UnzipError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+   
+    return (
+#            # Zip header fields
+            'name'    => [IO::Compress::Base::Common::Parse_any,       undef],
+
+            'stream'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            
+            # TODO - This means reading the central directory to get
+            # 1. the local header offsets
+            # 2. The compressed data length
+        );    
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # unzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    *$self->{UnzipData}{Name} = $got->getValue('name');
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    return 1;
+
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              4 . " bytes") 
+        if length $magic != 4 ;                                    
+
+    return $self->HeaderError("Bad Magic")
+        if ! _isZipMagic($magic) ;
+
+    *$self->{Type} = 'zip';
+
+    return $magic ;
+}
+
+
+sub fastForward
+{
+    my $self = shift;
+    my $offset = shift;
+
+    # TODO - if Stream isn't enabled & reading from file, use seek
+
+    my $buffer = '';
+    my $c = 1024 * 16;
+
+    while ($offset > 0)
+    {
+        $c = length $offset
+            if length $offset < $c ;
+
+        $offset -= $c;
+
+        $self->smartReadExact(\$buffer, $c)
+            or return 0;
+    }
+
+    return 1;
+}
+
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $name =  *$self->{UnzipData}{Name} ;
+    my $hdr = $self->_readZipHeader($magic) ;
+
+    while (defined $hdr)
+    {
+        if (! defined $name || $hdr->{Name} eq $name)
+        {
+            return $hdr ;
+        }
+
+        # skip the data
+        # TODO - when Stream is off, use seek
+        my $buffer;
+        if (*$self->{ZipData}{Streaming}) {
+
+            while (1) {
+
+                my $b;
+                my $status = $self->smartRead(\$b, 1024 * 16);
+                return undef
+                    if $status <= 0 ;
+
+                my $temp_buf;
+                my $out;
+                $status = *$self->{Uncomp}->uncompr(\$b, \$temp_buf, 0, $out);
+
+                return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, 
+                                                     *$self->{Uncomp}{ErrorNo})
+                    if $self->saveStatus($status) == STATUS_ERROR;                
+
+                if ($status == STATUS_ENDSTREAM) {
+                    *$self->{Uncomp}->reset();
+                    $self->pushBack($b)  ;
+                    last;
+                }
+            }
+
+            # skip the trailer
+            $self->smartReadExact(\$buffer, $hdr->{TrailerLength})
+                or return $self->saveErrorString(undef, "Truncated file");
+        }
+        else {
+            my $c = $hdr->{CompressedLength}->get64bit();
+            $self->fastForward($c)
+                or return $self->saveErrorString(undef, "Truncated file");
+            $buffer = '';
+        }
+
+        $self->chkTrailer($buffer) == STATUS_OK
+            or return $self->saveErrorString(undef, "Truncated file");
+
+        $hdr = $self->_readFullZipHeader();
+
+        return $self->saveErrorString(undef, "Cannot find '$name'")
+            if $self->smartEof();
+    }
+
+    return undef;
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    my ($sig, $CRC32, $cSize, $uSize) ;
+    my ($cSizeHi, $uSizeHi) = (0, 0);
+    if (*$self->{ZipData}{Streaming}) {
+        $sig   = unpack ("V", substr($trailer, 0, 4));
+        $CRC32 = unpack ("V", substr($trailer, 4, 4));
+
+        if (*$self->{ZipData}{Zip64} ) {
+            $cSize = U64::newUnpack_V64 substr($trailer,  8, 8);
+            $uSize = U64::newUnpack_V64 substr($trailer, 16, 8);
+        }
+        else {
+            $cSize = U64::newUnpack_V32 substr($trailer,  8, 4);
+            $uSize = U64::newUnpack_V32 substr($trailer, 12, 4);
+        }
+
+        return $self->TrailerError("Data Descriptor signature, got $sig")
+            if $sig != ZIP_DATA_HDR_SIG;
+    }
+    else {
+        ($CRC32, $cSize, $uSize) = 
+            (*$self->{ZipData}{Crc32},
+             *$self->{ZipData}{CompressedLen},
+             *$self->{ZipData}{UnCompressedLen});
+    }
+
+    *$self->{Info}{CRC32} = *$self->{ZipData}{CRC32} ;
+    *$self->{Info}{CompressedLength} = $cSize->get64bit();
+    *$self->{Info}{UncompressedLength} = $uSize->get64bit();
+
+    if (*$self->{Strict}) {
+        return $self->TrailerError("CRC mismatch")
+            if $CRC32  != *$self->{ZipData}{CRC32} ;
+
+        return $self->TrailerError("CSIZE mismatch.")
+            if ! $cSize->equal(*$self->{CompSize});
+
+        return $self->TrailerError("USIZE mismatch.")
+            if ! $uSize->equal(*$self->{UnCompSize});
+    }
+
+    my $reachedEnd = STATUS_ERROR ;
+    # check for central directory or end of central directory
+    while (1)
+    {
+        my $magic ;
+        my $got = $self->smartRead(\$magic, 4);
+
+        return $self->saveErrorString(STATUS_ERROR, "Truncated file")
+            if $got != 4 && *$self->{Strict};
+
+        if ($got == 0) {
+            return STATUS_EOF ;
+        }
+        elsif ($got < 0) {
+            return STATUS_ERROR ;
+        }
+        elsif ($got < 4) {
+            $self->pushBack($magic)  ;
+            return STATUS_OK ;
+        }
+
+        my $sig = unpack("V", $magic) ;
+
+        my $hdr;
+        if ($hdr = $headerLookup{$sig})
+        {
+            if (&$hdr($self, $magic) != STATUS_OK ) {
+                if (*$self->{Strict}) {
+                    return STATUS_ERROR ;
+                }
+                else {
+                    $self->clearError();
+                    return STATUS_OK ;
+                }
+            }
+
+            if ($sig == ZIP_END_CENTRAL_HDR_SIG)
+            {
+                return STATUS_OK ;
+                last;
+            }
+        }
+        elsif ($sig == ZIP_LOCAL_HDR_SIG)
+        {
+            $self->pushBack($magic)  ;
+            return STATUS_OK ;
+        }
+        else
+        {
+            # put the data back
+            $self->pushBack($magic)  ;
+            last;
+        }
+    }
+
+    return $reachedEnd ;
+}
+
+sub skipCentralDirectory
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 46 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     46 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $versionMadeBy      = unpack ("v", substr($buffer, 4-4,  2));
+   #my $extractVersion     = unpack ("v", substr($buffer, 6-4,  2));
+   #my $gpFlag             = unpack ("v", substr($buffer, 8-4,  2));
+   #my $compressedMethod   = unpack ("v", substr($buffer, 10-4, 2));
+   #my $lastModTime        = unpack ("V", substr($buffer, 12-4, 4));
+   #my $crc32              = unpack ("V", substr($buffer, 16-4, 4));
+    my $compressedLength   = unpack ("V", substr($buffer, 20-4, 4));
+    my $uncompressedLength = unpack ("V", substr($buffer, 24-4, 4));
+    my $filename_length    = unpack ("v", substr($buffer, 28-4, 2)); 
+    my $extra_length       = unpack ("v", substr($buffer, 30-4, 2));
+    my $comment_length     = unpack ("v", substr($buffer, 32-4, 2));
+   #my $disk_start         = unpack ("v", substr($buffer, 34-4, 2));
+   #my $int_file_attrib    = unpack ("v", substr($buffer, 36-4, 2));
+   #my $ext_file_attrib    = unpack ("V", substr($buffer, 38-4, 2));
+   #my $lcl_hdr_offset     = unpack ("V", substr($buffer, 42-4, 2));
+
+    
+    my $filename;
+    my $extraField;
+    my $comment ;
+    if ($filename_length)
+    {
+        $self->smartReadExact(\$filename, $filename_length)
+            or return $self->TruncatedTrailer("filename");
+        $keep .= $filename ;
+    }
+
+    if ($extra_length)
+    {
+        $self->smartReadExact(\$extraField, $extra_length)
+            or return $self->TruncatedTrailer("extra");
+        $keep .= $extraField ;
+    }
+
+    if ($comment_length)
+    {
+        $self->smartReadExact(\$comment, $comment_length)
+            or return $self->TruncatedTrailer("comment");
+        $keep .= $comment ;
+    }
+
+    return STATUS_OK ;
+}
+
+sub skipArchiveExtra
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     4 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+
+    my $size = unpack ("V", $buffer);
+
+    $self->smartReadExact(\$buffer, $size)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     $size . " bytes") ;
+
+    $keep .= $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    return STATUS_OK ;
+}
+
+
+sub skipCentralDirectory64Rec
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 8)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     8 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+
+    my ($sizeLo, $sizeHi)  = unpack ("V V", $buffer);
+    my $size = $sizeHi * U64::MAX32 + $sizeLo;
+
+    $self->fastForward($size)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     $size . " bytes") ;
+
+   #$keep .= $buffer ;
+   #*$self->{HeaderPending} = $keep ;
+
+   #my $versionMadeBy      = unpack ("v",   substr($buffer,  0, 2));
+   #my $extractVersion     = unpack ("v",   substr($buffer,  2, 2));
+   #my $diskNumber         = unpack ("V",   substr($buffer,  4, 4));
+   #my $cntrlDirDiskNo     = unpack ("V",   substr($buffer,  8, 4));
+   #my $entriesInThisCD    = unpack ("V V", substr($buffer, 12, 8));
+   #my $entriesInCD        = unpack ("V V", substr($buffer, 20, 8));
+   #my $sizeOfCD           = unpack ("V V", substr($buffer, 28, 8));
+   #my $offsetToCD         = unpack ("V V", substr($buffer, 36, 8));
+
+    return STATUS_OK ;
+}
+
+sub skipCentralDirectory64Loc
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 20 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     20 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $startCdDisk        = unpack ("V",   substr($buffer,  4-4, 4));
+   #my $offsetToCD         = unpack ("V V", substr($buffer,  8-4, 8));
+   #my $diskCount          = unpack ("V",   substr($buffer, 16-4, 4));
+
+    return STATUS_OK ;
+}
+
+sub skipEndCentralDirectory
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 22 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     22 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $diskNumber         = unpack ("v", substr($buffer, 4-4,  2));
+   #my $cntrlDirDiskNo     = unpack ("v", substr($buffer, 6-4,  2));
+   #my $entriesInThisCD    = unpack ("v", substr($buffer, 8-4,  2));
+   #my $entriesInCD        = unpack ("v", substr($buffer, 10-4, 2));
+   #my $sizeOfCD           = unpack ("V", substr($buffer, 12-4, 4));
+   #my $offsetToCD         = unpack ("V", substr($buffer, 16-4, 4));
+    my $comment_length     = unpack ("v", substr($buffer, 20-4, 2));
+
+    
+    my $comment ;
+    if ($comment_length)
+    {
+        $self->smartReadExact(\$comment, $comment_length)
+            or return $self->TruncatedTrailer("comment");
+        $keep .= $comment ;
+    }
+
+    return STATUS_OK ;
+}
+
+
+sub _isZipMagic
+{
+    my $buffer = shift ;
+    return 0 if length $buffer < 4 ;
+    my $sig = unpack("V", $buffer) ;
+    return $sig == ZIP_LOCAL_HDR_SIG ;
+}
+
+
+sub _readFullZipHeader($)
+{
+    my ($self) = @_ ;
+    my $magic = '' ;
+
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              30 . " bytes") 
+        if length $magic != 4 ;                                    
+
+
+    return $self->HeaderError("Bad Magic")
+        if ! _isZipMagic($magic) ;
+
+    my $status = $self->_readZipHeader($magic);
+    delete *$self->{Transparent} if ! defined $status ;
+    return $status ;
+}
+
+sub _readZipHeader($)
+{
+    my ($self, $magic) = @_ ;
+    my ($HeaderCRC) ;
+    my ($buffer) = '' ;
+
+    $self->smartReadExact(\$buffer, 30 - 4)
+        or return $self->HeaderError("Minimum header size is " . 
+                                     30 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    my $extractVersion     = unpack ("v", substr($buffer, 4-4,  2));
+    my $gpFlag             = unpack ("v", substr($buffer, 6-4,  2));
+    my $compressedMethod   = unpack ("v", substr($buffer, 8-4,  2));
+    my $lastModTime        = unpack ("V", substr($buffer, 10-4, 4));
+    my $crc32              = unpack ("V", substr($buffer, 14-4, 4));
+    my $compressedLength   = U64::newUnpack_V32 substr($buffer, 18-4, 4);
+    my $uncompressedLength = U64::newUnpack_V32 substr($buffer, 22-4, 4);
+    my $filename_length    = unpack ("v", substr($buffer, 26-4, 2)); 
+    my $extra_length       = unpack ("v", substr($buffer, 28-4, 2));
+
+    my $filename;
+    my $extraField;
+    my @EXTRA = ();
+    my $streamingMode = ($gpFlag & ZIP_GP_FLAG_STREAMING_MASK) ? 1 : 0 ;
+
+    return $self->HeaderError("Encrypted content not supported")
+        if $gpFlag & (ZIP_GP_FLAG_ENCRYPTED_MASK|ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK);
+
+    return $self->HeaderError("Patch content not supported")
+        if $gpFlag & ZIP_GP_FLAG_PATCHED_MASK;
+
+    *$self->{ZipData}{Streaming} = $streamingMode;
+
+
+    if ($filename_length)
+    {
+        $self->smartReadExact(\$filename, $filename_length)
+            or return $self->TruncatedHeader("Filename");
+        $keep .= $filename ;
+    }
+
+    my $zip64 = 0 ;
+
+    if ($extra_length)
+    {
+        $self->smartReadExact(\$extraField, $extra_length)
+            or return $self->TruncatedHeader("Extra Field");
+
+        my $bad = IO::Compress::Zlib::Extra::parseRawExtra($extraField,
+                                                \@EXTRA, 1, 0);
+        return $self->HeaderError($bad)
+            if defined $bad;
+
+        $keep .= $extraField ;
+
+        my %Extra ;
+        for (@EXTRA)
+        {
+            $Extra{$_->[0]} = \$_->[1];
+        }
+        
+        if (defined $Extra{ZIP_EXTRA_ID_ZIP64()})
+        {
+            $zip64 = 1 ;
+
+            my $buff = ${ $Extra{ZIP_EXTRA_ID_ZIP64()} };
+
+            # This code assumes that all the fields in the Zip64
+            # extra field aren't necessarily present. The spec says that
+            # they only exist if the equivalent local headers are -1.
+
+            if (! $streamingMode) {
+                my $offset = 0 ;
+
+                if (U64::full32 $uncompressedLength->get32bit() ) {
+                    $uncompressedLength 
+                            = U64::newUnpack_V64 substr($buff, 0, 8);
+
+                    $offset += 8 ;
+                }
+
+                if (U64::full32 $compressedLength->get32bit() ) {
+
+                    $compressedLength 
+                        = U64::newUnpack_V64 substr($buff, $offset, 8);
+
+                    $offset += 8 ;
+                }
+           }
+        }
+    }
+
+    *$self->{ZipData}{Zip64} = $zip64;
+
+    if (! $streamingMode) {
+        *$self->{ZipData}{Streaming} = 0;
+        *$self->{ZipData}{Crc32} = $crc32;
+        *$self->{ZipData}{CompressedLen} = $compressedLength;
+        *$self->{ZipData}{UnCompressedLen} = $uncompressedLength;
+        *$self->{CompressedInputLengthRemaining} =
+            *$self->{CompressedInputLength} = $compressedLength->get64bit();
+    }
+
+    *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    *$self->{ZipData}{Method} = $compressedMethod;
+    if ($compressedMethod == ZIP_CM_DEFLATE)
+    {
+        *$self->{Type} = 'zip-deflate';
+        my $obj = IO::Uncompress::Adapter::Inflate::mkUncompObject(1,0,0);
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_BZIP2)
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod")
+            if ! defined $IO::Uncompress::Adapter::Bunzip2::VERSION ;
+        
+        *$self->{Type} = 'zip-bzip2';
+        
+        my $obj = IO::Uncompress::Adapter::Bunzip2::mkUncompObject();
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_LZMA)
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod")
+            if ! defined $IO::Uncompress::Adapter::UnLzma::VERSION ;
+        
+        *$self->{Type} = 'zip-lzma';
+        my $LzmaHeader;
+        $self->smartReadExact(\$LzmaHeader, 4)
+                or return $self->saveErrorString(undef, "Truncated file");
+        my ($verHi, $verLo)   = unpack ("CC", substr($LzmaHeader, 0, 2));
+        my $LzmaPropertiesSize   = unpack ("v", substr($LzmaHeader, 2, 2));
+
+
+        my $LzmaPropertyData;
+        $self->smartReadExact(\$LzmaPropertyData, $LzmaPropertiesSize)
+                or return $self->saveErrorString(undef, "Truncated file");
+
+        if (! $streamingMode) {
+            *$self->{ZipData}{CompressedLen}->subtract(4 + $LzmaPropertiesSize) ;
+            *$self->{CompressedInputLengthRemaining} =
+                *$self->{CompressedInputLength} = *$self->{ZipData}{CompressedLen}->get64bit();
+        }
+
+        my $obj =
+            IO::Uncompress::Adapter::UnLzma::mkUncompZipObject($LzmaPropertyData);
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_STORE)
+    {
+        *$self->{Type} = 'zip-stored';
+        
+        my $obj =
+        IO::Uncompress::Adapter::Identity::mkUncompObject($streamingMode,
+                                                          $zip64);
+
+        *$self->{Uncomp} = $obj;
+    }
+    else
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod");
+    }
+
+    return {
+        'Type'               => 'zip',
+        'FingerprintLength'  => 4,
+        #'HeaderLength'       => $compressedMethod == 8 ? length $keep : 0,
+        'HeaderLength'       => length $keep,
+        'Zip64'              => $zip64,
+        'TrailerLength'      => ! $streamingMode ? 0 : $zip64 ? 24 : 16,
+        'Header'             => $keep,
+        'CompressedLength'   => $compressedLength ,
+        'UncompressedLength' => $uncompressedLength ,
+        'CRC32'              => $crc32 ,
+        'Name'               => $filename,
+        'Time'               => _dosToUnixTime($lastModTime),
+        'Stream'             => $streamingMode,
+
+        'MethodID'           => $compressedMethod,
+        'MethodName'         => $compressedMethod == ZIP_CM_DEFLATE 
+                                 ? "Deflated" 
+                                 : $compressedMethod == ZIP_CM_BZIP2
+                                     ? "Bzip2"
+                                     : $compressedMethod == ZIP_CM_LZMA
+                                         ? "Lzma"
+                                         : $compressedMethod == ZIP_CM_STORE
+                                             ? "Stored"
+                                             : "Unknown" ,
+
+#        'TextFlag'      => $flag & GZIP_FLG_FTEXT ? 1 : 0,
+#        'HeaderCRCFlag' => $flag & GZIP_FLG_FHCRC ? 1 : 0,
+#        'NameFlag'      => $flag & GZIP_FLG_FNAME ? 1 : 0,
+#        'CommentFlag'   => $flag & GZIP_FLG_FCOMMENT ? 1 : 0,
+#        'ExtraFlag'     => $flag & GZIP_FLG_FEXTRA ? 1 : 0,
+#        'Comment'       => $comment,
+#        'OsID'          => $os,
+#        'OsName'        => defined $GZIP_OS_Names{$os} 
+#                                 ? $GZIP_OS_Names{$os} : "Unknown",
+#        'HeaderCRC'     => $HeaderCRC,
+#        'Flags'         => $flag,
+#        'ExtraFlags'    => $xfl,
+        'ExtraFieldRaw' => $extraField,
+        'ExtraField'    => [ @EXTRA ],
+
+
+      }
+}
+
+sub filterUncompressed
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        *$self->{ZipData}{CRC32} = *$self->{Uncomp}->crc32() ;
+    }
+    else {
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(${$_[0]}, *$self->{ZipData}{CRC32}, $_[1]);
+    }
+}    
+
+
+# from Archive::Zip & info-zip
+sub _dosToUnixTime
+{
+	my $dt = shift;
+
+	my $year = ( ( $dt >> 25 ) & 0x7f ) + 80;
+	my $mon  = ( ( $dt >> 21 ) & 0x0f ) - 1;
+	my $mday = ( ( $dt >> 16 ) & 0x1f );
+
+	my $hour = ( ( $dt >> 11 ) & 0x1f );
+	my $min  = ( ( $dt >> 5 ) & 0x3f );
+	my $sec  = ( ( $dt << 1 ) & 0x3e );
+
+
+    use POSIX 'mktime';
+
+    my $time_t = mktime( $sec, $min, $hour, $mday, $mon, $year, 0, 0, -1 );
+    return 0 if ! defined $time_t;
+	return $time_t;
+}
+
+#sub scanCentralDirectory
+#{
+#    # Use cases
+#    # 1 32-bit CD
+#    # 2 64-bit CD
+#
+#    my $self = shift ;
+#
+#    my @CD = ();
+#    my $offset = $self->findCentralDirectoryOffset();
+#
+#    return 0
+#        if ! defined $offset;
+#
+#    $self->smarkSeek($offset, 0, SEEK_SET) ;
+#
+#    # Now walk the Central Directory Records
+#    my $buffer ;
+#    while ($self->smartReadExact(\$buffer, 46) && 
+#           unpack("V", $buffer) == ZIP_CENTRAL_HDR_SIG) {
+#
+#        my $compressedLength   = unpack ("V", substr($buffer, 20, 4));
+#        my $filename_length    = unpack ("v", substr($buffer, 28, 2));
+#        my $extra_length       = unpack ("v", substr($buffer, 30, 2));
+#        my $comment_length     = unpack ("v", substr($buffer, 32, 2));
+#
+#        $self->smarkSeek($filename_length + $extra_length + $comment_length, 0, SEEK_CUR) 
+#            if $extra_length || $comment_length || $filename_length;
+#        push @CD, $compressedLength ;
+#    }
+#
+#}
+#
+#sub findCentralDirectoryOffset
+#{
+#    my $self = shift ;
+#
+#    # Most common use-case is where there is no comment, so
+#    # know exactly where the end of central directory record
+#    # should be.
+#
+#    $self->smarkSeek(-22, 0, SEEK_END) ;
+#
+#    my $buffer;
+#    $self->smartReadExact(\$buffer, 22) ;
+#
+#    my $zip64 = 0;                             
+#    my $centralDirOffset ;
+#    if ( unpack("V", $buffer) == ZIP_END_CENTRAL_HDR_SIG ) {
+#        $centralDirOffset = unpack ("V", substr($buffer, 16, 2));
+#    }
+#    else {
+#        die "xxxx";
+#    }
+#
+#    return $centralDirOffset ;
+#}
+#
+#sub is84BitCD
+#{
+#    # TODO
+#    my $self = shift ;
+#}
+
+
+sub skip
+{
+    my $self = shift;
+    my $size = shift;
+
+    use Fcntl qw(SEEK_CUR);
+    if (ref $size eq 'U64') {
+        $self->smartSeek($size->get64bit(), SEEK_CUR);
+    }
+    else {
+        $self->smartSeek($size, SEEK_CUR);
+    }
+    
+}
+
+
+sub scanCentralDirectory
+{
+    my $self = shift;
+
+    my $here = $self->tell();
+
+    # Use cases
+    # 1 32-bit CD
+    # 2 64-bit CD
+
+    my @CD = ();
+    my $offset = $self->findCentralDirectoryOffset();
+
+    return ()
+        if ! defined $offset;
+
+    $self->smarkSeek($offset, 0, SEEK_SET) ;
+
+    # Now walk the Central Directory Records
+    my $buffer ;
+    while ($self->smartReadExact(\$buffer, 46) && 
+           unpack("V", $buffer) == ZIP_CENTRAL_HDR_SIG) {
+
+        my $compressedLength   = unpack("V", substr($buffer, 20, 4));
+        my $uncompressedLength = unpack("V", substr($buffer, 24, 4));
+        my $filename_length    = unpack("v", substr($buffer, 28, 2));
+        my $extra_length       = unpack("v", substr($buffer, 30, 2));
+        my $comment_length     = unpack("v", substr($buffer, 32, 2));
+
+        $self->skip($filename_length ) ;
+
+        my $v64 = new U64 $compressedLength ;
+
+        if (U64::full32 $compressedLength ) {
+            $self->smartReadExact(\$buffer, $extra_length) ;
+            die "xxx $offset $comment_length $filename_length $extra_length" . length($buffer) 
+                if length($buffer) != $extra_length;
+            my $got = $self->get64Extra($buffer, U64::full32 $uncompressedLength);
+
+            # If not Zip64 extra field, assume size is 0xFFFFFFFF
+            $v64 = $got if defined $got;
+        }
+        else {
+            $self->skip($extra_length) ;
+        }
+
+        $self->skip($comment_length ) ;
+            
+        push @CD, $v64 ;
+    }
+
+    $self->smartSeek($here, 0, SEEK_SET) ;
+
+    return @CD;
+}
+
+sub get64Extra
+{
+    my $self = shift ;
+
+    my $buffer = shift;
+    my $is_uncomp = shift ;
+
+    my $extra = IO::Compress::Zlib::Extra::findID(0x0001, $buffer);
+                                            
+    if (! defined $extra)
+    {
+        return undef;
+    }
+    else
+    {
+        my $u64 = U64::newUnpack_V64(substr($extra,  $is_uncomp ? 8 : 0)) ;
+        return $u64;
+    }    
+}
+
+sub offsetFromZip64
+{
+    my $self = shift ;
+    my $here = shift;
+
+    $self->smartSeek($here - 20, 0, SEEK_SET) 
+        or die "xx $!" ;
+
+    my $buffer;
+    my $got = 0;
+    $self->smartReadExact(\$buffer, 20)  
+        or die "xxx $here $got $!" ;
+
+    if ( unpack("V", $buffer) == ZIP64_END_CENTRAL_LOC_HDR_SIG ) {
+        my $cd64 = U64::Value_VV64 substr($buffer,  8, 8);
+       
+        $self->smartSeek($cd64, 0, SEEK_SET) ;
+
+        $self->smartReadExact(\$buffer, 4) 
+            or die "xxx" ;
+
+        if ( unpack("V", $buffer) == ZIP64_END_CENTRAL_REC_HDR_SIG ) {
+
+            $self->smartReadExact(\$buffer, 8)
+                or die "xxx" ;
+            my $size  = U64::Value_VV64($buffer);
+            $self->smartReadExact(\$buffer, $size)
+                or die "xxx" ;
+
+            my $cd64 =  U64::Value_VV64 substr($buffer,  36, 8);
+
+            return $cd64 ;
+        }
+        
+        die "zzz";
+    }
+
+    die "zzz";
+}
+
+use constant Pack_ZIP_END_CENTRAL_HDR_SIG => pack("V", ZIP_END_CENTRAL_HDR_SIG);
+
+sub findCentralDirectoryOffset
+{
+    my $self = shift ;
+
+    # Most common use-case is where there is no comment, so
+    # know exactly where the end of central directory record
+    # should be.
+
+    $self->smartSeek(-22, 0, SEEK_END) ;
+    my $here = $self->tell();
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 22) 
+        or die "xxx" ;
+
+    my $zip64 = 0;                             
+    my $centralDirOffset ;
+    if ( unpack("V", $buffer) == ZIP_END_CENTRAL_HDR_SIG ) {
+        $centralDirOffset = unpack("V", substr($buffer, 16,  4));
+    }
+    else {
+        $self->smartSeek(0, 0, SEEK_END) ;
+
+        my $fileLen = $self->tell();
+        my $want = 0 ;
+
+        while(1) {
+            $want += 1024;
+            my $seekTo = $fileLen - $want;
+            if ($seekTo < 0 ) {
+                $seekTo = 0;
+                $want = $fileLen ;
+            }
+            $self->smartSeek( $seekTo, 0, SEEK_SET) 
+                or die "xxx $!" ;
+            my $got;
+            $self->smartReadExact($buffer, $want)
+                or die "xxx " ;
+            my $pos = rindex( $buffer, Pack_ZIP_END_CENTRAL_HDR_SIG);
+
+            if ($pos >= 0) {
+                #$here = $self->tell();
+                $here = $seekTo + $pos ;
+                $centralDirOffset = unpack("V", substr($buffer, $pos + 16,  4));
+                last ;
+            }
+
+            return undef
+                if $want == $fileLen;
+        }
+    }
+
+    $centralDirOffset = $self->offsetFromZip64($here)
+        if U64::full32 $centralDirOffset ;
+
+    return $centralDirOffset ;
+}
+
+1;
+
+__END__
+
+
+package IO::Uncompress::Bunzip2 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.074 qw(:Status );
+
+use IO::Uncompress::Base 2.074 ;
+use IO::Uncompress::Adapter::Bunzip2 2.074 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
+
+$VERSION = '2.074';
+$Bunzip2Error = '';
+
+@ISA    = qw(IO::Uncompress::Base Exporter);
+@EXPORT_OK = qw( $Bunzip2Error bunzip2 ) ;
+#%EXPORT_TAGS = %IO::Uncompress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+#Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$Bunzip2Error);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub bunzip2
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$Bunzip2Error);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return (
+            'verbosity'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'small'         => [IO::Compress::Base::Common::Parse_boolean,   0],
+        );
+}
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    my $Small     = $got->getValue('small');
+    my $Verbosity = $got->getValue('verbosity');
+
+    my ($obj, $errstr, $errno) =  IO::Uncompress::Adapter::Bunzip2::mkUncompObject(
+                                                    $Small, $Verbosity);
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+    
+    *$self->{Uncomp} = $obj;
+
+    return 1;
+
+}
+
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+    
+    return $self->HeaderError("Header size is " . 
+                                        4 . " bytes") 
+        if length $magic != 4;
+
+    return $self->HeaderError("Bad Magic.")
+        if ! isBzip2Magic($magic) ;
+                      
+        
+    *$self->{Type} = 'bzip2';
+    return $magic;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    $self->pushBack($magic);
+    *$self->{HeaderPending} = '';
+
+
+    return {
+        'Type'              => 'bzip2',
+        'FingerprintLength' => 4,
+        'HeaderLength'      => 4,
+        'TrailerLength'     => 0,
+        'Header'            => '$magic'
+        };
+    
+}
+
+sub chkTrailer
+{
+    return STATUS_OK;
+}
+
+
+
+sub isBzip2Magic
+{
+    my $buffer = shift ;
+    return $buffer =~ /^BZh\d$/;
+}
+
+1 ;
+
+__END__
+
+
+
+package IO::Uncompress::Base ;
+
+use strict ;
+use warnings;
+use bytes;
+
+our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
+@ISA    = qw(IO::File Exporter);
+
+
+$VERSION = '2.074';
+
+use constant G_EOF => 0 ;
+use constant G_ERR => -1 ;
+
+use IO::Compress::Base::Common 2.074 ;
+
+use IO::File ;
+use Symbol;
+use Scalar::Util ();
+use List::Util ();
+use Carp ;
+
+%EXPORT_TAGS = ( );
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+sub smartRead
+{
+    my $self = $_[0];
+    my $out = $_[1];
+    my $size = $_[2];
+    $$out = "" ;
+
+    my $offset = 0 ;
+    my $status = 1;
+
+
+    if (defined *$self->{InputLength}) {
+        return 0
+            if *$self->{InputLengthRemaining} <= 0 ;
+        $size = List::Util::min($size, *$self->{InputLengthRemaining});
+    }
+
+    if ( length *$self->{Prime} ) {
+        $$out = substr(*$self->{Prime}, 0, $size) ;
+        substr(*$self->{Prime}, 0, $size) =  '' ;
+        if (length $$out == $size) {
+            *$self->{InputLengthRemaining} -= length $$out
+                if defined *$self->{InputLength};
+
+            return length $$out ;
+        }
+        $offset = length $$out ;
+    }
+
+    my $get_size = $size - $offset ;
+
+    if (defined *$self->{FH}) {
+        if ($offset) {
+            # Not using this 
+            #
+            #  *$self->{FH}->read($$out, $get_size, $offset);
+            #
+            # because the filehandle may not support the offset parameter
+            # An example is Net::FTP
+            my $tmp = '';
+            $status = *$self->{FH}->read($tmp, $get_size) ;
+            substr($$out, $offset) = $tmp
+                if defined $status && $status > 0 ;
+        }
+        else
+          { $status = *$self->{FH}->read($$out, $get_size) }
+    }
+    elsif (defined *$self->{InputEvent}) {
+        my $got = 1 ;
+        while (length $$out < $size) {
+            last 
+                if ($got = *$self->{InputEvent}->($$out, $get_size)) <= 0;
+        }
+
+        if (length $$out > $size ) {
+            *$self->{Prime} = substr($$out, $size, length($$out));
+            substr($$out, $size, length($$out)) =  '';
+        }
+
+       *$self->{EventEof} = 1 if $got <= 0 ;
+    }
+    else {
+       no warnings 'uninitialized';
+       my $buf = *$self->{Buffer} ;
+       $$buf = '' unless defined $$buf ;
+       substr($$out, $offset) = substr($$buf, *$self->{BufferOffset}, $get_size);
+       if (*$self->{ConsumeInput})
+         { substr($$buf, 0, $get_size) = '' }
+       else  
+         { *$self->{BufferOffset} += length($$out) - $offset }
+    }
+
+    *$self->{InputLengthRemaining} -= length($$out) #- $offset 
+        if defined *$self->{InputLength};
+        
+    if (! defined $status) {
+        $self->saveStatus($!) ;
+        return STATUS_ERROR;
+    }
+
+    $self->saveStatus(length $$out < 0 ? STATUS_ERROR : STATUS_OK) ;
+
+    return length $$out;
+}
+
+sub pushBack
+{
+    my $self = shift ;
+
+    return if ! defined $_[0] || length $_[0] == 0 ;
+
+    if (defined *$self->{FH} || defined *$self->{InputEvent} ) {
+        *$self->{Prime} = $_[0] . *$self->{Prime} ;
+        *$self->{InputLengthRemaining} += length($_[0]);
+    }
+    else {
+        my $len = length $_[0];
+
+        if($len > *$self->{BufferOffset}) {
+            *$self->{Prime} = substr($_[0], 0, $len - *$self->{BufferOffset}) . *$self->{Prime} ;
+            *$self->{InputLengthRemaining} = *$self->{InputLength};
+            *$self->{BufferOffset} = 0
+        }
+        else {
+            *$self->{InputLengthRemaining} += length($_[0]);
+            *$self->{BufferOffset} -= length($_[0]) ;
+        }
+    }
+}
+
+sub smartSeek
+{
+    my $self   = shift ;
+    my $offset = shift ;
+    my $truncate = shift;
+    my $position = shift || SEEK_SET;
+
+    # TODO -- need to take prime into account
+    if (defined *$self->{FH})
+      { *$self->{FH}->seek($offset, $position) }
+    else {
+        if ($position == SEEK_END) {
+            *$self->{BufferOffset} = length ${ *$self->{Buffer} } + $offset ;
+        }
+        elsif ($position == SEEK_CUR) {
+            *$self->{BufferOffset} += $offset ;
+        }
+        else {
+            *$self->{BufferOffset} = $offset ;
+        }
+
+        substr(${ *$self->{Buffer} }, *$self->{BufferOffset}) = ''
+            if $truncate;
+        return 1;
+    }
+}
+
+sub smartTell
+{
+    my $self   = shift ;
+
+    if (defined *$self->{FH})
+      { return *$self->{FH}->tell() }
+    else 
+      { return *$self->{BufferOffset} }
+}
+
+sub smartWrite
+{
+    my $self   = shift ;
+    my $out_data = shift ;
+
+    if (defined *$self->{FH}) {
+        # flush needed for 5.8.0 
+        defined *$self->{FH}->write($out_data, length $out_data) &&
+        defined *$self->{FH}->flush() ;
+    }
+    else {
+       my $buf = *$self->{Buffer} ;
+       substr($$buf, *$self->{BufferOffset}, length $out_data) = $out_data ;
+       *$self->{BufferOffset} += length($out_data) ;
+       return 1;
+    }
+}
+
+sub smartReadExact
+{
+    return $_[0]->smartRead($_[1], $_[2]) == $_[2];
+}
+
+sub smartEof
+{
+    my ($self) = $_[0];
+    local $.; 
+
+    return 0 if length *$self->{Prime} || *$self->{PushMode};
+
+    if (defined *$self->{FH})
+    {
+        # Could use
+        #
+        #  *$self->{FH}->eof() 
+        #
+        # here, but this can cause trouble if
+        # the filehandle is itself a tied handle, but it uses sysread.
+        # Then we get into mixing buffered & non-buffered IO, 
+        # which will cause trouble
+
+        my $info = $self->getErrInfo();
+        
+        my $buffer = '';
+        my $status = $self->smartRead(\$buffer, 1);
+        $self->pushBack($buffer) if length $buffer;
+        $self->setErrInfo($info);
+
+        return $status == 0 ;
+    }
+    elsif (defined *$self->{InputEvent})
+     { *$self->{EventEof} }
+    else 
+     { *$self->{BufferOffset} >= length(${ *$self->{Buffer} }) }
+}
+
+sub clearError
+{
+    my $self   = shift ;
+
+    *$self->{ErrorNo}  =  0 ;
+    ${ *$self->{Error} } = '' ;
+}
+
+sub getErrInfo
+{
+    my $self   = shift ;
+
+    return [ *$self->{ErrorNo}, ${ *$self->{Error} } ] ;
+}
+
+sub setErrInfo
+{
+    my $self   = shift ;
+    my $ref    = shift;
+
+    *$self->{ErrorNo}  =  $ref->[0] ;
+    ${ *$self->{Error} } = $ref->[1] ;
+}
+
+sub saveStatus
+{
+    my $self   = shift ;
+    my $errno = shift() + 0 ;
+
+    *$self->{ErrorNo}  = $errno;
+    ${ *$self->{Error} } = '' ;
+
+    return *$self->{ErrorNo} ;
+}
+
+
+sub saveErrorString
+{
+    my $self   = shift ;
+    my $retval = shift ;
+
+    ${ *$self->{Error} } = shift ;
+    *$self->{ErrorNo} = @_ ? shift() + 0 : STATUS_ERROR ;
+
+    return $retval;
+}
+
+sub croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString(0, $_[0]);
+    croak $_[0];
+}
+
+
+sub closeError
+{
+    my $self = shift ;
+    my $retval = shift ;
+
+    my $errno = *$self->{ErrorNo};
+    my $error = ${ *$self->{Error} };
+
+    $self->close();
+
+    *$self->{ErrorNo} = $errno ;
+    ${ *$self->{Error} } = $error ;
+
+    return $retval;
+}
+
+sub error
+{
+    my $self   = shift ;
+    return ${ *$self->{Error} } ;
+}
+
+sub errorNo
+{
+    my $self   = shift ;
+    return *$self->{ErrorNo};
+}
+
+sub HeaderError
+{
+    my ($self) = shift;
+    return $self->saveErrorString(undef, "Header Error: $_[0]", STATUS_ERROR);
+}
+
+sub TrailerError
+{
+    my ($self) = shift;
+    return $self->saveErrorString(G_ERR, "Trailer Error: $_[0]", STATUS_ERROR);
+}
+
+sub TruncatedHeader
+{
+    my ($self) = shift;
+    return $self->HeaderError("Truncated in $_[0] Section");
+}
+
+sub TruncatedTrailer
+{
+    my ($self) = shift;
+    return $self->TrailerError("Truncated in $_[0] Section");
+}
+
+sub postCheckParams
+{
+    return 1;
+}
+
+sub checkParams
+{
+    my $self = shift ;
+    my $class = shift ;
+
+    my $got = shift || IO::Compress::Base::Parameters::new();
+    
+    my $Valid = {
+                    'blocksize'     => [IO::Compress::Base::Common::Parse_unsigned, 16 * 1024],
+                    'autoclose'     => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'strict'        => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'append'        => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'prime'         => [IO::Compress::Base::Common::Parse_any,      undef],
+                    'multistream'   => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'transparent'   => [IO::Compress::Base::Common::Parse_any,      1],
+                    'scan'          => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'inputlength'   => [IO::Compress::Base::Common::Parse_unsigned, undef],
+                    'binmodeout'    => [IO::Compress::Base::Common::Parse_boolean,  0],
+                   #'decode'        => [IO::Compress::Base::Common::Parse_any,      undef],
+
+                   #'consumeinput'  => [IO::Compress::Base::Common::Parse_boolean,  0],
+                   
+                    $self->getExtraParams(),
+
+                    #'Todo - Revert to ordinary file on end Z_STREAM_END'=> 0,
+                    # ContinueAfterEof
+                } ;
+
+    $Valid->{trailingdata} = [IO::Compress::Base::Common::Parse_writable_scalar, undef]
+        if  *$self->{OneShot} ;
+        
+    $got->parse($Valid, @_ ) 
+        or $self->croakError("${class}: " . $got->getError()) ;
+
+    $self->postCheckParams($got) 
+        or $self->croakError("${class}: " . $self->error()) ;
+
+    return $got;
+}
+
+sub _create
+{
+    my $obj = shift;
+    my $got = shift;
+    my $append_mode = shift ;
+
+    my $class = ref $obj;
+    $obj->croakError("$class: Missing Input parameter")
+        if ! @_ && ! $got ;
+
+    my $inValue = shift ;
+
+    *$obj->{OneShot} = 0 ;
+
+    if (! $got)
+    {
+        $got = $obj->checkParams($class, undef, @_)
+            or return undef ;
+    }
+
+    my $inType  = whatIsInput($inValue, 1);
+
+    $obj->ckInputParam($class, $inValue, 1) 
+        or return undef ;
+
+    *$obj->{InNew} = 1;
+
+    $obj->ckParams($got)
+        or $obj->croakError("${class}: " . *$obj->{Error});
+
+    if ($inType eq 'buffer' || $inType eq 'code') {
+        *$obj->{Buffer} = $inValue ;        
+        *$obj->{InputEvent} = $inValue 
+           if $inType eq 'code' ;
+    }
+    else {
+        if ($inType eq 'handle') {
+            *$obj->{FH} = $inValue ;
+            *$obj->{Handle} = 1 ;
+
+            # Need to rewind for Scan
+            *$obj->{FH}->seek(0, SEEK_SET) 
+                if $got->getValue('scan');
+        }  
+        else {    
+            no warnings ;
+            my $mode = '<';
+            $mode = '+<' if $got->getValue('scan');
+            *$obj->{StdIO} = ($inValue eq '-');
+            *$obj->{FH} = new IO::File "$mode $inValue"
+                or return $obj->saveErrorString(undef, "cannot open file '$inValue': $!", $!) ;
+        }
+        
+        *$obj->{LineNo} = $. = 0;
+        setBinModeInput(*$obj->{FH}) ;
+
+        my $buff = "" ;
+        *$obj->{Buffer} = \$buff ;
+    }
+
+#    if ($got->getValue('decode')) { 
+#        my $want_encoding = $got->getValue('decode');
+#        *$obj->{Encoding} = IO::Compress::Base::Common::getEncoding($obj, $class, $want_encoding);
+#    }
+#    else {
+#        *$obj->{Encoding} = undef;
+#    }
+
+    *$obj->{InputLength}       = $got->parsed('inputlength') 
+                                    ? $got->getValue('inputlength')
+                                    : undef ;
+    *$obj->{InputLengthRemaining} = $got->getValue('inputlength');
+    *$obj->{BufferOffset}      = 0 ;
+    *$obj->{AutoClose}         = $got->getValue('autoclose');
+    *$obj->{Strict}            = $got->getValue('strict');
+    *$obj->{BlockSize}         = $got->getValue('blocksize');
+    *$obj->{Append}            = $got->getValue('append');
+    *$obj->{AppendOutput}      = $append_mode || $got->getValue('append');
+    *$obj->{ConsumeInput}      = $got->getValue('consumeinput');
+    *$obj->{Transparent}       = $got->getValue('transparent');
+    *$obj->{MultiStream}       = $got->getValue('multistream');
+
+    # TODO - move these two into RawDeflate
+    *$obj->{Scan}              = $got->getValue('scan');
+    *$obj->{ParseExtra}        = $got->getValue('parseextra') 
+                                  || $got->getValue('strict')  ;
+    *$obj->{Type}              = '';
+    *$obj->{Prime}             = $got->getValue('prime') || '' ;
+    *$obj->{Pending}           = '';
+    *$obj->{Plain}             = 0;
+    *$obj->{PlainBytesRead}    = 0;
+    *$obj->{InflatedBytesRead} = 0;
+    *$obj->{UnCompSize}        = new U64;
+    *$obj->{CompSize}          = new U64;
+    *$obj->{TotalInflatedBytesRead} = 0;
+    *$obj->{NewStream}         = 0 ;
+    *$obj->{EventEof}          = 0 ;
+    *$obj->{ClassName}         = $class ;
+    *$obj->{Params}            = $got ;
+
+    if (*$obj->{ConsumeInput}) {
+        *$obj->{InNew} = 0;
+        *$obj->{Closed} = 0;
+        return $obj
+    }
+
+    my $status = $obj->mkUncomp($got);
+
+    return undef
+        unless defined $status;
+
+    *$obj->{InNew} = 0;
+    *$obj->{Closed} = 0;
+
+    if ($status) {
+        # Need to try uncompressing to catch the case
+        # where the compressed file uncompresses to an
+        # empty string - so eof is set immediately.
+        
+        my $out_buffer = '';
+
+        $status = $obj->read(\$out_buffer);
+    
+        if ($status < 0) {
+            *$obj->{ReadStatus} = [ $status, $obj->error(), $obj->errorNo() ];
+        }
+
+        $obj->ungetc($out_buffer)
+            if length $out_buffer;
+    }
+    else {
+        return undef 
+            unless *$obj->{Transparent};
+
+        $obj->clearError();
+        *$obj->{Type} = 'plain';
+        *$obj->{Plain} = 1;
+        $obj->pushBack(*$obj->{HeaderPending})  ;
+    }
+
+    push @{ *$obj->{InfoList} }, *$obj->{Info} ;
+
+    $obj->saveStatus(STATUS_OK) ;
+    *$obj->{InNew} = 0;
+    *$obj->{Closed} = 0;
+
+    return $obj;
+}
+
+sub ckInputParam
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $inType = whatIsInput($_[0], $_[1]);
+
+    $self->croakError("$from: input parameter not a filename, filehandle, array ref or scalar ref")
+        if ! $inType ;
+
+#    if ($inType  eq 'filename' )
+#    {
+#        return $self->saveErrorString(1, "$from: input filename is undef or null string", STATUS_ERROR)
+#            if ! defined $_[0] || $_[0] eq ''  ;
+#
+#        if ($_[0] ne '-' && ! -e $_[0] )
+#        {
+#            return $self->saveErrorString(1, 
+#                            "input file '$_[0]' does not exist", STATUS_ERROR);
+#        }
+#    }
+
+    return 1;
+}
+
+
+sub _inf
+{
+    my $obj = shift ;
+
+    my $class = (caller)[0] ;
+    my $name = (caller(1))[3] ;
+
+    $obj->croakError("$name: expected at least 1 parameters\n")
+        unless @_ >= 1 ;
+
+    my $input = shift ;
+    my $haveOut = @_ ;
+    my $output = shift ;
+
+
+    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+        or return undef ;
+    
+    push @_, $output if $haveOut && $x->{Hash};
+
+    *$obj->{OneShot} = 1 ;
+    
+    my $got = $obj->checkParams($name, undef, @_)
+        or return undef ;
+
+    if ($got->parsed('trailingdata'))
+    {
+#        my $value = $got->valueRef('TrailingData');
+#        warn "TD $value ";
+#        #$value = $$value;
+##                warn "TD $value $$value ";
+#       
+#        return retErr($obj, "Parameter 'TrailingData' not writable")
+#            if readonly $$value ;          
+#
+#        if (ref $$value) 
+#        {
+#            return retErr($obj,"Parameter 'TrailingData' not a scalar reference")
+#                if ref $$value ne 'SCALAR' ;
+#              
+#            *$obj->{TrailingData} = $$value ;
+#        }
+#        else  
+#        {
+#            return retErr($obj,"Parameter 'TrailingData' not a scalar")
+#                if ref $value ne 'SCALAR' ;               
+#
+#            *$obj->{TrailingData} = $value ;
+#        }
+        
+        *$obj->{TrailingData} = $got->getValue('trailingdata');
+    }
+
+    *$obj->{MultiStream} = $got->getValue('multistream');
+    $got->setValue('multistream', 0);
+
+    $x->{Got} = $got ;
+
+#    if ($x->{Hash})
+#    {
+#        while (my($k, $v) = each %$input)
+#        {
+#            $v = \$input->{$k} 
+#                unless defined $v ;
+#
+#            $obj->_singleTarget($x, $k, $v, @_)
+#                or return undef ;
+#        }
+#
+#        return keys %$input ;
+#    }
+    
+    if ($x->{GlobMap})
+    {
+        $x->{oneInput} = 1 ;
+        foreach my $pair (@{ $x->{Pairs} })
+        {
+            my ($from, $to) = @$pair ;
+            $obj->_singleTarget($x, $from, $to, @_)
+                or return undef ;
+        }
+
+        return scalar @{ $x->{Pairs} } ;
+    }
+
+    if (! $x->{oneOutput} )
+    {
+        my $inFile = ($x->{inType} eq 'filenames' 
+                        || $x->{inType} eq 'filename');
+
+        $x->{inType} = $inFile ? 'filename' : 'buffer';
+        
+        foreach my $in ($x->{oneInput} ? $input : @$input)
+        {
+            my $out ;
+            $x->{oneInput} = 1 ;
+
+            $obj->_singleTarget($x, $in, $output, @_)
+                or return undef ;
+        }
+
+        return 1 ;
+    }
+
+    # finally the 1 to 1 and n to 1
+    return $obj->_singleTarget($x, $input, $output, @_);
+
+    croak "should not be here" ;
+}
+
+sub retErr
+{
+    my $x = shift ;
+    my $string = shift ;
+
+    ${ $x->{Error} } = $string ;
+
+    return undef ;
+}
+
+sub _singleTarget
+{
+    my $self      = shift ;
+    my $x         = shift ;
+    my $input     = shift;
+    my $output    = shift;
+    
+    my $buff = '';
+    $x->{buff} = \$buff ;
+
+    my $fh ;
+    if ($x->{outType} eq 'filename') {
+        my $mode = '>' ;
+        $mode = '>>'
+            if $x->{Got}->getValue('append') ;
+        $x->{fh} = new IO::File "$mode $output" 
+            or return retErr($x, "cannot open file '$output': $!") ;
+        binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+
+    }
+
+    elsif ($x->{outType} eq 'handle') {
+        $x->{fh} = $output;
+        binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+        if ($x->{Got}->getValue('append')) {
+                seek($x->{fh}, 0, SEEK_END)
+                    or return retErr($x, "Cannot seek to end of output filehandle: $!") ;
+            }
+    }
+
+    
+    elsif ($x->{outType} eq 'buffer' )
+    {
+        $$output = '' 
+            unless $x->{Got}->getValue('append');
+        $x->{buff} = $output ;
+    }
+
+    if ($x->{oneInput})
+    {
+        defined $self->_rd2($x, $input, $output)
+            or return undef; 
+    }
+    else
+    {
+        for my $element ( ($x->{inType} eq 'hash') ? keys %$input : @$input)
+        {
+            defined $self->_rd2($x, $element, $output) 
+                or return undef ;
+        }
+    }
+
+
+    if ( ($x->{outType} eq 'filename' && $output ne '-') || 
+         ($x->{outType} eq 'handle' && $x->{Got}->getValue('autoclose'))) {
+        $x->{fh}->close() 
+            or return retErr($x, $!); 
+        delete $x->{fh};
+    }
+
+    return 1 ;
+}
+
+sub _rd2
+{
+    my $self      = shift ;
+    my $x         = shift ;
+    my $input     = shift;
+    my $output    = shift;
+        
+    my $z = IO::Compress::Base::Common::createSelfTiedObject($x->{Class}, *$self->{Error});
+    
+    $z->_create($x->{Got}, 1, $input, @_)
+        or return undef ;
+
+    my $status ;
+    my $fh = $x->{fh};
+    
+    while (1) {
+
+        while (($status = $z->read($x->{buff})) > 0) {
+            if ($fh) {
+                local $\;
+                print $fh ${ $x->{buff} }
+                    or return $z->saveErrorString(undef, "Error writing to output file: $!", $!);
+                ${ $x->{buff} } = '' ;
+            }
+        }
+
+        if (! $x->{oneOutput} ) {
+            my $ot = $x->{outType} ;
+
+            if ($ot eq 'array') 
+              { push @$output, $x->{buff} }
+            elsif ($ot eq 'hash') 
+              { $output->{$input} = $x->{buff} }
+
+            my $buff = '';
+            $x->{buff} = \$buff;
+        }
+
+        last if $status < 0 || $z->smartEof();
+
+        last 
+            unless *$self->{MultiStream};
+
+        $status = $z->nextStream();
+
+        last 
+            unless $status == 1 ;
+    }
+
+    return $z->closeError(undef)
+        if $status < 0 ;
+
+    ${ *$self->{TrailingData} } = $z->trailingData()
+        if defined *$self->{TrailingData} ;
+
+    $z->close() 
+        or return undef ;
+
+    return 1 ;
+}
+
+sub TIEHANDLE
+{
+    return $_[0] if ref($_[0]);
+    die "OOPS\n" ;
+
+}
+  
+sub UNTIE
+{
+    my $self = shift ;
+}
+
+
+sub getHeaderInfo
+{
+    my $self = shift ;
+    wantarray ? @{ *$self->{InfoList} } : *$self->{Info};
+}
+
+sub readBlock
+{
+    my $self = shift ;
+    my $buff = shift ;
+    my $size = shift ;
+
+    if (defined *$self->{CompressedInputLength}) {
+        if (*$self->{CompressedInputLengthRemaining} == 0) {
+            delete *$self->{CompressedInputLength};
+            *$self->{CompressedInputLengthDone} = 1;
+            return STATUS_OK ;
+        }
+        $size = List::Util::min($size, *$self->{CompressedInputLengthRemaining} );
+        *$self->{CompressedInputLengthRemaining} -= $size ;
+    }
+    
+    my $status = $self->smartRead($buff, $size) ;
+    return $self->saveErrorString(STATUS_ERROR, "Error Reading Data: $!", $!)
+        if $status == STATUS_ERROR  ;
+
+    if ($status == 0 ) {
+        *$self->{Closed} = 1 ;
+        *$self->{EndStream} = 1 ;
+        return $self->saveErrorString(STATUS_ERROR, "unexpected end of file", STATUS_ERROR);
+    }
+
+    return STATUS_OK;
+}
+
+sub postBlockChk
+{
+    return STATUS_OK;
+}
+
+sub _raw_read
+{
+    # return codes
+    # >0 - ok, number of bytes read
+    # =0 - ok, eof
+    # <0 - not ok
+    
+    my $self = shift ;
+
+    return G_EOF if *$self->{Closed} ;
+    return G_EOF if *$self->{EndStream} ;
+
+    my $buffer = shift ;
+    my $scan_mode = shift ;
+
+    if (*$self->{Plain}) {
+        my $tmp_buff ;
+        my $len = $self->smartRead(\$tmp_buff, *$self->{BlockSize}) ;
+        
+        return $self->saveErrorString(G_ERR, "Error reading data: $!", $!) 
+                if $len == STATUS_ERROR ;
+
+        if ($len == 0 ) {
+            *$self->{EndStream} = 1 ;
+        }
+        else {
+            *$self->{PlainBytesRead} += $len ;
+            $$buffer .= $tmp_buff;
+        }
+
+        return $len ;
+    }
+
+    if (*$self->{NewStream}) {
+
+        $self->gotoNextStream() > 0
+            or return G_ERR;
+
+        # For the headers that actually uncompressed data, put the
+        # uncompressed data into the output buffer.
+        $$buffer .=  *$self->{Pending} ;
+        my $len = length  *$self->{Pending} ;
+        *$self->{Pending} = '';
+        return $len; 
+    }
+
+    my $temp_buf = '';
+    my $outSize = 0;
+    my $status = $self->readBlock(\$temp_buf, *$self->{BlockSize}, $outSize) ;
+    
+    return G_ERR
+        if $status == STATUS_ERROR  ;
+
+    my $buf_len = 0;
+    if ($status == STATUS_OK) {
+        my $beforeC_len = length $temp_buf;
+        my $before_len = defined $$buffer ? length $$buffer : 0 ;
+        $status = *$self->{Uncomp}->uncompr(\$temp_buf, $buffer,
+                                    defined *$self->{CompressedInputLengthDone} ||
+                                                $self->smartEof(), $outSize);
+                                                
+        # Remember the input buffer if it wasn't consumed completely
+        $self->pushBack($temp_buf) if *$self->{Uncomp}{ConsumesInput};
+
+        return $self->saveErrorString(G_ERR, *$self->{Uncomp}{Error}, *$self->{Uncomp}{ErrorNo})
+            if $self->saveStatus($status) == STATUS_ERROR;    
+
+        $self->postBlockChk($buffer, $before_len) == STATUS_OK
+            or return G_ERR;
+
+        $buf_len = defined $$buffer ? length($$buffer) - $before_len : 0;
+    
+        *$self->{CompSize}->add($beforeC_len - length $temp_buf) ;
+
+        *$self->{InflatedBytesRead} += $buf_len ;
+        *$self->{TotalInflatedBytesRead} += $buf_len ;
+        *$self->{UnCompSize}->add($buf_len) ;
+
+        $self->filterUncompressed($buffer, $before_len);
+
+#        if (*$self->{Encoding}) {
+#            use Encode ;
+#            *$self->{PendingDecode} .= substr($$buffer, $before_len) ;
+#            my $got = *$self->{Encoding}->decode(*$self->{PendingDecode}, Encode::FB_QUIET) ;
+#            substr($$buffer, $before_len) = $got;
+#        }
+    }
+
+    if ($status == STATUS_ENDSTREAM) {
+
+        *$self->{EndStream} = 1 ;
+
+        my $trailer;
+        my $trailer_size = *$self->{Info}{TrailerLength} ;
+        my $got = 0;
+        if (*$self->{Info}{TrailerLength})
+        {
+            $got = $self->smartRead(\$trailer, $trailer_size) ;
+        }
+
+        if ($got == $trailer_size) {
+            $self->chkTrailer($trailer) == STATUS_OK
+                or return G_ERR;
+        }
+        else {
+            return $self->TrailerError("trailer truncated. Expected " . 
+                                      "$trailer_size bytes, got $got")
+                if *$self->{Strict};
+            $self->pushBack($trailer)  ;
+        }
+
+        # TODO - if want file pointer, do it here
+
+        if (! $self->smartEof()) {
+            *$self->{NewStream} = 1 ;
+
+            if (*$self->{MultiStream}) {
+                *$self->{EndStream} = 0 ;
+                return $buf_len ;
+            }
+        }
+
+    }
+    
+
+    # return the number of uncompressed bytes read
+    return $buf_len ;
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    return *$self->{Uncomp}->reset();
+}
+
+sub filterUncompressed
+{
+}
+
+#sub isEndStream
+#{
+#    my $self = shift ;
+#    return *$self->{NewStream} ||
+#           *$self->{EndStream} ;
+#}
+
+sub nextStream
+{
+    my $self = shift ;
+
+    my $status = $self->gotoNextStream();
+    $status == 1
+        or return $status ;
+
+    *$self->{TotalInflatedBytesRead} = 0 ;
+    *$self->{LineNo} = $. = 0;
+
+    return 1;
+}
+
+sub gotoNextStream
+{
+    my $self = shift ;
+
+    if (! *$self->{NewStream}) {
+        my $status = 1;
+        my $buffer ;
+
+        # TODO - make this more efficient if know the offset for the end of
+        # the stream and seekable
+        $status = $self->read($buffer) 
+            while $status > 0 ;
+
+        return $status
+            if $status < 0;
+    }
+
+    *$self->{NewStream} = 0 ;
+    *$self->{EndStream} = 0 ;
+    *$self->{CompressedInputLengthDone} = undef ;
+    *$self->{CompressedInputLength} = undef ;
+    $self->reset();
+    *$self->{UnCompSize}->reset();
+    *$self->{CompSize}->reset();
+
+    my $magic = $self->ckMagic();
+
+    if ( ! defined $magic) {
+        if (! *$self->{Transparent} || $self->eof())
+        {
+            *$self->{EndStream} = 1 ;
+            return 0;
+        }
+
+        $self->clearError();
+        *$self->{Type} = 'plain';
+        *$self->{Plain} = 1;
+        $self->pushBack(*$self->{HeaderPending})  ;
+    }
+    else
+    {
+        *$self->{Info} = $self->readHeader($magic);
+
+        if ( ! defined *$self->{Info} ) {
+            *$self->{EndStream} = 1 ;
+            return -1;
+        }
+    }
+
+    push @{ *$self->{InfoList} }, *$self->{Info} ;
+
+    return 1; 
+}
+
+sub streamCount
+{
+    my $self = shift ;
+    return 1 if ! defined *$self->{InfoList};
+    return scalar @{ *$self->{InfoList} }  ;
+}
+
+#sub read
+#{
+#    my $status = myRead(@_);
+#    return undef if $status < 0;
+#    return $status;
+#}
+
+sub read
+{
+    # return codes
+    # >0 - ok, number of bytes read
+    # =0 - ok, eof
+    # <0 - not ok
+    
+    my $self = shift ;
+
+    if (defined *$self->{ReadStatus} ) {
+        my $status = *$self->{ReadStatus}[0];
+        $self->saveErrorString( @{ *$self->{ReadStatus} } );
+        delete  *$self->{ReadStatus} ;
+        return $status ;
+    }
+
+    return G_EOF if *$self->{Closed} ;
+
+    my $buffer ;
+
+    if (ref $_[0] ) {
+        $self->croakError(*$self->{ClassName} . "::read: buffer parameter is read-only")
+            if Scalar::Util::readonly(${ $_[0] });
+
+        $self->croakError(*$self->{ClassName} . "::read: not a scalar reference $_[0]" )
+            unless ref $_[0] eq 'SCALAR' ;
+        $buffer = $_[0] ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} . "::read: buffer parameter is read-only")
+            if Scalar::Util::readonly($_[0]);
+
+        $buffer = \$_[0] ;
+    }
+
+    my $length = $_[1] ;
+    my $offset = $_[2] || 0;
+
+    if (! *$self->{AppendOutput}) {
+        if (! $offset) {    
+            $$buffer = '' ;
+        }
+        else {
+            if ($offset > length($$buffer)) {
+                $$buffer .= "\x00" x ($offset - length($$buffer));
+            }
+            else {
+                substr($$buffer, $offset) = '';
+            }
+        }
+    }
+    elsif (! defined $$buffer) {
+        $$buffer = '' ;
+    }
+
+    return G_EOF if !length *$self->{Pending} && *$self->{EndStream} ;
+
+    # the core read will return 0 if asked for 0 bytes
+    return 0 if defined $length && $length == 0 ;
+
+    $length = $length || 0;
+
+    $self->croakError(*$self->{ClassName} . "::read: length parameter is negative")
+        if $length < 0 ;
+
+    # Short-circuit if this is a simple read, with no length
+    # or offset specified.
+    unless ( $length || $offset) {
+        if (length *$self->{Pending}) {
+            $$buffer .= *$self->{Pending} ;
+            my $len = length *$self->{Pending};
+            *$self->{Pending} = '' ;
+            return $len ;
+        }
+        else {
+            my $len = 0;
+            $len = $self->_raw_read($buffer) 
+                while ! *$self->{EndStream} && $len == 0 ;
+            return $len ;
+        }
+    }
+
+    # Need to jump through more hoops - either length or offset 
+    # or both are specified.
+    my $out_buffer = *$self->{Pending} ;
+    *$self->{Pending} = '';
+
+
+    while (! *$self->{EndStream} && length($out_buffer) < $length)
+    {
+        my $buf_len = $self->_raw_read(\$out_buffer);
+        return $buf_len 
+            if $buf_len < 0 ;
+    }
+
+    $length = length $out_buffer 
+        if length($out_buffer) < $length ;
+
+    return 0 
+        if $length == 0 ;
+
+    $$buffer = '' 
+        if ! defined $$buffer;
+
+    $offset = length $$buffer
+        if *$self->{AppendOutput} ;
+
+    *$self->{Pending} = $out_buffer;
+    $out_buffer = \*$self->{Pending} ;
+
+    substr($$buffer, $offset) = substr($$out_buffer, 0, $length) ;
+    substr($$out_buffer, 0, $length) =  '' ;
+
+    return $length ;
+}
+
+sub _getline
+{
+    my $self = shift ;
+    my $status = 0 ;
+
+    # Slurp Mode
+    if ( ! defined $/ ) {
+        my $data ;
+        1 while ($status = $self->read($data)) > 0 ;
+        return ($status, \$data);
+    }
+
+    # Record Mode
+    if ( ref $/ eq 'SCALAR' && ${$/} =~ /^\d+$/ && ${$/} > 0) {
+        my $reclen = ${$/} ;
+        my $data ;
+        $status = $self->read($data, $reclen) ;
+        return ($status, \$data);
+    }
+
+    # Paragraph Mode
+    if ( ! length $/ ) {
+        my $paragraph ;    
+        while (($status = $self->read($paragraph)) > 0 ) {
+            if ($paragraph =~ s/^(.*?\n\n+)//s) {
+                *$self->{Pending}  = $paragraph ;
+                my $par = $1 ;
+                return (1, \$par);
+            }
+        }
+        return ($status, \$paragraph);
+    }
+
+    # $/ isn't empty, or a reference, so it's Line Mode.
+    {
+        my $line ;    
+        my $p = \*$self->{Pending}  ;
+        while (($status = $self->read($line)) > 0 ) {
+            my $offset = index($line, $/);
+            if ($offset >= 0) {
+                my $l = substr($line, 0, $offset + length $/ );
+                substr($line, 0, $offset + length $/) = '';    
+                $$p = $line;
+                return (1, \$l);
+            }
+        }
+
+        return ($status, \$line);
+    }
+}
+
+sub getline
+{
+    my $self = shift;
+
+    if (defined *$self->{ReadStatus} ) {
+        $self->saveErrorString( @{ *$self->{ReadStatus} } );
+        delete  *$self->{ReadStatus} ;
+        return undef;
+    }
+
+    return undef 
+        if *$self->{Closed} || (!length *$self->{Pending} && *$self->{EndStream}) ;
+
+    my $current_append = *$self->{AppendOutput} ;
+    *$self->{AppendOutput} = 1;
+
+    my ($status, $lineref) = $self->_getline();
+    *$self->{AppendOutput} = $current_append;
+
+    return undef 
+        if $status < 0 || length $$lineref == 0 ;
+
+    $. = ++ *$self->{LineNo} ;
+
+    return $$lineref ;
+}
+
+sub getlines
+{
+    my $self = shift;
+    $self->croakError(*$self->{ClassName} . 
+            "::getlines: called in scalar context\n") unless wantarray;
+    my($line, @lines);
+    push(@lines, $line) 
+        while defined($line = $self->getline);
+    return @lines;
+}
+
+sub READLINE
+{
+    goto &getlines if wantarray;
+    goto &getline;
+}
+
+sub getc
+{
+    my $self = shift;
+    my $buf;
+    return $buf if $self->read($buf, 1);
+    return undef;
+}
+
+sub ungetc
+{
+    my $self = shift;
+    *$self->{Pending} = ""  unless defined *$self->{Pending} ;    
+    *$self->{Pending} = $_[0] . *$self->{Pending} ;    
+}
+
+
+sub trailingData
+{
+    my $self = shift ;
+
+    if (defined *$self->{FH} || defined *$self->{InputEvent} ) {
+        return *$self->{Prime} ;
+    }
+    else {
+        my $buf = *$self->{Buffer} ;
+        my $offset = *$self->{BufferOffset} ;
+        return substr($$buf, $offset) ;
+    }
+}
+
+
+sub eof
+{
+    my $self = shift ;
+
+    return (*$self->{Closed} ||
+              (!length *$self->{Pending} 
+                && ( $self->smartEof() || *$self->{EndStream}))) ;
+}
+
+sub tell
+{
+    my $self = shift ;
+
+    my $in ;
+    if (*$self->{Plain}) {
+        $in = *$self->{PlainBytesRead} ;
+    }
+    else {
+        $in = *$self->{TotalInflatedBytesRead} ;
+    }
+
+    my $pending = length *$self->{Pending} ;
+
+    return 0 if $pending > $in ;
+    return $in - $pending ;
+}
+
+sub close
+{
+    # todo - what to do if close is called before the end of the gzip file
+    #        do we remember any trailing data?
+    my $self = shift ;
+
+    return 1 if *$self->{Closed} ;
+
+    untie *$self 
+        if $] >= 5.008 ;
+
+    my $status = 1 ;
+
+    if (defined *$self->{FH}) {
+        if ((! *$self->{Handle} || *$self->{AutoClose}) && ! *$self->{StdIO}) {
+            local $.; 
+            $! = 0 ;
+            $status = *$self->{FH}->close();
+            return $self->saveErrorString(0, $!, $!)
+                if !*$self->{InNew} && $self->saveStatus($!) != 0 ;
+        }
+        delete *$self->{FH} ;
+        $! = 0 ;
+    }
+    *$self->{Closed} = 1 ;
+
+    return 1;
+}
+
+sub DESTROY
+{
+    my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+
+    $self->close() ;
+}
+
+sub seek
+{
+    my $self     = shift ;
+    my $position = shift;
+    my $whence   = shift ;
+
+    my $here = $self->tell() ;
+    my $target = 0 ;
+
+
+    if ($whence == SEEK_SET) {
+        $target = $position ;
+    }
+    elsif ($whence == SEEK_CUR) {
+        $target = $here + $position ;
+    }
+    elsif ($whence == SEEK_END) {
+        $target = $position ;
+        $self->croakError(*$self->{ClassName} . "::seek: SEEK_END not allowed") ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} ."::seek: unknown value, $whence, for whence parameter");
+    }
+
+    # short circuit if seeking to current offset
+    if ($target == $here) {
+        # On ordinary filehandles, seeking to the current
+        # position also clears the EOF condition, so we
+        # emulate this behavior locally while simultaneously
+        # cascading it to the underlying filehandle
+        if (*$self->{Plain}) {
+            *$self->{EndStream} = 0;
+            seek(*$self->{FH},0,1) if *$self->{FH};
+        }
+        return 1;
+    }
+
+    # Outlaw any attempt to seek backwards
+    $self->croakError( *$self->{ClassName} ."::seek: cannot seek backwards")
+        if $target < $here ;
+
+    # Walk the file to the new offset
+    my $offset = $target - $here ;
+
+    my $got;
+    while (($got = $self->read(my $buffer, List::Util::min($offset, *$self->{BlockSize})) ) > 0)
+    {
+        $offset -= $got;
+        last if $offset == 0 ;
+    }
+
+    $here = $self->tell() ;
+    return $offset == 0 ? 1 : 0 ;
+}
+
+sub fileno
+{
+    my $self = shift ;
+    return defined *$self->{FH} 
+           ? fileno *$self->{FH} 
+           : undef ;
+}
+
+sub binmode
+{
+    1;
+#    my $self     = shift ;
+#    return defined *$self->{FH} 
+#            ? binmode *$self->{FH} 
+#            : 1 ;
+}
+
+sub opened
+{
+    my $self     = shift ;
+    return ! *$self->{Closed} ;
+}
+
+sub autoflush
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->autoflush(@_) 
+            : undef ;
+}
+
+sub input_line_number
+{
+    my $self = shift ;
+    my $last = *$self->{LineNo};
+    $. = *$self->{LineNo} = $_[1] if @_ ;
+    return $last;
+}
+
+
+*BINMODE  = \&binmode;
+*SEEK     = \&seek; 
+*READ     = \&read;
+*sysread  = \&read;
+*TELL     = \&tell;
+*EOF      = \&eof;
+
+*FILENO   = \&fileno;
+*CLOSE    = \&close;
+
+sub _notAvailable
+{
+    my $name = shift ;
+    return sub { croak "$name Not Available: File opened only for intput" ; } ;
+}
+
+
+*print    = _notAvailable('print');
+*PRINT    = _notAvailable('print');
+*printf   = _notAvailable('printf');
+*PRINTF   = _notAvailable('printf');
+*write    = _notAvailable('write');
+*WRITE    = _notAvailable('write');
+
+#*sysread  = \&read;
+#*syswrite = \&_notAvailable;
+
+
+
+package IO::Uncompress::Base ;
+
+
+1 ;
+__END__
+
+package IO::Uncompress::RawInflate ;
+# for RFC1951
+
+use strict ;
+use warnings;
+use bytes;
+
+use Compress::Raw::Zlib  2.074 ;
+use IO::Compress::Base::Common  2.074 qw(:Status );
+
+use IO::Uncompress::Base  2.074 ;
+use IO::Uncompress::Adapter::Inflate  2.074 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
+
+$VERSION = '2.074';
+$RawInflateError = '';
+
+@ISA    = qw(IO::Uncompress::Base Exporter);
+@EXPORT_OK = qw( $RawInflateError rawinflate ) ;
+%DEFLATE_CONSTANTS = ();
+%EXPORT_TAGS = %IO::Uncompress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+#{
+#    # Execute at runtime  
+#    my %bad;
+#    for my $module (qw(Compress::Raw::Zlib IO::Compress::Base::Common IO::Uncompress::Base IO::Uncompress::Adapter::Inflate))
+#    {
+#        my $ver = ${ $module . "::VERSION"} ;
+#        
+#        $bad{$module} = $ver
+#            if $ver ne $VERSION;
+#    }
+#    
+#    if (keys %bad)
+#    {
+#        my $string = join "\n", map { "$_ $bad{$_}" } keys %bad;
+#        die caller(0)[0] . "needs version $VERSION mismatch\n$string\n";
+#    }
+#}
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$RawInflateError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub rawinflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$RawInflateError);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return ();
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject(
+                                                                $got->getValue('crc32'),
+                                                                $got->getValue('adler32'),
+                                                                $got->getValue('scan'),
+                                                            );
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+
+    *$self->{Uncomp} = $obj;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    return 1;
+
+}
+
+
+sub ckMagic
+{
+    my $self = shift;
+
+    return $self->_isRaw() ;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    return {
+        'Type'          => 'rfc1951',
+        'FingerprintLength'  => 0,
+        'HeaderLength'  => 0,
+        'TrailerLength' => 0,
+        'Header'        => ''
+        };
+}
+
+sub chkTrailer
+{
+    return STATUS_OK ;
+}
+
+sub _isRaw
+{
+    my $self   = shift ;
+
+    my $got = $self->_isRawx(@_);
+
+    if ($got) {
+        *$self->{Pending} = *$self->{HeaderPending} ;
+    }
+    else {
+        $self->pushBack(*$self->{HeaderPending});
+        *$self->{Uncomp}->reset();
+    }
+    *$self->{HeaderPending} = '';
+
+    return $got ;
+}
+
+sub _isRawx
+{
+    my $self   = shift ;
+    my $magic = shift ;
+
+    $magic = '' unless defined $magic ;
+
+    my $buffer = '';
+
+    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0  
+        or return $self->saveErrorString(undef, "No data to read");
+
+    my $temp_buf = $magic . $buffer ;
+    *$self->{HeaderPending} = $temp_buf ;    
+    $buffer = '';
+    my $status = *$self->{Uncomp}->uncompr(\$temp_buf, \$buffer, $self->smartEof()) ;
+    
+    return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, STATUS_ERROR)
+        if $status == STATUS_ERROR;
+
+    $self->pushBack($temp_buf)  ;
+
+    return $self->saveErrorString(undef, "unexpected end of file", STATUS_ERROR)
+        if $self->smartEof() && $status != STATUS_ENDSTREAM;
+            
+    #my $buf_len = *$self->{Uncomp}->uncompressedBytes();
+    my $buf_len = length $buffer;
+
+    if ($status == STATUS_ENDSTREAM) {
+        if (*$self->{MultiStream} 
+                    && (length $temp_buf || ! $self->smartEof())){
+            *$self->{NewStream} = 1 ;
+            *$self->{EndStream} = 0 ;
+        }
+        else {
+            *$self->{EndStream} = 1 ;
+        }
+    }
+    *$self->{HeaderPending} = $buffer ;    
+    *$self->{InflatedBytesRead} = $buf_len ;    
+    *$self->{TotalInflatedBytesRead} += $buf_len ;    
+    *$self->{Type} = 'rfc1951';
+
+    $self->saveStatus(STATUS_OK);
+
+    return {
+        'Type'          => 'rfc1951',
+        'HeaderLength'  => 0,
+        'TrailerLength' => 0,
+        'Header'        => ''
+        };
+}
+
+
+sub inflateSync
+{
+    my $self = shift ;
+
+    # inflateSync is a no-op in Plain mode
+    return 1
+        if *$self->{Plain} ;
+
+    return 0 if *$self->{Closed} ;
+    #return G_EOF if !length *$self->{Pending} && *$self->{EndStream} ;
+    return 0 if ! length *$self->{Pending} && *$self->{EndStream} ;
+
+    # Disable CRC check
+    *$self->{Strict} = 0 ;
+
+    my $status ;
+    while (1)
+    {
+        my $temp_buf ;
+
+        if (length *$self->{Pending} )
+        {
+            $temp_buf = *$self->{Pending} ;
+            *$self->{Pending} = '';
+        }
+        else
+        {
+            $status = $self->smartRead(\$temp_buf, *$self->{BlockSize}) ;
+            return $self->saveErrorString(0, "Error Reading Data")
+                if $status < 0  ;
+
+            if ($status == 0 ) {
+                *$self->{EndStream} = 1 ;
+                return $self->saveErrorString(0, "unexpected end of file", STATUS_ERROR);
+            }
+        }
+        
+        $status = *$self->{Uncomp}->sync($temp_buf) ;
+
+        if ($status == STATUS_OK)
+        {
+            *$self->{Pending} .= $temp_buf ;
+            return 1 ;
+        }
+
+        last unless $status == STATUS_ERROR ;
+    }
+
+    return 0;
+}
+
+#sub performScan
+#{
+#    my $self = shift ;
+#
+#    my $status ;
+#    my $end_offset = 0;
+#
+#    $status = $self->scan() 
+#    #or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $self->errorNo) ;
+#        or return $self->saveErrorString(G_ERR, "Error Scanning: $status")
+#
+#    $status = $self->zap($end_offset) 
+#        or return $self->saveErrorString(G_ERR, "Error Zapping: $status");
+#    #or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $self->errorNo) ;
+#
+#    #(*$obj->{Deflate}, $status) = $inf->createDeflate();
+#
+##    *$obj->{Header} = *$inf->{Info}{Header};
+##    *$obj->{UnCompSize_32bit} = 
+##        *$obj->{BytesWritten} = *$inf->{UnCompSize_32bit} ;
+##    *$obj->{CompSize_32bit} = *$inf->{CompSize_32bit} ;
+#
+#
+##    if ( $outType eq 'buffer') 
+##      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
+##    elsif ($outType eq 'handle' || $outType eq 'filename') {
+##        *$self->{FH} = *$inf->{FH} ;
+##        delete *$inf->{FH};
+##        *$obj->{FH}->flush() ;
+##        *$obj->{Handle} = 1 if $outType eq 'handle';
+##
+##        #seek(*$obj->{FH}, $end_offset, SEEK_SET) 
+##        *$obj->{FH}->seek($end_offset, SEEK_SET) 
+##            or return $obj->saveErrorString(undef, $!, $!) ;
+##    }
+#    
+#}
+
+sub scan
+{
+    my $self = shift ;
+
+    return 1 if *$self->{Closed} ;
+    return 1 if !length *$self->{Pending} && *$self->{EndStream} ;
+
+    my $buffer = '' ;
+    my $len = 0;
+
+    $len = $self->_raw_read(\$buffer, 1) 
+        while ! *$self->{EndStream} && $len >= 0 ;
+
+    #return $len if $len < 0 ? $len : 0 ;
+    return $len < 0 ? 0 : 1 ;
+}
+
+sub zap
+{
+    my $self  = shift ;
+
+    my $headerLength = *$self->{Info}{HeaderLength};
+    my $block_offset =  $headerLength + *$self->{Uncomp}->getLastBlockOffset();
+    $_[0] = $headerLength + *$self->{Uncomp}->getEndOffset();
+    #printf "# End $_[0], headerlen $headerLength \n";;
+    #printf "# block_offset $block_offset %x\n", $block_offset;
+    my $byte ;
+    ( $self->smartSeek($block_offset) &&
+      $self->smartRead(\$byte, 1) ) 
+        or return $self->saveErrorString(0, $!, $!); 
+
+    #printf "#byte is %x\n", unpack('C*',$byte);
+    *$self->{Uncomp}->resetLastBlockByte($byte);
+    #printf "#to byte is %x\n", unpack('C*',$byte);
+
+    ( $self->smartSeek($block_offset) && 
+      $self->smartWrite($byte) )
+        or return $self->saveErrorString(0, $!, $!); 
+
+    #$self->smartSeek($end_offset, 1);
+
+    return 1 ;
+}
+
+sub createDeflate
+{
+    my $self  = shift ;
+    my ($def, $status) = *$self->{Uncomp}->createDeflateStream(
+                                    -AppendOutput   => 1,
+                                    -WindowBits => - MAX_WBITS,
+                                    -CRC32      => *$self->{Params}->getValue('crc32'),
+                                    -ADLER32    => *$self->{Params}->getValue('adler32'),
+                                );
+    
+    return wantarray ? ($status, $def) : $def ;                                
+}
+
+
+1; 
+
+__END__
+
+
+package IO::Uncompress::AnyInflate ;
+
+# for RFC1950, RFC1951 or RFC1952
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 ();
+
+use IO::Uncompress::Adapter::Inflate  2.074 ();
+
+
+use IO::Uncompress::Base  2.074 ;
+use IO::Uncompress::Gunzip  2.074 ;
+use IO::Uncompress::Inflate  2.074 ;
+use IO::Uncompress::RawInflate  2.074 ;
+use IO::Uncompress::Unzip  2.074 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
+
+$VERSION = '2.074';
+$AnyInflateError = '';
+
+@ISA = qw(IO::Uncompress::Base Exporter);
+@EXPORT_OK = qw( $AnyInflateError anyinflate ) ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+# TODO - allow the user to pick a set of the three formats to allow
+#        or just assume want to auto-detect any of the three formats.
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyInflateError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub anyinflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyInflateError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+    use IO::Compress::Base::Common  2.074 qw(:Parse);
+    return ( 'rawinflate' => [Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # any always needs both crc32 and adler32
+    $got->setValue('crc32' => 1);
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject();
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+
+    *$self->{Uncomp} = $obj;
+    
+     my @possible = qw( Inflate Gunzip Unzip );
+     unshift @possible, 'RawInflate' 
+        if 1 || $got->getValue('rawinflate');
+
+     my $magic = $self->ckMagic( @possible );
+
+     if ($magic) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        return 1;
+     }
+
+     return 0 ;
+}
+
+
+
+sub ckMagic
+{
+    my $self = shift;
+    my @names = @_ ;
+
+    my $keep = ref $self ;
+    for my $class ( map { "IO::Uncompress::$_" } @names)
+    {
+        bless $self => $class;
+        my $magic = $self->ckMagic();
+
+        if ($magic)
+        {
+            #bless $self => $class;
+            return $magic ;
+        }
+
+        $self->pushBack(*$self->{HeaderPending})  ;
+        *$self->{HeaderPending} = ''  ;
+    }    
+
+    bless $self => $keep;
+    return undef;
+}
+
+1 ;
+
+__END__
+
+
+package IO::Uncompress::Adapter::Inflate;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status);
+use Compress::Raw::Zlib  2.074 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+
+our ($VERSION);
+$VERSION = '2.074';
+
+
+
+sub mkUncompObject
+{
+    my $crc32   = shift || 1;
+    my $adler32 = shift || 1;
+    my $scan    = shift || 0;
+
+    my $inflate ;
+    my $status ;
+
+    if ($scan)
+    {
+        ($inflate, $status) = new Compress::Raw::Zlib::InflateScan
+                                    #LimitOutput  => 1,
+                                    CRC32        => $crc32,
+                                    ADLER32      => $adler32,
+                                    WindowBits   => - MAX_WBITS ;
+    }
+    else
+    {
+        ($inflate, $status) = new Compress::Raw::Zlib::Inflate
+                                    AppendOutput => 1,
+                                    LimitOutput  => 1,
+                                    CRC32        => $crc32,
+                                    ADLER32      => $adler32,
+                                    WindowBits   => - MAX_WBITS ;
+    }
+
+    return (undef, "Could not create Inflation object: $status", $status) 
+        if $status != Z_OK ;
+
+    return bless {'Inf'        => $inflate,
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                  'ConsumesInput' => 1,
+                 } ;     
+    
+}
+
+sub uncompr
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $to   = shift ;
+    my $eof  = shift ;
+
+    my $inf   = $self->{Inf};
+
+    my $status = $inf->inflate($from, $to, $eof);
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK && $status != Z_STREAM_END && $status != Z_BUF_ERROR)
+    {
+        $self->{Error} = "Inflation Error: $status";
+        return STATUS_ERROR;
+    }
+            
+    return STATUS_OK        if $status == Z_BUF_ERROR ; # ???
+    return STATUS_OK        if $status == Z_OK ;
+    return STATUS_ENDSTREAM if $status == Z_STREAM_END ;
+    return STATUS_ERROR ;
+}
+
+sub reset
+{
+    my $self = shift ;
+    $self->{Inf}->inflateReset();
+
+    return STATUS_OK ;
+}
+
+#sub count
+#{
+#    my $self = shift ;
+#    $self->{Inf}->inflateCount();
+#}
+
+sub crc32
+{
+    my $self = shift ;
+    $self->{Inf}->crc32();
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->uncompressedBytes();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    $self->{Inf}->adler32();
+}
+
+sub sync
+{
+    my $self = shift ;
+    ( $self->{Inf}->inflateSync(@_) == Z_OK) 
+            ? STATUS_OK 
+            : STATUS_ERROR ;
+}
+
+
+sub getLastBlockOffset
+{
+    my $self = shift ;
+    $self->{Inf}->getLastBlockOffset();
+}
+
+sub getEndOffset
+{
+    my $self = shift ;
+    $self->{Inf}->getEndOffset();
+}
+
+sub resetLastBlockByte
+{
+    my $self = shift ;
+    $self->{Inf}->resetLastBlockByte(@_);
+}
+
+sub createDeflateStream
+{
+    my $self = shift ;
+    my $deflate = $self->{Inf}->createDeflateStream(@_);
+    return bless {'Def'        => $deflate,
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                 }, 'IO::Compress::Adapter::Deflate';
+}
+
+1;
+
+
+__END__
+
+package IO::Uncompress::Adapter::Bunzip2;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.074 qw(:Status);
+
+use Compress::Raw::Bzip2 2.074 ;
+
+our ($VERSION, @ISA);
+$VERSION = '2.074';
+
+sub mkUncompObject
+{
+    my $small     = shift || 0;
+    my $verbosity = shift || 0;
+
+    my ($inflate, $status) = new Compress::Raw::Bunzip2(1, 1, $small, $verbosity, 1);
+
+    return (undef, "Could not create Inflation object: $status", $status)
+        if $status != BZ_OK ;
+
+    return bless {'Inf'           => $inflate,
+                  'CompSize'      => 0,
+                  'UnCompSize'    => 0,
+                  'Error'         => '',
+                  'ConsumesInput' => 1,
+                 }  ;     
+    
+}
+
+sub uncompr
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $to   = shift ;
+    my $eof  = shift ;
+
+    my $inf   = $self->{Inf};
+
+    my $status = $inf->bzinflate($from, $to);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_OK && $status != BZ_STREAM_END )
+    {
+        $self->{Error} = "Inflation Error: $status";
+        return STATUS_ERROR;
+    }
+
+    
+    return STATUS_OK        if $status == BZ_OK ;
+    return STATUS_ENDSTREAM if $status == BZ_STREAM_END ;
+    return STATUS_ERROR ;
+}
+
+
+sub reset
+{
+    my $self = shift ;
+
+    my ($inf, $status) = new Compress::Raw::Bunzip2();
+    $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
+
+    if ($status != BZ_OK)
+    {
+        $self->{Error} = "Cannot create Inflate object: $status"; 
+        return STATUS_ERROR;
+    }
+
+    $self->{Inf} = $inf;
+
+    return STATUS_OK ;
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->uncompressedBytes();
+}
+
+sub crc32
+{
+    my $self = shift ;
+    #$self->{Inf}->crc32();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    #$self->{Inf}->adler32();
+}
+
+sub sync
+{
+    my $self = shift ;
+    #( $self->{Inf}->inflateSync(@_) == BZ_OK) 
+    #        ? STATUS_OK 
+    #        : STATUS_ERROR ;
+}
+
+
+1;
+
+__END__
+
+package IO::Uncompress::Adapter::Identity;
+
+use warnings;
+use strict;
+use bytes;
+
+use IO::Compress::Base::Common  2.074 qw(:Status);
+use IO::Compress::Zip::Constants ;
+
+our ($VERSION);
+
+$VERSION = '2.074';
+
+use Compress::Raw::Zlib  2.074 ();
+
+sub mkUncompObject
+{
+    my $streaming = shift;
+    my $zip64 = shift;
+
+    my $crc32 = 1; #shift ;
+    my $adler32 = shift;
+
+    bless { 'CompSize'   => new U64 , # 0,
+            'UnCompSize' => 0,
+            'wantCRC32'  => $crc32,
+            'CRC32'      => Compress::Raw::Zlib::crc32(''),
+            'wantADLER32'=> $adler32,
+            'ADLER32'    => Compress::Raw::Zlib::adler32(''),
+            'ConsumesInput' => 1,
+            'Streaming'  => $streaming,
+            'Zip64'      => $zip64,
+            'DataHdrSize'  => $zip64 ? 24 :  16,
+            'Pending'   => '',
+
+          } ;
+}
+
+
+sub uncompr
+{
+    my $self = shift;
+    my $in = $_[0];
+    my $eof = $_[2];
+
+    my $len = length $$in;
+    my $remainder = '';
+
+    if (defined $$in && $len) {
+
+        if ($self->{Streaming}) {
+
+            if (length $self->{Pending}) {
+                $$in = $self->{Pending} . $$in ;
+                $len = length $$in;
+                $self->{Pending} = '';
+            }
+
+            my $ind = index($$in, "\x50\x4b\x07\x08");
+
+            if ($ind < 0) {
+                $len = length $$in;
+                if ($len >= 3 && substr($$in, -3) eq "\x50\x4b\x07") {
+                    $ind = $len - 3 ;
+                }
+                elsif ($len >= 2 && substr($$in, -2) eq "\x50\x4b") {
+                    $ind = $len - 2 ;
+                }
+                elsif ($len >= 1 && substr($$in, -1) eq "\x50") {
+                    $ind = $len - 1 ;
+                }
+            }
+           
+            if ($ind >= 0) {
+                $remainder = substr($$in, $ind) ;
+                substr($$in, $ind) = '' ;
+            }
+        }
+
+        if (length $remainder && length $remainder < $self->{DataHdrSize}) {
+            $self->{Pending} = $remainder ;
+            $remainder = '';
+        }
+        elsif (length $remainder >= $self->{DataHdrSize}) {
+            my $crc = unpack "V", substr($remainder, 4);
+            if ($crc == Compress::Raw::Zlib::crc32($$in,  $self->{CRC32})) {
+                my ($l1, $l2) ;
+
+                if ($self->{Zip64}) {
+                    $l1 = U64::newUnpack_V64(substr($remainder, 8));
+                    $l2 = U64::newUnpack_V64(substr($remainder, 16));
+                }
+                else {
+                    $l1 = U64::newUnpack_V32(substr($remainder, 8));
+                    $l2 = U64::newUnpack_V32(substr($remainder, 12));
+                }
+                    
+                my $newLen = $self->{CompSize}->clone();
+                $newLen->add(length $$in);
+                if ($l1->equal($l2) && $l1->equal($newLen) ) {
+                    $eof = 1;
+                }
+                else {
+                    $$in .= substr($remainder, 0, 4) ;
+                    $remainder       = substr($remainder, 4);
+                    #$self->{Pending} = substr($remainder, 4);
+                    #$remainder = '';
+                    $eof = 0;
+                }
+            }
+            else {
+                $$in .= substr($remainder, 0, 4) ;
+                $remainder       = substr($remainder, 4);
+                #$self->{Pending} = substr($remainder, 4);
+                #$remainder = '';
+                $eof = 0;
+            }
+        }
+
+        if (length $$in) {
+            $self->{CompSize}->add(length $$in) ;
+
+            $self->{CRC32} = Compress::Raw::Zlib::crc32($$in,  $self->{CRC32})
+                if $self->{wantCRC32};
+
+            $self->{ADLER32} = Compress::Zlib::adler32($$in,  $self->{ADLER32})
+                if $self->{wantADLER32};
+        }
+
+        ${ $_[1] } .= $$in;
+        $$in  = $remainder;
+    }
+
+    return STATUS_ENDSTREAM if $eof;
+    return STATUS_OK ;
+}
+
+sub reset
+{
+    my $self = shift;
+
+    $self->{CompSize}   = 0;
+    $self->{UnCompSize} = 0;
+    $self->{CRC32}      = Compress::Raw::Zlib::crc32('');
+    $self->{ADLER32}    = Compress::Raw::Zlib::adler32('');      
+
+    return STATUS_OK ;
+}
+
+#sub count
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    return $self->{CompSize} ;
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    return $self->{CompSize} ;
+}
+
+sub sync
+{
+    return STATUS_OK ;
+}
+
+sub crc32
+{
+    my $self = shift ;
+    return $self->{CRC32};
+}
+
+sub adler32
+{
+    my $self = shift ;
+    return $self->{ADLER32};
+}
+
+
+1;
+
+__END__
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2010-2015 -- leonerd@leonerd.org.uk
+
+package IO::Socket::IP;
+# $VERSION needs to be set before  use base 'IO::Socket'
+#  - https://rt.cpan.org/Ticket/Display.html?id=92107
+BEGIN {
+   $VERSION = '0.39';
+}
+
+use strict;
+use warnings;
+use base qw( IO::Socket );
+
+use Carp;
+
+use Socket 1.97 qw(
+   getaddrinfo getnameinfo
+   sockaddr_family
+   AF_INET
+   AI_PASSIVE
+   IPPROTO_TCP IPPROTO_UDP
+   IPPROTO_IPV6 IPV6_V6ONLY
+   NI_DGRAM NI_NUMERICHOST NI_NUMERICSERV NIx_NOHOST NIx_NOSERV
+   SO_REUSEADDR SO_REUSEPORT SO_BROADCAST SO_ERROR
+   SOCK_DGRAM SOCK_STREAM
+   SOL_SOCKET
+);
+my $AF_INET6 = eval { Socket::AF_INET6() }; # may not be defined
+my $AI_ADDRCONFIG = eval { Socket::AI_ADDRCONFIG() } || 0;
+use POSIX qw( dup2 );
+use Errno qw( EINVAL EINPROGRESS EISCONN ENOTCONN ETIMEDOUT EWOULDBLOCK EOPNOTSUPP );
+
+use constant HAVE_MSWIN32 => ( $^O eq "MSWin32" );
+
+# At least one OS (Android) is known not to have getprotobyname()
+use constant HAVE_GETPROTOBYNAME => defined eval { getprotobyname( "tcp" ) };
+
+my $IPv6_re = do {
+   # translation of RFC 3986 3.2.2 ABNF to re
+   my $IPv4address = do {
+      my $dec_octet = q<(?:[0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])>;
+      qq<$dec_octet(?: \\. $dec_octet){3}>;
+   };
+   my $IPv6address = do {
+      my $h16  = qq<[0-9A-Fa-f]{1,4}>;
+      my $ls32 = qq<(?: $h16 : $h16 | $IPv4address)>;
+      qq<(?:
+                                            (?: $h16 : ){6} $ls32
+         |                               :: (?: $h16 : ){5} $ls32
+         | (?:                   $h16 )? :: (?: $h16 : ){4} $ls32
+         | (?: (?: $h16 : ){0,1} $h16 )? :: (?: $h16 : ){3} $ls32
+         | (?: (?: $h16 : ){0,2} $h16 )? :: (?: $h16 : ){2} $ls32
+         | (?: (?: $h16 : ){0,3} $h16 )? ::     $h16 :      $ls32
+         | (?: (?: $h16 : ){0,4} $h16 )? ::                 $ls32
+         | (?: (?: $h16 : ){0,5} $h16 )? ::                 $h16
+         | (?: (?: $h16 : ){0,6} $h16 )? ::
+      )>
+   };
+   qr<$IPv6address>xo;
+};
+
+
+sub import
+{
+   my $pkg = shift;
+   my @symbols;
+
+   foreach ( @_ ) {
+      if( $_ eq "-register" ) {
+         IO::Socket::IP::_ForINET->register_domain( AF_INET );
+         IO::Socket::IP::_ForINET6->register_domain( $AF_INET6 ) if defined $AF_INET6;
+      }
+      else {
+         push @symbols, $_;
+      }
+   }
+
+   @_ = ( $pkg, @symbols );
+   goto &IO::Socket::import;
+}
+
+# Convenient capability test function
+{
+   my $can_disable_v6only;
+   sub CAN_DISABLE_V6ONLY
+   {
+      return $can_disable_v6only if defined $can_disable_v6only;
+
+      socket my $testsock, Socket::PF_INET6(), SOCK_STREAM, 0 or
+         die "Cannot socket(PF_INET6) - $!";
+
+      if( setsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY, 0 ) {
+         return $can_disable_v6only = 1;
+      }
+      elsif( $! == EINVAL || $! == EOPNOTSUPP ) {
+         return $can_disable_v6only = 0;
+      }
+      else {
+         die "Cannot setsockopt() - $!";
+      }
+   }
+}
+
+
+
+sub new
+{
+   my $class = shift;
+   my %arg = (@_ == 1) ? (PeerHost => $_[0]) : @_;
+   return $class->SUPER::new(%arg);
+}
+
+# IO::Socket may call this one; neaten up the arguments from IO::Socket::INET
+# before calling our real _configure method
+sub configure
+{
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   $arg->{PeerHost} = delete $arg->{PeerAddr}
+      if exists $arg->{PeerAddr} && !exists $arg->{PeerHost};
+
+   $arg->{PeerService} = delete $arg->{PeerPort}
+      if exists $arg->{PeerPort} && !exists $arg->{PeerService};
+
+   $arg->{LocalHost} = delete $arg->{LocalAddr}
+      if exists $arg->{LocalAddr} && !exists $arg->{LocalHost};
+
+   $arg->{LocalService} = delete $arg->{LocalPort}
+      if exists $arg->{LocalPort} && !exists $arg->{LocalService};
+
+   for my $type (qw(Peer Local)) {
+      my $host    = $type . 'Host';
+      my $service = $type . 'Service';
+
+      if( defined $arg->{$host} ) {
+         ( $arg->{$host}, my $s ) = $self->split_addr( $arg->{$host} );
+         # IO::Socket::INET compat - *Host parsed port always takes precedence
+         $arg->{$service} = $s if defined $s;
+      }
+   }
+
+   $self->_io_socket_ip__configure( $arg );
+}
+
+# Avoid simply calling it _configure, as some subclasses of IO::Socket::INET on CPAN already take that
+sub _io_socket_ip__configure
+{
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   my %hints;
+   my @localinfos;
+   my @peerinfos;
+
+   my $listenqueue = $arg->{Listen};
+   if( defined $listenqueue and
+       ( defined $arg->{PeerHost} || defined $arg->{PeerService} || defined $arg->{PeerAddrInfo} ) ) {
+      croak "Cannot Listen with a peer address";
+   }
+
+   if( defined $arg->{GetAddrInfoFlags} ) {
+      $hints{flags} = $arg->{GetAddrInfoFlags};
+   }
+   else {
+      $hints{flags} = $AI_ADDRCONFIG;
+   }
+
+   if( defined( my $family = $arg->{Family} ) ) {
+      $hints{family} = $family;
+   }
+
+   if( defined( my $type = $arg->{Type} ) ) {
+      $hints{socktype} = $type;
+   }
+
+   if( defined( my $proto = $arg->{Proto} ) ) {
+      unless( $proto =~ m/^\d+$/ ) {
+         my $protonum = HAVE_GETPROTOBYNAME
+            ? getprotobyname( $proto )
+            : eval { Socket->${\"IPPROTO_\U$proto"}() };
+         defined $protonum or croak "Unrecognised protocol $proto";
+         $proto = $protonum;
+      }
+
+      $hints{protocol} = $proto;
+   }
+
+   # To maintain compatibility with IO::Socket::INET, imply a default of
+   # SOCK_STREAM + IPPROTO_TCP if neither hint is given
+   if( !defined $hints{socktype} and !defined $hints{protocol} ) {
+      $hints{socktype} = SOCK_STREAM;
+      $hints{protocol} = IPPROTO_TCP;
+   }
+
+   # Some OSes (NetBSD) don't seem to like just a protocol hint without a
+   # socktype hint as well. We'll set a couple of common ones
+   if( !defined $hints{socktype} and defined $hints{protocol} ) {
+      $hints{socktype} = SOCK_STREAM if $hints{protocol} == IPPROTO_TCP;
+      $hints{socktype} = SOCK_DGRAM  if $hints{protocol} == IPPROTO_UDP;
+   }
+
+   if( my $info = $arg->{LocalAddrInfo} ) {
+      ref $info eq "ARRAY" or croak "Expected 'LocalAddrInfo' to be an ARRAY ref";
+      @localinfos = @$info;
+   }
+   elsif( defined $arg->{LocalHost} or
+          defined $arg->{LocalService} or
+          HAVE_MSWIN32 and $arg->{Listen} ) {
+      # Either may be undef
+      my $host = $arg->{LocalHost};
+      my $service = $arg->{LocalService};
+
+      unless ( defined $host or defined $service ) {
+         $service = 0;
+      }
+
+      local $1; # Placate a taint-related bug; [perl #67962]
+      defined $service and $service =~ s/\((\d+)\)$// and
+         my $fallback_port = $1;
+
+      my %localhints = %hints;
+      $localhints{flags} |= AI_PASSIVE;
+      ( my $err, @localinfos ) = getaddrinfo( $host, $service, \%localhints );
+
+      if( $err and defined $fallback_port ) {
+         ( $err, @localinfos ) = getaddrinfo( $host, $fallback_port, \%localhints );
+      }
+
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
+   }
+
+   if( my $info = $arg->{PeerAddrInfo} ) {
+      ref $info eq "ARRAY" or croak "Expected 'PeerAddrInfo' to be an ARRAY ref";
+      @peerinfos = @$info;
+   }
+   elsif( defined $arg->{PeerHost} or defined $arg->{PeerService} ) {
+      defined( my $host = $arg->{PeerHost} ) or
+         croak "Expected 'PeerHost'";
+      defined( my $service = $arg->{PeerService} ) or
+         croak "Expected 'PeerService'";
+
+      local $1; # Placate a taint-related bug; [perl #67962]
+      defined $service and $service =~ s/\((\d+)\)$// and
+         my $fallback_port = $1;
+
+      ( my $err, @peerinfos ) = getaddrinfo( $host, $service, \%hints );
+
+      if( $err and defined $fallback_port ) {
+         ( $err, @peerinfos ) = getaddrinfo( $host, $fallback_port, \%hints );
+      }
+
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
+   }
+
+   my $INT_1 = pack "i", 1;
+
+   my @sockopts_enabled;
+   push @sockopts_enabled, [ SOL_SOCKET, SO_REUSEADDR, $INT_1 ] if $arg->{ReuseAddr};
+   push @sockopts_enabled, [ SOL_SOCKET, SO_REUSEPORT, $INT_1 ] if $arg->{ReusePort};
+   push @sockopts_enabled, [ SOL_SOCKET, SO_BROADCAST, $INT_1 ] if $arg->{Broadcast};
+
+   if( my $sockopts = $arg->{Sockopts} ) {
+      ref $sockopts eq "ARRAY" or croak "Expected 'Sockopts' to be an ARRAY ref";
+      foreach ( @$sockopts ) {
+         ref $_ eq "ARRAY" or croak "Bad Sockopts item - expected ARRAYref";
+         @$_ >= 2 and @$_ <= 3 or
+            croak "Bad Sockopts item - expected 2 or 3 elements";
+
+         my ( $level, $optname, $value ) = @$_;
+         # TODO: consider more sanity checking on argument values
+
+         defined $value or $value = $INT_1;
+         push @sockopts_enabled, [ $level, $optname, $value ];
+      }
+   }
+
+   my $blocking = $arg->{Blocking};
+   defined $blocking or $blocking = 1;
+
+   my $v6only = $arg->{V6Only};
+
+   # IO::Socket::INET defines this key. IO::Socket::IP always implements the
+   # behaviour it requests, so we can ignore it, unless the caller is for some
+   # reason asking to disable it.
+   if( defined $arg->{MultiHomed} and !$arg->{MultiHomed} ) {
+      croak "Cannot disable the MultiHomed parameter";
+   }
+
+   my @infos;
+   foreach my $local ( @localinfos ? @localinfos : {} ) {
+      foreach my $peer ( @peerinfos ? @peerinfos : {} ) {
+         next if defined $local->{family}   and defined $peer->{family}   and
+            $local->{family} != $peer->{family};
+         next if defined $local->{socktype} and defined $peer->{socktype} and
+            $local->{socktype} != $peer->{socktype};
+         next if defined $local->{protocol} and defined $peer->{protocol} and
+            $local->{protocol} != $peer->{protocol};
+
+         my $family   = $local->{family}   || $peer->{family}   or next;
+         my $socktype = $local->{socktype} || $peer->{socktype} or next;
+         my $protocol = $local->{protocol} || $peer->{protocol} || 0;
+
+         push @infos, {
+            family    => $family,
+            socktype  => $socktype,
+            protocol  => $protocol,
+            localaddr => $local->{addr},
+            peeraddr  => $peer->{addr},
+         };
+      }
+   }
+
+   if( !@infos ) {
+      # If there was a Family hint then create a plain unbound, unconnected socket
+      if( defined $hints{family} ) {
+         @infos = ( {
+            family   => $hints{family},
+            socktype => $hints{socktype},
+            protocol => $hints{protocol},
+         } );
+      }
+      # If there wasn't, use getaddrinfo()'s AI_ADDRCONFIG side-effect to guess a
+      # suitable family first.
+      else {
+         ( my $err, @infos ) = getaddrinfo( "", "0", \%hints );
+         if( $err ) {
+            $@ = "$err";
+            $! = EINVAL;
+            return;
+         }
+
+         # We'll take all the @infos anyway, because some OSes (HPUX) are known to
+         # ignore the AI_ADDRCONFIG hint and return AF_INET6 even if they don't
+         # support them
+      }
+   }
+
+   # In the nonblocking case, caller will be calling ->setup multiple times.
+   # Store configuration in the object for the ->setup method
+   # Yes, these are messy. Sorry, I can't help that...
+
+   ${*$self}{io_socket_ip_infos} = \@infos;
+
+   ${*$self}{io_socket_ip_idx} = -1;
+
+   ${*$self}{io_socket_ip_sockopts} = \@sockopts_enabled;
+   ${*$self}{io_socket_ip_v6only} = $v6only;
+   ${*$self}{io_socket_ip_listenqueue} = $listenqueue;
+   ${*$self}{io_socket_ip_blocking} = $blocking;
+
+   ${*$self}{io_socket_ip_errors} = [ undef, undef, undef ];
+
+   # ->setup is allowed to return false in nonblocking mode
+   $self->setup or !$blocking or return undef;
+
+   return $self;
+}
+
+sub setup
+{
+   my $self = shift;
+
+   while(1) {
+      ${*$self}{io_socket_ip_idx}++;
+      last if ${*$self}{io_socket_ip_idx} >= @{ ${*$self}{io_socket_ip_infos} };
+
+      my $info = ${*$self}{io_socket_ip_infos}->[${*$self}{io_socket_ip_idx}];
+
+      $self->socket( @{$info}{qw( family socktype protocol )} ) or
+         ( ${*$self}{io_socket_ip_errors}[2] = $!, next );
+
+      $self->blocking( 0 ) unless ${*$self}{io_socket_ip_blocking};
+
+      foreach my $sockopt ( @{ ${*$self}{io_socket_ip_sockopts} } ) {
+         my ( $level, $optname, $value ) = @$sockopt;
+         $self->setsockopt( $level, $optname, $value ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined ${*$self}{io_socket_ip_v6only} and defined $AF_INET6 and $info->{family} == $AF_INET6 ) {
+         my $v6only = ${*$self}{io_socket_ip_v6only};
+         $self->setsockopt( IPPROTO_IPV6, IPV6_V6ONLY, pack "i", $v6only ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined( my $addr = $info->{localaddr} ) ) {
+         $self->bind( $addr ) or
+            ( ${*$self}{io_socket_ip_errors}[1] = $!, next );
+      }
+
+      if( defined( my $listenqueue = ${*$self}{io_socket_ip_listenqueue} ) ) {
+         $self->listen( $listenqueue ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined( my $addr = $info->{peeraddr} ) ) {
+         if( $self->connect( $addr ) ) {
+            $! = 0;
+            return 1;
+         }
+
+         if( $! == EINPROGRESS or $! == EWOULDBLOCK ) {
+            ${*$self}{io_socket_ip_connect_in_progress} = 1;
+            return 0;
+         }
+
+         # If connect failed but we have no system error there must be an error
+         # at the application layer, like a bad certificate with
+         # IO::Socket::SSL.
+         # In this case don't continue IP based multi-homing because the problem
+         # cannot be solved at the IP layer.
+         return 0 if ! $!;
+
+         ${*$self}{io_socket_ip_errors}[0] = $!;
+         next;
+      }
+
+      return 1;
+   }
+
+   # Pick the most appropriate error, stringified
+   $! = ( grep defined, @{ ${*$self}{io_socket_ip_errors}} )[0];
+   $@ = "$!";
+   return undef;
+}
+
+sub connect :method
+{
+   my $self = shift;
+
+   # It seems that IO::Socket hides EINPROGRESS errors, making them look like
+   # a success. This is annoying here.
+   # Instead of putting up with its frankly-irritating intentional breakage of
+   # useful APIs I'm just going to end-run around it and call core's connect()
+   # directly
+
+   if( @_ ) {
+      my ( $addr ) = @_;
+
+      # Annoyingly IO::Socket's connect() is where the timeout logic is
+      # implemented, so we'll have to reinvent it here
+      my $timeout = ${*$self}{'io_socket_timeout'};
+
+      return connect( $self, $addr ) unless defined $timeout;
+
+      my $was_blocking = $self->blocking( 0 );
+
+      my $err = defined connect( $self, $addr ) ? 0 : $!+0;
+
+      if( !$err ) {
+         # All happy
+         $self->blocking( $was_blocking );
+         return 1;
+      }
+      elsif( not( $err == EINPROGRESS or $err == EWOULDBLOCK ) ) {
+         # Failed for some other reason
+         $self->blocking( $was_blocking );
+         return undef;
+      }
+      elsif( !$was_blocking ) {
+         # We shouldn't block anyway
+         return undef;
+      }
+
+      my $vec = ''; vec( $vec, $self->fileno, 1 ) = 1;
+      if( !select( undef, $vec, $vec, $timeout ) ) {
+         $self->blocking( $was_blocking );
+         $! = ETIMEDOUT;
+         return undef;
+      }
+
+      # Hoist the error by connect()ing a second time
+      $err = $self->getsockopt( SOL_SOCKET, SO_ERROR );
+      $err = 0 if $err == EISCONN; # Some OSes give EISCONN
+
+      $self->blocking( $was_blocking );
+
+      $! = $err, return undef if $err;
+      return 1;
+   }
+
+   return 1 if !${*$self}{io_socket_ip_connect_in_progress};
+
+   # See if a connect attempt has just failed with an error
+   if( my $errno = $self->getsockopt( SOL_SOCKET, SO_ERROR ) ) {
+      delete ${*$self}{io_socket_ip_connect_in_progress};
+      ${*$self}{io_socket_ip_errors}[0] = $! = $errno;
+      return $self->setup;
+   }
+
+   # No error, so either connect is still in progress, or has completed
+   # successfully. We can tell by trying to connect() again; either it will
+   # succeed or we'll get EISCONN (connected successfully), or EALREADY
+   # (still in progress). This even works on MSWin32.
+   my $addr = ${*$self}{io_socket_ip_infos}[${*$self}{io_socket_ip_idx}]{peeraddr};
+
+   if( connect( $self, $addr ) or $! == EISCONN ) {
+      delete ${*$self}{io_socket_ip_connect_in_progress};
+      $! = 0;
+      return 1;
+   }
+   else {
+      $! = EINPROGRESS;
+      return 0;
+   }
+}
+
+sub connected
+{
+   my $self = shift;
+   return defined $self->fileno &&
+          !${*$self}{io_socket_ip_connect_in_progress} &&
+          defined getpeername( $self ); # ->peername caches, we need to detect disconnection
+}
+
+
+sub _get_host_service
+{
+   my $self = shift;
+   my ( $addr, $flags, $xflags ) = @_;
+
+   defined $addr or
+      $! = ENOTCONN, return;
+
+   $flags |= NI_DGRAM if $self->socktype == SOCK_DGRAM;
+
+   my ( $err, $host, $service ) = getnameinfo( $addr, $flags, $xflags || 0 );
+   croak "getnameinfo - $err" if $err;
+
+   return ( $host, $service );
+}
+
+sub _unpack_sockaddr
+{
+   my ( $addr ) = @_;
+   my $family = sockaddr_family $addr;
+
+   if( $family == AF_INET ) {
+      return ( Socket::unpack_sockaddr_in( $addr ) )[1];
+   }
+   elsif( defined $AF_INET6 and $family == $AF_INET6 ) {
+      return ( Socket::unpack_sockaddr_in6( $addr ) )[1];
+   }
+   else {
+      croak "Unrecognised address family $family";
+   }
+}
+
+
+sub sockhost_service
+{
+   my $self = shift;
+   my ( $numeric ) = @_;
+
+   $self->_get_host_service( $self->sockname, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
+}
+
+
+sub sockhost { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, NI_NUMERICHOST, NIx_NOSERV ) )[0] }
+sub sockport { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, NI_NUMERICSERV, NIx_NOHOST ) )[1] }
+
+sub sockhostname { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOSERV ) )[0] }
+sub sockservice  { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOHOST ) )[1] }
+
+
+sub sockaddr { my $self = shift; _unpack_sockaddr $self->sockname }
+
+
+sub peerhost_service
+{
+   my $self = shift;
+   my ( $numeric ) = @_;
+
+   $self->_get_host_service( $self->peername, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
+}
+
+
+sub peerhost { my $self = shift; scalar +( $self->_get_host_service( $self->peername, NI_NUMERICHOST, NIx_NOSERV ) )[0] }
+sub peerport { my $self = shift; scalar +( $self->_get_host_service( $self->peername, NI_NUMERICSERV, NIx_NOHOST ) )[1] }
+
+sub peerhostname { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOSERV ) )[0] }
+sub peerservice  { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOHOST ) )[1] }
+
+
+sub peeraddr { my $self = shift; _unpack_sockaddr $self->peername }
+
+# This unbelievably dodgy hack works around the bug that IO::Socket doesn't do
+# it
+#    https://rt.cpan.org/Ticket/Display.html?id=61577
+sub accept
+{
+   my $self = shift;
+   my ( $new, $peer ) = $self->SUPER::accept( @_ ) or return;
+
+   ${*$new}{$_} = ${*$self}{$_} for qw( io_socket_domain io_socket_type io_socket_proto );
+
+   return wantarray ? ( $new, $peer )
+                    : $new;
+}
+
+# This second unbelievably dodgy hack guarantees that $self->fileno doesn't
+# change, which is useful during nonblocking connect
+sub socket :method
+{
+   my $self = shift;
+   return $self->SUPER::socket(@_) if not defined $self->fileno;
+
+   # I hate core prototypes sometimes...
+   socket( my $tmph, $_[0], $_[1], $_[2] ) or return undef;
+
+   dup2( $tmph->fileno, $self->fileno ) or die "Unable to dup2 $tmph onto $self - $!";
+}
+
+# Versions of IO::Socket before 1.35 may leave socktype undef if from, say, an
+#   ->fdopen call. In this case we'll apply a fix
+BEGIN {
+   if( eval($IO::Socket::VERSION) < 1.35 ) {
+      *socktype = sub {
+         my $self = shift;
+         my $type = $self->SUPER::socktype;
+         if( !defined $type ) {
+            $type = $self->sockopt( Socket::SO_TYPE() );
+         }
+         return $type;
+      };
+   }
+}
+
+
+sub as_inet
+{
+   my $self = shift;
+   croak "Cannot downgrade a non-PF_INET socket to IO::Socket::INET" unless $self->sockdomain == AF_INET;
+   return IO::Socket::INET->new_from_fd( $self->fileno, "r+" );
+}
+
+
+
+sub split_addr
+{
+   shift;
+   my ( $addr ) = @_;
+
+   local ( $1, $2 ); # Placate a taint-related bug; [perl #67962]
+   if( $addr =~ m/\A\[($IPv6_re)\](?::([^\s:]*))?\z/ or
+       $addr =~ m/\A([^\s:]*):([^\s:]*)\z/ ) {
+      return ( $1, $2 ) if defined $2 and length $2;
+      return ( $1, undef );
+   }
+
+   return ( $addr, undef );
+}
+
+
+sub join_addr
+{
+   shift;
+   my ( $host, $port ) = @_;
+
+   $host = "[$host]" if $host =~ m/:/;
+
+   return join ":", $host, $port if defined $port;
+   return $host;
+}
+
+# Since IO::Socket->new( Domain => ... ) will delete the Domain parameter
+# before calling ->configure, we need to keep track of which it was
+
+package # hide from indexer
+   IO::Socket::IP::_ForINET;
+use base qw( IO::Socket::IP );
+
+sub configure
+{
+   # This is evil
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   bless $self, "IO::Socket::IP";
+   $self->configure( { %$arg, Family => Socket::AF_INET() } );
+}
+
+package # hide from indexer
+   IO::Socket::IP::_ForINET6;
+use base qw( IO::Socket::IP );
+
+sub configure
+{
+   # This is evil
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   bless $self, "IO::Socket::IP";
+   $self->configure( { %$arg, Family => Socket::AF_INET6() } );
+}
+
+
+
+0x55AA;
+package Locale::Maketext;
+use strict;
+our $USE_LITERALS;
+use Carp ();
+use I18N::LangTags ();
+use I18N::LangTags::Detect ();
+
+#--------------------------------------------------------------------------
+
+BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
+# define the constant 'DEBUG' at compile-time
+
+# turn on utf8 if we have it (this is what GutsLoader.pm used to do essentially )
+#    use if (exists $INC{'utf8.pm'} || eval 'use utf8'), 'utf8';
+BEGIN {
+
+    # if we have it || we can load it
+    if ( exists $INC{'utf8.pm'} || eval { local $SIG{'__DIE__'};require utf8; } ) {
+        utf8->import();
+        DEBUG and warn " utf8 on for _compile()\n";
+    }
+    else {
+        DEBUG and warn " utf8 not available for _compile() ($INC{'utf8.pm'})\n$@\n";
+    }
+}
+
+
+our $VERSION = '1.29';
+our @ISA = ();
+
+our $MATCH_SUPERS = 1;
+our $MATCH_SUPERS_TIGHTLY = 1;
+our $USING_LANGUAGE_TAGS  = 1;
+# Turning this off is somewhat of a security risk in that little or no
+# checking will be done on the legality of tokens passed to the
+# eval("use $module_name") in _try_use.  If you turn this off, you have
+# to do your own taint checking.
+
+$USE_LITERALS = 1 unless defined $USE_LITERALS;
+# a hint for compiling bracket-notation things.
+
+my %isa_scan = ();
+
+###########################################################################
+
+sub quant {
+    my($handle, $num, @forms) = @_;
+
+    return $num if @forms == 0; # what should this mean?
+    return $forms[2] if @forms > 2 and $num == 0; # special zeroth case
+
+    # Normal case:
+    # Note that the formatting of $num is preserved.
+    return( $handle->numf($num) . ' ' . $handle->numerate($num, @forms) );
+    # Most human languages put the number phrase before the qualified phrase.
+}
+
+
+sub numerate {
+    # return this lexical item in a form appropriate to this number
+    my($handle, $num, @forms) = @_;
+    my $s = ($num == 1);
+
+    return '' unless @forms;
+    if(@forms == 1) { # only the headword form specified
+        return $s ? $forms[0] : ($forms[0] . 's'); # very cheap hack.
+    }
+    else { # sing and plural were specified
+        return $s ? $forms[0] : $forms[1];
+    }
+}
+
+#--------------------------------------------------------------------------
+
+sub numf {
+    my($handle, $num) = @_[0,1];
+    if($num < 10_000_000_000 and $num > -10_000_000_000 and $num == int($num)) {
+        $num += 0;  # Just use normal integer stringification.
+        # Specifically, don't let %G turn ten million into 1E+007
+    }
+    else {
+        $num = CORE::sprintf('%G', $num);
+        # "CORE::" is there to avoid confusion with the above sub sprintf.
+    }
+    while( $num =~ s/^([-+]?\d+)(\d{3})/$1,$2/s ) {1}  # right from perlfaq5
+    # The initial \d+ gobbles as many digits as it can, and then we
+    #  backtrack so it un-eats the rightmost three, and then we
+    #  insert the comma there.
+
+    $num =~ tr<.,><,.> if ref($handle) and $handle->{'numf_comma'};
+    # This is just a lame hack instead of using Number::Format
+    return $num;
+}
+
+sub sprintf {
+    no integer;
+    my($handle, $format, @params) = @_;
+    return CORE::sprintf($format, @params);
+    # "CORE::" is there to avoid confusion with myself!
+}
+
+#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
+
+use integer; # vroom vroom... applies to the whole rest of the module
+
+sub language_tag {
+    my $it = ref($_[0]) || $_[0];
+    return undef unless $it =~ m/([^':]+)(?:::)?$/s;
+    $it = lc($1);
+    $it =~ tr<_><->;
+    return $it;
+}
+
+sub encoding {
+    my $it = $_[0];
+    return(
+        (ref($it) && $it->{'encoding'})
+        || 'iso-8859-1'   # Latin-1
+    );
+}
+
+#--------------------------------------------------------------------------
+
+sub fallback_languages { return('i-default', 'en', 'en-US') }
+
+sub fallback_language_classes { return () }
+
+#--------------------------------------------------------------------------
+
+sub fail_with { # an actual attribute method!
+    my($handle, @params) = @_;
+    return unless ref($handle);
+    $handle->{'fail'} = $params[0] if @params;
+    return $handle->{'fail'};
+}
+
+#--------------------------------------------------------------------------
+
+sub blacklist {
+    my ( $handle, @methods ) = @_;
+
+    unless ( defined $handle->{'blacklist'} ) {
+        no strict 'refs';
+
+        # Don't let people call methods they're not supposed to from maketext.
+        # Explicitly exclude all methods in this package that start with an
+        # underscore on principle.
+        $handle->{'blacklist'} = {
+            map { $_ => 1 } (
+                qw/
+                  blacklist
+                  encoding
+                  fail_with
+                  failure_handler_auto
+                  fallback_language_classes
+                  fallback_languages
+                  get_handle
+                  init
+                  language_tag
+                  maketext
+                  new
+                  whitelist
+                  /, grep { /^_/ } keys %{ __PACKAGE__ . "::" }
+            ),
+        };
+    }
+
+    if ( scalar @methods ) {
+        $handle->{'blacklist'} = { %{ $handle->{'blacklist'} }, map { $_ => 1 } @methods };
+    }
+
+    delete $handle->{'_external_lex_cache'};
+    return;
+}
+
+sub whitelist {
+    my ( $handle, @methods ) = @_;
+    if ( scalar @methods ) {
+        $handle->{'whitelist'} = {} unless defined $handle->{'whitelist'};
+        $handle->{'whitelist'} = { %{ $handle->{'whitelist'} }, map { $_ => 1 } @methods };
+    }
+
+    delete $handle->{'_external_lex_cache'};
+    return;
+}
+
+#--------------------------------------------------------------------------
+
+sub failure_handler_auto {
+    # Meant to be used like:
+    #  $handle->fail_with('failure_handler_auto')
+
+    my $handle = shift;
+    my $phrase = shift;
+
+    $handle->{'failure_lex'} ||= {};
+    my $lex = $handle->{'failure_lex'};
+
+    my $value ||= ($lex->{$phrase} ||= $handle->_compile($phrase));
+
+    # Dumbly copied from sub maketext:
+    return ${$value} if ref($value) eq 'SCALAR';
+    return $value    if ref($value) ne 'CODE';
+    {
+        local $SIG{'__DIE__'};
+        eval { $value = &$value($handle, @_) };
+    }
+    # If we make it here, there was an exception thrown in the
+    #  call to $value, and so scream:
+    if($@) {
+        # pretty up the error message
+        $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?}
+                 {\n in bracket code [compiled line $1],}s;
+        #$err =~ s/\n?$/\n/s;
+        Carp::croak "Error in maketexting \"$phrase\":\n$@ as used";
+        # Rather unexpected, but suppose that the sub tried calling
+        # a method that didn't exist.
+    }
+    else {
+        return $value;
+    }
+}
+
+#==========================================================================
+
+sub new {
+    # Nothing fancy!
+    my $class = ref($_[0]) || $_[0];
+    my $handle = bless {}, $class;
+    $handle->blacklist;
+    $handle->init;
+    return $handle;
+}
+
+sub init { return } # no-op
+
+###########################################################################
+
+sub maketext {
+    # Remember, this can fail.  Failure is controllable many ways.
+    Carp::croak 'maketext requires at least one parameter' unless @_ > 1;
+
+    my($handle, $phrase) = splice(@_,0,2);
+    Carp::confess('No handle/phrase') unless (defined($handle) && defined($phrase));
+
+    # backup $@ in case it's still being used in the calling code.
+    # If no failures, we'll re-set it back to what it was later.
+    my $at = $@;
+
+    # Copy @_ case one of its elements is $@.
+    @_ = @_;
+
+    # Look up the value:
+
+    my $value;
+    if (exists $handle->{'_external_lex_cache'}{$phrase}) {
+        DEBUG and warn "* Using external lex cache version of \"$phrase\"\n";
+        $value = $handle->{'_external_lex_cache'}{$phrase};
+    }
+    else {
+        foreach my $h_r (
+            @{  $isa_scan{ref($handle) || $handle} || $handle->_lex_refs  }
+        ) {
+            DEBUG and warn "* Looking up \"$phrase\" in $h_r\n";
+            if(exists $h_r->{$phrase}) {
+                DEBUG and warn "  Found \"$phrase\" in $h_r\n";
+                unless(ref($value = $h_r->{$phrase})) {
+                    # Nonref means it's not yet compiled.  Compile and replace.
+                    if ($handle->{'use_external_lex_cache'}) {
+                        $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($value);
+                    }
+                    else {
+                        $value = $h_r->{$phrase} = $handle->_compile($value);
+                    }
+                }
+                last;
+            }
+            # extending packages need to be able to localize _AUTO and if readonly can't "local $h_r->{'_AUTO'} = 1;"
+            # but they can "local $handle->{'_external_lex_cache'}{'_AUTO'} = 1;"
+            elsif($phrase !~ m/^_/s and ($handle->{'use_external_lex_cache'} ? ( exists $handle->{'_external_lex_cache'}{'_AUTO'} ? $handle->{'_external_lex_cache'}{'_AUTO'} : $h_r->{'_AUTO'} ) : $h_r->{'_AUTO'})) {
+                # it's an auto lex, and this is an autoable key!
+                DEBUG and warn "  Automaking \"$phrase\" into $h_r\n";
+                if ($handle->{'use_external_lex_cache'}) {
+                    $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($phrase);
+                }
+                else {
+                    $value = $h_r->{$phrase} = $handle->_compile($phrase);
+                }
+                last;
+            }
+            DEBUG>1 and print "  Not found in $h_r, nor automakable\n";
+            # else keep looking
+        }
+    }
+
+    unless(defined($value)) {
+        DEBUG and warn "! Lookup of \"$phrase\" in/under ", ref($handle) || $handle, " fails.\n";
+        if(ref($handle) and $handle->{'fail'}) {
+            DEBUG and warn "WARNING0: maketext fails looking for <$phrase>\n";
+            my $fail;
+            if(ref($fail = $handle->{'fail'}) eq 'CODE') { # it's a sub reference
+                $@ = $at; # Put $@ back in case we altered it along the way.
+                return &{$fail}($handle, $phrase, @_);
+                # If it ever returns, it should return a good value.
+            }
+            else { # It's a method name
+                $@ = $at; # Put $@ back in case we altered it along the way.
+                return $handle->$fail($phrase, @_);
+                # If it ever returns, it should return a good value.
+            }
+        }
+        else {
+            # All we know how to do is this;
+            Carp::croak("maketext doesn't know how to say:\n$phrase\nas needed");
+        }
+    }
+
+    if(ref($value) eq 'SCALAR'){
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $$value ;
+    }
+    if(ref($value) ne 'CODE'){
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $value ;
+    }
+
+    {
+        local $SIG{'__DIE__'};
+        eval { $value = &$value($handle, @_) };
+    }
+    # If we make it here, there was an exception thrown in the
+    #  call to $value, and so scream:
+    if ($@) {
+        # pretty up the error message
+        $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?}
+                 {\n in bracket code [compiled line $1],}s;
+        #$err =~ s/\n?$/\n/s;
+        Carp::croak "Error in maketexting \"$phrase\":\n$@ as used";
+        # Rather unexpected, but suppose that the sub tried calling
+        # a method that didn't exist.
+    }
+    else {
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $value;
+    }
+    $@ = $at; # Put $@ back in case we altered it along the way.
+}
+
+###########################################################################
+
+sub get_handle {  # This is a constructor and, yes, it CAN FAIL.
+    # Its class argument has to be the base class for the current
+    # application's l10n files.
+
+    my($base_class, @languages) = @_;
+    $base_class = ref($base_class) || $base_class;
+    # Complain if they use __PACKAGE__ as a project base class?
+
+    if( @languages ) {
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        if($USING_LANGUAGE_TAGS) {   # An explicit language-list was given!
+            @languages =
+            map {; $_, I18N::LangTags::alternate_language_tags($_) }
+            # Catch alternation
+            map I18N::LangTags::locale2language_tag($_),
+            # If it's a lg tag, fine, pass thru (untainted)
+            # If it's a locale ID, try converting to a lg tag (untainted),
+            # otherwise nix it.
+            @languages;
+            DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        }
+    }
+    else {
+        @languages = $base_class->_ambient_langprefs;
+    }
+
+    @languages = $base_class->_langtag_munging(@languages);
+
+    my %seen;
+    foreach my $module_name ( map { $base_class . '::' . $_ }  @languages ) {
+        next unless length $module_name; # sanity
+        next if $seen{$module_name}++        # Already been here, and it was no-go
+        || !&_try_use($module_name); # Try to use() it, but can't it.
+        return($module_name->new); # Make it!
+    }
+
+    return undef; # Fail!
+}
+
+###########################################################################
+
+sub _langtag_munging {
+    my($base_class, @languages) = @_;
+
+    # We have all these DEBUG statements because otherwise it's hard as hell
+    # to diagnose if/when something goes wrong.
+
+    DEBUG and warn 'Lgs1: ', map("<$_>", @languages), "\n";
+
+    if($USING_LANGUAGE_TAGS) {
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages     = $base_class->_add_supers( @languages );
+
+        push @languages, I18N::LangTags::panic_languages(@languages);
+        DEBUG and warn "After adding panic languages:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+        push @languages, $base_class->fallback_languages;
+        # You are free to override fallback_languages to return empty-list!
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+        @languages =  # final bit of processing to turn them into classname things
+        map {
+            my $it = $_;  # copy
+            $it =~ tr<-A-Z><_a-z>; # lc, and turn - to _
+            $it =~ tr<_a-z0-9><>cd;  # remove all but a-z0-9_
+            $it;
+        } @languages
+        ;
+        DEBUG and warn "Nearing end of munging:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+    else {
+        DEBUG and warn "Bypassing language-tags.\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+
+    DEBUG and warn "Before adding fallback classes:\n",
+    ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    push @languages, $base_class->fallback_language_classes;
+    # You are free to override that to return whatever.
+
+    DEBUG and warn "Finally:\n",
+    ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    return @languages;
+}
+
+###########################################################################
+
+sub _ambient_langprefs {
+    return  I18N::LangTags::Detect::detect();
+}
+
+###########################################################################
+
+sub _add_supers {
+    my($base_class, @languages) = @_;
+
+    if (!$MATCH_SUPERS) {
+        # Nothing
+        DEBUG and warn "Bypassing any super-matching.\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    }
+    elsif( $MATCH_SUPERS_TIGHTLY ) {
+        DEBUG and warn "Before adding new supers tightly:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages = I18N::LangTags::implicate_supers( @languages );
+        DEBUG and warn "After adding new supers tightly:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    }
+    else {
+        DEBUG and warn "Before adding supers to end:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages = I18N::LangTags::implicate_supers_strictly( @languages );
+        DEBUG and warn "After adding supers to end:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+
+    return @languages;
+}
+
+###########################################################################
+#
+# This is where most people should stop reading.
+#
+###########################################################################
+
+my %tried = ();
+# memoization of whether we've used this module, or found it unusable.
+
+sub _try_use {   # Basically a wrapper around "require Modulename"
+    # "Many men have tried..."  "They tried and failed?"  "They tried and died."
+    return $tried{$_[0]} if exists $tried{$_[0]};  # memoization
+
+    my $module = $_[0];   # ASSUME sane module name!
+    { no strict 'refs';
+        no warnings 'once';
+        return($tried{$module} = 1)
+        if %{$module . '::Lexicon'} or @{$module . '::ISA'};
+        # weird case: we never use'd it, but there it is!
+    }
+
+    DEBUG and warn " About to use $module ...\n";
+
+    local $SIG{'__DIE__'};
+    local $@;
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval "require $module"; # used to be "use $module", but no point in that.
+
+    if($@) {
+        DEBUG and warn "Error using $module \: $@\n";
+        return $tried{$module} = 0;
+    }
+    else {
+        DEBUG and warn " OK, $module is used\n";
+        return $tried{$module} = 1;
+    }
+}
+
+#--------------------------------------------------------------------------
+
+sub _lex_refs {  # report the lexicon references for this handle's class
+    # returns an arrayREF!
+    no strict 'refs';
+    no warnings 'once';
+    my $class = ref($_[0]) || $_[0];
+    DEBUG and warn "Lex refs lookup on $class\n";
+    return $isa_scan{$class} if exists $isa_scan{$class};  # memoization!
+
+    my @lex_refs;
+    my $seen_r = ref($_[1]) ? $_[1] : {};
+
+    if( defined( *{$class . '::Lexicon'}{'HASH'} )) {
+        push @lex_refs, *{$class . '::Lexicon'}{'HASH'};
+        DEBUG and warn '%' . $class . '::Lexicon contains ',
+            scalar(keys %{$class . '::Lexicon'}), " entries\n";
+    }
+
+    # Implements depth(height?)-first recursive searching of superclasses.
+    # In hindsight, I suppose I could have just used Class::ISA!
+    foreach my $superclass (@{$class . '::ISA'}) {
+        DEBUG and warn " Super-class search into $superclass\n";
+        next if $seen_r->{$superclass}++;
+        push @lex_refs, @{&_lex_refs($superclass, $seen_r)};  # call myself
+    }
+
+    $isa_scan{$class} = \@lex_refs; # save for next time
+    return \@lex_refs;
+}
+
+sub clear_isa_scan { %isa_scan = (); return; } # end on a note of simplicity!
+
+#--------------------------------------------------------------------------
+
+sub _compile {
+    # This big scary routine compiles an entry.
+    # It returns either a coderef if there's brackety bits in this, or
+    #  otherwise a ref to a scalar.
+
+    my $string_to_compile = $_[1]; # There are taint issues using regex on @_ - perlbug 60378,27344
+
+    # The while() regex is more expensive than this check on strings that don't need a compile.
+    # this op causes a ~2% speed hit for strings that need compile and a 250% speed improvement
+    # on strings that don't need compiling.
+    return \"$string_to_compile" if($string_to_compile !~ m/[\[~\]]/ms); # return a string ref if chars [~] are not in the string
+
+    my $handle = $_[0];
+
+    my(@code);
+    my(@c) = (''); # "chunks" -- scratch.
+    my $call_count = 0;
+    my $big_pile = '';
+    {
+        my $in_group = 0; # start out outside a group
+        my($m, @params); # scratch
+
+        while($string_to_compile =~  # Iterate over chunks.
+            m/(
+                [^\~\[\]]+  # non-~[] stuff (Capture everything else here)
+                |
+                ~.       # ~[, ~], ~~, ~other
+                |
+                \[          # [ presumably opening a group
+                |
+                \]          # ] presumably closing a group
+                |
+                ~           # terminal ~ ?
+                |
+                $
+            )/xgs
+        ) {
+            DEBUG>2 and warn qq{  "$1"\n};
+
+            if($1 eq '[' or $1 eq '') {       # "[" or end
+                # Whether this is "[" or end, force processing of any
+                #  preceding literal.
+                if($in_group) {
+                    if($1 eq '') {
+                        $handle->_die_pointing($string_to_compile, 'Unterminated bracket group');
+                    }
+                    else {
+                        $handle->_die_pointing($string_to_compile, 'You can\'t nest bracket groups');
+                    }
+                }
+                else {
+                    if ($1 eq '') {
+                        DEBUG>2 and warn "   [end-string]\n";
+                    }
+                    else {
+                        $in_group = 1;
+                    }
+                    die "How come \@c is empty?? in <$string_to_compile>" unless @c; # sanity
+                    if(length $c[-1]) {
+                        # Now actually processing the preceding literal
+                        $big_pile .= $c[-1];
+                        if($USE_LITERALS and (
+                                (ord('A') == 65)
+                                ? $c[-1] !~ m/[^\x20-\x7E]/s
+                                # ASCII very safe chars
+                                : $c[-1] !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s
+                                # EBCDIC very safe chars
+                            )) {
+                            # normal case -- all very safe chars
+                            $c[-1] =~ s/'/\\'/g;
+                            push @code, q{ '} . $c[-1] . "',\n";
+                            $c[-1] = ''; # reuse this slot
+                        }
+                        else {
+                            $c[-1] =~ s/\\\\/\\/g;
+                            push @code, ' $c[' . $#c . "],\n";
+                            push @c, ''; # new chunk
+                        }
+                    }
+                    # else just ignore the empty string.
+                }
+
+            }
+            elsif($1 eq ']') {  # "]"
+                # close group -- go back in-band
+                if($in_group) {
+                    $in_group = 0;
+
+                    DEBUG>2 and warn "   --Closing group [$c[-1]]\n";
+
+                    # And now process the group...
+
+                    if(!length($c[-1]) or $c[-1] =~ m/^\s+$/s) {
+                        DEBUG>2 and warn "   -- (Ignoring)\n";
+                        $c[-1] = ''; # reset out chink
+                        next;
+                    }
+
+                    #$c[-1] =~ s/^\s+//s;
+                    #$c[-1] =~ s/\s+$//s;
+                    ($m,@params) = split(/,/, $c[-1], -1);  # was /\s*,\s*/
+
+                    # A bit of a hack -- we've turned "~,"'s into DELs, so turn
+                    #  'em into real commas here.
+                    if (ord('A') == 65) { # ASCII, etc
+                        foreach($m, @params) { tr/\x7F/,/ }
+                    }
+                    else {              # EBCDIC (1047, 0037, POSIX-BC)
+                        # Thanks to Peter Prymmer for the EBCDIC handling
+                        foreach($m, @params) { tr/\x07/,/ }
+                    }
+
+                    # Special-case handling of some method names:
+                    if($m eq '_*' or $m =~ m/^_(-?\d+)$/s) {
+                        # Treat [_1,...] as [,_1,...], etc.
+                        unshift @params, $m;
+                        $m = '';
+                    }
+                    elsif($m eq '*') {
+                        $m = 'quant'; # "*" for "times": "4 cars" is 4 times "cars"
+                    }
+                    elsif($m eq '#') {
+                        $m = 'numf';  # "#" for "number": [#,_1] for "the number _1"
+                    }
+
+                    # Most common case: a simple, legal-looking method name
+                    if($m eq '') {
+                        # 0-length method name means to just interpolate:
+                        push @code, ' (';
+                    }
+                    elsif($m =~ /^\w+$/s
+                        && !$handle->{'blacklist'}{$m}
+                        && ( !defined $handle->{'whitelist'} || $handle->{'whitelist'}{$m} )
+                        # exclude anything fancy and restrict to the whitelist/blacklist.
+                    ) {
+                        push @code, ' $_[0]->' . $m . '(';
+                    }
+                    else {
+                        # TODO: implement something?  or just too icky to consider?
+                        $handle->_die_pointing(
+                            $string_to_compile,
+                            "Can't use \"$m\" as a method name in bracket group",
+                            2 + length($c[-1])
+                        );
+                    }
+
+                    pop @c; # we don't need that chunk anymore
+                    ++$call_count;
+
+                    foreach my $p (@params) {
+                        if($p eq '_*') {
+                            # Meaning: all parameters except $_[0]
+                            $code[-1] .= ' @_[1 .. $#_], ';
+                            # and yes, that does the right thing for all @_ < 3
+                        }
+                        elsif($p =~ m/^_(-?\d+)$/s) {
+                            # _3 meaning $_[3]
+                            $code[-1] .= '$_[' . (0 + $1) . '], ';
+                        }
+                        elsif($USE_LITERALS and (
+                                (ord('A') == 65)
+                                ? $p !~ m/[^\x20-\x7E]/s
+                                # ASCII very safe chars
+                                : $p !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s
+                                # EBCDIC very safe chars
+                            )) {
+                            # Normal case: a literal containing only safe characters
+                            $p =~ s/'/\\'/g;
+                            $code[-1] .= q{'} . $p . q{', };
+                        }
+                        else {
+                            # Stow it on the chunk-stack, and just refer to that.
+                            push @c, $p;
+                            push @code, ' $c[' . $#c . '], ';
+                        }
+                    }
+                    $code[-1] .= "),\n";
+
+                    push @c, '';
+                }
+                else {
+                    $handle->_die_pointing($string_to_compile, q{Unbalanced ']'});
+                }
+
+            }
+            elsif(substr($1,0,1) ne '~') {
+                # it's stuff not containing "~" or "[" or "]"
+                # i.e., a literal blob
+                my $text = $1;
+                $text =~ s/\\/\\\\/g;
+                $c[-1] .= $text;
+
+            }
+            elsif($1 eq '~~') { # "~~"
+                $c[-1] .= '~';
+
+            }
+            elsif($1 eq '~[') { # "~["
+                $c[-1] .= '[';
+
+            }
+            elsif($1 eq '~]') { # "~]"
+                $c[-1] .= ']';
+
+            }
+            elsif($1 eq '~,') { # "~,"
+                if($in_group) {
+                    # This is a hack, based on the assumption that no-one will actually
+                    # want a DEL inside a bracket group.  Let's hope that's it's true.
+                    if (ord('A') == 65) { # ASCII etc
+                        $c[-1] .= "\x7F";
+                    }
+                    else {              # EBCDIC (cp 1047, 0037, POSIX-BC)
+                        $c[-1] .= "\x07";
+                    }
+                }
+                else {
+                    $c[-1] .= '~,';
+                }
+
+            }
+            elsif($1 eq '~') { # possible only at string-end, it seems.
+                $c[-1] .= '~';
+
+            }
+            else {
+                # It's a "~X" where X is not a special character.
+                # Consider it a literal ~ and X.
+                my $text = $1;
+                $text =~ s/\\/\\\\/g;
+                $c[-1] .= $text;
+            }
+        }
+    }
+
+    if($call_count) {
+        undef $big_pile; # Well, nevermind that.
+    }
+    else {
+        # It's all literals!  Ahwell, that can happen.
+        # So don't bother with the eval.  Return a SCALAR reference.
+        return \$big_pile;
+    }
+
+    die q{Last chunk isn't null??} if @c and length $c[-1]; # sanity
+    DEBUG and warn scalar(@c), " chunks under closure\n";
+    if(@code == 0) { # not possible?
+        DEBUG and warn "Empty code\n";
+        return \'';
+    }
+    elsif(@code > 1) { # most cases, presumably!
+        unshift @code, "join '',\n";
+    }
+    unshift @code, "use strict; sub {\n";
+    push @code, "}\n";
+
+    DEBUG and warn @code;
+    my $sub = eval(join '', @code);
+    die "$@ while evalling" . join('', @code) if $@; # Should be impossible.
+    return $sub;
+}
+
+#--------------------------------------------------------------------------
+
+sub _die_pointing {
+    # This is used by _compile to throw a fatal error
+    my $target = shift;
+    $target = ref($target) || $target; # class name
+                                       # ...leaving $_[0] the error-causing text, and $_[1] the error message
+
+    my $i = index($_[0], "\n");
+
+    my $pointy;
+    my $pos = pos($_[0]) - (defined($_[2]) ? $_[2] : 0) - 1;
+    if($pos < 1) {
+        $pointy = "^=== near there\n";
+    }
+    else { # we need to space over
+        my $first_tab = index($_[0], "\t");
+        if($pos > 2 and ( -1 == $first_tab  or  $first_tab > pos($_[0]))) {
+            # No tabs, or the first tab is harmlessly after where we will point to,
+            # AND we're far enough from the margin that we can draw a proper arrow.
+            $pointy = ('=' x $pos) . "^ near there\n";
+        }
+        else {
+            # tabs screw everything up!
+            $pointy = substr($_[0],0,$pos);
+            $pointy =~ tr/\t //cd;
+            # make everything into whitespace, but preserving tabs
+            $pointy .= "^=== near there\n";
+        }
+    }
+
+    my $errmsg = "$_[1], in\:\n$_[0]";
+
+    if($i == -1) {
+        # No newline.
+        $errmsg .= "\n" . $pointy;
+    }
+    elsif($i == (length($_[0]) - 1)  ) {
+        # Already has a newline at end.
+        $errmsg .= $pointy;
+    }
+    else {
+        # don't bother with the pointy bit, I guess.
+    }
+    Carp::croak( "$errmsg via $target, as used" );
+}
+
+1;
+package Locale::Codes;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+###############################################################################
+
+use strict;
+use warnings;
+require 5.006;
+
+use Carp;
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes::Constants;
+
+our($VERSION);
+$VERSION='3.56';
+
+use Exporter qw(import);
+our(@EXPORT_OK,%EXPORT_TAGS);
+@EXPORT_OK   = @Locale::Codes::Constants::CONSTANTS;
+%EXPORT_TAGS = ( 'constants' => [ @EXPORT_OK ] );
+
+###############################################################################
+# GLOBAL DATA
+###############################################################################
+# All of the data is stored in a couple global variables.  They are filled
+# in by requiring the appropriate TYPE_Codes and TYPE_Retired modules.
+
+our(%Data,%Retired);
+
+# $Data{ TYPE }{ code2id   }{ CODESET } { CODE }  = [ ID, I ]
+#              { id2code   }{ CODESET } { ID }    = CODE
+#              { id2names  }{ ID }                = [ NAME, NAME, ... ]
+#              { alias2id  }{ NAME }              = [ ID, I ]
+#              { id        }                      = FIRST_UNUSED_ID
+#              { codealias }{ CODESET } { ALIAS } = CODE
+#
+# $Retired{ TYPE }{ CODESET }{ code }{ CODE } = NAME
+#                            { name }{ NAME } = [CODE,NAME]  (the key is lowercase)
+
+###############################################################################
+# METHODS
+###############################################################################
+
+sub new {
+   my($class,$type,$codeset,$show_errors) = @_;
+   my $self         = { 'type'     => '',
+                        'codeset'  => '',
+                        'err'      => (defined($show_errors) ? $show_errors : 1),
+                      };
+
+   bless $self,$class;
+
+   $self->type($type)        if ($type);
+   $self->codeset($codeset)  if ($codeset);
+   return $self;
+}
+
+sub show_errors {
+   my($self,$val) = @_;
+   $$self{'err'}  = $val;
+}
+
+sub type {
+   my($self,$type) = @_;
+
+   if (! exists $ALL_CODESETS{$type}) {
+      # uncoverable branch false
+      carp "ERROR: type: invalid argument: $type\n"  if ($$self{'err'});
+      return;
+   }
+
+   # uncoverable branch false
+   if (! $ALL_CODESETS{$type}{'loaded'}) {
+      my $label = $ALL_CODESETS{$type}{'module'};
+      eval "require Locale::Codes::${label}_Codes";
+      # uncoverable branch true
+      if ($@) {
+         # uncoverable statement
+         croak "ERROR: type: unable to load module: ${label}_Codes\n";
+      }
+      eval "require Locale::Codes::${label}_Retired";
+      # uncoverable branch true
+      if ($@) {
+         # uncoverable statement
+         croak "ERROR: type: unable to load module: ${label}_Retired\n";
+      }
+      $ALL_CODESETS{$type}{'loaded'} = 1;
+   }
+
+   $$self{'type'}    = $type;
+   $$self{'codeset'} = $ALL_CODESETS{$type}{'default'};
+}
+
+sub codeset {
+   my($self,$codeset) = @_;
+
+   my $type           = $$self{'type'};
+   if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset}) {
+      # uncoverable branch false
+      carp "ERROR: codeset: invalid argument: $codeset\n"  if ($$self{'err'});
+   }
+
+   $$self{'codeset'}  = $codeset;
+}
+
+sub version {
+  # uncoverable subroutine
+  # uncoverable statement
+  my($self) = @_;
+  # uncoverable statement
+  return $VERSION;
+}
+
+###############################################################################
+
+# This is used to validate a codeset and/or code.  It will also format
+# a code for that codeset.
+#
+# (ERR,RET_CODE,RET_CODESET) = $o->_code([CODE [,CODESET]])
+#
+#    If CODE is empty/undef, only the codeset will be validated
+#    and RET_CODE will be empty.
+#
+#    If CODE is passed in, it will be returned formatted correctly
+#    for the codeset.
+#
+#    ERR will be 0 or 1.
+#
+#    If $no_check_code is 1, then the code will not be validated (i.e.
+#    it doesn't already have to exist).  This will be useful for adding
+#    a new code.
+#
+sub _code {
+   my($self,$code,$codeset,$no_check_code) = @_;
+   $code                    = ''  if (! defined($code));
+   $codeset                 = lc($codeset)  if (defined($codeset));
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+   if ($codeset  &&  ! exists $ALL_CODESETS{$type}{'codesets'}{$codeset}) {
+      carp "ERROR: _code: invalid codeset provided: $codeset\n"
+        if ($$self{'err'});
+      return (1);
+   }
+
+   # If no codeset was passed in, return the codeset specified.
+
+   $codeset = $$self{'codeset'}  if (! defined($codeset)  ||  $codeset eq '');
+   return (0,'',$codeset)        if ($code eq '');
+
+   # Determine the properties of the codeset
+
+   my($op,@args) = @{ $ALL_CODESETS{$type}{'codesets'}{$codeset} };
+
+   if      ($op eq 'lc') {
+      $code = lc($code);
+   }
+
+   if ($op eq 'uc') {
+      $code = uc($code);
+   }
+
+   if ($op eq 'ucfirst') {
+      $code = ucfirst(lc($code));
+   }
+
+   # uncoverable branch false
+   if ($op eq 'numeric') {
+      if ($code =~ /^\d+$/) {
+         my $l = $args[0];
+         $code    = sprintf("%.${l}d", $code);
+
+      } else {
+         # uncoverable statement
+         carp "ERROR: _code: invalid numeric code: $code\n"  if ($$self{'err'});
+         # uncoverable statement
+         return (1);
+      }
+   }
+
+   # Determine if the code is in the codeset.
+
+   if (! $no_check_code  &&
+       ! exists $Data{$type}{'code2id'}{$codeset}{$code}  &&
+       ! exists $Retired{$type}{$codeset}{'code'}{$code}  &&
+       ! exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      carp "ERROR: _code: code not in codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      return (1);
+   }
+
+   return (0,$code,$codeset);
+}
+
+###############################################################################
+
+# $name = $o->code2name(CODE [,CODESET] [,'retired'])
+# $code = $o->name2code(NAME [,CODESET] [,'retired'])
+#
+#    Returns the name associated with the CODE (or vice versa).
+#
+sub code2name {
+   my($self,@args)   = @_;
+   my $retired       = 0;
+   if (@args  &&  defined($args[$#args])  &&  lc($args[$#args]) eq 'retired') {
+      pop(@args);
+      $retired       = 1;
+   }
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+
+   my ($err,$code,$codeset) = $self->_code(@args);
+   return undef  if ($err  ||  ! $code);
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   if (exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      my ($id,$i) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
+      my $name    = $Data{$type}{'id2names'}{$id}[$i];
+      return $name;
+
+   } elsif ($retired  &&  exists $Retired{$type}{$codeset}{'code'}{$code}) {
+      return $Retired{$type}{$codeset}{'code'}{$code};
+
+   } else {
+      return undef;
+   }
+}
+
+sub name2code {
+   my($self,$name,@args)   = @_;
+   return undef  if (! $name);
+   $name                   = lc($name);
+
+   my $retired       = 0;
+   if (@args  &&  defined($args[$#args])  &&  lc($args[$#args]) eq 'retired') {
+      pop(@args);
+      $retired       = 1;
+   }
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+
+   my ($err,$tmp,$codeset) = $self->_code('',@args);
+   return undef  if ($err);
+
+   if (exists $Data{$type}{'alias2id'}{$name}) {
+      my $id = $Data{$type}{'alias2id'}{$name}[0];
+      if (exists $Data{$type}{'id2code'}{$codeset}{$id}) {
+         return $Data{$type}{'id2code'}{$codeset}{$id};
+      }
+
+   } elsif ($retired  &&  exists $Retired{$type}{$codeset}{'name'}{$name}) {
+      return $Retired{$type}{$codeset}{'name'}{$name}[0];
+   }
+
+   return undef;
+}
+
+# $code = $o->code2code(CODE,CODESET2)
+# $code = $o->code2code(CODE,CODESET1,CODESET2)
+#
+#    Changes the code in the CODESET1 (or the current codeset) to another
+#    codeset (CODESET2)
+#
+sub code2code {
+   my($self,@args) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+
+   my($code,$codeset1,$codeset2,$err);
+
+   if (@args == 2) {
+      ($code,$codeset2)      = @args;
+      ($err,$code,$codeset1) = $self->_code($code);
+      # uncoverable branch true
+      return undef  if ($err);
+
+   } elsif (@args == 3) {
+      ($code,$codeset1,$codeset2) = @args;
+      ($err,$code)                = $self->_code($code,$codeset1);
+      return undef  if ($err);
+      ($err)                      = $self->_code('',$codeset2);
+      # uncoverable branch true
+      return undef  if ($err);
+   }
+
+   my $name    = $self->code2name($code,$codeset1);
+   my $out     = $self->name2code($name,$codeset2);
+   return $out;
+}
+
+###############################################################################
+
+# @codes = $o->all_codes([CODESET] [,'retired']);
+# @names = $o->all_names([CODESET] [,'retired']);
+#
+#    Returns all codes/names in the specified codeset, including retired
+#    ones if the option is given.
+
+sub all_codes {
+   my($self,@args)   = @_;
+   my $retired       = 0;
+   if (@args  &&  defined($args[$#args])  &&  lc($args[$#args]) eq 'retired') {
+      pop(@args);
+      $retired       = 1;
+   }
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+
+   my ($err,$tmp,$codeset) = $self->_code('',@args);
+   return ()  if ($err);
+
+   my @codes = keys %{ $Data{$type}{'code2id'}{$codeset} };
+   push(@codes,keys %{ $Retired{$type}{$codeset}{'code'} })  if ($retired);
+   return (sort @codes);
+}
+
+sub all_names {
+   my($self,@args)   = @_;
+   my $retired       = 0;
+   if (@args  &&  defined($args[$#args])  &&  lc($args[$#args]) eq 'retired') {
+      pop(@args);
+      $retired       = 1;
+   }
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return (1);
+   }
+   my $type = $$self{'type'};
+
+   my ($err,$tmp,$codeset) = $self->_code('',@args);
+   return ()  if ($err);
+
+   my @codes = $self->all_codes($codeset);
+   my @names;
+
+   foreach my $code (@codes) {
+      my($id,$i) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
+      my $name   = $Data{$type}{'id2names'}{$id}[$i];
+      push(@names,$name);
+   }
+   if ($retired) {
+      foreach my $lc (keys %{ $Retired{$type}{$codeset}{'name'} }) {
+         my $name = $Retired{$type}{$codeset}{'name'}{$lc}[1];
+         push @names,$name;
+      }
+   }
+   return (sort @names);
+}
+
+###############################################################################
+
+# $flag = $o->rename_code (CODE,NEW_NAME [,CODESET])
+#
+# Change the official name for a code. The original is retained
+# as an alias, but the new name will be returned if you lookup the
+# name from code.
+#
+# Returns 1 on success.
+#
+sub rename_code {
+   my($self,$code,$new_name,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure $code/$codeset are both valid
+
+   my($err,$c,$cs) = $self->_code($code,$codeset);
+   if ($err) {
+      carp "ERROR: rename: Unknown code/codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      return 0;
+   }
+   ($code,$codeset) = ($c,$cs);
+
+   # Cases:
+   #   1. Renaming to a name which exists with a different ID
+   #      Error
+   #
+   #   2. Renaming to a name which exists with the same ID
+   #      Just change code2id (I value)
+   #
+   #   3. Renaming to a new name
+   #      Create a new alias
+   #      Change code2id (I value)
+
+   my $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+
+   if (exists $Data{$type}{'alias2id'}{lc($new_name)}) {
+      # Existing name (case 1 and 2)
+
+      my ($new_id,$i) = @{ $Data{$type}{'alias2id'}{lc($new_name)} };
+      if ($new_id != $id) {
+         # Case 1
+         carp "ERROR: rename: rename to an existing name not allowed\n"
+           if ($$self{'err'});
+         return 0;
+      }
+
+      # Case 2
+
+      $Data{$type}{'code2id'}{$codeset}{$code}[1] = $i;
+
+   } else {
+
+      # Case 3
+
+      push @{ $Data{$type}{'id2names'}{$id} },$new_name;
+      my $i = $#{ $Data{$type}{'id2names'}{$id} };
+      $Data{$type}{'alias2id'}{lc($new_name)} = [ $id,$i ];
+      $Data{$type}{'code2id'}{$codeset}{$code}[1] = $i;
+   }
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->add_code (CODE,NAME [,CODESET])
+#
+# Add a new code to the codeset. Both CODE and NAME must be
+# unused in the code set.
+#
+sub add_code {
+   my($self,$code,$name,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure that $codeset is valid.
+
+   my($err,$c,$cs) = $self->_code($code,$codeset,1);
+   if ($err) {
+      carp "ERROR: rename: Unknown codeset: $codeset\n"
+        if ($$self{'err'});
+      return 0;
+   }
+  ($code,$codeset) = ($c,$cs);
+
+   # Check that $code is unused.
+
+   if (exists $Data{$type}{'code2id'}{$codeset}{$code}  ||
+       exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      carp "add_code: code already in use: $code\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   # Check to see that $name is unused in this code set.  If it is
+   # used (but not in this code set), we'll use that ID.  Otherwise,
+   # we'll need to get the next available ID.
+
+   my ($id,$i);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
+      if (exists $Data{$type}{'id2code'}{$codeset}{$id}) {
+         carp "add_code: name already in use: $name\n"  if ($$self{'err'});
+         return 0;
+      }
+
+   } else {
+      $id = $Data{$type}{'id'}++;
+      $i  = 0;
+      $Data{$type}{'alias2id'}{lc($name)} = [ $id,$i ];
+      $Data{$type}{'id2names'}{$id}       = [ $name ];
+   }
+
+   # Add the new code
+
+   $Data{$type}{'code2id'}{$codeset}{$code} = [ $id,$i ];
+   $Data{$type}{'id2code'}{$codeset}{$id}   = $code;
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->delete_code (CODE [,CODESET])
+#
+# Delete a code from the codeset.
+#
+sub delete_code {
+   my($self,$code,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure $code/$codeset are both valid
+
+   my($err,$c,$cs) = $self->_code($code,$codeset);
+   # uncoverable branch true
+   if ($err) {
+      # uncoverable statement
+      carp "ERROR: rename: Unknown code/codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   ($code,$codeset) = ($c,$cs);
+
+   # Delete the code
+
+   my $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+   delete $Data{$type}{'code2id'}{$codeset}{$code};
+   delete $Data{$type}{'id2code'}{$codeset}{$id};
+
+   # Delete any aliases that are linked to this code
+
+   foreach my $alias (keys %{ $Data{$type}{'codealias'}{$codeset} }) {
+      next  if ($Data{$type}{'codealias'}{$codeset}{$alias} ne $code);
+      delete $Data{$type}{'codealias'}{$codeset}{$alias};
+   }
+
+   # If this ID is not used in any other codeset, delete it completely.
+
+   foreach my $c (keys %{ $Data{$type}{'id2code'} }) {
+      return 1  if (exists $Data{$type}{'id2code'}{$c}{$id});
+   }
+
+   my @names = @{ $Data{$type}{'id2names'}{$id} };
+   delete $Data{$type}{'id2names'}{$id};
+
+   foreach my $name (@names) {
+      delete $Data{$type}{'alias2id'}{lc($name)};
+   }
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->add_alias (NAME,NEW_NAME)
+#
+# Add a new alias. NAME must exist, and NEW_NAME must be unused.
+#
+sub add_alias {
+   my($self,$name,$new_name) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Check that $name is used and $new_name is new.
+
+   my($id);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      $id = $Data{$type}{'alias2id'}{lc($name)}[0];
+   } else {
+      carp "add_alias: name does not exist: $name\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   if (exists $Data{$type}{'alias2id'}{lc($new_name)}) {
+      carp "add_alias: alias already in use: $new_name\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   # Add the new alias
+
+   push @{ $Data{$type}{'id2names'}{$id} },$new_name;
+   my $i = $#{ $Data{$type}{'id2names'}{$id} };
+   $Data{$type}{'alias2id'}{lc($new_name)} = [ $id,$i ];
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->delete_alias (NAME)
+#
+# This deletes a name from the list of names used by an element.
+# NAME must be used, but must NOT be the only name in the list.
+#
+# Any id2name that references this name will be changed to
+# refer to the first name in the list.
+#
+sub delete_alias {
+   my($self,$name) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Check that $name is used.
+
+   my($id,$i);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
+   } else {
+      carp "delete_alias: name does not exist: $name\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   my $n = $#{ $Data{$type}{'id2names'}{$id} } + 1;
+   if ($n == 1) {
+      carp "delete_alias: only one name defined (use delete_code instead)\n"
+        if ($$self{'err'});
+      return 0;
+   }
+
+   # Delete the alias.
+
+   splice (@{ $Data{$type}{'id2names'}{$id} },$i,1);
+   delete $Data{$type}{'alias2id'}{lc($name)};
+
+   # Every element that refers to this ID:
+   #   Ignore     if I < $i
+   #   Set to 0   if I = $i
+   #   Decrement  if I > $i
+
+   foreach my $codeset (keys %{ $Data{$type}{'code2id'} }) {
+      foreach my $code (keys %{ $Data{$type}{'code2id'}{$codeset} }) {
+         my($jd,$j) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
+         next  if ($jd ne $id  ||
+                   $j < $i);
+         if ($i == $j) {
+            $Data{$type}{'code2id'}{$codeset}{$code}[1] = 0;
+         } else {
+            $Data{$type}{'code2id'}{$codeset}{$code}[1]--;
+         }
+      }
+   }
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->replace_code (CODE,NEW_CODE [,CODESET])
+#
+# Change the official code. The original is retained as an alias, but
+# the new code will be returned if do a name2code lookup.
+#
+sub replace_code {
+   my($self,$code,$new_code,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure $code/$codeset are both valid (and that $new_code is the
+   # correct format)
+
+   my($err,$c,$cs) = $self->_code($code,$codeset);
+   if ($err) {
+      carp "ERROR: rename_code: Unknown code/codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      return 0;
+   }
+   ($code,$codeset) = ($c,$cs);
+
+   ($err,$new_code,$codeset) = $self->_code($new_code,$codeset,1);
+
+   # Cases:
+   #   1. Renaming code to an existing alias of this code:
+   #      Make the alias real and the code an alias
+   #
+   #   2. Renaming code to some other existing alias:
+   #      Error
+   #
+   #   3. Renaming code to some other code:
+   #      Error (
+   #
+   #   4. Renaming code to a new code:
+   #      Make code into an alias
+   #      Replace code with new_code.
+
+   if (exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
+      # Cases 1 and 2
+      if ($Data{$type}{'codealias'}{$codeset}{$new_code} eq $code) {
+         # Case 1
+
+         delete $Data{$type}{'codealias'}{$codeset}{$new_code};
+
+      } else {
+         # Case 2
+         carp "rename_code: new code already in use: $new_code\n"
+           if ($$self{'err'});
+         return 0;
+      }
+
+   } elsif (exists $Data{$type}{'code2id'}{$codeset}{$new_code}) {
+      # Case 3
+      carp "rename_code: new code already in use: $new_code\n"
+        if ($$self{'err'});
+      return 0;
+   }
+
+   # Cases 1 and 4
+
+   $Data{$type}{'codealias'}{$codeset}{$code} = $new_code;
+
+   my $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+   $Data{$type}{'code2id'}{$codeset}{$new_code} =
+     $Data{$type}{'code2id'}{$codeset}{$code};
+   delete $Data{$type}{'code2id'}{$codeset}{$code};
+
+   $Data{$type}{'id2code'}{$codeset}{$id} = $new_code;
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->add_code_alias (CODE,NEW_CODE [,CODESET])
+#
+# Adds an alias for the code.
+#
+sub add_code_alias {
+   my($self,$code,$new_code,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure $code/$codeset are both valid and that the new code is
+   # properly formatted.
+
+   my($err,$c,$cs) = $self->_code($code,$codeset);
+   if ($err) {
+      carp "ERROR: add_code_alias: Unknown code/codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      return 0;
+   }
+   ($code,$codeset) = ($c,$cs);
+
+   ($err,$new_code,$cs) = $self->_code($new_code,$codeset,1);
+
+   # Check that $new_code does not exist.
+
+   if (exists $Data{$type}{'code2id'}{$codeset}{$new_code}  ||
+       exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
+      # uncoverable branch true
+      carp "add_code_alias: code already in use: $new_code\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   # Add the alias
+
+   $Data{$type}{'codealias'}{$codeset}{$new_code} = $code;
+
+   return 1;
+}
+
+###############################################################################
+
+# $flag = $o->delete_code_alias (ALIAS [,CODESET])
+#
+# Deletes an alias for the code.
+#
+sub delete_code_alias {
+   my($self,$code,$codeset) = @_;
+
+   # uncoverable branch true
+   if (! $$self{'type'}) {
+      # uncoverable statement
+      carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
+      return 0;
+   }
+   my $type = $$self{'type'};
+
+   # Make sure $code/$codeset are both valid
+
+   my($err,$c,$cs) = $self->_code($code,$codeset);
+   if ($err) {
+      # uncoverable branch true
+      carp "ERROR: rename: Unknown code/codeset: $code [$codeset]\n"
+        if ($$self{'err'});
+      return 0;
+   }
+   ($code,$codeset) = ($c,$cs);
+
+   # Check that $code exists in the codeset as an alias.
+
+   if (! exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      # uncoverable branch true
+      carp "delete_code_alias(): no alias defined: $code\n"  if ($$self{'err'});
+      return 0;
+   }
+
+   # Delete the alias
+
+   delete $Data{$type}{'codealias'}{$codeset}{$code};
+
+   return 1;
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: 0
+# End:
+package Locale::Currency;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2currency
+                currency2code
+                all_currency_codes
+                all_currency_names
+                currency_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_CURRENCY);
+
+our $obj = new Locale::Codes('currency');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2currency {
+   return $obj->code2name(@_);
+}
+
+sub currency2code {
+   return $obj->name2code(@_);
+}
+
+sub currency_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_currency_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_currency_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_currency {
+   return $obj->rename_code(@_);
+}
+
+sub add_currency {
+   return $obj->add_code(@_);
+}
+
+sub delete_currency {
+   return $obj->delete_code(@_);
+}
+
+sub add_currency_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_currency_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_currency_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_currency_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_currency_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package Locale::Script;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2script
+                script2code
+                all_script_codes
+                all_script_names
+                script_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_SCRIPT);
+
+our $obj = new Locale::Codes('script');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2script {
+   return $obj->code2name(@_);
+}
+
+sub script2code {
+   return $obj->name2code(@_);
+}
+
+sub script_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_script_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_script_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_script {
+   return $obj->rename_code(@_);
+}
+
+sub add_script {
+   return $obj->add_code(@_);
+}
+
+sub delete_script {
+   return $obj->delete_code(@_);
+}
+
+sub add_script_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_script_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_script_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_script_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_script_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package Locale::Country;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2country
+                country2code
+                all_country_codes
+                all_country_names
+                country_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_COUNTRY);
+
+our $obj = new Locale::Codes('country');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2country {
+   return $obj->code2name(@_);
+}
+
+sub country2code {
+   return $obj->name2code(@_);
+}
+
+sub country_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_country_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_country_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_country {
+   return $obj->rename_code(@_);
+}
+
+sub add_country {
+   return $obj->add_code(@_);
+}
+
+sub delete_country {
+   return $obj->delete_code(@_);
+}
+
+sub add_country_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_country_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_country_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_country_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_country_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package Locale::Language;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2language
+                language2code
+                all_language_codes
+                all_language_names
+                language_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGUAGE);
+
+our $obj = new Locale::Codes('language');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2language {
+   return $obj->code2name(@_);
+}
+
+sub language2code {
+   return $obj->name2code(@_);
+}
+
+sub language_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_language_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_language_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_language {
+   return $obj->rename_code(@_);
+}
+
+sub add_language {
+   return $obj->add_code(@_);
+}
+
+sub delete_language {
+   return $obj->delete_code(@_);
+}
+
+sub add_language_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_language_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_language_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_language_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_language_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package Locale::Codes::LangVar;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2langvar
+                langvar2code
+                all_langvar_codes
+                all_langvar_names
+                langvar_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGVAR);
+
+our $obj = new Locale::Codes('langvar');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2langvar {
+   return $obj->code2name(@_);
+}
+
+sub langvar2code {
+   return $obj->name2code(@_);
+}
+
+sub langvar_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_langvar_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_langvar_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_langvar {
+   return $obj->rename_code(@_);
+}
+
+sub add_langvar {
+   return $obj->add_code(@_);
+}
+
+sub delete_langvar {
+   return $obj->delete_code(@_);
+}
+
+sub add_langvar_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_langvar_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_langvar_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_langvar_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_langvar_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::LangExt_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'langext'}{'alpha'}{'code'} = {
+   q(rsi) => q(Rennellese Sign Language),
+   q(yds) => q(Yiddish Sign Language),
+};
+
+$Locale::Codes::Retired{'langext'}{'alpha'}{'name'} = {
+   q(hawai'i pidgin sign language) => [ q(hps), q(Hawai'i Pidgin Sign Language) ],
+   q(rennellese sign language) => [ q(rsi), q(Rennellese Sign Language) ],
+   q(yiddish sign language) => [ q(yds), q(Yiddish Sign Language) ],
+};
+
+
+1;
+package #
+Locale::Codes::Script_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'script'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'script'}{'num'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'script'}{'alpha'}{'name'} = {
+   q( multani) => [ q(Mult), q( Multani) ],
+   q((alias for hiragana + katakana)) => [ q(Hrkt), q((alias for Hiragana + Katakana)) ],
+   q(ahom, tai ahom) => [ q(Ahom), q(Ahom, Tai Ahom) ],
+   q(cuneiform, sumero-akkadian) => [ q(Xsux), q(Cuneiform, Sumero-Akkadian) ],
+   q(cypriot) => [ q(Cprt), q(Cypriot) ],
+   q(deseret (mormon)) => [ q(Dsrt), q(Deseret (Mormon)) ],
+   q(devanagari (nagari)) => [ q(Deva), q(Devanagari (Nagari)) ],
+   q(duployan shorthand, duployan stenography) => [ q(Dupl), q(Duployan shorthand, Duployan stenography) ],
+   q(ethiopic (geez)) => [ q(Ethi), q(Ethiopic (Geez)) ],
+   q(han (hanzi, kanji, hanja)) => [ q(Hani), q(Han (Hanzi, Kanji, Hanja)) ],
+   q(hangul (hangul, hangeul)) => [ q(Hang), q(Hangul (Hangul, Hangeul)) ],
+   q(hanunoo (hanunoo)) => [ q(Hano), q(Hanunoo (Hanunoo)) ],
+   q(indus (harappan)) => [ q(Inds), q(Indus (Harappan)) ],
+   q(khudawadi, sindhi) => [ q(Sind), q(Khudawadi, Sindhi) ],
+   q(lepcha (rong)) => [ q(Lepc), q(Lepcha (Rong)) ],
+   q(lisu (fraser)) => [ q(Lisu), q(Lisu (Fraser)) ],
+   q(mandaic, mandaean) => [ q(Mand), q(Mandaic, Mandaean) ],
+   q(meitei mayek (meithei, meetei)) => [ q(Mtei), q(Meitei Mayek (Meithei, Meetei)) ],
+   q(mende) => [ q(Mend), q(Mende) ],
+   q(miao (pollard)) => [ q(Plrd), q(Miao (Pollard)) ],
+   q(modi, modi) => [ q(Mult), q(Modi, Modi) ],
+   q(moon (moon code, moon script, moon type)) => [ q(Moon), q(Moon (Moon code, Moon script, Moon type)) ],
+   q(mro, mru) => [ q(Mroo), q(Mro, Mru) ],
+   q(myanmar (burmese)) => [ q(Mymr), q(Myanmar (Burmese)) ],
+   q(nakhi geba) => [ q(Nkgb), q(Nakhi Geba) ],
+   q(nakhi geba ('na-'khi ggo-baw, naxi geba)) => [ q(Nkgb), q(Nakhi Geba ('Na-'Khi Ggo-baw, Naxi Geba)) ],
+   q(ol chiki (ol cemet, ol, santali)) => [ q(Olck), q(Ol Chiki (Ol Cemet, Ol, Santali)) ],
+   q(old north arabian (ancient north arabian)) => [ q(Narb), q(Old North Arabian (Ancient North Arabian)) ],
+   q(old turkic, orkhon runic) => [ q(Orkh), q(Old Turkic, Orkhon Runic) ],
+   q(rejang (redjang, kaganga)) => [ q(Rjng), q(Rejang (Redjang, Kaganga)) ],
+   q(sharada, sarada) => [ q(Shrd), q(Sharada, Sarada) ],
+   q(shavian (shaw)) => [ q(Shaw), q(Shavian (Shaw)) ],
+   q(siddham, siddham, siddhamatrka) => [ q(Sidd), q(Siddham, Siddham, Siddhamatrka) ],
+   q(sindhi) => [ q(Sind), q(Sindhi) ],
+   q(tagalog (baybayin, alibata)) => [ q(Tglg), q(Tagalog (Baybayin, Alibata)) ],
+   q(tai tham (lanna)) => [ q(Lana), q(Tai Tham (Lanna)) ],
+   q(takri, takri, tankri) => [ q(Takr), q(Takri, Takri, Tankri) ],
+   q(tifinagh (berber)) => [ q(Tfng), q(Tifinagh (Berber)) ],
+   q(tiruta) => [ q(Tirh), q(Tiruta) ],
+   q(warang citi (varang kshiti)) => [ q(Wara), q(Warang Citi (Varang Kshiti)) ],
+};
+
+$Locale::Codes::Retired{'script'}{'num'}{'name'} = {
+   q( multani) => [ q(323), q( Multani) ],
+   q(cypriot) => [ q(403), q(Cypriot) ],
+   q(mende) => [ q(438), q(Mende) ],
+   q(nakhi geba ('na-'khi ggo-baw, naxi geba)) => [ q(420), q(Nakhi Geba ('Na-'Khi Ggo-baw, Naxi Geba)) ],
+   q(old hungarian) => [ q(176), q(Old Hungarian) ],
+   q(tiruta) => [ q(326), q(Tiruta) ],
+};
+
+
+1;
+package #
+Locale::Codes::Country_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
+   q(an) => q(Netherlands Antilles),
+   q(cs) => q(Serbia and Montenegro),
+   q(fx) => q(France, Metropolitan),
+   q(tp) => q(East Timor),
+   q(yu) => q(Yugoslavia),
+   q(zr) => q(Zaire),
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-3'}{'code'} = {
+   q(ant) => q(Netherlands Antilles),
+   q(ata) => q(Antarctica),
+   q(atf) => q(French Southern and Antarctic Lands),
+   q(bvt) => q(Bouvet Island),
+   q(cck) => q(Cocos (Keeling) Islands),
+   q(cxr) => q(Christmas Island),
+   q(fxx) => q(France, Metropolitan),
+   q(hmd) => q(Heard Island and Mcdonald Islands),
+   q(iot) => q(British Indian Ocean Territory),
+   q(rom) => q(Romania),
+   q(scg) => q(Serbia and Montenegro),
+   q(sgs) => q(South Georgia and the Islands),
+   q(tmp) => q(East Timor),
+   q(twn) => q(Taiwan),
+   q(umi) => q(United States Minor Outlying Islands),
+   q(yug) => q(Yugoslavia),
+   q(zar) => q(Zaire),
+};
+
+$Locale::Codes::Retired{'country'}{'dom'}{'code'} = {
+   q(AC) => q(Ascension Island),
+   q(AD) => q(Andorra),
+   q(AE) => q(United Arab Emirates),
+   q(AF) => q(Afghanistan),
+   q(AG) => q(Antigua and Barbuda),
+   q(AI) => q(Anguilla),
+   q(AL) => q(Albania),
+   q(AM) => q(Armenia),
+   q(AN) => q(Netherlands Antilles),
+   q(AO) => q(Angola),
+   q(AQ) => q(Antarctica),
+   q(AR) => q(Argentina),
+   q(AS) => q(American Samoa),
+   q(AT) => q(Austria),
+   q(AU) => q(Australia),
+   q(AW) => q(Aruba),
+   q(AX) => q(Aland Islands),
+   q(AZ) => q(Azerbaijan),
+   q(BA) => q(Bosnia and Herzegovina),
+   q(BB) => q(Barbados),
+   q(BD) => q(Bangladesh),
+   q(BE) => q(Belgium),
+   q(BF) => q(Burkina Faso),
+   q(BG) => q(Bulgaria),
+   q(BH) => q(Bahrain),
+   q(BI) => q(Burundi),
+   q(BJ) => q(Benin),
+   q(BL) => q(Saint Barthelemy),
+   q(BM) => q(Bermuda),
+   q(BN) => q(Brunei Darussalam),
+   q(BO) => q(Bolivia, Plurinational State of),
+   q(BQ) => q(Bonaire, Sint Eustatius and Saba),
+   q(BR) => q(Brazil),
+   q(BS) => q(Bahamas),
+   q(BT) => q(Bhutan),
+   q(BV) => q(Bouvet Island),
+   q(BW) => q(Botswana),
+   q(BY) => q(Belarus),
+   q(BZ) => q(Belize),
+   q(CA) => q(Canada),
+   q(CC) => q(Cocos (Keeling) Islands),
+   q(CD) => q(Congo, The Democratic Republic of the),
+   q(CF) => q(Central African Republic),
+   q(CG) => q(Congo),
+   q(CH) => q(Switzerland),
+   q(CI) => q(Cote d'Ivoire),
+   q(CK) => q(Cook Islands),
+   q(CL) => q(Chile),
+   q(CM) => q(Cameroon),
+   q(CN) => q(China),
+   q(CO) => q(Colombia),
+   q(CR) => q(Costa Rica),
+   q(CU) => q(Cuba),
+   q(CV) => q(Cape Verde),
+   q(CW) => q(Curacao),
+   q(CX) => q(Christmas Island),
+   q(CY) => q(Cyprus),
+   q(CZ) => q(Czech Republic),
+   q(DE) => q(Germany),
+   q(DJ) => q(Djibouti),
+   q(DK) => q(Denmark),
+   q(DM) => q(Dominica),
+   q(DO) => q(Dominican Republic),
+   q(DZ) => q(Algeria),
+   q(EC) => q(Ecuador),
+   q(EE) => q(Estonia),
+   q(EG) => q(Egypt),
+   q(EH) => q(Western Sahara),
+   q(ER) => q(Eritrea),
+   q(ES) => q(Spain),
+   q(ET) => q(Ethiopia),
+   q(EU) => q(European Union),
+   q(FI) => q(Finland),
+   q(FJ) => q(Fiji),
+   q(FK) => q(Falkland Islands (Malvinas)),
+   q(FM) => q(Micronesia, Federated States of),
+   q(FO) => q(Faroe Islands),
+   q(FR) => q(France),
+   q(FX) => q(France, Metropolitan),
+   q(GA) => q(Gabon),
+   q(GB) => q(United Kingdom),
+   q(GD) => q(Grenada),
+   q(GE) => q(Georgia),
+   q(GF) => q(French Guiana),
+   q(GG) => q(Guernsey),
+   q(GH) => q(Ghana),
+   q(GI) => q(Gibraltar),
+   q(GL) => q(Greenland),
+   q(GM) => q(Gambia),
+   q(GN) => q(Guinea),
+   q(GP) => q(Guadeloupe),
+   q(GQ) => q(Equatorial Guinea),
+   q(GR) => q(Greece),
+   q(GS) => q(South Georgia and the South Sandwich Islands),
+   q(GT) => q(Guatemala),
+   q(GU) => q(Guam),
+   q(GW) => q(Guinea-Bissau),
+   q(GY) => q(Guyana),
+   q(HK) => q(Hong Kong),
+   q(HM) => q(Heard Island and Mcdonald Islands),
+   q(HN) => q(Honduras),
+   q(HR) => q(Croatia),
+   q(HT) => q(Haiti),
+   q(HU) => q(Hungary),
+   q(ID) => q(Indonesia),
+   q(IE) => q(Ireland),
+   q(IL) => q(Israel),
+   q(IM) => q(Isle of Man),
+   q(IN) => q(India),
+   q(IO) => q(British Indian Ocean Territory),
+   q(IQ) => q(Iraq),
+   q(IR) => q(Iran, Islamic Republic of),
+   q(IS) => q(Iceland),
+   q(IT) => q(Italy),
+   q(JE) => q(Jersey),
+   q(JM) => q(Jamaica),
+   q(JO) => q(Jordan),
+   q(JP) => q(Japan),
+   q(KE) => q(Kenya),
+   q(KG) => q(Kyrgyzstan),
+   q(KH) => q(Cambodia),
+   q(KI) => q(Kiribati),
+   q(KM) => q(Comoros),
+   q(KN) => q(Saint Kitts and Nevis),
+   q(KP) => q(Korea, Democratic People's Republic of),
+   q(KR) => q(Korea, Republic of),
+   q(KW) => q(Kuwait),
+   q(KY) => q(Cayman Islands),
+   q(KZ) => q(Kazakhstan),
+   q(LA) => q(Lao People's Democratic Republic),
+   q(LB) => q(Lebanon),
+   q(LC) => q(Saint Lucia),
+   q(LI) => q(Liechtenstein),
+   q(LK) => q(Sri Lanka),
+   q(LR) => q(Liberia),
+   q(LS) => q(Lesotho),
+   q(LT) => q(Lithuania),
+   q(LU) => q(Luxembourg),
+   q(LV) => q(Latvia),
+   q(LY) => q(Libya),
+   q(MA) => q(Morocco),
+   q(MC) => q(Monaco),
+   q(MD) => q(Moldova, Republic of),
+   q(ME) => q(Montenegro),
+   q(MF) => q(Saint Martin (French part)),
+   q(MG) => q(Madagascar),
+   q(MH) => q(Marshall Islands),
+   q(MK) => q(Macedonia, The Former Yugoslav Republic of),
+   q(ML) => q(Mali),
+   q(MM) => q(Myanmar),
+   q(MN) => q(Mongolia),
+   q(MO) => q(Macao),
+   q(MP) => q(Northern Mariana Islands),
+   q(MQ) => q(Martinique),
+   q(MR) => q(Mauritania),
+   q(MS) => q(Montserrat),
+   q(MT) => q(Malta),
+   q(MU) => q(Mauritius),
+   q(MV) => q(Maldives),
+   q(MW) => q(Malawi),
+   q(MX) => q(Mexico),
+   q(MY) => q(Malaysia),
+   q(MZ) => q(Mozambique),
+   q(NA) => q(Namibia),
+   q(NC) => q(New Caledonia),
+   q(NE) => q(Niger),
+   q(NF) => q(Norfolk Island),
+   q(NG) => q(Nigeria),
+   q(NI) => q(Nicaragua),
+   q(NL) => q(Netherlands),
+   q(NO) => q(Norway),
+   q(NP) => q(Nepal),
+   q(NR) => q(Nauru),
+   q(NU) => q(Niue),
+   q(NZ) => q(New Zealand),
+   q(OM) => q(Oman),
+   q(PA) => q(Panama),
+   q(PE) => q(Peru),
+   q(PF) => q(French Polynesia),
+   q(PG) => q(Papua New Guinea),
+   q(PH) => q(Philippines),
+   q(PK) => q(Pakistan),
+   q(PL) => q(Poland),
+   q(PM) => q(Saint Pierre and Miquelon),
+   q(PN) => q(Pitcairn),
+   q(PR) => q(Puerto Rico),
+   q(PS) => q(Palestinian Territory, Occupied),
+   q(PT) => q(Portugal),
+   q(PW) => q(Palau),
+   q(PY) => q(Paraguay),
+   q(QA) => q(Qatar),
+   q(RE) => q(Reunion),
+   q(RO) => q(Romania),
+   q(RS) => q(Serbia),
+   q(RU) => q(Russian Federation),
+   q(RW) => q(Rwanda),
+   q(SA) => q(Saudi Arabia),
+   q(SB) => q(Solomon Islands),
+   q(SC) => q(Seychelles),
+   q(SD) => q(Sudan),
+   q(SE) => q(Sweden),
+   q(SG) => q(Singapore),
+   q(SH) => q(Saint Helena, Ascension and Tristan da Cunha),
+   q(SI) => q(Slovenia),
+   q(SJ) => q(Svalbard and Jan Mayen),
+   q(SK) => q(Slovakia),
+   q(SL) => q(Sierra Leone),
+   q(SM) => q(San Marino),
+   q(SN) => q(Senegal),
+   q(SO) => q(Somalia),
+   q(SR) => q(Suriname),
+   q(SS) => q(South Sudan),
+   q(ST) => q(Sao Tome and Principe),
+   q(SU) => q(Soviet Union),
+   q(SV) => q(El Salvador),
+   q(SX) => q(Sint Maarten (Dutch part)),
+   q(SY) => q(Syrian Arab Republic),
+   q(SZ) => q(Swaziland),
+   q(TC) => q(Turks and Caicos Islands),
+   q(TD) => q(Chad),
+   q(TF) => q(French Southern Territories),
+   q(TG) => q(Togo),
+   q(TH) => q(Thailand),
+   q(TJ) => q(Tajikistan),
+   q(TK) => q(Tokelau),
+   q(TL) => q(Timor-Leste),
+   q(TM) => q(Turkmenistan),
+   q(TN) => q(Tunisia),
+   q(TO) => q(Tonga),
+   q(TP) => q(Portuguese Timor),
+   q(TR) => q(Turkey),
+   q(TT) => q(Trinidad and Tobago),
+   q(TV) => q(Tuvalu),
+   q(TW) => q(Taiwan, Province of China),
+   q(TZ) => q(Tanzania, United Republic of),
+   q(UA) => q(Ukraine),
+   q(UG) => q(Uganda),
+   q(UK) => q(United Kingdom),
+   q(UM) => q(United States Minor Outlying Islands),
+   q(US) => q(United States),
+   q(UY) => q(Uruguay),
+   q(UZ) => q(Uzbekistan),
+   q(VA) => q(Holy See (Vatican City State)),
+   q(VC) => q(Saint Vincent and the Grenadines),
+   q(VE) => q(Venezuela, Bolivarian Republic of),
+   q(VG) => q(Virgin Islands, British),
+   q(VI) => q(Virgin Islands, U.S.),
+   q(VN) => q(Viet Nam),
+   q(VU) => q(Vanuatu),
+   q(WF) => q(Wallis and Futuna),
+   q(WS) => q(Samoa),
+   q(YE) => q(Yemen),
+   q(YT) => q(Mayotte),
+   q(YU) => q(Yugoslavia ),
+   q(ZA) => q(South Africa),
+   q(ZM) => q(Zambia),
+   q(ZW) => q(Zimbabwe),
+   q(ac) => q(Ascension Island),
+   q(an) => q(Netherlands Antilles),
+   q(eu) => q(European Union),
+   q(su) => q(USSR),
+   q(tp) => q(East Timor),
+   q(uk) => q(United Kingdom),
+};
+
+$Locale::Codes::Retired{'country'}{'genc-alpha-2'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'country'}{'genc-alpha-3'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'country'}{'genc-numeric'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'country'}{'numeric'}{'code'} = {
+   q(010) => q(Antarctica),
+   q(074) => q(Bouvet Island),
+   q(086) => q(British Indian Ocean Territory),
+   q(158) => q(Taiwan),
+   q(162) => q(Christmas Island),
+   q(166) => q(Cocos (Keeling) Islands),
+   q(239) => q(South Georgia and the Islands),
+   q(249) => q(France, Metropolitan),
+   q(260) => q(French Southern and Antarctic Lands),
+   q(334) => q(Heard Island and Mcdonald Islands),
+   q(530) => q(Netherlands Antilles),
+   q(581) => q(United States Minor Outlying Islands),
+   q(680) => q(Sark),
+   q(736) => q(Sudan),
+   q(830) => q(Channel Islands),
+   q(891) => q(Serbia and Montenegro),
+};
+
+$Locale::Codes::Retired{'country'}{'un-alpha-3'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'country'}{'un-numeric'}{'code'} = {
+   q(830) => q(Channel Islands),
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-2'}{'name'} = {
+   q(bolivia) => [ q(bo), q(Bolivia) ],
+   q(bolivia, plurinational state of) => [ q(bo), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bq), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bosnia and herzegowina) => [ q(ba), q(Bosnia and Herzegowina) ],
+   q(cape verde) => [ q(cv), q(Cape Verde) ],
+   q(congo, the democratic republic of the) => [ q(cd), q(Congo, The Democratic Republic of the) ],
+   q(czech republic) => [ q(cz), q(Czech Republic) ],
+   q(east timor) => [ q(tl), q(East Timor) ],
+   q(falkland islands (malvinas)) => [ q(fk), q(Falkland Islands (Malvinas)) ],
+   q(france, metropolitan) => [ q(fx), q(France, Metropolitan) ],
+   q(heard and mc donald islands) => [ q(hm), q(Heard and Mc Donald Islands) ],
+   q(holy see (the) [vatican city state]) => [ q(va), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(va), q(Holy See (Vatican City State)) ],
+   q(iran (islamic republic of)) => [ q(ir), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(ir), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(ir), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(kz), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(kp), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kr), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(ly), q(Libyan Arab Jamahiriya) ],
+   q(macau) => [ q(mo), q(Macau) ],
+   q(micronesia (federated states of)) => [ q(fm), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(fm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(md), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(an), q(Netherlands Antilles) ],
+   q(saint helena) => [ q(sh), q(Saint Helena) ],
+   q(saint martin) => [ q(mf), q(Saint Martin) ],
+   q(serbia and montenegro) => [ q(cs), q(Serbia and Montenegro) ],
+   q(st. helena) => [ q(sh), q(St. Helena) ],
+   q(st. pierre and miquelon) => [ q(pm), q(St. Pierre and Miquelon) ],
+   q(svalbard and jan mayen islands) => [ q(sj), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan, province of china) => [ q(tw), q(Taiwan, Province of China) ],
+   q(united kingdom) => [ q(gb), q(United Kingdom) ],
+   q(united states) => [ q(us), q(United States) ],
+   q(vatican city state (holy see)) => [ q(va), q(Vatican City State (Holy See)) ],
+   q(venezuela) => [ q(ve), q(Venezuela) ],
+   q(venezuela, bolivarian republic of) => [ q(ve), q(Venezuela, Bolivarian Republic of) ],
+   q(venezuela, bolivarian republic of ) => [ q(ve), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(vn), q(Vietnam) ],
+   q(virgin islands (british)) => [ q(vg), q(Virgin Islands (British)) ],
+   q(virgin islands (u.s.)) => [ q(vi), q(Virgin Islands (U.S.)) ],
+   q(virgin islands, british) => [ q(vg), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vi), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna islands) => [ q(wf), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(yu), q(Yugoslavia) ],
+   q(zaire) => [ q(zr), q(Zaire) ],
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-3'}{'name'} = {
+   q(antarctica) => [ q(ata), q(Antarctica) ],
+   q(bolivia) => [ q(bol), q(Bolivia) ],
+   q(bolivia (plurinational state of)) => [ q(bol), q(Bolivia (Plurinational State of)) ],
+   q(bolivia, plurinational state of) => [ q(bol), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bes), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bouvet island) => [ q(bvt), q(Bouvet Island) ],
+   q(british indian ocean territory) => [ q(iot), q(British Indian Ocean Territory) ],
+   q(british virgin islands) => [ q(vgb), q(British Virgin Islands) ],
+   q(cabo verde) => [ q(cpv), q(Cabo Verde) ],
+   q(cape verde) => [ q(cpv), q(Cape Verde) ],
+   q(china, hong kong special administrative region) => [ q(hkg), q(China, Hong Kong Special Administrative Region) ],
+   q(china, macao special administrative region) => [ q(mac), q(China, Macao Special Administrative Region) ],
+   q(christmas island) => [ q(cxr), q(Christmas Island) ],
+   q(cocos (keeling) islands) => [ q(cck), q(Cocos (Keeling) Islands) ],
+   q(congo, the democratic republic of the) => [ q(cod), q(Congo, The Democratic Republic of the) ],
+   q(czech republic) => [ q(cze), q(Czech Republic) ],
+   q(democratic people's republic of korea) => [ q(prk), q(Democratic People's Republic of Korea) ],
+   q(democratic republic of the congo) => [ q(cod), q(Democratic Republic of the Congo) ],
+   q(east timor) => [ q(tls), q(East Timor) ],
+   q(faeroe islands) => [ q(fro), q(Faeroe Islands) ],
+   q(falkland islands (malvinas)) => [ q(flk), q(Falkland Islands (Malvinas)) ],
+   q(faroe islands) => [ q(fro), q(Faroe Islands) ],
+   q(france, metropolitan) => [ q(fxx), q(France, Metropolitan) ],
+   q(french southern and antarctic lands) => [ q(atf), q(French Southern and Antarctic Lands) ],
+   q(french southern territories) => [ q(atf), q(French Southern Territories) ],
+   q(heard island and mcdonald islands) => [ q(hmd), q(Heard Island and Mcdonald Islands) ],
+   q(holy see) => [ q(vat), q(Holy See) ],
+   q(holy see (the) [vatican city state]) => [ q(vat), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(vat), q(Holy See (Vatican City State)) ],
+   q(hong kong) => [ q(hkg), q(Hong Kong) ],
+   q(hong kong special administrative region of china) => [ q(hkg), q(Hong Kong Special Administrative Region of China) ],
+   q(iran (islamic republic of)) => [ q(irn), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(irn), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(irn), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(kaz), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(prk), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kor), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(lby), q(Libyan Arab Jamahiriya) ],
+   q(macao) => [ q(mac), q(Macao) ],
+   q(macao special administrative region of china) => [ q(mac), q(Macao Special Administrative Region of China) ],
+   q(macau) => [ q(mac), q(Macau) ],
+   q(macedonia, the former yugoslav republic of) => [ q(mkd), q(Macedonia, the Former Yugoslav Republic of) ],
+   q(micronesia (federated states of)) => [ q(fsm), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(fsm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fsm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(mda), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(ant), q(Netherlands Antilles) ],
+   q(palestinian territory, occupied) => [ q(pse), q(Palestinian Territory, Occupied) ],
+   q(republic of korea) => [ q(kor), q(Republic of Korea) ],
+   q(republic of moldova) => [ q(mda), q(Republic of Moldova) ],
+   q(saint helena) => [ q(shn), q(Saint Helena) ],
+   q(saint-barthelemy) => [ q(blm), q(Saint-Barthelemy) ],
+   q(saint-martin (french part)) => [ q(maf), q(Saint-Martin (French part)) ],
+   q(serbia and montenegro) => [ q(scg), q(Serbia and Montenegro) ],
+   q(south georgia and the islands) => [ q(sgs), q(South Georgia and the Islands) ],
+   q(south georgia and the south sandwich islands) => [ q(sgs), q(South Georgia and the South Sandwich Islands) ],
+   q(state of palestine) => [ q(pse), q(State of Palestine) ],
+   q(svalbard and jan mayen) => [ q(sjm), q(Svalbard and Jan Mayen) ],
+   q(svalbard and jan mayen islands) => [ q(sjm), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan) => [ q(twn), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(twn), q(Taiwan, Province of China) ],
+   q(tanzania, united republic of) => [ q(tza), q(Tanzania, United Republic of) ],
+   q(the former yugoslav republic of macedonia) => [ q(mkd), q(The former Yugoslav Republic of Macedonia) ],
+   q(united kingdom) => [ q(gbr), q(United Kingdom) ],
+   q(united kingdom of great britain and northern ireland) => [ q(gbr), q(United Kingdom of Great Britain and Northern Ireland) ],
+   q(united republic of tanzania) => [ q(tza), q(United Republic of Tanzania) ],
+   q(united states) => [ q(usa), q(United States) ],
+   q(united states minor outlying islands) => [ q(umi), q(United States Minor Outlying Islands) ],
+   q(united states of america) => [ q(usa), q(United States of America) ],
+   q(united states virgin islands) => [ q(vir), q(United States Virgin Islands) ],
+   q(venezuela) => [ q(ven), q(Venezuela) ],
+   q(venezuela (bolivarian republic of)) => [ q(ven), q(Venezuela (Bolivarian Republic of)) ],
+   q(venezuela, bolivarian republic of ) => [ q(ven), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(vnm), q(Vietnam) ],
+   q(virgin islands, british) => [ q(vgb), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vir), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna) => [ q(wlf), q(Wallis and Futuna) ],
+   q(wallis and futuna islands) => [ q(wlf), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(yug), q(Yugoslavia) ],
+   q(zaire) => [ q(zar), q(Zaire) ],
+};
+
+$Locale::Codes::Retired{'country'}{'dom'}{'name'} = {
+   q(ascension island) => [ q(ac), q(Ascension Island) ],
+   q(bolivia, plurinational state of) => [ q(bo), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bq), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bonaire, sint eustatius and saba) => [ q(BQ), q(Bonaire, Sint Eustatius and Saba) ],
+   q(cape verde) => [ q(cv), q(Cape Verde) ],
+   q(congo, the democratic republic of the) => [ q(cd), q(Congo, The Democratic Republic of the) ],
+   q(czech republic) => [ q(cz), q(Czech Republic) ],
+   q(east timor) => [ q(tp), q(East Timor) ],
+   q(european union) => [ q(eu), q(European Union) ],
+   q(falkland islands (malvinas)) => [ q(fk), q(Falkland Islands (Malvinas)) ],
+   q(france, metropolitan) => [ q(FX), q(France, Metropolitan) ],
+   q(holy see (the) [vatican city state]) => [ q(va), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(va), q(Holy See (Vatican City State)) ],
+   q(iran, islamic republic of) => [ q(ir), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(ir), q(Iran, The Islamic Republic of) ],
+   q(korea, democratic people's republic of) => [ q(kp), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kr), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(LY), q(Libyan Arab Jamahiriya) ],
+   q(micronesia, federated states of) => [ q(fm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(md), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(an), q(Netherlands Antilles) ],
+   q(portuguese timor) => [ q(TP), q(Portuguese Timor) ],
+   q(portuguese timor ) => [ q(TP), q(Portuguese Timor ) ],
+   q(saint helena, ascension and tristan da cunha) => [ q(SH), q(Saint Helena, Ascension and Tristan da Cunha) ],
+   q(saint martin) => [ q(MF), q(Saint Martin) ],
+   q(soviet union) => [ q(SU), q(Soviet Union) ],
+   q(soviet union ) => [ q(SU), q(Soviet Union ) ],
+   q(taiwan) => [ q(TW), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(tw), q(Taiwan, Province of China) ],
+   q(united kingdom) => [ q(gb), q(United Kingdom) ],
+   q(united states) => [ q(us), q(United States) ],
+   q(ussr) => [ q(su), q(USSR) ],
+   q(venezuela, bolivarian republic of) => [ q(ve), q(Venezuela, Bolivarian Republic of) ],
+   q(venezuela, bolivarian republic of ) => [ q(ve), q(Venezuela, Bolivarian Republic of ) ],
+   q(virgin islands, british) => [ q(vg), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vi), q(Virgin Islands, U.S.) ],
+   q(yugoslavia ) => [ q(YU), q(Yugoslavia ) ],
+};
+
+$Locale::Codes::Retired{'country'}{'genc-alpha-2'}{'name'} = {
+   q(czech republic) => [ q(CZ), q(Czech Republic) ],
+};
+
+$Locale::Codes::Retired{'country'}{'genc-alpha-3'}{'name'} = {
+   q(czech republic) => [ q(CZE), q(Czech Republic) ],
+};
+
+$Locale::Codes::Retired{'country'}{'genc-numeric'}{'name'} = {
+   q(czech republic) => [ q(203), q(Czech Republic) ],
+};
+
+$Locale::Codes::Retired{'country'}{'numeric'}{'name'} = {
+   q(antarctica) => [ q(010), q(Antarctica) ],
+   q(bolivia) => [ q(068), q(Bolivia) ],
+   q(bolivia (plurinational state of)) => [ q(068), q(Bolivia (Plurinational State of)) ],
+   q(bolivia, plurinational state of) => [ q(068), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(535), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bouvet island) => [ q(074), q(Bouvet Island) ],
+   q(british indian ocean territory) => [ q(086), q(British Indian Ocean Territory) ],
+   q(british virgin islands) => [ q(092), q(British Virgin Islands) ],
+   q(cabo verde) => [ q(132), q(Cabo Verde) ],
+   q(cape verde) => [ q(132), q(Cape Verde) ],
+   q(channel islands) => [ q(830), q(Channel Islands) ],
+   q(china, hong kong special administrative region) => [ q(344), q(China, Hong Kong Special Administrative Region) ],
+   q(china, macao special administrative region) => [ q(446), q(China, Macao Special Administrative Region) ],
+   q(christmas island) => [ q(162), q(Christmas Island) ],
+   q(cocos (keeling) islands) => [ q(166), q(Cocos (Keeling) Islands) ],
+   q(congo, the democratic republic of the) => [ q(180), q(Congo, The Democratic Republic of the) ],
+   q(czech republic) => [ q(203), q(Czech Republic) ],
+   q(democratic people's republic of korea) => [ q(408), q(Democratic People's Republic of Korea) ],
+   q(democratic republic of the congo) => [ q(180), q(Democratic Republic of the Congo) ],
+   q(east timor) => [ q(626), q(East Timor) ],
+   q(faeroe islands) => [ q(234), q(Faeroe Islands) ],
+   q(falkland islands (malvinas)) => [ q(238), q(Falkland Islands (Malvinas)) ],
+   q(faroe islands) => [ q(234), q(Faroe Islands) ],
+   q(france, metropolitan) => [ q(249), q(France, Metropolitan) ],
+   q(french southern and antarctic lands) => [ q(260), q(French Southern and Antarctic Lands) ],
+   q(french southern territories) => [ q(260), q(French Southern Territories) ],
+   q(heard island and mcdonald islands) => [ q(334), q(Heard Island and Mcdonald Islands) ],
+   q(holy see) => [ q(336), q(Holy See) ],
+   q(holy see (the) [vatican city state]) => [ q(336), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(336), q(Holy See (Vatican City State)) ],
+   q(hong kong) => [ q(344), q(Hong Kong) ],
+   q(hong kong special administrative region of china) => [ q(344), q(Hong Kong Special Administrative Region of China) ],
+   q(iran (islamic republic of)) => [ q(364), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(364), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(364), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(398), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(408), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(410), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(434), q(Libyan Arab Jamahiriya) ],
+   q(macao) => [ q(446), q(Macao) ],
+   q(macao special administrative region of china) => [ q(446), q(Macao Special Administrative Region of China) ],
+   q(macau) => [ q(446), q(Macau) ],
+   q(macedonia, the former yugoslav republic of) => [ q(807), q(Macedonia, the Former Yugoslav Republic of) ],
+   q(micronesia (federated states of)) => [ q(583), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(583), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(583), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(498), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(530), q(Netherlands Antilles) ],
+   q(palestinian territory, occupied) => [ q(275), q(Palestinian Territory, Occupied) ],
+   q(republic of korea) => [ q(410), q(Republic of Korea) ],
+   q(republic of moldova) => [ q(498), q(Republic of Moldova) ],
+   q(saint helena) => [ q(654), q(Saint Helena) ],
+   q(saint-barthelemy) => [ q(652), q(Saint-Barthelemy) ],
+   q(saint-martin (french part)) => [ q(663), q(Saint-Martin (French part)) ],
+   q(sark) => [ q(680), q(Sark) ],
+   q(serbia and montenegro) => [ q(891), q(Serbia and Montenegro) ],
+   q(south georgia and the islands) => [ q(239), q(South Georgia and the Islands) ],
+   q(south georgia and the south sandwich islands) => [ q(239), q(South Georgia and the South Sandwich Islands) ],
+   q(state of palestine) => [ q(275), q(State of Palestine) ],
+   q(svalbard and jan mayen) => [ q(744), q(Svalbard and Jan Mayen) ],
+   q(svalbard and jan mayen islands) => [ q(744), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan) => [ q(158), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(158), q(Taiwan, Province of China) ],
+   q(tanzania, united republic of) => [ q(834), q(Tanzania, United Republic of) ],
+   q(the former yugoslav republic of macedonia) => [ q(807), q(The former Yugoslav Republic of Macedonia) ],
+   q(united kingdom) => [ q(826), q(United Kingdom) ],
+   q(united kingdom of great britain and northern ireland) => [ q(826), q(United Kingdom of Great Britain and Northern Ireland) ],
+   q(united republic of tanzania) => [ q(834), q(United Republic of Tanzania) ],
+   q(united states) => [ q(840), q(United States) ],
+   q(united states minor outlying islands) => [ q(581), q(United States Minor Outlying Islands) ],
+   q(united states of america) => [ q(840), q(United States of America) ],
+   q(united states virgin islands) => [ q(850), q(United States Virgin Islands) ],
+   q(venezuela) => [ q(862), q(Venezuela) ],
+   q(venezuela (bolivarian republic of)) => [ q(862), q(Venezuela (Bolivarian Republic of)) ],
+   q(venezuela, bolivarian republic of ) => [ q(862), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(704), q(Vietnam) ],
+   q(virgin islands, british) => [ q(092), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(850), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna) => [ q(876), q(Wallis and Futuna) ],
+   q(wallis and futuna islands) => [ q(876), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(891), q(Yugoslavia) ],
+   q(zaire) => [ q(180), q(Zaire) ],
+};
+
+$Locale::Codes::Retired{'country'}{'un-alpha-3'}{'name'} = {
+   q(czech republic) => [ q(CZE), q(Czech Republic) ],
+   q(korea, the democratic people's republic of) => [ q(PRK), q(Korea, The Democratic People's Republic of) ],
+};
+
+$Locale::Codes::Retired{'country'}{'un-numeric'}{'name'} = {
+   q(channel islands) => [ q(830), q(Channel Islands) ],
+   q(czech republic) => [ q(203), q(Czech Republic) ],
+   q(korea, the democratic people's republic of) => [ q(408), q(Korea, The Democratic People's Republic of) ],
+};
+
+
+1;
+package Locale::Codes::Constants;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+our(@CONSTANTS,%ALL_CODESETS);
+
+our(@CONSTANTS_COUNTRY) = qw(
+                LOCALE_CODE_ALPHA_2
+                LOCALE_CODE_ALPHA_3
+                LOCALE_CODE_DOM
+                LOCALE_CODE_GENC_ALPHA_2
+                LOCALE_CODE_GENC_ALPHA_3
+                LOCALE_CODE_GENC_NUMERIC
+                LOCALE_CODE_NUMERIC
+                LOCALE_CODE_UN_ALPHA_3
+                LOCALE_CODE_UN_NUMERIC
+                LOCALE_COUNTRY_ALPHA_2
+                LOCALE_COUNTRY_ALPHA_3
+                LOCALE_COUNTRY_DOM
+                LOCALE_COUNTRY_GENC_ALPHA_2
+                LOCALE_COUNTRY_GENC_ALPHA_3
+                LOCALE_COUNTRY_GENC_NUMERIC
+                LOCALE_COUNTRY_NUMERIC
+                LOCALE_COUNTRY_UN_ALPHA_3
+                LOCALE_COUNTRY_UN_NUMERIC
+);
+push(@CONSTANTS,@CONSTANTS_COUNTRY);
+
+our(@CONSTANTS_CURRENCY) = qw(
+                LOCALE_CURRENCY_ALPHA
+                LOCALE_CURRENCY_NUMERIC
+                LOCALE_CURR_ALPHA
+                LOCALE_CURR_NUMERIC
+);
+push(@CONSTANTS,@CONSTANTS_CURRENCY);
+
+our(@CONSTANTS_LANGEXT) = qw(
+                LOCALE_LANGEXT_ALPHA
+);
+push(@CONSTANTS,@CONSTANTS_LANGEXT);
+
+our(@CONSTANTS_LANGFAM) = qw(
+                LOCALE_LANGFAM_ALPHA
+);
+push(@CONSTANTS,@CONSTANTS_LANGFAM);
+
+our(@CONSTANTS_LANGUAGE) = qw(
+                LOCALE_LANGUAGE_ALPHA_2
+                LOCALE_LANGUAGE_ALPHA_3
+                LOCALE_LANGUAGE_TERM
+                LOCALE_LANG_ALPHA_2
+                LOCALE_LANG_ALPHA_3
+                LOCALE_LANG_TERM
+);
+push(@CONSTANTS,@CONSTANTS_LANGUAGE);
+
+our(@CONSTANTS_LANGVAR) = qw(
+                LOCALE_LANGVAR_ALPHA
+);
+push(@CONSTANTS,@CONSTANTS_LANGVAR);
+
+our(@CONSTANTS_SCRIPT) = qw(
+                LOCALE_SCRIPT_ALPHA
+                LOCALE_SCRIPT_NUMERIC
+);
+push(@CONSTANTS,@CONSTANTS_SCRIPT);
+
+@EXPORT    = (@CONSTANTS,
+               qw(
+                %ALL_CODESETS
+               ));
+
+use constant LOCALE_CODE_ALPHA_2         => 'alpha-2';
+use constant LOCALE_CODE_ALPHA_3         => 'alpha-3';
+use constant LOCALE_CODE_DOM             => 'dom';
+use constant LOCALE_CODE_GENC_ALPHA_2    => 'genc-alpha-2';
+use constant LOCALE_CODE_GENC_ALPHA_3    => 'genc-alpha-3';
+use constant LOCALE_CODE_GENC_NUMERIC    => 'genc-numeric';
+use constant LOCALE_CODE_NUMERIC         => 'numeric';
+use constant LOCALE_CODE_UN_ALPHA_3      => 'un-alpha-3';
+use constant LOCALE_CODE_UN_NUMERIC      => 'un-numeric';
+use constant LOCALE_COUNTRY_ALPHA_2      => 'alpha-2';
+use constant LOCALE_COUNTRY_ALPHA_3      => 'alpha-3';
+use constant LOCALE_COUNTRY_DOM          => 'dom';
+use constant LOCALE_COUNTRY_GENC_ALPHA_2 => 'genc-alpha-2';
+use constant LOCALE_COUNTRY_GENC_ALPHA_3 => 'genc-alpha-3';
+use constant LOCALE_COUNTRY_GENC_NUMERIC => 'genc-numeric';
+use constant LOCALE_COUNTRY_NUMERIC      => 'numeric';
+use constant LOCALE_COUNTRY_UN_ALPHA_3   => 'un-alpha-3';
+use constant LOCALE_COUNTRY_UN_NUMERIC   => 'un-numeric';
+
+$ALL_CODESETS{'country'} =
+   {
+      'default'  => 'alpha-2',
+      'module'   => 'Country',
+      'codesets' => {
+                     'alpha-2'      => ['lc'],
+                     'alpha-3'      => ['lc'],
+                     'dom'          => ['lc'],
+                     'genc-alpha-2' => ['uc'],
+                     'genc-alpha-3' => ['uc'],
+                     'genc-numeric' => ['numeric',3],
+                     'numeric'      => ['numeric',3],
+                     'un-alpha-3'   => ['uc'],
+                     'un-numeric'   => ['numeric',3],
+                    }
+   };
+
+use constant LOCALE_CURRENCY_ALPHA       => 'alpha';
+use constant LOCALE_CURRENCY_NUMERIC     => 'num';
+use constant LOCALE_CURR_ALPHA           => 'alpha';
+use constant LOCALE_CURR_NUMERIC         => 'num';
+
+$ALL_CODESETS{'currency'} =
+   {
+      'default'  => 'alpha',
+      'module'   => 'Currency',
+      'codesets' => {
+                     'alpha'        => ['uc'],
+                     'num'          => ['numeric',3],
+                    }
+   };
+
+use constant LOCALE_LANGEXT_ALPHA        => 'alpha';
+
+$ALL_CODESETS{'langext'} =
+   {
+      'default'  => 'alpha',
+      'module'   => 'LangExt',
+      'codesets' => {
+                     'alpha'        => ['lc'],
+                    }
+   };
+
+use constant LOCALE_LANGFAM_ALPHA        => 'alpha';
+
+$ALL_CODESETS{'langfam'} =
+   {
+      'default'  => 'alpha',
+      'module'   => 'LangFam',
+      'codesets' => {
+                     'alpha'        => ['lc'],
+                    }
+   };
+
+use constant LOCALE_LANGUAGE_ALPHA_2     => 'alpha-2';
+use constant LOCALE_LANGUAGE_ALPHA_3     => 'alpha-3';
+use constant LOCALE_LANGUAGE_TERM        => 'term';
+use constant LOCALE_LANG_ALPHA_2         => 'alpha-2';
+use constant LOCALE_LANG_ALPHA_3         => 'alpha-3';
+use constant LOCALE_LANG_TERM            => 'term';
+
+$ALL_CODESETS{'language'} =
+   {
+      'default'  => 'alpha-2',
+      'module'   => 'Language',
+      'codesets' => {
+                     'alpha-2'      => ['lc'],
+                     'alpha-3'      => ['lc'],
+                     'term'         => ['lc'],
+                    }
+   };
+
+use constant LOCALE_LANGVAR_ALPHA        => 'alpha';
+
+$ALL_CODESETS{'langvar'} =
+   {
+      'default'  => 'alpha',
+      'module'   => 'LangVar',
+      'codesets' => {
+                     'alpha'        => ['lc'],
+                    }
+   };
+
+use constant LOCALE_SCRIPT_ALPHA         => 'alpha';
+use constant LOCALE_SCRIPT_NUMERIC       => 'num';
+
+$ALL_CODESETS{'script'} =
+   {
+      'default'  => 'alpha',
+      'module'   => 'Script',
+      'codesets' => {
+                     'alpha'        => ['ucfirst'],
+                     'num'          => ['numeric',3],
+                    }
+   };
+
+
+1;
+package #
+Locale::Codes::Language_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'language'}{'alpha-2'}{'code'} = {
+   q(in) => q(Indonesian),
+   q(iw) => q(Hebrew),
+   q(ji) => q(Yiddish),
+   q(jw) => q(Javanese),
+   q(mo) => q(Moldavian),
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-3'}{'code'} = {
+   q(aam) => q(Aramanik),
+   q(adp) => q(Adap),
+   q(aue) => q(=/Kx'au//'ein),
+   q(ayx) => q(Ayi (China)),
+   q(baz) => q(Tunen),
+   q(bgm) => q(Baga Mboteni),
+   q(bjd) => q(Bandjigali),
+   q(bjq) => q(Southern Betsimisaraka Malagasy),
+   q(bmy) => q(Bemba (Democratic Republic of Congo)),
+   q(btl) => q(Bhatola),
+   q(bxx) => q(Borna (Democratic Republic of Congo)),
+   q(byy) => q(Buya),
+   q(cbe) => q(Chipiajes),
+   q(cbh) => q(Cagua),
+   q(ccq) => q(Chaungtha),
+   q(cka) => q(Khumi Awa Chin),
+   q(coy) => q(Coyaima),
+   q(cqu) => q(Chilean Quechua),
+   q(cum) => q(Cumeral),
+   q(daf) => q(Dan),
+   q(dap) => q(Nisi (India)),
+   q(dha) => q(Dhanwar (India)),
+   q(djl) => q(Djiwarli),
+   q(dkl) => q(Kolum So Dogon),
+   q(duj) => q(Dhuwal),
+   q(dwl) => q(Walo Kumbe Dogon),
+   q(dzd) => q(Daza),
+   q(elp) => q(Elpaputih),
+   q(emo) => q(Emok),
+   q(gbc) => q(Garawa),
+   q(gfx) => q(Mangetti Dune !Xung),
+   q(ggn) => q(Eastern Gurung),
+   q(ggo) => q(Southern Gondi),
+   q(ggr) => q(Aghu Tharnggalu),
+   q(gio) => q(Gelao),
+   q(gti) => q(Gbati-ri),
+   q(guv) => q(Gey),
+   q(hrr) => q(Horuru),
+   q(iap) => q(Iapama),
+   q(ibi) => q(Ibilo),
+   q(ill) => q(Iranun),
+   q(ilw) => q(Talur),
+   q(ime) => q(Imeraguen),
+   q(izi) => q(Izi-Ezaa-Ikwo-Mgbo),
+   q(jar) => q(Jarawa (Nigeria)),
+   q(jeg) => q(Jeng),
+   q(kbf) => q(Kakauhua),
+   q(kdv) => q(Kado),
+   q(kgc) => q(Kasseng),
+   q(kgd) => q(Kataang),
+   q(kgh) => q(Upper Tanudan Kalinga),
+   q(koj) => q(Sara Dunjo),
+   q(kox) => q(Coxima),
+   q(kpp) => q(Paku Karen),
+   q(krm) => q(Krim),
+   q(ktr) => q(Kota Marudu Tinagas),
+   q(kvs) => q(Kunggara),
+   q(kwq) => q(Kwak),
+   q(kxe) => q(Kakihum),
+   q(kzh) => q(Kenuzi-Dongola),
+   q(kzj) => q(Coastal Kadazan),
+   q(kzt) => q(Tambunan Dusun),
+   q(lcq) => q(Luhu),
+   q(leg) => q(Lengua),
+   q(lii) => q(Lingkhim),
+   q(lmm) => q(Lamam),
+   q(meg) => q(Mea),
+   q(mgx) => q(Omati),
+   q(mhh) => q(Maskoy Pidgin),
+   q(mja) => q(Mahei),
+   q(mld) => q(Malakhel),
+   q(mnt) => q(Maykulan),
+   q(mwd) => q(Mudbura),
+   q(mwj) => q(Maligo),
+   q(myq) => q(Forest Maninka),
+   q(nad) => q(Nijadali),
+   q(nbf) => q(Naxi),
+   q(nbx) => q(Ngura),
+   q(nln) => q(Durango Nahuatl),
+   q(nlr) => q(Ngarla),
+   q(nnx) => q(Ngong),
+   q(noo) => q(Nootka),
+   q(nts) => q(Natagaimas),
+   q(ome) => q(Omejes),
+   q(oun) => q(!O!ung),
+   q(pbz) => q(Palu),
+   q(pcr) => q(Panang),
+   q(pgy) => q(Pongyong),
+   q(pmc) => q(Palumata),
+   q(pmu) => q(Mirpur Panjabi),
+   q(pod) => q(Ponares),
+   q(ppa) => q(Pao),
+   q(ppr) => q(Piru),
+   q(prb) => q(Lua'),
+   q(pry) => q(Pray 3),
+   q(puk) => q(Pu Ko),
+   q(puz) => q(Purum Naga),
+   q(rie) => q(Rien),
+   q(rna) => q(Runa),
+   q(rsi) => q(Rennellese Sign Language),
+   q(sap) => q(Sanapana),
+   q(sca) => q(Sansu),
+   q(sgo) => q(Songa),
+   q(skk) => q(Sok),
+   q(snh) => q(Shinabo),
+   q(svr) => q(Savara),
+   q(tdu) => q(Tempasuk Dusun),
+   q(tgg) => q(Tangga),
+   q(thc) => q(Tai Hang Tong),
+   q(thx) => q(The),
+   q(tid) => q(Tidong),
+   q(tie) => q(Tingal),
+   q(tkk) => q(Takpa),
+   q(tlw) => q(South Wemale),
+   q(tmp) => q(Tai Mene),
+   q(tne) => q(Tinoc Kallahan),
+   q(toe) => q(Tomedes),
+   q(tsf) => q(Southwestern Tamang),
+   q(unp) => q(Worora),
+   q(uok) => q(Uokha),
+   q(wit) => q(Wintu),
+   q(wiw) => q(Wirangu),
+   q(xba) => q(Kamba (Brazil)),
+   q(xbx) => q(Kabixi),
+   q(xia) => q(Xiandao),
+   q(xip) => q(Xipinawa),
+   q(xkh) => q(Karahawyana),
+   q(xsj) => q(Subi),
+   q(ybd) => q(Yangbye),
+   q(yds) => q(Yiddish Sign Language),
+   q(yen) => q(Yendang),
+   q(yiy) => q(Yir Yoront),
+   q(yma) => q(Yamphe),
+   q(ymt) => q(Mator-Taygi-Karagas),
+   q(ynh) => q(Yangho),
+   q(yos) => q(Yos),
+   q(yri) => q(Yari),
+   q(yuu) => q(Yugh),
+};
+
+$Locale::Codes::Retired{'language'}{'term'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-2'}{'name'} = {
+   q((afan) oromo) => [ q(om), q((Afan) Oromo) ],
+   q(bengali; bangla) => [ q(bn), q(Bengali; Bangla) ],
+   q(bhutani) => [ q(dz), q(Bhutani) ],
+   q(bihari) => [ q(bh), q(Bihari) ],
+   q(bokmal, norwegian) => [ q(nb), q(Bokmal, Norwegian) ],
+   q(byelorussian) => [ q(be), q(Byelorussian) ],
+   q(cambodian) => [ q(km), q(Cambodian) ],
+   q(chichewa) => [ q(ny), q(Chichewa) ],
+   q(chichewa; nyanja) => [ q(ny), q(Chichewa; Nyanja) ],
+   q(divehi) => [ q(dv), q(Divehi) ],
+   q(faeroese) => [ q(fo), q(Faeroese) ],
+   q(fiji) => [ q(fj), q(Fiji) ],
+   q(frisian) => [ q(fy), q(Frisian) ],
+   q(gaelic) => [ q(gd), q(Gaelic) ],
+   q(gaelic (scots)) => [ q(gd), q(Gaelic (Scots)) ],
+   q(gallegan) => [ q(gl), q(Gallegan) ],
+   q(greek) => [ q(el), q(Greek) ],
+   q(greek, modern (1453-)) => [ q(el), q(Greek, Modern (1453-)) ],
+   q(greenlandic) => [ q(kl), q(Greenlandic) ],
+   q(interlingua) => [ q(ia), q(Interlingua) ],
+   q(inupiak) => [ q(ik), q(Inupiak) ],
+   q(khmer) => [ q(km), q(Khmer) ],
+   q(kirundi) => [ q(rn), q(Kirundi) ],
+   q(laothian) => [ q(lo), q(Laothian) ],
+   q(latvian, lettish) => [ q(lv), q(Latvian, Lettish) ],
+   q(letzeburgesch) => [ q(lb), q(Letzeburgesch) ],
+   q(malay) => [ q(ms), q(Malay) ],
+   q(marshall) => [ q(mh), q(Marshall) ],
+   q(moldavian) => [ q(mo), q(Moldavian) ],
+   q(ndebele, north) => [ q(nd), q(Ndebele, North) ],
+   q(ndebele, south) => [ q(nr), q(Ndebele, South) ],
+   q(nepali) => [ q(ne), q(Nepali) ],
+   q(norwegian bokmal) => [ q(nb), q(Norwegian Bokmal) ],
+   q(occitan) => [ q(oc), q(Occitan) ],
+   q(oriya) => [ q(or), q(Oriya) ],
+   q(ossetian; ossetic) => [ q(os), q(Ossetian; Ossetic) ],
+   q(pashto, pushto) => [ q(ps), q(Pashto, Pushto) ],
+   q(punjabi) => [ q(pa), q(Punjabi) ],
+   q(rhaeto-romance) => [ q(rm), q(Rhaeto-Romance) ],
+   q(sami) => [ q(se), q(Sami) ],
+   q(sangro) => [ q(sg), q(Sangro) ],
+   q(scots gaelic) => [ q(gd), q(Scots Gaelic) ],
+   q(sesotho) => [ q(st), q(Sesotho) ],
+   q(setswana) => [ q(tn), q(Setswana) ],
+   q(singhalese) => [ q(si), q(Singhalese) ],
+   q(sinhalese) => [ q(si), q(Sinhalese) ],
+   q(siswati) => [ q(ss), q(Siswati) ],
+   q(sotho) => [ q(st), q(Sotho) ],
+   q(sotho, southern) => [ q(st), q(Sotho, Southern) ],
+   q(swahili) => [ q(sw), q(Swahili) ],
+   q(tegulu) => [ q(te), q(Tegulu) ],
+   q(tonga) => [ q(to), q(Tonga) ],
+   q(volapuk) => [ q(vo), q(Volapuk) ],
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-3'}{'name'} = {
+   q(!o!ung) => [ q(oun), q(!O!ung) ],
+   q(=/kx'au//'ein) => [ q(aue), q(=/Kx'au//'ein) ],
+   q(a'tong) => [ q(aot), q(A'tong) ],
+   q(adap) => [ q(adp), q(Adap) ],
+   q(aghu tharnggalu) => [ q(ggr), q(Aghu Tharnggalu) ],
+   q(ainu) => [ q(ain), q(Ainu) ],
+   q(amarag) => [ q(amg), q(Amarag) ],
+   q(anu) => [ q(anl), q(Anu) ],
+   q(apalik) => [ q(apo), q(Apalik) ],
+   q(aramanik) => [ q(aam), q(Aramanik) ],
+   q(aromanian) => [ q(rup), q(Aromanian) ],
+   q(atong) => [ q(ato), q(Atong) ],
+   q(ayi (china)) => [ q(ayx), q(Ayi (China)) ],
+   q(baga binari) => [ q(bcg), q(Baga Binari) ],
+   q(baga mboteni) => [ q(bgm), q(Baga Mboteni) ],
+   q(bandjigali) => [ q(bjd), q(Bandjigali) ],
+   q(bangi me) => [ q(dba), q(Bangi Me) ],
+   q(bantu (other)) => [ q(bnt), q(Bantu (Other)) ],
+   q(basa) => [ q(bas), q(Basa) ],
+   q(bauro) => [ q(bxa), q(Bauro) ],
+   q(bebe) => [ q(bzv), q(Bebe) ],
+   q(bedik) => [ q(tnr), q(Bedik) ],
+   q(begbere-ejar) => [ q(bqv), q(Begbere-Ejar) ],
+   q(bekwil) => [ q(bkw), q(Bekwil) ],
+   q(bemba) => [ q(bem), q(Bemba) ],
+   q(bemba (democratic republic of congo)) => [ q(bmy), q(Bemba (Democratic Republic of Congo)) ],
+   q(bhatola) => [ q(btl), q(Bhatola) ],
+   q(blin) => [ q(byn), q(Blin) ],
+   q(bolo) => [ q(blv), q(Bolo) ],
+   q(bom) => [ q(bmf), q(Bom) ],
+   q(borna (democratic republic of congo)) => [ q(bxx), q(Borna (Democratic Republic of Congo)) ],
+   q(brek karen) => [ q(kvl), q(Brek Karen) ],
+   q(burum-mindik) => [ q(bmu), q(Burum-Mindik) ],
+   q(buya) => [ q(byy), q(Buya) ],
+   q(cagua) => [ q(cbh), q(Cagua) ],
+   q(central bicolano) => [ q(bcl), q(Central Bicolano) ],
+   q(central dusun) => [ q(dtp), q(Central Dusun) ],
+   q(chaungtha) => [ q(ccq), q(Chaungtha) ],
+   q(chilean quechua) => [ q(cqu), q(Chilean Quechua) ],
+   q(chipiajes) => [ q(cbe), q(Chipiajes) ],
+   q(coastal kadazan) => [ q(kzj), q(Coastal Kadazan) ],
+   q(coxima) => [ q(kox), q(Coxima) ],
+   q(coyaima) => [ q(coy), q(Coyaima) ],
+   q(creoles and pidgins ) => [ q(crp), q(Creoles and pidgins ) ],
+   q(creoles and pidgins, english based) => [ q(cpe), q(Creoles and pidgins, English based) ],
+   q(creoles and pidgins, french-based ) => [ q(cpf), q(Creoles and pidgins, French-based ) ],
+   q(creoles and pidgins, portuguese-based ) => [ q(cpp), q(Creoles and pidgins, Portuguese-based ) ],
+   q(cumeral) => [ q(cum), q(Cumeral) ],
+   q(cung) => [ q(cug), q(Cung) ],
+   q(dakaka) => [ q(bpa), q(Dakaka) ],
+   q(darling) => [ q(drl), q(Darling) ],
+   q(daza) => [ q(dzd), q(Daza) ],
+   q(dhangu) => [ q(dhg), q(Dhangu) ],
+   q(dhanwar (india)) => [ q(dha), q(Dhanwar (India)) ],
+   q(dimir) => [ q(dmc), q(Dimir) ],
+   q(djangu) => [ q(dhg), q(Djangu) ],
+   q(dogri) => [ q(doi), q(Dogri) ],
+   q(duduela) => [ q(duk), q(Duduela) ],
+   q(duli) => [ q(duz), q(Duli) ],
+   q(dumpu) => [ q(wtf), q(Dumpu) ],
+   q(durango nahuatl) => [ q(nln), q(Durango Nahuatl) ],
+   q(dutch, middle (ca.1050-1350)) => [ q(dum), q(Dutch, Middle (ca.1050-1350)) ],
+   q(eastern gurung) => [ q(ggn), q(Eastern Gurung) ],
+   q(elpaputih) => [ q(elp), q(Elpaputih) ],
+   q(emok) => [ q(emo), q(Emok) ],
+   q(english, middle (1100-1500)) => [ q(enm), q(English, Middle (1100-1500)) ],
+   q(english, old (ca.450-1100)) => [ q(ang), q(English, Old (ca.450-1100)) ],
+   q(fang) => [ q(fan), q(Fang) ],
+   q(forest maninka) => [ q(myq), q(Forest Maninka) ],
+   q(french, middle (ca.1400-1600)) => [ q(frm), q(French, Middle (ca.1400-1600)) ],
+   q(french, old (842-ca.1400)) => [ q(fro), q(French, Old (842-ca.1400)) ],
+   q(galoli) => [ q(gal), q(Galoli) ],
+   q(garawa) => [ q(gbc), q(Garawa) ],
+   q(gbati-ri) => [ q(gti), q(Gbati-ri) ],
+   q(gbaya) => [ q(gba), q(Gbaya) ],
+   q(gelao) => [ q(gio), q(Gelao) ],
+   q(german, middle high (ca.1050-1500)) => [ q(gmh), q(German, Middle High (ca.1050-1500)) ],
+   q(german, old high (ca.750-1050)) => [ q(goh), q(German, Old High (ca.750-1050)) ],
+   q(gey) => [ q(guv), q(Gey) ],
+   q(greek, ancient (to 1453)) => [ q(grc), q(Greek, Ancient (to 1453)) ],
+   q(gusan) => [ q(gsn), q(Gusan) ],
+   q(guwinmal) => [ q(xgm), q(Guwinmal) ],
+   q(hainyaxo bozo) => [ q(bzx), q(Hainyaxo Bozo) ],
+   q(haka chin) => [ q(cnh), q(Haka Chin) ],
+   q(hawai'i pidgin sign language) => [ q(hps), q(Hawai'i Pidgin Sign Language) ],
+   q(horuru) => [ q(hrr), q(Horuru) ],
+   q(hungworo) => [ q(nat), q(Hungworo) ],
+   q(iapama) => [ q(iap), q(Iapama) ],
+   q(ibilo) => [ q(ibi), q(Ibilo) ],
+   q(idun) => [ q(ldb), q(Idun) ],
+   q(ikobi-mena) => [ q(meb), q(Ikobi-Mena) ],
+   q(imeraguen) => [ q(ime), q(Imeraguen) ],
+   q(iranun) => [ q(ill), q(Iranun) ],
+   q(irish, middle (900-1200)) => [ q(mga), q(Irish, Middle (900-1200)) ],
+   q(irish, old (to 900)) => [ q(sga), q(Irish, Old (to 900)) ],
+   q(izi-ezaa-ikwo-mgbo) => [ q(izi), q(Izi-Ezaa-Ikwo-Mgbo) ],
+   q(jarawa (nigeria)) => [ q(jar), q(Jarawa (Nigeria)) ],
+   q(jeng) => [ q(jeg), q(Jeng) ],
+   q(kabixi) => [ q(xbx), q(Kabixi) ],
+   q(kachchi) => [ q(kfr), q(Kachchi) ],
+   q(kadara) => [ q(kad), q(Kadara) ],
+   q(kado) => [ q(kdv), q(Kado) ],
+   q(kag-fer-jiir-koor-ror-us-zuksun) => [ q(gel), q(Kag-Fer-Jiir-Koor-Ror-Us-Zuksun) ],
+   q(kakauhua) => [ q(kbf), q(Kakauhua) ],
+   q(kakihum) => [ q(kxe), q(Kakihum) ],
+   q(kamba) => [ q(kam), q(Kamba) ],
+   q(kamba (brazil)) => [ q(xba), q(Kamba (Brazil)) ],
+   q(karahawyana) => [ q(xkh), q(Karahawyana) ],
+   q(kasseng) => [ q(kgc), q(Kasseng) ],
+   q(kataang) => [ q(kgd), q(Kataang) ],
+   q(kayapa kallahan) => [ q(kak), q(Kayapa Kallahan) ],
+   q(kemezung) => [ q(dmo), q(Kemezung) ],
+   q(kenuzi-dongola) => [ q(kzh), q(Kenuzi-Dongola) ],
+   q(khumi awa chin) => [ q(cka), q(Khumi Awa Chin) ],
+   q(kol) => [ q(ekl), q(Kol) ],
+   q(kolum so dogon) => [ q(dkl), q(Kolum So Dogon) ],
+   q(konkani) => [ q(kok), q(Konkani) ],
+   q(kota marudu tinagas) => [ q(ktr), q(Kota Marudu Tinagas) ],
+   q(krim) => [ q(krm), q(Krim) ],
+   q(kru'ng 2) => [ q(krr), q(Kru'ng 2) ],
+   q(kumak) => [ q(nee), q(Kumak) ],
+   q(kuman) => [ q(kue), q(Kuman) ],
+   q(kunggara) => [ q(kvs), q(Kunggara) ],
+   q(kutang ghale) => [ q(ght), q(Kutang Ghale) ],
+   q(kwak) => [ q(kwq), q(Kwak) ],
+   q(kwato) => [ q(kop), q(Kwato) ],
+   q(kyenga) => [ q(tye), q(Kyenga) ],
+   q(lama (myanmar)) => [ q(lay), q(Lama (Myanmar)) ],
+   q(lamam) => [ q(lmm), q(Lamam) ],
+   q(lengua) => [ q(leg), q(Lengua) ],
+   q(lindu) => [ q(klw), q(Lindu) ],
+   q(lingkhim) => [ q(lii), q(Lingkhim) ],
+   q(louisiana creole french) => [ q(lou), q(Louisiana Creole French) ],
+   q(lowa) => [ q(loy), q(Lowa) ],
+   q(lower tanudan kalinga) => [ q(kml), q(Lower Tanudan Kalinga) ],
+   q(lua') => [ q(prb), q(Lua') ],
+   q(luhu) => [ q(lcq), q(Luhu) ],
+   q(mahei) => [ q(mja), q(Mahei) ],
+   q(malakhel) => [ q(mld), q(Malakhel) ],
+   q(malasanga) => [ q(mqz), q(Malasanga) ],
+   q(maligo) => [ q(mwj), q(Maligo) ],
+   q(mangetti dune !xung) => [ q(gfx), q(Mangetti Dune !Xung) ],
+   q(mann) => [ q(mev), q(Mann) ],
+   q(manusela) => [ q(wha), q(Manusela) ],
+   q(mari) => [ q(chm), q(Mari) ],
+   q(maskoy pidgin) => [ q(mhh), q(Maskoy Pidgin) ],
+   q(mator-taygi-karagas) => [ q(ymt), q(Mator-Taygi-Karagas) ],
+   q(maykulan) => [ q(mnt), q(Maykulan) ],
+   q(mbabaram) => [ q(vmb), q(Mbabaram) ],
+   q(mbedam) => [ q(xmd), q(Mbedam) ],
+   q(mbu') => [ q(muc), q(Mbu') ],
+   q(mea) => [ q(meg), q(Mea) ],
+   q(mende) => [ q(men), q(Mende) ],
+   q(minigir) => [ q(vmg), q(Minigir) ],
+   q(mire) => [ q(mvh), q(Mire) ],
+   q(miri) => [ q(mrg), q(Miri) ],
+   q(mirpur panjabi) => [ q(pmu), q(Mirpur Panjabi) ],
+   q(misima-paneati) => [ q(mpx), q(Misima-Paneati) ],
+   q(mixifore) => [ q(mfg), q(Mixifore) ],
+   q(mpongmpong) => [ q(mgg), q(Mpongmpong) ],
+   q(mro chin) => [ q(cmr), q(Mro Chin) ],
+   q(mudbura) => [ q(mwd), q(Mudbura) ],
+   q(muduapa) => [ q(wiv), q(Muduapa) ],
+   q(nakama) => [ q(nib), q(Nakama) ],
+   q(nama (namibia)) => [ q(naq), q(Nama (Namibia)) ],
+   q(nanggu) => [ q(ngr), q(Nanggu) ],
+   q(nangikurrunggurr) => [ q(nam), q(Nangikurrunggurr) ],
+   q(natagaimas) => [ q(nts), q(Natagaimas) ],
+   q(ndrag'ngith) => [ q(dgt), q(Ndrag'ngith) ],
+   q(nepal bhasa) => [ q(new), q(Nepal Bhasa) ],
+   q(nga la) => [ q(hlt), q(Nga La) ],
+   q(ngalkbun) => [ q(ngk), q(Ngalkbun) ],
+   q(ngeq) => [ q(ngt), q(Ngeq) ],
+   q(ngong) => [ q(nnx), q(Ngong) ],
+   q(ngura) => [ q(nbx), q(Ngura) ],
+   q(nijadali) => [ q(nad), q(Nijadali) ],
+   q(nisi (india)) => [ q(dap), q(Nisi (India)) ],
+   q(nootka) => [ q(noo), q(Nootka) ],
+   q(norse, old) => [ q(non), q(Norse, Old) ],
+   q(north wemale) => [ q(weo), q(North Wemale) ],
+   q(northeast pashayi) => [ q(aee), q(Northeast Pashayi) ],
+   q(northern bai) => [ q(bfc), q(Northern Bai) ],
+   q(northern catanduanes bicolano) => [ q(cts), q(Northern Catanduanes Bicolano) ],
+   q(northern lorung) => [ q(lbr), q(Northern Lorung) ],
+   q(northwest pashayi) => [ q(glh), q(Northwest Pashayi) ],
+   q(nsari) => [ q(asj), q(Nsari) ],
+   q(nung (myanmar)) => [ q(nun), q(Nung (Myanmar)) ],
+   q(omati) => [ q(mgx), q(Omati) ],
+   q(omejes) => [ q(ome), q(Omejes) ],
+   q(opuuo) => [ q(lgn), q(Opuuo) ],
+   q(oriya (individual language)) => [ q(ory), q(Oriya (individual language)) ],
+   q(ounge) => [ q(oue), q(Ounge) ],
+   q(ovdalian) => [ q(ovd), q(Ovdalian) ],
+   q(palu) => [ q(pbz), q(Palu) ],
+   q(palumata) => [ q(pmc), q(Palumata) ],
+   q(panang) => [ q(pcr), q(Panang) ],
+   q(pao) => [ q(ppa), q(Pao) ],
+   q(persian, old (ca.600-400 b.c.)) => [ q(peo), q(Persian, Old (ca.600-400 B.C.)) ],
+   q(piru) => [ q(ppr), q(Piru) ],
+   q(ponares) => [ q(pod), q(Ponares) ],
+   q(pongyong) => [ q(pgy), q(Pongyong) ],
+   q(pray 3) => [ q(pry), q(Pray 3) ],
+   q(provencal, old (to 1500)) => [ q(pro), q(Provencal, Old (to 1500)) ],
+   q(pu ko) => [ q(puk), q(Pu Ko) ],
+   q(purum naga) => [ q(puz), q(Purum Naga) ],
+   q(pyu) => [ q(pby), q(Pyu) ],
+   q(rennellese sign language) => [ q(rsi), q(Rennellese Sign Language) ],
+   q(rien) => [ q(rie), q(Rien) ],
+   q(runa) => [ q(rna), q(Runa) ],
+   q(sakam) => [ q(skm), q(Sakam) ],
+   q(san juan guelavia zapotec) => [ q(zab), q(San Juan Guelavia Zapotec) ],
+   q(san marcos tlalcoyalco popoloca) => [ q(pls), q(San Marcos Tlalcoyalco Popoloca) ],
+   q(sansu) => [ q(sca), q(Sansu) ],
+   q(sara dunjo) => [ q(koj), q(Sara Dunjo) ],
+   q(sauk) => [ q(skc), q(Sauk) ],
+   q(savara) => [ q(svr), q(Savara) ],
+   q(sepen) => [ q(spm), q(Sepen) ],
+   q(seraiki) => [ q(skr), q(Seraiki) ],
+   q(shabo) => [ q(sbf), q(Shabo) ],
+   q(shangzhai) => [ q(jih), q(Shangzhai) ],
+   q(shinabo) => [ q(snh), q(Shinabo) ],
+   q(so (cameroon)) => [ q(sox), q(So (Cameroon)) ],
+   q(sok) => [ q(skk), q(Sok) ],
+   q(songa) => [ q(sgo), q(Songa) ],
+   q(south american indian (other)) => [ q(sai), q(South American Indian (Other)) ],
+   q(south wemale) => [ q(tlw), q(South Wemale) ],
+   q(southeast pashayi) => [ q(psi), q(Southeast Pashayi) ],
+   q(southern catanduanes bicolano) => [ q(bln), q(Southern Catanduanes Bicolano) ],
+   q(southern gondi) => [ q(ggo), q(Southern Gondi) ],
+   q(southern lorung) => [ q(lrr), q(Southern Lorung) ],
+   q(southwest pashayi) => [ q(psh), q(Southwest Pashayi) ],
+   q(southwestern tamang) => [ q(tsf), q(Southwestern Tamang) ],
+   q(subi) => [ q(xsj), q(Subi) ],
+   q(sulung) => [ q(suv), q(Sulung) ],
+   q(tai hang tong) => [ q(thc), q(Tai Hang Tong) ],
+   q(tai mene) => [ q(tmp), q(Tai Mene) ],
+   q(takpa) => [ q(tkk), q(Takpa) ],
+   q(talur) => [ q(ilw), q(Talur) ],
+   q(tambunan dusun) => [ q(kzt), q(Tambunan Dusun) ],
+   q(tangga) => [ q(tgg), q(Tangga) ],
+   q(tangkhul naga) => [ q(nmf), q(Tangkhul Naga) ],
+   q(teluti) => [ q(tlt), q(Teluti) ],
+   q(tempasuk dusun) => [ q(tdu), q(Tempasuk Dusun) ],
+   q(the) => [ q(thx), q(The) ],
+   q(tidong) => [ q(tid), q(Tidong) ],
+   q(tina sambal) => [ q(xsb), q(Tina Sambal) ],
+   q(tingal) => [ q(tie), q(Tingal) ],
+   q(tinoc kallahan) => [ q(tne), q(Tinoc Kallahan) ],
+   q(tomedes) => [ q(toe), q(Tomedes) ],
+   q(tonga (thailand)) => [ q(tnz), q(Tonga (Thailand)) ],
+   q(tsotsitaal) => [ q(fly), q(Tsotsitaal) ],
+   q(turkish, ottoman (1500-1928)) => [ q(ota), q(Turkish, Ottoman (1500-1928)) ],
+   q(unggarranggu) => [ q(xun), q(Unggarranggu) ],
+   q(uokha) => [ q(uok), q(Uokha) ],
+   q(upper tanudan kalinga) => [ q(kgh), q(Upper Tanudan Kalinga) ],
+   q(vasekela bushman) => [ q(vaj), q(Vasekela Bushman) ],
+   q(walamo) => [ q(wal), q(Walamo) ],
+   q(walo kumbe dogon) => [ q(dwl), q(Walo Kumbe Dogon) ],
+   q(waray) => [ q(war), q(Waray) ],
+   q(welaung) => [ q(weu), q(Welaung) ],
+   q(were) => [ q(wei), q(Were) ],
+   q(western canadian inuktitut) => [ q(ikt), q(Western Canadian Inuktitut) ],
+   q(western gurung) => [ q(gvr), q(Western Gurung) ],
+   q(worora) => [ q(unp), q(Worora) ],
+   q(xiandao) => [ q(xia), q(Xiandao) ],
+   q(xipinawa) => [ q(xip), q(Xipinawa) ],
+   q(yamphe) => [ q(yma), q(Yamphe) ],
+   q(yangbye) => [ q(ybd), q(Yangbye) ],
+   q(yangho) => [ q(ynh), q(Yangho) ],
+   q(yari) => [ q(yri), q(Yari) ],
+   q(yeskwa) => [ q(yes), q(Yeskwa) ],
+   q(yiddish sign language) => [ q(yds), q(Yiddish Sign Language) ],
+   q(yiwom) => [ q(gek), q(Yiwom) ],
+   q(yonggom) => [ q(yon), q(Yonggom) ],
+   q(yos) => [ q(yos), q(Yos) ],
+   q(yuaga) => [ q(nua), q(Yuaga) ],
+   q(yugh) => [ q(yuu), q(Yugh) ],
+   q(zyphe) => [ q(zyp), q(Zyphe) ],
+};
+
+$Locale::Codes::Retired{'language'}{'term'}{'name'} = {
+};
+
+
+1;
+package #
+Locale::Codes::Country_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:17:40 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'country'}{'id'} = '0280';
+
+$Locale::Codes::Data{'country'}{'id2names'} = {
+   q(0001) => [
+      q(Afghanistan),
+      ],
+   q(0002) => [
+      q(Aland Islands),
+      ],
+   q(0003) => [
+      q(Albania),
+      ],
+   q(0004) => [
+      q(Algeria),
+      ],
+   q(0005) => [
+      q(American Samoa),
+      ],
+   q(0006) => [
+      q(Andorra),
+      ],
+   q(0007) => [
+      q(Angola),
+      ],
+   q(0008) => [
+      q(Anguilla),
+      ],
+   q(0009) => [
+      q(Antarctica),
+      ],
+   q(0010) => [
+      q(Antigua and Barbuda),
+      ],
+   q(0011) => [
+      q(Argentina),
+      ],
+   q(0012) => [
+      q(Armenia),
+      ],
+   q(0013) => [
+      q(Aruba),
+      ],
+   q(0014) => [
+      q(Australia),
+      ],
+   q(0015) => [
+      q(Austria),
+      ],
+   q(0016) => [
+      q(Azerbaijan),
+      ],
+   q(0017) => [
+      q(Bahamas),
+      q(The Bahamas),
+      q(Bahamas, The),
+      q(Bahamas (The)),
+      ],
+   q(0018) => [
+      q(Bahrain),
+      ],
+   q(0019) => [
+      q(Bangladesh),
+      ],
+   q(0020) => [
+      q(Barbados),
+      ],
+   q(0021) => [
+      q(Belarus),
+      ],
+   q(0022) => [
+      q(Belgium),
+      ],
+   q(0023) => [
+      q(Belize),
+      ],
+   q(0024) => [
+      q(Benin),
+      ],
+   q(0025) => [
+      q(Bermuda),
+      ],
+   q(0026) => [
+      q(Bhutan),
+      ],
+   q(0027) => [
+      q(Bolivia (Plurinational State of)),
+      q(Bolivia, Plurinational State of),
+      q(Plurinational State of Bolivia),
+      q(Bolivia),
+      ],
+   q(0028) => [
+      q(Bonaire, Sint Eustatius and Saba),
+      q(Bonaire, Sint Eustatius, and Saba),
+      ],
+   q(0029) => [
+      q(Bosnia and Herzegovina),
+      ],
+   q(0030) => [
+      q(Botswana),
+      ],
+   q(0031) => [
+      q(Bouvet Island),
+      ],
+   q(0032) => [
+      q(Brazil),
+      ],
+   q(0033) => [
+      q(British Indian Ocean Territory),
+      q(The British Indian Ocean Territory),
+      q(British Indian Ocean Territory, The),
+      q(British Indian Ocean Territory (The)),
+      ],
+   q(0034) => [
+      q(Brunei Darussalam),
+      q(Brunei),
+      ],
+   q(0035) => [
+      q(Bulgaria),
+      ],
+   q(0036) => [
+      q(Burkina Faso),
+      ],
+   q(0037) => [
+      q(Burundi),
+      ],
+   q(0038) => [
+      q(Cabo Verde),
+      ],
+   q(0039) => [
+      q(Cambodia),
+      ],
+   q(0040) => [
+      q(Cameroon),
+      ],
+   q(0041) => [
+      q(Canada),
+      ],
+   q(0042) => [
+      q(Cayman Islands),
+      q(The Cayman Islands),
+      q(Cayman Islands, The),
+      q(Cayman Islands (The)),
+      ],
+   q(0043) => [
+      q(Central African Republic),
+      q(The Central African Republic),
+      q(Central African Republic, The),
+      q(Central African Republic (The)),
+      ],
+   q(0044) => [
+      q(Chad),
+      ],
+   q(0045) => [
+      q(Chile),
+      ],
+   q(0046) => [
+      q(China),
+      ],
+   q(0047) => [
+      q(Christmas Island),
+      ],
+   q(0048) => [
+      q(Cocos (Keeling) Islands),
+      q(The Cocos (Keeling) Islands),
+      q(Cocos (Keeling) Islands, The),
+      q(Cocos (Keeling) Islands (The)),
+      q(Cocos Islands),
+      q(The Cocos Islands),
+      q(Keeling Islands),
+      q(The Keeling Islands),
+      ],
+   q(0049) => [
+      q(Colombia),
+      ],
+   q(0050) => [
+      q(Comoros),
+      q(The Comoros),
+      q(Comoros, The),
+      q(Comoros (The)),
+      ],
+   q(0051) => [
+      q(Congo (The Democratic Republic of the)),
+      q(Congo, The Democratic Republic of the),
+      q(Congo, Democratic Republic of the),
+      q(The Democratic Republic of the Congo),
+      q(Democratic Republic of the Congo),
+      q(Congo-Kinshasa),
+      q(Congo (Kinshasa)),
+      ],
+   q(0052) => [
+      q(Congo),
+      q(The Congo),
+      q(Congo, The),
+      q(Congo (The)),
+      q(The Republic of the Congo),
+      q(Republic of the Congo),
+      q(Congo, The Republic of the),
+      q(Congo, Republic of the),
+      q(Congo-Brazzaville),
+      q(Congo (Brazzaville)),
+      ],
+   q(0053) => [
+      q(Cook Islands),
+      q(The Cook Islands),
+      q(Cook Islands, The),
+      q(Cook Islands (The)),
+      ],
+   q(0054) => [
+      q(Costa Rica),
+      ],
+   q(0055) => [
+      q(Cote d'Ivoire),
+      ],
+   q(0056) => [
+      q(Croatia),
+      ],
+   q(0057) => [
+      q(Cuba),
+      ],
+   q(0058) => [
+      q(Curacao),
+      ],
+   q(0059) => [
+      q(Cyprus),
+      ],
+   q(0060) => [
+      q(Czechia),
+      q(Czech Republic),
+      q(The Czech Republic),
+      q(Czech Republic, The),
+      q(Czech Republic (The)),
+      ],
+   q(0061) => [
+      q(Denmark),
+      ],
+   q(0062) => [
+      q(Djibouti),
+      ],
+   q(0063) => [
+      q(Dominica),
+      ],
+   q(0064) => [
+      q(Dominican Republic),
+      q(The Dominican Republic),
+      q(Dominican Republic, The),
+      q(Dominican Republic (The)),
+      ],
+   q(0065) => [
+      q(Ecuador),
+      ],
+   q(0066) => [
+      q(Egypt),
+      ],
+   q(0067) => [
+      q(El Salvador),
+      ],
+   q(0068) => [
+      q(Equatorial Guinea),
+      ],
+   q(0069) => [
+      q(Eritrea),
+      ],
+   q(0070) => [
+      q(Estonia),
+      ],
+   q(0071) => [
+      q(Ethiopia),
+      ],
+   q(0072) => [
+      q(Falkland Islands (The) [Malvinas]),
+      q(Falkland Islands (Malvinas)),
+      q(Falkland Islands (Islas Malvinas)),
+      ],
+   q(0073) => [
+      q(Faroe Islands),
+      q(The Faroe Islands),
+      q(Faroe Islands, The),
+      q(Faroe Islands (The)),
+      q(Faeroe Islands),
+      q(The Faeroe Islands),
+      ],
+   q(0074) => [
+      q(Fiji),
+      ],
+   q(0075) => [
+      q(Finland),
+      ],
+   q(0076) => [
+      q(France),
+      ],
+   q(0077) => [
+      q(French Guiana),
+      ],
+   q(0078) => [
+      q(French Polynesia),
+      ],
+   q(0079) => [
+      q(French Southern Territories),
+      q(The French Southern Territories),
+      q(French Southern Territories, The),
+      q(French Southern Territories (The)),
+      q(French Southern and Antarctic Lands),
+      ],
+   q(0080) => [
+      q(Gabon),
+      ],
+   q(0081) => [
+      q(Gambia),
+      q(The Gambia),
+      q(Gambia, The),
+      q(Gambia (The)),
+      ],
+   q(0082) => [
+      q(Georgia),
+      ],
+   q(0083) => [
+      q(Germany),
+      ],
+   q(0084) => [
+      q(Ghana),
+      ],
+   q(0085) => [
+      q(Gibraltar),
+      ],
+   q(0086) => [
+      q(Greece),
+      ],
+   q(0087) => [
+      q(Greenland),
+      ],
+   q(0088) => [
+      q(Grenada),
+      ],
+   q(0089) => [
+      q(Guadeloupe),
+      ],
+   q(0090) => [
+      q(Guam),
+      ],
+   q(0091) => [
+      q(Guatemala),
+      ],
+   q(0092) => [
+      q(Guernsey),
+      ],
+   q(0093) => [
+      q(Guinea),
+      ],
+   q(0094) => [
+      q(Guinea-Bissau),
+      ],
+   q(0095) => [
+      q(Guyana),
+      ],
+   q(0096) => [
+      q(Haiti),
+      ],
+   q(0097) => [
+      q(Heard Island and McDonald Islands),
+      ],
+   q(0098) => [
+      q(Holy See),
+      q(The Holy See),
+      q(Holy See, The),
+      q(Holy See (The)),
+      q(Holy See (The) [Vatican City State]),
+      q(Holy See (Vatican City State)),
+      q(Holy See (Vatican City)),
+      q(Vatican City),
+      ],
+   q(0099) => [
+      q(Honduras),
+      ],
+   q(0100) => [
+      q(Hong Kong),
+      q(China, Hong Kong Special Administrative Region),
+      q(Hong Kong S.A.R.),
+      q(Hong Kong Special Administrative Region of China),
+      ],
+   q(0101) => [
+      q(Hungary),
+      ],
+   q(0102) => [
+      q(Iceland),
+      ],
+   q(0103) => [
+      q(India),
+      ],
+   q(0104) => [
+      q(Indonesia),
+      ],
+   q(0105) => [
+      q(Iran (Islamic Republic of)),
+      q(Iran (The Islamic Republic of)),
+      q(Iran, Islamic Republic of),
+      q(Iran, The Islamic Republic of),
+      q(Islamic Republic of Iran),
+      q(The Islamic Republic of Iran),
+      q(Iran),
+      ],
+   q(0106) => [
+      q(Iraq),
+      ],
+   q(0107) => [
+      q(Ireland),
+      ],
+   q(0108) => [
+      q(Isle of Man),
+      ],
+   q(0109) => [
+      q(Israel),
+      ],
+   q(0110) => [
+      q(Italy),
+      ],
+   q(0111) => [
+      q(Jamaica),
+      ],
+   q(0112) => [
+      q(Japan),
+      ],
+   q(0113) => [
+      q(Jersey),
+      ],
+   q(0114) => [
+      q(Jordan),
+      ],
+   q(0115) => [
+      q(Kazakhstan),
+      q(Kazakstan),
+      ],
+   q(0116) => [
+      q(Kenya),
+      ],
+   q(0117) => [
+      q(Kiribati),
+      ],
+   q(0118) => [
+      q(Korea, The Democratic People's Republic of),
+      q(Korea (The Democratic People's Republic of)),
+      q(Korea, Democratic People's Republic of),
+      q(Korea (Democratic People's Republic of)),
+      q(The Democratic People's Republic of Korea),
+      q(Democratic People's Republic of Korea),
+      q(North Korea),
+      q(Korea, North),
+      ],
+   q(0119) => [
+      q(Korea, The Republic of),
+      q(Korea (The Republic of)),
+      q(Korea, Republic of),
+      q(Korea (Republic of)),
+      q(The Republic of Korea),
+      q(Republic of Korea),
+      q(South Korea),
+      q(Korea, South),
+      ],
+   q(0120) => [
+      q(Kuwait),
+      ],
+   q(0121) => [
+      q(Kyrgyzstan),
+      ],
+   q(0122) => [
+      q(Lao People's Democratic Republic),
+      q(The Lao People's Democratic Republic),
+      q(Lao People's Democratic Republic, The),
+      q(Lao People's Democratic Republic (The)),
+      q(Laos),
+      ],
+   q(0123) => [
+      q(Latvia),
+      ],
+   q(0124) => [
+      q(Lebanon),
+      ],
+   q(0125) => [
+      q(Lesotho),
+      ],
+   q(0126) => [
+      q(Liberia),
+      ],
+   q(0127) => [
+      q(Libya),
+      ],
+   q(0128) => [
+      q(Liechtenstein),
+      ],
+   q(0129) => [
+      q(Lithuania),
+      ],
+   q(0130) => [
+      q(Luxembourg),
+      ],
+   q(0131) => [
+      q(Macao),
+      q(China, Macao Special Administrative Region),
+      q(Macao Special Administrative Region of China),
+      q(Macau S.A.R),
+      q(Macau S.A.R.),
+      q(Macau),
+      ],
+   q(0132) => [
+      q(Macedonia, The former Yugoslav Republic of),
+      q(Macedonia (The former Yugoslav Republic of)),
+      q(Macedonia, former Yugoslav Republic of),
+      q(Macedonia (former Yugoslav Republic of)),
+      q(The former Yugoslav Republic of Macedonia),
+      q(former Yugoslav Republic of Macedonia),
+      q(Macedonia),
+      ],
+   q(0133) => [
+      q(Madagascar),
+      ],
+   q(0134) => [
+      q(Malawi),
+      ],
+   q(0135) => [
+      q(Malaysia),
+      ],
+   q(0136) => [
+      q(Maldives),
+      ],
+   q(0137) => [
+      q(Mali),
+      ],
+   q(0138) => [
+      q(Malta),
+      ],
+   q(0139) => [
+      q(Marshall Islands),
+      q(The Marshall Islands),
+      q(Marshall Islands, The),
+      q(Marshall Islands (The)),
+      ],
+   q(0140) => [
+      q(Martinique),
+      ],
+   q(0141) => [
+      q(Mauritania),
+      ],
+   q(0142) => [
+      q(Mauritius),
+      ],
+   q(0143) => [
+      q(Mayotte),
+      ],
+   q(0144) => [
+      q(Mexico),
+      ],
+   q(0145) => [
+      q(Micronesia (Federated States of)),
+      q(Federated States of Micronesia),
+      q(Micronesia (The Federated States of)),
+      q(Micronesia, Federated States of),
+      q(Micronesia, The Federated States of),
+      q(The Federated States of Micronesia),
+      ],
+   q(0146) => [
+      q(Moldova, The Republic of),
+      q(Moldova (The Republic of)),
+      q(Moldova, Republic of),
+      q(Moldova (Republic of)),
+      q(The Republic of Moldova),
+      q(Republic of Moldova),
+      q(Moldova),
+      ],
+   q(0147) => [
+      q(Monaco),
+      ],
+   q(0148) => [
+      q(Mongolia),
+      ],
+   q(0149) => [
+      q(Montenegro),
+      ],
+   q(0150) => [
+      q(Montserrat),
+      ],
+   q(0151) => [
+      q(Morocco),
+      ],
+   q(0152) => [
+      q(Mozambique),
+      ],
+   q(0153) => [
+      q(Myanmar),
+      q(The Republic of the Union of Myanmar),
+      q(Republic of the Union of Myanmar),
+      q(Burma),
+      ],
+   q(0154) => [
+      q(Namibia),
+      ],
+   q(0155) => [
+      q(Nauru),
+      ],
+   q(0156) => [
+      q(Nepal),
+      ],
+   q(0157) => [
+      q(Netherlands),
+      q(The Netherlands),
+      q(Netherlands, The),
+      q(Netherlands (The)),
+      ],
+   q(0158) => [
+      q(New Caledonia),
+      ],
+   q(0159) => [
+      q(New Zealand),
+      ],
+   q(0160) => [
+      q(Nicaragua),
+      ],
+   q(0161) => [
+      q(Niger),
+      q(The Niger),
+      q(Niger, The),
+      q(Niger (The)),
+      ],
+   q(0162) => [
+      q(Nigeria),
+      ],
+   q(0163) => [
+      q(Niue),
+      ],
+   q(0164) => [
+      q(Norfolk Island),
+      ],
+   q(0165) => [
+      q(Northern Mariana Islands),
+      q(The Northern Mariana Islands),
+      q(Northern Mariana Islands, The),
+      q(Northern Mariana Islands (The)),
+      ],
+   q(0166) => [
+      q(Norway),
+      ],
+   q(0167) => [
+      q(Oman),
+      ],
+   q(0168) => [
+      q(Pakistan),
+      ],
+   q(0169) => [
+      q(Palau),
+      ],
+   q(0170) => [
+      q(Palestine, State of),
+      q(Palestine (State of)),
+      q(State of Palestine),
+      ],
+   q(0171) => [
+      q(Panama),
+      ],
+   q(0172) => [
+      q(Papua New Guinea),
+      ],
+   q(0173) => [
+      q(Paraguay),
+      ],
+   q(0174) => [
+      q(Peru),
+      ],
+   q(0175) => [
+      q(Philippines),
+      q(The Philippines),
+      q(Philippines, The),
+      q(Philippines (The)),
+      ],
+   q(0176) => [
+      q(Pitcairn),
+      q(Pitcairn Island),
+      q(Pitcairn Islands),
+      ],
+   q(0177) => [
+      q(Poland),
+      ],
+   q(0178) => [
+      q(Portugal),
+      ],
+   q(0179) => [
+      q(Puerto Rico),
+      ],
+   q(0180) => [
+      q(Qatar),
+      ],
+   q(0181) => [
+      q(Reunion),
+      ],
+   q(0182) => [
+      q(Romania),
+      ],
+   q(0183) => [
+      q(Russian Federation),
+      q(The Russian Federation),
+      q(Russian Federation, The),
+      q(Russian Federation (The)),
+      q(Russia),
+      ],
+   q(0184) => [
+      q(Rwanda),
+      ],
+   q(0185) => [
+      q(Saint Barthelemy),
+      q(Saint-Barthelemy),
+      ],
+   q(0186) => [
+      q(Saint Helena, Ascension and Tristan da Cunha),
+      q(Saint Helena),
+      q(Saint Helena, Ascension, and Tristan Da Cunha),
+      ],
+   q(0187) => [
+      q(Saint Kitts and Nevis),
+      ],
+   q(0188) => [
+      q(Saint Lucia),
+      ],
+   q(0189) => [
+      q(Saint Martin (French part)),
+      q(Saint Martin),
+      q(Saint-Martin (French part)),
+      q(Saint-Martin),
+      ],
+   q(0190) => [
+      q(Saint Pierre and Miquelon),
+      ],
+   q(0191) => [
+      q(Saint Vincent and the Grenadines),
+      ],
+   q(0192) => [
+      q(Samoa),
+      ],
+   q(0193) => [
+      q(San Marino),
+      ],
+   q(0194) => [
+      q(Sao Tome and Principe),
+      ],
+   q(0195) => [
+      q(Saudi Arabia),
+      ],
+   q(0196) => [
+      q(Senegal),
+      ],
+   q(0197) => [
+      q(Serbia),
+      ],
+   q(0198) => [
+      q(Seychelles),
+      ],
+   q(0199) => [
+      q(Sierra Leone),
+      ],
+   q(0200) => [
+      q(Singapore),
+      ],
+   q(0201) => [
+      q(Sint Maarten (Dutch part)),
+      q(Sint Maarten),
+      ],
+   q(0202) => [
+      q(Slovakia),
+      ],
+   q(0203) => [
+      q(Slovenia),
+      ],
+   q(0204) => [
+      q(Solomon Islands),
+      q(Solomon Islands (The)),
+      q(Solomon Islands, The),
+      q(The Solomon Islands),
+      ],
+   q(0205) => [
+      q(Somalia),
+      ],
+   q(0206) => [
+      q(South Africa),
+      ],
+   q(0207) => [
+      q(South Georgia and the South Sandwich Islands),
+      q(South Georgia and the Islands),
+      q(South Georgia and South Sandwich Islands),
+      ],
+   q(0208) => [
+      q(South Sudan),
+      ],
+   q(0209) => [
+      q(Spain),
+      ],
+   q(0210) => [
+      q(Sri Lanka),
+      ],
+   q(0211) => [
+      q(Sudan),
+      q(The Sudan),
+      q(Sudan, The),
+      q(Sudan (The)),
+      ],
+   q(0212) => [
+      q(Suriname),
+      ],
+   q(0213) => [
+      q(Svalbard and Jan Mayen),
+      q(Svalbard and Jan Mayen Islands),
+      ],
+   q(0214) => [
+      q(Swaziland),
+      ],
+   q(0215) => [
+      q(Sweden),
+      ],
+   q(0216) => [
+      q(Switzerland),
+      ],
+   q(0217) => [
+      q(Syrian Arab Republic),
+      q(Syrian Arab Republic (The)),
+      q(Syrian Arab Republic, The),
+      q(The Syrian Arab Republic),
+      q(Syria),
+      ],
+   q(0218) => [
+      q(Taiwan (Province of China)),
+      q(Taiwan),
+      q(Taiwan, Province of China),
+      ],
+   q(0219) => [
+      q(Tajikistan),
+      ],
+   q(0220) => [
+      q(Tanzania, United Republic of),
+      q(Tanzania (United Republic of)),
+      q(United Republic of Tanzania),
+      q(Tanzania),
+      ],
+   q(0221) => [
+      q(Thailand),
+      ],
+   q(0222) => [
+      q(Timor-Leste),
+      q(East Timor),
+      q(The Democratic Republic of Timor-Leste),
+      q(Democratic Republic of Timor-Leste),
+      q(Timor-Leste, The Democratic Republic of),
+      q(Timor-Leste, Democratic Republic of),
+      q(Timor-Leste (The Democratic Republic of)),
+      q(Timor-Leste (Democratic Republic of)),
+      ],
+   q(0223) => [
+      q(Togo),
+      ],
+   q(0224) => [
+      q(Tokelau),
+      ],
+   q(0225) => [
+      q(Tonga),
+      ],
+   q(0226) => [
+      q(Trinidad and Tobago),
+      ],
+   q(0227) => [
+      q(Tunisia),
+      ],
+   q(0228) => [
+      q(Turkey),
+      ],
+   q(0229) => [
+      q(Turkmenistan),
+      ],
+   q(0230) => [
+      q(Turks and Caicos Islands),
+      q(The Turks and Caicos Islands),
+      q(Turks and Caicos Islands, The),
+      q(Turks and Caicos Islands (The)),
+      ],
+   q(0231) => [
+      q(Tuvalu),
+      ],
+   q(0232) => [
+      q(Uganda),
+      ],
+   q(0233) => [
+      q(Ukraine),
+      ],
+   q(0234) => [
+      q(United Arab Emirates),
+      q(The United Arab Emirates),
+      q(United Arab Emirates, The),
+      q(United Arab Emirates (The)),
+      ],
+   q(0235) => [
+      q(United Kingdom of Great Britain and Northern Ireland),
+      q(The United Kingdom of Great Britain and Northern Ireland),
+      q(United Kingdom of Great Britain and Northern Ireland, The),
+      q(United Kingdom of Great Britain and Northern Ireland (The)),
+      q(Great Britain),
+      q(United Kingdom (The)),
+      q(The United Kingdom),
+      q(United Kingdom),
+      q(United Kingdom, The),
+      q(UK),
+      ],
+   q(0236) => [
+      q(United States Minor Outlying Islands),
+      q(The United States Minor Outlying Islands),
+      q(United States Minor Outlying Islands, The),
+      q(United States Minor Outlying Islands (The)),
+      ],
+   q(0237) => [
+      q(United States of America),
+      q(The United States of America),
+      q(United States of America, The),
+      q(United States of America (The)),
+      q(The United States),
+      q(United States),
+      q(United States, The),
+      q(United States (The)),
+      q(US),
+      q(USA),
+      ],
+   q(0238) => [
+      q(Uruguay),
+      ],
+   q(0239) => [
+      q(Uzbekistan),
+      ],
+   q(0240) => [
+      q(Vanuatu),
+      ],
+   q(0241) => [
+      q(Venezuela (Bolivarian Republic of)),
+      q(Venezuela, Bolivarian Republic of),
+      q(Venezuela, Bolivarian Republic),
+      q(Venezuela),
+      ],
+   q(0242) => [
+      q(Viet Nam),
+      q(Vietnam),
+      ],
+   q(0243) => [
+      q(Virgin Islands (British)),
+      q(British Virgin Islands),
+      q(Virgin Islands, British),
+      q(Virgin Islands (UK)),
+      ],
+   q(0244) => [
+      q(Virgin Islands (U.S.)),
+      q(United States Virgin Islands),
+      q(Virgin Islands (US)),
+      q(Virgin Islands, U.S.),
+      q(Virgin Islands),
+      ],
+   q(0245) => [
+      q(Wallis and Futuna),
+      q(Wallis and Futuna Islands),
+      q(The Territory of the Wallis and Futuna Islands),
+      q(Territory of the Wallis and Futuna Islands),
+      ],
+   q(0246) => [
+      q(Western Sahara),
+      ],
+   q(0247) => [
+      q(Yemen),
+      q(The Yemeni Republic),
+      q(Yemeni Republic),
+      q(Yemeni Republic, The),
+      q(Yemeni Republic (The)),
+      ],
+   q(0248) => [
+      q(Zambia),
+      q(The Republic of Zambia),
+      q(Republic of Zambia),
+      q(Republic of Zambia, The),
+      q(Republic of Zambia (The)),
+      ],
+   q(0249) => [
+      q(Zimbabwe),
+      q(The Republic of Zimbabwe),
+      q(Republic of Zimbabwe),
+      q(Republic of Zimbabwe, The),
+      q(Republic of Zimbabwe (The)),
+      ],
+   q(0250) => [
+      q(Sark),
+      ],
+   q(0251) => [
+      q(Akrotiri),
+      ],
+   q(0252) => [
+      q(Ashmore and Cartier Islands),
+      ],
+   q(0253) => [
+      q(Baker Island),
+      ],
+   q(0254) => [
+      q(Bassas Da India),
+      ],
+   q(0255) => [
+      q(Clipperton Island),
+      ],
+   q(0256) => [
+      q(Coral Sea Islands),
+      ],
+   q(0257) => [
+      q(Dhekelia),
+      ],
+   q(0258) => [
+      q(Diego Garcia),
+      ],
+   q(0259) => [
+      q(Europa Island),
+      ],
+   q(0260) => [
+      q(Gaza Strip),
+      ],
+   q(0261) => [
+      q(Glorioso Islands),
+      ],
+   q(0262) => [
+      q(Guantanamo Bay Naval Base),
+      ],
+   q(0263) => [
+      q(Howland Island),
+      ],
+   q(0264) => [
+      q(Jan Mayen),
+      ],
+   q(0265) => [
+      q(Jarvis Island),
+      ],
+   q(0266) => [
+      q(Johnston Atoll),
+      ],
+   q(0267) => [
+      q(Juan de Nova Island),
+      ],
+   q(0268) => [
+      q(Kingman Reef),
+      ],
+   q(0269) => [
+      q(Kosovo),
+      ],
+   q(0270) => [
+      q(Midway Islands),
+      ],
+   q(0271) => [
+      q(Navassa Island),
+      ],
+   q(0272) => [
+      q(Palmyra Atoll),
+      ],
+   q(0273) => [
+      q(Paracel Islands),
+      ],
+   q(0274) => [
+      q(Spratly Islands),
+      ],
+   q(0275) => [
+      q(Svalbard),
+      ],
+   q(0276) => [
+      q(Tromelin Island),
+      ],
+   q(0277) => [
+      q(Unknown),
+      ],
+   q(0278) => [
+      q(Wake Island),
+      ],
+   q(0279) => [
+      q(West Bank),
+      ],
+};
+
+$Locale::Codes::Data{'country'}{'alias2id'} = {
+   q(afghanistan) => [
+      q(0001),
+      q(0),
+      ],
+   q(akrotiri) => [
+      q(0251),
+      q(0),
+      ],
+   q(aland islands) => [
+      q(0002),
+      q(0),
+      ],
+   q(albania) => [
+      q(0003),
+      q(0),
+      ],
+   q(algeria) => [
+      q(0004),
+      q(0),
+      ],
+   q(american samoa) => [
+      q(0005),
+      q(0),
+      ],
+   q(andorra) => [
+      q(0006),
+      q(0),
+      ],
+   q(angola) => [
+      q(0007),
+      q(0),
+      ],
+   q(anguilla) => [
+      q(0008),
+      q(0),
+      ],
+   q(antarctica) => [
+      q(0009),
+      q(0),
+      ],
+   q(antigua and barbuda) => [
+      q(0010),
+      q(0),
+      ],
+   q(argentina) => [
+      q(0011),
+      q(0),
+      ],
+   q(armenia) => [
+      q(0012),
+      q(0),
+      ],
+   q(aruba) => [
+      q(0013),
+      q(0),
+      ],
+   q(ashmore and cartier islands) => [
+      q(0252),
+      q(0),
+      ],
+   q(australia) => [
+      q(0014),
+      q(0),
+      ],
+   q(austria) => [
+      q(0015),
+      q(0),
+      ],
+   q(azerbaijan) => [
+      q(0016),
+      q(0),
+      ],
+   q(bahamas) => [
+      q(0017),
+      q(0),
+      ],
+   q(bahamas (the)) => [
+      q(0017),
+      q(3),
+      ],
+   q(bahamas, the) => [
+      q(0017),
+      q(2),
+      ],
+   q(bahrain) => [
+      q(0018),
+      q(0),
+      ],
+   q(baker island) => [
+      q(0253),
+      q(0),
+      ],
+   q(bangladesh) => [
+      q(0019),
+      q(0),
+      ],
+   q(barbados) => [
+      q(0020),
+      q(0),
+      ],
+   q(bassas da india) => [
+      q(0254),
+      q(0),
+      ],
+   q(belarus) => [
+      q(0021),
+      q(0),
+      ],
+   q(belgium) => [
+      q(0022),
+      q(0),
+      ],
+   q(belize) => [
+      q(0023),
+      q(0),
+      ],
+   q(benin) => [
+      q(0024),
+      q(0),
+      ],
+   q(bermuda) => [
+      q(0025),
+      q(0),
+      ],
+   q(bhutan) => [
+      q(0026),
+      q(0),
+      ],
+   q(bolivia) => [
+      q(0027),
+      q(3),
+      ],
+   q(bolivia (plurinational state of)) => [
+      q(0027),
+      q(0),
+      ],
+   q(bolivia, plurinational state of) => [
+      q(0027),
+      q(1),
+      ],
+   q(bonaire, sint eustatius and saba) => [
+      q(0028),
+      q(0),
+      ],
+   q(bonaire, sint eustatius, and saba) => [
+      q(0028),
+      q(1),
+      ],
+   q(bosnia and herzegovina) => [
+      q(0029),
+      q(0),
+      ],
+   q(botswana) => [
+      q(0030),
+      q(0),
+      ],
+   q(bouvet island) => [
+      q(0031),
+      q(0),
+      ],
+   q(brazil) => [
+      q(0032),
+      q(0),
+      ],
+   q(british indian ocean territory) => [
+      q(0033),
+      q(0),
+      ],
+   q(british indian ocean territory (the)) => [
+      q(0033),
+      q(3),
+      ],
+   q(british indian ocean territory, the) => [
+      q(0033),
+      q(2),
+      ],
+   q(british virgin islands) => [
+      q(0243),
+      q(1),
+      ],
+   q(brunei) => [
+      q(0034),
+      q(1),
+      ],
+   q(brunei darussalam) => [
+      q(0034),
+      q(0),
+      ],
+   q(bulgaria) => [
+      q(0035),
+      q(0),
+      ],
+   q(burkina faso) => [
+      q(0036),
+      q(0),
+      ],
+   q(burma) => [
+      q(0153),
+      q(3),
+      ],
+   q(burundi) => [
+      q(0037),
+      q(0),
+      ],
+   q(cabo verde) => [
+      q(0038),
+      q(0),
+      ],
+   q(cambodia) => [
+      q(0039),
+      q(0),
+      ],
+   q(cameroon) => [
+      q(0040),
+      q(0),
+      ],
+   q(canada) => [
+      q(0041),
+      q(0),
+      ],
+   q(cayman islands) => [
+      q(0042),
+      q(0),
+      ],
+   q(cayman islands (the)) => [
+      q(0042),
+      q(3),
+      ],
+   q(cayman islands, the) => [
+      q(0042),
+      q(2),
+      ],
+   q(central african republic) => [
+      q(0043),
+      q(0),
+      ],
+   q(central african republic (the)) => [
+      q(0043),
+      q(3),
+      ],
+   q(central african republic, the) => [
+      q(0043),
+      q(2),
+      ],
+   q(chad) => [
+      q(0044),
+      q(0),
+      ],
+   q(chile) => [
+      q(0045),
+      q(0),
+      ],
+   q(china) => [
+      q(0046),
+      q(0),
+      ],
+   q(china, hong kong special administrative region) => [
+      q(0100),
+      q(1),
+      ],
+   q(china, macao special administrative region) => [
+      q(0131),
+      q(1),
+      ],
+   q(christmas island) => [
+      q(0047),
+      q(0),
+      ],
+   q(clipperton island) => [
+      q(0255),
+      q(0),
+      ],
+   q(cocos (keeling) islands) => [
+      q(0048),
+      q(0),
+      ],
+   q(cocos (keeling) islands (the)) => [
+      q(0048),
+      q(3),
+      ],
+   q(cocos (keeling) islands, the) => [
+      q(0048),
+      q(2),
+      ],
+   q(cocos islands) => [
+      q(0048),
+      q(4),
+      ],
+   q(colombia) => [
+      q(0049),
+      q(0),
+      ],
+   q(comoros) => [
+      q(0050),
+      q(0),
+      ],
+   q(comoros (the)) => [
+      q(0050),
+      q(3),
+      ],
+   q(comoros, the) => [
+      q(0050),
+      q(2),
+      ],
+   q(congo) => [
+      q(0052),
+      q(0),
+      ],
+   q(congo (brazzaville)) => [
+      q(0052),
+      q(9),
+      ],
+   q(congo (kinshasa)) => [
+      q(0051),
+      q(6),
+      ],
+   q(congo (the democratic republic of the)) => [
+      q(0051),
+      q(0),
+      ],
+   q(congo (the)) => [
+      q(0052),
+      q(3),
+      ],
+   q(congo, democratic republic of the) => [
+      q(0051),
+      q(2),
+      ],
+   q(congo, republic of the) => [
+      q(0052),
+      q(7),
+      ],
+   q(congo, the) => [
+      q(0052),
+      q(2),
+      ],
+   q(congo, the democratic republic of the) => [
+      q(0051),
+      q(1),
+      ],
+   q(congo, the republic of the) => [
+      q(0052),
+      q(6),
+      ],
+   q(congo-brazzaville) => [
+      q(0052),
+      q(8),
+      ],
+   q(congo-kinshasa) => [
+      q(0051),
+      q(5),
+      ],
+   q(cook islands) => [
+      q(0053),
+      q(0),
+      ],
+   q(cook islands (the)) => [
+      q(0053),
+      q(3),
+      ],
+   q(cook islands, the) => [
+      q(0053),
+      q(2),
+      ],
+   q(coral sea islands) => [
+      q(0256),
+      q(0),
+      ],
+   q(costa rica) => [
+      q(0054),
+      q(0),
+      ],
+   q(cote d'ivoire) => [
+      q(0055),
+      q(0),
+      ],
+   q(croatia) => [
+      q(0056),
+      q(0),
+      ],
+   q(cuba) => [
+      q(0057),
+      q(0),
+      ],
+   q(curacao) => [
+      q(0058),
+      q(0),
+      ],
+   q(cyprus) => [
+      q(0059),
+      q(0),
+      ],
+   q(czech republic) => [
+      q(0060),
+      q(1),
+      ],
+   q(czech republic (the)) => [
+      q(0060),
+      q(4),
+      ],
+   q(czech republic, the) => [
+      q(0060),
+      q(3),
+      ],
+   q(czechia) => [
+      q(0060),
+      q(0),
+      ],
+   q(democratic people's republic of korea) => [
+      q(0118),
+      q(5),
+      ],
+   q(democratic republic of the congo) => [
+      q(0051),
+      q(4),
+      ],
+   q(democratic republic of timor-leste) => [
+      q(0222),
+      q(3),
+      ],
+   q(denmark) => [
+      q(0061),
+      q(0),
+      ],
+   q(dhekelia) => [
+      q(0257),
+      q(0),
+      ],
+   q(diego garcia) => [
+      q(0258),
+      q(0),
+      ],
+   q(djibouti) => [
+      q(0062),
+      q(0),
+      ],
+   q(dominica) => [
+      q(0063),
+      q(0),
+      ],
+   q(dominican republic) => [
+      q(0064),
+      q(0),
+      ],
+   q(dominican republic (the)) => [
+      q(0064),
+      q(3),
+      ],
+   q(dominican republic, the) => [
+      q(0064),
+      q(2),
+      ],
+   q(east timor) => [
+      q(0222),
+      q(1),
+      ],
+   q(ecuador) => [
+      q(0065),
+      q(0),
+      ],
+   q(egypt) => [
+      q(0066),
+      q(0),
+      ],
+   q(el salvador) => [
+      q(0067),
+      q(0),
+      ],
+   q(equatorial guinea) => [
+      q(0068),
+      q(0),
+      ],
+   q(eritrea) => [
+      q(0069),
+      q(0),
+      ],
+   q(estonia) => [
+      q(0070),
+      q(0),
+      ],
+   q(ethiopia) => [
+      q(0071),
+      q(0),
+      ],
+   q(europa island) => [
+      q(0259),
+      q(0),
+      ],
+   q(faeroe islands) => [
+      q(0073),
+      q(4),
+      ],
+   q(falkland islands (islas malvinas)) => [
+      q(0072),
+      q(2),
+      ],
+   q(falkland islands (malvinas)) => [
+      q(0072),
+      q(1),
+      ],
+   q(falkland islands (the) [malvinas]) => [
+      q(0072),
+      q(0),
+      ],
+   q(faroe islands) => [
+      q(0073),
+      q(0),
+      ],
+   q(faroe islands (the)) => [
+      q(0073),
+      q(3),
+      ],
+   q(faroe islands, the) => [
+      q(0073),
+      q(2),
+      ],
+   q(federated states of micronesia) => [
+      q(0145),
+      q(1),
+      ],
+   q(fiji) => [
+      q(0074),
+      q(0),
+      ],
+   q(finland) => [
+      q(0075),
+      q(0),
+      ],
+   q(former yugoslav republic of macedonia) => [
+      q(0132),
+      q(5),
+      ],
+   q(france) => [
+      q(0076),
+      q(0),
+      ],
+   q(french guiana) => [
+      q(0077),
+      q(0),
+      ],
+   q(french polynesia) => [
+      q(0078),
+      q(0),
+      ],
+   q(french southern and antarctic lands) => [
+      q(0079),
+      q(4),
+      ],
+   q(french southern territories) => [
+      q(0079),
+      q(0),
+      ],
+   q(french southern territories (the)) => [
+      q(0079),
+      q(3),
+      ],
+   q(french southern territories, the) => [
+      q(0079),
+      q(2),
+      ],
+   q(gabon) => [
+      q(0080),
+      q(0),
+      ],
+   q(gambia) => [
+      q(0081),
+      q(0),
+      ],
+   q(gambia (the)) => [
+      q(0081),
+      q(3),
+      ],
+   q(gambia, the) => [
+      q(0081),
+      q(2),
+      ],
+   q(gaza strip) => [
+      q(0260),
+      q(0),
+      ],
+   q(georgia) => [
+      q(0082),
+      q(0),
+      ],
+   q(germany) => [
+      q(0083),
+      q(0),
+      ],
+   q(ghana) => [
+      q(0084),
+      q(0),
+      ],
+   q(gibraltar) => [
+      q(0085),
+      q(0),
+      ],
+   q(glorioso islands) => [
+      q(0261),
+      q(0),
+      ],
+   q(great britain) => [
+      q(0235),
+      q(4),
+      ],
+   q(greece) => [
+      q(0086),
+      q(0),
+      ],
+   q(greenland) => [
+      q(0087),
+      q(0),
+      ],
+   q(grenada) => [
+      q(0088),
+      q(0),
+      ],
+   q(guadeloupe) => [
+      q(0089),
+      q(0),
+      ],
+   q(guam) => [
+      q(0090),
+      q(0),
+      ],
+   q(guantanamo bay naval base) => [
+      q(0262),
+      q(0),
+      ],
+   q(guatemala) => [
+      q(0091),
+      q(0),
+      ],
+   q(guernsey) => [
+      q(0092),
+      q(0),
+      ],
+   q(guinea) => [
+      q(0093),
+      q(0),
+      ],
+   q(guinea-bissau) => [
+      q(0094),
+      q(0),
+      ],
+   q(guyana) => [
+      q(0095),
+      q(0),
+      ],
+   q(haiti) => [
+      q(0096),
+      q(0),
+      ],
+   q(heard island and mcdonald islands) => [
+      q(0097),
+      q(0),
+      ],
+   q(holy see) => [
+      q(0098),
+      q(0),
+      ],
+   q(holy see (the)) => [
+      q(0098),
+      q(3),
+      ],
+   q(holy see (the) [vatican city state]) => [
+      q(0098),
+      q(4),
+      ],
+   q(holy see (vatican city state)) => [
+      q(0098),
+      q(5),
+      ],
+   q(holy see (vatican city)) => [
+      q(0098),
+      q(6),
+      ],
+   q(holy see, the) => [
+      q(0098),
+      q(2),
+      ],
+   q(honduras) => [
+      q(0099),
+      q(0),
+      ],
+   q(hong kong) => [
+      q(0100),
+      q(0),
+      ],
+   q(hong kong s.a.r.) => [
+      q(0100),
+      q(2),
+      ],
+   q(hong kong special administrative region of china) => [
+      q(0100),
+      q(3),
+      ],
+   q(howland island) => [
+      q(0263),
+      q(0),
+      ],
+   q(hungary) => [
+      q(0101),
+      q(0),
+      ],
+   q(iceland) => [
+      q(0102),
+      q(0),
+      ],
+   q(india) => [
+      q(0103),
+      q(0),
+      ],
+   q(indonesia) => [
+      q(0104),
+      q(0),
+      ],
+   q(iran) => [
+      q(0105),
+      q(6),
+      ],
+   q(iran (islamic republic of)) => [
+      q(0105),
+      q(0),
+      ],
+   q(iran (the islamic republic of)) => [
+      q(0105),
+      q(1),
+      ],
+   q(iran, islamic republic of) => [
+      q(0105),
+      q(2),
+      ],
+   q(iran, the islamic republic of) => [
+      q(0105),
+      q(3),
+      ],
+   q(iraq) => [
+      q(0106),
+      q(0),
+      ],
+   q(ireland) => [
+      q(0107),
+      q(0),
+      ],
+   q(islamic republic of iran) => [
+      q(0105),
+      q(4),
+      ],
+   q(isle of man) => [
+      q(0108),
+      q(0),
+      ],
+   q(israel) => [
+      q(0109),
+      q(0),
+      ],
+   q(italy) => [
+      q(0110),
+      q(0),
+      ],
+   q(jamaica) => [
+      q(0111),
+      q(0),
+      ],
+   q(jan mayen) => [
+      q(0264),
+      q(0),
+      ],
+   q(japan) => [
+      q(0112),
+      q(0),
+      ],
+   q(jarvis island) => [
+      q(0265),
+      q(0),
+      ],
+   q(jersey) => [
+      q(0113),
+      q(0),
+      ],
+   q(johnston atoll) => [
+      q(0266),
+      q(0),
+      ],
+   q(jordan) => [
+      q(0114),
+      q(0),
+      ],
+   q(juan de nova island) => [
+      q(0267),
+      q(0),
+      ],
+   q(kazakhstan) => [
+      q(0115),
+      q(0),
+      ],
+   q(kazakstan) => [
+      q(0115),
+      q(1),
+      ],
+   q(keeling islands) => [
+      q(0048),
+      q(6),
+      ],
+   q(kenya) => [
+      q(0116),
+      q(0),
+      ],
+   q(kingman reef) => [
+      q(0268),
+      q(0),
+      ],
+   q(kiribati) => [
+      q(0117),
+      q(0),
+      ],
+   q(korea (democratic people's republic of)) => [
+      q(0118),
+      q(3),
+      ],
+   q(korea (republic of)) => [
+      q(0119),
+      q(3),
+      ],
+   q(korea (the democratic people's republic of)) => [
+      q(0118),
+      q(1),
+      ],
+   q(korea (the republic of)) => [
+      q(0119),
+      q(1),
+      ],
+   q(korea, democratic people's republic of) => [
+      q(0118),
+      q(2),
+      ],
+   q(korea, north) => [
+      q(0118),
+      q(7),
+      ],
+   q(korea, republic of) => [
+      q(0119),
+      q(2),
+      ],
+   q(korea, south) => [
+      q(0119),
+      q(7),
+      ],
+   q(korea, the democratic people's republic of) => [
+      q(0118),
+      q(0),
+      ],
+   q(korea, the republic of) => [
+      q(0119),
+      q(0),
+      ],
+   q(kosovo) => [
+      q(0269),
+      q(0),
+      ],
+   q(kuwait) => [
+      q(0120),
+      q(0),
+      ],
+   q(kyrgyzstan) => [
+      q(0121),
+      q(0),
+      ],
+   q(lao people's democratic republic) => [
+      q(0122),
+      q(0),
+      ],
+   q(lao people's democratic republic (the)) => [
+      q(0122),
+      q(3),
+      ],
+   q(lao people's democratic republic, the) => [
+      q(0122),
+      q(2),
+      ],
+   q(laos) => [
+      q(0122),
+      q(4),
+      ],
+   q(latvia) => [
+      q(0123),
+      q(0),
+      ],
+   q(lebanon) => [
+      q(0124),
+      q(0),
+      ],
+   q(lesotho) => [
+      q(0125),
+      q(0),
+      ],
+   q(liberia) => [
+      q(0126),
+      q(0),
+      ],
+   q(libya) => [
+      q(0127),
+      q(0),
+      ],
+   q(liechtenstein) => [
+      q(0128),
+      q(0),
+      ],
+   q(lithuania) => [
+      q(0129),
+      q(0),
+      ],
+   q(luxembourg) => [
+      q(0130),
+      q(0),
+      ],
+   q(macao) => [
+      q(0131),
+      q(0),
+      ],
+   q(macao special administrative region of china) => [
+      q(0131),
+      q(2),
+      ],
+   q(macau) => [
+      q(0131),
+      q(5),
+      ],
+   q(macau s.a.r) => [
+      q(0131),
+      q(3),
+      ],
+   q(macau s.a.r.) => [
+      q(0131),
+      q(4),
+      ],
+   q(macedonia) => [
+      q(0132),
+      q(6),
+      ],
+   q(macedonia (former yugoslav republic of)) => [
+      q(0132),
+      q(3),
+      ],
+   q(macedonia (the former yugoslav republic of)) => [
+      q(0132),
+      q(1),
+      ],
+   q(macedonia, former yugoslav republic of) => [
+      q(0132),
+      q(2),
+      ],
+   q(macedonia, the former yugoslav republic of) => [
+      q(0132),
+      q(0),
+      ],
+   q(madagascar) => [
+      q(0133),
+      q(0),
+      ],
+   q(malawi) => [
+      q(0134),
+      q(0),
+      ],
+   q(malaysia) => [
+      q(0135),
+      q(0),
+      ],
+   q(maldives) => [
+      q(0136),
+      q(0),
+      ],
+   q(mali) => [
+      q(0137),
+      q(0),
+      ],
+   q(malta) => [
+      q(0138),
+      q(0),
+      ],
+   q(marshall islands) => [
+      q(0139),
+      q(0),
+      ],
+   q(marshall islands (the)) => [
+      q(0139),
+      q(3),
+      ],
+   q(marshall islands, the) => [
+      q(0139),
+      q(2),
+      ],
+   q(martinique) => [
+      q(0140),
+      q(0),
+      ],
+   q(mauritania) => [
+      q(0141),
+      q(0),
+      ],
+   q(mauritius) => [
+      q(0142),
+      q(0),
+      ],
+   q(mayotte) => [
+      q(0143),
+      q(0),
+      ],
+   q(mexico) => [
+      q(0144),
+      q(0),
+      ],
+   q(micronesia (federated states of)) => [
+      q(0145),
+      q(0),
+      ],
+   q(micronesia (the federated states of)) => [
+      q(0145),
+      q(2),
+      ],
+   q(micronesia, federated states of) => [
+      q(0145),
+      q(3),
+      ],
+   q(micronesia, the federated states of) => [
+      q(0145),
+      q(4),
+      ],
+   q(midway islands) => [
+      q(0270),
+      q(0),
+      ],
+   q(moldova) => [
+      q(0146),
+      q(6),
+      ],
+   q(moldova (republic of)) => [
+      q(0146),
+      q(3),
+      ],
+   q(moldova (the republic of)) => [
+      q(0146),
+      q(1),
+      ],
+   q(moldova, republic of) => [
+      q(0146),
+      q(2),
+      ],
+   q(moldova, the republic of) => [
+      q(0146),
+      q(0),
+      ],
+   q(monaco) => [
+      q(0147),
+      q(0),
+      ],
+   q(mongolia) => [
+      q(0148),
+      q(0),
+      ],
+   q(montenegro) => [
+      q(0149),
+      q(0),
+      ],
+   q(montserrat) => [
+      q(0150),
+      q(0),
+      ],
+   q(morocco) => [
+      q(0151),
+      q(0),
+      ],
+   q(mozambique) => [
+      q(0152),
+      q(0),
+      ],
+   q(myanmar) => [
+      q(0153),
+      q(0),
+      ],
+   q(namibia) => [
+      q(0154),
+      q(0),
+      ],
+   q(nauru) => [
+      q(0155),
+      q(0),
+      ],
+   q(navassa island) => [
+      q(0271),
+      q(0),
+      ],
+   q(nepal) => [
+      q(0156),
+      q(0),
+      ],
+   q(netherlands) => [
+      q(0157),
+      q(0),
+      ],
+   q(netherlands (the)) => [
+      q(0157),
+      q(3),
+      ],
+   q(netherlands, the) => [
+      q(0157),
+      q(2),
+      ],
+   q(new caledonia) => [
+      q(0158),
+      q(0),
+      ],
+   q(new zealand) => [
+      q(0159),
+      q(0),
+      ],
+   q(nicaragua) => [
+      q(0160),
+      q(0),
+      ],
+   q(niger) => [
+      q(0161),
+      q(0),
+      ],
+   q(niger (the)) => [
+      q(0161),
+      q(3),
+      ],
+   q(niger, the) => [
+      q(0161),
+      q(2),
+      ],
+   q(nigeria) => [
+      q(0162),
+      q(0),
+      ],
+   q(niue) => [
+      q(0163),
+      q(0),
+      ],
+   q(norfolk island) => [
+      q(0164),
+      q(0),
+      ],
+   q(north korea) => [
+      q(0118),
+      q(6),
+      ],
+   q(northern mariana islands) => [
+      q(0165),
+      q(0),
+      ],
+   q(northern mariana islands (the)) => [
+      q(0165),
+      q(3),
+      ],
+   q(northern mariana islands, the) => [
+      q(0165),
+      q(2),
+      ],
+   q(norway) => [
+      q(0166),
+      q(0),
+      ],
+   q(oman) => [
+      q(0167),
+      q(0),
+      ],
+   q(pakistan) => [
+      q(0168),
+      q(0),
+      ],
+   q(palau) => [
+      q(0169),
+      q(0),
+      ],
+   q(palestine (state of)) => [
+      q(0170),
+      q(1),
+      ],
+   q(palestine, state of) => [
+      q(0170),
+      q(0),
+      ],
+   q(palmyra atoll) => [
+      q(0272),
+      q(0),
+      ],
+   q(panama) => [
+      q(0171),
+      q(0),
+      ],
+   q(papua new guinea) => [
+      q(0172),
+      q(0),
+      ],
+   q(paracel islands) => [
+      q(0273),
+      q(0),
+      ],
+   q(paraguay) => [
+      q(0173),
+      q(0),
+      ],
+   q(peru) => [
+      q(0174),
+      q(0),
+      ],
+   q(philippines) => [
+      q(0175),
+      q(0),
+      ],
+   q(philippines (the)) => [
+      q(0175),
+      q(3),
+      ],
+   q(philippines, the) => [
+      q(0175),
+      q(2),
+      ],
+   q(pitcairn) => [
+      q(0176),
+      q(0),
+      ],
+   q(pitcairn island) => [
+      q(0176),
+      q(1),
+      ],
+   q(pitcairn islands) => [
+      q(0176),
+      q(2),
+      ],
+   q(plurinational state of bolivia) => [
+      q(0027),
+      q(2),
+      ],
+   q(poland) => [
+      q(0177),
+      q(0),
+      ],
+   q(portugal) => [
+      q(0178),
+      q(0),
+      ],
+   q(puerto rico) => [
+      q(0179),
+      q(0),
+      ],
+   q(qatar) => [
+      q(0180),
+      q(0),
+      ],
+   q(republic of korea) => [
+      q(0119),
+      q(5),
+      ],
+   q(republic of moldova) => [
+      q(0146),
+      q(5),
+      ],
+   q(republic of the congo) => [
+      q(0052),
+      q(5),
+      ],
+   q(republic of the union of myanmar) => [
+      q(0153),
+      q(2),
+      ],
+   q(republic of zambia) => [
+      q(0248),
+      q(2),
+      ],
+   q(republic of zambia (the)) => [
+      q(0248),
+      q(4),
+      ],
+   q(republic of zambia, the) => [
+      q(0248),
+      q(3),
+      ],
+   q(republic of zimbabwe) => [
+      q(0249),
+      q(2),
+      ],
+   q(republic of zimbabwe (the)) => [
+      q(0249),
+      q(4),
+      ],
+   q(republic of zimbabwe, the) => [
+      q(0249),
+      q(3),
+      ],
+   q(reunion) => [
+      q(0181),
+      q(0),
+      ],
+   q(romania) => [
+      q(0182),
+      q(0),
+      ],
+   q(russia) => [
+      q(0183),
+      q(4),
+      ],
+   q(russian federation) => [
+      q(0183),
+      q(0),
+      ],
+   q(russian federation (the)) => [
+      q(0183),
+      q(3),
+      ],
+   q(russian federation, the) => [
+      q(0183),
+      q(2),
+      ],
+   q(rwanda) => [
+      q(0184),
+      q(0),
+      ],
+   q(saint barthelemy) => [
+      q(0185),
+      q(0),
+      ],
+   q(saint helena) => [
+      q(0186),
+      q(1),
+      ],
+   q(saint helena, ascension and tristan da cunha) => [
+      q(0186),
+      q(0),
+      ],
+   q(saint helena, ascension, and tristan da cunha) => [
+      q(0186),
+      q(2),
+      ],
+   q(saint kitts and nevis) => [
+      q(0187),
+      q(0),
+      ],
+   q(saint lucia) => [
+      q(0188),
+      q(0),
+      ],
+   q(saint martin) => [
+      q(0189),
+      q(1),
+      ],
+   q(saint martin (french part)) => [
+      q(0189),
+      q(0),
+      ],
+   q(saint pierre and miquelon) => [
+      q(0190),
+      q(0),
+      ],
+   q(saint vincent and the grenadines) => [
+      q(0191),
+      q(0),
+      ],
+   q(saint-barthelemy) => [
+      q(0185),
+      q(1),
+      ],
+   q(saint-martin) => [
+      q(0189),
+      q(3),
+      ],
+   q(saint-martin (french part)) => [
+      q(0189),
+      q(2),
+      ],
+   q(samoa) => [
+      q(0192),
+      q(0),
+      ],
+   q(san marino) => [
+      q(0193),
+      q(0),
+      ],
+   q(sao tome and principe) => [
+      q(0194),
+      q(0),
+      ],
+   q(sark) => [
+      q(0250),
+      q(0),
+      ],
+   q(saudi arabia) => [
+      q(0195),
+      q(0),
+      ],
+   q(senegal) => [
+      q(0196),
+      q(0),
+      ],
+   q(serbia) => [
+      q(0197),
+      q(0),
+      ],
+   q(seychelles) => [
+      q(0198),
+      q(0),
+      ],
+   q(sierra leone) => [
+      q(0199),
+      q(0),
+      ],
+   q(singapore) => [
+      q(0200),
+      q(0),
+      ],
+   q(sint maarten) => [
+      q(0201),
+      q(1),
+      ],
+   q(sint maarten (dutch part)) => [
+      q(0201),
+      q(0),
+      ],
+   q(slovakia) => [
+      q(0202),
+      q(0),
+      ],
+   q(slovenia) => [
+      q(0203),
+      q(0),
+      ],
+   q(solomon islands) => [
+      q(0204),
+      q(0),
+      ],
+   q(solomon islands (the)) => [
+      q(0204),
+      q(1),
+      ],
+   q(solomon islands, the) => [
+      q(0204),
+      q(2),
+      ],
+   q(somalia) => [
+      q(0205),
+      q(0),
+      ],
+   q(south africa) => [
+      q(0206),
+      q(0),
+      ],
+   q(south georgia and south sandwich islands) => [
+      q(0207),
+      q(2),
+      ],
+   q(south georgia and the islands) => [
+      q(0207),
+      q(1),
+      ],
+   q(south georgia and the south sandwich islands) => [
+      q(0207),
+      q(0),
+      ],
+   q(south korea) => [
+      q(0119),
+      q(6),
+      ],
+   q(south sudan) => [
+      q(0208),
+      q(0),
+      ],
+   q(spain) => [
+      q(0209),
+      q(0),
+      ],
+   q(spratly islands) => [
+      q(0274),
+      q(0),
+      ],
+   q(sri lanka) => [
+      q(0210),
+      q(0),
+      ],
+   q(state of palestine) => [
+      q(0170),
+      q(2),
+      ],
+   q(sudan) => [
+      q(0211),
+      q(0),
+      ],
+   q(sudan (the)) => [
+      q(0211),
+      q(3),
+      ],
+   q(sudan, the) => [
+      q(0211),
+      q(2),
+      ],
+   q(suriname) => [
+      q(0212),
+      q(0),
+      ],
+   q(svalbard) => [
+      q(0275),
+      q(0),
+      ],
+   q(svalbard and jan mayen) => [
+      q(0213),
+      q(0),
+      ],
+   q(svalbard and jan mayen islands) => [
+      q(0213),
+      q(1),
+      ],
+   q(swaziland) => [
+      q(0214),
+      q(0),
+      ],
+   q(sweden) => [
+      q(0215),
+      q(0),
+      ],
+   q(switzerland) => [
+      q(0216),
+      q(0),
+      ],
+   q(syria) => [
+      q(0217),
+      q(4),
+      ],
+   q(syrian arab republic) => [
+      q(0217),
+      q(0),
+      ],
+   q(syrian arab republic (the)) => [
+      q(0217),
+      q(1),
+      ],
+   q(syrian arab republic, the) => [
+      q(0217),
+      q(2),
+      ],
+   q(taiwan) => [
+      q(0218),
+      q(1),
+      ],
+   q(taiwan (province of china)) => [
+      q(0218),
+      q(0),
+      ],
+   q(taiwan, province of china) => [
+      q(0218),
+      q(2),
+      ],
+   q(tajikistan) => [
+      q(0219),
+      q(0),
+      ],
+   q(tanzania) => [
+      q(0220),
+      q(3),
+      ],
+   q(tanzania (united republic of)) => [
+      q(0220),
+      q(1),
+      ],
+   q(tanzania, united republic of) => [
+      q(0220),
+      q(0),
+      ],
+   q(territory of the wallis and futuna islands) => [
+      q(0245),
+      q(3),
+      ],
+   q(thailand) => [
+      q(0221),
+      q(0),
+      ],
+   q(the bahamas) => [
+      q(0017),
+      q(1),
+      ],
+   q(the british indian ocean territory) => [
+      q(0033),
+      q(1),
+      ],
+   q(the cayman islands) => [
+      q(0042),
+      q(1),
+      ],
+   q(the central african republic) => [
+      q(0043),
+      q(1),
+      ],
+   q(the cocos (keeling) islands) => [
+      q(0048),
+      q(1),
+      ],
+   q(the cocos islands) => [
+      q(0048),
+      q(5),
+      ],
+   q(the comoros) => [
+      q(0050),
+      q(1),
+      ],
+   q(the congo) => [
+      q(0052),
+      q(1),
+      ],
+   q(the cook islands) => [
+      q(0053),
+      q(1),
+      ],
+   q(the czech republic) => [
+      q(0060),
+      q(2),
+      ],
+   q(the democratic people's republic of korea) => [
+      q(0118),
+      q(4),
+      ],
+   q(the democratic republic of the congo) => [
+      q(0051),
+      q(3),
+      ],
+   q(the democratic republic of timor-leste) => [
+      q(0222),
+      q(2),
+      ],
+   q(the dominican republic) => [
+      q(0064),
+      q(1),
+      ],
+   q(the faeroe islands) => [
+      q(0073),
+      q(5),
+      ],
+   q(the faroe islands) => [
+      q(0073),
+      q(1),
+      ],
+   q(the federated states of micronesia) => [
+      q(0145),
+      q(5),
+      ],
+   q(the former yugoslav republic of macedonia) => [
+      q(0132),
+      q(4),
+      ],
+   q(the french southern territories) => [
+      q(0079),
+      q(1),
+      ],
+   q(the gambia) => [
+      q(0081),
+      q(1),
+      ],
+   q(the holy see) => [
+      q(0098),
+      q(1),
+      ],
+   q(the islamic republic of iran) => [
+      q(0105),
+      q(5),
+      ],
+   q(the keeling islands) => [
+      q(0048),
+      q(7),
+      ],
+   q(the lao people's democratic republic) => [
+      q(0122),
+      q(1),
+      ],
+   q(the marshall islands) => [
+      q(0139),
+      q(1),
+      ],
+   q(the netherlands) => [
+      q(0157),
+      q(1),
+      ],
+   q(the niger) => [
+      q(0161),
+      q(1),
+      ],
+   q(the northern mariana islands) => [
+      q(0165),
+      q(1),
+      ],
+   q(the philippines) => [
+      q(0175),
+      q(1),
+      ],
+   q(the republic of korea) => [
+      q(0119),
+      q(4),
+      ],
+   q(the republic of moldova) => [
+      q(0146),
+      q(4),
+      ],
+   q(the republic of the congo) => [
+      q(0052),
+      q(4),
+      ],
+   q(the republic of the union of myanmar) => [
+      q(0153),
+      q(1),
+      ],
+   q(the republic of zambia) => [
+      q(0248),
+      q(1),
+      ],
+   q(the republic of zimbabwe) => [
+      q(0249),
+      q(1),
+      ],
+   q(the russian federation) => [
+      q(0183),
+      q(1),
+      ],
+   q(the solomon islands) => [
+      q(0204),
+      q(3),
+      ],
+   q(the sudan) => [
+      q(0211),
+      q(1),
+      ],
+   q(the syrian arab republic) => [
+      q(0217),
+      q(3),
+      ],
+   q(the territory of the wallis and futuna islands) => [
+      q(0245),
+      q(2),
+      ],
+   q(the turks and caicos islands) => [
+      q(0230),
+      q(1),
+      ],
+   q(the united arab emirates) => [
+      q(0234),
+      q(1),
+      ],
+   q(the united kingdom) => [
+      q(0235),
+      q(6),
+      ],
+   q(the united kingdom of great britain and northern ireland) => [
+      q(0235),
+      q(1),
+      ],
+   q(the united states) => [
+      q(0237),
+      q(4),
+      ],
+   q(the united states minor outlying islands) => [
+      q(0236),
+      q(1),
+      ],
+   q(the united states of america) => [
+      q(0237),
+      q(1),
+      ],
+   q(the yemeni republic) => [
+      q(0247),
+      q(1),
+      ],
+   q(timor-leste) => [
+      q(0222),
+      q(0),
+      ],
+   q(timor-leste (democratic republic of)) => [
+      q(0222),
+      q(7),
+      ],
+   q(timor-leste (the democratic republic of)) => [
+      q(0222),
+      q(6),
+      ],
+   q(timor-leste, democratic republic of) => [
+      q(0222),
+      q(5),
+      ],
+   q(timor-leste, the democratic republic of) => [
+      q(0222),
+      q(4),
+      ],
+   q(togo) => [
+      q(0223),
+      q(0),
+      ],
+   q(tokelau) => [
+      q(0224),
+      q(0),
+      ],
+   q(tonga) => [
+      q(0225),
+      q(0),
+      ],
+   q(trinidad and tobago) => [
+      q(0226),
+      q(0),
+      ],
+   q(tromelin island) => [
+      q(0276),
+      q(0),
+      ],
+   q(tunisia) => [
+      q(0227),
+      q(0),
+      ],
+   q(turkey) => [
+      q(0228),
+      q(0),
+      ],
+   q(turkmenistan) => [
+      q(0229),
+      q(0),
+      ],
+   q(turks and caicos islands) => [
+      q(0230),
+      q(0),
+      ],
+   q(turks and caicos islands (the)) => [
+      q(0230),
+      q(3),
+      ],
+   q(turks and caicos islands, the) => [
+      q(0230),
+      q(2),
+      ],
+   q(tuvalu) => [
+      q(0231),
+      q(0),
+      ],
+   q(uganda) => [
+      q(0232),
+      q(0),
+      ],
+   q(uk) => [
+      q(0235),
+      q(9),
+      ],
+   q(ukraine) => [
+      q(0233),
+      q(0),
+      ],
+   q(united arab emirates) => [
+      q(0234),
+      q(0),
+      ],
+   q(united arab emirates (the)) => [
+      q(0234),
+      q(3),
+      ],
+   q(united arab emirates, the) => [
+      q(0234),
+      q(2),
+      ],
+   q(united kingdom) => [
+      q(0235),
+      q(7),
+      ],
+   q(united kingdom (the)) => [
+      q(0235),
+      q(5),
+      ],
+   q(united kingdom of great britain and northern ireland) => [
+      q(0235),
+      q(0),
+      ],
+   q(united kingdom of great britain and northern ireland (the)) => [
+      q(0235),
+      q(3),
+      ],
+   q(united kingdom of great britain and northern ireland, the) => [
+      q(0235),
+      q(2),
+      ],
+   q(united kingdom, the) => [
+      q(0235),
+      q(8),
+      ],
+   q(united republic of tanzania) => [
+      q(0220),
+      q(2),
+      ],
+   q(united states) => [
+      q(0237),
+      q(5),
+      ],
+   q(united states (the)) => [
+      q(0237),
+      q(7),
+      ],
+   q(united states minor outlying islands) => [
+      q(0236),
+      q(0),
+      ],
+   q(united states minor outlying islands (the)) => [
+      q(0236),
+      q(3),
+      ],
+   q(united states minor outlying islands, the) => [
+      q(0236),
+      q(2),
+      ],
+   q(united states of america) => [
+      q(0237),
+      q(0),
+      ],
+   q(united states of america (the)) => [
+      q(0237),
+      q(3),
+      ],
+   q(united states of america, the) => [
+      q(0237),
+      q(2),
+      ],
+   q(united states virgin islands) => [
+      q(0244),
+      q(1),
+      ],
+   q(united states, the) => [
+      q(0237),
+      q(6),
+      ],
+   q(unknown) => [
+      q(0277),
+      q(0),
+      ],
+   q(uruguay) => [
+      q(0238),
+      q(0),
+      ],
+   q(us) => [
+      q(0237),
+      q(8),
+      ],
+   q(usa) => [
+      q(0237),
+      q(9),
+      ],
+   q(uzbekistan) => [
+      q(0239),
+      q(0),
+      ],
+   q(vanuatu) => [
+      q(0240),
+      q(0),
+      ],
+   q(vatican city) => [
+      q(0098),
+      q(7),
+      ],
+   q(venezuela) => [
+      q(0241),
+      q(3),
+      ],
+   q(venezuela (bolivarian republic of)) => [
+      q(0241),
+      q(0),
+      ],
+   q(venezuela, bolivarian republic) => [
+      q(0241),
+      q(2),
+      ],
+   q(venezuela, bolivarian republic of) => [
+      q(0241),
+      q(1),
+      ],
+   q(viet nam) => [
+      q(0242),
+      q(0),
+      ],
+   q(vietnam) => [
+      q(0242),
+      q(1),
+      ],
+   q(virgin islands) => [
+      q(0244),
+      q(4),
+      ],
+   q(virgin islands (british)) => [
+      q(0243),
+      q(0),
+      ],
+   q(virgin islands (u.s.)) => [
+      q(0244),
+      q(0),
+      ],
+   q(virgin islands (uk)) => [
+      q(0243),
+      q(3),
+      ],
+   q(virgin islands (us)) => [
+      q(0244),
+      q(2),
+      ],
+   q(virgin islands, british) => [
+      q(0243),
+      q(2),
+      ],
+   q(virgin islands, u.s.) => [
+      q(0244),
+      q(3),
+      ],
+   q(wake island) => [
+      q(0278),
+      q(0),
+      ],
+   q(wallis and futuna) => [
+      q(0245),
+      q(0),
+      ],
+   q(wallis and futuna islands) => [
+      q(0245),
+      q(1),
+      ],
+   q(west bank) => [
+      q(0279),
+      q(0),
+      ],
+   q(western sahara) => [
+      q(0246),
+      q(0),
+      ],
+   q(yemen) => [
+      q(0247),
+      q(0),
+      ],
+   q(yemeni republic) => [
+      q(0247),
+      q(2),
+      ],
+   q(yemeni republic (the)) => [
+      q(0247),
+      q(4),
+      ],
+   q(yemeni republic, the) => [
+      q(0247),
+      q(3),
+      ],
+   q(zambia) => [
+      q(0248),
+      q(0),
+      ],
+   q(zimbabwe) => [
+      q(0249),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'country'}{'code2id'} = {
+   q(alpha-2) => {
+      q(ad) => [
+         q(0006),
+         q(0),
+         ],
+      q(ae) => [
+         q(0234),
+         q(0),
+         ],
+      q(af) => [
+         q(0001),
+         q(0),
+         ],
+      q(ag) => [
+         q(0010),
+         q(0),
+         ],
+      q(ai) => [
+         q(0008),
+         q(0),
+         ],
+      q(al) => [
+         q(0003),
+         q(0),
+         ],
+      q(am) => [
+         q(0012),
+         q(0),
+         ],
+      q(ao) => [
+         q(0007),
+         q(0),
+         ],
+      q(aq) => [
+         q(0009),
+         q(0),
+         ],
+      q(ar) => [
+         q(0011),
+         q(0),
+         ],
+      q(as) => [
+         q(0005),
+         q(0),
+         ],
+      q(at) => [
+         q(0015),
+         q(0),
+         ],
+      q(au) => [
+         q(0014),
+         q(0),
+         ],
+      q(aw) => [
+         q(0013),
+         q(0),
+         ],
+      q(ax) => [
+         q(0002),
+         q(0),
+         ],
+      q(az) => [
+         q(0016),
+         q(0),
+         ],
+      q(ba) => [
+         q(0029),
+         q(0),
+         ],
+      q(bb) => [
+         q(0020),
+         q(0),
+         ],
+      q(bd) => [
+         q(0019),
+         q(0),
+         ],
+      q(be) => [
+         q(0022),
+         q(0),
+         ],
+      q(bf) => [
+         q(0036),
+         q(0),
+         ],
+      q(bg) => [
+         q(0035),
+         q(0),
+         ],
+      q(bh) => [
+         q(0018),
+         q(0),
+         ],
+      q(bi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bj) => [
+         q(0024),
+         q(0),
+         ],
+      q(bl) => [
+         q(0185),
+         q(0),
+         ],
+      q(bm) => [
+         q(0025),
+         q(0),
+         ],
+      q(bn) => [
+         q(0034),
+         q(0),
+         ],
+      q(bo) => [
+         q(0027),
+         q(0),
+         ],
+      q(bq) => [
+         q(0028),
+         q(0),
+         ],
+      q(br) => [
+         q(0032),
+         q(0),
+         ],
+      q(bs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bt) => [
+         q(0026),
+         q(0),
+         ],
+      q(bv) => [
+         q(0031),
+         q(0),
+         ],
+      q(bw) => [
+         q(0030),
+         q(0),
+         ],
+      q(by) => [
+         q(0021),
+         q(0),
+         ],
+      q(bz) => [
+         q(0023),
+         q(0),
+         ],
+      q(ca) => [
+         q(0041),
+         q(0),
+         ],
+      q(cc) => [
+         q(0048),
+         q(0),
+         ],
+      q(cd) => [
+         q(0051),
+         q(0),
+         ],
+      q(cf) => [
+         q(0043),
+         q(0),
+         ],
+      q(cg) => [
+         q(0052),
+         q(0),
+         ],
+      q(ch) => [
+         q(0216),
+         q(0),
+         ],
+      q(ci) => [
+         q(0055),
+         q(0),
+         ],
+      q(ck) => [
+         q(0053),
+         q(0),
+         ],
+      q(cl) => [
+         q(0045),
+         q(0),
+         ],
+      q(cm) => [
+         q(0040),
+         q(0),
+         ],
+      q(cn) => [
+         q(0046),
+         q(0),
+         ],
+      q(co) => [
+         q(0049),
+         q(0),
+         ],
+      q(cr) => [
+         q(0054),
+         q(0),
+         ],
+      q(cu) => [
+         q(0057),
+         q(0),
+         ],
+      q(cv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cx) => [
+         q(0047),
+         q(0),
+         ],
+      q(cy) => [
+         q(0059),
+         q(0),
+         ],
+      q(cz) => [
+         q(0060),
+         q(0),
+         ],
+      q(de) => [
+         q(0083),
+         q(0),
+         ],
+      q(dj) => [
+         q(0062),
+         q(0),
+         ],
+      q(dk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dm) => [
+         q(0063),
+         q(0),
+         ],
+      q(do) => [
+         q(0064),
+         q(0),
+         ],
+      q(dz) => [
+         q(0004),
+         q(0),
+         ],
+      q(ec) => [
+         q(0065),
+         q(0),
+         ],
+      q(ee) => [
+         q(0070),
+         q(0),
+         ],
+      q(eg) => [
+         q(0066),
+         q(0),
+         ],
+      q(eh) => [
+         q(0246),
+         q(0),
+         ],
+      q(er) => [
+         q(0069),
+         q(0),
+         ],
+      q(es) => [
+         q(0209),
+         q(0),
+         ],
+      q(et) => [
+         q(0071),
+         q(0),
+         ],
+      q(fi) => [
+         q(0075),
+         q(0),
+         ],
+      q(fj) => [
+         q(0074),
+         q(0),
+         ],
+      q(fk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fm) => [
+         q(0145),
+         q(0),
+         ],
+      q(fo) => [
+         q(0073),
+         q(0),
+         ],
+      q(fr) => [
+         q(0076),
+         q(0),
+         ],
+      q(ga) => [
+         q(0080),
+         q(0),
+         ],
+      q(gb) => [
+         q(0235),
+         q(0),
+         ],
+      q(gd) => [
+         q(0088),
+         q(0),
+         ],
+      q(ge) => [
+         q(0082),
+         q(0),
+         ],
+      q(gf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gg) => [
+         q(0092),
+         q(0),
+         ],
+      q(gh) => [
+         q(0084),
+         q(0),
+         ],
+      q(gi) => [
+         q(0085),
+         q(0),
+         ],
+      q(gl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gm) => [
+         q(0081),
+         q(0),
+         ],
+      q(gn) => [
+         q(0093),
+         q(0),
+         ],
+      q(gp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gq) => [
+         q(0068),
+         q(0),
+         ],
+      q(gr) => [
+         q(0086),
+         q(0),
+         ],
+      q(gs) => [
+         q(0207),
+         q(0),
+         ],
+      q(gt) => [
+         q(0091),
+         q(0),
+         ],
+      q(gu) => [
+         q(0090),
+         q(0),
+         ],
+      q(gw) => [
+         q(0094),
+         q(0),
+         ],
+      q(gy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hk) => [
+         q(0100),
+         q(0),
+         ],
+      q(hm) => [
+         q(0097),
+         q(0),
+         ],
+      q(hn) => [
+         q(0099),
+         q(0),
+         ],
+      q(hr) => [
+         q(0056),
+         q(0),
+         ],
+      q(ht) => [
+         q(0096),
+         q(0),
+         ],
+      q(hu) => [
+         q(0101),
+         q(0),
+         ],
+      q(id) => [
+         q(0104),
+         q(0),
+         ],
+      q(ie) => [
+         q(0107),
+         q(0),
+         ],
+      q(il) => [
+         q(0109),
+         q(0),
+         ],
+      q(im) => [
+         q(0108),
+         q(0),
+         ],
+      q(in) => [
+         q(0103),
+         q(0),
+         ],
+      q(io) => [
+         q(0033),
+         q(0),
+         ],
+      q(iq) => [
+         q(0106),
+         q(0),
+         ],
+      q(ir) => [
+         q(0105),
+         q(0),
+         ],
+      q(is) => [
+         q(0102),
+         q(0),
+         ],
+      q(it) => [
+         q(0110),
+         q(0),
+         ],
+      q(je) => [
+         q(0113),
+         q(0),
+         ],
+      q(jm) => [
+         q(0111),
+         q(0),
+         ],
+      q(jo) => [
+         q(0114),
+         q(0),
+         ],
+      q(jp) => [
+         q(0112),
+         q(0),
+         ],
+      q(ke) => [
+         q(0116),
+         q(0),
+         ],
+      q(kg) => [
+         q(0121),
+         q(0),
+         ],
+      q(kh) => [
+         q(0039),
+         q(0),
+         ],
+      q(ki) => [
+         q(0117),
+         q(0),
+         ],
+      q(km) => [
+         q(0050),
+         q(0),
+         ],
+      q(kn) => [
+         q(0187),
+         q(0),
+         ],
+      q(kp) => [
+         q(0118),
+         q(0),
+         ],
+      q(kr) => [
+         q(0119),
+         q(0),
+         ],
+      q(kw) => [
+         q(0120),
+         q(0),
+         ],
+      q(ky) => [
+         q(0042),
+         q(0),
+         ],
+      q(kz) => [
+         q(0115),
+         q(0),
+         ],
+      q(la) => [
+         q(0122),
+         q(0),
+         ],
+      q(lb) => [
+         q(0124),
+         q(0),
+         ],
+      q(lc) => [
+         q(0188),
+         q(0),
+         ],
+      q(li) => [
+         q(0128),
+         q(0),
+         ],
+      q(lk) => [
+         q(0210),
+         q(0),
+         ],
+      q(lr) => [
+         q(0126),
+         q(0),
+         ],
+      q(ls) => [
+         q(0125),
+         q(0),
+         ],
+      q(lt) => [
+         q(0129),
+         q(0),
+         ],
+      q(lu) => [
+         q(0130),
+         q(0),
+         ],
+      q(lv) => [
+         q(0123),
+         q(0),
+         ],
+      q(ly) => [
+         q(0127),
+         q(0),
+         ],
+      q(ma) => [
+         q(0151),
+         q(0),
+         ],
+      q(mc) => [
+         q(0147),
+         q(0),
+         ],
+      q(md) => [
+         q(0146),
+         q(0),
+         ],
+      q(me) => [
+         q(0149),
+         q(0),
+         ],
+      q(mf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mh) => [
+         q(0139),
+         q(0),
+         ],
+      q(mk) => [
+         q(0132),
+         q(0),
+         ],
+      q(ml) => [
+         q(0137),
+         q(0),
+         ],
+      q(mm) => [
+         q(0153),
+         q(0),
+         ],
+      q(mn) => [
+         q(0148),
+         q(0),
+         ],
+      q(mo) => [
+         q(0131),
+         q(0),
+         ],
+      q(mp) => [
+         q(0165),
+         q(0),
+         ],
+      q(mq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mr) => [
+         q(0141),
+         q(0),
+         ],
+      q(ms) => [
+         q(0150),
+         q(0),
+         ],
+      q(mt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mu) => [
+         q(0142),
+         q(0),
+         ],
+      q(mv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mw) => [
+         q(0134),
+         q(0),
+         ],
+      q(mx) => [
+         q(0144),
+         q(0),
+         ],
+      q(my) => [
+         q(0135),
+         q(0),
+         ],
+      q(mz) => [
+         q(0152),
+         q(0),
+         ],
+      q(na) => [
+         q(0154),
+         q(0),
+         ],
+      q(nc) => [
+         q(0158),
+         q(0),
+         ],
+      q(ne) => [
+         q(0161),
+         q(0),
+         ],
+      q(nf) => [
+         q(0164),
+         q(0),
+         ],
+      q(ng) => [
+         q(0162),
+         q(0),
+         ],
+      q(ni) => [
+         q(0160),
+         q(0),
+         ],
+      q(nl) => [
+         q(0157),
+         q(0),
+         ],
+      q(no) => [
+         q(0166),
+         q(0),
+         ],
+      q(np) => [
+         q(0156),
+         q(0),
+         ],
+      q(nr) => [
+         q(0155),
+         q(0),
+         ],
+      q(nu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nz) => [
+         q(0159),
+         q(0),
+         ],
+      q(om) => [
+         q(0167),
+         q(0),
+         ],
+      q(pa) => [
+         q(0171),
+         q(0),
+         ],
+      q(pe) => [
+         q(0174),
+         q(0),
+         ],
+      q(pf) => [
+         q(0078),
+         q(0),
+         ],
+      q(pg) => [
+         q(0172),
+         q(0),
+         ],
+      q(ph) => [
+         q(0175),
+         q(0),
+         ],
+      q(pk) => [
+         q(0168),
+         q(0),
+         ],
+      q(pl) => [
+         q(0177),
+         q(0),
+         ],
+      q(pm) => [
+         q(0190),
+         q(0),
+         ],
+      q(pn) => [
+         q(0176),
+         q(0),
+         ],
+      q(pr) => [
+         q(0179),
+         q(0),
+         ],
+      q(ps) => [
+         q(0170),
+         q(0),
+         ],
+      q(pt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pw) => [
+         q(0169),
+         q(0),
+         ],
+      q(py) => [
+         q(0173),
+         q(0),
+         ],
+      q(qa) => [
+         q(0180),
+         q(0),
+         ],
+      q(re) => [
+         q(0181),
+         q(0),
+         ],
+      q(ro) => [
+         q(0182),
+         q(0),
+         ],
+      q(rs) => [
+         q(0197),
+         q(0),
+         ],
+      q(ru) => [
+         q(0183),
+         q(0),
+         ],
+      q(rw) => [
+         q(0184),
+         q(0),
+         ],
+      q(sa) => [
+         q(0195),
+         q(0),
+         ],
+      q(sb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sc) => [
+         q(0198),
+         q(0),
+         ],
+      q(sd) => [
+         q(0211),
+         q(0),
+         ],
+      q(se) => [
+         q(0215),
+         q(0),
+         ],
+      q(sg) => [
+         q(0200),
+         q(0),
+         ],
+      q(sh) => [
+         q(0186),
+         q(0),
+         ],
+      q(si) => [
+         q(0203),
+         q(0),
+         ],
+      q(sj) => [
+         q(0213),
+         q(0),
+         ],
+      q(sk) => [
+         q(0202),
+         q(0),
+         ],
+      q(sl) => [
+         q(0199),
+         q(0),
+         ],
+      q(sm) => [
+         q(0193),
+         q(0),
+         ],
+      q(sn) => [
+         q(0196),
+         q(0),
+         ],
+      q(so) => [
+         q(0205),
+         q(0),
+         ],
+      q(sr) => [
+         q(0212),
+         q(0),
+         ],
+      q(ss) => [
+         q(0208),
+         q(0),
+         ],
+      q(st) => [
+         q(0194),
+         q(0),
+         ],
+      q(sv) => [
+         q(0067),
+         q(0),
+         ],
+      q(sx) => [
+         q(0201),
+         q(0),
+         ],
+      q(sy) => [
+         q(0217),
+         q(0),
+         ],
+      q(sz) => [
+         q(0214),
+         q(0),
+         ],
+      q(tc) => [
+         q(0230),
+         q(0),
+         ],
+      q(td) => [
+         q(0044),
+         q(0),
+         ],
+      q(tf) => [
+         q(0079),
+         q(0),
+         ],
+      q(tg) => [
+         q(0223),
+         q(0),
+         ],
+      q(th) => [
+         q(0221),
+         q(0),
+         ],
+      q(tj) => [
+         q(0219),
+         q(0),
+         ],
+      q(tk) => [
+         q(0224),
+         q(0),
+         ],
+      q(tl) => [
+         q(0222),
+         q(0),
+         ],
+      q(tm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tn) => [
+         q(0227),
+         q(0),
+         ],
+      q(to) => [
+         q(0225),
+         q(0),
+         ],
+      q(tr) => [
+         q(0228),
+         q(0),
+         ],
+      q(tt) => [
+         q(0226),
+         q(0),
+         ],
+      q(tv) => [
+         q(0231),
+         q(0),
+         ],
+      q(tw) => [
+         q(0218),
+         q(0),
+         ],
+      q(tz) => [
+         q(0220),
+         q(0),
+         ],
+      q(ua) => [
+         q(0233),
+         q(0),
+         ],
+      q(ug) => [
+         q(0232),
+         q(0),
+         ],
+      q(um) => [
+         q(0236),
+         q(0),
+         ],
+      q(us) => [
+         q(0237),
+         q(0),
+         ],
+      q(uy) => [
+         q(0238),
+         q(0),
+         ],
+      q(uz) => [
+         q(0239),
+         q(0),
+         ],
+      q(va) => [
+         q(0098),
+         q(0),
+         ],
+      q(vc) => [
+         q(0191),
+         q(0),
+         ],
+      q(ve) => [
+         q(0241),
+         q(0),
+         ],
+      q(vg) => [
+         q(0243),
+         q(0),
+         ],
+      q(vi) => [
+         q(0244),
+         q(0),
+         ],
+      q(vn) => [
+         q(0242),
+         q(0),
+         ],
+      q(vu) => [
+         q(0240),
+         q(0),
+         ],
+      q(wf) => [
+         q(0245),
+         q(0),
+         ],
+      q(ws) => [
+         q(0192),
+         q(0),
+         ],
+      q(ye) => [
+         q(0247),
+         q(0),
+         ],
+      q(yt) => [
+         q(0143),
+         q(0),
+         ],
+      q(za) => [
+         q(0206),
+         q(0),
+         ],
+      q(zm) => [
+         q(0248),
+         q(0),
+         ],
+      q(zw) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(alpha-3) => {
+      q(abw) => [
+         q(0013),
+         q(0),
+         ],
+      q(afg) => [
+         q(0001),
+         q(0),
+         ],
+      q(ago) => [
+         q(0007),
+         q(0),
+         ],
+      q(aia) => [
+         q(0008),
+         q(0),
+         ],
+      q(ala) => [
+         q(0002),
+         q(0),
+         ],
+      q(alb) => [
+         q(0003),
+         q(0),
+         ],
+      q(and) => [
+         q(0006),
+         q(0),
+         ],
+      q(are) => [
+         q(0234),
+         q(0),
+         ],
+      q(arg) => [
+         q(0011),
+         q(0),
+         ],
+      q(arm) => [
+         q(0012),
+         q(0),
+         ],
+      q(asm) => [
+         q(0005),
+         q(0),
+         ],
+      q(ata) => [
+         q(0009),
+         q(0),
+         ],
+      q(atf) => [
+         q(0079),
+         q(0),
+         ],
+      q(atg) => [
+         q(0010),
+         q(0),
+         ],
+      q(aus) => [
+         q(0014),
+         q(0),
+         ],
+      q(aut) => [
+         q(0015),
+         q(0),
+         ],
+      q(aze) => [
+         q(0016),
+         q(0),
+         ],
+      q(bdi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bel) => [
+         q(0022),
+         q(0),
+         ],
+      q(ben) => [
+         q(0024),
+         q(0),
+         ],
+      q(bes) => [
+         q(0028),
+         q(0),
+         ],
+      q(bfa) => [
+         q(0036),
+         q(0),
+         ],
+      q(bgd) => [
+         q(0019),
+         q(0),
+         ],
+      q(bgr) => [
+         q(0035),
+         q(0),
+         ],
+      q(bhr) => [
+         q(0018),
+         q(0),
+         ],
+      q(bhs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bih) => [
+         q(0029),
+         q(0),
+         ],
+      q(blm) => [
+         q(0185),
+         q(0),
+         ],
+      q(blr) => [
+         q(0021),
+         q(0),
+         ],
+      q(blz) => [
+         q(0023),
+         q(0),
+         ],
+      q(bmu) => [
+         q(0025),
+         q(0),
+         ],
+      q(bol) => [
+         q(0027),
+         q(0),
+         ],
+      q(bra) => [
+         q(0032),
+         q(0),
+         ],
+      q(brb) => [
+         q(0020),
+         q(0),
+         ],
+      q(brn) => [
+         q(0034),
+         q(0),
+         ],
+      q(btn) => [
+         q(0026),
+         q(0),
+         ],
+      q(bvt) => [
+         q(0031),
+         q(0),
+         ],
+      q(bwa) => [
+         q(0030),
+         q(0),
+         ],
+      q(caf) => [
+         q(0043),
+         q(0),
+         ],
+      q(can) => [
+         q(0041),
+         q(0),
+         ],
+      q(cck) => [
+         q(0048),
+         q(0),
+         ],
+      q(che) => [
+         q(0216),
+         q(0),
+         ],
+      q(chl) => [
+         q(0045),
+         q(0),
+         ],
+      q(chn) => [
+         q(0046),
+         q(0),
+         ],
+      q(civ) => [
+         q(0055),
+         q(0),
+         ],
+      q(cmr) => [
+         q(0040),
+         q(0),
+         ],
+      q(cod) => [
+         q(0051),
+         q(0),
+         ],
+      q(cog) => [
+         q(0052),
+         q(0),
+         ],
+      q(cok) => [
+         q(0053),
+         q(0),
+         ],
+      q(col) => [
+         q(0049),
+         q(0),
+         ],
+      q(com) => [
+         q(0050),
+         q(0),
+         ],
+      q(cpv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cri) => [
+         q(0054),
+         q(0),
+         ],
+      q(cub) => [
+         q(0057),
+         q(0),
+         ],
+      q(cuw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cxr) => [
+         q(0047),
+         q(0),
+         ],
+      q(cym) => [
+         q(0042),
+         q(0),
+         ],
+      q(cyp) => [
+         q(0059),
+         q(0),
+         ],
+      q(cze) => [
+         q(0060),
+         q(0),
+         ],
+      q(deu) => [
+         q(0083),
+         q(0),
+         ],
+      q(dji) => [
+         q(0062),
+         q(0),
+         ],
+      q(dma) => [
+         q(0063),
+         q(0),
+         ],
+      q(dnk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dom) => [
+         q(0064),
+         q(0),
+         ],
+      q(dza) => [
+         q(0004),
+         q(0),
+         ],
+      q(ecu) => [
+         q(0065),
+         q(0),
+         ],
+      q(egy) => [
+         q(0066),
+         q(0),
+         ],
+      q(eri) => [
+         q(0069),
+         q(0),
+         ],
+      q(esh) => [
+         q(0246),
+         q(0),
+         ],
+      q(esp) => [
+         q(0209),
+         q(0),
+         ],
+      q(est) => [
+         q(0070),
+         q(0),
+         ],
+      q(eth) => [
+         q(0071),
+         q(0),
+         ],
+      q(fin) => [
+         q(0075),
+         q(0),
+         ],
+      q(fji) => [
+         q(0074),
+         q(0),
+         ],
+      q(flk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fra) => [
+         q(0076),
+         q(0),
+         ],
+      q(fro) => [
+         q(0073),
+         q(0),
+         ],
+      q(fsm) => [
+         q(0145),
+         q(0),
+         ],
+      q(gab) => [
+         q(0080),
+         q(0),
+         ],
+      q(gbr) => [
+         q(0235),
+         q(0),
+         ],
+      q(geo) => [
+         q(0082),
+         q(0),
+         ],
+      q(ggy) => [
+         q(0092),
+         q(0),
+         ],
+      q(gha) => [
+         q(0084),
+         q(0),
+         ],
+      q(gib) => [
+         q(0085),
+         q(0),
+         ],
+      q(gin) => [
+         q(0093),
+         q(0),
+         ],
+      q(glp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gmb) => [
+         q(0081),
+         q(0),
+         ],
+      q(gnb) => [
+         q(0094),
+         q(0),
+         ],
+      q(gnq) => [
+         q(0068),
+         q(0),
+         ],
+      q(grc) => [
+         q(0086),
+         q(0),
+         ],
+      q(grd) => [
+         q(0088),
+         q(0),
+         ],
+      q(grl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gtm) => [
+         q(0091),
+         q(0),
+         ],
+      q(guf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gum) => [
+         q(0090),
+         q(0),
+         ],
+      q(guy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hkg) => [
+         q(0100),
+         q(0),
+         ],
+      q(hmd) => [
+         q(0097),
+         q(0),
+         ],
+      q(hnd) => [
+         q(0099),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0056),
+         q(0),
+         ],
+      q(hti) => [
+         q(0096),
+         q(0),
+         ],
+      q(hun) => [
+         q(0101),
+         q(0),
+         ],
+      q(idn) => [
+         q(0104),
+         q(0),
+         ],
+      q(imn) => [
+         q(0108),
+         q(0),
+         ],
+      q(ind) => [
+         q(0103),
+         q(0),
+         ],
+      q(iot) => [
+         q(0033),
+         q(0),
+         ],
+      q(irl) => [
+         q(0107),
+         q(0),
+         ],
+      q(irn) => [
+         q(0105),
+         q(0),
+         ],
+      q(irq) => [
+         q(0106),
+         q(0),
+         ],
+      q(isl) => [
+         q(0102),
+         q(0),
+         ],
+      q(isr) => [
+         q(0109),
+         q(0),
+         ],
+      q(ita) => [
+         q(0110),
+         q(0),
+         ],
+      q(jam) => [
+         q(0111),
+         q(0),
+         ],
+      q(jey) => [
+         q(0113),
+         q(0),
+         ],
+      q(jor) => [
+         q(0114),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0112),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0115),
+         q(0),
+         ],
+      q(ken) => [
+         q(0116),
+         q(0),
+         ],
+      q(kgz) => [
+         q(0121),
+         q(0),
+         ],
+      q(khm) => [
+         q(0039),
+         q(0),
+         ],
+      q(kir) => [
+         q(0117),
+         q(0),
+         ],
+      q(kna) => [
+         q(0187),
+         q(0),
+         ],
+      q(kor) => [
+         q(0119),
+         q(0),
+         ],
+      q(kwt) => [
+         q(0120),
+         q(0),
+         ],
+      q(lao) => [
+         q(0122),
+         q(0),
+         ],
+      q(lbn) => [
+         q(0124),
+         q(0),
+         ],
+      q(lbr) => [
+         q(0126),
+         q(0),
+         ],
+      q(lby) => [
+         q(0127),
+         q(0),
+         ],
+      q(lca) => [
+         q(0188),
+         q(0),
+         ],
+      q(lie) => [
+         q(0128),
+         q(0),
+         ],
+      q(lka) => [
+         q(0210),
+         q(0),
+         ],
+      q(lso) => [
+         q(0125),
+         q(0),
+         ],
+      q(ltu) => [
+         q(0129),
+         q(0),
+         ],
+      q(lux) => [
+         q(0130),
+         q(0),
+         ],
+      q(lva) => [
+         q(0123),
+         q(0),
+         ],
+      q(mac) => [
+         q(0131),
+         q(0),
+         ],
+      q(maf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mar) => [
+         q(0151),
+         q(0),
+         ],
+      q(mco) => [
+         q(0147),
+         q(0),
+         ],
+      q(mda) => [
+         q(0146),
+         q(0),
+         ],
+      q(mdg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mdv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mex) => [
+         q(0144),
+         q(0),
+         ],
+      q(mhl) => [
+         q(0139),
+         q(0),
+         ],
+      q(mkd) => [
+         q(0132),
+         q(0),
+         ],
+      q(mli) => [
+         q(0137),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mmr) => [
+         q(0153),
+         q(0),
+         ],
+      q(mne) => [
+         q(0149),
+         q(0),
+         ],
+      q(mng) => [
+         q(0148),
+         q(0),
+         ],
+      q(mnp) => [
+         q(0165),
+         q(0),
+         ],
+      q(moz) => [
+         q(0152),
+         q(0),
+         ],
+      q(mrt) => [
+         q(0141),
+         q(0),
+         ],
+      q(msr) => [
+         q(0150),
+         q(0),
+         ],
+      q(mtq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mus) => [
+         q(0142),
+         q(0),
+         ],
+      q(mwi) => [
+         q(0134),
+         q(0),
+         ],
+      q(mys) => [
+         q(0135),
+         q(0),
+         ],
+      q(myt) => [
+         q(0143),
+         q(0),
+         ],
+      q(nam) => [
+         q(0154),
+         q(0),
+         ],
+      q(ncl) => [
+         q(0158),
+         q(0),
+         ],
+      q(ner) => [
+         q(0161),
+         q(0),
+         ],
+      q(nfk) => [
+         q(0164),
+         q(0),
+         ],
+      q(nga) => [
+         q(0162),
+         q(0),
+         ],
+      q(nic) => [
+         q(0160),
+         q(0),
+         ],
+      q(niu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nld) => [
+         q(0157),
+         q(0),
+         ],
+      q(nor) => [
+         q(0166),
+         q(0),
+         ],
+      q(npl) => [
+         q(0156),
+         q(0),
+         ],
+      q(nru) => [
+         q(0155),
+         q(0),
+         ],
+      q(nzl) => [
+         q(0159),
+         q(0),
+         ],
+      q(omn) => [
+         q(0167),
+         q(0),
+         ],
+      q(pak) => [
+         q(0168),
+         q(0),
+         ],
+      q(pan) => [
+         q(0171),
+         q(0),
+         ],
+      q(pcn) => [
+         q(0176),
+         q(0),
+         ],
+      q(per) => [
+         q(0174),
+         q(0),
+         ],
+      q(phl) => [
+         q(0175),
+         q(0),
+         ],
+      q(plw) => [
+         q(0169),
+         q(0),
+         ],
+      q(png) => [
+         q(0172),
+         q(0),
+         ],
+      q(pol) => [
+         q(0177),
+         q(0),
+         ],
+      q(pri) => [
+         q(0179),
+         q(0),
+         ],
+      q(prk) => [
+         q(0118),
+         q(0),
+         ],
+      q(prt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pry) => [
+         q(0173),
+         q(0),
+         ],
+      q(pse) => [
+         q(0170),
+         q(0),
+         ],
+      q(pyf) => [
+         q(0078),
+         q(0),
+         ],
+      q(qat) => [
+         q(0180),
+         q(0),
+         ],
+      q(reu) => [
+         q(0181),
+         q(0),
+         ],
+      q(rou) => [
+         q(0182),
+         q(0),
+         ],
+      q(rus) => [
+         q(0183),
+         q(0),
+         ],
+      q(rwa) => [
+         q(0184),
+         q(0),
+         ],
+      q(sau) => [
+         q(0195),
+         q(0),
+         ],
+      q(sdn) => [
+         q(0211),
+         q(0),
+         ],
+      q(sen) => [
+         q(0196),
+         q(0),
+         ],
+      q(sgp) => [
+         q(0200),
+         q(0),
+         ],
+      q(sgs) => [
+         q(0207),
+         q(0),
+         ],
+      q(shn) => [
+         q(0186),
+         q(0),
+         ],
+      q(sjm) => [
+         q(0213),
+         q(0),
+         ],
+      q(slb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sle) => [
+         q(0199),
+         q(0),
+         ],
+      q(slv) => [
+         q(0067),
+         q(0),
+         ],
+      q(smr) => [
+         q(0193),
+         q(0),
+         ],
+      q(som) => [
+         q(0205),
+         q(0),
+         ],
+      q(spm) => [
+         q(0190),
+         q(0),
+         ],
+      q(srb) => [
+         q(0197),
+         q(0),
+         ],
+      q(ssd) => [
+         q(0208),
+         q(0),
+         ],
+      q(stp) => [
+         q(0194),
+         q(0),
+         ],
+      q(sur) => [
+         q(0212),
+         q(0),
+         ],
+      q(svk) => [
+         q(0202),
+         q(0),
+         ],
+      q(svn) => [
+         q(0203),
+         q(0),
+         ],
+      q(swe) => [
+         q(0215),
+         q(0),
+         ],
+      q(swz) => [
+         q(0214),
+         q(0),
+         ],
+      q(sxm) => [
+         q(0201),
+         q(0),
+         ],
+      q(syc) => [
+         q(0198),
+         q(0),
+         ],
+      q(syr) => [
+         q(0217),
+         q(0),
+         ],
+      q(tca) => [
+         q(0230),
+         q(0),
+         ],
+      q(tcd) => [
+         q(0044),
+         q(0),
+         ],
+      q(tgo) => [
+         q(0223),
+         q(0),
+         ],
+      q(tha) => [
+         q(0221),
+         q(0),
+         ],
+      q(tjk) => [
+         q(0219),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0224),
+         q(0),
+         ],
+      q(tkm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tls) => [
+         q(0222),
+         q(0),
+         ],
+      q(ton) => [
+         q(0225),
+         q(0),
+         ],
+      q(tto) => [
+         q(0226),
+         q(0),
+         ],
+      q(tun) => [
+         q(0227),
+         q(0),
+         ],
+      q(tur) => [
+         q(0228),
+         q(0),
+         ],
+      q(tuv) => [
+         q(0231),
+         q(0),
+         ],
+      q(twn) => [
+         q(0218),
+         q(0),
+         ],
+      q(tza) => [
+         q(0220),
+         q(0),
+         ],
+      q(uga) => [
+         q(0232),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0233),
+         q(0),
+         ],
+      q(umi) => [
+         q(0236),
+         q(0),
+         ],
+      q(ury) => [
+         q(0238),
+         q(0),
+         ],
+      q(usa) => [
+         q(0237),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0239),
+         q(0),
+         ],
+      q(vat) => [
+         q(0098),
+         q(0),
+         ],
+      q(vct) => [
+         q(0191),
+         q(0),
+         ],
+      q(ven) => [
+         q(0241),
+         q(0),
+         ],
+      q(vgb) => [
+         q(0243),
+         q(0),
+         ],
+      q(vir) => [
+         q(0244),
+         q(0),
+         ],
+      q(vnm) => [
+         q(0242),
+         q(0),
+         ],
+      q(vut) => [
+         q(0240),
+         q(0),
+         ],
+      q(wlf) => [
+         q(0245),
+         q(0),
+         ],
+      q(wsm) => [
+         q(0192),
+         q(0),
+         ],
+      q(yem) => [
+         q(0247),
+         q(0),
+         ],
+      q(zaf) => [
+         q(0206),
+         q(0),
+         ],
+      q(zmb) => [
+         q(0248),
+         q(0),
+         ],
+      q(zwe) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(dom) => {
+      q(ad) => [
+         q(0006),
+         q(0),
+         ],
+      q(ae) => [
+         q(0234),
+         q(0),
+         ],
+      q(af) => [
+         q(0001),
+         q(0),
+         ],
+      q(ag) => [
+         q(0010),
+         q(0),
+         ],
+      q(ai) => [
+         q(0008),
+         q(0),
+         ],
+      q(al) => [
+         q(0003),
+         q(0),
+         ],
+      q(am) => [
+         q(0012),
+         q(0),
+         ],
+      q(ao) => [
+         q(0007),
+         q(0),
+         ],
+      q(aq) => [
+         q(0009),
+         q(0),
+         ],
+      q(ar) => [
+         q(0011),
+         q(0),
+         ],
+      q(as) => [
+         q(0005),
+         q(0),
+         ],
+      q(at) => [
+         q(0015),
+         q(0),
+         ],
+      q(au) => [
+         q(0014),
+         q(0),
+         ],
+      q(aw) => [
+         q(0013),
+         q(0),
+         ],
+      q(ax) => [
+         q(0002),
+         q(0),
+         ],
+      q(az) => [
+         q(0016),
+         q(0),
+         ],
+      q(ba) => [
+         q(0029),
+         q(0),
+         ],
+      q(bb) => [
+         q(0020),
+         q(0),
+         ],
+      q(bd) => [
+         q(0019),
+         q(0),
+         ],
+      q(be) => [
+         q(0022),
+         q(0),
+         ],
+      q(bf) => [
+         q(0036),
+         q(0),
+         ],
+      q(bg) => [
+         q(0035),
+         q(0),
+         ],
+      q(bh) => [
+         q(0018),
+         q(0),
+         ],
+      q(bi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bj) => [
+         q(0024),
+         q(0),
+         ],
+      q(bl) => [
+         q(0185),
+         q(0),
+         ],
+      q(bm) => [
+         q(0025),
+         q(0),
+         ],
+      q(bn) => [
+         q(0034),
+         q(0),
+         ],
+      q(bo) => [
+         q(0027),
+         q(0),
+         ],
+      q(bq) => [
+         q(0028),
+         q(0),
+         ],
+      q(br) => [
+         q(0032),
+         q(0),
+         ],
+      q(bs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bt) => [
+         q(0026),
+         q(0),
+         ],
+      q(bv) => [
+         q(0031),
+         q(0),
+         ],
+      q(bw) => [
+         q(0030),
+         q(0),
+         ],
+      q(by) => [
+         q(0021),
+         q(0),
+         ],
+      q(bz) => [
+         q(0023),
+         q(0),
+         ],
+      q(ca) => [
+         q(0041),
+         q(0),
+         ],
+      q(cc) => [
+         q(0048),
+         q(0),
+         ],
+      q(cd) => [
+         q(0051),
+         q(0),
+         ],
+      q(cf) => [
+         q(0043),
+         q(0),
+         ],
+      q(cg) => [
+         q(0052),
+         q(0),
+         ],
+      q(ch) => [
+         q(0216),
+         q(0),
+         ],
+      q(ci) => [
+         q(0055),
+         q(0),
+         ],
+      q(ck) => [
+         q(0053),
+         q(0),
+         ],
+      q(cl) => [
+         q(0045),
+         q(0),
+         ],
+      q(cm) => [
+         q(0040),
+         q(0),
+         ],
+      q(cn) => [
+         q(0046),
+         q(0),
+         ],
+      q(co) => [
+         q(0049),
+         q(0),
+         ],
+      q(cr) => [
+         q(0054),
+         q(0),
+         ],
+      q(cu) => [
+         q(0057),
+         q(0),
+         ],
+      q(cv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cx) => [
+         q(0047),
+         q(0),
+         ],
+      q(cy) => [
+         q(0059),
+         q(0),
+         ],
+      q(cz) => [
+         q(0060),
+         q(0),
+         ],
+      q(de) => [
+         q(0083),
+         q(0),
+         ],
+      q(dj) => [
+         q(0062),
+         q(0),
+         ],
+      q(dk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dm) => [
+         q(0063),
+         q(0),
+         ],
+      q(do) => [
+         q(0064),
+         q(0),
+         ],
+      q(dz) => [
+         q(0004),
+         q(0),
+         ],
+      q(ec) => [
+         q(0065),
+         q(0),
+         ],
+      q(ee) => [
+         q(0070),
+         q(0),
+         ],
+      q(eg) => [
+         q(0066),
+         q(0),
+         ],
+      q(eh) => [
+         q(0246),
+         q(0),
+         ],
+      q(er) => [
+         q(0069),
+         q(0),
+         ],
+      q(es) => [
+         q(0209),
+         q(0),
+         ],
+      q(et) => [
+         q(0071),
+         q(0),
+         ],
+      q(fi) => [
+         q(0075),
+         q(0),
+         ],
+      q(fj) => [
+         q(0074),
+         q(0),
+         ],
+      q(fk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fm) => [
+         q(0145),
+         q(0),
+         ],
+      q(fo) => [
+         q(0073),
+         q(0),
+         ],
+      q(fr) => [
+         q(0076),
+         q(0),
+         ],
+      q(ga) => [
+         q(0080),
+         q(0),
+         ],
+      q(gb) => [
+         q(0235),
+         q(0),
+         ],
+      q(gd) => [
+         q(0088),
+         q(0),
+         ],
+      q(ge) => [
+         q(0082),
+         q(0),
+         ],
+      q(gf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gg) => [
+         q(0092),
+         q(0),
+         ],
+      q(gh) => [
+         q(0084),
+         q(0),
+         ],
+      q(gi) => [
+         q(0085),
+         q(0),
+         ],
+      q(gl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gm) => [
+         q(0081),
+         q(0),
+         ],
+      q(gn) => [
+         q(0093),
+         q(0),
+         ],
+      q(gp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gq) => [
+         q(0068),
+         q(0),
+         ],
+      q(gr) => [
+         q(0086),
+         q(0),
+         ],
+      q(gs) => [
+         q(0207),
+         q(0),
+         ],
+      q(gt) => [
+         q(0091),
+         q(0),
+         ],
+      q(gu) => [
+         q(0090),
+         q(0),
+         ],
+      q(gw) => [
+         q(0094),
+         q(0),
+         ],
+      q(gy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hk) => [
+         q(0100),
+         q(0),
+         ],
+      q(hm) => [
+         q(0097),
+         q(0),
+         ],
+      q(hn) => [
+         q(0099),
+         q(0),
+         ],
+      q(hr) => [
+         q(0056),
+         q(0),
+         ],
+      q(ht) => [
+         q(0096),
+         q(0),
+         ],
+      q(hu) => [
+         q(0101),
+         q(0),
+         ],
+      q(id) => [
+         q(0104),
+         q(0),
+         ],
+      q(ie) => [
+         q(0107),
+         q(0),
+         ],
+      q(il) => [
+         q(0109),
+         q(0),
+         ],
+      q(im) => [
+         q(0108),
+         q(0),
+         ],
+      q(in) => [
+         q(0103),
+         q(0),
+         ],
+      q(io) => [
+         q(0033),
+         q(0),
+         ],
+      q(iq) => [
+         q(0106),
+         q(0),
+         ],
+      q(ir) => [
+         q(0105),
+         q(0),
+         ],
+      q(is) => [
+         q(0102),
+         q(0),
+         ],
+      q(it) => [
+         q(0110),
+         q(0),
+         ],
+      q(je) => [
+         q(0113),
+         q(0),
+         ],
+      q(jm) => [
+         q(0111),
+         q(0),
+         ],
+      q(jo) => [
+         q(0114),
+         q(0),
+         ],
+      q(jp) => [
+         q(0112),
+         q(0),
+         ],
+      q(ke) => [
+         q(0116),
+         q(0),
+         ],
+      q(kg) => [
+         q(0121),
+         q(0),
+         ],
+      q(kh) => [
+         q(0039),
+         q(0),
+         ],
+      q(ki) => [
+         q(0117),
+         q(0),
+         ],
+      q(km) => [
+         q(0050),
+         q(0),
+         ],
+      q(kn) => [
+         q(0187),
+         q(0),
+         ],
+      q(kp) => [
+         q(0118),
+         q(0),
+         ],
+      q(kr) => [
+         q(0119),
+         q(0),
+         ],
+      q(kw) => [
+         q(0120),
+         q(0),
+         ],
+      q(ky) => [
+         q(0042),
+         q(0),
+         ],
+      q(kz) => [
+         q(0115),
+         q(0),
+         ],
+      q(la) => [
+         q(0122),
+         q(0),
+         ],
+      q(lb) => [
+         q(0124),
+         q(0),
+         ],
+      q(lc) => [
+         q(0188),
+         q(0),
+         ],
+      q(li) => [
+         q(0128),
+         q(0),
+         ],
+      q(lk) => [
+         q(0210),
+         q(0),
+         ],
+      q(lr) => [
+         q(0126),
+         q(0),
+         ],
+      q(ls) => [
+         q(0125),
+         q(0),
+         ],
+      q(lt) => [
+         q(0129),
+         q(0),
+         ],
+      q(lu) => [
+         q(0130),
+         q(0),
+         ],
+      q(lv) => [
+         q(0123),
+         q(0),
+         ],
+      q(ly) => [
+         q(0127),
+         q(0),
+         ],
+      q(ma) => [
+         q(0151),
+         q(0),
+         ],
+      q(mc) => [
+         q(0147),
+         q(0),
+         ],
+      q(md) => [
+         q(0146),
+         q(0),
+         ],
+      q(me) => [
+         q(0149),
+         q(0),
+         ],
+      q(mf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mh) => [
+         q(0139),
+         q(0),
+         ],
+      q(mk) => [
+         q(0132),
+         q(0),
+         ],
+      q(ml) => [
+         q(0137),
+         q(0),
+         ],
+      q(mm) => [
+         q(0153),
+         q(0),
+         ],
+      q(mn) => [
+         q(0148),
+         q(0),
+         ],
+      q(mo) => [
+         q(0131),
+         q(0),
+         ],
+      q(mp) => [
+         q(0165),
+         q(0),
+         ],
+      q(mq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mr) => [
+         q(0141),
+         q(0),
+         ],
+      q(ms) => [
+         q(0150),
+         q(0),
+         ],
+      q(mt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mu) => [
+         q(0142),
+         q(0),
+         ],
+      q(mv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mw) => [
+         q(0134),
+         q(0),
+         ],
+      q(mx) => [
+         q(0144),
+         q(0),
+         ],
+      q(my) => [
+         q(0135),
+         q(0),
+         ],
+      q(mz) => [
+         q(0152),
+         q(0),
+         ],
+      q(na) => [
+         q(0154),
+         q(0),
+         ],
+      q(nc) => [
+         q(0158),
+         q(0),
+         ],
+      q(ne) => [
+         q(0161),
+         q(0),
+         ],
+      q(nf) => [
+         q(0164),
+         q(0),
+         ],
+      q(ng) => [
+         q(0162),
+         q(0),
+         ],
+      q(ni) => [
+         q(0160),
+         q(0),
+         ],
+      q(nl) => [
+         q(0157),
+         q(0),
+         ],
+      q(no) => [
+         q(0166),
+         q(0),
+         ],
+      q(np) => [
+         q(0156),
+         q(0),
+         ],
+      q(nr) => [
+         q(0155),
+         q(0),
+         ],
+      q(nu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nz) => [
+         q(0159),
+         q(0),
+         ],
+      q(om) => [
+         q(0167),
+         q(0),
+         ],
+      q(pa) => [
+         q(0171),
+         q(0),
+         ],
+      q(pe) => [
+         q(0174),
+         q(0),
+         ],
+      q(pf) => [
+         q(0078),
+         q(0),
+         ],
+      q(pg) => [
+         q(0172),
+         q(0),
+         ],
+      q(ph) => [
+         q(0175),
+         q(0),
+         ],
+      q(pk) => [
+         q(0168),
+         q(0),
+         ],
+      q(pl) => [
+         q(0177),
+         q(0),
+         ],
+      q(pm) => [
+         q(0190),
+         q(0),
+         ],
+      q(pn) => [
+         q(0176),
+         q(0),
+         ],
+      q(pr) => [
+         q(0179),
+         q(0),
+         ],
+      q(ps) => [
+         q(0170),
+         q(0),
+         ],
+      q(pt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pw) => [
+         q(0169),
+         q(0),
+         ],
+      q(py) => [
+         q(0173),
+         q(0),
+         ],
+      q(qa) => [
+         q(0180),
+         q(0),
+         ],
+      q(re) => [
+         q(0181),
+         q(0),
+         ],
+      q(ro) => [
+         q(0182),
+         q(0),
+         ],
+      q(rs) => [
+         q(0197),
+         q(0),
+         ],
+      q(ru) => [
+         q(0183),
+         q(0),
+         ],
+      q(rw) => [
+         q(0184),
+         q(0),
+         ],
+      q(sa) => [
+         q(0195),
+         q(0),
+         ],
+      q(sb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sc) => [
+         q(0198),
+         q(0),
+         ],
+      q(sd) => [
+         q(0211),
+         q(0),
+         ],
+      q(se) => [
+         q(0215),
+         q(0),
+         ],
+      q(sg) => [
+         q(0200),
+         q(0),
+         ],
+      q(sh) => [
+         q(0186),
+         q(0),
+         ],
+      q(si) => [
+         q(0203),
+         q(0),
+         ],
+      q(sj) => [
+         q(0213),
+         q(0),
+         ],
+      q(sk) => [
+         q(0202),
+         q(0),
+         ],
+      q(sl) => [
+         q(0199),
+         q(0),
+         ],
+      q(sm) => [
+         q(0193),
+         q(0),
+         ],
+      q(sn) => [
+         q(0196),
+         q(0),
+         ],
+      q(so) => [
+         q(0205),
+         q(0),
+         ],
+      q(sr) => [
+         q(0212),
+         q(0),
+         ],
+      q(ss) => [
+         q(0208),
+         q(0),
+         ],
+      q(st) => [
+         q(0194),
+         q(0),
+         ],
+      q(sv) => [
+         q(0067),
+         q(0),
+         ],
+      q(sx) => [
+         q(0201),
+         q(0),
+         ],
+      q(sy) => [
+         q(0217),
+         q(0),
+         ],
+      q(sz) => [
+         q(0214),
+         q(0),
+         ],
+      q(tc) => [
+         q(0230),
+         q(0),
+         ],
+      q(td) => [
+         q(0044),
+         q(0),
+         ],
+      q(tf) => [
+         q(0079),
+         q(0),
+         ],
+      q(tg) => [
+         q(0223),
+         q(0),
+         ],
+      q(th) => [
+         q(0221),
+         q(0),
+         ],
+      q(tj) => [
+         q(0219),
+         q(0),
+         ],
+      q(tk) => [
+         q(0224),
+         q(0),
+         ],
+      q(tl) => [
+         q(0222),
+         q(0),
+         ],
+      q(tm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tn) => [
+         q(0227),
+         q(0),
+         ],
+      q(to) => [
+         q(0225),
+         q(0),
+         ],
+      q(tr) => [
+         q(0228),
+         q(0),
+         ],
+      q(tt) => [
+         q(0226),
+         q(0),
+         ],
+      q(tv) => [
+         q(0231),
+         q(0),
+         ],
+      q(tw) => [
+         q(0218),
+         q(0),
+         ],
+      q(tz) => [
+         q(0220),
+         q(0),
+         ],
+      q(ua) => [
+         q(0233),
+         q(0),
+         ],
+      q(ug) => [
+         q(0232),
+         q(0),
+         ],
+      q(um) => [
+         q(0236),
+         q(0),
+         ],
+      q(us) => [
+         q(0237),
+         q(0),
+         ],
+      q(uy) => [
+         q(0238),
+         q(0),
+         ],
+      q(uz) => [
+         q(0239),
+         q(0),
+         ],
+      q(va) => [
+         q(0098),
+         q(0),
+         ],
+      q(vc) => [
+         q(0191),
+         q(0),
+         ],
+      q(ve) => [
+         q(0241),
+         q(0),
+         ],
+      q(vg) => [
+         q(0243),
+         q(0),
+         ],
+      q(vi) => [
+         q(0244),
+         q(0),
+         ],
+      q(vn) => [
+         q(0242),
+         q(0),
+         ],
+      q(vu) => [
+         q(0240),
+         q(0),
+         ],
+      q(wf) => [
+         q(0245),
+         q(0),
+         ],
+      q(ws) => [
+         q(0192),
+         q(0),
+         ],
+      q(ye) => [
+         q(0247),
+         q(0),
+         ],
+      q(yt) => [
+         q(0143),
+         q(0),
+         ],
+      q(za) => [
+         q(0206),
+         q(0),
+         ],
+      q(zm) => [
+         q(0248),
+         q(0),
+         ],
+      q(zw) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(genc-alpha-2) => {
+      q(A1) => [
+         q(0277),
+         q(0),
+         ],
+      q(A2) => [
+         q(0262),
+         q(0),
+         ],
+      q(AD) => [
+         q(0006),
+         q(0),
+         ],
+      q(AE) => [
+         q(0234),
+         q(0),
+         ],
+      q(AF) => [
+         q(0001),
+         q(0),
+         ],
+      q(AG) => [
+         q(0010),
+         q(0),
+         ],
+      q(AI) => [
+         q(0008),
+         q(0),
+         ],
+      q(AL) => [
+         q(0003),
+         q(0),
+         ],
+      q(AM) => [
+         q(0012),
+         q(0),
+         ],
+      q(AO) => [
+         q(0007),
+         q(0),
+         ],
+      q(AQ) => [
+         q(0009),
+         q(0),
+         ],
+      q(AR) => [
+         q(0011),
+         q(0),
+         ],
+      q(AS) => [
+         q(0005),
+         q(0),
+         ],
+      q(AT) => [
+         q(0015),
+         q(0),
+         ],
+      q(AU) => [
+         q(0014),
+         q(0),
+         ],
+      q(AW) => [
+         q(0013),
+         q(0),
+         ],
+      q(AZ) => [
+         q(0016),
+         q(0),
+         ],
+      q(BA) => [
+         q(0029),
+         q(0),
+         ],
+      q(BB) => [
+         q(0020),
+         q(0),
+         ],
+      q(BD) => [
+         q(0019),
+         q(0),
+         ],
+      q(BE) => [
+         q(0022),
+         q(0),
+         ],
+      q(BF) => [
+         q(0036),
+         q(0),
+         ],
+      q(BG) => [
+         q(0035),
+         q(0),
+         ],
+      q(BH) => [
+         q(0018),
+         q(0),
+         ],
+      q(BI) => [
+         q(0037),
+         q(0),
+         ],
+      q(BJ) => [
+         q(0024),
+         q(0),
+         ],
+      q(BL) => [
+         q(0185),
+         q(0),
+         ],
+      q(BM) => [
+         q(0025),
+         q(0),
+         ],
+      q(BN) => [
+         q(0034),
+         q(0),
+         ],
+      q(BO) => [
+         q(0027),
+         q(0),
+         ],
+      q(BQ) => [
+         q(0028),
+         q(1),
+         ],
+      q(BR) => [
+         q(0032),
+         q(0),
+         ],
+      q(BS) => [
+         q(0017),
+         q(0),
+         ],
+      q(BT) => [
+         q(0026),
+         q(0),
+         ],
+      q(BV) => [
+         q(0031),
+         q(0),
+         ],
+      q(BW) => [
+         q(0030),
+         q(0),
+         ],
+      q(BY) => [
+         q(0021),
+         q(0),
+         ],
+      q(BZ) => [
+         q(0023),
+         q(0),
+         ],
+      q(CA) => [
+         q(0041),
+         q(0),
+         ],
+      q(CC) => [
+         q(0048),
+         q(0),
+         ],
+      q(CD) => [
+         q(0051),
+         q(0),
+         ],
+      q(CF) => [
+         q(0043),
+         q(0),
+         ],
+      q(CG) => [
+         q(0052),
+         q(0),
+         ],
+      q(CH) => [
+         q(0216),
+         q(0),
+         ],
+      q(CI) => [
+         q(0055),
+         q(0),
+         ],
+      q(CK) => [
+         q(0053),
+         q(0),
+         ],
+      q(CL) => [
+         q(0045),
+         q(0),
+         ],
+      q(CM) => [
+         q(0040),
+         q(0),
+         ],
+      q(CN) => [
+         q(0046),
+         q(0),
+         ],
+      q(CO) => [
+         q(0049),
+         q(0),
+         ],
+      q(CP) => [
+         q(0255),
+         q(0),
+         ],
+      q(CR) => [
+         q(0054),
+         q(0),
+         ],
+      q(CU) => [
+         q(0057),
+         q(0),
+         ],
+      q(CV) => [
+         q(0038),
+         q(0),
+         ],
+      q(CW) => [
+         q(0058),
+         q(0),
+         ],
+      q(CX) => [
+         q(0047),
+         q(0),
+         ],
+      q(CY) => [
+         q(0059),
+         q(0),
+         ],
+      q(CZ) => [
+         q(0060),
+         q(0),
+         ],
+      q(DE) => [
+         q(0083),
+         q(0),
+         ],
+      q(DG) => [
+         q(0258),
+         q(0),
+         ],
+      q(DJ) => [
+         q(0062),
+         q(0),
+         ],
+      q(DK) => [
+         q(0061),
+         q(0),
+         ],
+      q(DM) => [
+         q(0063),
+         q(0),
+         ],
+      q(DO) => [
+         q(0064),
+         q(0),
+         ],
+      q(DZ) => [
+         q(0004),
+         q(0),
+         ],
+      q(EC) => [
+         q(0065),
+         q(0),
+         ],
+      q(EE) => [
+         q(0070),
+         q(0),
+         ],
+      q(EG) => [
+         q(0066),
+         q(0),
+         ],
+      q(EH) => [
+         q(0246),
+         q(0),
+         ],
+      q(ER) => [
+         q(0069),
+         q(0),
+         ],
+      q(ES) => [
+         q(0209),
+         q(0),
+         ],
+      q(ET) => [
+         q(0071),
+         q(0),
+         ],
+      q(FI) => [
+         q(0075),
+         q(0),
+         ],
+      q(FJ) => [
+         q(0074),
+         q(0),
+         ],
+      q(FK) => [
+         q(0072),
+         q(0),
+         ],
+      q(FM) => [
+         q(0145),
+         q(0),
+         ],
+      q(FO) => [
+         q(0073),
+         q(0),
+         ],
+      q(FR) => [
+         q(0076),
+         q(0),
+         ],
+      q(GA) => [
+         q(0080),
+         q(0),
+         ],
+      q(GB) => [
+         q(0235),
+         q(0),
+         ],
+      q(GD) => [
+         q(0088),
+         q(0),
+         ],
+      q(GE) => [
+         q(0082),
+         q(0),
+         ],
+      q(GF) => [
+         q(0077),
+         q(0),
+         ],
+      q(GG) => [
+         q(0092),
+         q(0),
+         ],
+      q(GH) => [
+         q(0084),
+         q(0),
+         ],
+      q(GI) => [
+         q(0085),
+         q(0),
+         ],
+      q(GL) => [
+         q(0087),
+         q(0),
+         ],
+      q(GM) => [
+         q(0081),
+         q(0),
+         ],
+      q(GN) => [
+         q(0093),
+         q(0),
+         ],
+      q(GP) => [
+         q(0089),
+         q(0),
+         ],
+      q(GQ) => [
+         q(0068),
+         q(0),
+         ],
+      q(GR) => [
+         q(0086),
+         q(0),
+         ],
+      q(GS) => [
+         q(0207),
+         q(2),
+         ],
+      q(GT) => [
+         q(0091),
+         q(0),
+         ],
+      q(GU) => [
+         q(0090),
+         q(0),
+         ],
+      q(GW) => [
+         q(0094),
+         q(0),
+         ],
+      q(GY) => [
+         q(0095),
+         q(0),
+         ],
+      q(HK) => [
+         q(0100),
+         q(0),
+         ],
+      q(HM) => [
+         q(0097),
+         q(0),
+         ],
+      q(HN) => [
+         q(0099),
+         q(0),
+         ],
+      q(HR) => [
+         q(0056),
+         q(0),
+         ],
+      q(HT) => [
+         q(0096),
+         q(0),
+         ],
+      q(HU) => [
+         q(0101),
+         q(0),
+         ],
+      q(ID) => [
+         q(0104),
+         q(0),
+         ],
+      q(IE) => [
+         q(0107),
+         q(0),
+         ],
+      q(IL) => [
+         q(0109),
+         q(0),
+         ],
+      q(IM) => [
+         q(0108),
+         q(0),
+         ],
+      q(IN) => [
+         q(0103),
+         q(0),
+         ],
+      q(IO) => [
+         q(0033),
+         q(0),
+         ],
+      q(IQ) => [
+         q(0106),
+         q(0),
+         ],
+      q(IR) => [
+         q(0105),
+         q(0),
+         ],
+      q(IS) => [
+         q(0102),
+         q(0),
+         ],
+      q(IT) => [
+         q(0110),
+         q(0),
+         ],
+      q(JE) => [
+         q(0113),
+         q(0),
+         ],
+      q(JM) => [
+         q(0111),
+         q(0),
+         ],
+      q(JO) => [
+         q(0114),
+         q(0),
+         ],
+      q(JP) => [
+         q(0112),
+         q(0),
+         ],
+      q(KE) => [
+         q(0116),
+         q(0),
+         ],
+      q(KG) => [
+         q(0121),
+         q(0),
+         ],
+      q(KH) => [
+         q(0039),
+         q(0),
+         ],
+      q(KI) => [
+         q(0117),
+         q(0),
+         ],
+      q(KM) => [
+         q(0050),
+         q(0),
+         ],
+      q(KN) => [
+         q(0187),
+         q(0),
+         ],
+      q(KP) => [
+         q(0118),
+         q(7),
+         ],
+      q(KR) => [
+         q(0119),
+         q(7),
+         ],
+      q(KW) => [
+         q(0120),
+         q(0),
+         ],
+      q(KY) => [
+         q(0042),
+         q(0),
+         ],
+      q(KZ) => [
+         q(0115),
+         q(0),
+         ],
+      q(LA) => [
+         q(0122),
+         q(4),
+         ],
+      q(LB) => [
+         q(0124),
+         q(0),
+         ],
+      q(LC) => [
+         q(0188),
+         q(0),
+         ],
+      q(LI) => [
+         q(0128),
+         q(0),
+         ],
+      q(LK) => [
+         q(0210),
+         q(0),
+         ],
+      q(LR) => [
+         q(0126),
+         q(0),
+         ],
+      q(LS) => [
+         q(0125),
+         q(0),
+         ],
+      q(LT) => [
+         q(0129),
+         q(0),
+         ],
+      q(LU) => [
+         q(0130),
+         q(0),
+         ],
+      q(LV) => [
+         q(0123),
+         q(0),
+         ],
+      q(LY) => [
+         q(0127),
+         q(0),
+         ],
+      q(MA) => [
+         q(0151),
+         q(0),
+         ],
+      q(MC) => [
+         q(0147),
+         q(0),
+         ],
+      q(MD) => [
+         q(0146),
+         q(6),
+         ],
+      q(ME) => [
+         q(0149),
+         q(0),
+         ],
+      q(MF) => [
+         q(0189),
+         q(0),
+         ],
+      q(MG) => [
+         q(0133),
+         q(0),
+         ],
+      q(MH) => [
+         q(0139),
+         q(0),
+         ],
+      q(MK) => [
+         q(0132),
+         q(0),
+         ],
+      q(ML) => [
+         q(0137),
+         q(0),
+         ],
+      q(MM) => [
+         q(0153),
+         q(0),
+         ],
+      q(MN) => [
+         q(0148),
+         q(0),
+         ],
+      q(MO) => [
+         q(0131),
+         q(0),
+         ],
+      q(MP) => [
+         q(0165),
+         q(0),
+         ],
+      q(MQ) => [
+         q(0140),
+         q(0),
+         ],
+      q(MR) => [
+         q(0141),
+         q(0),
+         ],
+      q(MS) => [
+         q(0150),
+         q(0),
+         ],
+      q(MT) => [
+         q(0138),
+         q(0),
+         ],
+      q(MU) => [
+         q(0142),
+         q(0),
+         ],
+      q(MV) => [
+         q(0136),
+         q(0),
+         ],
+      q(MW) => [
+         q(0134),
+         q(0),
+         ],
+      q(MX) => [
+         q(0144),
+         q(0),
+         ],
+      q(MY) => [
+         q(0135),
+         q(0),
+         ],
+      q(MZ) => [
+         q(0152),
+         q(0),
+         ],
+      q(NA) => [
+         q(0154),
+         q(0),
+         ],
+      q(NC) => [
+         q(0158),
+         q(0),
+         ],
+      q(NE) => [
+         q(0161),
+         q(0),
+         ],
+      q(NF) => [
+         q(0164),
+         q(0),
+         ],
+      q(NG) => [
+         q(0162),
+         q(0),
+         ],
+      q(NI) => [
+         q(0160),
+         q(0),
+         ],
+      q(NL) => [
+         q(0157),
+         q(0),
+         ],
+      q(NO) => [
+         q(0166),
+         q(0),
+         ],
+      q(NP) => [
+         q(0156),
+         q(0),
+         ],
+      q(NR) => [
+         q(0155),
+         q(0),
+         ],
+      q(NU) => [
+         q(0163),
+         q(0),
+         ],
+      q(NZ) => [
+         q(0159),
+         q(0),
+         ],
+      q(OM) => [
+         q(0167),
+         q(0),
+         ],
+      q(PA) => [
+         q(0171),
+         q(0),
+         ],
+      q(PE) => [
+         q(0174),
+         q(0),
+         ],
+      q(PF) => [
+         q(0078),
+         q(0),
+         ],
+      q(PG) => [
+         q(0172),
+         q(0),
+         ],
+      q(PH) => [
+         q(0175),
+         q(0),
+         ],
+      q(PK) => [
+         q(0168),
+         q(0),
+         ],
+      q(PL) => [
+         q(0177),
+         q(0),
+         ],
+      q(PM) => [
+         q(0190),
+         q(0),
+         ],
+      q(PN) => [
+         q(0176),
+         q(0),
+         ],
+      q(PR) => [
+         q(0179),
+         q(0),
+         ],
+      q(PT) => [
+         q(0178),
+         q(0),
+         ],
+      q(PW) => [
+         q(0169),
+         q(0),
+         ],
+      q(PY) => [
+         q(0173),
+         q(0),
+         ],
+      q(QA) => [
+         q(0180),
+         q(0),
+         ],
+      q(QM) => [
+         q(0270),
+         q(0),
+         ],
+      q(QS) => [
+         q(0254),
+         q(0),
+         ],
+      q(QU) => [
+         q(0267),
+         q(0),
+         ],
+      q(QW) => [
+         q(0278),
+         q(0),
+         ],
+      q(QX) => [
+         q(0261),
+         q(0),
+         ],
+      q(QZ) => [
+         q(0251),
+         q(0),
+         ],
+      q(RE) => [
+         q(0181),
+         q(0),
+         ],
+      q(RO) => [
+         q(0182),
+         q(0),
+         ],
+      q(RS) => [
+         q(0197),
+         q(0),
+         ],
+      q(RU) => [
+         q(0183),
+         q(4),
+         ],
+      q(RW) => [
+         q(0184),
+         q(0),
+         ],
+      q(SA) => [
+         q(0195),
+         q(0),
+         ],
+      q(SB) => [
+         q(0204),
+         q(0),
+         ],
+      q(SC) => [
+         q(0198),
+         q(0),
+         ],
+      q(SD) => [
+         q(0211),
+         q(0),
+         ],
+      q(SE) => [
+         q(0215),
+         q(0),
+         ],
+      q(SG) => [
+         q(0200),
+         q(0),
+         ],
+      q(SH) => [
+         q(0186),
+         q(2),
+         ],
+      q(SI) => [
+         q(0203),
+         q(0),
+         ],
+      q(SK) => [
+         q(0202),
+         q(0),
+         ],
+      q(SL) => [
+         q(0199),
+         q(0),
+         ],
+      q(SM) => [
+         q(0193),
+         q(0),
+         ],
+      q(SN) => [
+         q(0196),
+         q(0),
+         ],
+      q(SO) => [
+         q(0205),
+         q(0),
+         ],
+      q(SR) => [
+         q(0212),
+         q(0),
+         ],
+      q(SS) => [
+         q(0208),
+         q(0),
+         ],
+      q(ST) => [
+         q(0194),
+         q(0),
+         ],
+      q(SV) => [
+         q(0067),
+         q(0),
+         ],
+      q(SX) => [
+         q(0201),
+         q(1),
+         ],
+      q(SY) => [
+         q(0217),
+         q(0),
+         ],
+      q(SZ) => [
+         q(0214),
+         q(0),
+         ],
+      q(TC) => [
+         q(0230),
+         q(0),
+         ],
+      q(TD) => [
+         q(0044),
+         q(0),
+         ],
+      q(TF) => [
+         q(0079),
+         q(0),
+         ],
+      q(TG) => [
+         q(0223),
+         q(0),
+         ],
+      q(TH) => [
+         q(0221),
+         q(0),
+         ],
+      q(TJ) => [
+         q(0219),
+         q(0),
+         ],
+      q(TK) => [
+         q(0224),
+         q(0),
+         ],
+      q(TL) => [
+         q(0222),
+         q(0),
+         ],
+      q(TM) => [
+         q(0229),
+         q(0),
+         ],
+      q(TN) => [
+         q(0227),
+         q(0),
+         ],
+      q(TO) => [
+         q(0225),
+         q(0),
+         ],
+      q(TR) => [
+         q(0228),
+         q(0),
+         ],
+      q(TT) => [
+         q(0226),
+         q(0),
+         ],
+      q(TV) => [
+         q(0231),
+         q(0),
+         ],
+      q(TW) => [
+         q(0218),
+         q(0),
+         ],
+      q(TZ) => [
+         q(0220),
+         q(3),
+         ],
+      q(UA) => [
+         q(0233),
+         q(0),
+         ],
+      q(UG) => [
+         q(0232),
+         q(0),
+         ],
+      q(US) => [
+         q(0237),
+         q(0),
+         ],
+      q(UY) => [
+         q(0238),
+         q(0),
+         ],
+      q(UZ) => [
+         q(0239),
+         q(0),
+         ],
+      q(VA) => [
+         q(0098),
+         q(0),
+         ],
+      q(VC) => [
+         q(0191),
+         q(0),
+         ],
+      q(VE) => [
+         q(0241),
+         q(0),
+         ],
+      q(VG) => [
+         q(0243),
+         q(0),
+         ],
+      q(VI) => [
+         q(0244),
+         q(0),
+         ],
+      q(VN) => [
+         q(0242),
+         q(0),
+         ],
+      q(VU) => [
+         q(0240),
+         q(0),
+         ],
+      q(WF) => [
+         q(0245),
+         q(0),
+         ],
+      q(WS) => [
+         q(0192),
+         q(0),
+         ],
+      q(XA) => [
+         q(0252),
+         q(0),
+         ],
+      q(XB) => [
+         q(0253),
+         q(0),
+         ],
+      q(XC) => [
+         q(0256),
+         q(0),
+         ],
+      q(XD) => [
+         q(0257),
+         q(0),
+         ],
+      q(XE) => [
+         q(0259),
+         q(0),
+         ],
+      q(XG) => [
+         q(0260),
+         q(0),
+         ],
+      q(XH) => [
+         q(0263),
+         q(0),
+         ],
+      q(XJ) => [
+         q(0264),
+         q(0),
+         ],
+      q(XK) => [
+         q(0269),
+         q(0),
+         ],
+      q(XL) => [
+         q(0272),
+         q(0),
+         ],
+      q(XM) => [
+         q(0268),
+         q(0),
+         ],
+      q(XP) => [
+         q(0273),
+         q(0),
+         ],
+      q(XQ) => [
+         q(0265),
+         q(0),
+         ],
+      q(XR) => [
+         q(0275),
+         q(0),
+         ],
+      q(XS) => [
+         q(0274),
+         q(0),
+         ],
+      q(XT) => [
+         q(0276),
+         q(0),
+         ],
+      q(XU) => [
+         q(0266),
+         q(0),
+         ],
+      q(XV) => [
+         q(0271),
+         q(0),
+         ],
+      q(XW) => [
+         q(0279),
+         q(0),
+         ],
+      q(YE) => [
+         q(0247),
+         q(0),
+         ],
+      q(YT) => [
+         q(0143),
+         q(0),
+         ],
+      q(ZA) => [
+         q(0206),
+         q(0),
+         ],
+      q(ZM) => [
+         q(0248),
+         q(0),
+         ],
+      q(ZW) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(genc-alpha-3) => {
+      q(ABW) => [
+         q(0013),
+         q(0),
+         ],
+      q(AFG) => [
+         q(0001),
+         q(0),
+         ],
+      q(AGO) => [
+         q(0007),
+         q(0),
+         ],
+      q(AIA) => [
+         q(0008),
+         q(0),
+         ],
+      q(ALB) => [
+         q(0003),
+         q(0),
+         ],
+      q(AND) => [
+         q(0006),
+         q(0),
+         ],
+      q(ARE) => [
+         q(0234),
+         q(0),
+         ],
+      q(ARG) => [
+         q(0011),
+         q(0),
+         ],
+      q(ARM) => [
+         q(0012),
+         q(0),
+         ],
+      q(ASM) => [
+         q(0005),
+         q(0),
+         ],
+      q(ATA) => [
+         q(0009),
+         q(0),
+         ],
+      q(ATF) => [
+         q(0079),
+         q(0),
+         ],
+      q(ATG) => [
+         q(0010),
+         q(0),
+         ],
+      q(AUS) => [
+         q(0014),
+         q(0),
+         ],
+      q(AUT) => [
+         q(0015),
+         q(0),
+         ],
+      q(AX1) => [
+         q(0277),
+         q(0),
+         ],
+      q(AX2) => [
+         q(0262),
+         q(0),
+         ],
+      q(AZE) => [
+         q(0016),
+         q(0),
+         ],
+      q(BDI) => [
+         q(0037),
+         q(0),
+         ],
+      q(BEL) => [
+         q(0022),
+         q(0),
+         ],
+      q(BEN) => [
+         q(0024),
+         q(0),
+         ],
+      q(BES) => [
+         q(0028),
+         q(1),
+         ],
+      q(BFA) => [
+         q(0036),
+         q(0),
+         ],
+      q(BGD) => [
+         q(0019),
+         q(0),
+         ],
+      q(BGR) => [
+         q(0035),
+         q(0),
+         ],
+      q(BHR) => [
+         q(0018),
+         q(0),
+         ],
+      q(BHS) => [
+         q(0017),
+         q(0),
+         ],
+      q(BIH) => [
+         q(0029),
+         q(0),
+         ],
+      q(BLM) => [
+         q(0185),
+         q(0),
+         ],
+      q(BLR) => [
+         q(0021),
+         q(0),
+         ],
+      q(BLZ) => [
+         q(0023),
+         q(0),
+         ],
+      q(BMU) => [
+         q(0025),
+         q(0),
+         ],
+      q(BOL) => [
+         q(0027),
+         q(0),
+         ],
+      q(BRA) => [
+         q(0032),
+         q(0),
+         ],
+      q(BRB) => [
+         q(0020),
+         q(0),
+         ],
+      q(BRN) => [
+         q(0034),
+         q(0),
+         ],
+      q(BTN) => [
+         q(0026),
+         q(0),
+         ],
+      q(BVT) => [
+         q(0031),
+         q(0),
+         ],
+      q(BWA) => [
+         q(0030),
+         q(0),
+         ],
+      q(CAF) => [
+         q(0043),
+         q(0),
+         ],
+      q(CAN) => [
+         q(0041),
+         q(0),
+         ],
+      q(CCK) => [
+         q(0048),
+         q(0),
+         ],
+      q(CHE) => [
+         q(0216),
+         q(0),
+         ],
+      q(CHL) => [
+         q(0045),
+         q(0),
+         ],
+      q(CHN) => [
+         q(0046),
+         q(0),
+         ],
+      q(CIV) => [
+         q(0055),
+         q(0),
+         ],
+      q(CMR) => [
+         q(0040),
+         q(0),
+         ],
+      q(COD) => [
+         q(0051),
+         q(0),
+         ],
+      q(COG) => [
+         q(0052),
+         q(0),
+         ],
+      q(COK) => [
+         q(0053),
+         q(0),
+         ],
+      q(COL) => [
+         q(0049),
+         q(0),
+         ],
+      q(COM) => [
+         q(0050),
+         q(0),
+         ],
+      q(CPT) => [
+         q(0255),
+         q(0),
+         ],
+      q(CPV) => [
+         q(0038),
+         q(0),
+         ],
+      q(CRI) => [
+         q(0054),
+         q(0),
+         ],
+      q(CUB) => [
+         q(0057),
+         q(0),
+         ],
+      q(CUW) => [
+         q(0058),
+         q(0),
+         ],
+      q(CXR) => [
+         q(0047),
+         q(0),
+         ],
+      q(CYM) => [
+         q(0042),
+         q(0),
+         ],
+      q(CYP) => [
+         q(0059),
+         q(0),
+         ],
+      q(CZE) => [
+         q(0060),
+         q(0),
+         ],
+      q(DEU) => [
+         q(0083),
+         q(0),
+         ],
+      q(DGA) => [
+         q(0258),
+         q(0),
+         ],
+      q(DJI) => [
+         q(0062),
+         q(0),
+         ],
+      q(DMA) => [
+         q(0063),
+         q(0),
+         ],
+      q(DNK) => [
+         q(0061),
+         q(0),
+         ],
+      q(DOM) => [
+         q(0064),
+         q(0),
+         ],
+      q(DZA) => [
+         q(0004),
+         q(0),
+         ],
+      q(ECU) => [
+         q(0065),
+         q(0),
+         ],
+      q(EGY) => [
+         q(0066),
+         q(0),
+         ],
+      q(ERI) => [
+         q(0069),
+         q(0),
+         ],
+      q(ESH) => [
+         q(0246),
+         q(0),
+         ],
+      q(ESP) => [
+         q(0209),
+         q(0),
+         ],
+      q(EST) => [
+         q(0070),
+         q(0),
+         ],
+      q(ETH) => [
+         q(0071),
+         q(0),
+         ],
+      q(FIN) => [
+         q(0075),
+         q(0),
+         ],
+      q(FJI) => [
+         q(0074),
+         q(0),
+         ],
+      q(FLK) => [
+         q(0072),
+         q(0),
+         ],
+      q(FRA) => [
+         q(0076),
+         q(0),
+         ],
+      q(FRO) => [
+         q(0073),
+         q(0),
+         ],
+      q(FSM) => [
+         q(0145),
+         q(0),
+         ],
+      q(GAB) => [
+         q(0080),
+         q(0),
+         ],
+      q(GBR) => [
+         q(0235),
+         q(0),
+         ],
+      q(GEO) => [
+         q(0082),
+         q(0),
+         ],
+      q(GGY) => [
+         q(0092),
+         q(0),
+         ],
+      q(GHA) => [
+         q(0084),
+         q(0),
+         ],
+      q(GIB) => [
+         q(0085),
+         q(0),
+         ],
+      q(GIN) => [
+         q(0093),
+         q(0),
+         ],
+      q(GLP) => [
+         q(0089),
+         q(0),
+         ],
+      q(GMB) => [
+         q(0081),
+         q(0),
+         ],
+      q(GNB) => [
+         q(0094),
+         q(0),
+         ],
+      q(GNQ) => [
+         q(0068),
+         q(0),
+         ],
+      q(GRC) => [
+         q(0086),
+         q(0),
+         ],
+      q(GRD) => [
+         q(0088),
+         q(0),
+         ],
+      q(GRL) => [
+         q(0087),
+         q(0),
+         ],
+      q(GTM) => [
+         q(0091),
+         q(0),
+         ],
+      q(GUF) => [
+         q(0077),
+         q(0),
+         ],
+      q(GUM) => [
+         q(0090),
+         q(0),
+         ],
+      q(GUY) => [
+         q(0095),
+         q(0),
+         ],
+      q(HKG) => [
+         q(0100),
+         q(0),
+         ],
+      q(HMD) => [
+         q(0097),
+         q(0),
+         ],
+      q(HND) => [
+         q(0099),
+         q(0),
+         ],
+      q(HRV) => [
+         q(0056),
+         q(0),
+         ],
+      q(HTI) => [
+         q(0096),
+         q(0),
+         ],
+      q(HUN) => [
+         q(0101),
+         q(0),
+         ],
+      q(IDN) => [
+         q(0104),
+         q(0),
+         ],
+      q(IMN) => [
+         q(0108),
+         q(0),
+         ],
+      q(IND) => [
+         q(0103),
+         q(0),
+         ],
+      q(IOT) => [
+         q(0033),
+         q(0),
+         ],
+      q(IRL) => [
+         q(0107),
+         q(0),
+         ],
+      q(IRN) => [
+         q(0105),
+         q(0),
+         ],
+      q(IRQ) => [
+         q(0106),
+         q(0),
+         ],
+      q(ISL) => [
+         q(0102),
+         q(0),
+         ],
+      q(ISR) => [
+         q(0109),
+         q(0),
+         ],
+      q(ITA) => [
+         q(0110),
+         q(0),
+         ],
+      q(JAM) => [
+         q(0111),
+         q(0),
+         ],
+      q(JEY) => [
+         q(0113),
+         q(0),
+         ],
+      q(JOR) => [
+         q(0114),
+         q(0),
+         ],
+      q(JPN) => [
+         q(0112),
+         q(0),
+         ],
+      q(KAZ) => [
+         q(0115),
+         q(0),
+         ],
+      q(KEN) => [
+         q(0116),
+         q(0),
+         ],
+      q(KGZ) => [
+         q(0121),
+         q(0),
+         ],
+      q(KHM) => [
+         q(0039),
+         q(0),
+         ],
+      q(KIR) => [
+         q(0117),
+         q(0),
+         ],
+      q(KNA) => [
+         q(0187),
+         q(0),
+         ],
+      q(KOR) => [
+         q(0119),
+         q(7),
+         ],
+      q(KWT) => [
+         q(0120),
+         q(0),
+         ],
+      q(LAO) => [
+         q(0122),
+         q(4),
+         ],
+      q(LBN) => [
+         q(0124),
+         q(0),
+         ],
+      q(LBR) => [
+         q(0126),
+         q(0),
+         ],
+      q(LBY) => [
+         q(0127),
+         q(0),
+         ],
+      q(LCA) => [
+         q(0188),
+         q(0),
+         ],
+      q(LIE) => [
+         q(0128),
+         q(0),
+         ],
+      q(LKA) => [
+         q(0210),
+         q(0),
+         ],
+      q(LSO) => [
+         q(0125),
+         q(0),
+         ],
+      q(LTU) => [
+         q(0129),
+         q(0),
+         ],
+      q(LUX) => [
+         q(0130),
+         q(0),
+         ],
+      q(LVA) => [
+         q(0123),
+         q(0),
+         ],
+      q(MAC) => [
+         q(0131),
+         q(0),
+         ],
+      q(MAF) => [
+         q(0189),
+         q(0),
+         ],
+      q(MAR) => [
+         q(0151),
+         q(0),
+         ],
+      q(MCO) => [
+         q(0147),
+         q(0),
+         ],
+      q(MDA) => [
+         q(0146),
+         q(6),
+         ],
+      q(MDG) => [
+         q(0133),
+         q(0),
+         ],
+      q(MDV) => [
+         q(0136),
+         q(0),
+         ],
+      q(MEX) => [
+         q(0144),
+         q(0),
+         ],
+      q(MHL) => [
+         q(0139),
+         q(0),
+         ],
+      q(MKD) => [
+         q(0132),
+         q(0),
+         ],
+      q(MLI) => [
+         q(0137),
+         q(0),
+         ],
+      q(MLT) => [
+         q(0138),
+         q(0),
+         ],
+      q(MMR) => [
+         q(0153),
+         q(0),
+         ],
+      q(MNE) => [
+         q(0149),
+         q(0),
+         ],
+      q(MNG) => [
+         q(0148),
+         q(0),
+         ],
+      q(MNP) => [
+         q(0165),
+         q(0),
+         ],
+      q(MOZ) => [
+         q(0152),
+         q(0),
+         ],
+      q(MRT) => [
+         q(0141),
+         q(0),
+         ],
+      q(MSR) => [
+         q(0150),
+         q(0),
+         ],
+      q(MTQ) => [
+         q(0140),
+         q(0),
+         ],
+      q(MUS) => [
+         q(0142),
+         q(0),
+         ],
+      q(MWI) => [
+         q(0134),
+         q(0),
+         ],
+      q(MYS) => [
+         q(0135),
+         q(0),
+         ],
+      q(MYT) => [
+         q(0143),
+         q(0),
+         ],
+      q(NAM) => [
+         q(0154),
+         q(0),
+         ],
+      q(NCL) => [
+         q(0158),
+         q(0),
+         ],
+      q(NER) => [
+         q(0161),
+         q(0),
+         ],
+      q(NFK) => [
+         q(0164),
+         q(0),
+         ],
+      q(NGA) => [
+         q(0162),
+         q(0),
+         ],
+      q(NIC) => [
+         q(0160),
+         q(0),
+         ],
+      q(NIU) => [
+         q(0163),
+         q(0),
+         ],
+      q(NLD) => [
+         q(0157),
+         q(0),
+         ],
+      q(NOR) => [
+         q(0166),
+         q(0),
+         ],
+      q(NPL) => [
+         q(0156),
+         q(0),
+         ],
+      q(NRU) => [
+         q(0155),
+         q(0),
+         ],
+      q(NZL) => [
+         q(0159),
+         q(0),
+         ],
+      q(OMN) => [
+         q(0167),
+         q(0),
+         ],
+      q(PAK) => [
+         q(0168),
+         q(0),
+         ],
+      q(PAN) => [
+         q(0171),
+         q(0),
+         ],
+      q(PCN) => [
+         q(0176),
+         q(0),
+         ],
+      q(PER) => [
+         q(0174),
+         q(0),
+         ],
+      q(PHL) => [
+         q(0175),
+         q(0),
+         ],
+      q(PLW) => [
+         q(0169),
+         q(0),
+         ],
+      q(PNG) => [
+         q(0172),
+         q(0),
+         ],
+      q(POL) => [
+         q(0177),
+         q(0),
+         ],
+      q(PRI) => [
+         q(0179),
+         q(0),
+         ],
+      q(PRK) => [
+         q(0118),
+         q(7),
+         ],
+      q(PRT) => [
+         q(0178),
+         q(0),
+         ],
+      q(PRY) => [
+         q(0173),
+         q(0),
+         ],
+      q(PYF) => [
+         q(0078),
+         q(0),
+         ],
+      q(QAT) => [
+         q(0180),
+         q(0),
+         ],
+      q(REU) => [
+         q(0181),
+         q(0),
+         ],
+      q(ROU) => [
+         q(0182),
+         q(0),
+         ],
+      q(RUS) => [
+         q(0183),
+         q(4),
+         ],
+      q(RWA) => [
+         q(0184),
+         q(0),
+         ],
+      q(SAU) => [
+         q(0195),
+         q(0),
+         ],
+      q(SDN) => [
+         q(0211),
+         q(0),
+         ],
+      q(SEN) => [
+         q(0196),
+         q(0),
+         ],
+      q(SGP) => [
+         q(0200),
+         q(0),
+         ],
+      q(SGS) => [
+         q(0207),
+         q(2),
+         ],
+      q(SHN) => [
+         q(0186),
+         q(2),
+         ],
+      q(SLB) => [
+         q(0204),
+         q(0),
+         ],
+      q(SLE) => [
+         q(0199),
+         q(0),
+         ],
+      q(SLV) => [
+         q(0067),
+         q(0),
+         ],
+      q(SMR) => [
+         q(0193),
+         q(0),
+         ],
+      q(SOM) => [
+         q(0205),
+         q(0),
+         ],
+      q(SPM) => [
+         q(0190),
+         q(0),
+         ],
+      q(SRB) => [
+         q(0197),
+         q(0),
+         ],
+      q(SSD) => [
+         q(0208),
+         q(0),
+         ],
+      q(STP) => [
+         q(0194),
+         q(0),
+         ],
+      q(SUR) => [
+         q(0212),
+         q(0),
+         ],
+      q(SVK) => [
+         q(0202),
+         q(0),
+         ],
+      q(SVN) => [
+         q(0203),
+         q(0),
+         ],
+      q(SWE) => [
+         q(0215),
+         q(0),
+         ],
+      q(SWZ) => [
+         q(0214),
+         q(0),
+         ],
+      q(SXM) => [
+         q(0201),
+         q(1),
+         ],
+      q(SYC) => [
+         q(0198),
+         q(0),
+         ],
+      q(SYR) => [
+         q(0217),
+         q(0),
+         ],
+      q(TCA) => [
+         q(0230),
+         q(0),
+         ],
+      q(TCD) => [
+         q(0044),
+         q(0),
+         ],
+      q(TGO) => [
+         q(0223),
+         q(0),
+         ],
+      q(THA) => [
+         q(0221),
+         q(0),
+         ],
+      q(TJK) => [
+         q(0219),
+         q(0),
+         ],
+      q(TKL) => [
+         q(0224),
+         q(0),
+         ],
+      q(TKM) => [
+         q(0229),
+         q(0),
+         ],
+      q(TLS) => [
+         q(0222),
+         q(0),
+         ],
+      q(TON) => [
+         q(0225),
+         q(0),
+         ],
+      q(TTO) => [
+         q(0226),
+         q(0),
+         ],
+      q(TUN) => [
+         q(0227),
+         q(0),
+         ],
+      q(TUR) => [
+         q(0228),
+         q(0),
+         ],
+      q(TUV) => [
+         q(0231),
+         q(0),
+         ],
+      q(TWN) => [
+         q(0218),
+         q(0),
+         ],
+      q(TZA) => [
+         q(0220),
+         q(3),
+         ],
+      q(UGA) => [
+         q(0232),
+         q(0),
+         ],
+      q(UKR) => [
+         q(0233),
+         q(0),
+         ],
+      q(URY) => [
+         q(0238),
+         q(0),
+         ],
+      q(USA) => [
+         q(0237),
+         q(0),
+         ],
+      q(UZB) => [
+         q(0239),
+         q(0),
+         ],
+      q(VAT) => [
+         q(0098),
+         q(0),
+         ],
+      q(VCT) => [
+         q(0191),
+         q(0),
+         ],
+      q(VEN) => [
+         q(0241),
+         q(0),
+         ],
+      q(VGB) => [
+         q(0243),
+         q(0),
+         ],
+      q(VIR) => [
+         q(0244),
+         q(0),
+         ],
+      q(VNM) => [
+         q(0242),
+         q(0),
+         ],
+      q(VUT) => [
+         q(0240),
+         q(0),
+         ],
+      q(WLF) => [
+         q(0245),
+         q(0),
+         ],
+      q(WSM) => [
+         q(0192),
+         q(0),
+         ],
+      q(XAC) => [
+         q(0252),
+         q(0),
+         ],
+      q(XBI) => [
+         q(0254),
+         q(0),
+         ],
+      q(XBK) => [
+         q(0253),
+         q(0),
+         ],
+      q(XCS) => [
+         q(0256),
+         q(0),
+         ],
+      q(XEU) => [
+         q(0259),
+         q(0),
+         ],
+      q(XGL) => [
+         q(0261),
+         q(0),
+         ],
+      q(XGZ) => [
+         q(0260),
+         q(0),
+         ],
+      q(XHO) => [
+         q(0263),
+         q(0),
+         ],
+      q(XJA) => [
+         q(0266),
+         q(0),
+         ],
+      q(XJM) => [
+         q(0264),
+         q(0),
+         ],
+      q(XJN) => [
+         q(0267),
+         q(0),
+         ],
+      q(XJV) => [
+         q(0265),
+         q(0),
+         ],
+      q(XKR) => [
+         q(0268),
+         q(0),
+         ],
+      q(XKS) => [
+         q(0269),
+         q(0),
+         ],
+      q(XMW) => [
+         q(0270),
+         q(0),
+         ],
+      q(XNV) => [
+         q(0271),
+         q(0),
+         ],
+      q(XPL) => [
+         q(0272),
+         q(0),
+         ],
+      q(XPR) => [
+         q(0273),
+         q(0),
+         ],
+      q(XQZ) => [
+         q(0251),
+         q(0),
+         ],
+      q(XSP) => [
+         q(0274),
+         q(0),
+         ],
+      q(XSV) => [
+         q(0275),
+         q(0),
+         ],
+      q(XTR) => [
+         q(0276),
+         q(0),
+         ],
+      q(XWB) => [
+         q(0279),
+         q(0),
+         ],
+      q(XWK) => [
+         q(0278),
+         q(0),
+         ],
+      q(XXD) => [
+         q(0257),
+         q(0),
+         ],
+      q(YEM) => [
+         q(0247),
+         q(0),
+         ],
+      q(ZAF) => [
+         q(0206),
+         q(0),
+         ],
+      q(ZMB) => [
+         q(0248),
+         q(0),
+         ],
+      q(ZWE) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(genc-numeric) => {
+      q(004) => [
+         q(0001),
+         q(0),
+         ],
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(010) => [
+         q(0009),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(016) => [
+         q(0005),
+         q(0),
+         ],
+      q(020) => [
+         q(0006),
+         q(0),
+         ],
+      q(024) => [
+         q(0007),
+         q(0),
+         ],
+      q(028) => [
+         q(0010),
+         q(0),
+         ],
+      q(031) => [
+         q(0016),
+         q(0),
+         ],
+      q(032) => [
+         q(0011),
+         q(0),
+         ],
+      q(036) => [
+         q(0014),
+         q(0),
+         ],
+      q(040) => [
+         q(0015),
+         q(0),
+         ],
+      q(044) => [
+         q(0017),
+         q(0),
+         ],
+      q(048) => [
+         q(0018),
+         q(0),
+         ],
+      q(050) => [
+         q(0019),
+         q(0),
+         ],
+      q(051) => [
+         q(0012),
+         q(0),
+         ],
+      q(052) => [
+         q(0020),
+         q(0),
+         ],
+      q(056) => [
+         q(0022),
+         q(0),
+         ],
+      q(060) => [
+         q(0025),
+         q(0),
+         ],
+      q(064) => [
+         q(0026),
+         q(0),
+         ],
+      q(068) => [
+         q(0027),
+         q(0),
+         ],
+      q(070) => [
+         q(0029),
+         q(0),
+         ],
+      q(072) => [
+         q(0030),
+         q(0),
+         ],
+      q(074) => [
+         q(0031),
+         q(0),
+         ],
+      q(076) => [
+         q(0032),
+         q(0),
+         ],
+      q(084) => [
+         q(0023),
+         q(0),
+         ],
+      q(086) => [
+         q(0033),
+         q(0),
+         ],
+      q(090) => [
+         q(0204),
+         q(0),
+         ],
+      q(092) => [
+         q(0243),
+         q(0),
+         ],
+      q(096) => [
+         q(0034),
+         q(0),
+         ],
+      q(100) => [
+         q(0035),
+         q(0),
+         ],
+      q(104) => [
+         q(0153),
+         q(0),
+         ],
+      q(108) => [
+         q(0037),
+         q(0),
+         ],
+      q(112) => [
+         q(0021),
+         q(0),
+         ],
+      q(116) => [
+         q(0039),
+         q(0),
+         ],
+      q(120) => [
+         q(0040),
+         q(0),
+         ],
+      q(124) => [
+         q(0041),
+         q(0),
+         ],
+      q(132) => [
+         q(0038),
+         q(0),
+         ],
+      q(136) => [
+         q(0042),
+         q(0),
+         ],
+      q(140) => [
+         q(0043),
+         q(0),
+         ],
+      q(144) => [
+         q(0210),
+         q(0),
+         ],
+      q(148) => [
+         q(0044),
+         q(0),
+         ],
+      q(152) => [
+         q(0045),
+         q(0),
+         ],
+      q(156) => [
+         q(0046),
+         q(0),
+         ],
+      q(158) => [
+         q(0218),
+         q(0),
+         ],
+      q(162) => [
+         q(0047),
+         q(0),
+         ],
+      q(166) => [
+         q(0048),
+         q(0),
+         ],
+      q(170) => [
+         q(0049),
+         q(0),
+         ],
+      q(174) => [
+         q(0050),
+         q(0),
+         ],
+      q(175) => [
+         q(0143),
+         q(0),
+         ],
+      q(178) => [
+         q(0052),
+         q(0),
+         ],
+      q(180) => [
+         q(0051),
+         q(0),
+         ],
+      q(184) => [
+         q(0053),
+         q(0),
+         ],
+      q(188) => [
+         q(0054),
+         q(0),
+         ],
+      q(191) => [
+         q(0056),
+         q(0),
+         ],
+      q(192) => [
+         q(0057),
+         q(0),
+         ],
+      q(196) => [
+         q(0059),
+         q(0),
+         ],
+      q(203) => [
+         q(0060),
+         q(0),
+         ],
+      q(204) => [
+         q(0024),
+         q(0),
+         ],
+      q(208) => [
+         q(0061),
+         q(0),
+         ],
+      q(212) => [
+         q(0063),
+         q(0),
+         ],
+      q(214) => [
+         q(0064),
+         q(0),
+         ],
+      q(218) => [
+         q(0065),
+         q(0),
+         ],
+      q(222) => [
+         q(0067),
+         q(0),
+         ],
+      q(226) => [
+         q(0068),
+         q(0),
+         ],
+      q(231) => [
+         q(0071),
+         q(0),
+         ],
+      q(232) => [
+         q(0069),
+         q(0),
+         ],
+      q(233) => [
+         q(0070),
+         q(0),
+         ],
+      q(234) => [
+         q(0073),
+         q(0),
+         ],
+      q(238) => [
+         q(0072),
+         q(0),
+         ],
+      q(239) => [
+         q(0207),
+         q(2),
+         ],
+      q(242) => [
+         q(0074),
+         q(0),
+         ],
+      q(246) => [
+         q(0075),
+         q(0),
+         ],
+      q(250) => [
+         q(0076),
+         q(0),
+         ],
+      q(254) => [
+         q(0077),
+         q(0),
+         ],
+      q(258) => [
+         q(0078),
+         q(0),
+         ],
+      q(260) => [
+         q(0079),
+         q(0),
+         ],
+      q(262) => [
+         q(0062),
+         q(0),
+         ],
+      q(266) => [
+         q(0080),
+         q(0),
+         ],
+      q(268) => [
+         q(0082),
+         q(0),
+         ],
+      q(270) => [
+         q(0081),
+         q(0),
+         ],
+      q(276) => [
+         q(0083),
+         q(0),
+         ],
+      q(288) => [
+         q(0084),
+         q(0),
+         ],
+      q(292) => [
+         q(0085),
+         q(0),
+         ],
+      q(296) => [
+         q(0117),
+         q(0),
+         ],
+      q(300) => [
+         q(0086),
+         q(0),
+         ],
+      q(304) => [
+         q(0087),
+         q(0),
+         ],
+      q(308) => [
+         q(0088),
+         q(0),
+         ],
+      q(312) => [
+         q(0089),
+         q(0),
+         ],
+      q(316) => [
+         q(0090),
+         q(0),
+         ],
+      q(320) => [
+         q(0091),
+         q(0),
+         ],
+      q(324) => [
+         q(0093),
+         q(0),
+         ],
+      q(328) => [
+         q(0095),
+         q(0),
+         ],
+      q(332) => [
+         q(0096),
+         q(0),
+         ],
+      q(334) => [
+         q(0097),
+         q(0),
+         ],
+      q(336) => [
+         q(0098),
+         q(0),
+         ],
+      q(340) => [
+         q(0099),
+         q(0),
+         ],
+      q(344) => [
+         q(0100),
+         q(0),
+         ],
+      q(348) => [
+         q(0101),
+         q(0),
+         ],
+      q(352) => [
+         q(0102),
+         q(0),
+         ],
+      q(356) => [
+         q(0103),
+         q(0),
+         ],
+      q(360) => [
+         q(0104),
+         q(0),
+         ],
+      q(364) => [
+         q(0105),
+         q(0),
+         ],
+      q(368) => [
+         q(0106),
+         q(0),
+         ],
+      q(372) => [
+         q(0107),
+         q(0),
+         ],
+      q(376) => [
+         q(0109),
+         q(0),
+         ],
+      q(380) => [
+         q(0110),
+         q(0),
+         ],
+      q(384) => [
+         q(0055),
+         q(0),
+         ],
+      q(388) => [
+         q(0111),
+         q(0),
+         ],
+      q(392) => [
+         q(0112),
+         q(0),
+         ],
+      q(398) => [
+         q(0115),
+         q(0),
+         ],
+      q(400) => [
+         q(0114),
+         q(0),
+         ],
+      q(404) => [
+         q(0116),
+         q(0),
+         ],
+      q(408) => [
+         q(0118),
+         q(7),
+         ],
+      q(410) => [
+         q(0119),
+         q(7),
+         ],
+      q(414) => [
+         q(0120),
+         q(0),
+         ],
+      q(417) => [
+         q(0121),
+         q(0),
+         ],
+      q(418) => [
+         q(0122),
+         q(4),
+         ],
+      q(422) => [
+         q(0124),
+         q(0),
+         ],
+      q(426) => [
+         q(0125),
+         q(0),
+         ],
+      q(428) => [
+         q(0123),
+         q(0),
+         ],
+      q(430) => [
+         q(0126),
+         q(0),
+         ],
+      q(434) => [
+         q(0127),
+         q(0),
+         ],
+      q(438) => [
+         q(0128),
+         q(0),
+         ],
+      q(440) => [
+         q(0129),
+         q(0),
+         ],
+      q(442) => [
+         q(0130),
+         q(0),
+         ],
+      q(446) => [
+         q(0131),
+         q(0),
+         ],
+      q(450) => [
+         q(0133),
+         q(0),
+         ],
+      q(454) => [
+         q(0134),
+         q(0),
+         ],
+      q(458) => [
+         q(0135),
+         q(0),
+         ],
+      q(462) => [
+         q(0136),
+         q(0),
+         ],
+      q(466) => [
+         q(0137),
+         q(0),
+         ],
+      q(470) => [
+         q(0138),
+         q(0),
+         ],
+      q(474) => [
+         q(0140),
+         q(0),
+         ],
+      q(478) => [
+         q(0141),
+         q(0),
+         ],
+      q(480) => [
+         q(0142),
+         q(0),
+         ],
+      q(484) => [
+         q(0144),
+         q(0),
+         ],
+      q(492) => [
+         q(0147),
+         q(0),
+         ],
+      q(496) => [
+         q(0148),
+         q(0),
+         ],
+      q(498) => [
+         q(0146),
+         q(6),
+         ],
+      q(499) => [
+         q(0149),
+         q(0),
+         ],
+      q(500) => [
+         q(0150),
+         q(0),
+         ],
+      q(504) => [
+         q(0151),
+         q(0),
+         ],
+      q(508) => [
+         q(0152),
+         q(0),
+         ],
+      q(512) => [
+         q(0167),
+         q(0),
+         ],
+      q(516) => [
+         q(0154),
+         q(0),
+         ],
+      q(520) => [
+         q(0155),
+         q(0),
+         ],
+      q(524) => [
+         q(0156),
+         q(0),
+         ],
+      q(528) => [
+         q(0157),
+         q(0),
+         ],
+      q(531) => [
+         q(0058),
+         q(0),
+         ],
+      q(533) => [
+         q(0013),
+         q(0),
+         ],
+      q(534) => [
+         q(0201),
+         q(1),
+         ],
+      q(535) => [
+         q(0028),
+         q(1),
+         ],
+      q(540) => [
+         q(0158),
+         q(0),
+         ],
+      q(548) => [
+         q(0240),
+         q(0),
+         ],
+      q(554) => [
+         q(0159),
+         q(0),
+         ],
+      q(558) => [
+         q(0160),
+         q(0),
+         ],
+      q(562) => [
+         q(0161),
+         q(0),
+         ],
+      q(566) => [
+         q(0162),
+         q(0),
+         ],
+      q(570) => [
+         q(0163),
+         q(0),
+         ],
+      q(574) => [
+         q(0164),
+         q(0),
+         ],
+      q(578) => [
+         q(0166),
+         q(0),
+         ],
+      q(580) => [
+         q(0165),
+         q(0),
+         ],
+      q(583) => [
+         q(0145),
+         q(0),
+         ],
+      q(584) => [
+         q(0139),
+         q(0),
+         ],
+      q(585) => [
+         q(0169),
+         q(0),
+         ],
+      q(586) => [
+         q(0168),
+         q(0),
+         ],
+      q(591) => [
+         q(0171),
+         q(0),
+         ],
+      q(598) => [
+         q(0172),
+         q(0),
+         ],
+      q(600) => [
+         q(0173),
+         q(0),
+         ],
+      q(604) => [
+         q(0174),
+         q(0),
+         ],
+      q(608) => [
+         q(0175),
+         q(0),
+         ],
+      q(612) => [
+         q(0176),
+         q(0),
+         ],
+      q(616) => [
+         q(0177),
+         q(0),
+         ],
+      q(620) => [
+         q(0178),
+         q(0),
+         ],
+      q(624) => [
+         q(0094),
+         q(0),
+         ],
+      q(626) => [
+         q(0222),
+         q(0),
+         ],
+      q(630) => [
+         q(0179),
+         q(0),
+         ],
+      q(634) => [
+         q(0180),
+         q(0),
+         ],
+      q(638) => [
+         q(0181),
+         q(0),
+         ],
+      q(642) => [
+         q(0182),
+         q(0),
+         ],
+      q(643) => [
+         q(0183),
+         q(4),
+         ],
+      q(646) => [
+         q(0184),
+         q(0),
+         ],
+      q(652) => [
+         q(0185),
+         q(0),
+         ],
+      q(654) => [
+         q(0186),
+         q(2),
+         ],
+      q(659) => [
+         q(0187),
+         q(0),
+         ],
+      q(660) => [
+         q(0008),
+         q(0),
+         ],
+      q(662) => [
+         q(0188),
+         q(0),
+         ],
+      q(663) => [
+         q(0189),
+         q(0),
+         ],
+      q(666) => [
+         q(0190),
+         q(0),
+         ],
+      q(670) => [
+         q(0191),
+         q(0),
+         ],
+      q(674) => [
+         q(0193),
+         q(0),
+         ],
+      q(678) => [
+         q(0194),
+         q(0),
+         ],
+      q(682) => [
+         q(0195),
+         q(0),
+         ],
+      q(686) => [
+         q(0196),
+         q(0),
+         ],
+      q(688) => [
+         q(0197),
+         q(0),
+         ],
+      q(690) => [
+         q(0198),
+         q(0),
+         ],
+      q(694) => [
+         q(0199),
+         q(0),
+         ],
+      q(702) => [
+         q(0200),
+         q(0),
+         ],
+      q(703) => [
+         q(0202),
+         q(0),
+         ],
+      q(704) => [
+         q(0242),
+         q(0),
+         ],
+      q(705) => [
+         q(0203),
+         q(0),
+         ],
+      q(706) => [
+         q(0205),
+         q(0),
+         ],
+      q(710) => [
+         q(0206),
+         q(0),
+         ],
+      q(716) => [
+         q(0249),
+         q(0),
+         ],
+      q(724) => [
+         q(0209),
+         q(0),
+         ],
+      q(728) => [
+         q(0208),
+         q(0),
+         ],
+      q(729) => [
+         q(0211),
+         q(0),
+         ],
+      q(732) => [
+         q(0246),
+         q(0),
+         ],
+      q(740) => [
+         q(0212),
+         q(0),
+         ],
+      q(748) => [
+         q(0214),
+         q(0),
+         ],
+      q(752) => [
+         q(0215),
+         q(0),
+         ],
+      q(756) => [
+         q(0216),
+         q(0),
+         ],
+      q(760) => [
+         q(0217),
+         q(0),
+         ],
+      q(762) => [
+         q(0219),
+         q(0),
+         ],
+      q(764) => [
+         q(0221),
+         q(0),
+         ],
+      q(768) => [
+         q(0223),
+         q(0),
+         ],
+      q(772) => [
+         q(0224),
+         q(0),
+         ],
+      q(776) => [
+         q(0225),
+         q(0),
+         ],
+      q(780) => [
+         q(0226),
+         q(0),
+         ],
+      q(784) => [
+         q(0234),
+         q(0),
+         ],
+      q(788) => [
+         q(0227),
+         q(0),
+         ],
+      q(792) => [
+         q(0228),
+         q(0),
+         ],
+      q(795) => [
+         q(0229),
+         q(0),
+         ],
+      q(796) => [
+         q(0230),
+         q(0),
+         ],
+      q(798) => [
+         q(0231),
+         q(0),
+         ],
+      q(800) => [
+         q(0232),
+         q(0),
+         ],
+      q(804) => [
+         q(0233),
+         q(0),
+         ],
+      q(807) => [
+         q(0132),
+         q(0),
+         ],
+      q(818) => [
+         q(0066),
+         q(0),
+         ],
+      q(826) => [
+         q(0235),
+         q(0),
+         ],
+      q(831) => [
+         q(0092),
+         q(0),
+         ],
+      q(832) => [
+         q(0113),
+         q(0),
+         ],
+      q(833) => [
+         q(0108),
+         q(0),
+         ],
+      q(834) => [
+         q(0220),
+         q(3),
+         ],
+      q(840) => [
+         q(0237),
+         q(0),
+         ],
+      q(850) => [
+         q(0244),
+         q(0),
+         ],
+      q(854) => [
+         q(0036),
+         q(0),
+         ],
+      q(858) => [
+         q(0238),
+         q(0),
+         ],
+      q(860) => [
+         q(0239),
+         q(0),
+         ],
+      q(862) => [
+         q(0241),
+         q(0),
+         ],
+      q(876) => [
+         q(0245),
+         q(0),
+         ],
+      q(882) => [
+         q(0192),
+         q(0),
+         ],
+      q(887) => [
+         q(0247),
+         q(0),
+         ],
+      q(894) => [
+         q(0248),
+         q(0),
+         ],
+      q(900) => [
+         q(0251),
+         q(0),
+         ],
+      q(901) => [
+         q(0269),
+         q(0),
+         ],
+      q(902) => [
+         q(0252),
+         q(0),
+         ],
+      q(903) => [
+         q(0253),
+         q(0),
+         ],
+      q(904) => [
+         q(0254),
+         q(0),
+         ],
+      q(905) => [
+         q(0255),
+         q(0),
+         ],
+      q(906) => [
+         q(0256),
+         q(0),
+         ],
+      q(907) => [
+         q(0257),
+         q(0),
+         ],
+      q(908) => [
+         q(0258),
+         q(0),
+         ],
+      q(915) => [
+         q(0259),
+         q(0),
+         ],
+      q(916) => [
+         q(0260),
+         q(0),
+         ],
+      q(917) => [
+         q(0261),
+         q(0),
+         ],
+      q(918) => [
+         q(0262),
+         q(0),
+         ],
+      q(919) => [
+         q(0263),
+         q(0),
+         ],
+      q(920) => [
+         q(0264),
+         q(0),
+         ],
+      q(921) => [
+         q(0265),
+         q(0),
+         ],
+      q(922) => [
+         q(0266),
+         q(0),
+         ],
+      q(923) => [
+         q(0267),
+         q(0),
+         ],
+      q(924) => [
+         q(0268),
+         q(0),
+         ],
+      q(925) => [
+         q(0270),
+         q(0),
+         ],
+      q(926) => [
+         q(0271),
+         q(0),
+         ],
+      q(927) => [
+         q(0272),
+         q(0),
+         ],
+      q(928) => [
+         q(0273),
+         q(0),
+         ],
+      q(929) => [
+         q(0274),
+         q(0),
+         ],
+      q(930) => [
+         q(0275),
+         q(0),
+         ],
+      q(931) => [
+         q(0276),
+         q(0),
+         ],
+      q(932) => [
+         q(0277),
+         q(0),
+         ],
+      q(933) => [
+         q(0278),
+         q(0),
+         ],
+      q(934) => [
+         q(0279),
+         q(0),
+         ],
+      },
+   q(numeric) => {
+      q(004) => [
+         q(0001),
+         q(0),
+         ],
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(010) => [
+         q(0009),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(016) => [
+         q(0005),
+         q(0),
+         ],
+      q(020) => [
+         q(0006),
+         q(0),
+         ],
+      q(024) => [
+         q(0007),
+         q(0),
+         ],
+      q(028) => [
+         q(0010),
+         q(0),
+         ],
+      q(031) => [
+         q(0016),
+         q(0),
+         ],
+      q(032) => [
+         q(0011),
+         q(0),
+         ],
+      q(036) => [
+         q(0014),
+         q(0),
+         ],
+      q(040) => [
+         q(0015),
+         q(0),
+         ],
+      q(044) => [
+         q(0017),
+         q(0),
+         ],
+      q(048) => [
+         q(0018),
+         q(0),
+         ],
+      q(050) => [
+         q(0019),
+         q(0),
+         ],
+      q(051) => [
+         q(0012),
+         q(0),
+         ],
+      q(052) => [
+         q(0020),
+         q(0),
+         ],
+      q(056) => [
+         q(0022),
+         q(0),
+         ],
+      q(060) => [
+         q(0025),
+         q(0),
+         ],
+      q(064) => [
+         q(0026),
+         q(0),
+         ],
+      q(068) => [
+         q(0027),
+         q(0),
+         ],
+      q(070) => [
+         q(0029),
+         q(0),
+         ],
+      q(072) => [
+         q(0030),
+         q(0),
+         ],
+      q(074) => [
+         q(0031),
+         q(0),
+         ],
+      q(076) => [
+         q(0032),
+         q(0),
+         ],
+      q(084) => [
+         q(0023),
+         q(0),
+         ],
+      q(086) => [
+         q(0033),
+         q(0),
+         ],
+      q(090) => [
+         q(0204),
+         q(0),
+         ],
+      q(092) => [
+         q(0243),
+         q(0),
+         ],
+      q(096) => [
+         q(0034),
+         q(0),
+         ],
+      q(100) => [
+         q(0035),
+         q(0),
+         ],
+      q(104) => [
+         q(0153),
+         q(0),
+         ],
+      q(108) => [
+         q(0037),
+         q(0),
+         ],
+      q(112) => [
+         q(0021),
+         q(0),
+         ],
+      q(116) => [
+         q(0039),
+         q(0),
+         ],
+      q(120) => [
+         q(0040),
+         q(0),
+         ],
+      q(124) => [
+         q(0041),
+         q(0),
+         ],
+      q(132) => [
+         q(0038),
+         q(0),
+         ],
+      q(136) => [
+         q(0042),
+         q(0),
+         ],
+      q(140) => [
+         q(0043),
+         q(0),
+         ],
+      q(144) => [
+         q(0210),
+         q(0),
+         ],
+      q(148) => [
+         q(0044),
+         q(0),
+         ],
+      q(152) => [
+         q(0045),
+         q(0),
+         ],
+      q(156) => [
+         q(0046),
+         q(0),
+         ],
+      q(158) => [
+         q(0218),
+         q(0),
+         ],
+      q(162) => [
+         q(0047),
+         q(0),
+         ],
+      q(166) => [
+         q(0048),
+         q(0),
+         ],
+      q(170) => [
+         q(0049),
+         q(0),
+         ],
+      q(174) => [
+         q(0050),
+         q(0),
+         ],
+      q(175) => [
+         q(0143),
+         q(0),
+         ],
+      q(178) => [
+         q(0052),
+         q(0),
+         ],
+      q(180) => [
+         q(0051),
+         q(0),
+         ],
+      q(184) => [
+         q(0053),
+         q(0),
+         ],
+      q(188) => [
+         q(0054),
+         q(0),
+         ],
+      q(191) => [
+         q(0056),
+         q(0),
+         ],
+      q(192) => [
+         q(0057),
+         q(0),
+         ],
+      q(196) => [
+         q(0059),
+         q(0),
+         ],
+      q(203) => [
+         q(0060),
+         q(0),
+         ],
+      q(204) => [
+         q(0024),
+         q(0),
+         ],
+      q(208) => [
+         q(0061),
+         q(0),
+         ],
+      q(212) => [
+         q(0063),
+         q(0),
+         ],
+      q(214) => [
+         q(0064),
+         q(0),
+         ],
+      q(218) => [
+         q(0065),
+         q(0),
+         ],
+      q(222) => [
+         q(0067),
+         q(0),
+         ],
+      q(226) => [
+         q(0068),
+         q(0),
+         ],
+      q(231) => [
+         q(0071),
+         q(0),
+         ],
+      q(232) => [
+         q(0069),
+         q(0),
+         ],
+      q(233) => [
+         q(0070),
+         q(0),
+         ],
+      q(234) => [
+         q(0073),
+         q(0),
+         ],
+      q(238) => [
+         q(0072),
+         q(0),
+         ],
+      q(239) => [
+         q(0207),
+         q(0),
+         ],
+      q(242) => [
+         q(0074),
+         q(0),
+         ],
+      q(246) => [
+         q(0075),
+         q(0),
+         ],
+      q(248) => [
+         q(0002),
+         q(0),
+         ],
+      q(250) => [
+         q(0076),
+         q(0),
+         ],
+      q(254) => [
+         q(0077),
+         q(0),
+         ],
+      q(258) => [
+         q(0078),
+         q(0),
+         ],
+      q(260) => [
+         q(0079),
+         q(0),
+         ],
+      q(262) => [
+         q(0062),
+         q(0),
+         ],
+      q(266) => [
+         q(0080),
+         q(0),
+         ],
+      q(268) => [
+         q(0082),
+         q(0),
+         ],
+      q(270) => [
+         q(0081),
+         q(0),
+         ],
+      q(275) => [
+         q(0170),
+         q(0),
+         ],
+      q(276) => [
+         q(0083),
+         q(0),
+         ],
+      q(288) => [
+         q(0084),
+         q(0),
+         ],
+      q(292) => [
+         q(0085),
+         q(0),
+         ],
+      q(296) => [
+         q(0117),
+         q(0),
+         ],
+      q(300) => [
+         q(0086),
+         q(0),
+         ],
+      q(304) => [
+         q(0087),
+         q(0),
+         ],
+      q(308) => [
+         q(0088),
+         q(0),
+         ],
+      q(312) => [
+         q(0089),
+         q(0),
+         ],
+      q(316) => [
+         q(0090),
+         q(0),
+         ],
+      q(320) => [
+         q(0091),
+         q(0),
+         ],
+      q(324) => [
+         q(0093),
+         q(0),
+         ],
+      q(328) => [
+         q(0095),
+         q(0),
+         ],
+      q(332) => [
+         q(0096),
+         q(0),
+         ],
+      q(334) => [
+         q(0097),
+         q(0),
+         ],
+      q(336) => [
+         q(0098),
+         q(0),
+         ],
+      q(340) => [
+         q(0099),
+         q(0),
+         ],
+      q(344) => [
+         q(0100),
+         q(0),
+         ],
+      q(348) => [
+         q(0101),
+         q(0),
+         ],
+      q(352) => [
+         q(0102),
+         q(0),
+         ],
+      q(356) => [
+         q(0103),
+         q(0),
+         ],
+      q(360) => [
+         q(0104),
+         q(0),
+         ],
+      q(364) => [
+         q(0105),
+         q(0),
+         ],
+      q(368) => [
+         q(0106),
+         q(0),
+         ],
+      q(372) => [
+         q(0107),
+         q(0),
+         ],
+      q(376) => [
+         q(0109),
+         q(0),
+         ],
+      q(380) => [
+         q(0110),
+         q(0),
+         ],
+      q(384) => [
+         q(0055),
+         q(0),
+         ],
+      q(388) => [
+         q(0111),
+         q(0),
+         ],
+      q(392) => [
+         q(0112),
+         q(0),
+         ],
+      q(398) => [
+         q(0115),
+         q(0),
+         ],
+      q(400) => [
+         q(0114),
+         q(0),
+         ],
+      q(404) => [
+         q(0116),
+         q(0),
+         ],
+      q(408) => [
+         q(0118),
+         q(0),
+         ],
+      q(410) => [
+         q(0119),
+         q(0),
+         ],
+      q(414) => [
+         q(0120),
+         q(0),
+         ],
+      q(417) => [
+         q(0121),
+         q(0),
+         ],
+      q(418) => [
+         q(0122),
+         q(0),
+         ],
+      q(422) => [
+         q(0124),
+         q(0),
+         ],
+      q(426) => [
+         q(0125),
+         q(0),
+         ],
+      q(428) => [
+         q(0123),
+         q(0),
+         ],
+      q(430) => [
+         q(0126),
+         q(0),
+         ],
+      q(434) => [
+         q(0127),
+         q(0),
+         ],
+      q(438) => [
+         q(0128),
+         q(0),
+         ],
+      q(440) => [
+         q(0129),
+         q(0),
+         ],
+      q(442) => [
+         q(0130),
+         q(0),
+         ],
+      q(446) => [
+         q(0131),
+         q(0),
+         ],
+      q(450) => [
+         q(0133),
+         q(0),
+         ],
+      q(454) => [
+         q(0134),
+         q(0),
+         ],
+      q(458) => [
+         q(0135),
+         q(0),
+         ],
+      q(462) => [
+         q(0136),
+         q(0),
+         ],
+      q(466) => [
+         q(0137),
+         q(0),
+         ],
+      q(470) => [
+         q(0138),
+         q(0),
+         ],
+      q(474) => [
+         q(0140),
+         q(0),
+         ],
+      q(478) => [
+         q(0141),
+         q(0),
+         ],
+      q(480) => [
+         q(0142),
+         q(0),
+         ],
+      q(484) => [
+         q(0144),
+         q(0),
+         ],
+      q(492) => [
+         q(0147),
+         q(0),
+         ],
+      q(496) => [
+         q(0148),
+         q(0),
+         ],
+      q(498) => [
+         q(0146),
+         q(0),
+         ],
+      q(499) => [
+         q(0149),
+         q(0),
+         ],
+      q(500) => [
+         q(0150),
+         q(0),
+         ],
+      q(504) => [
+         q(0151),
+         q(0),
+         ],
+      q(508) => [
+         q(0152),
+         q(0),
+         ],
+      q(512) => [
+         q(0167),
+         q(0),
+         ],
+      q(516) => [
+         q(0154),
+         q(0),
+         ],
+      q(520) => [
+         q(0155),
+         q(0),
+         ],
+      q(524) => [
+         q(0156),
+         q(0),
+         ],
+      q(528) => [
+         q(0157),
+         q(0),
+         ],
+      q(531) => [
+         q(0058),
+         q(0),
+         ],
+      q(533) => [
+         q(0013),
+         q(0),
+         ],
+      q(534) => [
+         q(0201),
+         q(0),
+         ],
+      q(535) => [
+         q(0028),
+         q(0),
+         ],
+      q(540) => [
+         q(0158),
+         q(0),
+         ],
+      q(548) => [
+         q(0240),
+         q(0),
+         ],
+      q(554) => [
+         q(0159),
+         q(0),
+         ],
+      q(558) => [
+         q(0160),
+         q(0),
+         ],
+      q(562) => [
+         q(0161),
+         q(0),
+         ],
+      q(566) => [
+         q(0162),
+         q(0),
+         ],
+      q(570) => [
+         q(0163),
+         q(0),
+         ],
+      q(574) => [
+         q(0164),
+         q(0),
+         ],
+      q(578) => [
+         q(0166),
+         q(0),
+         ],
+      q(580) => [
+         q(0165),
+         q(0),
+         ],
+      q(581) => [
+         q(0236),
+         q(0),
+         ],
+      q(583) => [
+         q(0145),
+         q(0),
+         ],
+      q(584) => [
+         q(0139),
+         q(0),
+         ],
+      q(585) => [
+         q(0169),
+         q(0),
+         ],
+      q(586) => [
+         q(0168),
+         q(0),
+         ],
+      q(591) => [
+         q(0171),
+         q(0),
+         ],
+      q(598) => [
+         q(0172),
+         q(0),
+         ],
+      q(600) => [
+         q(0173),
+         q(0),
+         ],
+      q(604) => [
+         q(0174),
+         q(0),
+         ],
+      q(608) => [
+         q(0175),
+         q(0),
+         ],
+      q(612) => [
+         q(0176),
+         q(0),
+         ],
+      q(616) => [
+         q(0177),
+         q(0),
+         ],
+      q(620) => [
+         q(0178),
+         q(0),
+         ],
+      q(624) => [
+         q(0094),
+         q(0),
+         ],
+      q(626) => [
+         q(0222),
+         q(0),
+         ],
+      q(630) => [
+         q(0179),
+         q(0),
+         ],
+      q(634) => [
+         q(0180),
+         q(0),
+         ],
+      q(638) => [
+         q(0181),
+         q(0),
+         ],
+      q(642) => [
+         q(0182),
+         q(0),
+         ],
+      q(643) => [
+         q(0183),
+         q(0),
+         ],
+      q(646) => [
+         q(0184),
+         q(0),
+         ],
+      q(652) => [
+         q(0185),
+         q(0),
+         ],
+      q(654) => [
+         q(0186),
+         q(0),
+         ],
+      q(659) => [
+         q(0187),
+         q(0),
+         ],
+      q(660) => [
+         q(0008),
+         q(0),
+         ],
+      q(662) => [
+         q(0188),
+         q(0),
+         ],
+      q(663) => [
+         q(0189),
+         q(0),
+         ],
+      q(666) => [
+         q(0190),
+         q(0),
+         ],
+      q(670) => [
+         q(0191),
+         q(0),
+         ],
+      q(674) => [
+         q(0193),
+         q(0),
+         ],
+      q(678) => [
+         q(0194),
+         q(0),
+         ],
+      q(682) => [
+         q(0195),
+         q(0),
+         ],
+      q(686) => [
+         q(0196),
+         q(0),
+         ],
+      q(688) => [
+         q(0197),
+         q(0),
+         ],
+      q(690) => [
+         q(0198),
+         q(0),
+         ],
+      q(694) => [
+         q(0199),
+         q(0),
+         ],
+      q(702) => [
+         q(0200),
+         q(0),
+         ],
+      q(703) => [
+         q(0202),
+         q(0),
+         ],
+      q(704) => [
+         q(0242),
+         q(0),
+         ],
+      q(705) => [
+         q(0203),
+         q(0),
+         ],
+      q(706) => [
+         q(0205),
+         q(0),
+         ],
+      q(710) => [
+         q(0206),
+         q(0),
+         ],
+      q(716) => [
+         q(0249),
+         q(0),
+         ],
+      q(724) => [
+         q(0209),
+         q(0),
+         ],
+      q(728) => [
+         q(0208),
+         q(0),
+         ],
+      q(729) => [
+         q(0211),
+         q(0),
+         ],
+      q(732) => [
+         q(0246),
+         q(0),
+         ],
+      q(740) => [
+         q(0212),
+         q(0),
+         ],
+      q(744) => [
+         q(0213),
+         q(0),
+         ],
+      q(748) => [
+         q(0214),
+         q(0),
+         ],
+      q(752) => [
+         q(0215),
+         q(0),
+         ],
+      q(756) => [
+         q(0216),
+         q(0),
+         ],
+      q(760) => [
+         q(0217),
+         q(0),
+         ],
+      q(762) => [
+         q(0219),
+         q(0),
+         ],
+      q(764) => [
+         q(0221),
+         q(0),
+         ],
+      q(768) => [
+         q(0223),
+         q(0),
+         ],
+      q(772) => [
+         q(0224),
+         q(0),
+         ],
+      q(776) => [
+         q(0225),
+         q(0),
+         ],
+      q(780) => [
+         q(0226),
+         q(0),
+         ],
+      q(784) => [
+         q(0234),
+         q(0),
+         ],
+      q(788) => [
+         q(0227),
+         q(0),
+         ],
+      q(792) => [
+         q(0228),
+         q(0),
+         ],
+      q(795) => [
+         q(0229),
+         q(0),
+         ],
+      q(796) => [
+         q(0230),
+         q(0),
+         ],
+      q(798) => [
+         q(0231),
+         q(0),
+         ],
+      q(800) => [
+         q(0232),
+         q(0),
+         ],
+      q(804) => [
+         q(0233),
+         q(0),
+         ],
+      q(807) => [
+         q(0132),
+         q(0),
+         ],
+      q(818) => [
+         q(0066),
+         q(0),
+         ],
+      q(826) => [
+         q(0235),
+         q(0),
+         ],
+      q(831) => [
+         q(0092),
+         q(0),
+         ],
+      q(832) => [
+         q(0113),
+         q(0),
+         ],
+      q(833) => [
+         q(0108),
+         q(0),
+         ],
+      q(834) => [
+         q(0220),
+         q(0),
+         ],
+      q(840) => [
+         q(0237),
+         q(0),
+         ],
+      q(850) => [
+         q(0244),
+         q(0),
+         ],
+      q(854) => [
+         q(0036),
+         q(0),
+         ],
+      q(858) => [
+         q(0238),
+         q(0),
+         ],
+      q(860) => [
+         q(0239),
+         q(0),
+         ],
+      q(862) => [
+         q(0241),
+         q(0),
+         ],
+      q(876) => [
+         q(0245),
+         q(0),
+         ],
+      q(882) => [
+         q(0192),
+         q(0),
+         ],
+      q(887) => [
+         q(0247),
+         q(0),
+         ],
+      q(894) => [
+         q(0248),
+         q(0),
+         ],
+      },
+   q(un-alpha-3) => {
+      q(ABW) => [
+         q(0013),
+         q(0),
+         ],
+      q(AFG) => [
+         q(0001),
+         q(0),
+         ],
+      q(AGO) => [
+         q(0007),
+         q(0),
+         ],
+      q(AIA) => [
+         q(0008),
+         q(0),
+         ],
+      q(ALA) => [
+         q(0002),
+         q(0),
+         ],
+      q(ALB) => [
+         q(0003),
+         q(0),
+         ],
+      q(AND) => [
+         q(0006),
+         q(0),
+         ],
+      q(ARE) => [
+         q(0234),
+         q(0),
+         ],
+      q(ARG) => [
+         q(0011),
+         q(0),
+         ],
+      q(ARM) => [
+         q(0012),
+         q(0),
+         ],
+      q(ASM) => [
+         q(0005),
+         q(0),
+         ],
+      q(ATA) => [
+         q(0009),
+         q(0),
+         ],
+      q(ATF) => [
+         q(0079),
+         q(0),
+         ],
+      q(ATG) => [
+         q(0010),
+         q(0),
+         ],
+      q(AUS) => [
+         q(0014),
+         q(0),
+         ],
+      q(AUT) => [
+         q(0015),
+         q(0),
+         ],
+      q(AZE) => [
+         q(0016),
+         q(0),
+         ],
+      q(BDI) => [
+         q(0037),
+         q(0),
+         ],
+      q(BEL) => [
+         q(0022),
+         q(0),
+         ],
+      q(BEN) => [
+         q(0024),
+         q(0),
+         ],
+      q(BES) => [
+         q(0028),
+         q(0),
+         ],
+      q(BFA) => [
+         q(0036),
+         q(0),
+         ],
+      q(BGD) => [
+         q(0019),
+         q(0),
+         ],
+      q(BGR) => [
+         q(0035),
+         q(0),
+         ],
+      q(BHR) => [
+         q(0018),
+         q(0),
+         ],
+      q(BHS) => [
+         q(0017),
+         q(0),
+         ],
+      q(BIH) => [
+         q(0029),
+         q(0),
+         ],
+      q(BLM) => [
+         q(0185),
+         q(0),
+         ],
+      q(BLR) => [
+         q(0021),
+         q(0),
+         ],
+      q(BLZ) => [
+         q(0023),
+         q(0),
+         ],
+      q(BMU) => [
+         q(0025),
+         q(0),
+         ],
+      q(BOL) => [
+         q(0027),
+         q(0),
+         ],
+      q(BRA) => [
+         q(0032),
+         q(0),
+         ],
+      q(BRB) => [
+         q(0020),
+         q(0),
+         ],
+      q(BRN) => [
+         q(0034),
+         q(0),
+         ],
+      q(BTN) => [
+         q(0026),
+         q(0),
+         ],
+      q(BVT) => [
+         q(0031),
+         q(0),
+         ],
+      q(BWA) => [
+         q(0030),
+         q(0),
+         ],
+      q(CAF) => [
+         q(0043),
+         q(0),
+         ],
+      q(CAN) => [
+         q(0041),
+         q(0),
+         ],
+      q(CCK) => [
+         q(0048),
+         q(0),
+         ],
+      q(CHE) => [
+         q(0216),
+         q(0),
+         ],
+      q(CHL) => [
+         q(0045),
+         q(0),
+         ],
+      q(CHN) => [
+         q(0046),
+         q(0),
+         ],
+      q(CIV) => [
+         q(0055),
+         q(0),
+         ],
+      q(CMR) => [
+         q(0040),
+         q(0),
+         ],
+      q(COD) => [
+         q(0051),
+         q(0),
+         ],
+      q(COG) => [
+         q(0052),
+         q(0),
+         ],
+      q(COK) => [
+         q(0053),
+         q(0),
+         ],
+      q(COL) => [
+         q(0049),
+         q(0),
+         ],
+      q(COM) => [
+         q(0050),
+         q(0),
+         ],
+      q(CPV) => [
+         q(0038),
+         q(0),
+         ],
+      q(CRI) => [
+         q(0054),
+         q(0),
+         ],
+      q(CUB) => [
+         q(0057),
+         q(0),
+         ],
+      q(CUW) => [
+         q(0058),
+         q(0),
+         ],
+      q(CXR) => [
+         q(0047),
+         q(0),
+         ],
+      q(CYM) => [
+         q(0042),
+         q(0),
+         ],
+      q(CYP) => [
+         q(0059),
+         q(0),
+         ],
+      q(CZE) => [
+         q(0060),
+         q(0),
+         ],
+      q(DEU) => [
+         q(0083),
+         q(0),
+         ],
+      q(DJI) => [
+         q(0062),
+         q(0),
+         ],
+      q(DMA) => [
+         q(0063),
+         q(0),
+         ],
+      q(DNK) => [
+         q(0061),
+         q(0),
+         ],
+      q(DOM) => [
+         q(0064),
+         q(0),
+         ],
+      q(DZA) => [
+         q(0004),
+         q(0),
+         ],
+      q(ECU) => [
+         q(0065),
+         q(0),
+         ],
+      q(EGY) => [
+         q(0066),
+         q(0),
+         ],
+      q(ERI) => [
+         q(0069),
+         q(0),
+         ],
+      q(ESH) => [
+         q(0246),
+         q(0),
+         ],
+      q(ESP) => [
+         q(0209),
+         q(0),
+         ],
+      q(EST) => [
+         q(0070),
+         q(0),
+         ],
+      q(ETH) => [
+         q(0071),
+         q(0),
+         ],
+      q(FIN) => [
+         q(0075),
+         q(0),
+         ],
+      q(FJI) => [
+         q(0074),
+         q(0),
+         ],
+      q(FLK) => [
+         q(0072),
+         q(0),
+         ],
+      q(FRA) => [
+         q(0076),
+         q(0),
+         ],
+      q(FRO) => [
+         q(0073),
+         q(0),
+         ],
+      q(FSM) => [
+         q(0145),
+         q(0),
+         ],
+      q(GAB) => [
+         q(0080),
+         q(0),
+         ],
+      q(GBR) => [
+         q(0235),
+         q(0),
+         ],
+      q(GEO) => [
+         q(0082),
+         q(0),
+         ],
+      q(GGY) => [
+         q(0092),
+         q(0),
+         ],
+      q(GHA) => [
+         q(0084),
+         q(0),
+         ],
+      q(GIB) => [
+         q(0085),
+         q(0),
+         ],
+      q(GIN) => [
+         q(0093),
+         q(0),
+         ],
+      q(GLP) => [
+         q(0089),
+         q(0),
+         ],
+      q(GMB) => [
+         q(0081),
+         q(0),
+         ],
+      q(GNB) => [
+         q(0094),
+         q(0),
+         ],
+      q(GNQ) => [
+         q(0068),
+         q(0),
+         ],
+      q(GRC) => [
+         q(0086),
+         q(0),
+         ],
+      q(GRD) => [
+         q(0088),
+         q(0),
+         ],
+      q(GRL) => [
+         q(0087),
+         q(0),
+         ],
+      q(GTM) => [
+         q(0091),
+         q(0),
+         ],
+      q(GUF) => [
+         q(0077),
+         q(0),
+         ],
+      q(GUM) => [
+         q(0090),
+         q(0),
+         ],
+      q(GUY) => [
+         q(0095),
+         q(0),
+         ],
+      q(HKG) => [
+         q(0100),
+         q(0),
+         ],
+      q(HMD) => [
+         q(0097),
+         q(0),
+         ],
+      q(HND) => [
+         q(0099),
+         q(0),
+         ],
+      q(HRV) => [
+         q(0056),
+         q(0),
+         ],
+      q(HTI) => [
+         q(0096),
+         q(0),
+         ],
+      q(HUN) => [
+         q(0101),
+         q(0),
+         ],
+      q(IDN) => [
+         q(0104),
+         q(0),
+         ],
+      q(IMN) => [
+         q(0108),
+         q(0),
+         ],
+      q(IND) => [
+         q(0103),
+         q(0),
+         ],
+      q(IOT) => [
+         q(0033),
+         q(0),
+         ],
+      q(IRL) => [
+         q(0107),
+         q(0),
+         ],
+      q(IRN) => [
+         q(0105),
+         q(0),
+         ],
+      q(IRQ) => [
+         q(0106),
+         q(0),
+         ],
+      q(ISL) => [
+         q(0102),
+         q(0),
+         ],
+      q(ISR) => [
+         q(0109),
+         q(0),
+         ],
+      q(ITA) => [
+         q(0110),
+         q(0),
+         ],
+      q(JAM) => [
+         q(0111),
+         q(0),
+         ],
+      q(JEY) => [
+         q(0113),
+         q(0),
+         ],
+      q(JOR) => [
+         q(0114),
+         q(0),
+         ],
+      q(JPN) => [
+         q(0112),
+         q(0),
+         ],
+      q(KAZ) => [
+         q(0115),
+         q(0),
+         ],
+      q(KEN) => [
+         q(0116),
+         q(0),
+         ],
+      q(KGZ) => [
+         q(0121),
+         q(0),
+         ],
+      q(KHM) => [
+         q(0039),
+         q(0),
+         ],
+      q(KIR) => [
+         q(0117),
+         q(0),
+         ],
+      q(KNA) => [
+         q(0187),
+         q(0),
+         ],
+      q(KOR) => [
+         q(0119),
+         q(0),
+         ],
+      q(KWT) => [
+         q(0120),
+         q(0),
+         ],
+      q(LAO) => [
+         q(0122),
+         q(0),
+         ],
+      q(LBN) => [
+         q(0124),
+         q(0),
+         ],
+      q(LBR) => [
+         q(0126),
+         q(0),
+         ],
+      q(LBY) => [
+         q(0127),
+         q(0),
+         ],
+      q(LCA) => [
+         q(0188),
+         q(0),
+         ],
+      q(LIE) => [
+         q(0128),
+         q(0),
+         ],
+      q(LKA) => [
+         q(0210),
+         q(0),
+         ],
+      q(LSO) => [
+         q(0125),
+         q(0),
+         ],
+      q(LTU) => [
+         q(0129),
+         q(0),
+         ],
+      q(LUX) => [
+         q(0130),
+         q(0),
+         ],
+      q(LVA) => [
+         q(0123),
+         q(0),
+         ],
+      q(MAC) => [
+         q(0131),
+         q(0),
+         ],
+      q(MAF) => [
+         q(0189),
+         q(0),
+         ],
+      q(MAR) => [
+         q(0151),
+         q(0),
+         ],
+      q(MCO) => [
+         q(0147),
+         q(0),
+         ],
+      q(MDA) => [
+         q(0146),
+         q(0),
+         ],
+      q(MDG) => [
+         q(0133),
+         q(0),
+         ],
+      q(MDV) => [
+         q(0136),
+         q(0),
+         ],
+      q(MEX) => [
+         q(0144),
+         q(0),
+         ],
+      q(MHL) => [
+         q(0139),
+         q(0),
+         ],
+      q(MKD) => [
+         q(0132),
+         q(0),
+         ],
+      q(MLI) => [
+         q(0137),
+         q(0),
+         ],
+      q(MLT) => [
+         q(0138),
+         q(0),
+         ],
+      q(MMR) => [
+         q(0153),
+         q(0),
+         ],
+      q(MNE) => [
+         q(0149),
+         q(0),
+         ],
+      q(MNG) => [
+         q(0148),
+         q(0),
+         ],
+      q(MNP) => [
+         q(0165),
+         q(0),
+         ],
+      q(MOZ) => [
+         q(0152),
+         q(0),
+         ],
+      q(MRT) => [
+         q(0141),
+         q(0),
+         ],
+      q(MSR) => [
+         q(0150),
+         q(0),
+         ],
+      q(MTQ) => [
+         q(0140),
+         q(0),
+         ],
+      q(MUS) => [
+         q(0142),
+         q(0),
+         ],
+      q(MWI) => [
+         q(0134),
+         q(0),
+         ],
+      q(MYS) => [
+         q(0135),
+         q(0),
+         ],
+      q(MYT) => [
+         q(0143),
+         q(0),
+         ],
+      q(NAM) => [
+         q(0154),
+         q(0),
+         ],
+      q(NCL) => [
+         q(0158),
+         q(0),
+         ],
+      q(NER) => [
+         q(0161),
+         q(0),
+         ],
+      q(NFK) => [
+         q(0164),
+         q(0),
+         ],
+      q(NGA) => [
+         q(0162),
+         q(0),
+         ],
+      q(NIC) => [
+         q(0160),
+         q(0),
+         ],
+      q(NIU) => [
+         q(0163),
+         q(0),
+         ],
+      q(NLD) => [
+         q(0157),
+         q(0),
+         ],
+      q(NOR) => [
+         q(0166),
+         q(0),
+         ],
+      q(NPL) => [
+         q(0156),
+         q(0),
+         ],
+      q(NRU) => [
+         q(0155),
+         q(0),
+         ],
+      q(NZL) => [
+         q(0159),
+         q(0),
+         ],
+      q(OMN) => [
+         q(0167),
+         q(0),
+         ],
+      q(PAK) => [
+         q(0168),
+         q(0),
+         ],
+      q(PAN) => [
+         q(0171),
+         q(0),
+         ],
+      q(PCN) => [
+         q(0176),
+         q(0),
+         ],
+      q(PER) => [
+         q(0174),
+         q(0),
+         ],
+      q(PHL) => [
+         q(0175),
+         q(0),
+         ],
+      q(PLW) => [
+         q(0169),
+         q(0),
+         ],
+      q(PNG) => [
+         q(0172),
+         q(0),
+         ],
+      q(POL) => [
+         q(0177),
+         q(0),
+         ],
+      q(PRI) => [
+         q(0179),
+         q(0),
+         ],
+      q(PRK) => [
+         q(0118),
+         q(5),
+         ],
+      q(PRT) => [
+         q(0178),
+         q(0),
+         ],
+      q(PRY) => [
+         q(0173),
+         q(0),
+         ],
+      q(PSE) => [
+         q(0170),
+         q(0),
+         ],
+      q(PYF) => [
+         q(0078),
+         q(0),
+         ],
+      q(QAT) => [
+         q(0180),
+         q(0),
+         ],
+      q(REU) => [
+         q(0181),
+         q(0),
+         ],
+      q(ROU) => [
+         q(0182),
+         q(0),
+         ],
+      q(RUS) => [
+         q(0183),
+         q(0),
+         ],
+      q(RWA) => [
+         q(0184),
+         q(0),
+         ],
+      q(SAU) => [
+         q(0195),
+         q(0),
+         ],
+      q(SDN) => [
+         q(0211),
+         q(0),
+         ],
+      q(SEN) => [
+         q(0196),
+         q(0),
+         ],
+      q(SGP) => [
+         q(0200),
+         q(0),
+         ],
+      q(SGS) => [
+         q(0207),
+         q(0),
+         ],
+      q(SHN) => [
+         q(0186),
+         q(0),
+         ],
+      q(SJM) => [
+         q(0213),
+         q(0),
+         ],
+      q(SLB) => [
+         q(0204),
+         q(0),
+         ],
+      q(SLE) => [
+         q(0199),
+         q(0),
+         ],
+      q(SLV) => [
+         q(0067),
+         q(0),
+         ],
+      q(SMR) => [
+         q(0193),
+         q(0),
+         ],
+      q(SOM) => [
+         q(0205),
+         q(0),
+         ],
+      q(SPM) => [
+         q(0190),
+         q(0),
+         ],
+      q(SRB) => [
+         q(0197),
+         q(0),
+         ],
+      q(SSD) => [
+         q(0208),
+         q(0),
+         ],
+      q(STP) => [
+         q(0194),
+         q(0),
+         ],
+      q(SUR) => [
+         q(0212),
+         q(0),
+         ],
+      q(SVK) => [
+         q(0202),
+         q(0),
+         ],
+      q(SVN) => [
+         q(0203),
+         q(0),
+         ],
+      q(SWE) => [
+         q(0215),
+         q(0),
+         ],
+      q(SWZ) => [
+         q(0214),
+         q(0),
+         ],
+      q(SXM) => [
+         q(0201),
+         q(0),
+         ],
+      q(SYC) => [
+         q(0198),
+         q(0),
+         ],
+      q(SYR) => [
+         q(0217),
+         q(0),
+         ],
+      q(TCA) => [
+         q(0230),
+         q(0),
+         ],
+      q(TCD) => [
+         q(0044),
+         q(0),
+         ],
+      q(TGO) => [
+         q(0223),
+         q(0),
+         ],
+      q(THA) => [
+         q(0221),
+         q(0),
+         ],
+      q(TJK) => [
+         q(0219),
+         q(0),
+         ],
+      q(TKL) => [
+         q(0224),
+         q(0),
+         ],
+      q(TKM) => [
+         q(0229),
+         q(0),
+         ],
+      q(TLS) => [
+         q(0222),
+         q(0),
+         ],
+      q(TON) => [
+         q(0225),
+         q(0),
+         ],
+      q(TTO) => [
+         q(0226),
+         q(0),
+         ],
+      q(TUN) => [
+         q(0227),
+         q(0),
+         ],
+      q(TUR) => [
+         q(0228),
+         q(0),
+         ],
+      q(TUV) => [
+         q(0231),
+         q(0),
+         ],
+      q(TZA) => [
+         q(0220),
+         q(0),
+         ],
+      q(UGA) => [
+         q(0232),
+         q(0),
+         ],
+      q(UKR) => [
+         q(0233),
+         q(0),
+         ],
+      q(UMI) => [
+         q(0236),
+         q(0),
+         ],
+      q(URY) => [
+         q(0238),
+         q(0),
+         ],
+      q(USA) => [
+         q(0237),
+         q(0),
+         ],
+      q(UZB) => [
+         q(0239),
+         q(0),
+         ],
+      q(VAT) => [
+         q(0098),
+         q(0),
+         ],
+      q(VCT) => [
+         q(0191),
+         q(0),
+         ],
+      q(VEN) => [
+         q(0241),
+         q(0),
+         ],
+      q(VGB) => [
+         q(0243),
+         q(0),
+         ],
+      q(VIR) => [
+         q(0244),
+         q(0),
+         ],
+      q(VNM) => [
+         q(0242),
+         q(0),
+         ],
+      q(VUT) => [
+         q(0240),
+         q(0),
+         ],
+      q(WLF) => [
+         q(0245),
+         q(0),
+         ],
+      q(WSM) => [
+         q(0192),
+         q(0),
+         ],
+      q(YEM) => [
+         q(0247),
+         q(0),
+         ],
+      q(ZAF) => [
+         q(0206),
+         q(0),
+         ],
+      q(ZMB) => [
+         q(0248),
+         q(0),
+         ],
+      q(ZWE) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(un-numeric) => {
+      q(004) => [
+         q(0001),
+         q(0),
+         ],
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(010) => [
+         q(0009),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(016) => [
+         q(0005),
+         q(0),
+         ],
+      q(020) => [
+         q(0006),
+         q(0),
+         ],
+      q(024) => [
+         q(0007),
+         q(0),
+         ],
+      q(028) => [
+         q(0010),
+         q(0),
+         ],
+      q(031) => [
+         q(0016),
+         q(0),
+         ],
+      q(032) => [
+         q(0011),
+         q(0),
+         ],
+      q(036) => [
+         q(0014),
+         q(0),
+         ],
+      q(040) => [
+         q(0015),
+         q(0),
+         ],
+      q(044) => [
+         q(0017),
+         q(0),
+         ],
+      q(048) => [
+         q(0018),
+         q(0),
+         ],
+      q(050) => [
+         q(0019),
+         q(0),
+         ],
+      q(051) => [
+         q(0012),
+         q(0),
+         ],
+      q(052) => [
+         q(0020),
+         q(0),
+         ],
+      q(056) => [
+         q(0022),
+         q(0),
+         ],
+      q(060) => [
+         q(0025),
+         q(0),
+         ],
+      q(064) => [
+         q(0026),
+         q(0),
+         ],
+      q(068) => [
+         q(0027),
+         q(0),
+         ],
+      q(070) => [
+         q(0029),
+         q(0),
+         ],
+      q(072) => [
+         q(0030),
+         q(0),
+         ],
+      q(074) => [
+         q(0031),
+         q(0),
+         ],
+      q(076) => [
+         q(0032),
+         q(0),
+         ],
+      q(084) => [
+         q(0023),
+         q(0),
+         ],
+      q(086) => [
+         q(0033),
+         q(0),
+         ],
+      q(090) => [
+         q(0204),
+         q(0),
+         ],
+      q(092) => [
+         q(0243),
+         q(0),
+         ],
+      q(096) => [
+         q(0034),
+         q(0),
+         ],
+      q(100) => [
+         q(0035),
+         q(0),
+         ],
+      q(104) => [
+         q(0153),
+         q(0),
+         ],
+      q(108) => [
+         q(0037),
+         q(0),
+         ],
+      q(112) => [
+         q(0021),
+         q(0),
+         ],
+      q(116) => [
+         q(0039),
+         q(0),
+         ],
+      q(120) => [
+         q(0040),
+         q(0),
+         ],
+      q(124) => [
+         q(0041),
+         q(0),
+         ],
+      q(132) => [
+         q(0038),
+         q(0),
+         ],
+      q(136) => [
+         q(0042),
+         q(0),
+         ],
+      q(140) => [
+         q(0043),
+         q(0),
+         ],
+      q(144) => [
+         q(0210),
+         q(0),
+         ],
+      q(148) => [
+         q(0044),
+         q(0),
+         ],
+      q(152) => [
+         q(0045),
+         q(0),
+         ],
+      q(156) => [
+         q(0046),
+         q(0),
+         ],
+      q(162) => [
+         q(0047),
+         q(0),
+         ],
+      q(166) => [
+         q(0048),
+         q(0),
+         ],
+      q(170) => [
+         q(0049),
+         q(0),
+         ],
+      q(174) => [
+         q(0050),
+         q(0),
+         ],
+      q(175) => [
+         q(0143),
+         q(0),
+         ],
+      q(178) => [
+         q(0052),
+         q(0),
+         ],
+      q(180) => [
+         q(0051),
+         q(0),
+         ],
+      q(184) => [
+         q(0053),
+         q(0),
+         ],
+      q(188) => [
+         q(0054),
+         q(0),
+         ],
+      q(191) => [
+         q(0056),
+         q(0),
+         ],
+      q(192) => [
+         q(0057),
+         q(0),
+         ],
+      q(196) => [
+         q(0059),
+         q(0),
+         ],
+      q(203) => [
+         q(0060),
+         q(0),
+         ],
+      q(204) => [
+         q(0024),
+         q(0),
+         ],
+      q(208) => [
+         q(0061),
+         q(0),
+         ],
+      q(212) => [
+         q(0063),
+         q(0),
+         ],
+      q(214) => [
+         q(0064),
+         q(0),
+         ],
+      q(218) => [
+         q(0065),
+         q(0),
+         ],
+      q(222) => [
+         q(0067),
+         q(0),
+         ],
+      q(226) => [
+         q(0068),
+         q(0),
+         ],
+      q(231) => [
+         q(0071),
+         q(0),
+         ],
+      q(232) => [
+         q(0069),
+         q(0),
+         ],
+      q(233) => [
+         q(0070),
+         q(0),
+         ],
+      q(234) => [
+         q(0073),
+         q(0),
+         ],
+      q(238) => [
+         q(0072),
+         q(0),
+         ],
+      q(239) => [
+         q(0207),
+         q(0),
+         ],
+      q(242) => [
+         q(0074),
+         q(0),
+         ],
+      q(246) => [
+         q(0075),
+         q(0),
+         ],
+      q(248) => [
+         q(0002),
+         q(0),
+         ],
+      q(250) => [
+         q(0076),
+         q(0),
+         ],
+      q(254) => [
+         q(0077),
+         q(0),
+         ],
+      q(258) => [
+         q(0078),
+         q(0),
+         ],
+      q(260) => [
+         q(0079),
+         q(0),
+         ],
+      q(262) => [
+         q(0062),
+         q(0),
+         ],
+      q(266) => [
+         q(0080),
+         q(0),
+         ],
+      q(268) => [
+         q(0082),
+         q(0),
+         ],
+      q(270) => [
+         q(0081),
+         q(0),
+         ],
+      q(275) => [
+         q(0170),
+         q(0),
+         ],
+      q(276) => [
+         q(0083),
+         q(0),
+         ],
+      q(288) => [
+         q(0084),
+         q(0),
+         ],
+      q(292) => [
+         q(0085),
+         q(0),
+         ],
+      q(296) => [
+         q(0117),
+         q(0),
+         ],
+      q(300) => [
+         q(0086),
+         q(0),
+         ],
+      q(304) => [
+         q(0087),
+         q(0),
+         ],
+      q(308) => [
+         q(0088),
+         q(0),
+         ],
+      q(312) => [
+         q(0089),
+         q(0),
+         ],
+      q(316) => [
+         q(0090),
+         q(0),
+         ],
+      q(320) => [
+         q(0091),
+         q(0),
+         ],
+      q(324) => [
+         q(0093),
+         q(0),
+         ],
+      q(328) => [
+         q(0095),
+         q(0),
+         ],
+      q(332) => [
+         q(0096),
+         q(0),
+         ],
+      q(334) => [
+         q(0097),
+         q(0),
+         ],
+      q(336) => [
+         q(0098),
+         q(0),
+         ],
+      q(340) => [
+         q(0099),
+         q(0),
+         ],
+      q(344) => [
+         q(0100),
+         q(0),
+         ],
+      q(348) => [
+         q(0101),
+         q(0),
+         ],
+      q(352) => [
+         q(0102),
+         q(0),
+         ],
+      q(356) => [
+         q(0103),
+         q(0),
+         ],
+      q(360) => [
+         q(0104),
+         q(0),
+         ],
+      q(364) => [
+         q(0105),
+         q(0),
+         ],
+      q(368) => [
+         q(0106),
+         q(0),
+         ],
+      q(372) => [
+         q(0107),
+         q(0),
+         ],
+      q(376) => [
+         q(0109),
+         q(0),
+         ],
+      q(380) => [
+         q(0110),
+         q(0),
+         ],
+      q(384) => [
+         q(0055),
+         q(0),
+         ],
+      q(388) => [
+         q(0111),
+         q(0),
+         ],
+      q(392) => [
+         q(0112),
+         q(0),
+         ],
+      q(398) => [
+         q(0115),
+         q(0),
+         ],
+      q(400) => [
+         q(0114),
+         q(0),
+         ],
+      q(404) => [
+         q(0116),
+         q(0),
+         ],
+      q(408) => [
+         q(0118),
+         q(5),
+         ],
+      q(410) => [
+         q(0119),
+         q(0),
+         ],
+      q(414) => [
+         q(0120),
+         q(0),
+         ],
+      q(417) => [
+         q(0121),
+         q(0),
+         ],
+      q(418) => [
+         q(0122),
+         q(0),
+         ],
+      q(422) => [
+         q(0124),
+         q(0),
+         ],
+      q(426) => [
+         q(0125),
+         q(0),
+         ],
+      q(428) => [
+         q(0123),
+         q(0),
+         ],
+      q(430) => [
+         q(0126),
+         q(0),
+         ],
+      q(434) => [
+         q(0127),
+         q(0),
+         ],
+      q(438) => [
+         q(0128),
+         q(0),
+         ],
+      q(440) => [
+         q(0129),
+         q(0),
+         ],
+      q(442) => [
+         q(0130),
+         q(0),
+         ],
+      q(446) => [
+         q(0131),
+         q(0),
+         ],
+      q(450) => [
+         q(0133),
+         q(0),
+         ],
+      q(454) => [
+         q(0134),
+         q(0),
+         ],
+      q(458) => [
+         q(0135),
+         q(0),
+         ],
+      q(462) => [
+         q(0136),
+         q(0),
+         ],
+      q(466) => [
+         q(0137),
+         q(0),
+         ],
+      q(470) => [
+         q(0138),
+         q(0),
+         ],
+      q(474) => [
+         q(0140),
+         q(0),
+         ],
+      q(478) => [
+         q(0141),
+         q(0),
+         ],
+      q(480) => [
+         q(0142),
+         q(0),
+         ],
+      q(484) => [
+         q(0144),
+         q(0),
+         ],
+      q(492) => [
+         q(0147),
+         q(0),
+         ],
+      q(496) => [
+         q(0148),
+         q(0),
+         ],
+      q(498) => [
+         q(0146),
+         q(0),
+         ],
+      q(499) => [
+         q(0149),
+         q(0),
+         ],
+      q(500) => [
+         q(0150),
+         q(0),
+         ],
+      q(504) => [
+         q(0151),
+         q(0),
+         ],
+      q(508) => [
+         q(0152),
+         q(0),
+         ],
+      q(512) => [
+         q(0167),
+         q(0),
+         ],
+      q(516) => [
+         q(0154),
+         q(0),
+         ],
+      q(520) => [
+         q(0155),
+         q(0),
+         ],
+      q(524) => [
+         q(0156),
+         q(0),
+         ],
+      q(528) => [
+         q(0157),
+         q(0),
+         ],
+      q(531) => [
+         q(0058),
+         q(0),
+         ],
+      q(533) => [
+         q(0013),
+         q(0),
+         ],
+      q(534) => [
+         q(0201),
+         q(0),
+         ],
+      q(535) => [
+         q(0028),
+         q(0),
+         ],
+      q(540) => [
+         q(0158),
+         q(0),
+         ],
+      q(548) => [
+         q(0240),
+         q(0),
+         ],
+      q(554) => [
+         q(0159),
+         q(0),
+         ],
+      q(558) => [
+         q(0160),
+         q(0),
+         ],
+      q(562) => [
+         q(0161),
+         q(0),
+         ],
+      q(566) => [
+         q(0162),
+         q(0),
+         ],
+      q(570) => [
+         q(0163),
+         q(0),
+         ],
+      q(574) => [
+         q(0164),
+         q(0),
+         ],
+      q(578) => [
+         q(0166),
+         q(0),
+         ],
+      q(580) => [
+         q(0165),
+         q(0),
+         ],
+      q(581) => [
+         q(0236),
+         q(0),
+         ],
+      q(583) => [
+         q(0145),
+         q(0),
+         ],
+      q(584) => [
+         q(0139),
+         q(0),
+         ],
+      q(585) => [
+         q(0169),
+         q(0),
+         ],
+      q(586) => [
+         q(0168),
+         q(0),
+         ],
+      q(591) => [
+         q(0171),
+         q(0),
+         ],
+      q(598) => [
+         q(0172),
+         q(0),
+         ],
+      q(600) => [
+         q(0173),
+         q(0),
+         ],
+      q(604) => [
+         q(0174),
+         q(0),
+         ],
+      q(608) => [
+         q(0175),
+         q(0),
+         ],
+      q(612) => [
+         q(0176),
+         q(0),
+         ],
+      q(616) => [
+         q(0177),
+         q(0),
+         ],
+      q(620) => [
+         q(0178),
+         q(0),
+         ],
+      q(624) => [
+         q(0094),
+         q(0),
+         ],
+      q(626) => [
+         q(0222),
+         q(0),
+         ],
+      q(630) => [
+         q(0179),
+         q(0),
+         ],
+      q(634) => [
+         q(0180),
+         q(0),
+         ],
+      q(638) => [
+         q(0181),
+         q(0),
+         ],
+      q(642) => [
+         q(0182),
+         q(0),
+         ],
+      q(643) => [
+         q(0183),
+         q(0),
+         ],
+      q(646) => [
+         q(0184),
+         q(0),
+         ],
+      q(652) => [
+         q(0185),
+         q(0),
+         ],
+      q(654) => [
+         q(0186),
+         q(0),
+         ],
+      q(659) => [
+         q(0187),
+         q(0),
+         ],
+      q(660) => [
+         q(0008),
+         q(0),
+         ],
+      q(662) => [
+         q(0188),
+         q(0),
+         ],
+      q(663) => [
+         q(0189),
+         q(0),
+         ],
+      q(666) => [
+         q(0190),
+         q(0),
+         ],
+      q(670) => [
+         q(0191),
+         q(0),
+         ],
+      q(674) => [
+         q(0193),
+         q(0),
+         ],
+      q(678) => [
+         q(0194),
+         q(0),
+         ],
+      q(680) => [
+         q(0250),
+         q(0),
+         ],
+      q(682) => [
+         q(0195),
+         q(0),
+         ],
+      q(686) => [
+         q(0196),
+         q(0),
+         ],
+      q(688) => [
+         q(0197),
+         q(0),
+         ],
+      q(690) => [
+         q(0198),
+         q(0),
+         ],
+      q(694) => [
+         q(0199),
+         q(0),
+         ],
+      q(702) => [
+         q(0200),
+         q(0),
+         ],
+      q(703) => [
+         q(0202),
+         q(0),
+         ],
+      q(704) => [
+         q(0242),
+         q(0),
+         ],
+      q(705) => [
+         q(0203),
+         q(0),
+         ],
+      q(706) => [
+         q(0205),
+         q(0),
+         ],
+      q(710) => [
+         q(0206),
+         q(0),
+         ],
+      q(716) => [
+         q(0249),
+         q(0),
+         ],
+      q(724) => [
+         q(0209),
+         q(0),
+         ],
+      q(728) => [
+         q(0208),
+         q(0),
+         ],
+      q(729) => [
+         q(0211),
+         q(0),
+         ],
+      q(732) => [
+         q(0246),
+         q(0),
+         ],
+      q(740) => [
+         q(0212),
+         q(0),
+         ],
+      q(744) => [
+         q(0213),
+         q(0),
+         ],
+      q(748) => [
+         q(0214),
+         q(0),
+         ],
+      q(752) => [
+         q(0215),
+         q(0),
+         ],
+      q(756) => [
+         q(0216),
+         q(0),
+         ],
+      q(760) => [
+         q(0217),
+         q(0),
+         ],
+      q(762) => [
+         q(0219),
+         q(0),
+         ],
+      q(764) => [
+         q(0221),
+         q(0),
+         ],
+      q(768) => [
+         q(0223),
+         q(0),
+         ],
+      q(772) => [
+         q(0224),
+         q(0),
+         ],
+      q(776) => [
+         q(0225),
+         q(0),
+         ],
+      q(780) => [
+         q(0226),
+         q(0),
+         ],
+      q(784) => [
+         q(0234),
+         q(0),
+         ],
+      q(788) => [
+         q(0227),
+         q(0),
+         ],
+      q(792) => [
+         q(0228),
+         q(0),
+         ],
+      q(795) => [
+         q(0229),
+         q(0),
+         ],
+      q(796) => [
+         q(0230),
+         q(0),
+         ],
+      q(798) => [
+         q(0231),
+         q(0),
+         ],
+      q(800) => [
+         q(0232),
+         q(0),
+         ],
+      q(804) => [
+         q(0233),
+         q(0),
+         ],
+      q(807) => [
+         q(0132),
+         q(0),
+         ],
+      q(818) => [
+         q(0066),
+         q(0),
+         ],
+      q(826) => [
+         q(0235),
+         q(0),
+         ],
+      q(831) => [
+         q(0092),
+         q(0),
+         ],
+      q(832) => [
+         q(0113),
+         q(0),
+         ],
+      q(833) => [
+         q(0108),
+         q(0),
+         ],
+      q(834) => [
+         q(0220),
+         q(0),
+         ],
+      q(840) => [
+         q(0237),
+         q(0),
+         ],
+      q(850) => [
+         q(0244),
+         q(0),
+         ],
+      q(854) => [
+         q(0036),
+         q(0),
+         ],
+      q(858) => [
+         q(0238),
+         q(0),
+         ],
+      q(860) => [
+         q(0239),
+         q(0),
+         ],
+      q(862) => [
+         q(0241),
+         q(0),
+         ],
+      q(876) => [
+         q(0245),
+         q(0),
+         ],
+      q(882) => [
+         q(0192),
+         q(0),
+         ],
+      q(887) => [
+         q(0247),
+         q(0),
+         ],
+      q(894) => [
+         q(0248),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'country'}{'id2code'} = {
+   q(alpha-2) => {
+      q(0001) => q(af),
+      q(0002) => q(ax),
+      q(0003) => q(al),
+      q(0004) => q(dz),
+      q(0005) => q(as),
+      q(0006) => q(ad),
+      q(0007) => q(ao),
+      q(0008) => q(ai),
+      q(0009) => q(aq),
+      q(0010) => q(ag),
+      q(0011) => q(ar),
+      q(0012) => q(am),
+      q(0013) => q(aw),
+      q(0014) => q(au),
+      q(0015) => q(at),
+      q(0016) => q(az),
+      q(0017) => q(bs),
+      q(0018) => q(bh),
+      q(0019) => q(bd),
+      q(0020) => q(bb),
+      q(0021) => q(by),
+      q(0022) => q(be),
+      q(0023) => q(bz),
+      q(0024) => q(bj),
+      q(0025) => q(bm),
+      q(0026) => q(bt),
+      q(0027) => q(bo),
+      q(0028) => q(bq),
+      q(0029) => q(ba),
+      q(0030) => q(bw),
+      q(0031) => q(bv),
+      q(0032) => q(br),
+      q(0033) => q(io),
+      q(0034) => q(bn),
+      q(0035) => q(bg),
+      q(0036) => q(bf),
+      q(0037) => q(bi),
+      q(0038) => q(cv),
+      q(0039) => q(kh),
+      q(0040) => q(cm),
+      q(0041) => q(ca),
+      q(0042) => q(ky),
+      q(0043) => q(cf),
+      q(0044) => q(td),
+      q(0045) => q(cl),
+      q(0046) => q(cn),
+      q(0047) => q(cx),
+      q(0048) => q(cc),
+      q(0049) => q(co),
+      q(0050) => q(km),
+      q(0051) => q(cd),
+      q(0052) => q(cg),
+      q(0053) => q(ck),
+      q(0054) => q(cr),
+      q(0055) => q(ci),
+      q(0056) => q(hr),
+      q(0057) => q(cu),
+      q(0058) => q(cw),
+      q(0059) => q(cy),
+      q(0060) => q(cz),
+      q(0061) => q(dk),
+      q(0062) => q(dj),
+      q(0063) => q(dm),
+      q(0064) => q(do),
+      q(0065) => q(ec),
+      q(0066) => q(eg),
+      q(0067) => q(sv),
+      q(0068) => q(gq),
+      q(0069) => q(er),
+      q(0070) => q(ee),
+      q(0071) => q(et),
+      q(0072) => q(fk),
+      q(0073) => q(fo),
+      q(0074) => q(fj),
+      q(0075) => q(fi),
+      q(0076) => q(fr),
+      q(0077) => q(gf),
+      q(0078) => q(pf),
+      q(0079) => q(tf),
+      q(0080) => q(ga),
+      q(0081) => q(gm),
+      q(0082) => q(ge),
+      q(0083) => q(de),
+      q(0084) => q(gh),
+      q(0085) => q(gi),
+      q(0086) => q(gr),
+      q(0087) => q(gl),
+      q(0088) => q(gd),
+      q(0089) => q(gp),
+      q(0090) => q(gu),
+      q(0091) => q(gt),
+      q(0092) => q(gg),
+      q(0093) => q(gn),
+      q(0094) => q(gw),
+      q(0095) => q(gy),
+      q(0096) => q(ht),
+      q(0097) => q(hm),
+      q(0098) => q(va),
+      q(0099) => q(hn),
+      q(0100) => q(hk),
+      q(0101) => q(hu),
+      q(0102) => q(is),
+      q(0103) => q(in),
+      q(0104) => q(id),
+      q(0105) => q(ir),
+      q(0106) => q(iq),
+      q(0107) => q(ie),
+      q(0108) => q(im),
+      q(0109) => q(il),
+      q(0110) => q(it),
+      q(0111) => q(jm),
+      q(0112) => q(jp),
+      q(0113) => q(je),
+      q(0114) => q(jo),
+      q(0115) => q(kz),
+      q(0116) => q(ke),
+      q(0117) => q(ki),
+      q(0118) => q(kp),
+      q(0119) => q(kr),
+      q(0120) => q(kw),
+      q(0121) => q(kg),
+      q(0122) => q(la),
+      q(0123) => q(lv),
+      q(0124) => q(lb),
+      q(0125) => q(ls),
+      q(0126) => q(lr),
+      q(0127) => q(ly),
+      q(0128) => q(li),
+      q(0129) => q(lt),
+      q(0130) => q(lu),
+      q(0131) => q(mo),
+      q(0132) => q(mk),
+      q(0133) => q(mg),
+      q(0134) => q(mw),
+      q(0135) => q(my),
+      q(0136) => q(mv),
+      q(0137) => q(ml),
+      q(0138) => q(mt),
+      q(0139) => q(mh),
+      q(0140) => q(mq),
+      q(0141) => q(mr),
+      q(0142) => q(mu),
+      q(0143) => q(yt),
+      q(0144) => q(mx),
+      q(0145) => q(fm),
+      q(0146) => q(md),
+      q(0147) => q(mc),
+      q(0148) => q(mn),
+      q(0149) => q(me),
+      q(0150) => q(ms),
+      q(0151) => q(ma),
+      q(0152) => q(mz),
+      q(0153) => q(mm),
+      q(0154) => q(na),
+      q(0155) => q(nr),
+      q(0156) => q(np),
+      q(0157) => q(nl),
+      q(0158) => q(nc),
+      q(0159) => q(nz),
+      q(0160) => q(ni),
+      q(0161) => q(ne),
+      q(0162) => q(ng),
+      q(0163) => q(nu),
+      q(0164) => q(nf),
+      q(0165) => q(mp),
+      q(0166) => q(no),
+      q(0167) => q(om),
+      q(0168) => q(pk),
+      q(0169) => q(pw),
+      q(0170) => q(ps),
+      q(0171) => q(pa),
+      q(0172) => q(pg),
+      q(0173) => q(py),
+      q(0174) => q(pe),
+      q(0175) => q(ph),
+      q(0176) => q(pn),
+      q(0177) => q(pl),
+      q(0178) => q(pt),
+      q(0179) => q(pr),
+      q(0180) => q(qa),
+      q(0181) => q(re),
+      q(0182) => q(ro),
+      q(0183) => q(ru),
+      q(0184) => q(rw),
+      q(0185) => q(bl),
+      q(0186) => q(sh),
+      q(0187) => q(kn),
+      q(0188) => q(lc),
+      q(0189) => q(mf),
+      q(0190) => q(pm),
+      q(0191) => q(vc),
+      q(0192) => q(ws),
+      q(0193) => q(sm),
+      q(0194) => q(st),
+      q(0195) => q(sa),
+      q(0196) => q(sn),
+      q(0197) => q(rs),
+      q(0198) => q(sc),
+      q(0199) => q(sl),
+      q(0200) => q(sg),
+      q(0201) => q(sx),
+      q(0202) => q(sk),
+      q(0203) => q(si),
+      q(0204) => q(sb),
+      q(0205) => q(so),
+      q(0206) => q(za),
+      q(0207) => q(gs),
+      q(0208) => q(ss),
+      q(0209) => q(es),
+      q(0210) => q(lk),
+      q(0211) => q(sd),
+      q(0212) => q(sr),
+      q(0213) => q(sj),
+      q(0214) => q(sz),
+      q(0215) => q(se),
+      q(0216) => q(ch),
+      q(0217) => q(sy),
+      q(0218) => q(tw),
+      q(0219) => q(tj),
+      q(0220) => q(tz),
+      q(0221) => q(th),
+      q(0222) => q(tl),
+      q(0223) => q(tg),
+      q(0224) => q(tk),
+      q(0225) => q(to),
+      q(0226) => q(tt),
+      q(0227) => q(tn),
+      q(0228) => q(tr),
+      q(0229) => q(tm),
+      q(0230) => q(tc),
+      q(0231) => q(tv),
+      q(0232) => q(ug),
+      q(0233) => q(ua),
+      q(0234) => q(ae),
+      q(0235) => q(gb),
+      q(0236) => q(um),
+      q(0237) => q(us),
+      q(0238) => q(uy),
+      q(0239) => q(uz),
+      q(0240) => q(vu),
+      q(0241) => q(ve),
+      q(0242) => q(vn),
+      q(0243) => q(vg),
+      q(0244) => q(vi),
+      q(0245) => q(wf),
+      q(0246) => q(eh),
+      q(0247) => q(ye),
+      q(0248) => q(zm),
+      q(0249) => q(zw),
+      },
+   q(alpha-3) => {
+      q(0001) => q(afg),
+      q(0002) => q(ala),
+      q(0003) => q(alb),
+      q(0004) => q(dza),
+      q(0005) => q(asm),
+      q(0006) => q(and),
+      q(0007) => q(ago),
+      q(0008) => q(aia),
+      q(0009) => q(ata),
+      q(0010) => q(atg),
+      q(0011) => q(arg),
+      q(0012) => q(arm),
+      q(0013) => q(abw),
+      q(0014) => q(aus),
+      q(0015) => q(aut),
+      q(0016) => q(aze),
+      q(0017) => q(bhs),
+      q(0018) => q(bhr),
+      q(0019) => q(bgd),
+      q(0020) => q(brb),
+      q(0021) => q(blr),
+      q(0022) => q(bel),
+      q(0023) => q(blz),
+      q(0024) => q(ben),
+      q(0025) => q(bmu),
+      q(0026) => q(btn),
+      q(0027) => q(bol),
+      q(0028) => q(bes),
+      q(0029) => q(bih),
+      q(0030) => q(bwa),
+      q(0031) => q(bvt),
+      q(0032) => q(bra),
+      q(0033) => q(iot),
+      q(0034) => q(brn),
+      q(0035) => q(bgr),
+      q(0036) => q(bfa),
+      q(0037) => q(bdi),
+      q(0038) => q(cpv),
+      q(0039) => q(khm),
+      q(0040) => q(cmr),
+      q(0041) => q(can),
+      q(0042) => q(cym),
+      q(0043) => q(caf),
+      q(0044) => q(tcd),
+      q(0045) => q(chl),
+      q(0046) => q(chn),
+      q(0047) => q(cxr),
+      q(0048) => q(cck),
+      q(0049) => q(col),
+      q(0050) => q(com),
+      q(0051) => q(cod),
+      q(0052) => q(cog),
+      q(0053) => q(cok),
+      q(0054) => q(cri),
+      q(0055) => q(civ),
+      q(0056) => q(hrv),
+      q(0057) => q(cub),
+      q(0058) => q(cuw),
+      q(0059) => q(cyp),
+      q(0060) => q(cze),
+      q(0061) => q(dnk),
+      q(0062) => q(dji),
+      q(0063) => q(dma),
+      q(0064) => q(dom),
+      q(0065) => q(ecu),
+      q(0066) => q(egy),
+      q(0067) => q(slv),
+      q(0068) => q(gnq),
+      q(0069) => q(eri),
+      q(0070) => q(est),
+      q(0071) => q(eth),
+      q(0072) => q(flk),
+      q(0073) => q(fro),
+      q(0074) => q(fji),
+      q(0075) => q(fin),
+      q(0076) => q(fra),
+      q(0077) => q(guf),
+      q(0078) => q(pyf),
+      q(0079) => q(atf),
+      q(0080) => q(gab),
+      q(0081) => q(gmb),
+      q(0082) => q(geo),
+      q(0083) => q(deu),
+      q(0084) => q(gha),
+      q(0085) => q(gib),
+      q(0086) => q(grc),
+      q(0087) => q(grl),
+      q(0088) => q(grd),
+      q(0089) => q(glp),
+      q(0090) => q(gum),
+      q(0091) => q(gtm),
+      q(0092) => q(ggy),
+      q(0093) => q(gin),
+      q(0094) => q(gnb),
+      q(0095) => q(guy),
+      q(0096) => q(hti),
+      q(0097) => q(hmd),
+      q(0098) => q(vat),
+      q(0099) => q(hnd),
+      q(0100) => q(hkg),
+      q(0101) => q(hun),
+      q(0102) => q(isl),
+      q(0103) => q(ind),
+      q(0104) => q(idn),
+      q(0105) => q(irn),
+      q(0106) => q(irq),
+      q(0107) => q(irl),
+      q(0108) => q(imn),
+      q(0109) => q(isr),
+      q(0110) => q(ita),
+      q(0111) => q(jam),
+      q(0112) => q(jpn),
+      q(0113) => q(jey),
+      q(0114) => q(jor),
+      q(0115) => q(kaz),
+      q(0116) => q(ken),
+      q(0117) => q(kir),
+      q(0118) => q(prk),
+      q(0119) => q(kor),
+      q(0120) => q(kwt),
+      q(0121) => q(kgz),
+      q(0122) => q(lao),
+      q(0123) => q(lva),
+      q(0124) => q(lbn),
+      q(0125) => q(lso),
+      q(0126) => q(lbr),
+      q(0127) => q(lby),
+      q(0128) => q(lie),
+      q(0129) => q(ltu),
+      q(0130) => q(lux),
+      q(0131) => q(mac),
+      q(0132) => q(mkd),
+      q(0133) => q(mdg),
+      q(0134) => q(mwi),
+      q(0135) => q(mys),
+      q(0136) => q(mdv),
+      q(0137) => q(mli),
+      q(0138) => q(mlt),
+      q(0139) => q(mhl),
+      q(0140) => q(mtq),
+      q(0141) => q(mrt),
+      q(0142) => q(mus),
+      q(0143) => q(myt),
+      q(0144) => q(mex),
+      q(0145) => q(fsm),
+      q(0146) => q(mda),
+      q(0147) => q(mco),
+      q(0148) => q(mng),
+      q(0149) => q(mne),
+      q(0150) => q(msr),
+      q(0151) => q(mar),
+      q(0152) => q(moz),
+      q(0153) => q(mmr),
+      q(0154) => q(nam),
+      q(0155) => q(nru),
+      q(0156) => q(npl),
+      q(0157) => q(nld),
+      q(0158) => q(ncl),
+      q(0159) => q(nzl),
+      q(0160) => q(nic),
+      q(0161) => q(ner),
+      q(0162) => q(nga),
+      q(0163) => q(niu),
+      q(0164) => q(nfk),
+      q(0165) => q(mnp),
+      q(0166) => q(nor),
+      q(0167) => q(omn),
+      q(0168) => q(pak),
+      q(0169) => q(plw),
+      q(0170) => q(pse),
+      q(0171) => q(pan),
+      q(0172) => q(png),
+      q(0173) => q(pry),
+      q(0174) => q(per),
+      q(0175) => q(phl),
+      q(0176) => q(pcn),
+      q(0177) => q(pol),
+      q(0178) => q(prt),
+      q(0179) => q(pri),
+      q(0180) => q(qat),
+      q(0181) => q(reu),
+      q(0182) => q(rou),
+      q(0183) => q(rus),
+      q(0184) => q(rwa),
+      q(0185) => q(blm),
+      q(0186) => q(shn),
+      q(0187) => q(kna),
+      q(0188) => q(lca),
+      q(0189) => q(maf),
+      q(0190) => q(spm),
+      q(0191) => q(vct),
+      q(0192) => q(wsm),
+      q(0193) => q(smr),
+      q(0194) => q(stp),
+      q(0195) => q(sau),
+      q(0196) => q(sen),
+      q(0197) => q(srb),
+      q(0198) => q(syc),
+      q(0199) => q(sle),
+      q(0200) => q(sgp),
+      q(0201) => q(sxm),
+      q(0202) => q(svk),
+      q(0203) => q(svn),
+      q(0204) => q(slb),
+      q(0205) => q(som),
+      q(0206) => q(zaf),
+      q(0207) => q(sgs),
+      q(0208) => q(ssd),
+      q(0209) => q(esp),
+      q(0210) => q(lka),
+      q(0211) => q(sdn),
+      q(0212) => q(sur),
+      q(0213) => q(sjm),
+      q(0214) => q(swz),
+      q(0215) => q(swe),
+      q(0216) => q(che),
+      q(0217) => q(syr),
+      q(0218) => q(twn),
+      q(0219) => q(tjk),
+      q(0220) => q(tza),
+      q(0221) => q(tha),
+      q(0222) => q(tls),
+      q(0223) => q(tgo),
+      q(0224) => q(tkl),
+      q(0225) => q(ton),
+      q(0226) => q(tto),
+      q(0227) => q(tun),
+      q(0228) => q(tur),
+      q(0229) => q(tkm),
+      q(0230) => q(tca),
+      q(0231) => q(tuv),
+      q(0232) => q(uga),
+      q(0233) => q(ukr),
+      q(0234) => q(are),
+      q(0235) => q(gbr),
+      q(0236) => q(umi),
+      q(0237) => q(usa),
+      q(0238) => q(ury),
+      q(0239) => q(uzb),
+      q(0240) => q(vut),
+      q(0241) => q(ven),
+      q(0242) => q(vnm),
+      q(0243) => q(vgb),
+      q(0244) => q(vir),
+      q(0245) => q(wlf),
+      q(0246) => q(esh),
+      q(0247) => q(yem),
+      q(0248) => q(zmb),
+      q(0249) => q(zwe),
+      },
+   q(dom) => {
+      q(0001) => q(af),
+      q(0002) => q(ax),
+      q(0003) => q(al),
+      q(0004) => q(dz),
+      q(0005) => q(as),
+      q(0006) => q(ad),
+      q(0007) => q(ao),
+      q(0008) => q(ai),
+      q(0009) => q(aq),
+      q(0010) => q(ag),
+      q(0011) => q(ar),
+      q(0012) => q(am),
+      q(0013) => q(aw),
+      q(0014) => q(au),
+      q(0015) => q(at),
+      q(0016) => q(az),
+      q(0017) => q(bs),
+      q(0018) => q(bh),
+      q(0019) => q(bd),
+      q(0020) => q(bb),
+      q(0021) => q(by),
+      q(0022) => q(be),
+      q(0023) => q(bz),
+      q(0024) => q(bj),
+      q(0025) => q(bm),
+      q(0026) => q(bt),
+      q(0027) => q(bo),
+      q(0028) => q(bq),
+      q(0029) => q(ba),
+      q(0030) => q(bw),
+      q(0031) => q(bv),
+      q(0032) => q(br),
+      q(0033) => q(io),
+      q(0034) => q(bn),
+      q(0035) => q(bg),
+      q(0036) => q(bf),
+      q(0037) => q(bi),
+      q(0038) => q(cv),
+      q(0039) => q(kh),
+      q(0040) => q(cm),
+      q(0041) => q(ca),
+      q(0042) => q(ky),
+      q(0043) => q(cf),
+      q(0044) => q(td),
+      q(0045) => q(cl),
+      q(0046) => q(cn),
+      q(0047) => q(cx),
+      q(0048) => q(cc),
+      q(0049) => q(co),
+      q(0050) => q(km),
+      q(0051) => q(cd),
+      q(0052) => q(cg),
+      q(0053) => q(ck),
+      q(0054) => q(cr),
+      q(0055) => q(ci),
+      q(0056) => q(hr),
+      q(0057) => q(cu),
+      q(0058) => q(cw),
+      q(0059) => q(cy),
+      q(0060) => q(cz),
+      q(0061) => q(dk),
+      q(0062) => q(dj),
+      q(0063) => q(dm),
+      q(0064) => q(do),
+      q(0065) => q(ec),
+      q(0066) => q(eg),
+      q(0067) => q(sv),
+      q(0068) => q(gq),
+      q(0069) => q(er),
+      q(0070) => q(ee),
+      q(0071) => q(et),
+      q(0072) => q(fk),
+      q(0073) => q(fo),
+      q(0074) => q(fj),
+      q(0075) => q(fi),
+      q(0076) => q(fr),
+      q(0077) => q(gf),
+      q(0078) => q(pf),
+      q(0079) => q(tf),
+      q(0080) => q(ga),
+      q(0081) => q(gm),
+      q(0082) => q(ge),
+      q(0083) => q(de),
+      q(0084) => q(gh),
+      q(0085) => q(gi),
+      q(0086) => q(gr),
+      q(0087) => q(gl),
+      q(0088) => q(gd),
+      q(0089) => q(gp),
+      q(0090) => q(gu),
+      q(0091) => q(gt),
+      q(0092) => q(gg),
+      q(0093) => q(gn),
+      q(0094) => q(gw),
+      q(0095) => q(gy),
+      q(0096) => q(ht),
+      q(0097) => q(hm),
+      q(0098) => q(va),
+      q(0099) => q(hn),
+      q(0100) => q(hk),
+      q(0101) => q(hu),
+      q(0102) => q(is),
+      q(0103) => q(in),
+      q(0104) => q(id),
+      q(0105) => q(ir),
+      q(0106) => q(iq),
+      q(0107) => q(ie),
+      q(0108) => q(im),
+      q(0109) => q(il),
+      q(0110) => q(it),
+      q(0111) => q(jm),
+      q(0112) => q(jp),
+      q(0113) => q(je),
+      q(0114) => q(jo),
+      q(0115) => q(kz),
+      q(0116) => q(ke),
+      q(0117) => q(ki),
+      q(0118) => q(kp),
+      q(0119) => q(kr),
+      q(0120) => q(kw),
+      q(0121) => q(kg),
+      q(0122) => q(la),
+      q(0123) => q(lv),
+      q(0124) => q(lb),
+      q(0125) => q(ls),
+      q(0126) => q(lr),
+      q(0127) => q(ly),
+      q(0128) => q(li),
+      q(0129) => q(lt),
+      q(0130) => q(lu),
+      q(0131) => q(mo),
+      q(0132) => q(mk),
+      q(0133) => q(mg),
+      q(0134) => q(mw),
+      q(0135) => q(my),
+      q(0136) => q(mv),
+      q(0137) => q(ml),
+      q(0138) => q(mt),
+      q(0139) => q(mh),
+      q(0140) => q(mq),
+      q(0141) => q(mr),
+      q(0142) => q(mu),
+      q(0143) => q(yt),
+      q(0144) => q(mx),
+      q(0145) => q(fm),
+      q(0146) => q(md),
+      q(0147) => q(mc),
+      q(0148) => q(mn),
+      q(0149) => q(me),
+      q(0150) => q(ms),
+      q(0151) => q(ma),
+      q(0152) => q(mz),
+      q(0153) => q(mm),
+      q(0154) => q(na),
+      q(0155) => q(nr),
+      q(0156) => q(np),
+      q(0157) => q(nl),
+      q(0158) => q(nc),
+      q(0159) => q(nz),
+      q(0160) => q(ni),
+      q(0161) => q(ne),
+      q(0162) => q(ng),
+      q(0163) => q(nu),
+      q(0164) => q(nf),
+      q(0165) => q(mp),
+      q(0166) => q(no),
+      q(0167) => q(om),
+      q(0168) => q(pk),
+      q(0169) => q(pw),
+      q(0170) => q(ps),
+      q(0171) => q(pa),
+      q(0172) => q(pg),
+      q(0173) => q(py),
+      q(0174) => q(pe),
+      q(0175) => q(ph),
+      q(0176) => q(pn),
+      q(0177) => q(pl),
+      q(0178) => q(pt),
+      q(0179) => q(pr),
+      q(0180) => q(qa),
+      q(0181) => q(re),
+      q(0182) => q(ro),
+      q(0183) => q(ru),
+      q(0184) => q(rw),
+      q(0185) => q(bl),
+      q(0186) => q(sh),
+      q(0187) => q(kn),
+      q(0188) => q(lc),
+      q(0189) => q(mf),
+      q(0190) => q(pm),
+      q(0191) => q(vc),
+      q(0192) => q(ws),
+      q(0193) => q(sm),
+      q(0194) => q(st),
+      q(0195) => q(sa),
+      q(0196) => q(sn),
+      q(0197) => q(rs),
+      q(0198) => q(sc),
+      q(0199) => q(sl),
+      q(0200) => q(sg),
+      q(0201) => q(sx),
+      q(0202) => q(sk),
+      q(0203) => q(si),
+      q(0204) => q(sb),
+      q(0205) => q(so),
+      q(0206) => q(za),
+      q(0207) => q(gs),
+      q(0208) => q(ss),
+      q(0209) => q(es),
+      q(0210) => q(lk),
+      q(0211) => q(sd),
+      q(0212) => q(sr),
+      q(0213) => q(sj),
+      q(0214) => q(sz),
+      q(0215) => q(se),
+      q(0216) => q(ch),
+      q(0217) => q(sy),
+      q(0218) => q(tw),
+      q(0219) => q(tj),
+      q(0220) => q(tz),
+      q(0221) => q(th),
+      q(0222) => q(tl),
+      q(0223) => q(tg),
+      q(0224) => q(tk),
+      q(0225) => q(to),
+      q(0226) => q(tt),
+      q(0227) => q(tn),
+      q(0228) => q(tr),
+      q(0229) => q(tm),
+      q(0230) => q(tc),
+      q(0231) => q(tv),
+      q(0232) => q(ug),
+      q(0233) => q(ua),
+      q(0234) => q(ae),
+      q(0235) => q(gb),
+      q(0236) => q(um),
+      q(0237) => q(us),
+      q(0238) => q(uy),
+      q(0239) => q(uz),
+      q(0240) => q(vu),
+      q(0241) => q(ve),
+      q(0242) => q(vn),
+      q(0243) => q(vg),
+      q(0244) => q(vi),
+      q(0245) => q(wf),
+      q(0246) => q(eh),
+      q(0247) => q(ye),
+      q(0248) => q(zm),
+      q(0249) => q(zw),
+      },
+   q(genc-alpha-2) => {
+      q(0001) => q(AF),
+      q(0003) => q(AL),
+      q(0004) => q(DZ),
+      q(0005) => q(AS),
+      q(0006) => q(AD),
+      q(0007) => q(AO),
+      q(0008) => q(AI),
+      q(0009) => q(AQ),
+      q(0010) => q(AG),
+      q(0011) => q(AR),
+      q(0012) => q(AM),
+      q(0013) => q(AW),
+      q(0014) => q(AU),
+      q(0015) => q(AT),
+      q(0016) => q(AZ),
+      q(0017) => q(BS),
+      q(0018) => q(BH),
+      q(0019) => q(BD),
+      q(0020) => q(BB),
+      q(0021) => q(BY),
+      q(0022) => q(BE),
+      q(0023) => q(BZ),
+      q(0024) => q(BJ),
+      q(0025) => q(BM),
+      q(0026) => q(BT),
+      q(0027) => q(BO),
+      q(0028) => q(BQ),
+      q(0029) => q(BA),
+      q(0030) => q(BW),
+      q(0031) => q(BV),
+      q(0032) => q(BR),
+      q(0033) => q(IO),
+      q(0034) => q(BN),
+      q(0035) => q(BG),
+      q(0036) => q(BF),
+      q(0037) => q(BI),
+      q(0038) => q(CV),
+      q(0039) => q(KH),
+      q(0040) => q(CM),
+      q(0041) => q(CA),
+      q(0042) => q(KY),
+      q(0043) => q(CF),
+      q(0044) => q(TD),
+      q(0045) => q(CL),
+      q(0046) => q(CN),
+      q(0047) => q(CX),
+      q(0048) => q(CC),
+      q(0049) => q(CO),
+      q(0050) => q(KM),
+      q(0051) => q(CD),
+      q(0052) => q(CG),
+      q(0053) => q(CK),
+      q(0054) => q(CR),
+      q(0055) => q(CI),
+      q(0056) => q(HR),
+      q(0057) => q(CU),
+      q(0058) => q(CW),
+      q(0059) => q(CY),
+      q(0060) => q(CZ),
+      q(0061) => q(DK),
+      q(0062) => q(DJ),
+      q(0063) => q(DM),
+      q(0064) => q(DO),
+      q(0065) => q(EC),
+      q(0066) => q(EG),
+      q(0067) => q(SV),
+      q(0068) => q(GQ),
+      q(0069) => q(ER),
+      q(0070) => q(EE),
+      q(0071) => q(ET),
+      q(0072) => q(FK),
+      q(0073) => q(FO),
+      q(0074) => q(FJ),
+      q(0075) => q(FI),
+      q(0076) => q(FR),
+      q(0077) => q(GF),
+      q(0078) => q(PF),
+      q(0079) => q(TF),
+      q(0080) => q(GA),
+      q(0081) => q(GM),
+      q(0082) => q(GE),
+      q(0083) => q(DE),
+      q(0084) => q(GH),
+      q(0085) => q(GI),
+      q(0086) => q(GR),
+      q(0087) => q(GL),
+      q(0088) => q(GD),
+      q(0089) => q(GP),
+      q(0090) => q(GU),
+      q(0091) => q(GT),
+      q(0092) => q(GG),
+      q(0093) => q(GN),
+      q(0094) => q(GW),
+      q(0095) => q(GY),
+      q(0096) => q(HT),
+      q(0097) => q(HM),
+      q(0098) => q(VA),
+      q(0099) => q(HN),
+      q(0100) => q(HK),
+      q(0101) => q(HU),
+      q(0102) => q(IS),
+      q(0103) => q(IN),
+      q(0104) => q(ID),
+      q(0105) => q(IR),
+      q(0106) => q(IQ),
+      q(0107) => q(IE),
+      q(0108) => q(IM),
+      q(0109) => q(IL),
+      q(0110) => q(IT),
+      q(0111) => q(JM),
+      q(0112) => q(JP),
+      q(0113) => q(JE),
+      q(0114) => q(JO),
+      q(0115) => q(KZ),
+      q(0116) => q(KE),
+      q(0117) => q(KI),
+      q(0118) => q(KP),
+      q(0119) => q(KR),
+      q(0120) => q(KW),
+      q(0121) => q(KG),
+      q(0122) => q(LA),
+      q(0123) => q(LV),
+      q(0124) => q(LB),
+      q(0125) => q(LS),
+      q(0126) => q(LR),
+      q(0127) => q(LY),
+      q(0128) => q(LI),
+      q(0129) => q(LT),
+      q(0130) => q(LU),
+      q(0131) => q(MO),
+      q(0132) => q(MK),
+      q(0133) => q(MG),
+      q(0134) => q(MW),
+      q(0135) => q(MY),
+      q(0136) => q(MV),
+      q(0137) => q(ML),
+      q(0138) => q(MT),
+      q(0139) => q(MH),
+      q(0140) => q(MQ),
+      q(0141) => q(MR),
+      q(0142) => q(MU),
+      q(0143) => q(YT),
+      q(0144) => q(MX),
+      q(0145) => q(FM),
+      q(0146) => q(MD),
+      q(0147) => q(MC),
+      q(0148) => q(MN),
+      q(0149) => q(ME),
+      q(0150) => q(MS),
+      q(0151) => q(MA),
+      q(0152) => q(MZ),
+      q(0153) => q(MM),
+      q(0154) => q(NA),
+      q(0155) => q(NR),
+      q(0156) => q(NP),
+      q(0157) => q(NL),
+      q(0158) => q(NC),
+      q(0159) => q(NZ),
+      q(0160) => q(NI),
+      q(0161) => q(NE),
+      q(0162) => q(NG),
+      q(0163) => q(NU),
+      q(0164) => q(NF),
+      q(0165) => q(MP),
+      q(0166) => q(NO),
+      q(0167) => q(OM),
+      q(0168) => q(PK),
+      q(0169) => q(PW),
+      q(0171) => q(PA),
+      q(0172) => q(PG),
+      q(0173) => q(PY),
+      q(0174) => q(PE),
+      q(0175) => q(PH),
+      q(0176) => q(PN),
+      q(0177) => q(PL),
+      q(0178) => q(PT),
+      q(0179) => q(PR),
+      q(0180) => q(QA),
+      q(0181) => q(RE),
+      q(0182) => q(RO),
+      q(0183) => q(RU),
+      q(0184) => q(RW),
+      q(0185) => q(BL),
+      q(0186) => q(SH),
+      q(0187) => q(KN),
+      q(0188) => q(LC),
+      q(0189) => q(MF),
+      q(0190) => q(PM),
+      q(0191) => q(VC),
+      q(0192) => q(WS),
+      q(0193) => q(SM),
+      q(0194) => q(ST),
+      q(0195) => q(SA),
+      q(0196) => q(SN),
+      q(0197) => q(RS),
+      q(0198) => q(SC),
+      q(0199) => q(SL),
+      q(0200) => q(SG),
+      q(0201) => q(SX),
+      q(0202) => q(SK),
+      q(0203) => q(SI),
+      q(0204) => q(SB),
+      q(0205) => q(SO),
+      q(0206) => q(ZA),
+      q(0207) => q(GS),
+      q(0208) => q(SS),
+      q(0209) => q(ES),
+      q(0210) => q(LK),
+      q(0211) => q(SD),
+      q(0212) => q(SR),
+      q(0214) => q(SZ),
+      q(0215) => q(SE),
+      q(0216) => q(CH),
+      q(0217) => q(SY),
+      q(0218) => q(TW),
+      q(0219) => q(TJ),
+      q(0220) => q(TZ),
+      q(0221) => q(TH),
+      q(0222) => q(TL),
+      q(0223) => q(TG),
+      q(0224) => q(TK),
+      q(0225) => q(TO),
+      q(0226) => q(TT),
+      q(0227) => q(TN),
+      q(0228) => q(TR),
+      q(0229) => q(TM),
+      q(0230) => q(TC),
+      q(0231) => q(TV),
+      q(0232) => q(UG),
+      q(0233) => q(UA),
+      q(0234) => q(AE),
+      q(0235) => q(GB),
+      q(0237) => q(US),
+      q(0238) => q(UY),
+      q(0239) => q(UZ),
+      q(0240) => q(VU),
+      q(0241) => q(VE),
+      q(0242) => q(VN),
+      q(0243) => q(VG),
+      q(0244) => q(VI),
+      q(0245) => q(WF),
+      q(0246) => q(EH),
+      q(0247) => q(YE),
+      q(0248) => q(ZM),
+      q(0249) => q(ZW),
+      q(0251) => q(QZ),
+      q(0252) => q(XA),
+      q(0253) => q(XB),
+      q(0254) => q(QS),
+      q(0255) => q(CP),
+      q(0256) => q(XC),
+      q(0257) => q(XD),
+      q(0258) => q(DG),
+      q(0259) => q(XE),
+      q(0260) => q(XG),
+      q(0261) => q(QX),
+      q(0262) => q(A2),
+      q(0263) => q(XH),
+      q(0264) => q(XJ),
+      q(0265) => q(XQ),
+      q(0266) => q(XU),
+      q(0267) => q(QU),
+      q(0268) => q(XM),
+      q(0269) => q(XK),
+      q(0270) => q(QM),
+      q(0271) => q(XV),
+      q(0272) => q(XL),
+      q(0273) => q(XP),
+      q(0274) => q(XS),
+      q(0275) => q(XR),
+      q(0276) => q(XT),
+      q(0277) => q(A1),
+      q(0278) => q(QW),
+      q(0279) => q(XW),
+      },
+   q(genc-alpha-3) => {
+      q(0001) => q(AFG),
+      q(0003) => q(ALB),
+      q(0004) => q(DZA),
+      q(0005) => q(ASM),
+      q(0006) => q(AND),
+      q(0007) => q(AGO),
+      q(0008) => q(AIA),
+      q(0009) => q(ATA),
+      q(0010) => q(ATG),
+      q(0011) => q(ARG),
+      q(0012) => q(ARM),
+      q(0013) => q(ABW),
+      q(0014) => q(AUS),
+      q(0015) => q(AUT),
+      q(0016) => q(AZE),
+      q(0017) => q(BHS),
+      q(0018) => q(BHR),
+      q(0019) => q(BGD),
+      q(0020) => q(BRB),
+      q(0021) => q(BLR),
+      q(0022) => q(BEL),
+      q(0023) => q(BLZ),
+      q(0024) => q(BEN),
+      q(0025) => q(BMU),
+      q(0026) => q(BTN),
+      q(0027) => q(BOL),
+      q(0028) => q(BES),
+      q(0029) => q(BIH),
+      q(0030) => q(BWA),
+      q(0031) => q(BVT),
+      q(0032) => q(BRA),
+      q(0033) => q(IOT),
+      q(0034) => q(BRN),
+      q(0035) => q(BGR),
+      q(0036) => q(BFA),
+      q(0037) => q(BDI),
+      q(0038) => q(CPV),
+      q(0039) => q(KHM),
+      q(0040) => q(CMR),
+      q(0041) => q(CAN),
+      q(0042) => q(CYM),
+      q(0043) => q(CAF),
+      q(0044) => q(TCD),
+      q(0045) => q(CHL),
+      q(0046) => q(CHN),
+      q(0047) => q(CXR),
+      q(0048) => q(CCK),
+      q(0049) => q(COL),
+      q(0050) => q(COM),
+      q(0051) => q(COD),
+      q(0052) => q(COG),
+      q(0053) => q(COK),
+      q(0054) => q(CRI),
+      q(0055) => q(CIV),
+      q(0056) => q(HRV),
+      q(0057) => q(CUB),
+      q(0058) => q(CUW),
+      q(0059) => q(CYP),
+      q(0060) => q(CZE),
+      q(0061) => q(DNK),
+      q(0062) => q(DJI),
+      q(0063) => q(DMA),
+      q(0064) => q(DOM),
+      q(0065) => q(ECU),
+      q(0066) => q(EGY),
+      q(0067) => q(SLV),
+      q(0068) => q(GNQ),
+      q(0069) => q(ERI),
+      q(0070) => q(EST),
+      q(0071) => q(ETH),
+      q(0072) => q(FLK),
+      q(0073) => q(FRO),
+      q(0074) => q(FJI),
+      q(0075) => q(FIN),
+      q(0076) => q(FRA),
+      q(0077) => q(GUF),
+      q(0078) => q(PYF),
+      q(0079) => q(ATF),
+      q(0080) => q(GAB),
+      q(0081) => q(GMB),
+      q(0082) => q(GEO),
+      q(0083) => q(DEU),
+      q(0084) => q(GHA),
+      q(0085) => q(GIB),
+      q(0086) => q(GRC),
+      q(0087) => q(GRL),
+      q(0088) => q(GRD),
+      q(0089) => q(GLP),
+      q(0090) => q(GUM),
+      q(0091) => q(GTM),
+      q(0092) => q(GGY),
+      q(0093) => q(GIN),
+      q(0094) => q(GNB),
+      q(0095) => q(GUY),
+      q(0096) => q(HTI),
+      q(0097) => q(HMD),
+      q(0098) => q(VAT),
+      q(0099) => q(HND),
+      q(0100) => q(HKG),
+      q(0101) => q(HUN),
+      q(0102) => q(ISL),
+      q(0103) => q(IND),
+      q(0104) => q(IDN),
+      q(0105) => q(IRN),
+      q(0106) => q(IRQ),
+      q(0107) => q(IRL),
+      q(0108) => q(IMN),
+      q(0109) => q(ISR),
+      q(0110) => q(ITA),
+      q(0111) => q(JAM),
+      q(0112) => q(JPN),
+      q(0113) => q(JEY),
+      q(0114) => q(JOR),
+      q(0115) => q(KAZ),
+      q(0116) => q(KEN),
+      q(0117) => q(KIR),
+      q(0118) => q(PRK),
+      q(0119) => q(KOR),
+      q(0120) => q(KWT),
+      q(0121) => q(KGZ),
+      q(0122) => q(LAO),
+      q(0123) => q(LVA),
+      q(0124) => q(LBN),
+      q(0125) => q(LSO),
+      q(0126) => q(LBR),
+      q(0127) => q(LBY),
+      q(0128) => q(LIE),
+      q(0129) => q(LTU),
+      q(0130) => q(LUX),
+      q(0131) => q(MAC),
+      q(0132) => q(MKD),
+      q(0133) => q(MDG),
+      q(0134) => q(MWI),
+      q(0135) => q(MYS),
+      q(0136) => q(MDV),
+      q(0137) => q(MLI),
+      q(0138) => q(MLT),
+      q(0139) => q(MHL),
+      q(0140) => q(MTQ),
+      q(0141) => q(MRT),
+      q(0142) => q(MUS),
+      q(0143) => q(MYT),
+      q(0144) => q(MEX),
+      q(0145) => q(FSM),
+      q(0146) => q(MDA),
+      q(0147) => q(MCO),
+      q(0148) => q(MNG),
+      q(0149) => q(MNE),
+      q(0150) => q(MSR),
+      q(0151) => q(MAR),
+      q(0152) => q(MOZ),
+      q(0153) => q(MMR),
+      q(0154) => q(NAM),
+      q(0155) => q(NRU),
+      q(0156) => q(NPL),
+      q(0157) => q(NLD),
+      q(0158) => q(NCL),
+      q(0159) => q(NZL),
+      q(0160) => q(NIC),
+      q(0161) => q(NER),
+      q(0162) => q(NGA),
+      q(0163) => q(NIU),
+      q(0164) => q(NFK),
+      q(0165) => q(MNP),
+      q(0166) => q(NOR),
+      q(0167) => q(OMN),
+      q(0168) => q(PAK),
+      q(0169) => q(PLW),
+      q(0171) => q(PAN),
+      q(0172) => q(PNG),
+      q(0173) => q(PRY),
+      q(0174) => q(PER),
+      q(0175) => q(PHL),
+      q(0176) => q(PCN),
+      q(0177) => q(POL),
+      q(0178) => q(PRT),
+      q(0179) => q(PRI),
+      q(0180) => q(QAT),
+      q(0181) => q(REU),
+      q(0182) => q(ROU),
+      q(0183) => q(RUS),
+      q(0184) => q(RWA),
+      q(0185) => q(BLM),
+      q(0186) => q(SHN),
+      q(0187) => q(KNA),
+      q(0188) => q(LCA),
+      q(0189) => q(MAF),
+      q(0190) => q(SPM),
+      q(0191) => q(VCT),
+      q(0192) => q(WSM),
+      q(0193) => q(SMR),
+      q(0194) => q(STP),
+      q(0195) => q(SAU),
+      q(0196) => q(SEN),
+      q(0197) => q(SRB),
+      q(0198) => q(SYC),
+      q(0199) => q(SLE),
+      q(0200) => q(SGP),
+      q(0201) => q(SXM),
+      q(0202) => q(SVK),
+      q(0203) => q(SVN),
+      q(0204) => q(SLB),
+      q(0205) => q(SOM),
+      q(0206) => q(ZAF),
+      q(0207) => q(SGS),
+      q(0208) => q(SSD),
+      q(0209) => q(ESP),
+      q(0210) => q(LKA),
+      q(0211) => q(SDN),
+      q(0212) => q(SUR),
+      q(0214) => q(SWZ),
+      q(0215) => q(SWE),
+      q(0216) => q(CHE),
+      q(0217) => q(SYR),
+      q(0218) => q(TWN),
+      q(0219) => q(TJK),
+      q(0220) => q(TZA),
+      q(0221) => q(THA),
+      q(0222) => q(TLS),
+      q(0223) => q(TGO),
+      q(0224) => q(TKL),
+      q(0225) => q(TON),
+      q(0226) => q(TTO),
+      q(0227) => q(TUN),
+      q(0228) => q(TUR),
+      q(0229) => q(TKM),
+      q(0230) => q(TCA),
+      q(0231) => q(TUV),
+      q(0232) => q(UGA),
+      q(0233) => q(UKR),
+      q(0234) => q(ARE),
+      q(0235) => q(GBR),
+      q(0237) => q(USA),
+      q(0238) => q(URY),
+      q(0239) => q(UZB),
+      q(0240) => q(VUT),
+      q(0241) => q(VEN),
+      q(0242) => q(VNM),
+      q(0243) => q(VGB),
+      q(0244) => q(VIR),
+      q(0245) => q(WLF),
+      q(0246) => q(ESH),
+      q(0247) => q(YEM),
+      q(0248) => q(ZMB),
+      q(0249) => q(ZWE),
+      q(0251) => q(XQZ),
+      q(0252) => q(XAC),
+      q(0253) => q(XBK),
+      q(0254) => q(XBI),
+      q(0255) => q(CPT),
+      q(0256) => q(XCS),
+      q(0257) => q(XXD),
+      q(0258) => q(DGA),
+      q(0259) => q(XEU),
+      q(0260) => q(XGZ),
+      q(0261) => q(XGL),
+      q(0262) => q(AX2),
+      q(0263) => q(XHO),
+      q(0264) => q(XJM),
+      q(0265) => q(XJV),
+      q(0266) => q(XJA),
+      q(0267) => q(XJN),
+      q(0268) => q(XKR),
+      q(0269) => q(XKS),
+      q(0270) => q(XMW),
+      q(0271) => q(XNV),
+      q(0272) => q(XPL),
+      q(0273) => q(XPR),
+      q(0274) => q(XSP),
+      q(0275) => q(XSV),
+      q(0276) => q(XTR),
+      q(0277) => q(AX1),
+      q(0278) => q(XWK),
+      q(0279) => q(XWB),
+      },
+   q(genc-numeric) => {
+      q(0001) => q(004),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(016),
+      q(0006) => q(020),
+      q(0007) => q(024),
+      q(0008) => q(660),
+      q(0009) => q(010),
+      q(0010) => q(028),
+      q(0011) => q(032),
+      q(0012) => q(051),
+      q(0013) => q(533),
+      q(0014) => q(036),
+      q(0015) => q(040),
+      q(0016) => q(031),
+      q(0017) => q(044),
+      q(0018) => q(048),
+      q(0019) => q(050),
+      q(0020) => q(052),
+      q(0021) => q(112),
+      q(0022) => q(056),
+      q(0023) => q(084),
+      q(0024) => q(204),
+      q(0025) => q(060),
+      q(0026) => q(064),
+      q(0027) => q(068),
+      q(0028) => q(535),
+      q(0029) => q(070),
+      q(0030) => q(072),
+      q(0031) => q(074),
+      q(0032) => q(076),
+      q(0033) => q(086),
+      q(0034) => q(096),
+      q(0035) => q(100),
+      q(0036) => q(854),
+      q(0037) => q(108),
+      q(0038) => q(132),
+      q(0039) => q(116),
+      q(0040) => q(120),
+      q(0041) => q(124),
+      q(0042) => q(136),
+      q(0043) => q(140),
+      q(0044) => q(148),
+      q(0045) => q(152),
+      q(0046) => q(156),
+      q(0047) => q(162),
+      q(0048) => q(166),
+      q(0049) => q(170),
+      q(0050) => q(174),
+      q(0051) => q(180),
+      q(0052) => q(178),
+      q(0053) => q(184),
+      q(0054) => q(188),
+      q(0055) => q(384),
+      q(0056) => q(191),
+      q(0057) => q(192),
+      q(0058) => q(531),
+      q(0059) => q(196),
+      q(0060) => q(203),
+      q(0061) => q(208),
+      q(0062) => q(262),
+      q(0063) => q(212),
+      q(0064) => q(214),
+      q(0065) => q(218),
+      q(0066) => q(818),
+      q(0067) => q(222),
+      q(0068) => q(226),
+      q(0069) => q(232),
+      q(0070) => q(233),
+      q(0071) => q(231),
+      q(0072) => q(238),
+      q(0073) => q(234),
+      q(0074) => q(242),
+      q(0075) => q(246),
+      q(0076) => q(250),
+      q(0077) => q(254),
+      q(0078) => q(258),
+      q(0079) => q(260),
+      q(0080) => q(266),
+      q(0081) => q(270),
+      q(0082) => q(268),
+      q(0083) => q(276),
+      q(0084) => q(288),
+      q(0085) => q(292),
+      q(0086) => q(300),
+      q(0087) => q(304),
+      q(0088) => q(308),
+      q(0089) => q(312),
+      q(0090) => q(316),
+      q(0091) => q(320),
+      q(0092) => q(831),
+      q(0093) => q(324),
+      q(0094) => q(624),
+      q(0095) => q(328),
+      q(0096) => q(332),
+      q(0097) => q(334),
+      q(0098) => q(336),
+      q(0099) => q(340),
+      q(0100) => q(344),
+      q(0101) => q(348),
+      q(0102) => q(352),
+      q(0103) => q(356),
+      q(0104) => q(360),
+      q(0105) => q(364),
+      q(0106) => q(368),
+      q(0107) => q(372),
+      q(0108) => q(833),
+      q(0109) => q(376),
+      q(0110) => q(380),
+      q(0111) => q(388),
+      q(0112) => q(392),
+      q(0113) => q(832),
+      q(0114) => q(400),
+      q(0115) => q(398),
+      q(0116) => q(404),
+      q(0117) => q(296),
+      q(0118) => q(408),
+      q(0119) => q(410),
+      q(0120) => q(414),
+      q(0121) => q(417),
+      q(0122) => q(418),
+      q(0123) => q(428),
+      q(0124) => q(422),
+      q(0125) => q(426),
+      q(0126) => q(430),
+      q(0127) => q(434),
+      q(0128) => q(438),
+      q(0129) => q(440),
+      q(0130) => q(442),
+      q(0131) => q(446),
+      q(0132) => q(807),
+      q(0133) => q(450),
+      q(0134) => q(454),
+      q(0135) => q(458),
+      q(0136) => q(462),
+      q(0137) => q(466),
+      q(0138) => q(470),
+      q(0139) => q(584),
+      q(0140) => q(474),
+      q(0141) => q(478),
+      q(0142) => q(480),
+      q(0143) => q(175),
+      q(0144) => q(484),
+      q(0145) => q(583),
+      q(0146) => q(498),
+      q(0147) => q(492),
+      q(0148) => q(496),
+      q(0149) => q(499),
+      q(0150) => q(500),
+      q(0151) => q(504),
+      q(0152) => q(508),
+      q(0153) => q(104),
+      q(0154) => q(516),
+      q(0155) => q(520),
+      q(0156) => q(524),
+      q(0157) => q(528),
+      q(0158) => q(540),
+      q(0159) => q(554),
+      q(0160) => q(558),
+      q(0161) => q(562),
+      q(0162) => q(566),
+      q(0163) => q(570),
+      q(0164) => q(574),
+      q(0165) => q(580),
+      q(0166) => q(578),
+      q(0167) => q(512),
+      q(0168) => q(586),
+      q(0169) => q(585),
+      q(0171) => q(591),
+      q(0172) => q(598),
+      q(0173) => q(600),
+      q(0174) => q(604),
+      q(0175) => q(608),
+      q(0176) => q(612),
+      q(0177) => q(616),
+      q(0178) => q(620),
+      q(0179) => q(630),
+      q(0180) => q(634),
+      q(0181) => q(638),
+      q(0182) => q(642),
+      q(0183) => q(643),
+      q(0184) => q(646),
+      q(0185) => q(652),
+      q(0186) => q(654),
+      q(0187) => q(659),
+      q(0188) => q(662),
+      q(0189) => q(663),
+      q(0190) => q(666),
+      q(0191) => q(670),
+      q(0192) => q(882),
+      q(0193) => q(674),
+      q(0194) => q(678),
+      q(0195) => q(682),
+      q(0196) => q(686),
+      q(0197) => q(688),
+      q(0198) => q(690),
+      q(0199) => q(694),
+      q(0200) => q(702),
+      q(0201) => q(534),
+      q(0202) => q(703),
+      q(0203) => q(705),
+      q(0204) => q(090),
+      q(0205) => q(706),
+      q(0206) => q(710),
+      q(0207) => q(239),
+      q(0208) => q(728),
+      q(0209) => q(724),
+      q(0210) => q(144),
+      q(0211) => q(729),
+      q(0212) => q(740),
+      q(0214) => q(748),
+      q(0215) => q(752),
+      q(0216) => q(756),
+      q(0217) => q(760),
+      q(0218) => q(158),
+      q(0219) => q(762),
+      q(0220) => q(834),
+      q(0221) => q(764),
+      q(0222) => q(626),
+      q(0223) => q(768),
+      q(0224) => q(772),
+      q(0225) => q(776),
+      q(0226) => q(780),
+      q(0227) => q(788),
+      q(0228) => q(792),
+      q(0229) => q(795),
+      q(0230) => q(796),
+      q(0231) => q(798),
+      q(0232) => q(800),
+      q(0233) => q(804),
+      q(0234) => q(784),
+      q(0235) => q(826),
+      q(0237) => q(840),
+      q(0238) => q(858),
+      q(0239) => q(860),
+      q(0240) => q(548),
+      q(0241) => q(862),
+      q(0242) => q(704),
+      q(0243) => q(092),
+      q(0244) => q(850),
+      q(0245) => q(876),
+      q(0246) => q(732),
+      q(0247) => q(887),
+      q(0248) => q(894),
+      q(0249) => q(716),
+      q(0251) => q(900),
+      q(0252) => q(902),
+      q(0253) => q(903),
+      q(0254) => q(904),
+      q(0255) => q(905),
+      q(0256) => q(906),
+      q(0257) => q(907),
+      q(0258) => q(908),
+      q(0259) => q(915),
+      q(0260) => q(916),
+      q(0261) => q(917),
+      q(0262) => q(918),
+      q(0263) => q(919),
+      q(0264) => q(920),
+      q(0265) => q(921),
+      q(0266) => q(922),
+      q(0267) => q(923),
+      q(0268) => q(924),
+      q(0269) => q(901),
+      q(0270) => q(925),
+      q(0271) => q(926),
+      q(0272) => q(927),
+      q(0273) => q(928),
+      q(0274) => q(929),
+      q(0275) => q(930),
+      q(0276) => q(931),
+      q(0277) => q(932),
+      q(0278) => q(933),
+      q(0279) => q(934),
+      },
+   q(numeric) => {
+      q(0001) => q(004),
+      q(0002) => q(248),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(016),
+      q(0006) => q(020),
+      q(0007) => q(024),
+      q(0008) => q(660),
+      q(0009) => q(010),
+      q(0010) => q(028),
+      q(0011) => q(032),
+      q(0012) => q(051),
+      q(0013) => q(533),
+      q(0014) => q(036),
+      q(0015) => q(040),
+      q(0016) => q(031),
+      q(0017) => q(044),
+      q(0018) => q(048),
+      q(0019) => q(050),
+      q(0020) => q(052),
+      q(0021) => q(112),
+      q(0022) => q(056),
+      q(0023) => q(084),
+      q(0024) => q(204),
+      q(0025) => q(060),
+      q(0026) => q(064),
+      q(0027) => q(068),
+      q(0028) => q(535),
+      q(0029) => q(070),
+      q(0030) => q(072),
+      q(0031) => q(074),
+      q(0032) => q(076),
+      q(0033) => q(086),
+      q(0034) => q(096),
+      q(0035) => q(100),
+      q(0036) => q(854),
+      q(0037) => q(108),
+      q(0038) => q(132),
+      q(0039) => q(116),
+      q(0040) => q(120),
+      q(0041) => q(124),
+      q(0042) => q(136),
+      q(0043) => q(140),
+      q(0044) => q(148),
+      q(0045) => q(152),
+      q(0046) => q(156),
+      q(0047) => q(162),
+      q(0048) => q(166),
+      q(0049) => q(170),
+      q(0050) => q(174),
+      q(0051) => q(180),
+      q(0052) => q(178),
+      q(0053) => q(184),
+      q(0054) => q(188),
+      q(0055) => q(384),
+      q(0056) => q(191),
+      q(0057) => q(192),
+      q(0058) => q(531),
+      q(0059) => q(196),
+      q(0060) => q(203),
+      q(0061) => q(208),
+      q(0062) => q(262),
+      q(0063) => q(212),
+      q(0064) => q(214),
+      q(0065) => q(218),
+      q(0066) => q(818),
+      q(0067) => q(222),
+      q(0068) => q(226),
+      q(0069) => q(232),
+      q(0070) => q(233),
+      q(0071) => q(231),
+      q(0072) => q(238),
+      q(0073) => q(234),
+      q(0074) => q(242),
+      q(0075) => q(246),
+      q(0076) => q(250),
+      q(0077) => q(254),
+      q(0078) => q(258),
+      q(0079) => q(260),
+      q(0080) => q(266),
+      q(0081) => q(270),
+      q(0082) => q(268),
+      q(0083) => q(276),
+      q(0084) => q(288),
+      q(0085) => q(292),
+      q(0086) => q(300),
+      q(0087) => q(304),
+      q(0088) => q(308),
+      q(0089) => q(312),
+      q(0090) => q(316),
+      q(0091) => q(320),
+      q(0092) => q(831),
+      q(0093) => q(324),
+      q(0094) => q(624),
+      q(0095) => q(328),
+      q(0096) => q(332),
+      q(0097) => q(334),
+      q(0098) => q(336),
+      q(0099) => q(340),
+      q(0100) => q(344),
+      q(0101) => q(348),
+      q(0102) => q(352),
+      q(0103) => q(356),
+      q(0104) => q(360),
+      q(0105) => q(364),
+      q(0106) => q(368),
+      q(0107) => q(372),
+      q(0108) => q(833),
+      q(0109) => q(376),
+      q(0110) => q(380),
+      q(0111) => q(388),
+      q(0112) => q(392),
+      q(0113) => q(832),
+      q(0114) => q(400),
+      q(0115) => q(398),
+      q(0116) => q(404),
+      q(0117) => q(296),
+      q(0118) => q(408),
+      q(0119) => q(410),
+      q(0120) => q(414),
+      q(0121) => q(417),
+      q(0122) => q(418),
+      q(0123) => q(428),
+      q(0124) => q(422),
+      q(0125) => q(426),
+      q(0126) => q(430),
+      q(0127) => q(434),
+      q(0128) => q(438),
+      q(0129) => q(440),
+      q(0130) => q(442),
+      q(0131) => q(446),
+      q(0132) => q(807),
+      q(0133) => q(450),
+      q(0134) => q(454),
+      q(0135) => q(458),
+      q(0136) => q(462),
+      q(0137) => q(466),
+      q(0138) => q(470),
+      q(0139) => q(584),
+      q(0140) => q(474),
+      q(0141) => q(478),
+      q(0142) => q(480),
+      q(0143) => q(175),
+      q(0144) => q(484),
+      q(0145) => q(583),
+      q(0146) => q(498),
+      q(0147) => q(492),
+      q(0148) => q(496),
+      q(0149) => q(499),
+      q(0150) => q(500),
+      q(0151) => q(504),
+      q(0152) => q(508),
+      q(0153) => q(104),
+      q(0154) => q(516),
+      q(0155) => q(520),
+      q(0156) => q(524),
+      q(0157) => q(528),
+      q(0158) => q(540),
+      q(0159) => q(554),
+      q(0160) => q(558),
+      q(0161) => q(562),
+      q(0162) => q(566),
+      q(0163) => q(570),
+      q(0164) => q(574),
+      q(0165) => q(580),
+      q(0166) => q(578),
+      q(0167) => q(512),
+      q(0168) => q(586),
+      q(0169) => q(585),
+      q(0170) => q(275),
+      q(0171) => q(591),
+      q(0172) => q(598),
+      q(0173) => q(600),
+      q(0174) => q(604),
+      q(0175) => q(608),
+      q(0176) => q(612),
+      q(0177) => q(616),
+      q(0178) => q(620),
+      q(0179) => q(630),
+      q(0180) => q(634),
+      q(0181) => q(638),
+      q(0182) => q(642),
+      q(0183) => q(643),
+      q(0184) => q(646),
+      q(0185) => q(652),
+      q(0186) => q(654),
+      q(0187) => q(659),
+      q(0188) => q(662),
+      q(0189) => q(663),
+      q(0190) => q(666),
+      q(0191) => q(670),
+      q(0192) => q(882),
+      q(0193) => q(674),
+      q(0194) => q(678),
+      q(0195) => q(682),
+      q(0196) => q(686),
+      q(0197) => q(688),
+      q(0198) => q(690),
+      q(0199) => q(694),
+      q(0200) => q(702),
+      q(0201) => q(534),
+      q(0202) => q(703),
+      q(0203) => q(705),
+      q(0204) => q(090),
+      q(0205) => q(706),
+      q(0206) => q(710),
+      q(0207) => q(239),
+      q(0208) => q(728),
+      q(0209) => q(724),
+      q(0210) => q(144),
+      q(0211) => q(729),
+      q(0212) => q(740),
+      q(0213) => q(744),
+      q(0214) => q(748),
+      q(0215) => q(752),
+      q(0216) => q(756),
+      q(0217) => q(760),
+      q(0218) => q(158),
+      q(0219) => q(762),
+      q(0220) => q(834),
+      q(0221) => q(764),
+      q(0222) => q(626),
+      q(0223) => q(768),
+      q(0224) => q(772),
+      q(0225) => q(776),
+      q(0226) => q(780),
+      q(0227) => q(788),
+      q(0228) => q(792),
+      q(0229) => q(795),
+      q(0230) => q(796),
+      q(0231) => q(798),
+      q(0232) => q(800),
+      q(0233) => q(804),
+      q(0234) => q(784),
+      q(0235) => q(826),
+      q(0236) => q(581),
+      q(0237) => q(840),
+      q(0238) => q(858),
+      q(0239) => q(860),
+      q(0240) => q(548),
+      q(0241) => q(862),
+      q(0242) => q(704),
+      q(0243) => q(092),
+      q(0244) => q(850),
+      q(0245) => q(876),
+      q(0246) => q(732),
+      q(0247) => q(887),
+      q(0248) => q(894),
+      q(0249) => q(716),
+      },
+   q(un-alpha-3) => {
+      q(0001) => q(AFG),
+      q(0002) => q(ALA),
+      q(0003) => q(ALB),
+      q(0004) => q(DZA),
+      q(0005) => q(ASM),
+      q(0006) => q(AND),
+      q(0007) => q(AGO),
+      q(0008) => q(AIA),
+      q(0009) => q(ATA),
+      q(0010) => q(ATG),
+      q(0011) => q(ARG),
+      q(0012) => q(ARM),
+      q(0013) => q(ABW),
+      q(0014) => q(AUS),
+      q(0015) => q(AUT),
+      q(0016) => q(AZE),
+      q(0017) => q(BHS),
+      q(0018) => q(BHR),
+      q(0019) => q(BGD),
+      q(0020) => q(BRB),
+      q(0021) => q(BLR),
+      q(0022) => q(BEL),
+      q(0023) => q(BLZ),
+      q(0024) => q(BEN),
+      q(0025) => q(BMU),
+      q(0026) => q(BTN),
+      q(0027) => q(BOL),
+      q(0028) => q(BES),
+      q(0029) => q(BIH),
+      q(0030) => q(BWA),
+      q(0031) => q(BVT),
+      q(0032) => q(BRA),
+      q(0033) => q(IOT),
+      q(0034) => q(BRN),
+      q(0035) => q(BGR),
+      q(0036) => q(BFA),
+      q(0037) => q(BDI),
+      q(0038) => q(CPV),
+      q(0039) => q(KHM),
+      q(0040) => q(CMR),
+      q(0041) => q(CAN),
+      q(0042) => q(CYM),
+      q(0043) => q(CAF),
+      q(0044) => q(TCD),
+      q(0045) => q(CHL),
+      q(0046) => q(CHN),
+      q(0047) => q(CXR),
+      q(0048) => q(CCK),
+      q(0049) => q(COL),
+      q(0050) => q(COM),
+      q(0051) => q(COD),
+      q(0052) => q(COG),
+      q(0053) => q(COK),
+      q(0054) => q(CRI),
+      q(0055) => q(CIV),
+      q(0056) => q(HRV),
+      q(0057) => q(CUB),
+      q(0058) => q(CUW),
+      q(0059) => q(CYP),
+      q(0060) => q(CZE),
+      q(0061) => q(DNK),
+      q(0062) => q(DJI),
+      q(0063) => q(DMA),
+      q(0064) => q(DOM),
+      q(0065) => q(ECU),
+      q(0066) => q(EGY),
+      q(0067) => q(SLV),
+      q(0068) => q(GNQ),
+      q(0069) => q(ERI),
+      q(0070) => q(EST),
+      q(0071) => q(ETH),
+      q(0072) => q(FLK),
+      q(0073) => q(FRO),
+      q(0074) => q(FJI),
+      q(0075) => q(FIN),
+      q(0076) => q(FRA),
+      q(0077) => q(GUF),
+      q(0078) => q(PYF),
+      q(0079) => q(ATF),
+      q(0080) => q(GAB),
+      q(0081) => q(GMB),
+      q(0082) => q(GEO),
+      q(0083) => q(DEU),
+      q(0084) => q(GHA),
+      q(0085) => q(GIB),
+      q(0086) => q(GRC),
+      q(0087) => q(GRL),
+      q(0088) => q(GRD),
+      q(0089) => q(GLP),
+      q(0090) => q(GUM),
+      q(0091) => q(GTM),
+      q(0092) => q(GGY),
+      q(0093) => q(GIN),
+      q(0094) => q(GNB),
+      q(0095) => q(GUY),
+      q(0096) => q(HTI),
+      q(0097) => q(HMD),
+      q(0098) => q(VAT),
+      q(0099) => q(HND),
+      q(0100) => q(HKG),
+      q(0101) => q(HUN),
+      q(0102) => q(ISL),
+      q(0103) => q(IND),
+      q(0104) => q(IDN),
+      q(0105) => q(IRN),
+      q(0106) => q(IRQ),
+      q(0107) => q(IRL),
+      q(0108) => q(IMN),
+      q(0109) => q(ISR),
+      q(0110) => q(ITA),
+      q(0111) => q(JAM),
+      q(0112) => q(JPN),
+      q(0113) => q(JEY),
+      q(0114) => q(JOR),
+      q(0115) => q(KAZ),
+      q(0116) => q(KEN),
+      q(0117) => q(KIR),
+      q(0118) => q(PRK),
+      q(0119) => q(KOR),
+      q(0120) => q(KWT),
+      q(0121) => q(KGZ),
+      q(0122) => q(LAO),
+      q(0123) => q(LVA),
+      q(0124) => q(LBN),
+      q(0125) => q(LSO),
+      q(0126) => q(LBR),
+      q(0127) => q(LBY),
+      q(0128) => q(LIE),
+      q(0129) => q(LTU),
+      q(0130) => q(LUX),
+      q(0131) => q(MAC),
+      q(0132) => q(MKD),
+      q(0133) => q(MDG),
+      q(0134) => q(MWI),
+      q(0135) => q(MYS),
+      q(0136) => q(MDV),
+      q(0137) => q(MLI),
+      q(0138) => q(MLT),
+      q(0139) => q(MHL),
+      q(0140) => q(MTQ),
+      q(0141) => q(MRT),
+      q(0142) => q(MUS),
+      q(0143) => q(MYT),
+      q(0144) => q(MEX),
+      q(0145) => q(FSM),
+      q(0146) => q(MDA),
+      q(0147) => q(MCO),
+      q(0148) => q(MNG),
+      q(0149) => q(MNE),
+      q(0150) => q(MSR),
+      q(0151) => q(MAR),
+      q(0152) => q(MOZ),
+      q(0153) => q(MMR),
+      q(0154) => q(NAM),
+      q(0155) => q(NRU),
+      q(0156) => q(NPL),
+      q(0157) => q(NLD),
+      q(0158) => q(NCL),
+      q(0159) => q(NZL),
+      q(0160) => q(NIC),
+      q(0161) => q(NER),
+      q(0162) => q(NGA),
+      q(0163) => q(NIU),
+      q(0164) => q(NFK),
+      q(0165) => q(MNP),
+      q(0166) => q(NOR),
+      q(0167) => q(OMN),
+      q(0168) => q(PAK),
+      q(0169) => q(PLW),
+      q(0170) => q(PSE),
+      q(0171) => q(PAN),
+      q(0172) => q(PNG),
+      q(0173) => q(PRY),
+      q(0174) => q(PER),
+      q(0175) => q(PHL),
+      q(0176) => q(PCN),
+      q(0177) => q(POL),
+      q(0178) => q(PRT),
+      q(0179) => q(PRI),
+      q(0180) => q(QAT),
+      q(0181) => q(REU),
+      q(0182) => q(ROU),
+      q(0183) => q(RUS),
+      q(0184) => q(RWA),
+      q(0185) => q(BLM),
+      q(0186) => q(SHN),
+      q(0187) => q(KNA),
+      q(0188) => q(LCA),
+      q(0189) => q(MAF),
+      q(0190) => q(SPM),
+      q(0191) => q(VCT),
+      q(0192) => q(WSM),
+      q(0193) => q(SMR),
+      q(0194) => q(STP),
+      q(0195) => q(SAU),
+      q(0196) => q(SEN),
+      q(0197) => q(SRB),
+      q(0198) => q(SYC),
+      q(0199) => q(SLE),
+      q(0200) => q(SGP),
+      q(0201) => q(SXM),
+      q(0202) => q(SVK),
+      q(0203) => q(SVN),
+      q(0204) => q(SLB),
+      q(0205) => q(SOM),
+      q(0206) => q(ZAF),
+      q(0207) => q(SGS),
+      q(0208) => q(SSD),
+      q(0209) => q(ESP),
+      q(0210) => q(LKA),
+      q(0211) => q(SDN),
+      q(0212) => q(SUR),
+      q(0213) => q(SJM),
+      q(0214) => q(SWZ),
+      q(0215) => q(SWE),
+      q(0216) => q(CHE),
+      q(0217) => q(SYR),
+      q(0219) => q(TJK),
+      q(0220) => q(TZA),
+      q(0221) => q(THA),
+      q(0222) => q(TLS),
+      q(0223) => q(TGO),
+      q(0224) => q(TKL),
+      q(0225) => q(TON),
+      q(0226) => q(TTO),
+      q(0227) => q(TUN),
+      q(0228) => q(TUR),
+      q(0229) => q(TKM),
+      q(0230) => q(TCA),
+      q(0231) => q(TUV),
+      q(0232) => q(UGA),
+      q(0233) => q(UKR),
+      q(0234) => q(ARE),
+      q(0235) => q(GBR),
+      q(0236) => q(UMI),
+      q(0237) => q(USA),
+      q(0238) => q(URY),
+      q(0239) => q(UZB),
+      q(0240) => q(VUT),
+      q(0241) => q(VEN),
+      q(0242) => q(VNM),
+      q(0243) => q(VGB),
+      q(0244) => q(VIR),
+      q(0245) => q(WLF),
+      q(0246) => q(ESH),
+      q(0247) => q(YEM),
+      q(0248) => q(ZMB),
+      q(0249) => q(ZWE),
+      },
+   q(un-numeric) => {
+      q(0001) => q(004),
+      q(0002) => q(248),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(016),
+      q(0006) => q(020),
+      q(0007) => q(024),
+      q(0008) => q(660),
+      q(0009) => q(010),
+      q(0010) => q(028),
+      q(0011) => q(032),
+      q(0012) => q(051),
+      q(0013) => q(533),
+      q(0014) => q(036),
+      q(0015) => q(040),
+      q(0016) => q(031),
+      q(0017) => q(044),
+      q(0018) => q(048),
+      q(0019) => q(050),
+      q(0020) => q(052),
+      q(0021) => q(112),
+      q(0022) => q(056),
+      q(0023) => q(084),
+      q(0024) => q(204),
+      q(0025) => q(060),
+      q(0026) => q(064),
+      q(0027) => q(068),
+      q(0028) => q(535),
+      q(0029) => q(070),
+      q(0030) => q(072),
+      q(0031) => q(074),
+      q(0032) => q(076),
+      q(0033) => q(086),
+      q(0034) => q(096),
+      q(0035) => q(100),
+      q(0036) => q(854),
+      q(0037) => q(108),
+      q(0038) => q(132),
+      q(0039) => q(116),
+      q(0040) => q(120),
+      q(0041) => q(124),
+      q(0042) => q(136),
+      q(0043) => q(140),
+      q(0044) => q(148),
+      q(0045) => q(152),
+      q(0046) => q(156),
+      q(0047) => q(162),
+      q(0048) => q(166),
+      q(0049) => q(170),
+      q(0050) => q(174),
+      q(0051) => q(180),
+      q(0052) => q(178),
+      q(0053) => q(184),
+      q(0054) => q(188),
+      q(0055) => q(384),
+      q(0056) => q(191),
+      q(0057) => q(192),
+      q(0058) => q(531),
+      q(0059) => q(196),
+      q(0060) => q(203),
+      q(0061) => q(208),
+      q(0062) => q(262),
+      q(0063) => q(212),
+      q(0064) => q(214),
+      q(0065) => q(218),
+      q(0066) => q(818),
+      q(0067) => q(222),
+      q(0068) => q(226),
+      q(0069) => q(232),
+      q(0070) => q(233),
+      q(0071) => q(231),
+      q(0072) => q(238),
+      q(0073) => q(234),
+      q(0074) => q(242),
+      q(0075) => q(246),
+      q(0076) => q(250),
+      q(0077) => q(254),
+      q(0078) => q(258),
+      q(0079) => q(260),
+      q(0080) => q(266),
+      q(0081) => q(270),
+      q(0082) => q(268),
+      q(0083) => q(276),
+      q(0084) => q(288),
+      q(0085) => q(292),
+      q(0086) => q(300),
+      q(0087) => q(304),
+      q(0088) => q(308),
+      q(0089) => q(312),
+      q(0090) => q(316),
+      q(0091) => q(320),
+      q(0092) => q(831),
+      q(0093) => q(324),
+      q(0094) => q(624),
+      q(0095) => q(328),
+      q(0096) => q(332),
+      q(0097) => q(334),
+      q(0098) => q(336),
+      q(0099) => q(340),
+      q(0100) => q(344),
+      q(0101) => q(348),
+      q(0102) => q(352),
+      q(0103) => q(356),
+      q(0104) => q(360),
+      q(0105) => q(364),
+      q(0106) => q(368),
+      q(0107) => q(372),
+      q(0108) => q(833),
+      q(0109) => q(376),
+      q(0110) => q(380),
+      q(0111) => q(388),
+      q(0112) => q(392),
+      q(0113) => q(832),
+      q(0114) => q(400),
+      q(0115) => q(398),
+      q(0116) => q(404),
+      q(0117) => q(296),
+      q(0118) => q(408),
+      q(0119) => q(410),
+      q(0120) => q(414),
+      q(0121) => q(417),
+      q(0122) => q(418),
+      q(0123) => q(428),
+      q(0124) => q(422),
+      q(0125) => q(426),
+      q(0126) => q(430),
+      q(0127) => q(434),
+      q(0128) => q(438),
+      q(0129) => q(440),
+      q(0130) => q(442),
+      q(0131) => q(446),
+      q(0132) => q(807),
+      q(0133) => q(450),
+      q(0134) => q(454),
+      q(0135) => q(458),
+      q(0136) => q(462),
+      q(0137) => q(466),
+      q(0138) => q(470),
+      q(0139) => q(584),
+      q(0140) => q(474),
+      q(0141) => q(478),
+      q(0142) => q(480),
+      q(0143) => q(175),
+      q(0144) => q(484),
+      q(0145) => q(583),
+      q(0146) => q(498),
+      q(0147) => q(492),
+      q(0148) => q(496),
+      q(0149) => q(499),
+      q(0150) => q(500),
+      q(0151) => q(504),
+      q(0152) => q(508),
+      q(0153) => q(104),
+      q(0154) => q(516),
+      q(0155) => q(520),
+      q(0156) => q(524),
+      q(0157) => q(528),
+      q(0158) => q(540),
+      q(0159) => q(554),
+      q(0160) => q(558),
+      q(0161) => q(562),
+      q(0162) => q(566),
+      q(0163) => q(570),
+      q(0164) => q(574),
+      q(0165) => q(580),
+      q(0166) => q(578),
+      q(0167) => q(512),
+      q(0168) => q(586),
+      q(0169) => q(585),
+      q(0170) => q(275),
+      q(0171) => q(591),
+      q(0172) => q(598),
+      q(0173) => q(600),
+      q(0174) => q(604),
+      q(0175) => q(608),
+      q(0176) => q(612),
+      q(0177) => q(616),
+      q(0178) => q(620),
+      q(0179) => q(630),
+      q(0180) => q(634),
+      q(0181) => q(638),
+      q(0182) => q(642),
+      q(0183) => q(643),
+      q(0184) => q(646),
+      q(0185) => q(652),
+      q(0186) => q(654),
+      q(0187) => q(659),
+      q(0188) => q(662),
+      q(0189) => q(663),
+      q(0190) => q(666),
+      q(0191) => q(670),
+      q(0192) => q(882),
+      q(0193) => q(674),
+      q(0194) => q(678),
+      q(0195) => q(682),
+      q(0196) => q(686),
+      q(0197) => q(688),
+      q(0198) => q(690),
+      q(0199) => q(694),
+      q(0200) => q(702),
+      q(0201) => q(534),
+      q(0202) => q(703),
+      q(0203) => q(705),
+      q(0204) => q(090),
+      q(0205) => q(706),
+      q(0206) => q(710),
+      q(0207) => q(239),
+      q(0208) => q(728),
+      q(0209) => q(724),
+      q(0210) => q(144),
+      q(0211) => q(729),
+      q(0212) => q(740),
+      q(0213) => q(744),
+      q(0214) => q(748),
+      q(0215) => q(752),
+      q(0216) => q(756),
+      q(0217) => q(760),
+      q(0219) => q(762),
+      q(0220) => q(834),
+      q(0221) => q(764),
+      q(0222) => q(626),
+      q(0223) => q(768),
+      q(0224) => q(772),
+      q(0225) => q(776),
+      q(0226) => q(780),
+      q(0227) => q(788),
+      q(0228) => q(792),
+      q(0229) => q(795),
+      q(0230) => q(796),
+      q(0231) => q(798),
+      q(0232) => q(800),
+      q(0233) => q(804),
+      q(0234) => q(784),
+      q(0235) => q(826),
+      q(0236) => q(581),
+      q(0237) => q(840),
+      q(0238) => q(858),
+      q(0239) => q(860),
+      q(0240) => q(548),
+      q(0241) => q(862),
+      q(0242) => q(704),
+      q(0243) => q(092),
+      q(0244) => q(850),
+      q(0245) => q(876),
+      q(0246) => q(732),
+      q(0247) => q(887),
+      q(0248) => q(894),
+      q(0249) => q(716),
+      q(0250) => q(680),
+      },
+};
+
+1;
+package Locale::Codes::Currency;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2currency
+                currency2code
+                all_currency_codes
+                all_currency_names
+                currency_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_CURRENCY);
+
+our $obj = new Locale::Codes('currency');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2currency {
+   return $obj->code2name(@_);
+}
+
+sub currency2code {
+   return $obj->name2code(@_);
+}
+
+sub currency_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_currency_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_currency_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_currency {
+   return $obj->rename_code(@_);
+}
+
+sub add_currency {
+   return $obj->add_code(@_);
+}
+
+sub delete_currency {
+   return $obj->delete_code(@_);
+}
+
+sub add_currency_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_currency_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_currency_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_currency_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_currency_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::Language_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:17:53 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'language'}{'id'} = '7961';
+
+$Locale::Codes::Data{'language'}{'id2names'} = {
+   q(0001) => [
+      q(Afar),
+      ],
+   q(0002) => [
+      q(Abkhazian),
+      ],
+   q(0003) => [
+      q(Achinese),
+      ],
+   q(0004) => [
+      q(Acoli),
+      ],
+   q(0005) => [
+      q(Adangme),
+      ],
+   q(0006) => [
+      q(Adyghe),
+      q(Adygei),
+      ],
+   q(0007) => [
+      q(Afro-Asiatic languages),
+      ],
+   q(0008) => [
+      q(Afrihili),
+      ],
+   q(0009) => [
+      q(Afrikaans),
+      ],
+   q(0010) => [
+      q(Ainu),
+      q(Ainu (Japan)),
+      ],
+   q(0011) => [
+      q(Akan),
+      ],
+   q(0012) => [
+      q(Akkadian),
+      ],
+   q(0013) => [
+      q(Albanian),
+      ],
+   q(0014) => [
+      q(Aleut),
+      ],
+   q(0015) => [
+      q(Algonquian languages),
+      ],
+   q(0016) => [
+      q(Southern Altai),
+      ],
+   q(0017) => [
+      q(Amharic),
+      ],
+   q(0018) => [
+      q(English, Old (ca.450-1100)),
+      q(Old English (ca. 450-1100)),
+      ],
+   q(0019) => [
+      q(Angika),
+      ],
+   q(0020) => [
+      q(Apache languages),
+      ],
+   q(0021) => [
+      q(Arabic),
+      ],
+   q(0022) => [
+      q(Official Aramaic (700-300 BCE)),
+      q(Imperial Aramaic (700-300 BCE)),
+      ],
+   q(0023) => [
+      q(Aragonese),
+      ],
+   q(0024) => [
+      q(Armenian),
+      ],
+   q(0025) => [
+      q(Mapudungun),
+      q(Mapuche),
+      ],
+   q(0026) => [
+      q(Arapaho),
+      ],
+   q(0027) => [
+      q(Artificial languages),
+      ],
+   q(0028) => [
+      q(Arawak),
+      ],
+   q(0029) => [
+      q(Assamese),
+      ],
+   q(0030) => [
+      q(Asturian),
+      q(Bable),
+      q(Leonese),
+      q(Asturleonese),
+      ],
+   q(0031) => [
+      q(Athapascan languages),
+      ],
+   q(0032) => [
+      q(Australian languages),
+      ],
+   q(0033) => [
+      q(Avaric),
+      ],
+   q(0034) => [
+      q(Avestan),
+      ],
+   q(0035) => [
+      q(Awadhi),
+      ],
+   q(0036) => [
+      q(Aymara),
+      ],
+   q(0037) => [
+      q(Azerbaijani),
+      ],
+   q(0038) => [
+      q(Banda languages),
+      ],
+   q(0039) => [
+      q(Bamileke languages),
+      ],
+   q(0040) => [
+      q(Bashkir),
+      ],
+   q(0041) => [
+      q(Baluchi),
+      ],
+   q(0042) => [
+      q(Bambara),
+      ],
+   q(0043) => [
+      q(Balinese),
+      ],
+   q(0044) => [
+      q(Basque),
+      ],
+   q(0045) => [
+      q(Basa),
+      q(Basa (Cameroon)),
+      ],
+   q(0046) => [
+      q(Baltic languages),
+      ],
+   q(0047) => [
+      q(Beja),
+      q(Bedawiyet),
+      ],
+   q(0048) => [
+      q(Belarusian),
+      ],
+   q(0049) => [
+      q(Bemba),
+      q(Bemba (Zambia)),
+      ],
+   q(0050) => [
+      q(Bengali),
+      q(Bangla),
+      ],
+   q(0051) => [
+      q(Berber languages),
+      ],
+   q(0052) => [
+      q(Bhojpuri),
+      ],
+   q(0053) => [
+      q(Bihari languages),
+      ],
+   q(0054) => [
+      q(Bikol),
+      ],
+   q(0055) => [
+      q(Bini),
+      q(Edo),
+      ],
+   q(0056) => [
+      q(Bislama),
+      ],
+   q(0057) => [
+      q(Siksika),
+      ],
+   q(0058) => [
+      q(Bantu (Other)),
+      q(Bantu languages),
+      ],
+   q(0059) => [
+      q(Bosnian),
+      ],
+   q(0060) => [
+      q(Braj),
+      ],
+   q(0061) => [
+      q(Breton),
+      ],
+   q(0062) => [
+      q(Batak languages),
+      ],
+   q(0063) => [
+      q(Buriat),
+      ],
+   q(0064) => [
+      q(Buginese),
+      ],
+   q(0065) => [
+      q(Bulgarian),
+      ],
+   q(0066) => [
+      q(Burmese),
+      ],
+   q(0067) => [
+      q(Blin),
+      q(Bilin),
+      ],
+   q(0068) => [
+      q(Caddo),
+      ],
+   q(0069) => [
+      q(Central American Indian languages),
+      ],
+   q(0070) => [
+      q(Galibi Carib),
+      ],
+   q(0071) => [
+      q(Catalan),
+      q(Valencian),
+      ],
+   q(0072) => [
+      q(Caucasian languages),
+      ],
+   q(0073) => [
+      q(Cebuano),
+      ],
+   q(0074) => [
+      q(Celtic languages),
+      ],
+   q(0075) => [
+      q(Chamorro),
+      ],
+   q(0076) => [
+      q(Chibcha),
+      ],
+   q(0077) => [
+      q(Chechen),
+      ],
+   q(0078) => [
+      q(Chagatai),
+      ],
+   q(0079) => [
+      q(Chinese),
+      ],
+   q(0080) => [
+      q(Chuukese),
+      ],
+   q(0081) => [
+      q(Mari),
+      q(Mari (Russia)),
+      ],
+   q(0082) => [
+      q(Chinook jargon),
+      ],
+   q(0083) => [
+      q(Choctaw),
+      ],
+   q(0084) => [
+      q(Chipewyan),
+      q(Dene Suline),
+      ],
+   q(0085) => [
+      q(Cherokee),
+      ],
+   q(0086) => [
+      q(Church Slavic),
+      q(Old Slavonic),
+      q(Church Slavonic),
+      q(Old Bulgarian),
+      q(Old Church Slavonic),
+      ],
+   q(0087) => [
+      q(Chuvash),
+      ],
+   q(0088) => [
+      q(Cheyenne),
+      ],
+   q(0089) => [
+      q(Chamic languages),
+      ],
+   q(0090) => [
+      q(Montenegrin),
+      ],
+   q(0091) => [
+      q(Coptic),
+      ],
+   q(0092) => [
+      q(Cornish),
+      ],
+   q(0093) => [
+      q(Corsican),
+      ],
+   q(0094) => [
+      q(Creoles and pidgins, English based),
+      q(Creoles and pidgins, English-based),
+      q(English-based creoles and pidgins),
+      ],
+   q(0095) => [
+      q(Creoles and pidgins, French-based ),
+      q(Creoles and pidgins, French-based),
+      q(French-based creoles and pidgins),
+      ],
+   q(0096) => [
+      q(Creoles and pidgins, Portuguese-based ),
+      q(Creoles and pidgins, Portuguese-based),
+      q(Portuguese-based creoles and pidgins),
+      ],
+   q(0097) => [
+      q(Cree),
+      ],
+   q(0098) => [
+      q(Crimean Tatar),
+      q(Crimean Turkish),
+      ],
+   q(0099) => [
+      q(Creoles and pidgins ),
+      q(Creoles and pidgins),
+      ],
+   q(0100) => [
+      q(Kashubian),
+      ],
+   q(0101) => [
+      q(Cushitic languages),
+      ],
+   q(0102) => [
+      q(Czech),
+      ],
+   q(0103) => [
+      q(Dakota),
+      ],
+   q(0104) => [
+      q(Danish),
+      ],
+   q(0105) => [
+      q(Dargwa),
+      ],
+   q(0106) => [
+      q(Land Dayak languages),
+      ],
+   q(0107) => [
+      q(Delaware),
+      ],
+   q(0108) => [
+      q(Slave (Athapascan)),
+      ],
+   q(0109) => [
+      q(Dogrib),
+      ],
+   q(0110) => [
+      q(Dinka),
+      ],
+   q(0111) => [
+      q(Divehi),
+      q(Dhivehi),
+      q(Maldivian),
+      ],
+   q(0112) => [
+      q(Dogri),
+      q(Dogri (macrolanguage)),
+      ],
+   q(0113) => [
+      q(Dravidian languages),
+      ],
+   q(0114) => [
+      q(Lower Sorbian),
+      ],
+   q(0115) => [
+      q(Duala),
+      ],
+   q(0116) => [
+      q(Dutch, Middle (ca.1050-1350)),
+      q(Middle Dutch (ca. 1050-1350)),
+      ],
+   q(0117) => [
+      q(Dutch),
+      q(Flemish),
+      ],
+   q(0118) => [
+      q(Dyula),
+      ],
+   q(0119) => [
+      q(Dzongkha),
+      ],
+   q(0120) => [
+      q(Efik),
+      ],
+   q(0121) => [
+      q(Egyptian (Ancient)),
+      ],
+   q(0122) => [
+      q(Ekajuk),
+      ],
+   q(0123) => [
+      q(Elamite),
+      ],
+   q(0124) => [
+      q(English),
+      ],
+   q(0125) => [
+      q(English, Middle (1100-1500)),
+      q(Middle English (1100-1500)),
+      ],
+   q(0126) => [
+      q(Esperanto),
+      ],
+   q(0127) => [
+      q(Estonian),
+      ],
+   q(0128) => [
+      q(Ewe),
+      ],
+   q(0129) => [
+      q(Ewondo),
+      ],
+   q(0130) => [
+      q(Fang),
+      q(Fang (Equatorial Guinea)),
+      ],
+   q(0131) => [
+      q(Faroese),
+      ],
+   q(0132) => [
+      q(Fanti),
+      ],
+   q(0133) => [
+      q(Fijian),
+      ],
+   q(0134) => [
+      q(Filipino),
+      q(Pilipino),
+      ],
+   q(0135) => [
+      q(Finnish),
+      ],
+   q(0136) => [
+      q(Finno-Ugrian languages),
+      ],
+   q(0137) => [
+      q(Fon),
+      ],
+   q(0138) => [
+      q(French),
+      ],
+   q(0139) => [
+      q(French, Middle (ca.1400-1600)),
+      q(Middle French (ca. 1400-1600)),
+      ],
+   q(0140) => [
+      q(French, Old (842-ca.1400)),
+      q(Old French (842-ca. 1400)),
+      ],
+   q(0141) => [
+      q(Northern Frisian),
+      ],
+   q(0142) => [
+      q(Eastern Frisian),
+      ],
+   q(0143) => [
+      q(Western Frisian),
+      ],
+   q(0144) => [
+      q(Fulah),
+      ],
+   q(0145) => [
+      q(Friulian),
+      ],
+   q(0146) => [
+      q(Ga),
+      ],
+   q(0147) => [
+      q(Gayo),
+      ],
+   q(0148) => [
+      q(Gbaya),
+      q(Gbaya (Central African Republic)),
+      ],
+   q(0149) => [
+      q(Germanic languages),
+      ],
+   q(0150) => [
+      q(Georgian),
+      ],
+   q(0151) => [
+      q(German),
+      ],
+   q(0152) => [
+      q(Geez),
+      ],
+   q(0153) => [
+      q(Gilbertese),
+      ],
+   q(0154) => [
+      q(Gaelic),
+      q(Scottish Gaelic),
+      ],
+   q(0155) => [
+      q(Irish),
+      ],
+   q(0156) => [
+      q(Galician),
+      ],
+   q(0157) => [
+      q(Manx),
+      ],
+   q(0158) => [
+      q(German, Middle High (ca.1050-1500)),
+      q(Middle High German (ca. 1050-1500)),
+      ],
+   q(0159) => [
+      q(German, Old High (ca.750-1050)),
+      q(Old High German (ca. 750-1050)),
+      ],
+   q(0160) => [
+      q(Gondi),
+      ],
+   q(0161) => [
+      q(Gorontalo),
+      ],
+   q(0162) => [
+      q(Gothic),
+      ],
+   q(0163) => [
+      q(Grebo),
+      ],
+   q(0164) => [
+      q(Greek, Ancient (to 1453)),
+      q(Ancient Greek (to 1453)),
+      ],
+   q(0165) => [
+      q(Greek, Modern (1453-)),
+      q(Greek),
+      q(Modern Greek (1453-)),
+      ],
+   q(0166) => [
+      q(Guarani),
+      ],
+   q(0167) => [
+      q(Swiss German),
+      q(Alemannic),
+      q(Alsatian),
+      ],
+   q(0168) => [
+      q(Gujarati),
+      ],
+   q(0169) => [
+      q(Gwich'in),
+      ],
+   q(0170) => [
+      q(Haida),
+      ],
+   q(0171) => [
+      q(Haitian),
+      q(Haitian Creole),
+      ],
+   q(0172) => [
+      q(Hausa),
+      ],
+   q(0173) => [
+      q(Hawaiian),
+      ],
+   q(0174) => [
+      q(Hebrew),
+      ],
+   q(0175) => [
+      q(Herero),
+      ],
+   q(0176) => [
+      q(Hiligaynon),
+      ],
+   q(0177) => [
+      q(Himachali languages),
+      q(Western Pahari languages),
+      ],
+   q(0178) => [
+      q(Hindi),
+      ],
+   q(0179) => [
+      q(Hittite),
+      ],
+   q(0180) => [
+      q(Hmong),
+      q(Mong),
+      ],
+   q(0181) => [
+      q(Hiri Motu),
+      ],
+   q(0182) => [
+      q(Croatian),
+      ],
+   q(0183) => [
+      q(Upper Sorbian),
+      ],
+   q(0184) => [
+      q(Hungarian),
+      ],
+   q(0185) => [
+      q(Hupa),
+      ],
+   q(0186) => [
+      q(Iban),
+      ],
+   q(0187) => [
+      q(Igbo),
+      ],
+   q(0188) => [
+      q(Icelandic),
+      ],
+   q(0189) => [
+      q(Ido),
+      ],
+   q(0190) => [
+      q(Sichuan Yi),
+      q(Nuosu),
+      ],
+   q(0191) => [
+      q(Ijo languages),
+      ],
+   q(0192) => [
+      q(Inuktitut),
+      ],
+   q(0193) => [
+      q(Interlingue),
+      q(Occidental),
+      ],
+   q(0194) => [
+      q(Iloko),
+      ],
+   q(0195) => [
+      q(Interlingua (International Auxiliary Language Association)),
+      ],
+   q(0196) => [
+      q(Indic languages),
+      ],
+   q(0197) => [
+      q(Indonesian),
+      ],
+   q(0198) => [
+      q(Indo-European languages),
+      ],
+   q(0199) => [
+      q(Ingush),
+      ],
+   q(0200) => [
+      q(Inupiaq),
+      ],
+   q(0201) => [
+      q(Iranian languages),
+      ],
+   q(0202) => [
+      q(Iroquoian languages),
+      ],
+   q(0203) => [
+      q(Italian),
+      ],
+   q(0204) => [
+      q(Javanese),
+      ],
+   q(0205) => [
+      q(Lojban),
+      ],
+   q(0206) => [
+      q(Japanese),
+      ],
+   q(0207) => [
+      q(Judeo-Persian),
+      ],
+   q(0208) => [
+      q(Judeo-Arabic),
+      ],
+   q(0209) => [
+      q(Kara-Kalpak),
+      ],
+   q(0210) => [
+      q(Kabyle),
+      ],
+   q(0211) => [
+      q(Kachin),
+      q(Jingpho),
+      ],
+   q(0212) => [
+      q(Kalaallisut),
+      q(Greenlandic),
+      ],
+   q(0213) => [
+      q(Kamba),
+      q(Kamba (Kenya)),
+      ],
+   q(0214) => [
+      q(Kannada),
+      ],
+   q(0215) => [
+      q(Karen languages),
+      ],
+   q(0216) => [
+      q(Kashmiri),
+      ],
+   q(0217) => [
+      q(Kanuri),
+      ],
+   q(0218) => [
+      q(Kawi),
+      ],
+   q(0219) => [
+      q(Kazakh),
+      ],
+   q(0220) => [
+      q(Kabardian),
+      ],
+   q(0221) => [
+      q(Khasi),
+      ],
+   q(0222) => [
+      q(Khoisan languages),
+      ],
+   q(0223) => [
+      q(Central Khmer),
+      ],
+   q(0224) => [
+      q(Khotanese),
+      q(Sakan),
+      ],
+   q(0225) => [
+      q(Kikuyu),
+      q(Gikuyu),
+      ],
+   q(0226) => [
+      q(Kinyarwanda),
+      ],
+   q(0227) => [
+      q(Kirghiz),
+      q(Kyrgyz),
+      ],
+   q(0228) => [
+      q(Kimbundu),
+      ],
+   q(0229) => [
+      q(Konkani),
+      q(Konkani (macrolanguage)),
+      ],
+   q(0230) => [
+      q(Komi),
+      ],
+   q(0231) => [
+      q(Kongo),
+      ],
+   q(0232) => [
+      q(Korean),
+      ],
+   q(0233) => [
+      q(Kosraean),
+      ],
+   q(0234) => [
+      q(Kpelle),
+      ],
+   q(0235) => [
+      q(Karachay-Balkar),
+      ],
+   q(0236) => [
+      q(Karelian),
+      ],
+   q(0237) => [
+      q(Kru languages),
+      ],
+   q(0238) => [
+      q(Kurukh),
+      ],
+   q(0239) => [
+      q(Kuanyama),
+      q(Kwanyama),
+      ],
+   q(0240) => [
+      q(Kumyk),
+      ],
+   q(0241) => [
+      q(Kurdish),
+      ],
+   q(0242) => [
+      q(Kutenai),
+      ],
+   q(0243) => [
+      q(Ladino),
+      ],
+   q(0244) => [
+      q(Lahnda),
+      ],
+   q(0245) => [
+      q(Lamba),
+      ],
+   q(0246) => [
+      q(Lao),
+      ],
+   q(0247) => [
+      q(Latin),
+      ],
+   q(0248) => [
+      q(Latvian),
+      ],
+   q(0249) => [
+      q(Lezghian),
+      ],
+   q(0250) => [
+      q(Limburgan),
+      q(Limburger),
+      q(Limburgish),
+      ],
+   q(0251) => [
+      q(Lingala),
+      ],
+   q(0252) => [
+      q(Lithuanian),
+      ],
+   q(0253) => [
+      q(Mongo),
+      ],
+   q(0254) => [
+      q(Lozi),
+      ],
+   q(0255) => [
+      q(Luxembourgish),
+      q(Letzeburgesch),
+      ],
+   q(0256) => [
+      q(Luba-Lulua),
+      ],
+   q(0257) => [
+      q(Luba-Katanga),
+      ],
+   q(0258) => [
+      q(Ganda),
+      ],
+   q(0259) => [
+      q(Luiseno),
+      ],
+   q(0260) => [
+      q(Lunda),
+      ],
+   q(0261) => [
+      q(Luo (Kenya and Tanzania)),
+      q(Dholuo),
+      ],
+   q(0262) => [
+      q(Lushai),
+      ],
+   q(0263) => [
+      q(Macedonian),
+      ],
+   q(0264) => [
+      q(Madurese),
+      ],
+   q(0265) => [
+      q(Magahi),
+      ],
+   q(0266) => [
+      q(Marshallese),
+      ],
+   q(0267) => [
+      q(Maithili),
+      ],
+   q(0268) => [
+      q(Makasar),
+      ],
+   q(0269) => [
+      q(Malayalam),
+      ],
+   q(0270) => [
+      q(Mandingo),
+      q(Manding),
+      ],
+   q(0271) => [
+      q(Maori),
+      ],
+   q(0272) => [
+      q(Austronesian languages),
+      ],
+   q(0273) => [
+      q(Marathi),
+      ],
+   q(0274) => [
+      q(Masai),
+      ],
+   q(0275) => [
+      q(Malay),
+      q(Malay (macrolanguage)),
+      ],
+   q(0276) => [
+      q(Moksha),
+      ],
+   q(0277) => [
+      q(Mandar),
+      ],
+   q(0278) => [
+      q(Mende),
+      q(Mende (Sierra Leone)),
+      ],
+   q(0279) => [
+      q(Irish, Middle (900-1200)),
+      q(Middle Irish (900-1200)),
+      ],
+   q(0280) => [
+      q(Mi'kmaq),
+      q(Micmac),
+      ],
+   q(0281) => [
+      q(Minangkabau),
+      ],
+   q(0282) => [
+      q(Uncoded languages),
+      ],
+   q(0283) => [
+      q(Mon-Khmer languages),
+      ],
+   q(0284) => [
+      q(Malagasy),
+      ],
+   q(0285) => [
+      q(Maltese),
+      ],
+   q(0286) => [
+      q(Manchu),
+      ],
+   q(0287) => [
+      q(Manipuri),
+      ],
+   q(0288) => [
+      q(Manobo languages),
+      ],
+   q(0289) => [
+      q(Mohawk),
+      ],
+   q(0290) => [
+      q(Mongolian),
+      ],
+   q(0291) => [
+      q(Mossi),
+      ],
+   q(0292) => [
+      q(Multiple languages),
+      ],
+   q(0293) => [
+      q(Munda languages),
+      ],
+   q(0294) => [
+      q(Creek),
+      ],
+   q(0295) => [
+      q(Mirandese),
+      ],
+   q(0296) => [
+      q(Marwari),
+      ],
+   q(0297) => [
+      q(Mayan languages),
+      ],
+   q(0298) => [
+      q(Erzya),
+      ],
+   q(0299) => [
+      q(Nahuatl languages),
+      ],
+   q(0300) => [
+      q(North American Indian languages),
+      ],
+   q(0301) => [
+      q(Neapolitan),
+      ],
+   q(0302) => [
+      q(Nauru),
+      ],
+   q(0303) => [
+      q(Navajo),
+      q(Navaho),
+      ],
+   q(0304) => [
+      q(Ndebele, South),
+      q(South Ndebele),
+      ],
+   q(0305) => [
+      q(Ndebele, North),
+      q(North Ndebele),
+      ],
+   q(0306) => [
+      q(Ndonga),
+      ],
+   q(0307) => [
+      q(Low German),
+      q(Low Saxon),
+      q(German, Low),
+      q(Saxon, Low),
+      ],
+   q(0308) => [
+      q(Nepali),
+      q(Nepali (macrolanguage)),
+      ],
+   q(0309) => [
+      q(Nepal Bhasa),
+      q(Newari),
+      ],
+   q(0310) => [
+      q(Nias),
+      ],
+   q(0311) => [
+      q(Niger-Kordofanian languages),
+      ],
+   q(0312) => [
+      q(Niuean),
+      ],
+   q(0313) => [
+      q(Norwegian Nynorsk),
+      q(Nynorsk, Norwegian),
+      ],
+   q(0314) => [
+      q(Bokmal, Norwegian),
+      q(Norwegian Bokmal),
+      ],
+   q(0315) => [
+      q(Nogai),
+      ],
+   q(0316) => [
+      q(Norse, Old),
+      q(Old Norse),
+      ],
+   q(0317) => [
+      q(Norwegian),
+      ],
+   q(0318) => [
+      q(N'Ko),
+      ],
+   q(0319) => [
+      q(Pedi),
+      q(Sepedi),
+      q(Northern Sotho),
+      ],
+   q(0320) => [
+      q(Nubian languages),
+      ],
+   q(0321) => [
+      q(Classical Newari),
+      q(Old Newari),
+      q(Classical Nepal Bhasa),
+      ],
+   q(0322) => [
+      q(Chichewa),
+      q(Chewa),
+      q(Nyanja),
+      ],
+   q(0323) => [
+      q(Nyamwezi),
+      ],
+   q(0324) => [
+      q(Nyankole),
+      ],
+   q(0325) => [
+      q(Nyoro),
+      ],
+   q(0326) => [
+      q(Nzima),
+      ],
+   q(0327) => [
+      q(Occitan (post 1500)),
+      q(Provencal),
+      ],
+   q(0328) => [
+      q(Ojibwa),
+      ],
+   q(0329) => [
+      q(Oriya),
+      q(Oriya (macrolanguage)),
+      q(Odia (macrolanguage)),
+      ],
+   q(0330) => [
+      q(Oromo),
+      ],
+   q(0331) => [
+      q(Osage),
+      ],
+   q(0332) => [
+      q(Ossetian),
+      q(Ossetic),
+      ],
+   q(0333) => [
+      q(Turkish, Ottoman (1500-1928)),
+      q(Ottoman Turkish (1500-1928)),
+      ],
+   q(0334) => [
+      q(Otomian languages),
+      ],
+   q(0335) => [
+      q(Papuan languages),
+      ],
+   q(0336) => [
+      q(Pangasinan),
+      ],
+   q(0337) => [
+      q(Pahlavi),
+      ],
+   q(0338) => [
+      q(Pampanga),
+      q(Kapampangan),
+      ],
+   q(0339) => [
+      q(Panjabi),
+      q(Punjabi),
+      ],
+   q(0340) => [
+      q(Papiamento),
+      ],
+   q(0341) => [
+      q(Palauan),
+      ],
+   q(0342) => [
+      q(Persian, Old (ca.600-400 B.C.)),
+      q(Old Persian (ca. 600-400 B.C.)),
+      ],
+   q(0343) => [
+      q(Persian),
+      ],
+   q(0344) => [
+      q(Philippine languages),
+      ],
+   q(0345) => [
+      q(Phoenician),
+      ],
+   q(0346) => [
+      q(Pali),
+      ],
+   q(0347) => [
+      q(Polish),
+      ],
+   q(0348) => [
+      q(Pohnpeian),
+      ],
+   q(0349) => [
+      q(Portuguese),
+      ],
+   q(0350) => [
+      q(Prakrit languages),
+      ],
+   q(0351) => [
+      q(Provencal, Old (to 1500)),
+      q(Old Provencal (to 1500)),
+      q(Old Occitan (to 1500)),
+      ],
+   q(0352) => [
+      q(Pushto),
+      q(Pashto),
+      ],
+   q(0353) => [
+      q(Reserved for local use),
+      ],
+   q(0354) => [
+      q(Quechua),
+      ],
+   q(0355) => [
+      q(Rajasthani),
+      ],
+   q(0356) => [
+      q(Rapanui),
+      ],
+   q(0357) => [
+      q(Rarotongan),
+      q(Cook Islands Maori),
+      ],
+   q(0358) => [
+      q(Romance languages),
+      ],
+   q(0359) => [
+      q(Romansh),
+      ],
+   q(0360) => [
+      q(Romany),
+      ],
+   q(0361) => [
+      q(Romanian),
+      q(Moldavian),
+      q(Moldovan),
+      ],
+   q(0362) => [
+      q(Rundi),
+      ],
+   q(0363) => [
+      q(Aromanian),
+      q(Arumanian),
+      q(Macedo-Romanian),
+      ],
+   q(0364) => [
+      q(Russian),
+      ],
+   q(0365) => [
+      q(Sandawe),
+      ],
+   q(0366) => [
+      q(Sango),
+      ],
+   q(0367) => [
+      q(Yakut),
+      ],
+   q(0368) => [
+      q(South American Indian (Other)),
+      q(South American Indian languages),
+      ],
+   q(0369) => [
+      q(Salishan languages),
+      ],
+   q(0370) => [
+      q(Samaritan Aramaic),
+      ],
+   q(0371) => [
+      q(Sanskrit),
+      ],
+   q(0372) => [
+      q(Sasak),
+      ],
+   q(0373) => [
+      q(Santali),
+      ],
+   q(0374) => [
+      q(Sicilian),
+      ],
+   q(0375) => [
+      q(Scots),
+      ],
+   q(0376) => [
+      q(Selkup),
+      ],
+   q(0377) => [
+      q(Semitic languages),
+      ],
+   q(0378) => [
+      q(Irish, Old (to 900)),
+      q(Old Irish (to 900)),
+      ],
+   q(0379) => [
+      q(Sign Languages),
+      ],
+   q(0380) => [
+      q(Shan),
+      ],
+   q(0381) => [
+      q(Sidamo),
+      ],
+   q(0382) => [
+      q(Sinhala),
+      q(Sinhalese),
+      ],
+   q(0383) => [
+      q(Siouan languages),
+      ],
+   q(0384) => [
+      q(Sino-Tibetan languages),
+      ],
+   q(0385) => [
+      q(Slavic languages),
+      ],
+   q(0386) => [
+      q(Slovak),
+      ],
+   q(0387) => [
+      q(Slovenian),
+      ],
+   q(0388) => [
+      q(Southern Sami),
+      ],
+   q(0389) => [
+      q(Northern Sami),
+      ],
+   q(0390) => [
+      q(Sami languages),
+      ],
+   q(0391) => [
+      q(Lule Sami),
+      ],
+   q(0392) => [
+      q(Inari Sami),
+      ],
+   q(0393) => [
+      q(Samoan),
+      ],
+   q(0394) => [
+      q(Skolt Sami),
+      ],
+   q(0395) => [
+      q(Shona),
+      ],
+   q(0396) => [
+      q(Sindhi),
+      ],
+   q(0397) => [
+      q(Soninke),
+      ],
+   q(0398) => [
+      q(Sogdian),
+      ],
+   q(0399) => [
+      q(Somali),
+      ],
+   q(0400) => [
+      q(Songhai languages),
+      ],
+   q(0401) => [
+      q(Sotho, Southern),
+      q(Southern Sotho),
+      ],
+   q(0402) => [
+      q(Spanish),
+      q(Castilian),
+      ],
+   q(0403) => [
+      q(Sardinian),
+      ],
+   q(0404) => [
+      q(Sranan Tongo),
+      ],
+   q(0405) => [
+      q(Serbian),
+      ],
+   q(0406) => [
+      q(Serer),
+      ],
+   q(0407) => [
+      q(Nilo-Saharan languages),
+      ],
+   q(0408) => [
+      q(Swati),
+      ],
+   q(0409) => [
+      q(Sukuma),
+      ],
+   q(0410) => [
+      q(Sundanese),
+      ],
+   q(0411) => [
+      q(Susu),
+      ],
+   q(0412) => [
+      q(Sumerian),
+      ],
+   q(0413) => [
+      q(Swahili),
+      q(Swahili (macrolanguage)),
+      ],
+   q(0414) => [
+      q(Swedish),
+      ],
+   q(0415) => [
+      q(Classical Syriac),
+      ],
+   q(0416) => [
+      q(Syriac),
+      ],
+   q(0417) => [
+      q(Tahitian),
+      ],
+   q(0418) => [
+      q(Tai languages),
+      ],
+   q(0419) => [
+      q(Tamil),
+      ],
+   q(0420) => [
+      q(Tatar),
+      ],
+   q(0421) => [
+      q(Telugu),
+      ],
+   q(0422) => [
+      q(Timne),
+      ],
+   q(0423) => [
+      q(Tereno),
+      ],
+   q(0424) => [
+      q(Tetum),
+      ],
+   q(0425) => [
+      q(Tajik),
+      ],
+   q(0426) => [
+      q(Tagalog),
+      ],
+   q(0427) => [
+      q(Thai),
+      ],
+   q(0428) => [
+      q(Tibetan),
+      ],
+   q(0429) => [
+      q(Tigre),
+      ],
+   q(0430) => [
+      q(Tigrinya),
+      ],
+   q(0431) => [
+      q(Tiv),
+      ],
+   q(0432) => [
+      q(Tokelau),
+      ],
+   q(0433) => [
+      q(Klingon),
+      q(tlhIngan-Hol),
+      ],
+   q(0434) => [
+      q(Tlingit),
+      ],
+   q(0435) => [
+      q(Tamashek),
+      ],
+   q(0436) => [
+      q(Tonga (Nyasa)),
+      ],
+   q(0437) => [
+      q(Tonga (Tonga Islands)),
+      q(Tonga),
+      ],
+   q(0438) => [
+      q(Tok Pisin),
+      ],
+   q(0439) => [
+      q(Tsimshian),
+      ],
+   q(0440) => [
+      q(Tswana),
+      ],
+   q(0441) => [
+      q(Tsonga),
+      ],
+   q(0442) => [
+      q(Turkmen),
+      ],
+   q(0443) => [
+      q(Tumbuka),
+      ],
+   q(0444) => [
+      q(Tupi languages),
+      ],
+   q(0445) => [
+      q(Turkish),
+      ],
+   q(0446) => [
+      q(Altaic languages),
+      ],
+   q(0447) => [
+      q(Tuvalu),
+      ],
+   q(0448) => [
+      q(Twi),
+      ],
+   q(0449) => [
+      q(Tuvinian),
+      ],
+   q(0450) => [
+      q(Udmurt),
+      ],
+   q(0451) => [
+      q(Ugaritic),
+      ],
+   q(0452) => [
+      q(Uighur),
+      q(Uyghur),
+      ],
+   q(0453) => [
+      q(Ukrainian),
+      ],
+   q(0454) => [
+      q(Umbundu),
+      ],
+   q(0455) => [
+      q(Undetermined),
+      ],
+   q(0456) => [
+      q(Urdu),
+      ],
+   q(0457) => [
+      q(Uzbek),
+      ],
+   q(0458) => [
+      q(Vai),
+      ],
+   q(0459) => [
+      q(Venda),
+      ],
+   q(0460) => [
+      q(Vietnamese),
+      ],
+   q(0461) => [
+      q(Volapuk),
+      ],
+   q(0462) => [
+      q(Votic),
+      ],
+   q(0463) => [
+      q(Wakashan languages),
+      ],
+   q(0464) => [
+      q(Walamo),
+      q(Wolaytta),
+      q(Wolaitta),
+      ],
+   q(0465) => [
+      q(Waray),
+      q(Waray (Philippines)),
+      ],
+   q(0466) => [
+      q(Washo),
+      ],
+   q(0467) => [
+      q(Welsh),
+      ],
+   q(0468) => [
+      q(Sorbian languages),
+      ],
+   q(0469) => [
+      q(Walloon),
+      ],
+   q(0470) => [
+      q(Wolof),
+      ],
+   q(0471) => [
+      q(Kalmyk),
+      q(Oirat),
+      ],
+   q(0472) => [
+      q(Xhosa),
+      ],
+   q(0473) => [
+      q(Yao),
+      ],
+   q(0474) => [
+      q(Yapese),
+      ],
+   q(0475) => [
+      q(Yiddish),
+      ],
+   q(0476) => [
+      q(Yoruba),
+      ],
+   q(0477) => [
+      q(Yupik languages),
+      ],
+   q(0478) => [
+      q(Zapotec),
+      ],
+   q(0479) => [
+      q(Blissymbols),
+      q(Blissymbolics),
+      q(Bliss),
+      ],
+   q(0480) => [
+      q(Zenaga),
+      ],
+   q(0481) => [
+      q(Standard Moroccan Tamazight),
+      ],
+   q(0482) => [
+      q(Zhuang),
+      q(Chuang),
+      ],
+   q(0483) => [
+      q(Zande languages),
+      ],
+   q(0484) => [
+      q(Zulu),
+      ],
+   q(0485) => [
+      q(Zuni),
+      ],
+   q(0486) => [
+      q(No linguistic content),
+      q(Not applicable),
+      ],
+   q(0487) => [
+      q(Zaza),
+      q(Dimili),
+      q(Dimli),
+      q(Kirdki),
+      q(Kirmanjki),
+      q(Zazaki),
+      q(Dimli (macrolanguage)),
+      q(Kirmanjki (macrolanguage)),
+      ],
+   q(0488) => [
+      q(Austro-Asiatic languages),
+      ],
+   q(0489) => [
+      q(Atlantic-Congo languages),
+      ],
+   q(0490) => [
+      q(Alacalufan languages),
+      ],
+   q(0491) => [
+      q(Algic languages),
+      ],
+   q(0492) => [
+      q(Arauan languages),
+      ],
+   q(0493) => [
+      q(Arawakan languages),
+      ],
+   q(0494) => [
+      q(Uto-Aztecan languages),
+      ],
+   q(0495) => [
+      q(Chibchan languages),
+      ],
+   q(0496) => [
+      q(North Caucasian languages),
+      ],
+   q(0497) => [
+      q(South Caucasian languages),
+      ],
+   q(0498) => [
+      q(Chadic languages),
+      ],
+   q(0499) => [
+      q(Caddoan languages),
+      ],
+   q(0500) => [
+      q(Central Sudanic languages),
+      ],
+   q(0501) => [
+      q(Mande languages),
+      ],
+   q(0502) => [
+      q(Egyptian languages),
+      ],
+   q(0503) => [
+      q(Eskimo-Aleut languages),
+      ],
+   q(0504) => [
+      q(Basque (family)),
+      ],
+   q(0505) => [
+      q(Formosan languages),
+      ],
+   q(0506) => [
+      q(East Germanic languages),
+      ],
+   q(0507) => [
+      q(North Germanic languages),
+      ],
+   q(0508) => [
+      q(West Germanic languages),
+      ],
+   q(0509) => [
+      q(Greek languages),
+      ],
+   q(0510) => [
+      q(Hmong-Mien languages),
+      ],
+   q(0511) => [
+      q(Hokan languages),
+      ],
+   q(0512) => [
+      q(Armenian (family)),
+      ],
+   q(0513) => [
+      q(Indo-Iranian languages),
+      ],
+   q(0514) => [
+      q(Italic languages),
+      ],
+   q(0515) => [
+      q(Japanese (family)),
+      ],
+   q(0516) => [
+      q(Kordofanian languages),
+      ],
+   q(0517) => [
+      q(Trans-New Guinea languages),
+      ],
+   q(0518) => [
+      q(Oto-Manguean languages),
+      ],
+   q(0519) => [
+      q(Omotic languages),
+      ],
+   q(0520) => [
+      q(Central Malayo-Polynesian languages),
+      ],
+   q(0521) => [
+      q(Malayo-Polynesian languages),
+      ],
+   q(0522) => [
+      q(Eastern Malayo-Polynesian languages),
+      ],
+   q(0523) => [
+      q(Western Malayo-Polynesian languages),
+      ],
+   q(0524) => [
+      q(Quechuan (family)),
+      ],
+   q(0525) => [
+      q(Eastern Sudanic languages),
+      ],
+   q(0526) => [
+      q(Albanian languages),
+      ],
+   q(0527) => [
+      q(Samoyedic languages),
+      ],
+   q(0528) => [
+      q(Tibeto-Burman languages),
+      ],
+   q(0529) => [
+      q(Turkic languages),
+      ],
+   q(0530) => [
+      q(Tungus languages),
+      ],
+   q(0531) => [
+      q(Uralic languages),
+      ],
+   q(0532) => [
+      q(Mongolian languages),
+      ],
+   q(0533) => [
+      q(Na-Dene languages),
+      ],
+   q(0534) => [
+      q(Chinese (family)),
+      ],
+   q(0535) => [
+      q(East Slavic languages),
+      ],
+   q(0536) => [
+      q(South Slavic languages),
+      ],
+   q(0537) => [
+      q(West Slavic languages),
+      ],
+   q(0538) => [
+      q(Serbo-Croatian),
+      ],
+   q(0539) => [
+      q(Ghotuo),
+      ],
+   q(0540) => [
+      q(Alumu-Tesu),
+      ],
+   q(0541) => [
+      q(Ari),
+      ],
+   q(0542) => [
+      q(Amal),
+      ],
+   q(0543) => [
+      q(Arbereshe Albanian),
+      ],
+   q(0544) => [
+      q(Aranadan),
+      ],
+   q(0545) => [
+      q(Ambrak),
+      ],
+   q(0546) => [
+      q(Abu' Arapesh),
+      ],
+   q(0547) => [
+      q(Arifama-Miniafia),
+      ],
+   q(0548) => [
+      q(Ankave),
+      ],
+   q(0549) => [
+      q(Afade),
+      ],
+   q(0550) => [
+      q(Anambe),
+      ],
+   q(0551) => [
+      q(Algerian Saharan Arabic),
+      ],
+   q(0552) => [
+      q(Para Arara),
+      ],
+   q(0553) => [
+      q(Eastern Abnaki),
+      ],
+   q(0554) => [
+      q(Aasax),
+      ],
+   q(0555) => [
+      q(Arvanitika Albanian),
+      ],
+   q(0556) => [
+      q(Abau),
+      ],
+   q(0557) => [
+      q(Solong),
+      ],
+   q(0558) => [
+      q(Mandobo Atas),
+      ],
+   q(0559) => [
+      q(Amarasi),
+      ],
+   q(0560) => [
+      q(Abe),
+      ],
+   q(0561) => [
+      q(Bankon),
+      ],
+   q(0562) => [
+      q(Ambala Ayta),
+      ],
+   q(0563) => [
+      q(Manide),
+      ],
+   q(0564) => [
+      q(Western Abnaki),
+      ],
+   q(0565) => [
+      q(Abai Sungai),
+      ],
+   q(0566) => [
+      q(Abaga),
+      ],
+   q(0567) => [
+      q(Tajiki Arabic),
+      ],
+   q(0568) => [
+      q(Abidji),
+      ],
+   q(0569) => [
+      q(Aka-Bea),
+      ],
+   q(0570) => [
+      q(Lampung Nyo),
+      ],
+   q(0571) => [
+      q(Abanyom),
+      ],
+   q(0572) => [
+      q(Abua),
+      ],
+   q(0573) => [
+      q(Abon),
+      ],
+   q(0574) => [
+      q(Abellen Ayta),
+      ],
+   q(0575) => [
+      q(Abaza),
+      ],
+   q(0576) => [
+      q(Abron),
+      ],
+   q(0577) => [
+      q(Ambonese Malay),
+      ],
+   q(0578) => [
+      q(Ambulas),
+      ],
+   q(0579) => [
+      q(Abure),
+      ],
+   q(0580) => [
+      q(Baharna Arabic),
+      ],
+   q(0581) => [
+      q(Pal),
+      ],
+   q(0582) => [
+      q(Inabaknon),
+      ],
+   q(0583) => [
+      q(Aneme Wake),
+      ],
+   q(0584) => [
+      q(Abui),
+      ],
+   q(0585) => [
+      q(Achagua),
+      ],
+   q(0586) => [
+      q(Anca),
+      ],
+   q(0587) => [
+      q(Gikyode),
+      ],
+   q(0588) => [
+      q(Saint Lucian Creole French),
+      ],
+   q(0589) => [
+      q(Aka-Cari),
+      ],
+   q(0590) => [
+      q(Aka-Kora),
+      ],
+   q(0591) => [
+      q(Akar-Bale),
+      ],
+   q(0592) => [
+      q(Mesopotamian Arabic),
+      ],
+   q(0593) => [
+      q(Achang),
+      ],
+   q(0594) => [
+      q(Eastern Acipa),
+      ],
+   q(0595) => [
+      q(Ta'izzi-Adeni Arabic),
+      ],
+   q(0596) => [
+      q(Achi),
+      ],
+   q(0597) => [
+      q(Acroa),
+      ],
+   q(0598) => [
+      q(Achterhoeks),
+      ],
+   q(0599) => [
+      q(Achuar-Shiwiar),
+      ],
+   q(0600) => [
+      q(Achumawi),
+      ],
+   q(0601) => [
+      q(Hijazi Arabic),
+      ],
+   q(0602) => [
+      q(Omani Arabic),
+      ],
+   q(0603) => [
+      q(Cypriot Arabic),
+      ],
+   q(0604) => [
+      q(Acheron),
+      ],
+   q(0605) => [
+      q(Adabe),
+      ],
+   q(0606) => [
+      q(Dzodinka),
+      ],
+   q(0607) => [
+      q(Adele),
+      ],
+   q(0608) => [
+      q(Dhofari Arabic),
+      ],
+   q(0609) => [
+      q(Andegerebinha),
+      ],
+   q(0610) => [
+      q(Adhola),
+      ],
+   q(0611) => [
+      q(Adi),
+      ],
+   q(0612) => [
+      q(Adioukrou),
+      ],
+   q(0613) => [
+      q(Galo),
+      ],
+   q(0614) => [
+      q(Adang),
+      ],
+   q(0615) => [
+      q(Abu),
+      ],
+   q(0616) => [
+      q(Adangbe),
+      ],
+   q(0617) => [
+      q(Adonara),
+      ],
+   q(0618) => [
+      q(Adamorobe Sign Language),
+      ],
+   q(0619) => [
+      q(Adnyamathanha),
+      ],
+   q(0620) => [
+      q(Aduge),
+      ],
+   q(0621) => [
+      q(Amundava),
+      ],
+   q(0622) => [
+      q(Amdo Tibetan),
+      ],
+   q(0623) => [
+      q(Adzera),
+      ],
+   q(0624) => [
+      q(Areba),
+      ],
+   q(0625) => [
+      q(Tunisian Arabic),
+      ],
+   q(0626) => [
+      q(Saidi Arabic),
+      ],
+   q(0627) => [
+      q(Argentine Sign Language),
+      ],
+   q(0628) => [
+      q(Northeast Pashai),
+      q(Northeast Pashayi),
+      ],
+   q(0629) => [
+      q(Haeke),
+      ],
+   q(0630) => [
+      q(Ambele),
+      ],
+   q(0631) => [
+      q(Arem),
+      ],
+   q(0632) => [
+      q(Armenian Sign Language),
+      ],
+   q(0633) => [
+      q(Aer),
+      ],
+   q(0634) => [
+      q(Eastern Arrernte),
+      ],
+   q(0635) => [
+      q(Alsea),
+      ],
+   q(0636) => [
+      q(Akeu),
+      ],
+   q(0637) => [
+      q(Ambakich),
+      ],
+   q(0638) => [
+      q(Amele),
+      ],
+   q(0639) => [
+      q(Aeka),
+      ],
+   q(0640) => [
+      q(Gulf Arabic),
+      ],
+   q(0641) => [
+      q(Andai),
+      ],
+   q(0642) => [
+      q(Putukwam),
+      ],
+   q(0643) => [
+      q(Afghan Sign Language),
+      ],
+   q(0644) => [
+      q(Akrukay),
+      q(Chini),
+      ],
+   q(0645) => [
+      q(Nanubae),
+      ],
+   q(0646) => [
+      q(Defaka),
+      ],
+   q(0647) => [
+      q(Eloyi),
+      ],
+   q(0648) => [
+      q(Tapei),
+      ],
+   q(0649) => [
+      q(Afro-Seminole Creole),
+      ],
+   q(0650) => [
+      q(Afitti),
+      ],
+   q(0651) => [
+      q(Awutu),
+      ],
+   q(0652) => [
+      q(Obokuitai),
+      ],
+   q(0653) => [
+      q(Aguano),
+      ],
+   q(0654) => [
+      q(Legbo),
+      ],
+   q(0655) => [
+      q(Agatu),
+      ],
+   q(0656) => [
+      q(Agarabi),
+      ],
+   q(0657) => [
+      q(Angal),
+      ],
+   q(0658) => [
+      q(Arguni),
+      ],
+   q(0659) => [
+      q(Angor),
+      ],
+   q(0660) => [
+      q(Ngelima),
+      ],
+   q(0661) => [
+      q(Agariya),
+      ],
+   q(0662) => [
+      q(Argobba),
+      ],
+   q(0663) => [
+      q(Isarog Agta),
+      ],
+   q(0664) => [
+      q(Fembe),
+      ],
+   q(0665) => [
+      q(Angaataha),
+      ],
+   q(0666) => [
+      q(Agutaynen),
+      ],
+   q(0667) => [
+      q(Tainae),
+      ],
+   q(0668) => [
+      q(Aghem),
+      ],
+   q(0669) => [
+      q(Aguaruna),
+      ],
+   q(0670) => [
+      q(Esimbi),
+      ],
+   q(0671) => [
+      q(Central Cagayan Agta),
+      ],
+   q(0672) => [
+      q(Aguacateco),
+      ],
+   q(0673) => [
+      q(Remontado Dumagat),
+      ],
+   q(0674) => [
+      q(Kahua),
+      ],
+   q(0675) => [
+      q(Aghul),
+      ],
+   q(0676) => [
+      q(Southern Alta),
+      ],
+   q(0677) => [
+      q(Mt. Iriga Agta),
+      ],
+   q(0678) => [
+      q(Ahanta),
+      ],
+   q(0679) => [
+      q(Axamb),
+      ],
+   q(0680) => [
+      q(Qimant),
+      ],
+   q(0681) => [
+      q(Aghu),
+      ],
+   q(0682) => [
+      q(Tiagbamrin Aizi),
+      ],
+   q(0683) => [
+      q(Akha),
+      ],
+   q(0684) => [
+      q(Igo),
+      ],
+   q(0685) => [
+      q(Mobumrin Aizi),
+      ],
+   q(0686) => [
+      q(Ahan),
+      ],
+   q(0687) => [
+      q(Ahom),
+      ],
+   q(0688) => [
+      q(Aproumu Aizi),
+      ],
+   q(0689) => [
+      q(Ahirani),
+      ],
+   q(0690) => [
+      q(Ashe),
+      ],
+   q(0691) => [
+      q(Ahtena),
+      ],
+   q(0692) => [
+      q(Arosi),
+      ],
+   q(0693) => [
+      q(Ainu (China)),
+      ],
+   q(0694) => [
+      q(Ainbai),
+      ],
+   q(0695) => [
+      q(Alngith),
+      ],
+   q(0696) => [
+      q(Amara),
+      ],
+   q(0697) => [
+      q(Agi),
+      ],
+   q(0698) => [
+      q(Antigua and Barbuda Creole English),
+      ],
+   q(0699) => [
+      q(Ai-Cham),
+      ],
+   q(0700) => [
+      q(Assyrian Neo-Aramaic),
+      ],
+   q(0701) => [
+      q(Lishanid Noshan),
+      ],
+   q(0702) => [
+      q(Ake),
+      ],
+   q(0703) => [
+      q(Aimele),
+      ],
+   q(0704) => [
+      q(Aimol),
+      ],
+   q(0705) => [
+      q(Aiton),
+      ],
+   q(0706) => [
+      q(Burumakok),
+      ],
+   q(0707) => [
+      q(Aimaq),
+      ],
+   q(0708) => [
+      q(Airoran),
+      ],
+   q(0709) => [
+      q(Nataoran Amis),
+      ],
+   q(0710) => [
+      q(Arikem),
+      ],
+   q(0711) => [
+      q(Aari),
+      ],
+   q(0712) => [
+      q(Aighon),
+      ],
+   q(0713) => [
+      q(Ali),
+      ],
+   q(0714) => [
+      q(Aja (Sudan)),
+      ],
+   q(0715) => [
+      q(Aja (Benin)),
+      ],
+   q(0716) => [
+      q(Ajie),
+      ],
+   q(0717) => [
+      q(Andajin),
+      ],
+   q(0718) => [
+      q(South Levantine Arabic),
+      ],
+   q(0719) => [
+      q(Judeo-Tunisian Arabic),
+      ],
+   q(0720) => [
+      q(Judeo-Moroccan Arabic),
+      ],
+   q(0721) => [
+      q(Ajawa),
+      ],
+   q(0722) => [
+      q(Amri Karbi),
+      ],
+   q(0723) => [
+      q(Batak Angkola),
+      ],
+   q(0724) => [
+      q(Mpur),
+      ],
+   q(0725) => [
+      q(Ukpet-Ehom),
+      ],
+   q(0726) => [
+      q(Akawaio),
+      ],
+   q(0727) => [
+      q(Akpa),
+      ],
+   q(0728) => [
+      q(Anakalangu),
+      ],
+   q(0729) => [
+      q(Angal Heneng),
+      ],
+   q(0730) => [
+      q(Aiome),
+      ],
+   q(0731) => [
+      q(Aka-Jeru),
+      ],
+   q(0732) => [
+      q(Aklanon),
+      ],
+   q(0733) => [
+      q(Aka-Bo),
+      ],
+   q(0734) => [
+      q(Akurio),
+      ],
+   q(0735) => [
+      q(Siwu),
+      ],
+   q(0736) => [
+      q(Ak),
+      ],
+   q(0737) => [
+      q(Araki),
+      ],
+   q(0738) => [
+      q(Akaselem),
+      ],
+   q(0739) => [
+      q(Akolet),
+      ],
+   q(0740) => [
+      q(Akum),
+      ],
+   q(0741) => [
+      q(Akhvakh),
+      ],
+   q(0742) => [
+      q(Akwa),
+      ],
+   q(0743) => [
+      q(Aka-Kede),
+      ],
+   q(0744) => [
+      q(Aka-Kol),
+      ],
+   q(0745) => [
+      q(Alabama),
+      ],
+   q(0746) => [
+      q(Alago),
+      ],
+   q(0747) => [
+      q(Qawasqar),
+      ],
+   q(0748) => [
+      q(Alladian),
+      ],
+   q(0749) => [
+      q(Alege),
+      ],
+   q(0750) => [
+      q(Alawa),
+      ],
+   q(0751) => [
+      q(Amaimon),
+      ],
+   q(0752) => [
+      q(Alangan),
+      ],
+   q(0753) => [
+      q(Alak),
+      ],
+   q(0754) => [
+      q(Allar),
+      ],
+   q(0755) => [
+      q(Amblong),
+      ],
+   q(0756) => [
+      q(Gheg Albanian),
+      ],
+   q(0757) => [
+      q(Larike-Wakasihu),
+      ],
+   q(0758) => [
+      q(Alune),
+      ],
+   q(0759) => [
+      q(Algonquin),
+      ],
+   q(0760) => [
+      q(Alutor),
+      ],
+   q(0761) => [
+      q(Tosk Albanian),
+      ],
+   q(0762) => [
+      q('Are'are),
+      ],
+   q(0763) => [
+      q(Alaba-K'abeena),
+      q(Wanbasana),
+      ],
+   q(0764) => [
+      q(Amol),
+      ],
+   q(0765) => [
+      q(Alyawarr),
+      ],
+   q(0766) => [
+      q(Alur),
+      ],
+   q(0767) => [
+      q(Amanaye),
+      ],
+   q(0768) => [
+      q(Ambo),
+      ],
+   q(0769) => [
+      q(Amahuaca),
+      ],
+   q(0770) => [
+      q(Yanesha'),
+      ],
+   q(0771) => [
+      q(Hamer-Banna),
+      ],
+   q(0772) => [
+      q(Amurdak),
+      ],
+   q(0773) => [
+      q(Amis),
+      ],
+   q(0774) => [
+      q(Amdang),
+      ],
+   q(0775) => [
+      q(Ambai),
+      ],
+   q(0776) => [
+      q(War-Jaintia),
+      ],
+   q(0777) => [
+      q(Ama (Papua New Guinea)),
+      ],
+   q(0778) => [
+      q(Amanab),
+      ],
+   q(0779) => [
+      q(Amo),
+      ],
+   q(0780) => [
+      q(Alamblak),
+      ],
+   q(0781) => [
+      q(Amahai),
+      ],
+   q(0782) => [
+      q(Amarakaeri),
+      ],
+   q(0783) => [
+      q(Southern Amami-Oshima),
+      ],
+   q(0784) => [
+      q(Amto),
+      ],
+   q(0785) => [
+      q(Guerrero Amuzgo),
+      ],
+   q(0786) => [
+      q(Ambelau),
+      ],
+   q(0787) => [
+      q(Western Neo-Aramaic),
+      ],
+   q(0788) => [
+      q(Anmatyerre),
+      ],
+   q(0789) => [
+      q(Ami),
+      ],
+   q(0790) => [
+      q(Atampaya),
+      ],
+   q(0791) => [
+      q(Andaqui),
+      ],
+   q(0792) => [
+      q(Andoa),
+      ],
+   q(0793) => [
+      q(Ngas),
+      ],
+   q(0794) => [
+      q(Ansus),
+      ],
+   q(0795) => [
+      q(Xaracuu),
+      ],
+   q(0796) => [
+      q(Animere),
+      ],
+   q(0797) => [
+      q(Nend),
+      ],
+   q(0798) => [
+      q(Andi),
+      ],
+   q(0799) => [
+      q(Anor),
+      ],
+   q(0800) => [
+      q(Goemai),
+      ],
+   q(0801) => [
+      q(Anu-Hkongso Chin),
+      ],
+   q(0802) => [
+      q(Anal),
+      ],
+   q(0803) => [
+      q(Obolo),
+      ],
+   q(0804) => [
+      q(Andoque),
+      ],
+   q(0805) => [
+      q(Jarawa (India)),
+      ],
+   q(0806) => [
+      q(Andh),
+      ],
+   q(0807) => [
+      q(Anserma),
+      ],
+   q(0808) => [
+      q(Antakarinya),
+      ],
+   q(0809) => [
+      q(Anuak),
+      ],
+   q(0810) => [
+      q(Denya),
+      ],
+   q(0811) => [
+      q(Anaang),
+      ],
+   q(0812) => [
+      q(Andra-Hus),
+      ],
+   q(0813) => [
+      q(Anyin),
+      ],
+   q(0814) => [
+      q(Anem),
+      ],
+   q(0815) => [
+      q(Angolar),
+      ],
+   q(0816) => [
+      q(Abom),
+      ],
+   q(0817) => [
+      q(Pemon),
+      ],
+   q(0818) => [
+      q(Andarum),
+      ],
+   q(0819) => [
+      q(Angal Enen),
+      ],
+   q(0820) => [
+      q(Bragat),
+      ],
+   q(0821) => [
+      q(Angoram),
+      ],
+   q(0822) => [
+      q(Arma),
+      ],
+   q(0823) => [
+      q(Anindilyakwa),
+      ],
+   q(0824) => [
+      q(Mufian),
+      ],
+   q(0825) => [
+      q(Arho),
+      ],
+   q(0826) => [
+      q(Alor),
+      ],
+   q(0827) => [
+      q(Omie),
+      ],
+   q(0828) => [
+      q(Bumbita Arapesh),
+      ],
+   q(0829) => [
+      q(Aore),
+      ],
+   q(0830) => [
+      q(Taikat),
+      ],
+   q(0831) => [
+      q(Atong (India)),
+      q(A'tong),
+      ],
+   q(0832) => [
+      q(A'ou),
+      ],
+   q(0833) => [
+      q(Atorada),
+      ],
+   q(0834) => [
+      q(Uab Meto),
+      ],
+   q(0835) => [
+      q(Sa'a),
+      ],
+   q(0836) => [
+      q(North Levantine Arabic),
+      ],
+   q(0837) => [
+      q(Sudanese Arabic),
+      ],
+   q(0838) => [
+      q(Bukiyip),
+      ],
+   q(0839) => [
+      q(Pahanan Agta),
+      ],
+   q(0840) => [
+      q(Ampanang),
+      ],
+   q(0841) => [
+      q(Athpariya),
+      ],
+   q(0842) => [
+      q(Apiaka),
+      ],
+   q(0843) => [
+      q(Jicarilla Apache),
+      ],
+   q(0844) => [
+      q(Kiowa Apache),
+      ],
+   q(0845) => [
+      q(Lipan Apache),
+      ],
+   q(0846) => [
+      q(Mescalero-Chiricahua Apache),
+      ],
+   q(0847) => [
+      q(Apinaye),
+      ],
+   q(0848) => [
+      q(Ambul),
+      ],
+   q(0849) => [
+      q(Apma),
+      ],
+   q(0850) => [
+      q(A-Pucikwar),
+      ],
+   q(0851) => [
+      q(Arop-Lokep),
+      ],
+   q(0852) => [
+      q(Arop-Sissano),
+      ],
+   q(0853) => [
+      q(Apatani),
+      ],
+   q(0854) => [
+      q(Apurina),
+      ],
+   q(0855) => [
+      q(Alapmunte),
+      ],
+   q(0856) => [
+      q(Western Apache),
+      ],
+   q(0857) => [
+      q(Aputai),
+      ],
+   q(0858) => [
+      q(Apalai),
+      ],
+   q(0859) => [
+      q(Safeyoka),
+      ],
+   q(0860) => [
+      q(Archi),
+      ],
+   q(0861) => [
+      q(Ampari Dogon),
+      ],
+   q(0862) => [
+      q(Arigidi),
+      ],
+   q(0863) => [
+      q(Atohwaim),
+      ],
+   q(0864) => [
+      q(Northern Alta),
+      ],
+   q(0865) => [
+      q(Atakapa),
+      ],
+   q(0866) => [
+      q(Arha),
+      ],
+   q(0867) => [
+      q(Angaite),
+      ],
+   q(0868) => [
+      q(Akuntsu),
+      ],
+   q(0869) => [
+      q(Standard Arabic),
+      ],
+   q(0870) => [
+      q(Arabana),
+      ],
+   q(0871) => [
+      q(Western Arrarnta),
+      ],
+   q(0872) => [
+      q(Arhuaco),
+      ],
+   q(0873) => [
+      q(Arikara),
+      ],
+   q(0874) => [
+      q(Arapaso),
+      ],
+   q(0875) => [
+      q(Arikapu),
+      ],
+   q(0876) => [
+      q(Arabela),
+      ],
+   q(0877) => [
+      q(Araona),
+      ],
+   q(0878) => [
+      q(Algerian Arabic),
+      ],
+   q(0879) => [
+      q(Karo (Brazil)),
+      ],
+   q(0880) => [
+      q(Najdi Arabic),
+      ],
+   q(0881) => [
+      q(Arua (Amazonas State)),
+      q(Arawa),
+      ],
+   q(0882) => [
+      q(Arbore),
+      ],
+   q(0883) => [
+      q(Arua (Rodonia State)),
+      ],
+   q(0884) => [
+      q(Moroccan Arabic),
+      ],
+   q(0885) => [
+      q(Egyptian Arabic),
+      ],
+   q(0886) => [
+      q(Asu (Tanzania)),
+      ],
+   q(0887) => [
+      q(Assiniboine),
+      ],
+   q(0888) => [
+      q(Casuarina Coast Asmat),
+      ],
+   q(0889) => [
+      q(Asas),
+      ],
+   q(0890) => [
+      q(American Sign Language),
+      ],
+   q(0891) => [
+      q(Australian Sign Language),
+      ],
+   q(0892) => [
+      q(Cishingini),
+      ],
+   q(0893) => [
+      q(Abishira),
+      ],
+   q(0894) => [
+      q(Buruwai),
+      ],
+   q(0895) => [
+      q(Sari),
+      ],
+   q(0896) => [
+      q(Ashkun),
+      ],
+   q(0897) => [
+      q(Asilulu),
+      ],
+   q(0898) => [
+      q(Xingu Asurini),
+      ],
+   q(0899) => [
+      q(Dano),
+      ],
+   q(0900) => [
+      q(Algerian Sign Language),
+      ],
+   q(0901) => [
+      q(Austrian Sign Language),
+      ],
+   q(0902) => [
+      q(Asuri),
+      ],
+   q(0903) => [
+      q(Ipulo),
+      ],
+   q(0904) => [
+      q(Tocantins Asurini),
+      ],
+   q(0905) => [
+      q(Asoa),
+      ],
+   q(0906) => [
+      q(Australian Aborigines Sign Language),
+      ],
+   q(0907) => [
+      q(Muratayak),
+      ],
+   q(0908) => [
+      q(Yaosakor Asmat),
+      ],
+   q(0909) => [
+      q(As),
+      ],
+   q(0910) => [
+      q(Pele-Ata),
+      ],
+   q(0911) => [
+      q(Zaiwa),
+      ],
+   q(0912) => [
+      q(Atsahuaca),
+      ],
+   q(0913) => [
+      q(Ata Manobo),
+      ],
+   q(0914) => [
+      q(Atemble),
+      ],
+   q(0915) => [
+      q(Ivbie North-Okpela-Arhe),
+      ],
+   q(0916) => [
+      q(Attie),
+      ],
+   q(0917) => [
+      q(Atikamekw),
+      ],
+   q(0918) => [
+      q(Ati),
+      ],
+   q(0919) => [
+      q(Mt. Iraya Agta),
+      ],
+   q(0920) => [
+      q(Ata),
+      ],
+   q(0921) => [
+      q(Ashtiani),
+      ],
+   q(0922) => [
+      q(Atong (Cameroon)),
+      ],
+   q(0923) => [
+      q(Pudtol Atta),
+      ],
+   q(0924) => [
+      q(Aralle-Tabulahan),
+      ],
+   q(0925) => [
+      q(Waimiri-Atroari),
+      ],
+   q(0926) => [
+      q(Gros Ventre),
+      ],
+   q(0927) => [
+      q(Pamplona Atta),
+      ],
+   q(0928) => [
+      q(Reel),
+      ],
+   q(0929) => [
+      q(Northern Altai),
+      ],
+   q(0930) => [
+      q(Atsugewi),
+      ],
+   q(0931) => [
+      q(Arutani),
+      ],
+   q(0932) => [
+      q(Aneityum),
+      ],
+   q(0933) => [
+      q(Arta),
+      ],
+   q(0934) => [
+      q(Asumboa),
+      ],
+   q(0935) => [
+      q(Alugu),
+      ],
+   q(0936) => [
+      q(Waorani),
+      ],
+   q(0937) => [
+      q(Anuta),
+      ],
+   q(0938) => [
+      q(Aguna),
+      ],
+   q(0939) => [
+      q(Aushi),
+      ],
+   q(0940) => [
+      q(Anuki),
+      ],
+   q(0941) => [
+      q(Awjilah),
+      ],
+   q(0942) => [
+      q(Heyo),
+      ],
+   q(0943) => [
+      q(Aulua),
+      ],
+   q(0944) => [
+      q(Asu (Nigeria)),
+      ],
+   q(0945) => [
+      q(Molmo One),
+      ],
+   q(0946) => [
+      q(Auyokawa),
+      ],
+   q(0947) => [
+      q(Makayam),
+      ],
+   q(0948) => [
+      q(Anus),
+      q(Korur),
+      ],
+   q(0949) => [
+      q(Aruek),
+      ],
+   q(0950) => [
+      q(Austral),
+      ],
+   q(0951) => [
+      q(Auye),
+      ],
+   q(0952) => [
+      q(Awyi),
+      ],
+   q(0953) => [
+      q(Aura),
+      ],
+   q(0954) => [
+      q(Awiyaana),
+      ],
+   q(0955) => [
+      q(Uzbeki Arabic),
+      ],
+   q(0956) => [
+      q(Avau),
+      ],
+   q(0957) => [
+      q(Alviri-Vidari),
+      ],
+   q(0958) => [
+      q(Avikam),
+      ],
+   q(0959) => [
+      q(Kotava),
+      ],
+   q(0960) => [
+      q(Eastern Egyptian Bedawi Arabic),
+      ],
+   q(0961) => [
+      q(Angkamuthi),
+      ],
+   q(0962) => [
+      q(Avatime),
+      ],
+   q(0963) => [
+      q(Agavotaguerra),
+      ],
+   q(0964) => [
+      q(Aushiri),
+      ],
+   q(0965) => [
+      q(Au),
+      ],
+   q(0966) => [
+      q(Avokaya),
+      ],
+   q(0967) => [
+      q(Ava-Canoeiro),
+      ],
+   q(0968) => [
+      q(Awa (Papua New Guinea)),
+      ],
+   q(0969) => [
+      q(Cicipu),
+      ],
+   q(0970) => [
+      q(Aweti),
+      ],
+   q(0971) => [
+      q(Anguthimri),
+      ],
+   q(0972) => [
+      q(Awbono),
+      ],
+   q(0973) => [
+      q(Aekyom),
+      ],
+   q(0974) => [
+      q(Awabakal),
+      ],
+   q(0975) => [
+      q(Arawum),
+      ],
+   q(0976) => [
+      q(Awngi),
+      ],
+   q(0977) => [
+      q(Awak),
+      ],
+   q(0978) => [
+      q(Awera),
+      ],
+   q(0979) => [
+      q(South Awyu),
+      ],
+   q(0980) => [
+      q(Arawete),
+      ],
+   q(0981) => [
+      q(Central Awyu),
+      ],
+   q(0982) => [
+      q(Jair Awyu),
+      ],
+   q(0983) => [
+      q(Awun),
+      ],
+   q(0984) => [
+      q(Awara),
+      ],
+   q(0985) => [
+      q(Edera Awyu),
+      ],
+   q(0986) => [
+      q(Abipon),
+      ],
+   q(0987) => [
+      q(Ayerrerenge),
+      ],
+   q(0988) => [
+      q(Mato Grosso Arara),
+      ],
+   q(0989) => [
+      q(Yaka (Central African Republic)),
+      ],
+   q(0990) => [
+      q(Lower Southern Aranda),
+      ],
+   q(0991) => [
+      q(Middle Armenian),
+      ],
+   q(0992) => [
+      q(Xaragure),
+      ],
+   q(0993) => [
+      q(Awar),
+      ],
+   q(0994) => [
+      q(Ayizo Gbe),
+      ],
+   q(0995) => [
+      q(Southern Aymara),
+      ],
+   q(0996) => [
+      q(Ayabadhu),
+      ],
+   q(0997) => [
+      q(Ayere),
+      ],
+   q(0998) => [
+      q(Ginyanga),
+      ],
+   q(0999) => [
+      q(Hadrami Arabic),
+      ],
+   q(1000) => [
+      q(Leyigha),
+      ],
+   q(1001) => [
+      q(Akuku),
+      ],
+   q(1002) => [
+      q(Libyan Arabic),
+      ],
+   q(1003) => [
+      q(Sanaani Arabic),
+      ],
+   q(1004) => [
+      q(Ayoreo),
+      ],
+   q(1005) => [
+      q(North Mesopotamian Arabic),
+      ],
+   q(1006) => [
+      q(Ayi (Papua New Guinea)),
+      ],
+   q(1007) => [
+      q(Central Aymara),
+      ],
+   q(1008) => [
+      q(Sorsogon Ayta),
+      ],
+   q(1009) => [
+      q(Magbukun Ayta),
+      ],
+   q(1010) => [
+      q(Ayu),
+      ],
+   q(1011) => [
+      q(Tayabas Ayta),
+      ],
+   q(1012) => [
+      q(Mai Brat),
+      ],
+   q(1013) => [
+      q(Azha),
+      ],
+   q(1014) => [
+      q(South Azerbaijani),
+      ],
+   q(1015) => [
+      q(Eastern Durango Nahuatl),
+      ],
+   q(1016) => [
+      q(San Pedro Amuzgos Amuzgo),
+      ],
+   q(1017) => [
+      q(North Azerbaijani),
+      ],
+   q(1018) => [
+      q(Ipalapa Amuzgo),
+      ],
+   q(1019) => [
+      q(Western Durango Nahuatl),
+      ],
+   q(1020) => [
+      q(Awing),
+      ],
+   q(1021) => [
+      q(Faire Atta),
+      ],
+   q(1022) => [
+      q(Highland Puebla Nahuatl),
+      ],
+   q(1023) => [
+      q(Babatana),
+      ],
+   q(1024) => [
+      q(Bainouk-Gunyuno),
+      ],
+   q(1025) => [
+      q(Badui),
+      ],
+   q(1026) => [
+      q(Bare),
+      ],
+   q(1027) => [
+      q(Nubaca),
+      ],
+   q(1028) => [
+      q(Tuki),
+      ],
+   q(1029) => [
+      q(Bahamas Creole English),
+      ],
+   q(1030) => [
+      q(Barakai),
+      ],
+   q(1031) => [
+      q(Waimaha),
+      ],
+   q(1032) => [
+      q(Bantawa),
+      ],
+   q(1033) => [
+      q(Bavarian),
+      ],
+   q(1034) => [
+      q(Bada (Nigeria)),
+      ],
+   q(1035) => [
+      q(Vengo),
+      ],
+   q(1036) => [
+      q(Bambili-Bambui),
+      ],
+   q(1037) => [
+      q(Bamun),
+      ],
+   q(1038) => [
+      q(Batuley),
+      ],
+   q(1039) => [
+      q(Baatonum),
+      ],
+   q(1040) => [
+      q(Barai),
+      ],
+   q(1041) => [
+      q(Batak Toba),
+      ],
+   q(1042) => [
+      q(Bau),
+      ],
+   q(1043) => [
+      q(Bangba),
+      ],
+   q(1044) => [
+      q(Baibai),
+      ],
+   q(1045) => [
+      q(Barama),
+      ],
+   q(1046) => [
+      q(Bugan),
+      ],
+   q(1047) => [
+      q(Barombi),
+      ],
+   q(1048) => [
+      q(Ghomala'),
+      ],
+   q(1049) => [
+      q(Babanki),
+      ],
+   q(1050) => [
+      q(Bats),
+      ],
+   q(1051) => [
+      q(Babango),
+      ],
+   q(1052) => [
+      q(Uneapa),
+      ],
+   q(1053) => [
+      q(Northern Bobo Madare),
+      q(Konabere),
+      ],
+   q(1054) => [
+      q(West Central Banda),
+      ],
+   q(1055) => [
+      q(Bamali),
+      ],
+   q(1056) => [
+      q(Girawa),
+      ],
+   q(1057) => [
+      q(Bakpinka),
+      ],
+   q(1058) => [
+      q(Mburku),
+      ],
+   q(1059) => [
+      q(Kulung (Nigeria)),
+      ],
+   q(1060) => [
+      q(Karnai),
+      ],
+   q(1061) => [
+      q(Baba),
+      ],
+   q(1062) => [
+      q(Bubia),
+      ],
+   q(1063) => [
+      q(Befang),
+      ],
+   q(1064) => [
+      q(Babalia Creole Arabic),
+      ],
+   q(1065) => [
+      q(Central Bai),
+      ],
+   q(1066) => [
+      q(Bainouk-Samik),
+      ],
+   q(1067) => [
+      q(Southern Balochi),
+      ],
+   q(1068) => [
+      q(North Babar),
+      ],
+   q(1069) => [
+      q(Bamenyam),
+      ],
+   q(1070) => [
+      q(Bamu),
+      ],
+   q(1071) => [
+      q(Baga Pokur),
+      ],
+   q(1072) => [
+      q(Bariai),
+      ],
+   q(1073) => [
+      q(Baoule),
+      ],
+   q(1074) => [
+      q(Bardi),
+      ],
+   q(1075) => [
+      q(Bunaba),
+      ],
+   q(1076) => [
+      q(Central Bikol),
+      ],
+   q(1077) => [
+      q(Bannoni),
+      ],
+   q(1078) => [
+      q(Bali (Nigeria)),
+      ],
+   q(1079) => [
+      q(Kaluli),
+      ],
+   q(1080) => [
+      q(Bali (Democratic Republic of Congo)),
+      ],
+   q(1081) => [
+      q(Bench),
+      ],
+   q(1082) => [
+      q(Babine),
+      ],
+   q(1083) => [
+      q(Kohumono),
+      ],
+   q(1084) => [
+      q(Bendi),
+      ],
+   q(1085) => [
+      q(Awad Bing),
+      ],
+   q(1086) => [
+      q(Shoo-Minda-Nye),
+      ],
+   q(1087) => [
+      q(Bana),
+      ],
+   q(1088) => [
+      q(Bacama),
+      ],
+   q(1089) => [
+      q(Bainouk-Gunyaamolo),
+      ],
+   q(1090) => [
+      q(Bayot),
+      ],
+   q(1091) => [
+      q(Basap),
+      ],
+   q(1092) => [
+      q(Embera-Baudo),
+      ],
+   q(1093) => [
+      q(Bunama),
+      ],
+   q(1094) => [
+      q(Bade),
+      ],
+   q(1095) => [
+      q(Biage),
+      ],
+   q(1096) => [
+      q(Bonggi),
+      ],
+   q(1097) => [
+      q(Baka (Sudan)),
+      ],
+   q(1098) => [
+      q(Burun),
+      ],
+   q(1099) => [
+      q(Bai),
+      ],
+   q(1100) => [
+      q(Budukh),
+      ],
+   q(1101) => [
+      q(Indonesian Bajau),
+      ],
+   q(1102) => [
+      q(Buduma),
+      ],
+   q(1103) => [
+      q(Baldemu),
+      ],
+   q(1104) => [
+      q(Morom),
+      ],
+   q(1105) => [
+      q(Bende),
+      ],
+   q(1106) => [
+      q(Bahnar),
+      ],
+   q(1107) => [
+      q(West Coast Bajau),
+      ],
+   q(1108) => [
+      q(Burunge),
+      ],
+   q(1109) => [
+      q(Bokoto),
+      ],
+   q(1110) => [
+      q(Oroko),
+      ],
+   q(1111) => [
+      q(Bodo Parja),
+      ],
+   q(1112) => [
+      q(Baham),
+      ],
+   q(1113) => [
+      q(Budong-Budong),
+      ],
+   q(1114) => [
+      q(Bandjalang),
+      ],
+   q(1115) => [
+      q(Badeshi),
+      ],
+   q(1116) => [
+      q(Beaver),
+      ],
+   q(1117) => [
+      q(Bebele),
+      ],
+   q(1118) => [
+      q(Iceve-Maci),
+      ],
+   q(1119) => [
+      q(Bedoanas),
+      ],
+   q(1120) => [
+      q(Byangsi),
+      ],
+   q(1121) => [
+      q(Benabena),
+      ],
+   q(1122) => [
+      q(Belait),
+      ],
+   q(1123) => [
+      q(Biali),
+      ],
+   q(1124) => [
+      q(Bekati'),
+      ],
+   q(1125) => [
+      q(Bebeli),
+      ],
+   q(1126) => [
+      q(Beami),
+      ],
+   q(1127) => [
+      q(Besoa),
+      ],
+   q(1128) => [
+      q(Beembe),
+      ],
+   q(1129) => [
+      q(Besme),
+      ],
+   q(1130) => [
+      q(Guiberoua Bete),
+      ],
+   q(1131) => [
+      q(Blagar),
+      ],
+   q(1132) => [
+      q(Daloa Bete),
+      ],
+   q(1133) => [
+      q(Betawi),
+      ],
+   q(1134) => [
+      q(Jur Modo),
+      ],
+   q(1135) => [
+      q(Beli (Papua New Guinea)),
+      ],
+   q(1136) => [
+      q(Bena (Tanzania)),
+      ],
+   q(1137) => [
+      q(Bari),
+      ],
+   q(1138) => [
+      q(Pauri Bareli),
+      ],
+   q(1139) => [
+      q(Panyi Bai),
+      q(Northern Bai),
+      ],
+   q(1140) => [
+      q(Bafut),
+      ],
+   q(1141) => [
+      q(Betaf),
+      q(Tena),
+      ],
+   q(1142) => [
+      q(Bofi),
+      ],
+   q(1143) => [
+      q(Busang Kayan),
+      ],
+   q(1144) => [
+      q(Blafe),
+      ],
+   q(1145) => [
+      q(British Sign Language),
+      ],
+   q(1146) => [
+      q(Bafanji),
+      ],
+   q(1147) => [
+      q(Ban Khor Sign Language),
+      ],
+   q(1148) => [
+      q(Banda-Ndele),
+      ],
+   q(1149) => [
+      q(Mmen),
+      ],
+   q(1150) => [
+      q(Bunak),
+      ],
+   q(1151) => [
+      q(Malba Birifor),
+      ],
+   q(1152) => [
+      q(Beba),
+      ],
+   q(1153) => [
+      q(Badaga),
+      ],
+   q(1154) => [
+      q(Bazigar),
+      ],
+   q(1155) => [
+      q(Southern Bai),
+      ],
+   q(1156) => [
+      q(Balti),
+      ],
+   q(1157) => [
+      q(Gahri),
+      ],
+   q(1158) => [
+      q(Bondo),
+      ],
+   q(1159) => [
+      q(Bantayanon),
+      ],
+   q(1160) => [
+      q(Bagheli),
+      ],
+   q(1161) => [
+      q(Mahasu Pahari),
+      ],
+   q(1162) => [
+      q(Gwamhi-Wuri),
+      ],
+   q(1163) => [
+      q(Bobongko),
+      ],
+   q(1164) => [
+      q(Haryanvi),
+      ],
+   q(1165) => [
+      q(Rathwi Bareli),
+      ],
+   q(1166) => [
+      q(Bauria),
+      ],
+   q(1167) => [
+      q(Bangandu),
+      ],
+   q(1168) => [
+      q(Bugun),
+      ],
+   q(1169) => [
+      q(Giangan),
+      ],
+   q(1170) => [
+      q(Bangolan),
+      ],
+   q(1171) => [
+      q(Bit),
+      q(Buxinhua),
+      ],
+   q(1172) => [
+      q(Bo (Laos)),
+      ],
+   q(1173) => [
+      q(Western Balochi),
+      ],
+   q(1174) => [
+      q(Baga Koga),
+      ],
+   q(1175) => [
+      q(Eastern Balochi),
+      ],
+   q(1176) => [
+      q(Bagri),
+      ],
+   q(1177) => [
+      q(Bawm Chin),
+      ],
+   q(1178) => [
+      q(Tagabawa),
+      ],
+   q(1179) => [
+      q(Bughotu),
+      ],
+   q(1180) => [
+      q(Mbongno),
+      ],
+   q(1181) => [
+      q(Warkay-Bipim),
+      ],
+   q(1182) => [
+      q(Bhatri),
+      ],
+   q(1183) => [
+      q(Balkan Gagauz Turkish),
+      ],
+   q(1184) => [
+      q(Benggoi),
+      ],
+   q(1185) => [
+      q(Banggai),
+      ],
+   q(1186) => [
+      q(Bharia),
+      ],
+   q(1187) => [
+      q(Bhili),
+      ],
+   q(1188) => [
+      q(Biga),
+      ],
+   q(1189) => [
+      q(Bhadrawahi),
+      ],
+   q(1190) => [
+      q(Bhaya),
+      ],
+   q(1191) => [
+      q(Odiai),
+      ],
+   q(1192) => [
+      q(Binandere),
+      ],
+   q(1193) => [
+      q(Bukharic),
+      ],
+   q(1194) => [
+      q(Bhilali),
+      ],
+   q(1195) => [
+      q(Bahing),
+      ],
+   q(1196) => [
+      q(Bimin),
+      ],
+   q(1197) => [
+      q(Bathari),
+      ],
+   q(1198) => [
+      q(Bohtan Neo-Aramaic),
+      ],
+   q(1199) => [
+      q(Bima),
+      ],
+   q(1200) => [
+      q(Tukang Besi South),
+      ],
+   q(1201) => [
+      q(Bara Malagasy),
+      ],
+   q(1202) => [
+      q(Buwal),
+      ],
+   q(1203) => [
+      q(Bhattiyali),
+      ],
+   q(1204) => [
+      q(Bhunjia),
+      ],
+   q(1205) => [
+      q(Bahau),
+      ],
+   q(1206) => [
+      q(Biak),
+      ],
+   q(1207) => [
+      q(Bhalay),
+      ],
+   q(1208) => [
+      q(Bhele),
+      ],
+   q(1209) => [
+      q(Bada (Indonesia)),
+      ],
+   q(1210) => [
+      q(Badimaya),
+      ],
+   q(1211) => [
+      q(Bissa),
+      q(Bisa),
+      ],
+   q(1212) => [
+      q(Bikaru),
+      ],
+   q(1213) => [
+      q(Bidiyo),
+      ],
+   q(1214) => [
+      q(Bepour),
+      ],
+   q(1215) => [
+      q(Biafada),
+      ],
+   q(1216) => [
+      q(Biangai),
+      ],
+   q(1217) => [
+      q(Vaghat-Ya-Bijim-Legeri),
+      ],
+   q(1218) => [
+      q(Bile),
+      ],
+   q(1219) => [
+      q(Bimoba),
+      ],
+   q(1220) => [
+      q(Nai),
+      ],
+   q(1221) => [
+      q(Bila),
+      ],
+   q(1222) => [
+      q(Bipi),
+      ],
+   q(1223) => [
+      q(Bisorio),
+      ],
+   q(1224) => [
+      q(Berinomo),
+      ],
+   q(1225) => [
+      q(Biete),
+      ],
+   q(1226) => [
+      q(Southern Birifor),
+      ],
+   q(1227) => [
+      q(Kol (Cameroon)),
+      ],
+   q(1228) => [
+      q(Bijori),
+      ],
+   q(1229) => [
+      q(Birhor),
+      ],
+   q(1230) => [
+      q(Baloi),
+      ],
+   q(1231) => [
+      q(Budza),
+      ],
+   q(1232) => [
+      q(Banggarla),
+      ],
+   q(1233) => [
+      q(Bariji),
+      ],
+   q(1234) => [
+      q(Biao-Jiao Mien),
+      ],
+   q(1235) => [
+      q(Barzani Jewish Neo-Aramaic),
+      ],
+   q(1236) => [
+      q(Bidyogo),
+      ],
+   q(1237) => [
+      q(Bahinemo),
+      ],
+   q(1238) => [
+      q(Burji),
+      ],
+   q(1239) => [
+      q(Kanauji),
+      ],
+   q(1240) => [
+      q(Barok),
+      ],
+   q(1241) => [
+      q(Bulu (Papua New Guinea)),
+      ],
+   q(1242) => [
+      q(Bajelani),
+      ],
+   q(1243) => [
+      q(Banjar),
+      ],
+   q(1244) => [
+      q(Mid-Southern Banda),
+      ],
+   q(1245) => [
+      q(Fanamaket),
+      ],
+   q(1246) => [
+      q(Binumarien),
+      ],
+   q(1247) => [
+      q(Bajan),
+      ],
+   q(1248) => [
+      q(Balanta-Ganja),
+      ],
+   q(1249) => [
+      q(Busuu),
+      ],
+   q(1250) => [
+      q(Bedjond),
+      ],
+   q(1251) => [
+      q(Bakwe),
+      ],
+   q(1252) => [
+      q(Banao Itneg),
+      ],
+   q(1253) => [
+      q(Bayali),
+      ],
+   q(1254) => [
+      q(Baruga),
+      ],
+   q(1255) => [
+      q(Kyak),
+      ],
+   q(1256) => [
+      q(Baka (Cameroon)),
+      ],
+   q(1257) => [
+      q(Binukid),
+      q(Talaandig),
+      ],
+   q(1258) => [
+      q(Beeke),
+      ],
+   q(1259) => [
+      q(Buraka),
+      ],
+   q(1260) => [
+      q(Bakoko),
+      ],
+   q(1261) => [
+      q(Baki),
+      ],
+   q(1262) => [
+      q(Pande),
+      ],
+   q(1263) => [
+      q(Brokskat),
+      ],
+   q(1264) => [
+      q(Berik),
+      ],
+   q(1265) => [
+      q(Kom (Cameroon)),
+      ],
+   q(1266) => [
+      q(Bukitan),
+      ],
+   q(1267) => [
+      q(Kwa'),
+      ],
+   q(1268) => [
+      q(Boko (Democratic Republic of Congo)),
+      ],
+   q(1269) => [
+      q(Bakairi),
+      ],
+   q(1270) => [
+      q(Bakumpai),
+      ],
+   q(1271) => [
+      q(Northern Sorsoganon),
+      ],
+   q(1272) => [
+      q(Boloki),
+      ],
+   q(1273) => [
+      q(Buhid),
+      ],
+   q(1274) => [
+      q(Bekwarra),
+      ],
+   q(1275) => [
+      q(Bekwel),
+      ],
+   q(1276) => [
+      q(Baikeno),
+      ],
+   q(1277) => [
+      q(Bokyi),
+      ],
+   q(1278) => [
+      q(Bungku),
+      ],
+   q(1279) => [
+      q(Bilua),
+      ],
+   q(1280) => [
+      q(Bella Coola),
+      ],
+   q(1281) => [
+      q(Bolango),
+      ],
+   q(1282) => [
+      q(Balanta-Kentohe),
+      ],
+   q(1283) => [
+      q(Buol),
+      ],
+   q(1284) => [
+      q(Balau),
+      ],
+   q(1285) => [
+      q(Kuwaa),
+      ],
+   q(1286) => [
+      q(Bolia),
+      ],
+   q(1287) => [
+      q(Bolongan),
+      ],
+   q(1288) => [
+      q(Pa'o Karen),
+      q(Pa'O),
+      ],
+   q(1289) => [
+      q(Biloxi),
+      ],
+   q(1290) => [
+      q(Beli (Sudan)),
+      ],
+   q(1291) => [
+      q(Southern Catanduanes Bikol),
+      ],
+   q(1292) => [
+      q(Anii),
+      ],
+   q(1293) => [
+      q(Blablanga),
+      ],
+   q(1294) => [
+      q(Baluan-Pam),
+      ],
+   q(1295) => [
+      q(Blang),
+      ],
+   q(1296) => [
+      q(Balaesang),
+      ],
+   q(1297) => [
+      q(Tai Dam),
+      ],
+   q(1298) => [
+      q(Kibala),
+      q(Bolo),
+      ],
+   q(1299) => [
+      q(Balangao),
+      ],
+   q(1300) => [
+      q(Mag-Indi Ayta),
+      ],
+   q(1301) => [
+      q(Notre),
+      ],
+   q(1302) => [
+      q(Balantak),
+      ],
+   q(1303) => [
+      q(Lame),
+      ],
+   q(1304) => [
+      q(Bembe),
+      ],
+   q(1305) => [
+      q(Biem),
+      ],
+   q(1306) => [
+      q(Baga Manduri),
+      ],
+   q(1307) => [
+      q(Limassa),
+      ],
+   q(1308) => [
+      q(Bom-Kim),
+      ],
+   q(1309) => [
+      q(Bamwe),
+      ],
+   q(1310) => [
+      q(Kein),
+      ],
+   q(1311) => [
+      q(Bagirmi),
+      ],
+   q(1312) => [
+      q(Bote-Majhi),
+      ],
+   q(1313) => [
+      q(Ghayavi),
+      ],
+   q(1314) => [
+      q(Bomboli),
+      ],
+   q(1315) => [
+      q(Northern Betsimisaraka Malagasy),
+      ],
+   q(1316) => [
+      q(Bina (Papua New Guinea)),
+      ],
+   q(1317) => [
+      q(Bambalang),
+      ],
+   q(1318) => [
+      q(Bulgebi),
+      ],
+   q(1319) => [
+      q(Bomu),
+      ],
+   q(1320) => [
+      q(Muinane),
+      ],
+   q(1321) => [
+      q(Bilma Kanuri),
+      ],
+   q(1322) => [
+      q(Biao Mon),
+      ],
+   q(1323) => [
+      q(Somba-Siawari),
+      ],
+   q(1324) => [
+      q(Bum),
+      ],
+   q(1325) => [
+      q(Bomwali),
+      ],
+   q(1326) => [
+      q(Baimak),
+      ],
+   q(1327) => [
+      q(Baramu),
+      ],
+   q(1328) => [
+      q(Bonerate),
+      ],
+   q(1329) => [
+      q(Bookan),
+      ],
+   q(1330) => [
+      q(Bontok),
+      ],
+   q(1331) => [
+      q(Banda (Indonesia)),
+      ],
+   q(1332) => [
+      q(Bintauna),
+      ],
+   q(1333) => [
+      q(Masiwang),
+      ],
+   q(1334) => [
+      q(Benga),
+      ],
+   q(1335) => [
+      q(Bangi),
+      ],
+   q(1336) => [
+      q(Eastern Tawbuid),
+      ],
+   q(1337) => [
+      q(Bierebo),
+      ],
+   q(1338) => [
+      q(Boon),
+      ],
+   q(1339) => [
+      q(Batanga),
+      ],
+   q(1340) => [
+      q(Bunun),
+      ],
+   q(1341) => [
+      q(Bantoanon),
+      ],
+   q(1342) => [
+      q(Bola),
+      ],
+   q(1343) => [
+      q(Bantik),
+      ],
+   q(1344) => [
+      q(Butmas-Tur),
+      ],
+   q(1345) => [
+      q(Bundeli),
+      ],
+   q(1346) => [
+      q(Bentong),
+      ],
+   q(1347) => [
+      q(Bonerif),
+      q(Beneraf),
+      q(Edwas),
+      ],
+   q(1348) => [
+      q(Bisis),
+      ],
+   q(1349) => [
+      q(Bangubangu),
+      ],
+   q(1350) => [
+      q(Bintulu),
+      ],
+   q(1351) => [
+      q(Beezen),
+      ],
+   q(1352) => [
+      q(Bora),
+      ],
+   q(1353) => [
+      q(Aweer),
+      ],
+   q(1354) => [
+      q(Mundabli),
+      ],
+   q(1355) => [
+      q(Bolon),
+      ],
+   q(1356) => [
+      q(Bamako Sign Language),
+      ],
+   q(1357) => [
+      q(Boma),
+      ],
+   q(1358) => [
+      q(Barbareno),
+      ],
+   q(1359) => [
+      q(Anjam),
+      ],
+   q(1360) => [
+      q(Bonjo),
+      ],
+   q(1361) => [
+      q(Bole),
+      ],
+   q(1362) => [
+      q(Berom),
+      ],
+   q(1363) => [
+      q(Bine),
+      ],
+   q(1364) => [
+      q(Tiemacewe Bozo),
+      ],
+   q(1365) => [
+      q(Bonkiman),
+      ],
+   q(1366) => [
+      q(Bogaya),
+      ],
+   q(1367) => [
+      q(Bororo),
+      ],
+   q(1368) => [
+      q(Bongo),
+      ],
+   q(1369) => [
+      q(Bondei),
+      ],
+   q(1370) => [
+      q(Tuwuli),
+      ],
+   q(1371) => [
+      q(Rema),
+      ],
+   q(1372) => [
+      q(Buamu),
+      ],
+   q(1373) => [
+      q(Bodo (Central African Republic)),
+      ],
+   q(1374) => [
+      q(Tieyaxo Bozo),
+      ],
+   q(1375) => [
+      q(Daakaka),
+      ],
+   q(1376) => [
+      q(Barbacoas),
+      ],
+   q(1377) => [
+      q(Banda-Banda),
+      ],
+   q(1378) => [
+      q(Bonggo),
+      ],
+   q(1379) => [
+      q(Botlikh),
+      ],
+   q(1380) => [
+      q(Bagupi),
+      ],
+   q(1381) => [
+      q(Binji),
+      ],
+   q(1382) => [
+      q(Orowe),
+      q('Oroe),
+      ],
+   q(1383) => [
+      q(Broome Pearling Lugger Pidgin),
+      ],
+   q(1384) => [
+      q(Biyom),
+      ],
+   q(1385) => [
+      q(Dzao Min),
+      ],
+   q(1386) => [
+      q(Anasi),
+      ],
+   q(1387) => [
+      q(Kaure),
+      ],
+   q(1388) => [
+      q(Banda Malay),
+      ],
+   q(1389) => [
+      q(Koronadal Blaan),
+      ],
+   q(1390) => [
+      q(Sarangani Blaan),
+      ],
+   q(1391) => [
+      q(Barrow Point),
+      ],
+   q(1392) => [
+      q(Bongu),
+      ],
+   q(1393) => [
+      q(Bian Marind),
+      ],
+   q(1394) => [
+      q(Bo (Papua New Guinea)),
+      ],
+   q(1395) => [
+      q(Palya Bareli),
+      ],
+   q(1396) => [
+      q(Bishnupriya),
+      ],
+   q(1397) => [
+      q(Bilba),
+      ],
+   q(1398) => [
+      q(Tchumbuli),
+      ],
+   q(1399) => [
+      q(Bagusa),
+      ],
+   q(1400) => [
+      q(Boko (Benin)),
+      q(Boo),
+      ],
+   q(1401) => [
+      q(Bung),
+      ],
+   q(1402) => [
+      q(Baga Kaloum),
+      ],
+   q(1403) => [
+      q(Bago-Kusuntu),
+      ],
+   q(1404) => [
+      q(Baima),
+      ],
+   q(1405) => [
+      q(Bakhtiari),
+      ],
+   q(1406) => [
+      q(Bandial),
+      ],
+   q(1407) => [
+      q(Banda-Mbres),
+      ],
+   q(1408) => [
+      q(Bilakura),
+      ],
+   q(1409) => [
+      q(Wumboko),
+      ],
+   q(1410) => [
+      q(Bulgarian Sign Language),
+      ],
+   q(1411) => [
+      q(Balo),
+      ],
+   q(1412) => [
+      q(Busa),
+      ],
+   q(1413) => [
+      q(Biritai),
+      ],
+   q(1414) => [
+      q(Burusu),
+      ],
+   q(1415) => [
+      q(Bosngun),
+      ],
+   q(1416) => [
+      q(Bamukumbit),
+      ],
+   q(1417) => [
+      q(Boguru),
+      ],
+   q(1418) => [
+      q(Koro Wachi),
+      q(Begbere-Ejar),
+      ],
+   q(1419) => [
+      q(Buru (Nigeria)),
+      ],
+   q(1420) => [
+      q(Baangi),
+      ],
+   q(1421) => [
+      q(Bengkala Sign Language),
+      ],
+   q(1422) => [
+      q(Bakaka),
+      ],
+   q(1423) => [
+      q(Lave),
+      ],
+   q(1424) => [
+      q(Berbice Creole Dutch),
+      ],
+   q(1425) => [
+      q(Baraamu),
+      ],
+   q(1426) => [
+      q(Bera),
+      ],
+   q(1427) => [
+      q(Baure),
+      ],
+   q(1428) => [
+      q(Brahui),
+      ],
+   q(1429) => [
+      q(Mokpwe),
+      ],
+   q(1430) => [
+      q(Bieria),
+      ],
+   q(1431) => [
+      q(Birked),
+      ],
+   q(1432) => [
+      q(Birwa),
+      ],
+   q(1433) => [
+      q(Barambu),
+      ],
+   q(1434) => [
+      q(Boruca),
+      ],
+   q(1435) => [
+      q(Brokkat),
+      ],
+   q(1436) => [
+      q(Barapasi),
+      ],
+   q(1437) => [
+      q(Breri),
+      ],
+   q(1438) => [
+      q(Birao),
+      ],
+   q(1439) => [
+      q(Baras),
+      ],
+   q(1440) => [
+      q(Bitare),
+      ],
+   q(1441) => [
+      q(Eastern Bru),
+      ],
+   q(1442) => [
+      q(Western Bru),
+      ],
+   q(1443) => [
+      q(Bellari),
+      ],
+   q(1444) => [
+      q(Bodo (India)),
+      ],
+   q(1445) => [
+      q(Burui),
+      ],
+   q(1446) => [
+      q(Bilbil),
+      ],
+   q(1447) => [
+      q(Abinomn),
+      ],
+   q(1448) => [
+      q(Brunei Bisaya),
+      ],
+   q(1449) => [
+      q(Bassari),
+      q(Oniyan),
+      ],
+   q(1450) => [
+      q(Wushi),
+      ],
+   q(1451) => [
+      q(Bauchi),
+      ],
+   q(1452) => [
+      q(Bashkardi),
+      ],
+   q(1453) => [
+      q(Kati),
+      ],
+   q(1454) => [
+      q(Bassossi),
+      ],
+   q(1455) => [
+      q(Bangwinji),
+      ],
+   q(1456) => [
+      q(Burushaski),
+      ],
+   q(1457) => [
+      q(Basa-Gumna),
+      ],
+   q(1458) => [
+      q(Busami),
+      ],
+   q(1459) => [
+      q(Barasana-Eduria),
+      ],
+   q(1460) => [
+      q(Buso),
+      ],
+   q(1461) => [
+      q(Baga Sitemu),
+      ],
+   q(1462) => [
+      q(Bassa),
+      ],
+   q(1463) => [
+      q(Bassa-Kontagora),
+      ],
+   q(1464) => [
+      q(Akoose),
+      ],
+   q(1465) => [
+      q(Basketo),
+      ],
+   q(1466) => [
+      q(Bahonsuai),
+      ],
+   q(1467) => [
+      q(Baga Sobane),
+      ],
+   q(1468) => [
+      q(Baiso),
+      ],
+   q(1469) => [
+      q(Yangkam),
+      ],
+   q(1470) => [
+      q(Sabah Bisaya),
+      ],
+   q(1471) => [
+      q(Bata),
+      ],
+   q(1472) => [
+      q(Bati (Cameroon)),
+      ],
+   q(1473) => [
+      q(Batak Dairi),
+      ],
+   q(1474) => [
+      q(Gamo-Ningi),
+      ],
+   q(1475) => [
+      q(Birgit),
+      ],
+   q(1476) => [
+      q(Gagnoa Bete),
+      ],
+   q(1477) => [
+      q(Biatah Bidayuh),
+      ],
+   q(1478) => [
+      q(Burate),
+      ],
+   q(1479) => [
+      q(Bacanese Malay),
+      ],
+   q(1480) => [
+      q(Batak Mandailing),
+      ],
+   q(1481) => [
+      q(Ratagnon),
+      ],
+   q(1482) => [
+      q(Rinconada Bikol),
+      ],
+   q(1483) => [
+      q(Budibud),
+      ],
+   q(1484) => [
+      q(Batek),
+      ],
+   q(1485) => [
+      q(Baetora),
+      ],
+   q(1486) => [
+      q(Batak Simalungun),
+      ],
+   q(1487) => [
+      q(Bete-Bendi),
+      ],
+   q(1488) => [
+      q(Batu),
+      ],
+   q(1489) => [
+      q(Bateri),
+      ],
+   q(1490) => [
+      q(Butuanon),
+      ],
+   q(1491) => [
+      q(Batak Karo),
+      ],
+   q(1492) => [
+      q(Bobot),
+      ],
+   q(1493) => [
+      q(Batak Alas-Kluet),
+      ],
+   q(1494) => [
+      q(Bua),
+      ],
+   q(1495) => [
+      q(Bushi),
+      ],
+   q(1496) => [
+      q(Ntcham),
+      ],
+   q(1497) => [
+      q(Beothuk),
+      ],
+   q(1498) => [
+      q(Bushoong),
+      ],
+   q(1499) => [
+      q(Younuo Bunu),
+      ],
+   q(1500) => [
+      q(Bongili),
+      ],
+   q(1501) => [
+      q(Basa-Gurmana),
+      ],
+   q(1502) => [
+      q(Bugawac),
+      ],
+   q(1503) => [
+      q(Bulu (Cameroon)),
+      ],
+   q(1504) => [
+      q(Sherbro),
+      ],
+   q(1505) => [
+      q(Terei),
+      ],
+   q(1506) => [
+      q(Busoa),
+      ],
+   q(1507) => [
+      q(Brem),
+      ],
+   q(1508) => [
+      q(Bokobaru),
+      ],
+   q(1509) => [
+      q(Bungain),
+      ],
+   q(1510) => [
+      q(Budu),
+      ],
+   q(1511) => [
+      q(Bun),
+      ],
+   q(1512) => [
+      q(Bubi),
+      ],
+   q(1513) => [
+      q(Boghom),
+      ],
+   q(1514) => [
+      q(Bullom So),
+      ],
+   q(1515) => [
+      q(Bukwen),
+      ],
+   q(1516) => [
+      q(Barein),
+      ],
+   q(1517) => [
+      q(Bube),
+      ],
+   q(1518) => [
+      q(Baelelea),
+      ],
+   q(1519) => [
+      q(Baeggu),
+      ],
+   q(1520) => [
+      q(Berau Malay),
+      ],
+   q(1521) => [
+      q(Boor),
+      ],
+   q(1522) => [
+      q(Bonkeng),
+      ],
+   q(1523) => [
+      q(Bure),
+      ],
+   q(1524) => [
+      q(Belanda Viri),
+      ],
+   q(1525) => [
+      q(Baan),
+      ],
+   q(1526) => [
+      q(Bukat),
+      ],
+   q(1527) => [
+      q(Bolivian Sign Language),
+      ],
+   q(1528) => [
+      q(Bamunka),
+      ],
+   q(1529) => [
+      q(Buna),
+      ],
+   q(1530) => [
+      q(Bolgo),
+      ],
+   q(1531) => [
+      q(Bumang),
+      ],
+   q(1532) => [
+      q(Birri),
+      ],
+   q(1533) => [
+      q(Burarra),
+      ],
+   q(1534) => [
+      q(Bati (Indonesia)),
+      ],
+   q(1535) => [
+      q(Bukit Malay),
+      ],
+   q(1536) => [
+      q(Baniva),
+      ],
+   q(1537) => [
+      q(Boga),
+      ],
+   q(1538) => [
+      q(Dibole),
+      ],
+   q(1539) => [
+      q(Baybayanon),
+      ],
+   q(1540) => [
+      q(Bauzi),
+      ],
+   q(1541) => [
+      q(Bwatoo),
+      ],
+   q(1542) => [
+      q(Namosi-Naitasiri-Serua),
+      ],
+   q(1543) => [
+      q(Bwile),
+      ],
+   q(1544) => [
+      q(Bwaidoka),
+      ],
+   q(1545) => [
+      q(Bwe Karen),
+      ],
+   q(1546) => [
+      q(Boselewa),
+      ],
+   q(1547) => [
+      q(Barwe),
+      ],
+   q(1548) => [
+      q(Bishuo),
+      ],
+   q(1549) => [
+      q(Baniwa),
+      ],
+   q(1550) => [
+      q(Laa Laa Bwamu),
+      ],
+   q(1551) => [
+      q(Bauwaki),
+      ],
+   q(1552) => [
+      q(Bwela),
+      ],
+   q(1553) => [
+      q(Biwat),
+      ],
+   q(1554) => [
+      q(Wunai Bunu),
+      ],
+   q(1555) => [
+      q(Boro (Ethiopia)),
+      q(Borna (Ethiopia)),
+      ],
+   q(1556) => [
+      q(Mandobo Bawah),
+      ],
+   q(1557) => [
+      q(Southern Bobo Madare),
+      ],
+   q(1558) => [
+      q(Bura-Pabir),
+      ],
+   q(1559) => [
+      q(Bomboma),
+      ],
+   q(1560) => [
+      q(Bafaw-Balong),
+      ],
+   q(1561) => [
+      q(Buli (Ghana)),
+      ],
+   q(1562) => [
+      q(Bwa),
+      ],
+   q(1563) => [
+      q(Bu-Nao Bunu),
+      ],
+   q(1564) => [
+      q(Cwi Bwamu),
+      ],
+   q(1565) => [
+      q(Bwisi),
+      ],
+   q(1566) => [
+      q(Tairaha),
+      ],
+   q(1567) => [
+      q(Belanda Bor),
+      ],
+   q(1568) => [
+      q(Molengue),
+      ],
+   q(1569) => [
+      q(Pela),
+      ],
+   q(1570) => [
+      q(Birale),
+      ],
+   q(1571) => [
+      q(Bilur),
+      q(Minigir),
+      ],
+   q(1572) => [
+      q(Bangala),
+      ],
+   q(1573) => [
+      q(Buhutu),
+      ],
+   q(1574) => [
+      q(Pirlatapa),
+      ],
+   q(1575) => [
+      q(Bayungu),
+      ],
+   q(1576) => [
+      q(Bukusu),
+      q(Lubukusu),
+      ],
+   q(1577) => [
+      q(Jalkunan),
+      ],
+   q(1578) => [
+      q(Mongolia Buriat),
+      ],
+   q(1579) => [
+      q(Burduna),
+      ],
+   q(1580) => [
+      q(Barikanchi),
+      ],
+   q(1581) => [
+      q(Bebil),
+      ],
+   q(1582) => [
+      q(Beele),
+      ],
+   q(1583) => [
+      q(Russia Buriat),
+      ],
+   q(1584) => [
+      q(Busam),
+      ],
+   q(1585) => [
+      q(China Buriat),
+      ],
+   q(1586) => [
+      q(Berakou),
+      ],
+   q(1587) => [
+      q(Bankagooma),
+      ],
+   q(1588) => [
+      q(Binahari),
+      ],
+   q(1589) => [
+      q(Batak),
+      ],
+   q(1590) => [
+      q(Bikya),
+      ],
+   q(1591) => [
+      q(Ubaghara),
+      ],
+   q(1592) => [
+      q(Benyadu'),
+      ],
+   q(1593) => [
+      q(Pouye),
+      ],
+   q(1594) => [
+      q(Bete),
+      ],
+   q(1595) => [
+      q(Baygo),
+      ],
+   q(1596) => [
+      q(Bhujel),
+      ],
+   q(1597) => [
+      q(Buyu),
+      ],
+   q(1598) => [
+      q(Bina (Nigeria)),
+      ],
+   q(1599) => [
+      q(Biao),
+      ],
+   q(1600) => [
+      q(Bayono),
+      ],
+   q(1601) => [
+      q(Bidyara),
+      ],
+   q(1602) => [
+      q(Biyo),
+      ],
+   q(1603) => [
+      q(Bumaji),
+      ],
+   q(1604) => [
+      q(Basay),
+      ],
+   q(1605) => [
+      q(Baruya),
+      q(Yipma),
+      ],
+   q(1606) => [
+      q(Burak),
+      ],
+   q(1607) => [
+      q(Berti),
+      ],
+   q(1608) => [
+      q(Medumba),
+      ],
+   q(1609) => [
+      q(Belhariya),
+      ],
+   q(1610) => [
+      q(Qaqet),
+      ],
+   q(1611) => [
+      q(Banaro),
+      ],
+   q(1612) => [
+      q(Bandi),
+      ],
+   q(1613) => [
+      q(Andio),
+      ],
+   q(1614) => [
+      q(Southern Betsimisaraka Malagasy),
+      ],
+   q(1615) => [
+      q(Bribri),
+      ],
+   q(1616) => [
+      q(Jenaama Bozo),
+      ],
+   q(1617) => [
+      q(Boikin),
+      ],
+   q(1618) => [
+      q(Babuza),
+      ],
+   q(1619) => [
+      q(Mapos Buang),
+      ],
+   q(1620) => [
+      q(Bisu),
+      ],
+   q(1621) => [
+      q(Belize Kriol English),
+      ],
+   q(1622) => [
+      q(Nicaragua Creole English),
+      ],
+   q(1623) => [
+      q(Boano (Sulawesi)),
+      ],
+   q(1624) => [
+      q(Bolondo),
+      ],
+   q(1625) => [
+      q(Boano (Maluku)),
+      ],
+   q(1626) => [
+      q(Bozaba),
+      ],
+   q(1627) => [
+      q(Kemberano),
+      ],
+   q(1628) => [
+      q(Buli (Indonesia)),
+      ],
+   q(1629) => [
+      q(Biri),
+      ],
+   q(1630) => [
+      q(Brazilian Sign Language),
+      ],
+   q(1631) => [
+      q(Brithenig),
+      ],
+   q(1632) => [
+      q(Burmeso),
+      ],
+   q(1633) => [
+      q(Naami),
+      ],
+   q(1634) => [
+      q(Basa (Nigeria)),
+      ],
+   q(1635) => [
+      q(Kelengazxo Bozo),
+      ],
+   q(1636) => [
+      q(Obanliku),
+      ],
+   q(1637) => [
+      q(Evant),
+      ],
+   q(1638) => [
+      q(Chorti),
+      ],
+   q(1639) => [
+      q(Garifuna),
+      ],
+   q(1640) => [
+      q(Chuj),
+      ],
+   q(1641) => [
+      q(Lehar),
+      q(Laalaa),
+      ],
+   q(1642) => [
+      q(Southern Carrier),
+      ],
+   q(1643) => [
+      q(Nivacle),
+      ],
+   q(1644) => [
+      q(Cahuarano),
+      ],
+   q(1645) => [
+      q(Chane),
+      ],
+   q(1646) => [
+      q(Kaqchikel),
+      q(Cakchiquel),
+      ],
+   q(1647) => [
+      q(Carolinian),
+      ],
+   q(1648) => [
+      q(Cemuhi),
+      ],
+   q(1649) => [
+      q(Chambri),
+      ],
+   q(1650) => [
+      q(Chacobo),
+      ],
+   q(1651) => [
+      q(Chipaya),
+      ],
+   q(1652) => [
+      q(Car Nicobarese),
+      ],
+   q(1653) => [
+      q(Tsimane),
+      ],
+   q(1654) => [
+      q(Cavinena),
+      ],
+   q(1655) => [
+      q(Callawalla),
+      ],
+   q(1656) => [
+      q(Chiquitano),
+      ],
+   q(1657) => [
+      q(Cayuga),
+      ],
+   q(1658) => [
+      q(Canichana),
+      ],
+   q(1659) => [
+      q(Cabiyari),
+      ],
+   q(1660) => [
+      q(Carapana),
+      ],
+   q(1661) => [
+      q(Carijona),
+      ],
+   q(1662) => [
+      q(Chimila),
+      ],
+   q(1663) => [
+      q(Chachi),
+      ],
+   q(1664) => [
+      q(Ede Cabe),
+      ],
+   q(1665) => [
+      q(Chavacano),
+      ],
+   q(1666) => [
+      q(Bualkhaw Chin),
+      ],
+   q(1667) => [
+      q(Nyahkur),
+      ],
+   q(1668) => [
+      q(Izora),
+      ],
+   q(1669) => [
+      q(Tsucuba),
+      q(Cuba),
+      ],
+   q(1670) => [
+      q(Cashibo-Cacataibo),
+      ],
+   q(1671) => [
+      q(Cashinahua),
+      ],
+   q(1672) => [
+      q(Chayahuita),
+      ],
+   q(1673) => [
+      q(Candoshi-Shapra),
+      ],
+   q(1674) => [
+      q(Cacua),
+      ],
+   q(1675) => [
+      q(Kinabalian),
+      ],
+   q(1676) => [
+      q(Carabayo),
+      ],
+   q(1677) => [
+      q(Cauca),
+      ],
+   q(1678) => [
+      q(Chamicuro),
+      ],
+   q(1679) => [
+      q(Cafundo Creole),
+      ],
+   q(1680) => [
+      q(Chopi),
+      ],
+   q(1681) => [
+      q(Samba Daka),
+      ],
+   q(1682) => [
+      q(Atsam),
+      ],
+   q(1683) => [
+      q(Kasanga),
+      ],
+   q(1684) => [
+      q(Cutchi-Swahili),
+      ],
+   q(1685) => [
+      q(Malaccan Creole Malay),
+      ],
+   q(1686) => [
+      q(Comaltepec Chinantec),
+      ],
+   q(1687) => [
+      q(Chakma),
+      ],
+   q(1688) => [
+      q(Cacaopera),
+      ],
+   q(1689) => [
+      q(Choni),
+      ],
+   q(1690) => [
+      q(Chenchu),
+      ],
+   q(1691) => [
+      q(Chiru),
+      ],
+   q(1692) => [
+      q(Chamari),
+      ],
+   q(1693) => [
+      q(Chambeali),
+      ],
+   q(1694) => [
+      q(Chodri),
+      ],
+   q(1695) => [
+      q(Churahi),
+      ],
+   q(1696) => [
+      q(Chepang),
+      ],
+   q(1697) => [
+      q(Chaudangsi),
+      ],
+   q(1698) => [
+      q(Min Dong Chinese),
+      ],
+   q(1699) => [
+      q(Cinda-Regi-Tiyal),
+      ],
+   q(1700) => [
+      q(Chadian Sign Language),
+      ],
+   q(1701) => [
+      q(Chadong),
+      ],
+   q(1702) => [
+      q(Koda),
+      ],
+   q(1703) => [
+      q(Lower Chehalis),
+      ],
+   q(1704) => [
+      q(Chamacoco),
+      ],
+   q(1705) => [
+      q(Eastern Khumi Chin),
+      ],
+   q(1706) => [
+      q(Cen),
+      ],
+   q(1707) => [
+      q(Centuum),
+      ],
+   q(1708) => [
+      q(Dijim-Bwilim),
+      ],
+   q(1709) => [
+      q(Cara),
+      ],
+   q(1710) => [
+      q(Como Karim),
+      ],
+   q(1711) => [
+      q(Falam Chin),
+      ],
+   q(1712) => [
+      q(Changriwa),
+      ],
+   q(1713) => [
+      q(Kagayanen),
+      ],
+   q(1714) => [
+      q(Chiga),
+      ],
+   q(1715) => [
+      q(Chocangacakha),
+      ],
+   q(1716) => [
+      q(Catawba),
+      ],
+   q(1717) => [
+      q(Highland Oaxaca Chontal),
+      ],
+   q(1718) => [
+      q(Tabasco Chontal),
+      ],
+   q(1719) => [
+      q(Chinook),
+      ],
+   q(1720) => [
+      q(Ojitlan Chinantec),
+      ],
+   q(1721) => [
+      q(Cahuilla),
+      ],
+   q(1722) => [
+      q(Quiotepec Chinantec),
+      ],
+   q(1723) => [
+      q(Cholon),
+      ],
+   q(1724) => [
+      q(Chuwabu),
+      ],
+   q(1725) => [
+      q(Chantyal),
+      ],
+   q(1726) => [
+      q(Ozumacin Chinantec),
+      ],
+   q(1727) => [
+      q(Cia-Cia),
+      ],
+   q(1728) => [
+      q(Ci Gbe),
+      ],
+   q(1729) => [
+      q(Chickasaw),
+      ],
+   q(1730) => [
+      q(Chimariko),
+      ],
+   q(1731) => [
+      q(Cineni),
+      ],
+   q(1732) => [
+      q(Chinali),
+      ],
+   q(1733) => [
+      q(Chitkuli Kinnauri),
+      ],
+   q(1734) => [
+      q(Cimbrian),
+      ],
+   q(1735) => [
+      q(Cinta Larga),
+      ],
+   q(1736) => [
+      q(Chiapanec),
+      ],
+   q(1737) => [
+      q(Tiri),
+      q(Hamea),
+      q(Mea),
+      ],
+   q(1738) => [
+      q(Chippewa),
+      ],
+   q(1739) => [
+      q(Chaima),
+      ],
+   q(1740) => [
+      q(Western Cham),
+      ],
+   q(1741) => [
+      q(Chru),
+      ],
+   q(1742) => [
+      q(Upper Chehalis),
+      ],
+   q(1743) => [
+      q(Chamalal),
+      ],
+   q(1744) => [
+      q(Chokwe),
+      ],
+   q(1745) => [
+      q(Eastern Cham),
+      ],
+   q(1746) => [
+      q(Chenapian),
+      ],
+   q(1747) => [
+      q(Asheninka Pajonal),
+      ],
+   q(1748) => [
+      q(Cabecar),
+      ],
+   q(1749) => [
+      q(Shor),
+      ],
+   q(1750) => [
+      q(Chuave),
+      ],
+   q(1751) => [
+      q(Jinyu Chinese),
+      ],
+   q(1752) => [
+      q(Central Kurdish),
+      ],
+   q(1753) => [
+      q(Chak),
+      ],
+   q(1754) => [
+      q(Cibak),
+      ],
+   q(1755) => [
+      q(Kaang Chin),
+      ],
+   q(1756) => [
+      q(Anufo),
+      ],
+   q(1757) => [
+      q(Kajakse),
+      ],
+   q(1758) => [
+      q(Kairak),
+      ],
+   q(1759) => [
+      q(Tayo),
+      ],
+   q(1760) => [
+      q(Chukot),
+      ],
+   q(1761) => [
+      q(Koasati),
+      ],
+   q(1762) => [
+      q(Kavalan),
+      ],
+   q(1763) => [
+      q(Caka),
+      ],
+   q(1764) => [
+      q(Cakfem-Mushere),
+      ],
+   q(1765) => [
+      q(Cakchiquel-Quiche Mixed Language),
+      ],
+   q(1766) => [
+      q(Ron),
+      ],
+   q(1767) => [
+      q(Chilcotin),
+      ],
+   q(1768) => [
+      q(Chaldean Neo-Aramaic),
+      ],
+   q(1769) => [
+      q(Lealao Chinantec),
+      ],
+   q(1770) => [
+      q(Chilisso),
+      ],
+   q(1771) => [
+      q(Chakali),
+      ],
+   q(1772) => [
+      q(Laitu Chin),
+      ],
+   q(1773) => [
+      q(Idu-Mishmi),
+      ],
+   q(1774) => [
+      q(Chala),
+      ],
+   q(1775) => [
+      q(Clallam),
+      ],
+   q(1776) => [
+      q(Lowland Oaxaca Chontal),
+      ],
+   q(1777) => [
+      q(Lautu Chin),
+      ],
+   q(1778) => [
+      q(Caluyanun),
+      ],
+   q(1779) => [
+      q(Chulym),
+      ],
+   q(1780) => [
+      q(Eastern Highland Chatino),
+      ],
+   q(1781) => [
+      q(Maa),
+      ],
+   q(1782) => [
+      q(Cerma),
+      ],
+   q(1783) => [
+      q(Classical Mongolian),
+      ],
+   q(1784) => [
+      q(Embera-Chami),
+      ],
+   q(1785) => [
+      q(Campalagian),
+      ],
+   q(1786) => [
+      q(Michigamea),
+      ],
+   q(1787) => [
+      q(Mandarin Chinese),
+      ],
+   q(1788) => [
+      q(Central Mnong),
+      ],
+   q(1789) => [
+      q(Mro-Khimi Chin),
+      ],
+   q(1790) => [
+      q(Messapic),
+      ],
+   q(1791) => [
+      q(Camtho),
+      ],
+   q(1792) => [
+      q(Changthang),
+      ],
+   q(1793) => [
+      q(Chinbon Chin),
+      ],
+   q(1794) => [
+      q(Coong),
+      ],
+   q(1795) => [
+      q(Northern Qiang),
+      ],
+   q(1796) => [
+      q(Hakha Chin),
+      q(Haka Chin),
+      ],
+   q(1797) => [
+      q(Ashaninka),
+      ],
+   q(1798) => [
+      q(Khumi Chin),
+      ],
+   q(1799) => [
+      q(Lalana Chinantec),
+      ],
+   q(1800) => [
+      q(Con),
+      ],
+   q(1801) => [
+      q(Central Asmat),
+      ],
+   q(1802) => [
+      q(Tepetotutla Chinantec),
+      ],
+   q(1803) => [
+      q(Chenoua),
+      ],
+   q(1804) => [
+      q(Ngawn Chin),
+      ],
+   q(1805) => [
+      q(Middle Cornish),
+      ],
+   q(1806) => [
+      q(Cocos Islands Malay),
+      ],
+   q(1807) => [
+      q(Chicomuceltec),
+      ],
+   q(1808) => [
+      q(Cocopa),
+      ],
+   q(1809) => [
+      q(Cocama-Cocamilla),
+      ],
+   q(1810) => [
+      q(Koreguaje),
+      ],
+   q(1811) => [
+      q(Colorado),
+      ],
+   q(1812) => [
+      q(Chong),
+      ],
+   q(1813) => [
+      q(Chonyi-Dzihana-Kauma),
+      q(Chichonyi-Chidzihana-Chikauma),
+      ],
+   q(1814) => [
+      q(Cochimi),
+      ],
+   q(1815) => [
+      q(Santa Teresa Cora),
+      ],
+   q(1816) => [
+      q(Columbia-Wenatchi),
+      ],
+   q(1817) => [
+      q(Comanche),
+      ],
+   q(1818) => [
+      q(Cofan),
+      ],
+   q(1819) => [
+      q(Comox),
+      ],
+   q(1820) => [
+      q(Coquille),
+      ],
+   q(1821) => [
+      q(Caquinte),
+      ],
+   q(1822) => [
+      q(Wamey),
+      ],
+   q(1823) => [
+      q(Cao Miao),
+      ],
+   q(1824) => [
+      q(Cowlitz),
+      ],
+   q(1825) => [
+      q(Nanti),
+      ],
+   q(1826) => [
+      q(Chochotec),
+      ],
+   q(1827) => [
+      q(Palantla Chinantec),
+      ],
+   q(1828) => [
+      q(Ucayali-Yurua Asheninka),
+      ],
+   q(1829) => [
+      q(Ajyininka Apurucayali),
+      ],
+   q(1830) => [
+      q(Cappadocian Greek),
+      ],
+   q(1831) => [
+      q(Chinese Pidgin English),
+      ],
+   q(1832) => [
+      q(Cherepon),
+      ],
+   q(1833) => [
+      q(Kpeego),
+      ],
+   q(1834) => [
+      q(Capiznon),
+      ],
+   q(1835) => [
+      q(Pichis Asheninka),
+      ],
+   q(1836) => [
+      q(Pu-Xian Chinese),
+      ],
+   q(1837) => [
+      q(South Ucayali Asheninka),
+      ],
+   q(1838) => [
+      q(Chuanqiandian Cluster Miao),
+      ],
+   q(1839) => [
+      q(Chara),
+      ],
+   q(1840) => [
+      q(Island Carib),
+      ],
+   q(1841) => [
+      q(Lonwolwol),
+      ],
+   q(1842) => [
+      q(Coeur d'Alene),
+      ],
+   q(1843) => [
+      q(Caramanta),
+      ],
+   q(1844) => [
+      q(Michif),
+      ],
+   q(1845) => [
+      q(Saotomense),
+      ],
+   q(1846) => [
+      q(Southern East Cree),
+      ],
+   q(1847) => [
+      q(Plains Cree),
+      ],
+   q(1848) => [
+      q(Northern East Cree),
+      ],
+   q(1849) => [
+      q(Moose Cree),
+      ],
+   q(1850) => [
+      q(El Nayar Cora),
+      ],
+   q(1851) => [
+      q(Crow),
+      ],
+   q(1852) => [
+      q(Iyo'wujwa Chorote),
+      ],
+   q(1853) => [
+      q(Carolina Algonquian),
+      ],
+   q(1854) => [
+      q(Seselwa Creole French),
+      ],
+   q(1855) => [
+      q(Iyojwa'ja Chorote),
+      ],
+   q(1856) => [
+      q(Chaura),
+      ],
+   q(1857) => [
+      q(Chrau),
+      ],
+   q(1858) => [
+      q(Carrier),
+      ],
+   q(1859) => [
+      q(Cori),
+      ],
+   q(1860) => [
+      q(Cruzeno),
+      ],
+   q(1861) => [
+      q(Chiltepec Chinantec),
+      ],
+   q(1862) => [
+      q(Catalan Sign Language),
+      q(Lengua de senas catalana),
+      q(Llengua de Signes Catalana),
+      ],
+   q(1863) => [
+      q(Chiangmai Sign Language),
+      ],
+   q(1864) => [
+      q(Czech Sign Language),
+      ],
+   q(1865) => [
+      q(Cuba Sign Language),
+      ],
+   q(1866) => [
+      q(Chilean Sign Language),
+      ],
+   q(1867) => [
+      q(Asho Chin),
+      ],
+   q(1868) => [
+      q(Coast Miwok),
+      ],
+   q(1869) => [
+      q(Songlai Chin),
+      ],
+   q(1870) => [
+      q(Jola-Kasa),
+      ],
+   q(1871) => [
+      q(Chinese Sign Language),
+      ],
+   q(1872) => [
+      q(Central Sierra Miwok),
+      ],
+   q(1873) => [
+      q(Colombian Sign Language),
+      ],
+   q(1874) => [
+      q(Sochiapam Chinantec),
+      q(Sochiapan Chinantec),
+      ],
+   q(1875) => [
+      q(Croatia Sign Language),
+      ],
+   q(1876) => [
+      q(Costa Rican Sign Language),
+      ],
+   q(1877) => [
+      q(Southern Ohlone),
+      ],
+   q(1878) => [
+      q(Northern Ohlone),
+      ],
+   q(1879) => [
+      q(Sumtu Chin),
+      ],
+   q(1880) => [
+      q(Swampy Cree),
+      ],
+   q(1881) => [
+      q(Siyin Chin),
+      ],
+   q(1882) => [
+      q(Coos),
+      ],
+   q(1883) => [
+      q(Tataltepec Chatino),
+      ],
+   q(1884) => [
+      q(Chetco),
+      ],
+   q(1885) => [
+      q(Tedim Chin),
+      ],
+   q(1886) => [
+      q(Tepinapa Chinantec),
+      ],
+   q(1887) => [
+      q(Chittagonian),
+      ],
+   q(1888) => [
+      q(Thaiphum Chin),
+      ],
+   q(1889) => [
+      q(Tlacoatzintepec Chinantec),
+      ],
+   q(1890) => [
+      q(Chitimacha),
+      ],
+   q(1891) => [
+      q(Chhintange),
+      ],
+   q(1892) => [
+      q(Embera-Catio),
+      ],
+   q(1893) => [
+      q(Western Highland Chatino),
+      ],
+   q(1894) => [
+      q(Northern Catanduanes Bikol),
+      ],
+   q(1895) => [
+      q(Wayanad Chetti),
+      ],
+   q(1896) => [
+      q(Chol),
+      ],
+   q(1897) => [
+      q(Zacatepec Chatino),
+      ],
+   q(1898) => [
+      q(Cua),
+      ],
+   q(1899) => [
+      q(Cubeo),
+      ],
+   q(1900) => [
+      q(Usila Chinantec),
+      ],
+   q(1901) => [
+      q(Chungmboko),
+      q(Cung),
+      ],
+   q(1902) => [
+      q(Chuka),
+      q(Gichuka),
+      ],
+   q(1903) => [
+      q(Cuiba),
+      ],
+   q(1904) => [
+      q(Mashco Piro),
+      ],
+   q(1905) => [
+      q(San Blas Kuna),
+      ],
+   q(1906) => [
+      q(Culina),
+      q(Kulina),
+      ],
+   q(1907) => [
+      q(Cumanagoto),
+      ],
+   q(1908) => [
+      q(Cupeno),
+      ],
+   q(1909) => [
+      q(Cun),
+      ],
+   q(1910) => [
+      q(Chhulung),
+      ],
+   q(1911) => [
+      q(Teutila Cuicatec),
+      ],
+   q(1912) => [
+      q(Tai Ya),
+      ],
+   q(1913) => [
+      q(Cuvok),
+      ],
+   q(1914) => [
+      q(Chukwa),
+      ],
+   q(1915) => [
+      q(Tepeuxila Cuicatec),
+      ],
+   q(1916) => [
+      q(Chug),
+      ],
+   q(1917) => [
+      q(Valle Nacional Chinantec),
+      ],
+   q(1918) => [
+      q(Kabwa),
+      ],
+   q(1919) => [
+      q(Maindo),
+      ],
+   q(1920) => [
+      q(Woods Cree),
+      ],
+   q(1921) => [
+      q(Kwere),
+      ],
+   q(1922) => [
+      q(Chewong),
+      q(Cheq Wong),
+      ],
+   q(1923) => [
+      q(Kuwaataay),
+      ],
+   q(1924) => [
+      q(Nopala Chatino),
+      ],
+   q(1925) => [
+      q(Cayubaba),
+      ],
+   q(1926) => [
+      q(Cuyonon),
+      ],
+   q(1927) => [
+      q(Huizhou Chinese),
+      ],
+   q(1928) => [
+      q(Knaanic),
+      ],
+   q(1929) => [
+      q(Zenzontepec Chatino),
+      ],
+   q(1930) => [
+      q(Min Zhong Chinese),
+      ],
+   q(1931) => [
+      q(Zotung Chin),
+      ],
+   q(1932) => [
+      q(Dangaleat),
+      ],
+   q(1933) => [
+      q(Dambi),
+      ],
+   q(1934) => [
+      q(Marik),
+      ],
+   q(1935) => [
+      q(Duupa),
+      ],
+   q(1936) => [
+      q(Dagbani),
+      ],
+   q(1937) => [
+      q(Gwahatike),
+      ],
+   q(1938) => [
+      q(Day),
+      ],
+   q(1939) => [
+      q(Dar Fur Daju),
+      ],
+   q(1940) => [
+      q(Dahalo),
+      ],
+   q(1941) => [
+      q(Damakawa),
+      ],
+   q(1942) => [
+      q(Daai Chin),
+      ],
+   q(1943) => [
+      q(Dandami Maria),
+      ],
+   q(1944) => [
+      q(Daho-Doo),
+      ],
+   q(1945) => [
+      q(Dar Sila Daju),
+      ],
+   q(1946) => [
+      q(Taita),
+      q(Dawida),
+      ],
+   q(1947) => [
+      q(Davawenyo),
+      ],
+   q(1948) => [
+      q(Dayi),
+      ],
+   q(1949) => [
+      q(Dao),
+      ],
+   q(1950) => [
+      q(Bangime),
+      ],
+   q(1951) => [
+      q(Deno),
+      ],
+   q(1952) => [
+      q(Dadiya),
+      ],
+   q(1953) => [
+      q(Dabe),
+      ],
+   q(1954) => [
+      q(Edopi),
+      ],
+   q(1955) => [
+      q(Dogul Dom Dogon),
+      ],
+   q(1956) => [
+      q(Doka),
+      ],
+   q(1957) => [
+      q(Ida'an),
+      ],
+   q(1958) => [
+      q(Dyirbal),
+      ],
+   q(1959) => [
+      q(Duguri),
+      ],
+   q(1960) => [
+      q(Duriankere),
+      ],
+   q(1961) => [
+      q(Dulbu),
+      ],
+   q(1962) => [
+      q(Duwai),
+      ],
+   q(1963) => [
+      q(Daba),
+      ],
+   q(1964) => [
+      q(Dabarre),
+      ],
+   q(1965) => [
+      q(Ben Tey Dogon),
+      ],
+   q(1966) => [
+      q(Bondum Dom Dogon),
+      ],
+   q(1967) => [
+      q(Dungu),
+      ],
+   q(1968) => [
+      q(Bankan Tey Dogon),
+      ],
+   q(1969) => [
+      q(Dibiyaso),
+      ],
+   q(1970) => [
+      q(Deccan),
+      ],
+   q(1971) => [
+      q(Negerhollands),
+      ],
+   q(1972) => [
+      q(Dadi Dadi),
+      ],
+   q(1973) => [
+      q(Dongotono),
+      ],
+   q(1974) => [
+      q(Doondo),
+      ],
+   q(1975) => [
+      q(Fataluku),
+      ],
+   q(1976) => [
+      q(West Goodenough),
+      ],
+   q(1977) => [
+      q(Jaru),
+      ],
+   q(1978) => [
+      q(Dendi (Benin)),
+      ],
+   q(1979) => [
+      q(Dido),
+      ],
+   q(1980) => [
+      q(Dhudhuroa),
+      ],
+   q(1981) => [
+      q(Donno So Dogon),
+      ],
+   q(1982) => [
+      q(Dawera-Daweloor),
+      ],
+   q(1983) => [
+      q(Dagik),
+      ],
+   q(1984) => [
+      q(Dedua),
+      ],
+   q(1985) => [
+      q(Dewoin),
+      ],
+   q(1986) => [
+      q(Dezfuli),
+      ],
+   q(1987) => [
+      q(Degema),
+      ],
+   q(1988) => [
+      q(Dehwari),
+      ],
+   q(1989) => [
+      q(Demisa),
+      ],
+   q(1990) => [
+      q(Dek),
+      ],
+   q(1991) => [
+      q(Dem),
+      ],
+   q(1992) => [
+      q(Pidgin Delaware),
+      ],
+   q(1993) => [
+      q(Dendi (Central African Republic)),
+      ],
+   q(1994) => [
+      q(Deori),
+      ],
+   q(1995) => [
+      q(Desano),
+      ],
+   q(1996) => [
+      q(Domung),
+      ],
+   q(1997) => [
+      q(Dengese),
+      ],
+   q(1998) => [
+      q(Southern Dagaare),
+      ],
+   q(1999) => [
+      q(Bunoge Dogon),
+      ],
+   q(2000) => [
+      q(Casiguran Dumagat Agta),
+      ],
+   q(2001) => [
+      q(Dagaari Dioula),
+      ],
+   q(2002) => [
+      q(Degenan),
+      ],
+   q(2003) => [
+      q(Doga),
+      ],
+   q(2004) => [
+      q(Dghwede),
+      ],
+   q(2005) => [
+      q(Northern Dagara),
+      ],
+   q(2006) => [
+      q(Dagba),
+      ],
+   q(2007) => [
+      q(Andaandi),
+      q(Dongolawi),
+      ],
+   q(2008) => [
+      q(Dagoman),
+      ],
+   q(2009) => [
+      q(Dogri (individual language)),
+      ],
+   q(2010) => [
+      q(Dogoso),
+      ],
+   q(2011) => [
+      q(Ndra'ngith),
+      ],
+   q(2012) => [
+      q(Degaru),
+      ],
+   q(2013) => [
+      q(Daungwurrung),
+      ],
+   q(2014) => [
+      q(Doghoro),
+      ],
+   q(2015) => [
+      q(Daga),
+      ],
+   q(2016) => [
+      q(Dhundari),
+      ],
+   q(2017) => [
+      q(Dhangu-Djangu),
+      q(Dhangu),
+      q(Djangu),
+      ],
+   q(2018) => [
+      q(Dhimal),
+      ],
+   q(2019) => [
+      q(Dhalandji),
+      ],
+   q(2020) => [
+      q(Zemba),
+      ],
+   q(2021) => [
+      q(Dhanki),
+      ],
+   q(2022) => [
+      q(Dhodia),
+      ],
+   q(2023) => [
+      q(Dhargari),
+      ],
+   q(2024) => [
+      q(Dhaiso),
+      ],
+   q(2025) => [
+      q(Dhurga),
+      ],
+   q(2026) => [
+      q(Dehu),
+      q(Drehu),
+      ],
+   q(2027) => [
+      q(Dhanwar (Nepal)),
+      ],
+   q(2028) => [
+      q(Dhungaloo),
+      ],
+   q(2029) => [
+      q(Dia),
+      ],
+   q(2030) => [
+      q(South Central Dinka),
+      ],
+   q(2031) => [
+      q(Lakota Dida),
+      ],
+   q(2032) => [
+      q(Didinga),
+      ],
+   q(2033) => [
+      q(Dieri),
+      ],
+   q(2034) => [
+      q(Digo),
+      q(Chidigo),
+      ],
+   q(2035) => [
+      q(Kumiai),
+      ],
+   q(2036) => [
+      q(Dimbong),
+      ],
+   q(2037) => [
+      q(Dai),
+      ],
+   q(2038) => [
+      q(Southwestern Dinka),
+      ],
+   q(2039) => [
+      q(Dilling),
+      ],
+   q(2040) => [
+      q(Dime),
+      ],
+   q(2041) => [
+      q(Dibo),
+      ],
+   q(2042) => [
+      q(Northeastern Dinka),
+      ],
+   q(2043) => [
+      q(Dimli (individual language)),
+      ],
+   q(2044) => [
+      q(Dirim),
+      ],
+   q(2045) => [
+      q(Dimasa),
+      ],
+   q(2046) => [
+      q(Dirari),
+      ],
+   q(2047) => [
+      q(Diriku),
+      ],
+   q(2048) => [
+      q(Northwestern Dinka),
+      ],
+   q(2049) => [
+      q(Dixon Reef),
+      ],
+   q(2050) => [
+      q(Diuwe),
+      ],
+   q(2051) => [
+      q(Ding),
+      ],
+   q(2052) => [
+      q(Djadjawurrung),
+      ],
+   q(2053) => [
+      q(Djinba),
+      ],
+   q(2054) => [
+      q(Dar Daju Daju),
+      ],
+   q(2055) => [
+      q(Djamindjung),
+      ],
+   q(2056) => [
+      q(Zarma),
+      ],
+   q(2057) => [
+      q(Djangun),
+      ],
+   q(2058) => [
+      q(Djinang),
+      ],
+   q(2059) => [
+      q(Djeebbana),
+      ],
+   q(2060) => [
+      q(Eastern Maroon Creole),
+      q(Businenge Tongo),
+      q(Nenge),
+      ],
+   q(2061) => [
+      q(Jamsay Dogon),
+      ],
+   q(2062) => [
+      q(Djauan),
+      ],
+   q(2063) => [
+      q(Jangkang),
+      ],
+   q(2064) => [
+      q(Djambarrpuyngu),
+      ],
+   q(2065) => [
+      q(Kapriman),
+      ],
+   q(2066) => [
+      q(Djawi),
+      ],
+   q(2067) => [
+      q(Dakpakha),
+      ],
+   q(2068) => [
+      q(Dakka),
+      ],
+   q(2069) => [
+      q(Kuijau),
+      ],
+   q(2070) => [
+      q(Southeastern Dinka),
+      ],
+   q(2071) => [
+      q(Mazagway),
+      ],
+   q(2072) => [
+      q(Dolgan),
+      ],
+   q(2073) => [
+      q(Dahalik),
+      ],
+   q(2074) => [
+      q(Dalmatian),
+      ],
+   q(2075) => [
+      q(Darlong),
+      ],
+   q(2076) => [
+      q(Duma),
+      ],
+   q(2077) => [
+      q(Mombo Dogon),
+      ],
+   q(2078) => [
+      q(Gavak),
+      ],
+   q(2079) => [
+      q(Madhi Madhi),
+      ],
+   q(2080) => [
+      q(Dugwor),
+      ],
+   q(2081) => [
+      q(Upper Kinabatangan),
+      ],
+   q(2082) => [
+      q(Domaaki),
+      ],
+   q(2083) => [
+      q(Dameli),
+      ],
+   q(2084) => [
+      q(Dama),
+      ],
+   q(2085) => [
+      q(Kemedzung),
+      ],
+   q(2086) => [
+      q(East Damar),
+      ],
+   q(2087) => [
+      q(Dampelas),
+      ],
+   q(2088) => [
+      q(Dubu),
+      q(Tebi),
+      ],
+   q(2089) => [
+      q(Dumpas),
+      ],
+   q(2090) => [
+      q(Mudburra),
+      ],
+   q(2091) => [
+      q(Dema),
+      ],
+   q(2092) => [
+      q(Demta),
+      q(Sowari),
+      ],
+   q(2093) => [
+      q(Upper Grand Valley Dani),
+      ],
+   q(2094) => [
+      q(Daonda),
+      ],
+   q(2095) => [
+      q(Ndendeule),
+      ],
+   q(2096) => [
+      q(Dungan),
+      ],
+   q(2097) => [
+      q(Lower Grand Valley Dani),
+      ],
+   q(2098) => [
+      q(Dan),
+      ],
+   q(2099) => [
+      q(Dengka),
+      ],
+   q(2100) => [
+      q(Dzuungoo),
+      ],
+   q(2101) => [
+      q(Danaru),
+      ],
+   q(2102) => [
+      q(Mid Grand Valley Dani),
+      ],
+   q(2103) => [
+      q(Danau),
+      ],
+   q(2104) => [
+      q(Danu),
+      ],
+   q(2105) => [
+      q(Western Dani),
+      ],
+   q(2106) => [
+      q(Deni),
+      ],
+   q(2107) => [
+      q(Dom),
+      ],
+   q(2108) => [
+      q(Dobu),
+      ],
+   q(2109) => [
+      q(Northern Dong),
+      ],
+   q(2110) => [
+      q(Doe),
+      ],
+   q(2111) => [
+      q(Domu),
+      ],
+   q(2112) => [
+      q(Dong),
+      ],
+   q(2113) => [
+      q(Dondo),
+      ],
+   q(2114) => [
+      q(Doso),
+      ],
+   q(2115) => [
+      q(Toura (Papua New Guinea)),
+      ],
+   q(2116) => [
+      q(Dongo),
+      ],
+   q(2117) => [
+      q(Lukpa),
+      ],
+   q(2118) => [
+      q(Dominican Sign Language),
+      ],
+   q(2119) => [
+      q(Dori'o),
+      ],
+   q(2120) => [
+      q(Dogose),
+      ],
+   q(2121) => [
+      q(Dass),
+      ],
+   q(2122) => [
+      q(Dombe),
+      ],
+   q(2123) => [
+      q(Doyayo),
+      ],
+   q(2124) => [
+      q(Bussa),
+      ],
+   q(2125) => [
+      q(Dompo),
+      ],
+   q(2126) => [
+      q(Dorze),
+      ],
+   q(2127) => [
+      q(Papar),
+      ],
+   q(2128) => [
+      q(Dair),
+      ],
+   q(2129) => [
+      q(Minderico),
+      ],
+   q(2130) => [
+      q(Darmiya),
+      ],
+   q(2131) => [
+      q(Dolpo),
+      ],
+   q(2132) => [
+      q(Rungus),
+      ],
+   q(2133) => [
+      q(C'Lela),
+      ],
+   q(2134) => [
+      q(Paakantyi),
+      ],
+   q(2135) => [
+      q(West Damar),
+      ],
+   q(2136) => [
+      q(Daro-Matu Melanau),
+      ],
+   q(2137) => [
+      q(Dura),
+      ],
+   q(2138) => [
+      q(Dororo),
+      ],
+   q(2139) => [
+      q(Gedeo),
+      ],
+   q(2140) => [
+      q(Drents),
+      ],
+   q(2141) => [
+      q(Rukai),
+      ],
+   q(2142) => [
+      q(Darai),
+      ],
+   q(2143) => [
+      q(Dutch Sign Language),
+      ],
+   q(2144) => [
+      q(Daasanach),
+      ],
+   q(2145) => [
+      q(Disa),
+      ],
+   q(2146) => [
+      q(Danish Sign Language),
+      ],
+   q(2147) => [
+      q(Dusner),
+      ],
+   q(2148) => [
+      q(Desiya),
+      ],
+   q(2149) => [
+      q(Tadaksahak),
+      ],
+   q(2150) => [
+      q(Daur),
+      ],
+   q(2151) => [
+      q(Labuk-Kinabatangan Kadazan),
+      ],
+   q(2152) => [
+      q(Ditidaht),
+      ],
+   q(2153) => [
+      q(Adithinngithigh),
+      ],
+   q(2154) => [
+      q(Ana Tinga Dogon),
+      ],
+   q(2155) => [
+      q(Tene Kan Dogon),
+      ],
+   q(2156) => [
+      q(Tomo Kan Dogon),
+      ],
+   q(2157) => [
+      q(Daats'iin),
+      ],
+   q(2158) => [
+      q(Tommo So Dogon),
+      ],
+   q(2159) => [
+      q(Kadazan Dusun),
+      q(Central Dusun),
+      ],
+   q(2160) => [
+      q(Lotud),
+      ],
+   q(2161) => [
+      q(Toro So Dogon),
+      ],
+   q(2162) => [
+      q(Toro Tegu Dogon),
+      ],
+   q(2163) => [
+      q(Tebul Ure Dogon),
+      ],
+   q(2164) => [
+      q(Dotyali),
+      ],
+   q(2165) => [
+      q(Dubli),
+      ],
+   q(2166) => [
+      q(Duna),
+      ],
+   q(2167) => [
+      q(Hun-Saare),
+      ],
+   q(2168) => [
+      q(Umiray Dumaget Agta),
+      ],
+   q(2169) => [
+      q(Dumbea),
+      q(Drubea),
+      ],
+   q(2170) => [
+      q(Duruma),
+      q(Chiduruma),
+      ],
+   q(2171) => [
+      q(Dungra Bhil),
+      ],
+   q(2172) => [
+      q(Dumun),
+      ],
+   q(2173) => [
+      q(Uyajitaya),
+      ],
+   q(2174) => [
+      q(Alabat Island Agta),
+      ],
+   q(2175) => [
+      q(Dusun Deyah),
+      ],
+   q(2176) => [
+      q(Dupaninan Agta),
+      ],
+   q(2177) => [
+      q(Duano),
+      ],
+   q(2178) => [
+      q(Dusun Malang),
+      ],
+   q(2179) => [
+      q(Dii),
+      ],
+   q(2180) => [
+      q(Dumi),
+      ],
+   q(2181) => [
+      q(Drung),
+      ],
+   q(2182) => [
+      q(Duvle),
+      ],
+   q(2183) => [
+      q(Dusun Witu),
+      ],
+   q(2184) => [
+      q(Duungooma),
+      ],
+   q(2185) => [
+      q(Dicamay Agta),
+      ],
+   q(2186) => [
+      q(Duli-Gey),
+      ],
+   q(2187) => [
+      q(Duau),
+      ],
+   q(2188) => [
+      q(Diri),
+      ],
+   q(2189) => [
+      q(Dawro),
+      ],
+   q(2190) => [
+      q(Dutton World Speedwords),
+      ],
+   q(2191) => [
+      q(Dhuwal),
+      ],
+   q(2192) => [
+      q(Dawawa),
+      ],
+   q(2193) => [
+      q(Dhuwaya),
+      ],
+   q(2194) => [
+      q(Dyan),
+      ],
+   q(2195) => [
+      q(Dyaberdyaber),
+      ],
+   q(2196) => [
+      q(Dyugun),
+      ],
+   q(2197) => [
+      q(Villa Viciosa Agta),
+      ],
+   q(2198) => [
+      q(Djimini Senoufo),
+      ],
+   q(2199) => [
+      q(Yanda Dom Dogon),
+      ],
+   q(2200) => [
+      q(Dyangadi),
+      ],
+   q(2201) => [
+      q(Jola-Fonyi),
+      ],
+   q(2202) => [
+      q(Dyaabugay),
+      ],
+   q(2203) => [
+      q(Tunzu),
+      ],
+   q(2204) => [
+      q(Djiwarli),
+      ],
+   q(2205) => [
+      q(Dazaga),
+      ],
+   q(2206) => [
+      q(Dzalakha),
+      ],
+   q(2207) => [
+      q(Dzando),
+      ],
+   q(2208) => [
+      q(Karenggapa),
+      ],
+   q(2209) => [
+      q(Ebughu),
+      ],
+   q(2210) => [
+      q(Eastern Bontok),
+      ],
+   q(2211) => [
+      q(Teke-Ebo),
+      ],
+   q(2212) => [
+      q(Ebrie),
+      ],
+   q(2213) => [
+      q(Embu),
+      q(Kiembu),
+      ],
+   q(2214) => [
+      q(Eteocretan),
+      ],
+   q(2215) => [
+      q(Ecuadorian Sign Language),
+      ],
+   q(2216) => [
+      q(Eteocypriot),
+      ],
+   q(2217) => [
+      q(E),
+      ],
+   q(2218) => [
+      q(Efai),
+      ],
+   q(2219) => [
+      q(Efe),
+      ],
+   q(2220) => [
+      q(Ega),
+      ],
+   q(2221) => [
+      q(Emilian),
+      ],
+   q(2222) => [
+      q(Eggon),
+      ],
+   q(2223) => [
+      q(Ehueun),
+      ],
+   q(2224) => [
+      q(Eipomek),
+      ],
+   q(2225) => [
+      q(Eitiep),
+      ],
+   q(2226) => [
+      q(Askopan),
+      ],
+   q(2227) => [
+      q(Ejamat),
+      ],
+   q(2228) => [
+      q(Eastern Karnic),
+      ],
+   q(2229) => [
+      q(Ekit),
+      ],
+   q(2230) => [
+      q(Ekari),
+      ],
+   q(2231) => [
+      q(Eki),
+      ],
+   q(2232) => [
+      q(Standard Estonian),
+      ],
+   q(2233) => [
+      q(Kol (Bangladesh)),
+      q(Kol),
+      ],
+   q(2234) => [
+      q(Elip),
+      ],
+   q(2235) => [
+      q(Koti),
+      ],
+   q(2236) => [
+      q(Ekpeye),
+      ],
+   q(2237) => [
+      q(Yace),
+      ],
+   q(2238) => [
+      q(Eastern Kayah),
+      ],
+   q(2239) => [
+      q(Elepi),
+      ],
+   q(2240) => [
+      q(El Hugeirat),
+      ],
+   q(2241) => [
+      q(Nding),
+      ],
+   q(2242) => [
+      q(Elkei),
+      ],
+   q(2243) => [
+      q(Eleme),
+      ],
+   q(2244) => [
+      q(El Molo),
+      ],
+   q(2245) => [
+      q(Elu),
+      ],
+   q(2246) => [
+      q(Emai-Iuleha-Ora),
+      ],
+   q(2247) => [
+      q(Embaloh),
+      ],
+   q(2248) => [
+      q(Emerillon),
+      ],
+   q(2249) => [
+      q(Eastern Meohang),
+      ],
+   q(2250) => [
+      q(Mussau-Emira),
+      ],
+   q(2251) => [
+      q(Eastern Maninkakan),
+      ],
+   q(2252) => [
+      q(Mamulique),
+      ],
+   q(2253) => [
+      q(Eman),
+      ],
+   q(2254) => [
+      q(Northern Embera),
+      ],
+   q(2255) => [
+      q(Pacific Gulf Yupik),
+      ],
+   q(2256) => [
+      q(Eastern Muria),
+      ],
+   q(2257) => [
+      q(Emplawas),
+      ],
+   q(2258) => [
+      q(Erromintxela),
+      ],
+   q(2259) => [
+      q(Epigraphic Mayan),
+      ],
+   q(2260) => [
+      q(Apali),
+      ],
+   q(2261) => [
+      q(Markweeta),
+      ],
+   q(2262) => [
+      q(En),
+      ],
+   q(2263) => [
+      q(Ende),
+      ],
+   q(2264) => [
+      q(Forest Enets),
+      ],
+   q(2265) => [
+      q(Tundra Enets),
+      ],
+   q(2266) => [
+      q(Enlhet),
+      ],
+   q(2267) => [
+      q(Engenni),
+      ],
+   q(2268) => [
+      q(Enggano),
+      ],
+   q(2269) => [
+      q(Enga),
+      ],
+   q(2270) => [
+      q(Emumu),
+      q(Emem),
+      ],
+   q(2271) => [
+      q(Enu),
+      ],
+   q(2272) => [
+      q(Enwan (Edu State)),
+      ],
+   q(2273) => [
+      q(Enwan (Akwa Ibom State)),
+      ],
+   q(2274) => [
+      q(Enxet),
+      ],
+   q(2275) => [
+      q(Beti (Cote d'Ivoire)),
+      ],
+   q(2276) => [
+      q(Epie),
+      ],
+   q(2277) => [
+      q(Eravallan),
+      ],
+   q(2278) => [
+      q(Sie),
+      ],
+   q(2279) => [
+      q(Eruwa),
+      ],
+   q(2280) => [
+      q(Ogea),
+      ],
+   q(2281) => [
+      q(South Efate),
+      ],
+   q(2282) => [
+      q(Horpa),
+      ],
+   q(2283) => [
+      q(Erre),
+      ],
+   q(2284) => [
+      q(Ersu),
+      ],
+   q(2285) => [
+      q(Eritai),
+      ],
+   q(2286) => [
+      q(Erokwanas),
+      ],
+   q(2287) => [
+      q(Ese Ejja),
+      ],
+   q(2288) => [
+      q(Aheri Gondi),
+      ],
+   q(2289) => [
+      q(Eshtehardi),
+      ],
+   q(2290) => [
+      q(North Alaskan Inupiatun),
+      ],
+   q(2291) => [
+      q(Northwest Alaska Inupiatun),
+      ],
+   q(2292) => [
+      q(Egypt Sign Language),
+      ],
+   q(2293) => [
+      q(Esuma),
+      ],
+   q(2294) => [
+      q(Salvadoran Sign Language),
+      ],
+   q(2295) => [
+      q(Estonian Sign Language),
+      ],
+   q(2296) => [
+      q(Esselen),
+      ],
+   q(2297) => [
+      q(Central Siberian Yupik),
+      ],
+   q(2298) => [
+      q(Central Yupik),
+      ],
+   q(2299) => [
+      q(Eskayan),
+      ],
+   q(2300) => [
+      q(Etebi),
+      ],
+   q(2301) => [
+      q(Etchemin),
+      ],
+   q(2302) => [
+      q(Ethiopian Sign Language),
+      ],
+   q(2303) => [
+      q(Eton (Vanuatu)),
+      ],
+   q(2304) => [
+      q(Eton (Cameroon)),
+      ],
+   q(2305) => [
+      q(Edolo),
+      ],
+   q(2306) => [
+      q(Yekhee),
+      ],
+   q(2307) => [
+      q(Etruscan),
+      ],
+   q(2308) => [
+      q(Ejagham),
+      ],
+   q(2309) => [
+      q(Eten),
+      ],
+   q(2310) => [
+      q(Semimi),
+      ],
+   q(2311) => [
+      q(Even),
+      ],
+   q(2312) => [
+      q(Uvbie),
+      ],
+   q(2313) => [
+      q(Evenki),
+      ],
+   q(2314) => [
+      q(Extremaduran),
+      ],
+   q(2315) => [
+      q(Eyak),
+      ],
+   q(2316) => [
+      q(Keiyo),
+      ],
+   q(2317) => [
+      q(Ezaa),
+      ],
+   q(2318) => [
+      q(Uzekwe),
+      ],
+   q(2319) => [
+      q(Fasu),
+      ],
+   q(2320) => [
+      q(Fa d'Ambu),
+      ],
+   q(2321) => [
+      q(Wagi),
+      ],
+   q(2322) => [
+      q(Fagani),
+      ],
+   q(2323) => [
+      q(Finongan),
+      ],
+   q(2324) => [
+      q(Baissa Fali),
+      ],
+   q(2325) => [
+      q(Faiwol),
+      ],
+   q(2326) => [
+      q(Faita),
+      ],
+   q(2327) => [
+      q(Fang (Cameroon)),
+      ],
+   q(2328) => [
+      q(South Fali),
+      ],
+   q(2329) => [
+      q(Fam),
+      ],
+   q(2330) => [
+      q(Palor),
+      ],
+   q(2331) => [
+      q(Fataleka),
+      ],
+   q(2332) => [
+      q(Fayu),
+      ],
+   q(2333) => [
+      q(Fala),
+      ],
+   q(2334) => [
+      q(Southwestern Fars),
+      ],
+   q(2335) => [
+      q(Northwestern Fars),
+      ],
+   q(2336) => [
+      q(West Albay Bikol),
+      ],
+   q(2337) => [
+      q(Quebec Sign Language),
+      ],
+   q(2338) => [
+      q(Feroge),
+      ],
+   q(2339) => [
+      q(Foia Foia),
+      ],
+   q(2340) => [
+      q(Maasina Fulfulde),
+      ],
+   q(2341) => [
+      q(Fongoro),
+      ],
+   q(2342) => [
+      q(Nobiin),
+      ],
+   q(2343) => [
+      q(Fyer),
+      ],
+   q(2344) => [
+      q(Fipa),
+      ],
+   q(2345) => [
+      q(Firan),
+      ],
+   q(2346) => [
+      q(Tornedalen Finnish),
+      ],
+   q(2347) => [
+      q(Fiwaga),
+      ],
+   q(2348) => [
+      q(Kirya-Konzel),
+      ],
+   q(2349) => [
+      q(Kven Finnish),
+      ],
+   q(2350) => [
+      q(Kalispel-Pend d'Oreille),
+      ],
+   q(2351) => [
+      q(Foau),
+      ],
+   q(2352) => [
+      q(Fali),
+      ],
+   q(2353) => [
+      q(North Fali),
+      ],
+   q(2354) => [
+      q(Flinders Island),
+      ],
+   q(2355) => [
+      q(Fuliiru),
+      ],
+   q(2356) => [
+      q(Flaaitaal),
+      q(Tsotsitaal),
+      ],
+   q(2357) => [
+      q(Fe'fe'),
+      ],
+   q(2358) => [
+      q(Far Western Muria),
+      ],
+   q(2359) => [
+      q(Fanbak),
+      ],
+   q(2360) => [
+      q(Fanagalo),
+      ],
+   q(2361) => [
+      q(Fania),
+      ],
+   q(2362) => [
+      q(Foodo),
+      ],
+   q(2363) => [
+      q(Foi),
+      ],
+   q(2364) => [
+      q(Foma),
+      ],
+   q(2365) => [
+      q(Fore),
+      ],
+   q(2366) => [
+      q(Siraya),
+      ],
+   q(2367) => [
+      q(Fernando Po Creole English),
+      ],
+   q(2368) => [
+      q(Fas),
+      ],
+   q(2369) => [
+      q(Cajun French),
+      ],
+   q(2370) => [
+      q(Fordata),
+      ],
+   q(2371) => [
+      q(Frankish),
+      ],
+   q(2372) => [
+      q(Arpitan),
+      q(Francoprovencal),
+      ],
+   q(2373) => [
+      q(Forak),
+      ],
+   q(2374) => [
+      q(Fortsenal),
+      ],
+   q(2375) => [
+      q(Finnish Sign Language),
+      ],
+   q(2376) => [
+      q(French Sign Language),
+      ],
+   q(2377) => [
+      q(Finland-Swedish Sign Language),
+      q(finlandssvenskt teckensprak),
+      q(suomenruotsalainen viittomakieli),
+      ],
+   q(2378) => [
+      q(Adamawa Fulfulde),
+      ],
+   q(2379) => [
+      q(Pulaar),
+      ],
+   q(2380) => [
+      q(East Futuna),
+      ],
+   q(2381) => [
+      q(Borgu Fulfulde),
+      ],
+   q(2382) => [
+      q(Pular),
+      ],
+   q(2383) => [
+      q(Western Niger Fulfulde),
+      ],
+   q(2384) => [
+      q(Bagirmi Fulfulde),
+      ],
+   q(2385) => [
+      q(Ko),
+      ],
+   q(2386) => [
+      q(Fum),
+      ],
+   q(2387) => [
+      q(Fulnio),
+      ],
+   q(2388) => [
+      q(Central-Eastern Niger Fulfulde),
+      ],
+   q(2389) => [
+      q(Futuna-Aniwa),
+      ],
+   q(2390) => [
+      q(Furu),
+      ],
+   q(2391) => [
+      q(Nigerian Fulfulde),
+      ],
+   q(2392) => [
+      q(Fuyug),
+      ],
+   q(2393) => [
+      q(Fur),
+      ],
+   q(2394) => [
+      q(Fwai),
+      ],
+   q(2395) => [
+      q(Fwe),
+      ],
+   q(2396) => [
+      q(Gabri),
+      ],
+   q(2397) => [
+      q(Mixed Great Andamanese),
+      ],
+   q(2398) => [
+      q(Gaddang),
+      ],
+   q(2399) => [
+      q(Guarequena),
+      ],
+   q(2400) => [
+      q(Gende),
+      ],
+   q(2401) => [
+      q(Gagauz),
+      ],
+   q(2402) => [
+      q(Alekano),
+      ],
+   q(2403) => [
+      q(Borei),
+      ],
+   q(2404) => [
+      q(Gadsup),
+      ],
+   q(2405) => [
+      q(Gamkonora),
+      ],
+   q(2406) => [
+      q(Galolen),
+      ],
+   q(2407) => [
+      q(Kandawo),
+      ],
+   q(2408) => [
+      q(Gan Chinese),
+      ],
+   q(2409) => [
+      q(Gants),
+      ],
+   q(2410) => [
+      q(Gal),
+      ],
+   q(2411) => [
+      q(Gata'),
+      ],
+   q(2412) => [
+      q(Galeya),
+      ],
+   q(2413) => [
+      q(Adiwasi Garasia),
+      ],
+   q(2414) => [
+      q(Kenati),
+      ],
+   q(2415) => [
+      q(Mudhili Gadaba),
+      ],
+   q(2416) => [
+      q(Nobonob),
+      ],
+   q(2417) => [
+      q(Borana-Arsi-Guji Oromo),
+      ],
+   q(2418) => [
+      q(West Central Oromo),
+      ],
+   q(2419) => [
+      q(Kaytetye),
+      ],
+   q(2420) => [
+      q(Karadjeri),
+      ],
+   q(2421) => [
+      q(Niksek),
+      ],
+   q(2422) => [
+      q(Gaikundi),
+      ],
+   q(2423) => [
+      q(Gbanziri),
+      ],
+   q(2424) => [
+      q(Defi Gbe),
+      ],
+   q(2425) => [
+      q(Galela),
+      ],
+   q(2426) => [
+      q(Bodo Gadaba),
+      ],
+   q(2427) => [
+      q(Gaddi),
+      ],
+   q(2428) => [
+      q(Gamit),
+      ],
+   q(2429) => [
+      q(Garhwali),
+      ],
+   q(2430) => [
+      q(Mo'da),
+      ],
+   q(2431) => [
+      q(Northern Grebo),
+      ],
+   q(2432) => [
+      q(Gbaya-Bossangoa),
+      ],
+   q(2433) => [
+      q(Gbaya-Bozoum),
+      ],
+   q(2434) => [
+      q(Gbagyi),
+      ],
+   q(2435) => [
+      q(Gbesi Gbe),
+      ],
+   q(2436) => [
+      q(Gagadu),
+      ],
+   q(2437) => [
+      q(Gbanu),
+      ],
+   q(2438) => [
+      q(Gabi-Gabi),
+      ],
+   q(2439) => [
+      q(Eastern Xwla Gbe),
+      ],
+   q(2440) => [
+      q(Gbari),
+      ],
+   q(2441) => [
+      q(Zoroastrian Dari),
+      ],
+   q(2442) => [
+      q(Mali),
+      ],
+   q(2443) => [
+      q(Ganggalida),
+      ],
+   q(2444) => [
+      q(Galice),
+      ],
+   q(2445) => [
+      q(Guadeloupean Creole French),
+      ],
+   q(2446) => [
+      q(Grenadian Creole English),
+      ],
+   q(2447) => [
+      q(Gaina),
+      ],
+   q(2448) => [
+      q(Guianese Creole French),
+      ],
+   q(2449) => [
+      q(Colonia Tovar German),
+      ],
+   q(2450) => [
+      q(Gade Lohar),
+      ],
+   q(2451) => [
+      q(Pottangi Ollar Gadaba),
+      ],
+   q(2452) => [
+      q(Gugu Badhun),
+      ],
+   q(2453) => [
+      q(Gedaged),
+      ],
+   q(2454) => [
+      q(Gude),
+      ],
+   q(2455) => [
+      q(Guduf-Gava),
+      ],
+   q(2456) => [
+      q(Ga'dang),
+      ],
+   q(2457) => [
+      q(Gadjerawang),
+      ],
+   q(2458) => [
+      q(Gundi),
+      ],
+   q(2459) => [
+      q(Gurdjar),
+      ],
+   q(2460) => [
+      q(Gadang),
+      ],
+   q(2461) => [
+      q(Dirasha),
+      ],
+   q(2462) => [
+      q(Laal),
+      ],
+   q(2463) => [
+      q(Umanakaina),
+      ],
+   q(2464) => [
+      q(Ghodoberi),
+      ],
+   q(2465) => [
+      q(Mehri),
+      ],
+   q(2466) => [
+      q(Wipi),
+      ],
+   q(2467) => [
+      q(Ghandruk Sign Language),
+      ],
+   q(2468) => [
+      q(Kungardutyi),
+      ],
+   q(2469) => [
+      q(Gudu),
+      ],
+   q(2470) => [
+      q(Godwari),
+      ],
+   q(2471) => [
+      q(Geruma),
+      ],
+   q(2472) => [
+      q(Kire),
+      ],
+   q(2473) => [
+      q(Gboloo Grebo),
+      ],
+   q(2474) => [
+      q(Gade),
+      ],
+   q(2475) => [
+      q(Gengle),
+      ],
+   q(2476) => [
+      q(Hutterite German),
+      q(Hutterisch),
+      ],
+   q(2477) => [
+      q(Gebe),
+      ],
+   q(2478) => [
+      q(Gen),
+      ],
+   q(2479) => [
+      q(Ywom),
+      ],
+   q(2480) => [
+      q(ut-Ma'in),
+      ],
+   q(2481) => [
+      q(Geme),
+      ],
+   q(2482) => [
+      q(Geser-Gorom),
+      ],
+   q(2483) => [
+      q(Eviya),
+      ],
+   q(2484) => [
+      q(Gera),
+      ],
+   q(2485) => [
+      q(Garre),
+      ],
+   q(2486) => [
+      q(Enya),
+      ],
+   q(2487) => [
+      q(Patpatar),
+      ],
+   q(2488) => [
+      q(Gafat),
+      ],
+   q(2489) => [
+      q(Gao),
+      ],
+   q(2490) => [
+      q(Gbii),
+      ],
+   q(2491) => [
+      q(Gugadj),
+      ],
+   q(2492) => [
+      q(Guragone),
+      ],
+   q(2493) => [
+      q(Gurgula),
+      ],
+   q(2494) => [
+      q(Kungarakany),
+      ],
+   q(2495) => [
+      q(Ganglau),
+      ],
+   q(2496) => [
+      q(Gitua),
+      ],
+   q(2497) => [
+      q(Gagu),
+      q(Gban),
+      ],
+   q(2498) => [
+      q(Gogodala),
+      ],
+   q(2499) => [
+      q(Ghadames),
+      ],
+   q(2500) => [
+      q(Hiberno-Scottish Gaelic),
+      ],
+   q(2501) => [
+      q(Southern Ghale),
+      ],
+   q(2502) => [
+      q(Northern Ghale),
+      ],
+   q(2503) => [
+      q(Geko Karen),
+      ],
+   q(2504) => [
+      q(Ghulfan),
+      ],
+   q(2505) => [
+      q(Ghanongga),
+      ],
+   q(2506) => [
+      q(Ghomara),
+      ],
+   q(2507) => [
+      q(Ghera),
+      ],
+   q(2508) => [
+      q(Guhu-Samane),
+      ],
+   q(2509) => [
+      q(Kuke),
+      q(Kutang Ghale),
+      ],
+   q(2510) => [
+      q(Kitja),
+      ],
+   q(2511) => [
+      q(Gibanawa),
+      ],
+   q(2512) => [
+      q(Gail),
+      ],
+   q(2513) => [
+      q(Gidar),
+      ],
+   q(2514) => [
+      q(Gabogbo),
+      q(Guebie),
+      ],
+   q(2515) => [
+      q(Goaria),
+      ],
+   q(2516) => [
+      q(Githabul),
+      ],
+   q(2517) => [
+      q(Gimi (Eastern Highlands)),
+      ],
+   q(2518) => [
+      q(Hinukh),
+      ],
+   q(2519) => [
+      q(Gimi (West New Britain)),
+      ],
+   q(2520) => [
+      q(Green Gelao),
+      ],
+   q(2521) => [
+      q(Red Gelao),
+      ],
+   q(2522) => [
+      q(North Giziga),
+      ],
+   q(2523) => [
+      q(Gitxsan),
+      ],
+   q(2524) => [
+      q(Mulao),
+      ],
+   q(2525) => [
+      q(White Gelao),
+      ],
+   q(2526) => [
+      q(Gilima),
+      ],
+   q(2527) => [
+      q(Giyug),
+      ],
+   q(2528) => [
+      q(South Giziga),
+      ],
+   q(2529) => [
+      q(Geji),
+      ],
+   q(2530) => [
+      q(Kachi Koli),
+      ],
+   q(2531) => [
+      q(Gunditjmara),
+      ],
+   q(2532) => [
+      q(Gonja),
+      ],
+   q(2533) => [
+      q(Gurindji Kriol),
+      ],
+   q(2534) => [
+      q(Gujari),
+      ],
+   q(2535) => [
+      q(Guya),
+      ],
+   q(2536) => [
+      q(Ndai),
+      ],
+   q(2537) => [
+      q(Gokana),
+      ],
+   q(2538) => [
+      q(Kok-Nar),
+      ],
+   q(2539) => [
+      q(Guinea Kpelle),
+      ],
+   q(2540) => [
+      q(Ungkue),
+      q(=/Ungkue),
+      ],
+   q(2541) => [
+      q(Bon Gula),
+      ],
+   q(2542) => [
+      q(Nanai),
+      ],
+   q(2543) => [
+      q(Northwest Pashai),
+      q(Northwest Pashayi),
+      ],
+   q(2544) => [
+      q(Guliguli),
+      ],
+   q(2545) => [
+      q(Gula Iro),
+      ],
+   q(2546) => [
+      q(Gilaki),
+      ],
+   q(2547) => [
+      q(Garlali),
+      ],
+   q(2548) => [
+      q(Galambu),
+      ],
+   q(2549) => [
+      q(Glaro-Twabo),
+      ],
+   q(2550) => [
+      q(Gula (Chad)),
+      ],
+   q(2551) => [
+      q(Glavda),
+      ],
+   q(2552) => [
+      q(Gule),
+      ],
+   q(2553) => [
+      q(Gambera),
+      ],
+   q(2554) => [
+      q(Gula'alaa),
+      ],
+   q(2555) => [
+      q(Maghdi),
+      ],
+   q(2556) => [
+      q(Magyi),
+      ],
+   q(2557) => [
+      q(Middle Low German),
+      ],
+   q(2558) => [
+      q(Gbaya-Mbodomo),
+      ],
+   q(2559) => [
+      q(Gimnime),
+      ],
+   q(2560) => [
+      q(Gumalu),
+      ],
+   q(2561) => [
+      q(Gamo),
+      ],
+   q(2562) => [
+      q(Magoma),
+      ],
+   q(2563) => [
+      q(Mycenaean Greek),
+      ],
+   q(2564) => [
+      q(Mgbolizhia),
+      ],
+   q(2565) => [
+      q(Kaansa),
+      ],
+   q(2566) => [
+      q(Gangte),
+      ],
+   q(2567) => [
+      q(Guanche),
+      ],
+   q(2568) => [
+      q(Zulgo-Gemzek),
+      ],
+   q(2569) => [
+      q(Ganang),
+      ],
+   q(2570) => [
+      q(Ngangam),
+      ],
+   q(2571) => [
+      q(Lere),
+      ],
+   q(2572) => [
+      q(Gooniyandi),
+      ],
+   q(2573) => [
+      q(//Gana),
+      q(Gana),
+      ],
+   q(2574) => [
+      q(Gangulu),
+      ],
+   q(2575) => [
+      q(Ginuman),
+      ],
+   q(2576) => [
+      q(Gumatj),
+      ],
+   q(2577) => [
+      q(Northern Gondi),
+      ],
+   q(2578) => [
+      q(Gureng Gureng),
+      ],
+   q(2579) => [
+      q(Guntai),
+      ],
+   q(2580) => [
+      q(Gnau),
+      ],
+   q(2581) => [
+      q(Western Bolivian Guarani),
+      ],
+   q(2582) => [
+      q(Ganzi),
+      ],
+   q(2583) => [
+      q(Guro),
+      ],
+   q(2584) => [
+      q(Playero),
+      ],
+   q(2585) => [
+      q(Gorakor),
+      ],
+   q(2586) => [
+      q(Godie),
+      ],
+   q(2587) => [
+      q(Gongduk),
+      ],
+   q(2588) => [
+      q(Gofa),
+      ],
+   q(2589) => [
+      q(Gogo),
+      ],
+   q(2590) => [
+      q(Gobasi),
+      ],
+   q(2591) => [
+      q(Gowlan),
+      ],
+   q(2592) => [
+      q(Gowli),
+      ],
+   q(2593) => [
+      q(Gola),
+      ],
+   q(2594) => [
+      q(Goan Konkani),
+      ],
+   q(2595) => [
+      q(Gone Dau),
+      ],
+   q(2596) => [
+      q(Yeretuar),
+      ],
+   q(2597) => [
+      q(Gorap),
+      ],
+   q(2598) => [
+      q(Gronings),
+      ],
+   q(2599) => [
+      q(Gavar),
+      ],
+   q(2600) => [
+      q(Gorowa),
+      ],
+   q(2601) => [
+      q(Gobu),
+      ],
+   q(2602) => [
+      q(Goundo),
+      ],
+   q(2603) => [
+      q(Gozarkhani),
+      ],
+   q(2604) => [
+      q(Gupa-Abawa),
+      ],
+   q(2605) => [
+      q(Ghanaian Pidgin English),
+      ],
+   q(2606) => [
+      q(Taiap),
+      ],
+   q(2607) => [
+      q(Ga'anda),
+      ],
+   q(2608) => [
+      q(Guiqiong),
+      ],
+   q(2609) => [
+      q(Guana (Brazil)),
+      ],
+   q(2610) => [
+      q(Gor),
+      ],
+   q(2611) => [
+      q(Qau),
+      ],
+   q(2612) => [
+      q(Rajput Garasia),
+      ],
+   q(2613) => [
+      q(Guruntum-Mbaaru),
+      ],
+   q(2614) => [
+      q(Madi),
+      ],
+   q(2615) => [
+      q(Gbiri-Niragu),
+      ],
+   q(2616) => [
+      q(Ghari),
+      ],
+   q(2617) => [
+      q(Southern Grebo),
+      ],
+   q(2618) => [
+      q(Kota Marudu Talantang),
+      ],
+   q(2619) => [
+      q(Groma),
+      ],
+   q(2620) => [
+      q(Gorovu),
+      ],
+   q(2621) => [
+      q(Taznatit),
+      ],
+   q(2622) => [
+      q(Gresi),
+      ],
+   q(2623) => [
+      q(Garo),
+      ],
+   q(2624) => [
+      q(Kistane),
+      ],
+   q(2625) => [
+      q(Central Grebo),
+      ],
+   q(2626) => [
+      q(Gweda),
+      ],
+   q(2627) => [
+      q(Guriaso),
+      ],
+   q(2628) => [
+      q(Barclayville Grebo),
+      ],
+   q(2629) => [
+      q(Guramalum),
+      ],
+   q(2630) => [
+      q(Ghanaian Sign Language),
+      ],
+   q(2631) => [
+      q(German Sign Language),
+      ],
+   q(2632) => [
+      q(Gusilay),
+      ],
+   q(2633) => [
+      q(Guatemalan Sign Language),
+      ],
+   q(2634) => [
+      q(Nema),
+      q(Gusan),
+      ],
+   q(2635) => [
+      q(Southwest Gbaya),
+      ],
+   q(2636) => [
+      q(Wasembo),
+      ],
+   q(2637) => [
+      q(Greek Sign Language),
+      ],
+   q(2638) => [
+      q(Guato),
+      ],
+   q(2639) => [
+      q(Aghu-Tharnggala),
+      ],
+   q(2640) => [
+      q(Shiki),
+      ],
+   q(2641) => [
+      q(Guajajara),
+      ],
+   q(2642) => [
+      q(Wayuu),
+      ],
+   q(2643) => [
+      q(Yocoboue Dida),
+      ],
+   q(2644) => [
+      q(Gurinji),
+      ],
+   q(2645) => [
+      q(Gupapuyngu),
+      ],
+   q(2646) => [
+      q(Paraguayan Guarani),
+      ],
+   q(2647) => [
+      q(Guahibo),
+      ],
+   q(2648) => [
+      q(Eastern Bolivian Guarani),
+      ],
+   q(2649) => [
+      q(Gumuz),
+      ],
+   q(2650) => [
+      q(Sea Island Creole English),
+      ],
+   q(2651) => [
+      q(Guambiano),
+      ],
+   q(2652) => [
+      q(Mbya Guarani),
+      ],
+   q(2653) => [
+      q(Guayabero),
+      ],
+   q(2654) => [
+      q(Gunwinggu),
+      ],
+   q(2655) => [
+      q(Ache),
+      ],
+   q(2656) => [
+      q(Farefare),
+      ],
+   q(2657) => [
+      q(Guinean Sign Language),
+      ],
+   q(2658) => [
+      q(Maleku Jaika),
+      ],
+   q(2659) => [
+      q(Yanomamo),
+      ],
+   q(2660) => [
+      q(Gun),
+      ],
+   q(2661) => [
+      q(Gourmanchema),
+      ],
+   q(2662) => [
+      q(Gusii),
+      q(Ekegusii),
+      ],
+   q(2663) => [
+      q(Guana (Paraguay)),
+      ],
+   q(2664) => [
+      q(Guanano),
+      ],
+   q(2665) => [
+      q(Duwet),
+      ],
+   q(2666) => [
+      q(Golin),
+      ],
+   q(2667) => [
+      q(Guaja),
+      ],
+   q(2668) => [
+      q(Gulay),
+      ],
+   q(2669) => [
+      q(Gurmana),
+      ],
+   q(2670) => [
+      q(Kuku-Yalanji),
+      ],
+   q(2671) => [
+      q(Gaviao Do Jiparana),
+      ],
+   q(2672) => [
+      q(Para Gaviao),
+      ],
+   q(2673) => [
+      q(Gurung),
+      ],
+   q(2674) => [
+      q(Gumawana),
+      ],
+   q(2675) => [
+      q(Guyani),
+      ],
+   q(2676) => [
+      q(Mbato),
+      ],
+   q(2677) => [
+      q(Gwa),
+      ],
+   q(2678) => [
+      q(Kalami),
+      ],
+   q(2679) => [
+      q(Gawwada),
+      ],
+   q(2680) => [
+      q(Gweno),
+      ],
+   q(2681) => [
+      q(Gowro),
+      ],
+   q(2682) => [
+      q(Moo),
+      ],
+   q(2683) => [
+      q(/Gwi),
+      q(Gwi),
+      ],
+   q(2684) => [
+      q(Awngthim),
+      ],
+   q(2685) => [
+      q(Gwandara),
+      ],
+   q(2686) => [
+      q(Gwere),
+      ],
+   q(2687) => [
+      q(Gawar-Bati),
+      ],
+   q(2688) => [
+      q(Guwamu),
+      ],
+   q(2689) => [
+      q(Kwini),
+      ],
+   q(2690) => [
+      q(Gua),
+      ],
+   q(2691) => [
+      q(We Southern),
+      ],
+   q(2692) => [
+      q(Northwest Gbaya),
+      ],
+   q(2693) => [
+      q(Garus),
+      ],
+   q(2694) => [
+      q(Kayardild),
+      ],
+   q(2695) => [
+      q(Gyem),
+      ],
+   q(2696) => [
+      q(Gungabula),
+      ],
+   q(2697) => [
+      q(Gbayi),
+      ],
+   q(2698) => [
+      q(Gyele),
+      ],
+   q(2699) => [
+      q(Gayil),
+      ],
+   q(2700) => [
+      q(Ngabere),
+      ],
+   q(2701) => [
+      q(Guyanese Creole English),
+      ],
+   q(2702) => [
+      q(Guarayu),
+      ],
+   q(2703) => [
+      q(Gunya),
+      ],
+   q(2704) => [
+      q(Ganza),
+      ],
+   q(2705) => [
+      q(Gazi),
+      ],
+   q(2706) => [
+      q(Gane),
+      ],
+   q(2707) => [
+      q(Han),
+      ],
+   q(2708) => [
+      q(Hanoi Sign Language),
+      ],
+   q(2709) => [
+      q(Gurani),
+      ],
+   q(2710) => [
+      q(Hatam),
+      ],
+   q(2711) => [
+      q(Eastern Oromo),
+      ],
+   q(2712) => [
+      q(Haiphong Sign Language),
+      ],
+   q(2713) => [
+      q(Hanga),
+      ],
+   q(2714) => [
+      q(Hahon),
+      ],
+   q(2715) => [
+      q(Hajong),
+      ],
+   q(2716) => [
+      q(Hakka Chinese),
+      ],
+   q(2717) => [
+      q(Halang),
+      ],
+   q(2718) => [
+      q(Hewa),
+      ],
+   q(2719) => [
+      q(Hangaza),
+      ],
+   q(2720) => [
+      q(Hako),
+      ],
+   q(2721) => [
+      q(Hupla),
+      ],
+   q(2722) => [
+      q(Ha),
+      ],
+   q(2723) => [
+      q(Harari),
+      ],
+   q(2724) => [
+      q(Haisla),
+      ],
+   q(2725) => [
+      q(Havu),
+      ],
+   q(2726) => [
+      q(Southern Haida),
+      ],
+   q(2727) => [
+      q(Haya),
+      ],
+   q(2728) => [
+      q(Hazaragi),
+      ],
+   q(2729) => [
+      q(Hamba),
+      ],
+   q(2730) => [
+      q(Huba),
+      ],
+   q(2731) => [
+      q(Heiban),
+      ],
+   q(2732) => [
+      q(Ancient Hebrew),
+      ],
+   q(2733) => [
+      q(Habu),
+      ],
+   q(2734) => [
+      q(Andaman Creole Hindi),
+      ],
+   q(2735) => [
+      q(Huichol),
+      ],
+   q(2736) => [
+      q(Northern Haida),
+      ],
+   q(2737) => [
+      q(Honduras Sign Language),
+      ],
+   q(2738) => [
+      q(Hadiyya),
+      ],
+   q(2739) => [
+      q(Northern Qiandong Miao),
+      ],
+   q(2740) => [
+      q(Herde),
+      ],
+   q(2741) => [
+      q(Helong),
+      ],
+   q(2742) => [
+      q(Hehe),
+      ],
+   q(2743) => [
+      q(Heiltsuk),
+      ],
+   q(2744) => [
+      q(Hemba),
+      ],
+   q(2745) => [
+      q(Hai//om),
+      q(Haiom),
+      ],
+   q(2746) => [
+      q(Haigwai),
+      ],
+   q(2747) => [
+      q(Hoia Hoia),
+      ],
+   q(2748) => [
+      q(Kerak),
+      ],
+   q(2749) => [
+      q(Hoyahoya),
+      ],
+   q(2750) => [
+      q(Lamang),
+      ],
+   q(2751) => [
+      q(Hibito),
+      ],
+   q(2752) => [
+      q(Hidatsa),
+      ],
+   q(2753) => [
+      q(Fiji Hindi),
+      ],
+   q(2754) => [
+      q(Kamwe),
+      ],
+   q(2755) => [
+      q(Pamosu),
+      ],
+   q(2756) => [
+      q(Hinduri),
+      ],
+   q(2757) => [
+      q(Hijuk),
+      ],
+   q(2758) => [
+      q(Seit-Kaitetu),
+      ],
+   q(2759) => [
+      q(Tsoa),
+      ],
+   q(2760) => [
+      q(Himarima),
+      ],
+   q(2761) => [
+      q(Hiw),
+      ],
+   q(2762) => [
+      q(Hixkaryana),
+      ],
+   q(2763) => [
+      q(Haji),
+      ],
+   q(2764) => [
+      q(Kahe),
+      ],
+   q(2765) => [
+      q(Hunde),
+      ],
+   q(2766) => [
+      q(Hunjara-Kaina Ke),
+      ],
+   q(2767) => [
+      q(Hong Kong Sign Language),
+      q(Heung Kong Sau Yue),
+      ],
+   q(2768) => [
+      q(Halia),
+      ],
+   q(2769) => [
+      q(Halbi),
+      ],
+   q(2770) => [
+      q(Halang Doan),
+      ],
+   q(2771) => [
+      q(Hlersu),
+      ],
+   q(2772) => [
+      q(Matu Chin),
+      ],
+   q(2773) => [
+      q(Hieroglyphic Luwian),
+      ],
+   q(2774) => [
+      q(Southern Mashan Hmong),
+      q(Southern Mashan Miao),
+      ],
+   q(2775) => [
+      q(Humburi Senni Songhay),
+      ],
+   q(2776) => [
+      q(Central Huishui Hmong),
+      q(Central Huishui Miao),
+      ],
+   q(2777) => [
+      q(Large Flowery Miao),
+      q(A-hmaos),
+      q(Da-Hua Miao),
+      ],
+   q(2778) => [
+      q(Eastern Huishui Hmong),
+      q(Eastern Huishui Miao),
+      ],
+   q(2779) => [
+      q(Hmong Don),
+      ],
+   q(2780) => [
+      q(Southwestern Guiyang Hmong),
+      ],
+   q(2781) => [
+      q(Southwestern Huishui Hmong),
+      q(Southwestern Huishui Miao),
+      ],
+   q(2782) => [
+      q(Northern Huishui Hmong),
+      q(Northern Huishui Miao),
+      ],
+   q(2783) => [
+      q(Ge),
+      q(Gejia),
+      ],
+   q(2784) => [
+      q(Maek),
+      ],
+   q(2785) => [
+      q(Luopohe Hmong),
+      q(Luopohe Miao),
+      ],
+   q(2786) => [
+      q(Central Mashan Hmong),
+      q(Central Mashan Miao),
+      ],
+   q(2787) => [
+      q(Northern Mashan Hmong),
+      q(Northern Mashan Miao),
+      ],
+   q(2788) => [
+      q(Eastern Qiandong Miao),
+      ],
+   q(2789) => [
+      q(Hmar),
+      ],
+   q(2790) => [
+      q(Southern Qiandong Miao),
+      ],
+   q(2791) => [
+      q(Hamtai),
+      ],
+   q(2792) => [
+      q(Hamap),
+      ],
+   q(2793) => [
+      q(Hmong Do),
+      ],
+   q(2794) => [
+      q(Western Mashan Hmong),
+      q(Western Mashan Miao),
+      ],
+   q(2795) => [
+      q(Southern Guiyang Hmong),
+      q(Southern Guiyang Miao),
+      ],
+   q(2796) => [
+      q(Hmong Shua),
+      q(Sinicized Miao),
+      ],
+   q(2797) => [
+      q(Mina (Cameroon)),
+      ],
+   q(2798) => [
+      q(Southern Hindko),
+      ],
+   q(2799) => [
+      q(Chhattisgarhi),
+      ],
+   q(2800) => [
+      q(//Ani),
+      q(Ani),
+      ],
+   q(2801) => [
+      q(Hani),
+      ],
+   q(2802) => [
+      q(Hmong Njua),
+      q(Mong Leng),
+      q(Mong Njua),
+      ],
+   q(2803) => [
+      q(Hanunoo),
+      ],
+   q(2804) => [
+      q(Northern Hindko),
+      ],
+   q(2805) => [
+      q(Caribbean Hindustani),
+      ],
+   q(2806) => [
+      q(Hung),
+      ],
+   q(2807) => [
+      q(Hoava),
+      ],
+   q(2808) => [
+      q(Mari (Madang Province)),
+      ],
+   q(2809) => [
+      q(Ho),
+      ],
+   q(2810) => [
+      q(Holma),
+      ],
+   q(2811) => [
+      q(Horom),
+      ],
+   q(2812) => [
+      q(Hobyot),
+      ],
+   q(2813) => [
+      q(Holikachuk),
+      ],
+   q(2814) => [
+      q(Hadothi),
+      q(Haroti),
+      ],
+   q(2815) => [
+      q(Holu),
+      ],
+   q(2816) => [
+      q(Homa),
+      ],
+   q(2817) => [
+      q(Holoholo),
+      ],
+   q(2818) => [
+      q(Hopi),
+      ],
+   q(2819) => [
+      q(Horo),
+      ],
+   q(2820) => [
+      q(Ho Chi Minh City Sign Language),
+      ],
+   q(2821) => [
+      q(Hote),
+      q(Male),
+      ],
+   q(2822) => [
+      q(Hovongan),
+      ],
+   q(2823) => [
+      q(Honi),
+      ],
+   q(2824) => [
+      q(Holiya),
+      ],
+   q(2825) => [
+      q(Hozo),
+      ],
+   q(2826) => [
+      q(Hpon),
+      ],
+   q(2827) => [
+      q(Hawai'i Sign Language (HSL)),
+      q(Hawai'i Pidgin Sign Language),
+      ],
+   q(2828) => [
+      q(Hrangkhol),
+      ],
+   q(2829) => [
+      q(Niwer Mil),
+      ],
+   q(2830) => [
+      q(Hre),
+      ],
+   q(2831) => [
+      q(Haruku),
+      ],
+   q(2832) => [
+      q(Horned Miao),
+      ],
+   q(2833) => [
+      q(Haroi),
+      ],
+   q(2834) => [
+      q(Nhirrpi),
+      ],
+   q(2835) => [
+      q(Hertevin),
+      ],
+   q(2836) => [
+      q(Hruso),
+      ],
+   q(2837) => [
+      q(Warwar Feni),
+      ],
+   q(2838) => [
+      q(Hunsrik),
+      ],
+   q(2839) => [
+      q(Harzani),
+      ],
+   q(2840) => [
+      q(Hungarian Sign Language),
+      ],
+   q(2841) => [
+      q(Hausa Sign Language),
+      ],
+   q(2842) => [
+      q(Xiang Chinese),
+      ],
+   q(2843) => [
+      q(Harsusi),
+      ],
+   q(2844) => [
+      q(Hoti),
+      ],
+   q(2845) => [
+      q(Minica Huitoto),
+      ],
+   q(2846) => [
+      q(Hadza),
+      ],
+   q(2847) => [
+      q(Hitu),
+      ],
+   q(2848) => [
+      q(Middle Hittite),
+      ],
+   q(2849) => [
+      q(Huambisa),
+      ],
+   q(2850) => [
+      q(=/Hua),
+      q(Hua),
+      ],
+   q(2851) => [
+      q(Huaulu),
+      ],
+   q(2852) => [
+      q(San Francisco Del Mar Huave),
+      ],
+   q(2853) => [
+      q(Humene),
+      ],
+   q(2854) => [
+      q(Huachipaeri),
+      ],
+   q(2855) => [
+      q(Huilliche),
+      ],
+   q(2856) => [
+      q(Huli),
+      ],
+   q(2857) => [
+      q(Northern Guiyang Hmong),
+      q(Northern Guiyang Miao),
+      ],
+   q(2858) => [
+      q(Hulung),
+      ],
+   q(2859) => [
+      q(Hula),
+      ],
+   q(2860) => [
+      q(Hungana),
+      ],
+   q(2861) => [
+      q(Hu),
+      ],
+   q(2862) => [
+      q(Tsat),
+      ],
+   q(2863) => [
+      q(Halkomelem),
+      ],
+   q(2864) => [
+      q(Huastec),
+      ],
+   q(2865) => [
+      q(Humla),
+      ],
+   q(2866) => [
+      q(Murui Huitoto),
+      ],
+   q(2867) => [
+      q(San Mateo Del Mar Huave),
+      ],
+   q(2868) => [
+      q(Hukumina),
+      ],
+   q(2869) => [
+      q(Nupode Huitoto),
+      ],
+   q(2870) => [
+      q(Hulaula),
+      ],
+   q(2871) => [
+      q(Hunzib),
+      ],
+   q(2872) => [
+      q(Haitian Vodoun Culture Language),
+      ],
+   q(2873) => [
+      q(San Dionisio Del Mar Huave),
+      ],
+   q(2874) => [
+      q(Haveke),
+      ],
+   q(2875) => [
+      q(Sabu),
+      ],
+   q(2876) => [
+      q(Santa Maria Del Mar Huave),
+      ],
+   q(2877) => [
+      q(Wane),
+      ],
+   q(2878) => [
+      q(Hawai'i Creole English),
+      q(Hawai'i Pidgin),
+      ],
+   q(2879) => [
+      q(Hwana),
+      ],
+   q(2880) => [
+      q(Hya),
+      ],
+   q(2881) => [
+      q(Iaai),
+      ],
+   q(2882) => [
+      q(Iatmul),
+      ],
+   q(2883) => [
+      q(Purari),
+      ],
+   q(2884) => [
+      q(Ibibio),
+      ],
+   q(2885) => [
+      q(Iwaidja),
+      ],
+   q(2886) => [
+      q(Akpes),
+      ],
+   q(2887) => [
+      q(Ibanag),
+      ],
+   q(2888) => [
+      q(Bih),
+      ],
+   q(2889) => [
+      q(Ibaloi),
+      ],
+   q(2890) => [
+      q(Agoi),
+      ],
+   q(2891) => [
+      q(Ibino),
+      ],
+   q(2892) => [
+      q(Ibuoro),
+      ],
+   q(2893) => [
+      q(Ibu),
+      ],
+   q(2894) => [
+      q(Ibani),
+      ],
+   q(2895) => [
+      q(Ede Ica),
+      ],
+   q(2896) => [
+      q(Etkywan),
+      ],
+   q(2897) => [
+      q(Icelandic Sign Language),
+      ],
+   q(2898) => [
+      q(Islander Creole English),
+      ],
+   q(2899) => [
+      q(Idakho-Isukha-Tiriki),
+      q(Luidakho-Luisukha-Lutirichi),
+      ],
+   q(2900) => [
+      q(Indo-Portuguese),
+      ],
+   q(2901) => [
+      q(Idon),
+      q(Ajiya),
+      ],
+   q(2902) => [
+      q(Ede Idaca),
+      ],
+   q(2903) => [
+      q(Idere),
+      ],
+   q(2904) => [
+      q(Idi),
+      ],
+   q(2905) => [
+      q(Indri),
+      ],
+   q(2906) => [
+      q(Idesa),
+      ],
+   q(2907) => [
+      q(Idate),
+      ],
+   q(2908) => [
+      q(Idoma),
+      ],
+   q(2909) => [
+      q(Amganad Ifugao),
+      ],
+   q(2910) => [
+      q(Batad Ifugao),
+      q(Ayangan Ifugao),
+      ],
+   q(2911) => [
+      q(Ife),
+      ],
+   q(2912) => [
+      q(Ifo),
+      ],
+   q(2913) => [
+      q(Tuwali Ifugao),
+      ],
+   q(2914) => [
+      q(Teke-Fuumu),
+      ],
+   q(2915) => [
+      q(Mayoyao Ifugao),
+      ],
+   q(2916) => [
+      q(Keley-I Kallahan),
+      ],
+   q(2917) => [
+      q(Ebira),
+      ],
+   q(2918) => [
+      q(Igede),
+      ],
+   q(2919) => [
+      q(Igana),
+      ],
+   q(2920) => [
+      q(Igala),
+      ],
+   q(2921) => [
+      q(Kanggape),
+      ],
+   q(2922) => [
+      q(Ignaciano),
+      ],
+   q(2923) => [
+      q(Isebe),
+      ],
+   q(2924) => [
+      q(Interglossa),
+      ],
+   q(2925) => [
+      q(Igwe),
+      ],
+   q(2926) => [
+      q(Iha Based Pidgin),
+      ],
+   q(2927) => [
+      q(Ihievbe),
+      ],
+   q(2928) => [
+      q(Iha),
+      ],
+   q(2929) => [
+      q(Bidhawal),
+      ],
+   q(2930) => [
+      q(Thiin),
+      ],
+   q(2931) => [
+      q(Izon),
+      ],
+   q(2932) => [
+      q(Biseni),
+      ],
+   q(2933) => [
+      q(Ede Ije),
+      ],
+   q(2934) => [
+      q(Kalabari),
+      ],
+   q(2935) => [
+      q(Southeast Ijo),
+      ],
+   q(2936) => [
+      q(Eastern Canadian Inuktitut),
+      ],
+   q(2937) => [
+      q(Iko),
+      ],
+   q(2938) => [
+      q(Ika),
+      ],
+   q(2939) => [
+      q(Ikulu),
+      ],
+   q(2940) => [
+      q(Olulumo-Ikom),
+      ],
+   q(2941) => [
+      q(Ikpeshi),
+      ],
+   q(2942) => [
+      q(Ikaranggal),
+      ],
+   q(2943) => [
+      q(Inuit Sign Language),
+      ],
+   q(2944) => [
+      q(Inuinnaqtun),
+      q(Western Canadian Inuktitut),
+      ],
+   q(2945) => [
+      q(Iku-Gora-Ankwa),
+      ],
+   q(2946) => [
+      q(Ikwere),
+      ],
+   q(2947) => [
+      q(Ik),
+      ],
+   q(2948) => [
+      q(Ikizu),
+      ],
+   q(2949) => [
+      q(Ile Ape),
+      ],
+   q(2950) => [
+      q(Ila),
+      ],
+   q(2951) => [
+      q(Garig-Ilgar),
+      ],
+   q(2952) => [
+      q(Ili Turki),
+      ],
+   q(2953) => [
+      q(Ilongot),
+      ],
+   q(2954) => [
+      q(Iranun (Malaysia)),
+      ],
+   q(2955) => [
+      q(Iranun (Philippines)),
+      ],
+   q(2956) => [
+      q(International Sign),
+      ],
+   q(2957) => [
+      q(Ili'uun),
+      ],
+   q(2958) => [
+      q(Ilue),
+      ],
+   q(2959) => [
+      q(Mala Malasar),
+      ],
+   q(2960) => [
+      q(Anamgura),
+      ],
+   q(2961) => [
+      q(Miluk),
+      ],
+   q(2962) => [
+      q(Imonda),
+      ],
+   q(2963) => [
+      q(Imbongu),
+      ],
+   q(2964) => [
+      q(Imroing),
+      ],
+   q(2965) => [
+      q(Marsian),
+      ],
+   q(2966) => [
+      q(Milyan),
+      ],
+   q(2967) => [
+      q(Inga),
+      ],
+   q(2968) => [
+      q(Degexit'an),
+      ],
+   q(2969) => [
+      q(Jungle Inga),
+      ],
+   q(2970) => [
+      q(Indonesian Sign Language),
+      ],
+   q(2971) => [
+      q(Minaean),
+      ],
+   q(2972) => [
+      q(Isinai),
+      ],
+   q(2973) => [
+      q(Inoke-Yate),
+      ],
+   q(2974) => [
+      q(Inapari),
+      ],
+   q(2975) => [
+      q(Indian Sign Language),
+      ],
+   q(2976) => [
+      q(Intha),
+      ],
+   q(2977) => [
+      q(Ineseno),
+      ],
+   q(2978) => [
+      q(Inor),
+      ],
+   q(2979) => [
+      q(Tuma-Irumu),
+      ],
+   q(2980) => [
+      q(Iowa-Oto),
+      ],
+   q(2981) => [
+      q(Ipili),
+      ],
+   q(2982) => [
+      q(Ipiko),
+      ],
+   q(2983) => [
+      q(Iquito),
+      ],
+   q(2984) => [
+      q(Ikwo),
+      ],
+   q(2985) => [
+      q(Iresim),
+      ],
+   q(2986) => [
+      q(Irarutu),
+      ],
+   q(2987) => [
+      q(Irigwe),
+      ],
+   q(2988) => [
+      q(Iraqw),
+      ],
+   q(2989) => [
+      q(Irantxe),
+      ],
+   q(2990) => [
+      q(Ir),
+      ],
+   q(2991) => [
+      q(Irula),
+      ],
+   q(2992) => [
+      q(Kamberau),
+      ],
+   q(2993) => [
+      q(Iraya),
+      ],
+   q(2994) => [
+      q(Isabi),
+      ],
+   q(2995) => [
+      q(Isconahua),
+      ],
+   q(2996) => [
+      q(Isnag),
+      ],
+   q(2997) => [
+      q(Italian Sign Language),
+      ],
+   q(2998) => [
+      q(Irish Sign Language),
+      ],
+   q(2999) => [
+      q(Esan),
+      ],
+   q(3000) => [
+      q(Nkem-Nkum),
+      ],
+   q(3001) => [
+      q(Ishkashimi),
+      ],
+   q(3002) => [
+      q(Masimasi),
+      ],
+   q(3003) => [
+      q(Isanzu),
+      ],
+   q(3004) => [
+      q(Isoko),
+      ],
+   q(3005) => [
+      q(Israeli Sign Language),
+      ],
+   q(3006) => [
+      q(Istriot),
+      ],
+   q(3007) => [
+      q(Isu (Menchum Division)),
+      ],
+   q(3008) => [
+      q(Binongan Itneg),
+      ],
+   q(3009) => [
+      q(Southern Tidung),
+      ],
+   q(3010) => [
+      q(Itene),
+      ],
+   q(3011) => [
+      q(Inlaod Itneg),
+      ],
+   q(3012) => [
+      q(Judeo-Italian),
+      ],
+   q(3013) => [
+      q(Itelmen),
+      ],
+   q(3014) => [
+      q(Itu Mbon Uzo),
+      ],
+   q(3015) => [
+      q(Itonama),
+      ],
+   q(3016) => [
+      q(Iteri),
+      ],
+   q(3017) => [
+      q(Isekiri),
+      ],
+   q(3018) => [
+      q(Maeng Itneg),
+      ],
+   q(3019) => [
+      q(Itawit),
+      ],
+   q(3020) => [
+      q(Ito),
+      ],
+   q(3021) => [
+      q(Itik),
+      ],
+   q(3022) => [
+      q(Moyadan Itneg),
+      ],
+   q(3023) => [
+      q(Itza),
+      ],
+   q(3024) => [
+      q(Iu Mien),
+      ],
+   q(3025) => [
+      q(Ibatan),
+      ],
+   q(3026) => [
+      q(Ivatan),
+      ],
+   q(3027) => [
+      q(I-Wak),
+      ],
+   q(3028) => [
+      q(Iwam),
+      ],
+   q(3029) => [
+      q(Iwur),
+      ],
+   q(3030) => [
+      q(Sepik Iwam),
+      ],
+   q(3031) => [
+      q(Ixcatec),
+      ],
+   q(3032) => [
+      q(Ixil),
+      ],
+   q(3033) => [
+      q(Iyayu),
+      ],
+   q(3034) => [
+      q(Mesaka),
+      ],
+   q(3035) => [
+      q(Yaka (Congo)),
+      ],
+   q(3036) => [
+      q(Ingrian),
+      ],
+   q(3037) => [
+      q(Izere),
+      ],
+   q(3038) => [
+      q(Izii),
+      ],
+   q(3039) => [
+      q(Jamamadi),
+      ],
+   q(3040) => [
+      q(Hyam),
+      ],
+   q(3041) => [
+      q(Popti'),
+      q(Jakalteko),
+      ],
+   q(3042) => [
+      q(Jahanka),
+      ],
+   q(3043) => [
+      q(Yabem),
+      ],
+   q(3044) => [
+      q(Jara),
+      ],
+   q(3045) => [
+      q(Jah Hut),
+      ],
+   q(3046) => [
+      q(Zazao),
+      ],
+   q(3047) => [
+      q(Jakun),
+      ],
+   q(3048) => [
+      q(Yalahatan),
+      ],
+   q(3049) => [
+      q(Jamaican Creole English),
+      ],
+   q(3050) => [
+      q(Jandai),
+      ],
+   q(3051) => [
+      q(Yanyuwa),
+      ],
+   q(3052) => [
+      q(Yaqay),
+      ],
+   q(3053) => [
+      q(New Caledonian Javanese),
+      ],
+   q(3054) => [
+      q(Jakati),
+      ],
+   q(3055) => [
+      q(Yaur),
+      ],
+   q(3056) => [
+      q(Jambi Malay),
+      ],
+   q(3057) => [
+      q(Yan-nhangu),
+      ],
+   q(3058) => [
+      q(Jawe),
+      ],
+   q(3059) => [
+      q(Judeo-Berber),
+      ],
+   q(3060) => [
+      q(Badjiri),
+      ],
+   q(3061) => [
+      q(Arandai),
+      ],
+   q(3062) => [
+      q(Barikewa),
+      ],
+   q(3063) => [
+      q(Nafusi),
+      ],
+   q(3064) => [
+      q(Jofotek-Bromnya),
+      ],
+   q(3065) => [
+      q(Jabuti),
+      ],
+   q(3066) => [
+      q(Jukun Takum),
+      ],
+   q(3067) => [
+      q(Yawijibaya),
+      ],
+   q(3068) => [
+      q(Jamaican Country Sign Language),
+      ],
+   q(3069) => [
+      q(Krymchak),
+      ],
+   q(3070) => [
+      q(Jad),
+      ],
+   q(3071) => [
+      q(Jadgali),
+      ],
+   q(3072) => [
+      q(Judeo-Tat),
+      ],
+   q(3073) => [
+      q(Jebero),
+      ],
+   q(3074) => [
+      q(Jerung),
+      ],
+   q(3075) => [
+      q(Jeh),
+      ],
+   q(3076) => [
+      q(Yei),
+      ],
+   q(3077) => [
+      q(Jeri Kuo),
+      ],
+   q(3078) => [
+      q(Yelmek),
+      ],
+   q(3079) => [
+      q(Dza),
+      ],
+   q(3080) => [
+      q(Jere),
+      ],
+   q(3081) => [
+      q(Manem),
+      ],
+   q(3082) => [
+      q(Jonkor Bourmataguil),
+      ],
+   q(3083) => [
+      q(Ngbee),
+      ],
+   q(3084) => [
+      q(Judeo-Georgian),
+      ],
+   q(3085) => [
+      q(Gwak),
+      ],
+   q(3086) => [
+      q(Ngomba),
+      ],
+   q(3087) => [
+      q(Jehai),
+      ],
+   q(3088) => [
+      q(Jhankot Sign Language),
+      ],
+   q(3089) => [
+      q(Jina),
+      ],
+   q(3090) => [
+      q(Jibu),
+      ],
+   q(3091) => [
+      q(Tol),
+      ],
+   q(3092) => [
+      q(Bu),
+      ],
+   q(3093) => [
+      q(Jilbe),
+      ],
+   q(3094) => [
+      q(Djingili),
+      ],
+   q(3095) => [
+      q(sTodsde),
+      q(Shangzhai),
+      ],
+   q(3096) => [
+      q(Jiiddu),
+      ],
+   q(3097) => [
+      q(Jilim),
+      ],
+   q(3098) => [
+      q(Jimi (Cameroon)),
+      ],
+   q(3099) => [
+      q(Jiamao),
+      ],
+   q(3100) => [
+      q(Guanyinqiao),
+      q(Lavrung),
+      ],
+   q(3101) => [
+      q(Jita),
+      ],
+   q(3102) => [
+      q(Youle Jinuo),
+      ],
+   q(3103) => [
+      q(Shuar),
+      ],
+   q(3104) => [
+      q(Buyuan Jinuo),
+      ],
+   q(3105) => [
+      q(Jejueo),
+      ],
+   q(3106) => [
+      q(Bankal),
+      ],
+   q(3107) => [
+      q(Kaera),
+      ],
+   q(3108) => [
+      q(Mobwa Karen),
+      ],
+   q(3109) => [
+      q(Kubo),
+      ],
+   q(3110) => [
+      q(Paku Karen),
+      ],
+   q(3111) => [
+      q(Koro (India)),
+      ],
+   q(3112) => [
+      q(Labir),
+      ],
+   q(3113) => [
+      q(Ngile),
+      ],
+   q(3114) => [
+      q(Jamaican Sign Language),
+      ],
+   q(3115) => [
+      q(Dima),
+      ],
+   q(3116) => [
+      q(Zumbun),
+      ],
+   q(3117) => [
+      q(Machame),
+      ],
+   q(3118) => [
+      q(Yamdena),
+      ],
+   q(3119) => [
+      q(Jimi (Nigeria)),
+      ],
+   q(3120) => [
+      q(Jumli),
+      ],
+   q(3121) => [
+      q(Makuri Naga),
+      ],
+   q(3122) => [
+      q(Kamara),
+      ],
+   q(3123) => [
+      q(Mashi (Nigeria)),
+      ],
+   q(3124) => [
+      q(Mouwase),
+      ],
+   q(3125) => [
+      q(Western Juxtlahuaca Mixtec),
+      ],
+   q(3126) => [
+      q(Jangshung),
+      ],
+   q(3127) => [
+      q(Jandavra),
+      ],
+   q(3128) => [
+      q(Yangman),
+      ],
+   q(3129) => [
+      q(Janji),
+      ],
+   q(3130) => [
+      q(Yemsa),
+      ],
+   q(3131) => [
+      q(Rawat),
+      ],
+   q(3132) => [
+      q(Jaunsari),
+      ],
+   q(3133) => [
+      q(Joba),
+      ],
+   q(3134) => [
+      q(Wojenaka),
+      ],
+   q(3135) => [
+      q(Jogi),
+      ],
+   q(3136) => [
+      q(Jora),
+      ],
+   q(3137) => [
+      q(Jordanian Sign Language),
+      ],
+   q(3138) => [
+      q(Jowulu),
+      ],
+   q(3139) => [
+      q(Jewish Palestinian Aramaic),
+      ],
+   q(3140) => [
+      q(Jaqaru),
+      ],
+   q(3141) => [
+      q(Jarai),
+      ],
+   q(3142) => [
+      q(Jiru),
+      ],
+   q(3143) => [
+      q(Jorto),
+      ],
+   q(3144) => [
+      q(Japreria),
+      ],
+   q(3145) => [
+      q(Japanese Sign Language),
+      ],
+   q(3146) => [
+      q(Juma),
+      ],
+   q(3147) => [
+      q(Wannu),
+      ],
+   q(3148) => [
+      q(Jurchen),
+      ],
+   q(3149) => [
+      q(Worodougou),
+      ],
+   q(3150) => [
+      q(Hone),
+      ],
+   q(3151) => [
+      q(Ngadjuri),
+      ],
+   q(3152) => [
+      q(Wapan),
+      ],
+   q(3153) => [
+      q(Jirel),
+      ],
+   q(3154) => [
+      q(Jumjum),
+      ],
+   q(3155) => [
+      q(Juang),
+      ],
+   q(3156) => [
+      q(Jiba),
+      ],
+   q(3157) => [
+      q(Hupde),
+      ],
+   q(3158) => [
+      q(Juruna),
+      ],
+   q(3159) => [
+      q(Jumla Sign Language),
+      ],
+   q(3160) => [
+      q(Jutish),
+      ],
+   q(3161) => [
+      q(Ju),
+      ],
+   q(3162) => [
+      q(Wapha),
+      ],
+   q(3163) => [
+      q(Juray),
+      ],
+   q(3164) => [
+      q(Javindo),
+      ],
+   q(3165) => [
+      q(Caribbean Javanese),
+      ],
+   q(3166) => [
+      q(Jwira-Pepesa),
+      ],
+   q(3167) => [
+      q(Jiarong),
+      ],
+   q(3168) => [
+      q(Judeo-Yemeni Arabic),
+      ],
+   q(3169) => [
+      q(Jaya),
+      ],
+   q(3170) => [
+      q(Adara),
+      ],
+   q(3171) => [
+      q(Ketangalan),
+      ],
+   q(3172) => [
+      q(Katso),
+      ],
+   q(3173) => [
+      q(Kajaman),
+      ],
+   q(3174) => [
+      q(Kara (Central African Republic)),
+      ],
+   q(3175) => [
+      q(Karekare),
+      ],
+   q(3176) => [
+      q(Jju),
+      ],
+   q(3177) => [
+      q(Kalanguya),
+      q(Kayapa Kallahan),
+      ],
+   q(3178) => [
+      q(Xaasongaxango),
+      ],
+   q(3179) => [
+      q(Bezhta),
+      ],
+   q(3180) => [
+      q(Capanahua),
+      ],
+   q(3181) => [
+      q(Katukina),
+      ],
+   q(3182) => [
+      q(Kao),
+      ],
+   q(3183) => [
+      q(Kamayura),
+      ],
+   q(3184) => [
+      q(Kalarko),
+      ],
+   q(3185) => [
+      q(Kaxuiana),
+      ],
+   q(3186) => [
+      q(Kadiweu),
+      ],
+   q(3187) => [
+      q(Kanju),
+      ],
+   q(3188) => [
+      q(Khamba),
+      ],
+   q(3189) => [
+      q(Camsa),
+      ],
+   q(3190) => [
+      q(Kaptiau),
+      ],
+   q(3191) => [
+      q(Kari),
+      ],
+   q(3192) => [
+      q(Grass Koiari),
+      ],
+   q(3193) => [
+      q(Kanembu),
+      ],
+   q(3194) => [
+      q(Iwal),
+      ],
+   q(3195) => [
+      q(Kare (Central African Republic)),
+      ],
+   q(3196) => [
+      q(Keliko),
+      ],
+   q(3197) => [
+      q(Kabiye),
+      ],
+   q(3198) => [
+      q(Kamano),
+      ],
+   q(3199) => [
+      q(Kafa),
+      ],
+   q(3200) => [
+      q(Kande),
+      ],
+   q(3201) => [
+      q(Abadi),
+      ],
+   q(3202) => [
+      q(Kabutra),
+      ],
+   q(3203) => [
+      q(Dera (Indonesia)),
+      ],
+   q(3204) => [
+      q(Kaiep),
+      ],
+   q(3205) => [
+      q(Ap Ma),
+      ],
+   q(3206) => [
+      q(Manga Kanuri),
+      ],
+   q(3207) => [
+      q(Duhwa),
+      ],
+   q(3208) => [
+      q(Khanty),
+      ],
+   q(3209) => [
+      q(Kawacha),
+      ],
+   q(3210) => [
+      q(Lubila),
+      ],
+   q(3211) => [
+      q(Ngkalmpw Kanum),
+      ],
+   q(3212) => [
+      q(Kaivi),
+      ],
+   q(3213) => [
+      q(Ukaan),
+      ],
+   q(3214) => [
+      q(Tyap),
+      ],
+   q(3215) => [
+      q(Vono),
+      ],
+   q(3216) => [
+      q(Kamantan),
+      ],
+   q(3217) => [
+      q(Kobiana),
+      ],
+   q(3218) => [
+      q(Kalanga),
+      ],
+   q(3219) => [
+      q(Kela (Papua New Guinea)),
+      q(Kala),
+      ],
+   q(3220) => [
+      q(Gula (Central African Republic)),
+      ],
+   q(3221) => [
+      q(Nubi),
+      ],
+   q(3222) => [
+      q(Kinalakna),
+      ],
+   q(3223) => [
+      q(Kanga),
+      ],
+   q(3224) => [
+      q(Kamo),
+      ],
+   q(3225) => [
+      q(Katla),
+      ],
+   q(3226) => [
+      q(Koenoem),
+      ],
+   q(3227) => [
+      q(Kaian),
+      ],
+   q(3228) => [
+      q(Kami (Tanzania)),
+      ],
+   q(3229) => [
+      q(Kete),
+      ],
+   q(3230) => [
+      q(Kabwari),
+      ],
+   q(3231) => [
+      q(Kachama-Ganjule),
+      ],
+   q(3232) => [
+      q(Korandje),
+      ],
+   q(3233) => [
+      q(Konongo),
+      ],
+   q(3234) => [
+      q(Worimi),
+      ],
+   q(3235) => [
+      q(Kutu),
+      ],
+   q(3236) => [
+      q(Yankunytjatjara),
+      ],
+   q(3237) => [
+      q(Makonde),
+      ],
+   q(3238) => [
+      q(Mamusi),
+      ],
+   q(3239) => [
+      q(Seba),
+      ],
+   q(3240) => [
+      q(Tem),
+      ],
+   q(3241) => [
+      q(Kumam),
+      ],
+   q(3242) => [
+      q(Karamojong),
+      ],
+   q(3243) => [
+      q(Numee),
+      q(Kwenyi),
+      ],
+   q(3244) => [
+      q(Tsikimba),
+      ],
+   q(3245) => [
+      q(Kagoma),
+      ],
+   q(3246) => [
+      q(Kunda),
+      ],
+   q(3247) => [
+      q(Kaningdon-Nindem),
+      ],
+   q(3248) => [
+      q(Koch),
+      ],
+   q(3249) => [
+      q(Karaim),
+      ],
+   q(3250) => [
+      q(Kuy),
+      ],
+   q(3251) => [
+      q(Kadaru),
+      ],
+   q(3252) => [
+      q(Koneraw),
+      ],
+   q(3253) => [
+      q(Kam),
+      ],
+   q(3254) => [
+      q(Keder),
+      q(Keijar),
+      ],
+   q(3255) => [
+      q(Kwaja),
+      ],
+   q(3256) => [
+      q(Kabuverdianu),
+      ],
+   q(3257) => [
+      q(Kele),
+      ],
+   q(3258) => [
+      q(Keiga),
+      ],
+   q(3259) => [
+      q(Kerewe),
+      ],
+   q(3260) => [
+      q(Eastern Keres),
+      ],
+   q(3261) => [
+      q(Kpessi),
+      ],
+   q(3262) => [
+      q(Tese),
+      ],
+   q(3263) => [
+      q(Keak),
+      ],
+   q(3264) => [
+      q(Kei),
+      ],
+   q(3265) => [
+      q(Kadar),
+      ],
+   q(3266) => [
+      q(Kekchi),
+      ],
+   q(3267) => [
+      q(Kela (Democratic Republic of Congo)),
+      ],
+   q(3268) => [
+      q(Kemak),
+      ],
+   q(3269) => [
+      q(Kenyang),
+      ],
+   q(3270) => [
+      q(Kakwa),
+      ],
+   q(3271) => [
+      q(Kaikadi),
+      ],
+   q(3272) => [
+      q(Kamar),
+      ],
+   q(3273) => [
+      q(Kera),
+      ],
+   q(3274) => [
+      q(Kugbo),
+      ],
+   q(3275) => [
+      q(Ket),
+      ],
+   q(3276) => [
+      q(Akebu),
+      ],
+   q(3277) => [
+      q(Kanikkaran),
+      ],
+   q(3278) => [
+      q(West Kewa),
+      ],
+   q(3279) => [
+      q(Kukna),
+      ],
+   q(3280) => [
+      q(Kupia),
+      ],
+   q(3281) => [
+      q(Kukele),
+      ],
+   q(3282) => [
+      q(Kodava),
+      ],
+   q(3283) => [
+      q(Northwestern Kolami),
+      ],
+   q(3284) => [
+      q(Konda-Dora),
+      ],
+   q(3285) => [
+      q(Korra Koraga),
+      ],
+   q(3286) => [
+      q(Kota (India)),
+      ],
+   q(3287) => [
+      q(Koya),
+      ],
+   q(3288) => [
+      q(Kudiya),
+      ],
+   q(3289) => [
+      q(Kurichiya),
+      ],
+   q(3290) => [
+      q(Kannada Kurumba),
+      ],
+   q(3291) => [
+      q(Kemiehua),
+      ],
+   q(3292) => [
+      q(Kinnauri),
+      ],
+   q(3293) => [
+      q(Kung),
+      ],
+   q(3294) => [
+      q(Khunsari),
+      ],
+   q(3295) => [
+      q(Kuk),
+      ],
+   q(3296) => [
+      q(Koro (Cote d'Ivoire)),
+      ],
+   q(3297) => [
+      q(Korwa),
+      ],
+   q(3298) => [
+      q(Korku),
+      ],
+   q(3299) => [
+      q(Kachhi),
+      q(Kutchi),
+      ],
+   q(3300) => [
+      q(Bilaspuri),
+      ],
+   q(3301) => [
+      q(Kanjari),
+      ],
+   q(3302) => [
+      q(Katkari),
+      ],
+   q(3303) => [
+      q(Kurmukar),
+      ],
+   q(3304) => [
+      q(Kharam Naga),
+      ],
+   q(3305) => [
+      q(Kullu Pahari),
+      ],
+   q(3306) => [
+      q(Kumaoni),
+      ],
+   q(3307) => [
+      q(Koromfe),
+      ],
+   q(3308) => [
+      q(Koyaga),
+      ],
+   q(3309) => [
+      q(Kawe),
+      ],
+   q(3310) => [
+      q(Komering),
+      ],
+   q(3311) => [
+      q(Kube),
+      ],
+   q(3312) => [
+      q(Kusunda),
+      ],
+   q(3313) => [
+      q(Selangor Sign Language),
+      ],
+   q(3314) => [
+      q(Gamale Kham),
+      ],
+   q(3315) => [
+      q(Kaiwa),
+      ],
+   q(3316) => [
+      q(Kunggari),
+      ],
+   q(3317) => [
+      q(Karipuna),
+      ],
+   q(3318) => [
+      q(Karingani),
+      ],
+   q(3319) => [
+      q(Krongo),
+      ],
+   q(3320) => [
+      q(Kaingang),
+      ],
+   q(3321) => [
+      q(Kamoro),
+      ],
+   q(3322) => [
+      q(Abun),
+      ],
+   q(3323) => [
+      q(Kumbainggar),
+      ],
+   q(3324) => [
+      q(Somyev),
+      ],
+   q(3325) => [
+      q(Kobol),
+      ],
+   q(3326) => [
+      q(Karas),
+      ],
+   q(3327) => [
+      q(Karon Dori),
+      ],
+   q(3328) => [
+      q(Kamaru),
+      ],
+   q(3329) => [
+      q(Kyerung),
+      ],
+   q(3330) => [
+      q(Lu),
+      ],
+   q(3331) => [
+      q(Tukang Besi North),
+      ],
+   q(3332) => [
+      q(Badi Kanum),
+      ],
+   q(3333) => [
+      q(Korowai),
+      ],
+   q(3334) => [
+      q(Khuen),
+      ],
+   q(3335) => [
+      q(Khams Tibetan),
+      ],
+   q(3336) => [
+      q(Kehu),
+      ],
+   q(3337) => [
+      q(Kuturmi),
+      ],
+   q(3338) => [
+      q(Halh Mongolian),
+      ],
+   q(3339) => [
+      q(Lusi),
+      ],
+   q(3340) => [
+      q(Khandesi),
+      ],
+   q(3341) => [
+      q(Kapori),
+      q(Kapauri),
+      ],
+   q(3342) => [
+      q(Koyra Chiini Songhay),
+      ],
+   q(3343) => [
+      q(Kharia),
+      ],
+   q(3344) => [
+      q(Kasua),
+      ],
+   q(3345) => [
+      q(Khamti),
+      ],
+   q(3346) => [
+      q(Nkhumbi),
+      ],
+   q(3347) => [
+      q(Khvarshi),
+      ],
+   q(3348) => [
+      q(Khowar),
+      ],
+   q(3349) => [
+      q(Kanu),
+      ],
+   q(3350) => [
+      q(Kele (Democratic Republic of Congo)),
+      ],
+   q(3351) => [
+      q(Keapara),
+      ],
+   q(3352) => [
+      q(Kim),
+      ],
+   q(3353) => [
+      q(Koalib),
+      ],
+   q(3354) => [
+      q(Kickapoo),
+      ],
+   q(3355) => [
+      q(Koshin),
+      ],
+   q(3356) => [
+      q(Kibet),
+      ],
+   q(3357) => [
+      q(Eastern Parbate Kham),
+      ],
+   q(3358) => [
+      q(Kimaama),
+      q(Kimaghima),
+      ],
+   q(3359) => [
+      q(Kilmeri),
+      ],
+   q(3360) => [
+      q(Kitsai),
+      ],
+   q(3361) => [
+      q(Kilivila),
+      ],
+   q(3362) => [
+      q(Kariya),
+      ],
+   q(3363) => [
+      q(Karagas),
+      ],
+   q(3364) => [
+      q(Kiowa),
+      ],
+   q(3365) => [
+      q(Sheshi Kham),
+      ],
+   q(3366) => [
+      q(Kosadle),
+      q(Kosare),
+      ],
+   q(3367) => [
+      q(Kis),
+      ],
+   q(3368) => [
+      q(Agob),
+      ],
+   q(3369) => [
+      q(Kirmanjki (individual language)),
+      ],
+   q(3370) => [
+      q(Kimbu),
+      ],
+   q(3371) => [
+      q(Northeast Kiwai),
+      ],
+   q(3372) => [
+      q(Khiamniungan Naga),
+      ],
+   q(3373) => [
+      q(Kirikiri),
+      ],
+   q(3374) => [
+      q(Kisi),
+      ],
+   q(3375) => [
+      q(Mlap),
+      ],
+   q(3376) => [
+      q(Q'anjob'al),
+      q(Kanjobal),
+      ],
+   q(3377) => [
+      q(Coastal Konjo),
+      ],
+   q(3378) => [
+      q(Southern Kiwai),
+      ],
+   q(3379) => [
+      q(Kisar),
+      ],
+   q(3380) => [
+      q(Khalaj),
+      ],
+   q(3381) => [
+      q(Khmu),
+      ],
+   q(3382) => [
+      q(Khakas),
+      ],
+   q(3383) => [
+      q(Zabana),
+      ],
+   q(3384) => [
+      q(Khinalugh),
+      ],
+   q(3385) => [
+      q(Highland Konjo),
+      ],
+   q(3386) => [
+      q(Western Parbate Kham),
+      ],
+   q(3387) => [
+      q(Khang),
+      ],
+   q(3388) => [
+      q(Kunjen),
+      ],
+   q(3389) => [
+      q(Harijan Kinnauri),
+      ],
+   q(3390) => [
+      q(Pwo Eastern Karen),
+      ],
+   q(3391) => [
+      q(Western Keres),
+      ],
+   q(3392) => [
+      q(Kurudu),
+      ],
+   q(3393) => [
+      q(East Kewa),
+      ],
+   q(3394) => [
+      q(Phrae Pwo Karen),
+      ],
+   q(3395) => [
+      q(Kashaya),
+      ],
+   q(3396) => [
+      q(Kaikavian Literary Language),
+      ],
+   q(3397) => [
+      q(Ramopa),
+      ],
+   q(3398) => [
+      q(Erave),
+      ],
+   q(3399) => [
+      q(Bumthangkha),
+      ],
+   q(3400) => [
+      q(Kakanda),
+      ],
+   q(3401) => [
+      q(Kwerisa),
+      ],
+   q(3402) => [
+      q(Odoodee),
+      ],
+   q(3403) => [
+      q(Kinuku),
+      ],
+   q(3404) => [
+      q(Kakabe),
+      ],
+   q(3405) => [
+      q(Kalaktang Monpa),
+      ],
+   q(3406) => [
+      q(Mabaka Valley Kalinga),
+      ],
+   q(3407) => [
+      q(Khun),
+      ],
+   q(3408) => [
+      q(Kagulu),
+      ],
+   q(3409) => [
+      q(Kako),
+      ],
+   q(3410) => [
+      q(Kokota),
+      ],
+   q(3411) => [
+      q(Kosarek Yale),
+      ],
+   q(3412) => [
+      q(Kiong),
+      ],
+   q(3413) => [
+      q(Kon Keu),
+      ],
+   q(3414) => [
+      q(Karko),
+      ],
+   q(3415) => [
+      q(Gugubera),
+      ],
+   q(3416) => [
+      q(Kaiku),
+      ],
+   q(3417) => [
+      q(Kir-Balar),
+      ],
+   q(3418) => [
+      q(Giiwo),
+      ],
+   q(3419) => [
+      q(Koi),
+      ],
+   q(3420) => [
+      q(Tumi),
+      ],
+   q(3421) => [
+      q(Kangean),
+      ],
+   q(3422) => [
+      q(Teke-Kukuya),
+      ],
+   q(3423) => [
+      q(Kohin),
+      ],
+   q(3424) => [
+      q(Guguyimidjir),
+      ],
+   q(3425) => [
+      q(Kaska),
+      ],
+   q(3426) => [
+      q(Klamath-Modoc),
+      ],
+   q(3427) => [
+      q(Kiliwa),
+      ],
+   q(3428) => [
+      q(Kolbila),
+      ],
+   q(3429) => [
+      q(Gamilaraay),
+      ],
+   q(3430) => [
+      q(Kulung (Nepal)),
+      ],
+   q(3431) => [
+      q(Kendeje),
+      ],
+   q(3432) => [
+      q(Tagakaulo),
+      ],
+   q(3433) => [
+      q(Weliki),
+      ],
+   q(3434) => [
+      q(Kalumpang),
+      ],
+   q(3435) => [
+      q(Turkic Khalaj),
+      ],
+   q(3436) => [
+      q(Kono (Nigeria)),
+      ],
+   q(3437) => [
+      q(Kagan Kalagan),
+      ],
+   q(3438) => [
+      q(Migum),
+      ],
+   q(3439) => [
+      q(Kalenjin),
+      ],
+   q(3440) => [
+      q(Kapya),
+      ],
+   q(3441) => [
+      q(Kamasa),
+      ],
+   q(3442) => [
+      q(Rumu),
+      ],
+   q(3443) => [
+      q(Khaling),
+      ],
+   q(3444) => [
+      q(Kalasha),
+      ],
+   q(3445) => [
+      q(Nukna),
+      ],
+   q(3446) => [
+      q(Klao),
+      ],
+   q(3447) => [
+      q(Maskelynes),
+      ],
+   q(3448) => [
+      q(Tado),
+      q(Lindu),
+      ],
+   q(3449) => [
+      q(Koluwawa),
+      ],
+   q(3450) => [
+      q(Kalao),
+      ],
+   q(3451) => [
+      q(Kabola),
+      ],
+   q(3452) => [
+      q(Konni),
+      ],
+   q(3453) => [
+      q(Southern Dong),
+      ],
+   q(3454) => [
+      q(Majukayang Kalinga),
+      ],
+   q(3455) => [
+      q(Bakole),
+      ],
+   q(3456) => [
+      q(Kare (Papua New Guinea)),
+      ],
+   q(3457) => [
+      q(Kate),
+      ],
+   q(3458) => [
+      q(Kalam),
+      ],
+   q(3459) => [
+      q(Kami (Nigeria)),
+      ],
+   q(3460) => [
+      q(Kumarbhag Paharia),
+      ],
+   q(3461) => [
+      q(Limos Kalinga),
+      ],
+   q(3462) => [
+      q(Tanudan Kalinga),
+      ],
+   q(3463) => [
+      q(Kom (India)),
+      ],
+   q(3464) => [
+      q(Awtuw),
+      ],
+   q(3465) => [
+      q(Kwoma),
+      ],
+   q(3466) => [
+      q(Gimme),
+      ],
+   q(3467) => [
+      q(Kwama),
+      ],
+   q(3468) => [
+      q(Northern Kurdish),
+      ],
+   q(3469) => [
+      q(Kamasau),
+      ],
+   q(3470) => [
+      q(Kemtuik),
+      ],
+   q(3471) => [
+      q(Kanite),
+      ],
+   q(3472) => [
+      q(Karipuna Creole French),
+      ],
+   q(3473) => [
+      q(Komo (Democratic Republic of Congo)),
+      ],
+   q(3474) => [
+      q(Waboda),
+      ],
+   q(3475) => [
+      q(Koma),
+      ],
+   q(3476) => [
+      q(Khorasani Turkish),
+      ],
+   q(3477) => [
+      q(Dera (Nigeria)),
+      ],
+   q(3478) => [
+      q(Lubuagan Kalinga),
+      ],
+   q(3479) => [
+      q(Central Kanuri),
+      ],
+   q(3480) => [
+      q(Konda),
+      ],
+   q(3481) => [
+      q(Kankanaey),
+      ],
+   q(3482) => [
+      q(Mankanya),
+      ],
+   q(3483) => [
+      q(Koongo),
+      ],
+   q(3484) => [
+      q(Kanufi),
+      ],
+   q(3485) => [
+      q(Western Kanjobal),
+      ],
+   q(3486) => [
+      q(Kuranko),
+      ],
+   q(3487) => [
+      q(Keninjal),
+      ],
+   q(3488) => [
+      q(Kanamari),
+      ],
+   q(3489) => [
+      q(Konkani (individual language)),
+      ],
+   q(3490) => [
+      q(Kono (Sierra Leone)),
+      ],
+   q(3491) => [
+      q(Kwanja),
+      ],
+   q(3492) => [
+      q(Kintaq),
+      ],
+   q(3493) => [
+      q(Kaningra),
+      ],
+   q(3494) => [
+      q(Kensiu),
+      ],
+   q(3495) => [
+      q(Panoan Katukina),
+      ],
+   q(3496) => [
+      q(Kono (Guinea)),
+      ],
+   q(3497) => [
+      q(Tabo),
+      ],
+   q(3498) => [
+      q(Kung-Ekoka),
+      ],
+   q(3499) => [
+      q(Kendayan),
+      q(Salako),
+      ],
+   q(3500) => [
+      q(Kanyok),
+      ],
+   q(3501) => [
+      q(Kalamse),
+      ],
+   q(3502) => [
+      q(Konomala),
+      ],
+   q(3503) => [
+      q(Kpati),
+      ],
+   q(3504) => [
+      q(Kodi),
+      ],
+   q(3505) => [
+      q(Kacipo-Balesi),
+      ],
+   q(3506) => [
+      q(Kubi),
+      ],
+   q(3507) => [
+      q(Cogui),
+      q(Kogi),
+      ],
+   q(3508) => [
+      q(Koyo),
+      ],
+   q(3509) => [
+      q(Komi-Permyak),
+      ],
+   q(3510) => [
+      q(Kol (Papua New Guinea)),
+      ],
+   q(3511) => [
+      q(Konzo),
+      ],
+   q(3512) => [
+      q(Waube),
+      ],
+   q(3513) => [
+      q(Kota (Gabon)),
+      ],
+   q(3514) => [
+      q(Lagwan),
+      ],
+   q(3515) => [
+      q(Koke),
+      ],
+   q(3516) => [
+      q(Kudu-Camo),
+      ],
+   q(3517) => [
+      q(Kugama),
+      ],
+   q(3518) => [
+      q(Koyukon),
+      ],
+   q(3519) => [
+      q(Korak),
+      ],
+   q(3520) => [
+      q(Kutto),
+      ],
+   q(3521) => [
+      q(Mullu Kurumba),
+      ],
+   q(3522) => [
+      q(Curripaco),
+      ],
+   q(3523) => [
+      q(Koba),
+      ],
+   q(3524) => [
+      q(Komba),
+      ],
+   q(3525) => [
+      q(Kapingamarangi),
+      ],
+   q(3526) => [
+      q(Kplang),
+      ],
+   q(3527) => [
+      q(Kofei),
+      ],
+   q(3528) => [
+      q(Karaja),
+      ],
+   q(3529) => [
+      q(Kpan),
+      ],
+   q(3530) => [
+      q(Kpala),
+      ],
+   q(3531) => [
+      q(Koho),
+      ],
+   q(3532) => [
+      q(Kepkiriwat),
+      ],
+   q(3533) => [
+      q(Ikposo),
+      ],
+   q(3534) => [
+      q(Korupun-Sela),
+      ],
+   q(3535) => [
+      q(Korafe-Yegha),
+      ],
+   q(3536) => [
+      q(Tehit),
+      ],
+   q(3537) => [
+      q(Karata),
+      ],
+   q(3538) => [
+      q(Kafoa),
+      ],
+   q(3539) => [
+      q(Komi-Zyrian),
+      ],
+   q(3540) => [
+      q(Kobon),
+      ],
+   q(3541) => [
+      q(Mountain Koiali),
+      ],
+   q(3542) => [
+      q(Koryak),
+      ],
+   q(3543) => [
+      q(Kupsabiny),
+      ],
+   q(3544) => [
+      q(Mum),
+      ],
+   q(3545) => [
+      q(Kovai),
+      ],
+   q(3546) => [
+      q(Doromu-Koki),
+      ],
+   q(3547) => [
+      q(Koy Sanjaq Surat),
+      ],
+   q(3548) => [
+      q(Kalagan),
+      ],
+   q(3549) => [
+      q(Kakabai),
+      ],
+   q(3550) => [
+      q(Khe),
+      ],
+   q(3551) => [
+      q(Kisankasa),
+      ],
+   q(3552) => [
+      q(Koitabu),
+      ],
+   q(3553) => [
+      q(Koromira),
+      ],
+   q(3554) => [
+      q(Kotafon Gbe),
+      ],
+   q(3555) => [
+      q(Kyenele),
+      ],
+   q(3556) => [
+      q(Khisa),
+      ],
+   q(3557) => [
+      q(Kaonde),
+      ],
+   q(3558) => [
+      q(Eastern Krahn),
+      ],
+   q(3559) => [
+      q(Kimre),
+      ],
+   q(3560) => [
+      q(Krenak),
+      ],
+   q(3561) => [
+      q(Kimaragang),
+      ],
+   q(3562) => [
+      q(Northern Kissi),
+      ],
+   q(3563) => [
+      q(Klias River Kadazan),
+      ],
+   q(3564) => [
+      q(Seroa),
+      ],
+   q(3565) => [
+      q(Okolod),
+      ],
+   q(3566) => [
+      q(Kandas),
+      ],
+   q(3567) => [
+      q(Mser),
+      ],
+   q(3568) => [
+      q(Koorete),
+      ],
+   q(3569) => [
+      q(Korana),
+      ],
+   q(3570) => [
+      q(Kumhali),
+      ],
+   q(3571) => [
+      q(Karkin),
+      ],
+   q(3572) => [
+      q(Kairui-Midiki),
+      ],
+   q(3573) => [
+      q(Panara),
+      ],
+   q(3574) => [
+      q(Koro (Vanuatu)),
+      ],
+   q(3575) => [
+      q(Kurama),
+      ],
+   q(3576) => [
+      q(Krio),
+      ],
+   q(3577) => [
+      q(Kinaray-A),
+      ],
+   q(3578) => [
+      q(Kerek),
+      ],
+   q(3579) => [
+      q(Sapo),
+      ],
+   q(3580) => [
+      q(Korop),
+      ],
+   q(3581) => [
+      q(Krung),
+      ],
+   q(3582) => [
+      q(Gbaya (Sudan)),
+      ],
+   q(3583) => [
+      q(Tumari Kanuri),
+      ],
+   q(3584) => [
+      q(Kavet),
+      ],
+   q(3585) => [
+      q(Western Krahn),
+      ],
+   q(3586) => [
+      q(Karon),
+      ],
+   q(3587) => [
+      q(Kryts),
+      ],
+   q(3588) => [
+      q(Sota Kanum),
+      ],
+   q(3589) => [
+      q(Shuwa-Zamani),
+      ],
+   q(3590) => [
+      q(Shambala),
+      ],
+   q(3591) => [
+      q(Southern Kalinga),
+      ],
+   q(3592) => [
+      q(Kuanua),
+      ],
+   q(3593) => [
+      q(Kuni),
+      ],
+   q(3594) => [
+      q(Bafia),
+      ],
+   q(3595) => [
+      q(Kusaghe),
+      ],
+   q(3596) => [
+      q(Kolsch),
+      ],
+   q(3597) => [
+      q(Krisa),
+      q(I'saka),
+      ],
+   q(3598) => [
+      q(Uare),
+      ],
+   q(3599) => [
+      q(Kansa),
+      ],
+   q(3600) => [
+      q(Kumalu),
+      ],
+   q(3601) => [
+      q(Kumba),
+      ],
+   q(3602) => [
+      q(Kasiguranin),
+      ],
+   q(3603) => [
+      q(Kofa),
+      ],
+   q(3604) => [
+      q(Kaba),
+      ],
+   q(3605) => [
+      q(Kwaami),
+      ],
+   q(3606) => [
+      q(Borong),
+      ],
+   q(3607) => [
+      q(Southern Kisi),
+      ],
+   q(3608) => [
+      q(Winye),
+      ],
+   q(3609) => [
+      q(Khamyang),
+      ],
+   q(3610) => [
+      q(Kusu),
+      ],
+   q(3611) => [
+      q(S'gaw Karen),
+      ],
+   q(3612) => [
+      q(Kedang),
+      ],
+   q(3613) => [
+      q(Kharia Thar),
+      ],
+   q(3614) => [
+      q(Kodaku),
+      ],
+   q(3615) => [
+      q(Katua),
+      ],
+   q(3616) => [
+      q(Kambaata),
+      ],
+   q(3617) => [
+      q(Kholok),
+      ],
+   q(3618) => [
+      q(Kokata),
+      ],
+   q(3619) => [
+      q(Nubri),
+      ],
+   q(3620) => [
+      q(Kwami),
+      ],
+   q(3621) => [
+      q(Kalkutung),
+      ],
+   q(3622) => [
+      q(Karanga),
+      ],
+   q(3623) => [
+      q(North Muyu),
+      ],
+   q(3624) => [
+      q(Plapo Krumen),
+      ],
+   q(3625) => [
+      q(Kaniet),
+      ],
+   q(3626) => [
+      q(Koroshi),
+      ],
+   q(3627) => [
+      q(Kurti),
+      ],
+   q(3628) => [
+      q(Karitiana),
+      ],
+   q(3629) => [
+      q(Kuot),
+      ],
+   q(3630) => [
+      q(Kaduo),
+      ],
+   q(3631) => [
+      q(Katabaga),
+      ],
+   q(3632) => [
+      q(South Muyu),
+      ],
+   q(3633) => [
+      q(Ketum),
+      ],
+   q(3634) => [
+      q(Kituba (Democratic Republic of Congo)),
+      ],
+   q(3635) => [
+      q(Eastern Katu),
+      ],
+   q(3636) => [
+      q(Kato),
+      ],
+   q(3637) => [
+      q(Kaxarari),
+      ],
+   q(3638) => [
+      q(Kango (Bas-Uele District)),
+      ],
+   q(3639) => [
+      q(Ju/'hoan),
+      q(Juhoan),
+      q(Ju|'hoansi),
+      ],
+   q(3640) => [
+      q(Kutep),
+      ],
+   q(3641) => [
+      q(Kwinsu),
+      ],
+   q(3642) => [
+      q('Auhelawa),
+      ],
+   q(3643) => [
+      q(Kuman (Papua New Guinea)),
+      ],
+   q(3644) => [
+      q(Western Katu),
+      ],
+   q(3645) => [
+      q(Kupa),
+      ],
+   q(3646) => [
+      q(Kushi),
+      ],
+   q(3647) => [
+      q(Kuikuro-Kalapalo),
+      ],
+   q(3648) => [
+      q(Kuria),
+      ],
+   q(3649) => [
+      q(Kepo'),
+      ],
+   q(3650) => [
+      q(Kulere),
+      ],
+   q(3651) => [
+      q(Kunama),
+      ],
+   q(3652) => [
+      q(Kumukio),
+      ],
+   q(3653) => [
+      q(Kunimaipa),
+      ],
+   q(3654) => [
+      q(Kusaal),
+      ],
+   q(3655) => [
+      q(Upper Kuskokwim),
+      ],
+   q(3656) => [
+      q(Kur),
+      ],
+   q(3657) => [
+      q(Kpagua),
+      ],
+   q(3658) => [
+      q(Kukatja),
+      ],
+   q(3659) => [
+      q(Kuuku-Ya'u),
+      ],
+   q(3660) => [
+      q(Kunza),
+      ],
+   q(3661) => [
+      q(Bagvalal),
+      ],
+   q(3662) => [
+      q(Kubu),
+      ],
+   q(3663) => [
+      q(Kove),
+      ],
+   q(3664) => [
+      q(Kui (Indonesia)),
+      ],
+   q(3665) => [
+      q(Kalabakan),
+      ],
+   q(3666) => [
+      q(Kabalai),
+      ],
+   q(3667) => [
+      q(Kuni-Boazi),
+      ],
+   q(3668) => [
+      q(Komodo),
+      ],
+   q(3669) => [
+      q(Kwang),
+      ],
+   q(3670) => [
+      q(Psikye),
+      ],
+   q(3671) => [
+      q(Korean Sign Language),
+      ],
+   q(3672) => [
+      q(Kayaw),
+      ],
+   q(3673) => [
+      q(Kendem),
+      ],
+   q(3674) => [
+      q(Border Kuna),
+      ],
+   q(3675) => [
+      q(Dobel),
+      ],
+   q(3676) => [
+      q(Kompane),
+      ],
+   q(3677) => [
+      q(Geba Karen),
+      ],
+   q(3678) => [
+      q(Kerinci),
+      ],
+   q(3679) => [
+      q(Lahta Karen),
+      q(Lahta),
+      ],
+   q(3680) => [
+      q(Yinbaw Karen),
+      ],
+   q(3681) => [
+      q(Kola),
+      ],
+   q(3682) => [
+      q(Wersing),
+      ],
+   q(3683) => [
+      q(Parkari Koli),
+      ],
+   q(3684) => [
+      q(Yintale Karen),
+      q(Yintale),
+      ],
+   q(3685) => [
+      q(Tsakwambo),
+      q(Tsaukambo),
+      ],
+   q(3686) => [
+      q(Daw),
+      ],
+   q(3687) => [
+      q(Kwa),
+      ],
+   q(3688) => [
+      q(Likwala),
+      ],
+   q(3689) => [
+      q(Kwaio),
+      ],
+   q(3690) => [
+      q(Kwerba),
+      ],
+   q(3691) => [
+      q(Kwara'ae),
+      ],
+   q(3692) => [
+      q(Sara Kaba Deme),
+      ],
+   q(3693) => [
+      q(Kowiai),
+      ],
+   q(3694) => [
+      q(Awa-Cuaiquer),
+      ],
+   q(3695) => [
+      q(Kwanga),
+      ],
+   q(3696) => [
+      q(Kwakiutl),
+      ],
+   q(3697) => [
+      q(Kofyar),
+      ],
+   q(3698) => [
+      q(Kwambi),
+      ],
+   q(3699) => [
+      q(Kwangali),
+      ],
+   q(3700) => [
+      q(Kwomtari),
+      ],
+   q(3701) => [
+      q(Kodia),
+      ],
+   q(3702) => [
+      q(Kwer),
+      ],
+   q(3703) => [
+      q(Kwese),
+      ],
+   q(3704) => [
+      q(Kwesten),
+      ],
+   q(3705) => [
+      q(Kwakum),
+      ],
+   q(3706) => [
+      q(Sara Kaba Naa),
+      ],
+   q(3707) => [
+      q(Kwinti),
+      ],
+   q(3708) => [
+      q(Khirwar),
+      ],
+   q(3709) => [
+      q(San Salvador Kongo),
+      ],
+   q(3710) => [
+      q(Kwadi),
+      ],
+   q(3711) => [
+      q(Kairiru),
+      ],
+   q(3712) => [
+      q(Krobu),
+      ],
+   q(3713) => [
+      q(Konso),
+      q(Khonso),
+      ],
+   q(3714) => [
+      q(Brunei),
+      ],
+   q(3715) => [
+      q(Manumanaw Karen),
+      q(Manumanaw),
+      ],
+   q(3716) => [
+      q(Karo (Ethiopia)),
+      ],
+   q(3717) => [
+      q(Keningau Murut),
+      ],
+   q(3718) => [
+      q(Kulfa),
+      ],
+   q(3719) => [
+      q(Zayein Karen),
+      ],
+   q(3720) => [
+      q(Nepali Kurux),
+      ],
+   q(3721) => [
+      q(Northern Khmer),
+      ],
+   q(3722) => [
+      q(Kanowit-Tanjong Melanau),
+      ],
+   q(3723) => [
+      q(Kanoe),
+      ],
+   q(3724) => [
+      q(Wadiyara Koli),
+      ],
+   q(3725) => [
+      q(Smarky Kanum),
+      ],
+   q(3726) => [
+      q(Koro (Papua New Guinea)),
+      ],
+   q(3727) => [
+      q(Kangjia),
+      ],
+   q(3728) => [
+      q(Koiwat),
+      ],
+   q(3729) => [
+      q(Kui (India)),
+      ],
+   q(3730) => [
+      q(Kuvi),
+      ],
+   q(3731) => [
+      q(Konai),
+      ],
+   q(3732) => [
+      q(Likuba),
+      ],
+   q(3733) => [
+      q(Kayong),
+      ],
+   q(3734) => [
+      q(Kerewo),
+      ],
+   q(3735) => [
+      q(Kwaya),
+      ],
+   q(3736) => [
+      q(Butbut Kalinga),
+      ],
+   q(3737) => [
+      q(Kyaka),
+      ],
+   q(3738) => [
+      q(Karey),
+      ],
+   q(3739) => [
+      q(Krache),
+      ],
+   q(3740) => [
+      q(Kouya),
+      ],
+   q(3741) => [
+      q(Keyagana),
+      ],
+   q(3742) => [
+      q(Karok),
+      ],
+   q(3743) => [
+      q(Kiput),
+      ],
+   q(3744) => [
+      q(Karao),
+      ],
+   q(3745) => [
+      q(Kamayo),
+      ],
+   q(3746) => [
+      q(Kalapuya),
+      ],
+   q(3747) => [
+      q(Kpatili),
+      ],
+   q(3748) => [
+      q(Northern Binukidnon),
+      ],
+   q(3749) => [
+      q(Kelon),
+      ],
+   q(3750) => [
+      q(Kang),
+      ],
+   q(3751) => [
+      q(Kenga),
+      ],
+   q(3752) => [
+      q(Kuruaya),
+      ],
+   q(3753) => [
+      q(Baram Kayan),
+      ],
+   q(3754) => [
+      q(Kayagar),
+      ],
+   q(3755) => [
+      q(Western Kayah),
+      ],
+   q(3756) => [
+      q(Kayort),
+      ],
+   q(3757) => [
+      q(Kudmali),
+      ],
+   q(3758) => [
+      q(Rapoisi),
+      ],
+   q(3759) => [
+      q(Kambaira),
+      ],
+   q(3760) => [
+      q(Kayabi),
+      ],
+   q(3761) => [
+      q(Western Karaboro),
+      ],
+   q(3762) => [
+      q(Kaibobo),
+      ],
+   q(3763) => [
+      q(Bondoukou Kulango),
+      ],
+   q(3764) => [
+      q(Kadai),
+      ],
+   q(3765) => [
+      q(Kosena),
+      ],
+   q(3766) => [
+      q(Da'a Kaili),
+      ],
+   q(3767) => [
+      q(Kikai),
+      ],
+   q(3768) => [
+      q(Kelabit),
+      ],
+   q(3769) => [
+      q(Kazukuru),
+      ],
+   q(3770) => [
+      q(Kayeli),
+      ],
+   q(3771) => [
+      q(Kais),
+      ],
+   q(3772) => [
+      q(Kokola),
+      ],
+   q(3773) => [
+      q(Kaningi),
+      ],
+   q(3774) => [
+      q(Kaidipang),
+      ],
+   q(3775) => [
+      q(Kaike),
+      ],
+   q(3776) => [
+      q(Karang),
+      ],
+   q(3777) => [
+      q(Sugut Dusun),
+      ],
+   q(3778) => [
+      q(Kayupulau),
+      ],
+   q(3779) => [
+      q(Komyandaret),
+      ],
+   q(3780) => [
+      q(Kariri-Xoco),
+      ],
+   q(3781) => [
+      q(Kamarian),
+      ],
+   q(3782) => [
+      q(Kango (Tshopo District)),
+      ],
+   q(3783) => [
+      q(Kalabra),
+      ],
+   q(3784) => [
+      q(Southern Subanen),
+      ],
+   q(3785) => [
+      q(Linear A),
+      ],
+   q(3786) => [
+      q(Lacandon),
+      ],
+   q(3787) => [
+      q(Pattani),
+      ],
+   q(3788) => [
+      q(Lafofa),
+      ],
+   q(3789) => [
+      q(Langi),
+      ],
+   q(3790) => [
+      q(Lambya),
+      ],
+   q(3791) => [
+      q(Lango (Uganda)),
+      ],
+   q(3792) => [
+      q(Laka (Nigeria)),
+      ],
+   q(3793) => [
+      q(Lalia),
+      ],
+   q(3794) => [
+      q(Laru),
+      ],
+   q(3795) => [
+      q(Laka (Chad)),
+      ],
+   q(3796) => [
+      q(Qabiao),
+      ],
+   q(3797) => [
+      q(Larteh),
+      ],
+   q(3798) => [
+      q(Lama (Togo)),
+      ],
+   q(3799) => [
+      q(Laba),
+      ],
+   q(3800) => [
+      q(Lauje),
+      ],
+   q(3801) => [
+      q(Tiwa),
+      ],
+   q(3802) => [
+      q(Lama Bai),
+      ],
+   q(3803) => [
+      q(Aribwatsa),
+      ],
+   q(3804) => [
+      q(Lui),
+      ],
+   q(3805) => [
+      q(Label),
+      ],
+   q(3806) => [
+      q(Lakkia),
+      ],
+   q(3807) => [
+      q(Lak),
+      ],
+   q(3808) => [
+      q(Tinani),
+      ],
+   q(3809) => [
+      q(Laopang),
+      ],
+   q(3810) => [
+      q(La'bi),
+      ],
+   q(3811) => [
+      q(Ladakhi),
+      ],
+   q(3812) => [
+      q(Central Bontok),
+      ],
+   q(3813) => [
+      q(Libon Bikol),
+      ],
+   q(3814) => [
+      q(Lodhi),
+      ],
+   q(3815) => [
+      q(Lamet),
+      ],
+   q(3816) => [
+      q(Laven),
+      ],
+   q(3817) => [
+      q(Wampar),
+      ],
+   q(3818) => [
+      q(Lohorung),
+      ],
+   q(3819) => [
+      q(Libyan Sign Language),
+      ],
+   q(3820) => [
+      q(Lachi),
+      ],
+   q(3821) => [
+      q(Labu),
+      ],
+   q(3822) => [
+      q(Lavatbura-Lamusong),
+      ],
+   q(3823) => [
+      q(Tolaki),
+      ],
+   q(3824) => [
+      q(Lawangan),
+      ],
+   q(3825) => [
+      q(Lamu-Lamu),
+      ],
+   q(3826) => [
+      q(Lardil),
+      ],
+   q(3827) => [
+      q(Legenyem),
+      ],
+   q(3828) => [
+      q(Lola),
+      ],
+   q(3829) => [
+      q(Loncong),
+      q(Sekak),
+      ],
+   q(3830) => [
+      q(Lubu),
+      ],
+   q(3831) => [
+      q(Luchazi),
+      ],
+   q(3832) => [
+      q(Lisela),
+      ],
+   q(3833) => [
+      q(Tungag),
+      ],
+   q(3834) => [
+      q(Western Lawa),
+      ],
+   q(3835) => [
+      q(Luhu),
+      ],
+   q(3836) => [
+      q(Lisabata-Nuniali),
+      ],
+   q(3837) => [
+      q(Kla-Dan),
+      ],
+   q(3838) => [
+      q(Duya),
+      ],
+   q(3839) => [
+      q(Luri),
+      ],
+   q(3840) => [
+      q(Lenyima),
+      ],
+   q(3841) => [
+      q(Lamja-Dengsa-Tola),
+      ],
+   q(3842) => [
+      q(Laari),
+      ],
+   q(3843) => [
+      q(Lemoro),
+      ],
+   q(3844) => [
+      q(Leelau),
+      ],
+   q(3845) => [
+      q(Kaan),
+      ],
+   q(3846) => [
+      q(Landoma),
+      ],
+   q(3847) => [
+      q(Laadan),
+      ],
+   q(3848) => [
+      q(Loo),
+      ],
+   q(3849) => [
+      q(Tso),
+      ],
+   q(3850) => [
+      q(Lufu),
+      ],
+   q(3851) => [
+      q(Lega-Shabunda),
+      ],
+   q(3852) => [
+      q(Lala-Bisa),
+      ],
+   q(3853) => [
+      q(Leco),
+      ],
+   q(3854) => [
+      q(Lendu),
+      ],
+   q(3855) => [
+      q(Lyele),
+      ],
+   q(3856) => [
+      q(Lelemi),
+      ],
+   q(3857) => [
+      q(Lenje),
+      ],
+   q(3858) => [
+      q(Lemio),
+      ],
+   q(3859) => [
+      q(Lengola),
+      ],
+   q(3860) => [
+      q(Leipon),
+      ],
+   q(3861) => [
+      q(Lele (Democratic Republic of Congo)),
+      ],
+   q(3862) => [
+      q(Nomaande),
+      ],
+   q(3863) => [
+      q(Lenca),
+      ],
+   q(3864) => [
+      q(Leti (Cameroon)),
+      ],
+   q(3865) => [
+      q(Lepcha),
+      ],
+   q(3866) => [
+      q(Lembena),
+      ],
+   q(3867) => [
+      q(Lenkau),
+      ],
+   q(3868) => [
+      q(Lese),
+      ],
+   q(3869) => [
+      q(Lesing-Gelimi),
+      q(Amio-Gelimi),
+      ],
+   q(3870) => [
+      q(Kara (Papua New Guinea)),
+      ],
+   q(3871) => [
+      q(Lamma),
+      ],
+   q(3872) => [
+      q(Ledo Kaili),
+      ],
+   q(3873) => [
+      q(Luang),
+      ],
+   q(3874) => [
+      q(Lemolang),
+      ],
+   q(3875) => [
+      q(Lefa),
+      ],
+   q(3876) => [
+      q(Lingua Franca Nova),
+      ],
+   q(3877) => [
+      q(Lungga),
+      ],
+   q(3878) => [
+      q(Laghu),
+      ],
+   q(3879) => [
+      q(Lugbara),
+      ],
+   q(3880) => [
+      q(Laghuu),
+      ],
+   q(3881) => [
+      q(Lengilu),
+      ],
+   q(3882) => [
+      q(Lingarak),
+      q(Neverver),
+      ],
+   q(3883) => [
+      q(Wala),
+      ],
+   q(3884) => [
+      q(Lega-Mwenga),
+      ],
+   q(3885) => [
+      q(T'apo),
+      q(Opuuo),
+      ],
+   q(3886) => [
+      q(Logba),
+      ],
+   q(3887) => [
+      q(Lengo),
+      ],
+   q(3888) => [
+      q(Pahi),
+      ],
+   q(3889) => [
+      q(Longgu),
+      ],
+   q(3890) => [
+      q(Ligenza),
+      ],
+   q(3891) => [
+      q(Laha (Viet Nam)),
+      ],
+   q(3892) => [
+      q(Laha (Indonesia)),
+      ],
+   q(3893) => [
+      q(Lahu Shi),
+      ],
+   q(3894) => [
+      q(Lahul Lohar),
+      ],
+   q(3895) => [
+      q(Lhomi),
+      ],
+   q(3896) => [
+      q(Lahanan),
+      ],
+   q(3897) => [
+      q(Lhokpu),
+      ],
+   q(3898) => [
+      q(Mlahso),
+      ],
+   q(3899) => [
+      q(Lo-Toga),
+      ],
+   q(3900) => [
+      q(Lahu),
+      ],
+   q(3901) => [
+      q(West-Central Limba),
+      ],
+   q(3902) => [
+      q(Likum),
+      ],
+   q(3903) => [
+      q(Hlai),
+      ],
+   q(3904) => [
+      q(Nyindrou),
+      ],
+   q(3905) => [
+      q(Likila),
+      ],
+   q(3906) => [
+      q(Limbu),
+      ],
+   q(3907) => [
+      q(Ligbi),
+      ],
+   q(3908) => [
+      q(Lihir),
+      ],
+   q(3909) => [
+      q(Ligurian),
+      ],
+   q(3910) => [
+      q(Lika),
+      ],
+   q(3911) => [
+      q(Lillooet),
+      ],
+   q(3912) => [
+      q(Liki),
+      ],
+   q(3913) => [
+      q(Sekpele),
+      ],
+   q(3914) => [
+      q(Libido),
+      ],
+   q(3915) => [
+      q(Liberian English),
+      ],
+   q(3916) => [
+      q(Lisu),
+      ],
+   q(3917) => [
+      q(Logorik),
+      ],
+   q(3918) => [
+      q(Liv),
+      ],
+   q(3919) => [
+      q(Col),
+      ],
+   q(3920) => [
+      q(Liabuku),
+      ],
+   q(3921) => [
+      q(Banda-Bambari),
+      ],
+   q(3922) => [
+      q(Libinza),
+      ],
+   q(3923) => [
+      q(Golpa),
+      ],
+   q(3924) => [
+      q(Rampi),
+      ],
+   q(3925) => [
+      q(Laiyolo),
+      ],
+   q(3926) => [
+      q(Li'o),
+      ],
+   q(3927) => [
+      q(Lampung Api),
+      ],
+   q(3928) => [
+      q(Yirandali),
+      ],
+   q(3929) => [
+      q(Yuru),
+      ],
+   q(3930) => [
+      q(Lakalei),
+      ],
+   q(3931) => [
+      q(Kabras),
+      q(Lukabaras),
+      ],
+   q(3932) => [
+      q(Kucong),
+      ],
+   q(3933) => [
+      q(Lakonde),
+      ],
+   q(3934) => [
+      q(Kenyi),
+      ],
+   q(3935) => [
+      q(Lakha),
+      ],
+   q(3936) => [
+      q(Laki),
+      ],
+   q(3937) => [
+      q(Remun),
+      ],
+   q(3938) => [
+      q(Laeko-Libuat),
+      ],
+   q(3939) => [
+      q(Kalaamaya),
+      ],
+   q(3940) => [
+      q(Lakon),
+      q(Vure),
+      ],
+   q(3941) => [
+      q(Khayo),
+      q(Olukhayo),
+      ],
+   q(3942) => [
+      q(Pari),
+      ],
+   q(3943) => [
+      q(Kisa),
+      q(Olushisa),
+      ],
+   q(3944) => [
+      q(Lakota),
+      ],
+   q(3945) => [
+      q(Kungkari),
+      ],
+   q(3946) => [
+      q(Lokoya),
+      ],
+   q(3947) => [
+      q(Lala-Roba),
+      ],
+   q(3948) => [
+      q(Lolo),
+      ],
+   q(3949) => [
+      q(Lele (Guinea)),
+      ],
+   q(3950) => [
+      q(Ladin),
+      ],
+   q(3951) => [
+      q(Lele (Papua New Guinea)),
+      ],
+   q(3952) => [
+      q(Hermit),
+      ],
+   q(3953) => [
+      q(Lole),
+      ],
+   q(3954) => [
+      q(Lamu),
+      ],
+   q(3955) => [
+      q(Teke-Laali),
+      ],
+   q(3956) => [
+      q(Ladji Ladji),
+      ],
+   q(3957) => [
+      q(Lelak),
+      ],
+   q(3958) => [
+      q(Lilau),
+      ],
+   q(3959) => [
+      q(Lasalimu),
+      ],
+   q(3960) => [
+      q(Lele (Chad)),
+      ],
+   q(3961) => [
+      q(Khlor),
+      ],
+   q(3962) => [
+      q(North Efate),
+      ],
+   q(3963) => [
+      q(Lolak),
+      ],
+   q(3964) => [
+      q(Lithuanian Sign Language),
+      ],
+   q(3965) => [
+      q(Lau),
+      ],
+   q(3966) => [
+      q(Lauan),
+      ],
+   q(3967) => [
+      q(East Limba),
+      ],
+   q(3968) => [
+      q(Merei),
+      ],
+   q(3969) => [
+      q(Limilngan),
+      ],
+   q(3970) => [
+      q(Lumun),
+      ],
+   q(3971) => [
+      q(Peve),
+      ],
+   q(3972) => [
+      q(South Lembata),
+      ],
+   q(3973) => [
+      q(Lamogai),
+      ],
+   q(3974) => [
+      q(Lambichhong),
+      ],
+   q(3975) => [
+      q(Lombi),
+      ],
+   q(3976) => [
+      q(West Lembata),
+      ],
+   q(3977) => [
+      q(Lamkang),
+      ],
+   q(3978) => [
+      q(Hano),
+      ],
+   q(3979) => [
+      q(Lambadi),
+      ],
+   q(3980) => [
+      q(Lombard),
+      ],
+   q(3981) => [
+      q(Limbum),
+      ],
+   q(3982) => [
+      q(Lamatuka),
+      ],
+   q(3983) => [
+      q(Lamalera),
+      ],
+   q(3984) => [
+      q(Lamenu),
+      ],
+   q(3985) => [
+      q(Lomaiviti),
+      ],
+   q(3986) => [
+      q(Lake Miwok),
+      ],
+   q(3987) => [
+      q(Laimbue),
+      ],
+   q(3988) => [
+      q(Lamboya),
+      ],
+   q(3989) => [
+      q(Lumbee),
+      ],
+   q(3990) => [
+      q(Langbashe),
+      ],
+   q(3991) => [
+      q(Mbalanhu),
+      ],
+   q(3992) => [
+      q(Lundayeh),
+      q(Lun Bawang),
+      ],
+   q(3993) => [
+      q(Langobardic),
+      ],
+   q(3994) => [
+      q(Lanoh),
+      ],
+   q(3995) => [
+      q(Daantanai'),
+      ],
+   q(3996) => [
+      q(Leningitij),
+      ],
+   q(3997) => [
+      q(South Central Banda),
+      ],
+   q(3998) => [
+      q(Langam),
+      ],
+   q(3999) => [
+      q(Lorediakarkar),
+      ],
+   q(4000) => [
+      q(Lango (Sudan)),
+      ],
+   q(4001) => [
+      q(Lamnso'),
+      ],
+   q(4002) => [
+      q(Longuda),
+      ],
+   q(4003) => [
+      q(Lanima),
+      ],
+   q(4004) => [
+      q(Lonzo),
+      ],
+   q(4005) => [
+      q(Loloda),
+      ],
+   q(4006) => [
+      q(Lobi),
+      ],
+   q(4007) => [
+      q(Inonhan),
+      ],
+   q(4008) => [
+      q(Saluan),
+      ],
+   q(4009) => [
+      q(Logol),
+      ],
+   q(4010) => [
+      q(Logo),
+      ],
+   q(4011) => [
+      q(Narim),
+      ],
+   q(4012) => [
+      q(Loma (Cote d'Ivoire)),
+      ],
+   q(4013) => [
+      q(Lou),
+      ],
+   q(4014) => [
+      q(Loko),
+      ],
+   q(4015) => [
+      q(Loma (Liberia)),
+      ],
+   q(4016) => [
+      q(Malawi Lomwe),
+      ],
+   q(4017) => [
+      q(Lombo),
+      ],
+   q(4018) => [
+      q(Lopa),
+      ],
+   q(4019) => [
+      q(Lobala),
+      ],
+   q(4020) => [
+      q(Teen),
+      ],
+   q(4021) => [
+      q(Loniu),
+      ],
+   q(4022) => [
+      q(Otuho),
+      ],
+   q(4023) => [
+      q(Louisiana Creole),
+      ],
+   q(4024) => [
+      q(Lopi),
+      ],
+   q(4025) => [
+      q(Tampias Lobu),
+      ],
+   q(4026) => [
+      q(Loun),
+      ],
+   q(4027) => [
+      q(Loke),
+      ],
+   q(4028) => [
+      q(Lelepa),
+      ],
+   q(4029) => [
+      q(Lepki),
+      ],
+   q(4030) => [
+      q(Long Phuri Naga),
+      ],
+   q(4031) => [
+      q(Lipo),
+      ],
+   q(4032) => [
+      q(Lopit),
+      ],
+   q(4033) => [
+      q(Rara Bakati'),
+      ],
+   q(4034) => [
+      q(Northern Luri),
+      ],
+   q(4035) => [
+      q(Laurentian),
+      ],
+   q(4036) => [
+      q(Laragia),
+      ],
+   q(4037) => [
+      q(Marachi),
+      q(Olumarachi),
+      ],
+   q(4038) => [
+      q(Loarki),
+      ],
+   q(4039) => [
+      q(Lari),
+      ],
+   q(4040) => [
+      q(Marama),
+      q(Olumarama),
+      ],
+   q(4041) => [
+      q(Lorang),
+      ],
+   q(4042) => [
+      q(Laro),
+      ],
+   q(4043) => [
+      q(Southern Yamphu),
+      ],
+   q(4044) => [
+      q(Larantuka Malay),
+      ],
+   q(4045) => [
+      q(Larevat),
+      ],
+   q(4046) => [
+      q(Lemerig),
+      ],
+   q(4047) => [
+      q(Lasgerdi),
+      ],
+   q(4048) => [
+      q(Lishana Deni),
+      ],
+   q(4049) => [
+      q(Lusengo),
+      ],
+   q(4050) => [
+      q(Lyons Sign Language),
+      ],
+   q(4051) => [
+      q(Lish),
+      ],
+   q(4052) => [
+      q(Lashi),
+      ],
+   q(4053) => [
+      q(Latvian Sign Language),
+      ],
+   q(4054) => [
+      q(Saamia),
+      q(Olusamia),
+      ],
+   q(4055) => [
+      q(Laos Sign Language),
+      ],
+   q(4056) => [
+      q(Panamanian Sign Language),
+      q(Lengua de Senas Panamenas),
+      ],
+   q(4057) => [
+      q(Aruop),
+      ],
+   q(4058) => [
+      q(Lasi),
+      ],
+   q(4059) => [
+      q(Trinidad and Tobago Sign Language),
+      ],
+   q(4060) => [
+      q(Mauritian Sign Language),
+      ],
+   q(4061) => [
+      q(Late Middle Chinese),
+      ],
+   q(4062) => [
+      q(Latgalian),
+      ],
+   q(4063) => [
+      q(Thur),
+      ],
+   q(4064) => [
+      q(Leti (Indonesia)),
+      ],
+   q(4065) => [
+      q(Latunde),
+      ],
+   q(4066) => [
+      q(Tsotso),
+      q(Olutsotso),
+      ],
+   q(4067) => [
+      q(Tachoni),
+      q(Lutachoni),
+      ],
+   q(4068) => [
+      q(Latu),
+      ],
+   q(4069) => [
+      q(Aringa),
+      ],
+   q(4070) => [
+      q(Ludian),
+      ],
+   q(4071) => [
+      q(Luvale),
+      ],
+   q(4072) => [
+      q(Laua),
+      ],
+   q(4073) => [
+      q(Luna),
+      ],
+   q(4074) => [
+      q(Lunanakha),
+      ],
+   q(4075) => [
+      q(Olu'bo),
+      ],
+   q(4076) => [
+      q(Luimbi),
+      ],
+   q(4077) => [
+      q(Lumbu),
+      ],
+   q(4078) => [
+      q(Lucumi),
+      ],
+   q(4079) => [
+      q(Laura),
+      ],
+   q(4080) => [
+      q(Lushootseed),
+      ],
+   q(4081) => [
+      q(Lumba-Yakkha),
+      ],
+   q(4082) => [
+      q(Luwati),
+      ],
+   q(4083) => [
+      q(Luo (Cameroon)),
+      ],
+   q(4084) => [
+      q(Luyia),
+      q(Oluluyia),
+      ],
+   q(4085) => [
+      q(Southern Luri),
+      ],
+   q(4086) => [
+      q(Maku'a),
+      ],
+   q(4087) => [
+      q(Lavukaleve),
+      ],
+   q(4088) => [
+      q(Standard Latvian),
+      ],
+   q(4089) => [
+      q(Levuka),
+      ],
+   q(4090) => [
+      q(Lwalu),
+      ],
+   q(4091) => [
+      q(Lewo Eleng),
+      ],
+   q(4092) => [
+      q(Wanga),
+      q(Oluwanga),
+      ],
+   q(4093) => [
+      q(White Lachi),
+      ],
+   q(4094) => [
+      q(Eastern Lawa),
+      ],
+   q(4095) => [
+      q(Laomian),
+      ],
+   q(4096) => [
+      q(Luwo),
+      ],
+   q(4097) => [
+      q(Lewotobi),
+      ],
+   q(4098) => [
+      q(Lawu),
+      ],
+   q(4099) => [
+      q(Lewo),
+      ],
+   q(4100) => [
+      q(Layakha),
+      ],
+   q(4101) => [
+      q(Lyngngam),
+      ],
+   q(4102) => [
+      q(Luyana),
+      ],
+   q(4103) => [
+      q(Literary Chinese),
+      ],
+   q(4104) => [
+      q(Litzlitz),
+      ],
+   q(4105) => [
+      q(Leinong Naga),
+      ],
+   q(4106) => [
+      q(Laz),
+      ],
+   q(4107) => [
+      q(San Jeronimo Tecoatl Mazatec),
+      ],
+   q(4108) => [
+      q(Yutanduchi Mixtec),
+      ],
+   q(4109) => [
+      q(Bo-Rukul),
+      ],
+   q(4110) => [
+      q(Mafa),
+      ],
+   q(4111) => [
+      q(Jalapa De Diaz Mazatec),
+      ],
+   q(4112) => [
+      q(Mam),
+      ],
+   q(4113) => [
+      q(Chiquihuitlan Mazatec),
+      ],
+   q(4114) => [
+      q(San Francisco Matlatzinca),
+      ],
+   q(4115) => [
+      q(Huautla Mazatec),
+      ],
+   q(4116) => [
+      q(Satere-Mawe),
+      ],
+   q(4117) => [
+      q(Mampruli),
+      ],
+   q(4118) => [
+      q(North Moluccan Malay),
+      ],
+   q(4119) => [
+      q(Central Mazahua),
+      ],
+   q(4120) => [
+      q(Higaonon),
+      ],
+   q(4121) => [
+      q(Western Bukidnon Manobo),
+      ],
+   q(4122) => [
+      q(Macushi),
+      ],
+   q(4123) => [
+      q(Dibabawon Manobo),
+      ],
+   q(4124) => [
+      q(Molale),
+      ],
+   q(4125) => [
+      q(Baba Malay),
+      ],
+   q(4126) => [
+      q(Mangseng),
+      ],
+   q(4127) => [
+      q(Ilianen Manobo),
+      ],
+   q(4128) => [
+      q(Nadeb),
+      ],
+   q(4129) => [
+      q(Malol),
+      ],
+   q(4130) => [
+      q(Maxakali),
+      ],
+   q(4131) => [
+      q(Ombamba),
+      ],
+   q(4132) => [
+      q(Macaguan),
+      ],
+   q(4133) => [
+      q(Mbo (Cameroon)),
+      ],
+   q(4134) => [
+      q(Malayo),
+      ],
+   q(4135) => [
+      q(Maisin),
+      ],
+   q(4136) => [
+      q(Nukak Maku),
+      ],
+   q(4137) => [
+      q(Sarangani Manobo),
+      ],
+   q(4138) => [
+      q(Matigsalug Manobo),
+      ],
+   q(4139) => [
+      q(Mbula-Bwazza),
+      ],
+   q(4140) => [
+      q(Mbulungish),
+      ],
+   q(4141) => [
+      q(Maring),
+      ],
+   q(4142) => [
+      q(Mari (East Sepik Province)),
+      ],
+   q(4143) => [
+      q(Memoni),
+      ],
+   q(4144) => [
+      q(Amoltepec Mixtec),
+      ],
+   q(4145) => [
+      q(Maca),
+      ],
+   q(4146) => [
+      q(Machiguenga),
+      ],
+   q(4147) => [
+      q(Bitur),
+      ],
+   q(4148) => [
+      q(Sharanahua),
+      ],
+   q(4149) => [
+      q(Itundujia Mixtec),
+      ],
+   q(4150) => [
+      q(Matses),
+      ],
+   q(4151) => [
+      q(Mapoyo),
+      ],
+   q(4152) => [
+      q(Maquiritari),
+      ],
+   q(4153) => [
+      q(Mese),
+      ],
+   q(4154) => [
+      q(Mvanip),
+      ],
+   q(4155) => [
+      q(Mbunda),
+      ],
+   q(4156) => [
+      q(Macaguaje),
+      ],
+   q(4157) => [
+      q(Malaccan Creole Portuguese),
+      ],
+   q(4158) => [
+      q(Masana),
+      ],
+   q(4159) => [
+      q(Coatlan Mixe),
+      ],
+   q(4160) => [
+      q(Makaa),
+      ],
+   q(4161) => [
+      q(Ese),
+      ],
+   q(4162) => [
+      q(Menya),
+      ],
+   q(4163) => [
+      q(Mambai),
+      ],
+   q(4164) => [
+      q(Mengisa),
+      ],
+   q(4165) => [
+      q(Cameroon Mambila),
+      ],
+   q(4166) => [
+      q(Minanibai),
+      ],
+   q(4167) => [
+      q(Mawa (Chad)),
+      ],
+   q(4168) => [
+      q(Mpiemo),
+      ],
+   q(4169) => [
+      q(South Watut),
+      ],
+   q(4170) => [
+      q(Mawan),
+      ],
+   q(4171) => [
+      q(Mada (Nigeria)),
+      ],
+   q(4172) => [
+      q(Morigi),
+      ],
+   q(4173) => [
+      q(Male (Papua New Guinea)),
+      ],
+   q(4174) => [
+      q(Mbum),
+      ],
+   q(4175) => [
+      q(Maba (Chad)),
+      ],
+   q(4176) => [
+      q(Massalat),
+      ],
+   q(4177) => [
+      q(Maguindanaon),
+      ],
+   q(4178) => [
+      q(Mamvu),
+      ],
+   q(4179) => [
+      q(Mangbetu),
+      ],
+   q(4180) => [
+      q(Mangbutu),
+      ],
+   q(4181) => [
+      q(Maltese Sign Language),
+      ],
+   q(4182) => [
+      q(Mayogo),
+      ],
+   q(4183) => [
+      q(Mbati),
+      ],
+   q(4184) => [
+      q(Mbala),
+      ],
+   q(4185) => [
+      q(Mbole),
+      ],
+   q(4186) => [
+      q(Maria (Papua New Guinea)),
+      ],
+   q(4187) => [
+      q(Mbere),
+      ],
+   q(4188) => [
+      q(Mboko),
+      ],
+   q(4189) => [
+      q(Santa Lucia Monteverde Mixtec),
+      ],
+   q(4190) => [
+      q(Mbosi),
+      ],
+   q(4191) => [
+      q(Dizin),
+      ],
+   q(4192) => [
+      q(Male (Ethiopia)),
+      ],
+   q(4193) => [
+      q(Surui Do Para),
+      ],
+   q(4194) => [
+      q(Menka),
+      ],
+   q(4195) => [
+      q(Ikobi),
+      ],
+   q(4196) => [
+      q(Mara),
+      ],
+   q(4197) => [
+      q(Melpa),
+      ],
+   q(4198) => [
+      q(Mengen),
+      ],
+   q(4199) => [
+      q(Megam),
+      ],
+   q(4200) => [
+      q(Southwestern Tlaxiaco Mixtec),
+      ],
+   q(4201) => [
+      q(Midob),
+      ],
+   q(4202) => [
+      q(Meyah),
+      ],
+   q(4203) => [
+      q(Mekeo),
+      ],
+   q(4204) => [
+      q(Central Melanau),
+      ],
+   q(4205) => [
+      q(Mangala),
+      ],
+   q(4206) => [
+      q(Kedah Malay),
+      ],
+   q(4207) => [
+      q(Miriwung),
+      ],
+   q(4208) => [
+      q(Merey),
+      ],
+   q(4209) => [
+      q(Meru),
+      ],
+   q(4210) => [
+      q(Masmaje),
+      ],
+   q(4211) => [
+      q(Mato),
+      ],
+   q(4212) => [
+      q(Motu),
+      ],
+   q(4213) => [
+      q(Mano),
+      ],
+   q(4214) => [
+      q(Maaka),
+      ],
+   q(4215) => [
+      q(Hassaniyya),
+      ],
+   q(4216) => [
+      q(Menominee),
+      ],
+   q(4217) => [
+      q(Pattani Malay),
+      ],
+   q(4218) => [
+      q(Bangka),
+      ],
+   q(4219) => [
+      q(Mba),
+      ],
+   q(4220) => [
+      q(Mendankwe-Nkwen),
+      ],
+   q(4221) => [
+      q(Morisyen),
+      ],
+   q(4222) => [
+      q(Naki),
+      ],
+   q(4223) => [
+      q(Mogofin),
+      ],
+   q(4224) => [
+      q(Matal),
+      ],
+   q(4225) => [
+      q(Wandala),
+      ],
+   q(4226) => [
+      q(Mefele),
+      ],
+   q(4227) => [
+      q(North Mofu),
+      ],
+   q(4228) => [
+      q(Putai),
+      ],
+   q(4229) => [
+      q(Marghi South),
+      ],
+   q(4230) => [
+      q(Cross River Mbembe),
+      ],
+   q(4231) => [
+      q(Mbe),
+      ],
+   q(4232) => [
+      q(Makassar Malay),
+      ],
+   q(4233) => [
+      q(Moba),
+      ],
+   q(4234) => [
+      q(Marithiel),
+      ],
+   q(4235) => [
+      q(Mexican Sign Language),
+      ],
+   q(4236) => [
+      q(Mokerang),
+      ],
+   q(4237) => [
+      q(Mbwela),
+      ],
+   q(4238) => [
+      q(Mandjak),
+      ],
+   q(4239) => [
+      q(Mulaha),
+      ],
+   q(4240) => [
+      q(Melo),
+      ],
+   q(4241) => [
+      q(Mayo),
+      ],
+   q(4242) => [
+      q(Mabaan),
+      ],
+   q(4243) => [
+      q(Mararit),
+      ],
+   q(4244) => [
+      q(Morokodo),
+      ],
+   q(4245) => [
+      q(Moru),
+      ],
+   q(4246) => [
+      q(Mango),
+      ],
+   q(4247) => [
+      q(Maklew),
+      ],
+   q(4248) => [
+      q(Mpumpong),
+      ],
+   q(4249) => [
+      q(Makhuwa-Meetto),
+      ],
+   q(4250) => [
+      q(Lijili),
+      ],
+   q(4251) => [
+      q(Abureni),
+      ],
+   q(4252) => [
+      q(Mawes),
+      ],
+   q(4253) => [
+      q(Maleu-Kilenge),
+      ],
+   q(4254) => [
+      q(Mambae),
+      ],
+   q(4255) => [
+      q(Mbangi),
+      ],
+   q(4256) => [
+      q(Meta'),
+      ],
+   q(4257) => [
+      q(Eastern Magar),
+      ],
+   q(4258) => [
+      q(Malila),
+      ],
+   q(4259) => [
+      q(Mambwe-Lungu),
+      ],
+   q(4260) => [
+      q(Manda (Tanzania)),
+      ],
+   q(4261) => [
+      q(Mongol),
+      ],
+   q(4262) => [
+      q(Mailu),
+      ],
+   q(4263) => [
+      q(Matengo),
+      ],
+   q(4264) => [
+      q(Matumbi),
+      ],
+   q(4265) => [
+      q(Mbunga),
+      ],
+   q(4266) => [
+      q(Mbugwe),
+      ],
+   q(4267) => [
+      q(Manda (India)),
+      ],
+   q(4268) => [
+      q(Mahongwe),
+      ],
+   q(4269) => [
+      q(Mocho),
+      ],
+   q(4270) => [
+      q(Mbugu),
+      ],
+   q(4271) => [
+      q(Besisi),
+      q(Mah Meri),
+      ],
+   q(4272) => [
+      q(Mamaa),
+      ],
+   q(4273) => [
+      q(Margu),
+      ],
+   q(4274) => [
+      q(Ma'di),
+      ],
+   q(4275) => [
+      q(Mogholi),
+      ],
+   q(4276) => [
+      q(Mungaka),
+      ],
+   q(4277) => [
+      q(Mauwake),
+      ],
+   q(4278) => [
+      q(Makhuwa-Moniga),
+      ],
+   q(4279) => [
+      q(Mocheno),
+      ],
+   q(4280) => [
+      q(Mashi (Zambia)),
+      ],
+   q(4281) => [
+      q(Balinese Malay),
+      ],
+   q(4282) => [
+      q(Mandan),
+      ],
+   q(4283) => [
+      q(Eastern Mari),
+      ],
+   q(4284) => [
+      q(Buru (Indonesia)),
+      ],
+   q(4285) => [
+      q(Mandahuaca),
+      ],
+   q(4286) => [
+      q(Digaro-Mishmi),
+      q(Darang Deng),
+      ],
+   q(4287) => [
+      q(Mbukushu),
+      ],
+   q(4288) => [
+      q(Maru),
+      q(Lhaovo),
+      ],
+   q(4289) => [
+      q(Ma'anyan),
+      ],
+   q(4290) => [
+      q(Mor (Mor Islands)),
+      ],
+   q(4291) => [
+      q(Miami),
+      ],
+   q(4292) => [
+      q(Atatlahuca Mixtec),
+      ],
+   q(4293) => [
+      q(Mandaic),
+      ],
+   q(4294) => [
+      q(Ocotepec Mixtec),
+      ],
+   q(4295) => [
+      q(Mofu-Gudur),
+      ],
+   q(4296) => [
+      q(San Miguel El Grande Mixtec),
+      ],
+   q(4297) => [
+      q(Chayuco Mixtec),
+      ],
+   q(4298) => [
+      q(Chigmecatitlan Mixtec),
+      ],
+   q(4299) => [
+      q(Abar),
+      q(Mungbam),
+      ],
+   q(4300) => [
+      q(Mikasuki),
+      ],
+   q(4301) => [
+      q(Penoles Mixtec),
+      ],
+   q(4302) => [
+      q(Alacatlatzala Mixtec),
+      ],
+   q(4303) => [
+      q(Pinotepa Nacional Mixtec),
+      ],
+   q(4304) => [
+      q(Apasco-Apoala Mixtec),
+      ],
+   q(4305) => [
+      q(Miskito),
+      ],
+   q(4306) => [
+      q(Isthmus Mixe),
+      ],
+   q(4307) => [
+      q(Southern Puebla Mixtec),
+      ],
+   q(4308) => [
+      q(Cacaloxtepec Mixtec),
+      ],
+   q(4309) => [
+      q(Akoye),
+      ],
+   q(4310) => [
+      q(Mixtepec Mixtec),
+      ],
+   q(4311) => [
+      q(Ayutla Mixtec),
+      ],
+   q(4312) => [
+      q(Coatzospan Mixtec),
+      ],
+   q(4313) => [
+      q(Makalero),
+      ],
+   q(4314) => [
+      q(San Juan Colorado Mixtec),
+      ],
+   q(4315) => [
+      q(Northwest Maidu),
+      ],
+   q(4316) => [
+      q(Muskum),
+      ],
+   q(4317) => [
+      q(Tu),
+      ],
+   q(4318) => [
+      q(Mwera (Nyasa)),
+      ],
+   q(4319) => [
+      q(Kim Mun),
+      ],
+   q(4320) => [
+      q(Mawak),
+      ],
+   q(4321) => [
+      q(Matukar),
+      ],
+   q(4322) => [
+      q(Mandeali),
+      ],
+   q(4323) => [
+      q(Medebur),
+      ],
+   q(4324) => [
+      q(Ma (Papua New Guinea)),
+      ],
+   q(4325) => [
+      q(Malankuravan),
+      ],
+   q(4326) => [
+      q(Malapandaram),
+      ],
+   q(4327) => [
+      q(Malaryan),
+      ],
+   q(4328) => [
+      q(Malavedan),
+      ],
+   q(4329) => [
+      q(Miship),
+      ],
+   q(4330) => [
+      q(Sauria Paharia),
+      ],
+   q(4331) => [
+      q(Manna-Dora),
+      ],
+   q(4332) => [
+      q(Mannan),
+      ],
+   q(4333) => [
+      q(Karbi),
+      ],
+   q(4334) => [
+      q(Mahali),
+      ],
+   q(4335) => [
+      q(Mahican),
+      ],
+   q(4336) => [
+      q(Majhi),
+      ],
+   q(4337) => [
+      q(Mbre),
+      ],
+   q(4338) => [
+      q(Mal Paharia),
+      ],
+   q(4339) => [
+      q(Siliput),
+      ],
+   q(4340) => [
+      q(Mawchi),
+      ],
+   q(4341) => [
+      q(Miya),
+      ],
+   q(4342) => [
+      q(Mak (China)),
+      ],
+   q(4343) => [
+      q(Dhatki),
+      ],
+   q(4344) => [
+      q(Mokilese),
+      ],
+   q(4345) => [
+      q(Byep),
+      ],
+   q(4346) => [
+      q(Mokole),
+      ],
+   q(4347) => [
+      q(Moklen),
+      ],
+   q(4348) => [
+      q(Kupang Malay),
+      ],
+   q(4349) => [
+      q(Mingang Doso),
+      ],
+   q(4350) => [
+      q(Moikodi),
+      ],
+   q(4351) => [
+      q(Bay Miwok),
+      ],
+   q(4352) => [
+      q(Malas),
+      ],
+   q(4353) => [
+      q(Silacayoapan Mixtec),
+      ],
+   q(4354) => [
+      q(Vamale),
+      ],
+   q(4355) => [
+      q(Konyanka Maninka),
+      ],
+   q(4356) => [
+      q(Mafea),
+      ],
+   q(4357) => [
+      q(Kituba (Congo)),
+      ],
+   q(4358) => [
+      q(Kinamiging Manobo),
+      ],
+   q(4359) => [
+      q(East Makian),
+      ],
+   q(4360) => [
+      q(Makasae),
+      ],
+   q(4361) => [
+      q(Malo),
+      ],
+   q(4362) => [
+      q(Mbule),
+      ],
+   q(4363) => [
+      q(Cao Lan),
+      ],
+   q(4364) => [
+      q(Manambu),
+      ],
+   q(4365) => [
+      q(Mal),
+      ],
+   q(4366) => [
+      q(Mape),
+      ],
+   q(4367) => [
+      q(Malimpung),
+      ],
+   q(4368) => [
+      q(Miltu),
+      ],
+   q(4369) => [
+      q(Ilwana),
+      q(Kiwilwana),
+      ],
+   q(4370) => [
+      q(Malua Bay),
+      ],
+   q(4371) => [
+      q(Mulam),
+      ],
+   q(4372) => [
+      q(Malango),
+      ],
+   q(4373) => [
+      q(Mlomp),
+      ],
+   q(4374) => [
+      q(Bargam),
+      ],
+   q(4375) => [
+      q(Western Maninkakan),
+      ],
+   q(4376) => [
+      q(Vame),
+      ],
+   q(4377) => [
+      q(Masalit),
+      ],
+   q(4378) => [
+      q(To'abaita),
+      ],
+   q(4379) => [
+      q(Motlav),
+      q(Mwotlap),
+      ],
+   q(4380) => [
+      q(Moloko),
+      ],
+   q(4381) => [
+      q(Malfaxal),
+      q(Naha'ai),
+      ],
+   q(4382) => [
+      q(Malaynon),
+      ],
+   q(4383) => [
+      q(Mama),
+      ],
+   q(4384) => [
+      q(Momina),
+      ],
+   q(4385) => [
+      q(Michoacan Mazahua),
+      ],
+   q(4386) => [
+      q(Maonan),
+      ],
+   q(4387) => [
+      q(Mae),
+      ],
+   q(4388) => [
+      q(Mundat),
+      ],
+   q(4389) => [
+      q(North Ambrym),
+      ],
+   q(4390) => [
+      q(Mehinaku),
+      ],
+   q(4391) => [
+      q(Musar),
+      ],
+   q(4392) => [
+      q(Majhwar),
+      ],
+   q(4393) => [
+      q(Mukha-Dora),
+      ],
+   q(4394) => [
+      q(Man Met),
+      ],
+   q(4395) => [
+      q(Maii),
+      ],
+   q(4396) => [
+      q(Mamanwa),
+      ],
+   q(4397) => [
+      q(Mangga Buang),
+      ],
+   q(4398) => [
+      q(Siawi),
+      ],
+   q(4399) => [
+      q(Musak),
+      ],
+   q(4400) => [
+      q(Western Xiangxi Miao),
+      ],
+   q(4401) => [
+      q(Malalamai),
+      ],
+   q(4402) => [
+      q(Mmaala),
+      ],
+   q(4403) => [
+      q(Miriti),
+      ],
+   q(4404) => [
+      q(Emae),
+      ],
+   q(4405) => [
+      q(Madak),
+      ],
+   q(4406) => [
+      q(Migaama),
+      ],
+   q(4407) => [
+      q(Mabaale),
+      ],
+   q(4408) => [
+      q(Mbula),
+      ],
+   q(4409) => [
+      q(Muna),
+      ],
+   q(4410) => [
+      q(Monde),
+      ],
+   q(4411) => [
+      q(Naba),
+      ],
+   q(4412) => [
+      q(Mundani),
+      ],
+   q(4413) => [
+      q(Eastern Mnong),
+      ],
+   q(4414) => [
+      q(Mono (Democratic Republic of Congo)),
+      ],
+   q(4415) => [
+      q(Munji),
+      ],
+   q(4416) => [
+      q(Mandinka),
+      ],
+   q(4417) => [
+      q(Tiale),
+      ],
+   q(4418) => [
+      q(Mapena),
+      ],
+   q(4419) => [
+      q(Southern Mnong),
+      ],
+   q(4420) => [
+      q(Min Bei Chinese),
+      ],
+   q(4421) => [
+      q(Minriq),
+      ],
+   q(4422) => [
+      q(Mono (USA)),
+      ],
+   q(4423) => [
+      q(Mansi),
+      ],
+   q(4424) => [
+      q(Mer),
+      ],
+   q(4425) => [
+      q(Rennell-Bellona),
+      ],
+   q(4426) => [
+      q(Mon),
+      ],
+   q(4427) => [
+      q(Manikion),
+      ],
+   q(4428) => [
+      q(Manyawa),
+      ],
+   q(4429) => [
+      q(Moni),
+      ],
+   q(4430) => [
+      q(Mwan),
+      ],
+   q(4431) => [
+      q(Mocovi),
+      ],
+   q(4432) => [
+      q(Mobilian),
+      ],
+   q(4433) => [
+      q(Montagnais),
+      ],
+   q(4434) => [
+      q(Mongondow),
+      ],
+   q(4435) => [
+      q(Mboi),
+      ],
+   q(4436) => [
+      q(Monzombo),
+      ],
+   q(4437) => [
+      q(Morori),
+      ],
+   q(4438) => [
+      q(Mangue),
+      ],
+   q(4439) => [
+      q(Monom),
+      ],
+   q(4440) => [
+      q(Mopan Maya),
+      ],
+   q(4441) => [
+      q(Mor (Bomberai Peninsula)),
+      ],
+   q(4442) => [
+      q(Moro),
+      ],
+   q(4443) => [
+      q(Mogum),
+      ],
+   q(4444) => [
+      q(Mohave),
+      ],
+   q(4445) => [
+      q(Moi (Congo)),
+      ],
+   q(4446) => [
+      q(Molima),
+      ],
+   q(4447) => [
+      q(Shekkacho),
+      ],
+   q(4448) => [
+      q(Mukulu),
+      q(Gergiko),
+      ],
+   q(4449) => [
+      q(Mpoto),
+      ],
+   q(4450) => [
+      q(Mullukmulluk),
+      ],
+   q(4451) => [
+      q(Mangarayi),
+      ],
+   q(4452) => [
+      q(Machinere),
+      ],
+   q(4453) => [
+      q(Majang),
+      ],
+   q(4454) => [
+      q(Marba),
+      ],
+   q(4455) => [
+      q(Maung),
+      ],
+   q(4456) => [
+      q(Mpade),
+      ],
+   q(4457) => [
+      q(Martu Wangka),
+      ],
+   q(4458) => [
+      q(Mbara (Chad)),
+      ],
+   q(4459) => [
+      q(Middle Watut),
+      ],
+   q(4460) => [
+      q(Yosondua Mixtec),
+      ],
+   q(4461) => [
+      q(Mindiri),
+      ],
+   q(4462) => [
+      q(Miu),
+      ],
+   q(4463) => [
+      q(Migabac),
+      ],
+   q(4464) => [
+      q(Matis),
+      ],
+   q(4465) => [
+      q(Vangunu),
+      ],
+   q(4466) => [
+      q(Dadibi),
+      ],
+   q(4467) => [
+      q(Mian),
+      ],
+   q(4468) => [
+      q(Makurap),
+      ],
+   q(4469) => [
+      q(Mungkip),
+      ],
+   q(4470) => [
+      q(Mapidian),
+      ],
+   q(4471) => [
+      q(Misima-Panaeati),
+      ],
+   q(4472) => [
+      q(Mapia),
+      ],
+   q(4473) => [
+      q(Mpi),
+      ],
+   q(4474) => [
+      q(Maba (Indonesia)),
+      ],
+   q(4475) => [
+      q(Mbuko),
+      ],
+   q(4476) => [
+      q(Mangole),
+      ],
+   q(4477) => [
+      q(Matepi),
+      ],
+   q(4478) => [
+      q(Momuna),
+      ],
+   q(4479) => [
+      q(Kota Bangun Kutai Malay),
+      ],
+   q(4480) => [
+      q(Tlazoyaltepec Mixtec),
+      ],
+   q(4481) => [
+      q(Mariri),
+      ],
+   q(4482) => [
+      q(Mamasa),
+      ],
+   q(4483) => [
+      q(Rajah Kabunsuwan Manobo),
+      ],
+   q(4484) => [
+      q(Mbelime),
+      ],
+   q(4485) => [
+      q(South Marquesan),
+      ],
+   q(4486) => [
+      q(Moronene),
+      ],
+   q(4487) => [
+      q(Modole),
+      ],
+   q(4488) => [
+      q(Manipa),
+      ],
+   q(4489) => [
+      q(Minokok),
+      ],
+   q(4490) => [
+      q(Mander),
+      ],
+   q(4491) => [
+      q(West Makian),
+      ],
+   q(4492) => [
+      q(Mok),
+      ],
+   q(4493) => [
+      q(Mandari),
+      ],
+   q(4494) => [
+      q(Mosimo),
+      ],
+   q(4495) => [
+      q(Murupi),
+      ],
+   q(4496) => [
+      q(Mamuju),
+      ],
+   q(4497) => [
+      q(Manggarai),
+      ],
+   q(4498) => [
+      q(Pano),
+      ],
+   q(4499) => [
+      q(Mlabri),
+      ],
+   q(4500) => [
+      q(Marino),
+      ],
+   q(4501) => [
+      q(Maricopa),
+      ],
+   q(4502) => [
+      q(Western Magar),
+      ],
+   q(4503) => [
+      q(Martha's Vineyard Sign Language),
+      ],
+   q(4504) => [
+      q(Elseng),
+      ],
+   q(4505) => [
+      q(Mising),
+      ],
+   q(4506) => [
+      q(Mara Chin),
+      ],
+   q(4507) => [
+      q(Western Mari),
+      ],
+   q(4508) => [
+      q(Hmwaveke),
+      ],
+   q(4509) => [
+      q(Mortlockese),
+      ],
+   q(4510) => [
+      q(Merlav),
+      q(Mwerlap),
+      ],
+   q(4511) => [
+      q(Cheke Holo),
+      ],
+   q(4512) => [
+      q(Mru),
+      ],
+   q(4513) => [
+      q(Morouas),
+      ],
+   q(4514) => [
+      q(North Marquesan),
+      ],
+   q(4515) => [
+      q(Maria (India)),
+      ],
+   q(4516) => [
+      q(Maragus),
+      ],
+   q(4517) => [
+      q(Marghi Central),
+      ],
+   q(4518) => [
+      q(Mono (Cameroon)),
+      ],
+   q(4519) => [
+      q(Mangareva),
+      ],
+   q(4520) => [
+      q(Maranao),
+      ],
+   q(4521) => [
+      q(Maremgi),
+      q(Dineor),
+      ],
+   q(4522) => [
+      q(Mandaya),
+      ],
+   q(4523) => [
+      q(Marind),
+      ],
+   q(4524) => [
+      q(Masbatenyo),
+      ],
+   q(4525) => [
+      q(Sankaran Maninka),
+      ],
+   q(4526) => [
+      q(Yucatec Maya Sign Language),
+      ],
+   q(4527) => [
+      q(Musey),
+      ],
+   q(4528) => [
+      q(Mekwei),
+      ],
+   q(4529) => [
+      q(Moraid),
+      ],
+   q(4530) => [
+      q(Masikoro Malagasy),
+      ],
+   q(4531) => [
+      q(Sabah Malay),
+      ],
+   q(4532) => [
+      q(Ma (Democratic Republic of Congo)),
+      ],
+   q(4533) => [
+      q(Mansaka),
+      ],
+   q(4534) => [
+      q(Molof),
+      q(Poule),
+      ],
+   q(4535) => [
+      q(Agusan Manobo),
+      ],
+   q(4536) => [
+      q(Vures),
+      ],
+   q(4537) => [
+      q(Mombum),
+      ],
+   q(4538) => [
+      q(Maritsaua),
+      ],
+   q(4539) => [
+      q(Caac),
+      ],
+   q(4540) => [
+      q(Mongolian Sign Language),
+      ],
+   q(4541) => [
+      q(West Masela),
+      ],
+   q(4542) => [
+      q(Musom),
+      ],
+   q(4543) => [
+      q(Maslam),
+      ],
+   q(4544) => [
+      q(Mansoanka),
+      ],
+   q(4545) => [
+      q(Moresada),
+      ],
+   q(4546) => [
+      q(Aruamu),
+      ],
+   q(4547) => [
+      q(Momare),
+      ],
+   q(4548) => [
+      q(Cotabato Manobo),
+      ],
+   q(4549) => [
+      q(Anyin Morofo),
+      ],
+   q(4550) => [
+      q(Munit),
+      ],
+   q(4551) => [
+      q(Mualang),
+      ],
+   q(4552) => [
+      q(Mono (Solomon Islands)),
+      ],
+   q(4553) => [
+      q(Murik (Papua New Guinea)),
+      ],
+   q(4554) => [
+      q(Una),
+      ],
+   q(4555) => [
+      q(Munggui),
+      ],
+   q(4556) => [
+      q(Maiwa (Papua New Guinea)),
+      ],
+   q(4557) => [
+      q(Moskona),
+      ],
+   q(4558) => [
+      q(Mbe'),
+      ],
+   q(4559) => [
+      q(Montol),
+      ],
+   q(4560) => [
+      q(Mator),
+      ],
+   q(4561) => [
+      q(Matagalpa),
+      ],
+   q(4562) => [
+      q(Totontepec Mixe),
+      ],
+   q(4563) => [
+      q(Wichi Lhamtes Nocten),
+      ],
+   q(4564) => [
+      q(Muong),
+      ],
+   q(4565) => [
+      q(Mewari),
+      ],
+   q(4566) => [
+      q(Yora),
+      ],
+   q(4567) => [
+      q(Mota),
+      ],
+   q(4568) => [
+      q(Tututepec Mixtec),
+      ],
+   q(4569) => [
+      q(Asaro'o),
+      ],
+   q(4570) => [
+      q(Southern Binukidnon),
+      ],
+   q(4571) => [
+      q(Tidaa Mixtec),
+      ],
+   q(4572) => [
+      q(Nabi),
+      ],
+   q(4573) => [
+      q(Mundang),
+      ],
+   q(4574) => [
+      q(Mubi),
+      ],
+   q(4575) => [
+      q(Ajumbu),
+      ],
+   q(4576) => [
+      q(Mednyj Aleut),
+      ],
+   q(4577) => [
+      q(Media Lengua),
+      ],
+   q(4578) => [
+      q(Musgu),
+      ],
+   q(4579) => [
+      q(Mundu),
+      ],
+   q(4580) => [
+      q(Musi),
+      ],
+   q(4581) => [
+      q(Mabire),
+      ],
+   q(4582) => [
+      q(Mugom),
+      ],
+   q(4583) => [
+      q(Maiwala),
+      ],
+   q(4584) => [
+      q(Nyong),
+      ],
+   q(4585) => [
+      q(Malvi),
+      ],
+   q(4586) => [
+      q(Eastern Xiangxi Miao),
+      ],
+   q(4587) => [
+      q(Murle),
+      ],
+   q(4588) => [
+      q(Western Muria),
+      ],
+   q(4589) => [
+      q(Yaaku),
+      ],
+   q(4590) => [
+      q(Muthuvan),
+      ],
+   q(4591) => [
+      q(Bo-Ung),
+      ],
+   q(4592) => [
+      q(Muyang),
+      ],
+   q(4593) => [
+      q(Mursi),
+      ],
+   q(4594) => [
+      q(Manam),
+      ],
+   q(4595) => [
+      q(Mattole),
+      ],
+   q(4596) => [
+      q(Mamboru),
+      ],
+   q(4597) => [
+      q(Marwari (Pakistan)),
+      ],
+   q(4598) => [
+      q(Peripheral Mongolian),
+      ],
+   q(4599) => [
+      q(Yucuane Mixtec),
+      ],
+   q(4600) => [
+      q(Mulgi),
+      ],
+   q(4601) => [
+      q(Miyako),
+      ],
+   q(4602) => [
+      q(Mekmek),
+      ],
+   q(4603) => [
+      q(Mbara (Australia)),
+      ],
+   q(4604) => [
+      q(Muya),
+      ],
+   q(4605) => [
+      q(Minaveha),
+      ],
+   q(4606) => [
+      q(Marovo),
+      ],
+   q(4607) => [
+      q(Duri),
+      ],
+   q(4608) => [
+      q(Moere),
+      ],
+   q(4609) => [
+      q(Marau),
+      ],
+   q(4610) => [
+      q(Massep),
+      ],
+   q(4611) => [
+      q(Mpotovoro),
+      ],
+   q(4612) => [
+      q(Marfa),
+      ],
+   q(4613) => [
+      q(Tagal Murut),
+      ],
+   q(4614) => [
+      q(Machinga),
+      ],
+   q(4615) => [
+      q(Meoswar),
+      ],
+   q(4616) => [
+      q(Indus Kohistani),
+      ],
+   q(4617) => [
+      q(Mesqan),
+      ],
+   q(4618) => [
+      q(Mwatebu),
+      ],
+   q(4619) => [
+      q(Juwal),
+      ],
+   q(4620) => [
+      q(Are),
+      ],
+   q(4621) => [
+      q(Mwera (Chimwera)),
+      ],
+   q(4622) => [
+      q(Murrinh-Patha),
+      ],
+   q(4623) => [
+      q(Aiklep),
+      ],
+   q(4624) => [
+      q(Mouk-Aria),
+      ],
+   q(4625) => [
+      q(Labo),
+      q(Ninde),
+      ],
+   q(4626) => [
+      q(Kita Maninkakan),
+      ],
+   q(4627) => [
+      q(Sar),
+      ],
+   q(4628) => [
+      q(Nyamwanga),
+      ],
+   q(4629) => [
+      q(Central Maewo),
+      ],
+   q(4630) => [
+      q(Kala Lagaw Ya),
+      ],
+   q(4631) => [
+      q(Mun Chin),
+      ],
+   q(4632) => [
+      q(Mwimbi-Muthambi),
+      ],
+   q(4633) => [
+      q(Moken),
+      ],
+   q(4634) => [
+      q(Mittu),
+      ],
+   q(4635) => [
+      q(Mentawai),
+      ],
+   q(4636) => [
+      q(Hmong Daw),
+      ],
+   q(4637) => [
+      q(Mediak),
+      ],
+   q(4638) => [
+      q(Mosiro),
+      ],
+   q(4639) => [
+      q(Moingi),
+      ],
+   q(4640) => [
+      q(Northwest Oaxaca Mixtec),
+      ],
+   q(4641) => [
+      q(Tezoatlan Mixtec),
+      ],
+   q(4642) => [
+      q(Manyika),
+      ],
+   q(4643) => [
+      q(Modang),
+      ],
+   q(4644) => [
+      q(Mele-Fila),
+      ],
+   q(4645) => [
+      q(Malgbe),
+      ],
+   q(4646) => [
+      q(Mbangala),
+      ],
+   q(4647) => [
+      q(Mvuba),
+      ],
+   q(4648) => [
+      q(Mozarabic),
+      ],
+   q(4649) => [
+      q(Miju-Mishmi),
+      q(Geman Deng),
+      ],
+   q(4650) => [
+      q(Monumbo),
+      ],
+   q(4651) => [
+      q(Maxi Gbe),
+      ],
+   q(4652) => [
+      q(Meramera),
+      ],
+   q(4653) => [
+      q(Moi (Indonesia)),
+      ],
+   q(4654) => [
+      q(Mbowe),
+      ],
+   q(4655) => [
+      q(Tlahuitoltepec Mixe),
+      ],
+   q(4656) => [
+      q(Juquila Mixe),
+      ],
+   q(4657) => [
+      q(Murik (Malaysia)),
+      ],
+   q(4658) => [
+      q(Huitepec Mixtec),
+      ],
+   q(4659) => [
+      q(Jamiltepec Mixtec),
+      ],
+   q(4660) => [
+      q(Mada (Cameroon)),
+      ],
+   q(4661) => [
+      q(Metlatonoc Mixtec),
+      ],
+   q(4662) => [
+      q(Namo),
+      ],
+   q(4663) => [
+      q(Mahou),
+      q(Mawukakan),
+      ],
+   q(4664) => [
+      q(Southeastern Nochixtlan Mixtec),
+      ],
+   q(4665) => [
+      q(Central Masela),
+      ],
+   q(4666) => [
+      q(Mbay),
+      ],
+   q(4667) => [
+      q(Mayeka),
+      ],
+   q(4668) => [
+      q(Maramba),
+      ],
+   q(4669) => [
+      q(Myene),
+      ],
+   q(4670) => [
+      q(Bambassi),
+      ],
+   q(4671) => [
+      q(Manta),
+      ],
+   q(4672) => [
+      q(Makah),
+      ],
+   q(4673) => [
+      q(Mina (India)),
+      ],
+   q(4674) => [
+      q(Mangayat),
+      ],
+   q(4675) => [
+      q(Mamara Senoufo),
+      ],
+   q(4676) => [
+      q(Moma),
+      ],
+   q(4677) => [
+      q(Me'en),
+      ],
+   q(4678) => [
+      q(Anfillo),
+      ],
+   q(4679) => [
+      q(Piraha),
+      ],
+   q(4680) => [
+      q(Muniche),
+      ],
+   q(4681) => [
+      q(Mesmes),
+      ],
+   q(4682) => [
+      q(Munduruku),
+      ],
+   q(4683) => [
+      q(Muyuw),
+      ],
+   q(4684) => [
+      q(Masaaba),
+      ],
+   q(4685) => [
+      q(Macuna),
+      ],
+   q(4686) => [
+      q(Classical Mandaic),
+      ],
+   q(4687) => [
+      q(Santa Maria Zacatepec Mixtec),
+      ],
+   q(4688) => [
+      q(Tumzabt),
+      ],
+   q(4689) => [
+      q(Madagascar Sign Language),
+      ],
+   q(4690) => [
+      q(Malimba),
+      ],
+   q(4691) => [
+      q(Morawa),
+      ],
+   q(4692) => [
+      q(Monastic Sign Language),
+      ],
+   q(4693) => [
+      q(Wichi Lhamtes Guisnay),
+      ],
+   q(4694) => [
+      q(Ixcatlan Mazatec),
+      ],
+   q(4695) => [
+      q(Manya),
+      ],
+   q(4696) => [
+      q(Nigeria Mambila),
+      ],
+   q(4697) => [
+      q(Mazatlan Mixe),
+      ],
+   q(4698) => [
+      q(Mumuye),
+      ],
+   q(4699) => [
+      q(Mazanderani),
+      ],
+   q(4700) => [
+      q(Matipuhy),
+      ],
+   q(4701) => [
+      q(Movima),
+      ],
+   q(4702) => [
+      q(Mori Atas),
+      ],
+   q(4703) => [
+      q(Marubo),
+      ],
+   q(4704) => [
+      q(Macanese),
+      ],
+   q(4705) => [
+      q(Mintil),
+      ],
+   q(4706) => [
+      q(Inapang),
+      ],
+   q(4707) => [
+      q(Manza),
+      ],
+   q(4708) => [
+      q(Deg),
+      ],
+   q(4709) => [
+      q(Mawayana),
+      ],
+   q(4710) => [
+      q(Mozambican Sign Language),
+      ],
+   q(4711) => [
+      q(Maiadomu),
+      ],
+   q(4712) => [
+      q(Namla),
+      ],
+   q(4713) => [
+      q(Southern Nambikuara),
+      ],
+   q(4714) => [
+      q(Narak),
+      ],
+   q(4715) => [
+      q(Naka'ela),
+      ],
+   q(4716) => [
+      q(Nabak),
+      ],
+   q(4717) => [
+      q(Naga Pidgin),
+      ],
+   q(4718) => [
+      q(Nalu),
+      ],
+   q(4719) => [
+      q(Nakanai),
+      ],
+   q(4720) => [
+      q(Nalik),
+      ],
+   q(4721) => [
+      q(Ngan'gityemerri),
+      ],
+   q(4722) => [
+      q(Min Nan Chinese),
+      ],
+   q(4723) => [
+      q(Naaba),
+      ],
+   q(4724) => [
+      q(Khoekhoe),
+      q(Nama (Namibia)),
+      ],
+   q(4725) => [
+      q(Iguta),
+      ],
+   q(4726) => [
+      q(Naasioi),
+      ],
+   q(4727) => [
+      q(Cahungwarya),
+      q(Hungworo),
+      ],
+   q(4728) => [
+      q(Nawuri),
+      ],
+   q(4729) => [
+      q(Nakwi),
+      ],
+   q(4730) => [
+      q(Narrinyeri),
+      ],
+   q(4731) => [
+      q(Coatepec Nahuatl),
+      ],
+   q(4732) => [
+      q(Nyemba),
+      ],
+   q(4733) => [
+      q(Ndoe),
+      ],
+   q(4734) => [
+      q(Chang Naga),
+      ],
+   q(4735) => [
+      q(Ngbinda),
+      ],
+   q(4736) => [
+      q(Konyak Naga),
+      ],
+   q(4737) => [
+      q(Nagarchal),
+      ],
+   q(4738) => [
+      q(Ngamo),
+      ],
+   q(4739) => [
+      q(Mao Naga),
+      ],
+   q(4740) => [
+      q(Ngarinman),
+      ],
+   q(4741) => [
+      q(Nake),
+      ],
+   q(4742) => [
+      q(Ngbaka Ma'bo),
+      ],
+   q(4743) => [
+      q(Kuri),
+      ],
+   q(4744) => [
+      q(Nkukoli),
+      ],
+   q(4745) => [
+      q(Nnam),
+      ],
+   q(4746) => [
+      q(Nggem),
+      ],
+   q(4747) => [
+      q(Numana-Nunku-Gbantu-Numbu),
+      ],
+   q(4748) => [
+      q(Namibian Sign Language),
+      ],
+   q(4749) => [
+      q(Na),
+      ],
+   q(4750) => [
+      q(Rongmei Naga),
+      ],
+   q(4751) => [
+      q(Ngamambo),
+      ],
+   q(4752) => [
+      q(Southern Ngbandi),
+      ],
+   q(4753) => [
+      q(Ningera),
+      ],
+   q(4754) => [
+      q(Iyo),
+      ],
+   q(4755) => [
+      q(Central Nicobarese),
+      ],
+   q(4756) => [
+      q(Ponam),
+      ],
+   q(4757) => [
+      q(Nachering),
+      ],
+   q(4758) => [
+      q(Yale),
+      ],
+   q(4759) => [
+      q(Notsi),
+      ],
+   q(4760) => [
+      q(Nisga'a),
+      ],
+   q(4761) => [
+      q(Central Huasteca Nahuatl),
+      ],
+   q(4762) => [
+      q(Classical Nahuatl),
+      ],
+   q(4763) => [
+      q(Northern Puebla Nahuatl),
+      ],
+   q(4764) => [
+      q(Nakara),
+      ],
+   q(4765) => [
+      q(Michoacan Nahuatl),
+      ],
+   q(4766) => [
+      q(Nambo),
+      ],
+   q(4767) => [
+      q(Nauna),
+      ],
+   q(4768) => [
+      q(Sibe),
+      ],
+   q(4769) => [
+      q(Ndaktup),
+      ],
+   q(4770) => [
+      q(Northern Katang),
+      ],
+   q(4771) => [
+      q(Ncane),
+      ],
+   q(4772) => [
+      q(Nicaraguan Sign Language),
+      ],
+   q(4773) => [
+      q(Chothe Naga),
+      ],
+   q(4774) => [
+      q(Chumburung),
+      ],
+   q(4775) => [
+      q(Central Puebla Nahuatl),
+      ],
+   q(4776) => [
+      q(Natchez),
+      ],
+   q(4777) => [
+      q(Ndasa),
+      ],
+   q(4778) => [
+      q(Kenswei Nsei),
+      ],
+   q(4779) => [
+      q(Ndau),
+      ],
+   q(4780) => [
+      q(Nde-Nsele-Nta),
+      ],
+   q(4781) => [
+      q(Nadruvian),
+      ],
+   q(4782) => [
+      q(Ndengereko),
+      ],
+   q(4783) => [
+      q(Ndali),
+      ],
+   q(4784) => [
+      q(Samba Leko),
+      ],
+   q(4785) => [
+      q(Ndamba),
+      ],
+   q(4786) => [
+      q(Ndaka),
+      ],
+   q(4787) => [
+      q(Ndolo),
+      ],
+   q(4788) => [
+      q(Ndam),
+      ],
+   q(4789) => [
+      q(Ngundi),
+      ],
+   q(4790) => [
+      q(Ndo),
+      ],
+   q(4791) => [
+      q(Ndombe),
+      ],
+   q(4792) => [
+      q(Ndoola),
+      ],
+   q(4793) => [
+      q(Ndunga),
+      ],
+   q(4794) => [
+      q(Dugun),
+      ],
+   q(4795) => [
+      q(Ndut),
+      ],
+   q(4796) => [
+      q(Ndobo),
+      ],
+   q(4797) => [
+      q(Nduga),
+      ],
+   q(4798) => [
+      q(Lutos),
+      ],
+   q(4799) => [
+      q(Ndogo),
+      ],
+   q(4800) => [
+      q(Eastern Ngad'a),
+      ],
+   q(4801) => [
+      q(Toura (Cote d'Ivoire)),
+      ],
+   q(4802) => [
+      q(Nedebang),
+      ],
+   q(4803) => [
+      q(Nde-Gbite),
+      ],
+   q(4804) => [
+      q(Nelemwa-Nixumwak),
+      ],
+   q(4805) => [
+      q(Nefamese),
+      ],
+   q(4806) => [
+      q(Negidal),
+      ],
+   q(4807) => [
+      q(Nyenkha),
+      ],
+   q(4808) => [
+      q(Neo-Hittite),
+      ],
+   q(4809) => [
+      q(Neko),
+      ],
+   q(4810) => [
+      q(Neku),
+      ],
+   q(4811) => [
+      q(Nemi),
+      ],
+   q(4812) => [
+      q(Nengone),
+      ],
+   q(4813) => [
+      q(Na-Meo),
+      ],
+   q(4814) => [
+      q(North Central Mixe),
+      ],
+   q(4815) => [
+      q(Yahadian),
+      ],
+   q(4816) => [
+      q(Bhoti Kinnauri),
+      ],
+   q(4817) => [
+      q(Nete),
+      ],
+   q(4818) => [
+      q(Neo),
+      ],
+   q(4819) => [
+      q(Nyaheun),
+      ],
+   q(4820) => [
+      q(Neme),
+      ],
+   q(4821) => [
+      q(Neyo),
+      ],
+   q(4822) => [
+      q(Nez Perce),
+      ],
+   q(4823) => [
+      q(Dhao),
+      ],
+   q(4824) => [
+      q(Ahwai),
+      ],
+   q(4825) => [
+      q(Ayiwo),
+      q(Aiwoo),
+      ],
+   q(4826) => [
+      q(Nafaanra),
+      ],
+   q(4827) => [
+      q(Mfumte),
+      ],
+   q(4828) => [
+      q(Ngbaka),
+      ],
+   q(4829) => [
+      q(Northern Ngbandi),
+      ],
+   q(4830) => [
+      q(Ngombe (Democratic Republic of Congo)),
+      ],
+   q(4831) => [
+      q(Ngando (Central African Republic)),
+      ],
+   q(4832) => [
+      q(Ngemba),
+      ],
+   q(4833) => [
+      q(Ngbaka Manza),
+      ],
+   q(4834) => [
+      q(N/u),
+      q(Nu),
+      ],
+   q(4835) => [
+      q(Ngizim),
+      ],
+   q(4836) => [
+      q(Ngie),
+      ],
+   q(4837) => [
+      q(Dalabon),
+      ],
+   q(4838) => [
+      q(Lomwe),
+      ],
+   q(4839) => [
+      q(Ngatik Men's Creole),
+      ],
+   q(4840) => [
+      q(Ngwo),
+      ],
+   q(4841) => [
+      q(Ngoni),
+      ],
+   q(4842) => [
+      q(Ngulu),
+      ],
+   q(4843) => [
+      q(Ngurimi),
+      q(Ngoreme),
+      ],
+   q(4844) => [
+      q(Engdewu),
+      ],
+   q(4845) => [
+      q(Gvoko),
+      ],
+   q(4846) => [
+      q(Kriang),
+      q(Ngeq),
+      ],
+   q(4847) => [
+      q(Guerrero Nahuatl),
+      ],
+   q(4848) => [
+      q(Nagumi),
+      ],
+   q(4849) => [
+      q(Ngwaba),
+      ],
+   q(4850) => [
+      q(Nggwahyi),
+      ],
+   q(4851) => [
+      q(Tibea),
+      ],
+   q(4852) => [
+      q(Ngungwel),
+      ],
+   q(4853) => [
+      q(Nhanda),
+      ],
+   q(4854) => [
+      q(Beng),
+      ],
+   q(4855) => [
+      q(Tabasco Nahuatl),
+      ],
+   q(4856) => [
+      q(Chiripa),
+      q(Ava Guarani),
+      ],
+   q(4857) => [
+      q(Eastern Huasteca Nahuatl),
+      ],
+   q(4858) => [
+      q(Nhuwala),
+      ],
+   q(4859) => [
+      q(Tetelcingo Nahuatl),
+      ],
+   q(4860) => [
+      q(Nahari),
+      ],
+   q(4861) => [
+      q(Zacatlan-Ahuacatlan-Tepetzintla Nahuatl),
+      ],
+   q(4862) => [
+      q(Isthmus-Cosoleacaque Nahuatl),
+      ],
+   q(4863) => [
+      q(Morelos Nahuatl),
+      ],
+   q(4864) => [
+      q(Central Nahuatl),
+      ],
+   q(4865) => [
+      q(Takuu),
+      ],
+   q(4866) => [
+      q(Isthmus-Pajapan Nahuatl),
+      ],
+   q(4867) => [
+      q(Huaxcaleca Nahuatl),
+      ],
+   q(4868) => [
+      q(Naro),
+      ],
+   q(4869) => [
+      q(Ometepec Nahuatl),
+      ],
+   q(4870) => [
+      q(Noone),
+      ],
+   q(4871) => [
+      q(Temascaltepec Nahuatl),
+      ],
+   q(4872) => [
+      q(Western Huasteca Nahuatl),
+      ],
+   q(4873) => [
+      q(Isthmus-Mecayapan Nahuatl),
+      ],
+   q(4874) => [
+      q(Northern Oaxaca Nahuatl),
+      ],
+   q(4875) => [
+      q(Santa Maria La Alta Nahuatl),
+      ],
+   q(4876) => [
+      q(Nakame),
+      ],
+   q(4877) => [
+      q(Ngandi),
+      ],
+   q(4878) => [
+      q(Niellim),
+      ],
+   q(4879) => [
+      q(Nek),
+      ],
+   q(4880) => [
+      q(Ngalakan),
+      ],
+   q(4881) => [
+      q(Nyiha (Tanzania)),
+      ],
+   q(4882) => [
+      q(Nii),
+      ],
+   q(4883) => [
+      q(Ngaju),
+      ],
+   q(4884) => [
+      q(Southern Nicobarese),
+      ],
+   q(4885) => [
+      q(Nila),
+      ],
+   q(4886) => [
+      q(Nilamba),
+      ],
+   q(4887) => [
+      q(Ninzo),
+      ],
+   q(4888) => [
+      q(Nganasan),
+      ],
+   q(4889) => [
+      q(Nandi),
+      ],
+   q(4890) => [
+      q(Nimboran),
+      ],
+   q(4891) => [
+      q(Nimi),
+      ],
+   q(4892) => [
+      q(Southeastern Kolami),
+      ],
+   q(4893) => [
+      q(Gilyak),
+      ],
+   q(4894) => [
+      q(Nimo),
+      ],
+   q(4895) => [
+      q(Hema),
+      ],
+   q(4896) => [
+      q(Ngiti),
+      ],
+   q(4897) => [
+      q(Ningil),
+      ],
+   q(4898) => [
+      q(Nzanyi),
+      ],
+   q(4899) => [
+      q(Nocte Naga),
+      ],
+   q(4900) => [
+      q(Ndonde Hamba),
+      ],
+   q(4901) => [
+      q(Lotha Naga),
+      ],
+   q(4902) => [
+      q(Gudanji),
+      ],
+   q(4903) => [
+      q(Njen),
+      ],
+   q(4904) => [
+      q(Njalgulgule),
+      ],
+   q(4905) => [
+      q(Angami Naga),
+      ],
+   q(4906) => [
+      q(Liangmai Naga),
+      ],
+   q(4907) => [
+      q(Ao Naga),
+      ],
+   q(4908) => [
+      q(Njerep),
+      ],
+   q(4909) => [
+      q(Nisa),
+      ],
+   q(4910) => [
+      q(Ndyuka-Trio Pidgin),
+      ],
+   q(4911) => [
+      q(Ngadjunmaya),
+      ],
+   q(4912) => [
+      q(Kunyi),
+      ],
+   q(4913) => [
+      q(Njyem),
+      ],
+   q(4914) => [
+      q(Nyishi),
+      ],
+   q(4915) => [
+      q(Nkoya),
+      ],
+   q(4916) => [
+      q(Khoibu Naga),
+      ],
+   q(4917) => [
+      q(Nkongho),
+      ],
+   q(4918) => [
+      q(Koireng),
+      ],
+   q(4919) => [
+      q(Duke),
+      ],
+   q(4920) => [
+      q(Inpui Naga),
+      ],
+   q(4921) => [
+      q(Nekgini),
+      ],
+   q(4922) => [
+      q(Khezha Naga),
+      ],
+   q(4923) => [
+      q(Thangal Naga),
+      ],
+   q(4924) => [
+      q(Nakai),
+      ],
+   q(4925) => [
+      q(Nokuku),
+      ],
+   q(4926) => [
+      q(Namat),
+      ],
+   q(4927) => [
+      q(Nkangala),
+      ],
+   q(4928) => [
+      q(Nkonya),
+      ],
+   q(4929) => [
+      q(Niuatoputapu),
+      ],
+   q(4930) => [
+      q(Nkami),
+      ],
+   q(4931) => [
+      q(Nukuoro),
+      ],
+   q(4932) => [
+      q(North Asmat),
+      ],
+   q(4933) => [
+      q(Nyika (Tanzania)),
+      ],
+   q(4934) => [
+      q(Bouna Kulango),
+      ],
+   q(4935) => [
+      q(Nyika (Malawi and Zambia)),
+      ],
+   q(4936) => [
+      q(Nkutu),
+      ],
+   q(4937) => [
+      q(Nkoroo),
+      ],
+   q(4938) => [
+      q(Nkari),
+      ],
+   q(4939) => [
+      q(Ngombale),
+      ],
+   q(4940) => [
+      q(Nalca),
+      ],
+   q(4941) => [
+      q(East Nyala),
+      ],
+   q(4942) => [
+      q(Gela),
+      ],
+   q(4943) => [
+      q(Grangali),
+      ],
+   q(4944) => [
+      q(Nyali),
+      ],
+   q(4945) => [
+      q(Ninia Yali),
+      ],
+   q(4946) => [
+      q(Nihali),
+      ],
+   q(4947) => [
+      q(Ngul),
+      ],
+   q(4948) => [
+      q(Lao Naga),
+      ],
+   q(4949) => [
+      q(Nchumbulu),
+      ],
+   q(4950) => [
+      q(Orizaba Nahuatl),
+      ],
+   q(4951) => [
+      q(Walangama),
+      ],
+   q(4952) => [
+      q(Nahali),
+      ],
+   q(4953) => [
+      q(Nyamal),
+      ],
+   q(4954) => [
+      q(Nalogo),
+      ],
+   q(4955) => [
+      q(Maram Naga),
+      ],
+   q(4956) => [
+      q(Big Nambas),
+      q(V'enen Taut),
+      ],
+   q(4957) => [
+      q(Ngam),
+      ],
+   q(4958) => [
+      q(Ndumu),
+      ],
+   q(4959) => [
+      q(Mzieme Naga),
+      ],
+   q(4960) => [
+      q(Tangkhul Naga (India)),
+      ],
+   q(4961) => [
+      q(Kwasio),
+      ],
+   q(4962) => [
+      q(Monsang Naga),
+      ],
+   q(4963) => [
+      q(Nyam),
+      ],
+   q(4964) => [
+      q(Ngombe (Central African Republic)),
+      ],
+   q(4965) => [
+      q(Namakura),
+      ],
+   q(4966) => [
+      q(Ndemli),
+      ],
+   q(4967) => [
+      q(Manangba),
+      ],
+   q(4968) => [
+      q(!Xoo),
+      q(Xoo),
+      ],
+   q(4969) => [
+      q(Moyon Naga),
+      ],
+   q(4970) => [
+      q(Nimanbur),
+      ],
+   q(4971) => [
+      q(Nambya),
+      ],
+   q(4972) => [
+      q(Nimbari),
+      ],
+   q(4973) => [
+      q(Letemboi),
+      ],
+   q(4974) => [
+      q(Namonuito),
+      ],
+   q(4975) => [
+      q(Northeast Maidu),
+      ],
+   q(4976) => [
+      q(Ngamini),
+      ],
+   q(4977) => [
+      q(Nimoa),
+      q(Rifao),
+      ],
+   q(4978) => [
+      q(Nama (Papua New Guinea)),
+      ],
+   q(4979) => [
+      q(Namuyi),
+      ],
+   q(4980) => [
+      q(Nawdm),
+      ],
+   q(4981) => [
+      q(Nyangumarta),
+      ],
+   q(4982) => [
+      q(Nande),
+      ],
+   q(4983) => [
+      q(Nancere),
+      ],
+   q(4984) => [
+      q(West Ambae),
+      ],
+   q(4985) => [
+      q(Ngandyera),
+      ],
+   q(4986) => [
+      q(Ngaing),
+      ],
+   q(4987) => [
+      q(Maring Naga),
+      ],
+   q(4988) => [
+      q(Ngiemboon),
+      ],
+   q(4989) => [
+      q(North Nuaulu),
+      ],
+   q(4990) => [
+      q(Nyangatom),
+      ],
+   q(4991) => [
+      q(Nankina),
+      ],
+   q(4992) => [
+      q(Northern Rengma Naga),
+      ],
+   q(4993) => [
+      q(Namia),
+      ],
+   q(4994) => [
+      q(Ngete),
+      ],
+   q(4995) => [
+      q(Wancho Naga),
+      ],
+   q(4996) => [
+      q(Ngindo),
+      ],
+   q(4997) => [
+      q(Narungga),
+      ],
+   q(4998) => [
+      q(Ningye),
+      ],
+   q(4999) => [
+      q(Nanticoke),
+      ],
+   q(5000) => [
+      q(Dwang),
+      ],
+   q(5001) => [
+      q(Nugunu (Australia)),
+      ],
+   q(5002) => [
+      q(Southern Nuni),
+      ],
+   q(5003) => [
+      q(Nyangga),
+      ],
+   q(5004) => [
+      q(Nda'nda'),
+      ],
+   q(5005) => [
+      q(Woun Meu),
+      ],
+   q(5006) => [
+      q(Nuk),
+      ],
+   q(5007) => [
+      q(Northern Thai),
+      ],
+   q(5008) => [
+      q(Nimadi),
+      ],
+   q(5009) => [
+      q(Nomane),
+      ],
+   q(5010) => [
+      q(Nomu),
+      ],
+   q(5011) => [
+      q(Noiri),
+      ],
+   q(5012) => [
+      q(Nonuya),
+      ],
+   q(5013) => [
+      q(Nooksack),
+      ],
+   q(5014) => [
+      q(Nomlaki),
+      ],
+   q(5015) => [
+      q(Nocaman),
+      ],
+   q(5016) => [
+      q(Numanggang),
+      ],
+   q(5017) => [
+      q(Ngongo),
+      ],
+   q(5018) => [
+      q(Eastern Nisu),
+      ],
+   q(5019) => [
+      q(Nomatsiguenga),
+      ],
+   q(5020) => [
+      q(Ewage-Notu),
+      ],
+   q(5021) => [
+      q(Novial),
+      ],
+   q(5022) => [
+      q(Nyambo),
+      ],
+   q(5023) => [
+      q(Noy),
+      ],
+   q(5024) => [
+      q(Nayi),
+      ],
+   q(5025) => [
+      q(Nar Phu),
+      ],
+   q(5026) => [
+      q(Nupbikha),
+      ],
+   q(5027) => [
+      q(Ponyo-Gongwang Naga),
+      ],
+   q(5028) => [
+      q(Phom Naga),
+      ],
+   q(5029) => [
+      q(Nepali (individual language)),
+      ],
+   q(5030) => [
+      q(Southeastern Puebla Nahuatl),
+      ],
+   q(5031) => [
+      q(Mondropolon),
+      ],
+   q(5032) => [
+      q(Pochuri Naga),
+      ],
+   q(5033) => [
+      q(Nipsan),
+      ],
+   q(5034) => [
+      q(Puimei Naga),
+      ],
+   q(5035) => [
+      q(Noipx),
+      ],
+   q(5036) => [
+      q(Napu),
+      ],
+   q(5037) => [
+      q(Southern Nago),
+      ],
+   q(5038) => [
+      q(Kura Ede Nago),
+      ],
+   q(5039) => [
+      q(Ngendelengo),
+      ],
+   q(5040) => [
+      q(Ndom),
+      ],
+   q(5041) => [
+      q(Nen),
+      ],
+   q(5042) => [
+      q(Kyan-Karyaw Naga),
+      ],
+   q(5043) => [
+      q(Akyaung Ari Naga),
+      ],
+   q(5044) => [
+      q(Ngom),
+      ],
+   q(5045) => [
+      q(Nara),
+      ],
+   q(5046) => [
+      q(Noric),
+      ],
+   q(5047) => [
+      q(Southern Rengma Naga),
+      ],
+   q(5048) => [
+      q(Jerriais),
+      q(Guernesiais),
+      ],
+   q(5049) => [
+      q(Narango),
+      ],
+   q(5050) => [
+      q(Chokri Naga),
+      ],
+   q(5051) => [
+      q(Ngarla),
+      ],
+   q(5052) => [
+      q(Ngarluma),
+      ],
+   q(5053) => [
+      q(Narom),
+      ],
+   q(5054) => [
+      q(Norn),
+      ],
+   q(5055) => [
+      q(North Picene),
+      ],
+   q(5056) => [
+      q(Norra),
+      q(Nora),
+      ],
+   q(5057) => [
+      q(Northern Kalapuya),
+      ],
+   q(5058) => [
+      q(Narua),
+      ],
+   q(5059) => [
+      q(Ngurmbur),
+      ],
+   q(5060) => [
+      q(Lala),
+      ],
+   q(5061) => [
+      q(Sangtam Naga),
+      ],
+   q(5062) => [
+      q(Nshi),
+      ],
+   q(5063) => [
+      q(Southern Nisu),
+      ],
+   q(5064) => [
+      q(Nsenga),
+      ],
+   q(5065) => [
+      q(Northwestern Nisu),
+      ],
+   q(5066) => [
+      q(Ngasa),
+      ],
+   q(5067) => [
+      q(Ngoshie),
+      ],
+   q(5068) => [
+      q(Nigerian Sign Language),
+      ],
+   q(5069) => [
+      q(Naskapi),
+      ],
+   q(5070) => [
+      q(Norwegian Sign Language),
+      ],
+   q(5071) => [
+      q(Sumi Naga),
+      ],
+   q(5072) => [
+      q(Nehan),
+      ],
+   q(5073) => [
+      q(Nepalese Sign Language),
+      ],
+   q(5074) => [
+      q(Northern Sierra Miwok),
+      ],
+   q(5075) => [
+      q(Maritime Sign Language),
+      ],
+   q(5076) => [
+      q(Nali),
+      ],
+   q(5077) => [
+      q(Tase Naga),
+      ],
+   q(5078) => [
+      q(Sierra Negra Nahuatl),
+      ],
+   q(5079) => [
+      q(Southwestern Nisu),
+      ],
+   q(5080) => [
+      q(Navut),
+      ],
+   q(5081) => [
+      q(Nsongo),
+      ],
+   q(5082) => [
+      q(Nasal),
+      ],
+   q(5083) => [
+      q(Nisenan),
+      ],
+   q(5084) => [
+      q(Northern Tidung),
+      ],
+   q(5085) => [
+      q(Nathembo),
+      ],
+   q(5086) => [
+      q(Ngantangarra),
+      ],
+   q(5087) => [
+      q(Natioro),
+      ],
+   q(5088) => [
+      q(Ngaanyatjarra),
+      ],
+   q(5089) => [
+      q(Ikoma-Nata-Isenye),
+      ],
+   q(5090) => [
+      q(Nateni),
+      ],
+   q(5091) => [
+      q(Ntomba),
+      ],
+   q(5092) => [
+      q(Northern Tepehuan),
+      ],
+   q(5093) => [
+      q(Delo),
+      ],
+   q(5094) => [
+      q(Natugu),
+      ],
+   q(5095) => [
+      q(Nottoway),
+      ],
+   q(5096) => [
+      q(Tangkhul Naga (Myanmar)),
+      ],
+   q(5097) => [
+      q(Mantsi),
+      ],
+   q(5098) => [
+      q(Natanzi),
+      ],
+   q(5099) => [
+      q(Yuanga),
+      ],
+   q(5100) => [
+      q(Nukuini),
+      ],
+   q(5101) => [
+      q(Ngala),
+      ],
+   q(5102) => [
+      q(Ngundu),
+      ],
+   q(5103) => [
+      q(Nusu),
+      ],
+   q(5104) => [
+      q(Nungali),
+      ],
+   q(5105) => [
+      q(Ndunda),
+      ],
+   q(5106) => [
+      q(Ngumbi),
+      ],
+   q(5107) => [
+      q(Nyole),
+      ],
+   q(5108) => [
+      q(Nuu-chah-nulth),
+      q(Nuuchahnulth),
+      ],
+   q(5109) => [
+      q(Nusa Laut),
+      ],
+   q(5110) => [
+      q(Niuafo'ou),
+      ],
+   q(5111) => [
+      q(Anong),
+      ],
+   q(5112) => [
+      q(Nguon),
+      ],
+   q(5113) => [
+      q(Nupe-Nupe-Tako),
+      ],
+   q(5114) => [
+      q(Nukumanu),
+      ],
+   q(5115) => [
+      q(Nukuria),
+      ],
+   q(5116) => [
+      q(Nuer),
+      ],
+   q(5117) => [
+      q(Nung (Viet Nam)),
+      ],
+   q(5118) => [
+      q(Ngbundu),
+      ],
+   q(5119) => [
+      q(Northern Nuni),
+      ],
+   q(5120) => [
+      q(Nguluwan),
+      ],
+   q(5121) => [
+      q(Mehek),
+      ],
+   q(5122) => [
+      q(Nunggubuyu),
+      ],
+   q(5123) => [
+      q(Tlamacazapa Nahuatl),
+      ],
+   q(5124) => [
+      q(Nasarian),
+      ],
+   q(5125) => [
+      q(Namiae),
+      ],
+   q(5126) => [
+      q(Nyokon),
+      ],
+   q(5127) => [
+      q(Nawathinehena),
+      ],
+   q(5128) => [
+      q(Nyabwa),
+      ],
+   q(5129) => [
+      q(Ngwe),
+      ],
+   q(5130) => [
+      q(Ngayawung),
+      ],
+   q(5131) => [
+      q(Southwest Tanna),
+      ],
+   q(5132) => [
+      q(Nyamusa-Molo),
+      ],
+   q(5133) => [
+      q(Nauo),
+      ],
+   q(5134) => [
+      q(Nawaru),
+      ],
+   q(5135) => [
+      q(Middle Newar),
+      ],
+   q(5136) => [
+      q(Nottoway-Meherrin),
+      ],
+   q(5137) => [
+      q(Nauete),
+      ],
+   q(5138) => [
+      q(Ngando (Democratic Republic of Congo)),
+      ],
+   q(5139) => [
+      q(Nage),
+      ],
+   q(5140) => [
+      q(Ngad'a),
+      ],
+   q(5141) => [
+      q(Nindi),
+      ],
+   q(5142) => [
+      q(Koki Naga),
+      ],
+   q(5143) => [
+      q(South Nuaulu),
+      ],
+   q(5144) => [
+      q(Numidian),
+      ],
+   q(5145) => [
+      q(Ngawun),
+      ],
+   q(5146) => [
+      q(Ndambomo),
+      ],
+   q(5147) => [
+      q(Naxi),
+      ],
+   q(5148) => [
+      q(Ninggerum),
+      ],
+   q(5149) => [
+      q(Narau),
+      ],
+   q(5150) => [
+      q(Nafri),
+      ],
+   q(5151) => [
+      q(Nyangbo),
+      ],
+   q(5152) => [
+      q(Nyanga-li),
+      ],
+   q(5153) => [
+      q(Nyore),
+      q(Olunyole),
+      ],
+   q(5154) => [
+      q(Nyengo),
+      ],
+   q(5155) => [
+      q(Giryama),
+      q(Kigiryama),
+      ],
+   q(5156) => [
+      q(Nyindu),
+      ],
+   q(5157) => [
+      q(Nyigina),
+      ],
+   q(5158) => [
+      q(Ama (Sudan)),
+      ],
+   q(5159) => [
+      q(Nyanga),
+      ],
+   q(5160) => [
+      q(Nyaneka),
+      ],
+   q(5161) => [
+      q(Nyeu),
+      ],
+   q(5162) => [
+      q(Nyang'i),
+      ],
+   q(5163) => [
+      q(Nayini),
+      ],
+   q(5164) => [
+      q(Nyiha (Malawi)),
+      ],
+   q(5165) => [
+      q(Nyunga),
+      ],
+   q(5166) => [
+      q(Nyawaygi),
+      ],
+   q(5167) => [
+      q(Nyungwe),
+      ],
+   q(5168) => [
+      q(Nyulnyul),
+      ],
+   q(5169) => [
+      q(Nyaw),
+      ],
+   q(5170) => [
+      q(Nganyaywana),
+      ],
+   q(5171) => [
+      q(Nyakyusa-Ngonde),
+      ],
+   q(5172) => [
+      q(Tigon Mbembe),
+      ],
+   q(5173) => [
+      q(Njebi),
+      ],
+   q(5174) => [
+      q(Nzakara),
+      ],
+   q(5175) => [
+      q(Zeme Naga),
+      ],
+   q(5176) => [
+      q(New Zealand Sign Language),
+      ],
+   q(5177) => [
+      q(Teke-Nzikou),
+      ],
+   q(5178) => [
+      q(Nzakambay),
+      ],
+   q(5179) => [
+      q(Nanga Dama Dogon),
+      ],
+   q(5180) => [
+      q(Orok),
+      ],
+   q(5181) => [
+      q(Oroch),
+      ],
+   q(5182) => [
+      q(Old Aramaic (up to 700 BCE)),
+      q(Ancient Aramaic (up to 700 BCE)),
+      ],
+   q(5183) => [
+      q(Old Avar),
+      ],
+   q(5184) => [
+      q(Obispeno),
+      ],
+   q(5185) => [
+      q(Southern Bontok),
+      ],
+   q(5186) => [
+      q(Oblo),
+      ],
+   q(5187) => [
+      q(Moabite),
+      ],
+   q(5188) => [
+      q(Obo Manobo),
+      ],
+   q(5189) => [
+      q(Old Burmese),
+      ],
+   q(5190) => [
+      q(Old Breton),
+      ],
+   q(5191) => [
+      q(Obulom),
+      ],
+   q(5192) => [
+      q(Ocaina),
+      ],
+   q(5193) => [
+      q(Old Chinese),
+      ],
+   q(5194) => [
+      q(Old Cornish),
+      ],
+   q(5195) => [
+      q(Atzingo Matlatzinca),
+      ],
+   q(5196) => [
+      q(Odut),
+      ],
+   q(5197) => [
+      q(Od),
+      ],
+   q(5198) => [
+      q(Old Dutch),
+      ],
+   q(5199) => [
+      q(Odual),
+      ],
+   q(5200) => [
+      q(Ofo),
+      ],
+   q(5201) => [
+      q(Old Frisian),
+      ],
+   q(5202) => [
+      q(Efutop),
+      ],
+   q(5203) => [
+      q(Ogbia),
+      ],
+   q(5204) => [
+      q(Ogbah),
+      ],
+   q(5205) => [
+      q(Old Georgian),
+      ],
+   q(5206) => [
+      q(Ogbogolo),
+      ],
+   q(5207) => [
+      q(Khana),
+      ],
+   q(5208) => [
+      q(Ogbronuagum),
+      ],
+   q(5209) => [
+      q(Old Hittite),
+      ],
+   q(5210) => [
+      q(Old Hungarian),
+      ],
+   q(5211) => [
+      q(Oirata),
+      ],
+   q(5212) => [
+      q(Inebu One),
+      ],
+   q(5213) => [
+      q(Northwestern Ojibwa),
+      ],
+   q(5214) => [
+      q(Central Ojibwa),
+      ],
+   q(5215) => [
+      q(Eastern Ojibwa),
+      ],
+   q(5216) => [
+      q(Old Japanese),
+      ],
+   q(5217) => [
+      q(Severn Ojibwa),
+      ],
+   q(5218) => [
+      q(Ontong Java),
+      ],
+   q(5219) => [
+      q(Western Ojibwa),
+      ],
+   q(5220) => [
+      q(Okanagan),
+      ],
+   q(5221) => [
+      q(Okobo),
+      ],
+   q(5222) => [
+      q(Okodia),
+      ],
+   q(5223) => [
+      q(Okpe (Southwestern Edo)),
+      ],
+   q(5224) => [
+      q(Koko Babangk),
+      ],
+   q(5225) => [
+      q(Koresh-e Rostam),
+      ],
+   q(5226) => [
+      q(Okiek),
+      ],
+   q(5227) => [
+      q(Oko-Juwoi),
+      ],
+   q(5228) => [
+      q(Kwamtim One),
+      ],
+   q(5229) => [
+      q(Old Kentish Sign Language),
+      ],
+   q(5230) => [
+      q(Middle Korean (10th-16th cent.)),
+      ],
+   q(5231) => [
+      q(Oki-No-Erabu),
+      ],
+   q(5232) => [
+      q(Old Korean (3rd-9th cent.)),
+      ],
+   q(5233) => [
+      q(Kirike),
+      ],
+   q(5234) => [
+      q(Oko-Eni-Osayen),
+      ],
+   q(5235) => [
+      q(Oku),
+      ],
+   q(5236) => [
+      q(Orokaiva),
+      ],
+   q(5237) => [
+      q(Okpe (Northwestern Edo)),
+      ],
+   q(5238) => [
+      q(Walungge),
+      ],
+   q(5239) => [
+      q(Mochi),
+      ],
+   q(5240) => [
+      q(Olekha),
+      ],
+   q(5241) => [
+      q(Olkol),
+      ],
+   q(5242) => [
+      q(Oloma),
+      ],
+   q(5243) => [
+      q(Livvi),
+      ],
+   q(5244) => [
+      q(Olrat),
+      ],
+   q(5245) => [
+      q(Old Lithuanian),
+      ],
+   q(5246) => [
+      q(Kuvale),
+      ],
+   q(5247) => [
+      q(Omaha-Ponca),
+      ],
+   q(5248) => [
+      q(East Ambae),
+      ],
+   q(5249) => [
+      q(Mochica),
+      ],
+   q(5250) => [
+      q(Omagua),
+      ],
+   q(5251) => [
+      q(Omi),
+      ],
+   q(5252) => [
+      q(Omok),
+      ],
+   q(5253) => [
+      q(Ombo),
+      ],
+   q(5254) => [
+      q(Minoan),
+      ],
+   q(5255) => [
+      q(Utarmbung),
+      ],
+   q(5256) => [
+      q(Old Manipuri),
+      ],
+   q(5257) => [
+      q(Old Marathi),
+      ],
+   q(5258) => [
+      q(Omotik),
+      ],
+   q(5259) => [
+      q(Omurano),
+      ],
+   q(5260) => [
+      q(South Tairora),
+      ],
+   q(5261) => [
+      q(Old Mon),
+      ],
+   q(5262) => [
+      q(Ona),
+      ],
+   q(5263) => [
+      q(Lingao),
+      ],
+   q(5264) => [
+      q(Oneida),
+      ],
+   q(5265) => [
+      q(Olo),
+      ],
+   q(5266) => [
+      q(Onin),
+      ],
+   q(5267) => [
+      q(Onjob),
+      ],
+   q(5268) => [
+      q(Kabore One),
+      ],
+   q(5269) => [
+      q(Onobasulu),
+      ],
+   q(5270) => [
+      q(Onondaga),
+      ],
+   q(5271) => [
+      q(Sartang),
+      ],
+   q(5272) => [
+      q(Northern One),
+      ],
+   q(5273) => [
+      q(Ono),
+      ],
+   q(5274) => [
+      q(Ontenu),
+      ],
+   q(5275) => [
+      q(Unua),
+      ],
+   q(5276) => [
+      q(Old Nubian),
+      ],
+   q(5277) => [
+      q(Onin Based Pidgin),
+      ],
+   q(5278) => [
+      q(Tohono O'odham),
+      ],
+   q(5279) => [
+      q(Ong),
+      ],
+   q(5280) => [
+      q(Onge),
+      ],
+   q(5281) => [
+      q(Oorlams),
+      ],
+   q(5282) => [
+      q(Old Ossetic),
+      ],
+   q(5283) => [
+      q(Okpamheri),
+      ],
+   q(5284) => [
+      q(Kopkaka),
+      ],
+   q(5285) => [
+      q(Oksapmin),
+      ],
+   q(5286) => [
+      q(Opao),
+      ],
+   q(5287) => [
+      q(Opata),
+      ],
+   q(5288) => [
+      q(Ofaye),
+      ],
+   q(5289) => [
+      q(Oroha),
+      ],
+   q(5290) => [
+      q(Orma),
+      ],
+   q(5291) => [
+      q(Orejon),
+      ],
+   q(5292) => [
+      q(Oring),
+      ],
+   q(5293) => [
+      q(Oroqen),
+      ],
+   q(5294) => [
+      q(Orang Kanaq),
+      ],
+   q(5295) => [
+      q(Orokolo),
+      ],
+   q(5296) => [
+      q(Oruma),
+      ],
+   q(5297) => [
+      q(Orang Seletar),
+      ],
+   q(5298) => [
+      q(Adivasi Oriya),
+      ],
+   q(5299) => [
+      q(Ormuri),
+      ],
+   q(5300) => [
+      q(Old Russian),
+      ],
+   q(5301) => [
+      q(Oro Win),
+      ],
+   q(5302) => [
+      q(Oro),
+      ],
+   q(5303) => [
+      q(Odia (individual language)),
+      q(Oriya (individual language)),
+      ],
+   q(5304) => [
+      q(Ormu),
+      ],
+   q(5305) => [
+      q(Oscan),
+      ],
+   q(5306) => [
+      q(Osing),
+      ],
+   q(5307) => [
+      q(Ososo),
+      ],
+   q(5308) => [
+      q(Old Spanish),
+      ],
+   q(5309) => [
+      q(Osatu),
+      ],
+   q(5310) => [
+      q(Southern One),
+      ],
+   q(5311) => [
+      q(Old Saxon),
+      ],
+   q(5312) => [
+      q(Old Tibetan),
+      ],
+   q(5313) => [
+      q(Ot Danum),
+      ],
+   q(5314) => [
+      q(Mezquital Otomi),
+      ],
+   q(5315) => [
+      q(Oti),
+      ],
+   q(5316) => [
+      q(Old Turkish),
+      ],
+   q(5317) => [
+      q(Tilapa Otomi),
+      ],
+   q(5318) => [
+      q(Eastern Highland Otomi),
+      ],
+   q(5319) => [
+      q(Tenango Otomi),
+      ],
+   q(5320) => [
+      q(Queretaro Otomi),
+      ],
+   q(5321) => [
+      q(Otoro),
+      ],
+   q(5322) => [
+      q(Estado de Mexico Otomi),
+      ],
+   q(5323) => [
+      q(Temoaya Otomi),
+      ],
+   q(5324) => [
+      q(Otuke),
+      ],
+   q(5325) => [
+      q(Ottawa),
+      ],
+   q(5326) => [
+      q(Texcatepec Otomi),
+      ],
+   q(5327) => [
+      q(Old Tamil),
+      ],
+   q(5328) => [
+      q(Ixtenco Otomi),
+      ],
+   q(5329) => [
+      q(Tagargrent),
+      ],
+   q(5330) => [
+      q(Glio-Oubi),
+      ],
+   q(5331) => [
+      q(Oune),
+      ],
+   q(5332) => [
+      q(Old Uighur),
+      ],
+   q(5333) => [
+      q(Ouma),
+      ],
+   q(5334) => [
+      q(Elfdalian),
+      q(Ovdalian),
+      ],
+   q(5335) => [
+      q(Owiniga),
+      ],
+   q(5336) => [
+      q(Old Welsh),
+      ],
+   q(5337) => [
+      q(Oy),
+      ],
+   q(5338) => [
+      q(Oyda),
+      ],
+   q(5339) => [
+      q(Wayampi),
+      ],
+   q(5340) => [
+      q(Oya'oya),
+      ],
+   q(5341) => [
+      q(Koonzime),
+      ],
+   q(5342) => [
+      q(Parecis),
+      ],
+   q(5343) => [
+      q(Pacoh),
+      ],
+   q(5344) => [
+      q(Paumari),
+      ],
+   q(5345) => [
+      q(Pagibete),
+      ],
+   q(5346) => [
+      q(Paranawat),
+      ],
+   q(5347) => [
+      q(Tenharim),
+      ],
+   q(5348) => [
+      q(Pe),
+      ],
+   q(5349) => [
+      q(Parakana),
+      ],
+   q(5350) => [
+      q(Northern Paiute),
+      ],
+   q(5351) => [
+      q(Parya),
+      ],
+   q(5352) => [
+      q(Panamint),
+      q(Timbisha),
+      ],
+   q(5353) => [
+      q(Papasena),
+      ],
+   q(5354) => [
+      q(Papitalai),
+      ],
+   q(5355) => [
+      q(Pakaasnovos),
+      ],
+   q(5356) => [
+      q(Pawnee),
+      ],
+   q(5357) => [
+      q(Pankarare),
+      ],
+   q(5358) => [
+      q(Pech),
+      ],
+   q(5359) => [
+      q(Pankararu),
+      ],
+   q(5360) => [
+      q(Paez),
+      ],
+   q(5361) => [
+      q(Patamona),
+      ],
+   q(5362) => [
+      q(Mezontla Popoloca),
+      ],
+   q(5363) => [
+      q(Coyotepec Popoloca),
+      ],
+   q(5364) => [
+      q(Paraujano),
+      ],
+   q(5365) => [
+      q(E'napa Woromaipu),
+      ],
+   q(5366) => [
+      q(Parkwa),
+      ],
+   q(5367) => [
+      q(Mak (Nigeria)),
+      ],
+   q(5368) => [
+      q(Kpasam),
+      ],
+   q(5369) => [
+      q(Papel),
+      ],
+   q(5370) => [
+      q(Badyara),
+      ],
+   q(5371) => [
+      q(Pangwa),
+      ],
+   q(5372) => [
+      q(Central Pame),
+      ],
+   q(5373) => [
+      q(Southern Pashto),
+      ],
+   q(5374) => [
+      q(Northern Pashto),
+      ],
+   q(5375) => [
+      q(Pnar),
+      ],
+   q(5376) => [
+      q(Pyu (Papua New Guinea)),
+      ],
+   q(5377) => [
+      q(Santa Ines Ahuatempan Popoloca),
+      ],
+   q(5378) => [
+      q(Pear),
+      ],
+   q(5379) => [
+      q(Bouyei),
+      ],
+   q(5380) => [
+      q(Picard),
+      ],
+   q(5381) => [
+      q(Ruching Palaung),
+      ],
+   q(5382) => [
+      q(Paliyan),
+      ],
+   q(5383) => [
+      q(Paniya),
+      ],
+   q(5384) => [
+      q(Pardhan),
+      ],
+   q(5385) => [
+      q(Duruwa),
+      ],
+   q(5386) => [
+      q(Parenga),
+      ],
+   q(5387) => [
+      q(Paite Chin),
+      ],
+   q(5388) => [
+      q(Pardhi),
+      ],
+   q(5389) => [
+      q(Nigerian Pidgin),
+      ],
+   q(5390) => [
+      q(Piti),
+      ],
+   q(5391) => [
+      q(Pacahuara),
+      ],
+   q(5392) => [
+      q(Pyapun),
+      ],
+   q(5393) => [
+      q(Anam),
+      ],
+   q(5394) => [
+      q(Pennsylvania German),
+      ],
+   q(5395) => [
+      q(Pa Di),
+      ],
+   q(5396) => [
+      q(Podena),
+      q(Fedan),
+      ],
+   q(5397) => [
+      q(Padoe),
+      ],
+   q(5398) => [
+      q(Plautdietsch),
+      ],
+   q(5399) => [
+      q(Kayan),
+      ],
+   q(5400) => [
+      q(Peranakan Indonesian),
+      ],
+   q(5401) => [
+      q(Eastern Pomo),
+      ],
+   q(5402) => [
+      q(Mala (Papua New Guinea)),
+      ],
+   q(5403) => [
+      q(Taje),
+      ],
+   q(5404) => [
+      q(Northeastern Pomo),
+      ],
+   q(5405) => [
+      q(Pengo),
+      ],
+   q(5406) => [
+      q(Bonan),
+      ],
+   q(5407) => [
+      q(Chichimeca-Jonaz),
+      ],
+   q(5408) => [
+      q(Northern Pomo),
+      ],
+   q(5409) => [
+      q(Penchal),
+      ],
+   q(5410) => [
+      q(Pekal),
+      ],
+   q(5411) => [
+      q(Phende),
+      ],
+   q(5412) => [
+      q(Kunja),
+      ],
+   q(5413) => [
+      q(Southern Pomo),
+      ],
+   q(5414) => [
+      q(Iranian Persian),
+      ],
+   q(5415) => [
+      q(Pemono),
+      ],
+   q(5416) => [
+      q(Petats),
+      ],
+   q(5417) => [
+      q(Petjo),
+      ],
+   q(5418) => [
+      q(Eastern Penan),
+      ],
+   q(5419) => [
+      q(Paafang),
+      ],
+   q(5420) => [
+      q(Peere),
+      ],
+   q(5421) => [
+      q(Pfaelzisch),
+      ],
+   q(5422) => [
+      q(Sudanese Creole Arabic),
+      ],
+   q(5423) => [
+      q(Gandhari),
+      ],
+   q(5424) => [
+      q(Pangwali),
+      ],
+   q(5425) => [
+      q(Pagi),
+      ],
+   q(5426) => [
+      q(Rerep),
+      ],
+   q(5427) => [
+      q(Primitive Irish),
+      ],
+   q(5428) => [
+      q(Paelignian),
+      ],
+   q(5429) => [
+      q(Pangseng),
+      ],
+   q(5430) => [
+      q(Pagu),
+      ],
+   q(5431) => [
+      q(Papua New Guinean Sign Language),
+      ],
+   q(5432) => [
+      q(Pa-Hng),
+      ],
+   q(5433) => [
+      q(Phudagi),
+      ],
+   q(5434) => [
+      q(Phuong),
+      ],
+   q(5435) => [
+      q(Phukha),
+      ],
+   q(5436) => [
+      q(Phake),
+      ],
+   q(5437) => [
+      q(Phalura),
+      q(Palula),
+      ],
+   q(5438) => [
+      q(Phimbi),
+      ],
+   q(5439) => [
+      q(Phunoi),
+      ],
+   q(5440) => [
+      q(Phana'),
+      ],
+   q(5441) => [
+      q(Pahari-Potwari),
+      ],
+   q(5442) => [
+      q(Phu Thai),
+      ],
+   q(5443) => [
+      q(Phuan),
+      ],
+   q(5444) => [
+      q(Pahlavani),
+      ],
+   q(5445) => [
+      q(Phangduwali),
+      ],
+   q(5446) => [
+      q(Pima Bajo),
+      ],
+   q(5447) => [
+      q(Yine),
+      ],
+   q(5448) => [
+      q(Pinji),
+      ],
+   q(5449) => [
+      q(Piaroa),
+      ],
+   q(5450) => [
+      q(Piro),
+      ],
+   q(5451) => [
+      q(Pingelapese),
+      ],
+   q(5452) => [
+      q(Pisabo),
+      ],
+   q(5453) => [
+      q(Pitcairn-Norfolk),
+      ],
+   q(5454) => [
+      q(Pini),
+      ],
+   q(5455) => [
+      q(Pijao),
+      ],
+   q(5456) => [
+      q(Yom),
+      ],
+   q(5457) => [
+      q(Powhatan),
+      ],
+   q(5458) => [
+      q(Piame),
+      ],
+   q(5459) => [
+      q(Piapoco),
+      ],
+   q(5460) => [
+      q(Pero),
+      ],
+   q(5461) => [
+      q(Piratapuyo),
+      ],
+   q(5462) => [
+      q(Pijin),
+      ],
+   q(5463) => [
+      q(Pitta Pitta),
+      ],
+   q(5464) => [
+      q(Pintupi-Luritja),
+      ],
+   q(5465) => [
+      q(Pileni),
+      q(Vaeakau-Taumako),
+      ],
+   q(5466) => [
+      q(Pimbwe),
+      ],
+   q(5467) => [
+      q(Piu),
+      ],
+   q(5468) => [
+      q(Piya-Kwonci),
+      ],
+   q(5469) => [
+      q(Pije),
+      ],
+   q(5470) => [
+      q(Pitjantjatjara),
+      ],
+   q(5471) => [
+      q(Ardhamagadhi Prakrit),
+      ],
+   q(5472) => [
+      q(Pokomo),
+      q(Kipfokomo),
+      ],
+   q(5473) => [
+      q(Paekche),
+      ],
+   q(5474) => [
+      q(Pak-Tong),
+      ],
+   q(5475) => [
+      q(Pankhu),
+      ],
+   q(5476) => [
+      q(Pakanha),
+      ],
+   q(5477) => [
+      q(Pokoot),
+      ],
+   q(5478) => [
+      q(Pukapuka),
+      ],
+   q(5479) => [
+      q(Attapady Kurumba),
+      ],
+   q(5480) => [
+      q(Pakistan Sign Language),
+      ],
+   q(5481) => [
+      q(Maleng),
+      ],
+   q(5482) => [
+      q(Paku),
+      ],
+   q(5483) => [
+      q(Miani),
+      ],
+   q(5484) => [
+      q(Polonombauk),
+      ],
+   q(5485) => [
+      q(Central Palawano),
+      ],
+   q(5486) => [
+      q(Polari),
+      ],
+   q(5487) => [
+      q(Palu'e),
+      ],
+   q(5488) => [
+      q(Pilaga),
+      ],
+   q(5489) => [
+      q(Paulohi),
+      ],
+   q(5490) => [
+      q(Polci),
+      ],
+   q(5491) => [
+      q(Kohistani Shina),
+      ],
+   q(5492) => [
+      q(Shwe Palaung),
+      ],
+   q(5493) => [
+      q(Palenquero),
+      ],
+   q(5494) => [
+      q(Oluta Popoluca),
+      ],
+   q(5495) => [
+      q(Palpa),
+      ],
+   q(5496) => [
+      q(Palaic),
+      ],
+   q(5497) => [
+      q(Palaka Senoufo),
+      ],
+   q(5498) => [
+      q(San Marcos Tlacoyalco Popoloca),
+      q(San Marcos Tlalcoyalco Popoloca),
+      ],
+   q(5499) => [
+      q(Plateau Malagasy),
+      ],
+   q(5500) => [
+      q(Palikur),
+      ],
+   q(5501) => [
+      q(Southwest Palawano),
+      ],
+   q(5502) => [
+      q(Brooke's Point Palawano),
+      ],
+   q(5503) => [
+      q(Bolyu),
+      ],
+   q(5504) => [
+      q(Paluan),
+      ],
+   q(5505) => [
+      q(Paama),
+      ],
+   q(5506) => [
+      q(Pambia),
+      ],
+   q(5507) => [
+      q(Pallanganmiddang),
+      ],
+   q(5508) => [
+      q(Pwaamei),
+      ],
+   q(5509) => [
+      q(Pamona),
+      ],
+   q(5510) => [
+      q(Maharastri Prakrit),
+      ],
+   q(5511) => [
+      q(Northern Pumi),
+      ],
+   q(5512) => [
+      q(Southern Pumi),
+      ],
+   q(5513) => [
+      q(Pamlico),
+      ],
+   q(5514) => [
+      q(Lingua Franca),
+      ],
+   q(5515) => [
+      q(Pomo),
+      ],
+   q(5516) => [
+      q(Pam),
+      ],
+   q(5517) => [
+      q(Pom),
+      ],
+   q(5518) => [
+      q(Northern Pame),
+      ],
+   q(5519) => [
+      q(Paynamar),
+      ],
+   q(5520) => [
+      q(Piemontese),
+      ],
+   q(5521) => [
+      q(Tuamotuan),
+      ],
+   q(5522) => [
+      q(Plains Miwok),
+      ],
+   q(5523) => [
+      q(Poumei Naga),
+      ],
+   q(5524) => [
+      q(Papuan Malay),
+      ],
+   q(5525) => [
+      q(Southern Pame),
+      ],
+   q(5526) => [
+      q(Punan Bah-Biau),
+      ],
+   q(5527) => [
+      q(Western Panjabi),
+      ],
+   q(5528) => [
+      q(Pannei),
+      ],
+   q(5529) => [
+      q(Western Penan),
+      ],
+   q(5530) => [
+      q(Pongu),
+      ],
+   q(5531) => [
+      q(Penrhyn),
+      ],
+   q(5532) => [
+      q(Aoheng),
+      ],
+   q(5533) => [
+      q(Pinjarup),
+      ],
+   q(5534) => [
+      q(Paunaka),
+      ],
+   q(5535) => [
+      q(Paleni),
+      ],
+   q(5536) => [
+      q(Punan Batu 1),
+      ],
+   q(5537) => [
+      q(Pinai-Hagahai),
+      ],
+   q(5538) => [
+      q(Panobo),
+      ],
+   q(5539) => [
+      q(Pancana),
+      ],
+   q(5540) => [
+      q(Pana (Burkina Faso)),
+      ],
+   q(5541) => [
+      q(Panim),
+      ],
+   q(5542) => [
+      q(Ponosakan),
+      ],
+   q(5543) => [
+      q(Pontic),
+      ],
+   q(5544) => [
+      q(Jiongnai Bunu),
+      ],
+   q(5545) => [
+      q(Pinigura),
+      ],
+   q(5546) => [
+      q(Panytyima),
+      ],
+   q(5547) => [
+      q(Phong-Kniang),
+      ],
+   q(5548) => [
+      q(Pinyin),
+      ],
+   q(5549) => [
+      q(Pana (Central African Republic)),
+      ],
+   q(5550) => [
+      q(Poqomam),
+      ],
+   q(5551) => [
+      q(San Juan Atzingo Popoloca),
+      ],
+   q(5552) => [
+      q(Poke),
+      ],
+   q(5553) => [
+      q(Potiguara),
+      ],
+   q(5554) => [
+      q(Poqomchi'),
+      ],
+   q(5555) => [
+      q(Highland Popoluca),
+      ],
+   q(5556) => [
+      q(Pokanga),
+      ],
+   q(5557) => [
+      q(Southeastern Pomo),
+      ],
+   q(5558) => [
+      q(Central Pomo),
+      ],
+   q(5559) => [
+      q(Pwapwa),
+      ],
+   q(5560) => [
+      q(Texistepec Popoluca),
+      ],
+   q(5561) => [
+      q(Sayula Popoluca),
+      ],
+   q(5562) => [
+      q(Potawatomi),
+      ],
+   q(5563) => [
+      q(Upper Guinea Crioulo),
+      ],
+   q(5564) => [
+      q(San Felipe Otlaltepec Popoloca),
+      ],
+   q(5565) => [
+      q(Polabian),
+      ],
+   q(5566) => [
+      q(Pogolo),
+      ],
+   q(5567) => [
+      q(Papi),
+      ],
+   q(5568) => [
+      q(Paipai),
+      ],
+   q(5569) => [
+      q(Uma),
+      ],
+   q(5570) => [
+      q(Pipil),
+      q(Nicarao),
+      ],
+   q(5571) => [
+      q(Papuma),
+      ],
+   q(5572) => [
+      q(Papapana),
+      ],
+   q(5573) => [
+      q(Folopa),
+      ],
+   q(5574) => [
+      q(Pelende),
+      ],
+   q(5575) => [
+      q(Pei),
+      ],
+   q(5576) => [
+      q(San Luis Temalacayuca Popoloca),
+      ],
+   q(5577) => [
+      q(Pare),
+      ],
+   q(5578) => [
+      q(Papora),
+      ],
+   q(5579) => [
+      q(Pa'a),
+      ],
+   q(5580) => [
+      q(Malecite-Passamaquoddy),
+      ],
+   q(5581) => [
+      q(Parachi),
+      ],
+   q(5582) => [
+      q(Parsi-Dari),
+      ],
+   q(5583) => [
+      q(Principense),
+      ],
+   q(5584) => [
+      q(Paranan),
+      ],
+   q(5585) => [
+      q(Prussian),
+      ],
+   q(5586) => [
+      q(Porohanon),
+      ],
+   q(5587) => [
+      q(Paici),
+      ],
+   q(5588) => [
+      q(Parauk),
+      ],
+   q(5589) => [
+      q(Peruvian Sign Language),
+      ],
+   q(5590) => [
+      q(Kibiri),
+      ],
+   q(5591) => [
+      q(Prasuni),
+      ],
+   q(5592) => [
+      q(Parsi),
+      ],
+   q(5593) => [
+      q(Asheninka Perene),
+      ],
+   q(5594) => [
+      q(Puri),
+      ],
+   q(5595) => [
+      q(Dari),
+      q(Afghan Persian),
+      ],
+   q(5596) => [
+      q(Phai),
+      ],
+   q(5597) => [
+      q(Puragi),
+      ],
+   q(5598) => [
+      q(Parawen),
+      ],
+   q(5599) => [
+      q(Purik),
+      ],
+   q(5600) => [
+      q(Providencia Sign Language),
+      ],
+   q(5601) => [
+      q(Asue Awyu),
+      ],
+   q(5602) => [
+      q(Persian Sign Language),
+      ],
+   q(5603) => [
+      q(Plains Indian Sign Language),
+      ],
+   q(5604) => [
+      q(Central Malay),
+      ],
+   q(5605) => [
+      q(Penang Sign Language),
+      ],
+   q(5606) => [
+      q(Southwest Pashai),
+      q(Southwest Pashayi),
+      ],
+   q(5607) => [
+      q(Southeast Pashai),
+      q(Southeast Pashayi),
+      ],
+   q(5608) => [
+      q(Puerto Rican Sign Language),
+      ],
+   q(5609) => [
+      q(Pauserna),
+      ],
+   q(5610) => [
+      q(Panasuan),
+      ],
+   q(5611) => [
+      q(Polish Sign Language),
+      ],
+   q(5612) => [
+      q(Philippine Sign Language),
+      ],
+   q(5613) => [
+      q(Pasi),
+      ],
+   q(5614) => [
+      q(Portuguese Sign Language),
+      ],
+   q(5615) => [
+      q(Kaulong),
+      ],
+   q(5616) => [
+      q(Central Pashto),
+      ],
+   q(5617) => [
+      q(Sauraseni Prakrit),
+      ],
+   q(5618) => [
+      q(Port Sandwich),
+      ],
+   q(5619) => [
+      q(Piscataway),
+      ],
+   q(5620) => [
+      q(Pai Tavytera),
+      ],
+   q(5621) => [
+      q(Pataxo Ha-Ha-Hae),
+      ],
+   q(5622) => [
+      q(Pintiini),
+      ],
+   q(5623) => [
+      q(Patani),
+      ],
+   q(5624) => [
+      q(Zo'e),
+      ],
+   q(5625) => [
+      q(Patep),
+      ],
+   q(5626) => [
+      q(Pattapu),
+      ],
+   q(5627) => [
+      q(Piamatsina),
+      ],
+   q(5628) => [
+      q(Enrekang),
+      ],
+   q(5629) => [
+      q(Bambam),
+      ],
+   q(5630) => [
+      q(Port Vato),
+      ],
+   q(5631) => [
+      q(Pentlatch),
+      ],
+   q(5632) => [
+      q(Pathiya),
+      ],
+   q(5633) => [
+      q(Western Highland Purepecha),
+      ],
+   q(5634) => [
+      q(Purum),
+      ],
+   q(5635) => [
+      q(Punan Merap),
+      ],
+   q(5636) => [
+      q(Punan Aput),
+      ],
+   q(5637) => [
+      q(Puelche),
+      ],
+   q(5638) => [
+      q(Punan Merah),
+      ],
+   q(5639) => [
+      q(Phuie),
+      ],
+   q(5640) => [
+      q(Puinave),
+      ],
+   q(5641) => [
+      q(Punan Tubu),
+      ],
+   q(5642) => [
+      q(Puma),
+      ],
+   q(5643) => [
+      q(Puoc),
+      ],
+   q(5644) => [
+      q(Pulabu),
+      ],
+   q(5645) => [
+      q(Puquina),
+      ],
+   q(5646) => [
+      q(Purubora),
+      ],
+   q(5647) => [
+      q(Putoh),
+      ],
+   q(5648) => [
+      q(Punu),
+      ],
+   q(5649) => [
+      q(Puluwatese),
+      ],
+   q(5650) => [
+      q(Puare),
+      ],
+   q(5651) => [
+      q(Purisimeno),
+      ],
+   q(5652) => [
+      q(Pawaia),
+      ],
+   q(5653) => [
+      q(Panawa),
+      ],
+   q(5654) => [
+      q(Gapapaiwa),
+      ],
+   q(5655) => [
+      q(Patwin),
+      ],
+   q(5656) => [
+      q(Molbog),
+      ],
+   q(5657) => [
+      q(Paiwan),
+      ],
+   q(5658) => [
+      q(Pwo Western Karen),
+      ],
+   q(5659) => [
+      q(Powari),
+      ],
+   q(5660) => [
+      q(Pwo Northern Karen),
+      ],
+   q(5661) => [
+      q(Quetzaltepec Mixe),
+      ],
+   q(5662) => [
+      q(Pye Krumen),
+      ],
+   q(5663) => [
+      q(Fyam),
+      ],
+   q(5664) => [
+      q(Poyanawa),
+      ],
+   q(5665) => [
+      q(Paraguayan Sign Language),
+      q(Lengua de Senas del Paraguay),
+      ],
+   q(5666) => [
+      q(Puyuma),
+      ],
+   q(5667) => [
+      q(Pyu (Myanmar)),
+      ],
+   q(5668) => [
+      q(Pyen),
+      ],
+   q(5669) => [
+      q(Para Naga),
+      ],
+   q(5670) => [
+      q(Quapaw),
+      ],
+   q(5671) => [
+      q(Huallaga Huanuco Quechua),
+      ],
+   q(5672) => [
+      q(K'iche'),
+      q(Quiche),
+      ],
+   q(5673) => [
+      q(Calderon Highland Quichua),
+      ],
+   q(5674) => [
+      q(Lambayeque Quechua),
+      ],
+   q(5675) => [
+      q(Chimborazo Highland Quichua),
+      ],
+   q(5676) => [
+      q(South Bolivian Quechua),
+      ],
+   q(5677) => [
+      q(Quileute),
+      ],
+   q(5678) => [
+      q(Chachapoyas Quechua),
+      ],
+   q(5679) => [
+      q(North Bolivian Quechua),
+      ],
+   q(5680) => [
+      q(Sipacapense),
+      ],
+   q(5681) => [
+      q(Quinault),
+      ],
+   q(5682) => [
+      q(Southern Pastaza Quechua),
+      ],
+   q(5683) => [
+      q(Quinqui),
+      ],
+   q(5684) => [
+      q(Yanahuanca Pasco Quechua),
+      ],
+   q(5685) => [
+      q(Santiago del Estero Quichua),
+      ],
+   q(5686) => [
+      q(Sacapulteco),
+      ],
+   q(5687) => [
+      q(Tena Lowland Quichua),
+      ],
+   q(5688) => [
+      q(Yauyos Quechua),
+      ],
+   q(5689) => [
+      q(Ayacucho Quechua),
+      ],
+   q(5690) => [
+      q(Cusco Quechua),
+      ],
+   q(5691) => [
+      q(Ambo-Pasco Quechua),
+      ],
+   q(5692) => [
+      q(Cajamarca Quechua),
+      ],
+   q(5693) => [
+      q(Eastern Apurimac Quechua),
+      ],
+   q(5694) => [
+      q(Huamalies-Dos de Mayo Huanuco Quechua),
+      ],
+   q(5695) => [
+      q(Imbabura Highland Quichua),
+      ],
+   q(5696) => [
+      q(Loja Highland Quichua),
+      ],
+   q(5697) => [
+      q(Cajatambo North Lima Quechua),
+      ],
+   q(5698) => [
+      q(Margos-Yarowilca-Lauricocha Quechua),
+      ],
+   q(5699) => [
+      q(North Junin Quechua),
+      ],
+   q(5700) => [
+      q(Napo Lowland Quechua),
+      ],
+   q(5701) => [
+      q(Pacaraos Quechua),
+      ],
+   q(5702) => [
+      q(San Martin Quechua),
+      ],
+   q(5703) => [
+      q(Huaylla Wanca Quechua),
+      ],
+   q(5704) => [
+      q(Queyu),
+      ],
+   q(5705) => [
+      q(Northern Pastaza Quichua),
+      ],
+   q(5706) => [
+      q(Corongo Ancash Quechua),
+      ],
+   q(5707) => [
+      q(Classical Quechua),
+      ],
+   q(5708) => [
+      q(Huaylas Ancash Quechua),
+      ],
+   q(5709) => [
+      q(Kuman (Russia)),
+      ],
+   q(5710) => [
+      q(Sihuas Ancash Quechua),
+      ],
+   q(5711) => [
+      q(Kwalhioqua-Tlatskanai),
+      ],
+   q(5712) => [
+      q(Chiquian Ancash Quechua),
+      ],
+   q(5713) => [
+      q(Chincha Quechua),
+      ],
+   q(5714) => [
+      q(Panao Huanuco Quechua),
+      ],
+   q(5715) => [
+      q(Salasaca Highland Quichua),
+      ],
+   q(5716) => [
+      q(Northern Conchucos Ancash Quechua),
+      ],
+   q(5717) => [
+      q(Southern Conchucos Ancash Quechua),
+      ],
+   q(5718) => [
+      q(Puno Quechua),
+      ],
+   q(5719) => [
+      q(Qashqa'i),
+      ],
+   q(5720) => [
+      q(Canar Highland Quichua),
+      ],
+   q(5721) => [
+      q(Southern Qiang),
+      ],
+   q(5722) => [
+      q(Santa Ana de Tusi Pasco Quechua),
+      ],
+   q(5723) => [
+      q(Arequipa-La Union Quechua),
+      ],
+   q(5724) => [
+      q(Jauja Wanca Quechua),
+      ],
+   q(5725) => [
+      q(Quenya),
+      ],
+   q(5726) => [
+      q(Quiripi),
+      ],
+   q(5727) => [
+      q(Dungmali),
+      ],
+   q(5728) => [
+      q(Camling),
+      ],
+   q(5729) => [
+      q(Rasawa),
+      ],
+   q(5730) => [
+      q(Rade),
+      ],
+   q(5731) => [
+      q(Western Meohang),
+      ],
+   q(5732) => [
+      q(Logooli),
+      q(Lulogooli),
+      ],
+   q(5733) => [
+      q(Rabha),
+      ],
+   q(5734) => [
+      q(Ramoaaina),
+      ],
+   q(5735) => [
+      q(Tulu-Bohuai),
+      ],
+   q(5736) => [
+      q(Ralte),
+      ],
+   q(5737) => [
+      q(Canela),
+      ],
+   q(5738) => [
+      q(Riantana),
+      ],
+   q(5739) => [
+      q(Rao),
+      ],
+   q(5740) => [
+      q(Saam),
+      ],
+   q(5741) => [
+      q(Tegali),
+      ],
+   q(5742) => [
+      q(Razajerdi),
+      ],
+   q(5743) => [
+      q(Raute),
+      ],
+   q(5744) => [
+      q(Sampang),
+      ],
+   q(5745) => [
+      q(Rawang),
+      ],
+   q(5746) => [
+      q(Rang),
+      ],
+   q(5747) => [
+      q(Rapa),
+      ],
+   q(5748) => [
+      q(Rahambuu),
+      ],
+   q(5749) => [
+      q(Rumai Palaung),
+      ],
+   q(5750) => [
+      q(Northern Bontok),
+      ],
+   q(5751) => [
+      q(Miraya Bikol),
+      ],
+   q(5752) => [
+      q(Barababaraba),
+      ],
+   q(5753) => [
+      q(Reunion Creole French),
+      ],
+   q(5754) => [
+      q(Rudbari),
+      ],
+   q(5755) => [
+      q(Rerau),
+      ],
+   q(5756) => [
+      q(Rembong),
+      ],
+   q(5757) => [
+      q(Rejang Kayan),
+      ],
+   q(5758) => [
+      q(Kara (Tanzania)),
+      ],
+   q(5759) => [
+      q(Reli),
+      ],
+   q(5760) => [
+      q(Rejang),
+      ],
+   q(5761) => [
+      q(Rendille),
+      ],
+   q(5762) => [
+      q(Remo),
+      ],
+   q(5763) => [
+      q(Rengao),
+      ],
+   q(5764) => [
+      q(Rer Bare),
+      ],
+   q(5765) => [
+      q(Reshe),
+      ],
+   q(5766) => [
+      q(Retta),
+      ],
+   q(5767) => [
+      q(Reyesano),
+      ],
+   q(5768) => [
+      q(Roria),
+      ],
+   q(5769) => [
+      q(Romano-Greek),
+      ],
+   q(5770) => [
+      q(Rangkas),
+      ],
+   q(5771) => [
+      q(Romagnol),
+      ],
+   q(5772) => [
+      q(Resigaro),
+      ],
+   q(5773) => [
+      q(Southern Roglai),
+      ],
+   q(5774) => [
+      q(Ringgou),
+      ],
+   q(5775) => [
+      q(Rohingya),
+      ],
+   q(5776) => [
+      q(Yahang),
+      ],
+   q(5777) => [
+      q(Riang (India)),
+      ],
+   q(5778) => [
+      q(Tarifit),
+      ],
+   q(5779) => [
+      q(Riang (Myanmar)),
+      ],
+   q(5780) => [
+      q(Nyaturu),
+      ],
+   q(5781) => [
+      q(Nungu),
+      ],
+   q(5782) => [
+      q(Ribun),
+      ],
+   q(5783) => [
+      q(Ritarungo),
+      ],
+   q(5784) => [
+      q(Riung),
+      ],
+   q(5785) => [
+      q(Rajong),
+      ],
+   q(5786) => [
+      q(Raji),
+      ],
+   q(5787) => [
+      q(Rajbanshi),
+      ],
+   q(5788) => [
+      q(Kraol),
+      ],
+   q(5789) => [
+      q(Rikbaktsa),
+      ],
+   q(5790) => [
+      q(Rakahanga-Manihiki),
+      ],
+   q(5791) => [
+      q(Rakhine),
+      ],
+   q(5792) => [
+      q(Marka),
+      ],
+   q(5793) => [
+      q(Rangpuri),
+      q(Kamta),
+      ],
+   q(5794) => [
+      q(Arakwal),
+      ],
+   q(5795) => [
+      q(Rama),
+      ],
+   q(5796) => [
+      q(Rembarunga),
+      ],
+   q(5797) => [
+      q(Carpathian Romani),
+      ],
+   q(5798) => [
+      q(Traveller Danish),
+      ],
+   q(5799) => [
+      q(Angloromani),
+      ],
+   q(5800) => [
+      q(Kalo Finnish Romani),
+      ],
+   q(5801) => [
+      q(Traveller Norwegian),
+      ],
+   q(5802) => [
+      q(Murkim),
+      ],
+   q(5803) => [
+      q(Lomavren),
+      ],
+   q(5804) => [
+      q(Romkun),
+      ],
+   q(5805) => [
+      q(Baltic Romani),
+      ],
+   q(5806) => [
+      q(Roma),
+      ],
+   q(5807) => [
+      q(Balkan Romani),
+      ],
+   q(5808) => [
+      q(Sinte Romani),
+      ],
+   q(5809) => [
+      q(Rempi),
+      ],
+   q(5810) => [
+      q(Calo),
+      ],
+   q(5811) => [
+      q(Romanian Sign Language),
+      ],
+   q(5812) => [
+      q(Domari),
+      ],
+   q(5813) => [
+      q(Tavringer Romani),
+      ],
+   q(5814) => [
+      q(Romanova),
+      ],
+   q(5815) => [
+      q(Welsh Romani),
+      ],
+   q(5816) => [
+      q(Romam),
+      ],
+   q(5817) => [
+      q(Vlax Romani),
+      ],
+   q(5818) => [
+      q(Marma),
+      ],
+   q(5819) => [
+      q(Ruund),
+      ],
+   q(5820) => [
+      q(Ronga),
+      ],
+   q(5821) => [
+      q(Ranglong),
+      ],
+   q(5822) => [
+      q(Roon),
+      ],
+   q(5823) => [
+      q(Rongpo),
+      ],
+   q(5824) => [
+      q(Nari Nari),
+      ],
+   q(5825) => [
+      q(Rungwa),
+      ],
+   q(5826) => [
+      q(Tae'),
+      ],
+   q(5827) => [
+      q(Cacgia Roglai),
+      ],
+   q(5828) => [
+      q(Rogo),
+      ],
+   q(5829) => [
+      q(Ronji),
+      ],
+   q(5830) => [
+      q(Rombo),
+      ],
+   q(5831) => [
+      q(Northern Roglai),
+      ],
+   q(5832) => [
+      q(Romblomanon),
+      ],
+   q(5833) => [
+      q(Rotokas),
+      ],
+   q(5834) => [
+      q(Kriol),
+      ],
+   q(5835) => [
+      q(Rongga),
+      ],
+   q(5836) => [
+      q(Runga),
+      ],
+   q(5837) => [
+      q(Dela-Oenale),
+      ],
+   q(5838) => [
+      q(Repanbitip),
+      ],
+   q(5839) => [
+      q(Rapting),
+      ],
+   q(5840) => [
+      q(Ririo),
+      ],
+   q(5841) => [
+      q(Waima),
+      ],
+   q(5842) => [
+      q(Arritinngithigh),
+      ],
+   q(5843) => [
+      q(Romano-Serbian),
+      ],
+   q(5844) => [
+      q(Russian Sign Language),
+      ],
+   q(5845) => [
+      q(Miriwoong Sign Language),
+      ],
+   q(5846) => [
+      q(Rungtu Chin),
+      ],
+   q(5847) => [
+      q(Ratahan),
+      ],
+   q(5848) => [
+      q(Rotuman),
+      ],
+   q(5849) => [
+      q(Yurats),
+      ],
+   q(5850) => [
+      q(Rathawi),
+      ],
+   q(5851) => [
+      q(Gungu),
+      ],
+   q(5852) => [
+      q(Ruuli),
+      ],
+   q(5853) => [
+      q(Rusyn),
+      ],
+   q(5854) => [
+      q(Luguru),
+      ],
+   q(5855) => [
+      q(Roviana),
+      ],
+   q(5856) => [
+      q(Ruga),
+      ],
+   q(5857) => [
+      q(Rufiji),
+      ],
+   q(5858) => [
+      q(Che),
+      ],
+   q(5859) => [
+      q(Istro Romanian),
+      ],
+   q(5860) => [
+      q(Megleno Romanian),
+      ],
+   q(5861) => [
+      q(Rutul),
+      ],
+   q(5862) => [
+      q(Lanas Lobu),
+      ],
+   q(5863) => [
+      q(Mala (Nigeria)),
+      ],
+   q(5864) => [
+      q(Ruma),
+      ],
+   q(5865) => [
+      q(Rawo),
+      ],
+   q(5866) => [
+      q(Rwa),
+      ],
+   q(5867) => [
+      q(Amba (Uganda)),
+      ],
+   q(5868) => [
+      q(Rawa),
+      ],
+   q(5869) => [
+      q(Marwari (India)),
+      ],
+   q(5870) => [
+      q(Ngardi),
+      ],
+   q(5871) => [
+      q(Karuwali),
+      ],
+   q(5872) => [
+      q(Northern Amami-Oshima),
+      ],
+   q(5873) => [
+      q(Yaeyama),
+      ],
+   q(5874) => [
+      q(Central Okinawan),
+      ],
+   q(5875) => [
+      q(Razihi),
+      ],
+   q(5876) => [
+      q(Saba),
+      ],
+   q(5877) => [
+      q(Buglere),
+      ],
+   q(5878) => [
+      q(Meskwaki),
+      ],
+   q(5879) => [
+      q(Sabane),
+      ],
+   q(5880) => [
+      q(Safaliba),
+      ],
+   q(5881) => [
+      q(Sahu),
+      ],
+   q(5882) => [
+      q(Sake),
+      ],
+   q(5883) => [
+      q(Sause),
+      ],
+   q(5884) => [
+      q(Samburu),
+      ],
+   q(5885) => [
+      q(Saraveca),
+      ],
+   q(5886) => [
+      q(Saleman),
+      ],
+   q(5887) => [
+      q(Saafi-Saafi),
+      ],
+   q(5888) => [
+      q(Sawi),
+      ],
+   q(5889) => [
+      q(Sa),
+      ],
+   q(5890) => [
+      q(Saya),
+      ],
+   q(5891) => [
+      q(Saurashtra),
+      ],
+   q(5892) => [
+      q(Ngambay),
+      ],
+   q(5893) => [
+      q(Simbo),
+      ],
+   q(5894) => [
+      q(Kele (Papua New Guinea)),
+      ],
+   q(5895) => [
+      q(Southern Samo),
+      ],
+   q(5896) => [
+      q(Saliba),
+      ],
+   q(5897) => [
+      q(Chabu),
+      q(Shabo),
+      ],
+   q(5898) => [
+      q(Seget),
+      ],
+   q(5899) => [
+      q(Sori-Harengan),
+      ],
+   q(5900) => [
+      q(Seti),
+      ],
+   q(5901) => [
+      q(Surbakhal),
+      ],
+   q(5902) => [
+      q(Safwa),
+      ],
+   q(5903) => [
+      q(Botolan Sambal),
+      ],
+   q(5904) => [
+      q(Sagala),
+      ],
+   q(5905) => [
+      q(Sindhi Bhil),
+      ],
+   q(5906) => [
+      q(Sabum),
+      ],
+   q(5907) => [
+      q(Sangu (Tanzania)),
+      ],
+   q(5908) => [
+      q(Sileibi),
+      ],
+   q(5909) => [
+      q(Sembakung Murut),
+      ],
+   q(5910) => [
+      q(Subiya),
+      ],
+   q(5911) => [
+      q(Kimki),
+      ],
+   q(5912) => [
+      q(Stod Bhoti),
+      ],
+   q(5913) => [
+      q(Sabine),
+      ],
+   q(5914) => [
+      q(Simba),
+      ],
+   q(5915) => [
+      q(Seberuang),
+      ],
+   q(5916) => [
+      q(Soli),
+      ],
+   q(5917) => [
+      q(Sara Kaba),
+      ],
+   q(5918) => [
+      q(Chut),
+      ],
+   q(5919) => [
+      q(Dongxiang),
+      ],
+   q(5920) => [
+      q(San Miguel Creole French),
+      ],
+   q(5921) => [
+      q(Sanggau),
+      ],
+   q(5922) => [
+      q(Sakachep),
+      ],
+   q(5923) => [
+      q(Sri Lankan Creole Malay),
+      ],
+   q(5924) => [
+      q(Sadri),
+      ],
+   q(5925) => [
+      q(Shina),
+      ],
+   q(5926) => [
+      q(Helambu Sherpa),
+      ],
+   q(5927) => [
+      q(Sa'och),
+      ],
+   q(5928) => [
+      q(North Slavey),
+      ],
+   q(5929) => [
+      q(Southern Katang),
+      ],
+   q(5930) => [
+      q(Shumcho),
+      ],
+   q(5931) => [
+      q(Sheni),
+      ],
+   q(5932) => [
+      q(Sha),
+      ],
+   q(5933) => [
+      q(Sicel),
+      ],
+   q(5934) => [
+      q(Toraja-Sa'dan),
+      ],
+   q(5935) => [
+      q(Shabak),
+      ],
+   q(5936) => [
+      q(Sassarese Sardinian),
+      ],
+   q(5937) => [
+      q(Surubu),
+      ],
+   q(5938) => [
+      q(Sarli),
+      ],
+   q(5939) => [
+      q(Savi),
+      ],
+   q(5940) => [
+      q(Southern Kurdish),
+      ],
+   q(5941) => [
+      q(Suundi),
+      ],
+   q(5942) => [
+      q(Sos Kundi),
+      ],
+   q(5943) => [
+      q(Saudi Arabian Sign Language),
+      ],
+   q(5944) => [
+      q(Semandang),
+      ],
+   q(5945) => [
+      q(Gallurese Sardinian),
+      ],
+   q(5946) => [
+      q(Bukar-Sadung Bidayuh),
+      ],
+   q(5947) => [
+      q(Sherdukpen),
+      ],
+   q(5948) => [
+      q(Oraon Sadri),
+      ],
+   q(5949) => [
+      q(Sened),
+      ],
+   q(5950) => [
+      q(Shuadit),
+      ],
+   q(5951) => [
+      q(Sarudu),
+      ],
+   q(5952) => [
+      q(Sibu Melanau),
+      ],
+   q(5953) => [
+      q(Sallands),
+      ],
+   q(5954) => [
+      q(Semai),
+      ],
+   q(5955) => [
+      q(Shempire Senoufo),
+      ],
+   q(5956) => [
+      q(Sechelt),
+      ],
+   q(5957) => [
+      q(Sedang),
+      ],
+   q(5958) => [
+      q(Seneca),
+      ],
+   q(5959) => [
+      q(Cebaara Senoufo),
+      ],
+   q(5960) => [
+      q(Segeju),
+      ],
+   q(5961) => [
+      q(Sena),
+      ],
+   q(5962) => [
+      q(Seri),
+      ],
+   q(5963) => [
+      q(Sene),
+      ],
+   q(5964) => [
+      q(Sekani),
+      ],
+   q(5965) => [
+      q(Nanerige Senoufo),
+      ],
+   q(5966) => [
+      q(Suarmin),
+      ],
+   q(5967) => [
+      q(Sicite Senoufo),
+      ],
+   q(5968) => [
+      q(Senara Senoufo),
+      ],
+   q(5969) => [
+      q(Serrano),
+      ],
+   q(5970) => [
+      q(Koyraboro Senni Songhai),
+      ],
+   q(5971) => [
+      q(Sentani),
+      ],
+   q(5972) => [
+      q(Serui-Laut),
+      ],
+   q(5973) => [
+      q(Nyarafolo Senoufo),
+      ],
+   q(5974) => [
+      q(Sewa Bay),
+      ],
+   q(5975) => [
+      q(Secoya),
+      ],
+   q(5976) => [
+      q(Senthang Chin),
+      ],
+   q(5977) => [
+      q(Langue des signes de Belgique Francophone),
+      q(French Belgian Sign Language),
+      ],
+   q(5978) => [
+      q(Eastern Subanen),
+      ],
+   q(5979) => [
+      q(Small Flowery Miao),
+      ],
+   q(5980) => [
+      q(South African Sign Language),
+      ],
+   q(5981) => [
+      q(Sehwi),
+      ],
+   q(5982) => [
+      q(Mag-antsi Ayta),
+      ],
+   q(5983) => [
+      q(Kipsigis),
+      ],
+   q(5984) => [
+      q(Surigaonon),
+      ],
+   q(5985) => [
+      q(Segai),
+      ],
+   q(5986) => [
+      q(Swiss-German Sign Language),
+      ],
+   q(5987) => [
+      q(Shughni),
+      ],
+   q(5988) => [
+      q(Suga),
+      ],
+   q(5989) => [
+      q(Surgujia),
+      ],
+   q(5990) => [
+      q(Sangkong),
+      ],
+   q(5991) => [
+      q(Singa),
+      ],
+   q(5992) => [
+      q(Singpho),
+      ],
+   q(5993) => [
+      q(Sangisari),
+      ],
+   q(5994) => [
+      q(Samogitian),
+      ],
+   q(5995) => [
+      q(Brokpake),
+      ],
+   q(5996) => [
+      q(Salas),
+      ],
+   q(5997) => [
+      q(Sebat Bet Gurage),
+      ],
+   q(5998) => [
+      q(Sierra Leone Sign Language),
+      ],
+   q(5999) => [
+      q(Sanglechi),
+      ],
+   q(6000) => [
+      q(Sursurunga),
+      ],
+   q(6001) => [
+      q(Shall-Zwall),
+      ],
+   q(6002) => [
+      q(Ninam),
+      ],
+   q(6003) => [
+      q(Sonde),
+      ],
+   q(6004) => [
+      q(Kundal Shahi),
+      ],
+   q(6005) => [
+      q(Sheko),
+      ],
+   q(6006) => [
+      q(Shua),
+      ],
+   q(6007) => [
+      q(Shoshoni),
+      ],
+   q(6008) => [
+      q(Tachelhit),
+      ],
+   q(6009) => [
+      q(Shatt),
+      ],
+   q(6010) => [
+      q(Shilluk),
+      ],
+   q(6011) => [
+      q(Shendu),
+      ],
+   q(6012) => [
+      q(Shahrudi),
+      ],
+   q(6013) => [
+      q(Shanga),
+      ],
+   q(6014) => [
+      q(Shipibo-Conibo),
+      ],
+   q(6015) => [
+      q(Sala),
+      ],
+   q(6016) => [
+      q(Shi),
+      ],
+   q(6017) => [
+      q(Shuswap),
+      ],
+   q(6018) => [
+      q(Shasta),
+      ],
+   q(6019) => [
+      q(Chadian Arabic),
+      ],
+   q(6020) => [
+      q(Shehri),
+      ],
+   q(6021) => [
+      q(Shwai),
+      ],
+   q(6022) => [
+      q(She),
+      ],
+   q(6023) => [
+      q(Tachawit),
+      ],
+   q(6024) => [
+      q(Syenara Senoufo),
+      ],
+   q(6025) => [
+      q(Akkala Sami),
+      ],
+   q(6026) => [
+      q(Sebop),
+      ],
+   q(6027) => [
+      q(Simaa),
+      ],
+   q(6028) => [
+      q(Siamou),
+      ],
+   q(6029) => [
+      q(Paasaal),
+      ],
+   q(6030) => [
+      q(Zire),
+      q(Sishee),
+      ],
+   q(6031) => [
+      q(Shom Peng),
+      ],
+   q(6032) => [
+      q(Numbami),
+      ],
+   q(6033) => [
+      q(Sikiana),
+      ],
+   q(6034) => [
+      q(Tumulung Sisaala),
+      ],
+   q(6035) => [
+      q(Mende (Papua New Guinea)),
+      ],
+   q(6036) => [
+      q(Sikkimese),
+      ],
+   q(6037) => [
+      q(Sonia),
+      ],
+   q(6038) => [
+      q(Siri),
+      ],
+   q(6039) => [
+      q(Siuslaw),
+      ],
+   q(6040) => [
+      q(Sinagen),
+      ],
+   q(6041) => [
+      q(Sumariup),
+      ],
+   q(6042) => [
+      q(Siwai),
+      ],
+   q(6043) => [
+      q(Sumau),
+      ],
+   q(6044) => [
+      q(Sivandi),
+      ],
+   q(6045) => [
+      q(Siwi),
+      ],
+   q(6046) => [
+      q(Epena),
+      ],
+   q(6047) => [
+      q(Sajau Basap),
+      ],
+   q(6048) => [
+      q(Kildin Sami),
+      ],
+   q(6049) => [
+      q(Pite Sami),
+      ],
+   q(6050) => [
+      q(Assangori),
+      ],
+   q(6051) => [
+      q(Kemi Sami),
+      ],
+   q(6052) => [
+      q(Sajalong),
+      q(Miji),
+      ],
+   q(6053) => [
+      q(Mapun),
+      ],
+   q(6054) => [
+      q(Sindarin),
+      ],
+   q(6055) => [
+      q(Xibe),
+      ],
+   q(6056) => [
+      q(Surjapuri),
+      ],
+   q(6057) => [
+      q(Siar-Lak),
+      ],
+   q(6058) => [
+      q(Senhaja De Srair),
+      ],
+   q(6059) => [
+      q(Ter Sami),
+      ],
+   q(6060) => [
+      q(Ume Sami),
+      ],
+   q(6061) => [
+      q(Shawnee),
+      ],
+   q(6062) => [
+      q(Skagit),
+      ],
+   q(6063) => [
+      q(Saek),
+      ],
+   q(6064) => [
+      q(Ma Manda),
+      ],
+   q(6065) => [
+      q(Southern Sierra Miwok),
+      ],
+   q(6066) => [
+      q(Seke (Vanuatu)),
+      ],
+   q(6067) => [
+      q(Sakirabia),
+      ],
+   q(6068) => [
+      q(Sakalava Malagasy),
+      ],
+   q(6069) => [
+      q(Sikule),
+      ],
+   q(6070) => [
+      q(Sika),
+      ],
+   q(6071) => [
+      q(Seke (Nepal)),
+      ],
+   q(6072) => [
+      q(Kutong),
+      ],
+   q(6073) => [
+      q(Kolibugan Subanon),
+      ],
+   q(6074) => [
+      q(Seko Tengah),
+      ],
+   q(6075) => [
+      q(Sekapan),
+      ],
+   q(6076) => [
+      q(Sininkere),
+      ],
+   q(6077) => [
+      q(Saraiki),
+      q(Seraiki),
+      ],
+   q(6078) => [
+      q(Maia),
+      ],
+   q(6079) => [
+      q(Sakata),
+      ],
+   q(6080) => [
+      q(Sakao),
+      ],
+   q(6081) => [
+      q(Skou),
+      ],
+   q(6082) => [
+      q(Skepi Creole Dutch),
+      ],
+   q(6083) => [
+      q(Seko Padang),
+      ],
+   q(6084) => [
+      q(Sikaiana),
+      ],
+   q(6085) => [
+      q(Sekar),
+      ],
+   q(6086) => [
+      q(Sissala),
+      ],
+   q(6087) => [
+      q(Sholaga),
+      ],
+   q(6088) => [
+      q(Swiss-Italian Sign Language),
+      ],
+   q(6089) => [
+      q(Selungai Murut),
+      ],
+   q(6090) => [
+      q(Southern Puget Sound Salish),
+      ],
+   q(6091) => [
+      q(Lower Silesian),
+      ],
+   q(6092) => [
+      q(Saluma),
+      ],
+   q(6093) => [
+      q(Salt-Yui),
+      ],
+   q(6094) => [
+      q(Pangutaran Sama),
+      ],
+   q(6095) => [
+      q(Salinan),
+      ],
+   q(6096) => [
+      q(Lamaholot),
+      ],
+   q(6097) => [
+      q(Salchuq),
+      ],
+   q(6098) => [
+      q(Salar),
+      ],
+   q(6099) => [
+      q(Singapore Sign Language),
+      ],
+   q(6100) => [
+      q(Sila),
+      ],
+   q(6101) => [
+      q(Selaru),
+      ],
+   q(6102) => [
+      q(Sialum),
+      ],
+   q(6103) => [
+      q(Salampasu),
+      ],
+   q(6104) => [
+      q(Selayar),
+      ],
+   q(6105) => [
+      q(Ma'ya),
+      ],
+   q(6106) => [
+      q(Simbari),
+      ],
+   q(6107) => [
+      q(Som),
+      ],
+   q(6108) => [
+      q(Sama),
+      ],
+   q(6109) => [
+      q(Auwe),
+      ],
+   q(6110) => [
+      q(Simbali),
+      ],
+   q(6111) => [
+      q(Samei),
+      ],
+   q(6112) => [
+      q(Bolinao),
+      ],
+   q(6113) => [
+      q(Central Sama),
+      ],
+   q(6114) => [
+      q(Musasa),
+      ],
+   q(6115) => [
+      q(Samaritan),
+      ],
+   q(6116) => [
+      q(Samo),
+      ],
+   q(6117) => [
+      q(Simeulue),
+      ],
+   q(6118) => [
+      q(Simte),
+      ],
+   q(6119) => [
+      q(Somray),
+      ],
+   q(6120) => [
+      q(Samvedi),
+      ],
+   q(6121) => [
+      q(Sumbawa),
+      ],
+   q(6122) => [
+      q(Samba),
+      ],
+   q(6123) => [
+      q(Semnani),
+      ],
+   q(6124) => [
+      q(Simeku),
+      ],
+   q(6125) => [
+      q(Sebuyau),
+      ],
+   q(6126) => [
+      q(Sinaugoro),
+      ],
+   q(6127) => [
+      q(Bau Bidayuh),
+      ],
+   q(6128) => [
+      q(Noon),
+      ],
+   q(6129) => [
+      q(Sanga (Democratic Republic of Congo)),
+      ],
+   q(6130) => [
+      q(Sensi),
+      ],
+   q(6131) => [
+      q(Riverain Sango),
+      ],
+   q(6132) => [
+      q(Sangil),
+      ],
+   q(6133) => [
+      q(Southern Ma'di),
+      ],
+   q(6134) => [
+      q(Siona),
+      ],
+   q(6135) => [
+      q(Snohomish),
+      ],
+   q(6136) => [
+      q(Siane),
+      ],
+   q(6137) => [
+      q(Sangu (Gabon)),
+      ],
+   q(6138) => [
+      q(Sihan),
+      ],
+   q(6139) => [
+      q(South West Bay),
+      q(Nahavaq),
+      ],
+   q(6140) => [
+      q(Senggi),
+      q(Viid),
+      ],
+   q(6141) => [
+      q(Sa'ban),
+      ],
+   q(6142) => [
+      q(Selee),
+      ],
+   q(6143) => [
+      q(Sam),
+      ],
+   q(6144) => [
+      q(Saniyo-Hiyewe),
+      ],
+   q(6145) => [
+      q(Sinsauru),
+      ],
+   q(6146) => [
+      q(Thai Song),
+      ],
+   q(6147) => [
+      q(Sobei),
+      ],
+   q(6148) => [
+      q(So (Democratic Republic of Congo)),
+      ],
+   q(6149) => [
+      q(Songoora),
+      ],
+   q(6150) => [
+      q(Songomeno),
+      ],
+   q(6151) => [
+      q(Aka),
+      ],
+   q(6152) => [
+      q(Sonha),
+      ],
+   q(6153) => [
+      q(Soi),
+      ],
+   q(6154) => [
+      q(Sokoro),
+      ],
+   q(6155) => [
+      q(Solos),
+      ],
+   q(6156) => [
+      q(Songo),
+      ],
+   q(6157) => [
+      q(Songe),
+      ],
+   q(6158) => [
+      q(Kanasi),
+      ],
+   q(6159) => [
+      q(Somrai),
+      ],
+   q(6160) => [
+      q(Seeku),
+      ],
+   q(6161) => [
+      q(Southern Thai),
+      ],
+   q(6162) => [
+      q(Sonsorol),
+      ],
+   q(6163) => [
+      q(Sowanda),
+      ],
+   q(6164) => [
+      q(Swo),
+      ],
+   q(6165) => [
+      q(Miyobe),
+      ],
+   q(6166) => [
+      q(Temi),
+      ],
+   q(6167) => [
+      q(Sepa (Indonesia)),
+      ],
+   q(6168) => [
+      q(Sape),
+      ],
+   q(6169) => [
+      q(Saep),
+      ],
+   q(6170) => [
+      q(Sepa (Papua New Guinea)),
+      ],
+   q(6171) => [
+      q(Sian),
+      ],
+   q(6172) => [
+      q(Saponi),
+      ],
+   q(6173) => [
+      q(Sengo),
+      ],
+   q(6174) => [
+      q(Selepet),
+      ],
+   q(6175) => [
+      q(Akukem),
+      ],
+   q(6176) => [
+      q(Sanapana),
+      ],
+   q(6177) => [
+      q(Spokane),
+      ],
+   q(6178) => [
+      q(Supyire Senoufo),
+      ],
+   q(6179) => [
+      q(Loreto-Ucayali Spanish),
+      ],
+   q(6180) => [
+      q(Saparua),
+      ],
+   q(6181) => [
+      q(Saposa),
+      ],
+   q(6182) => [
+      q(Spiti Bhoti),
+      ],
+   q(6183) => [
+      q(Sapuan),
+      ],
+   q(6184) => [
+      q(Sambalpuri),
+      q(Kosli),
+      ],
+   q(6185) => [
+      q(South Picene),
+      ],
+   q(6186) => [
+      q(Sabaot),
+      ],
+   q(6187) => [
+      q(Shama-Sambuga),
+      ],
+   q(6188) => [
+      q(Shau),
+      ],
+   q(6189) => [
+      q(Albanian Sign Language),
+      ],
+   q(6190) => [
+      q(Suma),
+      ],
+   q(6191) => [
+      q(Susquehannock),
+      ],
+   q(6192) => [
+      q(Sorkhei),
+      ],
+   q(6193) => [
+      q(Sou),
+      ],
+   q(6194) => [
+      q(Siculo Arabic),
+      ],
+   q(6195) => [
+      q(Sri Lankan Sign Language),
+      ],
+   q(6196) => [
+      q(Soqotri),
+      ],
+   q(6197) => [
+      q(Squamish),
+      ],
+   q(6198) => [
+      q(Saruga),
+      ],
+   q(6199) => [
+      q(Sora),
+      ],
+   q(6200) => [
+      q(Logudorese Sardinian),
+      ],
+   q(6201) => [
+      q(Sara),
+      ],
+   q(6202) => [
+      q(Nafi),
+      ],
+   q(6203) => [
+      q(Sulod),
+      ],
+   q(6204) => [
+      q(Sarikoli),
+      ],
+   q(6205) => [
+      q(Siriano),
+      ],
+   q(6206) => [
+      q(Serudung Murut),
+      ],
+   q(6207) => [
+      q(Isirawa),
+      ],
+   q(6208) => [
+      q(Saramaccan),
+      ],
+   q(6209) => [
+      q(Campidanese Sardinian),
+      ],
+   q(6210) => [
+      q(Siriono),
+      ],
+   q(6211) => [
+      q(Sarsi),
+      ],
+   q(6212) => [
+      q(Sauri),
+      ],
+   q(6213) => [
+      q(Surui),
+      ],
+   q(6214) => [
+      q(Southern Sorsoganon),
+      ],
+   q(6215) => [
+      q(Serua),
+      ],
+   q(6216) => [
+      q(Sirmauri),
+      ],
+   q(6217) => [
+      q(Sera),
+      ],
+   q(6218) => [
+      q(Shahmirzadi),
+      ],
+   q(6219) => [
+      q(Southern Sama),
+      ],
+   q(6220) => [
+      q(Suba-Simbiti),
+      ],
+   q(6221) => [
+      q(Siroi),
+      ],
+   q(6222) => [
+      q(Balangingi),
+      q(Bangingih Sama),
+      ],
+   q(6223) => [
+      q(Thao),
+      ],
+   q(6224) => [
+      q(Seimat),
+      ],
+   q(6225) => [
+      q(Shihhi Arabic),
+      ],
+   q(6226) => [
+      q(Sansi),
+      ],
+   q(6227) => [
+      q(Sausi),
+      ],
+   q(6228) => [
+      q(Sunam),
+      ],
+   q(6229) => [
+      q(Western Sisaala),
+      ],
+   q(6230) => [
+      q(Semnam),
+      ],
+   q(6231) => [
+      q(Waata),
+      ],
+   q(6232) => [
+      q(Sissano),
+      ],
+   q(6233) => [
+      q(Spanish Sign Language),
+      ],
+   q(6234) => [
+      q(So'a),
+      ],
+   q(6235) => [
+      q(Swiss-French Sign Language),
+      ],
+   q(6236) => [
+      q(So),
+      ],
+   q(6237) => [
+      q(Sinasina),
+      ],
+   q(6238) => [
+      q(Susuami),
+      ],
+   q(6239) => [
+      q(Shark Bay),
+      ],
+   q(6240) => [
+      q(Samberigi),
+      ],
+   q(6241) => [
+      q(Saho),
+      ],
+   q(6242) => [
+      q(Sengseng),
+      ],
+   q(6243) => [
+      q(Settla),
+      ],
+   q(6244) => [
+      q(Northern Subanen),
+      ],
+   q(6245) => [
+      q(Sentinel),
+      ],
+   q(6246) => [
+      q(Liana-Seti),
+      ],
+   q(6247) => [
+      q(Seta),
+      ],
+   q(6248) => [
+      q(Trieng),
+      ],
+   q(6249) => [
+      q(Shelta),
+      ],
+   q(6250) => [
+      q(Bulo Stieng),
+      ],
+   q(6251) => [
+      q(Matya Samo),
+      ],
+   q(6252) => [
+      q(Arammba),
+      ],
+   q(6253) => [
+      q(Stellingwerfs),
+      ],
+   q(6254) => [
+      q(Setaman),
+      ],
+   q(6255) => [
+      q(Owa),
+      ],
+   q(6256) => [
+      q(Stoney),
+      ],
+   q(6257) => [
+      q(Southeastern Tepehuan),
+      ],
+   q(6258) => [
+      q(Saterfriesisch),
+      ],
+   q(6259) => [
+      q(Straits Salish),
+      ],
+   q(6260) => [
+      q(Shumashti),
+      ],
+   q(6261) => [
+      q(Budeh Stieng),
+      ],
+   q(6262) => [
+      q(Samtao),
+      ],
+   q(6263) => [
+      q(Silt'e),
+      ],
+   q(6264) => [
+      q(Satawalese),
+      ],
+   q(6265) => [
+      q(Siberian Tatar),
+      ],
+   q(6266) => [
+      q(Sulka),
+      ],
+   q(6267) => [
+      q(Suku),
+      ],
+   q(6268) => [
+      q(Western Subanon),
+      ],
+   q(6269) => [
+      q(Suena),
+      ],
+   q(6270) => [
+      q(Suganga),
+      ],
+   q(6271) => [
+      q(Suki),
+      ],
+   q(6272) => [
+      q(Shubi),
+      ],
+   q(6273) => [
+      q(Suri),
+      ],
+   q(6274) => [
+      q(Mwaghavul),
+      ],
+   q(6275) => [
+      q(Subtiaba),
+      ],
+   q(6276) => [
+      q(Puroik),
+      ],
+   q(6277) => [
+      q(Sumbwa),
+      ],
+   q(6278) => [
+      q(Suya),
+      ],
+   q(6279) => [
+      q(Sunwar),
+      ],
+   q(6280) => [
+      q(Svan),
+      ],
+   q(6281) => [
+      q(Ulau-Suain),
+      ],
+   q(6282) => [
+      q(Vincentian Creole English),
+      ],
+   q(6283) => [
+      q(Serili),
+      ],
+   q(6284) => [
+      q(Slovakian Sign Language),
+      ],
+   q(6285) => [
+      q(Slavomolisano),
+      ],
+   q(6286) => [
+      q(Savosavo),
+      ],
+   q(6287) => [
+      q(Skalvian),
+      ],
+   q(6288) => [
+      q(Maore Comorian),
+      ],
+   q(6289) => [
+      q(Congo Swahili),
+      ],
+   q(6290) => [
+      q(Sere),
+      ],
+   q(6291) => [
+      q(Swabian),
+      ],
+   q(6292) => [
+      q(Swahili (individual language)),
+      q(Kiswahili),
+      ],
+   q(6293) => [
+      q(Sui),
+      ],
+   q(6294) => [
+      q(Sira),
+      ],
+   q(6295) => [
+      q(Malawi Sena),
+      ],
+   q(6296) => [
+      q(Swedish Sign Language),
+      ],
+   q(6297) => [
+      q(Samosa),
+      ],
+   q(6298) => [
+      q(Sawknah),
+      ],
+   q(6299) => [
+      q(Shanenawa),
+      ],
+   q(6300) => [
+      q(Suau),
+      ],
+   q(6301) => [
+      q(Sharwa),
+      ],
+   q(6302) => [
+      q(Saweru),
+      ],
+   q(6303) => [
+      q(Seluwasan),
+      ],
+   q(6304) => [
+      q(Sawila),
+      ],
+   q(6305) => [
+      q(Suwawa),
+      ],
+   q(6306) => [
+      q(Shekhawati),
+      ],
+   q(6307) => [
+      q(Sowa),
+      ],
+   q(6308) => [
+      q(Suruaha),
+      ],
+   q(6309) => [
+      q(Sarua),
+      ],
+   q(6310) => [
+      q(Suba),
+      ],
+   q(6311) => [
+      q(Sicanian),
+      ],
+   q(6312) => [
+      q(Sighu),
+      ],
+   q(6313) => [
+      q(Shixing),
+      ],
+   q(6314) => [
+      q(Southern Kalapuya),
+      ],
+   q(6315) => [
+      q(Selian),
+      ],
+   q(6316) => [
+      q(Samre),
+      ],
+   q(6317) => [
+      q(Sangir),
+      ],
+   q(6318) => [
+      q(Sorothaptic),
+      ],
+   q(6319) => [
+      q(Saaroa),
+      ],
+   q(6320) => [
+      q(Sasaru),
+      ],
+   q(6321) => [
+      q(Upper Saxon),
+      ],
+   q(6322) => [
+      q(Saxwe Gbe),
+      ],
+   q(6323) => [
+      q(Siang),
+      ],
+   q(6324) => [
+      q(Central Subanen),
+      ],
+   q(6325) => [
+      q(Seki),
+      ],
+   q(6326) => [
+      q(Sukur),
+      ],
+   q(6327) => [
+      q(Sylheti),
+      ],
+   q(6328) => [
+      q(Maya Samo),
+      ],
+   q(6329) => [
+      q(Senaya),
+      ],
+   q(6330) => [
+      q(Suoy),
+      ],
+   q(6331) => [
+      q(Sinyar),
+      ],
+   q(6332) => [
+      q(Kagate),
+      ],
+   q(6333) => [
+      q(Samay),
+      ],
+   q(6334) => [
+      q(Al-Sayyid Bedouin Sign Language),
+      ],
+   q(6335) => [
+      q(Semelai),
+      ],
+   q(6336) => [
+      q(Ngalum),
+      ],
+   q(6337) => [
+      q(Semaq Beri),
+      ],
+   q(6338) => [
+      q(Seru),
+      ],
+   q(6339) => [
+      q(Seze),
+      ],
+   q(6340) => [
+      q(Sengele),
+      ],
+   q(6341) => [
+      q(Silesian),
+      ],
+   q(6342) => [
+      q(Sula),
+      ],
+   q(6343) => [
+      q(Suabo),
+      ],
+   q(6344) => [
+      q(Solomon Islands Sign Language),
+      ],
+   q(6345) => [
+      q(Isu (Fako Division)),
+      ],
+   q(6346) => [
+      q(Sawai),
+      ],
+   q(6347) => [
+      q(Lower Tanana),
+      ],
+   q(6348) => [
+      q(Tabassaran),
+      ],
+   q(6349) => [
+      q(Lowland Tarahumara),
+      ],
+   q(6350) => [
+      q(Tause),
+      ],
+   q(6351) => [
+      q(Tariana),
+      ],
+   q(6352) => [
+      q(Tapirape),
+      ],
+   q(6353) => [
+      q(Tagoi),
+      ],
+   q(6354) => [
+      q(Eastern Tamang),
+      ],
+   q(6355) => [
+      q(Tala),
+      ],
+   q(6356) => [
+      q(Tal),
+      ],
+   q(6357) => [
+      q(Tangale),
+      ],
+   q(6358) => [
+      q(Yami),
+      ],
+   q(6359) => [
+      q(Taabwa),
+      ],
+   q(6360) => [
+      q(Tamasheq),
+      ],
+   q(6361) => [
+      q(Central Tarahumara),
+      ],
+   q(6362) => [
+      q(Tay Boi),
+      ],
+   q(6363) => [
+      q(Upper Tanana),
+      ],
+   q(6364) => [
+      q(Tatuyo),
+      ],
+   q(6365) => [
+      q(Tai),
+      ],
+   q(6366) => [
+      q(Tamki),
+      ],
+   q(6367) => [
+      q(Atayal),
+      ],
+   q(6368) => [
+      q(Tocho),
+      ],
+   q(6369) => [
+      q(Aikana),
+      ],
+   q(6370) => [
+      q(Tapeba),
+      ],
+   q(6371) => [
+      q(Takia),
+      ],
+   q(6372) => [
+      q(Kaki Ae),
+      ],
+   q(6373) => [
+      q(Tanimbili),
+      ],
+   q(6374) => [
+      q(Mandara),
+      ],
+   q(6375) => [
+      q(North Tairora),
+      ],
+   q(6376) => [
+      q(Thurawal),
+      ],
+   q(6377) => [
+      q(Gaam),
+      ],
+   q(6378) => [
+      q(Tiang),
+      ],
+   q(6379) => [
+      q(Calamian Tagbanwa),
+      ],
+   q(6380) => [
+      q(Tboli),
+      ],
+   q(6381) => [
+      q(Tagbu),
+      ],
+   q(6382) => [
+      q(Barro Negro Tunebo),
+      ],
+   q(6383) => [
+      q(Tawala),
+      ],
+   q(6384) => [
+      q(Taworta),
+      q(Diebroud),
+      ],
+   q(6385) => [
+      q(Tumtum),
+      ],
+   q(6386) => [
+      q(Tanguat),
+      ],
+   q(6387) => [
+      q(Tembo (Kitembo)),
+      ],
+   q(6388) => [
+      q(Tubar),
+      ],
+   q(6389) => [
+      q(Tobo),
+      ],
+   q(6390) => [
+      q(Tagbanwa),
+      ],
+   q(6391) => [
+      q(Kapin),
+      ],
+   q(6392) => [
+      q(Tabaru),
+      ],
+   q(6393) => [
+      q(Ditammari),
+      ],
+   q(6394) => [
+      q(Ticuna),
+      ],
+   q(6395) => [
+      q(Tanacross),
+      ],
+   q(6396) => [
+      q(Datooga),
+      ],
+   q(6397) => [
+      q(Tafi),
+      ],
+   q(6398) => [
+      q(Southern Tutchone),
+      ],
+   q(6399) => [
+      q(Malinaltepec Me'phaa),
+      q(Malinaltepec Tlapanec),
+      ],
+   q(6400) => [
+      q(Tamagario),
+      ],
+   q(6401) => [
+      q(Turks And Caicos Creole English),
+      ],
+   q(6402) => [
+      q(Wara),
+      ],
+   q(6403) => [
+      q(Tchitchege),
+      ],
+   q(6404) => [
+      q(Taman (Myanmar)),
+      ],
+   q(6405) => [
+      q(Tanahmerah),
+      ],
+   q(6406) => [
+      q(Tichurong),
+      ],
+   q(6407) => [
+      q(Taungyo),
+      ],
+   q(6408) => [
+      q(Tawr Chin),
+      ],
+   q(6409) => [
+      q(Kaiy),
+      ],
+   q(6410) => [
+      q(Torres Strait Creole),
+      ],
+   q(6411) => [
+      q(T'en),
+      ],
+   q(6412) => [
+      q(Southeastern Tarahumara),
+      ],
+   q(6413) => [
+      q(Tecpatlan Totonac),
+      ],
+   q(6414) => [
+      q(Toda),
+      ],
+   q(6415) => [
+      q(Tulu),
+      ],
+   q(6416) => [
+      q(Thado Chin),
+      ],
+   q(6417) => [
+      q(Tagdal),
+      ],
+   q(6418) => [
+      q(Panchpargania),
+      ],
+   q(6419) => [
+      q(Embera-Tado),
+      ],
+   q(6420) => [
+      q(Tai Nua),
+      ],
+   q(6421) => [
+      q(Tiranige Diga Dogon),
+      ],
+   q(6422) => [
+      q(Talieng),
+      ],
+   q(6423) => [
+      q(Western Tamang),
+      ],
+   q(6424) => [
+      q(Thulung),
+      ],
+   q(6425) => [
+      q(Tomadino),
+      ],
+   q(6426) => [
+      q(Tajio),
+      ],
+   q(6427) => [
+      q(Tambas),
+      ],
+   q(6428) => [
+      q(Sur),
+      ],
+   q(6429) => [
+      q(Taruma),
+      ],
+   q(6430) => [
+      q(Tondano),
+      ],
+   q(6431) => [
+      q(Teme),
+      ],
+   q(6432) => [
+      q(Tita),
+      ],
+   q(6433) => [
+      q(Todrah),
+      ],
+   q(6434) => [
+      q(Doutai),
+      ],
+   q(6435) => [
+      q(Tetun Dili),
+      ],
+   q(6436) => [
+      q(Toro),
+      ],
+   q(6437) => [
+      q(Tandroy-Mahafaly Malagasy),
+      ],
+   q(6438) => [
+      q(Tadyawan),
+      ],
+   q(6439) => [
+      q(Temiar),
+      ],
+   q(6440) => [
+      q(Tetete),
+      ],
+   q(6441) => [
+      q(Terik),
+      ],
+   q(6442) => [
+      q(Tepo Krumen),
+      ],
+   q(6443) => [
+      q(Huehuetla Tepehua),
+      ],
+   q(6444) => [
+      q(Teressa),
+      ],
+   q(6445) => [
+      q(Teke-Tege),
+      ],
+   q(6446) => [
+      q(Tehuelche),
+      ],
+   q(6447) => [
+      q(Torricelli),
+      ],
+   q(6448) => [
+      q(Ibali Teke),
+      ],
+   q(6449) => [
+      q(Tama (Colombia)),
+      ],
+   q(6450) => [
+      q(Teso),
+      ],
+   q(6451) => [
+      q(Tepecano),
+      ],
+   q(6452) => [
+      q(Temein),
+      ],
+   q(6453) => [
+      q(Tengger),
+      ],
+   q(6454) => [
+      q(Soo),
+      ],
+   q(6455) => [
+      q(Teor),
+      ],
+   q(6456) => [
+      q(Tewa (USA)),
+      ],
+   q(6457) => [
+      q(Tennet),
+      ],
+   q(6458) => [
+      q(Tulishi),
+      ],
+   q(6459) => [
+      q(Tofin Gbe),
+      ],
+   q(6460) => [
+      q(Tanaina),
+      ],
+   q(6461) => [
+      q(Tefaro),
+      ],
+   q(6462) => [
+      q(Teribe),
+      ],
+   q(6463) => [
+      q(Ternate),
+      ],
+   q(6464) => [
+      q(Sagalla),
+      ],
+   q(6465) => [
+      q(Tobilung),
+      ],
+   q(6466) => [
+      q(Tigak),
+      ],
+   q(6467) => [
+      q(Ciwogai),
+      ],
+   q(6468) => [
+      q(Eastern Gorkha Tamang),
+      ],
+   q(6469) => [
+      q(Chalikha),
+      ],
+   q(6470) => [
+      q(Tobagonian Creole English),
+      ],
+   q(6471) => [
+      q(Lawunuia),
+      ],
+   q(6472) => [
+      q(Tagin),
+      ],
+   q(6473) => [
+      q(Tandaganon),
+      ],
+   q(6474) => [
+      q(Sudest),
+      ],
+   q(6475) => [
+      q(Tangoa),
+      ],
+   q(6476) => [
+      q(Tring),
+      ],
+   q(6477) => [
+      q(Tareng),
+      ],
+   q(6478) => [
+      q(Nume),
+      ],
+   q(6479) => [
+      q(Central Tagbanwa),
+      ],
+   q(6480) => [
+      q(Tanggu),
+      ],
+   q(6481) => [
+      q(Tingui-Boto),
+      ],
+   q(6482) => [
+      q(Tagwana Senoufo),
+      ],
+   q(6483) => [
+      q(Tagish),
+      ],
+   q(6484) => [
+      q(Togoyo),
+      ],
+   q(6485) => [
+      q(Tagalaka),
+      ],
+   q(6486) => [
+      q(Thayore),
+      ],
+   q(6487) => [
+      q(Chitwania Tharu),
+      ],
+   q(6488) => [
+      q(Thangmi),
+      ],
+   q(6489) => [
+      q(Northern Tarahumara),
+      ],
+   q(6490) => [
+      q(Tai Long),
+      ],
+   q(6491) => [
+      q(Tharaka),
+      q(Kitharaka),
+      ],
+   q(6492) => [
+      q(Dangaura Tharu),
+      ],
+   q(6493) => [
+      q(Aheu),
+      ],
+   q(6494) => [
+      q(Thachanadan),
+      ],
+   q(6495) => [
+      q(Thompson),
+      ],
+   q(6496) => [
+      q(Kochila Tharu),
+      ],
+   q(6497) => [
+      q(Rana Tharu),
+      ],
+   q(6498) => [
+      q(Thakali),
+      ],
+   q(6499) => [
+      q(Tahltan),
+      ],
+   q(6500) => [
+      q(Thuri),
+      ],
+   q(6501) => [
+      q(Tahaggart Tamahaq),
+      ],
+   q(6502) => [
+      q(Thudam),
+      ],
+   q(6503) => [
+      q(Tha),
+      ],
+   q(6504) => [
+      q(Tayart Tamajeq),
+      ],
+   q(6505) => [
+      q(Tidikelt Tamazight),
+      ],
+   q(6506) => [
+      q(Tira),
+      ],
+   q(6507) => [
+      q(Tifal),
+      ],
+   q(6508) => [
+      q(Timugon Murut),
+      ],
+   q(6509) => [
+      q(Tiene),
+      ],
+   q(6510) => [
+      q(Tilung),
+      ],
+   q(6511) => [
+      q(Tikar),
+      ],
+   q(6512) => [
+      q(Tillamook),
+      ],
+   q(6513) => [
+      q(Timbe),
+      ],
+   q(6514) => [
+      q(Tindi),
+      ],
+   q(6515) => [
+      q(Teop),
+      ],
+   q(6516) => [
+      q(Trimuris),
+      ],
+   q(6517) => [
+      q(Tiefo),
+      ],
+   q(6518) => [
+      q(Masadiit Itneg),
+      ],
+   q(6519) => [
+      q(Tinigua),
+      ],
+   q(6520) => [
+      q(Adasen),
+      ],
+   q(6521) => [
+      q(Tiwi),
+      ],
+   q(6522) => [
+      q(Southern Tiwa),
+      ],
+   q(6523) => [
+      q(Tiruray),
+      ],
+   q(6524) => [
+      q(Tai Hongjin),
+      ],
+   q(6525) => [
+      q(Tajuasohn),
+      ],
+   q(6526) => [
+      q(Tunjung),
+      ],
+   q(6527) => [
+      q(Northern Tujia),
+      ],
+   q(6528) => [
+      q(Tai Laing),
+      ],
+   q(6529) => [
+      q(Timucua),
+      ],
+   q(6530) => [
+      q(Tonjon),
+      ],
+   q(6531) => [
+      q(Temacine Tamazight),
+      ],
+   q(6532) => [
+      q(Southern Tujia),
+      ],
+   q(6533) => [
+      q(Tjurruru),
+      ],
+   q(6534) => [
+      q(Djabwurrung),
+      ],
+   q(6535) => [
+      q(Truka),
+      ],
+   q(6536) => [
+      q(Buksa),
+      ],
+   q(6537) => [
+      q(Tukudede),
+      ],
+   q(6538) => [
+      q(Takwane),
+      ],
+   q(6539) => [
+      q(Tukumanfed),
+      ],
+   q(6540) => [
+      q(Tesaka Malagasy),
+      ],
+   q(6541) => [
+      q(Takelma),
+      ],
+   q(6542) => [
+      q(Toku-No-Shima),
+      ],
+   q(6543) => [
+      q(Tikopia),
+      ],
+   q(6544) => [
+      q(Tee),
+      ],
+   q(6545) => [
+      q(Tsakhur),
+      ],
+   q(6546) => [
+      q(Takestani),
+      ],
+   q(6547) => [
+      q(Kathoriya Tharu),
+      ],
+   q(6548) => [
+      q(Upper Necaxa Totonac),
+      ],
+   q(6549) => [
+      q(Mur Pano),
+      ],
+   q(6550) => [
+      q(Teanu),
+      ],
+   q(6551) => [
+      q(Tangko),
+      ],
+   q(6552) => [
+      q(Takua),
+      ],
+   q(6553) => [
+      q(Southwestern Tepehuan),
+      ],
+   q(6554) => [
+      q(Tobelo),
+      ],
+   q(6555) => [
+      q(Yecuatla Totonac),
+      ],
+   q(6556) => [
+      q(Talaud),
+      ],
+   q(6557) => [
+      q(Telefol),
+      ],
+   q(6558) => [
+      q(Tofanma),
+      ],
+   q(6559) => [
+      q(Talinga-Bwisi),
+      ],
+   q(6560) => [
+      q(Taloki),
+      ],
+   q(6561) => [
+      q(Tetela),
+      ],
+   q(6562) => [
+      q(Tolomako),
+      ],
+   q(6563) => [
+      q(Talondo'),
+      ],
+   q(6564) => [
+      q(Talodi),
+      ],
+   q(6565) => [
+      q(Filomena Mata-Coahuitlan Totonac),
+      ],
+   q(6566) => [
+      q(Tai Loi),
+      ],
+   q(6567) => [
+      q(Talise),
+      ],
+   q(6568) => [
+      q(Tambotalo),
+      ],
+   q(6569) => [
+      q(Sou Nama),
+      q(Teluti),
+      ],
+   q(6570) => [
+      q(Tulehu),
+      ],
+   q(6571) => [
+      q(Taliabu),
+      ],
+   q(6572) => [
+      q(Khehek),
+      ],
+   q(6573) => [
+      q(Talysh),
+      ],
+   q(6574) => [
+      q(Tama (Chad)),
+      ],
+   q(6575) => [
+      q(Katbol),
+      q(Avava),
+      ],
+   q(6576) => [
+      q(Tumak),
+      ],
+   q(6577) => [
+      q(Haruai),
+      ],
+   q(6578) => [
+      q(Tremembe),
+      ],
+   q(6579) => [
+      q(Toba-Maskoy),
+      ],
+   q(6580) => [
+      q(Ternateno),
+      ],
+   q(6581) => [
+      q(Tutuba),
+      ],
+   q(6582) => [
+      q(Samarokena),
+      ],
+   q(6583) => [
+      q(Northwestern Tamang),
+      ],
+   q(6584) => [
+      q(Tamnim Citak),
+      ],
+   q(6585) => [
+      q(Tai Thanh),
+      ],
+   q(6586) => [
+      q(Taman (Indonesia)),
+      ],
+   q(6587) => [
+      q(Temoq),
+      ],
+   q(6588) => [
+      q(Tumleo),
+      ],
+   q(6589) => [
+      q(Jewish Babylonian Aramaic (ca. 200-1200 CE)),
+      ],
+   q(6590) => [
+      q(Tima),
+      ],
+   q(6591) => [
+      q(Tasmate),
+      ],
+   q(6592) => [
+      q(Iau),
+      ],
+   q(6593) => [
+      q(Tembo (Motembo)),
+      ],
+   q(6594) => [
+      q(Temuan),
+      ],
+   q(6595) => [
+      q(Tami),
+      ],
+   q(6596) => [
+      q(Tamanaku),
+      ],
+   q(6597) => [
+      q(Tacana),
+      ],
+   q(6598) => [
+      q(Western Tunebo),
+      ],
+   q(6599) => [
+      q(Tanimuca-Retuara),
+      ],
+   q(6600) => [
+      q(Angosturas Tunebo),
+      ],
+   q(6601) => [
+      q(Tobanga),
+      ],
+   q(6602) => [
+      q(Maiani),
+      ],
+   q(6603) => [
+      q(Tandia),
+      ],
+   q(6604) => [
+      q(Kwamera),
+      ],
+   q(6605) => [
+      q(Lenakel),
+      ],
+   q(6606) => [
+      q(Tabla),
+      ],
+   q(6607) => [
+      q(North Tanna),
+      ],
+   q(6608) => [
+      q(Toromono),
+      ],
+   q(6609) => [
+      q(Whitesands),
+      ],
+   q(6610) => [
+      q(Taino),
+      ],
+   q(6611) => [
+      q(Menik),
+      ],
+   q(6612) => [
+      q(Tenis),
+      ],
+   q(6613) => [
+      q(Tontemboan),
+      ],
+   q(6614) => [
+      q(Tay Khang),
+      ],
+   q(6615) => [
+      q(Tangchangya),
+      ],
+   q(6616) => [
+      q(Tonsawang),
+      ],
+   q(6617) => [
+      q(Tanema),
+      ],
+   q(6618) => [
+      q(Tongwe),
+      ],
+   q(6619) => [
+      q(Ten'edn),
+      ],
+   q(6620) => [
+      q(Toba),
+      ],
+   q(6621) => [
+      q(Coyutla Totonac),
+      ],
+   q(6622) => [
+      q(Toma),
+      ],
+   q(6623) => [
+      q(Gizrra),
+      ],
+   q(6624) => [
+      q(Gitonga),
+      ],
+   q(6625) => [
+      q(Tonga (Zambia)),
+      ],
+   q(6626) => [
+      q(Tojolabal),
+      ],
+   q(6627) => [
+      q(Tolowa),
+      ],
+   q(6628) => [
+      q(Tombulu),
+      ],
+   q(6629) => [
+      q(Xicotepec De Juarez Totonac),
+      ],
+   q(6630) => [
+      q(Papantla Totonac),
+      ],
+   q(6631) => [
+      q(Toposa),
+      ],
+   q(6632) => [
+      q(Togbo-Vara Banda),
+      ],
+   q(6633) => [
+      q(Highland Totonac),
+      ],
+   q(6634) => [
+      q(Tho),
+      ],
+   q(6635) => [
+      q(Upper Taromi),
+      ],
+   q(6636) => [
+      q(Jemez),
+      ],
+   q(6637) => [
+      q(Tobian),
+      ],
+   q(6638) => [
+      q(Topoiyo),
+      ],
+   q(6639) => [
+      q(To),
+      ],
+   q(6640) => [
+      q(Taupota),
+      ],
+   q(6641) => [
+      q(Azoyu Me'phaa),
+      q(Azoyu Tlapanec),
+      ],
+   q(6642) => [
+      q(Tippera),
+      ],
+   q(6643) => [
+      q(Tarpia),
+      ],
+   q(6644) => [
+      q(Kula),
+      ],
+   q(6645) => [
+      q(Tapiete),
+      ],
+   q(6646) => [
+      q(Tupinikin),
+      ],
+   q(6647) => [
+      q(Tlacoapa Me'phaa),
+      q(Tlacoapa Tlapanec),
+      ],
+   q(6648) => [
+      q(Tampulma),
+      ],
+   q(6649) => [
+      q(Tupinamba),
+      ],
+   q(6650) => [
+      q(Tai Pao),
+      ],
+   q(6651) => [
+      q(Pisaflores Tepehua),
+      ],
+   q(6652) => [
+      q(Tukpa),
+      ],
+   q(6653) => [
+      q(Tupari),
+      ],
+   q(6654) => [
+      q(Tlachichilco Tepehua),
+      ],
+   q(6655) => [
+      q(Tampuan),
+      ],
+   q(6656) => [
+      q(Tanapag),
+      ],
+   q(6657) => [
+      q(Tupi),
+      ],
+   q(6658) => [
+      q(Acatepec Me'phaa),
+      q(Acatepec Tlapanec),
+      ],
+   q(6659) => [
+      q(Trumai),
+      ],
+   q(6660) => [
+      q(Tinputz),
+      ],
+   q(6661) => [
+      q(Tembe),
+      ],
+   q(6662) => [
+      q(Lehali),
+      ],
+   q(6663) => [
+      q(Turumsa),
+      ],
+   q(6664) => [
+      q(Tenino),
+      ],
+   q(6665) => [
+      q(Toaripi),
+      ],
+   q(6666) => [
+      q(Tomoip),
+      ],
+   q(6667) => [
+      q(Tunni),
+      ],
+   q(6668) => [
+      q(Torona),
+      ],
+   q(6669) => [
+      q(Western Totonac),
+      ],
+   q(6670) => [
+      q(Touo),
+      ],
+   q(6671) => [
+      q(Tonkawa),
+      ],
+   q(6672) => [
+      q(Tirahi),
+      ],
+   q(6673) => [
+      q(Terebu),
+      ],
+   q(6674) => [
+      q(Copala Triqui),
+      ],
+   q(6675) => [
+      q(Turi),
+      ],
+   q(6676) => [
+      q(East Tarangan),
+      ],
+   q(6677) => [
+      q(Trinidadian Creole English),
+      ],
+   q(6678) => [
+      q(Lishan Didan),
+      ],
+   q(6679) => [
+      q(Turaka),
+      ],
+   q(6680) => [
+      q(Trio),
+      ],
+   q(6681) => [
+      q(Toram),
+      ],
+   q(6682) => [
+      q(Traveller Scottish),
+      ],
+   q(6683) => [
+      q(Tregami),
+      ],
+   q(6684) => [
+      q(Trinitario),
+      ],
+   q(6685) => [
+      q(Tarao Naga),
+      ],
+   q(6686) => [
+      q(Kok Borok),
+      ],
+   q(6687) => [
+      q(San Martin Itunyoso Triqui),
+      ],
+   q(6688) => [
+      q(Taushiro),
+      ],
+   q(6689) => [
+      q(Chicahuaxtla Triqui),
+      ],
+   q(6690) => [
+      q(Tunggare),
+      ],
+   q(6691) => [
+      q(Turoyo),
+      q(Surayt),
+      ],
+   q(6692) => [
+      q(Taroko),
+      ],
+   q(6693) => [
+      q(Torwali),
+      ],
+   q(6694) => [
+      q(Tringgus-Sembaan Bidayuh),
+      ],
+   q(6695) => [
+      q(Turung),
+      ],
+   q(6696) => [
+      q(Tora),
+      ],
+   q(6697) => [
+      q(Tsaangi),
+      ],
+   q(6698) => [
+      q(Tsamai),
+      ],
+   q(6699) => [
+      q(Tswa),
+      ],
+   q(6700) => [
+      q(Tsakonian),
+      ],
+   q(6701) => [
+      q(Tunisian Sign Language),
+      ],
+   q(6702) => [
+      q(Tausug),
+      ],
+   q(6703) => [
+      q(Tsuvan),
+      ],
+   q(6704) => [
+      q(Tshangla),
+      ],
+   q(6705) => [
+      q(Tseku),
+      ],
+   q(6706) => [
+      q(Ts'un-Lao),
+      ],
+   q(6707) => [
+      q(Turkish Sign Language),
+      q(Turk Isaret Dili),
+      ],
+   q(6708) => [
+      q(Northern Toussian),
+      ],
+   q(6709) => [
+      q(Thai Sign Language),
+      ],
+   q(6710) => [
+      q(Akei),
+      ],
+   q(6711) => [
+      q(Taiwan Sign Language),
+      ],
+   q(6712) => [
+      q(Tondi Songway Kiini),
+      ],
+   q(6713) => [
+      q(Tsou),
+      ],
+   q(6714) => [
+      q(Tsogo),
+      ],
+   q(6715) => [
+      q(Tsishingini),
+      ],
+   q(6716) => [
+      q(Mubami),
+      ],
+   q(6717) => [
+      q(Tebul Sign Language),
+      ],
+   q(6718) => [
+      q(Purepecha),
+      ],
+   q(6719) => [
+      q(Tutelo),
+      ],
+   q(6720) => [
+      q(Gaa),
+      ],
+   q(6721) => [
+      q(Tektiteko),
+      ],
+   q(6722) => [
+      q(Tauade),
+      ],
+   q(6723) => [
+      q(Bwanabwana),
+      ],
+   q(6724) => [
+      q(Tuotomb),
+      ],
+   q(6725) => [
+      q(Tutong),
+      ],
+   q(6726) => [
+      q(Upper Ta'oih),
+      ],
+   q(6727) => [
+      q(Tobati),
+      ],
+   q(6728) => [
+      q(Tooro),
+      ],
+   q(6729) => [
+      q(Totoro),
+      ],
+   q(6730) => [
+      q(Totela),
+      ],
+   q(6731) => [
+      q(Northern Tutchone),
+      ],
+   q(6732) => [
+      q(Towei),
+      ],
+   q(6733) => [
+      q(Lower Ta'oih),
+      ],
+   q(6734) => [
+      q(Tombelala),
+      ],
+   q(6735) => [
+      q(Tawallammat Tamajaq),
+      ],
+   q(6736) => [
+      q(Tera),
+      ],
+   q(6737) => [
+      q(Northeastern Thai),
+      ],
+   q(6738) => [
+      q(Muslim Tat),
+      ],
+   q(6739) => [
+      q(Torau),
+      ],
+   q(6740) => [
+      q(Titan),
+      ],
+   q(6741) => [
+      q(Long Wat),
+      ],
+   q(6742) => [
+      q(Sikaritai),
+      ],
+   q(6743) => [
+      q(Tsum),
+      ],
+   q(6744) => [
+      q(Wiarumus),
+      ],
+   q(6745) => [
+      q(Tubatulabal),
+      ],
+   q(6746) => [
+      q(Mutu),
+      ],
+   q(6747) => [
+      q(Tuxa),
+      ],
+   q(6748) => [
+      q(Tuyuca),
+      ],
+   q(6749) => [
+      q(Central Tunebo),
+      ],
+   q(6750) => [
+      q(Tunia),
+      ],
+   q(6751) => [
+      q(Taulil),
+      ],
+   q(6752) => [
+      q(Tupuri),
+      ],
+   q(6753) => [
+      q(Tugutil),
+      ],
+   q(6754) => [
+      q(Tula),
+      ],
+   q(6755) => [
+      q(Tunica),
+      ],
+   q(6756) => [
+      q(Tucano),
+      ],
+   q(6757) => [
+      q(Tedaga),
+      ],
+   q(6758) => [
+      q(Tuscarora),
+      ],
+   q(6759) => [
+      q(Tututni),
+      ],
+   q(6760) => [
+      q(Turkana),
+      ],
+   q(6761) => [
+      q(Tuxinawa),
+      ],
+   q(6762) => [
+      q(Tugen),
+      ],
+   q(6763) => [
+      q(Turka),
+      ],
+   q(6764) => [
+      q(Vaghua),
+      ],
+   q(6765) => [
+      q(Tsuvadi),
+      ],
+   q(6766) => [
+      q(Te'un),
+      ],
+   q(6767) => [
+      q(Southeast Ambrym),
+      ],
+   q(6768) => [
+      q(Tela-Masbuar),
+      ],
+   q(6769) => [
+      q(Tavoyan),
+      ],
+   q(6770) => [
+      q(Tidore),
+      ],
+   q(6771) => [
+      q(Taveta),
+      ],
+   q(6772) => [
+      q(Tutsa Naga),
+      ],
+   q(6773) => [
+      q(Tunen),
+      ],
+   q(6774) => [
+      q(Sedoa),
+      ],
+   q(6775) => [
+      q(Timor Pidgin),
+      ],
+   q(6776) => [
+      q(Twana),
+      ],
+   q(6777) => [
+      q(Western Tawbuid),
+      ],
+   q(6778) => [
+      q(Teshenawa),
+      ],
+   q(6779) => [
+      q(Twents),
+      ],
+   q(6780) => [
+      q(Tewa (Indonesia)),
+      ],
+   q(6781) => [
+      q(Northern Tiwa),
+      ],
+   q(6782) => [
+      q(Tereweng),
+      ],
+   q(6783) => [
+      q(Tai Don),
+      ],
+   q(6784) => [
+      q(Tawara),
+      ],
+   q(6785) => [
+      q(Tawang Monpa),
+      ],
+   q(6786) => [
+      q(Twendi),
+      ],
+   q(6787) => [
+      q(Tswapong),
+      ],
+   q(6788) => [
+      q(Ere),
+      ],
+   q(6789) => [
+      q(Tasawaq),
+      ],
+   q(6790) => [
+      q(Southwestern Tarahumara),
+      ],
+   q(6791) => [
+      q(Turiwara),
+      ],
+   q(6792) => [
+      q(Termanu),
+      ],
+   q(6793) => [
+      q(Tuwari),
+      ],
+   q(6794) => [
+      q(Tewe),
+      ],
+   q(6795) => [
+      q(Tawoyan),
+      ],
+   q(6796) => [
+      q(Tombonuo),
+      ],
+   q(6797) => [
+      q(Tokharian B),
+      ],
+   q(6798) => [
+      q(Tsetsaut),
+      ],
+   q(6799) => [
+      q(Totoli),
+      ],
+   q(6800) => [
+      q(Tangut),
+      ],
+   q(6801) => [
+      q(Thracian),
+      ],
+   q(6802) => [
+      q(Ikpeng),
+      ],
+   q(6803) => [
+      q(Tarjumo),
+      ],
+   q(6804) => [
+      q(Tomini),
+      ],
+   q(6805) => [
+      q(West Tarangan),
+      ],
+   q(6806) => [
+      q(Toto),
+      ],
+   q(6807) => [
+      q(Tii),
+      ],
+   q(6808) => [
+      q(Tartessian),
+      ],
+   q(6809) => [
+      q(Tonsea),
+      ],
+   q(6810) => [
+      q(Citak),
+      ],
+   q(6811) => [
+      q(Kayapo),
+      ],
+   q(6812) => [
+      q(Tatana),
+      ],
+   q(6813) => [
+      q(Tanosy Malagasy),
+      ],
+   q(6814) => [
+      q(Tauya),
+      ],
+   q(6815) => [
+      q(Kyanga),
+      ],
+   q(6816) => [
+      q(O'du),
+      ],
+   q(6817) => [
+      q(Teke-Tsaayi),
+      ],
+   q(6818) => [
+      q(Tai Do),
+      q(Tai Yo),
+      ],
+   q(6819) => [
+      q(Thu Lao),
+      ],
+   q(6820) => [
+      q(Kombai),
+      ],
+   q(6821) => [
+      q(Thaypan),
+      ],
+   q(6822) => [
+      q(Tai Daeng),
+      ],
+   q(6823) => [
+      q(Tay Sa Pa),
+      ],
+   q(6824) => [
+      q(Tay Tac),
+      ],
+   q(6825) => [
+      q(Kua),
+      ],
+   q(6826) => [
+      q(Teke-Tyee),
+      ],
+   q(6827) => [
+      q(Tay),
+      ],
+   q(6828) => [
+      q(Tanzanian Sign Language),
+      ],
+   q(6829) => [
+      q(Tzeltal),
+      ],
+   q(6830) => [
+      q(Tz'utujil),
+      ],
+   q(6831) => [
+      q(Talossan),
+      ],
+   q(6832) => [
+      q(Central Atlas Tamazight),
+      ],
+   q(6833) => [
+      q(Tugun),
+      ],
+   q(6834) => [
+      q(Tzotzil),
+      ],
+   q(6835) => [
+      q(Tabriak),
+      ],
+   q(6836) => [
+      q(Uamue),
+      ],
+   q(6837) => [
+      q(Kuan),
+      ],
+   q(6838) => [
+      q(Tairuma),
+      ],
+   q(6839) => [
+      q(Ubang),
+      ],
+   q(6840) => [
+      q(Ubi),
+      ],
+   q(6841) => [
+      q(Buhi'non Bikol),
+      ],
+   q(6842) => [
+      q(Ubir),
+      ],
+   q(6843) => [
+      q(Umbu-Ungu),
+      ],
+   q(6844) => [
+      q(Ubykh),
+      ],
+   q(6845) => [
+      q(Uda),
+      ],
+   q(6846) => [
+      q(Udihe),
+      ],
+   q(6847) => [
+      q(Muduga),
+      ],
+   q(6848) => [
+      q(Udi),
+      ],
+   q(6849) => [
+      q(Ujir),
+      ],
+   q(6850) => [
+      q(Wuzlam),
+      ],
+   q(6851) => [
+      q(Uduk),
+      ],
+   q(6852) => [
+      q(Kioko),
+      ],
+   q(6853) => [
+      q(Ufim),
+      ],
+   q(6854) => [
+      q(Kuku-Ugbanh),
+      ],
+   q(6855) => [
+      q(Ughele),
+      ],
+   q(6856) => [
+      q(Ugandan Sign Language),
+      ],
+   q(6857) => [
+      q(Ugong),
+      ],
+   q(6858) => [
+      q(Uruguayan Sign Language),
+      ],
+   q(6859) => [
+      q(Uhami),
+      ],
+   q(6860) => [
+      q(Damal),
+      ],
+   q(6861) => [
+      q(Uisai),
+      ],
+   q(6862) => [
+      q(Iyive),
+      ],
+   q(6863) => [
+      q(Tanjijili),
+      ],
+   q(6864) => [
+      q(Kaburi),
+      ],
+   q(6865) => [
+      q(Ukuriguma),
+      ],
+   q(6866) => [
+      q(Ukhwejo),
+      ],
+   q(6867) => [
+      q(Muak Sa-aak),
+      ],
+   q(6868) => [
+      q(Ukrainian Sign Language),
+      ],
+   q(6869) => [
+      q(Ukpe-Bayobiri),
+      ],
+   q(6870) => [
+      q(Ukwa),
+      ],
+   q(6871) => [
+      q(Urubu-Kaapor Sign Language),
+      q(Kaapor Sign Language),
+      ],
+   q(6872) => [
+      q(Ukue),
+      ],
+   q(6873) => [
+      q(Ukwuani-Aboh-Ndoni),
+      ],
+   q(6874) => [
+      q(Kuuk-Yak),
+      ],
+   q(6875) => [
+      q(Fungwa),
+      ],
+   q(6876) => [
+      q(Ulukwumi),
+      ],
+   q(6877) => [
+      q(Ulch),
+      ],
+   q(6878) => [
+      q(Lule),
+      ],
+   q(6879) => [
+      q(Usku),
+      q(Afra),
+      ],
+   q(6880) => [
+      q(Ulithian),
+      ],
+   q(6881) => [
+      q(Meriam),
+      ],
+   q(6882) => [
+      q(Ullatan),
+      ],
+   q(6883) => [
+      q(Ulumanda'),
+      ],
+   q(6884) => [
+      q(Unserdeutsch),
+      ],
+   q(6885) => [
+      q(Uma' Lung),
+      ],
+   q(6886) => [
+      q(Ulwa),
+      ],
+   q(6887) => [
+      q(Umatilla),
+      ],
+   q(6888) => [
+      q(Marrucinian),
+      ],
+   q(6889) => [
+      q(Umbindhamu),
+      ],
+   q(6890) => [
+      q(Umbuygamu),
+      ],
+   q(6891) => [
+      q(Ukit),
+      ],
+   q(6892) => [
+      q(Umon),
+      ],
+   q(6893) => [
+      q(Makyan Naga),
+      ],
+   q(6894) => [
+      q(Umotina),
+      ],
+   q(6895) => [
+      q(Umpila),
+      ],
+   q(6896) => [
+      q(Umbugarla),
+      ],
+   q(6897) => [
+      q(Pendau),
+      ],
+   q(6898) => [
+      q(Munsee),
+      ],
+   q(6899) => [
+      q(North Watut),
+      ],
+   q(6900) => [
+      q(Uneme),
+      ],
+   q(6901) => [
+      q(Ngarinyin),
+      ],
+   q(6902) => [
+      q(Enawene-Nawe),
+      ],
+   q(6903) => [
+      q(Unami),
+      ],
+   q(6904) => [
+      q(Kurnai),
+      ],
+   q(6905) => [
+      q(Mundari),
+      ],
+   q(6906) => [
+      q(Unubahe),
+      ],
+   q(6907) => [
+      q(Munda),
+      ],
+   q(6908) => [
+      q(Unde Kaili),
+      ],
+   q(6909) => [
+      q(Umeda),
+      ],
+   q(6910) => [
+      q(Uripiv-Wala-Rano-Atchin),
+      ],
+   q(6911) => [
+      q(Urarina),
+      ],
+   q(6912) => [
+      q(Urubu-Kaapor),
+      q(Kaapor),
+      ],
+   q(6913) => [
+      q(Urningangg),
+      ],
+   q(6914) => [
+      q(Uru),
+      ],
+   q(6915) => [
+      q(Uradhi),
+      ],
+   q(6916) => [
+      q(Urigina),
+      ],
+   q(6917) => [
+      q(Urhobo),
+      ],
+   q(6918) => [
+      q(Urim),
+      ],
+   q(6919) => [
+      q(Urak Lawoi'),
+      ],
+   q(6920) => [
+      q(Urali),
+      ],
+   q(6921) => [
+      q(Urapmin),
+      ],
+   q(6922) => [
+      q(Uruangnirin),
+      ],
+   q(6923) => [
+      q(Ura (Papua New Guinea)),
+      ],
+   q(6924) => [
+      q(Uru-Pa-In),
+      ],
+   q(6925) => [
+      q(Lehalurup),
+      q(Loyop),
+      ],
+   q(6926) => [
+      q(Urat),
+      ],
+   q(6927) => [
+      q(Urumi),
+      ],
+   q(6928) => [
+      q(Uruava),
+      ],
+   q(6929) => [
+      q(Sop),
+      ],
+   q(6930) => [
+      q(Urimo),
+      ],
+   q(6931) => [
+      q(Orya),
+      ],
+   q(6932) => [
+      q(Uru-Eu-Wau-Wau),
+      ],
+   q(6933) => [
+      q(Usarufa),
+      ],
+   q(6934) => [
+      q(Ushojo),
+      ],
+   q(6935) => [
+      q(Usui),
+      ],
+   q(6936) => [
+      q(Usaghade),
+      ],
+   q(6937) => [
+      q(Uspanteco),
+      ],
+   q(6938) => [
+      q(Uya),
+      ],
+   q(6939) => [
+      q(Otank),
+      ],
+   q(6940) => [
+      q(Ute-Southern Paiute),
+      ],
+   q(6941) => [
+      q(Amba (Solomon Islands)),
+      ],
+   q(6942) => [
+      q(Etulo),
+      ],
+   q(6943) => [
+      q(Utu),
+      ],
+   q(6944) => [
+      q(Urum),
+      ],
+   q(6945) => [
+      q(Kulon-Pazeh),
+      ],
+   q(6946) => [
+      q(Ura (Vanuatu)),
+      ],
+   q(6947) => [
+      q(U),
+      ],
+   q(6948) => [
+      q(West Uvean),
+      q(Fagauvea),
+      ],
+   q(6949) => [
+      q(Uri),
+      ],
+   q(6950) => [
+      q(Lote),
+      ],
+   q(6951) => [
+      q(Kuku-Uwanh),
+      ],
+   q(6952) => [
+      q(Doko-Uyanga),
+      ],
+   q(6953) => [
+      q(Northern Uzbek),
+      ],
+   q(6954) => [
+      q(Southern Uzbek),
+      ],
+   q(6955) => [
+      q(Vaagri Booli),
+      ],
+   q(6956) => [
+      q(Vale),
+      ],
+   q(6957) => [
+      q(Vafsi),
+      ],
+   q(6958) => [
+      q(Vagla),
+      ],
+   q(6959) => [
+      q(Varhadi-Nagpuri),
+      ],
+   q(6960) => [
+      q(Sekele),
+      q(Northwestern Kung),
+      q(Vasekele),
+      ],
+   q(6961) => [
+      q(Vehes),
+      ],
+   q(6962) => [
+      q(Vanimo),
+      ],
+   q(6963) => [
+      q(Valman),
+      ],
+   q(6964) => [
+      q(Vao),
+      ],
+   q(6965) => [
+      q(Vaiphei),
+      ],
+   q(6966) => [
+      q(Huarijio),
+      ],
+   q(6967) => [
+      q(Vasavi),
+      ],
+   q(6968) => [
+      q(Vanuma),
+      ],
+   q(6969) => [
+      q(Varli),
+      ],
+   q(6970) => [
+      q(Wayu),
+      ],
+   q(6971) => [
+      q(Southeast Babar),
+      ],
+   q(6972) => [
+      q(Southwestern Bontok),
+      ],
+   q(6973) => [
+      q(Venetian),
+      ],
+   q(6974) => [
+      q(Veddah),
+      ],
+   q(6975) => [
+      q(Veluws),
+      ],
+   q(6976) => [
+      q(Vemgo-Mabas),
+      ],
+   q(6977) => [
+      q(Ventureno),
+      ],
+   q(6978) => [
+      q(Veps),
+      ],
+   q(6979) => [
+      q(Mom Jango),
+      ],
+   q(6980) => [
+      q(Vaghri),
+      ],
+   q(6981) => [
+      q(Vlaamse Gebarentaal),
+      q(Flemish Sign Language),
+      ],
+   q(6982) => [
+      q(Virgin Islands Creole English),
+      ],
+   q(6983) => [
+      q(Vidunda),
+      ],
+   q(6984) => [
+      q(Vili),
+      ],
+   q(6985) => [
+      q(Viemo),
+      ],
+   q(6986) => [
+      q(Vilela),
+      ],
+   q(6987) => [
+      q(Vinza),
+      ],
+   q(6988) => [
+      q(Vishavan),
+      ],
+   q(6989) => [
+      q(Viti),
+      ],
+   q(6990) => [
+      q(Iduna),
+      ],
+   q(6991) => [
+      q(Kariyarra),
+      ],
+   q(6992) => [
+      q(Ija-Zuba),
+      ],
+   q(6993) => [
+      q(Kujarge),
+      ],
+   q(6994) => [
+      q(Kaur),
+      ],
+   q(6995) => [
+      q(Kulisusu),
+      ],
+   q(6996) => [
+      q(Kamakan),
+      ],
+   q(6997) => [
+      q(Kodeoha),
+      ],
+   q(6998) => [
+      q(Korlai Creole Portuguese),
+      ],
+   q(6999) => [
+      q(Tenggarong Kutai Malay),
+      ],
+   q(7000) => [
+      q(Kurrama),
+      ],
+   q(7001) => [
+      q(Valpei),
+      ],
+   q(7002) => [
+      q(Vlaams),
+      ],
+   q(7003) => [
+      q(Martuyhunira),
+      ],
+   q(7004) => [
+      q(Barbaram),
+      ],
+   q(7005) => [
+      q(Juxtlahuaca Mixtec),
+      ],
+   q(7006) => [
+      q(Mudu Koraga),
+      ],
+   q(7007) => [
+      q(East Masela),
+      ],
+   q(7008) => [
+      q(Mainfrankisch),
+      ],
+   q(7009) => [
+      q(Lungalunga),
+      ],
+   q(7010) => [
+      q(Maraghei),
+      ],
+   q(7011) => [
+      q(Miwa),
+      ],
+   q(7012) => [
+      q(Ixtayutla Mixtec),
+      ],
+   q(7013) => [
+      q(Makhuwa-Shirima),
+      ],
+   q(7014) => [
+      q(Malgana),
+      ],
+   q(7015) => [
+      q(Mitlatongo Mixtec),
+      ],
+   q(7016) => [
+      q(Soyaltepec Mazatec),
+      ],
+   q(7017) => [
+      q(Soyaltepec Mixtec),
+      ],
+   q(7018) => [
+      q(Marenje),
+      ],
+   q(7019) => [
+      q(Moksela),
+      ],
+   q(7020) => [
+      q(Muluridyi),
+      ],
+   q(7021) => [
+      q(Valley Maidu),
+      ],
+   q(7022) => [
+      q(Makhuwa),
+      ],
+   q(7023) => [
+      q(Tamazola Mixtec),
+      ],
+   q(7024) => [
+      q(Ayautla Mazatec),
+      ],
+   q(7025) => [
+      q(Mazatlan Mazatec),
+      ],
+   q(7026) => [
+      q(Vano),
+      q(Lovono),
+      ],
+   q(7027) => [
+      q(Vinmavis),
+      q(Neve'ei),
+      ],
+   q(7028) => [
+      q(Vunapu),
+      ],
+   q(7029) => [
+      q(Voro),
+      ],
+   q(7030) => [
+      q(Vera'a),
+      ],
+   q(7031) => [
+      q(Varisi),
+      ],
+   q(7032) => [
+      q(Burmbar),
+      q(Banam Bay),
+      ],
+   q(7033) => [
+      q(Moldova Sign Language),
+      ],
+   q(7034) => [
+      q(Venezuelan Sign Language),
+      ],
+   q(7035) => [
+      q(Valencian Sign Language),
+      q(Llengua de signes valenciana),
+      ],
+   q(7036) => [
+      q(Vitou),
+      ],
+   q(7037) => [
+      q(Vumbu),
+      ],
+   q(7038) => [
+      q(Vunjo),
+      ],
+   q(7039) => [
+      q(Vute),
+      ],
+   q(7040) => [
+      q(Awa (China)),
+      ],
+   q(7041) => [
+      q(Walla Walla),
+      ],
+   q(7042) => [
+      q(Wab),
+      ],
+   q(7043) => [
+      q(Wasco-Wishram),
+      ],
+   q(7044) => [
+      q(Wandamen),
+      ],
+   q(7045) => [
+      q(Walser),
+      ],
+   q(7046) => [
+      q(Wakona),
+      ],
+   q(7047) => [
+      q(Wa'ema),
+      ],
+   q(7048) => [
+      q(Watubela),
+      ],
+   q(7049) => [
+      q(Wares),
+      ],
+   q(7050) => [
+      q(Waffa),
+      ],
+   q(7051) => [
+      q(Wampanoag),
+      ],
+   q(7052) => [
+      q(Wan),
+      ],
+   q(7053) => [
+      q(Wappo),
+      ],
+   q(7054) => [
+      q(Wapishana),
+      ],
+   q(7055) => [
+      q(Wageman),
+      ],
+   q(7056) => [
+      q(Kaninuwa),
+      ],
+   q(7057) => [
+      q(Waura),
+      ],
+   q(7058) => [
+      q(Waka),
+      ],
+   q(7059) => [
+      q(Waiwai),
+      ],
+   q(7060) => [
+      q(Watam),
+      q(Marangis),
+      ],
+   q(7061) => [
+      q(Wayana),
+      ],
+   q(7062) => [
+      q(Wampur),
+      ],
+   q(7063) => [
+      q(Warao),
+      ],
+   q(7064) => [
+      q(Wabo),
+      ],
+   q(7065) => [
+      q(Waritai),
+      ],
+   q(7066) => [
+      q(Wanda),
+      ],
+   q(7067) => [
+      q(Vwanji),
+      ],
+   q(7068) => [
+      q(Alagwa),
+      ],
+   q(7069) => [
+      q(Waigali),
+      ],
+   q(7070) => [
+      q(Wakhi),
+      ],
+   q(7071) => [
+      q(Wa),
+      ],
+   q(7072) => [
+      q(Warlpiri),
+      ],
+   q(7073) => [
+      q(Waddar),
+      ],
+   q(7074) => [
+      q(Wagdi),
+      ],
+   q(7075) => [
+      q(West Bengal Sign Language),
+      ],
+   q(7076) => [
+      q(Wanman),
+      ],
+   q(7077) => [
+      q(Wajarri),
+      ],
+   q(7078) => [
+      q(Woi),
+      ],
+   q(7079) => [
+      q(Yanomami),
+      ],
+   q(7080) => [
+      q(Waci Gbe),
+      ],
+   q(7081) => [
+      q(Wandji),
+      ],
+   q(7082) => [
+      q(Wadaginam),
+      ],
+   q(7083) => [
+      q(Wadjiginy),
+      ],
+   q(7084) => [
+      q(Wadikali),
+      ],
+   q(7085) => [
+      q(Wadjigu),
+      ],
+   q(7086) => [
+      q(Wadjabangayi),
+      ],
+   q(7087) => [
+      q(Wewaw),
+      ],
+   q(7088) => [
+      q(We Western),
+      ],
+   q(7089) => [
+      q(Wedau),
+      ],
+   q(7090) => [
+      q(Wergaia),
+      ],
+   q(7091) => [
+      q(Weh),
+      ],
+   q(7092) => [
+      q(Kiunum),
+      ],
+   q(7093) => [
+      q(Weme Gbe),
+      ],
+   q(7094) => [
+      q(Wemale),
+      ],
+   q(7095) => [
+      q(Westphalien),
+      ],
+   q(7096) => [
+      q(Weri),
+      ],
+   q(7097) => [
+      q(Cameroon Pidgin),
+      ],
+   q(7098) => [
+      q(Perai),
+      ],
+   q(7099) => [
+      q(Rawngtu Chin),
+      ],
+   q(7100) => [
+      q(Wejewa),
+      ],
+   q(7101) => [
+      q(Yafi),
+      q(Zorop),
+      ],
+   q(7102) => [
+      q(Wagaya),
+      ],
+   q(7103) => [
+      q(Wagawaga),
+      ],
+   q(7104) => [
+      q(Wangganguru),
+      ],
+   q(7105) => [
+      q(Wahgi),
+      ],
+   q(7106) => [
+      q(Waigeo),
+      ],
+   q(7107) => [
+      q(Wirangu),
+      ],
+   q(7108) => [
+      q(Warrgamay),
+      ],
+   q(7109) => [
+      q(Sou Upaa),
+      q(Manusela),
+      ],
+   q(7110) => [
+      q(North Wahgi),
+      ],
+   q(7111) => [
+      q(Wahau Kenyah),
+      ],
+   q(7112) => [
+      q(Wahau Kayan),
+      ],
+   q(7113) => [
+      q(Southern Toussian),
+      ],
+   q(7114) => [
+      q(Wichita),
+      ],
+   q(7115) => [
+      q(Wik-Epa),
+      ],
+   q(7116) => [
+      q(Wik-Keyangan),
+      ],
+   q(7117) => [
+      q(Wik-Ngathana),
+      ],
+   q(7118) => [
+      q(Wik-Me'anha),
+      ],
+   q(7119) => [
+      q(Minidien),
+      ],
+   q(7120) => [
+      q(Wik-Iiyanh),
+      ],
+   q(7121) => [
+      q(Wikalkan),
+      ],
+   q(7122) => [
+      q(Wilawila),
+      ],
+   q(7123) => [
+      q(Wik-Mungkan),
+      ],
+   q(7124) => [
+      q(Ho-Chunk),
+      ],
+   q(7125) => [
+      q(Wirafed),
+      ],
+   q(7126) => [
+      q(Wiru),
+      ],
+   q(7127) => [
+      q(Vitu),
+      ],
+   q(7128) => [
+      q(Wiyot),
+      ],
+   q(7129) => [
+      q(Waja),
+      ],
+   q(7130) => [
+      q(Warji),
+      ],
+   q(7131) => [
+      q(Kw'adza),
+      ],
+   q(7132) => [
+      q(Kumbaran),
+      ],
+   q(7133) => [
+      q(Wakde),
+      q(Mo),
+      ],
+   q(7134) => [
+      q(Kalanadi),
+      ],
+   q(7135) => [
+      q(Kunduvadi),
+      ],
+   q(7136) => [
+      q(Wakawaka),
+      ],
+   q(7137) => [
+      q(Wangkayutyuru),
+      ],
+   q(7138) => [
+      q(Walio),
+      ],
+   q(7139) => [
+      q(Mwali Comorian),
+      ],
+   q(7140) => [
+      q(Wolane),
+      ],
+   q(7141) => [
+      q(Kunbarlang),
+      ],
+   q(7142) => [
+      q(Waioli),
+      ],
+   q(7143) => [
+      q(Wailaki),
+      ],
+   q(7144) => [
+      q(Wali (Sudan)),
+      ],
+   q(7145) => [
+      q(Middle Welsh),
+      ],
+   q(7146) => [
+      q(Wolio),
+      ],
+   q(7147) => [
+      q(Wailapa),
+      ],
+   q(7148) => [
+      q(Wallisian),
+      ],
+   q(7149) => [
+      q(Wuliwuli),
+      ],
+   q(7150) => [
+      q(Wichi Lhamtes Vejoz),
+      ],
+   q(7151) => [
+      q(Walak),
+      ],
+   q(7152) => [
+      q(Wali (Ghana)),
+      ],
+   q(7153) => [
+      q(Waling),
+      ],
+   q(7154) => [
+      q(Mawa (Nigeria)),
+      ],
+   q(7155) => [
+      q(Wambaya),
+      ],
+   q(7156) => [
+      q(Wamas),
+      ],
+   q(7157) => [
+      q(Mamainde),
+      ],
+   q(7158) => [
+      q(Wambule),
+      ],
+   q(7159) => [
+      q(Waima'a),
+      ],
+   q(7160) => [
+      q(Wamin),
+      ],
+   q(7161) => [
+      q(Maiwa (Indonesia)),
+      ],
+   q(7162) => [
+      q(Waamwang),
+      ],
+   q(7163) => [
+      q(Wom (Papua New Guinea)),
+      ],
+   q(7164) => [
+      q(Wambon),
+      ],
+   q(7165) => [
+      q(Walmajarri),
+      ],
+   q(7166) => [
+      q(Mwani),
+      ],
+   q(7167) => [
+      q(Womo),
+      ],
+   q(7168) => [
+      q(Wanambre),
+      ],
+   q(7169) => [
+      q(Wantoat),
+      ],
+   q(7170) => [
+      q(Wandarang),
+      ],
+   q(7171) => [
+      q(Waneci),
+      ],
+   q(7172) => [
+      q(Wanggom),
+      ],
+   q(7173) => [
+      q(Ndzwani Comorian),
+      ],
+   q(7174) => [
+      q(Wanukaka),
+      ],
+   q(7175) => [
+      q(Wanggamala),
+      ],
+   q(7176) => [
+      q(Wunumara),
+      ],
+   q(7177) => [
+      q(Wano),
+      ],
+   q(7178) => [
+      q(Wanap),
+      ],
+   q(7179) => [
+      q(Usan),
+      ],
+   q(7180) => [
+      q(Wintu),
+      ],
+   q(7181) => [
+      q(Wanyi),
+      ],
+   q(7182) => [
+      q(Tyaraity),
+      ],
+   q(7183) => [
+      q(We Northern),
+      ],
+   q(7184) => [
+      q(Wogeo),
+      ],
+   q(7185) => [
+      q(Wolani),
+      ],
+   q(7186) => [
+      q(Woleaian),
+      ],
+   q(7187) => [
+      q(Gambian Wolof),
+      ],
+   q(7188) => [
+      q(Wogamusin),
+      ],
+   q(7189) => [
+      q(Kamang),
+      ],
+   q(7190) => [
+      q(Longto),
+      ],
+   q(7191) => [
+      q(Wom (Nigeria)),
+      ],
+   q(7192) => [
+      q(Wongo),
+      ],
+   q(7193) => [
+      q(Manombai),
+      ],
+   q(7194) => [
+      q(Woria),
+      ],
+   q(7195) => [
+      q(Hanga Hundi),
+      ],
+   q(7196) => [
+      q(Wawonii),
+      ],
+   q(7197) => [
+      q(Weyto),
+      ],
+   q(7198) => [
+      q(Maco),
+      ],
+   q(7199) => [
+      q(Warapu),
+      ],
+   q(7200) => [
+      q(Warluwara),
+      ],
+   q(7201) => [
+      q(Warduji),
+      ],
+   q(7202) => [
+      q(Warungu),
+      ],
+   q(7203) => [
+      q(Wiradhuri),
+      ],
+   q(7204) => [
+      q(Wariyangga),
+      ],
+   q(7205) => [
+      q(Garrwa),
+      ],
+   q(7206) => [
+      q(Warlmanpa),
+      ],
+   q(7207) => [
+      q(Warumungu),
+      ],
+   q(7208) => [
+      q(Warnang),
+      ],
+   q(7209) => [
+      q(Worrorra),
+      ],
+   q(7210) => [
+      q(Waropen),
+      ],
+   q(7211) => [
+      q(Wardaman),
+      ],
+   q(7212) => [
+      q(Waris),
+      ],
+   q(7213) => [
+      q(Waru),
+      ],
+   q(7214) => [
+      q(Waruna),
+      ],
+   q(7215) => [
+      q(Gugu Warra),
+      ],
+   q(7216) => [
+      q(Wae Rana),
+      ],
+   q(7217) => [
+      q(Merwari),
+      ],
+   q(7218) => [
+      q(Waray (Australia)),
+      ],
+   q(7219) => [
+      q(Warembori),
+      ],
+   q(7220) => [
+      q(Adilabad Gondi),
+      ],
+   q(7221) => [
+      q(Wusi),
+      ],
+   q(7222) => [
+      q(Waskia),
+      ],
+   q(7223) => [
+      q(Owenia),
+      ],
+   q(7224) => [
+      q(Wasa),
+      ],
+   q(7225) => [
+      q(Wasu),
+      ],
+   q(7226) => [
+      q(Wotapuri-Katarqalai),
+      ],
+   q(7227) => [
+      q(Watiwa),
+      ],
+   q(7228) => [
+      q(Wathawurrung),
+      ],
+   q(7229) => [
+      q(Berta),
+      ],
+   q(7230) => [
+      q(Watakataui),
+      ],
+   q(7231) => [
+      q(Mewati),
+      ],
+   q(7232) => [
+      q(Wotu),
+      ],
+   q(7233) => [
+      q(Wikngenchera),
+      ],
+   q(7234) => [
+      q(Wunambal),
+      ],
+   q(7235) => [
+      q(Wudu),
+      ],
+   q(7236) => [
+      q(Wutunhua),
+      ],
+   q(7237) => [
+      q(Silimo),
+      ],
+   q(7238) => [
+      q(Wumbvu),
+      ],
+   q(7239) => [
+      q(Bungu),
+      ],
+   q(7240) => [
+      q(Wurrugu),
+      ],
+   q(7241) => [
+      q(Wutung),
+      ],
+   q(7242) => [
+      q(Wu Chinese),
+      ],
+   q(7243) => [
+      q(Wuvulu-Aua),
+      ],
+   q(7244) => [
+      q(Wulna),
+      ],
+   q(7245) => [
+      q(Wauyai),
+      ],
+   q(7246) => [
+      q(Waama),
+      ],
+   q(7247) => [
+      q(Wakabunga),
+      ],
+   q(7248) => [
+      q(Wetamut),
+      q(Dorig),
+      ],
+   q(7249) => [
+      q(Warrwa),
+      ],
+   q(7250) => [
+      q(Wawa),
+      ],
+   q(7251) => [
+      q(Waxianghua),
+      ],
+   q(7252) => [
+      q(Wardandi),
+      ],
+   q(7253) => [
+      q(Wyandot),
+      ],
+   q(7254) => [
+      q(Wangaaybuwan-Ngiyambaa),
+      ],
+   q(7255) => [
+      q(Woiwurrung),
+      ],
+   q(7256) => [
+      q(Wymysorys),
+      ],
+   q(7257) => [
+      q(Wayoro),
+      ],
+   q(7258) => [
+      q(Western Fijian),
+      ],
+   q(7259) => [
+      q(Andalusian Arabic),
+      ],
+   q(7260) => [
+      q(Sambe),
+      ],
+   q(7261) => [
+      q(Kachari),
+      ],
+   q(7262) => [
+      q(Adai),
+      ],
+   q(7263) => [
+      q(Aequian),
+      ],
+   q(7264) => [
+      q(Aghwan),
+      ],
+   q(7265) => [
+      q(Kaimbe),
+      ],
+   q(7266) => [
+      q(Ararandewara),
+      ],
+   q(7267) => [
+      q(Maku),
+      ],
+   q(7268) => [
+      q(/Xam),
+      q(Xam),
+      ],
+   q(7269) => [
+      q(Xamtanga),
+      ],
+   q(7270) => [
+      q(Khao),
+      ],
+   q(7271) => [
+      q(Apalachee),
+      ],
+   q(7272) => [
+      q(Aquitanian),
+      ],
+   q(7273) => [
+      q(Karami),
+      ],
+   q(7274) => [
+      q(Kamas),
+      ],
+   q(7275) => [
+      q(Katawixi),
+      ],
+   q(7276) => [
+      q(Kauwera),
+      ],
+   q(7277) => [
+      q(Xavante),
+      ],
+   q(7278) => [
+      q(Kawaiisu),
+      ],
+   q(7279) => [
+      q(Kayan Mahakam),
+      ],
+   q(7280) => [
+      q(Lower Burdekin),
+      ],
+   q(7281) => [
+      q(Bactrian),
+      ],
+   q(7282) => [
+      q(Bindal),
+      ],
+   q(7283) => [
+      q(Bigambal),
+      ],
+   q(7284) => [
+      q(Bunganditj),
+      ],
+   q(7285) => [
+      q(Kombio),
+      ],
+   q(7286) => [
+      q(Birrpayi),
+      ],
+   q(7287) => [
+      q(Middle Breton),
+      ],
+   q(7288) => [
+      q(Kenaboi),
+      ],
+   q(7289) => [
+      q(Bolgarian),
+      ],
+   q(7290) => [
+      q(Bibbulman),
+      ],
+   q(7291) => [
+      q(Kambera),
+      ],
+   q(7292) => [
+      q(Kambiwa),
+      ],
+   q(7293) => [
+      q(Batyala),
+      ],
+   q(7294) => [
+      q(Cumbric),
+      ],
+   q(7295) => [
+      q(Camunic),
+      ],
+   q(7296) => [
+      q(Celtiberian),
+      ],
+   q(7297) => [
+      q(Cisalpine Gaulish),
+      ],
+   q(7298) => [
+      q(Chemakum),
+      q(Chimakum),
+      ],
+   q(7299) => [
+      q(Classical Armenian),
+      ],
+   q(7300) => [
+      q(Comecrudo),
+      ],
+   q(7301) => [
+      q(Cotoname),
+      ],
+   q(7302) => [
+      q(Chorasmian),
+      ],
+   q(7303) => [
+      q(Carian),
+      ],
+   q(7304) => [
+      q(Classical Tibetan),
+      ],
+   q(7305) => [
+      q(Curonian),
+      ],
+   q(7306) => [
+      q(Chuvantsy),
+      ],
+   q(7307) => [
+      q(Coahuilteco),
+      ],
+   q(7308) => [
+      q(Cayuse),
+      ],
+   q(7309) => [
+      q(Darkinyung),
+      ],
+   q(7310) => [
+      q(Dacian),
+      ],
+   q(7311) => [
+      q(Dharuk),
+      ],
+   q(7312) => [
+      q(Edomite),
+      ],
+   q(7313) => [
+      q(Kwandu),
+      ],
+   q(7314) => [
+      q(Malayic Dayak),
+      ],
+   q(7315) => [
+      q(Eblan),
+      ],
+   q(7316) => [
+      q(Hdi),
+      ],
+   q(7317) => [
+      q(//Xegwi),
+      q(Xegwi),
+      ],
+   q(7318) => [
+      q(Kelo),
+      ],
+   q(7319) => [
+      q(Kembayan),
+      ],
+   q(7320) => [
+      q(Epi-Olmec),
+      ],
+   q(7321) => [
+      q(Xerente),
+      ],
+   q(7322) => [
+      q(Kesawai),
+      ],
+   q(7323) => [
+      q(Xeta),
+      ],
+   q(7324) => [
+      q(Keoru-Ahia),
+      ],
+   q(7325) => [
+      q(Faliscan),
+      ],
+   q(7326) => [
+      q(Galatian),
+      ],
+   q(7327) => [
+      q(Gbin),
+      ],
+   q(7328) => [
+      q(Gudang),
+      ],
+   q(7329) => [
+      q(Gabrielino-Fernandeno),
+      ],
+   q(7330) => [
+      q(Goreng),
+      ],
+   q(7331) => [
+      q(Garingbal),
+      ],
+   q(7332) => [
+      q(Galindan),
+      ],
+   q(7333) => [
+      q(Dharumbal),
+      q(Guwinmal),
+      ],
+   q(7334) => [
+      q(Garza),
+      ],
+   q(7335) => [
+      q(Unggumi),
+      ],
+   q(7336) => [
+      q(Guwa),
+      ],
+   q(7337) => [
+      q(Harami),
+      ],
+   q(7338) => [
+      q(Hunnic),
+      ],
+   q(7339) => [
+      q(Hadrami),
+      ],
+   q(7340) => [
+      q(Khetrani),
+      ],
+   q(7341) => [
+      q(Hernican),
+      ],
+   q(7342) => [
+      q(Hattic),
+      ],
+   q(7343) => [
+      q(Hurrian),
+      ],
+   q(7344) => [
+      q(Khua),
+      ],
+   q(7345) => [
+      q(Iberian),
+      ],
+   q(7346) => [
+      q(Xiri),
+      ],
+   q(7347) => [
+      q(Illyrian),
+      ],
+   q(7348) => [
+      q(Xinca),
+      ],
+   q(7349) => [
+      q(Xiriana),
+      ],
+   q(7350) => [
+      q(Kisan),
+      ],
+   q(7351) => [
+      q(Indus Valley Language),
+      ],
+   q(7352) => [
+      q(Xipaya),
+      ],
+   q(7353) => [
+      q(Minjungbal),
+      ],
+   q(7354) => [
+      q(Jaitmatang),
+      ],
+   q(7355) => [
+      q(Kalkoti),
+      ],
+   q(7356) => [
+      q(Northern Nago),
+      ],
+   q(7357) => [
+      q(Kho'ini),
+      ],
+   q(7358) => [
+      q(Mendalam Kayan),
+      ],
+   q(7359) => [
+      q(Kereho),
+      ],
+   q(7360) => [
+      q(Khengkha),
+      ],
+   q(7361) => [
+      q(Kagoro),
+      ],
+   q(7362) => [
+      q(Kenyan Sign Language),
+      ],
+   q(7363) => [
+      q(Kajali),
+      ],
+   q(7364) => [
+      q(Kaco'),
+      ],
+   q(7365) => [
+      q(Mainstream Kenyah),
+      ],
+   q(7366) => [
+      q(Kayan River Kayan),
+      ],
+   q(7367) => [
+      q(Kiorr),
+      ],
+   q(7368) => [
+      q(Kabatei),
+      ],
+   q(7369) => [
+      q(Koroni),
+      ],
+   q(7370) => [
+      q(Xakriaba),
+      ],
+   q(7371) => [
+      q(Kumbewaha),
+      ],
+   q(7372) => [
+      q(Kantosi),
+      ],
+   q(7373) => [
+      q(Kaamba),
+      ],
+   q(7374) => [
+      q(Kgalagadi),
+      ],
+   q(7375) => [
+      q(Kembra),
+      ],
+   q(7376) => [
+      q(Karore),
+      ],
+   q(7377) => [
+      q(Uma' Lasan),
+      ],
+   q(7378) => [
+      q(Kurtokha),
+      ],
+   q(7379) => [
+      q(Kamula),
+      ],
+   q(7380) => [
+      q(Loup B),
+      ],
+   q(7381) => [
+      q(Lycian),
+      ],
+   q(7382) => [
+      q(Lydian),
+      ],
+   q(7383) => [
+      q(Lemnian),
+      ],
+   q(7384) => [
+      q(Ligurian (Ancient)),
+      ],
+   q(7385) => [
+      q(Liburnian),
+      ],
+   q(7386) => [
+      q(Alanic),
+      ],
+   q(7387) => [
+      q(Loup A),
+      ],
+   q(7388) => [
+      q(Lepontic),
+      ],
+   q(7389) => [
+      q(Lusitanian),
+      ],
+   q(7390) => [
+      q(Cuneiform Luwian),
+      ],
+   q(7391) => [
+      q(Elymian),
+      ],
+   q(7392) => [
+      q(Mushungulu),
+      ],
+   q(7393) => [
+      q(Mbonga),
+      ],
+   q(7394) => [
+      q(Makhuwa-Marrevone),
+      ],
+   q(7395) => [
+      q(Mbudum),
+      ],
+   q(7396) => [
+      q(Median),
+      ],
+   q(7397) => [
+      q(Mingrelian),
+      ],
+   q(7398) => [
+      q(Mengaka),
+      ],
+   q(7399) => [
+      q(Kuku-Muminh),
+      ],
+   q(7400) => [
+      q(Majera),
+      ],
+   q(7401) => [
+      q(Ancient Macedonian),
+      ],
+   q(7402) => [
+      q(Malaysian Sign Language),
+      ],
+   q(7403) => [
+      q(Manado Malay),
+      ],
+   q(7404) => [
+      q(Manichaean Middle Persian),
+      ],
+   q(7405) => [
+      q(Morerebi),
+      ],
+   q(7406) => [
+      q(Kuku-Mu'inh),
+      ],
+   q(7407) => [
+      q(Kuku-Mangk),
+      ],
+   q(7408) => [
+      q(Meroitic),
+      ],
+   q(7409) => [
+      q(Moroccan Sign Language),
+      ],
+   q(7410) => [
+      q(Matbat),
+      ],
+   q(7411) => [
+      q(Kamu),
+      ],
+   q(7412) => [
+      q(Antankarana Malagasy),
+      q(Tankarana Malagasy),
+      ],
+   q(7413) => [
+      q(Tsimihety Malagasy),
+      ],
+   q(7414) => [
+      q(Maden),
+      ],
+   q(7415) => [
+      q(Mayaguduna),
+      ],
+   q(7416) => [
+      q(Mori Bawah),
+      ],
+   q(7417) => [
+      q(Ancient North Arabian),
+      ],
+   q(7418) => [
+      q(Kanakanabu),
+      ],
+   q(7419) => [
+      q(Middle Mongolian),
+      ],
+   q(7420) => [
+      q(Kuanhua),
+      ],
+   q(7421) => [
+      q(Ngarigu),
+      ],
+   q(7422) => [
+      q(Nganakarti),
+      ],
+   q(7423) => [
+      q(Northern Kankanay),
+      ],
+   q(7424) => [
+      q(Anglo-Norman),
+      ],
+   q(7425) => [
+      q(Kangri),
+      ],
+   q(7426) => [
+      q(Kanashi),
+      ],
+   q(7427) => [
+      q(Narragansett),
+      ],
+   q(7428) => [
+      q(Nukunul),
+      ],
+   q(7429) => [
+      q(Nyiyaparli),
+      ],
+   q(7430) => [
+      q(Kenzi),
+      q(Mattoki),
+      ],
+   q(7431) => [
+      q(O'chi'chi'),
+      ],
+   q(7432) => [
+      q(Kokoda),
+      ],
+   q(7433) => [
+      q(Soga),
+      ],
+   q(7434) => [
+      q(Kominimung),
+      ],
+   q(7435) => [
+      q(Xokleng),
+      ],
+   q(7436) => [
+      q(Komo (Sudan)),
+      ],
+   q(7437) => [
+      q(Konkomba),
+      ],
+   q(7438) => [
+      q(Xukuru),
+      ],
+   q(7439) => [
+      q(Kopar),
+      ],
+   q(7440) => [
+      q(Korubo),
+      ],
+   q(7441) => [
+      q(Kowaki),
+      ],
+   q(7442) => [
+      q(Pirriya),
+      ],
+   q(7443) => [
+      q(Pecheneg),
+      ],
+   q(7444) => [
+      q(Liberia Kpelle),
+      ],
+   q(7445) => [
+      q(Phrygian),
+      ],
+   q(7446) => [
+      q(Pictish),
+      ],
+   q(7447) => [
+      q(Mpalitjanh),
+      ],
+   q(7448) => [
+      q(Kulina Pano),
+      ],
+   q(7449) => [
+      q(Pumpokol),
+      ],
+   q(7450) => [
+      q(Kapinawa),
+      ],
+   q(7451) => [
+      q(Pochutec),
+      ],
+   q(7452) => [
+      q(Puyo-Paekche),
+      ],
+   q(7453) => [
+      q(Mohegan-Pequot),
+      ],
+   q(7454) => [
+      q(Parthian),
+      ],
+   q(7455) => [
+      q(Pisidian),
+      ],
+   q(7456) => [
+      q(Punthamara),
+      ],
+   q(7457) => [
+      q(Punic),
+      ],
+   q(7458) => [
+      q(Puyo),
+      ],
+   q(7459) => [
+      q(Karakhanid),
+      ],
+   q(7460) => [
+      q(Qatabanian),
+      ],
+   q(7461) => [
+      q(Kraho),
+      ],
+   q(7462) => [
+      q(Eastern Karaboro),
+      ],
+   q(7463) => [
+      q(Gundungurra),
+      ],
+   q(7464) => [
+      q(Kreye),
+      ],
+   q(7465) => [
+      q(Minang),
+      ],
+   q(7466) => [
+      q(Krikati-Timbira),
+      ],
+   q(7467) => [
+      q(Armazic),
+      ],
+   q(7468) => [
+      q(Arin),
+      ],
+   q(7469) => [
+      q(Karranga),
+      ],
+   q(7470) => [
+      q(Raetic),
+      ],
+   q(7471) => [
+      q(Aranama-Tamique),
+      ],
+   q(7472) => [
+      q(Marriammu),
+      ],
+   q(7473) => [
+      q(Karawa),
+      ],
+   q(7474) => [
+      q(Sabaean),
+      ],
+   q(7475) => [
+      q(Sambal),
+      ],
+   q(7476) => [
+      q(Scythian),
+      ],
+   q(7477) => [
+      q(Sidetic),
+      ],
+   q(7478) => [
+      q(Sempan),
+      ],
+   q(7479) => [
+      q(Shamang),
+      ],
+   q(7480) => [
+      q(Sio),
+      ],
+   q(7481) => [
+      q(South Slavey),
+      ],
+   q(7482) => [
+      q(Kasem),
+      ],
+   q(7483) => [
+      q(Sanga (Nigeria)),
+      ],
+   q(7484) => [
+      q(Solano),
+      ],
+   q(7485) => [
+      q(Silopi),
+      ],
+   q(7486) => [
+      q(Makhuwa-Saka),
+      ],
+   q(7487) => [
+      q(Sherpa),
+      ],
+   q(7488) => [
+      q(Assan),
+      ],
+   q(7489) => [
+      q(Sanuma),
+      ],
+   q(7490) => [
+      q(Sudovian),
+      ],
+   q(7491) => [
+      q(Saisiyat),
+      ],
+   q(7492) => [
+      q(Alcozauca Mixtec),
+      ],
+   q(7493) => [
+      q(Chazumba Mixtec),
+      ],
+   q(7494) => [
+      q(Katcha-Kadugli-Miri),
+      ],
+   q(7495) => [
+      q(Diuxi-Tilantongo Mixtec),
+      ],
+   q(7496) => [
+      q(Ketengban),
+      ],
+   q(7497) => [
+      q(Transalpine Gaulish),
+      ],
+   q(7498) => [
+      q(Yitha Yitha),
+      ],
+   q(7499) => [
+      q(Sinicahua Mixtec),
+      ],
+   q(7500) => [
+      q(San Juan Teita Mixtec),
+      ],
+   q(7501) => [
+      q(Tijaltepec Mixtec),
+      ],
+   q(7502) => [
+      q(Magdalena Penasco Mixtec),
+      ],
+   q(7503) => [
+      q(Northern Tlaxiaco Mixtec),
+      ],
+   q(7504) => [
+      q(Tokharian A),
+      ],
+   q(7505) => [
+      q(San Miguel Piedras Mixtec),
+      ],
+   q(7506) => [
+      q(Tumshuqese),
+      ],
+   q(7507) => [
+      q(Early Tripuri),
+      ],
+   q(7508) => [
+      q(Sindihui Mixtec),
+      ],
+   q(7509) => [
+      q(Tacahua Mixtec),
+      ],
+   q(7510) => [
+      q(Cuyamecalco Mixtec),
+      ],
+   q(7511) => [
+      q(Thawa),
+      ],
+   q(7512) => [
+      q(Tawande),
+      ],
+   q(7513) => [
+      q(Yoloxochitl Mixtec),
+      ],
+   q(7514) => [
+      q(Tasmanian),
+      ],
+   q(7515) => [
+      q(Alu Kurumba),
+      ],
+   q(7516) => [
+      q(Betta Kurumba),
+      ],
+   q(7517) => [
+      q(Umiida),
+      ],
+   q(7518) => [
+      q(Kunigami),
+      ],
+   q(7519) => [
+      q(Jennu Kurumba),
+      ],
+   q(7520) => [
+      q(Ngunawal),
+      ],
+   q(7521) => [
+      q(Umbrian),
+      ],
+   q(7522) => [
+      q(Unggaranggu),
+      ],
+   q(7523) => [
+      q(Kuo),
+      ],
+   q(7524) => [
+      q(Upper Umpqua),
+      ],
+   q(7525) => [
+      q(Urartian),
+      ],
+   q(7526) => [
+      q(Kuthant),
+      ],
+   q(7527) => [
+      q(Kxoe),
+      q(Khwedam),
+      ],
+   q(7528) => [
+      q(Venetic),
+      ],
+   q(7529) => [
+      q(Kamviri),
+      ],
+   q(7530) => [
+      q(Vandalic),
+      ],
+   q(7531) => [
+      q(Volscian),
+      ],
+   q(7532) => [
+      q(Vestinian),
+      ],
+   q(7533) => [
+      q(Kwaza),
+      ],
+   q(7534) => [
+      q(Woccon),
+      ],
+   q(7535) => [
+      q(Wadi Wadi),
+      ],
+   q(7536) => [
+      q(Xwela Gbe),
+      ],
+   q(7537) => [
+      q(Kwegu),
+      ],
+   q(7538) => [
+      q(Wajuk),
+      ],
+   q(7539) => [
+      q(Wangkumara),
+      ],
+   q(7540) => [
+      q(Western Xwla Gbe),
+      ],
+   q(7541) => [
+      q(Written Oirat),
+      ],
+   q(7542) => [
+      q(Kwerba Mamberamo),
+      ],
+   q(7543) => [
+      q(Wotjobaluk),
+      ],
+   q(7544) => [
+      q(Wemba Wemba),
+      ],
+   q(7545) => [
+      q(Boro (Ghana)),
+      ],
+   q(7546) => [
+      q(Ke'o),
+      ],
+   q(7547) => [
+      q(Minkin),
+      ],
+   q(7548) => [
+      q(Koropo),
+      ],
+   q(7549) => [
+      q(Tambora),
+      ],
+   q(7550) => [
+      q(Yaygir),
+      ],
+   q(7551) => [
+      q(Yandjibara),
+      ],
+   q(7552) => [
+      q(Mayi-Yapi),
+      ],
+   q(7553) => [
+      q(Mayi-Kulan),
+      ],
+   q(7554) => [
+      q(Yalakalore),
+      ],
+   q(7555) => [
+      q(Mayi-Thakurti),
+      ],
+   q(7556) => [
+      q(Yorta Yorta),
+      ],
+   q(7557) => [
+      q(Zhang-Zhung),
+      ],
+   q(7558) => [
+      q(Zemgalian),
+      ],
+   q(7559) => [
+      q(Ancient Zapotec),
+      ],
+   q(7560) => [
+      q(Yaminahua),
+      ],
+   q(7561) => [
+      q(Yuhup),
+      ],
+   q(7562) => [
+      q(Pass Valley Yali),
+      ],
+   q(7563) => [
+      q(Yagua),
+      ],
+   q(7564) => [
+      q(Pume),
+      ],
+   q(7565) => [
+      q(Yaka (Democratic Republic of Congo)),
+      ],
+   q(7566) => [
+      q(Yamana),
+      ],
+   q(7567) => [
+      q(Yazgulyam),
+      ],
+   q(7568) => [
+      q(Yagnobi),
+      ],
+   q(7569) => [
+      q(Banda-Yangere),
+      ],
+   q(7570) => [
+      q(Yakama),
+      ],
+   q(7571) => [
+      q(Yalunka),
+      ],
+   q(7572) => [
+      q(Yamba),
+      ],
+   q(7573) => [
+      q(Mayangna),
+      ],
+   q(7574) => [
+      q(Yaqui),
+      ],
+   q(7575) => [
+      q(Yabarana),
+      ],
+   q(7576) => [
+      q(Nugunu (Cameroon)),
+      ],
+   q(7577) => [
+      q(Yambeta),
+      ],
+   q(7578) => [
+      q(Yuwana),
+      ],
+   q(7579) => [
+      q(Yangben),
+      ],
+   q(7580) => [
+      q(Yawalapiti),
+      ],
+   q(7581) => [
+      q(Yauma),
+      ],
+   q(7582) => [
+      q(Agwagwune),
+      ],
+   q(7583) => [
+      q(Lokaa),
+      ],
+   q(7584) => [
+      q(Yala),
+      ],
+   q(7585) => [
+      q(Yemba),
+      ],
+   q(7586) => [
+      q(West Yugur),
+      ],
+   q(7587) => [
+      q(Yakha),
+      ],
+   q(7588) => [
+      q(Yamphu),
+      ],
+   q(7589) => [
+      q(Hasha),
+      ],
+   q(7590) => [
+      q(Bokha),
+      ],
+   q(7591) => [
+      q(Yukuben),
+      ],
+   q(7592) => [
+      q(Yaben),
+      ],
+   q(7593) => [
+      q(Yabaana),
+      ],
+   q(7594) => [
+      q(Yabong),
+      ],
+   q(7595) => [
+      q(Yawiyo),
+      ],
+   q(7596) => [
+      q(Yaweyuha),
+      ],
+   q(7597) => [
+      q(Chesu),
+      ],
+   q(7598) => [
+      q(Lolopo),
+      ],
+   q(7599) => [
+      q(Yucuna),
+      ],
+   q(7600) => [
+      q(Chepya),
+      ],
+   q(7601) => [
+      q(Yanda),
+      ],
+   q(7602) => [
+      q(Eastern Yiddish),
+      ],
+   q(7603) => [
+      q(Yangum Dey),
+      ],
+   q(7604) => [
+      q(Yidgha),
+      ],
+   q(7605) => [
+      q(Yoidik),
+      ],
+   q(7606) => [
+      q(Ravula),
+      ],
+   q(7607) => [
+      q(Yeniche),
+      ],
+   q(7608) => [
+      q(Yimas),
+      ],
+   q(7609) => [
+      q(Yeni),
+      ],
+   q(7610) => [
+      q(Yevanic),
+      ],
+   q(7611) => [
+      q(Yela),
+      ],
+   q(7612) => [
+      q(Tarok),
+      ],
+   q(7613) => [
+      q(Nyankpa),
+      ],
+   q(7614) => [
+      q(Yetfa),
+      ],
+   q(7615) => [
+      q(Yerukula),
+      ],
+   q(7616) => [
+      q(Yapunda),
+      ],
+   q(7617) => [
+      q(Yeyi),
+      ],
+   q(7618) => [
+      q(Malyangapa),
+      ],
+   q(7619) => [
+      q(Yiningayi),
+      ],
+   q(7620) => [
+      q(Yangum Gel),
+      ],
+   q(7621) => [
+      q(Yagomi),
+      ],
+   q(7622) => [
+      q(Gepo),
+      ],
+   q(7623) => [
+      q(Yagaria),
+      ],
+   q(7624) => [
+      q(Yolnu Sign Language),
+      ],
+   q(7625) => [
+      q(Yugul),
+      ],
+   q(7626) => [
+      q(Yagwoia),
+      ],
+   q(7627) => [
+      q(Baha Buyang),
+      ],
+   q(7628) => [
+      q(Judeo-Iraqi Arabic),
+      ],
+   q(7629) => [
+      q(Hlepho Phowa),
+      ],
+   q(7630) => [
+      q(Yan-nhanu Sign Language),
+      ],
+   q(7631) => [
+      q(Yinggarda),
+      ],
+   q(7632) => [
+      q(Wusa Nasu),
+      ],
+   q(7633) => [
+      q(Western Yiddish),
+      ],
+   q(7634) => [
+      q(Yidiny),
+      ],
+   q(7635) => [
+      q(Yindjibarndi),
+      ],
+   q(7636) => [
+      q(Dongshanba Lalo),
+      ],
+   q(7637) => [
+      q(Yindjilandji),
+      ],
+   q(7638) => [
+      q(Yimchungru Naga),
+      ],
+   q(7639) => [
+      q(Yinchia),
+      ],
+   q(7640) => [
+      q(Pholo),
+      ],
+   q(7641) => [
+      q(Miqie),
+      ],
+   q(7642) => [
+      q(North Awyu),
+      ],
+   q(7643) => [
+      q(Yis),
+      ],
+   q(7644) => [
+      q(Eastern Lalu),
+      ],
+   q(7645) => [
+      q(Awu),
+      ],
+   q(7646) => [
+      q(Northern Nisu),
+      ],
+   q(7647) => [
+      q(Axi Yi),
+      ],
+   q(7648) => [
+      q(Azhe),
+      ],
+   q(7649) => [
+      q(Yakan),
+      ],
+   q(7650) => [
+      q(Northern Yukaghir),
+      ],
+   q(7651) => [
+      q(Yoke),
+      ],
+   q(7652) => [
+      q(Yakaikeke),
+      ],
+   q(7653) => [
+      q(Khlula),
+      ],
+   q(7654) => [
+      q(Kap),
+      ],
+   q(7655) => [
+      q(Kua-nsi),
+      ],
+   q(7656) => [
+      q(Yasa),
+      ],
+   q(7657) => [
+      q(Yekora),
+      ],
+   q(7658) => [
+      q(Kathu),
+      ],
+   q(7659) => [
+      q(Kuamasi),
+      ],
+   q(7660) => [
+      q(Yakoma),
+      ],
+   q(7661) => [
+      q(Yaul),
+      ],
+   q(7662) => [
+      q(Yaleba),
+      ],
+   q(7663) => [
+      q(Yele),
+      ],
+   q(7664) => [
+      q(Yelogu),
+      ],
+   q(7665) => [
+      q(Angguruk Yali),
+      ],
+   q(7666) => [
+      q(Yil),
+      ],
+   q(7667) => [
+      q(Limi),
+      ],
+   q(7668) => [
+      q(Langnian Buyang),
+      ],
+   q(7669) => [
+      q(Naluo Yi),
+      ],
+   q(7670) => [
+      q(Yalarnnga),
+      ],
+   q(7671) => [
+      q(Aribwaung),
+      ],
+   q(7672) => [
+      q(Nyalayu),
+      q(Nyelayu),
+      ],
+   q(7673) => [
+      q(Yambes),
+      ],
+   q(7674) => [
+      q(Southern Muji),
+      ],
+   q(7675) => [
+      q(Muda),
+      ],
+   q(7676) => [
+      q(Yameo),
+      ],
+   q(7677) => [
+      q(Yamongeri),
+      ],
+   q(7678) => [
+      q(Mili),
+      ],
+   q(7679) => [
+      q(Moji),
+      ],
+   q(7680) => [
+      q(Makwe),
+      ],
+   q(7681) => [
+      q(Iamalele),
+      ],
+   q(7682) => [
+      q(Maay),
+      ],
+   q(7683) => [
+      q(Yamna),
+      q(Sunum),
+      ],
+   q(7684) => [
+      q(Yangum Mon),
+      ],
+   q(7685) => [
+      q(Yamap),
+      ],
+   q(7686) => [
+      q(Qila Muji),
+      ],
+   q(7687) => [
+      q(Malasar),
+      ],
+   q(7688) => [
+      q(Mysian),
+      ],
+   q(7689) => [
+      q(Northern Muji),
+      ],
+   q(7690) => [
+      q(Muzi),
+      ],
+   q(7691) => [
+      q(Aluo),
+      ],
+   q(7692) => [
+      q(Yandruwandha),
+      ],
+   q(7693) => [
+      q(Lang'e),
+      ],
+   q(7694) => [
+      q(Yango),
+      ],
+   q(7695) => [
+      q(Naukan Yupik),
+      ],
+   q(7696) => [
+      q(Yangulam),
+      ],
+   q(7697) => [
+      q(Yana),
+      ],
+   q(7698) => [
+      q(Yong),
+      ],
+   q(7699) => [
+      q(Yendang),
+      ],
+   q(7700) => [
+      q(Yansi),
+      ],
+   q(7701) => [
+      q(Yahuna),
+      ],
+   q(7702) => [
+      q(Yoba),
+      ],
+   q(7703) => [
+      q(Yogad),
+      ],
+   q(7704) => [
+      q(Yonaguni),
+      ],
+   q(7705) => [
+      q(Yokuts),
+      ],
+   q(7706) => [
+      q(Yola),
+      ],
+   q(7707) => [
+      q(Yombe),
+      ],
+   q(7708) => [
+      q(Yongkom),
+      ],
+   q(7709) => [
+      q(Yotti),
+      ],
+   q(7710) => [
+      q(Yoron),
+      ],
+   q(7711) => [
+      q(Yoy),
+      ],
+   q(7712) => [
+      q(Phala),
+      ],
+   q(7713) => [
+      q(Labo Phowa),
+      ],
+   q(7714) => [
+      q(Phola),
+      ],
+   q(7715) => [
+      q(Phupha),
+      ],
+   q(7716) => [
+      q(Phuma),
+      ],
+   q(7717) => [
+      q(Ani Phowa),
+      ],
+   q(7718) => [
+      q(Alo Phola),
+      ],
+   q(7719) => [
+      q(Phupa),
+      ],
+   q(7720) => [
+      q(Phuza),
+      ],
+   q(7721) => [
+      q(Yerakai),
+      ],
+   q(7722) => [
+      q(Yareba),
+      ],
+   q(7723) => [
+      q(Yaoure),
+      ],
+   q(7724) => [
+      q(Nenets),
+      ],
+   q(7725) => [
+      q(Nhengatu),
+      ],
+   q(7726) => [
+      q(Yirrk-Mel),
+      ],
+   q(7727) => [
+      q(Yerong),
+      ],
+   q(7728) => [
+      q(Yaroame),
+      ],
+   q(7729) => [
+      q(Yarsun),
+      ],
+   q(7730) => [
+      q(Yarawata),
+      ],
+   q(7731) => [
+      q(Yarluyandi),
+      ],
+   q(7732) => [
+      q(Yassic),
+      ],
+   q(7733) => [
+      q(Samatao),
+      ],
+   q(7734) => [
+      q(Sonaga),
+      ],
+   q(7735) => [
+      q(Yugoslavian Sign Language),
+      ],
+   q(7736) => [
+      q(Sani),
+      ],
+   q(7737) => [
+      q(Nisi (China)),
+      ],
+   q(7738) => [
+      q(Southern Lolopo),
+      ],
+   q(7739) => [
+      q(Sirenik Yupik),
+      ],
+   q(7740) => [
+      q(Yessan-Mayo),
+      ],
+   q(7741) => [
+      q(Sanie),
+      ],
+   q(7742) => [
+      q(Talu),
+      ],
+   q(7743) => [
+      q(Tanglang),
+      ],
+   q(7744) => [
+      q(Thopho),
+      ],
+   q(7745) => [
+      q(Yout Wam),
+      ],
+   q(7746) => [
+      q(Yatay),
+      ],
+   q(7747) => [
+      q(Yucateco),
+      q(Yucatec Maya),
+      ],
+   q(7748) => [
+      q(Yugambal),
+      ],
+   q(7749) => [
+      q(Yuchi),
+      ],
+   q(7750) => [
+      q(Judeo-Tripolitanian Arabic),
+      ],
+   q(7751) => [
+      q(Yue Chinese),
+      q(Cantonese),
+      ],
+   q(7752) => [
+      q(Havasupai-Walapai-Yavapai),
+      ],
+   q(7753) => [
+      q(Yug),
+      ],
+   q(7754) => [
+      q(Yuruti),
+      ],
+   q(7755) => [
+      q(Karkar-Yuri),
+      ],
+   q(7756) => [
+      q(Yuki),
+      ],
+   q(7757) => [
+      q(Yulu),
+      ],
+   q(7758) => [
+      q(Quechan),
+      ],
+   q(7759) => [
+      q(Bena (Nigeria)),
+      ],
+   q(7760) => [
+      q(Yukpa),
+      ],
+   q(7761) => [
+      q(Yuqui),
+      ],
+   q(7762) => [
+      q(Yurok),
+      ],
+   q(7763) => [
+      q(Yopno),
+      ],
+   q(7764) => [
+      q(Yau (Morobe Province)),
+      ],
+   q(7765) => [
+      q(Southern Yukaghir),
+      ],
+   q(7766) => [
+      q(East Yugur),
+      ],
+   q(7767) => [
+      q(Yuracare),
+      ],
+   q(7768) => [
+      q(Yawa),
+      ],
+   q(7769) => [
+      q(Yavitero),
+      ],
+   q(7770) => [
+      q(Kalou),
+      ],
+   q(7771) => [
+      q(Yinhawangka),
+      ],
+   q(7772) => [
+      q(Western Lalu),
+      ],
+   q(7773) => [
+      q(Yawanawa),
+      ],
+   q(7774) => [
+      q(Wuding-Luquan Yi),
+      ],
+   q(7775) => [
+      q(Yawuru),
+      ],
+   q(7776) => [
+      q(Xishanba Lalo),
+      q(Central Lalo),
+      ],
+   q(7777) => [
+      q(Wumeng Nasu),
+      ],
+   q(7778) => [
+      q(Yawarawarga),
+      ],
+   q(7779) => [
+      q(Mayawali),
+      ],
+   q(7780) => [
+      q(Yagara),
+      ],
+   q(7781) => [
+      q(Yardliyawarra),
+      ],
+   q(7782) => [
+      q(Yinwum),
+      ],
+   q(7783) => [
+      q(Yuyu),
+      ],
+   q(7784) => [
+      q(Yabula Yabula),
+      ],
+   q(7785) => [
+      q(Yir Yoront),
+      ],
+   q(7786) => [
+      q(Yau (Sandaun Province)),
+      ],
+   q(7787) => [
+      q(Ayizi),
+      ],
+   q(7788) => [
+      q(E'ma Buyang),
+      ],
+   q(7789) => [
+      q(Zokhuo),
+      ],
+   q(7790) => [
+      q(Sierra de Juarez Zapotec),
+      ],
+   q(7791) => [
+      q(Western Tlacolula Valley Zapotec),
+      q(San Juan Guelavia Zapotec),
+      ],
+   q(7792) => [
+      q(Ocotlan Zapotec),
+      ],
+   q(7793) => [
+      q(Cajonos Zapotec),
+      ],
+   q(7794) => [
+      q(Yareni Zapotec),
+      ],
+   q(7795) => [
+      q(Ayoquesco Zapotec),
+      ],
+   q(7796) => [
+      q(Zaghawa),
+      ],
+   q(7797) => [
+      q(Zangwal),
+      ],
+   q(7798) => [
+      q(Isthmus Zapotec),
+      ],
+   q(7799) => [
+      q(Zaramo),
+      ],
+   q(7800) => [
+      q(Zanaki),
+      ],
+   q(7801) => [
+      q(Zauzou),
+      ],
+   q(7802) => [
+      q(Miahuatlan Zapotec),
+      ],
+   q(7803) => [
+      q(Ozolotepec Zapotec),
+      ],
+   q(7804) => [
+      q(Aloapam Zapotec),
+      ],
+   q(7805) => [
+      q(Rincon Zapotec),
+      ],
+   q(7806) => [
+      q(Santo Domingo Albarradas Zapotec),
+      ],
+   q(7807) => [
+      q(Tabaa Zapotec),
+      ],
+   q(7808) => [
+      q(Zangskari),
+      ],
+   q(7809) => [
+      q(Yatzachi Zapotec),
+      ],
+   q(7810) => [
+      q(Mitla Zapotec),
+      ],
+   q(7811) => [
+      q(Xadani Zapotec),
+      ],
+   q(7812) => [
+      q(Zayse-Zergulla),
+      q(Zaysete),
+      ],
+   q(7813) => [
+      q(Zari),
+      ],
+   q(7814) => [
+      q(Central Berawan),
+      ],
+   q(7815) => [
+      q(East Berawan),
+      ],
+   q(7816) => [
+      q(Batui),
+      ],
+   q(7817) => [
+      q(West Berawan),
+      ],
+   q(7818) => [
+      q(Coatecas Altas Zapotec),
+      ],
+   q(7819) => [
+      q(Central Hongshuihe Zhuang),
+      ],
+   q(7820) => [
+      q(Ngazidja Comorian),
+      ],
+   q(7821) => [
+      q(Zeeuws),
+      ],
+   q(7822) => [
+      q(Zenag),
+      ],
+   q(7823) => [
+      q(Eastern Hongshuihe Zhuang),
+      ],
+   q(7824) => [
+      q(Kinga),
+      ],
+   q(7825) => [
+      q(Guibei Zhuang),
+      ],
+   q(7826) => [
+      q(Minz Zhuang),
+      ],
+   q(7827) => [
+      q(Guibian Zhuang),
+      ],
+   q(7828) => [
+      q(Magori),
+      ],
+   q(7829) => [
+      q(Zhaba),
+      ],
+   q(7830) => [
+      q(Dai Zhuang),
+      ],
+   q(7831) => [
+      q(Zhire),
+      ],
+   q(7832) => [
+      q(Nong Zhuang),
+      ],
+   q(7833) => [
+      q(Zhoa),
+      ],
+   q(7834) => [
+      q(Zia),
+      ],
+   q(7835) => [
+      q(Zimbabwe Sign Language),
+      ],
+   q(7836) => [
+      q(Zimakani),
+      ],
+   q(7837) => [
+      q(Zialo),
+      ],
+   q(7838) => [
+      q(Mesme),
+      ],
+   q(7839) => [
+      q(Zinza),
+      ],
+   q(7840) => [
+      q(Ziriya),
+      ],
+   q(7841) => [
+      q(Zigula),
+      ],
+   q(7842) => [
+      q(Zizilivakan),
+      ],
+   q(7843) => [
+      q(Kaimbulawa),
+      ],
+   q(7844) => [
+      q(Koibal),
+      ],
+   q(7845) => [
+      q(Kadu),
+      ],
+   q(7846) => [
+      q(Koguryo),
+      ],
+   q(7847) => [
+      q(Khorezmian),
+      ],
+   q(7848) => [
+      q(Karankawa),
+      ],
+   q(7849) => [
+      q(Kanan),
+      ],
+   q(7850) => [
+      q(Kott),
+      ],
+   q(7851) => [
+      q(Sao Paulo Kaingang),
+      ],
+   q(7852) => [
+      q(Zakhring),
+      ],
+   q(7853) => [
+      q(Kitan),
+      ],
+   q(7854) => [
+      q(Kaurna),
+      ],
+   q(7855) => [
+      q(Krevinian),
+      ],
+   q(7856) => [
+      q(Khazar),
+      ],
+   q(7857) => [
+      q(Liujiang Zhuang),
+      ],
+   q(7858) => [
+      q(Malay (individual language)),
+      ],
+   q(7859) => [
+      q(Lianshan Zhuang),
+      ],
+   q(7860) => [
+      q(Liuqian Zhuang),
+      ],
+   q(7861) => [
+      q(Manda (Australia)),
+      ],
+   q(7862) => [
+      q(Zimba),
+      ],
+   q(7863) => [
+      q(Margany),
+      ],
+   q(7864) => [
+      q(Maridan),
+      ],
+   q(7865) => [
+      q(Mangerr),
+      ],
+   q(7866) => [
+      q(Mfinu),
+      ],
+   q(7867) => [
+      q(Marti Ke),
+      ],
+   q(7868) => [
+      q(Makolkol),
+      ],
+   q(7869) => [
+      q(Negeri Sembilan Malay),
+      ],
+   q(7870) => [
+      q(Maridjabin),
+      ],
+   q(7871) => [
+      q(Mandandanyi),
+      ],
+   q(7872) => [
+      q(Madngele),
+      ],
+   q(7873) => [
+      q(Marimanindji),
+      ],
+   q(7874) => [
+      q(Mbangwe),
+      ],
+   q(7875) => [
+      q(Molo),
+      ],
+   q(7876) => [
+      q(Mpuono),
+      ],
+   q(7877) => [
+      q(Mituku),
+      ],
+   q(7878) => [
+      q(Maranunggu),
+      ],
+   q(7879) => [
+      q(Mbesa),
+      ],
+   q(7880) => [
+      q(Maringarr),
+      ],
+   q(7881) => [
+      q(Muruwari),
+      ],
+   q(7882) => [
+      q(Mbariman-Gudhinma),
+      ],
+   q(7883) => [
+      q(Mbo (Democratic Republic of Congo)),
+      ],
+   q(7884) => [
+      q(Bomitaba),
+      ],
+   q(7885) => [
+      q(Mariyedi),
+      ],
+   q(7886) => [
+      q(Mbandja),
+      ],
+   q(7887) => [
+      q(Zan Gula),
+      ],
+   q(7888) => [
+      q(Zande (individual language)),
+      ],
+   q(7889) => [
+      q(Mang),
+      ],
+   q(7890) => [
+      q(Manangkari),
+      ],
+   q(7891) => [
+      q(Mangas),
+      ],
+   q(7892) => [
+      q(Copainala Zoque),
+      ],
+   q(7893) => [
+      q(Chimalapa Zoque),
+      ],
+   q(7894) => [
+      q(Zou),
+      ],
+   q(7895) => [
+      q(Asuncion Mixtepec Zapotec),
+      ],
+   q(7896) => [
+      q(Tabasco Zoque),
+      ],
+   q(7897) => [
+      q(Rayon Zoque),
+      ],
+   q(7898) => [
+      q(Francisco Leon Zoque),
+      ],
+   q(7899) => [
+      q(Lachiguiri Zapotec),
+      ],
+   q(7900) => [
+      q(Yautepec Zapotec),
+      ],
+   q(7901) => [
+      q(Choapan Zapotec),
+      ],
+   q(7902) => [
+      q(Southeastern Ixtlan Zapotec),
+      ],
+   q(7903) => [
+      q(Petapa Zapotec),
+      ],
+   q(7904) => [
+      q(San Pedro Quiatoni Zapotec),
+      ],
+   q(7905) => [
+      q(Guevea De Humboldt Zapotec),
+      ],
+   q(7906) => [
+      q(Totomachapan Zapotec),
+      ],
+   q(7907) => [
+      q(Santa Maria Quiegolani Zapotec),
+      ],
+   q(7908) => [
+      q(Quiavicuzas Zapotec),
+      ],
+   q(7909) => [
+      q(Tlacolulita Zapotec),
+      ],
+   q(7910) => [
+      q(Lachixio Zapotec),
+      ],
+   q(7911) => [
+      q(Mixtepec Zapotec),
+      ],
+   q(7912) => [
+      q(Santa Ines Yatzechi Zapotec),
+      ],
+   q(7913) => [
+      q(Amatlan Zapotec),
+      ],
+   q(7914) => [
+      q(El Alto Zapotec),
+      ],
+   q(7915) => [
+      q(Zoogocho Zapotec),
+      ],
+   q(7916) => [
+      q(Santiago Xanica Zapotec),
+      ],
+   q(7917) => [
+      q(Coatlan Zapotec),
+      ],
+   q(7918) => [
+      q(San Vicente Coatlan Zapotec),
+      ],
+   q(7919) => [
+      q(Yalalag Zapotec),
+      ],
+   q(7920) => [
+      q(Chichicapan Zapotec),
+      ],
+   q(7921) => [
+      q(Zaniza Zapotec),
+      ],
+   q(7922) => [
+      q(San Baltazar Loxicha Zapotec),
+      ],
+   q(7923) => [
+      q(Mazaltepec Zapotec),
+      ],
+   q(7924) => [
+      q(Texmelucan Zapotec),
+      ],
+   q(7925) => [
+      q(Qiubei Zhuang),
+      ],
+   q(7926) => [
+      q(Kara (Korea)),
+      ],
+   q(7927) => [
+      q(Mirgan),
+      ],
+   q(7928) => [
+      q(Zerenkel),
+      ],
+   q(7929) => [
+      q(Zaparo),
+      ],
+   q(7930) => [
+      q(Zarphatic),
+      ],
+   q(7931) => [
+      q(Mairasi),
+      ],
+   q(7932) => [
+      q(Sarasira),
+      ],
+   q(7933) => [
+      q(Kaskean),
+      ],
+   q(7934) => [
+      q(Zambian Sign Language),
+      ],
+   q(7935) => [
+      q(Standard Malay),
+      ],
+   q(7936) => [
+      q(Southern Rincon Zapotec),
+      ],
+   q(7937) => [
+      q(Sukurum),
+      ],
+   q(7938) => [
+      q(Elotepec Zapotec),
+      ],
+   q(7939) => [
+      q(Xanaguia Zapotec),
+      ],
+   q(7940) => [
+      q(Lapaguia-Guivini Zapotec),
+      ],
+   q(7941) => [
+      q(San Agustin Mixtepec Zapotec),
+      ],
+   q(7942) => [
+      q(Santa Catarina Albarradas Zapotec),
+      ],
+   q(7943) => [
+      q(Loxicha Zapotec),
+      ],
+   q(7944) => [
+      q(Quioquitani-Quieri Zapotec),
+      ],
+   q(7945) => [
+      q(Tilquiapan Zapotec),
+      ],
+   q(7946) => [
+      q(Tejalapan Zapotec),
+      ],
+   q(7947) => [
+      q(Guila Zapotec),
+      ],
+   q(7948) => [
+      q(Zaachila Zapotec),
+      ],
+   q(7949) => [
+      q(Yatee Zapotec),
+      ],
+   q(7950) => [
+      q(Zeem),
+      ],
+   q(7951) => [
+      q(Tokano),
+      ],
+   q(7952) => [
+      q(Kumzari),
+      ],
+   q(7953) => [
+      q(Zumaya),
+      ],
+   q(7954) => [
+      q(Zay),
+      ],
+   q(7955) => [
+      q(Yongbei Zhuang),
+      ],
+   q(7956) => [
+      q(Yang Zhuang),
+      ],
+   q(7957) => [
+      q(Youjiang Zhuang),
+      ],
+   q(7958) => [
+      q(Yongnan Zhuang),
+      ],
+   q(7959) => [
+      q(Zyphe Chin),
+      ],
+   q(7960) => [
+      q(Zuojiang Zhuang),
+      ],
+};
+
+$Locale::Codes::Data{'language'}{'alias2id'} = {
+   q(!xoo) => [
+      q(4968),
+      q(0),
+      ],
+   q('are'are) => [
+      q(0762),
+      q(0),
+      ],
+   q('auhelawa) => [
+      q(3642),
+      q(0),
+      ],
+   q('oroe) => [
+      q(1382),
+      q(1),
+      ],
+   q(//ani) => [
+      q(2800),
+      q(0),
+      ],
+   q(//gana) => [
+      q(2573),
+      q(0),
+      ],
+   q(//xegwi) => [
+      q(7317),
+      q(0),
+      ],
+   q(/gwi) => [
+      q(2683),
+      q(0),
+      ],
+   q(/xam) => [
+      q(7268),
+      q(0),
+      ],
+   q(=/hua) => [
+      q(2850),
+      q(0),
+      ],
+   q(=/ungkue) => [
+      q(2540),
+      q(1),
+      ],
+   q(a'ou) => [
+      q(0832),
+      q(0),
+      ],
+   q(a'tong) => [
+      q(0831),
+      q(1),
+      ],
+   q(a-hmaos) => [
+      q(2777),
+      q(1),
+      ],
+   q(a-pucikwar) => [
+      q(0850),
+      q(0),
+      ],
+   q(aari) => [
+      q(0711),
+      q(0),
+      ],
+   q(aasax) => [
+      q(0554),
+      q(0),
+      ],
+   q(abadi) => [
+      q(3201),
+      q(0),
+      ],
+   q(abaga) => [
+      q(0566),
+      q(0),
+      ],
+   q(abai sungai) => [
+      q(0565),
+      q(0),
+      ],
+   q(abanyom) => [
+      q(0571),
+      q(0),
+      ],
+   q(abar) => [
+      q(4299),
+      q(0),
+      ],
+   q(abau) => [
+      q(0556),
+      q(0),
+      ],
+   q(abaza) => [
+      q(0575),
+      q(0),
+      ],
+   q(abe) => [
+      q(0560),
+      q(0),
+      ],
+   q(abellen ayta) => [
+      q(0574),
+      q(0),
+      ],
+   q(abidji) => [
+      q(0568),
+      q(0),
+      ],
+   q(abinomn) => [
+      q(1447),
+      q(0),
+      ],
+   q(abipon) => [
+      q(0986),
+      q(0),
+      ],
+   q(abishira) => [
+      q(0893),
+      q(0),
+      ],
+   q(abkhazian) => [
+      q(0002),
+      q(0),
+      ],
+   q(abom) => [
+      q(0816),
+      q(0),
+      ],
+   q(abon) => [
+      q(0573),
+      q(0),
+      ],
+   q(abron) => [
+      q(0576),
+      q(0),
+      ],
+   q(abu) => [
+      q(0615),
+      q(0),
+      ],
+   q(abu' arapesh) => [
+      q(0546),
+      q(0),
+      ],
+   q(abua) => [
+      q(0572),
+      q(0),
+      ],
+   q(abui) => [
+      q(0584),
+      q(0),
+      ],
+   q(abun) => [
+      q(3322),
+      q(0),
+      ],
+   q(abure) => [
+      q(0579),
+      q(0),
+      ],
+   q(abureni) => [
+      q(4251),
+      q(0),
+      ],
+   q(acatepec me'phaa) => [
+      q(6658),
+      q(0),
+      ],
+   q(acatepec tlapanec) => [
+      q(6658),
+      q(1),
+      ],
+   q(achagua) => [
+      q(0585),
+      q(0),
+      ],
+   q(achang) => [
+      q(0593),
+      q(0),
+      ],
+   q(ache) => [
+      q(2655),
+      q(0),
+      ],
+   q(acheron) => [
+      q(0604),
+      q(0),
+      ],
+   q(achi) => [
+      q(0596),
+      q(0),
+      ],
+   q(achinese) => [
+      q(0003),
+      q(0),
+      ],
+   q(achterhoeks) => [
+      q(0598),
+      q(0),
+      ],
+   q(achuar-shiwiar) => [
+      q(0599),
+      q(0),
+      ],
+   q(achumawi) => [
+      q(0600),
+      q(0),
+      ],
+   q(acoli) => [
+      q(0004),
+      q(0),
+      ],
+   q(acroa) => [
+      q(0597),
+      q(0),
+      ],
+   q(adabe) => [
+      q(0605),
+      q(0),
+      ],
+   q(adai) => [
+      q(7262),
+      q(0),
+      ],
+   q(adamawa fulfulde) => [
+      q(2378),
+      q(0),
+      ],
+   q(adamorobe sign language) => [
+      q(0618),
+      q(0),
+      ],
+   q(adang) => [
+      q(0614),
+      q(0),
+      ],
+   q(adangbe) => [
+      q(0616),
+      q(0),
+      ],
+   q(adangme) => [
+      q(0005),
+      q(0),
+      ],
+   q(adara) => [
+      q(3170),
+      q(0),
+      ],
+   q(adasen) => [
+      q(6520),
+      q(0),
+      ],
+   q(adele) => [
+      q(0607),
+      q(0),
+      ],
+   q(adhola) => [
+      q(0610),
+      q(0),
+      ],
+   q(adi) => [
+      q(0611),
+      q(0),
+      ],
+   q(adilabad gondi) => [
+      q(7220),
+      q(0),
+      ],
+   q(adioukrou) => [
+      q(0612),
+      q(0),
+      ],
+   q(adithinngithigh) => [
+      q(2153),
+      q(0),
+      ],
+   q(adivasi oriya) => [
+      q(5298),
+      q(0),
+      ],
+   q(adiwasi garasia) => [
+      q(2413),
+      q(0),
+      ],
+   q(adnyamathanha) => [
+      q(0619),
+      q(0),
+      ],
+   q(adonara) => [
+      q(0617),
+      q(0),
+      ],
+   q(aduge) => [
+      q(0620),
+      q(0),
+      ],
+   q(adygei) => [
+      q(0006),
+      q(1),
+      ],
+   q(adyghe) => [
+      q(0006),
+      q(0),
+      ],
+   q(adzera) => [
+      q(0623),
+      q(0),
+      ],
+   q(aeka) => [
+      q(0639),
+      q(0),
+      ],
+   q(aekyom) => [
+      q(0973),
+      q(0),
+      ],
+   q(aequian) => [
+      q(7263),
+      q(0),
+      ],
+   q(aer) => [
+      q(0633),
+      q(0),
+      ],
+   q(afade) => [
+      q(0549),
+      q(0),
+      ],
+   q(afar) => [
+      q(0001),
+      q(0),
+      ],
+   q(afghan persian) => [
+      q(5595),
+      q(1),
+      ],
+   q(afghan sign language) => [
+      q(0643),
+      q(0),
+      ],
+   q(afitti) => [
+      q(0650),
+      q(0),
+      ],
+   q(afra) => [
+      q(6879),
+      q(1),
+      ],
+   q(afrihili) => [
+      q(0008),
+      q(0),
+      ],
+   q(afrikaans) => [
+      q(0009),
+      q(0),
+      ],
+   q(afro-asiatic languages) => [
+      q(0007),
+      q(0),
+      ],
+   q(afro-seminole creole) => [
+      q(0649),
+      q(0),
+      ],
+   q(agarabi) => [
+      q(0656),
+      q(0),
+      ],
+   q(agariya) => [
+      q(0661),
+      q(0),
+      ],
+   q(agatu) => [
+      q(0655),
+      q(0),
+      ],
+   q(agavotaguerra) => [
+      q(0963),
+      q(0),
+      ],
+   q(aghem) => [
+      q(0668),
+      q(0),
+      ],
+   q(aghu) => [
+      q(0681),
+      q(0),
+      ],
+   q(aghu-tharnggala) => [
+      q(2639),
+      q(0),
+      ],
+   q(aghul) => [
+      q(0675),
+      q(0),
+      ],
+   q(aghwan) => [
+      q(7264),
+      q(0),
+      ],
+   q(agi) => [
+      q(0697),
+      q(0),
+      ],
+   q(agob) => [
+      q(3368),
+      q(0),
+      ],
+   q(agoi) => [
+      q(2890),
+      q(0),
+      ],
+   q(aguacateco) => [
+      q(0672),
+      q(0),
+      ],
+   q(aguano) => [
+      q(0653),
+      q(0),
+      ],
+   q(aguaruna) => [
+      q(0669),
+      q(0),
+      ],
+   q(aguna) => [
+      q(0938),
+      q(0),
+      ],
+   q(agusan manobo) => [
+      q(4535),
+      q(0),
+      ],
+   q(agutaynen) => [
+      q(0666),
+      q(0),
+      ],
+   q(agwagwune) => [
+      q(7582),
+      q(0),
+      ],
+   q(ahan) => [
+      q(0686),
+      q(0),
+      ],
+   q(ahanta) => [
+      q(0678),
+      q(0),
+      ],
+   q(aheri gondi) => [
+      q(2288),
+      q(0),
+      ],
+   q(aheu) => [
+      q(6493),
+      q(0),
+      ],
+   q(ahirani) => [
+      q(0689),
+      q(0),
+      ],
+   q(ahom) => [
+      q(0687),
+      q(0),
+      ],
+   q(ahtena) => [
+      q(0691),
+      q(0),
+      ],
+   q(ahwai) => [
+      q(4824),
+      q(0),
+      ],
+   q(ai-cham) => [
+      q(0699),
+      q(0),
+      ],
+   q(aighon) => [
+      q(0712),
+      q(0),
+      ],
+   q(aikana) => [
+      q(6369),
+      q(0),
+      ],
+   q(aiklep) => [
+      q(4623),
+      q(0),
+      ],
+   q(aimaq) => [
+      q(0707),
+      q(0),
+      ],
+   q(aimele) => [
+      q(0703),
+      q(0),
+      ],
+   q(aimol) => [
+      q(0704),
+      q(0),
+      ],
+   q(ainbai) => [
+      q(0694),
+      q(0),
+      ],
+   q(ainu) => [
+      q(0010),
+      q(0),
+      ],
+   q(ainu (china)) => [
+      q(0693),
+      q(0),
+      ],
+   q(ainu (japan)) => [
+      q(0010),
+      q(1),
+      ],
+   q(aiome) => [
+      q(0730),
+      q(0),
+      ],
+   q(airoran) => [
+      q(0708),
+      q(0),
+      ],
+   q(aiton) => [
+      q(0705),
+      q(0),
+      ],
+   q(aiwoo) => [
+      q(4825),
+      q(1),
+      ],
+   q(aja (benin)) => [
+      q(0715),
+      q(0),
+      ],
+   q(aja (sudan)) => [
+      q(0714),
+      q(0),
+      ],
+   q(ajawa) => [
+      q(0721),
+      q(0),
+      ],
+   q(ajie) => [
+      q(0716),
+      q(0),
+      ],
+   q(ajiya) => [
+      q(2901),
+      q(1),
+      ],
+   q(ajumbu) => [
+      q(4575),
+      q(0),
+      ],
+   q(ajyininka apurucayali) => [
+      q(1829),
+      q(0),
+      ],
+   q(ak) => [
+      q(0736),
+      q(0),
+      ],
+   q(aka) => [
+      q(6151),
+      q(0),
+      ],
+   q(aka-bea) => [
+      q(0569),
+      q(0),
+      ],
+   q(aka-bo) => [
+      q(0733),
+      q(0),
+      ],
+   q(aka-cari) => [
+      q(0589),
+      q(0),
+      ],
+   q(aka-jeru) => [
+      q(0731),
+      q(0),
+      ],
+   q(aka-kede) => [
+      q(0743),
+      q(0),
+      ],
+   q(aka-kol) => [
+      q(0744),
+      q(0),
+      ],
+   q(aka-kora) => [
+      q(0590),
+      q(0),
+      ],
+   q(akan) => [
+      q(0011),
+      q(0),
+      ],
+   q(akar-bale) => [
+      q(0591),
+      q(0),
+      ],
+   q(akaselem) => [
+      q(0738),
+      q(0),
+      ],
+   q(akawaio) => [
+      q(0726),
+      q(0),
+      ],
+   q(ake) => [
+      q(0702),
+      q(0),
+      ],
+   q(akebu) => [
+      q(3276),
+      q(0),
+      ],
+   q(akei) => [
+      q(6710),
+      q(0),
+      ],
+   q(akeu) => [
+      q(0636),
+      q(0),
+      ],
+   q(akha) => [
+      q(0683),
+      q(0),
+      ],
+   q(akhvakh) => [
+      q(0741),
+      q(0),
+      ],
+   q(akkadian) => [
+      q(0012),
+      q(0),
+      ],
+   q(akkala sami) => [
+      q(6025),
+      q(0),
+      ],
+   q(aklanon) => [
+      q(0732),
+      q(0),
+      ],
+   q(akolet) => [
+      q(0739),
+      q(0),
+      ],
+   q(akoose) => [
+      q(1464),
+      q(0),
+      ],
+   q(akoye) => [
+      q(4309),
+      q(0),
+      ],
+   q(akpa) => [
+      q(0727),
+      q(0),
+      ],
+   q(akpes) => [
+      q(2886),
+      q(0),
+      ],
+   q(akrukay) => [
+      q(0644),
+      q(0),
+      ],
+   q(akukem) => [
+      q(6175),
+      q(0),
+      ],
+   q(akuku) => [
+      q(1001),
+      q(0),
+      ],
+   q(akum) => [
+      q(0740),
+      q(0),
+      ],
+   q(akuntsu) => [
+      q(0868),
+      q(0),
+      ],
+   q(akurio) => [
+      q(0734),
+      q(0),
+      ],
+   q(akwa) => [
+      q(0742),
+      q(0),
+      ],
+   q(akyaung ari naga) => [
+      q(5043),
+      q(0),
+      ],
+   q(al-sayyid bedouin sign language) => [
+      q(6334),
+      q(0),
+      ],
+   q(alaba-k'abeena) => [
+      q(0763),
+      q(0),
+      ],
+   q(alabama) => [
+      q(0745),
+      q(0),
+      ],
+   q(alabat island agta) => [
+      q(2174),
+      q(0),
+      ],
+   q(alacalufan languages) => [
+      q(0490),
+      q(0),
+      ],
+   q(alacatlatzala mixtec) => [
+      q(4302),
+      q(0),
+      ],
+   q(alago) => [
+      q(0746),
+      q(0),
+      ],
+   q(alagwa) => [
+      q(7068),
+      q(0),
+      ],
+   q(alak) => [
+      q(0753),
+      q(0),
+      ],
+   q(alamblak) => [
+      q(0780),
+      q(0),
+      ],
+   q(alangan) => [
+      q(0752),
+      q(0),
+      ],
+   q(alanic) => [
+      q(7386),
+      q(0),
+      ],
+   q(alapmunte) => [
+      q(0855),
+      q(0),
+      ],
+   q(alawa) => [
+      q(0750),
+      q(0),
+      ],
+   q(albanian) => [
+      q(0013),
+      q(0),
+      ],
+   q(albanian languages) => [
+      q(0526),
+      q(0),
+      ],
+   q(albanian sign language) => [
+      q(6189),
+      q(0),
+      ],
+   q(alcozauca mixtec) => [
+      q(7492),
+      q(0),
+      ],
+   q(alege) => [
+      q(0749),
+      q(0),
+      ],
+   q(alekano) => [
+      q(2402),
+      q(0),
+      ],
+   q(alemannic) => [
+      q(0167),
+      q(1),
+      ],
+   q(aleut) => [
+      q(0014),
+      q(0),
+      ],
+   q(algerian arabic) => [
+      q(0878),
+      q(0),
+      ],
+   q(algerian saharan arabic) => [
+      q(0551),
+      q(0),
+      ],
+   q(algerian sign language) => [
+      q(0900),
+      q(0),
+      ],
+   q(algic languages) => [
+      q(0491),
+      q(0),
+      ],
+   q(algonquian languages) => [
+      q(0015),
+      q(0),
+      ],
+   q(algonquin) => [
+      q(0759),
+      q(0),
+      ],
+   q(ali) => [
+      q(0713),
+      q(0),
+      ],
+   q(alladian) => [
+      q(0748),
+      q(0),
+      ],
+   q(allar) => [
+      q(0754),
+      q(0),
+      ],
+   q(alngith) => [
+      q(0695),
+      q(0),
+      ],
+   q(alo phola) => [
+      q(7718),
+      q(0),
+      ],
+   q(aloapam zapotec) => [
+      q(7804),
+      q(0),
+      ],
+   q(alor) => [
+      q(0826),
+      q(0),
+      ],
+   q(alsatian) => [
+      q(0167),
+      q(2),
+      ],
+   q(alsea) => [
+      q(0635),
+      q(0),
+      ],
+   q(altaic languages) => [
+      q(0446),
+      q(0),
+      ],
+   q(alu kurumba) => [
+      q(7515),
+      q(0),
+      ],
+   q(alugu) => [
+      q(0935),
+      q(0),
+      ],
+   q(alumu-tesu) => [
+      q(0540),
+      q(0),
+      ],
+   q(alune) => [
+      q(0758),
+      q(0),
+      ],
+   q(aluo) => [
+      q(7691),
+      q(0),
+      ],
+   q(alur) => [
+      q(0766),
+      q(0),
+      ],
+   q(alutor) => [
+      q(0760),
+      q(0),
+      ],
+   q(alviri-vidari) => [
+      q(0957),
+      q(0),
+      ],
+   q(alyawarr) => [
+      q(0765),
+      q(0),
+      ],
+   q(ama (papua new guinea)) => [
+      q(0777),
+      q(0),
+      ],
+   q(ama (sudan)) => [
+      q(5158),
+      q(0),
+      ],
+   q(amahai) => [
+      q(0781),
+      q(0),
+      ],
+   q(amahuaca) => [
+      q(0769),
+      q(0),
+      ],
+   q(amaimon) => [
+      q(0751),
+      q(0),
+      ],
+   q(amal) => [
+      q(0542),
+      q(0),
+      ],
+   q(amanab) => [
+      q(0778),
+      q(0),
+      ],
+   q(amanaye) => [
+      q(0767),
+      q(0),
+      ],
+   q(amara) => [
+      q(0696),
+      q(0),
+      ],
+   q(amarakaeri) => [
+      q(0782),
+      q(0),
+      ],
+   q(amarasi) => [
+      q(0559),
+      q(0),
+      ],
+   q(amatlan zapotec) => [
+      q(7913),
+      q(0),
+      ],
+   q(amba (solomon islands)) => [
+      q(6941),
+      q(0),
+      ],
+   q(amba (uganda)) => [
+      q(5867),
+      q(0),
+      ],
+   q(ambai) => [
+      q(0775),
+      q(0),
+      ],
+   q(ambakich) => [
+      q(0637),
+      q(0),
+      ],
+   q(ambala ayta) => [
+      q(0562),
+      q(0),
+      ],
+   q(ambelau) => [
+      q(0786),
+      q(0),
+      ],
+   q(ambele) => [
+      q(0630),
+      q(0),
+      ],
+   q(amblong) => [
+      q(0755),
+      q(0),
+      ],
+   q(ambo) => [
+      q(0768),
+      q(0),
+      ],
+   q(ambo-pasco quechua) => [
+      q(5691),
+      q(0),
+      ],
+   q(ambonese malay) => [
+      q(0577),
+      q(0),
+      ],
+   q(ambrak) => [
+      q(0545),
+      q(0),
+      ],
+   q(ambul) => [
+      q(0848),
+      q(0),
+      ],
+   q(ambulas) => [
+      q(0578),
+      q(0),
+      ],
+   q(amdang) => [
+      q(0774),
+      q(0),
+      ],
+   q(amdo tibetan) => [
+      q(0622),
+      q(0),
+      ],
+   q(amele) => [
+      q(0638),
+      q(0),
+      ],
+   q(american sign language) => [
+      q(0890),
+      q(0),
+      ],
+   q(amganad ifugao) => [
+      q(2909),
+      q(0),
+      ],
+   q(amharic) => [
+      q(0017),
+      q(0),
+      ],
+   q(ami) => [
+      q(0789),
+      q(0),
+      ],
+   q(amio-gelimi) => [
+      q(3869),
+      q(1),
+      ],
+   q(amis) => [
+      q(0773),
+      q(0),
+      ],
+   q(amo) => [
+      q(0779),
+      q(0),
+      ],
+   q(amol) => [
+      q(0764),
+      q(0),
+      ],
+   q(amoltepec mixtec) => [
+      q(4144),
+      q(0),
+      ],
+   q(ampanang) => [
+      q(0840),
+      q(0),
+      ],
+   q(ampari dogon) => [
+      q(0861),
+      q(0),
+      ],
+   q(amri karbi) => [
+      q(0722),
+      q(0),
+      ],
+   q(amto) => [
+      q(0784),
+      q(0),
+      ],
+   q(amundava) => [
+      q(0621),
+      q(0),
+      ],
+   q(amurdak) => [
+      q(0772),
+      q(0),
+      ],
+   q(ana tinga dogon) => [
+      q(2154),
+      q(0),
+      ],
+   q(anaang) => [
+      q(0811),
+      q(0),
+      ],
+   q(anakalangu) => [
+      q(0728),
+      q(0),
+      ],
+   q(anal) => [
+      q(0802),
+      q(0),
+      ],
+   q(anam) => [
+      q(5393),
+      q(0),
+      ],
+   q(anambe) => [
+      q(0550),
+      q(0),
+      ],
+   q(anamgura) => [
+      q(2960),
+      q(0),
+      ],
+   q(anasi) => [
+      q(1386),
+      q(0),
+      ],
+   q(anca) => [
+      q(0586),
+      q(0),
+      ],
+   q(ancient aramaic (up to 700 bce)) => [
+      q(5182),
+      q(1),
+      ],
+   q(ancient greek (to 1453)) => [
+      q(0164),
+      q(1),
+      ],
+   q(ancient hebrew) => [
+      q(2732),
+      q(0),
+      ],
+   q(ancient macedonian) => [
+      q(7401),
+      q(0),
+      ],
+   q(ancient north arabian) => [
+      q(7417),
+      q(0),
+      ],
+   q(ancient zapotec) => [
+      q(7559),
+      q(0),
+      ],
+   q(andaandi) => [
+      q(2007),
+      q(0),
+      ],
+   q(andai) => [
+      q(0641),
+      q(0),
+      ],
+   q(andajin) => [
+      q(0717),
+      q(0),
+      ],
+   q(andalusian arabic) => [
+      q(7259),
+      q(0),
+      ],
+   q(andaman creole hindi) => [
+      q(2734),
+      q(0),
+      ],
+   q(andaqui) => [
+      q(0791),
+      q(0),
+      ],
+   q(andarum) => [
+      q(0818),
+      q(0),
+      ],
+   q(andegerebinha) => [
+      q(0609),
+      q(0),
+      ],
+   q(andh) => [
+      q(0806),
+      q(0),
+      ],
+   q(andi) => [
+      q(0798),
+      q(0),
+      ],
+   q(andio) => [
+      q(1613),
+      q(0),
+      ],
+   q(andoa) => [
+      q(0792),
+      q(0),
+      ],
+   q(andoque) => [
+      q(0804),
+      q(0),
+      ],
+   q(andra-hus) => [
+      q(0812),
+      q(0),
+      ],
+   q(aneityum) => [
+      q(0932),
+      q(0),
+      ],
+   q(anem) => [
+      q(0814),
+      q(0),
+      ],
+   q(aneme wake) => [
+      q(0583),
+      q(0),
+      ],
+   q(anfillo) => [
+      q(4678),
+      q(0),
+      ],
+   q(angaataha) => [
+      q(0665),
+      q(0),
+      ],
+   q(angaite) => [
+      q(0867),
+      q(0),
+      ],
+   q(angal) => [
+      q(0657),
+      q(0),
+      ],
+   q(angal enen) => [
+      q(0819),
+      q(0),
+      ],
+   q(angal heneng) => [
+      q(0729),
+      q(0),
+      ],
+   q(angami naga) => [
+      q(4905),
+      q(0),
+      ],
+   q(angguruk yali) => [
+      q(7665),
+      q(0),
+      ],
+   q(angika) => [
+      q(0019),
+      q(0),
+      ],
+   q(angkamuthi) => [
+      q(0961),
+      q(0),
+      ],
+   q(anglo-norman) => [
+      q(7424),
+      q(0),
+      ],
+   q(angloromani) => [
+      q(5799),
+      q(0),
+      ],
+   q(angolar) => [
+      q(0815),
+      q(0),
+      ],
+   q(angor) => [
+      q(0659),
+      q(0),
+      ],
+   q(angoram) => [
+      q(0821),
+      q(0),
+      ],
+   q(angosturas tunebo) => [
+      q(6600),
+      q(0),
+      ],
+   q(anguthimri) => [
+      q(0971),
+      q(0),
+      ],
+   q(ani) => [
+      q(2800),
+      q(1),
+      ],
+   q(ani phowa) => [
+      q(7717),
+      q(0),
+      ],
+   q(anii) => [
+      q(1292),
+      q(0),
+      ],
+   q(animere) => [
+      q(0796),
+      q(0),
+      ],
+   q(anindilyakwa) => [
+      q(0823),
+      q(0),
+      ],
+   q(anjam) => [
+      q(1359),
+      q(0),
+      ],
+   q(ankave) => [
+      q(0548),
+      q(0),
+      ],
+   q(anmatyerre) => [
+      q(0788),
+      q(0),
+      ],
+   q(anong) => [
+      q(5111),
+      q(0),
+      ],
+   q(anor) => [
+      q(0799),
+      q(0),
+      ],
+   q(anserma) => [
+      q(0807),
+      q(0),
+      ],
+   q(ansus) => [
+      q(0794),
+      q(0),
+      ],
+   q(antakarinya) => [
+      q(0808),
+      q(0),
+      ],
+   q(antankarana malagasy) => [
+      q(7412),
+      q(0),
+      ],
+   q(antigua and barbuda creole english) => [
+      q(0698),
+      q(0),
+      ],
+   q(anu-hkongso chin) => [
+      q(0801),
+      q(0),
+      ],
+   q(anuak) => [
+      q(0809),
+      q(0),
+      ],
+   q(anufo) => [
+      q(1756),
+      q(0),
+      ],
+   q(anuki) => [
+      q(0940),
+      q(0),
+      ],
+   q(anus) => [
+      q(0948),
+      q(0),
+      ],
+   q(anuta) => [
+      q(0937),
+      q(0),
+      ],
+   q(anyin) => [
+      q(0813),
+      q(0),
+      ],
+   q(anyin morofo) => [
+      q(4549),
+      q(0),
+      ],
+   q(ao naga) => [
+      q(4907),
+      q(0),
+      ],
+   q(aoheng) => [
+      q(5532),
+      q(0),
+      ],
+   q(aore) => [
+      q(0829),
+      q(0),
+      ],
+   q(ap ma) => [
+      q(3205),
+      q(0),
+      ],
+   q(apache languages) => [
+      q(0020),
+      q(0),
+      ],
+   q(apalachee) => [
+      q(7271),
+      q(0),
+      ],
+   q(apalai) => [
+      q(0858),
+      q(0),
+      ],
+   q(apali) => [
+      q(2260),
+      q(0),
+      ],
+   q(apasco-apoala mixtec) => [
+      q(4304),
+      q(0),
+      ],
+   q(apatani) => [
+      q(0853),
+      q(0),
+      ],
+   q(apiaka) => [
+      q(0842),
+      q(0),
+      ],
+   q(apinaye) => [
+      q(0847),
+      q(0),
+      ],
+   q(apma) => [
+      q(0849),
+      q(0),
+      ],
+   q(aproumu aizi) => [
+      q(0688),
+      q(0),
+      ],
+   q(apurina) => [
+      q(0854),
+      q(0),
+      ],
+   q(aputai) => [
+      q(0857),
+      q(0),
+      ],
+   q(aquitanian) => [
+      q(7272),
+      q(0),
+      ],
+   q(arabana) => [
+      q(0870),
+      q(0),
+      ],
+   q(arabela) => [
+      q(0876),
+      q(0),
+      ],
+   q(arabic) => [
+      q(0021),
+      q(0),
+      ],
+   q(aragonese) => [
+      q(0023),
+      q(0),
+      ],
+   q(araki) => [
+      q(0737),
+      q(0),
+      ],
+   q(arakwal) => [
+      q(5794),
+      q(0),
+      ],
+   q(aralle-tabulahan) => [
+      q(0924),
+      q(0),
+      ],
+   q(arammba) => [
+      q(6252),
+      q(0),
+      ],
+   q(aranadan) => [
+      q(0544),
+      q(0),
+      ],
+   q(aranama-tamique) => [
+      q(7471),
+      q(0),
+      ],
+   q(arandai) => [
+      q(3061),
+      q(0),
+      ],
+   q(araona) => [
+      q(0877),
+      q(0),
+      ],
+   q(arapaho) => [
+      q(0026),
+      q(0),
+      ],
+   q(arapaso) => [
+      q(0874),
+      q(0),
+      ],
+   q(ararandewara) => [
+      q(7266),
+      q(0),
+      ],
+   q(arauan languages) => [
+      q(0492),
+      q(0),
+      ],
+   q(arawa) => [
+      q(0881),
+      q(1),
+      ],
+   q(arawak) => [
+      q(0028),
+      q(0),
+      ],
+   q(arawakan languages) => [
+      q(0493),
+      q(0),
+      ],
+   q(arawete) => [
+      q(0980),
+      q(0),
+      ],
+   q(arawum) => [
+      q(0975),
+      q(0),
+      ],
+   q(arbereshe albanian) => [
+      q(0543),
+      q(0),
+      ],
+   q(arbore) => [
+      q(0882),
+      q(0),
+      ],
+   q(archi) => [
+      q(0860),
+      q(0),
+      ],
+   q(ardhamagadhi prakrit) => [
+      q(5471),
+      q(0),
+      ],
+   q(are) => [
+      q(4620),
+      q(0),
+      ],
+   q(areba) => [
+      q(0624),
+      q(0),
+      ],
+   q(arem) => [
+      q(0631),
+      q(0),
+      ],
+   q(arequipa-la union quechua) => [
+      q(5723),
+      q(0),
+      ],
+   q(argentine sign language) => [
+      q(0627),
+      q(0),
+      ],
+   q(argobba) => [
+      q(0662),
+      q(0),
+      ],
+   q(arguni) => [
+      q(0658),
+      q(0),
+      ],
+   q(arha) => [
+      q(0866),
+      q(0),
+      ],
+   q(arho) => [
+      q(0825),
+      q(0),
+      ],
+   q(arhuaco) => [
+      q(0872),
+      q(0),
+      ],
+   q(ari) => [
+      q(0541),
+      q(0),
+      ],
+   q(aribwatsa) => [
+      q(3803),
+      q(0),
+      ],
+   q(aribwaung) => [
+      q(7671),
+      q(0),
+      ],
+   q(arifama-miniafia) => [
+      q(0547),
+      q(0),
+      ],
+   q(arigidi) => [
+      q(0862),
+      q(0),
+      ],
+   q(arikapu) => [
+      q(0875),
+      q(0),
+      ],
+   q(arikara) => [
+      q(0873),
+      q(0),
+      ],
+   q(arikem) => [
+      q(0710),
+      q(0),
+      ],
+   q(arin) => [
+      q(7468),
+      q(0),
+      ],
+   q(aringa) => [
+      q(4069),
+      q(0),
+      ],
+   q(arma) => [
+      q(0822),
+      q(0),
+      ],
+   q(armazic) => [
+      q(7467),
+      q(0),
+      ],
+   q(armenian) => [
+      q(0024),
+      q(0),
+      ],
+   q(armenian (family)) => [
+      q(0512),
+      q(0),
+      ],
+   q(armenian sign language) => [
+      q(0632),
+      q(0),
+      ],
+   q(aromanian) => [
+      q(0363),
+      q(0),
+      ],
+   q(arop-lokep) => [
+      q(0851),
+      q(0),
+      ],
+   q(arop-sissano) => [
+      q(0852),
+      q(0),
+      ],
+   q(arosi) => [
+      q(0692),
+      q(0),
+      ],
+   q(arpitan) => [
+      q(2372),
+      q(0),
+      ],
+   q(arritinngithigh) => [
+      q(5842),
+      q(0),
+      ],
+   q(arta) => [
+      q(0933),
+      q(0),
+      ],
+   q(artificial languages) => [
+      q(0027),
+      q(0),
+      ],
+   q(arua (amazonas state)) => [
+      q(0881),
+      q(0),
+      ],
+   q(arua (rodonia state)) => [
+      q(0883),
+      q(0),
+      ],
+   q(aruamu) => [
+      q(4546),
+      q(0),
+      ],
+   q(aruek) => [
+      q(0949),
+      q(0),
+      ],
+   q(arumanian) => [
+      q(0363),
+      q(1),
+      ],
+   q(aruop) => [
+      q(4057),
+      q(0),
+      ],
+   q(arutani) => [
+      q(0931),
+      q(0),
+      ],
+   q(arvanitika albanian) => [
+      q(0555),
+      q(0),
+      ],
+   q(as) => [
+      q(0909),
+      q(0),
+      ],
+   q(asaro'o) => [
+      q(4569),
+      q(0),
+      ],
+   q(asas) => [
+      q(0889),
+      q(0),
+      ],
+   q(ashaninka) => [
+      q(1797),
+      q(0),
+      ],
+   q(ashe) => [
+      q(0690),
+      q(0),
+      ],
+   q(asheninka pajonal) => [
+      q(1747),
+      q(0),
+      ],
+   q(asheninka perene) => [
+      q(5593),
+      q(0),
+      ],
+   q(ashkun) => [
+      q(0896),
+      q(0),
+      ],
+   q(asho chin) => [
+      q(1867),
+      q(0),
+      ],
+   q(ashtiani) => [
+      q(0921),
+      q(0),
+      ],
+   q(asilulu) => [
+      q(0897),
+      q(0),
+      ],
+   q(askopan) => [
+      q(2226),
+      q(0),
+      ],
+   q(asoa) => [
+      q(0905),
+      q(0),
+      ],
+   q(assamese) => [
+      q(0029),
+      q(0),
+      ],
+   q(assan) => [
+      q(7488),
+      q(0),
+      ],
+   q(assangori) => [
+      q(6050),
+      q(0),
+      ],
+   q(assiniboine) => [
+      q(0887),
+      q(0),
+      ],
+   q(assyrian neo-aramaic) => [
+      q(0700),
+      q(0),
+      ],
+   q(asturian) => [
+      q(0030),
+      q(0),
+      ],
+   q(asturleonese) => [
+      q(0030),
+      q(3),
+      ],
+   q(asu (nigeria)) => [
+      q(0944),
+      q(0),
+      ],
+   q(asu (tanzania)) => [
+      q(0886),
+      q(0),
+      ],
+   q(asue awyu) => [
+      q(5601),
+      q(0),
+      ],
+   q(asumboa) => [
+      q(0934),
+      q(0),
+      ],
+   q(asuncion mixtepec zapotec) => [
+      q(7895),
+      q(0),
+      ],
+   q(asuri) => [
+      q(0902),
+      q(0),
+      ],
+   q(ata) => [
+      q(0920),
+      q(0),
+      ],
+   q(ata manobo) => [
+      q(0913),
+      q(0),
+      ],
+   q(atakapa) => [
+      q(0865),
+      q(0),
+      ],
+   q(atampaya) => [
+      q(0790),
+      q(0),
+      ],
+   q(atatlahuca mixtec) => [
+      q(4292),
+      q(0),
+      ],
+   q(atayal) => [
+      q(6367),
+      q(0),
+      ],
+   q(atemble) => [
+      q(0914),
+      q(0),
+      ],
+   q(athapascan languages) => [
+      q(0031),
+      q(0),
+      ],
+   q(athpariya) => [
+      q(0841),
+      q(0),
+      ],
+   q(ati) => [
+      q(0918),
+      q(0),
+      ],
+   q(atikamekw) => [
+      q(0917),
+      q(0),
+      ],
+   q(atlantic-congo languages) => [
+      q(0489),
+      q(0),
+      ],
+   q(atohwaim) => [
+      q(0863),
+      q(0),
+      ],
+   q(atong (cameroon)) => [
+      q(0922),
+      q(0),
+      ],
+   q(atong (india)) => [
+      q(0831),
+      q(0),
+      ],
+   q(atorada) => [
+      q(0833),
+      q(0),
+      ],
+   q(atsahuaca) => [
+      q(0912),
+      q(0),
+      ],
+   q(atsam) => [
+      q(1682),
+      q(0),
+      ],
+   q(atsugewi) => [
+      q(0930),
+      q(0),
+      ],
+   q(attapady kurumba) => [
+      q(5479),
+      q(0),
+      ],
+   q(attie) => [
+      q(0916),
+      q(0),
+      ],
+   q(atzingo matlatzinca) => [
+      q(5195),
+      q(0),
+      ],
+   q(au) => [
+      q(0965),
+      q(0),
+      ],
+   q(aulua) => [
+      q(0943),
+      q(0),
+      ],
+   q(aura) => [
+      q(0953),
+      q(0),
+      ],
+   q(aushi) => [
+      q(0939),
+      q(0),
+      ],
+   q(aushiri) => [
+      q(0964),
+      q(0),
+      ],
+   q(austral) => [
+      q(0950),
+      q(0),
+      ],
+   q(australian aborigines sign language) => [
+      q(0906),
+      q(0),
+      ],
+   q(australian languages) => [
+      q(0032),
+      q(0),
+      ],
+   q(australian sign language) => [
+      q(0891),
+      q(0),
+      ],
+   q(austrian sign language) => [
+      q(0901),
+      q(0),
+      ],
+   q(austro-asiatic languages) => [
+      q(0488),
+      q(0),
+      ],
+   q(austronesian languages) => [
+      q(0272),
+      q(0),
+      ],
+   q(auwe) => [
+      q(6109),
+      q(0),
+      ],
+   q(auye) => [
+      q(0951),
+      q(0),
+      ],
+   q(auyokawa) => [
+      q(0946),
+      q(0),
+      ],
+   q(ava guarani) => [
+      q(4856),
+      q(1),
+      ],
+   q(ava-canoeiro) => [
+      q(0967),
+      q(0),
+      ],
+   q(avaric) => [
+      q(0033),
+      q(0),
+      ],
+   q(avatime) => [
+      q(0962),
+      q(0),
+      ],
+   q(avau) => [
+      q(0956),
+      q(0),
+      ],
+   q(avava) => [
+      q(6575),
+      q(1),
+      ],
+   q(avestan) => [
+      q(0034),
+      q(0),
+      ],
+   q(avikam) => [
+      q(0958),
+      q(0),
+      ],
+   q(avokaya) => [
+      q(0966),
+      q(0),
+      ],
+   q(awa (china)) => [
+      q(7040),
+      q(0),
+      ],
+   q(awa (papua new guinea)) => [
+      q(0968),
+      q(0),
+      ],
+   q(awa-cuaiquer) => [
+      q(3694),
+      q(0),
+      ],
+   q(awabakal) => [
+      q(0974),
+      q(0),
+      ],
+   q(awad bing) => [
+      q(1085),
+      q(0),
+      ],
+   q(awadhi) => [
+      q(0035),
+      q(0),
+      ],
+   q(awak) => [
+      q(0977),
+      q(0),
+      ],
+   q(awar) => [
+      q(0993),
+      q(0),
+      ],
+   q(awara) => [
+      q(0984),
+      q(0),
+      ],
+   q(awbono) => [
+      q(0972),
+      q(0),
+      ],
+   q(aweer) => [
+      q(1353),
+      q(0),
+      ],
+   q(awera) => [
+      q(0978),
+      q(0),
+      ],
+   q(aweti) => [
+      q(0970),
+      q(0),
+      ],
+   q(awing) => [
+      q(1020),
+      q(0),
+      ],
+   q(awiyaana) => [
+      q(0954),
+      q(0),
+      ],
+   q(awjilah) => [
+      q(0941),
+      q(0),
+      ],
+   q(awngi) => [
+      q(0976),
+      q(0),
+      ],
+   q(awngthim) => [
+      q(2684),
+      q(0),
+      ],
+   q(awtuw) => [
+      q(3464),
+      q(0),
+      ],
+   q(awu) => [
+      q(7645),
+      q(0),
+      ],
+   q(awun) => [
+      q(0983),
+      q(0),
+      ],
+   q(awutu) => [
+      q(0651),
+      q(0),
+      ],
+   q(awyi) => [
+      q(0952),
+      q(0),
+      ],
+   q(axamb) => [
+      q(0679),
+      q(0),
+      ],
+   q(axi yi) => [
+      q(7647),
+      q(0),
+      ],
+   q(ayabadhu) => [
+      q(0996),
+      q(0),
+      ],
+   q(ayacucho quechua) => [
+      q(5689),
+      q(0),
+      ],
+   q(ayangan ifugao) => [
+      q(2910),
+      q(1),
+      ],
+   q(ayautla mazatec) => [
+      q(7024),
+      q(0),
+      ],
+   q(ayere) => [
+      q(0997),
+      q(0),
+      ],
+   q(ayerrerenge) => [
+      q(0987),
+      q(0),
+      ],
+   q(ayi (papua new guinea)) => [
+      q(1006),
+      q(0),
+      ],
+   q(ayiwo) => [
+      q(4825),
+      q(0),
+      ],
+   q(ayizi) => [
+      q(7787),
+      q(0),
+      ],
+   q(ayizo gbe) => [
+      q(0994),
+      q(0),
+      ],
+   q(aymara) => [
+      q(0036),
+      q(0),
+      ],
+   q(ayoquesco zapotec) => [
+      q(7795),
+      q(0),
+      ],
+   q(ayoreo) => [
+      q(1004),
+      q(0),
+      ],
+   q(ayu) => [
+      q(1010),
+      q(0),
+      ],
+   q(ayutla mixtec) => [
+      q(4311),
+      q(0),
+      ],
+   q(azerbaijani) => [
+      q(0037),
+      q(0),
+      ],
+   q(azha) => [
+      q(1013),
+      q(0),
+      ],
+   q(azhe) => [
+      q(7648),
+      q(0),
+      ],
+   q(azoyu me'phaa) => [
+      q(6641),
+      q(0),
+      ],
+   q(azoyu tlapanec) => [
+      q(6641),
+      q(1),
+      ],
+   q(baan) => [
+      q(1525),
+      q(0),
+      ],
+   q(baangi) => [
+      q(1420),
+      q(0),
+      ],
+   q(baatonum) => [
+      q(1039),
+      q(0),
+      ],
+   q(baba) => [
+      q(1061),
+      q(0),
+      ],
+   q(baba malay) => [
+      q(4125),
+      q(0),
+      ],
+   q(babalia creole arabic) => [
+      q(1064),
+      q(0),
+      ],
+   q(babango) => [
+      q(1051),
+      q(0),
+      ],
+   q(babanki) => [
+      q(1049),
+      q(0),
+      ],
+   q(babatana) => [
+      q(1023),
+      q(0),
+      ],
+   q(babine) => [
+      q(1082),
+      q(0),
+      ],
+   q(bable) => [
+      q(0030),
+      q(1),
+      ],
+   q(babuza) => [
+      q(1618),
+      q(0),
+      ],
+   q(bacama) => [
+      q(1088),
+      q(0),
+      ],
+   q(bacanese malay) => [
+      q(1479),
+      q(0),
+      ],
+   q(bactrian) => [
+      q(7281),
+      q(0),
+      ],
+   q(bada (indonesia)) => [
+      q(1209),
+      q(0),
+      ],
+   q(bada (nigeria)) => [
+      q(1034),
+      q(0),
+      ],
+   q(badaga) => [
+      q(1153),
+      q(0),
+      ],
+   q(bade) => [
+      q(1094),
+      q(0),
+      ],
+   q(badeshi) => [
+      q(1115),
+      q(0),
+      ],
+   q(badi kanum) => [
+      q(3332),
+      q(0),
+      ],
+   q(badimaya) => [
+      q(1210),
+      q(0),
+      ],
+   q(badjiri) => [
+      q(3060),
+      q(0),
+      ],
+   q(badui) => [
+      q(1025),
+      q(0),
+      ],
+   q(badyara) => [
+      q(5370),
+      q(0),
+      ],
+   q(baeggu) => [
+      q(1519),
+      q(0),
+      ],
+   q(baelelea) => [
+      q(1518),
+      q(0),
+      ],
+   q(baetora) => [
+      q(1485),
+      q(0),
+      ],
+   q(bafanji) => [
+      q(1146),
+      q(0),
+      ],
+   q(bafaw-balong) => [
+      q(1560),
+      q(0),
+      ],
+   q(bafia) => [
+      q(3594),
+      q(0),
+      ],
+   q(bafut) => [
+      q(1140),
+      q(0),
+      ],
+   q(baga kaloum) => [
+      q(1402),
+      q(0),
+      ],
+   q(baga koga) => [
+      q(1174),
+      q(0),
+      ],
+   q(baga manduri) => [
+      q(1306),
+      q(0),
+      ],
+   q(baga pokur) => [
+      q(1071),
+      q(0),
+      ],
+   q(baga sitemu) => [
+      q(1461),
+      q(0),
+      ],
+   q(baga sobane) => [
+      q(1467),
+      q(0),
+      ],
+   q(bagheli) => [
+      q(1160),
+      q(0),
+      ],
+   q(bagirmi) => [
+      q(1311),
+      q(0),
+      ],
+   q(bagirmi fulfulde) => [
+      q(2384),
+      q(0),
+      ],
+   q(bago-kusuntu) => [
+      q(1403),
+      q(0),
+      ],
+   q(bagri) => [
+      q(1176),
+      q(0),
+      ],
+   q(bagupi) => [
+      q(1380),
+      q(0),
+      ],
+   q(bagusa) => [
+      q(1399),
+      q(0),
+      ],
+   q(bagvalal) => [
+      q(3661),
+      q(0),
+      ],
+   q(baha buyang) => [
+      q(7627),
+      q(0),
+      ],
+   q(baham) => [
+      q(1112),
+      q(0),
+      ],
+   q(bahamas creole english) => [
+      q(1029),
+      q(0),
+      ],
+   q(baharna arabic) => [
+      q(0580),
+      q(0),
+      ],
+   q(bahau) => [
+      q(1205),
+      q(0),
+      ],
+   q(bahinemo) => [
+      q(1237),
+      q(0),
+      ],
+   q(bahing) => [
+      q(1195),
+      q(0),
+      ],
+   q(bahnar) => [
+      q(1106),
+      q(0),
+      ],
+   q(bahonsuai) => [
+      q(1466),
+      q(0),
+      ],
+   q(bai) => [
+      q(1099),
+      q(0),
+      ],
+   q(baibai) => [
+      q(1044),
+      q(0),
+      ],
+   q(baikeno) => [
+      q(1276),
+      q(0),
+      ],
+   q(baima) => [
+      q(1404),
+      q(0),
+      ],
+   q(baimak) => [
+      q(1326),
+      q(0),
+      ],
+   q(bainouk-gunyaamolo) => [
+      q(1089),
+      q(0),
+      ],
+   q(bainouk-gunyuno) => [
+      q(1024),
+      q(0),
+      ],
+   q(bainouk-samik) => [
+      q(1066),
+      q(0),
+      ],
+   q(baiso) => [
+      q(1468),
+      q(0),
+      ],
+   q(baissa fali) => [
+      q(2324),
+      q(0),
+      ],
+   q(bajan) => [
+      q(1247),
+      q(0),
+      ],
+   q(bajelani) => [
+      q(1242),
+      q(0),
+      ],
+   q(baka (cameroon)) => [
+      q(1256),
+      q(0),
+      ],
+   q(baka (sudan)) => [
+      q(1097),
+      q(0),
+      ],
+   q(bakairi) => [
+      q(1269),
+      q(0),
+      ],
+   q(bakaka) => [
+      q(1422),
+      q(0),
+      ],
+   q(bakhtiari) => [
+      q(1405),
+      q(0),
+      ],
+   q(baki) => [
+      q(1261),
+      q(0),
+      ],
+   q(bakoko) => [
+      q(1260),
+      q(0),
+      ],
+   q(bakole) => [
+      q(3455),
+      q(0),
+      ],
+   q(bakpinka) => [
+      q(1057),
+      q(0),
+      ],
+   q(bakumpai) => [
+      q(1270),
+      q(0),
+      ],
+   q(bakwe) => [
+      q(1251),
+      q(0),
+      ],
+   q(balaesang) => [
+      q(1296),
+      q(0),
+      ],
+   q(balangao) => [
+      q(1299),
+      q(0),
+      ],
+   q(balangingi) => [
+      q(6222),
+      q(0),
+      ],
+   q(balanta-ganja) => [
+      q(1248),
+      q(0),
+      ],
+   q(balanta-kentohe) => [
+      q(1282),
+      q(0),
+      ],
+   q(balantak) => [
+      q(1302),
+      q(0),
+      ],
+   q(balau) => [
+      q(1284),
+      q(0),
+      ],
+   q(baldemu) => [
+      q(1103),
+      q(0),
+      ],
+   q(bali (democratic republic of congo)) => [
+      q(1080),
+      q(0),
+      ],
+   q(bali (nigeria)) => [
+      q(1078),
+      q(0),
+      ],
+   q(balinese) => [
+      q(0043),
+      q(0),
+      ],
+   q(balinese malay) => [
+      q(4281),
+      q(0),
+      ],
+   q(balkan gagauz turkish) => [
+      q(1183),
+      q(0),
+      ],
+   q(balkan romani) => [
+      q(5807),
+      q(0),
+      ],
+   q(balo) => [
+      q(1411),
+      q(0),
+      ],
+   q(baloi) => [
+      q(1230),
+      q(0),
+      ],
+   q(balti) => [
+      q(1156),
+      q(0),
+      ],
+   q(baltic languages) => [
+      q(0046),
+      q(0),
+      ],
+   q(baltic romani) => [
+      q(5805),
+      q(0),
+      ],
+   q(baluan-pam) => [
+      q(1294),
+      q(0),
+      ],
+   q(baluchi) => [
+      q(0041),
+      q(0),
+      ],
+   q(bamako sign language) => [
+      q(1356),
+      q(0),
+      ],
+   q(bamali) => [
+      q(1055),
+      q(0),
+      ],
+   q(bambalang) => [
+      q(1317),
+      q(0),
+      ],
+   q(bambam) => [
+      q(5629),
+      q(0),
+      ],
+   q(bambara) => [
+      q(0042),
+      q(0),
+      ],
+   q(bambassi) => [
+      q(4670),
+      q(0),
+      ],
+   q(bambili-bambui) => [
+      q(1036),
+      q(0),
+      ],
+   q(bamenyam) => [
+      q(1069),
+      q(0),
+      ],
+   q(bamileke languages) => [
+      q(0039),
+      q(0),
+      ],
+   q(bamu) => [
+      q(1070),
+      q(0),
+      ],
+   q(bamukumbit) => [
+      q(1416),
+      q(0),
+      ],
+   q(bamun) => [
+      q(1037),
+      q(0),
+      ],
+   q(bamunka) => [
+      q(1528),
+      q(0),
+      ],
+   q(bamwe) => [
+      q(1309),
+      q(0),
+      ],
+   q(ban khor sign language) => [
+      q(1147),
+      q(0),
+      ],
+   q(bana) => [
+      q(1087),
+      q(0),
+      ],
+   q(banam bay) => [
+      q(7032),
+      q(1),
+      ],
+   q(banao itneg) => [
+      q(1252),
+      q(0),
+      ],
+   q(banaro) => [
+      q(1611),
+      q(0),
+      ],
+   q(banda (indonesia)) => [
+      q(1331),
+      q(0),
+      ],
+   q(banda languages) => [
+      q(0038),
+      q(0),
+      ],
+   q(banda malay) => [
+      q(1388),
+      q(0),
+      ],
+   q(banda-bambari) => [
+      q(3921),
+      q(0),
+      ],
+   q(banda-banda) => [
+      q(1377),
+      q(0),
+      ],
+   q(banda-mbres) => [
+      q(1407),
+      q(0),
+      ],
+   q(banda-ndele) => [
+      q(1148),
+      q(0),
+      ],
+   q(banda-yangere) => [
+      q(7569),
+      q(0),
+      ],
+   q(bandi) => [
+      q(1612),
+      q(0),
+      ],
+   q(bandial) => [
+      q(1406),
+      q(0),
+      ],
+   q(bandjalang) => [
+      q(1114),
+      q(0),
+      ],
+   q(bangala) => [
+      q(1572),
+      q(0),
+      ],
+   q(bangandu) => [
+      q(1167),
+      q(0),
+      ],
+   q(bangba) => [
+      q(1043),
+      q(0),
+      ],
+   q(banggai) => [
+      q(1185),
+      q(0),
+      ],
+   q(banggarla) => [
+      q(1232),
+      q(0),
+      ],
+   q(bangi) => [
+      q(1335),
+      q(0),
+      ],
+   q(bangime) => [
+      q(1950),
+      q(0),
+      ],
+   q(bangingih sama) => [
+      q(6222),
+      q(1),
+      ],
+   q(bangka) => [
+      q(4218),
+      q(0),
+      ],
+   q(bangla) => [
+      q(0050),
+      q(1),
+      ],
+   q(bangolan) => [
+      q(1170),
+      q(0),
+      ],
+   q(bangubangu) => [
+      q(1349),
+      q(0),
+      ],
+   q(bangwinji) => [
+      q(1455),
+      q(0),
+      ],
+   q(baniva) => [
+      q(1536),
+      q(0),
+      ],
+   q(baniwa) => [
+      q(1549),
+      q(0),
+      ],
+   q(banjar) => [
+      q(1243),
+      q(0),
+      ],
+   q(bankagooma) => [
+      q(1587),
+      q(0),
+      ],
+   q(bankal) => [
+      q(3106),
+      q(0),
+      ],
+   q(bankan tey dogon) => [
+      q(1968),
+      q(0),
+      ],
+   q(bankon) => [
+      q(0561),
+      q(0),
+      ],
+   q(bannoni) => [
+      q(1077),
+      q(0),
+      ],
+   q(bantawa) => [
+      q(1032),
+      q(0),
+      ],
+   q(bantayanon) => [
+      q(1159),
+      q(0),
+      ],
+   q(bantik) => [
+      q(1343),
+      q(0),
+      ],
+   q(bantoanon) => [
+      q(1341),
+      q(0),
+      ],
+   q(bantu (other)) => [
+      q(0058),
+      q(0),
+      ],
+   q(bantu languages) => [
+      q(0058),
+      q(1),
+      ],
+   q(baoule) => [
+      q(1073),
+      q(0),
+      ],
+   q(bara malagasy) => [
+      q(1201),
+      q(0),
+      ],
+   q(baraamu) => [
+      q(1425),
+      q(0),
+      ],
+   q(barababaraba) => [
+      q(5752),
+      q(0),
+      ],
+   q(barai) => [
+      q(1040),
+      q(0),
+      ],
+   q(barakai) => [
+      q(1030),
+      q(0),
+      ],
+   q(baram kayan) => [
+      q(3753),
+      q(0),
+      ],
+   q(barama) => [
+      q(1045),
+      q(0),
+      ],
+   q(barambu) => [
+      q(1433),
+      q(0),
+      ],
+   q(baramu) => [
+      q(1327),
+      q(0),
+      ],
+   q(barapasi) => [
+      q(1436),
+      q(0),
+      ],
+   q(baras) => [
+      q(1439),
+      q(0),
+      ],
+   q(barasana-eduria) => [
+      q(1459),
+      q(0),
+      ],
+   q(barbacoas) => [
+      q(1376),
+      q(0),
+      ],
+   q(barbaram) => [
+      q(7004),
+      q(0),
+      ],
+   q(barbareno) => [
+      q(1358),
+      q(0),
+      ],
+   q(barclayville grebo) => [
+      q(2628),
+      q(0),
+      ],
+   q(bardi) => [
+      q(1074),
+      q(0),
+      ],
+   q(bare) => [
+      q(1026),
+      q(0),
+      ],
+   q(barein) => [
+      q(1516),
+      q(0),
+      ],
+   q(bargam) => [
+      q(4374),
+      q(0),
+      ],
+   q(bari) => [
+      q(1137),
+      q(0),
+      ],
+   q(bariai) => [
+      q(1072),
+      q(0),
+      ],
+   q(bariji) => [
+      q(1233),
+      q(0),
+      ],
+   q(barikanchi) => [
+      q(1580),
+      q(0),
+      ],
+   q(barikewa) => [
+      q(3062),
+      q(0),
+      ],
+   q(barok) => [
+      q(1240),
+      q(0),
+      ],
+   q(barombi) => [
+      q(1047),
+      q(0),
+      ],
+   q(barro negro tunebo) => [
+      q(6382),
+      q(0),
+      ],
+   q(barrow point) => [
+      q(1391),
+      q(0),
+      ],
+   q(baruga) => [
+      q(1254),
+      q(0),
+      ],
+   q(baruya) => [
+      q(1605),
+      q(0),
+      ],
+   q(barwe) => [
+      q(1547),
+      q(0),
+      ],
+   q(barzani jewish neo-aramaic) => [
+      q(1235),
+      q(0),
+      ],
+   q(basa) => [
+      q(0045),
+      q(0),
+      ],
+   q(basa (cameroon)) => [
+      q(0045),
+      q(1),
+      ],
+   q(basa (nigeria)) => [
+      q(1634),
+      q(0),
+      ],
+   q(basa-gumna) => [
+      q(1457),
+      q(0),
+      ],
+   q(basa-gurmana) => [
+      q(1501),
+      q(0),
+      ],
+   q(basap) => [
+      q(1091),
+      q(0),
+      ],
+   q(basay) => [
+      q(1604),
+      q(0),
+      ],
+   q(bashkardi) => [
+      q(1452),
+      q(0),
+      ],
+   q(bashkir) => [
+      q(0040),
+      q(0),
+      ],
+   q(basketo) => [
+      q(1465),
+      q(0),
+      ],
+   q(basque) => [
+      q(0044),
+      q(0),
+      ],
+   q(basque (family)) => [
+      q(0504),
+      q(0),
+      ],
+   q(bassa) => [
+      q(1462),
+      q(0),
+      ],
+   q(bassa-kontagora) => [
+      q(1463),
+      q(0),
+      ],
+   q(bassari) => [
+      q(1449),
+      q(0),
+      ],
+   q(bassossi) => [
+      q(1454),
+      q(0),
+      ],
+   q(bata) => [
+      q(1471),
+      q(0),
+      ],
+   q(batad ifugao) => [
+      q(2910),
+      q(0),
+      ],
+   q(batak) => [
+      q(1589),
+      q(0),
+      ],
+   q(batak alas-kluet) => [
+      q(1493),
+      q(0),
+      ],
+   q(batak angkola) => [
+      q(0723),
+      q(0),
+      ],
+   q(batak dairi) => [
+      q(1473),
+      q(0),
+      ],
+   q(batak karo) => [
+      q(1491),
+      q(0),
+      ],
+   q(batak languages) => [
+      q(0062),
+      q(0),
+      ],
+   q(batak mandailing) => [
+      q(1480),
+      q(0),
+      ],
+   q(batak simalungun) => [
+      q(1486),
+      q(0),
+      ],
+   q(batak toba) => [
+      q(1041),
+      q(0),
+      ],
+   q(batanga) => [
+      q(1339),
+      q(0),
+      ],
+   q(batek) => [
+      q(1484),
+      q(0),
+      ],
+   q(bateri) => [
+      q(1489),
+      q(0),
+      ],
+   q(bathari) => [
+      q(1197),
+      q(0),
+      ],
+   q(bati (cameroon)) => [
+      q(1472),
+      q(0),
+      ],
+   q(bati (indonesia)) => [
+      q(1534),
+      q(0),
+      ],
+   q(bats) => [
+      q(1050),
+      q(0),
+      ],
+   q(batu) => [
+      q(1488),
+      q(0),
+      ],
+   q(batui) => [
+      q(7816),
+      q(0),
+      ],
+   q(batuley) => [
+      q(1038),
+      q(0),
+      ],
+   q(batyala) => [
+      q(7293),
+      q(0),
+      ],
+   q(bau) => [
+      q(1042),
+      q(0),
+      ],
+   q(bau bidayuh) => [
+      q(6127),
+      q(0),
+      ],
+   q(bauchi) => [
+      q(1451),
+      q(0),
+      ],
+   q(baure) => [
+      q(1427),
+      q(0),
+      ],
+   q(bauria) => [
+      q(1166),
+      q(0),
+      ],
+   q(bauwaki) => [
+      q(1551),
+      q(0),
+      ],
+   q(bauzi) => [
+      q(1540),
+      q(0),
+      ],
+   q(bavarian) => [
+      q(1033),
+      q(0),
+      ],
+   q(bawm chin) => [
+      q(1177),
+      q(0),
+      ],
+   q(bay miwok) => [
+      q(4351),
+      q(0),
+      ],
+   q(bayali) => [
+      q(1253),
+      q(0),
+      ],
+   q(baybayanon) => [
+      q(1539),
+      q(0),
+      ],
+   q(baygo) => [
+      q(1595),
+      q(0),
+      ],
+   q(bayono) => [
+      q(1600),
+      q(0),
+      ],
+   q(bayot) => [
+      q(1090),
+      q(0),
+      ],
+   q(bayungu) => [
+      q(1575),
+      q(0),
+      ],
+   q(bazigar) => [
+      q(1154),
+      q(0),
+      ],
+   q(beami) => [
+      q(1126),
+      q(0),
+      ],
+   q(beaver) => [
+      q(1116),
+      q(0),
+      ],
+   q(beba) => [
+      q(1152),
+      q(0),
+      ],
+   q(bebele) => [
+      q(1117),
+      q(0),
+      ],
+   q(bebeli) => [
+      q(1125),
+      q(0),
+      ],
+   q(bebil) => [
+      q(1581),
+      q(0),
+      ],
+   q(bedawiyet) => [
+      q(0047),
+      q(1),
+      ],
+   q(bedjond) => [
+      q(1250),
+      q(0),
+      ],
+   q(bedoanas) => [
+      q(1119),
+      q(0),
+      ],
+   q(beeke) => [
+      q(1258),
+      q(0),
+      ],
+   q(beele) => [
+      q(1582),
+      q(0),
+      ],
+   q(beembe) => [
+      q(1128),
+      q(0),
+      ],
+   q(beezen) => [
+      q(1351),
+      q(0),
+      ],
+   q(befang) => [
+      q(1063),
+      q(0),
+      ],
+   q(begbere-ejar) => [
+      q(1418),
+      q(1),
+      ],
+   q(beja) => [
+      q(0047),
+      q(0),
+      ],
+   q(bekati') => [
+      q(1124),
+      q(0),
+      ],
+   q(bekwarra) => [
+      q(1274),
+      q(0),
+      ],
+   q(bekwel) => [
+      q(1275),
+      q(0),
+      ],
+   q(belait) => [
+      q(1122),
+      q(0),
+      ],
+   q(belanda bor) => [
+      q(1567),
+      q(0),
+      ],
+   q(belanda viri) => [
+      q(1524),
+      q(0),
+      ],
+   q(belarusian) => [
+      q(0048),
+      q(0),
+      ],
+   q(belhariya) => [
+      q(1609),
+      q(0),
+      ],
+   q(beli (papua new guinea)) => [
+      q(1135),
+      q(0),
+      ],
+   q(beli (sudan)) => [
+      q(1290),
+      q(0),
+      ],
+   q(belize kriol english) => [
+      q(1621),
+      q(0),
+      ],
+   q(bella coola) => [
+      q(1280),
+      q(0),
+      ],
+   q(bellari) => [
+      q(1443),
+      q(0),
+      ],
+   q(bemba) => [
+      q(0049),
+      q(0),
+      ],
+   q(bemba (zambia)) => [
+      q(0049),
+      q(1),
+      ],
+   q(bembe) => [
+      q(1304),
+      q(0),
+      ],
+   q(ben tey dogon) => [
+      q(1965),
+      q(0),
+      ],
+   q(bena (nigeria)) => [
+      q(7759),
+      q(0),
+      ],
+   q(bena (tanzania)) => [
+      q(1136),
+      q(0),
+      ],
+   q(benabena) => [
+      q(1121),
+      q(0),
+      ],
+   q(bench) => [
+      q(1081),
+      q(0),
+      ],
+   q(bende) => [
+      q(1105),
+      q(0),
+      ],
+   q(bendi) => [
+      q(1084),
+      q(0),
+      ],
+   q(beneraf) => [
+      q(1347),
+      q(1),
+      ],
+   q(beng) => [
+      q(4854),
+      q(0),
+      ],
+   q(benga) => [
+      q(1334),
+      q(0),
+      ],
+   q(bengali) => [
+      q(0050),
+      q(0),
+      ],
+   q(benggoi) => [
+      q(1184),
+      q(0),
+      ],
+   q(bengkala sign language) => [
+      q(1421),
+      q(0),
+      ],
+   q(bentong) => [
+      q(1346),
+      q(0),
+      ],
+   q(benyadu') => [
+      q(1592),
+      q(0),
+      ],
+   q(beothuk) => [
+      q(1497),
+      q(0),
+      ],
+   q(bepour) => [
+      q(1214),
+      q(0),
+      ],
+   q(bera) => [
+      q(1426),
+      q(0),
+      ],
+   q(berakou) => [
+      q(1586),
+      q(0),
+      ],
+   q(berau malay) => [
+      q(1520),
+      q(0),
+      ],
+   q(berber languages) => [
+      q(0051),
+      q(0),
+      ],
+   q(berbice creole dutch) => [
+      q(1424),
+      q(0),
+      ],
+   q(berik) => [
+      q(1264),
+      q(0),
+      ],
+   q(berinomo) => [
+      q(1224),
+      q(0),
+      ],
+   q(berom) => [
+      q(1362),
+      q(0),
+      ],
+   q(berta) => [
+      q(7229),
+      q(0),
+      ],
+   q(berti) => [
+      q(1607),
+      q(0),
+      ],
+   q(besisi) => [
+      q(4271),
+      q(0),
+      ],
+   q(besme) => [
+      q(1129),
+      q(0),
+      ],
+   q(besoa) => [
+      q(1127),
+      q(0),
+      ],
+   q(betaf) => [
+      q(1141),
+      q(0),
+      ],
+   q(betawi) => [
+      q(1133),
+      q(0),
+      ],
+   q(bete) => [
+      q(1594),
+      q(0),
+      ],
+   q(bete-bendi) => [
+      q(1487),
+      q(0),
+      ],
+   q(beti (cote d'ivoire)) => [
+      q(2275),
+      q(0),
+      ],
+   q(betta kurumba) => [
+      q(7516),
+      q(0),
+      ],
+   q(bezhta) => [
+      q(3179),
+      q(0),
+      ],
+   q(bhadrawahi) => [
+      q(1189),
+      q(0),
+      ],
+   q(bhalay) => [
+      q(1207),
+      q(0),
+      ],
+   q(bharia) => [
+      q(1186),
+      q(0),
+      ],
+   q(bhatri) => [
+      q(1182),
+      q(0),
+      ],
+   q(bhattiyali) => [
+      q(1203),
+      q(0),
+      ],
+   q(bhaya) => [
+      q(1190),
+      q(0),
+      ],
+   q(bhele) => [
+      q(1208),
+      q(0),
+      ],
+   q(bhilali) => [
+      q(1194),
+      q(0),
+      ],
+   q(bhili) => [
+      q(1187),
+      q(0),
+      ],
+   q(bhojpuri) => [
+      q(0052),
+      q(0),
+      ],
+   q(bhoti kinnauri) => [
+      q(4816),
+      q(0),
+      ],
+   q(bhujel) => [
+      q(1596),
+      q(0),
+      ],
+   q(bhunjia) => [
+      q(1204),
+      q(0),
+      ],
+   q(biafada) => [
+      q(1215),
+      q(0),
+      ],
+   q(biage) => [
+      q(1095),
+      q(0),
+      ],
+   q(biak) => [
+      q(1206),
+      q(0),
+      ],
+   q(biali) => [
+      q(1123),
+      q(0),
+      ],
+   q(bian marind) => [
+      q(1393),
+      q(0),
+      ],
+   q(biangai) => [
+      q(1216),
+      q(0),
+      ],
+   q(biao) => [
+      q(1599),
+      q(0),
+      ],
+   q(biao mon) => [
+      q(1322),
+      q(0),
+      ],
+   q(biao-jiao mien) => [
+      q(1234),
+      q(0),
+      ],
+   q(biatah bidayuh) => [
+      q(1477),
+      q(0),
+      ],
+   q(bibbulman) => [
+      q(7290),
+      q(0),
+      ],
+   q(bidhawal) => [
+      q(2929),
+      q(0),
+      ],
+   q(bidiyo) => [
+      q(1213),
+      q(0),
+      ],
+   q(bidyara) => [
+      q(1601),
+      q(0),
+      ],
+   q(bidyogo) => [
+      q(1236),
+      q(0),
+      ],
+   q(biem) => [
+      q(1305),
+      q(0),
+      ],
+   q(bierebo) => [
+      q(1337),
+      q(0),
+      ],
+   q(bieria) => [
+      q(1430),
+      q(0),
+      ],
+   q(biete) => [
+      q(1225),
+      q(0),
+      ],
+   q(big nambas) => [
+      q(4956),
+      q(0),
+      ],
+   q(biga) => [
+      q(1188),
+      q(0),
+      ],
+   q(bigambal) => [
+      q(7283),
+      q(0),
+      ],
+   q(bih) => [
+      q(2888),
+      q(0),
+      ],
+   q(bihari languages) => [
+      q(0053),
+      q(0),
+      ],
+   q(bijori) => [
+      q(1228),
+      q(0),
+      ],
+   q(bikaru) => [
+      q(1212),
+      q(0),
+      ],
+   q(bikol) => [
+      q(0054),
+      q(0),
+      ],
+   q(bikya) => [
+      q(1590),
+      q(0),
+      ],
+   q(bila) => [
+      q(1221),
+      q(0),
+      ],
+   q(bilakura) => [
+      q(1408),
+      q(0),
+      ],
+   q(bilaspuri) => [
+      q(3300),
+      q(0),
+      ],
+   q(bilba) => [
+      q(1397),
+      q(0),
+      ],
+   q(bilbil) => [
+      q(1446),
+      q(0),
+      ],
+   q(bile) => [
+      q(1218),
+      q(0),
+      ],
+   q(bilin) => [
+      q(0067),
+      q(1),
+      ],
+   q(bilma kanuri) => [
+      q(1321),
+      q(0),
+      ],
+   q(biloxi) => [
+      q(1289),
+      q(0),
+      ],
+   q(bilua) => [
+      q(1279),
+      q(0),
+      ],
+   q(bilur) => [
+      q(1571),
+      q(0),
+      ],
+   q(bima) => [
+      q(1199),
+      q(0),
+      ],
+   q(bimin) => [
+      q(1196),
+      q(0),
+      ],
+   q(bimoba) => [
+      q(1219),
+      q(0),
+      ],
+   q(bina (nigeria)) => [
+      q(1598),
+      q(0),
+      ],
+   q(bina (papua new guinea)) => [
+      q(1316),
+      q(0),
+      ],
+   q(binahari) => [
+      q(1588),
+      q(0),
+      ],
+   q(binandere) => [
+      q(1192),
+      q(0),
+      ],
+   q(bindal) => [
+      q(7282),
+      q(0),
+      ],
+   q(bine) => [
+      q(1363),
+      q(0),
+      ],
+   q(bini) => [
+      q(0055),
+      q(0),
+      ],
+   q(binji) => [
+      q(1381),
+      q(0),
+      ],
+   q(binongan itneg) => [
+      q(3008),
+      q(0),
+      ],
+   q(bintauna) => [
+      q(1332),
+      q(0),
+      ],
+   q(bintulu) => [
+      q(1350),
+      q(0),
+      ],
+   q(binukid) => [
+      q(1257),
+      q(0),
+      ],
+   q(binumarien) => [
+      q(1246),
+      q(0),
+      ],
+   q(bipi) => [
+      q(1222),
+      q(0),
+      ],
+   q(birale) => [
+      q(1570),
+      q(0),
+      ],
+   q(birao) => [
+      q(1438),
+      q(0),
+      ],
+   q(birgit) => [
+      q(1475),
+      q(0),
+      ],
+   q(birhor) => [
+      q(1229),
+      q(0),
+      ],
+   q(biri) => [
+      q(1629),
+      q(0),
+      ],
+   q(biritai) => [
+      q(1413),
+      q(0),
+      ],
+   q(birked) => [
+      q(1431),
+      q(0),
+      ],
+   q(birri) => [
+      q(1532),
+      q(0),
+      ],
+   q(birrpayi) => [
+      q(7286),
+      q(0),
+      ],
+   q(birwa) => [
+      q(1432),
+      q(0),
+      ],
+   q(bisa) => [
+      q(1211),
+      q(1),
+      ],
+   q(biseni) => [
+      q(2932),
+      q(0),
+      ],
+   q(bishnupriya) => [
+      q(1396),
+      q(0),
+      ],
+   q(bishuo) => [
+      q(1548),
+      q(0),
+      ],
+   q(bisis) => [
+      q(1348),
+      q(0),
+      ],
+   q(bislama) => [
+      q(0056),
+      q(0),
+      ],
+   q(bisorio) => [
+      q(1223),
+      q(0),
+      ],
+   q(bissa) => [
+      q(1211),
+      q(0),
+      ],
+   q(bisu) => [
+      q(1620),
+      q(0),
+      ],
+   q(bit) => [
+      q(1171),
+      q(0),
+      ],
+   q(bitare) => [
+      q(1440),
+      q(0),
+      ],
+   q(bitur) => [
+      q(4147),
+      q(0),
+      ],
+   q(biwat) => [
+      q(1553),
+      q(0),
+      ],
+   q(biyo) => [
+      q(1602),
+      q(0),
+      ],
+   q(biyom) => [
+      q(1384),
+      q(0),
+      ],
+   q(blablanga) => [
+      q(1293),
+      q(0),
+      ],
+   q(blafe) => [
+      q(1144),
+      q(0),
+      ],
+   q(blagar) => [
+      q(1131),
+      q(0),
+      ],
+   q(blang) => [
+      q(1295),
+      q(0),
+      ],
+   q(blin) => [
+      q(0067),
+      q(0),
+      ],
+   q(bliss) => [
+      q(0479),
+      q(2),
+      ],
+   q(blissymbolics) => [
+      q(0479),
+      q(1),
+      ],
+   q(blissymbols) => [
+      q(0479),
+      q(0),
+      ],
+   q(bo (laos)) => [
+      q(1172),
+      q(0),
+      ],
+   q(bo (papua new guinea)) => [
+      q(1394),
+      q(0),
+      ],
+   q(bo-rukul) => [
+      q(4109),
+      q(0),
+      ],
+   q(bo-ung) => [
+      q(4591),
+      q(0),
+      ],
+   q(boano (maluku)) => [
+      q(1625),
+      q(0),
+      ],
+   q(boano (sulawesi)) => [
+      q(1623),
+      q(0),
+      ],
+   q(bobongko) => [
+      q(1163),
+      q(0),
+      ],
+   q(bobot) => [
+      q(1492),
+      q(0),
+      ],
+   q(bodo (central african republic)) => [
+      q(1373),
+      q(0),
+      ],
+   q(bodo (india)) => [
+      q(1444),
+      q(0),
+      ],
+   q(bodo gadaba) => [
+      q(2426),
+      q(0),
+      ],
+   q(bodo parja) => [
+      q(1111),
+      q(0),
+      ],
+   q(bofi) => [
+      q(1142),
+      q(0),
+      ],
+   q(boga) => [
+      q(1537),
+      q(0),
+      ],
+   q(bogaya) => [
+      q(1366),
+      q(0),
+      ],
+   q(boghom) => [
+      q(1513),
+      q(0),
+      ],
+   q(boguru) => [
+      q(1417),
+      q(0),
+      ],
+   q(bohtan neo-aramaic) => [
+      q(1198),
+      q(0),
+      ],
+   q(boikin) => [
+      q(1617),
+      q(0),
+      ],
+   q(bokha) => [
+      q(7590),
+      q(0),
+      ],
+   q(bokmal, norwegian) => [
+      q(0314),
+      q(0),
+      ],
+   q(boko (benin)) => [
+      q(1400),
+      q(0),
+      ],
+   q(boko (democratic republic of congo)) => [
+      q(1268),
+      q(0),
+      ],
+   q(bokobaru) => [
+      q(1508),
+      q(0),
+      ],
+   q(bokoto) => [
+      q(1109),
+      q(0),
+      ],
+   q(bokyi) => [
+      q(1277),
+      q(0),
+      ],
+   q(bola) => [
+      q(1342),
+      q(0),
+      ],
+   q(bolango) => [
+      q(1281),
+      q(0),
+      ],
+   q(bole) => [
+      q(1361),
+      q(0),
+      ],
+   q(bolgarian) => [
+      q(7289),
+      q(0),
+      ],
+   q(bolgo) => [
+      q(1530),
+      q(0),
+      ],
+   q(bolia) => [
+      q(1286),
+      q(0),
+      ],
+   q(bolinao) => [
+      q(6112),
+      q(0),
+      ],
+   q(bolivian sign language) => [
+      q(1527),
+      q(0),
+      ],
+   q(bolo) => [
+      q(1298),
+      q(1),
+      ],
+   q(boloki) => [
+      q(1272),
+      q(0),
+      ],
+   q(bolon) => [
+      q(1355),
+      q(0),
+      ],
+   q(bolondo) => [
+      q(1624),
+      q(0),
+      ],
+   q(bolongan) => [
+      q(1287),
+      q(0),
+      ],
+   q(bolyu) => [
+      q(5503),
+      q(0),
+      ],
+   q(bom-kim) => [
+      q(1308),
+      q(0),
+      ],
+   q(boma) => [
+      q(1357),
+      q(0),
+      ],
+   q(bomboli) => [
+      q(1314),
+      q(0),
+      ],
+   q(bomboma) => [
+      q(1559),
+      q(0),
+      ],
+   q(bomitaba) => [
+      q(7884),
+      q(0),
+      ],
+   q(bomu) => [
+      q(1319),
+      q(0),
+      ],
+   q(bomwali) => [
+      q(1325),
+      q(0),
+      ],
+   q(bon gula) => [
+      q(2541),
+      q(0),
+      ],
+   q(bonan) => [
+      q(5406),
+      q(0),
+      ],
+   q(bondei) => [
+      q(1369),
+      q(0),
+      ],
+   q(bondo) => [
+      q(1158),
+      q(0),
+      ],
+   q(bondoukou kulango) => [
+      q(3763),
+      q(0),
+      ],
+   q(bondum dom dogon) => [
+      q(1966),
+      q(0),
+      ],
+   q(bonerate) => [
+      q(1328),
+      q(0),
+      ],
+   q(bonerif) => [
+      q(1347),
+      q(0),
+      ],
+   q(bonggi) => [
+      q(1096),
+      q(0),
+      ],
+   q(bonggo) => [
+      q(1378),
+      q(0),
+      ],
+   q(bongili) => [
+      q(1500),
+      q(0),
+      ],
+   q(bongo) => [
+      q(1368),
+      q(0),
+      ],
+   q(bongu) => [
+      q(1392),
+      q(0),
+      ],
+   q(bonjo) => [
+      q(1360),
+      q(0),
+      ],
+   q(bonkeng) => [
+      q(1522),
+      q(0),
+      ],
+   q(bonkiman) => [
+      q(1365),
+      q(0),
+      ],
+   q(bontok) => [
+      q(1330),
+      q(0),
+      ],
+   q(boo) => [
+      q(1400),
+      q(1),
+      ],
+   q(bookan) => [
+      q(1329),
+      q(0),
+      ],
+   q(boon) => [
+      q(1338),
+      q(0),
+      ],
+   q(boor) => [
+      q(1521),
+      q(0),
+      ],
+   q(bora) => [
+      q(1352),
+      q(0),
+      ],
+   q(borana-arsi-guji oromo) => [
+      q(2417),
+      q(0),
+      ],
+   q(border kuna) => [
+      q(3674),
+      q(0),
+      ],
+   q(borei) => [
+      q(2403),
+      q(0),
+      ],
+   q(borgu fulfulde) => [
+      q(2381),
+      q(0),
+      ],
+   q(borna (ethiopia)) => [
+      q(1555),
+      q(1),
+      ],
+   q(boro (ethiopia)) => [
+      q(1555),
+      q(0),
+      ],
+   q(boro (ghana)) => [
+      q(7545),
+      q(0),
+      ],
+   q(borong) => [
+      q(3606),
+      q(0),
+      ],
+   q(bororo) => [
+      q(1367),
+      q(0),
+      ],
+   q(boruca) => [
+      q(1434),
+      q(0),
+      ],
+   q(boselewa) => [
+      q(1546),
+      q(0),
+      ],
+   q(bosngun) => [
+      q(1415),
+      q(0),
+      ],
+   q(bosnian) => [
+      q(0059),
+      q(0),
+      ],
+   q(bote-majhi) => [
+      q(1312),
+      q(0),
+      ],
+   q(botlikh) => [
+      q(1379),
+      q(0),
+      ],
+   q(botolan sambal) => [
+      q(5903),
+      q(0),
+      ],
+   q(bouna kulango) => [
+      q(4934),
+      q(0),
+      ],
+   q(bouyei) => [
+      q(5379),
+      q(0),
+      ],
+   q(bozaba) => [
+      q(1626),
+      q(0),
+      ],
+   q(bragat) => [
+      q(0820),
+      q(0),
+      ],
+   q(brahui) => [
+      q(1428),
+      q(0),
+      ],
+   q(braj) => [
+      q(0060),
+      q(0),
+      ],
+   q(brazilian sign language) => [
+      q(1630),
+      q(0),
+      ],
+   q(brem) => [
+      q(1507),
+      q(0),
+      ],
+   q(breri) => [
+      q(1437),
+      q(0),
+      ],
+   q(breton) => [
+      q(0061),
+      q(0),
+      ],
+   q(bribri) => [
+      q(1615),
+      q(0),
+      ],
+   q(brithenig) => [
+      q(1631),
+      q(0),
+      ],
+   q(british sign language) => [
+      q(1145),
+      q(0),
+      ],
+   q(brokkat) => [
+      q(1435),
+      q(0),
+      ],
+   q(brokpake) => [
+      q(5995),
+      q(0),
+      ],
+   q(brokskat) => [
+      q(1263),
+      q(0),
+      ],
+   q(brooke's point palawano) => [
+      q(5502),
+      q(0),
+      ],
+   q(broome pearling lugger pidgin) => [
+      q(1383),
+      q(0),
+      ],
+   q(brunei) => [
+      q(3714),
+      q(0),
+      ],
+   q(brunei bisaya) => [
+      q(1448),
+      q(0),
+      ],
+   q(bu) => [
+      q(3092),
+      q(0),
+      ],
+   q(bu-nao bunu) => [
+      q(1563),
+      q(0),
+      ],
+   q(bua) => [
+      q(1494),
+      q(0),
+      ],
+   q(bualkhaw chin) => [
+      q(1666),
+      q(0),
+      ],
+   q(buamu) => [
+      q(1372),
+      q(0),
+      ],
+   q(bube) => [
+      q(1517),
+      q(0),
+      ],
+   q(bubi) => [
+      q(1512),
+      q(0),
+      ],
+   q(bubia) => [
+      q(1062),
+      q(0),
+      ],
+   q(budeh stieng) => [
+      q(6261),
+      q(0),
+      ],
+   q(budibud) => [
+      q(1483),
+      q(0),
+      ],
+   q(budong-budong) => [
+      q(1113),
+      q(0),
+      ],
+   q(budu) => [
+      q(1510),
+      q(0),
+      ],
+   q(budukh) => [
+      q(1100),
+      q(0),
+      ],
+   q(buduma) => [
+      q(1102),
+      q(0),
+      ],
+   q(budza) => [
+      q(1231),
+      q(0),
+      ],
+   q(bugan) => [
+      q(1046),
+      q(0),
+      ],
+   q(bugawac) => [
+      q(1502),
+      q(0),
+      ],
+   q(bughotu) => [
+      q(1179),
+      q(0),
+      ],
+   q(buginese) => [
+      q(0064),
+      q(0),
+      ],
+   q(buglere) => [
+      q(5877),
+      q(0),
+      ],
+   q(bugun) => [
+      q(1168),
+      q(0),
+      ],
+   q(buhi'non bikol) => [
+      q(6841),
+      q(0),
+      ],
+   q(buhid) => [
+      q(1273),
+      q(0),
+      ],
+   q(buhutu) => [
+      q(1573),
+      q(0),
+      ],
+   q(bukar-sadung bidayuh) => [
+      q(5946),
+      q(0),
+      ],
+   q(bukat) => [
+      q(1526),
+      q(0),
+      ],
+   q(bukharic) => [
+      q(1193),
+      q(0),
+      ],
+   q(bukit malay) => [
+      q(1535),
+      q(0),
+      ],
+   q(bukitan) => [
+      q(1266),
+      q(0),
+      ],
+   q(bukiyip) => [
+      q(0838),
+      q(0),
+      ],
+   q(buksa) => [
+      q(6536),
+      q(0),
+      ],
+   q(bukusu) => [
+      q(1576),
+      q(0),
+      ],
+   q(bukwen) => [
+      q(1515),
+      q(0),
+      ],
+   q(bulgarian) => [
+      q(0065),
+      q(0),
+      ],
+   q(bulgarian sign language) => [
+      q(1410),
+      q(0),
+      ],
+   q(bulgebi) => [
+      q(1318),
+      q(0),
+      ],
+   q(buli (ghana)) => [
+      q(1561),
+      q(0),
+      ],
+   q(buli (indonesia)) => [
+      q(1628),
+      q(0),
+      ],
+   q(bullom so) => [
+      q(1514),
+      q(0),
+      ],
+   q(bulo stieng) => [
+      q(6250),
+      q(0),
+      ],
+   q(bulu (cameroon)) => [
+      q(1503),
+      q(0),
+      ],
+   q(bulu (papua new guinea)) => [
+      q(1241),
+      q(0),
+      ],
+   q(bum) => [
+      q(1324),
+      q(0),
+      ],
+   q(bumaji) => [
+      q(1603),
+      q(0),
+      ],
+   q(bumang) => [
+      q(1531),
+      q(0),
+      ],
+   q(bumbita arapesh) => [
+      q(0828),
+      q(0),
+      ],
+   q(bumthangkha) => [
+      q(3399),
+      q(0),
+      ],
+   q(bun) => [
+      q(1511),
+      q(0),
+      ],
+   q(buna) => [
+      q(1529),
+      q(0),
+      ],
+   q(bunaba) => [
+      q(1075),
+      q(0),
+      ],
+   q(bunak) => [
+      q(1150),
+      q(0),
+      ],
+   q(bunama) => [
+      q(1093),
+      q(0),
+      ],
+   q(bundeli) => [
+      q(1345),
+      q(0),
+      ],
+   q(bung) => [
+      q(1401),
+      q(0),
+      ],
+   q(bungain) => [
+      q(1509),
+      q(0),
+      ],
+   q(bunganditj) => [
+      q(7284),
+      q(0),
+      ],
+   q(bungku) => [
+      q(1278),
+      q(0),
+      ],
+   q(bungu) => [
+      q(7239),
+      q(0),
+      ],
+   q(bunoge dogon) => [
+      q(1999),
+      q(0),
+      ],
+   q(bunun) => [
+      q(1340),
+      q(0),
+      ],
+   q(buol) => [
+      q(1283),
+      q(0),
+      ],
+   q(bura-pabir) => [
+      q(1558),
+      q(0),
+      ],
+   q(burak) => [
+      q(1606),
+      q(0),
+      ],
+   q(buraka) => [
+      q(1259),
+      q(0),
+      ],
+   q(burarra) => [
+      q(1533),
+      q(0),
+      ],
+   q(burate) => [
+      q(1478),
+      q(0),
+      ],
+   q(burduna) => [
+      q(1579),
+      q(0),
+      ],
+   q(bure) => [
+      q(1523),
+      q(0),
+      ],
+   q(buriat) => [
+      q(0063),
+      q(0),
+      ],
+   q(burji) => [
+      q(1238),
+      q(0),
+      ],
+   q(burmbar) => [
+      q(7032),
+      q(0),
+      ],
+   q(burmese) => [
+      q(0066),
+      q(0),
+      ],
+   q(burmeso) => [
+      q(1632),
+      q(0),
+      ],
+   q(buru (indonesia)) => [
+      q(4284),
+      q(0),
+      ],
+   q(buru (nigeria)) => [
+      q(1419),
+      q(0),
+      ],
+   q(burui) => [
+      q(1445),
+      q(0),
+      ],
+   q(burumakok) => [
+      q(0706),
+      q(0),
+      ],
+   q(burun) => [
+      q(1098),
+      q(0),
+      ],
+   q(burunge) => [
+      q(1108),
+      q(0),
+      ],
+   q(burushaski) => [
+      q(1456),
+      q(0),
+      ],
+   q(burusu) => [
+      q(1414),
+      q(0),
+      ],
+   q(buruwai) => [
+      q(0894),
+      q(0),
+      ],
+   q(busa) => [
+      q(1412),
+      q(0),
+      ],
+   q(busam) => [
+      q(1584),
+      q(0),
+      ],
+   q(busami) => [
+      q(1458),
+      q(0),
+      ],
+   q(busang kayan) => [
+      q(1143),
+      q(0),
+      ],
+   q(bushi) => [
+      q(1495),
+      q(0),
+      ],
+   q(bushoong) => [
+      q(1498),
+      q(0),
+      ],
+   q(businenge tongo) => [
+      q(2060),
+      q(1),
+      ],
+   q(buso) => [
+      q(1460),
+      q(0),
+      ],
+   q(busoa) => [
+      q(1506),
+      q(0),
+      ],
+   q(bussa) => [
+      q(2124),
+      q(0),
+      ],
+   q(busuu) => [
+      q(1249),
+      q(0),
+      ],
+   q(butbut kalinga) => [
+      q(3736),
+      q(0),
+      ],
+   q(butmas-tur) => [
+      q(1344),
+      q(0),
+      ],
+   q(butuanon) => [
+      q(1490),
+      q(0),
+      ],
+   q(buwal) => [
+      q(1202),
+      q(0),
+      ],
+   q(buxinhua) => [
+      q(1171),
+      q(1),
+      ],
+   q(buyu) => [
+      q(1597),
+      q(0),
+      ],
+   q(buyuan jinuo) => [
+      q(3104),
+      q(0),
+      ],
+   q(bwa) => [
+      q(1562),
+      q(0),
+      ],
+   q(bwaidoka) => [
+      q(1544),
+      q(0),
+      ],
+   q(bwanabwana) => [
+      q(6723),
+      q(0),
+      ],
+   q(bwatoo) => [
+      q(1541),
+      q(0),
+      ],
+   q(bwe karen) => [
+      q(1545),
+      q(0),
+      ],
+   q(bwela) => [
+      q(1552),
+      q(0),
+      ],
+   q(bwile) => [
+      q(1543),
+      q(0),
+      ],
+   q(bwisi) => [
+      q(1565),
+      q(0),
+      ],
+   q(byangsi) => [
+      q(1120),
+      q(0),
+      ],
+   q(byep) => [
+      q(4345),
+      q(0),
+      ],
+   q(c'lela) => [
+      q(2133),
+      q(0),
+      ],
+   q(caac) => [
+      q(4539),
+      q(0),
+      ],
+   q(cabecar) => [
+      q(1748),
+      q(0),
+      ],
+   q(cabiyari) => [
+      q(1659),
+      q(0),
+      ],
+   q(cacaloxtepec mixtec) => [
+      q(4308),
+      q(0),
+      ],
+   q(cacaopera) => [
+      q(1688),
+      q(0),
+      ],
+   q(cacgia roglai) => [
+      q(5827),
+      q(0),
+      ],
+   q(cacua) => [
+      q(1674),
+      q(0),
+      ],
+   q(caddo) => [
+      q(0068),
+      q(0),
+      ],
+   q(caddoan languages) => [
+      q(0499),
+      q(0),
+      ],
+   q(cafundo creole) => [
+      q(1679),
+      q(0),
+      ],
+   q(cahuarano) => [
+      q(1644),
+      q(0),
+      ],
+   q(cahuilla) => [
+      q(1721),
+      q(0),
+      ],
+   q(cahungwarya) => [
+      q(4727),
+      q(0),
+      ],
+   q(cajamarca quechua) => [
+      q(5692),
+      q(0),
+      ],
+   q(cajatambo north lima quechua) => [
+      q(5697),
+      q(0),
+      ],
+   q(cajonos zapotec) => [
+      q(7793),
+      q(0),
+      ],
+   q(cajun french) => [
+      q(2369),
+      q(0),
+      ],
+   q(caka) => [
+      q(1763),
+      q(0),
+      ],
+   q(cakchiquel) => [
+      q(1646),
+      q(1),
+      ],
+   q(cakchiquel-quiche mixed language) => [
+      q(1765),
+      q(0),
+      ],
+   q(cakfem-mushere) => [
+      q(1764),
+      q(0),
+      ],
+   q(calamian tagbanwa) => [
+      q(6379),
+      q(0),
+      ],
+   q(calderon highland quichua) => [
+      q(5673),
+      q(0),
+      ],
+   q(callawalla) => [
+      q(1655),
+      q(0),
+      ],
+   q(calo) => [
+      q(5810),
+      q(0),
+      ],
+   q(caluyanun) => [
+      q(1778),
+      q(0),
+      ],
+   q(cameroon mambila) => [
+      q(4165),
+      q(0),
+      ],
+   q(cameroon pidgin) => [
+      q(7097),
+      q(0),
+      ],
+   q(camling) => [
+      q(5728),
+      q(0),
+      ],
+   q(campalagian) => [
+      q(1785),
+      q(0),
+      ],
+   q(campidanese sardinian) => [
+      q(6209),
+      q(0),
+      ],
+   q(camsa) => [
+      q(3189),
+      q(0),
+      ],
+   q(camtho) => [
+      q(1791),
+      q(0),
+      ],
+   q(camunic) => [
+      q(7295),
+      q(0),
+      ],
+   q(canar highland quichua) => [
+      q(5720),
+      q(0),
+      ],
+   q(candoshi-shapra) => [
+      q(1673),
+      q(0),
+      ],
+   q(canela) => [
+      q(5737),
+      q(0),
+      ],
+   q(canichana) => [
+      q(1658),
+      q(0),
+      ],
+   q(cantonese) => [
+      q(7751),
+      q(1),
+      ],
+   q(cao lan) => [
+      q(4363),
+      q(0),
+      ],
+   q(cao miao) => [
+      q(1823),
+      q(0),
+      ],
+   q(capanahua) => [
+      q(3180),
+      q(0),
+      ],
+   q(capiznon) => [
+      q(1834),
+      q(0),
+      ],
+   q(cappadocian greek) => [
+      q(1830),
+      q(0),
+      ],
+   q(caquinte) => [
+      q(1821),
+      q(0),
+      ],
+   q(car nicobarese) => [
+      q(1652),
+      q(0),
+      ],
+   q(cara) => [
+      q(1709),
+      q(0),
+      ],
+   q(carabayo) => [
+      q(1676),
+      q(0),
+      ],
+   q(caramanta) => [
+      q(1843),
+      q(0),
+      ],
+   q(carapana) => [
+      q(1660),
+      q(0),
+      ],
+   q(carian) => [
+      q(7303),
+      q(0),
+      ],
+   q(caribbean hindustani) => [
+      q(2805),
+      q(0),
+      ],
+   q(caribbean javanese) => [
+      q(3165),
+      q(0),
+      ],
+   q(carijona) => [
+      q(1661),
+      q(0),
+      ],
+   q(carolina algonquian) => [
+      q(1853),
+      q(0),
+      ],
+   q(carolinian) => [
+      q(1647),
+      q(0),
+      ],
+   q(carpathian romani) => [
+      q(5797),
+      q(0),
+      ],
+   q(carrier) => [
+      q(1858),
+      q(0),
+      ],
+   q(cashibo-cacataibo) => [
+      q(1670),
+      q(0),
+      ],
+   q(cashinahua) => [
+      q(1671),
+      q(0),
+      ],
+   q(casiguran dumagat agta) => [
+      q(2000),
+      q(0),
+      ],
+   q(castilian) => [
+      q(0402),
+      q(1),
+      ],
+   q(casuarina coast asmat) => [
+      q(0888),
+      q(0),
+      ],
+   q(catalan) => [
+      q(0071),
+      q(0),
+      ],
+   q(catalan sign language) => [
+      q(1862),
+      q(0),
+      ],
+   q(catawba) => [
+      q(1716),
+      q(0),
+      ],
+   q(cauca) => [
+      q(1677),
+      q(0),
+      ],
+   q(caucasian languages) => [
+      q(0072),
+      q(0),
+      ],
+   q(cavinena) => [
+      q(1654),
+      q(0),
+      ],
+   q(cayubaba) => [
+      q(1925),
+      q(0),
+      ],
+   q(cayuga) => [
+      q(1657),
+      q(0),
+      ],
+   q(cayuse) => [
+      q(7308),
+      q(0),
+      ],
+   q(cebaara senoufo) => [
+      q(5959),
+      q(0),
+      ],
+   q(cebuano) => [
+      q(0073),
+      q(0),
+      ],
+   q(celtiberian) => [
+      q(7296),
+      q(0),
+      ],
+   q(celtic languages) => [
+      q(0074),
+      q(0),
+      ],
+   q(cemuhi) => [
+      q(1648),
+      q(0),
+      ],
+   q(cen) => [
+      q(1706),
+      q(0),
+      ],
+   q(central american indian languages) => [
+      q(0069),
+      q(0),
+      ],
+   q(central asmat) => [
+      q(1801),
+      q(0),
+      ],
+   q(central atlas tamazight) => [
+      q(6832),
+      q(0),
+      ],
+   q(central awyu) => [
+      q(0981),
+      q(0),
+      ],
+   q(central aymara) => [
+      q(1007),
+      q(0),
+      ],
+   q(central bai) => [
+      q(1065),
+      q(0),
+      ],
+   q(central berawan) => [
+      q(7814),
+      q(0),
+      ],
+   q(central bikol) => [
+      q(1076),
+      q(0),
+      ],
+   q(central bontok) => [
+      q(3812),
+      q(0),
+      ],
+   q(central cagayan agta) => [
+      q(0671),
+      q(0),
+      ],
+   q(central dusun) => [
+      q(2159),
+      q(1),
+      ],
+   q(central grebo) => [
+      q(2625),
+      q(0),
+      ],
+   q(central hongshuihe zhuang) => [
+      q(7819),
+      q(0),
+      ],
+   q(central huasteca nahuatl) => [
+      q(4761),
+      q(0),
+      ],
+   q(central huishui hmong) => [
+      q(2776),
+      q(0),
+      ],
+   q(central huishui miao) => [
+      q(2776),
+      q(1),
+      ],
+   q(central kanuri) => [
+      q(3479),
+      q(0),
+      ],
+   q(central khmer) => [
+      q(0223),
+      q(0),
+      ],
+   q(central kurdish) => [
+      q(1752),
+      q(0),
+      ],
+   q(central lalo) => [
+      q(7776),
+      q(1),
+      ],
+   q(central maewo) => [
+      q(4629),
+      q(0),
+      ],
+   q(central malay) => [
+      q(5604),
+      q(0),
+      ],
+   q(central malayo-polynesian languages) => [
+      q(0520),
+      q(0),
+      ],
+   q(central masela) => [
+      q(4665),
+      q(0),
+      ],
+   q(central mashan hmong) => [
+      q(2786),
+      q(0),
+      ],
+   q(central mashan miao) => [
+      q(2786),
+      q(1),
+      ],
+   q(central mazahua) => [
+      q(4119),
+      q(0),
+      ],
+   q(central melanau) => [
+      q(4204),
+      q(0),
+      ],
+   q(central mnong) => [
+      q(1788),
+      q(0),
+      ],
+   q(central nahuatl) => [
+      q(4864),
+      q(0),
+      ],
+   q(central nicobarese) => [
+      q(4755),
+      q(0),
+      ],
+   q(central ojibwa) => [
+      q(5214),
+      q(0),
+      ],
+   q(central okinawan) => [
+      q(5874),
+      q(0),
+      ],
+   q(central palawano) => [
+      q(5485),
+      q(0),
+      ],
+   q(central pame) => [
+      q(5372),
+      q(0),
+      ],
+   q(central pashto) => [
+      q(5616),
+      q(0),
+      ],
+   q(central pomo) => [
+      q(5558),
+      q(0),
+      ],
+   q(central puebla nahuatl) => [
+      q(4775),
+      q(0),
+      ],
+   q(central sama) => [
+      q(6113),
+      q(0),
+      ],
+   q(central siberian yupik) => [
+      q(2297),
+      q(0),
+      ],
+   q(central sierra miwok) => [
+      q(1872),
+      q(0),
+      ],
+   q(central subanen) => [
+      q(6324),
+      q(0),
+      ],
+   q(central sudanic languages) => [
+      q(0500),
+      q(0),
+      ],
+   q(central tagbanwa) => [
+      q(6479),
+      q(0),
+      ],
+   q(central tarahumara) => [
+      q(6361),
+      q(0),
+      ],
+   q(central tunebo) => [
+      q(6749),
+      q(0),
+      ],
+   q(central yupik) => [
+      q(2298),
+      q(0),
+      ],
+   q(central-eastern niger fulfulde) => [
+      q(2388),
+      q(0),
+      ],
+   q(centuum) => [
+      q(1707),
+      q(0),
+      ],
+   q(cerma) => [
+      q(1782),
+      q(0),
+      ],
+   q(chabu) => [
+      q(5897),
+      q(0),
+      ],
+   q(chachapoyas quechua) => [
+      q(5678),
+      q(0),
+      ],
+   q(chachi) => [
+      q(1663),
+      q(0),
+      ],
+   q(chacobo) => [
+      q(1650),
+      q(0),
+      ],
+   q(chadian arabic) => [
+      q(6019),
+      q(0),
+      ],
+   q(chadian sign language) => [
+      q(1700),
+      q(0),
+      ],
+   q(chadic languages) => [
+      q(0498),
+      q(0),
+      ],
+   q(chadong) => [
+      q(1701),
+      q(0),
+      ],
+   q(chagatai) => [
+      q(0078),
+      q(0),
+      ],
+   q(chaima) => [
+      q(1739),
+      q(0),
+      ],
+   q(chak) => [
+      q(1753),
+      q(0),
+      ],
+   q(chakali) => [
+      q(1771),
+      q(0),
+      ],
+   q(chakma) => [
+      q(1687),
+      q(0),
+      ],
+   q(chala) => [
+      q(1774),
+      q(0),
+      ],
+   q(chaldean neo-aramaic) => [
+      q(1768),
+      q(0),
+      ],
+   q(chalikha) => [
+      q(6469),
+      q(0),
+      ],
+   q(chamacoco) => [
+      q(1704),
+      q(0),
+      ],
+   q(chamalal) => [
+      q(1743),
+      q(0),
+      ],
+   q(chamari) => [
+      q(1692),
+      q(0),
+      ],
+   q(chambeali) => [
+      q(1693),
+      q(0),
+      ],
+   q(chambri) => [
+      q(1649),
+      q(0),
+      ],
+   q(chamic languages) => [
+      q(0089),
+      q(0),
+      ],
+   q(chamicuro) => [
+      q(1678),
+      q(0),
+      ],
+   q(chamorro) => [
+      q(0075),
+      q(0),
+      ],
+   q(chane) => [
+      q(1645),
+      q(0),
+      ],
+   q(chang naga) => [
+      q(4734),
+      q(0),
+      ],
+   q(changriwa) => [
+      q(1712),
+      q(0),
+      ],
+   q(changthang) => [
+      q(1792),
+      q(0),
+      ],
+   q(chantyal) => [
+      q(1725),
+      q(0),
+      ],
+   q(chara) => [
+      q(1839),
+      q(0),
+      ],
+   q(chaudangsi) => [
+      q(1697),
+      q(0),
+      ],
+   q(chaura) => [
+      q(1856),
+      q(0),
+      ],
+   q(chavacano) => [
+      q(1665),
+      q(0),
+      ],
+   q(chayahuita) => [
+      q(1672),
+      q(0),
+      ],
+   q(chayuco mixtec) => [
+      q(4297),
+      q(0),
+      ],
+   q(chazumba mixtec) => [
+      q(7493),
+      q(0),
+      ],
+   q(che) => [
+      q(5858),
+      q(0),
+      ],
+   q(chechen) => [
+      q(0077),
+      q(0),
+      ],
+   q(cheke holo) => [
+      q(4511),
+      q(0),
+      ],
+   q(chemakum) => [
+      q(7298),
+      q(0),
+      ],
+   q(chenapian) => [
+      q(1746),
+      q(0),
+      ],
+   q(chenchu) => [
+      q(1690),
+      q(0),
+      ],
+   q(chenoua) => [
+      q(1803),
+      q(0),
+      ],
+   q(chepang) => [
+      q(1696),
+      q(0),
+      ],
+   q(chepya) => [
+      q(7600),
+      q(0),
+      ],
+   q(cheq wong) => [
+      q(1922),
+      q(1),
+      ],
+   q(cherepon) => [
+      q(1832),
+      q(0),
+      ],
+   q(cherokee) => [
+      q(0085),
+      q(0),
+      ],
+   q(chesu) => [
+      q(7597),
+      q(0),
+      ],
+   q(chetco) => [
+      q(1884),
+      q(0),
+      ],
+   q(chewa) => [
+      q(0322),
+      q(1),
+      ],
+   q(chewong) => [
+      q(1922),
+      q(0),
+      ],
+   q(cheyenne) => [
+      q(0088),
+      q(0),
+      ],
+   q(chhattisgarhi) => [
+      q(2799),
+      q(0),
+      ],
+   q(chhintange) => [
+      q(1891),
+      q(0),
+      ],
+   q(chhulung) => [
+      q(1910),
+      q(0),
+      ],
+   q(chiangmai sign language) => [
+      q(1863),
+      q(0),
+      ],
+   q(chiapanec) => [
+      q(1736),
+      q(0),
+      ],
+   q(chibcha) => [
+      q(0076),
+      q(0),
+      ],
+   q(chibchan languages) => [
+      q(0495),
+      q(0),
+      ],
+   q(chicahuaxtla triqui) => [
+      q(6689),
+      q(0),
+      ],
+   q(chichewa) => [
+      q(0322),
+      q(0),
+      ],
+   q(chichicapan zapotec) => [
+      q(7920),
+      q(0),
+      ],
+   q(chichimeca-jonaz) => [
+      q(5407),
+      q(0),
+      ],
+   q(chichonyi-chidzihana-chikauma) => [
+      q(1813),
+      q(1),
+      ],
+   q(chickasaw) => [
+      q(1729),
+      q(0),
+      ],
+   q(chicomuceltec) => [
+      q(1807),
+      q(0),
+      ],
+   q(chidigo) => [
+      q(2034),
+      q(1),
+      ],
+   q(chiduruma) => [
+      q(2170),
+      q(1),
+      ],
+   q(chiga) => [
+      q(1714),
+      q(0),
+      ],
+   q(chigmecatitlan mixtec) => [
+      q(4298),
+      q(0),
+      ],
+   q(chilcotin) => [
+      q(1767),
+      q(0),
+      ],
+   q(chilean sign language) => [
+      q(1866),
+      q(0),
+      ],
+   q(chilisso) => [
+      q(1770),
+      q(0),
+      ],
+   q(chiltepec chinantec) => [
+      q(1861),
+      q(0),
+      ],
+   q(chimakum) => [
+      q(7298),
+      q(1),
+      ],
+   q(chimalapa zoque) => [
+      q(7893),
+      q(0),
+      ],
+   q(chimariko) => [
+      q(1730),
+      q(0),
+      ],
+   q(chimborazo highland quichua) => [
+      q(5675),
+      q(0),
+      ],
+   q(chimila) => [
+      q(1662),
+      q(0),
+      ],
+   q(china buriat) => [
+      q(1585),
+      q(0),
+      ],
+   q(chinali) => [
+      q(1732),
+      q(0),
+      ],
+   q(chinbon chin) => [
+      q(1793),
+      q(0),
+      ],
+   q(chincha quechua) => [
+      q(5713),
+      q(0),
+      ],
+   q(chinese) => [
+      q(0079),
+      q(0),
+      ],
+   q(chinese (family)) => [
+      q(0534),
+      q(0),
+      ],
+   q(chinese pidgin english) => [
+      q(1831),
+      q(0),
+      ],
+   q(chinese sign language) => [
+      q(1871),
+      q(0),
+      ],
+   q(chini) => [
+      q(0644),
+      q(1),
+      ],
+   q(chinook) => [
+      q(1719),
+      q(0),
+      ],
+   q(chinook jargon) => [
+      q(0082),
+      q(0),
+      ],
+   q(chipaya) => [
+      q(1651),
+      q(0),
+      ],
+   q(chipewyan) => [
+      q(0084),
+      q(0),
+      ],
+   q(chippewa) => [
+      q(1738),
+      q(0),
+      ],
+   q(chiquian ancash quechua) => [
+      q(5712),
+      q(0),
+      ],
+   q(chiquihuitlan mazatec) => [
+      q(4113),
+      q(0),
+      ],
+   q(chiquitano) => [
+      q(1656),
+      q(0),
+      ],
+   q(chiripa) => [
+      q(4856),
+      q(0),
+      ],
+   q(chiru) => [
+      q(1691),
+      q(0),
+      ],
+   q(chitimacha) => [
+      q(1890),
+      q(0),
+      ],
+   q(chitkuli kinnauri) => [
+      q(1733),
+      q(0),
+      ],
+   q(chittagonian) => [
+      q(1887),
+      q(0),
+      ],
+   q(chitwania tharu) => [
+      q(6487),
+      q(0),
+      ],
+   q(choapan zapotec) => [
+      q(7901),
+      q(0),
+      ],
+   q(chocangacakha) => [
+      q(1715),
+      q(0),
+      ],
+   q(chochotec) => [
+      q(1826),
+      q(0),
+      ],
+   q(choctaw) => [
+      q(0083),
+      q(0),
+      ],
+   q(chodri) => [
+      q(1694),
+      q(0),
+      ],
+   q(chokri naga) => [
+      q(5050),
+      q(0),
+      ],
+   q(chokwe) => [
+      q(1744),
+      q(0),
+      ],
+   q(chol) => [
+      q(1896),
+      q(0),
+      ],
+   q(cholon) => [
+      q(1723),
+      q(0),
+      ],
+   q(chong) => [
+      q(1812),
+      q(0),
+      ],
+   q(choni) => [
+      q(1689),
+      q(0),
+      ],
+   q(chonyi-dzihana-kauma) => [
+      q(1813),
+      q(0),
+      ],
+   q(chopi) => [
+      q(1680),
+      q(0),
+      ],
+   q(chorasmian) => [
+      q(7302),
+      q(0),
+      ],
+   q(chorti) => [
+      q(1638),
+      q(0),
+      ],
+   q(chothe naga) => [
+      q(4773),
+      q(0),
+      ],
+   q(chrau) => [
+      q(1857),
+      q(0),
+      ],
+   q(chru) => [
+      q(1741),
+      q(0),
+      ],
+   q(chuang) => [
+      q(0482),
+      q(1),
+      ],
+   q(chuanqiandian cluster miao) => [
+      q(1838),
+      q(0),
+      ],
+   q(chuave) => [
+      q(1750),
+      q(0),
+      ],
+   q(chug) => [
+      q(1916),
+      q(0),
+      ],
+   q(chuj) => [
+      q(1640),
+      q(0),
+      ],
+   q(chuka) => [
+      q(1902),
+      q(0),
+      ],
+   q(chukot) => [
+      q(1760),
+      q(0),
+      ],
+   q(chukwa) => [
+      q(1914),
+      q(0),
+      ],
+   q(chulym) => [
+      q(1779),
+      q(0),
+      ],
+   q(chumburung) => [
+      q(4774),
+      q(0),
+      ],
+   q(chungmboko) => [
+      q(1901),
+      q(0),
+      ],
+   q(churahi) => [
+      q(1695),
+      q(0),
+      ],
+   q(church slavic) => [
+      q(0086),
+      q(0),
+      ],
+   q(church slavonic) => [
+      q(0086),
+      q(2),
+      ],
+   q(chut) => [
+      q(5918),
+      q(0),
+      ],
+   q(chuukese) => [
+      q(0080),
+      q(0),
+      ],
+   q(chuvantsy) => [
+      q(7306),
+      q(0),
+      ],
+   q(chuvash) => [
+      q(0087),
+      q(0),
+      ],
+   q(chuwabu) => [
+      q(1724),
+      q(0),
+      ],
+   q(ci gbe) => [
+      q(1728),
+      q(0),
+      ],
+   q(cia-cia) => [
+      q(1727),
+      q(0),
+      ],
+   q(cibak) => [
+      q(1754),
+      q(0),
+      ],
+   q(cicipu) => [
+      q(0969),
+      q(0),
+      ],
+   q(cimbrian) => [
+      q(1734),
+      q(0),
+      ],
+   q(cinda-regi-tiyal) => [
+      q(1699),
+      q(0),
+      ],
+   q(cineni) => [
+      q(1731),
+      q(0),
+      ],
+   q(cinta larga) => [
+      q(1735),
+      q(0),
+      ],
+   q(cisalpine gaulish) => [
+      q(7297),
+      q(0),
+      ],
+   q(cishingini) => [
+      q(0892),
+      q(0),
+      ],
+   q(citak) => [
+      q(6810),
+      q(0),
+      ],
+   q(ciwogai) => [
+      q(6467),
+      q(0),
+      ],
+   q(clallam) => [
+      q(1775),
+      q(0),
+      ],
+   q(classical armenian) => [
+      q(7299),
+      q(0),
+      ],
+   q(classical mandaic) => [
+      q(4686),
+      q(0),
+      ],
+   q(classical mongolian) => [
+      q(1783),
+      q(0),
+      ],
+   q(classical nahuatl) => [
+      q(4762),
+      q(0),
+      ],
+   q(classical nepal bhasa) => [
+      q(0321),
+      q(2),
+      ],
+   q(classical newari) => [
+      q(0321),
+      q(0),
+      ],
+   q(classical quechua) => [
+      q(5707),
+      q(0),
+      ],
+   q(classical syriac) => [
+      q(0415),
+      q(0),
+      ],
+   q(classical tibetan) => [
+      q(7304),
+      q(0),
+      ],
+   q(coahuilteco) => [
+      q(7307),
+      q(0),
+      ],
+   q(coast miwok) => [
+      q(1868),
+      q(0),
+      ],
+   q(coastal konjo) => [
+      q(3377),
+      q(0),
+      ],
+   q(coatecas altas zapotec) => [
+      q(7818),
+      q(0),
+      ],
+   q(coatepec nahuatl) => [
+      q(4731),
+      q(0),
+      ],
+   q(coatlan mixe) => [
+      q(4159),
+      q(0),
+      ],
+   q(coatlan zapotec) => [
+      q(7917),
+      q(0),
+      ],
+   q(coatzospan mixtec) => [
+      q(4312),
+      q(0),
+      ],
+   q(cocama-cocamilla) => [
+      q(1809),
+      q(0),
+      ],
+   q(cochimi) => [
+      q(1814),
+      q(0),
+      ],
+   q(cocopa) => [
+      q(1808),
+      q(0),
+      ],
+   q(cocos islands malay) => [
+      q(1806),
+      q(0),
+      ],
+   q(coeur d'alene) => [
+      q(1842),
+      q(0),
+      ],
+   q(cofan) => [
+      q(1818),
+      q(0),
+      ],
+   q(cogui) => [
+      q(3507),
+      q(0),
+      ],
+   q(col) => [
+      q(3919),
+      q(0),
+      ],
+   q(colombian sign language) => [
+      q(1873),
+      q(0),
+      ],
+   q(colonia tovar german) => [
+      q(2449),
+      q(0),
+      ],
+   q(colorado) => [
+      q(1811),
+      q(0),
+      ],
+   q(columbia-wenatchi) => [
+      q(1816),
+      q(0),
+      ],
+   q(comaltepec chinantec) => [
+      q(1686),
+      q(0),
+      ],
+   q(comanche) => [
+      q(1817),
+      q(0),
+      ],
+   q(comecrudo) => [
+      q(7300),
+      q(0),
+      ],
+   q(como karim) => [
+      q(1710),
+      q(0),
+      ],
+   q(comox) => [
+      q(1819),
+      q(0),
+      ],
+   q(con) => [
+      q(1800),
+      q(0),
+      ],
+   q(congo swahili) => [
+      q(6289),
+      q(0),
+      ],
+   q(cook islands maori) => [
+      q(0357),
+      q(1),
+      ],
+   q(coong) => [
+      q(1794),
+      q(0),
+      ],
+   q(coos) => [
+      q(1882),
+      q(0),
+      ],
+   q(copainala zoque) => [
+      q(7892),
+      q(0),
+      ],
+   q(copala triqui) => [
+      q(6674),
+      q(0),
+      ],
+   q(coptic) => [
+      q(0091),
+      q(0),
+      ],
+   q(coquille) => [
+      q(1820),
+      q(0),
+      ],
+   q(cori) => [
+      q(1859),
+      q(0),
+      ],
+   q(cornish) => [
+      q(0092),
+      q(0),
+      ],
+   q(corongo ancash quechua) => [
+      q(5706),
+      q(0),
+      ],
+   q(corsican) => [
+      q(0093),
+      q(0),
+      ],
+   q(costa rican sign language) => [
+      q(1876),
+      q(0),
+      ],
+   q(cotabato manobo) => [
+      q(4548),
+      q(0),
+      ],
+   q(cotoname) => [
+      q(7301),
+      q(0),
+      ],
+   q(cowlitz) => [
+      q(1824),
+      q(0),
+      ],
+   q(coyotepec popoloca) => [
+      q(5363),
+      q(0),
+      ],
+   q(coyutla totonac) => [
+      q(6621),
+      q(0),
+      ],
+   q(cree) => [
+      q(0097),
+      q(0),
+      ],
+   q(creek) => [
+      q(0294),
+      q(0),
+      ],
+   q(creoles and pidgins) => [
+      q(0099),
+      q(1),
+      ],
+   q(creoles and pidgins ) => [
+      q(0099),
+      q(0),
+      ],
+   q(creoles and pidgins, english based) => [
+      q(0094),
+      q(0),
+      ],
+   q(creoles and pidgins, english-based) => [
+      q(0094),
+      q(1),
+      ],
+   q(creoles and pidgins, french-based) => [
+      q(0095),
+      q(1),
+      ],
+   q(creoles and pidgins, french-based ) => [
+      q(0095),
+      q(0),
+      ],
+   q(creoles and pidgins, portuguese-based) => [
+      q(0096),
+      q(1),
+      ],
+   q(creoles and pidgins, portuguese-based ) => [
+      q(0096),
+      q(0),
+      ],
+   q(crimean tatar) => [
+      q(0098),
+      q(0),
+      ],
+   q(crimean turkish) => [
+      q(0098),
+      q(1),
+      ],
+   q(croatia sign language) => [
+      q(1875),
+      q(0),
+      ],
+   q(croatian) => [
+      q(0182),
+      q(0),
+      ],
+   q(cross river mbembe) => [
+      q(4230),
+      q(0),
+      ],
+   q(crow) => [
+      q(1851),
+      q(0),
+      ],
+   q(cruzeno) => [
+      q(1860),
+      q(0),
+      ],
+   q(cua) => [
+      q(1898),
+      q(0),
+      ],
+   q(cuba) => [
+      q(1669),
+      q(1),
+      ],
+   q(cuba sign language) => [
+      q(1865),
+      q(0),
+      ],
+   q(cubeo) => [
+      q(1899),
+      q(0),
+      ],
+   q(cuiba) => [
+      q(1903),
+      q(0),
+      ],
+   q(culina) => [
+      q(1906),
+      q(0),
+      ],
+   q(cumanagoto) => [
+      q(1907),
+      q(0),
+      ],
+   q(cumbric) => [
+      q(7294),
+      q(0),
+      ],
+   q(cun) => [
+      q(1909),
+      q(0),
+      ],
+   q(cuneiform luwian) => [
+      q(7390),
+      q(0),
+      ],
+   q(cung) => [
+      q(1901),
+      q(1),
+      ],
+   q(cupeno) => [
+      q(1908),
+      q(0),
+      ],
+   q(curonian) => [
+      q(7305),
+      q(0),
+      ],
+   q(curripaco) => [
+      q(3522),
+      q(0),
+      ],
+   q(cusco quechua) => [
+      q(5690),
+      q(0),
+      ],
+   q(cushitic languages) => [
+      q(0101),
+      q(0),
+      ],
+   q(cutchi-swahili) => [
+      q(1684),
+      q(0),
+      ],
+   q(cuvok) => [
+      q(1913),
+      q(0),
+      ],
+   q(cuyamecalco mixtec) => [
+      q(7510),
+      q(0),
+      ],
+   q(cuyonon) => [
+      q(1926),
+      q(0),
+      ],
+   q(cwi bwamu) => [
+      q(1564),
+      q(0),
+      ],
+   q(cypriot arabic) => [
+      q(0603),
+      q(0),
+      ],
+   q(czech) => [
+      q(0102),
+      q(0),
+      ],
+   q(czech sign language) => [
+      q(1864),
+      q(0),
+      ],
+   q(da'a kaili) => [
+      q(3766),
+      q(0),
+      ],
+   q(da-hua miao) => [
+      q(2777),
+      q(2),
+      ],
+   q(daai chin) => [
+      q(1942),
+      q(0),
+      ],
+   q(daakaka) => [
+      q(1375),
+      q(0),
+      ],
+   q(daantanai') => [
+      q(3995),
+      q(0),
+      ],
+   q(daasanach) => [
+      q(2144),
+      q(0),
+      ],
+   q(daats'iin) => [
+      q(2157),
+      q(0),
+      ],
+   q(daba) => [
+      q(1963),
+      q(0),
+      ],
+   q(dabarre) => [
+      q(1964),
+      q(0),
+      ],
+   q(dabe) => [
+      q(1953),
+      q(0),
+      ],
+   q(dacian) => [
+      q(7310),
+      q(0),
+      ],
+   q(dadi dadi) => [
+      q(1972),
+      q(0),
+      ],
+   q(dadibi) => [
+      q(4466),
+      q(0),
+      ],
+   q(dadiya) => [
+      q(1952),
+      q(0),
+      ],
+   q(daga) => [
+      q(2015),
+      q(0),
+      ],
+   q(dagaari dioula) => [
+      q(2001),
+      q(0),
+      ],
+   q(dagba) => [
+      q(2006),
+      q(0),
+      ],
+   q(dagbani) => [
+      q(1936),
+      q(0),
+      ],
+   q(dagik) => [
+      q(1983),
+      q(0),
+      ],
+   q(dagoman) => [
+      q(2008),
+      q(0),
+      ],
+   q(dahalik) => [
+      q(2073),
+      q(0),
+      ],
+   q(dahalo) => [
+      q(1940),
+      q(0),
+      ],
+   q(daho-doo) => [
+      q(1944),
+      q(0),
+      ],
+   q(dai) => [
+      q(2037),
+      q(0),
+      ],
+   q(dai zhuang) => [
+      q(7830),
+      q(0),
+      ],
+   q(dair) => [
+      q(2128),
+      q(0),
+      ],
+   q(dakka) => [
+      q(2068),
+      q(0),
+      ],
+   q(dakota) => [
+      q(0103),
+      q(0),
+      ],
+   q(dakpakha) => [
+      q(2067),
+      q(0),
+      ],
+   q(dalabon) => [
+      q(4837),
+      q(0),
+      ],
+   q(dalmatian) => [
+      q(2074),
+      q(0),
+      ],
+   q(daloa bete) => [
+      q(1132),
+      q(0),
+      ],
+   q(dama) => [
+      q(2084),
+      q(0),
+      ],
+   q(damakawa) => [
+      q(1941),
+      q(0),
+      ],
+   q(damal) => [
+      q(6860),
+      q(0),
+      ],
+   q(dambi) => [
+      q(1933),
+      q(0),
+      ],
+   q(dameli) => [
+      q(2083),
+      q(0),
+      ],
+   q(dampelas) => [
+      q(2087),
+      q(0),
+      ],
+   q(dan) => [
+      q(2098),
+      q(0),
+      ],
+   q(danaru) => [
+      q(2101),
+      q(0),
+      ],
+   q(danau) => [
+      q(2103),
+      q(0),
+      ],
+   q(dandami maria) => [
+      q(1943),
+      q(0),
+      ],
+   q(dangaleat) => [
+      q(1932),
+      q(0),
+      ],
+   q(dangaura tharu) => [
+      q(6492),
+      q(0),
+      ],
+   q(danish) => [
+      q(0104),
+      q(0),
+      ],
+   q(danish sign language) => [
+      q(2146),
+      q(0),
+      ],
+   q(dano) => [
+      q(0899),
+      q(0),
+      ],
+   q(danu) => [
+      q(2104),
+      q(0),
+      ],
+   q(dao) => [
+      q(1949),
+      q(0),
+      ],
+   q(daonda) => [
+      q(2094),
+      q(0),
+      ],
+   q(dar daju daju) => [
+      q(2054),
+      q(0),
+      ],
+   q(dar fur daju) => [
+      q(1939),
+      q(0),
+      ],
+   q(dar sila daju) => [
+      q(1945),
+      q(0),
+      ],
+   q(darai) => [
+      q(2142),
+      q(0),
+      ],
+   q(darang deng) => [
+      q(4286),
+      q(1),
+      ],
+   q(dargwa) => [
+      q(0105),
+      q(0),
+      ],
+   q(dari) => [
+      q(5595),
+      q(0),
+      ],
+   q(darkinyung) => [
+      q(7309),
+      q(0),
+      ],
+   q(darlong) => [
+      q(2075),
+      q(0),
+      ],
+   q(darmiya) => [
+      q(2130),
+      q(0),
+      ],
+   q(daro-matu melanau) => [
+      q(2136),
+      q(0),
+      ],
+   q(dass) => [
+      q(2121),
+      q(0),
+      ],
+   q(datooga) => [
+      q(6396),
+      q(0),
+      ],
+   q(daungwurrung) => [
+      q(2013),
+      q(0),
+      ],
+   q(daur) => [
+      q(2150),
+      q(0),
+      ],
+   q(davawenyo) => [
+      q(1947),
+      q(0),
+      ],
+   q(daw) => [
+      q(3686),
+      q(0),
+      ],
+   q(dawawa) => [
+      q(2192),
+      q(0),
+      ],
+   q(dawera-daweloor) => [
+      q(1982),
+      q(0),
+      ],
+   q(dawida) => [
+      q(1946),
+      q(1),
+      ],
+   q(dawro) => [
+      q(2189),
+      q(0),
+      ],
+   q(day) => [
+      q(1938),
+      q(0),
+      ],
+   q(dayi) => [
+      q(1948),
+      q(0),
+      ],
+   q(dazaga) => [
+      q(2205),
+      q(0),
+      ],
+   q(deccan) => [
+      q(1970),
+      q(0),
+      ],
+   q(dedua) => [
+      q(1984),
+      q(0),
+      ],
+   q(defaka) => [
+      q(0646),
+      q(0),
+      ],
+   q(defi gbe) => [
+      q(2424),
+      q(0),
+      ],
+   q(deg) => [
+      q(4708),
+      q(0),
+      ],
+   q(degaru) => [
+      q(2012),
+      q(0),
+      ],
+   q(degema) => [
+      q(1987),
+      q(0),
+      ],
+   q(degenan) => [
+      q(2002),
+      q(0),
+      ],
+   q(degexit'an) => [
+      q(2968),
+      q(0),
+      ],
+   q(dehu) => [
+      q(2026),
+      q(0),
+      ],
+   q(dehwari) => [
+      q(1988),
+      q(0),
+      ],
+   q(dek) => [
+      q(1990),
+      q(0),
+      ],
+   q(dela-oenale) => [
+      q(5837),
+      q(0),
+      ],
+   q(delaware) => [
+      q(0107),
+      q(0),
+      ],
+   q(delo) => [
+      q(5093),
+      q(0),
+      ],
+   q(dem) => [
+      q(1991),
+      q(0),
+      ],
+   q(dema) => [
+      q(2091),
+      q(0),
+      ],
+   q(demisa) => [
+      q(1989),
+      q(0),
+      ],
+   q(demta) => [
+      q(2092),
+      q(0),
+      ],
+   q(dendi (benin)) => [
+      q(1978),
+      q(0),
+      ],
+   q(dendi (central african republic)) => [
+      q(1993),
+      q(0),
+      ],
+   q(dene suline) => [
+      q(0084),
+      q(1),
+      ],
+   q(dengese) => [
+      q(1997),
+      q(0),
+      ],
+   q(dengka) => [
+      q(2099),
+      q(0),
+      ],
+   q(deni) => [
+      q(2106),
+      q(0),
+      ],
+   q(deno) => [
+      q(1951),
+      q(0),
+      ],
+   q(denya) => [
+      q(0810),
+      q(0),
+      ],
+   q(deori) => [
+      q(1994),
+      q(0),
+      ],
+   q(dera (indonesia)) => [
+      q(3203),
+      q(0),
+      ],
+   q(dera (nigeria)) => [
+      q(3477),
+      q(0),
+      ],
+   q(desano) => [
+      q(1995),
+      q(0),
+      ],
+   q(desiya) => [
+      q(2148),
+      q(0),
+      ],
+   q(dewoin) => [
+      q(1985),
+      q(0),
+      ],
+   q(dezfuli) => [
+      q(1986),
+      q(0),
+      ],
+   q(dghwede) => [
+      q(2004),
+      q(0),
+      ],
+   q(dhaiso) => [
+      q(2024),
+      q(0),
+      ],
+   q(dhalandji) => [
+      q(2019),
+      q(0),
+      ],
+   q(dhangu) => [
+      q(2017),
+      q(1),
+      ],
+   q(dhangu-djangu) => [
+      q(2017),
+      q(0),
+      ],
+   q(dhanki) => [
+      q(2021),
+      q(0),
+      ],
+   q(dhanwar (nepal)) => [
+      q(2027),
+      q(0),
+      ],
+   q(dhao) => [
+      q(4823),
+      q(0),
+      ],
+   q(dhargari) => [
+      q(2023),
+      q(0),
+      ],
+   q(dharuk) => [
+      q(7311),
+      q(0),
+      ],
+   q(dharumbal) => [
+      q(7333),
+      q(0),
+      ],
+   q(dhatki) => [
+      q(4343),
+      q(0),
+      ],
+   q(dhimal) => [
+      q(2018),
+      q(0),
+      ],
+   q(dhivehi) => [
+      q(0111),
+      q(1),
+      ],
+   q(dhodia) => [
+      q(2022),
+      q(0),
+      ],
+   q(dhofari arabic) => [
+      q(0608),
+      q(0),
+      ],
+   q(dholuo) => [
+      q(0261),
+      q(1),
+      ],
+   q(dhudhuroa) => [
+      q(1980),
+      q(0),
+      ],
+   q(dhundari) => [
+      q(2016),
+      q(0),
+      ],
+   q(dhungaloo) => [
+      q(2028),
+      q(0),
+      ],
+   q(dhurga) => [
+      q(2025),
+      q(0),
+      ],
+   q(dhuwal) => [
+      q(2191),
+      q(0),
+      ],
+   q(dhuwaya) => [
+      q(2193),
+      q(0),
+      ],
+   q(dia) => [
+      q(2029),
+      q(0),
+      ],
+   q(dibabawon manobo) => [
+      q(4123),
+      q(0),
+      ],
+   q(dibiyaso) => [
+      q(1969),
+      q(0),
+      ],
+   q(dibo) => [
+      q(2041),
+      q(0),
+      ],
+   q(dibole) => [
+      q(1538),
+      q(0),
+      ],
+   q(dicamay agta) => [
+      q(2185),
+      q(0),
+      ],
+   q(didinga) => [
+      q(2032),
+      q(0),
+      ],
+   q(dido) => [
+      q(1979),
+      q(0),
+      ],
+   q(diebroud) => [
+      q(6384),
+      q(1),
+      ],
+   q(dieri) => [
+      q(2033),
+      q(0),
+      ],
+   q(digaro-mishmi) => [
+      q(4286),
+      q(0),
+      ],
+   q(digo) => [
+      q(2034),
+      q(0),
+      ],
+   q(dii) => [
+      q(2179),
+      q(0),
+      ],
+   q(dijim-bwilim) => [
+      q(1708),
+      q(0),
+      ],
+   q(dilling) => [
+      q(2039),
+      q(0),
+      ],
+   q(dima) => [
+      q(3115),
+      q(0),
+      ],
+   q(dimasa) => [
+      q(2045),
+      q(0),
+      ],
+   q(dimbong) => [
+      q(2036),
+      q(0),
+      ],
+   q(dime) => [
+      q(2040),
+      q(0),
+      ],
+   q(dimili) => [
+      q(0487),
+      q(1),
+      ],
+   q(dimli) => [
+      q(0487),
+      q(2),
+      ],
+   q(dimli (individual language)) => [
+      q(2043),
+      q(0),
+      ],
+   q(dimli (macrolanguage)) => [
+      q(0487),
+      q(6),
+      ],
+   q(dineor) => [
+      q(4521),
+      q(1),
+      ],
+   q(ding) => [
+      q(2051),
+      q(0),
+      ],
+   q(dinka) => [
+      q(0110),
+      q(0),
+      ],
+   q(dirari) => [
+      q(2046),
+      q(0),
+      ],
+   q(dirasha) => [
+      q(2461),
+      q(0),
+      ],
+   q(diri) => [
+      q(2188),
+      q(0),
+      ],
+   q(diriku) => [
+      q(2047),
+      q(0),
+      ],
+   q(dirim) => [
+      q(2044),
+      q(0),
+      ],
+   q(disa) => [
+      q(2145),
+      q(0),
+      ],
+   q(ditammari) => [
+      q(6393),
+      q(0),
+      ],
+   q(ditidaht) => [
+      q(2152),
+      q(0),
+      ],
+   q(diuwe) => [
+      q(2050),
+      q(0),
+      ],
+   q(diuxi-tilantongo mixtec) => [
+      q(7495),
+      q(0),
+      ],
+   q(divehi) => [
+      q(0111),
+      q(0),
+      ],
+   q(dixon reef) => [
+      q(2049),
+      q(0),
+      ],
+   q(dizin) => [
+      q(4191),
+      q(0),
+      ],
+   q(djabwurrung) => [
+      q(6534),
+      q(0),
+      ],
+   q(djadjawurrung) => [
+      q(2052),
+      q(0),
+      ],
+   q(djambarrpuyngu) => [
+      q(2064),
+      q(0),
+      ],
+   q(djamindjung) => [
+      q(2055),
+      q(0),
+      ],
+   q(djangu) => [
+      q(2017),
+      q(2),
+      ],
+   q(djangun) => [
+      q(2057),
+      q(0),
+      ],
+   q(djauan) => [
+      q(2062),
+      q(0),
+      ],
+   q(djawi) => [
+      q(2066),
+      q(0),
+      ],
+   q(djeebbana) => [
+      q(2059),
+      q(0),
+      ],
+   q(djimini senoufo) => [
+      q(2198),
+      q(0),
+      ],
+   q(djinang) => [
+      q(2058),
+      q(0),
+      ],
+   q(djinba) => [
+      q(2053),
+      q(0),
+      ],
+   q(djingili) => [
+      q(3094),
+      q(0),
+      ],
+   q(djiwarli) => [
+      q(2204),
+      q(0),
+      ],
+   q(dobel) => [
+      q(3675),
+      q(0),
+      ],
+   q(dobu) => [
+      q(2108),
+      q(0),
+      ],
+   q(doe) => [
+      q(2110),
+      q(0),
+      ],
+   q(doga) => [
+      q(2003),
+      q(0),
+      ],
+   q(doghoro) => [
+      q(2014),
+      q(0),
+      ],
+   q(dogose) => [
+      q(2120),
+      q(0),
+      ],
+   q(dogoso) => [
+      q(2010),
+      q(0),
+      ],
+   q(dogri) => [
+      q(0112),
+      q(0),
+      ],
+   q(dogri (individual language)) => [
+      q(2009),
+      q(0),
+      ],
+   q(dogri (macrolanguage)) => [
+      q(0112),
+      q(1),
+      ],
+   q(dogrib) => [
+      q(0109),
+      q(0),
+      ],
+   q(dogul dom dogon) => [
+      q(1955),
+      q(0),
+      ],
+   q(doka) => [
+      q(1956),
+      q(0),
+      ],
+   q(doko-uyanga) => [
+      q(6952),
+      q(0),
+      ],
+   q(dolgan) => [
+      q(2072),
+      q(0),
+      ],
+   q(dolpo) => [
+      q(2131),
+      q(0),
+      ],
+   q(dom) => [
+      q(2107),
+      q(0),
+      ],
+   q(domaaki) => [
+      q(2082),
+      q(0),
+      ],
+   q(domari) => [
+      q(5812),
+      q(0),
+      ],
+   q(dombe) => [
+      q(2122),
+      q(0),
+      ],
+   q(dominican sign language) => [
+      q(2118),
+      q(0),
+      ],
+   q(dompo) => [
+      q(2125),
+      q(0),
+      ],
+   q(domu) => [
+      q(2111),
+      q(0),
+      ],
+   q(domung) => [
+      q(1996),
+      q(0),
+      ],
+   q(dondo) => [
+      q(2113),
+      q(0),
+      ],
+   q(dong) => [
+      q(2112),
+      q(0),
+      ],
+   q(dongo) => [
+      q(2116),
+      q(0),
+      ],
+   q(dongolawi) => [
+      q(2007),
+      q(1),
+      ],
+   q(dongotono) => [
+      q(1973),
+      q(0),
+      ],
+   q(dongshanba lalo) => [
+      q(7636),
+      q(0),
+      ],
+   q(dongxiang) => [
+      q(5919),
+      q(0),
+      ],
+   q(donno so dogon) => [
+      q(1981),
+      q(0),
+      ],
+   q(doondo) => [
+      q(1974),
+      q(0),
+      ],
+   q(dori'o) => [
+      q(2119),
+      q(0),
+      ],
+   q(dorig) => [
+      q(7248),
+      q(1),
+      ],
+   q(doromu-koki) => [
+      q(3546),
+      q(0),
+      ],
+   q(dororo) => [
+      q(2138),
+      q(0),
+      ],
+   q(dorze) => [
+      q(2126),
+      q(0),
+      ],
+   q(doso) => [
+      q(2114),
+      q(0),
+      ],
+   q(dotyali) => [
+      q(2164),
+      q(0),
+      ],
+   q(doutai) => [
+      q(6434),
+      q(0),
+      ],
+   q(doyayo) => [
+      q(2123),
+      q(0),
+      ],
+   q(dravidian languages) => [
+      q(0113),
+      q(0),
+      ],
+   q(drehu) => [
+      q(2026),
+      q(1),
+      ],
+   q(drents) => [
+      q(2140),
+      q(0),
+      ],
+   q(drubea) => [
+      q(2169),
+      q(1),
+      ],
+   q(drung) => [
+      q(2181),
+      q(0),
+      ],
+   q(duala) => [
+      q(0115),
+      q(0),
+      ],
+   q(duano) => [
+      q(2177),
+      q(0),
+      ],
+   q(duau) => [
+      q(2187),
+      q(0),
+      ],
+   q(dubli) => [
+      q(2165),
+      q(0),
+      ],
+   q(dubu) => [
+      q(2088),
+      q(0),
+      ],
+   q(dugun) => [
+      q(4794),
+      q(0),
+      ],
+   q(duguri) => [
+      q(1959),
+      q(0),
+      ],
+   q(dugwor) => [
+      q(2080),
+      q(0),
+      ],
+   q(duhwa) => [
+      q(3207),
+      q(0),
+      ],
+   q(duke) => [
+      q(4919),
+      q(0),
+      ],
+   q(dulbu) => [
+      q(1961),
+      q(0),
+      ],
+   q(duli-gey) => [
+      q(2186),
+      q(0),
+      ],
+   q(duma) => [
+      q(2076),
+      q(0),
+      ],
+   q(dumbea) => [
+      q(2169),
+      q(0),
+      ],
+   q(dumi) => [
+      q(2180),
+      q(0),
+      ],
+   q(dumpas) => [
+      q(2089),
+      q(0),
+      ],
+   q(dumun) => [
+      q(2172),
+      q(0),
+      ],
+   q(duna) => [
+      q(2166),
+      q(0),
+      ],
+   q(dungan) => [
+      q(2096),
+      q(0),
+      ],
+   q(dungmali) => [
+      q(5727),
+      q(0),
+      ],
+   q(dungra bhil) => [
+      q(2171),
+      q(0),
+      ],
+   q(dungu) => [
+      q(1967),
+      q(0),
+      ],
+   q(dupaninan agta) => [
+      q(2176),
+      q(0),
+      ],
+   q(dura) => [
+      q(2137),
+      q(0),
+      ],
+   q(duri) => [
+      q(4607),
+      q(0),
+      ],
+   q(duriankere) => [
+      q(1960),
+      q(0),
+      ],
+   q(duruma) => [
+      q(2170),
+      q(0),
+      ],
+   q(duruwa) => [
+      q(5385),
+      q(0),
+      ],
+   q(dusner) => [
+      q(2147),
+      q(0),
+      ],
+   q(dusun deyah) => [
+      q(2175),
+      q(0),
+      ],
+   q(dusun malang) => [
+      q(2178),
+      q(0),
+      ],
+   q(dusun witu) => [
+      q(2183),
+      q(0),
+      ],
+   q(dutch) => [
+      q(0117),
+      q(0),
+      ],
+   q(dutch sign language) => [
+      q(2143),
+      q(0),
+      ],
+   q(dutch, middle (ca.1050-1350)) => [
+      q(0116),
+      q(0),
+      ],
+   q(dutton world speedwords) => [
+      q(2190),
+      q(0),
+      ],
+   q(duungooma) => [
+      q(2184),
+      q(0),
+      ],
+   q(duupa) => [
+      q(1935),
+      q(0),
+      ],
+   q(duvle) => [
+      q(2182),
+      q(0),
+      ],
+   q(duwai) => [
+      q(1962),
+      q(0),
+      ],
+   q(duwet) => [
+      q(2665),
+      q(0),
+      ],
+   q(duya) => [
+      q(3838),
+      q(0),
+      ],
+   q(dwang) => [
+      q(5000),
+      q(0),
+      ],
+   q(dyaabugay) => [
+      q(2202),
+      q(0),
+      ],
+   q(dyaberdyaber) => [
+      q(2195),
+      q(0),
+      ],
+   q(dyan) => [
+      q(2194),
+      q(0),
+      ],
+   q(dyangadi) => [
+      q(2200),
+      q(0),
+      ],
+   q(dyirbal) => [
+      q(1958),
+      q(0),
+      ],
+   q(dyugun) => [
+      q(2196),
+      q(0),
+      ],
+   q(dyula) => [
+      q(0118),
+      q(0),
+      ],
+   q(dza) => [
+      q(3079),
+      q(0),
+      ],
+   q(dzalakha) => [
+      q(2206),
+      q(0),
+      ],
+   q(dzando) => [
+      q(2207),
+      q(0),
+      ],
+   q(dzao min) => [
+      q(1385),
+      q(0),
+      ],
+   q(dzodinka) => [
+      q(0606),
+      q(0),
+      ],
+   q(dzongkha) => [
+      q(0119),
+      q(0),
+      ],
+   q(dzuungoo) => [
+      q(2100),
+      q(0),
+      ],
+   q(e) => [
+      q(2217),
+      q(0),
+      ],
+   q(e'ma buyang) => [
+      q(7788),
+      q(0),
+      ],
+   q(e'napa woromaipu) => [
+      q(5365),
+      q(0),
+      ],
+   q(early tripuri) => [
+      q(7507),
+      q(0),
+      ],
+   q(east ambae) => [
+      q(5248),
+      q(0),
+      ],
+   q(east berawan) => [
+      q(7815),
+      q(0),
+      ],
+   q(east damar) => [
+      q(2086),
+      q(0),
+      ],
+   q(east futuna) => [
+      q(2380),
+      q(0),
+      ],
+   q(east germanic languages) => [
+      q(0506),
+      q(0),
+      ],
+   q(east kewa) => [
+      q(3393),
+      q(0),
+      ],
+   q(east limba) => [
+      q(3967),
+      q(0),
+      ],
+   q(east makian) => [
+      q(4359),
+      q(0),
+      ],
+   q(east masela) => [
+      q(7007),
+      q(0),
+      ],
+   q(east nyala) => [
+      q(4941),
+      q(0),
+      ],
+   q(east slavic languages) => [
+      q(0535),
+      q(0),
+      ],
+   q(east tarangan) => [
+      q(6676),
+      q(0),
+      ],
+   q(east yugur) => [
+      q(7766),
+      q(0),
+      ],
+   q(eastern abnaki) => [
+      q(0553),
+      q(0),
+      ],
+   q(eastern acipa) => [
+      q(0594),
+      q(0),
+      ],
+   q(eastern apurimac quechua) => [
+      q(5693),
+      q(0),
+      ],
+   q(eastern arrernte) => [
+      q(0634),
+      q(0),
+      ],
+   q(eastern balochi) => [
+      q(1175),
+      q(0),
+      ],
+   q(eastern bolivian guarani) => [
+      q(2648),
+      q(0),
+      ],
+   q(eastern bontok) => [
+      q(2210),
+      q(0),
+      ],
+   q(eastern bru) => [
+      q(1441),
+      q(0),
+      ],
+   q(eastern canadian inuktitut) => [
+      q(2936),
+      q(0),
+      ],
+   q(eastern cham) => [
+      q(1745),
+      q(0),
+      ],
+   q(eastern durango nahuatl) => [
+      q(1015),
+      q(0),
+      ],
+   q(eastern egyptian bedawi arabic) => [
+      q(0960),
+      q(0),
+      ],
+   q(eastern frisian) => [
+      q(0142),
+      q(0),
+      ],
+   q(eastern gorkha tamang) => [
+      q(6468),
+      q(0),
+      ],
+   q(eastern highland chatino) => [
+      q(1780),
+      q(0),
+      ],
+   q(eastern highland otomi) => [
+      q(5318),
+      q(0),
+      ],
+   q(eastern hongshuihe zhuang) => [
+      q(7823),
+      q(0),
+      ],
+   q(eastern huasteca nahuatl) => [
+      q(4857),
+      q(0),
+      ],
+   q(eastern huishui hmong) => [
+      q(2778),
+      q(0),
+      ],
+   q(eastern huishui miao) => [
+      q(2778),
+      q(1),
+      ],
+   q(eastern karaboro) => [
+      q(7462),
+      q(0),
+      ],
+   q(eastern karnic) => [
+      q(2228),
+      q(0),
+      ],
+   q(eastern katu) => [
+      q(3635),
+      q(0),
+      ],
+   q(eastern kayah) => [
+      q(2238),
+      q(0),
+      ],
+   q(eastern keres) => [
+      q(3260),
+      q(0),
+      ],
+   q(eastern khumi chin) => [
+      q(1705),
+      q(0),
+      ],
+   q(eastern krahn) => [
+      q(3558),
+      q(0),
+      ],
+   q(eastern lalu) => [
+      q(7644),
+      q(0),
+      ],
+   q(eastern lawa) => [
+      q(4094),
+      q(0),
+      ],
+   q(eastern magar) => [
+      q(4257),
+      q(0),
+      ],
+   q(eastern malayo-polynesian languages) => [
+      q(0522),
+      q(0),
+      ],
+   q(eastern maninkakan) => [
+      q(2251),
+      q(0),
+      ],
+   q(eastern mari) => [
+      q(4283),
+      q(0),
+      ],
+   q(eastern maroon creole) => [
+      q(2060),
+      q(0),
+      ],
+   q(eastern meohang) => [
+      q(2249),
+      q(0),
+      ],
+   q(eastern mnong) => [
+      q(4413),
+      q(0),
+      ],
+   q(eastern muria) => [
+      q(2256),
+      q(0),
+      ],
+   q(eastern ngad'a) => [
+      q(4800),
+      q(0),
+      ],
+   q(eastern nisu) => [
+      q(5018),
+      q(0),
+      ],
+   q(eastern ojibwa) => [
+      q(5215),
+      q(0),
+      ],
+   q(eastern oromo) => [
+      q(2711),
+      q(0),
+      ],
+   q(eastern parbate kham) => [
+      q(3357),
+      q(0),
+      ],
+   q(eastern penan) => [
+      q(5418),
+      q(0),
+      ],
+   q(eastern pomo) => [
+      q(5401),
+      q(0),
+      ],
+   q(eastern qiandong miao) => [
+      q(2788),
+      q(0),
+      ],
+   q(eastern subanen) => [
+      q(5978),
+      q(0),
+      ],
+   q(eastern sudanic languages) => [
+      q(0525),
+      q(0),
+      ],
+   q(eastern tamang) => [
+      q(6354),
+      q(0),
+      ],
+   q(eastern tawbuid) => [
+      q(1336),
+      q(0),
+      ],
+   q(eastern xiangxi miao) => [
+      q(4586),
+      q(0),
+      ],
+   q(eastern xwla gbe) => [
+      q(2439),
+      q(0),
+      ],
+   q(eastern yiddish) => [
+      q(7602),
+      q(0),
+      ],
+   q(ebira) => [
+      q(2917),
+      q(0),
+      ],
+   q(eblan) => [
+      q(7315),
+      q(0),
+      ],
+   q(ebrie) => [
+      q(2212),
+      q(0),
+      ],
+   q(ebughu) => [
+      q(2209),
+      q(0),
+      ],
+   q(ecuadorian sign language) => [
+      q(2215),
+      q(0),
+      ],
+   q(ede cabe) => [
+      q(1664),
+      q(0),
+      ],
+   q(ede ica) => [
+      q(2895),
+      q(0),
+      ],
+   q(ede idaca) => [
+      q(2902),
+      q(0),
+      ],
+   q(ede ije) => [
+      q(2933),
+      q(0),
+      ],
+   q(edera awyu) => [
+      q(0985),
+      q(0),
+      ],
+   q(edo) => [
+      q(0055),
+      q(1),
+      ],
+   q(edolo) => [
+      q(2305),
+      q(0),
+      ],
+   q(edomite) => [
+      q(7312),
+      q(0),
+      ],
+   q(edopi) => [
+      q(1954),
+      q(0),
+      ],
+   q(edwas) => [
+      q(1347),
+      q(2),
+      ],
+   q(efai) => [
+      q(2218),
+      q(0),
+      ],
+   q(efe) => [
+      q(2219),
+      q(0),
+      ],
+   q(efik) => [
+      q(0120),
+      q(0),
+      ],
+   q(efutop) => [
+      q(5202),
+      q(0),
+      ],
+   q(ega) => [
+      q(2220),
+      q(0),
+      ],
+   q(eggon) => [
+      q(2222),
+      q(0),
+      ],
+   q(egypt sign language) => [
+      q(2292),
+      q(0),
+      ],
+   q(egyptian (ancient)) => [
+      q(0121),
+      q(0),
+      ],
+   q(egyptian arabic) => [
+      q(0885),
+      q(0),
+      ],
+   q(egyptian languages) => [
+      q(0502),
+      q(0),
+      ],
+   q(ehueun) => [
+      q(2223),
+      q(0),
+      ],
+   q(eipomek) => [
+      q(2224),
+      q(0),
+      ],
+   q(eitiep) => [
+      q(2225),
+      q(0),
+      ],
+   q(ejagham) => [
+      q(2308),
+      q(0),
+      ],
+   q(ejamat) => [
+      q(2227),
+      q(0),
+      ],
+   q(ekajuk) => [
+      q(0122),
+      q(0),
+      ],
+   q(ekari) => [
+      q(2230),
+      q(0),
+      ],
+   q(ekegusii) => [
+      q(2662),
+      q(1),
+      ],
+   q(eki) => [
+      q(2231),
+      q(0),
+      ],
+   q(ekit) => [
+      q(2229),
+      q(0),
+      ],
+   q(ekpeye) => [
+      q(2236),
+      q(0),
+      ],
+   q(el alto zapotec) => [
+      q(7914),
+      q(0),
+      ],
+   q(el hugeirat) => [
+      q(2240),
+      q(0),
+      ],
+   q(el molo) => [
+      q(2244),
+      q(0),
+      ],
+   q(el nayar cora) => [
+      q(1850),
+      q(0),
+      ],
+   q(elamite) => [
+      q(0123),
+      q(0),
+      ],
+   q(eleme) => [
+      q(2243),
+      q(0),
+      ],
+   q(elepi) => [
+      q(2239),
+      q(0),
+      ],
+   q(elfdalian) => [
+      q(5334),
+      q(0),
+      ],
+   q(elip) => [
+      q(2234),
+      q(0),
+      ],
+   q(elkei) => [
+      q(2242),
+      q(0),
+      ],
+   q(elotepec zapotec) => [
+      q(7938),
+      q(0),
+      ],
+   q(eloyi) => [
+      q(0647),
+      q(0),
+      ],
+   q(elseng) => [
+      q(4504),
+      q(0),
+      ],
+   q(elu) => [
+      q(2245),
+      q(0),
+      ],
+   q(elymian) => [
+      q(7391),
+      q(0),
+      ],
+   q(emae) => [
+      q(4404),
+      q(0),
+      ],
+   q(emai-iuleha-ora) => [
+      q(2246),
+      q(0),
+      ],
+   q(eman) => [
+      q(2253),
+      q(0),
+      ],
+   q(embaloh) => [
+      q(2247),
+      q(0),
+      ],
+   q(embera-baudo) => [
+      q(1092),
+      q(0),
+      ],
+   q(embera-catio) => [
+      q(1892),
+      q(0),
+      ],
+   q(embera-chami) => [
+      q(1784),
+      q(0),
+      ],
+   q(embera-tado) => [
+      q(6419),
+      q(0),
+      ],
+   q(embu) => [
+      q(2213),
+      q(0),
+      ],
+   q(emem) => [
+      q(2270),
+      q(1),
+      ],
+   q(emerillon) => [
+      q(2248),
+      q(0),
+      ],
+   q(emilian) => [
+      q(2221),
+      q(0),
+      ],
+   q(emplawas) => [
+      q(2257),
+      q(0),
+      ],
+   q(emumu) => [
+      q(2270),
+      q(0),
+      ],
+   q(en) => [
+      q(2262),
+      q(0),
+      ],
+   q(enawene-nawe) => [
+      q(6902),
+      q(0),
+      ],
+   q(ende) => [
+      q(2263),
+      q(0),
+      ],
+   q(enga) => [
+      q(2269),
+      q(0),
+      ],
+   q(engdewu) => [
+      q(4844),
+      q(0),
+      ],
+   q(engenni) => [
+      q(2267),
+      q(0),
+      ],
+   q(enggano) => [
+      q(2268),
+      q(0),
+      ],
+   q(english) => [
+      q(0124),
+      q(0),
+      ],
+   q(english, middle (1100-1500)) => [
+      q(0125),
+      q(0),
+      ],
+   q(english, old (ca.450-1100)) => [
+      q(0018),
+      q(0),
+      ],
+   q(english-based creoles and pidgins) => [
+      q(0094),
+      q(2),
+      ],
+   q(enlhet) => [
+      q(2266),
+      q(0),
+      ],
+   q(enrekang) => [
+      q(5628),
+      q(0),
+      ],
+   q(enu) => [
+      q(2271),
+      q(0),
+      ],
+   q(enwan (akwa ibom state)) => [
+      q(2273),
+      q(0),
+      ],
+   q(enwan (edu state)) => [
+      q(2272),
+      q(0),
+      ],
+   q(enxet) => [
+      q(2274),
+      q(0),
+      ],
+   q(enya) => [
+      q(2486),
+      q(0),
+      ],
+   q(epena) => [
+      q(6046),
+      q(0),
+      ],
+   q(epi-olmec) => [
+      q(7320),
+      q(0),
+      ],
+   q(epie) => [
+      q(2276),
+      q(0),
+      ],
+   q(epigraphic mayan) => [
+      q(2259),
+      q(0),
+      ],
+   q(eravallan) => [
+      q(2277),
+      q(0),
+      ],
+   q(erave) => [
+      q(3398),
+      q(0),
+      ],
+   q(ere) => [
+      q(6788),
+      q(0),
+      ],
+   q(eritai) => [
+      q(2285),
+      q(0),
+      ],
+   q(erokwanas) => [
+      q(2286),
+      q(0),
+      ],
+   q(erre) => [
+      q(2283),
+      q(0),
+      ],
+   q(erromintxela) => [
+      q(2258),
+      q(0),
+      ],
+   q(ersu) => [
+      q(2284),
+      q(0),
+      ],
+   q(eruwa) => [
+      q(2279),
+      q(0),
+      ],
+   q(erzya) => [
+      q(0298),
+      q(0),
+      ],
+   q(esan) => [
+      q(2999),
+      q(0),
+      ],
+   q(ese) => [
+      q(4161),
+      q(0),
+      ],
+   q(ese ejja) => [
+      q(2287),
+      q(0),
+      ],
+   q(eshtehardi) => [
+      q(2289),
+      q(0),
+      ],
+   q(esimbi) => [
+      q(0670),
+      q(0),
+      ],
+   q(eskayan) => [
+      q(2299),
+      q(0),
+      ],
+   q(eskimo-aleut languages) => [
+      q(0503),
+      q(0),
+      ],
+   q(esperanto) => [
+      q(0126),
+      q(0),
+      ],
+   q(esselen) => [
+      q(2296),
+      q(0),
+      ],
+   q(estado de mexico otomi) => [
+      q(5322),
+      q(0),
+      ],
+   q(estonian) => [
+      q(0127),
+      q(0),
+      ],
+   q(estonian sign language) => [
+      q(2295),
+      q(0),
+      ],
+   q(esuma) => [
+      q(2293),
+      q(0),
+      ],
+   q(etchemin) => [
+      q(2301),
+      q(0),
+      ],
+   q(etebi) => [
+      q(2300),
+      q(0),
+      ],
+   q(eten) => [
+      q(2309),
+      q(0),
+      ],
+   q(eteocretan) => [
+      q(2214),
+      q(0),
+      ],
+   q(eteocypriot) => [
+      q(2216),
+      q(0),
+      ],
+   q(ethiopian sign language) => [
+      q(2302),
+      q(0),
+      ],
+   q(etkywan) => [
+      q(2896),
+      q(0),
+      ],
+   q(eton (cameroon)) => [
+      q(2304),
+      q(0),
+      ],
+   q(eton (vanuatu)) => [
+      q(2303),
+      q(0),
+      ],
+   q(etruscan) => [
+      q(2307),
+      q(0),
+      ],
+   q(etulo) => [
+      q(6942),
+      q(0),
+      ],
+   q(evant) => [
+      q(1637),
+      q(0),
+      ],
+   q(even) => [
+      q(2311),
+      q(0),
+      ],
+   q(evenki) => [
+      q(2313),
+      q(0),
+      ],
+   q(eviya) => [
+      q(2483),
+      q(0),
+      ],
+   q(ewage-notu) => [
+      q(5020),
+      q(0),
+      ],
+   q(ewe) => [
+      q(0128),
+      q(0),
+      ],
+   q(ewondo) => [
+      q(0129),
+      q(0),
+      ],
+   q(extremaduran) => [
+      q(2314),
+      q(0),
+      ],
+   q(eyak) => [
+      q(2315),
+      q(0),
+      ],
+   q(ezaa) => [
+      q(2317),
+      q(0),
+      ],
+   q(fa d'ambu) => [
+      q(2320),
+      q(0),
+      ],
+   q(fagani) => [
+      q(2322),
+      q(0),
+      ],
+   q(fagauvea) => [
+      q(6948),
+      q(1),
+      ],
+   q(faire atta) => [
+      q(1021),
+      q(0),
+      ],
+   q(faita) => [
+      q(2326),
+      q(0),
+      ],
+   q(faiwol) => [
+      q(2325),
+      q(0),
+      ],
+   q(fala) => [
+      q(2333),
+      q(0),
+      ],
+   q(falam chin) => [
+      q(1711),
+      q(0),
+      ],
+   q(fali) => [
+      q(2352),
+      q(0),
+      ],
+   q(faliscan) => [
+      q(7325),
+      q(0),
+      ],
+   q(fam) => [
+      q(2329),
+      q(0),
+      ],
+   q(fanagalo) => [
+      q(2360),
+      q(0),
+      ],
+   q(fanamaket) => [
+      q(1245),
+      q(0),
+      ],
+   q(fanbak) => [
+      q(2359),
+      q(0),
+      ],
+   q(fang) => [
+      q(0130),
+      q(0),
+      ],
+   q(fang (cameroon)) => [
+      q(2327),
+      q(0),
+      ],
+   q(fang (equatorial guinea)) => [
+      q(0130),
+      q(1),
+      ],
+   q(fania) => [
+      q(2361),
+      q(0),
+      ],
+   q(fanti) => [
+      q(0132),
+      q(0),
+      ],
+   q(far western muria) => [
+      q(2358),
+      q(0),
+      ],
+   q(farefare) => [
+      q(2656),
+      q(0),
+      ],
+   q(faroese) => [
+      q(0131),
+      q(0),
+      ],
+   q(fas) => [
+      q(2368),
+      q(0),
+      ],
+   q(fasu) => [
+      q(2319),
+      q(0),
+      ],
+   q(fataleka) => [
+      q(2331),
+      q(0),
+      ],
+   q(fataluku) => [
+      q(1975),
+      q(0),
+      ],
+   q(fayu) => [
+      q(2332),
+      q(0),
+      ],
+   q(fe'fe') => [
+      q(2357),
+      q(0),
+      ],
+   q(fedan) => [
+      q(5396),
+      q(1),
+      ],
+   q(fembe) => [
+      q(0664),
+      q(0),
+      ],
+   q(fernando po creole english) => [
+      q(2367),
+      q(0),
+      ],
+   q(feroge) => [
+      q(2338),
+      q(0),
+      ],
+   q(fiji hindi) => [
+      q(2753),
+      q(0),
+      ],
+   q(fijian) => [
+      q(0133),
+      q(0),
+      ],
+   q(filipino) => [
+      q(0134),
+      q(0),
+      ],
+   q(filomena mata-coahuitlan totonac) => [
+      q(6565),
+      q(0),
+      ],
+   q(finland-swedish sign language) => [
+      q(2377),
+      q(0),
+      ],
+   q(finlandssvenskt teckensprak) => [
+      q(2377),
+      q(1),
+      ],
+   q(finnish) => [
+      q(0135),
+      q(0),
+      ],
+   q(finnish sign language) => [
+      q(2375),
+      q(0),
+      ],
+   q(finno-ugrian languages) => [
+      q(0136),
+      q(0),
+      ],
+   q(finongan) => [
+      q(2323),
+      q(0),
+      ],
+   q(fipa) => [
+      q(2344),
+      q(0),
+      ],
+   q(firan) => [
+      q(2345),
+      q(0),
+      ],
+   q(fiwaga) => [
+      q(2347),
+      q(0),
+      ],
+   q(flaaitaal) => [
+      q(2356),
+      q(0),
+      ],
+   q(flemish) => [
+      q(0117),
+      q(1),
+      ],
+   q(flemish sign language) => [
+      q(6981),
+      q(1),
+      ],
+   q(flinders island) => [
+      q(2354),
+      q(0),
+      ],
+   q(foau) => [
+      q(2351),
+      q(0),
+      ],
+   q(foi) => [
+      q(2363),
+      q(0),
+      ],
+   q(foia foia) => [
+      q(2339),
+      q(0),
+      ],
+   q(folopa) => [
+      q(5573),
+      q(0),
+      ],
+   q(foma) => [
+      q(2364),
+      q(0),
+      ],
+   q(fon) => [
+      q(0137),
+      q(0),
+      ],
+   q(fongoro) => [
+      q(2341),
+      q(0),
+      ],
+   q(foodo) => [
+      q(2362),
+      q(0),
+      ],
+   q(forak) => [
+      q(2373),
+      q(0),
+      ],
+   q(fordata) => [
+      q(2370),
+      q(0),
+      ],
+   q(fore) => [
+      q(2365),
+      q(0),
+      ],
+   q(forest enets) => [
+      q(2264),
+      q(0),
+      ],
+   q(formosan languages) => [
+      q(0505),
+      q(0),
+      ],
+   q(fortsenal) => [
+      q(2374),
+      q(0),
+      ],
+   q(francisco leon zoque) => [
+      q(7898),
+      q(0),
+      ],
+   q(francoprovencal) => [
+      q(2372),
+      q(1),
+      ],
+   q(frankish) => [
+      q(2371),
+      q(0),
+      ],
+   q(french) => [
+      q(0138),
+      q(0),
+      ],
+   q(french belgian sign language) => [
+      q(5977),
+      q(1),
+      ],
+   q(french sign language) => [
+      q(2376),
+      q(0),
+      ],
+   q(french, middle (ca.1400-1600)) => [
+      q(0139),
+      q(0),
+      ],
+   q(french, old (842-ca.1400)) => [
+      q(0140),
+      q(0),
+      ],
+   q(french-based creoles and pidgins) => [
+      q(0095),
+      q(2),
+      ],
+   q(friulian) => [
+      q(0145),
+      q(0),
+      ],
+   q(fulah) => [
+      q(0144),
+      q(0),
+      ],
+   q(fuliiru) => [
+      q(2355),
+      q(0),
+      ],
+   q(fulnio) => [
+      q(2387),
+      q(0),
+      ],
+   q(fum) => [
+      q(2386),
+      q(0),
+      ],
+   q(fungwa) => [
+      q(6875),
+      q(0),
+      ],
+   q(fur) => [
+      q(2393),
+      q(0),
+      ],
+   q(furu) => [
+      q(2390),
+      q(0),
+      ],
+   q(futuna-aniwa) => [
+      q(2389),
+      q(0),
+      ],
+   q(fuyug) => [
+      q(2392),
+      q(0),
+      ],
+   q(fwai) => [
+      q(2394),
+      q(0),
+      ],
+   q(fwe) => [
+      q(2395),
+      q(0),
+      ],
+   q(fyam) => [
+      q(5663),
+      q(0),
+      ],
+   q(fyer) => [
+      q(2343),
+      q(0),
+      ],
+   q(ga) => [
+      q(0146),
+      q(0),
+      ],
+   q(ga'anda) => [
+      q(2607),
+      q(0),
+      ],
+   q(ga'dang) => [
+      q(2456),
+      q(0),
+      ],
+   q(gaa) => [
+      q(6720),
+      q(0),
+      ],
+   q(gaam) => [
+      q(6377),
+      q(0),
+      ],
+   q(gabi-gabi) => [
+      q(2438),
+      q(0),
+      ],
+   q(gabogbo) => [
+      q(2514),
+      q(0),
+      ],
+   q(gabri) => [
+      q(2396),
+      q(0),
+      ],
+   q(gabrielino-fernandeno) => [
+      q(7329),
+      q(0),
+      ],
+   q(gadang) => [
+      q(2460),
+      q(0),
+      ],
+   q(gaddang) => [
+      q(2398),
+      q(0),
+      ],
+   q(gaddi) => [
+      q(2427),
+      q(0),
+      ],
+   q(gade) => [
+      q(2474),
+      q(0),
+      ],
+   q(gade lohar) => [
+      q(2450),
+      q(0),
+      ],
+   q(gadjerawang) => [
+      q(2457),
+      q(0),
+      ],
+   q(gadsup) => [
+      q(2404),
+      q(0),
+      ],
+   q(gaelic) => [
+      q(0154),
+      q(0),
+      ],
+   q(gafat) => [
+      q(2488),
+      q(0),
+      ],
+   q(gagadu) => [
+      q(2436),
+      q(0),
+      ],
+   q(gagauz) => [
+      q(2401),
+      q(0),
+      ],
+   q(gagnoa bete) => [
+      q(1476),
+      q(0),
+      ],
+   q(gagu) => [
+      q(2497),
+      q(0),
+      ],
+   q(gahri) => [
+      q(1157),
+      q(0),
+      ],
+   q(gaikundi) => [
+      q(2422),
+      q(0),
+      ],
+   q(gail) => [
+      q(2512),
+      q(0),
+      ],
+   q(gaina) => [
+      q(2447),
+      q(0),
+      ],
+   q(gal) => [
+      q(2410),
+      q(0),
+      ],
+   q(galambu) => [
+      q(2548),
+      q(0),
+      ],
+   q(galatian) => [
+      q(7326),
+      q(0),
+      ],
+   q(galela) => [
+      q(2425),
+      q(0),
+      ],
+   q(galeya) => [
+      q(2412),
+      q(0),
+      ],
+   q(galibi carib) => [
+      q(0070),
+      q(0),
+      ],
+   q(galice) => [
+      q(2444),
+      q(0),
+      ],
+   q(galician) => [
+      q(0156),
+      q(0),
+      ],
+   q(galindan) => [
+      q(7332),
+      q(0),
+      ],
+   q(gallurese sardinian) => [
+      q(5945),
+      q(0),
+      ],
+   q(galo) => [
+      q(0613),
+      q(0),
+      ],
+   q(galolen) => [
+      q(2406),
+      q(0),
+      ],
+   q(gamale kham) => [
+      q(3314),
+      q(0),
+      ],
+   q(gambera) => [
+      q(2553),
+      q(0),
+      ],
+   q(gambian wolof) => [
+      q(7187),
+      q(0),
+      ],
+   q(gamilaraay) => [
+      q(3429),
+      q(0),
+      ],
+   q(gamit) => [
+      q(2428),
+      q(0),
+      ],
+   q(gamkonora) => [
+      q(2405),
+      q(0),
+      ],
+   q(gamo) => [
+      q(2561),
+      q(0),
+      ],
+   q(gamo-ningi) => [
+      q(1474),
+      q(0),
+      ],
+   q(gan chinese) => [
+      q(2408),
+      q(0),
+      ],
+   q(gana) => [
+      q(2573),
+      q(1),
+      ],
+   q(ganang) => [
+      q(2569),
+      q(0),
+      ],
+   q(ganda) => [
+      q(0258),
+      q(0),
+      ],
+   q(gandhari) => [
+      q(5423),
+      q(0),
+      ],
+   q(gane) => [
+      q(2706),
+      q(0),
+      ],
+   q(ganggalida) => [
+      q(2443),
+      q(0),
+      ],
+   q(ganglau) => [
+      q(2495),
+      q(0),
+      ],
+   q(gangte) => [
+      q(2566),
+      q(0),
+      ],
+   q(gangulu) => [
+      q(2574),
+      q(0),
+      ],
+   q(gants) => [
+      q(2409),
+      q(0),
+      ],
+   q(ganza) => [
+      q(2704),
+      q(0),
+      ],
+   q(ganzi) => [
+      q(2582),
+      q(0),
+      ],
+   q(gao) => [
+      q(2489),
+      q(0),
+      ],
+   q(gapapaiwa) => [
+      q(5654),
+      q(0),
+      ],
+   q(garhwali) => [
+      q(2429),
+      q(0),
+      ],
+   q(garifuna) => [
+      q(1639),
+      q(0),
+      ],
+   q(garig-ilgar) => [
+      q(2951),
+      q(0),
+      ],
+   q(garingbal) => [
+      q(7331),
+      q(0),
+      ],
+   q(garlali) => [
+      q(2547),
+      q(0),
+      ],
+   q(garo) => [
+      q(2623),
+      q(0),
+      ],
+   q(garre) => [
+      q(2485),
+      q(0),
+      ],
+   q(garrwa) => [
+      q(7205),
+      q(0),
+      ],
+   q(garus) => [
+      q(2693),
+      q(0),
+      ],
+   q(garza) => [
+      q(7334),
+      q(0),
+      ],
+   q(gata') => [
+      q(2411),
+      q(0),
+      ],
+   q(gavak) => [
+      q(2078),
+      q(0),
+      ],
+   q(gavar) => [
+      q(2599),
+      q(0),
+      ],
+   q(gaviao do jiparana) => [
+      q(2671),
+      q(0),
+      ],
+   q(gawar-bati) => [
+      q(2687),
+      q(0),
+      ],
+   q(gawwada) => [
+      q(2679),
+      q(0),
+      ],
+   q(gayil) => [
+      q(2699),
+      q(0),
+      ],
+   q(gayo) => [
+      q(0147),
+      q(0),
+      ],
+   q(gazi) => [
+      q(2705),
+      q(0),
+      ],
+   q(gbagyi) => [
+      q(2434),
+      q(0),
+      ],
+   q(gban) => [
+      q(2497),
+      q(1),
+      ],
+   q(gbanu) => [
+      q(2437),
+      q(0),
+      ],
+   q(gbanziri) => [
+      q(2423),
+      q(0),
+      ],
+   q(gbari) => [
+      q(2440),
+      q(0),
+      ],
+   q(gbaya) => [
+      q(0148),
+      q(0),
+      ],
+   q(gbaya (central african republic)) => [
+      q(0148),
+      q(1),
+      ],
+   q(gbaya (sudan)) => [
+      q(3582),
+      q(0),
+      ],
+   q(gbaya-bossangoa) => [
+      q(2432),
+      q(0),
+      ],
+   q(gbaya-bozoum) => [
+      q(2433),
+      q(0),
+      ],
+   q(gbaya-mbodomo) => [
+      q(2558),
+      q(0),
+      ],
+   q(gbayi) => [
+      q(2697),
+      q(0),
+      ],
+   q(gbesi gbe) => [
+      q(2435),
+      q(0),
+      ],
+   q(gbii) => [
+      q(2490),
+      q(0),
+      ],
+   q(gbin) => [
+      q(7327),
+      q(0),
+      ],
+   q(gbiri-niragu) => [
+      q(2615),
+      q(0),
+      ],
+   q(gboloo grebo) => [
+      q(2473),
+      q(0),
+      ],
+   q(ge) => [
+      q(2783),
+      q(0),
+      ],
+   q(geba karen) => [
+      q(3677),
+      q(0),
+      ],
+   q(gebe) => [
+      q(2477),
+      q(0),
+      ],
+   q(gedaged) => [
+      q(2453),
+      q(0),
+      ],
+   q(gedeo) => [
+      q(2139),
+      q(0),
+      ],
+   q(geez) => [
+      q(0152),
+      q(0),
+      ],
+   q(geji) => [
+      q(2529),
+      q(0),
+      ],
+   q(gejia) => [
+      q(2783),
+      q(1),
+      ],
+   q(geko karen) => [
+      q(2503),
+      q(0),
+      ],
+   q(gela) => [
+      q(4942),
+      q(0),
+      ],
+   q(geman deng) => [
+      q(4649),
+      q(1),
+      ],
+   q(geme) => [
+      q(2481),
+      q(0),
+      ],
+   q(gen) => [
+      q(2478),
+      q(0),
+      ],
+   q(gende) => [
+      q(2400),
+      q(0),
+      ],
+   q(gengle) => [
+      q(2475),
+      q(0),
+      ],
+   q(georgian) => [
+      q(0150),
+      q(0),
+      ],
+   q(gepo) => [
+      q(7622),
+      q(0),
+      ],
+   q(gera) => [
+      q(2484),
+      q(0),
+      ],
+   q(gergiko) => [
+      q(4448),
+      q(1),
+      ],
+   q(german) => [
+      q(0151),
+      q(0),
+      ],
+   q(german sign language) => [
+      q(2631),
+      q(0),
+      ],
+   q(german, low) => [
+      q(0307),
+      q(2),
+      ],
+   q(german, middle high (ca.1050-1500)) => [
+      q(0158),
+      q(0),
+      ],
+   q(german, old high (ca.750-1050)) => [
+      q(0159),
+      q(0),
+      ],
+   q(germanic languages) => [
+      q(0149),
+      q(0),
+      ],
+   q(geruma) => [
+      q(2471),
+      q(0),
+      ],
+   q(geser-gorom) => [
+      q(2482),
+      q(0),
+      ],
+   q(ghadames) => [
+      q(2499),
+      q(0),
+      ],
+   q(ghanaian pidgin english) => [
+      q(2605),
+      q(0),
+      ],
+   q(ghanaian sign language) => [
+      q(2630),
+      q(0),
+      ],
+   q(ghandruk sign language) => [
+      q(2467),
+      q(0),
+      ],
+   q(ghanongga) => [
+      q(2505),
+      q(0),
+      ],
+   q(ghari) => [
+      q(2616),
+      q(0),
+      ],
+   q(ghayavi) => [
+      q(1313),
+      q(0),
+      ],
+   q(gheg albanian) => [
+      q(0756),
+      q(0),
+      ],
+   q(ghera) => [
+      q(2507),
+      q(0),
+      ],
+   q(ghodoberi) => [
+      q(2464),
+      q(0),
+      ],
+   q(ghomala') => [
+      q(1048),
+      q(0),
+      ],
+   q(ghomara) => [
+      q(2506),
+      q(0),
+      ],
+   q(ghotuo) => [
+      q(0539),
+      q(0),
+      ],
+   q(ghulfan) => [
+      q(2504),
+      q(0),
+      ],
+   q(giangan) => [
+      q(1169),
+      q(0),
+      ],
+   q(gibanawa) => [
+      q(2511),
+      q(0),
+      ],
+   q(gichuka) => [
+      q(1902),
+      q(1),
+      ],
+   q(gidar) => [
+      q(2513),
+      q(0),
+      ],
+   q(giiwo) => [
+      q(3418),
+      q(0),
+      ],
+   q(gikuyu) => [
+      q(0225),
+      q(1),
+      ],
+   q(gikyode) => [
+      q(0587),
+      q(0),
+      ],
+   q(gilaki) => [
+      q(2546),
+      q(0),
+      ],
+   q(gilbertese) => [
+      q(0153),
+      q(0),
+      ],
+   q(gilima) => [
+      q(2526),
+      q(0),
+      ],
+   q(gilyak) => [
+      q(4893),
+      q(0),
+      ],
+   q(gimi (eastern highlands)) => [
+      q(2517),
+      q(0),
+      ],
+   q(gimi (west new britain)) => [
+      q(2519),
+      q(0),
+      ],
+   q(gimme) => [
+      q(3466),
+      q(0),
+      ],
+   q(gimnime) => [
+      q(2559),
+      q(0),
+      ],
+   q(ginuman) => [
+      q(2575),
+      q(0),
+      ],
+   q(ginyanga) => [
+      q(0998),
+      q(0),
+      ],
+   q(girawa) => [
+      q(1056),
+      q(0),
+      ],
+   q(giryama) => [
+      q(5155),
+      q(0),
+      ],
+   q(githabul) => [
+      q(2516),
+      q(0),
+      ],
+   q(gitonga) => [
+      q(6624),
+      q(0),
+      ],
+   q(gitua) => [
+      q(2496),
+      q(0),
+      ],
+   q(gitxsan) => [
+      q(2523),
+      q(0),
+      ],
+   q(giyug) => [
+      q(2527),
+      q(0),
+      ],
+   q(gizrra) => [
+      q(6623),
+      q(0),
+      ],
+   q(glaro-twabo) => [
+      q(2549),
+      q(0),
+      ],
+   q(glavda) => [
+      q(2551),
+      q(0),
+      ],
+   q(glio-oubi) => [
+      q(5330),
+      q(0),
+      ],
+   q(gnau) => [
+      q(2580),
+      q(0),
+      ],
+   q(goan konkani) => [
+      q(2594),
+      q(0),
+      ],
+   q(goaria) => [
+      q(2515),
+      q(0),
+      ],
+   q(gobasi) => [
+      q(2590),
+      q(0),
+      ],
+   q(gobu) => [
+      q(2601),
+      q(0),
+      ],
+   q(godie) => [
+      q(2586),
+      q(0),
+      ],
+   q(godwari) => [
+      q(2470),
+      q(0),
+      ],
+   q(goemai) => [
+      q(0800),
+      q(0),
+      ],
+   q(gofa) => [
+      q(2588),
+      q(0),
+      ],
+   q(gogo) => [
+      q(2589),
+      q(0),
+      ],
+   q(gogodala) => [
+      q(2498),
+      q(0),
+      ],
+   q(gokana) => [
+      q(2537),
+      q(0),
+      ],
+   q(gola) => [
+      q(2593),
+      q(0),
+      ],
+   q(golin) => [
+      q(2666),
+      q(0),
+      ],
+   q(golpa) => [
+      q(3923),
+      q(0),
+      ],
+   q(gondi) => [
+      q(0160),
+      q(0),
+      ],
+   q(gone dau) => [
+      q(2595),
+      q(0),
+      ],
+   q(gongduk) => [
+      q(2587),
+      q(0),
+      ],
+   q(gonja) => [
+      q(2532),
+      q(0),
+      ],
+   q(gooniyandi) => [
+      q(2572),
+      q(0),
+      ],
+   q(gor) => [
+      q(2610),
+      q(0),
+      ],
+   q(gorakor) => [
+      q(2585),
+      q(0),
+      ],
+   q(gorap) => [
+      q(2597),
+      q(0),
+      ],
+   q(goreng) => [
+      q(7330),
+      q(0),
+      ],
+   q(gorontalo) => [
+      q(0161),
+      q(0),
+      ],
+   q(gorovu) => [
+      q(2620),
+      q(0),
+      ],
+   q(gorowa) => [
+      q(2600),
+      q(0),
+      ],
+   q(gothic) => [
+      q(0162),
+      q(0),
+      ],
+   q(goundo) => [
+      q(2602),
+      q(0),
+      ],
+   q(gourmanchema) => [
+      q(2661),
+      q(0),
+      ],
+   q(gowlan) => [
+      q(2591),
+      q(0),
+      ],
+   q(gowli) => [
+      q(2592),
+      q(0),
+      ],
+   q(gowro) => [
+      q(2681),
+      q(0),
+      ],
+   q(gozarkhani) => [
+      q(2603),
+      q(0),
+      ],
+   q(grangali) => [
+      q(4943),
+      q(0),
+      ],
+   q(grass koiari) => [
+      q(3192),
+      q(0),
+      ],
+   q(grebo) => [
+      q(0163),
+      q(0),
+      ],
+   q(greek) => [
+      q(0165),
+      q(1),
+      ],
+   q(greek languages) => [
+      q(0509),
+      q(0),
+      ],
+   q(greek sign language) => [
+      q(2637),
+      q(0),
+      ],
+   q(greek, ancient (to 1453)) => [
+      q(0164),
+      q(0),
+      ],
+   q(greek, modern (1453-)) => [
+      q(0165),
+      q(0),
+      ],
+   q(green gelao) => [
+      q(2520),
+      q(0),
+      ],
+   q(greenlandic) => [
+      q(0212),
+      q(1),
+      ],
+   q(grenadian creole english) => [
+      q(2446),
+      q(0),
+      ],
+   q(gresi) => [
+      q(2622),
+      q(0),
+      ],
+   q(groma) => [
+      q(2619),
+      q(0),
+      ],
+   q(gronings) => [
+      q(2598),
+      q(0),
+      ],
+   q(gros ventre) => [
+      q(0926),
+      q(0),
+      ],
+   q(gua) => [
+      q(2690),
+      q(0),
+      ],
+   q(guadeloupean creole french) => [
+      q(2445),
+      q(0),
+      ],
+   q(guahibo) => [
+      q(2647),
+      q(0),
+      ],
+   q(guaja) => [
+      q(2667),
+      q(0),
+      ],
+   q(guajajara) => [
+      q(2641),
+      q(0),
+      ],
+   q(guambiano) => [
+      q(2651),
+      q(0),
+      ],
+   q(guana (brazil)) => [
+      q(2609),
+      q(0),
+      ],
+   q(guana (paraguay)) => [
+      q(2663),
+      q(0),
+      ],
+   q(guanano) => [
+      q(2664),
+      q(0),
+      ],
+   q(guanche) => [
+      q(2567),
+      q(0),
+      ],
+   q(guanyinqiao) => [
+      q(3100),
+      q(0),
+      ],
+   q(guarani) => [
+      q(0166),
+      q(0),
+      ],
+   q(guarayu) => [
+      q(2702),
+      q(0),
+      ],
+   q(guarequena) => [
+      q(2399),
+      q(0),
+      ],
+   q(guatemalan sign language) => [
+      q(2633),
+      q(0),
+      ],
+   q(guato) => [
+      q(2638),
+      q(0),
+      ],
+   q(guayabero) => [
+      q(2653),
+      q(0),
+      ],
+   q(gudang) => [
+      q(7328),
+      q(0),
+      ],
+   q(gudanji) => [
+      q(4902),
+      q(0),
+      ],
+   q(gude) => [
+      q(2454),
+      q(0),
+      ],
+   q(gudu) => [
+      q(2469),
+      q(0),
+      ],
+   q(guduf-gava) => [
+      q(2455),
+      q(0),
+      ],
+   q(guebie) => [
+      q(2514),
+      q(1),
+      ],
+   q(guernesiais) => [
+      q(5048),
+      q(1),
+      ],
+   q(guerrero amuzgo) => [
+      q(0785),
+      q(0),
+      ],
+   q(guerrero nahuatl) => [
+      q(4847),
+      q(0),
+      ],
+   q(guevea de humboldt zapotec) => [
+      q(7905),
+      q(0),
+      ],
+   q(gugadj) => [
+      q(2491),
+      q(0),
+      ],
+   q(gugu badhun) => [
+      q(2452),
+      q(0),
+      ],
+   q(gugu warra) => [
+      q(7215),
+      q(0),
+      ],
+   q(gugubera) => [
+      q(3415),
+      q(0),
+      ],
+   q(guguyimidjir) => [
+      q(3424),
+      q(0),
+      ],
+   q(guhu-samane) => [
+      q(2508),
+      q(0),
+      ],
+   q(guianese creole french) => [
+      q(2448),
+      q(0),
+      ],
+   q(guibei zhuang) => [
+      q(7825),
+      q(0),
+      ],
+   q(guiberoua bete) => [
+      q(1130),
+      q(0),
+      ],
+   q(guibian zhuang) => [
+      q(7827),
+      q(0),
+      ],
+   q(guila zapotec) => [
+      q(7947),
+      q(0),
+      ],
+   q(guinea kpelle) => [
+      q(2539),
+      q(0),
+      ],
+   q(guinean sign language) => [
+      q(2657),
+      q(0),
+      ],
+   q(guiqiong) => [
+      q(2608),
+      q(0),
+      ],
+   q(gujarati) => [
+      q(0168),
+      q(0),
+      ],
+   q(gujari) => [
+      q(2534),
+      q(0),
+      ],
+   q(gula (central african republic)) => [
+      q(3220),
+      q(0),
+      ],
+   q(gula (chad)) => [
+      q(2550),
+      q(0),
+      ],
+   q(gula iro) => [
+      q(2545),
+      q(0),
+      ],
+   q(gula'alaa) => [
+      q(2554),
+      q(0),
+      ],
+   q(gulay) => [
+      q(2668),
+      q(0),
+      ],
+   q(gule) => [
+      q(2552),
+      q(0),
+      ],
+   q(gulf arabic) => [
+      q(0640),
+      q(0),
+      ],
+   q(guliguli) => [
+      q(2544),
+      q(0),
+      ],
+   q(gumalu) => [
+      q(2560),
+      q(0),
+      ],
+   q(gumatj) => [
+      q(2576),
+      q(0),
+      ],
+   q(gumawana) => [
+      q(2674),
+      q(0),
+      ],
+   q(gumuz) => [
+      q(2649),
+      q(0),
+      ],
+   q(gun) => [
+      q(2660),
+      q(0),
+      ],
+   q(gundi) => [
+      q(2458),
+      q(0),
+      ],
+   q(gunditjmara) => [
+      q(2531),
+      q(0),
+      ],
+   q(gundungurra) => [
+      q(7463),
+      q(0),
+      ],
+   q(gungabula) => [
+      q(2696),
+      q(0),
+      ],
+   q(gungu) => [
+      q(5851),
+      q(0),
+      ],
+   q(guntai) => [
+      q(2579),
+      q(0),
+      ],
+   q(gunwinggu) => [
+      q(2654),
+      q(0),
+      ],
+   q(gunya) => [
+      q(2703),
+      q(0),
+      ],
+   q(gupa-abawa) => [
+      q(2604),
+      q(0),
+      ],
+   q(gupapuyngu) => [
+      q(2645),
+      q(0),
+      ],
+   q(guragone) => [
+      q(2492),
+      q(0),
+      ],
+   q(guramalum) => [
+      q(2629),
+      q(0),
+      ],
+   q(gurani) => [
+      q(2709),
+      q(0),
+      ],
+   q(gurdjar) => [
+      q(2459),
+      q(0),
+      ],
+   q(gureng gureng) => [
+      q(2578),
+      q(0),
+      ],
+   q(gurgula) => [
+      q(2493),
+      q(0),
+      ],
+   q(guriaso) => [
+      q(2627),
+      q(0),
+      ],
+   q(gurindji kriol) => [
+      q(2533),
+      q(0),
+      ],
+   q(gurinji) => [
+      q(2644),
+      q(0),
+      ],
+   q(gurmana) => [
+      q(2669),
+      q(0),
+      ],
+   q(guro) => [
+      q(2583),
+      q(0),
+      ],
+   q(gurung) => [
+      q(2673),
+      q(0),
+      ],
+   q(guruntum-mbaaru) => [
+      q(2613),
+      q(0),
+      ],
+   q(gusan) => [
+      q(2634),
+      q(1),
+      ],
+   q(gusii) => [
+      q(2662),
+      q(0),
+      ],
+   q(gusilay) => [
+      q(2632),
+      q(0),
+      ],
+   q(guwa) => [
+      q(7336),
+      q(0),
+      ],
+   q(guwamu) => [
+      q(2688),
+      q(0),
+      ],
+   q(guwinmal) => [
+      q(7333),
+      q(1),
+      ],
+   q(guya) => [
+      q(2535),
+      q(0),
+      ],
+   q(guyanese creole english) => [
+      q(2701),
+      q(0),
+      ],
+   q(guyani) => [
+      q(2675),
+      q(0),
+      ],
+   q(gvoko) => [
+      q(4845),
+      q(0),
+      ],
+   q(gwa) => [
+      q(2677),
+      q(0),
+      ],
+   q(gwahatike) => [
+      q(1937),
+      q(0),
+      ],
+   q(gwak) => [
+      q(3085),
+      q(0),
+      ],
+   q(gwamhi-wuri) => [
+      q(1162),
+      q(0),
+      ],
+   q(gwandara) => [
+      q(2685),
+      q(0),
+      ],
+   q(gweda) => [
+      q(2626),
+      q(0),
+      ],
+   q(gweno) => [
+      q(2680),
+      q(0),
+      ],
+   q(gwere) => [
+      q(2686),
+      q(0),
+      ],
+   q(gwi) => [
+      q(2683),
+      q(1),
+      ],
+   q(gwich'in) => [
+      q(0169),
+      q(0),
+      ],
+   q(gyele) => [
+      q(2698),
+      q(0),
+      ],
+   q(gyem) => [
+      q(2695),
+      q(0),
+      ],
+   q(ha) => [
+      q(2722),
+      q(0),
+      ],
+   q(habu) => [
+      q(2733),
+      q(0),
+      ],
+   q(hadiyya) => [
+      q(2738),
+      q(0),
+      ],
+   q(hadothi) => [
+      q(2814),
+      q(0),
+      ],
+   q(hadrami) => [
+      q(7339),
+      q(0),
+      ],
+   q(hadrami arabic) => [
+      q(0999),
+      q(0),
+      ],
+   q(hadza) => [
+      q(2846),
+      q(0),
+      ],
+   q(haeke) => [
+      q(0629),
+      q(0),
+      ],
+   q(hahon) => [
+      q(2714),
+      q(0),
+      ],
+   q(hai//om) => [
+      q(2745),
+      q(0),
+      ],
+   q(haida) => [
+      q(0170),
+      q(0),
+      ],
+   q(haigwai) => [
+      q(2746),
+      q(0),
+      ],
+   q(haiom) => [
+      q(2745),
+      q(1),
+      ],
+   q(haiphong sign language) => [
+      q(2712),
+      q(0),
+      ],
+   q(haisla) => [
+      q(2724),
+      q(0),
+      ],
+   q(haitian) => [
+      q(0171),
+      q(0),
+      ],
+   q(haitian creole) => [
+      q(0171),
+      q(1),
+      ],
+   q(haitian vodoun culture language) => [
+      q(2872),
+      q(0),
+      ],
+   q(haji) => [
+      q(2763),
+      q(0),
+      ],
+   q(hajong) => [
+      q(2715),
+      q(0),
+      ],
+   q(haka chin) => [
+      q(1796),
+      q(1),
+      ],
+   q(hakha chin) => [
+      q(1796),
+      q(0),
+      ],
+   q(hakka chinese) => [
+      q(2716),
+      q(0),
+      ],
+   q(hako) => [
+      q(2720),
+      q(0),
+      ],
+   q(halang) => [
+      q(2717),
+      q(0),
+      ],
+   q(halang doan) => [
+      q(2770),
+      q(0),
+      ],
+   q(halbi) => [
+      q(2769),
+      q(0),
+      ],
+   q(halh mongolian) => [
+      q(3338),
+      q(0),
+      ],
+   q(halia) => [
+      q(2768),
+      q(0),
+      ],
+   q(halkomelem) => [
+      q(2863),
+      q(0),
+      ],
+   q(hamap) => [
+      q(2792),
+      q(0),
+      ],
+   q(hamba) => [
+      q(2729),
+      q(0),
+      ],
+   q(hamea) => [
+      q(1737),
+      q(1),
+      ],
+   q(hamer-banna) => [
+      q(0771),
+      q(0),
+      ],
+   q(hamtai) => [
+      q(2791),
+      q(0),
+      ],
+   q(han) => [
+      q(2707),
+      q(0),
+      ],
+   q(hanga) => [
+      q(2713),
+      q(0),
+      ],
+   q(hanga hundi) => [
+      q(7195),
+      q(0),
+      ],
+   q(hangaza) => [
+      q(2719),
+      q(0),
+      ],
+   q(hani) => [
+      q(2801),
+      q(0),
+      ],
+   q(hano) => [
+      q(3978),
+      q(0),
+      ],
+   q(hanoi sign language) => [
+      q(2708),
+      q(0),
+      ],
+   q(hanunoo) => [
+      q(2803),
+      q(0),
+      ],
+   q(harami) => [
+      q(7337),
+      q(0),
+      ],
+   q(harari) => [
+      q(2723),
+      q(0),
+      ],
+   q(harijan kinnauri) => [
+      q(3389),
+      q(0),
+      ],
+   q(haroi) => [
+      q(2833),
+      q(0),
+      ],
+   q(haroti) => [
+      q(2814),
+      q(1),
+      ],
+   q(harsusi) => [
+      q(2843),
+      q(0),
+      ],
+   q(haruai) => [
+      q(6577),
+      q(0),
+      ],
+   q(haruku) => [
+      q(2831),
+      q(0),
+      ],
+   q(haryanvi) => [
+      q(1164),
+      q(0),
+      ],
+   q(harzani) => [
+      q(2839),
+      q(0),
+      ],
+   q(hasha) => [
+      q(7589),
+      q(0),
+      ],
+   q(hassaniyya) => [
+      q(4215),
+      q(0),
+      ],
+   q(hatam) => [
+      q(2710),
+      q(0),
+      ],
+   q(hattic) => [
+      q(7342),
+      q(0),
+      ],
+   q(hausa) => [
+      q(0172),
+      q(0),
+      ],
+   q(hausa sign language) => [
+      q(2841),
+      q(0),
+      ],
+   q(havasupai-walapai-yavapai) => [
+      q(7752),
+      q(0),
+      ],
+   q(haveke) => [
+      q(2874),
+      q(0),
+      ],
+   q(havu) => [
+      q(2725),
+      q(0),
+      ],
+   q(hawai'i creole english) => [
+      q(2878),
+      q(0),
+      ],
+   q(hawai'i pidgin) => [
+      q(2878),
+      q(1),
+      ],
+   q(hawai'i pidgin sign language) => [
+      q(2827),
+      q(1),
+      ],
+   q(hawai'i sign language (hsl)) => [
+      q(2827),
+      q(0),
+      ],
+   q(hawaiian) => [
+      q(0173),
+      q(0),
+      ],
+   q(haya) => [
+      q(2727),
+      q(0),
+      ],
+   q(hazaragi) => [
+      q(2728),
+      q(0),
+      ],
+   q(hdi) => [
+      q(7316),
+      q(0),
+      ],
+   q(hebrew) => [
+      q(0174),
+      q(0),
+      ],
+   q(hehe) => [
+      q(2742),
+      q(0),
+      ],
+   q(heiban) => [
+      q(2731),
+      q(0),
+      ],
+   q(heiltsuk) => [
+      q(2743),
+      q(0),
+      ],
+   q(helambu sherpa) => [
+      q(5926),
+      q(0),
+      ],
+   q(helong) => [
+      q(2741),
+      q(0),
+      ],
+   q(hema) => [
+      q(4895),
+      q(0),
+      ],
+   q(hemba) => [
+      q(2744),
+      q(0),
+      ],
+   q(herde) => [
+      q(2740),
+      q(0),
+      ],
+   q(herero) => [
+      q(0175),
+      q(0),
+      ],
+   q(hermit) => [
+      q(3952),
+      q(0),
+      ],
+   q(hernican) => [
+      q(7341),
+      q(0),
+      ],
+   q(hertevin) => [
+      q(2835),
+      q(0),
+      ],
+   q(heung kong sau yue) => [
+      q(2767),
+      q(1),
+      ],
+   q(hewa) => [
+      q(2718),
+      q(0),
+      ],
+   q(heyo) => [
+      q(0942),
+      q(0),
+      ],
+   q(hiberno-scottish gaelic) => [
+      q(2500),
+      q(0),
+      ],
+   q(hibito) => [
+      q(2751),
+      q(0),
+      ],
+   q(hidatsa) => [
+      q(2752),
+      q(0),
+      ],
+   q(hieroglyphic luwian) => [
+      q(2773),
+      q(0),
+      ],
+   q(higaonon) => [
+      q(4120),
+      q(0),
+      ],
+   q(highland konjo) => [
+      q(3385),
+      q(0),
+      ],
+   q(highland oaxaca chontal) => [
+      q(1717),
+      q(0),
+      ],
+   q(highland popoluca) => [
+      q(5555),
+      q(0),
+      ],
+   q(highland puebla nahuatl) => [
+      q(1022),
+      q(0),
+      ],
+   q(highland totonac) => [
+      q(6633),
+      q(0),
+      ],
+   q(hijazi arabic) => [
+      q(0601),
+      q(0),
+      ],
+   q(hijuk) => [
+      q(2757),
+      q(0),
+      ],
+   q(hiligaynon) => [
+      q(0176),
+      q(0),
+      ],
+   q(himachali languages) => [
+      q(0177),
+      q(0),
+      ],
+   q(himarima) => [
+      q(2760),
+      q(0),
+      ],
+   q(hindi) => [
+      q(0178),
+      q(0),
+      ],
+   q(hinduri) => [
+      q(2756),
+      q(0),
+      ],
+   q(hinukh) => [
+      q(2518),
+      q(0),
+      ],
+   q(hiri motu) => [
+      q(0181),
+      q(0),
+      ],
+   q(hittite) => [
+      q(0179),
+      q(0),
+      ],
+   q(hitu) => [
+      q(2847),
+      q(0),
+      ],
+   q(hiw) => [
+      q(2761),
+      q(0),
+      ],
+   q(hixkaryana) => [
+      q(2762),
+      q(0),
+      ],
+   q(hlai) => [
+      q(3903),
+      q(0),
+      ],
+   q(hlepho phowa) => [
+      q(7629),
+      q(0),
+      ],
+   q(hlersu) => [
+      q(2771),
+      q(0),
+      ],
+   q(hmar) => [
+      q(2789),
+      q(0),
+      ],
+   q(hmong) => [
+      q(0180),
+      q(0),
+      ],
+   q(hmong daw) => [
+      q(4636),
+      q(0),
+      ],
+   q(hmong do) => [
+      q(2793),
+      q(0),
+      ],
+   q(hmong don) => [
+      q(2779),
+      q(0),
+      ],
+   q(hmong njua) => [
+      q(2802),
+      q(0),
+      ],
+   q(hmong shua) => [
+      q(2796),
+      q(0),
+      ],
+   q(hmong-mien languages) => [
+      q(0510),
+      q(0),
+      ],
+   q(hmwaveke) => [
+      q(4508),
+      q(0),
+      ],
+   q(ho) => [
+      q(2809),
+      q(0),
+      ],
+   q(ho chi minh city sign language) => [
+      q(2820),
+      q(0),
+      ],
+   q(ho-chunk) => [
+      q(7124),
+      q(0),
+      ],
+   q(hoava) => [
+      q(2807),
+      q(0),
+      ],
+   q(hobyot) => [
+      q(2812),
+      q(0),
+      ],
+   q(hoia hoia) => [
+      q(2747),
+      q(0),
+      ],
+   q(hokan languages) => [
+      q(0511),
+      q(0),
+      ],
+   q(holikachuk) => [
+      q(2813),
+      q(0),
+      ],
+   q(holiya) => [
+      q(2824),
+      q(0),
+      ],
+   q(holma) => [
+      q(2810),
+      q(0),
+      ],
+   q(holoholo) => [
+      q(2817),
+      q(0),
+      ],
+   q(holu) => [
+      q(2815),
+      q(0),
+      ],
+   q(homa) => [
+      q(2816),
+      q(0),
+      ],
+   q(honduras sign language) => [
+      q(2737),
+      q(0),
+      ],
+   q(hone) => [
+      q(3150),
+      q(0),
+      ],
+   q(hong kong sign language) => [
+      q(2767),
+      q(0),
+      ],
+   q(honi) => [
+      q(2823),
+      q(0),
+      ],
+   q(hopi) => [
+      q(2818),
+      q(0),
+      ],
+   q(horned miao) => [
+      q(2832),
+      q(0),
+      ],
+   q(horo) => [
+      q(2819),
+      q(0),
+      ],
+   q(horom) => [
+      q(2811),
+      q(0),
+      ],
+   q(horpa) => [
+      q(2282),
+      q(0),
+      ],
+   q(hote) => [
+      q(2821),
+      q(0),
+      ],
+   q(hoti) => [
+      q(2844),
+      q(0),
+      ],
+   q(hovongan) => [
+      q(2822),
+      q(0),
+      ],
+   q(hoyahoya) => [
+      q(2749),
+      q(0),
+      ],
+   q(hozo) => [
+      q(2825),
+      q(0),
+      ],
+   q(hpon) => [
+      q(2826),
+      q(0),
+      ],
+   q(hrangkhol) => [
+      q(2828),
+      q(0),
+      ],
+   q(hre) => [
+      q(2830),
+      q(0),
+      ],
+   q(hruso) => [
+      q(2836),
+      q(0),
+      ],
+   q(hu) => [
+      q(2861),
+      q(0),
+      ],
+   q(hua) => [
+      q(2850),
+      q(1),
+      ],
+   q(huachipaeri) => [
+      q(2854),
+      q(0),
+      ],
+   q(huallaga huanuco quechua) => [
+      q(5671),
+      q(0),
+      ],
+   q(huamalies-dos de mayo huanuco quechua) => [
+      q(5694),
+      q(0),
+      ],
+   q(huambisa) => [
+      q(2849),
+      q(0),
+      ],
+   q(huarijio) => [
+      q(6966),
+      q(0),
+      ],
+   q(huastec) => [
+      q(2864),
+      q(0),
+      ],
+   q(huaulu) => [
+      q(2851),
+      q(0),
+      ],
+   q(huautla mazatec) => [
+      q(4115),
+      q(0),
+      ],
+   q(huaxcaleca nahuatl) => [
+      q(4867),
+      q(0),
+      ],
+   q(huaylas ancash quechua) => [
+      q(5708),
+      q(0),
+      ],
+   q(huaylla wanca quechua) => [
+      q(5703),
+      q(0),
+      ],
+   q(huba) => [
+      q(2730),
+      q(0),
+      ],
+   q(huehuetla tepehua) => [
+      q(6443),
+      q(0),
+      ],
+   q(huichol) => [
+      q(2735),
+      q(0),
+      ],
+   q(huilliche) => [
+      q(2855),
+      q(0),
+      ],
+   q(huitepec mixtec) => [
+      q(4658),
+      q(0),
+      ],
+   q(huizhou chinese) => [
+      q(1927),
+      q(0),
+      ],
+   q(hukumina) => [
+      q(2868),
+      q(0),
+      ],
+   q(hula) => [
+      q(2859),
+      q(0),
+      ],
+   q(hulaula) => [
+      q(2870),
+      q(0),
+      ],
+   q(huli) => [
+      q(2856),
+      q(0),
+      ],
+   q(hulung) => [
+      q(2858),
+      q(0),
+      ],
+   q(humburi senni songhay) => [
+      q(2775),
+      q(0),
+      ],
+   q(humene) => [
+      q(2853),
+      q(0),
+      ],
+   q(humla) => [
+      q(2865),
+      q(0),
+      ],
+   q(hun-saare) => [
+      q(2167),
+      q(0),
+      ],
+   q(hunde) => [
+      q(2765),
+      q(0),
+      ],
+   q(hung) => [
+      q(2806),
+      q(0),
+      ],
+   q(hungana) => [
+      q(2860),
+      q(0),
+      ],
+   q(hungarian) => [
+      q(0184),
+      q(0),
+      ],
+   q(hungarian sign language) => [
+      q(2840),
+      q(0),
+      ],
+   q(hungworo) => [
+      q(4727),
+      q(1),
+      ],
+   q(hunjara-kaina ke) => [
+      q(2766),
+      q(0),
+      ],
+   q(hunnic) => [
+      q(7338),
+      q(0),
+      ],
+   q(hunsrik) => [
+      q(2838),
+      q(0),
+      ],
+   q(hunzib) => [
+      q(2871),
+      q(0),
+      ],
+   q(hupa) => [
+      q(0185),
+      q(0),
+      ],
+   q(hupde) => [
+      q(3157),
+      q(0),
+      ],
+   q(hupla) => [
+      q(2721),
+      q(0),
+      ],
+   q(hurrian) => [
+      q(7343),
+      q(0),
+      ],
+   q(hutterisch) => [
+      q(2476),
+      q(1),
+      ],
+   q(hutterite german) => [
+      q(2476),
+      q(0),
+      ],
+   q(hwana) => [
+      q(2879),
+      q(0),
+      ],
+   q(hya) => [
+      q(2880),
+      q(0),
+      ],
+   q(hyam) => [
+      q(3040),
+      q(0),
+      ],
+   q(i'saka) => [
+      q(3597),
+      q(1),
+      ],
+   q(i-wak) => [
+      q(3027),
+      q(0),
+      ],
+   q(iaai) => [
+      q(2881),
+      q(0),
+      ],
+   q(iamalele) => [
+      q(7681),
+      q(0),
+      ],
+   q(iatmul) => [
+      q(2882),
+      q(0),
+      ],
+   q(iau) => [
+      q(6592),
+      q(0),
+      ],
+   q(ibali teke) => [
+      q(6448),
+      q(0),
+      ],
+   q(ibaloi) => [
+      q(2889),
+      q(0),
+      ],
+   q(iban) => [
+      q(0186),
+      q(0),
+      ],
+   q(ibanag) => [
+      q(2887),
+      q(0),
+      ],
+   q(ibani) => [
+      q(2894),
+      q(0),
+      ],
+   q(ibatan) => [
+      q(3025),
+      q(0),
+      ],
+   q(iberian) => [
+      q(7345),
+      q(0),
+      ],
+   q(ibibio) => [
+      q(2884),
+      q(0),
+      ],
+   q(ibino) => [
+      q(2891),
+      q(0),
+      ],
+   q(ibu) => [
+      q(2893),
+      q(0),
+      ],
+   q(ibuoro) => [
+      q(2892),
+      q(0),
+      ],
+   q(icelandic) => [
+      q(0188),
+      q(0),
+      ],
+   q(icelandic sign language) => [
+      q(2897),
+      q(0),
+      ],
+   q(iceve-maci) => [
+      q(1118),
+      q(0),
+      ],
+   q(ida'an) => [
+      q(1957),
+      q(0),
+      ],
+   q(idakho-isukha-tiriki) => [
+      q(2899),
+      q(0),
+      ],
+   q(idate) => [
+      q(2907),
+      q(0),
+      ],
+   q(idere) => [
+      q(2903),
+      q(0),
+      ],
+   q(idesa) => [
+      q(2906),
+      q(0),
+      ],
+   q(idi) => [
+      q(2904),
+      q(0),
+      ],
+   q(ido) => [
+      q(0189),
+      q(0),
+      ],
+   q(idoma) => [
+      q(2908),
+      q(0),
+      ],
+   q(idon) => [
+      q(2901),
+      q(0),
+      ],
+   q(idu-mishmi) => [
+      q(1773),
+      q(0),
+      ],
+   q(iduna) => [
+      q(6990),
+      q(0),
+      ],
+   q(ife) => [
+      q(2911),
+      q(0),
+      ],
+   q(ifo) => [
+      q(2912),
+      q(0),
+      ],
+   q(igala) => [
+      q(2920),
+      q(0),
+      ],
+   q(igana) => [
+      q(2919),
+      q(0),
+      ],
+   q(igbo) => [
+      q(0187),
+      q(0),
+      ],
+   q(igede) => [
+      q(2918),
+      q(0),
+      ],
+   q(ignaciano) => [
+      q(2922),
+      q(0),
+      ],
+   q(igo) => [
+      q(0684),
+      q(0),
+      ],
+   q(iguta) => [
+      q(4725),
+      q(0),
+      ],
+   q(igwe) => [
+      q(2925),
+      q(0),
+      ],
+   q(iha) => [
+      q(2928),
+      q(0),
+      ],
+   q(iha based pidgin) => [
+      q(2926),
+      q(0),
+      ],
+   q(ihievbe) => [
+      q(2927),
+      q(0),
+      ],
+   q(ija-zuba) => [
+      q(6992),
+      q(0),
+      ],
+   q(ijo languages) => [
+      q(0191),
+      q(0),
+      ],
+   q(ik) => [
+      q(2947),
+      q(0),
+      ],
+   q(ika) => [
+      q(2938),
+      q(0),
+      ],
+   q(ikaranggal) => [
+      q(2942),
+      q(0),
+      ],
+   q(ikizu) => [
+      q(2948),
+      q(0),
+      ],
+   q(iko) => [
+      q(2937),
+      q(0),
+      ],
+   q(ikobi) => [
+      q(4195),
+      q(0),
+      ],
+   q(ikoma-nata-isenye) => [
+      q(5089),
+      q(0),
+      ],
+   q(ikpeng) => [
+      q(6802),
+      q(0),
+      ],
+   q(ikpeshi) => [
+      q(2941),
+      q(0),
+      ],
+   q(ikposo) => [
+      q(3533),
+      q(0),
+      ],
+   q(iku-gora-ankwa) => [
+      q(2945),
+      q(0),
+      ],
+   q(ikulu) => [
+      q(2939),
+      q(0),
+      ],
+   q(ikwere) => [
+      q(2946),
+      q(0),
+      ],
+   q(ikwo) => [
+      q(2984),
+      q(0),
+      ],
+   q(ila) => [
+      q(2950),
+      q(0),
+      ],
+   q(ile ape) => [
+      q(2949),
+      q(0),
+      ],
+   q(ili turki) => [
+      q(2952),
+      q(0),
+      ],
+   q(ili'uun) => [
+      q(2957),
+      q(0),
+      ],
+   q(ilianen manobo) => [
+      q(4127),
+      q(0),
+      ],
+   q(illyrian) => [
+      q(7347),
+      q(0),
+      ],
+   q(iloko) => [
+      q(0194),
+      q(0),
+      ],
+   q(ilongot) => [
+      q(2953),
+      q(0),
+      ],
+   q(ilue) => [
+      q(2958),
+      q(0),
+      ],
+   q(ilwana) => [
+      q(4369),
+      q(0),
+      ],
+   q(imbabura highland quichua) => [
+      q(5695),
+      q(0),
+      ],
+   q(imbongu) => [
+      q(2963),
+      q(0),
+      ],
+   q(imonda) => [
+      q(2962),
+      q(0),
+      ],
+   q(imperial aramaic (700-300 bce)) => [
+      q(0022),
+      q(1),
+      ],
+   q(imroing) => [
+      q(2964),
+      q(0),
+      ],
+   q(inabaknon) => [
+      q(0582),
+      q(0),
+      ],
+   q(inapang) => [
+      q(4706),
+      q(0),
+      ],
+   q(inapari) => [
+      q(2974),
+      q(0),
+      ],
+   q(inari sami) => [
+      q(0392),
+      q(0),
+      ],
+   q(indian sign language) => [
+      q(2975),
+      q(0),
+      ],
+   q(indic languages) => [
+      q(0196),
+      q(0),
+      ],
+   q(indo-european languages) => [
+      q(0198),
+      q(0),
+      ],
+   q(indo-iranian languages) => [
+      q(0513),
+      q(0),
+      ],
+   q(indo-portuguese) => [
+      q(2900),
+      q(0),
+      ],
+   q(indonesian) => [
+      q(0197),
+      q(0),
+      ],
+   q(indonesian bajau) => [
+      q(1101),
+      q(0),
+      ],
+   q(indonesian sign language) => [
+      q(2970),
+      q(0),
+      ],
+   q(indri) => [
+      q(2905),
+      q(0),
+      ],
+   q(indus kohistani) => [
+      q(4616),
+      q(0),
+      ],
+   q(indus valley language) => [
+      q(7351),
+      q(0),
+      ],
+   q(inebu one) => [
+      q(5212),
+      q(0),
+      ],
+   q(ineseno) => [
+      q(2977),
+      q(0),
+      ],
+   q(inga) => [
+      q(2967),
+      q(0),
+      ],
+   q(ingrian) => [
+      q(3036),
+      q(0),
+      ],
+   q(ingush) => [
+      q(0199),
+      q(0),
+      ],
+   q(inlaod itneg) => [
+      q(3011),
+      q(0),
+      ],
+   q(inoke-yate) => [
+      q(2973),
+      q(0),
+      ],
+   q(inonhan) => [
+      q(4007),
+      q(0),
+      ],
+   q(inor) => [
+      q(2978),
+      q(0),
+      ],
+   q(inpui naga) => [
+      q(4920),
+      q(0),
+      ],
+   q(interglossa) => [
+      q(2924),
+      q(0),
+      ],
+   q(interlingua (international auxiliary language association)) => [
+      q(0195),
+      q(0),
+      ],
+   q(interlingue) => [
+      q(0193),
+      q(0),
+      ],
+   q(international sign) => [
+      q(2956),
+      q(0),
+      ],
+   q(intha) => [
+      q(2976),
+      q(0),
+      ],
+   q(inuinnaqtun) => [
+      q(2944),
+      q(0),
+      ],
+   q(inuit sign language) => [
+      q(2943),
+      q(0),
+      ],
+   q(inuktitut) => [
+      q(0192),
+      q(0),
+      ],
+   q(inupiaq) => [
+      q(0200),
+      q(0),
+      ],
+   q(iowa-oto) => [
+      q(2980),
+      q(0),
+      ],
+   q(ipalapa amuzgo) => [
+      q(1018),
+      q(0),
+      ],
+   q(ipiko) => [
+      q(2982),
+      q(0),
+      ],
+   q(ipili) => [
+      q(2981),
+      q(0),
+      ],
+   q(ipulo) => [
+      q(0903),
+      q(0),
+      ],
+   q(iquito) => [
+      q(2983),
+      q(0),
+      ],
+   q(ir) => [
+      q(2990),
+      q(0),
+      ],
+   q(iranian languages) => [
+      q(0201),
+      q(0),
+      ],
+   q(iranian persian) => [
+      q(5414),
+      q(0),
+      ],
+   q(irantxe) => [
+      q(2989),
+      q(0),
+      ],
+   q(iranun (malaysia)) => [
+      q(2954),
+      q(0),
+      ],
+   q(iranun (philippines)) => [
+      q(2955),
+      q(0),
+      ],
+   q(iraqw) => [
+      q(2988),
+      q(0),
+      ],
+   q(irarutu) => [
+      q(2986),
+      q(0),
+      ],
+   q(iraya) => [
+      q(2993),
+      q(0),
+      ],
+   q(iresim) => [
+      q(2985),
+      q(0),
+      ],
+   q(irigwe) => [
+      q(2987),
+      q(0),
+      ],
+   q(irish) => [
+      q(0155),
+      q(0),
+      ],
+   q(irish sign language) => [
+      q(2998),
+      q(0),
+      ],
+   q(irish, middle (900-1200)) => [
+      q(0279),
+      q(0),
+      ],
+   q(irish, old (to 900)) => [
+      q(0378),
+      q(0),
+      ],
+   q(iroquoian languages) => [
+      q(0202),
+      q(0),
+      ],
+   q(irula) => [
+      q(2991),
+      q(0),
+      ],
+   q(isabi) => [
+      q(2994),
+      q(0),
+      ],
+   q(isanzu) => [
+      q(3003),
+      q(0),
+      ],
+   q(isarog agta) => [
+      q(0663),
+      q(0),
+      ],
+   q(isconahua) => [
+      q(2995),
+      q(0),
+      ],
+   q(isebe) => [
+      q(2923),
+      q(0),
+      ],
+   q(isekiri) => [
+      q(3017),
+      q(0),
+      ],
+   q(ishkashimi) => [
+      q(3001),
+      q(0),
+      ],
+   q(isinai) => [
+      q(2972),
+      q(0),
+      ],
+   q(isirawa) => [
+      q(6207),
+      q(0),
+      ],
+   q(island carib) => [
+      q(1840),
+      q(0),
+      ],
+   q(islander creole english) => [
+      q(2898),
+      q(0),
+      ],
+   q(isnag) => [
+      q(2996),
+      q(0),
+      ],
+   q(isoko) => [
+      q(3004),
+      q(0),
+      ],
+   q(israeli sign language) => [
+      q(3005),
+      q(0),
+      ],
+   q(isthmus mixe) => [
+      q(4306),
+      q(0),
+      ],
+   q(isthmus zapotec) => [
+      q(7798),
+      q(0),
+      ],
+   q(isthmus-cosoleacaque nahuatl) => [
+      q(4862),
+      q(0),
+      ],
+   q(isthmus-mecayapan nahuatl) => [
+      q(4873),
+      q(0),
+      ],
+   q(isthmus-pajapan nahuatl) => [
+      q(4866),
+      q(0),
+      ],
+   q(istriot) => [
+      q(3006),
+      q(0),
+      ],
+   q(istro romanian) => [
+      q(5859),
+      q(0),
+      ],
+   q(isu (fako division)) => [
+      q(6345),
+      q(0),
+      ],
+   q(isu (menchum division)) => [
+      q(3007),
+      q(0),
+      ],
+   q(italian) => [
+      q(0203),
+      q(0),
+      ],
+   q(italian sign language) => [
+      q(2997),
+      q(0),
+      ],
+   q(italic languages) => [
+      q(0514),
+      q(0),
+      ],
+   q(itawit) => [
+      q(3019),
+      q(0),
+      ],
+   q(itelmen) => [
+      q(3013),
+      q(0),
+      ],
+   q(itene) => [
+      q(3010),
+      q(0),
+      ],
+   q(iteri) => [
+      q(3016),
+      q(0),
+      ],
+   q(itik) => [
+      q(3021),
+      q(0),
+      ],
+   q(ito) => [
+      q(3020),
+      q(0),
+      ],
+   q(itonama) => [
+      q(3015),
+      q(0),
+      ],
+   q(itu mbon uzo) => [
+      q(3014),
+      q(0),
+      ],
+   q(itundujia mixtec) => [
+      q(4149),
+      q(0),
+      ],
+   q(itza) => [
+      q(3023),
+      q(0),
+      ],
+   q(iu mien) => [
+      q(3024),
+      q(0),
+      ],
+   q(ivatan) => [
+      q(3026),
+      q(0),
+      ],
+   q(ivbie north-okpela-arhe) => [
+      q(0915),
+      q(0),
+      ],
+   q(iwaidja) => [
+      q(2885),
+      q(0),
+      ],
+   q(iwal) => [
+      q(3194),
+      q(0),
+      ],
+   q(iwam) => [
+      q(3028),
+      q(0),
+      ],
+   q(iwur) => [
+      q(3029),
+      q(0),
+      ],
+   q(ixcatec) => [
+      q(3031),
+      q(0),
+      ],
+   q(ixcatlan mazatec) => [
+      q(4694),
+      q(0),
+      ],
+   q(ixil) => [
+      q(3032),
+      q(0),
+      ],
+   q(ixtayutla mixtec) => [
+      q(7012),
+      q(0),
+      ],
+   q(ixtenco otomi) => [
+      q(5328),
+      q(0),
+      ],
+   q(iyayu) => [
+      q(3033),
+      q(0),
+      ],
+   q(iyive) => [
+      q(6862),
+      q(0),
+      ],
+   q(iyo) => [
+      q(4754),
+      q(0),
+      ],
+   q(iyo'wujwa chorote) => [
+      q(1852),
+      q(0),
+      ],
+   q(iyojwa'ja chorote) => [
+      q(1855),
+      q(0),
+      ],
+   q(izere) => [
+      q(3037),
+      q(0),
+      ],
+   q(izii) => [
+      q(3038),
+      q(0),
+      ],
+   q(izon) => [
+      q(2931),
+      q(0),
+      ],
+   q(izora) => [
+      q(1668),
+      q(0),
+      ],
+   q(jabuti) => [
+      q(3065),
+      q(0),
+      ],
+   q(jad) => [
+      q(3070),
+      q(0),
+      ],
+   q(jadgali) => [
+      q(3071),
+      q(0),
+      ],
+   q(jah hut) => [
+      q(3045),
+      q(0),
+      ],
+   q(jahanka) => [
+      q(3042),
+      q(0),
+      ],
+   q(jair awyu) => [
+      q(0982),
+      q(0),
+      ],
+   q(jaitmatang) => [
+      q(7354),
+      q(0),
+      ],
+   q(jakalteko) => [
+      q(3041),
+      q(1),
+      ],
+   q(jakati) => [
+      q(3054),
+      q(0),
+      ],
+   q(jakun) => [
+      q(3047),
+      q(0),
+      ],
+   q(jalapa de diaz mazatec) => [
+      q(4111),
+      q(0),
+      ],
+   q(jalkunan) => [
+      q(1577),
+      q(0),
+      ],
+   q(jamaican country sign language) => [
+      q(3068),
+      q(0),
+      ],
+   q(jamaican creole english) => [
+      q(3049),
+      q(0),
+      ],
+   q(jamaican sign language) => [
+      q(3114),
+      q(0),
+      ],
+   q(jamamadi) => [
+      q(3039),
+      q(0),
+      ],
+   q(jambi malay) => [
+      q(3056),
+      q(0),
+      ],
+   q(jamiltepec mixtec) => [
+      q(4659),
+      q(0),
+      ],
+   q(jamsay dogon) => [
+      q(2061),
+      q(0),
+      ],
+   q(jandai) => [
+      q(3050),
+      q(0),
+      ],
+   q(jandavra) => [
+      q(3127),
+      q(0),
+      ],
+   q(jangkang) => [
+      q(2063),
+      q(0),
+      ],
+   q(jangshung) => [
+      q(3126),
+      q(0),
+      ],
+   q(janji) => [
+      q(3129),
+      q(0),
+      ],
+   q(japanese) => [
+      q(0206),
+      q(0),
+      ],
+   q(japanese (family)) => [
+      q(0515),
+      q(0),
+      ],
+   q(japanese sign language) => [
+      q(3145),
+      q(0),
+      ],
+   q(japreria) => [
+      q(3144),
+      q(0),
+      ],
+   q(jaqaru) => [
+      q(3140),
+      q(0),
+      ],
+   q(jara) => [
+      q(3044),
+      q(0),
+      ],
+   q(jarai) => [
+      q(3141),
+      q(0),
+      ],
+   q(jarawa (india)) => [
+      q(0805),
+      q(0),
+      ],
+   q(jaru) => [
+      q(1977),
+      q(0),
+      ],
+   q(jauja wanca quechua) => [
+      q(5724),
+      q(0),
+      ],
+   q(jaunsari) => [
+      q(3132),
+      q(0),
+      ],
+   q(javanese) => [
+      q(0204),
+      q(0),
+      ],
+   q(javindo) => [
+      q(3164),
+      q(0),
+      ],
+   q(jawe) => [
+      q(3058),
+      q(0),
+      ],
+   q(jaya) => [
+      q(3169),
+      q(0),
+      ],
+   q(jebero) => [
+      q(3073),
+      q(0),
+      ],
+   q(jeh) => [
+      q(3075),
+      q(0),
+      ],
+   q(jehai) => [
+      q(3087),
+      q(0),
+      ],
+   q(jejueo) => [
+      q(3105),
+      q(0),
+      ],
+   q(jemez) => [
+      q(6636),
+      q(0),
+      ],
+   q(jenaama bozo) => [
+      q(1616),
+      q(0),
+      ],
+   q(jennu kurumba) => [
+      q(7519),
+      q(0),
+      ],
+   q(jere) => [
+      q(3080),
+      q(0),
+      ],
+   q(jeri kuo) => [
+      q(3077),
+      q(0),
+      ],
+   q(jerriais) => [
+      q(5048),
+      q(0),
+      ],
+   q(jerung) => [
+      q(3074),
+      q(0),
+      ],
+   q(jewish babylonian aramaic (ca. 200-1200 ce)) => [
+      q(6589),
+      q(0),
+      ],
+   q(jewish palestinian aramaic) => [
+      q(3139),
+      q(0),
+      ],
+   q(jhankot sign language) => [
+      q(3088),
+      q(0),
+      ],
+   q(jiamao) => [
+      q(3099),
+      q(0),
+      ],
+   q(jiarong) => [
+      q(3167),
+      q(0),
+      ],
+   q(jiba) => [
+      q(3156),
+      q(0),
+      ],
+   q(jibu) => [
+      q(3090),
+      q(0),
+      ],
+   q(jicarilla apache) => [
+      q(0843),
+      q(0),
+      ],
+   q(jiiddu) => [
+      q(3096),
+      q(0),
+      ],
+   q(jilbe) => [
+      q(3093),
+      q(0),
+      ],
+   q(jilim) => [
+      q(3097),
+      q(0),
+      ],
+   q(jimi (cameroon)) => [
+      q(3098),
+      q(0),
+      ],
+   q(jimi (nigeria)) => [
+      q(3119),
+      q(0),
+      ],
+   q(jina) => [
+      q(3089),
+      q(0),
+      ],
+   q(jingpho) => [
+      q(0211),
+      q(1),
+      ],
+   q(jinyu chinese) => [
+      q(1751),
+      q(0),
+      ],
+   q(jiongnai bunu) => [
+      q(5544),
+      q(0),
+      ],
+   q(jirel) => [
+      q(3153),
+      q(0),
+      ],
+   q(jiru) => [
+      q(3142),
+      q(0),
+      ],
+   q(jita) => [
+      q(3101),
+      q(0),
+      ],
+   q(jju) => [
+      q(3176),
+      q(0),
+      ],
+   q(joba) => [
+      q(3133),
+      q(0),
+      ],
+   q(jofotek-bromnya) => [
+      q(3064),
+      q(0),
+      ],
+   q(jogi) => [
+      q(3135),
+      q(0),
+      ],
+   q(jola-fonyi) => [
+      q(2201),
+      q(0),
+      ],
+   q(jola-kasa) => [
+      q(1870),
+      q(0),
+      ],
+   q(jonkor bourmataguil) => [
+      q(3082),
+      q(0),
+      ],
+   q(jora) => [
+      q(3136),
+      q(0),
+      ],
+   q(jordanian sign language) => [
+      q(3137),
+      q(0),
+      ],
+   q(jorto) => [
+      q(3143),
+      q(0),
+      ],
+   q(jowulu) => [
+      q(3138),
+      q(0),
+      ],
+   q(ju) => [
+      q(3161),
+      q(0),
+      ],
+   q(ju/'hoan) => [
+      q(3639),
+      q(0),
+      ],
+   q(juang) => [
+      q(3155),
+      q(0),
+      ],
+   q(judeo-arabic) => [
+      q(0208),
+      q(0),
+      ],
+   q(judeo-berber) => [
+      q(3059),
+      q(0),
+      ],
+   q(judeo-georgian) => [
+      q(3084),
+      q(0),
+      ],
+   q(judeo-iraqi arabic) => [
+      q(7628),
+      q(0),
+      ],
+   q(judeo-italian) => [
+      q(3012),
+      q(0),
+      ],
+   q(judeo-moroccan arabic) => [
+      q(0720),
+      q(0),
+      ],
+   q(judeo-persian) => [
+      q(0207),
+      q(0),
+      ],
+   q(judeo-tat) => [
+      q(3072),
+      q(0),
+      ],
+   q(judeo-tripolitanian arabic) => [
+      q(7750),
+      q(0),
+      ],
+   q(judeo-tunisian arabic) => [
+      q(0719),
+      q(0),
+      ],
+   q(judeo-yemeni arabic) => [
+      q(3168),
+      q(0),
+      ],
+   q(juhoan) => [
+      q(3639),
+      q(1),
+      ],
+   q(jukun takum) => [
+      q(3066),
+      q(0),
+      ],
+   q(juma) => [
+      q(3146),
+      q(0),
+      ],
+   q(jumjum) => [
+      q(3154),
+      q(0),
+      ],
+   q(jumla sign language) => [
+      q(3159),
+      q(0),
+      ],
+   q(jumli) => [
+      q(3120),
+      q(0),
+      ],
+   q(jungle inga) => [
+      q(2969),
+      q(0),
+      ],
+   q(juquila mixe) => [
+      q(4656),
+      q(0),
+      ],
+   q(jur modo) => [
+      q(1134),
+      q(0),
+      ],
+   q(juray) => [
+      q(3163),
+      q(0),
+      ],
+   q(jurchen) => [
+      q(3148),
+      q(0),
+      ],
+   q(juruna) => [
+      q(3158),
+      q(0),
+      ],
+   q(jutish) => [
+      q(3160),
+      q(0),
+      ],
+   q(juwal) => [
+      q(4619),
+      q(0),
+      ],
+   q(juxtlahuaca mixtec) => [
+      q(7005),
+      q(0),
+      ],
+   q(ju|'hoansi) => [
+      q(3639),
+      q(2),
+      ],
+   q(jwira-pepesa) => [
+      q(3166),
+      q(0),
+      ],
+   q(k'iche') => [
+      q(5672),
+      q(0),
+      ],
+   q(kaamba) => [
+      q(7373),
+      q(0),
+      ],
+   q(kaan) => [
+      q(3845),
+      q(0),
+      ],
+   q(kaang chin) => [
+      q(1755),
+      q(0),
+      ],
+   q(kaansa) => [
+      q(2565),
+      q(0),
+      ],
+   q(kaapor) => [
+      q(6912),
+      q(1),
+      ],
+   q(kaapor sign language) => [
+      q(6871),
+      q(1),
+      ],
+   q(kaba) => [
+      q(3604),
+      q(0),
+      ],
+   q(kabalai) => [
+      q(3666),
+      q(0),
+      ],
+   q(kabardian) => [
+      q(0220),
+      q(0),
+      ],
+   q(kabatei) => [
+      q(7368),
+      q(0),
+      ],
+   q(kabiye) => [
+      q(3197),
+      q(0),
+      ],
+   q(kabola) => [
+      q(3451),
+      q(0),
+      ],
+   q(kabore one) => [
+      q(5268),
+      q(0),
+      ],
+   q(kabras) => [
+      q(3931),
+      q(0),
+      ],
+   q(kaburi) => [
+      q(6864),
+      q(0),
+      ],
+   q(kabutra) => [
+      q(3202),
+      q(0),
+      ],
+   q(kabuverdianu) => [
+      q(3256),
+      q(0),
+      ],
+   q(kabwa) => [
+      q(1918),
+      q(0),
+      ],
+   q(kabwari) => [
+      q(3230),
+      q(0),
+      ],
+   q(kabyle) => [
+      q(0210),
+      q(0),
+      ],
+   q(kachama-ganjule) => [
+      q(3231),
+      q(0),
+      ],
+   q(kachari) => [
+      q(7261),
+      q(0),
+      ],
+   q(kachhi) => [
+      q(3299),
+      q(0),
+      ],
+   q(kachi koli) => [
+      q(2530),
+      q(0),
+      ],
+   q(kachin) => [
+      q(0211),
+      q(0),
+      ],
+   q(kacipo-balesi) => [
+      q(3505),
+      q(0),
+      ],
+   q(kaco') => [
+      q(7364),
+      q(0),
+      ],
+   q(kadai) => [
+      q(3764),
+      q(0),
+      ],
+   q(kadar) => [
+      q(3265),
+      q(0),
+      ],
+   q(kadaru) => [
+      q(3251),
+      q(0),
+      ],
+   q(kadazan dusun) => [
+      q(2159),
+      q(0),
+      ],
+   q(kadiweu) => [
+      q(3186),
+      q(0),
+      ],
+   q(kadu) => [
+      q(7845),
+      q(0),
+      ],
+   q(kaduo) => [
+      q(3630),
+      q(0),
+      ],
+   q(kaera) => [
+      q(3107),
+      q(0),
+      ],
+   q(kafa) => [
+      q(3199),
+      q(0),
+      ],
+   q(kafoa) => [
+      q(3538),
+      q(0),
+      ],
+   q(kagan kalagan) => [
+      q(3437),
+      q(0),
+      ],
+   q(kagate) => [
+      q(6332),
+      q(0),
+      ],
+   q(kagayanen) => [
+      q(1713),
+      q(0),
+      ],
+   q(kagoma) => [
+      q(3245),
+      q(0),
+      ],
+   q(kagoro) => [
+      q(7361),
+      q(0),
+      ],
+   q(kagulu) => [
+      q(3408),
+      q(0),
+      ],
+   q(kahe) => [
+      q(2764),
+      q(0),
+      ],
+   q(kahua) => [
+      q(0674),
+      q(0),
+      ],
+   q(kaian) => [
+      q(3227),
+      q(0),
+      ],
+   q(kaibobo) => [
+      q(3762),
+      q(0),
+      ],
+   q(kaidipang) => [
+      q(3774),
+      q(0),
+      ],
+   q(kaiep) => [
+      q(3204),
+      q(0),
+      ],
+   q(kaikadi) => [
+      q(3271),
+      q(0),
+      ],
+   q(kaikavian literary language) => [
+      q(3396),
+      q(0),
+      ],
+   q(kaike) => [
+      q(3775),
+      q(0),
+      ],
+   q(kaiku) => [
+      q(3416),
+      q(0),
+      ],
+   q(kaimbe) => [
+      q(7265),
+      q(0),
+      ],
+   q(kaimbulawa) => [
+      q(7843),
+      q(0),
+      ],
+   q(kaingang) => [
+      q(3320),
+      q(0),
+      ],
+   q(kairak) => [
+      q(1758),
+      q(0),
+      ],
+   q(kairiru) => [
+      q(3711),
+      q(0),
+      ],
+   q(kairui-midiki) => [
+      q(3572),
+      q(0),
+      ],
+   q(kais) => [
+      q(3771),
+      q(0),
+      ],
+   q(kaivi) => [
+      q(3212),
+      q(0),
+      ],
+   q(kaiwa) => [
+      q(3315),
+      q(0),
+      ],
+   q(kaiy) => [
+      q(6409),
+      q(0),
+      ],
+   q(kajakse) => [
+      q(1757),
+      q(0),
+      ],
+   q(kajali) => [
+      q(7363),
+      q(0),
+      ],
+   q(kajaman) => [
+      q(3173),
+      q(0),
+      ],
+   q(kakabai) => [
+      q(3549),
+      q(0),
+      ],
+   q(kakabe) => [
+      q(3404),
+      q(0),
+      ],
+   q(kakanda) => [
+      q(3400),
+      q(0),
+      ],
+   q(kaki ae) => [
+      q(6372),
+      q(0),
+      ],
+   q(kako) => [
+      q(3409),
+      q(0),
+      ],
+   q(kakwa) => [
+      q(3270),
+      q(0),
+      ],
+   q(kala) => [
+      q(3219),
+      q(1),
+      ],
+   q(kala lagaw ya) => [
+      q(4630),
+      q(0),
+      ],
+   q(kalaallisut) => [
+      q(0212),
+      q(0),
+      ],
+   q(kalaamaya) => [
+      q(3939),
+      q(0),
+      ],
+   q(kalabakan) => [
+      q(3665),
+      q(0),
+      ],
+   q(kalabari) => [
+      q(2934),
+      q(0),
+      ],
+   q(kalabra) => [
+      q(3783),
+      q(0),
+      ],
+   q(kalagan) => [
+      q(3548),
+      q(0),
+      ],
+   q(kalaktang monpa) => [
+      q(3405),
+      q(0),
+      ],
+   q(kalam) => [
+      q(3458),
+      q(0),
+      ],
+   q(kalami) => [
+      q(2678),
+      q(0),
+      ],
+   q(kalamse) => [
+      q(3501),
+      q(0),
+      ],
+   q(kalanadi) => [
+      q(7134),
+      q(0),
+      ],
+   q(kalanga) => [
+      q(3218),
+      q(0),
+      ],
+   q(kalanguya) => [
+      q(3177),
+      q(0),
+      ],
+   q(kalao) => [
+      q(3450),
+      q(0),
+      ],
+   q(kalapuya) => [
+      q(3746),
+      q(0),
+      ],
+   q(kalarko) => [
+      q(3184),
+      q(0),
+      ],
+   q(kalasha) => [
+      q(3444),
+      q(0),
+      ],
+   q(kalenjin) => [
+      q(3439),
+      q(0),
+      ],
+   q(kalispel-pend d'oreille) => [
+      q(2350),
+      q(0),
+      ],
+   q(kalkoti) => [
+      q(7355),
+      q(0),
+      ],
+   q(kalkutung) => [
+      q(3621),
+      q(0),
+      ],
+   q(kalmyk) => [
+      q(0471),
+      q(0),
+      ],
+   q(kalo finnish romani) => [
+      q(5800),
+      q(0),
+      ],
+   q(kalou) => [
+      q(7770),
+      q(0),
+      ],
+   q(kaluli) => [
+      q(1079),
+      q(0),
+      ],
+   q(kalumpang) => [
+      q(3434),
+      q(0),
+      ],
+   q(kam) => [
+      q(3253),
+      q(0),
+      ],
+   q(kamakan) => [
+      q(6996),
+      q(0),
+      ],
+   q(kamang) => [
+      q(7189),
+      q(0),
+      ],
+   q(kamano) => [
+      q(3198),
+      q(0),
+      ],
+   q(kamantan) => [
+      q(3216),
+      q(0),
+      ],
+   q(kamar) => [
+      q(3272),
+      q(0),
+      ],
+   q(kamara) => [
+      q(3122),
+      q(0),
+      ],
+   q(kamarian) => [
+      q(3781),
+      q(0),
+      ],
+   q(kamaru) => [
+      q(3328),
+      q(0),
+      ],
+   q(kamas) => [
+      q(7274),
+      q(0),
+      ],
+   q(kamasa) => [
+      q(3441),
+      q(0),
+      ],
+   q(kamasau) => [
+      q(3469),
+      q(0),
+      ],
+   q(kamayo) => [
+      q(3745),
+      q(0),
+      ],
+   q(kamayura) => [
+      q(3183),
+      q(0),
+      ],
+   q(kamba) => [
+      q(0213),
+      q(0),
+      ],
+   q(kamba (kenya)) => [
+      q(0213),
+      q(1),
+      ],
+   q(kambaata) => [
+      q(3616),
+      q(0),
+      ],
+   q(kambaira) => [
+      q(3759),
+      q(0),
+      ],
+   q(kambera) => [
+      q(7291),
+      q(0),
+      ],
+   q(kamberau) => [
+      q(2992),
+      q(0),
+      ],
+   q(kambiwa) => [
+      q(7292),
+      q(0),
+      ],
+   q(kami (nigeria)) => [
+      q(3459),
+      q(0),
+      ],
+   q(kami (tanzania)) => [
+      q(3228),
+      q(0),
+      ],
+   q(kamo) => [
+      q(3224),
+      q(0),
+      ],
+   q(kamoro) => [
+      q(3321),
+      q(0),
+      ],
+   q(kamta) => [
+      q(5793),
+      q(1),
+      ],
+   q(kamu) => [
+      q(7411),
+      q(0),
+      ],
+   q(kamula) => [
+      q(7379),
+      q(0),
+      ],
+   q(kamviri) => [
+      q(7529),
+      q(0),
+      ],
+   q(kamwe) => [
+      q(2754),
+      q(0),
+      ],
+   q(kanakanabu) => [
+      q(7418),
+      q(0),
+      ],
+   q(kanamari) => [
+      q(3488),
+      q(0),
+      ],
+   q(kanan) => [
+      q(7849),
+      q(0),
+      ],
+   q(kanashi) => [
+      q(7426),
+      q(0),
+      ],
+   q(kanasi) => [
+      q(6158),
+      q(0),
+      ],
+   q(kanauji) => [
+      q(1239),
+      q(0),
+      ],
+   q(kandas) => [
+      q(3566),
+      q(0),
+      ],
+   q(kandawo) => [
+      q(2407),
+      q(0),
+      ],
+   q(kande) => [
+      q(3200),
+      q(0),
+      ],
+   q(kanembu) => [
+      q(3193),
+      q(0),
+      ],
+   q(kang) => [
+      q(3750),
+      q(0),
+      ],
+   q(kanga) => [
+      q(3223),
+      q(0),
+      ],
+   q(kangean) => [
+      q(3421),
+      q(0),
+      ],
+   q(kanggape) => [
+      q(2921),
+      q(0),
+      ],
+   q(kangjia) => [
+      q(3727),
+      q(0),
+      ],
+   q(kango (bas-uele district)) => [
+      q(3638),
+      q(0),
+      ],
+   q(kango (tshopo district)) => [
+      q(3782),
+      q(0),
+      ],
+   q(kangri) => [
+      q(7425),
+      q(0),
+      ],
+   q(kaniet) => [
+      q(3625),
+      q(0),
+      ],
+   q(kanikkaran) => [
+      q(3277),
+      q(0),
+      ],
+   q(kaningdon-nindem) => [
+      q(3247),
+      q(0),
+      ],
+   q(kaningi) => [
+      q(3773),
+      q(0),
+      ],
+   q(kaningra) => [
+      q(3493),
+      q(0),
+      ],
+   q(kaninuwa) => [
+      q(7056),
+      q(0),
+      ],
+   q(kanite) => [
+      q(3471),
+      q(0),
+      ],
+   q(kanjari) => [
+      q(3301),
+      q(0),
+      ],
+   q(kanjobal) => [
+      q(3376),
+      q(1),
+      ],
+   q(kanju) => [
+      q(3187),
+      q(0),
+      ],
+   q(kankanaey) => [
+      q(3481),
+      q(0),
+      ],
+   q(kannada) => [
+      q(0214),
+      q(0),
+      ],
+   q(kannada kurumba) => [
+      q(3290),
+      q(0),
+      ],
+   q(kanoe) => [
+      q(3723),
+      q(0),
+      ],
+   q(kanowit-tanjong melanau) => [
+      q(3722),
+      q(0),
+      ],
+   q(kansa) => [
+      q(3599),
+      q(0),
+      ],
+   q(kantosi) => [
+      q(7372),
+      q(0),
+      ],
+   q(kanu) => [
+      q(3349),
+      q(0),
+      ],
+   q(kanufi) => [
+      q(3484),
+      q(0),
+      ],
+   q(kanuri) => [
+      q(0217),
+      q(0),
+      ],
+   q(kanyok) => [
+      q(3500),
+      q(0),
+      ],
+   q(kao) => [
+      q(3182),
+      q(0),
+      ],
+   q(kaonde) => [
+      q(3557),
+      q(0),
+      ],
+   q(kap) => [
+      q(7654),
+      q(0),
+      ],
+   q(kapampangan) => [
+      q(0338),
+      q(1),
+      ],
+   q(kapauri) => [
+      q(3341),
+      q(1),
+      ],
+   q(kapin) => [
+      q(6391),
+      q(0),
+      ],
+   q(kapinawa) => [
+      q(7450),
+      q(0),
+      ],
+   q(kapingamarangi) => [
+      q(3525),
+      q(0),
+      ],
+   q(kapori) => [
+      q(3341),
+      q(0),
+      ],
+   q(kapriman) => [
+      q(2065),
+      q(0),
+      ],
+   q(kaptiau) => [
+      q(3190),
+      q(0),
+      ],
+   q(kapya) => [
+      q(3440),
+      q(0),
+      ],
+   q(kaqchikel) => [
+      q(1646),
+      q(0),
+      ],
+   q(kara (central african republic)) => [
+      q(3174),
+      q(0),
+      ],
+   q(kara (korea)) => [
+      q(7926),
+      q(0),
+      ],
+   q(kara (papua new guinea)) => [
+      q(3870),
+      q(0),
+      ],
+   q(kara (tanzania)) => [
+      q(5758),
+      q(0),
+      ],
+   q(kara-kalpak) => [
+      q(0209),
+      q(0),
+      ],
+   q(karachay-balkar) => [
+      q(0235),
+      q(0),
+      ],
+   q(karadjeri) => [
+      q(2420),
+      q(0),
+      ],
+   q(karagas) => [
+      q(3363),
+      q(0),
+      ],
+   q(karaim) => [
+      q(3249),
+      q(0),
+      ],
+   q(karaja) => [
+      q(3528),
+      q(0),
+      ],
+   q(karakhanid) => [
+      q(7459),
+      q(0),
+      ],
+   q(karami) => [
+      q(7273),
+      q(0),
+      ],
+   q(karamojong) => [
+      q(3242),
+      q(0),
+      ],
+   q(karang) => [
+      q(3776),
+      q(0),
+      ],
+   q(karanga) => [
+      q(3622),
+      q(0),
+      ],
+   q(karankawa) => [
+      q(7848),
+      q(0),
+      ],
+   q(karao) => [
+      q(3744),
+      q(0),
+      ],
+   q(karas) => [
+      q(3326),
+      q(0),
+      ],
+   q(karata) => [
+      q(3537),
+      q(0),
+      ],
+   q(karawa) => [
+      q(7473),
+      q(0),
+      ],
+   q(karbi) => [
+      q(4333),
+      q(0),
+      ],
+   q(kare (central african republic)) => [
+      q(3195),
+      q(0),
+      ],
+   q(kare (papua new guinea)) => [
+      q(3456),
+      q(0),
+      ],
+   q(karekare) => [
+      q(3175),
+      q(0),
+      ],
+   q(karelian) => [
+      q(0236),
+      q(0),
+      ],
+   q(karen languages) => [
+      q(0215),
+      q(0),
+      ],
+   q(karenggapa) => [
+      q(2208),
+      q(0),
+      ],
+   q(karey) => [
+      q(3738),
+      q(0),
+      ],
+   q(kari) => [
+      q(3191),
+      q(0),
+      ],
+   q(karingani) => [
+      q(3318),
+      q(0),
+      ],
+   q(karipuna) => [
+      q(3317),
+      q(0),
+      ],
+   q(karipuna creole french) => [
+      q(3472),
+      q(0),
+      ],
+   q(kariri-xoco) => [
+      q(3780),
+      q(0),
+      ],
+   q(karitiana) => [
+      q(3628),
+      q(0),
+      ],
+   q(kariya) => [
+      q(3362),
+      q(0),
+      ],
+   q(kariyarra) => [
+      q(6991),
+      q(0),
+      ],
+   q(karkar-yuri) => [
+      q(7755),
+      q(0),
+      ],
+   q(karkin) => [
+      q(3571),
+      q(0),
+      ],
+   q(karko) => [
+      q(3414),
+      q(0),
+      ],
+   q(karnai) => [
+      q(1060),
+      q(0),
+      ],
+   q(karo (brazil)) => [
+      q(0879),
+      q(0),
+      ],
+   q(karo (ethiopia)) => [
+      q(3716),
+      q(0),
+      ],
+   q(karok) => [
+      q(3742),
+      q(0),
+      ],
+   q(karon) => [
+      q(3586),
+      q(0),
+      ],
+   q(karon dori) => [
+      q(3327),
+      q(0),
+      ],
+   q(karore) => [
+      q(7376),
+      q(0),
+      ],
+   q(karranga) => [
+      q(7469),
+      q(0),
+      ],
+   q(karuwali) => [
+      q(5871),
+      q(0),
+      ],
+   q(kasanga) => [
+      q(1683),
+      q(0),
+      ],
+   q(kasem) => [
+      q(7482),
+      q(0),
+      ],
+   q(kashaya) => [
+      q(3395),
+      q(0),
+      ],
+   q(kashmiri) => [
+      q(0216),
+      q(0),
+      ],
+   q(kashubian) => [
+      q(0100),
+      q(0),
+      ],
+   q(kasiguranin) => [
+      q(3602),
+      q(0),
+      ],
+   q(kaska) => [
+      q(3425),
+      q(0),
+      ],
+   q(kaskean) => [
+      q(7933),
+      q(0),
+      ],
+   q(kasua) => [
+      q(3344),
+      q(0),
+      ],
+   q(katabaga) => [
+      q(3631),
+      q(0),
+      ],
+   q(katawixi) => [
+      q(7275),
+      q(0),
+      ],
+   q(katbol) => [
+      q(6575),
+      q(0),
+      ],
+   q(katcha-kadugli-miri) => [
+      q(7494),
+      q(0),
+      ],
+   q(kate) => [
+      q(3457),
+      q(0),
+      ],
+   q(kathoriya tharu) => [
+      q(6547),
+      q(0),
+      ],
+   q(kathu) => [
+      q(7658),
+      q(0),
+      ],
+   q(kati) => [
+      q(1453),
+      q(0),
+      ],
+   q(katkari) => [
+      q(3302),
+      q(0),
+      ],
+   q(katla) => [
+      q(3225),
+      q(0),
+      ],
+   q(kato) => [
+      q(3636),
+      q(0),
+      ],
+   q(katso) => [
+      q(3172),
+      q(0),
+      ],
+   q(katua) => [
+      q(3615),
+      q(0),
+      ],
+   q(katukina) => [
+      q(3181),
+      q(0),
+      ],
+   q(kaulong) => [
+      q(5615),
+      q(0),
+      ],
+   q(kaur) => [
+      q(6994),
+      q(0),
+      ],
+   q(kaure) => [
+      q(1387),
+      q(0),
+      ],
+   q(kaurna) => [
+      q(7854),
+      q(0),
+      ],
+   q(kauwera) => [
+      q(7276),
+      q(0),
+      ],
+   q(kavalan) => [
+      q(1762),
+      q(0),
+      ],
+   q(kavet) => [
+      q(3584),
+      q(0),
+      ],
+   q(kawacha) => [
+      q(3209),
+      q(0),
+      ],
+   q(kawaiisu) => [
+      q(7278),
+      q(0),
+      ],
+   q(kawe) => [
+      q(3309),
+      q(0),
+      ],
+   q(kawi) => [
+      q(0218),
+      q(0),
+      ],
+   q(kaxarari) => [
+      q(3637),
+      q(0),
+      ],
+   q(kaxuiana) => [
+      q(3185),
+      q(0),
+      ],
+   q(kayabi) => [
+      q(3760),
+      q(0),
+      ],
+   q(kayagar) => [
+      q(3754),
+      q(0),
+      ],
+   q(kayan) => [
+      q(5399),
+      q(0),
+      ],
+   q(kayan mahakam) => [
+      q(7279),
+      q(0),
+      ],
+   q(kayan river kayan) => [
+      q(7366),
+      q(0),
+      ],
+   q(kayapa kallahan) => [
+      q(3177),
+      q(1),
+      ],
+   q(kayapo) => [
+      q(6811),
+      q(0),
+      ],
+   q(kayardild) => [
+      q(2694),
+      q(0),
+      ],
+   q(kayaw) => [
+      q(3672),
+      q(0),
+      ],
+   q(kayeli) => [
+      q(3770),
+      q(0),
+      ],
+   q(kayong) => [
+      q(3733),
+      q(0),
+      ],
+   q(kayort) => [
+      q(3756),
+      q(0),
+      ],
+   q(kaytetye) => [
+      q(2419),
+      q(0),
+      ],
+   q(kayupulau) => [
+      q(3778),
+      q(0),
+      ],
+   q(kazakh) => [
+      q(0219),
+      q(0),
+      ],
+   q(kazukuru) => [
+      q(3769),
+      q(0),
+      ],
+   q(ke'o) => [
+      q(7546),
+      q(0),
+      ],
+   q(keak) => [
+      q(3263),
+      q(0),
+      ],
+   q(keapara) => [
+      q(3351),
+      q(0),
+      ],
+   q(kedah malay) => [
+      q(4206),
+      q(0),
+      ],
+   q(kedang) => [
+      q(3612),
+      q(0),
+      ],
+   q(keder) => [
+      q(3254),
+      q(0),
+      ],
+   q(kehu) => [
+      q(3336),
+      q(0),
+      ],
+   q(kei) => [
+      q(3264),
+      q(0),
+      ],
+   q(keiga) => [
+      q(3258),
+      q(0),
+      ],
+   q(keijar) => [
+      q(3254),
+      q(1),
+      ],
+   q(kein) => [
+      q(1310),
+      q(0),
+      ],
+   q(keiyo) => [
+      q(2316),
+      q(0),
+      ],
+   q(kekchi) => [
+      q(3266),
+      q(0),
+      ],
+   q(kela (democratic republic of congo)) => [
+      q(3267),
+      q(0),
+      ],
+   q(kela (papua new guinea)) => [
+      q(3219),
+      q(0),
+      ],
+   q(kelabit) => [
+      q(3768),
+      q(0),
+      ],
+   q(kele) => [
+      q(3257),
+      q(0),
+      ],
+   q(kele (democratic republic of congo)) => [
+      q(3350),
+      q(0),
+      ],
+   q(kele (papua new guinea)) => [
+      q(5894),
+      q(0),
+      ],
+   q(kelengazxo bozo) => [
+      q(1635),
+      q(0),
+      ],
+   q(keley-i kallahan) => [
+      q(2916),
+      q(0),
+      ],
+   q(keliko) => [
+      q(3196),
+      q(0),
+      ],
+   q(kelo) => [
+      q(7318),
+      q(0),
+      ],
+   q(kelon) => [
+      q(3749),
+      q(0),
+      ],
+   q(kemak) => [
+      q(3268),
+      q(0),
+      ],
+   q(kembayan) => [
+      q(7319),
+      q(0),
+      ],
+   q(kemberano) => [
+      q(1627),
+      q(0),
+      ],
+   q(kembra) => [
+      q(7375),
+      q(0),
+      ],
+   q(kemedzung) => [
+      q(2085),
+      q(0),
+      ],
+   q(kemi sami) => [
+      q(6051),
+      q(0),
+      ],
+   q(kemiehua) => [
+      q(3291),
+      q(0),
+      ],
+   q(kemtuik) => [
+      q(3470),
+      q(0),
+      ],
+   q(kenaboi) => [
+      q(7288),
+      q(0),
+      ],
+   q(kenati) => [
+      q(2414),
+      q(0),
+      ],
+   q(kendayan) => [
+      q(3499),
+      q(0),
+      ],
+   q(kendeje) => [
+      q(3431),
+      q(0),
+      ],
+   q(kendem) => [
+      q(3673),
+      q(0),
+      ],
+   q(kenga) => [
+      q(3751),
+      q(0),
+      ],
+   q(keningau murut) => [
+      q(3717),
+      q(0),
+      ],
+   q(keninjal) => [
+      q(3487),
+      q(0),
+      ],
+   q(kensiu) => [
+      q(3494),
+      q(0),
+      ],
+   q(kenswei nsei) => [
+      q(4778),
+      q(0),
+      ],
+   q(kenyan sign language) => [
+      q(7362),
+      q(0),
+      ],
+   q(kenyang) => [
+      q(3269),
+      q(0),
+      ],
+   q(kenyi) => [
+      q(3934),
+      q(0),
+      ],
+   q(kenzi) => [
+      q(7430),
+      q(0),
+      ],
+   q(keoru-ahia) => [
+      q(7324),
+      q(0),
+      ],
+   q(kepkiriwat) => [
+      q(3532),
+      q(0),
+      ],
+   q(kepo') => [
+      q(3649),
+      q(0),
+      ],
+   q(kera) => [
+      q(3273),
+      q(0),
+      ],
+   q(kerak) => [
+      q(2748),
+      q(0),
+      ],
+   q(kereho) => [
+      q(7359),
+      q(0),
+      ],
+   q(kerek) => [
+      q(3578),
+      q(0),
+      ],
+   q(kerewe) => [
+      q(3259),
+      q(0),
+      ],
+   q(kerewo) => [
+      q(3734),
+      q(0),
+      ],
+   q(kerinci) => [
+      q(3678),
+      q(0),
+      ],
+   q(kesawai) => [
+      q(7322),
+      q(0),
+      ],
+   q(ket) => [
+      q(3275),
+      q(0),
+      ],
+   q(ketangalan) => [
+      q(3171),
+      q(0),
+      ],
+   q(kete) => [
+      q(3229),
+      q(0),
+      ],
+   q(ketengban) => [
+      q(7496),
+      q(0),
+      ],
+   q(ketum) => [
+      q(3633),
+      q(0),
+      ],
+   q(keyagana) => [
+      q(3741),
+      q(0),
+      ],
+   q(kgalagadi) => [
+      q(7374),
+      q(0),
+      ],
+   q(khakas) => [
+      q(3382),
+      q(0),
+      ],
+   q(khalaj) => [
+      q(3380),
+      q(0),
+      ],
+   q(khaling) => [
+      q(3443),
+      q(0),
+      ],
+   q(khamba) => [
+      q(3188),
+      q(0),
+      ],
+   q(khams tibetan) => [
+      q(3335),
+      q(0),
+      ],
+   q(khamti) => [
+      q(3345),
+      q(0),
+      ],
+   q(khamyang) => [
+      q(3609),
+      q(0),
+      ],
+   q(khana) => [
+      q(5207),
+      q(0),
+      ],
+   q(khandesi) => [
+      q(3340),
+      q(0),
+      ],
+   q(khang) => [
+      q(3387),
+      q(0),
+      ],
+   q(khanty) => [
+      q(3208),
+      q(0),
+      ],
+   q(khao) => [
+      q(7270),
+      q(0),
+      ],
+   q(kharam naga) => [
+      q(3304),
+      q(0),
+      ],
+   q(kharia) => [
+      q(3343),
+      q(0),
+      ],
+   q(kharia thar) => [
+      q(3613),
+      q(0),
+      ],
+   q(khasi) => [
+      q(0221),
+      q(0),
+      ],
+   q(khayo) => [
+      q(3941),
+      q(0),
+      ],
+   q(khazar) => [
+      q(7856),
+      q(0),
+      ],
+   q(khe) => [
+      q(3550),
+      q(0),
+      ],
+   q(khehek) => [
+      q(6572),
+      q(0),
+      ],
+   q(khengkha) => [
+      q(7360),
+      q(0),
+      ],
+   q(khetrani) => [
+      q(7340),
+      q(0),
+      ],
+   q(khezha naga) => [
+      q(4922),
+      q(0),
+      ],
+   q(khiamniungan naga) => [
+      q(3372),
+      q(0),
+      ],
+   q(khinalugh) => [
+      q(3384),
+      q(0),
+      ],
+   q(khirwar) => [
+      q(3708),
+      q(0),
+      ],
+   q(khisa) => [
+      q(3556),
+      q(0),
+      ],
+   q(khlor) => [
+      q(3961),
+      q(0),
+      ],
+   q(khlula) => [
+      q(7653),
+      q(0),
+      ],
+   q(khmu) => [
+      q(3381),
+      q(0),
+      ],
+   q(kho'ini) => [
+      q(7357),
+      q(0),
+      ],
+   q(khoekhoe) => [
+      q(4724),
+      q(0),
+      ],
+   q(khoibu naga) => [
+      q(4916),
+      q(0),
+      ],
+   q(khoisan languages) => [
+      q(0222),
+      q(0),
+      ],
+   q(kholok) => [
+      q(3617),
+      q(0),
+      ],
+   q(khonso) => [
+      q(3713),
+      q(1),
+      ],
+   q(khorasani turkish) => [
+      q(3476),
+      q(0),
+      ],
+   q(khorezmian) => [
+      q(7847),
+      q(0),
+      ],
+   q(khotanese) => [
+      q(0224),
+      q(0),
+      ],
+   q(khowar) => [
+      q(3348),
+      q(0),
+      ],
+   q(khua) => [
+      q(7344),
+      q(0),
+      ],
+   q(khuen) => [
+      q(3334),
+      q(0),
+      ],
+   q(khumi chin) => [
+      q(1798),
+      q(0),
+      ],
+   q(khun) => [
+      q(3407),
+      q(0),
+      ],
+   q(khunsari) => [
+      q(3294),
+      q(0),
+      ],
+   q(khvarshi) => [
+      q(3347),
+      q(0),
+      ],
+   q(khwedam) => [
+      q(7527),
+      q(1),
+      ],
+   q(kibala) => [
+      q(1298),
+      q(0),
+      ],
+   q(kibet) => [
+      q(3356),
+      q(0),
+      ],
+   q(kibiri) => [
+      q(5590),
+      q(0),
+      ],
+   q(kickapoo) => [
+      q(3354),
+      q(0),
+      ],
+   q(kiembu) => [
+      q(2213),
+      q(1),
+      ],
+   q(kigiryama) => [
+      q(5155),
+      q(1),
+      ],
+   q(kikai) => [
+      q(3767),
+      q(0),
+      ],
+   q(kikuyu) => [
+      q(0225),
+      q(0),
+      ],
+   q(kildin sami) => [
+      q(6048),
+      q(0),
+      ],
+   q(kilivila) => [
+      q(3361),
+      q(0),
+      ],
+   q(kiliwa) => [
+      q(3427),
+      q(0),
+      ],
+   q(kilmeri) => [
+      q(3359),
+      q(0),
+      ],
+   q(kim) => [
+      q(3352),
+      q(0),
+      ],
+   q(kim mun) => [
+      q(4319),
+      q(0),
+      ],
+   q(kimaama) => [
+      q(3358),
+      q(0),
+      ],
+   q(kimaghima) => [
+      q(3358),
+      q(1),
+      ],
+   q(kimaragang) => [
+      q(3561),
+      q(0),
+      ],
+   q(kimbu) => [
+      q(3370),
+      q(0),
+      ],
+   q(kimbundu) => [
+      q(0228),
+      q(0),
+      ],
+   q(kimki) => [
+      q(5911),
+      q(0),
+      ],
+   q(kimre) => [
+      q(3559),
+      q(0),
+      ],
+   q(kinabalian) => [
+      q(1675),
+      q(0),
+      ],
+   q(kinalakna) => [
+      q(3222),
+      q(0),
+      ],
+   q(kinamiging manobo) => [
+      q(4358),
+      q(0),
+      ],
+   q(kinaray-a) => [
+      q(3577),
+      q(0),
+      ],
+   q(kinga) => [
+      q(7824),
+      q(0),
+      ],
+   q(kinnauri) => [
+      q(3292),
+      q(0),
+      ],
+   q(kintaq) => [
+      q(3492),
+      q(0),
+      ],
+   q(kinuku) => [
+      q(3403),
+      q(0),
+      ],
+   q(kinyarwanda) => [
+      q(0226),
+      q(0),
+      ],
+   q(kioko) => [
+      q(6852),
+      q(0),
+      ],
+   q(kiong) => [
+      q(3412),
+      q(0),
+      ],
+   q(kiorr) => [
+      q(7367),
+      q(0),
+      ],
+   q(kiowa) => [
+      q(3364),
+      q(0),
+      ],
+   q(kiowa apache) => [
+      q(0844),
+      q(0),
+      ],
+   q(kipfokomo) => [
+      q(5472),
+      q(1),
+      ],
+   q(kipsigis) => [
+      q(5983),
+      q(0),
+      ],
+   q(kiput) => [
+      q(3743),
+      q(0),
+      ],
+   q(kir-balar) => [
+      q(3417),
+      q(0),
+      ],
+   q(kirdki) => [
+      q(0487),
+      q(3),
+      ],
+   q(kire) => [
+      q(2472),
+      q(0),
+      ],
+   q(kirghiz) => [
+      q(0227),
+      q(0),
+      ],
+   q(kirike) => [
+      q(5233),
+      q(0),
+      ],
+   q(kirikiri) => [
+      q(3373),
+      q(0),
+      ],
+   q(kirmanjki) => [
+      q(0487),
+      q(4),
+      ],
+   q(kirmanjki (individual language)) => [
+      q(3369),
+      q(0),
+      ],
+   q(kirmanjki (macrolanguage)) => [
+      q(0487),
+      q(7),
+      ],
+   q(kirya-konzel) => [
+      q(2348),
+      q(0),
+      ],
+   q(kis) => [
+      q(3367),
+      q(0),
+      ],
+   q(kisa) => [
+      q(3943),
+      q(0),
+      ],
+   q(kisan) => [
+      q(7350),
+      q(0),
+      ],
+   q(kisankasa) => [
+      q(3551),
+      q(0),
+      ],
+   q(kisar) => [
+      q(3379),
+      q(0),
+      ],
+   q(kisi) => [
+      q(3374),
+      q(0),
+      ],
+   q(kistane) => [
+      q(2624),
+      q(0),
+      ],
+   q(kiswahili) => [
+      q(6292),
+      q(1),
+      ],
+   q(kita maninkakan) => [
+      q(4626),
+      q(0),
+      ],
+   q(kitan) => [
+      q(7853),
+      q(0),
+      ],
+   q(kitharaka) => [
+      q(6491),
+      q(1),
+      ],
+   q(kitja) => [
+      q(2510),
+      q(0),
+      ],
+   q(kitsai) => [
+      q(3360),
+      q(0),
+      ],
+   q(kituba (congo)) => [
+      q(4357),
+      q(0),
+      ],
+   q(kituba (democratic republic of congo)) => [
+      q(3634),
+      q(0),
+      ],
+   q(kiunum) => [
+      q(7092),
+      q(0),
+      ],
+   q(kiwilwana) => [
+      q(4369),
+      q(1),
+      ],
+   q(kla-dan) => [
+      q(3837),
+      q(0),
+      ],
+   q(klamath-modoc) => [
+      q(3426),
+      q(0),
+      ],
+   q(klao) => [
+      q(3446),
+      q(0),
+      ],
+   q(klias river kadazan) => [
+      q(3563),
+      q(0),
+      ],
+   q(klingon) => [
+      q(0433),
+      q(0),
+      ],
+   q(knaanic) => [
+      q(1928),
+      q(0),
+      ],
+   q(ko) => [
+      q(2385),
+      q(0),
+      ],
+   q(koalib) => [
+      q(3353),
+      q(0),
+      ],
+   q(koasati) => [
+      q(1761),
+      q(0),
+      ],
+   q(koba) => [
+      q(3523),
+      q(0),
+      ],
+   q(kobiana) => [
+      q(3217),
+      q(0),
+      ],
+   q(kobol) => [
+      q(3325),
+      q(0),
+      ],
+   q(kobon) => [
+      q(3540),
+      q(0),
+      ],
+   q(koch) => [
+      q(3248),
+      q(0),
+      ],
+   q(kochila tharu) => [
+      q(6496),
+      q(0),
+      ],
+   q(koda) => [
+      q(1702),
+      q(0),
+      ],
+   q(kodaku) => [
+      q(3614),
+      q(0),
+      ],
+   q(kodava) => [
+      q(3282),
+      q(0),
+      ],
+   q(kodeoha) => [
+      q(6997),
+      q(0),
+      ],
+   q(kodi) => [
+      q(3504),
+      q(0),
+      ],
+   q(kodia) => [
+      q(3701),
+      q(0),
+      ],
+   q(koenoem) => [
+      q(3226),
+      q(0),
+      ],
+   q(kofa) => [
+      q(3603),
+      q(0),
+      ],
+   q(kofei) => [
+      q(3527),
+      q(0),
+      ],
+   q(kofyar) => [
+      q(3697),
+      q(0),
+      ],
+   q(kogi) => [
+      q(3507),
+      q(1),
+      ],
+   q(koguryo) => [
+      q(7846),
+      q(0),
+      ],
+   q(kohin) => [
+      q(3423),
+      q(0),
+      ],
+   q(kohistani shina) => [
+      q(5491),
+      q(0),
+      ],
+   q(koho) => [
+      q(3531),
+      q(0),
+      ],
+   q(kohumono) => [
+      q(1083),
+      q(0),
+      ],
+   q(koi) => [
+      q(3419),
+      q(0),
+      ],
+   q(koibal) => [
+      q(7844),
+      q(0),
+      ],
+   q(koireng) => [
+      q(4918),
+      q(0),
+      ],
+   q(koitabu) => [
+      q(3552),
+      q(0),
+      ],
+   q(koiwat) => [
+      q(3728),
+      q(0),
+      ],
+   q(kok borok) => [
+      q(6686),
+      q(0),
+      ],
+   q(kok-nar) => [
+      q(2538),
+      q(0),
+      ],
+   q(kokata) => [
+      q(3618),
+      q(0),
+      ],
+   q(koke) => [
+      q(3515),
+      q(0),
+      ],
+   q(koki naga) => [
+      q(5142),
+      q(0),
+      ],
+   q(koko babangk) => [
+      q(5224),
+      q(0),
+      ],
+   q(kokoda) => [
+      q(7432),
+      q(0),
+      ],
+   q(kokola) => [
+      q(3772),
+      q(0),
+      ],
+   q(kokota) => [
+      q(3410),
+      q(0),
+      ],
+   q(kol) => [
+      q(2233),
+      q(1),
+      ],
+   q(kol (bangladesh)) => [
+      q(2233),
+      q(0),
+      ],
+   q(kol (cameroon)) => [
+      q(1227),
+      q(0),
+      ],
+   q(kol (papua new guinea)) => [
+      q(3510),
+      q(0),
+      ],
+   q(kola) => [
+      q(3681),
+      q(0),
+      ],
+   q(kolbila) => [
+      q(3428),
+      q(0),
+      ],
+   q(kolibugan subanon) => [
+      q(6073),
+      q(0),
+      ],
+   q(kolsch) => [
+      q(3596),
+      q(0),
+      ],
+   q(koluwawa) => [
+      q(3449),
+      q(0),
+      ],
+   q(kom (cameroon)) => [
+      q(1265),
+      q(0),
+      ],
+   q(kom (india)) => [
+      q(3463),
+      q(0),
+      ],
+   q(koma) => [
+      q(3475),
+      q(0),
+      ],
+   q(komba) => [
+      q(3524),
+      q(0),
+      ],
+   q(kombai) => [
+      q(6820),
+      q(0),
+      ],
+   q(kombio) => [
+      q(7285),
+      q(0),
+      ],
+   q(komering) => [
+      q(3310),
+      q(0),
+      ],
+   q(komi) => [
+      q(0230),
+      q(0),
+      ],
+   q(komi-permyak) => [
+      q(3509),
+      q(0),
+      ],
+   q(komi-zyrian) => [
+      q(3539),
+      q(0),
+      ],
+   q(kominimung) => [
+      q(7434),
+      q(0),
+      ],
+   q(komo (democratic republic of congo)) => [
+      q(3473),
+      q(0),
+      ],
+   q(komo (sudan)) => [
+      q(7436),
+      q(0),
+      ],
+   q(komodo) => [
+      q(3668),
+      q(0),
+      ],
+   q(kompane) => [
+      q(3676),
+      q(0),
+      ],
+   q(komyandaret) => [
+      q(3779),
+      q(0),
+      ],
+   q(kon keu) => [
+      q(3413),
+      q(0),
+      ],
+   q(konabere) => [
+      q(1053),
+      q(1),
+      ],
+   q(konai) => [
+      q(3731),
+      q(0),
+      ],
+   q(konda) => [
+      q(3480),
+      q(0),
+      ],
+   q(konda-dora) => [
+      q(3284),
+      q(0),
+      ],
+   q(koneraw) => [
+      q(3252),
+      q(0),
+      ],
+   q(kongo) => [
+      q(0231),
+      q(0),
+      ],
+   q(konkani) => [
+      q(0229),
+      q(0),
+      ],
+   q(konkani (individual language)) => [
+      q(3489),
+      q(0),
+      ],
+   q(konkani (macrolanguage)) => [
+      q(0229),
+      q(1),
+      ],
+   q(konkomba) => [
+      q(7437),
+      q(0),
+      ],
+   q(konni) => [
+      q(3452),
+      q(0),
+      ],
+   q(kono (guinea)) => [
+      q(3496),
+      q(0),
+      ],
+   q(kono (nigeria)) => [
+      q(3436),
+      q(0),
+      ],
+   q(kono (sierra leone)) => [
+      q(3490),
+      q(0),
+      ],
+   q(konomala) => [
+      q(3502),
+      q(0),
+      ],
+   q(konongo) => [
+      q(3233),
+      q(0),
+      ],
+   q(konso) => [
+      q(3713),
+      q(0),
+      ],
+   q(konyak naga) => [
+      q(4736),
+      q(0),
+      ],
+   q(konyanka maninka) => [
+      q(4355),
+      q(0),
+      ],
+   q(konzo) => [
+      q(3511),
+      q(0),
+      ],
+   q(koongo) => [
+      q(3483),
+      q(0),
+      ],
+   q(koonzime) => [
+      q(5341),
+      q(0),
+      ],
+   q(koorete) => [
+      q(3568),
+      q(0),
+      ],
+   q(kopar) => [
+      q(7439),
+      q(0),
+      ],
+   q(kopkaka) => [
+      q(5284),
+      q(0),
+      ],
+   q(korafe-yegha) => [
+      q(3535),
+      q(0),
+      ],
+   q(korak) => [
+      q(3519),
+      q(0),
+      ],
+   q(korana) => [
+      q(3569),
+      q(0),
+      ],
+   q(korandje) => [
+      q(3232),
+      q(0),
+      ],
+   q(kordofanian languages) => [
+      q(0516),
+      q(0),
+      ],
+   q(korean) => [
+      q(0232),
+      q(0),
+      ],
+   q(korean sign language) => [
+      q(3671),
+      q(0),
+      ],
+   q(koreguaje) => [
+      q(1810),
+      q(0),
+      ],
+   q(koresh-e rostam) => [
+      q(5225),
+      q(0),
+      ],
+   q(korku) => [
+      q(3298),
+      q(0),
+      ],
+   q(korlai creole portuguese) => [
+      q(6998),
+      q(0),
+      ],
+   q(koro (cote d'ivoire)) => [
+      q(3296),
+      q(0),
+      ],
+   q(koro (india)) => [
+      q(3111),
+      q(0),
+      ],
+   q(koro (papua new guinea)) => [
+      q(3726),
+      q(0),
+      ],
+   q(koro (vanuatu)) => [
+      q(3574),
+      q(0),
+      ],
+   q(koro wachi) => [
+      q(1418),
+      q(0),
+      ],
+   q(koromfe) => [
+      q(3307),
+      q(0),
+      ],
+   q(koromira) => [
+      q(3553),
+      q(0),
+      ],
+   q(koronadal blaan) => [
+      q(1389),
+      q(0),
+      ],
+   q(koroni) => [
+      q(7369),
+      q(0),
+      ],
+   q(korop) => [
+      q(3580),
+      q(0),
+      ],
+   q(koropo) => [
+      q(7548),
+      q(0),
+      ],
+   q(koroshi) => [
+      q(3626),
+      q(0),
+      ],
+   q(korowai) => [
+      q(3333),
+      q(0),
+      ],
+   q(korra koraga) => [
+      q(3285),
+      q(0),
+      ],
+   q(korubo) => [
+      q(7440),
+      q(0),
+      ],
+   q(korupun-sela) => [
+      q(3534),
+      q(0),
+      ],
+   q(korur) => [
+      q(0948),
+      q(1),
+      ],
+   q(korwa) => [
+      q(3297),
+      q(0),
+      ],
+   q(koryak) => [
+      q(3542),
+      q(0),
+      ],
+   q(kosadle) => [
+      q(3366),
+      q(0),
+      ],
+   q(kosare) => [
+      q(3366),
+      q(1),
+      ],
+   q(kosarek yale) => [
+      q(3411),
+      q(0),
+      ],
+   q(kosena) => [
+      q(3765),
+      q(0),
+      ],
+   q(koshin) => [
+      q(3355),
+      q(0),
+      ],
+   q(kosli) => [
+      q(6184),
+      q(1),
+      ],
+   q(kosraean) => [
+      q(0233),
+      q(0),
+      ],
+   q(kota (gabon)) => [
+      q(3513),
+      q(0),
+      ],
+   q(kota (india)) => [
+      q(3286),
+      q(0),
+      ],
+   q(kota bangun kutai malay) => [
+      q(4479),
+      q(0),
+      ],
+   q(kota marudu talantang) => [
+      q(2618),
+      q(0),
+      ],
+   q(kotafon gbe) => [
+      q(3554),
+      q(0),
+      ],
+   q(kotava) => [
+      q(0959),
+      q(0),
+      ],
+   q(koti) => [
+      q(2235),
+      q(0),
+      ],
+   q(kott) => [
+      q(7850),
+      q(0),
+      ],
+   q(kouya) => [
+      q(3740),
+      q(0),
+      ],
+   q(kovai) => [
+      q(3545),
+      q(0),
+      ],
+   q(kove) => [
+      q(3663),
+      q(0),
+      ],
+   q(kowaki) => [
+      q(7441),
+      q(0),
+      ],
+   q(kowiai) => [
+      q(3693),
+      q(0),
+      ],
+   q(koy sanjaq surat) => [
+      q(3547),
+      q(0),
+      ],
+   q(koya) => [
+      q(3287),
+      q(0),
+      ],
+   q(koyaga) => [
+      q(3308),
+      q(0),
+      ],
+   q(koyo) => [
+      q(3508),
+      q(0),
+      ],
+   q(koyra chiini songhay) => [
+      q(3342),
+      q(0),
+      ],
+   q(koyraboro senni songhai) => [
+      q(5970),
+      q(0),
+      ],
+   q(koyukon) => [
+      q(3518),
+      q(0),
+      ],
+   q(kpagua) => [
+      q(3657),
+      q(0),
+      ],
+   q(kpala) => [
+      q(3530),
+      q(0),
+      ],
+   q(kpan) => [
+      q(3529),
+      q(0),
+      ],
+   q(kpasam) => [
+      q(5368),
+      q(0),
+      ],
+   q(kpati) => [
+      q(3503),
+      q(0),
+      ],
+   q(kpatili) => [
+      q(3747),
+      q(0),
+      ],
+   q(kpeego) => [
+      q(1833),
+      q(0),
+      ],
+   q(kpelle) => [
+      q(0234),
+      q(0),
+      ],
+   q(kpessi) => [
+      q(3261),
+      q(0),
+      ],
+   q(kplang) => [
+      q(3526),
+      q(0),
+      ],
+   q(krache) => [
+      q(3739),
+      q(0),
+      ],
+   q(kraho) => [
+      q(7461),
+      q(0),
+      ],
+   q(kraol) => [
+      q(5788),
+      q(0),
+      ],
+   q(krenak) => [
+      q(3560),
+      q(0),
+      ],
+   q(krevinian) => [
+      q(7855),
+      q(0),
+      ],
+   q(kreye) => [
+      q(7464),
+      q(0),
+      ],
+   q(kriang) => [
+      q(4846),
+      q(0),
+      ],
+   q(krikati-timbira) => [
+      q(7466),
+      q(0),
+      ],
+   q(krio) => [
+      q(3576),
+      q(0),
+      ],
+   q(kriol) => [
+      q(5834),
+      q(0),
+      ],
+   q(krisa) => [
+      q(3597),
+      q(0),
+      ],
+   q(krobu) => [
+      q(3712),
+      q(0),
+      ],
+   q(krongo) => [
+      q(3319),
+      q(0),
+      ],
+   q(kru languages) => [
+      q(0237),
+      q(0),
+      ],
+   q(krung) => [
+      q(3581),
+      q(0),
+      ],
+   q(krymchak) => [
+      q(3069),
+      q(0),
+      ],
+   q(kryts) => [
+      q(3587),
+      q(0),
+      ],
+   q(kua) => [
+      q(6825),
+      q(0),
+      ],
+   q(kua-nsi) => [
+      q(7655),
+      q(0),
+      ],
+   q(kuamasi) => [
+      q(7659),
+      q(0),
+      ],
+   q(kuan) => [
+      q(6837),
+      q(0),
+      ],
+   q(kuanhua) => [
+      q(7420),
+      q(0),
+      ],
+   q(kuanua) => [
+      q(3592),
+      q(0),
+      ],
+   q(kuanyama) => [
+      q(0239),
+      q(0),
+      ],
+   q(kube) => [
+      q(3311),
+      q(0),
+      ],
+   q(kubi) => [
+      q(3506),
+      q(0),
+      ],
+   q(kubo) => [
+      q(3109),
+      q(0),
+      ],
+   q(kubu) => [
+      q(3662),
+      q(0),
+      ],
+   q(kucong) => [
+      q(3932),
+      q(0),
+      ],
+   q(kudiya) => [
+      q(3288),
+      q(0),
+      ],
+   q(kudmali) => [
+      q(3757),
+      q(0),
+      ],
+   q(kudu-camo) => [
+      q(3516),
+      q(0),
+      ],
+   q(kugama) => [
+      q(3517),
+      q(0),
+      ],
+   q(kugbo) => [
+      q(3274),
+      q(0),
+      ],
+   q(kui (india)) => [
+      q(3729),
+      q(0),
+      ],
+   q(kui (indonesia)) => [
+      q(3664),
+      q(0),
+      ],
+   q(kuijau) => [
+      q(2069),
+      q(0),
+      ],
+   q(kuikuro-kalapalo) => [
+      q(3647),
+      q(0),
+      ],
+   q(kujarge) => [
+      q(6993),
+      q(0),
+      ],
+   q(kuk) => [
+      q(3295),
+      q(0),
+      ],
+   q(kukatja) => [
+      q(3658),
+      q(0),
+      ],
+   q(kuke) => [
+      q(2509),
+      q(0),
+      ],
+   q(kukele) => [
+      q(3281),
+      q(0),
+      ],
+   q(kukna) => [
+      q(3279),
+      q(0),
+      ],
+   q(kuku-mangk) => [
+      q(7407),
+      q(0),
+      ],
+   q(kuku-mu'inh) => [
+      q(7406),
+      q(0),
+      ],
+   q(kuku-muminh) => [
+      q(7399),
+      q(0),
+      ],
+   q(kuku-ugbanh) => [
+      q(6854),
+      q(0),
+      ],
+   q(kuku-uwanh) => [
+      q(6951),
+      q(0),
+      ],
+   q(kuku-yalanji) => [
+      q(2670),
+      q(0),
+      ],
+   q(kula) => [
+      q(6644),
+      q(0),
+      ],
+   q(kulere) => [
+      q(3650),
+      q(0),
+      ],
+   q(kulfa) => [
+      q(3718),
+      q(0),
+      ],
+   q(kulina) => [
+      q(1906),
+      q(1),
+      ],
+   q(kulina pano) => [
+      q(7448),
+      q(0),
+      ],
+   q(kulisusu) => [
+      q(6995),
+      q(0),
+      ],
+   q(kullu pahari) => [
+      q(3305),
+      q(0),
+      ],
+   q(kulon-pazeh) => [
+      q(6945),
+      q(0),
+      ],
+   q(kulung (nepal)) => [
+      q(3430),
+      q(0),
+      ],
+   q(kulung (nigeria)) => [
+      q(1059),
+      q(0),
+      ],
+   q(kumalu) => [
+      q(3600),
+      q(0),
+      ],
+   q(kumam) => [
+      q(3241),
+      q(0),
+      ],
+   q(kuman (papua new guinea)) => [
+      q(3643),
+      q(0),
+      ],
+   q(kuman (russia)) => [
+      q(5709),
+      q(0),
+      ],
+   q(kumaoni) => [
+      q(3306),
+      q(0),
+      ],
+   q(kumarbhag paharia) => [
+      q(3460),
+      q(0),
+      ],
+   q(kumba) => [
+      q(3601),
+      q(0),
+      ],
+   q(kumbainggar) => [
+      q(3323),
+      q(0),
+      ],
+   q(kumbaran) => [
+      q(7132),
+      q(0),
+      ],
+   q(kumbewaha) => [
+      q(7371),
+      q(0),
+      ],
+   q(kumhali) => [
+      q(3570),
+      q(0),
+      ],
+   q(kumiai) => [
+      q(2035),
+      q(0),
+      ],
+   q(kumukio) => [
+      q(3652),
+      q(0),
+      ],
+   q(kumyk) => [
+      q(0240),
+      q(0),
+      ],
+   q(kumzari) => [
+      q(7952),
+      q(0),
+      ],
+   q(kunama) => [
+      q(3651),
+      q(0),
+      ],
+   q(kunbarlang) => [
+      q(7141),
+      q(0),
+      ],
+   q(kunda) => [
+      q(3246),
+      q(0),
+      ],
+   q(kundal shahi) => [
+      q(6004),
+      q(0),
+      ],
+   q(kunduvadi) => [
+      q(7135),
+      q(0),
+      ],
+   q(kung) => [
+      q(3293),
+      q(0),
+      ],
+   q(kung-ekoka) => [
+      q(3498),
+      q(0),
+      ],
+   q(kungarakany) => [
+      q(2494),
+      q(0),
+      ],
+   q(kungardutyi) => [
+      q(2468),
+      q(0),
+      ],
+   q(kunggari) => [
+      q(3316),
+      q(0),
+      ],
+   q(kungkari) => [
+      q(3945),
+      q(0),
+      ],
+   q(kuni) => [
+      q(3593),
+      q(0),
+      ],
+   q(kuni-boazi) => [
+      q(3667),
+      q(0),
+      ],
+   q(kunigami) => [
+      q(7518),
+      q(0),
+      ],
+   q(kunimaipa) => [
+      q(3653),
+      q(0),
+      ],
+   q(kunja) => [
+      q(5412),
+      q(0),
+      ],
+   q(kunjen) => [
+      q(3388),
+      q(0),
+      ],
+   q(kunyi) => [
+      q(4912),
+      q(0),
+      ],
+   q(kunza) => [
+      q(3660),
+      q(0),
+      ],
+   q(kuo) => [
+      q(7523),
+      q(0),
+      ],
+   q(kuot) => [
+      q(3629),
+      q(0),
+      ],
+   q(kupa) => [
+      q(3645),
+      q(0),
+      ],
+   q(kupang malay) => [
+      q(4348),
+      q(0),
+      ],
+   q(kupia) => [
+      q(3280),
+      q(0),
+      ],
+   q(kupsabiny) => [
+      q(3543),
+      q(0),
+      ],
+   q(kur) => [
+      q(3656),
+      q(0),
+      ],
+   q(kura ede nago) => [
+      q(5038),
+      q(0),
+      ],
+   q(kurama) => [
+      q(3575),
+      q(0),
+      ],
+   q(kuranko) => [
+      q(3486),
+      q(0),
+      ],
+   q(kurdish) => [
+      q(0241),
+      q(0),
+      ],
+   q(kuri) => [
+      q(4743),
+      q(0),
+      ],
+   q(kuria) => [
+      q(3648),
+      q(0),
+      ],
+   q(kurichiya) => [
+      q(3289),
+      q(0),
+      ],
+   q(kurmukar) => [
+      q(3303),
+      q(0),
+      ],
+   q(kurnai) => [
+      q(6904),
+      q(0),
+      ],
+   q(kurrama) => [
+      q(7000),
+      q(0),
+      ],
+   q(kurti) => [
+      q(3627),
+      q(0),
+      ],
+   q(kurtokha) => [
+      q(7378),
+      q(0),
+      ],
+   q(kuruaya) => [
+      q(3752),
+      q(0),
+      ],
+   q(kurudu) => [
+      q(3392),
+      q(0),
+      ],
+   q(kurukh) => [
+      q(0238),
+      q(0),
+      ],
+   q(kusaal) => [
+      q(3654),
+      q(0),
+      ],
+   q(kusaghe) => [
+      q(3595),
+      q(0),
+      ],
+   q(kushi) => [
+      q(3646),
+      q(0),
+      ],
+   q(kusu) => [
+      q(3610),
+      q(0),
+      ],
+   q(kusunda) => [
+      q(3312),
+      q(0),
+      ],
+   q(kutang ghale) => [
+      q(2509),
+      q(1),
+      ],
+   q(kutchi) => [
+      q(3299),
+      q(1),
+      ],
+   q(kutenai) => [
+      q(0242),
+      q(0),
+      ],
+   q(kutep) => [
+      q(3640),
+      q(0),
+      ],
+   q(kuthant) => [
+      q(7526),
+      q(0),
+      ],
+   q(kutong) => [
+      q(6072),
+      q(0),
+      ],
+   q(kutto) => [
+      q(3520),
+      q(0),
+      ],
+   q(kutu) => [
+      q(3235),
+      q(0),
+      ],
+   q(kuturmi) => [
+      q(3337),
+      q(0),
+      ],
+   q(kuuk-yak) => [
+      q(6874),
+      q(0),
+      ],
+   q(kuuku-ya'u) => [
+      q(3659),
+      q(0),
+      ],
+   q(kuvale) => [
+      q(5246),
+      q(0),
+      ],
+   q(kuvi) => [
+      q(3730),
+      q(0),
+      ],
+   q(kuwaa) => [
+      q(1285),
+      q(0),
+      ],
+   q(kuwaataay) => [
+      q(1923),
+      q(0),
+      ],
+   q(kuy) => [
+      q(3250),
+      q(0),
+      ],
+   q(kven finnish) => [
+      q(2349),
+      q(0),
+      ],
+   q(kw'adza) => [
+      q(7131),
+      q(0),
+      ],
+   q(kwa) => [
+      q(3687),
+      q(0),
+      ],
+   q(kwa') => [
+      q(1267),
+      q(0),
+      ],
+   q(kwaami) => [
+      q(3605),
+      q(0),
+      ],
+   q(kwadi) => [
+      q(3710),
+      q(0),
+      ],
+   q(kwaio) => [
+      q(3689),
+      q(0),
+      ],
+   q(kwaja) => [
+      q(3255),
+      q(0),
+      ],
+   q(kwakiutl) => [
+      q(3696),
+      q(0),
+      ],
+   q(kwakum) => [
+      q(3705),
+      q(0),
+      ],
+   q(kwalhioqua-tlatskanai) => [
+      q(5711),
+      q(0),
+      ],
+   q(kwama) => [
+      q(3467),
+      q(0),
+      ],
+   q(kwambi) => [
+      q(3698),
+      q(0),
+      ],
+   q(kwamera) => [
+      q(6604),
+      q(0),
+      ],
+   q(kwami) => [
+      q(3620),
+      q(0),
+      ],
+   q(kwamtim one) => [
+      q(5228),
+      q(0),
+      ],
+   q(kwandu) => [
+      q(7313),
+      q(0),
+      ],
+   q(kwang) => [
+      q(3669),
+      q(0),
+      ],
+   q(kwanga) => [
+      q(3695),
+      q(0),
+      ],
+   q(kwangali) => [
+      q(3699),
+      q(0),
+      ],
+   q(kwanja) => [
+      q(3491),
+      q(0),
+      ],
+   q(kwanyama) => [
+      q(0239),
+      q(1),
+      ],
+   q(kwara'ae) => [
+      q(3691),
+      q(0),
+      ],
+   q(kwasio) => [
+      q(4961),
+      q(0),
+      ],
+   q(kwaya) => [
+      q(3735),
+      q(0),
+      ],
+   q(kwaza) => [
+      q(7533),
+      q(0),
+      ],
+   q(kwegu) => [
+      q(7537),
+      q(0),
+      ],
+   q(kwenyi) => [
+      q(3243),
+      q(1),
+      ],
+   q(kwer) => [
+      q(3702),
+      q(0),
+      ],
+   q(kwerba) => [
+      q(3690),
+      q(0),
+      ],
+   q(kwerba mamberamo) => [
+      q(7542),
+      q(0),
+      ],
+   q(kwere) => [
+      q(1921),
+      q(0),
+      ],
+   q(kwerisa) => [
+      q(3401),
+      q(0),
+      ],
+   q(kwese) => [
+      q(3703),
+      q(0),
+      ],
+   q(kwesten) => [
+      q(3704),
+      q(0),
+      ],
+   q(kwini) => [
+      q(2689),
+      q(0),
+      ],
+   q(kwinsu) => [
+      q(3641),
+      q(0),
+      ],
+   q(kwinti) => [
+      q(3707),
+      q(0),
+      ],
+   q(kwoma) => [
+      q(3465),
+      q(0),
+      ],
+   q(kwomtari) => [
+      q(3700),
+      q(0),
+      ],
+   q(kxoe) => [
+      q(7527),
+      q(0),
+      ],
+   q(kyak) => [
+      q(1255),
+      q(0),
+      ],
+   q(kyaka) => [
+      q(3737),
+      q(0),
+      ],
+   q(kyan-karyaw naga) => [
+      q(5042),
+      q(0),
+      ],
+   q(kyanga) => [
+      q(6815),
+      q(0),
+      ],
+   q(kyenele) => [
+      q(3555),
+      q(0),
+      ],
+   q(kyerung) => [
+      q(3329),
+      q(0),
+      ],
+   q(kyrgyz) => [
+      q(0227),
+      q(1),
+      ],
+   q(la'bi) => [
+      q(3810),
+      q(0),
+      ],
+   q(laa laa bwamu) => [
+      q(1550),
+      q(0),
+      ],
+   q(laadan) => [
+      q(3847),
+      q(0),
+      ],
+   q(laal) => [
+      q(2462),
+      q(0),
+      ],
+   q(laalaa) => [
+      q(1641),
+      q(1),
+      ],
+   q(laari) => [
+      q(3842),
+      q(0),
+      ],
+   q(laba) => [
+      q(3799),
+      q(0),
+      ],
+   q(label) => [
+      q(3805),
+      q(0),
+      ],
+   q(labir) => [
+      q(3112),
+      q(0),
+      ],
+   q(labo) => [
+      q(4625),
+      q(0),
+      ],
+   q(labo phowa) => [
+      q(7713),
+      q(0),
+      ],
+   q(labu) => [
+      q(3821),
+      q(0),
+      ],
+   q(labuk-kinabatangan kadazan) => [
+      q(2151),
+      q(0),
+      ],
+   q(lacandon) => [
+      q(3786),
+      q(0),
+      ],
+   q(lachi) => [
+      q(3820),
+      q(0),
+      ],
+   q(lachiguiri zapotec) => [
+      q(7899),
+      q(0),
+      ],
+   q(lachixio zapotec) => [
+      q(7910),
+      q(0),
+      ],
+   q(ladakhi) => [
+      q(3811),
+      q(0),
+      ],
+   q(ladin) => [
+      q(3950),
+      q(0),
+      ],
+   q(ladino) => [
+      q(0243),
+      q(0),
+      ],
+   q(ladji ladji) => [
+      q(3956),
+      q(0),
+      ],
+   q(laeko-libuat) => [
+      q(3938),
+      q(0),
+      ],
+   q(lafofa) => [
+      q(3788),
+      q(0),
+      ],
+   q(laghu) => [
+      q(3878),
+      q(0),
+      ],
+   q(laghuu) => [
+      q(3880),
+      q(0),
+      ],
+   q(lagwan) => [
+      q(3514),
+      q(0),
+      ],
+   q(laha (indonesia)) => [
+      q(3892),
+      q(0),
+      ],
+   q(laha (viet nam)) => [
+      q(3891),
+      q(0),
+      ],
+   q(lahanan) => [
+      q(3896),
+      q(0),
+      ],
+   q(lahnda) => [
+      q(0244),
+      q(0),
+      ],
+   q(lahta) => [
+      q(3679),
+      q(1),
+      ],
+   q(lahta karen) => [
+      q(3679),
+      q(0),
+      ],
+   q(lahu) => [
+      q(3900),
+      q(0),
+      ],
+   q(lahu shi) => [
+      q(3893),
+      q(0),
+      ],
+   q(lahul lohar) => [
+      q(3894),
+      q(0),
+      ],
+   q(laimbue) => [
+      q(3987),
+      q(0),
+      ],
+   q(laitu chin) => [
+      q(1772),
+      q(0),
+      ],
+   q(laiyolo) => [
+      q(3925),
+      q(0),
+      ],
+   q(lak) => [
+      q(3807),
+      q(0),
+      ],
+   q(laka (chad)) => [
+      q(3795),
+      q(0),
+      ],
+   q(laka (nigeria)) => [
+      q(3792),
+      q(0),
+      ],
+   q(lakalei) => [
+      q(3930),
+      q(0),
+      ],
+   q(lake miwok) => [
+      q(3986),
+      q(0),
+      ],
+   q(lakha) => [
+      q(3935),
+      q(0),
+      ],
+   q(laki) => [
+      q(3936),
+      q(0),
+      ],
+   q(lakkia) => [
+      q(3806),
+      q(0),
+      ],
+   q(lakon) => [
+      q(3940),
+      q(0),
+      ],
+   q(lakonde) => [
+      q(3933),
+      q(0),
+      ],
+   q(lakota) => [
+      q(3944),
+      q(0),
+      ],
+   q(lakota dida) => [
+      q(2031),
+      q(0),
+      ],
+   q(lala) => [
+      q(5060),
+      q(0),
+      ],
+   q(lala-bisa) => [
+      q(3852),
+      q(0),
+      ],
+   q(lala-roba) => [
+      q(3947),
+      q(0),
+      ],
+   q(lalana chinantec) => [
+      q(1799),
+      q(0),
+      ],
+   q(lalia) => [
+      q(3793),
+      q(0),
+      ],
+   q(lama (togo)) => [
+      q(3798),
+      q(0),
+      ],
+   q(lama bai) => [
+      q(3802),
+      q(0),
+      ],
+   q(lamaholot) => [
+      q(6096),
+      q(0),
+      ],
+   q(lamalera) => [
+      q(3983),
+      q(0),
+      ],
+   q(lamang) => [
+      q(2750),
+      q(0),
+      ],
+   q(lamatuka) => [
+      q(3982),
+      q(0),
+      ],
+   q(lamba) => [
+      q(0245),
+      q(0),
+      ],
+   q(lambadi) => [
+      q(3979),
+      q(0),
+      ],
+   q(lambayeque quechua) => [
+      q(5674),
+      q(0),
+      ],
+   q(lambichhong) => [
+      q(3974),
+      q(0),
+      ],
+   q(lamboya) => [
+      q(3988),
+      q(0),
+      ],
+   q(lambya) => [
+      q(3790),
+      q(0),
+      ],
+   q(lame) => [
+      q(1303),
+      q(0),
+      ],
+   q(lamenu) => [
+      q(3984),
+      q(0),
+      ],
+   q(lamet) => [
+      q(3815),
+      q(0),
+      ],
+   q(lamja-dengsa-tola) => [
+      q(3841),
+      q(0),
+      ],
+   q(lamkang) => [
+      q(3977),
+      q(0),
+      ],
+   q(lamma) => [
+      q(3871),
+      q(0),
+      ],
+   q(lamnso') => [
+      q(4001),
+      q(0),
+      ],
+   q(lamogai) => [
+      q(3973),
+      q(0),
+      ],
+   q(lampung api) => [
+      q(3927),
+      q(0),
+      ],
+   q(lampung nyo) => [
+      q(0570),
+      q(0),
+      ],
+   q(lamu) => [
+      q(3954),
+      q(0),
+      ],
+   q(lamu-lamu) => [
+      q(3825),
+      q(0),
+      ],
+   q(lanas lobu) => [
+      q(5862),
+      q(0),
+      ],
+   q(land dayak languages) => [
+      q(0106),
+      q(0),
+      ],
+   q(landoma) => [
+      q(3846),
+      q(0),
+      ],
+   q(lang'e) => [
+      q(7693),
+      q(0),
+      ],
+   q(langam) => [
+      q(3998),
+      q(0),
+      ],
+   q(langbashe) => [
+      q(3990),
+      q(0),
+      ],
+   q(langi) => [
+      q(3789),
+      q(0),
+      ],
+   q(langnian buyang) => [
+      q(7668),
+      q(0),
+      ],
+   q(lango (sudan)) => [
+      q(4000),
+      q(0),
+      ],
+   q(lango (uganda)) => [
+      q(3791),
+      q(0),
+      ],
+   q(langobardic) => [
+      q(3993),
+      q(0),
+      ],
+   q(langue des signes de belgique francophone) => [
+      q(5977),
+      q(0),
+      ],
+   q(lanima) => [
+      q(4003),
+      q(0),
+      ],
+   q(lanoh) => [
+      q(3994),
+      q(0),
+      ],
+   q(lao) => [
+      q(0246),
+      q(0),
+      ],
+   q(lao naga) => [
+      q(4948),
+      q(0),
+      ],
+   q(laomian) => [
+      q(4095),
+      q(0),
+      ],
+   q(laopang) => [
+      q(3809),
+      q(0),
+      ],
+   q(laos sign language) => [
+      q(4055),
+      q(0),
+      ],
+   q(lapaguia-guivini zapotec) => [
+      q(7940),
+      q(0),
+      ],
+   q(laragia) => [
+      q(4036),
+      q(0),
+      ],
+   q(larantuka malay) => [
+      q(4044),
+      q(0),
+      ],
+   q(lardil) => [
+      q(3826),
+      q(0),
+      ],
+   q(larevat) => [
+      q(4045),
+      q(0),
+      ],
+   q(large flowery miao) => [
+      q(2777),
+      q(0),
+      ],
+   q(lari) => [
+      q(4039),
+      q(0),
+      ],
+   q(larike-wakasihu) => [
+      q(0757),
+      q(0),
+      ],
+   q(laro) => [
+      q(4042),
+      q(0),
+      ],
+   q(larteh) => [
+      q(3797),
+      q(0),
+      ],
+   q(laru) => [
+      q(3794),
+      q(0),
+      ],
+   q(lasalimu) => [
+      q(3959),
+      q(0),
+      ],
+   q(lasgerdi) => [
+      q(4047),
+      q(0),
+      ],
+   q(lashi) => [
+      q(4052),
+      q(0),
+      ],
+   q(lasi) => [
+      q(4058),
+      q(0),
+      ],
+   q(late middle chinese) => [
+      q(4061),
+      q(0),
+      ],
+   q(latgalian) => [
+      q(4062),
+      q(0),
+      ],
+   q(latin) => [
+      q(0247),
+      q(0),
+      ],
+   q(latu) => [
+      q(4068),
+      q(0),
+      ],
+   q(latunde) => [
+      q(4065),
+      q(0),
+      ],
+   q(latvian) => [
+      q(0248),
+      q(0),
+      ],
+   q(latvian sign language) => [
+      q(4053),
+      q(0),
+      ],
+   q(lau) => [
+      q(3965),
+      q(0),
+      ],
+   q(laua) => [
+      q(4072),
+      q(0),
+      ],
+   q(lauan) => [
+      q(3966),
+      q(0),
+      ],
+   q(lauje) => [
+      q(3800),
+      q(0),
+      ],
+   q(laura) => [
+      q(4079),
+      q(0),
+      ],
+   q(laurentian) => [
+      q(4035),
+      q(0),
+      ],
+   q(lautu chin) => [
+      q(1777),
+      q(0),
+      ],
+   q(lavatbura-lamusong) => [
+      q(3822),
+      q(0),
+      ],
+   q(lave) => [
+      q(1423),
+      q(0),
+      ],
+   q(laven) => [
+      q(3816),
+      q(0),
+      ],
+   q(lavrung) => [
+      q(3100),
+      q(1),
+      ],
+   q(lavukaleve) => [
+      q(4087),
+      q(0),
+      ],
+   q(lawangan) => [
+      q(3824),
+      q(0),
+      ],
+   q(lawu) => [
+      q(4098),
+      q(0),
+      ],
+   q(lawunuia) => [
+      q(6471),
+      q(0),
+      ],
+   q(layakha) => [
+      q(4100),
+      q(0),
+      ],
+   q(laz) => [
+      q(4106),
+      q(0),
+      ],
+   q(lealao chinantec) => [
+      q(1769),
+      q(0),
+      ],
+   q(leco) => [
+      q(3853),
+      q(0),
+      ],
+   q(ledo kaili) => [
+      q(3872),
+      q(0),
+      ],
+   q(leelau) => [
+      q(3844),
+      q(0),
+      ],
+   q(lefa) => [
+      q(3875),
+      q(0),
+      ],
+   q(lega-mwenga) => [
+      q(3884),
+      q(0),
+      ],
+   q(lega-shabunda) => [
+      q(3851),
+      q(0),
+      ],
+   q(legbo) => [
+      q(0654),
+      q(0),
+      ],
+   q(legenyem) => [
+      q(3827),
+      q(0),
+      ],
+   q(lehali) => [
+      q(6662),
+      q(0),
+      ],
+   q(lehalurup) => [
+      q(6925),
+      q(0),
+      ],
+   q(lehar) => [
+      q(1641),
+      q(0),
+      ],
+   q(leinong naga) => [
+      q(4105),
+      q(0),
+      ],
+   q(leipon) => [
+      q(3860),
+      q(0),
+      ],
+   q(lelak) => [
+      q(3957),
+      q(0),
+      ],
+   q(lele (chad)) => [
+      q(3960),
+      q(0),
+      ],
+   q(lele (democratic republic of congo)) => [
+      q(3861),
+      q(0),
+      ],
+   q(lele (guinea)) => [
+      q(3949),
+      q(0),
+      ],
+   q(lele (papua new guinea)) => [
+      q(3951),
+      q(0),
+      ],
+   q(lelemi) => [
+      q(3856),
+      q(0),
+      ],
+   q(lelepa) => [
+      q(4028),
+      q(0),
+      ],
+   q(lembena) => [
+      q(3866),
+      q(0),
+      ],
+   q(lemerig) => [
+      q(4046),
+      q(0),
+      ],
+   q(lemio) => [
+      q(3858),
+      q(0),
+      ],
+   q(lemnian) => [
+      q(7383),
+      q(0),
+      ],
+   q(lemolang) => [
+      q(3874),
+      q(0),
+      ],
+   q(lemoro) => [
+      q(3843),
+      q(0),
+      ],
+   q(lenakel) => [
+      q(6605),
+      q(0),
+      ],
+   q(lenca) => [
+      q(3863),
+      q(0),
+      ],
+   q(lendu) => [
+      q(3854),
+      q(0),
+      ],
+   q(lengilu) => [
+      q(3881),
+      q(0),
+      ],
+   q(lengo) => [
+      q(3887),
+      q(0),
+      ],
+   q(lengola) => [
+      q(3859),
+      q(0),
+      ],
+   q(lengua de senas catalana) => [
+      q(1862),
+      q(1),
+      ],
+   q(lengua de senas del paraguay) => [
+      q(5665),
+      q(1),
+      ],
+   q(lengua de senas panamenas) => [
+      q(4056),
+      q(1),
+      ],
+   q(leningitij) => [
+      q(3996),
+      q(0),
+      ],
+   q(lenje) => [
+      q(3857),
+      q(0),
+      ],
+   q(lenkau) => [
+      q(3867),
+      q(0),
+      ],
+   q(lenyima) => [
+      q(3840),
+      q(0),
+      ],
+   q(leonese) => [
+      q(0030),
+      q(2),
+      ],
+   q(lepcha) => [
+      q(3865),
+      q(0),
+      ],
+   q(lepki) => [
+      q(4029),
+      q(0),
+      ],
+   q(lepontic) => [
+      q(7388),
+      q(0),
+      ],
+   q(lere) => [
+      q(2571),
+      q(0),
+      ],
+   q(lese) => [
+      q(3868),
+      q(0),
+      ],
+   q(lesing-gelimi) => [
+      q(3869),
+      q(0),
+      ],
+   q(letemboi) => [
+      q(4973),
+      q(0),
+      ],
+   q(leti (cameroon)) => [
+      q(3864),
+      q(0),
+      ],
+   q(leti (indonesia)) => [
+      q(4064),
+      q(0),
+      ],
+   q(letzeburgesch) => [
+      q(0255),
+      q(1),
+      ],
+   q(levuka) => [
+      q(4089),
+      q(0),
+      ],
+   q(lewo) => [
+      q(4099),
+      q(0),
+      ],
+   q(lewo eleng) => [
+      q(4091),
+      q(0),
+      ],
+   q(lewotobi) => [
+      q(4097),
+      q(0),
+      ],
+   q(leyigha) => [
+      q(1000),
+      q(0),
+      ],
+   q(lezghian) => [
+      q(0249),
+      q(0),
+      ],
+   q(lhaovo) => [
+      q(4288),
+      q(1),
+      ],
+   q(lhokpu) => [
+      q(3897),
+      q(0),
+      ],
+   q(lhomi) => [
+      q(3895),
+      q(0),
+      ],
+   q(li'o) => [
+      q(3926),
+      q(0),
+      ],
+   q(liabuku) => [
+      q(3920),
+      q(0),
+      ],
+   q(liana-seti) => [
+      q(6246),
+      q(0),
+      ],
+   q(liangmai naga) => [
+      q(4906),
+      q(0),
+      ],
+   q(lianshan zhuang) => [
+      q(7859),
+      q(0),
+      ],
+   q(liberia kpelle) => [
+      q(7444),
+      q(0),
+      ],
+   q(liberian english) => [
+      q(3915),
+      q(0),
+      ],
+   q(libido) => [
+      q(3914),
+      q(0),
+      ],
+   q(libinza) => [
+      q(3922),
+      q(0),
+      ],
+   q(libon bikol) => [
+      q(3813),
+      q(0),
+      ],
+   q(liburnian) => [
+      q(7385),
+      q(0),
+      ],
+   q(libyan arabic) => [
+      q(1002),
+      q(0),
+      ],
+   q(libyan sign language) => [
+      q(3819),
+      q(0),
+      ],
+   q(ligbi) => [
+      q(3907),
+      q(0),
+      ],
+   q(ligenza) => [
+      q(3890),
+      q(0),
+      ],
+   q(ligurian) => [
+      q(3909),
+      q(0),
+      ],
+   q(ligurian (ancient)) => [
+      q(7384),
+      q(0),
+      ],
+   q(lihir) => [
+      q(3908),
+      q(0),
+      ],
+   q(lijili) => [
+      q(4250),
+      q(0),
+      ],
+   q(lika) => [
+      q(3910),
+      q(0),
+      ],
+   q(liki) => [
+      q(3912),
+      q(0),
+      ],
+   q(likila) => [
+      q(3905),
+      q(0),
+      ],
+   q(likuba) => [
+      q(3732),
+      q(0),
+      ],
+   q(likum) => [
+      q(3902),
+      q(0),
+      ],
+   q(likwala) => [
+      q(3688),
+      q(0),
+      ],
+   q(lilau) => [
+      q(3958),
+      q(0),
+      ],
+   q(lillooet) => [
+      q(3911),
+      q(0),
+      ],
+   q(limassa) => [
+      q(1307),
+      q(0),
+      ],
+   q(limbu) => [
+      q(3906),
+      q(0),
+      ],
+   q(limbum) => [
+      q(3981),
+      q(0),
+      ],
+   q(limburgan) => [
+      q(0250),
+      q(0),
+      ],
+   q(limburger) => [
+      q(0250),
+      q(1),
+      ],
+   q(limburgish) => [
+      q(0250),
+      q(2),
+      ],
+   q(limi) => [
+      q(7667),
+      q(0),
+      ],
+   q(limilngan) => [
+      q(3969),
+      q(0),
+      ],
+   q(limos kalinga) => [
+      q(3461),
+      q(0),
+      ],
+   q(lindu) => [
+      q(3448),
+      q(1),
+      ],
+   q(linear a) => [
+      q(3785),
+      q(0),
+      ],
+   q(lingala) => [
+      q(0251),
+      q(0),
+      ],
+   q(lingao) => [
+      q(5263),
+      q(0),
+      ],
+   q(lingarak) => [
+      q(3882),
+      q(0),
+      ],
+   q(lingua franca) => [
+      q(5514),
+      q(0),
+      ],
+   q(lingua franca nova) => [
+      q(3876),
+      q(0),
+      ],
+   q(lipan apache) => [
+      q(0845),
+      q(0),
+      ],
+   q(lipo) => [
+      q(4031),
+      q(0),
+      ],
+   q(lisabata-nuniali) => [
+      q(3836),
+      q(0),
+      ],
+   q(lisela) => [
+      q(3832),
+      q(0),
+      ],
+   q(lish) => [
+      q(4051),
+      q(0),
+      ],
+   q(lishan didan) => [
+      q(6678),
+      q(0),
+      ],
+   q(lishana deni) => [
+      q(4048),
+      q(0),
+      ],
+   q(lishanid noshan) => [
+      q(0701),
+      q(0),
+      ],
+   q(lisu) => [
+      q(3916),
+      q(0),
+      ],
+   q(literary chinese) => [
+      q(4103),
+      q(0),
+      ],
+   q(lithuanian) => [
+      q(0252),
+      q(0),
+      ],
+   q(lithuanian sign language) => [
+      q(3964),
+      q(0),
+      ],
+   q(litzlitz) => [
+      q(4104),
+      q(0),
+      ],
+   q(liujiang zhuang) => [
+      q(7857),
+      q(0),
+      ],
+   q(liuqian zhuang) => [
+      q(7860),
+      q(0),
+      ],
+   q(liv) => [
+      q(3918),
+      q(0),
+      ],
+   q(livvi) => [
+      q(5243),
+      q(0),
+      ],
+   q(llengua de signes catalana) => [
+      q(1862),
+      q(2),
+      ],
+   q(llengua de signes valenciana) => [
+      q(7035),
+      q(1),
+      ],
+   q(lo-toga) => [
+      q(3899),
+      q(0),
+      ],
+   q(loarki) => [
+      q(4038),
+      q(0),
+      ],
+   q(lobala) => [
+      q(4019),
+      q(0),
+      ],
+   q(lobi) => [
+      q(4006),
+      q(0),
+      ],
+   q(lodhi) => [
+      q(3814),
+      q(0),
+      ],
+   q(logba) => [
+      q(3886),
+      q(0),
+      ],
+   q(logo) => [
+      q(4010),
+      q(0),
+      ],
+   q(logol) => [
+      q(4009),
+      q(0),
+      ],
+   q(logooli) => [
+      q(5732),
+      q(0),
+      ],
+   q(logorik) => [
+      q(3917),
+      q(0),
+      ],
+   q(logudorese sardinian) => [
+      q(6200),
+      q(0),
+      ],
+   q(lohorung) => [
+      q(3818),
+      q(0),
+      ],
+   q(loja highland quichua) => [
+      q(5696),
+      q(0),
+      ],
+   q(lojban) => [
+      q(0205),
+      q(0),
+      ],
+   q(lokaa) => [
+      q(7583),
+      q(0),
+      ],
+   q(loke) => [
+      q(4027),
+      q(0),
+      ],
+   q(loko) => [
+      q(4014),
+      q(0),
+      ],
+   q(lokoya) => [
+      q(3946),
+      q(0),
+      ],
+   q(lola) => [
+      q(3828),
+      q(0),
+      ],
+   q(lolak) => [
+      q(3963),
+      q(0),
+      ],
+   q(lole) => [
+      q(3953),
+      q(0),
+      ],
+   q(lolo) => [
+      q(3948),
+      q(0),
+      ],
+   q(loloda) => [
+      q(4005),
+      q(0),
+      ],
+   q(lolopo) => [
+      q(7598),
+      q(0),
+      ],
+   q(loma (cote d'ivoire)) => [
+      q(4012),
+      q(0),
+      ],
+   q(loma (liberia)) => [
+      q(4015),
+      q(0),
+      ],
+   q(lomaiviti) => [
+      q(3985),
+      q(0),
+      ],
+   q(lomavren) => [
+      q(5803),
+      q(0),
+      ],
+   q(lombard) => [
+      q(3980),
+      q(0),
+      ],
+   q(lombi) => [
+      q(3975),
+      q(0),
+      ],
+   q(lombo) => [
+      q(4017),
+      q(0),
+      ],
+   q(lomwe) => [
+      q(4838),
+      q(0),
+      ],
+   q(loncong) => [
+      q(3829),
+      q(0),
+      ],
+   q(long phuri naga) => [
+      q(4030),
+      q(0),
+      ],
+   q(long wat) => [
+      q(6741),
+      q(0),
+      ],
+   q(longgu) => [
+      q(3889),
+      q(0),
+      ],
+   q(longto) => [
+      q(7190),
+      q(0),
+      ],
+   q(longuda) => [
+      q(4002),
+      q(0),
+      ],
+   q(loniu) => [
+      q(4021),
+      q(0),
+      ],
+   q(lonwolwol) => [
+      q(1841),
+      q(0),
+      ],
+   q(lonzo) => [
+      q(4004),
+      q(0),
+      ],
+   q(loo) => [
+      q(3848),
+      q(0),
+      ],
+   q(lopa) => [
+      q(4018),
+      q(0),
+      ],
+   q(lopi) => [
+      q(4024),
+      q(0),
+      ],
+   q(lopit) => [
+      q(4032),
+      q(0),
+      ],
+   q(lorang) => [
+      q(4041),
+      q(0),
+      ],
+   q(lorediakarkar) => [
+      q(3999),
+      q(0),
+      ],
+   q(loreto-ucayali spanish) => [
+      q(6179),
+      q(0),
+      ],
+   q(lote) => [
+      q(6950),
+      q(0),
+      ],
+   q(lotha naga) => [
+      q(4901),
+      q(0),
+      ],
+   q(lotud) => [
+      q(2160),
+      q(0),
+      ],
+   q(lou) => [
+      q(4013),
+      q(0),
+      ],
+   q(louisiana creole) => [
+      q(4023),
+      q(0),
+      ],
+   q(loun) => [
+      q(4026),
+      q(0),
+      ],
+   q(loup a) => [
+      q(7387),
+      q(0),
+      ],
+   q(loup b) => [
+      q(7380),
+      q(0),
+      ],
+   q(lovono) => [
+      q(7026),
+      q(1),
+      ],
+   q(low german) => [
+      q(0307),
+      q(0),
+      ],
+   q(low saxon) => [
+      q(0307),
+      q(1),
+      ],
+   q(lower burdekin) => [
+      q(7280),
+      q(0),
+      ],
+   q(lower chehalis) => [
+      q(1703),
+      q(0),
+      ],
+   q(lower grand valley dani) => [
+      q(2097),
+      q(0),
+      ],
+   q(lower silesian) => [
+      q(6091),
+      q(0),
+      ],
+   q(lower sorbian) => [
+      q(0114),
+      q(0),
+      ],
+   q(lower southern aranda) => [
+      q(0990),
+      q(0),
+      ],
+   q(lower ta'oih) => [
+      q(6733),
+      q(0),
+      ],
+   q(lower tanana) => [
+      q(6347),
+      q(0),
+      ],
+   q(lowland oaxaca chontal) => [
+      q(1776),
+      q(0),
+      ],
+   q(lowland tarahumara) => [
+      q(6349),
+      q(0),
+      ],
+   q(loxicha zapotec) => [
+      q(7943),
+      q(0),
+      ],
+   q(loyop) => [
+      q(6925),
+      q(1),
+      ],
+   q(lozi) => [
+      q(0254),
+      q(0),
+      ],
+   q(lu) => [
+      q(3330),
+      q(0),
+      ],
+   q(luang) => [
+      q(3873),
+      q(0),
+      ],
+   q(luba-katanga) => [
+      q(0257),
+      q(0),
+      ],
+   q(luba-lulua) => [
+      q(0256),
+      q(0),
+      ],
+   q(lubila) => [
+      q(3210),
+      q(0),
+      ],
+   q(lubu) => [
+      q(3830),
+      q(0),
+      ],
+   q(lubuagan kalinga) => [
+      q(3478),
+      q(0),
+      ],
+   q(lubukusu) => [
+      q(1576),
+      q(1),
+      ],
+   q(luchazi) => [
+      q(3831),
+      q(0),
+      ],
+   q(lucumi) => [
+      q(4078),
+      q(0),
+      ],
+   q(ludian) => [
+      q(4070),
+      q(0),
+      ],
+   q(lufu) => [
+      q(3850),
+      q(0),
+      ],
+   q(lugbara) => [
+      q(3879),
+      q(0),
+      ],
+   q(luguru) => [
+      q(5854),
+      q(0),
+      ],
+   q(luhu) => [
+      q(3835),
+      q(0),
+      ],
+   q(lui) => [
+      q(3804),
+      q(0),
+      ],
+   q(luidakho-luisukha-lutirichi) => [
+      q(2899),
+      q(1),
+      ],
+   q(luimbi) => [
+      q(4076),
+      q(0),
+      ],
+   q(luiseno) => [
+      q(0259),
+      q(0),
+      ],
+   q(lukabaras) => [
+      q(3931),
+      q(1),
+      ],
+   q(lukpa) => [
+      q(2117),
+      q(0),
+      ],
+   q(lule) => [
+      q(6878),
+      q(0),
+      ],
+   q(lule sami) => [
+      q(0391),
+      q(0),
+      ],
+   q(lulogooli) => [
+      q(5732),
+      q(1),
+      ],
+   q(lumba-yakkha) => [
+      q(4081),
+      q(0),
+      ],
+   q(lumbee) => [
+      q(3989),
+      q(0),
+      ],
+   q(lumbu) => [
+      q(4077),
+      q(0),
+      ],
+   q(lumun) => [
+      q(3970),
+      q(0),
+      ],
+   q(lun bawang) => [
+      q(3992),
+      q(1),
+      ],
+   q(luna) => [
+      q(4073),
+      q(0),
+      ],
+   q(lunanakha) => [
+      q(4074),
+      q(0),
+      ],
+   q(lunda) => [
+      q(0260),
+      q(0),
+      ],
+   q(lundayeh) => [
+      q(3992),
+      q(0),
+      ],
+   q(lungalunga) => [
+      q(7009),
+      q(0),
+      ],
+   q(lungga) => [
+      q(3877),
+      q(0),
+      ],
+   q(luo (cameroon)) => [
+      q(4083),
+      q(0),
+      ],
+   q(luo (kenya and tanzania)) => [
+      q(0261),
+      q(0),
+      ],
+   q(luopohe hmong) => [
+      q(2785),
+      q(0),
+      ],
+   q(luopohe miao) => [
+      q(2785),
+      q(1),
+      ],
+   q(luri) => [
+      q(3839),
+      q(0),
+      ],
+   q(lusengo) => [
+      q(4049),
+      q(0),
+      ],
+   q(lushai) => [
+      q(0262),
+      q(0),
+      ],
+   q(lushootseed) => [
+      q(4080),
+      q(0),
+      ],
+   q(lusi) => [
+      q(3339),
+      q(0),
+      ],
+   q(lusitanian) => [
+      q(7389),
+      q(0),
+      ],
+   q(lutachoni) => [
+      q(4067),
+      q(1),
+      ],
+   q(lutos) => [
+      q(4798),
+      q(0),
+      ],
+   q(luvale) => [
+      q(4071),
+      q(0),
+      ],
+   q(luwati) => [
+      q(4082),
+      q(0),
+      ],
+   q(luwo) => [
+      q(4096),
+      q(0),
+      ],
+   q(luxembourgish) => [
+      q(0255),
+      q(0),
+      ],
+   q(luyana) => [
+      q(4102),
+      q(0),
+      ],
+   q(luyia) => [
+      q(4084),
+      q(0),
+      ],
+   q(lwalu) => [
+      q(4090),
+      q(0),
+      ],
+   q(lycian) => [
+      q(7381),
+      q(0),
+      ],
+   q(lydian) => [
+      q(7382),
+      q(0),
+      ],
+   q(lyele) => [
+      q(3855),
+      q(0),
+      ],
+   q(lyngngam) => [
+      q(4101),
+      q(0),
+      ],
+   q(lyons sign language) => [
+      q(4050),
+      q(0),
+      ],
+   q(ma (democratic republic of congo)) => [
+      q(4532),
+      q(0),
+      ],
+   q(ma (papua new guinea)) => [
+      q(4324),
+      q(0),
+      ],
+   q(ma manda) => [
+      q(6064),
+      q(0),
+      ],
+   q(ma'anyan) => [
+      q(4289),
+      q(0),
+      ],
+   q(ma'di) => [
+      q(4274),
+      q(0),
+      ],
+   q(ma'ya) => [
+      q(6105),
+      q(0),
+      ],
+   q(maa) => [
+      q(1781),
+      q(0),
+      ],
+   q(maaka) => [
+      q(4214),
+      q(0),
+      ],
+   q(maasina fulfulde) => [
+      q(2340),
+      q(0),
+      ],
+   q(maay) => [
+      q(7682),
+      q(0),
+      ],
+   q(maba (chad)) => [
+      q(4175),
+      q(0),
+      ],
+   q(maba (indonesia)) => [
+      q(4474),
+      q(0),
+      ],
+   q(mabaale) => [
+      q(4407),
+      q(0),
+      ],
+   q(mabaan) => [
+      q(4242),
+      q(0),
+      ],
+   q(mabaka valley kalinga) => [
+      q(3406),
+      q(0),
+      ],
+   q(mabire) => [
+      q(4581),
+      q(0),
+      ],
+   q(maca) => [
+      q(4145),
+      q(0),
+      ],
+   q(macaguaje) => [
+      q(4156),
+      q(0),
+      ],
+   q(macaguan) => [
+      q(4132),
+      q(0),
+      ],
+   q(macanese) => [
+      q(4704),
+      q(0),
+      ],
+   q(macedo-romanian) => [
+      q(0363),
+      q(2),
+      ],
+   q(macedonian) => [
+      q(0263),
+      q(0),
+      ],
+   q(machame) => [
+      q(3117),
+      q(0),
+      ],
+   q(machiguenga) => [
+      q(4146),
+      q(0),
+      ],
+   q(machinere) => [
+      q(4452),
+      q(0),
+      ],
+   q(machinga) => [
+      q(4614),
+      q(0),
+      ],
+   q(maco) => [
+      q(7198),
+      q(0),
+      ],
+   q(macuna) => [
+      q(4685),
+      q(0),
+      ],
+   q(macushi) => [
+      q(4122),
+      q(0),
+      ],
+   q(mada (cameroon)) => [
+      q(4660),
+      q(0),
+      ],
+   q(mada (nigeria)) => [
+      q(4171),
+      q(0),
+      ],
+   q(madagascar sign language) => [
+      q(4689),
+      q(0),
+      ],
+   q(madak) => [
+      q(4405),
+      q(0),
+      ],
+   q(maden) => [
+      q(7414),
+      q(0),
+      ],
+   q(madhi madhi) => [
+      q(2079),
+      q(0),
+      ],
+   q(madi) => [
+      q(2614),
+      q(0),
+      ],
+   q(madngele) => [
+      q(7872),
+      q(0),
+      ],
+   q(madurese) => [
+      q(0264),
+      q(0),
+      ],
+   q(mae) => [
+      q(4387),
+      q(0),
+      ],
+   q(maek) => [
+      q(2784),
+      q(0),
+      ],
+   q(maeng itneg) => [
+      q(3018),
+      q(0),
+      ],
+   q(mafa) => [
+      q(4110),
+      q(0),
+      ],
+   q(mafea) => [
+      q(4356),
+      q(0),
+      ],
+   q(mag-antsi ayta) => [
+      q(5982),
+      q(0),
+      ],
+   q(mag-indi ayta) => [
+      q(1300),
+      q(0),
+      ],
+   q(magahi) => [
+      q(0265),
+      q(0),
+      ],
+   q(magbukun ayta) => [
+      q(1009),
+      q(0),
+      ],
+   q(magdalena penasco mixtec) => [
+      q(7502),
+      q(0),
+      ],
+   q(maghdi) => [
+      q(2555),
+      q(0),
+      ],
+   q(magoma) => [
+      q(2562),
+      q(0),
+      ],
+   q(magori) => [
+      q(7828),
+      q(0),
+      ],
+   q(maguindanaon) => [
+      q(4177),
+      q(0),
+      ],
+   q(magyi) => [
+      q(2556),
+      q(0),
+      ],
+   q(mah meri) => [
+      q(4271),
+      q(1),
+      ],
+   q(mahali) => [
+      q(4334),
+      q(0),
+      ],
+   q(maharastri prakrit) => [
+      q(5510),
+      q(0),
+      ],
+   q(mahasu pahari) => [
+      q(1161),
+      q(0),
+      ],
+   q(mahican) => [
+      q(4335),
+      q(0),
+      ],
+   q(mahongwe) => [
+      q(4268),
+      q(0),
+      ],
+   q(mahou) => [
+      q(4663),
+      q(0),
+      ],
+   q(mai brat) => [
+      q(1012),
+      q(0),
+      ],
+   q(maia) => [
+      q(6078),
+      q(0),
+      ],
+   q(maiadomu) => [
+      q(4711),
+      q(0),
+      ],
+   q(maiani) => [
+      q(6602),
+      q(0),
+      ],
+   q(maii) => [
+      q(4395),
+      q(0),
+      ],
+   q(mailu) => [
+      q(4262),
+      q(0),
+      ],
+   q(maindo) => [
+      q(1919),
+      q(0),
+      ],
+   q(mainfrankisch) => [
+      q(7008),
+      q(0),
+      ],
+   q(mainstream kenyah) => [
+      q(7365),
+      q(0),
+      ],
+   q(mairasi) => [
+      q(7931),
+      q(0),
+      ],
+   q(maisin) => [
+      q(4135),
+      q(0),
+      ],
+   q(maithili) => [
+      q(0267),
+      q(0),
+      ],
+   q(maiwa (indonesia)) => [
+      q(7161),
+      q(0),
+      ],
+   q(maiwa (papua new guinea)) => [
+      q(4556),
+      q(0),
+      ],
+   q(maiwala) => [
+      q(4583),
+      q(0),
+      ],
+   q(majang) => [
+      q(4453),
+      q(0),
+      ],
+   q(majera) => [
+      q(7400),
+      q(0),
+      ],
+   q(majhi) => [
+      q(4336),
+      q(0),
+      ],
+   q(majhwar) => [
+      q(4392),
+      q(0),
+      ],
+   q(majukayang kalinga) => [
+      q(3454),
+      q(0),
+      ],
+   q(mak (china)) => [
+      q(4342),
+      q(0),
+      ],
+   q(mak (nigeria)) => [
+      q(5367),
+      q(0),
+      ],
+   q(makaa) => [
+      q(4160),
+      q(0),
+      ],
+   q(makah) => [
+      q(4672),
+      q(0),
+      ],
+   q(makalero) => [
+      q(4313),
+      q(0),
+      ],
+   q(makasae) => [
+      q(4360),
+      q(0),
+      ],
+   q(makasar) => [
+      q(0268),
+      q(0),
+      ],
+   q(makassar malay) => [
+      q(4232),
+      q(0),
+      ],
+   q(makayam) => [
+      q(0947),
+      q(0),
+      ],
+   q(makhuwa) => [
+      q(7022),
+      q(0),
+      ],
+   q(makhuwa-marrevone) => [
+      q(7394),
+      q(0),
+      ],
+   q(makhuwa-meetto) => [
+      q(4249),
+      q(0),
+      ],
+   q(makhuwa-moniga) => [
+      q(4278),
+      q(0),
+      ],
+   q(makhuwa-saka) => [
+      q(7486),
+      q(0),
+      ],
+   q(makhuwa-shirima) => [
+      q(7013),
+      q(0),
+      ],
+   q(maklew) => [
+      q(4247),
+      q(0),
+      ],
+   q(makolkol) => [
+      q(7868),
+      q(0),
+      ],
+   q(makonde) => [
+      q(3237),
+      q(0),
+      ],
+   q(maku) => [
+      q(7267),
+      q(0),
+      ],
+   q(maku'a) => [
+      q(4086),
+      q(0),
+      ],
+   q(makurap) => [
+      q(4468),
+      q(0),
+      ],
+   q(makuri naga) => [
+      q(3121),
+      q(0),
+      ],
+   q(makwe) => [
+      q(7680),
+      q(0),
+      ],
+   q(makyan naga) => [
+      q(6893),
+      q(0),
+      ],
+   q(mal) => [
+      q(4365),
+      q(0),
+      ],
+   q(mal paharia) => [
+      q(4338),
+      q(0),
+      ],
+   q(mala (nigeria)) => [
+      q(5863),
+      q(0),
+      ],
+   q(mala (papua new guinea)) => [
+      q(5402),
+      q(0),
+      ],
+   q(mala malasar) => [
+      q(2959),
+      q(0),
+      ],
+   q(malaccan creole malay) => [
+      q(1685),
+      q(0),
+      ],
+   q(malaccan creole portuguese) => [
+      q(4157),
+      q(0),
+      ],
+   q(malagasy) => [
+      q(0284),
+      q(0),
+      ],
+   q(malalamai) => [
+      q(4401),
+      q(0),
+      ],
+   q(malango) => [
+      q(4372),
+      q(0),
+      ],
+   q(malankuravan) => [
+      q(4325),
+      q(0),
+      ],
+   q(malapandaram) => [
+      q(4326),
+      q(0),
+      ],
+   q(malaryan) => [
+      q(4327),
+      q(0),
+      ],
+   q(malas) => [
+      q(4352),
+      q(0),
+      ],
+   q(malasar) => [
+      q(7687),
+      q(0),
+      ],
+   q(malavedan) => [
+      q(4328),
+      q(0),
+      ],
+   q(malawi lomwe) => [
+      q(4016),
+      q(0),
+      ],
+   q(malawi sena) => [
+      q(6295),
+      q(0),
+      ],
+   q(malay) => [
+      q(0275),
+      q(0),
+      ],
+   q(malay (individual language)) => [
+      q(7858),
+      q(0),
+      ],
+   q(malay (macrolanguage)) => [
+      q(0275),
+      q(1),
+      ],
+   q(malayalam) => [
+      q(0269),
+      q(0),
+      ],
+   q(malayic dayak) => [
+      q(7314),
+      q(0),
+      ],
+   q(malaynon) => [
+      q(4382),
+      q(0),
+      ],
+   q(malayo) => [
+      q(4134),
+      q(0),
+      ],
+   q(malayo-polynesian languages) => [
+      q(0521),
+      q(0),
+      ],
+   q(malaysian sign language) => [
+      q(7402),
+      q(0),
+      ],
+   q(malba birifor) => [
+      q(1151),
+      q(0),
+      ],
+   q(maldivian) => [
+      q(0111),
+      q(2),
+      ],
+   q(male) => [
+      q(2821),
+      q(1),
+      ],
+   q(male (ethiopia)) => [
+      q(4192),
+      q(0),
+      ],
+   q(male (papua new guinea)) => [
+      q(4173),
+      q(0),
+      ],
+   q(malecite-passamaquoddy) => [
+      q(5580),
+      q(0),
+      ],
+   q(maleku jaika) => [
+      q(2658),
+      q(0),
+      ],
+   q(maleng) => [
+      q(5481),
+      q(0),
+      ],
+   q(maleu-kilenge) => [
+      q(4253),
+      q(0),
+      ],
+   q(malfaxal) => [
+      q(4381),
+      q(0),
+      ],
+   q(malgana) => [
+      q(7014),
+      q(0),
+      ],
+   q(malgbe) => [
+      q(4645),
+      q(0),
+      ],
+   q(mali) => [
+      q(2442),
+      q(0),
+      ],
+   q(malila) => [
+      q(4258),
+      q(0),
+      ],
+   q(malimba) => [
+      q(4690),
+      q(0),
+      ],
+   q(malimpung) => [
+      q(4367),
+      q(0),
+      ],
+   q(malinaltepec me'phaa) => [
+      q(6399),
+      q(0),
+      ],
+   q(malinaltepec tlapanec) => [
+      q(6399),
+      q(1),
+      ],
+   q(malo) => [
+      q(4361),
+      q(0),
+      ],
+   q(malol) => [
+      q(4129),
+      q(0),
+      ],
+   q(maltese) => [
+      q(0285),
+      q(0),
+      ],
+   q(maltese sign language) => [
+      q(4181),
+      q(0),
+      ],
+   q(malua bay) => [
+      q(4370),
+      q(0),
+      ],
+   q(malvi) => [
+      q(4585),
+      q(0),
+      ],
+   q(malyangapa) => [
+      q(7618),
+      q(0),
+      ],
+   q(mam) => [
+      q(4112),
+      q(0),
+      ],
+   q(mama) => [
+      q(4383),
+      q(0),
+      ],
+   q(mamaa) => [
+      q(4272),
+      q(0),
+      ],
+   q(mamainde) => [
+      q(7157),
+      q(0),
+      ],
+   q(mamanwa) => [
+      q(4396),
+      q(0),
+      ],
+   q(mamara senoufo) => [
+      q(4675),
+      q(0),
+      ],
+   q(mamasa) => [
+      q(4482),
+      q(0),
+      ],
+   q(mambae) => [
+      q(4254),
+      q(0),
+      ],
+   q(mambai) => [
+      q(4163),
+      q(0),
+      ],
+   q(mamboru) => [
+      q(4596),
+      q(0),
+      ],
+   q(mambwe-lungu) => [
+      q(4259),
+      q(0),
+      ],
+   q(mampruli) => [
+      q(4117),
+      q(0),
+      ],
+   q(mamuju) => [
+      q(4496),
+      q(0),
+      ],
+   q(mamulique) => [
+      q(2252),
+      q(0),
+      ],
+   q(mamusi) => [
+      q(3238),
+      q(0),
+      ],
+   q(mamvu) => [
+      q(4178),
+      q(0),
+      ],
+   q(man met) => [
+      q(4394),
+      q(0),
+      ],
+   q(manado malay) => [
+      q(7403),
+      q(0),
+      ],
+   q(manam) => [
+      q(4594),
+      q(0),
+      ],
+   q(manambu) => [
+      q(4364),
+      q(0),
+      ],
+   q(manangba) => [
+      q(4967),
+      q(0),
+      ],
+   q(manangkari) => [
+      q(7890),
+      q(0),
+      ],
+   q(manchu) => [
+      q(0286),
+      q(0),
+      ],
+   q(manda (australia)) => [
+      q(7861),
+      q(0),
+      ],
+   q(manda (india)) => [
+      q(4267),
+      q(0),
+      ],
+   q(manda (tanzania)) => [
+      q(4260),
+      q(0),
+      ],
+   q(mandahuaca) => [
+      q(4285),
+      q(0),
+      ],
+   q(mandaic) => [
+      q(4293),
+      q(0),
+      ],
+   q(mandan) => [
+      q(4282),
+      q(0),
+      ],
+   q(mandandanyi) => [
+      q(7871),
+      q(0),
+      ],
+   q(mandar) => [
+      q(0277),
+      q(0),
+      ],
+   q(mandara) => [
+      q(6374),
+      q(0),
+      ],
+   q(mandari) => [
+      q(4493),
+      q(0),
+      ],
+   q(mandarin chinese) => [
+      q(1787),
+      q(0),
+      ],
+   q(mandaya) => [
+      q(4522),
+      q(0),
+      ],
+   q(mande languages) => [
+      q(0501),
+      q(0),
+      ],
+   q(mandeali) => [
+      q(4322),
+      q(0),
+      ],
+   q(mander) => [
+      q(4490),
+      q(0),
+      ],
+   q(manding) => [
+      q(0270),
+      q(1),
+      ],
+   q(mandingo) => [
+      q(0270),
+      q(0),
+      ],
+   q(mandinka) => [
+      q(4416),
+      q(0),
+      ],
+   q(mandjak) => [
+      q(4238),
+      q(0),
+      ],
+   q(mandobo atas) => [
+      q(0558),
+      q(0),
+      ],
+   q(mandobo bawah) => [
+      q(1556),
+      q(0),
+      ],
+   q(manem) => [
+      q(3081),
+      q(0),
+      ],
+   q(mang) => [
+      q(7889),
+      q(0),
+      ],
+   q(manga kanuri) => [
+      q(3206),
+      q(0),
+      ],
+   q(mangala) => [
+      q(4205),
+      q(0),
+      ],
+   q(mangarayi) => [
+      q(4451),
+      q(0),
+      ],
+   q(mangareva) => [
+      q(4519),
+      q(0),
+      ],
+   q(mangas) => [
+      q(7891),
+      q(0),
+      ],
+   q(mangayat) => [
+      q(4674),
+      q(0),
+      ],
+   q(mangbetu) => [
+      q(4179),
+      q(0),
+      ],
+   q(mangbutu) => [
+      q(4180),
+      q(0),
+      ],
+   q(mangerr) => [
+      q(7865),
+      q(0),
+      ],
+   q(mangga buang) => [
+      q(4397),
+      q(0),
+      ],
+   q(manggarai) => [
+      q(4497),
+      q(0),
+      ],
+   q(mango) => [
+      q(4246),
+      q(0),
+      ],
+   q(mangole) => [
+      q(4476),
+      q(0),
+      ],
+   q(mangseng) => [
+      q(4126),
+      q(0),
+      ],
+   q(mangue) => [
+      q(4438),
+      q(0),
+      ],
+   q(manichaean middle persian) => [
+      q(7404),
+      q(0),
+      ],
+   q(manide) => [
+      q(0563),
+      q(0),
+      ],
+   q(manikion) => [
+      q(4427),
+      q(0),
+      ],
+   q(manipa) => [
+      q(4488),
+      q(0),
+      ],
+   q(manipuri) => [
+      q(0287),
+      q(0),
+      ],
+   q(mankanya) => [
+      q(3482),
+      q(0),
+      ],
+   q(manna-dora) => [
+      q(4331),
+      q(0),
+      ],
+   q(mannan) => [
+      q(4332),
+      q(0),
+      ],
+   q(mano) => [
+      q(4213),
+      q(0),
+      ],
+   q(manobo languages) => [
+      q(0288),
+      q(0),
+      ],
+   q(manombai) => [
+      q(7193),
+      q(0),
+      ],
+   q(mansaka) => [
+      q(4533),
+      q(0),
+      ],
+   q(mansi) => [
+      q(4423),
+      q(0),
+      ],
+   q(mansoanka) => [
+      q(4544),
+      q(0),
+      ],
+   q(manta) => [
+      q(4671),
+      q(0),
+      ],
+   q(mantsi) => [
+      q(5097),
+      q(0),
+      ],
+   q(manumanaw) => [
+      q(3715),
+      q(1),
+      ],
+   q(manumanaw karen) => [
+      q(3715),
+      q(0),
+      ],
+   q(manusela) => [
+      q(7109),
+      q(1),
+      ],
+   q(manx) => [
+      q(0157),
+      q(0),
+      ],
+   q(manya) => [
+      q(4695),
+      q(0),
+      ],
+   q(manyawa) => [
+      q(4428),
+      q(0),
+      ],
+   q(manyika) => [
+      q(4642),
+      q(0),
+      ],
+   q(manza) => [
+      q(4707),
+      q(0),
+      ],
+   q(mao naga) => [
+      q(4739),
+      q(0),
+      ],
+   q(maonan) => [
+      q(4386),
+      q(0),
+      ],
+   q(maore comorian) => [
+      q(6288),
+      q(0),
+      ],
+   q(maori) => [
+      q(0271),
+      q(0),
+      ],
+   q(mape) => [
+      q(4366),
+      q(0),
+      ],
+   q(mapena) => [
+      q(4418),
+      q(0),
+      ],
+   q(mapia) => [
+      q(4472),
+      q(0),
+      ],
+   q(mapidian) => [
+      q(4470),
+      q(0),
+      ],
+   q(mapos buang) => [
+      q(1619),
+      q(0),
+      ],
+   q(mapoyo) => [
+      q(4151),
+      q(0),
+      ],
+   q(mapuche) => [
+      q(0025),
+      q(1),
+      ],
+   q(mapudungun) => [
+      q(0025),
+      q(0),
+      ],
+   q(mapun) => [
+      q(6053),
+      q(0),
+      ],
+   q(maquiritari) => [
+      q(4152),
+      q(0),
+      ],
+   q(mara) => [
+      q(4196),
+      q(0),
+      ],
+   q(mara chin) => [
+      q(4506),
+      q(0),
+      ],
+   q(marachi) => [
+      q(4037),
+      q(0),
+      ],
+   q(maraghei) => [
+      q(7010),
+      q(0),
+      ],
+   q(maragus) => [
+      q(4516),
+      q(0),
+      ],
+   q(maram naga) => [
+      q(4955),
+      q(0),
+      ],
+   q(marama) => [
+      q(4040),
+      q(0),
+      ],
+   q(maramba) => [
+      q(4668),
+      q(0),
+      ],
+   q(maranao) => [
+      q(4520),
+      q(0),
+      ],
+   q(marangis) => [
+      q(7060),
+      q(1),
+      ],
+   q(maranunggu) => [
+      q(7878),
+      q(0),
+      ],
+   q(mararit) => [
+      q(4243),
+      q(0),
+      ],
+   q(marathi) => [
+      q(0273),
+      q(0),
+      ],
+   q(marau) => [
+      q(4609),
+      q(0),
+      ],
+   q(marba) => [
+      q(4454),
+      q(0),
+      ],
+   q(maremgi) => [
+      q(4521),
+      q(0),
+      ],
+   q(marenje) => [
+      q(7018),
+      q(0),
+      ],
+   q(marfa) => [
+      q(4612),
+      q(0),
+      ],
+   q(margany) => [
+      q(7863),
+      q(0),
+      ],
+   q(marghi central) => [
+      q(4517),
+      q(0),
+      ],
+   q(marghi south) => [
+      q(4229),
+      q(0),
+      ],
+   q(margos-yarowilca-lauricocha quechua) => [
+      q(5698),
+      q(0),
+      ],
+   q(margu) => [
+      q(4273),
+      q(0),
+      ],
+   q(mari) => [
+      q(0081),
+      q(0),
+      ],
+   q(mari (east sepik province)) => [
+      q(4142),
+      q(0),
+      ],
+   q(mari (madang province)) => [
+      q(2808),
+      q(0),
+      ],
+   q(mari (russia)) => [
+      q(0081),
+      q(1),
+      ],
+   q(maria (india)) => [
+      q(4515),
+      q(0),
+      ],
+   q(maria (papua new guinea)) => [
+      q(4186),
+      q(0),
+      ],
+   q(maricopa) => [
+      q(4501),
+      q(0),
+      ],
+   q(maridan) => [
+      q(7864),
+      q(0),
+      ],
+   q(maridjabin) => [
+      q(7870),
+      q(0),
+      ],
+   q(marik) => [
+      q(1934),
+      q(0),
+      ],
+   q(marimanindji) => [
+      q(7873),
+      q(0),
+      ],
+   q(marind) => [
+      q(4523),
+      q(0),
+      ],
+   q(maring) => [
+      q(4141),
+      q(0),
+      ],
+   q(maring naga) => [
+      q(4987),
+      q(0),
+      ],
+   q(maringarr) => [
+      q(7880),
+      q(0),
+      ],
+   q(marino) => [
+      q(4500),
+      q(0),
+      ],
+   q(mariri) => [
+      q(4481),
+      q(0),
+      ],
+   q(marithiel) => [
+      q(4234),
+      q(0),
+      ],
+   q(maritime sign language) => [
+      q(5075),
+      q(0),
+      ],
+   q(maritsaua) => [
+      q(4538),
+      q(0),
+      ],
+   q(mariyedi) => [
+      q(7885),
+      q(0),
+      ],
+   q(marka) => [
+      q(5792),
+      q(0),
+      ],
+   q(markweeta) => [
+      q(2261),
+      q(0),
+      ],
+   q(marma) => [
+      q(5818),
+      q(0),
+      ],
+   q(marovo) => [
+      q(4606),
+      q(0),
+      ],
+   q(marriammu) => [
+      q(7472),
+      q(0),
+      ],
+   q(marrucinian) => [
+      q(6888),
+      q(0),
+      ],
+   q(marshallese) => [
+      q(0266),
+      q(0),
+      ],
+   q(marsian) => [
+      q(2965),
+      q(0),
+      ],
+   q(martha's vineyard sign language) => [
+      q(4503),
+      q(0),
+      ],
+   q(marti ke) => [
+      q(7867),
+      q(0),
+      ],
+   q(martu wangka) => [
+      q(4457),
+      q(0),
+      ],
+   q(martuyhunira) => [
+      q(7003),
+      q(0),
+      ],
+   q(maru) => [
+      q(4288),
+      q(0),
+      ],
+   q(marubo) => [
+      q(4703),
+      q(0),
+      ],
+   q(marwari) => [
+      q(0296),
+      q(0),
+      ],
+   q(marwari (india)) => [
+      q(5869),
+      q(0),
+      ],
+   q(marwari (pakistan)) => [
+      q(4597),
+      q(0),
+      ],
+   q(masaaba) => [
+      q(4684),
+      q(0),
+      ],
+   q(masadiit itneg) => [
+      q(6518),
+      q(0),
+      ],
+   q(masai) => [
+      q(0274),
+      q(0),
+      ],
+   q(masalit) => [
+      q(4377),
+      q(0),
+      ],
+   q(masana) => [
+      q(4158),
+      q(0),
+      ],
+   q(masbatenyo) => [
+      q(4524),
+      q(0),
+      ],
+   q(mashco piro) => [
+      q(1904),
+      q(0),
+      ],
+   q(mashi (nigeria)) => [
+      q(3123),
+      q(0),
+      ],
+   q(mashi (zambia)) => [
+      q(4280),
+      q(0),
+      ],
+   q(masikoro malagasy) => [
+      q(4530),
+      q(0),
+      ],
+   q(masimasi) => [
+      q(3002),
+      q(0),
+      ],
+   q(masiwang) => [
+      q(1333),
+      q(0),
+      ],
+   q(maskelynes) => [
+      q(3447),
+      q(0),
+      ],
+   q(maslam) => [
+      q(4543),
+      q(0),
+      ],
+   q(masmaje) => [
+      q(4210),
+      q(0),
+      ],
+   q(massalat) => [
+      q(4176),
+      q(0),
+      ],
+   q(massep) => [
+      q(4610),
+      q(0),
+      ],
+   q(matagalpa) => [
+      q(4561),
+      q(0),
+      ],
+   q(matal) => [
+      q(4224),
+      q(0),
+      ],
+   q(matbat) => [
+      q(7410),
+      q(0),
+      ],
+   q(matengo) => [
+      q(4263),
+      q(0),
+      ],
+   q(matepi) => [
+      q(4477),
+      q(0),
+      ],
+   q(matigsalug manobo) => [
+      q(4138),
+      q(0),
+      ],
+   q(matipuhy) => [
+      q(4700),
+      q(0),
+      ],
+   q(matis) => [
+      q(4464),
+      q(0),
+      ],
+   q(mato) => [
+      q(4211),
+      q(0),
+      ],
+   q(mato grosso arara) => [
+      q(0988),
+      q(0),
+      ],
+   q(mator) => [
+      q(4560),
+      q(0),
+      ],
+   q(matses) => [
+      q(4150),
+      q(0),
+      ],
+   q(mattoki) => [
+      q(7430),
+      q(1),
+      ],
+   q(mattole) => [
+      q(4595),
+      q(0),
+      ],
+   q(matu chin) => [
+      q(2772),
+      q(0),
+      ],
+   q(matukar) => [
+      q(4321),
+      q(0),
+      ],
+   q(matumbi) => [
+      q(4264),
+      q(0),
+      ],
+   q(matya samo) => [
+      q(6251),
+      q(0),
+      ],
+   q(maung) => [
+      q(4455),
+      q(0),
+      ],
+   q(mauritian sign language) => [
+      q(4060),
+      q(0),
+      ],
+   q(mauwake) => [
+      q(4277),
+      q(0),
+      ],
+   q(mawa (chad)) => [
+      q(4167),
+      q(0),
+      ],
+   q(mawa (nigeria)) => [
+      q(7154),
+      q(0),
+      ],
+   q(mawak) => [
+      q(4320),
+      q(0),
+      ],
+   q(mawan) => [
+      q(4170),
+      q(0),
+      ],
+   q(mawayana) => [
+      q(4709),
+      q(0),
+      ],
+   q(mawchi) => [
+      q(4340),
+      q(0),
+      ],
+   q(mawes) => [
+      q(4252),
+      q(0),
+      ],
+   q(mawukakan) => [
+      q(4663),
+      q(1),
+      ],
+   q(maxakali) => [
+      q(4130),
+      q(0),
+      ],
+   q(maxi gbe) => [
+      q(4651),
+      q(0),
+      ],
+   q(maya samo) => [
+      q(6328),
+      q(0),
+      ],
+   q(mayaguduna) => [
+      q(7415),
+      q(0),
+      ],
+   q(mayan languages) => [
+      q(0297),
+      q(0),
+      ],
+   q(mayangna) => [
+      q(7573),
+      q(0),
+      ],
+   q(mayawali) => [
+      q(7779),
+      q(0),
+      ],
+   q(mayeka) => [
+      q(4667),
+      q(0),
+      ],
+   q(mayi-kulan) => [
+      q(7553),
+      q(0),
+      ],
+   q(mayi-thakurti) => [
+      q(7555),
+      q(0),
+      ],
+   q(mayi-yapi) => [
+      q(7552),
+      q(0),
+      ],
+   q(mayo) => [
+      q(4241),
+      q(0),
+      ],
+   q(mayogo) => [
+      q(4182),
+      q(0),
+      ],
+   q(mayoyao ifugao) => [
+      q(2915),
+      q(0),
+      ],
+   q(mazagway) => [
+      q(2071),
+      q(0),
+      ],
+   q(mazaltepec zapotec) => [
+      q(7923),
+      q(0),
+      ],
+   q(mazanderani) => [
+      q(4699),
+      q(0),
+      ],
+   q(mazatlan mazatec) => [
+      q(7025),
+      q(0),
+      ],
+   q(mazatlan mixe) => [
+      q(4697),
+      q(0),
+      ],
+   q(mba) => [
+      q(4219),
+      q(0),
+      ],
+   q(mbala) => [
+      q(4184),
+      q(0),
+      ],
+   q(mbalanhu) => [
+      q(3991),
+      q(0),
+      ],
+   q(mbandja) => [
+      q(7886),
+      q(0),
+      ],
+   q(mbangala) => [
+      q(4646),
+      q(0),
+      ],
+   q(mbangi) => [
+      q(4255),
+      q(0),
+      ],
+   q(mbangwe) => [
+      q(7874),
+      q(0),
+      ],
+   q(mbara (australia)) => [
+      q(4603),
+      q(0),
+      ],
+   q(mbara (chad)) => [
+      q(4458),
+      q(0),
+      ],
+   q(mbariman-gudhinma) => [
+      q(7882),
+      q(0),
+      ],
+   q(mbati) => [
+      q(4183),
+      q(0),
+      ],
+   q(mbato) => [
+      q(2676),
+      q(0),
+      ],
+   q(mbay) => [
+      q(4666),
+      q(0),
+      ],
+   q(mbe) => [
+      q(4231),
+      q(0),
+      ],
+   q(mbe') => [
+      q(4558),
+      q(0),
+      ],
+   q(mbelime) => [
+      q(4484),
+      q(0),
+      ],
+   q(mbere) => [
+      q(4187),
+      q(0),
+      ],
+   q(mbesa) => [
+      q(7879),
+      q(0),
+      ],
+   q(mbo (cameroon)) => [
+      q(4133),
+      q(0),
+      ],
+   q(mbo (democratic republic of congo)) => [
+      q(7883),
+      q(0),
+      ],
+   q(mboi) => [
+      q(4435),
+      q(0),
+      ],
+   q(mboko) => [
+      q(4188),
+      q(0),
+      ],
+   q(mbole) => [
+      q(4185),
+      q(0),
+      ],
+   q(mbonga) => [
+      q(7393),
+      q(0),
+      ],
+   q(mbongno) => [
+      q(1180),
+      q(0),
+      ],
+   q(mbosi) => [
+      q(4190),
+      q(0),
+      ],
+   q(mbowe) => [
+      q(4654),
+      q(0),
+      ],
+   q(mbre) => [
+      q(4337),
+      q(0),
+      ],
+   q(mbudum) => [
+      q(7395),
+      q(0),
+      ],
+   q(mbugu) => [
+      q(4270),
+      q(0),
+      ],
+   q(mbugwe) => [
+      q(4266),
+      q(0),
+      ],
+   q(mbuko) => [
+      q(4475),
+      q(0),
+      ],
+   q(mbukushu) => [
+      q(4287),
+      q(0),
+      ],
+   q(mbula) => [
+      q(4408),
+      q(0),
+      ],
+   q(mbula-bwazza) => [
+      q(4139),
+      q(0),
+      ],
+   q(mbule) => [
+      q(4362),
+      q(0),
+      ],
+   q(mbulungish) => [
+      q(4140),
+      q(0),
+      ],
+   q(mbum) => [
+      q(4174),
+      q(0),
+      ],
+   q(mbunda) => [
+      q(4155),
+      q(0),
+      ],
+   q(mbunga) => [
+      q(4265),
+      q(0),
+      ],
+   q(mburku) => [
+      q(1058),
+      q(0),
+      ],
+   q(mbwela) => [
+      q(4237),
+      q(0),
+      ],
+   q(mbya guarani) => [
+      q(2652),
+      q(0),
+      ],
+   q(me'en) => [
+      q(4677),
+      q(0),
+      ],
+   q(mea) => [
+      q(1737),
+      q(2),
+      ],
+   q(medebur) => [
+      q(4323),
+      q(0),
+      ],
+   q(media lengua) => [
+      q(4577),
+      q(0),
+      ],
+   q(mediak) => [
+      q(4637),
+      q(0),
+      ],
+   q(median) => [
+      q(7396),
+      q(0),
+      ],
+   q(mednyj aleut) => [
+      q(4576),
+      q(0),
+      ],
+   q(medumba) => [
+      q(1608),
+      q(0),
+      ],
+   q(mefele) => [
+      q(4226),
+      q(0),
+      ],
+   q(megam) => [
+      q(4199),
+      q(0),
+      ],
+   q(megleno romanian) => [
+      q(5860),
+      q(0),
+      ],
+   q(mehek) => [
+      q(5121),
+      q(0),
+      ],
+   q(mehinaku) => [
+      q(4390),
+      q(0),
+      ],
+   q(mehri) => [
+      q(2465),
+      q(0),
+      ],
+   q(mekeo) => [
+      q(4203),
+      q(0),
+      ],
+   q(mekmek) => [
+      q(4602),
+      q(0),
+      ],
+   q(mekwei) => [
+      q(4528),
+      q(0),
+      ],
+   q(mele-fila) => [
+      q(4644),
+      q(0),
+      ],
+   q(melo) => [
+      q(4240),
+      q(0),
+      ],
+   q(melpa) => [
+      q(4197),
+      q(0),
+      ],
+   q(memoni) => [
+      q(4143),
+      q(0),
+      ],
+   q(mendalam kayan) => [
+      q(7358),
+      q(0),
+      ],
+   q(mendankwe-nkwen) => [
+      q(4220),
+      q(0),
+      ],
+   q(mende) => [
+      q(0278),
+      q(0),
+      ],
+   q(mende (papua new guinea)) => [
+      q(6035),
+      q(0),
+      ],
+   q(mende (sierra leone)) => [
+      q(0278),
+      q(1),
+      ],
+   q(mengaka) => [
+      q(7398),
+      q(0),
+      ],
+   q(mengen) => [
+      q(4198),
+      q(0),
+      ],
+   q(mengisa) => [
+      q(4164),
+      q(0),
+      ],
+   q(menik) => [
+      q(6611),
+      q(0),
+      ],
+   q(menka) => [
+      q(4194),
+      q(0),
+      ],
+   q(menominee) => [
+      q(4216),
+      q(0),
+      ],
+   q(mentawai) => [
+      q(4635),
+      q(0),
+      ],
+   q(menya) => [
+      q(4162),
+      q(0),
+      ],
+   q(meoswar) => [
+      q(4615),
+      q(0),
+      ],
+   q(mer) => [
+      q(4424),
+      q(0),
+      ],
+   q(meramera) => [
+      q(4652),
+      q(0),
+      ],
+   q(merei) => [
+      q(3968),
+      q(0),
+      ],
+   q(merey) => [
+      q(4208),
+      q(0),
+      ],
+   q(meriam) => [
+      q(6881),
+      q(0),
+      ],
+   q(merlav) => [
+      q(4510),
+      q(0),
+      ],
+   q(meroitic) => [
+      q(7408),
+      q(0),
+      ],
+   q(meru) => [
+      q(4209),
+      q(0),
+      ],
+   q(merwari) => [
+      q(7217),
+      q(0),
+      ],
+   q(mesaka) => [
+      q(3034),
+      q(0),
+      ],
+   q(mescalero-chiricahua apache) => [
+      q(0846),
+      q(0),
+      ],
+   q(mese) => [
+      q(4153),
+      q(0),
+      ],
+   q(meskwaki) => [
+      q(5878),
+      q(0),
+      ],
+   q(mesme) => [
+      q(7838),
+      q(0),
+      ],
+   q(mesmes) => [
+      q(4681),
+      q(0),
+      ],
+   q(mesopotamian arabic) => [
+      q(0592),
+      q(0),
+      ],
+   q(mesqan) => [
+      q(4617),
+      q(0),
+      ],
+   q(messapic) => [
+      q(1790),
+      q(0),
+      ],
+   q(meta') => [
+      q(4256),
+      q(0),
+      ],
+   q(metlatonoc mixtec) => [
+      q(4661),
+      q(0),
+      ],
+   q(mewari) => [
+      q(4565),
+      q(0),
+      ],
+   q(mewati) => [
+      q(7231),
+      q(0),
+      ],
+   q(mexican sign language) => [
+      q(4235),
+      q(0),
+      ],
+   q(meyah) => [
+      q(4202),
+      q(0),
+      ],
+   q(mezontla popoloca) => [
+      q(5362),
+      q(0),
+      ],
+   q(mezquital otomi) => [
+      q(5314),
+      q(0),
+      ],
+   q(mfinu) => [
+      q(7866),
+      q(0),
+      ],
+   q(mfumte) => [
+      q(4827),
+      q(0),
+      ],
+   q(mgbolizhia) => [
+      q(2564),
+      q(0),
+      ],
+   q(mi'kmaq) => [
+      q(0280),
+      q(0),
+      ],
+   q(miahuatlan zapotec) => [
+      q(7802),
+      q(0),
+      ],
+   q(miami) => [
+      q(4291),
+      q(0),
+      ],
+   q(mian) => [
+      q(4467),
+      q(0),
+      ],
+   q(miani) => [
+      q(5483),
+      q(0),
+      ],
+   q(michif) => [
+      q(1844),
+      q(0),
+      ],
+   q(michigamea) => [
+      q(1786),
+      q(0),
+      ],
+   q(michoacan mazahua) => [
+      q(4385),
+      q(0),
+      ],
+   q(michoacan nahuatl) => [
+      q(4765),
+      q(0),
+      ],
+   q(micmac) => [
+      q(0280),
+      q(1),
+      ],
+   q(mid grand valley dani) => [
+      q(2102),
+      q(0),
+      ],
+   q(mid-southern banda) => [
+      q(1244),
+      q(0),
+      ],
+   q(middle armenian) => [
+      q(0991),
+      q(0),
+      ],
+   q(middle breton) => [
+      q(7287),
+      q(0),
+      ],
+   q(middle cornish) => [
+      q(1805),
+      q(0),
+      ],
+   q(middle dutch (ca. 1050-1350)) => [
+      q(0116),
+      q(1),
+      ],
+   q(middle english (1100-1500)) => [
+      q(0125),
+      q(1),
+      ],
+   q(middle french (ca. 1400-1600)) => [
+      q(0139),
+      q(1),
+      ],
+   q(middle high german (ca. 1050-1500)) => [
+      q(0158),
+      q(1),
+      ],
+   q(middle hittite) => [
+      q(2848),
+      q(0),
+      ],
+   q(middle irish (900-1200)) => [
+      q(0279),
+      q(1),
+      ],
+   q(middle korean (10th-16th cent.)) => [
+      q(5230),
+      q(0),
+      ],
+   q(middle low german) => [
+      q(2557),
+      q(0),
+      ],
+   q(middle mongolian) => [
+      q(7419),
+      q(0),
+      ],
+   q(middle newar) => [
+      q(5135),
+      q(0),
+      ],
+   q(middle watut) => [
+      q(4459),
+      q(0),
+      ],
+   q(middle welsh) => [
+      q(7145),
+      q(0),
+      ],
+   q(midob) => [
+      q(4201),
+      q(0),
+      ],
+   q(migaama) => [
+      q(4406),
+      q(0),
+      ],
+   q(migabac) => [
+      q(4463),
+      q(0),
+      ],
+   q(migum) => [
+      q(3438),
+      q(0),
+      ],
+   q(miji) => [
+      q(6052),
+      q(1),
+      ],
+   q(miju-mishmi) => [
+      q(4649),
+      q(0),
+      ],
+   q(mikasuki) => [
+      q(4300),
+      q(0),
+      ],
+   q(mili) => [
+      q(7678),
+      q(0),
+      ],
+   q(miltu) => [
+      q(4368),
+      q(0),
+      ],
+   q(miluk) => [
+      q(2961),
+      q(0),
+      ],
+   q(milyan) => [
+      q(2966),
+      q(0),
+      ],
+   q(min bei chinese) => [
+      q(4420),
+      q(0),
+      ],
+   q(min dong chinese) => [
+      q(1698),
+      q(0),
+      ],
+   q(min nan chinese) => [
+      q(4722),
+      q(0),
+      ],
+   q(min zhong chinese) => [
+      q(1930),
+      q(0),
+      ],
+   q(mina (cameroon)) => [
+      q(2797),
+      q(0),
+      ],
+   q(mina (india)) => [
+      q(4673),
+      q(0),
+      ],
+   q(minaean) => [
+      q(2971),
+      q(0),
+      ],
+   q(minang) => [
+      q(7465),
+      q(0),
+      ],
+   q(minangkabau) => [
+      q(0281),
+      q(0),
+      ],
+   q(minanibai) => [
+      q(4166),
+      q(0),
+      ],
+   q(minaveha) => [
+      q(4605),
+      q(0),
+      ],
+   q(minderico) => [
+      q(2129),
+      q(0),
+      ],
+   q(mindiri) => [
+      q(4461),
+      q(0),
+      ],
+   q(mingang doso) => [
+      q(4349),
+      q(0),
+      ],
+   q(mingrelian) => [
+      q(7397),
+      q(0),
+      ],
+   q(minica huitoto) => [
+      q(2845),
+      q(0),
+      ],
+   q(minidien) => [
+      q(7119),
+      q(0),
+      ],
+   q(minigir) => [
+      q(1571),
+      q(1),
+      ],
+   q(minjungbal) => [
+      q(7353),
+      q(0),
+      ],
+   q(minkin) => [
+      q(7547),
+      q(0),
+      ],
+   q(minoan) => [
+      q(5254),
+      q(0),
+      ],
+   q(minokok) => [
+      q(4489),
+      q(0),
+      ],
+   q(minriq) => [
+      q(4421),
+      q(0),
+      ],
+   q(mintil) => [
+      q(4705),
+      q(0),
+      ],
+   q(minz zhuang) => [
+      q(7826),
+      q(0),
+      ],
+   q(miqie) => [
+      q(7641),
+      q(0),
+      ],
+   q(mirandese) => [
+      q(0295),
+      q(0),
+      ],
+   q(miraya bikol) => [
+      q(5751),
+      q(0),
+      ],
+   q(mirgan) => [
+      q(7927),
+      q(0),
+      ],
+   q(miriti) => [
+      q(4403),
+      q(0),
+      ],
+   q(miriwoong sign language) => [
+      q(5845),
+      q(0),
+      ],
+   q(miriwung) => [
+      q(4207),
+      q(0),
+      ],
+   q(miship) => [
+      q(4329),
+      q(0),
+      ],
+   q(misima-panaeati) => [
+      q(4471),
+      q(0),
+      ],
+   q(mising) => [
+      q(4505),
+      q(0),
+      ],
+   q(miskito) => [
+      q(4305),
+      q(0),
+      ],
+   q(mitla zapotec) => [
+      q(7810),
+      q(0),
+      ],
+   q(mitlatongo mixtec) => [
+      q(7015),
+      q(0),
+      ],
+   q(mittu) => [
+      q(4634),
+      q(0),
+      ],
+   q(mituku) => [
+      q(7877),
+      q(0),
+      ],
+   q(miu) => [
+      q(4462),
+      q(0),
+      ],
+   q(miwa) => [
+      q(7011),
+      q(0),
+      ],
+   q(mixed great andamanese) => [
+      q(2397),
+      q(0),
+      ],
+   q(mixtepec mixtec) => [
+      q(4310),
+      q(0),
+      ],
+   q(mixtepec zapotec) => [
+      q(7911),
+      q(0),
+      ],
+   q(miya) => [
+      q(4341),
+      q(0),
+      ],
+   q(miyako) => [
+      q(4601),
+      q(0),
+      ],
+   q(miyobe) => [
+      q(6165),
+      q(0),
+      ],
+   q(mlabri) => [
+      q(4499),
+      q(0),
+      ],
+   q(mlahso) => [
+      q(3898),
+      q(0),
+      ],
+   q(mlap) => [
+      q(3375),
+      q(0),
+      ],
+   q(mlomp) => [
+      q(4373),
+      q(0),
+      ],
+   q(mmaala) => [
+      q(4402),
+      q(0),
+      ],
+   q(mmen) => [
+      q(1149),
+      q(0),
+      ],
+   q(mo) => [
+      q(7133),
+      q(1),
+      ],
+   q(mo'da) => [
+      q(2430),
+      q(0),
+      ],
+   q(moabite) => [
+      q(5187),
+      q(0),
+      ],
+   q(moba) => [
+      q(4233),
+      q(0),
+      ],
+   q(mobilian) => [
+      q(4432),
+      q(0),
+      ],
+   q(mobumrin aizi) => [
+      q(0685),
+      q(0),
+      ],
+   q(mobwa karen) => [
+      q(3108),
+      q(0),
+      ],
+   q(mocheno) => [
+      q(4279),
+      q(0),
+      ],
+   q(mochi) => [
+      q(5239),
+      q(0),
+      ],
+   q(mochica) => [
+      q(5249),
+      q(0),
+      ],
+   q(mocho) => [
+      q(4269),
+      q(0),
+      ],
+   q(mocovi) => [
+      q(4431),
+      q(0),
+      ],
+   q(modang) => [
+      q(4643),
+      q(0),
+      ],
+   q(modern greek (1453-)) => [
+      q(0165),
+      q(2),
+      ],
+   q(modole) => [
+      q(4487),
+      q(0),
+      ],
+   q(moere) => [
+      q(4608),
+      q(0),
+      ],
+   q(mofu-gudur) => [
+      q(4295),
+      q(0),
+      ],
+   q(mogholi) => [
+      q(4275),
+      q(0),
+      ],
+   q(mogofin) => [
+      q(4223),
+      q(0),
+      ],
+   q(mogum) => [
+      q(4443),
+      q(0),
+      ],
+   q(mohave) => [
+      q(4444),
+      q(0),
+      ],
+   q(mohawk) => [
+      q(0289),
+      q(0),
+      ],
+   q(mohegan-pequot) => [
+      q(7453),
+      q(0),
+      ],
+   q(moi (congo)) => [
+      q(4445),
+      q(0),
+      ],
+   q(moi (indonesia)) => [
+      q(4653),
+      q(0),
+      ],
+   q(moikodi) => [
+      q(4350),
+      q(0),
+      ],
+   q(moingi) => [
+      q(4639),
+      q(0),
+      ],
+   q(moji) => [
+      q(7679),
+      q(0),
+      ],
+   q(mok) => [
+      q(4492),
+      q(0),
+      ],
+   q(moken) => [
+      q(4633),
+      q(0),
+      ],
+   q(mokerang) => [
+      q(4236),
+      q(0),
+      ],
+   q(mokilese) => [
+      q(4344),
+      q(0),
+      ],
+   q(moklen) => [
+      q(4347),
+      q(0),
+      ],
+   q(mokole) => [
+      q(4346),
+      q(0),
+      ],
+   q(mokpwe) => [
+      q(1429),
+      q(0),
+      ],
+   q(moksela) => [
+      q(7019),
+      q(0),
+      ],
+   q(moksha) => [
+      q(0276),
+      q(0),
+      ],
+   q(molale) => [
+      q(4124),
+      q(0),
+      ],
+   q(molbog) => [
+      q(5656),
+      q(0),
+      ],
+   q(moldavian) => [
+      q(0361),
+      q(1),
+      ],
+   q(moldova sign language) => [
+      q(7033),
+      q(0),
+      ],
+   q(moldovan) => [
+      q(0361),
+      q(2),
+      ],
+   q(molengue) => [
+      q(1568),
+      q(0),
+      ],
+   q(molima) => [
+      q(4446),
+      q(0),
+      ],
+   q(molmo one) => [
+      q(0945),
+      q(0),
+      ],
+   q(molo) => [
+      q(7875),
+      q(0),
+      ],
+   q(molof) => [
+      q(4534),
+      q(0),
+      ],
+   q(moloko) => [
+      q(4380),
+      q(0),
+      ],
+   q(mom jango) => [
+      q(6979),
+      q(0),
+      ],
+   q(moma) => [
+      q(4676),
+      q(0),
+      ],
+   q(momare) => [
+      q(4547),
+      q(0),
+      ],
+   q(mombo dogon) => [
+      q(2077),
+      q(0),
+      ],
+   q(mombum) => [
+      q(4537),
+      q(0),
+      ],
+   q(momina) => [
+      q(4384),
+      q(0),
+      ],
+   q(momuna) => [
+      q(4478),
+      q(0),
+      ],
+   q(mon) => [
+      q(4426),
+      q(0),
+      ],
+   q(mon-khmer languages) => [
+      q(0283),
+      q(0),
+      ],
+   q(monastic sign language) => [
+      q(4692),
+      q(0),
+      ],
+   q(monde) => [
+      q(4410),
+      q(0),
+      ],
+   q(mondropolon) => [
+      q(5031),
+      q(0),
+      ],
+   q(mong) => [
+      q(0180),
+      q(1),
+      ],
+   q(mong leng) => [
+      q(2802),
+      q(1),
+      ],
+   q(mong njua) => [
+      q(2802),
+      q(2),
+      ],
+   q(mongo) => [
+      q(0253),
+      q(0),
+      ],
+   q(mongol) => [
+      q(4261),
+      q(0),
+      ],
+   q(mongolia buriat) => [
+      q(1578),
+      q(0),
+      ],
+   q(mongolian) => [
+      q(0290),
+      q(0),
+      ],
+   q(mongolian languages) => [
+      q(0532),
+      q(0),
+      ],
+   q(mongolian sign language) => [
+      q(4540),
+      q(0),
+      ],
+   q(mongondow) => [
+      q(4434),
+      q(0),
+      ],
+   q(moni) => [
+      q(4429),
+      q(0),
+      ],
+   q(mono (cameroon)) => [
+      q(4518),
+      q(0),
+      ],
+   q(mono (democratic republic of congo)) => [
+      q(4414),
+      q(0),
+      ],
+   q(mono (solomon islands)) => [
+      q(4552),
+      q(0),
+      ],
+   q(mono (usa)) => [
+      q(4422),
+      q(0),
+      ],
+   q(monom) => [
+      q(4439),
+      q(0),
+      ],
+   q(monsang naga) => [
+      q(4962),
+      q(0),
+      ],
+   q(montagnais) => [
+      q(4433),
+      q(0),
+      ],
+   q(montenegrin) => [
+      q(0090),
+      q(0),
+      ],
+   q(montol) => [
+      q(4559),
+      q(0),
+      ],
+   q(monumbo) => [
+      q(4650),
+      q(0),
+      ],
+   q(monzombo) => [
+      q(4436),
+      q(0),
+      ],
+   q(moo) => [
+      q(2682),
+      q(0),
+      ],
+   q(moose cree) => [
+      q(1849),
+      q(0),
+      ],
+   q(mopan maya) => [
+      q(4440),
+      q(0),
+      ],
+   q(mor (bomberai peninsula)) => [
+      q(4441),
+      q(0),
+      ],
+   q(mor (mor islands)) => [
+      q(4290),
+      q(0),
+      ],
+   q(moraid) => [
+      q(4529),
+      q(0),
+      ],
+   q(morawa) => [
+      q(4691),
+      q(0),
+      ],
+   q(morelos nahuatl) => [
+      q(4863),
+      q(0),
+      ],
+   q(morerebi) => [
+      q(7405),
+      q(0),
+      ],
+   q(moresada) => [
+      q(4545),
+      q(0),
+      ],
+   q(mori atas) => [
+      q(4702),
+      q(0),
+      ],
+   q(mori bawah) => [
+      q(7416),
+      q(0),
+      ],
+   q(morigi) => [
+      q(4172),
+      q(0),
+      ],
+   q(morisyen) => [
+      q(4221),
+      q(0),
+      ],
+   q(moro) => [
+      q(4442),
+      q(0),
+      ],
+   q(moroccan arabic) => [
+      q(0884),
+      q(0),
+      ],
+   q(moroccan sign language) => [
+      q(7409),
+      q(0),
+      ],
+   q(morokodo) => [
+      q(4244),
+      q(0),
+      ],
+   q(morom) => [
+      q(1104),
+      q(0),
+      ],
+   q(moronene) => [
+      q(4486),
+      q(0),
+      ],
+   q(morori) => [
+      q(4437),
+      q(0),
+      ],
+   q(morouas) => [
+      q(4513),
+      q(0),
+      ],
+   q(mortlockese) => [
+      q(4509),
+      q(0),
+      ],
+   q(moru) => [
+      q(4245),
+      q(0),
+      ],
+   q(mosimo) => [
+      q(4494),
+      q(0),
+      ],
+   q(mosiro) => [
+      q(4638),
+      q(0),
+      ],
+   q(moskona) => [
+      q(4557),
+      q(0),
+      ],
+   q(mossi) => [
+      q(0291),
+      q(0),
+      ],
+   q(mota) => [
+      q(4567),
+      q(0),
+      ],
+   q(motlav) => [
+      q(4379),
+      q(0),
+      ],
+   q(motu) => [
+      q(4212),
+      q(0),
+      ],
+   q(mouk-aria) => [
+      q(4624),
+      q(0),
+      ],
+   q(mountain koiali) => [
+      q(3541),
+      q(0),
+      ],
+   q(mouwase) => [
+      q(3124),
+      q(0),
+      ],
+   q(movima) => [
+      q(4701),
+      q(0),
+      ],
+   q(moyadan itneg) => [
+      q(3022),
+      q(0),
+      ],
+   q(moyon naga) => [
+      q(4969),
+      q(0),
+      ],
+   q(mozambican sign language) => [
+      q(4710),
+      q(0),
+      ],
+   q(mozarabic) => [
+      q(4648),
+      q(0),
+      ],
+   q(mpade) => [
+      q(4456),
+      q(0),
+      ],
+   q(mpalitjanh) => [
+      q(7447),
+      q(0),
+      ],
+   q(mpi) => [
+      q(4473),
+      q(0),
+      ],
+   q(mpiemo) => [
+      q(4168),
+      q(0),
+      ],
+   q(mpoto) => [
+      q(4449),
+      q(0),
+      ],
+   q(mpotovoro) => [
+      q(4611),
+      q(0),
+      ],
+   q(mpumpong) => [
+      q(4248),
+      q(0),
+      ],
+   q(mpuono) => [
+      q(7876),
+      q(0),
+      ],
+   q(mpur) => [
+      q(0724),
+      q(0),
+      ],
+   q(mro-khimi chin) => [
+      q(1789),
+      q(0),
+      ],
+   q(mru) => [
+      q(4512),
+      q(0),
+      ],
+   q(mser) => [
+      q(3567),
+      q(0),
+      ],
+   q(mt. iraya agta) => [
+      q(0919),
+      q(0),
+      ],
+   q(mt. iriga agta) => [
+      q(0677),
+      q(0),
+      ],
+   q(muak sa-aak) => [
+      q(6867),
+      q(0),
+      ],
+   q(mualang) => [
+      q(4551),
+      q(0),
+      ],
+   q(mubami) => [
+      q(6716),
+      q(0),
+      ],
+   q(mubi) => [
+      q(4574),
+      q(0),
+      ],
+   q(muda) => [
+      q(7675),
+      q(0),
+      ],
+   q(mudburra) => [
+      q(2090),
+      q(0),
+      ],
+   q(mudhili gadaba) => [
+      q(2415),
+      q(0),
+      ],
+   q(mudu koraga) => [
+      q(7006),
+      q(0),
+      ],
+   q(muduga) => [
+      q(6847),
+      q(0),
+      ],
+   q(mufian) => [
+      q(0824),
+      q(0),
+      ],
+   q(mugom) => [
+      q(4582),
+      q(0),
+      ],
+   q(muinane) => [
+      q(1320),
+      q(0),
+      ],
+   q(mukha-dora) => [
+      q(4393),
+      q(0),
+      ],
+   q(mukulu) => [
+      q(4448),
+      q(0),
+      ],
+   q(mulaha) => [
+      q(4239),
+      q(0),
+      ],
+   q(mulam) => [
+      q(4371),
+      q(0),
+      ],
+   q(mulao) => [
+      q(2524),
+      q(0),
+      ],
+   q(mulgi) => [
+      q(4600),
+      q(0),
+      ],
+   q(mullu kurumba) => [
+      q(3521),
+      q(0),
+      ],
+   q(mullukmulluk) => [
+      q(4450),
+      q(0),
+      ],
+   q(multiple languages) => [
+      q(0292),
+      q(0),
+      ],
+   q(muluridyi) => [
+      q(7020),
+      q(0),
+      ],
+   q(mum) => [
+      q(3544),
+      q(0),
+      ],
+   q(mumuye) => [
+      q(4698),
+      q(0),
+      ],
+   q(mun chin) => [
+      q(4631),
+      q(0),
+      ],
+   q(muna) => [
+      q(4409),
+      q(0),
+      ],
+   q(munda) => [
+      q(6907),
+      q(0),
+      ],
+   q(munda languages) => [
+      q(0293),
+      q(0),
+      ],
+   q(mundabli) => [
+      q(1354),
+      q(0),
+      ],
+   q(mundang) => [
+      q(4573),
+      q(0),
+      ],
+   q(mundani) => [
+      q(4412),
+      q(0),
+      ],
+   q(mundari) => [
+      q(6905),
+      q(0),
+      ],
+   q(mundat) => [
+      q(4388),
+      q(0),
+      ],
+   q(mundu) => [
+      q(4579),
+      q(0),
+      ],
+   q(munduruku) => [
+      q(4682),
+      q(0),
+      ],
+   q(mungaka) => [
+      q(4276),
+      q(0),
+      ],
+   q(mungbam) => [
+      q(4299),
+      q(1),
+      ],
+   q(munggui) => [
+      q(4555),
+      q(0),
+      ],
+   q(mungkip) => [
+      q(4469),
+      q(0),
+      ],
+   q(muniche) => [
+      q(4680),
+      q(0),
+      ],
+   q(munit) => [
+      q(4550),
+      q(0),
+      ],
+   q(munji) => [
+      q(4415),
+      q(0),
+      ],
+   q(munsee) => [
+      q(6898),
+      q(0),
+      ],
+   q(muong) => [
+      q(4564),
+      q(0),
+      ],
+   q(mur pano) => [
+      q(6549),
+      q(0),
+      ],
+   q(muratayak) => [
+      q(0907),
+      q(0),
+      ],
+   q(murik (malaysia)) => [
+      q(4657),
+      q(0),
+      ],
+   q(murik (papua new guinea)) => [
+      q(4553),
+      q(0),
+      ],
+   q(murkim) => [
+      q(5802),
+      q(0),
+      ],
+   q(murle) => [
+      q(4587),
+      q(0),
+      ],
+   q(murrinh-patha) => [
+      q(4622),
+      q(0),
+      ],
+   q(mursi) => [
+      q(4593),
+      q(0),
+      ],
+   q(murui huitoto) => [
+      q(2866),
+      q(0),
+      ],
+   q(murupi) => [
+      q(4495),
+      q(0),
+      ],
+   q(muruwari) => [
+      q(7881),
+      q(0),
+      ],
+   q(musak) => [
+      q(4399),
+      q(0),
+      ],
+   q(musar) => [
+      q(4391),
+      q(0),
+      ],
+   q(musasa) => [
+      q(6114),
+      q(0),
+      ],
+   q(musey) => [
+      q(4527),
+      q(0),
+      ],
+   q(musgu) => [
+      q(4578),
+      q(0),
+      ],
+   q(mushungulu) => [
+      q(7392),
+      q(0),
+      ],
+   q(musi) => [
+      q(4580),
+      q(0),
+      ],
+   q(muskum) => [
+      q(4316),
+      q(0),
+      ],
+   q(muslim tat) => [
+      q(6738),
+      q(0),
+      ],
+   q(musom) => [
+      q(4542),
+      q(0),
+      ],
+   q(mussau-emira) => [
+      q(2250),
+      q(0),
+      ],
+   q(muthuvan) => [
+      q(4590),
+      q(0),
+      ],
+   q(mutu) => [
+      q(6746),
+      q(0),
+      ],
+   q(muya) => [
+      q(4604),
+      q(0),
+      ],
+   q(muyang) => [
+      q(4592),
+      q(0),
+      ],
+   q(muyuw) => [
+      q(4683),
+      q(0),
+      ],
+   q(muzi) => [
+      q(7690),
+      q(0),
+      ],
+   q(mvanip) => [
+      q(4154),
+      q(0),
+      ],
+   q(mvuba) => [
+      q(4647),
+      q(0),
+      ],
+   q(mwaghavul) => [
+      q(6274),
+      q(0),
+      ],
+   q(mwali comorian) => [
+      q(7139),
+      q(0),
+      ],
+   q(mwan) => [
+      q(4430),
+      q(0),
+      ],
+   q(mwani) => [
+      q(7166),
+      q(0),
+      ],
+   q(mwatebu) => [
+      q(4618),
+      q(0),
+      ],
+   q(mwera (chimwera)) => [
+      q(4621),
+      q(0),
+      ],
+   q(mwera (nyasa)) => [
+      q(4318),
+      q(0),
+      ],
+   q(mwerlap) => [
+      q(4510),
+      q(1),
+      ],
+   q(mwimbi-muthambi) => [
+      q(4632),
+      q(0),
+      ],
+   q(mwotlap) => [
+      q(4379),
+      q(1),
+      ],
+   q(mycenaean greek) => [
+      q(2563),
+      q(0),
+      ],
+   q(myene) => [
+      q(4669),
+      q(0),
+      ],
+   q(mysian) => [
+      q(7688),
+      q(0),
+      ],
+   q(mzieme naga) => [
+      q(4959),
+      q(0),
+      ],
+   q(n'ko) => [
+      q(0318),
+      q(0),
+      ],
+   q(n/u) => [
+      q(4834),
+      q(0),
+      ],
+   q(na) => [
+      q(4749),
+      q(0),
+      ],
+   q(na-dene languages) => [
+      q(0533),
+      q(0),
+      ],
+   q(na-meo) => [
+      q(4813),
+      q(0),
+      ],
+   q(naaba) => [
+      q(4723),
+      q(0),
+      ],
+   q(naami) => [
+      q(1633),
+      q(0),
+      ],
+   q(naasioi) => [
+      q(4726),
+      q(0),
+      ],
+   q(naba) => [
+      q(4411),
+      q(0),
+      ],
+   q(nabak) => [
+      q(4716),
+      q(0),
+      ],
+   q(nabi) => [
+      q(4572),
+      q(0),
+      ],
+   q(nachering) => [
+      q(4757),
+      q(0),
+      ],
+   q(nadeb) => [
+      q(4128),
+      q(0),
+      ],
+   q(nadruvian) => [
+      q(4781),
+      q(0),
+      ],
+   q(nafaanra) => [
+      q(4826),
+      q(0),
+      ],
+   q(nafi) => [
+      q(6202),
+      q(0),
+      ],
+   q(nafri) => [
+      q(5150),
+      q(0),
+      ],
+   q(nafusi) => [
+      q(3063),
+      q(0),
+      ],
+   q(naga pidgin) => [
+      q(4717),
+      q(0),
+      ],
+   q(nagarchal) => [
+      q(4737),
+      q(0),
+      ],
+   q(nage) => [
+      q(5139),
+      q(0),
+      ],
+   q(nagumi) => [
+      q(4848),
+      q(0),
+      ],
+   q(naha'ai) => [
+      q(4381),
+      q(1),
+      ],
+   q(nahali) => [
+      q(4952),
+      q(0),
+      ],
+   q(nahari) => [
+      q(4860),
+      q(0),
+      ],
+   q(nahavaq) => [
+      q(6139),
+      q(1),
+      ],
+   q(nahuatl languages) => [
+      q(0299),
+      q(0),
+      ],
+   q(nai) => [
+      q(1220),
+      q(0),
+      ],
+   q(najdi arabic) => [
+      q(0880),
+      q(0),
+      ],
+   q(naka'ela) => [
+      q(4715),
+      q(0),
+      ],
+   q(nakai) => [
+      q(4924),
+      q(0),
+      ],
+   q(nakame) => [
+      q(4876),
+      q(0),
+      ],
+   q(nakanai) => [
+      q(4719),
+      q(0),
+      ],
+   q(nakara) => [
+      q(4764),
+      q(0),
+      ],
+   q(nake) => [
+      q(4741),
+      q(0),
+      ],
+   q(naki) => [
+      q(4222),
+      q(0),
+      ],
+   q(nakwi) => [
+      q(4729),
+      q(0),
+      ],
+   q(nalca) => [
+      q(4940),
+      q(0),
+      ],
+   q(nali) => [
+      q(5076),
+      q(0),
+      ],
+   q(nalik) => [
+      q(4720),
+      q(0),
+      ],
+   q(nalogo) => [
+      q(4954),
+      q(0),
+      ],
+   q(nalu) => [
+      q(4718),
+      q(0),
+      ],
+   q(naluo yi) => [
+      q(7669),
+      q(0),
+      ],
+   q(nama (namibia)) => [
+      q(4724),
+      q(1),
+      ],
+   q(nama (papua new guinea)) => [
+      q(4978),
+      q(0),
+      ],
+   q(namakura) => [
+      q(4965),
+      q(0),
+      ],
+   q(namat) => [
+      q(4926),
+      q(0),
+      ],
+   q(nambo) => [
+      q(4766),
+      q(0),
+      ],
+   q(nambya) => [
+      q(4971),
+      q(0),
+      ],
+   q(namia) => [
+      q(4993),
+      q(0),
+      ],
+   q(namiae) => [
+      q(5125),
+      q(0),
+      ],
+   q(namibian sign language) => [
+      q(4748),
+      q(0),
+      ],
+   q(namla) => [
+      q(4712),
+      q(0),
+      ],
+   q(namo) => [
+      q(4662),
+      q(0),
+      ],
+   q(namonuito) => [
+      q(4974),
+      q(0),
+      ],
+   q(namosi-naitasiri-serua) => [
+      q(1542),
+      q(0),
+      ],
+   q(namuyi) => [
+      q(4979),
+      q(0),
+      ],
+   q(nanai) => [
+      q(2542),
+      q(0),
+      ],
+   q(nancere) => [
+      q(4983),
+      q(0),
+      ],
+   q(nande) => [
+      q(4982),
+      q(0),
+      ],
+   q(nandi) => [
+      q(4889),
+      q(0),
+      ],
+   q(nanerige senoufo) => [
+      q(5965),
+      q(0),
+      ],
+   q(nanga dama dogon) => [
+      q(5179),
+      q(0),
+      ],
+   q(nankina) => [
+      q(4991),
+      q(0),
+      ],
+   q(nanti) => [
+      q(1825),
+      q(0),
+      ],
+   q(nanticoke) => [
+      q(4999),
+      q(0),
+      ],
+   q(nanubae) => [
+      q(0645),
+      q(0),
+      ],
+   q(napo lowland quechua) => [
+      q(5700),
+      q(0),
+      ],
+   q(napu) => [
+      q(5036),
+      q(0),
+      ],
+   q(nar phu) => [
+      q(5025),
+      q(0),
+      ],
+   q(nara) => [
+      q(5045),
+      q(0),
+      ],
+   q(narak) => [
+      q(4714),
+      q(0),
+      ],
+   q(narango) => [
+      q(5049),
+      q(0),
+      ],
+   q(narau) => [
+      q(5149),
+      q(0),
+      ],
+   q(nari nari) => [
+      q(5824),
+      q(0),
+      ],
+   q(narim) => [
+      q(4011),
+      q(0),
+      ],
+   q(naro) => [
+      q(4868),
+      q(0),
+      ],
+   q(narom) => [
+      q(5053),
+      q(0),
+      ],
+   q(narragansett) => [
+      q(7427),
+      q(0),
+      ],
+   q(narrinyeri) => [
+      q(4730),
+      q(0),
+      ],
+   q(narua) => [
+      q(5058),
+      q(0),
+      ],
+   q(narungga) => [
+      q(4997),
+      q(0),
+      ],
+   q(nasal) => [
+      q(5082),
+      q(0),
+      ],
+   q(nasarian) => [
+      q(5124),
+      q(0),
+      ],
+   q(naskapi) => [
+      q(5069),
+      q(0),
+      ],
+   q(natanzi) => [
+      q(5098),
+      q(0),
+      ],
+   q(nataoran amis) => [
+      q(0709),
+      q(0),
+      ],
+   q(natchez) => [
+      q(4776),
+      q(0),
+      ],
+   q(nateni) => [
+      q(5090),
+      q(0),
+      ],
+   q(nathembo) => [
+      q(5085),
+      q(0),
+      ],
+   q(natioro) => [
+      q(5087),
+      q(0),
+      ],
+   q(natugu) => [
+      q(5094),
+      q(0),
+      ],
+   q(nauete) => [
+      q(5137),
+      q(0),
+      ],
+   q(naukan yupik) => [
+      q(7695),
+      q(0),
+      ],
+   q(nauna) => [
+      q(4767),
+      q(0),
+      ],
+   q(nauo) => [
+      q(5133),
+      q(0),
+      ],
+   q(nauru) => [
+      q(0302),
+      q(0),
+      ],
+   q(navaho) => [
+      q(0303),
+      q(1),
+      ],
+   q(navajo) => [
+      q(0303),
+      q(0),
+      ],
+   q(navut) => [
+      q(5080),
+      q(0),
+      ],
+   q(nawaru) => [
+      q(5134),
+      q(0),
+      ],
+   q(nawathinehena) => [
+      q(5127),
+      q(0),
+      ],
+   q(nawdm) => [
+      q(4980),
+      q(0),
+      ],
+   q(nawuri) => [
+      q(4728),
+      q(0),
+      ],
+   q(naxi) => [
+      q(5147),
+      q(0),
+      ],
+   q(nayi) => [
+      q(5024),
+      q(0),
+      ],
+   q(nayini) => [
+      q(5163),
+      q(0),
+      ],
+   q(ncane) => [
+      q(4771),
+      q(0),
+      ],
+   q(nchumbulu) => [
+      q(4949),
+      q(0),
+      ],
+   q(nda'nda') => [
+      q(5004),
+      q(0),
+      ],
+   q(ndai) => [
+      q(2536),
+      q(0),
+      ],
+   q(ndaka) => [
+      q(4786),
+      q(0),
+      ],
+   q(ndaktup) => [
+      q(4769),
+      q(0),
+      ],
+   q(ndali) => [
+      q(4783),
+      q(0),
+      ],
+   q(ndam) => [
+      q(4788),
+      q(0),
+      ],
+   q(ndamba) => [
+      q(4785),
+      q(0),
+      ],
+   q(ndambomo) => [
+      q(5146),
+      q(0),
+      ],
+   q(ndasa) => [
+      q(4777),
+      q(0),
+      ],
+   q(ndau) => [
+      q(4779),
+      q(0),
+      ],
+   q(nde-gbite) => [
+      q(4803),
+      q(0),
+      ],
+   q(nde-nsele-nta) => [
+      q(4780),
+      q(0),
+      ],
+   q(ndebele, north) => [
+      q(0305),
+      q(0),
+      ],
+   q(ndebele, south) => [
+      q(0304),
+      q(0),
+      ],
+   q(ndemli) => [
+      q(4966),
+      q(0),
+      ],
+   q(ndendeule) => [
+      q(2095),
+      q(0),
+      ],
+   q(ndengereko) => [
+      q(4782),
+      q(0),
+      ],
+   q(nding) => [
+      q(2241),
+      q(0),
+      ],
+   q(ndo) => [
+      q(4790),
+      q(0),
+      ],
+   q(ndobo) => [
+      q(4796),
+      q(0),
+      ],
+   q(ndoe) => [
+      q(4733),
+      q(0),
+      ],
+   q(ndogo) => [
+      q(4799),
+      q(0),
+      ],
+   q(ndolo) => [
+      q(4787),
+      q(0),
+      ],
+   q(ndom) => [
+      q(5040),
+      q(0),
+      ],
+   q(ndombe) => [
+      q(4791),
+      q(0),
+      ],
+   q(ndonde hamba) => [
+      q(4900),
+      q(0),
+      ],
+   q(ndonga) => [
+      q(0306),
+      q(0),
+      ],
+   q(ndoola) => [
+      q(4792),
+      q(0),
+      ],
+   q(ndra'ngith) => [
+      q(2011),
+      q(0),
+      ],
+   q(nduga) => [
+      q(4797),
+      q(0),
+      ],
+   q(ndumu) => [
+      q(4958),
+      q(0),
+      ],
+   q(ndunda) => [
+      q(5105),
+      q(0),
+      ],
+   q(ndunga) => [
+      q(4793),
+      q(0),
+      ],
+   q(ndut) => [
+      q(4795),
+      q(0),
+      ],
+   q(ndyuka-trio pidgin) => [
+      q(4910),
+      q(0),
+      ],
+   q(ndzwani comorian) => [
+      q(7173),
+      q(0),
+      ],
+   q(neapolitan) => [
+      q(0301),
+      q(0),
+      ],
+   q(nedebang) => [
+      q(4802),
+      q(0),
+      ],
+   q(nefamese) => [
+      q(4805),
+      q(0),
+      ],
+   q(negerhollands) => [
+      q(1971),
+      q(0),
+      ],
+   q(negeri sembilan malay) => [
+      q(7869),
+      q(0),
+      ],
+   q(negidal) => [
+      q(4806),
+      q(0),
+      ],
+   q(nehan) => [
+      q(5072),
+      q(0),
+      ],
+   q(nek) => [
+      q(4879),
+      q(0),
+      ],
+   q(nekgini) => [
+      q(4921),
+      q(0),
+      ],
+   q(neko) => [
+      q(4809),
+      q(0),
+      ],
+   q(neku) => [
+      q(4810),
+      q(0),
+      ],
+   q(nelemwa-nixumwak) => [
+      q(4804),
+      q(0),
+      ],
+   q(nema) => [
+      q(2634),
+      q(0),
+      ],
+   q(neme) => [
+      q(4820),
+      q(0),
+      ],
+   q(nemi) => [
+      q(4811),
+      q(0),
+      ],
+   q(nen) => [
+      q(5041),
+      q(0),
+      ],
+   q(nend) => [
+      q(0797),
+      q(0),
+      ],
+   q(nenets) => [
+      q(7724),
+      q(0),
+      ],
+   q(nenge) => [
+      q(2060),
+      q(2),
+      ],
+   q(nengone) => [
+      q(4812),
+      q(0),
+      ],
+   q(neo) => [
+      q(4818),
+      q(0),
+      ],
+   q(neo-hittite) => [
+      q(4808),
+      q(0),
+      ],
+   q(nepal bhasa) => [
+      q(0309),
+      q(0),
+      ],
+   q(nepalese sign language) => [
+      q(5073),
+      q(0),
+      ],
+   q(nepali) => [
+      q(0308),
+      q(0),
+      ],
+   q(nepali (individual language)) => [
+      q(5029),
+      q(0),
+      ],
+   q(nepali (macrolanguage)) => [
+      q(0308),
+      q(1),
+      ],
+   q(nepali kurux) => [
+      q(3720),
+      q(0),
+      ],
+   q(nete) => [
+      q(4817),
+      q(0),
+      ],
+   q(neve'ei) => [
+      q(7027),
+      q(1),
+      ],
+   q(neverver) => [
+      q(3882),
+      q(1),
+      ],
+   q(new caledonian javanese) => [
+      q(3053),
+      q(0),
+      ],
+   q(new zealand sign language) => [
+      q(5176),
+      q(0),
+      ],
+   q(newari) => [
+      q(0309),
+      q(1),
+      ],
+   q(neyo) => [
+      q(4821),
+      q(0),
+      ],
+   q(nez perce) => [
+      q(4822),
+      q(0),
+      ],
+   q(ngaanyatjarra) => [
+      q(5088),
+      q(0),
+      ],
+   q(ngabere) => [
+      q(2700),
+      q(0),
+      ],
+   q(ngad'a) => [
+      q(5140),
+      q(0),
+      ],
+   q(ngadjunmaya) => [
+      q(4911),
+      q(0),
+      ],
+   q(ngadjuri) => [
+      q(3151),
+      q(0),
+      ],
+   q(ngaing) => [
+      q(4986),
+      q(0),
+      ],
+   q(ngaju) => [
+      q(4883),
+      q(0),
+      ],
+   q(ngala) => [
+      q(5101),
+      q(0),
+      ],
+   q(ngalakan) => [
+      q(4880),
+      q(0),
+      ],
+   q(ngalum) => [
+      q(6336),
+      q(0),
+      ],
+   q(ngam) => [
+      q(4957),
+      q(0),
+      ],
+   q(ngamambo) => [
+      q(4751),
+      q(0),
+      ],
+   q(ngambay) => [
+      q(5892),
+      q(0),
+      ],
+   q(ngamini) => [
+      q(4976),
+      q(0),
+      ],
+   q(ngamo) => [
+      q(4738),
+      q(0),
+      ],
+   q(ngan'gityemerri) => [
+      q(4721),
+      q(0),
+      ],
+   q(nganakarti) => [
+      q(7422),
+      q(0),
+      ],
+   q(nganasan) => [
+      q(4888),
+      q(0),
+      ],
+   q(ngandi) => [
+      q(4877),
+      q(0),
+      ],
+   q(ngando (central african republic)) => [
+      q(4831),
+      q(0),
+      ],
+   q(ngando (democratic republic of congo)) => [
+      q(5138),
+      q(0),
+      ],
+   q(ngandyera) => [
+      q(4985),
+      q(0),
+      ],
+   q(ngangam) => [
+      q(2570),
+      q(0),
+      ],
+   q(ngantangarra) => [
+      q(5086),
+      q(0),
+      ],
+   q(nganyaywana) => [
+      q(5170),
+      q(0),
+      ],
+   q(ngardi) => [
+      q(5870),
+      q(0),
+      ],
+   q(ngarigu) => [
+      q(7421),
+      q(0),
+      ],
+   q(ngarinman) => [
+      q(4740),
+      q(0),
+      ],
+   q(ngarinyin) => [
+      q(6901),
+      q(0),
+      ],
+   q(ngarla) => [
+      q(5051),
+      q(0),
+      ],
+   q(ngarluma) => [
+      q(5052),
+      q(0),
+      ],
+   q(ngas) => [
+      q(0793),
+      q(0),
+      ],
+   q(ngasa) => [
+      q(5066),
+      q(0),
+      ],
+   q(ngatik men's creole) => [
+      q(4839),
+      q(0),
+      ],
+   q(ngawn chin) => [
+      q(1804),
+      q(0),
+      ],
+   q(ngawun) => [
+      q(5145),
+      q(0),
+      ],
+   q(ngayawung) => [
+      q(5130),
+      q(0),
+      ],
+   q(ngazidja comorian) => [
+      q(7820),
+      q(0),
+      ],
+   q(ngbaka) => [
+      q(4828),
+      q(0),
+      ],
+   q(ngbaka ma'bo) => [
+      q(4742),
+      q(0),
+      ],
+   q(ngbaka manza) => [
+      q(4833),
+      q(0),
+      ],
+   q(ngbee) => [
+      q(3083),
+      q(0),
+      ],
+   q(ngbinda) => [
+      q(4735),
+      q(0),
+      ],
+   q(ngbundu) => [
+      q(5118),
+      q(0),
+      ],
+   q(ngelima) => [
+      q(0660),
+      q(0),
+      ],
+   q(ngemba) => [
+      q(4832),
+      q(0),
+      ],
+   q(ngendelengo) => [
+      q(5039),
+      q(0),
+      ],
+   q(ngeq) => [
+      q(4846),
+      q(1),
+      ],
+   q(ngete) => [
+      q(4994),
+      q(0),
+      ],
+   q(nggem) => [
+      q(4746),
+      q(0),
+      ],
+   q(nggwahyi) => [
+      q(4850),
+      q(0),
+      ],
+   q(ngie) => [
+      q(4836),
+      q(0),
+      ],
+   q(ngiemboon) => [
+      q(4988),
+      q(0),
+      ],
+   q(ngile) => [
+      q(3113),
+      q(0),
+      ],
+   q(ngindo) => [
+      q(4996),
+      q(0),
+      ],
+   q(ngiti) => [
+      q(4896),
+      q(0),
+      ],
+   q(ngizim) => [
+      q(4835),
+      q(0),
+      ],
+   q(ngkalmpw kanum) => [
+      q(3211),
+      q(0),
+      ],
+   q(ngom) => [
+      q(5044),
+      q(0),
+      ],
+   q(ngomba) => [
+      q(3086),
+      q(0),
+      ],
+   q(ngombale) => [
+      q(4939),
+      q(0),
+      ],
+   q(ngombe (central african republic)) => [
+      q(4964),
+      q(0),
+      ],
+   q(ngombe (democratic republic of congo)) => [
+      q(4830),
+      q(0),
+      ],
+   q(ngongo) => [
+      q(5017),
+      q(0),
+      ],
+   q(ngoni) => [
+      q(4841),
+      q(0),
+      ],
+   q(ngoreme) => [
+      q(4843),
+      q(1),
+      ],
+   q(ngoshie) => [
+      q(5067),
+      q(0),
+      ],
+   q(ngul) => [
+      q(4947),
+      q(0),
+      ],
+   q(ngulu) => [
+      q(4842),
+      q(0),
+      ],
+   q(nguluwan) => [
+      q(5120),
+      q(0),
+      ],
+   q(ngumbi) => [
+      q(5106),
+      q(0),
+      ],
+   q(ngunawal) => [
+      q(7520),
+      q(0),
+      ],
+   q(ngundi) => [
+      q(4789),
+      q(0),
+      ],
+   q(ngundu) => [
+      q(5102),
+      q(0),
+      ],
+   q(ngungwel) => [
+      q(4852),
+      q(0),
+      ],
+   q(nguon) => [
+      q(5112),
+      q(0),
+      ],
+   q(ngurimi) => [
+      q(4843),
+      q(0),
+      ],
+   q(ngurmbur) => [
+      q(5059),
+      q(0),
+      ],
+   q(ngwaba) => [
+      q(4849),
+      q(0),
+      ],
+   q(ngwe) => [
+      q(5129),
+      q(0),
+      ],
+   q(ngwo) => [
+      q(4840),
+      q(0),
+      ],
+   q(nhanda) => [
+      q(4853),
+      q(0),
+      ],
+   q(nhengatu) => [
+      q(7725),
+      q(0),
+      ],
+   q(nhirrpi) => [
+      q(2834),
+      q(0),
+      ],
+   q(nhuwala) => [
+      q(4858),
+      q(0),
+      ],
+   q(nias) => [
+      q(0310),
+      q(0),
+      ],
+   q(nicaragua creole english) => [
+      q(1622),
+      q(0),
+      ],
+   q(nicaraguan sign language) => [
+      q(4772),
+      q(0),
+      ],
+   q(nicarao) => [
+      q(5570),
+      q(1),
+      ],
+   q(niellim) => [
+      q(4878),
+      q(0),
+      ],
+   q(niger-kordofanian languages) => [
+      q(0311),
+      q(0),
+      ],
+   q(nigeria mambila) => [
+      q(4696),
+      q(0),
+      ],
+   q(nigerian fulfulde) => [
+      q(2391),
+      q(0),
+      ],
+   q(nigerian pidgin) => [
+      q(5389),
+      q(0),
+      ],
+   q(nigerian sign language) => [
+      q(5068),
+      q(0),
+      ],
+   q(nihali) => [
+      q(4946),
+      q(0),
+      ],
+   q(nii) => [
+      q(4882),
+      q(0),
+      ],
+   q(niksek) => [
+      q(2421),
+      q(0),
+      ],
+   q(nila) => [
+      q(4885),
+      q(0),
+      ],
+   q(nilamba) => [
+      q(4886),
+      q(0),
+      ],
+   q(nilo-saharan languages) => [
+      q(0407),
+      q(0),
+      ],
+   q(nimadi) => [
+      q(5008),
+      q(0),
+      ],
+   q(nimanbur) => [
+      q(4970),
+      q(0),
+      ],
+   q(nimbari) => [
+      q(4972),
+      q(0),
+      ],
+   q(nimboran) => [
+      q(4890),
+      q(0),
+      ],
+   q(nimi) => [
+      q(4891),
+      q(0),
+      ],
+   q(nimo) => [
+      q(4894),
+      q(0),
+      ],
+   q(nimoa) => [
+      q(4977),
+      q(0),
+      ],
+   q(ninam) => [
+      q(6002),
+      q(0),
+      ],
+   q(ninde) => [
+      q(4625),
+      q(1),
+      ],
+   q(nindi) => [
+      q(5141),
+      q(0),
+      ],
+   q(ningera) => [
+      q(4753),
+      q(0),
+      ],
+   q(ninggerum) => [
+      q(5148),
+      q(0),
+      ],
+   q(ningil) => [
+      q(4897),
+      q(0),
+      ],
+   q(ningye) => [
+      q(4998),
+      q(0),
+      ],
+   q(ninia yali) => [
+      q(4945),
+      q(0),
+      ],
+   q(ninzo) => [
+      q(4887),
+      q(0),
+      ],
+   q(nipsan) => [
+      q(5033),
+      q(0),
+      ],
+   q(nisa) => [
+      q(4909),
+      q(0),
+      ],
+   q(nisenan) => [
+      q(5083),
+      q(0),
+      ],
+   q(nisga'a) => [
+      q(4760),
+      q(0),
+      ],
+   q(nisi (china)) => [
+      q(7737),
+      q(0),
+      ],
+   q(niuafo'ou) => [
+      q(5110),
+      q(0),
+      ],
+   q(niuatoputapu) => [
+      q(4929),
+      q(0),
+      ],
+   q(niuean) => [
+      q(0312),
+      q(0),
+      ],
+   q(nivacle) => [
+      q(1643),
+      q(0),
+      ],
+   q(niwer mil) => [
+      q(2829),
+      q(0),
+      ],
+   q(njalgulgule) => [
+      q(4904),
+      q(0),
+      ],
+   q(njebi) => [
+      q(5173),
+      q(0),
+      ],
+   q(njen) => [
+      q(4903),
+      q(0),
+      ],
+   q(njerep) => [
+      q(4908),
+      q(0),
+      ],
+   q(njyem) => [
+      q(4913),
+      q(0),
+      ],
+   q(nkami) => [
+      q(4930),
+      q(0),
+      ],
+   q(nkangala) => [
+      q(4927),
+      q(0),
+      ],
+   q(nkari) => [
+      q(4938),
+      q(0),
+      ],
+   q(nkem-nkum) => [
+      q(3000),
+      q(0),
+      ],
+   q(nkhumbi) => [
+      q(3346),
+      q(0),
+      ],
+   q(nkongho) => [
+      q(4917),
+      q(0),
+      ],
+   q(nkonya) => [
+      q(4928),
+      q(0),
+      ],
+   q(nkoroo) => [
+      q(4937),
+      q(0),
+      ],
+   q(nkoya) => [
+      q(4915),
+      q(0),
+      ],
+   q(nkukoli) => [
+      q(4744),
+      q(0),
+      ],
+   q(nkutu) => [
+      q(4936),
+      q(0),
+      ],
+   q(nnam) => [
+      q(4745),
+      q(0),
+      ],
+   q(no linguistic content) => [
+      q(0486),
+      q(0),
+      ],
+   q(nobiin) => [
+      q(2342),
+      q(0),
+      ],
+   q(nobonob) => [
+      q(2416),
+      q(0),
+      ],
+   q(nocaman) => [
+      q(5015),
+      q(0),
+      ],
+   q(nocte naga) => [
+      q(4899),
+      q(0),
+      ],
+   q(nogai) => [
+      q(0315),
+      q(0),
+      ],
+   q(noipx) => [
+      q(5035),
+      q(0),
+      ],
+   q(noiri) => [
+      q(5011),
+      q(0),
+      ],
+   q(nokuku) => [
+      q(4925),
+      q(0),
+      ],
+   q(nomaande) => [
+      q(3862),
+      q(0),
+      ],
+   q(nomane) => [
+      q(5009),
+      q(0),
+      ],
+   q(nomatsiguenga) => [
+      q(5019),
+      q(0),
+      ],
+   q(nomlaki) => [
+      q(5014),
+      q(0),
+      ],
+   q(nomu) => [
+      q(5010),
+      q(0),
+      ],
+   q(nong zhuang) => [
+      q(7832),
+      q(0),
+      ],
+   q(nonuya) => [
+      q(5012),
+      q(0),
+      ],
+   q(nooksack) => [
+      q(5013),
+      q(0),
+      ],
+   q(noon) => [
+      q(6128),
+      q(0),
+      ],
+   q(noone) => [
+      q(4870),
+      q(0),
+      ],
+   q(nopala chatino) => [
+      q(1924),
+      q(0),
+      ],
+   q(nora) => [
+      q(5056),
+      q(1),
+      ],
+   q(noric) => [
+      q(5046),
+      q(0),
+      ],
+   q(norn) => [
+      q(5054),
+      q(0),
+      ],
+   q(norra) => [
+      q(5056),
+      q(0),
+      ],
+   q(norse, old) => [
+      q(0316),
+      q(0),
+      ],
+   q(north alaskan inupiatun) => [
+      q(2290),
+      q(0),
+      ],
+   q(north ambrym) => [
+      q(4389),
+      q(0),
+      ],
+   q(north american indian languages) => [
+      q(0300),
+      q(0),
+      ],
+   q(north asmat) => [
+      q(4932),
+      q(0),
+      ],
+   q(north awyu) => [
+      q(7642),
+      q(0),
+      ],
+   q(north azerbaijani) => [
+      q(1017),
+      q(0),
+      ],
+   q(north babar) => [
+      q(1068),
+      q(0),
+      ],
+   q(north bolivian quechua) => [
+      q(5679),
+      q(0),
+      ],
+   q(north caucasian languages) => [
+      q(0496),
+      q(0),
+      ],
+   q(north central mixe) => [
+      q(4814),
+      q(0),
+      ],
+   q(north efate) => [
+      q(3962),
+      q(0),
+      ],
+   q(north fali) => [
+      q(2353),
+      q(0),
+      ],
+   q(north germanic languages) => [
+      q(0507),
+      q(0),
+      ],
+   q(north giziga) => [
+      q(2522),
+      q(0),
+      ],
+   q(north junin quechua) => [
+      q(5699),
+      q(0),
+      ],
+   q(north levantine arabic) => [
+      q(0836),
+      q(0),
+      ],
+   q(north marquesan) => [
+      q(4514),
+      q(0),
+      ],
+   q(north mesopotamian arabic) => [
+      q(1005),
+      q(0),
+      ],
+   q(north mofu) => [
+      q(4227),
+      q(0),
+      ],
+   q(north moluccan malay) => [
+      q(4118),
+      q(0),
+      ],
+   q(north muyu) => [
+      q(3623),
+      q(0),
+      ],
+   q(north ndebele) => [
+      q(0305),
+      q(1),
+      ],
+   q(north nuaulu) => [
+      q(4989),
+      q(0),
+      ],
+   q(north picene) => [
+      q(5055),
+      q(0),
+      ],
+   q(north slavey) => [
+      q(5928),
+      q(0),
+      ],
+   q(north tairora) => [
+      q(6375),
+      q(0),
+      ],
+   q(north tanna) => [
+      q(6607),
+      q(0),
+      ],
+   q(north wahgi) => [
+      q(7110),
+      q(0),
+      ],
+   q(north watut) => [
+      q(6899),
+      q(0),
+      ],
+   q(northeast kiwai) => [
+      q(3371),
+      q(0),
+      ],
+   q(northeast maidu) => [
+      q(4975),
+      q(0),
+      ],
+   q(northeast pashai) => [
+      q(0628),
+      q(0),
+      ],
+   q(northeast pashayi) => [
+      q(0628),
+      q(1),
+      ],
+   q(northeastern dinka) => [
+      q(2042),
+      q(0),
+      ],
+   q(northeastern pomo) => [
+      q(5404),
+      q(0),
+      ],
+   q(northeastern thai) => [
+      q(6737),
+      q(0),
+      ],
+   q(northern alta) => [
+      q(0864),
+      q(0),
+      ],
+   q(northern altai) => [
+      q(0929),
+      q(0),
+      ],
+   q(northern amami-oshima) => [
+      q(5872),
+      q(0),
+      ],
+   q(northern bai) => [
+      q(1139),
+      q(1),
+      ],
+   q(northern betsimisaraka malagasy) => [
+      q(1315),
+      q(0),
+      ],
+   q(northern binukidnon) => [
+      q(3748),
+      q(0),
+      ],
+   q(northern bobo madare) => [
+      q(1053),
+      q(0),
+      ],
+   q(northern bontok) => [
+      q(5750),
+      q(0),
+      ],
+   q(northern catanduanes bikol) => [
+      q(1894),
+      q(0),
+      ],
+   q(northern conchucos ancash quechua) => [
+      q(5716),
+      q(0),
+      ],
+   q(northern dagara) => [
+      q(2005),
+      q(0),
+      ],
+   q(northern dong) => [
+      q(2109),
+      q(0),
+      ],
+   q(northern east cree) => [
+      q(1848),
+      q(0),
+      ],
+   q(northern embera) => [
+      q(2254),
+      q(0),
+      ],
+   q(northern frisian) => [
+      q(0141),
+      q(0),
+      ],
+   q(northern ghale) => [
+      q(2502),
+      q(0),
+      ],
+   q(northern gondi) => [
+      q(2577),
+      q(0),
+      ],
+   q(northern grebo) => [
+      q(2431),
+      q(0),
+      ],
+   q(northern guiyang hmong) => [
+      q(2857),
+      q(0),
+      ],
+   q(northern guiyang miao) => [
+      q(2857),
+      q(1),
+      ],
+   q(northern haida) => [
+      q(2736),
+      q(0),
+      ],
+   q(northern hindko) => [
+      q(2804),
+      q(0),
+      ],
+   q(northern huishui hmong) => [
+      q(2782),
+      q(0),
+      ],
+   q(northern huishui miao) => [
+      q(2782),
+      q(1),
+      ],
+   q(northern kalapuya) => [
+      q(5057),
+      q(0),
+      ],
+   q(northern kankanay) => [
+      q(7423),
+      q(0),
+      ],
+   q(northern katang) => [
+      q(4770),
+      q(0),
+      ],
+   q(northern khmer) => [
+      q(3721),
+      q(0),
+      ],
+   q(northern kissi) => [
+      q(3562),
+      q(0),
+      ],
+   q(northern kurdish) => [
+      q(3468),
+      q(0),
+      ],
+   q(northern luri) => [
+      q(4034),
+      q(0),
+      ],
+   q(northern mashan hmong) => [
+      q(2787),
+      q(0),
+      ],
+   q(northern mashan miao) => [
+      q(2787),
+      q(1),
+      ],
+   q(northern muji) => [
+      q(7689),
+      q(0),
+      ],
+   q(northern nago) => [
+      q(7356),
+      q(0),
+      ],
+   q(northern ngbandi) => [
+      q(4829),
+      q(0),
+      ],
+   q(northern nisu) => [
+      q(7646),
+      q(0),
+      ],
+   q(northern nuni) => [
+      q(5119),
+      q(0),
+      ],
+   q(northern oaxaca nahuatl) => [
+      q(4874),
+      q(0),
+      ],
+   q(northern ohlone) => [
+      q(1878),
+      q(0),
+      ],
+   q(northern one) => [
+      q(5272),
+      q(0),
+      ],
+   q(northern paiute) => [
+      q(5350),
+      q(0),
+      ],
+   q(northern pame) => [
+      q(5518),
+      q(0),
+      ],
+   q(northern pashto) => [
+      q(5374),
+      q(0),
+      ],
+   q(northern pastaza quichua) => [
+      q(5705),
+      q(0),
+      ],
+   q(northern pomo) => [
+      q(5408),
+      q(0),
+      ],
+   q(northern puebla nahuatl) => [
+      q(4763),
+      q(0),
+      ],
+   q(northern pumi) => [
+      q(5511),
+      q(0),
+      ],
+   q(northern qiandong miao) => [
+      q(2739),
+      q(0),
+      ],
+   q(northern qiang) => [
+      q(1795),
+      q(0),
+      ],
+   q(northern rengma naga) => [
+      q(4992),
+      q(0),
+      ],
+   q(northern roglai) => [
+      q(5831),
+      q(0),
+      ],
+   q(northern sami) => [
+      q(0389),
+      q(0),
+      ],
+   q(northern sierra miwok) => [
+      q(5074),
+      q(0),
+      ],
+   q(northern sorsoganon) => [
+      q(1271),
+      q(0),
+      ],
+   q(northern sotho) => [
+      q(0319),
+      q(2),
+      ],
+   q(northern subanen) => [
+      q(6244),
+      q(0),
+      ],
+   q(northern tarahumara) => [
+      q(6489),
+      q(0),
+      ],
+   q(northern tepehuan) => [
+      q(5092),
+      q(0),
+      ],
+   q(northern thai) => [
+      q(5007),
+      q(0),
+      ],
+   q(northern tidung) => [
+      q(5084),
+      q(0),
+      ],
+   q(northern tiwa) => [
+      q(6781),
+      q(0),
+      ],
+   q(northern tlaxiaco mixtec) => [
+      q(7503),
+      q(0),
+      ],
+   q(northern toussian) => [
+      q(6708),
+      q(0),
+      ],
+   q(northern tujia) => [
+      q(6527),
+      q(0),
+      ],
+   q(northern tutchone) => [
+      q(6731),
+      q(0),
+      ],
+   q(northern uzbek) => [
+      q(6953),
+      q(0),
+      ],
+   q(northern yukaghir) => [
+      q(7650),
+      q(0),
+      ],
+   q(northwest alaska inupiatun) => [
+      q(2291),
+      q(0),
+      ],
+   q(northwest gbaya) => [
+      q(2692),
+      q(0),
+      ],
+   q(northwest maidu) => [
+      q(4315),
+      q(0),
+      ],
+   q(northwest oaxaca mixtec) => [
+      q(4640),
+      q(0),
+      ],
+   q(northwest pashai) => [
+      q(2543),
+      q(0),
+      ],
+   q(northwest pashayi) => [
+      q(2543),
+      q(1),
+      ],
+   q(northwestern dinka) => [
+      q(2048),
+      q(0),
+      ],
+   q(northwestern fars) => [
+      q(2335),
+      q(0),
+      ],
+   q(northwestern kolami) => [
+      q(3283),
+      q(0),
+      ],
+   q(northwestern kung) => [
+      q(6960),
+      q(1),
+      ],
+   q(northwestern nisu) => [
+      q(5065),
+      q(0),
+      ],
+   q(northwestern ojibwa) => [
+      q(5213),
+      q(0),
+      ],
+   q(northwestern tamang) => [
+      q(6583),
+      q(0),
+      ],
+   q(norwegian) => [
+      q(0317),
+      q(0),
+      ],
+   q(norwegian bokmal) => [
+      q(0314),
+      q(1),
+      ],
+   q(norwegian nynorsk) => [
+      q(0313),
+      q(0),
+      ],
+   q(norwegian sign language) => [
+      q(5070),
+      q(0),
+      ],
+   q(not applicable) => [
+      q(0486),
+      q(1),
+      ],
+   q(notre) => [
+      q(1301),
+      q(0),
+      ],
+   q(notsi) => [
+      q(4759),
+      q(0),
+      ],
+   q(nottoway) => [
+      q(5095),
+      q(0),
+      ],
+   q(nottoway-meherrin) => [
+      q(5136),
+      q(0),
+      ],
+   q(novial) => [
+      q(5021),
+      q(0),
+      ],
+   q(noy) => [
+      q(5023),
+      q(0),
+      ],
+   q(nsenga) => [
+      q(5064),
+      q(0),
+      ],
+   q(nshi) => [
+      q(5062),
+      q(0),
+      ],
+   q(nsongo) => [
+      q(5081),
+      q(0),
+      ],
+   q(ntcham) => [
+      q(1496),
+      q(0),
+      ],
+   q(ntomba) => [
+      q(5091),
+      q(0),
+      ],
+   q(nu) => [
+      q(4834),
+      q(1),
+      ],
+   q(nubaca) => [
+      q(1027),
+      q(0),
+      ],
+   q(nubi) => [
+      q(3221),
+      q(0),
+      ],
+   q(nubian languages) => [
+      q(0320),
+      q(0),
+      ],
+   q(nubri) => [
+      q(3619),
+      q(0),
+      ],
+   q(nuer) => [
+      q(5116),
+      q(0),
+      ],
+   q(nugunu (australia)) => [
+      q(5001),
+      q(0),
+      ],
+   q(nugunu (cameroon)) => [
+      q(7576),
+      q(0),
+      ],
+   q(nuk) => [
+      q(5006),
+      q(0),
+      ],
+   q(nukak maku) => [
+      q(4136),
+      q(0),
+      ],
+   q(nukna) => [
+      q(3445),
+      q(0),
+      ],
+   q(nukuini) => [
+      q(5100),
+      q(0),
+      ],
+   q(nukumanu) => [
+      q(5114),
+      q(0),
+      ],
+   q(nukunul) => [
+      q(7428),
+      q(0),
+      ],
+   q(nukuoro) => [
+      q(4931),
+      q(0),
+      ],
+   q(nukuria) => [
+      q(5115),
+      q(0),
+      ],
+   q(numana-nunku-gbantu-numbu) => [
+      q(4747),
+      q(0),
+      ],
+   q(numanggang) => [
+      q(5016),
+      q(0),
+      ],
+   q(numbami) => [
+      q(6032),
+      q(0),
+      ],
+   q(nume) => [
+      q(6478),
+      q(0),
+      ],
+   q(numee) => [
+      q(3243),
+      q(0),
+      ],
+   q(numidian) => [
+      q(5144),
+      q(0),
+      ],
+   q(nung (viet nam)) => [
+      q(5117),
+      q(0),
+      ],
+   q(nungali) => [
+      q(5104),
+      q(0),
+      ],
+   q(nunggubuyu) => [
+      q(5122),
+      q(0),
+      ],
+   q(nungu) => [
+      q(5781),
+      q(0),
+      ],
+   q(nuosu) => [
+      q(0190),
+      q(1),
+      ],
+   q(nupbikha) => [
+      q(5026),
+      q(0),
+      ],
+   q(nupe-nupe-tako) => [
+      q(5113),
+      q(0),
+      ],
+   q(nupode huitoto) => [
+      q(2869),
+      q(0),
+      ],
+   q(nusa laut) => [
+      q(5109),
+      q(0),
+      ],
+   q(nusu) => [
+      q(5103),
+      q(0),
+      ],
+   q(nuu-chah-nulth) => [
+      q(5108),
+      q(0),
+      ],
+   q(nuuchahnulth) => [
+      q(5108),
+      q(1),
+      ],
+   q(nyabwa) => [
+      q(5128),
+      q(0),
+      ],
+   q(nyaheun) => [
+      q(4819),
+      q(0),
+      ],
+   q(nyahkur) => [
+      q(1667),
+      q(0),
+      ],
+   q(nyakyusa-ngonde) => [
+      q(5171),
+      q(0),
+      ],
+   q(nyalayu) => [
+      q(7672),
+      q(0),
+      ],
+   q(nyali) => [
+      q(4944),
+      q(0),
+      ],
+   q(nyam) => [
+      q(4963),
+      q(0),
+      ],
+   q(nyamal) => [
+      q(4953),
+      q(0),
+      ],
+   q(nyambo) => [
+      q(5022),
+      q(0),
+      ],
+   q(nyamusa-molo) => [
+      q(5132),
+      q(0),
+      ],
+   q(nyamwanga) => [
+      q(4628),
+      q(0),
+      ],
+   q(nyamwezi) => [
+      q(0323),
+      q(0),
+      ],
+   q(nyaneka) => [
+      q(5160),
+      q(0),
+      ],
+   q(nyang'i) => [
+      q(5162),
+      q(0),
+      ],
+   q(nyanga) => [
+      q(5159),
+      q(0),
+      ],
+   q(nyanga-li) => [
+      q(5152),
+      q(0),
+      ],
+   q(nyangatom) => [
+      q(4990),
+      q(0),
+      ],
+   q(nyangbo) => [
+      q(5151),
+      q(0),
+      ],
+   q(nyangga) => [
+      q(5003),
+      q(0),
+      ],
+   q(nyangumarta) => [
+      q(4981),
+      q(0),
+      ],
+   q(nyanja) => [
+      q(0322),
+      q(2),
+      ],
+   q(nyankole) => [
+      q(0324),
+      q(0),
+      ],
+   q(nyankpa) => [
+      q(7613),
+      q(0),
+      ],
+   q(nyarafolo senoufo) => [
+      q(5973),
+      q(0),
+      ],
+   q(nyaturu) => [
+      q(5780),
+      q(0),
+      ],
+   q(nyaw) => [
+      q(5169),
+      q(0),
+      ],
+   q(nyawaygi) => [
+      q(5166),
+      q(0),
+      ],
+   q(nyelayu) => [
+      q(7672),
+      q(1),
+      ],
+   q(nyemba) => [
+      q(4732),
+      q(0),
+      ],
+   q(nyengo) => [
+      q(5154),
+      q(0),
+      ],
+   q(nyenkha) => [
+      q(4807),
+      q(0),
+      ],
+   q(nyeu) => [
+      q(5161),
+      q(0),
+      ],
+   q(nyigina) => [
+      q(5157),
+      q(0),
+      ],
+   q(nyiha (malawi)) => [
+      q(5164),
+      q(0),
+      ],
+   q(nyiha (tanzania)) => [
+      q(4881),
+      q(0),
+      ],
+   q(nyika (malawi and zambia)) => [
+      q(4935),
+      q(0),
+      ],
+   q(nyika (tanzania)) => [
+      q(4933),
+      q(0),
+      ],
+   q(nyindrou) => [
+      q(3904),
+      q(0),
+      ],
+   q(nyindu) => [
+      q(5156),
+      q(0),
+      ],
+   q(nyishi) => [
+      q(4914),
+      q(0),
+      ],
+   q(nyiyaparli) => [
+      q(7429),
+      q(0),
+      ],
+   q(nynorsk, norwegian) => [
+      q(0313),
+      q(1),
+      ],
+   q(nyokon) => [
+      q(5126),
+      q(0),
+      ],
+   q(nyole) => [
+      q(5107),
+      q(0),
+      ],
+   q(nyong) => [
+      q(4584),
+      q(0),
+      ],
+   q(nyore) => [
+      q(5153),
+      q(0),
+      ],
+   q(nyoro) => [
+      q(0325),
+      q(0),
+      ],
+   q(nyulnyul) => [
+      q(5168),
+      q(0),
+      ],
+   q(nyunga) => [
+      q(5165),
+      q(0),
+      ],
+   q(nyungwe) => [
+      q(5167),
+      q(0),
+      ],
+   q(nzakambay) => [
+      q(5178),
+      q(0),
+      ],
+   q(nzakara) => [
+      q(5174),
+      q(0),
+      ],
+   q(nzanyi) => [
+      q(4898),
+      q(0),
+      ],
+   q(nzima) => [
+      q(0326),
+      q(0),
+      ],
+   q(o'chi'chi') => [
+      q(7431),
+      q(0),
+      ],
+   q(o'du) => [
+      q(6816),
+      q(0),
+      ],
+   q(obanliku) => [
+      q(1636),
+      q(0),
+      ],
+   q(obispeno) => [
+      q(5184),
+      q(0),
+      ],
+   q(oblo) => [
+      q(5186),
+      q(0),
+      ],
+   q(obo manobo) => [
+      q(5188),
+      q(0),
+      ],
+   q(obokuitai) => [
+      q(0652),
+      q(0),
+      ],
+   q(obolo) => [
+      q(0803),
+      q(0),
+      ],
+   q(obulom) => [
+      q(5191),
+      q(0),
+      ],
+   q(ocaina) => [
+      q(5192),
+      q(0),
+      ],
+   q(occidental) => [
+      q(0193),
+      q(1),
+      ],
+   q(occitan (post 1500)) => [
+      q(0327),
+      q(0),
+      ],
+   q(ocotepec mixtec) => [
+      q(4294),
+      q(0),
+      ],
+   q(ocotlan zapotec) => [
+      q(7792),
+      q(0),
+      ],
+   q(od) => [
+      q(5197),
+      q(0),
+      ],
+   q(odia (individual language)) => [
+      q(5303),
+      q(0),
+      ],
+   q(odia (macrolanguage)) => [
+      q(0329),
+      q(2),
+      ],
+   q(odiai) => [
+      q(1191),
+      q(0),
+      ],
+   q(odoodee) => [
+      q(3402),
+      q(0),
+      ],
+   q(odual) => [
+      q(5199),
+      q(0),
+      ],
+   q(odut) => [
+      q(5196),
+      q(0),
+      ],
+   q(ofaye) => [
+      q(5288),
+      q(0),
+      ],
+   q(official aramaic (700-300 bce)) => [
+      q(0022),
+      q(0),
+      ],
+   q(ofo) => [
+      q(5200),
+      q(0),
+      ],
+   q(ogbah) => [
+      q(5204),
+      q(0),
+      ],
+   q(ogbia) => [
+      q(5203),
+      q(0),
+      ],
+   q(ogbogolo) => [
+      q(5206),
+      q(0),
+      ],
+   q(ogbronuagum) => [
+      q(5208),
+      q(0),
+      ],
+   q(ogea) => [
+      q(2280),
+      q(0),
+      ],
+   q(oirat) => [
+      q(0471),
+      q(1),
+      ],
+   q(oirata) => [
+      q(5211),
+      q(0),
+      ],
+   q(ojibwa) => [
+      q(0328),
+      q(0),
+      ],
+   q(ojitlan chinantec) => [
+      q(1720),
+      q(0),
+      ],
+   q(okanagan) => [
+      q(5220),
+      q(0),
+      ],
+   q(oki-no-erabu) => [
+      q(5231),
+      q(0),
+      ],
+   q(okiek) => [
+      q(5226),
+      q(0),
+      ],
+   q(oko-eni-osayen) => [
+      q(5234),
+      q(0),
+      ],
+   q(oko-juwoi) => [
+      q(5227),
+      q(0),
+      ],
+   q(okobo) => [
+      q(5221),
+      q(0),
+      ],
+   q(okodia) => [
+      q(5222),
+      q(0),
+      ],
+   q(okolod) => [
+      q(3565),
+      q(0),
+      ],
+   q(okpamheri) => [
+      q(5283),
+      q(0),
+      ],
+   q(okpe (northwestern edo)) => [
+      q(5237),
+      q(0),
+      ],
+   q(okpe (southwestern edo)) => [
+      q(5223),
+      q(0),
+      ],
+   q(oksapmin) => [
+      q(5285),
+      q(0),
+      ],
+   q(oku) => [
+      q(5235),
+      q(0),
+      ],
+   q(old aramaic (up to 700 bce)) => [
+      q(5182),
+      q(0),
+      ],
+   q(old avar) => [
+      q(5183),
+      q(0),
+      ],
+   q(old breton) => [
+      q(5190),
+      q(0),
+      ],
+   q(old bulgarian) => [
+      q(0086),
+      q(3),
+      ],
+   q(old burmese) => [
+      q(5189),
+      q(0),
+      ],
+   q(old chinese) => [
+      q(5193),
+      q(0),
+      ],
+   q(old church slavonic) => [
+      q(0086),
+      q(4),
+      ],
+   q(old cornish) => [
+      q(5194),
+      q(0),
+      ],
+   q(old dutch) => [
+      q(5198),
+      q(0),
+      ],
+   q(old english (ca. 450-1100)) => [
+      q(0018),
+      q(1),
+      ],
+   q(old french (842-ca. 1400)) => [
+      q(0140),
+      q(1),
+      ],
+   q(old frisian) => [
+      q(5201),
+      q(0),
+      ],
+   q(old georgian) => [
+      q(5205),
+      q(0),
+      ],
+   q(old high german (ca. 750-1050)) => [
+      q(0159),
+      q(1),
+      ],
+   q(old hittite) => [
+      q(5209),
+      q(0),
+      ],
+   q(old hungarian) => [
+      q(5210),
+      q(0),
+      ],
+   q(old irish (to 900)) => [
+      q(0378),
+      q(1),
+      ],
+   q(old japanese) => [
+      q(5216),
+      q(0),
+      ],
+   q(old kentish sign language) => [
+      q(5229),
+      q(0),
+      ],
+   q(old korean (3rd-9th cent.)) => [
+      q(5232),
+      q(0),
+      ],
+   q(old lithuanian) => [
+      q(5245),
+      q(0),
+      ],
+   q(old manipuri) => [
+      q(5256),
+      q(0),
+      ],
+   q(old marathi) => [
+      q(5257),
+      q(0),
+      ],
+   q(old mon) => [
+      q(5261),
+      q(0),
+      ],
+   q(old newari) => [
+      q(0321),
+      q(1),
+      ],
+   q(old norse) => [
+      q(0316),
+      q(1),
+      ],
+   q(old nubian) => [
+      q(5276),
+      q(0),
+      ],
+   q(old occitan (to 1500)) => [
+      q(0351),
+      q(2),
+      ],
+   q(old ossetic) => [
+      q(5282),
+      q(0),
+      ],
+   q(old persian (ca. 600-400 b.c.)) => [
+      q(0342),
+      q(1),
+      ],
+   q(old provencal (to 1500)) => [
+      q(0351),
+      q(1),
+      ],
+   q(old russian) => [
+      q(5300),
+      q(0),
+      ],
+   q(old saxon) => [
+      q(5311),
+      q(0),
+      ],
+   q(old slavonic) => [
+      q(0086),
+      q(1),
+      ],
+   q(old spanish) => [
+      q(5308),
+      q(0),
+      ],
+   q(old tamil) => [
+      q(5327),
+      q(0),
+      ],
+   q(old tibetan) => [
+      q(5312),
+      q(0),
+      ],
+   q(old turkish) => [
+      q(5316),
+      q(0),
+      ],
+   q(old uighur) => [
+      q(5332),
+      q(0),
+      ],
+   q(old welsh) => [
+      q(5336),
+      q(0),
+      ],
+   q(olekha) => [
+      q(5240),
+      q(0),
+      ],
+   q(olkol) => [
+      q(5241),
+      q(0),
+      ],
+   q(olo) => [
+      q(5265),
+      q(0),
+      ],
+   q(oloma) => [
+      q(5242),
+      q(0),
+      ],
+   q(olrat) => [
+      q(5244),
+      q(0),
+      ],
+   q(olu'bo) => [
+      q(4075),
+      q(0),
+      ],
+   q(olukhayo) => [
+      q(3941),
+      q(1),
+      ],
+   q(olulumo-ikom) => [
+      q(2940),
+      q(0),
+      ],
+   q(oluluyia) => [
+      q(4084),
+      q(1),
+      ],
+   q(olumarachi) => [
+      q(4037),
+      q(1),
+      ],
+   q(olumarama) => [
+      q(4040),
+      q(1),
+      ],
+   q(olunyole) => [
+      q(5153),
+      q(1),
+      ],
+   q(olusamia) => [
+      q(4054),
+      q(1),
+      ],
+   q(olushisa) => [
+      q(3943),
+      q(1),
+      ],
+   q(oluta popoluca) => [
+      q(5494),
+      q(0),
+      ],
+   q(olutsotso) => [
+      q(4066),
+      q(1),
+      ],
+   q(oluwanga) => [
+      q(4092),
+      q(1),
+      ],
+   q(omagua) => [
+      q(5250),
+      q(0),
+      ],
+   q(omaha-ponca) => [
+      q(5247),
+      q(0),
+      ],
+   q(omani arabic) => [
+      q(0602),
+      q(0),
+      ],
+   q(ombamba) => [
+      q(4131),
+      q(0),
+      ],
+   q(ombo) => [
+      q(5253),
+      q(0),
+      ],
+   q(ometepec nahuatl) => [
+      q(4869),
+      q(0),
+      ],
+   q(omi) => [
+      q(5251),
+      q(0),
+      ],
+   q(omie) => [
+      q(0827),
+      q(0),
+      ],
+   q(omok) => [
+      q(5252),
+      q(0),
+      ],
+   q(omotic languages) => [
+      q(0519),
+      q(0),
+      ],
+   q(omotik) => [
+      q(5258),
+      q(0),
+      ],
+   q(omurano) => [
+      q(5259),
+      q(0),
+      ],
+   q(ona) => [
+      q(5262),
+      q(0),
+      ],
+   q(oneida) => [
+      q(5264),
+      q(0),
+      ],
+   q(ong) => [
+      q(5279),
+      q(0),
+      ],
+   q(onge) => [
+      q(5280),
+      q(0),
+      ],
+   q(onin) => [
+      q(5266),
+      q(0),
+      ],
+   q(onin based pidgin) => [
+      q(5277),
+      q(0),
+      ],
+   q(oniyan) => [
+      q(1449),
+      q(1),
+      ],
+   q(onjob) => [
+      q(5267),
+      q(0),
+      ],
+   q(ono) => [
+      q(5273),
+      q(0),
+      ],
+   q(onobasulu) => [
+      q(5269),
+      q(0),
+      ],
+   q(onondaga) => [
+      q(5270),
+      q(0),
+      ],
+   q(ontenu) => [
+      q(5274),
+      q(0),
+      ],
+   q(ontong java) => [
+      q(5218),
+      q(0),
+      ],
+   q(oorlams) => [
+      q(5281),
+      q(0),
+      ],
+   q(opao) => [
+      q(5286),
+      q(0),
+      ],
+   q(opata) => [
+      q(5287),
+      q(0),
+      ],
+   q(opuuo) => [
+      q(3885),
+      q(1),
+      ],
+   q(orang kanaq) => [
+      q(5294),
+      q(0),
+      ],
+   q(orang seletar) => [
+      q(5297),
+      q(0),
+      ],
+   q(oraon sadri) => [
+      q(5948),
+      q(0),
+      ],
+   q(orejon) => [
+      q(5291),
+      q(0),
+      ],
+   q(oring) => [
+      q(5292),
+      q(0),
+      ],
+   q(oriya) => [
+      q(0329),
+      q(0),
+      ],
+   q(oriya (individual language)) => [
+      q(5303),
+      q(1),
+      ],
+   q(oriya (macrolanguage)) => [
+      q(0329),
+      q(1),
+      ],
+   q(orizaba nahuatl) => [
+      q(4950),
+      q(0),
+      ],
+   q(orma) => [
+      q(5290),
+      q(0),
+      ],
+   q(ormu) => [
+      q(5304),
+      q(0),
+      ],
+   q(ormuri) => [
+      q(5299),
+      q(0),
+      ],
+   q(oro) => [
+      q(5302),
+      q(0),
+      ],
+   q(oro win) => [
+      q(5301),
+      q(0),
+      ],
+   q(oroch) => [
+      q(5181),
+      q(0),
+      ],
+   q(oroha) => [
+      q(5289),
+      q(0),
+      ],
+   q(orok) => [
+      q(5180),
+      q(0),
+      ],
+   q(orokaiva) => [
+      q(5236),
+      q(0),
+      ],
+   q(oroko) => [
+      q(1110),
+      q(0),
+      ],
+   q(orokolo) => [
+      q(5295),
+      q(0),
+      ],
+   q(oromo) => [
+      q(0330),
+      q(0),
+      ],
+   q(oroqen) => [
+      q(5293),
+      q(0),
+      ],
+   q(orowe) => [
+      q(1382),
+      q(0),
+      ],
+   q(oruma) => [
+      q(5296),
+      q(0),
+      ],
+   q(orya) => [
+      q(6931),
+      q(0),
+      ],
+   q(osage) => [
+      q(0331),
+      q(0),
+      ],
+   q(osatu) => [
+      q(5309),
+      q(0),
+      ],
+   q(oscan) => [
+      q(5305),
+      q(0),
+      ],
+   q(osing) => [
+      q(5306),
+      q(0),
+      ],
+   q(ososo) => [
+      q(5307),
+      q(0),
+      ],
+   q(ossetian) => [
+      q(0332),
+      q(0),
+      ],
+   q(ossetic) => [
+      q(0332),
+      q(1),
+      ],
+   q(ot danum) => [
+      q(5313),
+      q(0),
+      ],
+   q(otank) => [
+      q(6939),
+      q(0),
+      ],
+   q(oti) => [
+      q(5315),
+      q(0),
+      ],
+   q(oto-manguean languages) => [
+      q(0518),
+      q(0),
+      ],
+   q(otomian languages) => [
+      q(0334),
+      q(0),
+      ],
+   q(otoro) => [
+      q(5321),
+      q(0),
+      ],
+   q(ottawa) => [
+      q(5325),
+      q(0),
+      ],
+   q(ottoman turkish (1500-1928)) => [
+      q(0333),
+      q(1),
+      ],
+   q(otuho) => [
+      q(4022),
+      q(0),
+      ],
+   q(otuke) => [
+      q(5324),
+      q(0),
+      ],
+   q(ouma) => [
+      q(5333),
+      q(0),
+      ],
+   q(oune) => [
+      q(5331),
+      q(0),
+      ],
+   q(ovdalian) => [
+      q(5334),
+      q(1),
+      ],
+   q(owa) => [
+      q(6255),
+      q(0),
+      ],
+   q(owenia) => [
+      q(7223),
+      q(0),
+      ],
+   q(owiniga) => [
+      q(5335),
+      q(0),
+      ],
+   q(oy) => [
+      q(5337),
+      q(0),
+      ],
+   q(oya'oya) => [
+      q(5340),
+      q(0),
+      ],
+   q(oyda) => [
+      q(5338),
+      q(0),
+      ],
+   q(ozolotepec zapotec) => [
+      q(7803),
+      q(0),
+      ],
+   q(ozumacin chinantec) => [
+      q(1726),
+      q(0),
+      ],
+   q(pa di) => [
+      q(5395),
+      q(0),
+      ],
+   q(pa'a) => [
+      q(5579),
+      q(0),
+      ],
+   q(pa'o) => [
+      q(1288),
+      q(1),
+      ],
+   q(pa'o karen) => [
+      q(1288),
+      q(0),
+      ],
+   q(pa-hng) => [
+      q(5432),
+      q(0),
+      ],
+   q(paafang) => [
+      q(5419),
+      q(0),
+      ],
+   q(paakantyi) => [
+      q(2134),
+      q(0),
+      ],
+   q(paama) => [
+      q(5505),
+      q(0),
+      ],
+   q(paasaal) => [
+      q(6029),
+      q(0),
+      ],
+   q(pacahuara) => [
+      q(5391),
+      q(0),
+      ],
+   q(pacaraos quechua) => [
+      q(5701),
+      q(0),
+      ],
+   q(pacific gulf yupik) => [
+      q(2255),
+      q(0),
+      ],
+   q(pacoh) => [
+      q(5343),
+      q(0),
+      ],
+   q(padoe) => [
+      q(5397),
+      q(0),
+      ],
+   q(paekche) => [
+      q(5473),
+      q(0),
+      ],
+   q(paelignian) => [
+      q(5428),
+      q(0),
+      ],
+   q(paez) => [
+      q(5360),
+      q(0),
+      ],
+   q(pagi) => [
+      q(5425),
+      q(0),
+      ],
+   q(pagibete) => [
+      q(5345),
+      q(0),
+      ],
+   q(pagu) => [
+      q(5430),
+      q(0),
+      ],
+   q(pahanan agta) => [
+      q(0839),
+      q(0),
+      ],
+   q(pahari-potwari) => [
+      q(5441),
+      q(0),
+      ],
+   q(pahi) => [
+      q(3888),
+      q(0),
+      ],
+   q(pahlavani) => [
+      q(5444),
+      q(0),
+      ],
+   q(pahlavi) => [
+      q(0337),
+      q(0),
+      ],
+   q(pai tavytera) => [
+      q(5620),
+      q(0),
+      ],
+   q(paici) => [
+      q(5587),
+      q(0),
+      ],
+   q(paipai) => [
+      q(5568),
+      q(0),
+      ],
+   q(paite chin) => [
+      q(5387),
+      q(0),
+      ],
+   q(paiwan) => [
+      q(5657),
+      q(0),
+      ],
+   q(pak-tong) => [
+      q(5474),
+      q(0),
+      ],
+   q(pakaasnovos) => [
+      q(5355),
+      q(0),
+      ],
+   q(pakanha) => [
+      q(5476),
+      q(0),
+      ],
+   q(pakistan sign language) => [
+      q(5480),
+      q(0),
+      ],
+   q(paku) => [
+      q(5482),
+      q(0),
+      ],
+   q(paku karen) => [
+      q(3110),
+      q(0),
+      ],
+   q(pal) => [
+      q(0581),
+      q(0),
+      ],
+   q(palaic) => [
+      q(5496),
+      q(0),
+      ],
+   q(palaka senoufo) => [
+      q(5497),
+      q(0),
+      ],
+   q(palantla chinantec) => [
+      q(1827),
+      q(0),
+      ],
+   q(palauan) => [
+      q(0341),
+      q(0),
+      ],
+   q(paleni) => [
+      q(5535),
+      q(0),
+      ],
+   q(palenquero) => [
+      q(5493),
+      q(0),
+      ],
+   q(pali) => [
+      q(0346),
+      q(0),
+      ],
+   q(palikur) => [
+      q(5500),
+      q(0),
+      ],
+   q(paliyan) => [
+      q(5382),
+      q(0),
+      ],
+   q(pallanganmiddang) => [
+      q(5507),
+      q(0),
+      ],
+   q(palor) => [
+      q(2330),
+      q(0),
+      ],
+   q(palpa) => [
+      q(5495),
+      q(0),
+      ],
+   q(palu'e) => [
+      q(5487),
+      q(0),
+      ],
+   q(paluan) => [
+      q(5504),
+      q(0),
+      ],
+   q(palula) => [
+      q(5437),
+      q(1),
+      ],
+   q(palya bareli) => [
+      q(1395),
+      q(0),
+      ],
+   q(pam) => [
+      q(5516),
+      q(0),
+      ],
+   q(pambia) => [
+      q(5506),
+      q(0),
+      ],
+   q(pamlico) => [
+      q(5513),
+      q(0),
+      ],
+   q(pamona) => [
+      q(5509),
+      q(0),
+      ],
+   q(pamosu) => [
+      q(2755),
+      q(0),
+      ],
+   q(pampanga) => [
+      q(0338),
+      q(0),
+      ],
+   q(pamplona atta) => [
+      q(0927),
+      q(0),
+      ],
+   q(pana (burkina faso)) => [
+      q(5540),
+      q(0),
+      ],
+   q(pana (central african republic)) => [
+      q(5549),
+      q(0),
+      ],
+   q(panamanian sign language) => [
+      q(4056),
+      q(0),
+      ],
+   q(panamint) => [
+      q(5352),
+      q(0),
+      ],
+   q(panao huanuco quechua) => [
+      q(5714),
+      q(0),
+      ],
+   q(panara) => [
+      q(3573),
+      q(0),
+      ],
+   q(panasuan) => [
+      q(5610),
+      q(0),
+      ],
+   q(panawa) => [
+      q(5653),
+      q(0),
+      ],
+   q(pancana) => [
+      q(5539),
+      q(0),
+      ],
+   q(panchpargania) => [
+      q(6418),
+      q(0),
+      ],
+   q(pande) => [
+      q(1262),
+      q(0),
+      ],
+   q(pangasinan) => [
+      q(0336),
+      q(0),
+      ],
+   q(pangseng) => [
+      q(5429),
+      q(0),
+      ],
+   q(pangutaran sama) => [
+      q(6094),
+      q(0),
+      ],
+   q(pangwa) => [
+      q(5371),
+      q(0),
+      ],
+   q(pangwali) => [
+      q(5424),
+      q(0),
+      ],
+   q(panim) => [
+      q(5541),
+      q(0),
+      ],
+   q(paniya) => [
+      q(5383),
+      q(0),
+      ],
+   q(panjabi) => [
+      q(0339),
+      q(0),
+      ],
+   q(pankarare) => [
+      q(5357),
+      q(0),
+      ],
+   q(pankararu) => [
+      q(5359),
+      q(0),
+      ],
+   q(pankhu) => [
+      q(5475),
+      q(0),
+      ],
+   q(pannei) => [
+      q(5528),
+      q(0),
+      ],
+   q(pano) => [
+      q(4498),
+      q(0),
+      ],
+   q(panoan katukina) => [
+      q(3495),
+      q(0),
+      ],
+   q(panobo) => [
+      q(5538),
+      q(0),
+      ],
+   q(panyi bai) => [
+      q(1139),
+      q(0),
+      ],
+   q(panytyima) => [
+      q(5546),
+      q(0),
+      ],
+   q(papantla totonac) => [
+      q(6630),
+      q(0),
+      ],
+   q(papapana) => [
+      q(5572),
+      q(0),
+      ],
+   q(papar) => [
+      q(2127),
+      q(0),
+      ],
+   q(papasena) => [
+      q(5353),
+      q(0),
+      ],
+   q(papel) => [
+      q(5369),
+      q(0),
+      ],
+   q(papi) => [
+      q(5567),
+      q(0),
+      ],
+   q(papiamento) => [
+      q(0340),
+      q(0),
+      ],
+   q(papitalai) => [
+      q(5354),
+      q(0),
+      ],
+   q(papora) => [
+      q(5578),
+      q(0),
+      ],
+   q(papua new guinean sign language) => [
+      q(5431),
+      q(0),
+      ],
+   q(papuan languages) => [
+      q(0335),
+      q(0),
+      ],
+   q(papuan malay) => [
+      q(5524),
+      q(0),
+      ],
+   q(papuma) => [
+      q(5571),
+      q(0),
+      ],
+   q(para arara) => [
+      q(0552),
+      q(0),
+      ],
+   q(para gaviao) => [
+      q(2672),
+      q(0),
+      ],
+   q(para naga) => [
+      q(5669),
+      q(0),
+      ],
+   q(parachi) => [
+      q(5581),
+      q(0),
+      ],
+   q(paraguayan guarani) => [
+      q(2646),
+      q(0),
+      ],
+   q(paraguayan sign language) => [
+      q(5665),
+      q(0),
+      ],
+   q(parakana) => [
+      q(5349),
+      q(0),
+      ],
+   q(paranan) => [
+      q(5584),
+      q(0),
+      ],
+   q(paranawat) => [
+      q(5346),
+      q(0),
+      ],
+   q(paraujano) => [
+      q(5364),
+      q(0),
+      ],
+   q(parauk) => [
+      q(5588),
+      q(0),
+      ],
+   q(parawen) => [
+      q(5598),
+      q(0),
+      ],
+   q(pardhan) => [
+      q(5384),
+      q(0),
+      ],
+   q(pardhi) => [
+      q(5388),
+      q(0),
+      ],
+   q(pare) => [
+      q(5577),
+      q(0),
+      ],
+   q(parecis) => [
+      q(5342),
+      q(0),
+      ],
+   q(parenga) => [
+      q(5386),
+      q(0),
+      ],
+   q(pari) => [
+      q(3942),
+      q(0),
+      ],
+   q(parkari koli) => [
+      q(3683),
+      q(0),
+      ],
+   q(parkwa) => [
+      q(5366),
+      q(0),
+      ],
+   q(parsi) => [
+      q(5592),
+      q(0),
+      ],
+   q(parsi-dari) => [
+      q(5582),
+      q(0),
+      ],
+   q(parthian) => [
+      q(7454),
+      q(0),
+      ],
+   q(parya) => [
+      q(5351),
+      q(0),
+      ],
+   q(pashto) => [
+      q(0352),
+      q(1),
+      ],
+   q(pasi) => [
+      q(5613),
+      q(0),
+      ],
+   q(pass valley yali) => [
+      q(7562),
+      q(0),
+      ],
+   q(patamona) => [
+      q(5361),
+      q(0),
+      ],
+   q(patani) => [
+      q(5623),
+      q(0),
+      ],
+   q(pataxo ha-ha-hae) => [
+      q(5621),
+      q(0),
+      ],
+   q(patep) => [
+      q(5625),
+      q(0),
+      ],
+   q(pathiya) => [
+      q(5632),
+      q(0),
+      ],
+   q(patpatar) => [
+      q(2487),
+      q(0),
+      ],
+   q(pattani) => [
+      q(3787),
+      q(0),
+      ],
+   q(pattani malay) => [
+      q(4217),
+      q(0),
+      ],
+   q(pattapu) => [
+      q(5626),
+      q(0),
+      ],
+   q(patwin) => [
+      q(5655),
+      q(0),
+      ],
+   q(paulohi) => [
+      q(5489),
+      q(0),
+      ],
+   q(paumari) => [
+      q(5344),
+      q(0),
+      ],
+   q(paunaka) => [
+      q(5534),
+      q(0),
+      ],
+   q(pauri bareli) => [
+      q(1138),
+      q(0),
+      ],
+   q(pauserna) => [
+      q(5609),
+      q(0),
+      ],
+   q(pawaia) => [
+      q(5652),
+      q(0),
+      ],
+   q(pawnee) => [
+      q(5356),
+      q(0),
+      ],
+   q(paynamar) => [
+      q(5519),
+      q(0),
+      ],
+   q(pe) => [
+      q(5348),
+      q(0),
+      ],
+   q(pear) => [
+      q(5378),
+      q(0),
+      ],
+   q(pech) => [
+      q(5358),
+      q(0),
+      ],
+   q(pecheneg) => [
+      q(7443),
+      q(0),
+      ],
+   q(pedi) => [
+      q(0319),
+      q(0),
+      ],
+   q(peere) => [
+      q(5420),
+      q(0),
+      ],
+   q(pei) => [
+      q(5575),
+      q(0),
+      ],
+   q(pekal) => [
+      q(5410),
+      q(0),
+      ],
+   q(pela) => [
+      q(1569),
+      q(0),
+      ],
+   q(pele-ata) => [
+      q(0910),
+      q(0),
+      ],
+   q(pelende) => [
+      q(5574),
+      q(0),
+      ],
+   q(pemon) => [
+      q(0817),
+      q(0),
+      ],
+   q(pemono) => [
+      q(5415),
+      q(0),
+      ],
+   q(penang sign language) => [
+      q(5605),
+      q(0),
+      ],
+   q(penchal) => [
+      q(5409),
+      q(0),
+      ],
+   q(pendau) => [
+      q(6897),
+      q(0),
+      ],
+   q(pengo) => [
+      q(5405),
+      q(0),
+      ],
+   q(pennsylvania german) => [
+      q(5394),
+      q(0),
+      ],
+   q(penoles mixtec) => [
+      q(4301),
+      q(0),
+      ],
+   q(penrhyn) => [
+      q(5531),
+      q(0),
+      ],
+   q(pentlatch) => [
+      q(5631),
+      q(0),
+      ],
+   q(perai) => [
+      q(7098),
+      q(0),
+      ],
+   q(peranakan indonesian) => [
+      q(5400),
+      q(0),
+      ],
+   q(peripheral mongolian) => [
+      q(4598),
+      q(0),
+      ],
+   q(pero) => [
+      q(5460),
+      q(0),
+      ],
+   q(persian) => [
+      q(0343),
+      q(0),
+      ],
+   q(persian sign language) => [
+      q(5602),
+      q(0),
+      ],
+   q(persian, old (ca.600-400 b.c.)) => [
+      q(0342),
+      q(0),
+      ],
+   q(peruvian sign language) => [
+      q(5589),
+      q(0),
+      ],
+   q(petapa zapotec) => [
+      q(7903),
+      q(0),
+      ],
+   q(petats) => [
+      q(5416),
+      q(0),
+      ],
+   q(petjo) => [
+      q(5417),
+      q(0),
+      ],
+   q(peve) => [
+      q(3971),
+      q(0),
+      ],
+   q(pfaelzisch) => [
+      q(5421),
+      q(0),
+      ],
+   q(phai) => [
+      q(5596),
+      q(0),
+      ],
+   q(phake) => [
+      q(5436),
+      q(0),
+      ],
+   q(phala) => [
+      q(7712),
+      q(0),
+      ],
+   q(phalura) => [
+      q(5437),
+      q(0),
+      ],
+   q(phana') => [
+      q(5440),
+      q(0),
+      ],
+   q(phangduwali) => [
+      q(5445),
+      q(0),
+      ],
+   q(phende) => [
+      q(5411),
+      q(0),
+      ],
+   q(philippine languages) => [
+      q(0344),
+      q(0),
+      ],
+   q(philippine sign language) => [
+      q(5612),
+      q(0),
+      ],
+   q(phimbi) => [
+      q(5438),
+      q(0),
+      ],
+   q(phoenician) => [
+      q(0345),
+      q(0),
+      ],
+   q(phola) => [
+      q(7714),
+      q(0),
+      ],
+   q(pholo) => [
+      q(7640),
+      q(0),
+      ],
+   q(phom naga) => [
+      q(5028),
+      q(0),
+      ],
+   q(phong-kniang) => [
+      q(5547),
+      q(0),
+      ],
+   q(phrae pwo karen) => [
+      q(3394),
+      q(0),
+      ],
+   q(phrygian) => [
+      q(7445),
+      q(0),
+      ],
+   q(phu thai) => [
+      q(5442),
+      q(0),
+      ],
+   q(phuan) => [
+      q(5443),
+      q(0),
+      ],
+   q(phudagi) => [
+      q(5433),
+      q(0),
+      ],
+   q(phuie) => [
+      q(5639),
+      q(0),
+      ],
+   q(phukha) => [
+      q(5435),
+      q(0),
+      ],
+   q(phuma) => [
+      q(7716),
+      q(0),
+      ],
+   q(phunoi) => [
+      q(5439),
+      q(0),
+      ],
+   q(phuong) => [
+      q(5434),
+      q(0),
+      ],
+   q(phupa) => [
+      q(7719),
+      q(0),
+      ],
+   q(phupha) => [
+      q(7715),
+      q(0),
+      ],
+   q(phuza) => [
+      q(7720),
+      q(0),
+      ],
+   q(piamatsina) => [
+      q(5627),
+      q(0),
+      ],
+   q(piame) => [
+      q(5458),
+      q(0),
+      ],
+   q(piapoco) => [
+      q(5459),
+      q(0),
+      ],
+   q(piaroa) => [
+      q(5449),
+      q(0),
+      ],
+   q(picard) => [
+      q(5380),
+      q(0),
+      ],
+   q(pichis asheninka) => [
+      q(1835),
+      q(0),
+      ],
+   q(pictish) => [
+      q(7446),
+      q(0),
+      ],
+   q(pidgin delaware) => [
+      q(1992),
+      q(0),
+      ],
+   q(piemontese) => [
+      q(5520),
+      q(0),
+      ],
+   q(pijao) => [
+      q(5455),
+      q(0),
+      ],
+   q(pije) => [
+      q(5469),
+      q(0),
+      ],
+   q(pijin) => [
+      q(5462),
+      q(0),
+      ],
+   q(pilaga) => [
+      q(5488),
+      q(0),
+      ],
+   q(pileni) => [
+      q(5465),
+      q(0),
+      ],
+   q(pilipino) => [
+      q(0134),
+      q(1),
+      ],
+   q(pima bajo) => [
+      q(5446),
+      q(0),
+      ],
+   q(pimbwe) => [
+      q(5466),
+      q(0),
+      ],
+   q(pinai-hagahai) => [
+      q(5537),
+      q(0),
+      ],
+   q(pingelapese) => [
+      q(5451),
+      q(0),
+      ],
+   q(pini) => [
+      q(5454),
+      q(0),
+      ],
+   q(pinigura) => [
+      q(5545),
+      q(0),
+      ],
+   q(pinjarup) => [
+      q(5533),
+      q(0),
+      ],
+   q(pinji) => [
+      q(5448),
+      q(0),
+      ],
+   q(pinotepa nacional mixtec) => [
+      q(4303),
+      q(0),
+      ],
+   q(pintiini) => [
+      q(5622),
+      q(0),
+      ],
+   q(pintupi-luritja) => [
+      q(5464),
+      q(0),
+      ],
+   q(pinyin) => [
+      q(5548),
+      q(0),
+      ],
+   q(pipil) => [
+      q(5570),
+      q(0),
+      ],
+   q(piraha) => [
+      q(4679),
+      q(0),
+      ],
+   q(piratapuyo) => [
+      q(5461),
+      q(0),
+      ],
+   q(pirlatapa) => [
+      q(1574),
+      q(0),
+      ],
+   q(piro) => [
+      q(5450),
+      q(0),
+      ],
+   q(pirriya) => [
+      q(7442),
+      q(0),
+      ],
+   q(pisabo) => [
+      q(5452),
+      q(0),
+      ],
+   q(pisaflores tepehua) => [
+      q(6651),
+      q(0),
+      ],
+   q(piscataway) => [
+      q(5619),
+      q(0),
+      ],
+   q(pisidian) => [
+      q(7455),
+      q(0),
+      ],
+   q(pitcairn-norfolk) => [
+      q(5453),
+      q(0),
+      ],
+   q(pite sami) => [
+      q(6049),
+      q(0),
+      ],
+   q(piti) => [
+      q(5390),
+      q(0),
+      ],
+   q(pitjantjatjara) => [
+      q(5470),
+      q(0),
+      ],
+   q(pitta pitta) => [
+      q(5463),
+      q(0),
+      ],
+   q(piu) => [
+      q(5467),
+      q(0),
+      ],
+   q(piya-kwonci) => [
+      q(5468),
+      q(0),
+      ],
+   q(plains cree) => [
+      q(1847),
+      q(0),
+      ],
+   q(plains indian sign language) => [
+      q(5603),
+      q(0),
+      ],
+   q(plains miwok) => [
+      q(5522),
+      q(0),
+      ],
+   q(plapo krumen) => [
+      q(3624),
+      q(0),
+      ],
+   q(plateau malagasy) => [
+      q(5499),
+      q(0),
+      ],
+   q(plautdietsch) => [
+      q(5398),
+      q(0),
+      ],
+   q(playero) => [
+      q(2584),
+      q(0),
+      ],
+   q(pnar) => [
+      q(5375),
+      q(0),
+      ],
+   q(pochuri naga) => [
+      q(5032),
+      q(0),
+      ],
+   q(pochutec) => [
+      q(7451),
+      q(0),
+      ],
+   q(podena) => [
+      q(5396),
+      q(0),
+      ],
+   q(pogolo) => [
+      q(5566),
+      q(0),
+      ],
+   q(pohnpeian) => [
+      q(0348),
+      q(0),
+      ],
+   q(pokanga) => [
+      q(5556),
+      q(0),
+      ],
+   q(poke) => [
+      q(5552),
+      q(0),
+      ],
+   q(pokomo) => [
+      q(5472),
+      q(0),
+      ],
+   q(pokoot) => [
+      q(5477),
+      q(0),
+      ],
+   q(polabian) => [
+      q(5565),
+      q(0),
+      ],
+   q(polari) => [
+      q(5486),
+      q(0),
+      ],
+   q(polci) => [
+      q(5490),
+      q(0),
+      ],
+   q(polish) => [
+      q(0347),
+      q(0),
+      ],
+   q(polish sign language) => [
+      q(5611),
+      q(0),
+      ],
+   q(polonombauk) => [
+      q(5484),
+      q(0),
+      ],
+   q(pom) => [
+      q(5517),
+      q(0),
+      ],
+   q(pomo) => [
+      q(5515),
+      q(0),
+      ],
+   q(ponam) => [
+      q(4756),
+      q(0),
+      ],
+   q(pongu) => [
+      q(5530),
+      q(0),
+      ],
+   q(ponosakan) => [
+      q(5542),
+      q(0),
+      ],
+   q(pontic) => [
+      q(5543),
+      q(0),
+      ],
+   q(ponyo-gongwang naga) => [
+      q(5027),
+      q(0),
+      ],
+   q(popti') => [
+      q(3041),
+      q(0),
+      ],
+   q(poqomam) => [
+      q(5550),
+      q(0),
+      ],
+   q(poqomchi') => [
+      q(5554),
+      q(0),
+      ],
+   q(porohanon) => [
+      q(5586),
+      q(0),
+      ],
+   q(port sandwich) => [
+      q(5618),
+      q(0),
+      ],
+   q(port vato) => [
+      q(5630),
+      q(0),
+      ],
+   q(portuguese) => [
+      q(0349),
+      q(0),
+      ],
+   q(portuguese sign language) => [
+      q(5614),
+      q(0),
+      ],
+   q(portuguese-based creoles and pidgins) => [
+      q(0096),
+      q(2),
+      ],
+   q(potawatomi) => [
+      q(5562),
+      q(0),
+      ],
+   q(potiguara) => [
+      q(5553),
+      q(0),
+      ],
+   q(pottangi ollar gadaba) => [
+      q(2451),
+      q(0),
+      ],
+   q(poule) => [
+      q(4534),
+      q(1),
+      ],
+   q(poumei naga) => [
+      q(5523),
+      q(0),
+      ],
+   q(pouye) => [
+      q(1593),
+      q(0),
+      ],
+   q(powari) => [
+      q(5659),
+      q(0),
+      ],
+   q(powhatan) => [
+      q(5457),
+      q(0),
+      ],
+   q(poyanawa) => [
+      q(5664),
+      q(0),
+      ],
+   q(prakrit languages) => [
+      q(0350),
+      q(0),
+      ],
+   q(prasuni) => [
+      q(5591),
+      q(0),
+      ],
+   q(primitive irish) => [
+      q(5427),
+      q(0),
+      ],
+   q(principense) => [
+      q(5583),
+      q(0),
+      ],
+   q(provencal) => [
+      q(0327),
+      q(1),
+      ],
+   q(provencal, old (to 1500)) => [
+      q(0351),
+      q(0),
+      ],
+   q(providencia sign language) => [
+      q(5600),
+      q(0),
+      ],
+   q(prussian) => [
+      q(5585),
+      q(0),
+      ],
+   q(psikye) => [
+      q(3670),
+      q(0),
+      ],
+   q(pu-xian chinese) => [
+      q(1836),
+      q(0),
+      ],
+   q(puare) => [
+      q(5650),
+      q(0),
+      ],
+   q(pudtol atta) => [
+      q(0923),
+      q(0),
+      ],
+   q(puelche) => [
+      q(5637),
+      q(0),
+      ],
+   q(puerto rican sign language) => [
+      q(5608),
+      q(0),
+      ],
+   q(puimei naga) => [
+      q(5034),
+      q(0),
+      ],
+   q(puinave) => [
+      q(5640),
+      q(0),
+      ],
+   q(pukapuka) => [
+      q(5478),
+      q(0),
+      ],
+   q(pulaar) => [
+      q(2379),
+      q(0),
+      ],
+   q(pulabu) => [
+      q(5644),
+      q(0),
+      ],
+   q(pular) => [
+      q(2382),
+      q(0),
+      ],
+   q(puluwatese) => [
+      q(5649),
+      q(0),
+      ],
+   q(puma) => [
+      q(5642),
+      q(0),
+      ],
+   q(pume) => [
+      q(7564),
+      q(0),
+      ],
+   q(pumpokol) => [
+      q(7449),
+      q(0),
+      ],
+   q(punan aput) => [
+      q(5636),
+      q(0),
+      ],
+   q(punan bah-biau) => [
+      q(5526),
+      q(0),
+      ],
+   q(punan batu 1) => [
+      q(5536),
+      q(0),
+      ],
+   q(punan merah) => [
+      q(5638),
+      q(0),
+      ],
+   q(punan merap) => [
+      q(5635),
+      q(0),
+      ],
+   q(punan tubu) => [
+      q(5641),
+      q(0),
+      ],
+   q(punic) => [
+      q(7457),
+      q(0),
+      ],
+   q(punjabi) => [
+      q(0339),
+      q(1),
+      ],
+   q(puno quechua) => [
+      q(5718),
+      q(0),
+      ],
+   q(punthamara) => [
+      q(7456),
+      q(0),
+      ],
+   q(punu) => [
+      q(5648),
+      q(0),
+      ],
+   q(puoc) => [
+      q(5643),
+      q(0),
+      ],
+   q(puquina) => [
+      q(5645),
+      q(0),
+      ],
+   q(puragi) => [
+      q(5597),
+      q(0),
+      ],
+   q(purari) => [
+      q(2883),
+      q(0),
+      ],
+   q(purepecha) => [
+      q(6718),
+      q(0),
+      ],
+   q(puri) => [
+      q(5594),
+      q(0),
+      ],
+   q(purik) => [
+      q(5599),
+      q(0),
+      ],
+   q(purisimeno) => [
+      q(5651),
+      q(0),
+      ],
+   q(puroik) => [
+      q(6276),
+      q(0),
+      ],
+   q(purubora) => [
+      q(5646),
+      q(0),
+      ],
+   q(purum) => [
+      q(5634),
+      q(0),
+      ],
+   q(pushto) => [
+      q(0352),
+      q(0),
+      ],
+   q(putai) => [
+      q(4228),
+      q(0),
+      ],
+   q(putoh) => [
+      q(5647),
+      q(0),
+      ],
+   q(putukwam) => [
+      q(0642),
+      q(0),
+      ],
+   q(puyo) => [
+      q(7458),
+      q(0),
+      ],
+   q(puyo-paekche) => [
+      q(7452),
+      q(0),
+      ],
+   q(puyuma) => [
+      q(5666),
+      q(0),
+      ],
+   q(pwaamei) => [
+      q(5508),
+      q(0),
+      ],
+   q(pwapwa) => [
+      q(5559),
+      q(0),
+      ],
+   q(pwo eastern karen) => [
+      q(3390),
+      q(0),
+      ],
+   q(pwo northern karen) => [
+      q(5660),
+      q(0),
+      ],
+   q(pwo western karen) => [
+      q(5658),
+      q(0),
+      ],
+   q(pyapun) => [
+      q(5392),
+      q(0),
+      ],
+   q(pye krumen) => [
+      q(5662),
+      q(0),
+      ],
+   q(pyen) => [
+      q(5668),
+      q(0),
+      ],
+   q(pyu (myanmar)) => [
+      q(5667),
+      q(0),
+      ],
+   q(pyu (papua new guinea)) => [
+      q(5376),
+      q(0),
+      ],
+   q(q'anjob'al) => [
+      q(3376),
+      q(0),
+      ],
+   q(qabiao) => [
+      q(3796),
+      q(0),
+      ],
+   q(qaqet) => [
+      q(1610),
+      q(0),
+      ],
+   q(qashqa'i) => [
+      q(5719),
+      q(0),
+      ],
+   q(qatabanian) => [
+      q(7460),
+      q(0),
+      ],
+   q(qau) => [
+      q(2611),
+      q(0),
+      ],
+   q(qawasqar) => [
+      q(0747),
+      q(0),
+      ],
+   q(qila muji) => [
+      q(7686),
+      q(0),
+      ],
+   q(qimant) => [
+      q(0680),
+      q(0),
+      ],
+   q(qiubei zhuang) => [
+      q(7925),
+      q(0),
+      ],
+   q(quapaw) => [
+      q(5670),
+      q(0),
+      ],
+   q(quebec sign language) => [
+      q(2337),
+      q(0),
+      ],
+   q(quechan) => [
+      q(7758),
+      q(0),
+      ],
+   q(quechua) => [
+      q(0354),
+      q(0),
+      ],
+   q(quechuan (family)) => [
+      q(0524),
+      q(0),
+      ],
+   q(quenya) => [
+      q(5725),
+      q(0),
+      ],
+   q(queretaro otomi) => [
+      q(5320),
+      q(0),
+      ],
+   q(quetzaltepec mixe) => [
+      q(5661),
+      q(0),
+      ],
+   q(queyu) => [
+      q(5704),
+      q(0),
+      ],
+   q(quiavicuzas zapotec) => [
+      q(7908),
+      q(0),
+      ],
+   q(quiche) => [
+      q(5672),
+      q(1),
+      ],
+   q(quileute) => [
+      q(5677),
+      q(0),
+      ],
+   q(quinault) => [
+      q(5681),
+      q(0),
+      ],
+   q(quinqui) => [
+      q(5683),
+      q(0),
+      ],
+   q(quioquitani-quieri zapotec) => [
+      q(7944),
+      q(0),
+      ],
+   q(quiotepec chinantec) => [
+      q(1722),
+      q(0),
+      ],
+   q(quiripi) => [
+      q(5726),
+      q(0),
+      ],
+   q(rabha) => [
+      q(5733),
+      q(0),
+      ],
+   q(rade) => [
+      q(5730),
+      q(0),
+      ],
+   q(raetic) => [
+      q(7470),
+      q(0),
+      ],
+   q(rahambuu) => [
+      q(5748),
+      q(0),
+      ],
+   q(rajah kabunsuwan manobo) => [
+      q(4483),
+      q(0),
+      ],
+   q(rajasthani) => [
+      q(0355),
+      q(0),
+      ],
+   q(rajbanshi) => [
+      q(5787),
+      q(0),
+      ],
+   q(raji) => [
+      q(5786),
+      q(0),
+      ],
+   q(rajong) => [
+      q(5785),
+      q(0),
+      ],
+   q(rajput garasia) => [
+      q(2612),
+      q(0),
+      ],
+   q(rakahanga-manihiki) => [
+      q(5790),
+      q(0),
+      ],
+   q(rakhine) => [
+      q(5791),
+      q(0),
+      ],
+   q(ralte) => [
+      q(5736),
+      q(0),
+      ],
+   q(rama) => [
+      q(5795),
+      q(0),
+      ],
+   q(ramoaaina) => [
+      q(5734),
+      q(0),
+      ],
+   q(ramopa) => [
+      q(3397),
+      q(0),
+      ],
+   q(rampi) => [
+      q(3924),
+      q(0),
+      ],
+   q(rana tharu) => [
+      q(6497),
+      q(0),
+      ],
+   q(rang) => [
+      q(5746),
+      q(0),
+      ],
+   q(rangkas) => [
+      q(5770),
+      q(0),
+      ],
+   q(ranglong) => [
+      q(5821),
+      q(0),
+      ],
+   q(rangpuri) => [
+      q(5793),
+      q(0),
+      ],
+   q(rao) => [
+      q(5739),
+      q(0),
+      ],
+   q(rapa) => [
+      q(5747),
+      q(0),
+      ],
+   q(rapanui) => [
+      q(0356),
+      q(0),
+      ],
+   q(rapoisi) => [
+      q(3758),
+      q(0),
+      ],
+   q(rapting) => [
+      q(5839),
+      q(0),
+      ],
+   q(rara bakati') => [
+      q(4033),
+      q(0),
+      ],
+   q(rarotongan) => [
+      q(0357),
+      q(0),
+      ],
+   q(rasawa) => [
+      q(5729),
+      q(0),
+      ],
+   q(ratagnon) => [
+      q(1481),
+      q(0),
+      ],
+   q(ratahan) => [
+      q(5847),
+      q(0),
+      ],
+   q(rathawi) => [
+      q(5850),
+      q(0),
+      ],
+   q(rathwi bareli) => [
+      q(1165),
+      q(0),
+      ],
+   q(raute) => [
+      q(5743),
+      q(0),
+      ],
+   q(ravula) => [
+      q(7606),
+      q(0),
+      ],
+   q(rawa) => [
+      q(5868),
+      q(0),
+      ],
+   q(rawang) => [
+      q(5745),
+      q(0),
+      ],
+   q(rawat) => [
+      q(3131),
+      q(0),
+      ],
+   q(rawngtu chin) => [
+      q(7099),
+      q(0),
+      ],
+   q(rawo) => [
+      q(5865),
+      q(0),
+      ],
+   q(rayon zoque) => [
+      q(7897),
+      q(0),
+      ],
+   q(razajerdi) => [
+      q(5742),
+      q(0),
+      ],
+   q(razihi) => [
+      q(5875),
+      q(0),
+      ],
+   q(red gelao) => [
+      q(2521),
+      q(0),
+      ],
+   q(reel) => [
+      q(0928),
+      q(0),
+      ],
+   q(rejang) => [
+      q(5760),
+      q(0),
+      ],
+   q(rejang kayan) => [
+      q(5757),
+      q(0),
+      ],
+   q(reli) => [
+      q(5759),
+      q(0),
+      ],
+   q(rema) => [
+      q(1371),
+      q(0),
+      ],
+   q(rembarunga) => [
+      q(5796),
+      q(0),
+      ],
+   q(rembong) => [
+      q(5756),
+      q(0),
+      ],
+   q(remo) => [
+      q(5762),
+      q(0),
+      ],
+   q(remontado dumagat) => [
+      q(0673),
+      q(0),
+      ],
+   q(rempi) => [
+      q(5809),
+      q(0),
+      ],
+   q(remun) => [
+      q(3937),
+      q(0),
+      ],
+   q(rendille) => [
+      q(5761),
+      q(0),
+      ],
+   q(rengao) => [
+      q(5763),
+      q(0),
+      ],
+   q(rennell-bellona) => [
+      q(4425),
+      q(0),
+      ],
+   q(repanbitip) => [
+      q(5838),
+      q(0),
+      ],
+   q(rer bare) => [
+      q(5764),
+      q(0),
+      ],
+   q(rerau) => [
+      q(5755),
+      q(0),
+      ],
+   q(rerep) => [
+      q(5426),
+      q(0),
+      ],
+   q(reserved for local use) => [
+      q(0353),
+      q(0),
+      ],
+   q(reshe) => [
+      q(5765),
+      q(0),
+      ],
+   q(resigaro) => [
+      q(5772),
+      q(0),
+      ],
+   q(retta) => [
+      q(5766),
+      q(0),
+      ],
+   q(reunion creole french) => [
+      q(5753),
+      q(0),
+      ],
+   q(reyesano) => [
+      q(5767),
+      q(0),
+      ],
+   q(riang (india)) => [
+      q(5777),
+      q(0),
+      ],
+   q(riang (myanmar)) => [
+      q(5779),
+      q(0),
+      ],
+   q(riantana) => [
+      q(5738),
+      q(0),
+      ],
+   q(ribun) => [
+      q(5782),
+      q(0),
+      ],
+   q(rifao) => [
+      q(4977),
+      q(1),
+      ],
+   q(rikbaktsa) => [
+      q(5789),
+      q(0),
+      ],
+   q(rincon zapotec) => [
+      q(7805),
+      q(0),
+      ],
+   q(rinconada bikol) => [
+      q(1482),
+      q(0),
+      ],
+   q(ringgou) => [
+      q(5774),
+      q(0),
+      ],
+   q(ririo) => [
+      q(5840),
+      q(0),
+      ],
+   q(ritarungo) => [
+      q(5783),
+      q(0),
+      ],
+   q(riung) => [
+      q(5784),
+      q(0),
+      ],
+   q(riverain sango) => [
+      q(6131),
+      q(0),
+      ],
+   q(rogo) => [
+      q(5828),
+      q(0),
+      ],
+   q(rohingya) => [
+      q(5775),
+      q(0),
+      ],
+   q(roma) => [
+      q(5806),
+      q(0),
+      ],
+   q(romagnol) => [
+      q(5771),
+      q(0),
+      ],
+   q(romam) => [
+      q(5816),
+      q(0),
+      ],
+   q(romance languages) => [
+      q(0358),
+      q(0),
+      ],
+   q(romanian) => [
+      q(0361),
+      q(0),
+      ],
+   q(romanian sign language) => [
+      q(5811),
+      q(0),
+      ],
+   q(romano-greek) => [
+      q(5769),
+      q(0),
+      ],
+   q(romano-serbian) => [
+      q(5843),
+      q(0),
+      ],
+   q(romanova) => [
+      q(5814),
+      q(0),
+      ],
+   q(romansh) => [
+      q(0359),
+      q(0),
+      ],
+   q(romany) => [
+      q(0360),
+      q(0),
+      ],
+   q(romblomanon) => [
+      q(5832),
+      q(0),
+      ],
+   q(rombo) => [
+      q(5830),
+      q(0),
+      ],
+   q(romkun) => [
+      q(5804),
+      q(0),
+      ],
+   q(ron) => [
+      q(1766),
+      q(0),
+      ],
+   q(ronga) => [
+      q(5820),
+      q(0),
+      ],
+   q(rongga) => [
+      q(5835),
+      q(0),
+      ],
+   q(rongmei naga) => [
+      q(4750),
+      q(0),
+      ],
+   q(rongpo) => [
+      q(5823),
+      q(0),
+      ],
+   q(ronji) => [
+      q(5829),
+      q(0),
+      ],
+   q(roon) => [
+      q(5822),
+      q(0),
+      ],
+   q(roria) => [
+      q(5768),
+      q(0),
+      ],
+   q(rotokas) => [
+      q(5833),
+      q(0),
+      ],
+   q(rotuman) => [
+      q(5848),
+      q(0),
+      ],
+   q(roviana) => [
+      q(5855),
+      q(0),
+      ],
+   q(ruching palaung) => [
+      q(5381),
+      q(0),
+      ],
+   q(rudbari) => [
+      q(5754),
+      q(0),
+      ],
+   q(rufiji) => [
+      q(5857),
+      q(0),
+      ],
+   q(ruga) => [
+      q(5856),
+      q(0),
+      ],
+   q(rukai) => [
+      q(2141),
+      q(0),
+      ],
+   q(ruma) => [
+      q(5864),
+      q(0),
+      ],
+   q(rumai palaung) => [
+      q(5749),
+      q(0),
+      ],
+   q(rumu) => [
+      q(3442),
+      q(0),
+      ],
+   q(rundi) => [
+      q(0362),
+      q(0),
+      ],
+   q(runga) => [
+      q(5836),
+      q(0),
+      ],
+   q(rungtu chin) => [
+      q(5846),
+      q(0),
+      ],
+   q(rungus) => [
+      q(2132),
+      q(0),
+      ],
+   q(rungwa) => [
+      q(5825),
+      q(0),
+      ],
+   q(russia buriat) => [
+      q(1583),
+      q(0),
+      ],
+   q(russian) => [
+      q(0364),
+      q(0),
+      ],
+   q(russian sign language) => [
+      q(5844),
+      q(0),
+      ],
+   q(rusyn) => [
+      q(5853),
+      q(0),
+      ],
+   q(rutul) => [
+      q(5861),
+      q(0),
+      ],
+   q(ruuli) => [
+      q(5852),
+      q(0),
+      ],
+   q(ruund) => [
+      q(5819),
+      q(0),
+      ],
+   q(rwa) => [
+      q(5866),
+      q(0),
+      ],
+   q(s'gaw karen) => [
+      q(3611),
+      q(0),
+      ],
+   q(sa) => [
+      q(5889),
+      q(0),
+      ],
+   q(sa'a) => [
+      q(0835),
+      q(0),
+      ],
+   q(sa'ban) => [
+      q(6141),
+      q(0),
+      ],
+   q(sa'och) => [
+      q(5927),
+      q(0),
+      ],
+   q(saafi-saafi) => [
+      q(5887),
+      q(0),
+      ],
+   q(saam) => [
+      q(5740),
+      q(0),
+      ],
+   q(saamia) => [
+      q(4054),
+      q(0),
+      ],
+   q(saaroa) => [
+      q(6319),
+      q(0),
+      ],
+   q(saba) => [
+      q(5876),
+      q(0),
+      ],
+   q(sabaean) => [
+      q(7474),
+      q(0),
+      ],
+   q(sabah bisaya) => [
+      q(1470),
+      q(0),
+      ],
+   q(sabah malay) => [
+      q(4531),
+      q(0),
+      ],
+   q(sabane) => [
+      q(5879),
+      q(0),
+      ],
+   q(sabaot) => [
+      q(6186),
+      q(0),
+      ],
+   q(sabine) => [
+      q(5913),
+      q(0),
+      ],
+   q(sabu) => [
+      q(2875),
+      q(0),
+      ],
+   q(sabum) => [
+      q(5906),
+      q(0),
+      ],
+   q(sacapulteco) => [
+      q(5686),
+      q(0),
+      ],
+   q(sadri) => [
+      q(5924),
+      q(0),
+      ],
+   q(saek) => [
+      q(6063),
+      q(0),
+      ],
+   q(saep) => [
+      q(6169),
+      q(0),
+      ],
+   q(safaliba) => [
+      q(5880),
+      q(0),
+      ],
+   q(safeyoka) => [
+      q(0859),
+      q(0),
+      ],
+   q(safwa) => [
+      q(5902),
+      q(0),
+      ],
+   q(sagala) => [
+      q(5904),
+      q(0),
+      ],
+   q(sagalla) => [
+      q(6464),
+      q(0),
+      ],
+   q(saho) => [
+      q(6241),
+      q(0),
+      ],
+   q(sahu) => [
+      q(5881),
+      q(0),
+      ],
+   q(saidi arabic) => [
+      q(0626),
+      q(0),
+      ],
+   q(saint lucian creole french) => [
+      q(0588),
+      q(0),
+      ],
+   q(saisiyat) => [
+      q(7491),
+      q(0),
+      ],
+   q(sajalong) => [
+      q(6052),
+      q(0),
+      ],
+   q(sajau basap) => [
+      q(6047),
+      q(0),
+      ],
+   q(sakachep) => [
+      q(5922),
+      q(0),
+      ],
+   q(sakalava malagasy) => [
+      q(6068),
+      q(0),
+      ],
+   q(sakan) => [
+      q(0224),
+      q(1),
+      ],
+   q(sakao) => [
+      q(6080),
+      q(0),
+      ],
+   q(sakata) => [
+      q(6079),
+      q(0),
+      ],
+   q(sake) => [
+      q(5882),
+      q(0),
+      ],
+   q(sakirabia) => [
+      q(6067),
+      q(0),
+      ],
+   q(sala) => [
+      q(6015),
+      q(0),
+      ],
+   q(salako) => [
+      q(3499),
+      q(1),
+      ],
+   q(salampasu) => [
+      q(6103),
+      q(0),
+      ],
+   q(salar) => [
+      q(6098),
+      q(0),
+      ],
+   q(salas) => [
+      q(5996),
+      q(0),
+      ],
+   q(salasaca highland quichua) => [
+      q(5715),
+      q(0),
+      ],
+   q(salchuq) => [
+      q(6097),
+      q(0),
+      ],
+   q(saleman) => [
+      q(5886),
+      q(0),
+      ],
+   q(saliba) => [
+      q(5896),
+      q(0),
+      ],
+   q(salinan) => [
+      q(6095),
+      q(0),
+      ],
+   q(salishan languages) => [
+      q(0369),
+      q(0),
+      ],
+   q(sallands) => [
+      q(5953),
+      q(0),
+      ],
+   q(salt-yui) => [
+      q(6093),
+      q(0),
+      ],
+   q(saluan) => [
+      q(4008),
+      q(0),
+      ],
+   q(saluma) => [
+      q(6092),
+      q(0),
+      ],
+   q(salvadoran sign language) => [
+      q(2294),
+      q(0),
+      ],
+   q(sam) => [
+      q(6143),
+      q(0),
+      ],
+   q(sama) => [
+      q(6108),
+      q(0),
+      ],
+   q(samaritan) => [
+      q(6115),
+      q(0),
+      ],
+   q(samaritan aramaic) => [
+      q(0370),
+      q(0),
+      ],
+   q(samarokena) => [
+      q(6582),
+      q(0),
+      ],
+   q(samatao) => [
+      q(7733),
+      q(0),
+      ],
+   q(samay) => [
+      q(6333),
+      q(0),
+      ],
+   q(samba) => [
+      q(6122),
+      q(0),
+      ],
+   q(samba daka) => [
+      q(1681),
+      q(0),
+      ],
+   q(samba leko) => [
+      q(4784),
+      q(0),
+      ],
+   q(sambal) => [
+      q(7475),
+      q(0),
+      ],
+   q(sambalpuri) => [
+      q(6184),
+      q(0),
+      ],
+   q(sambe) => [
+      q(7260),
+      q(0),
+      ],
+   q(samberigi) => [
+      q(6240),
+      q(0),
+      ],
+   q(samburu) => [
+      q(5884),
+      q(0),
+      ],
+   q(samei) => [
+      q(6111),
+      q(0),
+      ],
+   q(sami languages) => [
+      q(0390),
+      q(0),
+      ],
+   q(samo) => [
+      q(6116),
+      q(0),
+      ],
+   q(samoan) => [
+      q(0393),
+      q(0),
+      ],
+   q(samogitian) => [
+      q(5994),
+      q(0),
+      ],
+   q(samosa) => [
+      q(6297),
+      q(0),
+      ],
+   q(samoyedic languages) => [
+      q(0527),
+      q(0),
+      ],
+   q(sampang) => [
+      q(5744),
+      q(0),
+      ],
+   q(samre) => [
+      q(6316),
+      q(0),
+      ],
+   q(samtao) => [
+      q(6262),
+      q(0),
+      ],
+   q(samvedi) => [
+      q(6120),
+      q(0),
+      ],
+   q(san agustin mixtepec zapotec) => [
+      q(7941),
+      q(0),
+      ],
+   q(san baltazar loxicha zapotec) => [
+      q(7922),
+      q(0),
+      ],
+   q(san blas kuna) => [
+      q(1905),
+      q(0),
+      ],
+   q(san dionisio del mar huave) => [
+      q(2873),
+      q(0),
+      ],
+   q(san felipe otlaltepec popoloca) => [
+      q(5564),
+      q(0),
+      ],
+   q(san francisco del mar huave) => [
+      q(2852),
+      q(0),
+      ],
+   q(san francisco matlatzinca) => [
+      q(4114),
+      q(0),
+      ],
+   q(san jeronimo tecoatl mazatec) => [
+      q(4107),
+      q(0),
+      ],
+   q(san juan atzingo popoloca) => [
+      q(5551),
+      q(0),
+      ],
+   q(san juan colorado mixtec) => [
+      q(4314),
+      q(0),
+      ],
+   q(san juan guelavia zapotec) => [
+      q(7791),
+      q(1),
+      ],
+   q(san juan teita mixtec) => [
+      q(7500),
+      q(0),
+      ],
+   q(san luis temalacayuca popoloca) => [
+      q(5576),
+      q(0),
+      ],
+   q(san marcos tlacoyalco popoloca) => [
+      q(5498),
+      q(0),
+      ],
+   q(san marcos tlalcoyalco popoloca) => [
+      q(5498),
+      q(1),
+      ],
+   q(san martin itunyoso triqui) => [
+      q(6687),
+      q(0),
+      ],
+   q(san martin quechua) => [
+      q(5702),
+      q(0),
+      ],
+   q(san mateo del mar huave) => [
+      q(2867),
+      q(0),
+      ],
+   q(san miguel creole french) => [
+      q(5920),
+      q(0),
+      ],
+   q(san miguel el grande mixtec) => [
+      q(4296),
+      q(0),
+      ],
+   q(san miguel piedras mixtec) => [
+      q(7505),
+      q(0),
+      ],
+   q(san pedro amuzgos amuzgo) => [
+      q(1016),
+      q(0),
+      ],
+   q(san pedro quiatoni zapotec) => [
+      q(7904),
+      q(0),
+      ],
+   q(san salvador kongo) => [
+      q(3709),
+      q(0),
+      ],
+   q(san vicente coatlan zapotec) => [
+      q(7918),
+      q(0),
+      ],
+   q(sanaani arabic) => [
+      q(1003),
+      q(0),
+      ],
+   q(sanapana) => [
+      q(6176),
+      q(0),
+      ],
+   q(sandawe) => [
+      q(0365),
+      q(0),
+      ],
+   q(sanga (democratic republic of congo)) => [
+      q(6129),
+      q(0),
+      ],
+   q(sanga (nigeria)) => [
+      q(7483),
+      q(0),
+      ],
+   q(sanggau) => [
+      q(5921),
+      q(0),
+      ],
+   q(sangil) => [
+      q(6132),
+      q(0),
+      ],
+   q(sangir) => [
+      q(6317),
+      q(0),
+      ],
+   q(sangisari) => [
+      q(5993),
+      q(0),
+      ],
+   q(sangkong) => [
+      q(5990),
+      q(0),
+      ],
+   q(sanglechi) => [
+      q(5999),
+      q(0),
+      ],
+   q(sango) => [
+      q(0366),
+      q(0),
+      ],
+   q(sangtam naga) => [
+      q(5061),
+      q(0),
+      ],
+   q(sangu (gabon)) => [
+      q(6137),
+      q(0),
+      ],
+   q(sangu (tanzania)) => [
+      q(5907),
+      q(0),
+      ],
+   q(sani) => [
+      q(7736),
+      q(0),
+      ],
+   q(sanie) => [
+      q(7741),
+      q(0),
+      ],
+   q(saniyo-hiyewe) => [
+      q(6144),
+      q(0),
+      ],
+   q(sankaran maninka) => [
+      q(4525),
+      q(0),
+      ],
+   q(sansi) => [
+      q(6226),
+      q(0),
+      ],
+   q(sanskrit) => [
+      q(0371),
+      q(0),
+      ],
+   q(santa ana de tusi pasco quechua) => [
+      q(5722),
+      q(0),
+      ],
+   q(santa catarina albarradas zapotec) => [
+      q(7942),
+      q(0),
+      ],
+   q(santa ines ahuatempan popoloca) => [
+      q(5377),
+      q(0),
+      ],
+   q(santa ines yatzechi zapotec) => [
+      q(7912),
+      q(0),
+      ],
+   q(santa lucia monteverde mixtec) => [
+      q(4189),
+      q(0),
+      ],
+   q(santa maria del mar huave) => [
+      q(2876),
+      q(0),
+      ],
+   q(santa maria la alta nahuatl) => [
+      q(4875),
+      q(0),
+      ],
+   q(santa maria quiegolani zapotec) => [
+      q(7907),
+      q(0),
+      ],
+   q(santa maria zacatepec mixtec) => [
+      q(4687),
+      q(0),
+      ],
+   q(santa teresa cora) => [
+      q(1815),
+      q(0),
+      ],
+   q(santali) => [
+      q(0373),
+      q(0),
+      ],
+   q(santiago del estero quichua) => [
+      q(5685),
+      q(0),
+      ],
+   q(santiago xanica zapotec) => [
+      q(7916),
+      q(0),
+      ],
+   q(santo domingo albarradas zapotec) => [
+      q(7806),
+      q(0),
+      ],
+   q(sanuma) => [
+      q(7489),
+      q(0),
+      ],
+   q(sao paulo kaingang) => [
+      q(7851),
+      q(0),
+      ],
+   q(saotomense) => [
+      q(1845),
+      q(0),
+      ],
+   q(saparua) => [
+      q(6180),
+      q(0),
+      ],
+   q(sape) => [
+      q(6168),
+      q(0),
+      ],
+   q(sapo) => [
+      q(3579),
+      q(0),
+      ],
+   q(saponi) => [
+      q(6172),
+      q(0),
+      ],
+   q(saposa) => [
+      q(6181),
+      q(0),
+      ],
+   q(sapuan) => [
+      q(6183),
+      q(0),
+      ],
+   q(sar) => [
+      q(4627),
+      q(0),
+      ],
+   q(sara) => [
+      q(6201),
+      q(0),
+      ],
+   q(sara kaba) => [
+      q(5917),
+      q(0),
+      ],
+   q(sara kaba deme) => [
+      q(3692),
+      q(0),
+      ],
+   q(sara kaba naa) => [
+      q(3706),
+      q(0),
+      ],
+   q(saraiki) => [
+      q(6077),
+      q(0),
+      ],
+   q(saramaccan) => [
+      q(6208),
+      q(0),
+      ],
+   q(sarangani blaan) => [
+      q(1390),
+      q(0),
+      ],
+   q(sarangani manobo) => [
+      q(4137),
+      q(0),
+      ],
+   q(sarasira) => [
+      q(7932),
+      q(0),
+      ],
+   q(saraveca) => [
+      q(5885),
+      q(0),
+      ],
+   q(sardinian) => [
+      q(0403),
+      q(0),
+      ],
+   q(sari) => [
+      q(0895),
+      q(0),
+      ],
+   q(sarikoli) => [
+      q(6204),
+      q(0),
+      ],
+   q(sarli) => [
+      q(5938),
+      q(0),
+      ],
+   q(sarsi) => [
+      q(6211),
+      q(0),
+      ],
+   q(sartang) => [
+      q(5271),
+      q(0),
+      ],
+   q(sarua) => [
+      q(6309),
+      q(0),
+      ],
+   q(sarudu) => [
+      q(5951),
+      q(0),
+      ],
+   q(saruga) => [
+      q(6198),
+      q(0),
+      ],
+   q(sasak) => [
+      q(0372),
+      q(0),
+      ],
+   q(sasaru) => [
+      q(6320),
+      q(0),
+      ],
+   q(sassarese sardinian) => [
+      q(5936),
+      q(0),
+      ],
+   q(satawalese) => [
+      q(6264),
+      q(0),
+      ],
+   q(satere-mawe) => [
+      q(4116),
+      q(0),
+      ],
+   q(saterfriesisch) => [
+      q(6258),
+      q(0),
+      ],
+   q(saudi arabian sign language) => [
+      q(5943),
+      q(0),
+      ],
+   q(sauraseni prakrit) => [
+      q(5617),
+      q(0),
+      ],
+   q(saurashtra) => [
+      q(5891),
+      q(0),
+      ],
+   q(sauri) => [
+      q(6212),
+      q(0),
+      ],
+   q(sauria paharia) => [
+      q(4330),
+      q(0),
+      ],
+   q(sause) => [
+      q(5883),
+      q(0),
+      ],
+   q(sausi) => [
+      q(6227),
+      q(0),
+      ],
+   q(savi) => [
+      q(5939),
+      q(0),
+      ],
+   q(savosavo) => [
+      q(6286),
+      q(0),
+      ],
+   q(sawai) => [
+      q(6346),
+      q(0),
+      ],
+   q(saweru) => [
+      q(6302),
+      q(0),
+      ],
+   q(sawi) => [
+      q(5888),
+      q(0),
+      ],
+   q(sawila) => [
+      q(6304),
+      q(0),
+      ],
+   q(sawknah) => [
+      q(6298),
+      q(0),
+      ],
+   q(saxon, low) => [
+      q(0307),
+      q(3),
+      ],
+   q(saxwe gbe) => [
+      q(6322),
+      q(0),
+      ],
+   q(saya) => [
+      q(5890),
+      q(0),
+      ],
+   q(sayula popoluca) => [
+      q(5561),
+      q(0),
+      ],
+   q(scots) => [
+      q(0375),
+      q(0),
+      ],
+   q(scottish gaelic) => [
+      q(0154),
+      q(1),
+      ],
+   q(scythian) => [
+      q(7476),
+      q(0),
+      ],
+   q(sea island creole english) => [
+      q(2650),
+      q(0),
+      ],
+   q(seba) => [
+      q(3239),
+      q(0),
+      ],
+   q(sebat bet gurage) => [
+      q(5997),
+      q(0),
+      ],
+   q(seberuang) => [
+      q(5915),
+      q(0),
+      ],
+   q(sebop) => [
+      q(6026),
+      q(0),
+      ],
+   q(sebuyau) => [
+      q(6125),
+      q(0),
+      ],
+   q(sechelt) => [
+      q(5956),
+      q(0),
+      ],
+   q(secoya) => [
+      q(5975),
+      q(0),
+      ],
+   q(sedang) => [
+      q(5957),
+      q(0),
+      ],
+   q(sedoa) => [
+      q(6774),
+      q(0),
+      ],
+   q(seeku) => [
+      q(6160),
+      q(0),
+      ],
+   q(segai) => [
+      q(5985),
+      q(0),
+      ],
+   q(segeju) => [
+      q(5960),
+      q(0),
+      ],
+   q(seget) => [
+      q(5898),
+      q(0),
+      ],
+   q(sehwi) => [
+      q(5981),
+      q(0),
+      ],
+   q(seimat) => [
+      q(6224),
+      q(0),
+      ],
+   q(seit-kaitetu) => [
+      q(2758),
+      q(0),
+      ],
+   q(sekak) => [
+      q(3829),
+      q(1),
+      ],
+   q(sekani) => [
+      q(5964),
+      q(0),
+      ],
+   q(sekapan) => [
+      q(6075),
+      q(0),
+      ],
+   q(sekar) => [
+      q(6085),
+      q(0),
+      ],
+   q(seke (nepal)) => [
+      q(6071),
+      q(0),
+      ],
+   q(seke (vanuatu)) => [
+      q(6066),
+      q(0),
+      ],
+   q(sekele) => [
+      q(6960),
+      q(0),
+      ],
+   q(seki) => [
+      q(6325),
+      q(0),
+      ],
+   q(seko padang) => [
+      q(6083),
+      q(0),
+      ],
+   q(seko tengah) => [
+      q(6074),
+      q(0),
+      ],
+   q(sekpele) => [
+      q(3913),
+      q(0),
+      ],
+   q(selangor sign language) => [
+      q(3313),
+      q(0),
+      ],
+   q(selaru) => [
+      q(6101),
+      q(0),
+      ],
+   q(selayar) => [
+      q(6104),
+      q(0),
+      ],
+   q(selee) => [
+      q(6142),
+      q(0),
+      ],
+   q(selepet) => [
+      q(6174),
+      q(0),
+      ],
+   q(selian) => [
+      q(6315),
+      q(0),
+      ],
+   q(selkup) => [
+      q(0376),
+      q(0),
+      ],
+   q(selungai murut) => [
+      q(6089),
+      q(0),
+      ],
+   q(seluwasan) => [
+      q(6303),
+      q(0),
+      ],
+   q(semai) => [
+      q(5954),
+      q(0),
+      ],
+   q(semandang) => [
+      q(5944),
+      q(0),
+      ],
+   q(semaq beri) => [
+      q(6337),
+      q(0),
+      ],
+   q(sembakung murut) => [
+      q(5909),
+      q(0),
+      ],
+   q(semelai) => [
+      q(6335),
+      q(0),
+      ],
+   q(semimi) => [
+      q(2310),
+      q(0),
+      ],
+   q(semitic languages) => [
+      q(0377),
+      q(0),
+      ],
+   q(semnam) => [
+      q(6230),
+      q(0),
+      ],
+   q(semnani) => [
+      q(6123),
+      q(0),
+      ],
+   q(sempan) => [
+      q(7478),
+      q(0),
+      ],
+   q(sena) => [
+      q(5961),
+      q(0),
+      ],
+   q(senara senoufo) => [
+      q(5968),
+      q(0),
+      ],
+   q(senaya) => [
+      q(6329),
+      q(0),
+      ],
+   q(sene) => [
+      q(5963),
+      q(0),
+      ],
+   q(seneca) => [
+      q(5958),
+      q(0),
+      ],
+   q(sened) => [
+      q(5949),
+      q(0),
+      ],
+   q(sengele) => [
+      q(6340),
+      q(0),
+      ],
+   q(senggi) => [
+      q(6140),
+      q(0),
+      ],
+   q(sengo) => [
+      q(6173),
+      q(0),
+      ],
+   q(sengseng) => [
+      q(6242),
+      q(0),
+      ],
+   q(senhaja de srair) => [
+      q(6058),
+      q(0),
+      ],
+   q(sensi) => [
+      q(6130),
+      q(0),
+      ],
+   q(sentani) => [
+      q(5971),
+      q(0),
+      ],
+   q(senthang chin) => [
+      q(5976),
+      q(0),
+      ],
+   q(sentinel) => [
+      q(6245),
+      q(0),
+      ],
+   q(sepa (indonesia)) => [
+      q(6167),
+      q(0),
+      ],
+   q(sepa (papua new guinea)) => [
+      q(6170),
+      q(0),
+      ],
+   q(sepedi) => [
+      q(0319),
+      q(1),
+      ],
+   q(sepik iwam) => [
+      q(3030),
+      q(0),
+      ],
+   q(sera) => [
+      q(6217),
+      q(0),
+      ],
+   q(seraiki) => [
+      q(6077),
+      q(1),
+      ],
+   q(serbian) => [
+      q(0405),
+      q(0),
+      ],
+   q(serbo-croatian) => [
+      q(0538),
+      q(0),
+      ],
+   q(sere) => [
+      q(6290),
+      q(0),
+      ],
+   q(serer) => [
+      q(0406),
+      q(0),
+      ],
+   q(seri) => [
+      q(5962),
+      q(0),
+      ],
+   q(serili) => [
+      q(6283),
+      q(0),
+      ],
+   q(seroa) => [
+      q(3564),
+      q(0),
+      ],
+   q(serrano) => [
+      q(5969),
+      q(0),
+      ],
+   q(seru) => [
+      q(6338),
+      q(0),
+      ],
+   q(serua) => [
+      q(6215),
+      q(0),
+      ],
+   q(serudung murut) => [
+      q(6206),
+      q(0),
+      ],
+   q(serui-laut) => [
+      q(5972),
+      q(0),
+      ],
+   q(seselwa creole french) => [
+      q(1854),
+      q(0),
+      ],
+   q(seta) => [
+      q(6247),
+      q(0),
+      ],
+   q(setaman) => [
+      q(6254),
+      q(0),
+      ],
+   q(seti) => [
+      q(5900),
+      q(0),
+      ],
+   q(settla) => [
+      q(6243),
+      q(0),
+      ],
+   q(severn ojibwa) => [
+      q(5217),
+      q(0),
+      ],
+   q(sewa bay) => [
+      q(5974),
+      q(0),
+      ],
+   q(seze) => [
+      q(6339),
+      q(0),
+      ],
+   q(sha) => [
+      q(5932),
+      q(0),
+      ],
+   q(shabak) => [
+      q(5935),
+      q(0),
+      ],
+   q(shabo) => [
+      q(5897),
+      q(1),
+      ],
+   q(shahmirzadi) => [
+      q(6218),
+      q(0),
+      ],
+   q(shahrudi) => [
+      q(6012),
+      q(0),
+      ],
+   q(shall-zwall) => [
+      q(6001),
+      q(0),
+      ],
+   q(shama-sambuga) => [
+      q(6187),
+      q(0),
+      ],
+   q(shamang) => [
+      q(7479),
+      q(0),
+      ],
+   q(shambala) => [
+      q(3590),
+      q(0),
+      ],
+   q(shan) => [
+      q(0380),
+      q(0),
+      ],
+   q(shanenawa) => [
+      q(6299),
+      q(0),
+      ],
+   q(shanga) => [
+      q(6013),
+      q(0),
+      ],
+   q(shangzhai) => [
+      q(3095),
+      q(1),
+      ],
+   q(sharanahua) => [
+      q(4148),
+      q(0),
+      ],
+   q(shark bay) => [
+      q(6239),
+      q(0),
+      ],
+   q(sharwa) => [
+      q(6301),
+      q(0),
+      ],
+   q(shasta) => [
+      q(6018),
+      q(0),
+      ],
+   q(shatt) => [
+      q(6009),
+      q(0),
+      ],
+   q(shau) => [
+      q(6188),
+      q(0),
+      ],
+   q(shawnee) => [
+      q(6061),
+      q(0),
+      ],
+   q(she) => [
+      q(6022),
+      q(0),
+      ],
+   q(shehri) => [
+      q(6020),
+      q(0),
+      ],
+   q(shekhawati) => [
+      q(6306),
+      q(0),
+      ],
+   q(shekkacho) => [
+      q(4447),
+      q(0),
+      ],
+   q(sheko) => [
+      q(6005),
+      q(0),
+      ],
+   q(shelta) => [
+      q(6249),
+      q(0),
+      ],
+   q(shempire senoufo) => [
+      q(5955),
+      q(0),
+      ],
+   q(shendu) => [
+      q(6011),
+      q(0),
+      ],
+   q(sheni) => [
+      q(5931),
+      q(0),
+      ],
+   q(sherbro) => [
+      q(1504),
+      q(0),
+      ],
+   q(sherdukpen) => [
+      q(5947),
+      q(0),
+      ],
+   q(sherpa) => [
+      q(7487),
+      q(0),
+      ],
+   q(sheshi kham) => [
+      q(3365),
+      q(0),
+      ],
+   q(shi) => [
+      q(6016),
+      q(0),
+      ],
+   q(shihhi arabic) => [
+      q(6225),
+      q(0),
+      ],
+   q(shiki) => [
+      q(2640),
+      q(0),
+      ],
+   q(shilluk) => [
+      q(6010),
+      q(0),
+      ],
+   q(shina) => [
+      q(5925),
+      q(0),
+      ],
+   q(shipibo-conibo) => [
+      q(6014),
+      q(0),
+      ],
+   q(shixing) => [
+      q(6313),
+      q(0),
+      ],
+   q(sholaga) => [
+      q(6087),
+      q(0),
+      ],
+   q(shom peng) => [
+      q(6031),
+      q(0),
+      ],
+   q(shona) => [
+      q(0395),
+      q(0),
+      ],
+   q(shoo-minda-nye) => [
+      q(1086),
+      q(0),
+      ],
+   q(shor) => [
+      q(1749),
+      q(0),
+      ],
+   q(shoshoni) => [
+      q(6007),
+      q(0),
+      ],
+   q(shua) => [
+      q(6006),
+      q(0),
+      ],
+   q(shuadit) => [
+      q(5950),
+      q(0),
+      ],
+   q(shuar) => [
+      q(3103),
+      q(0),
+      ],
+   q(shubi) => [
+      q(6272),
+      q(0),
+      ],
+   q(shughni) => [
+      q(5987),
+      q(0),
+      ],
+   q(shumashti) => [
+      q(6260),
+      q(0),
+      ],
+   q(shumcho) => [
+      q(5930),
+      q(0),
+      ],
+   q(shuswap) => [
+      q(6017),
+      q(0),
+      ],
+   q(shuwa-zamani) => [
+      q(3589),
+      q(0),
+      ],
+   q(shwai) => [
+      q(6021),
+      q(0),
+      ],
+   q(shwe palaung) => [
+      q(5492),
+      q(0),
+      ],
+   q(sialum) => [
+      q(6102),
+      q(0),
+      ],
+   q(siamou) => [
+      q(6028),
+      q(0),
+      ],
+   q(sian) => [
+      q(6171),
+      q(0),
+      ],
+   q(siane) => [
+      q(6136),
+      q(0),
+      ],
+   q(siang) => [
+      q(6323),
+      q(0),
+      ],
+   q(siar-lak) => [
+      q(6057),
+      q(0),
+      ],
+   q(siawi) => [
+      q(4398),
+      q(0),
+      ],
+   q(sibe) => [
+      q(4768),
+      q(0),
+      ],
+   q(siberian tatar) => [
+      q(6265),
+      q(0),
+      ],
+   q(sibu melanau) => [
+      q(5952),
+      q(0),
+      ],
+   q(sicanian) => [
+      q(6311),
+      q(0),
+      ],
+   q(sicel) => [
+      q(5933),
+      q(0),
+      ],
+   q(sichuan yi) => [
+      q(0190),
+      q(0),
+      ],
+   q(sicilian) => [
+      q(0374),
+      q(0),
+      ],
+   q(sicite senoufo) => [
+      q(5967),
+      q(0),
+      ],
+   q(siculo arabic) => [
+      q(6194),
+      q(0),
+      ],
+   q(sidamo) => [
+      q(0381),
+      q(0),
+      ],
+   q(sidetic) => [
+      q(7477),
+      q(0),
+      ],
+   q(sie) => [
+      q(2278),
+      q(0),
+      ],
+   q(sierra de juarez zapotec) => [
+      q(7790),
+      q(0),
+      ],
+   q(sierra leone sign language) => [
+      q(5998),
+      q(0),
+      ],
+   q(sierra negra nahuatl) => [
+      q(5078),
+      q(0),
+      ],
+   q(sighu) => [
+      q(6312),
+      q(0),
+      ],
+   q(sign languages) => [
+      q(0379),
+      q(0),
+      ],
+   q(sihan) => [
+      q(6138),
+      q(0),
+      ],
+   q(sihuas ancash quechua) => [
+      q(5710),
+      q(0),
+      ],
+   q(sika) => [
+      q(6070),
+      q(0),
+      ],
+   q(sikaiana) => [
+      q(6084),
+      q(0),
+      ],
+   q(sikaritai) => [
+      q(6742),
+      q(0),
+      ],
+   q(sikiana) => [
+      q(6033),
+      q(0),
+      ],
+   q(sikkimese) => [
+      q(6036),
+      q(0),
+      ],
+   q(siksika) => [
+      q(0057),
+      q(0),
+      ],
+   q(sikule) => [
+      q(6069),
+      q(0),
+      ],
+   q(sila) => [
+      q(6100),
+      q(0),
+      ],
+   q(silacayoapan mixtec) => [
+      q(4353),
+      q(0),
+      ],
+   q(sileibi) => [
+      q(5908),
+      q(0),
+      ],
+   q(silesian) => [
+      q(6341),
+      q(0),
+      ],
+   q(silimo) => [
+      q(7237),
+      q(0),
+      ],
+   q(siliput) => [
+      q(4339),
+      q(0),
+      ],
+   q(silopi) => [
+      q(7485),
+      q(0),
+      ],
+   q(silt'e) => [
+      q(6263),
+      q(0),
+      ],
+   q(simaa) => [
+      q(6027),
+      q(0),
+      ],
+   q(simba) => [
+      q(5914),
+      q(0),
+      ],
+   q(simbali) => [
+      q(6110),
+      q(0),
+      ],
+   q(simbari) => [
+      q(6106),
+      q(0),
+      ],
+   q(simbo) => [
+      q(5893),
+      q(0),
+      ],
+   q(simeku) => [
+      q(6124),
+      q(0),
+      ],
+   q(simeulue) => [
+      q(6117),
+      q(0),
+      ],
+   q(simte) => [
+      q(6118),
+      q(0),
+      ],
+   q(sinagen) => [
+      q(6040),
+      q(0),
+      ],
+   q(sinasina) => [
+      q(6237),
+      q(0),
+      ],
+   q(sinaugoro) => [
+      q(6126),
+      q(0),
+      ],
+   q(sindarin) => [
+      q(6054),
+      q(0),
+      ],
+   q(sindhi) => [
+      q(0396),
+      q(0),
+      ],
+   q(sindhi bhil) => [
+      q(5905),
+      q(0),
+      ],
+   q(sindihui mixtec) => [
+      q(7508),
+      q(0),
+      ],
+   q(singa) => [
+      q(5991),
+      q(0),
+      ],
+   q(singapore sign language) => [
+      q(6099),
+      q(0),
+      ],
+   q(singpho) => [
+      q(5992),
+      q(0),
+      ],
+   q(sinhala) => [
+      q(0382),
+      q(0),
+      ],
+   q(sinhalese) => [
+      q(0382),
+      q(1),
+      ],
+   q(sinicahua mixtec) => [
+      q(7499),
+      q(0),
+      ],
+   q(sinicized miao) => [
+      q(2796),
+      q(1),
+      ],
+   q(sininkere) => [
+      q(6076),
+      q(0),
+      ],
+   q(sino-tibetan languages) => [
+      q(0384),
+      q(0),
+      ],
+   q(sinsauru) => [
+      q(6145),
+      q(0),
+      ],
+   q(sinte romani) => [
+      q(5808),
+      q(0),
+      ],
+   q(sinyar) => [
+      q(6331),
+      q(0),
+      ],
+   q(sio) => [
+      q(7480),
+      q(0),
+      ],
+   q(siona) => [
+      q(6134),
+      q(0),
+      ],
+   q(siouan languages) => [
+      q(0383),
+      q(0),
+      ],
+   q(sipacapense) => [
+      q(5680),
+      q(0),
+      ],
+   q(sira) => [
+      q(6294),
+      q(0),
+      ],
+   q(siraya) => [
+      q(2366),
+      q(0),
+      ],
+   q(sirenik yupik) => [
+      q(7739),
+      q(0),
+      ],
+   q(siri) => [
+      q(6038),
+      q(0),
+      ],
+   q(siriano) => [
+      q(6205),
+      q(0),
+      ],
+   q(siriono) => [
+      q(6210),
+      q(0),
+      ],
+   q(sirmauri) => [
+      q(6216),
+      q(0),
+      ],
+   q(siroi) => [
+      q(6221),
+      q(0),
+      ],
+   q(sishee) => [
+      q(6030),
+      q(1),
+      ],
+   q(sissala) => [
+      q(6086),
+      q(0),
+      ],
+   q(sissano) => [
+      q(6232),
+      q(0),
+      ],
+   q(siuslaw) => [
+      q(6039),
+      q(0),
+      ],
+   q(sivandi) => [
+      q(6044),
+      q(0),
+      ],
+   q(siwai) => [
+      q(6042),
+      q(0),
+      ],
+   q(siwi) => [
+      q(6045),
+      q(0),
+      ],
+   q(siwu) => [
+      q(0735),
+      q(0),
+      ],
+   q(siyin chin) => [
+      q(1881),
+      q(0),
+      ],
+   q(skagit) => [
+      q(6062),
+      q(0),
+      ],
+   q(skalvian) => [
+      q(6287),
+      q(0),
+      ],
+   q(skepi creole dutch) => [
+      q(6082),
+      q(0),
+      ],
+   q(skolt sami) => [
+      q(0394),
+      q(0),
+      ],
+   q(skou) => [
+      q(6081),
+      q(0),
+      ],
+   q(slave (athapascan)) => [
+      q(0108),
+      q(0),
+      ],
+   q(slavic languages) => [
+      q(0385),
+      q(0),
+      ],
+   q(slavomolisano) => [
+      q(6285),
+      q(0),
+      ],
+   q(slovak) => [
+      q(0386),
+      q(0),
+      ],
+   q(slovakian sign language) => [
+      q(6284),
+      q(0),
+      ],
+   q(slovenian) => [
+      q(0387),
+      q(0),
+      ],
+   q(small flowery miao) => [
+      q(5979),
+      q(0),
+      ],
+   q(smarky kanum) => [
+      q(3725),
+      q(0),
+      ],
+   q(snohomish) => [
+      q(6135),
+      q(0),
+      ],
+   q(so) => [
+      q(6236),
+      q(0),
+      ],
+   q(so (democratic republic of congo)) => [
+      q(6148),
+      q(0),
+      ],
+   q(so'a) => [
+      q(6234),
+      q(0),
+      ],
+   q(sobei) => [
+      q(6147),
+      q(0),
+      ],
+   q(sochiapam chinantec) => [
+      q(1874),
+      q(0),
+      ],
+   q(sochiapan chinantec) => [
+      q(1874),
+      q(1),
+      ],
+   q(soga) => [
+      q(7433),
+      q(0),
+      ],
+   q(sogdian) => [
+      q(0398),
+      q(0),
+      ],
+   q(soi) => [
+      q(6153),
+      q(0),
+      ],
+   q(sokoro) => [
+      q(6154),
+      q(0),
+      ],
+   q(solano) => [
+      q(7484),
+      q(0),
+      ],
+   q(soli) => [
+      q(5916),
+      q(0),
+      ],
+   q(solomon islands sign language) => [
+      q(6344),
+      q(0),
+      ],
+   q(solong) => [
+      q(0557),
+      q(0),
+      ],
+   q(solos) => [
+      q(6155),
+      q(0),
+      ],
+   q(som) => [
+      q(6107),
+      q(0),
+      ],
+   q(somali) => [
+      q(0399),
+      q(0),
+      ],
+   q(somba-siawari) => [
+      q(1323),
+      q(0),
+      ],
+   q(somrai) => [
+      q(6159),
+      q(0),
+      ],
+   q(somray) => [
+      q(6119),
+      q(0),
+      ],
+   q(somyev) => [
+      q(3324),
+      q(0),
+      ],
+   q(sonaga) => [
+      q(7734),
+      q(0),
+      ],
+   q(sonde) => [
+      q(6003),
+      q(0),
+      ],
+   q(songe) => [
+      q(6157),
+      q(0),
+      ],
+   q(songhai languages) => [
+      q(0400),
+      q(0),
+      ],
+   q(songlai chin) => [
+      q(1869),
+      q(0),
+      ],
+   q(songo) => [
+      q(6156),
+      q(0),
+      ],
+   q(songomeno) => [
+      q(6150),
+      q(0),
+      ],
+   q(songoora) => [
+      q(6149),
+      q(0),
+      ],
+   q(sonha) => [
+      q(6152),
+      q(0),
+      ],
+   q(sonia) => [
+      q(6037),
+      q(0),
+      ],
+   q(soninke) => [
+      q(0397),
+      q(0),
+      ],
+   q(sonsorol) => [
+      q(6162),
+      q(0),
+      ],
+   q(soo) => [
+      q(6454),
+      q(0),
+      ],
+   q(sop) => [
+      q(6929),
+      q(0),
+      ],
+   q(soqotri) => [
+      q(6196),
+      q(0),
+      ],
+   q(sora) => [
+      q(6199),
+      q(0),
+      ],
+   q(sorbian languages) => [
+      q(0468),
+      q(0),
+      ],
+   q(sori-harengan) => [
+      q(5899),
+      q(0),
+      ],
+   q(sorkhei) => [
+      q(6192),
+      q(0),
+      ],
+   q(sorothaptic) => [
+      q(6318),
+      q(0),
+      ],
+   q(sorsogon ayta) => [
+      q(1008),
+      q(0),
+      ],
+   q(sos kundi) => [
+      q(5942),
+      q(0),
+      ],
+   q(sota kanum) => [
+      q(3588),
+      q(0),
+      ],
+   q(sotho, southern) => [
+      q(0401),
+      q(0),
+      ],
+   q(sou) => [
+      q(6193),
+      q(0),
+      ],
+   q(sou nama) => [
+      q(6569),
+      q(0),
+      ],
+   q(sou upaa) => [
+      q(7109),
+      q(0),
+      ],
+   q(south african sign language) => [
+      q(5980),
+      q(0),
+      ],
+   q(south american indian (other)) => [
+      q(0368),
+      q(0),
+      ],
+   q(south american indian languages) => [
+      q(0368),
+      q(1),
+      ],
+   q(south awyu) => [
+      q(0979),
+      q(0),
+      ],
+   q(south azerbaijani) => [
+      q(1014),
+      q(0),
+      ],
+   q(south bolivian quechua) => [
+      q(5676),
+      q(0),
+      ],
+   q(south caucasian languages) => [
+      q(0497),
+      q(0),
+      ],
+   q(south central banda) => [
+      q(3997),
+      q(0),
+      ],
+   q(south central dinka) => [
+      q(2030),
+      q(0),
+      ],
+   q(south efate) => [
+      q(2281),
+      q(0),
+      ],
+   q(south fali) => [
+      q(2328),
+      q(0),
+      ],
+   q(south giziga) => [
+      q(2528),
+      q(0),
+      ],
+   q(south lembata) => [
+      q(3972),
+      q(0),
+      ],
+   q(south levantine arabic) => [
+      q(0718),
+      q(0),
+      ],
+   q(south marquesan) => [
+      q(4485),
+      q(0),
+      ],
+   q(south muyu) => [
+      q(3632),
+      q(0),
+      ],
+   q(south ndebele) => [
+      q(0304),
+      q(1),
+      ],
+   q(south nuaulu) => [
+      q(5143),
+      q(0),
+      ],
+   q(south picene) => [
+      q(6185),
+      q(0),
+      ],
+   q(south slavey) => [
+      q(7481),
+      q(0),
+      ],
+   q(south slavic languages) => [
+      q(0536),
+      q(0),
+      ],
+   q(south tairora) => [
+      q(5260),
+      q(0),
+      ],
+   q(south ucayali asheninka) => [
+      q(1837),
+      q(0),
+      ],
+   q(south watut) => [
+      q(4169),
+      q(0),
+      ],
+   q(south west bay) => [
+      q(6139),
+      q(0),
+      ],
+   q(southeast ambrym) => [
+      q(6767),
+      q(0),
+      ],
+   q(southeast babar) => [
+      q(6971),
+      q(0),
+      ],
+   q(southeast ijo) => [
+      q(2935),
+      q(0),
+      ],
+   q(southeast pashai) => [
+      q(5607),
+      q(0),
+      ],
+   q(southeast pashayi) => [
+      q(5607),
+      q(1),
+      ],
+   q(southeastern dinka) => [
+      q(2070),
+      q(0),
+      ],
+   q(southeastern ixtlan zapotec) => [
+      q(7902),
+      q(0),
+      ],
+   q(southeastern kolami) => [
+      q(4892),
+      q(0),
+      ],
+   q(southeastern nochixtlan mixtec) => [
+      q(4664),
+      q(0),
+      ],
+   q(southeastern pomo) => [
+      q(5557),
+      q(0),
+      ],
+   q(southeastern puebla nahuatl) => [
+      q(5030),
+      q(0),
+      ],
+   q(southeastern tarahumara) => [
+      q(6412),
+      q(0),
+      ],
+   q(southeastern tepehuan) => [
+      q(6257),
+      q(0),
+      ],
+   q(southern alta) => [
+      q(0676),
+      q(0),
+      ],
+   q(southern altai) => [
+      q(0016),
+      q(0),
+      ],
+   q(southern amami-oshima) => [
+      q(0783),
+      q(0),
+      ],
+   q(southern aymara) => [
+      q(0995),
+      q(0),
+      ],
+   q(southern bai) => [
+      q(1155),
+      q(0),
+      ],
+   q(southern balochi) => [
+      q(1067),
+      q(0),
+      ],
+   q(southern betsimisaraka malagasy) => [
+      q(1614),
+      q(0),
+      ],
+   q(southern binukidnon) => [
+      q(4570),
+      q(0),
+      ],
+   q(southern birifor) => [
+      q(1226),
+      q(0),
+      ],
+   q(southern bobo madare) => [
+      q(1557),
+      q(0),
+      ],
+   q(southern bontok) => [
+      q(5185),
+      q(0),
+      ],
+   q(southern carrier) => [
+      q(1642),
+      q(0),
+      ],
+   q(southern catanduanes bikol) => [
+      q(1291),
+      q(0),
+      ],
+   q(southern conchucos ancash quechua) => [
+      q(5717),
+      q(0),
+      ],
+   q(southern dagaare) => [
+      q(1998),
+      q(0),
+      ],
+   q(southern dong) => [
+      q(3453),
+      q(0),
+      ],
+   q(southern east cree) => [
+      q(1846),
+      q(0),
+      ],
+   q(southern ghale) => [
+      q(2501),
+      q(0),
+      ],
+   q(southern grebo) => [
+      q(2617),
+      q(0),
+      ],
+   q(southern guiyang hmong) => [
+      q(2795),
+      q(0),
+      ],
+   q(southern guiyang miao) => [
+      q(2795),
+      q(1),
+      ],
+   q(southern haida) => [
+      q(2726),
+      q(0),
+      ],
+   q(southern hindko) => [
+      q(2798),
+      q(0),
+      ],
+   q(southern kalapuya) => [
+      q(6314),
+      q(0),
+      ],
+   q(southern kalinga) => [
+      q(3591),
+      q(0),
+      ],
+   q(southern katang) => [
+      q(5929),
+      q(0),
+      ],
+   q(southern kisi) => [
+      q(3607),
+      q(0),
+      ],
+   q(southern kiwai) => [
+      q(3378),
+      q(0),
+      ],
+   q(southern kurdish) => [
+      q(5940),
+      q(0),
+      ],
+   q(southern lolopo) => [
+      q(7738),
+      q(0),
+      ],
+   q(southern luri) => [
+      q(4085),
+      q(0),
+      ],
+   q(southern ma'di) => [
+      q(6133),
+      q(0),
+      ],
+   q(southern mashan hmong) => [
+      q(2774),
+      q(0),
+      ],
+   q(southern mashan miao) => [
+      q(2774),
+      q(1),
+      ],
+   q(southern mnong) => [
+      q(4419),
+      q(0),
+      ],
+   q(southern muji) => [
+      q(7674),
+      q(0),
+      ],
+   q(southern nago) => [
+      q(5037),
+      q(0),
+      ],
+   q(southern nambikuara) => [
+      q(4713),
+      q(0),
+      ],
+   q(southern ngbandi) => [
+      q(4752),
+      q(0),
+      ],
+   q(southern nicobarese) => [
+      q(4884),
+      q(0),
+      ],
+   q(southern nisu) => [
+      q(5063),
+      q(0),
+      ],
+   q(southern nuni) => [
+      q(5002),
+      q(0),
+      ],
+   q(southern ohlone) => [
+      q(1877),
+      q(0),
+      ],
+   q(southern one) => [
+      q(5310),
+      q(0),
+      ],
+   q(southern pame) => [
+      q(5525),
+      q(0),
+      ],
+   q(southern pashto) => [
+      q(5373),
+      q(0),
+      ],
+   q(southern pastaza quechua) => [
+      q(5682),
+      q(0),
+      ],
+   q(southern pomo) => [
+      q(5413),
+      q(0),
+      ],
+   q(southern puebla mixtec) => [
+      q(4307),
+      q(0),
+      ],
+   q(southern puget sound salish) => [
+      q(6090),
+      q(0),
+      ],
+   q(southern pumi) => [
+      q(5512),
+      q(0),
+      ],
+   q(southern qiandong miao) => [
+      q(2790),
+      q(0),
+      ],
+   q(southern qiang) => [
+      q(5721),
+      q(0),
+      ],
+   q(southern rengma naga) => [
+      q(5047),
+      q(0),
+      ],
+   q(southern rincon zapotec) => [
+      q(7936),
+      q(0),
+      ],
+   q(southern roglai) => [
+      q(5773),
+      q(0),
+      ],
+   q(southern sama) => [
+      q(6219),
+      q(0),
+      ],
+   q(southern sami) => [
+      q(0388),
+      q(0),
+      ],
+   q(southern samo) => [
+      q(5895),
+      q(0),
+      ],
+   q(southern sierra miwok) => [
+      q(6065),
+      q(0),
+      ],
+   q(southern sorsoganon) => [
+      q(6214),
+      q(0),
+      ],
+   q(southern sotho) => [
+      q(0401),
+      q(1),
+      ],
+   q(southern subanen) => [
+      q(3784),
+      q(0),
+      ],
+   q(southern thai) => [
+      q(6161),
+      q(0),
+      ],
+   q(southern tidung) => [
+      q(3009),
+      q(0),
+      ],
+   q(southern tiwa) => [
+      q(6522),
+      q(0),
+      ],
+   q(southern toussian) => [
+      q(7113),
+      q(0),
+      ],
+   q(southern tujia) => [
+      q(6532),
+      q(0),
+      ],
+   q(southern tutchone) => [
+      q(6398),
+      q(0),
+      ],
+   q(southern uzbek) => [
+      q(6954),
+      q(0),
+      ],
+   q(southern yamphu) => [
+      q(4043),
+      q(0),
+      ],
+   q(southern yukaghir) => [
+      q(7765),
+      q(0),
+      ],
+   q(southwest gbaya) => [
+      q(2635),
+      q(0),
+      ],
+   q(southwest palawano) => [
+      q(5501),
+      q(0),
+      ],
+   q(southwest pashai) => [
+      q(5606),
+      q(0),
+      ],
+   q(southwest pashayi) => [
+      q(5606),
+      q(1),
+      ],
+   q(southwest tanna) => [
+      q(5131),
+      q(0),
+      ],
+   q(southwestern bontok) => [
+      q(6972),
+      q(0),
+      ],
+   q(southwestern dinka) => [
+      q(2038),
+      q(0),
+      ],
+   q(southwestern fars) => [
+      q(2334),
+      q(0),
+      ],
+   q(southwestern guiyang hmong) => [
+      q(2780),
+      q(0),
+      ],
+   q(southwestern huishui hmong) => [
+      q(2781),
+      q(0),
+      ],
+   q(southwestern huishui miao) => [
+      q(2781),
+      q(1),
+      ],
+   q(southwestern nisu) => [
+      q(5079),
+      q(0),
+      ],
+   q(southwestern tarahumara) => [
+      q(6790),
+      q(0),
+      ],
+   q(southwestern tepehuan) => [
+      q(6553),
+      q(0),
+      ],
+   q(southwestern tlaxiaco mixtec) => [
+      q(4200),
+      q(0),
+      ],
+   q(sowa) => [
+      q(6307),
+      q(0),
+      ],
+   q(sowanda) => [
+      q(6163),
+      q(0),
+      ],
+   q(sowari) => [
+      q(2092),
+      q(1),
+      ],
+   q(soyaltepec mazatec) => [
+      q(7016),
+      q(0),
+      ],
+   q(soyaltepec mixtec) => [
+      q(7017),
+      q(0),
+      ],
+   q(spanish) => [
+      q(0402),
+      q(0),
+      ],
+   q(spanish sign language) => [
+      q(6233),
+      q(0),
+      ],
+   q(spiti bhoti) => [
+      q(6182),
+      q(0),
+      ],
+   q(spokane) => [
+      q(6177),
+      q(0),
+      ],
+   q(squamish) => [
+      q(6197),
+      q(0),
+      ],
+   q(sranan tongo) => [
+      q(0404),
+      q(0),
+      ],
+   q(sri lankan creole malay) => [
+      q(5923),
+      q(0),
+      ],
+   q(sri lankan sign language) => [
+      q(6195),
+      q(0),
+      ],
+   q(standard arabic) => [
+      q(0869),
+      q(0),
+      ],
+   q(standard estonian) => [
+      q(2232),
+      q(0),
+      ],
+   q(standard latvian) => [
+      q(4088),
+      q(0),
+      ],
+   q(standard malay) => [
+      q(7935),
+      q(0),
+      ],
+   q(standard moroccan tamazight) => [
+      q(0481),
+      q(0),
+      ],
+   q(stellingwerfs) => [
+      q(6253),
+      q(0),
+      ],
+   q(stod bhoti) => [
+      q(5912),
+      q(0),
+      ],
+   q(stodsde) => [
+      q(3095),
+      q(0),
+      ],
+   q(stoney) => [
+      q(6256),
+      q(0),
+      ],
+   q(straits salish) => [
+      q(6259),
+      q(0),
+      ],
+   q(suabo) => [
+      q(6343),
+      q(0),
+      ],
+   q(suarmin) => [
+      q(5966),
+      q(0),
+      ],
+   q(suau) => [
+      q(6300),
+      q(0),
+      ],
+   q(suba) => [
+      q(6310),
+      q(0),
+      ],
+   q(suba-simbiti) => [
+      q(6220),
+      q(0),
+      ],
+   q(subiya) => [
+      q(5910),
+      q(0),
+      ],
+   q(subtiaba) => [
+      q(6275),
+      q(0),
+      ],
+   q(sudanese arabic) => [
+      q(0837),
+      q(0),
+      ],
+   q(sudanese creole arabic) => [
+      q(5422),
+      q(0),
+      ],
+   q(sudest) => [
+      q(6474),
+      q(0),
+      ],
+   q(sudovian) => [
+      q(7490),
+      q(0),
+      ],
+   q(suena) => [
+      q(6269),
+      q(0),
+      ],
+   q(suga) => [
+      q(5988),
+      q(0),
+      ],
+   q(suganga) => [
+      q(6270),
+      q(0),
+      ],
+   q(sugut dusun) => [
+      q(3777),
+      q(0),
+      ],
+   q(sui) => [
+      q(6293),
+      q(0),
+      ],
+   q(suki) => [
+      q(6271),
+      q(0),
+      ],
+   q(suku) => [
+      q(6267),
+      q(0),
+      ],
+   q(sukuma) => [
+      q(0409),
+      q(0),
+      ],
+   q(sukur) => [
+      q(6326),
+      q(0),
+      ],
+   q(sukurum) => [
+      q(7937),
+      q(0),
+      ],
+   q(sula) => [
+      q(6342),
+      q(0),
+      ],
+   q(sulka) => [
+      q(6266),
+      q(0),
+      ],
+   q(sulod) => [
+      q(6203),
+      q(0),
+      ],
+   q(suma) => [
+      q(6190),
+      q(0),
+      ],
+   q(sumariup) => [
+      q(6041),
+      q(0),
+      ],
+   q(sumau) => [
+      q(6043),
+      q(0),
+      ],
+   q(sumbawa) => [
+      q(6121),
+      q(0),
+      ],
+   q(sumbwa) => [
+      q(6277),
+      q(0),
+      ],
+   q(sumerian) => [
+      q(0412),
+      q(0),
+      ],
+   q(sumi naga) => [
+      q(5071),
+      q(0),
+      ],
+   q(sumtu chin) => [
+      q(1879),
+      q(0),
+      ],
+   q(sunam) => [
+      q(6228),
+      q(0),
+      ],
+   q(sundanese) => [
+      q(0410),
+      q(0),
+      ],
+   q(sunum) => [
+      q(7683),
+      q(1),
+      ],
+   q(sunwar) => [
+      q(6279),
+      q(0),
+      ],
+   q(suomenruotsalainen viittomakieli) => [
+      q(2377),
+      q(2),
+      ],
+   q(suoy) => [
+      q(6330),
+      q(0),
+      ],
+   q(supyire senoufo) => [
+      q(6178),
+      q(0),
+      ],
+   q(sur) => [
+      q(6428),
+      q(0),
+      ],
+   q(surayt) => [
+      q(6691),
+      q(1),
+      ],
+   q(surbakhal) => [
+      q(5901),
+      q(0),
+      ],
+   q(surgujia) => [
+      q(5989),
+      q(0),
+      ],
+   q(suri) => [
+      q(6273),
+      q(0),
+      ],
+   q(surigaonon) => [
+      q(5984),
+      q(0),
+      ],
+   q(surjapuri) => [
+      q(6056),
+      q(0),
+      ],
+   q(sursurunga) => [
+      q(6000),
+      q(0),
+      ],
+   q(suruaha) => [
+      q(6308),
+      q(0),
+      ],
+   q(surubu) => [
+      q(5937),
+      q(0),
+      ],
+   q(surui) => [
+      q(6213),
+      q(0),
+      ],
+   q(surui do para) => [
+      q(4193),
+      q(0),
+      ],
+   q(susquehannock) => [
+      q(6191),
+      q(0),
+      ],
+   q(susu) => [
+      q(0411),
+      q(0),
+      ],
+   q(susuami) => [
+      q(6238),
+      q(0),
+      ],
+   q(suundi) => [
+      q(5941),
+      q(0),
+      ],
+   q(suwawa) => [
+      q(6305),
+      q(0),
+      ],
+   q(suya) => [
+      q(6278),
+      q(0),
+      ],
+   q(svan) => [
+      q(6280),
+      q(0),
+      ],
+   q(swabian) => [
+      q(6291),
+      q(0),
+      ],
+   q(swahili) => [
+      q(0413),
+      q(0),
+      ],
+   q(swahili (individual language)) => [
+      q(6292),
+      q(0),
+      ],
+   q(swahili (macrolanguage)) => [
+      q(0413),
+      q(1),
+      ],
+   q(swampy cree) => [
+      q(1880),
+      q(0),
+      ],
+   q(swati) => [
+      q(0408),
+      q(0),
+      ],
+   q(swedish) => [
+      q(0414),
+      q(0),
+      ],
+   q(swedish sign language) => [
+      q(6296),
+      q(0),
+      ],
+   q(swiss german) => [
+      q(0167),
+      q(0),
+      ],
+   q(swiss-french sign language) => [
+      q(6235),
+      q(0),
+      ],
+   q(swiss-german sign language) => [
+      q(5986),
+      q(0),
+      ],
+   q(swiss-italian sign language) => [
+      q(6088),
+      q(0),
+      ],
+   q(swo) => [
+      q(6164),
+      q(0),
+      ],
+   q(syenara senoufo) => [
+      q(6024),
+      q(0),
+      ],
+   q(sylheti) => [
+      q(6327),
+      q(0),
+      ],
+   q(syriac) => [
+      q(0416),
+      q(0),
+      ],
+   q(t'apo) => [
+      q(3885),
+      q(0),
+      ],
+   q(t'en) => [
+      q(6411),
+      q(0),
+      ],
+   q(ta'izzi-adeni arabic) => [
+      q(0595),
+      q(0),
+      ],
+   q(taabwa) => [
+      q(6359),
+      q(0),
+      ],
+   q(tabaa zapotec) => [
+      q(7807),
+      q(0),
+      ],
+   q(tabaru) => [
+      q(6392),
+      q(0),
+      ],
+   q(tabasco chontal) => [
+      q(1718),
+      q(0),
+      ],
+   q(tabasco nahuatl) => [
+      q(4855),
+      q(0),
+      ],
+   q(tabasco zoque) => [
+      q(7896),
+      q(0),
+      ],
+   q(tabassaran) => [
+      q(6348),
+      q(0),
+      ],
+   q(tabla) => [
+      q(6606),
+      q(0),
+      ],
+   q(tabo) => [
+      q(3497),
+      q(0),
+      ],
+   q(tabriak) => [
+      q(6835),
+      q(0),
+      ],
+   q(tacahua mixtec) => [
+      q(7509),
+      q(0),
+      ],
+   q(tacana) => [
+      q(6597),
+      q(0),
+      ],
+   q(tachawit) => [
+      q(6023),
+      q(0),
+      ],
+   q(tachelhit) => [
+      q(6008),
+      q(0),
+      ],
+   q(tachoni) => [
+      q(4067),
+      q(0),
+      ],
+   q(tadaksahak) => [
+      q(2149),
+      q(0),
+      ],
+   q(tado) => [
+      q(3448),
+      q(0),
+      ],
+   q(tadyawan) => [
+      q(6438),
+      q(0),
+      ],
+   q(tae') => [
+      q(5826),
+      q(0),
+      ],
+   q(tafi) => [
+      q(6397),
+      q(0),
+      ],
+   q(tagabawa) => [
+      q(1178),
+      q(0),
+      ],
+   q(tagakaulo) => [
+      q(3432),
+      q(0),
+      ],
+   q(tagal murut) => [
+      q(4613),
+      q(0),
+      ],
+   q(tagalaka) => [
+      q(6485),
+      q(0),
+      ],
+   q(tagalog) => [
+      q(0426),
+      q(0),
+      ],
+   q(tagargrent) => [
+      q(5329),
+      q(0),
+      ],
+   q(tagbanwa) => [
+      q(6390),
+      q(0),
+      ],
+   q(tagbu) => [
+      q(6381),
+      q(0),
+      ],
+   q(tagdal) => [
+      q(6417),
+      q(0),
+      ],
+   q(tagin) => [
+      q(6472),
+      q(0),
+      ],
+   q(tagish) => [
+      q(6483),
+      q(0),
+      ],
+   q(tagoi) => [
+      q(6353),
+      q(0),
+      ],
+   q(tagwana senoufo) => [
+      q(6482),
+      q(0),
+      ],
+   q(tahaggart tamahaq) => [
+      q(6501),
+      q(0),
+      ],
+   q(tahitian) => [
+      q(0417),
+      q(0),
+      ],
+   q(tahltan) => [
+      q(6499),
+      q(0),
+      ],
+   q(tai) => [
+      q(6365),
+      q(0),
+      ],
+   q(tai daeng) => [
+      q(6822),
+      q(0),
+      ],
+   q(tai dam) => [
+      q(1297),
+      q(0),
+      ],
+   q(tai do) => [
+      q(6818),
+      q(0),
+      ],
+   q(tai don) => [
+      q(6783),
+      q(0),
+      ],
+   q(tai hongjin) => [
+      q(6524),
+      q(0),
+      ],
+   q(tai laing) => [
+      q(6528),
+      q(0),
+      ],
+   q(tai languages) => [
+      q(0418),
+      q(0),
+      ],
+   q(tai loi) => [
+      q(6566),
+      q(0),
+      ],
+   q(tai long) => [
+      q(6490),
+      q(0),
+      ],
+   q(tai nua) => [
+      q(6420),
+      q(0),
+      ],
+   q(tai pao) => [
+      q(6650),
+      q(0),
+      ],
+   q(tai thanh) => [
+      q(6585),
+      q(0),
+      ],
+   q(tai ya) => [
+      q(1912),
+      q(0),
+      ],
+   q(tai yo) => [
+      q(6818),
+      q(1),
+      ],
+   q(taiap) => [
+      q(2606),
+      q(0),
+      ],
+   q(taikat) => [
+      q(0830),
+      q(0),
+      ],
+   q(tainae) => [
+      q(0667),
+      q(0),
+      ],
+   q(taino) => [
+      q(6610),
+      q(0),
+      ],
+   q(tairaha) => [
+      q(1566),
+      q(0),
+      ],
+   q(tairuma) => [
+      q(6838),
+      q(0),
+      ],
+   q(taita) => [
+      q(1946),
+      q(0),
+      ],
+   q(taiwan sign language) => [
+      q(6711),
+      q(0),
+      ],
+   q(taje) => [
+      q(5403),
+      q(0),
+      ],
+   q(tajik) => [
+      q(0425),
+      q(0),
+      ],
+   q(tajiki arabic) => [
+      q(0567),
+      q(0),
+      ],
+   q(tajio) => [
+      q(6426),
+      q(0),
+      ],
+   q(tajuasohn) => [
+      q(6525),
+      q(0),
+      ],
+   q(takelma) => [
+      q(6541),
+      q(0),
+      ],
+   q(takestani) => [
+      q(6546),
+      q(0),
+      ],
+   q(takia) => [
+      q(6371),
+      q(0),
+      ],
+   q(takua) => [
+      q(6552),
+      q(0),
+      ],
+   q(takuu) => [
+      q(4865),
+      q(0),
+      ],
+   q(takwane) => [
+      q(6538),
+      q(0),
+      ],
+   q(tal) => [
+      q(6356),
+      q(0),
+      ],
+   q(tala) => [
+      q(6355),
+      q(0),
+      ],
+   q(talaandig) => [
+      q(1257),
+      q(1),
+      ],
+   q(talaud) => [
+      q(6556),
+      q(0),
+      ],
+   q(taliabu) => [
+      q(6571),
+      q(0),
+      ],
+   q(talieng) => [
+      q(6422),
+      q(0),
+      ],
+   q(talinga-bwisi) => [
+      q(6559),
+      q(0),
+      ],
+   q(talise) => [
+      q(6567),
+      q(0),
+      ],
+   q(talodi) => [
+      q(6564),
+      q(0),
+      ],
+   q(taloki) => [
+      q(6560),
+      q(0),
+      ],
+   q(talondo') => [
+      q(6563),
+      q(0),
+      ],
+   q(talossan) => [
+      q(6831),
+      q(0),
+      ],
+   q(talu) => [
+      q(7742),
+      q(0),
+      ],
+   q(talysh) => [
+      q(6573),
+      q(0),
+      ],
+   q(tama (chad)) => [
+      q(6574),
+      q(0),
+      ],
+   q(tama (colombia)) => [
+      q(6449),
+      q(0),
+      ],
+   q(tamagario) => [
+      q(6400),
+      q(0),
+      ],
+   q(taman (indonesia)) => [
+      q(6586),
+      q(0),
+      ],
+   q(taman (myanmar)) => [
+      q(6404),
+      q(0),
+      ],
+   q(tamanaku) => [
+      q(6596),
+      q(0),
+      ],
+   q(tamashek) => [
+      q(0435),
+      q(0),
+      ],
+   q(tamasheq) => [
+      q(6360),
+      q(0),
+      ],
+   q(tamazola mixtec) => [
+      q(7023),
+      q(0),
+      ],
+   q(tambas) => [
+      q(6427),
+      q(0),
+      ],
+   q(tambora) => [
+      q(7549),
+      q(0),
+      ],
+   q(tambotalo) => [
+      q(6568),
+      q(0),
+      ],
+   q(tami) => [
+      q(6595),
+      q(0),
+      ],
+   q(tamil) => [
+      q(0419),
+      q(0),
+      ],
+   q(tamki) => [
+      q(6366),
+      q(0),
+      ],
+   q(tamnim citak) => [
+      q(6584),
+      q(0),
+      ],
+   q(tampias lobu) => [
+      q(4025),
+      q(0),
+      ],
+   q(tampuan) => [
+      q(6655),
+      q(0),
+      ],
+   q(tampulma) => [
+      q(6648),
+      q(0),
+      ],
+   q(tanacross) => [
+      q(6395),
+      q(0),
+      ],
+   q(tanahmerah) => [
+      q(6405),
+      q(0),
+      ],
+   q(tanaina) => [
+      q(6460),
+      q(0),
+      ],
+   q(tanapag) => [
+      q(6656),
+      q(0),
+      ],
+   q(tandaganon) => [
+      q(6473),
+      q(0),
+      ],
+   q(tandia) => [
+      q(6603),
+      q(0),
+      ],
+   q(tandroy-mahafaly malagasy) => [
+      q(6437),
+      q(0),
+      ],
+   q(tanema) => [
+      q(6617),
+      q(0),
+      ],
+   q(tangale) => [
+      q(6357),
+      q(0),
+      ],
+   q(tangchangya) => [
+      q(6615),
+      q(0),
+      ],
+   q(tanggu) => [
+      q(6480),
+      q(0),
+      ],
+   q(tangkhul naga (india)) => [
+      q(4960),
+      q(0),
+      ],
+   q(tangkhul naga (myanmar)) => [
+      q(5096),
+      q(0),
+      ],
+   q(tangko) => [
+      q(6551),
+      q(0),
+      ],
+   q(tanglang) => [
+      q(7743),
+      q(0),
+      ],
+   q(tangoa) => [
+      q(6475),
+      q(0),
+      ],
+   q(tanguat) => [
+      q(6386),
+      q(0),
+      ],
+   q(tangut) => [
+      q(6800),
+      q(0),
+      ],
+   q(tanimbili) => [
+      q(6373),
+      q(0),
+      ],
+   q(tanimuca-retuara) => [
+      q(6599),
+      q(0),
+      ],
+   q(tanjijili) => [
+      q(6863),
+      q(0),
+      ],
+   q(tankarana malagasy) => [
+      q(7412),
+      q(1),
+      ],
+   q(tanosy malagasy) => [
+      q(6813),
+      q(0),
+      ],
+   q(tanudan kalinga) => [
+      q(3462),
+      q(0),
+      ],
+   q(tanzanian sign language) => [
+      q(6828),
+      q(0),
+      ],
+   q(tapeba) => [
+      q(6370),
+      q(0),
+      ],
+   q(tapei) => [
+      q(0648),
+      q(0),
+      ],
+   q(tapiete) => [
+      q(6645),
+      q(0),
+      ],
+   q(tapirape) => [
+      q(6352),
+      q(0),
+      ],
+   q(tarao naga) => [
+      q(6685),
+      q(0),
+      ],
+   q(tareng) => [
+      q(6477),
+      q(0),
+      ],
+   q(tariana) => [
+      q(6351),
+      q(0),
+      ],
+   q(tarifit) => [
+      q(5778),
+      q(0),
+      ],
+   q(tarjumo) => [
+      q(6803),
+      q(0),
+      ],
+   q(tarok) => [
+      q(7612),
+      q(0),
+      ],
+   q(taroko) => [
+      q(6692),
+      q(0),
+      ],
+   q(tarpia) => [
+      q(6643),
+      q(0),
+      ],
+   q(tartessian) => [
+      q(6808),
+      q(0),
+      ],
+   q(taruma) => [
+      q(6429),
+      q(0),
+      ],
+   q(tasawaq) => [
+      q(6789),
+      q(0),
+      ],
+   q(tase naga) => [
+      q(5077),
+      q(0),
+      ],
+   q(tasmanian) => [
+      q(7514),
+      q(0),
+      ],
+   q(tasmate) => [
+      q(6591),
+      q(0),
+      ],
+   q(tataltepec chatino) => [
+      q(1883),
+      q(0),
+      ],
+   q(tatana) => [
+      q(6812),
+      q(0),
+      ],
+   q(tatar) => [
+      q(0420),
+      q(0),
+      ],
+   q(tatuyo) => [
+      q(6364),
+      q(0),
+      ],
+   q(tauade) => [
+      q(6722),
+      q(0),
+      ],
+   q(taulil) => [
+      q(6751),
+      q(0),
+      ],
+   q(taungyo) => [
+      q(6407),
+      q(0),
+      ],
+   q(taupota) => [
+      q(6640),
+      q(0),
+      ],
+   q(tause) => [
+      q(6350),
+      q(0),
+      ],
+   q(taushiro) => [
+      q(6688),
+      q(0),
+      ],
+   q(tausug) => [
+      q(6702),
+      q(0),
+      ],
+   q(tauya) => [
+      q(6814),
+      q(0),
+      ],
+   q(taveta) => [
+      q(6771),
+      q(0),
+      ],
+   q(tavoyan) => [
+      q(6769),
+      q(0),
+      ],
+   q(tavringer romani) => [
+      q(5813),
+      q(0),
+      ],
+   q(tawala) => [
+      q(6383),
+      q(0),
+      ],
+   q(tawallammat tamajaq) => [
+      q(6735),
+      q(0),
+      ],
+   q(tawande) => [
+      q(7512),
+      q(0),
+      ],
+   q(tawang monpa) => [
+      q(6785),
+      q(0),
+      ],
+   q(tawara) => [
+      q(6784),
+      q(0),
+      ],
+   q(taworta) => [
+      q(6384),
+      q(0),
+      ],
+   q(tawoyan) => [
+      q(6795),
+      q(0),
+      ],
+   q(tawr chin) => [
+      q(6408),
+      q(0),
+      ],
+   q(tay) => [
+      q(6827),
+      q(0),
+      ],
+   q(tay boi) => [
+      q(6362),
+      q(0),
+      ],
+   q(tay khang) => [
+      q(6614),
+      q(0),
+      ],
+   q(tay sa pa) => [
+      q(6823),
+      q(0),
+      ],
+   q(tay tac) => [
+      q(6824),
+      q(0),
+      ],
+   q(tayabas ayta) => [
+      q(1011),
+      q(0),
+      ],
+   q(tayart tamajeq) => [
+      q(6504),
+      q(0),
+      ],
+   q(tayo) => [
+      q(1759),
+      q(0),
+      ],
+   q(taznatit) => [
+      q(2621),
+      q(0),
+      ],
+   q(tboli) => [
+      q(6380),
+      q(0),
+      ],
+   q(tchitchege) => [
+      q(6403),
+      q(0),
+      ],
+   q(tchumbuli) => [
+      q(1398),
+      q(0),
+      ],
+   q(te'un) => [
+      q(6766),
+      q(0),
+      ],
+   q(teanu) => [
+      q(6550),
+      q(0),
+      ],
+   q(tebi) => [
+      q(2088),
+      q(1),
+      ],
+   q(tebul sign language) => [
+      q(6717),
+      q(0),
+      ],
+   q(tebul ure dogon) => [
+      q(2163),
+      q(0),
+      ],
+   q(tecpatlan totonac) => [
+      q(6413),
+      q(0),
+      ],
+   q(tedaga) => [
+      q(6757),
+      q(0),
+      ],
+   q(tedim chin) => [
+      q(1885),
+      q(0),
+      ],
+   q(tee) => [
+      q(6544),
+      q(0),
+      ],
+   q(teen) => [
+      q(4020),
+      q(0),
+      ],
+   q(tefaro) => [
+      q(6461),
+      q(0),
+      ],
+   q(tegali) => [
+      q(5741),
+      q(0),
+      ],
+   q(tehit) => [
+      q(3536),
+      q(0),
+      ],
+   q(tehuelche) => [
+      q(6446),
+      q(0),
+      ],
+   q(tejalapan zapotec) => [
+      q(7946),
+      q(0),
+      ],
+   q(teke-ebo) => [
+      q(2211),
+      q(0),
+      ],
+   q(teke-fuumu) => [
+      q(2914),
+      q(0),
+      ],
+   q(teke-kukuya) => [
+      q(3422),
+      q(0),
+      ],
+   q(teke-laali) => [
+      q(3955),
+      q(0),
+      ],
+   q(teke-nzikou) => [
+      q(5177),
+      q(0),
+      ],
+   q(teke-tege) => [
+      q(6445),
+      q(0),
+      ],
+   q(teke-tsaayi) => [
+      q(6817),
+      q(0),
+      ],
+   q(teke-tyee) => [
+      q(6826),
+      q(0),
+      ],
+   q(tektiteko) => [
+      q(6721),
+      q(0),
+      ],
+   q(tela-masbuar) => [
+      q(6768),
+      q(0),
+      ],
+   q(telefol) => [
+      q(6557),
+      q(0),
+      ],
+   q(telugu) => [
+      q(0421),
+      q(0),
+      ],
+   q(teluti) => [
+      q(6569),
+      q(1),
+      ],
+   q(tem) => [
+      q(3240),
+      q(0),
+      ],
+   q(temacine tamazight) => [
+      q(6531),
+      q(0),
+      ],
+   q(temascaltepec nahuatl) => [
+      q(4871),
+      q(0),
+      ],
+   q(tembe) => [
+      q(6661),
+      q(0),
+      ],
+   q(tembo (kitembo)) => [
+      q(6387),
+      q(0),
+      ],
+   q(tembo (motembo)) => [
+      q(6593),
+      q(0),
+      ],
+   q(teme) => [
+      q(6431),
+      q(0),
+      ],
+   q(temein) => [
+      q(6452),
+      q(0),
+      ],
+   q(temi) => [
+      q(6166),
+      q(0),
+      ],
+   q(temiar) => [
+      q(6439),
+      q(0),
+      ],
+   q(temoaya otomi) => [
+      q(5323),
+      q(0),
+      ],
+   q(temoq) => [
+      q(6587),
+      q(0),
+      ],
+   q(temuan) => [
+      q(6594),
+      q(0),
+      ],
+   q(ten'edn) => [
+      q(6619),
+      q(0),
+      ],
+   q(tena) => [
+      q(1141),
+      q(1),
+      ],
+   q(tena lowland quichua) => [
+      q(5687),
+      q(0),
+      ],
+   q(tenango otomi) => [
+      q(5319),
+      q(0),
+      ],
+   q(tene kan dogon) => [
+      q(2155),
+      q(0),
+      ],
+   q(tenggarong kutai malay) => [
+      q(6999),
+      q(0),
+      ],
+   q(tengger) => [
+      q(6453),
+      q(0),
+      ],
+   q(tenharim) => [
+      q(5347),
+      q(0),
+      ],
+   q(tenino) => [
+      q(6664),
+      q(0),
+      ],
+   q(tenis) => [
+      q(6612),
+      q(0),
+      ],
+   q(tennet) => [
+      q(6457),
+      q(0),
+      ],
+   q(teop) => [
+      q(6515),
+      q(0),
+      ],
+   q(teor) => [
+      q(6455),
+      q(0),
+      ],
+   q(tepecano) => [
+      q(6451),
+      q(0),
+      ],
+   q(tepetotutla chinantec) => [
+      q(1802),
+      q(0),
+      ],
+   q(tepeuxila cuicatec) => [
+      q(1915),
+      q(0),
+      ],
+   q(tepinapa chinantec) => [
+      q(1886),
+      q(0),
+      ],
+   q(tepo krumen) => [
+      q(6442),
+      q(0),
+      ],
+   q(ter sami) => [
+      q(6059),
+      q(0),
+      ],
+   q(tera) => [
+      q(6736),
+      q(0),
+      ],
+   q(terebu) => [
+      q(6673),
+      q(0),
+      ],
+   q(terei) => [
+      q(1505),
+      q(0),
+      ],
+   q(tereno) => [
+      q(0423),
+      q(0),
+      ],
+   q(teressa) => [
+      q(6444),
+      q(0),
+      ],
+   q(tereweng) => [
+      q(6782),
+      q(0),
+      ],
+   q(teribe) => [
+      q(6462),
+      q(0),
+      ],
+   q(terik) => [
+      q(6441),
+      q(0),
+      ],
+   q(termanu) => [
+      q(6792),
+      q(0),
+      ],
+   q(ternate) => [
+      q(6463),
+      q(0),
+      ],
+   q(ternateno) => [
+      q(6580),
+      q(0),
+      ],
+   q(tesaka malagasy) => [
+      q(6540),
+      q(0),
+      ],
+   q(tese) => [
+      q(3262),
+      q(0),
+      ],
+   q(teshenawa) => [
+      q(6778),
+      q(0),
+      ],
+   q(teso) => [
+      q(6450),
+      q(0),
+      ],
+   q(tetela) => [
+      q(6561),
+      q(0),
+      ],
+   q(tetelcingo nahuatl) => [
+      q(4859),
+      q(0),
+      ],
+   q(tetete) => [
+      q(6440),
+      q(0),
+      ],
+   q(tetum) => [
+      q(0424),
+      q(0),
+      ],
+   q(tetun dili) => [
+      q(6435),
+      q(0),
+      ],
+   q(teutila cuicatec) => [
+      q(1911),
+      q(0),
+      ],
+   q(tewa (indonesia)) => [
+      q(6780),
+      q(0),
+      ],
+   q(tewa (usa)) => [
+      q(6456),
+      q(0),
+      ],
+   q(tewe) => [
+      q(6794),
+      q(0),
+      ],
+   q(texcatepec otomi) => [
+      q(5326),
+      q(0),
+      ],
+   q(texistepec popoluca) => [
+      q(5560),
+      q(0),
+      ],
+   q(texmelucan zapotec) => [
+      q(7924),
+      q(0),
+      ],
+   q(tezoatlan mixtec) => [
+      q(4641),
+      q(0),
+      ],
+   q(tha) => [
+      q(6503),
+      q(0),
+      ],
+   q(thachanadan) => [
+      q(6494),
+      q(0),
+      ],
+   q(thado chin) => [
+      q(6416),
+      q(0),
+      ],
+   q(thai) => [
+      q(0427),
+      q(0),
+      ],
+   q(thai sign language) => [
+      q(6709),
+      q(0),
+      ],
+   q(thai song) => [
+      q(6146),
+      q(0),
+      ],
+   q(thaiphum chin) => [
+      q(1888),
+      q(0),
+      ],
+   q(thakali) => [
+      q(6498),
+      q(0),
+      ],
+   q(thangal naga) => [
+      q(4923),
+      q(0),
+      ],
+   q(thangmi) => [
+      q(6488),
+      q(0),
+      ],
+   q(thao) => [
+      q(6223),
+      q(0),
+      ],
+   q(tharaka) => [
+      q(6491),
+      q(0),
+      ],
+   q(thawa) => [
+      q(7511),
+      q(0),
+      ],
+   q(thayore) => [
+      q(6486),
+      q(0),
+      ],
+   q(thaypan) => [
+      q(6821),
+      q(0),
+      ],
+   q(thiin) => [
+      q(2930),
+      q(0),
+      ],
+   q(tho) => [
+      q(6634),
+      q(0),
+      ],
+   q(thompson) => [
+      q(6495),
+      q(0),
+      ],
+   q(thopho) => [
+      q(7744),
+      q(0),
+      ],
+   q(thracian) => [
+      q(6801),
+      q(0),
+      ],
+   q(thu lao) => [
+      q(6819),
+      q(0),
+      ],
+   q(thudam) => [
+      q(6502),
+      q(0),
+      ],
+   q(thulung) => [
+      q(6424),
+      q(0),
+      ],
+   q(thur) => [
+      q(4063),
+      q(0),
+      ],
+   q(thurawal) => [
+      q(6376),
+      q(0),
+      ],
+   q(thuri) => [
+      q(6500),
+      q(0),
+      ],
+   q(tiagbamrin aizi) => [
+      q(0682),
+      q(0),
+      ],
+   q(tiale) => [
+      q(4417),
+      q(0),
+      ],
+   q(tiang) => [
+      q(6378),
+      q(0),
+      ],
+   q(tibea) => [
+      q(4851),
+      q(0),
+      ],
+   q(tibetan) => [
+      q(0428),
+      q(0),
+      ],
+   q(tibeto-burman languages) => [
+      q(0528),
+      q(0),
+      ],
+   q(tichurong) => [
+      q(6406),
+      q(0),
+      ],
+   q(ticuna) => [
+      q(6394),
+      q(0),
+      ],
+   q(tidaa mixtec) => [
+      q(4571),
+      q(0),
+      ],
+   q(tidikelt tamazight) => [
+      q(6505),
+      q(0),
+      ],
+   q(tidore) => [
+      q(6770),
+      q(0),
+      ],
+   q(tiefo) => [
+      q(6517),
+      q(0),
+      ],
+   q(tiemacewe bozo) => [
+      q(1364),
+      q(0),
+      ],
+   q(tiene) => [
+      q(6509),
+      q(0),
+      ],
+   q(tieyaxo bozo) => [
+      q(1374),
+      q(0),
+      ],
+   q(tifal) => [
+      q(6507),
+      q(0),
+      ],
+   q(tigak) => [
+      q(6466),
+      q(0),
+      ],
+   q(tigon mbembe) => [
+      q(5172),
+      q(0),
+      ],
+   q(tigre) => [
+      q(0429),
+      q(0),
+      ],
+   q(tigrinya) => [
+      q(0430),
+      q(0),
+      ],
+   q(tii) => [
+      q(6807),
+      q(0),
+      ],
+   q(tijaltepec mixtec) => [
+      q(7501),
+      q(0),
+      ],
+   q(tikar) => [
+      q(6511),
+      q(0),
+      ],
+   q(tikopia) => [
+      q(6543),
+      q(0),
+      ],
+   q(tilapa otomi) => [
+      q(5317),
+      q(0),
+      ],
+   q(tillamook) => [
+      q(6512),
+      q(0),
+      ],
+   q(tilquiapan zapotec) => [
+      q(7945),
+      q(0),
+      ],
+   q(tilung) => [
+      q(6510),
+      q(0),
+      ],
+   q(tima) => [
+      q(6590),
+      q(0),
+      ],
+   q(timbe) => [
+      q(6513),
+      q(0),
+      ],
+   q(timbisha) => [
+      q(5352),
+      q(1),
+      ],
+   q(timne) => [
+      q(0422),
+      q(0),
+      ],
+   q(timor pidgin) => [
+      q(6775),
+      q(0),
+      ],
+   q(timucua) => [
+      q(6529),
+      q(0),
+      ],
+   q(timugon murut) => [
+      q(6508),
+      q(0),
+      ],
+   q(tinani) => [
+      q(3808),
+      q(0),
+      ],
+   q(tindi) => [
+      q(6514),
+      q(0),
+      ],
+   q(tingui-boto) => [
+      q(6481),
+      q(0),
+      ],
+   q(tinigua) => [
+      q(6519),
+      q(0),
+      ],
+   q(tinputz) => [
+      q(6660),
+      q(0),
+      ],
+   q(tippera) => [
+      q(6642),
+      q(0),
+      ],
+   q(tira) => [
+      q(6506),
+      q(0),
+      ],
+   q(tirahi) => [
+      q(6672),
+      q(0),
+      ],
+   q(tiranige diga dogon) => [
+      q(6421),
+      q(0),
+      ],
+   q(tiri) => [
+      q(1737),
+      q(0),
+      ],
+   q(tiruray) => [
+      q(6523),
+      q(0),
+      ],
+   q(tita) => [
+      q(6432),
+      q(0),
+      ],
+   q(titan) => [
+      q(6740),
+      q(0),
+      ],
+   q(tiv) => [
+      q(0431),
+      q(0),
+      ],
+   q(tiwa) => [
+      q(3801),
+      q(0),
+      ],
+   q(tiwi) => [
+      q(6521),
+      q(0),
+      ],
+   q(tjurruru) => [
+      q(6533),
+      q(0),
+      ],
+   q(tlachichilco tepehua) => [
+      q(6654),
+      q(0),
+      ],
+   q(tlacoapa me'phaa) => [
+      q(6647),
+      q(0),
+      ],
+   q(tlacoapa tlapanec) => [
+      q(6647),
+      q(1),
+      ],
+   q(tlacoatzintepec chinantec) => [
+      q(1889),
+      q(0),
+      ],
+   q(tlacolulita zapotec) => [
+      q(7909),
+      q(0),
+      ],
+   q(tlahuitoltepec mixe) => [
+      q(4655),
+      q(0),
+      ],
+   q(tlamacazapa nahuatl) => [
+      q(5123),
+      q(0),
+      ],
+   q(tlazoyaltepec mixtec) => [
+      q(4480),
+      q(0),
+      ],
+   q(tlhingan-hol) => [
+      q(0433),
+      q(1),
+      ],
+   q(tlingit) => [
+      q(0434),
+      q(0),
+      ],
+   q(to) => [
+      q(6639),
+      q(0),
+      ],
+   q(to'abaita) => [
+      q(4378),
+      q(0),
+      ],
+   q(toaripi) => [
+      q(6665),
+      q(0),
+      ],
+   q(toba) => [
+      q(6620),
+      q(0),
+      ],
+   q(toba-maskoy) => [
+      q(6579),
+      q(0),
+      ],
+   q(tobagonian creole english) => [
+      q(6470),
+      q(0),
+      ],
+   q(tobanga) => [
+      q(6601),
+      q(0),
+      ],
+   q(tobati) => [
+      q(6727),
+      q(0),
+      ],
+   q(tobelo) => [
+      q(6554),
+      q(0),
+      ],
+   q(tobian) => [
+      q(6637),
+      q(0),
+      ],
+   q(tobilung) => [
+      q(6465),
+      q(0),
+      ],
+   q(tobo) => [
+      q(6389),
+      q(0),
+      ],
+   q(tocantins asurini) => [
+      q(0904),
+      q(0),
+      ],
+   q(tocho) => [
+      q(6368),
+      q(0),
+      ],
+   q(toda) => [
+      q(6414),
+      q(0),
+      ],
+   q(todrah) => [
+      q(6433),
+      q(0),
+      ],
+   q(tofanma) => [
+      q(6558),
+      q(0),
+      ],
+   q(tofin gbe) => [
+      q(6459),
+      q(0),
+      ],
+   q(togbo-vara banda) => [
+      q(6632),
+      q(0),
+      ],
+   q(togoyo) => [
+      q(6484),
+      q(0),
+      ],
+   q(tohono o'odham) => [
+      q(5278),
+      q(0),
+      ],
+   q(tojolabal) => [
+      q(6626),
+      q(0),
+      ],
+   q(tok pisin) => [
+      q(0438),
+      q(0),
+      ],
+   q(tokano) => [
+      q(7951),
+      q(0),
+      ],
+   q(tokelau) => [
+      q(0432),
+      q(0),
+      ],
+   q(tokharian a) => [
+      q(7504),
+      q(0),
+      ],
+   q(tokharian b) => [
+      q(6797),
+      q(0),
+      ],
+   q(toku-no-shima) => [
+      q(6542),
+      q(0),
+      ],
+   q(tol) => [
+      q(3091),
+      q(0),
+      ],
+   q(tolaki) => [
+      q(3823),
+      q(0),
+      ],
+   q(tolomako) => [
+      q(6562),
+      q(0),
+      ],
+   q(tolowa) => [
+      q(6627),
+      q(0),
+      ],
+   q(toma) => [
+      q(6622),
+      q(0),
+      ],
+   q(tomadino) => [
+      q(6425),
+      q(0),
+      ],
+   q(tombelala) => [
+      q(6734),
+      q(0),
+      ],
+   q(tombonuo) => [
+      q(6796),
+      q(0),
+      ],
+   q(tombulu) => [
+      q(6628),
+      q(0),
+      ],
+   q(tomini) => [
+      q(6804),
+      q(0),
+      ],
+   q(tommo so dogon) => [
+      q(2158),
+      q(0),
+      ],
+   q(tomo kan dogon) => [
+      q(2156),
+      q(0),
+      ],
+   q(tomoip) => [
+      q(6666),
+      q(0),
+      ],
+   q(tondano) => [
+      q(6430),
+      q(0),
+      ],
+   q(tondi songway kiini) => [
+      q(6712),
+      q(0),
+      ],
+   q(tonga) => [
+      q(0437),
+      q(1),
+      ],
+   q(tonga (nyasa)) => [
+      q(0436),
+      q(0),
+      ],
+   q(tonga (tonga islands)) => [
+      q(0437),
+      q(0),
+      ],
+   q(tonga (zambia)) => [
+      q(6625),
+      q(0),
+      ],
+   q(tongwe) => [
+      q(6618),
+      q(0),
+      ],
+   q(tonjon) => [
+      q(6530),
+      q(0),
+      ],
+   q(tonkawa) => [
+      q(6671),
+      q(0),
+      ],
+   q(tonsawang) => [
+      q(6616),
+      q(0),
+      ],
+   q(tonsea) => [
+      q(6809),
+      q(0),
+      ],
+   q(tontemboan) => [
+      q(6613),
+      q(0),
+      ],
+   q(tooro) => [
+      q(6728),
+      q(0),
+      ],
+   q(topoiyo) => [
+      q(6638),
+      q(0),
+      ],
+   q(toposa) => [
+      q(6631),
+      q(0),
+      ],
+   q(tora) => [
+      q(6696),
+      q(0),
+      ],
+   q(toraja-sa'dan) => [
+      q(5934),
+      q(0),
+      ],
+   q(toram) => [
+      q(6681),
+      q(0),
+      ],
+   q(torau) => [
+      q(6739),
+      q(0),
+      ],
+   q(tornedalen finnish) => [
+      q(2346),
+      q(0),
+      ],
+   q(toro) => [
+      q(6436),
+      q(0),
+      ],
+   q(toro so dogon) => [
+      q(2161),
+      q(0),
+      ],
+   q(toro tegu dogon) => [
+      q(2162),
+      q(0),
+      ],
+   q(toromono) => [
+      q(6608),
+      q(0),
+      ],
+   q(torona) => [
+      q(6668),
+      q(0),
+      ],
+   q(torres strait creole) => [
+      q(6410),
+      q(0),
+      ],
+   q(torricelli) => [
+      q(6447),
+      q(0),
+      ],
+   q(torwali) => [
+      q(6693),
+      q(0),
+      ],
+   q(tosk albanian) => [
+      q(0761),
+      q(0),
+      ],
+   q(totela) => [
+      q(6730),
+      q(0),
+      ],
+   q(toto) => [
+      q(6806),
+      q(0),
+      ],
+   q(totoli) => [
+      q(6799),
+      q(0),
+      ],
+   q(totomachapan zapotec) => [
+      q(7906),
+      q(0),
+      ],
+   q(totontepec mixe) => [
+      q(4562),
+      q(0),
+      ],
+   q(totoro) => [
+      q(6729),
+      q(0),
+      ],
+   q(touo) => [
+      q(6670),
+      q(0),
+      ],
+   q(toura (cote d'ivoire)) => [
+      q(4801),
+      q(0),
+      ],
+   q(toura (papua new guinea)) => [
+      q(2115),
+      q(0),
+      ],
+   q(towei) => [
+      q(6732),
+      q(0),
+      ],
+   q(trans-new guinea languages) => [
+      q(0517),
+      q(0),
+      ],
+   q(transalpine gaulish) => [
+      q(7497),
+      q(0),
+      ],
+   q(traveller danish) => [
+      q(5798),
+      q(0),
+      ],
+   q(traveller norwegian) => [
+      q(5801),
+      q(0),
+      ],
+   q(traveller scottish) => [
+      q(6682),
+      q(0),
+      ],
+   q(tregami) => [
+      q(6683),
+      q(0),
+      ],
+   q(tremembe) => [
+      q(6578),
+      q(0),
+      ],
+   q(trieng) => [
+      q(6248),
+      q(0),
+      ],
+   q(trimuris) => [
+      q(6516),
+      q(0),
+      ],
+   q(tring) => [
+      q(6476),
+      q(0),
+      ],
+   q(tringgus-sembaan bidayuh) => [
+      q(6694),
+      q(0),
+      ],
+   q(trinidad and tobago sign language) => [
+      q(4059),
+      q(0),
+      ],
+   q(trinidadian creole english) => [
+      q(6677),
+      q(0),
+      ],
+   q(trinitario) => [
+      q(6684),
+      q(0),
+      ],
+   q(trio) => [
+      q(6680),
+      q(0),
+      ],
+   q(truka) => [
+      q(6535),
+      q(0),
+      ],
+   q(trumai) => [
+      q(6659),
+      q(0),
+      ],
+   q(ts'un-lao) => [
+      q(6706),
+      q(0),
+      ],
+   q(tsaangi) => [
+      q(6697),
+      q(0),
+      ],
+   q(tsakhur) => [
+      q(6545),
+      q(0),
+      ],
+   q(tsakonian) => [
+      q(6700),
+      q(0),
+      ],
+   q(tsakwambo) => [
+      q(3685),
+      q(0),
+      ],
+   q(tsamai) => [
+      q(6698),
+      q(0),
+      ],
+   q(tsat) => [
+      q(2862),
+      q(0),
+      ],
+   q(tsaukambo) => [
+      q(3685),
+      q(1),
+      ],
+   q(tseku) => [
+      q(6705),
+      q(0),
+      ],
+   q(tsetsaut) => [
+      q(6798),
+      q(0),
+      ],
+   q(tshangla) => [
+      q(6704),
+      q(0),
+      ],
+   q(tsikimba) => [
+      q(3244),
+      q(0),
+      ],
+   q(tsimane) => [
+      q(1653),
+      q(0),
+      ],
+   q(tsimihety malagasy) => [
+      q(7413),
+      q(0),
+      ],
+   q(tsimshian) => [
+      q(0439),
+      q(0),
+      ],
+   q(tsishingini) => [
+      q(6715),
+      q(0),
+      ],
+   q(tso) => [
+      q(3849),
+      q(0),
+      ],
+   q(tsoa) => [
+      q(2759),
+      q(0),
+      ],
+   q(tsogo) => [
+      q(6714),
+      q(0),
+      ],
+   q(tsonga) => [
+      q(0441),
+      q(0),
+      ],
+   q(tsotsitaal) => [
+      q(2356),
+      q(1),
+      ],
+   q(tsotso) => [
+      q(4066),
+      q(0),
+      ],
+   q(tsou) => [
+      q(6713),
+      q(0),
+      ],
+   q(tsucuba) => [
+      q(1669),
+      q(0),
+      ],
+   q(tsum) => [
+      q(6743),
+      q(0),
+      ],
+   q(tsuvadi) => [
+      q(6765),
+      q(0),
+      ],
+   q(tsuvan) => [
+      q(6703),
+      q(0),
+      ],
+   q(tswa) => [
+      q(6699),
+      q(0),
+      ],
+   q(tswana) => [
+      q(0440),
+      q(0),
+      ],
+   q(tswapong) => [
+      q(6787),
+      q(0),
+      ],
+   q(tu) => [
+      q(4317),
+      q(0),
+      ],
+   q(tuamotuan) => [
+      q(5521),
+      q(0),
+      ],
+   q(tubar) => [
+      q(6388),
+      q(0),
+      ],
+   q(tubatulabal) => [
+      q(6745),
+      q(0),
+      ],
+   q(tucano) => [
+      q(6756),
+      q(0),
+      ],
+   q(tugen) => [
+      q(6762),
+      q(0),
+      ],
+   q(tugun) => [
+      q(6833),
+      q(0),
+      ],
+   q(tugutil) => [
+      q(6753),
+      q(0),
+      ],
+   q(tukang besi north) => [
+      q(3331),
+      q(0),
+      ],
+   q(tukang besi south) => [
+      q(1200),
+      q(0),
+      ],
+   q(tuki) => [
+      q(1028),
+      q(0),
+      ],
+   q(tukpa) => [
+      q(6652),
+      q(0),
+      ],
+   q(tukudede) => [
+      q(6537),
+      q(0),
+      ],
+   q(tukumanfed) => [
+      q(6539),
+      q(0),
+      ],
+   q(tula) => [
+      q(6754),
+      q(0),
+      ],
+   q(tulehu) => [
+      q(6570),
+      q(0),
+      ],
+   q(tulishi) => [
+      q(6458),
+      q(0),
+      ],
+   q(tulu) => [
+      q(6415),
+      q(0),
+      ],
+   q(tulu-bohuai) => [
+      q(5735),
+      q(0),
+      ],
+   q(tuma-irumu) => [
+      q(2979),
+      q(0),
+      ],
+   q(tumak) => [
+      q(6576),
+      q(0),
+      ],
+   q(tumari kanuri) => [
+      q(3583),
+      q(0),
+      ],
+   q(tumbuka) => [
+      q(0443),
+      q(0),
+      ],
+   q(tumi) => [
+      q(3420),
+      q(0),
+      ],
+   q(tumleo) => [
+      q(6588),
+      q(0),
+      ],
+   q(tumshuqese) => [
+      q(7506),
+      q(0),
+      ],
+   q(tumtum) => [
+      q(6385),
+      q(0),
+      ],
+   q(tumulung sisaala) => [
+      q(6034),
+      q(0),
+      ],
+   q(tumzabt) => [
+      q(4688),
+      q(0),
+      ],
+   q(tundra enets) => [
+      q(2265),
+      q(0),
+      ],
+   q(tunen) => [
+      q(6773),
+      q(0),
+      ],
+   q(tungag) => [
+      q(3833),
+      q(0),
+      ],
+   q(tunggare) => [
+      q(6690),
+      q(0),
+      ],
+   q(tungus languages) => [
+      q(0530),
+      q(0),
+      ],
+   q(tunia) => [
+      q(6750),
+      q(0),
+      ],
+   q(tunica) => [
+      q(6755),
+      q(0),
+      ],
+   q(tunisian arabic) => [
+      q(0625),
+      q(0),
+      ],
+   q(tunisian sign language) => [
+      q(6701),
+      q(0),
+      ],
+   q(tunjung) => [
+      q(6526),
+      q(0),
+      ],
+   q(tunni) => [
+      q(6667),
+      q(0),
+      ],
+   q(tunzu) => [
+      q(2203),
+      q(0),
+      ],
+   q(tuotomb) => [
+      q(6724),
+      q(0),
+      ],
+   q(tupari) => [
+      q(6653),
+      q(0),
+      ],
+   q(tupi) => [
+      q(6657),
+      q(0),
+      ],
+   q(tupi languages) => [
+      q(0444),
+      q(0),
+      ],
+   q(tupinamba) => [
+      q(6649),
+      q(0),
+      ],
+   q(tupinikin) => [
+      q(6646),
+      q(0),
+      ],
+   q(tupuri) => [
+      q(6752),
+      q(0),
+      ],
+   q(turaka) => [
+      q(6679),
+      q(0),
+      ],
+   q(turi) => [
+      q(6675),
+      q(0),
+      ],
+   q(turiwara) => [
+      q(6791),
+      q(0),
+      ],
+   q(turk isaret dili) => [
+      q(6707),
+      q(1),
+      ],
+   q(turka) => [
+      q(6763),
+      q(0),
+      ],
+   q(turkana) => [
+      q(6760),
+      q(0),
+      ],
+   q(turkic khalaj) => [
+      q(3435),
+      q(0),
+      ],
+   q(turkic languages) => [
+      q(0529),
+      q(0),
+      ],
+   q(turkish) => [
+      q(0445),
+      q(0),
+      ],
+   q(turkish sign language) => [
+      q(6707),
+      q(0),
+      ],
+   q(turkish, ottoman (1500-1928)) => [
+      q(0333),
+      q(0),
+      ],
+   q(turkmen) => [
+      q(0442),
+      q(0),
+      ],
+   q(turks and caicos creole english) => [
+      q(6401),
+      q(0),
+      ],
+   q(turoyo) => [
+      q(6691),
+      q(0),
+      ],
+   q(turumsa) => [
+      q(6663),
+      q(0),
+      ],
+   q(turung) => [
+      q(6695),
+      q(0),
+      ],
+   q(tuscarora) => [
+      q(6758),
+      q(0),
+      ],
+   q(tutelo) => [
+      q(6719),
+      q(0),
+      ],
+   q(tutong) => [
+      q(6725),
+      q(0),
+      ],
+   q(tutsa naga) => [
+      q(6772),
+      q(0),
+      ],
+   q(tutuba) => [
+      q(6581),
+      q(0),
+      ],
+   q(tututepec mixtec) => [
+      q(4568),
+      q(0),
+      ],
+   q(tututni) => [
+      q(6759),
+      q(0),
+      ],
+   q(tuvalu) => [
+      q(0447),
+      q(0),
+      ],
+   q(tuvinian) => [
+      q(0449),
+      q(0),
+      ],
+   q(tuwali ifugao) => [
+      q(2913),
+      q(0),
+      ],
+   q(tuwari) => [
+      q(6793),
+      q(0),
+      ],
+   q(tuwuli) => [
+      q(1370),
+      q(0),
+      ],
+   q(tuxa) => [
+      q(6747),
+      q(0),
+      ],
+   q(tuxinawa) => [
+      q(6761),
+      q(0),
+      ],
+   q(tuyuca) => [
+      q(6748),
+      q(0),
+      ],
+   q(twana) => [
+      q(6776),
+      q(0),
+      ],
+   q(twendi) => [
+      q(6786),
+      q(0),
+      ],
+   q(twents) => [
+      q(6779),
+      q(0),
+      ],
+   q(twi) => [
+      q(0448),
+      q(0),
+      ],
+   q(tyap) => [
+      q(3214),
+      q(0),
+      ],
+   q(tyaraity) => [
+      q(7182),
+      q(0),
+      ],
+   q(tz'utujil) => [
+      q(6830),
+      q(0),
+      ],
+   q(tzeltal) => [
+      q(6829),
+      q(0),
+      ],
+   q(tzotzil) => [
+      q(6834),
+      q(0),
+      ],
+   q(u) => [
+      q(6947),
+      q(0),
+      ],
+   q(uab meto) => [
+      q(0834),
+      q(0),
+      ],
+   q(uamue) => [
+      q(6836),
+      q(0),
+      ],
+   q(uare) => [
+      q(3598),
+      q(0),
+      ],
+   q(ubaghara) => [
+      q(1591),
+      q(0),
+      ],
+   q(ubang) => [
+      q(6839),
+      q(0),
+      ],
+   q(ubi) => [
+      q(6840),
+      q(0),
+      ],
+   q(ubir) => [
+      q(6842),
+      q(0),
+      ],
+   q(ubykh) => [
+      q(6844),
+      q(0),
+      ],
+   q(ucayali-yurua asheninka) => [
+      q(1828),
+      q(0),
+      ],
+   q(uda) => [
+      q(6845),
+      q(0),
+      ],
+   q(udi) => [
+      q(6848),
+      q(0),
+      ],
+   q(udihe) => [
+      q(6846),
+      q(0),
+      ],
+   q(udmurt) => [
+      q(0450),
+      q(0),
+      ],
+   q(uduk) => [
+      q(6851),
+      q(0),
+      ],
+   q(ufim) => [
+      q(6853),
+      q(0),
+      ],
+   q(ugandan sign language) => [
+      q(6856),
+      q(0),
+      ],
+   q(ugaritic) => [
+      q(0451),
+      q(0),
+      ],
+   q(ughele) => [
+      q(6855),
+      q(0),
+      ],
+   q(ugong) => [
+      q(6857),
+      q(0),
+      ],
+   q(uhami) => [
+      q(6859),
+      q(0),
+      ],
+   q(uighur) => [
+      q(0452),
+      q(0),
+      ],
+   q(uisai) => [
+      q(6861),
+      q(0),
+      ],
+   q(ujir) => [
+      q(6849),
+      q(0),
+      ],
+   q(ukaan) => [
+      q(3213),
+      q(0),
+      ],
+   q(ukhwejo) => [
+      q(6866),
+      q(0),
+      ],
+   q(ukit) => [
+      q(6891),
+      q(0),
+      ],
+   q(ukpe-bayobiri) => [
+      q(6869),
+      q(0),
+      ],
+   q(ukpet-ehom) => [
+      q(0725),
+      q(0),
+      ],
+   q(ukrainian) => [
+      q(0453),
+      q(0),
+      ],
+   q(ukrainian sign language) => [
+      q(6868),
+      q(0),
+      ],
+   q(ukue) => [
+      q(6872),
+      q(0),
+      ],
+   q(ukuriguma) => [
+      q(6865),
+      q(0),
+      ],
+   q(ukwa) => [
+      q(6870),
+      q(0),
+      ],
+   q(ukwuani-aboh-ndoni) => [
+      q(6873),
+      q(0),
+      ],
+   q(ulau-suain) => [
+      q(6281),
+      q(0),
+      ],
+   q(ulch) => [
+      q(6877),
+      q(0),
+      ],
+   q(ulithian) => [
+      q(6880),
+      q(0),
+      ],
+   q(ullatan) => [
+      q(6882),
+      q(0),
+      ],
+   q(ulukwumi) => [
+      q(6876),
+      q(0),
+      ],
+   q(ulumanda') => [
+      q(6883),
+      q(0),
+      ],
+   q(ulwa) => [
+      q(6886),
+      q(0),
+      ],
+   q(uma) => [
+      q(5569),
+      q(0),
+      ],
+   q(uma' lasan) => [
+      q(7377),
+      q(0),
+      ],
+   q(uma' lung) => [
+      q(6885),
+      q(0),
+      ],
+   q(umanakaina) => [
+      q(2463),
+      q(0),
+      ],
+   q(umatilla) => [
+      q(6887),
+      q(0),
+      ],
+   q(umbindhamu) => [
+      q(6889),
+      q(0),
+      ],
+   q(umbrian) => [
+      q(7521),
+      q(0),
+      ],
+   q(umbu-ungu) => [
+      q(6843),
+      q(0),
+      ],
+   q(umbugarla) => [
+      q(6896),
+      q(0),
+      ],
+   q(umbundu) => [
+      q(0454),
+      q(0),
+      ],
+   q(umbuygamu) => [
+      q(6890),
+      q(0),
+      ],
+   q(ume sami) => [
+      q(6060),
+      q(0),
+      ],
+   q(umeda) => [
+      q(6909),
+      q(0),
+      ],
+   q(umiida) => [
+      q(7517),
+      q(0),
+      ],
+   q(umiray dumaget agta) => [
+      q(2168),
+      q(0),
+      ],
+   q(umon) => [
+      q(6892),
+      q(0),
+      ],
+   q(umotina) => [
+      q(6894),
+      q(0),
+      ],
+   q(umpila) => [
+      q(6895),
+      q(0),
+      ],
+   q(una) => [
+      q(4554),
+      q(0),
+      ],
+   q(unami) => [
+      q(6903),
+      q(0),
+      ],
+   q(uncoded languages) => [
+      q(0282),
+      q(0),
+      ],
+   q(unde kaili) => [
+      q(6908),
+      q(0),
+      ],
+   q(undetermined) => [
+      q(0455),
+      q(0),
+      ],
+   q(uneapa) => [
+      q(1052),
+      q(0),
+      ],
+   q(uneme) => [
+      q(6900),
+      q(0),
+      ],
+   q(unggaranggu) => [
+      q(7522),
+      q(0),
+      ],
+   q(unggumi) => [
+      q(7335),
+      q(0),
+      ],
+   q(ungkue) => [
+      q(2540),
+      q(0),
+      ],
+   q(unserdeutsch) => [
+      q(6884),
+      q(0),
+      ],
+   q(unua) => [
+      q(5275),
+      q(0),
+      ],
+   q(unubahe) => [
+      q(6906),
+      q(0),
+      ],
+   q(upper chehalis) => [
+      q(1742),
+      q(0),
+      ],
+   q(upper grand valley dani) => [
+      q(2093),
+      q(0),
+      ],
+   q(upper guinea crioulo) => [
+      q(5563),
+      q(0),
+      ],
+   q(upper kinabatangan) => [
+      q(2081),
+      q(0),
+      ],
+   q(upper kuskokwim) => [
+      q(3655),
+      q(0),
+      ],
+   q(upper necaxa totonac) => [
+      q(6548),
+      q(0),
+      ],
+   q(upper saxon) => [
+      q(6321),
+      q(0),
+      ],
+   q(upper sorbian) => [
+      q(0183),
+      q(0),
+      ],
+   q(upper ta'oih) => [
+      q(6726),
+      q(0),
+      ],
+   q(upper tanana) => [
+      q(6363),
+      q(0),
+      ],
+   q(upper taromi) => [
+      q(6635),
+      q(0),
+      ],
+   q(upper umpqua) => [
+      q(7524),
+      q(0),
+      ],
+   q(ura (papua new guinea)) => [
+      q(6923),
+      q(0),
+      ],
+   q(ura (vanuatu)) => [
+      q(6946),
+      q(0),
+      ],
+   q(uradhi) => [
+      q(6915),
+      q(0),
+      ],
+   q(urak lawoi') => [
+      q(6919),
+      q(0),
+      ],
+   q(urali) => [
+      q(6920),
+      q(0),
+      ],
+   q(uralic languages) => [
+      q(0531),
+      q(0),
+      ],
+   q(urapmin) => [
+      q(6921),
+      q(0),
+      ],
+   q(urarina) => [
+      q(6911),
+      q(0),
+      ],
+   q(urartian) => [
+      q(7525),
+      q(0),
+      ],
+   q(urat) => [
+      q(6926),
+      q(0),
+      ],
+   q(urdu) => [
+      q(0456),
+      q(0),
+      ],
+   q(urhobo) => [
+      q(6917),
+      q(0),
+      ],
+   q(uri) => [
+      q(6949),
+      q(0),
+      ],
+   q(urigina) => [
+      q(6916),
+      q(0),
+      ],
+   q(urim) => [
+      q(6918),
+      q(0),
+      ],
+   q(urimo) => [
+      q(6930),
+      q(0),
+      ],
+   q(uripiv-wala-rano-atchin) => [
+      q(6910),
+      q(0),
+      ],
+   q(urningangg) => [
+      q(6913),
+      q(0),
+      ],
+   q(uru) => [
+      q(6914),
+      q(0),
+      ],
+   q(uru-eu-wau-wau) => [
+      q(6932),
+      q(0),
+      ],
+   q(uru-pa-in) => [
+      q(6924),
+      q(0),
+      ],
+   q(uruangnirin) => [
+      q(6922),
+      q(0),
+      ],
+   q(uruava) => [
+      q(6928),
+      q(0),
+      ],
+   q(urubu-kaapor) => [
+      q(6912),
+      q(0),
+      ],
+   q(urubu-kaapor sign language) => [
+      q(6871),
+      q(0),
+      ],
+   q(uruguayan sign language) => [
+      q(6858),
+      q(0),
+      ],
+   q(urum) => [
+      q(6944),
+      q(0),
+      ],
+   q(urumi) => [
+      q(6927),
+      q(0),
+      ],
+   q(usaghade) => [
+      q(6936),
+      q(0),
+      ],
+   q(usan) => [
+      q(7179),
+      q(0),
+      ],
+   q(usarufa) => [
+      q(6933),
+      q(0),
+      ],
+   q(ushojo) => [
+      q(6934),
+      q(0),
+      ],
+   q(usila chinantec) => [
+      q(1900),
+      q(0),
+      ],
+   q(usku) => [
+      q(6879),
+      q(0),
+      ],
+   q(uspanteco) => [
+      q(6937),
+      q(0),
+      ],
+   q(usui) => [
+      q(6935),
+      q(0),
+      ],
+   q(ut-ma'in) => [
+      q(2480),
+      q(0),
+      ],
+   q(utarmbung) => [
+      q(5255),
+      q(0),
+      ],
+   q(ute-southern paiute) => [
+      q(6940),
+      q(0),
+      ],
+   q(uto-aztecan languages) => [
+      q(0494),
+      q(0),
+      ],
+   q(utu) => [
+      q(6943),
+      q(0),
+      ],
+   q(uvbie) => [
+      q(2312),
+      q(0),
+      ],
+   q(uya) => [
+      q(6938),
+      q(0),
+      ],
+   q(uyajitaya) => [
+      q(2173),
+      q(0),
+      ],
+   q(uyghur) => [
+      q(0452),
+      q(1),
+      ],
+   q(uzbek) => [
+      q(0457),
+      q(0),
+      ],
+   q(uzbeki arabic) => [
+      q(0955),
+      q(0),
+      ],
+   q(uzekwe) => [
+      q(2318),
+      q(0),
+      ],
+   q(v'enen taut) => [
+      q(4956),
+      q(1),
+      ],
+   q(vaagri booli) => [
+      q(6955),
+      q(0),
+      ],
+   q(vaeakau-taumako) => [
+      q(5465),
+      q(1),
+      ],
+   q(vafsi) => [
+      q(6957),
+      q(0),
+      ],
+   q(vaghat-ya-bijim-legeri) => [
+      q(1217),
+      q(0),
+      ],
+   q(vaghri) => [
+      q(6980),
+      q(0),
+      ],
+   q(vaghua) => [
+      q(6764),
+      q(0),
+      ],
+   q(vagla) => [
+      q(6958),
+      q(0),
+      ],
+   q(vai) => [
+      q(0458),
+      q(0),
+      ],
+   q(vaiphei) => [
+      q(6965),
+      q(0),
+      ],
+   q(vale) => [
+      q(6956),
+      q(0),
+      ],
+   q(valencian) => [
+      q(0071),
+      q(1),
+      ],
+   q(valencian sign language) => [
+      q(7035),
+      q(0),
+      ],
+   q(valle nacional chinantec) => [
+      q(1917),
+      q(0),
+      ],
+   q(valley maidu) => [
+      q(7021),
+      q(0),
+      ],
+   q(valman) => [
+      q(6963),
+      q(0),
+      ],
+   q(valpei) => [
+      q(7001),
+      q(0),
+      ],
+   q(vamale) => [
+      q(4354),
+      q(0),
+      ],
+   q(vame) => [
+      q(4376),
+      q(0),
+      ],
+   q(vandalic) => [
+      q(7530),
+      q(0),
+      ],
+   q(vangunu) => [
+      q(4465),
+      q(0),
+      ],
+   q(vanimo) => [
+      q(6962),
+      q(0),
+      ],
+   q(vano) => [
+      q(7026),
+      q(0),
+      ],
+   q(vanuma) => [
+      q(6968),
+      q(0),
+      ],
+   q(vao) => [
+      q(6964),
+      q(0),
+      ],
+   q(varhadi-nagpuri) => [
+      q(6959),
+      q(0),
+      ],
+   q(varisi) => [
+      q(7031),
+      q(0),
+      ],
+   q(varli) => [
+      q(6969),
+      q(0),
+      ],
+   q(vasavi) => [
+      q(6967),
+      q(0),
+      ],
+   q(vasekele) => [
+      q(6960),
+      q(2),
+      ],
+   q(veddah) => [
+      q(6974),
+      q(0),
+      ],
+   q(vehes) => [
+      q(6961),
+      q(0),
+      ],
+   q(veluws) => [
+      q(6975),
+      q(0),
+      ],
+   q(vemgo-mabas) => [
+      q(6976),
+      q(0),
+      ],
+   q(venda) => [
+      q(0459),
+      q(0),
+      ],
+   q(venetian) => [
+      q(6973),
+      q(0),
+      ],
+   q(venetic) => [
+      q(7528),
+      q(0),
+      ],
+   q(venezuelan sign language) => [
+      q(7034),
+      q(0),
+      ],
+   q(vengo) => [
+      q(1035),
+      q(0),
+      ],
+   q(ventureno) => [
+      q(6977),
+      q(0),
+      ],
+   q(veps) => [
+      q(6978),
+      q(0),
+      ],
+   q(vera'a) => [
+      q(7030),
+      q(0),
+      ],
+   q(vestinian) => [
+      q(7532),
+      q(0),
+      ],
+   q(vidunda) => [
+      q(6983),
+      q(0),
+      ],
+   q(viemo) => [
+      q(6985),
+      q(0),
+      ],
+   q(vietnamese) => [
+      q(0460),
+      q(0),
+      ],
+   q(viid) => [
+      q(6140),
+      q(1),
+      ],
+   q(vilela) => [
+      q(6986),
+      q(0),
+      ],
+   q(vili) => [
+      q(6984),
+      q(0),
+      ],
+   q(villa viciosa agta) => [
+      q(2197),
+      q(0),
+      ],
+   q(vincentian creole english) => [
+      q(6282),
+      q(0),
+      ],
+   q(vinmavis) => [
+      q(7027),
+      q(0),
+      ],
+   q(vinza) => [
+      q(6987),
+      q(0),
+      ],
+   q(virgin islands creole english) => [
+      q(6982),
+      q(0),
+      ],
+   q(vishavan) => [
+      q(6988),
+      q(0),
+      ],
+   q(viti) => [
+      q(6989),
+      q(0),
+      ],
+   q(vitou) => [
+      q(7036),
+      q(0),
+      ],
+   q(vitu) => [
+      q(7127),
+      q(0),
+      ],
+   q(vlaams) => [
+      q(7002),
+      q(0),
+      ],
+   q(vlaamse gebarentaal) => [
+      q(6981),
+      q(0),
+      ],
+   q(vlax romani) => [
+      q(5817),
+      q(0),
+      ],
+   q(volapuk) => [
+      q(0461),
+      q(0),
+      ],
+   q(volscian) => [
+      q(7531),
+      q(0),
+      ],
+   q(vono) => [
+      q(3215),
+      q(0),
+      ],
+   q(voro) => [
+      q(7029),
+      q(0),
+      ],
+   q(votic) => [
+      q(0462),
+      q(0),
+      ],
+   q(vumbu) => [
+      q(7037),
+      q(0),
+      ],
+   q(vunapu) => [
+      q(7028),
+      q(0),
+      ],
+   q(vunjo) => [
+      q(7038),
+      q(0),
+      ],
+   q(vure) => [
+      q(3940),
+      q(1),
+      ],
+   q(vures) => [
+      q(4536),
+      q(0),
+      ],
+   q(vute) => [
+      q(7039),
+      q(0),
+      ],
+   q(vwanji) => [
+      q(7067),
+      q(0),
+      ],
+   q(wa) => [
+      q(7071),
+      q(0),
+      ],
+   q(wa'ema) => [
+      q(7047),
+      q(0),
+      ],
+   q(waama) => [
+      q(7246),
+      q(0),
+      ],
+   q(waamwang) => [
+      q(7162),
+      q(0),
+      ],
+   q(waata) => [
+      q(6231),
+      q(0),
+      ],
+   q(wab) => [
+      q(7042),
+      q(0),
+      ],
+   q(wabo) => [
+      q(7064),
+      q(0),
+      ],
+   q(waboda) => [
+      q(3474),
+      q(0),
+      ],
+   q(waci gbe) => [
+      q(7080),
+      q(0),
+      ],
+   q(wadaginam) => [
+      q(7082),
+      q(0),
+      ],
+   q(waddar) => [
+      q(7073),
+      q(0),
+      ],
+   q(wadi wadi) => [
+      q(7535),
+      q(0),
+      ],
+   q(wadikali) => [
+      q(7084),
+      q(0),
+      ],
+   q(wadiyara koli) => [
+      q(3724),
+      q(0),
+      ],
+   q(wadjabangayi) => [
+      q(7086),
+      q(0),
+      ],
+   q(wadjiginy) => [
+      q(7083),
+      q(0),
+      ],
+   q(wadjigu) => [
+      q(7085),
+      q(0),
+      ],
+   q(wae rana) => [
+      q(7216),
+      q(0),
+      ],
+   q(waffa) => [
+      q(7050),
+      q(0),
+      ],
+   q(wagawaga) => [
+      q(7103),
+      q(0),
+      ],
+   q(wagaya) => [
+      q(7102),
+      q(0),
+      ],
+   q(wagdi) => [
+      q(7074),
+      q(0),
+      ],
+   q(wageman) => [
+      q(7055),
+      q(0),
+      ],
+   q(wagi) => [
+      q(2321),
+      q(0),
+      ],
+   q(wahau kayan) => [
+      q(7112),
+      q(0),
+      ],
+   q(wahau kenyah) => [
+      q(7111),
+      q(0),
+      ],
+   q(wahgi) => [
+      q(7105),
+      q(0),
+      ],
+   q(waigali) => [
+      q(7069),
+      q(0),
+      ],
+   q(waigeo) => [
+      q(7106),
+      q(0),
+      ],
+   q(wailaki) => [
+      q(7143),
+      q(0),
+      ],
+   q(wailapa) => [
+      q(7147),
+      q(0),
+      ],
+   q(waima) => [
+      q(5841),
+      q(0),
+      ],
+   q(waima'a) => [
+      q(7159),
+      q(0),
+      ],
+   q(waimaha) => [
+      q(1031),
+      q(0),
+      ],
+   q(waimiri-atroari) => [
+      q(0925),
+      q(0),
+      ],
+   q(waioli) => [
+      q(7142),
+      q(0),
+      ],
+   q(waiwai) => [
+      q(7059),
+      q(0),
+      ],
+   q(waja) => [
+      q(7129),
+      q(0),
+      ],
+   q(wajarri) => [
+      q(7077),
+      q(0),
+      ],
+   q(wajuk) => [
+      q(7538),
+      q(0),
+      ],
+   q(waka) => [
+      q(7058),
+      q(0),
+      ],
+   q(wakabunga) => [
+      q(7247),
+      q(0),
+      ],
+   q(wakashan languages) => [
+      q(0463),
+      q(0),
+      ],
+   q(wakawaka) => [
+      q(7136),
+      q(0),
+      ],
+   q(wakde) => [
+      q(7133),
+      q(0),
+      ],
+   q(wakhi) => [
+      q(7070),
+      q(0),
+      ],
+   q(wakona) => [
+      q(7046),
+      q(0),
+      ],
+   q(wala) => [
+      q(3883),
+      q(0),
+      ],
+   q(walak) => [
+      q(7151),
+      q(0),
+      ],
+   q(walamo) => [
+      q(0464),
+      q(0),
+      ],
+   q(walangama) => [
+      q(4951),
+      q(0),
+      ],
+   q(wali (ghana)) => [
+      q(7152),
+      q(0),
+      ],
+   q(wali (sudan)) => [
+      q(7144),
+      q(0),
+      ],
+   q(waling) => [
+      q(7153),
+      q(0),
+      ],
+   q(walio) => [
+      q(7138),
+      q(0),
+      ],
+   q(walla walla) => [
+      q(7041),
+      q(0),
+      ],
+   q(wallisian) => [
+      q(7148),
+      q(0),
+      ],
+   q(walloon) => [
+      q(0469),
+      q(0),
+      ],
+   q(walmajarri) => [
+      q(7165),
+      q(0),
+      ],
+   q(walser) => [
+      q(7045),
+      q(0),
+      ],
+   q(walungge) => [
+      q(5238),
+      q(0),
+      ],
+   q(wamas) => [
+      q(7156),
+      q(0),
+      ],
+   q(wambaya) => [
+      q(7155),
+      q(0),
+      ],
+   q(wambon) => [
+      q(7164),
+      q(0),
+      ],
+   q(wambule) => [
+      q(7158),
+      q(0),
+      ],
+   q(wamey) => [
+      q(1822),
+      q(0),
+      ],
+   q(wamin) => [
+      q(7160),
+      q(0),
+      ],
+   q(wampanoag) => [
+      q(7051),
+      q(0),
+      ],
+   q(wampar) => [
+      q(3817),
+      q(0),
+      ],
+   q(wampur) => [
+      q(7062),
+      q(0),
+      ],
+   q(wan) => [
+      q(7052),
+      q(0),
+      ],
+   q(wanambre) => [
+      q(7168),
+      q(0),
+      ],
+   q(wanap) => [
+      q(7178),
+      q(0),
+      ],
+   q(wanbasana) => [
+      q(0763),
+      q(1),
+      ],
+   q(wancho naga) => [
+      q(4995),
+      q(0),
+      ],
+   q(wanda) => [
+      q(7066),
+      q(0),
+      ],
+   q(wandala) => [
+      q(4225),
+      q(0),
+      ],
+   q(wandamen) => [
+      q(7044),
+      q(0),
+      ],
+   q(wandarang) => [
+      q(7170),
+      q(0),
+      ],
+   q(wandji) => [
+      q(7081),
+      q(0),
+      ],
+   q(wane) => [
+      q(2877),
+      q(0),
+      ],
+   q(waneci) => [
+      q(7171),
+      q(0),
+      ],
+   q(wanga) => [
+      q(4092),
+      q(0),
+      ],
+   q(wangaaybuwan-ngiyambaa) => [
+      q(7254),
+      q(0),
+      ],
+   q(wanggamala) => [
+      q(7175),
+      q(0),
+      ],
+   q(wangganguru) => [
+      q(7104),
+      q(0),
+      ],
+   q(wanggom) => [
+      q(7172),
+      q(0),
+      ],
+   q(wangkayutyuru) => [
+      q(7137),
+      q(0),
+      ],
+   q(wangkumara) => [
+      q(7539),
+      q(0),
+      ],
+   q(wanman) => [
+      q(7076),
+      q(0),
+      ],
+   q(wannu) => [
+      q(3147),
+      q(0),
+      ],
+   q(wano) => [
+      q(7177),
+      q(0),
+      ],
+   q(wantoat) => [
+      q(7169),
+      q(0),
+      ],
+   q(wanukaka) => [
+      q(7174),
+      q(0),
+      ],
+   q(wanyi) => [
+      q(7181),
+      q(0),
+      ],
+   q(waorani) => [
+      q(0936),
+      q(0),
+      ],
+   q(wapan) => [
+      q(3152),
+      q(0),
+      ],
+   q(wapha) => [
+      q(3162),
+      q(0),
+      ],
+   q(wapishana) => [
+      q(7054),
+      q(0),
+      ],
+   q(wappo) => [
+      q(7053),
+      q(0),
+      ],
+   q(war-jaintia) => [
+      q(0776),
+      q(0),
+      ],
+   q(wara) => [
+      q(6402),
+      q(0),
+      ],
+   q(warao) => [
+      q(7063),
+      q(0),
+      ],
+   q(warapu) => [
+      q(7199),
+      q(0),
+      ],
+   q(waray) => [
+      q(0465),
+      q(0),
+      ],
+   q(waray (australia)) => [
+      q(7218),
+      q(0),
+      ],
+   q(waray (philippines)) => [
+      q(0465),
+      q(1),
+      ],
+   q(wardaman) => [
+      q(7211),
+      q(0),
+      ],
+   q(wardandi) => [
+      q(7252),
+      q(0),
+      ],
+   q(warduji) => [
+      q(7201),
+      q(0),
+      ],
+   q(warembori) => [
+      q(7219),
+      q(0),
+      ],
+   q(wares) => [
+      q(7049),
+      q(0),
+      ],
+   q(waris) => [
+      q(7212),
+      q(0),
+      ],
+   q(waritai) => [
+      q(7065),
+      q(0),
+      ],
+   q(wariyangga) => [
+      q(7204),
+      q(0),
+      ],
+   q(warji) => [
+      q(7130),
+      q(0),
+      ],
+   q(warkay-bipim) => [
+      q(1181),
+      q(0),
+      ],
+   q(warlmanpa) => [
+      q(7206),
+      q(0),
+      ],
+   q(warlpiri) => [
+      q(7072),
+      q(0),
+      ],
+   q(warluwara) => [
+      q(7200),
+      q(0),
+      ],
+   q(warnang) => [
+      q(7208),
+      q(0),
+      ],
+   q(waropen) => [
+      q(7210),
+      q(0),
+      ],
+   q(warrgamay) => [
+      q(7108),
+      q(0),
+      ],
+   q(warrwa) => [
+      q(7249),
+      q(0),
+      ],
+   q(waru) => [
+      q(7213),
+      q(0),
+      ],
+   q(warumungu) => [
+      q(7207),
+      q(0),
+      ],
+   q(waruna) => [
+      q(7214),
+      q(0),
+      ],
+   q(warungu) => [
+      q(7202),
+      q(0),
+      ],
+   q(warwar feni) => [
+      q(2837),
+      q(0),
+      ],
+   q(wasa) => [
+      q(7224),
+      q(0),
+      ],
+   q(wasco-wishram) => [
+      q(7043),
+      q(0),
+      ],
+   q(wasembo) => [
+      q(2636),
+      q(0),
+      ],
+   q(washo) => [
+      q(0466),
+      q(0),
+      ],
+   q(waskia) => [
+      q(7222),
+      q(0),
+      ],
+   q(wasu) => [
+      q(7225),
+      q(0),
+      ],
+   q(watakataui) => [
+      q(7230),
+      q(0),
+      ],
+   q(watam) => [
+      q(7060),
+      q(0),
+      ],
+   q(wathawurrung) => [
+      q(7228),
+      q(0),
+      ],
+   q(watiwa) => [
+      q(7227),
+      q(0),
+      ],
+   q(watubela) => [
+      q(7048),
+      q(0),
+      ],
+   q(waube) => [
+      q(3512),
+      q(0),
+      ],
+   q(waura) => [
+      q(7057),
+      q(0),
+      ],
+   q(wauyai) => [
+      q(7245),
+      q(0),
+      ],
+   q(wawa) => [
+      q(7250),
+      q(0),
+      ],
+   q(wawonii) => [
+      q(7196),
+      q(0),
+      ],
+   q(waxianghua) => [
+      q(7251),
+      q(0),
+      ],
+   q(wayampi) => [
+      q(5339),
+      q(0),
+      ],
+   q(wayana) => [
+      q(7061),
+      q(0),
+      ],
+   q(wayanad chetti) => [
+      q(1895),
+      q(0),
+      ],
+   q(wayoro) => [
+      q(7257),
+      q(0),
+      ],
+   q(wayu) => [
+      q(6970),
+      q(0),
+      ],
+   q(wayuu) => [
+      q(2642),
+      q(0),
+      ],
+   q(we northern) => [
+      q(7183),
+      q(0),
+      ],
+   q(we southern) => [
+      q(2691),
+      q(0),
+      ],
+   q(we western) => [
+      q(7088),
+      q(0),
+      ],
+   q(wedau) => [
+      q(7089),
+      q(0),
+      ],
+   q(weh) => [
+      q(7091),
+      q(0),
+      ],
+   q(wejewa) => [
+      q(7100),
+      q(0),
+      ],
+   q(weliki) => [
+      q(3433),
+      q(0),
+      ],
+   q(welsh) => [
+      q(0467),
+      q(0),
+      ],
+   q(welsh romani) => [
+      q(5815),
+      q(0),
+      ],
+   q(wemale) => [
+      q(7094),
+      q(0),
+      ],
+   q(wemba wemba) => [
+      q(7544),
+      q(0),
+      ],
+   q(weme gbe) => [
+      q(7093),
+      q(0),
+      ],
+   q(wergaia) => [
+      q(7090),
+      q(0),
+      ],
+   q(weri) => [
+      q(7096),
+      q(0),
+      ],
+   q(wersing) => [
+      q(3682),
+      q(0),
+      ],
+   q(west albay bikol) => [
+      q(2336),
+      q(0),
+      ],
+   q(west ambae) => [
+      q(4984),
+      q(0),
+      ],
+   q(west bengal sign language) => [
+      q(7075),
+      q(0),
+      ],
+   q(west berawan) => [
+      q(7817),
+      q(0),
+      ],
+   q(west central banda) => [
+      q(1054),
+      q(0),
+      ],
+   q(west central oromo) => [
+      q(2418),
+      q(0),
+      ],
+   q(west coast bajau) => [
+      q(1107),
+      q(0),
+      ],
+   q(west damar) => [
+      q(2135),
+      q(0),
+      ],
+   q(west germanic languages) => [
+      q(0508),
+      q(0),
+      ],
+   q(west goodenough) => [
+      q(1976),
+      q(0),
+      ],
+   q(west kewa) => [
+      q(3278),
+      q(0),
+      ],
+   q(west lembata) => [
+      q(3976),
+      q(0),
+      ],
+   q(west makian) => [
+      q(4491),
+      q(0),
+      ],
+   q(west masela) => [
+      q(4541),
+      q(0),
+      ],
+   q(west slavic languages) => [
+      q(0537),
+      q(0),
+      ],
+   q(west tarangan) => [
+      q(6805),
+      q(0),
+      ],
+   q(west uvean) => [
+      q(6948),
+      q(0),
+      ],
+   q(west yugur) => [
+      q(7586),
+      q(0),
+      ],
+   q(west-central limba) => [
+      q(3901),
+      q(0),
+      ],
+   q(western abnaki) => [
+      q(0564),
+      q(0),
+      ],
+   q(western apache) => [
+      q(0856),
+      q(0),
+      ],
+   q(western arrarnta) => [
+      q(0871),
+      q(0),
+      ],
+   q(western balochi) => [
+      q(1173),
+      q(0),
+      ],
+   q(western bolivian guarani) => [
+      q(2581),
+      q(0),
+      ],
+   q(western bru) => [
+      q(1442),
+      q(0),
+      ],
+   q(western bukidnon manobo) => [
+      q(4121),
+      q(0),
+      ],
+   q(western canadian inuktitut) => [
+      q(2944),
+      q(1),
+      ],
+   q(western cham) => [
+      q(1740),
+      q(0),
+      ],
+   q(western dani) => [
+      q(2105),
+      q(0),
+      ],
+   q(western durango nahuatl) => [
+      q(1019),
+      q(0),
+      ],
+   q(western fijian) => [
+      q(7258),
+      q(0),
+      ],
+   q(western frisian) => [
+      q(0143),
+      q(0),
+      ],
+   q(western highland chatino) => [
+      q(1893),
+      q(0),
+      ],
+   q(western highland purepecha) => [
+      q(5633),
+      q(0),
+      ],
+   q(western huasteca nahuatl) => [
+      q(4872),
+      q(0),
+      ],
+   q(western juxtlahuaca mixtec) => [
+      q(3125),
+      q(0),
+      ],
+   q(western kanjobal) => [
+      q(3485),
+      q(0),
+      ],
+   q(western karaboro) => [
+      q(3761),
+      q(0),
+      ],
+   q(western katu) => [
+      q(3644),
+      q(0),
+      ],
+   q(western kayah) => [
+      q(3755),
+      q(0),
+      ],
+   q(western keres) => [
+      q(3391),
+      q(0),
+      ],
+   q(western krahn) => [
+      q(3585),
+      q(0),
+      ],
+   q(western lalu) => [
+      q(7772),
+      q(0),
+      ],
+   q(western lawa) => [
+      q(3834),
+      q(0),
+      ],
+   q(western magar) => [
+      q(4502),
+      q(0),
+      ],
+   q(western malayo-polynesian languages) => [
+      q(0523),
+      q(0),
+      ],
+   q(western maninkakan) => [
+      q(4375),
+      q(0),
+      ],
+   q(western mari) => [
+      q(4507),
+      q(0),
+      ],
+   q(western mashan hmong) => [
+      q(2794),
+      q(0),
+      ],
+   q(western mashan miao) => [
+      q(2794),
+      q(1),
+      ],
+   q(western meohang) => [
+      q(5731),
+      q(0),
+      ],
+   q(western muria) => [
+      q(4588),
+      q(0),
+      ],
+   q(western neo-aramaic) => [
+      q(0787),
+      q(0),
+      ],
+   q(western niger fulfulde) => [
+      q(2383),
+      q(0),
+      ],
+   q(western ojibwa) => [
+      q(5219),
+      q(0),
+      ],
+   q(western pahari languages) => [
+      q(0177),
+      q(1),
+      ],
+   q(western panjabi) => [
+      q(5527),
+      q(0),
+      ],
+   q(western parbate kham) => [
+      q(3386),
+      q(0),
+      ],
+   q(western penan) => [
+      q(5529),
+      q(0),
+      ],
+   q(western sisaala) => [
+      q(6229),
+      q(0),
+      ],
+   q(western subanon) => [
+      q(6268),
+      q(0),
+      ],
+   q(western tamang) => [
+      q(6423),
+      q(0),
+      ],
+   q(western tawbuid) => [
+      q(6777),
+      q(0),
+      ],
+   q(western tlacolula valley zapotec) => [
+      q(7791),
+      q(0),
+      ],
+   q(western totonac) => [
+      q(6669),
+      q(0),
+      ],
+   q(western tunebo) => [
+      q(6598),
+      q(0),
+      ],
+   q(western xiangxi miao) => [
+      q(4400),
+      q(0),
+      ],
+   q(western xwla gbe) => [
+      q(7540),
+      q(0),
+      ],
+   q(western yiddish) => [
+      q(7633),
+      q(0),
+      ],
+   q(westphalien) => [
+      q(7095),
+      q(0),
+      ],
+   q(wetamut) => [
+      q(7248),
+      q(0),
+      ],
+   q(wewaw) => [
+      q(7087),
+      q(0),
+      ],
+   q(weyto) => [
+      q(7197),
+      q(0),
+      ],
+   q(white gelao) => [
+      q(2525),
+      q(0),
+      ],
+   q(white lachi) => [
+      q(4093),
+      q(0),
+      ],
+   q(whitesands) => [
+      q(6609),
+      q(0),
+      ],
+   q(wiarumus) => [
+      q(6744),
+      q(0),
+      ],
+   q(wichi lhamtes guisnay) => [
+      q(4693),
+      q(0),
+      ],
+   q(wichi lhamtes nocten) => [
+      q(4563),
+      q(0),
+      ],
+   q(wichi lhamtes vejoz) => [
+      q(7150),
+      q(0),
+      ],
+   q(wichita) => [
+      q(7114),
+      q(0),
+      ],
+   q(wik-epa) => [
+      q(7115),
+      q(0),
+      ],
+   q(wik-iiyanh) => [
+      q(7120),
+      q(0),
+      ],
+   q(wik-keyangan) => [
+      q(7116),
+      q(0),
+      ],
+   q(wik-me'anha) => [
+      q(7118),
+      q(0),
+      ],
+   q(wik-mungkan) => [
+      q(7123),
+      q(0),
+      ],
+   q(wik-ngathana) => [
+      q(7117),
+      q(0),
+      ],
+   q(wikalkan) => [
+      q(7121),
+      q(0),
+      ],
+   q(wikngenchera) => [
+      q(7233),
+      q(0),
+      ],
+   q(wilawila) => [
+      q(7122),
+      q(0),
+      ],
+   q(wintu) => [
+      q(7180),
+      q(0),
+      ],
+   q(winye) => [
+      q(3608),
+      q(0),
+      ],
+   q(wipi) => [
+      q(2466),
+      q(0),
+      ],
+   q(wiradhuri) => [
+      q(7203),
+      q(0),
+      ],
+   q(wirafed) => [
+      q(7125),
+      q(0),
+      ],
+   q(wirangu) => [
+      q(7107),
+      q(0),
+      ],
+   q(wiru) => [
+      q(7126),
+      q(0),
+      ],
+   q(wiyot) => [
+      q(7128),
+      q(0),
+      ],
+   q(woccon) => [
+      q(7534),
+      q(0),
+      ],
+   q(wogamusin) => [
+      q(7188),
+      q(0),
+      ],
+   q(wogeo) => [
+      q(7184),
+      q(0),
+      ],
+   q(woi) => [
+      q(7078),
+      q(0),
+      ],
+   q(woiwurrung) => [
+      q(7255),
+      q(0),
+      ],
+   q(wojenaka) => [
+      q(3134),
+      q(0),
+      ],
+   q(wolaitta) => [
+      q(0464),
+      q(2),
+      ],
+   q(wolane) => [
+      q(7140),
+      q(0),
+      ],
+   q(wolani) => [
+      q(7185),
+      q(0),
+      ],
+   q(wolaytta) => [
+      q(0464),
+      q(1),
+      ],
+   q(woleaian) => [
+      q(7186),
+      q(0),
+      ],
+   q(wolio) => [
+      q(7146),
+      q(0),
+      ],
+   q(wolof) => [
+      q(0470),
+      q(0),
+      ],
+   q(wom (nigeria)) => [
+      q(7191),
+      q(0),
+      ],
+   q(wom (papua new guinea)) => [
+      q(7163),
+      q(0),
+      ],
+   q(womo) => [
+      q(7167),
+      q(0),
+      ],
+   q(wongo) => [
+      q(7192),
+      q(0),
+      ],
+   q(woods cree) => [
+      q(1920),
+      q(0),
+      ],
+   q(woria) => [
+      q(7194),
+      q(0),
+      ],
+   q(worimi) => [
+      q(3234),
+      q(0),
+      ],
+   q(worodougou) => [
+      q(3149),
+      q(0),
+      ],
+   q(worrorra) => [
+      q(7209),
+      q(0),
+      ],
+   q(wotapuri-katarqalai) => [
+      q(7226),
+      q(0),
+      ],
+   q(wotjobaluk) => [
+      q(7543),
+      q(0),
+      ],
+   q(wotu) => [
+      q(7232),
+      q(0),
+      ],
+   q(woun meu) => [
+      q(5005),
+      q(0),
+      ],
+   q(written oirat) => [
+      q(7541),
+      q(0),
+      ],
+   q(wu chinese) => [
+      q(7242),
+      q(0),
+      ],
+   q(wuding-luquan yi) => [
+      q(7774),
+      q(0),
+      ],
+   q(wudu) => [
+      q(7235),
+      q(0),
+      ],
+   q(wuliwuli) => [
+      q(7149),
+      q(0),
+      ],
+   q(wulna) => [
+      q(7244),
+      q(0),
+      ],
+   q(wumboko) => [
+      q(1409),
+      q(0),
+      ],
+   q(wumbvu) => [
+      q(7238),
+      q(0),
+      ],
+   q(wumeng nasu) => [
+      q(7777),
+      q(0),
+      ],
+   q(wunai bunu) => [
+      q(1554),
+      q(0),
+      ],
+   q(wunambal) => [
+      q(7234),
+      q(0),
+      ],
+   q(wunumara) => [
+      q(7176),
+      q(0),
+      ],
+   q(wurrugu) => [
+      q(7240),
+      q(0),
+      ],
+   q(wusa nasu) => [
+      q(7632),
+      q(0),
+      ],
+   q(wushi) => [
+      q(1450),
+      q(0),
+      ],
+   q(wusi) => [
+      q(7221),
+      q(0),
+      ],
+   q(wutung) => [
+      q(7241),
+      q(0),
+      ],
+   q(wutunhua) => [
+      q(7236),
+      q(0),
+      ],
+   q(wuvulu-aua) => [
+      q(7243),
+      q(0),
+      ],
+   q(wuzlam) => [
+      q(6850),
+      q(0),
+      ],
+   q(wyandot) => [
+      q(7253),
+      q(0),
+      ],
+   q(wymysorys) => [
+      q(7256),
+      q(0),
+      ],
+   q(xaasongaxango) => [
+      q(3178),
+      q(0),
+      ],
+   q(xadani zapotec) => [
+      q(7811),
+      q(0),
+      ],
+   q(xakriaba) => [
+      q(7370),
+      q(0),
+      ],
+   q(xam) => [
+      q(7268),
+      q(1),
+      ],
+   q(xamtanga) => [
+      q(7269),
+      q(0),
+      ],
+   q(xanaguia zapotec) => [
+      q(7939),
+      q(0),
+      ],
+   q(xaracuu) => [
+      q(0795),
+      q(0),
+      ],
+   q(xaragure) => [
+      q(0992),
+      q(0),
+      ],
+   q(xavante) => [
+      q(7277),
+      q(0),
+      ],
+   q(xegwi) => [
+      q(7317),
+      q(1),
+      ],
+   q(xerente) => [
+      q(7321),
+      q(0),
+      ],
+   q(xeta) => [
+      q(7323),
+      q(0),
+      ],
+   q(xhosa) => [
+      q(0472),
+      q(0),
+      ],
+   q(xiang chinese) => [
+      q(2842),
+      q(0),
+      ],
+   q(xibe) => [
+      q(6055),
+      q(0),
+      ],
+   q(xicotepec de juarez totonac) => [
+      q(6629),
+      q(0),
+      ],
+   q(xinca) => [
+      q(7348),
+      q(0),
+      ],
+   q(xingu asurini) => [
+      q(0898),
+      q(0),
+      ],
+   q(xipaya) => [
+      q(7352),
+      q(0),
+      ],
+   q(xiri) => [
+      q(7346),
+      q(0),
+      ],
+   q(xiriana) => [
+      q(7349),
+      q(0),
+      ],
+   q(xishanba lalo) => [
+      q(7776),
+      q(0),
+      ],
+   q(xokleng) => [
+      q(7435),
+      q(0),
+      ],
+   q(xoo) => [
+      q(4968),
+      q(1),
+      ],
+   q(xukuru) => [
+      q(7438),
+      q(0),
+      ],
+   q(xwela gbe) => [
+      q(7536),
+      q(0),
+      ],
+   q(yaaku) => [
+      q(4589),
+      q(0),
+      ],
+   q(yabaana) => [
+      q(7593),
+      q(0),
+      ],
+   q(yabarana) => [
+      q(7575),
+      q(0),
+      ],
+   q(yabem) => [
+      q(3043),
+      q(0),
+      ],
+   q(yaben) => [
+      q(7592),
+      q(0),
+      ],
+   q(yabong) => [
+      q(7594),
+      q(0),
+      ],
+   q(yabula yabula) => [
+      q(7784),
+      q(0),
+      ],
+   q(yace) => [
+      q(2237),
+      q(0),
+      ],
+   q(yaeyama) => [
+      q(5873),
+      q(0),
+      ],
+   q(yafi) => [
+      q(7101),
+      q(0),
+      ],
+   q(yagara) => [
+      q(7780),
+      q(0),
+      ],
+   q(yagaria) => [
+      q(7623),
+      q(0),
+      ],
+   q(yagnobi) => [
+      q(7568),
+      q(0),
+      ],
+   q(yagomi) => [
+      q(7621),
+      q(0),
+      ],
+   q(yagua) => [
+      q(7563),
+      q(0),
+      ],
+   q(yagwoia) => [
+      q(7626),
+      q(0),
+      ],
+   q(yahadian) => [
+      q(4815),
+      q(0),
+      ],
+   q(yahang) => [
+      q(5776),
+      q(0),
+      ],
+   q(yahuna) => [
+      q(7701),
+      q(0),
+      ],
+   q(yaka (central african republic)) => [
+      q(0989),
+      q(0),
+      ],
+   q(yaka (congo)) => [
+      q(3035),
+      q(0),
+      ],
+   q(yaka (democratic republic of congo)) => [
+      q(7565),
+      q(0),
+      ],
+   q(yakaikeke) => [
+      q(7652),
+      q(0),
+      ],
+   q(yakama) => [
+      q(7570),
+      q(0),
+      ],
+   q(yakan) => [
+      q(7649),
+      q(0),
+      ],
+   q(yakha) => [
+      q(7587),
+      q(0),
+      ],
+   q(yakoma) => [
+      q(7660),
+      q(0),
+      ],
+   q(yakut) => [
+      q(0367),
+      q(0),
+      ],
+   q(yala) => [
+      q(7584),
+      q(0),
+      ],
+   q(yalahatan) => [
+      q(3048),
+      q(0),
+      ],
+   q(yalakalore) => [
+      q(7554),
+      q(0),
+      ],
+   q(yalalag zapotec) => [
+      q(7919),
+      q(0),
+      ],
+   q(yalarnnga) => [
+      q(7670),
+      q(0),
+      ],
+   q(yale) => [
+      q(4758),
+      q(0),
+      ],
+   q(yaleba) => [
+      q(7662),
+      q(0),
+      ],
+   q(yalunka) => [
+      q(7571),
+      q(0),
+      ],
+   q(yamana) => [
+      q(7566),
+      q(0),
+      ],
+   q(yamap) => [
+      q(7685),
+      q(0),
+      ],
+   q(yamba) => [
+      q(7572),
+      q(0),
+      ],
+   q(yambes) => [
+      q(7673),
+      q(0),
+      ],
+   q(yambeta) => [
+      q(7577),
+      q(0),
+      ],
+   q(yamdena) => [
+      q(3118),
+      q(0),
+      ],
+   q(yameo) => [
+      q(7676),
+      q(0),
+      ],
+   q(yami) => [
+      q(6358),
+      q(0),
+      ],
+   q(yaminahua) => [
+      q(7560),
+      q(0),
+      ],
+   q(yamna) => [
+      q(7683),
+      q(0),
+      ],
+   q(yamongeri) => [
+      q(7677),
+      q(0),
+      ],
+   q(yamphu) => [
+      q(7588),
+      q(0),
+      ],
+   q(yan-nhangu) => [
+      q(3057),
+      q(0),
+      ],
+   q(yan-nhanu sign language) => [
+      q(7630),
+      q(0),
+      ],
+   q(yana) => [
+      q(7697),
+      q(0),
+      ],
+   q(yanahuanca pasco quechua) => [
+      q(5684),
+      q(0),
+      ],
+   q(yanda) => [
+      q(7601),
+      q(0),
+      ],
+   q(yanda dom dogon) => [
+      q(2199),
+      q(0),
+      ],
+   q(yandjibara) => [
+      q(7551),
+      q(0),
+      ],
+   q(yandruwandha) => [
+      q(7692),
+      q(0),
+      ],
+   q(yanesha') => [
+      q(0770),
+      q(0),
+      ],
+   q(yang zhuang) => [
+      q(7956),
+      q(0),
+      ],
+   q(yangben) => [
+      q(7579),
+      q(0),
+      ],
+   q(yangkam) => [
+      q(1469),
+      q(0),
+      ],
+   q(yangman) => [
+      q(3128),
+      q(0),
+      ],
+   q(yango) => [
+      q(7694),
+      q(0),
+      ],
+   q(yangulam) => [
+      q(7696),
+      q(0),
+      ],
+   q(yangum dey) => [
+      q(7603),
+      q(0),
+      ],
+   q(yangum gel) => [
+      q(7620),
+      q(0),
+      ],
+   q(yangum mon) => [
+      q(7684),
+      q(0),
+      ],
+   q(yankunytjatjara) => [
+      q(3236),
+      q(0),
+      ],
+   q(yanomami) => [
+      q(7079),
+      q(0),
+      ],
+   q(yanomamo) => [
+      q(2659),
+      q(0),
+      ],
+   q(yansi) => [
+      q(7700),
+      q(0),
+      ],
+   q(yanyuwa) => [
+      q(3051),
+      q(0),
+      ],
+   q(yao) => [
+      q(0473),
+      q(0),
+      ],
+   q(yaosakor asmat) => [
+      q(0908),
+      q(0),
+      ],
+   q(yaoure) => [
+      q(7723),
+      q(0),
+      ],
+   q(yapese) => [
+      q(0474),
+      q(0),
+      ],
+   q(yapunda) => [
+      q(7616),
+      q(0),
+      ],
+   q(yaqay) => [
+      q(3052),
+      q(0),
+      ],
+   q(yaqui) => [
+      q(7574),
+      q(0),
+      ],
+   q(yarawata) => [
+      q(7730),
+      q(0),
+      ],
+   q(yardliyawarra) => [
+      q(7781),
+      q(0),
+      ],
+   q(yareba) => [
+      q(7722),
+      q(0),
+      ],
+   q(yareni zapotec) => [
+      q(7794),
+      q(0),
+      ],
+   q(yarluyandi) => [
+      q(7731),
+      q(0),
+      ],
+   q(yaroame) => [
+      q(7728),
+      q(0),
+      ],
+   q(yarsun) => [
+      q(7729),
+      q(0),
+      ],
+   q(yasa) => [
+      q(7656),
+      q(0),
+      ],
+   q(yassic) => [
+      q(7732),
+      q(0),
+      ],
+   q(yatay) => [
+      q(7746),
+      q(0),
+      ],
+   q(yatee zapotec) => [
+      q(7949),
+      q(0),
+      ],
+   q(yatzachi zapotec) => [
+      q(7809),
+      q(0),
+      ],
+   q(yau (morobe province)) => [
+      q(7764),
+      q(0),
+      ],
+   q(yau (sandaun province)) => [
+      q(7786),
+      q(0),
+      ],
+   q(yaul) => [
+      q(7661),
+      q(0),
+      ],
+   q(yauma) => [
+      q(7581),
+      q(0),
+      ],
+   q(yaur) => [
+      q(3055),
+      q(0),
+      ],
+   q(yautepec zapotec) => [
+      q(7900),
+      q(0),
+      ],
+   q(yauyos quechua) => [
+      q(5688),
+      q(0),
+      ],
+   q(yavitero) => [
+      q(7769),
+      q(0),
+      ],
+   q(yawa) => [
+      q(7768),
+      q(0),
+      ],
+   q(yawalapiti) => [
+      q(7580),
+      q(0),
+      ],
+   q(yawanawa) => [
+      q(7773),
+      q(0),
+      ],
+   q(yawarawarga) => [
+      q(7778),
+      q(0),
+      ],
+   q(yaweyuha) => [
+      q(7596),
+      q(0),
+      ],
+   q(yawijibaya) => [
+      q(3067),
+      q(0),
+      ],
+   q(yawiyo) => [
+      q(7595),
+      q(0),
+      ],
+   q(yawuru) => [
+      q(7775),
+      q(0),
+      ],
+   q(yaygir) => [
+      q(7550),
+      q(0),
+      ],
+   q(yazgulyam) => [
+      q(7567),
+      q(0),
+      ],
+   q(yecuatla totonac) => [
+      q(6555),
+      q(0),
+      ],
+   q(yei) => [
+      q(3076),
+      q(0),
+      ],
+   q(yekhee) => [
+      q(2306),
+      q(0),
+      ],
+   q(yekora) => [
+      q(7657),
+      q(0),
+      ],
+   q(yela) => [
+      q(7611),
+      q(0),
+      ],
+   q(yele) => [
+      q(7663),
+      q(0),
+      ],
+   q(yelmek) => [
+      q(3078),
+      q(0),
+      ],
+   q(yelogu) => [
+      q(7664),
+      q(0),
+      ],
+   q(yemba) => [
+      q(7585),
+      q(0),
+      ],
+   q(yemsa) => [
+      q(3130),
+      q(0),
+      ],
+   q(yendang) => [
+      q(7699),
+      q(0),
+      ],
+   q(yeni) => [
+      q(7609),
+      q(0),
+      ],
+   q(yeniche) => [
+      q(7607),
+      q(0),
+      ],
+   q(yerakai) => [
+      q(7721),
+      q(0),
+      ],
+   q(yeretuar) => [
+      q(2596),
+      q(0),
+      ],
+   q(yerong) => [
+      q(7727),
+      q(0),
+      ],
+   q(yerukula) => [
+      q(7615),
+      q(0),
+      ],
+   q(yessan-mayo) => [
+      q(7740),
+      q(0),
+      ],
+   q(yetfa) => [
+      q(7614),
+      q(0),
+      ],
+   q(yevanic) => [
+      q(7610),
+      q(0),
+      ],
+   q(yeyi) => [
+      q(7617),
+      q(0),
+      ],
+   q(yiddish) => [
+      q(0475),
+      q(0),
+      ],
+   q(yidgha) => [
+      q(7604),
+      q(0),
+      ],
+   q(yidiny) => [
+      q(7634),
+      q(0),
+      ],
+   q(yil) => [
+      q(7666),
+      q(0),
+      ],
+   q(yimas) => [
+      q(7608),
+      q(0),
+      ],
+   q(yimchungru naga) => [
+      q(7638),
+      q(0),
+      ],
+   q(yinbaw karen) => [
+      q(3680),
+      q(0),
+      ],
+   q(yinchia) => [
+      q(7639),
+      q(0),
+      ],
+   q(yindjibarndi) => [
+      q(7635),
+      q(0),
+      ],
+   q(yindjilandji) => [
+      q(7637),
+      q(0),
+      ],
+   q(yine) => [
+      q(5447),
+      q(0),
+      ],
+   q(yinggarda) => [
+      q(7631),
+      q(0),
+      ],
+   q(yinhawangka) => [
+      q(7771),
+      q(0),
+      ],
+   q(yiningayi) => [
+      q(7619),
+      q(0),
+      ],
+   q(yintale) => [
+      q(3684),
+      q(1),
+      ],
+   q(yintale karen) => [
+      q(3684),
+      q(0),
+      ],
+   q(yinwum) => [
+      q(7782),
+      q(0),
+      ],
+   q(yipma) => [
+      q(1605),
+      q(1),
+      ],
+   q(yir yoront) => [
+      q(7785),
+      q(0),
+      ],
+   q(yirandali) => [
+      q(3928),
+      q(0),
+      ],
+   q(yirrk-mel) => [
+      q(7726),
+      q(0),
+      ],
+   q(yis) => [
+      q(7643),
+      q(0),
+      ],
+   q(yitha yitha) => [
+      q(7498),
+      q(0),
+      ],
+   q(yoba) => [
+      q(7702),
+      q(0),
+      ],
+   q(yocoboue dida) => [
+      q(2643),
+      q(0),
+      ],
+   q(yogad) => [
+      q(7703),
+      q(0),
+      ],
+   q(yoidik) => [
+      q(7605),
+      q(0),
+      ],
+   q(yoke) => [
+      q(7651),
+      q(0),
+      ],
+   q(yokuts) => [
+      q(7705),
+      q(0),
+      ],
+   q(yola) => [
+      q(7706),
+      q(0),
+      ],
+   q(yolnu sign language) => [
+      q(7624),
+      q(0),
+      ],
+   q(yoloxochitl mixtec) => [
+      q(7513),
+      q(0),
+      ],
+   q(yom) => [
+      q(5456),
+      q(0),
+      ],
+   q(yombe) => [
+      q(7707),
+      q(0),
+      ],
+   q(yonaguni) => [
+      q(7704),
+      q(0),
+      ],
+   q(yong) => [
+      q(7698),
+      q(0),
+      ],
+   q(yongbei zhuang) => [
+      q(7955),
+      q(0),
+      ],
+   q(yongkom) => [
+      q(7708),
+      q(0),
+      ],
+   q(yongnan zhuang) => [
+      q(7958),
+      q(0),
+      ],
+   q(yopno) => [
+      q(7763),
+      q(0),
+      ],
+   q(yora) => [
+      q(4566),
+      q(0),
+      ],
+   q(yoron) => [
+      q(7710),
+      q(0),
+      ],
+   q(yorta yorta) => [
+      q(7556),
+      q(0),
+      ],
+   q(yoruba) => [
+      q(0476),
+      q(0),
+      ],
+   q(yosondua mixtec) => [
+      q(4460),
+      q(0),
+      ],
+   q(yotti) => [
+      q(7709),
+      q(0),
+      ],
+   q(youjiang zhuang) => [
+      q(7957),
+      q(0),
+      ],
+   q(youle jinuo) => [
+      q(3102),
+      q(0),
+      ],
+   q(younuo bunu) => [
+      q(1499),
+      q(0),
+      ],
+   q(yout wam) => [
+      q(7745),
+      q(0),
+      ],
+   q(yoy) => [
+      q(7711),
+      q(0),
+      ],
+   q(yuanga) => [
+      q(5099),
+      q(0),
+      ],
+   q(yucatec maya) => [
+      q(7747),
+      q(1),
+      ],
+   q(yucatec maya sign language) => [
+      q(4526),
+      q(0),
+      ],
+   q(yucateco) => [
+      q(7747),
+      q(0),
+      ],
+   q(yuchi) => [
+      q(7749),
+      q(0),
+      ],
+   q(yucuane mixtec) => [
+      q(4599),
+      q(0),
+      ],
+   q(yucuna) => [
+      q(7599),
+      q(0),
+      ],
+   q(yue chinese) => [
+      q(7751),
+      q(0),
+      ],
+   q(yug) => [
+      q(7753),
+      q(0),
+      ],
+   q(yugambal) => [
+      q(7748),
+      q(0),
+      ],
+   q(yugoslavian sign language) => [
+      q(7735),
+      q(0),
+      ],
+   q(yugul) => [
+      q(7625),
+      q(0),
+      ],
+   q(yuhup) => [
+      q(7561),
+      q(0),
+      ],
+   q(yuki) => [
+      q(7756),
+      q(0),
+      ],
+   q(yukpa) => [
+      q(7760),
+      q(0),
+      ],
+   q(yukuben) => [
+      q(7591),
+      q(0),
+      ],
+   q(yulu) => [
+      q(7757),
+      q(0),
+      ],
+   q(yupik languages) => [
+      q(0477),
+      q(0),
+      ],
+   q(yuqui) => [
+      q(7761),
+      q(0),
+      ],
+   q(yuracare) => [
+      q(7767),
+      q(0),
+      ],
+   q(yurats) => [
+      q(5849),
+      q(0),
+      ],
+   q(yurok) => [
+      q(7762),
+      q(0),
+      ],
+   q(yuru) => [
+      q(3929),
+      q(0),
+      ],
+   q(yuruti) => [
+      q(7754),
+      q(0),
+      ],
+   q(yutanduchi mixtec) => [
+      q(4108),
+      q(0),
+      ],
+   q(yuwana) => [
+      q(7578),
+      q(0),
+      ],
+   q(yuyu) => [
+      q(7783),
+      q(0),
+      ],
+   q(ywom) => [
+      q(2479),
+      q(0),
+      ],
+   q(zaachila zapotec) => [
+      q(7948),
+      q(0),
+      ],
+   q(zabana) => [
+      q(3383),
+      q(0),
+      ],
+   q(zacatepec chatino) => [
+      q(1897),
+      q(0),
+      ],
+   q(zacatlan-ahuacatlan-tepetzintla nahuatl) => [
+      q(4861),
+      q(0),
+      ],
+   q(zaghawa) => [
+      q(7796),
+      q(0),
+      ],
+   q(zaiwa) => [
+      q(0911),
+      q(0),
+      ],
+   q(zakhring) => [
+      q(7852),
+      q(0),
+      ],
+   q(zambian sign language) => [
+      q(7934),
+      q(0),
+      ],
+   q(zan gula) => [
+      q(7887),
+      q(0),
+      ],
+   q(zanaki) => [
+      q(7800),
+      q(0),
+      ],
+   q(zande (individual language)) => [
+      q(7888),
+      q(0),
+      ],
+   q(zande languages) => [
+      q(0483),
+      q(0),
+      ],
+   q(zangskari) => [
+      q(7808),
+      q(0),
+      ],
+   q(zangwal) => [
+      q(7797),
+      q(0),
+      ],
+   q(zaniza zapotec) => [
+      q(7921),
+      q(0),
+      ],
+   q(zaparo) => [
+      q(7929),
+      q(0),
+      ],
+   q(zapotec) => [
+      q(0478),
+      q(0),
+      ],
+   q(zaramo) => [
+      q(7799),
+      q(0),
+      ],
+   q(zari) => [
+      q(7813),
+      q(0),
+      ],
+   q(zarma) => [
+      q(2056),
+      q(0),
+      ],
+   q(zarphatic) => [
+      q(7930),
+      q(0),
+      ],
+   q(zauzou) => [
+      q(7801),
+      q(0),
+      ],
+   q(zay) => [
+      q(7954),
+      q(0),
+      ],
+   q(zayein karen) => [
+      q(3719),
+      q(0),
+      ],
+   q(zayse-zergulla) => [
+      q(7812),
+      q(0),
+      ],
+   q(zaysete) => [
+      q(7812),
+      q(1),
+      ],
+   q(zaza) => [
+      q(0487),
+      q(0),
+      ],
+   q(zazaki) => [
+      q(0487),
+      q(5),
+      ],
+   q(zazao) => [
+      q(3046),
+      q(0),
+      ],
+   q(zeem) => [
+      q(7950),
+      q(0),
+      ],
+   q(zeeuws) => [
+      q(7821),
+      q(0),
+      ],
+   q(zemba) => [
+      q(2020),
+      q(0),
+      ],
+   q(zeme naga) => [
+      q(5175),
+      q(0),
+      ],
+   q(zemgalian) => [
+      q(7558),
+      q(0),
+      ],
+   q(zenag) => [
+      q(7822),
+      q(0),
+      ],
+   q(zenaga) => [
+      q(0480),
+      q(0),
+      ],
+   q(zenzontepec chatino) => [
+      q(1929),
+      q(0),
+      ],
+   q(zerenkel) => [
+      q(7928),
+      q(0),
+      ],
+   q(zhaba) => [
+      q(7829),
+      q(0),
+      ],
+   q(zhang-zhung) => [
+      q(7557),
+      q(0),
+      ],
+   q(zhire) => [
+      q(7831),
+      q(0),
+      ],
+   q(zhoa) => [
+      q(7833),
+      q(0),
+      ],
+   q(zhuang) => [
+      q(0482),
+      q(0),
+      ],
+   q(zia) => [
+      q(7834),
+      q(0),
+      ],
+   q(zialo) => [
+      q(7837),
+      q(0),
+      ],
+   q(zigula) => [
+      q(7841),
+      q(0),
+      ],
+   q(zimakani) => [
+      q(7836),
+      q(0),
+      ],
+   q(zimba) => [
+      q(7862),
+      q(0),
+      ],
+   q(zimbabwe sign language) => [
+      q(7835),
+      q(0),
+      ],
+   q(zinza) => [
+      q(7839),
+      q(0),
+      ],
+   q(zire) => [
+      q(6030),
+      q(0),
+      ],
+   q(ziriya) => [
+      q(7840),
+      q(0),
+      ],
+   q(zizilivakan) => [
+      q(7842),
+      q(0),
+      ],
+   q(zo'e) => [
+      q(5624),
+      q(0),
+      ],
+   q(zokhuo) => [
+      q(7789),
+      q(0),
+      ],
+   q(zoogocho zapotec) => [
+      q(7915),
+      q(0),
+      ],
+   q(zoroastrian dari) => [
+      q(2441),
+      q(0),
+      ],
+   q(zorop) => [
+      q(7101),
+      q(1),
+      ],
+   q(zotung chin) => [
+      q(1931),
+      q(0),
+      ],
+   q(zou) => [
+      q(7894),
+      q(0),
+      ],
+   q(zulgo-gemzek) => [
+      q(2568),
+      q(0),
+      ],
+   q(zulu) => [
+      q(0484),
+      q(0),
+      ],
+   q(zumaya) => [
+      q(7953),
+      q(0),
+      ],
+   q(zumbun) => [
+      q(3116),
+      q(0),
+      ],
+   q(zuni) => [
+      q(0485),
+      q(0),
+      ],
+   q(zuojiang zhuang) => [
+      q(7960),
+      q(0),
+      ],
+   q(zyphe chin) => [
+      q(7959),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'language'}{'code2id'} = {
+   q(alpha-2) => {
+      q(aa) => [
+         q(0001),
+         q(0),
+         ],
+      q(ab) => [
+         q(0002),
+         q(0),
+         ],
+      q(ae) => [
+         q(0034),
+         q(0),
+         ],
+      q(af) => [
+         q(0009),
+         q(0),
+         ],
+      q(ak) => [
+         q(0011),
+         q(0),
+         ],
+      q(am) => [
+         q(0017),
+         q(0),
+         ],
+      q(an) => [
+         q(0023),
+         q(0),
+         ],
+      q(ar) => [
+         q(0021),
+         q(0),
+         ],
+      q(as) => [
+         q(0029),
+         q(0),
+         ],
+      q(av) => [
+         q(0033),
+         q(0),
+         ],
+      q(ay) => [
+         q(0036),
+         q(0),
+         ],
+      q(az) => [
+         q(0037),
+         q(0),
+         ],
+      q(ba) => [
+         q(0040),
+         q(0),
+         ],
+      q(be) => [
+         q(0048),
+         q(0),
+         ],
+      q(bg) => [
+         q(0065),
+         q(0),
+         ],
+      q(bh) => [
+         q(0053),
+         q(0),
+         ],
+      q(bi) => [
+         q(0056),
+         q(0),
+         ],
+      q(bm) => [
+         q(0042),
+         q(0),
+         ],
+      q(bn) => [
+         q(0050),
+         q(0),
+         ],
+      q(bo) => [
+         q(0428),
+         q(0),
+         ],
+      q(br) => [
+         q(0061),
+         q(0),
+         ],
+      q(bs) => [
+         q(0059),
+         q(0),
+         ],
+      q(ca) => [
+         q(0071),
+         q(0),
+         ],
+      q(ce) => [
+         q(0077),
+         q(0),
+         ],
+      q(ch) => [
+         q(0075),
+         q(0),
+         ],
+      q(co) => [
+         q(0093),
+         q(0),
+         ],
+      q(cr) => [
+         q(0097),
+         q(0),
+         ],
+      q(cs) => [
+         q(0102),
+         q(0),
+         ],
+      q(cu) => [
+         q(0086),
+         q(0),
+         ],
+      q(cv) => [
+         q(0087),
+         q(0),
+         ],
+      q(cy) => [
+         q(0467),
+         q(0),
+         ],
+      q(da) => [
+         q(0104),
+         q(0),
+         ],
+      q(de) => [
+         q(0151),
+         q(0),
+         ],
+      q(dv) => [
+         q(0111),
+         q(1),
+         ],
+      q(dz) => [
+         q(0119),
+         q(0),
+         ],
+      q(ee) => [
+         q(0128),
+         q(0),
+         ],
+      q(el) => [
+         q(0165),
+         q(2),
+         ],
+      q(en) => [
+         q(0124),
+         q(0),
+         ],
+      q(eo) => [
+         q(0126),
+         q(0),
+         ],
+      q(es) => [
+         q(0402),
+         q(0),
+         ],
+      q(et) => [
+         q(0127),
+         q(0),
+         ],
+      q(eu) => [
+         q(0044),
+         q(0),
+         ],
+      q(fa) => [
+         q(0343),
+         q(0),
+         ],
+      q(ff) => [
+         q(0144),
+         q(0),
+         ],
+      q(fi) => [
+         q(0135),
+         q(0),
+         ],
+      q(fj) => [
+         q(0133),
+         q(0),
+         ],
+      q(fo) => [
+         q(0131),
+         q(0),
+         ],
+      q(fr) => [
+         q(0138),
+         q(0),
+         ],
+      q(fy) => [
+         q(0143),
+         q(0),
+         ],
+      q(ga) => [
+         q(0155),
+         q(0),
+         ],
+      q(gd) => [
+         q(0154),
+         q(1),
+         ],
+      q(gl) => [
+         q(0156),
+         q(0),
+         ],
+      q(gn) => [
+         q(0166),
+         q(0),
+         ],
+      q(gu) => [
+         q(0168),
+         q(0),
+         ],
+      q(gv) => [
+         q(0157),
+         q(0),
+         ],
+      q(ha) => [
+         q(0172),
+         q(0),
+         ],
+      q(he) => [
+         q(0174),
+         q(0),
+         ],
+      q(hi) => [
+         q(0178),
+         q(0),
+         ],
+      q(ho) => [
+         q(0181),
+         q(0),
+         ],
+      q(hr) => [
+         q(0182),
+         q(0),
+         ],
+      q(ht) => [
+         q(0171),
+         q(0),
+         ],
+      q(hu) => [
+         q(0184),
+         q(0),
+         ],
+      q(hy) => [
+         q(0024),
+         q(0),
+         ],
+      q(hz) => [
+         q(0175),
+         q(0),
+         ],
+      q(ia) => [
+         q(0195),
+         q(0),
+         ],
+      q(id) => [
+         q(0197),
+         q(0),
+         ],
+      q(ie) => [
+         q(0193),
+         q(0),
+         ],
+      q(ig) => [
+         q(0187),
+         q(0),
+         ],
+      q(ii) => [
+         q(0190),
+         q(0),
+         ],
+      q(ik) => [
+         q(0200),
+         q(0),
+         ],
+      q(io) => [
+         q(0189),
+         q(0),
+         ],
+      q(is) => [
+         q(0188),
+         q(0),
+         ],
+      q(it) => [
+         q(0203),
+         q(0),
+         ],
+      q(iu) => [
+         q(0192),
+         q(0),
+         ],
+      q(ja) => [
+         q(0206),
+         q(0),
+         ],
+      q(jv) => [
+         q(0204),
+         q(0),
+         ],
+      q(ka) => [
+         q(0150),
+         q(0),
+         ],
+      q(kg) => [
+         q(0231),
+         q(0),
+         ],
+      q(ki) => [
+         q(0225),
+         q(0),
+         ],
+      q(kj) => [
+         q(0239),
+         q(0),
+         ],
+      q(kk) => [
+         q(0219),
+         q(0),
+         ],
+      q(kl) => [
+         q(0212),
+         q(0),
+         ],
+      q(km) => [
+         q(0223),
+         q(0),
+         ],
+      q(kn) => [
+         q(0214),
+         q(0),
+         ],
+      q(ko) => [
+         q(0232),
+         q(0),
+         ],
+      q(kr) => [
+         q(0217),
+         q(0),
+         ],
+      q(ks) => [
+         q(0216),
+         q(0),
+         ],
+      q(ku) => [
+         q(0241),
+         q(0),
+         ],
+      q(kv) => [
+         q(0230),
+         q(0),
+         ],
+      q(kw) => [
+         q(0092),
+         q(0),
+         ],
+      q(ky) => [
+         q(0227),
+         q(0),
+         ],
+      q(la) => [
+         q(0247),
+         q(0),
+         ],
+      q(lb) => [
+         q(0255),
+         q(0),
+         ],
+      q(lg) => [
+         q(0258),
+         q(0),
+         ],
+      q(li) => [
+         q(0250),
+         q(0),
+         ],
+      q(ln) => [
+         q(0251),
+         q(0),
+         ],
+      q(lo) => [
+         q(0246),
+         q(0),
+         ],
+      q(lt) => [
+         q(0252),
+         q(0),
+         ],
+      q(lu) => [
+         q(0257),
+         q(0),
+         ],
+      q(lv) => [
+         q(0248),
+         q(0),
+         ],
+      q(mg) => [
+         q(0284),
+         q(0),
+         ],
+      q(mh) => [
+         q(0266),
+         q(0),
+         ],
+      q(mi) => [
+         q(0271),
+         q(0),
+         ],
+      q(mk) => [
+         q(0263),
+         q(0),
+         ],
+      q(ml) => [
+         q(0269),
+         q(0),
+         ],
+      q(mn) => [
+         q(0290),
+         q(0),
+         ],
+      q(mr) => [
+         q(0273),
+         q(0),
+         ],
+      q(ms) => [
+         q(0275),
+         q(1),
+         ],
+      q(mt) => [
+         q(0285),
+         q(0),
+         ],
+      q(my) => [
+         q(0066),
+         q(0),
+         ],
+      q(na) => [
+         q(0302),
+         q(0),
+         ],
+      q(nb) => [
+         q(0314),
+         q(1),
+         ],
+      q(nd) => [
+         q(0305),
+         q(1),
+         ],
+      q(ne) => [
+         q(0308),
+         q(1),
+         ],
+      q(ng) => [
+         q(0306),
+         q(0),
+         ],
+      q(nl) => [
+         q(0117),
+         q(0),
+         ],
+      q(nn) => [
+         q(0313),
+         q(0),
+         ],
+      q(no) => [
+         q(0317),
+         q(0),
+         ],
+      q(nr) => [
+         q(0304),
+         q(1),
+         ],
+      q(nv) => [
+         q(0303),
+         q(0),
+         ],
+      q(ny) => [
+         q(0322),
+         q(2),
+         ],
+      q(oc) => [
+         q(0327),
+         q(0),
+         ],
+      q(oj) => [
+         q(0328),
+         q(0),
+         ],
+      q(om) => [
+         q(0330),
+         q(0),
+         ],
+      q(or) => [
+         q(0329),
+         q(1),
+         ],
+      q(os) => [
+         q(0332),
+         q(0),
+         ],
+      q(pa) => [
+         q(0339),
+         q(0),
+         ],
+      q(pi) => [
+         q(0346),
+         q(0),
+         ],
+      q(pl) => [
+         q(0347),
+         q(0),
+         ],
+      q(ps) => [
+         q(0352),
+         q(0),
+         ],
+      q(pt) => [
+         q(0349),
+         q(0),
+         ],
+      q(qu) => [
+         q(0354),
+         q(0),
+         ],
+      q(rm) => [
+         q(0359),
+         q(0),
+         ],
+      q(rn) => [
+         q(0362),
+         q(0),
+         ],
+      q(ro) => [
+         q(0361),
+         q(0),
+         ],
+      q(ru) => [
+         q(0364),
+         q(0),
+         ],
+      q(rw) => [
+         q(0226),
+         q(0),
+         ],
+      q(sa) => [
+         q(0371),
+         q(0),
+         ],
+      q(sc) => [
+         q(0403),
+         q(0),
+         ],
+      q(sd) => [
+         q(0396),
+         q(0),
+         ],
+      q(se) => [
+         q(0389),
+         q(0),
+         ],
+      q(sg) => [
+         q(0366),
+         q(0),
+         ],
+      q(sh) => [
+         q(0538),
+         q(0),
+         ],
+      q(si) => [
+         q(0382),
+         q(0),
+         ],
+      q(sk) => [
+         q(0386),
+         q(0),
+         ],
+      q(sl) => [
+         q(0387),
+         q(0),
+         ],
+      q(sm) => [
+         q(0393),
+         q(0),
+         ],
+      q(sn) => [
+         q(0395),
+         q(0),
+         ],
+      q(so) => [
+         q(0399),
+         q(0),
+         ],
+      q(sq) => [
+         q(0013),
+         q(0),
+         ],
+      q(sr) => [
+         q(0405),
+         q(0),
+         ],
+      q(ss) => [
+         q(0408),
+         q(0),
+         ],
+      q(st) => [
+         q(0401),
+         q(1),
+         ],
+      q(su) => [
+         q(0410),
+         q(0),
+         ],
+      q(sv) => [
+         q(0414),
+         q(0),
+         ],
+      q(sw) => [
+         q(0413),
+         q(1),
+         ],
+      q(ta) => [
+         q(0419),
+         q(0),
+         ],
+      q(te) => [
+         q(0421),
+         q(0),
+         ],
+      q(tg) => [
+         q(0425),
+         q(0),
+         ],
+      q(th) => [
+         q(0427),
+         q(0),
+         ],
+      q(ti) => [
+         q(0430),
+         q(0),
+         ],
+      q(tk) => [
+         q(0442),
+         q(0),
+         ],
+      q(tl) => [
+         q(0426),
+         q(0),
+         ],
+      q(tn) => [
+         q(0440),
+         q(0),
+         ],
+      q(to) => [
+         q(0437),
+         q(0),
+         ],
+      q(tr) => [
+         q(0445),
+         q(0),
+         ],
+      q(ts) => [
+         q(0441),
+         q(0),
+         ],
+      q(tt) => [
+         q(0420),
+         q(0),
+         ],
+      q(tw) => [
+         q(0448),
+         q(0),
+         ],
+      q(ty) => [
+         q(0417),
+         q(0),
+         ],
+      q(ug) => [
+         q(0452),
+         q(0),
+         ],
+      q(uk) => [
+         q(0453),
+         q(0),
+         ],
+      q(ur) => [
+         q(0456),
+         q(0),
+         ],
+      q(uz) => [
+         q(0457),
+         q(0),
+         ],
+      q(ve) => [
+         q(0459),
+         q(0),
+         ],
+      q(vi) => [
+         q(0460),
+         q(0),
+         ],
+      q(vo) => [
+         q(0461),
+         q(0),
+         ],
+      q(wa) => [
+         q(0469),
+         q(0),
+         ],
+      q(wo) => [
+         q(0470),
+         q(0),
+         ],
+      q(xh) => [
+         q(0472),
+         q(0),
+         ],
+      q(yi) => [
+         q(0475),
+         q(0),
+         ],
+      q(yo) => [
+         q(0476),
+         q(0),
+         ],
+      q(za) => [
+         q(0482),
+         q(0),
+         ],
+      q(zh) => [
+         q(0079),
+         q(0),
+         ],
+      q(zu) => [
+         q(0484),
+         q(0),
+         ],
+      },
+   q(alpha-3) => {
+      q(aaa) => [
+         q(0539),
+         q(0),
+         ],
+      q(aab) => [
+         q(0540),
+         q(0),
+         ],
+      q(aac) => [
+         q(0541),
+         q(0),
+         ],
+      q(aad) => [
+         q(0542),
+         q(0),
+         ],
+      q(aae) => [
+         q(0543),
+         q(0),
+         ],
+      q(aaf) => [
+         q(0544),
+         q(0),
+         ],
+      q(aag) => [
+         q(0545),
+         q(0),
+         ],
+      q(aah) => [
+         q(0546),
+         q(0),
+         ],
+      q(aai) => [
+         q(0547),
+         q(0),
+         ],
+      q(aak) => [
+         q(0548),
+         q(0),
+         ],
+      q(aal) => [
+         q(0549),
+         q(0),
+         ],
+      q(aan) => [
+         q(0550),
+         q(0),
+         ],
+      q(aao) => [
+         q(0551),
+         q(0),
+         ],
+      q(aap) => [
+         q(0552),
+         q(0),
+         ],
+      q(aaq) => [
+         q(0553),
+         q(0),
+         ],
+      q(aar) => [
+         q(0001),
+         q(0),
+         ],
+      q(aas) => [
+         q(0554),
+         q(0),
+         ],
+      q(aat) => [
+         q(0555),
+         q(0),
+         ],
+      q(aau) => [
+         q(0556),
+         q(0),
+         ],
+      q(aav) => [
+         q(0488),
+         q(0),
+         ],
+      q(aaw) => [
+         q(0557),
+         q(0),
+         ],
+      q(aax) => [
+         q(0558),
+         q(0),
+         ],
+      q(aaz) => [
+         q(0559),
+         q(0),
+         ],
+      q(aba) => [
+         q(0560),
+         q(0),
+         ],
+      q(abb) => [
+         q(0561),
+         q(0),
+         ],
+      q(abc) => [
+         q(0562),
+         q(0),
+         ],
+      q(abd) => [
+         q(0563),
+         q(0),
+         ],
+      q(abe) => [
+         q(0564),
+         q(0),
+         ],
+      q(abf) => [
+         q(0565),
+         q(0),
+         ],
+      q(abg) => [
+         q(0566),
+         q(0),
+         ],
+      q(abh) => [
+         q(0567),
+         q(0),
+         ],
+      q(abi) => [
+         q(0568),
+         q(0),
+         ],
+      q(abj) => [
+         q(0569),
+         q(0),
+         ],
+      q(abk) => [
+         q(0002),
+         q(0),
+         ],
+      q(abl) => [
+         q(0570),
+         q(0),
+         ],
+      q(abm) => [
+         q(0571),
+         q(0),
+         ],
+      q(abn) => [
+         q(0572),
+         q(0),
+         ],
+      q(abo) => [
+         q(0573),
+         q(0),
+         ],
+      q(abp) => [
+         q(0574),
+         q(0),
+         ],
+      q(abq) => [
+         q(0575),
+         q(0),
+         ],
+      q(abr) => [
+         q(0576),
+         q(0),
+         ],
+      q(abs) => [
+         q(0577),
+         q(0),
+         ],
+      q(abt) => [
+         q(0578),
+         q(0),
+         ],
+      q(abu) => [
+         q(0579),
+         q(0),
+         ],
+      q(abv) => [
+         q(0580),
+         q(0),
+         ],
+      q(abw) => [
+         q(0581),
+         q(0),
+         ],
+      q(abx) => [
+         q(0582),
+         q(0),
+         ],
+      q(aby) => [
+         q(0583),
+         q(0),
+         ],
+      q(abz) => [
+         q(0584),
+         q(0),
+         ],
+      q(aca) => [
+         q(0585),
+         q(0),
+         ],
+      q(acb) => [
+         q(0586),
+         q(0),
+         ],
+      q(acd) => [
+         q(0587),
+         q(0),
+         ],
+      q(ace) => [
+         q(0003),
+         q(0),
+         ],
+      q(acf) => [
+         q(0588),
+         q(0),
+         ],
+      q(ach) => [
+         q(0004),
+         q(0),
+         ],
+      q(aci) => [
+         q(0589),
+         q(0),
+         ],
+      q(ack) => [
+         q(0590),
+         q(0),
+         ],
+      q(acl) => [
+         q(0591),
+         q(0),
+         ],
+      q(acm) => [
+         q(0592),
+         q(0),
+         ],
+      q(acn) => [
+         q(0593),
+         q(0),
+         ],
+      q(acp) => [
+         q(0594),
+         q(0),
+         ],
+      q(acq) => [
+         q(0595),
+         q(0),
+         ],
+      q(acr) => [
+         q(0596),
+         q(0),
+         ],
+      q(acs) => [
+         q(0597),
+         q(0),
+         ],
+      q(act) => [
+         q(0598),
+         q(0),
+         ],
+      q(acu) => [
+         q(0599),
+         q(0),
+         ],
+      q(acv) => [
+         q(0600),
+         q(0),
+         ],
+      q(acw) => [
+         q(0601),
+         q(0),
+         ],
+      q(acx) => [
+         q(0602),
+         q(0),
+         ],
+      q(acy) => [
+         q(0603),
+         q(0),
+         ],
+      q(acz) => [
+         q(0604),
+         q(0),
+         ],
+      q(ada) => [
+         q(0005),
+         q(0),
+         ],
+      q(adb) => [
+         q(0605),
+         q(0),
+         ],
+      q(add) => [
+         q(0606),
+         q(0),
+         ],
+      q(ade) => [
+         q(0607),
+         q(0),
+         ],
+      q(adf) => [
+         q(0608),
+         q(0),
+         ],
+      q(adg) => [
+         q(0609),
+         q(0),
+         ],
+      q(adh) => [
+         q(0610),
+         q(0),
+         ],
+      q(adi) => [
+         q(0611),
+         q(0),
+         ],
+      q(adj) => [
+         q(0612),
+         q(0),
+         ],
+      q(adl) => [
+         q(0613),
+         q(0),
+         ],
+      q(adn) => [
+         q(0614),
+         q(0),
+         ],
+      q(ado) => [
+         q(0615),
+         q(0),
+         ],
+      q(adq) => [
+         q(0616),
+         q(0),
+         ],
+      q(adr) => [
+         q(0617),
+         q(0),
+         ],
+      q(ads) => [
+         q(0618),
+         q(0),
+         ],
+      q(adt) => [
+         q(0619),
+         q(0),
+         ],
+      q(adu) => [
+         q(0620),
+         q(0),
+         ],
+      q(adw) => [
+         q(0621),
+         q(0),
+         ],
+      q(adx) => [
+         q(0622),
+         q(0),
+         ],
+      q(ady) => [
+         q(0006),
+         q(0),
+         ],
+      q(adz) => [
+         q(0623),
+         q(0),
+         ],
+      q(aea) => [
+         q(0624),
+         q(0),
+         ],
+      q(aeb) => [
+         q(0625),
+         q(0),
+         ],
+      q(aec) => [
+         q(0626),
+         q(0),
+         ],
+      q(aed) => [
+         q(0627),
+         q(0),
+         ],
+      q(aee) => [
+         q(0628),
+         q(0),
+         ],
+      q(aek) => [
+         q(0629),
+         q(0),
+         ],
+      q(ael) => [
+         q(0630),
+         q(0),
+         ],
+      q(aem) => [
+         q(0631),
+         q(0),
+         ],
+      q(aen) => [
+         q(0632),
+         q(0),
+         ],
+      q(aeq) => [
+         q(0633),
+         q(0),
+         ],
+      q(aer) => [
+         q(0634),
+         q(0),
+         ],
+      q(aes) => [
+         q(0635),
+         q(0),
+         ],
+      q(aeu) => [
+         q(0636),
+         q(0),
+         ],
+      q(aew) => [
+         q(0637),
+         q(0),
+         ],
+      q(aey) => [
+         q(0638),
+         q(0),
+         ],
+      q(aez) => [
+         q(0639),
+         q(0),
+         ],
+      q(afa) => [
+         q(0007),
+         q(0),
+         ],
+      q(afb) => [
+         q(0640),
+         q(0),
+         ],
+      q(afd) => [
+         q(0641),
+         q(0),
+         ],
+      q(afe) => [
+         q(0642),
+         q(0),
+         ],
+      q(afg) => [
+         q(0643),
+         q(0),
+         ],
+      q(afh) => [
+         q(0008),
+         q(0),
+         ],
+      q(afi) => [
+         q(0644),
+         q(0),
+         ],
+      q(afk) => [
+         q(0645),
+         q(0),
+         ],
+      q(afn) => [
+         q(0646),
+         q(0),
+         ],
+      q(afo) => [
+         q(0647),
+         q(0),
+         ],
+      q(afp) => [
+         q(0648),
+         q(0),
+         ],
+      q(afr) => [
+         q(0009),
+         q(0),
+         ],
+      q(afs) => [
+         q(0649),
+         q(0),
+         ],
+      q(aft) => [
+         q(0650),
+         q(0),
+         ],
+      q(afu) => [
+         q(0651),
+         q(0),
+         ],
+      q(afz) => [
+         q(0652),
+         q(0),
+         ],
+      q(aga) => [
+         q(0653),
+         q(0),
+         ],
+      q(agb) => [
+         q(0654),
+         q(0),
+         ],
+      q(agc) => [
+         q(0655),
+         q(0),
+         ],
+      q(agd) => [
+         q(0656),
+         q(0),
+         ],
+      q(age) => [
+         q(0657),
+         q(0),
+         ],
+      q(agf) => [
+         q(0658),
+         q(0),
+         ],
+      q(agg) => [
+         q(0659),
+         q(0),
+         ],
+      q(agh) => [
+         q(0660),
+         q(0),
+         ],
+      q(agi) => [
+         q(0661),
+         q(0),
+         ],
+      q(agj) => [
+         q(0662),
+         q(0),
+         ],
+      q(agk) => [
+         q(0663),
+         q(0),
+         ],
+      q(agl) => [
+         q(0664),
+         q(0),
+         ],
+      q(agm) => [
+         q(0665),
+         q(0),
+         ],
+      q(agn) => [
+         q(0666),
+         q(0),
+         ],
+      q(ago) => [
+         q(0667),
+         q(0),
+         ],
+      q(agq) => [
+         q(0668),
+         q(0),
+         ],
+      q(agr) => [
+         q(0669),
+         q(0),
+         ],
+      q(ags) => [
+         q(0670),
+         q(0),
+         ],
+      q(agt) => [
+         q(0671),
+         q(0),
+         ],
+      q(agu) => [
+         q(0672),
+         q(0),
+         ],
+      q(agv) => [
+         q(0673),
+         q(0),
+         ],
+      q(agw) => [
+         q(0674),
+         q(0),
+         ],
+      q(agx) => [
+         q(0675),
+         q(0),
+         ],
+      q(agy) => [
+         q(0676),
+         q(0),
+         ],
+      q(agz) => [
+         q(0677),
+         q(0),
+         ],
+      q(aha) => [
+         q(0678),
+         q(0),
+         ],
+      q(ahb) => [
+         q(0679),
+         q(0),
+         ],
+      q(ahg) => [
+         q(0680),
+         q(0),
+         ],
+      q(ahh) => [
+         q(0681),
+         q(0),
+         ],
+      q(ahi) => [
+         q(0682),
+         q(0),
+         ],
+      q(ahk) => [
+         q(0683),
+         q(0),
+         ],
+      q(ahl) => [
+         q(0684),
+         q(0),
+         ],
+      q(ahm) => [
+         q(0685),
+         q(0),
+         ],
+      q(ahn) => [
+         q(0686),
+         q(0),
+         ],
+      q(aho) => [
+         q(0687),
+         q(0),
+         ],
+      q(ahp) => [
+         q(0688),
+         q(0),
+         ],
+      q(ahr) => [
+         q(0689),
+         q(0),
+         ],
+      q(ahs) => [
+         q(0690),
+         q(0),
+         ],
+      q(aht) => [
+         q(0691),
+         q(0),
+         ],
+      q(aia) => [
+         q(0692),
+         q(0),
+         ],
+      q(aib) => [
+         q(0693),
+         q(0),
+         ],
+      q(aic) => [
+         q(0694),
+         q(0),
+         ],
+      q(aid) => [
+         q(0695),
+         q(0),
+         ],
+      q(aie) => [
+         q(0696),
+         q(0),
+         ],
+      q(aif) => [
+         q(0697),
+         q(0),
+         ],
+      q(aig) => [
+         q(0698),
+         q(0),
+         ],
+      q(aih) => [
+         q(0699),
+         q(0),
+         ],
+      q(aii) => [
+         q(0700),
+         q(0),
+         ],
+      q(aij) => [
+         q(0701),
+         q(0),
+         ],
+      q(aik) => [
+         q(0702),
+         q(0),
+         ],
+      q(ail) => [
+         q(0703),
+         q(0),
+         ],
+      q(aim) => [
+         q(0704),
+         q(0),
+         ],
+      q(ain) => [
+         q(0010),
+         q(1),
+         ],
+      q(aio) => [
+         q(0705),
+         q(0),
+         ],
+      q(aip) => [
+         q(0706),
+         q(0),
+         ],
+      q(aiq) => [
+         q(0707),
+         q(0),
+         ],
+      q(air) => [
+         q(0708),
+         q(0),
+         ],
+      q(ais) => [
+         q(0709),
+         q(0),
+         ],
+      q(ait) => [
+         q(0710),
+         q(0),
+         ],
+      q(aiw) => [
+         q(0711),
+         q(0),
+         ],
+      q(aix) => [
+         q(0712),
+         q(0),
+         ],
+      q(aiy) => [
+         q(0713),
+         q(0),
+         ],
+      q(aja) => [
+         q(0714),
+         q(0),
+         ],
+      q(ajg) => [
+         q(0715),
+         q(0),
+         ],
+      q(aji) => [
+         q(0716),
+         q(0),
+         ],
+      q(ajn) => [
+         q(0717),
+         q(0),
+         ],
+      q(ajp) => [
+         q(0718),
+         q(0),
+         ],
+      q(ajt) => [
+         q(0719),
+         q(0),
+         ],
+      q(aju) => [
+         q(0720),
+         q(0),
+         ],
+      q(ajw) => [
+         q(0721),
+         q(0),
+         ],
+      q(ajz) => [
+         q(0722),
+         q(0),
+         ],
+      q(aka) => [
+         q(0011),
+         q(0),
+         ],
+      q(akb) => [
+         q(0723),
+         q(0),
+         ],
+      q(akc) => [
+         q(0724),
+         q(0),
+         ],
+      q(akd) => [
+         q(0725),
+         q(0),
+         ],
+      q(ake) => [
+         q(0726),
+         q(0),
+         ],
+      q(akf) => [
+         q(0727),
+         q(0),
+         ],
+      q(akg) => [
+         q(0728),
+         q(0),
+         ],
+      q(akh) => [
+         q(0729),
+         q(0),
+         ],
+      q(aki) => [
+         q(0730),
+         q(0),
+         ],
+      q(akj) => [
+         q(0731),
+         q(0),
+         ],
+      q(akk) => [
+         q(0012),
+         q(0),
+         ],
+      q(akl) => [
+         q(0732),
+         q(0),
+         ],
+      q(akm) => [
+         q(0733),
+         q(0),
+         ],
+      q(ako) => [
+         q(0734),
+         q(0),
+         ],
+      q(akp) => [
+         q(0735),
+         q(0),
+         ],
+      q(akq) => [
+         q(0736),
+         q(0),
+         ],
+      q(akr) => [
+         q(0737),
+         q(0),
+         ],
+      q(aks) => [
+         q(0738),
+         q(0),
+         ],
+      q(akt) => [
+         q(0739),
+         q(0),
+         ],
+      q(aku) => [
+         q(0740),
+         q(0),
+         ],
+      q(akv) => [
+         q(0741),
+         q(0),
+         ],
+      q(akw) => [
+         q(0742),
+         q(0),
+         ],
+      q(akx) => [
+         q(0743),
+         q(0),
+         ],
+      q(aky) => [
+         q(0744),
+         q(0),
+         ],
+      q(akz) => [
+         q(0745),
+         q(0),
+         ],
+      q(ala) => [
+         q(0746),
+         q(0),
+         ],
+      q(alb) => [
+         q(0013),
+         q(0),
+         ],
+      q(alc) => [
+         q(0747),
+         q(0),
+         ],
+      q(ald) => [
+         q(0748),
+         q(0),
+         ],
+      q(ale) => [
+         q(0014),
+         q(0),
+         ],
+      q(alf) => [
+         q(0749),
+         q(0),
+         ],
+      q(alg) => [
+         q(0015),
+         q(0),
+         ],
+      q(alh) => [
+         q(0750),
+         q(0),
+         ],
+      q(ali) => [
+         q(0751),
+         q(0),
+         ],
+      q(alj) => [
+         q(0752),
+         q(0),
+         ],
+      q(alk) => [
+         q(0753),
+         q(0),
+         ],
+      q(all) => [
+         q(0754),
+         q(0),
+         ],
+      q(alm) => [
+         q(0755),
+         q(0),
+         ],
+      q(aln) => [
+         q(0756),
+         q(0),
+         ],
+      q(alo) => [
+         q(0757),
+         q(0),
+         ],
+      q(alp) => [
+         q(0758),
+         q(0),
+         ],
+      q(alq) => [
+         q(0759),
+         q(0),
+         ],
+      q(alr) => [
+         q(0760),
+         q(0),
+         ],
+      q(als) => [
+         q(0761),
+         q(0),
+         ],
+      q(alt) => [
+         q(0016),
+         q(0),
+         ],
+      q(alu) => [
+         q(0762),
+         q(0),
+         ],
+      q(alv) => [
+         q(0489),
+         q(0),
+         ],
+      q(alw) => [
+         q(0763),
+         q(0),
+         ],
+      q(alx) => [
+         q(0764),
+         q(0),
+         ],
+      q(aly) => [
+         q(0765),
+         q(0),
+         ],
+      q(alz) => [
+         q(0766),
+         q(0),
+         ],
+      q(ama) => [
+         q(0767),
+         q(0),
+         ],
+      q(amb) => [
+         q(0768),
+         q(0),
+         ],
+      q(amc) => [
+         q(0769),
+         q(0),
+         ],
+      q(ame) => [
+         q(0770),
+         q(0),
+         ],
+      q(amf) => [
+         q(0771),
+         q(0),
+         ],
+      q(amg) => [
+         q(0772),
+         q(0),
+         ],
+      q(amh) => [
+         q(0017),
+         q(0),
+         ],
+      q(ami) => [
+         q(0773),
+         q(0),
+         ],
+      q(amj) => [
+         q(0774),
+         q(0),
+         ],
+      q(amk) => [
+         q(0775),
+         q(0),
+         ],
+      q(aml) => [
+         q(0776),
+         q(0),
+         ],
+      q(amm) => [
+         q(0777),
+         q(0),
+         ],
+      q(amn) => [
+         q(0778),
+         q(0),
+         ],
+      q(amo) => [
+         q(0779),
+         q(0),
+         ],
+      q(amp) => [
+         q(0780),
+         q(0),
+         ],
+      q(amq) => [
+         q(0781),
+         q(0),
+         ],
+      q(amr) => [
+         q(0782),
+         q(0),
+         ],
+      q(ams) => [
+         q(0783),
+         q(0),
+         ],
+      q(amt) => [
+         q(0784),
+         q(0),
+         ],
+      q(amu) => [
+         q(0785),
+         q(0),
+         ],
+      q(amv) => [
+         q(0786),
+         q(0),
+         ],
+      q(amw) => [
+         q(0787),
+         q(0),
+         ],
+      q(amx) => [
+         q(0788),
+         q(0),
+         ],
+      q(amy) => [
+         q(0789),
+         q(0),
+         ],
+      q(amz) => [
+         q(0790),
+         q(0),
+         ],
+      q(ana) => [
+         q(0791),
+         q(0),
+         ],
+      q(anb) => [
+         q(0792),
+         q(0),
+         ],
+      q(anc) => [
+         q(0793),
+         q(0),
+         ],
+      q(and) => [
+         q(0794),
+         q(0),
+         ],
+      q(ane) => [
+         q(0795),
+         q(0),
+         ],
+      q(anf) => [
+         q(0796),
+         q(0),
+         ],
+      q(ang) => [
+         q(0018),
+         q(1),
+         ],
+      q(anh) => [
+         q(0797),
+         q(0),
+         ],
+      q(ani) => [
+         q(0798),
+         q(0),
+         ],
+      q(anj) => [
+         q(0799),
+         q(0),
+         ],
+      q(ank) => [
+         q(0800),
+         q(0),
+         ],
+      q(anl) => [
+         q(0801),
+         q(0),
+         ],
+      q(anm) => [
+         q(0802),
+         q(0),
+         ],
+      q(ann) => [
+         q(0803),
+         q(0),
+         ],
+      q(ano) => [
+         q(0804),
+         q(0),
+         ],
+      q(anp) => [
+         q(0019),
+         q(0),
+         ],
+      q(anq) => [
+         q(0805),
+         q(0),
+         ],
+      q(anr) => [
+         q(0806),
+         q(0),
+         ],
+      q(ans) => [
+         q(0807),
+         q(0),
+         ],
+      q(ant) => [
+         q(0808),
+         q(0),
+         ],
+      q(anu) => [
+         q(0809),
+         q(0),
+         ],
+      q(anv) => [
+         q(0810),
+         q(0),
+         ],
+      q(anw) => [
+         q(0811),
+         q(0),
+         ],
+      q(anx) => [
+         q(0812),
+         q(0),
+         ],
+      q(any) => [
+         q(0813),
+         q(0),
+         ],
+      q(anz) => [
+         q(0814),
+         q(0),
+         ],
+      q(aoa) => [
+         q(0815),
+         q(0),
+         ],
+      q(aob) => [
+         q(0816),
+         q(0),
+         ],
+      q(aoc) => [
+         q(0817),
+         q(0),
+         ],
+      q(aod) => [
+         q(0818),
+         q(0),
+         ],
+      q(aoe) => [
+         q(0819),
+         q(0),
+         ],
+      q(aof) => [
+         q(0820),
+         q(0),
+         ],
+      q(aog) => [
+         q(0821),
+         q(0),
+         ],
+      q(aoh) => [
+         q(0822),
+         q(0),
+         ],
+      q(aoi) => [
+         q(0823),
+         q(0),
+         ],
+      q(aoj) => [
+         q(0824),
+         q(0),
+         ],
+      q(aok) => [
+         q(0825),
+         q(0),
+         ],
+      q(aol) => [
+         q(0826),
+         q(0),
+         ],
+      q(aom) => [
+         q(0827),
+         q(0),
+         ],
+      q(aon) => [
+         q(0828),
+         q(0),
+         ],
+      q(aor) => [
+         q(0829),
+         q(0),
+         ],
+      q(aos) => [
+         q(0830),
+         q(0),
+         ],
+      q(aot) => [
+         q(0831),
+         q(0),
+         ],
+      q(aou) => [
+         q(0832),
+         q(0),
+         ],
+      q(aox) => [
+         q(0833),
+         q(0),
+         ],
+      q(aoz) => [
+         q(0834),
+         q(0),
+         ],
+      q(apa) => [
+         q(0020),
+         q(0),
+         ],
+      q(apb) => [
+         q(0835),
+         q(0),
+         ],
+      q(apc) => [
+         q(0836),
+         q(0),
+         ],
+      q(apd) => [
+         q(0837),
+         q(0),
+         ],
+      q(ape) => [
+         q(0838),
+         q(0),
+         ],
+      q(apf) => [
+         q(0839),
+         q(0),
+         ],
+      q(apg) => [
+         q(0840),
+         q(0),
+         ],
+      q(aph) => [
+         q(0841),
+         q(0),
+         ],
+      q(api) => [
+         q(0842),
+         q(0),
+         ],
+      q(apj) => [
+         q(0843),
+         q(0),
+         ],
+      q(apk) => [
+         q(0844),
+         q(0),
+         ],
+      q(apl) => [
+         q(0845),
+         q(0),
+         ],
+      q(apm) => [
+         q(0846),
+         q(0),
+         ],
+      q(apn) => [
+         q(0847),
+         q(0),
+         ],
+      q(apo) => [
+         q(0848),
+         q(0),
+         ],
+      q(app) => [
+         q(0849),
+         q(0),
+         ],
+      q(apq) => [
+         q(0850),
+         q(0),
+         ],
+      q(apr) => [
+         q(0851),
+         q(0),
+         ],
+      q(aps) => [
+         q(0852),
+         q(0),
+         ],
+      q(apt) => [
+         q(0853),
+         q(0),
+         ],
+      q(apu) => [
+         q(0854),
+         q(0),
+         ],
+      q(apv) => [
+         q(0855),
+         q(0),
+         ],
+      q(apw) => [
+         q(0856),
+         q(0),
+         ],
+      q(apx) => [
+         q(0857),
+         q(0),
+         ],
+      q(apy) => [
+         q(0858),
+         q(0),
+         ],
+      q(apz) => [
+         q(0859),
+         q(0),
+         ],
+      q(aqa) => [
+         q(0490),
+         q(0),
+         ],
+      q(aqc) => [
+         q(0860),
+         q(0),
+         ],
+      q(aqd) => [
+         q(0861),
+         q(0),
+         ],
+      q(aqg) => [
+         q(0862),
+         q(0),
+         ],
+      q(aql) => [
+         q(0491),
+         q(0),
+         ],
+      q(aqm) => [
+         q(0863),
+         q(0),
+         ],
+      q(aqn) => [
+         q(0864),
+         q(0),
+         ],
+      q(aqp) => [
+         q(0865),
+         q(0),
+         ],
+      q(aqr) => [
+         q(0866),
+         q(0),
+         ],
+      q(aqt) => [
+         q(0867),
+         q(0),
+         ],
+      q(aqz) => [
+         q(0868),
+         q(0),
+         ],
+      q(ara) => [
+         q(0021),
+         q(0),
+         ],
+      q(arb) => [
+         q(0869),
+         q(0),
+         ],
+      q(arc) => [
+         q(0022),
+         q(0),
+         ],
+      q(ard) => [
+         q(0870),
+         q(0),
+         ],
+      q(are) => [
+         q(0871),
+         q(0),
+         ],
+      q(arg) => [
+         q(0023),
+         q(0),
+         ],
+      q(arh) => [
+         q(0872),
+         q(0),
+         ],
+      q(ari) => [
+         q(0873),
+         q(0),
+         ],
+      q(arj) => [
+         q(0874),
+         q(0),
+         ],
+      q(ark) => [
+         q(0875),
+         q(0),
+         ],
+      q(arl) => [
+         q(0876),
+         q(0),
+         ],
+      q(arm) => [
+         q(0024),
+         q(0),
+         ],
+      q(arn) => [
+         q(0025),
+         q(0),
+         ],
+      q(aro) => [
+         q(0877),
+         q(0),
+         ],
+      q(arp) => [
+         q(0026),
+         q(0),
+         ],
+      q(arq) => [
+         q(0878),
+         q(0),
+         ],
+      q(arr) => [
+         q(0879),
+         q(0),
+         ],
+      q(ars) => [
+         q(0880),
+         q(0),
+         ],
+      q(art) => [
+         q(0027),
+         q(0),
+         ],
+      q(aru) => [
+         q(0881),
+         q(0),
+         ],
+      q(arv) => [
+         q(0882),
+         q(0),
+         ],
+      q(arw) => [
+         q(0028),
+         q(0),
+         ],
+      q(arx) => [
+         q(0883),
+         q(0),
+         ],
+      q(ary) => [
+         q(0884),
+         q(0),
+         ],
+      q(arz) => [
+         q(0885),
+         q(0),
+         ],
+      q(asa) => [
+         q(0886),
+         q(0),
+         ],
+      q(asb) => [
+         q(0887),
+         q(0),
+         ],
+      q(asc) => [
+         q(0888),
+         q(0),
+         ],
+      q(asd) => [
+         q(0889),
+         q(0),
+         ],
+      q(ase) => [
+         q(0890),
+         q(0),
+         ],
+      q(asf) => [
+         q(0891),
+         q(0),
+         ],
+      q(asg) => [
+         q(0892),
+         q(0),
+         ],
+      q(ash) => [
+         q(0893),
+         q(0),
+         ],
+      q(asi) => [
+         q(0894),
+         q(0),
+         ],
+      q(asj) => [
+         q(0895),
+         q(0),
+         ],
+      q(ask) => [
+         q(0896),
+         q(0),
+         ],
+      q(asl) => [
+         q(0897),
+         q(0),
+         ],
+      q(asm) => [
+         q(0029),
+         q(0),
+         ],
+      q(asn) => [
+         q(0898),
+         q(0),
+         ],
+      q(aso) => [
+         q(0899),
+         q(0),
+         ],
+      q(asp) => [
+         q(0900),
+         q(0),
+         ],
+      q(asq) => [
+         q(0901),
+         q(0),
+         ],
+      q(asr) => [
+         q(0902),
+         q(0),
+         ],
+      q(ass) => [
+         q(0903),
+         q(0),
+         ],
+      q(ast) => [
+         q(0030),
+         q(0),
+         ],
+      q(asu) => [
+         q(0904),
+         q(0),
+         ],
+      q(asv) => [
+         q(0905),
+         q(0),
+         ],
+      q(asw) => [
+         q(0906),
+         q(0),
+         ],
+      q(asx) => [
+         q(0907),
+         q(0),
+         ],
+      q(asy) => [
+         q(0908),
+         q(0),
+         ],
+      q(asz) => [
+         q(0909),
+         q(0),
+         ],
+      q(ata) => [
+         q(0910),
+         q(0),
+         ],
+      q(atb) => [
+         q(0911),
+         q(0),
+         ],
+      q(atc) => [
+         q(0912),
+         q(0),
+         ],
+      q(atd) => [
+         q(0913),
+         q(0),
+         ],
+      q(ate) => [
+         q(0914),
+         q(0),
+         ],
+      q(atg) => [
+         q(0915),
+         q(0),
+         ],
+      q(ath) => [
+         q(0031),
+         q(0),
+         ],
+      q(ati) => [
+         q(0916),
+         q(0),
+         ],
+      q(atj) => [
+         q(0917),
+         q(0),
+         ],
+      q(atk) => [
+         q(0918),
+         q(0),
+         ],
+      q(atl) => [
+         q(0919),
+         q(0),
+         ],
+      q(atm) => [
+         q(0920),
+         q(0),
+         ],
+      q(atn) => [
+         q(0921),
+         q(0),
+         ],
+      q(ato) => [
+         q(0922),
+         q(0),
+         ],
+      q(atp) => [
+         q(0923),
+         q(0),
+         ],
+      q(atq) => [
+         q(0924),
+         q(0),
+         ],
+      q(atr) => [
+         q(0925),
+         q(0),
+         ],
+      q(ats) => [
+         q(0926),
+         q(0),
+         ],
+      q(att) => [
+         q(0927),
+         q(0),
+         ],
+      q(atu) => [
+         q(0928),
+         q(0),
+         ],
+      q(atv) => [
+         q(0929),
+         q(0),
+         ],
+      q(atw) => [
+         q(0930),
+         q(0),
+         ],
+      q(atx) => [
+         q(0931),
+         q(0),
+         ],
+      q(aty) => [
+         q(0932),
+         q(0),
+         ],
+      q(atz) => [
+         q(0933),
+         q(0),
+         ],
+      q(aua) => [
+         q(0934),
+         q(0),
+         ],
+      q(aub) => [
+         q(0935),
+         q(0),
+         ],
+      q(auc) => [
+         q(0936),
+         q(0),
+         ],
+      q(aud) => [
+         q(0937),
+         q(0),
+         ],
+      q(auf) => [
+         q(0492),
+         q(0),
+         ],
+      q(aug) => [
+         q(0938),
+         q(0),
+         ],
+      q(auh) => [
+         q(0939),
+         q(0),
+         ],
+      q(aui) => [
+         q(0940),
+         q(0),
+         ],
+      q(auj) => [
+         q(0941),
+         q(0),
+         ],
+      q(auk) => [
+         q(0942),
+         q(0),
+         ],
+      q(aul) => [
+         q(0943),
+         q(0),
+         ],
+      q(aum) => [
+         q(0944),
+         q(0),
+         ],
+      q(aun) => [
+         q(0945),
+         q(0),
+         ],
+      q(auo) => [
+         q(0946),
+         q(0),
+         ],
+      q(aup) => [
+         q(0947),
+         q(0),
+         ],
+      q(auq) => [
+         q(0948),
+         q(0),
+         ],
+      q(aur) => [
+         q(0949),
+         q(0),
+         ],
+      q(aus) => [
+         q(0032),
+         q(0),
+         ],
+      q(aut) => [
+         q(0950),
+         q(0),
+         ],
+      q(auu) => [
+         q(0951),
+         q(0),
+         ],
+      q(auw) => [
+         q(0952),
+         q(0),
+         ],
+      q(aux) => [
+         q(0953),
+         q(0),
+         ],
+      q(auy) => [
+         q(0954),
+         q(0),
+         ],
+      q(auz) => [
+         q(0955),
+         q(0),
+         ],
+      q(ava) => [
+         q(0033),
+         q(0),
+         ],
+      q(avb) => [
+         q(0956),
+         q(0),
+         ],
+      q(avd) => [
+         q(0957),
+         q(0),
+         ],
+      q(ave) => [
+         q(0034),
+         q(0),
+         ],
+      q(avi) => [
+         q(0958),
+         q(0),
+         ],
+      q(avk) => [
+         q(0959),
+         q(0),
+         ],
+      q(avl) => [
+         q(0960),
+         q(0),
+         ],
+      q(avm) => [
+         q(0961),
+         q(0),
+         ],
+      q(avn) => [
+         q(0962),
+         q(0),
+         ],
+      q(avo) => [
+         q(0963),
+         q(0),
+         ],
+      q(avs) => [
+         q(0964),
+         q(0),
+         ],
+      q(avt) => [
+         q(0965),
+         q(0),
+         ],
+      q(avu) => [
+         q(0966),
+         q(0),
+         ],
+      q(avv) => [
+         q(0967),
+         q(0),
+         ],
+      q(awa) => [
+         q(0035),
+         q(0),
+         ],
+      q(awb) => [
+         q(0968),
+         q(0),
+         ],
+      q(awc) => [
+         q(0969),
+         q(0),
+         ],
+      q(awd) => [
+         q(0493),
+         q(0),
+         ],
+      q(awe) => [
+         q(0970),
+         q(0),
+         ],
+      q(awg) => [
+         q(0971),
+         q(0),
+         ],
+      q(awh) => [
+         q(0972),
+         q(0),
+         ],
+      q(awi) => [
+         q(0973),
+         q(0),
+         ],
+      q(awk) => [
+         q(0974),
+         q(0),
+         ],
+      q(awm) => [
+         q(0975),
+         q(0),
+         ],
+      q(awn) => [
+         q(0976),
+         q(0),
+         ],
+      q(awo) => [
+         q(0977),
+         q(0),
+         ],
+      q(awr) => [
+         q(0978),
+         q(0),
+         ],
+      q(aws) => [
+         q(0979),
+         q(0),
+         ],
+      q(awt) => [
+         q(0980),
+         q(0),
+         ],
+      q(awu) => [
+         q(0981),
+         q(0),
+         ],
+      q(awv) => [
+         q(0982),
+         q(0),
+         ],
+      q(aww) => [
+         q(0983),
+         q(0),
+         ],
+      q(awx) => [
+         q(0984),
+         q(0),
+         ],
+      q(awy) => [
+         q(0985),
+         q(0),
+         ],
+      q(axb) => [
+         q(0986),
+         q(0),
+         ],
+      q(axe) => [
+         q(0987),
+         q(0),
+         ],
+      q(axg) => [
+         q(0988),
+         q(0),
+         ],
+      q(axk) => [
+         q(0989),
+         q(0),
+         ],
+      q(axl) => [
+         q(0990),
+         q(0),
+         ],
+      q(axm) => [
+         q(0991),
+         q(0),
+         ],
+      q(axx) => [
+         q(0992),
+         q(0),
+         ],
+      q(aya) => [
+         q(0993),
+         q(0),
+         ],
+      q(ayb) => [
+         q(0994),
+         q(0),
+         ],
+      q(ayc) => [
+         q(0995),
+         q(0),
+         ],
+      q(ayd) => [
+         q(0996),
+         q(0),
+         ],
+      q(aye) => [
+         q(0997),
+         q(0),
+         ],
+      q(ayg) => [
+         q(0998),
+         q(0),
+         ],
+      q(ayh) => [
+         q(0999),
+         q(0),
+         ],
+      q(ayi) => [
+         q(1000),
+         q(0),
+         ],
+      q(ayk) => [
+         q(1001),
+         q(0),
+         ],
+      q(ayl) => [
+         q(1002),
+         q(0),
+         ],
+      q(aym) => [
+         q(0036),
+         q(0),
+         ],
+      q(ayn) => [
+         q(1003),
+         q(0),
+         ],
+      q(ayo) => [
+         q(1004),
+         q(0),
+         ],
+      q(ayp) => [
+         q(1005),
+         q(0),
+         ],
+      q(ayq) => [
+         q(1006),
+         q(0),
+         ],
+      q(ayr) => [
+         q(1007),
+         q(0),
+         ],
+      q(ays) => [
+         q(1008),
+         q(0),
+         ],
+      q(ayt) => [
+         q(1009),
+         q(0),
+         ],
+      q(ayu) => [
+         q(1010),
+         q(0),
+         ],
+      q(ayy) => [
+         q(1011),
+         q(0),
+         ],
+      q(ayz) => [
+         q(1012),
+         q(0),
+         ],
+      q(aza) => [
+         q(1013),
+         q(0),
+         ],
+      q(azb) => [
+         q(1014),
+         q(0),
+         ],
+      q(azc) => [
+         q(0494),
+         q(0),
+         ],
+      q(azd) => [
+         q(1015),
+         q(0),
+         ],
+      q(aze) => [
+         q(0037),
+         q(0),
+         ],
+      q(azg) => [
+         q(1016),
+         q(0),
+         ],
+      q(azj) => [
+         q(1017),
+         q(0),
+         ],
+      q(azm) => [
+         q(1018),
+         q(0),
+         ],
+      q(azn) => [
+         q(1019),
+         q(0),
+         ],
+      q(azo) => [
+         q(1020),
+         q(0),
+         ],
+      q(azt) => [
+         q(1021),
+         q(0),
+         ],
+      q(azz) => [
+         q(1022),
+         q(0),
+         ],
+      q(baa) => [
+         q(1023),
+         q(0),
+         ],
+      q(bab) => [
+         q(1024),
+         q(0),
+         ],
+      q(bac) => [
+         q(1025),
+         q(0),
+         ],
+      q(bad) => [
+         q(0038),
+         q(0),
+         ],
+      q(bae) => [
+         q(1026),
+         q(0),
+         ],
+      q(baf) => [
+         q(1027),
+         q(0),
+         ],
+      q(bag) => [
+         q(1028),
+         q(0),
+         ],
+      q(bah) => [
+         q(1029),
+         q(0),
+         ],
+      q(bai) => [
+         q(0039),
+         q(0),
+         ],
+      q(baj) => [
+         q(1030),
+         q(0),
+         ],
+      q(bak) => [
+         q(0040),
+         q(0),
+         ],
+      q(bal) => [
+         q(0041),
+         q(0),
+         ],
+      q(bam) => [
+         q(0042),
+         q(0),
+         ],
+      q(ban) => [
+         q(0043),
+         q(0),
+         ],
+      q(bao) => [
+         q(1031),
+         q(0),
+         ],
+      q(bap) => [
+         q(1032),
+         q(0),
+         ],
+      q(baq) => [
+         q(0044),
+         q(0),
+         ],
+      q(bar) => [
+         q(1033),
+         q(0),
+         ],
+      q(bas) => [
+         q(0045),
+         q(1),
+         ],
+      q(bat) => [
+         q(0046),
+         q(0),
+         ],
+      q(bau) => [
+         q(1034),
+         q(0),
+         ],
+      q(bav) => [
+         q(1035),
+         q(0),
+         ],
+      q(baw) => [
+         q(1036),
+         q(0),
+         ],
+      q(bax) => [
+         q(1037),
+         q(0),
+         ],
+      q(bay) => [
+         q(1038),
+         q(0),
+         ],
+      q(bba) => [
+         q(1039),
+         q(0),
+         ],
+      q(bbb) => [
+         q(1040),
+         q(0),
+         ],
+      q(bbc) => [
+         q(1041),
+         q(0),
+         ],
+      q(bbd) => [
+         q(1042),
+         q(0),
+         ],
+      q(bbe) => [
+         q(1043),
+         q(0),
+         ],
+      q(bbf) => [
+         q(1044),
+         q(0),
+         ],
+      q(bbg) => [
+         q(1045),
+         q(0),
+         ],
+      q(bbh) => [
+         q(1046),
+         q(0),
+         ],
+      q(bbi) => [
+         q(1047),
+         q(0),
+         ],
+      q(bbj) => [
+         q(1048),
+         q(0),
+         ],
+      q(bbk) => [
+         q(1049),
+         q(0),
+         ],
+      q(bbl) => [
+         q(1050),
+         q(0),
+         ],
+      q(bbm) => [
+         q(1051),
+         q(0),
+         ],
+      q(bbn) => [
+         q(1052),
+         q(0),
+         ],
+      q(bbo) => [
+         q(1053),
+         q(0),
+         ],
+      q(bbp) => [
+         q(1054),
+         q(0),
+         ],
+      q(bbq) => [
+         q(1055),
+         q(0),
+         ],
+      q(bbr) => [
+         q(1056),
+         q(0),
+         ],
+      q(bbs) => [
+         q(1057),
+         q(0),
+         ],
+      q(bbt) => [
+         q(1058),
+         q(0),
+         ],
+      q(bbu) => [
+         q(1059),
+         q(0),
+         ],
+      q(bbv) => [
+         q(1060),
+         q(0),
+         ],
+      q(bbw) => [
+         q(1061),
+         q(0),
+         ],
+      q(bbx) => [
+         q(1062),
+         q(0),
+         ],
+      q(bby) => [
+         q(1063),
+         q(0),
+         ],
+      q(bbz) => [
+         q(1064),
+         q(0),
+         ],
+      q(bca) => [
+         q(1065),
+         q(0),
+         ],
+      q(bcb) => [
+         q(1066),
+         q(0),
+         ],
+      q(bcc) => [
+         q(1067),
+         q(0),
+         ],
+      q(bcd) => [
+         q(1068),
+         q(0),
+         ],
+      q(bce) => [
+         q(1069),
+         q(0),
+         ],
+      q(bcf) => [
+         q(1070),
+         q(0),
+         ],
+      q(bcg) => [
+         q(1071),
+         q(0),
+         ],
+      q(bch) => [
+         q(1072),
+         q(0),
+         ],
+      q(bci) => [
+         q(1073),
+         q(0),
+         ],
+      q(bcj) => [
+         q(1074),
+         q(0),
+         ],
+      q(bck) => [
+         q(1075),
+         q(0),
+         ],
+      q(bcl) => [
+         q(1076),
+         q(0),
+         ],
+      q(bcm) => [
+         q(1077),
+         q(0),
+         ],
+      q(bcn) => [
+         q(1078),
+         q(0),
+         ],
+      q(bco) => [
+         q(1079),
+         q(0),
+         ],
+      q(bcp) => [
+         q(1080),
+         q(0),
+         ],
+      q(bcq) => [
+         q(1081),
+         q(0),
+         ],
+      q(bcr) => [
+         q(1082),
+         q(0),
+         ],
+      q(bcs) => [
+         q(1083),
+         q(0),
+         ],
+      q(bct) => [
+         q(1084),
+         q(0),
+         ],
+      q(bcu) => [
+         q(1085),
+         q(0),
+         ],
+      q(bcv) => [
+         q(1086),
+         q(0),
+         ],
+      q(bcw) => [
+         q(1087),
+         q(0),
+         ],
+      q(bcy) => [
+         q(1088),
+         q(0),
+         ],
+      q(bcz) => [
+         q(1089),
+         q(0),
+         ],
+      q(bda) => [
+         q(1090),
+         q(0),
+         ],
+      q(bdb) => [
+         q(1091),
+         q(0),
+         ],
+      q(bdc) => [
+         q(1092),
+         q(0),
+         ],
+      q(bdd) => [
+         q(1093),
+         q(0),
+         ],
+      q(bde) => [
+         q(1094),
+         q(0),
+         ],
+      q(bdf) => [
+         q(1095),
+         q(0),
+         ],
+      q(bdg) => [
+         q(1096),
+         q(0),
+         ],
+      q(bdh) => [
+         q(1097),
+         q(0),
+         ],
+      q(bdi) => [
+         q(1098),
+         q(0),
+         ],
+      q(bdj) => [
+         q(1099),
+         q(0),
+         ],
+      q(bdk) => [
+         q(1100),
+         q(0),
+         ],
+      q(bdl) => [
+         q(1101),
+         q(0),
+         ],
+      q(bdm) => [
+         q(1102),
+         q(0),
+         ],
+      q(bdn) => [
+         q(1103),
+         q(0),
+         ],
+      q(bdo) => [
+         q(1104),
+         q(0),
+         ],
+      q(bdp) => [
+         q(1105),
+         q(0),
+         ],
+      q(bdq) => [
+         q(1106),
+         q(0),
+         ],
+      q(bdr) => [
+         q(1107),
+         q(0),
+         ],
+      q(bds) => [
+         q(1108),
+         q(0),
+         ],
+      q(bdt) => [
+         q(1109),
+         q(0),
+         ],
+      q(bdu) => [
+         q(1110),
+         q(0),
+         ],
+      q(bdv) => [
+         q(1111),
+         q(0),
+         ],
+      q(bdw) => [
+         q(1112),
+         q(0),
+         ],
+      q(bdx) => [
+         q(1113),
+         q(0),
+         ],
+      q(bdy) => [
+         q(1114),
+         q(0),
+         ],
+      q(bdz) => [
+         q(1115),
+         q(0),
+         ],
+      q(bea) => [
+         q(1116),
+         q(0),
+         ],
+      q(beb) => [
+         q(1117),
+         q(0),
+         ],
+      q(bec) => [
+         q(1118),
+         q(0),
+         ],
+      q(bed) => [
+         q(1119),
+         q(0),
+         ],
+      q(bee) => [
+         q(1120),
+         q(0),
+         ],
+      q(bef) => [
+         q(1121),
+         q(0),
+         ],
+      q(beg) => [
+         q(1122),
+         q(0),
+         ],
+      q(beh) => [
+         q(1123),
+         q(0),
+         ],
+      q(bei) => [
+         q(1124),
+         q(0),
+         ],
+      q(bej) => [
+         q(0047),
+         q(0),
+         ],
+      q(bek) => [
+         q(1125),
+         q(0),
+         ],
+      q(bel) => [
+         q(0048),
+         q(0),
+         ],
+      q(bem) => [
+         q(0049),
+         q(1),
+         ],
+      q(ben) => [
+         q(0050),
+         q(0),
+         ],
+      q(beo) => [
+         q(1126),
+         q(0),
+         ],
+      q(bep) => [
+         q(1127),
+         q(0),
+         ],
+      q(beq) => [
+         q(1128),
+         q(0),
+         ],
+      q(ber) => [
+         q(0051),
+         q(0),
+         ],
+      q(bes) => [
+         q(1129),
+         q(0),
+         ],
+      q(bet) => [
+         q(1130),
+         q(0),
+         ],
+      q(beu) => [
+         q(1131),
+         q(0),
+         ],
+      q(bev) => [
+         q(1132),
+         q(0),
+         ],
+      q(bew) => [
+         q(1133),
+         q(0),
+         ],
+      q(bex) => [
+         q(1134),
+         q(0),
+         ],
+      q(bey) => [
+         q(1135),
+         q(0),
+         ],
+      q(bez) => [
+         q(1136),
+         q(0),
+         ],
+      q(bfa) => [
+         q(1137),
+         q(0),
+         ],
+      q(bfb) => [
+         q(1138),
+         q(0),
+         ],
+      q(bfc) => [
+         q(1139),
+         q(0),
+         ],
+      q(bfd) => [
+         q(1140),
+         q(0),
+         ],
+      q(bfe) => [
+         q(1141),
+         q(0),
+         ],
+      q(bff) => [
+         q(1142),
+         q(0),
+         ],
+      q(bfg) => [
+         q(1143),
+         q(0),
+         ],
+      q(bfh) => [
+         q(1144),
+         q(0),
+         ],
+      q(bfi) => [
+         q(1145),
+         q(0),
+         ],
+      q(bfj) => [
+         q(1146),
+         q(0),
+         ],
+      q(bfk) => [
+         q(1147),
+         q(0),
+         ],
+      q(bfl) => [
+         q(1148),
+         q(0),
+         ],
+      q(bfm) => [
+         q(1149),
+         q(0),
+         ],
+      q(bfn) => [
+         q(1150),
+         q(0),
+         ],
+      q(bfo) => [
+         q(1151),
+         q(0),
+         ],
+      q(bfp) => [
+         q(1152),
+         q(0),
+         ],
+      q(bfq) => [
+         q(1153),
+         q(0),
+         ],
+      q(bfr) => [
+         q(1154),
+         q(0),
+         ],
+      q(bfs) => [
+         q(1155),
+         q(0),
+         ],
+      q(bft) => [
+         q(1156),
+         q(0),
+         ],
+      q(bfu) => [
+         q(1157),
+         q(0),
+         ],
+      q(bfw) => [
+         q(1158),
+         q(0),
+         ],
+      q(bfx) => [
+         q(1159),
+         q(0),
+         ],
+      q(bfy) => [
+         q(1160),
+         q(0),
+         ],
+      q(bfz) => [
+         q(1161),
+         q(0),
+         ],
+      q(bga) => [
+         q(1162),
+         q(0),
+         ],
+      q(bgb) => [
+         q(1163),
+         q(0),
+         ],
+      q(bgc) => [
+         q(1164),
+         q(0),
+         ],
+      q(bgd) => [
+         q(1165),
+         q(0),
+         ],
+      q(bge) => [
+         q(1166),
+         q(0),
+         ],
+      q(bgf) => [
+         q(1167),
+         q(0),
+         ],
+      q(bgg) => [
+         q(1168),
+         q(0),
+         ],
+      q(bgi) => [
+         q(1169),
+         q(0),
+         ],
+      q(bgj) => [
+         q(1170),
+         q(0),
+         ],
+      q(bgk) => [
+         q(1171),
+         q(0),
+         ],
+      q(bgl) => [
+         q(1172),
+         q(0),
+         ],
+      q(bgn) => [
+         q(1173),
+         q(0),
+         ],
+      q(bgo) => [
+         q(1174),
+         q(0),
+         ],
+      q(bgp) => [
+         q(1175),
+         q(0),
+         ],
+      q(bgq) => [
+         q(1176),
+         q(0),
+         ],
+      q(bgr) => [
+         q(1177),
+         q(0),
+         ],
+      q(bgs) => [
+         q(1178),
+         q(0),
+         ],
+      q(bgt) => [
+         q(1179),
+         q(0),
+         ],
+      q(bgu) => [
+         q(1180),
+         q(0),
+         ],
+      q(bgv) => [
+         q(1181),
+         q(0),
+         ],
+      q(bgw) => [
+         q(1182),
+         q(0),
+         ],
+      q(bgx) => [
+         q(1183),
+         q(0),
+         ],
+      q(bgy) => [
+         q(1184),
+         q(0),
+         ],
+      q(bgz) => [
+         q(1185),
+         q(0),
+         ],
+      q(bha) => [
+         q(1186),
+         q(0),
+         ],
+      q(bhb) => [
+         q(1187),
+         q(0),
+         ],
+      q(bhc) => [
+         q(1188),
+         q(0),
+         ],
+      q(bhd) => [
+         q(1189),
+         q(0),
+         ],
+      q(bhe) => [
+         q(1190),
+         q(0),
+         ],
+      q(bhf) => [
+         q(1191),
+         q(0),
+         ],
+      q(bhg) => [
+         q(1192),
+         q(0),
+         ],
+      q(bhh) => [
+         q(1193),
+         q(0),
+         ],
+      q(bhi) => [
+         q(1194),
+         q(0),
+         ],
+      q(bhj) => [
+         q(1195),
+         q(0),
+         ],
+      q(bhl) => [
+         q(1196),
+         q(0),
+         ],
+      q(bhm) => [
+         q(1197),
+         q(0),
+         ],
+      q(bhn) => [
+         q(1198),
+         q(0),
+         ],
+      q(bho) => [
+         q(0052),
+         q(0),
+         ],
+      q(bhp) => [
+         q(1199),
+         q(0),
+         ],
+      q(bhq) => [
+         q(1200),
+         q(0),
+         ],
+      q(bhr) => [
+         q(1201),
+         q(0),
+         ],
+      q(bhs) => [
+         q(1202),
+         q(0),
+         ],
+      q(bht) => [
+         q(1203),
+         q(0),
+         ],
+      q(bhu) => [
+         q(1204),
+         q(0),
+         ],
+      q(bhv) => [
+         q(1205),
+         q(0),
+         ],
+      q(bhw) => [
+         q(1206),
+         q(0),
+         ],
+      q(bhx) => [
+         q(1207),
+         q(0),
+         ],
+      q(bhy) => [
+         q(1208),
+         q(0),
+         ],
+      q(bhz) => [
+         q(1209),
+         q(0),
+         ],
+      q(bia) => [
+         q(1210),
+         q(0),
+         ],
+      q(bib) => [
+         q(1211),
+         q(0),
+         ],
+      q(bic) => [
+         q(1212),
+         q(0),
+         ],
+      q(bid) => [
+         q(1213),
+         q(0),
+         ],
+      q(bie) => [
+         q(1214),
+         q(0),
+         ],
+      q(bif) => [
+         q(1215),
+         q(0),
+         ],
+      q(big) => [
+         q(1216),
+         q(0),
+         ],
+      q(bih) => [
+         q(0053),
+         q(0),
+         ],
+      q(bij) => [
+         q(1217),
+         q(0),
+         ],
+      q(bik) => [
+         q(0054),
+         q(0),
+         ],
+      q(bil) => [
+         q(1218),
+         q(0),
+         ],
+      q(bim) => [
+         q(1219),
+         q(0),
+         ],
+      q(bin) => [
+         q(0055),
+         q(0),
+         ],
+      q(bio) => [
+         q(1220),
+         q(0),
+         ],
+      q(bip) => [
+         q(1221),
+         q(0),
+         ],
+      q(biq) => [
+         q(1222),
+         q(0),
+         ],
+      q(bir) => [
+         q(1223),
+         q(0),
+         ],
+      q(bis) => [
+         q(0056),
+         q(0),
+         ],
+      q(bit) => [
+         q(1224),
+         q(0),
+         ],
+      q(biu) => [
+         q(1225),
+         q(0),
+         ],
+      q(biv) => [
+         q(1226),
+         q(0),
+         ],
+      q(biw) => [
+         q(1227),
+         q(0),
+         ],
+      q(bix) => [
+         q(1228),
+         q(0),
+         ],
+      q(biy) => [
+         q(1229),
+         q(0),
+         ],
+      q(biz) => [
+         q(1230),
+         q(0),
+         ],
+      q(bja) => [
+         q(1231),
+         q(0),
+         ],
+      q(bjb) => [
+         q(1232),
+         q(0),
+         ],
+      q(bjc) => [
+         q(1233),
+         q(0),
+         ],
+      q(bje) => [
+         q(1234),
+         q(0),
+         ],
+      q(bjf) => [
+         q(1235),
+         q(0),
+         ],
+      q(bjg) => [
+         q(1236),
+         q(0),
+         ],
+      q(bjh) => [
+         q(1237),
+         q(0),
+         ],
+      q(bji) => [
+         q(1238),
+         q(0),
+         ],
+      q(bjj) => [
+         q(1239),
+         q(0),
+         ],
+      q(bjk) => [
+         q(1240),
+         q(0),
+         ],
+      q(bjl) => [
+         q(1241),
+         q(0),
+         ],
+      q(bjm) => [
+         q(1242),
+         q(0),
+         ],
+      q(bjn) => [
+         q(1243),
+         q(0),
+         ],
+      q(bjo) => [
+         q(1244),
+         q(0),
+         ],
+      q(bjp) => [
+         q(1245),
+         q(0),
+         ],
+      q(bjr) => [
+         q(1246),
+         q(0),
+         ],
+      q(bjs) => [
+         q(1247),
+         q(0),
+         ],
+      q(bjt) => [
+         q(1248),
+         q(0),
+         ],
+      q(bju) => [
+         q(1249),
+         q(0),
+         ],
+      q(bjv) => [
+         q(1250),
+         q(0),
+         ],
+      q(bjw) => [
+         q(1251),
+         q(0),
+         ],
+      q(bjx) => [
+         q(1252),
+         q(0),
+         ],
+      q(bjy) => [
+         q(1253),
+         q(0),
+         ],
+      q(bjz) => [
+         q(1254),
+         q(0),
+         ],
+      q(bka) => [
+         q(1255),
+         q(0),
+         ],
+      q(bkc) => [
+         q(1256),
+         q(0),
+         ],
+      q(bkd) => [
+         q(1257),
+         q(0),
+         ],
+      q(bkf) => [
+         q(1258),
+         q(0),
+         ],
+      q(bkg) => [
+         q(1259),
+         q(0),
+         ],
+      q(bkh) => [
+         q(1260),
+         q(0),
+         ],
+      q(bki) => [
+         q(1261),
+         q(0),
+         ],
+      q(bkj) => [
+         q(1262),
+         q(0),
+         ],
+      q(bkk) => [
+         q(1263),
+         q(0),
+         ],
+      q(bkl) => [
+         q(1264),
+         q(0),
+         ],
+      q(bkm) => [
+         q(1265),
+         q(0),
+         ],
+      q(bkn) => [
+         q(1266),
+         q(0),
+         ],
+      q(bko) => [
+         q(1267),
+         q(0),
+         ],
+      q(bkp) => [
+         q(1268),
+         q(0),
+         ],
+      q(bkq) => [
+         q(1269),
+         q(0),
+         ],
+      q(bkr) => [
+         q(1270),
+         q(0),
+         ],
+      q(bks) => [
+         q(1271),
+         q(0),
+         ],
+      q(bkt) => [
+         q(1272),
+         q(0),
+         ],
+      q(bku) => [
+         q(1273),
+         q(0),
+         ],
+      q(bkv) => [
+         q(1274),
+         q(0),
+         ],
+      q(bkw) => [
+         q(1275),
+         q(0),
+         ],
+      q(bkx) => [
+         q(1276),
+         q(0),
+         ],
+      q(bky) => [
+         q(1277),
+         q(0),
+         ],
+      q(bkz) => [
+         q(1278),
+         q(0),
+         ],
+      q(bla) => [
+         q(0057),
+         q(0),
+         ],
+      q(blb) => [
+         q(1279),
+         q(0),
+         ],
+      q(blc) => [
+         q(1280),
+         q(0),
+         ],
+      q(bld) => [
+         q(1281),
+         q(0),
+         ],
+      q(ble) => [
+         q(1282),
+         q(0),
+         ],
+      q(blf) => [
+         q(1283),
+         q(0),
+         ],
+      q(blg) => [
+         q(1284),
+         q(0),
+         ],
+      q(blh) => [
+         q(1285),
+         q(0),
+         ],
+      q(bli) => [
+         q(1286),
+         q(0),
+         ],
+      q(blj) => [
+         q(1287),
+         q(0),
+         ],
+      q(blk) => [
+         q(1288),
+         q(0),
+         ],
+      q(bll) => [
+         q(1289),
+         q(0),
+         ],
+      q(blm) => [
+         q(1290),
+         q(0),
+         ],
+      q(bln) => [
+         q(1291),
+         q(0),
+         ],
+      q(blo) => [
+         q(1292),
+         q(0),
+         ],
+      q(blp) => [
+         q(1293),
+         q(0),
+         ],
+      q(blq) => [
+         q(1294),
+         q(0),
+         ],
+      q(blr) => [
+         q(1295),
+         q(0),
+         ],
+      q(bls) => [
+         q(1296),
+         q(0),
+         ],
+      q(blt) => [
+         q(1297),
+         q(0),
+         ],
+      q(blv) => [
+         q(1298),
+         q(0),
+         ],
+      q(blw) => [
+         q(1299),
+         q(0),
+         ],
+      q(blx) => [
+         q(1300),
+         q(0),
+         ],
+      q(bly) => [
+         q(1301),
+         q(0),
+         ],
+      q(blz) => [
+         q(1302),
+         q(0),
+         ],
+      q(bma) => [
+         q(1303),
+         q(0),
+         ],
+      q(bmb) => [
+         q(1304),
+         q(0),
+         ],
+      q(bmc) => [
+         q(1305),
+         q(0),
+         ],
+      q(bmd) => [
+         q(1306),
+         q(0),
+         ],
+      q(bme) => [
+         q(1307),
+         q(0),
+         ],
+      q(bmf) => [
+         q(1308),
+         q(0),
+         ],
+      q(bmg) => [
+         q(1309),
+         q(0),
+         ],
+      q(bmh) => [
+         q(1310),
+         q(0),
+         ],
+      q(bmi) => [
+         q(1311),
+         q(0),
+         ],
+      q(bmj) => [
+         q(1312),
+         q(0),
+         ],
+      q(bmk) => [
+         q(1313),
+         q(0),
+         ],
+      q(bml) => [
+         q(1314),
+         q(0),
+         ],
+      q(bmm) => [
+         q(1315),
+         q(0),
+         ],
+      q(bmn) => [
+         q(1316),
+         q(0),
+         ],
+      q(bmo) => [
+         q(1317),
+         q(0),
+         ],
+      q(bmp) => [
+         q(1318),
+         q(0),
+         ],
+      q(bmq) => [
+         q(1319),
+         q(0),
+         ],
+      q(bmr) => [
+         q(1320),
+         q(0),
+         ],
+      q(bms) => [
+         q(1321),
+         q(0),
+         ],
+      q(bmt) => [
+         q(1322),
+         q(0),
+         ],
+      q(bmu) => [
+         q(1323),
+         q(0),
+         ],
+      q(bmv) => [
+         q(1324),
+         q(0),
+         ],
+      q(bmw) => [
+         q(1325),
+         q(0),
+         ],
+      q(bmx) => [
+         q(1326),
+         q(0),
+         ],
+      q(bmz) => [
+         q(1327),
+         q(0),
+         ],
+      q(bna) => [
+         q(1328),
+         q(0),
+         ],
+      q(bnb) => [
+         q(1329),
+         q(0),
+         ],
+      q(bnc) => [
+         q(1330),
+         q(0),
+         ],
+      q(bnd) => [
+         q(1331),
+         q(0),
+         ],
+      q(bne) => [
+         q(1332),
+         q(0),
+         ],
+      q(bnf) => [
+         q(1333),
+         q(0),
+         ],
+      q(bng) => [
+         q(1334),
+         q(0),
+         ],
+      q(bni) => [
+         q(1335),
+         q(0),
+         ],
+      q(bnj) => [
+         q(1336),
+         q(0),
+         ],
+      q(bnk) => [
+         q(1337),
+         q(0),
+         ],
+      q(bnl) => [
+         q(1338),
+         q(0),
+         ],
+      q(bnm) => [
+         q(1339),
+         q(0),
+         ],
+      q(bnn) => [
+         q(1340),
+         q(0),
+         ],
+      q(bno) => [
+         q(1341),
+         q(0),
+         ],
+      q(bnp) => [
+         q(1342),
+         q(0),
+         ],
+      q(bnq) => [
+         q(1343),
+         q(0),
+         ],
+      q(bnr) => [
+         q(1344),
+         q(0),
+         ],
+      q(bns) => [
+         q(1345),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0058),
+         q(1),
+         ],
+      q(bnu) => [
+         q(1346),
+         q(0),
+         ],
+      q(bnv) => [
+         q(1347),
+         q(0),
+         ],
+      q(bnw) => [
+         q(1348),
+         q(0),
+         ],
+      q(bnx) => [
+         q(1349),
+         q(0),
+         ],
+      q(bny) => [
+         q(1350),
+         q(0),
+         ],
+      q(bnz) => [
+         q(1351),
+         q(0),
+         ],
+      q(boa) => [
+         q(1352),
+         q(0),
+         ],
+      q(bob) => [
+         q(1353),
+         q(0),
+         ],
+      q(boe) => [
+         q(1354),
+         q(0),
+         ],
+      q(bof) => [
+         q(1355),
+         q(0),
+         ],
+      q(bog) => [
+         q(1356),
+         q(0),
+         ],
+      q(boh) => [
+         q(1357),
+         q(0),
+         ],
+      q(boi) => [
+         q(1358),
+         q(0),
+         ],
+      q(boj) => [
+         q(1359),
+         q(0),
+         ],
+      q(bok) => [
+         q(1360),
+         q(0),
+         ],
+      q(bol) => [
+         q(1361),
+         q(0),
+         ],
+      q(bom) => [
+         q(1362),
+         q(0),
+         ],
+      q(bon) => [
+         q(1363),
+         q(0),
+         ],
+      q(boo) => [
+         q(1364),
+         q(0),
+         ],
+      q(bop) => [
+         q(1365),
+         q(0),
+         ],
+      q(boq) => [
+         q(1366),
+         q(0),
+         ],
+      q(bor) => [
+         q(1367),
+         q(0),
+         ],
+      q(bos) => [
+         q(0059),
+         q(0),
+         ],
+      q(bot) => [
+         q(1368),
+         q(0),
+         ],
+      q(bou) => [
+         q(1369),
+         q(0),
+         ],
+      q(bov) => [
+         q(1370),
+         q(0),
+         ],
+      q(bow) => [
+         q(1371),
+         q(0),
+         ],
+      q(box) => [
+         q(1372),
+         q(0),
+         ],
+      q(boy) => [
+         q(1373),
+         q(0),
+         ],
+      q(boz) => [
+         q(1374),
+         q(0),
+         ],
+      q(bpa) => [
+         q(1375),
+         q(0),
+         ],
+      q(bpb) => [
+         q(1376),
+         q(0),
+         ],
+      q(bpd) => [
+         q(1377),
+         q(0),
+         ],
+      q(bpg) => [
+         q(1378),
+         q(0),
+         ],
+      q(bph) => [
+         q(1379),
+         q(0),
+         ],
+      q(bpi) => [
+         q(1380),
+         q(0),
+         ],
+      q(bpj) => [
+         q(1381),
+         q(0),
+         ],
+      q(bpk) => [
+         q(1382),
+         q(0),
+         ],
+      q(bpl) => [
+         q(1383),
+         q(0),
+         ],
+      q(bpm) => [
+         q(1384),
+         q(0),
+         ],
+      q(bpn) => [
+         q(1385),
+         q(0),
+         ],
+      q(bpo) => [
+         q(1386),
+         q(0),
+         ],
+      q(bpp) => [
+         q(1387),
+         q(0),
+         ],
+      q(bpq) => [
+         q(1388),
+         q(0),
+         ],
+      q(bpr) => [
+         q(1389),
+         q(0),
+         ],
+      q(bps) => [
+         q(1390),
+         q(0),
+         ],
+      q(bpt) => [
+         q(1391),
+         q(0),
+         ],
+      q(bpu) => [
+         q(1392),
+         q(0),
+         ],
+      q(bpv) => [
+         q(1393),
+         q(0),
+         ],
+      q(bpw) => [
+         q(1394),
+         q(0),
+         ],
+      q(bpx) => [
+         q(1395),
+         q(0),
+         ],
+      q(bpy) => [
+         q(1396),
+         q(0),
+         ],
+      q(bpz) => [
+         q(1397),
+         q(0),
+         ],
+      q(bqa) => [
+         q(1398),
+         q(0),
+         ],
+      q(bqb) => [
+         q(1399),
+         q(0),
+         ],
+      q(bqc) => [
+         q(1400),
+         q(0),
+         ],
+      q(bqd) => [
+         q(1401),
+         q(0),
+         ],
+      q(bqf) => [
+         q(1402),
+         q(0),
+         ],
+      q(bqg) => [
+         q(1403),
+         q(0),
+         ],
+      q(bqh) => [
+         q(1404),
+         q(0),
+         ],
+      q(bqi) => [
+         q(1405),
+         q(0),
+         ],
+      q(bqj) => [
+         q(1406),
+         q(0),
+         ],
+      q(bqk) => [
+         q(1407),
+         q(0),
+         ],
+      q(bql) => [
+         q(1408),
+         q(0),
+         ],
+      q(bqm) => [
+         q(1409),
+         q(0),
+         ],
+      q(bqn) => [
+         q(1410),
+         q(0),
+         ],
+      q(bqo) => [
+         q(1411),
+         q(0),
+         ],
+      q(bqp) => [
+         q(1412),
+         q(0),
+         ],
+      q(bqq) => [
+         q(1413),
+         q(0),
+         ],
+      q(bqr) => [
+         q(1414),
+         q(0),
+         ],
+      q(bqs) => [
+         q(1415),
+         q(0),
+         ],
+      q(bqt) => [
+         q(1416),
+         q(0),
+         ],
+      q(bqu) => [
+         q(1417),
+         q(0),
+         ],
+      q(bqv) => [
+         q(1418),
+         q(0),
+         ],
+      q(bqw) => [
+         q(1419),
+         q(0),
+         ],
+      q(bqx) => [
+         q(1420),
+         q(0),
+         ],
+      q(bqy) => [
+         q(1421),
+         q(0),
+         ],
+      q(bqz) => [
+         q(1422),
+         q(0),
+         ],
+      q(bra) => [
+         q(0060),
+         q(0),
+         ],
+      q(brb) => [
+         q(1423),
+         q(0),
+         ],
+      q(brc) => [
+         q(1424),
+         q(0),
+         ],
+      q(brd) => [
+         q(1425),
+         q(0),
+         ],
+      q(bre) => [
+         q(0061),
+         q(0),
+         ],
+      q(brf) => [
+         q(1426),
+         q(0),
+         ],
+      q(brg) => [
+         q(1427),
+         q(0),
+         ],
+      q(brh) => [
+         q(1428),
+         q(0),
+         ],
+      q(bri) => [
+         q(1429),
+         q(0),
+         ],
+      q(brj) => [
+         q(1430),
+         q(0),
+         ],
+      q(brk) => [
+         q(1431),
+         q(0),
+         ],
+      q(brl) => [
+         q(1432),
+         q(0),
+         ],
+      q(brm) => [
+         q(1433),
+         q(0),
+         ],
+      q(brn) => [
+         q(1434),
+         q(0),
+         ],
+      q(bro) => [
+         q(1435),
+         q(0),
+         ],
+      q(brp) => [
+         q(1436),
+         q(0),
+         ],
+      q(brq) => [
+         q(1437),
+         q(0),
+         ],
+      q(brr) => [
+         q(1438),
+         q(0),
+         ],
+      q(brs) => [
+         q(1439),
+         q(0),
+         ],
+      q(brt) => [
+         q(1440),
+         q(0),
+         ],
+      q(bru) => [
+         q(1441),
+         q(0),
+         ],
+      q(brv) => [
+         q(1442),
+         q(0),
+         ],
+      q(brw) => [
+         q(1443),
+         q(0),
+         ],
+      q(brx) => [
+         q(1444),
+         q(0),
+         ],
+      q(bry) => [
+         q(1445),
+         q(0),
+         ],
+      q(brz) => [
+         q(1446),
+         q(0),
+         ],
+      q(bsa) => [
+         q(1447),
+         q(0),
+         ],
+      q(bsb) => [
+         q(1448),
+         q(0),
+         ],
+      q(bsc) => [
+         q(1449),
+         q(0),
+         ],
+      q(bse) => [
+         q(1450),
+         q(0),
+         ],
+      q(bsf) => [
+         q(1451),
+         q(0),
+         ],
+      q(bsg) => [
+         q(1452),
+         q(0),
+         ],
+      q(bsh) => [
+         q(1453),
+         q(0),
+         ],
+      q(bsi) => [
+         q(1454),
+         q(0),
+         ],
+      q(bsj) => [
+         q(1455),
+         q(0),
+         ],
+      q(bsk) => [
+         q(1456),
+         q(0),
+         ],
+      q(bsl) => [
+         q(1457),
+         q(0),
+         ],
+      q(bsm) => [
+         q(1458),
+         q(0),
+         ],
+      q(bsn) => [
+         q(1459),
+         q(0),
+         ],
+      q(bso) => [
+         q(1460),
+         q(0),
+         ],
+      q(bsp) => [
+         q(1461),
+         q(0),
+         ],
+      q(bsq) => [
+         q(1462),
+         q(0),
+         ],
+      q(bsr) => [
+         q(1463),
+         q(0),
+         ],
+      q(bss) => [
+         q(1464),
+         q(0),
+         ],
+      q(bst) => [
+         q(1465),
+         q(0),
+         ],
+      q(bsu) => [
+         q(1466),
+         q(0),
+         ],
+      q(bsv) => [
+         q(1467),
+         q(0),
+         ],
+      q(bsw) => [
+         q(1468),
+         q(0),
+         ],
+      q(bsx) => [
+         q(1469),
+         q(0),
+         ],
+      q(bsy) => [
+         q(1470),
+         q(0),
+         ],
+      q(bta) => [
+         q(1471),
+         q(0),
+         ],
+      q(btc) => [
+         q(1472),
+         q(0),
+         ],
+      q(btd) => [
+         q(1473),
+         q(0),
+         ],
+      q(bte) => [
+         q(1474),
+         q(0),
+         ],
+      q(btf) => [
+         q(1475),
+         q(0),
+         ],
+      q(btg) => [
+         q(1476),
+         q(0),
+         ],
+      q(bth) => [
+         q(1477),
+         q(0),
+         ],
+      q(bti) => [
+         q(1478),
+         q(0),
+         ],
+      q(btj) => [
+         q(1479),
+         q(0),
+         ],
+      q(btk) => [
+         q(0062),
+         q(0),
+         ],
+      q(btm) => [
+         q(1480),
+         q(0),
+         ],
+      q(btn) => [
+         q(1481),
+         q(0),
+         ],
+      q(bto) => [
+         q(1482),
+         q(0),
+         ],
+      q(btp) => [
+         q(1483),
+         q(0),
+         ],
+      q(btq) => [
+         q(1484),
+         q(0),
+         ],
+      q(btr) => [
+         q(1485),
+         q(0),
+         ],
+      q(bts) => [
+         q(1486),
+         q(0),
+         ],
+      q(btt) => [
+         q(1487),
+         q(0),
+         ],
+      q(btu) => [
+         q(1488),
+         q(0),
+         ],
+      q(btv) => [
+         q(1489),
+         q(0),
+         ],
+      q(btw) => [
+         q(1490),
+         q(0),
+         ],
+      q(btx) => [
+         q(1491),
+         q(0),
+         ],
+      q(bty) => [
+         q(1492),
+         q(0),
+         ],
+      q(btz) => [
+         q(1493),
+         q(0),
+         ],
+      q(bua) => [
+         q(0063),
+         q(0),
+         ],
+      q(bub) => [
+         q(1494),
+         q(0),
+         ],
+      q(buc) => [
+         q(1495),
+         q(0),
+         ],
+      q(bud) => [
+         q(1496),
+         q(0),
+         ],
+      q(bue) => [
+         q(1497),
+         q(0),
+         ],
+      q(buf) => [
+         q(1498),
+         q(0),
+         ],
+      q(bug) => [
+         q(0064),
+         q(0),
+         ],
+      q(buh) => [
+         q(1499),
+         q(0),
+         ],
+      q(bui) => [
+         q(1500),
+         q(0),
+         ],
+      q(buj) => [
+         q(1501),
+         q(0),
+         ],
+      q(buk) => [
+         q(1502),
+         q(0),
+         ],
+      q(bul) => [
+         q(0065),
+         q(0),
+         ],
+      q(bum) => [
+         q(1503),
+         q(0),
+         ],
+      q(bun) => [
+         q(1504),
+         q(0),
+         ],
+      q(buo) => [
+         q(1505),
+         q(0),
+         ],
+      q(bup) => [
+         q(1506),
+         q(0),
+         ],
+      q(buq) => [
+         q(1507),
+         q(0),
+         ],
+      q(bur) => [
+         q(0066),
+         q(0),
+         ],
+      q(bus) => [
+         q(1508),
+         q(0),
+         ],
+      q(but) => [
+         q(1509),
+         q(0),
+         ],
+      q(buu) => [
+         q(1510),
+         q(0),
+         ],
+      q(buv) => [
+         q(1511),
+         q(0),
+         ],
+      q(buw) => [
+         q(1512),
+         q(0),
+         ],
+      q(bux) => [
+         q(1513),
+         q(0),
+         ],
+      q(buy) => [
+         q(1514),
+         q(0),
+         ],
+      q(buz) => [
+         q(1515),
+         q(0),
+         ],
+      q(bva) => [
+         q(1516),
+         q(0),
+         ],
+      q(bvb) => [
+         q(1517),
+         q(0),
+         ],
+      q(bvc) => [
+         q(1518),
+         q(0),
+         ],
+      q(bvd) => [
+         q(1519),
+         q(0),
+         ],
+      q(bve) => [
+         q(1520),
+         q(0),
+         ],
+      q(bvf) => [
+         q(1521),
+         q(0),
+         ],
+      q(bvg) => [
+         q(1522),
+         q(0),
+         ],
+      q(bvh) => [
+         q(1523),
+         q(0),
+         ],
+      q(bvi) => [
+         q(1524),
+         q(0),
+         ],
+      q(bvj) => [
+         q(1525),
+         q(0),
+         ],
+      q(bvk) => [
+         q(1526),
+         q(0),
+         ],
+      q(bvl) => [
+         q(1527),
+         q(0),
+         ],
+      q(bvm) => [
+         q(1528),
+         q(0),
+         ],
+      q(bvn) => [
+         q(1529),
+         q(0),
+         ],
+      q(bvo) => [
+         q(1530),
+         q(0),
+         ],
+      q(bvp) => [
+         q(1531),
+         q(0),
+         ],
+      q(bvq) => [
+         q(1532),
+         q(0),
+         ],
+      q(bvr) => [
+         q(1533),
+         q(0),
+         ],
+      q(bvt) => [
+         q(1534),
+         q(0),
+         ],
+      q(bvu) => [
+         q(1535),
+         q(0),
+         ],
+      q(bvv) => [
+         q(1536),
+         q(0),
+         ],
+      q(bvw) => [
+         q(1537),
+         q(0),
+         ],
+      q(bvx) => [
+         q(1538),
+         q(0),
+         ],
+      q(bvy) => [
+         q(1539),
+         q(0),
+         ],
+      q(bvz) => [
+         q(1540),
+         q(0),
+         ],
+      q(bwa) => [
+         q(1541),
+         q(0),
+         ],
+      q(bwb) => [
+         q(1542),
+         q(0),
+         ],
+      q(bwc) => [
+         q(1543),
+         q(0),
+         ],
+      q(bwd) => [
+         q(1544),
+         q(0),
+         ],
+      q(bwe) => [
+         q(1545),
+         q(0),
+         ],
+      q(bwf) => [
+         q(1546),
+         q(0),
+         ],
+      q(bwg) => [
+         q(1547),
+         q(0),
+         ],
+      q(bwh) => [
+         q(1548),
+         q(0),
+         ],
+      q(bwi) => [
+         q(1549),
+         q(0),
+         ],
+      q(bwj) => [
+         q(1550),
+         q(0),
+         ],
+      q(bwk) => [
+         q(1551),
+         q(0),
+         ],
+      q(bwl) => [
+         q(1552),
+         q(0),
+         ],
+      q(bwm) => [
+         q(1553),
+         q(0),
+         ],
+      q(bwn) => [
+         q(1554),
+         q(0),
+         ],
+      q(bwo) => [
+         q(1555),
+         q(0),
+         ],
+      q(bwp) => [
+         q(1556),
+         q(0),
+         ],
+      q(bwq) => [
+         q(1557),
+         q(0),
+         ],
+      q(bwr) => [
+         q(1558),
+         q(0),
+         ],
+      q(bws) => [
+         q(1559),
+         q(0),
+         ],
+      q(bwt) => [
+         q(1560),
+         q(0),
+         ],
+      q(bwu) => [
+         q(1561),
+         q(0),
+         ],
+      q(bww) => [
+         q(1562),
+         q(0),
+         ],
+      q(bwx) => [
+         q(1563),
+         q(0),
+         ],
+      q(bwy) => [
+         q(1564),
+         q(0),
+         ],
+      q(bwz) => [
+         q(1565),
+         q(0),
+         ],
+      q(bxa) => [
+         q(1566),
+         q(0),
+         ],
+      q(bxb) => [
+         q(1567),
+         q(0),
+         ],
+      q(bxc) => [
+         q(1568),
+         q(0),
+         ],
+      q(bxd) => [
+         q(1569),
+         q(0),
+         ],
+      q(bxe) => [
+         q(1570),
+         q(0),
+         ],
+      q(bxf) => [
+         q(1571),
+         q(0),
+         ],
+      q(bxg) => [
+         q(1572),
+         q(0),
+         ],
+      q(bxh) => [
+         q(1573),
+         q(0),
+         ],
+      q(bxi) => [
+         q(1574),
+         q(0),
+         ],
+      q(bxj) => [
+         q(1575),
+         q(0),
+         ],
+      q(bxk) => [
+         q(1576),
+         q(0),
+         ],
+      q(bxl) => [
+         q(1577),
+         q(0),
+         ],
+      q(bxm) => [
+         q(1578),
+         q(0),
+         ],
+      q(bxn) => [
+         q(1579),
+         q(0),
+         ],
+      q(bxo) => [
+         q(1580),
+         q(0),
+         ],
+      q(bxp) => [
+         q(1581),
+         q(0),
+         ],
+      q(bxq) => [
+         q(1582),
+         q(0),
+         ],
+      q(bxr) => [
+         q(1583),
+         q(0),
+         ],
+      q(bxs) => [
+         q(1584),
+         q(0),
+         ],
+      q(bxu) => [
+         q(1585),
+         q(0),
+         ],
+      q(bxv) => [
+         q(1586),
+         q(0),
+         ],
+      q(bxw) => [
+         q(1587),
+         q(0),
+         ],
+      q(bxz) => [
+         q(1588),
+         q(0),
+         ],
+      q(bya) => [
+         q(1589),
+         q(0),
+         ],
+      q(byb) => [
+         q(1590),
+         q(0),
+         ],
+      q(byc) => [
+         q(1591),
+         q(0),
+         ],
+      q(byd) => [
+         q(1592),
+         q(0),
+         ],
+      q(bye) => [
+         q(1593),
+         q(0),
+         ],
+      q(byf) => [
+         q(1594),
+         q(0),
+         ],
+      q(byg) => [
+         q(1595),
+         q(0),
+         ],
+      q(byh) => [
+         q(1596),
+         q(0),
+         ],
+      q(byi) => [
+         q(1597),
+         q(0),
+         ],
+      q(byj) => [
+         q(1598),
+         q(0),
+         ],
+      q(byk) => [
+         q(1599),
+         q(0),
+         ],
+      q(byl) => [
+         q(1600),
+         q(0),
+         ],
+      q(bym) => [
+         q(1601),
+         q(0),
+         ],
+      q(byn) => [
+         q(0067),
+         q(1),
+         ],
+      q(byo) => [
+         q(1602),
+         q(0),
+         ],
+      q(byp) => [
+         q(1603),
+         q(0),
+         ],
+      q(byq) => [
+         q(1604),
+         q(0),
+         ],
+      q(byr) => [
+         q(1605),
+         q(0),
+         ],
+      q(bys) => [
+         q(1606),
+         q(0),
+         ],
+      q(byt) => [
+         q(1607),
+         q(0),
+         ],
+      q(byv) => [
+         q(1608),
+         q(0),
+         ],
+      q(byw) => [
+         q(1609),
+         q(0),
+         ],
+      q(byx) => [
+         q(1610),
+         q(0),
+         ],
+      q(byz) => [
+         q(1611),
+         q(0),
+         ],
+      q(bza) => [
+         q(1612),
+         q(0),
+         ],
+      q(bzb) => [
+         q(1613),
+         q(0),
+         ],
+      q(bzc) => [
+         q(1614),
+         q(0),
+         ],
+      q(bzd) => [
+         q(1615),
+         q(0),
+         ],
+      q(bze) => [
+         q(1616),
+         q(0),
+         ],
+      q(bzf) => [
+         q(1617),
+         q(0),
+         ],
+      q(bzg) => [
+         q(1618),
+         q(0),
+         ],
+      q(bzh) => [
+         q(1619),
+         q(0),
+         ],
+      q(bzi) => [
+         q(1620),
+         q(0),
+         ],
+      q(bzj) => [
+         q(1621),
+         q(0),
+         ],
+      q(bzk) => [
+         q(1622),
+         q(0),
+         ],
+      q(bzl) => [
+         q(1623),
+         q(0),
+         ],
+      q(bzm) => [
+         q(1624),
+         q(0),
+         ],
+      q(bzn) => [
+         q(1625),
+         q(0),
+         ],
+      q(bzo) => [
+         q(1626),
+         q(0),
+         ],
+      q(bzp) => [
+         q(1627),
+         q(0),
+         ],
+      q(bzq) => [
+         q(1628),
+         q(0),
+         ],
+      q(bzr) => [
+         q(1629),
+         q(0),
+         ],
+      q(bzs) => [
+         q(1630),
+         q(0),
+         ],
+      q(bzt) => [
+         q(1631),
+         q(0),
+         ],
+      q(bzu) => [
+         q(1632),
+         q(0),
+         ],
+      q(bzv) => [
+         q(1633),
+         q(0),
+         ],
+      q(bzw) => [
+         q(1634),
+         q(0),
+         ],
+      q(bzx) => [
+         q(1635),
+         q(0),
+         ],
+      q(bzy) => [
+         q(1636),
+         q(0),
+         ],
+      q(bzz) => [
+         q(1637),
+         q(0),
+         ],
+      q(caa) => [
+         q(1638),
+         q(0),
+         ],
+      q(cab) => [
+         q(1639),
+         q(0),
+         ],
+      q(cac) => [
+         q(1640),
+         q(0),
+         ],
+      q(cad) => [
+         q(0068),
+         q(0),
+         ],
+      q(cae) => [
+         q(1641),
+         q(0),
+         ],
+      q(caf) => [
+         q(1642),
+         q(0),
+         ],
+      q(cag) => [
+         q(1643),
+         q(0),
+         ],
+      q(cah) => [
+         q(1644),
+         q(0),
+         ],
+      q(cai) => [
+         q(0069),
+         q(0),
+         ],
+      q(caj) => [
+         q(1645),
+         q(0),
+         ],
+      q(cak) => [
+         q(1646),
+         q(0),
+         ],
+      q(cal) => [
+         q(1647),
+         q(0),
+         ],
+      q(cam) => [
+         q(1648),
+         q(0),
+         ],
+      q(can) => [
+         q(1649),
+         q(0),
+         ],
+      q(cao) => [
+         q(1650),
+         q(0),
+         ],
+      q(cap) => [
+         q(1651),
+         q(0),
+         ],
+      q(caq) => [
+         q(1652),
+         q(0),
+         ],
+      q(car) => [
+         q(0070),
+         q(0),
+         ],
+      q(cas) => [
+         q(1653),
+         q(0),
+         ],
+      q(cat) => [
+         q(0071),
+         q(0),
+         ],
+      q(cau) => [
+         q(0072),
+         q(0),
+         ],
+      q(cav) => [
+         q(1654),
+         q(0),
+         ],
+      q(caw) => [
+         q(1655),
+         q(0),
+         ],
+      q(cax) => [
+         q(1656),
+         q(0),
+         ],
+      q(cay) => [
+         q(1657),
+         q(0),
+         ],
+      q(caz) => [
+         q(1658),
+         q(0),
+         ],
+      q(cba) => [
+         q(0495),
+         q(0),
+         ],
+      q(cbb) => [
+         q(1659),
+         q(0),
+         ],
+      q(cbc) => [
+         q(1660),
+         q(0),
+         ],
+      q(cbd) => [
+         q(1661),
+         q(0),
+         ],
+      q(cbg) => [
+         q(1662),
+         q(0),
+         ],
+      q(cbi) => [
+         q(1663),
+         q(0),
+         ],
+      q(cbj) => [
+         q(1664),
+         q(0),
+         ],
+      q(cbk) => [
+         q(1665),
+         q(0),
+         ],
+      q(cbl) => [
+         q(1666),
+         q(0),
+         ],
+      q(cbn) => [
+         q(1667),
+         q(0),
+         ],
+      q(cbo) => [
+         q(1668),
+         q(0),
+         ],
+      q(cbq) => [
+         q(1669),
+         q(0),
+         ],
+      q(cbr) => [
+         q(1670),
+         q(0),
+         ],
+      q(cbs) => [
+         q(1671),
+         q(0),
+         ],
+      q(cbt) => [
+         q(1672),
+         q(0),
+         ],
+      q(cbu) => [
+         q(1673),
+         q(0),
+         ],
+      q(cbv) => [
+         q(1674),
+         q(0),
+         ],
+      q(cbw) => [
+         q(1675),
+         q(0),
+         ],
+      q(cby) => [
+         q(1676),
+         q(0),
+         ],
+      q(cca) => [
+         q(1677),
+         q(0),
+         ],
+      q(ccc) => [
+         q(1678),
+         q(0),
+         ],
+      q(ccd) => [
+         q(1679),
+         q(0),
+         ],
+      q(cce) => [
+         q(1680),
+         q(0),
+         ],
+      q(ccg) => [
+         q(1681),
+         q(0),
+         ],
+      q(cch) => [
+         q(1682),
+         q(0),
+         ],
+      q(ccj) => [
+         q(1683),
+         q(0),
+         ],
+      q(ccl) => [
+         q(1684),
+         q(0),
+         ],
+      q(ccm) => [
+         q(1685),
+         q(0),
+         ],
+      q(ccn) => [
+         q(0496),
+         q(0),
+         ],
+      q(cco) => [
+         q(1686),
+         q(0),
+         ],
+      q(ccp) => [
+         q(1687),
+         q(0),
+         ],
+      q(ccr) => [
+         q(1688),
+         q(0),
+         ],
+      q(ccs) => [
+         q(0497),
+         q(0),
+         ],
+      q(cda) => [
+         q(1689),
+         q(0),
+         ],
+      q(cdc) => [
+         q(0498),
+         q(0),
+         ],
+      q(cdd) => [
+         q(0499),
+         q(0),
+         ],
+      q(cde) => [
+         q(1690),
+         q(0),
+         ],
+      q(cdf) => [
+         q(1691),
+         q(0),
+         ],
+      q(cdg) => [
+         q(1692),
+         q(0),
+         ],
+      q(cdh) => [
+         q(1693),
+         q(0),
+         ],
+      q(cdi) => [
+         q(1694),
+         q(0),
+         ],
+      q(cdj) => [
+         q(1695),
+         q(0),
+         ],
+      q(cdm) => [
+         q(1696),
+         q(0),
+         ],
+      q(cdn) => [
+         q(1697),
+         q(0),
+         ],
+      q(cdo) => [
+         q(1698),
+         q(0),
+         ],
+      q(cdr) => [
+         q(1699),
+         q(0),
+         ],
+      q(cds) => [
+         q(1700),
+         q(0),
+         ],
+      q(cdy) => [
+         q(1701),
+         q(0),
+         ],
+      q(cdz) => [
+         q(1702),
+         q(0),
+         ],
+      q(cea) => [
+         q(1703),
+         q(0),
+         ],
+      q(ceb) => [
+         q(0073),
+         q(0),
+         ],
+      q(ceg) => [
+         q(1704),
+         q(0),
+         ],
+      q(cek) => [
+         q(1705),
+         q(0),
+         ],
+      q(cel) => [
+         q(0074),
+         q(0),
+         ],
+      q(cen) => [
+         q(1706),
+         q(0),
+         ],
+      q(cet) => [
+         q(1707),
+         q(0),
+         ],
+      q(cfa) => [
+         q(1708),
+         q(0),
+         ],
+      q(cfd) => [
+         q(1709),
+         q(0),
+         ],
+      q(cfg) => [
+         q(1710),
+         q(0),
+         ],
+      q(cfm) => [
+         q(1711),
+         q(0),
+         ],
+      q(cga) => [
+         q(1712),
+         q(0),
+         ],
+      q(cgc) => [
+         q(1713),
+         q(0),
+         ],
+      q(cgg) => [
+         q(1714),
+         q(0),
+         ],
+      q(cgk) => [
+         q(1715),
+         q(0),
+         ],
+      q(cha) => [
+         q(0075),
+         q(0),
+         ],
+      q(chb) => [
+         q(0076),
+         q(0),
+         ],
+      q(chc) => [
+         q(1716),
+         q(0),
+         ],
+      q(chd) => [
+         q(1717),
+         q(0),
+         ],
+      q(che) => [
+         q(0077),
+         q(0),
+         ],
+      q(chf) => [
+         q(1718),
+         q(0),
+         ],
+      q(chg) => [
+         q(0078),
+         q(0),
+         ],
+      q(chh) => [
+         q(1719),
+         q(0),
+         ],
+      q(chi) => [
+         q(0079),
+         q(0),
+         ],
+      q(chj) => [
+         q(1720),
+         q(0),
+         ],
+      q(chk) => [
+         q(0080),
+         q(0),
+         ],
+      q(chl) => [
+         q(1721),
+         q(0),
+         ],
+      q(chm) => [
+         q(0081),
+         q(1),
+         ],
+      q(chn) => [
+         q(0082),
+         q(0),
+         ],
+      q(cho) => [
+         q(0083),
+         q(0),
+         ],
+      q(chp) => [
+         q(0084),
+         q(0),
+         ],
+      q(chq) => [
+         q(1722),
+         q(0),
+         ],
+      q(chr) => [
+         q(0085),
+         q(0),
+         ],
+      q(cht) => [
+         q(1723),
+         q(0),
+         ],
+      q(chu) => [
+         q(0086),
+         q(0),
+         ],
+      q(chv) => [
+         q(0087),
+         q(0),
+         ],
+      q(chw) => [
+         q(1724),
+         q(0),
+         ],
+      q(chx) => [
+         q(1725),
+         q(0),
+         ],
+      q(chy) => [
+         q(0088),
+         q(0),
+         ],
+      q(chz) => [
+         q(1726),
+         q(0),
+         ],
+      q(cia) => [
+         q(1727),
+         q(0),
+         ],
+      q(cib) => [
+         q(1728),
+         q(0),
+         ],
+      q(cic) => [
+         q(1729),
+         q(0),
+         ],
+      q(cid) => [
+         q(1730),
+         q(0),
+         ],
+      q(cie) => [
+         q(1731),
+         q(0),
+         ],
+      q(cih) => [
+         q(1732),
+         q(0),
+         ],
+      q(cik) => [
+         q(1733),
+         q(0),
+         ],
+      q(cim) => [
+         q(1734),
+         q(0),
+         ],
+      q(cin) => [
+         q(1735),
+         q(0),
+         ],
+      q(cip) => [
+         q(1736),
+         q(0),
+         ],
+      q(cir) => [
+         q(1737),
+         q(0),
+         ],
+      q(ciw) => [
+         q(1738),
+         q(0),
+         ],
+      q(ciy) => [
+         q(1739),
+         q(0),
+         ],
+      q(cja) => [
+         q(1740),
+         q(0),
+         ],
+      q(cje) => [
+         q(1741),
+         q(0),
+         ],
+      q(cjh) => [
+         q(1742),
+         q(0),
+         ],
+      q(cji) => [
+         q(1743),
+         q(0),
+         ],
+      q(cjk) => [
+         q(1744),
+         q(0),
+         ],
+      q(cjm) => [
+         q(1745),
+         q(0),
+         ],
+      q(cjn) => [
+         q(1746),
+         q(0),
+         ],
+      q(cjo) => [
+         q(1747),
+         q(0),
+         ],
+      q(cjp) => [
+         q(1748),
+         q(0),
+         ],
+      q(cjs) => [
+         q(1749),
+         q(0),
+         ],
+      q(cjv) => [
+         q(1750),
+         q(0),
+         ],
+      q(cjy) => [
+         q(1751),
+         q(0),
+         ],
+      q(ckb) => [
+         q(1752),
+         q(0),
+         ],
+      q(ckh) => [
+         q(1753),
+         q(0),
+         ],
+      q(ckl) => [
+         q(1754),
+         q(0),
+         ],
+      q(ckn) => [
+         q(1755),
+         q(0),
+         ],
+      q(cko) => [
+         q(1756),
+         q(0),
+         ],
+      q(ckq) => [
+         q(1757),
+         q(0),
+         ],
+      q(ckr) => [
+         q(1758),
+         q(0),
+         ],
+      q(cks) => [
+         q(1759),
+         q(0),
+         ],
+      q(ckt) => [
+         q(1760),
+         q(0),
+         ],
+      q(cku) => [
+         q(1761),
+         q(0),
+         ],
+      q(ckv) => [
+         q(1762),
+         q(0),
+         ],
+      q(ckx) => [
+         q(1763),
+         q(0),
+         ],
+      q(cky) => [
+         q(1764),
+         q(0),
+         ],
+      q(ckz) => [
+         q(1765),
+         q(0),
+         ],
+      q(cla) => [
+         q(1766),
+         q(0),
+         ],
+      q(clc) => [
+         q(1767),
+         q(0),
+         ],
+      q(cld) => [
+         q(1768),
+         q(0),
+         ],
+      q(cle) => [
+         q(1769),
+         q(0),
+         ],
+      q(clh) => [
+         q(1770),
+         q(0),
+         ],
+      q(cli) => [
+         q(1771),
+         q(0),
+         ],
+      q(clj) => [
+         q(1772),
+         q(0),
+         ],
+      q(clk) => [
+         q(1773),
+         q(0),
+         ],
+      q(cll) => [
+         q(1774),
+         q(0),
+         ],
+      q(clm) => [
+         q(1775),
+         q(0),
+         ],
+      q(clo) => [
+         q(1776),
+         q(0),
+         ],
+      q(clt) => [
+         q(1777),
+         q(0),
+         ],
+      q(clu) => [
+         q(1778),
+         q(0),
+         ],
+      q(clw) => [
+         q(1779),
+         q(0),
+         ],
+      q(cly) => [
+         q(1780),
+         q(0),
+         ],
+      q(cma) => [
+         q(1781),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0089),
+         q(0),
+         ],
+      q(cme) => [
+         q(1782),
+         q(0),
+         ],
+      q(cmg) => [
+         q(1783),
+         q(0),
+         ],
+      q(cmi) => [
+         q(1784),
+         q(0),
+         ],
+      q(cml) => [
+         q(1785),
+         q(0),
+         ],
+      q(cmm) => [
+         q(1786),
+         q(0),
+         ],
+      q(cmn) => [
+         q(1787),
+         q(0),
+         ],
+      q(cmo) => [
+         q(1788),
+         q(0),
+         ],
+      q(cmr) => [
+         q(1789),
+         q(0),
+         ],
+      q(cms) => [
+         q(1790),
+         q(0),
+         ],
+      q(cmt) => [
+         q(1791),
+         q(0),
+         ],
+      q(cna) => [
+         q(1792),
+         q(0),
+         ],
+      q(cnb) => [
+         q(1793),
+         q(0),
+         ],
+      q(cnc) => [
+         q(1794),
+         q(0),
+         ],
+      q(cng) => [
+         q(1795),
+         q(0),
+         ],
+      q(cnh) => [
+         q(1796),
+         q(0),
+         ],
+      q(cni) => [
+         q(1797),
+         q(0),
+         ],
+      q(cnk) => [
+         q(1798),
+         q(0),
+         ],
+      q(cnl) => [
+         q(1799),
+         q(0),
+         ],
+      q(cno) => [
+         q(1800),
+         q(0),
+         ],
+      q(cnr) => [
+         q(0090),
+         q(0),
+         ],
+      q(cns) => [
+         q(1801),
+         q(0),
+         ],
+      q(cnt) => [
+         q(1802),
+         q(0),
+         ],
+      q(cnu) => [
+         q(1803),
+         q(0),
+         ],
+      q(cnw) => [
+         q(1804),
+         q(0),
+         ],
+      q(cnx) => [
+         q(1805),
+         q(0),
+         ],
+      q(coa) => [
+         q(1806),
+         q(0),
+         ],
+      q(cob) => [
+         q(1807),
+         q(0),
+         ],
+      q(coc) => [
+         q(1808),
+         q(0),
+         ],
+      q(cod) => [
+         q(1809),
+         q(0),
+         ],
+      q(coe) => [
+         q(1810),
+         q(0),
+         ],
+      q(cof) => [
+         q(1811),
+         q(0),
+         ],
+      q(cog) => [
+         q(1812),
+         q(0),
+         ],
+      q(coh) => [
+         q(1813),
+         q(0),
+         ],
+      q(coj) => [
+         q(1814),
+         q(0),
+         ],
+      q(cok) => [
+         q(1815),
+         q(0),
+         ],
+      q(col) => [
+         q(1816),
+         q(0),
+         ],
+      q(com) => [
+         q(1817),
+         q(0),
+         ],
+      q(con) => [
+         q(1818),
+         q(0),
+         ],
+      q(coo) => [
+         q(1819),
+         q(0),
+         ],
+      q(cop) => [
+         q(0091),
+         q(0),
+         ],
+      q(coq) => [
+         q(1820),
+         q(0),
+         ],
+      q(cor) => [
+         q(0092),
+         q(0),
+         ],
+      q(cos) => [
+         q(0093),
+         q(0),
+         ],
+      q(cot) => [
+         q(1821),
+         q(0),
+         ],
+      q(cou) => [
+         q(1822),
+         q(0),
+         ],
+      q(cov) => [
+         q(1823),
+         q(0),
+         ],
+      q(cow) => [
+         q(1824),
+         q(0),
+         ],
+      q(cox) => [
+         q(1825),
+         q(0),
+         ],
+      q(coz) => [
+         q(1826),
+         q(0),
+         ],
+      q(cpa) => [
+         q(1827),
+         q(0),
+         ],
+      q(cpb) => [
+         q(1828),
+         q(0),
+         ],
+      q(cpc) => [
+         q(1829),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0094),
+         q(2),
+         ],
+      q(cpf) => [
+         q(0095),
+         q(2),
+         ],
+      q(cpg) => [
+         q(1830),
+         q(0),
+         ],
+      q(cpi) => [
+         q(1831),
+         q(0),
+         ],
+      q(cpn) => [
+         q(1832),
+         q(0),
+         ],
+      q(cpo) => [
+         q(1833),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0096),
+         q(2),
+         ],
+      q(cps) => [
+         q(1834),
+         q(0),
+         ],
+      q(cpu) => [
+         q(1835),
+         q(0),
+         ],
+      q(cpx) => [
+         q(1836),
+         q(0),
+         ],
+      q(cpy) => [
+         q(1837),
+         q(0),
+         ],
+      q(cqd) => [
+         q(1838),
+         q(0),
+         ],
+      q(cra) => [
+         q(1839),
+         q(0),
+         ],
+      q(crb) => [
+         q(1840),
+         q(0),
+         ],
+      q(crc) => [
+         q(1841),
+         q(0),
+         ],
+      q(crd) => [
+         q(1842),
+         q(0),
+         ],
+      q(cre) => [
+         q(0097),
+         q(0),
+         ],
+      q(crf) => [
+         q(1843),
+         q(0),
+         ],
+      q(crg) => [
+         q(1844),
+         q(0),
+         ],
+      q(crh) => [
+         q(0098),
+         q(0),
+         ],
+      q(cri) => [
+         q(1845),
+         q(0),
+         ],
+      q(crj) => [
+         q(1846),
+         q(0),
+         ],
+      q(crk) => [
+         q(1847),
+         q(0),
+         ],
+      q(crl) => [
+         q(1848),
+         q(0),
+         ],
+      q(crm) => [
+         q(1849),
+         q(0),
+         ],
+      q(crn) => [
+         q(1850),
+         q(0),
+         ],
+      q(cro) => [
+         q(1851),
+         q(0),
+         ],
+      q(crp) => [
+         q(0099),
+         q(1),
+         ],
+      q(crq) => [
+         q(1852),
+         q(0),
+         ],
+      q(crr) => [
+         q(1853),
+         q(0),
+         ],
+      q(crs) => [
+         q(1854),
+         q(0),
+         ],
+      q(crt) => [
+         q(1855),
+         q(0),
+         ],
+      q(crv) => [
+         q(1856),
+         q(0),
+         ],
+      q(crw) => [
+         q(1857),
+         q(0),
+         ],
+      q(crx) => [
+         q(1858),
+         q(0),
+         ],
+      q(cry) => [
+         q(1859),
+         q(0),
+         ],
+      q(crz) => [
+         q(1860),
+         q(0),
+         ],
+      q(csa) => [
+         q(1861),
+         q(0),
+         ],
+      q(csb) => [
+         q(0100),
+         q(0),
+         ],
+      q(csc) => [
+         q(1862),
+         q(0),
+         ],
+      q(csd) => [
+         q(1863),
+         q(0),
+         ],
+      q(cse) => [
+         q(1864),
+         q(0),
+         ],
+      q(csf) => [
+         q(1865),
+         q(0),
+         ],
+      q(csg) => [
+         q(1866),
+         q(0),
+         ],
+      q(csh) => [
+         q(1867),
+         q(0),
+         ],
+      q(csi) => [
+         q(1868),
+         q(0),
+         ],
+      q(csj) => [
+         q(1869),
+         q(0),
+         ],
+      q(csk) => [
+         q(1870),
+         q(0),
+         ],
+      q(csl) => [
+         q(1871),
+         q(0),
+         ],
+      q(csm) => [
+         q(1872),
+         q(0),
+         ],
+      q(csn) => [
+         q(1873),
+         q(0),
+         ],
+      q(cso) => [
+         q(1874),
+         q(0),
+         ],
+      q(csq) => [
+         q(1875),
+         q(0),
+         ],
+      q(csr) => [
+         q(1876),
+         q(0),
+         ],
+      q(css) => [
+         q(1877),
+         q(0),
+         ],
+      q(cst) => [
+         q(1878),
+         q(0),
+         ],
+      q(csu) => [
+         q(0500),
+         q(0),
+         ],
+      q(csv) => [
+         q(1879),
+         q(0),
+         ],
+      q(csw) => [
+         q(1880),
+         q(0),
+         ],
+      q(csy) => [
+         q(1881),
+         q(0),
+         ],
+      q(csz) => [
+         q(1882),
+         q(0),
+         ],
+      q(cta) => [
+         q(1883),
+         q(0),
+         ],
+      q(ctc) => [
+         q(1884),
+         q(0),
+         ],
+      q(ctd) => [
+         q(1885),
+         q(0),
+         ],
+      q(cte) => [
+         q(1886),
+         q(0),
+         ],
+      q(ctg) => [
+         q(1887),
+         q(0),
+         ],
+      q(cth) => [
+         q(1888),
+         q(0),
+         ],
+      q(ctl) => [
+         q(1889),
+         q(0),
+         ],
+      q(ctm) => [
+         q(1890),
+         q(0),
+         ],
+      q(ctn) => [
+         q(1891),
+         q(0),
+         ],
+      q(cto) => [
+         q(1892),
+         q(0),
+         ],
+      q(ctp) => [
+         q(1893),
+         q(0),
+         ],
+      q(cts) => [
+         q(1894),
+         q(0),
+         ],
+      q(ctt) => [
+         q(1895),
+         q(0),
+         ],
+      q(ctu) => [
+         q(1896),
+         q(0),
+         ],
+      q(ctz) => [
+         q(1897),
+         q(0),
+         ],
+      q(cua) => [
+         q(1898),
+         q(0),
+         ],
+      q(cub) => [
+         q(1899),
+         q(0),
+         ],
+      q(cuc) => [
+         q(1900),
+         q(0),
+         ],
+      q(cug) => [
+         q(1901),
+         q(0),
+         ],
+      q(cuh) => [
+         q(1902),
+         q(0),
+         ],
+      q(cui) => [
+         q(1903),
+         q(0),
+         ],
+      q(cuj) => [
+         q(1904),
+         q(0),
+         ],
+      q(cuk) => [
+         q(1905),
+         q(0),
+         ],
+      q(cul) => [
+         q(1906),
+         q(0),
+         ],
+      q(cuo) => [
+         q(1907),
+         q(0),
+         ],
+      q(cup) => [
+         q(1908),
+         q(0),
+         ],
+      q(cuq) => [
+         q(1909),
+         q(0),
+         ],
+      q(cur) => [
+         q(1910),
+         q(0),
+         ],
+      q(cus) => [
+         q(0101),
+         q(0),
+         ],
+      q(cut) => [
+         q(1911),
+         q(0),
+         ],
+      q(cuu) => [
+         q(1912),
+         q(0),
+         ],
+      q(cuv) => [
+         q(1913),
+         q(0),
+         ],
+      q(cuw) => [
+         q(1914),
+         q(0),
+         ],
+      q(cux) => [
+         q(1915),
+         q(0),
+         ],
+      q(cvg) => [
+         q(1916),
+         q(0),
+         ],
+      q(cvn) => [
+         q(1917),
+         q(0),
+         ],
+      q(cwa) => [
+         q(1918),
+         q(0),
+         ],
+      q(cwb) => [
+         q(1919),
+         q(0),
+         ],
+      q(cwd) => [
+         q(1920),
+         q(0),
+         ],
+      q(cwe) => [
+         q(1921),
+         q(0),
+         ],
+      q(cwg) => [
+         q(1922),
+         q(0),
+         ],
+      q(cwt) => [
+         q(1923),
+         q(0),
+         ],
+      q(cya) => [
+         q(1924),
+         q(0),
+         ],
+      q(cyb) => [
+         q(1925),
+         q(0),
+         ],
+      q(cyo) => [
+         q(1926),
+         q(0),
+         ],
+      q(cze) => [
+         q(0102),
+         q(0),
+         ],
+      q(czh) => [
+         q(1927),
+         q(0),
+         ],
+      q(czk) => [
+         q(1928),
+         q(0),
+         ],
+      q(czn) => [
+         q(1929),
+         q(0),
+         ],
+      q(czo) => [
+         q(1930),
+         q(0),
+         ],
+      q(czt) => [
+         q(1931),
+         q(0),
+         ],
+      q(daa) => [
+         q(1932),
+         q(0),
+         ],
+      q(dac) => [
+         q(1933),
+         q(0),
+         ],
+      q(dad) => [
+         q(1934),
+         q(0),
+         ],
+      q(dae) => [
+         q(1935),
+         q(0),
+         ],
+      q(dag) => [
+         q(1936),
+         q(0),
+         ],
+      q(dah) => [
+         q(1937),
+         q(0),
+         ],
+      q(dai) => [
+         q(1938),
+         q(0),
+         ],
+      q(daj) => [
+         q(1939),
+         q(0),
+         ],
+      q(dak) => [
+         q(0103),
+         q(0),
+         ],
+      q(dal) => [
+         q(1940),
+         q(0),
+         ],
+      q(dam) => [
+         q(1941),
+         q(0),
+         ],
+      q(dan) => [
+         q(0104),
+         q(0),
+         ],
+      q(dao) => [
+         q(1942),
+         q(0),
+         ],
+      q(daq) => [
+         q(1943),
+         q(0),
+         ],
+      q(dar) => [
+         q(0105),
+         q(0),
+         ],
+      q(das) => [
+         q(1944),
+         q(0),
+         ],
+      q(dau) => [
+         q(1945),
+         q(0),
+         ],
+      q(dav) => [
+         q(1946),
+         q(0),
+         ],
+      q(daw) => [
+         q(1947),
+         q(0),
+         ],
+      q(dax) => [
+         q(1948),
+         q(0),
+         ],
+      q(day) => [
+         q(0106),
+         q(0),
+         ],
+      q(daz) => [
+         q(1949),
+         q(0),
+         ],
+      q(dba) => [
+         q(1950),
+         q(0),
+         ],
+      q(dbb) => [
+         q(1951),
+         q(0),
+         ],
+      q(dbd) => [
+         q(1952),
+         q(0),
+         ],
+      q(dbe) => [
+         q(1953),
+         q(0),
+         ],
+      q(dbf) => [
+         q(1954),
+         q(0),
+         ],
+      q(dbg) => [
+         q(1955),
+         q(0),
+         ],
+      q(dbi) => [
+         q(1956),
+         q(0),
+         ],
+      q(dbj) => [
+         q(1957),
+         q(0),
+         ],
+      q(dbl) => [
+         q(1958),
+         q(0),
+         ],
+      q(dbm) => [
+         q(1959),
+         q(0),
+         ],
+      q(dbn) => [
+         q(1960),
+         q(0),
+         ],
+      q(dbo) => [
+         q(1961),
+         q(0),
+         ],
+      q(dbp) => [
+         q(1962),
+         q(0),
+         ],
+      q(dbq) => [
+         q(1963),
+         q(0),
+         ],
+      q(dbr) => [
+         q(1964),
+         q(0),
+         ],
+      q(dbt) => [
+         q(1965),
+         q(0),
+         ],
+      q(dbu) => [
+         q(1966),
+         q(0),
+         ],
+      q(dbv) => [
+         q(1967),
+         q(0),
+         ],
+      q(dbw) => [
+         q(1968),
+         q(0),
+         ],
+      q(dby) => [
+         q(1969),
+         q(0),
+         ],
+      q(dcc) => [
+         q(1970),
+         q(0),
+         ],
+      q(dcr) => [
+         q(1971),
+         q(0),
+         ],
+      q(dda) => [
+         q(1972),
+         q(0),
+         ],
+      q(ddd) => [
+         q(1973),
+         q(0),
+         ],
+      q(dde) => [
+         q(1974),
+         q(0),
+         ],
+      q(ddg) => [
+         q(1975),
+         q(0),
+         ],
+      q(ddi) => [
+         q(1976),
+         q(0),
+         ],
+      q(ddj) => [
+         q(1977),
+         q(0),
+         ],
+      q(ddn) => [
+         q(1978),
+         q(0),
+         ],
+      q(ddo) => [
+         q(1979),
+         q(0),
+         ],
+      q(ddr) => [
+         q(1980),
+         q(0),
+         ],
+      q(dds) => [
+         q(1981),
+         q(0),
+         ],
+      q(ddw) => [
+         q(1982),
+         q(0),
+         ],
+      q(dec) => [
+         q(1983),
+         q(0),
+         ],
+      q(ded) => [
+         q(1984),
+         q(0),
+         ],
+      q(dee) => [
+         q(1985),
+         q(0),
+         ],
+      q(def) => [
+         q(1986),
+         q(0),
+         ],
+      q(deg) => [
+         q(1987),
+         q(0),
+         ],
+      q(deh) => [
+         q(1988),
+         q(0),
+         ],
+      q(dei) => [
+         q(1989),
+         q(0),
+         ],
+      q(dek) => [
+         q(1990),
+         q(0),
+         ],
+      q(del) => [
+         q(0107),
+         q(0),
+         ],
+      q(dem) => [
+         q(1991),
+         q(0),
+         ],
+      q(den) => [
+         q(0108),
+         q(0),
+         ],
+      q(dep) => [
+         q(1992),
+         q(0),
+         ],
+      q(deq) => [
+         q(1993),
+         q(0),
+         ],
+      q(der) => [
+         q(1994),
+         q(0),
+         ],
+      q(des) => [
+         q(1995),
+         q(0),
+         ],
+      q(dev) => [
+         q(1996),
+         q(0),
+         ],
+      q(dez) => [
+         q(1997),
+         q(0),
+         ],
+      q(dga) => [
+         q(1998),
+         q(0),
+         ],
+      q(dgb) => [
+         q(1999),
+         q(0),
+         ],
+      q(dgc) => [
+         q(2000),
+         q(0),
+         ],
+      q(dgd) => [
+         q(2001),
+         q(0),
+         ],
+      q(dge) => [
+         q(2002),
+         q(0),
+         ],
+      q(dgg) => [
+         q(2003),
+         q(0),
+         ],
+      q(dgh) => [
+         q(2004),
+         q(0),
+         ],
+      q(dgi) => [
+         q(2005),
+         q(0),
+         ],
+      q(dgk) => [
+         q(2006),
+         q(0),
+         ],
+      q(dgl) => [
+         q(2007),
+         q(0),
+         ],
+      q(dgn) => [
+         q(2008),
+         q(0),
+         ],
+      q(dgo) => [
+         q(2009),
+         q(0),
+         ],
+      q(dgr) => [
+         q(0109),
+         q(0),
+         ],
+      q(dgs) => [
+         q(2010),
+         q(0),
+         ],
+      q(dgt) => [
+         q(2011),
+         q(0),
+         ],
+      q(dgu) => [
+         q(2012),
+         q(0),
+         ],
+      q(dgw) => [
+         q(2013),
+         q(0),
+         ],
+      q(dgx) => [
+         q(2014),
+         q(0),
+         ],
+      q(dgz) => [
+         q(2015),
+         q(0),
+         ],
+      q(dhd) => [
+         q(2016),
+         q(0),
+         ],
+      q(dhg) => [
+         q(2017),
+         q(0),
+         ],
+      q(dhi) => [
+         q(2018),
+         q(0),
+         ],
+      q(dhl) => [
+         q(2019),
+         q(0),
+         ],
+      q(dhm) => [
+         q(2020),
+         q(0),
+         ],
+      q(dhn) => [
+         q(2021),
+         q(0),
+         ],
+      q(dho) => [
+         q(2022),
+         q(0),
+         ],
+      q(dhr) => [
+         q(2023),
+         q(0),
+         ],
+      q(dhs) => [
+         q(2024),
+         q(0),
+         ],
+      q(dhu) => [
+         q(2025),
+         q(0),
+         ],
+      q(dhv) => [
+         q(2026),
+         q(0),
+         ],
+      q(dhw) => [
+         q(2027),
+         q(0),
+         ],
+      q(dhx) => [
+         q(2028),
+         q(0),
+         ],
+      q(dia) => [
+         q(2029),
+         q(0),
+         ],
+      q(dib) => [
+         q(2030),
+         q(0),
+         ],
+      q(dic) => [
+         q(2031),
+         q(0),
+         ],
+      q(did) => [
+         q(2032),
+         q(0),
+         ],
+      q(dif) => [
+         q(2033),
+         q(0),
+         ],
+      q(dig) => [
+         q(2034),
+         q(0),
+         ],
+      q(dih) => [
+         q(2035),
+         q(0),
+         ],
+      q(dii) => [
+         q(2036),
+         q(0),
+         ],
+      q(dij) => [
+         q(2037),
+         q(0),
+         ],
+      q(dik) => [
+         q(2038),
+         q(0),
+         ],
+      q(dil) => [
+         q(2039),
+         q(0),
+         ],
+      q(dim) => [
+         q(2040),
+         q(0),
+         ],
+      q(din) => [
+         q(0110),
+         q(0),
+         ],
+      q(dio) => [
+         q(2041),
+         q(0),
+         ],
+      q(dip) => [
+         q(2042),
+         q(0),
+         ],
+      q(diq) => [
+         q(2043),
+         q(0),
+         ],
+      q(dir) => [
+         q(2044),
+         q(0),
+         ],
+      q(dis) => [
+         q(2045),
+         q(0),
+         ],
+      q(dit) => [
+         q(2046),
+         q(0),
+         ],
+      q(diu) => [
+         q(2047),
+         q(0),
+         ],
+      q(div) => [
+         q(0111),
+         q(0),
+         ],
+      q(diw) => [
+         q(2048),
+         q(0),
+         ],
+      q(dix) => [
+         q(2049),
+         q(0),
+         ],
+      q(diy) => [
+         q(2050),
+         q(0),
+         ],
+      q(diz) => [
+         q(2051),
+         q(0),
+         ],
+      q(dja) => [
+         q(2052),
+         q(0),
+         ],
+      q(djb) => [
+         q(2053),
+         q(0),
+         ],
+      q(djc) => [
+         q(2054),
+         q(0),
+         ],
+      q(djd) => [
+         q(2055),
+         q(0),
+         ],
+      q(dje) => [
+         q(2056),
+         q(0),
+         ],
+      q(djf) => [
+         q(2057),
+         q(0),
+         ],
+      q(dji) => [
+         q(2058),
+         q(0),
+         ],
+      q(djj) => [
+         q(2059),
+         q(0),
+         ],
+      q(djk) => [
+         q(2060),
+         q(0),
+         ],
+      q(djm) => [
+         q(2061),
+         q(0),
+         ],
+      q(djn) => [
+         q(2062),
+         q(0),
+         ],
+      q(djo) => [
+         q(2063),
+         q(0),
+         ],
+      q(djr) => [
+         q(2064),
+         q(0),
+         ],
+      q(dju) => [
+         q(2065),
+         q(0),
+         ],
+      q(djw) => [
+         q(2066),
+         q(0),
+         ],
+      q(dka) => [
+         q(2067),
+         q(0),
+         ],
+      q(dkk) => [
+         q(2068),
+         q(0),
+         ],
+      q(dkr) => [
+         q(2069),
+         q(0),
+         ],
+      q(dks) => [
+         q(2070),
+         q(0),
+         ],
+      q(dkx) => [
+         q(2071),
+         q(0),
+         ],
+      q(dlg) => [
+         q(2072),
+         q(0),
+         ],
+      q(dlk) => [
+         q(2073),
+         q(0),
+         ],
+      q(dlm) => [
+         q(2074),
+         q(0),
+         ],
+      q(dln) => [
+         q(2075),
+         q(0),
+         ],
+      q(dma) => [
+         q(2076),
+         q(0),
+         ],
+      q(dmb) => [
+         q(2077),
+         q(0),
+         ],
+      q(dmc) => [
+         q(2078),
+         q(0),
+         ],
+      q(dmd) => [
+         q(2079),
+         q(0),
+         ],
+      q(dme) => [
+         q(2080),
+         q(0),
+         ],
+      q(dmg) => [
+         q(2081),
+         q(0),
+         ],
+      q(dmk) => [
+         q(2082),
+         q(0),
+         ],
+      q(dml) => [
+         q(2083),
+         q(0),
+         ],
+      q(dmm) => [
+         q(2084),
+         q(0),
+         ],
+      q(dmn) => [
+         q(0501),
+         q(0),
+         ],
+      q(dmo) => [
+         q(2085),
+         q(0),
+         ],
+      q(dmr) => [
+         q(2086),
+         q(0),
+         ],
+      q(dms) => [
+         q(2087),
+         q(0),
+         ],
+      q(dmu) => [
+         q(2088),
+         q(0),
+         ],
+      q(dmv) => [
+         q(2089),
+         q(0),
+         ],
+      q(dmw) => [
+         q(2090),
+         q(0),
+         ],
+      q(dmx) => [
+         q(2091),
+         q(0),
+         ],
+      q(dmy) => [
+         q(2092),
+         q(0),
+         ],
+      q(dna) => [
+         q(2093),
+         q(0),
+         ],
+      q(dnd) => [
+         q(2094),
+         q(0),
+         ],
+      q(dne) => [
+         q(2095),
+         q(0),
+         ],
+      q(dng) => [
+         q(2096),
+         q(0),
+         ],
+      q(dni) => [
+         q(2097),
+         q(0),
+         ],
+      q(dnj) => [
+         q(2098),
+         q(0),
+         ],
+      q(dnk) => [
+         q(2099),
+         q(0),
+         ],
+      q(dnn) => [
+         q(2100),
+         q(0),
+         ],
+      q(dnr) => [
+         q(2101),
+         q(0),
+         ],
+      q(dnt) => [
+         q(2102),
+         q(0),
+         ],
+      q(dnu) => [
+         q(2103),
+         q(0),
+         ],
+      q(dnv) => [
+         q(2104),
+         q(0),
+         ],
+      q(dnw) => [
+         q(2105),
+         q(0),
+         ],
+      q(dny) => [
+         q(2106),
+         q(0),
+         ],
+      q(doa) => [
+         q(2107),
+         q(0),
+         ],
+      q(dob) => [
+         q(2108),
+         q(0),
+         ],
+      q(doc) => [
+         q(2109),
+         q(0),
+         ],
+      q(doe) => [
+         q(2110),
+         q(0),
+         ],
+      q(dof) => [
+         q(2111),
+         q(0),
+         ],
+      q(doh) => [
+         q(2112),
+         q(0),
+         ],
+      q(doi) => [
+         q(0112),
+         q(1),
+         ],
+      q(dok) => [
+         q(2113),
+         q(0),
+         ],
+      q(dol) => [
+         q(2114),
+         q(0),
+         ],
+      q(don) => [
+         q(2115),
+         q(0),
+         ],
+      q(doo) => [
+         q(2116),
+         q(0),
+         ],
+      q(dop) => [
+         q(2117),
+         q(0),
+         ],
+      q(doq) => [
+         q(2118),
+         q(0),
+         ],
+      q(dor) => [
+         q(2119),
+         q(0),
+         ],
+      q(dos) => [
+         q(2120),
+         q(0),
+         ],
+      q(dot) => [
+         q(2121),
+         q(0),
+         ],
+      q(dov) => [
+         q(2122),
+         q(0),
+         ],
+      q(dow) => [
+         q(2123),
+         q(0),
+         ],
+      q(dox) => [
+         q(2124),
+         q(0),
+         ],
+      q(doy) => [
+         q(2125),
+         q(0),
+         ],
+      q(doz) => [
+         q(2126),
+         q(0),
+         ],
+      q(dpp) => [
+         q(2127),
+         q(0),
+         ],
+      q(dra) => [
+         q(0113),
+         q(0),
+         ],
+      q(drb) => [
+         q(2128),
+         q(0),
+         ],
+      q(drc) => [
+         q(2129),
+         q(0),
+         ],
+      q(drd) => [
+         q(2130),
+         q(0),
+         ],
+      q(dre) => [
+         q(2131),
+         q(0),
+         ],
+      q(drg) => [
+         q(2132),
+         q(0),
+         ],
+      q(dri) => [
+         q(2133),
+         q(0),
+         ],
+      q(drl) => [
+         q(2134),
+         q(0),
+         ],
+      q(drn) => [
+         q(2135),
+         q(0),
+         ],
+      q(dro) => [
+         q(2136),
+         q(0),
+         ],
+      q(drq) => [
+         q(2137),
+         q(0),
+         ],
+      q(drr) => [
+         q(2138),
+         q(0),
+         ],
+      q(drs) => [
+         q(2139),
+         q(0),
+         ],
+      q(drt) => [
+         q(2140),
+         q(0),
+         ],
+      q(dru) => [
+         q(2141),
+         q(0),
+         ],
+      q(dry) => [
+         q(2142),
+         q(0),
+         ],
+      q(dsb) => [
+         q(0114),
+         q(0),
+         ],
+      q(dse) => [
+         q(2143),
+         q(0),
+         ],
+      q(dsh) => [
+         q(2144),
+         q(0),
+         ],
+      q(dsi) => [
+         q(2145),
+         q(0),
+         ],
+      q(dsl) => [
+         q(2146),
+         q(0),
+         ],
+      q(dsn) => [
+         q(2147),
+         q(0),
+         ],
+      q(dso) => [
+         q(2148),
+         q(0),
+         ],
+      q(dsq) => [
+         q(2149),
+         q(0),
+         ],
+      q(dta) => [
+         q(2150),
+         q(0),
+         ],
+      q(dtb) => [
+         q(2151),
+         q(0),
+         ],
+      q(dtd) => [
+         q(2152),
+         q(0),
+         ],
+      q(dth) => [
+         q(2153),
+         q(0),
+         ],
+      q(dti) => [
+         q(2154),
+         q(0),
+         ],
+      q(dtk) => [
+         q(2155),
+         q(0),
+         ],
+      q(dtm) => [
+         q(2156),
+         q(0),
+         ],
+      q(dtn) => [
+         q(2157),
+         q(0),
+         ],
+      q(dto) => [
+         q(2158),
+         q(0),
+         ],
+      q(dtp) => [
+         q(2159),
+         q(0),
+         ],
+      q(dtr) => [
+         q(2160),
+         q(0),
+         ],
+      q(dts) => [
+         q(2161),
+         q(0),
+         ],
+      q(dtt) => [
+         q(2162),
+         q(0),
+         ],
+      q(dtu) => [
+         q(2163),
+         q(0),
+         ],
+      q(dty) => [
+         q(2164),
+         q(0),
+         ],
+      q(dua) => [
+         q(0115),
+         q(0),
+         ],
+      q(dub) => [
+         q(2165),
+         q(0),
+         ],
+      q(duc) => [
+         q(2166),
+         q(0),
+         ],
+      q(dud) => [
+         q(2167),
+         q(0),
+         ],
+      q(due) => [
+         q(2168),
+         q(0),
+         ],
+      q(duf) => [
+         q(2169),
+         q(0),
+         ],
+      q(dug) => [
+         q(2170),
+         q(0),
+         ],
+      q(duh) => [
+         q(2171),
+         q(0),
+         ],
+      q(dui) => [
+         q(2172),
+         q(0),
+         ],
+      q(duk) => [
+         q(2173),
+         q(0),
+         ],
+      q(dul) => [
+         q(2174),
+         q(0),
+         ],
+      q(dum) => [
+         q(0116),
+         q(1),
+         ],
+      q(dun) => [
+         q(2175),
+         q(0),
+         ],
+      q(duo) => [
+         q(2176),
+         q(0),
+         ],
+      q(dup) => [
+         q(2177),
+         q(0),
+         ],
+      q(duq) => [
+         q(2178),
+         q(0),
+         ],
+      q(dur) => [
+         q(2179),
+         q(0),
+         ],
+      q(dus) => [
+         q(2180),
+         q(0),
+         ],
+      q(dut) => [
+         q(0117),
+         q(0),
+         ],
+      q(duu) => [
+         q(2181),
+         q(0),
+         ],
+      q(duv) => [
+         q(2182),
+         q(0),
+         ],
+      q(duw) => [
+         q(2183),
+         q(0),
+         ],
+      q(dux) => [
+         q(2184),
+         q(0),
+         ],
+      q(duy) => [
+         q(2185),
+         q(0),
+         ],
+      q(duz) => [
+         q(2186),
+         q(0),
+         ],
+      q(dva) => [
+         q(2187),
+         q(0),
+         ],
+      q(dwa) => [
+         q(2188),
+         q(0),
+         ],
+      q(dwr) => [
+         q(2189),
+         q(0),
+         ],
+      q(dws) => [
+         q(2190),
+         q(0),
+         ],
+      q(dwu) => [
+         q(2191),
+         q(0),
+         ],
+      q(dww) => [
+         q(2192),
+         q(0),
+         ],
+      q(dwy) => [
+         q(2193),
+         q(0),
+         ],
+      q(dya) => [
+         q(2194),
+         q(0),
+         ],
+      q(dyb) => [
+         q(2195),
+         q(0),
+         ],
+      q(dyd) => [
+         q(2196),
+         q(0),
+         ],
+      q(dyg) => [
+         q(2197),
+         q(0),
+         ],
+      q(dyi) => [
+         q(2198),
+         q(0),
+         ],
+      q(dym) => [
+         q(2199),
+         q(0),
+         ],
+      q(dyn) => [
+         q(2200),
+         q(0),
+         ],
+      q(dyo) => [
+         q(2201),
+         q(0),
+         ],
+      q(dyu) => [
+         q(0118),
+         q(0),
+         ],
+      q(dyy) => [
+         q(2202),
+         q(0),
+         ],
+      q(dza) => [
+         q(2203),
+         q(0),
+         ],
+      q(dze) => [
+         q(2204),
+         q(0),
+         ],
+      q(dzg) => [
+         q(2205),
+         q(0),
+         ],
+      q(dzl) => [
+         q(2206),
+         q(0),
+         ],
+      q(dzn) => [
+         q(2207),
+         q(0),
+         ],
+      q(dzo) => [
+         q(0119),
+         q(0),
+         ],
+      q(eaa) => [
+         q(2208),
+         q(0),
+         ],
+      q(ebg) => [
+         q(2209),
+         q(0),
+         ],
+      q(ebk) => [
+         q(2210),
+         q(0),
+         ],
+      q(ebo) => [
+         q(2211),
+         q(0),
+         ],
+      q(ebr) => [
+         q(2212),
+         q(0),
+         ],
+      q(ebu) => [
+         q(2213),
+         q(0),
+         ],
+      q(ecr) => [
+         q(2214),
+         q(0),
+         ],
+      q(ecs) => [
+         q(2215),
+         q(0),
+         ],
+      q(ecy) => [
+         q(2216),
+         q(0),
+         ],
+      q(eee) => [
+         q(2217),
+         q(0),
+         ],
+      q(efa) => [
+         q(2218),
+         q(0),
+         ],
+      q(efe) => [
+         q(2219),
+         q(0),
+         ],
+      q(efi) => [
+         q(0120),
+         q(0),
+         ],
+      q(ega) => [
+         q(2220),
+         q(0),
+         ],
+      q(egl) => [
+         q(2221),
+         q(0),
+         ],
+      q(ego) => [
+         q(2222),
+         q(0),
+         ],
+      q(egx) => [
+         q(0502),
+         q(0),
+         ],
+      q(egy) => [
+         q(0121),
+         q(0),
+         ],
+      q(ehu) => [
+         q(2223),
+         q(0),
+         ],
+      q(eip) => [
+         q(2224),
+         q(0),
+         ],
+      q(eit) => [
+         q(2225),
+         q(0),
+         ],
+      q(eiv) => [
+         q(2226),
+         q(0),
+         ],
+      q(eja) => [
+         q(2227),
+         q(0),
+         ],
+      q(eka) => [
+         q(0122),
+         q(0),
+         ],
+      q(ekc) => [
+         q(2228),
+         q(0),
+         ],
+      q(eke) => [
+         q(2229),
+         q(0),
+         ],
+      q(ekg) => [
+         q(2230),
+         q(0),
+         ],
+      q(eki) => [
+         q(2231),
+         q(0),
+         ],
+      q(ekk) => [
+         q(2232),
+         q(0),
+         ],
+      q(ekl) => [
+         q(2233),
+         q(0),
+         ],
+      q(ekm) => [
+         q(2234),
+         q(0),
+         ],
+      q(eko) => [
+         q(2235),
+         q(0),
+         ],
+      q(ekp) => [
+         q(2236),
+         q(0),
+         ],
+      q(ekr) => [
+         q(2237),
+         q(0),
+         ],
+      q(eky) => [
+         q(2238),
+         q(0),
+         ],
+      q(ele) => [
+         q(2239),
+         q(0),
+         ],
+      q(elh) => [
+         q(2240),
+         q(0),
+         ],
+      q(eli) => [
+         q(2241),
+         q(0),
+         ],
+      q(elk) => [
+         q(2242),
+         q(0),
+         ],
+      q(elm) => [
+         q(2243),
+         q(0),
+         ],
+      q(elo) => [
+         q(2244),
+         q(0),
+         ],
+      q(elu) => [
+         q(2245),
+         q(0),
+         ],
+      q(elx) => [
+         q(0123),
+         q(0),
+         ],
+      q(ema) => [
+         q(2246),
+         q(0),
+         ],
+      q(emb) => [
+         q(2247),
+         q(0),
+         ],
+      q(eme) => [
+         q(2248),
+         q(0),
+         ],
+      q(emg) => [
+         q(2249),
+         q(0),
+         ],
+      q(emi) => [
+         q(2250),
+         q(0),
+         ],
+      q(emk) => [
+         q(2251),
+         q(0),
+         ],
+      q(emm) => [
+         q(2252),
+         q(0),
+         ],
+      q(emn) => [
+         q(2253),
+         q(0),
+         ],
+      q(emp) => [
+         q(2254),
+         q(0),
+         ],
+      q(ems) => [
+         q(2255),
+         q(0),
+         ],
+      q(emu) => [
+         q(2256),
+         q(0),
+         ],
+      q(emw) => [
+         q(2257),
+         q(0),
+         ],
+      q(emx) => [
+         q(2258),
+         q(0),
+         ],
+      q(emy) => [
+         q(2259),
+         q(0),
+         ],
+      q(ena) => [
+         q(2260),
+         q(0),
+         ],
+      q(enb) => [
+         q(2261),
+         q(0),
+         ],
+      q(enc) => [
+         q(2262),
+         q(0),
+         ],
+      q(end) => [
+         q(2263),
+         q(0),
+         ],
+      q(enf) => [
+         q(2264),
+         q(0),
+         ],
+      q(eng) => [
+         q(0124),
+         q(0),
+         ],
+      q(enh) => [
+         q(2265),
+         q(0),
+         ],
+      q(enl) => [
+         q(2266),
+         q(0),
+         ],
+      q(enm) => [
+         q(0125),
+         q(1),
+         ],
+      q(enn) => [
+         q(2267),
+         q(0),
+         ],
+      q(eno) => [
+         q(2268),
+         q(0),
+         ],
+      q(enq) => [
+         q(2269),
+         q(0),
+         ],
+      q(enr) => [
+         q(2270),
+         q(0),
+         ],
+      q(enu) => [
+         q(2271),
+         q(0),
+         ],
+      q(env) => [
+         q(2272),
+         q(0),
+         ],
+      q(enw) => [
+         q(2273),
+         q(0),
+         ],
+      q(enx) => [
+         q(2274),
+         q(0),
+         ],
+      q(eot) => [
+         q(2275),
+         q(0),
+         ],
+      q(epi) => [
+         q(2276),
+         q(0),
+         ],
+      q(epo) => [
+         q(0126),
+         q(0),
+         ],
+      q(era) => [
+         q(2277),
+         q(0),
+         ],
+      q(erg) => [
+         q(2278),
+         q(0),
+         ],
+      q(erh) => [
+         q(2279),
+         q(0),
+         ],
+      q(eri) => [
+         q(2280),
+         q(0),
+         ],
+      q(erk) => [
+         q(2281),
+         q(0),
+         ],
+      q(ero) => [
+         q(2282),
+         q(0),
+         ],
+      q(err) => [
+         q(2283),
+         q(0),
+         ],
+      q(ers) => [
+         q(2284),
+         q(0),
+         ],
+      q(ert) => [
+         q(2285),
+         q(0),
+         ],
+      q(erw) => [
+         q(2286),
+         q(0),
+         ],
+      q(ese) => [
+         q(2287),
+         q(0),
+         ],
+      q(esg) => [
+         q(2288),
+         q(0),
+         ],
+      q(esh) => [
+         q(2289),
+         q(0),
+         ],
+      q(esi) => [
+         q(2290),
+         q(0),
+         ],
+      q(esk) => [
+         q(2291),
+         q(0),
+         ],
+      q(esl) => [
+         q(2292),
+         q(0),
+         ],
+      q(esm) => [
+         q(2293),
+         q(0),
+         ],
+      q(esn) => [
+         q(2294),
+         q(0),
+         ],
+      q(eso) => [
+         q(2295),
+         q(0),
+         ],
+      q(esq) => [
+         q(2296),
+         q(0),
+         ],
+      q(ess) => [
+         q(2297),
+         q(0),
+         ],
+      q(est) => [
+         q(0127),
+         q(0),
+         ],
+      q(esu) => [
+         q(2298),
+         q(0),
+         ],
+      q(esx) => [
+         q(0503),
+         q(0),
+         ],
+      q(esy) => [
+         q(2299),
+         q(0),
+         ],
+      q(etb) => [
+         q(2300),
+         q(0),
+         ],
+      q(etc) => [
+         q(2301),
+         q(0),
+         ],
+      q(eth) => [
+         q(2302),
+         q(0),
+         ],
+      q(etn) => [
+         q(2303),
+         q(0),
+         ],
+      q(eto) => [
+         q(2304),
+         q(0),
+         ],
+      q(etr) => [
+         q(2305),
+         q(0),
+         ],
+      q(ets) => [
+         q(2306),
+         q(0),
+         ],
+      q(ett) => [
+         q(2307),
+         q(0),
+         ],
+      q(etu) => [
+         q(2308),
+         q(0),
+         ],
+      q(etx) => [
+         q(2309),
+         q(0),
+         ],
+      q(etz) => [
+         q(2310),
+         q(0),
+         ],
+      q(euq) => [
+         q(0504),
+         q(0),
+         ],
+      q(eve) => [
+         q(2311),
+         q(0),
+         ],
+      q(evh) => [
+         q(2312),
+         q(0),
+         ],
+      q(evn) => [
+         q(2313),
+         q(0),
+         ],
+      q(ewe) => [
+         q(0128),
+         q(0),
+         ],
+      q(ewo) => [
+         q(0129),
+         q(0),
+         ],
+      q(ext) => [
+         q(2314),
+         q(0),
+         ],
+      q(eya) => [
+         q(2315),
+         q(0),
+         ],
+      q(eyo) => [
+         q(2316),
+         q(0),
+         ],
+      q(eza) => [
+         q(2317),
+         q(0),
+         ],
+      q(eze) => [
+         q(2318),
+         q(0),
+         ],
+      q(faa) => [
+         q(2319),
+         q(0),
+         ],
+      q(fab) => [
+         q(2320),
+         q(0),
+         ],
+      q(fad) => [
+         q(2321),
+         q(0),
+         ],
+      q(faf) => [
+         q(2322),
+         q(0),
+         ],
+      q(fag) => [
+         q(2323),
+         q(0),
+         ],
+      q(fah) => [
+         q(2324),
+         q(0),
+         ],
+      q(fai) => [
+         q(2325),
+         q(0),
+         ],
+      q(faj) => [
+         q(2326),
+         q(0),
+         ],
+      q(fak) => [
+         q(2327),
+         q(0),
+         ],
+      q(fal) => [
+         q(2328),
+         q(0),
+         ],
+      q(fam) => [
+         q(2329),
+         q(0),
+         ],
+      q(fan) => [
+         q(0130),
+         q(1),
+         ],
+      q(fao) => [
+         q(0131),
+         q(0),
+         ],
+      q(fap) => [
+         q(2330),
+         q(0),
+         ],
+      q(far) => [
+         q(2331),
+         q(0),
+         ],
+      q(fat) => [
+         q(0132),
+         q(0),
+         ],
+      q(fau) => [
+         q(2332),
+         q(0),
+         ],
+      q(fax) => [
+         q(2333),
+         q(0),
+         ],
+      q(fay) => [
+         q(2334),
+         q(0),
+         ],
+      q(faz) => [
+         q(2335),
+         q(0),
+         ],
+      q(fbl) => [
+         q(2336),
+         q(0),
+         ],
+      q(fcs) => [
+         q(2337),
+         q(0),
+         ],
+      q(fer) => [
+         q(2338),
+         q(0),
+         ],
+      q(ffi) => [
+         q(2339),
+         q(0),
+         ],
+      q(ffm) => [
+         q(2340),
+         q(0),
+         ],
+      q(fgr) => [
+         q(2341),
+         q(0),
+         ],
+      q(fia) => [
+         q(2342),
+         q(0),
+         ],
+      q(fie) => [
+         q(2343),
+         q(0),
+         ],
+      q(fij) => [
+         q(0133),
+         q(0),
+         ],
+      q(fil) => [
+         q(0134),
+         q(0),
+         ],
+      q(fin) => [
+         q(0135),
+         q(0),
+         ],
+      q(fip) => [
+         q(2344),
+         q(0),
+         ],
+      q(fir) => [
+         q(2345),
+         q(0),
+         ],
+      q(fit) => [
+         q(2346),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0136),
+         q(0),
+         ],
+      q(fiw) => [
+         q(2347),
+         q(0),
+         ],
+      q(fkk) => [
+         q(2348),
+         q(0),
+         ],
+      q(fkv) => [
+         q(2349),
+         q(0),
+         ],
+      q(fla) => [
+         q(2350),
+         q(0),
+         ],
+      q(flh) => [
+         q(2351),
+         q(0),
+         ],
+      q(fli) => [
+         q(2352),
+         q(0),
+         ],
+      q(fll) => [
+         q(2353),
+         q(0),
+         ],
+      q(fln) => [
+         q(2354),
+         q(0),
+         ],
+      q(flr) => [
+         q(2355),
+         q(0),
+         ],
+      q(fly) => [
+         q(2356),
+         q(0),
+         ],
+      q(fmp) => [
+         q(2357),
+         q(0),
+         ],
+      q(fmu) => [
+         q(2358),
+         q(0),
+         ],
+      q(fnb) => [
+         q(2359),
+         q(0),
+         ],
+      q(fng) => [
+         q(2360),
+         q(0),
+         ],
+      q(fni) => [
+         q(2361),
+         q(0),
+         ],
+      q(fod) => [
+         q(2362),
+         q(0),
+         ],
+      q(foi) => [
+         q(2363),
+         q(0),
+         ],
+      q(fom) => [
+         q(2364),
+         q(0),
+         ],
+      q(fon) => [
+         q(0137),
+         q(0),
+         ],
+      q(for) => [
+         q(2365),
+         q(0),
+         ],
+      q(fos) => [
+         q(2366),
+         q(0),
+         ],
+      q(fox) => [
+         q(0505),
+         q(0),
+         ],
+      q(fpe) => [
+         q(2367),
+         q(0),
+         ],
+      q(fqs) => [
+         q(2368),
+         q(0),
+         ],
+      q(frc) => [
+         q(2369),
+         q(0),
+         ],
+      q(frd) => [
+         q(2370),
+         q(0),
+         ],
+      q(fre) => [
+         q(0138),
+         q(0),
+         ],
+      q(frk) => [
+         q(2371),
+         q(0),
+         ],
+      q(frm) => [
+         q(0139),
+         q(1),
+         ],
+      q(fro) => [
+         q(0140),
+         q(1),
+         ],
+      q(frp) => [
+         q(2372),
+         q(0),
+         ],
+      q(frq) => [
+         q(2373),
+         q(0),
+         ],
+      q(frr) => [
+         q(0141),
+         q(0),
+         ],
+      q(frs) => [
+         q(0142),
+         q(0),
+         ],
+      q(frt) => [
+         q(2374),
+         q(0),
+         ],
+      q(fry) => [
+         q(0143),
+         q(0),
+         ],
+      q(fse) => [
+         q(2375),
+         q(0),
+         ],
+      q(fsl) => [
+         q(2376),
+         q(0),
+         ],
+      q(fss) => [
+         q(2377),
+         q(0),
+         ],
+      q(fub) => [
+         q(2378),
+         q(0),
+         ],
+      q(fuc) => [
+         q(2379),
+         q(0),
+         ],
+      q(fud) => [
+         q(2380),
+         q(0),
+         ],
+      q(fue) => [
+         q(2381),
+         q(0),
+         ],
+      q(fuf) => [
+         q(2382),
+         q(0),
+         ],
+      q(fuh) => [
+         q(2383),
+         q(0),
+         ],
+      q(fui) => [
+         q(2384),
+         q(0),
+         ],
+      q(fuj) => [
+         q(2385),
+         q(0),
+         ],
+      q(ful) => [
+         q(0144),
+         q(0),
+         ],
+      q(fum) => [
+         q(2386),
+         q(0),
+         ],
+      q(fun) => [
+         q(2387),
+         q(0),
+         ],
+      q(fuq) => [
+         q(2388),
+         q(0),
+         ],
+      q(fur) => [
+         q(0145),
+         q(0),
+         ],
+      q(fut) => [
+         q(2389),
+         q(0),
+         ],
+      q(fuu) => [
+         q(2390),
+         q(0),
+         ],
+      q(fuv) => [
+         q(2391),
+         q(0),
+         ],
+      q(fuy) => [
+         q(2392),
+         q(0),
+         ],
+      q(fvr) => [
+         q(2393),
+         q(0),
+         ],
+      q(fwa) => [
+         q(2394),
+         q(0),
+         ],
+      q(fwe) => [
+         q(2395),
+         q(0),
+         ],
+      q(gaa) => [
+         q(0146),
+         q(0),
+         ],
+      q(gab) => [
+         q(2396),
+         q(0),
+         ],
+      q(gac) => [
+         q(2397),
+         q(0),
+         ],
+      q(gad) => [
+         q(2398),
+         q(0),
+         ],
+      q(gae) => [
+         q(2399),
+         q(0),
+         ],
+      q(gaf) => [
+         q(2400),
+         q(0),
+         ],
+      q(gag) => [
+         q(2401),
+         q(0),
+         ],
+      q(gah) => [
+         q(2402),
+         q(0),
+         ],
+      q(gai) => [
+         q(2403),
+         q(0),
+         ],
+      q(gaj) => [
+         q(2404),
+         q(0),
+         ],
+      q(gak) => [
+         q(2405),
+         q(0),
+         ],
+      q(gal) => [
+         q(2406),
+         q(0),
+         ],
+      q(gam) => [
+         q(2407),
+         q(0),
+         ],
+      q(gan) => [
+         q(2408),
+         q(0),
+         ],
+      q(gao) => [
+         q(2409),
+         q(0),
+         ],
+      q(gap) => [
+         q(2410),
+         q(0),
+         ],
+      q(gaq) => [
+         q(2411),
+         q(0),
+         ],
+      q(gar) => [
+         q(2412),
+         q(0),
+         ],
+      q(gas) => [
+         q(2413),
+         q(0),
+         ],
+      q(gat) => [
+         q(2414),
+         q(0),
+         ],
+      q(gau) => [
+         q(2415),
+         q(0),
+         ],
+      q(gaw) => [
+         q(2416),
+         q(0),
+         ],
+      q(gax) => [
+         q(2417),
+         q(0),
+         ],
+      q(gay) => [
+         q(0147),
+         q(0),
+         ],
+      q(gaz) => [
+         q(2418),
+         q(0),
+         ],
+      q(gba) => [
+         q(0148),
+         q(1),
+         ],
+      q(gbb) => [
+         q(2419),
+         q(0),
+         ],
+      q(gbd) => [
+         q(2420),
+         q(0),
+         ],
+      q(gbe) => [
+         q(2421),
+         q(0),
+         ],
+      q(gbf) => [
+         q(2422),
+         q(0),
+         ],
+      q(gbg) => [
+         q(2423),
+         q(0),
+         ],
+      q(gbh) => [
+         q(2424),
+         q(0),
+         ],
+      q(gbi) => [
+         q(2425),
+         q(0),
+         ],
+      q(gbj) => [
+         q(2426),
+         q(0),
+         ],
+      q(gbk) => [
+         q(2427),
+         q(0),
+         ],
+      q(gbl) => [
+         q(2428),
+         q(0),
+         ],
+      q(gbm) => [
+         q(2429),
+         q(0),
+         ],
+      q(gbn) => [
+         q(2430),
+         q(0),
+         ],
+      q(gbo) => [
+         q(2431),
+         q(0),
+         ],
+      q(gbp) => [
+         q(2432),
+         q(0),
+         ],
+      q(gbq) => [
+         q(2433),
+         q(0),
+         ],
+      q(gbr) => [
+         q(2434),
+         q(0),
+         ],
+      q(gbs) => [
+         q(2435),
+         q(0),
+         ],
+      q(gbu) => [
+         q(2436),
+         q(0),
+         ],
+      q(gbv) => [
+         q(2437),
+         q(0),
+         ],
+      q(gbw) => [
+         q(2438),
+         q(0),
+         ],
+      q(gbx) => [
+         q(2439),
+         q(0),
+         ],
+      q(gby) => [
+         q(2440),
+         q(0),
+         ],
+      q(gbz) => [
+         q(2441),
+         q(0),
+         ],
+      q(gcc) => [
+         q(2442),
+         q(0),
+         ],
+      q(gcd) => [
+         q(2443),
+         q(0),
+         ],
+      q(gce) => [
+         q(2444),
+         q(0),
+         ],
+      q(gcf) => [
+         q(2445),
+         q(0),
+         ],
+      q(gcl) => [
+         q(2446),
+         q(0),
+         ],
+      q(gcn) => [
+         q(2447),
+         q(0),
+         ],
+      q(gcr) => [
+         q(2448),
+         q(0),
+         ],
+      q(gct) => [
+         q(2449),
+         q(0),
+         ],
+      q(gda) => [
+         q(2450),
+         q(0),
+         ],
+      q(gdb) => [
+         q(2451),
+         q(0),
+         ],
+      q(gdc) => [
+         q(2452),
+         q(0),
+         ],
+      q(gdd) => [
+         q(2453),
+         q(0),
+         ],
+      q(gde) => [
+         q(2454),
+         q(0),
+         ],
+      q(gdf) => [
+         q(2455),
+         q(0),
+         ],
+      q(gdg) => [
+         q(2456),
+         q(0),
+         ],
+      q(gdh) => [
+         q(2457),
+         q(0),
+         ],
+      q(gdi) => [
+         q(2458),
+         q(0),
+         ],
+      q(gdj) => [
+         q(2459),
+         q(0),
+         ],
+      q(gdk) => [
+         q(2460),
+         q(0),
+         ],
+      q(gdl) => [
+         q(2461),
+         q(0),
+         ],
+      q(gdm) => [
+         q(2462),
+         q(0),
+         ],
+      q(gdn) => [
+         q(2463),
+         q(0),
+         ],
+      q(gdo) => [
+         q(2464),
+         q(0),
+         ],
+      q(gdq) => [
+         q(2465),
+         q(0),
+         ],
+      q(gdr) => [
+         q(2466),
+         q(0),
+         ],
+      q(gds) => [
+         q(2467),
+         q(0),
+         ],
+      q(gdt) => [
+         q(2468),
+         q(0),
+         ],
+      q(gdu) => [
+         q(2469),
+         q(0),
+         ],
+      q(gdx) => [
+         q(2470),
+         q(0),
+         ],
+      q(gea) => [
+         q(2471),
+         q(0),
+         ],
+      q(geb) => [
+         q(2472),
+         q(0),
+         ],
+      q(gec) => [
+         q(2473),
+         q(0),
+         ],
+      q(ged) => [
+         q(2474),
+         q(0),
+         ],
+      q(geg) => [
+         q(2475),
+         q(0),
+         ],
+      q(geh) => [
+         q(2476),
+         q(0),
+         ],
+      q(gei) => [
+         q(2477),
+         q(0),
+         ],
+      q(gej) => [
+         q(2478),
+         q(0),
+         ],
+      q(gek) => [
+         q(2479),
+         q(0),
+         ],
+      q(gel) => [
+         q(2480),
+         q(0),
+         ],
+      q(gem) => [
+         q(0149),
+         q(0),
+         ],
+      q(geo) => [
+         q(0150),
+         q(0),
+         ],
+      q(geq) => [
+         q(2481),
+         q(0),
+         ],
+      q(ger) => [
+         q(0151),
+         q(0),
+         ],
+      q(ges) => [
+         q(2482),
+         q(0),
+         ],
+      q(gev) => [
+         q(2483),
+         q(0),
+         ],
+      q(gew) => [
+         q(2484),
+         q(0),
+         ],
+      q(gex) => [
+         q(2485),
+         q(0),
+         ],
+      q(gey) => [
+         q(2486),
+         q(0),
+         ],
+      q(gez) => [
+         q(0152),
+         q(0),
+         ],
+      q(gfk) => [
+         q(2487),
+         q(0),
+         ],
+      q(gft) => [
+         q(2488),
+         q(0),
+         ],
+      q(gga) => [
+         q(2489),
+         q(0),
+         ],
+      q(ggb) => [
+         q(2490),
+         q(0),
+         ],
+      q(ggd) => [
+         q(2491),
+         q(0),
+         ],
+      q(gge) => [
+         q(2492),
+         q(0),
+         ],
+      q(ggg) => [
+         q(2493),
+         q(0),
+         ],
+      q(ggk) => [
+         q(2494),
+         q(0),
+         ],
+      q(ggl) => [
+         q(2495),
+         q(0),
+         ],
+      q(ggt) => [
+         q(2496),
+         q(0),
+         ],
+      q(ggu) => [
+         q(2497),
+         q(0),
+         ],
+      q(ggw) => [
+         q(2498),
+         q(0),
+         ],
+      q(gha) => [
+         q(2499),
+         q(0),
+         ],
+      q(ghc) => [
+         q(2500),
+         q(0),
+         ],
+      q(ghe) => [
+         q(2501),
+         q(0),
+         ],
+      q(ghh) => [
+         q(2502),
+         q(0),
+         ],
+      q(ghk) => [
+         q(2503),
+         q(0),
+         ],
+      q(ghl) => [
+         q(2504),
+         q(0),
+         ],
+      q(ghn) => [
+         q(2505),
+         q(0),
+         ],
+      q(gho) => [
+         q(2506),
+         q(0),
+         ],
+      q(ghr) => [
+         q(2507),
+         q(0),
+         ],
+      q(ghs) => [
+         q(2508),
+         q(0),
+         ],
+      q(ght) => [
+         q(2509),
+         q(0),
+         ],
+      q(gia) => [
+         q(2510),
+         q(0),
+         ],
+      q(gib) => [
+         q(2511),
+         q(0),
+         ],
+      q(gic) => [
+         q(2512),
+         q(0),
+         ],
+      q(gid) => [
+         q(2513),
+         q(0),
+         ],
+      q(gie) => [
+         q(2514),
+         q(0),
+         ],
+      q(gig) => [
+         q(2515),
+         q(0),
+         ],
+      q(gih) => [
+         q(2516),
+         q(0),
+         ],
+      q(gil) => [
+         q(0153),
+         q(0),
+         ],
+      q(gim) => [
+         q(2517),
+         q(0),
+         ],
+      q(gin) => [
+         q(2518),
+         q(0),
+         ],
+      q(gip) => [
+         q(2519),
+         q(0),
+         ],
+      q(giq) => [
+         q(2520),
+         q(0),
+         ],
+      q(gir) => [
+         q(2521),
+         q(0),
+         ],
+      q(gis) => [
+         q(2522),
+         q(0),
+         ],
+      q(git) => [
+         q(2523),
+         q(0),
+         ],
+      q(giu) => [
+         q(2524),
+         q(0),
+         ],
+      q(giw) => [
+         q(2525),
+         q(0),
+         ],
+      q(gix) => [
+         q(2526),
+         q(0),
+         ],
+      q(giy) => [
+         q(2527),
+         q(0),
+         ],
+      q(giz) => [
+         q(2528),
+         q(0),
+         ],
+      q(gji) => [
+         q(2529),
+         q(0),
+         ],
+      q(gjk) => [
+         q(2530),
+         q(0),
+         ],
+      q(gjm) => [
+         q(2531),
+         q(0),
+         ],
+      q(gjn) => [
+         q(2532),
+         q(0),
+         ],
+      q(gjr) => [
+         q(2533),
+         q(0),
+         ],
+      q(gju) => [
+         q(2534),
+         q(0),
+         ],
+      q(gka) => [
+         q(2535),
+         q(0),
+         ],
+      q(gke) => [
+         q(2536),
+         q(0),
+         ],
+      q(gkn) => [
+         q(2537),
+         q(0),
+         ],
+      q(gko) => [
+         q(2538),
+         q(0),
+         ],
+      q(gkp) => [
+         q(2539),
+         q(0),
+         ],
+      q(gku) => [
+         q(2540),
+         q(0),
+         ],
+      q(gla) => [
+         q(0154),
+         q(0),
+         ],
+      q(glc) => [
+         q(2541),
+         q(0),
+         ],
+      q(gld) => [
+         q(2542),
+         q(0),
+         ],
+      q(gle) => [
+         q(0155),
+         q(0),
+         ],
+      q(glg) => [
+         q(0156),
+         q(0),
+         ],
+      q(glh) => [
+         q(2543),
+         q(0),
+         ],
+      q(gli) => [
+         q(2544),
+         q(0),
+         ],
+      q(glj) => [
+         q(2545),
+         q(0),
+         ],
+      q(glk) => [
+         q(2546),
+         q(0),
+         ],
+      q(gll) => [
+         q(2547),
+         q(0),
+         ],
+      q(glo) => [
+         q(2548),
+         q(0),
+         ],
+      q(glr) => [
+         q(2549),
+         q(0),
+         ],
+      q(glu) => [
+         q(2550),
+         q(0),
+         ],
+      q(glv) => [
+         q(0157),
+         q(0),
+         ],
+      q(glw) => [
+         q(2551),
+         q(0),
+         ],
+      q(gly) => [
+         q(2552),
+         q(0),
+         ],
+      q(gma) => [
+         q(2553),
+         q(0),
+         ],
+      q(gmb) => [
+         q(2554),
+         q(0),
+         ],
+      q(gmd) => [
+         q(2555),
+         q(0),
+         ],
+      q(gme) => [
+         q(0506),
+         q(0),
+         ],
+      q(gmg) => [
+         q(2556),
+         q(0),
+         ],
+      q(gmh) => [
+         q(0158),
+         q(1),
+         ],
+      q(gml) => [
+         q(2557),
+         q(0),
+         ],
+      q(gmm) => [
+         q(2558),
+         q(0),
+         ],
+      q(gmn) => [
+         q(2559),
+         q(0),
+         ],
+      q(gmq) => [
+         q(0507),
+         q(0),
+         ],
+      q(gmu) => [
+         q(2560),
+         q(0),
+         ],
+      q(gmv) => [
+         q(2561),
+         q(0),
+         ],
+      q(gmw) => [
+         q(0508),
+         q(0),
+         ],
+      q(gmx) => [
+         q(2562),
+         q(0),
+         ],
+      q(gmy) => [
+         q(2563),
+         q(0),
+         ],
+      q(gmz) => [
+         q(2564),
+         q(0),
+         ],
+      q(gna) => [
+         q(2565),
+         q(0),
+         ],
+      q(gnb) => [
+         q(2566),
+         q(0),
+         ],
+      q(gnc) => [
+         q(2567),
+         q(0),
+         ],
+      q(gnd) => [
+         q(2568),
+         q(0),
+         ],
+      q(gne) => [
+         q(2569),
+         q(0),
+         ],
+      q(gng) => [
+         q(2570),
+         q(0),
+         ],
+      q(gnh) => [
+         q(2571),
+         q(0),
+         ],
+      q(gni) => [
+         q(2572),
+         q(0),
+         ],
+      q(gnk) => [
+         q(2573),
+         q(0),
+         ],
+      q(gnl) => [
+         q(2574),
+         q(0),
+         ],
+      q(gnm) => [
+         q(2575),
+         q(0),
+         ],
+      q(gnn) => [
+         q(2576),
+         q(0),
+         ],
+      q(gno) => [
+         q(2577),
+         q(0),
+         ],
+      q(gnq) => [
+         q(2573),
+         q(1),
+         ],
+      q(gnr) => [
+         q(2578),
+         q(0),
+         ],
+      q(gnt) => [
+         q(2579),
+         q(0),
+         ],
+      q(gnu) => [
+         q(2580),
+         q(0),
+         ],
+      q(gnw) => [
+         q(2581),
+         q(0),
+         ],
+      q(gnz) => [
+         q(2582),
+         q(0),
+         ],
+      q(goa) => [
+         q(2583),
+         q(0),
+         ],
+      q(gob) => [
+         q(2584),
+         q(0),
+         ],
+      q(goc) => [
+         q(2585),
+         q(0),
+         ],
+      q(god) => [
+         q(2586),
+         q(0),
+         ],
+      q(goe) => [
+         q(2587),
+         q(0),
+         ],
+      q(gof) => [
+         q(2588),
+         q(0),
+         ],
+      q(gog) => [
+         q(2589),
+         q(0),
+         ],
+      q(goh) => [
+         q(0159),
+         q(1),
+         ],
+      q(goi) => [
+         q(2590),
+         q(0),
+         ],
+      q(goj) => [
+         q(2591),
+         q(0),
+         ],
+      q(gok) => [
+         q(2592),
+         q(0),
+         ],
+      q(gol) => [
+         q(2593),
+         q(0),
+         ],
+      q(gom) => [
+         q(2594),
+         q(0),
+         ],
+      q(gon) => [
+         q(0160),
+         q(0),
+         ],
+      q(goo) => [
+         q(2595),
+         q(0),
+         ],
+      q(gop) => [
+         q(2596),
+         q(0),
+         ],
+      q(goq) => [
+         q(2597),
+         q(0),
+         ],
+      q(gor) => [
+         q(0161),
+         q(0),
+         ],
+      q(gos) => [
+         q(2598),
+         q(0),
+         ],
+      q(got) => [
+         q(0162),
+         q(0),
+         ],
+      q(gou) => [
+         q(2599),
+         q(0),
+         ],
+      q(gow) => [
+         q(2600),
+         q(0),
+         ],
+      q(gox) => [
+         q(2601),
+         q(0),
+         ],
+      q(goy) => [
+         q(2602),
+         q(0),
+         ],
+      q(goz) => [
+         q(2603),
+         q(0),
+         ],
+      q(gpa) => [
+         q(2604),
+         q(0),
+         ],
+      q(gpe) => [
+         q(2605),
+         q(0),
+         ],
+      q(gpn) => [
+         q(2606),
+         q(0),
+         ],
+      q(gqa) => [
+         q(2607),
+         q(0),
+         ],
+      q(gqi) => [
+         q(2608),
+         q(0),
+         ],
+      q(gqn) => [
+         q(2609),
+         q(0),
+         ],
+      q(gqr) => [
+         q(2610),
+         q(0),
+         ],
+      q(gqu) => [
+         q(2611),
+         q(0),
+         ],
+      q(gra) => [
+         q(2612),
+         q(0),
+         ],
+      q(grb) => [
+         q(0163),
+         q(0),
+         ],
+      q(grc) => [
+         q(0164),
+         q(1),
+         ],
+      q(grd) => [
+         q(2613),
+         q(0),
+         ],
+      q(gre) => [
+         q(0165),
+         q(0),
+         ],
+      q(grg) => [
+         q(2614),
+         q(0),
+         ],
+      q(grh) => [
+         q(2615),
+         q(0),
+         ],
+      q(gri) => [
+         q(2616),
+         q(0),
+         ],
+      q(grj) => [
+         q(2617),
+         q(0),
+         ],
+      q(grk) => [
+         q(0509),
+         q(0),
+         ],
+      q(grm) => [
+         q(2618),
+         q(0),
+         ],
+      q(grn) => [
+         q(0166),
+         q(0),
+         ],
+      q(gro) => [
+         q(2619),
+         q(0),
+         ],
+      q(grq) => [
+         q(2620),
+         q(0),
+         ],
+      q(grr) => [
+         q(2621),
+         q(0),
+         ],
+      q(grs) => [
+         q(2622),
+         q(0),
+         ],
+      q(grt) => [
+         q(2623),
+         q(0),
+         ],
+      q(gru) => [
+         q(2624),
+         q(0),
+         ],
+      q(grv) => [
+         q(2625),
+         q(0),
+         ],
+      q(grw) => [
+         q(2626),
+         q(0),
+         ],
+      q(grx) => [
+         q(2627),
+         q(0),
+         ],
+      q(gry) => [
+         q(2628),
+         q(0),
+         ],
+      q(grz) => [
+         q(2629),
+         q(0),
+         ],
+      q(gse) => [
+         q(2630),
+         q(0),
+         ],
+      q(gsg) => [
+         q(2631),
+         q(0),
+         ],
+      q(gsl) => [
+         q(2632),
+         q(0),
+         ],
+      q(gsm) => [
+         q(2633),
+         q(0),
+         ],
+      q(gsn) => [
+         q(2634),
+         q(0),
+         ],
+      q(gso) => [
+         q(2635),
+         q(0),
+         ],
+      q(gsp) => [
+         q(2636),
+         q(0),
+         ],
+      q(gss) => [
+         q(2637),
+         q(0),
+         ],
+      q(gsw) => [
+         q(0167),
+         q(0),
+         ],
+      q(gta) => [
+         q(2638),
+         q(0),
+         ],
+      q(gtu) => [
+         q(2639),
+         q(0),
+         ],
+      q(gua) => [
+         q(2640),
+         q(0),
+         ],
+      q(gub) => [
+         q(2641),
+         q(0),
+         ],
+      q(guc) => [
+         q(2642),
+         q(0),
+         ],
+      q(gud) => [
+         q(2643),
+         q(0),
+         ],
+      q(gue) => [
+         q(2644),
+         q(0),
+         ],
+      q(guf) => [
+         q(2645),
+         q(0),
+         ],
+      q(gug) => [
+         q(2646),
+         q(0),
+         ],
+      q(guh) => [
+         q(2647),
+         q(0),
+         ],
+      q(gui) => [
+         q(2648),
+         q(0),
+         ],
+      q(guj) => [
+         q(0168),
+         q(0),
+         ],
+      q(guk) => [
+         q(2649),
+         q(0),
+         ],
+      q(gul) => [
+         q(2650),
+         q(0),
+         ],
+      q(gum) => [
+         q(2651),
+         q(0),
+         ],
+      q(gun) => [
+         q(2652),
+         q(0),
+         ],
+      q(guo) => [
+         q(2653),
+         q(0),
+         ],
+      q(gup) => [
+         q(2654),
+         q(0),
+         ],
+      q(guq) => [
+         q(2655),
+         q(0),
+         ],
+      q(gur) => [
+         q(2656),
+         q(0),
+         ],
+      q(gus) => [
+         q(2657),
+         q(0),
+         ],
+      q(gut) => [
+         q(2658),
+         q(0),
+         ],
+      q(guu) => [
+         q(2659),
+         q(0),
+         ],
+      q(guw) => [
+         q(2660),
+         q(0),
+         ],
+      q(gux) => [
+         q(2661),
+         q(0),
+         ],
+      q(guz) => [
+         q(2662),
+         q(0),
+         ],
+      q(gva) => [
+         q(2663),
+         q(0),
+         ],
+      q(gvc) => [
+         q(2664),
+         q(0),
+         ],
+      q(gve) => [
+         q(2665),
+         q(0),
+         ],
+      q(gvf) => [
+         q(2666),
+         q(0),
+         ],
+      q(gvj) => [
+         q(2667),
+         q(0),
+         ],
+      q(gvl) => [
+         q(2668),
+         q(0),
+         ],
+      q(gvm) => [
+         q(2669),
+         q(0),
+         ],
+      q(gvn) => [
+         q(2670),
+         q(0),
+         ],
+      q(gvo) => [
+         q(2671),
+         q(0),
+         ],
+      q(gvp) => [
+         q(2672),
+         q(0),
+         ],
+      q(gvr) => [
+         q(2673),
+         q(0),
+         ],
+      q(gvs) => [
+         q(2674),
+         q(0),
+         ],
+      q(gvy) => [
+         q(2675),
+         q(0),
+         ],
+      q(gwa) => [
+         q(2676),
+         q(0),
+         ],
+      q(gwb) => [
+         q(2677),
+         q(0),
+         ],
+      q(gwc) => [
+         q(2678),
+         q(0),
+         ],
+      q(gwd) => [
+         q(2679),
+         q(0),
+         ],
+      q(gwe) => [
+         q(2680),
+         q(0),
+         ],
+      q(gwf) => [
+         q(2681),
+         q(0),
+         ],
+      q(gwg) => [
+         q(2682),
+         q(0),
+         ],
+      q(gwi) => [
+         q(0169),
+         q(0),
+         ],
+      q(gwj) => [
+         q(2683),
+         q(0),
+         ],
+      q(gwm) => [
+         q(2684),
+         q(0),
+         ],
+      q(gwn) => [
+         q(2685),
+         q(0),
+         ],
+      q(gwr) => [
+         q(2686),
+         q(0),
+         ],
+      q(gwt) => [
+         q(2687),
+         q(0),
+         ],
+      q(gwu) => [
+         q(2688),
+         q(0),
+         ],
+      q(gww) => [
+         q(2689),
+         q(0),
+         ],
+      q(gwx) => [
+         q(2690),
+         q(0),
+         ],
+      q(gxx) => [
+         q(2691),
+         q(0),
+         ],
+      q(gya) => [
+         q(2692),
+         q(0),
+         ],
+      q(gyb) => [
+         q(2693),
+         q(0),
+         ],
+      q(gyd) => [
+         q(2694),
+         q(0),
+         ],
+      q(gye) => [
+         q(2695),
+         q(0),
+         ],
+      q(gyf) => [
+         q(2696),
+         q(0),
+         ],
+      q(gyg) => [
+         q(2697),
+         q(0),
+         ],
+      q(gyi) => [
+         q(2698),
+         q(0),
+         ],
+      q(gyl) => [
+         q(2699),
+         q(0),
+         ],
+      q(gym) => [
+         q(2700),
+         q(0),
+         ],
+      q(gyn) => [
+         q(2701),
+         q(0),
+         ],
+      q(gyr) => [
+         q(2702),
+         q(0),
+         ],
+      q(gyy) => [
+         q(2703),
+         q(0),
+         ],
+      q(gza) => [
+         q(2704),
+         q(0),
+         ],
+      q(gzi) => [
+         q(2705),
+         q(0),
+         ],
+      q(gzn) => [
+         q(2706),
+         q(0),
+         ],
+      q(haa) => [
+         q(2707),
+         q(0),
+         ],
+      q(hab) => [
+         q(2708),
+         q(0),
+         ],
+      q(hac) => [
+         q(2709),
+         q(0),
+         ],
+      q(had) => [
+         q(2710),
+         q(0),
+         ],
+      q(hae) => [
+         q(2711),
+         q(0),
+         ],
+      q(haf) => [
+         q(2712),
+         q(0),
+         ],
+      q(hag) => [
+         q(2713),
+         q(0),
+         ],
+      q(hah) => [
+         q(2714),
+         q(0),
+         ],
+      q(hai) => [
+         q(0170),
+         q(0),
+         ],
+      q(haj) => [
+         q(2715),
+         q(0),
+         ],
+      q(hak) => [
+         q(2716),
+         q(0),
+         ],
+      q(hal) => [
+         q(2717),
+         q(0),
+         ],
+      q(ham) => [
+         q(2718),
+         q(0),
+         ],
+      q(han) => [
+         q(2719),
+         q(0),
+         ],
+      q(hao) => [
+         q(2720),
+         q(0),
+         ],
+      q(hap) => [
+         q(2721),
+         q(0),
+         ],
+      q(haq) => [
+         q(2722),
+         q(0),
+         ],
+      q(har) => [
+         q(2723),
+         q(0),
+         ],
+      q(has) => [
+         q(2724),
+         q(0),
+         ],
+      q(hat) => [
+         q(0171),
+         q(0),
+         ],
+      q(hau) => [
+         q(0172),
+         q(0),
+         ],
+      q(hav) => [
+         q(2725),
+         q(0),
+         ],
+      q(haw) => [
+         q(0173),
+         q(0),
+         ],
+      q(hax) => [
+         q(2726),
+         q(0),
+         ],
+      q(hay) => [
+         q(2727),
+         q(0),
+         ],
+      q(haz) => [
+         q(2728),
+         q(0),
+         ],
+      q(hba) => [
+         q(2729),
+         q(0),
+         ],
+      q(hbb) => [
+         q(2730),
+         q(0),
+         ],
+      q(hbn) => [
+         q(2731),
+         q(0),
+         ],
+      q(hbo) => [
+         q(2732),
+         q(0),
+         ],
+      q(hbu) => [
+         q(2733),
+         q(0),
+         ],
+      q(hca) => [
+         q(2734),
+         q(0),
+         ],
+      q(hch) => [
+         q(2735),
+         q(0),
+         ],
+      q(hdn) => [
+         q(2736),
+         q(0),
+         ],
+      q(hds) => [
+         q(2737),
+         q(0),
+         ],
+      q(hdy) => [
+         q(2738),
+         q(0),
+         ],
+      q(hea) => [
+         q(2739),
+         q(0),
+         ],
+      q(heb) => [
+         q(0174),
+         q(0),
+         ],
+      q(hed) => [
+         q(2740),
+         q(0),
+         ],
+      q(heg) => [
+         q(2741),
+         q(0),
+         ],
+      q(heh) => [
+         q(2742),
+         q(0),
+         ],
+      q(hei) => [
+         q(2743),
+         q(0),
+         ],
+      q(hem) => [
+         q(2744),
+         q(0),
+         ],
+      q(her) => [
+         q(0175),
+         q(0),
+         ],
+      q(hgm) => [
+         q(2745),
+         q(0),
+         ],
+      q(hgw) => [
+         q(2746),
+         q(0),
+         ],
+      q(hhi) => [
+         q(2747),
+         q(0),
+         ],
+      q(hhr) => [
+         q(2748),
+         q(0),
+         ],
+      q(hhy) => [
+         q(2749),
+         q(0),
+         ],
+      q(hia) => [
+         q(2750),
+         q(0),
+         ],
+      q(hib) => [
+         q(2751),
+         q(0),
+         ],
+      q(hid) => [
+         q(2752),
+         q(0),
+         ],
+      q(hif) => [
+         q(2753),
+         q(0),
+         ],
+      q(hig) => [
+         q(2754),
+         q(0),
+         ],
+      q(hih) => [
+         q(2755),
+         q(0),
+         ],
+      q(hii) => [
+         q(2756),
+         q(0),
+         ],
+      q(hij) => [
+         q(2757),
+         q(0),
+         ],
+      q(hik) => [
+         q(2758),
+         q(0),
+         ],
+      q(hil) => [
+         q(0176),
+         q(0),
+         ],
+      q(him) => [
+         q(0177),
+         q(0),
+         ],
+      q(hin) => [
+         q(0178),
+         q(0),
+         ],
+      q(hio) => [
+         q(2759),
+         q(0),
+         ],
+      q(hir) => [
+         q(2760),
+         q(0),
+         ],
+      q(hit) => [
+         q(0179),
+         q(0),
+         ],
+      q(hiw) => [
+         q(2761),
+         q(0),
+         ],
+      q(hix) => [
+         q(2762),
+         q(0),
+         ],
+      q(hji) => [
+         q(2763),
+         q(0),
+         ],
+      q(hka) => [
+         q(2764),
+         q(0),
+         ],
+      q(hke) => [
+         q(2765),
+         q(0),
+         ],
+      q(hkk) => [
+         q(2766),
+         q(0),
+         ],
+      q(hks) => [
+         q(2767),
+         q(0),
+         ],
+      q(hla) => [
+         q(2768),
+         q(0),
+         ],
+      q(hlb) => [
+         q(2769),
+         q(0),
+         ],
+      q(hld) => [
+         q(2770),
+         q(0),
+         ],
+      q(hle) => [
+         q(2771),
+         q(0),
+         ],
+      q(hlt) => [
+         q(2772),
+         q(0),
+         ],
+      q(hlu) => [
+         q(2773),
+         q(0),
+         ],
+      q(hma) => [
+         q(2774),
+         q(0),
+         ],
+      q(hmb) => [
+         q(2775),
+         q(0),
+         ],
+      q(hmc) => [
+         q(2776),
+         q(0),
+         ],
+      q(hmd) => [
+         q(2777),
+         q(0),
+         ],
+      q(hme) => [
+         q(2778),
+         q(0),
+         ],
+      q(hmf) => [
+         q(2779),
+         q(0),
+         ],
+      q(hmg) => [
+         q(2780),
+         q(0),
+         ],
+      q(hmh) => [
+         q(2781),
+         q(0),
+         ],
+      q(hmi) => [
+         q(2782),
+         q(0),
+         ],
+      q(hmj) => [
+         q(2783),
+         q(0),
+         ],
+      q(hmk) => [
+         q(2784),
+         q(0),
+         ],
+      q(hml) => [
+         q(2785),
+         q(0),
+         ],
+      q(hmm) => [
+         q(2786),
+         q(0),
+         ],
+      q(hmn) => [
+         q(0180),
+         q(0),
+         ],
+      q(hmo) => [
+         q(0181),
+         q(0),
+         ],
+      q(hmp) => [
+         q(2787),
+         q(0),
+         ],
+      q(hmq) => [
+         q(2788),
+         q(0),
+         ],
+      q(hmr) => [
+         q(2789),
+         q(0),
+         ],
+      q(hms) => [
+         q(2790),
+         q(0),
+         ],
+      q(hmt) => [
+         q(2791),
+         q(0),
+         ],
+      q(hmu) => [
+         q(2792),
+         q(0),
+         ],
+      q(hmv) => [
+         q(2793),
+         q(0),
+         ],
+      q(hmw) => [
+         q(2794),
+         q(0),
+         ],
+      q(hmx) => [
+         q(0510),
+         q(0),
+         ],
+      q(hmy) => [
+         q(2795),
+         q(0),
+         ],
+      q(hmz) => [
+         q(2796),
+         q(0),
+         ],
+      q(hna) => [
+         q(2797),
+         q(0),
+         ],
+      q(hnd) => [
+         q(2798),
+         q(0),
+         ],
+      q(hne) => [
+         q(2799),
+         q(0),
+         ],
+      q(hnh) => [
+         q(2800),
+         q(0),
+         ],
+      q(hni) => [
+         q(2801),
+         q(0),
+         ],
+      q(hnj) => [
+         q(2802),
+         q(0),
+         ],
+      q(hnn) => [
+         q(2803),
+         q(0),
+         ],
+      q(hno) => [
+         q(2804),
+         q(0),
+         ],
+      q(hns) => [
+         q(2805),
+         q(0),
+         ],
+      q(hnu) => [
+         q(2806),
+         q(0),
+         ],
+      q(hoa) => [
+         q(2807),
+         q(0),
+         ],
+      q(hob) => [
+         q(2808),
+         q(0),
+         ],
+      q(hoc) => [
+         q(2809),
+         q(0),
+         ],
+      q(hod) => [
+         q(2810),
+         q(0),
+         ],
+      q(hoe) => [
+         q(2811),
+         q(0),
+         ],
+      q(hoh) => [
+         q(2812),
+         q(0),
+         ],
+      q(hoi) => [
+         q(2813),
+         q(0),
+         ],
+      q(hoj) => [
+         q(2814),
+         q(0),
+         ],
+      q(hok) => [
+         q(0511),
+         q(0),
+         ],
+      q(hol) => [
+         q(2815),
+         q(0),
+         ],
+      q(hom) => [
+         q(2816),
+         q(0),
+         ],
+      q(hoo) => [
+         q(2817),
+         q(0),
+         ],
+      q(hop) => [
+         q(2818),
+         q(0),
+         ],
+      q(hor) => [
+         q(2819),
+         q(0),
+         ],
+      q(hos) => [
+         q(2820),
+         q(0),
+         ],
+      q(hot) => [
+         q(2821),
+         q(0),
+         ],
+      q(hov) => [
+         q(2822),
+         q(0),
+         ],
+      q(how) => [
+         q(2823),
+         q(0),
+         ],
+      q(hoy) => [
+         q(2824),
+         q(0),
+         ],
+      q(hoz) => [
+         q(2825),
+         q(0),
+         ],
+      q(hpo) => [
+         q(2826),
+         q(0),
+         ],
+      q(hps) => [
+         q(2827),
+         q(0),
+         ],
+      q(hra) => [
+         q(2828),
+         q(0),
+         ],
+      q(hrc) => [
+         q(2829),
+         q(0),
+         ],
+      q(hre) => [
+         q(2830),
+         q(0),
+         ],
+      q(hrk) => [
+         q(2831),
+         q(0),
+         ],
+      q(hrm) => [
+         q(2832),
+         q(0),
+         ],
+      q(hro) => [
+         q(2833),
+         q(0),
+         ],
+      q(hrp) => [
+         q(2834),
+         q(0),
+         ],
+      q(hrt) => [
+         q(2835),
+         q(0),
+         ],
+      q(hru) => [
+         q(2836),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0182),
+         q(0),
+         ],
+      q(hrw) => [
+         q(2837),
+         q(0),
+         ],
+      q(hrx) => [
+         q(2838),
+         q(0),
+         ],
+      q(hrz) => [
+         q(2839),
+         q(0),
+         ],
+      q(hsb) => [
+         q(0183),
+         q(0),
+         ],
+      q(hsh) => [
+         q(2840),
+         q(0),
+         ],
+      q(hsl) => [
+         q(2841),
+         q(0),
+         ],
+      q(hsn) => [
+         q(2842),
+         q(0),
+         ],
+      q(hss) => [
+         q(2843),
+         q(0),
+         ],
+      q(hti) => [
+         q(2844),
+         q(0),
+         ],
+      q(hto) => [
+         q(2845),
+         q(0),
+         ],
+      q(hts) => [
+         q(2846),
+         q(0),
+         ],
+      q(htu) => [
+         q(2847),
+         q(0),
+         ],
+      q(htx) => [
+         q(2848),
+         q(0),
+         ],
+      q(hub) => [
+         q(2849),
+         q(0),
+         ],
+      q(huc) => [
+         q(2850),
+         q(0),
+         ],
+      q(hud) => [
+         q(2851),
+         q(0),
+         ],
+      q(hue) => [
+         q(2852),
+         q(0),
+         ],
+      q(huf) => [
+         q(2853),
+         q(0),
+         ],
+      q(hug) => [
+         q(2854),
+         q(0),
+         ],
+      q(huh) => [
+         q(2855),
+         q(0),
+         ],
+      q(hui) => [
+         q(2856),
+         q(0),
+         ],
+      q(huj) => [
+         q(2857),
+         q(0),
+         ],
+      q(huk) => [
+         q(2858),
+         q(0),
+         ],
+      q(hul) => [
+         q(2859),
+         q(0),
+         ],
+      q(hum) => [
+         q(2860),
+         q(0),
+         ],
+      q(hun) => [
+         q(0184),
+         q(0),
+         ],
+      q(huo) => [
+         q(2861),
+         q(0),
+         ],
+      q(hup) => [
+         q(0185),
+         q(0),
+         ],
+      q(huq) => [
+         q(2862),
+         q(0),
+         ],
+      q(hur) => [
+         q(2863),
+         q(0),
+         ],
+      q(hus) => [
+         q(2864),
+         q(0),
+         ],
+      q(hut) => [
+         q(2865),
+         q(0),
+         ],
+      q(huu) => [
+         q(2866),
+         q(0),
+         ],
+      q(huv) => [
+         q(2867),
+         q(0),
+         ],
+      q(huw) => [
+         q(2868),
+         q(0),
+         ],
+      q(hux) => [
+         q(2869),
+         q(0),
+         ],
+      q(huy) => [
+         q(2870),
+         q(0),
+         ],
+      q(huz) => [
+         q(2871),
+         q(0),
+         ],
+      q(hvc) => [
+         q(2872),
+         q(0),
+         ],
+      q(hve) => [
+         q(2873),
+         q(0),
+         ],
+      q(hvk) => [
+         q(2874),
+         q(0),
+         ],
+      q(hvn) => [
+         q(2875),
+         q(0),
+         ],
+      q(hvv) => [
+         q(2876),
+         q(0),
+         ],
+      q(hwa) => [
+         q(2877),
+         q(0),
+         ],
+      q(hwc) => [
+         q(2878),
+         q(0),
+         ],
+      q(hwo) => [
+         q(2879),
+         q(0),
+         ],
+      q(hya) => [
+         q(2880),
+         q(0),
+         ],
+      q(hyx) => [
+         q(0512),
+         q(0),
+         ],
+      q(iai) => [
+         q(2881),
+         q(0),
+         ],
+      q(ian) => [
+         q(2882),
+         q(0),
+         ],
+      q(iar) => [
+         q(2883),
+         q(0),
+         ],
+      q(iba) => [
+         q(0186),
+         q(0),
+         ],
+      q(ibb) => [
+         q(2884),
+         q(0),
+         ],
+      q(ibd) => [
+         q(2885),
+         q(0),
+         ],
+      q(ibe) => [
+         q(2886),
+         q(0),
+         ],
+      q(ibg) => [
+         q(2887),
+         q(0),
+         ],
+      q(ibh) => [
+         q(2888),
+         q(0),
+         ],
+      q(ibl) => [
+         q(2889),
+         q(0),
+         ],
+      q(ibm) => [
+         q(2890),
+         q(0),
+         ],
+      q(ibn) => [
+         q(2891),
+         q(0),
+         ],
+      q(ibo) => [
+         q(0187),
+         q(0),
+         ],
+      q(ibr) => [
+         q(2892),
+         q(0),
+         ],
+      q(ibu) => [
+         q(2893),
+         q(0),
+         ],
+      q(iby) => [
+         q(2894),
+         q(0),
+         ],
+      q(ica) => [
+         q(2895),
+         q(0),
+         ],
+      q(ice) => [
+         q(0188),
+         q(0),
+         ],
+      q(ich) => [
+         q(2896),
+         q(0),
+         ],
+      q(icl) => [
+         q(2897),
+         q(0),
+         ],
+      q(icr) => [
+         q(2898),
+         q(0),
+         ],
+      q(ida) => [
+         q(2899),
+         q(0),
+         ],
+      q(idb) => [
+         q(2900),
+         q(0),
+         ],
+      q(idc) => [
+         q(2901),
+         q(0),
+         ],
+      q(idd) => [
+         q(2902),
+         q(0),
+         ],
+      q(ide) => [
+         q(2903),
+         q(0),
+         ],
+      q(idi) => [
+         q(2904),
+         q(0),
+         ],
+      q(ido) => [
+         q(0189),
+         q(0),
+         ],
+      q(idr) => [
+         q(2905),
+         q(0),
+         ],
+      q(ids) => [
+         q(2906),
+         q(0),
+         ],
+      q(idt) => [
+         q(2907),
+         q(0),
+         ],
+      q(idu) => [
+         q(2908),
+         q(0),
+         ],
+      q(ifa) => [
+         q(2909),
+         q(0),
+         ],
+      q(ifb) => [
+         q(2910),
+         q(0),
+         ],
+      q(ife) => [
+         q(2911),
+         q(0),
+         ],
+      q(iff) => [
+         q(2912),
+         q(0),
+         ],
+      q(ifk) => [
+         q(2913),
+         q(0),
+         ],
+      q(ifm) => [
+         q(2914),
+         q(0),
+         ],
+      q(ifu) => [
+         q(2915),
+         q(0),
+         ],
+      q(ify) => [
+         q(2916),
+         q(0),
+         ],
+      q(igb) => [
+         q(2917),
+         q(0),
+         ],
+      q(ige) => [
+         q(2918),
+         q(0),
+         ],
+      q(igg) => [
+         q(2919),
+         q(0),
+         ],
+      q(igl) => [
+         q(2920),
+         q(0),
+         ],
+      q(igm) => [
+         q(2921),
+         q(0),
+         ],
+      q(ign) => [
+         q(2922),
+         q(0),
+         ],
+      q(igo) => [
+         q(2923),
+         q(0),
+         ],
+      q(igs) => [
+         q(2924),
+         q(0),
+         ],
+      q(igw) => [
+         q(2925),
+         q(0),
+         ],
+      q(ihb) => [
+         q(2926),
+         q(0),
+         ],
+      q(ihi) => [
+         q(2927),
+         q(0),
+         ],
+      q(ihp) => [
+         q(2928),
+         q(0),
+         ],
+      q(ihw) => [
+         q(2929),
+         q(0),
+         ],
+      q(iii) => [
+         q(0190),
+         q(0),
+         ],
+      q(iin) => [
+         q(2930),
+         q(0),
+         ],
+      q(iir) => [
+         q(0513),
+         q(0),
+         ],
+      q(ijc) => [
+         q(2931),
+         q(0),
+         ],
+      q(ije) => [
+         q(2932),
+         q(0),
+         ],
+      q(ijj) => [
+         q(2933),
+         q(0),
+         ],
+      q(ijn) => [
+         q(2934),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0191),
+         q(0),
+         ],
+      q(ijs) => [
+         q(2935),
+         q(0),
+         ],
+      q(ike) => [
+         q(2936),
+         q(0),
+         ],
+      q(iki) => [
+         q(2937),
+         q(0),
+         ],
+      q(ikk) => [
+         q(2938),
+         q(0),
+         ],
+      q(ikl) => [
+         q(2939),
+         q(0),
+         ],
+      q(iko) => [
+         q(2940),
+         q(0),
+         ],
+      q(ikp) => [
+         q(2941),
+         q(0),
+         ],
+      q(ikr) => [
+         q(2942),
+         q(0),
+         ],
+      q(iks) => [
+         q(2943),
+         q(0),
+         ],
+      q(ikt) => [
+         q(2944),
+         q(0),
+         ],
+      q(iku) => [
+         q(0192),
+         q(0),
+         ],
+      q(ikv) => [
+         q(2945),
+         q(0),
+         ],
+      q(ikw) => [
+         q(2946),
+         q(0),
+         ],
+      q(ikx) => [
+         q(2947),
+         q(0),
+         ],
+      q(ikz) => [
+         q(2948),
+         q(0),
+         ],
+      q(ila) => [
+         q(2949),
+         q(0),
+         ],
+      q(ilb) => [
+         q(2950),
+         q(0),
+         ],
+      q(ile) => [
+         q(0193),
+         q(0),
+         ],
+      q(ilg) => [
+         q(2951),
+         q(0),
+         ],
+      q(ili) => [
+         q(2952),
+         q(0),
+         ],
+      q(ilk) => [
+         q(2953),
+         q(0),
+         ],
+      q(ilm) => [
+         q(2954),
+         q(0),
+         ],
+      q(ilo) => [
+         q(0194),
+         q(0),
+         ],
+      q(ilp) => [
+         q(2955),
+         q(0),
+         ],
+      q(ils) => [
+         q(2956),
+         q(0),
+         ],
+      q(ilu) => [
+         q(2957),
+         q(0),
+         ],
+      q(ilv) => [
+         q(2958),
+         q(0),
+         ],
+      q(ima) => [
+         q(2959),
+         q(0),
+         ],
+      q(imi) => [
+         q(2960),
+         q(0),
+         ],
+      q(iml) => [
+         q(2961),
+         q(0),
+         ],
+      q(imn) => [
+         q(2962),
+         q(0),
+         ],
+      q(imo) => [
+         q(2963),
+         q(0),
+         ],
+      q(imr) => [
+         q(2964),
+         q(0),
+         ],
+      q(ims) => [
+         q(2965),
+         q(0),
+         ],
+      q(imy) => [
+         q(2966),
+         q(0),
+         ],
+      q(ina) => [
+         q(0195),
+         q(0),
+         ],
+      q(inb) => [
+         q(2967),
+         q(0),
+         ],
+      q(inc) => [
+         q(0196),
+         q(0),
+         ],
+      q(ind) => [
+         q(0197),
+         q(0),
+         ],
+      q(ine) => [
+         q(0198),
+         q(0),
+         ],
+      q(ing) => [
+         q(2968),
+         q(0),
+         ],
+      q(inh) => [
+         q(0199),
+         q(0),
+         ],
+      q(inj) => [
+         q(2969),
+         q(0),
+         ],
+      q(inl) => [
+         q(2970),
+         q(0),
+         ],
+      q(inm) => [
+         q(2971),
+         q(0),
+         ],
+      q(inn) => [
+         q(2972),
+         q(0),
+         ],
+      q(ino) => [
+         q(2973),
+         q(0),
+         ],
+      q(inp) => [
+         q(2974),
+         q(0),
+         ],
+      q(ins) => [
+         q(2975),
+         q(0),
+         ],
+      q(int) => [
+         q(2976),
+         q(0),
+         ],
+      q(inz) => [
+         q(2977),
+         q(0),
+         ],
+      q(ior) => [
+         q(2978),
+         q(0),
+         ],
+      q(iou) => [
+         q(2979),
+         q(0),
+         ],
+      q(iow) => [
+         q(2980),
+         q(0),
+         ],
+      q(ipi) => [
+         q(2981),
+         q(0),
+         ],
+      q(ipk) => [
+         q(0200),
+         q(0),
+         ],
+      q(ipo) => [
+         q(2982),
+         q(0),
+         ],
+      q(iqu) => [
+         q(2983),
+         q(0),
+         ],
+      q(iqw) => [
+         q(2984),
+         q(0),
+         ],
+      q(ira) => [
+         q(0201),
+         q(0),
+         ],
+      q(ire) => [
+         q(2985),
+         q(0),
+         ],
+      q(irh) => [
+         q(2986),
+         q(0),
+         ],
+      q(iri) => [
+         q(2987),
+         q(0),
+         ],
+      q(irk) => [
+         q(2988),
+         q(0),
+         ],
+      q(irn) => [
+         q(2989),
+         q(0),
+         ],
+      q(iro) => [
+         q(0202),
+         q(0),
+         ],
+      q(irr) => [
+         q(2990),
+         q(0),
+         ],
+      q(iru) => [
+         q(2991),
+         q(0),
+         ],
+      q(irx) => [
+         q(2992),
+         q(0),
+         ],
+      q(iry) => [
+         q(2993),
+         q(0),
+         ],
+      q(isa) => [
+         q(2994),
+         q(0),
+         ],
+      q(isc) => [
+         q(2995),
+         q(0),
+         ],
+      q(isd) => [
+         q(2996),
+         q(0),
+         ],
+      q(ise) => [
+         q(2997),
+         q(0),
+         ],
+      q(isg) => [
+         q(2998),
+         q(0),
+         ],
+      q(ish) => [
+         q(2999),
+         q(0),
+         ],
+      q(isi) => [
+         q(3000),
+         q(0),
+         ],
+      q(isk) => [
+         q(3001),
+         q(0),
+         ],
+      q(ism) => [
+         q(3002),
+         q(0),
+         ],
+      q(isn) => [
+         q(3003),
+         q(0),
+         ],
+      q(iso) => [
+         q(3004),
+         q(0),
+         ],
+      q(isr) => [
+         q(3005),
+         q(0),
+         ],
+      q(ist) => [
+         q(3006),
+         q(0),
+         ],
+      q(isu) => [
+         q(3007),
+         q(0),
+         ],
+      q(ita) => [
+         q(0203),
+         q(0),
+         ],
+      q(itb) => [
+         q(3008),
+         q(0),
+         ],
+      q(itc) => [
+         q(0514),
+         q(0),
+         ],
+      q(itd) => [
+         q(3009),
+         q(0),
+         ],
+      q(ite) => [
+         q(3010),
+         q(0),
+         ],
+      q(iti) => [
+         q(3011),
+         q(0),
+         ],
+      q(itk) => [
+         q(3012),
+         q(0),
+         ],
+      q(itl) => [
+         q(3013),
+         q(0),
+         ],
+      q(itm) => [
+         q(3014),
+         q(0),
+         ],
+      q(ito) => [
+         q(3015),
+         q(0),
+         ],
+      q(itr) => [
+         q(3016),
+         q(0),
+         ],
+      q(its) => [
+         q(3017),
+         q(0),
+         ],
+      q(itt) => [
+         q(3018),
+         q(0),
+         ],
+      q(itv) => [
+         q(3019),
+         q(0),
+         ],
+      q(itw) => [
+         q(3020),
+         q(0),
+         ],
+      q(itx) => [
+         q(3021),
+         q(0),
+         ],
+      q(ity) => [
+         q(3022),
+         q(0),
+         ],
+      q(itz) => [
+         q(3023),
+         q(0),
+         ],
+      q(ium) => [
+         q(3024),
+         q(0),
+         ],
+      q(ivb) => [
+         q(3025),
+         q(0),
+         ],
+      q(ivv) => [
+         q(3026),
+         q(0),
+         ],
+      q(iwk) => [
+         q(3027),
+         q(0),
+         ],
+      q(iwm) => [
+         q(3028),
+         q(0),
+         ],
+      q(iwo) => [
+         q(3029),
+         q(0),
+         ],
+      q(iws) => [
+         q(3030),
+         q(0),
+         ],
+      q(ixc) => [
+         q(3031),
+         q(0),
+         ],
+      q(ixl) => [
+         q(3032),
+         q(0),
+         ],
+      q(iya) => [
+         q(3033),
+         q(0),
+         ],
+      q(iyo) => [
+         q(3034),
+         q(0),
+         ],
+      q(iyx) => [
+         q(3035),
+         q(0),
+         ],
+      q(izh) => [
+         q(3036),
+         q(0),
+         ],
+      q(izr) => [
+         q(3037),
+         q(0),
+         ],
+      q(izz) => [
+         q(3038),
+         q(0),
+         ],
+      q(jaa) => [
+         q(3039),
+         q(0),
+         ],
+      q(jab) => [
+         q(3040),
+         q(0),
+         ],
+      q(jac) => [
+         q(3041),
+         q(0),
+         ],
+      q(jad) => [
+         q(3042),
+         q(0),
+         ],
+      q(jae) => [
+         q(3043),
+         q(0),
+         ],
+      q(jaf) => [
+         q(3044),
+         q(0),
+         ],
+      q(jah) => [
+         q(3045),
+         q(0),
+         ],
+      q(jaj) => [
+         q(3046),
+         q(0),
+         ],
+      q(jak) => [
+         q(3047),
+         q(0),
+         ],
+      q(jal) => [
+         q(3048),
+         q(0),
+         ],
+      q(jam) => [
+         q(3049),
+         q(0),
+         ],
+      q(jan) => [
+         q(3050),
+         q(0),
+         ],
+      q(jao) => [
+         q(3051),
+         q(0),
+         ],
+      q(jaq) => [
+         q(3052),
+         q(0),
+         ],
+      q(jas) => [
+         q(3053),
+         q(0),
+         ],
+      q(jat) => [
+         q(3054),
+         q(0),
+         ],
+      q(jau) => [
+         q(3055),
+         q(0),
+         ],
+      q(jav) => [
+         q(0204),
+         q(0),
+         ],
+      q(jax) => [
+         q(3056),
+         q(0),
+         ],
+      q(jay) => [
+         q(3057),
+         q(0),
+         ],
+      q(jaz) => [
+         q(3058),
+         q(0),
+         ],
+      q(jbe) => [
+         q(3059),
+         q(0),
+         ],
+      q(jbi) => [
+         q(3060),
+         q(0),
+         ],
+      q(jbj) => [
+         q(3061),
+         q(0),
+         ],
+      q(jbk) => [
+         q(3062),
+         q(0),
+         ],
+      q(jbn) => [
+         q(3063),
+         q(0),
+         ],
+      q(jbo) => [
+         q(0205),
+         q(0),
+         ],
+      q(jbr) => [
+         q(3064),
+         q(0),
+         ],
+      q(jbt) => [
+         q(3065),
+         q(0),
+         ],
+      q(jbu) => [
+         q(3066),
+         q(0),
+         ],
+      q(jbw) => [
+         q(3067),
+         q(0),
+         ],
+      q(jcs) => [
+         q(3068),
+         q(0),
+         ],
+      q(jct) => [
+         q(3069),
+         q(0),
+         ],
+      q(jda) => [
+         q(3070),
+         q(0),
+         ],
+      q(jdg) => [
+         q(3071),
+         q(0),
+         ],
+      q(jdt) => [
+         q(3072),
+         q(0),
+         ],
+      q(jeb) => [
+         q(3073),
+         q(0),
+         ],
+      q(jee) => [
+         q(3074),
+         q(0),
+         ],
+      q(jeh) => [
+         q(3075),
+         q(0),
+         ],
+      q(jei) => [
+         q(3076),
+         q(0),
+         ],
+      q(jek) => [
+         q(3077),
+         q(0),
+         ],
+      q(jel) => [
+         q(3078),
+         q(0),
+         ],
+      q(jen) => [
+         q(3079),
+         q(0),
+         ],
+      q(jer) => [
+         q(3080),
+         q(0),
+         ],
+      q(jet) => [
+         q(3081),
+         q(0),
+         ],
+      q(jeu) => [
+         q(3082),
+         q(0),
+         ],
+      q(jgb) => [
+         q(3083),
+         q(0),
+         ],
+      q(jge) => [
+         q(3084),
+         q(0),
+         ],
+      q(jgk) => [
+         q(3085),
+         q(0),
+         ],
+      q(jgo) => [
+         q(3086),
+         q(0),
+         ],
+      q(jhi) => [
+         q(3087),
+         q(0),
+         ],
+      q(jhs) => [
+         q(3088),
+         q(0),
+         ],
+      q(jia) => [
+         q(3089),
+         q(0),
+         ],
+      q(jib) => [
+         q(3090),
+         q(0),
+         ],
+      q(jic) => [
+         q(3091),
+         q(0),
+         ],
+      q(jid) => [
+         q(3092),
+         q(0),
+         ],
+      q(jie) => [
+         q(3093),
+         q(0),
+         ],
+      q(jig) => [
+         q(3094),
+         q(0),
+         ],
+      q(jih) => [
+         q(3095),
+         q(0),
+         ],
+      q(jii) => [
+         q(3096),
+         q(0),
+         ],
+      q(jil) => [
+         q(3097),
+         q(0),
+         ],
+      q(jim) => [
+         q(3098),
+         q(0),
+         ],
+      q(jio) => [
+         q(3099),
+         q(0),
+         ],
+      q(jiq) => [
+         q(3100),
+         q(0),
+         ],
+      q(jit) => [
+         q(3101),
+         q(0),
+         ],
+      q(jiu) => [
+         q(3102),
+         q(0),
+         ],
+      q(jiv) => [
+         q(3103),
+         q(0),
+         ],
+      q(jiy) => [
+         q(3104),
+         q(0),
+         ],
+      q(jje) => [
+         q(3105),
+         q(0),
+         ],
+      q(jjr) => [
+         q(3106),
+         q(0),
+         ],
+      q(jka) => [
+         q(3107),
+         q(0),
+         ],
+      q(jkm) => [
+         q(3108),
+         q(0),
+         ],
+      q(jko) => [
+         q(3109),
+         q(0),
+         ],
+      q(jkp) => [
+         q(3110),
+         q(0),
+         ],
+      q(jkr) => [
+         q(3111),
+         q(0),
+         ],
+      q(jku) => [
+         q(3112),
+         q(0),
+         ],
+      q(jle) => [
+         q(3113),
+         q(0),
+         ],
+      q(jls) => [
+         q(3114),
+         q(0),
+         ],
+      q(jma) => [
+         q(3115),
+         q(0),
+         ],
+      q(jmb) => [
+         q(3116),
+         q(0),
+         ],
+      q(jmc) => [
+         q(3117),
+         q(0),
+         ],
+      q(jmd) => [
+         q(3118),
+         q(0),
+         ],
+      q(jmi) => [
+         q(3119),
+         q(0),
+         ],
+      q(jml) => [
+         q(3120),
+         q(0),
+         ],
+      q(jmn) => [
+         q(3121),
+         q(0),
+         ],
+      q(jmr) => [
+         q(3122),
+         q(0),
+         ],
+      q(jms) => [
+         q(3123),
+         q(0),
+         ],
+      q(jmw) => [
+         q(3124),
+         q(0),
+         ],
+      q(jmx) => [
+         q(3125),
+         q(0),
+         ],
+      q(jna) => [
+         q(3126),
+         q(0),
+         ],
+      q(jnd) => [
+         q(3127),
+         q(0),
+         ],
+      q(jng) => [
+         q(3128),
+         q(0),
+         ],
+      q(jni) => [
+         q(3129),
+         q(0),
+         ],
+      q(jnj) => [
+         q(3130),
+         q(0),
+         ],
+      q(jnl) => [
+         q(3131),
+         q(0),
+         ],
+      q(jns) => [
+         q(3132),
+         q(0),
+         ],
+      q(job) => [
+         q(3133),
+         q(0),
+         ],
+      q(jod) => [
+         q(3134),
+         q(0),
+         ],
+      q(jog) => [
+         q(3135),
+         q(0),
+         ],
+      q(jor) => [
+         q(3136),
+         q(0),
+         ],
+      q(jos) => [
+         q(3137),
+         q(0),
+         ],
+      q(jow) => [
+         q(3138),
+         q(0),
+         ],
+      q(jpa) => [
+         q(3139),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0206),
+         q(0),
+         ],
+      q(jpr) => [
+         q(0207),
+         q(0),
+         ],
+      q(jpx) => [
+         q(0515),
+         q(0),
+         ],
+      q(jqr) => [
+         q(3140),
+         q(0),
+         ],
+      q(jra) => [
+         q(3141),
+         q(0),
+         ],
+      q(jrb) => [
+         q(0208),
+         q(0),
+         ],
+      q(jrr) => [
+         q(3142),
+         q(0),
+         ],
+      q(jrt) => [
+         q(3143),
+         q(0),
+         ],
+      q(jru) => [
+         q(3144),
+         q(0),
+         ],
+      q(jsl) => [
+         q(3145),
+         q(0),
+         ],
+      q(jua) => [
+         q(3146),
+         q(0),
+         ],
+      q(jub) => [
+         q(3147),
+         q(0),
+         ],
+      q(juc) => [
+         q(3148),
+         q(0),
+         ],
+      q(jud) => [
+         q(3149),
+         q(0),
+         ],
+      q(juh) => [
+         q(3150),
+         q(0),
+         ],
+      q(jui) => [
+         q(3151),
+         q(0),
+         ],
+      q(juk) => [
+         q(3152),
+         q(0),
+         ],
+      q(jul) => [
+         q(3153),
+         q(0),
+         ],
+      q(jum) => [
+         q(3154),
+         q(0),
+         ],
+      q(jun) => [
+         q(3155),
+         q(0),
+         ],
+      q(juo) => [
+         q(3156),
+         q(0),
+         ],
+      q(jup) => [
+         q(3157),
+         q(0),
+         ],
+      q(jur) => [
+         q(3158),
+         q(0),
+         ],
+      q(jus) => [
+         q(3159),
+         q(0),
+         ],
+      q(jut) => [
+         q(3160),
+         q(0),
+         ],
+      q(juu) => [
+         q(3161),
+         q(0),
+         ],
+      q(juw) => [
+         q(3162),
+         q(0),
+         ],
+      q(juy) => [
+         q(3163),
+         q(0),
+         ],
+      q(jvd) => [
+         q(3164),
+         q(0),
+         ],
+      q(jvn) => [
+         q(3165),
+         q(0),
+         ],
+      q(jwi) => [
+         q(3166),
+         q(0),
+         ],
+      q(jya) => [
+         q(3167),
+         q(0),
+         ],
+      q(jye) => [
+         q(3168),
+         q(0),
+         ],
+      q(jyy) => [
+         q(3169),
+         q(0),
+         ],
+      q(kaa) => [
+         q(0209),
+         q(0),
+         ],
+      q(kab) => [
+         q(0210),
+         q(0),
+         ],
+      q(kac) => [
+         q(0211),
+         q(0),
+         ],
+      q(kad) => [
+         q(3170),
+         q(0),
+         ],
+      q(kae) => [
+         q(3171),
+         q(0),
+         ],
+      q(kaf) => [
+         q(3172),
+         q(0),
+         ],
+      q(kag) => [
+         q(3173),
+         q(0),
+         ],
+      q(kah) => [
+         q(3174),
+         q(0),
+         ],
+      q(kai) => [
+         q(3175),
+         q(0),
+         ],
+      q(kaj) => [
+         q(3176),
+         q(0),
+         ],
+      q(kak) => [
+         q(3177),
+         q(0),
+         ],
+      q(kal) => [
+         q(0212),
+         q(0),
+         ],
+      q(kam) => [
+         q(0213),
+         q(1),
+         ],
+      q(kan) => [
+         q(0214),
+         q(0),
+         ],
+      q(kao) => [
+         q(3178),
+         q(0),
+         ],
+      q(kap) => [
+         q(3179),
+         q(0),
+         ],
+      q(kaq) => [
+         q(3180),
+         q(0),
+         ],
+      q(kar) => [
+         q(0215),
+         q(0),
+         ],
+      q(kas) => [
+         q(0216),
+         q(0),
+         ],
+      q(kau) => [
+         q(0217),
+         q(0),
+         ],
+      q(kav) => [
+         q(3181),
+         q(0),
+         ],
+      q(kaw) => [
+         q(0218),
+         q(0),
+         ],
+      q(kax) => [
+         q(3182),
+         q(0),
+         ],
+      q(kay) => [
+         q(3183),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0219),
+         q(0),
+         ],
+      q(kba) => [
+         q(3184),
+         q(0),
+         ],
+      q(kbb) => [
+         q(3185),
+         q(0),
+         ],
+      q(kbc) => [
+         q(3186),
+         q(0),
+         ],
+      q(kbd) => [
+         q(0220),
+         q(0),
+         ],
+      q(kbe) => [
+         q(3187),
+         q(0),
+         ],
+      q(kbg) => [
+         q(3188),
+         q(0),
+         ],
+      q(kbh) => [
+         q(3189),
+         q(0),
+         ],
+      q(kbi) => [
+         q(3190),
+         q(0),
+         ],
+      q(kbj) => [
+         q(3191),
+         q(0),
+         ],
+      q(kbk) => [
+         q(3192),
+         q(0),
+         ],
+      q(kbl) => [
+         q(3193),
+         q(0),
+         ],
+      q(kbm) => [
+         q(3194),
+         q(0),
+         ],
+      q(kbn) => [
+         q(3195),
+         q(0),
+         ],
+      q(kbo) => [
+         q(3196),
+         q(0),
+         ],
+      q(kbp) => [
+         q(3197),
+         q(0),
+         ],
+      q(kbq) => [
+         q(3198),
+         q(0),
+         ],
+      q(kbr) => [
+         q(3199),
+         q(0),
+         ],
+      q(kbs) => [
+         q(3200),
+         q(0),
+         ],
+      q(kbt) => [
+         q(3201),
+         q(0),
+         ],
+      q(kbu) => [
+         q(3202),
+         q(0),
+         ],
+      q(kbv) => [
+         q(3203),
+         q(0),
+         ],
+      q(kbw) => [
+         q(3204),
+         q(0),
+         ],
+      q(kbx) => [
+         q(3205),
+         q(0),
+         ],
+      q(kby) => [
+         q(3206),
+         q(0),
+         ],
+      q(kbz) => [
+         q(3207),
+         q(0),
+         ],
+      q(kca) => [
+         q(3208),
+         q(0),
+         ],
+      q(kcb) => [
+         q(3209),
+         q(0),
+         ],
+      q(kcc) => [
+         q(3210),
+         q(0),
+         ],
+      q(kcd) => [
+         q(3211),
+         q(0),
+         ],
+      q(kce) => [
+         q(3212),
+         q(0),
+         ],
+      q(kcf) => [
+         q(3213),
+         q(0),
+         ],
+      q(kcg) => [
+         q(3214),
+         q(0),
+         ],
+      q(kch) => [
+         q(3215),
+         q(0),
+         ],
+      q(kci) => [
+         q(3216),
+         q(0),
+         ],
+      q(kcj) => [
+         q(3217),
+         q(0),
+         ],
+      q(kck) => [
+         q(3218),
+         q(0),
+         ],
+      q(kcl) => [
+         q(3219),
+         q(0),
+         ],
+      q(kcm) => [
+         q(3220),
+         q(0),
+         ],
+      q(kcn) => [
+         q(3221),
+         q(0),
+         ],
+      q(kco) => [
+         q(3222),
+         q(0),
+         ],
+      q(kcp) => [
+         q(3223),
+         q(0),
+         ],
+      q(kcq) => [
+         q(3224),
+         q(0),
+         ],
+      q(kcr) => [
+         q(3225),
+         q(0),
+         ],
+      q(kcs) => [
+         q(3226),
+         q(0),
+         ],
+      q(kct) => [
+         q(3227),
+         q(0),
+         ],
+      q(kcu) => [
+         q(3228),
+         q(0),
+         ],
+      q(kcv) => [
+         q(3229),
+         q(0),
+         ],
+      q(kcw) => [
+         q(3230),
+         q(0),
+         ],
+      q(kcx) => [
+         q(3231),
+         q(0),
+         ],
+      q(kcy) => [
+         q(3232),
+         q(0),
+         ],
+      q(kcz) => [
+         q(3233),
+         q(0),
+         ],
+      q(kda) => [
+         q(3234),
+         q(0),
+         ],
+      q(kdc) => [
+         q(3235),
+         q(0),
+         ],
+      q(kdd) => [
+         q(3236),
+         q(0),
+         ],
+      q(kde) => [
+         q(3237),
+         q(0),
+         ],
+      q(kdf) => [
+         q(3238),
+         q(0),
+         ],
+      q(kdg) => [
+         q(3239),
+         q(0),
+         ],
+      q(kdh) => [
+         q(3240),
+         q(0),
+         ],
+      q(kdi) => [
+         q(3241),
+         q(0),
+         ],
+      q(kdj) => [
+         q(3242),
+         q(0),
+         ],
+      q(kdk) => [
+         q(3243),
+         q(0),
+         ],
+      q(kdl) => [
+         q(3244),
+         q(0),
+         ],
+      q(kdm) => [
+         q(3245),
+         q(0),
+         ],
+      q(kdn) => [
+         q(3246),
+         q(0),
+         ],
+      q(kdo) => [
+         q(0516),
+         q(0),
+         ],
+      q(kdp) => [
+         q(3247),
+         q(0),
+         ],
+      q(kdq) => [
+         q(3248),
+         q(0),
+         ],
+      q(kdr) => [
+         q(3249),
+         q(0),
+         ],
+      q(kdt) => [
+         q(3250),
+         q(0),
+         ],
+      q(kdu) => [
+         q(3251),
+         q(0),
+         ],
+      q(kdw) => [
+         q(3252),
+         q(0),
+         ],
+      q(kdx) => [
+         q(3253),
+         q(0),
+         ],
+      q(kdy) => [
+         q(3254),
+         q(0),
+         ],
+      q(kdz) => [
+         q(3255),
+         q(0),
+         ],
+      q(kea) => [
+         q(3256),
+         q(0),
+         ],
+      q(keb) => [
+         q(3257),
+         q(0),
+         ],
+      q(kec) => [
+         q(3258),
+         q(0),
+         ],
+      q(ked) => [
+         q(3259),
+         q(0),
+         ],
+      q(kee) => [
+         q(3260),
+         q(0),
+         ],
+      q(kef) => [
+         q(3261),
+         q(0),
+         ],
+      q(keg) => [
+         q(3262),
+         q(0),
+         ],
+      q(keh) => [
+         q(3263),
+         q(0),
+         ],
+      q(kei) => [
+         q(3264),
+         q(0),
+         ],
+      q(kej) => [
+         q(3265),
+         q(0),
+         ],
+      q(kek) => [
+         q(3266),
+         q(0),
+         ],
+      q(kel) => [
+         q(3267),
+         q(0),
+         ],
+      q(kem) => [
+         q(3268),
+         q(0),
+         ],
+      q(ken) => [
+         q(3269),
+         q(0),
+         ],
+      q(keo) => [
+         q(3270),
+         q(0),
+         ],
+      q(kep) => [
+         q(3271),
+         q(0),
+         ],
+      q(keq) => [
+         q(3272),
+         q(0),
+         ],
+      q(ker) => [
+         q(3273),
+         q(0),
+         ],
+      q(kes) => [
+         q(3274),
+         q(0),
+         ],
+      q(ket) => [
+         q(3275),
+         q(0),
+         ],
+      q(keu) => [
+         q(3276),
+         q(0),
+         ],
+      q(kev) => [
+         q(3277),
+         q(0),
+         ],
+      q(kew) => [
+         q(3278),
+         q(0),
+         ],
+      q(kex) => [
+         q(3279),
+         q(0),
+         ],
+      q(key) => [
+         q(3280),
+         q(0),
+         ],
+      q(kez) => [
+         q(3281),
+         q(0),
+         ],
+      q(kfa) => [
+         q(3282),
+         q(0),
+         ],
+      q(kfb) => [
+         q(3283),
+         q(0),
+         ],
+      q(kfc) => [
+         q(3284),
+         q(0),
+         ],
+      q(kfd) => [
+         q(3285),
+         q(0),
+         ],
+      q(kfe) => [
+         q(3286),
+         q(0),
+         ],
+      q(kff) => [
+         q(3287),
+         q(0),
+         ],
+      q(kfg) => [
+         q(3288),
+         q(0),
+         ],
+      q(kfh) => [
+         q(3289),
+         q(0),
+         ],
+      q(kfi) => [
+         q(3290),
+         q(0),
+         ],
+      q(kfj) => [
+         q(3291),
+         q(0),
+         ],
+      q(kfk) => [
+         q(3292),
+         q(0),
+         ],
+      q(kfl) => [
+         q(3293),
+         q(0),
+         ],
+      q(kfm) => [
+         q(3294),
+         q(0),
+         ],
+      q(kfn) => [
+         q(3295),
+         q(0),
+         ],
+      q(kfo) => [
+         q(3296),
+         q(0),
+         ],
+      q(kfp) => [
+         q(3297),
+         q(0),
+         ],
+      q(kfq) => [
+         q(3298),
+         q(0),
+         ],
+      q(kfr) => [
+         q(3299),
+         q(0),
+         ],
+      q(kfs) => [
+         q(3300),
+         q(0),
+         ],
+      q(kft) => [
+         q(3301),
+         q(0),
+         ],
+      q(kfu) => [
+         q(3302),
+         q(0),
+         ],
+      q(kfv) => [
+         q(3303),
+         q(0),
+         ],
+      q(kfw) => [
+         q(3304),
+         q(0),
+         ],
+      q(kfx) => [
+         q(3305),
+         q(0),
+         ],
+      q(kfy) => [
+         q(3306),
+         q(0),
+         ],
+      q(kfz) => [
+         q(3307),
+         q(0),
+         ],
+      q(kga) => [
+         q(3308),
+         q(0),
+         ],
+      q(kgb) => [
+         q(3309),
+         q(0),
+         ],
+      q(kge) => [
+         q(3310),
+         q(0),
+         ],
+      q(kgf) => [
+         q(3311),
+         q(0),
+         ],
+      q(kgg) => [
+         q(3312),
+         q(0),
+         ],
+      q(kgi) => [
+         q(3313),
+         q(0),
+         ],
+      q(kgj) => [
+         q(3314),
+         q(0),
+         ],
+      q(kgk) => [
+         q(3315),
+         q(0),
+         ],
+      q(kgl) => [
+         q(3316),
+         q(0),
+         ],
+      q(kgm) => [
+         q(3317),
+         q(0),
+         ],
+      q(kgn) => [
+         q(3318),
+         q(0),
+         ],
+      q(kgo) => [
+         q(3319),
+         q(0),
+         ],
+      q(kgp) => [
+         q(3320),
+         q(0),
+         ],
+      q(kgq) => [
+         q(3321),
+         q(0),
+         ],
+      q(kgr) => [
+         q(3322),
+         q(0),
+         ],
+      q(kgs) => [
+         q(3323),
+         q(0),
+         ],
+      q(kgt) => [
+         q(3324),
+         q(0),
+         ],
+      q(kgu) => [
+         q(3325),
+         q(0),
+         ],
+      q(kgv) => [
+         q(3326),
+         q(0),
+         ],
+      q(kgw) => [
+         q(3327),
+         q(0),
+         ],
+      q(kgx) => [
+         q(3328),
+         q(0),
+         ],
+      q(kgy) => [
+         q(3329),
+         q(0),
+         ],
+      q(kha) => [
+         q(0221),
+         q(0),
+         ],
+      q(khb) => [
+         q(3330),
+         q(0),
+         ],
+      q(khc) => [
+         q(3331),
+         q(0),
+         ],
+      q(khd) => [
+         q(3332),
+         q(0),
+         ],
+      q(khe) => [
+         q(3333),
+         q(0),
+         ],
+      q(khf) => [
+         q(3334),
+         q(0),
+         ],
+      q(khg) => [
+         q(3335),
+         q(0),
+         ],
+      q(khh) => [
+         q(3336),
+         q(0),
+         ],
+      q(khi) => [
+         q(0222),
+         q(0),
+         ],
+      q(khj) => [
+         q(3337),
+         q(0),
+         ],
+      q(khk) => [
+         q(3338),
+         q(0),
+         ],
+      q(khl) => [
+         q(3339),
+         q(0),
+         ],
+      q(khm) => [
+         q(0223),
+         q(0),
+         ],
+      q(khn) => [
+         q(3340),
+         q(0),
+         ],
+      q(kho) => [
+         q(0224),
+         q(0),
+         ],
+      q(khp) => [
+         q(3341),
+         q(0),
+         ],
+      q(khq) => [
+         q(3342),
+         q(0),
+         ],
+      q(khr) => [
+         q(3343),
+         q(0),
+         ],
+      q(khs) => [
+         q(3344),
+         q(0),
+         ],
+      q(kht) => [
+         q(3345),
+         q(0),
+         ],
+      q(khu) => [
+         q(3346),
+         q(0),
+         ],
+      q(khv) => [
+         q(3347),
+         q(0),
+         ],
+      q(khw) => [
+         q(3348),
+         q(0),
+         ],
+      q(khx) => [
+         q(3349),
+         q(0),
+         ],
+      q(khy) => [
+         q(3350),
+         q(0),
+         ],
+      q(khz) => [
+         q(3351),
+         q(0),
+         ],
+      q(kia) => [
+         q(3352),
+         q(0),
+         ],
+      q(kib) => [
+         q(3353),
+         q(0),
+         ],
+      q(kic) => [
+         q(3354),
+         q(0),
+         ],
+      q(kid) => [
+         q(3355),
+         q(0),
+         ],
+      q(kie) => [
+         q(3356),
+         q(0),
+         ],
+      q(kif) => [
+         q(3357),
+         q(0),
+         ],
+      q(kig) => [
+         q(3358),
+         q(0),
+         ],
+      q(kih) => [
+         q(3359),
+         q(0),
+         ],
+      q(kii) => [
+         q(3360),
+         q(0),
+         ],
+      q(kij) => [
+         q(3361),
+         q(0),
+         ],
+      q(kik) => [
+         q(0225),
+         q(0),
+         ],
+      q(kil) => [
+         q(3362),
+         q(0),
+         ],
+      q(kim) => [
+         q(3363),
+         q(0),
+         ],
+      q(kin) => [
+         q(0226),
+         q(0),
+         ],
+      q(kio) => [
+         q(3364),
+         q(0),
+         ],
+      q(kip) => [
+         q(3365),
+         q(0),
+         ],
+      q(kiq) => [
+         q(3366),
+         q(0),
+         ],
+      q(kir) => [
+         q(0227),
+         q(0),
+         ],
+      q(kis) => [
+         q(3367),
+         q(0),
+         ],
+      q(kit) => [
+         q(3368),
+         q(0),
+         ],
+      q(kiu) => [
+         q(3369),
+         q(0),
+         ],
+      q(kiv) => [
+         q(3370),
+         q(0),
+         ],
+      q(kiw) => [
+         q(3371),
+         q(0),
+         ],
+      q(kix) => [
+         q(3372),
+         q(0),
+         ],
+      q(kiy) => [
+         q(3373),
+         q(0),
+         ],
+      q(kiz) => [
+         q(3374),
+         q(0),
+         ],
+      q(kja) => [
+         q(3375),
+         q(0),
+         ],
+      q(kjb) => [
+         q(3376),
+         q(0),
+         ],
+      q(kjc) => [
+         q(3377),
+         q(0),
+         ],
+      q(kjd) => [
+         q(3378),
+         q(0),
+         ],
+      q(kje) => [
+         q(3379),
+         q(0),
+         ],
+      q(kjf) => [
+         q(3380),
+         q(0),
+         ],
+      q(kjg) => [
+         q(3381),
+         q(0),
+         ],
+      q(kjh) => [
+         q(3382),
+         q(0),
+         ],
+      q(kji) => [
+         q(3383),
+         q(0),
+         ],
+      q(kjj) => [
+         q(3384),
+         q(0),
+         ],
+      q(kjk) => [
+         q(3385),
+         q(0),
+         ],
+      q(kjl) => [
+         q(3386),
+         q(0),
+         ],
+      q(kjm) => [
+         q(3387),
+         q(0),
+         ],
+      q(kjn) => [
+         q(3388),
+         q(0),
+         ],
+      q(kjo) => [
+         q(3389),
+         q(0),
+         ],
+      q(kjp) => [
+         q(3390),
+         q(0),
+         ],
+      q(kjq) => [
+         q(3391),
+         q(0),
+         ],
+      q(kjr) => [
+         q(3392),
+         q(0),
+         ],
+      q(kjs) => [
+         q(3393),
+         q(0),
+         ],
+      q(kjt) => [
+         q(3394),
+         q(0),
+         ],
+      q(kju) => [
+         q(3395),
+         q(0),
+         ],
+      q(kjv) => [
+         q(3396),
+         q(0),
+         ],
+      q(kjx) => [
+         q(3397),
+         q(0),
+         ],
+      q(kjy) => [
+         q(3398),
+         q(0),
+         ],
+      q(kjz) => [
+         q(3399),
+         q(0),
+         ],
+      q(kka) => [
+         q(3400),
+         q(0),
+         ],
+      q(kkb) => [
+         q(3401),
+         q(0),
+         ],
+      q(kkc) => [
+         q(3402),
+         q(0),
+         ],
+      q(kkd) => [
+         q(3403),
+         q(0),
+         ],
+      q(kke) => [
+         q(3404),
+         q(0),
+         ],
+      q(kkf) => [
+         q(3405),
+         q(0),
+         ],
+      q(kkg) => [
+         q(3406),
+         q(0),
+         ],
+      q(kkh) => [
+         q(3407),
+         q(0),
+         ],
+      q(kki) => [
+         q(3408),
+         q(0),
+         ],
+      q(kkj) => [
+         q(3409),
+         q(0),
+         ],
+      q(kkk) => [
+         q(3410),
+         q(0),
+         ],
+      q(kkl) => [
+         q(3411),
+         q(0),
+         ],
+      q(kkm) => [
+         q(3412),
+         q(0),
+         ],
+      q(kkn) => [
+         q(3413),
+         q(0),
+         ],
+      q(kko) => [
+         q(3414),
+         q(0),
+         ],
+      q(kkp) => [
+         q(3415),
+         q(0),
+         ],
+      q(kkq) => [
+         q(3416),
+         q(0),
+         ],
+      q(kkr) => [
+         q(3417),
+         q(0),
+         ],
+      q(kks) => [
+         q(3418),
+         q(0),
+         ],
+      q(kkt) => [
+         q(3419),
+         q(0),
+         ],
+      q(kku) => [
+         q(3420),
+         q(0),
+         ],
+      q(kkv) => [
+         q(3421),
+         q(0),
+         ],
+      q(kkw) => [
+         q(3422),
+         q(0),
+         ],
+      q(kkx) => [
+         q(3423),
+         q(0),
+         ],
+      q(kky) => [
+         q(3424),
+         q(0),
+         ],
+      q(kkz) => [
+         q(3425),
+         q(0),
+         ],
+      q(kla) => [
+         q(3426),
+         q(0),
+         ],
+      q(klb) => [
+         q(3427),
+         q(0),
+         ],
+      q(klc) => [
+         q(3428),
+         q(0),
+         ],
+      q(kld) => [
+         q(3429),
+         q(0),
+         ],
+      q(kle) => [
+         q(3430),
+         q(0),
+         ],
+      q(klf) => [
+         q(3431),
+         q(0),
+         ],
+      q(klg) => [
+         q(3432),
+         q(0),
+         ],
+      q(klh) => [
+         q(3433),
+         q(0),
+         ],
+      q(kli) => [
+         q(3434),
+         q(0),
+         ],
+      q(klj) => [
+         q(3435),
+         q(0),
+         ],
+      q(klk) => [
+         q(3436),
+         q(0),
+         ],
+      q(kll) => [
+         q(3437),
+         q(0),
+         ],
+      q(klm) => [
+         q(3438),
+         q(0),
+         ],
+      q(kln) => [
+         q(3439),
+         q(0),
+         ],
+      q(klo) => [
+         q(3440),
+         q(0),
+         ],
+      q(klp) => [
+         q(3441),
+         q(0),
+         ],
+      q(klq) => [
+         q(3442),
+         q(0),
+         ],
+      q(klr) => [
+         q(3443),
+         q(0),
+         ],
+      q(kls) => [
+         q(3444),
+         q(0),
+         ],
+      q(klt) => [
+         q(3445),
+         q(0),
+         ],
+      q(klu) => [
+         q(3446),
+         q(0),
+         ],
+      q(klv) => [
+         q(3447),
+         q(0),
+         ],
+      q(klw) => [
+         q(3448),
+         q(0),
+         ],
+      q(klx) => [
+         q(3449),
+         q(0),
+         ],
+      q(kly) => [
+         q(3450),
+         q(0),
+         ],
+      q(klz) => [
+         q(3451),
+         q(0),
+         ],
+      q(kma) => [
+         q(3452),
+         q(0),
+         ],
+      q(kmb) => [
+         q(0228),
+         q(0),
+         ],
+      q(kmc) => [
+         q(3453),
+         q(0),
+         ],
+      q(kmd) => [
+         q(3454),
+         q(0),
+         ],
+      q(kme) => [
+         q(3455),
+         q(0),
+         ],
+      q(kmf) => [
+         q(3456),
+         q(0),
+         ],
+      q(kmg) => [
+         q(3457),
+         q(0),
+         ],
+      q(kmh) => [
+         q(3458),
+         q(0),
+         ],
+      q(kmi) => [
+         q(3459),
+         q(0),
+         ],
+      q(kmj) => [
+         q(3460),
+         q(0),
+         ],
+      q(kmk) => [
+         q(3461),
+         q(0),
+         ],
+      q(kml) => [
+         q(3462),
+         q(0),
+         ],
+      q(kmm) => [
+         q(3463),
+         q(0),
+         ],
+      q(kmn) => [
+         q(3464),
+         q(0),
+         ],
+      q(kmo) => [
+         q(3465),
+         q(0),
+         ],
+      q(kmp) => [
+         q(3466),
+         q(0),
+         ],
+      q(kmq) => [
+         q(3467),
+         q(0),
+         ],
+      q(kmr) => [
+         q(3468),
+         q(0),
+         ],
+      q(kms) => [
+         q(3469),
+         q(0),
+         ],
+      q(kmt) => [
+         q(3470),
+         q(0),
+         ],
+      q(kmu) => [
+         q(3471),
+         q(0),
+         ],
+      q(kmv) => [
+         q(3472),
+         q(0),
+         ],
+      q(kmw) => [
+         q(3473),
+         q(0),
+         ],
+      q(kmx) => [
+         q(3474),
+         q(0),
+         ],
+      q(kmy) => [
+         q(3475),
+         q(0),
+         ],
+      q(kmz) => [
+         q(3476),
+         q(0),
+         ],
+      q(kna) => [
+         q(3477),
+         q(0),
+         ],
+      q(knb) => [
+         q(3478),
+         q(0),
+         ],
+      q(knc) => [
+         q(3479),
+         q(0),
+         ],
+      q(knd) => [
+         q(3480),
+         q(0),
+         ],
+      q(kne) => [
+         q(3481),
+         q(0),
+         ],
+      q(knf) => [
+         q(3482),
+         q(0),
+         ],
+      q(kng) => [
+         q(3483),
+         q(0),
+         ],
+      q(kni) => [
+         q(3484),
+         q(0),
+         ],
+      q(knj) => [
+         q(3485),
+         q(0),
+         ],
+      q(knk) => [
+         q(3486),
+         q(0),
+         ],
+      q(knl) => [
+         q(3487),
+         q(0),
+         ],
+      q(knm) => [
+         q(3488),
+         q(0),
+         ],
+      q(knn) => [
+         q(3489),
+         q(0),
+         ],
+      q(kno) => [
+         q(3490),
+         q(0),
+         ],
+      q(knp) => [
+         q(3491),
+         q(0),
+         ],
+      q(knq) => [
+         q(3492),
+         q(0),
+         ],
+      q(knr) => [
+         q(3493),
+         q(0),
+         ],
+      q(kns) => [
+         q(3494),
+         q(0),
+         ],
+      q(knt) => [
+         q(3495),
+         q(0),
+         ],
+      q(knu) => [
+         q(3496),
+         q(0),
+         ],
+      q(knv) => [
+         q(3497),
+         q(0),
+         ],
+      q(knw) => [
+         q(3498),
+         q(0),
+         ],
+      q(knx) => [
+         q(3499),
+         q(0),
+         ],
+      q(kny) => [
+         q(3500),
+         q(0),
+         ],
+      q(knz) => [
+         q(3501),
+         q(0),
+         ],
+      q(koa) => [
+         q(3502),
+         q(0),
+         ],
+      q(koc) => [
+         q(3503),
+         q(0),
+         ],
+      q(kod) => [
+         q(3504),
+         q(0),
+         ],
+      q(koe) => [
+         q(3505),
+         q(0),
+         ],
+      q(kof) => [
+         q(3506),
+         q(0),
+         ],
+      q(kog) => [
+         q(3507),
+         q(0),
+         ],
+      q(koh) => [
+         q(3508),
+         q(0),
+         ],
+      q(koi) => [
+         q(3509),
+         q(0),
+         ],
+      q(kok) => [
+         q(0229),
+         q(1),
+         ],
+      q(kol) => [
+         q(3510),
+         q(0),
+         ],
+      q(kom) => [
+         q(0230),
+         q(0),
+         ],
+      q(kon) => [
+         q(0231),
+         q(0),
+         ],
+      q(koo) => [
+         q(3511),
+         q(0),
+         ],
+      q(kop) => [
+         q(3512),
+         q(0),
+         ],
+      q(koq) => [
+         q(3513),
+         q(0),
+         ],
+      q(kor) => [
+         q(0232),
+         q(0),
+         ],
+      q(kos) => [
+         q(0233),
+         q(0),
+         ],
+      q(kot) => [
+         q(3514),
+         q(0),
+         ],
+      q(kou) => [
+         q(3515),
+         q(0),
+         ],
+      q(kov) => [
+         q(3516),
+         q(0),
+         ],
+      q(kow) => [
+         q(3517),
+         q(0),
+         ],
+      q(koy) => [
+         q(3518),
+         q(0),
+         ],
+      q(koz) => [
+         q(3519),
+         q(0),
+         ],
+      q(kpa) => [
+         q(3520),
+         q(0),
+         ],
+      q(kpb) => [
+         q(3521),
+         q(0),
+         ],
+      q(kpc) => [
+         q(3522),
+         q(0),
+         ],
+      q(kpd) => [
+         q(3523),
+         q(0),
+         ],
+      q(kpe) => [
+         q(0234),
+         q(0),
+         ],
+      q(kpf) => [
+         q(3524),
+         q(0),
+         ],
+      q(kpg) => [
+         q(3525),
+         q(0),
+         ],
+      q(kph) => [
+         q(3526),
+         q(0),
+         ],
+      q(kpi) => [
+         q(3527),
+         q(0),
+         ],
+      q(kpj) => [
+         q(3528),
+         q(0),
+         ],
+      q(kpk) => [
+         q(3529),
+         q(0),
+         ],
+      q(kpl) => [
+         q(3530),
+         q(0),
+         ],
+      q(kpm) => [
+         q(3531),
+         q(0),
+         ],
+      q(kpn) => [
+         q(3532),
+         q(0),
+         ],
+      q(kpo) => [
+         q(3533),
+         q(0),
+         ],
+      q(kpq) => [
+         q(3534),
+         q(0),
+         ],
+      q(kpr) => [
+         q(3535),
+         q(0),
+         ],
+      q(kps) => [
+         q(3536),
+         q(0),
+         ],
+      q(kpt) => [
+         q(3537),
+         q(0),
+         ],
+      q(kpu) => [
+         q(3538),
+         q(0),
+         ],
+      q(kpv) => [
+         q(3539),
+         q(0),
+         ],
+      q(kpw) => [
+         q(3540),
+         q(0),
+         ],
+      q(kpx) => [
+         q(3541),
+         q(0),
+         ],
+      q(kpy) => [
+         q(3542),
+         q(0),
+         ],
+      q(kpz) => [
+         q(3543),
+         q(0),
+         ],
+      q(kqa) => [
+         q(3544),
+         q(0),
+         ],
+      q(kqb) => [
+         q(3545),
+         q(0),
+         ],
+      q(kqc) => [
+         q(3546),
+         q(0),
+         ],
+      q(kqd) => [
+         q(3547),
+         q(0),
+         ],
+      q(kqe) => [
+         q(3548),
+         q(0),
+         ],
+      q(kqf) => [
+         q(3549),
+         q(0),
+         ],
+      q(kqg) => [
+         q(3550),
+         q(0),
+         ],
+      q(kqh) => [
+         q(3551),
+         q(0),
+         ],
+      q(kqi) => [
+         q(3552),
+         q(0),
+         ],
+      q(kqj) => [
+         q(3553),
+         q(0),
+         ],
+      q(kqk) => [
+         q(3554),
+         q(0),
+         ],
+      q(kql) => [
+         q(3555),
+         q(0),
+         ],
+      q(kqm) => [
+         q(3556),
+         q(0),
+         ],
+      q(kqn) => [
+         q(3557),
+         q(0),
+         ],
+      q(kqo) => [
+         q(3558),
+         q(0),
+         ],
+      q(kqp) => [
+         q(3559),
+         q(0),
+         ],
+      q(kqq) => [
+         q(3560),
+         q(0),
+         ],
+      q(kqr) => [
+         q(3561),
+         q(0),
+         ],
+      q(kqs) => [
+         q(3562),
+         q(0),
+         ],
+      q(kqt) => [
+         q(3563),
+         q(0),
+         ],
+      q(kqu) => [
+         q(3564),
+         q(0),
+         ],
+      q(kqv) => [
+         q(3565),
+         q(0),
+         ],
+      q(kqw) => [
+         q(3566),
+         q(0),
+         ],
+      q(kqx) => [
+         q(3567),
+         q(0),
+         ],
+      q(kqy) => [
+         q(3568),
+         q(0),
+         ],
+      q(kqz) => [
+         q(3569),
+         q(0),
+         ],
+      q(kra) => [
+         q(3570),
+         q(0),
+         ],
+      q(krb) => [
+         q(3571),
+         q(0),
+         ],
+      q(krc) => [
+         q(0235),
+         q(0),
+         ],
+      q(krd) => [
+         q(3572),
+         q(0),
+         ],
+      q(kre) => [
+         q(3573),
+         q(0),
+         ],
+      q(krf) => [
+         q(3574),
+         q(0),
+         ],
+      q(krh) => [
+         q(3575),
+         q(0),
+         ],
+      q(kri) => [
+         q(3576),
+         q(0),
+         ],
+      q(krj) => [
+         q(3577),
+         q(0),
+         ],
+      q(krk) => [
+         q(3578),
+         q(0),
+         ],
+      q(krl) => [
+         q(0236),
+         q(0),
+         ],
+      q(krn) => [
+         q(3579),
+         q(0),
+         ],
+      q(kro) => [
+         q(0237),
+         q(0),
+         ],
+      q(krp) => [
+         q(3580),
+         q(0),
+         ],
+      q(krr) => [
+         q(3581),
+         q(0),
+         ],
+      q(krs) => [
+         q(3582),
+         q(0),
+         ],
+      q(krt) => [
+         q(3583),
+         q(0),
+         ],
+      q(kru) => [
+         q(0238),
+         q(0),
+         ],
+      q(krv) => [
+         q(3584),
+         q(0),
+         ],
+      q(krw) => [
+         q(3585),
+         q(0),
+         ],
+      q(krx) => [
+         q(3586),
+         q(0),
+         ],
+      q(kry) => [
+         q(3587),
+         q(0),
+         ],
+      q(krz) => [
+         q(3588),
+         q(0),
+         ],
+      q(ksa) => [
+         q(3589),
+         q(0),
+         ],
+      q(ksb) => [
+         q(3590),
+         q(0),
+         ],
+      q(ksc) => [
+         q(3591),
+         q(0),
+         ],
+      q(ksd) => [
+         q(3592),
+         q(0),
+         ],
+      q(kse) => [
+         q(3593),
+         q(0),
+         ],
+      q(ksf) => [
+         q(3594),
+         q(0),
+         ],
+      q(ksg) => [
+         q(3595),
+         q(0),
+         ],
+      q(ksh) => [
+         q(3596),
+         q(0),
+         ],
+      q(ksi) => [
+         q(3597),
+         q(0),
+         ],
+      q(ksj) => [
+         q(3598),
+         q(0),
+         ],
+      q(ksk) => [
+         q(3599),
+         q(0),
+         ],
+      q(ksl) => [
+         q(3600),
+         q(0),
+         ],
+      q(ksm) => [
+         q(3601),
+         q(0),
+         ],
+      q(ksn) => [
+         q(3602),
+         q(0),
+         ],
+      q(kso) => [
+         q(3603),
+         q(0),
+         ],
+      q(ksp) => [
+         q(3604),
+         q(0),
+         ],
+      q(ksq) => [
+         q(3605),
+         q(0),
+         ],
+      q(ksr) => [
+         q(3606),
+         q(0),
+         ],
+      q(kss) => [
+         q(3607),
+         q(0),
+         ],
+      q(kst) => [
+         q(3608),
+         q(0),
+         ],
+      q(ksu) => [
+         q(3609),
+         q(0),
+         ],
+      q(ksv) => [
+         q(3610),
+         q(0),
+         ],
+      q(ksw) => [
+         q(3611),
+         q(0),
+         ],
+      q(ksx) => [
+         q(3612),
+         q(0),
+         ],
+      q(ksy) => [
+         q(3613),
+         q(0),
+         ],
+      q(ksz) => [
+         q(3614),
+         q(0),
+         ],
+      q(kta) => [
+         q(3615),
+         q(0),
+         ],
+      q(ktb) => [
+         q(3616),
+         q(0),
+         ],
+      q(ktc) => [
+         q(3617),
+         q(0),
+         ],
+      q(ktd) => [
+         q(3618),
+         q(0),
+         ],
+      q(kte) => [
+         q(3619),
+         q(0),
+         ],
+      q(ktf) => [
+         q(3620),
+         q(0),
+         ],
+      q(ktg) => [
+         q(3621),
+         q(0),
+         ],
+      q(kth) => [
+         q(3622),
+         q(0),
+         ],
+      q(kti) => [
+         q(3623),
+         q(0),
+         ],
+      q(ktj) => [
+         q(3624),
+         q(0),
+         ],
+      q(ktk) => [
+         q(3625),
+         q(0),
+         ],
+      q(ktl) => [
+         q(3626),
+         q(0),
+         ],
+      q(ktm) => [
+         q(3627),
+         q(0),
+         ],
+      q(ktn) => [
+         q(3628),
+         q(0),
+         ],
+      q(kto) => [
+         q(3629),
+         q(0),
+         ],
+      q(ktp) => [
+         q(3630),
+         q(0),
+         ],
+      q(ktq) => [
+         q(3631),
+         q(0),
+         ],
+      q(kts) => [
+         q(3632),
+         q(0),
+         ],
+      q(ktt) => [
+         q(3633),
+         q(0),
+         ],
+      q(ktu) => [
+         q(3634),
+         q(0),
+         ],
+      q(ktv) => [
+         q(3635),
+         q(0),
+         ],
+      q(ktw) => [
+         q(3636),
+         q(0),
+         ],
+      q(ktx) => [
+         q(3637),
+         q(0),
+         ],
+      q(kty) => [
+         q(3638),
+         q(0),
+         ],
+      q(ktz) => [
+         q(3639),
+         q(0),
+         ],
+      q(kua) => [
+         q(0239),
+         q(0),
+         ],
+      q(kub) => [
+         q(3640),
+         q(0),
+         ],
+      q(kuc) => [
+         q(3641),
+         q(0),
+         ],
+      q(kud) => [
+         q(3642),
+         q(0),
+         ],
+      q(kue) => [
+         q(3643),
+         q(0),
+         ],
+      q(kuf) => [
+         q(3644),
+         q(0),
+         ],
+      q(kug) => [
+         q(3645),
+         q(0),
+         ],
+      q(kuh) => [
+         q(3646),
+         q(0),
+         ],
+      q(kui) => [
+         q(3647),
+         q(0),
+         ],
+      q(kuj) => [
+         q(3648),
+         q(0),
+         ],
+      q(kuk) => [
+         q(3649),
+         q(0),
+         ],
+      q(kul) => [
+         q(3650),
+         q(0),
+         ],
+      q(kum) => [
+         q(0240),
+         q(0),
+         ],
+      q(kun) => [
+         q(3651),
+         q(0),
+         ],
+      q(kuo) => [
+         q(3652),
+         q(0),
+         ],
+      q(kup) => [
+         q(3653),
+         q(0),
+         ],
+      q(kuq) => [
+         q(3317),
+         q(0),
+         ],
+      q(kur) => [
+         q(0241),
+         q(0),
+         ],
+      q(kus) => [
+         q(3654),
+         q(0),
+         ],
+      q(kut) => [
+         q(0242),
+         q(0),
+         ],
+      q(kuu) => [
+         q(3655),
+         q(0),
+         ],
+      q(kuv) => [
+         q(3656),
+         q(0),
+         ],
+      q(kuw) => [
+         q(3657),
+         q(0),
+         ],
+      q(kux) => [
+         q(3658),
+         q(0),
+         ],
+      q(kuy) => [
+         q(3659),
+         q(0),
+         ],
+      q(kuz) => [
+         q(3660),
+         q(0),
+         ],
+      q(kva) => [
+         q(3661),
+         q(0),
+         ],
+      q(kvb) => [
+         q(3662),
+         q(0),
+         ],
+      q(kvc) => [
+         q(3663),
+         q(0),
+         ],
+      q(kvd) => [
+         q(3664),
+         q(0),
+         ],
+      q(kve) => [
+         q(3665),
+         q(0),
+         ],
+      q(kvf) => [
+         q(3666),
+         q(0),
+         ],
+      q(kvg) => [
+         q(3667),
+         q(0),
+         ],
+      q(kvh) => [
+         q(3668),
+         q(0),
+         ],
+      q(kvi) => [
+         q(3669),
+         q(0),
+         ],
+      q(kvj) => [
+         q(3670),
+         q(0),
+         ],
+      q(kvk) => [
+         q(3671),
+         q(0),
+         ],
+      q(kvl) => [
+         q(3672),
+         q(0),
+         ],
+      q(kvm) => [
+         q(3673),
+         q(0),
+         ],
+      q(kvn) => [
+         q(3674),
+         q(0),
+         ],
+      q(kvo) => [
+         q(3675),
+         q(0),
+         ],
+      q(kvp) => [
+         q(3676),
+         q(0),
+         ],
+      q(kvq) => [
+         q(3677),
+         q(0),
+         ],
+      q(kvr) => [
+         q(3678),
+         q(0),
+         ],
+      q(kvt) => [
+         q(3679),
+         q(0),
+         ],
+      q(kvu) => [
+         q(3680),
+         q(0),
+         ],
+      q(kvv) => [
+         q(3681),
+         q(0),
+         ],
+      q(kvw) => [
+         q(3682),
+         q(0),
+         ],
+      q(kvx) => [
+         q(3683),
+         q(0),
+         ],
+      q(kvy) => [
+         q(3684),
+         q(0),
+         ],
+      q(kvz) => [
+         q(3685),
+         q(0),
+         ],
+      q(kwa) => [
+         q(3686),
+         q(0),
+         ],
+      q(kwb) => [
+         q(3687),
+         q(0),
+         ],
+      q(kwc) => [
+         q(3688),
+         q(0),
+         ],
+      q(kwd) => [
+         q(3689),
+         q(0),
+         ],
+      q(kwe) => [
+         q(3690),
+         q(0),
+         ],
+      q(kwf) => [
+         q(3691),
+         q(0),
+         ],
+      q(kwg) => [
+         q(3692),
+         q(0),
+         ],
+      q(kwh) => [
+         q(3693),
+         q(0),
+         ],
+      q(kwi) => [
+         q(3694),
+         q(0),
+         ],
+      q(kwj) => [
+         q(3695),
+         q(0),
+         ],
+      q(kwk) => [
+         q(3696),
+         q(0),
+         ],
+      q(kwl) => [
+         q(3697),
+         q(0),
+         ],
+      q(kwm) => [
+         q(3698),
+         q(0),
+         ],
+      q(kwn) => [
+         q(3699),
+         q(0),
+         ],
+      q(kwo) => [
+         q(3700),
+         q(0),
+         ],
+      q(kwp) => [
+         q(3701),
+         q(0),
+         ],
+      q(kwr) => [
+         q(3702),
+         q(0),
+         ],
+      q(kws) => [
+         q(3703),
+         q(0),
+         ],
+      q(kwt) => [
+         q(3704),
+         q(0),
+         ],
+      q(kwu) => [
+         q(3705),
+         q(0),
+         ],
+      q(kwv) => [
+         q(3706),
+         q(0),
+         ],
+      q(kww) => [
+         q(3707),
+         q(0),
+         ],
+      q(kwx) => [
+         q(3708),
+         q(0),
+         ],
+      q(kwy) => [
+         q(3709),
+         q(0),
+         ],
+      q(kwz) => [
+         q(3710),
+         q(0),
+         ],
+      q(kxa) => [
+         q(3711),
+         q(0),
+         ],
+      q(kxb) => [
+         q(3712),
+         q(0),
+         ],
+      q(kxc) => [
+         q(3713),
+         q(0),
+         ],
+      q(kxd) => [
+         q(3714),
+         q(0),
+         ],
+      q(kxf) => [
+         q(3715),
+         q(0),
+         ],
+      q(kxh) => [
+         q(3716),
+         q(0),
+         ],
+      q(kxi) => [
+         q(3717),
+         q(0),
+         ],
+      q(kxj) => [
+         q(3718),
+         q(0),
+         ],
+      q(kxk) => [
+         q(3719),
+         q(0),
+         ],
+      q(kxl) => [
+         q(3720),
+         q(0),
+         ],
+      q(kxm) => [
+         q(3721),
+         q(0),
+         ],
+      q(kxn) => [
+         q(3722),
+         q(0),
+         ],
+      q(kxo) => [
+         q(3723),
+         q(0),
+         ],
+      q(kxp) => [
+         q(3724),
+         q(0),
+         ],
+      q(kxq) => [
+         q(3725),
+         q(0),
+         ],
+      q(kxr) => [
+         q(3726),
+         q(0),
+         ],
+      q(kxs) => [
+         q(3727),
+         q(0),
+         ],
+      q(kxt) => [
+         q(3728),
+         q(0),
+         ],
+      q(kxu) => [
+         q(3729),
+         q(0),
+         ],
+      q(kxv) => [
+         q(3730),
+         q(0),
+         ],
+      q(kxw) => [
+         q(3731),
+         q(0),
+         ],
+      q(kxx) => [
+         q(3732),
+         q(0),
+         ],
+      q(kxy) => [
+         q(3733),
+         q(0),
+         ],
+      q(kxz) => [
+         q(3734),
+         q(0),
+         ],
+      q(kya) => [
+         q(3735),
+         q(0),
+         ],
+      q(kyb) => [
+         q(3736),
+         q(0),
+         ],
+      q(kyc) => [
+         q(3737),
+         q(0),
+         ],
+      q(kyd) => [
+         q(3738),
+         q(0),
+         ],
+      q(kye) => [
+         q(3739),
+         q(0),
+         ],
+      q(kyf) => [
+         q(3740),
+         q(0),
+         ],
+      q(kyg) => [
+         q(3741),
+         q(0),
+         ],
+      q(kyh) => [
+         q(3742),
+         q(0),
+         ],
+      q(kyi) => [
+         q(3743),
+         q(0),
+         ],
+      q(kyj) => [
+         q(3744),
+         q(0),
+         ],
+      q(kyk) => [
+         q(3745),
+         q(0),
+         ],
+      q(kyl) => [
+         q(3746),
+         q(0),
+         ],
+      q(kym) => [
+         q(3747),
+         q(0),
+         ],
+      q(kyn) => [
+         q(3748),
+         q(0),
+         ],
+      q(kyo) => [
+         q(3749),
+         q(0),
+         ],
+      q(kyp) => [
+         q(3750),
+         q(0),
+         ],
+      q(kyq) => [
+         q(3751),
+         q(0),
+         ],
+      q(kyr) => [
+         q(3752),
+         q(0),
+         ],
+      q(kys) => [
+         q(3753),
+         q(0),
+         ],
+      q(kyt) => [
+         q(3754),
+         q(0),
+         ],
+      q(kyu) => [
+         q(3755),
+         q(0),
+         ],
+      q(kyv) => [
+         q(3756),
+         q(0),
+         ],
+      q(kyw) => [
+         q(3757),
+         q(0),
+         ],
+      q(kyx) => [
+         q(3758),
+         q(0),
+         ],
+      q(kyy) => [
+         q(3759),
+         q(0),
+         ],
+      q(kyz) => [
+         q(3760),
+         q(0),
+         ],
+      q(kza) => [
+         q(3761),
+         q(0),
+         ],
+      q(kzb) => [
+         q(3762),
+         q(0),
+         ],
+      q(kzc) => [
+         q(3763),
+         q(0),
+         ],
+      q(kzd) => [
+         q(3764),
+         q(0),
+         ],
+      q(kze) => [
+         q(3765),
+         q(0),
+         ],
+      q(kzf) => [
+         q(3766),
+         q(0),
+         ],
+      q(kzg) => [
+         q(3767),
+         q(0),
+         ],
+      q(kzi) => [
+         q(3768),
+         q(0),
+         ],
+      q(kzk) => [
+         q(3769),
+         q(0),
+         ],
+      q(kzl) => [
+         q(3770),
+         q(0),
+         ],
+      q(kzm) => [
+         q(3771),
+         q(0),
+         ],
+      q(kzn) => [
+         q(3772),
+         q(0),
+         ],
+      q(kzo) => [
+         q(3773),
+         q(0),
+         ],
+      q(kzp) => [
+         q(3774),
+         q(0),
+         ],
+      q(kzq) => [
+         q(3775),
+         q(0),
+         ],
+      q(kzr) => [
+         q(3776),
+         q(0),
+         ],
+      q(kzs) => [
+         q(3777),
+         q(0),
+         ],
+      q(kzu) => [
+         q(3778),
+         q(0),
+         ],
+      q(kzv) => [
+         q(3779),
+         q(0),
+         ],
+      q(kzw) => [
+         q(3780),
+         q(0),
+         ],
+      q(kzx) => [
+         q(3781),
+         q(0),
+         ],
+      q(kzy) => [
+         q(3782),
+         q(0),
+         ],
+      q(kzz) => [
+         q(3783),
+         q(0),
+         ],
+      q(laa) => [
+         q(3784),
+         q(0),
+         ],
+      q(lab) => [
+         q(3785),
+         q(0),
+         ],
+      q(lac) => [
+         q(3786),
+         q(0),
+         ],
+      q(lad) => [
+         q(0243),
+         q(0),
+         ],
+      q(lae) => [
+         q(3787),
+         q(0),
+         ],
+      q(laf) => [
+         q(3788),
+         q(0),
+         ],
+      q(lag) => [
+         q(3789),
+         q(0),
+         ],
+      q(lah) => [
+         q(0244),
+         q(0),
+         ],
+      q(lai) => [
+         q(3790),
+         q(0),
+         ],
+      q(laj) => [
+         q(3791),
+         q(0),
+         ],
+      q(lak) => [
+         q(3792),
+         q(0),
+         ],
+      q(lal) => [
+         q(3793),
+         q(0),
+         ],
+      q(lam) => [
+         q(0245),
+         q(0),
+         ],
+      q(lan) => [
+         q(3794),
+         q(0),
+         ],
+      q(lao) => [
+         q(0246),
+         q(0),
+         ],
+      q(lap) => [
+         q(3795),
+         q(0),
+         ],
+      q(laq) => [
+         q(3796),
+         q(0),
+         ],
+      q(lar) => [
+         q(3797),
+         q(0),
+         ],
+      q(las) => [
+         q(3798),
+         q(0),
+         ],
+      q(lat) => [
+         q(0247),
+         q(0),
+         ],
+      q(lau) => [
+         q(3799),
+         q(0),
+         ],
+      q(lav) => [
+         q(0248),
+         q(0),
+         ],
+      q(law) => [
+         q(3800),
+         q(0),
+         ],
+      q(lax) => [
+         q(3801),
+         q(0),
+         ],
+      q(lay) => [
+         q(3802),
+         q(0),
+         ],
+      q(laz) => [
+         q(3803),
+         q(0),
+         ],
+      q(lba) => [
+         q(3804),
+         q(0),
+         ],
+      q(lbb) => [
+         q(3805),
+         q(0),
+         ],
+      q(lbc) => [
+         q(3806),
+         q(0),
+         ],
+      q(lbe) => [
+         q(3807),
+         q(0),
+         ],
+      q(lbf) => [
+         q(3808),
+         q(0),
+         ],
+      q(lbg) => [
+         q(3809),
+         q(0),
+         ],
+      q(lbi) => [
+         q(3810),
+         q(0),
+         ],
+      q(lbj) => [
+         q(3811),
+         q(0),
+         ],
+      q(lbk) => [
+         q(3812),
+         q(0),
+         ],
+      q(lbl) => [
+         q(3813),
+         q(0),
+         ],
+      q(lbm) => [
+         q(3814),
+         q(0),
+         ],
+      q(lbn) => [
+         q(3815),
+         q(0),
+         ],
+      q(lbo) => [
+         q(3816),
+         q(0),
+         ],
+      q(lbq) => [
+         q(3817),
+         q(0),
+         ],
+      q(lbr) => [
+         q(3818),
+         q(0),
+         ],
+      q(lbs) => [
+         q(3819),
+         q(0),
+         ],
+      q(lbt) => [
+         q(3820),
+         q(0),
+         ],
+      q(lbu) => [
+         q(3821),
+         q(0),
+         ],
+      q(lbv) => [
+         q(3822),
+         q(0),
+         ],
+      q(lbw) => [
+         q(3823),
+         q(0),
+         ],
+      q(lbx) => [
+         q(3824),
+         q(0),
+         ],
+      q(lby) => [
+         q(3825),
+         q(0),
+         ],
+      q(lbz) => [
+         q(3826),
+         q(0),
+         ],
+      q(lcc) => [
+         q(3827),
+         q(0),
+         ],
+      q(lcd) => [
+         q(3828),
+         q(0),
+         ],
+      q(lce) => [
+         q(3829),
+         q(0),
+         ],
+      q(lcf) => [
+         q(3830),
+         q(0),
+         ],
+      q(lch) => [
+         q(3831),
+         q(0),
+         ],
+      q(lcl) => [
+         q(3832),
+         q(0),
+         ],
+      q(lcm) => [
+         q(3833),
+         q(0),
+         ],
+      q(lcp) => [
+         q(3834),
+         q(0),
+         ],
+      q(lcq) => [
+         q(3835),
+         q(0),
+         ],
+      q(lcs) => [
+         q(3836),
+         q(0),
+         ],
+      q(lda) => [
+         q(3837),
+         q(0),
+         ],
+      q(ldb) => [
+         q(3838),
+         q(0),
+         ],
+      q(ldd) => [
+         q(3839),
+         q(0),
+         ],
+      q(ldg) => [
+         q(3840),
+         q(0),
+         ],
+      q(ldh) => [
+         q(3841),
+         q(0),
+         ],
+      q(ldi) => [
+         q(3842),
+         q(0),
+         ],
+      q(ldj) => [
+         q(3843),
+         q(0),
+         ],
+      q(ldk) => [
+         q(3844),
+         q(0),
+         ],
+      q(ldl) => [
+         q(3845),
+         q(0),
+         ],
+      q(ldm) => [
+         q(3846),
+         q(0),
+         ],
+      q(ldn) => [
+         q(3847),
+         q(0),
+         ],
+      q(ldo) => [
+         q(3848),
+         q(0),
+         ],
+      q(ldp) => [
+         q(3849),
+         q(0),
+         ],
+      q(ldq) => [
+         q(3850),
+         q(0),
+         ],
+      q(lea) => [
+         q(3851),
+         q(0),
+         ],
+      q(leb) => [
+         q(3852),
+         q(0),
+         ],
+      q(lec) => [
+         q(3853),
+         q(0),
+         ],
+      q(led) => [
+         q(3854),
+         q(0),
+         ],
+      q(lee) => [
+         q(3855),
+         q(0),
+         ],
+      q(lef) => [
+         q(3856),
+         q(0),
+         ],
+      q(leh) => [
+         q(3857),
+         q(0),
+         ],
+      q(lei) => [
+         q(3858),
+         q(0),
+         ],
+      q(lej) => [
+         q(3859),
+         q(0),
+         ],
+      q(lek) => [
+         q(3860),
+         q(0),
+         ],
+      q(lel) => [
+         q(3861),
+         q(0),
+         ],
+      q(lem) => [
+         q(3862),
+         q(0),
+         ],
+      q(len) => [
+         q(3863),
+         q(0),
+         ],
+      q(leo) => [
+         q(3864),
+         q(0),
+         ],
+      q(lep) => [
+         q(3865),
+         q(0),
+         ],
+      q(leq) => [
+         q(3866),
+         q(0),
+         ],
+      q(ler) => [
+         q(3867),
+         q(0),
+         ],
+      q(les) => [
+         q(3868),
+         q(0),
+         ],
+      q(let) => [
+         q(3869),
+         q(0),
+         ],
+      q(leu) => [
+         q(3870),
+         q(0),
+         ],
+      q(lev) => [
+         q(3871),
+         q(0),
+         ],
+      q(lew) => [
+         q(3872),
+         q(0),
+         ],
+      q(lex) => [
+         q(3873),
+         q(0),
+         ],
+      q(ley) => [
+         q(3874),
+         q(0),
+         ],
+      q(lez) => [
+         q(0249),
+         q(0),
+         ],
+      q(lfa) => [
+         q(3875),
+         q(0),
+         ],
+      q(lfn) => [
+         q(3876),
+         q(0),
+         ],
+      q(lga) => [
+         q(3877),
+         q(0),
+         ],
+      q(lgb) => [
+         q(3878),
+         q(0),
+         ],
+      q(lgg) => [
+         q(3879),
+         q(0),
+         ],
+      q(lgh) => [
+         q(3880),
+         q(0),
+         ],
+      q(lgi) => [
+         q(3881),
+         q(0),
+         ],
+      q(lgk) => [
+         q(3882),
+         q(0),
+         ],
+      q(lgl) => [
+         q(3883),
+         q(0),
+         ],
+      q(lgm) => [
+         q(3884),
+         q(0),
+         ],
+      q(lgn) => [
+         q(3885),
+         q(0),
+         ],
+      q(lgq) => [
+         q(3886),
+         q(0),
+         ],
+      q(lgr) => [
+         q(3887),
+         q(0),
+         ],
+      q(lgt) => [
+         q(3888),
+         q(0),
+         ],
+      q(lgu) => [
+         q(3889),
+         q(0),
+         ],
+      q(lgz) => [
+         q(3890),
+         q(0),
+         ],
+      q(lha) => [
+         q(3891),
+         q(0),
+         ],
+      q(lhh) => [
+         q(3892),
+         q(0),
+         ],
+      q(lhi) => [
+         q(3893),
+         q(0),
+         ],
+      q(lhl) => [
+         q(3894),
+         q(0),
+         ],
+      q(lhm) => [
+         q(3895),
+         q(0),
+         ],
+      q(lhn) => [
+         q(3896),
+         q(0),
+         ],
+      q(lhp) => [
+         q(3897),
+         q(0),
+         ],
+      q(lhs) => [
+         q(3898),
+         q(0),
+         ],
+      q(lht) => [
+         q(3899),
+         q(0),
+         ],
+      q(lhu) => [
+         q(3900),
+         q(0),
+         ],
+      q(lia) => [
+         q(3901),
+         q(0),
+         ],
+      q(lib) => [
+         q(3902),
+         q(0),
+         ],
+      q(lic) => [
+         q(3903),
+         q(0),
+         ],
+      q(lid) => [
+         q(3904),
+         q(0),
+         ],
+      q(lie) => [
+         q(3905),
+         q(0),
+         ],
+      q(lif) => [
+         q(3906),
+         q(0),
+         ],
+      q(lig) => [
+         q(3907),
+         q(0),
+         ],
+      q(lih) => [
+         q(3908),
+         q(0),
+         ],
+      q(lij) => [
+         q(3909),
+         q(0),
+         ],
+      q(lik) => [
+         q(3910),
+         q(0),
+         ],
+      q(lil) => [
+         q(3911),
+         q(0),
+         ],
+      q(lim) => [
+         q(0250),
+         q(0),
+         ],
+      q(lin) => [
+         q(0251),
+         q(0),
+         ],
+      q(lio) => [
+         q(3912),
+         q(0),
+         ],
+      q(lip) => [
+         q(3913),
+         q(0),
+         ],
+      q(liq) => [
+         q(3914),
+         q(0),
+         ],
+      q(lir) => [
+         q(3915),
+         q(0),
+         ],
+      q(lis) => [
+         q(3916),
+         q(0),
+         ],
+      q(lit) => [
+         q(0252),
+         q(0),
+         ],
+      q(liu) => [
+         q(3917),
+         q(0),
+         ],
+      q(liv) => [
+         q(3918),
+         q(0),
+         ],
+      q(liw) => [
+         q(3919),
+         q(0),
+         ],
+      q(lix) => [
+         q(3920),
+         q(0),
+         ],
+      q(liy) => [
+         q(3921),
+         q(0),
+         ],
+      q(liz) => [
+         q(3922),
+         q(0),
+         ],
+      q(lja) => [
+         q(3923),
+         q(0),
+         ],
+      q(lje) => [
+         q(3924),
+         q(0),
+         ],
+      q(lji) => [
+         q(3925),
+         q(0),
+         ],
+      q(ljl) => [
+         q(3926),
+         q(0),
+         ],
+      q(ljp) => [
+         q(3927),
+         q(0),
+         ],
+      q(ljw) => [
+         q(3928),
+         q(0),
+         ],
+      q(ljx) => [
+         q(3929),
+         q(0),
+         ],
+      q(lka) => [
+         q(3930),
+         q(0),
+         ],
+      q(lkb) => [
+         q(3931),
+         q(0),
+         ],
+      q(lkc) => [
+         q(3932),
+         q(0),
+         ],
+      q(lkd) => [
+         q(3933),
+         q(0),
+         ],
+      q(lke) => [
+         q(3934),
+         q(0),
+         ],
+      q(lkh) => [
+         q(3935),
+         q(0),
+         ],
+      q(lki) => [
+         q(3936),
+         q(0),
+         ],
+      q(lkj) => [
+         q(3937),
+         q(0),
+         ],
+      q(lkl) => [
+         q(3938),
+         q(0),
+         ],
+      q(lkm) => [
+         q(3939),
+         q(0),
+         ],
+      q(lkn) => [
+         q(3940),
+         q(0),
+         ],
+      q(lko) => [
+         q(3941),
+         q(0),
+         ],
+      q(lkr) => [
+         q(3942),
+         q(0),
+         ],
+      q(lks) => [
+         q(3943),
+         q(0),
+         ],
+      q(lkt) => [
+         q(3944),
+         q(0),
+         ],
+      q(lku) => [
+         q(3945),
+         q(0),
+         ],
+      q(lky) => [
+         q(3946),
+         q(0),
+         ],
+      q(lla) => [
+         q(3947),
+         q(0),
+         ],
+      q(llb) => [
+         q(3948),
+         q(0),
+         ],
+      q(llc) => [
+         q(3949),
+         q(0),
+         ],
+      q(lld) => [
+         q(3950),
+         q(0),
+         ],
+      q(lle) => [
+         q(3951),
+         q(0),
+         ],
+      q(llf) => [
+         q(3952),
+         q(0),
+         ],
+      q(llg) => [
+         q(3953),
+         q(0),
+         ],
+      q(llh) => [
+         q(3954),
+         q(0),
+         ],
+      q(lli) => [
+         q(3955),
+         q(0),
+         ],
+      q(llj) => [
+         q(3956),
+         q(0),
+         ],
+      q(llk) => [
+         q(3957),
+         q(0),
+         ],
+      q(lll) => [
+         q(3958),
+         q(0),
+         ],
+      q(llm) => [
+         q(3959),
+         q(0),
+         ],
+      q(lln) => [
+         q(3960),
+         q(0),
+         ],
+      q(llo) => [
+         q(3961),
+         q(0),
+         ],
+      q(llp) => [
+         q(3962),
+         q(0),
+         ],
+      q(llq) => [
+         q(3963),
+         q(0),
+         ],
+      q(lls) => [
+         q(3964),
+         q(0),
+         ],
+      q(llu) => [
+         q(3965),
+         q(0),
+         ],
+      q(llx) => [
+         q(3966),
+         q(0),
+         ],
+      q(lma) => [
+         q(3967),
+         q(0),
+         ],
+      q(lmb) => [
+         q(3968),
+         q(0),
+         ],
+      q(lmc) => [
+         q(3969),
+         q(0),
+         ],
+      q(lmd) => [
+         q(3970),
+         q(0),
+         ],
+      q(lme) => [
+         q(3971),
+         q(0),
+         ],
+      q(lmf) => [
+         q(3972),
+         q(0),
+         ],
+      q(lmg) => [
+         q(3973),
+         q(0),
+         ],
+      q(lmh) => [
+         q(3974),
+         q(0),
+         ],
+      q(lmi) => [
+         q(3975),
+         q(0),
+         ],
+      q(lmj) => [
+         q(3976),
+         q(0),
+         ],
+      q(lmk) => [
+         q(3977),
+         q(0),
+         ],
+      q(lml) => [
+         q(3978),
+         q(0),
+         ],
+      q(lmn) => [
+         q(3979),
+         q(0),
+         ],
+      q(lmo) => [
+         q(3980),
+         q(0),
+         ],
+      q(lmp) => [
+         q(3981),
+         q(0),
+         ],
+      q(lmq) => [
+         q(3982),
+         q(0),
+         ],
+      q(lmr) => [
+         q(3983),
+         q(0),
+         ],
+      q(lmu) => [
+         q(3984),
+         q(0),
+         ],
+      q(lmv) => [
+         q(3985),
+         q(0),
+         ],
+      q(lmw) => [
+         q(3986),
+         q(0),
+         ],
+      q(lmx) => [
+         q(3987),
+         q(0),
+         ],
+      q(lmy) => [
+         q(3988),
+         q(0),
+         ],
+      q(lmz) => [
+         q(3989),
+         q(0),
+         ],
+      q(lna) => [
+         q(3990),
+         q(0),
+         ],
+      q(lnb) => [
+         q(3991),
+         q(0),
+         ],
+      q(lnd) => [
+         q(3992),
+         q(0),
+         ],
+      q(lng) => [
+         q(3993),
+         q(0),
+         ],
+      q(lnh) => [
+         q(3994),
+         q(0),
+         ],
+      q(lni) => [
+         q(3995),
+         q(0),
+         ],
+      q(lnj) => [
+         q(3996),
+         q(0),
+         ],
+      q(lnl) => [
+         q(3997),
+         q(0),
+         ],
+      q(lnm) => [
+         q(3998),
+         q(0),
+         ],
+      q(lnn) => [
+         q(3999),
+         q(0),
+         ],
+      q(lno) => [
+         q(4000),
+         q(0),
+         ],
+      q(lns) => [
+         q(4001),
+         q(0),
+         ],
+      q(lnu) => [
+         q(4002),
+         q(0),
+         ],
+      q(lnw) => [
+         q(4003),
+         q(0),
+         ],
+      q(lnz) => [
+         q(4004),
+         q(0),
+         ],
+      q(loa) => [
+         q(4005),
+         q(0),
+         ],
+      q(lob) => [
+         q(4006),
+         q(0),
+         ],
+      q(loc) => [
+         q(4007),
+         q(0),
+         ],
+      q(loe) => [
+         q(4008),
+         q(0),
+         ],
+      q(lof) => [
+         q(4009),
+         q(0),
+         ],
+      q(log) => [
+         q(4010),
+         q(0),
+         ],
+      q(loh) => [
+         q(4011),
+         q(0),
+         ],
+      q(loi) => [
+         q(4012),
+         q(0),
+         ],
+      q(loj) => [
+         q(4013),
+         q(0),
+         ],
+      q(lok) => [
+         q(4014),
+         q(0),
+         ],
+      q(lol) => [
+         q(0253),
+         q(0),
+         ],
+      q(lom) => [
+         q(4015),
+         q(0),
+         ],
+      q(lon) => [
+         q(4016),
+         q(0),
+         ],
+      q(loo) => [
+         q(4017),
+         q(0),
+         ],
+      q(lop) => [
+         q(4018),
+         q(0),
+         ],
+      q(loq) => [
+         q(4019),
+         q(0),
+         ],
+      q(lor) => [
+         q(4020),
+         q(0),
+         ],
+      q(los) => [
+         q(4021),
+         q(0),
+         ],
+      q(lot) => [
+         q(4022),
+         q(0),
+         ],
+      q(lou) => [
+         q(4023),
+         q(0),
+         ],
+      q(lov) => [
+         q(4024),
+         q(0),
+         ],
+      q(low) => [
+         q(4025),
+         q(0),
+         ],
+      q(lox) => [
+         q(4026),
+         q(0),
+         ],
+      q(loy) => [
+         q(4027),
+         q(0),
+         ],
+      q(loz) => [
+         q(0254),
+         q(0),
+         ],
+      q(lpa) => [
+         q(4028),
+         q(0),
+         ],
+      q(lpe) => [
+         q(4029),
+         q(0),
+         ],
+      q(lpn) => [
+         q(4030),
+         q(0),
+         ],
+      q(lpo) => [
+         q(4031),
+         q(0),
+         ],
+      q(lpx) => [
+         q(4032),
+         q(0),
+         ],
+      q(lra) => [
+         q(4033),
+         q(0),
+         ],
+      q(lrc) => [
+         q(4034),
+         q(0),
+         ],
+      q(lre) => [
+         q(4035),
+         q(0),
+         ],
+      q(lrg) => [
+         q(4036),
+         q(0),
+         ],
+      q(lri) => [
+         q(4037),
+         q(0),
+         ],
+      q(lrk) => [
+         q(4038),
+         q(0),
+         ],
+      q(lrl) => [
+         q(4039),
+         q(0),
+         ],
+      q(lrm) => [
+         q(4040),
+         q(0),
+         ],
+      q(lrn) => [
+         q(4041),
+         q(0),
+         ],
+      q(lro) => [
+         q(4042),
+         q(0),
+         ],
+      q(lrr) => [
+         q(4043),
+         q(0),
+         ],
+      q(lrt) => [
+         q(4044),
+         q(0),
+         ],
+      q(lrv) => [
+         q(4045),
+         q(0),
+         ],
+      q(lrz) => [
+         q(4046),
+         q(0),
+         ],
+      q(lsa) => [
+         q(4047),
+         q(0),
+         ],
+      q(lsd) => [
+         q(4048),
+         q(0),
+         ],
+      q(lse) => [
+         q(4049),
+         q(0),
+         ],
+      q(lsg) => [
+         q(4050),
+         q(0),
+         ],
+      q(lsh) => [
+         q(4051),
+         q(0),
+         ],
+      q(lsi) => [
+         q(4052),
+         q(0),
+         ],
+      q(lsl) => [
+         q(4053),
+         q(0),
+         ],
+      q(lsm) => [
+         q(4054),
+         q(0),
+         ],
+      q(lso) => [
+         q(4055),
+         q(0),
+         ],
+      q(lsp) => [
+         q(4056),
+         q(0),
+         ],
+      q(lsr) => [
+         q(4057),
+         q(0),
+         ],
+      q(lss) => [
+         q(4058),
+         q(0),
+         ],
+      q(lst) => [
+         q(4059),
+         q(0),
+         ],
+      q(lsy) => [
+         q(4060),
+         q(0),
+         ],
+      q(ltc) => [
+         q(4061),
+         q(0),
+         ],
+      q(ltg) => [
+         q(4062),
+         q(0),
+         ],
+      q(lth) => [
+         q(4063),
+         q(0),
+         ],
+      q(lti) => [
+         q(4064),
+         q(0),
+         ],
+      q(ltn) => [
+         q(4065),
+         q(0),
+         ],
+      q(lto) => [
+         q(4066),
+         q(0),
+         ],
+      q(lts) => [
+         q(4067),
+         q(0),
+         ],
+      q(ltu) => [
+         q(4068),
+         q(0),
+         ],
+      q(ltz) => [
+         q(0255),
+         q(0),
+         ],
+      q(lua) => [
+         q(0256),
+         q(0),
+         ],
+      q(lub) => [
+         q(0257),
+         q(0),
+         ],
+      q(luc) => [
+         q(4069),
+         q(0),
+         ],
+      q(lud) => [
+         q(4070),
+         q(0),
+         ],
+      q(lue) => [
+         q(4071),
+         q(0),
+         ],
+      q(luf) => [
+         q(4072),
+         q(0),
+         ],
+      q(lug) => [
+         q(0258),
+         q(0),
+         ],
+      q(lui) => [
+         q(0259),
+         q(0),
+         ],
+      q(luj) => [
+         q(4073),
+         q(0),
+         ],
+      q(luk) => [
+         q(4074),
+         q(0),
+         ],
+      q(lul) => [
+         q(4075),
+         q(0),
+         ],
+      q(lum) => [
+         q(4076),
+         q(0),
+         ],
+      q(lun) => [
+         q(0260),
+         q(0),
+         ],
+      q(luo) => [
+         q(0261),
+         q(0),
+         ],
+      q(lup) => [
+         q(4077),
+         q(0),
+         ],
+      q(luq) => [
+         q(4078),
+         q(0),
+         ],
+      q(lur) => [
+         q(4079),
+         q(0),
+         ],
+      q(lus) => [
+         q(0262),
+         q(0),
+         ],
+      q(lut) => [
+         q(4080),
+         q(0),
+         ],
+      q(luu) => [
+         q(4081),
+         q(0),
+         ],
+      q(luv) => [
+         q(4082),
+         q(0),
+         ],
+      q(luw) => [
+         q(4083),
+         q(0),
+         ],
+      q(luy) => [
+         q(4084),
+         q(0),
+         ],
+      q(luz) => [
+         q(4085),
+         q(0),
+         ],
+      q(lva) => [
+         q(4086),
+         q(0),
+         ],
+      q(lvk) => [
+         q(4087),
+         q(0),
+         ],
+      q(lvs) => [
+         q(4088),
+         q(0),
+         ],
+      q(lvu) => [
+         q(4089),
+         q(0),
+         ],
+      q(lwa) => [
+         q(4090),
+         q(0),
+         ],
+      q(lwe) => [
+         q(4091),
+         q(0),
+         ],
+      q(lwg) => [
+         q(4092),
+         q(0),
+         ],
+      q(lwh) => [
+         q(4093),
+         q(0),
+         ],
+      q(lwl) => [
+         q(4094),
+         q(0),
+         ],
+      q(lwm) => [
+         q(4095),
+         q(0),
+         ],
+      q(lwo) => [
+         q(4096),
+         q(0),
+         ],
+      q(lwt) => [
+         q(4097),
+         q(0),
+         ],
+      q(lwu) => [
+         q(4098),
+         q(0),
+         ],
+      q(lww) => [
+         q(4099),
+         q(0),
+         ],
+      q(lya) => [
+         q(4100),
+         q(0),
+         ],
+      q(lyg) => [
+         q(4101),
+         q(0),
+         ],
+      q(lyn) => [
+         q(4102),
+         q(0),
+         ],
+      q(lzh) => [
+         q(4103),
+         q(0),
+         ],
+      q(lzl) => [
+         q(4104),
+         q(0),
+         ],
+      q(lzn) => [
+         q(4105),
+         q(0),
+         ],
+      q(lzz) => [
+         q(4106),
+         q(0),
+         ],
+      q(maa) => [
+         q(4107),
+         q(0),
+         ],
+      q(mab) => [
+         q(4108),
+         q(0),
+         ],
+      q(mac) => [
+         q(0263),
+         q(0),
+         ],
+      q(mad) => [
+         q(0264),
+         q(0),
+         ],
+      q(mae) => [
+         q(4109),
+         q(0),
+         ],
+      q(maf) => [
+         q(4110),
+         q(0),
+         ],
+      q(mag) => [
+         q(0265),
+         q(0),
+         ],
+      q(mah) => [
+         q(0266),
+         q(0),
+         ],
+      q(mai) => [
+         q(0267),
+         q(0),
+         ],
+      q(maj) => [
+         q(4111),
+         q(0),
+         ],
+      q(mak) => [
+         q(0268),
+         q(0),
+         ],
+      q(mal) => [
+         q(0269),
+         q(0),
+         ],
+      q(mam) => [
+         q(4112),
+         q(0),
+         ],
+      q(man) => [
+         q(0270),
+         q(0),
+         ],
+      q(mao) => [
+         q(0271),
+         q(0),
+         ],
+      q(map) => [
+         q(0272),
+         q(0),
+         ],
+      q(maq) => [
+         q(4113),
+         q(0),
+         ],
+      q(mar) => [
+         q(0273),
+         q(0),
+         ],
+      q(mas) => [
+         q(0274),
+         q(0),
+         ],
+      q(mat) => [
+         q(4114),
+         q(0),
+         ],
+      q(mau) => [
+         q(4115),
+         q(0),
+         ],
+      q(mav) => [
+         q(4116),
+         q(0),
+         ],
+      q(maw) => [
+         q(4117),
+         q(0),
+         ],
+      q(max) => [
+         q(4118),
+         q(0),
+         ],
+      q(may) => [
+         q(0275),
+         q(0),
+         ],
+      q(maz) => [
+         q(4119),
+         q(0),
+         ],
+      q(mba) => [
+         q(4120),
+         q(0),
+         ],
+      q(mbb) => [
+         q(4121),
+         q(0),
+         ],
+      q(mbc) => [
+         q(4122),
+         q(0),
+         ],
+      q(mbd) => [
+         q(4123),
+         q(0),
+         ],
+      q(mbe) => [
+         q(4124),
+         q(0),
+         ],
+      q(mbf) => [
+         q(4125),
+         q(0),
+         ],
+      q(mbh) => [
+         q(4126),
+         q(0),
+         ],
+      q(mbi) => [
+         q(4127),
+         q(0),
+         ],
+      q(mbj) => [
+         q(4128),
+         q(0),
+         ],
+      q(mbk) => [
+         q(4129),
+         q(0),
+         ],
+      q(mbl) => [
+         q(4130),
+         q(0),
+         ],
+      q(mbm) => [
+         q(4131),
+         q(0),
+         ],
+      q(mbn) => [
+         q(4132),
+         q(0),
+         ],
+      q(mbo) => [
+         q(4133),
+         q(0),
+         ],
+      q(mbp) => [
+         q(4134),
+         q(0),
+         ],
+      q(mbq) => [
+         q(4135),
+         q(0),
+         ],
+      q(mbr) => [
+         q(4136),
+         q(0),
+         ],
+      q(mbs) => [
+         q(4137),
+         q(0),
+         ],
+      q(mbt) => [
+         q(4138),
+         q(0),
+         ],
+      q(mbu) => [
+         q(4139),
+         q(0),
+         ],
+      q(mbv) => [
+         q(4140),
+         q(0),
+         ],
+      q(mbw) => [
+         q(4141),
+         q(0),
+         ],
+      q(mbx) => [
+         q(4142),
+         q(0),
+         ],
+      q(mby) => [
+         q(4143),
+         q(0),
+         ],
+      q(mbz) => [
+         q(4144),
+         q(0),
+         ],
+      q(mca) => [
+         q(4145),
+         q(0),
+         ],
+      q(mcb) => [
+         q(4146),
+         q(0),
+         ],
+      q(mcc) => [
+         q(4147),
+         q(0),
+         ],
+      q(mcd) => [
+         q(4148),
+         q(0),
+         ],
+      q(mce) => [
+         q(4149),
+         q(0),
+         ],
+      q(mcf) => [
+         q(4150),
+         q(0),
+         ],
+      q(mcg) => [
+         q(4151),
+         q(0),
+         ],
+      q(mch) => [
+         q(4152),
+         q(0),
+         ],
+      q(mci) => [
+         q(4153),
+         q(0),
+         ],
+      q(mcj) => [
+         q(4154),
+         q(0),
+         ],
+      q(mck) => [
+         q(4155),
+         q(0),
+         ],
+      q(mcl) => [
+         q(4156),
+         q(0),
+         ],
+      q(mcm) => [
+         q(4157),
+         q(0),
+         ],
+      q(mcn) => [
+         q(4158),
+         q(0),
+         ],
+      q(mco) => [
+         q(4159),
+         q(0),
+         ],
+      q(mcp) => [
+         q(4160),
+         q(0),
+         ],
+      q(mcq) => [
+         q(4161),
+         q(0),
+         ],
+      q(mcr) => [
+         q(4162),
+         q(0),
+         ],
+      q(mcs) => [
+         q(4163),
+         q(0),
+         ],
+      q(mct) => [
+         q(4164),
+         q(0),
+         ],
+      q(mcu) => [
+         q(4165),
+         q(0),
+         ],
+      q(mcv) => [
+         q(4166),
+         q(0),
+         ],
+      q(mcw) => [
+         q(4167),
+         q(0),
+         ],
+      q(mcx) => [
+         q(4168),
+         q(0),
+         ],
+      q(mcy) => [
+         q(4169),
+         q(0),
+         ],
+      q(mcz) => [
+         q(4170),
+         q(0),
+         ],
+      q(mda) => [
+         q(4171),
+         q(0),
+         ],
+      q(mdb) => [
+         q(4172),
+         q(0),
+         ],
+      q(mdc) => [
+         q(4173),
+         q(0),
+         ],
+      q(mdd) => [
+         q(4174),
+         q(0),
+         ],
+      q(mde) => [
+         q(4175),
+         q(0),
+         ],
+      q(mdf) => [
+         q(0276),
+         q(0),
+         ],
+      q(mdg) => [
+         q(4176),
+         q(0),
+         ],
+      q(mdh) => [
+         q(4177),
+         q(0),
+         ],
+      q(mdi) => [
+         q(4178),
+         q(0),
+         ],
+      q(mdj) => [
+         q(4179),
+         q(0),
+         ],
+      q(mdk) => [
+         q(4180),
+         q(0),
+         ],
+      q(mdl) => [
+         q(4181),
+         q(0),
+         ],
+      q(mdm) => [
+         q(4182),
+         q(0),
+         ],
+      q(mdn) => [
+         q(4183),
+         q(0),
+         ],
+      q(mdp) => [
+         q(4184),
+         q(0),
+         ],
+      q(mdq) => [
+         q(4185),
+         q(0),
+         ],
+      q(mdr) => [
+         q(0277),
+         q(0),
+         ],
+      q(mds) => [
+         q(4186),
+         q(0),
+         ],
+      q(mdt) => [
+         q(4187),
+         q(0),
+         ],
+      q(mdu) => [
+         q(4188),
+         q(0),
+         ],
+      q(mdv) => [
+         q(4189),
+         q(0),
+         ],
+      q(mdw) => [
+         q(4190),
+         q(0),
+         ],
+      q(mdx) => [
+         q(4191),
+         q(0),
+         ],
+      q(mdy) => [
+         q(4192),
+         q(0),
+         ],
+      q(mdz) => [
+         q(4193),
+         q(0),
+         ],
+      q(mea) => [
+         q(4194),
+         q(0),
+         ],
+      q(meb) => [
+         q(4195),
+         q(0),
+         ],
+      q(mec) => [
+         q(4196),
+         q(0),
+         ],
+      q(med) => [
+         q(4197),
+         q(0),
+         ],
+      q(mee) => [
+         q(4198),
+         q(0),
+         ],
+      q(mef) => [
+         q(4199),
+         q(0),
+         ],
+      q(meh) => [
+         q(4200),
+         q(0),
+         ],
+      q(mei) => [
+         q(4201),
+         q(0),
+         ],
+      q(mej) => [
+         q(4202),
+         q(0),
+         ],
+      q(mek) => [
+         q(4203),
+         q(0),
+         ],
+      q(mel) => [
+         q(4204),
+         q(0),
+         ],
+      q(mem) => [
+         q(4205),
+         q(0),
+         ],
+      q(men) => [
+         q(0278),
+         q(1),
+         ],
+      q(meo) => [
+         q(4206),
+         q(0),
+         ],
+      q(mep) => [
+         q(4207),
+         q(0),
+         ],
+      q(meq) => [
+         q(4208),
+         q(0),
+         ],
+      q(mer) => [
+         q(4209),
+         q(0),
+         ],
+      q(mes) => [
+         q(4210),
+         q(0),
+         ],
+      q(met) => [
+         q(4211),
+         q(0),
+         ],
+      q(meu) => [
+         q(4212),
+         q(0),
+         ],
+      q(mev) => [
+         q(4213),
+         q(0),
+         ],
+      q(mew) => [
+         q(4214),
+         q(0),
+         ],
+      q(mey) => [
+         q(4215),
+         q(0),
+         ],
+      q(mez) => [
+         q(4216),
+         q(0),
+         ],
+      q(mfa) => [
+         q(4217),
+         q(0),
+         ],
+      q(mfb) => [
+         q(4218),
+         q(0),
+         ],
+      q(mfc) => [
+         q(4219),
+         q(0),
+         ],
+      q(mfd) => [
+         q(4220),
+         q(0),
+         ],
+      q(mfe) => [
+         q(4221),
+         q(0),
+         ],
+      q(mff) => [
+         q(4222),
+         q(0),
+         ],
+      q(mfg) => [
+         q(4223),
+         q(0),
+         ],
+      q(mfh) => [
+         q(4224),
+         q(0),
+         ],
+      q(mfi) => [
+         q(4225),
+         q(0),
+         ],
+      q(mfj) => [
+         q(4226),
+         q(0),
+         ],
+      q(mfk) => [
+         q(4227),
+         q(0),
+         ],
+      q(mfl) => [
+         q(4228),
+         q(0),
+         ],
+      q(mfm) => [
+         q(4229),
+         q(0),
+         ],
+      q(mfn) => [
+         q(4230),
+         q(0),
+         ],
+      q(mfo) => [
+         q(4231),
+         q(0),
+         ],
+      q(mfp) => [
+         q(4232),
+         q(0),
+         ],
+      q(mfq) => [
+         q(4233),
+         q(0),
+         ],
+      q(mfr) => [
+         q(4234),
+         q(0),
+         ],
+      q(mfs) => [
+         q(4235),
+         q(0),
+         ],
+      q(mft) => [
+         q(4236),
+         q(0),
+         ],
+      q(mfu) => [
+         q(4237),
+         q(0),
+         ],
+      q(mfv) => [
+         q(4238),
+         q(0),
+         ],
+      q(mfw) => [
+         q(4239),
+         q(0),
+         ],
+      q(mfx) => [
+         q(4240),
+         q(0),
+         ],
+      q(mfy) => [
+         q(4241),
+         q(0),
+         ],
+      q(mfz) => [
+         q(4242),
+         q(0),
+         ],
+      q(mga) => [
+         q(0279),
+         q(1),
+         ],
+      q(mgb) => [
+         q(4243),
+         q(0),
+         ],
+      q(mgc) => [
+         q(4244),
+         q(0),
+         ],
+      q(mgd) => [
+         q(4245),
+         q(0),
+         ],
+      q(mge) => [
+         q(4246),
+         q(0),
+         ],
+      q(mgf) => [
+         q(4247),
+         q(0),
+         ],
+      q(mgg) => [
+         q(4248),
+         q(0),
+         ],
+      q(mgh) => [
+         q(4249),
+         q(0),
+         ],
+      q(mgi) => [
+         q(4250),
+         q(0),
+         ],
+      q(mgj) => [
+         q(4251),
+         q(0),
+         ],
+      q(mgk) => [
+         q(4252),
+         q(0),
+         ],
+      q(mgl) => [
+         q(4253),
+         q(0),
+         ],
+      q(mgm) => [
+         q(4254),
+         q(0),
+         ],
+      q(mgn) => [
+         q(4255),
+         q(0),
+         ],
+      q(mgo) => [
+         q(4256),
+         q(0),
+         ],
+      q(mgp) => [
+         q(4257),
+         q(0),
+         ],
+      q(mgq) => [
+         q(4258),
+         q(0),
+         ],
+      q(mgr) => [
+         q(4259),
+         q(0),
+         ],
+      q(mgs) => [
+         q(4260),
+         q(0),
+         ],
+      q(mgt) => [
+         q(4261),
+         q(0),
+         ],
+      q(mgu) => [
+         q(4262),
+         q(0),
+         ],
+      q(mgv) => [
+         q(4263),
+         q(0),
+         ],
+      q(mgw) => [
+         q(4264),
+         q(0),
+         ],
+      q(mgy) => [
+         q(4265),
+         q(0),
+         ],
+      q(mgz) => [
+         q(4266),
+         q(0),
+         ],
+      q(mha) => [
+         q(4267),
+         q(0),
+         ],
+      q(mhb) => [
+         q(4268),
+         q(0),
+         ],
+      q(mhc) => [
+         q(4269),
+         q(0),
+         ],
+      q(mhd) => [
+         q(4270),
+         q(0),
+         ],
+      q(mhe) => [
+         q(4271),
+         q(0),
+         ],
+      q(mhf) => [
+         q(4272),
+         q(0),
+         ],
+      q(mhg) => [
+         q(4273),
+         q(0),
+         ],
+      q(mhi) => [
+         q(4274),
+         q(0),
+         ],
+      q(mhj) => [
+         q(4275),
+         q(0),
+         ],
+      q(mhk) => [
+         q(4276),
+         q(0),
+         ],
+      q(mhl) => [
+         q(4277),
+         q(0),
+         ],
+      q(mhm) => [
+         q(4278),
+         q(0),
+         ],
+      q(mhn) => [
+         q(4279),
+         q(0),
+         ],
+      q(mho) => [
+         q(4280),
+         q(0),
+         ],
+      q(mhp) => [
+         q(4281),
+         q(0),
+         ],
+      q(mhq) => [
+         q(4282),
+         q(0),
+         ],
+      q(mhr) => [
+         q(4283),
+         q(0),
+         ],
+      q(mhs) => [
+         q(4284),
+         q(0),
+         ],
+      q(mht) => [
+         q(4285),
+         q(0),
+         ],
+      q(mhu) => [
+         q(4286),
+         q(0),
+         ],
+      q(mhw) => [
+         q(4287),
+         q(0),
+         ],
+      q(mhx) => [
+         q(4288),
+         q(0),
+         ],
+      q(mhy) => [
+         q(4289),
+         q(0),
+         ],
+      q(mhz) => [
+         q(4290),
+         q(0),
+         ],
+      q(mia) => [
+         q(4291),
+         q(0),
+         ],
+      q(mib) => [
+         q(4292),
+         q(0),
+         ],
+      q(mic) => [
+         q(0280),
+         q(0),
+         ],
+      q(mid) => [
+         q(4293),
+         q(0),
+         ],
+      q(mie) => [
+         q(4294),
+         q(0),
+         ],
+      q(mif) => [
+         q(4295),
+         q(0),
+         ],
+      q(mig) => [
+         q(4296),
+         q(0),
+         ],
+      q(mih) => [
+         q(4297),
+         q(0),
+         ],
+      q(mii) => [
+         q(4298),
+         q(0),
+         ],
+      q(mij) => [
+         q(4299),
+         q(0),
+         ],
+      q(mik) => [
+         q(4300),
+         q(0),
+         ],
+      q(mil) => [
+         q(4301),
+         q(0),
+         ],
+      q(mim) => [
+         q(4302),
+         q(0),
+         ],
+      q(min) => [
+         q(0281),
+         q(0),
+         ],
+      q(mio) => [
+         q(4303),
+         q(0),
+         ],
+      q(mip) => [
+         q(4304),
+         q(0),
+         ],
+      q(miq) => [
+         q(4305),
+         q(0),
+         ],
+      q(mir) => [
+         q(4306),
+         q(0),
+         ],
+      q(mis) => [
+         q(0282),
+         q(0),
+         ],
+      q(mit) => [
+         q(4307),
+         q(0),
+         ],
+      q(miu) => [
+         q(4308),
+         q(0),
+         ],
+      q(miw) => [
+         q(4309),
+         q(0),
+         ],
+      q(mix) => [
+         q(4310),
+         q(0),
+         ],
+      q(miy) => [
+         q(4311),
+         q(0),
+         ],
+      q(miz) => [
+         q(4312),
+         q(0),
+         ],
+      q(mjb) => [
+         q(4313),
+         q(0),
+         ],
+      q(mjc) => [
+         q(4314),
+         q(0),
+         ],
+      q(mjd) => [
+         q(4315),
+         q(0),
+         ],
+      q(mje) => [
+         q(4316),
+         q(0),
+         ],
+      q(mjg) => [
+         q(4317),
+         q(0),
+         ],
+      q(mjh) => [
+         q(4318),
+         q(0),
+         ],
+      q(mji) => [
+         q(4319),
+         q(0),
+         ],
+      q(mjj) => [
+         q(4320),
+         q(0),
+         ],
+      q(mjk) => [
+         q(4321),
+         q(0),
+         ],
+      q(mjl) => [
+         q(4322),
+         q(0),
+         ],
+      q(mjm) => [
+         q(4323),
+         q(0),
+         ],
+      q(mjn) => [
+         q(4324),
+         q(0),
+         ],
+      q(mjo) => [
+         q(4325),
+         q(0),
+         ],
+      q(mjp) => [
+         q(4326),
+         q(0),
+         ],
+      q(mjq) => [
+         q(4327),
+         q(0),
+         ],
+      q(mjr) => [
+         q(4328),
+         q(0),
+         ],
+      q(mjs) => [
+         q(4329),
+         q(0),
+         ],
+      q(mjt) => [
+         q(4330),
+         q(0),
+         ],
+      q(mju) => [
+         q(4331),
+         q(0),
+         ],
+      q(mjv) => [
+         q(4332),
+         q(0),
+         ],
+      q(mjw) => [
+         q(4333),
+         q(0),
+         ],
+      q(mjx) => [
+         q(4334),
+         q(0),
+         ],
+      q(mjy) => [
+         q(4335),
+         q(0),
+         ],
+      q(mjz) => [
+         q(4336),
+         q(0),
+         ],
+      q(mka) => [
+         q(4337),
+         q(0),
+         ],
+      q(mkb) => [
+         q(4338),
+         q(0),
+         ],
+      q(mkc) => [
+         q(4339),
+         q(0),
+         ],
+      q(mke) => [
+         q(4340),
+         q(0),
+         ],
+      q(mkf) => [
+         q(4341),
+         q(0),
+         ],
+      q(mkg) => [
+         q(4342),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0283),
+         q(0),
+         ],
+      q(mki) => [
+         q(4343),
+         q(0),
+         ],
+      q(mkj) => [
+         q(4344),
+         q(0),
+         ],
+      q(mkk) => [
+         q(4345),
+         q(0),
+         ],
+      q(mkl) => [
+         q(4346),
+         q(0),
+         ],
+      q(mkm) => [
+         q(4347),
+         q(0),
+         ],
+      q(mkn) => [
+         q(4348),
+         q(0),
+         ],
+      q(mko) => [
+         q(4349),
+         q(0),
+         ],
+      q(mkp) => [
+         q(4350),
+         q(0),
+         ],
+      q(mkq) => [
+         q(4351),
+         q(0),
+         ],
+      q(mkr) => [
+         q(4352),
+         q(0),
+         ],
+      q(mks) => [
+         q(4353),
+         q(0),
+         ],
+      q(mkt) => [
+         q(4354),
+         q(0),
+         ],
+      q(mku) => [
+         q(4355),
+         q(0),
+         ],
+      q(mkv) => [
+         q(4356),
+         q(0),
+         ],
+      q(mkw) => [
+         q(4357),
+         q(0),
+         ],
+      q(mkx) => [
+         q(4358),
+         q(0),
+         ],
+      q(mky) => [
+         q(4359),
+         q(0),
+         ],
+      q(mkz) => [
+         q(4360),
+         q(0),
+         ],
+      q(mla) => [
+         q(4361),
+         q(0),
+         ],
+      q(mlb) => [
+         q(4362),
+         q(0),
+         ],
+      q(mlc) => [
+         q(4363),
+         q(0),
+         ],
+      q(mle) => [
+         q(4364),
+         q(0),
+         ],
+      q(mlf) => [
+         q(4365),
+         q(0),
+         ],
+      q(mlg) => [
+         q(0284),
+         q(0),
+         ],
+      q(mlh) => [
+         q(4366),
+         q(0),
+         ],
+      q(mli) => [
+         q(4367),
+         q(0),
+         ],
+      q(mlj) => [
+         q(4368),
+         q(0),
+         ],
+      q(mlk) => [
+         q(4369),
+         q(0),
+         ],
+      q(mll) => [
+         q(4370),
+         q(0),
+         ],
+      q(mlm) => [
+         q(4371),
+         q(0),
+         ],
+      q(mln) => [
+         q(4372),
+         q(0),
+         ],
+      q(mlo) => [
+         q(4373),
+         q(0),
+         ],
+      q(mlp) => [
+         q(4374),
+         q(0),
+         ],
+      q(mlq) => [
+         q(4375),
+         q(0),
+         ],
+      q(mlr) => [
+         q(4376),
+         q(0),
+         ],
+      q(mls) => [
+         q(4377),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0285),
+         q(0),
+         ],
+      q(mlu) => [
+         q(4378),
+         q(0),
+         ],
+      q(mlv) => [
+         q(4379),
+         q(0),
+         ],
+      q(mlw) => [
+         q(4380),
+         q(0),
+         ],
+      q(mlx) => [
+         q(4381),
+         q(0),
+         ],
+      q(mlz) => [
+         q(4382),
+         q(0),
+         ],
+      q(mma) => [
+         q(4383),
+         q(0),
+         ],
+      q(mmb) => [
+         q(4384),
+         q(0),
+         ],
+      q(mmc) => [
+         q(4385),
+         q(0),
+         ],
+      q(mmd) => [
+         q(4386),
+         q(0),
+         ],
+      q(mme) => [
+         q(4387),
+         q(0),
+         ],
+      q(mmf) => [
+         q(4388),
+         q(0),
+         ],
+      q(mmg) => [
+         q(4389),
+         q(0),
+         ],
+      q(mmh) => [
+         q(4390),
+         q(0),
+         ],
+      q(mmi) => [
+         q(4391),
+         q(0),
+         ],
+      q(mmj) => [
+         q(4392),
+         q(0),
+         ],
+      q(mmk) => [
+         q(4393),
+         q(0),
+         ],
+      q(mml) => [
+         q(4394),
+         q(0),
+         ],
+      q(mmm) => [
+         q(4395),
+         q(0),
+         ],
+      q(mmn) => [
+         q(4396),
+         q(0),
+         ],
+      q(mmo) => [
+         q(4397),
+         q(0),
+         ],
+      q(mmp) => [
+         q(4398),
+         q(0),
+         ],
+      q(mmq) => [
+         q(4399),
+         q(0),
+         ],
+      q(mmr) => [
+         q(4400),
+         q(0),
+         ],
+      q(mmt) => [
+         q(4401),
+         q(0),
+         ],
+      q(mmu) => [
+         q(4402),
+         q(0),
+         ],
+      q(mmv) => [
+         q(4403),
+         q(0),
+         ],
+      q(mmw) => [
+         q(4404),
+         q(0),
+         ],
+      q(mmx) => [
+         q(4405),
+         q(0),
+         ],
+      q(mmy) => [
+         q(4406),
+         q(0),
+         ],
+      q(mmz) => [
+         q(4407),
+         q(0),
+         ],
+      q(mna) => [
+         q(4408),
+         q(0),
+         ],
+      q(mnb) => [
+         q(4409),
+         q(0),
+         ],
+      q(mnc) => [
+         q(0286),
+         q(0),
+         ],
+      q(mnd) => [
+         q(4410),
+         q(0),
+         ],
+      q(mne) => [
+         q(4411),
+         q(0),
+         ],
+      q(mnf) => [
+         q(4412),
+         q(0),
+         ],
+      q(mng) => [
+         q(4413),
+         q(0),
+         ],
+      q(mnh) => [
+         q(4414),
+         q(0),
+         ],
+      q(mni) => [
+         q(0287),
+         q(0),
+         ],
+      q(mnj) => [
+         q(4415),
+         q(0),
+         ],
+      q(mnk) => [
+         q(4416),
+         q(0),
+         ],
+      q(mnl) => [
+         q(4417),
+         q(0),
+         ],
+      q(mnm) => [
+         q(4418),
+         q(0),
+         ],
+      q(mnn) => [
+         q(4419),
+         q(0),
+         ],
+      q(mno) => [
+         q(0288),
+         q(0),
+         ],
+      q(mnp) => [
+         q(4420),
+         q(0),
+         ],
+      q(mnq) => [
+         q(4421),
+         q(0),
+         ],
+      q(mnr) => [
+         q(4422),
+         q(0),
+         ],
+      q(mns) => [
+         q(4423),
+         q(0),
+         ],
+      q(mnu) => [
+         q(4424),
+         q(0),
+         ],
+      q(mnv) => [
+         q(4425),
+         q(0),
+         ],
+      q(mnw) => [
+         q(4426),
+         q(0),
+         ],
+      q(mnx) => [
+         q(4427),
+         q(0),
+         ],
+      q(mny) => [
+         q(4428),
+         q(0),
+         ],
+      q(mnz) => [
+         q(4429),
+         q(0),
+         ],
+      q(moa) => [
+         q(4430),
+         q(0),
+         ],
+      q(moc) => [
+         q(4431),
+         q(0),
+         ],
+      q(mod) => [
+         q(4432),
+         q(0),
+         ],
+      q(moe) => [
+         q(4433),
+         q(0),
+         ],
+      q(mog) => [
+         q(4434),
+         q(0),
+         ],
+      q(moh) => [
+         q(0289),
+         q(0),
+         ],
+      q(moi) => [
+         q(4435),
+         q(0),
+         ],
+      q(moj) => [
+         q(4436),
+         q(0),
+         ],
+      q(mok) => [
+         q(4437),
+         q(0),
+         ],
+      q(mom) => [
+         q(4438),
+         q(0),
+         ],
+      q(mon) => [
+         q(0290),
+         q(0),
+         ],
+      q(moo) => [
+         q(4439),
+         q(0),
+         ],
+      q(mop) => [
+         q(4440),
+         q(0),
+         ],
+      q(moq) => [
+         q(4441),
+         q(0),
+         ],
+      q(mor) => [
+         q(4442),
+         q(0),
+         ],
+      q(mos) => [
+         q(0291),
+         q(0),
+         ],
+      q(mot) => [
+         q(1137),
+         q(0),
+         ],
+      q(mou) => [
+         q(4443),
+         q(0),
+         ],
+      q(mov) => [
+         q(4444),
+         q(0),
+         ],
+      q(mow) => [
+         q(4445),
+         q(0),
+         ],
+      q(mox) => [
+         q(4446),
+         q(0),
+         ],
+      q(moy) => [
+         q(4447),
+         q(0),
+         ],
+      q(moz) => [
+         q(4448),
+         q(0),
+         ],
+      q(mpa) => [
+         q(4449),
+         q(0),
+         ],
+      q(mpb) => [
+         q(4450),
+         q(0),
+         ],
+      q(mpc) => [
+         q(4451),
+         q(0),
+         ],
+      q(mpd) => [
+         q(4452),
+         q(0),
+         ],
+      q(mpe) => [
+         q(4453),
+         q(0),
+         ],
+      q(mpg) => [
+         q(4454),
+         q(0),
+         ],
+      q(mph) => [
+         q(4455),
+         q(0),
+         ],
+      q(mpi) => [
+         q(4456),
+         q(0),
+         ],
+      q(mpj) => [
+         q(4457),
+         q(0),
+         ],
+      q(mpk) => [
+         q(4458),
+         q(0),
+         ],
+      q(mpl) => [
+         q(4459),
+         q(0),
+         ],
+      q(mpm) => [
+         q(4460),
+         q(0),
+         ],
+      q(mpn) => [
+         q(4461),
+         q(0),
+         ],
+      q(mpo) => [
+         q(4462),
+         q(0),
+         ],
+      q(mpp) => [
+         q(4463),
+         q(0),
+         ],
+      q(mpq) => [
+         q(4464),
+         q(0),
+         ],
+      q(mpr) => [
+         q(4465),
+         q(0),
+         ],
+      q(mps) => [
+         q(4466),
+         q(0),
+         ],
+      q(mpt) => [
+         q(4467),
+         q(0),
+         ],
+      q(mpu) => [
+         q(4468),
+         q(0),
+         ],
+      q(mpv) => [
+         q(4469),
+         q(0),
+         ],
+      q(mpw) => [
+         q(4470),
+         q(0),
+         ],
+      q(mpx) => [
+         q(4471),
+         q(0),
+         ],
+      q(mpy) => [
+         q(4472),
+         q(0),
+         ],
+      q(mpz) => [
+         q(4473),
+         q(0),
+         ],
+      q(mqa) => [
+         q(4474),
+         q(0),
+         ],
+      q(mqb) => [
+         q(4475),
+         q(0),
+         ],
+      q(mqc) => [
+         q(4476),
+         q(0),
+         ],
+      q(mqe) => [
+         q(4477),
+         q(0),
+         ],
+      q(mqf) => [
+         q(4478),
+         q(0),
+         ],
+      q(mqg) => [
+         q(4479),
+         q(0),
+         ],
+      q(mqh) => [
+         q(4480),
+         q(0),
+         ],
+      q(mqi) => [
+         q(4481),
+         q(0),
+         ],
+      q(mqj) => [
+         q(4482),
+         q(0),
+         ],
+      q(mqk) => [
+         q(4483),
+         q(0),
+         ],
+      q(mql) => [
+         q(4484),
+         q(0),
+         ],
+      q(mqm) => [
+         q(4485),
+         q(0),
+         ],
+      q(mqn) => [
+         q(4486),
+         q(0),
+         ],
+      q(mqo) => [
+         q(4487),
+         q(0),
+         ],
+      q(mqp) => [
+         q(4488),
+         q(0),
+         ],
+      q(mqq) => [
+         q(4489),
+         q(0),
+         ],
+      q(mqr) => [
+         q(4490),
+         q(0),
+         ],
+      q(mqs) => [
+         q(4491),
+         q(0),
+         ],
+      q(mqt) => [
+         q(4492),
+         q(0),
+         ],
+      q(mqu) => [
+         q(4493),
+         q(0),
+         ],
+      q(mqv) => [
+         q(4494),
+         q(0),
+         ],
+      q(mqw) => [
+         q(4495),
+         q(0),
+         ],
+      q(mqx) => [
+         q(4496),
+         q(0),
+         ],
+      q(mqy) => [
+         q(4497),
+         q(0),
+         ],
+      q(mqz) => [
+         q(4498),
+         q(0),
+         ],
+      q(mra) => [
+         q(4499),
+         q(0),
+         ],
+      q(mrb) => [
+         q(4500),
+         q(0),
+         ],
+      q(mrc) => [
+         q(4501),
+         q(0),
+         ],
+      q(mrd) => [
+         q(4502),
+         q(0),
+         ],
+      q(mre) => [
+         q(4503),
+         q(0),
+         ],
+      q(mrf) => [
+         q(4504),
+         q(0),
+         ],
+      q(mrg) => [
+         q(4505),
+         q(0),
+         ],
+      q(mrh) => [
+         q(4506),
+         q(0),
+         ],
+      q(mrj) => [
+         q(4507),
+         q(0),
+         ],
+      q(mrk) => [
+         q(4508),
+         q(0),
+         ],
+      q(mrl) => [
+         q(4509),
+         q(0),
+         ],
+      q(mrm) => [
+         q(4510),
+         q(0),
+         ],
+      q(mrn) => [
+         q(4511),
+         q(0),
+         ],
+      q(mro) => [
+         q(4512),
+         q(0),
+         ],
+      q(mrp) => [
+         q(4513),
+         q(0),
+         ],
+      q(mrq) => [
+         q(4514),
+         q(0),
+         ],
+      q(mrr) => [
+         q(4515),
+         q(0),
+         ],
+      q(mrs) => [
+         q(4516),
+         q(0),
+         ],
+      q(mrt) => [
+         q(4517),
+         q(0),
+         ],
+      q(mru) => [
+         q(4518),
+         q(0),
+         ],
+      q(mrv) => [
+         q(4519),
+         q(0),
+         ],
+      q(mrw) => [
+         q(4520),
+         q(0),
+         ],
+      q(mrx) => [
+         q(4521),
+         q(0),
+         ],
+      q(mry) => [
+         q(4522),
+         q(0),
+         ],
+      q(mrz) => [
+         q(4523),
+         q(0),
+         ],
+      q(msb) => [
+         q(4524),
+         q(0),
+         ],
+      q(msc) => [
+         q(4525),
+         q(0),
+         ],
+      q(msd) => [
+         q(4526),
+         q(0),
+         ],
+      q(mse) => [
+         q(4527),
+         q(0),
+         ],
+      q(msf) => [
+         q(4528),
+         q(0),
+         ],
+      q(msg) => [
+         q(4529),
+         q(0),
+         ],
+      q(msh) => [
+         q(4530),
+         q(0),
+         ],
+      q(msi) => [
+         q(4531),
+         q(0),
+         ],
+      q(msj) => [
+         q(4532),
+         q(0),
+         ],
+      q(msk) => [
+         q(4533),
+         q(0),
+         ],
+      q(msl) => [
+         q(4534),
+         q(0),
+         ],
+      q(msm) => [
+         q(4535),
+         q(0),
+         ],
+      q(msn) => [
+         q(4536),
+         q(0),
+         ],
+      q(mso) => [
+         q(4537),
+         q(0),
+         ],
+      q(msp) => [
+         q(4538),
+         q(0),
+         ],
+      q(msq) => [
+         q(4539),
+         q(0),
+         ],
+      q(msr) => [
+         q(4540),
+         q(0),
+         ],
+      q(mss) => [
+         q(4541),
+         q(0),
+         ],
+      q(msu) => [
+         q(4542),
+         q(0),
+         ],
+      q(msv) => [
+         q(4543),
+         q(0),
+         ],
+      q(msw) => [
+         q(4544),
+         q(0),
+         ],
+      q(msx) => [
+         q(4545),
+         q(0),
+         ],
+      q(msy) => [
+         q(4546),
+         q(0),
+         ],
+      q(msz) => [
+         q(4547),
+         q(0),
+         ],
+      q(mta) => [
+         q(4548),
+         q(0),
+         ],
+      q(mtb) => [
+         q(4549),
+         q(0),
+         ],
+      q(mtc) => [
+         q(4550),
+         q(0),
+         ],
+      q(mtd) => [
+         q(4551),
+         q(0),
+         ],
+      q(mte) => [
+         q(4552),
+         q(0),
+         ],
+      q(mtf) => [
+         q(4553),
+         q(0),
+         ],
+      q(mtg) => [
+         q(4554),
+         q(0),
+         ],
+      q(mth) => [
+         q(4555),
+         q(0),
+         ],
+      q(mti) => [
+         q(4556),
+         q(0),
+         ],
+      q(mtj) => [
+         q(4557),
+         q(0),
+         ],
+      q(mtk) => [
+         q(4558),
+         q(0),
+         ],
+      q(mtl) => [
+         q(4559),
+         q(0),
+         ],
+      q(mtm) => [
+         q(4560),
+         q(0),
+         ],
+      q(mtn) => [
+         q(4561),
+         q(0),
+         ],
+      q(mto) => [
+         q(4562),
+         q(0),
+         ],
+      q(mtp) => [
+         q(4563),
+         q(0),
+         ],
+      q(mtq) => [
+         q(4564),
+         q(0),
+         ],
+      q(mtr) => [
+         q(4565),
+         q(0),
+         ],
+      q(mts) => [
+         q(4566),
+         q(0),
+         ],
+      q(mtt) => [
+         q(4567),
+         q(0),
+         ],
+      q(mtu) => [
+         q(4568),
+         q(0),
+         ],
+      q(mtv) => [
+         q(4569),
+         q(0),
+         ],
+      q(mtw) => [
+         q(4570),
+         q(0),
+         ],
+      q(mtx) => [
+         q(4571),
+         q(0),
+         ],
+      q(mty) => [
+         q(4572),
+         q(0),
+         ],
+      q(mua) => [
+         q(4573),
+         q(0),
+         ],
+      q(mub) => [
+         q(4574),
+         q(0),
+         ],
+      q(muc) => [
+         q(4575),
+         q(0),
+         ],
+      q(mud) => [
+         q(4576),
+         q(0),
+         ],
+      q(mue) => [
+         q(4577),
+         q(0),
+         ],
+      q(mug) => [
+         q(4578),
+         q(0),
+         ],
+      q(muh) => [
+         q(4579),
+         q(0),
+         ],
+      q(mui) => [
+         q(4580),
+         q(0),
+         ],
+      q(muj) => [
+         q(4581),
+         q(0),
+         ],
+      q(muk) => [
+         q(4582),
+         q(0),
+         ],
+      q(mul) => [
+         q(0292),
+         q(0),
+         ],
+      q(mum) => [
+         q(4583),
+         q(0),
+         ],
+      q(mun) => [
+         q(0293),
+         q(0),
+         ],
+      q(muo) => [
+         q(4584),
+         q(0),
+         ],
+      q(mup) => [
+         q(4585),
+         q(0),
+         ],
+      q(muq) => [
+         q(4586),
+         q(0),
+         ],
+      q(mur) => [
+         q(4587),
+         q(0),
+         ],
+      q(mus) => [
+         q(0294),
+         q(0),
+         ],
+      q(mut) => [
+         q(4588),
+         q(0),
+         ],
+      q(muu) => [
+         q(4589),
+         q(0),
+         ],
+      q(muv) => [
+         q(4590),
+         q(0),
+         ],
+      q(mux) => [
+         q(4591),
+         q(0),
+         ],
+      q(muy) => [
+         q(4592),
+         q(0),
+         ],
+      q(muz) => [
+         q(4593),
+         q(0),
+         ],
+      q(mva) => [
+         q(4594),
+         q(0),
+         ],
+      q(mvb) => [
+         q(4595),
+         q(0),
+         ],
+      q(mvd) => [
+         q(4596),
+         q(0),
+         ],
+      q(mve) => [
+         q(4597),
+         q(0),
+         ],
+      q(mvf) => [
+         q(4598),
+         q(0),
+         ],
+      q(mvg) => [
+         q(4599),
+         q(0),
+         ],
+      q(mvh) => [
+         q(4600),
+         q(0),
+         ],
+      q(mvi) => [
+         q(4601),
+         q(0),
+         ],
+      q(mvk) => [
+         q(4602),
+         q(0),
+         ],
+      q(mvl) => [
+         q(4603),
+         q(0),
+         ],
+      q(mvm) => [
+         q(4604),
+         q(0),
+         ],
+      q(mvn) => [
+         q(4605),
+         q(0),
+         ],
+      q(mvo) => [
+         q(4606),
+         q(0),
+         ],
+      q(mvp) => [
+         q(4607),
+         q(0),
+         ],
+      q(mvq) => [
+         q(4608),
+         q(0),
+         ],
+      q(mvr) => [
+         q(4609),
+         q(0),
+         ],
+      q(mvs) => [
+         q(4610),
+         q(0),
+         ],
+      q(mvt) => [
+         q(4611),
+         q(0),
+         ],
+      q(mvu) => [
+         q(4612),
+         q(0),
+         ],
+      q(mvv) => [
+         q(4613),
+         q(0),
+         ],
+      q(mvw) => [
+         q(4614),
+         q(0),
+         ],
+      q(mvx) => [
+         q(4615),
+         q(0),
+         ],
+      q(mvy) => [
+         q(4616),
+         q(0),
+         ],
+      q(mvz) => [
+         q(4617),
+         q(0),
+         ],
+      q(mwa) => [
+         q(4618),
+         q(0),
+         ],
+      q(mwb) => [
+         q(4619),
+         q(0),
+         ],
+      q(mwc) => [
+         q(4620),
+         q(0),
+         ],
+      q(mwe) => [
+         q(4621),
+         q(0),
+         ],
+      q(mwf) => [
+         q(4622),
+         q(0),
+         ],
+      q(mwg) => [
+         q(4623),
+         q(0),
+         ],
+      q(mwh) => [
+         q(4624),
+         q(0),
+         ],
+      q(mwi) => [
+         q(4625),
+         q(0),
+         ],
+      q(mwk) => [
+         q(4626),
+         q(0),
+         ],
+      q(mwl) => [
+         q(0295),
+         q(0),
+         ],
+      q(mwm) => [
+         q(4627),
+         q(0),
+         ],
+      q(mwn) => [
+         q(4628),
+         q(0),
+         ],
+      q(mwo) => [
+         q(4629),
+         q(0),
+         ],
+      q(mwp) => [
+         q(4630),
+         q(0),
+         ],
+      q(mwq) => [
+         q(4631),
+         q(0),
+         ],
+      q(mwr) => [
+         q(0296),
+         q(0),
+         ],
+      q(mws) => [
+         q(4632),
+         q(0),
+         ],
+      q(mwt) => [
+         q(4633),
+         q(0),
+         ],
+      q(mwu) => [
+         q(4634),
+         q(0),
+         ],
+      q(mwv) => [
+         q(4635),
+         q(0),
+         ],
+      q(mww) => [
+         q(4636),
+         q(0),
+         ],
+      q(mwx) => [
+         q(4637),
+         q(0),
+         ],
+      q(mwy) => [
+         q(4638),
+         q(0),
+         ],
+      q(mwz) => [
+         q(4639),
+         q(0),
+         ],
+      q(mxa) => [
+         q(4640),
+         q(0),
+         ],
+      q(mxb) => [
+         q(4641),
+         q(0),
+         ],
+      q(mxc) => [
+         q(4642),
+         q(0),
+         ],
+      q(mxd) => [
+         q(4643),
+         q(0),
+         ],
+      q(mxe) => [
+         q(4644),
+         q(0),
+         ],
+      q(mxf) => [
+         q(4645),
+         q(0),
+         ],
+      q(mxg) => [
+         q(4646),
+         q(0),
+         ],
+      q(mxh) => [
+         q(4647),
+         q(0),
+         ],
+      q(mxi) => [
+         q(4648),
+         q(0),
+         ],
+      q(mxj) => [
+         q(4649),
+         q(0),
+         ],
+      q(mxk) => [
+         q(4650),
+         q(0),
+         ],
+      q(mxl) => [
+         q(4651),
+         q(0),
+         ],
+      q(mxm) => [
+         q(4652),
+         q(0),
+         ],
+      q(mxn) => [
+         q(4653),
+         q(0),
+         ],
+      q(mxo) => [
+         q(4654),
+         q(0),
+         ],
+      q(mxp) => [
+         q(4655),
+         q(0),
+         ],
+      q(mxq) => [
+         q(4656),
+         q(0),
+         ],
+      q(mxr) => [
+         q(4657),
+         q(0),
+         ],
+      q(mxs) => [
+         q(4658),
+         q(0),
+         ],
+      q(mxt) => [
+         q(4659),
+         q(0),
+         ],
+      q(mxu) => [
+         q(4660),
+         q(0),
+         ],
+      q(mxv) => [
+         q(4661),
+         q(0),
+         ],
+      q(mxw) => [
+         q(4662),
+         q(0),
+         ],
+      q(mxx) => [
+         q(4663),
+         q(0),
+         ],
+      q(mxy) => [
+         q(4664),
+         q(0),
+         ],
+      q(mxz) => [
+         q(4665),
+         q(0),
+         ],
+      q(myb) => [
+         q(4666),
+         q(0),
+         ],
+      q(myc) => [
+         q(4667),
+         q(0),
+         ],
+      q(myd) => [
+         q(4668),
+         q(0),
+         ],
+      q(mye) => [
+         q(4669),
+         q(0),
+         ],
+      q(myf) => [
+         q(4670),
+         q(0),
+         ],
+      q(myg) => [
+         q(4671),
+         q(0),
+         ],
+      q(myh) => [
+         q(4672),
+         q(0),
+         ],
+      q(myi) => [
+         q(4673),
+         q(0),
+         ],
+      q(myj) => [
+         q(4674),
+         q(0),
+         ],
+      q(myk) => [
+         q(4675),
+         q(0),
+         ],
+      q(myl) => [
+         q(4676),
+         q(0),
+         ],
+      q(mym) => [
+         q(4677),
+         q(0),
+         ],
+      q(myn) => [
+         q(0297),
+         q(0),
+         ],
+      q(myo) => [
+         q(4678),
+         q(0),
+         ],
+      q(myp) => [
+         q(4679),
+         q(0),
+         ],
+      q(myr) => [
+         q(4680),
+         q(0),
+         ],
+      q(mys) => [
+         q(4681),
+         q(0),
+         ],
+      q(myu) => [
+         q(4682),
+         q(0),
+         ],
+      q(myv) => [
+         q(0298),
+         q(0),
+         ],
+      q(myw) => [
+         q(4683),
+         q(0),
+         ],
+      q(myx) => [
+         q(4684),
+         q(0),
+         ],
+      q(myy) => [
+         q(4685),
+         q(0),
+         ],
+      q(myz) => [
+         q(4686),
+         q(0),
+         ],
+      q(mza) => [
+         q(4687),
+         q(0),
+         ],
+      q(mzb) => [
+         q(4688),
+         q(0),
+         ],
+      q(mzc) => [
+         q(4689),
+         q(0),
+         ],
+      q(mzd) => [
+         q(4690),
+         q(0),
+         ],
+      q(mze) => [
+         q(4691),
+         q(0),
+         ],
+      q(mzg) => [
+         q(4692),
+         q(0),
+         ],
+      q(mzh) => [
+         q(4693),
+         q(0),
+         ],
+      q(mzi) => [
+         q(4694),
+         q(0),
+         ],
+      q(mzj) => [
+         q(4695),
+         q(0),
+         ],
+      q(mzk) => [
+         q(4696),
+         q(0),
+         ],
+      q(mzl) => [
+         q(4697),
+         q(0),
+         ],
+      q(mzm) => [
+         q(4698),
+         q(0),
+         ],
+      q(mzn) => [
+         q(4699),
+         q(0),
+         ],
+      q(mzo) => [
+         q(4700),
+         q(0),
+         ],
+      q(mzp) => [
+         q(4701),
+         q(0),
+         ],
+      q(mzq) => [
+         q(4702),
+         q(0),
+         ],
+      q(mzr) => [
+         q(4703),
+         q(0),
+         ],
+      q(mzs) => [
+         q(4704),
+         q(0),
+         ],
+      q(mzt) => [
+         q(4705),
+         q(0),
+         ],
+      q(mzu) => [
+         q(4706),
+         q(0),
+         ],
+      q(mzv) => [
+         q(4707),
+         q(0),
+         ],
+      q(mzw) => [
+         q(4708),
+         q(0),
+         ],
+      q(mzx) => [
+         q(4709),
+         q(0),
+         ],
+      q(mzy) => [
+         q(4710),
+         q(0),
+         ],
+      q(mzz) => [
+         q(4711),
+         q(0),
+         ],
+      q(naa) => [
+         q(4712),
+         q(0),
+         ],
+      q(nab) => [
+         q(4713),
+         q(0),
+         ],
+      q(nac) => [
+         q(4714),
+         q(0),
+         ],
+      q(nae) => [
+         q(4715),
+         q(0),
+         ],
+      q(naf) => [
+         q(4716),
+         q(0),
+         ],
+      q(nag) => [
+         q(4717),
+         q(0),
+         ],
+      q(nah) => [
+         q(0299),
+         q(0),
+         ],
+      q(nai) => [
+         q(0300),
+         q(0),
+         ],
+      q(naj) => [
+         q(4718),
+         q(0),
+         ],
+      q(nak) => [
+         q(4719),
+         q(0),
+         ],
+      q(nal) => [
+         q(4720),
+         q(0),
+         ],
+      q(nam) => [
+         q(4721),
+         q(0),
+         ],
+      q(nan) => [
+         q(4722),
+         q(0),
+         ],
+      q(nao) => [
+         q(4723),
+         q(0),
+         ],
+      q(nap) => [
+         q(0301),
+         q(0),
+         ],
+      q(naq) => [
+         q(4724),
+         q(0),
+         ],
+      q(nar) => [
+         q(4725),
+         q(0),
+         ],
+      q(nas) => [
+         q(4726),
+         q(0),
+         ],
+      q(nat) => [
+         q(4727),
+         q(0),
+         ],
+      q(nau) => [
+         q(0302),
+         q(0),
+         ],
+      q(nav) => [
+         q(0303),
+         q(0),
+         ],
+      q(naw) => [
+         q(4728),
+         q(0),
+         ],
+      q(nax) => [
+         q(4729),
+         q(0),
+         ],
+      q(nay) => [
+         q(4730),
+         q(0),
+         ],
+      q(naz) => [
+         q(4731),
+         q(0),
+         ],
+      q(nba) => [
+         q(4732),
+         q(0),
+         ],
+      q(nbb) => [
+         q(4733),
+         q(0),
+         ],
+      q(nbc) => [
+         q(4734),
+         q(0),
+         ],
+      q(nbd) => [
+         q(4735),
+         q(0),
+         ],
+      q(nbe) => [
+         q(4736),
+         q(0),
+         ],
+      q(nbg) => [
+         q(4737),
+         q(0),
+         ],
+      q(nbh) => [
+         q(4738),
+         q(0),
+         ],
+      q(nbi) => [
+         q(4739),
+         q(0),
+         ],
+      q(nbj) => [
+         q(4740),
+         q(0),
+         ],
+      q(nbk) => [
+         q(4741),
+         q(0),
+         ],
+      q(nbl) => [
+         q(0304),
+         q(0),
+         ],
+      q(nbm) => [
+         q(4742),
+         q(0),
+         ],
+      q(nbn) => [
+         q(4743),
+         q(0),
+         ],
+      q(nbo) => [
+         q(4744),
+         q(0),
+         ],
+      q(nbp) => [
+         q(4745),
+         q(0),
+         ],
+      q(nbq) => [
+         q(4746),
+         q(0),
+         ],
+      q(nbr) => [
+         q(4747),
+         q(0),
+         ],
+      q(nbs) => [
+         q(4748),
+         q(0),
+         ],
+      q(nbt) => [
+         q(4749),
+         q(0),
+         ],
+      q(nbu) => [
+         q(4750),
+         q(0),
+         ],
+      q(nbv) => [
+         q(4751),
+         q(0),
+         ],
+      q(nbw) => [
+         q(4752),
+         q(0),
+         ],
+      q(nby) => [
+         q(4753),
+         q(0),
+         ],
+      q(nca) => [
+         q(4754),
+         q(0),
+         ],
+      q(ncb) => [
+         q(4755),
+         q(0),
+         ],
+      q(ncc) => [
+         q(4756),
+         q(0),
+         ],
+      q(ncd) => [
+         q(4757),
+         q(0),
+         ],
+      q(nce) => [
+         q(4758),
+         q(0),
+         ],
+      q(ncf) => [
+         q(4759),
+         q(0),
+         ],
+      q(ncg) => [
+         q(4760),
+         q(0),
+         ],
+      q(nch) => [
+         q(4761),
+         q(0),
+         ],
+      q(nci) => [
+         q(4762),
+         q(0),
+         ],
+      q(ncj) => [
+         q(4763),
+         q(0),
+         ],
+      q(nck) => [
+         q(4764),
+         q(0),
+         ],
+      q(ncl) => [
+         q(4765),
+         q(0),
+         ],
+      q(ncm) => [
+         q(4766),
+         q(0),
+         ],
+      q(ncn) => [
+         q(4767),
+         q(0),
+         ],
+      q(nco) => [
+         q(4768),
+         q(0),
+         ],
+      q(ncp) => [
+         q(4769),
+         q(0),
+         ],
+      q(ncq) => [
+         q(4770),
+         q(0),
+         ],
+      q(ncr) => [
+         q(4771),
+         q(0),
+         ],
+      q(ncs) => [
+         q(4772),
+         q(0),
+         ],
+      q(nct) => [
+         q(4773),
+         q(0),
+         ],
+      q(ncu) => [
+         q(4774),
+         q(0),
+         ],
+      q(ncx) => [
+         q(4775),
+         q(0),
+         ],
+      q(ncz) => [
+         q(4776),
+         q(0),
+         ],
+      q(nda) => [
+         q(4777),
+         q(0),
+         ],
+      q(ndb) => [
+         q(4778),
+         q(0),
+         ],
+      q(ndc) => [
+         q(4779),
+         q(0),
+         ],
+      q(ndd) => [
+         q(4780),
+         q(0),
+         ],
+      q(nde) => [
+         q(0305),
+         q(0),
+         ],
+      q(ndf) => [
+         q(4781),
+         q(0),
+         ],
+      q(ndg) => [
+         q(4782),
+         q(0),
+         ],
+      q(ndh) => [
+         q(4783),
+         q(0),
+         ],
+      q(ndi) => [
+         q(4784),
+         q(0),
+         ],
+      q(ndj) => [
+         q(4785),
+         q(0),
+         ],
+      q(ndk) => [
+         q(4786),
+         q(0),
+         ],
+      q(ndl) => [
+         q(4787),
+         q(0),
+         ],
+      q(ndm) => [
+         q(4788),
+         q(0),
+         ],
+      q(ndn) => [
+         q(4789),
+         q(0),
+         ],
+      q(ndo) => [
+         q(0306),
+         q(0),
+         ],
+      q(ndp) => [
+         q(4790),
+         q(0),
+         ],
+      q(ndq) => [
+         q(4791),
+         q(0),
+         ],
+      q(ndr) => [
+         q(4792),
+         q(0),
+         ],
+      q(nds) => [
+         q(0307),
+         q(0),
+         ],
+      q(ndt) => [
+         q(4793),
+         q(0),
+         ],
+      q(ndu) => [
+         q(4794),
+         q(0),
+         ],
+      q(ndv) => [
+         q(4795),
+         q(0),
+         ],
+      q(ndw) => [
+         q(4796),
+         q(0),
+         ],
+      q(ndx) => [
+         q(4797),
+         q(0),
+         ],
+      q(ndy) => [
+         q(4798),
+         q(0),
+         ],
+      q(ndz) => [
+         q(4799),
+         q(0),
+         ],
+      q(nea) => [
+         q(4800),
+         q(0),
+         ],
+      q(neb) => [
+         q(4801),
+         q(0),
+         ],
+      q(nec) => [
+         q(4802),
+         q(0),
+         ],
+      q(ned) => [
+         q(4803),
+         q(0),
+         ],
+      q(nee) => [
+         q(4804),
+         q(0),
+         ],
+      q(nef) => [
+         q(4805),
+         q(0),
+         ],
+      q(neg) => [
+         q(4806),
+         q(0),
+         ],
+      q(neh) => [
+         q(4807),
+         q(0),
+         ],
+      q(nei) => [
+         q(4808),
+         q(0),
+         ],
+      q(nej) => [
+         q(4809),
+         q(0),
+         ],
+      q(nek) => [
+         q(4810),
+         q(0),
+         ],
+      q(nem) => [
+         q(4811),
+         q(0),
+         ],
+      q(nen) => [
+         q(4812),
+         q(0),
+         ],
+      q(neo) => [
+         q(4813),
+         q(0),
+         ],
+      q(nep) => [
+         q(0308),
+         q(0),
+         ],
+      q(neq) => [
+         q(4814),
+         q(0),
+         ],
+      q(ner) => [
+         q(4815),
+         q(0),
+         ],
+      q(nes) => [
+         q(4816),
+         q(0),
+         ],
+      q(net) => [
+         q(4817),
+         q(0),
+         ],
+      q(neu) => [
+         q(4818),
+         q(0),
+         ],
+      q(nev) => [
+         q(4819),
+         q(0),
+         ],
+      q(new) => [
+         q(0309),
+         q(1),
+         ],
+      q(nex) => [
+         q(4820),
+         q(0),
+         ],
+      q(ney) => [
+         q(4821),
+         q(0),
+         ],
+      q(nez) => [
+         q(4822),
+         q(0),
+         ],
+      q(nfa) => [
+         q(4823),
+         q(0),
+         ],
+      q(nfd) => [
+         q(4824),
+         q(0),
+         ],
+      q(nfl) => [
+         q(4825),
+         q(0),
+         ],
+      q(nfr) => [
+         q(4826),
+         q(0),
+         ],
+      q(nfu) => [
+         q(4827),
+         q(0),
+         ],
+      q(nga) => [
+         q(4828),
+         q(0),
+         ],
+      q(ngb) => [
+         q(4829),
+         q(0),
+         ],
+      q(ngc) => [
+         q(4830),
+         q(0),
+         ],
+      q(ngd) => [
+         q(4831),
+         q(0),
+         ],
+      q(nge) => [
+         q(4832),
+         q(0),
+         ],
+      q(ngf) => [
+         q(0517),
+         q(0),
+         ],
+      q(ngg) => [
+         q(4833),
+         q(0),
+         ],
+      q(ngh) => [
+         q(4834),
+         q(0),
+         ],
+      q(ngi) => [
+         q(4835),
+         q(0),
+         ],
+      q(ngj) => [
+         q(4836),
+         q(0),
+         ],
+      q(ngk) => [
+         q(4837),
+         q(0),
+         ],
+      q(ngl) => [
+         q(4838),
+         q(0),
+         ],
+      q(ngm) => [
+         q(4839),
+         q(0),
+         ],
+      q(ngn) => [
+         q(4840),
+         q(0),
+         ],
+      q(ngo) => [
+         q(4841),
+         q(0),
+         ],
+      q(ngp) => [
+         q(4842),
+         q(0),
+         ],
+      q(ngq) => [
+         q(4843),
+         q(0),
+         ],
+      q(ngr) => [
+         q(4844),
+         q(0),
+         ],
+      q(ngs) => [
+         q(4845),
+         q(0),
+         ],
+      q(ngt) => [
+         q(4846),
+         q(0),
+         ],
+      q(ngu) => [
+         q(4847),
+         q(0),
+         ],
+      q(ngv) => [
+         q(4848),
+         q(0),
+         ],
+      q(ngw) => [
+         q(4849),
+         q(0),
+         ],
+      q(ngx) => [
+         q(4850),
+         q(0),
+         ],
+      q(ngy) => [
+         q(4851),
+         q(0),
+         ],
+      q(ngz) => [
+         q(4852),
+         q(0),
+         ],
+      q(nha) => [
+         q(4853),
+         q(0),
+         ],
+      q(nhb) => [
+         q(4854),
+         q(0),
+         ],
+      q(nhc) => [
+         q(4855),
+         q(0),
+         ],
+      q(nhd) => [
+         q(4856),
+         q(0),
+         ],
+      q(nhe) => [
+         q(4857),
+         q(0),
+         ],
+      q(nhf) => [
+         q(4858),
+         q(0),
+         ],
+      q(nhg) => [
+         q(4859),
+         q(0),
+         ],
+      q(nhh) => [
+         q(4860),
+         q(0),
+         ],
+      q(nhi) => [
+         q(4861),
+         q(0),
+         ],
+      q(nhk) => [
+         q(4862),
+         q(0),
+         ],
+      q(nhm) => [
+         q(4863),
+         q(0),
+         ],
+      q(nhn) => [
+         q(4864),
+         q(0),
+         ],
+      q(nho) => [
+         q(4865),
+         q(0),
+         ],
+      q(nhp) => [
+         q(4866),
+         q(0),
+         ],
+      q(nhq) => [
+         q(4867),
+         q(0),
+         ],
+      q(nhr) => [
+         q(4868),
+         q(0),
+         ],
+      q(nht) => [
+         q(4869),
+         q(0),
+         ],
+      q(nhu) => [
+         q(4870),
+         q(0),
+         ],
+      q(nhv) => [
+         q(4871),
+         q(0),
+         ],
+      q(nhw) => [
+         q(4872),
+         q(0),
+         ],
+      q(nhx) => [
+         q(4873),
+         q(0),
+         ],
+      q(nhy) => [
+         q(4874),
+         q(0),
+         ],
+      q(nhz) => [
+         q(4875),
+         q(0),
+         ],
+      q(nia) => [
+         q(0310),
+         q(0),
+         ],
+      q(nib) => [
+         q(4876),
+         q(0),
+         ],
+      q(nic) => [
+         q(0311),
+         q(0),
+         ],
+      q(nid) => [
+         q(4877),
+         q(0),
+         ],
+      q(nie) => [
+         q(4878),
+         q(0),
+         ],
+      q(nif) => [
+         q(4879),
+         q(0),
+         ],
+      q(nig) => [
+         q(4880),
+         q(0),
+         ],
+      q(nih) => [
+         q(4881),
+         q(0),
+         ],
+      q(nii) => [
+         q(4882),
+         q(0),
+         ],
+      q(nij) => [
+         q(4883),
+         q(0),
+         ],
+      q(nik) => [
+         q(4884),
+         q(0),
+         ],
+      q(nil) => [
+         q(4885),
+         q(0),
+         ],
+      q(nim) => [
+         q(4886),
+         q(0),
+         ],
+      q(nin) => [
+         q(4887),
+         q(0),
+         ],
+      q(nio) => [
+         q(4888),
+         q(0),
+         ],
+      q(niq) => [
+         q(4889),
+         q(0),
+         ],
+      q(nir) => [
+         q(4890),
+         q(0),
+         ],
+      q(nis) => [
+         q(4891),
+         q(0),
+         ],
+      q(nit) => [
+         q(4892),
+         q(0),
+         ],
+      q(niu) => [
+         q(0312),
+         q(0),
+         ],
+      q(niv) => [
+         q(4893),
+         q(0),
+         ],
+      q(niw) => [
+         q(4894),
+         q(0),
+         ],
+      q(nix) => [
+         q(4895),
+         q(0),
+         ],
+      q(niy) => [
+         q(4896),
+         q(0),
+         ],
+      q(niz) => [
+         q(4897),
+         q(0),
+         ],
+      q(nja) => [
+         q(4898),
+         q(0),
+         ],
+      q(njb) => [
+         q(4899),
+         q(0),
+         ],
+      q(njd) => [
+         q(4900),
+         q(0),
+         ],
+      q(njh) => [
+         q(4901),
+         q(0),
+         ],
+      q(nji) => [
+         q(4902),
+         q(0),
+         ],
+      q(njj) => [
+         q(4903),
+         q(0),
+         ],
+      q(njl) => [
+         q(4904),
+         q(0),
+         ],
+      q(njm) => [
+         q(4905),
+         q(0),
+         ],
+      q(njn) => [
+         q(4906),
+         q(0),
+         ],
+      q(njo) => [
+         q(4907),
+         q(0),
+         ],
+      q(njr) => [
+         q(4908),
+         q(0),
+         ],
+      q(njs) => [
+         q(4909),
+         q(0),
+         ],
+      q(njt) => [
+         q(4910),
+         q(0),
+         ],
+      q(nju) => [
+         q(4911),
+         q(0),
+         ],
+      q(njx) => [
+         q(4912),
+         q(0),
+         ],
+      q(njy) => [
+         q(4913),
+         q(0),
+         ],
+      q(njz) => [
+         q(4914),
+         q(0),
+         ],
+      q(nka) => [
+         q(4915),
+         q(0),
+         ],
+      q(nkb) => [
+         q(4916),
+         q(0),
+         ],
+      q(nkc) => [
+         q(4917),
+         q(0),
+         ],
+      q(nkd) => [
+         q(4918),
+         q(0),
+         ],
+      q(nke) => [
+         q(4919),
+         q(0),
+         ],
+      q(nkf) => [
+         q(4920),
+         q(0),
+         ],
+      q(nkg) => [
+         q(4921),
+         q(0),
+         ],
+      q(nkh) => [
+         q(4922),
+         q(0),
+         ],
+      q(nki) => [
+         q(4923),
+         q(0),
+         ],
+      q(nkj) => [
+         q(4924),
+         q(0),
+         ],
+      q(nkk) => [
+         q(4925),
+         q(0),
+         ],
+      q(nkm) => [
+         q(4926),
+         q(0),
+         ],
+      q(nkn) => [
+         q(4927),
+         q(0),
+         ],
+      q(nko) => [
+         q(4928),
+         q(0),
+         ],
+      q(nkp) => [
+         q(4929),
+         q(0),
+         ],
+      q(nkq) => [
+         q(4930),
+         q(0),
+         ],
+      q(nkr) => [
+         q(4931),
+         q(0),
+         ],
+      q(nks) => [
+         q(4932),
+         q(0),
+         ],
+      q(nkt) => [
+         q(4933),
+         q(0),
+         ],
+      q(nku) => [
+         q(4934),
+         q(0),
+         ],
+      q(nkv) => [
+         q(4935),
+         q(0),
+         ],
+      q(nkw) => [
+         q(4936),
+         q(0),
+         ],
+      q(nkx) => [
+         q(4937),
+         q(0),
+         ],
+      q(nkz) => [
+         q(4938),
+         q(0),
+         ],
+      q(nla) => [
+         q(4939),
+         q(0),
+         ],
+      q(nlc) => [
+         q(4940),
+         q(0),
+         ],
+      q(nle) => [
+         q(4941),
+         q(0),
+         ],
+      q(nlg) => [
+         q(4942),
+         q(0),
+         ],
+      q(nli) => [
+         q(4943),
+         q(0),
+         ],
+      q(nlj) => [
+         q(4944),
+         q(0),
+         ],
+      q(nlk) => [
+         q(4945),
+         q(0),
+         ],
+      q(nll) => [
+         q(4946),
+         q(0),
+         ],
+      q(nlo) => [
+         q(4947),
+         q(0),
+         ],
+      q(nlq) => [
+         q(4948),
+         q(0),
+         ],
+      q(nlu) => [
+         q(4949),
+         q(0),
+         ],
+      q(nlv) => [
+         q(4950),
+         q(0),
+         ],
+      q(nlw) => [
+         q(4951),
+         q(0),
+         ],
+      q(nlx) => [
+         q(4952),
+         q(0),
+         ],
+      q(nly) => [
+         q(4953),
+         q(0),
+         ],
+      q(nlz) => [
+         q(4954),
+         q(0),
+         ],
+      q(nma) => [
+         q(4955),
+         q(0),
+         ],
+      q(nmb) => [
+         q(4956),
+         q(0),
+         ],
+      q(nmc) => [
+         q(4957),
+         q(0),
+         ],
+      q(nmd) => [
+         q(4958),
+         q(0),
+         ],
+      q(nme) => [
+         q(4959),
+         q(0),
+         ],
+      q(nmf) => [
+         q(4960),
+         q(0),
+         ],
+      q(nmg) => [
+         q(4961),
+         q(0),
+         ],
+      q(nmh) => [
+         q(4962),
+         q(0),
+         ],
+      q(nmi) => [
+         q(4963),
+         q(0),
+         ],
+      q(nmj) => [
+         q(4964),
+         q(0),
+         ],
+      q(nmk) => [
+         q(4965),
+         q(0),
+         ],
+      q(nml) => [
+         q(4966),
+         q(0),
+         ],
+      q(nmm) => [
+         q(4967),
+         q(0),
+         ],
+      q(nmn) => [
+         q(4968),
+         q(0),
+         ],
+      q(nmo) => [
+         q(4969),
+         q(0),
+         ],
+      q(nmp) => [
+         q(4970),
+         q(0),
+         ],
+      q(nmq) => [
+         q(4971),
+         q(0),
+         ],
+      q(nmr) => [
+         q(4972),
+         q(0),
+         ],
+      q(nms) => [
+         q(4973),
+         q(0),
+         ],
+      q(nmt) => [
+         q(4974),
+         q(0),
+         ],
+      q(nmu) => [
+         q(4975),
+         q(0),
+         ],
+      q(nmv) => [
+         q(4976),
+         q(0),
+         ],
+      q(nmw) => [
+         q(4977),
+         q(0),
+         ],
+      q(nmx) => [
+         q(4978),
+         q(0),
+         ],
+      q(nmy) => [
+         q(4979),
+         q(0),
+         ],
+      q(nmz) => [
+         q(4980),
+         q(0),
+         ],
+      q(nna) => [
+         q(4981),
+         q(0),
+         ],
+      q(nnb) => [
+         q(4982),
+         q(0),
+         ],
+      q(nnc) => [
+         q(4983),
+         q(0),
+         ],
+      q(nnd) => [
+         q(4984),
+         q(0),
+         ],
+      q(nne) => [
+         q(4985),
+         q(0),
+         ],
+      q(nnf) => [
+         q(4986),
+         q(0),
+         ],
+      q(nng) => [
+         q(4987),
+         q(0),
+         ],
+      q(nnh) => [
+         q(4988),
+         q(0),
+         ],
+      q(nni) => [
+         q(4989),
+         q(0),
+         ],
+      q(nnj) => [
+         q(4990),
+         q(0),
+         ],
+      q(nnk) => [
+         q(4991),
+         q(0),
+         ],
+      q(nnl) => [
+         q(4992),
+         q(0),
+         ],
+      q(nnm) => [
+         q(4993),
+         q(0),
+         ],
+      q(nnn) => [
+         q(4994),
+         q(0),
+         ],
+      q(nno) => [
+         q(0313),
+         q(0),
+         ],
+      q(nnp) => [
+         q(4995),
+         q(0),
+         ],
+      q(nnq) => [
+         q(4996),
+         q(0),
+         ],
+      q(nnr) => [
+         q(4997),
+         q(0),
+         ],
+      q(nns) => [
+         q(4998),
+         q(0),
+         ],
+      q(nnt) => [
+         q(4999),
+         q(0),
+         ],
+      q(nnu) => [
+         q(5000),
+         q(0),
+         ],
+      q(nnv) => [
+         q(5001),
+         q(0),
+         ],
+      q(nnw) => [
+         q(5002),
+         q(0),
+         ],
+      q(nny) => [
+         q(5003),
+         q(0),
+         ],
+      q(nnz) => [
+         q(5004),
+         q(0),
+         ],
+      q(noa) => [
+         q(5005),
+         q(0),
+         ],
+      q(nob) => [
+         q(0314),
+         q(0),
+         ],
+      q(noc) => [
+         q(5006),
+         q(0),
+         ],
+      q(nod) => [
+         q(5007),
+         q(0),
+         ],
+      q(noe) => [
+         q(5008),
+         q(0),
+         ],
+      q(nof) => [
+         q(5009),
+         q(0),
+         ],
+      q(nog) => [
+         q(0315),
+         q(0),
+         ],
+      q(noh) => [
+         q(5010),
+         q(0),
+         ],
+      q(noi) => [
+         q(5011),
+         q(0),
+         ],
+      q(noj) => [
+         q(5012),
+         q(0),
+         ],
+      q(nok) => [
+         q(5013),
+         q(0),
+         ],
+      q(nol) => [
+         q(5014),
+         q(0),
+         ],
+      q(nom) => [
+         q(5015),
+         q(0),
+         ],
+      q(non) => [
+         q(0316),
+         q(1),
+         ],
+      q(nop) => [
+         q(5016),
+         q(0),
+         ],
+      q(noq) => [
+         q(5017),
+         q(0),
+         ],
+      q(nor) => [
+         q(0317),
+         q(0),
+         ],
+      q(nos) => [
+         q(5018),
+         q(0),
+         ],
+      q(not) => [
+         q(5019),
+         q(0),
+         ],
+      q(nou) => [
+         q(5020),
+         q(0),
+         ],
+      q(nov) => [
+         q(5021),
+         q(0),
+         ],
+      q(now) => [
+         q(5022),
+         q(0),
+         ],
+      q(noy) => [
+         q(5023),
+         q(0),
+         ],
+      q(noz) => [
+         q(5024),
+         q(0),
+         ],
+      q(npa) => [
+         q(5025),
+         q(0),
+         ],
+      q(npb) => [
+         q(5026),
+         q(0),
+         ],
+      q(npg) => [
+         q(5027),
+         q(0),
+         ],
+      q(nph) => [
+         q(5028),
+         q(0),
+         ],
+      q(npi) => [
+         q(5029),
+         q(0),
+         ],
+      q(npl) => [
+         q(5030),
+         q(0),
+         ],
+      q(npn) => [
+         q(5031),
+         q(0),
+         ],
+      q(npo) => [
+         q(5032),
+         q(0),
+         ],
+      q(nps) => [
+         q(5033),
+         q(0),
+         ],
+      q(npu) => [
+         q(5034),
+         q(0),
+         ],
+      q(npx) => [
+         q(5035),
+         q(0),
+         ],
+      q(npy) => [
+         q(5036),
+         q(0),
+         ],
+      q(nqg) => [
+         q(5037),
+         q(0),
+         ],
+      q(nqk) => [
+         q(5038),
+         q(0),
+         ],
+      q(nql) => [
+         q(5039),
+         q(0),
+         ],
+      q(nqm) => [
+         q(5040),
+         q(0),
+         ],
+      q(nqn) => [
+         q(5041),
+         q(0),
+         ],
+      q(nqo) => [
+         q(0318),
+         q(0),
+         ],
+      q(nqq) => [
+         q(5042),
+         q(0),
+         ],
+      q(nqy) => [
+         q(5043),
+         q(0),
+         ],
+      q(nra) => [
+         q(5044),
+         q(0),
+         ],
+      q(nrb) => [
+         q(5045),
+         q(0),
+         ],
+      q(nrc) => [
+         q(5046),
+         q(0),
+         ],
+      q(nre) => [
+         q(5047),
+         q(0),
+         ],
+      q(nrf) => [
+         q(5048),
+         q(0),
+         ],
+      q(nrg) => [
+         q(5049),
+         q(0),
+         ],
+      q(nri) => [
+         q(5050),
+         q(0),
+         ],
+      q(nrk) => [
+         q(5051),
+         q(0),
+         ],
+      q(nrl) => [
+         q(5052),
+         q(0),
+         ],
+      q(nrm) => [
+         q(5053),
+         q(0),
+         ],
+      q(nrn) => [
+         q(5054),
+         q(0),
+         ],
+      q(nrp) => [
+         q(5055),
+         q(0),
+         ],
+      q(nrr) => [
+         q(5056),
+         q(0),
+         ],
+      q(nrt) => [
+         q(5057),
+         q(0),
+         ],
+      q(nru) => [
+         q(5058),
+         q(0),
+         ],
+      q(nrx) => [
+         q(5059),
+         q(0),
+         ],
+      q(nrz) => [
+         q(5060),
+         q(0),
+         ],
+      q(nsa) => [
+         q(5061),
+         q(0),
+         ],
+      q(nsc) => [
+         q(5062),
+         q(0),
+         ],
+      q(nsd) => [
+         q(5063),
+         q(0),
+         ],
+      q(nse) => [
+         q(5064),
+         q(0),
+         ],
+      q(nsf) => [
+         q(5065),
+         q(0),
+         ],
+      q(nsg) => [
+         q(5066),
+         q(0),
+         ],
+      q(nsh) => [
+         q(5067),
+         q(0),
+         ],
+      q(nsi) => [
+         q(5068),
+         q(0),
+         ],
+      q(nsk) => [
+         q(5069),
+         q(0),
+         ],
+      q(nsl) => [
+         q(5070),
+         q(0),
+         ],
+      q(nsm) => [
+         q(5071),
+         q(0),
+         ],
+      q(nsn) => [
+         q(5072),
+         q(0),
+         ],
+      q(nso) => [
+         q(0319),
+         q(0),
+         ],
+      q(nsp) => [
+         q(5073),
+         q(0),
+         ],
+      q(nsq) => [
+         q(5074),
+         q(0),
+         ],
+      q(nsr) => [
+         q(5075),
+         q(0),
+         ],
+      q(nss) => [
+         q(5076),
+         q(0),
+         ],
+      q(nst) => [
+         q(5077),
+         q(0),
+         ],
+      q(nsu) => [
+         q(5078),
+         q(0),
+         ],
+      q(nsv) => [
+         q(5079),
+         q(0),
+         ],
+      q(nsw) => [
+         q(5080),
+         q(0),
+         ],
+      q(nsx) => [
+         q(5081),
+         q(0),
+         ],
+      q(nsy) => [
+         q(5082),
+         q(0),
+         ],
+      q(nsz) => [
+         q(5083),
+         q(0),
+         ],
+      q(ntd) => [
+         q(5084),
+         q(0),
+         ],
+      q(nte) => [
+         q(5085),
+         q(0),
+         ],
+      q(ntg) => [
+         q(5086),
+         q(0),
+         ],
+      q(nti) => [
+         q(5087),
+         q(0),
+         ],
+      q(ntj) => [
+         q(5088),
+         q(0),
+         ],
+      q(ntk) => [
+         q(5089),
+         q(0),
+         ],
+      q(ntm) => [
+         q(5090),
+         q(0),
+         ],
+      q(nto) => [
+         q(5091),
+         q(0),
+         ],
+      q(ntp) => [
+         q(5092),
+         q(0),
+         ],
+      q(ntr) => [
+         q(5093),
+         q(0),
+         ],
+      q(ntu) => [
+         q(5094),
+         q(0),
+         ],
+      q(ntw) => [
+         q(5095),
+         q(0),
+         ],
+      q(ntx) => [
+         q(5096),
+         q(0),
+         ],
+      q(nty) => [
+         q(5097),
+         q(0),
+         ],
+      q(ntz) => [
+         q(5098),
+         q(0),
+         ],
+      q(nua) => [
+         q(5099),
+         q(0),
+         ],
+      q(nub) => [
+         q(0320),
+         q(0),
+         ],
+      q(nuc) => [
+         q(5100),
+         q(0),
+         ],
+      q(nud) => [
+         q(5101),
+         q(0),
+         ],
+      q(nue) => [
+         q(5102),
+         q(0),
+         ],
+      q(nuf) => [
+         q(5103),
+         q(0),
+         ],
+      q(nug) => [
+         q(5104),
+         q(0),
+         ],
+      q(nuh) => [
+         q(5105),
+         q(0),
+         ],
+      q(nui) => [
+         q(5106),
+         q(0),
+         ],
+      q(nuj) => [
+         q(5107),
+         q(0),
+         ],
+      q(nuk) => [
+         q(5108),
+         q(0),
+         ],
+      q(nul) => [
+         q(5109),
+         q(0),
+         ],
+      q(num) => [
+         q(5110),
+         q(0),
+         ],
+      q(nun) => [
+         q(5111),
+         q(0),
+         ],
+      q(nuo) => [
+         q(5112),
+         q(0),
+         ],
+      q(nup) => [
+         q(5113),
+         q(0),
+         ],
+      q(nuq) => [
+         q(5114),
+         q(0),
+         ],
+      q(nur) => [
+         q(5115),
+         q(0),
+         ],
+      q(nus) => [
+         q(5116),
+         q(0),
+         ],
+      q(nut) => [
+         q(5117),
+         q(0),
+         ],
+      q(nuu) => [
+         q(5118),
+         q(0),
+         ],
+      q(nuv) => [
+         q(5119),
+         q(0),
+         ],
+      q(nuw) => [
+         q(5120),
+         q(0),
+         ],
+      q(nux) => [
+         q(5121),
+         q(0),
+         ],
+      q(nuy) => [
+         q(5122),
+         q(0),
+         ],
+      q(nuz) => [
+         q(5123),
+         q(0),
+         ],
+      q(nvh) => [
+         q(5124),
+         q(0),
+         ],
+      q(nvm) => [
+         q(5125),
+         q(0),
+         ],
+      q(nvo) => [
+         q(5126),
+         q(0),
+         ],
+      q(nwa) => [
+         q(5127),
+         q(0),
+         ],
+      q(nwb) => [
+         q(5128),
+         q(0),
+         ],
+      q(nwc) => [
+         q(0321),
+         q(0),
+         ],
+      q(nwe) => [
+         q(5129),
+         q(0),
+         ],
+      q(nwg) => [
+         q(5130),
+         q(0),
+         ],
+      q(nwi) => [
+         q(5131),
+         q(0),
+         ],
+      q(nwm) => [
+         q(5132),
+         q(0),
+         ],
+      q(nwo) => [
+         q(5133),
+         q(0),
+         ],
+      q(nwr) => [
+         q(5134),
+         q(0),
+         ],
+      q(nwx) => [
+         q(5135),
+         q(0),
+         ],
+      q(nwy) => [
+         q(5136),
+         q(0),
+         ],
+      q(nxa) => [
+         q(5137),
+         q(0),
+         ],
+      q(nxd) => [
+         q(5138),
+         q(0),
+         ],
+      q(nxe) => [
+         q(5139),
+         q(0),
+         ],
+      q(nxg) => [
+         q(5140),
+         q(0),
+         ],
+      q(nxi) => [
+         q(5141),
+         q(0),
+         ],
+      q(nxk) => [
+         q(5142),
+         q(0),
+         ],
+      q(nxl) => [
+         q(5143),
+         q(0),
+         ],
+      q(nxm) => [
+         q(5144),
+         q(0),
+         ],
+      q(nxn) => [
+         q(5145),
+         q(0),
+         ],
+      q(nxo) => [
+         q(5146),
+         q(0),
+         ],
+      q(nxq) => [
+         q(5147),
+         q(0),
+         ],
+      q(nxr) => [
+         q(5148),
+         q(0),
+         ],
+      q(nxu) => [
+         q(5149),
+         q(0),
+         ],
+      q(nxx) => [
+         q(5150),
+         q(0),
+         ],
+      q(nya) => [
+         q(0322),
+         q(0),
+         ],
+      q(nyb) => [
+         q(5151),
+         q(0),
+         ],
+      q(nyc) => [
+         q(5152),
+         q(0),
+         ],
+      q(nyd) => [
+         q(5153),
+         q(0),
+         ],
+      q(nye) => [
+         q(5154),
+         q(0),
+         ],
+      q(nyf) => [
+         q(5155),
+         q(0),
+         ],
+      q(nyg) => [
+         q(5156),
+         q(0),
+         ],
+      q(nyh) => [
+         q(5157),
+         q(0),
+         ],
+      q(nyi) => [
+         q(5158),
+         q(0),
+         ],
+      q(nyj) => [
+         q(5159),
+         q(0),
+         ],
+      q(nyk) => [
+         q(5160),
+         q(0),
+         ],
+      q(nyl) => [
+         q(5161),
+         q(0),
+         ],
+      q(nym) => [
+         q(0323),
+         q(0),
+         ],
+      q(nyn) => [
+         q(0324),
+         q(0),
+         ],
+      q(nyo) => [
+         q(0325),
+         q(0),
+         ],
+      q(nyp) => [
+         q(5162),
+         q(0),
+         ],
+      q(nyq) => [
+         q(5163),
+         q(0),
+         ],
+      q(nyr) => [
+         q(5164),
+         q(0),
+         ],
+      q(nys) => [
+         q(5165),
+         q(0),
+         ],
+      q(nyt) => [
+         q(5166),
+         q(0),
+         ],
+      q(nyu) => [
+         q(5167),
+         q(0),
+         ],
+      q(nyv) => [
+         q(5168),
+         q(0),
+         ],
+      q(nyw) => [
+         q(5169),
+         q(0),
+         ],
+      q(nyx) => [
+         q(5170),
+         q(0),
+         ],
+      q(nyy) => [
+         q(5171),
+         q(0),
+         ],
+      q(nza) => [
+         q(5172),
+         q(0),
+         ],
+      q(nzb) => [
+         q(5173),
+         q(0),
+         ],
+      q(nzi) => [
+         q(0326),
+         q(0),
+         ],
+      q(nzk) => [
+         q(5174),
+         q(0),
+         ],
+      q(nzm) => [
+         q(5175),
+         q(0),
+         ],
+      q(nzs) => [
+         q(5176),
+         q(0),
+         ],
+      q(nzu) => [
+         q(5177),
+         q(0),
+         ],
+      q(nzy) => [
+         q(5178),
+         q(0),
+         ],
+      q(nzz) => [
+         q(5179),
+         q(0),
+         ],
+      q(oaa) => [
+         q(5180),
+         q(0),
+         ],
+      q(oac) => [
+         q(5181),
+         q(0),
+         ],
+      q(oar) => [
+         q(5182),
+         q(0),
+         ],
+      q(oav) => [
+         q(5183),
+         q(0),
+         ],
+      q(obi) => [
+         q(5184),
+         q(0),
+         ],
+      q(obk) => [
+         q(5185),
+         q(0),
+         ],
+      q(obl) => [
+         q(5186),
+         q(0),
+         ],
+      q(obm) => [
+         q(5187),
+         q(0),
+         ],
+      q(obo) => [
+         q(5188),
+         q(0),
+         ],
+      q(obr) => [
+         q(5189),
+         q(0),
+         ],
+      q(obt) => [
+         q(5190),
+         q(0),
+         ],
+      q(obu) => [
+         q(5191),
+         q(0),
+         ],
+      q(oca) => [
+         q(5192),
+         q(0),
+         ],
+      q(och) => [
+         q(5193),
+         q(0),
+         ],
+      q(oci) => [
+         q(0327),
+         q(0),
+         ],
+      q(oco) => [
+         q(5194),
+         q(0),
+         ],
+      q(ocu) => [
+         q(5195),
+         q(0),
+         ],
+      q(oda) => [
+         q(5196),
+         q(0),
+         ],
+      q(odk) => [
+         q(5197),
+         q(0),
+         ],
+      q(odt) => [
+         q(5198),
+         q(0),
+         ],
+      q(odu) => [
+         q(5199),
+         q(0),
+         ],
+      q(ofo) => [
+         q(5200),
+         q(0),
+         ],
+      q(ofs) => [
+         q(5201),
+         q(0),
+         ],
+      q(ofu) => [
+         q(5202),
+         q(0),
+         ],
+      q(ogb) => [
+         q(5203),
+         q(0),
+         ],
+      q(ogc) => [
+         q(5204),
+         q(0),
+         ],
+      q(oge) => [
+         q(5205),
+         q(0),
+         ],
+      q(ogg) => [
+         q(5206),
+         q(0),
+         ],
+      q(ogo) => [
+         q(5207),
+         q(0),
+         ],
+      q(ogu) => [
+         q(5208),
+         q(0),
+         ],
+      q(oht) => [
+         q(5209),
+         q(0),
+         ],
+      q(ohu) => [
+         q(5210),
+         q(0),
+         ],
+      q(oia) => [
+         q(5211),
+         q(0),
+         ],
+      q(oin) => [
+         q(5212),
+         q(0),
+         ],
+      q(ojb) => [
+         q(5213),
+         q(0),
+         ],
+      q(ojc) => [
+         q(5214),
+         q(0),
+         ],
+      q(ojg) => [
+         q(5215),
+         q(0),
+         ],
+      q(oji) => [
+         q(0328),
+         q(0),
+         ],
+      q(ojp) => [
+         q(5216),
+         q(0),
+         ],
+      q(ojs) => [
+         q(5217),
+         q(0),
+         ],
+      q(ojv) => [
+         q(5218),
+         q(0),
+         ],
+      q(ojw) => [
+         q(5219),
+         q(0),
+         ],
+      q(oka) => [
+         q(5220),
+         q(0),
+         ],
+      q(okb) => [
+         q(5221),
+         q(0),
+         ],
+      q(okd) => [
+         q(5222),
+         q(0),
+         ],
+      q(oke) => [
+         q(5223),
+         q(0),
+         ],
+      q(okg) => [
+         q(5224),
+         q(0),
+         ],
+      q(okh) => [
+         q(5225),
+         q(0),
+         ],
+      q(oki) => [
+         q(5226),
+         q(0),
+         ],
+      q(okj) => [
+         q(5227),
+         q(0),
+         ],
+      q(okk) => [
+         q(5228),
+         q(0),
+         ],
+      q(okl) => [
+         q(5229),
+         q(0),
+         ],
+      q(okm) => [
+         q(5230),
+         q(0),
+         ],
+      q(okn) => [
+         q(5231),
+         q(0),
+         ],
+      q(oko) => [
+         q(5232),
+         q(0),
+         ],
+      q(okr) => [
+         q(5233),
+         q(0),
+         ],
+      q(oks) => [
+         q(5234),
+         q(0),
+         ],
+      q(oku) => [
+         q(5235),
+         q(0),
+         ],
+      q(okv) => [
+         q(5236),
+         q(0),
+         ],
+      q(okx) => [
+         q(5237),
+         q(0),
+         ],
+      q(ola) => [
+         q(5238),
+         q(0),
+         ],
+      q(old) => [
+         q(5239),
+         q(0),
+         ],
+      q(ole) => [
+         q(5240),
+         q(0),
+         ],
+      q(olk) => [
+         q(5241),
+         q(0),
+         ],
+      q(olm) => [
+         q(5242),
+         q(0),
+         ],
+      q(olo) => [
+         q(5243),
+         q(0),
+         ],
+      q(olr) => [
+         q(5244),
+         q(0),
+         ],
+      q(olt) => [
+         q(5245),
+         q(0),
+         ],
+      q(olu) => [
+         q(5246),
+         q(0),
+         ],
+      q(oma) => [
+         q(5247),
+         q(0),
+         ],
+      q(omb) => [
+         q(5248),
+         q(0),
+         ],
+      q(omc) => [
+         q(5249),
+         q(0),
+         ],
+      q(omg) => [
+         q(5250),
+         q(0),
+         ],
+      q(omi) => [
+         q(5251),
+         q(0),
+         ],
+      q(omk) => [
+         q(5252),
+         q(0),
+         ],
+      q(oml) => [
+         q(5253),
+         q(0),
+         ],
+      q(omn) => [
+         q(5254),
+         q(0),
+         ],
+      q(omo) => [
+         q(5255),
+         q(0),
+         ],
+      q(omp) => [
+         q(5256),
+         q(0),
+         ],
+      q(omq) => [
+         q(0518),
+         q(0),
+         ],
+      q(omr) => [
+         q(5257),
+         q(0),
+         ],
+      q(omt) => [
+         q(5258),
+         q(0),
+         ],
+      q(omu) => [
+         q(5259),
+         q(0),
+         ],
+      q(omv) => [
+         q(0519),
+         q(0),
+         ],
+      q(omw) => [
+         q(5260),
+         q(0),
+         ],
+      q(omx) => [
+         q(5261),
+         q(0),
+         ],
+      q(ona) => [
+         q(5262),
+         q(0),
+         ],
+      q(onb) => [
+         q(5263),
+         q(0),
+         ],
+      q(one) => [
+         q(5264),
+         q(0),
+         ],
+      q(ong) => [
+         q(5265),
+         q(0),
+         ],
+      q(oni) => [
+         q(5266),
+         q(0),
+         ],
+      q(onj) => [
+         q(5267),
+         q(0),
+         ],
+      q(onk) => [
+         q(5268),
+         q(0),
+         ],
+      q(onn) => [
+         q(5269),
+         q(0),
+         ],
+      q(ono) => [
+         q(5270),
+         q(0),
+         ],
+      q(onp) => [
+         q(5271),
+         q(0),
+         ],
+      q(onr) => [
+         q(5272),
+         q(0),
+         ],
+      q(ons) => [
+         q(5273),
+         q(0),
+         ],
+      q(ont) => [
+         q(5274),
+         q(0),
+         ],
+      q(onu) => [
+         q(5275),
+         q(0),
+         ],
+      q(onw) => [
+         q(5276),
+         q(0),
+         ],
+      q(onx) => [
+         q(5277),
+         q(0),
+         ],
+      q(ood) => [
+         q(5278),
+         q(0),
+         ],
+      q(oog) => [
+         q(5279),
+         q(0),
+         ],
+      q(oon) => [
+         q(5280),
+         q(0),
+         ],
+      q(oor) => [
+         q(5281),
+         q(0),
+         ],
+      q(oos) => [
+         q(5282),
+         q(0),
+         ],
+      q(opa) => [
+         q(5283),
+         q(0),
+         ],
+      q(opk) => [
+         q(5284),
+         q(0),
+         ],
+      q(opm) => [
+         q(5285),
+         q(0),
+         ],
+      q(opo) => [
+         q(5286),
+         q(0),
+         ],
+      q(opt) => [
+         q(5287),
+         q(0),
+         ],
+      q(opy) => [
+         q(5288),
+         q(0),
+         ],
+      q(ora) => [
+         q(5289),
+         q(0),
+         ],
+      q(orc) => [
+         q(5290),
+         q(0),
+         ],
+      q(ore) => [
+         q(5291),
+         q(0),
+         ],
+      q(org) => [
+         q(5292),
+         q(0),
+         ],
+      q(orh) => [
+         q(5293),
+         q(0),
+         ],
+      q(ori) => [
+         q(0329),
+         q(0),
+         ],
+      q(orm) => [
+         q(0330),
+         q(0),
+         ],
+      q(orn) => [
+         q(5294),
+         q(0),
+         ],
+      q(oro) => [
+         q(5295),
+         q(0),
+         ],
+      q(orr) => [
+         q(5296),
+         q(0),
+         ],
+      q(ors) => [
+         q(5297),
+         q(0),
+         ],
+      q(ort) => [
+         q(5298),
+         q(0),
+         ],
+      q(oru) => [
+         q(5299),
+         q(0),
+         ],
+      q(orv) => [
+         q(5300),
+         q(0),
+         ],
+      q(orw) => [
+         q(5301),
+         q(0),
+         ],
+      q(orx) => [
+         q(5302),
+         q(0),
+         ],
+      q(ory) => [
+         q(5303),
+         q(0),
+         ],
+      q(orz) => [
+         q(5304),
+         q(0),
+         ],
+      q(osa) => [
+         q(0331),
+         q(0),
+         ],
+      q(osc) => [
+         q(5305),
+         q(0),
+         ],
+      q(osi) => [
+         q(5306),
+         q(0),
+         ],
+      q(oso) => [
+         q(5307),
+         q(0),
+         ],
+      q(osp) => [
+         q(5308),
+         q(0),
+         ],
+      q(oss) => [
+         q(0332),
+         q(0),
+         ],
+      q(ost) => [
+         q(5309),
+         q(0),
+         ],
+      q(osu) => [
+         q(5310),
+         q(0),
+         ],
+      q(osx) => [
+         q(5311),
+         q(0),
+         ],
+      q(ota) => [
+         q(0333),
+         q(1),
+         ],
+      q(otb) => [
+         q(5312),
+         q(0),
+         ],
+      q(otd) => [
+         q(5313),
+         q(0),
+         ],
+      q(ote) => [
+         q(5314),
+         q(0),
+         ],
+      q(oti) => [
+         q(5315),
+         q(0),
+         ],
+      q(otk) => [
+         q(5316),
+         q(0),
+         ],
+      q(otl) => [
+         q(5317),
+         q(0),
+         ],
+      q(otm) => [
+         q(5318),
+         q(0),
+         ],
+      q(otn) => [
+         q(5319),
+         q(0),
+         ],
+      q(oto) => [
+         q(0334),
+         q(0),
+         ],
+      q(otq) => [
+         q(5320),
+         q(0),
+         ],
+      q(otr) => [
+         q(5321),
+         q(0),
+         ],
+      q(ots) => [
+         q(5322),
+         q(0),
+         ],
+      q(ott) => [
+         q(5323),
+         q(0),
+         ],
+      q(otu) => [
+         q(5324),
+         q(0),
+         ],
+      q(otw) => [
+         q(5325),
+         q(0),
+         ],
+      q(otx) => [
+         q(5326),
+         q(0),
+         ],
+      q(oty) => [
+         q(5327),
+         q(0),
+         ],
+      q(otz) => [
+         q(5328),
+         q(0),
+         ],
+      q(oua) => [
+         q(5329),
+         q(0),
+         ],
+      q(oub) => [
+         q(5330),
+         q(0),
+         ],
+      q(oue) => [
+         q(5331),
+         q(0),
+         ],
+      q(oui) => [
+         q(5332),
+         q(0),
+         ],
+      q(oum) => [
+         q(5333),
+         q(0),
+         ],
+      q(ovd) => [
+         q(5334),
+         q(0),
+         ],
+      q(owi) => [
+         q(5335),
+         q(0),
+         ],
+      q(owl) => [
+         q(5336),
+         q(0),
+         ],
+      q(oyb) => [
+         q(5337),
+         q(0),
+         ],
+      q(oyd) => [
+         q(5338),
+         q(0),
+         ],
+      q(oym) => [
+         q(5339),
+         q(0),
+         ],
+      q(oyy) => [
+         q(5340),
+         q(0),
+         ],
+      q(ozm) => [
+         q(5341),
+         q(0),
+         ],
+      q(paa) => [
+         q(0335),
+         q(0),
+         ],
+      q(pab) => [
+         q(5342),
+         q(0),
+         ],
+      q(pac) => [
+         q(5343),
+         q(0),
+         ],
+      q(pad) => [
+         q(5344),
+         q(0),
+         ],
+      q(pae) => [
+         q(5345),
+         q(0),
+         ],
+      q(paf) => [
+         q(5346),
+         q(0),
+         ],
+      q(pag) => [
+         q(0336),
+         q(0),
+         ],
+      q(pah) => [
+         q(5347),
+         q(0),
+         ],
+      q(pai) => [
+         q(5348),
+         q(0),
+         ],
+      q(pak) => [
+         q(5349),
+         q(0),
+         ],
+      q(pal) => [
+         q(0337),
+         q(0),
+         ],
+      q(pam) => [
+         q(0338),
+         q(0),
+         ],
+      q(pan) => [
+         q(0339),
+         q(0),
+         ],
+      q(pao) => [
+         q(5350),
+         q(0),
+         ],
+      q(pap) => [
+         q(0340),
+         q(0),
+         ],
+      q(paq) => [
+         q(5351),
+         q(0),
+         ],
+      q(par) => [
+         q(5352),
+         q(0),
+         ],
+      q(pas) => [
+         q(5353),
+         q(0),
+         ],
+      q(pat) => [
+         q(5354),
+         q(0),
+         ],
+      q(pau) => [
+         q(0341),
+         q(0),
+         ],
+      q(pav) => [
+         q(5355),
+         q(0),
+         ],
+      q(paw) => [
+         q(5356),
+         q(0),
+         ],
+      q(pax) => [
+         q(5357),
+         q(0),
+         ],
+      q(pay) => [
+         q(5358),
+         q(0),
+         ],
+      q(paz) => [
+         q(5359),
+         q(0),
+         ],
+      q(pbb) => [
+         q(5360),
+         q(0),
+         ],
+      q(pbc) => [
+         q(5361),
+         q(0),
+         ],
+      q(pbe) => [
+         q(5362),
+         q(0),
+         ],
+      q(pbf) => [
+         q(5363),
+         q(0),
+         ],
+      q(pbg) => [
+         q(5364),
+         q(0),
+         ],
+      q(pbh) => [
+         q(5365),
+         q(0),
+         ],
+      q(pbi) => [
+         q(5366),
+         q(0),
+         ],
+      q(pbl) => [
+         q(5367),
+         q(0),
+         ],
+      q(pbn) => [
+         q(5368),
+         q(0),
+         ],
+      q(pbo) => [
+         q(5369),
+         q(0),
+         ],
+      q(pbp) => [
+         q(5370),
+         q(0),
+         ],
+      q(pbr) => [
+         q(5371),
+         q(0),
+         ],
+      q(pbs) => [
+         q(5372),
+         q(0),
+         ],
+      q(pbt) => [
+         q(5373),
+         q(0),
+         ],
+      q(pbu) => [
+         q(5374),
+         q(0),
+         ],
+      q(pbv) => [
+         q(5375),
+         q(0),
+         ],
+      q(pby) => [
+         q(5376),
+         q(0),
+         ],
+      q(pca) => [
+         q(5377),
+         q(0),
+         ],
+      q(pcb) => [
+         q(5378),
+         q(0),
+         ],
+      q(pcc) => [
+         q(5379),
+         q(0),
+         ],
+      q(pcd) => [
+         q(5380),
+         q(0),
+         ],
+      q(pce) => [
+         q(5381),
+         q(0),
+         ],
+      q(pcf) => [
+         q(5382),
+         q(0),
+         ],
+      q(pcg) => [
+         q(5383),
+         q(0),
+         ],
+      q(pch) => [
+         q(5384),
+         q(0),
+         ],
+      q(pci) => [
+         q(5385),
+         q(0),
+         ],
+      q(pcj) => [
+         q(5386),
+         q(0),
+         ],
+      q(pck) => [
+         q(5387),
+         q(0),
+         ],
+      q(pcl) => [
+         q(5388),
+         q(0),
+         ],
+      q(pcm) => [
+         q(5389),
+         q(0),
+         ],
+      q(pcn) => [
+         q(5390),
+         q(0),
+         ],
+      q(pcp) => [
+         q(5391),
+         q(0),
+         ],
+      q(pcw) => [
+         q(5392),
+         q(0),
+         ],
+      q(pda) => [
+         q(5393),
+         q(0),
+         ],
+      q(pdc) => [
+         q(5394),
+         q(0),
+         ],
+      q(pdi) => [
+         q(5395),
+         q(0),
+         ],
+      q(pdn) => [
+         q(5396),
+         q(0),
+         ],
+      q(pdo) => [
+         q(5397),
+         q(0),
+         ],
+      q(pdt) => [
+         q(5398),
+         q(0),
+         ],
+      q(pdu) => [
+         q(5399),
+         q(0),
+         ],
+      q(pea) => [
+         q(5400),
+         q(0),
+         ],
+      q(peb) => [
+         q(5401),
+         q(0),
+         ],
+      q(ped) => [
+         q(5402),
+         q(0),
+         ],
+      q(pee) => [
+         q(5403),
+         q(0),
+         ],
+      q(pef) => [
+         q(5404),
+         q(0),
+         ],
+      q(peg) => [
+         q(5405),
+         q(0),
+         ],
+      q(peh) => [
+         q(5406),
+         q(0),
+         ],
+      q(pei) => [
+         q(5407),
+         q(0),
+         ],
+      q(pej) => [
+         q(5408),
+         q(0),
+         ],
+      q(pek) => [
+         q(5409),
+         q(0),
+         ],
+      q(pel) => [
+         q(5410),
+         q(0),
+         ],
+      q(pem) => [
+         q(5411),
+         q(0),
+         ],
+      q(peo) => [
+         q(0342),
+         q(1),
+         ],
+      q(pep) => [
+         q(5412),
+         q(0),
+         ],
+      q(peq) => [
+         q(5413),
+         q(0),
+         ],
+      q(per) => [
+         q(0343),
+         q(0),
+         ],
+      q(pes) => [
+         q(5414),
+         q(0),
+         ],
+      q(pev) => [
+         q(5415),
+         q(0),
+         ],
+      q(pex) => [
+         q(5416),
+         q(0),
+         ],
+      q(pey) => [
+         q(5417),
+         q(0),
+         ],
+      q(pez) => [
+         q(5418),
+         q(0),
+         ],
+      q(pfa) => [
+         q(5419),
+         q(0),
+         ],
+      q(pfe) => [
+         q(5420),
+         q(0),
+         ],
+      q(pfl) => [
+         q(5421),
+         q(0),
+         ],
+      q(pga) => [
+         q(5422),
+         q(0),
+         ],
+      q(pgd) => [
+         q(5423),
+         q(0),
+         ],
+      q(pgg) => [
+         q(5424),
+         q(0),
+         ],
+      q(pgi) => [
+         q(5425),
+         q(0),
+         ],
+      q(pgk) => [
+         q(5426),
+         q(0),
+         ],
+      q(pgl) => [
+         q(5427),
+         q(0),
+         ],
+      q(pgn) => [
+         q(5428),
+         q(0),
+         ],
+      q(pgs) => [
+         q(5429),
+         q(0),
+         ],
+      q(pgu) => [
+         q(5430),
+         q(0),
+         ],
+      q(pgz) => [
+         q(5431),
+         q(0),
+         ],
+      q(pha) => [
+         q(5432),
+         q(0),
+         ],
+      q(phd) => [
+         q(5433),
+         q(0),
+         ],
+      q(phg) => [
+         q(5434),
+         q(0),
+         ],
+      q(phh) => [
+         q(5435),
+         q(0),
+         ],
+      q(phi) => [
+         q(0344),
+         q(0),
+         ],
+      q(phk) => [
+         q(5436),
+         q(0),
+         ],
+      q(phl) => [
+         q(5437),
+         q(0),
+         ],
+      q(phm) => [
+         q(5438),
+         q(0),
+         ],
+      q(phn) => [
+         q(0345),
+         q(0),
+         ],
+      q(pho) => [
+         q(5439),
+         q(0),
+         ],
+      q(phq) => [
+         q(5440),
+         q(0),
+         ],
+      q(phr) => [
+         q(5441),
+         q(0),
+         ],
+      q(pht) => [
+         q(5442),
+         q(0),
+         ],
+      q(phu) => [
+         q(5443),
+         q(0),
+         ],
+      q(phv) => [
+         q(5444),
+         q(0),
+         ],
+      q(phw) => [
+         q(5445),
+         q(0),
+         ],
+      q(pia) => [
+         q(5446),
+         q(0),
+         ],
+      q(pib) => [
+         q(5447),
+         q(0),
+         ],
+      q(pic) => [
+         q(5448),
+         q(0),
+         ],
+      q(pid) => [
+         q(5449),
+         q(0),
+         ],
+      q(pie) => [
+         q(5450),
+         q(0),
+         ],
+      q(pif) => [
+         q(5451),
+         q(0),
+         ],
+      q(pig) => [
+         q(5452),
+         q(0),
+         ],
+      q(pih) => [
+         q(5453),
+         q(0),
+         ],
+      q(pii) => [
+         q(5454),
+         q(0),
+         ],
+      q(pij) => [
+         q(5455),
+         q(0),
+         ],
+      q(pil) => [
+         q(5456),
+         q(0),
+         ],
+      q(pim) => [
+         q(5457),
+         q(0),
+         ],
+      q(pin) => [
+         q(5458),
+         q(0),
+         ],
+      q(pio) => [
+         q(5459),
+         q(0),
+         ],
+      q(pip) => [
+         q(5460),
+         q(0),
+         ],
+      q(pir) => [
+         q(5461),
+         q(0),
+         ],
+      q(pis) => [
+         q(5462),
+         q(0),
+         ],
+      q(pit) => [
+         q(5463),
+         q(0),
+         ],
+      q(piu) => [
+         q(5464),
+         q(0),
+         ],
+      q(piv) => [
+         q(5465),
+         q(0),
+         ],
+      q(piw) => [
+         q(5466),
+         q(0),
+         ],
+      q(pix) => [
+         q(5467),
+         q(0),
+         ],
+      q(piy) => [
+         q(5468),
+         q(0),
+         ],
+      q(piz) => [
+         q(5469),
+         q(0),
+         ],
+      q(pjt) => [
+         q(5470),
+         q(0),
+         ],
+      q(pka) => [
+         q(5471),
+         q(0),
+         ],
+      q(pkb) => [
+         q(5472),
+         q(0),
+         ],
+      q(pkc) => [
+         q(5473),
+         q(0),
+         ],
+      q(pkg) => [
+         q(5474),
+         q(0),
+         ],
+      q(pkh) => [
+         q(5475),
+         q(0),
+         ],
+      q(pkn) => [
+         q(5476),
+         q(0),
+         ],
+      q(pko) => [
+         q(5477),
+         q(0),
+         ],
+      q(pkp) => [
+         q(5478),
+         q(0),
+         ],
+      q(pkr) => [
+         q(5479),
+         q(0),
+         ],
+      q(pks) => [
+         q(5480),
+         q(0),
+         ],
+      q(pkt) => [
+         q(5481),
+         q(0),
+         ],
+      q(pku) => [
+         q(5482),
+         q(0),
+         ],
+      q(pla) => [
+         q(5483),
+         q(0),
+         ],
+      q(plb) => [
+         q(5484),
+         q(0),
+         ],
+      q(plc) => [
+         q(5485),
+         q(0),
+         ],
+      q(pld) => [
+         q(5486),
+         q(0),
+         ],
+      q(ple) => [
+         q(5487),
+         q(0),
+         ],
+      q(plf) => [
+         q(0520),
+         q(0),
+         ],
+      q(plg) => [
+         q(5488),
+         q(0),
+         ],
+      q(plh) => [
+         q(5489),
+         q(0),
+         ],
+      q(pli) => [
+         q(0346),
+         q(0),
+         ],
+      q(plj) => [
+         q(5490),
+         q(0),
+         ],
+      q(plk) => [
+         q(5491),
+         q(0),
+         ],
+      q(pll) => [
+         q(5492),
+         q(0),
+         ],
+      q(pln) => [
+         q(5493),
+         q(0),
+         ],
+      q(plo) => [
+         q(5494),
+         q(0),
+         ],
+      q(plp) => [
+         q(5495),
+         q(0),
+         ],
+      q(plq) => [
+         q(5496),
+         q(0),
+         ],
+      q(plr) => [
+         q(5497),
+         q(0),
+         ],
+      q(pls) => [
+         q(5498),
+         q(0),
+         ],
+      q(plt) => [
+         q(5499),
+         q(0),
+         ],
+      q(plu) => [
+         q(5500),
+         q(0),
+         ],
+      q(plv) => [
+         q(5501),
+         q(0),
+         ],
+      q(plw) => [
+         q(5502),
+         q(0),
+         ],
+      q(ply) => [
+         q(5503),
+         q(0),
+         ],
+      q(plz) => [
+         q(5504),
+         q(0),
+         ],
+      q(pma) => [
+         q(5505),
+         q(0),
+         ],
+      q(pmb) => [
+         q(5506),
+         q(0),
+         ],
+      q(pmd) => [
+         q(5507),
+         q(0),
+         ],
+      q(pme) => [
+         q(5508),
+         q(0),
+         ],
+      q(pmf) => [
+         q(5509),
+         q(0),
+         ],
+      q(pmh) => [
+         q(5510),
+         q(0),
+         ],
+      q(pmi) => [
+         q(5511),
+         q(0),
+         ],
+      q(pmj) => [
+         q(5512),
+         q(0),
+         ],
+      q(pmk) => [
+         q(5513),
+         q(0),
+         ],
+      q(pml) => [
+         q(5514),
+         q(0),
+         ],
+      q(pmm) => [
+         q(5515),
+         q(0),
+         ],
+      q(pmn) => [
+         q(5516),
+         q(0),
+         ],
+      q(pmo) => [
+         q(5517),
+         q(0),
+         ],
+      q(pmq) => [
+         q(5518),
+         q(0),
+         ],
+      q(pmr) => [
+         q(5519),
+         q(0),
+         ],
+      q(pms) => [
+         q(5520),
+         q(0),
+         ],
+      q(pmt) => [
+         q(5521),
+         q(0),
+         ],
+      q(pmw) => [
+         q(5522),
+         q(0),
+         ],
+      q(pmx) => [
+         q(5523),
+         q(0),
+         ],
+      q(pmy) => [
+         q(5524),
+         q(0),
+         ],
+      q(pmz) => [
+         q(5525),
+         q(0),
+         ],
+      q(pna) => [
+         q(5526),
+         q(0),
+         ],
+      q(pnb) => [
+         q(5527),
+         q(0),
+         ],
+      q(pnc) => [
+         q(5528),
+         q(0),
+         ],
+      q(pne) => [
+         q(5529),
+         q(0),
+         ],
+      q(png) => [
+         q(5530),
+         q(0),
+         ],
+      q(pnh) => [
+         q(5531),
+         q(0),
+         ],
+      q(pni) => [
+         q(5532),
+         q(0),
+         ],
+      q(pnj) => [
+         q(5533),
+         q(0),
+         ],
+      q(pnk) => [
+         q(5534),
+         q(0),
+         ],
+      q(pnl) => [
+         q(5535),
+         q(0),
+         ],
+      q(pnm) => [
+         q(5536),
+         q(0),
+         ],
+      q(pnn) => [
+         q(5537),
+         q(0),
+         ],
+      q(pno) => [
+         q(5538),
+         q(0),
+         ],
+      q(pnp) => [
+         q(5539),
+         q(0),
+         ],
+      q(pnq) => [
+         q(5540),
+         q(0),
+         ],
+      q(pnr) => [
+         q(5541),
+         q(0),
+         ],
+      q(pns) => [
+         q(5542),
+         q(0),
+         ],
+      q(pnt) => [
+         q(5543),
+         q(0),
+         ],
+      q(pnu) => [
+         q(5544),
+         q(0),
+         ],
+      q(pnv) => [
+         q(5545),
+         q(0),
+         ],
+      q(pnw) => [
+         q(5546),
+         q(0),
+         ],
+      q(pnx) => [
+         q(5547),
+         q(0),
+         ],
+      q(pny) => [
+         q(5548),
+         q(0),
+         ],
+      q(pnz) => [
+         q(5549),
+         q(0),
+         ],
+      q(poc) => [
+         q(5550),
+         q(0),
+         ],
+      q(poe) => [
+         q(5551),
+         q(0),
+         ],
+      q(pof) => [
+         q(5552),
+         q(0),
+         ],
+      q(pog) => [
+         q(5553),
+         q(0),
+         ],
+      q(poh) => [
+         q(5554),
+         q(0),
+         ],
+      q(poi) => [
+         q(5555),
+         q(0),
+         ],
+      q(pok) => [
+         q(5556),
+         q(0),
+         ],
+      q(pol) => [
+         q(0347),
+         q(0),
+         ],
+      q(pom) => [
+         q(5557),
+         q(0),
+         ],
+      q(pon) => [
+         q(0348),
+         q(0),
+         ],
+      q(poo) => [
+         q(5558),
+         q(0),
+         ],
+      q(pop) => [
+         q(5559),
+         q(0),
+         ],
+      q(poq) => [
+         q(5560),
+         q(0),
+         ],
+      q(por) => [
+         q(0349),
+         q(0),
+         ],
+      q(pos) => [
+         q(5561),
+         q(0),
+         ],
+      q(pot) => [
+         q(5562),
+         q(0),
+         ],
+      q(pov) => [
+         q(5563),
+         q(0),
+         ],
+      q(pow) => [
+         q(5564),
+         q(0),
+         ],
+      q(pox) => [
+         q(5565),
+         q(0),
+         ],
+      q(poy) => [
+         q(5566),
+         q(0),
+         ],
+      q(poz) => [
+         q(0521),
+         q(0),
+         ],
+      q(ppe) => [
+         q(5567),
+         q(0),
+         ],
+      q(ppi) => [
+         q(5568),
+         q(0),
+         ],
+      q(ppk) => [
+         q(5569),
+         q(0),
+         ],
+      q(ppl) => [
+         q(5570),
+         q(0),
+         ],
+      q(ppm) => [
+         q(5571),
+         q(0),
+         ],
+      q(ppn) => [
+         q(5572),
+         q(0),
+         ],
+      q(ppo) => [
+         q(5573),
+         q(0),
+         ],
+      q(ppp) => [
+         q(5574),
+         q(0),
+         ],
+      q(ppq) => [
+         q(5575),
+         q(0),
+         ],
+      q(pps) => [
+         q(5576),
+         q(0),
+         ],
+      q(ppt) => [
+         q(5577),
+         q(0),
+         ],
+      q(ppu) => [
+         q(5578),
+         q(0),
+         ],
+      q(pqa) => [
+         q(5579),
+         q(0),
+         ],
+      q(pqe) => [
+         q(0522),
+         q(0),
+         ],
+      q(pqm) => [
+         q(5580),
+         q(0),
+         ],
+      q(pqw) => [
+         q(0523),
+         q(0),
+         ],
+      q(pra) => [
+         q(0350),
+         q(0),
+         ],
+      q(prc) => [
+         q(5581),
+         q(0),
+         ],
+      q(prd) => [
+         q(5582),
+         q(0),
+         ],
+      q(pre) => [
+         q(5583),
+         q(0),
+         ],
+      q(prf) => [
+         q(5584),
+         q(0),
+         ],
+      q(prg) => [
+         q(5585),
+         q(0),
+         ],
+      q(prh) => [
+         q(5586),
+         q(0),
+         ],
+      q(pri) => [
+         q(5587),
+         q(0),
+         ],
+      q(prk) => [
+         q(5588),
+         q(0),
+         ],
+      q(prl) => [
+         q(5589),
+         q(0),
+         ],
+      q(prm) => [
+         q(5590),
+         q(0),
+         ],
+      q(prn) => [
+         q(5591),
+         q(0),
+         ],
+      q(pro) => [
+         q(0351),
+         q(1),
+         ],
+      q(prp) => [
+         q(5592),
+         q(0),
+         ],
+      q(prq) => [
+         q(5593),
+         q(0),
+         ],
+      q(prr) => [
+         q(5594),
+         q(0),
+         ],
+      q(prs) => [
+         q(5595),
+         q(0),
+         ],
+      q(prt) => [
+         q(5596),
+         q(0),
+         ],
+      q(pru) => [
+         q(5597),
+         q(0),
+         ],
+      q(prw) => [
+         q(5598),
+         q(0),
+         ],
+      q(prx) => [
+         q(5599),
+         q(0),
+         ],
+      q(prz) => [
+         q(5600),
+         q(0),
+         ],
+      q(psa) => [
+         q(5601),
+         q(0),
+         ],
+      q(psc) => [
+         q(5602),
+         q(0),
+         ],
+      q(psd) => [
+         q(5603),
+         q(0),
+         ],
+      q(pse) => [
+         q(5604),
+         q(0),
+         ],
+      q(psg) => [
+         q(5605),
+         q(0),
+         ],
+      q(psh) => [
+         q(5606),
+         q(0),
+         ],
+      q(psi) => [
+         q(5607),
+         q(0),
+         ],
+      q(psl) => [
+         q(5608),
+         q(0),
+         ],
+      q(psm) => [
+         q(5609),
+         q(0),
+         ],
+      q(psn) => [
+         q(5610),
+         q(0),
+         ],
+      q(pso) => [
+         q(5611),
+         q(0),
+         ],
+      q(psp) => [
+         q(5612),
+         q(0),
+         ],
+      q(psq) => [
+         q(5613),
+         q(0),
+         ],
+      q(psr) => [
+         q(5614),
+         q(0),
+         ],
+      q(pss) => [
+         q(5615),
+         q(0),
+         ],
+      q(pst) => [
+         q(5616),
+         q(0),
+         ],
+      q(psu) => [
+         q(5617),
+         q(0),
+         ],
+      q(psw) => [
+         q(5618),
+         q(0),
+         ],
+      q(psy) => [
+         q(5619),
+         q(0),
+         ],
+      q(pta) => [
+         q(5620),
+         q(0),
+         ],
+      q(pth) => [
+         q(5621),
+         q(0),
+         ],
+      q(pti) => [
+         q(5622),
+         q(0),
+         ],
+      q(ptn) => [
+         q(5623),
+         q(0),
+         ],
+      q(pto) => [
+         q(5624),
+         q(0),
+         ],
+      q(ptp) => [
+         q(5625),
+         q(0),
+         ],
+      q(ptq) => [
+         q(5626),
+         q(0),
+         ],
+      q(ptr) => [
+         q(5627),
+         q(0),
+         ],
+      q(ptt) => [
+         q(5628),
+         q(0),
+         ],
+      q(ptu) => [
+         q(5629),
+         q(0),
+         ],
+      q(ptv) => [
+         q(5630),
+         q(0),
+         ],
+      q(ptw) => [
+         q(5631),
+         q(0),
+         ],
+      q(pty) => [
+         q(5632),
+         q(0),
+         ],
+      q(pua) => [
+         q(5633),
+         q(0),
+         ],
+      q(pub) => [
+         q(5634),
+         q(0),
+         ],
+      q(puc) => [
+         q(5635),
+         q(0),
+         ],
+      q(pud) => [
+         q(5636),
+         q(0),
+         ],
+      q(pue) => [
+         q(5637),
+         q(0),
+         ],
+      q(puf) => [
+         q(5638),
+         q(0),
+         ],
+      q(pug) => [
+         q(5639),
+         q(0),
+         ],
+      q(pui) => [
+         q(5640),
+         q(0),
+         ],
+      q(puj) => [
+         q(5641),
+         q(0),
+         ],
+      q(pum) => [
+         q(5642),
+         q(0),
+         ],
+      q(puo) => [
+         q(5643),
+         q(0),
+         ],
+      q(pup) => [
+         q(5644),
+         q(0),
+         ],
+      q(puq) => [
+         q(5645),
+         q(0),
+         ],
+      q(pur) => [
+         q(5646),
+         q(0),
+         ],
+      q(pus) => [
+         q(0352),
+         q(0),
+         ],
+      q(put) => [
+         q(5647),
+         q(0),
+         ],
+      q(puu) => [
+         q(5648),
+         q(0),
+         ],
+      q(puw) => [
+         q(5649),
+         q(0),
+         ],
+      q(pux) => [
+         q(5650),
+         q(0),
+         ],
+      q(puy) => [
+         q(5651),
+         q(0),
+         ],
+      q(pwa) => [
+         q(5652),
+         q(0),
+         ],
+      q(pwb) => [
+         q(5653),
+         q(0),
+         ],
+      q(pwg) => [
+         q(5654),
+         q(0),
+         ],
+      q(pwi) => [
+         q(5655),
+         q(0),
+         ],
+      q(pwm) => [
+         q(5656),
+         q(0),
+         ],
+      q(pwn) => [
+         q(5657),
+         q(0),
+         ],
+      q(pwo) => [
+         q(5658),
+         q(0),
+         ],
+      q(pwr) => [
+         q(5659),
+         q(0),
+         ],
+      q(pww) => [
+         q(5660),
+         q(0),
+         ],
+      q(pxm) => [
+         q(5661),
+         q(0),
+         ],
+      q(pye) => [
+         q(5662),
+         q(0),
+         ],
+      q(pym) => [
+         q(5663),
+         q(0),
+         ],
+      q(pyn) => [
+         q(5664),
+         q(0),
+         ],
+      q(pys) => [
+         q(5665),
+         q(0),
+         ],
+      q(pyu) => [
+         q(5666),
+         q(0),
+         ],
+      q(pyx) => [
+         q(5667),
+         q(0),
+         ],
+      q(pyy) => [
+         q(5668),
+         q(0),
+         ],
+      q(pzn) => [
+         q(5669),
+         q(0),
+         ],
+      q(qtz) => [
+         q(0353),
+         q(0),
+         ],
+      q(qua) => [
+         q(5670),
+         q(0),
+         ],
+      q(qub) => [
+         q(5671),
+         q(0),
+         ],
+      q(quc) => [
+         q(5672),
+         q(0),
+         ],
+      q(qud) => [
+         q(5673),
+         q(0),
+         ],
+      q(que) => [
+         q(0354),
+         q(0),
+         ],
+      q(quf) => [
+         q(5674),
+         q(0),
+         ],
+      q(qug) => [
+         q(5675),
+         q(0),
+         ],
+      q(quh) => [
+         q(5676),
+         q(0),
+         ],
+      q(qui) => [
+         q(5677),
+         q(0),
+         ],
+      q(quk) => [
+         q(5678),
+         q(0),
+         ],
+      q(qul) => [
+         q(5679),
+         q(0),
+         ],
+      q(qum) => [
+         q(5680),
+         q(0),
+         ],
+      q(qun) => [
+         q(5681),
+         q(0),
+         ],
+      q(qup) => [
+         q(5682),
+         q(0),
+         ],
+      q(quq) => [
+         q(5683),
+         q(0),
+         ],
+      q(qur) => [
+         q(5684),
+         q(0),
+         ],
+      q(qus) => [
+         q(5685),
+         q(0),
+         ],
+      q(quv) => [
+         q(5686),
+         q(0),
+         ],
+      q(quw) => [
+         q(5687),
+         q(0),
+         ],
+      q(qux) => [
+         q(5688),
+         q(0),
+         ],
+      q(quy) => [
+         q(5689),
+         q(0),
+         ],
+      q(quz) => [
+         q(5690),
+         q(0),
+         ],
+      q(qva) => [
+         q(5691),
+         q(0),
+         ],
+      q(qvc) => [
+         q(5692),
+         q(0),
+         ],
+      q(qve) => [
+         q(5693),
+         q(0),
+         ],
+      q(qvh) => [
+         q(5694),
+         q(0),
+         ],
+      q(qvi) => [
+         q(5695),
+         q(0),
+         ],
+      q(qvj) => [
+         q(5696),
+         q(0),
+         ],
+      q(qvl) => [
+         q(5697),
+         q(0),
+         ],
+      q(qvm) => [
+         q(5698),
+         q(0),
+         ],
+      q(qvn) => [
+         q(5699),
+         q(0),
+         ],
+      q(qvo) => [
+         q(5700),
+         q(0),
+         ],
+      q(qvp) => [
+         q(5701),
+         q(0),
+         ],
+      q(qvs) => [
+         q(5702),
+         q(0),
+         ],
+      q(qvw) => [
+         q(5703),
+         q(0),
+         ],
+      q(qvy) => [
+         q(5704),
+         q(0),
+         ],
+      q(qvz) => [
+         q(5705),
+         q(0),
+         ],
+      q(qwa) => [
+         q(5706),
+         q(0),
+         ],
+      q(qwc) => [
+         q(5707),
+         q(0),
+         ],
+      q(qwe) => [
+         q(0524),
+         q(0),
+         ],
+      q(qwh) => [
+         q(5708),
+         q(0),
+         ],
+      q(qwm) => [
+         q(5709),
+         q(0),
+         ],
+      q(qws) => [
+         q(5710),
+         q(0),
+         ],
+      q(qwt) => [
+         q(5711),
+         q(0),
+         ],
+      q(qxa) => [
+         q(5712),
+         q(0),
+         ],
+      q(qxc) => [
+         q(5713),
+         q(0),
+         ],
+      q(qxh) => [
+         q(5714),
+         q(0),
+         ],
+      q(qxl) => [
+         q(5715),
+         q(0),
+         ],
+      q(qxn) => [
+         q(5716),
+         q(0),
+         ],
+      q(qxo) => [
+         q(5717),
+         q(0),
+         ],
+      q(qxp) => [
+         q(5718),
+         q(0),
+         ],
+      q(qxq) => [
+         q(5719),
+         q(0),
+         ],
+      q(qxr) => [
+         q(5720),
+         q(0),
+         ],
+      q(qxs) => [
+         q(5721),
+         q(0),
+         ],
+      q(qxt) => [
+         q(5722),
+         q(0),
+         ],
+      q(qxu) => [
+         q(5723),
+         q(0),
+         ],
+      q(qxw) => [
+         q(5724),
+         q(0),
+         ],
+      q(qya) => [
+         q(5725),
+         q(0),
+         ],
+      q(qyp) => [
+         q(5726),
+         q(0),
+         ],
+      q(raa) => [
+         q(5727),
+         q(0),
+         ],
+      q(rab) => [
+         q(5728),
+         q(0),
+         ],
+      q(rac) => [
+         q(5729),
+         q(0),
+         ],
+      q(rad) => [
+         q(5730),
+         q(0),
+         ],
+      q(raf) => [
+         q(5731),
+         q(0),
+         ],
+      q(rag) => [
+         q(5732),
+         q(0),
+         ],
+      q(rah) => [
+         q(5733),
+         q(0),
+         ],
+      q(rai) => [
+         q(5734),
+         q(0),
+         ],
+      q(raj) => [
+         q(0355),
+         q(0),
+         ],
+      q(rak) => [
+         q(5735),
+         q(0),
+         ],
+      q(ral) => [
+         q(5736),
+         q(0),
+         ],
+      q(ram) => [
+         q(5737),
+         q(0),
+         ],
+      q(ran) => [
+         q(5738),
+         q(0),
+         ],
+      q(rao) => [
+         q(5739),
+         q(0),
+         ],
+      q(rap) => [
+         q(0356),
+         q(0),
+         ],
+      q(raq) => [
+         q(5740),
+         q(0),
+         ],
+      q(rar) => [
+         q(0357),
+         q(0),
+         ],
+      q(ras) => [
+         q(5741),
+         q(0),
+         ],
+      q(rat) => [
+         q(5742),
+         q(0),
+         ],
+      q(rau) => [
+         q(5743),
+         q(0),
+         ],
+      q(rav) => [
+         q(5744),
+         q(0),
+         ],
+      q(raw) => [
+         q(5745),
+         q(0),
+         ],
+      q(rax) => [
+         q(5746),
+         q(0),
+         ],
+      q(ray) => [
+         q(5747),
+         q(0),
+         ],
+      q(raz) => [
+         q(5748),
+         q(0),
+         ],
+      q(rbb) => [
+         q(5749),
+         q(0),
+         ],
+      q(rbk) => [
+         q(5750),
+         q(0),
+         ],
+      q(rbl) => [
+         q(5751),
+         q(0),
+         ],
+      q(rbp) => [
+         q(5752),
+         q(0),
+         ],
+      q(rcf) => [
+         q(5753),
+         q(0),
+         ],
+      q(rdb) => [
+         q(5754),
+         q(0),
+         ],
+      q(rea) => [
+         q(5755),
+         q(0),
+         ],
+      q(reb) => [
+         q(5756),
+         q(0),
+         ],
+      q(ree) => [
+         q(5757),
+         q(0),
+         ],
+      q(reg) => [
+         q(5758),
+         q(0),
+         ],
+      q(rei) => [
+         q(5759),
+         q(0),
+         ],
+      q(rej) => [
+         q(5760),
+         q(0),
+         ],
+      q(rel) => [
+         q(5761),
+         q(0),
+         ],
+      q(rem) => [
+         q(5762),
+         q(0),
+         ],
+      q(ren) => [
+         q(5763),
+         q(0),
+         ],
+      q(rer) => [
+         q(5764),
+         q(0),
+         ],
+      q(res) => [
+         q(5765),
+         q(0),
+         ],
+      q(ret) => [
+         q(5766),
+         q(0),
+         ],
+      q(rey) => [
+         q(5767),
+         q(0),
+         ],
+      q(rga) => [
+         q(5768),
+         q(0),
+         ],
+      q(rge) => [
+         q(5769),
+         q(0),
+         ],
+      q(rgk) => [
+         q(5770),
+         q(0),
+         ],
+      q(rgn) => [
+         q(5771),
+         q(0),
+         ],
+      q(rgr) => [
+         q(5772),
+         q(0),
+         ],
+      q(rgs) => [
+         q(5773),
+         q(0),
+         ],
+      q(rgu) => [
+         q(5774),
+         q(0),
+         ],
+      q(rhg) => [
+         q(5775),
+         q(0),
+         ],
+      q(rhp) => [
+         q(5776),
+         q(0),
+         ],
+      q(ria) => [
+         q(5777),
+         q(0),
+         ],
+      q(rif) => [
+         q(5778),
+         q(0),
+         ],
+      q(ril) => [
+         q(5779),
+         q(0),
+         ],
+      q(rim) => [
+         q(5780),
+         q(0),
+         ],
+      q(rin) => [
+         q(5781),
+         q(0),
+         ],
+      q(rir) => [
+         q(5782),
+         q(0),
+         ],
+      q(rit) => [
+         q(5783),
+         q(0),
+         ],
+      q(riu) => [
+         q(5784),
+         q(0),
+         ],
+      q(rjg) => [
+         q(5785),
+         q(0),
+         ],
+      q(rji) => [
+         q(5786),
+         q(0),
+         ],
+      q(rjs) => [
+         q(5787),
+         q(0),
+         ],
+      q(rka) => [
+         q(5788),
+         q(0),
+         ],
+      q(rkb) => [
+         q(5789),
+         q(0),
+         ],
+      q(rkh) => [
+         q(5790),
+         q(0),
+         ],
+      q(rki) => [
+         q(5791),
+         q(0),
+         ],
+      q(rkm) => [
+         q(5792),
+         q(0),
+         ],
+      q(rkt) => [
+         q(5793),
+         q(0),
+         ],
+      q(rkw) => [
+         q(5794),
+         q(0),
+         ],
+      q(rma) => [
+         q(5795),
+         q(0),
+         ],
+      q(rmb) => [
+         q(5796),
+         q(0),
+         ],
+      q(rmc) => [
+         q(5797),
+         q(0),
+         ],
+      q(rmd) => [
+         q(5798),
+         q(0),
+         ],
+      q(rme) => [
+         q(5799),
+         q(0),
+         ],
+      q(rmf) => [
+         q(5800),
+         q(0),
+         ],
+      q(rmg) => [
+         q(5801),
+         q(0),
+         ],
+      q(rmh) => [
+         q(5802),
+         q(0),
+         ],
+      q(rmi) => [
+         q(5803),
+         q(0),
+         ],
+      q(rmk) => [
+         q(5804),
+         q(0),
+         ],
+      q(rml) => [
+         q(5805),
+         q(0),
+         ],
+      q(rmm) => [
+         q(5806),
+         q(0),
+         ],
+      q(rmn) => [
+         q(5807),
+         q(0),
+         ],
+      q(rmo) => [
+         q(5808),
+         q(0),
+         ],
+      q(rmp) => [
+         q(5809),
+         q(0),
+         ],
+      q(rmq) => [
+         q(5810),
+         q(0),
+         ],
+      q(rms) => [
+         q(5811),
+         q(0),
+         ],
+      q(rmt) => [
+         q(5812),
+         q(0),
+         ],
+      q(rmu) => [
+         q(5813),
+         q(0),
+         ],
+      q(rmv) => [
+         q(5814),
+         q(0),
+         ],
+      q(rmw) => [
+         q(5815),
+         q(0),
+         ],
+      q(rmx) => [
+         q(5816),
+         q(0),
+         ],
+      q(rmy) => [
+         q(5817),
+         q(0),
+         ],
+      q(rmz) => [
+         q(5818),
+         q(0),
+         ],
+      q(rnd) => [
+         q(5819),
+         q(0),
+         ],
+      q(rng) => [
+         q(5820),
+         q(0),
+         ],
+      q(rnl) => [
+         q(5821),
+         q(0),
+         ],
+      q(rnn) => [
+         q(5822),
+         q(0),
+         ],
+      q(rnp) => [
+         q(5823),
+         q(0),
+         ],
+      q(rnr) => [
+         q(5824),
+         q(0),
+         ],
+      q(rnw) => [
+         q(5825),
+         q(0),
+         ],
+      q(roa) => [
+         q(0358),
+         q(0),
+         ],
+      q(rob) => [
+         q(5826),
+         q(0),
+         ],
+      q(roc) => [
+         q(5827),
+         q(0),
+         ],
+      q(rod) => [
+         q(5828),
+         q(0),
+         ],
+      q(roe) => [
+         q(5829),
+         q(0),
+         ],
+      q(rof) => [
+         q(5830),
+         q(0),
+         ],
+      q(rog) => [
+         q(5831),
+         q(0),
+         ],
+      q(roh) => [
+         q(0359),
+         q(0),
+         ],
+      q(rol) => [
+         q(5832),
+         q(0),
+         ],
+      q(rom) => [
+         q(0360),
+         q(0),
+         ],
+      q(roo) => [
+         q(5833),
+         q(0),
+         ],
+      q(rop) => [
+         q(5834),
+         q(0),
+         ],
+      q(ror) => [
+         q(5835),
+         q(0),
+         ],
+      q(rou) => [
+         q(5836),
+         q(0),
+         ],
+      q(row) => [
+         q(5837),
+         q(0),
+         ],
+      q(rpn) => [
+         q(5838),
+         q(0),
+         ],
+      q(rpt) => [
+         q(5839),
+         q(0),
+         ],
+      q(rri) => [
+         q(5840),
+         q(0),
+         ],
+      q(rro) => [
+         q(5841),
+         q(0),
+         ],
+      q(rrt) => [
+         q(5842),
+         q(0),
+         ],
+      q(rsb) => [
+         q(5843),
+         q(0),
+         ],
+      q(rsl) => [
+         q(5844),
+         q(0),
+         ],
+      q(rsm) => [
+         q(5845),
+         q(0),
+         ],
+      q(rtc) => [
+         q(5846),
+         q(0),
+         ],
+      q(rth) => [
+         q(5847),
+         q(0),
+         ],
+      q(rtm) => [
+         q(5848),
+         q(0),
+         ],
+      q(rts) => [
+         q(5849),
+         q(0),
+         ],
+      q(rtw) => [
+         q(5850),
+         q(0),
+         ],
+      q(rub) => [
+         q(5851),
+         q(0),
+         ],
+      q(ruc) => [
+         q(5852),
+         q(0),
+         ],
+      q(rue) => [
+         q(5853),
+         q(0),
+         ],
+      q(ruf) => [
+         q(5854),
+         q(0),
+         ],
+      q(rug) => [
+         q(5855),
+         q(0),
+         ],
+      q(ruh) => [
+         q(5856),
+         q(0),
+         ],
+      q(rui) => [
+         q(5857),
+         q(0),
+         ],
+      q(ruk) => [
+         q(5858),
+         q(0),
+         ],
+      q(rum) => [
+         q(0361),
+         q(0),
+         ],
+      q(run) => [
+         q(0362),
+         q(0),
+         ],
+      q(ruo) => [
+         q(5859),
+         q(0),
+         ],
+      q(rup) => [
+         q(0363),
+         q(2),
+         ],
+      q(ruq) => [
+         q(5860),
+         q(0),
+         ],
+      q(rus) => [
+         q(0364),
+         q(0),
+         ],
+      q(rut) => [
+         q(5861),
+         q(0),
+         ],
+      q(ruu) => [
+         q(5862),
+         q(0),
+         ],
+      q(ruy) => [
+         q(5863),
+         q(0),
+         ],
+      q(ruz) => [
+         q(5864),
+         q(0),
+         ],
+      q(rwa) => [
+         q(5865),
+         q(0),
+         ],
+      q(rwk) => [
+         q(5866),
+         q(0),
+         ],
+      q(rwm) => [
+         q(5867),
+         q(0),
+         ],
+      q(rwo) => [
+         q(5868),
+         q(0),
+         ],
+      q(rwr) => [
+         q(5869),
+         q(0),
+         ],
+      q(rxd) => [
+         q(5870),
+         q(0),
+         ],
+      q(rxw) => [
+         q(5871),
+         q(0),
+         ],
+      q(ryn) => [
+         q(5872),
+         q(0),
+         ],
+      q(rys) => [
+         q(5873),
+         q(0),
+         ],
+      q(ryu) => [
+         q(5874),
+         q(0),
+         ],
+      q(rzh) => [
+         q(5875),
+         q(0),
+         ],
+      q(saa) => [
+         q(5876),
+         q(0),
+         ],
+      q(sab) => [
+         q(5877),
+         q(0),
+         ],
+      q(sac) => [
+         q(5878),
+         q(0),
+         ],
+      q(sad) => [
+         q(0365),
+         q(0),
+         ],
+      q(sae) => [
+         q(5879),
+         q(0),
+         ],
+      q(saf) => [
+         q(5880),
+         q(0),
+         ],
+      q(sag) => [
+         q(0366),
+         q(0),
+         ],
+      q(sah) => [
+         q(0367),
+         q(0),
+         ],
+      q(sai) => [
+         q(0368),
+         q(1),
+         ],
+      q(saj) => [
+         q(5881),
+         q(0),
+         ],
+      q(sak) => [
+         q(5882),
+         q(0),
+         ],
+      q(sal) => [
+         q(0369),
+         q(0),
+         ],
+      q(sam) => [
+         q(0370),
+         q(0),
+         ],
+      q(san) => [
+         q(0371),
+         q(0),
+         ],
+      q(sao) => [
+         q(5883),
+         q(0),
+         ],
+      q(saq) => [
+         q(5884),
+         q(0),
+         ],
+      q(sar) => [
+         q(5885),
+         q(0),
+         ],
+      q(sas) => [
+         q(0372),
+         q(0),
+         ],
+      q(sat) => [
+         q(0373),
+         q(0),
+         ],
+      q(sau) => [
+         q(5886),
+         q(0),
+         ],
+      q(sav) => [
+         q(5887),
+         q(0),
+         ],
+      q(saw) => [
+         q(5888),
+         q(0),
+         ],
+      q(sax) => [
+         q(5889),
+         q(0),
+         ],
+      q(say) => [
+         q(5890),
+         q(0),
+         ],
+      q(saz) => [
+         q(5891),
+         q(0),
+         ],
+      q(sba) => [
+         q(5892),
+         q(0),
+         ],
+      q(sbb) => [
+         q(5893),
+         q(0),
+         ],
+      q(sbc) => [
+         q(5894),
+         q(0),
+         ],
+      q(sbd) => [
+         q(5895),
+         q(0),
+         ],
+      q(sbe) => [
+         q(5896),
+         q(0),
+         ],
+      q(sbf) => [
+         q(5897),
+         q(0),
+         ],
+      q(sbg) => [
+         q(5898),
+         q(0),
+         ],
+      q(sbh) => [
+         q(5899),
+         q(0),
+         ],
+      q(sbi) => [
+         q(5900),
+         q(0),
+         ],
+      q(sbj) => [
+         q(5901),
+         q(0),
+         ],
+      q(sbk) => [
+         q(5902),
+         q(0),
+         ],
+      q(sbl) => [
+         q(5903),
+         q(0),
+         ],
+      q(sbm) => [
+         q(5904),
+         q(0),
+         ],
+      q(sbn) => [
+         q(5905),
+         q(0),
+         ],
+      q(sbo) => [
+         q(5906),
+         q(0),
+         ],
+      q(sbp) => [
+         q(5907),
+         q(0),
+         ],
+      q(sbq) => [
+         q(5908),
+         q(0),
+         ],
+      q(sbr) => [
+         q(5909),
+         q(0),
+         ],
+      q(sbs) => [
+         q(5910),
+         q(0),
+         ],
+      q(sbt) => [
+         q(5911),
+         q(0),
+         ],
+      q(sbu) => [
+         q(5912),
+         q(0),
+         ],
+      q(sbv) => [
+         q(5913),
+         q(0),
+         ],
+      q(sbw) => [
+         q(5914),
+         q(0),
+         ],
+      q(sbx) => [
+         q(5915),
+         q(0),
+         ],
+      q(sby) => [
+         q(5916),
+         q(0),
+         ],
+      q(sbz) => [
+         q(5917),
+         q(0),
+         ],
+      q(scb) => [
+         q(5918),
+         q(0),
+         ],
+      q(sce) => [
+         q(5919),
+         q(0),
+         ],
+      q(scf) => [
+         q(5920),
+         q(0),
+         ],
+      q(scg) => [
+         q(5921),
+         q(0),
+         ],
+      q(sch) => [
+         q(5922),
+         q(0),
+         ],
+      q(sci) => [
+         q(5923),
+         q(0),
+         ],
+      q(sck) => [
+         q(5924),
+         q(0),
+         ],
+      q(scl) => [
+         q(5925),
+         q(0),
+         ],
+      q(scn) => [
+         q(0374),
+         q(0),
+         ],
+      q(sco) => [
+         q(0375),
+         q(0),
+         ],
+      q(scp) => [
+         q(5926),
+         q(0),
+         ],
+      q(scq) => [
+         q(5927),
+         q(0),
+         ],
+      q(scs) => [
+         q(5928),
+         q(0),
+         ],
+      q(sct) => [
+         q(5929),
+         q(0),
+         ],
+      q(scu) => [
+         q(5930),
+         q(0),
+         ],
+      q(scv) => [
+         q(5931),
+         q(0),
+         ],
+      q(scw) => [
+         q(5932),
+         q(0),
+         ],
+      q(scx) => [
+         q(5933),
+         q(0),
+         ],
+      q(sda) => [
+         q(5934),
+         q(0),
+         ],
+      q(sdb) => [
+         q(5935),
+         q(0),
+         ],
+      q(sdc) => [
+         q(5936),
+         q(0),
+         ],
+      q(sde) => [
+         q(5937),
+         q(0),
+         ],
+      q(sdf) => [
+         q(5938),
+         q(0),
+         ],
+      q(sdg) => [
+         q(5939),
+         q(0),
+         ],
+      q(sdh) => [
+         q(5940),
+         q(0),
+         ],
+      q(sdj) => [
+         q(5941),
+         q(0),
+         ],
+      q(sdk) => [
+         q(5942),
+         q(0),
+         ],
+      q(sdl) => [
+         q(5943),
+         q(0),
+         ],
+      q(sdm) => [
+         q(5944),
+         q(0),
+         ],
+      q(sdn) => [
+         q(5945),
+         q(0),
+         ],
+      q(sdo) => [
+         q(5946),
+         q(0),
+         ],
+      q(sdp) => [
+         q(5947),
+         q(0),
+         ],
+      q(sdr) => [
+         q(5948),
+         q(0),
+         ],
+      q(sds) => [
+         q(5949),
+         q(0),
+         ],
+      q(sdt) => [
+         q(5950),
+         q(0),
+         ],
+      q(sdu) => [
+         q(5951),
+         q(0),
+         ],
+      q(sdv) => [
+         q(0525),
+         q(0),
+         ],
+      q(sdx) => [
+         q(5952),
+         q(0),
+         ],
+      q(sdz) => [
+         q(5953),
+         q(0),
+         ],
+      q(sea) => [
+         q(5954),
+         q(0),
+         ],
+      q(seb) => [
+         q(5955),
+         q(0),
+         ],
+      q(sec) => [
+         q(5956),
+         q(0),
+         ],
+      q(sed) => [
+         q(5957),
+         q(0),
+         ],
+      q(see) => [
+         q(5958),
+         q(0),
+         ],
+      q(sef) => [
+         q(5959),
+         q(0),
+         ],
+      q(seg) => [
+         q(5960),
+         q(0),
+         ],
+      q(seh) => [
+         q(5961),
+         q(0),
+         ],
+      q(sei) => [
+         q(5962),
+         q(0),
+         ],
+      q(sej) => [
+         q(5963),
+         q(0),
+         ],
+      q(sek) => [
+         q(5964),
+         q(0),
+         ],
+      q(sel) => [
+         q(0376),
+         q(0),
+         ],
+      q(sem) => [
+         q(0377),
+         q(0),
+         ],
+      q(sen) => [
+         q(5965),
+         q(0),
+         ],
+      q(seo) => [
+         q(5966),
+         q(0),
+         ],
+      q(sep) => [
+         q(5967),
+         q(0),
+         ],
+      q(seq) => [
+         q(5968),
+         q(0),
+         ],
+      q(ser) => [
+         q(5969),
+         q(0),
+         ],
+      q(ses) => [
+         q(5970),
+         q(0),
+         ],
+      q(set) => [
+         q(5971),
+         q(0),
+         ],
+      q(seu) => [
+         q(5972),
+         q(0),
+         ],
+      q(sev) => [
+         q(5973),
+         q(0),
+         ],
+      q(sew) => [
+         q(5974),
+         q(0),
+         ],
+      q(sey) => [
+         q(5975),
+         q(0),
+         ],
+      q(sez) => [
+         q(5976),
+         q(0),
+         ],
+      q(sfb) => [
+         q(5977),
+         q(0),
+         ],
+      q(sfe) => [
+         q(5978),
+         q(0),
+         ],
+      q(sfm) => [
+         q(5979),
+         q(0),
+         ],
+      q(sfs) => [
+         q(5980),
+         q(0),
+         ],
+      q(sfw) => [
+         q(5981),
+         q(0),
+         ],
+      q(sga) => [
+         q(0378),
+         q(1),
+         ],
+      q(sgb) => [
+         q(5982),
+         q(0),
+         ],
+      q(sgc) => [
+         q(5983),
+         q(0),
+         ],
+      q(sgd) => [
+         q(5984),
+         q(0),
+         ],
+      q(sge) => [
+         q(5985),
+         q(0),
+         ],
+      q(sgg) => [
+         q(5986),
+         q(0),
+         ],
+      q(sgh) => [
+         q(5987),
+         q(0),
+         ],
+      q(sgi) => [
+         q(5988),
+         q(0),
+         ],
+      q(sgj) => [
+         q(5989),
+         q(0),
+         ],
+      q(sgk) => [
+         q(5990),
+         q(0),
+         ],
+      q(sgm) => [
+         q(5991),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0379),
+         q(0),
+         ],
+      q(sgp) => [
+         q(5992),
+         q(0),
+         ],
+      q(sgr) => [
+         q(5993),
+         q(0),
+         ],
+      q(sgs) => [
+         q(5994),
+         q(0),
+         ],
+      q(sgt) => [
+         q(5995),
+         q(0),
+         ],
+      q(sgu) => [
+         q(5996),
+         q(0),
+         ],
+      q(sgw) => [
+         q(5997),
+         q(0),
+         ],
+      q(sgx) => [
+         q(5998),
+         q(0),
+         ],
+      q(sgy) => [
+         q(5999),
+         q(0),
+         ],
+      q(sgz) => [
+         q(6000),
+         q(0),
+         ],
+      q(sha) => [
+         q(6001),
+         q(0),
+         ],
+      q(shb) => [
+         q(6002),
+         q(0),
+         ],
+      q(shc) => [
+         q(6003),
+         q(0),
+         ],
+      q(shd) => [
+         q(6004),
+         q(0),
+         ],
+      q(she) => [
+         q(6005),
+         q(0),
+         ],
+      q(shg) => [
+         q(6006),
+         q(0),
+         ],
+      q(shh) => [
+         q(6007),
+         q(0),
+         ],
+      q(shi) => [
+         q(6008),
+         q(0),
+         ],
+      q(shj) => [
+         q(6009),
+         q(0),
+         ],
+      q(shk) => [
+         q(6010),
+         q(0),
+         ],
+      q(shl) => [
+         q(6011),
+         q(0),
+         ],
+      q(shm) => [
+         q(6012),
+         q(0),
+         ],
+      q(shn) => [
+         q(0380),
+         q(0),
+         ],
+      q(sho) => [
+         q(6013),
+         q(0),
+         ],
+      q(shp) => [
+         q(6014),
+         q(0),
+         ],
+      q(shq) => [
+         q(6015),
+         q(0),
+         ],
+      q(shr) => [
+         q(6016),
+         q(0),
+         ],
+      q(shs) => [
+         q(6017),
+         q(0),
+         ],
+      q(sht) => [
+         q(6018),
+         q(0),
+         ],
+      q(shu) => [
+         q(6019),
+         q(0),
+         ],
+      q(shv) => [
+         q(6020),
+         q(0),
+         ],
+      q(shw) => [
+         q(6021),
+         q(0),
+         ],
+      q(shx) => [
+         q(6022),
+         q(0),
+         ],
+      q(shy) => [
+         q(6023),
+         q(0),
+         ],
+      q(shz) => [
+         q(6024),
+         q(0),
+         ],
+      q(sia) => [
+         q(6025),
+         q(0),
+         ],
+      q(sib) => [
+         q(6026),
+         q(0),
+         ],
+      q(sid) => [
+         q(0381),
+         q(0),
+         ],
+      q(sie) => [
+         q(6027),
+         q(0),
+         ],
+      q(sif) => [
+         q(6028),
+         q(0),
+         ],
+      q(sig) => [
+         q(6029),
+         q(0),
+         ],
+      q(sih) => [
+         q(6030),
+         q(0),
+         ],
+      q(sii) => [
+         q(6031),
+         q(0),
+         ],
+      q(sij) => [
+         q(6032),
+         q(0),
+         ],
+      q(sik) => [
+         q(6033),
+         q(0),
+         ],
+      q(sil) => [
+         q(6034),
+         q(0),
+         ],
+      q(sim) => [
+         q(6035),
+         q(0),
+         ],
+      q(sin) => [
+         q(0382),
+         q(0),
+         ],
+      q(sio) => [
+         q(0383),
+         q(0),
+         ],
+      q(sip) => [
+         q(6036),
+         q(0),
+         ],
+      q(siq) => [
+         q(6037),
+         q(0),
+         ],
+      q(sir) => [
+         q(6038),
+         q(0),
+         ],
+      q(sis) => [
+         q(6039),
+         q(0),
+         ],
+      q(sit) => [
+         q(0384),
+         q(0),
+         ],
+      q(siu) => [
+         q(6040),
+         q(0),
+         ],
+      q(siv) => [
+         q(6041),
+         q(0),
+         ],
+      q(siw) => [
+         q(6042),
+         q(0),
+         ],
+      q(six) => [
+         q(6043),
+         q(0),
+         ],
+      q(siy) => [
+         q(6044),
+         q(0),
+         ],
+      q(siz) => [
+         q(6045),
+         q(0),
+         ],
+      q(sja) => [
+         q(6046),
+         q(0),
+         ],
+      q(sjb) => [
+         q(6047),
+         q(0),
+         ],
+      q(sjd) => [
+         q(6048),
+         q(0),
+         ],
+      q(sje) => [
+         q(6049),
+         q(0),
+         ],
+      q(sjg) => [
+         q(6050),
+         q(0),
+         ],
+      q(sjk) => [
+         q(6051),
+         q(0),
+         ],
+      q(sjl) => [
+         q(6052),
+         q(0),
+         ],
+      q(sjm) => [
+         q(6053),
+         q(0),
+         ],
+      q(sjn) => [
+         q(6054),
+         q(0),
+         ],
+      q(sjo) => [
+         q(6055),
+         q(0),
+         ],
+      q(sjp) => [
+         q(6056),
+         q(0),
+         ],
+      q(sjr) => [
+         q(6057),
+         q(0),
+         ],
+      q(sjs) => [
+         q(6058),
+         q(0),
+         ],
+      q(sjt) => [
+         q(6059),
+         q(0),
+         ],
+      q(sju) => [
+         q(6060),
+         q(0),
+         ],
+      q(sjw) => [
+         q(6061),
+         q(0),
+         ],
+      q(ska) => [
+         q(6062),
+         q(0),
+         ],
+      q(skb) => [
+         q(6063),
+         q(0),
+         ],
+      q(skc) => [
+         q(6064),
+         q(0),
+         ],
+      q(skd) => [
+         q(6065),
+         q(0),
+         ],
+      q(ske) => [
+         q(6066),
+         q(0),
+         ],
+      q(skf) => [
+         q(6067),
+         q(0),
+         ],
+      q(skg) => [
+         q(6068),
+         q(0),
+         ],
+      q(skh) => [
+         q(6069),
+         q(0),
+         ],
+      q(ski) => [
+         q(6070),
+         q(0),
+         ],
+      q(skj) => [
+         q(6071),
+         q(0),
+         ],
+      q(skm) => [
+         q(6072),
+         q(0),
+         ],
+      q(skn) => [
+         q(6073),
+         q(0),
+         ],
+      q(sko) => [
+         q(6074),
+         q(0),
+         ],
+      q(skp) => [
+         q(6075),
+         q(0),
+         ],
+      q(skq) => [
+         q(6076),
+         q(0),
+         ],
+      q(skr) => [
+         q(6077),
+         q(0),
+         ],
+      q(sks) => [
+         q(6078),
+         q(0),
+         ],
+      q(skt) => [
+         q(6079),
+         q(0),
+         ],
+      q(sku) => [
+         q(6080),
+         q(0),
+         ],
+      q(skv) => [
+         q(6081),
+         q(0),
+         ],
+      q(skw) => [
+         q(6082),
+         q(0),
+         ],
+      q(skx) => [
+         q(6083),
+         q(0),
+         ],
+      q(sky) => [
+         q(6084),
+         q(0),
+         ],
+      q(skz) => [
+         q(6085),
+         q(0),
+         ],
+      q(sla) => [
+         q(0385),
+         q(0),
+         ],
+      q(slc) => [
+         q(5896),
+         q(0),
+         ],
+      q(sld) => [
+         q(6086),
+         q(0),
+         ],
+      q(sle) => [
+         q(6087),
+         q(0),
+         ],
+      q(slf) => [
+         q(6088),
+         q(0),
+         ],
+      q(slg) => [
+         q(6089),
+         q(0),
+         ],
+      q(slh) => [
+         q(6090),
+         q(0),
+         ],
+      q(sli) => [
+         q(6091),
+         q(0),
+         ],
+      q(slj) => [
+         q(6092),
+         q(0),
+         ],
+      q(sll) => [
+         q(6093),
+         q(0),
+         ],
+      q(slm) => [
+         q(6094),
+         q(0),
+         ],
+      q(sln) => [
+         q(6095),
+         q(0),
+         ],
+      q(slo) => [
+         q(0386),
+         q(0),
+         ],
+      q(slp) => [
+         q(6096),
+         q(0),
+         ],
+      q(slq) => [
+         q(6097),
+         q(0),
+         ],
+      q(slr) => [
+         q(6098),
+         q(0),
+         ],
+      q(sls) => [
+         q(6099),
+         q(0),
+         ],
+      q(slt) => [
+         q(6100),
+         q(0),
+         ],
+      q(slu) => [
+         q(6101),
+         q(0),
+         ],
+      q(slv) => [
+         q(0387),
+         q(0),
+         ],
+      q(slw) => [
+         q(6102),
+         q(0),
+         ],
+      q(slx) => [
+         q(6103),
+         q(0),
+         ],
+      q(sly) => [
+         q(6104),
+         q(0),
+         ],
+      q(slz) => [
+         q(6105),
+         q(0),
+         ],
+      q(sma) => [
+         q(0388),
+         q(0),
+         ],
+      q(smb) => [
+         q(6106),
+         q(0),
+         ],
+      q(smc) => [
+         q(6107),
+         q(0),
+         ],
+      q(smd) => [
+         q(6108),
+         q(0),
+         ],
+      q(sme) => [
+         q(0389),
+         q(0),
+         ],
+      q(smf) => [
+         q(6109),
+         q(0),
+         ],
+      q(smg) => [
+         q(6110),
+         q(0),
+         ],
+      q(smh) => [
+         q(6111),
+         q(0),
+         ],
+      q(smi) => [
+         q(0390),
+         q(0),
+         ],
+      q(smj) => [
+         q(0391),
+         q(0),
+         ],
+      q(smk) => [
+         q(6112),
+         q(0),
+         ],
+      q(sml) => [
+         q(6113),
+         q(0),
+         ],
+      q(smm) => [
+         q(6114),
+         q(0),
+         ],
+      q(smn) => [
+         q(0392),
+         q(0),
+         ],
+      q(smo) => [
+         q(0393),
+         q(0),
+         ],
+      q(smp) => [
+         q(6115),
+         q(0),
+         ],
+      q(smq) => [
+         q(6116),
+         q(0),
+         ],
+      q(smr) => [
+         q(6117),
+         q(0),
+         ],
+      q(sms) => [
+         q(0394),
+         q(0),
+         ],
+      q(smt) => [
+         q(6118),
+         q(0),
+         ],
+      q(smu) => [
+         q(6119),
+         q(0),
+         ],
+      q(smv) => [
+         q(6120),
+         q(0),
+         ],
+      q(smw) => [
+         q(6121),
+         q(0),
+         ],
+      q(smx) => [
+         q(6122),
+         q(0),
+         ],
+      q(smy) => [
+         q(6123),
+         q(0),
+         ],
+      q(smz) => [
+         q(6124),
+         q(0),
+         ],
+      q(sna) => [
+         q(0395),
+         q(0),
+         ],
+      q(snb) => [
+         q(6125),
+         q(0),
+         ],
+      q(snc) => [
+         q(6126),
+         q(0),
+         ],
+      q(snd) => [
+         q(0396),
+         q(0),
+         ],
+      q(sne) => [
+         q(6127),
+         q(0),
+         ],
+      q(snf) => [
+         q(6128),
+         q(0),
+         ],
+      q(sng) => [
+         q(6129),
+         q(0),
+         ],
+      q(sni) => [
+         q(6130),
+         q(0),
+         ],
+      q(snj) => [
+         q(6131),
+         q(0),
+         ],
+      q(snk) => [
+         q(0397),
+         q(0),
+         ],
+      q(snl) => [
+         q(6132),
+         q(0),
+         ],
+      q(snm) => [
+         q(6133),
+         q(0),
+         ],
+      q(snn) => [
+         q(6134),
+         q(0),
+         ],
+      q(sno) => [
+         q(6135),
+         q(0),
+         ],
+      q(snp) => [
+         q(6136),
+         q(0),
+         ],
+      q(snq) => [
+         q(6137),
+         q(0),
+         ],
+      q(snr) => [
+         q(6138),
+         q(0),
+         ],
+      q(sns) => [
+         q(6139),
+         q(0),
+         ],
+      q(snu) => [
+         q(6140),
+         q(0),
+         ],
+      q(snv) => [
+         q(6141),
+         q(0),
+         ],
+      q(snw) => [
+         q(6142),
+         q(0),
+         ],
+      q(snx) => [
+         q(6143),
+         q(0),
+         ],
+      q(sny) => [
+         q(6144),
+         q(0),
+         ],
+      q(snz) => [
+         q(6145),
+         q(0),
+         ],
+      q(soa) => [
+         q(6146),
+         q(0),
+         ],
+      q(sob) => [
+         q(6147),
+         q(0),
+         ],
+      q(soc) => [
+         q(6148),
+         q(0),
+         ],
+      q(sod) => [
+         q(6149),
+         q(0),
+         ],
+      q(soe) => [
+         q(6150),
+         q(0),
+         ],
+      q(sog) => [
+         q(0398),
+         q(0),
+         ],
+      q(soh) => [
+         q(6151),
+         q(0),
+         ],
+      q(soi) => [
+         q(6152),
+         q(0),
+         ],
+      q(soj) => [
+         q(6153),
+         q(0),
+         ],
+      q(sok) => [
+         q(6154),
+         q(0),
+         ],
+      q(sol) => [
+         q(6155),
+         q(0),
+         ],
+      q(som) => [
+         q(0399),
+         q(0),
+         ],
+      q(son) => [
+         q(0400),
+         q(0),
+         ],
+      q(soo) => [
+         q(6156),
+         q(0),
+         ],
+      q(sop) => [
+         q(6157),
+         q(0),
+         ],
+      q(soq) => [
+         q(6158),
+         q(0),
+         ],
+      q(sor) => [
+         q(6159),
+         q(0),
+         ],
+      q(sos) => [
+         q(6160),
+         q(0),
+         ],
+      q(sot) => [
+         q(0401),
+         q(0),
+         ],
+      q(sou) => [
+         q(6161),
+         q(0),
+         ],
+      q(sov) => [
+         q(6162),
+         q(0),
+         ],
+      q(sow) => [
+         q(6163),
+         q(0),
+         ],
+      q(sox) => [
+         q(6164),
+         q(0),
+         ],
+      q(soy) => [
+         q(6165),
+         q(0),
+         ],
+      q(soz) => [
+         q(6166),
+         q(0),
+         ],
+      q(spa) => [
+         q(0402),
+         q(0),
+         ],
+      q(spb) => [
+         q(6167),
+         q(0),
+         ],
+      q(spc) => [
+         q(6168),
+         q(0),
+         ],
+      q(spd) => [
+         q(6169),
+         q(0),
+         ],
+      q(spe) => [
+         q(6170),
+         q(0),
+         ],
+      q(spg) => [
+         q(6171),
+         q(0),
+         ],
+      q(spi) => [
+         q(6172),
+         q(0),
+         ],
+      q(spk) => [
+         q(6173),
+         q(0),
+         ],
+      q(spl) => [
+         q(6174),
+         q(0),
+         ],
+      q(spm) => [
+         q(6175),
+         q(0),
+         ],
+      q(spn) => [
+         q(6176),
+         q(0),
+         ],
+      q(spo) => [
+         q(6177),
+         q(0),
+         ],
+      q(spp) => [
+         q(6178),
+         q(0),
+         ],
+      q(spq) => [
+         q(6179),
+         q(0),
+         ],
+      q(spr) => [
+         q(6180),
+         q(0),
+         ],
+      q(sps) => [
+         q(6181),
+         q(0),
+         ],
+      q(spt) => [
+         q(6182),
+         q(0),
+         ],
+      q(spu) => [
+         q(6183),
+         q(0),
+         ],
+      q(spv) => [
+         q(6184),
+         q(0),
+         ],
+      q(spx) => [
+         q(6185),
+         q(0),
+         ],
+      q(spy) => [
+         q(6186),
+         q(0),
+         ],
+      q(sqa) => [
+         q(6187),
+         q(0),
+         ],
+      q(sqh) => [
+         q(6188),
+         q(0),
+         ],
+      q(sqj) => [
+         q(0526),
+         q(0),
+         ],
+      q(sqk) => [
+         q(6189),
+         q(0),
+         ],
+      q(sqm) => [
+         q(6190),
+         q(0),
+         ],
+      q(sqn) => [
+         q(6191),
+         q(0),
+         ],
+      q(sqo) => [
+         q(6192),
+         q(0),
+         ],
+      q(sqq) => [
+         q(6193),
+         q(0),
+         ],
+      q(sqr) => [
+         q(6194),
+         q(0),
+         ],
+      q(sqs) => [
+         q(6195),
+         q(0),
+         ],
+      q(sqt) => [
+         q(6196),
+         q(0),
+         ],
+      q(squ) => [
+         q(6197),
+         q(0),
+         ],
+      q(sra) => [
+         q(6198),
+         q(0),
+         ],
+      q(srb) => [
+         q(6199),
+         q(0),
+         ],
+      q(src) => [
+         q(6200),
+         q(0),
+         ],
+      q(srd) => [
+         q(0403),
+         q(0),
+         ],
+      q(sre) => [
+         q(6201),
+         q(0),
+         ],
+      q(srf) => [
+         q(6202),
+         q(0),
+         ],
+      q(srg) => [
+         q(6203),
+         q(0),
+         ],
+      q(srh) => [
+         q(6204),
+         q(0),
+         ],
+      q(sri) => [
+         q(6205),
+         q(0),
+         ],
+      q(srk) => [
+         q(6206),
+         q(0),
+         ],
+      q(srl) => [
+         q(6207),
+         q(0),
+         ],
+      q(srm) => [
+         q(6208),
+         q(0),
+         ],
+      q(srn) => [
+         q(0404),
+         q(0),
+         ],
+      q(sro) => [
+         q(6209),
+         q(0),
+         ],
+      q(srp) => [
+         q(0405),
+         q(0),
+         ],
+      q(srq) => [
+         q(6210),
+         q(0),
+         ],
+      q(srr) => [
+         q(0406),
+         q(0),
+         ],
+      q(srs) => [
+         q(6211),
+         q(0),
+         ],
+      q(srt) => [
+         q(6212),
+         q(0),
+         ],
+      q(sru) => [
+         q(6213),
+         q(0),
+         ],
+      q(srv) => [
+         q(6214),
+         q(0),
+         ],
+      q(srw) => [
+         q(6215),
+         q(0),
+         ],
+      q(srx) => [
+         q(6216),
+         q(0),
+         ],
+      q(sry) => [
+         q(6217),
+         q(0),
+         ],
+      q(srz) => [
+         q(6218),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0407),
+         q(0),
+         ],
+      q(ssb) => [
+         q(6219),
+         q(0),
+         ],
+      q(ssc) => [
+         q(6220),
+         q(0),
+         ],
+      q(ssd) => [
+         q(6221),
+         q(0),
+         ],
+      q(sse) => [
+         q(6222),
+         q(0),
+         ],
+      q(ssf) => [
+         q(6223),
+         q(0),
+         ],
+      q(ssg) => [
+         q(6224),
+         q(0),
+         ],
+      q(ssh) => [
+         q(6225),
+         q(0),
+         ],
+      q(ssi) => [
+         q(6226),
+         q(0),
+         ],
+      q(ssj) => [
+         q(6227),
+         q(0),
+         ],
+      q(ssk) => [
+         q(6228),
+         q(0),
+         ],
+      q(ssl) => [
+         q(6229),
+         q(0),
+         ],
+      q(ssm) => [
+         q(6230),
+         q(0),
+         ],
+      q(ssn) => [
+         q(6231),
+         q(0),
+         ],
+      q(sso) => [
+         q(6232),
+         q(0),
+         ],
+      q(ssp) => [
+         q(6233),
+         q(0),
+         ],
+      q(ssq) => [
+         q(6234),
+         q(0),
+         ],
+      q(ssr) => [
+         q(6235),
+         q(0),
+         ],
+      q(sss) => [
+         q(6236),
+         q(0),
+         ],
+      q(sst) => [
+         q(6237),
+         q(0),
+         ],
+      q(ssu) => [
+         q(6238),
+         q(0),
+         ],
+      q(ssv) => [
+         q(6239),
+         q(0),
+         ],
+      q(ssw) => [
+         q(0408),
+         q(0),
+         ],
+      q(ssx) => [
+         q(6240),
+         q(0),
+         ],
+      q(ssy) => [
+         q(6241),
+         q(0),
+         ],
+      q(ssz) => [
+         q(6242),
+         q(0),
+         ],
+      q(sta) => [
+         q(6243),
+         q(0),
+         ],
+      q(stb) => [
+         q(6244),
+         q(0),
+         ],
+      q(std) => [
+         q(6245),
+         q(0),
+         ],
+      q(ste) => [
+         q(6246),
+         q(0),
+         ],
+      q(stf) => [
+         q(6247),
+         q(0),
+         ],
+      q(stg) => [
+         q(6248),
+         q(0),
+         ],
+      q(sth) => [
+         q(6249),
+         q(0),
+         ],
+      q(sti) => [
+         q(6250),
+         q(0),
+         ],
+      q(stj) => [
+         q(6251),
+         q(0),
+         ],
+      q(stk) => [
+         q(6252),
+         q(0),
+         ],
+      q(stl) => [
+         q(6253),
+         q(0),
+         ],
+      q(stm) => [
+         q(6254),
+         q(0),
+         ],
+      q(stn) => [
+         q(6255),
+         q(0),
+         ],
+      q(sto) => [
+         q(6256),
+         q(0),
+         ],
+      q(stp) => [
+         q(6257),
+         q(0),
+         ],
+      q(stq) => [
+         q(6258),
+         q(0),
+         ],
+      q(str) => [
+         q(6259),
+         q(0),
+         ],
+      q(sts) => [
+         q(6260),
+         q(0),
+         ],
+      q(stt) => [
+         q(6261),
+         q(0),
+         ],
+      q(stu) => [
+         q(6262),
+         q(0),
+         ],
+      q(stv) => [
+         q(6263),
+         q(0),
+         ],
+      q(stw) => [
+         q(6264),
+         q(0),
+         ],
+      q(sty) => [
+         q(6265),
+         q(0),
+         ],
+      q(sua) => [
+         q(6266),
+         q(0),
+         ],
+      q(sub) => [
+         q(6267),
+         q(0),
+         ],
+      q(suc) => [
+         q(6268),
+         q(0),
+         ],
+      q(sue) => [
+         q(6269),
+         q(0),
+         ],
+      q(sug) => [
+         q(6270),
+         q(0),
+         ],
+      q(sui) => [
+         q(6271),
+         q(0),
+         ],
+      q(suj) => [
+         q(6272),
+         q(0),
+         ],
+      q(suk) => [
+         q(0409),
+         q(0),
+         ],
+      q(sun) => [
+         q(0410),
+         q(0),
+         ],
+      q(suq) => [
+         q(6273),
+         q(0),
+         ],
+      q(sur) => [
+         q(6274),
+         q(0),
+         ],
+      q(sus) => [
+         q(0411),
+         q(0),
+         ],
+      q(sut) => [
+         q(6275),
+         q(0),
+         ],
+      q(suv) => [
+         q(6276),
+         q(0),
+         ],
+      q(suw) => [
+         q(6277),
+         q(0),
+         ],
+      q(sux) => [
+         q(0412),
+         q(0),
+         ],
+      q(suy) => [
+         q(6278),
+         q(0),
+         ],
+      q(suz) => [
+         q(6279),
+         q(0),
+         ],
+      q(sva) => [
+         q(6280),
+         q(0),
+         ],
+      q(svb) => [
+         q(6281),
+         q(0),
+         ],
+      q(svc) => [
+         q(6282),
+         q(0),
+         ],
+      q(sve) => [
+         q(6283),
+         q(0),
+         ],
+      q(svk) => [
+         q(6284),
+         q(0),
+         ],
+      q(svm) => [
+         q(6285),
+         q(0),
+         ],
+      q(svs) => [
+         q(6286),
+         q(0),
+         ],
+      q(svx) => [
+         q(6287),
+         q(0),
+         ],
+      q(swa) => [
+         q(0413),
+         q(0),
+         ],
+      q(swb) => [
+         q(6288),
+         q(0),
+         ],
+      q(swc) => [
+         q(6289),
+         q(0),
+         ],
+      q(swe) => [
+         q(0414),
+         q(0),
+         ],
+      q(swf) => [
+         q(6290),
+         q(0),
+         ],
+      q(swg) => [
+         q(6291),
+         q(0),
+         ],
+      q(swh) => [
+         q(6292),
+         q(0),
+         ],
+      q(swi) => [
+         q(6293),
+         q(0),
+         ],
+      q(swj) => [
+         q(6294),
+         q(0),
+         ],
+      q(swk) => [
+         q(6295),
+         q(0),
+         ],
+      q(swl) => [
+         q(6296),
+         q(0),
+         ],
+      q(swm) => [
+         q(6297),
+         q(0),
+         ],
+      q(swn) => [
+         q(6298),
+         q(0),
+         ],
+      q(swo) => [
+         q(6299),
+         q(0),
+         ],
+      q(swp) => [
+         q(6300),
+         q(0),
+         ],
+      q(swq) => [
+         q(6301),
+         q(0),
+         ],
+      q(swr) => [
+         q(6302),
+         q(0),
+         ],
+      q(sws) => [
+         q(6303),
+         q(0),
+         ],
+      q(swt) => [
+         q(6304),
+         q(0),
+         ],
+      q(swu) => [
+         q(6305),
+         q(0),
+         ],
+      q(swv) => [
+         q(6306),
+         q(0),
+         ],
+      q(sww) => [
+         q(6307),
+         q(0),
+         ],
+      q(swx) => [
+         q(6308),
+         q(0),
+         ],
+      q(swy) => [
+         q(6309),
+         q(0),
+         ],
+      q(sxb) => [
+         q(6310),
+         q(0),
+         ],
+      q(sxc) => [
+         q(6311),
+         q(0),
+         ],
+      q(sxe) => [
+         q(6312),
+         q(0),
+         ],
+      q(sxg) => [
+         q(6313),
+         q(0),
+         ],
+      q(sxk) => [
+         q(6314),
+         q(0),
+         ],
+      q(sxl) => [
+         q(6315),
+         q(0),
+         ],
+      q(sxm) => [
+         q(6316),
+         q(0),
+         ],
+      q(sxn) => [
+         q(6317),
+         q(0),
+         ],
+      q(sxo) => [
+         q(6318),
+         q(0),
+         ],
+      q(sxr) => [
+         q(6319),
+         q(0),
+         ],
+      q(sxs) => [
+         q(6320),
+         q(0),
+         ],
+      q(sxu) => [
+         q(6321),
+         q(0),
+         ],
+      q(sxw) => [
+         q(6322),
+         q(0),
+         ],
+      q(sya) => [
+         q(6323),
+         q(0),
+         ],
+      q(syb) => [
+         q(6324),
+         q(0),
+         ],
+      q(syc) => [
+         q(0415),
+         q(0),
+         ],
+      q(syd) => [
+         q(0527),
+         q(0),
+         ],
+      q(syi) => [
+         q(6325),
+         q(0),
+         ],
+      q(syk) => [
+         q(6326),
+         q(0),
+         ],
+      q(syl) => [
+         q(6327),
+         q(0),
+         ],
+      q(sym) => [
+         q(6328),
+         q(0),
+         ],
+      q(syn) => [
+         q(6329),
+         q(0),
+         ],
+      q(syo) => [
+         q(6330),
+         q(0),
+         ],
+      q(syr) => [
+         q(0416),
+         q(0),
+         ],
+      q(sys) => [
+         q(6331),
+         q(0),
+         ],
+      q(syw) => [
+         q(6332),
+         q(0),
+         ],
+      q(syx) => [
+         q(6333),
+         q(0),
+         ],
+      q(syy) => [
+         q(6334),
+         q(0),
+         ],
+      q(sza) => [
+         q(6335),
+         q(0),
+         ],
+      q(szb) => [
+         q(6336),
+         q(0),
+         ],
+      q(szc) => [
+         q(6337),
+         q(0),
+         ],
+      q(szd) => [
+         q(6338),
+         q(0),
+         ],
+      q(sze) => [
+         q(6339),
+         q(0),
+         ],
+      q(szg) => [
+         q(6340),
+         q(0),
+         ],
+      q(szl) => [
+         q(6341),
+         q(0),
+         ],
+      q(szn) => [
+         q(6342),
+         q(0),
+         ],
+      q(szp) => [
+         q(6343),
+         q(0),
+         ],
+      q(szs) => [
+         q(6344),
+         q(0),
+         ],
+      q(szv) => [
+         q(6345),
+         q(0),
+         ],
+      q(szw) => [
+         q(6346),
+         q(0),
+         ],
+      q(taa) => [
+         q(6347),
+         q(0),
+         ],
+      q(tab) => [
+         q(6348),
+         q(0),
+         ],
+      q(tac) => [
+         q(6349),
+         q(0),
+         ],
+      q(tad) => [
+         q(6350),
+         q(0),
+         ],
+      q(tae) => [
+         q(6351),
+         q(0),
+         ],
+      q(taf) => [
+         q(6352),
+         q(0),
+         ],
+      q(tag) => [
+         q(6353),
+         q(0),
+         ],
+      q(tah) => [
+         q(0417),
+         q(0),
+         ],
+      q(tai) => [
+         q(0418),
+         q(0),
+         ],
+      q(taj) => [
+         q(6354),
+         q(0),
+         ],
+      q(tak) => [
+         q(6355),
+         q(0),
+         ],
+      q(tal) => [
+         q(6356),
+         q(0),
+         ],
+      q(tam) => [
+         q(0419),
+         q(0),
+         ],
+      q(tan) => [
+         q(6357),
+         q(0),
+         ],
+      q(tao) => [
+         q(6358),
+         q(0),
+         ],
+      q(tap) => [
+         q(6359),
+         q(0),
+         ],
+      q(taq) => [
+         q(6360),
+         q(0),
+         ],
+      q(tar) => [
+         q(6361),
+         q(0),
+         ],
+      q(tas) => [
+         q(6362),
+         q(0),
+         ],
+      q(tat) => [
+         q(0420),
+         q(0),
+         ],
+      q(tau) => [
+         q(6363),
+         q(0),
+         ],
+      q(tav) => [
+         q(6364),
+         q(0),
+         ],
+      q(taw) => [
+         q(6365),
+         q(0),
+         ],
+      q(tax) => [
+         q(6366),
+         q(0),
+         ],
+      q(tay) => [
+         q(6367),
+         q(0),
+         ],
+      q(taz) => [
+         q(6368),
+         q(0),
+         ],
+      q(tba) => [
+         q(6369),
+         q(0),
+         ],
+      q(tbb) => [
+         q(6370),
+         q(0),
+         ],
+      q(tbc) => [
+         q(6371),
+         q(0),
+         ],
+      q(tbd) => [
+         q(6372),
+         q(0),
+         ],
+      q(tbe) => [
+         q(6373),
+         q(0),
+         ],
+      q(tbf) => [
+         q(6374),
+         q(0),
+         ],
+      q(tbg) => [
+         q(6375),
+         q(0),
+         ],
+      q(tbh) => [
+         q(6376),
+         q(0),
+         ],
+      q(tbi) => [
+         q(6377),
+         q(0),
+         ],
+      q(tbj) => [
+         q(6378),
+         q(0),
+         ],
+      q(tbk) => [
+         q(6379),
+         q(0),
+         ],
+      q(tbl) => [
+         q(6380),
+         q(0),
+         ],
+      q(tbm) => [
+         q(6381),
+         q(0),
+         ],
+      q(tbn) => [
+         q(6382),
+         q(0),
+         ],
+      q(tbo) => [
+         q(6383),
+         q(0),
+         ],
+      q(tbp) => [
+         q(6384),
+         q(0),
+         ],
+      q(tbq) => [
+         q(0528),
+         q(0),
+         ],
+      q(tbr) => [
+         q(6385),
+         q(0),
+         ],
+      q(tbs) => [
+         q(6386),
+         q(0),
+         ],
+      q(tbt) => [
+         q(6387),
+         q(0),
+         ],
+      q(tbu) => [
+         q(6388),
+         q(0),
+         ],
+      q(tbv) => [
+         q(6389),
+         q(0),
+         ],
+      q(tbw) => [
+         q(6390),
+         q(0),
+         ],
+      q(tbx) => [
+         q(6391),
+         q(0),
+         ],
+      q(tby) => [
+         q(6392),
+         q(0),
+         ],
+      q(tbz) => [
+         q(6393),
+         q(0),
+         ],
+      q(tca) => [
+         q(6394),
+         q(0),
+         ],
+      q(tcb) => [
+         q(6395),
+         q(0),
+         ],
+      q(tcc) => [
+         q(6396),
+         q(0),
+         ],
+      q(tcd) => [
+         q(6397),
+         q(0),
+         ],
+      q(tce) => [
+         q(6398),
+         q(0),
+         ],
+      q(tcf) => [
+         q(6399),
+         q(0),
+         ],
+      q(tcg) => [
+         q(6400),
+         q(0),
+         ],
+      q(tch) => [
+         q(6401),
+         q(0),
+         ],
+      q(tci) => [
+         q(6402),
+         q(0),
+         ],
+      q(tck) => [
+         q(6403),
+         q(0),
+         ],
+      q(tcl) => [
+         q(6404),
+         q(0),
+         ],
+      q(tcm) => [
+         q(6405),
+         q(0),
+         ],
+      q(tcn) => [
+         q(6406),
+         q(0),
+         ],
+      q(tco) => [
+         q(6407),
+         q(0),
+         ],
+      q(tcp) => [
+         q(6408),
+         q(0),
+         ],
+      q(tcq) => [
+         q(6409),
+         q(0),
+         ],
+      q(tcs) => [
+         q(6410),
+         q(0),
+         ],
+      q(tct) => [
+         q(6411),
+         q(0),
+         ],
+      q(tcu) => [
+         q(6412),
+         q(0),
+         ],
+      q(tcw) => [
+         q(6413),
+         q(0),
+         ],
+      q(tcx) => [
+         q(6414),
+         q(0),
+         ],
+      q(tcy) => [
+         q(6415),
+         q(0),
+         ],
+      q(tcz) => [
+         q(6416),
+         q(0),
+         ],
+      q(tda) => [
+         q(6417),
+         q(0),
+         ],
+      q(tdb) => [
+         q(6418),
+         q(0),
+         ],
+      q(tdc) => [
+         q(6419),
+         q(0),
+         ],
+      q(tdd) => [
+         q(6420),
+         q(0),
+         ],
+      q(tde) => [
+         q(6421),
+         q(0),
+         ],
+      q(tdf) => [
+         q(6422),
+         q(0),
+         ],
+      q(tdg) => [
+         q(6423),
+         q(0),
+         ],
+      q(tdh) => [
+         q(6424),
+         q(0),
+         ],
+      q(tdi) => [
+         q(6425),
+         q(0),
+         ],
+      q(tdj) => [
+         q(6426),
+         q(0),
+         ],
+      q(tdk) => [
+         q(6427),
+         q(0),
+         ],
+      q(tdl) => [
+         q(6428),
+         q(0),
+         ],
+      q(tdm) => [
+         q(6429),
+         q(0),
+         ],
+      q(tdn) => [
+         q(6430),
+         q(0),
+         ],
+      q(tdo) => [
+         q(6431),
+         q(0),
+         ],
+      q(tdq) => [
+         q(6432),
+         q(0),
+         ],
+      q(tdr) => [
+         q(6433),
+         q(0),
+         ],
+      q(tds) => [
+         q(6434),
+         q(0),
+         ],
+      q(tdt) => [
+         q(6435),
+         q(0),
+         ],
+      q(tdv) => [
+         q(6436),
+         q(0),
+         ],
+      q(tdx) => [
+         q(6437),
+         q(0),
+         ],
+      q(tdy) => [
+         q(6438),
+         q(0),
+         ],
+      q(tea) => [
+         q(6439),
+         q(0),
+         ],
+      q(teb) => [
+         q(6440),
+         q(0),
+         ],
+      q(tec) => [
+         q(6441),
+         q(0),
+         ],
+      q(ted) => [
+         q(6442),
+         q(0),
+         ],
+      q(tee) => [
+         q(6443),
+         q(0),
+         ],
+      q(tef) => [
+         q(6444),
+         q(0),
+         ],
+      q(teg) => [
+         q(6445),
+         q(0),
+         ],
+      q(teh) => [
+         q(6446),
+         q(0),
+         ],
+      q(tei) => [
+         q(6447),
+         q(0),
+         ],
+      q(tek) => [
+         q(6448),
+         q(0),
+         ],
+      q(tel) => [
+         q(0421),
+         q(0),
+         ],
+      q(tem) => [
+         q(0422),
+         q(0),
+         ],
+      q(ten) => [
+         q(6449),
+         q(0),
+         ],
+      q(teo) => [
+         q(6450),
+         q(0),
+         ],
+      q(tep) => [
+         q(6451),
+         q(0),
+         ],
+      q(teq) => [
+         q(6452),
+         q(0),
+         ],
+      q(ter) => [
+         q(0423),
+         q(0),
+         ],
+      q(tes) => [
+         q(6453),
+         q(0),
+         ],
+      q(tet) => [
+         q(0424),
+         q(0),
+         ],
+      q(teu) => [
+         q(6454),
+         q(0),
+         ],
+      q(tev) => [
+         q(6455),
+         q(0),
+         ],
+      q(tew) => [
+         q(6456),
+         q(0),
+         ],
+      q(tex) => [
+         q(6457),
+         q(0),
+         ],
+      q(tey) => [
+         q(6458),
+         q(0),
+         ],
+      q(tfi) => [
+         q(6459),
+         q(0),
+         ],
+      q(tfn) => [
+         q(6460),
+         q(0),
+         ],
+      q(tfo) => [
+         q(6461),
+         q(0),
+         ],
+      q(tfr) => [
+         q(6462),
+         q(0),
+         ],
+      q(tft) => [
+         q(6463),
+         q(0),
+         ],
+      q(tga) => [
+         q(6464),
+         q(0),
+         ],
+      q(tgb) => [
+         q(6465),
+         q(0),
+         ],
+      q(tgc) => [
+         q(6466),
+         q(0),
+         ],
+      q(tgd) => [
+         q(6467),
+         q(0),
+         ],
+      q(tge) => [
+         q(6468),
+         q(0),
+         ],
+      q(tgf) => [
+         q(6469),
+         q(0),
+         ],
+      q(tgh) => [
+         q(6470),
+         q(0),
+         ],
+      q(tgi) => [
+         q(6471),
+         q(0),
+         ],
+      q(tgj) => [
+         q(6472),
+         q(0),
+         ],
+      q(tgk) => [
+         q(0425),
+         q(0),
+         ],
+      q(tgl) => [
+         q(0426),
+         q(0),
+         ],
+      q(tgn) => [
+         q(6473),
+         q(0),
+         ],
+      q(tgo) => [
+         q(6474),
+         q(0),
+         ],
+      q(tgp) => [
+         q(6475),
+         q(0),
+         ],
+      q(tgq) => [
+         q(6476),
+         q(0),
+         ],
+      q(tgr) => [
+         q(6477),
+         q(0),
+         ],
+      q(tgs) => [
+         q(6478),
+         q(0),
+         ],
+      q(tgt) => [
+         q(6479),
+         q(0),
+         ],
+      q(tgu) => [
+         q(6480),
+         q(0),
+         ],
+      q(tgv) => [
+         q(6481),
+         q(0),
+         ],
+      q(tgw) => [
+         q(6482),
+         q(0),
+         ],
+      q(tgx) => [
+         q(6483),
+         q(0),
+         ],
+      q(tgy) => [
+         q(6484),
+         q(0),
+         ],
+      q(tgz) => [
+         q(6485),
+         q(0),
+         ],
+      q(tha) => [
+         q(0427),
+         q(0),
+         ],
+      q(thd) => [
+         q(6486),
+         q(0),
+         ],
+      q(the) => [
+         q(6487),
+         q(0),
+         ],
+      q(thf) => [
+         q(6488),
+         q(0),
+         ],
+      q(thh) => [
+         q(6489),
+         q(0),
+         ],
+      q(thi) => [
+         q(6490),
+         q(0),
+         ],
+      q(thk) => [
+         q(6491),
+         q(0),
+         ],
+      q(thl) => [
+         q(6492),
+         q(0),
+         ],
+      q(thm) => [
+         q(6493),
+         q(0),
+         ],
+      q(thn) => [
+         q(6494),
+         q(0),
+         ],
+      q(thp) => [
+         q(6495),
+         q(0),
+         ],
+      q(thq) => [
+         q(6496),
+         q(0),
+         ],
+      q(thr) => [
+         q(6497),
+         q(0),
+         ],
+      q(ths) => [
+         q(6498),
+         q(0),
+         ],
+      q(tht) => [
+         q(6499),
+         q(0),
+         ],
+      q(thu) => [
+         q(6500),
+         q(0),
+         ],
+      q(thv) => [
+         q(6501),
+         q(0),
+         ],
+      q(thw) => [
+         q(6502),
+         q(0),
+         ],
+      q(thy) => [
+         q(6503),
+         q(0),
+         ],
+      q(thz) => [
+         q(6504),
+         q(0),
+         ],
+      q(tia) => [
+         q(6505),
+         q(0),
+         ],
+      q(tib) => [
+         q(0428),
+         q(0),
+         ],
+      q(tic) => [
+         q(6506),
+         q(0),
+         ],
+      q(tif) => [
+         q(6507),
+         q(0),
+         ],
+      q(tig) => [
+         q(0429),
+         q(0),
+         ],
+      q(tih) => [
+         q(6508),
+         q(0),
+         ],
+      q(tii) => [
+         q(6509),
+         q(0),
+         ],
+      q(tij) => [
+         q(6510),
+         q(0),
+         ],
+      q(tik) => [
+         q(6511),
+         q(0),
+         ],
+      q(til) => [
+         q(6512),
+         q(0),
+         ],
+      q(tim) => [
+         q(6513),
+         q(0),
+         ],
+      q(tin) => [
+         q(6514),
+         q(0),
+         ],
+      q(tio) => [
+         q(6515),
+         q(0),
+         ],
+      q(tip) => [
+         q(6516),
+         q(0),
+         ],
+      q(tiq) => [
+         q(6517),
+         q(0),
+         ],
+      q(tir) => [
+         q(0430),
+         q(0),
+         ],
+      q(tis) => [
+         q(6518),
+         q(0),
+         ],
+      q(tit) => [
+         q(6519),
+         q(0),
+         ],
+      q(tiu) => [
+         q(6520),
+         q(0),
+         ],
+      q(tiv) => [
+         q(0431),
+         q(0),
+         ],
+      q(tiw) => [
+         q(6521),
+         q(0),
+         ],
+      q(tix) => [
+         q(6522),
+         q(0),
+         ],
+      q(tiy) => [
+         q(6523),
+         q(0),
+         ],
+      q(tiz) => [
+         q(6524),
+         q(0),
+         ],
+      q(tja) => [
+         q(6525),
+         q(0),
+         ],
+      q(tjg) => [
+         q(6526),
+         q(0),
+         ],
+      q(tji) => [
+         q(6527),
+         q(0),
+         ],
+      q(tjl) => [
+         q(6528),
+         q(0),
+         ],
+      q(tjm) => [
+         q(6529),
+         q(0),
+         ],
+      q(tjn) => [
+         q(6530),
+         q(0),
+         ],
+      q(tjo) => [
+         q(6531),
+         q(0),
+         ],
+      q(tjs) => [
+         q(6532),
+         q(0),
+         ],
+      q(tju) => [
+         q(6533),
+         q(0),
+         ],
+      q(tjw) => [
+         q(6534),
+         q(0),
+         ],
+      q(tka) => [
+         q(6535),
+         q(0),
+         ],
+      q(tkb) => [
+         q(6536),
+         q(0),
+         ],
+      q(tkd) => [
+         q(6537),
+         q(0),
+         ],
+      q(tke) => [
+         q(6538),
+         q(0),
+         ],
+      q(tkf) => [
+         q(6539),
+         q(0),
+         ],
+      q(tkg) => [
+         q(6540),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0432),
+         q(0),
+         ],
+      q(tkm) => [
+         q(6541),
+         q(0),
+         ],
+      q(tkn) => [
+         q(6542),
+         q(0),
+         ],
+      q(tkp) => [
+         q(6543),
+         q(0),
+         ],
+      q(tkq) => [
+         q(6544),
+         q(0),
+         ],
+      q(tkr) => [
+         q(6545),
+         q(0),
+         ],
+      q(tks) => [
+         q(6546),
+         q(0),
+         ],
+      q(tkt) => [
+         q(6547),
+         q(0),
+         ],
+      q(tku) => [
+         q(6548),
+         q(0),
+         ],
+      q(tkv) => [
+         q(6549),
+         q(0),
+         ],
+      q(tkw) => [
+         q(6550),
+         q(0),
+         ],
+      q(tkx) => [
+         q(6551),
+         q(0),
+         ],
+      q(tkz) => [
+         q(6552),
+         q(0),
+         ],
+      q(tla) => [
+         q(6553),
+         q(0),
+         ],
+      q(tlb) => [
+         q(6554),
+         q(0),
+         ],
+      q(tlc) => [
+         q(6555),
+         q(0),
+         ],
+      q(tld) => [
+         q(6556),
+         q(0),
+         ],
+      q(tlf) => [
+         q(6557),
+         q(0),
+         ],
+      q(tlg) => [
+         q(6558),
+         q(0),
+         ],
+      q(tlh) => [
+         q(0433),
+         q(0),
+         ],
+      q(tli) => [
+         q(0434),
+         q(0),
+         ],
+      q(tlj) => [
+         q(6559),
+         q(0),
+         ],
+      q(tlk) => [
+         q(6560),
+         q(0),
+         ],
+      q(tll) => [
+         q(6561),
+         q(0),
+         ],
+      q(tlm) => [
+         q(6562),
+         q(0),
+         ],
+      q(tln) => [
+         q(6563),
+         q(0),
+         ],
+      q(tlo) => [
+         q(6564),
+         q(0),
+         ],
+      q(tlp) => [
+         q(6565),
+         q(0),
+         ],
+      q(tlq) => [
+         q(6566),
+         q(0),
+         ],
+      q(tlr) => [
+         q(6567),
+         q(0),
+         ],
+      q(tls) => [
+         q(6568),
+         q(0),
+         ],
+      q(tlt) => [
+         q(6569),
+         q(0),
+         ],
+      q(tlu) => [
+         q(6570),
+         q(0),
+         ],
+      q(tlv) => [
+         q(6571),
+         q(0),
+         ],
+      q(tlx) => [
+         q(6572),
+         q(0),
+         ],
+      q(tly) => [
+         q(6573),
+         q(0),
+         ],
+      q(tma) => [
+         q(6574),
+         q(0),
+         ],
+      q(tmb) => [
+         q(6575),
+         q(0),
+         ],
+      q(tmc) => [
+         q(6576),
+         q(0),
+         ],
+      q(tmd) => [
+         q(6577),
+         q(0),
+         ],
+      q(tme) => [
+         q(6578),
+         q(0),
+         ],
+      q(tmf) => [
+         q(6579),
+         q(0),
+         ],
+      q(tmg) => [
+         q(6580),
+         q(0),
+         ],
+      q(tmh) => [
+         q(0435),
+         q(0),
+         ],
+      q(tmi) => [
+         q(6581),
+         q(0),
+         ],
+      q(tmj) => [
+         q(6582),
+         q(0),
+         ],
+      q(tmk) => [
+         q(6583),
+         q(0),
+         ],
+      q(tml) => [
+         q(6584),
+         q(0),
+         ],
+      q(tmm) => [
+         q(6585),
+         q(0),
+         ],
+      q(tmn) => [
+         q(6586),
+         q(0),
+         ],
+      q(tmo) => [
+         q(6587),
+         q(0),
+         ],
+      q(tmq) => [
+         q(6588),
+         q(0),
+         ],
+      q(tmr) => [
+         q(6589),
+         q(0),
+         ],
+      q(tms) => [
+         q(6590),
+         q(0),
+         ],
+      q(tmt) => [
+         q(6591),
+         q(0),
+         ],
+      q(tmu) => [
+         q(6592),
+         q(0),
+         ],
+      q(tmv) => [
+         q(6593),
+         q(0),
+         ],
+      q(tmw) => [
+         q(6594),
+         q(0),
+         ],
+      q(tmy) => [
+         q(6595),
+         q(0),
+         ],
+      q(tmz) => [
+         q(6596),
+         q(0),
+         ],
+      q(tna) => [
+         q(6597),
+         q(0),
+         ],
+      q(tnb) => [
+         q(6598),
+         q(0),
+         ],
+      q(tnc) => [
+         q(6599),
+         q(0),
+         ],
+      q(tnd) => [
+         q(6600),
+         q(0),
+         ],
+      q(tng) => [
+         q(6601),
+         q(0),
+         ],
+      q(tnh) => [
+         q(6602),
+         q(0),
+         ],
+      q(tni) => [
+         q(6603),
+         q(0),
+         ],
+      q(tnk) => [
+         q(6604),
+         q(0),
+         ],
+      q(tnl) => [
+         q(6605),
+         q(0),
+         ],
+      q(tnm) => [
+         q(6606),
+         q(0),
+         ],
+      q(tnn) => [
+         q(6607),
+         q(0),
+         ],
+      q(tno) => [
+         q(6608),
+         q(0),
+         ],
+      q(tnp) => [
+         q(6609),
+         q(0),
+         ],
+      q(tnq) => [
+         q(6610),
+         q(0),
+         ],
+      q(tnr) => [
+         q(6611),
+         q(0),
+         ],
+      q(tns) => [
+         q(6612),
+         q(0),
+         ],
+      q(tnt) => [
+         q(6613),
+         q(0),
+         ],
+      q(tnu) => [
+         q(6614),
+         q(0),
+         ],
+      q(tnv) => [
+         q(6615),
+         q(0),
+         ],
+      q(tnw) => [
+         q(6616),
+         q(0),
+         ],
+      q(tnx) => [
+         q(6617),
+         q(0),
+         ],
+      q(tny) => [
+         q(6618),
+         q(0),
+         ],
+      q(tnz) => [
+         q(6619),
+         q(0),
+         ],
+      q(tob) => [
+         q(6620),
+         q(0),
+         ],
+      q(toc) => [
+         q(6621),
+         q(0),
+         ],
+      q(tod) => [
+         q(6622),
+         q(0),
+         ],
+      q(tof) => [
+         q(6623),
+         q(0),
+         ],
+      q(tog) => [
+         q(0436),
+         q(0),
+         ],
+      q(toh) => [
+         q(6624),
+         q(0),
+         ],
+      q(toi) => [
+         q(6625),
+         q(0),
+         ],
+      q(toj) => [
+         q(6626),
+         q(0),
+         ],
+      q(tol) => [
+         q(6627),
+         q(0),
+         ],
+      q(tom) => [
+         q(6628),
+         q(0),
+         ],
+      q(ton) => [
+         q(0437),
+         q(0),
+         ],
+      q(too) => [
+         q(6629),
+         q(0),
+         ],
+      q(top) => [
+         q(6630),
+         q(0),
+         ],
+      q(toq) => [
+         q(6631),
+         q(0),
+         ],
+      q(tor) => [
+         q(6632),
+         q(0),
+         ],
+      q(tos) => [
+         q(6633),
+         q(0),
+         ],
+      q(tou) => [
+         q(6634),
+         q(0),
+         ],
+      q(tov) => [
+         q(6635),
+         q(0),
+         ],
+      q(tow) => [
+         q(6636),
+         q(0),
+         ],
+      q(tox) => [
+         q(6637),
+         q(0),
+         ],
+      q(toy) => [
+         q(6638),
+         q(0),
+         ],
+      q(toz) => [
+         q(6639),
+         q(0),
+         ],
+      q(tpa) => [
+         q(6640),
+         q(0),
+         ],
+      q(tpc) => [
+         q(6641),
+         q(0),
+         ],
+      q(tpe) => [
+         q(6642),
+         q(0),
+         ],
+      q(tpf) => [
+         q(6643),
+         q(0),
+         ],
+      q(tpg) => [
+         q(6644),
+         q(0),
+         ],
+      q(tpi) => [
+         q(0438),
+         q(0),
+         ],
+      q(tpj) => [
+         q(6645),
+         q(0),
+         ],
+      q(tpk) => [
+         q(6646),
+         q(0),
+         ],
+      q(tpl) => [
+         q(6647),
+         q(0),
+         ],
+      q(tpm) => [
+         q(6648),
+         q(0),
+         ],
+      q(tpn) => [
+         q(6649),
+         q(0),
+         ],
+      q(tpo) => [
+         q(6650),
+         q(0),
+         ],
+      q(tpp) => [
+         q(6651),
+         q(0),
+         ],
+      q(tpq) => [
+         q(6652),
+         q(0),
+         ],
+      q(tpr) => [
+         q(6653),
+         q(0),
+         ],
+      q(tpt) => [
+         q(6654),
+         q(0),
+         ],
+      q(tpu) => [
+         q(6655),
+         q(0),
+         ],
+      q(tpv) => [
+         q(6656),
+         q(0),
+         ],
+      q(tpw) => [
+         q(6657),
+         q(0),
+         ],
+      q(tpx) => [
+         q(6658),
+         q(0),
+         ],
+      q(tpy) => [
+         q(6659),
+         q(0),
+         ],
+      q(tpz) => [
+         q(6660),
+         q(0),
+         ],
+      q(tqb) => [
+         q(6661),
+         q(0),
+         ],
+      q(tql) => [
+         q(6662),
+         q(0),
+         ],
+      q(tqm) => [
+         q(6663),
+         q(0),
+         ],
+      q(tqn) => [
+         q(6664),
+         q(0),
+         ],
+      q(tqo) => [
+         q(6665),
+         q(0),
+         ],
+      q(tqp) => [
+         q(6666),
+         q(0),
+         ],
+      q(tqq) => [
+         q(6667),
+         q(0),
+         ],
+      q(tqr) => [
+         q(6668),
+         q(0),
+         ],
+      q(tqt) => [
+         q(6669),
+         q(0),
+         ],
+      q(tqu) => [
+         q(6670),
+         q(0),
+         ],
+      q(tqw) => [
+         q(6671),
+         q(0),
+         ],
+      q(tra) => [
+         q(6672),
+         q(0),
+         ],
+      q(trb) => [
+         q(6673),
+         q(0),
+         ],
+      q(trc) => [
+         q(6674),
+         q(0),
+         ],
+      q(trd) => [
+         q(6675),
+         q(0),
+         ],
+      q(tre) => [
+         q(6676),
+         q(0),
+         ],
+      q(trf) => [
+         q(6677),
+         q(0),
+         ],
+      q(trg) => [
+         q(6678),
+         q(0),
+         ],
+      q(trh) => [
+         q(6679),
+         q(0),
+         ],
+      q(tri) => [
+         q(6680),
+         q(0),
+         ],
+      q(trj) => [
+         q(6681),
+         q(0),
+         ],
+      q(trk) => [
+         q(0529),
+         q(0),
+         ],
+      q(trl) => [
+         q(6682),
+         q(0),
+         ],
+      q(trm) => [
+         q(6683),
+         q(0),
+         ],
+      q(trn) => [
+         q(6684),
+         q(0),
+         ],
+      q(tro) => [
+         q(6685),
+         q(0),
+         ],
+      q(trp) => [
+         q(6686),
+         q(0),
+         ],
+      q(trq) => [
+         q(6687),
+         q(0),
+         ],
+      q(trr) => [
+         q(6688),
+         q(0),
+         ],
+      q(trs) => [
+         q(6689),
+         q(0),
+         ],
+      q(trt) => [
+         q(6690),
+         q(0),
+         ],
+      q(tru) => [
+         q(6691),
+         q(0),
+         ],
+      q(trv) => [
+         q(6692),
+         q(0),
+         ],
+      q(trw) => [
+         q(6693),
+         q(0),
+         ],
+      q(trx) => [
+         q(6694),
+         q(0),
+         ],
+      q(try) => [
+         q(6695),
+         q(0),
+         ],
+      q(trz) => [
+         q(6696),
+         q(0),
+         ],
+      q(tsa) => [
+         q(6697),
+         q(0),
+         ],
+      q(tsb) => [
+         q(6698),
+         q(0),
+         ],
+      q(tsc) => [
+         q(6699),
+         q(0),
+         ],
+      q(tsd) => [
+         q(6700),
+         q(0),
+         ],
+      q(tse) => [
+         q(6701),
+         q(0),
+         ],
+      q(tsg) => [
+         q(6702),
+         q(0),
+         ],
+      q(tsh) => [
+         q(6703),
+         q(0),
+         ],
+      q(tsi) => [
+         q(0439),
+         q(0),
+         ],
+      q(tsj) => [
+         q(6704),
+         q(0),
+         ],
+      q(tsk) => [
+         q(6705),
+         q(0),
+         ],
+      q(tsl) => [
+         q(6706),
+         q(0),
+         ],
+      q(tsm) => [
+         q(6707),
+         q(0),
+         ],
+      q(tsn) => [
+         q(0440),
+         q(0),
+         ],
+      q(tso) => [
+         q(0441),
+         q(0),
+         ],
+      q(tsp) => [
+         q(6708),
+         q(0),
+         ],
+      q(tsq) => [
+         q(6709),
+         q(0),
+         ],
+      q(tsr) => [
+         q(6710),
+         q(0),
+         ],
+      q(tss) => [
+         q(6711),
+         q(0),
+         ],
+      q(tst) => [
+         q(6712),
+         q(0),
+         ],
+      q(tsu) => [
+         q(6713),
+         q(0),
+         ],
+      q(tsv) => [
+         q(6714),
+         q(0),
+         ],
+      q(tsw) => [
+         q(6715),
+         q(0),
+         ],
+      q(tsx) => [
+         q(6716),
+         q(0),
+         ],
+      q(tsy) => [
+         q(6717),
+         q(0),
+         ],
+      q(tsz) => [
+         q(6718),
+         q(0),
+         ],
+      q(tta) => [
+         q(6719),
+         q(0),
+         ],
+      q(ttb) => [
+         q(6720),
+         q(0),
+         ],
+      q(ttc) => [
+         q(6721),
+         q(0),
+         ],
+      q(ttd) => [
+         q(6722),
+         q(0),
+         ],
+      q(tte) => [
+         q(6723),
+         q(0),
+         ],
+      q(ttf) => [
+         q(6724),
+         q(0),
+         ],
+      q(ttg) => [
+         q(6725),
+         q(0),
+         ],
+      q(tth) => [
+         q(6726),
+         q(0),
+         ],
+      q(tti) => [
+         q(6727),
+         q(0),
+         ],
+      q(ttj) => [
+         q(6728),
+         q(0),
+         ],
+      q(ttk) => [
+         q(6729),
+         q(0),
+         ],
+      q(ttl) => [
+         q(6730),
+         q(0),
+         ],
+      q(ttm) => [
+         q(6731),
+         q(0),
+         ],
+      q(ttn) => [
+         q(6732),
+         q(0),
+         ],
+      q(tto) => [
+         q(6733),
+         q(0),
+         ],
+      q(ttp) => [
+         q(6734),
+         q(0),
+         ],
+      q(ttq) => [
+         q(6735),
+         q(0),
+         ],
+      q(ttr) => [
+         q(6736),
+         q(0),
+         ],
+      q(tts) => [
+         q(6737),
+         q(0),
+         ],
+      q(ttt) => [
+         q(6738),
+         q(0),
+         ],
+      q(ttu) => [
+         q(6739),
+         q(0),
+         ],
+      q(ttv) => [
+         q(6740),
+         q(0),
+         ],
+      q(ttw) => [
+         q(6741),
+         q(0),
+         ],
+      q(tty) => [
+         q(6742),
+         q(0),
+         ],
+      q(ttz) => [
+         q(6743),
+         q(0),
+         ],
+      q(tua) => [
+         q(6744),
+         q(0),
+         ],
+      q(tub) => [
+         q(6745),
+         q(0),
+         ],
+      q(tuc) => [
+         q(6746),
+         q(0),
+         ],
+      q(tud) => [
+         q(6747),
+         q(0),
+         ],
+      q(tue) => [
+         q(6748),
+         q(0),
+         ],
+      q(tuf) => [
+         q(6749),
+         q(0),
+         ],
+      q(tug) => [
+         q(6750),
+         q(0),
+         ],
+      q(tuh) => [
+         q(6751),
+         q(0),
+         ],
+      q(tui) => [
+         q(6752),
+         q(0),
+         ],
+      q(tuj) => [
+         q(6753),
+         q(0),
+         ],
+      q(tuk) => [
+         q(0442),
+         q(0),
+         ],
+      q(tul) => [
+         q(6754),
+         q(0),
+         ],
+      q(tum) => [
+         q(0443),
+         q(0),
+         ],
+      q(tun) => [
+         q(6755),
+         q(0),
+         ],
+      q(tuo) => [
+         q(6756),
+         q(0),
+         ],
+      q(tup) => [
+         q(0444),
+         q(0),
+         ],
+      q(tuq) => [
+         q(6757),
+         q(0),
+         ],
+      q(tur) => [
+         q(0445),
+         q(0),
+         ],
+      q(tus) => [
+         q(6758),
+         q(0),
+         ],
+      q(tut) => [
+         q(0446),
+         q(0),
+         ],
+      q(tuu) => [
+         q(6759),
+         q(0),
+         ],
+      q(tuv) => [
+         q(6760),
+         q(0),
+         ],
+      q(tuw) => [
+         q(0530),
+         q(0),
+         ],
+      q(tux) => [
+         q(6761),
+         q(0),
+         ],
+      q(tuy) => [
+         q(6762),
+         q(0),
+         ],
+      q(tuz) => [
+         q(6763),
+         q(0),
+         ],
+      q(tva) => [
+         q(6764),
+         q(0),
+         ],
+      q(tvd) => [
+         q(6765),
+         q(0),
+         ],
+      q(tve) => [
+         q(6766),
+         q(0),
+         ],
+      q(tvk) => [
+         q(6767),
+         q(0),
+         ],
+      q(tvl) => [
+         q(0447),
+         q(0),
+         ],
+      q(tvm) => [
+         q(6768),
+         q(0),
+         ],
+      q(tvn) => [
+         q(6769),
+         q(0),
+         ],
+      q(tvo) => [
+         q(6770),
+         q(0),
+         ],
+      q(tvs) => [
+         q(6771),
+         q(0),
+         ],
+      q(tvt) => [
+         q(6772),
+         q(0),
+         ],
+      q(tvu) => [
+         q(6773),
+         q(0),
+         ],
+      q(tvw) => [
+         q(6774),
+         q(0),
+         ],
+      q(tvy) => [
+         q(6775),
+         q(0),
+         ],
+      q(twa) => [
+         q(6776),
+         q(0),
+         ],
+      q(twb) => [
+         q(6777),
+         q(0),
+         ],
+      q(twc) => [
+         q(6778),
+         q(0),
+         ],
+      q(twd) => [
+         q(6779),
+         q(0),
+         ],
+      q(twe) => [
+         q(6780),
+         q(0),
+         ],
+      q(twf) => [
+         q(6781),
+         q(0),
+         ],
+      q(twg) => [
+         q(6782),
+         q(0),
+         ],
+      q(twh) => [
+         q(6783),
+         q(0),
+         ],
+      q(twi) => [
+         q(0448),
+         q(0),
+         ],
+      q(twl) => [
+         q(6784),
+         q(0),
+         ],
+      q(twm) => [
+         q(6785),
+         q(0),
+         ],
+      q(twn) => [
+         q(6786),
+         q(0),
+         ],
+      q(two) => [
+         q(6787),
+         q(0),
+         ],
+      q(twp) => [
+         q(6788),
+         q(0),
+         ],
+      q(twq) => [
+         q(6789),
+         q(0),
+         ],
+      q(twr) => [
+         q(6790),
+         q(0),
+         ],
+      q(twt) => [
+         q(6791),
+         q(0),
+         ],
+      q(twu) => [
+         q(6792),
+         q(0),
+         ],
+      q(tww) => [
+         q(6793),
+         q(0),
+         ],
+      q(twx) => [
+         q(6794),
+         q(0),
+         ],
+      q(twy) => [
+         q(6795),
+         q(0),
+         ],
+      q(txa) => [
+         q(6796),
+         q(0),
+         ],
+      q(txb) => [
+         q(6797),
+         q(0),
+         ],
+      q(txc) => [
+         q(6798),
+         q(0),
+         ],
+      q(txe) => [
+         q(6799),
+         q(0),
+         ],
+      q(txg) => [
+         q(6800),
+         q(0),
+         ],
+      q(txh) => [
+         q(6801),
+         q(0),
+         ],
+      q(txi) => [
+         q(6802),
+         q(0),
+         ],
+      q(txj) => [
+         q(6803),
+         q(0),
+         ],
+      q(txm) => [
+         q(6804),
+         q(0),
+         ],
+      q(txn) => [
+         q(6805),
+         q(0),
+         ],
+      q(txo) => [
+         q(6806),
+         q(0),
+         ],
+      q(txq) => [
+         q(6807),
+         q(0),
+         ],
+      q(txr) => [
+         q(6808),
+         q(0),
+         ],
+      q(txs) => [
+         q(6809),
+         q(0),
+         ],
+      q(txt) => [
+         q(6810),
+         q(0),
+         ],
+      q(txu) => [
+         q(6811),
+         q(0),
+         ],
+      q(txx) => [
+         q(6812),
+         q(0),
+         ],
+      q(txy) => [
+         q(6813),
+         q(0),
+         ],
+      q(tya) => [
+         q(6814),
+         q(0),
+         ],
+      q(tye) => [
+         q(6815),
+         q(0),
+         ],
+      q(tyh) => [
+         q(6816),
+         q(0),
+         ],
+      q(tyi) => [
+         q(6817),
+         q(0),
+         ],
+      q(tyj) => [
+         q(6818),
+         q(0),
+         ],
+      q(tyl) => [
+         q(6819),
+         q(0),
+         ],
+      q(tyn) => [
+         q(6820),
+         q(0),
+         ],
+      q(typ) => [
+         q(6821),
+         q(0),
+         ],
+      q(tyr) => [
+         q(6822),
+         q(0),
+         ],
+      q(tys) => [
+         q(6823),
+         q(0),
+         ],
+      q(tyt) => [
+         q(6824),
+         q(0),
+         ],
+      q(tyu) => [
+         q(6825),
+         q(0),
+         ],
+      q(tyv) => [
+         q(0449),
+         q(0),
+         ],
+      q(tyx) => [
+         q(6826),
+         q(0),
+         ],
+      q(tyz) => [
+         q(6827),
+         q(0),
+         ],
+      q(tza) => [
+         q(6828),
+         q(0),
+         ],
+      q(tzh) => [
+         q(6829),
+         q(0),
+         ],
+      q(tzj) => [
+         q(6830),
+         q(0),
+         ],
+      q(tzl) => [
+         q(6831),
+         q(0),
+         ],
+      q(tzm) => [
+         q(6832),
+         q(0),
+         ],
+      q(tzn) => [
+         q(6833),
+         q(0),
+         ],
+      q(tzo) => [
+         q(6834),
+         q(0),
+         ],
+      q(tzx) => [
+         q(6835),
+         q(0),
+         ],
+      q(uam) => [
+         q(6836),
+         q(0),
+         ],
+      q(uan) => [
+         q(6837),
+         q(0),
+         ],
+      q(uar) => [
+         q(6838),
+         q(0),
+         ],
+      q(uba) => [
+         q(6839),
+         q(0),
+         ],
+      q(ubi) => [
+         q(6840),
+         q(0),
+         ],
+      q(ubl) => [
+         q(6841),
+         q(0),
+         ],
+      q(ubr) => [
+         q(6842),
+         q(0),
+         ],
+      q(ubu) => [
+         q(6843),
+         q(0),
+         ],
+      q(uby) => [
+         q(6844),
+         q(0),
+         ],
+      q(uda) => [
+         q(6845),
+         q(0),
+         ],
+      q(ude) => [
+         q(6846),
+         q(0),
+         ],
+      q(udg) => [
+         q(6847),
+         q(0),
+         ],
+      q(udi) => [
+         q(6848),
+         q(0),
+         ],
+      q(udj) => [
+         q(6849),
+         q(0),
+         ],
+      q(udl) => [
+         q(6850),
+         q(0),
+         ],
+      q(udm) => [
+         q(0450),
+         q(0),
+         ],
+      q(udu) => [
+         q(6851),
+         q(0),
+         ],
+      q(ues) => [
+         q(6852),
+         q(0),
+         ],
+      q(ufi) => [
+         q(6853),
+         q(0),
+         ],
+      q(uga) => [
+         q(0451),
+         q(0),
+         ],
+      q(ugb) => [
+         q(6854),
+         q(0),
+         ],
+      q(uge) => [
+         q(6855),
+         q(0),
+         ],
+      q(ugn) => [
+         q(6856),
+         q(0),
+         ],
+      q(ugo) => [
+         q(6857),
+         q(0),
+         ],
+      q(ugy) => [
+         q(6858),
+         q(0),
+         ],
+      q(uha) => [
+         q(6859),
+         q(0),
+         ],
+      q(uhn) => [
+         q(6860),
+         q(0),
+         ],
+      q(uig) => [
+         q(0452),
+         q(0),
+         ],
+      q(uis) => [
+         q(6861),
+         q(0),
+         ],
+      q(uiv) => [
+         q(6862),
+         q(0),
+         ],
+      q(uji) => [
+         q(6863),
+         q(0),
+         ],
+      q(uka) => [
+         q(6864),
+         q(0),
+         ],
+      q(ukg) => [
+         q(6865),
+         q(0),
+         ],
+      q(ukh) => [
+         q(6866),
+         q(0),
+         ],
+      q(ukk) => [
+         q(6867),
+         q(0),
+         ],
+      q(ukl) => [
+         q(6868),
+         q(0),
+         ],
+      q(ukp) => [
+         q(6869),
+         q(0),
+         ],
+      q(ukq) => [
+         q(6870),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0453),
+         q(0),
+         ],
+      q(uks) => [
+         q(6871),
+         q(0),
+         ],
+      q(uku) => [
+         q(6872),
+         q(0),
+         ],
+      q(ukw) => [
+         q(6873),
+         q(0),
+         ],
+      q(uky) => [
+         q(6874),
+         q(0),
+         ],
+      q(ula) => [
+         q(6875),
+         q(0),
+         ],
+      q(ulb) => [
+         q(6876),
+         q(0),
+         ],
+      q(ulc) => [
+         q(6877),
+         q(0),
+         ],
+      q(ule) => [
+         q(6878),
+         q(0),
+         ],
+      q(ulf) => [
+         q(6879),
+         q(0),
+         ],
+      q(uli) => [
+         q(6880),
+         q(0),
+         ],
+      q(ulk) => [
+         q(6881),
+         q(0),
+         ],
+      q(ull) => [
+         q(6882),
+         q(0),
+         ],
+      q(ulm) => [
+         q(6883),
+         q(0),
+         ],
+      q(uln) => [
+         q(6884),
+         q(0),
+         ],
+      q(ulu) => [
+         q(6885),
+         q(0),
+         ],
+      q(ulw) => [
+         q(6886),
+         q(0),
+         ],
+      q(uma) => [
+         q(6887),
+         q(0),
+         ],
+      q(umb) => [
+         q(0454),
+         q(0),
+         ],
+      q(umc) => [
+         q(6888),
+         q(0),
+         ],
+      q(umd) => [
+         q(6889),
+         q(0),
+         ],
+      q(umg) => [
+         q(6890),
+         q(0),
+         ],
+      q(umi) => [
+         q(6891),
+         q(0),
+         ],
+      q(umm) => [
+         q(6892),
+         q(0),
+         ],
+      q(umn) => [
+         q(6893),
+         q(0),
+         ],
+      q(umo) => [
+         q(6894),
+         q(0),
+         ],
+      q(ump) => [
+         q(6895),
+         q(0),
+         ],
+      q(umr) => [
+         q(6896),
+         q(0),
+         ],
+      q(ums) => [
+         q(6897),
+         q(0),
+         ],
+      q(umu) => [
+         q(6898),
+         q(0),
+         ],
+      q(una) => [
+         q(6899),
+         q(0),
+         ],
+      q(und) => [
+         q(0455),
+         q(0),
+         ],
+      q(une) => [
+         q(6900),
+         q(0),
+         ],
+      q(ung) => [
+         q(6901),
+         q(0),
+         ],
+      q(unk) => [
+         q(6902),
+         q(0),
+         ],
+      q(unm) => [
+         q(6903),
+         q(0),
+         ],
+      q(unn) => [
+         q(6904),
+         q(0),
+         ],
+      q(unr) => [
+         q(6905),
+         q(0),
+         ],
+      q(unu) => [
+         q(6906),
+         q(0),
+         ],
+      q(unx) => [
+         q(6907),
+         q(0),
+         ],
+      q(unz) => [
+         q(6908),
+         q(0),
+         ],
+      q(upi) => [
+         q(6909),
+         q(0),
+         ],
+      q(upv) => [
+         q(6910),
+         q(0),
+         ],
+      q(ura) => [
+         q(6911),
+         q(0),
+         ],
+      q(urb) => [
+         q(6912),
+         q(0),
+         ],
+      q(urc) => [
+         q(6913),
+         q(0),
+         ],
+      q(urd) => [
+         q(0456),
+         q(0),
+         ],
+      q(ure) => [
+         q(6914),
+         q(0),
+         ],
+      q(urf) => [
+         q(6915),
+         q(0),
+         ],
+      q(urg) => [
+         q(6916),
+         q(0),
+         ],
+      q(urh) => [
+         q(6917),
+         q(0),
+         ],
+      q(uri) => [
+         q(6918),
+         q(0),
+         ],
+      q(urj) => [
+         q(0531),
+         q(0),
+         ],
+      q(urk) => [
+         q(6919),
+         q(0),
+         ],
+      q(url) => [
+         q(6920),
+         q(0),
+         ],
+      q(urm) => [
+         q(6921),
+         q(0),
+         ],
+      q(urn) => [
+         q(6922),
+         q(0),
+         ],
+      q(uro) => [
+         q(6923),
+         q(0),
+         ],
+      q(urp) => [
+         q(6924),
+         q(0),
+         ],
+      q(urr) => [
+         q(6925),
+         q(0),
+         ],
+      q(urt) => [
+         q(6926),
+         q(0),
+         ],
+      q(uru) => [
+         q(6927),
+         q(0),
+         ],
+      q(urv) => [
+         q(6928),
+         q(0),
+         ],
+      q(urw) => [
+         q(6929),
+         q(0),
+         ],
+      q(urx) => [
+         q(6930),
+         q(0),
+         ],
+      q(ury) => [
+         q(6931),
+         q(0),
+         ],
+      q(urz) => [
+         q(6932),
+         q(0),
+         ],
+      q(usa) => [
+         q(6933),
+         q(0),
+         ],
+      q(ush) => [
+         q(6934),
+         q(0),
+         ],
+      q(usi) => [
+         q(6935),
+         q(0),
+         ],
+      q(usk) => [
+         q(6936),
+         q(0),
+         ],
+      q(usp) => [
+         q(6937),
+         q(0),
+         ],
+      q(usu) => [
+         q(6938),
+         q(0),
+         ],
+      q(uta) => [
+         q(6939),
+         q(0),
+         ],
+      q(ute) => [
+         q(6940),
+         q(0),
+         ],
+      q(utp) => [
+         q(6941),
+         q(0),
+         ],
+      q(utr) => [
+         q(6942),
+         q(0),
+         ],
+      q(utu) => [
+         q(6943),
+         q(0),
+         ],
+      q(uum) => [
+         q(6944),
+         q(0),
+         ],
+      q(uun) => [
+         q(6945),
+         q(0),
+         ],
+      q(uur) => [
+         q(6946),
+         q(0),
+         ],
+      q(uuu) => [
+         q(6947),
+         q(0),
+         ],
+      q(uve) => [
+         q(6948),
+         q(0),
+         ],
+      q(uvh) => [
+         q(6949),
+         q(0),
+         ],
+      q(uvl) => [
+         q(6950),
+         q(0),
+         ],
+      q(uwa) => [
+         q(6951),
+         q(0),
+         ],
+      q(uya) => [
+         q(6952),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0457),
+         q(0),
+         ],
+      q(uzn) => [
+         q(6953),
+         q(0),
+         ],
+      q(uzs) => [
+         q(6954),
+         q(0),
+         ],
+      q(vaa) => [
+         q(6955),
+         q(0),
+         ],
+      q(vae) => [
+         q(6956),
+         q(0),
+         ],
+      q(vaf) => [
+         q(6957),
+         q(0),
+         ],
+      q(vag) => [
+         q(6958),
+         q(0),
+         ],
+      q(vah) => [
+         q(6959),
+         q(0),
+         ],
+      q(vai) => [
+         q(0458),
+         q(0),
+         ],
+      q(vaj) => [
+         q(6960),
+         q(0),
+         ],
+      q(val) => [
+         q(6961),
+         q(0),
+         ],
+      q(vam) => [
+         q(6962),
+         q(0),
+         ],
+      q(van) => [
+         q(6963),
+         q(0),
+         ],
+      q(vao) => [
+         q(6964),
+         q(0),
+         ],
+      q(vap) => [
+         q(6965),
+         q(0),
+         ],
+      q(var) => [
+         q(6966),
+         q(0),
+         ],
+      q(vas) => [
+         q(6967),
+         q(0),
+         ],
+      q(vau) => [
+         q(6968),
+         q(0),
+         ],
+      q(vav) => [
+         q(6969),
+         q(0),
+         ],
+      q(vay) => [
+         q(6970),
+         q(0),
+         ],
+      q(vbb) => [
+         q(6971),
+         q(0),
+         ],
+      q(vbk) => [
+         q(6972),
+         q(0),
+         ],
+      q(vec) => [
+         q(6973),
+         q(0),
+         ],
+      q(ved) => [
+         q(6974),
+         q(0),
+         ],
+      q(vel) => [
+         q(6975),
+         q(0),
+         ],
+      q(vem) => [
+         q(6976),
+         q(0),
+         ],
+      q(ven) => [
+         q(0459),
+         q(0),
+         ],
+      q(veo) => [
+         q(6977),
+         q(0),
+         ],
+      q(vep) => [
+         q(6978),
+         q(0),
+         ],
+      q(ver) => [
+         q(6979),
+         q(0),
+         ],
+      q(vgr) => [
+         q(6980),
+         q(0),
+         ],
+      q(vgt) => [
+         q(6981),
+         q(0),
+         ],
+      q(vic) => [
+         q(6982),
+         q(0),
+         ],
+      q(vid) => [
+         q(6983),
+         q(0),
+         ],
+      q(vie) => [
+         q(0460),
+         q(0),
+         ],
+      q(vif) => [
+         q(6984),
+         q(0),
+         ],
+      q(vig) => [
+         q(6985),
+         q(0),
+         ],
+      q(vil) => [
+         q(6986),
+         q(0),
+         ],
+      q(vin) => [
+         q(6987),
+         q(0),
+         ],
+      q(vis) => [
+         q(6988),
+         q(0),
+         ],
+      q(vit) => [
+         q(6989),
+         q(0),
+         ],
+      q(viv) => [
+         q(6990),
+         q(0),
+         ],
+      q(vka) => [
+         q(6991),
+         q(0),
+         ],
+      q(vki) => [
+         q(6992),
+         q(0),
+         ],
+      q(vkj) => [
+         q(6993),
+         q(0),
+         ],
+      q(vkk) => [
+         q(6994),
+         q(0),
+         ],
+      q(vkl) => [
+         q(6995),
+         q(0),
+         ],
+      q(vkm) => [
+         q(6996),
+         q(0),
+         ],
+      q(vko) => [
+         q(6997),
+         q(0),
+         ],
+      q(vkp) => [
+         q(6998),
+         q(0),
+         ],
+      q(vkt) => [
+         q(6999),
+         q(0),
+         ],
+      q(vku) => [
+         q(7000),
+         q(0),
+         ],
+      q(vlp) => [
+         q(7001),
+         q(0),
+         ],
+      q(vls) => [
+         q(7002),
+         q(0),
+         ],
+      q(vma) => [
+         q(7003),
+         q(0),
+         ],
+      q(vmb) => [
+         q(7004),
+         q(0),
+         ],
+      q(vmc) => [
+         q(7005),
+         q(0),
+         ],
+      q(vmd) => [
+         q(7006),
+         q(0),
+         ],
+      q(vme) => [
+         q(7007),
+         q(0),
+         ],
+      q(vmf) => [
+         q(7008),
+         q(0),
+         ],
+      q(vmg) => [
+         q(7009),
+         q(0),
+         ],
+      q(vmh) => [
+         q(7010),
+         q(0),
+         ],
+      q(vmi) => [
+         q(7011),
+         q(0),
+         ],
+      q(vmj) => [
+         q(7012),
+         q(0),
+         ],
+      q(vmk) => [
+         q(7013),
+         q(0),
+         ],
+      q(vml) => [
+         q(7014),
+         q(0),
+         ],
+      q(vmm) => [
+         q(7015),
+         q(0),
+         ],
+      q(vmp) => [
+         q(7016),
+         q(0),
+         ],
+      q(vmq) => [
+         q(7017),
+         q(0),
+         ],
+      q(vmr) => [
+         q(7018),
+         q(0),
+         ],
+      q(vms) => [
+         q(7019),
+         q(0),
+         ],
+      q(vmu) => [
+         q(7020),
+         q(0),
+         ],
+      q(vmv) => [
+         q(7021),
+         q(0),
+         ],
+      q(vmw) => [
+         q(7022),
+         q(0),
+         ],
+      q(vmx) => [
+         q(7023),
+         q(0),
+         ],
+      q(vmy) => [
+         q(7024),
+         q(0),
+         ],
+      q(vmz) => [
+         q(7025),
+         q(0),
+         ],
+      q(vnk) => [
+         q(7026),
+         q(0),
+         ],
+      q(vnm) => [
+         q(7027),
+         q(0),
+         ],
+      q(vnp) => [
+         q(7028),
+         q(0),
+         ],
+      q(vol) => [
+         q(0461),
+         q(0),
+         ],
+      q(vor) => [
+         q(7029),
+         q(0),
+         ],
+      q(vot) => [
+         q(0462),
+         q(0),
+         ],
+      q(vra) => [
+         q(7030),
+         q(0),
+         ],
+      q(vro) => [
+         q(7029),
+         q(0),
+         ],
+      q(vrs) => [
+         q(7031),
+         q(0),
+         ],
+      q(vrt) => [
+         q(7032),
+         q(0),
+         ],
+      q(vsi) => [
+         q(7033),
+         q(0),
+         ],
+      q(vsl) => [
+         q(7034),
+         q(0),
+         ],
+      q(vsv) => [
+         q(7035),
+         q(0),
+         ],
+      q(vto) => [
+         q(7036),
+         q(0),
+         ],
+      q(vum) => [
+         q(7037),
+         q(0),
+         ],
+      q(vun) => [
+         q(7038),
+         q(0),
+         ],
+      q(vut) => [
+         q(7039),
+         q(0),
+         ],
+      q(vwa) => [
+         q(7040),
+         q(0),
+         ],
+      q(waa) => [
+         q(7041),
+         q(0),
+         ],
+      q(wab) => [
+         q(7042),
+         q(0),
+         ],
+      q(wac) => [
+         q(7043),
+         q(0),
+         ],
+      q(wad) => [
+         q(7044),
+         q(0),
+         ],
+      q(wae) => [
+         q(7045),
+         q(0),
+         ],
+      q(waf) => [
+         q(7046),
+         q(0),
+         ],
+      q(wag) => [
+         q(7047),
+         q(0),
+         ],
+      q(wah) => [
+         q(7048),
+         q(0),
+         ],
+      q(wai) => [
+         q(7049),
+         q(0),
+         ],
+      q(waj) => [
+         q(7050),
+         q(0),
+         ],
+      q(wak) => [
+         q(0463),
+         q(0),
+         ],
+      q(wal) => [
+         q(0464),
+         q(1),
+         ],
+      q(wam) => [
+         q(7051),
+         q(0),
+         ],
+      q(wan) => [
+         q(7052),
+         q(0),
+         ],
+      q(wao) => [
+         q(7053),
+         q(0),
+         ],
+      q(wap) => [
+         q(7054),
+         q(0),
+         ],
+      q(waq) => [
+         q(7055),
+         q(0),
+         ],
+      q(war) => [
+         q(0465),
+         q(1),
+         ],
+      q(was) => [
+         q(0466),
+         q(0),
+         ],
+      q(wat) => [
+         q(7056),
+         q(0),
+         ],
+      q(wau) => [
+         q(7057),
+         q(0),
+         ],
+      q(wav) => [
+         q(7058),
+         q(0),
+         ],
+      q(waw) => [
+         q(7059),
+         q(0),
+         ],
+      q(wax) => [
+         q(7060),
+         q(0),
+         ],
+      q(way) => [
+         q(7061),
+         q(0),
+         ],
+      q(waz) => [
+         q(7062),
+         q(0),
+         ],
+      q(wba) => [
+         q(7063),
+         q(0),
+         ],
+      q(wbb) => [
+         q(7064),
+         q(0),
+         ],
+      q(wbe) => [
+         q(7065),
+         q(0),
+         ],
+      q(wbf) => [
+         q(6402),
+         q(0),
+         ],
+      q(wbh) => [
+         q(7066),
+         q(0),
+         ],
+      q(wbi) => [
+         q(7067),
+         q(0),
+         ],
+      q(wbj) => [
+         q(7068),
+         q(0),
+         ],
+      q(wbk) => [
+         q(7069),
+         q(0),
+         ],
+      q(wbl) => [
+         q(7070),
+         q(0),
+         ],
+      q(wbm) => [
+         q(7071),
+         q(0),
+         ],
+      q(wbp) => [
+         q(7072),
+         q(0),
+         ],
+      q(wbq) => [
+         q(7073),
+         q(0),
+         ],
+      q(wbr) => [
+         q(7074),
+         q(0),
+         ],
+      q(wbs) => [
+         q(7075),
+         q(0),
+         ],
+      q(wbt) => [
+         q(7076),
+         q(0),
+         ],
+      q(wbv) => [
+         q(7077),
+         q(0),
+         ],
+      q(wbw) => [
+         q(7078),
+         q(0),
+         ],
+      q(wca) => [
+         q(7079),
+         q(0),
+         ],
+      q(wci) => [
+         q(7080),
+         q(0),
+         ],
+      q(wdd) => [
+         q(7081),
+         q(0),
+         ],
+      q(wdg) => [
+         q(7082),
+         q(0),
+         ],
+      q(wdj) => [
+         q(7083),
+         q(0),
+         ],
+      q(wdk) => [
+         q(7084),
+         q(0),
+         ],
+      q(wdu) => [
+         q(7085),
+         q(0),
+         ],
+      q(wdy) => [
+         q(7086),
+         q(0),
+         ],
+      q(wea) => [
+         q(7087),
+         q(0),
+         ],
+      q(wec) => [
+         q(7088),
+         q(0),
+         ],
+      q(wed) => [
+         q(7089),
+         q(0),
+         ],
+      q(weg) => [
+         q(7090),
+         q(0),
+         ],
+      q(weh) => [
+         q(7091),
+         q(0),
+         ],
+      q(wei) => [
+         q(7092),
+         q(0),
+         ],
+      q(wel) => [
+         q(0467),
+         q(0),
+         ],
+      q(wem) => [
+         q(7093),
+         q(0),
+         ],
+      q(wen) => [
+         q(0468),
+         q(0),
+         ],
+      q(weo) => [
+         q(7094),
+         q(0),
+         ],
+      q(wep) => [
+         q(7095),
+         q(0),
+         ],
+      q(wer) => [
+         q(7096),
+         q(0),
+         ],
+      q(wes) => [
+         q(7097),
+         q(0),
+         ],
+      q(wet) => [
+         q(7098),
+         q(0),
+         ],
+      q(weu) => [
+         q(7099),
+         q(0),
+         ],
+      q(wew) => [
+         q(7100),
+         q(0),
+         ],
+      q(wfg) => [
+         q(7101),
+         q(0),
+         ],
+      q(wga) => [
+         q(7102),
+         q(0),
+         ],
+      q(wgb) => [
+         q(7103),
+         q(0),
+         ],
+      q(wgg) => [
+         q(7104),
+         q(0),
+         ],
+      q(wgi) => [
+         q(7105),
+         q(0),
+         ],
+      q(wgo) => [
+         q(7106),
+         q(0),
+         ],
+      q(wgu) => [
+         q(7107),
+         q(0),
+         ],
+      q(wgy) => [
+         q(7108),
+         q(0),
+         ],
+      q(wha) => [
+         q(7109),
+         q(0),
+         ],
+      q(whg) => [
+         q(7110),
+         q(0),
+         ],
+      q(whk) => [
+         q(7111),
+         q(0),
+         ],
+      q(whu) => [
+         q(7112),
+         q(0),
+         ],
+      q(wib) => [
+         q(7113),
+         q(0),
+         ],
+      q(wic) => [
+         q(7114),
+         q(0),
+         ],
+      q(wie) => [
+         q(7115),
+         q(0),
+         ],
+      q(wif) => [
+         q(7116),
+         q(0),
+         ],
+      q(wig) => [
+         q(7117),
+         q(0),
+         ],
+      q(wih) => [
+         q(7118),
+         q(0),
+         ],
+      q(wii) => [
+         q(7119),
+         q(0),
+         ],
+      q(wij) => [
+         q(7120),
+         q(0),
+         ],
+      q(wik) => [
+         q(7121),
+         q(0),
+         ],
+      q(wil) => [
+         q(7122),
+         q(0),
+         ],
+      q(wim) => [
+         q(7123),
+         q(0),
+         ],
+      q(win) => [
+         q(7124),
+         q(0),
+         ],
+      q(wir) => [
+         q(7125),
+         q(0),
+         ],
+      q(wiu) => [
+         q(7126),
+         q(0),
+         ],
+      q(wiv) => [
+         q(7127),
+         q(0),
+         ],
+      q(wiy) => [
+         q(7128),
+         q(0),
+         ],
+      q(wja) => [
+         q(7129),
+         q(0),
+         ],
+      q(wji) => [
+         q(7130),
+         q(0),
+         ],
+      q(wka) => [
+         q(7131),
+         q(0),
+         ],
+      q(wkb) => [
+         q(7132),
+         q(0),
+         ],
+      q(wkd) => [
+         q(7133),
+         q(0),
+         ],
+      q(wkl) => [
+         q(7134),
+         q(0),
+         ],
+      q(wku) => [
+         q(7135),
+         q(0),
+         ],
+      q(wkw) => [
+         q(7136),
+         q(0),
+         ],
+      q(wky) => [
+         q(7137),
+         q(0),
+         ],
+      q(wla) => [
+         q(7138),
+         q(0),
+         ],
+      q(wlc) => [
+         q(7139),
+         q(0),
+         ],
+      q(wle) => [
+         q(7140),
+         q(0),
+         ],
+      q(wlg) => [
+         q(7141),
+         q(0),
+         ],
+      q(wli) => [
+         q(7142),
+         q(0),
+         ],
+      q(wlk) => [
+         q(7143),
+         q(0),
+         ],
+      q(wll) => [
+         q(7144),
+         q(0),
+         ],
+      q(wlm) => [
+         q(7145),
+         q(0),
+         ],
+      q(wln) => [
+         q(0469),
+         q(0),
+         ],
+      q(wlo) => [
+         q(7146),
+         q(0),
+         ],
+      q(wlr) => [
+         q(7147),
+         q(0),
+         ],
+      q(wls) => [
+         q(7148),
+         q(0),
+         ],
+      q(wlu) => [
+         q(7149),
+         q(0),
+         ],
+      q(wlv) => [
+         q(7150),
+         q(0),
+         ],
+      q(wlw) => [
+         q(7151),
+         q(0),
+         ],
+      q(wlx) => [
+         q(7152),
+         q(0),
+         ],
+      q(wly) => [
+         q(7153),
+         q(0),
+         ],
+      q(wma) => [
+         q(7154),
+         q(0),
+         ],
+      q(wmb) => [
+         q(7155),
+         q(0),
+         ],
+      q(wmc) => [
+         q(7156),
+         q(0),
+         ],
+      q(wmd) => [
+         q(7157),
+         q(0),
+         ],
+      q(wme) => [
+         q(7158),
+         q(0),
+         ],
+      q(wmh) => [
+         q(7159),
+         q(0),
+         ],
+      q(wmi) => [
+         q(7160),
+         q(0),
+         ],
+      q(wmm) => [
+         q(7161),
+         q(0),
+         ],
+      q(wmn) => [
+         q(7162),
+         q(0),
+         ],
+      q(wmo) => [
+         q(7163),
+         q(0),
+         ],
+      q(wms) => [
+         q(7164),
+         q(0),
+         ],
+      q(wmt) => [
+         q(7165),
+         q(0),
+         ],
+      q(wmw) => [
+         q(7166),
+         q(0),
+         ],
+      q(wmx) => [
+         q(7167),
+         q(0),
+         ],
+      q(wnb) => [
+         q(7168),
+         q(0),
+         ],
+      q(wnc) => [
+         q(7169),
+         q(0),
+         ],
+      q(wnd) => [
+         q(7170),
+         q(0),
+         ],
+      q(wne) => [
+         q(7171),
+         q(0),
+         ],
+      q(wng) => [
+         q(7172),
+         q(0),
+         ],
+      q(wni) => [
+         q(7173),
+         q(0),
+         ],
+      q(wnk) => [
+         q(7174),
+         q(0),
+         ],
+      q(wnm) => [
+         q(7175),
+         q(0),
+         ],
+      q(wnn) => [
+         q(7176),
+         q(0),
+         ],
+      q(wno) => [
+         q(7177),
+         q(0),
+         ],
+      q(wnp) => [
+         q(7178),
+         q(0),
+         ],
+      q(wnu) => [
+         q(7179),
+         q(0),
+         ],
+      q(wnw) => [
+         q(7180),
+         q(0),
+         ],
+      q(wny) => [
+         q(7181),
+         q(0),
+         ],
+      q(woa) => [
+         q(7182),
+         q(0),
+         ],
+      q(wob) => [
+         q(7183),
+         q(0),
+         ],
+      q(woc) => [
+         q(7184),
+         q(0),
+         ],
+      q(wod) => [
+         q(7185),
+         q(0),
+         ],
+      q(woe) => [
+         q(7186),
+         q(0),
+         ],
+      q(wof) => [
+         q(7187),
+         q(0),
+         ],
+      q(wog) => [
+         q(7188),
+         q(0),
+         ],
+      q(woi) => [
+         q(7189),
+         q(0),
+         ],
+      q(wok) => [
+         q(7190),
+         q(0),
+         ],
+      q(wol) => [
+         q(0470),
+         q(0),
+         ],
+      q(wom) => [
+         q(7191),
+         q(0),
+         ],
+      q(won) => [
+         q(7192),
+         q(0),
+         ],
+      q(woo) => [
+         q(7193),
+         q(0),
+         ],
+      q(wor) => [
+         q(7194),
+         q(0),
+         ],
+      q(wos) => [
+         q(7195),
+         q(0),
+         ],
+      q(wow) => [
+         q(7196),
+         q(0),
+         ],
+      q(woy) => [
+         q(7197),
+         q(0),
+         ],
+      q(wpc) => [
+         q(7198),
+         q(0),
+         ],
+      q(wra) => [
+         q(7199),
+         q(0),
+         ],
+      q(wrb) => [
+         q(7200),
+         q(0),
+         ],
+      q(wrd) => [
+         q(7201),
+         q(0),
+         ],
+      q(wrg) => [
+         q(7202),
+         q(0),
+         ],
+      q(wrh) => [
+         q(7203),
+         q(0),
+         ],
+      q(wri) => [
+         q(7204),
+         q(0),
+         ],
+      q(wrk) => [
+         q(7205),
+         q(0),
+         ],
+      q(wrl) => [
+         q(7206),
+         q(0),
+         ],
+      q(wrm) => [
+         q(7207),
+         q(0),
+         ],
+      q(wrn) => [
+         q(7208),
+         q(0),
+         ],
+      q(wro) => [
+         q(7209),
+         q(0),
+         ],
+      q(wrp) => [
+         q(7210),
+         q(0),
+         ],
+      q(wrr) => [
+         q(7211),
+         q(0),
+         ],
+      q(wrs) => [
+         q(7212),
+         q(0),
+         ],
+      q(wru) => [
+         q(7213),
+         q(0),
+         ],
+      q(wrv) => [
+         q(7214),
+         q(0),
+         ],
+      q(wrw) => [
+         q(7215),
+         q(0),
+         ],
+      q(wrx) => [
+         q(7216),
+         q(0),
+         ],
+      q(wry) => [
+         q(7217),
+         q(0),
+         ],
+      q(wrz) => [
+         q(7218),
+         q(0),
+         ],
+      q(wsa) => [
+         q(7219),
+         q(0),
+         ],
+      q(wsg) => [
+         q(7220),
+         q(0),
+         ],
+      q(wsi) => [
+         q(7221),
+         q(0),
+         ],
+      q(wsk) => [
+         q(7222),
+         q(0),
+         ],
+      q(wsr) => [
+         q(7223),
+         q(0),
+         ],
+      q(wss) => [
+         q(7224),
+         q(0),
+         ],
+      q(wsu) => [
+         q(7225),
+         q(0),
+         ],
+      q(wsv) => [
+         q(7226),
+         q(0),
+         ],
+      q(wtf) => [
+         q(7227),
+         q(0),
+         ],
+      q(wth) => [
+         q(7228),
+         q(0),
+         ],
+      q(wti) => [
+         q(7229),
+         q(0),
+         ],
+      q(wtk) => [
+         q(7230),
+         q(0),
+         ],
+      q(wtm) => [
+         q(7231),
+         q(0),
+         ],
+      q(wtw) => [
+         q(7232),
+         q(0),
+         ],
+      q(wua) => [
+         q(7233),
+         q(0),
+         ],
+      q(wub) => [
+         q(7234),
+         q(0),
+         ],
+      q(wud) => [
+         q(7235),
+         q(0),
+         ],
+      q(wuh) => [
+         q(7236),
+         q(0),
+         ],
+      q(wul) => [
+         q(7237),
+         q(0),
+         ],
+      q(wum) => [
+         q(7238),
+         q(0),
+         ],
+      q(wun) => [
+         q(7239),
+         q(0),
+         ],
+      q(wur) => [
+         q(7240),
+         q(0),
+         ],
+      q(wut) => [
+         q(7241),
+         q(0),
+         ],
+      q(wuu) => [
+         q(7242),
+         q(0),
+         ],
+      q(wuv) => [
+         q(7243),
+         q(0),
+         ],
+      q(wux) => [
+         q(7244),
+         q(0),
+         ],
+      q(wuy) => [
+         q(7245),
+         q(0),
+         ],
+      q(wwa) => [
+         q(7246),
+         q(0),
+         ],
+      q(wwb) => [
+         q(7247),
+         q(0),
+         ],
+      q(wwo) => [
+         q(7248),
+         q(0),
+         ],
+      q(wwr) => [
+         q(7249),
+         q(0),
+         ],
+      q(www) => [
+         q(7250),
+         q(0),
+         ],
+      q(wxa) => [
+         q(7251),
+         q(0),
+         ],
+      q(wxw) => [
+         q(7252),
+         q(0),
+         ],
+      q(wya) => [
+         q(7253),
+         q(0),
+         ],
+      q(wyb) => [
+         q(7254),
+         q(0),
+         ],
+      q(wyi) => [
+         q(7255),
+         q(0),
+         ],
+      q(wym) => [
+         q(7256),
+         q(0),
+         ],
+      q(wyr) => [
+         q(7257),
+         q(0),
+         ],
+      q(wyy) => [
+         q(7258),
+         q(0),
+         ],
+      q(xaa) => [
+         q(7259),
+         q(0),
+         ],
+      q(xab) => [
+         q(7260),
+         q(0),
+         ],
+      q(xac) => [
+         q(7261),
+         q(0),
+         ],
+      q(xad) => [
+         q(7262),
+         q(0),
+         ],
+      q(xae) => [
+         q(7263),
+         q(0),
+         ],
+      q(xag) => [
+         q(7264),
+         q(0),
+         ],
+      q(xai) => [
+         q(7265),
+         q(0),
+         ],
+      q(xaj) => [
+         q(7266),
+         q(0),
+         ],
+      q(xak) => [
+         q(7267),
+         q(0),
+         ],
+      q(xal) => [
+         q(0471),
+         q(0),
+         ],
+      q(xam) => [
+         q(7268),
+         q(0),
+         ],
+      q(xan) => [
+         q(7269),
+         q(0),
+         ],
+      q(xao) => [
+         q(7270),
+         q(0),
+         ],
+      q(xap) => [
+         q(7271),
+         q(0),
+         ],
+      q(xaq) => [
+         q(7272),
+         q(0),
+         ],
+      q(xar) => [
+         q(7273),
+         q(0),
+         ],
+      q(xas) => [
+         q(7274),
+         q(0),
+         ],
+      q(xat) => [
+         q(7275),
+         q(0),
+         ],
+      q(xau) => [
+         q(7276),
+         q(0),
+         ],
+      q(xav) => [
+         q(7277),
+         q(0),
+         ],
+      q(xaw) => [
+         q(7278),
+         q(0),
+         ],
+      q(xay) => [
+         q(7279),
+         q(0),
+         ],
+      q(xbb) => [
+         q(7280),
+         q(0),
+         ],
+      q(xbc) => [
+         q(7281),
+         q(0),
+         ],
+      q(xbd) => [
+         q(7282),
+         q(0),
+         ],
+      q(xbe) => [
+         q(7283),
+         q(0),
+         ],
+      q(xbg) => [
+         q(7284),
+         q(0),
+         ],
+      q(xbi) => [
+         q(7285),
+         q(0),
+         ],
+      q(xbj) => [
+         q(7286),
+         q(0),
+         ],
+      q(xbm) => [
+         q(7287),
+         q(0),
+         ],
+      q(xbn) => [
+         q(7288),
+         q(0),
+         ],
+      q(xbo) => [
+         q(7289),
+         q(0),
+         ],
+      q(xbp) => [
+         q(7290),
+         q(0),
+         ],
+      q(xbr) => [
+         q(7291),
+         q(0),
+         ],
+      q(xbw) => [
+         q(7292),
+         q(0),
+         ],
+      q(xby) => [
+         q(7293),
+         q(0),
+         ],
+      q(xcb) => [
+         q(7294),
+         q(0),
+         ],
+      q(xcc) => [
+         q(7295),
+         q(0),
+         ],
+      q(xce) => [
+         q(7296),
+         q(0),
+         ],
+      q(xcg) => [
+         q(7297),
+         q(0),
+         ],
+      q(xch) => [
+         q(7298),
+         q(0),
+         ],
+      q(xcl) => [
+         q(7299),
+         q(0),
+         ],
+      q(xcm) => [
+         q(7300),
+         q(0),
+         ],
+      q(xcn) => [
+         q(7301),
+         q(0),
+         ],
+      q(xco) => [
+         q(7302),
+         q(0),
+         ],
+      q(xcr) => [
+         q(7303),
+         q(0),
+         ],
+      q(xct) => [
+         q(7304),
+         q(0),
+         ],
+      q(xcu) => [
+         q(7305),
+         q(0),
+         ],
+      q(xcv) => [
+         q(7306),
+         q(0),
+         ],
+      q(xcw) => [
+         q(7307),
+         q(0),
+         ],
+      q(xcy) => [
+         q(7308),
+         q(0),
+         ],
+      q(xda) => [
+         q(7309),
+         q(0),
+         ],
+      q(xdc) => [
+         q(7310),
+         q(0),
+         ],
+      q(xdk) => [
+         q(7311),
+         q(0),
+         ],
+      q(xdm) => [
+         q(7312),
+         q(0),
+         ],
+      q(xdo) => [
+         q(7313),
+         q(0),
+         ],
+      q(xdy) => [
+         q(7314),
+         q(0),
+         ],
+      q(xeb) => [
+         q(7315),
+         q(0),
+         ],
+      q(xed) => [
+         q(7316),
+         q(0),
+         ],
+      q(xeg) => [
+         q(7317),
+         q(0),
+         ],
+      q(xel) => [
+         q(7318),
+         q(0),
+         ],
+      q(xem) => [
+         q(7319),
+         q(0),
+         ],
+      q(xep) => [
+         q(7320),
+         q(0),
+         ],
+      q(xer) => [
+         q(7321),
+         q(0),
+         ],
+      q(xes) => [
+         q(7322),
+         q(0),
+         ],
+      q(xet) => [
+         q(7323),
+         q(0),
+         ],
+      q(xeu) => [
+         q(7324),
+         q(0),
+         ],
+      q(xfa) => [
+         q(7325),
+         q(0),
+         ],
+      q(xga) => [
+         q(7326),
+         q(0),
+         ],
+      q(xgb) => [
+         q(7327),
+         q(0),
+         ],
+      q(xgd) => [
+         q(7328),
+         q(0),
+         ],
+      q(xgf) => [
+         q(7329),
+         q(0),
+         ],
+      q(xgg) => [
+         q(7330),
+         q(0),
+         ],
+      q(xgi) => [
+         q(7331),
+         q(0),
+         ],
+      q(xgl) => [
+         q(7332),
+         q(0),
+         ],
+      q(xgm) => [
+         q(7333),
+         q(0),
+         ],
+      q(xgn) => [
+         q(0532),
+         q(0),
+         ],
+      q(xgr) => [
+         q(7334),
+         q(0),
+         ],
+      q(xgu) => [
+         q(7335),
+         q(0),
+         ],
+      q(xgw) => [
+         q(7336),
+         q(0),
+         ],
+      q(xha) => [
+         q(7337),
+         q(0),
+         ],
+      q(xhc) => [
+         q(7338),
+         q(0),
+         ],
+      q(xhd) => [
+         q(7339),
+         q(0),
+         ],
+      q(xhe) => [
+         q(7340),
+         q(0),
+         ],
+      q(xho) => [
+         q(0472),
+         q(0),
+         ],
+      q(xhr) => [
+         q(7341),
+         q(0),
+         ],
+      q(xht) => [
+         q(7342),
+         q(0),
+         ],
+      q(xhu) => [
+         q(7343),
+         q(0),
+         ],
+      q(xhv) => [
+         q(7344),
+         q(0),
+         ],
+      q(xib) => [
+         q(7345),
+         q(0),
+         ],
+      q(xii) => [
+         q(7346),
+         q(0),
+         ],
+      q(xil) => [
+         q(7347),
+         q(0),
+         ],
+      q(xin) => [
+         q(7348),
+         q(0),
+         ],
+      q(xir) => [
+         q(7349),
+         q(0),
+         ],
+      q(xis) => [
+         q(7350),
+         q(0),
+         ],
+      q(xiv) => [
+         q(7351),
+         q(0),
+         ],
+      q(xiy) => [
+         q(7352),
+         q(0),
+         ],
+      q(xjb) => [
+         q(7353),
+         q(0),
+         ],
+      q(xjt) => [
+         q(7354),
+         q(0),
+         ],
+      q(xka) => [
+         q(7355),
+         q(0),
+         ],
+      q(xkb) => [
+         q(7356),
+         q(0),
+         ],
+      q(xkc) => [
+         q(7357),
+         q(0),
+         ],
+      q(xkd) => [
+         q(7358),
+         q(0),
+         ],
+      q(xke) => [
+         q(7359),
+         q(0),
+         ],
+      q(xkf) => [
+         q(7360),
+         q(0),
+         ],
+      q(xkg) => [
+         q(7361),
+         q(0),
+         ],
+      q(xki) => [
+         q(7362),
+         q(0),
+         ],
+      q(xkj) => [
+         q(7363),
+         q(0),
+         ],
+      q(xkk) => [
+         q(7364),
+         q(0),
+         ],
+      q(xkl) => [
+         q(7365),
+         q(0),
+         ],
+      q(xkn) => [
+         q(7366),
+         q(0),
+         ],
+      q(xko) => [
+         q(7367),
+         q(0),
+         ],
+      q(xkp) => [
+         q(7368),
+         q(0),
+         ],
+      q(xkq) => [
+         q(7369),
+         q(0),
+         ],
+      q(xkr) => [
+         q(7370),
+         q(0),
+         ],
+      q(xks) => [
+         q(7371),
+         q(0),
+         ],
+      q(xkt) => [
+         q(7372),
+         q(0),
+         ],
+      q(xku) => [
+         q(7373),
+         q(0),
+         ],
+      q(xkv) => [
+         q(7374),
+         q(0),
+         ],
+      q(xkw) => [
+         q(7375),
+         q(0),
+         ],
+      q(xkx) => [
+         q(7376),
+         q(0),
+         ],
+      q(xky) => [
+         q(7377),
+         q(0),
+         ],
+      q(xkz) => [
+         q(7378),
+         q(0),
+         ],
+      q(xla) => [
+         q(7379),
+         q(0),
+         ],
+      q(xlb) => [
+         q(7380),
+         q(0),
+         ],
+      q(xlc) => [
+         q(7381),
+         q(0),
+         ],
+      q(xld) => [
+         q(7382),
+         q(0),
+         ],
+      q(xle) => [
+         q(7383),
+         q(0),
+         ],
+      q(xlg) => [
+         q(7384),
+         q(0),
+         ],
+      q(xli) => [
+         q(7385),
+         q(0),
+         ],
+      q(xln) => [
+         q(7386),
+         q(0),
+         ],
+      q(xlo) => [
+         q(7387),
+         q(0),
+         ],
+      q(xlp) => [
+         q(7388),
+         q(0),
+         ],
+      q(xls) => [
+         q(7389),
+         q(0),
+         ],
+      q(xlu) => [
+         q(7390),
+         q(0),
+         ],
+      q(xly) => [
+         q(7391),
+         q(0),
+         ],
+      q(xma) => [
+         q(7392),
+         q(0),
+         ],
+      q(xmb) => [
+         q(7393),
+         q(0),
+         ],
+      q(xmc) => [
+         q(7394),
+         q(0),
+         ],
+      q(xmd) => [
+         q(7395),
+         q(0),
+         ],
+      q(xme) => [
+         q(7396),
+         q(0),
+         ],
+      q(xmf) => [
+         q(7397),
+         q(0),
+         ],
+      q(xmg) => [
+         q(7398),
+         q(0),
+         ],
+      q(xmh) => [
+         q(7399),
+         q(0),
+         ],
+      q(xmj) => [
+         q(7400),
+         q(0),
+         ],
+      q(xmk) => [
+         q(7401),
+         q(0),
+         ],
+      q(xml) => [
+         q(7402),
+         q(0),
+         ],
+      q(xmm) => [
+         q(7403),
+         q(0),
+         ],
+      q(xmn) => [
+         q(7404),
+         q(0),
+         ],
+      q(xmo) => [
+         q(7405),
+         q(0),
+         ],
+      q(xmp) => [
+         q(7406),
+         q(0),
+         ],
+      q(xmq) => [
+         q(7407),
+         q(0),
+         ],
+      q(xmr) => [
+         q(7408),
+         q(0),
+         ],
+      q(xms) => [
+         q(7409),
+         q(0),
+         ],
+      q(xmt) => [
+         q(7410),
+         q(0),
+         ],
+      q(xmu) => [
+         q(7411),
+         q(0),
+         ],
+      q(xmv) => [
+         q(7412),
+         q(0),
+         ],
+      q(xmw) => [
+         q(7413),
+         q(0),
+         ],
+      q(xmx) => [
+         q(7414),
+         q(0),
+         ],
+      q(xmy) => [
+         q(7415),
+         q(0),
+         ],
+      q(xmz) => [
+         q(7416),
+         q(0),
+         ],
+      q(xna) => [
+         q(7417),
+         q(0),
+         ],
+      q(xnb) => [
+         q(7418),
+         q(0),
+         ],
+      q(xnd) => [
+         q(0533),
+         q(0),
+         ],
+      q(xng) => [
+         q(7419),
+         q(0),
+         ],
+      q(xnh) => [
+         q(7420),
+         q(0),
+         ],
+      q(xni) => [
+         q(7421),
+         q(0),
+         ],
+      q(xnk) => [
+         q(7422),
+         q(0),
+         ],
+      q(xnn) => [
+         q(7423),
+         q(0),
+         ],
+      q(xno) => [
+         q(7424),
+         q(0),
+         ],
+      q(xnr) => [
+         q(7425),
+         q(0),
+         ],
+      q(xns) => [
+         q(7426),
+         q(0),
+         ],
+      q(xnt) => [
+         q(7427),
+         q(0),
+         ],
+      q(xnu) => [
+         q(7428),
+         q(0),
+         ],
+      q(xny) => [
+         q(7429),
+         q(0),
+         ],
+      q(xnz) => [
+         q(7430),
+         q(0),
+         ],
+      q(xoc) => [
+         q(7431),
+         q(0),
+         ],
+      q(xod) => [
+         q(7432),
+         q(0),
+         ],
+      q(xog) => [
+         q(7433),
+         q(0),
+         ],
+      q(xoi) => [
+         q(7434),
+         q(0),
+         ],
+      q(xok) => [
+         q(7435),
+         q(0),
+         ],
+      q(xom) => [
+         q(7436),
+         q(0),
+         ],
+      q(xon) => [
+         q(7437),
+         q(0),
+         ],
+      q(xoo) => [
+         q(7438),
+         q(0),
+         ],
+      q(xop) => [
+         q(7439),
+         q(0),
+         ],
+      q(xor) => [
+         q(7440),
+         q(0),
+         ],
+      q(xow) => [
+         q(7441),
+         q(0),
+         ],
+      q(xpa) => [
+         q(7442),
+         q(0),
+         ],
+      q(xpc) => [
+         q(7443),
+         q(0),
+         ],
+      q(xpe) => [
+         q(7444),
+         q(0),
+         ],
+      q(xpg) => [
+         q(7445),
+         q(0),
+         ],
+      q(xpi) => [
+         q(7446),
+         q(0),
+         ],
+      q(xpj) => [
+         q(7447),
+         q(0),
+         ],
+      q(xpk) => [
+         q(7448),
+         q(0),
+         ],
+      q(xpm) => [
+         q(7449),
+         q(0),
+         ],
+      q(xpn) => [
+         q(7450),
+         q(0),
+         ],
+      q(xpo) => [
+         q(7451),
+         q(0),
+         ],
+      q(xpp) => [
+         q(7452),
+         q(0),
+         ],
+      q(xpq) => [
+         q(7453),
+         q(0),
+         ],
+      q(xpr) => [
+         q(7454),
+         q(0),
+         ],
+      q(xps) => [
+         q(7455),
+         q(0),
+         ],
+      q(xpt) => [
+         q(7456),
+         q(0),
+         ],
+      q(xpu) => [
+         q(7457),
+         q(0),
+         ],
+      q(xpy) => [
+         q(7458),
+         q(0),
+         ],
+      q(xqa) => [
+         q(7459),
+         q(0),
+         ],
+      q(xqt) => [
+         q(7460),
+         q(0),
+         ],
+      q(xra) => [
+         q(7461),
+         q(0),
+         ],
+      q(xrb) => [
+         q(7462),
+         q(0),
+         ],
+      q(xrd) => [
+         q(7463),
+         q(0),
+         ],
+      q(xre) => [
+         q(7464),
+         q(0),
+         ],
+      q(xrg) => [
+         q(7465),
+         q(0),
+         ],
+      q(xri) => [
+         q(7466),
+         q(0),
+         ],
+      q(xrm) => [
+         q(7467),
+         q(0),
+         ],
+      q(xrn) => [
+         q(7468),
+         q(0),
+         ],
+      q(xrq) => [
+         q(7469),
+         q(0),
+         ],
+      q(xrr) => [
+         q(7470),
+         q(0),
+         ],
+      q(xrt) => [
+         q(7471),
+         q(0),
+         ],
+      q(xru) => [
+         q(7472),
+         q(0),
+         ],
+      q(xrw) => [
+         q(7473),
+         q(0),
+         ],
+      q(xsa) => [
+         q(7474),
+         q(0),
+         ],
+      q(xsb) => [
+         q(7475),
+         q(0),
+         ],
+      q(xsc) => [
+         q(7476),
+         q(0),
+         ],
+      q(xsd) => [
+         q(7477),
+         q(0),
+         ],
+      q(xse) => [
+         q(7478),
+         q(0),
+         ],
+      q(xsh) => [
+         q(7479),
+         q(0),
+         ],
+      q(xsi) => [
+         q(7480),
+         q(0),
+         ],
+      q(xsl) => [
+         q(7481),
+         q(0),
+         ],
+      q(xsm) => [
+         q(7482),
+         q(0),
+         ],
+      q(xsn) => [
+         q(7483),
+         q(0),
+         ],
+      q(xso) => [
+         q(7484),
+         q(0),
+         ],
+      q(xsp) => [
+         q(7485),
+         q(0),
+         ],
+      q(xsq) => [
+         q(7486),
+         q(0),
+         ],
+      q(xsr) => [
+         q(7487),
+         q(0),
+         ],
+      q(xss) => [
+         q(7488),
+         q(0),
+         ],
+      q(xsu) => [
+         q(7489),
+         q(0),
+         ],
+      q(xsv) => [
+         q(7490),
+         q(0),
+         ],
+      q(xsy) => [
+         q(7491),
+         q(0),
+         ],
+      q(xta) => [
+         q(7492),
+         q(0),
+         ],
+      q(xtb) => [
+         q(7493),
+         q(0),
+         ],
+      q(xtc) => [
+         q(7494),
+         q(0),
+         ],
+      q(xtd) => [
+         q(7495),
+         q(0),
+         ],
+      q(xte) => [
+         q(7496),
+         q(0),
+         ],
+      q(xtg) => [
+         q(7497),
+         q(0),
+         ],
+      q(xth) => [
+         q(7498),
+         q(0),
+         ],
+      q(xti) => [
+         q(7499),
+         q(0),
+         ],
+      q(xtj) => [
+         q(7500),
+         q(0),
+         ],
+      q(xtl) => [
+         q(7501),
+         q(0),
+         ],
+      q(xtm) => [
+         q(7502),
+         q(0),
+         ],
+      q(xtn) => [
+         q(7503),
+         q(0),
+         ],
+      q(xto) => [
+         q(7504),
+         q(0),
+         ],
+      q(xtp) => [
+         q(7505),
+         q(0),
+         ],
+      q(xtq) => [
+         q(7506),
+         q(0),
+         ],
+      q(xtr) => [
+         q(7507),
+         q(0),
+         ],
+      q(xts) => [
+         q(7508),
+         q(0),
+         ],
+      q(xtt) => [
+         q(7509),
+         q(0),
+         ],
+      q(xtu) => [
+         q(7510),
+         q(0),
+         ],
+      q(xtv) => [
+         q(7511),
+         q(0),
+         ],
+      q(xtw) => [
+         q(7512),
+         q(0),
+         ],
+      q(xty) => [
+         q(7513),
+         q(0),
+         ],
+      q(xtz) => [
+         q(7514),
+         q(0),
+         ],
+      q(xua) => [
+         q(7515),
+         q(0),
+         ],
+      q(xub) => [
+         q(7516),
+         q(0),
+         ],
+      q(xud) => [
+         q(7517),
+         q(0),
+         ],
+      q(xug) => [
+         q(7518),
+         q(0),
+         ],
+      q(xuj) => [
+         q(7519),
+         q(0),
+         ],
+      q(xul) => [
+         q(7520),
+         q(0),
+         ],
+      q(xum) => [
+         q(7521),
+         q(0),
+         ],
+      q(xun) => [
+         q(7522),
+         q(0),
+         ],
+      q(xuo) => [
+         q(7523),
+         q(0),
+         ],
+      q(xup) => [
+         q(7524),
+         q(0),
+         ],
+      q(xur) => [
+         q(7525),
+         q(0),
+         ],
+      q(xut) => [
+         q(7526),
+         q(0),
+         ],
+      q(xuu) => [
+         q(7527),
+         q(0),
+         ],
+      q(xve) => [
+         q(7528),
+         q(0),
+         ],
+      q(xvi) => [
+         q(7529),
+         q(0),
+         ],
+      q(xvn) => [
+         q(7530),
+         q(0),
+         ],
+      q(xvo) => [
+         q(7531),
+         q(0),
+         ],
+      q(xvs) => [
+         q(7532),
+         q(0),
+         ],
+      q(xwa) => [
+         q(7533),
+         q(0),
+         ],
+      q(xwc) => [
+         q(7534),
+         q(0),
+         ],
+      q(xwd) => [
+         q(7535),
+         q(0),
+         ],
+      q(xwe) => [
+         q(7536),
+         q(0),
+         ],
+      q(xwg) => [
+         q(7537),
+         q(0),
+         ],
+      q(xwj) => [
+         q(7538),
+         q(0),
+         ],
+      q(xwk) => [
+         q(7539),
+         q(0),
+         ],
+      q(xwl) => [
+         q(7540),
+         q(0),
+         ],
+      q(xwo) => [
+         q(7541),
+         q(0),
+         ],
+      q(xwr) => [
+         q(7542),
+         q(0),
+         ],
+      q(xwt) => [
+         q(7543),
+         q(0),
+         ],
+      q(xww) => [
+         q(7544),
+         q(0),
+         ],
+      q(xxb) => [
+         q(7545),
+         q(0),
+         ],
+      q(xxk) => [
+         q(7546),
+         q(0),
+         ],
+      q(xxm) => [
+         q(7547),
+         q(0),
+         ],
+      q(xxr) => [
+         q(7548),
+         q(0),
+         ],
+      q(xxt) => [
+         q(7549),
+         q(0),
+         ],
+      q(xya) => [
+         q(7550),
+         q(0),
+         ],
+      q(xyb) => [
+         q(7551),
+         q(0),
+         ],
+      q(xyj) => [
+         q(7552),
+         q(0),
+         ],
+      q(xyk) => [
+         q(7553),
+         q(0),
+         ],
+      q(xyl) => [
+         q(7554),
+         q(0),
+         ],
+      q(xyt) => [
+         q(7555),
+         q(0),
+         ],
+      q(xyy) => [
+         q(7556),
+         q(0),
+         ],
+      q(xzh) => [
+         q(7557),
+         q(0),
+         ],
+      q(xzm) => [
+         q(7558),
+         q(0),
+         ],
+      q(xzp) => [
+         q(7559),
+         q(0),
+         ],
+      q(yaa) => [
+         q(7560),
+         q(0),
+         ],
+      q(yab) => [
+         q(7561),
+         q(0),
+         ],
+      q(yac) => [
+         q(7562),
+         q(0),
+         ],
+      q(yad) => [
+         q(7563),
+         q(0),
+         ],
+      q(yae) => [
+         q(7564),
+         q(0),
+         ],
+      q(yaf) => [
+         q(7565),
+         q(0),
+         ],
+      q(yag) => [
+         q(7566),
+         q(0),
+         ],
+      q(yah) => [
+         q(7567),
+         q(0),
+         ],
+      q(yai) => [
+         q(7568),
+         q(0),
+         ],
+      q(yaj) => [
+         q(7569),
+         q(0),
+         ],
+      q(yak) => [
+         q(7570),
+         q(0),
+         ],
+      q(yal) => [
+         q(7571),
+         q(0),
+         ],
+      q(yam) => [
+         q(7572),
+         q(0),
+         ],
+      q(yan) => [
+         q(7573),
+         q(0),
+         ],
+      q(yao) => [
+         q(0473),
+         q(0),
+         ],
+      q(yap) => [
+         q(0474),
+         q(0),
+         ],
+      q(yaq) => [
+         q(7574),
+         q(0),
+         ],
+      q(yar) => [
+         q(7575),
+         q(0),
+         ],
+      q(yas) => [
+         q(7576),
+         q(0),
+         ],
+      q(yat) => [
+         q(7577),
+         q(0),
+         ],
+      q(yau) => [
+         q(7578),
+         q(0),
+         ],
+      q(yav) => [
+         q(7579),
+         q(0),
+         ],
+      q(yaw) => [
+         q(7580),
+         q(0),
+         ],
+      q(yax) => [
+         q(7581),
+         q(0),
+         ],
+      q(yay) => [
+         q(7582),
+         q(0),
+         ],
+      q(yaz) => [
+         q(7583),
+         q(0),
+         ],
+      q(yba) => [
+         q(7584),
+         q(0),
+         ],
+      q(ybb) => [
+         q(7585),
+         q(0),
+         ],
+      q(ybe) => [
+         q(7586),
+         q(0),
+         ],
+      q(ybh) => [
+         q(7587),
+         q(0),
+         ],
+      q(ybi) => [
+         q(7588),
+         q(0),
+         ],
+      q(ybj) => [
+         q(7589),
+         q(0),
+         ],
+      q(ybk) => [
+         q(7590),
+         q(0),
+         ],
+      q(ybl) => [
+         q(7591),
+         q(0),
+         ],
+      q(ybm) => [
+         q(7592),
+         q(0),
+         ],
+      q(ybn) => [
+         q(7593),
+         q(0),
+         ],
+      q(ybo) => [
+         q(7594),
+         q(0),
+         ],
+      q(ybx) => [
+         q(7595),
+         q(0),
+         ],
+      q(yby) => [
+         q(7596),
+         q(0),
+         ],
+      q(ych) => [
+         q(7597),
+         q(0),
+         ],
+      q(ycl) => [
+         q(7598),
+         q(0),
+         ],
+      q(ycn) => [
+         q(7599),
+         q(0),
+         ],
+      q(ycp) => [
+         q(7600),
+         q(0),
+         ],
+      q(yda) => [
+         q(7601),
+         q(0),
+         ],
+      q(ydd) => [
+         q(7602),
+         q(0),
+         ],
+      q(yde) => [
+         q(7603),
+         q(0),
+         ],
+      q(ydg) => [
+         q(7604),
+         q(0),
+         ],
+      q(ydk) => [
+         q(7605),
+         q(0),
+         ],
+      q(yea) => [
+         q(7606),
+         q(0),
+         ],
+      q(yec) => [
+         q(7607),
+         q(0),
+         ],
+      q(yee) => [
+         q(7608),
+         q(0),
+         ],
+      q(yei) => [
+         q(7609),
+         q(0),
+         ],
+      q(yej) => [
+         q(7610),
+         q(0),
+         ],
+      q(yel) => [
+         q(7611),
+         q(0),
+         ],
+      q(yer) => [
+         q(7612),
+         q(0),
+         ],
+      q(yes) => [
+         q(7613),
+         q(0),
+         ],
+      q(yet) => [
+         q(7614),
+         q(0),
+         ],
+      q(yeu) => [
+         q(7615),
+         q(0),
+         ],
+      q(yev) => [
+         q(7616),
+         q(0),
+         ],
+      q(yey) => [
+         q(7617),
+         q(0),
+         ],
+      q(yga) => [
+         q(7618),
+         q(0),
+         ],
+      q(ygi) => [
+         q(7619),
+         q(0),
+         ],
+      q(ygl) => [
+         q(7620),
+         q(0),
+         ],
+      q(ygm) => [
+         q(7621),
+         q(0),
+         ],
+      q(ygp) => [
+         q(7622),
+         q(0),
+         ],
+      q(ygr) => [
+         q(7623),
+         q(0),
+         ],
+      q(ygs) => [
+         q(7624),
+         q(0),
+         ],
+      q(ygu) => [
+         q(7625),
+         q(0),
+         ],
+      q(ygw) => [
+         q(7626),
+         q(0),
+         ],
+      q(yha) => [
+         q(7627),
+         q(0),
+         ],
+      q(yhd) => [
+         q(7628),
+         q(0),
+         ],
+      q(yhl) => [
+         q(7629),
+         q(0),
+         ],
+      q(yhs) => [
+         q(7630),
+         q(0),
+         ],
+      q(yia) => [
+         q(7631),
+         q(0),
+         ],
+      q(yid) => [
+         q(0475),
+         q(0),
+         ],
+      q(yif) => [
+         q(2655),
+         q(0),
+         ],
+      q(yig) => [
+         q(7632),
+         q(0),
+         ],
+      q(yih) => [
+         q(7633),
+         q(0),
+         ],
+      q(yii) => [
+         q(7634),
+         q(0),
+         ],
+      q(yij) => [
+         q(7635),
+         q(0),
+         ],
+      q(yik) => [
+         q(7636),
+         q(0),
+         ],
+      q(yil) => [
+         q(7637),
+         q(0),
+         ],
+      q(yim) => [
+         q(7638),
+         q(0),
+         ],
+      q(yin) => [
+         q(7639),
+         q(0),
+         ],
+      q(yip) => [
+         q(7640),
+         q(0),
+         ],
+      q(yiq) => [
+         q(7641),
+         q(0),
+         ],
+      q(yir) => [
+         q(7642),
+         q(0),
+         ],
+      q(yis) => [
+         q(7643),
+         q(0),
+         ],
+      q(yit) => [
+         q(7644),
+         q(0),
+         ],
+      q(yiu) => [
+         q(7645),
+         q(0),
+         ],
+      q(yiv) => [
+         q(7646),
+         q(0),
+         ],
+      q(yix) => [
+         q(7647),
+         q(0),
+         ],
+      q(yiz) => [
+         q(7648),
+         q(0),
+         ],
+      q(yka) => [
+         q(7649),
+         q(0),
+         ],
+      q(ykg) => [
+         q(7650),
+         q(0),
+         ],
+      q(yki) => [
+         q(7651),
+         q(0),
+         ],
+      q(ykk) => [
+         q(7652),
+         q(0),
+         ],
+      q(ykl) => [
+         q(7653),
+         q(0),
+         ],
+      q(ykm) => [
+         q(7654),
+         q(0),
+         ],
+      q(ykn) => [
+         q(7655),
+         q(0),
+         ],
+      q(yko) => [
+         q(7656),
+         q(0),
+         ],
+      q(ykr) => [
+         q(7657),
+         q(0),
+         ],
+      q(ykt) => [
+         q(7658),
+         q(0),
+         ],
+      q(yku) => [
+         q(7659),
+         q(0),
+         ],
+      q(yky) => [
+         q(7660),
+         q(0),
+         ],
+      q(yla) => [
+         q(7661),
+         q(0),
+         ],
+      q(ylb) => [
+         q(7662),
+         q(0),
+         ],
+      q(yle) => [
+         q(7663),
+         q(0),
+         ],
+      q(ylg) => [
+         q(7664),
+         q(0),
+         ],
+      q(yli) => [
+         q(7665),
+         q(0),
+         ],
+      q(yll) => [
+         q(7666),
+         q(0),
+         ],
+      q(ylm) => [
+         q(7667),
+         q(0),
+         ],
+      q(yln) => [
+         q(7668),
+         q(0),
+         ],
+      q(ylo) => [
+         q(7669),
+         q(0),
+         ],
+      q(ylr) => [
+         q(7670),
+         q(0),
+         ],
+      q(ylu) => [
+         q(7671),
+         q(0),
+         ],
+      q(yly) => [
+         q(7672),
+         q(0),
+         ],
+      q(ymb) => [
+         q(7673),
+         q(0),
+         ],
+      q(ymc) => [
+         q(7674),
+         q(0),
+         ],
+      q(ymd) => [
+         q(7675),
+         q(0),
+         ],
+      q(yme) => [
+         q(7676),
+         q(0),
+         ],
+      q(ymg) => [
+         q(7677),
+         q(0),
+         ],
+      q(ymh) => [
+         q(7678),
+         q(0),
+         ],
+      q(ymi) => [
+         q(7679),
+         q(0),
+         ],
+      q(ymk) => [
+         q(7680),
+         q(0),
+         ],
+      q(yml) => [
+         q(7681),
+         q(0),
+         ],
+      q(ymm) => [
+         q(7682),
+         q(0),
+         ],
+      q(ymn) => [
+         q(7683),
+         q(0),
+         ],
+      q(ymo) => [
+         q(7684),
+         q(0),
+         ],
+      q(ymp) => [
+         q(7685),
+         q(0),
+         ],
+      q(ymq) => [
+         q(7686),
+         q(0),
+         ],
+      q(ymr) => [
+         q(7687),
+         q(0),
+         ],
+      q(yms) => [
+         q(7688),
+         q(0),
+         ],
+      q(ymx) => [
+         q(7689),
+         q(0),
+         ],
+      q(ymz) => [
+         q(7690),
+         q(0),
+         ],
+      q(yna) => [
+         q(7691),
+         q(0),
+         ],
+      q(ynd) => [
+         q(7692),
+         q(0),
+         ],
+      q(yne) => [
+         q(7693),
+         q(0),
+         ],
+      q(yng) => [
+         q(7694),
+         q(0),
+         ],
+      q(ynk) => [
+         q(7695),
+         q(0),
+         ],
+      q(ynl) => [
+         q(7696),
+         q(0),
+         ],
+      q(ynn) => [
+         q(7697),
+         q(0),
+         ],
+      q(yno) => [
+         q(7698),
+         q(0),
+         ],
+      q(ynq) => [
+         q(7699),
+         q(0),
+         ],
+      q(yns) => [
+         q(7700),
+         q(0),
+         ],
+      q(ynu) => [
+         q(7701),
+         q(0),
+         ],
+      q(yob) => [
+         q(7702),
+         q(0),
+         ],
+      q(yog) => [
+         q(7703),
+         q(0),
+         ],
+      q(yoi) => [
+         q(7704),
+         q(0),
+         ],
+      q(yok) => [
+         q(7705),
+         q(0),
+         ],
+      q(yol) => [
+         q(7706),
+         q(0),
+         ],
+      q(yom) => [
+         q(7707),
+         q(0),
+         ],
+      q(yon) => [
+         q(7708),
+         q(0),
+         ],
+      q(yor) => [
+         q(0476),
+         q(0),
+         ],
+      q(yot) => [
+         q(7709),
+         q(0),
+         ],
+      q(yox) => [
+         q(7710),
+         q(0),
+         ],
+      q(yoy) => [
+         q(7711),
+         q(0),
+         ],
+      q(ypa) => [
+         q(7712),
+         q(0),
+         ],
+      q(ypb) => [
+         q(7713),
+         q(0),
+         ],
+      q(ypg) => [
+         q(7714),
+         q(0),
+         ],
+      q(yph) => [
+         q(7715),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0477),
+         q(0),
+         ],
+      q(ypm) => [
+         q(7716),
+         q(0),
+         ],
+      q(ypn) => [
+         q(7717),
+         q(0),
+         ],
+      q(ypo) => [
+         q(7718),
+         q(0),
+         ],
+      q(ypp) => [
+         q(7719),
+         q(0),
+         ],
+      q(ypz) => [
+         q(7720),
+         q(0),
+         ],
+      q(yra) => [
+         q(7721),
+         q(0),
+         ],
+      q(yrb) => [
+         q(7722),
+         q(0),
+         ],
+      q(yre) => [
+         q(7723),
+         q(0),
+         ],
+      q(yrk) => [
+         q(7724),
+         q(0),
+         ],
+      q(yrl) => [
+         q(7725),
+         q(0),
+         ],
+      q(yrm) => [
+         q(7726),
+         q(0),
+         ],
+      q(yrn) => [
+         q(7727),
+         q(0),
+         ],
+      q(yro) => [
+         q(7728),
+         q(0),
+         ],
+      q(yrs) => [
+         q(7729),
+         q(0),
+         ],
+      q(yrw) => [
+         q(7730),
+         q(0),
+         ],
+      q(yry) => [
+         q(7731),
+         q(0),
+         ],
+      q(ysc) => [
+         q(7732),
+         q(0),
+         ],
+      q(ysd) => [
+         q(7733),
+         q(0),
+         ],
+      q(ysg) => [
+         q(7734),
+         q(0),
+         ],
+      q(ysl) => [
+         q(7735),
+         q(0),
+         ],
+      q(ysn) => [
+         q(7736),
+         q(0),
+         ],
+      q(yso) => [
+         q(7737),
+         q(0),
+         ],
+      q(ysp) => [
+         q(7738),
+         q(0),
+         ],
+      q(ysr) => [
+         q(7739),
+         q(0),
+         ],
+      q(yss) => [
+         q(7740),
+         q(0),
+         ],
+      q(ysy) => [
+         q(7741),
+         q(0),
+         ],
+      q(yta) => [
+         q(7742),
+         q(0),
+         ],
+      q(ytl) => [
+         q(7743),
+         q(0),
+         ],
+      q(ytp) => [
+         q(7744),
+         q(0),
+         ],
+      q(ytw) => [
+         q(7745),
+         q(0),
+         ],
+      q(yty) => [
+         q(7746),
+         q(0),
+         ],
+      q(yua) => [
+         q(7747),
+         q(0),
+         ],
+      q(yub) => [
+         q(7748),
+         q(0),
+         ],
+      q(yuc) => [
+         q(7749),
+         q(0),
+         ],
+      q(yud) => [
+         q(7750),
+         q(0),
+         ],
+      q(yue) => [
+         q(7751),
+         q(0),
+         ],
+      q(yuf) => [
+         q(7752),
+         q(0),
+         ],
+      q(yug) => [
+         q(7753),
+         q(0),
+         ],
+      q(yui) => [
+         q(7754),
+         q(0),
+         ],
+      q(yuj) => [
+         q(7755),
+         q(0),
+         ],
+      q(yuk) => [
+         q(7756),
+         q(0),
+         ],
+      q(yul) => [
+         q(7757),
+         q(0),
+         ],
+      q(yum) => [
+         q(7758),
+         q(0),
+         ],
+      q(yun) => [
+         q(7759),
+         q(0),
+         ],
+      q(yup) => [
+         q(7760),
+         q(0),
+         ],
+      q(yuq) => [
+         q(7761),
+         q(0),
+         ],
+      q(yur) => [
+         q(7762),
+         q(0),
+         ],
+      q(yut) => [
+         q(7763),
+         q(0),
+         ],
+      q(yuw) => [
+         q(7764),
+         q(0),
+         ],
+      q(yux) => [
+         q(7765),
+         q(0),
+         ],
+      q(yuy) => [
+         q(7766),
+         q(0),
+         ],
+      q(yuz) => [
+         q(7767),
+         q(0),
+         ],
+      q(yva) => [
+         q(7768),
+         q(0),
+         ],
+      q(yvt) => [
+         q(7769),
+         q(0),
+         ],
+      q(ywa) => [
+         q(7770),
+         q(0),
+         ],
+      q(ywg) => [
+         q(7771),
+         q(0),
+         ],
+      q(ywl) => [
+         q(7772),
+         q(0),
+         ],
+      q(ywn) => [
+         q(7773),
+         q(0),
+         ],
+      q(ywq) => [
+         q(7774),
+         q(0),
+         ],
+      q(ywr) => [
+         q(7775),
+         q(0),
+         ],
+      q(ywt) => [
+         q(7776),
+         q(0),
+         ],
+      q(ywu) => [
+         q(7777),
+         q(0),
+         ],
+      q(yww) => [
+         q(7778),
+         q(0),
+         ],
+      q(yxa) => [
+         q(7779),
+         q(0),
+         ],
+      q(yxg) => [
+         q(7780),
+         q(0),
+         ],
+      q(yxl) => [
+         q(7781),
+         q(0),
+         ],
+      q(yxm) => [
+         q(7782),
+         q(0),
+         ],
+      q(yxu) => [
+         q(7783),
+         q(0),
+         ],
+      q(yxy) => [
+         q(7784),
+         q(0),
+         ],
+      q(yyr) => [
+         q(7785),
+         q(0),
+         ],
+      q(yyu) => [
+         q(7786),
+         q(0),
+         ],
+      q(yyz) => [
+         q(7787),
+         q(0),
+         ],
+      q(yzg) => [
+         q(7788),
+         q(0),
+         ],
+      q(yzk) => [
+         q(7789),
+         q(0),
+         ],
+      q(zaa) => [
+         q(7790),
+         q(0),
+         ],
+      q(zab) => [
+         q(7791),
+         q(0),
+         ],
+      q(zac) => [
+         q(7792),
+         q(0),
+         ],
+      q(zad) => [
+         q(7793),
+         q(0),
+         ],
+      q(zae) => [
+         q(7794),
+         q(0),
+         ],
+      q(zaf) => [
+         q(7795),
+         q(0),
+         ],
+      q(zag) => [
+         q(7796),
+         q(0),
+         ],
+      q(zah) => [
+         q(7797),
+         q(0),
+         ],
+      q(zai) => [
+         q(7798),
+         q(0),
+         ],
+      q(zaj) => [
+         q(7799),
+         q(0),
+         ],
+      q(zak) => [
+         q(7800),
+         q(0),
+         ],
+      q(zal) => [
+         q(7801),
+         q(0),
+         ],
+      q(zam) => [
+         q(7802),
+         q(0),
+         ],
+      q(zao) => [
+         q(7803),
+         q(0),
+         ],
+      q(zap) => [
+         q(0478),
+         q(0),
+         ],
+      q(zaq) => [
+         q(7804),
+         q(0),
+         ],
+      q(zar) => [
+         q(7805),
+         q(0),
+         ],
+      q(zas) => [
+         q(7806),
+         q(0),
+         ],
+      q(zat) => [
+         q(7807),
+         q(0),
+         ],
+      q(zau) => [
+         q(7808),
+         q(0),
+         ],
+      q(zav) => [
+         q(7809),
+         q(0),
+         ],
+      q(zaw) => [
+         q(7810),
+         q(0),
+         ],
+      q(zax) => [
+         q(7811),
+         q(0),
+         ],
+      q(zay) => [
+         q(7812),
+         q(0),
+         ],
+      q(zaz) => [
+         q(7813),
+         q(0),
+         ],
+      q(zbc) => [
+         q(7814),
+         q(0),
+         ],
+      q(zbe) => [
+         q(7815),
+         q(0),
+         ],
+      q(zbl) => [
+         q(0479),
+         q(0),
+         ],
+      q(zbt) => [
+         q(7816),
+         q(0),
+         ],
+      q(zbw) => [
+         q(7817),
+         q(0),
+         ],
+      q(zca) => [
+         q(7818),
+         q(0),
+         ],
+      q(zch) => [
+         q(7819),
+         q(0),
+         ],
+      q(zdj) => [
+         q(7820),
+         q(0),
+         ],
+      q(zea) => [
+         q(7821),
+         q(0),
+         ],
+      q(zeg) => [
+         q(7822),
+         q(0),
+         ],
+      q(zeh) => [
+         q(7823),
+         q(0),
+         ],
+      q(zen) => [
+         q(0480),
+         q(0),
+         ],
+      q(zga) => [
+         q(7824),
+         q(0),
+         ],
+      q(zgb) => [
+         q(7825),
+         q(0),
+         ],
+      q(zgh) => [
+         q(0481),
+         q(0),
+         ],
+      q(zgm) => [
+         q(7826),
+         q(0),
+         ],
+      q(zgn) => [
+         q(7827),
+         q(0),
+         ],
+      q(zgr) => [
+         q(7828),
+         q(0),
+         ],
+      q(zha) => [
+         q(0482),
+         q(0),
+         ],
+      q(zhb) => [
+         q(7829),
+         q(0),
+         ],
+      q(zhd) => [
+         q(7830),
+         q(0),
+         ],
+      q(zhi) => [
+         q(7831),
+         q(0),
+         ],
+      q(zhn) => [
+         q(7832),
+         q(0),
+         ],
+      q(zhw) => [
+         q(7833),
+         q(0),
+         ],
+      q(zhx) => [
+         q(0534),
+         q(0),
+         ],
+      q(zia) => [
+         q(7834),
+         q(0),
+         ],
+      q(zib) => [
+         q(7835),
+         q(0),
+         ],
+      q(zik) => [
+         q(7836),
+         q(0),
+         ],
+      q(zil) => [
+         q(7837),
+         q(0),
+         ],
+      q(zim) => [
+         q(7838),
+         q(0),
+         ],
+      q(zin) => [
+         q(7839),
+         q(0),
+         ],
+      q(zir) => [
+         q(7840),
+         q(0),
+         ],
+      q(ziw) => [
+         q(7841),
+         q(0),
+         ],
+      q(ziz) => [
+         q(7842),
+         q(0),
+         ],
+      q(zka) => [
+         q(7843),
+         q(0),
+         ],
+      q(zkb) => [
+         q(7844),
+         q(0),
+         ],
+      q(zkd) => [
+         q(7845),
+         q(0),
+         ],
+      q(zkg) => [
+         q(7846),
+         q(0),
+         ],
+      q(zkh) => [
+         q(7847),
+         q(0),
+         ],
+      q(zkk) => [
+         q(7848),
+         q(0),
+         ],
+      q(zkn) => [
+         q(7849),
+         q(0),
+         ],
+      q(zko) => [
+         q(7850),
+         q(0),
+         ],
+      q(zkp) => [
+         q(7851),
+         q(0),
+         ],
+      q(zkr) => [
+         q(7852),
+         q(0),
+         ],
+      q(zkt) => [
+         q(7853),
+         q(0),
+         ],
+      q(zku) => [
+         q(7854),
+         q(0),
+         ],
+      q(zkv) => [
+         q(7855),
+         q(0),
+         ],
+      q(zkz) => [
+         q(7856),
+         q(0),
+         ],
+      q(zle) => [
+         q(0535),
+         q(0),
+         ],
+      q(zlj) => [
+         q(7857),
+         q(0),
+         ],
+      q(zlm) => [
+         q(7858),
+         q(0),
+         ],
+      q(zln) => [
+         q(7859),
+         q(0),
+         ],
+      q(zlq) => [
+         q(7860),
+         q(0),
+         ],
+      q(zls) => [
+         q(0536),
+         q(0),
+         ],
+      q(zlw) => [
+         q(0537),
+         q(0),
+         ],
+      q(zma) => [
+         q(7861),
+         q(0),
+         ],
+      q(zmb) => [
+         q(7862),
+         q(0),
+         ],
+      q(zmc) => [
+         q(7863),
+         q(0),
+         ],
+      q(zmd) => [
+         q(7864),
+         q(0),
+         ],
+      q(zme) => [
+         q(7865),
+         q(0),
+         ],
+      q(zmf) => [
+         q(7866),
+         q(0),
+         ],
+      q(zmg) => [
+         q(7867),
+         q(0),
+         ],
+      q(zmh) => [
+         q(7868),
+         q(0),
+         ],
+      q(zmi) => [
+         q(7869),
+         q(0),
+         ],
+      q(zmj) => [
+         q(7870),
+         q(0),
+         ],
+      q(zmk) => [
+         q(7871),
+         q(0),
+         ],
+      q(zml) => [
+         q(7872),
+         q(0),
+         ],
+      q(zmm) => [
+         q(7873),
+         q(0),
+         ],
+      q(zmn) => [
+         q(7874),
+         q(0),
+         ],
+      q(zmo) => [
+         q(7875),
+         q(0),
+         ],
+      q(zmp) => [
+         q(7876),
+         q(0),
+         ],
+      q(zmq) => [
+         q(7877),
+         q(0),
+         ],
+      q(zmr) => [
+         q(7878),
+         q(0),
+         ],
+      q(zms) => [
+         q(7879),
+         q(0),
+         ],
+      q(zmt) => [
+         q(7880),
+         q(0),
+         ],
+      q(zmu) => [
+         q(7881),
+         q(0),
+         ],
+      q(zmv) => [
+         q(7882),
+         q(0),
+         ],
+      q(zmw) => [
+         q(7883),
+         q(0),
+         ],
+      q(zmx) => [
+         q(7884),
+         q(0),
+         ],
+      q(zmy) => [
+         q(7885),
+         q(0),
+         ],
+      q(zmz) => [
+         q(7886),
+         q(0),
+         ],
+      q(zna) => [
+         q(7887),
+         q(0),
+         ],
+      q(znd) => [
+         q(0483),
+         q(0),
+         ],
+      q(zne) => [
+         q(7888),
+         q(0),
+         ],
+      q(zng) => [
+         q(7889),
+         q(0),
+         ],
+      q(znk) => [
+         q(7890),
+         q(0),
+         ],
+      q(zns) => [
+         q(7891),
+         q(0),
+         ],
+      q(zoc) => [
+         q(7892),
+         q(0),
+         ],
+      q(zoh) => [
+         q(7893),
+         q(0),
+         ],
+      q(zom) => [
+         q(7894),
+         q(0),
+         ],
+      q(zoo) => [
+         q(7895),
+         q(0),
+         ],
+      q(zoq) => [
+         q(7896),
+         q(0),
+         ],
+      q(zor) => [
+         q(7897),
+         q(0),
+         ],
+      q(zos) => [
+         q(7898),
+         q(0),
+         ],
+      q(zpa) => [
+         q(7899),
+         q(0),
+         ],
+      q(zpb) => [
+         q(7900),
+         q(0),
+         ],
+      q(zpc) => [
+         q(7901),
+         q(0),
+         ],
+      q(zpd) => [
+         q(7902),
+         q(0),
+         ],
+      q(zpe) => [
+         q(7903),
+         q(0),
+         ],
+      q(zpf) => [
+         q(7904),
+         q(0),
+         ],
+      q(zpg) => [
+         q(7905),
+         q(0),
+         ],
+      q(zph) => [
+         q(7906),
+         q(0),
+         ],
+      q(zpi) => [
+         q(7907),
+         q(0),
+         ],
+      q(zpj) => [
+         q(7908),
+         q(0),
+         ],
+      q(zpk) => [
+         q(7909),
+         q(0),
+         ],
+      q(zpl) => [
+         q(7910),
+         q(0),
+         ],
+      q(zpm) => [
+         q(7911),
+         q(0),
+         ],
+      q(zpn) => [
+         q(7912),
+         q(0),
+         ],
+      q(zpo) => [
+         q(7913),
+         q(0),
+         ],
+      q(zpp) => [
+         q(7914),
+         q(0),
+         ],
+      q(zpq) => [
+         q(7915),
+         q(0),
+         ],
+      q(zpr) => [
+         q(7916),
+         q(0),
+         ],
+      q(zps) => [
+         q(7917),
+         q(0),
+         ],
+      q(zpt) => [
+         q(7918),
+         q(0),
+         ],
+      q(zpu) => [
+         q(7919),
+         q(0),
+         ],
+      q(zpv) => [
+         q(7920),
+         q(0),
+         ],
+      q(zpw) => [
+         q(7921),
+         q(0),
+         ],
+      q(zpx) => [
+         q(7922),
+         q(0),
+         ],
+      q(zpy) => [
+         q(7923),
+         q(0),
+         ],
+      q(zpz) => [
+         q(7924),
+         q(0),
+         ],
+      q(zqe) => [
+         q(7925),
+         q(0),
+         ],
+      q(zra) => [
+         q(7926),
+         q(0),
+         ],
+      q(zrg) => [
+         q(7927),
+         q(0),
+         ],
+      q(zrn) => [
+         q(7928),
+         q(0),
+         ],
+      q(zro) => [
+         q(7929),
+         q(0),
+         ],
+      q(zrp) => [
+         q(7930),
+         q(0),
+         ],
+      q(zrs) => [
+         q(7931),
+         q(0),
+         ],
+      q(zsa) => [
+         q(7932),
+         q(0),
+         ],
+      q(zsk) => [
+         q(7933),
+         q(0),
+         ],
+      q(zsl) => [
+         q(7934),
+         q(0),
+         ],
+      q(zsm) => [
+         q(7935),
+         q(0),
+         ],
+      q(zsr) => [
+         q(7936),
+         q(0),
+         ],
+      q(zsu) => [
+         q(7937),
+         q(0),
+         ],
+      q(zte) => [
+         q(7938),
+         q(0),
+         ],
+      q(ztg) => [
+         q(7939),
+         q(0),
+         ],
+      q(ztl) => [
+         q(7940),
+         q(0),
+         ],
+      q(ztm) => [
+         q(7941),
+         q(0),
+         ],
+      q(ztn) => [
+         q(7942),
+         q(0),
+         ],
+      q(ztp) => [
+         q(7943),
+         q(0),
+         ],
+      q(ztq) => [
+         q(7944),
+         q(0),
+         ],
+      q(zts) => [
+         q(7945),
+         q(0),
+         ],
+      q(ztt) => [
+         q(7946),
+         q(0),
+         ],
+      q(ztu) => [
+         q(7947),
+         q(0),
+         ],
+      q(ztx) => [
+         q(7948),
+         q(0),
+         ],
+      q(zty) => [
+         q(7949),
+         q(0),
+         ],
+      q(zua) => [
+         q(7950),
+         q(0),
+         ],
+      q(zuh) => [
+         q(7951),
+         q(0),
+         ],
+      q(zul) => [
+         q(0484),
+         q(0),
+         ],
+      q(zum) => [
+         q(7952),
+         q(0),
+         ],
+      q(zun) => [
+         q(0485),
+         q(0),
+         ],
+      q(zuy) => [
+         q(7953),
+         q(0),
+         ],
+      q(zwa) => [
+         q(7954),
+         q(0),
+         ],
+      q(zxx) => [
+         q(0486),
+         q(0),
+         ],
+      q(zyb) => [
+         q(7955),
+         q(0),
+         ],
+      q(zyg) => [
+         q(7956),
+         q(0),
+         ],
+      q(zyj) => [
+         q(7957),
+         q(0),
+         ],
+      q(zyn) => [
+         q(7958),
+         q(0),
+         ],
+      q(zyp) => [
+         q(7959),
+         q(0),
+         ],
+      q(zza) => [
+         q(0487),
+         q(0),
+         ],
+      q(zzj) => [
+         q(7960),
+         q(0),
+         ],
+      },
+   q(term) => {
+      q(aar) => [
+         q(0001),
+         q(0),
+         ],
+      q(abk) => [
+         q(0002),
+         q(0),
+         ],
+      q(ace) => [
+         q(0003),
+         q(0),
+         ],
+      q(ach) => [
+         q(0004),
+         q(0),
+         ],
+      q(ada) => [
+         q(0005),
+         q(0),
+         ],
+      q(ady) => [
+         q(0006),
+         q(0),
+         ],
+      q(afa) => [
+         q(0007),
+         q(0),
+         ],
+      q(afh) => [
+         q(0008),
+         q(0),
+         ],
+      q(afr) => [
+         q(0009),
+         q(0),
+         ],
+      q(ain) => [
+         q(0010),
+         q(0),
+         ],
+      q(aka) => [
+         q(0011),
+         q(0),
+         ],
+      q(akk) => [
+         q(0012),
+         q(0),
+         ],
+      q(ale) => [
+         q(0014),
+         q(0),
+         ],
+      q(alg) => [
+         q(0015),
+         q(0),
+         ],
+      q(alt) => [
+         q(0016),
+         q(0),
+         ],
+      q(amh) => [
+         q(0017),
+         q(0),
+         ],
+      q(ang) => [
+         q(0018),
+         q(0),
+         ],
+      q(anp) => [
+         q(0019),
+         q(0),
+         ],
+      q(apa) => [
+         q(0020),
+         q(0),
+         ],
+      q(ara) => [
+         q(0021),
+         q(0),
+         ],
+      q(arc) => [
+         q(0022),
+         q(0),
+         ],
+      q(arg) => [
+         q(0023),
+         q(0),
+         ],
+      q(arn) => [
+         q(0025),
+         q(0),
+         ],
+      q(arp) => [
+         q(0026),
+         q(0),
+         ],
+      q(art) => [
+         q(0027),
+         q(0),
+         ],
+      q(arw) => [
+         q(0028),
+         q(0),
+         ],
+      q(asm) => [
+         q(0029),
+         q(0),
+         ],
+      q(ast) => [
+         q(0030),
+         q(0),
+         ],
+      q(ath) => [
+         q(0031),
+         q(0),
+         ],
+      q(aus) => [
+         q(0032),
+         q(0),
+         ],
+      q(ava) => [
+         q(0033),
+         q(0),
+         ],
+      q(ave) => [
+         q(0034),
+         q(0),
+         ],
+      q(awa) => [
+         q(0035),
+         q(0),
+         ],
+      q(aym) => [
+         q(0036),
+         q(0),
+         ],
+      q(aze) => [
+         q(0037),
+         q(0),
+         ],
+      q(bad) => [
+         q(0038),
+         q(0),
+         ],
+      q(bai) => [
+         q(0039),
+         q(0),
+         ],
+      q(bak) => [
+         q(0040),
+         q(0),
+         ],
+      q(bal) => [
+         q(0041),
+         q(0),
+         ],
+      q(bam) => [
+         q(0042),
+         q(0),
+         ],
+      q(ban) => [
+         q(0043),
+         q(0),
+         ],
+      q(bas) => [
+         q(0045),
+         q(0),
+         ],
+      q(bat) => [
+         q(0046),
+         q(0),
+         ],
+      q(bej) => [
+         q(0047),
+         q(0),
+         ],
+      q(bel) => [
+         q(0048),
+         q(0),
+         ],
+      q(bem) => [
+         q(0049),
+         q(0),
+         ],
+      q(ben) => [
+         q(0050),
+         q(0),
+         ],
+      q(ber) => [
+         q(0051),
+         q(0),
+         ],
+      q(bho) => [
+         q(0052),
+         q(0),
+         ],
+      q(bih) => [
+         q(0053),
+         q(0),
+         ],
+      q(bik) => [
+         q(0054),
+         q(0),
+         ],
+      q(bin) => [
+         q(0055),
+         q(0),
+         ],
+      q(bis) => [
+         q(0056),
+         q(0),
+         ],
+      q(bla) => [
+         q(0057),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0058),
+         q(0),
+         ],
+      q(bod) => [
+         q(0428),
+         q(0),
+         ],
+      q(bos) => [
+         q(0059),
+         q(0),
+         ],
+      q(bra) => [
+         q(0060),
+         q(0),
+         ],
+      q(bre) => [
+         q(0061),
+         q(0),
+         ],
+      q(btk) => [
+         q(0062),
+         q(0),
+         ],
+      q(bua) => [
+         q(0063),
+         q(0),
+         ],
+      q(bug) => [
+         q(0064),
+         q(0),
+         ],
+      q(bul) => [
+         q(0065),
+         q(0),
+         ],
+      q(byn) => [
+         q(0067),
+         q(0),
+         ],
+      q(cad) => [
+         q(0068),
+         q(0),
+         ],
+      q(cai) => [
+         q(0069),
+         q(0),
+         ],
+      q(car) => [
+         q(0070),
+         q(0),
+         ],
+      q(cat) => [
+         q(0071),
+         q(0),
+         ],
+      q(cau) => [
+         q(0072),
+         q(0),
+         ],
+      q(ceb) => [
+         q(0073),
+         q(0),
+         ],
+      q(cel) => [
+         q(0074),
+         q(0),
+         ],
+      q(ces) => [
+         q(0102),
+         q(0),
+         ],
+      q(cha) => [
+         q(0075),
+         q(0),
+         ],
+      q(chb) => [
+         q(0076),
+         q(0),
+         ],
+      q(che) => [
+         q(0077),
+         q(0),
+         ],
+      q(chg) => [
+         q(0078),
+         q(0),
+         ],
+      q(chk) => [
+         q(0080),
+         q(0),
+         ],
+      q(chm) => [
+         q(0081),
+         q(0),
+         ],
+      q(chn) => [
+         q(0082),
+         q(0),
+         ],
+      q(cho) => [
+         q(0083),
+         q(0),
+         ],
+      q(chp) => [
+         q(0084),
+         q(0),
+         ],
+      q(chr) => [
+         q(0085),
+         q(0),
+         ],
+      q(chu) => [
+         q(0086),
+         q(0),
+         ],
+      q(chv) => [
+         q(0087),
+         q(0),
+         ],
+      q(chy) => [
+         q(0088),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0089),
+         q(0),
+         ],
+      q(cnr) => [
+         q(0090),
+         q(0),
+         ],
+      q(cop) => [
+         q(0091),
+         q(0),
+         ],
+      q(cor) => [
+         q(0092),
+         q(0),
+         ],
+      q(cos) => [
+         q(0093),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0094),
+         q(0),
+         ],
+      q(cpf) => [
+         q(0095),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0096),
+         q(0),
+         ],
+      q(cre) => [
+         q(0097),
+         q(0),
+         ],
+      q(crh) => [
+         q(0098),
+         q(0),
+         ],
+      q(crp) => [
+         q(0099),
+         q(0),
+         ],
+      q(csb) => [
+         q(0100),
+         q(0),
+         ],
+      q(cus) => [
+         q(0101),
+         q(0),
+         ],
+      q(cym) => [
+         q(0467),
+         q(0),
+         ],
+      q(dak) => [
+         q(0103),
+         q(0),
+         ],
+      q(dan) => [
+         q(0104),
+         q(0),
+         ],
+      q(dar) => [
+         q(0105),
+         q(0),
+         ],
+      q(day) => [
+         q(0106),
+         q(0),
+         ],
+      q(del) => [
+         q(0107),
+         q(0),
+         ],
+      q(den) => [
+         q(0108),
+         q(0),
+         ],
+      q(deu) => [
+         q(0151),
+         q(0),
+         ],
+      q(dgr) => [
+         q(0109),
+         q(0),
+         ],
+      q(din) => [
+         q(0110),
+         q(0),
+         ],
+      q(div) => [
+         q(0111),
+         q(0),
+         ],
+      q(doi) => [
+         q(0112),
+         q(0),
+         ],
+      q(dra) => [
+         q(0113),
+         q(0),
+         ],
+      q(dsb) => [
+         q(0114),
+         q(0),
+         ],
+      q(dua) => [
+         q(0115),
+         q(0),
+         ],
+      q(dum) => [
+         q(0116),
+         q(0),
+         ],
+      q(dyu) => [
+         q(0118),
+         q(0),
+         ],
+      q(dzo) => [
+         q(0119),
+         q(0),
+         ],
+      q(efi) => [
+         q(0120),
+         q(0),
+         ],
+      q(egy) => [
+         q(0121),
+         q(0),
+         ],
+      q(eka) => [
+         q(0122),
+         q(0),
+         ],
+      q(ell) => [
+         q(0165),
+         q(0),
+         ],
+      q(elx) => [
+         q(0123),
+         q(0),
+         ],
+      q(eng) => [
+         q(0124),
+         q(0),
+         ],
+      q(enm) => [
+         q(0125),
+         q(0),
+         ],
+      q(epo) => [
+         q(0126),
+         q(0),
+         ],
+      q(est) => [
+         q(0127),
+         q(0),
+         ],
+      q(eus) => [
+         q(0044),
+         q(0),
+         ],
+      q(ewe) => [
+         q(0128),
+         q(0),
+         ],
+      q(ewo) => [
+         q(0129),
+         q(0),
+         ],
+      q(fan) => [
+         q(0130),
+         q(0),
+         ],
+      q(fao) => [
+         q(0131),
+         q(0),
+         ],
+      q(fas) => [
+         q(0343),
+         q(0),
+         ],
+      q(fat) => [
+         q(0132),
+         q(0),
+         ],
+      q(fij) => [
+         q(0133),
+         q(0),
+         ],
+      q(fil) => [
+         q(0134),
+         q(0),
+         ],
+      q(fin) => [
+         q(0135),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0136),
+         q(0),
+         ],
+      q(fon) => [
+         q(0137),
+         q(0),
+         ],
+      q(fra) => [
+         q(0138),
+         q(0),
+         ],
+      q(frm) => [
+         q(0139),
+         q(0),
+         ],
+      q(fro) => [
+         q(0140),
+         q(0),
+         ],
+      q(frr) => [
+         q(0141),
+         q(0),
+         ],
+      q(frs) => [
+         q(0142),
+         q(0),
+         ],
+      q(fry) => [
+         q(0143),
+         q(0),
+         ],
+      q(ful) => [
+         q(0144),
+         q(0),
+         ],
+      q(fur) => [
+         q(0145),
+         q(0),
+         ],
+      q(gaa) => [
+         q(0146),
+         q(0),
+         ],
+      q(gay) => [
+         q(0147),
+         q(0),
+         ],
+      q(gba) => [
+         q(0148),
+         q(0),
+         ],
+      q(gem) => [
+         q(0149),
+         q(0),
+         ],
+      q(gez) => [
+         q(0152),
+         q(0),
+         ],
+      q(gil) => [
+         q(0153),
+         q(0),
+         ],
+      q(gla) => [
+         q(0154),
+         q(0),
+         ],
+      q(gle) => [
+         q(0155),
+         q(0),
+         ],
+      q(glg) => [
+         q(0156),
+         q(0),
+         ],
+      q(glv) => [
+         q(0157),
+         q(0),
+         ],
+      q(gmh) => [
+         q(0158),
+         q(0),
+         ],
+      q(goh) => [
+         q(0159),
+         q(0),
+         ],
+      q(gon) => [
+         q(0160),
+         q(0),
+         ],
+      q(gor) => [
+         q(0161),
+         q(0),
+         ],
+      q(got) => [
+         q(0162),
+         q(0),
+         ],
+      q(grb) => [
+         q(0163),
+         q(0),
+         ],
+      q(grc) => [
+         q(0164),
+         q(0),
+         ],
+      q(grn) => [
+         q(0166),
+         q(0),
+         ],
+      q(gsw) => [
+         q(0167),
+         q(0),
+         ],
+      q(guj) => [
+         q(0168),
+         q(0),
+         ],
+      q(gwi) => [
+         q(0169),
+         q(0),
+         ],
+      q(hai) => [
+         q(0170),
+         q(0),
+         ],
+      q(hat) => [
+         q(0171),
+         q(0),
+         ],
+      q(hau) => [
+         q(0172),
+         q(0),
+         ],
+      q(haw) => [
+         q(0173),
+         q(0),
+         ],
+      q(heb) => [
+         q(0174),
+         q(0),
+         ],
+      q(her) => [
+         q(0175),
+         q(0),
+         ],
+      q(hil) => [
+         q(0176),
+         q(0),
+         ],
+      q(him) => [
+         q(0177),
+         q(0),
+         ],
+      q(hin) => [
+         q(0178),
+         q(0),
+         ],
+      q(hit) => [
+         q(0179),
+         q(0),
+         ],
+      q(hmn) => [
+         q(0180),
+         q(0),
+         ],
+      q(hmo) => [
+         q(0181),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0182),
+         q(0),
+         ],
+      q(hsb) => [
+         q(0183),
+         q(0),
+         ],
+      q(hun) => [
+         q(0184),
+         q(0),
+         ],
+      q(hup) => [
+         q(0185),
+         q(0),
+         ],
+      q(hye) => [
+         q(0024),
+         q(0),
+         ],
+      q(iba) => [
+         q(0186),
+         q(0),
+         ],
+      q(ibo) => [
+         q(0187),
+         q(0),
+         ],
+      q(ido) => [
+         q(0189),
+         q(0),
+         ],
+      q(iii) => [
+         q(0190),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0191),
+         q(0),
+         ],
+      q(iku) => [
+         q(0192),
+         q(0),
+         ],
+      q(ile) => [
+         q(0193),
+         q(0),
+         ],
+      q(ilo) => [
+         q(0194),
+         q(0),
+         ],
+      q(ina) => [
+         q(0195),
+         q(0),
+         ],
+      q(inc) => [
+         q(0196),
+         q(0),
+         ],
+      q(ind) => [
+         q(0197),
+         q(0),
+         ],
+      q(ine) => [
+         q(0198),
+         q(0),
+         ],
+      q(inh) => [
+         q(0199),
+         q(0),
+         ],
+      q(ipk) => [
+         q(0200),
+         q(0),
+         ],
+      q(ira) => [
+         q(0201),
+         q(0),
+         ],
+      q(iro) => [
+         q(0202),
+         q(0),
+         ],
+      q(isl) => [
+         q(0188),
+         q(0),
+         ],
+      q(ita) => [
+         q(0203),
+         q(0),
+         ],
+      q(jav) => [
+         q(0204),
+         q(0),
+         ],
+      q(jbo) => [
+         q(0205),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0206),
+         q(0),
+         ],
+      q(jpr) => [
+         q(0207),
+         q(0),
+         ],
+      q(jrb) => [
+         q(0208),
+         q(0),
+         ],
+      q(kaa) => [
+         q(0209),
+         q(0),
+         ],
+      q(kab) => [
+         q(0210),
+         q(0),
+         ],
+      q(kac) => [
+         q(0211),
+         q(0),
+         ],
+      q(kal) => [
+         q(0212),
+         q(0),
+         ],
+      q(kam) => [
+         q(0213),
+         q(0),
+         ],
+      q(kan) => [
+         q(0214),
+         q(0),
+         ],
+      q(kar) => [
+         q(0215),
+         q(0),
+         ],
+      q(kas) => [
+         q(0216),
+         q(0),
+         ],
+      q(kat) => [
+         q(0150),
+         q(0),
+         ],
+      q(kau) => [
+         q(0217),
+         q(0),
+         ],
+      q(kaw) => [
+         q(0218),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0219),
+         q(0),
+         ],
+      q(kbd) => [
+         q(0220),
+         q(0),
+         ],
+      q(kha) => [
+         q(0221),
+         q(0),
+         ],
+      q(khi) => [
+         q(0222),
+         q(0),
+         ],
+      q(khm) => [
+         q(0223),
+         q(0),
+         ],
+      q(kho) => [
+         q(0224),
+         q(0),
+         ],
+      q(kik) => [
+         q(0225),
+         q(0),
+         ],
+      q(kin) => [
+         q(0226),
+         q(0),
+         ],
+      q(kir) => [
+         q(0227),
+         q(0),
+         ],
+      q(kmb) => [
+         q(0228),
+         q(0),
+         ],
+      q(kok) => [
+         q(0229),
+         q(0),
+         ],
+      q(kom) => [
+         q(0230),
+         q(0),
+         ],
+      q(kon) => [
+         q(0231),
+         q(0),
+         ],
+      q(kor) => [
+         q(0232),
+         q(0),
+         ],
+      q(kos) => [
+         q(0233),
+         q(0),
+         ],
+      q(kpe) => [
+         q(0234),
+         q(0),
+         ],
+      q(krc) => [
+         q(0235),
+         q(0),
+         ],
+      q(krl) => [
+         q(0236),
+         q(0),
+         ],
+      q(kro) => [
+         q(0237),
+         q(0),
+         ],
+      q(kru) => [
+         q(0238),
+         q(0),
+         ],
+      q(kua) => [
+         q(0239),
+         q(0),
+         ],
+      q(kum) => [
+         q(0240),
+         q(0),
+         ],
+      q(kur) => [
+         q(0241),
+         q(0),
+         ],
+      q(kut) => [
+         q(0242),
+         q(0),
+         ],
+      q(lad) => [
+         q(0243),
+         q(0),
+         ],
+      q(lah) => [
+         q(0244),
+         q(0),
+         ],
+      q(lam) => [
+         q(0245),
+         q(0),
+         ],
+      q(lao) => [
+         q(0246),
+         q(0),
+         ],
+      q(lat) => [
+         q(0247),
+         q(0),
+         ],
+      q(lav) => [
+         q(0248),
+         q(0),
+         ],
+      q(lez) => [
+         q(0249),
+         q(0),
+         ],
+      q(lim) => [
+         q(0250),
+         q(0),
+         ],
+      q(lin) => [
+         q(0251),
+         q(0),
+         ],
+      q(lit) => [
+         q(0252),
+         q(0),
+         ],
+      q(lol) => [
+         q(0253),
+         q(0),
+         ],
+      q(loz) => [
+         q(0254),
+         q(0),
+         ],
+      q(ltz) => [
+         q(0255),
+         q(0),
+         ],
+      q(lua) => [
+         q(0256),
+         q(0),
+         ],
+      q(lub) => [
+         q(0257),
+         q(0),
+         ],
+      q(lug) => [
+         q(0258),
+         q(0),
+         ],
+      q(lui) => [
+         q(0259),
+         q(0),
+         ],
+      q(lun) => [
+         q(0260),
+         q(0),
+         ],
+      q(luo) => [
+         q(0261),
+         q(0),
+         ],
+      q(lus) => [
+         q(0262),
+         q(0),
+         ],
+      q(mad) => [
+         q(0264),
+         q(0),
+         ],
+      q(mag) => [
+         q(0265),
+         q(0),
+         ],
+      q(mah) => [
+         q(0266),
+         q(0),
+         ],
+      q(mai) => [
+         q(0267),
+         q(0),
+         ],
+      q(mak) => [
+         q(0268),
+         q(0),
+         ],
+      q(mal) => [
+         q(0269),
+         q(0),
+         ],
+      q(man) => [
+         q(0270),
+         q(0),
+         ],
+      q(map) => [
+         q(0272),
+         q(0),
+         ],
+      q(mar) => [
+         q(0273),
+         q(0),
+         ],
+      q(mas) => [
+         q(0274),
+         q(0),
+         ],
+      q(mdf) => [
+         q(0276),
+         q(0),
+         ],
+      q(mdr) => [
+         q(0277),
+         q(0),
+         ],
+      q(men) => [
+         q(0278),
+         q(0),
+         ],
+      q(mga) => [
+         q(0279),
+         q(0),
+         ],
+      q(mic) => [
+         q(0280),
+         q(0),
+         ],
+      q(min) => [
+         q(0281),
+         q(0),
+         ],
+      q(mis) => [
+         q(0282),
+         q(0),
+         ],
+      q(mkd) => [
+         q(0263),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0283),
+         q(0),
+         ],
+      q(mlg) => [
+         q(0284),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0285),
+         q(0),
+         ],
+      q(mnc) => [
+         q(0286),
+         q(0),
+         ],
+      q(mni) => [
+         q(0287),
+         q(0),
+         ],
+      q(mno) => [
+         q(0288),
+         q(0),
+         ],
+      q(moh) => [
+         q(0289),
+         q(0),
+         ],
+      q(mon) => [
+         q(0290),
+         q(0),
+         ],
+      q(mos) => [
+         q(0291),
+         q(0),
+         ],
+      q(mri) => [
+         q(0271),
+         q(0),
+         ],
+      q(msa) => [
+         q(0275),
+         q(0),
+         ],
+      q(mul) => [
+         q(0292),
+         q(0),
+         ],
+      q(mun) => [
+         q(0293),
+         q(0),
+         ],
+      q(mus) => [
+         q(0294),
+         q(0),
+         ],
+      q(mwl) => [
+         q(0295),
+         q(0),
+         ],
+      q(mwr) => [
+         q(0296),
+         q(0),
+         ],
+      q(mya) => [
+         q(0066),
+         q(0),
+         ],
+      q(myn) => [
+         q(0297),
+         q(0),
+         ],
+      q(myv) => [
+         q(0298),
+         q(0),
+         ],
+      q(nah) => [
+         q(0299),
+         q(0),
+         ],
+      q(nai) => [
+         q(0300),
+         q(0),
+         ],
+      q(nap) => [
+         q(0301),
+         q(0),
+         ],
+      q(nau) => [
+         q(0302),
+         q(0),
+         ],
+      q(nav) => [
+         q(0303),
+         q(0),
+         ],
+      q(nbl) => [
+         q(0304),
+         q(0),
+         ],
+      q(nde) => [
+         q(0305),
+         q(0),
+         ],
+      q(ndo) => [
+         q(0306),
+         q(0),
+         ],
+      q(nds) => [
+         q(0307),
+         q(0),
+         ],
+      q(nep) => [
+         q(0308),
+         q(0),
+         ],
+      q(new) => [
+         q(0309),
+         q(0),
+         ],
+      q(nia) => [
+         q(0310),
+         q(0),
+         ],
+      q(nic) => [
+         q(0311),
+         q(0),
+         ],
+      q(niu) => [
+         q(0312),
+         q(0),
+         ],
+      q(nld) => [
+         q(0117),
+         q(0),
+         ],
+      q(nno) => [
+         q(0313),
+         q(0),
+         ],
+      q(nob) => [
+         q(0314),
+         q(0),
+         ],
+      q(nog) => [
+         q(0315),
+         q(0),
+         ],
+      q(non) => [
+         q(0316),
+         q(0),
+         ],
+      q(nor) => [
+         q(0317),
+         q(0),
+         ],
+      q(nqo) => [
+         q(0318),
+         q(0),
+         ],
+      q(nso) => [
+         q(0319),
+         q(0),
+         ],
+      q(nub) => [
+         q(0320),
+         q(0),
+         ],
+      q(nwc) => [
+         q(0321),
+         q(0),
+         ],
+      q(nya) => [
+         q(0322),
+         q(0),
+         ],
+      q(nym) => [
+         q(0323),
+         q(0),
+         ],
+      q(nyn) => [
+         q(0324),
+         q(0),
+         ],
+      q(nyo) => [
+         q(0325),
+         q(0),
+         ],
+      q(nzi) => [
+         q(0326),
+         q(0),
+         ],
+      q(oci) => [
+         q(0327),
+         q(0),
+         ],
+      q(oji) => [
+         q(0328),
+         q(0),
+         ],
+      q(ori) => [
+         q(0329),
+         q(0),
+         ],
+      q(orm) => [
+         q(0330),
+         q(0),
+         ],
+      q(osa) => [
+         q(0331),
+         q(0),
+         ],
+      q(oss) => [
+         q(0332),
+         q(0),
+         ],
+      q(ota) => [
+         q(0333),
+         q(0),
+         ],
+      q(oto) => [
+         q(0334),
+         q(0),
+         ],
+      q(paa) => [
+         q(0335),
+         q(0),
+         ],
+      q(pag) => [
+         q(0336),
+         q(0),
+         ],
+      q(pal) => [
+         q(0337),
+         q(0),
+         ],
+      q(pam) => [
+         q(0338),
+         q(0),
+         ],
+      q(pan) => [
+         q(0339),
+         q(0),
+         ],
+      q(pap) => [
+         q(0340),
+         q(0),
+         ],
+      q(pau) => [
+         q(0341),
+         q(0),
+         ],
+      q(peo) => [
+         q(0342),
+         q(0),
+         ],
+      q(phi) => [
+         q(0344),
+         q(0),
+         ],
+      q(phn) => [
+         q(0345),
+         q(0),
+         ],
+      q(pli) => [
+         q(0346),
+         q(0),
+         ],
+      q(pol) => [
+         q(0347),
+         q(0),
+         ],
+      q(pon) => [
+         q(0348),
+         q(0),
+         ],
+      q(por) => [
+         q(0349),
+         q(0),
+         ],
+      q(pra) => [
+         q(0350),
+         q(0),
+         ],
+      q(pro) => [
+         q(0351),
+         q(0),
+         ],
+      q(pus) => [
+         q(0352),
+         q(0),
+         ],
+      q(qtz) => [
+         q(0353),
+         q(0),
+         ],
+      q(que) => [
+         q(0354),
+         q(0),
+         ],
+      q(raj) => [
+         q(0355),
+         q(0),
+         ],
+      q(rap) => [
+         q(0356),
+         q(0),
+         ],
+      q(rar) => [
+         q(0357),
+         q(0),
+         ],
+      q(roa) => [
+         q(0358),
+         q(0),
+         ],
+      q(roh) => [
+         q(0359),
+         q(0),
+         ],
+      q(rom) => [
+         q(0360),
+         q(0),
+         ],
+      q(ron) => [
+         q(0361),
+         q(0),
+         ],
+      q(run) => [
+         q(0362),
+         q(0),
+         ],
+      q(rup) => [
+         q(0363),
+         q(0),
+         ],
+      q(rus) => [
+         q(0364),
+         q(0),
+         ],
+      q(sad) => [
+         q(0365),
+         q(0),
+         ],
+      q(sag) => [
+         q(0366),
+         q(0),
+         ],
+      q(sah) => [
+         q(0367),
+         q(0),
+         ],
+      q(sai) => [
+         q(0368),
+         q(0),
+         ],
+      q(sal) => [
+         q(0369),
+         q(0),
+         ],
+      q(sam) => [
+         q(0370),
+         q(0),
+         ],
+      q(san) => [
+         q(0371),
+         q(0),
+         ],
+      q(sas) => [
+         q(0372),
+         q(0),
+         ],
+      q(sat) => [
+         q(0373),
+         q(0),
+         ],
+      q(scn) => [
+         q(0374),
+         q(0),
+         ],
+      q(sco) => [
+         q(0375),
+         q(0),
+         ],
+      q(sel) => [
+         q(0376),
+         q(0),
+         ],
+      q(sem) => [
+         q(0377),
+         q(0),
+         ],
+      q(sga) => [
+         q(0378),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0379),
+         q(0),
+         ],
+      q(shn) => [
+         q(0380),
+         q(0),
+         ],
+      q(sid) => [
+         q(0381),
+         q(0),
+         ],
+      q(sin) => [
+         q(0382),
+         q(0),
+         ],
+      q(sio) => [
+         q(0383),
+         q(0),
+         ],
+      q(sit) => [
+         q(0384),
+         q(0),
+         ],
+      q(sla) => [
+         q(0385),
+         q(0),
+         ],
+      q(slk) => [
+         q(0386),
+         q(0),
+         ],
+      q(slv) => [
+         q(0387),
+         q(0),
+         ],
+      q(sma) => [
+         q(0388),
+         q(0),
+         ],
+      q(sme) => [
+         q(0389),
+         q(0),
+         ],
+      q(smi) => [
+         q(0390),
+         q(0),
+         ],
+      q(smj) => [
+         q(0391),
+         q(0),
+         ],
+      q(smn) => [
+         q(0392),
+         q(0),
+         ],
+      q(smo) => [
+         q(0393),
+         q(0),
+         ],
+      q(sms) => [
+         q(0394),
+         q(0),
+         ],
+      q(sna) => [
+         q(0395),
+         q(0),
+         ],
+      q(snd) => [
+         q(0396),
+         q(0),
+         ],
+      q(snk) => [
+         q(0397),
+         q(0),
+         ],
+      q(sog) => [
+         q(0398),
+         q(0),
+         ],
+      q(som) => [
+         q(0399),
+         q(0),
+         ],
+      q(son) => [
+         q(0400),
+         q(0),
+         ],
+      q(sot) => [
+         q(0401),
+         q(0),
+         ],
+      q(spa) => [
+         q(0402),
+         q(0),
+         ],
+      q(sqi) => [
+         q(0013),
+         q(0),
+         ],
+      q(srd) => [
+         q(0403),
+         q(0),
+         ],
+      q(srn) => [
+         q(0404),
+         q(0),
+         ],
+      q(srp) => [
+         q(0405),
+         q(0),
+         ],
+      q(srr) => [
+         q(0406),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0407),
+         q(0),
+         ],
+      q(ssw) => [
+         q(0408),
+         q(0),
+         ],
+      q(suk) => [
+         q(0409),
+         q(0),
+         ],
+      q(sun) => [
+         q(0410),
+         q(0),
+         ],
+      q(sus) => [
+         q(0411),
+         q(0),
+         ],
+      q(sux) => [
+         q(0412),
+         q(0),
+         ],
+      q(swa) => [
+         q(0413),
+         q(0),
+         ],
+      q(swe) => [
+         q(0414),
+         q(0),
+         ],
+      q(syc) => [
+         q(0415),
+         q(0),
+         ],
+      q(syr) => [
+         q(0416),
+         q(0),
+         ],
+      q(tah) => [
+         q(0417),
+         q(0),
+         ],
+      q(tai) => [
+         q(0418),
+         q(0),
+         ],
+      q(tam) => [
+         q(0419),
+         q(0),
+         ],
+      q(tat) => [
+         q(0420),
+         q(0),
+         ],
+      q(tel) => [
+         q(0421),
+         q(0),
+         ],
+      q(tem) => [
+         q(0422),
+         q(0),
+         ],
+      q(ter) => [
+         q(0423),
+         q(0),
+         ],
+      q(tet) => [
+         q(0424),
+         q(0),
+         ],
+      q(tgk) => [
+         q(0425),
+         q(0),
+         ],
+      q(tgl) => [
+         q(0426),
+         q(0),
+         ],
+      q(tha) => [
+         q(0427),
+         q(0),
+         ],
+      q(tig) => [
+         q(0429),
+         q(0),
+         ],
+      q(tir) => [
+         q(0430),
+         q(0),
+         ],
+      q(tiv) => [
+         q(0431),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0432),
+         q(0),
+         ],
+      q(tlh) => [
+         q(0433),
+         q(0),
+         ],
+      q(tli) => [
+         q(0434),
+         q(0),
+         ],
+      q(tmh) => [
+         q(0435),
+         q(0),
+         ],
+      q(tog) => [
+         q(0436),
+         q(0),
+         ],
+      q(ton) => [
+         q(0437),
+         q(0),
+         ],
+      q(tpi) => [
+         q(0438),
+         q(0),
+         ],
+      q(tsi) => [
+         q(0439),
+         q(0),
+         ],
+      q(tsn) => [
+         q(0440),
+         q(0),
+         ],
+      q(tso) => [
+         q(0441),
+         q(0),
+         ],
+      q(tuk) => [
+         q(0442),
+         q(0),
+         ],
+      q(tum) => [
+         q(0443),
+         q(0),
+         ],
+      q(tup) => [
+         q(0444),
+         q(0),
+         ],
+      q(tur) => [
+         q(0445),
+         q(0),
+         ],
+      q(tut) => [
+         q(0446),
+         q(0),
+         ],
+      q(tvl) => [
+         q(0447),
+         q(0),
+         ],
+      q(twi) => [
+         q(0448),
+         q(0),
+         ],
+      q(tyv) => [
+         q(0449),
+         q(0),
+         ],
+      q(udm) => [
+         q(0450),
+         q(0),
+         ],
+      q(uga) => [
+         q(0451),
+         q(0),
+         ],
+      q(uig) => [
+         q(0452),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0453),
+         q(0),
+         ],
+      q(umb) => [
+         q(0454),
+         q(0),
+         ],
+      q(und) => [
+         q(0455),
+         q(0),
+         ],
+      q(urd) => [
+         q(0456),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0457),
+         q(0),
+         ],
+      q(vai) => [
+         q(0458),
+         q(0),
+         ],
+      q(ven) => [
+         q(0459),
+         q(0),
+         ],
+      q(vie) => [
+         q(0460),
+         q(0),
+         ],
+      q(vol) => [
+         q(0461),
+         q(0),
+         ],
+      q(vot) => [
+         q(0462),
+         q(0),
+         ],
+      q(wak) => [
+         q(0463),
+         q(0),
+         ],
+      q(wal) => [
+         q(0464),
+         q(0),
+         ],
+      q(war) => [
+         q(0465),
+         q(0),
+         ],
+      q(was) => [
+         q(0466),
+         q(0),
+         ],
+      q(wen) => [
+         q(0468),
+         q(0),
+         ],
+      q(wln) => [
+         q(0469),
+         q(0),
+         ],
+      q(wol) => [
+         q(0470),
+         q(0),
+         ],
+      q(xal) => [
+         q(0471),
+         q(0),
+         ],
+      q(xho) => [
+         q(0472),
+         q(0),
+         ],
+      q(yao) => [
+         q(0473),
+         q(0),
+         ],
+      q(yap) => [
+         q(0474),
+         q(0),
+         ],
+      q(yid) => [
+         q(0475),
+         q(0),
+         ],
+      q(yor) => [
+         q(0476),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0477),
+         q(0),
+         ],
+      q(zap) => [
+         q(0478),
+         q(0),
+         ],
+      q(zbl) => [
+         q(0479),
+         q(0),
+         ],
+      q(zen) => [
+         q(0480),
+         q(0),
+         ],
+      q(zgh) => [
+         q(0481),
+         q(0),
+         ],
+      q(zha) => [
+         q(0482),
+         q(0),
+         ],
+      q(zho) => [
+         q(0079),
+         q(0),
+         ],
+      q(znd) => [
+         q(0483),
+         q(0),
+         ],
+      q(zul) => [
+         q(0484),
+         q(0),
+         ],
+      q(zun) => [
+         q(0485),
+         q(0),
+         ],
+      q(zxx) => [
+         q(0486),
+         q(0),
+         ],
+      q(zza) => [
+         q(0487),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'language'}{'id2code'} = {
+   q(alpha-2) => {
+      q(0001) => q(aa),
+      q(0002) => q(ab),
+      q(0009) => q(af),
+      q(0011) => q(ak),
+      q(0013) => q(sq),
+      q(0017) => q(am),
+      q(0021) => q(ar),
+      q(0023) => q(an),
+      q(0024) => q(hy),
+      q(0029) => q(as),
+      q(0033) => q(av),
+      q(0034) => q(ae),
+      q(0036) => q(ay),
+      q(0037) => q(az),
+      q(0040) => q(ba),
+      q(0042) => q(bm),
+      q(0044) => q(eu),
+      q(0048) => q(be),
+      q(0050) => q(bn),
+      q(0053) => q(bh),
+      q(0056) => q(bi),
+      q(0059) => q(bs),
+      q(0061) => q(br),
+      q(0065) => q(bg),
+      q(0066) => q(my),
+      q(0071) => q(ca),
+      q(0075) => q(ch),
+      q(0077) => q(ce),
+      q(0079) => q(zh),
+      q(0086) => q(cu),
+      q(0087) => q(cv),
+      q(0092) => q(kw),
+      q(0093) => q(co),
+      q(0097) => q(cr),
+      q(0102) => q(cs),
+      q(0104) => q(da),
+      q(0111) => q(dv),
+      q(0117) => q(nl),
+      q(0119) => q(dz),
+      q(0124) => q(en),
+      q(0126) => q(eo),
+      q(0127) => q(et),
+      q(0128) => q(ee),
+      q(0131) => q(fo),
+      q(0133) => q(fj),
+      q(0135) => q(fi),
+      q(0138) => q(fr),
+      q(0143) => q(fy),
+      q(0144) => q(ff),
+      q(0150) => q(ka),
+      q(0151) => q(de),
+      q(0154) => q(gd),
+      q(0155) => q(ga),
+      q(0156) => q(gl),
+      q(0157) => q(gv),
+      q(0165) => q(el),
+      q(0166) => q(gn),
+      q(0168) => q(gu),
+      q(0171) => q(ht),
+      q(0172) => q(ha),
+      q(0174) => q(he),
+      q(0175) => q(hz),
+      q(0178) => q(hi),
+      q(0181) => q(ho),
+      q(0182) => q(hr),
+      q(0184) => q(hu),
+      q(0187) => q(ig),
+      q(0188) => q(is),
+      q(0189) => q(io),
+      q(0190) => q(ii),
+      q(0192) => q(iu),
+      q(0193) => q(ie),
+      q(0195) => q(ia),
+      q(0197) => q(id),
+      q(0200) => q(ik),
+      q(0203) => q(it),
+      q(0204) => q(jv),
+      q(0206) => q(ja),
+      q(0212) => q(kl),
+      q(0214) => q(kn),
+      q(0216) => q(ks),
+      q(0217) => q(kr),
+      q(0219) => q(kk),
+      q(0223) => q(km),
+      q(0225) => q(ki),
+      q(0226) => q(rw),
+      q(0227) => q(ky),
+      q(0230) => q(kv),
+      q(0231) => q(kg),
+      q(0232) => q(ko),
+      q(0239) => q(kj),
+      q(0241) => q(ku),
+      q(0246) => q(lo),
+      q(0247) => q(la),
+      q(0248) => q(lv),
+      q(0250) => q(li),
+      q(0251) => q(ln),
+      q(0252) => q(lt),
+      q(0255) => q(lb),
+      q(0257) => q(lu),
+      q(0258) => q(lg),
+      q(0263) => q(mk),
+      q(0266) => q(mh),
+      q(0269) => q(ml),
+      q(0271) => q(mi),
+      q(0273) => q(mr),
+      q(0275) => q(ms),
+      q(0284) => q(mg),
+      q(0285) => q(mt),
+      q(0290) => q(mn),
+      q(0302) => q(na),
+      q(0303) => q(nv),
+      q(0304) => q(nr),
+      q(0305) => q(nd),
+      q(0306) => q(ng),
+      q(0308) => q(ne),
+      q(0313) => q(nn),
+      q(0314) => q(nb),
+      q(0317) => q(no),
+      q(0322) => q(ny),
+      q(0327) => q(oc),
+      q(0328) => q(oj),
+      q(0329) => q(or),
+      q(0330) => q(om),
+      q(0332) => q(os),
+      q(0339) => q(pa),
+      q(0343) => q(fa),
+      q(0346) => q(pi),
+      q(0347) => q(pl),
+      q(0349) => q(pt),
+      q(0352) => q(ps),
+      q(0354) => q(qu),
+      q(0359) => q(rm),
+      q(0361) => q(ro),
+      q(0362) => q(rn),
+      q(0364) => q(ru),
+      q(0366) => q(sg),
+      q(0371) => q(sa),
+      q(0382) => q(si),
+      q(0386) => q(sk),
+      q(0387) => q(sl),
+      q(0389) => q(se),
+      q(0393) => q(sm),
+      q(0395) => q(sn),
+      q(0396) => q(sd),
+      q(0399) => q(so),
+      q(0401) => q(st),
+      q(0402) => q(es),
+      q(0403) => q(sc),
+      q(0405) => q(sr),
+      q(0408) => q(ss),
+      q(0410) => q(su),
+      q(0413) => q(sw),
+      q(0414) => q(sv),
+      q(0417) => q(ty),
+      q(0419) => q(ta),
+      q(0420) => q(tt),
+      q(0421) => q(te),
+      q(0425) => q(tg),
+      q(0426) => q(tl),
+      q(0427) => q(th),
+      q(0428) => q(bo),
+      q(0430) => q(ti),
+      q(0437) => q(to),
+      q(0440) => q(tn),
+      q(0441) => q(ts),
+      q(0442) => q(tk),
+      q(0445) => q(tr),
+      q(0448) => q(tw),
+      q(0452) => q(ug),
+      q(0453) => q(uk),
+      q(0456) => q(ur),
+      q(0457) => q(uz),
+      q(0459) => q(ve),
+      q(0460) => q(vi),
+      q(0461) => q(vo),
+      q(0467) => q(cy),
+      q(0469) => q(wa),
+      q(0470) => q(wo),
+      q(0472) => q(xh),
+      q(0475) => q(yi),
+      q(0476) => q(yo),
+      q(0482) => q(za),
+      q(0484) => q(zu),
+      q(0538) => q(sh),
+      },
+   q(alpha-3) => {
+      q(0001) => q(aar),
+      q(0002) => q(abk),
+      q(0003) => q(ace),
+      q(0004) => q(ach),
+      q(0005) => q(ada),
+      q(0006) => q(ady),
+      q(0007) => q(afa),
+      q(0008) => q(afh),
+      q(0009) => q(afr),
+      q(0010) => q(ain),
+      q(0011) => q(aka),
+      q(0012) => q(akk),
+      q(0013) => q(alb),
+      q(0014) => q(ale),
+      q(0015) => q(alg),
+      q(0016) => q(alt),
+      q(0017) => q(amh),
+      q(0018) => q(ang),
+      q(0019) => q(anp),
+      q(0020) => q(apa),
+      q(0021) => q(ara),
+      q(0022) => q(arc),
+      q(0023) => q(arg),
+      q(0024) => q(arm),
+      q(0025) => q(arn),
+      q(0026) => q(arp),
+      q(0027) => q(art),
+      q(0028) => q(arw),
+      q(0029) => q(asm),
+      q(0030) => q(ast),
+      q(0031) => q(ath),
+      q(0032) => q(aus),
+      q(0033) => q(ava),
+      q(0034) => q(ave),
+      q(0035) => q(awa),
+      q(0036) => q(aym),
+      q(0037) => q(aze),
+      q(0038) => q(bad),
+      q(0039) => q(bai),
+      q(0040) => q(bak),
+      q(0041) => q(bal),
+      q(0042) => q(bam),
+      q(0043) => q(ban),
+      q(0044) => q(baq),
+      q(0045) => q(bas),
+      q(0046) => q(bat),
+      q(0047) => q(bej),
+      q(0048) => q(bel),
+      q(0049) => q(bem),
+      q(0050) => q(ben),
+      q(0051) => q(ber),
+      q(0052) => q(bho),
+      q(0053) => q(bih),
+      q(0054) => q(bik),
+      q(0055) => q(bin),
+      q(0056) => q(bis),
+      q(0057) => q(bla),
+      q(0058) => q(bnt),
+      q(0059) => q(bos),
+      q(0060) => q(bra),
+      q(0061) => q(bre),
+      q(0062) => q(btk),
+      q(0063) => q(bua),
+      q(0064) => q(bug),
+      q(0065) => q(bul),
+      q(0066) => q(bur),
+      q(0067) => q(byn),
+      q(0068) => q(cad),
+      q(0069) => q(cai),
+      q(0070) => q(car),
+      q(0071) => q(cat),
+      q(0072) => q(cau),
+      q(0073) => q(ceb),
+      q(0074) => q(cel),
+      q(0075) => q(cha),
+      q(0076) => q(chb),
+      q(0077) => q(che),
+      q(0078) => q(chg),
+      q(0079) => q(chi),
+      q(0080) => q(chk),
+      q(0081) => q(chm),
+      q(0082) => q(chn),
+      q(0083) => q(cho),
+      q(0084) => q(chp),
+      q(0085) => q(chr),
+      q(0086) => q(chu),
+      q(0087) => q(chv),
+      q(0088) => q(chy),
+      q(0089) => q(cmc),
+      q(0090) => q(cnr),
+      q(0091) => q(cop),
+      q(0092) => q(cor),
+      q(0093) => q(cos),
+      q(0094) => q(cpe),
+      q(0095) => q(cpf),
+      q(0096) => q(cpp),
+      q(0097) => q(cre),
+      q(0098) => q(crh),
+      q(0099) => q(crp),
+      q(0100) => q(csb),
+      q(0101) => q(cus),
+      q(0102) => q(cze),
+      q(0103) => q(dak),
+      q(0104) => q(dan),
+      q(0105) => q(dar),
+      q(0106) => q(day),
+      q(0107) => q(del),
+      q(0108) => q(den),
+      q(0109) => q(dgr),
+      q(0110) => q(din),
+      q(0111) => q(div),
+      q(0112) => q(doi),
+      q(0113) => q(dra),
+      q(0114) => q(dsb),
+      q(0115) => q(dua),
+      q(0116) => q(dum),
+      q(0117) => q(dut),
+      q(0118) => q(dyu),
+      q(0119) => q(dzo),
+      q(0120) => q(efi),
+      q(0121) => q(egy),
+      q(0122) => q(eka),
+      q(0123) => q(elx),
+      q(0124) => q(eng),
+      q(0125) => q(enm),
+      q(0126) => q(epo),
+      q(0127) => q(est),
+      q(0128) => q(ewe),
+      q(0129) => q(ewo),
+      q(0130) => q(fan),
+      q(0131) => q(fao),
+      q(0132) => q(fat),
+      q(0133) => q(fij),
+      q(0134) => q(fil),
+      q(0135) => q(fin),
+      q(0136) => q(fiu),
+      q(0137) => q(fon),
+      q(0138) => q(fre),
+      q(0139) => q(frm),
+      q(0140) => q(fro),
+      q(0141) => q(frr),
+      q(0142) => q(frs),
+      q(0143) => q(fry),
+      q(0144) => q(ful),
+      q(0145) => q(fur),
+      q(0146) => q(gaa),
+      q(0147) => q(gay),
+      q(0148) => q(gba),
+      q(0149) => q(gem),
+      q(0150) => q(geo),
+      q(0151) => q(ger),
+      q(0152) => q(gez),
+      q(0153) => q(gil),
+      q(0154) => q(gla),
+      q(0155) => q(gle),
+      q(0156) => q(glg),
+      q(0157) => q(glv),
+      q(0158) => q(gmh),
+      q(0159) => q(goh),
+      q(0160) => q(gon),
+      q(0161) => q(gor),
+      q(0162) => q(got),
+      q(0163) => q(grb),
+      q(0164) => q(grc),
+      q(0165) => q(gre),
+      q(0166) => q(grn),
+      q(0167) => q(gsw),
+      q(0168) => q(guj),
+      q(0169) => q(gwi),
+      q(0170) => q(hai),
+      q(0171) => q(hat),
+      q(0172) => q(hau),
+      q(0173) => q(haw),
+      q(0174) => q(heb),
+      q(0175) => q(her),
+      q(0176) => q(hil),
+      q(0177) => q(him),
+      q(0178) => q(hin),
+      q(0179) => q(hit),
+      q(0180) => q(hmn),
+      q(0181) => q(hmo),
+      q(0182) => q(hrv),
+      q(0183) => q(hsb),
+      q(0184) => q(hun),
+      q(0185) => q(hup),
+      q(0186) => q(iba),
+      q(0187) => q(ibo),
+      q(0188) => q(ice),
+      q(0189) => q(ido),
+      q(0190) => q(iii),
+      q(0191) => q(ijo),
+      q(0192) => q(iku),
+      q(0193) => q(ile),
+      q(0194) => q(ilo),
+      q(0195) => q(ina),
+      q(0196) => q(inc),
+      q(0197) => q(ind),
+      q(0198) => q(ine),
+      q(0199) => q(inh),
+      q(0200) => q(ipk),
+      q(0201) => q(ira),
+      q(0202) => q(iro),
+      q(0203) => q(ita),
+      q(0204) => q(jav),
+      q(0205) => q(jbo),
+      q(0206) => q(jpn),
+      q(0207) => q(jpr),
+      q(0208) => q(jrb),
+      q(0209) => q(kaa),
+      q(0210) => q(kab),
+      q(0211) => q(kac),
+      q(0212) => q(kal),
+      q(0213) => q(kam),
+      q(0214) => q(kan),
+      q(0215) => q(kar),
+      q(0216) => q(kas),
+      q(0217) => q(kau),
+      q(0218) => q(kaw),
+      q(0219) => q(kaz),
+      q(0220) => q(kbd),
+      q(0221) => q(kha),
+      q(0222) => q(khi),
+      q(0223) => q(khm),
+      q(0224) => q(kho),
+      q(0225) => q(kik),
+      q(0226) => q(kin),
+      q(0227) => q(kir),
+      q(0228) => q(kmb),
+      q(0229) => q(kok),
+      q(0230) => q(kom),
+      q(0231) => q(kon),
+      q(0232) => q(kor),
+      q(0233) => q(kos),
+      q(0234) => q(kpe),
+      q(0235) => q(krc),
+      q(0236) => q(krl),
+      q(0237) => q(kro),
+      q(0238) => q(kru),
+      q(0239) => q(kua),
+      q(0240) => q(kum),
+      q(0241) => q(kur),
+      q(0242) => q(kut),
+      q(0243) => q(lad),
+      q(0244) => q(lah),
+      q(0245) => q(lam),
+      q(0246) => q(lao),
+      q(0247) => q(lat),
+      q(0248) => q(lav),
+      q(0249) => q(lez),
+      q(0250) => q(lim),
+      q(0251) => q(lin),
+      q(0252) => q(lit),
+      q(0253) => q(lol),
+      q(0254) => q(loz),
+      q(0255) => q(ltz),
+      q(0256) => q(lua),
+      q(0257) => q(lub),
+      q(0258) => q(lug),
+      q(0259) => q(lui),
+      q(0260) => q(lun),
+      q(0261) => q(luo),
+      q(0262) => q(lus),
+      q(0263) => q(mac),
+      q(0264) => q(mad),
+      q(0265) => q(mag),
+      q(0266) => q(mah),
+      q(0267) => q(mai),
+      q(0268) => q(mak),
+      q(0269) => q(mal),
+      q(0270) => q(man),
+      q(0271) => q(mao),
+      q(0272) => q(map),
+      q(0273) => q(mar),
+      q(0274) => q(mas),
+      q(0275) => q(may),
+      q(0276) => q(mdf),
+      q(0277) => q(mdr),
+      q(0278) => q(men),
+      q(0279) => q(mga),
+      q(0280) => q(mic),
+      q(0281) => q(min),
+      q(0282) => q(mis),
+      q(0283) => q(mkh),
+      q(0284) => q(mlg),
+      q(0285) => q(mlt),
+      q(0286) => q(mnc),
+      q(0287) => q(mni),
+      q(0288) => q(mno),
+      q(0289) => q(moh),
+      q(0290) => q(mon),
+      q(0291) => q(mos),
+      q(0292) => q(mul),
+      q(0293) => q(mun),
+      q(0294) => q(mus),
+      q(0295) => q(mwl),
+      q(0296) => q(mwr),
+      q(0297) => q(myn),
+      q(0298) => q(myv),
+      q(0299) => q(nah),
+      q(0300) => q(nai),
+      q(0301) => q(nap),
+      q(0302) => q(nau),
+      q(0303) => q(nav),
+      q(0304) => q(nbl),
+      q(0305) => q(nde),
+      q(0306) => q(ndo),
+      q(0307) => q(nds),
+      q(0308) => q(nep),
+      q(0309) => q(new),
+      q(0310) => q(nia),
+      q(0311) => q(nic),
+      q(0312) => q(niu),
+      q(0313) => q(nno),
+      q(0314) => q(nob),
+      q(0315) => q(nog),
+      q(0316) => q(non),
+      q(0317) => q(nor),
+      q(0318) => q(nqo),
+      q(0319) => q(nso),
+      q(0320) => q(nub),
+      q(0321) => q(nwc),
+      q(0322) => q(nya),
+      q(0323) => q(nym),
+      q(0324) => q(nyn),
+      q(0325) => q(nyo),
+      q(0326) => q(nzi),
+      q(0327) => q(oci),
+      q(0328) => q(oji),
+      q(0329) => q(ori),
+      q(0330) => q(orm),
+      q(0331) => q(osa),
+      q(0332) => q(oss),
+      q(0333) => q(ota),
+      q(0334) => q(oto),
+      q(0335) => q(paa),
+      q(0336) => q(pag),
+      q(0337) => q(pal),
+      q(0338) => q(pam),
+      q(0339) => q(pan),
+      q(0340) => q(pap),
+      q(0341) => q(pau),
+      q(0342) => q(peo),
+      q(0343) => q(per),
+      q(0344) => q(phi),
+      q(0345) => q(phn),
+      q(0346) => q(pli),
+      q(0347) => q(pol),
+      q(0348) => q(pon),
+      q(0349) => q(por),
+      q(0350) => q(pra),
+      q(0351) => q(pro),
+      q(0352) => q(pus),
+      q(0353) => q(qtz),
+      q(0354) => q(que),
+      q(0355) => q(raj),
+      q(0356) => q(rap),
+      q(0357) => q(rar),
+      q(0358) => q(roa),
+      q(0359) => q(roh),
+      q(0360) => q(rom),
+      q(0361) => q(rum),
+      q(0362) => q(run),
+      q(0363) => q(rup),
+      q(0364) => q(rus),
+      q(0365) => q(sad),
+      q(0366) => q(sag),
+      q(0367) => q(sah),
+      q(0368) => q(sai),
+      q(0369) => q(sal),
+      q(0370) => q(sam),
+      q(0371) => q(san),
+      q(0372) => q(sas),
+      q(0373) => q(sat),
+      q(0374) => q(scn),
+      q(0375) => q(sco),
+      q(0376) => q(sel),
+      q(0377) => q(sem),
+      q(0378) => q(sga),
+      q(0379) => q(sgn),
+      q(0380) => q(shn),
+      q(0381) => q(sid),
+      q(0382) => q(sin),
+      q(0383) => q(sio),
+      q(0384) => q(sit),
+      q(0385) => q(sla),
+      q(0386) => q(slo),
+      q(0387) => q(slv),
+      q(0388) => q(sma),
+      q(0389) => q(sme),
+      q(0390) => q(smi),
+      q(0391) => q(smj),
+      q(0392) => q(smn),
+      q(0393) => q(smo),
+      q(0394) => q(sms),
+      q(0395) => q(sna),
+      q(0396) => q(snd),
+      q(0397) => q(snk),
+      q(0398) => q(sog),
+      q(0399) => q(som),
+      q(0400) => q(son),
+      q(0401) => q(sot),
+      q(0402) => q(spa),
+      q(0403) => q(srd),
+      q(0404) => q(srn),
+      q(0405) => q(srp),
+      q(0406) => q(srr),
+      q(0407) => q(ssa),
+      q(0408) => q(ssw),
+      q(0409) => q(suk),
+      q(0410) => q(sun),
+      q(0411) => q(sus),
+      q(0412) => q(sux),
+      q(0413) => q(swa),
+      q(0414) => q(swe),
+      q(0415) => q(syc),
+      q(0416) => q(syr),
+      q(0417) => q(tah),
+      q(0418) => q(tai),
+      q(0419) => q(tam),
+      q(0420) => q(tat),
+      q(0421) => q(tel),
+      q(0422) => q(tem),
+      q(0423) => q(ter),
+      q(0424) => q(tet),
+      q(0425) => q(tgk),
+      q(0426) => q(tgl),
+      q(0427) => q(tha),
+      q(0428) => q(tib),
+      q(0429) => q(tig),
+      q(0430) => q(tir),
+      q(0431) => q(tiv),
+      q(0432) => q(tkl),
+      q(0433) => q(tlh),
+      q(0434) => q(tli),
+      q(0435) => q(tmh),
+      q(0436) => q(tog),
+      q(0437) => q(ton),
+      q(0438) => q(tpi),
+      q(0439) => q(tsi),
+      q(0440) => q(tsn),
+      q(0441) => q(tso),
+      q(0442) => q(tuk),
+      q(0443) => q(tum),
+      q(0444) => q(tup),
+      q(0445) => q(tur),
+      q(0446) => q(tut),
+      q(0447) => q(tvl),
+      q(0448) => q(twi),
+      q(0449) => q(tyv),
+      q(0450) => q(udm),
+      q(0451) => q(uga),
+      q(0452) => q(uig),
+      q(0453) => q(ukr),
+      q(0454) => q(umb),
+      q(0455) => q(und),
+      q(0456) => q(urd),
+      q(0457) => q(uzb),
+      q(0458) => q(vai),
+      q(0459) => q(ven),
+      q(0460) => q(vie),
+      q(0461) => q(vol),
+      q(0462) => q(vot),
+      q(0463) => q(wak),
+      q(0464) => q(wal),
+      q(0465) => q(war),
+      q(0466) => q(was),
+      q(0467) => q(wel),
+      q(0468) => q(wen),
+      q(0469) => q(wln),
+      q(0470) => q(wol),
+      q(0471) => q(xal),
+      q(0472) => q(xho),
+      q(0473) => q(yao),
+      q(0474) => q(yap),
+      q(0475) => q(yid),
+      q(0476) => q(yor),
+      q(0477) => q(ypk),
+      q(0478) => q(zap),
+      q(0479) => q(zbl),
+      q(0480) => q(zen),
+      q(0481) => q(zgh),
+      q(0482) => q(zha),
+      q(0483) => q(znd),
+      q(0484) => q(zul),
+      q(0485) => q(zun),
+      q(0486) => q(zxx),
+      q(0487) => q(zza),
+      q(0488) => q(aav),
+      q(0489) => q(alv),
+      q(0490) => q(aqa),
+      q(0491) => q(aql),
+      q(0492) => q(auf),
+      q(0493) => q(awd),
+      q(0494) => q(azc),
+      q(0495) => q(cba),
+      q(0496) => q(ccn),
+      q(0497) => q(ccs),
+      q(0498) => q(cdc),
+      q(0499) => q(cdd),
+      q(0500) => q(csu),
+      q(0501) => q(dmn),
+      q(0502) => q(egx),
+      q(0503) => q(esx),
+      q(0504) => q(euq),
+      q(0505) => q(fox),
+      q(0506) => q(gme),
+      q(0507) => q(gmq),
+      q(0508) => q(gmw),
+      q(0509) => q(grk),
+      q(0510) => q(hmx),
+      q(0511) => q(hok),
+      q(0512) => q(hyx),
+      q(0513) => q(iir),
+      q(0514) => q(itc),
+      q(0515) => q(jpx),
+      q(0516) => q(kdo),
+      q(0517) => q(ngf),
+      q(0518) => q(omq),
+      q(0519) => q(omv),
+      q(0520) => q(plf),
+      q(0521) => q(poz),
+      q(0522) => q(pqe),
+      q(0523) => q(pqw),
+      q(0524) => q(qwe),
+      q(0525) => q(sdv),
+      q(0526) => q(sqj),
+      q(0527) => q(syd),
+      q(0528) => q(tbq),
+      q(0529) => q(trk),
+      q(0530) => q(tuw),
+      q(0531) => q(urj),
+      q(0532) => q(xgn),
+      q(0533) => q(xnd),
+      q(0534) => q(zhx),
+      q(0535) => q(zle),
+      q(0536) => q(zls),
+      q(0537) => q(zlw),
+      q(0539) => q(aaa),
+      q(0540) => q(aab),
+      q(0541) => q(aac),
+      q(0542) => q(aad),
+      q(0543) => q(aae),
+      q(0544) => q(aaf),
+      q(0545) => q(aag),
+      q(0546) => q(aah),
+      q(0547) => q(aai),
+      q(0548) => q(aak),
+      q(0549) => q(aal),
+      q(0550) => q(aan),
+      q(0551) => q(aao),
+      q(0552) => q(aap),
+      q(0553) => q(aaq),
+      q(0554) => q(aas),
+      q(0555) => q(aat),
+      q(0556) => q(aau),
+      q(0557) => q(aaw),
+      q(0558) => q(aax),
+      q(0559) => q(aaz),
+      q(0560) => q(aba),
+      q(0561) => q(abb),
+      q(0562) => q(abc),
+      q(0563) => q(abd),
+      q(0564) => q(abe),
+      q(0565) => q(abf),
+      q(0566) => q(abg),
+      q(0567) => q(abh),
+      q(0568) => q(abi),
+      q(0569) => q(abj),
+      q(0570) => q(abl),
+      q(0571) => q(abm),
+      q(0572) => q(abn),
+      q(0573) => q(abo),
+      q(0574) => q(abp),
+      q(0575) => q(abq),
+      q(0576) => q(abr),
+      q(0577) => q(abs),
+      q(0578) => q(abt),
+      q(0579) => q(abu),
+      q(0580) => q(abv),
+      q(0581) => q(abw),
+      q(0582) => q(abx),
+      q(0583) => q(aby),
+      q(0584) => q(abz),
+      q(0585) => q(aca),
+      q(0586) => q(acb),
+      q(0587) => q(acd),
+      q(0588) => q(acf),
+      q(0589) => q(aci),
+      q(0590) => q(ack),
+      q(0591) => q(acl),
+      q(0592) => q(acm),
+      q(0593) => q(acn),
+      q(0594) => q(acp),
+      q(0595) => q(acq),
+      q(0596) => q(acr),
+      q(0597) => q(acs),
+      q(0598) => q(act),
+      q(0599) => q(acu),
+      q(0600) => q(acv),
+      q(0601) => q(acw),
+      q(0602) => q(acx),
+      q(0603) => q(acy),
+      q(0604) => q(acz),
+      q(0605) => q(adb),
+      q(0606) => q(add),
+      q(0607) => q(ade),
+      q(0608) => q(adf),
+      q(0609) => q(adg),
+      q(0610) => q(adh),
+      q(0611) => q(adi),
+      q(0612) => q(adj),
+      q(0613) => q(adl),
+      q(0614) => q(adn),
+      q(0615) => q(ado),
+      q(0616) => q(adq),
+      q(0617) => q(adr),
+      q(0618) => q(ads),
+      q(0619) => q(adt),
+      q(0620) => q(adu),
+      q(0621) => q(adw),
+      q(0622) => q(adx),
+      q(0623) => q(adz),
+      q(0624) => q(aea),
+      q(0625) => q(aeb),
+      q(0626) => q(aec),
+      q(0627) => q(aed),
+      q(0628) => q(aee),
+      q(0629) => q(aek),
+      q(0630) => q(ael),
+      q(0631) => q(aem),
+      q(0632) => q(aen),
+      q(0633) => q(aeq),
+      q(0634) => q(aer),
+      q(0635) => q(aes),
+      q(0636) => q(aeu),
+      q(0637) => q(aew),
+      q(0638) => q(aey),
+      q(0639) => q(aez),
+      q(0640) => q(afb),
+      q(0641) => q(afd),
+      q(0642) => q(afe),
+      q(0643) => q(afg),
+      q(0644) => q(afi),
+      q(0645) => q(afk),
+      q(0646) => q(afn),
+      q(0647) => q(afo),
+      q(0648) => q(afp),
+      q(0649) => q(afs),
+      q(0650) => q(aft),
+      q(0651) => q(afu),
+      q(0652) => q(afz),
+      q(0653) => q(aga),
+      q(0654) => q(agb),
+      q(0655) => q(agc),
+      q(0656) => q(agd),
+      q(0657) => q(age),
+      q(0658) => q(agf),
+      q(0659) => q(agg),
+      q(0660) => q(agh),
+      q(0661) => q(agi),
+      q(0662) => q(agj),
+      q(0663) => q(agk),
+      q(0664) => q(agl),
+      q(0665) => q(agm),
+      q(0666) => q(agn),
+      q(0667) => q(ago),
+      q(0668) => q(agq),
+      q(0669) => q(agr),
+      q(0670) => q(ags),
+      q(0671) => q(agt),
+      q(0672) => q(agu),
+      q(0673) => q(agv),
+      q(0674) => q(agw),
+      q(0675) => q(agx),
+      q(0676) => q(agy),
+      q(0677) => q(agz),
+      q(0678) => q(aha),
+      q(0679) => q(ahb),
+      q(0680) => q(ahg),
+      q(0681) => q(ahh),
+      q(0682) => q(ahi),
+      q(0683) => q(ahk),
+      q(0684) => q(ahl),
+      q(0685) => q(ahm),
+      q(0686) => q(ahn),
+      q(0687) => q(aho),
+      q(0688) => q(ahp),
+      q(0689) => q(ahr),
+      q(0690) => q(ahs),
+      q(0691) => q(aht),
+      q(0692) => q(aia),
+      q(0693) => q(aib),
+      q(0694) => q(aic),
+      q(0695) => q(aid),
+      q(0696) => q(aie),
+      q(0697) => q(aif),
+      q(0698) => q(aig),
+      q(0699) => q(aih),
+      q(0700) => q(aii),
+      q(0701) => q(aij),
+      q(0702) => q(aik),
+      q(0703) => q(ail),
+      q(0704) => q(aim),
+      q(0705) => q(aio),
+      q(0706) => q(aip),
+      q(0707) => q(aiq),
+      q(0708) => q(air),
+      q(0709) => q(ais),
+      q(0710) => q(ait),
+      q(0711) => q(aiw),
+      q(0712) => q(aix),
+      q(0713) => q(aiy),
+      q(0714) => q(aja),
+      q(0715) => q(ajg),
+      q(0716) => q(aji),
+      q(0717) => q(ajn),
+      q(0718) => q(ajp),
+      q(0719) => q(ajt),
+      q(0720) => q(aju),
+      q(0721) => q(ajw),
+      q(0722) => q(ajz),
+      q(0723) => q(akb),
+      q(0724) => q(akc),
+      q(0725) => q(akd),
+      q(0726) => q(ake),
+      q(0727) => q(akf),
+      q(0728) => q(akg),
+      q(0729) => q(akh),
+      q(0730) => q(aki),
+      q(0731) => q(akj),
+      q(0732) => q(akl),
+      q(0733) => q(akm),
+      q(0734) => q(ako),
+      q(0735) => q(akp),
+      q(0736) => q(akq),
+      q(0737) => q(akr),
+      q(0738) => q(aks),
+      q(0739) => q(akt),
+      q(0740) => q(aku),
+      q(0741) => q(akv),
+      q(0742) => q(akw),
+      q(0743) => q(akx),
+      q(0744) => q(aky),
+      q(0745) => q(akz),
+      q(0746) => q(ala),
+      q(0747) => q(alc),
+      q(0748) => q(ald),
+      q(0749) => q(alf),
+      q(0750) => q(alh),
+      q(0751) => q(ali),
+      q(0752) => q(alj),
+      q(0753) => q(alk),
+      q(0754) => q(all),
+      q(0755) => q(alm),
+      q(0756) => q(aln),
+      q(0757) => q(alo),
+      q(0758) => q(alp),
+      q(0759) => q(alq),
+      q(0760) => q(alr),
+      q(0761) => q(als),
+      q(0762) => q(alu),
+      q(0763) => q(alw),
+      q(0764) => q(alx),
+      q(0765) => q(aly),
+      q(0766) => q(alz),
+      q(0767) => q(ama),
+      q(0768) => q(amb),
+      q(0769) => q(amc),
+      q(0770) => q(ame),
+      q(0771) => q(amf),
+      q(0772) => q(amg),
+      q(0773) => q(ami),
+      q(0774) => q(amj),
+      q(0775) => q(amk),
+      q(0776) => q(aml),
+      q(0777) => q(amm),
+      q(0778) => q(amn),
+      q(0779) => q(amo),
+      q(0780) => q(amp),
+      q(0781) => q(amq),
+      q(0782) => q(amr),
+      q(0783) => q(ams),
+      q(0784) => q(amt),
+      q(0785) => q(amu),
+      q(0786) => q(amv),
+      q(0787) => q(amw),
+      q(0788) => q(amx),
+      q(0789) => q(amy),
+      q(0790) => q(amz),
+      q(0791) => q(ana),
+      q(0792) => q(anb),
+      q(0793) => q(anc),
+      q(0794) => q(and),
+      q(0795) => q(ane),
+      q(0796) => q(anf),
+      q(0797) => q(anh),
+      q(0798) => q(ani),
+      q(0799) => q(anj),
+      q(0800) => q(ank),
+      q(0801) => q(anl),
+      q(0802) => q(anm),
+      q(0803) => q(ann),
+      q(0804) => q(ano),
+      q(0805) => q(anq),
+      q(0806) => q(anr),
+      q(0807) => q(ans),
+      q(0808) => q(ant),
+      q(0809) => q(anu),
+      q(0810) => q(anv),
+      q(0811) => q(anw),
+      q(0812) => q(anx),
+      q(0813) => q(any),
+      q(0814) => q(anz),
+      q(0815) => q(aoa),
+      q(0816) => q(aob),
+      q(0817) => q(aoc),
+      q(0818) => q(aod),
+      q(0819) => q(aoe),
+      q(0820) => q(aof),
+      q(0821) => q(aog),
+      q(0822) => q(aoh),
+      q(0823) => q(aoi),
+      q(0824) => q(aoj),
+      q(0825) => q(aok),
+      q(0826) => q(aol),
+      q(0827) => q(aom),
+      q(0828) => q(aon),
+      q(0829) => q(aor),
+      q(0830) => q(aos),
+      q(0831) => q(aot),
+      q(0832) => q(aou),
+      q(0833) => q(aox),
+      q(0834) => q(aoz),
+      q(0835) => q(apb),
+      q(0836) => q(apc),
+      q(0837) => q(apd),
+      q(0838) => q(ape),
+      q(0839) => q(apf),
+      q(0840) => q(apg),
+      q(0841) => q(aph),
+      q(0842) => q(api),
+      q(0843) => q(apj),
+      q(0844) => q(apk),
+      q(0845) => q(apl),
+      q(0846) => q(apm),
+      q(0847) => q(apn),
+      q(0848) => q(apo),
+      q(0849) => q(app),
+      q(0850) => q(apq),
+      q(0851) => q(apr),
+      q(0852) => q(aps),
+      q(0853) => q(apt),
+      q(0854) => q(apu),
+      q(0855) => q(apv),
+      q(0856) => q(apw),
+      q(0857) => q(apx),
+      q(0858) => q(apy),
+      q(0859) => q(apz),
+      q(0860) => q(aqc),
+      q(0861) => q(aqd),
+      q(0862) => q(aqg),
+      q(0863) => q(aqm),
+      q(0864) => q(aqn),
+      q(0865) => q(aqp),
+      q(0866) => q(aqr),
+      q(0867) => q(aqt),
+      q(0868) => q(aqz),
+      q(0869) => q(arb),
+      q(0870) => q(ard),
+      q(0871) => q(are),
+      q(0872) => q(arh),
+      q(0873) => q(ari),
+      q(0874) => q(arj),
+      q(0875) => q(ark),
+      q(0876) => q(arl),
+      q(0877) => q(aro),
+      q(0878) => q(arq),
+      q(0879) => q(arr),
+      q(0880) => q(ars),
+      q(0881) => q(aru),
+      q(0882) => q(arv),
+      q(0883) => q(arx),
+      q(0884) => q(ary),
+      q(0885) => q(arz),
+      q(0886) => q(asa),
+      q(0887) => q(asb),
+      q(0888) => q(asc),
+      q(0889) => q(asd),
+      q(0890) => q(ase),
+      q(0891) => q(asf),
+      q(0892) => q(asg),
+      q(0893) => q(ash),
+      q(0894) => q(asi),
+      q(0895) => q(asj),
+      q(0896) => q(ask),
+      q(0897) => q(asl),
+      q(0898) => q(asn),
+      q(0899) => q(aso),
+      q(0900) => q(asp),
+      q(0901) => q(asq),
+      q(0902) => q(asr),
+      q(0903) => q(ass),
+      q(0904) => q(asu),
+      q(0905) => q(asv),
+      q(0906) => q(asw),
+      q(0907) => q(asx),
+      q(0908) => q(asy),
+      q(0909) => q(asz),
+      q(0910) => q(ata),
+      q(0911) => q(atb),
+      q(0912) => q(atc),
+      q(0913) => q(atd),
+      q(0914) => q(ate),
+      q(0915) => q(atg),
+      q(0916) => q(ati),
+      q(0917) => q(atj),
+      q(0918) => q(atk),
+      q(0919) => q(atl),
+      q(0920) => q(atm),
+      q(0921) => q(atn),
+      q(0922) => q(ato),
+      q(0923) => q(atp),
+      q(0924) => q(atq),
+      q(0925) => q(atr),
+      q(0926) => q(ats),
+      q(0927) => q(att),
+      q(0928) => q(atu),
+      q(0929) => q(atv),
+      q(0930) => q(atw),
+      q(0931) => q(atx),
+      q(0932) => q(aty),
+      q(0933) => q(atz),
+      q(0934) => q(aua),
+      q(0935) => q(aub),
+      q(0936) => q(auc),
+      q(0937) => q(aud),
+      q(0938) => q(aug),
+      q(0939) => q(auh),
+      q(0940) => q(aui),
+      q(0941) => q(auj),
+      q(0942) => q(auk),
+      q(0943) => q(aul),
+      q(0944) => q(aum),
+      q(0945) => q(aun),
+      q(0946) => q(auo),
+      q(0947) => q(aup),
+      q(0948) => q(auq),
+      q(0949) => q(aur),
+      q(0950) => q(aut),
+      q(0951) => q(auu),
+      q(0952) => q(auw),
+      q(0953) => q(aux),
+      q(0954) => q(auy),
+      q(0955) => q(auz),
+      q(0956) => q(avb),
+      q(0957) => q(avd),
+      q(0958) => q(avi),
+      q(0959) => q(avk),
+      q(0960) => q(avl),
+      q(0961) => q(avm),
+      q(0962) => q(avn),
+      q(0963) => q(avo),
+      q(0964) => q(avs),
+      q(0965) => q(avt),
+      q(0966) => q(avu),
+      q(0967) => q(avv),
+      q(0968) => q(awb),
+      q(0969) => q(awc),
+      q(0970) => q(awe),
+      q(0971) => q(awg),
+      q(0972) => q(awh),
+      q(0973) => q(awi),
+      q(0974) => q(awk),
+      q(0975) => q(awm),
+      q(0976) => q(awn),
+      q(0977) => q(awo),
+      q(0978) => q(awr),
+      q(0979) => q(aws),
+      q(0980) => q(awt),
+      q(0981) => q(awu),
+      q(0982) => q(awv),
+      q(0983) => q(aww),
+      q(0984) => q(awx),
+      q(0985) => q(awy),
+      q(0986) => q(axb),
+      q(0987) => q(axe),
+      q(0988) => q(axg),
+      q(0989) => q(axk),
+      q(0990) => q(axl),
+      q(0991) => q(axm),
+      q(0992) => q(axx),
+      q(0993) => q(aya),
+      q(0994) => q(ayb),
+      q(0995) => q(ayc),
+      q(0996) => q(ayd),
+      q(0997) => q(aye),
+      q(0998) => q(ayg),
+      q(0999) => q(ayh),
+      q(1000) => q(ayi),
+      q(1001) => q(ayk),
+      q(1002) => q(ayl),
+      q(1003) => q(ayn),
+      q(1004) => q(ayo),
+      q(1005) => q(ayp),
+      q(1006) => q(ayq),
+      q(1007) => q(ayr),
+      q(1008) => q(ays),
+      q(1009) => q(ayt),
+      q(1010) => q(ayu),
+      q(1011) => q(ayy),
+      q(1012) => q(ayz),
+      q(1013) => q(aza),
+      q(1014) => q(azb),
+      q(1015) => q(azd),
+      q(1016) => q(azg),
+      q(1017) => q(azj),
+      q(1018) => q(azm),
+      q(1019) => q(azn),
+      q(1020) => q(azo),
+      q(1021) => q(azt),
+      q(1022) => q(azz),
+      q(1023) => q(baa),
+      q(1024) => q(bab),
+      q(1025) => q(bac),
+      q(1026) => q(bae),
+      q(1027) => q(baf),
+      q(1028) => q(bag),
+      q(1029) => q(bah),
+      q(1030) => q(baj),
+      q(1031) => q(bao),
+      q(1032) => q(bap),
+      q(1033) => q(bar),
+      q(1034) => q(bau),
+      q(1035) => q(bav),
+      q(1036) => q(baw),
+      q(1037) => q(bax),
+      q(1038) => q(bay),
+      q(1039) => q(bba),
+      q(1040) => q(bbb),
+      q(1041) => q(bbc),
+      q(1042) => q(bbd),
+      q(1043) => q(bbe),
+      q(1044) => q(bbf),
+      q(1045) => q(bbg),
+      q(1046) => q(bbh),
+      q(1047) => q(bbi),
+      q(1048) => q(bbj),
+      q(1049) => q(bbk),
+      q(1050) => q(bbl),
+      q(1051) => q(bbm),
+      q(1052) => q(bbn),
+      q(1053) => q(bbo),
+      q(1054) => q(bbp),
+      q(1055) => q(bbq),
+      q(1056) => q(bbr),
+      q(1057) => q(bbs),
+      q(1058) => q(bbt),
+      q(1059) => q(bbu),
+      q(1060) => q(bbv),
+      q(1061) => q(bbw),
+      q(1062) => q(bbx),
+      q(1063) => q(bby),
+      q(1064) => q(bbz),
+      q(1065) => q(bca),
+      q(1066) => q(bcb),
+      q(1067) => q(bcc),
+      q(1068) => q(bcd),
+      q(1069) => q(bce),
+      q(1070) => q(bcf),
+      q(1071) => q(bcg),
+      q(1072) => q(bch),
+      q(1073) => q(bci),
+      q(1074) => q(bcj),
+      q(1075) => q(bck),
+      q(1076) => q(bcl),
+      q(1077) => q(bcm),
+      q(1078) => q(bcn),
+      q(1079) => q(bco),
+      q(1080) => q(bcp),
+      q(1081) => q(bcq),
+      q(1082) => q(bcr),
+      q(1083) => q(bcs),
+      q(1084) => q(bct),
+      q(1085) => q(bcu),
+      q(1086) => q(bcv),
+      q(1087) => q(bcw),
+      q(1088) => q(bcy),
+      q(1089) => q(bcz),
+      q(1090) => q(bda),
+      q(1091) => q(bdb),
+      q(1092) => q(bdc),
+      q(1093) => q(bdd),
+      q(1094) => q(bde),
+      q(1095) => q(bdf),
+      q(1096) => q(bdg),
+      q(1097) => q(bdh),
+      q(1098) => q(bdi),
+      q(1099) => q(bdj),
+      q(1100) => q(bdk),
+      q(1101) => q(bdl),
+      q(1102) => q(bdm),
+      q(1103) => q(bdn),
+      q(1104) => q(bdo),
+      q(1105) => q(bdp),
+      q(1106) => q(bdq),
+      q(1107) => q(bdr),
+      q(1108) => q(bds),
+      q(1109) => q(bdt),
+      q(1110) => q(bdu),
+      q(1111) => q(bdv),
+      q(1112) => q(bdw),
+      q(1113) => q(bdx),
+      q(1114) => q(bdy),
+      q(1115) => q(bdz),
+      q(1116) => q(bea),
+      q(1117) => q(beb),
+      q(1118) => q(bec),
+      q(1119) => q(bed),
+      q(1120) => q(bee),
+      q(1121) => q(bef),
+      q(1122) => q(beg),
+      q(1123) => q(beh),
+      q(1124) => q(bei),
+      q(1125) => q(bek),
+      q(1126) => q(beo),
+      q(1127) => q(bep),
+      q(1128) => q(beq),
+      q(1129) => q(bes),
+      q(1130) => q(bet),
+      q(1131) => q(beu),
+      q(1132) => q(bev),
+      q(1133) => q(bew),
+      q(1134) => q(bex),
+      q(1135) => q(bey),
+      q(1136) => q(bez),
+      q(1137) => q(mot),
+      q(1138) => q(bfb),
+      q(1139) => q(bfc),
+      q(1140) => q(bfd),
+      q(1141) => q(bfe),
+      q(1142) => q(bff),
+      q(1143) => q(bfg),
+      q(1144) => q(bfh),
+      q(1145) => q(bfi),
+      q(1146) => q(bfj),
+      q(1147) => q(bfk),
+      q(1148) => q(bfl),
+      q(1149) => q(bfm),
+      q(1150) => q(bfn),
+      q(1151) => q(bfo),
+      q(1152) => q(bfp),
+      q(1153) => q(bfq),
+      q(1154) => q(bfr),
+      q(1155) => q(bfs),
+      q(1156) => q(bft),
+      q(1157) => q(bfu),
+      q(1158) => q(bfw),
+      q(1159) => q(bfx),
+      q(1160) => q(bfy),
+      q(1161) => q(bfz),
+      q(1162) => q(bga),
+      q(1163) => q(bgb),
+      q(1164) => q(bgc),
+      q(1165) => q(bgd),
+      q(1166) => q(bge),
+      q(1167) => q(bgf),
+      q(1168) => q(bgg),
+      q(1169) => q(bgi),
+      q(1170) => q(bgj),
+      q(1171) => q(bgk),
+      q(1172) => q(bgl),
+      q(1173) => q(bgn),
+      q(1174) => q(bgo),
+      q(1175) => q(bgp),
+      q(1176) => q(bgq),
+      q(1177) => q(bgr),
+      q(1178) => q(bgs),
+      q(1179) => q(bgt),
+      q(1180) => q(bgu),
+      q(1181) => q(bgv),
+      q(1182) => q(bgw),
+      q(1183) => q(bgx),
+      q(1184) => q(bgy),
+      q(1185) => q(bgz),
+      q(1186) => q(bha),
+      q(1187) => q(bhb),
+      q(1188) => q(bhc),
+      q(1189) => q(bhd),
+      q(1190) => q(bhe),
+      q(1191) => q(bhf),
+      q(1192) => q(bhg),
+      q(1193) => q(bhh),
+      q(1194) => q(bhi),
+      q(1195) => q(bhj),
+      q(1196) => q(bhl),
+      q(1197) => q(bhm),
+      q(1198) => q(bhn),
+      q(1199) => q(bhp),
+      q(1200) => q(bhq),
+      q(1201) => q(bhr),
+      q(1202) => q(bhs),
+      q(1203) => q(bht),
+      q(1204) => q(bhu),
+      q(1205) => q(bhv),
+      q(1206) => q(bhw),
+      q(1207) => q(bhx),
+      q(1208) => q(bhy),
+      q(1209) => q(bhz),
+      q(1210) => q(bia),
+      q(1211) => q(bib),
+      q(1212) => q(bic),
+      q(1213) => q(bid),
+      q(1214) => q(bie),
+      q(1215) => q(bif),
+      q(1216) => q(big),
+      q(1217) => q(bij),
+      q(1218) => q(bil),
+      q(1219) => q(bim),
+      q(1220) => q(bio),
+      q(1221) => q(bip),
+      q(1222) => q(biq),
+      q(1223) => q(bir),
+      q(1224) => q(bit),
+      q(1225) => q(biu),
+      q(1226) => q(biv),
+      q(1227) => q(biw),
+      q(1228) => q(bix),
+      q(1229) => q(biy),
+      q(1230) => q(biz),
+      q(1231) => q(bja),
+      q(1232) => q(bjb),
+      q(1233) => q(bjc),
+      q(1234) => q(bje),
+      q(1235) => q(bjf),
+      q(1236) => q(bjg),
+      q(1237) => q(bjh),
+      q(1238) => q(bji),
+      q(1239) => q(bjj),
+      q(1240) => q(bjk),
+      q(1241) => q(bjl),
+      q(1242) => q(bjm),
+      q(1243) => q(bjn),
+      q(1244) => q(bjo),
+      q(1245) => q(bjp),
+      q(1246) => q(bjr),
+      q(1247) => q(bjs),
+      q(1248) => q(bjt),
+      q(1249) => q(bju),
+      q(1250) => q(bjv),
+      q(1251) => q(bjw),
+      q(1252) => q(bjx),
+      q(1253) => q(bjy),
+      q(1254) => q(bjz),
+      q(1255) => q(bka),
+      q(1256) => q(bkc),
+      q(1257) => q(bkd),
+      q(1258) => q(bkf),
+      q(1259) => q(bkg),
+      q(1260) => q(bkh),
+      q(1261) => q(bki),
+      q(1262) => q(bkj),
+      q(1263) => q(bkk),
+      q(1264) => q(bkl),
+      q(1265) => q(bkm),
+      q(1266) => q(bkn),
+      q(1267) => q(bko),
+      q(1268) => q(bkp),
+      q(1269) => q(bkq),
+      q(1270) => q(bkr),
+      q(1271) => q(bks),
+      q(1272) => q(bkt),
+      q(1273) => q(bku),
+      q(1274) => q(bkv),
+      q(1275) => q(bkw),
+      q(1276) => q(bkx),
+      q(1277) => q(bky),
+      q(1278) => q(bkz),
+      q(1279) => q(blb),
+      q(1280) => q(blc),
+      q(1281) => q(bld),
+      q(1282) => q(ble),
+      q(1283) => q(blf),
+      q(1284) => q(blg),
+      q(1285) => q(blh),
+      q(1286) => q(bli),
+      q(1287) => q(blj),
+      q(1288) => q(blk),
+      q(1289) => q(bll),
+      q(1290) => q(blm),
+      q(1291) => q(bln),
+      q(1292) => q(blo),
+      q(1293) => q(blp),
+      q(1294) => q(blq),
+      q(1295) => q(blr),
+      q(1296) => q(bls),
+      q(1297) => q(blt),
+      q(1298) => q(blv),
+      q(1299) => q(blw),
+      q(1300) => q(blx),
+      q(1301) => q(bly),
+      q(1302) => q(blz),
+      q(1303) => q(bma),
+      q(1304) => q(bmb),
+      q(1305) => q(bmc),
+      q(1306) => q(bmd),
+      q(1307) => q(bme),
+      q(1308) => q(bmf),
+      q(1309) => q(bmg),
+      q(1310) => q(bmh),
+      q(1311) => q(bmi),
+      q(1312) => q(bmj),
+      q(1313) => q(bmk),
+      q(1314) => q(bml),
+      q(1315) => q(bmm),
+      q(1316) => q(bmn),
+      q(1317) => q(bmo),
+      q(1318) => q(bmp),
+      q(1319) => q(bmq),
+      q(1320) => q(bmr),
+      q(1321) => q(bms),
+      q(1322) => q(bmt),
+      q(1323) => q(bmu),
+      q(1324) => q(bmv),
+      q(1325) => q(bmw),
+      q(1326) => q(bmx),
+      q(1327) => q(bmz),
+      q(1328) => q(bna),
+      q(1329) => q(bnb),
+      q(1330) => q(bnc),
+      q(1331) => q(bnd),
+      q(1332) => q(bne),
+      q(1333) => q(bnf),
+      q(1334) => q(bng),
+      q(1335) => q(bni),
+      q(1336) => q(bnj),
+      q(1337) => q(bnk),
+      q(1338) => q(bnl),
+      q(1339) => q(bnm),
+      q(1340) => q(bnn),
+      q(1341) => q(bno),
+      q(1342) => q(bnp),
+      q(1343) => q(bnq),
+      q(1344) => q(bnr),
+      q(1345) => q(bns),
+      q(1346) => q(bnu),
+      q(1347) => q(bnv),
+      q(1348) => q(bnw),
+      q(1349) => q(bnx),
+      q(1350) => q(bny),
+      q(1351) => q(bnz),
+      q(1352) => q(boa),
+      q(1353) => q(bob),
+      q(1354) => q(boe),
+      q(1355) => q(bof),
+      q(1356) => q(bog),
+      q(1357) => q(boh),
+      q(1358) => q(boi),
+      q(1359) => q(boj),
+      q(1360) => q(bok),
+      q(1361) => q(bol),
+      q(1362) => q(bom),
+      q(1363) => q(bon),
+      q(1364) => q(boo),
+      q(1365) => q(bop),
+      q(1366) => q(boq),
+      q(1367) => q(bor),
+      q(1368) => q(bot),
+      q(1369) => q(bou),
+      q(1370) => q(bov),
+      q(1371) => q(bow),
+      q(1372) => q(box),
+      q(1373) => q(boy),
+      q(1374) => q(boz),
+      q(1375) => q(bpa),
+      q(1376) => q(bpb),
+      q(1377) => q(bpd),
+      q(1378) => q(bpg),
+      q(1379) => q(bph),
+      q(1380) => q(bpi),
+      q(1381) => q(bpj),
+      q(1382) => q(bpk),
+      q(1383) => q(bpl),
+      q(1384) => q(bpm),
+      q(1385) => q(bpn),
+      q(1386) => q(bpo),
+      q(1387) => q(bpp),
+      q(1388) => q(bpq),
+      q(1389) => q(bpr),
+      q(1390) => q(bps),
+      q(1391) => q(bpt),
+      q(1392) => q(bpu),
+      q(1393) => q(bpv),
+      q(1394) => q(bpw),
+      q(1395) => q(bpx),
+      q(1396) => q(bpy),
+      q(1397) => q(bpz),
+      q(1398) => q(bqa),
+      q(1399) => q(bqb),
+      q(1400) => q(bqc),
+      q(1401) => q(bqd),
+      q(1402) => q(bqf),
+      q(1403) => q(bqg),
+      q(1404) => q(bqh),
+      q(1405) => q(bqi),
+      q(1406) => q(bqj),
+      q(1407) => q(bqk),
+      q(1408) => q(bql),
+      q(1409) => q(bqm),
+      q(1410) => q(bqn),
+      q(1411) => q(bqo),
+      q(1412) => q(bqp),
+      q(1413) => q(bqq),
+      q(1414) => q(bqr),
+      q(1415) => q(bqs),
+      q(1416) => q(bqt),
+      q(1417) => q(bqu),
+      q(1418) => q(bqv),
+      q(1419) => q(bqw),
+      q(1420) => q(bqx),
+      q(1421) => q(bqy),
+      q(1422) => q(bqz),
+      q(1423) => q(brb),
+      q(1424) => q(brc),
+      q(1425) => q(brd),
+      q(1426) => q(brf),
+      q(1427) => q(brg),
+      q(1428) => q(brh),
+      q(1429) => q(bri),
+      q(1430) => q(brj),
+      q(1431) => q(brk),
+      q(1432) => q(brl),
+      q(1433) => q(brm),
+      q(1434) => q(brn),
+      q(1435) => q(bro),
+      q(1436) => q(brp),
+      q(1437) => q(brq),
+      q(1438) => q(brr),
+      q(1439) => q(brs),
+      q(1440) => q(brt),
+      q(1441) => q(bru),
+      q(1442) => q(brv),
+      q(1443) => q(brw),
+      q(1444) => q(brx),
+      q(1445) => q(bry),
+      q(1446) => q(brz),
+      q(1447) => q(bsa),
+      q(1448) => q(bsb),
+      q(1449) => q(bsc),
+      q(1450) => q(bse),
+      q(1451) => q(bsf),
+      q(1452) => q(bsg),
+      q(1453) => q(bsh),
+      q(1454) => q(bsi),
+      q(1455) => q(bsj),
+      q(1456) => q(bsk),
+      q(1457) => q(bsl),
+      q(1458) => q(bsm),
+      q(1459) => q(bsn),
+      q(1460) => q(bso),
+      q(1461) => q(bsp),
+      q(1462) => q(bsq),
+      q(1463) => q(bsr),
+      q(1464) => q(bss),
+      q(1465) => q(bst),
+      q(1466) => q(bsu),
+      q(1467) => q(bsv),
+      q(1468) => q(bsw),
+      q(1469) => q(bsx),
+      q(1470) => q(bsy),
+      q(1471) => q(bta),
+      q(1472) => q(btc),
+      q(1473) => q(btd),
+      q(1474) => q(bte),
+      q(1475) => q(btf),
+      q(1476) => q(btg),
+      q(1477) => q(bth),
+      q(1478) => q(bti),
+      q(1479) => q(btj),
+      q(1480) => q(btm),
+      q(1481) => q(btn),
+      q(1482) => q(bto),
+      q(1483) => q(btp),
+      q(1484) => q(btq),
+      q(1485) => q(btr),
+      q(1486) => q(bts),
+      q(1487) => q(btt),
+      q(1488) => q(btu),
+      q(1489) => q(btv),
+      q(1490) => q(btw),
+      q(1491) => q(btx),
+      q(1492) => q(bty),
+      q(1493) => q(btz),
+      q(1494) => q(bub),
+      q(1495) => q(buc),
+      q(1496) => q(bud),
+      q(1497) => q(bue),
+      q(1498) => q(buf),
+      q(1499) => q(buh),
+      q(1500) => q(bui),
+      q(1501) => q(buj),
+      q(1502) => q(buk),
+      q(1503) => q(bum),
+      q(1504) => q(bun),
+      q(1505) => q(buo),
+      q(1506) => q(bup),
+      q(1507) => q(buq),
+      q(1508) => q(bus),
+      q(1509) => q(but),
+      q(1510) => q(buu),
+      q(1511) => q(buv),
+      q(1512) => q(buw),
+      q(1513) => q(bux),
+      q(1514) => q(buy),
+      q(1515) => q(buz),
+      q(1516) => q(bva),
+      q(1517) => q(bvb),
+      q(1518) => q(bvc),
+      q(1519) => q(bvd),
+      q(1520) => q(bve),
+      q(1521) => q(bvf),
+      q(1522) => q(bvg),
+      q(1523) => q(bvh),
+      q(1524) => q(bvi),
+      q(1525) => q(bvj),
+      q(1526) => q(bvk),
+      q(1527) => q(bvl),
+      q(1528) => q(bvm),
+      q(1529) => q(bvn),
+      q(1530) => q(bvo),
+      q(1531) => q(bvp),
+      q(1532) => q(bvq),
+      q(1533) => q(bvr),
+      q(1534) => q(bvt),
+      q(1535) => q(bvu),
+      q(1536) => q(bvv),
+      q(1537) => q(bvw),
+      q(1538) => q(bvx),
+      q(1539) => q(bvy),
+      q(1540) => q(bvz),
+      q(1541) => q(bwa),
+      q(1542) => q(bwb),
+      q(1543) => q(bwc),
+      q(1544) => q(bwd),
+      q(1545) => q(bwe),
+      q(1546) => q(bwf),
+      q(1547) => q(bwg),
+      q(1548) => q(bwh),
+      q(1549) => q(bwi),
+      q(1550) => q(bwj),
+      q(1551) => q(bwk),
+      q(1552) => q(bwl),
+      q(1553) => q(bwm),
+      q(1554) => q(bwn),
+      q(1555) => q(bwo),
+      q(1556) => q(bwp),
+      q(1557) => q(bwq),
+      q(1558) => q(bwr),
+      q(1559) => q(bws),
+      q(1560) => q(bwt),
+      q(1561) => q(bwu),
+      q(1562) => q(bww),
+      q(1563) => q(bwx),
+      q(1564) => q(bwy),
+      q(1565) => q(bwz),
+      q(1566) => q(bxa),
+      q(1567) => q(bxb),
+      q(1568) => q(bxc),
+      q(1569) => q(bxd),
+      q(1570) => q(bxe),
+      q(1571) => q(bxf),
+      q(1572) => q(bxg),
+      q(1573) => q(bxh),
+      q(1574) => q(bxi),
+      q(1575) => q(bxj),
+      q(1576) => q(bxk),
+      q(1577) => q(bxl),
+      q(1578) => q(bxm),
+      q(1579) => q(bxn),
+      q(1580) => q(bxo),
+      q(1581) => q(bxp),
+      q(1582) => q(bxq),
+      q(1583) => q(bxr),
+      q(1584) => q(bxs),
+      q(1585) => q(bxu),
+      q(1586) => q(bxv),
+      q(1587) => q(bxw),
+      q(1588) => q(bxz),
+      q(1589) => q(bya),
+      q(1590) => q(byb),
+      q(1591) => q(byc),
+      q(1592) => q(byd),
+      q(1593) => q(bye),
+      q(1594) => q(byf),
+      q(1595) => q(byg),
+      q(1596) => q(byh),
+      q(1597) => q(byi),
+      q(1598) => q(byj),
+      q(1599) => q(byk),
+      q(1600) => q(byl),
+      q(1601) => q(bym),
+      q(1602) => q(byo),
+      q(1603) => q(byp),
+      q(1604) => q(byq),
+      q(1605) => q(byr),
+      q(1606) => q(bys),
+      q(1607) => q(byt),
+      q(1608) => q(byv),
+      q(1609) => q(byw),
+      q(1610) => q(byx),
+      q(1611) => q(byz),
+      q(1612) => q(bza),
+      q(1613) => q(bzb),
+      q(1614) => q(bzc),
+      q(1615) => q(bzd),
+      q(1616) => q(bze),
+      q(1617) => q(bzf),
+      q(1618) => q(bzg),
+      q(1619) => q(bzh),
+      q(1620) => q(bzi),
+      q(1621) => q(bzj),
+      q(1622) => q(bzk),
+      q(1623) => q(bzl),
+      q(1624) => q(bzm),
+      q(1625) => q(bzn),
+      q(1626) => q(bzo),
+      q(1627) => q(bzp),
+      q(1628) => q(bzq),
+      q(1629) => q(bzr),
+      q(1630) => q(bzs),
+      q(1631) => q(bzt),
+      q(1632) => q(bzu),
+      q(1633) => q(bzv),
+      q(1634) => q(bzw),
+      q(1635) => q(bzx),
+      q(1636) => q(bzy),
+      q(1637) => q(bzz),
+      q(1638) => q(caa),
+      q(1639) => q(cab),
+      q(1640) => q(cac),
+      q(1641) => q(cae),
+      q(1642) => q(caf),
+      q(1643) => q(cag),
+      q(1644) => q(cah),
+      q(1645) => q(caj),
+      q(1646) => q(cak),
+      q(1647) => q(cal),
+      q(1648) => q(cam),
+      q(1649) => q(can),
+      q(1650) => q(cao),
+      q(1651) => q(cap),
+      q(1652) => q(caq),
+      q(1653) => q(cas),
+      q(1654) => q(cav),
+      q(1655) => q(caw),
+      q(1656) => q(cax),
+      q(1657) => q(cay),
+      q(1658) => q(caz),
+      q(1659) => q(cbb),
+      q(1660) => q(cbc),
+      q(1661) => q(cbd),
+      q(1662) => q(cbg),
+      q(1663) => q(cbi),
+      q(1664) => q(cbj),
+      q(1665) => q(cbk),
+      q(1666) => q(cbl),
+      q(1667) => q(cbn),
+      q(1668) => q(cbo),
+      q(1669) => q(cbq),
+      q(1670) => q(cbr),
+      q(1671) => q(cbs),
+      q(1672) => q(cbt),
+      q(1673) => q(cbu),
+      q(1674) => q(cbv),
+      q(1675) => q(cbw),
+      q(1676) => q(cby),
+      q(1677) => q(cca),
+      q(1678) => q(ccc),
+      q(1679) => q(ccd),
+      q(1680) => q(cce),
+      q(1681) => q(ccg),
+      q(1682) => q(cch),
+      q(1683) => q(ccj),
+      q(1684) => q(ccl),
+      q(1685) => q(ccm),
+      q(1686) => q(cco),
+      q(1687) => q(ccp),
+      q(1688) => q(ccr),
+      q(1689) => q(cda),
+      q(1690) => q(cde),
+      q(1691) => q(cdf),
+      q(1692) => q(cdg),
+      q(1693) => q(cdh),
+      q(1694) => q(cdi),
+      q(1695) => q(cdj),
+      q(1696) => q(cdm),
+      q(1697) => q(cdn),
+      q(1698) => q(cdo),
+      q(1699) => q(cdr),
+      q(1700) => q(cds),
+      q(1701) => q(cdy),
+      q(1702) => q(cdz),
+      q(1703) => q(cea),
+      q(1704) => q(ceg),
+      q(1705) => q(cek),
+      q(1706) => q(cen),
+      q(1707) => q(cet),
+      q(1708) => q(cfa),
+      q(1709) => q(cfd),
+      q(1710) => q(cfg),
+      q(1711) => q(cfm),
+      q(1712) => q(cga),
+      q(1713) => q(cgc),
+      q(1714) => q(cgg),
+      q(1715) => q(cgk),
+      q(1716) => q(chc),
+      q(1717) => q(chd),
+      q(1718) => q(chf),
+      q(1719) => q(chh),
+      q(1720) => q(chj),
+      q(1721) => q(chl),
+      q(1722) => q(chq),
+      q(1723) => q(cht),
+      q(1724) => q(chw),
+      q(1725) => q(chx),
+      q(1726) => q(chz),
+      q(1727) => q(cia),
+      q(1728) => q(cib),
+      q(1729) => q(cic),
+      q(1730) => q(cid),
+      q(1731) => q(cie),
+      q(1732) => q(cih),
+      q(1733) => q(cik),
+      q(1734) => q(cim),
+      q(1735) => q(cin),
+      q(1736) => q(cip),
+      q(1737) => q(cir),
+      q(1738) => q(ciw),
+      q(1739) => q(ciy),
+      q(1740) => q(cja),
+      q(1741) => q(cje),
+      q(1742) => q(cjh),
+      q(1743) => q(cji),
+      q(1744) => q(cjk),
+      q(1745) => q(cjm),
+      q(1746) => q(cjn),
+      q(1747) => q(cjo),
+      q(1748) => q(cjp),
+      q(1749) => q(cjs),
+      q(1750) => q(cjv),
+      q(1751) => q(cjy),
+      q(1752) => q(ckb),
+      q(1753) => q(ckh),
+      q(1754) => q(ckl),
+      q(1755) => q(ckn),
+      q(1756) => q(cko),
+      q(1757) => q(ckq),
+      q(1758) => q(ckr),
+      q(1759) => q(cks),
+      q(1760) => q(ckt),
+      q(1761) => q(cku),
+      q(1762) => q(ckv),
+      q(1763) => q(ckx),
+      q(1764) => q(cky),
+      q(1765) => q(ckz),
+      q(1766) => q(cla),
+      q(1767) => q(clc),
+      q(1768) => q(cld),
+      q(1769) => q(cle),
+      q(1770) => q(clh),
+      q(1771) => q(cli),
+      q(1772) => q(clj),
+      q(1773) => q(clk),
+      q(1774) => q(cll),
+      q(1775) => q(clm),
+      q(1776) => q(clo),
+      q(1777) => q(clt),
+      q(1778) => q(clu),
+      q(1779) => q(clw),
+      q(1780) => q(cly),
+      q(1781) => q(cma),
+      q(1782) => q(cme),
+      q(1783) => q(cmg),
+      q(1784) => q(cmi),
+      q(1785) => q(cml),
+      q(1786) => q(cmm),
+      q(1787) => q(cmn),
+      q(1788) => q(cmo),
+      q(1789) => q(cmr),
+      q(1790) => q(cms),
+      q(1791) => q(cmt),
+      q(1792) => q(cna),
+      q(1793) => q(cnb),
+      q(1794) => q(cnc),
+      q(1795) => q(cng),
+      q(1796) => q(cnh),
+      q(1797) => q(cni),
+      q(1798) => q(cnk),
+      q(1799) => q(cnl),
+      q(1800) => q(cno),
+      q(1801) => q(cns),
+      q(1802) => q(cnt),
+      q(1803) => q(cnu),
+      q(1804) => q(cnw),
+      q(1805) => q(cnx),
+      q(1806) => q(coa),
+      q(1807) => q(cob),
+      q(1808) => q(coc),
+      q(1809) => q(cod),
+      q(1810) => q(coe),
+      q(1811) => q(cof),
+      q(1812) => q(cog),
+      q(1813) => q(coh),
+      q(1814) => q(coj),
+      q(1815) => q(cok),
+      q(1816) => q(col),
+      q(1817) => q(com),
+      q(1818) => q(con),
+      q(1819) => q(coo),
+      q(1820) => q(coq),
+      q(1821) => q(cot),
+      q(1822) => q(cou),
+      q(1823) => q(cov),
+      q(1824) => q(cow),
+      q(1825) => q(cox),
+      q(1826) => q(coz),
+      q(1827) => q(cpa),
+      q(1828) => q(cpb),
+      q(1829) => q(cpc),
+      q(1830) => q(cpg),
+      q(1831) => q(cpi),
+      q(1832) => q(cpn),
+      q(1833) => q(cpo),
+      q(1834) => q(cps),
+      q(1835) => q(cpu),
+      q(1836) => q(cpx),
+      q(1837) => q(cpy),
+      q(1838) => q(cqd),
+      q(1839) => q(cra),
+      q(1840) => q(crb),
+      q(1841) => q(crc),
+      q(1842) => q(crd),
+      q(1843) => q(crf),
+      q(1844) => q(crg),
+      q(1845) => q(cri),
+      q(1846) => q(crj),
+      q(1847) => q(crk),
+      q(1848) => q(crl),
+      q(1849) => q(crm),
+      q(1850) => q(crn),
+      q(1851) => q(cro),
+      q(1852) => q(crq),
+      q(1853) => q(crr),
+      q(1854) => q(crs),
+      q(1855) => q(crt),
+      q(1856) => q(crv),
+      q(1857) => q(crw),
+      q(1858) => q(crx),
+      q(1859) => q(cry),
+      q(1860) => q(crz),
+      q(1861) => q(csa),
+      q(1862) => q(csc),
+      q(1863) => q(csd),
+      q(1864) => q(cse),
+      q(1865) => q(csf),
+      q(1866) => q(csg),
+      q(1867) => q(csh),
+      q(1868) => q(csi),
+      q(1869) => q(csj),
+      q(1870) => q(csk),
+      q(1871) => q(csl),
+      q(1872) => q(csm),
+      q(1873) => q(csn),
+      q(1874) => q(cso),
+      q(1875) => q(csq),
+      q(1876) => q(csr),
+      q(1877) => q(css),
+      q(1878) => q(cst),
+      q(1879) => q(csv),
+      q(1880) => q(csw),
+      q(1881) => q(csy),
+      q(1882) => q(csz),
+      q(1883) => q(cta),
+      q(1884) => q(ctc),
+      q(1885) => q(ctd),
+      q(1886) => q(cte),
+      q(1887) => q(ctg),
+      q(1888) => q(cth),
+      q(1889) => q(ctl),
+      q(1890) => q(ctm),
+      q(1891) => q(ctn),
+      q(1892) => q(cto),
+      q(1893) => q(ctp),
+      q(1894) => q(cts),
+      q(1895) => q(ctt),
+      q(1896) => q(ctu),
+      q(1897) => q(ctz),
+      q(1898) => q(cua),
+      q(1899) => q(cub),
+      q(1900) => q(cuc),
+      q(1901) => q(cug),
+      q(1902) => q(cuh),
+      q(1903) => q(cui),
+      q(1904) => q(cuj),
+      q(1905) => q(cuk),
+      q(1906) => q(cul),
+      q(1907) => q(cuo),
+      q(1908) => q(cup),
+      q(1909) => q(cuq),
+      q(1910) => q(cur),
+      q(1911) => q(cut),
+      q(1912) => q(cuu),
+      q(1913) => q(cuv),
+      q(1914) => q(cuw),
+      q(1915) => q(cux),
+      q(1916) => q(cvg),
+      q(1917) => q(cvn),
+      q(1918) => q(cwa),
+      q(1919) => q(cwb),
+      q(1920) => q(cwd),
+      q(1921) => q(cwe),
+      q(1922) => q(cwg),
+      q(1923) => q(cwt),
+      q(1924) => q(cya),
+      q(1925) => q(cyb),
+      q(1926) => q(cyo),
+      q(1927) => q(czh),
+      q(1928) => q(czk),
+      q(1929) => q(czn),
+      q(1930) => q(czo),
+      q(1931) => q(czt),
+      q(1932) => q(daa),
+      q(1933) => q(dac),
+      q(1934) => q(dad),
+      q(1935) => q(dae),
+      q(1936) => q(dag),
+      q(1937) => q(dah),
+      q(1938) => q(dai),
+      q(1939) => q(daj),
+      q(1940) => q(dal),
+      q(1941) => q(dam),
+      q(1942) => q(dao),
+      q(1943) => q(daq),
+      q(1944) => q(das),
+      q(1945) => q(dau),
+      q(1946) => q(dav),
+      q(1947) => q(daw),
+      q(1948) => q(dax),
+      q(1949) => q(daz),
+      q(1950) => q(dba),
+      q(1951) => q(dbb),
+      q(1952) => q(dbd),
+      q(1953) => q(dbe),
+      q(1954) => q(dbf),
+      q(1955) => q(dbg),
+      q(1956) => q(dbi),
+      q(1957) => q(dbj),
+      q(1958) => q(dbl),
+      q(1959) => q(dbm),
+      q(1960) => q(dbn),
+      q(1961) => q(dbo),
+      q(1962) => q(dbp),
+      q(1963) => q(dbq),
+      q(1964) => q(dbr),
+      q(1965) => q(dbt),
+      q(1966) => q(dbu),
+      q(1967) => q(dbv),
+      q(1968) => q(dbw),
+      q(1969) => q(dby),
+      q(1970) => q(dcc),
+      q(1971) => q(dcr),
+      q(1972) => q(dda),
+      q(1973) => q(ddd),
+      q(1974) => q(dde),
+      q(1975) => q(ddg),
+      q(1976) => q(ddi),
+      q(1977) => q(ddj),
+      q(1978) => q(ddn),
+      q(1979) => q(ddo),
+      q(1980) => q(ddr),
+      q(1981) => q(dds),
+      q(1982) => q(ddw),
+      q(1983) => q(dec),
+      q(1984) => q(ded),
+      q(1985) => q(dee),
+      q(1986) => q(def),
+      q(1987) => q(deg),
+      q(1988) => q(deh),
+      q(1989) => q(dei),
+      q(1990) => q(dek),
+      q(1991) => q(dem),
+      q(1992) => q(dep),
+      q(1993) => q(deq),
+      q(1994) => q(der),
+      q(1995) => q(des),
+      q(1996) => q(dev),
+      q(1997) => q(dez),
+      q(1998) => q(dga),
+      q(1999) => q(dgb),
+      q(2000) => q(dgc),
+      q(2001) => q(dgd),
+      q(2002) => q(dge),
+      q(2003) => q(dgg),
+      q(2004) => q(dgh),
+      q(2005) => q(dgi),
+      q(2006) => q(dgk),
+      q(2007) => q(dgl),
+      q(2008) => q(dgn),
+      q(2009) => q(dgo),
+      q(2010) => q(dgs),
+      q(2011) => q(dgt),
+      q(2012) => q(dgu),
+      q(2013) => q(dgw),
+      q(2014) => q(dgx),
+      q(2015) => q(dgz),
+      q(2016) => q(dhd),
+      q(2017) => q(dhg),
+      q(2018) => q(dhi),
+      q(2019) => q(dhl),
+      q(2020) => q(dhm),
+      q(2021) => q(dhn),
+      q(2022) => q(dho),
+      q(2023) => q(dhr),
+      q(2024) => q(dhs),
+      q(2025) => q(dhu),
+      q(2026) => q(dhv),
+      q(2027) => q(dhw),
+      q(2028) => q(dhx),
+      q(2029) => q(dia),
+      q(2030) => q(dib),
+      q(2031) => q(dic),
+      q(2032) => q(did),
+      q(2033) => q(dif),
+      q(2034) => q(dig),
+      q(2035) => q(dih),
+      q(2036) => q(dii),
+      q(2037) => q(dij),
+      q(2038) => q(dik),
+      q(2039) => q(dil),
+      q(2040) => q(dim),
+      q(2041) => q(dio),
+      q(2042) => q(dip),
+      q(2043) => q(diq),
+      q(2044) => q(dir),
+      q(2045) => q(dis),
+      q(2046) => q(dit),
+      q(2047) => q(diu),
+      q(2048) => q(diw),
+      q(2049) => q(dix),
+      q(2050) => q(diy),
+      q(2051) => q(diz),
+      q(2052) => q(dja),
+      q(2053) => q(djb),
+      q(2054) => q(djc),
+      q(2055) => q(djd),
+      q(2056) => q(dje),
+      q(2057) => q(djf),
+      q(2058) => q(dji),
+      q(2059) => q(djj),
+      q(2060) => q(djk),
+      q(2061) => q(djm),
+      q(2062) => q(djn),
+      q(2063) => q(djo),
+      q(2064) => q(djr),
+      q(2065) => q(dju),
+      q(2066) => q(djw),
+      q(2067) => q(dka),
+      q(2068) => q(dkk),
+      q(2069) => q(dkr),
+      q(2070) => q(dks),
+      q(2071) => q(dkx),
+      q(2072) => q(dlg),
+      q(2073) => q(dlk),
+      q(2074) => q(dlm),
+      q(2075) => q(dln),
+      q(2076) => q(dma),
+      q(2077) => q(dmb),
+      q(2078) => q(dmc),
+      q(2079) => q(dmd),
+      q(2080) => q(dme),
+      q(2081) => q(dmg),
+      q(2082) => q(dmk),
+      q(2083) => q(dml),
+      q(2084) => q(dmm),
+      q(2085) => q(dmo),
+      q(2086) => q(dmr),
+      q(2087) => q(dms),
+      q(2088) => q(dmu),
+      q(2089) => q(dmv),
+      q(2090) => q(dmw),
+      q(2091) => q(dmx),
+      q(2092) => q(dmy),
+      q(2093) => q(dna),
+      q(2094) => q(dnd),
+      q(2095) => q(dne),
+      q(2096) => q(dng),
+      q(2097) => q(dni),
+      q(2098) => q(dnj),
+      q(2099) => q(dnk),
+      q(2100) => q(dnn),
+      q(2101) => q(dnr),
+      q(2102) => q(dnt),
+      q(2103) => q(dnu),
+      q(2104) => q(dnv),
+      q(2105) => q(dnw),
+      q(2106) => q(dny),
+      q(2107) => q(doa),
+      q(2108) => q(dob),
+      q(2109) => q(doc),
+      q(2110) => q(doe),
+      q(2111) => q(dof),
+      q(2112) => q(doh),
+      q(2113) => q(dok),
+      q(2114) => q(dol),
+      q(2115) => q(don),
+      q(2116) => q(doo),
+      q(2117) => q(dop),
+      q(2118) => q(doq),
+      q(2119) => q(dor),
+      q(2120) => q(dos),
+      q(2121) => q(dot),
+      q(2122) => q(dov),
+      q(2123) => q(dow),
+      q(2124) => q(dox),
+      q(2125) => q(doy),
+      q(2126) => q(doz),
+      q(2127) => q(dpp),
+      q(2128) => q(drb),
+      q(2129) => q(drc),
+      q(2130) => q(drd),
+      q(2131) => q(dre),
+      q(2132) => q(drg),
+      q(2133) => q(dri),
+      q(2134) => q(drl),
+      q(2135) => q(drn),
+      q(2136) => q(dro),
+      q(2137) => q(drq),
+      q(2138) => q(drr),
+      q(2139) => q(drs),
+      q(2140) => q(drt),
+      q(2141) => q(dru),
+      q(2142) => q(dry),
+      q(2143) => q(dse),
+      q(2144) => q(dsh),
+      q(2145) => q(dsi),
+      q(2146) => q(dsl),
+      q(2147) => q(dsn),
+      q(2148) => q(dso),
+      q(2149) => q(dsq),
+      q(2150) => q(dta),
+      q(2151) => q(dtb),
+      q(2152) => q(dtd),
+      q(2153) => q(dth),
+      q(2154) => q(dti),
+      q(2155) => q(dtk),
+      q(2156) => q(dtm),
+      q(2157) => q(dtn),
+      q(2158) => q(dto),
+      q(2159) => q(dtp),
+      q(2160) => q(dtr),
+      q(2161) => q(dts),
+      q(2162) => q(dtt),
+      q(2163) => q(dtu),
+      q(2164) => q(dty),
+      q(2165) => q(dub),
+      q(2166) => q(duc),
+      q(2167) => q(dud),
+      q(2168) => q(due),
+      q(2169) => q(duf),
+      q(2170) => q(dug),
+      q(2171) => q(duh),
+      q(2172) => q(dui),
+      q(2173) => q(duk),
+      q(2174) => q(dul),
+      q(2175) => q(dun),
+      q(2176) => q(duo),
+      q(2177) => q(dup),
+      q(2178) => q(duq),
+      q(2179) => q(dur),
+      q(2180) => q(dus),
+      q(2181) => q(duu),
+      q(2182) => q(duv),
+      q(2183) => q(duw),
+      q(2184) => q(dux),
+      q(2185) => q(duy),
+      q(2186) => q(duz),
+      q(2187) => q(dva),
+      q(2188) => q(dwa),
+      q(2189) => q(dwr),
+      q(2190) => q(dws),
+      q(2191) => q(dwu),
+      q(2192) => q(dww),
+      q(2193) => q(dwy),
+      q(2194) => q(dya),
+      q(2195) => q(dyb),
+      q(2196) => q(dyd),
+      q(2197) => q(dyg),
+      q(2198) => q(dyi),
+      q(2199) => q(dym),
+      q(2200) => q(dyn),
+      q(2201) => q(dyo),
+      q(2202) => q(dyy),
+      q(2203) => q(dza),
+      q(2204) => q(dze),
+      q(2205) => q(dzg),
+      q(2206) => q(dzl),
+      q(2207) => q(dzn),
+      q(2208) => q(eaa),
+      q(2209) => q(ebg),
+      q(2210) => q(ebk),
+      q(2211) => q(ebo),
+      q(2212) => q(ebr),
+      q(2213) => q(ebu),
+      q(2214) => q(ecr),
+      q(2215) => q(ecs),
+      q(2216) => q(ecy),
+      q(2217) => q(eee),
+      q(2218) => q(efa),
+      q(2219) => q(efe),
+      q(2220) => q(ega),
+      q(2221) => q(egl),
+      q(2222) => q(ego),
+      q(2223) => q(ehu),
+      q(2224) => q(eip),
+      q(2225) => q(eit),
+      q(2226) => q(eiv),
+      q(2227) => q(eja),
+      q(2228) => q(ekc),
+      q(2229) => q(eke),
+      q(2230) => q(ekg),
+      q(2231) => q(eki),
+      q(2232) => q(ekk),
+      q(2233) => q(ekl),
+      q(2234) => q(ekm),
+      q(2235) => q(eko),
+      q(2236) => q(ekp),
+      q(2237) => q(ekr),
+      q(2238) => q(eky),
+      q(2239) => q(ele),
+      q(2240) => q(elh),
+      q(2241) => q(eli),
+      q(2242) => q(elk),
+      q(2243) => q(elm),
+      q(2244) => q(elo),
+      q(2245) => q(elu),
+      q(2246) => q(ema),
+      q(2247) => q(emb),
+      q(2248) => q(eme),
+      q(2249) => q(emg),
+      q(2250) => q(emi),
+      q(2251) => q(emk),
+      q(2252) => q(emm),
+      q(2253) => q(emn),
+      q(2254) => q(emp),
+      q(2255) => q(ems),
+      q(2256) => q(emu),
+      q(2257) => q(emw),
+      q(2258) => q(emx),
+      q(2259) => q(emy),
+      q(2260) => q(ena),
+      q(2261) => q(enb),
+      q(2262) => q(enc),
+      q(2263) => q(end),
+      q(2264) => q(enf),
+      q(2265) => q(enh),
+      q(2266) => q(enl),
+      q(2267) => q(enn),
+      q(2268) => q(eno),
+      q(2269) => q(enq),
+      q(2270) => q(enr),
+      q(2271) => q(enu),
+      q(2272) => q(env),
+      q(2273) => q(enw),
+      q(2274) => q(enx),
+      q(2275) => q(eot),
+      q(2276) => q(epi),
+      q(2277) => q(era),
+      q(2278) => q(erg),
+      q(2279) => q(erh),
+      q(2280) => q(eri),
+      q(2281) => q(erk),
+      q(2282) => q(ero),
+      q(2283) => q(err),
+      q(2284) => q(ers),
+      q(2285) => q(ert),
+      q(2286) => q(erw),
+      q(2287) => q(ese),
+      q(2288) => q(esg),
+      q(2289) => q(esh),
+      q(2290) => q(esi),
+      q(2291) => q(esk),
+      q(2292) => q(esl),
+      q(2293) => q(esm),
+      q(2294) => q(esn),
+      q(2295) => q(eso),
+      q(2296) => q(esq),
+      q(2297) => q(ess),
+      q(2298) => q(esu),
+      q(2299) => q(esy),
+      q(2300) => q(etb),
+      q(2301) => q(etc),
+      q(2302) => q(eth),
+      q(2303) => q(etn),
+      q(2304) => q(eto),
+      q(2305) => q(etr),
+      q(2306) => q(ets),
+      q(2307) => q(ett),
+      q(2308) => q(etu),
+      q(2309) => q(etx),
+      q(2310) => q(etz),
+      q(2311) => q(eve),
+      q(2312) => q(evh),
+      q(2313) => q(evn),
+      q(2314) => q(ext),
+      q(2315) => q(eya),
+      q(2316) => q(eyo),
+      q(2317) => q(eza),
+      q(2318) => q(eze),
+      q(2319) => q(faa),
+      q(2320) => q(fab),
+      q(2321) => q(fad),
+      q(2322) => q(faf),
+      q(2323) => q(fag),
+      q(2324) => q(fah),
+      q(2325) => q(fai),
+      q(2326) => q(faj),
+      q(2327) => q(fak),
+      q(2328) => q(fal),
+      q(2329) => q(fam),
+      q(2330) => q(fap),
+      q(2331) => q(far),
+      q(2332) => q(fau),
+      q(2333) => q(fax),
+      q(2334) => q(fay),
+      q(2335) => q(faz),
+      q(2336) => q(fbl),
+      q(2337) => q(fcs),
+      q(2338) => q(fer),
+      q(2339) => q(ffi),
+      q(2340) => q(ffm),
+      q(2341) => q(fgr),
+      q(2342) => q(fia),
+      q(2343) => q(fie),
+      q(2344) => q(fip),
+      q(2345) => q(fir),
+      q(2346) => q(fit),
+      q(2347) => q(fiw),
+      q(2348) => q(fkk),
+      q(2349) => q(fkv),
+      q(2350) => q(fla),
+      q(2351) => q(flh),
+      q(2352) => q(fli),
+      q(2353) => q(fll),
+      q(2354) => q(fln),
+      q(2355) => q(flr),
+      q(2356) => q(fly),
+      q(2357) => q(fmp),
+      q(2358) => q(fmu),
+      q(2359) => q(fnb),
+      q(2360) => q(fng),
+      q(2361) => q(fni),
+      q(2362) => q(fod),
+      q(2363) => q(foi),
+      q(2364) => q(fom),
+      q(2365) => q(for),
+      q(2366) => q(fos),
+      q(2367) => q(fpe),
+      q(2368) => q(fqs),
+      q(2369) => q(frc),
+      q(2370) => q(frd),
+      q(2371) => q(frk),
+      q(2372) => q(frp),
+      q(2373) => q(frq),
+      q(2374) => q(frt),
+      q(2375) => q(fse),
+      q(2376) => q(fsl),
+      q(2377) => q(fss),
+      q(2378) => q(fub),
+      q(2379) => q(fuc),
+      q(2380) => q(fud),
+      q(2381) => q(fue),
+      q(2382) => q(fuf),
+      q(2383) => q(fuh),
+      q(2384) => q(fui),
+      q(2385) => q(fuj),
+      q(2386) => q(fum),
+      q(2387) => q(fun),
+      q(2388) => q(fuq),
+      q(2389) => q(fut),
+      q(2390) => q(fuu),
+      q(2391) => q(fuv),
+      q(2392) => q(fuy),
+      q(2393) => q(fvr),
+      q(2394) => q(fwa),
+      q(2395) => q(fwe),
+      q(2396) => q(gab),
+      q(2397) => q(gac),
+      q(2398) => q(gad),
+      q(2399) => q(gae),
+      q(2400) => q(gaf),
+      q(2401) => q(gag),
+      q(2402) => q(gah),
+      q(2403) => q(gai),
+      q(2404) => q(gaj),
+      q(2405) => q(gak),
+      q(2406) => q(gal),
+      q(2407) => q(gam),
+      q(2408) => q(gan),
+      q(2409) => q(gao),
+      q(2410) => q(gap),
+      q(2411) => q(gaq),
+      q(2412) => q(gar),
+      q(2413) => q(gas),
+      q(2414) => q(gat),
+      q(2415) => q(gau),
+      q(2416) => q(gaw),
+      q(2417) => q(gax),
+      q(2418) => q(gaz),
+      q(2419) => q(gbb),
+      q(2420) => q(gbd),
+      q(2421) => q(gbe),
+      q(2422) => q(gbf),
+      q(2423) => q(gbg),
+      q(2424) => q(gbh),
+      q(2425) => q(gbi),
+      q(2426) => q(gbj),
+      q(2427) => q(gbk),
+      q(2428) => q(gbl),
+      q(2429) => q(gbm),
+      q(2430) => q(gbn),
+      q(2431) => q(gbo),
+      q(2432) => q(gbp),
+      q(2433) => q(gbq),
+      q(2434) => q(gbr),
+      q(2435) => q(gbs),
+      q(2436) => q(gbu),
+      q(2437) => q(gbv),
+      q(2438) => q(gbw),
+      q(2439) => q(gbx),
+      q(2440) => q(gby),
+      q(2441) => q(gbz),
+      q(2442) => q(gcc),
+      q(2443) => q(gcd),
+      q(2444) => q(gce),
+      q(2445) => q(gcf),
+      q(2446) => q(gcl),
+      q(2447) => q(gcn),
+      q(2448) => q(gcr),
+      q(2449) => q(gct),
+      q(2450) => q(gda),
+      q(2451) => q(gdb),
+      q(2452) => q(gdc),
+      q(2453) => q(gdd),
+      q(2454) => q(gde),
+      q(2455) => q(gdf),
+      q(2456) => q(gdg),
+      q(2457) => q(gdh),
+      q(2458) => q(gdi),
+      q(2459) => q(gdj),
+      q(2460) => q(gdk),
+      q(2461) => q(gdl),
+      q(2462) => q(gdm),
+      q(2463) => q(gdn),
+      q(2464) => q(gdo),
+      q(2465) => q(gdq),
+      q(2466) => q(gdr),
+      q(2467) => q(gds),
+      q(2468) => q(gdt),
+      q(2469) => q(gdu),
+      q(2470) => q(gdx),
+      q(2471) => q(gea),
+      q(2472) => q(geb),
+      q(2473) => q(gec),
+      q(2474) => q(ged),
+      q(2475) => q(geg),
+      q(2476) => q(geh),
+      q(2477) => q(gei),
+      q(2478) => q(gej),
+      q(2479) => q(gek),
+      q(2480) => q(gel),
+      q(2481) => q(geq),
+      q(2482) => q(ges),
+      q(2483) => q(gev),
+      q(2484) => q(gew),
+      q(2485) => q(gex),
+      q(2486) => q(gey),
+      q(2487) => q(gfk),
+      q(2488) => q(gft),
+      q(2489) => q(gga),
+      q(2490) => q(ggb),
+      q(2491) => q(ggd),
+      q(2492) => q(gge),
+      q(2493) => q(ggg),
+      q(2494) => q(ggk),
+      q(2495) => q(ggl),
+      q(2496) => q(ggt),
+      q(2497) => q(ggu),
+      q(2498) => q(ggw),
+      q(2499) => q(gha),
+      q(2500) => q(ghc),
+      q(2501) => q(ghe),
+      q(2502) => q(ghh),
+      q(2503) => q(ghk),
+      q(2504) => q(ghl),
+      q(2505) => q(ghn),
+      q(2506) => q(gho),
+      q(2507) => q(ghr),
+      q(2508) => q(ghs),
+      q(2509) => q(ght),
+      q(2510) => q(gia),
+      q(2511) => q(gib),
+      q(2512) => q(gic),
+      q(2513) => q(gid),
+      q(2514) => q(gie),
+      q(2515) => q(gig),
+      q(2516) => q(gih),
+      q(2517) => q(gim),
+      q(2518) => q(gin),
+      q(2519) => q(gip),
+      q(2520) => q(giq),
+      q(2521) => q(gir),
+      q(2522) => q(gis),
+      q(2523) => q(git),
+      q(2524) => q(giu),
+      q(2525) => q(giw),
+      q(2526) => q(gix),
+      q(2527) => q(giy),
+      q(2528) => q(giz),
+      q(2529) => q(gji),
+      q(2530) => q(gjk),
+      q(2531) => q(gjm),
+      q(2532) => q(gjn),
+      q(2533) => q(gjr),
+      q(2534) => q(gju),
+      q(2535) => q(gka),
+      q(2536) => q(gke),
+      q(2537) => q(gkn),
+      q(2538) => q(gko),
+      q(2539) => q(gkp),
+      q(2540) => q(gku),
+      q(2541) => q(glc),
+      q(2542) => q(gld),
+      q(2543) => q(glh),
+      q(2544) => q(gli),
+      q(2545) => q(glj),
+      q(2546) => q(glk),
+      q(2547) => q(gll),
+      q(2548) => q(glo),
+      q(2549) => q(glr),
+      q(2550) => q(glu),
+      q(2551) => q(glw),
+      q(2552) => q(gly),
+      q(2553) => q(gma),
+      q(2554) => q(gmb),
+      q(2555) => q(gmd),
+      q(2556) => q(gmg),
+      q(2557) => q(gml),
+      q(2558) => q(gmm),
+      q(2559) => q(gmn),
+      q(2560) => q(gmu),
+      q(2561) => q(gmv),
+      q(2562) => q(gmx),
+      q(2563) => q(gmy),
+      q(2564) => q(gmz),
+      q(2565) => q(gna),
+      q(2566) => q(gnb),
+      q(2567) => q(gnc),
+      q(2568) => q(gnd),
+      q(2569) => q(gne),
+      q(2570) => q(gng),
+      q(2571) => q(gnh),
+      q(2572) => q(gni),
+      q(2573) => q(gnq),
+      q(2574) => q(gnl),
+      q(2575) => q(gnm),
+      q(2576) => q(gnn),
+      q(2577) => q(gno),
+      q(2578) => q(gnr),
+      q(2579) => q(gnt),
+      q(2580) => q(gnu),
+      q(2581) => q(gnw),
+      q(2582) => q(gnz),
+      q(2583) => q(goa),
+      q(2584) => q(gob),
+      q(2585) => q(goc),
+      q(2586) => q(god),
+      q(2587) => q(goe),
+      q(2588) => q(gof),
+      q(2589) => q(gog),
+      q(2590) => q(goi),
+      q(2591) => q(goj),
+      q(2592) => q(gok),
+      q(2593) => q(gol),
+      q(2594) => q(gom),
+      q(2595) => q(goo),
+      q(2596) => q(gop),
+      q(2597) => q(goq),
+      q(2598) => q(gos),
+      q(2599) => q(gou),
+      q(2600) => q(gow),
+      q(2601) => q(gox),
+      q(2602) => q(goy),
+      q(2603) => q(goz),
+      q(2604) => q(gpa),
+      q(2605) => q(gpe),
+      q(2606) => q(gpn),
+      q(2607) => q(gqa),
+      q(2608) => q(gqi),
+      q(2609) => q(gqn),
+      q(2610) => q(gqr),
+      q(2611) => q(gqu),
+      q(2612) => q(gra),
+      q(2613) => q(grd),
+      q(2614) => q(grg),
+      q(2615) => q(grh),
+      q(2616) => q(gri),
+      q(2617) => q(grj),
+      q(2618) => q(grm),
+      q(2619) => q(gro),
+      q(2620) => q(grq),
+      q(2621) => q(grr),
+      q(2622) => q(grs),
+      q(2623) => q(grt),
+      q(2624) => q(gru),
+      q(2625) => q(grv),
+      q(2626) => q(grw),
+      q(2627) => q(grx),
+      q(2628) => q(gry),
+      q(2629) => q(grz),
+      q(2630) => q(gse),
+      q(2631) => q(gsg),
+      q(2632) => q(gsl),
+      q(2633) => q(gsm),
+      q(2634) => q(gsn),
+      q(2635) => q(gso),
+      q(2636) => q(gsp),
+      q(2637) => q(gss),
+      q(2638) => q(gta),
+      q(2639) => q(gtu),
+      q(2640) => q(gua),
+      q(2641) => q(gub),
+      q(2642) => q(guc),
+      q(2643) => q(gud),
+      q(2644) => q(gue),
+      q(2645) => q(guf),
+      q(2646) => q(gug),
+      q(2647) => q(guh),
+      q(2648) => q(gui),
+      q(2649) => q(guk),
+      q(2650) => q(gul),
+      q(2651) => q(gum),
+      q(2652) => q(gun),
+      q(2653) => q(guo),
+      q(2654) => q(gup),
+      q(2655) => q(yif),
+      q(2656) => q(gur),
+      q(2657) => q(gus),
+      q(2658) => q(gut),
+      q(2659) => q(guu),
+      q(2660) => q(guw),
+      q(2661) => q(gux),
+      q(2662) => q(guz),
+      q(2663) => q(gva),
+      q(2664) => q(gvc),
+      q(2665) => q(gve),
+      q(2666) => q(gvf),
+      q(2667) => q(gvj),
+      q(2668) => q(gvl),
+      q(2669) => q(gvm),
+      q(2670) => q(gvn),
+      q(2671) => q(gvo),
+      q(2672) => q(gvp),
+      q(2673) => q(gvr),
+      q(2674) => q(gvs),
+      q(2675) => q(gvy),
+      q(2676) => q(gwa),
+      q(2677) => q(gwb),
+      q(2678) => q(gwc),
+      q(2679) => q(gwd),
+      q(2680) => q(gwe),
+      q(2681) => q(gwf),
+      q(2682) => q(gwg),
+      q(2683) => q(gwj),
+      q(2684) => q(gwm),
+      q(2685) => q(gwn),
+      q(2686) => q(gwr),
+      q(2687) => q(gwt),
+      q(2688) => q(gwu),
+      q(2689) => q(gww),
+      q(2690) => q(gwx),
+      q(2691) => q(gxx),
+      q(2692) => q(gya),
+      q(2693) => q(gyb),
+      q(2694) => q(gyd),
+      q(2695) => q(gye),
+      q(2696) => q(gyf),
+      q(2697) => q(gyg),
+      q(2698) => q(gyi),
+      q(2699) => q(gyl),
+      q(2700) => q(gym),
+      q(2701) => q(gyn),
+      q(2702) => q(gyr),
+      q(2703) => q(gyy),
+      q(2704) => q(gza),
+      q(2705) => q(gzi),
+      q(2706) => q(gzn),
+      q(2707) => q(haa),
+      q(2708) => q(hab),
+      q(2709) => q(hac),
+      q(2710) => q(had),
+      q(2711) => q(hae),
+      q(2712) => q(haf),
+      q(2713) => q(hag),
+      q(2714) => q(hah),
+      q(2715) => q(haj),
+      q(2716) => q(hak),
+      q(2717) => q(hal),
+      q(2718) => q(ham),
+      q(2719) => q(han),
+      q(2720) => q(hao),
+      q(2721) => q(hap),
+      q(2722) => q(haq),
+      q(2723) => q(har),
+      q(2724) => q(has),
+      q(2725) => q(hav),
+      q(2726) => q(hax),
+      q(2727) => q(hay),
+      q(2728) => q(haz),
+      q(2729) => q(hba),
+      q(2730) => q(hbb),
+      q(2731) => q(hbn),
+      q(2732) => q(hbo),
+      q(2733) => q(hbu),
+      q(2734) => q(hca),
+      q(2735) => q(hch),
+      q(2736) => q(hdn),
+      q(2737) => q(hds),
+      q(2738) => q(hdy),
+      q(2739) => q(hea),
+      q(2740) => q(hed),
+      q(2741) => q(heg),
+      q(2742) => q(heh),
+      q(2743) => q(hei),
+      q(2744) => q(hem),
+      q(2745) => q(hgm),
+      q(2746) => q(hgw),
+      q(2747) => q(hhi),
+      q(2748) => q(hhr),
+      q(2749) => q(hhy),
+      q(2750) => q(hia),
+      q(2751) => q(hib),
+      q(2752) => q(hid),
+      q(2753) => q(hif),
+      q(2754) => q(hig),
+      q(2755) => q(hih),
+      q(2756) => q(hii),
+      q(2757) => q(hij),
+      q(2758) => q(hik),
+      q(2759) => q(hio),
+      q(2760) => q(hir),
+      q(2761) => q(hiw),
+      q(2762) => q(hix),
+      q(2763) => q(hji),
+      q(2764) => q(hka),
+      q(2765) => q(hke),
+      q(2766) => q(hkk),
+      q(2767) => q(hks),
+      q(2768) => q(hla),
+      q(2769) => q(hlb),
+      q(2770) => q(hld),
+      q(2771) => q(hle),
+      q(2772) => q(hlt),
+      q(2773) => q(hlu),
+      q(2774) => q(hma),
+      q(2775) => q(hmb),
+      q(2776) => q(hmc),
+      q(2777) => q(hmd),
+      q(2778) => q(hme),
+      q(2779) => q(hmf),
+      q(2780) => q(hmg),
+      q(2781) => q(hmh),
+      q(2782) => q(hmi),
+      q(2783) => q(hmj),
+      q(2784) => q(hmk),
+      q(2785) => q(hml),
+      q(2786) => q(hmm),
+      q(2787) => q(hmp),
+      q(2788) => q(hmq),
+      q(2789) => q(hmr),
+      q(2790) => q(hms),
+      q(2791) => q(hmt),
+      q(2792) => q(hmu),
+      q(2793) => q(hmv),
+      q(2794) => q(hmw),
+      q(2795) => q(hmy),
+      q(2796) => q(hmz),
+      q(2797) => q(hna),
+      q(2798) => q(hnd),
+      q(2799) => q(hne),
+      q(2800) => q(hnh),
+      q(2801) => q(hni),
+      q(2802) => q(hnj),
+      q(2803) => q(hnn),
+      q(2804) => q(hno),
+      q(2805) => q(hns),
+      q(2806) => q(hnu),
+      q(2807) => q(hoa),
+      q(2808) => q(hob),
+      q(2809) => q(hoc),
+      q(2810) => q(hod),
+      q(2811) => q(hoe),
+      q(2812) => q(hoh),
+      q(2813) => q(hoi),
+      q(2814) => q(hoj),
+      q(2815) => q(hol),
+      q(2816) => q(hom),
+      q(2817) => q(hoo),
+      q(2818) => q(hop),
+      q(2819) => q(hor),
+      q(2820) => q(hos),
+      q(2821) => q(hot),
+      q(2822) => q(hov),
+      q(2823) => q(how),
+      q(2824) => q(hoy),
+      q(2825) => q(hoz),
+      q(2826) => q(hpo),
+      q(2827) => q(hps),
+      q(2828) => q(hra),
+      q(2829) => q(hrc),
+      q(2830) => q(hre),
+      q(2831) => q(hrk),
+      q(2832) => q(hrm),
+      q(2833) => q(hro),
+      q(2834) => q(hrp),
+      q(2835) => q(hrt),
+      q(2836) => q(hru),
+      q(2837) => q(hrw),
+      q(2838) => q(hrx),
+      q(2839) => q(hrz),
+      q(2840) => q(hsh),
+      q(2841) => q(hsl),
+      q(2842) => q(hsn),
+      q(2843) => q(hss),
+      q(2844) => q(hti),
+      q(2845) => q(hto),
+      q(2846) => q(hts),
+      q(2847) => q(htu),
+      q(2848) => q(htx),
+      q(2849) => q(hub),
+      q(2850) => q(huc),
+      q(2851) => q(hud),
+      q(2852) => q(hue),
+      q(2853) => q(huf),
+      q(2854) => q(hug),
+      q(2855) => q(huh),
+      q(2856) => q(hui),
+      q(2857) => q(huj),
+      q(2858) => q(huk),
+      q(2859) => q(hul),
+      q(2860) => q(hum),
+      q(2861) => q(huo),
+      q(2862) => q(huq),
+      q(2863) => q(hur),
+      q(2864) => q(hus),
+      q(2865) => q(hut),
+      q(2866) => q(huu),
+      q(2867) => q(huv),
+      q(2868) => q(huw),
+      q(2869) => q(hux),
+      q(2870) => q(huy),
+      q(2871) => q(huz),
+      q(2872) => q(hvc),
+      q(2873) => q(hve),
+      q(2874) => q(hvk),
+      q(2875) => q(hvn),
+      q(2876) => q(hvv),
+      q(2877) => q(hwa),
+      q(2878) => q(hwc),
+      q(2879) => q(hwo),
+      q(2880) => q(hya),
+      q(2881) => q(iai),
+      q(2882) => q(ian),
+      q(2883) => q(iar),
+      q(2884) => q(ibb),
+      q(2885) => q(ibd),
+      q(2886) => q(ibe),
+      q(2887) => q(ibg),
+      q(2888) => q(ibh),
+      q(2889) => q(ibl),
+      q(2890) => q(ibm),
+      q(2891) => q(ibn),
+      q(2892) => q(ibr),
+      q(2893) => q(ibu),
+      q(2894) => q(iby),
+      q(2895) => q(ica),
+      q(2896) => q(ich),
+      q(2897) => q(icl),
+      q(2898) => q(icr),
+      q(2899) => q(ida),
+      q(2900) => q(idb),
+      q(2901) => q(idc),
+      q(2902) => q(idd),
+      q(2903) => q(ide),
+      q(2904) => q(idi),
+      q(2905) => q(idr),
+      q(2906) => q(ids),
+      q(2907) => q(idt),
+      q(2908) => q(idu),
+      q(2909) => q(ifa),
+      q(2910) => q(ifb),
+      q(2911) => q(ife),
+      q(2912) => q(iff),
+      q(2913) => q(ifk),
+      q(2914) => q(ifm),
+      q(2915) => q(ifu),
+      q(2916) => q(ify),
+      q(2917) => q(igb),
+      q(2918) => q(ige),
+      q(2919) => q(igg),
+      q(2920) => q(igl),
+      q(2921) => q(igm),
+      q(2922) => q(ign),
+      q(2923) => q(igo),
+      q(2924) => q(igs),
+      q(2925) => q(igw),
+      q(2926) => q(ihb),
+      q(2927) => q(ihi),
+      q(2928) => q(ihp),
+      q(2929) => q(ihw),
+      q(2930) => q(iin),
+      q(2931) => q(ijc),
+      q(2932) => q(ije),
+      q(2933) => q(ijj),
+      q(2934) => q(ijn),
+      q(2935) => q(ijs),
+      q(2936) => q(ike),
+      q(2937) => q(iki),
+      q(2938) => q(ikk),
+      q(2939) => q(ikl),
+      q(2940) => q(iko),
+      q(2941) => q(ikp),
+      q(2942) => q(ikr),
+      q(2943) => q(iks),
+      q(2944) => q(ikt),
+      q(2945) => q(ikv),
+      q(2946) => q(ikw),
+      q(2947) => q(ikx),
+      q(2948) => q(ikz),
+      q(2949) => q(ila),
+      q(2950) => q(ilb),
+      q(2951) => q(ilg),
+      q(2952) => q(ili),
+      q(2953) => q(ilk),
+      q(2954) => q(ilm),
+      q(2955) => q(ilp),
+      q(2956) => q(ils),
+      q(2957) => q(ilu),
+      q(2958) => q(ilv),
+      q(2959) => q(ima),
+      q(2960) => q(imi),
+      q(2961) => q(iml),
+      q(2962) => q(imn),
+      q(2963) => q(imo),
+      q(2964) => q(imr),
+      q(2965) => q(ims),
+      q(2966) => q(imy),
+      q(2967) => q(inb),
+      q(2968) => q(ing),
+      q(2969) => q(inj),
+      q(2970) => q(inl),
+      q(2971) => q(inm),
+      q(2972) => q(inn),
+      q(2973) => q(ino),
+      q(2974) => q(inp),
+      q(2975) => q(ins),
+      q(2976) => q(int),
+      q(2977) => q(inz),
+      q(2978) => q(ior),
+      q(2979) => q(iou),
+      q(2980) => q(iow),
+      q(2981) => q(ipi),
+      q(2982) => q(ipo),
+      q(2983) => q(iqu),
+      q(2984) => q(iqw),
+      q(2985) => q(ire),
+      q(2986) => q(irh),
+      q(2987) => q(iri),
+      q(2988) => q(irk),
+      q(2989) => q(irn),
+      q(2990) => q(irr),
+      q(2991) => q(iru),
+      q(2992) => q(irx),
+      q(2993) => q(iry),
+      q(2994) => q(isa),
+      q(2995) => q(isc),
+      q(2996) => q(isd),
+      q(2997) => q(ise),
+      q(2998) => q(isg),
+      q(2999) => q(ish),
+      q(3000) => q(isi),
+      q(3001) => q(isk),
+      q(3002) => q(ism),
+      q(3003) => q(isn),
+      q(3004) => q(iso),
+      q(3005) => q(isr),
+      q(3006) => q(ist),
+      q(3007) => q(isu),
+      q(3008) => q(itb),
+      q(3009) => q(itd),
+      q(3010) => q(ite),
+      q(3011) => q(iti),
+      q(3012) => q(itk),
+      q(3013) => q(itl),
+      q(3014) => q(itm),
+      q(3015) => q(ito),
+      q(3016) => q(itr),
+      q(3017) => q(its),
+      q(3018) => q(itt),
+      q(3019) => q(itv),
+      q(3020) => q(itw),
+      q(3021) => q(itx),
+      q(3022) => q(ity),
+      q(3023) => q(itz),
+      q(3024) => q(ium),
+      q(3025) => q(ivb),
+      q(3026) => q(ivv),
+      q(3027) => q(iwk),
+      q(3028) => q(iwm),
+      q(3029) => q(iwo),
+      q(3030) => q(iws),
+      q(3031) => q(ixc),
+      q(3032) => q(ixl),
+      q(3033) => q(iya),
+      q(3034) => q(iyo),
+      q(3035) => q(iyx),
+      q(3036) => q(izh),
+      q(3037) => q(izr),
+      q(3038) => q(izz),
+      q(3039) => q(jaa),
+      q(3040) => q(jab),
+      q(3041) => q(jac),
+      q(3042) => q(jad),
+      q(3043) => q(jae),
+      q(3044) => q(jaf),
+      q(3045) => q(jah),
+      q(3046) => q(jaj),
+      q(3047) => q(jak),
+      q(3048) => q(jal),
+      q(3049) => q(jam),
+      q(3050) => q(jan),
+      q(3051) => q(jao),
+      q(3052) => q(jaq),
+      q(3053) => q(jas),
+      q(3054) => q(jat),
+      q(3055) => q(jau),
+      q(3056) => q(jax),
+      q(3057) => q(jay),
+      q(3058) => q(jaz),
+      q(3059) => q(jbe),
+      q(3060) => q(jbi),
+      q(3061) => q(jbj),
+      q(3062) => q(jbk),
+      q(3063) => q(jbn),
+      q(3064) => q(jbr),
+      q(3065) => q(jbt),
+      q(3066) => q(jbu),
+      q(3067) => q(jbw),
+      q(3068) => q(jcs),
+      q(3069) => q(jct),
+      q(3070) => q(jda),
+      q(3071) => q(jdg),
+      q(3072) => q(jdt),
+      q(3073) => q(jeb),
+      q(3074) => q(jee),
+      q(3075) => q(jeh),
+      q(3076) => q(jei),
+      q(3077) => q(jek),
+      q(3078) => q(jel),
+      q(3079) => q(jen),
+      q(3080) => q(jer),
+      q(3081) => q(jet),
+      q(3082) => q(jeu),
+      q(3083) => q(jgb),
+      q(3084) => q(jge),
+      q(3085) => q(jgk),
+      q(3086) => q(jgo),
+      q(3087) => q(jhi),
+      q(3088) => q(jhs),
+      q(3089) => q(jia),
+      q(3090) => q(jib),
+      q(3091) => q(jic),
+      q(3092) => q(jid),
+      q(3093) => q(jie),
+      q(3094) => q(jig),
+      q(3095) => q(jih),
+      q(3096) => q(jii),
+      q(3097) => q(jil),
+      q(3098) => q(jim),
+      q(3099) => q(jio),
+      q(3100) => q(jiq),
+      q(3101) => q(jit),
+      q(3102) => q(jiu),
+      q(3103) => q(jiv),
+      q(3104) => q(jiy),
+      q(3105) => q(jje),
+      q(3106) => q(jjr),
+      q(3107) => q(jka),
+      q(3108) => q(jkm),
+      q(3109) => q(jko),
+      q(3110) => q(jkp),
+      q(3111) => q(jkr),
+      q(3112) => q(jku),
+      q(3113) => q(jle),
+      q(3114) => q(jls),
+      q(3115) => q(jma),
+      q(3116) => q(jmb),
+      q(3117) => q(jmc),
+      q(3118) => q(jmd),
+      q(3119) => q(jmi),
+      q(3120) => q(jml),
+      q(3121) => q(jmn),
+      q(3122) => q(jmr),
+      q(3123) => q(jms),
+      q(3124) => q(jmw),
+      q(3125) => q(jmx),
+      q(3126) => q(jna),
+      q(3127) => q(jnd),
+      q(3128) => q(jng),
+      q(3129) => q(jni),
+      q(3130) => q(jnj),
+      q(3131) => q(jnl),
+      q(3132) => q(jns),
+      q(3133) => q(job),
+      q(3134) => q(jod),
+      q(3135) => q(jog),
+      q(3136) => q(jor),
+      q(3137) => q(jos),
+      q(3138) => q(jow),
+      q(3139) => q(jpa),
+      q(3140) => q(jqr),
+      q(3141) => q(jra),
+      q(3142) => q(jrr),
+      q(3143) => q(jrt),
+      q(3144) => q(jru),
+      q(3145) => q(jsl),
+      q(3146) => q(jua),
+      q(3147) => q(jub),
+      q(3148) => q(juc),
+      q(3149) => q(jud),
+      q(3150) => q(juh),
+      q(3151) => q(jui),
+      q(3152) => q(juk),
+      q(3153) => q(jul),
+      q(3154) => q(jum),
+      q(3155) => q(jun),
+      q(3156) => q(juo),
+      q(3157) => q(jup),
+      q(3158) => q(jur),
+      q(3159) => q(jus),
+      q(3160) => q(jut),
+      q(3161) => q(juu),
+      q(3162) => q(juw),
+      q(3163) => q(juy),
+      q(3164) => q(jvd),
+      q(3165) => q(jvn),
+      q(3166) => q(jwi),
+      q(3167) => q(jya),
+      q(3168) => q(jye),
+      q(3169) => q(jyy),
+      q(3170) => q(kad),
+      q(3171) => q(kae),
+      q(3172) => q(kaf),
+      q(3173) => q(kag),
+      q(3174) => q(kah),
+      q(3175) => q(kai),
+      q(3176) => q(kaj),
+      q(3177) => q(kak),
+      q(3178) => q(kao),
+      q(3179) => q(kap),
+      q(3180) => q(kaq),
+      q(3181) => q(kav),
+      q(3182) => q(kax),
+      q(3183) => q(kay),
+      q(3184) => q(kba),
+      q(3185) => q(kbb),
+      q(3186) => q(kbc),
+      q(3187) => q(kbe),
+      q(3188) => q(kbg),
+      q(3189) => q(kbh),
+      q(3190) => q(kbi),
+      q(3191) => q(kbj),
+      q(3192) => q(kbk),
+      q(3193) => q(kbl),
+      q(3194) => q(kbm),
+      q(3195) => q(kbn),
+      q(3196) => q(kbo),
+      q(3197) => q(kbp),
+      q(3198) => q(kbq),
+      q(3199) => q(kbr),
+      q(3200) => q(kbs),
+      q(3201) => q(kbt),
+      q(3202) => q(kbu),
+      q(3203) => q(kbv),
+      q(3204) => q(kbw),
+      q(3205) => q(kbx),
+      q(3206) => q(kby),
+      q(3207) => q(kbz),
+      q(3208) => q(kca),
+      q(3209) => q(kcb),
+      q(3210) => q(kcc),
+      q(3211) => q(kcd),
+      q(3212) => q(kce),
+      q(3213) => q(kcf),
+      q(3214) => q(kcg),
+      q(3215) => q(kch),
+      q(3216) => q(kci),
+      q(3217) => q(kcj),
+      q(3218) => q(kck),
+      q(3219) => q(kcl),
+      q(3220) => q(kcm),
+      q(3221) => q(kcn),
+      q(3222) => q(kco),
+      q(3223) => q(kcp),
+      q(3224) => q(kcq),
+      q(3225) => q(kcr),
+      q(3226) => q(kcs),
+      q(3227) => q(kct),
+      q(3228) => q(kcu),
+      q(3229) => q(kcv),
+      q(3230) => q(kcw),
+      q(3231) => q(kcx),
+      q(3232) => q(kcy),
+      q(3233) => q(kcz),
+      q(3234) => q(kda),
+      q(3235) => q(kdc),
+      q(3236) => q(kdd),
+      q(3237) => q(kde),
+      q(3238) => q(kdf),
+      q(3239) => q(kdg),
+      q(3240) => q(kdh),
+      q(3241) => q(kdi),
+      q(3242) => q(kdj),
+      q(3243) => q(kdk),
+      q(3244) => q(kdl),
+      q(3245) => q(kdm),
+      q(3246) => q(kdn),
+      q(3247) => q(kdp),
+      q(3248) => q(kdq),
+      q(3249) => q(kdr),
+      q(3250) => q(kdt),
+      q(3251) => q(kdu),
+      q(3252) => q(kdw),
+      q(3253) => q(kdx),
+      q(3254) => q(kdy),
+      q(3255) => q(kdz),
+      q(3256) => q(kea),
+      q(3257) => q(keb),
+      q(3258) => q(kec),
+      q(3259) => q(ked),
+      q(3260) => q(kee),
+      q(3261) => q(kef),
+      q(3262) => q(keg),
+      q(3263) => q(keh),
+      q(3264) => q(kei),
+      q(3265) => q(kej),
+      q(3266) => q(kek),
+      q(3267) => q(kel),
+      q(3268) => q(kem),
+      q(3269) => q(ken),
+      q(3270) => q(keo),
+      q(3271) => q(kep),
+      q(3272) => q(keq),
+      q(3273) => q(ker),
+      q(3274) => q(kes),
+      q(3275) => q(ket),
+      q(3276) => q(keu),
+      q(3277) => q(kev),
+      q(3278) => q(kew),
+      q(3279) => q(kex),
+      q(3280) => q(key),
+      q(3281) => q(kez),
+      q(3282) => q(kfa),
+      q(3283) => q(kfb),
+      q(3284) => q(kfc),
+      q(3285) => q(kfd),
+      q(3286) => q(kfe),
+      q(3287) => q(kff),
+      q(3288) => q(kfg),
+      q(3289) => q(kfh),
+      q(3290) => q(kfi),
+      q(3291) => q(kfj),
+      q(3292) => q(kfk),
+      q(3293) => q(kfl),
+      q(3294) => q(kfm),
+      q(3295) => q(kfn),
+      q(3296) => q(kfo),
+      q(3297) => q(kfp),
+      q(3298) => q(kfq),
+      q(3299) => q(kfr),
+      q(3300) => q(kfs),
+      q(3301) => q(kft),
+      q(3302) => q(kfu),
+      q(3303) => q(kfv),
+      q(3304) => q(kfw),
+      q(3305) => q(kfx),
+      q(3306) => q(kfy),
+      q(3307) => q(kfz),
+      q(3308) => q(kga),
+      q(3309) => q(kgb),
+      q(3310) => q(kge),
+      q(3311) => q(kgf),
+      q(3312) => q(kgg),
+      q(3313) => q(kgi),
+      q(3314) => q(kgj),
+      q(3315) => q(kgk),
+      q(3316) => q(kgl),
+      q(3317) => q(kuq),
+      q(3318) => q(kgn),
+      q(3319) => q(kgo),
+      q(3320) => q(kgp),
+      q(3321) => q(kgq),
+      q(3322) => q(kgr),
+      q(3323) => q(kgs),
+      q(3324) => q(kgt),
+      q(3325) => q(kgu),
+      q(3326) => q(kgv),
+      q(3327) => q(kgw),
+      q(3328) => q(kgx),
+      q(3329) => q(kgy),
+      q(3330) => q(khb),
+      q(3331) => q(khc),
+      q(3332) => q(khd),
+      q(3333) => q(khe),
+      q(3334) => q(khf),
+      q(3335) => q(khg),
+      q(3336) => q(khh),
+      q(3337) => q(khj),
+      q(3338) => q(khk),
+      q(3339) => q(khl),
+      q(3340) => q(khn),
+      q(3341) => q(khp),
+      q(3342) => q(khq),
+      q(3343) => q(khr),
+      q(3344) => q(khs),
+      q(3345) => q(kht),
+      q(3346) => q(khu),
+      q(3347) => q(khv),
+      q(3348) => q(khw),
+      q(3349) => q(khx),
+      q(3350) => q(khy),
+      q(3351) => q(khz),
+      q(3352) => q(kia),
+      q(3353) => q(kib),
+      q(3354) => q(kic),
+      q(3355) => q(kid),
+      q(3356) => q(kie),
+      q(3357) => q(kif),
+      q(3358) => q(kig),
+      q(3359) => q(kih),
+      q(3360) => q(kii),
+      q(3361) => q(kij),
+      q(3362) => q(kil),
+      q(3363) => q(kim),
+      q(3364) => q(kio),
+      q(3365) => q(kip),
+      q(3366) => q(kiq),
+      q(3367) => q(kis),
+      q(3368) => q(kit),
+      q(3369) => q(kiu),
+      q(3370) => q(kiv),
+      q(3371) => q(kiw),
+      q(3372) => q(kix),
+      q(3373) => q(kiy),
+      q(3374) => q(kiz),
+      q(3375) => q(kja),
+      q(3376) => q(kjb),
+      q(3377) => q(kjc),
+      q(3378) => q(kjd),
+      q(3379) => q(kje),
+      q(3380) => q(kjf),
+      q(3381) => q(kjg),
+      q(3382) => q(kjh),
+      q(3383) => q(kji),
+      q(3384) => q(kjj),
+      q(3385) => q(kjk),
+      q(3386) => q(kjl),
+      q(3387) => q(kjm),
+      q(3388) => q(kjn),
+      q(3389) => q(kjo),
+      q(3390) => q(kjp),
+      q(3391) => q(kjq),
+      q(3392) => q(kjr),
+      q(3393) => q(kjs),
+      q(3394) => q(kjt),
+      q(3395) => q(kju),
+      q(3396) => q(kjv),
+      q(3397) => q(kjx),
+      q(3398) => q(kjy),
+      q(3399) => q(kjz),
+      q(3400) => q(kka),
+      q(3401) => q(kkb),
+      q(3402) => q(kkc),
+      q(3403) => q(kkd),
+      q(3404) => q(kke),
+      q(3405) => q(kkf),
+      q(3406) => q(kkg),
+      q(3407) => q(kkh),
+      q(3408) => q(kki),
+      q(3409) => q(kkj),
+      q(3410) => q(kkk),
+      q(3411) => q(kkl),
+      q(3412) => q(kkm),
+      q(3413) => q(kkn),
+      q(3414) => q(kko),
+      q(3415) => q(kkp),
+      q(3416) => q(kkq),
+      q(3417) => q(kkr),
+      q(3418) => q(kks),
+      q(3419) => q(kkt),
+      q(3420) => q(kku),
+      q(3421) => q(kkv),
+      q(3422) => q(kkw),
+      q(3423) => q(kkx),
+      q(3424) => q(kky),
+      q(3425) => q(kkz),
+      q(3426) => q(kla),
+      q(3427) => q(klb),
+      q(3428) => q(klc),
+      q(3429) => q(kld),
+      q(3430) => q(kle),
+      q(3431) => q(klf),
+      q(3432) => q(klg),
+      q(3433) => q(klh),
+      q(3434) => q(kli),
+      q(3435) => q(klj),
+      q(3436) => q(klk),
+      q(3437) => q(kll),
+      q(3438) => q(klm),
+      q(3439) => q(kln),
+      q(3440) => q(klo),
+      q(3441) => q(klp),
+      q(3442) => q(klq),
+      q(3443) => q(klr),
+      q(3444) => q(kls),
+      q(3445) => q(klt),
+      q(3446) => q(klu),
+      q(3447) => q(klv),
+      q(3448) => q(klw),
+      q(3449) => q(klx),
+      q(3450) => q(kly),
+      q(3451) => q(klz),
+      q(3452) => q(kma),
+      q(3453) => q(kmc),
+      q(3454) => q(kmd),
+      q(3455) => q(kme),
+      q(3456) => q(kmf),
+      q(3457) => q(kmg),
+      q(3458) => q(kmh),
+      q(3459) => q(kmi),
+      q(3460) => q(kmj),
+      q(3461) => q(kmk),
+      q(3462) => q(kml),
+      q(3463) => q(kmm),
+      q(3464) => q(kmn),
+      q(3465) => q(kmo),
+      q(3466) => q(kmp),
+      q(3467) => q(kmq),
+      q(3468) => q(kmr),
+      q(3469) => q(kms),
+      q(3470) => q(kmt),
+      q(3471) => q(kmu),
+      q(3472) => q(kmv),
+      q(3473) => q(kmw),
+      q(3474) => q(kmx),
+      q(3475) => q(kmy),
+      q(3476) => q(kmz),
+      q(3477) => q(kna),
+      q(3478) => q(knb),
+      q(3479) => q(knc),
+      q(3480) => q(knd),
+      q(3481) => q(kne),
+      q(3482) => q(knf),
+      q(3483) => q(kng),
+      q(3484) => q(kni),
+      q(3485) => q(knj),
+      q(3486) => q(knk),
+      q(3487) => q(knl),
+      q(3488) => q(knm),
+      q(3489) => q(knn),
+      q(3490) => q(kno),
+      q(3491) => q(knp),
+      q(3492) => q(knq),
+      q(3493) => q(knr),
+      q(3494) => q(kns),
+      q(3495) => q(knt),
+      q(3496) => q(knu),
+      q(3497) => q(knv),
+      q(3498) => q(knw),
+      q(3499) => q(knx),
+      q(3500) => q(kny),
+      q(3501) => q(knz),
+      q(3502) => q(koa),
+      q(3503) => q(koc),
+      q(3504) => q(kod),
+      q(3505) => q(koe),
+      q(3506) => q(kof),
+      q(3507) => q(kog),
+      q(3508) => q(koh),
+      q(3509) => q(koi),
+      q(3510) => q(kol),
+      q(3511) => q(koo),
+      q(3512) => q(kop),
+      q(3513) => q(koq),
+      q(3514) => q(kot),
+      q(3515) => q(kou),
+      q(3516) => q(kov),
+      q(3517) => q(kow),
+      q(3518) => q(koy),
+      q(3519) => q(koz),
+      q(3520) => q(kpa),
+      q(3521) => q(kpb),
+      q(3522) => q(kpc),
+      q(3523) => q(kpd),
+      q(3524) => q(kpf),
+      q(3525) => q(kpg),
+      q(3526) => q(kph),
+      q(3527) => q(kpi),
+      q(3528) => q(kpj),
+      q(3529) => q(kpk),
+      q(3530) => q(kpl),
+      q(3531) => q(kpm),
+      q(3532) => q(kpn),
+      q(3533) => q(kpo),
+      q(3534) => q(kpq),
+      q(3535) => q(kpr),
+      q(3536) => q(kps),
+      q(3537) => q(kpt),
+      q(3538) => q(kpu),
+      q(3539) => q(kpv),
+      q(3540) => q(kpw),
+      q(3541) => q(kpx),
+      q(3542) => q(kpy),
+      q(3543) => q(kpz),
+      q(3544) => q(kqa),
+      q(3545) => q(kqb),
+      q(3546) => q(kqc),
+      q(3547) => q(kqd),
+      q(3548) => q(kqe),
+      q(3549) => q(kqf),
+      q(3550) => q(kqg),
+      q(3551) => q(kqh),
+      q(3552) => q(kqi),
+      q(3553) => q(kqj),
+      q(3554) => q(kqk),
+      q(3555) => q(kql),
+      q(3556) => q(kqm),
+      q(3557) => q(kqn),
+      q(3558) => q(kqo),
+      q(3559) => q(kqp),
+      q(3560) => q(kqq),
+      q(3561) => q(kqr),
+      q(3562) => q(kqs),
+      q(3563) => q(kqt),
+      q(3564) => q(kqu),
+      q(3565) => q(kqv),
+      q(3566) => q(kqw),
+      q(3567) => q(kqx),
+      q(3568) => q(kqy),
+      q(3569) => q(kqz),
+      q(3570) => q(kra),
+      q(3571) => q(krb),
+      q(3572) => q(krd),
+      q(3573) => q(kre),
+      q(3574) => q(krf),
+      q(3575) => q(krh),
+      q(3576) => q(kri),
+      q(3577) => q(krj),
+      q(3578) => q(krk),
+      q(3579) => q(krn),
+      q(3580) => q(krp),
+      q(3581) => q(krr),
+      q(3582) => q(krs),
+      q(3583) => q(krt),
+      q(3584) => q(krv),
+      q(3585) => q(krw),
+      q(3586) => q(krx),
+      q(3587) => q(kry),
+      q(3588) => q(krz),
+      q(3589) => q(ksa),
+      q(3590) => q(ksb),
+      q(3591) => q(ksc),
+      q(3592) => q(ksd),
+      q(3593) => q(kse),
+      q(3594) => q(ksf),
+      q(3595) => q(ksg),
+      q(3596) => q(ksh),
+      q(3597) => q(ksi),
+      q(3598) => q(ksj),
+      q(3599) => q(ksk),
+      q(3600) => q(ksl),
+      q(3601) => q(ksm),
+      q(3602) => q(ksn),
+      q(3603) => q(kso),
+      q(3604) => q(ksp),
+      q(3605) => q(ksq),
+      q(3606) => q(ksr),
+      q(3607) => q(kss),
+      q(3608) => q(kst),
+      q(3609) => q(ksu),
+      q(3610) => q(ksv),
+      q(3611) => q(ksw),
+      q(3612) => q(ksx),
+      q(3613) => q(ksy),
+      q(3614) => q(ksz),
+      q(3615) => q(kta),
+      q(3616) => q(ktb),
+      q(3617) => q(ktc),
+      q(3618) => q(ktd),
+      q(3619) => q(kte),
+      q(3620) => q(ktf),
+      q(3621) => q(ktg),
+      q(3622) => q(kth),
+      q(3623) => q(kti),
+      q(3624) => q(ktj),
+      q(3625) => q(ktk),
+      q(3626) => q(ktl),
+      q(3627) => q(ktm),
+      q(3628) => q(ktn),
+      q(3629) => q(kto),
+      q(3630) => q(ktp),
+      q(3631) => q(ktq),
+      q(3632) => q(kts),
+      q(3633) => q(ktt),
+      q(3634) => q(ktu),
+      q(3635) => q(ktv),
+      q(3636) => q(ktw),
+      q(3637) => q(ktx),
+      q(3638) => q(kty),
+      q(3639) => q(ktz),
+      q(3640) => q(kub),
+      q(3641) => q(kuc),
+      q(3642) => q(kud),
+      q(3643) => q(kue),
+      q(3644) => q(kuf),
+      q(3645) => q(kug),
+      q(3646) => q(kuh),
+      q(3647) => q(kui),
+      q(3648) => q(kuj),
+      q(3649) => q(kuk),
+      q(3650) => q(kul),
+      q(3651) => q(kun),
+      q(3652) => q(kuo),
+      q(3653) => q(kup),
+      q(3654) => q(kus),
+      q(3655) => q(kuu),
+      q(3656) => q(kuv),
+      q(3657) => q(kuw),
+      q(3658) => q(kux),
+      q(3659) => q(kuy),
+      q(3660) => q(kuz),
+      q(3661) => q(kva),
+      q(3662) => q(kvb),
+      q(3663) => q(kvc),
+      q(3664) => q(kvd),
+      q(3665) => q(kve),
+      q(3666) => q(kvf),
+      q(3667) => q(kvg),
+      q(3668) => q(kvh),
+      q(3669) => q(kvi),
+      q(3670) => q(kvj),
+      q(3671) => q(kvk),
+      q(3672) => q(kvl),
+      q(3673) => q(kvm),
+      q(3674) => q(kvn),
+      q(3675) => q(kvo),
+      q(3676) => q(kvp),
+      q(3677) => q(kvq),
+      q(3678) => q(kvr),
+      q(3679) => q(kvt),
+      q(3680) => q(kvu),
+      q(3681) => q(kvv),
+      q(3682) => q(kvw),
+      q(3683) => q(kvx),
+      q(3684) => q(kvy),
+      q(3685) => q(kvz),
+      q(3686) => q(kwa),
+      q(3687) => q(kwb),
+      q(3688) => q(kwc),
+      q(3689) => q(kwd),
+      q(3690) => q(kwe),
+      q(3691) => q(kwf),
+      q(3692) => q(kwg),
+      q(3693) => q(kwh),
+      q(3694) => q(kwi),
+      q(3695) => q(kwj),
+      q(3696) => q(kwk),
+      q(3697) => q(kwl),
+      q(3698) => q(kwm),
+      q(3699) => q(kwn),
+      q(3700) => q(kwo),
+      q(3701) => q(kwp),
+      q(3702) => q(kwr),
+      q(3703) => q(kws),
+      q(3704) => q(kwt),
+      q(3705) => q(kwu),
+      q(3706) => q(kwv),
+      q(3707) => q(kww),
+      q(3708) => q(kwx),
+      q(3709) => q(kwy),
+      q(3710) => q(kwz),
+      q(3711) => q(kxa),
+      q(3712) => q(kxb),
+      q(3713) => q(kxc),
+      q(3714) => q(kxd),
+      q(3715) => q(kxf),
+      q(3716) => q(kxh),
+      q(3717) => q(kxi),
+      q(3718) => q(kxj),
+      q(3719) => q(kxk),
+      q(3720) => q(kxl),
+      q(3721) => q(kxm),
+      q(3722) => q(kxn),
+      q(3723) => q(kxo),
+      q(3724) => q(kxp),
+      q(3725) => q(kxq),
+      q(3726) => q(kxr),
+      q(3727) => q(kxs),
+      q(3728) => q(kxt),
+      q(3729) => q(kxu),
+      q(3730) => q(kxv),
+      q(3731) => q(kxw),
+      q(3732) => q(kxx),
+      q(3733) => q(kxy),
+      q(3734) => q(kxz),
+      q(3735) => q(kya),
+      q(3736) => q(kyb),
+      q(3737) => q(kyc),
+      q(3738) => q(kyd),
+      q(3739) => q(kye),
+      q(3740) => q(kyf),
+      q(3741) => q(kyg),
+      q(3742) => q(kyh),
+      q(3743) => q(kyi),
+      q(3744) => q(kyj),
+      q(3745) => q(kyk),
+      q(3746) => q(kyl),
+      q(3747) => q(kym),
+      q(3748) => q(kyn),
+      q(3749) => q(kyo),
+      q(3750) => q(kyp),
+      q(3751) => q(kyq),
+      q(3752) => q(kyr),
+      q(3753) => q(kys),
+      q(3754) => q(kyt),
+      q(3755) => q(kyu),
+      q(3756) => q(kyv),
+      q(3757) => q(kyw),
+      q(3758) => q(kyx),
+      q(3759) => q(kyy),
+      q(3760) => q(kyz),
+      q(3761) => q(kza),
+      q(3762) => q(kzb),
+      q(3763) => q(kzc),
+      q(3764) => q(kzd),
+      q(3765) => q(kze),
+      q(3766) => q(kzf),
+      q(3767) => q(kzg),
+      q(3768) => q(kzi),
+      q(3769) => q(kzk),
+      q(3770) => q(kzl),
+      q(3771) => q(kzm),
+      q(3772) => q(kzn),
+      q(3773) => q(kzo),
+      q(3774) => q(kzp),
+      q(3775) => q(kzq),
+      q(3776) => q(kzr),
+      q(3777) => q(kzs),
+      q(3778) => q(kzu),
+      q(3779) => q(kzv),
+      q(3780) => q(kzw),
+      q(3781) => q(kzx),
+      q(3782) => q(kzy),
+      q(3783) => q(kzz),
+      q(3784) => q(laa),
+      q(3785) => q(lab),
+      q(3786) => q(lac),
+      q(3787) => q(lae),
+      q(3788) => q(laf),
+      q(3789) => q(lag),
+      q(3790) => q(lai),
+      q(3791) => q(laj),
+      q(3792) => q(lak),
+      q(3793) => q(lal),
+      q(3794) => q(lan),
+      q(3795) => q(lap),
+      q(3796) => q(laq),
+      q(3797) => q(lar),
+      q(3798) => q(las),
+      q(3799) => q(lau),
+      q(3800) => q(law),
+      q(3801) => q(lax),
+      q(3802) => q(lay),
+      q(3803) => q(laz),
+      q(3804) => q(lba),
+      q(3805) => q(lbb),
+      q(3806) => q(lbc),
+      q(3807) => q(lbe),
+      q(3808) => q(lbf),
+      q(3809) => q(lbg),
+      q(3810) => q(lbi),
+      q(3811) => q(lbj),
+      q(3812) => q(lbk),
+      q(3813) => q(lbl),
+      q(3814) => q(lbm),
+      q(3815) => q(lbn),
+      q(3816) => q(lbo),
+      q(3817) => q(lbq),
+      q(3818) => q(lbr),
+      q(3819) => q(lbs),
+      q(3820) => q(lbt),
+      q(3821) => q(lbu),
+      q(3822) => q(lbv),
+      q(3823) => q(lbw),
+      q(3824) => q(lbx),
+      q(3825) => q(lby),
+      q(3826) => q(lbz),
+      q(3827) => q(lcc),
+      q(3828) => q(lcd),
+      q(3829) => q(lce),
+      q(3830) => q(lcf),
+      q(3831) => q(lch),
+      q(3832) => q(lcl),
+      q(3833) => q(lcm),
+      q(3834) => q(lcp),
+      q(3835) => q(lcq),
+      q(3836) => q(lcs),
+      q(3837) => q(lda),
+      q(3838) => q(ldb),
+      q(3839) => q(ldd),
+      q(3840) => q(ldg),
+      q(3841) => q(ldh),
+      q(3842) => q(ldi),
+      q(3843) => q(ldj),
+      q(3844) => q(ldk),
+      q(3845) => q(ldl),
+      q(3846) => q(ldm),
+      q(3847) => q(ldn),
+      q(3848) => q(ldo),
+      q(3849) => q(ldp),
+      q(3850) => q(ldq),
+      q(3851) => q(lea),
+      q(3852) => q(leb),
+      q(3853) => q(lec),
+      q(3854) => q(led),
+      q(3855) => q(lee),
+      q(3856) => q(lef),
+      q(3857) => q(leh),
+      q(3858) => q(lei),
+      q(3859) => q(lej),
+      q(3860) => q(lek),
+      q(3861) => q(lel),
+      q(3862) => q(lem),
+      q(3863) => q(len),
+      q(3864) => q(leo),
+      q(3865) => q(lep),
+      q(3866) => q(leq),
+      q(3867) => q(ler),
+      q(3868) => q(les),
+      q(3869) => q(let),
+      q(3870) => q(leu),
+      q(3871) => q(lev),
+      q(3872) => q(lew),
+      q(3873) => q(lex),
+      q(3874) => q(ley),
+      q(3875) => q(lfa),
+      q(3876) => q(lfn),
+      q(3877) => q(lga),
+      q(3878) => q(lgb),
+      q(3879) => q(lgg),
+      q(3880) => q(lgh),
+      q(3881) => q(lgi),
+      q(3882) => q(lgk),
+      q(3883) => q(lgl),
+      q(3884) => q(lgm),
+      q(3885) => q(lgn),
+      q(3886) => q(lgq),
+      q(3887) => q(lgr),
+      q(3888) => q(lgt),
+      q(3889) => q(lgu),
+      q(3890) => q(lgz),
+      q(3891) => q(lha),
+      q(3892) => q(lhh),
+      q(3893) => q(lhi),
+      q(3894) => q(lhl),
+      q(3895) => q(lhm),
+      q(3896) => q(lhn),
+      q(3897) => q(lhp),
+      q(3898) => q(lhs),
+      q(3899) => q(lht),
+      q(3900) => q(lhu),
+      q(3901) => q(lia),
+      q(3902) => q(lib),
+      q(3903) => q(lic),
+      q(3904) => q(lid),
+      q(3905) => q(lie),
+      q(3906) => q(lif),
+      q(3907) => q(lig),
+      q(3908) => q(lih),
+      q(3909) => q(lij),
+      q(3910) => q(lik),
+      q(3911) => q(lil),
+      q(3912) => q(lio),
+      q(3913) => q(lip),
+      q(3914) => q(liq),
+      q(3915) => q(lir),
+      q(3916) => q(lis),
+      q(3917) => q(liu),
+      q(3918) => q(liv),
+      q(3919) => q(liw),
+      q(3920) => q(lix),
+      q(3921) => q(liy),
+      q(3922) => q(liz),
+      q(3923) => q(lja),
+      q(3924) => q(lje),
+      q(3925) => q(lji),
+      q(3926) => q(ljl),
+      q(3927) => q(ljp),
+      q(3928) => q(ljw),
+      q(3929) => q(ljx),
+      q(3930) => q(lka),
+      q(3931) => q(lkb),
+      q(3932) => q(lkc),
+      q(3933) => q(lkd),
+      q(3934) => q(lke),
+      q(3935) => q(lkh),
+      q(3936) => q(lki),
+      q(3937) => q(lkj),
+      q(3938) => q(lkl),
+      q(3939) => q(lkm),
+      q(3940) => q(lkn),
+      q(3941) => q(lko),
+      q(3942) => q(lkr),
+      q(3943) => q(lks),
+      q(3944) => q(lkt),
+      q(3945) => q(lku),
+      q(3946) => q(lky),
+      q(3947) => q(lla),
+      q(3948) => q(llb),
+      q(3949) => q(llc),
+      q(3950) => q(lld),
+      q(3951) => q(lle),
+      q(3952) => q(llf),
+      q(3953) => q(llg),
+      q(3954) => q(llh),
+      q(3955) => q(lli),
+      q(3956) => q(llj),
+      q(3957) => q(llk),
+      q(3958) => q(lll),
+      q(3959) => q(llm),
+      q(3960) => q(lln),
+      q(3961) => q(llo),
+      q(3962) => q(llp),
+      q(3963) => q(llq),
+      q(3964) => q(lls),
+      q(3965) => q(llu),
+      q(3966) => q(llx),
+      q(3967) => q(lma),
+      q(3968) => q(lmb),
+      q(3969) => q(lmc),
+      q(3970) => q(lmd),
+      q(3971) => q(lme),
+      q(3972) => q(lmf),
+      q(3973) => q(lmg),
+      q(3974) => q(lmh),
+      q(3975) => q(lmi),
+      q(3976) => q(lmj),
+      q(3977) => q(lmk),
+      q(3978) => q(lml),
+      q(3979) => q(lmn),
+      q(3980) => q(lmo),
+      q(3981) => q(lmp),
+      q(3982) => q(lmq),
+      q(3983) => q(lmr),
+      q(3984) => q(lmu),
+      q(3985) => q(lmv),
+      q(3986) => q(lmw),
+      q(3987) => q(lmx),
+      q(3988) => q(lmy),
+      q(3989) => q(lmz),
+      q(3990) => q(lna),
+      q(3991) => q(lnb),
+      q(3992) => q(lnd),
+      q(3993) => q(lng),
+      q(3994) => q(lnh),
+      q(3995) => q(lni),
+      q(3996) => q(lnj),
+      q(3997) => q(lnl),
+      q(3998) => q(lnm),
+      q(3999) => q(lnn),
+      q(4000) => q(lno),
+      q(4001) => q(lns),
+      q(4002) => q(lnu),
+      q(4003) => q(lnw),
+      q(4004) => q(lnz),
+      q(4005) => q(loa),
+      q(4006) => q(lob),
+      q(4007) => q(loc),
+      q(4008) => q(loe),
+      q(4009) => q(lof),
+      q(4010) => q(log),
+      q(4011) => q(loh),
+      q(4012) => q(loi),
+      q(4013) => q(loj),
+      q(4014) => q(lok),
+      q(4015) => q(lom),
+      q(4016) => q(lon),
+      q(4017) => q(loo),
+      q(4018) => q(lop),
+      q(4019) => q(loq),
+      q(4020) => q(lor),
+      q(4021) => q(los),
+      q(4022) => q(lot),
+      q(4023) => q(lou),
+      q(4024) => q(lov),
+      q(4025) => q(low),
+      q(4026) => q(lox),
+      q(4027) => q(loy),
+      q(4028) => q(lpa),
+      q(4029) => q(lpe),
+      q(4030) => q(lpn),
+      q(4031) => q(lpo),
+      q(4032) => q(lpx),
+      q(4033) => q(lra),
+      q(4034) => q(lrc),
+      q(4035) => q(lre),
+      q(4036) => q(lrg),
+      q(4037) => q(lri),
+      q(4038) => q(lrk),
+      q(4039) => q(lrl),
+      q(4040) => q(lrm),
+      q(4041) => q(lrn),
+      q(4042) => q(lro),
+      q(4043) => q(lrr),
+      q(4044) => q(lrt),
+      q(4045) => q(lrv),
+      q(4046) => q(lrz),
+      q(4047) => q(lsa),
+      q(4048) => q(lsd),
+      q(4049) => q(lse),
+      q(4050) => q(lsg),
+      q(4051) => q(lsh),
+      q(4052) => q(lsi),
+      q(4053) => q(lsl),
+      q(4054) => q(lsm),
+      q(4055) => q(lso),
+      q(4056) => q(lsp),
+      q(4057) => q(lsr),
+      q(4058) => q(lss),
+      q(4059) => q(lst),
+      q(4060) => q(lsy),
+      q(4061) => q(ltc),
+      q(4062) => q(ltg),
+      q(4063) => q(lth),
+      q(4064) => q(lti),
+      q(4065) => q(ltn),
+      q(4066) => q(lto),
+      q(4067) => q(lts),
+      q(4068) => q(ltu),
+      q(4069) => q(luc),
+      q(4070) => q(lud),
+      q(4071) => q(lue),
+      q(4072) => q(luf),
+      q(4073) => q(luj),
+      q(4074) => q(luk),
+      q(4075) => q(lul),
+      q(4076) => q(lum),
+      q(4077) => q(lup),
+      q(4078) => q(luq),
+      q(4079) => q(lur),
+      q(4080) => q(lut),
+      q(4081) => q(luu),
+      q(4082) => q(luv),
+      q(4083) => q(luw),
+      q(4084) => q(luy),
+      q(4085) => q(luz),
+      q(4086) => q(lva),
+      q(4087) => q(lvk),
+      q(4088) => q(lvs),
+      q(4089) => q(lvu),
+      q(4090) => q(lwa),
+      q(4091) => q(lwe),
+      q(4092) => q(lwg),
+      q(4093) => q(lwh),
+      q(4094) => q(lwl),
+      q(4095) => q(lwm),
+      q(4096) => q(lwo),
+      q(4097) => q(lwt),
+      q(4098) => q(lwu),
+      q(4099) => q(lww),
+      q(4100) => q(lya),
+      q(4101) => q(lyg),
+      q(4102) => q(lyn),
+      q(4103) => q(lzh),
+      q(4104) => q(lzl),
+      q(4105) => q(lzn),
+      q(4106) => q(lzz),
+      q(4107) => q(maa),
+      q(4108) => q(mab),
+      q(4109) => q(mae),
+      q(4110) => q(maf),
+      q(4111) => q(maj),
+      q(4112) => q(mam),
+      q(4113) => q(maq),
+      q(4114) => q(mat),
+      q(4115) => q(mau),
+      q(4116) => q(mav),
+      q(4117) => q(maw),
+      q(4118) => q(max),
+      q(4119) => q(maz),
+      q(4120) => q(mba),
+      q(4121) => q(mbb),
+      q(4122) => q(mbc),
+      q(4123) => q(mbd),
+      q(4124) => q(mbe),
+      q(4125) => q(mbf),
+      q(4126) => q(mbh),
+      q(4127) => q(mbi),
+      q(4128) => q(mbj),
+      q(4129) => q(mbk),
+      q(4130) => q(mbl),
+      q(4131) => q(mbm),
+      q(4132) => q(mbn),
+      q(4133) => q(mbo),
+      q(4134) => q(mbp),
+      q(4135) => q(mbq),
+      q(4136) => q(mbr),
+      q(4137) => q(mbs),
+      q(4138) => q(mbt),
+      q(4139) => q(mbu),
+      q(4140) => q(mbv),
+      q(4141) => q(mbw),
+      q(4142) => q(mbx),
+      q(4143) => q(mby),
+      q(4144) => q(mbz),
+      q(4145) => q(mca),
+      q(4146) => q(mcb),
+      q(4147) => q(mcc),
+      q(4148) => q(mcd),
+      q(4149) => q(mce),
+      q(4150) => q(mcf),
+      q(4151) => q(mcg),
+      q(4152) => q(mch),
+      q(4153) => q(mci),
+      q(4154) => q(mcj),
+      q(4155) => q(mck),
+      q(4156) => q(mcl),
+      q(4157) => q(mcm),
+      q(4158) => q(mcn),
+      q(4159) => q(mco),
+      q(4160) => q(mcp),
+      q(4161) => q(mcq),
+      q(4162) => q(mcr),
+      q(4163) => q(mcs),
+      q(4164) => q(mct),
+      q(4165) => q(mcu),
+      q(4166) => q(mcv),
+      q(4167) => q(mcw),
+      q(4168) => q(mcx),
+      q(4169) => q(mcy),
+      q(4170) => q(mcz),
+      q(4171) => q(mda),
+      q(4172) => q(mdb),
+      q(4173) => q(mdc),
+      q(4174) => q(mdd),
+      q(4175) => q(mde),
+      q(4176) => q(mdg),
+      q(4177) => q(mdh),
+      q(4178) => q(mdi),
+      q(4179) => q(mdj),
+      q(4180) => q(mdk),
+      q(4181) => q(mdl),
+      q(4182) => q(mdm),
+      q(4183) => q(mdn),
+      q(4184) => q(mdp),
+      q(4185) => q(mdq),
+      q(4186) => q(mds),
+      q(4187) => q(mdt),
+      q(4188) => q(mdu),
+      q(4189) => q(mdv),
+      q(4190) => q(mdw),
+      q(4191) => q(mdx),
+      q(4192) => q(mdy),
+      q(4193) => q(mdz),
+      q(4194) => q(mea),
+      q(4195) => q(meb),
+      q(4196) => q(mec),
+      q(4197) => q(med),
+      q(4198) => q(mee),
+      q(4199) => q(mef),
+      q(4200) => q(meh),
+      q(4201) => q(mei),
+      q(4202) => q(mej),
+      q(4203) => q(mek),
+      q(4204) => q(mel),
+      q(4205) => q(mem),
+      q(4206) => q(meo),
+      q(4207) => q(mep),
+      q(4208) => q(meq),
+      q(4209) => q(mer),
+      q(4210) => q(mes),
+      q(4211) => q(met),
+      q(4212) => q(meu),
+      q(4213) => q(mev),
+      q(4214) => q(mew),
+      q(4215) => q(mey),
+      q(4216) => q(mez),
+      q(4217) => q(mfa),
+      q(4218) => q(mfb),
+      q(4219) => q(mfc),
+      q(4220) => q(mfd),
+      q(4221) => q(mfe),
+      q(4222) => q(mff),
+      q(4223) => q(mfg),
+      q(4224) => q(mfh),
+      q(4225) => q(mfi),
+      q(4226) => q(mfj),
+      q(4227) => q(mfk),
+      q(4228) => q(mfl),
+      q(4229) => q(mfm),
+      q(4230) => q(mfn),
+      q(4231) => q(mfo),
+      q(4232) => q(mfp),
+      q(4233) => q(mfq),
+      q(4234) => q(mfr),
+      q(4235) => q(mfs),
+      q(4236) => q(mft),
+      q(4237) => q(mfu),
+      q(4238) => q(mfv),
+      q(4239) => q(mfw),
+      q(4240) => q(mfx),
+      q(4241) => q(mfy),
+      q(4242) => q(mfz),
+      q(4243) => q(mgb),
+      q(4244) => q(mgc),
+      q(4245) => q(mgd),
+      q(4246) => q(mge),
+      q(4247) => q(mgf),
+      q(4248) => q(mgg),
+      q(4249) => q(mgh),
+      q(4250) => q(mgi),
+      q(4251) => q(mgj),
+      q(4252) => q(mgk),
+      q(4253) => q(mgl),
+      q(4254) => q(mgm),
+      q(4255) => q(mgn),
+      q(4256) => q(mgo),
+      q(4257) => q(mgp),
+      q(4258) => q(mgq),
+      q(4259) => q(mgr),
+      q(4260) => q(mgs),
+      q(4261) => q(mgt),
+      q(4262) => q(mgu),
+      q(4263) => q(mgv),
+      q(4264) => q(mgw),
+      q(4265) => q(mgy),
+      q(4266) => q(mgz),
+      q(4267) => q(mha),
+      q(4268) => q(mhb),
+      q(4269) => q(mhc),
+      q(4270) => q(mhd),
+      q(4271) => q(mhe),
+      q(4272) => q(mhf),
+      q(4273) => q(mhg),
+      q(4274) => q(mhi),
+      q(4275) => q(mhj),
+      q(4276) => q(mhk),
+      q(4277) => q(mhl),
+      q(4278) => q(mhm),
+      q(4279) => q(mhn),
+      q(4280) => q(mho),
+      q(4281) => q(mhp),
+      q(4282) => q(mhq),
+      q(4283) => q(mhr),
+      q(4284) => q(mhs),
+      q(4285) => q(mht),
+      q(4286) => q(mhu),
+      q(4287) => q(mhw),
+      q(4288) => q(mhx),
+      q(4289) => q(mhy),
+      q(4290) => q(mhz),
+      q(4291) => q(mia),
+      q(4292) => q(mib),
+      q(4293) => q(mid),
+      q(4294) => q(mie),
+      q(4295) => q(mif),
+      q(4296) => q(mig),
+      q(4297) => q(mih),
+      q(4298) => q(mii),
+      q(4299) => q(mij),
+      q(4300) => q(mik),
+      q(4301) => q(mil),
+      q(4302) => q(mim),
+      q(4303) => q(mio),
+      q(4304) => q(mip),
+      q(4305) => q(miq),
+      q(4306) => q(mir),
+      q(4307) => q(mit),
+      q(4308) => q(miu),
+      q(4309) => q(miw),
+      q(4310) => q(mix),
+      q(4311) => q(miy),
+      q(4312) => q(miz),
+      q(4313) => q(mjb),
+      q(4314) => q(mjc),
+      q(4315) => q(mjd),
+      q(4316) => q(mje),
+      q(4317) => q(mjg),
+      q(4318) => q(mjh),
+      q(4319) => q(mji),
+      q(4320) => q(mjj),
+      q(4321) => q(mjk),
+      q(4322) => q(mjl),
+      q(4323) => q(mjm),
+      q(4324) => q(mjn),
+      q(4325) => q(mjo),
+      q(4326) => q(mjp),
+      q(4327) => q(mjq),
+      q(4328) => q(mjr),
+      q(4329) => q(mjs),
+      q(4330) => q(mjt),
+      q(4331) => q(mju),
+      q(4332) => q(mjv),
+      q(4333) => q(mjw),
+      q(4334) => q(mjx),
+      q(4335) => q(mjy),
+      q(4336) => q(mjz),
+      q(4337) => q(mka),
+      q(4338) => q(mkb),
+      q(4339) => q(mkc),
+      q(4340) => q(mke),
+      q(4341) => q(mkf),
+      q(4342) => q(mkg),
+      q(4343) => q(mki),
+      q(4344) => q(mkj),
+      q(4345) => q(mkk),
+      q(4346) => q(mkl),
+      q(4347) => q(mkm),
+      q(4348) => q(mkn),
+      q(4349) => q(mko),
+      q(4350) => q(mkp),
+      q(4351) => q(mkq),
+      q(4352) => q(mkr),
+      q(4353) => q(mks),
+      q(4354) => q(mkt),
+      q(4355) => q(mku),
+      q(4356) => q(mkv),
+      q(4357) => q(mkw),
+      q(4358) => q(mkx),
+      q(4359) => q(mky),
+      q(4360) => q(mkz),
+      q(4361) => q(mla),
+      q(4362) => q(mlb),
+      q(4363) => q(mlc),
+      q(4364) => q(mle),
+      q(4365) => q(mlf),
+      q(4366) => q(mlh),
+      q(4367) => q(mli),
+      q(4368) => q(mlj),
+      q(4369) => q(mlk),
+      q(4370) => q(mll),
+      q(4371) => q(mlm),
+      q(4372) => q(mln),
+      q(4373) => q(mlo),
+      q(4374) => q(mlp),
+      q(4375) => q(mlq),
+      q(4376) => q(mlr),
+      q(4377) => q(mls),
+      q(4378) => q(mlu),
+      q(4379) => q(mlv),
+      q(4380) => q(mlw),
+      q(4381) => q(mlx),
+      q(4382) => q(mlz),
+      q(4383) => q(mma),
+      q(4384) => q(mmb),
+      q(4385) => q(mmc),
+      q(4386) => q(mmd),
+      q(4387) => q(mme),
+      q(4388) => q(mmf),
+      q(4389) => q(mmg),
+      q(4390) => q(mmh),
+      q(4391) => q(mmi),
+      q(4392) => q(mmj),
+      q(4393) => q(mmk),
+      q(4394) => q(mml),
+      q(4395) => q(mmm),
+      q(4396) => q(mmn),
+      q(4397) => q(mmo),
+      q(4398) => q(mmp),
+      q(4399) => q(mmq),
+      q(4400) => q(mmr),
+      q(4401) => q(mmt),
+      q(4402) => q(mmu),
+      q(4403) => q(mmv),
+      q(4404) => q(mmw),
+      q(4405) => q(mmx),
+      q(4406) => q(mmy),
+      q(4407) => q(mmz),
+      q(4408) => q(mna),
+      q(4409) => q(mnb),
+      q(4410) => q(mnd),
+      q(4411) => q(mne),
+      q(4412) => q(mnf),
+      q(4413) => q(mng),
+      q(4414) => q(mnh),
+      q(4415) => q(mnj),
+      q(4416) => q(mnk),
+      q(4417) => q(mnl),
+      q(4418) => q(mnm),
+      q(4419) => q(mnn),
+      q(4420) => q(mnp),
+      q(4421) => q(mnq),
+      q(4422) => q(mnr),
+      q(4423) => q(mns),
+      q(4424) => q(mnu),
+      q(4425) => q(mnv),
+      q(4426) => q(mnw),
+      q(4427) => q(mnx),
+      q(4428) => q(mny),
+      q(4429) => q(mnz),
+      q(4430) => q(moa),
+      q(4431) => q(moc),
+      q(4432) => q(mod),
+      q(4433) => q(moe),
+      q(4434) => q(mog),
+      q(4435) => q(moi),
+      q(4436) => q(moj),
+      q(4437) => q(mok),
+      q(4438) => q(mom),
+      q(4439) => q(moo),
+      q(4440) => q(mop),
+      q(4441) => q(moq),
+      q(4442) => q(mor),
+      q(4443) => q(mou),
+      q(4444) => q(mov),
+      q(4445) => q(mow),
+      q(4446) => q(mox),
+      q(4447) => q(moy),
+      q(4448) => q(moz),
+      q(4449) => q(mpa),
+      q(4450) => q(mpb),
+      q(4451) => q(mpc),
+      q(4452) => q(mpd),
+      q(4453) => q(mpe),
+      q(4454) => q(mpg),
+      q(4455) => q(mph),
+      q(4456) => q(mpi),
+      q(4457) => q(mpj),
+      q(4458) => q(mpk),
+      q(4459) => q(mpl),
+      q(4460) => q(mpm),
+      q(4461) => q(mpn),
+      q(4462) => q(mpo),
+      q(4463) => q(mpp),
+      q(4464) => q(mpq),
+      q(4465) => q(mpr),
+      q(4466) => q(mps),
+      q(4467) => q(mpt),
+      q(4468) => q(mpu),
+      q(4469) => q(mpv),
+      q(4470) => q(mpw),
+      q(4471) => q(mpx),
+      q(4472) => q(mpy),
+      q(4473) => q(mpz),
+      q(4474) => q(mqa),
+      q(4475) => q(mqb),
+      q(4476) => q(mqc),
+      q(4477) => q(mqe),
+      q(4478) => q(mqf),
+      q(4479) => q(mqg),
+      q(4480) => q(mqh),
+      q(4481) => q(mqi),
+      q(4482) => q(mqj),
+      q(4483) => q(mqk),
+      q(4484) => q(mql),
+      q(4485) => q(mqm),
+      q(4486) => q(mqn),
+      q(4487) => q(mqo),
+      q(4488) => q(mqp),
+      q(4489) => q(mqq),
+      q(4490) => q(mqr),
+      q(4491) => q(mqs),
+      q(4492) => q(mqt),
+      q(4493) => q(mqu),
+      q(4494) => q(mqv),
+      q(4495) => q(mqw),
+      q(4496) => q(mqx),
+      q(4497) => q(mqy),
+      q(4498) => q(mqz),
+      q(4499) => q(mra),
+      q(4500) => q(mrb),
+      q(4501) => q(mrc),
+      q(4502) => q(mrd),
+      q(4503) => q(mre),
+      q(4504) => q(mrf),
+      q(4505) => q(mrg),
+      q(4506) => q(mrh),
+      q(4507) => q(mrj),
+      q(4508) => q(mrk),
+      q(4509) => q(mrl),
+      q(4510) => q(mrm),
+      q(4511) => q(mrn),
+      q(4512) => q(mro),
+      q(4513) => q(mrp),
+      q(4514) => q(mrq),
+      q(4515) => q(mrr),
+      q(4516) => q(mrs),
+      q(4517) => q(mrt),
+      q(4518) => q(mru),
+      q(4519) => q(mrv),
+      q(4520) => q(mrw),
+      q(4521) => q(mrx),
+      q(4522) => q(mry),
+      q(4523) => q(mrz),
+      q(4524) => q(msb),
+      q(4525) => q(msc),
+      q(4526) => q(msd),
+      q(4527) => q(mse),
+      q(4528) => q(msf),
+      q(4529) => q(msg),
+      q(4530) => q(msh),
+      q(4531) => q(msi),
+      q(4532) => q(msj),
+      q(4533) => q(msk),
+      q(4534) => q(msl),
+      q(4535) => q(msm),
+      q(4536) => q(msn),
+      q(4537) => q(mso),
+      q(4538) => q(msp),
+      q(4539) => q(msq),
+      q(4540) => q(msr),
+      q(4541) => q(mss),
+      q(4542) => q(msu),
+      q(4543) => q(msv),
+      q(4544) => q(msw),
+      q(4545) => q(msx),
+      q(4546) => q(msy),
+      q(4547) => q(msz),
+      q(4548) => q(mta),
+      q(4549) => q(mtb),
+      q(4550) => q(mtc),
+      q(4551) => q(mtd),
+      q(4552) => q(mte),
+      q(4553) => q(mtf),
+      q(4554) => q(mtg),
+      q(4555) => q(mth),
+      q(4556) => q(mti),
+      q(4557) => q(mtj),
+      q(4558) => q(mtk),
+      q(4559) => q(mtl),
+      q(4560) => q(mtm),
+      q(4561) => q(mtn),
+      q(4562) => q(mto),
+      q(4563) => q(mtp),
+      q(4564) => q(mtq),
+      q(4565) => q(mtr),
+      q(4566) => q(mts),
+      q(4567) => q(mtt),
+      q(4568) => q(mtu),
+      q(4569) => q(mtv),
+      q(4570) => q(mtw),
+      q(4571) => q(mtx),
+      q(4572) => q(mty),
+      q(4573) => q(mua),
+      q(4574) => q(mub),
+      q(4575) => q(muc),
+      q(4576) => q(mud),
+      q(4577) => q(mue),
+      q(4578) => q(mug),
+      q(4579) => q(muh),
+      q(4580) => q(mui),
+      q(4581) => q(muj),
+      q(4582) => q(muk),
+      q(4583) => q(mum),
+      q(4584) => q(muo),
+      q(4585) => q(mup),
+      q(4586) => q(muq),
+      q(4587) => q(mur),
+      q(4588) => q(mut),
+      q(4589) => q(muu),
+      q(4590) => q(muv),
+      q(4591) => q(mux),
+      q(4592) => q(muy),
+      q(4593) => q(muz),
+      q(4594) => q(mva),
+      q(4595) => q(mvb),
+      q(4596) => q(mvd),
+      q(4597) => q(mve),
+      q(4598) => q(mvf),
+      q(4599) => q(mvg),
+      q(4600) => q(mvh),
+      q(4601) => q(mvi),
+      q(4602) => q(mvk),
+      q(4603) => q(mvl),
+      q(4604) => q(mvm),
+      q(4605) => q(mvn),
+      q(4606) => q(mvo),
+      q(4607) => q(mvp),
+      q(4608) => q(mvq),
+      q(4609) => q(mvr),
+      q(4610) => q(mvs),
+      q(4611) => q(mvt),
+      q(4612) => q(mvu),
+      q(4613) => q(mvv),
+      q(4614) => q(mvw),
+      q(4615) => q(mvx),
+      q(4616) => q(mvy),
+      q(4617) => q(mvz),
+      q(4618) => q(mwa),
+      q(4619) => q(mwb),
+      q(4620) => q(mwc),
+      q(4621) => q(mwe),
+      q(4622) => q(mwf),
+      q(4623) => q(mwg),
+      q(4624) => q(mwh),
+      q(4625) => q(mwi),
+      q(4626) => q(mwk),
+      q(4627) => q(mwm),
+      q(4628) => q(mwn),
+      q(4629) => q(mwo),
+      q(4630) => q(mwp),
+      q(4631) => q(mwq),
+      q(4632) => q(mws),
+      q(4633) => q(mwt),
+      q(4634) => q(mwu),
+      q(4635) => q(mwv),
+      q(4636) => q(mww),
+      q(4637) => q(mwx),
+      q(4638) => q(mwy),
+      q(4639) => q(mwz),
+      q(4640) => q(mxa),
+      q(4641) => q(mxb),
+      q(4642) => q(mxc),
+      q(4643) => q(mxd),
+      q(4644) => q(mxe),
+      q(4645) => q(mxf),
+      q(4646) => q(mxg),
+      q(4647) => q(mxh),
+      q(4648) => q(mxi),
+      q(4649) => q(mxj),
+      q(4650) => q(mxk),
+      q(4651) => q(mxl),
+      q(4652) => q(mxm),
+      q(4653) => q(mxn),
+      q(4654) => q(mxo),
+      q(4655) => q(mxp),
+      q(4656) => q(mxq),
+      q(4657) => q(mxr),
+      q(4658) => q(mxs),
+      q(4659) => q(mxt),
+      q(4660) => q(mxu),
+      q(4661) => q(mxv),
+      q(4662) => q(mxw),
+      q(4663) => q(mxx),
+      q(4664) => q(mxy),
+      q(4665) => q(mxz),
+      q(4666) => q(myb),
+      q(4667) => q(myc),
+      q(4668) => q(myd),
+      q(4669) => q(mye),
+      q(4670) => q(myf),
+      q(4671) => q(myg),
+      q(4672) => q(myh),
+      q(4673) => q(myi),
+      q(4674) => q(myj),
+      q(4675) => q(myk),
+      q(4676) => q(myl),
+      q(4677) => q(mym),
+      q(4678) => q(myo),
+      q(4679) => q(myp),
+      q(4680) => q(myr),
+      q(4681) => q(mys),
+      q(4682) => q(myu),
+      q(4683) => q(myw),
+      q(4684) => q(myx),
+      q(4685) => q(myy),
+      q(4686) => q(myz),
+      q(4687) => q(mza),
+      q(4688) => q(mzb),
+      q(4689) => q(mzc),
+      q(4690) => q(mzd),
+      q(4691) => q(mze),
+      q(4692) => q(mzg),
+      q(4693) => q(mzh),
+      q(4694) => q(mzi),
+      q(4695) => q(mzj),
+      q(4696) => q(mzk),
+      q(4697) => q(mzl),
+      q(4698) => q(mzm),
+      q(4699) => q(mzn),
+      q(4700) => q(mzo),
+      q(4701) => q(mzp),
+      q(4702) => q(mzq),
+      q(4703) => q(mzr),
+      q(4704) => q(mzs),
+      q(4705) => q(mzt),
+      q(4706) => q(mzu),
+      q(4707) => q(mzv),
+      q(4708) => q(mzw),
+      q(4709) => q(mzx),
+      q(4710) => q(mzy),
+      q(4711) => q(mzz),
+      q(4712) => q(naa),
+      q(4713) => q(nab),
+      q(4714) => q(nac),
+      q(4715) => q(nae),
+      q(4716) => q(naf),
+      q(4717) => q(nag),
+      q(4718) => q(naj),
+      q(4719) => q(nak),
+      q(4720) => q(nal),
+      q(4721) => q(nam),
+      q(4722) => q(nan),
+      q(4723) => q(nao),
+      q(4724) => q(naq),
+      q(4725) => q(nar),
+      q(4726) => q(nas),
+      q(4727) => q(nat),
+      q(4728) => q(naw),
+      q(4729) => q(nax),
+      q(4730) => q(nay),
+      q(4731) => q(naz),
+      q(4732) => q(nba),
+      q(4733) => q(nbb),
+      q(4734) => q(nbc),
+      q(4735) => q(nbd),
+      q(4736) => q(nbe),
+      q(4737) => q(nbg),
+      q(4738) => q(nbh),
+      q(4739) => q(nbi),
+      q(4740) => q(nbj),
+      q(4741) => q(nbk),
+      q(4742) => q(nbm),
+      q(4743) => q(nbn),
+      q(4744) => q(nbo),
+      q(4745) => q(nbp),
+      q(4746) => q(nbq),
+      q(4747) => q(nbr),
+      q(4748) => q(nbs),
+      q(4749) => q(nbt),
+      q(4750) => q(nbu),
+      q(4751) => q(nbv),
+      q(4752) => q(nbw),
+      q(4753) => q(nby),
+      q(4754) => q(nca),
+      q(4755) => q(ncb),
+      q(4756) => q(ncc),
+      q(4757) => q(ncd),
+      q(4758) => q(nce),
+      q(4759) => q(ncf),
+      q(4760) => q(ncg),
+      q(4761) => q(nch),
+      q(4762) => q(nci),
+      q(4763) => q(ncj),
+      q(4764) => q(nck),
+      q(4765) => q(ncl),
+      q(4766) => q(ncm),
+      q(4767) => q(ncn),
+      q(4768) => q(nco),
+      q(4769) => q(ncp),
+      q(4770) => q(ncq),
+      q(4771) => q(ncr),
+      q(4772) => q(ncs),
+      q(4773) => q(nct),
+      q(4774) => q(ncu),
+      q(4775) => q(ncx),
+      q(4776) => q(ncz),
+      q(4777) => q(nda),
+      q(4778) => q(ndb),
+      q(4779) => q(ndc),
+      q(4780) => q(ndd),
+      q(4781) => q(ndf),
+      q(4782) => q(ndg),
+      q(4783) => q(ndh),
+      q(4784) => q(ndi),
+      q(4785) => q(ndj),
+      q(4786) => q(ndk),
+      q(4787) => q(ndl),
+      q(4788) => q(ndm),
+      q(4789) => q(ndn),
+      q(4790) => q(ndp),
+      q(4791) => q(ndq),
+      q(4792) => q(ndr),
+      q(4793) => q(ndt),
+      q(4794) => q(ndu),
+      q(4795) => q(ndv),
+      q(4796) => q(ndw),
+      q(4797) => q(ndx),
+      q(4798) => q(ndy),
+      q(4799) => q(ndz),
+      q(4800) => q(nea),
+      q(4801) => q(neb),
+      q(4802) => q(nec),
+      q(4803) => q(ned),
+      q(4804) => q(nee),
+      q(4805) => q(nef),
+      q(4806) => q(neg),
+      q(4807) => q(neh),
+      q(4808) => q(nei),
+      q(4809) => q(nej),
+      q(4810) => q(nek),
+      q(4811) => q(nem),
+      q(4812) => q(nen),
+      q(4813) => q(neo),
+      q(4814) => q(neq),
+      q(4815) => q(ner),
+      q(4816) => q(nes),
+      q(4817) => q(net),
+      q(4818) => q(neu),
+      q(4819) => q(nev),
+      q(4820) => q(nex),
+      q(4821) => q(ney),
+      q(4822) => q(nez),
+      q(4823) => q(nfa),
+      q(4824) => q(nfd),
+      q(4825) => q(nfl),
+      q(4826) => q(nfr),
+      q(4827) => q(nfu),
+      q(4828) => q(nga),
+      q(4829) => q(ngb),
+      q(4830) => q(ngc),
+      q(4831) => q(ngd),
+      q(4832) => q(nge),
+      q(4833) => q(ngg),
+      q(4834) => q(ngh),
+      q(4835) => q(ngi),
+      q(4836) => q(ngj),
+      q(4837) => q(ngk),
+      q(4838) => q(ngl),
+      q(4839) => q(ngm),
+      q(4840) => q(ngn),
+      q(4841) => q(ngo),
+      q(4842) => q(ngp),
+      q(4843) => q(ngq),
+      q(4844) => q(ngr),
+      q(4845) => q(ngs),
+      q(4846) => q(ngt),
+      q(4847) => q(ngu),
+      q(4848) => q(ngv),
+      q(4849) => q(ngw),
+      q(4850) => q(ngx),
+      q(4851) => q(ngy),
+      q(4852) => q(ngz),
+      q(4853) => q(nha),
+      q(4854) => q(nhb),
+      q(4855) => q(nhc),
+      q(4856) => q(nhd),
+      q(4857) => q(nhe),
+      q(4858) => q(nhf),
+      q(4859) => q(nhg),
+      q(4860) => q(nhh),
+      q(4861) => q(nhi),
+      q(4862) => q(nhk),
+      q(4863) => q(nhm),
+      q(4864) => q(nhn),
+      q(4865) => q(nho),
+      q(4866) => q(nhp),
+      q(4867) => q(nhq),
+      q(4868) => q(nhr),
+      q(4869) => q(nht),
+      q(4870) => q(nhu),
+      q(4871) => q(nhv),
+      q(4872) => q(nhw),
+      q(4873) => q(nhx),
+      q(4874) => q(nhy),
+      q(4875) => q(nhz),
+      q(4876) => q(nib),
+      q(4877) => q(nid),
+      q(4878) => q(nie),
+      q(4879) => q(nif),
+      q(4880) => q(nig),
+      q(4881) => q(nih),
+      q(4882) => q(nii),
+      q(4883) => q(nij),
+      q(4884) => q(nik),
+      q(4885) => q(nil),
+      q(4886) => q(nim),
+      q(4887) => q(nin),
+      q(4888) => q(nio),
+      q(4889) => q(niq),
+      q(4890) => q(nir),
+      q(4891) => q(nis),
+      q(4892) => q(nit),
+      q(4893) => q(niv),
+      q(4894) => q(niw),
+      q(4895) => q(nix),
+      q(4896) => q(niy),
+      q(4897) => q(niz),
+      q(4898) => q(nja),
+      q(4899) => q(njb),
+      q(4900) => q(njd),
+      q(4901) => q(njh),
+      q(4902) => q(nji),
+      q(4903) => q(njj),
+      q(4904) => q(njl),
+      q(4905) => q(njm),
+      q(4906) => q(njn),
+      q(4907) => q(njo),
+      q(4908) => q(njr),
+      q(4909) => q(njs),
+      q(4910) => q(njt),
+      q(4911) => q(nju),
+      q(4912) => q(njx),
+      q(4913) => q(njy),
+      q(4914) => q(njz),
+      q(4915) => q(nka),
+      q(4916) => q(nkb),
+      q(4917) => q(nkc),
+      q(4918) => q(nkd),
+      q(4919) => q(nke),
+      q(4920) => q(nkf),
+      q(4921) => q(nkg),
+      q(4922) => q(nkh),
+      q(4923) => q(nki),
+      q(4924) => q(nkj),
+      q(4925) => q(nkk),
+      q(4926) => q(nkm),
+      q(4927) => q(nkn),
+      q(4928) => q(nko),
+      q(4929) => q(nkp),
+      q(4930) => q(nkq),
+      q(4931) => q(nkr),
+      q(4932) => q(nks),
+      q(4933) => q(nkt),
+      q(4934) => q(nku),
+      q(4935) => q(nkv),
+      q(4936) => q(nkw),
+      q(4937) => q(nkx),
+      q(4938) => q(nkz),
+      q(4939) => q(nla),
+      q(4940) => q(nlc),
+      q(4941) => q(nle),
+      q(4942) => q(nlg),
+      q(4943) => q(nli),
+      q(4944) => q(nlj),
+      q(4945) => q(nlk),
+      q(4946) => q(nll),
+      q(4947) => q(nlo),
+      q(4948) => q(nlq),
+      q(4949) => q(nlu),
+      q(4950) => q(nlv),
+      q(4951) => q(nlw),
+      q(4952) => q(nlx),
+      q(4953) => q(nly),
+      q(4954) => q(nlz),
+      q(4955) => q(nma),
+      q(4956) => q(nmb),
+      q(4957) => q(nmc),
+      q(4958) => q(nmd),
+      q(4959) => q(nme),
+      q(4960) => q(nmf),
+      q(4961) => q(nmg),
+      q(4962) => q(nmh),
+      q(4963) => q(nmi),
+      q(4964) => q(nmj),
+      q(4965) => q(nmk),
+      q(4966) => q(nml),
+      q(4967) => q(nmm),
+      q(4968) => q(nmn),
+      q(4969) => q(nmo),
+      q(4970) => q(nmp),
+      q(4971) => q(nmq),
+      q(4972) => q(nmr),
+      q(4973) => q(nms),
+      q(4974) => q(nmt),
+      q(4975) => q(nmu),
+      q(4976) => q(nmv),
+      q(4977) => q(nmw),
+      q(4978) => q(nmx),
+      q(4979) => q(nmy),
+      q(4980) => q(nmz),
+      q(4981) => q(nna),
+      q(4982) => q(nnb),
+      q(4983) => q(nnc),
+      q(4984) => q(nnd),
+      q(4985) => q(nne),
+      q(4986) => q(nnf),
+      q(4987) => q(nng),
+      q(4988) => q(nnh),
+      q(4989) => q(nni),
+      q(4990) => q(nnj),
+      q(4991) => q(nnk),
+      q(4992) => q(nnl),
+      q(4993) => q(nnm),
+      q(4994) => q(nnn),
+      q(4995) => q(nnp),
+      q(4996) => q(nnq),
+      q(4997) => q(nnr),
+      q(4998) => q(nns),
+      q(4999) => q(nnt),
+      q(5000) => q(nnu),
+      q(5001) => q(nnv),
+      q(5002) => q(nnw),
+      q(5003) => q(nny),
+      q(5004) => q(nnz),
+      q(5005) => q(noa),
+      q(5006) => q(noc),
+      q(5007) => q(nod),
+      q(5008) => q(noe),
+      q(5009) => q(nof),
+      q(5010) => q(noh),
+      q(5011) => q(noi),
+      q(5012) => q(noj),
+      q(5013) => q(nok),
+      q(5014) => q(nol),
+      q(5015) => q(nom),
+      q(5016) => q(nop),
+      q(5017) => q(noq),
+      q(5018) => q(nos),
+      q(5019) => q(not),
+      q(5020) => q(nou),
+      q(5021) => q(nov),
+      q(5022) => q(now),
+      q(5023) => q(noy),
+      q(5024) => q(noz),
+      q(5025) => q(npa),
+      q(5026) => q(npb),
+      q(5027) => q(npg),
+      q(5028) => q(nph),
+      q(5029) => q(npi),
+      q(5030) => q(npl),
+      q(5031) => q(npn),
+      q(5032) => q(npo),
+      q(5033) => q(nps),
+      q(5034) => q(npu),
+      q(5035) => q(npx),
+      q(5036) => q(npy),
+      q(5037) => q(nqg),
+      q(5038) => q(nqk),
+      q(5039) => q(nql),
+      q(5040) => q(nqm),
+      q(5041) => q(nqn),
+      q(5042) => q(nqq),
+      q(5043) => q(nqy),
+      q(5044) => q(nra),
+      q(5045) => q(nrb),
+      q(5046) => q(nrc),
+      q(5047) => q(nre),
+      q(5048) => q(nrf),
+      q(5049) => q(nrg),
+      q(5050) => q(nri),
+      q(5051) => q(nrk),
+      q(5052) => q(nrl),
+      q(5053) => q(nrm),
+      q(5054) => q(nrn),
+      q(5055) => q(nrp),
+      q(5056) => q(nrr),
+      q(5057) => q(nrt),
+      q(5058) => q(nru),
+      q(5059) => q(nrx),
+      q(5060) => q(nrz),
+      q(5061) => q(nsa),
+      q(5062) => q(nsc),
+      q(5063) => q(nsd),
+      q(5064) => q(nse),
+      q(5065) => q(nsf),
+      q(5066) => q(nsg),
+      q(5067) => q(nsh),
+      q(5068) => q(nsi),
+      q(5069) => q(nsk),
+      q(5070) => q(nsl),
+      q(5071) => q(nsm),
+      q(5072) => q(nsn),
+      q(5073) => q(nsp),
+      q(5074) => q(nsq),
+      q(5075) => q(nsr),
+      q(5076) => q(nss),
+      q(5077) => q(nst),
+      q(5078) => q(nsu),
+      q(5079) => q(nsv),
+      q(5080) => q(nsw),
+      q(5081) => q(nsx),
+      q(5082) => q(nsy),
+      q(5083) => q(nsz),
+      q(5084) => q(ntd),
+      q(5085) => q(nte),
+      q(5086) => q(ntg),
+      q(5087) => q(nti),
+      q(5088) => q(ntj),
+      q(5089) => q(ntk),
+      q(5090) => q(ntm),
+      q(5091) => q(nto),
+      q(5092) => q(ntp),
+      q(5093) => q(ntr),
+      q(5094) => q(ntu),
+      q(5095) => q(ntw),
+      q(5096) => q(ntx),
+      q(5097) => q(nty),
+      q(5098) => q(ntz),
+      q(5099) => q(nua),
+      q(5100) => q(nuc),
+      q(5101) => q(nud),
+      q(5102) => q(nue),
+      q(5103) => q(nuf),
+      q(5104) => q(nug),
+      q(5105) => q(nuh),
+      q(5106) => q(nui),
+      q(5107) => q(nuj),
+      q(5108) => q(nuk),
+      q(5109) => q(nul),
+      q(5110) => q(num),
+      q(5111) => q(nun),
+      q(5112) => q(nuo),
+      q(5113) => q(nup),
+      q(5114) => q(nuq),
+      q(5115) => q(nur),
+      q(5116) => q(nus),
+      q(5117) => q(nut),
+      q(5118) => q(nuu),
+      q(5119) => q(nuv),
+      q(5120) => q(nuw),
+      q(5121) => q(nux),
+      q(5122) => q(nuy),
+      q(5123) => q(nuz),
+      q(5124) => q(nvh),
+      q(5125) => q(nvm),
+      q(5126) => q(nvo),
+      q(5127) => q(nwa),
+      q(5128) => q(nwb),
+      q(5129) => q(nwe),
+      q(5130) => q(nwg),
+      q(5131) => q(nwi),
+      q(5132) => q(nwm),
+      q(5133) => q(nwo),
+      q(5134) => q(nwr),
+      q(5135) => q(nwx),
+      q(5136) => q(nwy),
+      q(5137) => q(nxa),
+      q(5138) => q(nxd),
+      q(5139) => q(nxe),
+      q(5140) => q(nxg),
+      q(5141) => q(nxi),
+      q(5142) => q(nxk),
+      q(5143) => q(nxl),
+      q(5144) => q(nxm),
+      q(5145) => q(nxn),
+      q(5146) => q(nxo),
+      q(5147) => q(nxq),
+      q(5148) => q(nxr),
+      q(5149) => q(nxu),
+      q(5150) => q(nxx),
+      q(5151) => q(nyb),
+      q(5152) => q(nyc),
+      q(5153) => q(nyd),
+      q(5154) => q(nye),
+      q(5155) => q(nyf),
+      q(5156) => q(nyg),
+      q(5157) => q(nyh),
+      q(5158) => q(nyi),
+      q(5159) => q(nyj),
+      q(5160) => q(nyk),
+      q(5161) => q(nyl),
+      q(5162) => q(nyp),
+      q(5163) => q(nyq),
+      q(5164) => q(nyr),
+      q(5165) => q(nys),
+      q(5166) => q(nyt),
+      q(5167) => q(nyu),
+      q(5168) => q(nyv),
+      q(5169) => q(nyw),
+      q(5170) => q(nyx),
+      q(5171) => q(nyy),
+      q(5172) => q(nza),
+      q(5173) => q(nzb),
+      q(5174) => q(nzk),
+      q(5175) => q(nzm),
+      q(5176) => q(nzs),
+      q(5177) => q(nzu),
+      q(5178) => q(nzy),
+      q(5179) => q(nzz),
+      q(5180) => q(oaa),
+      q(5181) => q(oac),
+      q(5182) => q(oar),
+      q(5183) => q(oav),
+      q(5184) => q(obi),
+      q(5185) => q(obk),
+      q(5186) => q(obl),
+      q(5187) => q(obm),
+      q(5188) => q(obo),
+      q(5189) => q(obr),
+      q(5190) => q(obt),
+      q(5191) => q(obu),
+      q(5192) => q(oca),
+      q(5193) => q(och),
+      q(5194) => q(oco),
+      q(5195) => q(ocu),
+      q(5196) => q(oda),
+      q(5197) => q(odk),
+      q(5198) => q(odt),
+      q(5199) => q(odu),
+      q(5200) => q(ofo),
+      q(5201) => q(ofs),
+      q(5202) => q(ofu),
+      q(5203) => q(ogb),
+      q(5204) => q(ogc),
+      q(5205) => q(oge),
+      q(5206) => q(ogg),
+      q(5207) => q(ogo),
+      q(5208) => q(ogu),
+      q(5209) => q(oht),
+      q(5210) => q(ohu),
+      q(5211) => q(oia),
+      q(5212) => q(oin),
+      q(5213) => q(ojb),
+      q(5214) => q(ojc),
+      q(5215) => q(ojg),
+      q(5216) => q(ojp),
+      q(5217) => q(ojs),
+      q(5218) => q(ojv),
+      q(5219) => q(ojw),
+      q(5220) => q(oka),
+      q(5221) => q(okb),
+      q(5222) => q(okd),
+      q(5223) => q(oke),
+      q(5224) => q(okg),
+      q(5225) => q(okh),
+      q(5226) => q(oki),
+      q(5227) => q(okj),
+      q(5228) => q(okk),
+      q(5229) => q(okl),
+      q(5230) => q(okm),
+      q(5231) => q(okn),
+      q(5232) => q(oko),
+      q(5233) => q(okr),
+      q(5234) => q(oks),
+      q(5235) => q(oku),
+      q(5236) => q(okv),
+      q(5237) => q(okx),
+      q(5238) => q(ola),
+      q(5239) => q(old),
+      q(5240) => q(ole),
+      q(5241) => q(olk),
+      q(5242) => q(olm),
+      q(5243) => q(olo),
+      q(5244) => q(olr),
+      q(5245) => q(olt),
+      q(5246) => q(olu),
+      q(5247) => q(oma),
+      q(5248) => q(omb),
+      q(5249) => q(omc),
+      q(5250) => q(omg),
+      q(5251) => q(omi),
+      q(5252) => q(omk),
+      q(5253) => q(oml),
+      q(5254) => q(omn),
+      q(5255) => q(omo),
+      q(5256) => q(omp),
+      q(5257) => q(omr),
+      q(5258) => q(omt),
+      q(5259) => q(omu),
+      q(5260) => q(omw),
+      q(5261) => q(omx),
+      q(5262) => q(ona),
+      q(5263) => q(onb),
+      q(5264) => q(one),
+      q(5265) => q(ong),
+      q(5266) => q(oni),
+      q(5267) => q(onj),
+      q(5268) => q(onk),
+      q(5269) => q(onn),
+      q(5270) => q(ono),
+      q(5271) => q(onp),
+      q(5272) => q(onr),
+      q(5273) => q(ons),
+      q(5274) => q(ont),
+      q(5275) => q(onu),
+      q(5276) => q(onw),
+      q(5277) => q(onx),
+      q(5278) => q(ood),
+      q(5279) => q(oog),
+      q(5280) => q(oon),
+      q(5281) => q(oor),
+      q(5282) => q(oos),
+      q(5283) => q(opa),
+      q(5284) => q(opk),
+      q(5285) => q(opm),
+      q(5286) => q(opo),
+      q(5287) => q(opt),
+      q(5288) => q(opy),
+      q(5289) => q(ora),
+      q(5290) => q(orc),
+      q(5291) => q(ore),
+      q(5292) => q(org),
+      q(5293) => q(orh),
+      q(5294) => q(orn),
+      q(5295) => q(oro),
+      q(5296) => q(orr),
+      q(5297) => q(ors),
+      q(5298) => q(ort),
+      q(5299) => q(oru),
+      q(5300) => q(orv),
+      q(5301) => q(orw),
+      q(5302) => q(orx),
+      q(5303) => q(ory),
+      q(5304) => q(orz),
+      q(5305) => q(osc),
+      q(5306) => q(osi),
+      q(5307) => q(oso),
+      q(5308) => q(osp),
+      q(5309) => q(ost),
+      q(5310) => q(osu),
+      q(5311) => q(osx),
+      q(5312) => q(otb),
+      q(5313) => q(otd),
+      q(5314) => q(ote),
+      q(5315) => q(oti),
+      q(5316) => q(otk),
+      q(5317) => q(otl),
+      q(5318) => q(otm),
+      q(5319) => q(otn),
+      q(5320) => q(otq),
+      q(5321) => q(otr),
+      q(5322) => q(ots),
+      q(5323) => q(ott),
+      q(5324) => q(otu),
+      q(5325) => q(otw),
+      q(5326) => q(otx),
+      q(5327) => q(oty),
+      q(5328) => q(otz),
+      q(5329) => q(oua),
+      q(5330) => q(oub),
+      q(5331) => q(oue),
+      q(5332) => q(oui),
+      q(5333) => q(oum),
+      q(5334) => q(ovd),
+      q(5335) => q(owi),
+      q(5336) => q(owl),
+      q(5337) => q(oyb),
+      q(5338) => q(oyd),
+      q(5339) => q(oym),
+      q(5340) => q(oyy),
+      q(5341) => q(ozm),
+      q(5342) => q(pab),
+      q(5343) => q(pac),
+      q(5344) => q(pad),
+      q(5345) => q(pae),
+      q(5346) => q(paf),
+      q(5347) => q(pah),
+      q(5348) => q(pai),
+      q(5349) => q(pak),
+      q(5350) => q(pao),
+      q(5351) => q(paq),
+      q(5352) => q(par),
+      q(5353) => q(pas),
+      q(5354) => q(pat),
+      q(5355) => q(pav),
+      q(5356) => q(paw),
+      q(5357) => q(pax),
+      q(5358) => q(pay),
+      q(5359) => q(paz),
+      q(5360) => q(pbb),
+      q(5361) => q(pbc),
+      q(5362) => q(pbe),
+      q(5363) => q(pbf),
+      q(5364) => q(pbg),
+      q(5365) => q(pbh),
+      q(5366) => q(pbi),
+      q(5367) => q(pbl),
+      q(5368) => q(pbn),
+      q(5369) => q(pbo),
+      q(5370) => q(pbp),
+      q(5371) => q(pbr),
+      q(5372) => q(pbs),
+      q(5373) => q(pbt),
+      q(5374) => q(pbu),
+      q(5375) => q(pbv),
+      q(5376) => q(pby),
+      q(5377) => q(pca),
+      q(5378) => q(pcb),
+      q(5379) => q(pcc),
+      q(5380) => q(pcd),
+      q(5381) => q(pce),
+      q(5382) => q(pcf),
+      q(5383) => q(pcg),
+      q(5384) => q(pch),
+      q(5385) => q(pci),
+      q(5386) => q(pcj),
+      q(5387) => q(pck),
+      q(5388) => q(pcl),
+      q(5389) => q(pcm),
+      q(5390) => q(pcn),
+      q(5391) => q(pcp),
+      q(5392) => q(pcw),
+      q(5393) => q(pda),
+      q(5394) => q(pdc),
+      q(5395) => q(pdi),
+      q(5396) => q(pdn),
+      q(5397) => q(pdo),
+      q(5398) => q(pdt),
+      q(5399) => q(pdu),
+      q(5400) => q(pea),
+      q(5401) => q(peb),
+      q(5402) => q(ped),
+      q(5403) => q(pee),
+      q(5404) => q(pef),
+      q(5405) => q(peg),
+      q(5406) => q(peh),
+      q(5407) => q(pei),
+      q(5408) => q(pej),
+      q(5409) => q(pek),
+      q(5410) => q(pel),
+      q(5411) => q(pem),
+      q(5412) => q(pep),
+      q(5413) => q(peq),
+      q(5414) => q(pes),
+      q(5415) => q(pev),
+      q(5416) => q(pex),
+      q(5417) => q(pey),
+      q(5418) => q(pez),
+      q(5419) => q(pfa),
+      q(5420) => q(pfe),
+      q(5421) => q(pfl),
+      q(5422) => q(pga),
+      q(5423) => q(pgd),
+      q(5424) => q(pgg),
+      q(5425) => q(pgi),
+      q(5426) => q(pgk),
+      q(5427) => q(pgl),
+      q(5428) => q(pgn),
+      q(5429) => q(pgs),
+      q(5430) => q(pgu),
+      q(5431) => q(pgz),
+      q(5432) => q(pha),
+      q(5433) => q(phd),
+      q(5434) => q(phg),
+      q(5435) => q(phh),
+      q(5436) => q(phk),
+      q(5437) => q(phl),
+      q(5438) => q(phm),
+      q(5439) => q(pho),
+      q(5440) => q(phq),
+      q(5441) => q(phr),
+      q(5442) => q(pht),
+      q(5443) => q(phu),
+      q(5444) => q(phv),
+      q(5445) => q(phw),
+      q(5446) => q(pia),
+      q(5447) => q(pib),
+      q(5448) => q(pic),
+      q(5449) => q(pid),
+      q(5450) => q(pie),
+      q(5451) => q(pif),
+      q(5452) => q(pig),
+      q(5453) => q(pih),
+      q(5454) => q(pii),
+      q(5455) => q(pij),
+      q(5456) => q(pil),
+      q(5457) => q(pim),
+      q(5458) => q(pin),
+      q(5459) => q(pio),
+      q(5460) => q(pip),
+      q(5461) => q(pir),
+      q(5462) => q(pis),
+      q(5463) => q(pit),
+      q(5464) => q(piu),
+      q(5465) => q(piv),
+      q(5466) => q(piw),
+      q(5467) => q(pix),
+      q(5468) => q(piy),
+      q(5469) => q(piz),
+      q(5470) => q(pjt),
+      q(5471) => q(pka),
+      q(5472) => q(pkb),
+      q(5473) => q(pkc),
+      q(5474) => q(pkg),
+      q(5475) => q(pkh),
+      q(5476) => q(pkn),
+      q(5477) => q(pko),
+      q(5478) => q(pkp),
+      q(5479) => q(pkr),
+      q(5480) => q(pks),
+      q(5481) => q(pkt),
+      q(5482) => q(pku),
+      q(5483) => q(pla),
+      q(5484) => q(plb),
+      q(5485) => q(plc),
+      q(5486) => q(pld),
+      q(5487) => q(ple),
+      q(5488) => q(plg),
+      q(5489) => q(plh),
+      q(5490) => q(plj),
+      q(5491) => q(plk),
+      q(5492) => q(pll),
+      q(5493) => q(pln),
+      q(5494) => q(plo),
+      q(5495) => q(plp),
+      q(5496) => q(plq),
+      q(5497) => q(plr),
+      q(5498) => q(pls),
+      q(5499) => q(plt),
+      q(5500) => q(plu),
+      q(5501) => q(plv),
+      q(5502) => q(plw),
+      q(5503) => q(ply),
+      q(5504) => q(plz),
+      q(5505) => q(pma),
+      q(5506) => q(pmb),
+      q(5507) => q(pmd),
+      q(5508) => q(pme),
+      q(5509) => q(pmf),
+      q(5510) => q(pmh),
+      q(5511) => q(pmi),
+      q(5512) => q(pmj),
+      q(5513) => q(pmk),
+      q(5514) => q(pml),
+      q(5515) => q(pmm),
+      q(5516) => q(pmn),
+      q(5517) => q(pmo),
+      q(5518) => q(pmq),
+      q(5519) => q(pmr),
+      q(5520) => q(pms),
+      q(5521) => q(pmt),
+      q(5522) => q(pmw),
+      q(5523) => q(pmx),
+      q(5524) => q(pmy),
+      q(5525) => q(pmz),
+      q(5526) => q(pna),
+      q(5527) => q(pnb),
+      q(5528) => q(pnc),
+      q(5529) => q(pne),
+      q(5530) => q(png),
+      q(5531) => q(pnh),
+      q(5532) => q(pni),
+      q(5533) => q(pnj),
+      q(5534) => q(pnk),
+      q(5535) => q(pnl),
+      q(5536) => q(pnm),
+      q(5537) => q(pnn),
+      q(5538) => q(pno),
+      q(5539) => q(pnp),
+      q(5540) => q(pnq),
+      q(5541) => q(pnr),
+      q(5542) => q(pns),
+      q(5543) => q(pnt),
+      q(5544) => q(pnu),
+      q(5545) => q(pnv),
+      q(5546) => q(pnw),
+      q(5547) => q(pnx),
+      q(5548) => q(pny),
+      q(5549) => q(pnz),
+      q(5550) => q(poc),
+      q(5551) => q(poe),
+      q(5552) => q(pof),
+      q(5553) => q(pog),
+      q(5554) => q(poh),
+      q(5555) => q(poi),
+      q(5556) => q(pok),
+      q(5557) => q(pom),
+      q(5558) => q(poo),
+      q(5559) => q(pop),
+      q(5560) => q(poq),
+      q(5561) => q(pos),
+      q(5562) => q(pot),
+      q(5563) => q(pov),
+      q(5564) => q(pow),
+      q(5565) => q(pox),
+      q(5566) => q(poy),
+      q(5567) => q(ppe),
+      q(5568) => q(ppi),
+      q(5569) => q(ppk),
+      q(5570) => q(ppl),
+      q(5571) => q(ppm),
+      q(5572) => q(ppn),
+      q(5573) => q(ppo),
+      q(5574) => q(ppp),
+      q(5575) => q(ppq),
+      q(5576) => q(pps),
+      q(5577) => q(ppt),
+      q(5578) => q(ppu),
+      q(5579) => q(pqa),
+      q(5580) => q(pqm),
+      q(5581) => q(prc),
+      q(5582) => q(prd),
+      q(5583) => q(pre),
+      q(5584) => q(prf),
+      q(5585) => q(prg),
+      q(5586) => q(prh),
+      q(5587) => q(pri),
+      q(5588) => q(prk),
+      q(5589) => q(prl),
+      q(5590) => q(prm),
+      q(5591) => q(prn),
+      q(5592) => q(prp),
+      q(5593) => q(prq),
+      q(5594) => q(prr),
+      q(5595) => q(prs),
+      q(5596) => q(prt),
+      q(5597) => q(pru),
+      q(5598) => q(prw),
+      q(5599) => q(prx),
+      q(5600) => q(prz),
+      q(5601) => q(psa),
+      q(5602) => q(psc),
+      q(5603) => q(psd),
+      q(5604) => q(pse),
+      q(5605) => q(psg),
+      q(5606) => q(psh),
+      q(5607) => q(psi),
+      q(5608) => q(psl),
+      q(5609) => q(psm),
+      q(5610) => q(psn),
+      q(5611) => q(pso),
+      q(5612) => q(psp),
+      q(5613) => q(psq),
+      q(5614) => q(psr),
+      q(5615) => q(pss),
+      q(5616) => q(pst),
+      q(5617) => q(psu),
+      q(5618) => q(psw),
+      q(5619) => q(psy),
+      q(5620) => q(pta),
+      q(5621) => q(pth),
+      q(5622) => q(pti),
+      q(5623) => q(ptn),
+      q(5624) => q(pto),
+      q(5625) => q(ptp),
+      q(5626) => q(ptq),
+      q(5627) => q(ptr),
+      q(5628) => q(ptt),
+      q(5629) => q(ptu),
+      q(5630) => q(ptv),
+      q(5631) => q(ptw),
+      q(5632) => q(pty),
+      q(5633) => q(pua),
+      q(5634) => q(pub),
+      q(5635) => q(puc),
+      q(5636) => q(pud),
+      q(5637) => q(pue),
+      q(5638) => q(puf),
+      q(5639) => q(pug),
+      q(5640) => q(pui),
+      q(5641) => q(puj),
+      q(5642) => q(pum),
+      q(5643) => q(puo),
+      q(5644) => q(pup),
+      q(5645) => q(puq),
+      q(5646) => q(pur),
+      q(5647) => q(put),
+      q(5648) => q(puu),
+      q(5649) => q(puw),
+      q(5650) => q(pux),
+      q(5651) => q(puy),
+      q(5652) => q(pwa),
+      q(5653) => q(pwb),
+      q(5654) => q(pwg),
+      q(5655) => q(pwi),
+      q(5656) => q(pwm),
+      q(5657) => q(pwn),
+      q(5658) => q(pwo),
+      q(5659) => q(pwr),
+      q(5660) => q(pww),
+      q(5661) => q(pxm),
+      q(5662) => q(pye),
+      q(5663) => q(pym),
+      q(5664) => q(pyn),
+      q(5665) => q(pys),
+      q(5666) => q(pyu),
+      q(5667) => q(pyx),
+      q(5668) => q(pyy),
+      q(5669) => q(pzn),
+      q(5670) => q(qua),
+      q(5671) => q(qub),
+      q(5672) => q(quc),
+      q(5673) => q(qud),
+      q(5674) => q(quf),
+      q(5675) => q(qug),
+      q(5676) => q(quh),
+      q(5677) => q(qui),
+      q(5678) => q(quk),
+      q(5679) => q(qul),
+      q(5680) => q(qum),
+      q(5681) => q(qun),
+      q(5682) => q(qup),
+      q(5683) => q(quq),
+      q(5684) => q(qur),
+      q(5685) => q(qus),
+      q(5686) => q(quv),
+      q(5687) => q(quw),
+      q(5688) => q(qux),
+      q(5689) => q(quy),
+      q(5690) => q(quz),
+      q(5691) => q(qva),
+      q(5692) => q(qvc),
+      q(5693) => q(qve),
+      q(5694) => q(qvh),
+      q(5695) => q(qvi),
+      q(5696) => q(qvj),
+      q(5697) => q(qvl),
+      q(5698) => q(qvm),
+      q(5699) => q(qvn),
+      q(5700) => q(qvo),
+      q(5701) => q(qvp),
+      q(5702) => q(qvs),
+      q(5703) => q(qvw),
+      q(5704) => q(qvy),
+      q(5705) => q(qvz),
+      q(5706) => q(qwa),
+      q(5707) => q(qwc),
+      q(5708) => q(qwh),
+      q(5709) => q(qwm),
+      q(5710) => q(qws),
+      q(5711) => q(qwt),
+      q(5712) => q(qxa),
+      q(5713) => q(qxc),
+      q(5714) => q(qxh),
+      q(5715) => q(qxl),
+      q(5716) => q(qxn),
+      q(5717) => q(qxo),
+      q(5718) => q(qxp),
+      q(5719) => q(qxq),
+      q(5720) => q(qxr),
+      q(5721) => q(qxs),
+      q(5722) => q(qxt),
+      q(5723) => q(qxu),
+      q(5724) => q(qxw),
+      q(5725) => q(qya),
+      q(5726) => q(qyp),
+      q(5727) => q(raa),
+      q(5728) => q(rab),
+      q(5729) => q(rac),
+      q(5730) => q(rad),
+      q(5731) => q(raf),
+      q(5732) => q(rag),
+      q(5733) => q(rah),
+      q(5734) => q(rai),
+      q(5735) => q(rak),
+      q(5736) => q(ral),
+      q(5737) => q(ram),
+      q(5738) => q(ran),
+      q(5739) => q(rao),
+      q(5740) => q(raq),
+      q(5741) => q(ras),
+      q(5742) => q(rat),
+      q(5743) => q(rau),
+      q(5744) => q(rav),
+      q(5745) => q(raw),
+      q(5746) => q(rax),
+      q(5747) => q(ray),
+      q(5748) => q(raz),
+      q(5749) => q(rbb),
+      q(5750) => q(rbk),
+      q(5751) => q(rbl),
+      q(5752) => q(rbp),
+      q(5753) => q(rcf),
+      q(5754) => q(rdb),
+      q(5755) => q(rea),
+      q(5756) => q(reb),
+      q(5757) => q(ree),
+      q(5758) => q(reg),
+      q(5759) => q(rei),
+      q(5760) => q(rej),
+      q(5761) => q(rel),
+      q(5762) => q(rem),
+      q(5763) => q(ren),
+      q(5764) => q(rer),
+      q(5765) => q(res),
+      q(5766) => q(ret),
+      q(5767) => q(rey),
+      q(5768) => q(rga),
+      q(5769) => q(rge),
+      q(5770) => q(rgk),
+      q(5771) => q(rgn),
+      q(5772) => q(rgr),
+      q(5773) => q(rgs),
+      q(5774) => q(rgu),
+      q(5775) => q(rhg),
+      q(5776) => q(rhp),
+      q(5777) => q(ria),
+      q(5778) => q(rif),
+      q(5779) => q(ril),
+      q(5780) => q(rim),
+      q(5781) => q(rin),
+      q(5782) => q(rir),
+      q(5783) => q(rit),
+      q(5784) => q(riu),
+      q(5785) => q(rjg),
+      q(5786) => q(rji),
+      q(5787) => q(rjs),
+      q(5788) => q(rka),
+      q(5789) => q(rkb),
+      q(5790) => q(rkh),
+      q(5791) => q(rki),
+      q(5792) => q(rkm),
+      q(5793) => q(rkt),
+      q(5794) => q(rkw),
+      q(5795) => q(rma),
+      q(5796) => q(rmb),
+      q(5797) => q(rmc),
+      q(5798) => q(rmd),
+      q(5799) => q(rme),
+      q(5800) => q(rmf),
+      q(5801) => q(rmg),
+      q(5802) => q(rmh),
+      q(5803) => q(rmi),
+      q(5804) => q(rmk),
+      q(5805) => q(rml),
+      q(5806) => q(rmm),
+      q(5807) => q(rmn),
+      q(5808) => q(rmo),
+      q(5809) => q(rmp),
+      q(5810) => q(rmq),
+      q(5811) => q(rms),
+      q(5812) => q(rmt),
+      q(5813) => q(rmu),
+      q(5814) => q(rmv),
+      q(5815) => q(rmw),
+      q(5816) => q(rmx),
+      q(5817) => q(rmy),
+      q(5818) => q(rmz),
+      q(5819) => q(rnd),
+      q(5820) => q(rng),
+      q(5821) => q(rnl),
+      q(5822) => q(rnn),
+      q(5823) => q(rnp),
+      q(5824) => q(rnr),
+      q(5825) => q(rnw),
+      q(5826) => q(rob),
+      q(5827) => q(roc),
+      q(5828) => q(rod),
+      q(5829) => q(roe),
+      q(5830) => q(rof),
+      q(5831) => q(rog),
+      q(5832) => q(rol),
+      q(5833) => q(roo),
+      q(5834) => q(rop),
+      q(5835) => q(ror),
+      q(5836) => q(rou),
+      q(5837) => q(row),
+      q(5838) => q(rpn),
+      q(5839) => q(rpt),
+      q(5840) => q(rri),
+      q(5841) => q(rro),
+      q(5842) => q(rrt),
+      q(5843) => q(rsb),
+      q(5844) => q(rsl),
+      q(5845) => q(rsm),
+      q(5846) => q(rtc),
+      q(5847) => q(rth),
+      q(5848) => q(rtm),
+      q(5849) => q(rts),
+      q(5850) => q(rtw),
+      q(5851) => q(rub),
+      q(5852) => q(ruc),
+      q(5853) => q(rue),
+      q(5854) => q(ruf),
+      q(5855) => q(rug),
+      q(5856) => q(ruh),
+      q(5857) => q(rui),
+      q(5858) => q(ruk),
+      q(5859) => q(ruo),
+      q(5860) => q(ruq),
+      q(5861) => q(rut),
+      q(5862) => q(ruu),
+      q(5863) => q(ruy),
+      q(5864) => q(ruz),
+      q(5865) => q(rwa),
+      q(5866) => q(rwk),
+      q(5867) => q(rwm),
+      q(5868) => q(rwo),
+      q(5869) => q(rwr),
+      q(5870) => q(rxd),
+      q(5871) => q(rxw),
+      q(5872) => q(ryn),
+      q(5873) => q(rys),
+      q(5874) => q(ryu),
+      q(5875) => q(rzh),
+      q(5876) => q(saa),
+      q(5877) => q(sab),
+      q(5878) => q(sac),
+      q(5879) => q(sae),
+      q(5880) => q(saf),
+      q(5881) => q(saj),
+      q(5882) => q(sak),
+      q(5883) => q(sao),
+      q(5884) => q(saq),
+      q(5885) => q(sar),
+      q(5886) => q(sau),
+      q(5887) => q(sav),
+      q(5888) => q(saw),
+      q(5889) => q(sax),
+      q(5890) => q(say),
+      q(5891) => q(saz),
+      q(5892) => q(sba),
+      q(5893) => q(sbb),
+      q(5894) => q(sbc),
+      q(5895) => q(sbd),
+      q(5896) => q(slc),
+      q(5897) => q(sbf),
+      q(5898) => q(sbg),
+      q(5899) => q(sbh),
+      q(5900) => q(sbi),
+      q(5901) => q(sbj),
+      q(5902) => q(sbk),
+      q(5903) => q(sbl),
+      q(5904) => q(sbm),
+      q(5905) => q(sbn),
+      q(5906) => q(sbo),
+      q(5907) => q(sbp),
+      q(5908) => q(sbq),
+      q(5909) => q(sbr),
+      q(5910) => q(sbs),
+      q(5911) => q(sbt),
+      q(5912) => q(sbu),
+      q(5913) => q(sbv),
+      q(5914) => q(sbw),
+      q(5915) => q(sbx),
+      q(5916) => q(sby),
+      q(5917) => q(sbz),
+      q(5918) => q(scb),
+      q(5919) => q(sce),
+      q(5920) => q(scf),
+      q(5921) => q(scg),
+      q(5922) => q(sch),
+      q(5923) => q(sci),
+      q(5924) => q(sck),
+      q(5925) => q(scl),
+      q(5926) => q(scp),
+      q(5927) => q(scq),
+      q(5928) => q(scs),
+      q(5929) => q(sct),
+      q(5930) => q(scu),
+      q(5931) => q(scv),
+      q(5932) => q(scw),
+      q(5933) => q(scx),
+      q(5934) => q(sda),
+      q(5935) => q(sdb),
+      q(5936) => q(sdc),
+      q(5937) => q(sde),
+      q(5938) => q(sdf),
+      q(5939) => q(sdg),
+      q(5940) => q(sdh),
+      q(5941) => q(sdj),
+      q(5942) => q(sdk),
+      q(5943) => q(sdl),
+      q(5944) => q(sdm),
+      q(5945) => q(sdn),
+      q(5946) => q(sdo),
+      q(5947) => q(sdp),
+      q(5948) => q(sdr),
+      q(5949) => q(sds),
+      q(5950) => q(sdt),
+      q(5951) => q(sdu),
+      q(5952) => q(sdx),
+      q(5953) => q(sdz),
+      q(5954) => q(sea),
+      q(5955) => q(seb),
+      q(5956) => q(sec),
+      q(5957) => q(sed),
+      q(5958) => q(see),
+      q(5959) => q(sef),
+      q(5960) => q(seg),
+      q(5961) => q(seh),
+      q(5962) => q(sei),
+      q(5963) => q(sej),
+      q(5964) => q(sek),
+      q(5965) => q(sen),
+      q(5966) => q(seo),
+      q(5967) => q(sep),
+      q(5968) => q(seq),
+      q(5969) => q(ser),
+      q(5970) => q(ses),
+      q(5971) => q(set),
+      q(5972) => q(seu),
+      q(5973) => q(sev),
+      q(5974) => q(sew),
+      q(5975) => q(sey),
+      q(5976) => q(sez),
+      q(5977) => q(sfb),
+      q(5978) => q(sfe),
+      q(5979) => q(sfm),
+      q(5980) => q(sfs),
+      q(5981) => q(sfw),
+      q(5982) => q(sgb),
+      q(5983) => q(sgc),
+      q(5984) => q(sgd),
+      q(5985) => q(sge),
+      q(5986) => q(sgg),
+      q(5987) => q(sgh),
+      q(5988) => q(sgi),
+      q(5989) => q(sgj),
+      q(5990) => q(sgk),
+      q(5991) => q(sgm),
+      q(5992) => q(sgp),
+      q(5993) => q(sgr),
+      q(5994) => q(sgs),
+      q(5995) => q(sgt),
+      q(5996) => q(sgu),
+      q(5997) => q(sgw),
+      q(5998) => q(sgx),
+      q(5999) => q(sgy),
+      q(6000) => q(sgz),
+      q(6001) => q(sha),
+      q(6002) => q(shb),
+      q(6003) => q(shc),
+      q(6004) => q(shd),
+      q(6005) => q(she),
+      q(6006) => q(shg),
+      q(6007) => q(shh),
+      q(6008) => q(shi),
+      q(6009) => q(shj),
+      q(6010) => q(shk),
+      q(6011) => q(shl),
+      q(6012) => q(shm),
+      q(6013) => q(sho),
+      q(6014) => q(shp),
+      q(6015) => q(shq),
+      q(6016) => q(shr),
+      q(6017) => q(shs),
+      q(6018) => q(sht),
+      q(6019) => q(shu),
+      q(6020) => q(shv),
+      q(6021) => q(shw),
+      q(6022) => q(shx),
+      q(6023) => q(shy),
+      q(6024) => q(shz),
+      q(6025) => q(sia),
+      q(6026) => q(sib),
+      q(6027) => q(sie),
+      q(6028) => q(sif),
+      q(6029) => q(sig),
+      q(6030) => q(sih),
+      q(6031) => q(sii),
+      q(6032) => q(sij),
+      q(6033) => q(sik),
+      q(6034) => q(sil),
+      q(6035) => q(sim),
+      q(6036) => q(sip),
+      q(6037) => q(siq),
+      q(6038) => q(sir),
+      q(6039) => q(sis),
+      q(6040) => q(siu),
+      q(6041) => q(siv),
+      q(6042) => q(siw),
+      q(6043) => q(six),
+      q(6044) => q(siy),
+      q(6045) => q(siz),
+      q(6046) => q(sja),
+      q(6047) => q(sjb),
+      q(6048) => q(sjd),
+      q(6049) => q(sje),
+      q(6050) => q(sjg),
+      q(6051) => q(sjk),
+      q(6052) => q(sjl),
+      q(6053) => q(sjm),
+      q(6054) => q(sjn),
+      q(6055) => q(sjo),
+      q(6056) => q(sjp),
+      q(6057) => q(sjr),
+      q(6058) => q(sjs),
+      q(6059) => q(sjt),
+      q(6060) => q(sju),
+      q(6061) => q(sjw),
+      q(6062) => q(ska),
+      q(6063) => q(skb),
+      q(6064) => q(skc),
+      q(6065) => q(skd),
+      q(6066) => q(ske),
+      q(6067) => q(skf),
+      q(6068) => q(skg),
+      q(6069) => q(skh),
+      q(6070) => q(ski),
+      q(6071) => q(skj),
+      q(6072) => q(skm),
+      q(6073) => q(skn),
+      q(6074) => q(sko),
+      q(6075) => q(skp),
+      q(6076) => q(skq),
+      q(6077) => q(skr),
+      q(6078) => q(sks),
+      q(6079) => q(skt),
+      q(6080) => q(sku),
+      q(6081) => q(skv),
+      q(6082) => q(skw),
+      q(6083) => q(skx),
+      q(6084) => q(sky),
+      q(6085) => q(skz),
+      q(6086) => q(sld),
+      q(6087) => q(sle),
+      q(6088) => q(slf),
+      q(6089) => q(slg),
+      q(6090) => q(slh),
+      q(6091) => q(sli),
+      q(6092) => q(slj),
+      q(6093) => q(sll),
+      q(6094) => q(slm),
+      q(6095) => q(sln),
+      q(6096) => q(slp),
+      q(6097) => q(slq),
+      q(6098) => q(slr),
+      q(6099) => q(sls),
+      q(6100) => q(slt),
+      q(6101) => q(slu),
+      q(6102) => q(slw),
+      q(6103) => q(slx),
+      q(6104) => q(sly),
+      q(6105) => q(slz),
+      q(6106) => q(smb),
+      q(6107) => q(smc),
+      q(6108) => q(smd),
+      q(6109) => q(smf),
+      q(6110) => q(smg),
+      q(6111) => q(smh),
+      q(6112) => q(smk),
+      q(6113) => q(sml),
+      q(6114) => q(smm),
+      q(6115) => q(smp),
+      q(6116) => q(smq),
+      q(6117) => q(smr),
+      q(6118) => q(smt),
+      q(6119) => q(smu),
+      q(6120) => q(smv),
+      q(6121) => q(smw),
+      q(6122) => q(smx),
+      q(6123) => q(smy),
+      q(6124) => q(smz),
+      q(6125) => q(snb),
+      q(6126) => q(snc),
+      q(6127) => q(sne),
+      q(6128) => q(snf),
+      q(6129) => q(sng),
+      q(6130) => q(sni),
+      q(6131) => q(snj),
+      q(6132) => q(snl),
+      q(6133) => q(snm),
+      q(6134) => q(snn),
+      q(6135) => q(sno),
+      q(6136) => q(snp),
+      q(6137) => q(snq),
+      q(6138) => q(snr),
+      q(6139) => q(sns),
+      q(6140) => q(snu),
+      q(6141) => q(snv),
+      q(6142) => q(snw),
+      q(6143) => q(snx),
+      q(6144) => q(sny),
+      q(6145) => q(snz),
+      q(6146) => q(soa),
+      q(6147) => q(sob),
+      q(6148) => q(soc),
+      q(6149) => q(sod),
+      q(6150) => q(soe),
+      q(6151) => q(soh),
+      q(6152) => q(soi),
+      q(6153) => q(soj),
+      q(6154) => q(sok),
+      q(6155) => q(sol),
+      q(6156) => q(soo),
+      q(6157) => q(sop),
+      q(6158) => q(soq),
+      q(6159) => q(sor),
+      q(6160) => q(sos),
+      q(6161) => q(sou),
+      q(6162) => q(sov),
+      q(6163) => q(sow),
+      q(6164) => q(sox),
+      q(6165) => q(soy),
+      q(6166) => q(soz),
+      q(6167) => q(spb),
+      q(6168) => q(spc),
+      q(6169) => q(spd),
+      q(6170) => q(spe),
+      q(6171) => q(spg),
+      q(6172) => q(spi),
+      q(6173) => q(spk),
+      q(6174) => q(spl),
+      q(6175) => q(spm),
+      q(6176) => q(spn),
+      q(6177) => q(spo),
+      q(6178) => q(spp),
+      q(6179) => q(spq),
+      q(6180) => q(spr),
+      q(6181) => q(sps),
+      q(6182) => q(spt),
+      q(6183) => q(spu),
+      q(6184) => q(spv),
+      q(6185) => q(spx),
+      q(6186) => q(spy),
+      q(6187) => q(sqa),
+      q(6188) => q(sqh),
+      q(6189) => q(sqk),
+      q(6190) => q(sqm),
+      q(6191) => q(sqn),
+      q(6192) => q(sqo),
+      q(6193) => q(sqq),
+      q(6194) => q(sqr),
+      q(6195) => q(sqs),
+      q(6196) => q(sqt),
+      q(6197) => q(squ),
+      q(6198) => q(sra),
+      q(6199) => q(srb),
+      q(6200) => q(src),
+      q(6201) => q(sre),
+      q(6202) => q(srf),
+      q(6203) => q(srg),
+      q(6204) => q(srh),
+      q(6205) => q(sri),
+      q(6206) => q(srk),
+      q(6207) => q(srl),
+      q(6208) => q(srm),
+      q(6209) => q(sro),
+      q(6210) => q(srq),
+      q(6211) => q(srs),
+      q(6212) => q(srt),
+      q(6213) => q(sru),
+      q(6214) => q(srv),
+      q(6215) => q(srw),
+      q(6216) => q(srx),
+      q(6217) => q(sry),
+      q(6218) => q(srz),
+      q(6219) => q(ssb),
+      q(6220) => q(ssc),
+      q(6221) => q(ssd),
+      q(6222) => q(sse),
+      q(6223) => q(ssf),
+      q(6224) => q(ssg),
+      q(6225) => q(ssh),
+      q(6226) => q(ssi),
+      q(6227) => q(ssj),
+      q(6228) => q(ssk),
+      q(6229) => q(ssl),
+      q(6230) => q(ssm),
+      q(6231) => q(ssn),
+      q(6232) => q(sso),
+      q(6233) => q(ssp),
+      q(6234) => q(ssq),
+      q(6235) => q(ssr),
+      q(6236) => q(sss),
+      q(6237) => q(sst),
+      q(6238) => q(ssu),
+      q(6239) => q(ssv),
+      q(6240) => q(ssx),
+      q(6241) => q(ssy),
+      q(6242) => q(ssz),
+      q(6243) => q(sta),
+      q(6244) => q(stb),
+      q(6245) => q(std),
+      q(6246) => q(ste),
+      q(6247) => q(stf),
+      q(6248) => q(stg),
+      q(6249) => q(sth),
+      q(6250) => q(sti),
+      q(6251) => q(stj),
+      q(6252) => q(stk),
+      q(6253) => q(stl),
+      q(6254) => q(stm),
+      q(6255) => q(stn),
+      q(6256) => q(sto),
+      q(6257) => q(stp),
+      q(6258) => q(stq),
+      q(6259) => q(str),
+      q(6260) => q(sts),
+      q(6261) => q(stt),
+      q(6262) => q(stu),
+      q(6263) => q(stv),
+      q(6264) => q(stw),
+      q(6265) => q(sty),
+      q(6266) => q(sua),
+      q(6267) => q(sub),
+      q(6268) => q(suc),
+      q(6269) => q(sue),
+      q(6270) => q(sug),
+      q(6271) => q(sui),
+      q(6272) => q(suj),
+      q(6273) => q(suq),
+      q(6274) => q(sur),
+      q(6275) => q(sut),
+      q(6276) => q(suv),
+      q(6277) => q(suw),
+      q(6278) => q(suy),
+      q(6279) => q(suz),
+      q(6280) => q(sva),
+      q(6281) => q(svb),
+      q(6282) => q(svc),
+      q(6283) => q(sve),
+      q(6284) => q(svk),
+      q(6285) => q(svm),
+      q(6286) => q(svs),
+      q(6287) => q(svx),
+      q(6288) => q(swb),
+      q(6289) => q(swc),
+      q(6290) => q(swf),
+      q(6291) => q(swg),
+      q(6292) => q(swh),
+      q(6293) => q(swi),
+      q(6294) => q(swj),
+      q(6295) => q(swk),
+      q(6296) => q(swl),
+      q(6297) => q(swm),
+      q(6298) => q(swn),
+      q(6299) => q(swo),
+      q(6300) => q(swp),
+      q(6301) => q(swq),
+      q(6302) => q(swr),
+      q(6303) => q(sws),
+      q(6304) => q(swt),
+      q(6305) => q(swu),
+      q(6306) => q(swv),
+      q(6307) => q(sww),
+      q(6308) => q(swx),
+      q(6309) => q(swy),
+      q(6310) => q(sxb),
+      q(6311) => q(sxc),
+      q(6312) => q(sxe),
+      q(6313) => q(sxg),
+      q(6314) => q(sxk),
+      q(6315) => q(sxl),
+      q(6316) => q(sxm),
+      q(6317) => q(sxn),
+      q(6318) => q(sxo),
+      q(6319) => q(sxr),
+      q(6320) => q(sxs),
+      q(6321) => q(sxu),
+      q(6322) => q(sxw),
+      q(6323) => q(sya),
+      q(6324) => q(syb),
+      q(6325) => q(syi),
+      q(6326) => q(syk),
+      q(6327) => q(syl),
+      q(6328) => q(sym),
+      q(6329) => q(syn),
+      q(6330) => q(syo),
+      q(6331) => q(sys),
+      q(6332) => q(syw),
+      q(6333) => q(syx),
+      q(6334) => q(syy),
+      q(6335) => q(sza),
+      q(6336) => q(szb),
+      q(6337) => q(szc),
+      q(6338) => q(szd),
+      q(6339) => q(sze),
+      q(6340) => q(szg),
+      q(6341) => q(szl),
+      q(6342) => q(szn),
+      q(6343) => q(szp),
+      q(6344) => q(szs),
+      q(6345) => q(szv),
+      q(6346) => q(szw),
+      q(6347) => q(taa),
+      q(6348) => q(tab),
+      q(6349) => q(tac),
+      q(6350) => q(tad),
+      q(6351) => q(tae),
+      q(6352) => q(taf),
+      q(6353) => q(tag),
+      q(6354) => q(taj),
+      q(6355) => q(tak),
+      q(6356) => q(tal),
+      q(6357) => q(tan),
+      q(6358) => q(tao),
+      q(6359) => q(tap),
+      q(6360) => q(taq),
+      q(6361) => q(tar),
+      q(6362) => q(tas),
+      q(6363) => q(tau),
+      q(6364) => q(tav),
+      q(6365) => q(taw),
+      q(6366) => q(tax),
+      q(6367) => q(tay),
+      q(6368) => q(taz),
+      q(6369) => q(tba),
+      q(6370) => q(tbb),
+      q(6371) => q(tbc),
+      q(6372) => q(tbd),
+      q(6373) => q(tbe),
+      q(6374) => q(tbf),
+      q(6375) => q(tbg),
+      q(6376) => q(tbh),
+      q(6377) => q(tbi),
+      q(6378) => q(tbj),
+      q(6379) => q(tbk),
+      q(6380) => q(tbl),
+      q(6381) => q(tbm),
+      q(6382) => q(tbn),
+      q(6383) => q(tbo),
+      q(6384) => q(tbp),
+      q(6385) => q(tbr),
+      q(6386) => q(tbs),
+      q(6387) => q(tbt),
+      q(6388) => q(tbu),
+      q(6389) => q(tbv),
+      q(6390) => q(tbw),
+      q(6391) => q(tbx),
+      q(6392) => q(tby),
+      q(6393) => q(tbz),
+      q(6394) => q(tca),
+      q(6395) => q(tcb),
+      q(6396) => q(tcc),
+      q(6397) => q(tcd),
+      q(6398) => q(tce),
+      q(6399) => q(tcf),
+      q(6400) => q(tcg),
+      q(6401) => q(tch),
+      q(6402) => q(wbf),
+      q(6403) => q(tck),
+      q(6404) => q(tcl),
+      q(6405) => q(tcm),
+      q(6406) => q(tcn),
+      q(6407) => q(tco),
+      q(6408) => q(tcp),
+      q(6409) => q(tcq),
+      q(6410) => q(tcs),
+      q(6411) => q(tct),
+      q(6412) => q(tcu),
+      q(6413) => q(tcw),
+      q(6414) => q(tcx),
+      q(6415) => q(tcy),
+      q(6416) => q(tcz),
+      q(6417) => q(tda),
+      q(6418) => q(tdb),
+      q(6419) => q(tdc),
+      q(6420) => q(tdd),
+      q(6421) => q(tde),
+      q(6422) => q(tdf),
+      q(6423) => q(tdg),
+      q(6424) => q(tdh),
+      q(6425) => q(tdi),
+      q(6426) => q(tdj),
+      q(6427) => q(tdk),
+      q(6428) => q(tdl),
+      q(6429) => q(tdm),
+      q(6430) => q(tdn),
+      q(6431) => q(tdo),
+      q(6432) => q(tdq),
+      q(6433) => q(tdr),
+      q(6434) => q(tds),
+      q(6435) => q(tdt),
+      q(6436) => q(tdv),
+      q(6437) => q(tdx),
+      q(6438) => q(tdy),
+      q(6439) => q(tea),
+      q(6440) => q(teb),
+      q(6441) => q(tec),
+      q(6442) => q(ted),
+      q(6443) => q(tee),
+      q(6444) => q(tef),
+      q(6445) => q(teg),
+      q(6446) => q(teh),
+      q(6447) => q(tei),
+      q(6448) => q(tek),
+      q(6449) => q(ten),
+      q(6450) => q(teo),
+      q(6451) => q(tep),
+      q(6452) => q(teq),
+      q(6453) => q(tes),
+      q(6454) => q(teu),
+      q(6455) => q(tev),
+      q(6456) => q(tew),
+      q(6457) => q(tex),
+      q(6458) => q(tey),
+      q(6459) => q(tfi),
+      q(6460) => q(tfn),
+      q(6461) => q(tfo),
+      q(6462) => q(tfr),
+      q(6463) => q(tft),
+      q(6464) => q(tga),
+      q(6465) => q(tgb),
+      q(6466) => q(tgc),
+      q(6467) => q(tgd),
+      q(6468) => q(tge),
+      q(6469) => q(tgf),
+      q(6470) => q(tgh),
+      q(6471) => q(tgi),
+      q(6472) => q(tgj),
+      q(6473) => q(tgn),
+      q(6474) => q(tgo),
+      q(6475) => q(tgp),
+      q(6476) => q(tgq),
+      q(6477) => q(tgr),
+      q(6478) => q(tgs),
+      q(6479) => q(tgt),
+      q(6480) => q(tgu),
+      q(6481) => q(tgv),
+      q(6482) => q(tgw),
+      q(6483) => q(tgx),
+      q(6484) => q(tgy),
+      q(6485) => q(tgz),
+      q(6486) => q(thd),
+      q(6487) => q(the),
+      q(6488) => q(thf),
+      q(6489) => q(thh),
+      q(6490) => q(thi),
+      q(6491) => q(thk),
+      q(6492) => q(thl),
+      q(6493) => q(thm),
+      q(6494) => q(thn),
+      q(6495) => q(thp),
+      q(6496) => q(thq),
+      q(6497) => q(thr),
+      q(6498) => q(ths),
+      q(6499) => q(tht),
+      q(6500) => q(thu),
+      q(6501) => q(thv),
+      q(6502) => q(thw),
+      q(6503) => q(thy),
+      q(6504) => q(thz),
+      q(6505) => q(tia),
+      q(6506) => q(tic),
+      q(6507) => q(tif),
+      q(6508) => q(tih),
+      q(6509) => q(tii),
+      q(6510) => q(tij),
+      q(6511) => q(tik),
+      q(6512) => q(til),
+      q(6513) => q(tim),
+      q(6514) => q(tin),
+      q(6515) => q(tio),
+      q(6516) => q(tip),
+      q(6517) => q(tiq),
+      q(6518) => q(tis),
+      q(6519) => q(tit),
+      q(6520) => q(tiu),
+      q(6521) => q(tiw),
+      q(6522) => q(tix),
+      q(6523) => q(tiy),
+      q(6524) => q(tiz),
+      q(6525) => q(tja),
+      q(6526) => q(tjg),
+      q(6527) => q(tji),
+      q(6528) => q(tjl),
+      q(6529) => q(tjm),
+      q(6530) => q(tjn),
+      q(6531) => q(tjo),
+      q(6532) => q(tjs),
+      q(6533) => q(tju),
+      q(6534) => q(tjw),
+      q(6535) => q(tka),
+      q(6536) => q(tkb),
+      q(6537) => q(tkd),
+      q(6538) => q(tke),
+      q(6539) => q(tkf),
+      q(6540) => q(tkg),
+      q(6541) => q(tkm),
+      q(6542) => q(tkn),
+      q(6543) => q(tkp),
+      q(6544) => q(tkq),
+      q(6545) => q(tkr),
+      q(6546) => q(tks),
+      q(6547) => q(tkt),
+      q(6548) => q(tku),
+      q(6549) => q(tkv),
+      q(6550) => q(tkw),
+      q(6551) => q(tkx),
+      q(6552) => q(tkz),
+      q(6553) => q(tla),
+      q(6554) => q(tlb),
+      q(6555) => q(tlc),
+      q(6556) => q(tld),
+      q(6557) => q(tlf),
+      q(6558) => q(tlg),
+      q(6559) => q(tlj),
+      q(6560) => q(tlk),
+      q(6561) => q(tll),
+      q(6562) => q(tlm),
+      q(6563) => q(tln),
+      q(6564) => q(tlo),
+      q(6565) => q(tlp),
+      q(6566) => q(tlq),
+      q(6567) => q(tlr),
+      q(6568) => q(tls),
+      q(6569) => q(tlt),
+      q(6570) => q(tlu),
+      q(6571) => q(tlv),
+      q(6572) => q(tlx),
+      q(6573) => q(tly),
+      q(6574) => q(tma),
+      q(6575) => q(tmb),
+      q(6576) => q(tmc),
+      q(6577) => q(tmd),
+      q(6578) => q(tme),
+      q(6579) => q(tmf),
+      q(6580) => q(tmg),
+      q(6581) => q(tmi),
+      q(6582) => q(tmj),
+      q(6583) => q(tmk),
+      q(6584) => q(tml),
+      q(6585) => q(tmm),
+      q(6586) => q(tmn),
+      q(6587) => q(tmo),
+      q(6588) => q(tmq),
+      q(6589) => q(tmr),
+      q(6590) => q(tms),
+      q(6591) => q(tmt),
+      q(6592) => q(tmu),
+      q(6593) => q(tmv),
+      q(6594) => q(tmw),
+      q(6595) => q(tmy),
+      q(6596) => q(tmz),
+      q(6597) => q(tna),
+      q(6598) => q(tnb),
+      q(6599) => q(tnc),
+      q(6600) => q(tnd),
+      q(6601) => q(tng),
+      q(6602) => q(tnh),
+      q(6603) => q(tni),
+      q(6604) => q(tnk),
+      q(6605) => q(tnl),
+      q(6606) => q(tnm),
+      q(6607) => q(tnn),
+      q(6608) => q(tno),
+      q(6609) => q(tnp),
+      q(6610) => q(tnq),
+      q(6611) => q(tnr),
+      q(6612) => q(tns),
+      q(6613) => q(tnt),
+      q(6614) => q(tnu),
+      q(6615) => q(tnv),
+      q(6616) => q(tnw),
+      q(6617) => q(tnx),
+      q(6618) => q(tny),
+      q(6619) => q(tnz),
+      q(6620) => q(tob),
+      q(6621) => q(toc),
+      q(6622) => q(tod),
+      q(6623) => q(tof),
+      q(6624) => q(toh),
+      q(6625) => q(toi),
+      q(6626) => q(toj),
+      q(6627) => q(tol),
+      q(6628) => q(tom),
+      q(6629) => q(too),
+      q(6630) => q(top),
+      q(6631) => q(toq),
+      q(6632) => q(tor),
+      q(6633) => q(tos),
+      q(6634) => q(tou),
+      q(6635) => q(tov),
+      q(6636) => q(tow),
+      q(6637) => q(tox),
+      q(6638) => q(toy),
+      q(6639) => q(toz),
+      q(6640) => q(tpa),
+      q(6641) => q(tpc),
+      q(6642) => q(tpe),
+      q(6643) => q(tpf),
+      q(6644) => q(tpg),
+      q(6645) => q(tpj),
+      q(6646) => q(tpk),
+      q(6647) => q(tpl),
+      q(6648) => q(tpm),
+      q(6649) => q(tpn),
+      q(6650) => q(tpo),
+      q(6651) => q(tpp),
+      q(6652) => q(tpq),
+      q(6653) => q(tpr),
+      q(6654) => q(tpt),
+      q(6655) => q(tpu),
+      q(6656) => q(tpv),
+      q(6657) => q(tpw),
+      q(6658) => q(tpx),
+      q(6659) => q(tpy),
+      q(6660) => q(tpz),
+      q(6661) => q(tqb),
+      q(6662) => q(tql),
+      q(6663) => q(tqm),
+      q(6664) => q(tqn),
+      q(6665) => q(tqo),
+      q(6666) => q(tqp),
+      q(6667) => q(tqq),
+      q(6668) => q(tqr),
+      q(6669) => q(tqt),
+      q(6670) => q(tqu),
+      q(6671) => q(tqw),
+      q(6672) => q(tra),
+      q(6673) => q(trb),
+      q(6674) => q(trc),
+      q(6675) => q(trd),
+      q(6676) => q(tre),
+      q(6677) => q(trf),
+      q(6678) => q(trg),
+      q(6679) => q(trh),
+      q(6680) => q(tri),
+      q(6681) => q(trj),
+      q(6682) => q(trl),
+      q(6683) => q(trm),
+      q(6684) => q(trn),
+      q(6685) => q(tro),
+      q(6686) => q(trp),
+      q(6687) => q(trq),
+      q(6688) => q(trr),
+      q(6689) => q(trs),
+      q(6690) => q(trt),
+      q(6691) => q(tru),
+      q(6692) => q(trv),
+      q(6693) => q(trw),
+      q(6694) => q(trx),
+      q(6695) => q(try),
+      q(6696) => q(trz),
+      q(6697) => q(tsa),
+      q(6698) => q(tsb),
+      q(6699) => q(tsc),
+      q(6700) => q(tsd),
+      q(6701) => q(tse),
+      q(6702) => q(tsg),
+      q(6703) => q(tsh),
+      q(6704) => q(tsj),
+      q(6705) => q(tsk),
+      q(6706) => q(tsl),
+      q(6707) => q(tsm),
+      q(6708) => q(tsp),
+      q(6709) => q(tsq),
+      q(6710) => q(tsr),
+      q(6711) => q(tss),
+      q(6712) => q(tst),
+      q(6713) => q(tsu),
+      q(6714) => q(tsv),
+      q(6715) => q(tsw),
+      q(6716) => q(tsx),
+      q(6717) => q(tsy),
+      q(6718) => q(tsz),
+      q(6719) => q(tta),
+      q(6720) => q(ttb),
+      q(6721) => q(ttc),
+      q(6722) => q(ttd),
+      q(6723) => q(tte),
+      q(6724) => q(ttf),
+      q(6725) => q(ttg),
+      q(6726) => q(tth),
+      q(6727) => q(tti),
+      q(6728) => q(ttj),
+      q(6729) => q(ttk),
+      q(6730) => q(ttl),
+      q(6731) => q(ttm),
+      q(6732) => q(ttn),
+      q(6733) => q(tto),
+      q(6734) => q(ttp),
+      q(6735) => q(ttq),
+      q(6736) => q(ttr),
+      q(6737) => q(tts),
+      q(6738) => q(ttt),
+      q(6739) => q(ttu),
+      q(6740) => q(ttv),
+      q(6741) => q(ttw),
+      q(6742) => q(tty),
+      q(6743) => q(ttz),
+      q(6744) => q(tua),
+      q(6745) => q(tub),
+      q(6746) => q(tuc),
+      q(6747) => q(tud),
+      q(6748) => q(tue),
+      q(6749) => q(tuf),
+      q(6750) => q(tug),
+      q(6751) => q(tuh),
+      q(6752) => q(tui),
+      q(6753) => q(tuj),
+      q(6754) => q(tul),
+      q(6755) => q(tun),
+      q(6756) => q(tuo),
+      q(6757) => q(tuq),
+      q(6758) => q(tus),
+      q(6759) => q(tuu),
+      q(6760) => q(tuv),
+      q(6761) => q(tux),
+      q(6762) => q(tuy),
+      q(6763) => q(tuz),
+      q(6764) => q(tva),
+      q(6765) => q(tvd),
+      q(6766) => q(tve),
+      q(6767) => q(tvk),
+      q(6768) => q(tvm),
+      q(6769) => q(tvn),
+      q(6770) => q(tvo),
+      q(6771) => q(tvs),
+      q(6772) => q(tvt),
+      q(6773) => q(tvu),
+      q(6774) => q(tvw),
+      q(6775) => q(tvy),
+      q(6776) => q(twa),
+      q(6777) => q(twb),
+      q(6778) => q(twc),
+      q(6779) => q(twd),
+      q(6780) => q(twe),
+      q(6781) => q(twf),
+      q(6782) => q(twg),
+      q(6783) => q(twh),
+      q(6784) => q(twl),
+      q(6785) => q(twm),
+      q(6786) => q(twn),
+      q(6787) => q(two),
+      q(6788) => q(twp),
+      q(6789) => q(twq),
+      q(6790) => q(twr),
+      q(6791) => q(twt),
+      q(6792) => q(twu),
+      q(6793) => q(tww),
+      q(6794) => q(twx),
+      q(6795) => q(twy),
+      q(6796) => q(txa),
+      q(6797) => q(txb),
+      q(6798) => q(txc),
+      q(6799) => q(txe),
+      q(6800) => q(txg),
+      q(6801) => q(txh),
+      q(6802) => q(txi),
+      q(6803) => q(txj),
+      q(6804) => q(txm),
+      q(6805) => q(txn),
+      q(6806) => q(txo),
+      q(6807) => q(txq),
+      q(6808) => q(txr),
+      q(6809) => q(txs),
+      q(6810) => q(txt),
+      q(6811) => q(txu),
+      q(6812) => q(txx),
+      q(6813) => q(txy),
+      q(6814) => q(tya),
+      q(6815) => q(tye),
+      q(6816) => q(tyh),
+      q(6817) => q(tyi),
+      q(6818) => q(tyj),
+      q(6819) => q(tyl),
+      q(6820) => q(tyn),
+      q(6821) => q(typ),
+      q(6822) => q(tyr),
+      q(6823) => q(tys),
+      q(6824) => q(tyt),
+      q(6825) => q(tyu),
+      q(6826) => q(tyx),
+      q(6827) => q(tyz),
+      q(6828) => q(tza),
+      q(6829) => q(tzh),
+      q(6830) => q(tzj),
+      q(6831) => q(tzl),
+      q(6832) => q(tzm),
+      q(6833) => q(tzn),
+      q(6834) => q(tzo),
+      q(6835) => q(tzx),
+      q(6836) => q(uam),
+      q(6837) => q(uan),
+      q(6838) => q(uar),
+      q(6839) => q(uba),
+      q(6840) => q(ubi),
+      q(6841) => q(ubl),
+      q(6842) => q(ubr),
+      q(6843) => q(ubu),
+      q(6844) => q(uby),
+      q(6845) => q(uda),
+      q(6846) => q(ude),
+      q(6847) => q(udg),
+      q(6848) => q(udi),
+      q(6849) => q(udj),
+      q(6850) => q(udl),
+      q(6851) => q(udu),
+      q(6852) => q(ues),
+      q(6853) => q(ufi),
+      q(6854) => q(ugb),
+      q(6855) => q(uge),
+      q(6856) => q(ugn),
+      q(6857) => q(ugo),
+      q(6858) => q(ugy),
+      q(6859) => q(uha),
+      q(6860) => q(uhn),
+      q(6861) => q(uis),
+      q(6862) => q(uiv),
+      q(6863) => q(uji),
+      q(6864) => q(uka),
+      q(6865) => q(ukg),
+      q(6866) => q(ukh),
+      q(6867) => q(ukk),
+      q(6868) => q(ukl),
+      q(6869) => q(ukp),
+      q(6870) => q(ukq),
+      q(6871) => q(uks),
+      q(6872) => q(uku),
+      q(6873) => q(ukw),
+      q(6874) => q(uky),
+      q(6875) => q(ula),
+      q(6876) => q(ulb),
+      q(6877) => q(ulc),
+      q(6878) => q(ule),
+      q(6879) => q(ulf),
+      q(6880) => q(uli),
+      q(6881) => q(ulk),
+      q(6882) => q(ull),
+      q(6883) => q(ulm),
+      q(6884) => q(uln),
+      q(6885) => q(ulu),
+      q(6886) => q(ulw),
+      q(6887) => q(uma),
+      q(6888) => q(umc),
+      q(6889) => q(umd),
+      q(6890) => q(umg),
+      q(6891) => q(umi),
+      q(6892) => q(umm),
+      q(6893) => q(umn),
+      q(6894) => q(umo),
+      q(6895) => q(ump),
+      q(6896) => q(umr),
+      q(6897) => q(ums),
+      q(6898) => q(umu),
+      q(6899) => q(una),
+      q(6900) => q(une),
+      q(6901) => q(ung),
+      q(6902) => q(unk),
+      q(6903) => q(unm),
+      q(6904) => q(unn),
+      q(6905) => q(unr),
+      q(6906) => q(unu),
+      q(6907) => q(unx),
+      q(6908) => q(unz),
+      q(6909) => q(upi),
+      q(6910) => q(upv),
+      q(6911) => q(ura),
+      q(6912) => q(urb),
+      q(6913) => q(urc),
+      q(6914) => q(ure),
+      q(6915) => q(urf),
+      q(6916) => q(urg),
+      q(6917) => q(urh),
+      q(6918) => q(uri),
+      q(6919) => q(urk),
+      q(6920) => q(url),
+      q(6921) => q(urm),
+      q(6922) => q(urn),
+      q(6923) => q(uro),
+      q(6924) => q(urp),
+      q(6925) => q(urr),
+      q(6926) => q(urt),
+      q(6927) => q(uru),
+      q(6928) => q(urv),
+      q(6929) => q(urw),
+      q(6930) => q(urx),
+      q(6931) => q(ury),
+      q(6932) => q(urz),
+      q(6933) => q(usa),
+      q(6934) => q(ush),
+      q(6935) => q(usi),
+      q(6936) => q(usk),
+      q(6937) => q(usp),
+      q(6938) => q(usu),
+      q(6939) => q(uta),
+      q(6940) => q(ute),
+      q(6941) => q(utp),
+      q(6942) => q(utr),
+      q(6943) => q(utu),
+      q(6944) => q(uum),
+      q(6945) => q(uun),
+      q(6946) => q(uur),
+      q(6947) => q(uuu),
+      q(6948) => q(uve),
+      q(6949) => q(uvh),
+      q(6950) => q(uvl),
+      q(6951) => q(uwa),
+      q(6952) => q(uya),
+      q(6953) => q(uzn),
+      q(6954) => q(uzs),
+      q(6955) => q(vaa),
+      q(6956) => q(vae),
+      q(6957) => q(vaf),
+      q(6958) => q(vag),
+      q(6959) => q(vah),
+      q(6960) => q(vaj),
+      q(6961) => q(val),
+      q(6962) => q(vam),
+      q(6963) => q(van),
+      q(6964) => q(vao),
+      q(6965) => q(vap),
+      q(6966) => q(var),
+      q(6967) => q(vas),
+      q(6968) => q(vau),
+      q(6969) => q(vav),
+      q(6970) => q(vay),
+      q(6971) => q(vbb),
+      q(6972) => q(vbk),
+      q(6973) => q(vec),
+      q(6974) => q(ved),
+      q(6975) => q(vel),
+      q(6976) => q(vem),
+      q(6977) => q(veo),
+      q(6978) => q(vep),
+      q(6979) => q(ver),
+      q(6980) => q(vgr),
+      q(6981) => q(vgt),
+      q(6982) => q(vic),
+      q(6983) => q(vid),
+      q(6984) => q(vif),
+      q(6985) => q(vig),
+      q(6986) => q(vil),
+      q(6987) => q(vin),
+      q(6988) => q(vis),
+      q(6989) => q(vit),
+      q(6990) => q(viv),
+      q(6991) => q(vka),
+      q(6992) => q(vki),
+      q(6993) => q(vkj),
+      q(6994) => q(vkk),
+      q(6995) => q(vkl),
+      q(6996) => q(vkm),
+      q(6997) => q(vko),
+      q(6998) => q(vkp),
+      q(6999) => q(vkt),
+      q(7000) => q(vku),
+      q(7001) => q(vlp),
+      q(7002) => q(vls),
+      q(7003) => q(vma),
+      q(7004) => q(vmb),
+      q(7005) => q(vmc),
+      q(7006) => q(vmd),
+      q(7007) => q(vme),
+      q(7008) => q(vmf),
+      q(7009) => q(vmg),
+      q(7010) => q(vmh),
+      q(7011) => q(vmi),
+      q(7012) => q(vmj),
+      q(7013) => q(vmk),
+      q(7014) => q(vml),
+      q(7015) => q(vmm),
+      q(7016) => q(vmp),
+      q(7017) => q(vmq),
+      q(7018) => q(vmr),
+      q(7019) => q(vms),
+      q(7020) => q(vmu),
+      q(7021) => q(vmv),
+      q(7022) => q(vmw),
+      q(7023) => q(vmx),
+      q(7024) => q(vmy),
+      q(7025) => q(vmz),
+      q(7026) => q(vnk),
+      q(7027) => q(vnm),
+      q(7028) => q(vnp),
+      q(7029) => q(vro),
+      q(7030) => q(vra),
+      q(7031) => q(vrs),
+      q(7032) => q(vrt),
+      q(7033) => q(vsi),
+      q(7034) => q(vsl),
+      q(7035) => q(vsv),
+      q(7036) => q(vto),
+      q(7037) => q(vum),
+      q(7038) => q(vun),
+      q(7039) => q(vut),
+      q(7040) => q(vwa),
+      q(7041) => q(waa),
+      q(7042) => q(wab),
+      q(7043) => q(wac),
+      q(7044) => q(wad),
+      q(7045) => q(wae),
+      q(7046) => q(waf),
+      q(7047) => q(wag),
+      q(7048) => q(wah),
+      q(7049) => q(wai),
+      q(7050) => q(waj),
+      q(7051) => q(wam),
+      q(7052) => q(wan),
+      q(7053) => q(wao),
+      q(7054) => q(wap),
+      q(7055) => q(waq),
+      q(7056) => q(wat),
+      q(7057) => q(wau),
+      q(7058) => q(wav),
+      q(7059) => q(waw),
+      q(7060) => q(wax),
+      q(7061) => q(way),
+      q(7062) => q(waz),
+      q(7063) => q(wba),
+      q(7064) => q(wbb),
+      q(7065) => q(wbe),
+      q(7066) => q(wbh),
+      q(7067) => q(wbi),
+      q(7068) => q(wbj),
+      q(7069) => q(wbk),
+      q(7070) => q(wbl),
+      q(7071) => q(wbm),
+      q(7072) => q(wbp),
+      q(7073) => q(wbq),
+      q(7074) => q(wbr),
+      q(7075) => q(wbs),
+      q(7076) => q(wbt),
+      q(7077) => q(wbv),
+      q(7078) => q(wbw),
+      q(7079) => q(wca),
+      q(7080) => q(wci),
+      q(7081) => q(wdd),
+      q(7082) => q(wdg),
+      q(7083) => q(wdj),
+      q(7084) => q(wdk),
+      q(7085) => q(wdu),
+      q(7086) => q(wdy),
+      q(7087) => q(wea),
+      q(7088) => q(wec),
+      q(7089) => q(wed),
+      q(7090) => q(weg),
+      q(7091) => q(weh),
+      q(7092) => q(wei),
+      q(7093) => q(wem),
+      q(7094) => q(weo),
+      q(7095) => q(wep),
+      q(7096) => q(wer),
+      q(7097) => q(wes),
+      q(7098) => q(wet),
+      q(7099) => q(weu),
+      q(7100) => q(wew),
+      q(7101) => q(wfg),
+      q(7102) => q(wga),
+      q(7103) => q(wgb),
+      q(7104) => q(wgg),
+      q(7105) => q(wgi),
+      q(7106) => q(wgo),
+      q(7107) => q(wgu),
+      q(7108) => q(wgy),
+      q(7109) => q(wha),
+      q(7110) => q(whg),
+      q(7111) => q(whk),
+      q(7112) => q(whu),
+      q(7113) => q(wib),
+      q(7114) => q(wic),
+      q(7115) => q(wie),
+      q(7116) => q(wif),
+      q(7117) => q(wig),
+      q(7118) => q(wih),
+      q(7119) => q(wii),
+      q(7120) => q(wij),
+      q(7121) => q(wik),
+      q(7122) => q(wil),
+      q(7123) => q(wim),
+      q(7124) => q(win),
+      q(7125) => q(wir),
+      q(7126) => q(wiu),
+      q(7127) => q(wiv),
+      q(7128) => q(wiy),
+      q(7129) => q(wja),
+      q(7130) => q(wji),
+      q(7131) => q(wka),
+      q(7132) => q(wkb),
+      q(7133) => q(wkd),
+      q(7134) => q(wkl),
+      q(7135) => q(wku),
+      q(7136) => q(wkw),
+      q(7137) => q(wky),
+      q(7138) => q(wla),
+      q(7139) => q(wlc),
+      q(7140) => q(wle),
+      q(7141) => q(wlg),
+      q(7142) => q(wli),
+      q(7143) => q(wlk),
+      q(7144) => q(wll),
+      q(7145) => q(wlm),
+      q(7146) => q(wlo),
+      q(7147) => q(wlr),
+      q(7148) => q(wls),
+      q(7149) => q(wlu),
+      q(7150) => q(wlv),
+      q(7151) => q(wlw),
+      q(7152) => q(wlx),
+      q(7153) => q(wly),
+      q(7154) => q(wma),
+      q(7155) => q(wmb),
+      q(7156) => q(wmc),
+      q(7157) => q(wmd),
+      q(7158) => q(wme),
+      q(7159) => q(wmh),
+      q(7160) => q(wmi),
+      q(7161) => q(wmm),
+      q(7162) => q(wmn),
+      q(7163) => q(wmo),
+      q(7164) => q(wms),
+      q(7165) => q(wmt),
+      q(7166) => q(wmw),
+      q(7167) => q(wmx),
+      q(7168) => q(wnb),
+      q(7169) => q(wnc),
+      q(7170) => q(wnd),
+      q(7171) => q(wne),
+      q(7172) => q(wng),
+      q(7173) => q(wni),
+      q(7174) => q(wnk),
+      q(7175) => q(wnm),
+      q(7176) => q(wnn),
+      q(7177) => q(wno),
+      q(7178) => q(wnp),
+      q(7179) => q(wnu),
+      q(7180) => q(wnw),
+      q(7181) => q(wny),
+      q(7182) => q(woa),
+      q(7183) => q(wob),
+      q(7184) => q(woc),
+      q(7185) => q(wod),
+      q(7186) => q(woe),
+      q(7187) => q(wof),
+      q(7188) => q(wog),
+      q(7189) => q(woi),
+      q(7190) => q(wok),
+      q(7191) => q(wom),
+      q(7192) => q(won),
+      q(7193) => q(woo),
+      q(7194) => q(wor),
+      q(7195) => q(wos),
+      q(7196) => q(wow),
+      q(7197) => q(woy),
+      q(7198) => q(wpc),
+      q(7199) => q(wra),
+      q(7200) => q(wrb),
+      q(7201) => q(wrd),
+      q(7202) => q(wrg),
+      q(7203) => q(wrh),
+      q(7204) => q(wri),
+      q(7205) => q(wrk),
+      q(7206) => q(wrl),
+      q(7207) => q(wrm),
+      q(7208) => q(wrn),
+      q(7209) => q(wro),
+      q(7210) => q(wrp),
+      q(7211) => q(wrr),
+      q(7212) => q(wrs),
+      q(7213) => q(wru),
+      q(7214) => q(wrv),
+      q(7215) => q(wrw),
+      q(7216) => q(wrx),
+      q(7217) => q(wry),
+      q(7218) => q(wrz),
+      q(7219) => q(wsa),
+      q(7220) => q(wsg),
+      q(7221) => q(wsi),
+      q(7222) => q(wsk),
+      q(7223) => q(wsr),
+      q(7224) => q(wss),
+      q(7225) => q(wsu),
+      q(7226) => q(wsv),
+      q(7227) => q(wtf),
+      q(7228) => q(wth),
+      q(7229) => q(wti),
+      q(7230) => q(wtk),
+      q(7231) => q(wtm),
+      q(7232) => q(wtw),
+      q(7233) => q(wua),
+      q(7234) => q(wub),
+      q(7235) => q(wud),
+      q(7236) => q(wuh),
+      q(7237) => q(wul),
+      q(7238) => q(wum),
+      q(7239) => q(wun),
+      q(7240) => q(wur),
+      q(7241) => q(wut),
+      q(7242) => q(wuu),
+      q(7243) => q(wuv),
+      q(7244) => q(wux),
+      q(7245) => q(wuy),
+      q(7246) => q(wwa),
+      q(7247) => q(wwb),
+      q(7248) => q(wwo),
+      q(7249) => q(wwr),
+      q(7250) => q(www),
+      q(7251) => q(wxa),
+      q(7252) => q(wxw),
+      q(7253) => q(wya),
+      q(7254) => q(wyb),
+      q(7255) => q(wyi),
+      q(7256) => q(wym),
+      q(7257) => q(wyr),
+      q(7258) => q(wyy),
+      q(7259) => q(xaa),
+      q(7260) => q(xab),
+      q(7261) => q(xac),
+      q(7262) => q(xad),
+      q(7263) => q(xae),
+      q(7264) => q(xag),
+      q(7265) => q(xai),
+      q(7266) => q(xaj),
+      q(7267) => q(xak),
+      q(7268) => q(xam),
+      q(7269) => q(xan),
+      q(7270) => q(xao),
+      q(7271) => q(xap),
+      q(7272) => q(xaq),
+      q(7273) => q(xar),
+      q(7274) => q(xas),
+      q(7275) => q(xat),
+      q(7276) => q(xau),
+      q(7277) => q(xav),
+      q(7278) => q(xaw),
+      q(7279) => q(xay),
+      q(7280) => q(xbb),
+      q(7281) => q(xbc),
+      q(7282) => q(xbd),
+      q(7283) => q(xbe),
+      q(7284) => q(xbg),
+      q(7285) => q(xbi),
+      q(7286) => q(xbj),
+      q(7287) => q(xbm),
+      q(7288) => q(xbn),
+      q(7289) => q(xbo),
+      q(7290) => q(xbp),
+      q(7291) => q(xbr),
+      q(7292) => q(xbw),
+      q(7293) => q(xby),
+      q(7294) => q(xcb),
+      q(7295) => q(xcc),
+      q(7296) => q(xce),
+      q(7297) => q(xcg),
+      q(7298) => q(xch),
+      q(7299) => q(xcl),
+      q(7300) => q(xcm),
+      q(7301) => q(xcn),
+      q(7302) => q(xco),
+      q(7303) => q(xcr),
+      q(7304) => q(xct),
+      q(7305) => q(xcu),
+      q(7306) => q(xcv),
+      q(7307) => q(xcw),
+      q(7308) => q(xcy),
+      q(7309) => q(xda),
+      q(7310) => q(xdc),
+      q(7311) => q(xdk),
+      q(7312) => q(xdm),
+      q(7313) => q(xdo),
+      q(7314) => q(xdy),
+      q(7315) => q(xeb),
+      q(7316) => q(xed),
+      q(7317) => q(xeg),
+      q(7318) => q(xel),
+      q(7319) => q(xem),
+      q(7320) => q(xep),
+      q(7321) => q(xer),
+      q(7322) => q(xes),
+      q(7323) => q(xet),
+      q(7324) => q(xeu),
+      q(7325) => q(xfa),
+      q(7326) => q(xga),
+      q(7327) => q(xgb),
+      q(7328) => q(xgd),
+      q(7329) => q(xgf),
+      q(7330) => q(xgg),
+      q(7331) => q(xgi),
+      q(7332) => q(xgl),
+      q(7333) => q(xgm),
+      q(7334) => q(xgr),
+      q(7335) => q(xgu),
+      q(7336) => q(xgw),
+      q(7337) => q(xha),
+      q(7338) => q(xhc),
+      q(7339) => q(xhd),
+      q(7340) => q(xhe),
+      q(7341) => q(xhr),
+      q(7342) => q(xht),
+      q(7343) => q(xhu),
+      q(7344) => q(xhv),
+      q(7345) => q(xib),
+      q(7346) => q(xii),
+      q(7347) => q(xil),
+      q(7348) => q(xin),
+      q(7349) => q(xir),
+      q(7350) => q(xis),
+      q(7351) => q(xiv),
+      q(7352) => q(xiy),
+      q(7353) => q(xjb),
+      q(7354) => q(xjt),
+      q(7355) => q(xka),
+      q(7356) => q(xkb),
+      q(7357) => q(xkc),
+      q(7358) => q(xkd),
+      q(7359) => q(xke),
+      q(7360) => q(xkf),
+      q(7361) => q(xkg),
+      q(7362) => q(xki),
+      q(7363) => q(xkj),
+      q(7364) => q(xkk),
+      q(7365) => q(xkl),
+      q(7366) => q(xkn),
+      q(7367) => q(xko),
+      q(7368) => q(xkp),
+      q(7369) => q(xkq),
+      q(7370) => q(xkr),
+      q(7371) => q(xks),
+      q(7372) => q(xkt),
+      q(7373) => q(xku),
+      q(7374) => q(xkv),
+      q(7375) => q(xkw),
+      q(7376) => q(xkx),
+      q(7377) => q(xky),
+      q(7378) => q(xkz),
+      q(7379) => q(xla),
+      q(7380) => q(xlb),
+      q(7381) => q(xlc),
+      q(7382) => q(xld),
+      q(7383) => q(xle),
+      q(7384) => q(xlg),
+      q(7385) => q(xli),
+      q(7386) => q(xln),
+      q(7387) => q(xlo),
+      q(7388) => q(xlp),
+      q(7389) => q(xls),
+      q(7390) => q(xlu),
+      q(7391) => q(xly),
+      q(7392) => q(xma),
+      q(7393) => q(xmb),
+      q(7394) => q(xmc),
+      q(7395) => q(xmd),
+      q(7396) => q(xme),
+      q(7397) => q(xmf),
+      q(7398) => q(xmg),
+      q(7399) => q(xmh),
+      q(7400) => q(xmj),
+      q(7401) => q(xmk),
+      q(7402) => q(xml),
+      q(7403) => q(xmm),
+      q(7404) => q(xmn),
+      q(7405) => q(xmo),
+      q(7406) => q(xmp),
+      q(7407) => q(xmq),
+      q(7408) => q(xmr),
+      q(7409) => q(xms),
+      q(7410) => q(xmt),
+      q(7411) => q(xmu),
+      q(7412) => q(xmv),
+      q(7413) => q(xmw),
+      q(7414) => q(xmx),
+      q(7415) => q(xmy),
+      q(7416) => q(xmz),
+      q(7417) => q(xna),
+      q(7418) => q(xnb),
+      q(7419) => q(xng),
+      q(7420) => q(xnh),
+      q(7421) => q(xni),
+      q(7422) => q(xnk),
+      q(7423) => q(xnn),
+      q(7424) => q(xno),
+      q(7425) => q(xnr),
+      q(7426) => q(xns),
+      q(7427) => q(xnt),
+      q(7428) => q(xnu),
+      q(7429) => q(xny),
+      q(7430) => q(xnz),
+      q(7431) => q(xoc),
+      q(7432) => q(xod),
+      q(7433) => q(xog),
+      q(7434) => q(xoi),
+      q(7435) => q(xok),
+      q(7436) => q(xom),
+      q(7437) => q(xon),
+      q(7438) => q(xoo),
+      q(7439) => q(xop),
+      q(7440) => q(xor),
+      q(7441) => q(xow),
+      q(7442) => q(xpa),
+      q(7443) => q(xpc),
+      q(7444) => q(xpe),
+      q(7445) => q(xpg),
+      q(7446) => q(xpi),
+      q(7447) => q(xpj),
+      q(7448) => q(xpk),
+      q(7449) => q(xpm),
+      q(7450) => q(xpn),
+      q(7451) => q(xpo),
+      q(7452) => q(xpp),
+      q(7453) => q(xpq),
+      q(7454) => q(xpr),
+      q(7455) => q(xps),
+      q(7456) => q(xpt),
+      q(7457) => q(xpu),
+      q(7458) => q(xpy),
+      q(7459) => q(xqa),
+      q(7460) => q(xqt),
+      q(7461) => q(xra),
+      q(7462) => q(xrb),
+      q(7463) => q(xrd),
+      q(7464) => q(xre),
+      q(7465) => q(xrg),
+      q(7466) => q(xri),
+      q(7467) => q(xrm),
+      q(7468) => q(xrn),
+      q(7469) => q(xrq),
+      q(7470) => q(xrr),
+      q(7471) => q(xrt),
+      q(7472) => q(xru),
+      q(7473) => q(xrw),
+      q(7474) => q(xsa),
+      q(7475) => q(xsb),
+      q(7476) => q(xsc),
+      q(7477) => q(xsd),
+      q(7478) => q(xse),
+      q(7479) => q(xsh),
+      q(7480) => q(xsi),
+      q(7481) => q(xsl),
+      q(7482) => q(xsm),
+      q(7483) => q(xsn),
+      q(7484) => q(xso),
+      q(7485) => q(xsp),
+      q(7486) => q(xsq),
+      q(7487) => q(xsr),
+      q(7488) => q(xss),
+      q(7489) => q(xsu),
+      q(7490) => q(xsv),
+      q(7491) => q(xsy),
+      q(7492) => q(xta),
+      q(7493) => q(xtb),
+      q(7494) => q(xtc),
+      q(7495) => q(xtd),
+      q(7496) => q(xte),
+      q(7497) => q(xtg),
+      q(7498) => q(xth),
+      q(7499) => q(xti),
+      q(7500) => q(xtj),
+      q(7501) => q(xtl),
+      q(7502) => q(xtm),
+      q(7503) => q(xtn),
+      q(7504) => q(xto),
+      q(7505) => q(xtp),
+      q(7506) => q(xtq),
+      q(7507) => q(xtr),
+      q(7508) => q(xts),
+      q(7509) => q(xtt),
+      q(7510) => q(xtu),
+      q(7511) => q(xtv),
+      q(7512) => q(xtw),
+      q(7513) => q(xty),
+      q(7514) => q(xtz),
+      q(7515) => q(xua),
+      q(7516) => q(xub),
+      q(7517) => q(xud),
+      q(7518) => q(xug),
+      q(7519) => q(xuj),
+      q(7520) => q(xul),
+      q(7521) => q(xum),
+      q(7522) => q(xun),
+      q(7523) => q(xuo),
+      q(7524) => q(xup),
+      q(7525) => q(xur),
+      q(7526) => q(xut),
+      q(7527) => q(xuu),
+      q(7528) => q(xve),
+      q(7529) => q(xvi),
+      q(7530) => q(xvn),
+      q(7531) => q(xvo),
+      q(7532) => q(xvs),
+      q(7533) => q(xwa),
+      q(7534) => q(xwc),
+      q(7535) => q(xwd),
+      q(7536) => q(xwe),
+      q(7537) => q(xwg),
+      q(7538) => q(xwj),
+      q(7539) => q(xwk),
+      q(7540) => q(xwl),
+      q(7541) => q(xwo),
+      q(7542) => q(xwr),
+      q(7543) => q(xwt),
+      q(7544) => q(xww),
+      q(7545) => q(xxb),
+      q(7546) => q(xxk),
+      q(7547) => q(xxm),
+      q(7548) => q(xxr),
+      q(7549) => q(xxt),
+      q(7550) => q(xya),
+      q(7551) => q(xyb),
+      q(7552) => q(xyj),
+      q(7553) => q(xyk),
+      q(7554) => q(xyl),
+      q(7555) => q(xyt),
+      q(7556) => q(xyy),
+      q(7557) => q(xzh),
+      q(7558) => q(xzm),
+      q(7559) => q(xzp),
+      q(7560) => q(yaa),
+      q(7561) => q(yab),
+      q(7562) => q(yac),
+      q(7563) => q(yad),
+      q(7564) => q(yae),
+      q(7565) => q(yaf),
+      q(7566) => q(yag),
+      q(7567) => q(yah),
+      q(7568) => q(yai),
+      q(7569) => q(yaj),
+      q(7570) => q(yak),
+      q(7571) => q(yal),
+      q(7572) => q(yam),
+      q(7573) => q(yan),
+      q(7574) => q(yaq),
+      q(7575) => q(yar),
+      q(7576) => q(yas),
+      q(7577) => q(yat),
+      q(7578) => q(yau),
+      q(7579) => q(yav),
+      q(7580) => q(yaw),
+      q(7581) => q(yax),
+      q(7582) => q(yay),
+      q(7583) => q(yaz),
+      q(7584) => q(yba),
+      q(7585) => q(ybb),
+      q(7586) => q(ybe),
+      q(7587) => q(ybh),
+      q(7588) => q(ybi),
+      q(7589) => q(ybj),
+      q(7590) => q(ybk),
+      q(7591) => q(ybl),
+      q(7592) => q(ybm),
+      q(7593) => q(ybn),
+      q(7594) => q(ybo),
+      q(7595) => q(ybx),
+      q(7596) => q(yby),
+      q(7597) => q(ych),
+      q(7598) => q(ycl),
+      q(7599) => q(ycn),
+      q(7600) => q(ycp),
+      q(7601) => q(yda),
+      q(7602) => q(ydd),
+      q(7603) => q(yde),
+      q(7604) => q(ydg),
+      q(7605) => q(ydk),
+      q(7606) => q(yea),
+      q(7607) => q(yec),
+      q(7608) => q(yee),
+      q(7609) => q(yei),
+      q(7610) => q(yej),
+      q(7611) => q(yel),
+      q(7612) => q(yer),
+      q(7613) => q(yes),
+      q(7614) => q(yet),
+      q(7615) => q(yeu),
+      q(7616) => q(yev),
+      q(7617) => q(yey),
+      q(7618) => q(yga),
+      q(7619) => q(ygi),
+      q(7620) => q(ygl),
+      q(7621) => q(ygm),
+      q(7622) => q(ygp),
+      q(7623) => q(ygr),
+      q(7624) => q(ygs),
+      q(7625) => q(ygu),
+      q(7626) => q(ygw),
+      q(7627) => q(yha),
+      q(7628) => q(yhd),
+      q(7629) => q(yhl),
+      q(7630) => q(yhs),
+      q(7631) => q(yia),
+      q(7632) => q(yig),
+      q(7633) => q(yih),
+      q(7634) => q(yii),
+      q(7635) => q(yij),
+      q(7636) => q(yik),
+      q(7637) => q(yil),
+      q(7638) => q(yim),
+      q(7639) => q(yin),
+      q(7640) => q(yip),
+      q(7641) => q(yiq),
+      q(7642) => q(yir),
+      q(7643) => q(yis),
+      q(7644) => q(yit),
+      q(7645) => q(yiu),
+      q(7646) => q(yiv),
+      q(7647) => q(yix),
+      q(7648) => q(yiz),
+      q(7649) => q(yka),
+      q(7650) => q(ykg),
+      q(7651) => q(yki),
+      q(7652) => q(ykk),
+      q(7653) => q(ykl),
+      q(7654) => q(ykm),
+      q(7655) => q(ykn),
+      q(7656) => q(yko),
+      q(7657) => q(ykr),
+      q(7658) => q(ykt),
+      q(7659) => q(yku),
+      q(7660) => q(yky),
+      q(7661) => q(yla),
+      q(7662) => q(ylb),
+      q(7663) => q(yle),
+      q(7664) => q(ylg),
+      q(7665) => q(yli),
+      q(7666) => q(yll),
+      q(7667) => q(ylm),
+      q(7668) => q(yln),
+      q(7669) => q(ylo),
+      q(7670) => q(ylr),
+      q(7671) => q(ylu),
+      q(7672) => q(yly),
+      q(7673) => q(ymb),
+      q(7674) => q(ymc),
+      q(7675) => q(ymd),
+      q(7676) => q(yme),
+      q(7677) => q(ymg),
+      q(7678) => q(ymh),
+      q(7679) => q(ymi),
+      q(7680) => q(ymk),
+      q(7681) => q(yml),
+      q(7682) => q(ymm),
+      q(7683) => q(ymn),
+      q(7684) => q(ymo),
+      q(7685) => q(ymp),
+      q(7686) => q(ymq),
+      q(7687) => q(ymr),
+      q(7688) => q(yms),
+      q(7689) => q(ymx),
+      q(7690) => q(ymz),
+      q(7691) => q(yna),
+      q(7692) => q(ynd),
+      q(7693) => q(yne),
+      q(7694) => q(yng),
+      q(7695) => q(ynk),
+      q(7696) => q(ynl),
+      q(7697) => q(ynn),
+      q(7698) => q(yno),
+      q(7699) => q(ynq),
+      q(7700) => q(yns),
+      q(7701) => q(ynu),
+      q(7702) => q(yob),
+      q(7703) => q(yog),
+      q(7704) => q(yoi),
+      q(7705) => q(yok),
+      q(7706) => q(yol),
+      q(7707) => q(yom),
+      q(7708) => q(yon),
+      q(7709) => q(yot),
+      q(7710) => q(yox),
+      q(7711) => q(yoy),
+      q(7712) => q(ypa),
+      q(7713) => q(ypb),
+      q(7714) => q(ypg),
+      q(7715) => q(yph),
+      q(7716) => q(ypm),
+      q(7717) => q(ypn),
+      q(7718) => q(ypo),
+      q(7719) => q(ypp),
+      q(7720) => q(ypz),
+      q(7721) => q(yra),
+      q(7722) => q(yrb),
+      q(7723) => q(yre),
+      q(7724) => q(yrk),
+      q(7725) => q(yrl),
+      q(7726) => q(yrm),
+      q(7727) => q(yrn),
+      q(7728) => q(yro),
+      q(7729) => q(yrs),
+      q(7730) => q(yrw),
+      q(7731) => q(yry),
+      q(7732) => q(ysc),
+      q(7733) => q(ysd),
+      q(7734) => q(ysg),
+      q(7735) => q(ysl),
+      q(7736) => q(ysn),
+      q(7737) => q(yso),
+      q(7738) => q(ysp),
+      q(7739) => q(ysr),
+      q(7740) => q(yss),
+      q(7741) => q(ysy),
+      q(7742) => q(yta),
+      q(7743) => q(ytl),
+      q(7744) => q(ytp),
+      q(7745) => q(ytw),
+      q(7746) => q(yty),
+      q(7747) => q(yua),
+      q(7748) => q(yub),
+      q(7749) => q(yuc),
+      q(7750) => q(yud),
+      q(7751) => q(yue),
+      q(7752) => q(yuf),
+      q(7753) => q(yug),
+      q(7754) => q(yui),
+      q(7755) => q(yuj),
+      q(7756) => q(yuk),
+      q(7757) => q(yul),
+      q(7758) => q(yum),
+      q(7759) => q(yun),
+      q(7760) => q(yup),
+      q(7761) => q(yuq),
+      q(7762) => q(yur),
+      q(7763) => q(yut),
+      q(7764) => q(yuw),
+      q(7765) => q(yux),
+      q(7766) => q(yuy),
+      q(7767) => q(yuz),
+      q(7768) => q(yva),
+      q(7769) => q(yvt),
+      q(7770) => q(ywa),
+      q(7771) => q(ywg),
+      q(7772) => q(ywl),
+      q(7773) => q(ywn),
+      q(7774) => q(ywq),
+      q(7775) => q(ywr),
+      q(7776) => q(ywt),
+      q(7777) => q(ywu),
+      q(7778) => q(yww),
+      q(7779) => q(yxa),
+      q(7780) => q(yxg),
+      q(7781) => q(yxl),
+      q(7782) => q(yxm),
+      q(7783) => q(yxu),
+      q(7784) => q(yxy),
+      q(7785) => q(yyr),
+      q(7786) => q(yyu),
+      q(7787) => q(yyz),
+      q(7788) => q(yzg),
+      q(7789) => q(yzk),
+      q(7790) => q(zaa),
+      q(7791) => q(zab),
+      q(7792) => q(zac),
+      q(7793) => q(zad),
+      q(7794) => q(zae),
+      q(7795) => q(zaf),
+      q(7796) => q(zag),
+      q(7797) => q(zah),
+      q(7798) => q(zai),
+      q(7799) => q(zaj),
+      q(7800) => q(zak),
+      q(7801) => q(zal),
+      q(7802) => q(zam),
+      q(7803) => q(zao),
+      q(7804) => q(zaq),
+      q(7805) => q(zar),
+      q(7806) => q(zas),
+      q(7807) => q(zat),
+      q(7808) => q(zau),
+      q(7809) => q(zav),
+      q(7810) => q(zaw),
+      q(7811) => q(zax),
+      q(7812) => q(zay),
+      q(7813) => q(zaz),
+      q(7814) => q(zbc),
+      q(7815) => q(zbe),
+      q(7816) => q(zbt),
+      q(7817) => q(zbw),
+      q(7818) => q(zca),
+      q(7819) => q(zch),
+      q(7820) => q(zdj),
+      q(7821) => q(zea),
+      q(7822) => q(zeg),
+      q(7823) => q(zeh),
+      q(7824) => q(zga),
+      q(7825) => q(zgb),
+      q(7826) => q(zgm),
+      q(7827) => q(zgn),
+      q(7828) => q(zgr),
+      q(7829) => q(zhb),
+      q(7830) => q(zhd),
+      q(7831) => q(zhi),
+      q(7832) => q(zhn),
+      q(7833) => q(zhw),
+      q(7834) => q(zia),
+      q(7835) => q(zib),
+      q(7836) => q(zik),
+      q(7837) => q(zil),
+      q(7838) => q(zim),
+      q(7839) => q(zin),
+      q(7840) => q(zir),
+      q(7841) => q(ziw),
+      q(7842) => q(ziz),
+      q(7843) => q(zka),
+      q(7844) => q(zkb),
+      q(7845) => q(zkd),
+      q(7846) => q(zkg),
+      q(7847) => q(zkh),
+      q(7848) => q(zkk),
+      q(7849) => q(zkn),
+      q(7850) => q(zko),
+      q(7851) => q(zkp),
+      q(7852) => q(zkr),
+      q(7853) => q(zkt),
+      q(7854) => q(zku),
+      q(7855) => q(zkv),
+      q(7856) => q(zkz),
+      q(7857) => q(zlj),
+      q(7858) => q(zlm),
+      q(7859) => q(zln),
+      q(7860) => q(zlq),
+      q(7861) => q(zma),
+      q(7862) => q(zmb),
+      q(7863) => q(zmc),
+      q(7864) => q(zmd),
+      q(7865) => q(zme),
+      q(7866) => q(zmf),
+      q(7867) => q(zmg),
+      q(7868) => q(zmh),
+      q(7869) => q(zmi),
+      q(7870) => q(zmj),
+      q(7871) => q(zmk),
+      q(7872) => q(zml),
+      q(7873) => q(zmm),
+      q(7874) => q(zmn),
+      q(7875) => q(zmo),
+      q(7876) => q(zmp),
+      q(7877) => q(zmq),
+      q(7878) => q(zmr),
+      q(7879) => q(zms),
+      q(7880) => q(zmt),
+      q(7881) => q(zmu),
+      q(7882) => q(zmv),
+      q(7883) => q(zmw),
+      q(7884) => q(zmx),
+      q(7885) => q(zmy),
+      q(7886) => q(zmz),
+      q(7887) => q(zna),
+      q(7888) => q(zne),
+      q(7889) => q(zng),
+      q(7890) => q(znk),
+      q(7891) => q(zns),
+      q(7892) => q(zoc),
+      q(7893) => q(zoh),
+      q(7894) => q(zom),
+      q(7895) => q(zoo),
+      q(7896) => q(zoq),
+      q(7897) => q(zor),
+      q(7898) => q(zos),
+      q(7899) => q(zpa),
+      q(7900) => q(zpb),
+      q(7901) => q(zpc),
+      q(7902) => q(zpd),
+      q(7903) => q(zpe),
+      q(7904) => q(zpf),
+      q(7905) => q(zpg),
+      q(7906) => q(zph),
+      q(7907) => q(zpi),
+      q(7908) => q(zpj),
+      q(7909) => q(zpk),
+      q(7910) => q(zpl),
+      q(7911) => q(zpm),
+      q(7912) => q(zpn),
+      q(7913) => q(zpo),
+      q(7914) => q(zpp),
+      q(7915) => q(zpq),
+      q(7916) => q(zpr),
+      q(7917) => q(zps),
+      q(7918) => q(zpt),
+      q(7919) => q(zpu),
+      q(7920) => q(zpv),
+      q(7921) => q(zpw),
+      q(7922) => q(zpx),
+      q(7923) => q(zpy),
+      q(7924) => q(zpz),
+      q(7925) => q(zqe),
+      q(7926) => q(zra),
+      q(7927) => q(zrg),
+      q(7928) => q(zrn),
+      q(7929) => q(zro),
+      q(7930) => q(zrp),
+      q(7931) => q(zrs),
+      q(7932) => q(zsa),
+      q(7933) => q(zsk),
+      q(7934) => q(zsl),
+      q(7935) => q(zsm),
+      q(7936) => q(zsr),
+      q(7937) => q(zsu),
+      q(7938) => q(zte),
+      q(7939) => q(ztg),
+      q(7940) => q(ztl),
+      q(7941) => q(ztm),
+      q(7942) => q(ztn),
+      q(7943) => q(ztp),
+      q(7944) => q(ztq),
+      q(7945) => q(zts),
+      q(7946) => q(ztt),
+      q(7947) => q(ztu),
+      q(7948) => q(ztx),
+      q(7949) => q(zty),
+      q(7950) => q(zua),
+      q(7951) => q(zuh),
+      q(7952) => q(zum),
+      q(7953) => q(zuy),
+      q(7954) => q(zwa),
+      q(7955) => q(zyb),
+      q(7956) => q(zyg),
+      q(7957) => q(zyj),
+      q(7958) => q(zyn),
+      q(7959) => q(zyp),
+      q(7960) => q(zzj),
+      },
+   q(term) => {
+      q(0001) => q(aar),
+      q(0002) => q(abk),
+      q(0003) => q(ace),
+      q(0004) => q(ach),
+      q(0005) => q(ada),
+      q(0006) => q(ady),
+      q(0007) => q(afa),
+      q(0008) => q(afh),
+      q(0009) => q(afr),
+      q(0010) => q(ain),
+      q(0011) => q(aka),
+      q(0012) => q(akk),
+      q(0013) => q(sqi),
+      q(0014) => q(ale),
+      q(0015) => q(alg),
+      q(0016) => q(alt),
+      q(0017) => q(amh),
+      q(0018) => q(ang),
+      q(0019) => q(anp),
+      q(0020) => q(apa),
+      q(0021) => q(ara),
+      q(0022) => q(arc),
+      q(0023) => q(arg),
+      q(0024) => q(hye),
+      q(0025) => q(arn),
+      q(0026) => q(arp),
+      q(0027) => q(art),
+      q(0028) => q(arw),
+      q(0029) => q(asm),
+      q(0030) => q(ast),
+      q(0031) => q(ath),
+      q(0032) => q(aus),
+      q(0033) => q(ava),
+      q(0034) => q(ave),
+      q(0035) => q(awa),
+      q(0036) => q(aym),
+      q(0037) => q(aze),
+      q(0038) => q(bad),
+      q(0039) => q(bai),
+      q(0040) => q(bak),
+      q(0041) => q(bal),
+      q(0042) => q(bam),
+      q(0043) => q(ban),
+      q(0044) => q(eus),
+      q(0045) => q(bas),
+      q(0046) => q(bat),
+      q(0047) => q(bej),
+      q(0048) => q(bel),
+      q(0049) => q(bem),
+      q(0050) => q(ben),
+      q(0051) => q(ber),
+      q(0052) => q(bho),
+      q(0053) => q(bih),
+      q(0054) => q(bik),
+      q(0055) => q(bin),
+      q(0056) => q(bis),
+      q(0057) => q(bla),
+      q(0058) => q(bnt),
+      q(0059) => q(bos),
+      q(0060) => q(bra),
+      q(0061) => q(bre),
+      q(0062) => q(btk),
+      q(0063) => q(bua),
+      q(0064) => q(bug),
+      q(0065) => q(bul),
+      q(0066) => q(mya),
+      q(0067) => q(byn),
+      q(0068) => q(cad),
+      q(0069) => q(cai),
+      q(0070) => q(car),
+      q(0071) => q(cat),
+      q(0072) => q(cau),
+      q(0073) => q(ceb),
+      q(0074) => q(cel),
+      q(0075) => q(cha),
+      q(0076) => q(chb),
+      q(0077) => q(che),
+      q(0078) => q(chg),
+      q(0079) => q(zho),
+      q(0080) => q(chk),
+      q(0081) => q(chm),
+      q(0082) => q(chn),
+      q(0083) => q(cho),
+      q(0084) => q(chp),
+      q(0085) => q(chr),
+      q(0086) => q(chu),
+      q(0087) => q(chv),
+      q(0088) => q(chy),
+      q(0089) => q(cmc),
+      q(0090) => q(cnr),
+      q(0091) => q(cop),
+      q(0092) => q(cor),
+      q(0093) => q(cos),
+      q(0094) => q(cpe),
+      q(0095) => q(cpf),
+      q(0096) => q(cpp),
+      q(0097) => q(cre),
+      q(0098) => q(crh),
+      q(0099) => q(crp),
+      q(0100) => q(csb),
+      q(0101) => q(cus),
+      q(0102) => q(ces),
+      q(0103) => q(dak),
+      q(0104) => q(dan),
+      q(0105) => q(dar),
+      q(0106) => q(day),
+      q(0107) => q(del),
+      q(0108) => q(den),
+      q(0109) => q(dgr),
+      q(0110) => q(din),
+      q(0111) => q(div),
+      q(0112) => q(doi),
+      q(0113) => q(dra),
+      q(0114) => q(dsb),
+      q(0115) => q(dua),
+      q(0116) => q(dum),
+      q(0117) => q(nld),
+      q(0118) => q(dyu),
+      q(0119) => q(dzo),
+      q(0120) => q(efi),
+      q(0121) => q(egy),
+      q(0122) => q(eka),
+      q(0123) => q(elx),
+      q(0124) => q(eng),
+      q(0125) => q(enm),
+      q(0126) => q(epo),
+      q(0127) => q(est),
+      q(0128) => q(ewe),
+      q(0129) => q(ewo),
+      q(0130) => q(fan),
+      q(0131) => q(fao),
+      q(0132) => q(fat),
+      q(0133) => q(fij),
+      q(0134) => q(fil),
+      q(0135) => q(fin),
+      q(0136) => q(fiu),
+      q(0137) => q(fon),
+      q(0138) => q(fra),
+      q(0139) => q(frm),
+      q(0140) => q(fro),
+      q(0141) => q(frr),
+      q(0142) => q(frs),
+      q(0143) => q(fry),
+      q(0144) => q(ful),
+      q(0145) => q(fur),
+      q(0146) => q(gaa),
+      q(0147) => q(gay),
+      q(0148) => q(gba),
+      q(0149) => q(gem),
+      q(0150) => q(kat),
+      q(0151) => q(deu),
+      q(0152) => q(gez),
+      q(0153) => q(gil),
+      q(0154) => q(gla),
+      q(0155) => q(gle),
+      q(0156) => q(glg),
+      q(0157) => q(glv),
+      q(0158) => q(gmh),
+      q(0159) => q(goh),
+      q(0160) => q(gon),
+      q(0161) => q(gor),
+      q(0162) => q(got),
+      q(0163) => q(grb),
+      q(0164) => q(grc),
+      q(0165) => q(ell),
+      q(0166) => q(grn),
+      q(0167) => q(gsw),
+      q(0168) => q(guj),
+      q(0169) => q(gwi),
+      q(0170) => q(hai),
+      q(0171) => q(hat),
+      q(0172) => q(hau),
+      q(0173) => q(haw),
+      q(0174) => q(heb),
+      q(0175) => q(her),
+      q(0176) => q(hil),
+      q(0177) => q(him),
+      q(0178) => q(hin),
+      q(0179) => q(hit),
+      q(0180) => q(hmn),
+      q(0181) => q(hmo),
+      q(0182) => q(hrv),
+      q(0183) => q(hsb),
+      q(0184) => q(hun),
+      q(0185) => q(hup),
+      q(0186) => q(iba),
+      q(0187) => q(ibo),
+      q(0188) => q(isl),
+      q(0189) => q(ido),
+      q(0190) => q(iii),
+      q(0191) => q(ijo),
+      q(0192) => q(iku),
+      q(0193) => q(ile),
+      q(0194) => q(ilo),
+      q(0195) => q(ina),
+      q(0196) => q(inc),
+      q(0197) => q(ind),
+      q(0198) => q(ine),
+      q(0199) => q(inh),
+      q(0200) => q(ipk),
+      q(0201) => q(ira),
+      q(0202) => q(iro),
+      q(0203) => q(ita),
+      q(0204) => q(jav),
+      q(0205) => q(jbo),
+      q(0206) => q(jpn),
+      q(0207) => q(jpr),
+      q(0208) => q(jrb),
+      q(0209) => q(kaa),
+      q(0210) => q(kab),
+      q(0211) => q(kac),
+      q(0212) => q(kal),
+      q(0213) => q(kam),
+      q(0214) => q(kan),
+      q(0215) => q(kar),
+      q(0216) => q(kas),
+      q(0217) => q(kau),
+      q(0218) => q(kaw),
+      q(0219) => q(kaz),
+      q(0220) => q(kbd),
+      q(0221) => q(kha),
+      q(0222) => q(khi),
+      q(0223) => q(khm),
+      q(0224) => q(kho),
+      q(0225) => q(kik),
+      q(0226) => q(kin),
+      q(0227) => q(kir),
+      q(0228) => q(kmb),
+      q(0229) => q(kok),
+      q(0230) => q(kom),
+      q(0231) => q(kon),
+      q(0232) => q(kor),
+      q(0233) => q(kos),
+      q(0234) => q(kpe),
+      q(0235) => q(krc),
+      q(0236) => q(krl),
+      q(0237) => q(kro),
+      q(0238) => q(kru),
+      q(0239) => q(kua),
+      q(0240) => q(kum),
+      q(0241) => q(kur),
+      q(0242) => q(kut),
+      q(0243) => q(lad),
+      q(0244) => q(lah),
+      q(0245) => q(lam),
+      q(0246) => q(lao),
+      q(0247) => q(lat),
+      q(0248) => q(lav),
+      q(0249) => q(lez),
+      q(0250) => q(lim),
+      q(0251) => q(lin),
+      q(0252) => q(lit),
+      q(0253) => q(lol),
+      q(0254) => q(loz),
+      q(0255) => q(ltz),
+      q(0256) => q(lua),
+      q(0257) => q(lub),
+      q(0258) => q(lug),
+      q(0259) => q(lui),
+      q(0260) => q(lun),
+      q(0261) => q(luo),
+      q(0262) => q(lus),
+      q(0263) => q(mkd),
+      q(0264) => q(mad),
+      q(0265) => q(mag),
+      q(0266) => q(mah),
+      q(0267) => q(mai),
+      q(0268) => q(mak),
+      q(0269) => q(mal),
+      q(0270) => q(man),
+      q(0271) => q(mri),
+      q(0272) => q(map),
+      q(0273) => q(mar),
+      q(0274) => q(mas),
+      q(0275) => q(msa),
+      q(0276) => q(mdf),
+      q(0277) => q(mdr),
+      q(0278) => q(men),
+      q(0279) => q(mga),
+      q(0280) => q(mic),
+      q(0281) => q(min),
+      q(0282) => q(mis),
+      q(0283) => q(mkh),
+      q(0284) => q(mlg),
+      q(0285) => q(mlt),
+      q(0286) => q(mnc),
+      q(0287) => q(mni),
+      q(0288) => q(mno),
+      q(0289) => q(moh),
+      q(0290) => q(mon),
+      q(0291) => q(mos),
+      q(0292) => q(mul),
+      q(0293) => q(mun),
+      q(0294) => q(mus),
+      q(0295) => q(mwl),
+      q(0296) => q(mwr),
+      q(0297) => q(myn),
+      q(0298) => q(myv),
+      q(0299) => q(nah),
+      q(0300) => q(nai),
+      q(0301) => q(nap),
+      q(0302) => q(nau),
+      q(0303) => q(nav),
+      q(0304) => q(nbl),
+      q(0305) => q(nde),
+      q(0306) => q(ndo),
+      q(0307) => q(nds),
+      q(0308) => q(nep),
+      q(0309) => q(new),
+      q(0310) => q(nia),
+      q(0311) => q(nic),
+      q(0312) => q(niu),
+      q(0313) => q(nno),
+      q(0314) => q(nob),
+      q(0315) => q(nog),
+      q(0316) => q(non),
+      q(0317) => q(nor),
+      q(0318) => q(nqo),
+      q(0319) => q(nso),
+      q(0320) => q(nub),
+      q(0321) => q(nwc),
+      q(0322) => q(nya),
+      q(0323) => q(nym),
+      q(0324) => q(nyn),
+      q(0325) => q(nyo),
+      q(0326) => q(nzi),
+      q(0327) => q(oci),
+      q(0328) => q(oji),
+      q(0329) => q(ori),
+      q(0330) => q(orm),
+      q(0331) => q(osa),
+      q(0332) => q(oss),
+      q(0333) => q(ota),
+      q(0334) => q(oto),
+      q(0335) => q(paa),
+      q(0336) => q(pag),
+      q(0337) => q(pal),
+      q(0338) => q(pam),
+      q(0339) => q(pan),
+      q(0340) => q(pap),
+      q(0341) => q(pau),
+      q(0342) => q(peo),
+      q(0343) => q(fas),
+      q(0344) => q(phi),
+      q(0345) => q(phn),
+      q(0346) => q(pli),
+      q(0347) => q(pol),
+      q(0348) => q(pon),
+      q(0349) => q(por),
+      q(0350) => q(pra),
+      q(0351) => q(pro),
+      q(0352) => q(pus),
+      q(0353) => q(qtz),
+      q(0354) => q(que),
+      q(0355) => q(raj),
+      q(0356) => q(rap),
+      q(0357) => q(rar),
+      q(0358) => q(roa),
+      q(0359) => q(roh),
+      q(0360) => q(rom),
+      q(0361) => q(ron),
+      q(0362) => q(run),
+      q(0363) => q(rup),
+      q(0364) => q(rus),
+      q(0365) => q(sad),
+      q(0366) => q(sag),
+      q(0367) => q(sah),
+      q(0368) => q(sai),
+      q(0369) => q(sal),
+      q(0370) => q(sam),
+      q(0371) => q(san),
+      q(0372) => q(sas),
+      q(0373) => q(sat),
+      q(0374) => q(scn),
+      q(0375) => q(sco),
+      q(0376) => q(sel),
+      q(0377) => q(sem),
+      q(0378) => q(sga),
+      q(0379) => q(sgn),
+      q(0380) => q(shn),
+      q(0381) => q(sid),
+      q(0382) => q(sin),
+      q(0383) => q(sio),
+      q(0384) => q(sit),
+      q(0385) => q(sla),
+      q(0386) => q(slk),
+      q(0387) => q(slv),
+      q(0388) => q(sma),
+      q(0389) => q(sme),
+      q(0390) => q(smi),
+      q(0391) => q(smj),
+      q(0392) => q(smn),
+      q(0393) => q(smo),
+      q(0394) => q(sms),
+      q(0395) => q(sna),
+      q(0396) => q(snd),
+      q(0397) => q(snk),
+      q(0398) => q(sog),
+      q(0399) => q(som),
+      q(0400) => q(son),
+      q(0401) => q(sot),
+      q(0402) => q(spa),
+      q(0403) => q(srd),
+      q(0404) => q(srn),
+      q(0405) => q(srp),
+      q(0406) => q(srr),
+      q(0407) => q(ssa),
+      q(0408) => q(ssw),
+      q(0409) => q(suk),
+      q(0410) => q(sun),
+      q(0411) => q(sus),
+      q(0412) => q(sux),
+      q(0413) => q(swa),
+      q(0414) => q(swe),
+      q(0415) => q(syc),
+      q(0416) => q(syr),
+      q(0417) => q(tah),
+      q(0418) => q(tai),
+      q(0419) => q(tam),
+      q(0420) => q(tat),
+      q(0421) => q(tel),
+      q(0422) => q(tem),
+      q(0423) => q(ter),
+      q(0424) => q(tet),
+      q(0425) => q(tgk),
+      q(0426) => q(tgl),
+      q(0427) => q(tha),
+      q(0428) => q(bod),
+      q(0429) => q(tig),
+      q(0430) => q(tir),
+      q(0431) => q(tiv),
+      q(0432) => q(tkl),
+      q(0433) => q(tlh),
+      q(0434) => q(tli),
+      q(0435) => q(tmh),
+      q(0436) => q(tog),
+      q(0437) => q(ton),
+      q(0438) => q(tpi),
+      q(0439) => q(tsi),
+      q(0440) => q(tsn),
+      q(0441) => q(tso),
+      q(0442) => q(tuk),
+      q(0443) => q(tum),
+      q(0444) => q(tup),
+      q(0445) => q(tur),
+      q(0446) => q(tut),
+      q(0447) => q(tvl),
+      q(0448) => q(twi),
+      q(0449) => q(tyv),
+      q(0450) => q(udm),
+      q(0451) => q(uga),
+      q(0452) => q(uig),
+      q(0453) => q(ukr),
+      q(0454) => q(umb),
+      q(0455) => q(und),
+      q(0456) => q(urd),
+      q(0457) => q(uzb),
+      q(0458) => q(vai),
+      q(0459) => q(ven),
+      q(0460) => q(vie),
+      q(0461) => q(vol),
+      q(0462) => q(vot),
+      q(0463) => q(wak),
+      q(0464) => q(wal),
+      q(0465) => q(war),
+      q(0466) => q(was),
+      q(0467) => q(cym),
+      q(0468) => q(wen),
+      q(0469) => q(wln),
+      q(0470) => q(wol),
+      q(0471) => q(xal),
+      q(0472) => q(xho),
+      q(0473) => q(yao),
+      q(0474) => q(yap),
+      q(0475) => q(yid),
+      q(0476) => q(yor),
+      q(0477) => q(ypk),
+      q(0478) => q(zap),
+      q(0479) => q(zbl),
+      q(0480) => q(zen),
+      q(0481) => q(zgh),
+      q(0482) => q(zha),
+      q(0483) => q(znd),
+      q(0484) => q(zul),
+      q(0485) => q(zun),
+      q(0486) => q(zxx),
+      q(0487) => q(zza),
+      },
+};
+
+1;
+package #
+Locale::Codes::LangFam_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:55:15 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'langfam'}{'id'} = '0116';
+
+$Locale::Codes::Data{'langfam'}{'id2names'} = {
+   q(0001) => [
+      q(Austro-Asiatic languages),
+      ],
+   q(0002) => [
+      q(Afro-Asiatic languages),
+      ],
+   q(0003) => [
+      q(Algonquian languages),
+      ],
+   q(0004) => [
+      q(Atlantic-Congo languages),
+      ],
+   q(0005) => [
+      q(Apache languages),
+      ],
+   q(0006) => [
+      q(Alacalufan languages),
+      ],
+   q(0007) => [
+      q(Algic languages),
+      ],
+   q(0008) => [
+      q(Artificial languages),
+      ],
+   q(0009) => [
+      q(Athapascan languages),
+      ],
+   q(0010) => [
+      q(Arauan languages),
+      ],
+   q(0011) => [
+      q(Australian languages),
+      ],
+   q(0012) => [
+      q(Arawakan languages),
+      ],
+   q(0013) => [
+      q(Uto-Aztecan languages),
+      ],
+   q(0014) => [
+      q(Banda languages),
+      ],
+   q(0015) => [
+      q(Bamileke languages),
+      ],
+   q(0016) => [
+      q(Baltic languages),
+      ],
+   q(0017) => [
+      q(Berber languages),
+      ],
+   q(0018) => [
+      q(Bihari languages),
+      ],
+   q(0019) => [
+      q(Bantu languages),
+      ],
+   q(0020) => [
+      q(Batak languages),
+      ],
+   q(0021) => [
+      q(Central American Indian languages),
+      ],
+   q(0022) => [
+      q(Caucasian languages),
+      ],
+   q(0023) => [
+      q(Chibchan languages),
+      ],
+   q(0024) => [
+      q(North Caucasian languages),
+      ],
+   q(0025) => [
+      q(South Caucasian languages),
+      ],
+   q(0026) => [
+      q(Chadic languages),
+      ],
+   q(0027) => [
+      q(Caddoan languages),
+      ],
+   q(0028) => [
+      q(Celtic languages),
+      ],
+   q(0029) => [
+      q(Chamic languages),
+      ],
+   q(0030) => [
+      q(Creoles and pidgins, English-based),
+      ],
+   q(0031) => [
+      q(Creoles and pidgins, French-based),
+      ],
+   q(0032) => [
+      q(Creoles and pidgins, Portuguese-based),
+      ],
+   q(0033) => [
+      q(Creoles and pidgins),
+      ],
+   q(0034) => [
+      q(Central Sudanic languages),
+      ],
+   q(0035) => [
+      q(Cushitic languages),
+      ],
+   q(0036) => [
+      q(Land Dayak languages),
+      ],
+   q(0037) => [
+      q(Mande languages),
+      ],
+   q(0038) => [
+      q(Dravidian languages),
+      ],
+   q(0039) => [
+      q(Egyptian languages),
+      ],
+   q(0040) => [
+      q(Eskimo-Aleut languages),
+      ],
+   q(0041) => [
+      q(Basque (family)),
+      ],
+   q(0042) => [
+      q(Finno-Ugrian languages),
+      ],
+   q(0043) => [
+      q(Formosan languages),
+      ],
+   q(0044) => [
+      q(Germanic languages),
+      ],
+   q(0045) => [
+      q(East Germanic languages),
+      ],
+   q(0046) => [
+      q(North Germanic languages),
+      ],
+   q(0047) => [
+      q(West Germanic languages),
+      ],
+   q(0048) => [
+      q(Greek languages),
+      ],
+   q(0049) => [
+      q(Hmong-Mien languages),
+      ],
+   q(0050) => [
+      q(Hokan languages),
+      ],
+   q(0051) => [
+      q(Armenian (family)),
+      ],
+   q(0052) => [
+      q(Indo-Iranian languages),
+      ],
+   q(0053) => [
+      q(Ijo languages),
+      ],
+   q(0054) => [
+      q(Indic languages),
+      ],
+   q(0055) => [
+      q(Indo-European languages),
+      ],
+   q(0056) => [
+      q(Iranian languages),
+      ],
+   q(0057) => [
+      q(Iroquoian languages),
+      ],
+   q(0058) => [
+      q(Italic languages),
+      ],
+   q(0059) => [
+      q(Japanese (family)),
+      ],
+   q(0060) => [
+      q(Karen languages),
+      ],
+   q(0061) => [
+      q(Kordofanian languages),
+      ],
+   q(0062) => [
+      q(Khoisan languages),
+      ],
+   q(0063) => [
+      q(Kru languages),
+      ],
+   q(0064) => [
+      q(Austronesian languages),
+      ],
+   q(0065) => [
+      q(Mon-Khmer languages),
+      ],
+   q(0066) => [
+      q(Manobo languages),
+      ],
+   q(0067) => [
+      q(Munda languages),
+      ],
+   q(0068) => [
+      q(Mayan languages),
+      ],
+   q(0069) => [
+      q(Nahuatl languages),
+      ],
+   q(0070) => [
+      q(North American Indian languages),
+      ],
+   q(0071) => [
+      q(Trans-New Guinea languages),
+      ],
+   q(0072) => [
+      q(Niger-Kordofanian languages),
+      ],
+   q(0073) => [
+      q(Nubian languages),
+      ],
+   q(0074) => [
+      q(Oto-Manguean languages),
+      ],
+   q(0075) => [
+      q(Omotic languages),
+      ],
+   q(0076) => [
+      q(Otomian languages),
+      ],
+   q(0077) => [
+      q(Papuan languages),
+      ],
+   q(0078) => [
+      q(Philippine languages),
+      ],
+   q(0079) => [
+      q(Central Malayo-Polynesian languages),
+      ],
+   q(0080) => [
+      q(Malayo-Polynesian languages),
+      ],
+   q(0081) => [
+      q(Eastern Malayo-Polynesian languages),
+      ],
+   q(0082) => [
+      q(Western Malayo-Polynesian languages),
+      ],
+   q(0083) => [
+      q(Prakrit languages),
+      ],
+   q(0084) => [
+      q(Quechuan (family)),
+      ],
+   q(0085) => [
+      q(Romance languages),
+      ],
+   q(0086) => [
+      q(South American Indian languages),
+      ],
+   q(0087) => [
+      q(Salishan languages),
+      ],
+   q(0088) => [
+      q(Eastern Sudanic languages),
+      ],
+   q(0089) => [
+      q(Semitic languages),
+      ],
+   q(0090) => [
+      q(sign languages),
+      ],
+   q(0091) => [
+      q(Siouan languages),
+      ],
+   q(0092) => [
+      q(Sino-Tibetan languages),
+      ],
+   q(0093) => [
+      q(Slavic languages),
+      ],
+   q(0094) => [
+      q(Sami languages),
+      ],
+   q(0095) => [
+      q(Songhai languages),
+      ],
+   q(0096) => [
+      q(Albanian languages),
+      ],
+   q(0097) => [
+      q(Nilo-Saharan languages),
+      ],
+   q(0098) => [
+      q(Samoyedic languages),
+      ],
+   q(0099) => [
+      q(Tai languages),
+      ],
+   q(0100) => [
+      q(Tibeto-Burman languages),
+      ],
+   q(0101) => [
+      q(Turkic languages),
+      ],
+   q(0102) => [
+      q(Tupi languages),
+      ],
+   q(0103) => [
+      q(Altaic languages),
+      ],
+   q(0104) => [
+      q(Tungus languages),
+      ],
+   q(0105) => [
+      q(Uralic languages),
+      ],
+   q(0106) => [
+      q(Wakashan languages),
+      ],
+   q(0107) => [
+      q(Sorbian languages),
+      ],
+   q(0108) => [
+      q(Mongolian languages),
+      ],
+   q(0109) => [
+      q(Na-Dene languages),
+      ],
+   q(0110) => [
+      q(Yupik languages),
+      ],
+   q(0111) => [
+      q(Chinese (family)),
+      ],
+   q(0112) => [
+      q(East Slavic languages),
+      ],
+   q(0113) => [
+      q(South Slavic languages),
+      ],
+   q(0114) => [
+      q(West Slavic languages),
+      ],
+   q(0115) => [
+      q(Zande languages),
+      ],
+};
+
+$Locale::Codes::Data{'langfam'}{'alias2id'} = {
+   q(afro-asiatic languages) => [
+      q(0002),
+      q(0),
+      ],
+   q(alacalufan languages) => [
+      q(0006),
+      q(0),
+      ],
+   q(albanian languages) => [
+      q(0096),
+      q(0),
+      ],
+   q(algic languages) => [
+      q(0007),
+      q(0),
+      ],
+   q(algonquian languages) => [
+      q(0003),
+      q(0),
+      ],
+   q(altaic languages) => [
+      q(0103),
+      q(0),
+      ],
+   q(apache languages) => [
+      q(0005),
+      q(0),
+      ],
+   q(arauan languages) => [
+      q(0010),
+      q(0),
+      ],
+   q(arawakan languages) => [
+      q(0012),
+      q(0),
+      ],
+   q(armenian (family)) => [
+      q(0051),
+      q(0),
+      ],
+   q(artificial languages) => [
+      q(0008),
+      q(0),
+      ],
+   q(athapascan languages) => [
+      q(0009),
+      q(0),
+      ],
+   q(atlantic-congo languages) => [
+      q(0004),
+      q(0),
+      ],
+   q(australian languages) => [
+      q(0011),
+      q(0),
+      ],
+   q(austro-asiatic languages) => [
+      q(0001),
+      q(0),
+      ],
+   q(austronesian languages) => [
+      q(0064),
+      q(0),
+      ],
+   q(baltic languages) => [
+      q(0016),
+      q(0),
+      ],
+   q(bamileke languages) => [
+      q(0015),
+      q(0),
+      ],
+   q(banda languages) => [
+      q(0014),
+      q(0),
+      ],
+   q(bantu languages) => [
+      q(0019),
+      q(0),
+      ],
+   q(basque (family)) => [
+      q(0041),
+      q(0),
+      ],
+   q(batak languages) => [
+      q(0020),
+      q(0),
+      ],
+   q(berber languages) => [
+      q(0017),
+      q(0),
+      ],
+   q(bihari languages) => [
+      q(0018),
+      q(0),
+      ],
+   q(caddoan languages) => [
+      q(0027),
+      q(0),
+      ],
+   q(caucasian languages) => [
+      q(0022),
+      q(0),
+      ],
+   q(celtic languages) => [
+      q(0028),
+      q(0),
+      ],
+   q(central american indian languages) => [
+      q(0021),
+      q(0),
+      ],
+   q(central malayo-polynesian languages) => [
+      q(0079),
+      q(0),
+      ],
+   q(central sudanic languages) => [
+      q(0034),
+      q(0),
+      ],
+   q(chadic languages) => [
+      q(0026),
+      q(0),
+      ],
+   q(chamic languages) => [
+      q(0029),
+      q(0),
+      ],
+   q(chibchan languages) => [
+      q(0023),
+      q(0),
+      ],
+   q(chinese (family)) => [
+      q(0111),
+      q(0),
+      ],
+   q(creoles and pidgins) => [
+      q(0033),
+      q(0),
+      ],
+   q(creoles and pidgins, english-based) => [
+      q(0030),
+      q(0),
+      ],
+   q(creoles and pidgins, french-based) => [
+      q(0031),
+      q(0),
+      ],
+   q(creoles and pidgins, portuguese-based) => [
+      q(0032),
+      q(0),
+      ],
+   q(cushitic languages) => [
+      q(0035),
+      q(0),
+      ],
+   q(dravidian languages) => [
+      q(0038),
+      q(0),
+      ],
+   q(east germanic languages) => [
+      q(0045),
+      q(0),
+      ],
+   q(east slavic languages) => [
+      q(0112),
+      q(0),
+      ],
+   q(eastern malayo-polynesian languages) => [
+      q(0081),
+      q(0),
+      ],
+   q(eastern sudanic languages) => [
+      q(0088),
+      q(0),
+      ],
+   q(egyptian languages) => [
+      q(0039),
+      q(0),
+      ],
+   q(eskimo-aleut languages) => [
+      q(0040),
+      q(0),
+      ],
+   q(finno-ugrian languages) => [
+      q(0042),
+      q(0),
+      ],
+   q(formosan languages) => [
+      q(0043),
+      q(0),
+      ],
+   q(germanic languages) => [
+      q(0044),
+      q(0),
+      ],
+   q(greek languages) => [
+      q(0048),
+      q(0),
+      ],
+   q(hmong-mien languages) => [
+      q(0049),
+      q(0),
+      ],
+   q(hokan languages) => [
+      q(0050),
+      q(0),
+      ],
+   q(ijo languages) => [
+      q(0053),
+      q(0),
+      ],
+   q(indic languages) => [
+      q(0054),
+      q(0),
+      ],
+   q(indo-european languages) => [
+      q(0055),
+      q(0),
+      ],
+   q(indo-iranian languages) => [
+      q(0052),
+      q(0),
+      ],
+   q(iranian languages) => [
+      q(0056),
+      q(0),
+      ],
+   q(iroquoian languages) => [
+      q(0057),
+      q(0),
+      ],
+   q(italic languages) => [
+      q(0058),
+      q(0),
+      ],
+   q(japanese (family)) => [
+      q(0059),
+      q(0),
+      ],
+   q(karen languages) => [
+      q(0060),
+      q(0),
+      ],
+   q(khoisan languages) => [
+      q(0062),
+      q(0),
+      ],
+   q(kordofanian languages) => [
+      q(0061),
+      q(0),
+      ],
+   q(kru languages) => [
+      q(0063),
+      q(0),
+      ],
+   q(land dayak languages) => [
+      q(0036),
+      q(0),
+      ],
+   q(malayo-polynesian languages) => [
+      q(0080),
+      q(0),
+      ],
+   q(mande languages) => [
+      q(0037),
+      q(0),
+      ],
+   q(manobo languages) => [
+      q(0066),
+      q(0),
+      ],
+   q(mayan languages) => [
+      q(0068),
+      q(0),
+      ],
+   q(mon-khmer languages) => [
+      q(0065),
+      q(0),
+      ],
+   q(mongolian languages) => [
+      q(0108),
+      q(0),
+      ],
+   q(munda languages) => [
+      q(0067),
+      q(0),
+      ],
+   q(na-dene languages) => [
+      q(0109),
+      q(0),
+      ],
+   q(nahuatl languages) => [
+      q(0069),
+      q(0),
+      ],
+   q(niger-kordofanian languages) => [
+      q(0072),
+      q(0),
+      ],
+   q(nilo-saharan languages) => [
+      q(0097),
+      q(0),
+      ],
+   q(north american indian languages) => [
+      q(0070),
+      q(0),
+      ],
+   q(north caucasian languages) => [
+      q(0024),
+      q(0),
+      ],
+   q(north germanic languages) => [
+      q(0046),
+      q(0),
+      ],
+   q(nubian languages) => [
+      q(0073),
+      q(0),
+      ],
+   q(omotic languages) => [
+      q(0075),
+      q(0),
+      ],
+   q(oto-manguean languages) => [
+      q(0074),
+      q(0),
+      ],
+   q(otomian languages) => [
+      q(0076),
+      q(0),
+      ],
+   q(papuan languages) => [
+      q(0077),
+      q(0),
+      ],
+   q(philippine languages) => [
+      q(0078),
+      q(0),
+      ],
+   q(prakrit languages) => [
+      q(0083),
+      q(0),
+      ],
+   q(quechuan (family)) => [
+      q(0084),
+      q(0),
+      ],
+   q(romance languages) => [
+      q(0085),
+      q(0),
+      ],
+   q(salishan languages) => [
+      q(0087),
+      q(0),
+      ],
+   q(sami languages) => [
+      q(0094),
+      q(0),
+      ],
+   q(samoyedic languages) => [
+      q(0098),
+      q(0),
+      ],
+   q(semitic languages) => [
+      q(0089),
+      q(0),
+      ],
+   q(sign languages) => [
+      q(0090),
+      q(0),
+      ],
+   q(sino-tibetan languages) => [
+      q(0092),
+      q(0),
+      ],
+   q(siouan languages) => [
+      q(0091),
+      q(0),
+      ],
+   q(slavic languages) => [
+      q(0093),
+      q(0),
+      ],
+   q(songhai languages) => [
+      q(0095),
+      q(0),
+      ],
+   q(sorbian languages) => [
+      q(0107),
+      q(0),
+      ],
+   q(south american indian languages) => [
+      q(0086),
+      q(0),
+      ],
+   q(south caucasian languages) => [
+      q(0025),
+      q(0),
+      ],
+   q(south slavic languages) => [
+      q(0113),
+      q(0),
+      ],
+   q(tai languages) => [
+      q(0099),
+      q(0),
+      ],
+   q(tibeto-burman languages) => [
+      q(0100),
+      q(0),
+      ],
+   q(trans-new guinea languages) => [
+      q(0071),
+      q(0),
+      ],
+   q(tungus languages) => [
+      q(0104),
+      q(0),
+      ],
+   q(tupi languages) => [
+      q(0102),
+      q(0),
+      ],
+   q(turkic languages) => [
+      q(0101),
+      q(0),
+      ],
+   q(uralic languages) => [
+      q(0105),
+      q(0),
+      ],
+   q(uto-aztecan languages) => [
+      q(0013),
+      q(0),
+      ],
+   q(wakashan languages) => [
+      q(0106),
+      q(0),
+      ],
+   q(west germanic languages) => [
+      q(0047),
+      q(0),
+      ],
+   q(west slavic languages) => [
+      q(0114),
+      q(0),
+      ],
+   q(western malayo-polynesian languages) => [
+      q(0082),
+      q(0),
+      ],
+   q(yupik languages) => [
+      q(0110),
+      q(0),
+      ],
+   q(zande languages) => [
+      q(0115),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langfam'}{'code2id'} = {
+   q(alpha) => {
+      q(aav) => [
+         q(0001),
+         q(0),
+         ],
+      q(afa) => [
+         q(0002),
+         q(0),
+         ],
+      q(alg) => [
+         q(0003),
+         q(0),
+         ],
+      q(alv) => [
+         q(0004),
+         q(0),
+         ],
+      q(apa) => [
+         q(0005),
+         q(0),
+         ],
+      q(aqa) => [
+         q(0006),
+         q(0),
+         ],
+      q(aql) => [
+         q(0007),
+         q(0),
+         ],
+      q(art) => [
+         q(0008),
+         q(0),
+         ],
+      q(ath) => [
+         q(0009),
+         q(0),
+         ],
+      q(auf) => [
+         q(0010),
+         q(0),
+         ],
+      q(aus) => [
+         q(0011),
+         q(0),
+         ],
+      q(awd) => [
+         q(0012),
+         q(0),
+         ],
+      q(azc) => [
+         q(0013),
+         q(0),
+         ],
+      q(bad) => [
+         q(0014),
+         q(0),
+         ],
+      q(bai) => [
+         q(0015),
+         q(0),
+         ],
+      q(bat) => [
+         q(0016),
+         q(0),
+         ],
+      q(ber) => [
+         q(0017),
+         q(0),
+         ],
+      q(bih) => [
+         q(0018),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0019),
+         q(0),
+         ],
+      q(btk) => [
+         q(0020),
+         q(0),
+         ],
+      q(cai) => [
+         q(0021),
+         q(0),
+         ],
+      q(cau) => [
+         q(0022),
+         q(0),
+         ],
+      q(cba) => [
+         q(0023),
+         q(0),
+         ],
+      q(ccn) => [
+         q(0024),
+         q(0),
+         ],
+      q(ccs) => [
+         q(0025),
+         q(0),
+         ],
+      q(cdc) => [
+         q(0026),
+         q(0),
+         ],
+      q(cdd) => [
+         q(0027),
+         q(0),
+         ],
+      q(cel) => [
+         q(0028),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0029),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0030),
+         q(0),
+         ],
+      q(cpf) => [
+         q(0031),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0032),
+         q(0),
+         ],
+      q(crp) => [
+         q(0033),
+         q(0),
+         ],
+      q(csu) => [
+         q(0034),
+         q(0),
+         ],
+      q(cus) => [
+         q(0035),
+         q(0),
+         ],
+      q(day) => [
+         q(0036),
+         q(0),
+         ],
+      q(dmn) => [
+         q(0037),
+         q(0),
+         ],
+      q(dra) => [
+         q(0038),
+         q(0),
+         ],
+      q(egx) => [
+         q(0039),
+         q(0),
+         ],
+      q(esx) => [
+         q(0040),
+         q(0),
+         ],
+      q(euq) => [
+         q(0041),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0042),
+         q(0),
+         ],
+      q(fox) => [
+         q(0043),
+         q(0),
+         ],
+      q(gem) => [
+         q(0044),
+         q(0),
+         ],
+      q(gme) => [
+         q(0045),
+         q(0),
+         ],
+      q(gmq) => [
+         q(0046),
+         q(0),
+         ],
+      q(gmw) => [
+         q(0047),
+         q(0),
+         ],
+      q(grk) => [
+         q(0048),
+         q(0),
+         ],
+      q(hmx) => [
+         q(0049),
+         q(0),
+         ],
+      q(hok) => [
+         q(0050),
+         q(0),
+         ],
+      q(hyx) => [
+         q(0051),
+         q(0),
+         ],
+      q(iir) => [
+         q(0052),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0053),
+         q(0),
+         ],
+      q(inc) => [
+         q(0054),
+         q(0),
+         ],
+      q(ine) => [
+         q(0055),
+         q(0),
+         ],
+      q(ira) => [
+         q(0056),
+         q(0),
+         ],
+      q(iro) => [
+         q(0057),
+         q(0),
+         ],
+      q(itc) => [
+         q(0058),
+         q(0),
+         ],
+      q(jpx) => [
+         q(0059),
+         q(0),
+         ],
+      q(kar) => [
+         q(0060),
+         q(0),
+         ],
+      q(kdo) => [
+         q(0061),
+         q(0),
+         ],
+      q(khi) => [
+         q(0062),
+         q(0),
+         ],
+      q(kro) => [
+         q(0063),
+         q(0),
+         ],
+      q(map) => [
+         q(0064),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0065),
+         q(0),
+         ],
+      q(mno) => [
+         q(0066),
+         q(0),
+         ],
+      q(mun) => [
+         q(0067),
+         q(0),
+         ],
+      q(myn) => [
+         q(0068),
+         q(0),
+         ],
+      q(nah) => [
+         q(0069),
+         q(0),
+         ],
+      q(nai) => [
+         q(0070),
+         q(0),
+         ],
+      q(ngf) => [
+         q(0071),
+         q(0),
+         ],
+      q(nic) => [
+         q(0072),
+         q(0),
+         ],
+      q(nub) => [
+         q(0073),
+         q(0),
+         ],
+      q(omq) => [
+         q(0074),
+         q(0),
+         ],
+      q(omv) => [
+         q(0075),
+         q(0),
+         ],
+      q(oto) => [
+         q(0076),
+         q(0),
+         ],
+      q(paa) => [
+         q(0077),
+         q(0),
+         ],
+      q(phi) => [
+         q(0078),
+         q(0),
+         ],
+      q(plf) => [
+         q(0079),
+         q(0),
+         ],
+      q(poz) => [
+         q(0080),
+         q(0),
+         ],
+      q(pqe) => [
+         q(0081),
+         q(0),
+         ],
+      q(pqw) => [
+         q(0082),
+         q(0),
+         ],
+      q(pra) => [
+         q(0083),
+         q(0),
+         ],
+      q(qwe) => [
+         q(0084),
+         q(0),
+         ],
+      q(roa) => [
+         q(0085),
+         q(0),
+         ],
+      q(sai) => [
+         q(0086),
+         q(0),
+         ],
+      q(sal) => [
+         q(0087),
+         q(0),
+         ],
+      q(sdv) => [
+         q(0088),
+         q(0),
+         ],
+      q(sem) => [
+         q(0089),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0090),
+         q(0),
+         ],
+      q(sio) => [
+         q(0091),
+         q(0),
+         ],
+      q(sit) => [
+         q(0092),
+         q(0),
+         ],
+      q(sla) => [
+         q(0093),
+         q(0),
+         ],
+      q(smi) => [
+         q(0094),
+         q(0),
+         ],
+      q(son) => [
+         q(0095),
+         q(0),
+         ],
+      q(sqj) => [
+         q(0096),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0097),
+         q(0),
+         ],
+      q(syd) => [
+         q(0098),
+         q(0),
+         ],
+      q(tai) => [
+         q(0099),
+         q(0),
+         ],
+      q(tbq) => [
+         q(0100),
+         q(0),
+         ],
+      q(trk) => [
+         q(0101),
+         q(0),
+         ],
+      q(tup) => [
+         q(0102),
+         q(0),
+         ],
+      q(tut) => [
+         q(0103),
+         q(0),
+         ],
+      q(tuw) => [
+         q(0104),
+         q(0),
+         ],
+      q(urj) => [
+         q(0105),
+         q(0),
+         ],
+      q(wak) => [
+         q(0106),
+         q(0),
+         ],
+      q(wen) => [
+         q(0107),
+         q(0),
+         ],
+      q(xgn) => [
+         q(0108),
+         q(0),
+         ],
+      q(xnd) => [
+         q(0109),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0110),
+         q(0),
+         ],
+      q(zhx) => [
+         q(0111),
+         q(0),
+         ],
+      q(zle) => [
+         q(0112),
+         q(0),
+         ],
+      q(zls) => [
+         q(0113),
+         q(0),
+         ],
+      q(zlw) => [
+         q(0114),
+         q(0),
+         ],
+      q(znd) => [
+         q(0115),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langfam'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(aav),
+      q(0002) => q(afa),
+      q(0003) => q(alg),
+      q(0004) => q(alv),
+      q(0005) => q(apa),
+      q(0006) => q(aqa),
+      q(0007) => q(aql),
+      q(0008) => q(art),
+      q(0009) => q(ath),
+      q(0010) => q(auf),
+      q(0011) => q(aus),
+      q(0012) => q(awd),
+      q(0013) => q(azc),
+      q(0014) => q(bad),
+      q(0015) => q(bai),
+      q(0016) => q(bat),
+      q(0017) => q(ber),
+      q(0018) => q(bih),
+      q(0019) => q(bnt),
+      q(0020) => q(btk),
+      q(0021) => q(cai),
+      q(0022) => q(cau),
+      q(0023) => q(cba),
+      q(0024) => q(ccn),
+      q(0025) => q(ccs),
+      q(0026) => q(cdc),
+      q(0027) => q(cdd),
+      q(0028) => q(cel),
+      q(0029) => q(cmc),
+      q(0030) => q(cpe),
+      q(0031) => q(cpf),
+      q(0032) => q(cpp),
+      q(0033) => q(crp),
+      q(0034) => q(csu),
+      q(0035) => q(cus),
+      q(0036) => q(day),
+      q(0037) => q(dmn),
+      q(0038) => q(dra),
+      q(0039) => q(egx),
+      q(0040) => q(esx),
+      q(0041) => q(euq),
+      q(0042) => q(fiu),
+      q(0043) => q(fox),
+      q(0044) => q(gem),
+      q(0045) => q(gme),
+      q(0046) => q(gmq),
+      q(0047) => q(gmw),
+      q(0048) => q(grk),
+      q(0049) => q(hmx),
+      q(0050) => q(hok),
+      q(0051) => q(hyx),
+      q(0052) => q(iir),
+      q(0053) => q(ijo),
+      q(0054) => q(inc),
+      q(0055) => q(ine),
+      q(0056) => q(ira),
+      q(0057) => q(iro),
+      q(0058) => q(itc),
+      q(0059) => q(jpx),
+      q(0060) => q(kar),
+      q(0061) => q(kdo),
+      q(0062) => q(khi),
+      q(0063) => q(kro),
+      q(0064) => q(map),
+      q(0065) => q(mkh),
+      q(0066) => q(mno),
+      q(0067) => q(mun),
+      q(0068) => q(myn),
+      q(0069) => q(nah),
+      q(0070) => q(nai),
+      q(0071) => q(ngf),
+      q(0072) => q(nic),
+      q(0073) => q(nub),
+      q(0074) => q(omq),
+      q(0075) => q(omv),
+      q(0076) => q(oto),
+      q(0077) => q(paa),
+      q(0078) => q(phi),
+      q(0079) => q(plf),
+      q(0080) => q(poz),
+      q(0081) => q(pqe),
+      q(0082) => q(pqw),
+      q(0083) => q(pra),
+      q(0084) => q(qwe),
+      q(0085) => q(roa),
+      q(0086) => q(sai),
+      q(0087) => q(sal),
+      q(0088) => q(sdv),
+      q(0089) => q(sem),
+      q(0090) => q(sgn),
+      q(0091) => q(sio),
+      q(0092) => q(sit),
+      q(0093) => q(sla),
+      q(0094) => q(smi),
+      q(0095) => q(son),
+      q(0096) => q(sqj),
+      q(0097) => q(ssa),
+      q(0098) => q(syd),
+      q(0099) => q(tai),
+      q(0100) => q(tbq),
+      q(0101) => q(trk),
+      q(0102) => q(tup),
+      q(0103) => q(tut),
+      q(0104) => q(tuw),
+      q(0105) => q(urj),
+      q(0106) => q(wak),
+      q(0107) => q(wen),
+      q(0108) => q(xgn),
+      q(0109) => q(xnd),
+      q(0110) => q(ypk),
+      q(0111) => q(zhx),
+      q(0112) => q(zle),
+      q(0113) => q(zls),
+      q(0114) => q(zlw),
+      q(0115) => q(znd),
+      },
+};
+
+1;
+package Locale::Codes::Script;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2script
+                script2code
+                all_script_codes
+                all_script_names
+                script_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_SCRIPT);
+
+our $obj = new Locale::Codes('script');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2script {
+   return $obj->code2name(@_);
+}
+
+sub script2code {
+   return $obj->name2code(@_);
+}
+
+sub script_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_script_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_script_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_script {
+   return $obj->rename_code(@_);
+}
+
+sub add_script {
+   return $obj->add_code(@_);
+}
+
+sub delete_script {
+   return $obj->delete_code(@_);
+}
+
+sub add_script_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_script_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_script_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_script_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_script_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::Currency_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:54:50 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'currency'}{'id'} = '0177';
+
+$Locale::Codes::Data{'currency'}{'id2names'} = {
+   q(0001) => [
+      q(Afghani),
+      ],
+   q(0002) => [
+      q(Euro),
+      ],
+   q(0003) => [
+      q(Lek),
+      ],
+   q(0004) => [
+      q(Algerian Dinar),
+      ],
+   q(0005) => [
+      q(US Dollar),
+      ],
+   q(0006) => [
+      q(Kwanza),
+      ],
+   q(0007) => [
+      q(East Caribbean Dollar),
+      ],
+   q(0008) => [
+      q(Argentine Peso),
+      ],
+   q(0009) => [
+      q(Armenian Dram),
+      ],
+   q(0010) => [
+      q(Aruban Florin),
+      ],
+   q(0011) => [
+      q(Australian Dollar),
+      ],
+   q(0012) => [
+      q(Azerbaijan Manat),
+      ],
+   q(0013) => [
+      q(Bahamian Dollar),
+      ],
+   q(0014) => [
+      q(Bahraini Dinar),
+      ],
+   q(0015) => [
+      q(Taka),
+      ],
+   q(0016) => [
+      q(Barbados Dollar),
+      ],
+   q(0017) => [
+      q(Belarusian Ruble),
+      ],
+   q(0018) => [
+      q(Belize Dollar),
+      ],
+   q(0019) => [
+      q(CFA Franc BCEAO),
+      ],
+   q(0020) => [
+      q(Bermudian Dollar),
+      ],
+   q(0021) => [
+      q(Indian Rupee),
+      ],
+   q(0022) => [
+      q(Ngultrum),
+      ],
+   q(0023) => [
+      q(Boliviano),
+      ],
+   q(0024) => [
+      q(Mvdol),
+      ],
+   q(0025) => [
+      q(Convertible Mark),
+      ],
+   q(0026) => [
+      q(Pula),
+      ],
+   q(0027) => [
+      q(Norwegian Krone),
+      ],
+   q(0028) => [
+      q(Brazilian Real),
+      ],
+   q(0029) => [
+      q(Brunei Dollar),
+      ],
+   q(0030) => [
+      q(Bulgarian Lev),
+      ],
+   q(0031) => [
+      q(Burundi Franc),
+      ],
+   q(0032) => [
+      q(Cabo Verde Escudo),
+      ],
+   q(0033) => [
+      q(Riel),
+      ],
+   q(0034) => [
+      q(CFA Franc BEAC),
+      ],
+   q(0035) => [
+      q(Canadian Dollar),
+      ],
+   q(0036) => [
+      q(Cayman Islands Dollar),
+      ],
+   q(0037) => [
+      q(Chilean Peso),
+      ],
+   q(0038) => [
+      q(Unidad de Fomento),
+      ],
+   q(0039) => [
+      q(Yuan Renminbi),
+      ],
+   q(0040) => [
+      q(Colombian Peso),
+      ],
+   q(0041) => [
+      q(Unidad de Valor Real),
+      ],
+   q(0042) => [
+      q(Comorian Franc),
+      ],
+   q(0043) => [
+      q(Congolese Franc),
+      ],
+   q(0044) => [
+      q(New Zealand Dollar),
+      ],
+   q(0045) => [
+      q(Costa Rican Colon),
+      ],
+   q(0046) => [
+      q(Kuna),
+      ],
+   q(0047) => [
+      q(Cuban Peso),
+      ],
+   q(0048) => [
+      q(Peso Convertible),
+      ],
+   q(0049) => [
+      q(Netherlands Antillean Guilder),
+      ],
+   q(0050) => [
+      q(Czech Koruna),
+      ],
+   q(0051) => [
+      q(Danish Krone),
+      ],
+   q(0052) => [
+      q(Djibouti Franc),
+      ],
+   q(0053) => [
+      q(Dominican Peso),
+      ],
+   q(0054) => [
+      q(Egyptian Pound),
+      ],
+   q(0055) => [
+      q(El Salvador Colon),
+      ],
+   q(0056) => [
+      q(Nakfa),
+      ],
+   q(0057) => [
+      q(Ethiopian Birr),
+      ],
+   q(0058) => [
+      q(Falkland Islands Pound),
+      ],
+   q(0059) => [
+      q(Fiji Dollar),
+      ],
+   q(0060) => [
+      q(CFP Franc),
+      ],
+   q(0061) => [
+      q(Dalasi),
+      ],
+   q(0062) => [
+      q(Lari),
+      ],
+   q(0063) => [
+      q(Ghana Cedi),
+      ],
+   q(0064) => [
+      q(Gibraltar Pound),
+      ],
+   q(0065) => [
+      q(Quetzal),
+      ],
+   q(0066) => [
+      q(Pound Sterling),
+      ],
+   q(0067) => [
+      q(Guinean Franc),
+      ],
+   q(0068) => [
+      q(Guyana Dollar),
+      ],
+   q(0069) => [
+      q(Gourde),
+      ],
+   q(0070) => [
+      q(Lempira),
+      ],
+   q(0071) => [
+      q(Hong Kong Dollar),
+      ],
+   q(0072) => [
+      q(Forint),
+      ],
+   q(0073) => [
+      q(Iceland Krona),
+      ],
+   q(0074) => [
+      q(Rupiah),
+      ],
+   q(0075) => [
+      q(SDR (Special Drawing Right)),
+      ],
+   q(0076) => [
+      q(Iranian Rial),
+      ],
+   q(0077) => [
+      q(Iraqi Dinar),
+      ],
+   q(0078) => [
+      q(New Israeli Sheqel),
+      ],
+   q(0079) => [
+      q(Jamaican Dollar),
+      ],
+   q(0080) => [
+      q(Yen),
+      ],
+   q(0081) => [
+      q(Jordanian Dinar),
+      ],
+   q(0082) => [
+      q(Tenge),
+      ],
+   q(0083) => [
+      q(Kenyan Shilling),
+      ],
+   q(0084) => [
+      q(North Korean Won),
+      ],
+   q(0085) => [
+      q(Won),
+      ],
+   q(0086) => [
+      q(Kuwaiti Dinar),
+      ],
+   q(0087) => [
+      q(Som),
+      ],
+   q(0088) => [
+      q(Lao Kip),
+      ],
+   q(0089) => [
+      q(Lebanese Pound),
+      ],
+   q(0090) => [
+      q(Loti),
+      ],
+   q(0091) => [
+      q(Rand),
+      ],
+   q(0092) => [
+      q(Liberian Dollar),
+      ],
+   q(0093) => [
+      q(Libyan Dinar),
+      ],
+   q(0094) => [
+      q(Swiss Franc),
+      ],
+   q(0095) => [
+      q(Pataca),
+      ],
+   q(0096) => [
+      q(Denar),
+      ],
+   q(0097) => [
+      q(Malagasy Ariary),
+      ],
+   q(0098) => [
+      q(Malawi Kwacha),
+      ],
+   q(0099) => [
+      q(Malaysian Ringgit),
+      ],
+   q(0100) => [
+      q(Rufiyaa),
+      ],
+   q(0101) => [
+      q(Ouguiya),
+      ],
+   q(0102) => [
+      q(Mauritius Rupee),
+      ],
+   q(0103) => [
+      q(ADB Unit of Account),
+      ],
+   q(0104) => [
+      q(Mexican Peso),
+      ],
+   q(0105) => [
+      q(Mexican Unidad de Inversion (UDI)),
+      ],
+   q(0106) => [
+      q(Moldovan Leu),
+      ],
+   q(0107) => [
+      q(Tugrik),
+      ],
+   q(0108) => [
+      q(Moroccan Dirham),
+      ],
+   q(0109) => [
+      q(Mozambique Metical),
+      ],
+   q(0110) => [
+      q(Kyat),
+      ],
+   q(0111) => [
+      q(Namibia Dollar),
+      ],
+   q(0112) => [
+      q(Nepalese Rupee),
+      ],
+   q(0113) => [
+      q(Cordoba Oro),
+      ],
+   q(0114) => [
+      q(Naira),
+      ],
+   q(0115) => [
+      q(Rial Omani),
+      ],
+   q(0116) => [
+      q(Pakistan Rupee),
+      ],
+   q(0117) => [
+      q(Balboa),
+      ],
+   q(0118) => [
+      q(Kina),
+      ],
+   q(0119) => [
+      q(Guarani),
+      ],
+   q(0120) => [
+      q(Sol),
+      ],
+   q(0121) => [
+      q(Philippine Piso),
+      ],
+   q(0122) => [
+      q(Zloty),
+      ],
+   q(0123) => [
+      q(Qatari Rial),
+      ],
+   q(0124) => [
+      q(Romanian Leu),
+      ],
+   q(0125) => [
+      q(Russian Ruble),
+      ],
+   q(0126) => [
+      q(Rwanda Franc),
+      ],
+   q(0127) => [
+      q(Saint Helena Pound),
+      ],
+   q(0128) => [
+      q(Tala),
+      ],
+   q(0129) => [
+      q(Dobra),
+      ],
+   q(0130) => [
+      q(Saudi Riyal),
+      ],
+   q(0131) => [
+      q(Serbian Dinar),
+      ],
+   q(0132) => [
+      q(Seychelles Rupee),
+      ],
+   q(0133) => [
+      q(Leone),
+      ],
+   q(0134) => [
+      q(Singapore Dollar),
+      ],
+   q(0135) => [
+      q(Sucre),
+      ],
+   q(0136) => [
+      q(Solomon Islands Dollar),
+      ],
+   q(0137) => [
+      q(Somali Shilling),
+      ],
+   q(0138) => [
+      q(South Sudanese Pound),
+      ],
+   q(0139) => [
+      q(Sri Lanka Rupee),
+      ],
+   q(0140) => [
+      q(Sudanese Pound),
+      ],
+   q(0141) => [
+      q(Surinam Dollar),
+      ],
+   q(0142) => [
+      q(Lilangeni),
+      ],
+   q(0143) => [
+      q(Swedish Krona),
+      ],
+   q(0144) => [
+      q(WIR Euro),
+      ],
+   q(0145) => [
+      q(WIR Franc),
+      ],
+   q(0146) => [
+      q(Syrian Pound),
+      ],
+   q(0147) => [
+      q(New Taiwan Dollar),
+      ],
+   q(0148) => [
+      q(Somoni),
+      ],
+   q(0149) => [
+      q(Tanzanian Shilling),
+      ],
+   q(0150) => [
+      q(Baht),
+      ],
+   q(0151) => [
+      q(Pa'anga),
+      ],
+   q(0152) => [
+      q(Trinidad and Tobago Dollar),
+      ],
+   q(0153) => [
+      q(Tunisian Dinar),
+      ],
+   q(0154) => [
+      q(Turkish Lira),
+      ],
+   q(0155) => [
+      q(Turkmenistan New Manat),
+      ],
+   q(0156) => [
+      q(Uganda Shilling),
+      ],
+   q(0157) => [
+      q(Hryvnia),
+      ],
+   q(0158) => [
+      q(UAE Dirham),
+      ],
+   q(0159) => [
+      q(US Dollar (Next day)),
+      ],
+   q(0160) => [
+      q(Peso Uruguayo),
+      ],
+   q(0161) => [
+      q(Uruguay Peso en Unidades Indexadas (URUIURUI)),
+      ],
+   q(0162) => [
+      q(Uzbekistan Sum),
+      ],
+   q(0163) => [
+      q(Vatu),
+      ],
+   q(0164) => [
+      q(Bolivar),
+      ],
+   q(0165) => [
+      q(Dong),
+      ],
+   q(0166) => [
+      q(Yemeni Rial),
+      ],
+   q(0167) => [
+      q(Zambian Kwacha),
+      ],
+   q(0168) => [
+      q(Zimbabwe Dollar),
+      ],
+   q(0169) => [
+      q(Bond Markets Unit European Composite Unit (EURCO)),
+      ],
+   q(0170) => [
+      q(Bond Markets Unit European Monetary Unit (E.M.U.-6)),
+      ],
+   q(0171) => [
+      q(Bond Markets Unit European Unit of Account 9 (E.U.A.-9)),
+      ],
+   q(0172) => [
+      q(Bond Markets Unit European Unit of Account 17 (E.U.A.-17)),
+      ],
+   q(0173) => [
+      q(Gold),
+      ],
+   q(0174) => [
+      q(Palladium),
+      ],
+   q(0175) => [
+      q(Platinum),
+      ],
+   q(0176) => [
+      q(Silver),
+      ],
+};
+
+$Locale::Codes::Data{'currency'}{'alias2id'} = {
+   q(adb unit of account) => [
+      q(0103),
+      q(0),
+      ],
+   q(afghani) => [
+      q(0001),
+      q(0),
+      ],
+   q(algerian dinar) => [
+      q(0004),
+      q(0),
+      ],
+   q(argentine peso) => [
+      q(0008),
+      q(0),
+      ],
+   q(armenian dram) => [
+      q(0009),
+      q(0),
+      ],
+   q(aruban florin) => [
+      q(0010),
+      q(0),
+      ],
+   q(australian dollar) => [
+      q(0011),
+      q(0),
+      ],
+   q(azerbaijan manat) => [
+      q(0012),
+      q(0),
+      ],
+   q(bahamian dollar) => [
+      q(0013),
+      q(0),
+      ],
+   q(bahraini dinar) => [
+      q(0014),
+      q(0),
+      ],
+   q(baht) => [
+      q(0150),
+      q(0),
+      ],
+   q(balboa) => [
+      q(0117),
+      q(0),
+      ],
+   q(barbados dollar) => [
+      q(0016),
+      q(0),
+      ],
+   q(belarusian ruble) => [
+      q(0017),
+      q(0),
+      ],
+   q(belize dollar) => [
+      q(0018),
+      q(0),
+      ],
+   q(bermudian dollar) => [
+      q(0020),
+      q(0),
+      ],
+   q(bolivar) => [
+      q(0164),
+      q(0),
+      ],
+   q(boliviano) => [
+      q(0023),
+      q(0),
+      ],
+   q(bond markets unit european composite unit (eurco)) => [
+      q(0169),
+      q(0),
+      ],
+   q(bond markets unit european monetary unit (e.m.u.-6)) => [
+      q(0170),
+      q(0),
+      ],
+   q(bond markets unit european unit of account 17 (e.u.a.-17)) => [
+      q(0172),
+      q(0),
+      ],
+   q(bond markets unit european unit of account 9 (e.u.a.-9)) => [
+      q(0171),
+      q(0),
+      ],
+   q(brazilian real) => [
+      q(0028),
+      q(0),
+      ],
+   q(brunei dollar) => [
+      q(0029),
+      q(0),
+      ],
+   q(bulgarian lev) => [
+      q(0030),
+      q(0),
+      ],
+   q(burundi franc) => [
+      q(0031),
+      q(0),
+      ],
+   q(cabo verde escudo) => [
+      q(0032),
+      q(0),
+      ],
+   q(canadian dollar) => [
+      q(0035),
+      q(0),
+      ],
+   q(cayman islands dollar) => [
+      q(0036),
+      q(0),
+      ],
+   q(cfa franc bceao) => [
+      q(0019),
+      q(0),
+      ],
+   q(cfa franc beac) => [
+      q(0034),
+      q(0),
+      ],
+   q(cfp franc) => [
+      q(0060),
+      q(0),
+      ],
+   q(chilean peso) => [
+      q(0037),
+      q(0),
+      ],
+   q(colombian peso) => [
+      q(0040),
+      q(0),
+      ],
+   q(comorian franc) => [
+      q(0042),
+      q(0),
+      ],
+   q(congolese franc) => [
+      q(0043),
+      q(0),
+      ],
+   q(convertible mark) => [
+      q(0025),
+      q(0),
+      ],
+   q(cordoba oro) => [
+      q(0113),
+      q(0),
+      ],
+   q(costa rican colon) => [
+      q(0045),
+      q(0),
+      ],
+   q(cuban peso) => [
+      q(0047),
+      q(0),
+      ],
+   q(czech koruna) => [
+      q(0050),
+      q(0),
+      ],
+   q(dalasi) => [
+      q(0061),
+      q(0),
+      ],
+   q(danish krone) => [
+      q(0051),
+      q(0),
+      ],
+   q(denar) => [
+      q(0096),
+      q(0),
+      ],
+   q(djibouti franc) => [
+      q(0052),
+      q(0),
+      ],
+   q(dobra) => [
+      q(0129),
+      q(0),
+      ],
+   q(dominican peso) => [
+      q(0053),
+      q(0),
+      ],
+   q(dong) => [
+      q(0165),
+      q(0),
+      ],
+   q(east caribbean dollar) => [
+      q(0007),
+      q(0),
+      ],
+   q(egyptian pound) => [
+      q(0054),
+      q(0),
+      ],
+   q(el salvador colon) => [
+      q(0055),
+      q(0),
+      ],
+   q(ethiopian birr) => [
+      q(0057),
+      q(0),
+      ],
+   q(euro) => [
+      q(0002),
+      q(0),
+      ],
+   q(falkland islands pound) => [
+      q(0058),
+      q(0),
+      ],
+   q(fiji dollar) => [
+      q(0059),
+      q(0),
+      ],
+   q(forint) => [
+      q(0072),
+      q(0),
+      ],
+   q(ghana cedi) => [
+      q(0063),
+      q(0),
+      ],
+   q(gibraltar pound) => [
+      q(0064),
+      q(0),
+      ],
+   q(gold) => [
+      q(0173),
+      q(0),
+      ],
+   q(gourde) => [
+      q(0069),
+      q(0),
+      ],
+   q(guarani) => [
+      q(0119),
+      q(0),
+      ],
+   q(guinean franc) => [
+      q(0067),
+      q(0),
+      ],
+   q(guyana dollar) => [
+      q(0068),
+      q(0),
+      ],
+   q(hong kong dollar) => [
+      q(0071),
+      q(0),
+      ],
+   q(hryvnia) => [
+      q(0157),
+      q(0),
+      ],
+   q(iceland krona) => [
+      q(0073),
+      q(0),
+      ],
+   q(indian rupee) => [
+      q(0021),
+      q(0),
+      ],
+   q(iranian rial) => [
+      q(0076),
+      q(0),
+      ],
+   q(iraqi dinar) => [
+      q(0077),
+      q(0),
+      ],
+   q(jamaican dollar) => [
+      q(0079),
+      q(0),
+      ],
+   q(jordanian dinar) => [
+      q(0081),
+      q(0),
+      ],
+   q(kenyan shilling) => [
+      q(0083),
+      q(0),
+      ],
+   q(kina) => [
+      q(0118),
+      q(0),
+      ],
+   q(kuna) => [
+      q(0046),
+      q(0),
+      ],
+   q(kuwaiti dinar) => [
+      q(0086),
+      q(0),
+      ],
+   q(kwanza) => [
+      q(0006),
+      q(0),
+      ],
+   q(kyat) => [
+      q(0110),
+      q(0),
+      ],
+   q(lao kip) => [
+      q(0088),
+      q(0),
+      ],
+   q(lari) => [
+      q(0062),
+      q(0),
+      ],
+   q(lebanese pound) => [
+      q(0089),
+      q(0),
+      ],
+   q(lek) => [
+      q(0003),
+      q(0),
+      ],
+   q(lempira) => [
+      q(0070),
+      q(0),
+      ],
+   q(leone) => [
+      q(0133),
+      q(0),
+      ],
+   q(liberian dollar) => [
+      q(0092),
+      q(0),
+      ],
+   q(libyan dinar) => [
+      q(0093),
+      q(0),
+      ],
+   q(lilangeni) => [
+      q(0142),
+      q(0),
+      ],
+   q(loti) => [
+      q(0090),
+      q(0),
+      ],
+   q(malagasy ariary) => [
+      q(0097),
+      q(0),
+      ],
+   q(malawi kwacha) => [
+      q(0098),
+      q(0),
+      ],
+   q(malaysian ringgit) => [
+      q(0099),
+      q(0),
+      ],
+   q(mauritius rupee) => [
+      q(0102),
+      q(0),
+      ],
+   q(mexican peso) => [
+      q(0104),
+      q(0),
+      ],
+   q(mexican unidad de inversion (udi)) => [
+      q(0105),
+      q(0),
+      ],
+   q(moldovan leu) => [
+      q(0106),
+      q(0),
+      ],
+   q(moroccan dirham) => [
+      q(0108),
+      q(0),
+      ],
+   q(mozambique metical) => [
+      q(0109),
+      q(0),
+      ],
+   q(mvdol) => [
+      q(0024),
+      q(0),
+      ],
+   q(naira) => [
+      q(0114),
+      q(0),
+      ],
+   q(nakfa) => [
+      q(0056),
+      q(0),
+      ],
+   q(namibia dollar) => [
+      q(0111),
+      q(0),
+      ],
+   q(nepalese rupee) => [
+      q(0112),
+      q(0),
+      ],
+   q(netherlands antillean guilder) => [
+      q(0049),
+      q(0),
+      ],
+   q(new israeli sheqel) => [
+      q(0078),
+      q(0),
+      ],
+   q(new taiwan dollar) => [
+      q(0147),
+      q(0),
+      ],
+   q(new zealand dollar) => [
+      q(0044),
+      q(0),
+      ],
+   q(ngultrum) => [
+      q(0022),
+      q(0),
+      ],
+   q(north korean won) => [
+      q(0084),
+      q(0),
+      ],
+   q(norwegian krone) => [
+      q(0027),
+      q(0),
+      ],
+   q(ouguiya) => [
+      q(0101),
+      q(0),
+      ],
+   q(pa'anga) => [
+      q(0151),
+      q(0),
+      ],
+   q(pakistan rupee) => [
+      q(0116),
+      q(0),
+      ],
+   q(palladium) => [
+      q(0174),
+      q(0),
+      ],
+   q(pataca) => [
+      q(0095),
+      q(0),
+      ],
+   q(peso convertible) => [
+      q(0048),
+      q(0),
+      ],
+   q(peso uruguayo) => [
+      q(0160),
+      q(0),
+      ],
+   q(philippine piso) => [
+      q(0121),
+      q(0),
+      ],
+   q(platinum) => [
+      q(0175),
+      q(0),
+      ],
+   q(pound sterling) => [
+      q(0066),
+      q(0),
+      ],
+   q(pula) => [
+      q(0026),
+      q(0),
+      ],
+   q(qatari rial) => [
+      q(0123),
+      q(0),
+      ],
+   q(quetzal) => [
+      q(0065),
+      q(0),
+      ],
+   q(rand) => [
+      q(0091),
+      q(0),
+      ],
+   q(rial omani) => [
+      q(0115),
+      q(0),
+      ],
+   q(riel) => [
+      q(0033),
+      q(0),
+      ],
+   q(romanian leu) => [
+      q(0124),
+      q(0),
+      ],
+   q(rufiyaa) => [
+      q(0100),
+      q(0),
+      ],
+   q(rupiah) => [
+      q(0074),
+      q(0),
+      ],
+   q(russian ruble) => [
+      q(0125),
+      q(0),
+      ],
+   q(rwanda franc) => [
+      q(0126),
+      q(0),
+      ],
+   q(saint helena pound) => [
+      q(0127),
+      q(0),
+      ],
+   q(saudi riyal) => [
+      q(0130),
+      q(0),
+      ],
+   q(sdr (special drawing right)) => [
+      q(0075),
+      q(0),
+      ],
+   q(serbian dinar) => [
+      q(0131),
+      q(0),
+      ],
+   q(seychelles rupee) => [
+      q(0132),
+      q(0),
+      ],
+   q(silver) => [
+      q(0176),
+      q(0),
+      ],
+   q(singapore dollar) => [
+      q(0134),
+      q(0),
+      ],
+   q(sol) => [
+      q(0120),
+      q(0),
+      ],
+   q(solomon islands dollar) => [
+      q(0136),
+      q(0),
+      ],
+   q(som) => [
+      q(0087),
+      q(0),
+      ],
+   q(somali shilling) => [
+      q(0137),
+      q(0),
+      ],
+   q(somoni) => [
+      q(0148),
+      q(0),
+      ],
+   q(south sudanese pound) => [
+      q(0138),
+      q(0),
+      ],
+   q(sri lanka rupee) => [
+      q(0139),
+      q(0),
+      ],
+   q(sucre) => [
+      q(0135),
+      q(0),
+      ],
+   q(sudanese pound) => [
+      q(0140),
+      q(0),
+      ],
+   q(surinam dollar) => [
+      q(0141),
+      q(0),
+      ],
+   q(swedish krona) => [
+      q(0143),
+      q(0),
+      ],
+   q(swiss franc) => [
+      q(0094),
+      q(0),
+      ],
+   q(syrian pound) => [
+      q(0146),
+      q(0),
+      ],
+   q(taka) => [
+      q(0015),
+      q(0),
+      ],
+   q(tala) => [
+      q(0128),
+      q(0),
+      ],
+   q(tanzanian shilling) => [
+      q(0149),
+      q(0),
+      ],
+   q(tenge) => [
+      q(0082),
+      q(0),
+      ],
+   q(trinidad and tobago dollar) => [
+      q(0152),
+      q(0),
+      ],
+   q(tugrik) => [
+      q(0107),
+      q(0),
+      ],
+   q(tunisian dinar) => [
+      q(0153),
+      q(0),
+      ],
+   q(turkish lira) => [
+      q(0154),
+      q(0),
+      ],
+   q(turkmenistan new manat) => [
+      q(0155),
+      q(0),
+      ],
+   q(uae dirham) => [
+      q(0158),
+      q(0),
+      ],
+   q(uganda shilling) => [
+      q(0156),
+      q(0),
+      ],
+   q(unidad de fomento) => [
+      q(0038),
+      q(0),
+      ],
+   q(unidad de valor real) => [
+      q(0041),
+      q(0),
+      ],
+   q(uruguay peso en unidades indexadas (uruiurui)) => [
+      q(0161),
+      q(0),
+      ],
+   q(us dollar) => [
+      q(0005),
+      q(0),
+      ],
+   q(us dollar (next day)) => [
+      q(0159),
+      q(0),
+      ],
+   q(uzbekistan sum) => [
+      q(0162),
+      q(0),
+      ],
+   q(vatu) => [
+      q(0163),
+      q(0),
+      ],
+   q(wir euro) => [
+      q(0144),
+      q(0),
+      ],
+   q(wir franc) => [
+      q(0145),
+      q(0),
+      ],
+   q(won) => [
+      q(0085),
+      q(0),
+      ],
+   q(yemeni rial) => [
+      q(0166),
+      q(0),
+      ],
+   q(yen) => [
+      q(0080),
+      q(0),
+      ],
+   q(yuan renminbi) => [
+      q(0039),
+      q(0),
+      ],
+   q(zambian kwacha) => [
+      q(0167),
+      q(0),
+      ],
+   q(zimbabwe dollar) => [
+      q(0168),
+      q(0),
+      ],
+   q(zloty) => [
+      q(0122),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'currency'}{'code2id'} = {
+   q(alpha) => {
+      q(AED) => [
+         q(0158),
+         q(0),
+         ],
+      q(AFN) => [
+         q(0001),
+         q(0),
+         ],
+      q(ALL) => [
+         q(0003),
+         q(0),
+         ],
+      q(AMD) => [
+         q(0009),
+         q(0),
+         ],
+      q(ANG) => [
+         q(0049),
+         q(0),
+         ],
+      q(AOA) => [
+         q(0006),
+         q(0),
+         ],
+      q(ARS) => [
+         q(0008),
+         q(0),
+         ],
+      q(AUD) => [
+         q(0011),
+         q(0),
+         ],
+      q(AWG) => [
+         q(0010),
+         q(0),
+         ],
+      q(AZN) => [
+         q(0012),
+         q(0),
+         ],
+      q(BAM) => [
+         q(0025),
+         q(0),
+         ],
+      q(BBD) => [
+         q(0016),
+         q(0),
+         ],
+      q(BDT) => [
+         q(0015),
+         q(0),
+         ],
+      q(BGN) => [
+         q(0030),
+         q(0),
+         ],
+      q(BHD) => [
+         q(0014),
+         q(0),
+         ],
+      q(BIF) => [
+         q(0031),
+         q(0),
+         ],
+      q(BMD) => [
+         q(0020),
+         q(0),
+         ],
+      q(BND) => [
+         q(0029),
+         q(0),
+         ],
+      q(BOB) => [
+         q(0023),
+         q(0),
+         ],
+      q(BOV) => [
+         q(0024),
+         q(0),
+         ],
+      q(BRL) => [
+         q(0028),
+         q(0),
+         ],
+      q(BSD) => [
+         q(0013),
+         q(0),
+         ],
+      q(BTN) => [
+         q(0022),
+         q(0),
+         ],
+      q(BWP) => [
+         q(0026),
+         q(0),
+         ],
+      q(BYN) => [
+         q(0017),
+         q(0),
+         ],
+      q(BZD) => [
+         q(0018),
+         q(0),
+         ],
+      q(CAD) => [
+         q(0035),
+         q(0),
+         ],
+      q(CDF) => [
+         q(0043),
+         q(0),
+         ],
+      q(CHE) => [
+         q(0144),
+         q(0),
+         ],
+      q(CHF) => [
+         q(0094),
+         q(0),
+         ],
+      q(CHW) => [
+         q(0145),
+         q(0),
+         ],
+      q(CLF) => [
+         q(0038),
+         q(0),
+         ],
+      q(CLP) => [
+         q(0037),
+         q(0),
+         ],
+      q(CNY) => [
+         q(0039),
+         q(0),
+         ],
+      q(COP) => [
+         q(0040),
+         q(0),
+         ],
+      q(COU) => [
+         q(0041),
+         q(0),
+         ],
+      q(CRC) => [
+         q(0045),
+         q(0),
+         ],
+      q(CUC) => [
+         q(0048),
+         q(0),
+         ],
+      q(CUP) => [
+         q(0047),
+         q(0),
+         ],
+      q(CVE) => [
+         q(0032),
+         q(0),
+         ],
+      q(CZK) => [
+         q(0050),
+         q(0),
+         ],
+      q(DJF) => [
+         q(0052),
+         q(0),
+         ],
+      q(DKK) => [
+         q(0051),
+         q(0),
+         ],
+      q(DOP) => [
+         q(0053),
+         q(0),
+         ],
+      q(DZD) => [
+         q(0004),
+         q(0),
+         ],
+      q(EGP) => [
+         q(0054),
+         q(0),
+         ],
+      q(ERN) => [
+         q(0056),
+         q(0),
+         ],
+      q(ETB) => [
+         q(0057),
+         q(0),
+         ],
+      q(EUR) => [
+         q(0002),
+         q(0),
+         ],
+      q(FJD) => [
+         q(0059),
+         q(0),
+         ],
+      q(FKP) => [
+         q(0058),
+         q(0),
+         ],
+      q(GBP) => [
+         q(0066),
+         q(0),
+         ],
+      q(GEL) => [
+         q(0062),
+         q(0),
+         ],
+      q(GHS) => [
+         q(0063),
+         q(0),
+         ],
+      q(GIP) => [
+         q(0064),
+         q(0),
+         ],
+      q(GMD) => [
+         q(0061),
+         q(0),
+         ],
+      q(GNF) => [
+         q(0067),
+         q(0),
+         ],
+      q(GTQ) => [
+         q(0065),
+         q(0),
+         ],
+      q(GYD) => [
+         q(0068),
+         q(0),
+         ],
+      q(HKD) => [
+         q(0071),
+         q(0),
+         ],
+      q(HNL) => [
+         q(0070),
+         q(0),
+         ],
+      q(HRK) => [
+         q(0046),
+         q(0),
+         ],
+      q(HTG) => [
+         q(0069),
+         q(0),
+         ],
+      q(HUF) => [
+         q(0072),
+         q(0),
+         ],
+      q(IDR) => [
+         q(0074),
+         q(0),
+         ],
+      q(ILS) => [
+         q(0078),
+         q(0),
+         ],
+      q(INR) => [
+         q(0021),
+         q(0),
+         ],
+      q(IQD) => [
+         q(0077),
+         q(0),
+         ],
+      q(IRR) => [
+         q(0076),
+         q(0),
+         ],
+      q(ISK) => [
+         q(0073),
+         q(0),
+         ],
+      q(JMD) => [
+         q(0079),
+         q(0),
+         ],
+      q(JOD) => [
+         q(0081),
+         q(0),
+         ],
+      q(JPY) => [
+         q(0080),
+         q(0),
+         ],
+      q(KES) => [
+         q(0083),
+         q(0),
+         ],
+      q(KGS) => [
+         q(0087),
+         q(0),
+         ],
+      q(KHR) => [
+         q(0033),
+         q(0),
+         ],
+      q(KMF) => [
+         q(0042),
+         q(0),
+         ],
+      q(KPW) => [
+         q(0084),
+         q(0),
+         ],
+      q(KRW) => [
+         q(0085),
+         q(0),
+         ],
+      q(KWD) => [
+         q(0086),
+         q(0),
+         ],
+      q(KYD) => [
+         q(0036),
+         q(0),
+         ],
+      q(KZT) => [
+         q(0082),
+         q(0),
+         ],
+      q(LAK) => [
+         q(0088),
+         q(0),
+         ],
+      q(LBP) => [
+         q(0089),
+         q(0),
+         ],
+      q(LKR) => [
+         q(0139),
+         q(0),
+         ],
+      q(LRD) => [
+         q(0092),
+         q(0),
+         ],
+      q(LSL) => [
+         q(0090),
+         q(0),
+         ],
+      q(LYD) => [
+         q(0093),
+         q(0),
+         ],
+      q(MAD) => [
+         q(0108),
+         q(0),
+         ],
+      q(MDL) => [
+         q(0106),
+         q(0),
+         ],
+      q(MGA) => [
+         q(0097),
+         q(0),
+         ],
+      q(MKD) => [
+         q(0096),
+         q(0),
+         ],
+      q(MMK) => [
+         q(0110),
+         q(0),
+         ],
+      q(MNT) => [
+         q(0107),
+         q(0),
+         ],
+      q(MOP) => [
+         q(0095),
+         q(0),
+         ],
+      q(MRU) => [
+         q(0101),
+         q(0),
+         ],
+      q(MUR) => [
+         q(0102),
+         q(0),
+         ],
+      q(MVR) => [
+         q(0100),
+         q(0),
+         ],
+      q(MWK) => [
+         q(0098),
+         q(0),
+         ],
+      q(MXN) => [
+         q(0104),
+         q(0),
+         ],
+      q(MXV) => [
+         q(0105),
+         q(0),
+         ],
+      q(MYR) => [
+         q(0099),
+         q(0),
+         ],
+      q(MZN) => [
+         q(0109),
+         q(0),
+         ],
+      q(NAD) => [
+         q(0111),
+         q(0),
+         ],
+      q(NGN) => [
+         q(0114),
+         q(0),
+         ],
+      q(NIO) => [
+         q(0113),
+         q(0),
+         ],
+      q(NOK) => [
+         q(0027),
+         q(0),
+         ],
+      q(NPR) => [
+         q(0112),
+         q(0),
+         ],
+      q(NZD) => [
+         q(0044),
+         q(0),
+         ],
+      q(OMR) => [
+         q(0115),
+         q(0),
+         ],
+      q(PAB) => [
+         q(0117),
+         q(0),
+         ],
+      q(PEN) => [
+         q(0120),
+         q(0),
+         ],
+      q(PGK) => [
+         q(0118),
+         q(0),
+         ],
+      q(PHP) => [
+         q(0121),
+         q(0),
+         ],
+      q(PKR) => [
+         q(0116),
+         q(0),
+         ],
+      q(PLN) => [
+         q(0122),
+         q(0),
+         ],
+      q(PYG) => [
+         q(0119),
+         q(0),
+         ],
+      q(QAR) => [
+         q(0123),
+         q(0),
+         ],
+      q(RON) => [
+         q(0124),
+         q(0),
+         ],
+      q(RSD) => [
+         q(0131),
+         q(0),
+         ],
+      q(RUB) => [
+         q(0125),
+         q(0),
+         ],
+      q(RWF) => [
+         q(0126),
+         q(0),
+         ],
+      q(SAR) => [
+         q(0130),
+         q(0),
+         ],
+      q(SBD) => [
+         q(0136),
+         q(0),
+         ],
+      q(SCR) => [
+         q(0132),
+         q(0),
+         ],
+      q(SDG) => [
+         q(0140),
+         q(0),
+         ],
+      q(SEK) => [
+         q(0143),
+         q(0),
+         ],
+      q(SGD) => [
+         q(0134),
+         q(0),
+         ],
+      q(SHP) => [
+         q(0127),
+         q(0),
+         ],
+      q(SLL) => [
+         q(0133),
+         q(0),
+         ],
+      q(SOS) => [
+         q(0137),
+         q(0),
+         ],
+      q(SRD) => [
+         q(0141),
+         q(0),
+         ],
+      q(SSP) => [
+         q(0138),
+         q(0),
+         ],
+      q(STN) => [
+         q(0129),
+         q(0),
+         ],
+      q(SVC) => [
+         q(0055),
+         q(0),
+         ],
+      q(SYP) => [
+         q(0146),
+         q(0),
+         ],
+      q(SZL) => [
+         q(0142),
+         q(0),
+         ],
+      q(THB) => [
+         q(0150),
+         q(0),
+         ],
+      q(TJS) => [
+         q(0148),
+         q(0),
+         ],
+      q(TMT) => [
+         q(0155),
+         q(0),
+         ],
+      q(TND) => [
+         q(0153),
+         q(0),
+         ],
+      q(TOP) => [
+         q(0151),
+         q(0),
+         ],
+      q(TRY) => [
+         q(0154),
+         q(0),
+         ],
+      q(TTD) => [
+         q(0152),
+         q(0),
+         ],
+      q(TWD) => [
+         q(0147),
+         q(0),
+         ],
+      q(TZS) => [
+         q(0149),
+         q(0),
+         ],
+      q(UAH) => [
+         q(0157),
+         q(0),
+         ],
+      q(UGX) => [
+         q(0156),
+         q(0),
+         ],
+      q(USD) => [
+         q(0005),
+         q(0),
+         ],
+      q(USN) => [
+         q(0159),
+         q(0),
+         ],
+      q(UYI) => [
+         q(0161),
+         q(0),
+         ],
+      q(UYU) => [
+         q(0160),
+         q(0),
+         ],
+      q(UZS) => [
+         q(0162),
+         q(0),
+         ],
+      q(VEF) => [
+         q(0164),
+         q(0),
+         ],
+      q(VND) => [
+         q(0165),
+         q(0),
+         ],
+      q(VUV) => [
+         q(0163),
+         q(0),
+         ],
+      q(WST) => [
+         q(0128),
+         q(0),
+         ],
+      q(XAF) => [
+         q(0034),
+         q(0),
+         ],
+      q(XAG) => [
+         q(0176),
+         q(0),
+         ],
+      q(XAU) => [
+         q(0173),
+         q(0),
+         ],
+      q(XBA) => [
+         q(0169),
+         q(0),
+         ],
+      q(XBB) => [
+         q(0170),
+         q(0),
+         ],
+      q(XBC) => [
+         q(0171),
+         q(0),
+         ],
+      q(XBD) => [
+         q(0172),
+         q(0),
+         ],
+      q(XCD) => [
+         q(0007),
+         q(0),
+         ],
+      q(XDR) => [
+         q(0075),
+         q(0),
+         ],
+      q(XOF) => [
+         q(0019),
+         q(0),
+         ],
+      q(XPD) => [
+         q(0174),
+         q(0),
+         ],
+      q(XPF) => [
+         q(0060),
+         q(0),
+         ],
+      q(XPT) => [
+         q(0175),
+         q(0),
+         ],
+      q(XSU) => [
+         q(0135),
+         q(0),
+         ],
+      q(XUA) => [
+         q(0103),
+         q(0),
+         ],
+      q(YER) => [
+         q(0166),
+         q(0),
+         ],
+      q(ZAR) => [
+         q(0091),
+         q(0),
+         ],
+      q(ZMW) => [
+         q(0167),
+         q(0),
+         ],
+      q(ZWL) => [
+         q(0168),
+         q(0),
+         ],
+      },
+   q(num) => {
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(032) => [
+         q(0008),
+         q(0),
+         ],
+      q(036) => [
+         q(0011),
+         q(0),
+         ],
+      q(044) => [
+         q(0013),
+         q(0),
+         ],
+      q(048) => [
+         q(0014),
+         q(0),
+         ],
+      q(050) => [
+         q(0015),
+         q(0),
+         ],
+      q(051) => [
+         q(0009),
+         q(0),
+         ],
+      q(052) => [
+         q(0016),
+         q(0),
+         ],
+      q(060) => [
+         q(0020),
+         q(0),
+         ],
+      q(064) => [
+         q(0022),
+         q(0),
+         ],
+      q(068) => [
+         q(0023),
+         q(0),
+         ],
+      q(072) => [
+         q(0026),
+         q(0),
+         ],
+      q(084) => [
+         q(0018),
+         q(0),
+         ],
+      q(090) => [
+         q(0136),
+         q(0),
+         ],
+      q(096) => [
+         q(0029),
+         q(0),
+         ],
+      q(104) => [
+         q(0110),
+         q(0),
+         ],
+      q(108) => [
+         q(0031),
+         q(0),
+         ],
+      q(116) => [
+         q(0033),
+         q(0),
+         ],
+      q(124) => [
+         q(0035),
+         q(0),
+         ],
+      q(132) => [
+         q(0032),
+         q(0),
+         ],
+      q(136) => [
+         q(0036),
+         q(0),
+         ],
+      q(144) => [
+         q(0139),
+         q(0),
+         ],
+      q(152) => [
+         q(0037),
+         q(0),
+         ],
+      q(156) => [
+         q(0039),
+         q(0),
+         ],
+      q(170) => [
+         q(0040),
+         q(0),
+         ],
+      q(174) => [
+         q(0042),
+         q(0),
+         ],
+      q(188) => [
+         q(0045),
+         q(0),
+         ],
+      q(191) => [
+         q(0046),
+         q(0),
+         ],
+      q(192) => [
+         q(0047),
+         q(0),
+         ],
+      q(203) => [
+         q(0050),
+         q(0),
+         ],
+      q(208) => [
+         q(0051),
+         q(0),
+         ],
+      q(214) => [
+         q(0053),
+         q(0),
+         ],
+      q(222) => [
+         q(0055),
+         q(0),
+         ],
+      q(230) => [
+         q(0057),
+         q(0),
+         ],
+      q(232) => [
+         q(0056),
+         q(0),
+         ],
+      q(238) => [
+         q(0058),
+         q(0),
+         ],
+      q(242) => [
+         q(0059),
+         q(0),
+         ],
+      q(262) => [
+         q(0052),
+         q(0),
+         ],
+      q(270) => [
+         q(0061),
+         q(0),
+         ],
+      q(292) => [
+         q(0064),
+         q(0),
+         ],
+      q(320) => [
+         q(0065),
+         q(0),
+         ],
+      q(324) => [
+         q(0067),
+         q(0),
+         ],
+      q(328) => [
+         q(0068),
+         q(0),
+         ],
+      q(332) => [
+         q(0069),
+         q(0),
+         ],
+      q(340) => [
+         q(0070),
+         q(0),
+         ],
+      q(344) => [
+         q(0071),
+         q(0),
+         ],
+      q(348) => [
+         q(0072),
+         q(0),
+         ],
+      q(352) => [
+         q(0073),
+         q(0),
+         ],
+      q(356) => [
+         q(0021),
+         q(0),
+         ],
+      q(360) => [
+         q(0074),
+         q(0),
+         ],
+      q(364) => [
+         q(0076),
+         q(0),
+         ],
+      q(368) => [
+         q(0077),
+         q(0),
+         ],
+      q(376) => [
+         q(0078),
+         q(0),
+         ],
+      q(388) => [
+         q(0079),
+         q(0),
+         ],
+      q(392) => [
+         q(0080),
+         q(0),
+         ],
+      q(398) => [
+         q(0082),
+         q(0),
+         ],
+      q(400) => [
+         q(0081),
+         q(0),
+         ],
+      q(404) => [
+         q(0083),
+         q(0),
+         ],
+      q(408) => [
+         q(0084),
+         q(0),
+         ],
+      q(410) => [
+         q(0085),
+         q(0),
+         ],
+      q(414) => [
+         q(0086),
+         q(0),
+         ],
+      q(417) => [
+         q(0087),
+         q(0),
+         ],
+      q(418) => [
+         q(0088),
+         q(0),
+         ],
+      q(422) => [
+         q(0089),
+         q(0),
+         ],
+      q(426) => [
+         q(0090),
+         q(0),
+         ],
+      q(430) => [
+         q(0092),
+         q(0),
+         ],
+      q(434) => [
+         q(0093),
+         q(0),
+         ],
+      q(446) => [
+         q(0095),
+         q(0),
+         ],
+      q(454) => [
+         q(0098),
+         q(0),
+         ],
+      q(458) => [
+         q(0099),
+         q(0),
+         ],
+      q(462) => [
+         q(0100),
+         q(0),
+         ],
+      q(480) => [
+         q(0102),
+         q(0),
+         ],
+      q(484) => [
+         q(0104),
+         q(0),
+         ],
+      q(496) => [
+         q(0107),
+         q(0),
+         ],
+      q(498) => [
+         q(0106),
+         q(0),
+         ],
+      q(504) => [
+         q(0108),
+         q(0),
+         ],
+      q(512) => [
+         q(0115),
+         q(0),
+         ],
+      q(516) => [
+         q(0111),
+         q(0),
+         ],
+      q(524) => [
+         q(0112),
+         q(0),
+         ],
+      q(532) => [
+         q(0049),
+         q(0),
+         ],
+      q(533) => [
+         q(0010),
+         q(0),
+         ],
+      q(548) => [
+         q(0163),
+         q(0),
+         ],
+      q(554) => [
+         q(0044),
+         q(0),
+         ],
+      q(558) => [
+         q(0113),
+         q(0),
+         ],
+      q(566) => [
+         q(0114),
+         q(0),
+         ],
+      q(578) => [
+         q(0027),
+         q(0),
+         ],
+      q(586) => [
+         q(0116),
+         q(0),
+         ],
+      q(590) => [
+         q(0117),
+         q(0),
+         ],
+      q(598) => [
+         q(0118),
+         q(0),
+         ],
+      q(600) => [
+         q(0119),
+         q(0),
+         ],
+      q(604) => [
+         q(0120),
+         q(0),
+         ],
+      q(608) => [
+         q(0121),
+         q(0),
+         ],
+      q(634) => [
+         q(0123),
+         q(0),
+         ],
+      q(643) => [
+         q(0125),
+         q(0),
+         ],
+      q(646) => [
+         q(0126),
+         q(0),
+         ],
+      q(654) => [
+         q(0127),
+         q(0),
+         ],
+      q(682) => [
+         q(0130),
+         q(0),
+         ],
+      q(690) => [
+         q(0132),
+         q(0),
+         ],
+      q(694) => [
+         q(0133),
+         q(0),
+         ],
+      q(702) => [
+         q(0134),
+         q(0),
+         ],
+      q(704) => [
+         q(0165),
+         q(0),
+         ],
+      q(706) => [
+         q(0137),
+         q(0),
+         ],
+      q(710) => [
+         q(0091),
+         q(0),
+         ],
+      q(728) => [
+         q(0138),
+         q(0),
+         ],
+      q(748) => [
+         q(0142),
+         q(0),
+         ],
+      q(752) => [
+         q(0143),
+         q(0),
+         ],
+      q(756) => [
+         q(0094),
+         q(0),
+         ],
+      q(760) => [
+         q(0146),
+         q(0),
+         ],
+      q(764) => [
+         q(0150),
+         q(0),
+         ],
+      q(776) => [
+         q(0151),
+         q(0),
+         ],
+      q(780) => [
+         q(0152),
+         q(0),
+         ],
+      q(784) => [
+         q(0158),
+         q(0),
+         ],
+      q(788) => [
+         q(0153),
+         q(0),
+         ],
+      q(800) => [
+         q(0156),
+         q(0),
+         ],
+      q(807) => [
+         q(0096),
+         q(0),
+         ],
+      q(818) => [
+         q(0054),
+         q(0),
+         ],
+      q(826) => [
+         q(0066),
+         q(0),
+         ],
+      q(834) => [
+         q(0149),
+         q(0),
+         ],
+      q(840) => [
+         q(0005),
+         q(0),
+         ],
+      q(858) => [
+         q(0160),
+         q(0),
+         ],
+      q(860) => [
+         q(0162),
+         q(0),
+         ],
+      q(882) => [
+         q(0128),
+         q(0),
+         ],
+      q(886) => [
+         q(0166),
+         q(0),
+         ],
+      q(901) => [
+         q(0147),
+         q(0),
+         ],
+      q(929) => [
+         q(0101),
+         q(0),
+         ],
+      q(930) => [
+         q(0129),
+         q(0),
+         ],
+      q(931) => [
+         q(0048),
+         q(0),
+         ],
+      q(932) => [
+         q(0168),
+         q(0),
+         ],
+      q(933) => [
+         q(0017),
+         q(0),
+         ],
+      q(934) => [
+         q(0155),
+         q(0),
+         ],
+      q(936) => [
+         q(0063),
+         q(0),
+         ],
+      q(937) => [
+         q(0164),
+         q(0),
+         ],
+      q(938) => [
+         q(0140),
+         q(0),
+         ],
+      q(940) => [
+         q(0161),
+         q(0),
+         ],
+      q(941) => [
+         q(0131),
+         q(0),
+         ],
+      q(943) => [
+         q(0109),
+         q(0),
+         ],
+      q(944) => [
+         q(0012),
+         q(0),
+         ],
+      q(946) => [
+         q(0124),
+         q(0),
+         ],
+      q(947) => [
+         q(0144),
+         q(0),
+         ],
+      q(948) => [
+         q(0145),
+         q(0),
+         ],
+      q(949) => [
+         q(0154),
+         q(0),
+         ],
+      q(950) => [
+         q(0034),
+         q(0),
+         ],
+      q(951) => [
+         q(0007),
+         q(0),
+         ],
+      q(952) => [
+         q(0019),
+         q(0),
+         ],
+      q(953) => [
+         q(0060),
+         q(0),
+         ],
+      q(955) => [
+         q(0169),
+         q(0),
+         ],
+      q(956) => [
+         q(0170),
+         q(0),
+         ],
+      q(957) => [
+         q(0171),
+         q(0),
+         ],
+      q(958) => [
+         q(0172),
+         q(0),
+         ],
+      q(959) => [
+         q(0173),
+         q(0),
+         ],
+      q(960) => [
+         q(0075),
+         q(0),
+         ],
+      q(961) => [
+         q(0176),
+         q(0),
+         ],
+      q(962) => [
+         q(0175),
+         q(0),
+         ],
+      q(964) => [
+         q(0174),
+         q(0),
+         ],
+      q(965) => [
+         q(0103),
+         q(0),
+         ],
+      q(967) => [
+         q(0167),
+         q(0),
+         ],
+      q(968) => [
+         q(0141),
+         q(0),
+         ],
+      q(969) => [
+         q(0097),
+         q(0),
+         ],
+      q(970) => [
+         q(0041),
+         q(0),
+         ],
+      q(971) => [
+         q(0001),
+         q(0),
+         ],
+      q(972) => [
+         q(0148),
+         q(0),
+         ],
+      q(973) => [
+         q(0006),
+         q(0),
+         ],
+      q(975) => [
+         q(0030),
+         q(0),
+         ],
+      q(976) => [
+         q(0043),
+         q(0),
+         ],
+      q(977) => [
+         q(0025),
+         q(0),
+         ],
+      q(978) => [
+         q(0002),
+         q(0),
+         ],
+      q(979) => [
+         q(0105),
+         q(0),
+         ],
+      q(980) => [
+         q(0157),
+         q(0),
+         ],
+      q(981) => [
+         q(0062),
+         q(0),
+         ],
+      q(984) => [
+         q(0024),
+         q(0),
+         ],
+      q(985) => [
+         q(0122),
+         q(0),
+         ],
+      q(986) => [
+         q(0028),
+         q(0),
+         ],
+      q(990) => [
+         q(0038),
+         q(0),
+         ],
+      q(994) => [
+         q(0135),
+         q(0),
+         ],
+      q(997) => [
+         q(0159),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'currency'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(AFN),
+      q(0002) => q(EUR),
+      q(0003) => q(ALL),
+      q(0004) => q(DZD),
+      q(0005) => q(USD),
+      q(0006) => q(AOA),
+      q(0007) => q(XCD),
+      q(0008) => q(ARS),
+      q(0009) => q(AMD),
+      q(0010) => q(AWG),
+      q(0011) => q(AUD),
+      q(0012) => q(AZN),
+      q(0013) => q(BSD),
+      q(0014) => q(BHD),
+      q(0015) => q(BDT),
+      q(0016) => q(BBD),
+      q(0017) => q(BYN),
+      q(0018) => q(BZD),
+      q(0019) => q(XOF),
+      q(0020) => q(BMD),
+      q(0021) => q(INR),
+      q(0022) => q(BTN),
+      q(0023) => q(BOB),
+      q(0024) => q(BOV),
+      q(0025) => q(BAM),
+      q(0026) => q(BWP),
+      q(0027) => q(NOK),
+      q(0028) => q(BRL),
+      q(0029) => q(BND),
+      q(0030) => q(BGN),
+      q(0031) => q(BIF),
+      q(0032) => q(CVE),
+      q(0033) => q(KHR),
+      q(0034) => q(XAF),
+      q(0035) => q(CAD),
+      q(0036) => q(KYD),
+      q(0037) => q(CLP),
+      q(0038) => q(CLF),
+      q(0039) => q(CNY),
+      q(0040) => q(COP),
+      q(0041) => q(COU),
+      q(0042) => q(KMF),
+      q(0043) => q(CDF),
+      q(0044) => q(NZD),
+      q(0045) => q(CRC),
+      q(0046) => q(HRK),
+      q(0047) => q(CUP),
+      q(0048) => q(CUC),
+      q(0049) => q(ANG),
+      q(0050) => q(CZK),
+      q(0051) => q(DKK),
+      q(0052) => q(DJF),
+      q(0053) => q(DOP),
+      q(0054) => q(EGP),
+      q(0055) => q(SVC),
+      q(0056) => q(ERN),
+      q(0057) => q(ETB),
+      q(0058) => q(FKP),
+      q(0059) => q(FJD),
+      q(0060) => q(XPF),
+      q(0061) => q(GMD),
+      q(0062) => q(GEL),
+      q(0063) => q(GHS),
+      q(0064) => q(GIP),
+      q(0065) => q(GTQ),
+      q(0066) => q(GBP),
+      q(0067) => q(GNF),
+      q(0068) => q(GYD),
+      q(0069) => q(HTG),
+      q(0070) => q(HNL),
+      q(0071) => q(HKD),
+      q(0072) => q(HUF),
+      q(0073) => q(ISK),
+      q(0074) => q(IDR),
+      q(0075) => q(XDR),
+      q(0076) => q(IRR),
+      q(0077) => q(IQD),
+      q(0078) => q(ILS),
+      q(0079) => q(JMD),
+      q(0080) => q(JPY),
+      q(0081) => q(JOD),
+      q(0082) => q(KZT),
+      q(0083) => q(KES),
+      q(0084) => q(KPW),
+      q(0085) => q(KRW),
+      q(0086) => q(KWD),
+      q(0087) => q(KGS),
+      q(0088) => q(LAK),
+      q(0089) => q(LBP),
+      q(0090) => q(LSL),
+      q(0091) => q(ZAR),
+      q(0092) => q(LRD),
+      q(0093) => q(LYD),
+      q(0094) => q(CHF),
+      q(0095) => q(MOP),
+      q(0096) => q(MKD),
+      q(0097) => q(MGA),
+      q(0098) => q(MWK),
+      q(0099) => q(MYR),
+      q(0100) => q(MVR),
+      q(0101) => q(MRU),
+      q(0102) => q(MUR),
+      q(0103) => q(XUA),
+      q(0104) => q(MXN),
+      q(0105) => q(MXV),
+      q(0106) => q(MDL),
+      q(0107) => q(MNT),
+      q(0108) => q(MAD),
+      q(0109) => q(MZN),
+      q(0110) => q(MMK),
+      q(0111) => q(NAD),
+      q(0112) => q(NPR),
+      q(0113) => q(NIO),
+      q(0114) => q(NGN),
+      q(0115) => q(OMR),
+      q(0116) => q(PKR),
+      q(0117) => q(PAB),
+      q(0118) => q(PGK),
+      q(0119) => q(PYG),
+      q(0120) => q(PEN),
+      q(0121) => q(PHP),
+      q(0122) => q(PLN),
+      q(0123) => q(QAR),
+      q(0124) => q(RON),
+      q(0125) => q(RUB),
+      q(0126) => q(RWF),
+      q(0127) => q(SHP),
+      q(0128) => q(WST),
+      q(0129) => q(STN),
+      q(0130) => q(SAR),
+      q(0131) => q(RSD),
+      q(0132) => q(SCR),
+      q(0133) => q(SLL),
+      q(0134) => q(SGD),
+      q(0135) => q(XSU),
+      q(0136) => q(SBD),
+      q(0137) => q(SOS),
+      q(0138) => q(SSP),
+      q(0139) => q(LKR),
+      q(0140) => q(SDG),
+      q(0141) => q(SRD),
+      q(0142) => q(SZL),
+      q(0143) => q(SEK),
+      q(0144) => q(CHE),
+      q(0145) => q(CHW),
+      q(0146) => q(SYP),
+      q(0147) => q(TWD),
+      q(0148) => q(TJS),
+      q(0149) => q(TZS),
+      q(0150) => q(THB),
+      q(0151) => q(TOP),
+      q(0152) => q(TTD),
+      q(0153) => q(TND),
+      q(0154) => q(TRY),
+      q(0155) => q(TMT),
+      q(0156) => q(UGX),
+      q(0157) => q(UAH),
+      q(0158) => q(AED),
+      q(0159) => q(USN),
+      q(0160) => q(UYU),
+      q(0161) => q(UYI),
+      q(0162) => q(UZS),
+      q(0163) => q(VUV),
+      q(0164) => q(VEF),
+      q(0165) => q(VND),
+      q(0166) => q(YER),
+      q(0167) => q(ZMW),
+      q(0168) => q(ZWL),
+      q(0169) => q(XBA),
+      q(0170) => q(XBB),
+      q(0171) => q(XBC),
+      q(0172) => q(XBD),
+      q(0173) => q(XAU),
+      q(0174) => q(XPD),
+      q(0175) => q(XPT),
+      q(0176) => q(XAG),
+      },
+   q(num) => {
+      q(0001) => q(971),
+      q(0002) => q(978),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(840),
+      q(0006) => q(973),
+      q(0007) => q(951),
+      q(0008) => q(032),
+      q(0009) => q(051),
+      q(0010) => q(533),
+      q(0011) => q(036),
+      q(0012) => q(944),
+      q(0013) => q(044),
+      q(0014) => q(048),
+      q(0015) => q(050),
+      q(0016) => q(052),
+      q(0017) => q(933),
+      q(0018) => q(084),
+      q(0019) => q(952),
+      q(0020) => q(060),
+      q(0021) => q(356),
+      q(0022) => q(064),
+      q(0023) => q(068),
+      q(0024) => q(984),
+      q(0025) => q(977),
+      q(0026) => q(072),
+      q(0027) => q(578),
+      q(0028) => q(986),
+      q(0029) => q(096),
+      q(0030) => q(975),
+      q(0031) => q(108),
+      q(0032) => q(132),
+      q(0033) => q(116),
+      q(0034) => q(950),
+      q(0035) => q(124),
+      q(0036) => q(136),
+      q(0037) => q(152),
+      q(0038) => q(990),
+      q(0039) => q(156),
+      q(0040) => q(170),
+      q(0041) => q(970),
+      q(0042) => q(174),
+      q(0043) => q(976),
+      q(0044) => q(554),
+      q(0045) => q(188),
+      q(0046) => q(191),
+      q(0047) => q(192),
+      q(0048) => q(931),
+      q(0049) => q(532),
+      q(0050) => q(203),
+      q(0051) => q(208),
+      q(0052) => q(262),
+      q(0053) => q(214),
+      q(0054) => q(818),
+      q(0055) => q(222),
+      q(0056) => q(232),
+      q(0057) => q(230),
+      q(0058) => q(238),
+      q(0059) => q(242),
+      q(0060) => q(953),
+      q(0061) => q(270),
+      q(0062) => q(981),
+      q(0063) => q(936),
+      q(0064) => q(292),
+      q(0065) => q(320),
+      q(0066) => q(826),
+      q(0067) => q(324),
+      q(0068) => q(328),
+      q(0069) => q(332),
+      q(0070) => q(340),
+      q(0071) => q(344),
+      q(0072) => q(348),
+      q(0073) => q(352),
+      q(0074) => q(360),
+      q(0075) => q(960),
+      q(0076) => q(364),
+      q(0077) => q(368),
+      q(0078) => q(376),
+      q(0079) => q(388),
+      q(0080) => q(392),
+      q(0081) => q(400),
+      q(0082) => q(398),
+      q(0083) => q(404),
+      q(0084) => q(408),
+      q(0085) => q(410),
+      q(0086) => q(414),
+      q(0087) => q(417),
+      q(0088) => q(418),
+      q(0089) => q(422),
+      q(0090) => q(426),
+      q(0091) => q(710),
+      q(0092) => q(430),
+      q(0093) => q(434),
+      q(0094) => q(756),
+      q(0095) => q(446),
+      q(0096) => q(807),
+      q(0097) => q(969),
+      q(0098) => q(454),
+      q(0099) => q(458),
+      q(0100) => q(462),
+      q(0101) => q(929),
+      q(0102) => q(480),
+      q(0103) => q(965),
+      q(0104) => q(484),
+      q(0105) => q(979),
+      q(0106) => q(498),
+      q(0107) => q(496),
+      q(0108) => q(504),
+      q(0109) => q(943),
+      q(0110) => q(104),
+      q(0111) => q(516),
+      q(0112) => q(524),
+      q(0113) => q(558),
+      q(0114) => q(566),
+      q(0115) => q(512),
+      q(0116) => q(586),
+      q(0117) => q(590),
+      q(0118) => q(598),
+      q(0119) => q(600),
+      q(0120) => q(604),
+      q(0121) => q(608),
+      q(0122) => q(985),
+      q(0123) => q(634),
+      q(0124) => q(946),
+      q(0125) => q(643),
+      q(0126) => q(646),
+      q(0127) => q(654),
+      q(0128) => q(882),
+      q(0129) => q(930),
+      q(0130) => q(682),
+      q(0131) => q(941),
+      q(0132) => q(690),
+      q(0133) => q(694),
+      q(0134) => q(702),
+      q(0135) => q(994),
+      q(0136) => q(090),
+      q(0137) => q(706),
+      q(0138) => q(728),
+      q(0139) => q(144),
+      q(0140) => q(938),
+      q(0141) => q(968),
+      q(0142) => q(748),
+      q(0143) => q(752),
+      q(0144) => q(947),
+      q(0145) => q(948),
+      q(0146) => q(760),
+      q(0147) => q(901),
+      q(0148) => q(972),
+      q(0149) => q(834),
+      q(0150) => q(764),
+      q(0151) => q(776),
+      q(0152) => q(780),
+      q(0153) => q(788),
+      q(0154) => q(949),
+      q(0155) => q(934),
+      q(0156) => q(800),
+      q(0157) => q(980),
+      q(0158) => q(784),
+      q(0159) => q(997),
+      q(0160) => q(858),
+      q(0161) => q(940),
+      q(0162) => q(860),
+      q(0163) => q(548),
+      q(0164) => q(937),
+      q(0165) => q(704),
+      q(0166) => q(886),
+      q(0167) => q(967),
+      q(0168) => q(932),
+      q(0169) => q(955),
+      q(0170) => q(956),
+      q(0171) => q(957),
+      q(0172) => q(958),
+      q(0173) => q(959),
+      q(0174) => q(964),
+      q(0175) => q(962),
+      q(0176) => q(961),
+      },
+};
+
+1;
+package #
+Locale::Codes::LangExt_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:55:11 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'langext'}{'id'} = '0233';
+
+$Locale::Codes::Data{'langext'}{'id2names'} = {
+   q(0001) => [
+      q(Algerian Saharan Arabic),
+      ],
+   q(0002) => [
+      q(Tajiki Arabic),
+      ],
+   q(0003) => [
+      q(Baharna Arabic),
+      ],
+   q(0004) => [
+      q(Mesopotamian Arabic),
+      ],
+   q(0005) => [
+      q(Ta'izzi-Adeni Arabic),
+      ],
+   q(0006) => [
+      q(Hijazi Arabic),
+      ],
+   q(0007) => [
+      q(Omani Arabic),
+      ],
+   q(0008) => [
+      q(Cypriot Arabic),
+      ],
+   q(0009) => [
+      q(Dhofari Arabic),
+      ],
+   q(0010) => [
+      q(Adamorobe Sign Language),
+      ],
+   q(0011) => [
+      q(Tunisian Arabic),
+      ],
+   q(0012) => [
+      q(Saidi Arabic),
+      ],
+   q(0013) => [
+      q(Argentine Sign Language),
+      ],
+   q(0014) => [
+      q(Armenian Sign Language),
+      ],
+   q(0015) => [
+      q(Gulf Arabic),
+      ],
+   q(0016) => [
+      q(Afghan Sign Language),
+      ],
+   q(0017) => [
+      q(South Levantine Arabic),
+      ],
+   q(0018) => [
+      q(North Levantine Arabic),
+      ],
+   q(0019) => [
+      q(Sudanese Arabic),
+      ],
+   q(0020) => [
+      q(Standard Arabic),
+      ],
+   q(0021) => [
+      q(Algerian Arabic),
+      ],
+   q(0022) => [
+      q(Najdi Arabic),
+      ],
+   q(0023) => [
+      q(Moroccan Arabic),
+      ],
+   q(0024) => [
+      q(Egyptian Arabic),
+      ],
+   q(0025) => [
+      q(American Sign Language),
+      ],
+   q(0026) => [
+      q(Australian Sign Language),
+      ],
+   q(0027) => [
+      q(Algerian Sign Language),
+      ],
+   q(0028) => [
+      q(Austrian Sign Language),
+      ],
+   q(0029) => [
+      q(Australian Aborigines Sign Language),
+      ],
+   q(0030) => [
+      q(Uzbeki Arabic),
+      ],
+   q(0031) => [
+      q(Eastern Egyptian Bedawi Arabic),
+      ],
+   q(0032) => [
+      q(Hadrami Arabic),
+      ],
+   q(0033) => [
+      q(Libyan Arabic),
+      ],
+   q(0034) => [
+      q(Sanaani Arabic),
+      ],
+   q(0035) => [
+      q(North Mesopotamian Arabic),
+      ],
+   q(0036) => [
+      q(Babalia Creole Arabic),
+      ],
+   q(0037) => [
+      q(British Sign Language),
+      ],
+   q(0038) => [
+      q(Ban Khor Sign Language),
+      ],
+   q(0039) => [
+      q(Banjar),
+      ],
+   q(0040) => [
+      q(Bamako Sign Language),
+      ],
+   q(0041) => [
+      q(Bulgarian Sign Language),
+      ],
+   q(0042) => [
+      q(Bengkala Sign Language),
+      ],
+   q(0043) => [
+      q(Bacanese Malay),
+      ],
+   q(0044) => [
+      q(Berau Malay),
+      ],
+   q(0045) => [
+      q(Bolivian Sign Language),
+      ],
+   q(0046) => [
+      q(Bukit Malay),
+      ],
+   q(0047) => [
+      q(Brazilian Sign Language),
+      ],
+   q(0048) => [
+      q(Min Dong Chinese),
+      ],
+   q(0049) => [
+      q(Chadian Sign Language),
+      ],
+   q(0050) => [
+      q(Jinyu Chinese),
+      ],
+   q(0051) => [
+      q(Mandarin Chinese),
+      ],
+   q(0052) => [
+      q(Cocos Islands Malay),
+      ],
+   q(0053) => [
+      q(Pu-Xian Chinese),
+      ],
+   q(0054) => [
+      q(Catalan Sign Language),
+      q(Lengua de senas catalana),
+      q(Llengua de Signes Catalana),
+      ],
+   q(0055) => [
+      q(Chiangmai Sign Language),
+      ],
+   q(0056) => [
+      q(Czech Sign Language),
+      ],
+   q(0057) => [
+      q(Cuba Sign Language),
+      ],
+   q(0058) => [
+      q(Chilean Sign Language),
+      ],
+   q(0059) => [
+      q(Chinese Sign Language),
+      ],
+   q(0060) => [
+      q(Colombian Sign Language),
+      ],
+   q(0061) => [
+      q(Croatia Sign Language),
+      ],
+   q(0062) => [
+      q(Costa Rican Sign Language),
+      ],
+   q(0063) => [
+      q(Huizhou Chinese),
+      ],
+   q(0064) => [
+      q(Min Zhong Chinese),
+      ],
+   q(0065) => [
+      q(Dominican Sign Language),
+      ],
+   q(0066) => [
+      q(Dutch Sign Language),
+      ],
+   q(0067) => [
+      q(Danish Sign Language),
+      ],
+   q(0068) => [
+      q(Duano),
+      ],
+   q(0069) => [
+      q(Ecuadorian Sign Language),
+      ],
+   q(0070) => [
+      q(Egypt Sign Language),
+      ],
+   q(0071) => [
+      q(Salvadoran Sign Language),
+      ],
+   q(0072) => [
+      q(Estonian Sign Language),
+      ],
+   q(0073) => [
+      q(Ethiopian Sign Language),
+      ],
+   q(0074) => [
+      q(Quebec Sign Language),
+      ],
+   q(0075) => [
+      q(Finnish Sign Language),
+      ],
+   q(0076) => [
+      q(French Sign Language),
+      ],
+   q(0077) => [
+      q(Finland-Swedish Sign Language),
+      q(finlandssvenskt teckensprak),
+      q(suomenruotsalainen viittomakieli),
+      ],
+   q(0078) => [
+      q(Gan Chinese),
+      ],
+   q(0079) => [
+      q(Ghandruk Sign Language),
+      ],
+   q(0080) => [
+      q(Goan Konkani),
+      ],
+   q(0081) => [
+      q(Ghanaian Sign Language),
+      ],
+   q(0082) => [
+      q(German Sign Language),
+      ],
+   q(0083) => [
+      q(Guatemalan Sign Language),
+      ],
+   q(0084) => [
+      q(Greek Sign Language),
+      ],
+   q(0085) => [
+      q(Guinean Sign Language),
+      ],
+   q(0086) => [
+      q(Hanoi Sign Language),
+      ],
+   q(0087) => [
+      q(Haiphong Sign Language),
+      ],
+   q(0088) => [
+      q(Hakka Chinese),
+      ],
+   q(0089) => [
+      q(Honduras Sign Language),
+      ],
+   q(0090) => [
+      q(Haji),
+      ],
+   q(0091) => [
+      q(Hong Kong Sign Language),
+      q(Heung Kong Sau Yue),
+      ],
+   q(0092) => [
+      q(Ho Chi Minh City Sign Language),
+      ],
+   q(0093) => [
+      q(Hawai'i Sign Language (HSL)),
+      q(Hawai'i Pidgin Sign Language),
+      ],
+   q(0094) => [
+      q(Hungarian Sign Language),
+      ],
+   q(0095) => [
+      q(Hausa Sign Language),
+      ],
+   q(0096) => [
+      q(Xiang Chinese),
+      ],
+   q(0097) => [
+      q(Icelandic Sign Language),
+      ],
+   q(0098) => [
+      q(Inuit Sign Language),
+      ],
+   q(0099) => [
+      q(International Sign),
+      ],
+   q(0100) => [
+      q(Indonesian Sign Language),
+      ],
+   q(0101) => [
+      q(Indian Sign Language),
+      ],
+   q(0102) => [
+      q(Italian Sign Language),
+      ],
+   q(0103) => [
+      q(Irish Sign Language),
+      ],
+   q(0104) => [
+      q(Israeli Sign Language),
+      ],
+   q(0105) => [
+      q(Jakun),
+      ],
+   q(0106) => [
+      q(Jambi Malay),
+      ],
+   q(0107) => [
+      q(Jamaican Country Sign Language),
+      ],
+   q(0108) => [
+      q(Jhankot Sign Language),
+      ],
+   q(0109) => [
+      q(Jamaican Sign Language),
+      ],
+   q(0110) => [
+      q(Jordanian Sign Language),
+      ],
+   q(0111) => [
+      q(Japanese Sign Language),
+      ],
+   q(0112) => [
+      q(Jumla Sign Language),
+      ],
+   q(0113) => [
+      q(Selangor Sign Language),
+      ],
+   q(0114) => [
+      q(Konkani (individual language)),
+      ],
+   q(0115) => [
+      q(Kubu),
+      ],
+   q(0116) => [
+      q(Korean Sign Language),
+      ],
+   q(0117) => [
+      q(Kerinci),
+      ],
+   q(0118) => [
+      q(Brunei),
+      ],
+   q(0119) => [
+      q(Libyan Sign Language),
+      ],
+   q(0120) => [
+      q(Loncong),
+      q(Sekak),
+      ],
+   q(0121) => [
+      q(Lubu),
+      ],
+   q(0122) => [
+      q(Col),
+      ],
+   q(0123) => [
+      q(Lithuanian Sign Language),
+      ],
+   q(0124) => [
+      q(Lyons Sign Language),
+      ],
+   q(0125) => [
+      q(Latvian Sign Language),
+      ],
+   q(0126) => [
+      q(Laos Sign Language),
+      ],
+   q(0127) => [
+      q(Panamanian Sign Language),
+      q(Lengua de Senas Panamenas),
+      ],
+   q(0128) => [
+      q(Trinidad and Tobago Sign Language),
+      ],
+   q(0129) => [
+      q(Mauritian Sign Language),
+      ],
+   q(0130) => [
+      q(Latgalian),
+      ],
+   q(0131) => [
+      q(Standard Latvian),
+      ],
+   q(0132) => [
+      q(Literary Chinese),
+      ],
+   q(0133) => [
+      q(North Moluccan Malay),
+      ],
+   q(0134) => [
+      q(Maltese Sign Language),
+      ],
+   q(0135) => [
+      q(Kedah Malay),
+      ],
+   q(0136) => [
+      q(Pattani Malay),
+      ],
+   q(0137) => [
+      q(Bangka),
+      ],
+   q(0138) => [
+      q(Mexican Sign Language),
+      ],
+   q(0139) => [
+      q(Minangkabau),
+      ],
+   q(0140) => [
+      q(Min Bei Chinese),
+      ],
+   q(0141) => [
+      q(Kota Bangun Kutai Malay),
+      ],
+   q(0142) => [
+      q(Martha's Vineyard Sign Language),
+      ],
+   q(0143) => [
+      q(Yucatec Maya Sign Language),
+      ],
+   q(0144) => [
+      q(Sabah Malay),
+      ],
+   q(0145) => [
+      q(Mongolian Sign Language),
+      ],
+   q(0146) => [
+      q(Musi),
+      ],
+   q(0147) => [
+      q(Madagascar Sign Language),
+      ],
+   q(0148) => [
+      q(Monastic Sign Language),
+      ],
+   q(0149) => [
+      q(Mozambican Sign Language),
+      ],
+   q(0150) => [
+      q(Min Nan Chinese),
+      ],
+   q(0151) => [
+      q(Namibian Sign Language),
+      ],
+   q(0152) => [
+      q(Nicaraguan Sign Language),
+      ],
+   q(0153) => [
+      q(Nigerian Sign Language),
+      ],
+   q(0154) => [
+      q(Norwegian Sign Language),
+      ],
+   q(0155) => [
+      q(Nepalese Sign Language),
+      ],
+   q(0156) => [
+      q(Maritime Sign Language),
+      ],
+   q(0157) => [
+      q(New Zealand Sign Language),
+      ],
+   q(0158) => [
+      q(Old Kentish Sign Language),
+      ],
+   q(0159) => [
+      q(Orang Kanaq),
+      ],
+   q(0160) => [
+      q(Orang Seletar),
+      ],
+   q(0161) => [
+      q(Pekal),
+      ],
+   q(0162) => [
+      q(Sudanese Creole Arabic),
+      ],
+   q(0163) => [
+      q(Papua New Guinean Sign Language),
+      ],
+   q(0164) => [
+      q(Pakistan Sign Language),
+      ],
+   q(0165) => [
+      q(Peruvian Sign Language),
+      ],
+   q(0166) => [
+      q(Providencia Sign Language),
+      ],
+   q(0167) => [
+      q(Persian Sign Language),
+      ],
+   q(0168) => [
+      q(Plains Indian Sign Language),
+      ],
+   q(0169) => [
+      q(Central Malay),
+      ],
+   q(0170) => [
+      q(Penang Sign Language),
+      ],
+   q(0171) => [
+      q(Puerto Rican Sign Language),
+      ],
+   q(0172) => [
+      q(Polish Sign Language),
+      ],
+   q(0173) => [
+      q(Philippine Sign Language),
+      ],
+   q(0174) => [
+      q(Portuguese Sign Language),
+      ],
+   q(0175) => [
+      q(Paraguayan Sign Language),
+      q(Lengua de Senas del Paraguay),
+      ],
+   q(0176) => [
+      q(Romanian Sign Language),
+      ],
+   q(0177) => [
+      q(Russian Sign Language),
+      ],
+   q(0178) => [
+      q(Miriwoong Sign Language),
+      ],
+   q(0179) => [
+      q(Saudi Arabian Sign Language),
+      ],
+   q(0180) => [
+      q(Langue des signes de Belgique Francophone),
+      q(French Belgian Sign Language),
+      ],
+   q(0181) => [
+      q(South African Sign Language),
+      ],
+   q(0182) => [
+      q(Swiss-German Sign Language),
+      ],
+   q(0183) => [
+      q(Sierra Leone Sign Language),
+      ],
+   q(0184) => [
+      q(Chadian Arabic),
+      ],
+   q(0185) => [
+      q(Swiss-Italian Sign Language),
+      ],
+   q(0186) => [
+      q(Singapore Sign Language),
+      ],
+   q(0187) => [
+      q(Albanian Sign Language),
+      ],
+   q(0188) => [
+      q(Sri Lankan Sign Language),
+      ],
+   q(0189) => [
+      q(Shihhi Arabic),
+      ],
+   q(0190) => [
+      q(Spanish Sign Language),
+      ],
+   q(0191) => [
+      q(Swiss-French Sign Language),
+      ],
+   q(0192) => [
+      q(Slovakian Sign Language),
+      ],
+   q(0193) => [
+      q(Congo Swahili),
+      ],
+   q(0194) => [
+      q(Swahili (individual language)),
+      q(Kiswahili),
+      ],
+   q(0195) => [
+      q(Swedish Sign Language),
+      ],
+   q(0196) => [
+      q(Al-Sayyid Bedouin Sign Language),
+      ],
+   q(0197) => [
+      q(Solomon Islands Sign Language),
+      ],
+   q(0198) => [
+      q(Temuan),
+      ],
+   q(0199) => [
+      q(Tunisian Sign Language),
+      ],
+   q(0200) => [
+      q(Turkish Sign Language),
+      q(Turk Isaret Dili),
+      ],
+   q(0201) => [
+      q(Thai Sign Language),
+      ],
+   q(0202) => [
+      q(Taiwan Sign Language),
+      ],
+   q(0203) => [
+      q(Tebul Sign Language),
+      ],
+   q(0204) => [
+      q(Tanzanian Sign Language),
+      ],
+   q(0205) => [
+      q(Ugandan Sign Language),
+      ],
+   q(0206) => [
+      q(Uruguayan Sign Language),
+      ],
+   q(0207) => [
+      q(Ukrainian Sign Language),
+      ],
+   q(0208) => [
+      q(Urubu-Kaapor Sign Language),
+      q(Kaapor Sign Language),
+      ],
+   q(0209) => [
+      q(Urak Lawoi'),
+      ],
+   q(0210) => [
+      q(Northern Uzbek),
+      ],
+   q(0211) => [
+      q(Southern Uzbek),
+      ],
+   q(0212) => [
+      q(Vlaamse Gebarentaal),
+      q(Flemish Sign Language),
+      ],
+   q(0213) => [
+      q(Kaur),
+      ],
+   q(0214) => [
+      q(Tenggarong Kutai Malay),
+      ],
+   q(0215) => [
+      q(Moldova Sign Language),
+      ],
+   q(0216) => [
+      q(Venezuelan Sign Language),
+      ],
+   q(0217) => [
+      q(Valencian Sign Language),
+      q(Llengua de signes valenciana),
+      ],
+   q(0218) => [
+      q(West Bengal Sign Language),
+      ],
+   q(0219) => [
+      q(Wu Chinese),
+      ],
+   q(0220) => [
+      q(Kenyan Sign Language),
+      ],
+   q(0221) => [
+      q(Malaysian Sign Language),
+      ],
+   q(0222) => [
+      q(Manado Malay),
+      ],
+   q(0223) => [
+      q(Moroccan Sign Language),
+      ],
+   q(0224) => [
+      q(Yolnu Sign Language),
+      ],
+   q(0225) => [
+      q(Yan-nhanu Sign Language),
+      ],
+   q(0226) => [
+      q(Yugoslavian Sign Language),
+      ],
+   q(0227) => [
+      q(Yue Chinese),
+      q(Cantonese),
+      ],
+   q(0228) => [
+      q(Zimbabwe Sign Language),
+      ],
+   q(0229) => [
+      q(Malay (individual language)),
+      ],
+   q(0230) => [
+      q(Negeri Sembilan Malay),
+      ],
+   q(0231) => [
+      q(Zambian Sign Language),
+      ],
+   q(0232) => [
+      q(Standard Malay),
+      ],
+};
+
+$Locale::Codes::Data{'langext'}{'alias2id'} = {
+   q(adamorobe sign language) => [
+      q(0010),
+      q(0),
+      ],
+   q(afghan sign language) => [
+      q(0016),
+      q(0),
+      ],
+   q(al-sayyid bedouin sign language) => [
+      q(0196),
+      q(0),
+      ],
+   q(albanian sign language) => [
+      q(0187),
+      q(0),
+      ],
+   q(algerian arabic) => [
+      q(0021),
+      q(0),
+      ],
+   q(algerian saharan arabic) => [
+      q(0001),
+      q(0),
+      ],
+   q(algerian sign language) => [
+      q(0027),
+      q(0),
+      ],
+   q(american sign language) => [
+      q(0025),
+      q(0),
+      ],
+   q(argentine sign language) => [
+      q(0013),
+      q(0),
+      ],
+   q(armenian sign language) => [
+      q(0014),
+      q(0),
+      ],
+   q(australian aborigines sign language) => [
+      q(0029),
+      q(0),
+      ],
+   q(australian sign language) => [
+      q(0026),
+      q(0),
+      ],
+   q(austrian sign language) => [
+      q(0028),
+      q(0),
+      ],
+   q(babalia creole arabic) => [
+      q(0036),
+      q(0),
+      ],
+   q(bacanese malay) => [
+      q(0043),
+      q(0),
+      ],
+   q(baharna arabic) => [
+      q(0003),
+      q(0),
+      ],
+   q(bamako sign language) => [
+      q(0040),
+      q(0),
+      ],
+   q(ban khor sign language) => [
+      q(0038),
+      q(0),
+      ],
+   q(bangka) => [
+      q(0137),
+      q(0),
+      ],
+   q(banjar) => [
+      q(0039),
+      q(0),
+      ],
+   q(bengkala sign language) => [
+      q(0042),
+      q(0),
+      ],
+   q(berau malay) => [
+      q(0044),
+      q(0),
+      ],
+   q(bolivian sign language) => [
+      q(0045),
+      q(0),
+      ],
+   q(brazilian sign language) => [
+      q(0047),
+      q(0),
+      ],
+   q(british sign language) => [
+      q(0037),
+      q(0),
+      ],
+   q(brunei) => [
+      q(0118),
+      q(0),
+      ],
+   q(bukit malay) => [
+      q(0046),
+      q(0),
+      ],
+   q(bulgarian sign language) => [
+      q(0041),
+      q(0),
+      ],
+   q(cantonese) => [
+      q(0227),
+      q(1),
+      ],
+   q(catalan sign language) => [
+      q(0054),
+      q(0),
+      ],
+   q(central malay) => [
+      q(0169),
+      q(0),
+      ],
+   q(chadian arabic) => [
+      q(0184),
+      q(0),
+      ],
+   q(chadian sign language) => [
+      q(0049),
+      q(0),
+      ],
+   q(chiangmai sign language) => [
+      q(0055),
+      q(0),
+      ],
+   q(chilean sign language) => [
+      q(0058),
+      q(0),
+      ],
+   q(chinese sign language) => [
+      q(0059),
+      q(0),
+      ],
+   q(cocos islands malay) => [
+      q(0052),
+      q(0),
+      ],
+   q(col) => [
+      q(0122),
+      q(0),
+      ],
+   q(colombian sign language) => [
+      q(0060),
+      q(0),
+      ],
+   q(congo swahili) => [
+      q(0193),
+      q(0),
+      ],
+   q(costa rican sign language) => [
+      q(0062),
+      q(0),
+      ],
+   q(croatia sign language) => [
+      q(0061),
+      q(0),
+      ],
+   q(cuba sign language) => [
+      q(0057),
+      q(0),
+      ],
+   q(cypriot arabic) => [
+      q(0008),
+      q(0),
+      ],
+   q(czech sign language) => [
+      q(0056),
+      q(0),
+      ],
+   q(danish sign language) => [
+      q(0067),
+      q(0),
+      ],
+   q(dhofari arabic) => [
+      q(0009),
+      q(0),
+      ],
+   q(dominican sign language) => [
+      q(0065),
+      q(0),
+      ],
+   q(duano) => [
+      q(0068),
+      q(0),
+      ],
+   q(dutch sign language) => [
+      q(0066),
+      q(0),
+      ],
+   q(eastern egyptian bedawi arabic) => [
+      q(0031),
+      q(0),
+      ],
+   q(ecuadorian sign language) => [
+      q(0069),
+      q(0),
+      ],
+   q(egypt sign language) => [
+      q(0070),
+      q(0),
+      ],
+   q(egyptian arabic) => [
+      q(0024),
+      q(0),
+      ],
+   q(estonian sign language) => [
+      q(0072),
+      q(0),
+      ],
+   q(ethiopian sign language) => [
+      q(0073),
+      q(0),
+      ],
+   q(finland-swedish sign language) => [
+      q(0077),
+      q(0),
+      ],
+   q(finlandssvenskt teckensprak) => [
+      q(0077),
+      q(1),
+      ],
+   q(finnish sign language) => [
+      q(0075),
+      q(0),
+      ],
+   q(flemish sign language) => [
+      q(0212),
+      q(1),
+      ],
+   q(french belgian sign language) => [
+      q(0180),
+      q(1),
+      ],
+   q(french sign language) => [
+      q(0076),
+      q(0),
+      ],
+   q(gan chinese) => [
+      q(0078),
+      q(0),
+      ],
+   q(german sign language) => [
+      q(0082),
+      q(0),
+      ],
+   q(ghanaian sign language) => [
+      q(0081),
+      q(0),
+      ],
+   q(ghandruk sign language) => [
+      q(0079),
+      q(0),
+      ],
+   q(goan konkani) => [
+      q(0080),
+      q(0),
+      ],
+   q(greek sign language) => [
+      q(0084),
+      q(0),
+      ],
+   q(guatemalan sign language) => [
+      q(0083),
+      q(0),
+      ],
+   q(guinean sign language) => [
+      q(0085),
+      q(0),
+      ],
+   q(gulf arabic) => [
+      q(0015),
+      q(0),
+      ],
+   q(hadrami arabic) => [
+      q(0032),
+      q(0),
+      ],
+   q(haiphong sign language) => [
+      q(0087),
+      q(0),
+      ],
+   q(haji) => [
+      q(0090),
+      q(0),
+      ],
+   q(hakka chinese) => [
+      q(0088),
+      q(0),
+      ],
+   q(hanoi sign language) => [
+      q(0086),
+      q(0),
+      ],
+   q(hausa sign language) => [
+      q(0095),
+      q(0),
+      ],
+   q(hawai'i pidgin sign language) => [
+      q(0093),
+      q(1),
+      ],
+   q(hawai'i sign language (hsl)) => [
+      q(0093),
+      q(0),
+      ],
+   q(heung kong sau yue) => [
+      q(0091),
+      q(1),
+      ],
+   q(hijazi arabic) => [
+      q(0006),
+      q(0),
+      ],
+   q(ho chi minh city sign language) => [
+      q(0092),
+      q(0),
+      ],
+   q(honduras sign language) => [
+      q(0089),
+      q(0),
+      ],
+   q(hong kong sign language) => [
+      q(0091),
+      q(0),
+      ],
+   q(huizhou chinese) => [
+      q(0063),
+      q(0),
+      ],
+   q(hungarian sign language) => [
+      q(0094),
+      q(0),
+      ],
+   q(icelandic sign language) => [
+      q(0097),
+      q(0),
+      ],
+   q(indian sign language) => [
+      q(0101),
+      q(0),
+      ],
+   q(indonesian sign language) => [
+      q(0100),
+      q(0),
+      ],
+   q(international sign) => [
+      q(0099),
+      q(0),
+      ],
+   q(inuit sign language) => [
+      q(0098),
+      q(0),
+      ],
+   q(irish sign language) => [
+      q(0103),
+      q(0),
+      ],
+   q(israeli sign language) => [
+      q(0104),
+      q(0),
+      ],
+   q(italian sign language) => [
+      q(0102),
+      q(0),
+      ],
+   q(jakun) => [
+      q(0105),
+      q(0),
+      ],
+   q(jamaican country sign language) => [
+      q(0107),
+      q(0),
+      ],
+   q(jamaican sign language) => [
+      q(0109),
+      q(0),
+      ],
+   q(jambi malay) => [
+      q(0106),
+      q(0),
+      ],
+   q(japanese sign language) => [
+      q(0111),
+      q(0),
+      ],
+   q(jhankot sign language) => [
+      q(0108),
+      q(0),
+      ],
+   q(jinyu chinese) => [
+      q(0050),
+      q(0),
+      ],
+   q(jordanian sign language) => [
+      q(0110),
+      q(0),
+      ],
+   q(jumla sign language) => [
+      q(0112),
+      q(0),
+      ],
+   q(kaapor sign language) => [
+      q(0208),
+      q(1),
+      ],
+   q(kaur) => [
+      q(0213),
+      q(0),
+      ],
+   q(kedah malay) => [
+      q(0135),
+      q(0),
+      ],
+   q(kenyan sign language) => [
+      q(0220),
+      q(0),
+      ],
+   q(kerinci) => [
+      q(0117),
+      q(0),
+      ],
+   q(kiswahili) => [
+      q(0194),
+      q(1),
+      ],
+   q(konkani (individual language)) => [
+      q(0114),
+      q(0),
+      ],
+   q(korean sign language) => [
+      q(0116),
+      q(0),
+      ],
+   q(kota bangun kutai malay) => [
+      q(0141),
+      q(0),
+      ],
+   q(kubu) => [
+      q(0115),
+      q(0),
+      ],
+   q(langue des signes de belgique francophone) => [
+      q(0180),
+      q(0),
+      ],
+   q(laos sign language) => [
+      q(0126),
+      q(0),
+      ],
+   q(latgalian) => [
+      q(0130),
+      q(0),
+      ],
+   q(latvian sign language) => [
+      q(0125),
+      q(0),
+      ],
+   q(lengua de senas catalana) => [
+      q(0054),
+      q(1),
+      ],
+   q(lengua de senas del paraguay) => [
+      q(0175),
+      q(1),
+      ],
+   q(lengua de senas panamenas) => [
+      q(0127),
+      q(1),
+      ],
+   q(libyan arabic) => [
+      q(0033),
+      q(0),
+      ],
+   q(libyan sign language) => [
+      q(0119),
+      q(0),
+      ],
+   q(literary chinese) => [
+      q(0132),
+      q(0),
+      ],
+   q(lithuanian sign language) => [
+      q(0123),
+      q(0),
+      ],
+   q(llengua de signes catalana) => [
+      q(0054),
+      q(2),
+      ],
+   q(llengua de signes valenciana) => [
+      q(0217),
+      q(1),
+      ],
+   q(loncong) => [
+      q(0120),
+      q(0),
+      ],
+   q(lubu) => [
+      q(0121),
+      q(0),
+      ],
+   q(lyons sign language) => [
+      q(0124),
+      q(0),
+      ],
+   q(madagascar sign language) => [
+      q(0147),
+      q(0),
+      ],
+   q(malay (individual language)) => [
+      q(0229),
+      q(0),
+      ],
+   q(malaysian sign language) => [
+      q(0221),
+      q(0),
+      ],
+   q(maltese sign language) => [
+      q(0134),
+      q(0),
+      ],
+   q(manado malay) => [
+      q(0222),
+      q(0),
+      ],
+   q(mandarin chinese) => [
+      q(0051),
+      q(0),
+      ],
+   q(maritime sign language) => [
+      q(0156),
+      q(0),
+      ],
+   q(martha's vineyard sign language) => [
+      q(0142),
+      q(0),
+      ],
+   q(mauritian sign language) => [
+      q(0129),
+      q(0),
+      ],
+   q(mesopotamian arabic) => [
+      q(0004),
+      q(0),
+      ],
+   q(mexican sign language) => [
+      q(0138),
+      q(0),
+      ],
+   q(min bei chinese) => [
+      q(0140),
+      q(0),
+      ],
+   q(min dong chinese) => [
+      q(0048),
+      q(0),
+      ],
+   q(min nan chinese) => [
+      q(0150),
+      q(0),
+      ],
+   q(min zhong chinese) => [
+      q(0064),
+      q(0),
+      ],
+   q(minangkabau) => [
+      q(0139),
+      q(0),
+      ],
+   q(miriwoong sign language) => [
+      q(0178),
+      q(0),
+      ],
+   q(moldova sign language) => [
+      q(0215),
+      q(0),
+      ],
+   q(monastic sign language) => [
+      q(0148),
+      q(0),
+      ],
+   q(mongolian sign language) => [
+      q(0145),
+      q(0),
+      ],
+   q(moroccan arabic) => [
+      q(0023),
+      q(0),
+      ],
+   q(moroccan sign language) => [
+      q(0223),
+      q(0),
+      ],
+   q(mozambican sign language) => [
+      q(0149),
+      q(0),
+      ],
+   q(musi) => [
+      q(0146),
+      q(0),
+      ],
+   q(najdi arabic) => [
+      q(0022),
+      q(0),
+      ],
+   q(namibian sign language) => [
+      q(0151),
+      q(0),
+      ],
+   q(negeri sembilan malay) => [
+      q(0230),
+      q(0),
+      ],
+   q(nepalese sign language) => [
+      q(0155),
+      q(0),
+      ],
+   q(new zealand sign language) => [
+      q(0157),
+      q(0),
+      ],
+   q(nicaraguan sign language) => [
+      q(0152),
+      q(0),
+      ],
+   q(nigerian sign language) => [
+      q(0153),
+      q(0),
+      ],
+   q(north levantine arabic) => [
+      q(0018),
+      q(0),
+      ],
+   q(north mesopotamian arabic) => [
+      q(0035),
+      q(0),
+      ],
+   q(north moluccan malay) => [
+      q(0133),
+      q(0),
+      ],
+   q(northern uzbek) => [
+      q(0210),
+      q(0),
+      ],
+   q(norwegian sign language) => [
+      q(0154),
+      q(0),
+      ],
+   q(old kentish sign language) => [
+      q(0158),
+      q(0),
+      ],
+   q(omani arabic) => [
+      q(0007),
+      q(0),
+      ],
+   q(orang kanaq) => [
+      q(0159),
+      q(0),
+      ],
+   q(orang seletar) => [
+      q(0160),
+      q(0),
+      ],
+   q(pakistan sign language) => [
+      q(0164),
+      q(0),
+      ],
+   q(panamanian sign language) => [
+      q(0127),
+      q(0),
+      ],
+   q(papua new guinean sign language) => [
+      q(0163),
+      q(0),
+      ],
+   q(paraguayan sign language) => [
+      q(0175),
+      q(0),
+      ],
+   q(pattani malay) => [
+      q(0136),
+      q(0),
+      ],
+   q(pekal) => [
+      q(0161),
+      q(0),
+      ],
+   q(penang sign language) => [
+      q(0170),
+      q(0),
+      ],
+   q(persian sign language) => [
+      q(0167),
+      q(0),
+      ],
+   q(peruvian sign language) => [
+      q(0165),
+      q(0),
+      ],
+   q(philippine sign language) => [
+      q(0173),
+      q(0),
+      ],
+   q(plains indian sign language) => [
+      q(0168),
+      q(0),
+      ],
+   q(polish sign language) => [
+      q(0172),
+      q(0),
+      ],
+   q(portuguese sign language) => [
+      q(0174),
+      q(0),
+      ],
+   q(providencia sign language) => [
+      q(0166),
+      q(0),
+      ],
+   q(pu-xian chinese) => [
+      q(0053),
+      q(0),
+      ],
+   q(puerto rican sign language) => [
+      q(0171),
+      q(0),
+      ],
+   q(quebec sign language) => [
+      q(0074),
+      q(0),
+      ],
+   q(romanian sign language) => [
+      q(0176),
+      q(0),
+      ],
+   q(russian sign language) => [
+      q(0177),
+      q(0),
+      ],
+   q(sabah malay) => [
+      q(0144),
+      q(0),
+      ],
+   q(saidi arabic) => [
+      q(0012),
+      q(0),
+      ],
+   q(salvadoran sign language) => [
+      q(0071),
+      q(0),
+      ],
+   q(sanaani arabic) => [
+      q(0034),
+      q(0),
+      ],
+   q(saudi arabian sign language) => [
+      q(0179),
+      q(0),
+      ],
+   q(sekak) => [
+      q(0120),
+      q(1),
+      ],
+   q(selangor sign language) => [
+      q(0113),
+      q(0),
+      ],
+   q(shihhi arabic) => [
+      q(0189),
+      q(0),
+      ],
+   q(sierra leone sign language) => [
+      q(0183),
+      q(0),
+      ],
+   q(singapore sign language) => [
+      q(0186),
+      q(0),
+      ],
+   q(slovakian sign language) => [
+      q(0192),
+      q(0),
+      ],
+   q(solomon islands sign language) => [
+      q(0197),
+      q(0),
+      ],
+   q(south african sign language) => [
+      q(0181),
+      q(0),
+      ],
+   q(south levantine arabic) => [
+      q(0017),
+      q(0),
+      ],
+   q(southern uzbek) => [
+      q(0211),
+      q(0),
+      ],
+   q(spanish sign language) => [
+      q(0190),
+      q(0),
+      ],
+   q(sri lankan sign language) => [
+      q(0188),
+      q(0),
+      ],
+   q(standard arabic) => [
+      q(0020),
+      q(0),
+      ],
+   q(standard latvian) => [
+      q(0131),
+      q(0),
+      ],
+   q(standard malay) => [
+      q(0232),
+      q(0),
+      ],
+   q(sudanese arabic) => [
+      q(0019),
+      q(0),
+      ],
+   q(sudanese creole arabic) => [
+      q(0162),
+      q(0),
+      ],
+   q(suomenruotsalainen viittomakieli) => [
+      q(0077),
+      q(2),
+      ],
+   q(swahili (individual language)) => [
+      q(0194),
+      q(0),
+      ],
+   q(swedish sign language) => [
+      q(0195),
+      q(0),
+      ],
+   q(swiss-french sign language) => [
+      q(0191),
+      q(0),
+      ],
+   q(swiss-german sign language) => [
+      q(0182),
+      q(0),
+      ],
+   q(swiss-italian sign language) => [
+      q(0185),
+      q(0),
+      ],
+   q(ta'izzi-adeni arabic) => [
+      q(0005),
+      q(0),
+      ],
+   q(taiwan sign language) => [
+      q(0202),
+      q(0),
+      ],
+   q(tajiki arabic) => [
+      q(0002),
+      q(0),
+      ],
+   q(tanzanian sign language) => [
+      q(0204),
+      q(0),
+      ],
+   q(tebul sign language) => [
+      q(0203),
+      q(0),
+      ],
+   q(temuan) => [
+      q(0198),
+      q(0),
+      ],
+   q(tenggarong kutai malay) => [
+      q(0214),
+      q(0),
+      ],
+   q(thai sign language) => [
+      q(0201),
+      q(0),
+      ],
+   q(trinidad and tobago sign language) => [
+      q(0128),
+      q(0),
+      ],
+   q(tunisian arabic) => [
+      q(0011),
+      q(0),
+      ],
+   q(tunisian sign language) => [
+      q(0199),
+      q(0),
+      ],
+   q(turk isaret dili) => [
+      q(0200),
+      q(1),
+      ],
+   q(turkish sign language) => [
+      q(0200),
+      q(0),
+      ],
+   q(ugandan sign language) => [
+      q(0205),
+      q(0),
+      ],
+   q(ukrainian sign language) => [
+      q(0207),
+      q(0),
+      ],
+   q(urak lawoi') => [
+      q(0209),
+      q(0),
+      ],
+   q(urubu-kaapor sign language) => [
+      q(0208),
+      q(0),
+      ],
+   q(uruguayan sign language) => [
+      q(0206),
+      q(0),
+      ],
+   q(uzbeki arabic) => [
+      q(0030),
+      q(0),
+      ],
+   q(valencian sign language) => [
+      q(0217),
+      q(0),
+      ],
+   q(venezuelan sign language) => [
+      q(0216),
+      q(0),
+      ],
+   q(vlaamse gebarentaal) => [
+      q(0212),
+      q(0),
+      ],
+   q(west bengal sign language) => [
+      q(0218),
+      q(0),
+      ],
+   q(wu chinese) => [
+      q(0219),
+      q(0),
+      ],
+   q(xiang chinese) => [
+      q(0096),
+      q(0),
+      ],
+   q(yan-nhanu sign language) => [
+      q(0225),
+      q(0),
+      ],
+   q(yolnu sign language) => [
+      q(0224),
+      q(0),
+      ],
+   q(yucatec maya sign language) => [
+      q(0143),
+      q(0),
+      ],
+   q(yue chinese) => [
+      q(0227),
+      q(0),
+      ],
+   q(yugoslavian sign language) => [
+      q(0226),
+      q(0),
+      ],
+   q(zambian sign language) => [
+      q(0231),
+      q(0),
+      ],
+   q(zimbabwe sign language) => [
+      q(0228),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langext'}{'code2id'} = {
+   q(alpha) => {
+      q(aao) => [
+         q(0001),
+         q(0),
+         ],
+      q(abh) => [
+         q(0002),
+         q(0),
+         ],
+      q(abv) => [
+         q(0003),
+         q(0),
+         ],
+      q(acm) => [
+         q(0004),
+         q(0),
+         ],
+      q(acq) => [
+         q(0005),
+         q(0),
+         ],
+      q(acw) => [
+         q(0006),
+         q(0),
+         ],
+      q(acx) => [
+         q(0007),
+         q(0),
+         ],
+      q(acy) => [
+         q(0008),
+         q(0),
+         ],
+      q(adf) => [
+         q(0009),
+         q(0),
+         ],
+      q(ads) => [
+         q(0010),
+         q(0),
+         ],
+      q(aeb) => [
+         q(0011),
+         q(0),
+         ],
+      q(aec) => [
+         q(0012),
+         q(0),
+         ],
+      q(aed) => [
+         q(0013),
+         q(0),
+         ],
+      q(aen) => [
+         q(0014),
+         q(0),
+         ],
+      q(afb) => [
+         q(0015),
+         q(0),
+         ],
+      q(afg) => [
+         q(0016),
+         q(0),
+         ],
+      q(ajp) => [
+         q(0017),
+         q(0),
+         ],
+      q(apc) => [
+         q(0018),
+         q(0),
+         ],
+      q(apd) => [
+         q(0019),
+         q(0),
+         ],
+      q(arb) => [
+         q(0020),
+         q(0),
+         ],
+      q(arq) => [
+         q(0021),
+         q(0),
+         ],
+      q(ars) => [
+         q(0022),
+         q(0),
+         ],
+      q(ary) => [
+         q(0023),
+         q(0),
+         ],
+      q(arz) => [
+         q(0024),
+         q(0),
+         ],
+      q(ase) => [
+         q(0025),
+         q(0),
+         ],
+      q(asf) => [
+         q(0026),
+         q(0),
+         ],
+      q(asp) => [
+         q(0027),
+         q(0),
+         ],
+      q(asq) => [
+         q(0028),
+         q(0),
+         ],
+      q(asw) => [
+         q(0029),
+         q(0),
+         ],
+      q(auz) => [
+         q(0030),
+         q(0),
+         ],
+      q(avl) => [
+         q(0031),
+         q(0),
+         ],
+      q(ayh) => [
+         q(0032),
+         q(0),
+         ],
+      q(ayl) => [
+         q(0033),
+         q(0),
+         ],
+      q(ayn) => [
+         q(0034),
+         q(0),
+         ],
+      q(ayp) => [
+         q(0035),
+         q(0),
+         ],
+      q(bbz) => [
+         q(0036),
+         q(0),
+         ],
+      q(bfi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bfk) => [
+         q(0038),
+         q(0),
+         ],
+      q(bjn) => [
+         q(0039),
+         q(0),
+         ],
+      q(bog) => [
+         q(0040),
+         q(0),
+         ],
+      q(bqn) => [
+         q(0041),
+         q(0),
+         ],
+      q(bqy) => [
+         q(0042),
+         q(0),
+         ],
+      q(btj) => [
+         q(0043),
+         q(0),
+         ],
+      q(bve) => [
+         q(0044),
+         q(0),
+         ],
+      q(bvl) => [
+         q(0045),
+         q(0),
+         ],
+      q(bvu) => [
+         q(0046),
+         q(0),
+         ],
+      q(bzs) => [
+         q(0047),
+         q(0),
+         ],
+      q(cdo) => [
+         q(0048),
+         q(0),
+         ],
+      q(cds) => [
+         q(0049),
+         q(0),
+         ],
+      q(cjy) => [
+         q(0050),
+         q(0),
+         ],
+      q(cmn) => [
+         q(0051),
+         q(0),
+         ],
+      q(coa) => [
+         q(0052),
+         q(0),
+         ],
+      q(cpx) => [
+         q(0053),
+         q(0),
+         ],
+      q(csc) => [
+         q(0054),
+         q(0),
+         ],
+      q(csd) => [
+         q(0055),
+         q(0),
+         ],
+      q(cse) => [
+         q(0056),
+         q(0),
+         ],
+      q(csf) => [
+         q(0057),
+         q(0),
+         ],
+      q(csg) => [
+         q(0058),
+         q(0),
+         ],
+      q(csl) => [
+         q(0059),
+         q(0),
+         ],
+      q(csn) => [
+         q(0060),
+         q(0),
+         ],
+      q(csq) => [
+         q(0061),
+         q(0),
+         ],
+      q(csr) => [
+         q(0062),
+         q(0),
+         ],
+      q(czh) => [
+         q(0063),
+         q(0),
+         ],
+      q(czo) => [
+         q(0064),
+         q(0),
+         ],
+      q(doq) => [
+         q(0065),
+         q(0),
+         ],
+      q(dse) => [
+         q(0066),
+         q(0),
+         ],
+      q(dsl) => [
+         q(0067),
+         q(0),
+         ],
+      q(dup) => [
+         q(0068),
+         q(0),
+         ],
+      q(ecs) => [
+         q(0069),
+         q(0),
+         ],
+      q(esl) => [
+         q(0070),
+         q(0),
+         ],
+      q(esn) => [
+         q(0071),
+         q(0),
+         ],
+      q(eso) => [
+         q(0072),
+         q(0),
+         ],
+      q(eth) => [
+         q(0073),
+         q(0),
+         ],
+      q(fcs) => [
+         q(0074),
+         q(0),
+         ],
+      q(fse) => [
+         q(0075),
+         q(0),
+         ],
+      q(fsl) => [
+         q(0076),
+         q(0),
+         ],
+      q(fss) => [
+         q(0077),
+         q(0),
+         ],
+      q(gan) => [
+         q(0078),
+         q(0),
+         ],
+      q(gds) => [
+         q(0079),
+         q(0),
+         ],
+      q(gom) => [
+         q(0080),
+         q(0),
+         ],
+      q(gse) => [
+         q(0081),
+         q(0),
+         ],
+      q(gsg) => [
+         q(0082),
+         q(0),
+         ],
+      q(gsm) => [
+         q(0083),
+         q(0),
+         ],
+      q(gss) => [
+         q(0084),
+         q(0),
+         ],
+      q(gus) => [
+         q(0085),
+         q(0),
+         ],
+      q(hab) => [
+         q(0086),
+         q(0),
+         ],
+      q(haf) => [
+         q(0087),
+         q(0),
+         ],
+      q(hak) => [
+         q(0088),
+         q(0),
+         ],
+      q(hds) => [
+         q(0089),
+         q(0),
+         ],
+      q(hji) => [
+         q(0090),
+         q(0),
+         ],
+      q(hks) => [
+         q(0091),
+         q(0),
+         ],
+      q(hos) => [
+         q(0092),
+         q(0),
+         ],
+      q(hps) => [
+         q(0093),
+         q(0),
+         ],
+      q(hsh) => [
+         q(0094),
+         q(0),
+         ],
+      q(hsl) => [
+         q(0095),
+         q(0),
+         ],
+      q(hsn) => [
+         q(0096),
+         q(0),
+         ],
+      q(icl) => [
+         q(0097),
+         q(0),
+         ],
+      q(iks) => [
+         q(0098),
+         q(0),
+         ],
+      q(ils) => [
+         q(0099),
+         q(0),
+         ],
+      q(inl) => [
+         q(0100),
+         q(0),
+         ],
+      q(ins) => [
+         q(0101),
+         q(0),
+         ],
+      q(ise) => [
+         q(0102),
+         q(0),
+         ],
+      q(isg) => [
+         q(0103),
+         q(0),
+         ],
+      q(isr) => [
+         q(0104),
+         q(0),
+         ],
+      q(jak) => [
+         q(0105),
+         q(0),
+         ],
+      q(jax) => [
+         q(0106),
+         q(0),
+         ],
+      q(jcs) => [
+         q(0107),
+         q(0),
+         ],
+      q(jhs) => [
+         q(0108),
+         q(0),
+         ],
+      q(jls) => [
+         q(0109),
+         q(0),
+         ],
+      q(jos) => [
+         q(0110),
+         q(0),
+         ],
+      q(jsl) => [
+         q(0111),
+         q(0),
+         ],
+      q(jus) => [
+         q(0112),
+         q(0),
+         ],
+      q(kgi) => [
+         q(0113),
+         q(0),
+         ],
+      q(knn) => [
+         q(0114),
+         q(0),
+         ],
+      q(kvb) => [
+         q(0115),
+         q(0),
+         ],
+      q(kvk) => [
+         q(0116),
+         q(0),
+         ],
+      q(kvr) => [
+         q(0117),
+         q(0),
+         ],
+      q(kxd) => [
+         q(0118),
+         q(0),
+         ],
+      q(lbs) => [
+         q(0119),
+         q(0),
+         ],
+      q(lce) => [
+         q(0120),
+         q(0),
+         ],
+      q(lcf) => [
+         q(0121),
+         q(0),
+         ],
+      q(liw) => [
+         q(0122),
+         q(0),
+         ],
+      q(lls) => [
+         q(0123),
+         q(0),
+         ],
+      q(lsg) => [
+         q(0124),
+         q(0),
+         ],
+      q(lsl) => [
+         q(0125),
+         q(0),
+         ],
+      q(lso) => [
+         q(0126),
+         q(0),
+         ],
+      q(lsp) => [
+         q(0127),
+         q(0),
+         ],
+      q(lst) => [
+         q(0128),
+         q(0),
+         ],
+      q(lsy) => [
+         q(0129),
+         q(0),
+         ],
+      q(ltg) => [
+         q(0130),
+         q(0),
+         ],
+      q(lvs) => [
+         q(0131),
+         q(0),
+         ],
+      q(lzh) => [
+         q(0132),
+         q(0),
+         ],
+      q(max) => [
+         q(0133),
+         q(0),
+         ],
+      q(mdl) => [
+         q(0134),
+         q(0),
+         ],
+      q(meo) => [
+         q(0135),
+         q(0),
+         ],
+      q(mfa) => [
+         q(0136),
+         q(0),
+         ],
+      q(mfb) => [
+         q(0137),
+         q(0),
+         ],
+      q(mfs) => [
+         q(0138),
+         q(0),
+         ],
+      q(min) => [
+         q(0139),
+         q(0),
+         ],
+      q(mnp) => [
+         q(0140),
+         q(0),
+         ],
+      q(mqg) => [
+         q(0141),
+         q(0),
+         ],
+      q(mre) => [
+         q(0142),
+         q(0),
+         ],
+      q(msd) => [
+         q(0143),
+         q(0),
+         ],
+      q(msi) => [
+         q(0144),
+         q(0),
+         ],
+      q(msr) => [
+         q(0145),
+         q(0),
+         ],
+      q(mui) => [
+         q(0146),
+         q(0),
+         ],
+      q(mzc) => [
+         q(0147),
+         q(0),
+         ],
+      q(mzg) => [
+         q(0148),
+         q(0),
+         ],
+      q(mzy) => [
+         q(0149),
+         q(0),
+         ],
+      q(nan) => [
+         q(0150),
+         q(0),
+         ],
+      q(nbs) => [
+         q(0151),
+         q(0),
+         ],
+      q(ncs) => [
+         q(0152),
+         q(0),
+         ],
+      q(nsi) => [
+         q(0153),
+         q(0),
+         ],
+      q(nsl) => [
+         q(0154),
+         q(0),
+         ],
+      q(nsp) => [
+         q(0155),
+         q(0),
+         ],
+      q(nsr) => [
+         q(0156),
+         q(0),
+         ],
+      q(nzs) => [
+         q(0157),
+         q(0),
+         ],
+      q(okl) => [
+         q(0158),
+         q(0),
+         ],
+      q(orn) => [
+         q(0159),
+         q(0),
+         ],
+      q(ors) => [
+         q(0160),
+         q(0),
+         ],
+      q(pel) => [
+         q(0161),
+         q(0),
+         ],
+      q(pga) => [
+         q(0162),
+         q(0),
+         ],
+      q(pgz) => [
+         q(0163),
+         q(0),
+         ],
+      q(pks) => [
+         q(0164),
+         q(0),
+         ],
+      q(prl) => [
+         q(0165),
+         q(0),
+         ],
+      q(prz) => [
+         q(0166),
+         q(0),
+         ],
+      q(psc) => [
+         q(0167),
+         q(0),
+         ],
+      q(psd) => [
+         q(0168),
+         q(0),
+         ],
+      q(pse) => [
+         q(0169),
+         q(0),
+         ],
+      q(psg) => [
+         q(0170),
+         q(0),
+         ],
+      q(psl) => [
+         q(0171),
+         q(0),
+         ],
+      q(pso) => [
+         q(0172),
+         q(0),
+         ],
+      q(psp) => [
+         q(0173),
+         q(0),
+         ],
+      q(psr) => [
+         q(0174),
+         q(0),
+         ],
+      q(pys) => [
+         q(0175),
+         q(0),
+         ],
+      q(rms) => [
+         q(0176),
+         q(0),
+         ],
+      q(rsl) => [
+         q(0177),
+         q(0),
+         ],
+      q(rsm) => [
+         q(0178),
+         q(0),
+         ],
+      q(sdl) => [
+         q(0179),
+         q(0),
+         ],
+      q(sfb) => [
+         q(0180),
+         q(0),
+         ],
+      q(sfs) => [
+         q(0181),
+         q(0),
+         ],
+      q(sgg) => [
+         q(0182),
+         q(0),
+         ],
+      q(sgx) => [
+         q(0183),
+         q(0),
+         ],
+      q(shu) => [
+         q(0184),
+         q(0),
+         ],
+      q(slf) => [
+         q(0185),
+         q(0),
+         ],
+      q(sls) => [
+         q(0186),
+         q(0),
+         ],
+      q(sqk) => [
+         q(0187),
+         q(0),
+         ],
+      q(sqs) => [
+         q(0188),
+         q(0),
+         ],
+      q(ssh) => [
+         q(0189),
+         q(0),
+         ],
+      q(ssp) => [
+         q(0190),
+         q(0),
+         ],
+      q(ssr) => [
+         q(0191),
+         q(0),
+         ],
+      q(svk) => [
+         q(0192),
+         q(0),
+         ],
+      q(swc) => [
+         q(0193),
+         q(0),
+         ],
+      q(swh) => [
+         q(0194),
+         q(0),
+         ],
+      q(swl) => [
+         q(0195),
+         q(0),
+         ],
+      q(syy) => [
+         q(0196),
+         q(0),
+         ],
+      q(szs) => [
+         q(0197),
+         q(0),
+         ],
+      q(tmw) => [
+         q(0198),
+         q(0),
+         ],
+      q(tse) => [
+         q(0199),
+         q(0),
+         ],
+      q(tsm) => [
+         q(0200),
+         q(0),
+         ],
+      q(tsq) => [
+         q(0201),
+         q(0),
+         ],
+      q(tss) => [
+         q(0202),
+         q(0),
+         ],
+      q(tsy) => [
+         q(0203),
+         q(0),
+         ],
+      q(tza) => [
+         q(0204),
+         q(0),
+         ],
+      q(ugn) => [
+         q(0205),
+         q(0),
+         ],
+      q(ugy) => [
+         q(0206),
+         q(0),
+         ],
+      q(ukl) => [
+         q(0207),
+         q(0),
+         ],
+      q(uks) => [
+         q(0208),
+         q(0),
+         ],
+      q(urk) => [
+         q(0209),
+         q(0),
+         ],
+      q(uzn) => [
+         q(0210),
+         q(0),
+         ],
+      q(uzs) => [
+         q(0211),
+         q(0),
+         ],
+      q(vgt) => [
+         q(0212),
+         q(0),
+         ],
+      q(vkk) => [
+         q(0213),
+         q(0),
+         ],
+      q(vkt) => [
+         q(0214),
+         q(0),
+         ],
+      q(vsi) => [
+         q(0215),
+         q(0),
+         ],
+      q(vsl) => [
+         q(0216),
+         q(0),
+         ],
+      q(vsv) => [
+         q(0217),
+         q(0),
+         ],
+      q(wbs) => [
+         q(0218),
+         q(0),
+         ],
+      q(wuu) => [
+         q(0219),
+         q(0),
+         ],
+      q(xki) => [
+         q(0220),
+         q(0),
+         ],
+      q(xml) => [
+         q(0221),
+         q(0),
+         ],
+      q(xmm) => [
+         q(0222),
+         q(0),
+         ],
+      q(xms) => [
+         q(0223),
+         q(0),
+         ],
+      q(ygs) => [
+         q(0224),
+         q(0),
+         ],
+      q(yhs) => [
+         q(0225),
+         q(0),
+         ],
+      q(ysl) => [
+         q(0226),
+         q(0),
+         ],
+      q(yue) => [
+         q(0227),
+         q(0),
+         ],
+      q(zib) => [
+         q(0228),
+         q(0),
+         ],
+      q(zlm) => [
+         q(0229),
+         q(0),
+         ],
+      q(zmi) => [
+         q(0230),
+         q(0),
+         ],
+      q(zsl) => [
+         q(0231),
+         q(0),
+         ],
+      q(zsm) => [
+         q(0232),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langext'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(aao),
+      q(0002) => q(abh),
+      q(0003) => q(abv),
+      q(0004) => q(acm),
+      q(0005) => q(acq),
+      q(0006) => q(acw),
+      q(0007) => q(acx),
+      q(0008) => q(acy),
+      q(0009) => q(adf),
+      q(0010) => q(ads),
+      q(0011) => q(aeb),
+      q(0012) => q(aec),
+      q(0013) => q(aed),
+      q(0014) => q(aen),
+      q(0015) => q(afb),
+      q(0016) => q(afg),
+      q(0017) => q(ajp),
+      q(0018) => q(apc),
+      q(0019) => q(apd),
+      q(0020) => q(arb),
+      q(0021) => q(arq),
+      q(0022) => q(ars),
+      q(0023) => q(ary),
+      q(0024) => q(arz),
+      q(0025) => q(ase),
+      q(0026) => q(asf),
+      q(0027) => q(asp),
+      q(0028) => q(asq),
+      q(0029) => q(asw),
+      q(0030) => q(auz),
+      q(0031) => q(avl),
+      q(0032) => q(ayh),
+      q(0033) => q(ayl),
+      q(0034) => q(ayn),
+      q(0035) => q(ayp),
+      q(0036) => q(bbz),
+      q(0037) => q(bfi),
+      q(0038) => q(bfk),
+      q(0039) => q(bjn),
+      q(0040) => q(bog),
+      q(0041) => q(bqn),
+      q(0042) => q(bqy),
+      q(0043) => q(btj),
+      q(0044) => q(bve),
+      q(0045) => q(bvl),
+      q(0046) => q(bvu),
+      q(0047) => q(bzs),
+      q(0048) => q(cdo),
+      q(0049) => q(cds),
+      q(0050) => q(cjy),
+      q(0051) => q(cmn),
+      q(0052) => q(coa),
+      q(0053) => q(cpx),
+      q(0054) => q(csc),
+      q(0055) => q(csd),
+      q(0056) => q(cse),
+      q(0057) => q(csf),
+      q(0058) => q(csg),
+      q(0059) => q(csl),
+      q(0060) => q(csn),
+      q(0061) => q(csq),
+      q(0062) => q(csr),
+      q(0063) => q(czh),
+      q(0064) => q(czo),
+      q(0065) => q(doq),
+      q(0066) => q(dse),
+      q(0067) => q(dsl),
+      q(0068) => q(dup),
+      q(0069) => q(ecs),
+      q(0070) => q(esl),
+      q(0071) => q(esn),
+      q(0072) => q(eso),
+      q(0073) => q(eth),
+      q(0074) => q(fcs),
+      q(0075) => q(fse),
+      q(0076) => q(fsl),
+      q(0077) => q(fss),
+      q(0078) => q(gan),
+      q(0079) => q(gds),
+      q(0080) => q(gom),
+      q(0081) => q(gse),
+      q(0082) => q(gsg),
+      q(0083) => q(gsm),
+      q(0084) => q(gss),
+      q(0085) => q(gus),
+      q(0086) => q(hab),
+      q(0087) => q(haf),
+      q(0088) => q(hak),
+      q(0089) => q(hds),
+      q(0090) => q(hji),
+      q(0091) => q(hks),
+      q(0092) => q(hos),
+      q(0093) => q(hps),
+      q(0094) => q(hsh),
+      q(0095) => q(hsl),
+      q(0096) => q(hsn),
+      q(0097) => q(icl),
+      q(0098) => q(iks),
+      q(0099) => q(ils),
+      q(0100) => q(inl),
+      q(0101) => q(ins),
+      q(0102) => q(ise),
+      q(0103) => q(isg),
+      q(0104) => q(isr),
+      q(0105) => q(jak),
+      q(0106) => q(jax),
+      q(0107) => q(jcs),
+      q(0108) => q(jhs),
+      q(0109) => q(jls),
+      q(0110) => q(jos),
+      q(0111) => q(jsl),
+      q(0112) => q(jus),
+      q(0113) => q(kgi),
+      q(0114) => q(knn),
+      q(0115) => q(kvb),
+      q(0116) => q(kvk),
+      q(0117) => q(kvr),
+      q(0118) => q(kxd),
+      q(0119) => q(lbs),
+      q(0120) => q(lce),
+      q(0121) => q(lcf),
+      q(0122) => q(liw),
+      q(0123) => q(lls),
+      q(0124) => q(lsg),
+      q(0125) => q(lsl),
+      q(0126) => q(lso),
+      q(0127) => q(lsp),
+      q(0128) => q(lst),
+      q(0129) => q(lsy),
+      q(0130) => q(ltg),
+      q(0131) => q(lvs),
+      q(0132) => q(lzh),
+      q(0133) => q(max),
+      q(0134) => q(mdl),
+      q(0135) => q(meo),
+      q(0136) => q(mfa),
+      q(0137) => q(mfb),
+      q(0138) => q(mfs),
+      q(0139) => q(min),
+      q(0140) => q(mnp),
+      q(0141) => q(mqg),
+      q(0142) => q(mre),
+      q(0143) => q(msd),
+      q(0144) => q(msi),
+      q(0145) => q(msr),
+      q(0146) => q(mui),
+      q(0147) => q(mzc),
+      q(0148) => q(mzg),
+      q(0149) => q(mzy),
+      q(0150) => q(nan),
+      q(0151) => q(nbs),
+      q(0152) => q(ncs),
+      q(0153) => q(nsi),
+      q(0154) => q(nsl),
+      q(0155) => q(nsp),
+      q(0156) => q(nsr),
+      q(0157) => q(nzs),
+      q(0158) => q(okl),
+      q(0159) => q(orn),
+      q(0160) => q(ors),
+      q(0161) => q(pel),
+      q(0162) => q(pga),
+      q(0163) => q(pgz),
+      q(0164) => q(pks),
+      q(0165) => q(prl),
+      q(0166) => q(prz),
+      q(0167) => q(psc),
+      q(0168) => q(psd),
+      q(0169) => q(pse),
+      q(0170) => q(psg),
+      q(0171) => q(psl),
+      q(0172) => q(pso),
+      q(0173) => q(psp),
+      q(0174) => q(psr),
+      q(0175) => q(pys),
+      q(0176) => q(rms),
+      q(0177) => q(rsl),
+      q(0178) => q(rsm),
+      q(0179) => q(sdl),
+      q(0180) => q(sfb),
+      q(0181) => q(sfs),
+      q(0182) => q(sgg),
+      q(0183) => q(sgx),
+      q(0184) => q(shu),
+      q(0185) => q(slf),
+      q(0186) => q(sls),
+      q(0187) => q(sqk),
+      q(0188) => q(sqs),
+      q(0189) => q(ssh),
+      q(0190) => q(ssp),
+      q(0191) => q(ssr),
+      q(0192) => q(svk),
+      q(0193) => q(swc),
+      q(0194) => q(swh),
+      q(0195) => q(swl),
+      q(0196) => q(syy),
+      q(0197) => q(szs),
+      q(0198) => q(tmw),
+      q(0199) => q(tse),
+      q(0200) => q(tsm),
+      q(0201) => q(tsq),
+      q(0202) => q(tss),
+      q(0203) => q(tsy),
+      q(0204) => q(tza),
+      q(0205) => q(ugn),
+      q(0206) => q(ugy),
+      q(0207) => q(ukl),
+      q(0208) => q(uks),
+      q(0209) => q(urk),
+      q(0210) => q(uzn),
+      q(0211) => q(uzs),
+      q(0212) => q(vgt),
+      q(0213) => q(vkk),
+      q(0214) => q(vkt),
+      q(0215) => q(vsi),
+      q(0216) => q(vsl),
+      q(0217) => q(vsv),
+      q(0218) => q(wbs),
+      q(0219) => q(wuu),
+      q(0220) => q(xki),
+      q(0221) => q(xml),
+      q(0222) => q(xmm),
+      q(0223) => q(xms),
+      q(0224) => q(ygs),
+      q(0225) => q(yhs),
+      q(0226) => q(ysl),
+      q(0227) => q(yue),
+      q(0228) => q(zib),
+      q(0229) => q(zlm),
+      q(0230) => q(zmi),
+      q(0231) => q(zsl),
+      q(0232) => q(zsm),
+      },
+};
+
+1;
+package Locale::Codes::Country;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2country
+                country2code
+                all_country_codes
+                all_country_names
+                country_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_COUNTRY);
+
+our $obj = new Locale::Codes('country');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2country {
+   return $obj->code2name(@_);
+}
+
+sub country2code {
+   return $obj->name2code(@_);
+}
+
+sub country_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_country_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_country_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_country {
+   return $obj->rename_code(@_);
+}
+
+sub add_country {
+   return $obj->add_code(@_);
+}
+
+sub delete_country {
+   return $obj->delete_code(@_);
+}
+
+sub add_country_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_country_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_country_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_country_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_country_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::LangVar_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:55:14 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'langvar'}{'id'} = '0086';
+
+$Locale::Codes::Data{'langvar'}{'id2names'} = {
+   q(0001) => [
+      q(Late Middle French (to 1606)),
+      ],
+   q(0002) => [
+      q(Early Modern French),
+      ],
+   q(0003) => [
+      q(Traditional German orthography),
+      ],
+   q(0004) => [
+      q("Academic" ("governmental") variant of Belarusian as codified in 1959),
+      ],
+   q(0005) => [
+      q(Standardized Resian orthography),
+      ],
+   q(0006) => [
+      q(German orthography of 1996),
+      ],
+   q(0007) => [
+      q(Orthographic formulation of 1943 - Official in Brazil (Formulario Ortografico de 1943 - Oficial no Brasil)),
+      ],
+   q(0008) => [
+      q(ALA-LC Romanization, 1997 edition),
+      ],
+   q(0009) => [
+      q(Aluku dialect),
+      q(Boni dialect),
+      ],
+   q(0010) => [
+      q(Akuapem Twi),
+      ],
+   q(0011) => [
+      q(Portuguese Language Orthographic Agreement of 1990 (Acordo Ortografico da Lingua Portuguesa de 1990)),
+      ],
+   q(0012) => [
+      q(Eastern Armenian),
+      ],
+   q(0013) => [
+      q(Western Armenian),
+      ],
+   q(0014) => [
+      q(Asante Twi),
+      q(Ashanti Twi),
+      ],
+   q(0015) => [
+      q(Unified Turkic Latin Alphabet (Historical)),
+      ],
+   q(0016) => [
+      q(The Balanka dialect of Anii),
+      ],
+   q(0017) => [
+      q(The Barlavento dialect group of Kabuverdianu),
+      ],
+   q(0018) => [
+      q(Basic English),
+      ],
+   q(0019) => [
+      q(Buddhist Hybrid Sanskrit),
+      ],
+   q(0020) => [
+      q(Biscayan dialect of Basque),
+      ],
+   q(0021) => [
+      q(The San Giorgio dialect of Resian),
+      q(The Bila dialect of Resian),
+      ],
+   q(0022) => [
+      q(Slovene in Bohoric alphabet),
+      ],
+   q(0023) => [
+      q(Boontling),
+      ],
+   q(0024) => [
+      q(Portuguese-Brazilian Orthographic Convention of 1945 (Convencao Ortografica Luso-Brasileira de 1945)),
+      ],
+   q(0025) => [
+      q(Cornu-English),
+      q(Cornish English),
+      q(Anglo-Cornish),
+      ],
+   q(0026) => [
+      q(Slovene in Dajnko alphabet),
+      ],
+   q(0027) => [
+      q(Serbian with Ekavian pronunciation),
+      ],
+   q(0028) => [
+      q(Early Modern English (1500-1700)),
+      ],
+   q(0029) => [
+      q(International Phonetic Alphabet),
+      ],
+   q(0030) => [
+      q(North American Phonetic Alphabet),
+      q(Americanist Phonetic Notation),
+      ],
+   q(0031) => [
+      q(Uralic Phonetic Alphabet),
+      ],
+   q(0032) => [
+      q(X-SAMPA transcription),
+      ],
+   q(0033) => [
+      q(Hepburn romanization),
+      ],
+   q(0034) => [
+      q(Norwegian in Hognorsk (High Norwegian) orthography),
+      ],
+   q(0035) => [
+      q(Standard H-system orthographic fallback for spelling Esperanto),
+      ],
+   q(0036) => [
+      q(Serbian with Ijekavian pronunciation),
+      ],
+   q(0037) => [
+      q(Epic Sanskrit),
+      ],
+   q(0038) => [
+      q(Bulgarian in 1899 orthography),
+      ],
+   q(0039) => [
+      q(Jauer dialect of Romansh),
+      ],
+   q(0040) => [
+      q(Jyutping Cantonese Romanization),
+      ],
+   q(0041) => [
+      q(Common Cornish orthography of Revived Cornish),
+      ],
+   q(0042) => [
+      q(The Kociewie dialect of Polish),
+      ],
+   q(0043) => [
+      q(Standard Cornish orthography of Revived Cornish),
+      q(Kernowek Standard),
+      ],
+   q(0044) => [
+      q(Classical Sanskrit),
+      ],
+   q(0045) => [
+      q(The Lipovaz dialect of Resian),
+      q(The Lipovec dialect of Resian),
+      ],
+   q(0046) => [
+      q(Post-1917 Russian orthography),
+      ],
+   q(0047) => [
+      q(Slovene in Metelko alphabet),
+      ],
+   q(0048) => [
+      q(Monotonic Greek),
+      ],
+   q(0049) => [
+      q(Ndyuka dialect),
+      q(Aukan dialect),
+      ],
+   q(0050) => [
+      q(Natisone dialect),
+      q(Nadiza dialect),
+      ],
+   q(0051) => [
+      q(Newfoundland English),
+      ],
+   q(0052) => [
+      q(The Gniva dialect of Resian),
+      q(The Njiva dialect of Resian),
+      ],
+   q(0053) => [
+      q(Volapuk nulik),
+      q(Volapuk perevidol),
+      q(Volapuk nuladik),
+      q(de Jong's Volapuk),
+      q(New Volapuk),
+      q(Revised Volapuk),
+      q(Modern Volapuk),
+      ],
+   q(0054) => [
+      q(The Oseacco dialect of Resian),
+      q(The Osojane dialect of Resian),
+      ],
+   q(0055) => [
+      q(Oxford English Dictionary spelling),
+      ],
+   q(0056) => [
+      q(Pahawh Hmong Second Stage Reduced orthography),
+      ],
+   q(0057) => [
+      q(Pahawh Hmong Third Stage Reduced orthography),
+      ],
+   q(0058) => [
+      q(Pahawh Hmong Final Version orthography),
+      ],
+   q(0059) => [
+      q(Pamaka dialect),
+      ],
+   q(0060) => [
+      q(Petrine orthography),
+      ],
+   q(0061) => [
+      q(Pinyin romanization),
+      ],
+   q(0062) => [
+      q(Polytonic Greek),
+      ],
+   q(0063) => [
+      q(Puter idiom of Romansh),
+      ],
+   q(0064) => [
+      q(Volapuk rigik),
+      q(Schleyer's Volapuk),
+      q(Original Volapuk),
+      q(Classic Volapuk),
+      ],
+   q(0065) => [
+      q(Resian),
+      q(Resianic),
+      q(Rezijan),
+      ],
+   q(0066) => [
+      q(Rumantsch Grischun),
+      ],
+   q(0067) => [
+      q(Scottish Standard English),
+      ],
+   q(0068) => [
+      q(Scouse),
+      ],
+   q(0069) => [
+      q(Simplified form),
+      ],
+   q(0070) => [
+      q(The Stolvizza dialect of Resian),
+      q(The Solbica dialect of Resian),
+      ],
+   q(0071) => [
+      q(The Sotavento dialect group of Kabuverdianu),
+      ],
+   q(0072) => [
+      q(Spanglish),
+      ],
+   q(0073) => [
+      q(Surmiran idiom of Romansh),
+      ],
+   q(0074) => [
+      q(Sursilvan idiom of Romansh),
+      ],
+   q(0075) => [
+      q(Sutsilvan idiom of Romansh),
+      ],
+   q(0076) => [
+      q(Belarusian in Taraskievica orthography),
+      ],
+   q(0077) => [
+      q(Unified Cornish orthography of Revived Cornish),
+      ],
+   q(0078) => [
+      q(Unified Cornish Revised orthography of Revived Cornish),
+      ],
+   q(0079) => [
+      q(Ulster dialect of Scots),
+      ],
+   q(0080) => [
+      q(Unifon phonetic alphabet),
+      ],
+   q(0081) => [
+      q(Vedic Sanskrit),
+      ],
+   q(0082) => [
+      q(Valencian),
+      ],
+   q(0083) => [
+      q(Vallader idiom of Romansh),
+      ],
+   q(0084) => [
+      q(Wade-Giles romanization),
+      ],
+   q(0085) => [
+      q(Standard X-system orthographic fallback for spelling Esperanto),
+      ],
+};
+
+$Locale::Codes::Data{'langvar'}{'alias2id'} = {
+   q("academic" ("governmental") variant of belarusian as codified in 1959) => [
+      q(0004),
+      q(0),
+      ],
+   q(akuapem twi) => [
+      q(0010),
+      q(0),
+      ],
+   q(ala-lc romanization, 1997 edition) => [
+      q(0008),
+      q(0),
+      ],
+   q(aluku dialect) => [
+      q(0009),
+      q(0),
+      ],
+   q(americanist phonetic notation) => [
+      q(0030),
+      q(1),
+      ],
+   q(anglo-cornish) => [
+      q(0025),
+      q(2),
+      ],
+   q(asante twi) => [
+      q(0014),
+      q(0),
+      ],
+   q(ashanti twi) => [
+      q(0014),
+      q(1),
+      ],
+   q(aukan dialect) => [
+      q(0049),
+      q(1),
+      ],
+   q(basic english) => [
+      q(0018),
+      q(0),
+      ],
+   q(belarusian in taraskievica orthography) => [
+      q(0076),
+      q(0),
+      ],
+   q(biscayan dialect of basque) => [
+      q(0020),
+      q(0),
+      ],
+   q(boni dialect) => [
+      q(0009),
+      q(1),
+      ],
+   q(boontling) => [
+      q(0023),
+      q(0),
+      ],
+   q(buddhist hybrid sanskrit) => [
+      q(0019),
+      q(0),
+      ],
+   q(bulgarian in 1899 orthography) => [
+      q(0038),
+      q(0),
+      ],
+   q(classic volapuk) => [
+      q(0064),
+      q(3),
+      ],
+   q(classical sanskrit) => [
+      q(0044),
+      q(0),
+      ],
+   q(common cornish orthography of revived cornish) => [
+      q(0041),
+      q(0),
+      ],
+   q(cornish english) => [
+      q(0025),
+      q(1),
+      ],
+   q(cornu-english) => [
+      q(0025),
+      q(0),
+      ],
+   q(de jong's volapuk) => [
+      q(0053),
+      q(3),
+      ],
+   q(early modern english (1500-1700)) => [
+      q(0028),
+      q(0),
+      ],
+   q(early modern french) => [
+      q(0002),
+      q(0),
+      ],
+   q(eastern armenian) => [
+      q(0012),
+      q(0),
+      ],
+   q(epic sanskrit) => [
+      q(0037),
+      q(0),
+      ],
+   q(german orthography of 1996) => [
+      q(0006),
+      q(0),
+      ],
+   q(hepburn romanization) => [
+      q(0033),
+      q(0),
+      ],
+   q(international phonetic alphabet) => [
+      q(0029),
+      q(0),
+      ],
+   q(jauer dialect of romansh) => [
+      q(0039),
+      q(0),
+      ],
+   q(jyutping cantonese romanization) => [
+      q(0040),
+      q(0),
+      ],
+   q(kernowek standard) => [
+      q(0043),
+      q(1),
+      ],
+   q(late middle french (to 1606)) => [
+      q(0001),
+      q(0),
+      ],
+   q(modern volapuk) => [
+      q(0053),
+      q(6),
+      ],
+   q(monotonic greek) => [
+      q(0048),
+      q(0),
+      ],
+   q(nadiza dialect) => [
+      q(0050),
+      q(1),
+      ],
+   q(natisone dialect) => [
+      q(0050),
+      q(0),
+      ],
+   q(ndyuka dialect) => [
+      q(0049),
+      q(0),
+      ],
+   q(new volapuk) => [
+      q(0053),
+      q(4),
+      ],
+   q(newfoundland english) => [
+      q(0051),
+      q(0),
+      ],
+   q(north american phonetic alphabet) => [
+      q(0030),
+      q(0),
+      ],
+   q(norwegian in hognorsk (high norwegian) orthography) => [
+      q(0034),
+      q(0),
+      ],
+   q(original volapuk) => [
+      q(0064),
+      q(2),
+      ],
+   q(orthographic formulation of 1943 - official in brazil (formulario ortografico de 1943 - oficial no brasil)) => [
+      q(0007),
+      q(0),
+      ],
+   q(oxford english dictionary spelling) => [
+      q(0055),
+      q(0),
+      ],
+   q(pahawh hmong final version orthography) => [
+      q(0058),
+      q(0),
+      ],
+   q(pahawh hmong second stage reduced orthography) => [
+      q(0056),
+      q(0),
+      ],
+   q(pahawh hmong third stage reduced orthography) => [
+      q(0057),
+      q(0),
+      ],
+   q(pamaka dialect) => [
+      q(0059),
+      q(0),
+      ],
+   q(petrine orthography) => [
+      q(0060),
+      q(0),
+      ],
+   q(pinyin romanization) => [
+      q(0061),
+      q(0),
+      ],
+   q(polytonic greek) => [
+      q(0062),
+      q(0),
+      ],
+   q(portuguese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [
+      q(0011),
+      q(0),
+      ],
+   q(portuguese-brazilian orthographic convention of 1945 (convencao ortografica luso-brasileira de 1945)) => [
+      q(0024),
+      q(0),
+      ],
+   q(post-1917 russian orthography) => [
+      q(0046),
+      q(0),
+      ],
+   q(puter idiom of romansh) => [
+      q(0063),
+      q(0),
+      ],
+   q(resian) => [
+      q(0065),
+      q(0),
+      ],
+   q(resianic) => [
+      q(0065),
+      q(1),
+      ],
+   q(revised volapuk) => [
+      q(0053),
+      q(5),
+      ],
+   q(rezijan) => [
+      q(0065),
+      q(2),
+      ],
+   q(rumantsch grischun) => [
+      q(0066),
+      q(0),
+      ],
+   q(schleyer's volapuk) => [
+      q(0064),
+      q(1),
+      ],
+   q(scottish standard english) => [
+      q(0067),
+      q(0),
+      ],
+   q(scouse) => [
+      q(0068),
+      q(0),
+      ],
+   q(serbian with ekavian pronunciation) => [
+      q(0027),
+      q(0),
+      ],
+   q(serbian with ijekavian pronunciation) => [
+      q(0036),
+      q(0),
+      ],
+   q(simplified form) => [
+      q(0069),
+      q(0),
+      ],
+   q(slovene in bohoric alphabet) => [
+      q(0022),
+      q(0),
+      ],
+   q(slovene in dajnko alphabet) => [
+      q(0026),
+      q(0),
+      ],
+   q(slovene in metelko alphabet) => [
+      q(0047),
+      q(0),
+      ],
+   q(spanglish) => [
+      q(0072),
+      q(0),
+      ],
+   q(standard cornish orthography of revived cornish) => [
+      q(0043),
+      q(0),
+      ],
+   q(standard h-system orthographic fallback for spelling esperanto) => [
+      q(0035),
+      q(0),
+      ],
+   q(standard x-system orthographic fallback for spelling esperanto) => [
+      q(0085),
+      q(0),
+      ],
+   q(standardized resian orthography) => [
+      q(0005),
+      q(0),
+      ],
+   q(surmiran idiom of romansh) => [
+      q(0073),
+      q(0),
+      ],
+   q(sursilvan idiom of romansh) => [
+      q(0074),
+      q(0),
+      ],
+   q(sutsilvan idiom of romansh) => [
+      q(0075),
+      q(0),
+      ],
+   q(the balanka dialect of anii) => [
+      q(0016),
+      q(0),
+      ],
+   q(the barlavento dialect group of kabuverdianu) => [
+      q(0017),
+      q(0),
+      ],
+   q(the bila dialect of resian) => [
+      q(0021),
+      q(1),
+      ],
+   q(the gniva dialect of resian) => [
+      q(0052),
+      q(0),
+      ],
+   q(the kociewie dialect of polish) => [
+      q(0042),
+      q(0),
+      ],
+   q(the lipovaz dialect of resian) => [
+      q(0045),
+      q(0),
+      ],
+   q(the lipovec dialect of resian) => [
+      q(0045),
+      q(1),
+      ],
+   q(the njiva dialect of resian) => [
+      q(0052),
+      q(1),
+      ],
+   q(the oseacco dialect of resian) => [
+      q(0054),
+      q(0),
+      ],
+   q(the osojane dialect of resian) => [
+      q(0054),
+      q(1),
+      ],
+   q(the san giorgio dialect of resian) => [
+      q(0021),
+      q(0),
+      ],
+   q(the solbica dialect of resian) => [
+      q(0070),
+      q(1),
+      ],
+   q(the sotavento dialect group of kabuverdianu) => [
+      q(0071),
+      q(0),
+      ],
+   q(the stolvizza dialect of resian) => [
+      q(0070),
+      q(0),
+      ],
+   q(traditional german orthography) => [
+      q(0003),
+      q(0),
+      ],
+   q(ulster dialect of scots) => [
+      q(0079),
+      q(0),
+      ],
+   q(unified cornish orthography of revived cornish) => [
+      q(0077),
+      q(0),
+      ],
+   q(unified cornish revised orthography of revived cornish) => [
+      q(0078),
+      q(0),
+      ],
+   q(unified turkic latin alphabet (historical)) => [
+      q(0015),
+      q(0),
+      ],
+   q(unifon phonetic alphabet) => [
+      q(0080),
+      q(0),
+      ],
+   q(uralic phonetic alphabet) => [
+      q(0031),
+      q(0),
+      ],
+   q(valencian) => [
+      q(0082),
+      q(0),
+      ],
+   q(vallader idiom of romansh) => [
+      q(0083),
+      q(0),
+      ],
+   q(vedic sanskrit) => [
+      q(0081),
+      q(0),
+      ],
+   q(volapuk nuladik) => [
+      q(0053),
+      q(2),
+      ],
+   q(volapuk nulik) => [
+      q(0053),
+      q(0),
+      ],
+   q(volapuk perevidol) => [
+      q(0053),
+      q(1),
+      ],
+   q(volapuk rigik) => [
+      q(0064),
+      q(0),
+      ],
+   q(wade-giles romanization) => [
+      q(0084),
+      q(0),
+      ],
+   q(western armenian) => [
+      q(0013),
+      q(0),
+      ],
+   q(x-sampa transcription) => [
+      q(0032),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langvar'}{'code2id'} = {
+   q(alpha) => {
+      q(1606nict) => [
+         q(0001),
+         q(0),
+         ],
+      q(1694acad) => [
+         q(0002),
+         q(0),
+         ],
+      q(1901) => [
+         q(0003),
+         q(0),
+         ],
+      q(1959acad) => [
+         q(0004),
+         q(0),
+         ],
+      q(1994) => [
+         q(0005),
+         q(0),
+         ],
+      q(1996) => [
+         q(0006),
+         q(0),
+         ],
+      q(abl1943) => [
+         q(0007),
+         q(0),
+         ],
+      q(akuapem) => [
+         q(0010),
+         q(0),
+         ],
+      q(alalc97) => [
+         q(0008),
+         q(0),
+         ],
+      q(aluku) => [
+         q(0009),
+         q(0),
+         ],
+      q(ao1990) => [
+         q(0011),
+         q(0),
+         ],
+      q(arevela) => [
+         q(0012),
+         q(0),
+         ],
+      q(arevmda) => [
+         q(0013),
+         q(0),
+         ],
+      q(asante) => [
+         q(0014),
+         q(0),
+         ],
+      q(baku1926) => [
+         q(0015),
+         q(0),
+         ],
+      q(balanka) => [
+         q(0016),
+         q(0),
+         ],
+      q(barla) => [
+         q(0017),
+         q(0),
+         ],
+      q(basiceng) => [
+         q(0018),
+         q(0),
+         ],
+      q(bauddha) => [
+         q(0019),
+         q(0),
+         ],
+      q(biscayan) => [
+         q(0020),
+         q(0),
+         ],
+      q(biske) => [
+         q(0021),
+         q(0),
+         ],
+      q(bohoric) => [
+         q(0022),
+         q(0),
+         ],
+      q(boont) => [
+         q(0023),
+         q(0),
+         ],
+      q(colb1945) => [
+         q(0024),
+         q(0),
+         ],
+      q(cornu) => [
+         q(0025),
+         q(0),
+         ],
+      q(dajnko) => [
+         q(0026),
+         q(0),
+         ],
+      q(ekavsk) => [
+         q(0027),
+         q(0),
+         ],
+      q(emodeng) => [
+         q(0028),
+         q(0),
+         ],
+      q(fonipa) => [
+         q(0029),
+         q(0),
+         ],
+      q(fonnapa) => [
+         q(0030),
+         q(0),
+         ],
+      q(fonupa) => [
+         q(0031),
+         q(0),
+         ],
+      q(fonxsamp) => [
+         q(0032),
+         q(0),
+         ],
+      q(hepburn) => [
+         q(0033),
+         q(0),
+         ],
+      q(hognorsk) => [
+         q(0034),
+         q(0),
+         ],
+      q(hsistemo) => [
+         q(0035),
+         q(0),
+         ],
+      q(ijekavsk) => [
+         q(0036),
+         q(0),
+         ],
+      q(itihasa) => [
+         q(0037),
+         q(0),
+         ],
+      q(ivanchov) => [
+         q(0038),
+         q(0),
+         ],
+      q(jauer) => [
+         q(0039),
+         q(0),
+         ],
+      q(jyutping) => [
+         q(0040),
+         q(0),
+         ],
+      q(kkcor) => [
+         q(0041),
+         q(0),
+         ],
+      q(kociewie) => [
+         q(0042),
+         q(0),
+         ],
+      q(kscor) => [
+         q(0043),
+         q(0),
+         ],
+      q(laukika) => [
+         q(0044),
+         q(0),
+         ],
+      q(lipaw) => [
+         q(0045),
+         q(0),
+         ],
+      q(luna1918) => [
+         q(0046),
+         q(0),
+         ],
+      q(metelko) => [
+         q(0047),
+         q(0),
+         ],
+      q(monoton) => [
+         q(0048),
+         q(0),
+         ],
+      q(ndyuka) => [
+         q(0049),
+         q(0),
+         ],
+      q(nedis) => [
+         q(0050),
+         q(0),
+         ],
+      q(newfound) => [
+         q(0051),
+         q(0),
+         ],
+      q(njiva) => [
+         q(0052),
+         q(0),
+         ],
+      q(nulik) => [
+         q(0053),
+         q(0),
+         ],
+      q(osojs) => [
+         q(0054),
+         q(0),
+         ],
+      q(oxendict) => [
+         q(0055),
+         q(0),
+         ],
+      q(pahawh2) => [
+         q(0056),
+         q(0),
+         ],
+      q(pahawh3) => [
+         q(0057),
+         q(0),
+         ],
+      q(pahawh4) => [
+         q(0058),
+         q(0),
+         ],
+      q(pamaka) => [
+         q(0059),
+         q(0),
+         ],
+      q(petr1708) => [
+         q(0060),
+         q(0),
+         ],
+      q(pinyin) => [
+         q(0061),
+         q(0),
+         ],
+      q(polyton) => [
+         q(0062),
+         q(0),
+         ],
+      q(puter) => [
+         q(0063),
+         q(0),
+         ],
+      q(rigik) => [
+         q(0064),
+         q(0),
+         ],
+      q(rozaj) => [
+         q(0065),
+         q(0),
+         ],
+      q(rumgr) => [
+         q(0066),
+         q(0),
+         ],
+      q(scotland) => [
+         q(0067),
+         q(0),
+         ],
+      q(scouse) => [
+         q(0068),
+         q(0),
+         ],
+      q(simple) => [
+         q(0069),
+         q(0),
+         ],
+      q(solba) => [
+         q(0070),
+         q(0),
+         ],
+      q(sotav) => [
+         q(0071),
+         q(0),
+         ],
+      q(spanglis) => [
+         q(0072),
+         q(0),
+         ],
+      q(surmiran) => [
+         q(0073),
+         q(0),
+         ],
+      q(sursilv) => [
+         q(0074),
+         q(0),
+         ],
+      q(sutsilv) => [
+         q(0075),
+         q(0),
+         ],
+      q(tarask) => [
+         q(0076),
+         q(0),
+         ],
+      q(uccor) => [
+         q(0077),
+         q(0),
+         ],
+      q(ucrcor) => [
+         q(0078),
+         q(0),
+         ],
+      q(ulster) => [
+         q(0079),
+         q(0),
+         ],
+      q(unifon) => [
+         q(0080),
+         q(0),
+         ],
+      q(vaidika) => [
+         q(0081),
+         q(0),
+         ],
+      q(valencia) => [
+         q(0082),
+         q(0),
+         ],
+      q(vallader) => [
+         q(0083),
+         q(0),
+         ],
+      q(wadegile) => [
+         q(0084),
+         q(0),
+         ],
+      q(xsistemo) => [
+         q(0085),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langvar'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(1606nict),
+      q(0002) => q(1694acad),
+      q(0003) => q(1901),
+      q(0004) => q(1959acad),
+      q(0005) => q(1994),
+      q(0006) => q(1996),
+      q(0007) => q(abl1943),
+      q(0008) => q(alalc97),
+      q(0009) => q(aluku),
+      q(0010) => q(akuapem),
+      q(0011) => q(ao1990),
+      q(0012) => q(arevela),
+      q(0013) => q(arevmda),
+      q(0014) => q(asante),
+      q(0015) => q(baku1926),
+      q(0016) => q(balanka),
+      q(0017) => q(barla),
+      q(0018) => q(basiceng),
+      q(0019) => q(bauddha),
+      q(0020) => q(biscayan),
+      q(0021) => q(biske),
+      q(0022) => q(bohoric),
+      q(0023) => q(boont),
+      q(0024) => q(colb1945),
+      q(0025) => q(cornu),
+      q(0026) => q(dajnko),
+      q(0027) => q(ekavsk),
+      q(0028) => q(emodeng),
+      q(0029) => q(fonipa),
+      q(0030) => q(fonnapa),
+      q(0031) => q(fonupa),
+      q(0032) => q(fonxsamp),
+      q(0033) => q(hepburn),
+      q(0034) => q(hognorsk),
+      q(0035) => q(hsistemo),
+      q(0036) => q(ijekavsk),
+      q(0037) => q(itihasa),
+      q(0038) => q(ivanchov),
+      q(0039) => q(jauer),
+      q(0040) => q(jyutping),
+      q(0041) => q(kkcor),
+      q(0042) => q(kociewie),
+      q(0043) => q(kscor),
+      q(0044) => q(laukika),
+      q(0045) => q(lipaw),
+      q(0046) => q(luna1918),
+      q(0047) => q(metelko),
+      q(0048) => q(monoton),
+      q(0049) => q(ndyuka),
+      q(0050) => q(nedis),
+      q(0051) => q(newfound),
+      q(0052) => q(njiva),
+      q(0053) => q(nulik),
+      q(0054) => q(osojs),
+      q(0055) => q(oxendict),
+      q(0056) => q(pahawh2),
+      q(0057) => q(pahawh3),
+      q(0058) => q(pahawh4),
+      q(0059) => q(pamaka),
+      q(0060) => q(petr1708),
+      q(0061) => q(pinyin),
+      q(0062) => q(polyton),
+      q(0063) => q(puter),
+      q(0064) => q(rigik),
+      q(0065) => q(rozaj),
+      q(0066) => q(rumgr),
+      q(0067) => q(scotland),
+      q(0068) => q(scouse),
+      q(0069) => q(simple),
+      q(0070) => q(solba),
+      q(0071) => q(sotav),
+      q(0072) => q(spanglis),
+      q(0073) => q(surmiran),
+      q(0074) => q(sursilv),
+      q(0075) => q(sutsilv),
+      q(0076) => q(tarask),
+      q(0077) => q(uccor),
+      q(0078) => q(ucrcor),
+      q(0079) => q(ulster),
+      q(0080) => q(unifon),
+      q(0081) => q(vaidika),
+      q(0082) => q(valencia),
+      q(0083) => q(vallader),
+      q(0084) => q(wadegile),
+      q(0085) => q(xsistemo),
+      },
+};
+
+1;
+package #
+Locale::Codes::Script_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Fri Feb 23 12:55:05 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Data{'script'}{'id'} = '0195';
+
+$Locale::Codes::Data{'script'}{'id2names'} = {
+   q(0001) => [
+      q(Adlam),
+      ],
+   q(0002) => [
+      q(Afaka),
+      ],
+   q(0003) => [
+      q(Caucasian Albanian),
+      ],
+   q(0004) => [
+      q(Ahom, Tai Ahom),
+      q(Ahom),
+      q(Tai Ahom),
+      ],
+   q(0005) => [
+      q(Arabic),
+      ],
+   q(0006) => [
+      q(Arabic (Nastaliq variant)),
+      ],
+   q(0007) => [
+      q(Imperial Aramaic),
+      ],
+   q(0008) => [
+      q(Armenian),
+      ],
+   q(0009) => [
+      q(Avestan),
+      ],
+   q(0010) => [
+      q(Balinese),
+      ],
+   q(0011) => [
+      q(Bamum),
+      ],
+   q(0012) => [
+      q(Bassa Vah),
+      ],
+   q(0013) => [
+      q(Batak),
+      ],
+   q(0014) => [
+      q(Bengali (Bangla)),
+      q(Bengali),
+      q(Bangla),
+      ],
+   q(0015) => [
+      q(Bhaiksuki),
+      ],
+   q(0016) => [
+      q(Blissymbols),
+      ],
+   q(0017) => [
+      q(Bopomofo),
+      ],
+   q(0018) => [
+      q(Brahmi),
+      ],
+   q(0019) => [
+      q(Braille),
+      ],
+   q(0020) => [
+      q(Buginese),
+      ],
+   q(0021) => [
+      q(Buhid),
+      ],
+   q(0022) => [
+      q(Chakma),
+      ],
+   q(0023) => [
+      q(Unified Canadian Aboriginal Syllabics),
+      ],
+   q(0024) => [
+      q(Carian),
+      ],
+   q(0025) => [
+      q(Cham),
+      ],
+   q(0026) => [
+      q(Cherokee),
+      ],
+   q(0027) => [
+      q(Cirth),
+      ],
+   q(0028) => [
+      q(Coptic),
+      ],
+   q(0029) => [
+      q(Cypro-Minoan),
+      ],
+   q(0030) => [
+      q(Cypriot syllabary),
+      ],
+   q(0031) => [
+      q(Cyrillic),
+      ],
+   q(0032) => [
+      q(Cyrillic (Old Church Slavonic variant)),
+      ],
+   q(0033) => [
+      q(Devanagari (Nagari)),
+      q(Devanagari),
+      q(Nagari),
+      ],
+   q(0034) => [
+      q(Dogra),
+      ],
+   q(0035) => [
+      q(Deseret (Mormon)),
+      q(Deseret),
+      q(Mormon),
+      ],
+   q(0036) => [
+      q(Duployan shorthand, Duployan stenography),
+      q(Duployan shorthand),
+      q(Duployan stenography),
+      ],
+   q(0037) => [
+      q(Egyptian demotic),
+      ],
+   q(0038) => [
+      q(Egyptian hieratic),
+      ],
+   q(0039) => [
+      q(Egyptian hieroglyphs),
+      ],
+   q(0040) => [
+      q(Elbasan),
+      ],
+   q(0041) => [
+      q(Ethiopic (Geez)),
+      q(Ethiopic),
+      q(Ge'ez),
+      ],
+   q(0042) => [
+      q(Khutsuri (Asomtavruli and Nuskhuri)),
+      ],
+   q(0043) => [
+      q(Georgian (Mkhedruli and Mtavruli)),
+      ],
+   q(0044) => [
+      q(Glagolitic),
+      ],
+   q(0045) => [
+      q(Gunjala Gondi),
+      ],
+   q(0046) => [
+      q(Masaram Gondi),
+      ],
+   q(0047) => [
+      q(Gothic),
+      ],
+   q(0048) => [
+      q(Grantha),
+      ],
+   q(0049) => [
+      q(Greek),
+      ],
+   q(0050) => [
+      q(Gujarati),
+      ],
+   q(0051) => [
+      q(Gurmukhi),
+      ],
+   q(0052) => [
+      q(Han with Bopomofo (alias for Han + Bopomofo)),
+      ],
+   q(0053) => [
+      q(Hangul (Hangul, Hangeul)),
+      q(Hangul),
+      q(Hangeul),
+      ],
+   q(0054) => [
+      q(Han (Hanzi, Kanji, Hanja)),
+      q(Han),
+      q(Hanzi),
+      q(Kanji),
+      q(Hanja),
+      ],
+   q(0055) => [
+      q(Hanunoo (Hanunoo)),
+      q(Hanunoo),
+      ],
+   q(0056) => [
+      q(Han (Simplified variant)),
+      ],
+   q(0057) => [
+      q(Han (Traditional variant)),
+      ],
+   q(0058) => [
+      q(Hatran),
+      ],
+   q(0059) => [
+      q(Hebrew),
+      ],
+   q(0060) => [
+      q(Hiragana),
+      ],
+   q(0061) => [
+      q(Anatolian Hieroglyphs (Luwian Hieroglyphs, Hittite Hieroglyphs)),
+      q(Anatolian Hieroglyphs),
+      q(Luwian Hieroglyphs),
+      q(Hittite Hieroglyphs),
+      ],
+   q(0062) => [
+      q(Pahawh Hmong),
+      ],
+   q(0063) => [
+      q(Nyiakeng Puachue Hmong),
+      ],
+   q(0064) => [
+      q(Japanese syllabaries (alias for Hiragana + Katakana)),
+      ],
+   q(0065) => [
+      q(Old Hungarian (Hungarian Runic)),
+      q(Old Hungarian),
+      q(Hungarian Runic),
+      ],
+   q(0066) => [
+      q(Indus (Harappan)),
+      q(Indus),
+      q(Harappan),
+      ],
+   q(0067) => [
+      q(Old Italic (Etruscan, Oscan, etc.)),
+      ],
+   q(0068) => [
+      q(Jamo (alias for Jamo subset of Hangul)),
+      ],
+   q(0069) => [
+      q(Javanese),
+      ],
+   q(0070) => [
+      q(Japanese (alias for Han + Hiragana + Katakana)),
+      ],
+   q(0071) => [
+      q(Jurchen),
+      ],
+   q(0072) => [
+      q(Kayah Li),
+      ],
+   q(0073) => [
+      q(Katakana),
+      ],
+   q(0074) => [
+      q(Kharoshthi),
+      ],
+   q(0075) => [
+      q(Khmer),
+      ],
+   q(0076) => [
+      q(Khojki),
+      ],
+   q(0077) => [
+      q(Khitan large script),
+      ],
+   q(0078) => [
+      q(Khitan small script),
+      ],
+   q(0079) => [
+      q(Kannada),
+      ],
+   q(0080) => [
+      q(Korean (alias for Hangul + Han)),
+      ],
+   q(0081) => [
+      q(Kpelle),
+      ],
+   q(0082) => [
+      q(Kaithi),
+      ],
+   q(0083) => [
+      q(Tai Tham (Lanna)),
+      q(Tai Tham),
+      q(Lanna),
+      ],
+   q(0084) => [
+      q(Lao),
+      ],
+   q(0085) => [
+      q(Latin (Fraktur variant)),
+      ],
+   q(0086) => [
+      q(Latin (Gaelic variant)),
+      ],
+   q(0087) => [
+      q(Latin),
+      ],
+   q(0088) => [
+      q(Leke),
+      ],
+   q(0089) => [
+      q(Lepcha (Rong)),
+      q(Lepcha),
+      q(Rong),
+      ],
+   q(0090) => [
+      q(Limbu),
+      ],
+   q(0091) => [
+      q(Linear A),
+      ],
+   q(0092) => [
+      q(Linear B),
+      ],
+   q(0093) => [
+      q(Lisu (Fraser)),
+      q(Lisu),
+      q(Fraser),
+      ],
+   q(0094) => [
+      q(Loma),
+      ],
+   q(0095) => [
+      q(Lycian),
+      ],
+   q(0096) => [
+      q(Lydian),
+      ],
+   q(0097) => [
+      q(Mahajani),
+      ],
+   q(0098) => [
+      q(Makasar),
+      ],
+   q(0099) => [
+      q(Mandaic, Mandaean),
+      q(Mandaic),
+      q(Mandaean),
+      ],
+   q(0100) => [
+      q(Manichaean),
+      ],
+   q(0101) => [
+      q(Marchen),
+      ],
+   q(0102) => [
+      q(Mayan hieroglyphs),
+      ],
+   q(0103) => [
+      q(Medefaidrin (Oberi Okaime, Oberi Okaime)),
+      q(Medefaidrin),
+      q(Oberi Okaime),
+      ],
+   q(0104) => [
+      q(Mende Kikakui),
+      ],
+   q(0105) => [
+      q(Meroitic Cursive),
+      ],
+   q(0106) => [
+      q(Meroitic Hieroglyphs),
+      ],
+   q(0107) => [
+      q(Malayalam),
+      ],
+   q(0108) => [
+      q(Modi, Modi),
+      q(Modi),
+      ],
+   q(0109) => [
+      q(Mongolian),
+      ],
+   q(0110) => [
+      q(Moon (Moon code, Moon script, Moon type)),
+      q(Moon),
+      q(Moon code),
+      q(Moon script),
+      q(Moon type),
+      ],
+   q(0111) => [
+      q(Mro, Mru),
+      q(Mro),
+      q(Mru),
+      ],
+   q(0112) => [
+      q(Meitei Mayek (Meithei, Meetei)),
+      q(Meitei Mayek),
+      q(Meithei),
+      q(Meetei),
+      ],
+   q(0113) => [
+      q(Multani),
+      ],
+   q(0114) => [
+      q(Myanmar (Burmese)),
+      q(Myanmar),
+      q(Burmese),
+      ],
+   q(0115) => [
+      q(Old North Arabian (Ancient North Arabian)),
+      q(Old North Arabian),
+      q(Ancient North Arabian),
+      ],
+   q(0116) => [
+      q(Nabataean),
+      ],
+   q(0117) => [
+      q(Newa, Newar, Newari, Nepala lipi),
+      q(Newa),
+      q(Newar),
+      q(Newari),
+      q(Nepala lipi),
+      ],
+   q(0118) => [
+      q(Naxi Dongba (Nakhi Tomba)),
+      q(Naxi Dongba),
+      q(Nakhi Tomba),
+      ],
+   q(0119) => [
+      q(Naxi Geba (Nakhi Geba, 'Na-'Khi Ggo-baw)),
+      q(Naxi Geba),
+      q(Nakhi Geba),
+      q('Na-'Khi Ggo-baw),
+      ],
+   q(0120) => [
+      q(N'Ko),
+      ],
+   q(0121) => [
+      q(Nushu),
+      ],
+   q(0122) => [
+      q(Ogham),
+      ],
+   q(0123) => [
+      q(Ol Chiki (Ol Cemet, Ol, Santali)),
+      q(Ol Chiki),
+      q(Ol Cemet'),
+      q(Ol),
+      q(Santali),
+      ],
+   q(0124) => [
+      q(Old Turkic, Orkhon Runic),
+      q(Old Turkic),
+      q(Orkhon Runic),
+      ],
+   q(0125) => [
+      q(Oriya (Odia)),
+      q(Oriya),
+      q(Odia),
+      ],
+   q(0126) => [
+      q(Osage),
+      ],
+   q(0127) => [
+      q(Osmanya),
+      ],
+   q(0128) => [
+      q(Palmyrene),
+      ],
+   q(0129) => [
+      q(Pau Cin Hau),
+      ],
+   q(0130) => [
+      q(Old Permic),
+      ],
+   q(0131) => [
+      q(Phags-pa),
+      ],
+   q(0132) => [
+      q(Inscriptional Pahlavi),
+      ],
+   q(0133) => [
+      q(Psalter Pahlavi),
+      ],
+   q(0134) => [
+      q(Book Pahlavi),
+      ],
+   q(0135) => [
+      q(Phoenician),
+      ],
+   q(0136) => [
+      q(Miao (Pollard)),
+      q(Miao),
+      q(Pollard),
+      ],
+   q(0137) => [
+      q(Klingon (KLI pIqaD)),
+      ],
+   q(0138) => [
+      q(Inscriptional Parthian),
+      ],
+   q(0139) => [
+      q(Reserved for private use (start)),
+      ],
+   q(0140) => [
+      q(Reserved for private use (end)),
+      ],
+   q(0141) => [
+      q(Rejang (Redjang, Kaganga)),
+      q(Rejang),
+      q(Redjang),
+      q(Kaganga),
+      ],
+   q(0142) => [
+      q(Hanifi Rohingya),
+      ],
+   q(0143) => [
+      q(Rongorongo),
+      ],
+   q(0144) => [
+      q(Runic),
+      ],
+   q(0145) => [
+      q(Samaritan),
+      ],
+   q(0146) => [
+      q(Sarati),
+      ],
+   q(0147) => [
+      q(Old South Arabian),
+      ],
+   q(0148) => [
+      q(Saurashtra),
+      ],
+   q(0149) => [
+      q(SignWriting),
+      ],
+   q(0150) => [
+      q(Shavian (Shaw)),
+      q(Shavian),
+      q(Shaw),
+      ],
+   q(0151) => [
+      q(Sharada, Sarada),
+      q(Sharada),
+      q(Sarada),
+      ],
+   q(0152) => [
+      q(Shuishu),
+      ],
+   q(0153) => [
+      q(Siddham, Siddham, Siddhamatrka),
+      q(Siddham),
+      q(Siddhamatrka),
+      ],
+   q(0154) => [
+      q(Khudawadi, Sindhi),
+      q(Khudawadi),
+      q(Sindhi),
+      ],
+   q(0155) => [
+      q(Sinhala),
+      ],
+   q(0156) => [
+      q(Sogdian),
+      ],
+   q(0157) => [
+      q(Old Sogdian),
+      ],
+   q(0158) => [
+      q(Sora Sompeng),
+      ],
+   q(0159) => [
+      q(Soyombo),
+      ],
+   q(0160) => [
+      q(Sundanese),
+      ],
+   q(0161) => [
+      q(Syloti Nagri),
+      ],
+   q(0162) => [
+      q(Syriac),
+      ],
+   q(0163) => [
+      q(Syriac (Estrangelo variant)),
+      ],
+   q(0164) => [
+      q(Syriac (Western variant)),
+      ],
+   q(0165) => [
+      q(Syriac (Eastern variant)),
+      ],
+   q(0166) => [
+      q(Tagbanwa),
+      ],
+   q(0167) => [
+      q(Takri, Takri, Tankri),
+      q(Takri),
+      q(Tankri),
+      ],
+   q(0168) => [
+      q(Tai Le),
+      ],
+   q(0169) => [
+      q(New Tai Lue),
+      ],
+   q(0170) => [
+      q(Tamil),
+      ],
+   q(0171) => [
+      q(Tangut),
+      ],
+   q(0172) => [
+      q(Tai Viet),
+      ],
+   q(0173) => [
+      q(Telugu),
+      ],
+   q(0174) => [
+      q(Tengwar),
+      ],
+   q(0175) => [
+      q(Tifinagh (Berber)),
+      q(Tifinagh),
+      q(Berber),
+      ],
+   q(0176) => [
+      q(Tagalog (Baybayin, Alibata)),
+      q(Tagalog),
+      q(Baybayin),
+      q(Alibata),
+      ],
+   q(0177) => [
+      q(Thaana),
+      ],
+   q(0178) => [
+      q(Thai),
+      ],
+   q(0179) => [
+      q(Tibetan),
+      ],
+   q(0180) => [
+      q(Tirhuta),
+      ],
+   q(0181) => [
+      q(Ugaritic),
+      ],
+   q(0182) => [
+      q(Vai),
+      ],
+   q(0183) => [
+      q(Visible Speech),
+      ],
+   q(0184) => [
+      q(Warang Citi (Varang Kshiti)),
+      q(Warang Citi),
+      q(Varang Kshiti),
+      ],
+   q(0185) => [
+      q(Wancho),
+      ],
+   q(0186) => [
+      q(Woleai),
+      ],
+   q(0187) => [
+      q(Old Persian),
+      ],
+   q(0188) => [
+      q(Cuneiform, Sumero-Akkadian),
+      q(Sumero-Akkadian cuneiform),
+      ],
+   q(0189) => [
+      q(Yi),
+      ],
+   q(0190) => [
+      q(Zanabazar Square (Zanabazarin Dorboljin Useg, Xewtee Dorboljin Bicig, Horizontal Square Script)),
+      q(Zanabazar Square),
+      q(Zanabazarin Dorboljin Useg),
+      q(Xewtee Dorboljin Bicig),
+      q(Horizontal Square Script),
+      ],
+   q(0191) => [
+      q(Code for inherited script),
+      ],
+   q(0192) => [
+      q(Mathematical notation),
+      ],
+   q(0193) => [
+      q(Symbols (Emoji variant)),
+      ],
+   q(0194) => [
+      q(Symbols),
+      ],
+};
+
+$Locale::Codes::Data{'script'}{'alias2id'} = {
+   q('na-'khi ggo-baw) => [
+      q(0119),
+      q(3),
+      ],
+   q(adlam) => [
+      q(0001),
+      q(0),
+      ],
+   q(afaka) => [
+      q(0002),
+      q(0),
+      ],
+   q(ahom) => [
+      q(0004),
+      q(1),
+      ],
+   q(ahom, tai ahom) => [
+      q(0004),
+      q(0),
+      ],
+   q(alibata) => [
+      q(0176),
+      q(3),
+      ],
+   q(anatolian hieroglyphs) => [
+      q(0061),
+      q(1),
+      ],
+   q(anatolian hieroglyphs (luwian hieroglyphs, hittite hieroglyphs)) => [
+      q(0061),
+      q(0),
+      ],
+   q(ancient north arabian) => [
+      q(0115),
+      q(2),
+      ],
+   q(arabic) => [
+      q(0005),
+      q(0),
+      ],
+   q(arabic (nastaliq variant)) => [
+      q(0006),
+      q(0),
+      ],
+   q(armenian) => [
+      q(0008),
+      q(0),
+      ],
+   q(avestan) => [
+      q(0009),
+      q(0),
+      ],
+   q(balinese) => [
+      q(0010),
+      q(0),
+      ],
+   q(bamum) => [
+      q(0011),
+      q(0),
+      ],
+   q(bangla) => [
+      q(0014),
+      q(2),
+      ],
+   q(bassa vah) => [
+      q(0012),
+      q(0),
+      ],
+   q(batak) => [
+      q(0013),
+      q(0),
+      ],
+   q(baybayin) => [
+      q(0176),
+      q(2),
+      ],
+   q(bengali) => [
+      q(0014),
+      q(1),
+      ],
+   q(bengali (bangla)) => [
+      q(0014),
+      q(0),
+      ],
+   q(berber) => [
+      q(0175),
+      q(2),
+      ],
+   q(bhaiksuki) => [
+      q(0015),
+      q(0),
+      ],
+   q(blissymbols) => [
+      q(0016),
+      q(0),
+      ],
+   q(book pahlavi) => [
+      q(0134),
+      q(0),
+      ],
+   q(bopomofo) => [
+      q(0017),
+      q(0),
+      ],
+   q(brahmi) => [
+      q(0018),
+      q(0),
+      ],
+   q(braille) => [
+      q(0019),
+      q(0),
+      ],
+   q(buginese) => [
+      q(0020),
+      q(0),
+      ],
+   q(buhid) => [
+      q(0021),
+      q(0),
+      ],
+   q(burmese) => [
+      q(0114),
+      q(2),
+      ],
+   q(carian) => [
+      q(0024),
+      q(0),
+      ],
+   q(caucasian albanian) => [
+      q(0003),
+      q(0),
+      ],
+   q(chakma) => [
+      q(0022),
+      q(0),
+      ],
+   q(cham) => [
+      q(0025),
+      q(0),
+      ],
+   q(cherokee) => [
+      q(0026),
+      q(0),
+      ],
+   q(cirth) => [
+      q(0027),
+      q(0),
+      ],
+   q(code for inherited script) => [
+      q(0191),
+      q(0),
+      ],
+   q(coptic) => [
+      q(0028),
+      q(0),
+      ],
+   q(cuneiform, sumero-akkadian) => [
+      q(0188),
+      q(0),
+      ],
+   q(cypriot syllabary) => [
+      q(0030),
+      q(0),
+      ],
+   q(cypro-minoan) => [
+      q(0029),
+      q(0),
+      ],
+   q(cyrillic) => [
+      q(0031),
+      q(0),
+      ],
+   q(cyrillic (old church slavonic variant)) => [
+      q(0032),
+      q(0),
+      ],
+   q(deseret) => [
+      q(0035),
+      q(1),
+      ],
+   q(deseret (mormon)) => [
+      q(0035),
+      q(0),
+      ],
+   q(devanagari) => [
+      q(0033),
+      q(1),
+      ],
+   q(devanagari (nagari)) => [
+      q(0033),
+      q(0),
+      ],
+   q(dogra) => [
+      q(0034),
+      q(0),
+      ],
+   q(duployan shorthand) => [
+      q(0036),
+      q(1),
+      ],
+   q(duployan shorthand, duployan stenography) => [
+      q(0036),
+      q(0),
+      ],
+   q(duployan stenography) => [
+      q(0036),
+      q(2),
+      ],
+   q(egyptian demotic) => [
+      q(0037),
+      q(0),
+      ],
+   q(egyptian hieratic) => [
+      q(0038),
+      q(0),
+      ],
+   q(egyptian hieroglyphs) => [
+      q(0039),
+      q(0),
+      ],
+   q(elbasan) => [
+      q(0040),
+      q(0),
+      ],
+   q(ethiopic) => [
+      q(0041),
+      q(1),
+      ],
+   q(ethiopic (geez)) => [
+      q(0041),
+      q(0),
+      ],
+   q(fraser) => [
+      q(0093),
+      q(2),
+      ],
+   q(ge'ez) => [
+      q(0041),
+      q(2),
+      ],
+   q(georgian (mkhedruli and mtavruli)) => [
+      q(0043),
+      q(0),
+      ],
+   q(glagolitic) => [
+      q(0044),
+      q(0),
+      ],
+   q(gothic) => [
+      q(0047),
+      q(0),
+      ],
+   q(grantha) => [
+      q(0048),
+      q(0),
+      ],
+   q(greek) => [
+      q(0049),
+      q(0),
+      ],
+   q(gujarati) => [
+      q(0050),
+      q(0),
+      ],
+   q(gunjala gondi) => [
+      q(0045),
+      q(0),
+      ],
+   q(gurmukhi) => [
+      q(0051),
+      q(0),
+      ],
+   q(han) => [
+      q(0054),
+      q(1),
+      ],
+   q(han (hanzi, kanji, hanja)) => [
+      q(0054),
+      q(0),
+      ],
+   q(han (simplified variant)) => [
+      q(0056),
+      q(0),
+      ],
+   q(han (traditional variant)) => [
+      q(0057),
+      q(0),
+      ],
+   q(han with bopomofo (alias for han + bopomofo)) => [
+      q(0052),
+      q(0),
+      ],
+   q(hangeul) => [
+      q(0053),
+      q(2),
+      ],
+   q(hangul) => [
+      q(0053),
+      q(1),
+      ],
+   q(hangul (hangul, hangeul)) => [
+      q(0053),
+      q(0),
+      ],
+   q(hanifi rohingya) => [
+      q(0142),
+      q(0),
+      ],
+   q(hanja) => [
+      q(0054),
+      q(4),
+      ],
+   q(hanunoo) => [
+      q(0055),
+      q(1),
+      ],
+   q(hanunoo (hanunoo)) => [
+      q(0055),
+      q(0),
+      ],
+   q(hanzi) => [
+      q(0054),
+      q(2),
+      ],
+   q(harappan) => [
+      q(0066),
+      q(2),
+      ],
+   q(hatran) => [
+      q(0058),
+      q(0),
+      ],
+   q(hebrew) => [
+      q(0059),
+      q(0),
+      ],
+   q(hiragana) => [
+      q(0060),
+      q(0),
+      ],
+   q(hittite hieroglyphs) => [
+      q(0061),
+      q(3),
+      ],
+   q(horizontal square script) => [
+      q(0190),
+      q(4),
+      ],
+   q(hungarian runic) => [
+      q(0065),
+      q(2),
+      ],
+   q(imperial aramaic) => [
+      q(0007),
+      q(0),
+      ],
+   q(indus) => [
+      q(0066),
+      q(1),
+      ],
+   q(indus (harappan)) => [
+      q(0066),
+      q(0),
+      ],
+   q(inscriptional pahlavi) => [
+      q(0132),
+      q(0),
+      ],
+   q(inscriptional parthian) => [
+      q(0138),
+      q(0),
+      ],
+   q(jamo (alias for jamo subset of hangul)) => [
+      q(0068),
+      q(0),
+      ],
+   q(japanese (alias for han + hiragana + katakana)) => [
+      q(0070),
+      q(0),
+      ],
+   q(japanese syllabaries (alias for hiragana + katakana)) => [
+      q(0064),
+      q(0),
+      ],
+   q(javanese) => [
+      q(0069),
+      q(0),
+      ],
+   q(jurchen) => [
+      q(0071),
+      q(0),
+      ],
+   q(kaganga) => [
+      q(0141),
+      q(3),
+      ],
+   q(kaithi) => [
+      q(0082),
+      q(0),
+      ],
+   q(kanji) => [
+      q(0054),
+      q(3),
+      ],
+   q(kannada) => [
+      q(0079),
+      q(0),
+      ],
+   q(katakana) => [
+      q(0073),
+      q(0),
+      ],
+   q(kayah li) => [
+      q(0072),
+      q(0),
+      ],
+   q(kharoshthi) => [
+      q(0074),
+      q(0),
+      ],
+   q(khitan large script) => [
+      q(0077),
+      q(0),
+      ],
+   q(khitan small script) => [
+      q(0078),
+      q(0),
+      ],
+   q(khmer) => [
+      q(0075),
+      q(0),
+      ],
+   q(khojki) => [
+      q(0076),
+      q(0),
+      ],
+   q(khudawadi) => [
+      q(0154),
+      q(1),
+      ],
+   q(khudawadi, sindhi) => [
+      q(0154),
+      q(0),
+      ],
+   q(khutsuri (asomtavruli and nuskhuri)) => [
+      q(0042),
+      q(0),
+      ],
+   q(klingon (kli piqad)) => [
+      q(0137),
+      q(0),
+      ],
+   q(korean (alias for hangul + han)) => [
+      q(0080),
+      q(0),
+      ],
+   q(kpelle) => [
+      q(0081),
+      q(0),
+      ],
+   q(lanna) => [
+      q(0083),
+      q(2),
+      ],
+   q(lao) => [
+      q(0084),
+      q(0),
+      ],
+   q(latin) => [
+      q(0087),
+      q(0),
+      ],
+   q(latin (fraktur variant)) => [
+      q(0085),
+      q(0),
+      ],
+   q(latin (gaelic variant)) => [
+      q(0086),
+      q(0),
+      ],
+   q(leke) => [
+      q(0088),
+      q(0),
+      ],
+   q(lepcha) => [
+      q(0089),
+      q(1),
+      ],
+   q(lepcha (rong)) => [
+      q(0089),
+      q(0),
+      ],
+   q(limbu) => [
+      q(0090),
+      q(0),
+      ],
+   q(linear a) => [
+      q(0091),
+      q(0),
+      ],
+   q(linear b) => [
+      q(0092),
+      q(0),
+      ],
+   q(lisu) => [
+      q(0093),
+      q(1),
+      ],
+   q(lisu (fraser)) => [
+      q(0093),
+      q(0),
+      ],
+   q(loma) => [
+      q(0094),
+      q(0),
+      ],
+   q(luwian hieroglyphs) => [
+      q(0061),
+      q(2),
+      ],
+   q(lycian) => [
+      q(0095),
+      q(0),
+      ],
+   q(lydian) => [
+      q(0096),
+      q(0),
+      ],
+   q(mahajani) => [
+      q(0097),
+      q(0),
+      ],
+   q(makasar) => [
+      q(0098),
+      q(0),
+      ],
+   q(malayalam) => [
+      q(0107),
+      q(0),
+      ],
+   q(mandaean) => [
+      q(0099),
+      q(2),
+      ],
+   q(mandaic) => [
+      q(0099),
+      q(1),
+      ],
+   q(mandaic, mandaean) => [
+      q(0099),
+      q(0),
+      ],
+   q(manichaean) => [
+      q(0100),
+      q(0),
+      ],
+   q(marchen) => [
+      q(0101),
+      q(0),
+      ],
+   q(masaram gondi) => [
+      q(0046),
+      q(0),
+      ],
+   q(mathematical notation) => [
+      q(0192),
+      q(0),
+      ],
+   q(mayan hieroglyphs) => [
+      q(0102),
+      q(0),
+      ],
+   q(medefaidrin) => [
+      q(0103),
+      q(1),
+      ],
+   q(medefaidrin (oberi okaime, oberi okaime)) => [
+      q(0103),
+      q(0),
+      ],
+   q(meetei) => [
+      q(0112),
+      q(3),
+      ],
+   q(meitei mayek) => [
+      q(0112),
+      q(1),
+      ],
+   q(meitei mayek (meithei, meetei)) => [
+      q(0112),
+      q(0),
+      ],
+   q(meithei) => [
+      q(0112),
+      q(2),
+      ],
+   q(mende kikakui) => [
+      q(0104),
+      q(0),
+      ],
+   q(meroitic cursive) => [
+      q(0105),
+      q(0),
+      ],
+   q(meroitic hieroglyphs) => [
+      q(0106),
+      q(0),
+      ],
+   q(miao) => [
+      q(0136),
+      q(1),
+      ],
+   q(miao (pollard)) => [
+      q(0136),
+      q(0),
+      ],
+   q(modi) => [
+      q(0108),
+      q(1),
+      ],
+   q(modi, modi) => [
+      q(0108),
+      q(0),
+      ],
+   q(mongolian) => [
+      q(0109),
+      q(0),
+      ],
+   q(moon) => [
+      q(0110),
+      q(1),
+      ],
+   q(moon (moon code, moon script, moon type)) => [
+      q(0110),
+      q(0),
+      ],
+   q(moon code) => [
+      q(0110),
+      q(2),
+      ],
+   q(moon script) => [
+      q(0110),
+      q(3),
+      ],
+   q(moon type) => [
+      q(0110),
+      q(4),
+      ],
+   q(mormon) => [
+      q(0035),
+      q(2),
+      ],
+   q(mro) => [
+      q(0111),
+      q(1),
+      ],
+   q(mro, mru) => [
+      q(0111),
+      q(0),
+      ],
+   q(mru) => [
+      q(0111),
+      q(2),
+      ],
+   q(multani) => [
+      q(0113),
+      q(0),
+      ],
+   q(myanmar) => [
+      q(0114),
+      q(1),
+      ],
+   q(myanmar (burmese)) => [
+      q(0114),
+      q(0),
+      ],
+   q(n'ko) => [
+      q(0120),
+      q(0),
+      ],
+   q(nabataean) => [
+      q(0116),
+      q(0),
+      ],
+   q(nagari) => [
+      q(0033),
+      q(2),
+      ],
+   q(nakhi geba) => [
+      q(0119),
+      q(2),
+      ],
+   q(nakhi tomba) => [
+      q(0118),
+      q(2),
+      ],
+   q(naxi dongba) => [
+      q(0118),
+      q(1),
+      ],
+   q(naxi dongba (nakhi tomba)) => [
+      q(0118),
+      q(0),
+      ],
+   q(naxi geba) => [
+      q(0119),
+      q(1),
+      ],
+   q(naxi geba (nakhi geba, 'na-'khi ggo-baw)) => [
+      q(0119),
+      q(0),
+      ],
+   q(nepala lipi) => [
+      q(0117),
+      q(4),
+      ],
+   q(new tai lue) => [
+      q(0169),
+      q(0),
+      ],
+   q(newa) => [
+      q(0117),
+      q(1),
+      ],
+   q(newa, newar, newari, nepala lipi) => [
+      q(0117),
+      q(0),
+      ],
+   q(newar) => [
+      q(0117),
+      q(2),
+      ],
+   q(newari) => [
+      q(0117),
+      q(3),
+      ],
+   q(nushu) => [
+      q(0121),
+      q(0),
+      ],
+   q(nyiakeng puachue hmong) => [
+      q(0063),
+      q(0),
+      ],
+   q(oberi okaime) => [
+      q(0103),
+      q(2),
+      ],
+   q(odia) => [
+      q(0125),
+      q(2),
+      ],
+   q(ogham) => [
+      q(0122),
+      q(0),
+      ],
+   q(ol) => [
+      q(0123),
+      q(3),
+      ],
+   q(ol cemet') => [
+      q(0123),
+      q(2),
+      ],
+   q(ol chiki) => [
+      q(0123),
+      q(1),
+      ],
+   q(ol chiki (ol cemet, ol, santali)) => [
+      q(0123),
+      q(0),
+      ],
+   q(old hungarian) => [
+      q(0065),
+      q(1),
+      ],
+   q(old hungarian (hungarian runic)) => [
+      q(0065),
+      q(0),
+      ],
+   q(old italic (etruscan, oscan, etc.)) => [
+      q(0067),
+      q(0),
+      ],
+   q(old north arabian) => [
+      q(0115),
+      q(1),
+      ],
+   q(old north arabian (ancient north arabian)) => [
+      q(0115),
+      q(0),
+      ],
+   q(old permic) => [
+      q(0130),
+      q(0),
+      ],
+   q(old persian) => [
+      q(0187),
+      q(0),
+      ],
+   q(old sogdian) => [
+      q(0157),
+      q(0),
+      ],
+   q(old south arabian) => [
+      q(0147),
+      q(0),
+      ],
+   q(old turkic) => [
+      q(0124),
+      q(1),
+      ],
+   q(old turkic, orkhon runic) => [
+      q(0124),
+      q(0),
+      ],
+   q(oriya) => [
+      q(0125),
+      q(1),
+      ],
+   q(oriya (odia)) => [
+      q(0125),
+      q(0),
+      ],
+   q(orkhon runic) => [
+      q(0124),
+      q(2),
+      ],
+   q(osage) => [
+      q(0126),
+      q(0),
+      ],
+   q(osmanya) => [
+      q(0127),
+      q(0),
+      ],
+   q(pahawh hmong) => [
+      q(0062),
+      q(0),
+      ],
+   q(palmyrene) => [
+      q(0128),
+      q(0),
+      ],
+   q(pau cin hau) => [
+      q(0129),
+      q(0),
+      ],
+   q(phags-pa) => [
+      q(0131),
+      q(0),
+      ],
+   q(phoenician) => [
+      q(0135),
+      q(0),
+      ],
+   q(pollard) => [
+      q(0136),
+      q(2),
+      ],
+   q(psalter pahlavi) => [
+      q(0133),
+      q(0),
+      ],
+   q(redjang) => [
+      q(0141),
+      q(2),
+      ],
+   q(rejang) => [
+      q(0141),
+      q(1),
+      ],
+   q(rejang (redjang, kaganga)) => [
+      q(0141),
+      q(0),
+      ],
+   q(reserved for private use (end)) => [
+      q(0140),
+      q(0),
+      ],
+   q(reserved for private use (start)) => [
+      q(0139),
+      q(0),
+      ],
+   q(rong) => [
+      q(0089),
+      q(2),
+      ],
+   q(rongorongo) => [
+      q(0143),
+      q(0),
+      ],
+   q(runic) => [
+      q(0144),
+      q(0),
+      ],
+   q(samaritan) => [
+      q(0145),
+      q(0),
+      ],
+   q(santali) => [
+      q(0123),
+      q(4),
+      ],
+   q(sarada) => [
+      q(0151),
+      q(2),
+      ],
+   q(sarati) => [
+      q(0146),
+      q(0),
+      ],
+   q(saurashtra) => [
+      q(0148),
+      q(0),
+      ],
+   q(sharada) => [
+      q(0151),
+      q(1),
+      ],
+   q(sharada, sarada) => [
+      q(0151),
+      q(0),
+      ],
+   q(shavian) => [
+      q(0150),
+      q(1),
+      ],
+   q(shavian (shaw)) => [
+      q(0150),
+      q(0),
+      ],
+   q(shaw) => [
+      q(0150),
+      q(2),
+      ],
+   q(shuishu) => [
+      q(0152),
+      q(0),
+      ],
+   q(siddham) => [
+      q(0153),
+      q(1),
+      ],
+   q(siddham, siddham, siddhamatrka) => [
+      q(0153),
+      q(0),
+      ],
+   q(siddhamatrka) => [
+      q(0153),
+      q(2),
+      ],
+   q(signwriting) => [
+      q(0149),
+      q(0),
+      ],
+   q(sindhi) => [
+      q(0154),
+      q(2),
+      ],
+   q(sinhala) => [
+      q(0155),
+      q(0),
+      ],
+   q(sogdian) => [
+      q(0156),
+      q(0),
+      ],
+   q(sora sompeng) => [
+      q(0158),
+      q(0),
+      ],
+   q(soyombo) => [
+      q(0159),
+      q(0),
+      ],
+   q(sumero-akkadian cuneiform) => [
+      q(0188),
+      q(1),
+      ],
+   q(sundanese) => [
+      q(0160),
+      q(0),
+      ],
+   q(syloti nagri) => [
+      q(0161),
+      q(0),
+      ],
+   q(symbols) => [
+      q(0194),
+      q(0),
+      ],
+   q(symbols (emoji variant)) => [
+      q(0193),
+      q(0),
+      ],
+   q(syriac) => [
+      q(0162),
+      q(0),
+      ],
+   q(syriac (eastern variant)) => [
+      q(0165),
+      q(0),
+      ],
+   q(syriac (estrangelo variant)) => [
+      q(0163),
+      q(0),
+      ],
+   q(syriac (western variant)) => [
+      q(0164),
+      q(0),
+      ],
+   q(tagalog) => [
+      q(0176),
+      q(1),
+      ],
+   q(tagalog (baybayin, alibata)) => [
+      q(0176),
+      q(0),
+      ],
+   q(tagbanwa) => [
+      q(0166),
+      q(0),
+      ],
+   q(tai ahom) => [
+      q(0004),
+      q(2),
+      ],
+   q(tai le) => [
+      q(0168),
+      q(0),
+      ],
+   q(tai tham) => [
+      q(0083),
+      q(1),
+      ],
+   q(tai tham (lanna)) => [
+      q(0083),
+      q(0),
+      ],
+   q(tai viet) => [
+      q(0172),
+      q(0),
+      ],
+   q(takri) => [
+      q(0167),
+      q(1),
+      ],
+   q(takri, takri, tankri) => [
+      q(0167),
+      q(0),
+      ],
+   q(tamil) => [
+      q(0170),
+      q(0),
+      ],
+   q(tangut) => [
+      q(0171),
+      q(0),
+      ],
+   q(tankri) => [
+      q(0167),
+      q(2),
+      ],
+   q(telugu) => [
+      q(0173),
+      q(0),
+      ],
+   q(tengwar) => [
+      q(0174),
+      q(0),
+      ],
+   q(thaana) => [
+      q(0177),
+      q(0),
+      ],
+   q(thai) => [
+      q(0178),
+      q(0),
+      ],
+   q(tibetan) => [
+      q(0179),
+      q(0),
+      ],
+   q(tifinagh) => [
+      q(0175),
+      q(1),
+      ],
+   q(tifinagh (berber)) => [
+      q(0175),
+      q(0),
+      ],
+   q(tirhuta) => [
+      q(0180),
+      q(0),
+      ],
+   q(ugaritic) => [
+      q(0181),
+      q(0),
+      ],
+   q(unified canadian aboriginal syllabics) => [
+      q(0023),
+      q(0),
+      ],
+   q(vai) => [
+      q(0182),
+      q(0),
+      ],
+   q(varang kshiti) => [
+      q(0184),
+      q(2),
+      ],
+   q(visible speech) => [
+      q(0183),
+      q(0),
+      ],
+   q(wancho) => [
+      q(0185),
+      q(0),
+      ],
+   q(warang citi) => [
+      q(0184),
+      q(1),
+      ],
+   q(warang citi (varang kshiti)) => [
+      q(0184),
+      q(0),
+      ],
+   q(woleai) => [
+      q(0186),
+      q(0),
+      ],
+   q(xewtee dorboljin bicig) => [
+      q(0190),
+      q(3),
+      ],
+   q(yi) => [
+      q(0189),
+      q(0),
+      ],
+   q(zanabazar square) => [
+      q(0190),
+      q(1),
+      ],
+   q(zanabazar square (zanabazarin dorboljin useg, xewtee dorboljin bicig, horizontal square script)) => [
+      q(0190),
+      q(0),
+      ],
+   q(zanabazarin dorboljin useg) => [
+      q(0190),
+      q(2),
+      ],
+};
+
+$Locale::Codes::Data{'script'}{'code2id'} = {
+   q(alpha) => {
+      q(Adlm) => [
+         q(0001),
+         q(0),
+         ],
+      q(Afak) => [
+         q(0002),
+         q(0),
+         ],
+      q(Aghb) => [
+         q(0003),
+         q(0),
+         ],
+      q(Ahom) => [
+         q(0004),
+         q(1),
+         ],
+      q(Arab) => [
+         q(0005),
+         q(0),
+         ],
+      q(Aran) => [
+         q(0006),
+         q(0),
+         ],
+      q(Armi) => [
+         q(0007),
+         q(0),
+         ],
+      q(Armn) => [
+         q(0008),
+         q(0),
+         ],
+      q(Avst) => [
+         q(0009),
+         q(0),
+         ],
+      q(Bali) => [
+         q(0010),
+         q(0),
+         ],
+      q(Bamu) => [
+         q(0011),
+         q(0),
+         ],
+      q(Bass) => [
+         q(0012),
+         q(0),
+         ],
+      q(Batk) => [
+         q(0013),
+         q(0),
+         ],
+      q(Beng) => [
+         q(0014),
+         q(1),
+         ],
+      q(Bhks) => [
+         q(0015),
+         q(0),
+         ],
+      q(Blis) => [
+         q(0016),
+         q(0),
+         ],
+      q(Bopo) => [
+         q(0017),
+         q(0),
+         ],
+      q(Brah) => [
+         q(0018),
+         q(0),
+         ],
+      q(Brai) => [
+         q(0019),
+         q(0),
+         ],
+      q(Bugi) => [
+         q(0020),
+         q(0),
+         ],
+      q(Buhd) => [
+         q(0021),
+         q(0),
+         ],
+      q(Cakm) => [
+         q(0022),
+         q(0),
+         ],
+      q(Cans) => [
+         q(0023),
+         q(0),
+         ],
+      q(Cari) => [
+         q(0024),
+         q(0),
+         ],
+      q(Cham) => [
+         q(0025),
+         q(0),
+         ],
+      q(Cher) => [
+         q(0026),
+         q(0),
+         ],
+      q(Cirt) => [
+         q(0027),
+         q(0),
+         ],
+      q(Copt) => [
+         q(0028),
+         q(0),
+         ],
+      q(Cpmn) => [
+         q(0029),
+         q(0),
+         ],
+      q(Cprt) => [
+         q(0030),
+         q(0),
+         ],
+      q(Cyrl) => [
+         q(0031),
+         q(0),
+         ],
+      q(Cyrs) => [
+         q(0032),
+         q(0),
+         ],
+      q(Deva) => [
+         q(0033),
+         q(1),
+         ],
+      q(Dogr) => [
+         q(0034),
+         q(0),
+         ],
+      q(Dsrt) => [
+         q(0035),
+         q(1),
+         ],
+      q(Dupl) => [
+         q(0036),
+         q(1),
+         ],
+      q(Egyd) => [
+         q(0037),
+         q(0),
+         ],
+      q(Egyh) => [
+         q(0038),
+         q(0),
+         ],
+      q(Egyp) => [
+         q(0039),
+         q(0),
+         ],
+      q(Elba) => [
+         q(0040),
+         q(0),
+         ],
+      q(Ethi) => [
+         q(0041),
+         q(1),
+         ],
+      q(Geok) => [
+         q(0042),
+         q(0),
+         ],
+      q(Geor) => [
+         q(0043),
+         q(0),
+         ],
+      q(Glag) => [
+         q(0044),
+         q(0),
+         ],
+      q(Gong) => [
+         q(0045),
+         q(0),
+         ],
+      q(Gonm) => [
+         q(0046),
+         q(0),
+         ],
+      q(Goth) => [
+         q(0047),
+         q(0),
+         ],
+      q(Gran) => [
+         q(0048),
+         q(0),
+         ],
+      q(Grek) => [
+         q(0049),
+         q(0),
+         ],
+      q(Gujr) => [
+         q(0050),
+         q(0),
+         ],
+      q(Guru) => [
+         q(0051),
+         q(0),
+         ],
+      q(Hanb) => [
+         q(0052),
+         q(0),
+         ],
+      q(Hang) => [
+         q(0053),
+         q(1),
+         ],
+      q(Hani) => [
+         q(0054),
+         q(1),
+         ],
+      q(Hano) => [
+         q(0055),
+         q(1),
+         ],
+      q(Hans) => [
+         q(0056),
+         q(0),
+         ],
+      q(Hant) => [
+         q(0057),
+         q(0),
+         ],
+      q(Hatr) => [
+         q(0058),
+         q(0),
+         ],
+      q(Hebr) => [
+         q(0059),
+         q(0),
+         ],
+      q(Hira) => [
+         q(0060),
+         q(0),
+         ],
+      q(Hluw) => [
+         q(0061),
+         q(1),
+         ],
+      q(Hmng) => [
+         q(0062),
+         q(0),
+         ],
+      q(Hmnp) => [
+         q(0063),
+         q(0),
+         ],
+      q(Hrkt) => [
+         q(0064),
+         q(0),
+         ],
+      q(Hung) => [
+         q(0065),
+         q(1),
+         ],
+      q(Inds) => [
+         q(0066),
+         q(1),
+         ],
+      q(Ital) => [
+         q(0067),
+         q(0),
+         ],
+      q(Jamo) => [
+         q(0068),
+         q(0),
+         ],
+      q(Java) => [
+         q(0069),
+         q(0),
+         ],
+      q(Jpan) => [
+         q(0070),
+         q(0),
+         ],
+      q(Jurc) => [
+         q(0071),
+         q(0),
+         ],
+      q(Kali) => [
+         q(0072),
+         q(0),
+         ],
+      q(Kana) => [
+         q(0073),
+         q(0),
+         ],
+      q(Khar) => [
+         q(0074),
+         q(0),
+         ],
+      q(Khmr) => [
+         q(0075),
+         q(0),
+         ],
+      q(Khoj) => [
+         q(0076),
+         q(0),
+         ],
+      q(Kitl) => [
+         q(0077),
+         q(0),
+         ],
+      q(Kits) => [
+         q(0078),
+         q(0),
+         ],
+      q(Knda) => [
+         q(0079),
+         q(0),
+         ],
+      q(Kore) => [
+         q(0080),
+         q(0),
+         ],
+      q(Kpel) => [
+         q(0081),
+         q(0),
+         ],
+      q(Kthi) => [
+         q(0082),
+         q(0),
+         ],
+      q(Lana) => [
+         q(0083),
+         q(1),
+         ],
+      q(Laoo) => [
+         q(0084),
+         q(0),
+         ],
+      q(Latf) => [
+         q(0085),
+         q(0),
+         ],
+      q(Latg) => [
+         q(0086),
+         q(0),
+         ],
+      q(Latn) => [
+         q(0087),
+         q(0),
+         ],
+      q(Leke) => [
+         q(0088),
+         q(0),
+         ],
+      q(Lepc) => [
+         q(0089),
+         q(1),
+         ],
+      q(Limb) => [
+         q(0090),
+         q(0),
+         ],
+      q(Lina) => [
+         q(0091),
+         q(0),
+         ],
+      q(Linb) => [
+         q(0092),
+         q(0),
+         ],
+      q(Lisu) => [
+         q(0093),
+         q(1),
+         ],
+      q(Loma) => [
+         q(0094),
+         q(0),
+         ],
+      q(Lyci) => [
+         q(0095),
+         q(0),
+         ],
+      q(Lydi) => [
+         q(0096),
+         q(0),
+         ],
+      q(Mahj) => [
+         q(0097),
+         q(0),
+         ],
+      q(Maka) => [
+         q(0098),
+         q(0),
+         ],
+      q(Mand) => [
+         q(0099),
+         q(1),
+         ],
+      q(Mani) => [
+         q(0100),
+         q(0),
+         ],
+      q(Marc) => [
+         q(0101),
+         q(0),
+         ],
+      q(Maya) => [
+         q(0102),
+         q(0),
+         ],
+      q(Medf) => [
+         q(0103),
+         q(1),
+         ],
+      q(Mend) => [
+         q(0104),
+         q(0),
+         ],
+      q(Merc) => [
+         q(0105),
+         q(0),
+         ],
+      q(Mero) => [
+         q(0106),
+         q(0),
+         ],
+      q(Mlym) => [
+         q(0107),
+         q(0),
+         ],
+      q(Modi) => [
+         q(0108),
+         q(1),
+         ],
+      q(Mong) => [
+         q(0109),
+         q(0),
+         ],
+      q(Moon) => [
+         q(0110),
+         q(1),
+         ],
+      q(Mroo) => [
+         q(0111),
+         q(1),
+         ],
+      q(Mtei) => [
+         q(0112),
+         q(1),
+         ],
+      q(Mult) => [
+         q(0113),
+         q(0),
+         ],
+      q(Mymr) => [
+         q(0114),
+         q(1),
+         ],
+      q(Narb) => [
+         q(0115),
+         q(1),
+         ],
+      q(Nbat) => [
+         q(0116),
+         q(0),
+         ],
+      q(Newa) => [
+         q(0117),
+         q(1),
+         ],
+      q(Nkdb) => [
+         q(0118),
+         q(1),
+         ],
+      q(Nkgb) => [
+         q(0119),
+         q(1),
+         ],
+      q(Nkoo) => [
+         q(0120),
+         q(0),
+         ],
+      q(Nshu) => [
+         q(0121),
+         q(0),
+         ],
+      q(Ogam) => [
+         q(0122),
+         q(0),
+         ],
+      q(Olck) => [
+         q(0123),
+         q(1),
+         ],
+      q(Orkh) => [
+         q(0124),
+         q(1),
+         ],
+      q(Orya) => [
+         q(0125),
+         q(1),
+         ],
+      q(Osge) => [
+         q(0126),
+         q(0),
+         ],
+      q(Osma) => [
+         q(0127),
+         q(0),
+         ],
+      q(Palm) => [
+         q(0128),
+         q(0),
+         ],
+      q(Pauc) => [
+         q(0129),
+         q(0),
+         ],
+      q(Perm) => [
+         q(0130),
+         q(0),
+         ],
+      q(Phag) => [
+         q(0131),
+         q(0),
+         ],
+      q(Phli) => [
+         q(0132),
+         q(0),
+         ],
+      q(Phlp) => [
+         q(0133),
+         q(0),
+         ],
+      q(Phlv) => [
+         q(0134),
+         q(0),
+         ],
+      q(Phnx) => [
+         q(0135),
+         q(0),
+         ],
+      q(Piqd) => [
+         q(0137),
+         q(0),
+         ],
+      q(Plrd) => [
+         q(0136),
+         q(1),
+         ],
+      q(Prti) => [
+         q(0138),
+         q(0),
+         ],
+      q(Qaaa) => [
+         q(0139),
+         q(0),
+         ],
+      q(Qabx) => [
+         q(0140),
+         q(0),
+         ],
+      q(Rjng) => [
+         q(0141),
+         q(1),
+         ],
+      q(Rohg) => [
+         q(0142),
+         q(0),
+         ],
+      q(Roro) => [
+         q(0143),
+         q(0),
+         ],
+      q(Runr) => [
+         q(0144),
+         q(0),
+         ],
+      q(Samr) => [
+         q(0145),
+         q(0),
+         ],
+      q(Sara) => [
+         q(0146),
+         q(0),
+         ],
+      q(Sarb) => [
+         q(0147),
+         q(0),
+         ],
+      q(Saur) => [
+         q(0148),
+         q(0),
+         ],
+      q(Sgnw) => [
+         q(0149),
+         q(0),
+         ],
+      q(Shaw) => [
+         q(0150),
+         q(1),
+         ],
+      q(Shrd) => [
+         q(0151),
+         q(1),
+         ],
+      q(Shui) => [
+         q(0152),
+         q(0),
+         ],
+      q(Sidd) => [
+         q(0153),
+         q(1),
+         ],
+      q(Sind) => [
+         q(0154),
+         q(1),
+         ],
+      q(Sinh) => [
+         q(0155),
+         q(0),
+         ],
+      q(Sogd) => [
+         q(0156),
+         q(0),
+         ],
+      q(Sogo) => [
+         q(0157),
+         q(0),
+         ],
+      q(Sora) => [
+         q(0158),
+         q(0),
+         ],
+      q(Soyo) => [
+         q(0159),
+         q(0),
+         ],
+      q(Sund) => [
+         q(0160),
+         q(0),
+         ],
+      q(Sylo) => [
+         q(0161),
+         q(0),
+         ],
+      q(Syrc) => [
+         q(0162),
+         q(0),
+         ],
+      q(Syre) => [
+         q(0163),
+         q(0),
+         ],
+      q(Syrj) => [
+         q(0164),
+         q(0),
+         ],
+      q(Syrn) => [
+         q(0165),
+         q(0),
+         ],
+      q(Tagb) => [
+         q(0166),
+         q(0),
+         ],
+      q(Takr) => [
+         q(0167),
+         q(1),
+         ],
+      q(Tale) => [
+         q(0168),
+         q(0),
+         ],
+      q(Talu) => [
+         q(0169),
+         q(0),
+         ],
+      q(Taml) => [
+         q(0170),
+         q(0),
+         ],
+      q(Tang) => [
+         q(0171),
+         q(0),
+         ],
+      q(Tavt) => [
+         q(0172),
+         q(0),
+         ],
+      q(Telu) => [
+         q(0173),
+         q(0),
+         ],
+      q(Teng) => [
+         q(0174),
+         q(0),
+         ],
+      q(Tfng) => [
+         q(0175),
+         q(1),
+         ],
+      q(Tglg) => [
+         q(0176),
+         q(1),
+         ],
+      q(Thaa) => [
+         q(0177),
+         q(0),
+         ],
+      q(Thai) => [
+         q(0178),
+         q(0),
+         ],
+      q(Tibt) => [
+         q(0179),
+         q(0),
+         ],
+      q(Tirh) => [
+         q(0180),
+         q(0),
+         ],
+      q(Ugar) => [
+         q(0181),
+         q(0),
+         ],
+      q(Vaii) => [
+         q(0182),
+         q(0),
+         ],
+      q(Visp) => [
+         q(0183),
+         q(0),
+         ],
+      q(Wara) => [
+         q(0184),
+         q(1),
+         ],
+      q(Wcho) => [
+         q(0185),
+         q(0),
+         ],
+      q(Wole) => [
+         q(0186),
+         q(0),
+         ],
+      q(Xpeo) => [
+         q(0187),
+         q(0),
+         ],
+      q(Xsux) => [
+         q(0188),
+         q(1),
+         ],
+      q(Yiii) => [
+         q(0189),
+         q(0),
+         ],
+      q(Zanb) => [
+         q(0190),
+         q(1),
+         ],
+      q(Zinh) => [
+         q(0191),
+         q(0),
+         ],
+      q(Zmth) => [
+         q(0192),
+         q(0),
+         ],
+      q(Zsye) => [
+         q(0193),
+         q(0),
+         ],
+      q(Zsym) => [
+         q(0194),
+         q(0),
+         ],
+      },
+   q(num) => {
+      q(020) => [
+         q(0188),
+         q(0),
+         ],
+      q(030) => [
+         q(0187),
+         q(0),
+         ],
+      q(040) => [
+         q(0181),
+         q(0),
+         ],
+      q(050) => [
+         q(0039),
+         q(0),
+         ],
+      q(060) => [
+         q(0038),
+         q(0),
+         ],
+      q(070) => [
+         q(0037),
+         q(0),
+         ],
+      q(080) => [
+         q(0061),
+         q(0),
+         ],
+      q(085) => [
+         q(0118),
+         q(0),
+         ],
+      q(090) => [
+         q(0102),
+         q(0),
+         ],
+      q(095) => [
+         q(0149),
+         q(0),
+         ],
+      q(100) => [
+         q(0106),
+         q(0),
+         ],
+      q(101) => [
+         q(0105),
+         q(0),
+         ],
+      q(105) => [
+         q(0147),
+         q(0),
+         ],
+      q(106) => [
+         q(0115),
+         q(0),
+         ],
+      q(115) => [
+         q(0135),
+         q(0),
+         ],
+      q(116) => [
+         q(0096),
+         q(0),
+         ],
+      q(120) => [
+         q(0175),
+         q(0),
+         ],
+      q(123) => [
+         q(0145),
+         q(0),
+         ],
+      q(124) => [
+         q(0007),
+         q(0),
+         ],
+      q(125) => [
+         q(0059),
+         q(0),
+         ],
+      q(126) => [
+         q(0128),
+         q(0),
+         ],
+      q(127) => [
+         q(0058),
+         q(0),
+         ],
+      q(130) => [
+         q(0138),
+         q(0),
+         ],
+      q(131) => [
+         q(0132),
+         q(0),
+         ],
+      q(132) => [
+         q(0133),
+         q(0),
+         ],
+      q(133) => [
+         q(0134),
+         q(0),
+         ],
+      q(134) => [
+         q(0009),
+         q(0),
+         ],
+      q(135) => [
+         q(0162),
+         q(0),
+         ],
+      q(136) => [
+         q(0165),
+         q(0),
+         ],
+      q(137) => [
+         q(0164),
+         q(0),
+         ],
+      q(138) => [
+         q(0163),
+         q(0),
+         ],
+      q(139) => [
+         q(0100),
+         q(0),
+         ],
+      q(140) => [
+         q(0099),
+         q(0),
+         ],
+      q(141) => [
+         q(0156),
+         q(0),
+         ],
+      q(142) => [
+         q(0157),
+         q(0),
+         ],
+      q(145) => [
+         q(0109),
+         q(0),
+         ],
+      q(159) => [
+         q(0116),
+         q(0),
+         ],
+      q(160) => [
+         q(0005),
+         q(0),
+         ],
+      q(161) => [
+         q(0006),
+         q(0),
+         ],
+      q(165) => [
+         q(0120),
+         q(0),
+         ],
+      q(166) => [
+         q(0001),
+         q(0),
+         ],
+      q(167) => [
+         q(0142),
+         q(0),
+         ],
+      q(170) => [
+         q(0177),
+         q(0),
+         ],
+      q(175) => [
+         q(0124),
+         q(0),
+         ],
+      q(176) => [
+         q(0065),
+         q(0),
+         ],
+      q(200) => [
+         q(0049),
+         q(0),
+         ],
+      q(201) => [
+         q(0024),
+         q(0),
+         ],
+      q(202) => [
+         q(0095),
+         q(0),
+         ],
+      q(204) => [
+         q(0028),
+         q(0),
+         ],
+      q(206) => [
+         q(0047),
+         q(0),
+         ],
+      q(210) => [
+         q(0067),
+         q(0),
+         ],
+      q(211) => [
+         q(0144),
+         q(0),
+         ],
+      q(212) => [
+         q(0122),
+         q(0),
+         ],
+      q(215) => [
+         q(0087),
+         q(0),
+         ],
+      q(216) => [
+         q(0086),
+         q(0),
+         ],
+      q(217) => [
+         q(0085),
+         q(0),
+         ],
+      q(218) => [
+         q(0110),
+         q(0),
+         ],
+      q(219) => [
+         q(0126),
+         q(0),
+         ],
+      q(220) => [
+         q(0031),
+         q(0),
+         ],
+      q(221) => [
+         q(0032),
+         q(0),
+         ],
+      q(225) => [
+         q(0044),
+         q(0),
+         ],
+      q(226) => [
+         q(0040),
+         q(0),
+         ],
+      q(227) => [
+         q(0130),
+         q(0),
+         ],
+      q(230) => [
+         q(0008),
+         q(0),
+         ],
+      q(239) => [
+         q(0003),
+         q(0),
+         ],
+      q(240) => [
+         q(0043),
+         q(0),
+         ],
+      q(241) => [
+         q(0042),
+         q(0),
+         ],
+      q(250) => [
+         q(0035),
+         q(0),
+         ],
+      q(259) => [
+         q(0012),
+         q(0),
+         ],
+      q(260) => [
+         q(0127),
+         q(0),
+         ],
+      q(261) => [
+         q(0123),
+         q(0),
+         ],
+      q(262) => [
+         q(0184),
+         q(0),
+         ],
+      q(263) => [
+         q(0129),
+         q(0),
+         ],
+      q(264) => [
+         q(0111),
+         q(0),
+         ],
+      q(265) => [
+         q(0103),
+         q(0),
+         ],
+      q(280) => [
+         q(0183),
+         q(0),
+         ],
+      q(281) => [
+         q(0150),
+         q(0),
+         ],
+      q(282) => [
+         q(0136),
+         q(0),
+         ],
+      q(283) => [
+         q(0185),
+         q(0),
+         ],
+      q(284) => [
+         q(0068),
+         q(0),
+         ],
+      q(285) => [
+         q(0017),
+         q(0),
+         ],
+      q(286) => [
+         q(0053),
+         q(0),
+         ],
+      q(287) => [
+         q(0080),
+         q(0),
+         ],
+      q(288) => [
+         q(0078),
+         q(0),
+         ],
+      q(290) => [
+         q(0174),
+         q(0),
+         ],
+      q(291) => [
+         q(0027),
+         q(0),
+         ],
+      q(292) => [
+         q(0146),
+         q(0),
+         ],
+      q(293) => [
+         q(0137),
+         q(0),
+         ],
+      q(300) => [
+         q(0018),
+         q(0),
+         ],
+      q(302) => [
+         q(0153),
+         q(0),
+         ],
+      q(305) => [
+         q(0074),
+         q(0),
+         ],
+      q(310) => [
+         q(0051),
+         q(0),
+         ],
+      q(312) => [
+         q(0045),
+         q(0),
+         ],
+      q(313) => [
+         q(0046),
+         q(0),
+         ],
+      q(314) => [
+         q(0097),
+         q(0),
+         ],
+      q(315) => [
+         q(0033),
+         q(0),
+         ],
+      q(316) => [
+         q(0161),
+         q(0),
+         ],
+      q(317) => [
+         q(0082),
+         q(0),
+         ],
+      q(318) => [
+         q(0154),
+         q(0),
+         ],
+      q(319) => [
+         q(0151),
+         q(0),
+         ],
+      q(320) => [
+         q(0050),
+         q(0),
+         ],
+      q(321) => [
+         q(0167),
+         q(0),
+         ],
+      q(322) => [
+         q(0076),
+         q(0),
+         ],
+      q(323) => [
+         q(0113),
+         q(0),
+         ],
+      q(324) => [
+         q(0108),
+         q(0),
+         ],
+      q(325) => [
+         q(0014),
+         q(0),
+         ],
+      q(326) => [
+         q(0180),
+         q(0),
+         ],
+      q(327) => [
+         q(0125),
+         q(0),
+         ],
+      q(328) => [
+         q(0034),
+         q(0),
+         ],
+      q(329) => [
+         q(0159),
+         q(0),
+         ],
+      q(330) => [
+         q(0179),
+         q(0),
+         ],
+      q(331) => [
+         q(0131),
+         q(0),
+         ],
+      q(332) => [
+         q(0101),
+         q(0),
+         ],
+      q(333) => [
+         q(0117),
+         q(0),
+         ],
+      q(334) => [
+         q(0015),
+         q(0),
+         ],
+      q(335) => [
+         q(0089),
+         q(0),
+         ],
+      q(336) => [
+         q(0090),
+         q(0),
+         ],
+      q(337) => [
+         q(0112),
+         q(0),
+         ],
+      q(338) => [
+         q(0004),
+         q(0),
+         ],
+      q(339) => [
+         q(0190),
+         q(0),
+         ],
+      q(340) => [
+         q(0173),
+         q(0),
+         ],
+      q(343) => [
+         q(0048),
+         q(0),
+         ],
+      q(344) => [
+         q(0148),
+         q(0),
+         ],
+      q(345) => [
+         q(0079),
+         q(0),
+         ],
+      q(346) => [
+         q(0170),
+         q(0),
+         ],
+      q(347) => [
+         q(0107),
+         q(0),
+         ],
+      q(348) => [
+         q(0155),
+         q(0),
+         ],
+      q(349) => [
+         q(0022),
+         q(0),
+         ],
+      q(350) => [
+         q(0114),
+         q(0),
+         ],
+      q(351) => [
+         q(0083),
+         q(0),
+         ],
+      q(352) => [
+         q(0178),
+         q(0),
+         ],
+      q(353) => [
+         q(0168),
+         q(0),
+         ],
+      q(354) => [
+         q(0169),
+         q(0),
+         ],
+      q(355) => [
+         q(0075),
+         q(0),
+         ],
+      q(356) => [
+         q(0084),
+         q(0),
+         ],
+      q(357) => [
+         q(0072),
+         q(0),
+         ],
+      q(358) => [
+         q(0025),
+         q(0),
+         ],
+      q(359) => [
+         q(0172),
+         q(0),
+         ],
+      q(360) => [
+         q(0010),
+         q(0),
+         ],
+      q(361) => [
+         q(0069),
+         q(0),
+         ],
+      q(362) => [
+         q(0160),
+         q(0),
+         ],
+      q(363) => [
+         q(0141),
+         q(0),
+         ],
+      q(364) => [
+         q(0088),
+         q(0),
+         ],
+      q(365) => [
+         q(0013),
+         q(0),
+         ],
+      q(366) => [
+         q(0098),
+         q(0),
+         ],
+      q(367) => [
+         q(0020),
+         q(0),
+         ],
+      q(370) => [
+         q(0176),
+         q(0),
+         ],
+      q(371) => [
+         q(0055),
+         q(0),
+         ],
+      q(372) => [
+         q(0021),
+         q(0),
+         ],
+      q(373) => [
+         q(0166),
+         q(0),
+         ],
+      q(398) => [
+         q(0158),
+         q(0),
+         ],
+      q(399) => [
+         q(0093),
+         q(0),
+         ],
+      q(400) => [
+         q(0091),
+         q(0),
+         ],
+      q(401) => [
+         q(0092),
+         q(0),
+         ],
+      q(402) => [
+         q(0029),
+         q(0),
+         ],
+      q(403) => [
+         q(0030),
+         q(0),
+         ],
+      q(410) => [
+         q(0060),
+         q(0),
+         ],
+      q(411) => [
+         q(0073),
+         q(0),
+         ],
+      q(412) => [
+         q(0064),
+         q(0),
+         ],
+      q(413) => [
+         q(0070),
+         q(0),
+         ],
+      q(420) => [
+         q(0119),
+         q(0),
+         ],
+      q(430) => [
+         q(0041),
+         q(0),
+         ],
+      q(435) => [
+         q(0011),
+         q(0),
+         ],
+      q(436) => [
+         q(0081),
+         q(0),
+         ],
+      q(437) => [
+         q(0094),
+         q(0),
+         ],
+      q(438) => [
+         q(0104),
+         q(0),
+         ],
+      q(439) => [
+         q(0002),
+         q(0),
+         ],
+      q(440) => [
+         q(0023),
+         q(0),
+         ],
+      q(445) => [
+         q(0026),
+         q(0),
+         ],
+      q(450) => [
+         q(0062),
+         q(0),
+         ],
+      q(451) => [
+         q(0063),
+         q(0),
+         ],
+      q(460) => [
+         q(0189),
+         q(0),
+         ],
+      q(470) => [
+         q(0182),
+         q(0),
+         ],
+      q(480) => [
+         q(0186),
+         q(0),
+         ],
+      q(499) => [
+         q(0121),
+         q(0),
+         ],
+      q(500) => [
+         q(0054),
+         q(0),
+         ],
+      q(501) => [
+         q(0056),
+         q(0),
+         ],
+      q(502) => [
+         q(0057),
+         q(0),
+         ],
+      q(503) => [
+         q(0052),
+         q(0),
+         ],
+      q(505) => [
+         q(0077),
+         q(0),
+         ],
+      q(510) => [
+         q(0071),
+         q(0),
+         ],
+      q(520) => [
+         q(0171),
+         q(0),
+         ],
+      q(530) => [
+         q(0152),
+         q(0),
+         ],
+      q(550) => [
+         q(0016),
+         q(0),
+         ],
+      q(570) => [
+         q(0019),
+         q(0),
+         ],
+      q(610) => [
+         q(0066),
+         q(0),
+         ],
+      q(620) => [
+         q(0143),
+         q(0),
+         ],
+      q(755) => [
+         q(0036),
+         q(0),
+         ],
+      q(900) => [
+         q(0139),
+         q(0),
+         ],
+      q(949) => [
+         q(0140),
+         q(0),
+         ],
+      q(993) => [
+         q(0193),
+         q(0),
+         ],
+      q(994) => [
+         q(0191),
+         q(0),
+         ],
+      q(995) => [
+         q(0192),
+         q(0),
+         ],
+      q(996) => [
+         q(0194),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'script'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(Adlm),
+      q(0002) => q(Afak),
+      q(0003) => q(Aghb),
+      q(0004) => q(Ahom),
+      q(0005) => q(Arab),
+      q(0006) => q(Aran),
+      q(0007) => q(Armi),
+      q(0008) => q(Armn),
+      q(0009) => q(Avst),
+      q(0010) => q(Bali),
+      q(0011) => q(Bamu),
+      q(0012) => q(Bass),
+      q(0013) => q(Batk),
+      q(0014) => q(Beng),
+      q(0015) => q(Bhks),
+      q(0016) => q(Blis),
+      q(0017) => q(Bopo),
+      q(0018) => q(Brah),
+      q(0019) => q(Brai),
+      q(0020) => q(Bugi),
+      q(0021) => q(Buhd),
+      q(0022) => q(Cakm),
+      q(0023) => q(Cans),
+      q(0024) => q(Cari),
+      q(0025) => q(Cham),
+      q(0026) => q(Cher),
+      q(0027) => q(Cirt),
+      q(0028) => q(Copt),
+      q(0029) => q(Cpmn),
+      q(0030) => q(Cprt),
+      q(0031) => q(Cyrl),
+      q(0032) => q(Cyrs),
+      q(0033) => q(Deva),
+      q(0034) => q(Dogr),
+      q(0035) => q(Dsrt),
+      q(0036) => q(Dupl),
+      q(0037) => q(Egyd),
+      q(0038) => q(Egyh),
+      q(0039) => q(Egyp),
+      q(0040) => q(Elba),
+      q(0041) => q(Ethi),
+      q(0042) => q(Geok),
+      q(0043) => q(Geor),
+      q(0044) => q(Glag),
+      q(0045) => q(Gong),
+      q(0046) => q(Gonm),
+      q(0047) => q(Goth),
+      q(0048) => q(Gran),
+      q(0049) => q(Grek),
+      q(0050) => q(Gujr),
+      q(0051) => q(Guru),
+      q(0052) => q(Hanb),
+      q(0053) => q(Hang),
+      q(0054) => q(Hani),
+      q(0055) => q(Hano),
+      q(0056) => q(Hans),
+      q(0057) => q(Hant),
+      q(0058) => q(Hatr),
+      q(0059) => q(Hebr),
+      q(0060) => q(Hira),
+      q(0061) => q(Hluw),
+      q(0062) => q(Hmng),
+      q(0063) => q(Hmnp),
+      q(0064) => q(Hrkt),
+      q(0065) => q(Hung),
+      q(0066) => q(Inds),
+      q(0067) => q(Ital),
+      q(0068) => q(Jamo),
+      q(0069) => q(Java),
+      q(0070) => q(Jpan),
+      q(0071) => q(Jurc),
+      q(0072) => q(Kali),
+      q(0073) => q(Kana),
+      q(0074) => q(Khar),
+      q(0075) => q(Khmr),
+      q(0076) => q(Khoj),
+      q(0077) => q(Kitl),
+      q(0078) => q(Kits),
+      q(0079) => q(Knda),
+      q(0080) => q(Kore),
+      q(0081) => q(Kpel),
+      q(0082) => q(Kthi),
+      q(0083) => q(Lana),
+      q(0084) => q(Laoo),
+      q(0085) => q(Latf),
+      q(0086) => q(Latg),
+      q(0087) => q(Latn),
+      q(0088) => q(Leke),
+      q(0089) => q(Lepc),
+      q(0090) => q(Limb),
+      q(0091) => q(Lina),
+      q(0092) => q(Linb),
+      q(0093) => q(Lisu),
+      q(0094) => q(Loma),
+      q(0095) => q(Lyci),
+      q(0096) => q(Lydi),
+      q(0097) => q(Mahj),
+      q(0098) => q(Maka),
+      q(0099) => q(Mand),
+      q(0100) => q(Mani),
+      q(0101) => q(Marc),
+      q(0102) => q(Maya),
+      q(0103) => q(Medf),
+      q(0104) => q(Mend),
+      q(0105) => q(Merc),
+      q(0106) => q(Mero),
+      q(0107) => q(Mlym),
+      q(0108) => q(Modi),
+      q(0109) => q(Mong),
+      q(0110) => q(Moon),
+      q(0111) => q(Mroo),
+      q(0112) => q(Mtei),
+      q(0113) => q(Mult),
+      q(0114) => q(Mymr),
+      q(0115) => q(Narb),
+      q(0116) => q(Nbat),
+      q(0117) => q(Newa),
+      q(0118) => q(Nkdb),
+      q(0119) => q(Nkgb),
+      q(0120) => q(Nkoo),
+      q(0121) => q(Nshu),
+      q(0122) => q(Ogam),
+      q(0123) => q(Olck),
+      q(0124) => q(Orkh),
+      q(0125) => q(Orya),
+      q(0126) => q(Osge),
+      q(0127) => q(Osma),
+      q(0128) => q(Palm),
+      q(0129) => q(Pauc),
+      q(0130) => q(Perm),
+      q(0131) => q(Phag),
+      q(0132) => q(Phli),
+      q(0133) => q(Phlp),
+      q(0134) => q(Phlv),
+      q(0135) => q(Phnx),
+      q(0136) => q(Plrd),
+      q(0137) => q(Piqd),
+      q(0138) => q(Prti),
+      q(0139) => q(Qaaa),
+      q(0140) => q(Qabx),
+      q(0141) => q(Rjng),
+      q(0142) => q(Rohg),
+      q(0143) => q(Roro),
+      q(0144) => q(Runr),
+      q(0145) => q(Samr),
+      q(0146) => q(Sara),
+      q(0147) => q(Sarb),
+      q(0148) => q(Saur),
+      q(0149) => q(Sgnw),
+      q(0150) => q(Shaw),
+      q(0151) => q(Shrd),
+      q(0152) => q(Shui),
+      q(0153) => q(Sidd),
+      q(0154) => q(Sind),
+      q(0155) => q(Sinh),
+      q(0156) => q(Sogd),
+      q(0157) => q(Sogo),
+      q(0158) => q(Sora),
+      q(0159) => q(Soyo),
+      q(0160) => q(Sund),
+      q(0161) => q(Sylo),
+      q(0162) => q(Syrc),
+      q(0163) => q(Syre),
+      q(0164) => q(Syrj),
+      q(0165) => q(Syrn),
+      q(0166) => q(Tagb),
+      q(0167) => q(Takr),
+      q(0168) => q(Tale),
+      q(0169) => q(Talu),
+      q(0170) => q(Taml),
+      q(0171) => q(Tang),
+      q(0172) => q(Tavt),
+      q(0173) => q(Telu),
+      q(0174) => q(Teng),
+      q(0175) => q(Tfng),
+      q(0176) => q(Tglg),
+      q(0177) => q(Thaa),
+      q(0178) => q(Thai),
+      q(0179) => q(Tibt),
+      q(0180) => q(Tirh),
+      q(0181) => q(Ugar),
+      q(0182) => q(Vaii),
+      q(0183) => q(Visp),
+      q(0184) => q(Wara),
+      q(0185) => q(Wcho),
+      q(0186) => q(Wole),
+      q(0187) => q(Xpeo),
+      q(0188) => q(Xsux),
+      q(0189) => q(Yiii),
+      q(0190) => q(Zanb),
+      q(0191) => q(Zinh),
+      q(0192) => q(Zmth),
+      q(0193) => q(Zsye),
+      q(0194) => q(Zsym),
+      },
+   q(num) => {
+      q(0001) => q(166),
+      q(0002) => q(439),
+      q(0003) => q(239),
+      q(0004) => q(338),
+      q(0005) => q(160),
+      q(0006) => q(161),
+      q(0007) => q(124),
+      q(0008) => q(230),
+      q(0009) => q(134),
+      q(0010) => q(360),
+      q(0011) => q(435),
+      q(0012) => q(259),
+      q(0013) => q(365),
+      q(0014) => q(325),
+      q(0015) => q(334),
+      q(0016) => q(550),
+      q(0017) => q(285),
+      q(0018) => q(300),
+      q(0019) => q(570),
+      q(0020) => q(367),
+      q(0021) => q(372),
+      q(0022) => q(349),
+      q(0023) => q(440),
+      q(0024) => q(201),
+      q(0025) => q(358),
+      q(0026) => q(445),
+      q(0027) => q(291),
+      q(0028) => q(204),
+      q(0029) => q(402),
+      q(0030) => q(403),
+      q(0031) => q(220),
+      q(0032) => q(221),
+      q(0033) => q(315),
+      q(0034) => q(328),
+      q(0035) => q(250),
+      q(0036) => q(755),
+      q(0037) => q(070),
+      q(0038) => q(060),
+      q(0039) => q(050),
+      q(0040) => q(226),
+      q(0041) => q(430),
+      q(0042) => q(241),
+      q(0043) => q(240),
+      q(0044) => q(225),
+      q(0045) => q(312),
+      q(0046) => q(313),
+      q(0047) => q(206),
+      q(0048) => q(343),
+      q(0049) => q(200),
+      q(0050) => q(320),
+      q(0051) => q(310),
+      q(0052) => q(503),
+      q(0053) => q(286),
+      q(0054) => q(500),
+      q(0055) => q(371),
+      q(0056) => q(501),
+      q(0057) => q(502),
+      q(0058) => q(127),
+      q(0059) => q(125),
+      q(0060) => q(410),
+      q(0061) => q(080),
+      q(0062) => q(450),
+      q(0063) => q(451),
+      q(0064) => q(412),
+      q(0065) => q(176),
+      q(0066) => q(610),
+      q(0067) => q(210),
+      q(0068) => q(284),
+      q(0069) => q(361),
+      q(0070) => q(413),
+      q(0071) => q(510),
+      q(0072) => q(357),
+      q(0073) => q(411),
+      q(0074) => q(305),
+      q(0075) => q(355),
+      q(0076) => q(322),
+      q(0077) => q(505),
+      q(0078) => q(288),
+      q(0079) => q(345),
+      q(0080) => q(287),
+      q(0081) => q(436),
+      q(0082) => q(317),
+      q(0083) => q(351),
+      q(0084) => q(356),
+      q(0085) => q(217),
+      q(0086) => q(216),
+      q(0087) => q(215),
+      q(0088) => q(364),
+      q(0089) => q(335),
+      q(0090) => q(336),
+      q(0091) => q(400),
+      q(0092) => q(401),
+      q(0093) => q(399),
+      q(0094) => q(437),
+      q(0095) => q(202),
+      q(0096) => q(116),
+      q(0097) => q(314),
+      q(0098) => q(366),
+      q(0099) => q(140),
+      q(0100) => q(139),
+      q(0101) => q(332),
+      q(0102) => q(090),
+      q(0103) => q(265),
+      q(0104) => q(438),
+      q(0105) => q(101),
+      q(0106) => q(100),
+      q(0107) => q(347),
+      q(0108) => q(324),
+      q(0109) => q(145),
+      q(0110) => q(218),
+      q(0111) => q(264),
+      q(0112) => q(337),
+      q(0113) => q(323),
+      q(0114) => q(350),
+      q(0115) => q(106),
+      q(0116) => q(159),
+      q(0117) => q(333),
+      q(0118) => q(085),
+      q(0119) => q(420),
+      q(0120) => q(165),
+      q(0121) => q(499),
+      q(0122) => q(212),
+      q(0123) => q(261),
+      q(0124) => q(175),
+      q(0125) => q(327),
+      q(0126) => q(219),
+      q(0127) => q(260),
+      q(0128) => q(126),
+      q(0129) => q(263),
+      q(0130) => q(227),
+      q(0131) => q(331),
+      q(0132) => q(131),
+      q(0133) => q(132),
+      q(0134) => q(133),
+      q(0135) => q(115),
+      q(0136) => q(282),
+      q(0137) => q(293),
+      q(0138) => q(130),
+      q(0139) => q(900),
+      q(0140) => q(949),
+      q(0141) => q(363),
+      q(0142) => q(167),
+      q(0143) => q(620),
+      q(0144) => q(211),
+      q(0145) => q(123),
+      q(0146) => q(292),
+      q(0147) => q(105),
+      q(0148) => q(344),
+      q(0149) => q(095),
+      q(0150) => q(281),
+      q(0151) => q(319),
+      q(0152) => q(530),
+      q(0153) => q(302),
+      q(0154) => q(318),
+      q(0155) => q(348),
+      q(0156) => q(141),
+      q(0157) => q(142),
+      q(0158) => q(398),
+      q(0159) => q(329),
+      q(0160) => q(362),
+      q(0161) => q(316),
+      q(0162) => q(135),
+      q(0163) => q(138),
+      q(0164) => q(137),
+      q(0165) => q(136),
+      q(0166) => q(373),
+      q(0167) => q(321),
+      q(0168) => q(353),
+      q(0169) => q(354),
+      q(0170) => q(346),
+      q(0171) => q(520),
+      q(0172) => q(359),
+      q(0173) => q(340),
+      q(0174) => q(290),
+      q(0175) => q(120),
+      q(0176) => q(370),
+      q(0177) => q(170),
+      q(0178) => q(352),
+      q(0179) => q(330),
+      q(0180) => q(326),
+      q(0181) => q(040),
+      q(0182) => q(470),
+      q(0183) => q(280),
+      q(0184) => q(262),
+      q(0185) => q(283),
+      q(0186) => q(480),
+      q(0187) => q(030),
+      q(0188) => q(020),
+      q(0189) => q(460),
+      q(0190) => q(339),
+      q(0191) => q(994),
+      q(0192) => q(995),
+      q(0193) => q(993),
+      q(0194) => q(996),
+      },
+};
+
+1;
+package #
+Locale::Codes::LangVar_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'langvar'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'langvar'}{'alpha'}{'name'} = {
+   q("academic" ("governmental") variant of belarusian as) => [ q(1959acad), q("Academic" ("governmental") variant of Belarusian as) ],
+   q(portugese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [ q(ao1990), q(Portugese Language Orthographic Agreement of 1990 (Acordo Ortografico da Lingua Portuguesa de 1990)) ],
+   q(slovene in bohoric alphabet) => [ q(bohoric), q(Slovene in Bohoric alphabet) ],
+};
+
+
+1;
+package Locale::Codes::LangFam;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2langfam
+                langfam2code
+                all_langfam_codes
+                all_langfam_names
+                langfam_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGFAM);
+
+our $obj = new Locale::Codes('langfam');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2langfam {
+   return $obj->code2name(@_);
+}
+
+sub langfam2code {
+   return $obj->name2code(@_);
+}
+
+sub langfam_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_langfam_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_langfam_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_langfam {
+   return $obj->rename_code(@_);
+}
+
+sub add_langfam {
+   return $obj->add_code(@_);
+}
+
+sub delete_langfam {
+   return $obj->delete_code(@_);
+}
+
+sub add_langfam_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_langfam_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_langfam_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_langfam_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_langfam_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::LangFam_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Sep 27 15:40:31 EDT 2011
+
+use strict;
+use warnings;
+require 5.002;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'langfam'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'langfam'}{'alpha'}{'name'} = {
+};
+
+
+1;
+package Locale::Codes::LangExt;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2langext
+                langext2code
+                all_langext_codes
+                all_langext_names
+                langext_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGEXT);
+
+our $obj = new Locale::Codes('langext');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2langext {
+   return $obj->code2name(@_);
+}
+
+sub langext2code {
+   return $obj->name2code(@_);
+}
+
+sub langext_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_langext_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_langext_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_langext {
+   return $obj->rename_code(@_);
+}
+
+sub add_langext {
+   return $obj->add_code(@_);
+}
+
+sub delete_langext {
+   return $obj->delete_code(@_);
+}
+
+sub add_langext_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_langext_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_langext_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_langext_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_langext_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package Locale::Codes::Language;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2018 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'gen_mods' is run.
+#    Generated on: Fri Feb 23 12:55:25 EST 2018
+
+use strict;
+use warnings;
+require 5.006;
+use Exporter qw(import);
+
+our($VERSION,@EXPORT);
+$VERSION   = '3.56';
+
+################################################################################
+use if $] >= 5.027007, 'deprecate';
+use Locale::Codes;
+use Locale::Codes::Constants;
+
+@EXPORT    = qw(
+                code2language
+                language2code
+                all_language_codes
+                all_language_names
+                language_code2code
+               );
+push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_LANGUAGE);
+
+our $obj = new Locale::Codes('language');
+$obj->show_errors(0);
+
+sub show_errors {
+   my($val) = @_;
+   $obj->show_errors($val);
+}
+
+sub code2language {
+   return $obj->code2name(@_);
+}
+
+sub language2code {
+   return $obj->name2code(@_);
+}
+
+sub language_code2code {
+   return $obj->code2code(@_);
+}
+
+sub all_language_codes {
+   return $obj->all_codes(@_);
+}
+
+sub all_language_names {
+   return $obj->all_names(@_);
+}
+
+sub rename_language {
+   return $obj->rename_code(@_);
+}
+
+sub add_language {
+   return $obj->add_code(@_);
+}
+
+sub delete_language {
+   return $obj->delete_code(@_);
+}
+
+sub add_language_alias {
+   return $obj->add_alias(@_);
+}
+
+sub delete_language_alias {
+   return $obj->delete_alias(@_);
+}
+
+sub rename_language_code {
+   return $obj->replace_code(@_);
+}
+
+sub add_language_code_alias {
+   return $obj->add_code_alias(@_);
+}
+
+sub delete_language_code_alias {
+   return $obj->delete_code_alias(@_);
+}
+
+1;
+package #
+Locale::Codes::Currency_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Fri Feb 23 12:58:17 EST 2018
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.56';
+
+$Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
+   q(ADP) => q(Andorran Peseta),
+   q(AFA) => q(Afghani),
+   q(AON) => q(New Kwanza),
+   q(AOR) => q(Kwanza Reajustado),
+   q(ATS) => q(Schilling),
+   q(AZM) => q(Azerbaijanian Manat),
+   q(BEF) => q(Belgian Franc),
+   q(BGL) => q(Lev),
+   q(BYB) => q(Belarussian Ruble),
+   q(CYP) => q(Cyprus Pound),
+   q(DEM) => q(German Mark),
+   q(ECS) => q(Sucre),
+   q(ECV) => q(Unidad de Valor Constante (UVC)),
+   q(EEK) => q(Kroon),
+   q(ESP) => q(Spanish Peseta),
+   q(FIM) => q(Markka),
+   q(FRF) => q(French Franc),
+   q(GHC) => q(Cedi),
+   q(GRD) => q(Drachma),
+   q(GWP) => q(Guinea-Bissau Peso),
+   q(IEP) => q(Irish Pound),
+   q(ITL) => q(Italian Lira),
+   q(LTL) => q(Lithuanian Litas),
+   q(LUF) => q(Luxembourg Franc),
+   q(LVL) => q(Latvian Lats),
+   q(MGF) => q(Malagasy Franc),
+   q(MRO) => q(Ouguiya),
+   q(MTL) => q(Maltese Lira),
+   q(MZM) => q(Metical),
+   q(NLG) => q(Netherlands Guilder),
+   q(PTE) => q(Portuguese Escudo),
+   q(ROL) => q(Leu),
+   q(RUR) => q(Russian Ruble),
+   q(SDD) => q(Sudanese Dinar),
+   q(SHP) => q(Saint Helena Pound),
+   q(SIT) => q(Tolar),
+   q(SKK) => q(Slovak Koruna),
+   q(SRG) => q(Surinam Guilder),
+   q(STD) => q(Dobra),
+   q(TJR) => q(Tajik Ruble),
+   q(TMM) => q(Manat),
+   q(TPE) => q(Timor Escudo),
+   q(TRL) => q(Turkish Lira),
+   q(UAK) => q(Karbovanets),
+   q(USS) => q(US Dollar (Same day)),
+   q(VEB) => q(Bolivar),
+   q(XB5) => q(European Unit of Account 17),
+   q(XEU) => q(ECU (until 1998-12-31)),
+   q(XFO) => q(Gold-Franc),
+   q(XFU) => q(UIC-Franc),
+   q(YUM) => q(New Dinar),
+   q(ZAL) => q(Financial Rand),
+   q(ZRN) => q(New Zaire),
+   q(ZWD) => q(Zimbabwe Dollar),
+};
+
+$Locale::Codes::Retired{'currency'}{'num'}{'code'} = {
+   q(428) => q(Latvian Lats),
+   q(440) => q(Lithuanian Litas),
+   q(478) => q(Ouguiya),
+   q(654) => q(Saint Helena Pound),
+   q(678) => q(Dobra),
+   q(998) => q(US Dollar (Same day)),
+};
+
+$Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
+   q(andorran peseta) => [ q(ADP), q(Andorran Peseta) ],
+   q(aruban guilder) => [ q(AWG), q(Aruban Guilder) ],
+   q(azerbaijanian manat) => [ q(AZN), q(Azerbaijanian Manat) ],
+   q(belarussian ruble) => [ q(BYR), q(Belarussian Ruble) ],
+   q(belgian franc) => [ q(BEF), q(Belgian Franc) ],
+   q(bermudian dollar (customarily known as bermuda dollar)) => [ q(BMD), q(Bermudian Dollar (customarily known as Bermuda Dollar)) ],
+   q(bolivar) => [ q(VEB), q(Bolivar) ],
+   q(bolivar fuerte) => [ q(VEF), q(Bolivar Fuerte) ],
+   q(bond markets units european composite unit (eurco)) => [ q(XBA), q(Bond Markets Units European Composite Unit (EURCO)) ],
+   q(candian dollar) => [ q(CAD), q(Candian Dollar) ],
+   q(cape verde escudo) => [ q(CVE), q(Cape Verde Escudo) ],
+   q(cedi) => [ q(GHS), q(Cedi) ],
+   q(comoro franc) => [ q(KMF), q(Comoro Franc) ],
+   q(convertible marks) => [ q(BAM), q(Convertible Marks) ],
+   q(croatian kuna) => [ q(HRK), q(Croatian Kuna) ],
+   q(cyprus pound) => [ q(CYP), q(Cyprus Pound) ],
+   q(dinar) => [ q(BHD), q(Dinar) ],
+   q(drachma) => [ q(GRD), q(Drachma) ],
+   q(ecu (until 1998-12-31)) => [ q(XEU), q(ECU (until 1998-12-31)) ],
+   q(european composite unit) => [ q(XBA), q(European Composite Unit) ],
+   q(european monetary unit) => [ q(XBB), q(European Monetary Unit) ],
+   q(european monetary unit (e.m.u.-6)) => [ q(XBB), q(European Monetary Unit (E.M.U.-6)) ],
+   q(european unit of account 17) => [ q(XB5), q(European Unit of Account 17) ],
+   q(european unit of account 17(e.u.a.-17)) => [ q(XBD), q(European Unit of Account 17(E.U.A.-17)) ],
+   q(european unit of account 9) => [ q(XBC), q(European Unit of Account 9) ],
+   q(european unit of account 9(e.u.a.-9)) => [ q(XBC), q(European Unit of Account 9(E.U.A.-9)) ],
+   q(financial rand) => [ q(ZAL), q(Financial Rand) ],
+   q(franc congolais) => [ q(CDF), q(Franc Congolais) ],
+   q(french franc) => [ q(FRF), q(French Franc) ],
+   q(german mark) => [ q(DEM), q(German Mark) ],
+   q(gold-franc) => [ q(XFO), q(Gold-Franc) ],
+   q(guinea franc) => [ q(GNF), q(Guinea Franc) ],
+   q(guinea-bissau peso) => [ q(GWP), q(Guinea-Bissau Peso) ],
+   q(irish pound) => [ q(IEP), q(Irish Pound) ],
+   q(italian lira) => [ q(ITL), q(Italian Lira) ],
+   q(karbovanets) => [ q(UAK), q(Karbovanets) ],
+   q(kip) => [ q(LAK), q(Kip) ],
+   q(kroon) => [ q(EEK), q(Kroon) ],
+   q(kuna) => [ q(HRK), q(Kuna) ],
+   q(kwacha) => [ q(MWK), q(Kwacha) ],
+   q(kwanza reajustado) => [ q(AOR), q(Kwanza Reajustado) ],
+   q(latvian lats) => [ q(LVL), q(Latvian Lats) ],
+   q(leu) => [ q(RON), q(Leu) ],
+   q(lev) => [ q(BGL), q(Lev) ],
+   q(lithuanian litas) => [ q(LTL), q(Lithuanian Litas) ],
+   q(luxembourg franc) => [ q(LUF), q(Luxembourg Franc) ],
+   q(malagasy franc) => [ q(MGF), q(Malagasy Franc) ],
+   q(maltese lira) => [ q(MTL), q(Maltese Lira) ],
+   q(manat) => [ q(TMT), q(Manat) ],
+   q(markka) => [ q(FIM), q(Markka) ],
+   q(metical) => [ q(MZN), q(Metical) ],
+   q(mexican nuevo peso) => [ q(MXN), q(Mexican Nuevo Peso) ],
+   q(netherlands antillian guilder) => [ q(ANG), q(Netherlands Antillian Guilder) ],
+   q(netherlands guilder) => [ q(NLG), q(Netherlands Guilder) ],
+   q(new dinar) => [ q(YUM), q(New Dinar) ],
+   q(new kwanza) => [ q(AON), q(New Kwanza) ],
+   q(new leu) => [ q(RON), q(New Leu) ],
+   q(new manat) => [ q(TMT), q(New Manat) ],
+   q(new romanian leu) => [ q(RON), q(New Romanian Leu) ],
+   q(new zaire) => [ q(ZRN), q(New Zaire) ],
+   q(nuevo sol) => [ q(PEN), q(Nuevo Sol) ],
+   q(philippine peso) => [ q(PHP), q(Philippine Peso) ],
+   q(portuguese escudo) => [ q(PTE), q(Portuguese Escudo) ],
+   q(saint helena pound) => [ q(SHP), q(Saint Helena Pound) ],
+   q(schilling) => [ q(ATS), q(Schilling) ],
+   q(sdr) => [ q(XDR), q(SDR) ],
+   q(shekel) => [ q(ILS), q(Shekel) ],
+   q(slovak koruna) => [ q(SKK), q(Slovak Koruna) ],
+   q(spanish peseta) => [ q(ESP), q(Spanish Peseta) ],
+   q(st. helena pound) => [ q(SHP), q(St. Helena Pound) ],
+   q(sudanese dinar) => [ q(SDD), q(Sudanese Dinar) ],
+   q(surinam guilder) => [ q(SRG), q(Surinam Guilder) ],
+   q(tajik ruble) => [ q(TJR), q(Tajik Ruble) ],
+   q(timor escudo) => [ q(TPE), q(Timor Escudo) ],
+   q(tolar) => [ q(SIT), q(Tolar) ],
+   q(tunisian dollar) => [ q(TND), q(Tunisian Dollar) ],
+   q(uic-franc) => [ q(XFU), q(UIC-Franc) ],
+   q(unidad de valor constante (uvc)) => [ q(ECV), q(Unidad de Valor Constante (UVC)) ],
+   q(unidades de fomento) => [ q(CLF), q(Unidades de fomento) ],
+   q(unidades de formento) => [ q(CLF), q(Unidades de Formento) ],
+   q(uruguay peso en unidades indexadas) => [ q(UYI), q(Uruguay Peso en Unidades Indexadas) ],
+   q(us dollar (same day)) => [ q(USS), q(US Dollar (Same day)) ],
+};
+
+$Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
+   q(azerbaijanian manat) => [ q(944), q(Azerbaijanian Manat) ],
+   q(belarussian ruble) => [ q(974), q(Belarussian Ruble) ],
+   q(bolivar fuerte) => [ q(937), q(Bolivar Fuerte) ],
+   q(cape verde escudo) => [ q(132), q(Cape Verde Escudo) ],
+   q(cedi) => [ q(936), q(Cedi) ],
+   q(comoro franc) => [ q(174), q(Comoro Franc) ],
+   q(croatian kuna) => [ q(191), q(Croatian Kuna) ],
+   q(guinea franc) => [ q(324), q(Guinea Franc) ],
+   q(kip) => [ q(418), q(Kip) ],
+   q(kwacha) => [ q(454), q(Kwacha) ],
+   q(latvian lats) => [ q(428), q(Latvian Lats) ],
+   q(leu) => [ q(946), q(Leu) ],
+   q(lithuanian litas) => [ q(440), q(Lithuanian Litas) ],
+   q(metical) => [ q(943), q(Metical) ],
+   q(new manat) => [ q(934), q(New Manat) ],
+   q(new romanian leu) => [ q(946), q(New Romanian Leu) ],
+   q(nuevo sol) => [ q(604), q(Nuevo Sol) ],
+   q(philippine peso) => [ q(608), q(Philippine Peso) ],
+   q(saint helena pound) => [ q(654), q(Saint Helena Pound) ],
+   q(unidades de fomento) => [ q(990), q(Unidades de fomento) ],
+   q(us dollar (same day)) => [ q(998), q(US Dollar (Same day)) ],
+};
+
+
+1;
+package Locale::Maketext::Simple;
+$Locale::Maketext::Simple::VERSION = '0.21_01';
+
+use strict;
+use 5.005;
+
+
+sub import {
+    my ($class, %args) = @_;
+
+    $args{Class}    ||= caller;
+    $args{Style}    ||= 'maketext';
+    $args{Export}   ||= 'loc';
+    $args{Subclass} ||= 'I18N';
+
+    my ($loc, $loc_lang) = $class->load_loc(%args);
+    $loc ||= $class->default_loc(%args);
+
+    no strict 'refs';
+    *{caller(0) . "::$args{Export}"} = $loc if $args{Export};
+    *{caller(0) . "::$args{Export}_lang"} = $loc_lang || sub { 1 };
+}
+
+my %Loc;
+
+sub reload_loc { %Loc = () }
+
+sub load_loc {
+    my ($class, %args) = @_;
+
+    my $pkg = join('::', grep { defined and length } $args{Class}, $args{Subclass});
+    return $Loc{$pkg} if exists $Loc{$pkg};
+
+    eval {
+        local @INC = @INC;
+        pop @INC if $INC[-1] eq '.';
+        require Locale::Maketext::Lexicon;
+        1
+    } or return;
+    $Locale::Maketext::Lexicon::VERSION > 0.20	    or return;
+    eval { require File::Spec; 1 }		    or return;
+
+    my $path = $args{Path} || $class->auto_path($args{Class}) or return;
+    my $pattern = File::Spec->catfile($path, '*.[pm]o');
+    my $decode = $args{Decode} || 0;
+    my $encoding = $args{Encoding} || undef;
+
+    $decode = 1 if $encoding;
+
+    $pattern =~ s{\\}{/}g; # to counter win32 paths
+
+    eval "
+	package $pkg;
+	use base 'Locale::Maketext';
+	Locale::Maketext::Lexicon->import({
+	    'i-default' => [ 'Auto' ],
+	    '*'	=> [ Gettext => \$pattern ],
+	    _decode => \$decode,
+	    _encoding => \$encoding,
+	});
+	*${pkg}::Lexicon = \\%${pkg}::i_default::Lexicon;
+	*tense = sub { \$_[1] . ((\$_[2] eq 'present') ? 'ing' : 'ed') }
+	    unless defined &tense;
+
+	1;
+    " or die $@;
+
+    my $lh = eval { $pkg->get_handle } or return;
+    my $style = lc($args{Style});
+    if ($style eq 'maketext') {
+	$Loc{$pkg} = sub {
+	    $lh->maketext(@_)
+	};
+    }
+    elsif ($style eq 'gettext') {
+	$Loc{$pkg} = sub {
+	    my $str = shift;
+            $str =~ s{([\~\[\]])}{~$1}g;
+            $str =~ s{
+                ([%\\]%)                        # 1 - escaped sequence
+            |
+                %   (?:
+                        ([A-Za-z#*]\w*)         # 2 - function call
+                            \(([^\)]*)\)        # 3 - arguments
+                    |
+                        ([1-9]\d*|\*)           # 4 - variable
+                    )
+            }{
+                $1 ? $1
+                   : $2 ? "\[$2,"._unescape($3)."]"
+                        : "[_$4]"
+            }egx;
+	    return $lh->maketext($str, @_);
+	};
+    }
+    else {
+	die "Unknown Style: $style";
+    }
+
+    return $Loc{$pkg}, sub {
+	$lh = $pkg->get_handle(@_);
+    };
+}
+
+sub default_loc {
+    my ($self, %args) = @_;
+    my $style = lc($args{Style});
+    if ($style eq 'maketext') {
+	return sub {
+	    my $str = shift;
+            $str =~ s{((?<!~)(?:~~)*)\[_([1-9]\d*|\*)\]}
+                     {$1%$2}g;
+            $str =~ s{((?<!~)(?:~~)*)\[([A-Za-z#*]\w*),([^\]]+)\]}
+                     {"$1%$2(" . _escape($3) . ')'}eg;
+	    _default_gettext($str, @_);
+	};
+    }
+    elsif ($style eq 'gettext') {
+	return \&_default_gettext;
+    }
+    else {
+	die "Unknown Style: $style";
+    }
+}
+
+sub _default_gettext {
+    my $str = shift;
+    $str =~ s{
+	%			# leading symbol
+	(?:			# either one of
+	    \d+			#   a digit, like %1
+	    |			#     or
+	    (\w+)\(		#   a function call -- 1
+		(?:		#     either
+		    %\d+	#	an interpolation
+		    |		#     or
+		    ([^,]*)	#	some string -- 2
+		)		#     end either
+		(?:		#     maybe followed
+		    ,		#       by a comma
+		    ([^),]*)	#       and a param -- 3
+		)?		#     end maybe
+		(?:		#     maybe followed
+		    ,		#       by another comma
+		    ([^),]*)	#       and a param -- 4
+		)?		#     end maybe
+		[^)]*		#     and other ignorable params
+	    \)			#   closing function call
+	)			# closing either one of
+    }{
+	my $digit = $2 || shift;
+	$digit . (
+	    $1 ? (
+		($1 eq 'tense') ? (($3 eq 'present') ? 'ing' : 'ed') :
+		($1 eq 'quant') ? ' ' . (($digit > 1) ? ($4 || "$3s") : $3) :
+		''
+	    ) : ''
+	);
+    }egx;
+    return $str;
+};
+
+sub _escape {
+    my $text = shift;
+    $text =~ s/\b_([1-9]\d*)/%$1/g;
+    return $text;
+}
+
+sub _unescape {
+    join(',', map {
+        /\A(\s*)%([1-9]\d*|\*)(\s*)\z/ ? "$1_$2$3" : $_
+    } split(/,/, $_[0]));
+}
+
+sub auto_path {
+    my ($self, $calldir) = @_;
+    $calldir =~ s#::#/#g;
+    my $path = $INC{$calldir . '.pm'} or return;
+
+    # Try absolute path name.
+    if ($^O eq 'MacOS') {
+	(my $malldir = $calldir) =~ tr#/#:#;
+	$path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:#s;
+    } else {
+	$path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/#;
+    }
+
+    return $path if -d $path;
+
+    # If that failed, try relative path with normal @INC searching.
+    $path = "auto/$calldir/";
+    foreach my $inc (@INC) {
+	return "$inc/$path" if -d "$inc/$path";
+    }
+
+    return;
+}
+
+1;
+
+package Locale::Maketext::GutsLoader;
+
+use Locale::Maketext;
+
+our $VERSION = '1.20';
+
+sub zorp { return scalar @_ }
+
+
+1;
+package Locale::Maketext::Guts;
+
+use Locale::Maketext;
+
+our $VERSION = '1.20';
+
+
+1;
+package version::regex;
+
+use strict;
+
+our $VERSION = 0.9923;
+
+#--------------------------------------------------------------------------#
+# Version regexp components
+#--------------------------------------------------------------------------#
+
+# Fraction part of a decimal version number.  This is a common part of
+# both strict and lax decimal versions
+
+my $FRACTION_PART = qr/\.[0-9]+/;
+
+# First part of either decimal or dotted-decimal strict version number.
+# Unsigned integer with no leading zeroes (except for zero itself) to
+# avoid confusion with octal.
+
+my $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/;
+
+# First part of either decimal or dotted-decimal lax version number.
+# Unsigned integer, but allowing leading zeros.  Always interpreted
+# as decimal.  However, some forms of the resulting syntax give odd
+# results if used as ordinary Perl expressions, due to how perl treats
+# octals.  E.g.
+#   version->new("010" ) == 10
+#   version->new( 010  ) == 8
+#   version->new( 010.2) == 82  # "8" . "2"
+
+my $LAX_INTEGER_PART = qr/[0-9]+/;
+
+# Second and subsequent part of a strict dotted-decimal version number.
+# Leading zeroes are permitted, and the number is always decimal.
+# Limited to three digits to avoid overflow when converting to decimal
+# form and also avoid problematic style with excessive leading zeroes.
+
+my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/;
+
+# Second and subsequent part of a lax dotted-decimal version number.
+# Leading zeroes are permitted, and the number is always decimal.  No
+# limit on the numerical value or number of digits, so there is the
+# possibility of overflow when converting to decimal form.
+
+my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/;
+
+# Alpha suffix part of lax version number syntax.  Acts like a
+# dotted-decimal part.
+
+my $LAX_ALPHA_PART = qr/_[0-9]+/;
+
+#--------------------------------------------------------------------------#
+# Strict version regexp definitions
+#--------------------------------------------------------------------------#
+
+# Strict decimal version number.
+
+our $STRICT_DECIMAL_VERSION =
+    qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x;
+
+# Strict dotted-decimal version number.  Must have both leading "v" and
+# at least three parts, to avoid confusion with decimal syntax.
+
+our $STRICT_DOTTED_DECIMAL_VERSION =
+    qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x;
+
+# Complete strict version number syntax -- should generally be used
+# anchored: qr/ \A $STRICT \z /x
+
+our $STRICT =
+    qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x;
+
+#--------------------------------------------------------------------------#
+# Lax version regexp definitions
+#--------------------------------------------------------------------------#
+
+# Lax decimal version number.  Just like the strict one except for
+# allowing an alpha suffix or allowing a leading or trailing
+# decimal-point
+
+our $LAX_DECIMAL_VERSION =
+    qr/ $LAX_INTEGER_PART (?: $FRACTION_PART | \. )? $LAX_ALPHA_PART?
+	|
+	$FRACTION_PART $LAX_ALPHA_PART?
+    /x;
+
+# Lax dotted-decimal version number.  Distinguished by having either
+# leading "v" or at least three non-alpha parts.  Alpha part is only
+# permitted if there are at least two non-alpha parts. Strangely
+# enough, without the leading "v", Perl takes .1.2 to mean v0.1.2,
+# so when there is no "v", the leading part is optional
+
+our $LAX_DOTTED_DECIMAL_VERSION =
+    qr/
+	v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )?
+	|
+	$LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART?
+    /x;
+
+# Complete lax version number syntax -- should generally be used
+# anchored: qr/ \A $LAX \z /x
+#
+# The string 'undef' is a special case to make for easier handling
+# of return values from ExtUtils::MM->parse_version
+
+our $LAX =
+    qr/ undef | $LAX_DOTTED_DECIMAL_VERSION | $LAX_DECIMAL_VERSION /x;
+
+#--------------------------------------------------------------------------#
+
+# Preloaded methods go here.
+sub is_strict	{ defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
+sub is_lax	{ defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
+
+1;
+#
+# Trigonometric functions, mostly inherited from Math::Complex.
+# -- Jarkko Hietaniemi, since April 1997
+# -- Raphael Manfredi, September 1996 (indirectly: because of Math::Complex)
+#
+
+package Math::Trig;
+
+{ use 5.006; }
+use strict;
+
+use Math::Complex 1.59;
+use Math::Complex qw(:trig :pi);
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our $VERSION = 1.23;
+
+my @angcnv = qw(rad2deg rad2grad
+		deg2rad deg2grad
+		grad2rad grad2deg);
+
+my @areal = qw(asin_real acos_real);
+
+our @EXPORT = (@{$Math::Complex::EXPORT_TAGS{'trig'}},
+	   @angcnv, @areal);
+
+my @rdlcnv = qw(cartesian_to_cylindrical
+		cartesian_to_spherical
+		cylindrical_to_cartesian
+		cylindrical_to_spherical
+		spherical_to_cartesian
+		spherical_to_cylindrical);
+
+my @greatcircle = qw(
+		     great_circle_distance
+		     great_circle_direction
+		     great_circle_bearing
+		     great_circle_waypoint
+		     great_circle_midpoint
+		     great_circle_destination
+		    );
+
+my @pi = qw(pi pi2 pi4 pip2 pip4);
+
+our @EXPORT_OK = (@rdlcnv, @greatcircle, @pi, 'Inf');
+
+# See e.g. the following pages:
+# http://www.movable-type.co.uk/scripts/LatLong.html
+# http://williams.best.vwh.net/avform.htm
+
+our %EXPORT_TAGS = ('radial' => [ @rdlcnv ],
+	        'great_circle' => [ @greatcircle ],
+	        'pi'     => [ @pi ]);
+
+sub _DR  () { pi2/360 }
+sub _RD  () { 360/pi2 }
+sub _DG  () { 400/360 }
+sub _GD  () { 360/400 }
+sub _RG  () { 400/pi2 }
+sub _GR  () { pi2/400 }
+
+#
+# Truncating remainder.
+#
+
+sub _remt ($$) {
+    # Oh yes, POSIX::fmod() would be faster. Possibly. If it is available.
+    $_[0] - $_[1] * int($_[0] / $_[1]);
+}
+
+#
+# Angle conversions.
+#
+
+sub rad2rad($)     { _remt($_[0], pi2) }
+
+sub deg2deg($)     { _remt($_[0], 360) }
+
+sub grad2grad($)   { _remt($_[0], 400) }
+
+sub rad2deg ($;$)  { my $d = _RD * $_[0]; $_[1] ? $d : deg2deg($d) }
+
+sub deg2rad ($;$)  { my $d = _DR * $_[0]; $_[1] ? $d : rad2rad($d) }
+
+sub grad2deg ($;$) { my $d = _GD * $_[0]; $_[1] ? $d : deg2deg($d) }
+
+sub deg2grad ($;$) { my $d = _DG * $_[0]; $_[1] ? $d : grad2grad($d) }
+
+sub rad2grad ($;$) { my $d = _RG * $_[0]; $_[1] ? $d : grad2grad($d) }
+
+sub grad2rad ($;$) { my $d = _GR * $_[0]; $_[1] ? $d : rad2rad($d) }
+
+#
+# acos and asin functions which always return a real number
+#
+
+sub acos_real {
+    return 0  if $_[0] >=  1;
+    return pi if $_[0] <= -1;
+    return acos($_[0]);
+}
+
+sub asin_real {
+    return  &pip2 if $_[0] >=  1;
+    return -&pip2 if $_[0] <= -1;
+    return asin($_[0]);
+}
+
+sub cartesian_to_spherical {
+    my ( $x, $y, $z ) = @_;
+
+    my $rho = sqrt( $x * $x + $y * $y + $z * $z );
+
+    return ( $rho,
+             atan2( $y, $x ),
+             $rho ? acos_real( $z / $rho ) : 0 );
+}
+
+sub spherical_to_cartesian {
+    my ( $rho, $theta, $phi ) = @_;
+
+    return ( $rho * cos( $theta ) * sin( $phi ),
+             $rho * sin( $theta ) * sin( $phi ),
+             $rho * cos( $phi   ) );
+}
+
+sub spherical_to_cylindrical {
+    my ( $x, $y, $z ) = spherical_to_cartesian( @_ );
+
+    return ( sqrt( $x * $x + $y * $y ), $_[1], $z );
+}
+
+sub cartesian_to_cylindrical {
+    my ( $x, $y, $z ) = @_;
+
+    return ( sqrt( $x * $x + $y * $y ), atan2( $y, $x ), $z );
+}
+
+sub cylindrical_to_cartesian {
+    my ( $rho, $theta, $z ) = @_;
+
+    return ( $rho * cos( $theta ), $rho * sin( $theta ), $z );
+}
+
+sub cylindrical_to_spherical {
+    return ( cartesian_to_spherical( cylindrical_to_cartesian( @_ ) ) );
+}
+
+sub great_circle_distance {
+    my ( $theta0, $phi0, $theta1, $phi1, $rho ) = @_;
+
+    $rho = 1 unless defined $rho; # Default to the unit sphere.
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    return $rho *
+	acos_real( cos( $lat0 ) * cos( $lat1 ) * cos( $theta0 - $theta1 ) +
+		   sin( $lat0 ) * sin( $lat1 ) );
+}
+
+sub great_circle_direction {
+    my ( $theta0, $phi0, $theta1, $phi1 ) = @_;
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    return rad2rad(pi2 -
+	atan2(sin($theta0-$theta1) * cos($lat1),
+		cos($lat0) * sin($lat1) -
+		    sin($lat0) * cos($lat1) * cos($theta0-$theta1)));
+}
+
+*great_circle_bearing         = \&great_circle_direction;
+
+sub great_circle_waypoint {
+    my ( $theta0, $phi0, $theta1, $phi1, $point ) = @_;
+
+    $point = 0.5 unless defined $point;
+
+    my $d = great_circle_distance( $theta0, $phi0, $theta1, $phi1 );
+
+    return undef if $d == pi;
+
+    my $sd = sin($d);
+
+    return ($theta0, $phi0) if $sd == 0;
+
+    my $A = sin((1 - $point) * $d) / $sd;
+    my $B = sin(     $point  * $d) / $sd;
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    my $x = $A * cos($lat0) * cos($theta0) + $B * cos($lat1) * cos($theta1);
+    my $y = $A * cos($lat0) * sin($theta0) + $B * cos($lat1) * sin($theta1);
+    my $z = $A * sin($lat0)                + $B * sin($lat1);
+
+    my $theta = atan2($y, $x);
+    my $phi   = acos_real($z);
+
+    return ($theta, $phi);
+}
+
+sub great_circle_midpoint {
+    great_circle_waypoint(@_[0..3], 0.5);
+}
+
+sub great_circle_destination {
+    my ( $theta0, $phi0, $dir0, $dst ) = @_;
+
+    my $lat0 = pip2 - $phi0;
+
+    my $phi1   = asin_real(sin($lat0)*cos($dst) +
+			   cos($lat0)*sin($dst)*cos($dir0));
+
+    my $theta1 = $theta0 + atan2(sin($dir0)*sin($dst)*cos($lat0),
+				 cos($dst)-sin($lat0)*sin($phi1));
+
+    my $dir1 = great_circle_bearing($theta1, $phi1, $theta0, $phi0) + pi;
+
+    $dir1 -= pi2 if $dir1 > pi2;
+
+    return ($theta1, $phi1, $dir1);
+}
+
+1;
+
+__END__
+
+# eof
+package Math::BigInt;
+
+#
+# "Mike had an infinite amount to do and a negative amount of time in which
+# to do it." - Before and After
+#
+
+# The following hash values are used:
+#   value: unsigned int with actual value (as a Math::BigInt::Calc or similar)
+#   sign : +, -, NaN, +inf, -inf
+#   _a   : accuracy
+#   _p   : precision
+
+# Remember not to take shortcuts ala $xs = $x->{value}; $CALC->foo($xs); since
+# underlying lib might change the reference!
+
+use 5.006001;
+use strict;
+use warnings;
+
+use Carp ();
+
+our $VERSION = '1.999811';
+
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(objectify bgcd blcm);
+
+my $class = "Math::BigInt";
+
+# Inside overload, the first arg is always an object. If the original code had
+# it reversed (like $x = 2 * $y), then the third parameter is true.
+# In some cases (like add, $x = $x + 2 is the same as $x = 2 + $x) this makes
+# no difference, but in some cases it does.
+
+# For overloaded ops with only one argument we simple use $_[0]->copy() to
+# preserve the argument.
+
+# Thus inheritance of overload operators becomes possible and transparent for
+# our subclasses without the need to repeat the entire overload section there.
+
+use overload
+
+  # overload key: with_assign
+
+  '+'     =>      sub { $_[0] -> copy() -> badd($_[1]); },
+
+  '-'     =>      sub { my $c = $_[0] -> copy;
+                        $_[2] ? $c -> bneg() -> badd($_[1])
+                              : $c -> bsub($_[1]); },
+
+  '*'     =>      sub { $_[0] -> copy() -> bmul($_[1]); },
+
+  '/'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bdiv($_[0])
+                              : $_[0] -> copy -> bdiv($_[1]); },
+
+  '%'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bmod($_[0])
+                              : $_[0] -> copy -> bmod($_[1]); },
+
+  '**'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bpow($_[0])
+                              : $_[0] -> copy -> bpow($_[1]); },
+
+  '<<'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blsft($_[0])
+                              : $_[0] -> copy -> blsft($_[1]); },
+
+  '>>'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> brsft($_[0])
+                              : $_[0] -> copy -> brsft($_[1]); },
+
+  # overload key: assign
+
+  '+='    =>      sub { $_[0]->badd($_[1]); },
+
+  '-='    =>      sub { $_[0]->bsub($_[1]); },
+
+  '*='    =>      sub { $_[0]->bmul($_[1]); },
+
+  '/='    =>      sub { scalar $_[0]->bdiv($_[1]); },
+
+  '%='    =>      sub { $_[0]->bmod($_[1]); },
+
+  '**='   =>      sub { $_[0]->bpow($_[1]); },
+
+
+  '<<='   =>      sub { $_[0]->blsft($_[1]); },
+
+  '>>='   =>      sub { $_[0]->brsft($_[1]); },
+
+#  'x='    =>      sub { },
+
+#  '.='    =>      sub { },
+
+  # overload key: num_comparison
+
+  '<'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blt($_[0])
+                              : $_[0] -> blt($_[1]); },
+
+  '<='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> ble($_[0])
+                              : $_[0] -> ble($_[1]); },
+
+  '>'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bgt($_[0])
+                              : $_[0] -> bgt($_[1]); },
+
+  '>='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bge($_[0])
+                              : $_[0] -> bge($_[1]); },
+
+  '=='    =>      sub { $_[0] -> beq($_[1]); },
+
+  '!='    =>      sub { $_[0] -> bne($_[1]); },
+
+  # overload key: 3way_comparison
+
+  '<=>'   =>      sub { my $cmp = $_[0] -> bcmp($_[1]);
+                        defined($cmp) && $_[2] ? -$cmp : $cmp; },
+
+  'cmp'   =>      sub { $_[2] ? "$_[1]" cmp $_[0] -> bstr()
+                              : $_[0] -> bstr() cmp "$_[1]"; },
+
+  # overload key: str_comparison
+
+#  'lt'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrlt($_[0])
+#                              : $_[0] -> bstrlt($_[1]); },
+#
+#  'le'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrle($_[0])
+#                              : $_[0] -> bstrle($_[1]); },
+#
+#  'gt'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrgt($_[0])
+#                              : $_[0] -> bstrgt($_[1]); },
+#
+#  'ge'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrge($_[0])
+#                              : $_[0] -> bstrge($_[1]); },
+#
+#  'eq'    =>      sub { $_[0] -> bstreq($_[1]); },
+#
+#  'ne'    =>      sub { $_[0] -> bstrne($_[1]); },
+
+  # overload key: binary
+
+  '&'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> band($_[0])
+                              : $_[0] -> copy -> band($_[1]); },
+
+  '&='    =>      sub { $_[0] -> band($_[1]); },
+
+  '|'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bior($_[0])
+                              : $_[0] -> copy -> bior($_[1]); },
+
+  '|='    =>      sub { $_[0] -> bior($_[1]); },
+
+  '^'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bxor($_[0])
+                              : $_[0] -> copy -> bxor($_[1]); },
+
+  '^='    =>      sub { $_[0] -> bxor($_[1]); },
+
+#  '&.'    =>      sub { },
+
+#  '&.='   =>      sub { },
+
+#  '|.'    =>      sub { },
+
+#  '|.='   =>      sub { },
+
+#  '^.'    =>      sub { },
+
+#  '^.='   =>      sub { },
+
+  # overload key: unary
+
+  'neg'   =>      sub { $_[0] -> copy() -> bneg(); },
+
+#  '!'     =>      sub { },
+
+  '~'     =>      sub { $_[0] -> copy() -> bnot(); },
+
+#  '~.'    =>      sub { },
+
+  # overload key: mutators
+
+  '++'    =>      sub { $_[0] -> binc() },
+
+  '--'    =>      sub { $_[0] -> bdec() },
+
+  # overload key: func
+
+  'atan2' =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> batan2($_[0])
+                              : $_[0] -> copy() -> batan2($_[1]); },
+
+  'cos'   =>      sub { $_[0] -> copy -> bcos(); },
+
+  'sin'   =>      sub { $_[0] -> copy -> bsin(); },
+
+  'exp'   =>      sub { $_[0] -> copy() -> bexp($_[1]); },
+
+  'abs'   =>      sub { $_[0] -> copy() -> babs(); },
+
+  'log'   =>      sub { $_[0] -> copy() -> blog(); },
+
+  'sqrt'  =>      sub { $_[0] -> copy() -> bsqrt(); },
+
+  'int'   =>      sub { $_[0] -> copy() -> bint(); },
+
+  # overload key: conversion
+
+  'bool'  =>      sub { $_[0] -> is_zero() ? '' : 1; },
+
+  '""'    =>      sub { $_[0] -> bstr(); },
+
+  '0+'    =>      sub { $_[0] -> numify(); },
+
+  '='     =>      sub { $_[0]->copy(); },
+
+  ;
+
+##############################################################################
+# global constants, flags and accessory
+
+# These vars are public, but their direct usage is not recommended, use the
+# accessor methods instead
+
+our $round_mode = 'even'; # one of 'even', 'odd', '+inf', '-inf', 'zero', 'trunc' or 'common'
+our $accuracy   = undef;
+our $precision  = undef;
+our $div_scale  = 40;
+our $upgrade    = undef;                    # default is no upgrade
+our $downgrade  = undef;                    # default is no downgrade
+
+# These are internally, and not to be used from the outside at all
+
+our $_trap_nan = 0;                         # are NaNs ok? set w/ config()
+our $_trap_inf = 0;                         # are infs ok? set w/ config()
+
+my $nan = 'NaN';                        # constants for easier life
+
+my $CALC = 'Math::BigInt::Calc';        # module to do the low level math
+                                        # default is Calc.pm
+my $IMPORT = 0;                         # was import() called yet?
+                                        # used to make require work
+my %WARN;                               # warn only once for low-level libs
+my %CAN;                                # cache for $CALC->can(...)
+my %CALLBACKS;                          # callbacks to notify on lib loads
+my $EMU_LIB = 'Math/BigInt/CalcEmu.pm'; # emulate low-level math
+
+##############################################################################
+# the old code had $rnd_mode, so we need to support it, too
+
+our $rnd_mode   = 'even';
+
+sub TIESCALAR {
+    my ($class) = @_;
+    bless \$round_mode, $class;
+}
+
+sub FETCH {
+    return $round_mode;
+}
+
+sub STORE {
+    $rnd_mode = $_[0]->round_mode($_[1]);
+}
+
+BEGIN {
+    # tie to enable $rnd_mode to work transparently
+    tie $rnd_mode, 'Math::BigInt';
+
+    # set up some handy alias names
+    *as_int = \&as_number;
+    *is_pos = \&is_positive;
+    *is_neg = \&is_negative;
+}
+
+###############################################################################
+# Configuration methods
+###############################################################################
+
+sub round_mode {
+    no strict 'refs';
+    # make Class->round_mode() work
+    my $self = shift;
+    my $class = ref($self) || $self || __PACKAGE__;
+    if (defined $_[0]) {
+        my $m = shift;
+        if ($m !~ /^(even|odd|\+inf|\-inf|zero|trunc|common)$/) {
+            Carp::croak("Unknown round mode '$m'");
+        }
+        return ${"${class}::round_mode"} = $m;
+    }
+    ${"${class}::round_mode"};
+}
+
+sub upgrade {
+    no strict 'refs';
+    # make Class->upgrade() work
+    my $self = shift;
+    my $class = ref($self) || $self || __PACKAGE__;
+    # need to set new value?
+    if (@_ > 0) {
+        return ${"${class}::upgrade"} = $_[0];
+    }
+    ${"${class}::upgrade"};
+}
+
+sub downgrade {
+    no strict 'refs';
+    # make Class->downgrade() work
+    my $self = shift;
+    my $class = ref($self) || $self || __PACKAGE__;
+    # need to set new value?
+    if (@_ > 0) {
+        return ${"${class}::downgrade"} = $_[0];
+    }
+    ${"${class}::downgrade"};
+}
+
+sub div_scale {
+    no strict 'refs';
+    # make Class->div_scale() work
+    my $self = shift;
+    my $class = ref($self) || $self || __PACKAGE__;
+    if (defined $_[0]) {
+        if ($_[0] < 0) {
+            Carp::croak('div_scale must be greater than zero');
+        }
+        ${"${class}::div_scale"} = $_[0];
+    }
+    ${"${class}::div_scale"};
+}
+
+sub accuracy {
+    # $x->accuracy($a);           ref($x) $a
+    # $x->accuracy();             ref($x)
+    # Class->accuracy();          class
+    # Class->accuracy($a);        class $a
+
+    my $x = shift;
+    my $class = ref($x) || $x || __PACKAGE__;
+
+    no strict 'refs';
+    # need to set new value?
+    if (@_ > 0) {
+        my $a = shift;
+        # convert objects to scalars to avoid deep recursion. If object doesn't
+        # have numify(), then hopefully it will have overloading for int() and
+        # boolean test without wandering into a deep recursion path...
+        $a = $a->numify() if ref($a) && $a->can('numify');
+
+        if (defined $a) {
+            # also croak on non-numerical
+            if (!$a || $a <= 0) {
+                Carp::croak('Argument to accuracy must be greater than zero');
+            }
+            if (int($a) != $a) {
+                Carp::croak('Argument to accuracy must be an integer');
+            }
+        }
+        if (ref($x)) {
+            # $object->accuracy() or fallback to global
+            $x->bround($a) if $a; # not for undef, 0
+            $x->{_a} = $a;        # set/overwrite, even if not rounded
+            delete $x->{_p};      # clear P
+            $a = ${"${class}::accuracy"} unless defined $a; # proper return value
+        } else {
+            ${"${class}::accuracy"} = $a; # set global A
+            ${"${class}::precision"} = undef; # clear global P
+        }
+        return $a;              # shortcut
+    }
+
+    my $a;
+    # $object->accuracy() or fallback to global
+    $a = $x->{_a} if ref($x);
+    # but don't return global undef, when $x's accuracy is 0!
+    $a = ${"${class}::accuracy"} if !defined $a;
+    $a;
+}
+
+sub precision {
+    # $x->precision($p);          ref($x) $p
+    # $x->precision();            ref($x)
+    # Class->precision();         class
+    # Class->precision($p);       class $p
+
+    my $x = shift;
+    my $class = ref($x) || $x || __PACKAGE__;
+
+    no strict 'refs';
+    if (@_ > 0) {
+        my $p = shift;
+        # convert objects to scalars to avoid deep recursion. If object doesn't
+        # have numify(), then hopefully it will have overloading for int() and
+        # boolean test without wandering into a deep recursion path...
+        $p = $p->numify() if ref($p) && $p->can('numify');
+        if ((defined $p) && (int($p) != $p)) {
+            Carp::croak('Argument to precision must be an integer');
+        }
+        if (ref($x)) {
+            # $object->precision() or fallback to global
+            $x->bfround($p) if $p; # not for undef, 0
+            $x->{_p} = $p;         # set/overwrite, even if not rounded
+            delete $x->{_a};       # clear A
+            $p = ${"${class}::precision"} unless defined $p; # proper return value
+        } else {
+            ${"${class}::precision"} = $p; # set global P
+            ${"${class}::accuracy"} = undef; # clear global A
+        }
+        return $p;              # shortcut
+    }
+
+    my $p;
+    # $object->precision() or fallback to global
+    $p = $x->{_p} if ref($x);
+    # but don't return global undef, when $x's precision is 0!
+    $p = ${"${class}::precision"} if !defined $p;
+    $p;
+}
+
+sub config {
+    # return (or set) configuration data as hash ref
+    my $class = shift || __PACKAGE__;
+
+    no strict 'refs';
+    if (@_ > 1 || (@_ == 1 && (ref($_[0]) eq 'HASH'))) {
+        # try to set given options as arguments from hash
+
+        my $args = $_[0];
+        if (ref($args) ne 'HASH') {
+            $args = { @_ };
+        }
+        # these values can be "set"
+        my $set_args = {};
+        foreach my $key (qw/
+                               accuracy precision
+                               round_mode div_scale
+                               upgrade downgrade
+                               trap_inf trap_nan
+                           /)
+        {
+            $set_args->{$key} = $args->{$key} if exists $args->{$key};
+            delete $args->{$key};
+        }
+        if (keys %$args > 0) {
+            Carp::croak("Illegal key(s) '", join("', '", keys %$args),
+                        "' passed to $class\->config()");
+        }
+        foreach my $key (keys %$set_args) {
+            if ($key =~ /^trap_(inf|nan)\z/) {
+                ${"${class}::_trap_$1"} = ($set_args->{"trap_$1"} ? 1 : 0);
+                next;
+            }
+            # use a call instead of just setting the $variable to check argument
+            $class->$key($set_args->{$key});
+        }
+    }
+
+    # now return actual configuration
+
+    my $cfg = {
+               lib         => $CALC,
+               lib_version => ${"${CALC}::VERSION"},
+               class       => $class,
+               trap_nan    => ${"${class}::_trap_nan"},
+               trap_inf    => ${"${class}::_trap_inf"},
+               version     => ${"${class}::VERSION"},
+              };
+    foreach my $key (qw/
+                           accuracy precision
+                           round_mode div_scale
+                           upgrade downgrade
+                       /)
+    {
+        $cfg->{$key} = ${"${class}::$key"};
+    }
+    if (@_ == 1 && (ref($_[0]) ne 'HASH')) {
+        # calls of the style config('lib') return just this value
+        return $cfg->{$_[0]};
+    }
+    $cfg;
+}
+
+sub _scale_a {
+    # select accuracy parameter based on precedence,
+    # used by bround() and bfround(), may return undef for scale (means no op)
+    my ($x, $scale, $mode) = @_;
+
+    $scale = $x->{_a} unless defined $scale;
+
+    no strict 'refs';
+    my $class = ref($x);
+
+    $scale = ${ $class . '::accuracy' } unless defined $scale;
+    $mode = ${ $class . '::round_mode' } unless defined $mode;
+
+    if (defined $scale) {
+        $scale = $scale->can('numify') ? $scale->numify()
+                                       : "$scale" if ref($scale);
+        $scale = int($scale);
+    }
+
+    ($scale, $mode);
+}
+
+sub _scale_p {
+    # select precision parameter based on precedence,
+    # used by bround() and bfround(), may return undef for scale (means no op)
+    my ($x, $scale, $mode) = @_;
+
+    $scale = $x->{_p} unless defined $scale;
+
+    no strict 'refs';
+    my $class = ref($x);
+
+    $scale = ${ $class . '::precision' } unless defined $scale;
+    $mode = ${ $class . '::round_mode' } unless defined $mode;
+
+    if (defined $scale) {
+        $scale = $scale->can('numify') ? $scale->numify()
+                                       : "$scale" if ref($scale);
+        $scale = int($scale);
+    }
+
+    ($scale, $mode);
+}
+
+###############################################################################
+# Constructor methods
+###############################################################################
+
+sub new {
+    # Create a new Math::BigInt object from a string or another Math::BigInt
+    # object. See hash keys documented at top.
+
+    # The argument could be an object, so avoid ||, && etc. on it. This would
+    # cause costly overloaded code to be called. The only allowed ops are ref()
+    # and defined.
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # The POD says:
+    #
+    # "Currently, Math::BigInt->new() defaults to 0, while Math::BigInt->new('')
+    # results in 'NaN'. This might change in the future, so use always the
+    # following explicit forms to get a zero or NaN:
+    #     $zero = Math::BigInt->bzero();
+    #     $nan = Math::BigInt->bnan();
+    #
+    # But although this use has been discouraged for more than 10 years, people
+    # apparently still use it, so we still support it.
+
+    return $self->bzero() unless @_;
+
+    my ($wanted, $a, $p, $r) = @_;
+
+    # Always return a new object, so it called as an instance method, copy the
+    # invocand, and if called as a class method, initialize a new object.
+
+    $self = $selfref ? $self -> copy()
+                     : bless {}, $class;
+
+    unless (defined $wanted) {
+        #Carp::carp("Use of uninitialized value in new()");
+        return $self->bzero($a, $p, $r);
+    }
+
+    if (ref($wanted) && $wanted->isa($class)) {         # MBI or subclass
+        # Using "$copy = $wanted -> copy()" here fails some tests. Fixme!
+        my $copy = $class -> copy($wanted);
+        if ($selfref) {
+            %$self = %$copy;
+        } else {
+            $self = $copy;
+        }
+        return $self;
+    }
+
+    $class->import() if $IMPORT == 0;           # make require work
+
+    # Shortcut for non-zero scalar integers with no non-zero exponent.
+
+    if (!ref($wanted) &&
+        $wanted =~ / ^
+                     ([+-]?)            # optional sign
+                     ([1-9][0-9]*)      # non-zero significand
+                     (\.0*)?            # ... with optional zero fraction
+                     ([Ee][+-]?0+)?     # optional zero exponent
+                     \z
+                   /x)
+    {
+        my $sgn = $1;
+        my $abs = $2;
+        $self->{sign} = $sgn || '+';
+        $self->{value} = $CALC->_new($abs);
+
+        no strict 'refs';
+        if (defined($a) || defined($p)
+            || defined(${"${class}::precision"})
+            || defined(${"${class}::accuracy"}))
+        {
+            $self->round($a, $p, $r)
+              unless @_ >= 3 && !defined $a && !defined $p;
+        }
+
+        return $self;
+    }
+
+    # Handle Infs.
+
+    if ($wanted =~ /^\s*([+-]?)inf(inity)?\s*\z/i) {
+        my $sgn = $1 || '+';
+        $self->{sign} = $sgn . 'inf';   # set a default sign for bstr()
+        return $class->binf($sgn);
+    }
+
+    # Handle explicit NaNs (not the ones returned due to invalid input).
+
+    if ($wanted =~ /^\s*([+-]?)nan\s*\z/i) {
+        $self = $class -> bnan();
+        $self->round($a, $p, $r) unless @_ >= 3 && !defined $a && !defined $p;
+        return $self;
+    }
+
+    # Handle hexadecimal numbers.
+
+    if ($wanted =~ /^\s*[+-]?0[Xx]/) {
+        $self = $class -> from_hex($wanted);
+        $self->round($a, $p, $r) unless @_ >= 3 && !defined $a && !defined $p;
+        return $self;
+    }
+
+    # Handle binary numbers.
+
+    if ($wanted =~ /^\s*[+-]?0[Bb]/) {
+        $self = $class -> from_bin($wanted);
+        $self->round($a, $p, $r) unless @_ >= 3 && !defined $a && !defined $p;
+        return $self;
+    }
+
+    # Split string into mantissa, exponent, integer, fraction, value, and sign.
+    my ($mis, $miv, $mfv, $es, $ev) = _split($wanted);
+    if (!ref $mis) {
+        if ($_trap_nan) {
+            Carp::croak("$wanted is not a number in $class");
+        }
+        $self->{value} = $CALC->_zero();
+        $self->{sign} = $nan;
+        return $self;
+    }
+
+    if (!ref $miv) {
+        # _from_hex or _from_bin
+        $self->{value} = $mis->{value};
+        $self->{sign} = $mis->{sign};
+        return $self;   # throw away $mis
+    }
+
+    # Make integer from mantissa by adjusting exponent, then convert to a
+    # Math::BigInt.
+    $self->{sign} = $$mis;           # store sign
+    $self->{value} = $CALC->_zero(); # for all the NaN cases
+    my $e = int("$$es$$ev");         # exponent (avoid recursion)
+    if ($e > 0) {
+        my $diff = $e - CORE::length($$mfv);
+        if ($diff < 0) {         # Not integer
+            if ($_trap_nan) {
+                Carp::croak("$wanted not an integer in $class");
+            }
+            #print "NOI 1\n";
+            return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+            $self->{sign} = $nan;
+        } else {                 # diff >= 0
+            # adjust fraction and add it to value
+            #print "diff > 0 $$miv\n";
+            $$miv = $$miv . ($$mfv . '0' x $diff);
+        }
+    }
+
+    else {
+        if ($$mfv ne '') {       # e <= 0
+            # fraction and negative/zero E => NOI
+            if ($_trap_nan) {
+                Carp::croak("$wanted not an integer in $class");
+            }
+            #print "NOI 2 \$\$mfv '$$mfv'\n";
+            return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+            $self->{sign} = $nan;
+        } elsif ($e < 0) {
+            # xE-y, and empty mfv
+            # Split the mantissa at the decimal point. E.g., if
+            # $$miv = 12345 and $e = -2, then $frac = 45 and $$miv = 123.
+
+            my $frac = substr($$miv, $e); # $frac is fraction part
+            substr($$miv, $e) = "";       # $$miv is now integer part
+
+            if ($frac =~ /[^0]/) {
+                if ($_trap_nan) {
+                    Carp::croak("$wanted not an integer in $class");
+                }
+                #print "NOI 3\n";
+                return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+                $self->{sign} = $nan;
+            }
+        }
+    }
+
+    unless ($self->{sign} eq $nan) {
+        $self->{sign} = '+' if $$miv eq '0';            # normalize -0 => +0
+        $self->{value} = $CALC->_new($$miv) if $self->{sign} =~ /^[+-]$/;
+    }
+
+    # If any of the globals are set, use them to round, and store them inside
+    # $self. Do not round for new($x, undef, undef) since that is used by MBF
+    # to signal no rounding.
+
+    $self->round($a, $p, $r) unless @_ >= 3 && !defined $a && !defined $p;
+    $self;
+}
+
+# Create a Math::BigInt from a hexadecimal string.
+
+sub from_hex {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_hex');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+                     ( [+-]? )
+                     (0?x)?
+                     (
+                         [0-9a-fA-F]*
+                         ( _ [0-9a-fA-F]+ )*
+                     )
+                     \s*
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $3;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_hex('0x' . $chrs);
+
+        # Place the sign.
+
+        $self->{sign} = $sign eq '-' && ! $CALC->_is_zero($self->{value})
+                          ? '-' : '+';
+
+        return $self;
+    }
+
+    # CORE::hex() parses as much as it can, and ignores any trailing garbage.
+    # For backwards compatibility, we return NaN.
+
+    return $self->bnan();
+}
+
+# Create a Math::BigInt from an octal string.
+
+sub from_oct {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_oct');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+                     ( [+-]? )
+                     (
+                         [0-7]*
+                         ( _ [0-7]+ )*
+                     )
+                     \s*
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $2;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_oct('0' . $chrs);
+
+        # Place the sign.
+
+        $self->{sign} = $sign eq '-' && ! $CALC->_is_zero($self->{value})
+                          ? '-' : '+';
+
+        return $self;
+    }
+
+    # CORE::oct() parses as much as it can, and ignores any trailing garbage.
+    # For backwards compatibility, we return NaN.
+
+    return $self->bnan();
+}
+
+# Create a Math::BigInt from a binary string.
+
+sub from_bin {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_bin');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+                     ( [+-]? )
+                     (0?b)?
+                     (
+                         [01]*
+                         ( _ [01]+ )*
+                     )
+                     \s*
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $3;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_bin('0b' . $chrs);
+
+        # Place the sign.
+
+        $self->{sign} = $sign eq '-' && ! $CALC->_is_zero($self->{value})
+                          ? '-' : '+';
+
+        return $self;
+    }
+
+    # For consistency with from_hex() and from_oct(), we return NaN when the
+    # input is invalid.
+
+    return $self->bnan();
+}
+
+# Create a Math::BigInt from a byte string.
+
+sub from_bytes {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_bytes');
+
+    Carp::croak("from_bytes() requires a newer version of the $CALC library.")
+        unless $CALC->can('_from_bytes');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+    $self -> {sign}  = '+';
+    $self -> {value} = $CALC -> _from_bytes($str);
+    return $self;
+}
+
+sub bzero {
+    # create/assign '+0'
+
+    if (@_ == 0) {
+        #Carp::carp("Using bzero() as a function is deprecated;",
+        #           " use bzero() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self->import() if $IMPORT == 0;            # make require work
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('bzero');
+
+    $self = bless {}, $class unless $selfref;
+
+    $self->{sign} = '+';
+    $self->{value} = $CALC->_zero();
+
+    if (@_ > 0) {
+        if (@_ > 3) {
+            # call like: $x->bzero($a, $p, $r, $y, ...);
+            ($self, $self->{_a}, $self->{_p}) = $self->_find_round_parameters(@_);
+        } else {
+            # call like: $x->bzero($a, $p, $r);
+            $self->{_a} = $_[0]
+              if !defined $self->{_a} || (defined $_[0] && $_[0] > $self->{_a});
+            $self->{_p} = $_[1]
+              if !defined $self->{_p} || (defined $_[1] && $_[1] > $self->{_p});
+        }
+    }
+
+    return $self;
+}
+
+sub bone {
+    # Create or assign '+1' (or -1 if given sign '-').
+
+    if (@_ == 0 || (defined($_[0]) && ($_[0] eq '+' || $_[0] eq '-'))) {
+        #Carp::carp("Using bone() as a function is deprecated;",
+        #           " use bone() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self->import() if $IMPORT == 0;            # make require work
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('bone');
+
+    my $sign = shift;
+    $sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
+
+    $self = bless {}, $class unless $selfref;
+
+    $self->{sign}  = $sign;
+    $self->{value} = $CALC->_one();
+
+    if (@_ > 0) {
+        if (@_ > 3) {
+            # call like: $x->bone($sign, $a, $p, $r, $y, ...);
+            ($self, $self->{_a}, $self->{_p}) = $self->_find_round_parameters(@_);
+        } else {
+            # call like: $x->bone($sign, $a, $p, $r);
+            $self->{_a} = $_[0]
+              if !defined $self->{_a} || (defined $_[0] && $_[0] > $self->{_a});
+            $self->{_p} = $_[1]
+              if !defined $self->{_p} || (defined $_[1] && $_[1] > $self->{_p});
+        }
+    }
+
+    return $self;
+}
+
+sub binf {
+    # create/assign a '+inf' or '-inf'
+
+    if (@_ == 0 || (defined($_[0]) && !ref($_[0]) &&
+                    $_[0] =~ /^\s*[+-](inf(inity)?)?\s*$/))
+    {
+        #Carp::carp("Using binf() as a function is deprecated;",
+        #           " use binf() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    {
+        no strict 'refs';
+        if (${"${class}::_trap_inf"}) {
+            Carp::croak("Tried to create +-inf in $class->binf()");
+        }
+    }
+
+    $self->import() if $IMPORT == 0;            # make require work
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('binf');
+
+    my $sign = shift;
+    $sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign}  = $sign . 'inf';
+    $self -> {value} = $CALC -> _zero();
+
+    return $self;
+}
+
+sub bnan {
+    # create/assign a 'NaN'
+
+    if (@_ == 0) {
+        #Carp::carp("Using bnan() as a function is deprecated;",
+        #           " use bnan() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref($self);
+    my $class   = $selfref || $self;
+
+    {
+        no strict 'refs';
+        if (${"${class}::_trap_nan"}) {
+            Carp::croak("Tried to create NaN in $class->bnan()");
+        }
+    }
+
+    $self->import() if $IMPORT == 0;            # make require work
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('bnan');
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign}  = $nan;
+    $self -> {value} = $CALC -> _zero();
+
+    return $self;
+}
+
+sub bpi {
+    # Calculate PI to N digits. Unless upgrading is in effect, returns the
+    # result truncated to an integer, that is, always returns '3'.
+    my ($self, $n) = @_;
+    if (@_ == 1) {
+        # called like Math::BigInt::bpi(10);
+        $n = $self;
+        $self = $class;
+    }
+    $self = ref($self) if ref($self);
+
+    return $upgrade->new($n) if defined $upgrade;
+
+    # hard-wired to "3"
+    $self->new(3);
+}
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign}  = $self->{sign};
+    $copy->{value} = $CALC->_copy($self->{value});
+    $copy->{_a}    = $self->{_a} if exists $self->{_a};
+    $copy->{_p}    = $self->{_p} if exists $self->{_p};
+
+    return $copy;
+}
+
+sub as_number {
+    # An object might be asked to return itself as bigint on certain overloaded
+    # operations. This does exactly this, so that sub classes can simple inherit
+    # it or override with their own integer conversion routine.
+    $_[0]->copy();
+}
+
+###############################################################################
+# Boolean methods
+###############################################################################
+
+sub is_zero {
+    # return true if arg (BINT or num_str) is zero (array '+', '0')
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 0 if $x->{sign} !~ /^\+$/; # -, NaN & +-inf aren't
+    $CALC->_is_zero($x->{value});
+}
+
+sub is_one {
+    # return true if arg (BINT or num_str) is +1, or -1 if sign is given
+    my ($class, $x, $sign) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $sign = '+' if !defined $sign || $sign ne '-';
+
+    return 0 if $x->{sign} ne $sign; # -1 != +1, NaN, +-inf aren't either
+    $CALC->_is_one($x->{value});
+}
+
+sub is_finite {
+    my $x = shift;
+    return $x->{sign} eq '+' || $x->{sign} eq '-';
+}
+
+sub is_inf {
+    # return true if arg (BINT or num_str) is +-inf
+    my ($class, $x, $sign) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    if (defined $sign) {
+        $sign = '[+-]inf' if $sign eq ''; # +- doesn't matter, only that's inf
+        $sign = "[$1]inf" if $sign =~ /^([+-])(inf)?$/; # extract '+' or '-'
+        return $x->{sign} =~ /^$sign$/ ? 1 : 0;
+    }
+    $x->{sign} =~ /^[+-]inf$/ ? 1 : 0; # only +-inf is infinity
+}
+
+sub is_nan {
+    # return true if arg (BINT or num_str) is NaN
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    $x->{sign} eq $nan ? 1 : 0;
+}
+
+sub is_positive {
+    # return true when arg (BINT or num_str) is positive (> 0)
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 1 if $x->{sign} eq '+inf'; # +inf is positive
+
+    # 0+ is neither positive nor negative
+    ($x->{sign} eq '+' && !$x->is_zero()) ? 1 : 0;
+}
+
+sub is_negative {
+    # return true when arg (BINT or num_str) is negative (< 0)
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    $x->{sign} =~ /^-/ ? 1 : 0; # -inf is negative, but NaN is not
+}
+
+sub is_odd {
+    # return true when arg (BINT or num_str) is odd, false for even
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 0 if $x->{sign} !~ /^[+-]$/; # NaN & +-inf aren't
+    $CALC->_is_odd($x->{value});
+}
+
+sub is_even {
+    # return true when arg (BINT or num_str) is even, false for odd
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 0 if $x->{sign} !~ /^[+-]$/; # NaN & +-inf aren't
+    $CALC->_is_even($x->{value});
+}
+
+sub is_int {
+    # return true when arg (BINT or num_str) is an integer
+    # always true for Math::BigInt, but different for Math::BigFloat objects
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    $x->{sign} =~ /^[+-]$/ ? 1 : 0; # inf/-inf/NaN aren't
+}
+
+###############################################################################
+# Comparison methods
+###############################################################################
+
+sub bcmp {
+    # Compares 2 values.  Returns one of undef, <0, =0, >0. (suitable for sort)
+    # (BINT or num_str, BINT or num_str) return cond_code
+
+    # set up parameters
+    my ($class, $x, $y) = ref($_[0]) && ref($_[0]) eq ref($_[1])
+                        ? (ref($_[0]), @_)
+                        : objectify(2, @_);
+
+    return $upgrade->bcmp($x, $y) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/)) {
+        # handle +-inf and NaN
+        return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        return 0 if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+        return +1 if $x->{sign} eq '+inf';
+        return -1 if $x->{sign} eq '-inf';
+        return -1 if $y->{sign} eq '+inf';
+        return +1;
+    }
+    # check sign for speed first
+    return 1 if $x->{sign} eq '+' && $y->{sign} eq '-'; # does also 0 <=> -y
+    return -1 if $x->{sign} eq '-' && $y->{sign} eq '+'; # does also -x <=> 0
+
+    # have same sign, so compare absolute values.  Don't make tests for zero
+    # here because it's actually slower than testing in Calc (especially w/ Pari
+    # et al)
+
+    # post-normalized compare for internal use (honors signs)
+    if ($x->{sign} eq '+') {
+        # $x and $y both > 0
+        return $CALC->_acmp($x->{value}, $y->{value});
+    }
+
+    # $x && $y both < 0
+    $CALC->_acmp($y->{value}, $x->{value}); # swapped acmp (lib returns 0, 1, -1)
+}
+
+sub bacmp {
+    # Compares 2 values, ignoring their signs.
+    # Returns one of undef, <0, =0, >0. (suitable for sort)
+    # (BINT, BINT) return cond_code
+
+    # set up parameters
+    my ($class, $x, $y) = ref($_[0]) && ref($_[0]) eq ref($_[1])
+                        ? (ref($_[0]), @_)
+                        : objectify(2, @_);
+
+    return $upgrade->bacmp($x, $y) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/)) {
+        # handle +-inf and NaN
+        return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        return 0 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} =~ /^[+-]inf$/;
+        return 1 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} !~ /^[+-]inf$/;
+        return -1;
+    }
+    $CALC->_acmp($x->{value}, $y->{value}); # lib does only 0, 1, -1
+}
+
+sub beq {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'beq() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for beq()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && ! $cmp;
+}
+
+sub bne {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bne() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for bne()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && ! $cmp ? '' : 1;
+}
+
+sub blt {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'blt() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for blt()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp < 0;
+}
+
+sub ble {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'ble() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for ble()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp <= 0;
+}
+
+sub bgt {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bgt() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for bgt()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp > 0;
+}
+
+sub bge {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bge() is an instance method, not a class method'
+        unless $selfref;
+    Carp::croak 'Wrong number of arguments for bge()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp >= 0;
+}
+
+###############################################################################
+# Arithmetic methods
+###############################################################################
+
+sub bneg {
+    # (BINT or num_str) return BINT
+    # negate number or make a negated number from string
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x if $x->modify('bneg');
+
+    # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+    $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $CALC->_is_zero($x->{value}));
+    $x;
+}
+
+sub babs {
+    # (BINT or num_str) return BINT
+    # make number absolute, or return absolute BINT from string
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x if $x->modify('babs');
+    # post-normalized abs for internal use (does nothing for NaN)
+    $x->{sign} =~ s/^-/+/;
+    $x;
+}
+
+sub bsgn {
+    # Signum function.
+
+    my $self = shift;
+
+    return $self if $self->modify('bsgn');
+
+    return $self -> bone("+") if $self -> is_pos();
+    return $self -> bone("-") if $self -> is_neg();
+    return $self;               # zero or NaN
+}
+
+sub bnorm {
+    # (numstr or BINT) return BINT
+    # Normalize number -- no-op here
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+    $x;
+}
+
+sub binc {
+    # increment arg by one
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+    return $x if $x->modify('binc');
+
+    if ($x->{sign} eq '+') {
+        $x->{value} = $CALC->_inc($x->{value});
+        return $x->round($a, $p, $r);
+    } elsif ($x->{sign} eq '-') {
+        $x->{value} = $CALC->_dec($x->{value});
+        $x->{sign} = '+' if $CALC->_is_zero($x->{value}); # -1 +1 => -0 => +0
+        return $x->round($a, $p, $r);
+    }
+    # inf, nan handling etc
+    $x->badd($class->bone(), $a, $p, $r); # badd does round
+}
+
+sub bdec {
+    # decrement arg by one
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+    return $x if $x->modify('bdec');
+
+    if ($x->{sign} eq '-') {
+        # x already < 0
+        $x->{value} = $CALC->_inc($x->{value});
+    } else {
+        return $x->badd($class->bone('-'), @r)
+          unless $x->{sign} eq '+'; # inf or NaN
+        # >= 0
+        if ($CALC->_is_zero($x->{value})) {
+            # == 0
+            $x->{value} = $CALC->_one();
+            $x->{sign} = '-'; # 0 => -1
+        } else {
+            # > 0
+            $x->{value} = $CALC->_dec($x->{value});
+        }
+    }
+    $x->round(@r);
+}
+
+#sub bstrcmp {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrcmp() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrcmp()' unless @_ == 1;
+#
+#    return $self -> bstr() CORE::cmp shift;
+#}
+#
+#sub bstreq {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstreq() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstreq()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && ! $cmp;
+#}
+#
+#sub bstrne {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrne() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrne()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && ! $cmp ? '' : 1;
+#}
+#
+#sub bstrlt {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrlt() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrlt()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && $cmp < 0;
+#}
+#
+#sub bstrle {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrle() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrle()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && $cmp <= 0;
+#}
+#
+#sub bstrgt {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrgt() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrgt()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && $cmp > 0;
+#}
+#
+#sub bstrge {
+#    my $self    = shift;
+#    my $selfref = ref $self;
+#    my $class   = $selfref || $self;
+#
+#    Carp::croak 'bstrge() is an instance method, not a class method'
+#        unless $selfref;
+#    Carp::croak 'Wrong number of arguments for bstrge()' unless @_ == 1;
+#
+#    my $cmp = $self -> bstrcmp(shift);
+#    return defined($cmp) && $cmp >= 0;
+#}
+
+sub badd {
+    # add second arg (BINT or string) to first (BINT) (modifies first)
+    # return result as BINT
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('badd');
+    return $upgrade->badd($upgrade->new($x), $upgrade->new($y), @r) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    $r[3] = $y;                 # no push!
+    # inf and NaN handling
+    if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/) {
+        # NaN first
+        return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        # inf handling
+        if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/)) {
+            # +inf++inf or -inf+-inf => same, rest is NaN
+            return $x if $x->{sign} eq $y->{sign};
+            return $x->bnan();
+        }
+        # +-inf + something => +inf
+        # something +-inf => +-inf
+        $x->{sign} = $y->{sign}, return $x if $y->{sign} =~ /^[+-]inf$/;
+        return $x;
+    }
+
+    my ($sx, $sy) = ($x->{sign}, $y->{sign});  # get signs
+
+    if ($sx eq $sy) {
+        $x->{value} = $CALC->_add($x->{value}, $y->{value}); # same sign, abs add
+    } else {
+        my $a = $CALC->_acmp ($y->{value}, $x->{value}); # absolute compare
+        if ($a > 0) {
+            $x->{value} = $CALC->_sub($y->{value}, $x->{value}, 1); # abs sub w/ swap
+            $x->{sign} = $sy;
+        } elsif ($a == 0) {
+            # speedup, if equal, set result to 0
+            $x->{value} = $CALC->_zero();
+            $x->{sign} = '+';
+        } else                  # a < 0
+        {
+            $x->{value} = $CALC->_sub($x->{value}, $y->{value}); # abs sub
+        }
+    }
+    $x->round(@r);
+}
+
+sub bsub {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # subtract second arg from first, modify first
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('bsub');
+
+    return $upgrade -> new($x) -> bsub($upgrade -> new($y), @r)
+      if defined $upgrade && (!$x -> isa($class) || !$y -> isa($class));
+
+    return $x -> round(@r) if $y -> is_zero();
+
+    # To correctly handle the lone special case $x -> bsub($x), we note the
+    # sign of $x, then flip the sign from $y, and if the sign of $x did change,
+    # too, then we caught the special case:
+
+    my $xsign = $x -> {sign};
+    $y -> {sign} =~ tr/+-/-+/;  # does nothing for NaN
+    if ($xsign ne $x -> {sign}) {
+        # special case of $x -> bsub($x) results in 0
+        return $x -> bzero(@r) if $xsign =~ /^[+-]$/;
+        return $x -> bnan();    # NaN, -inf, +inf
+    }
+    $x -> badd($y, @r);         # badd does not leave internal zeros
+    $y -> {sign} =~ tr/+-/-+/;  # refix $y (does nothing for NaN)
+    $x;                         # already rounded by badd() or no rounding
+}
+
+sub bmul {
+    # multiply the first number by the second number
+    # (BINT or num_str, BINT or num_str) return BINT
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bmul');
+
+    return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/)) {
+        return $x->bnan() if $x->is_zero() || $y->is_zero();
+        # result will always be +-inf:
+        # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+        # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+        return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+        return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+        return $x->binf('-');
+    }
+
+    return $upgrade->bmul($x, $upgrade->new($y), @r)
+      if defined $upgrade && !$y->isa($class);
+
+    $r[3] = $y;                 # no push here
+
+    $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-'; # +1 * +1 or -1 * -1 => +
+
+    $x->{value} = $CALC->_mul($x->{value}, $y->{value}); # do actual math
+    $x->{sign} = '+' if $CALC->_is_zero($x->{value});   # no -0
+
+    $x->round(@r);
+}
+
+sub bmuladd {
+    # multiply two numbers and then add the third to the result
+    # (BINT or num_str, BINT or num_str, BINT or num_str) return BINT
+
+    # set up parameters
+    my ($class, $x, $y, $z, @r) = objectify(3, @_);
+
+    return $x if $x->modify('bmuladd');
+
+    return $x->bnan() if (($x->{sign} eq $nan) ||
+                          ($y->{sign} eq $nan) ||
+                          ($z->{sign} eq $nan));
+
+    # inf handling of x and y
+    if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/)) {
+        return $x->bnan() if $x->is_zero() || $y->is_zero();
+        # result will always be +-inf:
+        # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+        # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+        return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+        return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+        return $x->binf('-');
+    }
+    # inf handling x*y and z
+    if (($z->{sign} =~ /^[+-]inf$/)) {
+        # something +-inf => +-inf
+        $x->{sign} = $z->{sign}, return $x if $z->{sign} =~ /^[+-]inf$/;
+    }
+
+    return $upgrade->bmuladd($x, $upgrade->new($y), $upgrade->new($z), @r)
+      if defined $upgrade && (!$y->isa($class) || !$z->isa($class) || !$x->isa($class));
+
+    # TODO: what if $y and $z have A or P set?
+    $r[3] = $z;                 # no push here
+
+    $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-'; # +1 * +1 or -1 * -1 => +
+
+    $x->{value} = $CALC->_mul($x->{value}, $y->{value}); # do actual math
+    $x->{sign} = '+' if $CALC->_is_zero($x->{value});   # no -0
+
+    my ($sx, $sz) = ( $x->{sign}, $z->{sign} ); # get signs
+
+    if ($sx eq $sz) {
+        $x->{value} = $CALC->_add($x->{value}, $z->{value}); # same sign, abs add
+    } else {
+        my $a = $CALC->_acmp ($z->{value}, $x->{value}); # absolute compare
+        if ($a > 0) {
+            $x->{value} = $CALC->_sub($z->{value}, $x->{value}, 1); # abs sub w/ swap
+            $x->{sign} = $sz;
+        } elsif ($a == 0) {
+            # speedup, if equal, set result to 0
+            $x->{value} = $CALC->_zero();
+            $x->{sign} = '+';
+        } else                  # a < 0
+        {
+            $x->{value} = $CALC->_sub($x->{value}, $z->{value}); # abs sub
+        }
+    }
+    $x->round(@r);
+}
+
+sub bdiv {
+    # This does floored division, where the quotient is floored, i.e., rounded
+    # towards negative infinity. As a consequence, the remainder has the same
+    # sign as the divisor.
+
+    # Set up parameters.
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify() is costly, so avoid it if we can.
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('bdiv');
+
+    my $wantarray = wantarray;          # call only once
+
+    # At least one argument is NaN. Return NaN for both quotient and the
+    # modulo/remainder.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $class -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero.
+    #
+    # Division: Use the common convention that x / 0 is inf with the same sign
+    # as x, except when x = 0, where we return NaN. This is also what earlier
+    # versions did.
+    #
+    # Modulo: In modular arithmetic, the congruence relation z = x (mod y)
+    # means that there is some integer k such that z - x = k y. If y = 0, we
+    # get z - x = 0 or z = x. This is also what earlier versions did, except
+    # that 0 % 0 returned NaN.
+    #
+    #     inf /    0 =  inf                  inf %    0 =  inf
+    #       5 /    0 =  inf                    5 %    0 =    5
+    #       0 /    0 =  NaN                    0 %    0 =    0
+    #      -5 /    0 = -inf                   -5 %    0 =   -5
+    #    -inf /    0 = -inf                 -inf %    0 = -inf
+
+    if ($y -> is_zero()) {
+        my $rem;
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $x -> bnan();
+        } else {
+            $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    # Numerator (dividend) is +/-inf, and denominator is finite and non-zero.
+    # The divide by zero cases are covered above. In all of the cases listed
+    # below we return the same as core Perl.
+    #
+    #     inf / -inf =  NaN                  inf % -inf =  NaN
+    #     inf /   -5 = -inf                  inf %   -5 =  NaN
+    #     inf /    5 =  inf                  inf %    5 =  NaN
+    #     inf /  inf =  NaN                  inf %  inf =  NaN
+    #
+    #    -inf / -inf =  NaN                 -inf % -inf =  NaN
+    #    -inf /   -5 =  inf                 -inf %   -5 =  NaN
+    #    -inf /    5 = -inf                 -inf %    5 =  NaN
+    #    -inf /  inf =  NaN                 -inf %  inf =  NaN
+
+    if ($x -> is_inf()) {
+        my $rem;
+        $rem = $class -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $x -> binf($sign);
+        }
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    # Denominator (divisor) is +/-inf. The cases when the numerator is +/-inf
+    # are covered above. In the modulo cases (in the right column) we return
+    # the same as core Perl, which does floored division, so for consistency we
+    # also do floored division in the division cases (in the left column).
+    #
+    #      -5 /  inf =   -1                   -5 %  inf =  inf
+    #       0 /  inf =    0                    0 %  inf =    0
+    #       5 /  inf =    0                    5 %  inf =    5
+    #
+    #      -5 / -inf =    0                   -5 % -inf =   -5
+    #       0 / -inf =    0                    0 % -inf =    0
+    #       5 / -inf =   -1                    5 % -inf = -inf
+
+    if ($y -> is_inf()) {
+        my $rem;
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            $rem = $x -> copy() if $wantarray;
+            $x -> bzero();
+        } else {
+            $rem = $class -> binf($y -> {sign}) if $wantarray;
+            $x -> bone('-');
+        }
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    # At this point, both the numerator and denominator are finite numbers, and
+    # the denominator (divisor) is non-zero.
+
+    return $upgrade -> bdiv($upgrade -> new($x), $upgrade -> new($y), @r)
+      if defined $upgrade;
+
+    $r[3] = $y;                                   # no push!
+
+    # Inialize remainder.
+
+    my $rem = $class -> bzero();
+
+    # Are both operands the same object, i.e., like $x -> bdiv($x)? If so,
+    # flipping the sign of $y also flips the sign of $x.
+
+    my $xsign = $x -> {sign};
+    my $ysign = $y -> {sign};
+
+    $y -> {sign} =~ tr/+-/-+/;            # Flip the sign of $y, and see ...
+    my $same = $xsign ne $x -> {sign};    # ... if that changed the sign of $x.
+    $y -> {sign} = $ysign;                # Re-insert the original sign.
+
+    if ($same) {
+        $x -> bone();
+    } else {
+        ($x -> {value}, $rem -> {value}) =
+          $CALC -> _div($x -> {value}, $y -> {value});
+
+        if ($CALC -> _is_zero($rem -> {value})) {
+            if ($xsign eq $ysign || $CALC -> _is_zero($x -> {value})) {
+                $x -> {sign} = '+';
+            } else {
+                $x -> {sign} = '-';
+            }
+        } else {
+            if ($xsign eq $ysign) {
+                $x -> {sign} = '+';
+            } else {
+                if ($xsign eq '+') {
+                    $x -> badd(1);
+                } else {
+                    $x -> bsub(1);
+                }
+                $x -> {sign} = '-';
+            }
+        }
+    }
+
+    $x -> round(@r);
+
+    if ($wantarray) {
+        unless ($CALC -> _is_zero($rem -> {value})) {
+            if ($xsign ne $ysign) {
+                $rem = $y -> copy() -> babs() -> bsub($rem);
+            }
+            $rem -> {sign} = $ysign;
+        }
+        $rem -> {_a} = $x -> {_a};
+        $rem -> {_p} = $x -> {_p};
+        $rem -> round(@r);
+        return ($x, $rem);
+    }
+
+    return $x;
+}
+
+sub btdiv {
+    # This does truncated division, where the quotient is truncted, i.e.,
+    # rounded towards zero.
+    #
+    # ($q, $r) = $x -> btdiv($y) returns $q and $r so that $q is int($x / $y)
+    # and $q * $y + $r = $x.
+
+    # Set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it if we can.
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('btdiv');
+
+    my $wantarray = wantarray;          # call only once
+
+    # At least one argument is NaN. Return NaN for both quotient and the
+    # modulo/remainder.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $class -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero.
+    #
+    # Division: Use the common convention that x / 0 is inf with the same sign
+    # as x, except when x = 0, where we return NaN. This is also what earlier
+    # versions did.
+    #
+    # Modulo: In modular arithmetic, the congruence relation z = x (mod y)
+    # means that there is some integer k such that z - x = k y. If y = 0, we
+    # get z - x = 0 or z = x. This is also what earlier versions did, except
+    # that 0 % 0 returned NaN.
+    #
+    #     inf / 0 =  inf                     inf % 0 =  inf
+    #       5 / 0 =  inf                       5 % 0 =    5
+    #       0 / 0 =  NaN                       0 % 0 =    0
+    #      -5 / 0 = -inf                      -5 % 0 =   -5
+    #    -inf / 0 = -inf                    -inf % 0 = -inf
+
+    if ($y -> is_zero()) {
+        my $rem;
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $x -> bnan();
+        } else {
+            $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    # Numerator (dividend) is +/-inf, and denominator is finite and non-zero.
+    # The divide by zero cases are covered above. In all of the cases listed
+    # below we return the same as core Perl.
+    #
+    #     inf / -inf =  NaN                  inf % -inf =  NaN
+    #     inf /   -5 = -inf                  inf %   -5 =  NaN
+    #     inf /    5 =  inf                  inf %    5 =  NaN
+    #     inf /  inf =  NaN                  inf %  inf =  NaN
+    #
+    #    -inf / -inf =  NaN                 -inf % -inf =  NaN
+    #    -inf /   -5 =  inf                 -inf %   -5 =  NaN
+    #    -inf /    5 = -inf                 -inf %    5 =  NaN
+    #    -inf /  inf =  NaN                 -inf %  inf =  NaN
+
+    if ($x -> is_inf()) {
+        my $rem;
+        $rem = $class -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $x -> binf($sign);
+        }
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    # Denominator (divisor) is +/-inf. The cases when the numerator is +/-inf
+    # are covered above. In the modulo cases (in the right column) we return
+    # the same as core Perl, which does floored division, so for consistency we
+    # also do floored division in the division cases (in the left column).
+    #
+    #      -5 /  inf =    0                   -5 %  inf =  -5
+    #       0 /  inf =    0                    0 %  inf =   0
+    #       5 /  inf =    0                    5 %  inf =   5
+    #
+    #      -5 / -inf =    0                   -5 % -inf =  -5
+    #       0 / -inf =    0                    0 % -inf =   0
+    #       5 / -inf =    0                    5 % -inf =   5
+
+    if ($y -> is_inf()) {
+        my $rem;
+        $rem = $x -> copy() if $wantarray;
+        $x -> bzero();
+        return $wantarray ? ($x, $rem) : $x;
+    }
+
+    return $upgrade -> btdiv($upgrade -> new($x), $upgrade -> new($y), @r)
+      if defined $upgrade;
+
+    $r[3] = $y;                 # no push!
+
+    # Inialize remainder.
+
+    my $rem = $class -> bzero();
+
+    # Are both operands the same object, i.e., like $x -> bdiv($x)? If so,
+    # flipping the sign of $y also flips the sign of $x.
+
+    my $xsign = $x -> {sign};
+    my $ysign = $y -> {sign};
+
+    $y -> {sign} =~ tr/+-/-+/;            # Flip the sign of $y, and see ...
+    my $same = $xsign ne $x -> {sign};    # ... if that changed the sign of $x.
+    $y -> {sign} = $ysign;                # Re-insert the original sign.
+
+    if ($same) {
+        $x -> bone();
+    } else {
+        ($x -> {value}, $rem -> {value}) =
+          $CALC -> _div($x -> {value}, $y -> {value});
+
+        $x -> {sign} = $xsign eq $ysign ? '+' : '-';
+        $x -> {sign} = '+' if $CALC -> _is_zero($x -> {value});
+        $x -> round(@r);
+    }
+
+    if (wantarray) {
+        $rem -> {sign} = $xsign;
+        $rem -> {sign} = '+' if $CALC -> _is_zero($rem -> {value});
+        $rem -> {_a} = $x -> {_a};
+        $rem -> {_p} = $x -> {_p};
+        $rem -> round(@r);
+        return ($x, $rem);
+    }
+
+    return $x;
+}
+
+sub bmod {
+    # This is the remainder after floored division.
+
+    # Set up parameters.
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('bmod');
+    $r[3] = $y;                 # no push!
+
+    # At least one argument is NaN.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. See documentation for bdiv().
+
+    if ($y -> is_zero()) {
+        return $x;
+    }
+
+    # Numerator (dividend) is +/-inf.
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf.
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+    # Calc new sign and in case $y == +/- 1, return $x.
+
+    $x -> {value} = $CALC -> _mod($x -> {value}, $y -> {value});
+    if ($CALC -> _is_zero($x -> {value})) {
+        $x -> {sign} = '+';     # do not leave -0
+    } else {
+        $x -> {value} = $CALC -> _sub($y -> {value}, $x -> {value}, 1) # $y-$x
+          if ($x -> {sign} ne $y -> {sign});
+        $x -> {sign} = $y -> {sign};
+    }
+
+    $x -> round(@r);
+}
+
+sub btmod {
+    # Remainder after truncated division.
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('btmod');
+
+    # At least one argument is NaN.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. See documentation for btdiv().
+
+    if ($y -> is_zero()) {
+        return $x;
+    }
+
+    # Numerator (dividend) is +/-inf.
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf.
+
+    if ($y -> is_inf()) {
+        return $x;
+    }
+
+    return $upgrade -> btmod($upgrade -> new($x), $upgrade -> new($y), @r)
+      if defined $upgrade;
+
+    $r[3] = $y;                 # no push!
+
+    my $xsign = $x -> {sign};
+    my $ysign = $y -> {sign};
+
+    $x -> {value} = $CALC -> _mod($x -> {value}, $y -> {value});
+
+    $x -> {sign} = $xsign;
+    $x -> {sign} = '+' if $CALC -> _is_zero($x -> {value});
+    $x -> round(@r);
+    return $x;
+}
+
+sub bmodinv {
+    # Return modular multiplicative inverse:
+    #
+    #   z is the modular inverse of x (mod y) if and only if
+    #
+    #       x*z ≡ 1  (mod y)
+    #
+    # If the modulus y is larger than one, x and z are relative primes (i.e.,
+    # their greatest common divisor is one).
+    #
+    # If no modular multiplicative inverse exists, NaN is returned.
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (undef, @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bmodinv');
+
+    # Return NaN if one or both arguments is +inf, -inf, or nan.
+
+    return $x->bnan() if ($y->{sign} !~ /^[+-]$/ ||
+                          $x->{sign} !~ /^[+-]$/);
+
+    # Return NaN if $y is zero; 1 % 0 makes no sense.
+
+    return $x->bnan() if $y->is_zero();
+
+    # Return 0 in the trivial case. $x % 1 or $x % -1 is zero for all finite
+    # integers $x.
+
+    return $x->bzero() if ($y->is_one() ||
+                           $y->is_one('-'));
+
+    # Return NaN if $x = 0, or $x modulo $y is zero. The only valid case when
+    # $x = 0 is when $y = 1 or $y = -1, but that was covered above.
+    #
+    # Note that computing $x modulo $y here affects the value we'll feed to
+    # $CALC->_modinv() below when $x and $y have opposite signs. E.g., if $x =
+    # 5 and $y = 7, those two values are fed to _modinv(), but if $x = -5 and
+    # $y = 7, the values fed to _modinv() are $x = 2 (= -5 % 7) and $y = 7.
+    # The value if $x is affected only when $x and $y have opposite signs.
+
+    $x->bmod($y);
+    return $x->bnan() if $x->is_zero();
+
+    # Compute the modular multiplicative inverse of the absolute values. We'll
+    # correct for the signs of $x and $y later. Return NaN if no GCD is found.
+
+    ($x->{value}, $x->{sign}) = $CALC->_modinv($x->{value}, $y->{value});
+    return $x->bnan() if !defined $x->{value};
+
+    # Library inconsistency workaround: _modinv() in Math::BigInt::GMP versions
+    # <= 1.32 return undef rather than a "+" for the sign.
+
+    $x->{sign} = '+' unless defined $x->{sign};
+
+    # When one or both arguments are negative, we have the following
+    # relations.  If x and y are positive:
+    #
+    #   modinv(-x, -y) = -modinv(x, y)
+    #   modinv(-x, y) = y - modinv(x, y)  = -modinv(x, y) (mod y)
+    #   modinv( x, -y) = modinv(x, y) - y  =  modinv(x, y) (mod -y)
+
+    # We must swap the sign of the result if the original $x is negative.
+    # However, we must compensate for ignoring the signs when computing the
+    # inverse modulo. The net effect is that we must swap the sign of the
+    # result if $y is negative.
+
+    $x -> bneg() if $y->{sign} eq '-';
+
+    # Compute $x modulo $y again after correcting the sign.
+
+    $x -> bmod($y) if $x->{sign} ne $y->{sign};
+
+    return $x;
+}
+
+sub bmodpow {
+    # Modular exponentiation. Raises a very large number to a very large exponent
+    # in a given very large modulus quickly, thanks to binary exponentiation.
+    # Supports negative exponents.
+    my ($class, $num, $exp, $mod, @r) = objectify(3, @_);
+
+    return $num if $num->modify('bmodpow');
+
+    # When the exponent 'e' is negative, use the following relation, which is
+    # based on finding the multiplicative inverse 'd' of 'b' modulo 'm':
+    #
+    #    b^(-e) (mod m) = d^e (mod m) where b*d = 1 (mod m)
+
+    $num->bmodinv($mod) if ($exp->{sign} eq '-');
+
+    # Check for valid input. All operands must be finite, and the modulus must be
+    # non-zero.
+
+    return $num->bnan() if ($num->{sign} =~ /NaN|inf/ || # NaN, -inf, +inf
+                            $exp->{sign} =~ /NaN|inf/ || # NaN, -inf, +inf
+                            $mod->{sign} =~ /NaN|inf/);  # NaN, -inf, +inf
+
+    # Modulo zero. See documentation for Math::BigInt's bmod() method.
+
+    if ($mod -> is_zero()) {
+        if ($num -> is_zero()) {
+            return $class -> bnan();
+        } else {
+            return $num -> copy();
+        }
+    }
+
+    # Compute 'a (mod m)', ignoring the signs on 'a' and 'm'. If the resulting
+    # value is zero, the output is also zero, regardless of the signs on 'a' and
+    # 'm'.
+
+    my $value = $CALC->_modpow($num->{value}, $exp->{value}, $mod->{value});
+    my $sign  = '+';
+
+    # If the resulting value is non-zero, we have four special cases, depending
+    # on the signs on 'a' and 'm'.
+
+    unless ($CALC->_is_zero($value)) {
+
+        # There is a negative sign on 'a' (= $num**$exp) only if the number we
+        # are exponentiating ($num) is negative and the exponent ($exp) is odd.
+
+        if ($num->{sign} eq '-' && $exp->is_odd()) {
+
+            # When both the number 'a' and the modulus 'm' have a negative sign,
+            # use this relation:
+            #
+            #    -a (mod -m) = -(a (mod m))
+
+            if ($mod->{sign} eq '-') {
+                $sign = '-';
+            }
+
+            # When only the number 'a' has a negative sign, use this relation:
+            #
+            #    -a (mod m) = m - (a (mod m))
+
+            else {
+                # Use copy of $mod since _sub() modifies the first argument.
+                my $mod = $CALC->_copy($mod->{value});
+                $value = $CALC->_sub($mod, $value);
+                $sign  = '+';
+            }
+
+        } else {
+
+            # When only the modulus 'm' has a negative sign, use this relation:
+            #
+            #    a (mod -m) = (a (mod m)) - m
+            #               = -(m - (a (mod m)))
+
+            if ($mod->{sign} eq '-') {
+                # Use copy of $mod since _sub() modifies the first argument.
+                my $mod = $CALC->_copy($mod->{value});
+                $value = $CALC->_sub($mod, $value);
+                $sign  = '-';
+            }
+
+            # When neither the number 'a' nor the modulus 'm' have a negative
+            # sign, directly return the already computed value.
+            #
+            #    (a (mod m))
+
+        }
+
+    }
+
+    $num->{value} = $value;
+    $num->{sign}  = $sign;
+
+    return $num;
+}
+
+sub bpow {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # compute power of two numbers -- stolen from Knuth Vol 2 pg 233
+    # modifies first argument
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bpow');
+
+    return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/)) {
+        if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/)) {
+            # +-inf ** +-inf
+            return $x->bnan();
+        }
+        # +-inf ** Y
+        if ($x->{sign} =~ /^[+-]inf/) {
+            # +inf ** 0 => NaN
+            return $x->bnan() if $y->is_zero();
+            # -inf ** -1 => 1/inf => 0
+            return $x->bzero() if $y->is_one('-') && $x->is_negative();
+
+            # +inf ** Y => inf
+            return $x if $x->{sign} eq '+inf';
+
+            # -inf ** Y => -inf if Y is odd
+            return $x if $y->is_odd();
+            return $x->babs();
+        }
+        # X ** +-inf
+
+        # 1 ** +inf => 1
+        return $x if $x->is_one();
+
+        # 0 ** inf => 0
+        return $x if $x->is_zero() && $y->{sign} =~ /^[+]/;
+
+        # 0 ** -inf => inf
+        return $x->binf() if $x->is_zero();
+
+        # -1 ** -inf => NaN
+        return $x->bnan() if $x->is_one('-') && $y->{sign} =~ /^[-]/;
+
+        # -X ** -inf => 0
+        return $x->bzero() if $x->{sign} eq '-' && $y->{sign} =~ /^[-]/;
+
+        # -1 ** inf => NaN
+        return $x->bnan() if $x->{sign} eq '-';
+
+        # X ** inf => inf
+        return $x->binf() if $y->{sign} =~ /^[+]/;
+        # X ** -inf => 0
+        return $x->bzero();
+    }
+
+    return $upgrade->bpow($upgrade->new($x), $y, @r)
+      if defined $upgrade && (!$y->isa($class) || $y->{sign} eq '-');
+
+    $r[3] = $y;                 # no push!
+
+    # cases 0 ** Y, X ** 0, X ** 1, 1 ** Y are handled by Calc or Emu
+
+    my $new_sign = '+';
+    $new_sign = $y->is_odd() ? '-' : '+' if ($x->{sign} ne '+');
+
+    # 0 ** -7 => ( 1 / (0 ** 7)) => 1 / 0 => +inf
+    return $x->binf()
+      if $y->{sign} eq '-' && $x->{sign} eq '+' && $CALC->_is_zero($x->{value});
+    # 1 ** -y => 1 / (1 ** |y|)
+    # so do test for negative $y after above's clause
+    return $x->bnan() if $y->{sign} eq '-' && !$CALC->_is_one($x->{value});
+
+    $x->{value} = $CALC->_pow($x->{value}, $y->{value});
+    $x->{sign} = $new_sign;
+    $x->{sign} = '+' if $CALC->_is_zero($y->{value});
+    $x->round(@r);
+}
+
+sub blog {
+    # Return the logarithm of the operand. If a second operand is defined, that
+    # value is used as the base, otherwise the base is assumed to be Euler's
+    # constant.
+
+    my ($class, $x, $base, @r);
+
+    # Don't objectify the base, since an undefined base, as in $x->blog() or
+    # $x->blog(undef) signals that the base is Euler's number.
+
+    if (!ref($_[0]) && $_[0] =~ /^[A-Za-z]|::/) {
+        # E.g., Math::BigInt->blog(256, 2)
+        ($class, $x, $base, @r) =
+          defined $_[2] ? objectify(2, @_) : objectify(1, @_);
+    } else {
+        # E.g., Math::BigInt::blog(256, 2) or $x->blog(2)
+        ($class, $x, $base, @r) =
+          defined $_[1] ? objectify(2, @_) : objectify(1, @_);
+    }
+
+    return $x if $x->modify('blog');
+
+    # Handle all exception cases and all trivial cases. I have used Wolfram
+    # Alpha (http://www.wolframalpha.com) as the reference for these cases.
+
+    return $x -> bnan() if $x -> is_nan();
+
+    if (defined $base) {
+        $base = $class -> new($base) unless ref $base;
+        if ($base -> is_nan() || $base -> is_one()) {
+            return $x -> bnan();
+        } elsif ($base -> is_inf() || $base -> is_zero()) {
+            return $x -> bnan() if $x -> is_inf() || $x -> is_zero();
+            return $x -> bzero();
+        } elsif ($base -> is_negative()) {        # -inf < base < 0
+            return $x -> bzero() if $x -> is_one(); #     x = 1
+            return $x -> bone()  if $x == $base;    #     x = base
+            return $x -> bnan();                    #     otherwise
+        }
+        return $x -> bone() if $x == $base; # 0 < base && 0 < x < inf
+    }
+
+    # We now know that the base is either undefined or >= 2 and finite.
+
+    return $x -> binf('+') if $x -> is_inf(); #   x = +/-inf
+    return $x -> bnan()    if $x -> is_neg(); #   -inf < x < 0
+    return $x -> bzero()   if $x -> is_one(); #   x = 1
+    return $x -> binf('-') if $x -> is_zero(); #   x = 0
+
+    # At this point we are done handling all exception cases and trivial cases.
+
+    return $upgrade -> blog($upgrade -> new($x), $base, @r) if defined $upgrade;
+
+    # fix for bug #24969:
+    # the default base is e (Euler's number) which is not an integer
+    if (!defined $base) {
+        require Math::BigFloat;
+        my $u = Math::BigFloat->blog(Math::BigFloat->new($x))->as_int();
+        # modify $x in place
+        $x->{value} = $u->{value};
+        $x->{sign} = $u->{sign};
+        return $x;
+    }
+
+    my ($rc, $exact) = $CALC->_log_int($x->{value}, $base->{value});
+    return $x->bnan() unless defined $rc; # not possible to take log?
+    $x->{value} = $rc;
+    $x->round(@r);
+}
+
+sub bexp {
+    # Calculate e ** $x (Euler's number to the power of X), truncated to
+    # an integer value.
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+    return $x if $x->modify('bexp');
+
+    # inf, -inf, NaN, <0 => NaN
+    return $x->bnan() if $x->{sign} eq 'NaN';
+    return $x->bone() if $x->is_zero();
+    return $x if $x->{sign} eq '+inf';
+    return $x->bzero() if $x->{sign} eq '-inf';
+
+    my $u;
+    {
+        # run through Math::BigFloat unless told otherwise
+        require Math::BigFloat unless defined $upgrade;
+        local $upgrade = 'Math::BigFloat' unless defined $upgrade;
+        # calculate result, truncate it to integer
+        $u = $upgrade->bexp($upgrade->new($x), @r);
+    }
+
+    if (defined $upgrade) {
+        $x = $u;
+    } else {
+        $u = $u->as_int();
+        # modify $x in place
+        $x->{value} = $u->{value};
+        $x->round(@r);
+    }
+}
+
+sub bnok {
+    # Calculate n over k (binomial coefficient or "choose" function) as integer.
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bnok');
+    return $x->bnan() if $x->{sign} eq 'NaN' || $y->{sign} eq 'NaN';
+    return $x->binf() if $x->{sign} eq '+inf';
+
+    # k > n or k < 0 => 0
+    my $cmp = $x->bacmp($y);
+    return $x->bzero() if $cmp < 0 || substr($y->{sign}, 0, 1) eq "-";
+
+    if ($CALC->can('_nok')) {
+        $x->{value} = $CALC->_nok($x->{value}, $y->{value});
+    } else {
+        # ( 7 )       7!       1*2*3*4 * 5*6*7   5 * 6 * 7       6   7
+        # ( - ) = --------- =  --------------- = --------- = 5 * - * -
+        # ( 3 )   (7-3)! 3!    1*2*3*4 * 1*2*3   1 * 2 * 3       2   3
+
+        my $n = $x -> {value};
+        my $k = $y -> {value};
+
+        # If k > n/2, or, equivalently, 2*k > n, compute nok(n, k) as
+        # nok(n, n-k) to minimize the number if iterations in the loop.
+
+        {
+            my $twok = $CALC->_mul($CALC->_two(), $CALC->_copy($k));
+            if ($CALC->_acmp($twok, $n) > 0) {
+                $k = $CALC->_sub($CALC->_copy($n), $k);
+            }
+        }
+
+        if ($CALC->_is_zero($k)) {
+            $n = $CALC->_one();
+        } else {
+
+            # Make a copy of the original n, since we'll be modifying n
+            # in-place.
+
+            my $n_orig = $CALC->_copy($n);
+
+            $CALC->_sub($n, $k);
+            $CALC->_inc($n);
+
+            my $f = $CALC->_copy($n);
+            $CALC->_inc($f);
+
+            my $d = $CALC->_two();
+
+            # while f <= n (the original n, that is) ...
+
+            while ($CALC->_acmp($f, $n_orig) <= 0) {
+                $CALC->_mul($n, $f);
+                $CALC->_div($n, $d);
+                $CALC->_inc($f);
+                $CALC->_inc($d);
+            }
+        }
+
+        $x -> {value} = $n;
+    }
+
+    $x->round(@r);
+}
+
+sub bsin {
+    # Calculate sinus(x) to N digits. Unless upgrading is in effect, returns the
+    # result truncated to an integer.
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bsin');
+
+    return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+    return $upgrade->new($x)->bsin(@r) if defined $upgrade;
+
+    require Math::BigFloat;
+    # calculate the result and truncate it to integer
+    my $t = Math::BigFloat->new($x)->bsin(@r)->as_int();
+
+    $x->bone() if $t->is_one();
+    $x->bzero() if $t->is_zero();
+    $x->round(@r);
+}
+
+sub bcos {
+    # Calculate cosinus(x) to N digits. Unless upgrading is in effect, returns the
+    # result truncated to an integer.
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bcos');
+
+    return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+    return $upgrade->new($x)->bcos(@r) if defined $upgrade;
+
+    require Math::BigFloat;
+    # calculate the result and truncate it to integer
+    my $t = Math::BigFloat->new($x)->bcos(@r)->as_int();
+
+    $x->bone() if $t->is_one();
+    $x->bzero() if $t->is_zero();
+    $x->round(@r);
+}
+
+sub batan {
+    # Calculate arcus tangens of x to N digits. Unless upgrading is in effect, returns the
+    # result truncated to an integer.
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('batan');
+
+    return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+    return $upgrade->new($x)->batan(@r) if defined $upgrade;
+
+    # calculate the result and truncate it to integer
+    my $t = Math::BigFloat->new($x)->batan(@r);
+
+    $x->{value} = $CALC->_new($x->as_int()->bstr());
+    $x->round(@r);
+}
+
+sub batan2 {
+    # calculate arcus tangens of ($y/$x)
+
+    # set up parameters
+    my ($class, $y, $x, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $y, $x, @r) = objectify(2, @_);
+    }
+
+    return $y if $y->modify('batan2');
+
+    return $y->bnan() if ($y->{sign} eq $nan) || ($x->{sign} eq $nan);
+
+    # Y    X
+    # != 0 -inf result is +- pi
+    if ($x->is_inf() || $y->is_inf()) {
+        # upgrade to Math::BigFloat etc.
+        return $upgrade->new($y)->batan2($upgrade->new($x), @r) if defined $upgrade;
+        if ($y->is_inf()) {
+            if ($x->{sign} eq '-inf') {
+                # calculate 3 pi/4 => 2.3.. => 2
+                $y->bone(substr($y->{sign}, 0, 1));
+                $y->bmul($class->new(2));
+            } elsif ($x->{sign} eq '+inf') {
+                # calculate pi/4 => 0.7 => 0
+                $y->bzero();
+            } else {
+                # calculate pi/2 => 1.5 => 1
+                $y->bone(substr($y->{sign}, 0, 1));
+            }
+        } else {
+            if ($x->{sign} eq '+inf') {
+                # calculate pi/4 => 0.7 => 0
+                $y->bzero();
+            } else {
+                # PI => 3.1415.. => 3
+                $y->bone(substr($y->{sign}, 0, 1));
+                $y->bmul($class->new(3));
+            }
+        }
+        return $y;
+    }
+
+    return $upgrade->new($y)->batan2($upgrade->new($x), @r) if defined $upgrade;
+
+    require Math::BigFloat;
+    my $r = Math::BigFloat->new($y)
+      ->batan2(Math::BigFloat->new($x), @r)
+        ->as_int();
+
+    $x->{value} = $r->{value};
+    $x->{sign} = $r->{sign};
+
+    $x;
+}
+
+sub bsqrt {
+    # calculate square root of $x
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bsqrt');
+
+    return $x->bnan() if $x->{sign} !~ /^\+/; # -x or -inf or NaN => NaN
+    return $x if $x->{sign} eq '+inf';        # sqrt(+inf) == inf
+
+    return $upgrade->bsqrt($x, @r) if defined $upgrade;
+
+    $x->{value} = $CALC->_sqrt($x->{value});
+    $x->round(@r);
+}
+
+sub broot {
+    # calculate $y'th root of $x
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    $y = $class->new(2) unless defined $y;
+
+    # objectify is costly, so avoid it
+    if ((!ref($x)) || (ref($x) ne ref($y))) {
+        ($class, $x, $y, @r) = objectify(2, $class || $class, @_);
+    }
+
+    return $x if $x->modify('broot');
+
+    # NaN handling: $x ** 1/0, x or y NaN, or y inf/-inf or y == 0
+    return $x->bnan() if $x->{sign} !~ /^\+/ || $y->is_zero() ||
+      $y->{sign} !~ /^\+$/;
+
+    return $x->round(@r)
+      if $x->is_zero() || $x->is_one() || $x->is_inf() || $y->is_one();
+
+    return $upgrade->new($x)->broot($upgrade->new($y), @r) if defined $upgrade;
+
+    $x->{value} = $CALC->_root($x->{value}, $y->{value});
+    $x->round(@r);
+}
+
+sub bfac {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # compute factorial number from $x, modify $x in place
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bfac') || $x->{sign} eq '+inf'; # inf => inf
+    return $x->bnan() if $x->{sign} ne '+'; # NaN, <0 etc => NaN
+
+    $x->{value} = $CALC->_fac($x->{value});
+    $x->round(@r);
+}
+
+sub bdfac {
+    # compute double factorial, modify $x in place
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bdfac') || $x->{sign} eq '+inf'; # inf => inf
+    return $x->bnan() if $x->{sign} ne '+'; # NaN, <0 etc => NaN
+
+    Carp::croak("bdfac() requires a newer version of the $CALC library.")
+        unless $CALC->can('_dfac');
+
+    $x->{value} = $CALC->_dfac($x->{value});
+    $x->round(@r);
+}
+
+sub bfib {
+    # compute Fibonacci number(s)
+    my ($class, $x, @r) = objectify(1, @_);
+
+    Carp::croak("bfib() requires a newer version of the $CALC library.")
+        unless $CALC->can('_fib');
+
+    return $x if $x->modify('bfib');
+
+    # List context.
+
+    if (wantarray) {
+        return () if $x ->  is_nan();
+        Carp::croak("bfib() can't return an infinitely long list of numbers")
+            if $x -> is_inf();
+
+        # Use the backend library to compute the first $x Fibonacci numbers.
+
+        my @values = $CALC->_fib($x->{value});
+
+        # Make objects out of them. The last element in the array is the
+        # invocand.
+
+        for (my $i = 0 ; $i < $#values ; ++ $i) {
+            my $fib =  $class -> bzero();
+            $fib -> {value} = $values[$i];
+            $values[$i] = $fib;
+        }
+
+        $x -> {value} = $values[-1];
+        $values[-1] = $x;
+
+        # If negative, insert sign as appropriate.
+
+        if ($x -> is_neg()) {
+            for (my $i = 2 ; $i <= $#values ; $i += 2) {
+                $values[$i]{sign} = '-';
+            }
+        }
+
+        @values = map { $_ -> round(@r) } @values;
+        return @values;
+    }
+
+    # Scalar context.
+
+    else {
+        return $x if $x->modify('bdfac') || $x ->  is_inf('+');
+        return $x->bnan() if $x -> is_nan() || $x -> is_inf('-');
+
+        $x->{sign}  = $x -> is_neg() && $x -> is_even() ? '-' : '+';
+        $x->{value} = $CALC->_fib($x->{value});
+        return $x->round(@r);
+    }
+}
+
+sub blucas {
+    # compute Lucas number(s)
+    my ($class, $x, @r) = objectify(1, @_);
+
+    Carp::croak("blucas() requires a newer version of the $CALC library.")
+        unless $CALC->can('_lucas');
+
+    return $x if $x->modify('blucas');
+
+    # List context.
+
+    if (wantarray) {
+        return () if $x -> is_nan();
+        Carp::croak("blucas() can't return an infinitely long list of numbers")
+            if $x -> is_inf();
+
+        # Use the backend library to compute the first $x Lucas numbers.
+
+        my @values = $CALC->_lucas($x->{value});
+
+        # Make objects out of them. The last element in the array is the
+        # invocand.
+
+        for (my $i = 0 ; $i < $#values ; ++ $i) {
+            my $lucas =  $class -> bzero();
+            $lucas -> {value} = $values[$i];
+            $values[$i] = $lucas;
+        }
+
+        $x -> {value} = $values[-1];
+        $values[-1] = $x;
+
+        # If negative, insert sign as appropriate.
+
+        if ($x -> is_neg()) {
+            for (my $i = 2 ; $i <= $#values ; $i += 2) {
+                $values[$i]{sign} = '-';
+            }
+        }
+
+        @values = map { $_ -> round(@r) } @values;
+        return @values;
+    }
+
+    # Scalar context.
+
+    else {
+        return $x if $x ->  is_inf('+');
+        return $x->bnan() if $x -> is_nan() || $x -> is_inf('-');
+
+        $x->{sign}  = $x -> is_neg() && $x -> is_even() ? '-' : '+';
+        $x->{value} = $CALC->_lucas($x->{value});
+        return $x->round(@r);
+    }
+}
+
+sub blsft {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # compute x << y, base n, y >= 0
+
+    # set up parameters
+    my ($class, $x, $y, $b, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $b, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('blsft');
+    return $x -> bnan() if ($x -> {sign} !~ /^[+-]$/ ||
+                            $y -> {sign} !~ /^[+-]$/);
+    return $x -> round(@r) if $y -> is_zero();
+
+    $b = 2 if !defined $b;
+    return $x -> bnan() if $b <= 0 || $y -> {sign} eq '-';
+
+    $x -> {value} = $CALC -> _lsft($x -> {value}, $y -> {value}, $b);
+    $x -> round(@r);
+}
+
+sub brsft {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # compute x >> y, base n, y >= 0
+
+    # set up parameters
+    my ($class, $x, $y, $b, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $b, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('brsft');
+    return $x -> bnan() if ($x -> {sign} !~ /^[+-]$/ || $y -> {sign} !~ /^[+-]$/);
+    return $x -> round(@r) if $y -> is_zero();
+    return $x -> bzero(@r) if $x -> is_zero(); # 0 => 0
+
+    $b = 2 if !defined $b;
+    return $x -> bnan() if $b <= 0 || $y -> {sign} eq '-';
+
+    # this only works for negative numbers when shifting in base 2
+    if (($x -> {sign} eq '-') && ($b == 2)) {
+        return $x -> round(@r) if $x -> is_one('-'); # -1 => -1
+        if (!$y -> is_one()) {
+            # although this is O(N*N) in calc (as_bin!) it is O(N) in Pari et
+            # al but perhaps there is a better emulation for two's complement
+            # shift...
+            # if $y != 1, we must simulate it by doing:
+            # convert to bin, flip all bits, shift, and be done
+            $x -> binc();           # -3 => -2
+            my $bin = $x -> as_bin();
+            $bin =~ s/^-0b//;       # strip '-0b' prefix
+            $bin =~ tr/10/01/;      # flip bits
+            # now shift
+            if ($y >= CORE::length($bin)) {
+                $bin = '0';         # shifting to far right creates -1
+                                    # 0, because later increment makes
+                                    # that 1, attached '-' makes it '-1'
+                                    # because -1 >> x == -1 !
+            } else {
+                $bin =~ s/.{$y}$//; # cut off at the right side
+                $bin = '1' . $bin;  # extend left side by one dummy '1'
+                $bin =~ tr/10/01/;  # flip bits back
+            }
+            my $res = $class -> new('0b' . $bin); # add prefix and convert back
+            $res -> binc();                       # remember to increment
+            $x -> {value} = $res -> {value};      # take over value
+            return $x -> round(@r); # we are done now, magic, isn't?
+        }
+
+        # x < 0, n == 2, y == 1
+        $x -> bdec();           # n == 2, but $y == 1: this fixes it
+    }
+
+    $x -> {value} = $CALC -> _rsft($x -> {value}, $y -> {value}, $b);
+    $x -> round(@r);
+}
+
+###############################################################################
+# Bitwise methods
+###############################################################################
+
+sub band {
+    #(BINT or num_str, BINT or num_str) return BINT
+    # compute x & y
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('band');
+
+    $r[3] = $y;                 # no push!
+
+    return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+    my $sx = $x->{sign} eq '+' ? 1 : -1;
+    my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+    if ($sx == 1 && $sy == 1) {
+        $x->{value} = $CALC->_and($x->{value}, $y->{value});
+        return $x->round(@r);
+    }
+
+    if ($CAN{signed_and}) {
+        $x->{value} = $CALC->_signed_and($x->{value}, $y->{value}, $sx, $sy);
+        return $x->round(@r);
+    }
+
+    require $EMU_LIB;
+    __emu_band($class, $x, $y, $sx, $sy, @r);
+}
+
+sub bior {
+    #(BINT or num_str, BINT or num_str) return BINT
+    # compute x | y
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bior');
+    $r[3] = $y;                 # no push!
+
+    return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+    my $sx = $x->{sign} eq '+' ? 1 : -1;
+    my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+    # the sign of X follows the sign of X, e.g. sign of Y irrelevant for bior()
+
+    # don't use lib for negative values
+    if ($sx == 1 && $sy == 1) {
+        $x->{value} = $CALC->_or($x->{value}, $y->{value});
+        return $x->round(@r);
+    }
+
+    # if lib can do negative values, let it handle this
+    if ($CAN{signed_or}) {
+        $x->{value} = $CALC->_signed_or($x->{value}, $y->{value}, $sx, $sy);
+        return $x->round(@r);
+    }
+
+    require $EMU_LIB;
+    __emu_bior($class, $x, $y, $sx, $sy, @r);
+}
+
+sub bxor {
+    #(BINT or num_str, BINT or num_str) return BINT
+    # compute x ^ y
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bxor');
+    $r[3] = $y;                 # no push!
+
+    return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+    my $sx = $x->{sign} eq '+' ? 1 : -1;
+    my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+    # don't use lib for negative values
+    if ($sx == 1 && $sy == 1) {
+        $x->{value} = $CALC->_xor($x->{value}, $y->{value});
+        return $x->round(@r);
+    }
+
+    # if lib can do negative values, let it handle this
+    if ($CAN{signed_xor}) {
+        $x->{value} = $CALC->_signed_xor($x->{value}, $y->{value}, $sx, $sy);
+        return $x->round(@r);
+    }
+
+    require $EMU_LIB;
+    __emu_bxor($class, $x, $y, $sx, $sy, @r);
+}
+
+sub bnot {
+    # (num_str or BINT) return BINT
+    # represent ~x as twos-complement number
+    # we don't need $class, so undef instead of ref($_[0]) make it slightly faster
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    return $x if $x->modify('bnot');
+    $x->binc()->bneg();         # binc already does round
+}
+
+###############################################################################
+# Rounding methods
+###############################################################################
+
+sub round {
+    # Round $self according to given parameters, or given second argument's
+    # parameters or global defaults
+
+    # for speed reasons, _find_round_parameters is embedded here:
+
+    my ($self, $a, $p, $r, @args) = @_;
+    # $a accuracy, if given by caller
+    # $p precision, if given by caller
+    # $r round_mode, if given by caller
+    # @args all 'other' arguments (0 for unary, 1 for binary ops)
+
+    my $class = ref($self);       # find out class of argument(s)
+    no strict 'refs';
+
+    # now pick $a or $p, but only if we have got "arguments"
+    if (!defined $a) {
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is smaller
+            $a = $_->{_a} if (defined $_->{_a}) && (!defined $a || $_->{_a} < $a);
+        }
+    }
+    if (!defined $p) {
+        # even if $a is defined, take $p, to signal error for both defined
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is bigger
+            # -2 > -3, and 3 > 2
+            $p = $_->{_p} if (defined $_->{_p}) && (!defined $p || $_->{_p} > $p);
+        }
+    }
+
+    # if still none defined, use globals (#2)
+    $a = ${"$class\::accuracy"}  unless defined $a;
+    $p = ${"$class\::precision"} unless defined $p;
+
+    # A == 0 is useless, so undef it to signal no rounding
+    $a = undef if defined $a && $a == 0;
+
+    # no rounding today?
+    return $self unless defined $a || defined $p; # early out
+
+    # set A and set P is an fatal error
+    return $self->bnan() if defined $a && defined $p;
+
+    $r = ${"$class\::round_mode"} unless defined $r;
+    if ($r !~ /^(even|odd|[+-]inf|zero|trunc|common)$/) {
+        Carp::croak("Unknown round mode '$r'");
+    }
+
+    # now round, by calling either bround or bfround:
+    if (defined $a) {
+        $self->bround(int($a), $r) if !defined $self->{_a} || $self->{_a} >= $a;
+    } else {                  # both can't be undefined due to early out
+        $self->bfround(int($p), $r) if !defined $self->{_p} || $self->{_p} <= $p;
+    }
+
+    # bround() or bfround() already called bnorm() if nec.
+    $self;
+}
+
+sub bround {
+    # accuracy: +$n preserve $n digits from left,
+    #           -$n preserve $n digits from right (f.i. for 0.1234 style in MBF)
+    # no-op for $n == 0
+    # and overwrite the rest with 0's, return normalized number
+    # do not return $x->bnorm(), but $x
+
+    my $x = shift;
+    $x = $class->new($x) unless ref $x;
+    my ($scale, $mode) = $x->_scale_a(@_);
+    return $x if !defined $scale || $x->modify('bround'); # no-op
+
+    if ($x->is_zero() || $scale == 0) {
+        $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale; # 3 > 2
+        return $x;
+    }
+    return $x if $x->{sign} !~ /^[+-]$/; # inf, NaN
+
+    # we have fewer digits than we want to scale to
+    my $len = $x->length();
+    # convert $scale to a scalar in case it is an object (put's a limit on the
+    # number length, but this would already limited by memory constraints), makes
+    # it faster
+    $scale = $scale->numify() if ref ($scale);
+
+    # scale < 0, but > -len (not >=!)
+    if (($scale < 0 && $scale < -$len-1) || ($scale >= $len)) {
+        $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale; # 3 > 2
+        return $x;
+    }
+
+    # count of 0's to pad, from left (+) or right (-): 9 - +6 => 3, or |-6| => 6
+    my ($pad, $digit_round, $digit_after);
+    $pad = $len - $scale;
+    $pad = abs($scale-1) if $scale < 0;
+
+    # do not use digit(), it is very costly for binary => decimal
+    # getting the entire string is also costly, but we need to do it only once
+    my $xs = $CALC->_str($x->{value});
+    my $pl = -$pad-1;
+
+    # pad:   123: 0 => -1, at 1 => -2, at 2 => -3, at 3 => -4
+    # pad+1: 123: 0 => 0, at 1 => -1, at 2 => -2, at 3 => -3
+    $digit_round = '0';
+    $digit_round = substr($xs, $pl, 1) if $pad <= $len;
+    $pl++;
+    $pl ++ if $pad >= $len;
+    $digit_after = '0';
+    $digit_after = substr($xs, $pl, 1) if $pad > 0;
+
+    # in case of 01234 we round down, for 6789 up, and only in case 5 we look
+    # closer at the remaining digits of the original $x, remember decision
+    my $round_up = 1;           # default round up
+    $round_up -- if
+      ($mode eq 'trunc')                      ||   # trunc by round down
+        ($digit_after =~ /[01234]/)           ||   # round down anyway,
+          # 6789 => round up
+          ($digit_after eq '5')               &&   # not 5000...0000
+            ($x->_scan_for_nonzero($pad, $xs, $len) == 0)   &&
+              (
+               ($mode eq 'even') && ($digit_round =~ /[24680]/) ||
+               ($mode eq 'odd')  && ($digit_round =~ /[13579]/) ||
+               ($mode eq '+inf') && ($x->{sign} eq '-')         ||
+               ($mode eq '-inf') && ($x->{sign} eq '+')         ||
+               ($mode eq 'zero') # round down if zero, sign adjusted below
+              );
+    my $put_back = 0;           # not yet modified
+
+    if (($pad > 0) && ($pad <= $len)) {
+        substr($xs, -$pad, $pad) = '0' x $pad; # replace with '00...'
+        $put_back = 1;                         # need to put back
+    } elsif ($pad > $len) {
+        $x->bzero();            # round to '0'
+    }
+
+    if ($round_up) {            # what gave test above?
+        $put_back = 1;                               # need to put back
+        $pad = $len, $xs = '0' x $pad if $scale < 0; # tlr: whack 0.51=>1.0
+
+        # we modify directly the string variant instead of creating a number and
+        # adding it, since that is faster (we already have the string)
+        my $c = 0;
+        $pad ++;                # for $pad == $len case
+        while ($pad <= $len) {
+            $c = substr($xs, -$pad, 1) + 1;
+            $c = '0' if $c eq '10';
+            substr($xs, -$pad, 1) = $c;
+            $pad++;
+            last if $c != 0;    # no overflow => early out
+        }
+        $xs = '1'.$xs if $c == 0;
+
+    }
+    $x->{value} = $CALC->_new($xs) if $put_back == 1; # put back, if needed
+
+    $x->{_a} = $scale if $scale >= 0;
+    if ($scale < 0) {
+        $x->{_a} = $len+$scale;
+        $x->{_a} = 0 if $scale < -$len;
+    }
+    $x;
+}
+
+sub bfround {
+    # precision: round to the $Nth digit left (+$n) or right (-$n) from the '.'
+    # $n == 0 || $n == 1 => round to integer
+    my $x = shift;
+    my $class = ref($x) || $x;
+    $x = $class->new($x) unless ref $x;
+
+    my ($scale, $mode) = $x->_scale_p(@_);
+
+    return $x if !defined $scale || $x->modify('bfround'); # no-op
+
+    # no-op for Math::BigInt objects if $n <= 0
+    $x->bround($x->length()-$scale, $mode) if $scale > 0;
+
+    delete $x->{_a};            # delete to save memory
+    $x->{_p} = $scale;          # store new _p
+    $x;
+}
+
+sub fround {
+    # Exists to make life easier for switch between MBF and MBI (should we
+    # autoload fxxx() like MBF does for bxxx()?)
+    my $x = shift;
+    $x = $class->new($x) unless ref $x;
+    $x->bround(@_);
+}
+
+sub bfloor {
+    # round towards minus infinity; no-op since it's already integer
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $x->round(@r);
+}
+
+sub bceil {
+    # round towards plus infinity; no-op since it's already int
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $x->round(@r);
+}
+
+sub bint {
+    # round towards zero; no-op since it's already integer
+    my ($class, $x, @r) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $x->round(@r);
+}
+
+###############################################################################
+# Other mathematical methods
+###############################################################################
+
+sub bgcd {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # does not modify arguments, but returns new object
+    # GCD -- Euclid's algorithm, variant C (Knuth Vol 3, pg 341 ff)
+
+    my ($class, @args) = objectify(0, @_);
+
+    my $x = shift @args;
+    $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+
+    return $class->bnan() if $x->{sign} !~ /^[+-]$/;    # x NaN?
+
+    while (@args) {
+        my $y = shift @args;
+        $y = $class->new($y) unless ref($y) && $y -> isa($class);
+        return $class->bnan() if $y->{sign} !~ /^[+-]$/;    # y NaN?
+        $x->{value} = $CALC->_gcd($x->{value}, $y->{value});
+        last if $CALC->_is_one($x->{value});
+    }
+
+    return $x -> babs();
+}
+
+sub blcm {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # does not modify arguments, but returns new object
+    # Least Common Multiple
+
+    my ($class, @args) = objectify(0, @_);
+
+    my $x = shift @args;
+    $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+    return $class->bnan() if $x->{sign} !~ /^[+-]$/;    # x NaN?
+
+    while (@args) {
+        my $y = shift @args;
+        $y = $class -> new($y) unless ref($y) && $y -> isa($class);
+        return $x->bnan() if $y->{sign} !~ /^[+-]$/;     # y not integer
+        $x -> {value} = $CALC->_lcm($x -> {value}, $y -> {value});
+    }
+
+    return $x -> babs();
+}
+
+###############################################################################
+# Object property methods
+###############################################################################
+
+sub sign {
+    # return the sign of the number: +/-/-inf/+inf/NaN
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    $x->{sign};
+}
+
+sub digit {
+    # return the nth decimal digit, negative values count backward, 0 is right
+    my ($class, $x, $n) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $n = $n->numify() if ref($n);
+    $CALC->_digit($x->{value}, $n || 0);
+}
+
+sub length {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    my $e = $CALC->_len($x->{value});
+    wantarray ? ($e, 0) : $e;
+}
+
+sub exponent {
+    # return a copy of the exponent (here always 0, NaN or 1 for $m == 0)
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        my $s = $x->{sign};
+        $s =~ s/^[+-]//; # NaN, -inf, +inf => NaN or inf
+        return $class->new($s);
+    }
+    return $class->bzero() if $x->is_zero();
+
+    # 12300 => 2 trailing zeros => exponent is 2
+    $class->new($CALC->_zeros($x->{value}));
+}
+
+sub mantissa {
+    # return the mantissa (compatible to Math::BigFloat, e.g. reduced)
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        # for NaN, +inf, -inf: keep the sign
+        return $class->new($x->{sign});
+    }
+    my $m = $x->copy();
+    delete $m->{_p};
+    delete $m->{_a};
+
+    # that's a bit inefficient:
+    my $zeros = $CALC->_zeros($m->{value});
+    $m->brsft($zeros, 10) if $zeros != 0;
+    $m;
+}
+
+sub parts {
+    # return a copy of both the exponent and the mantissa
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    ($x->mantissa(), $x->exponent());
+}
+
+sub sparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("sparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number.
+
+    if ($self -> is_nan()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> bnan();            # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Infinity.
+
+    if ($self -> is_inf()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> binf('+');         # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Finite number.
+
+    my $mant   = $self -> copy();
+    my $nzeros = $CALC -> _zeros($mant -> {value});
+
+    $mant -> brsft($nzeros, 10) if $nzeros != 0;
+    return $mant unless wantarray;
+
+    my $expo = $class -> new($nzeros);
+    return ($mant, $expo);
+}
+
+sub nparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("nparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number.
+
+    if ($self -> is_nan()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> bnan();            # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Infinity.
+
+    if ($self -> is_inf()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> binf('+');         # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Finite number.
+
+    my ($mant, $expo) = $self -> sparts();
+
+    if ($mant -> bcmp(0)) {
+        my ($ndigtot, $ndigfrac) = $mant -> length();
+        my $expo10adj = $ndigtot - $ndigfrac - 1;
+
+        if ($expo10adj != 0) {
+            return $upgrade -> new($self) -> nparts() if $upgrade;
+            $mant -> bnan();
+            return $mant unless wantarray;
+            $expo -> badd($expo10adj);
+            return ($mant, $expo);
+        }
+    }
+
+    return $mant unless wantarray;
+    return ($mant, $expo);
+}
+
+sub eparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("eparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number and Infinity.
+
+    return $self -> sparts() if $self -> is_nan() || $self -> is_inf();
+
+    # Finite number.
+
+    my ($mant, $expo) = $self -> sparts();
+
+    if ($mant -> bcmp(0)) {
+        my $ndigmant  = $mant -> length();
+        $expo -> badd($ndigmant);
+
+        # $c is the number of digits that will be in the integer part of the
+        # final mantissa.
+
+        my $c = $expo -> copy() -> bdec() -> bmod(3) -> binc();
+        $expo -> bsub($c);
+
+        if ($ndigmant > $c) {
+            return $upgrade -> new($self) -> eparts() if $upgrade;
+            $mant -> bnan();
+            return $mant unless wantarray;
+            return ($mant, $expo);
+        }
+
+        $mant -> blsft($c - $ndigmant, 10);
+    }
+
+    return $mant unless wantarray;
+    return ($mant, $expo);
+}
+
+sub dparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("dparts() is an instance method, not a class method")
+        unless $class;
+
+    my $int = $self -> copy();
+    return $int unless wantarray;
+
+    my $frc = $class -> bzero();
+    return ($int, $frc);
+}
+
+###############################################################################
+# String conversion methods
+###############################################################################
+
+sub bstr {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+    my $str = $CALC->_str($x->{value});
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+# Scientific notation with significand/mantissa as an integer, e.g., "12345" is
+# written as "1.2345e+4".
+
+sub bsstr {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf';  # -inf, NaN
+        return 'inf';                                   # +inf
+    }
+    my ($m, $e) = $x -> parts();
+    my $str = $CALC->_str($m->{value}) . 'e+' . $CALC->_str($e->{value});
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+# Normalized notation, e.g., "12345" is written as "12345e+0".
+
+sub bnstr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf';  # -inf, NaN
+        return 'inf';                                   # +inf
+    }
+
+    return $x -> bstr() if $x -> is_nan() || $x -> is_inf();
+
+    my ($mant, $expo) = $x -> parts();
+
+    # The "fraction posision" is the position (offset) for the decimal point
+    # relative to the end of the digit string.
+
+    my $fracpos = $mant -> length() - 1;
+    if ($fracpos == 0) {
+        my $str = $CALC->_str($mant->{value}) . "e+" . $CALC->_str($expo->{value});
+        return $x->{sign} eq '-' ? "-$str" : $str;
+    }
+
+    $expo += $fracpos;
+    my $mantstr = $CALC->_str($mant -> {value});
+    substr($mantstr, -$fracpos, 0) = '.';
+
+    my $str = $mantstr . 'e+' . $CALC->_str($expo -> {value});
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+# Engineering notation, e.g., "12345" is written as "12.345e+3".
+
+sub bestr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf';  # -inf, NaN
+        return 'inf';                                   # +inf
+    }
+
+    my ($mant, $expo) = $x -> parts();
+
+    my $sign = $mant -> sign();
+    $mant -> babs();
+
+    my $mantstr = $CALC->_str($mant -> {value});
+    my $mantlen = CORE::length($mantstr);
+
+    my $dotidx = 1;
+    $expo += $mantlen - 1;
+
+    my $c = $expo -> copy() -> bmod(3);
+    $expo   -= $c;
+    $dotidx += $c;
+
+    if ($mantlen < $dotidx) {
+        $mantstr .= "0" x ($dotidx - $mantlen);
+    } elsif ($mantlen > $dotidx) {
+        substr($mantstr, $dotidx, 0) = ".";
+    }
+
+    my $str = $mantstr . 'e+' . $CALC->_str($expo -> {value});
+    return $sign eq "-" ? "-$str" : $str;
+}
+
+# Decimal notation, e.g., "12345".
+
+sub bdstr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my $str = $CALC->_str($x->{value});
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub to_hex {
+    # return as hex string, with prefixed 0x
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $hex = $CALC->_to_hex($x->{value});
+    return $x->{sign} eq '-' ? "-$hex" : $hex;
+}
+
+sub to_oct {
+    # return as octal string, with prefixed 0
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $oct = $CALC->_to_oct($x->{value});
+    return $x->{sign} eq '-' ? "-$oct" : $oct;
+}
+
+sub to_bin {
+    # return as binary string, with prefixed 0b
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $bin = $CALC->_to_bin($x->{value});
+    return $x->{sign} eq '-' ? "-$bin" : $bin;
+}
+
+sub to_bytes {
+    # return a byte string
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    Carp::croak("to_bytes() requires a finite, non-negative integer")
+        if $x -> is_neg() || ! $x -> is_int();
+
+    Carp::croak("to_bytes() requires a newer version of the $CALC library.")
+        unless $CALC->can('_to_bytes');
+
+    return $CALC->_to_bytes($x->{value});
+}
+
+sub as_hex {
+    # return as hex string, with prefixed 0x
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $hex = $CALC->_as_hex($x->{value});
+    return $x->{sign} eq '-' ? "-$hex" : $hex;
+}
+
+sub as_oct {
+    # return as octal string, with prefixed 0
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $oct = $CALC->_as_oct($x->{value});
+    return $x->{sign} eq '-' ? "-$oct" : $oct;
+}
+
+sub as_bin {
+    # return as binary string, with prefixed 0b
+    my $x = shift;
+    $x = $class->new($x) if !ref($x);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $bin = $CALC->_as_bin($x->{value});
+    return $x->{sign} eq '-' ? "-$bin" : $bin;
+}
+
+*as_bytes = \&to_bytes;
+
+###############################################################################
+# Other conversion methods
+###############################################################################
+
+sub numify {
+    # Make a Perl scalar number from a Math::BigInt object.
+    my $x = shift;
+    $x = $class->new($x) unless ref $x;
+
+    if ($x -> is_nan()) {
+        require Math::Complex;
+        my $inf = Math::Complex::Inf();
+        return $inf - $inf;
+    }
+
+    if ($x -> is_inf()) {
+        require Math::Complex;
+        my $inf = Math::Complex::Inf();
+        return $x -> is_negative() ? -$inf : $inf;
+    }
+
+    my $num = 0 + $CALC->_num($x->{value});
+    return $x->{sign} eq '-' ? -$num : $num;
+}
+
+###############################################################################
+# Private methods and functions.
+###############################################################################
+
+sub objectify {
+    # Convert strings and "foreign objects" to the objects we want.
+
+    # The first argument, $count, is the number of following arguments that
+    # objectify() looks at and converts to objects. The first is a classname.
+    # If the given count is 0, all arguments will be used.
+
+    # After the count is read, objectify obtains the name of the class to which
+    # the following arguments are converted. If the second argument is a
+    # reference, use the reference type as the class name. Otherwise, if it is
+    # a string that looks like a class name, use that. Otherwise, use $class.
+
+    # Caller:                        Gives us:
+    #
+    # $x->badd(1);                => ref x, scalar y
+    # Class->badd(1, 2);           => classname x (scalar), scalar x, scalar y
+    # Class->badd(Class->(1), 2);  => classname x (scalar), ref x, scalar y
+    # Math::BigInt::badd(1, 2);    => scalar x, scalar y
+
+    # A shortcut for the common case $x->unary_op(), in which case the argument
+    # list is (0, $x) or (1, $x).
+
+    return (ref($_[1]), $_[1]) if @_ == 2 && ($_[0] || 0) == 1 && ref($_[1]);
+
+    # Check the context.
+
+    unless (wantarray) {
+        Carp::croak("${class}::objectify() needs list context");
+    }
+
+    # Get the number of arguments to objectify.
+
+    my $count = shift;
+
+    # Initialize the output array.
+
+    my @a = @_;
+
+    # If the first argument is a reference, use that reference type as our
+    # class name. Otherwise, if the first argument looks like a class name,
+    # then use that as our class name. Otherwise, use the default class name.
+
+    my $class;
+    if (ref($a[0])) {                   # reference?
+        $class = ref($a[0]);
+    } elsif ($a[0] =~ /^[A-Z].*::/) {   # string with class name?
+        $class = shift @a;
+    } else {
+        $class = __PACKAGE__;           # default class name
+    }
+
+    $count ||= @a;
+    unshift @a, $class;
+
+    no strict 'refs';
+
+    # What we upgrade to, if anything.
+
+    my $up = ${"$a[0]::upgrade"};
+
+    # Disable downgrading, because Math::BigFloat -> foo('1.0', '2.0') needs
+    # floats.
+
+    my $down;
+    if (defined ${"$a[0]::downgrade"}) {
+        $down = ${"$a[0]::downgrade"};
+        ${"$a[0]::downgrade"} = undef;
+    }
+
+    for my $i (1 .. $count) {
+
+        my $ref = ref $a[$i];
+
+        # Perl scalars are fed to the appropriate constructor.
+
+        unless ($ref) {
+            $a[$i] = $a[0] -> new($a[$i]);
+            next;
+        }
+
+        # If it is an object of the right class, all is fine.
+
+        next if $ref -> isa($a[0]);
+
+        # Upgrading is OK, so skip further tests if the argument is upgraded.
+
+        if (defined $up && $ref -> isa($up)) {
+            next;
+        }
+
+        # See if we can call one of the as_xxx() methods. We don't know whether
+        # the as_xxx() method returns an object or a scalar, so re-check
+        # afterwards.
+
+        my $recheck = 0;
+
+        if ($a[0] -> isa('Math::BigInt')) {
+            if ($a[$i] -> can('as_int')) {
+                $a[$i] = $a[$i] -> as_int();
+                $recheck = 1;
+            } elsif ($a[$i] -> can('as_number')) {
+                $a[$i] = $a[$i] -> as_number();
+                $recheck = 1;
+            }
+        }
+
+        elsif ($a[0] -> isa('Math::BigFloat')) {
+            if ($a[$i] -> can('as_float')) {
+                $a[$i] = $a[$i] -> as_float();
+                $recheck = $1;
+            }
+        }
+
+        # If we called one of the as_xxx() methods, recheck.
+
+        if ($recheck) {
+            $ref = ref($a[$i]);
+
+            # Perl scalars are fed to the appropriate constructor.
+
+            unless ($ref) {
+                $a[$i] = $a[0] -> new($a[$i]);
+                next;
+            }
+
+            # If it is an object of the right class, all is fine.
+
+            next if $ref -> isa($a[0]);
+        }
+
+        # Last resort.
+
+        $a[$i] = $a[0] -> new($a[$i]);
+    }
+
+    # Reset the downgrading.
+
+    ${"$a[0]::downgrade"} = $down;
+
+    return @a;
+}
+
+sub import {
+    my $class = shift;
+
+    $IMPORT++;                  # remember we did import()
+    my @a;
+    my $l = scalar @_;
+    my $warn_or_die = 0;        # 0 - no warn, 1 - warn, 2 - die
+    for (my $i = 0; $i < $l ; $i++) {
+        if ($_[$i] eq ':constant') {
+            # this causes overlord er load to step in
+            overload::constant
+                integer => sub { $class->new(shift) },
+                binary  => sub { $class->new(shift) };
+        } elsif ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i+1]; # or undef to disable
+            $i++;
+        } elsif ($_[$i] =~ /^(lib|try|only)\z/) {
+            # this causes a different low lib to take care...
+            $CALC = $_[$i+1] || '';
+            # lib => 1 (warn on fallback), try => 0 (no warn), only => 2 (die on fallback)
+            $warn_or_die = 1 if $_[$i] eq 'lib';
+            $warn_or_die = 2 if $_[$i] eq 'only';
+            $i++;
+        } else {
+            push @a, $_[$i];
+        }
+    }
+    # any non :constant stuff is handled by our parent, Exporter
+    if (@a > 0) {
+        require Exporter;
+
+        $class->SUPER::import(@a);            # need it for subclasses
+        $class->export_to_level(1, $class, @a); # need it for MBF
+    }
+
+    # try to load core math lib
+    my @c = split /\s*,\s*/, $CALC;
+    foreach (@c) {
+        $_ =~ tr/a-zA-Z0-9://cd; # limit to sane characters
+    }
+    push @c, \'Calc'            # if all fail, try these
+      if $warn_or_die < 2;      # but not for "only"
+    $CALC = '';                 # signal error
+    foreach my $l (@c) {
+        # fallback libraries are "marked" as \'string', extract string if nec.
+        my $lib = $l;
+        $lib = $$l if ref($l);
+
+        next if ($lib || '') eq '';
+        $lib = 'Math::BigInt::'.$lib if $lib !~ /^Math::BigInt/i;
+        $lib =~ s/\.pm$//;
+        if ($] < 5.006) {
+            # Perl < 5.6.0 dies with "out of memory!" when eval("") and ':constant' is
+            # used in the same script, or eval("") inside import().
+            my @parts = split /::/, $lib; # Math::BigInt => Math BigInt
+            my $file = pop @parts;
+            $file .= '.pm';     # BigInt => BigInt.pm
+            require File::Spec;
+            $file = File::Spec->catfile (@parts, $file);
+            eval {
+                require "$file";
+                $lib->import(@c);
+            }
+        } else {
+            eval "use $lib qw/@c/;";
+        }
+        if ($@ eq '') {
+            my $ok = 1;
+            # loaded it ok, see if the api_version() is high enough
+            if ($lib->can('api_version') && $lib->api_version() >= 1.0) {
+                $ok = 0;
+                # api_version matches, check if it really provides anything we need
+                for my $method (qw/
+                                      one two ten
+                                      str num
+                                      add mul div sub dec inc
+                                      acmp len digit is_one is_zero is_even is_odd
+                                      is_two is_ten
+                                      zeros new copy check
+                                      from_hex from_oct from_bin as_hex as_bin as_oct
+                                      rsft lsft xor and or
+                                      mod sqrt root fac pow modinv modpow log_int gcd
+                                  /) {
+                    if (!$lib->can("_$method")) {
+                        if (($WARN{$lib} || 0) < 2) {
+                            Carp::carp("$lib is missing method '_$method'");
+                            $WARN{$lib} = 1; # still warn about the lib
+                        }
+                        $ok++;
+                        last;
+                    }
+                }
+            }
+            if ($ok == 0) {
+                $CALC = $lib;
+                if ($warn_or_die > 0 && ref($l)) {
+                    my $msg = "Math::BigInt: couldn't load specified"
+                            . " math lib(s), fallback to $lib";
+                    Carp::carp($msg)  if $warn_or_die == 1;
+                    Carp::croak($msg) if $warn_or_die == 2;
+                }
+                last;           # found a usable one, break
+            } else {
+                if (($WARN{$lib} || 0) < 2) {
+                    my $ver = eval "\$$lib\::VERSION" || 'unknown';
+                    Carp::carp("Cannot load outdated $lib v$ver, please upgrade");
+                    $WARN{$lib} = 2; # never warn again
+                }
+            }
+        }
+    }
+    if ($CALC eq '') {
+        if ($warn_or_die == 2) {
+            Carp::croak("Couldn't load specified math lib(s)" .
+                        " and fallback disallowed");
+        } else {
+            Carp::croak("Couldn't load any math lib(s), not even fallback to Calc.pm");
+        }
+    }
+
+    # notify callbacks
+    foreach my $class (keys %CALLBACKS) {
+        &{$CALLBACKS{$class}}($CALC);
+    }
+
+    # Fill $CAN with the results of $CALC->can(...) for emulating lower math lib
+    # functions
+
+    %CAN = ();
+    for my $method (qw/ signed_and signed_or signed_xor /) {
+        $CAN{$method} = $CALC->can("_$method") ? 1 : 0;
+    }
+
+    # import done
+}
+
+sub _register_callback {
+    my ($class, $callback) = @_;
+
+    if (ref($callback) ne 'CODE') {
+        Carp::croak("$callback is not a coderef");
+    }
+    $CALLBACKS{$class} = $callback;
+}
+
+sub _split_dec_string {
+    my $str = shift;
+
+    if ($str =~ s/
+                     ^
+
+                     # leading whitespace
+                     ( \s* )
+
+                     # optional sign
+                     ( [+-]? )
+
+                     # significand
+                     (
+                         \d+ (?: _ \d+ )*
+                         (?:
+                             \.
+                             (?: \d+ (?: _ \d+ )* )?
+                         )?
+                     |
+                         \.
+                         \d+ (?: _ \d+ )*
+                     )
+
+                     # optional exponent
+                     (?:
+                         [Ee]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     # trailing stuff
+                     ( \D .*? )?
+
+                     \z
+                 //x) {
+        my $leading         = $1;
+        my $significand_sgn = $2 || '+';
+        my $significand_abs = $3;
+        my $exponent_sgn    = $4 || '+';
+        my $exponent_abs    = $5 || '0';
+        my $trailing        = $6;
+
+        # Remove underscores and leading zeros.
+
+        $significand_abs =~ tr/_//d;
+        $exponent_abs    =~ tr/_//d;
+
+        $significand_abs =~ s/^0+(.)/$1/;
+        $exponent_abs    =~ s/^0+(.)/$1/;
+
+        # If the significand contains a dot, remove it and adjust the exponent
+        # accordingly. E.g., "1234.56789e+3" -> "123456789e-2"
+
+        my $idx = index $significand_abs, '.';
+        if ($idx > -1) {
+            $significand_abs =~ s/0+\z//;
+            substr($significand_abs, $idx, 1) = '';
+            my $exponent = $exponent_sgn . $exponent_abs;
+            $exponent .= $idx - CORE::length($significand_abs);
+            $exponent_abs = abs $exponent;
+            $exponent_sgn = $exponent < 0 ? '-' : '+';
+        }
+
+        return($leading,
+               $significand_sgn, $significand_abs,
+               $exponent_sgn, $exponent_abs,
+               $trailing);
+    }
+
+    return undef;
+}
+
+sub _split {
+    # input: num_str; output: undef for invalid or
+    # (\$mantissa_sign, \$mantissa_value, \$mantissa_fraction,
+    # \$exp_sign, \$exp_value)
+    # Internal, take apart a string and return the pieces.
+    # Strip leading/trailing whitespace, leading zeros, underscore and reject
+    # invalid input.
+    my $x = shift;
+
+    # strip white space at front, also extraneous leading zeros
+    $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g; # will not strip '  .2'
+    $x =~ s/^\s+//;                     # but this will
+    $x =~ s/\s+$//g;                    # strip white space at end
+
+    # shortcut, if nothing to split, return early
+    if ($x =~ /^[+-]?[0-9]+\z/) {
+        $x =~ s/^([+-])0*([0-9])/$2/;
+        my $sign = $1 || '+';
+        return (\$sign, \$x, \'', \'', \0);
+    }
+
+    # invalid starting char?
+    return if $x !~ /^[+-]?(\.?[0-9]|0b[0-1]|0x[0-9a-fA-F])/;
+
+    return Math::BigInt->from_hex($x) if $x =~ /^[+-]?0x/; # hex string
+    return Math::BigInt->from_bin($x) if $x =~ /^[+-]?0b/; # binary string
+
+    # strip underscores between digits
+    $x =~ s/([0-9])_([0-9])/$1$2/g;
+    $x =~ s/([0-9])_([0-9])/$1$2/g; # do twice for 1_2_3
+
+    # some possible inputs:
+    # 2.1234 # 0.12        # 1          # 1E1 # 2.134E1 # 434E-10 # 1.02009E-2
+    # .2     # 1_2_3.4_5_6 # 1.4E1_2_3  # 1e3 # +.2     # 0e999
+
+    my ($m, $e, $last) = split /[Ee]/, $x;
+    return if defined $last;    # last defined => 1e2E3 or others
+    $e = '0' if !defined $e || $e eq "";
+
+    # sign, value for exponent, mantint, mantfrac
+    my ($es, $ev, $mis, $miv, $mfv);
+    # valid exponent?
+    if ($e =~ /^([+-]?)0*([0-9]+)$/) # strip leading zeros
+    {
+        $es = $1;
+        $ev = $2;
+        # valid mantissa?
+        return if $m eq '.' || $m eq '';
+        my ($mi, $mf, $lastf) = split /\./, $m;
+        return if defined $lastf; # lastf defined => 1.2.3 or others
+        $mi = '0' if !defined $mi;
+        $mi .= '0' if $mi =~ /^[\-\+]?$/;
+        $mf = '0' if !defined $mf || $mf eq '';
+        if ($mi =~ /^([+-]?)0*([0-9]+)$/) # strip leading zeros
+        {
+            $mis = $1 || '+';
+            $miv = $2;
+            return unless ($mf =~ /^([0-9]*?)0*$/); # strip trailing zeros
+            $mfv = $1;
+            # handle the 0e999 case here
+            $ev = 0 if $miv eq '0' && $mfv eq '';
+            return (\$mis, \$miv, \$mfv, \$es, \$ev);
+        }
+    }
+    return;                     # NaN, not a number
+}
+
+sub _trailing_zeros {
+    # return the amount of trailing zeros in $x (as scalar)
+    my $x = shift;
+    $x = $class->new($x) unless ref $x;
+
+    return 0 if $x->{sign} !~ /^[+-]$/; # NaN, inf, -inf etc
+
+    $CALC->_zeros($x->{value}); # must handle odd values, 0 etc
+}
+
+sub _scan_for_nonzero {
+    # internal, used by bround() to scan for non-zeros after a '5'
+    my ($x, $pad, $xs, $len) = @_;
+
+    return 0 if $len == 1;      # "5" is trailed by invisible zeros
+    my $follow = $pad - 1;
+    return 0 if $follow > $len || $follow < 1;
+
+    # use the string form to check whether only '0's follow or not
+    substr ($xs, -$follow) =~ /[^0]/ ? 1 : 0;
+}
+
+sub _find_round_parameters {
+    # After any operation or when calling round(), the result is rounded by
+    # regarding the A & P from arguments, local parameters, or globals.
+
+    # !!!!!!! If you change this, remember to change round(), too! !!!!!!!!!!
+
+    # This procedure finds the round parameters, but it is for speed reasons
+    # duplicated in round. Otherwise, it is tested by the testsuite and used
+    # by bdiv().
+
+    # returns ($self) or ($self, $a, $p, $r) - sets $self to NaN of both A and P
+    # were requested/defined (locally or globally or both)
+
+    my ($self, $a, $p, $r, @args) = @_;
+    # $a accuracy, if given by caller
+    # $p precision, if given by caller
+    # $r round_mode, if given by caller
+    # @args all 'other' arguments (0 for unary, 1 for binary ops)
+
+    my $class = ref($self);       # find out class of argument(s)
+    no strict 'refs';
+
+    # convert to normal scalar for speed and correctness in inner parts
+    $a = $a->can('numify') ? $a->numify() : "$a" if defined $a && ref($a);
+    $p = $p->can('numify') ? $p->numify() : "$p" if defined $p && ref($p);
+
+    # now pick $a or $p, but only if we have got "arguments"
+    if (!defined $a) {
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is smaller
+            $a = $_->{_a} if (defined $_->{_a}) && (!defined $a || $_->{_a} < $a);
+        }
+    }
+    if (!defined $p) {
+        # even if $a is defined, take $p, to signal error for both defined
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is bigger
+            # -2 > -3, and 3 > 2
+            $p = $_->{_p} if (defined $_->{_p}) && (!defined $p || $_->{_p} > $p);
+        }
+    }
+
+    # if still none defined, use globals (#2)
+    $a = ${"$class\::accuracy"}  unless defined $a;
+    $p = ${"$class\::precision"} unless defined $p;
+
+    # A == 0 is useless, so undef it to signal no rounding
+    $a = undef if defined $a && $a == 0;
+
+    # no rounding today?
+    return ($self) unless defined $a || defined $p; # early out
+
+    # set A and set P is an fatal error
+    return ($self->bnan()) if defined $a && defined $p; # error
+
+    $r = ${"$class\::round_mode"} unless defined $r;
+    if ($r !~ /^(even|odd|[+-]inf|zero|trunc|common)$/) {
+        Carp::croak("Unknown round mode '$r'");
+    }
+
+    $a = int($a) if defined $a;
+    $p = int($p) if defined $p;
+
+    ($self, $a, $p, $r);
+}
+
+###############################################################################
+# this method returns 0 if the object can be modified, or 1 if not.
+# We use a fast constant sub() here, to avoid costly calls. Subclasses
+# may override it with special code (f.i. Math::BigInt::Constant does so)
+
+sub modify () { 0; }
+
+1;
+
+__END__
+
+#
+# Complex numbers and associated mathematical functions
+# -- Raphael Manfredi	Since Sep 1996
+# -- Jarkko Hietaniemi	Since Mar 1997
+# -- Daniel S. Lewart	Since Sep 1997
+#
+
+package Math::Complex;
+
+{ use 5.006; }
+use strict;
+
+our $VERSION = 1.59_01;
+
+use Config;
+
+our ($Inf, $ExpInf);
+our ($vax_float, $has_inf, $has_nan);
+
+BEGIN {
+    $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
+    $has_inf   = !$vax_float;
+    $has_nan   = !$vax_float;
+
+    unless ($has_inf) {
+      # For example in vax, there is no Inf,
+      # and just mentioning the DBL_MAX (1.70141183460469229e+38)
+      # causes SIGFPE.
+
+      # These are pretty useless without a real infinity,
+      # but setting them makes for less warnings about their
+      # undefined values.
+      $Inf = "Inf";
+      $ExpInf = "Inf";
+      return;
+    }
+
+    my %DBL_MAX =  # These are IEEE 754 maxima.
+	(
+	  4  => '1.70141183460469229e+38',
+	  8  => '1.7976931348623157e+308',
+	 # AFAICT the 10, 12, and 16-byte long doubles
+	 # all have the same maximum.
+	 10 => '1.1897314953572317650857593266280070162E+4932',
+	 12 => '1.1897314953572317650857593266280070162E+4932',
+	 16 => '1.1897314953572317650857593266280070162E+4932',
+	);
+
+    my $nvsize = $Config{nvsize} ||
+	        ($Config{uselongdouble} && $Config{longdblsize}) ||
+                 $Config{doublesize};
+    die "Math::Complex: Could not figure out nvsize\n"
+	unless defined $nvsize;
+    die "Math::Complex: Cannot not figure out max nv (nvsize = $nvsize)\n"
+	unless defined $DBL_MAX{$nvsize};
+    my $DBL_MAX = eval $DBL_MAX{$nvsize};
+    die "Math::Complex: Could not figure out max nv (nvsize = $nvsize)\n"
+	unless defined $DBL_MAX;
+    my $BIGGER_THAN_THIS = 1e30;  # Must find something bigger than this.
+    if ($^O eq 'unicosmk') {
+	$Inf = $DBL_MAX;
+    } else {
+	local $SIG{FPE} = sub { };
+        local $!;
+	# We do want an arithmetic overflow, Inf INF inf Infinity.
+	for my $t (
+	    'exp(99999)',  # Enough even with 128-bit long doubles.
+	    'inf',
+	    'Inf',
+	    'INF',
+	    'infinity',
+	    'Infinity',
+	    'INFINITY',
+	    '1e99999',
+	    ) {
+	    local $^W = 0;
+	    my $i = eval "$t+1.0";
+	    if (defined $i && $i > $BIGGER_THAN_THIS) {
+		$Inf = $i;
+		last;
+	    }
+          }
+	$Inf = $DBL_MAX unless defined $Inf;  # Oh well, close enough.
+	die "Math::Complex: Could not get Infinity"
+	    unless $Inf > $BIGGER_THAN_THIS;
+	$ExpInf = eval 'exp(99999)';
+      }
+    # print "# On this machine, Inf = '$Inf'\n";
+}
+
+use Scalar::Util qw(set_prototype);
+
+use warnings;
+no warnings 'syntax';  # To avoid the (_) warnings.
+
+BEGIN {
+    # For certain functions that we override, in 5.10 or better
+    # we can set a smarter prototype that will handle the lexical $_
+    # (also a 5.10+ feature).
+    if ($] >= 5.010000) {
+        set_prototype \&abs, '_';
+        set_prototype \&cos, '_';
+        set_prototype \&exp, '_';
+        set_prototype \&log, '_';
+        set_prototype \&sin, '_';
+        set_prototype \&sqrt, '_';
+    }
+}
+
+my $i;
+my %LOGN;
+
+# Regular expression for floating point numbers.
+# These days we could use Scalar::Util::lln(), I guess.
+my $gre = qr'\s*([\+\-]?(?:(?:(?:\d+(?:_\d+)*(?:\.\d*(?:_\d+)*)?|\.\d+(?:_\d+)*)(?:[eE][\+\-]?\d+(?:_\d+)*)?))|inf)'i;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+my @trig = qw(
+	      pi
+	      tan
+	      csc cosec sec cot cotan
+	      asin acos atan
+	      acsc acosec asec acot acotan
+	      sinh cosh tanh
+	      csch cosech sech coth cotanh
+	      asinh acosh atanh
+	      acsch acosech asech acoth acotanh
+	     );
+
+our @EXPORT = (qw(
+	     i Re Im rho theta arg
+	     sqrt log ln
+	     log10 logn cbrt root
+	     cplx cplxe
+	     atan2
+	     ),
+	   @trig);
+
+my @pi = qw(pi pi2 pi4 pip2 pip4 Inf);
+
+our @EXPORT_OK = @pi;
+
+our %EXPORT_TAGS = (
+    'trig' => [@trig],
+    'pi' => [@pi],
+);
+
+use overload
+	'='	=> \&_copy,
+	'+='	=> \&_plus,
+	'+'	=> \&_plus,
+	'-='	=> \&_minus,
+	'-'	=> \&_minus,
+	'*='	=> \&_multiply,
+	'*'	=> \&_multiply,
+	'/='	=> \&_divide,
+	'/'	=> \&_divide,
+	'**='	=> \&_power,
+	'**'	=> \&_power,
+	'=='	=> \&_numeq,
+	'<=>'	=> \&_spaceship,
+	'neg'	=> \&_negate,
+	'~'	=> \&_conjugate,
+	'abs'	=> \&abs,
+	'sqrt'	=> \&sqrt,
+	'exp'	=> \&exp,
+	'log'	=> \&log,
+	'sin'	=> \&sin,
+	'cos'	=> \&cos,
+	'atan2'	=> \&atan2,
+        '""'    => \&_stringify;
+
+#
+# Package "privates"
+#
+
+my %DISPLAY_FORMAT = ('style' => 'cartesian',
+		      'polar_pretty_print' => 1);
+my $eps            = 1e-14;		# Epsilon
+
+#
+# Object attributes (internal):
+#	cartesian	[real, imaginary] -- cartesian form
+#	polar		[rho, theta] -- polar form
+#	c_dirty		cartesian form not up-to-date
+#	p_dirty		polar form not up-to-date
+#	display		display format (package's global when not set)
+#
+
+# Die on bad *make() arguments.
+
+sub _cannot_make {
+    die "@{[(caller(1))[3]]}: Cannot take $_[0] of '$_[1]'.\n";
+}
+
+sub _make {
+    my $arg = shift;
+    my ($p, $q);
+
+    if ($arg =~ /^$gre$/) {
+	($p, $q) = ($1, 0);
+    } elsif ($arg =~ /^(?:$gre)?$gre\s*i\s*$/) {
+	($p, $q) = ($1 || 0, $2);
+    } elsif ($arg =~ /^\s*\(\s*$gre\s*(?:,\s*$gre\s*)?\)\s*$/) {
+	($p, $q) = ($1, $2 || 0);
+    }
+
+    if (defined $p) {
+	$p =~ s/^\+//;
+	$p =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf;
+	$q =~ s/^\+//;
+	$q =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf;
+    }
+
+    return ($p, $q);
+}
+
+sub _emake {
+    my $arg = shift;
+    my ($p, $q);
+
+    if ($arg =~ /^\s*\[\s*$gre\s*(?:,\s*$gre\s*)?\]\s*$/) {
+	($p, $q) = ($1, $2 || 0);
+    } elsif ($arg =~ m!^\s*\[\s*$gre\s*(?:,\s*([-+]?\d*\s*)?pi(?:/\s*(\d+))?\s*)?\]\s*$!) {
+	($p, $q) = ($1, ($2 eq '-' ? -1 : ($2 || 1)) * pi() / ($3 || 1));
+    } elsif ($arg =~ /^\s*\[\s*$gre\s*\]\s*$/) {
+	($p, $q) = ($1, 0);
+    } elsif ($arg =~ /^\s*$gre\s*$/) {
+	($p, $q) = ($1, 0);
+    }
+
+    if (defined $p) {
+	$p =~ s/^\+//;
+	$q =~ s/^\+//;
+	$p =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf;
+	$q =~ s/^(-?)inf$/"${1}9**9**9"/e if $has_inf;
+    }
+
+    return ($p, $q);
+}
+
+sub _copy {
+    my $self = shift;
+    my $clone = {%$self};
+    if ($self->{'cartesian'}) {
+	$clone->{'cartesian'} = [@{$self->{'cartesian'}}];
+    }
+    if ($self->{'polar'}) {
+	$clone->{'polar'} = [@{$self->{'polar'}}];
+    }
+    bless $clone,__PACKAGE__;
+    return $clone;
+}
+
+#
+# ->make
+#
+# Create a new complex number (cartesian form)
+#
+sub make {
+    my $self = bless {}, shift;
+    my ($re, $im);
+    if (@_ == 0) {
+	($re, $im) = (0, 0);
+    } elsif (@_ == 1) {
+	return (ref $self)->emake($_[0])
+	    if ($_[0] =~ /^\s*\[/);
+	($re, $im) = _make($_[0]);
+    } elsif (@_ == 2) {
+	($re, $im) = @_;
+    }
+    if (defined $re) {
+	_cannot_make("real part",      $re) unless $re =~ /^$gre$/;
+    }
+    $im ||= 0;
+    _cannot_make("imaginary part", $im) unless $im =~ /^$gre$/;
+    $self->_set_cartesian([$re, $im ]);
+    $self->display_format('cartesian');
+
+    return $self;
+}
+
+#
+# ->emake
+#
+# Create a new complex number (exponential form)
+#
+sub emake {
+    my $self = bless {}, shift;
+    my ($rho, $theta);
+    if (@_ == 0) {
+	($rho, $theta) = (0, 0);
+    } elsif (@_ == 1) {
+	return (ref $self)->make($_[0])
+	    if ($_[0] =~ /^\s*\(/ || $_[0] =~ /i\s*$/);
+	($rho, $theta) = _emake($_[0]);
+    } elsif (@_ == 2) {
+	($rho, $theta) = @_;
+    }
+    if (defined $rho && defined $theta) {
+	if ($rho < 0) {
+	    $rho   = -$rho;
+	    $theta = ($theta <= 0) ? $theta + pi() : $theta - pi();
+	}
+    }
+    if (defined $rho) {
+	_cannot_make("rho",   $rho)   unless $rho   =~ /^$gre$/;
+    }
+    $theta ||= 0;
+    _cannot_make("theta", $theta) unless $theta =~ /^$gre$/;
+    $self->_set_polar([$rho, $theta]);
+    $self->display_format('polar');
+
+    return $self;
+}
+
+sub new { &make }		# For backward compatibility only.
+
+#
+# cplx
+#
+# Creates a complex number from a (re, im) tuple.
+# This avoids the burden of writing Math::Complex->make(re, im).
+#
+sub cplx {
+	return __PACKAGE__->make(@_);
+}
+
+#
+# cplxe
+#
+# Creates a complex number from a (rho, theta) tuple.
+# This avoids the burden of writing Math::Complex->emake(rho, theta).
+#
+sub cplxe {
+	return __PACKAGE__->emake(@_);
+}
+
+#
+# pi
+#
+# The number defined as pi = 180 degrees
+#
+sub pi () { 4 * CORE::atan2(1, 1) }
+
+#
+# pi2
+#
+# The full circle
+#
+sub pi2 () { 2 * pi }
+
+#
+# pi4
+#
+# The full circle twice.
+#
+sub pi4 () { 4 * pi }
+
+#
+# pip2
+#
+# The quarter circle
+#
+sub pip2 () { pi / 2 }
+
+#
+# pip4
+#
+# The eighth circle.
+#
+sub pip4 () { pi / 4 }
+
+#
+# _uplog10
+#
+# Used in log10().
+#
+sub _uplog10 () { 1 / CORE::log(10) }
+
+#
+# i
+#
+# The number defined as i*i = -1;
+#
+sub i () {
+        return $i if ($i);
+	$i = bless {};
+	$i->{'cartesian'} = [0, 1];
+	$i->{'polar'}     = [1, pip2];
+	$i->{c_dirty} = 0;
+	$i->{p_dirty} = 0;
+	return $i;
+}
+
+#
+# _ip2
+#
+# Half of i.
+#
+sub _ip2 () { i / 2 }
+
+#
+# Attribute access/set routines
+#
+
+sub _cartesian {$_[0]->{c_dirty} ?
+		   $_[0]->_update_cartesian : $_[0]->{'cartesian'}}
+sub _polar     {$_[0]->{p_dirty} ?
+		   $_[0]->_update_polar : $_[0]->{'polar'}}
+
+sub _set_cartesian { $_[0]->{p_dirty}++; $_[0]->{c_dirty} = 0;
+		     $_[0]->{'cartesian'} = $_[1] }
+sub _set_polar     { $_[0]->{c_dirty}++; $_[0]->{p_dirty} = 0;
+		     $_[0]->{'polar'} = $_[1] }
+
+#
+# ->_update_cartesian
+#
+# Recompute and return the cartesian form, given accurate polar form.
+#
+sub _update_cartesian {
+	my $self = shift;
+	my ($r, $t) = @{$self->{'polar'}};
+	$self->{c_dirty} = 0;
+	return $self->{'cartesian'} = [$r * CORE::cos($t), $r * CORE::sin($t)];
+}
+
+#
+#
+# ->_update_polar
+#
+# Recompute and return the polar form, given accurate cartesian form.
+#
+sub _update_polar {
+	my $self = shift;
+	my ($x, $y) = @{$self->{'cartesian'}};
+	$self->{p_dirty} = 0;
+	return $self->{'polar'} = [0, 0] if $x == 0 && $y == 0;
+	return $self->{'polar'} = [CORE::sqrt($x*$x + $y*$y),
+				   CORE::atan2($y, $x)];
+}
+
+#
+# (_plus)
+#
+# Computes z1+z2.
+#
+sub _plus {
+	my ($z1, $z2, $regular) = @_;
+	my ($re1, $im1) = @{$z1->_cartesian};
+	$z2 = cplx($z2) unless ref $z2;
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	unless (defined $regular) {
+		$z1->_set_cartesian([$re1 + $re2, $im1 + $im2]);
+		return $z1;
+	}
+	return (ref $z1)->make($re1 + $re2, $im1 + $im2);
+}
+
+#
+# (_minus)
+#
+# Computes z1-z2.
+#
+sub _minus {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = @{$z1->_cartesian};
+	$z2 = cplx($z2) unless ref $z2;
+	my ($re2, $im2) = @{$z2->_cartesian};
+	unless (defined $inverted) {
+		$z1->_set_cartesian([$re1 - $re2, $im1 - $im2]);
+		return $z1;
+	}
+	return $inverted ?
+		(ref $z1)->make($re2 - $re1, $im2 - $im1) :
+		(ref $z1)->make($re1 - $re2, $im1 - $im2);
+
+}
+
+#
+# (_multiply)
+#
+# Computes z1*z2.
+#
+sub _multiply {
+        my ($z1, $z2, $regular) = @_;
+	if ($z1->{p_dirty} == 0 and ref $z2 and $z2->{p_dirty} == 0) {
+	    # if both polar better use polar to avoid rounding errors
+	    my ($r1, $t1) = @{$z1->_polar};
+	    my ($r2, $t2) = @{$z2->_polar};
+	    my $t = $t1 + $t2;
+	    if    ($t >   pi()) { $t -= pi2 }
+	    elsif ($t <= -pi()) { $t += pi2 }
+	    unless (defined $regular) {
+		$z1->_set_polar([$r1 * $r2, $t]);
+		return $z1;
+	    }
+	    return (ref $z1)->emake($r1 * $r2, $t);
+	} else {
+	    my ($x1, $y1) = @{$z1->_cartesian};
+	    if (ref $z2) {
+		my ($x2, $y2) = @{$z2->_cartesian};
+		return (ref $z1)->make($x1*$x2-$y1*$y2, $x1*$y2+$y1*$x2);
+	    } else {
+		return (ref $z1)->make($x1*$z2, $y1*$z2);
+	    }
+	}
+}
+
+#
+# _divbyzero
+#
+# Die on division by zero.
+#
+sub _divbyzero {
+    my $mess = "$_[0]: Division by zero.\n";
+
+    if (defined $_[1]) {
+	$mess .= "(Because in the definition of $_[0], the divisor ";
+	$mess .= "$_[1] " unless ("$_[1]" eq '0');
+	$mess .= "is 0)\n";
+    }
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# (_divide)
+#
+# Computes z1/z2.
+#
+sub _divide {
+	my ($z1, $z2, $inverted) = @_;
+	if ($z1->{p_dirty} == 0 and ref $z2 and $z2->{p_dirty} == 0) {
+	    # if both polar better use polar to avoid rounding errors
+	    my ($r1, $t1) = @{$z1->_polar};
+	    my ($r2, $t2) = @{$z2->_polar};
+	    my $t;
+	    if ($inverted) {
+		_divbyzero "$z2/0" if ($r1 == 0);
+		$t = $t2 - $t1;
+		if    ($t >   pi()) { $t -= pi2 }
+		elsif ($t <= -pi()) { $t += pi2 }
+		return (ref $z1)->emake($r2 / $r1, $t);
+	    } else {
+		_divbyzero "$z1/0" if ($r2 == 0);
+		$t = $t1 - $t2;
+		if    ($t >   pi()) { $t -= pi2 }
+		elsif ($t <= -pi()) { $t += pi2 }
+		return (ref $z1)->emake($r1 / $r2, $t);
+	    }
+	} else {
+	    my ($d, $x2, $y2);
+	    if ($inverted) {
+		($x2, $y2) = @{$z1->_cartesian};
+		$d = $x2*$x2 + $y2*$y2;
+		_divbyzero "$z2/0" if $d == 0;
+		return (ref $z1)->make(($x2*$z2)/$d, -($y2*$z2)/$d);
+	    } else {
+		my ($x1, $y1) = @{$z1->_cartesian};
+		if (ref $z2) {
+		    ($x2, $y2) = @{$z2->_cartesian};
+		    $d = $x2*$x2 + $y2*$y2;
+		    _divbyzero "$z1/0" if $d == 0;
+		    my $u = ($x1*$x2 + $y1*$y2)/$d;
+		    my $v = ($y1*$x2 - $x1*$y2)/$d;
+		    return (ref $z1)->make($u, $v);
+		} else {
+		    _divbyzero "$z1/0" if $z2 == 0;
+		    return (ref $z1)->make($x1/$z2, $y1/$z2);
+		}
+	    }
+	}
+}
+
+#
+# (_power)
+#
+# Computes z1**z2 = exp(z2 * log z1)).
+#
+sub _power {
+	my ($z1, $z2, $inverted) = @_;
+	if ($inverted) {
+	    return 1 if $z1 == 0 || $z2 == 1;
+	    return 0 if $z2 == 0 && Re($z1) > 0;
+	} else {
+	    return 1 if $z2 == 0 || $z1 == 1;
+	    return 0 if $z1 == 0 && Re($z2) > 0;
+	}
+	my $w = $inverted ? &exp($z1 * &log($z2))
+	                  : &exp($z2 * &log($z1));
+	# If both arguments cartesian, return cartesian, else polar.
+	return $z1->{c_dirty} == 0 &&
+	       (not ref $z2 or $z2->{c_dirty} == 0) ?
+	       cplx(@{$w->_cartesian}) : $w;
+}
+
+#
+# (_spaceship)
+#
+# Computes z1 <=> z2.
+# Sorts on the real part first, then on the imaginary part. Thus 2-4i < 3+8i.
+#
+sub _spaceship {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	my $sgn = $inverted ? -1 : 1;
+	return $sgn * ($re1 <=> $re2) if $re1 != $re2;
+	return $sgn * ($im1 <=> $im2);
+}
+
+#
+# (_numeq)
+#
+# Computes z1 == z2.
+#
+# (Required in addition to _spaceship() because of NaNs.)
+sub _numeq {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	return $re1 == $re2 && $im1 == $im2 ? 1 : 0;
+}
+
+#
+# (_negate)
+#
+# Computes -z.
+#
+sub _negate {
+	my ($z) = @_;
+	if ($z->{c_dirty}) {
+		my ($r, $t) = @{$z->_polar};
+		$t = ($t <= 0) ? $t + pi : $t - pi;
+		return (ref $z)->emake($r, $t);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	return (ref $z)->make(-$re, -$im);
+}
+
+#
+# (_conjugate)
+#
+# Compute complex's _conjugate.
+#
+sub _conjugate {
+	my ($z) = @_;
+	if ($z->{c_dirty}) {
+		my ($r, $t) = @{$z->_polar};
+		return (ref $z)->emake($r, -$t);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	return (ref $z)->make($re, -$im);
+}
+
+#
+# (abs)
+#
+# Compute or set complex's norm (rho).
+#
+sub abs {
+	my ($z, $rho) = @_ ? @_ : $_;
+	unless (ref $z) {
+	    if (@_ == 2) {
+		$_[0] = $_[1];
+	    } else {
+		return CORE::abs($z);
+	    }
+	}
+	if (defined $rho) {
+	    $z->{'polar'} = [ $rho, ${$z->_polar}[1] ];
+	    $z->{p_dirty} = 0;
+	    $z->{c_dirty} = 1;
+	    return $rho;
+	} else {
+	    return ${$z->_polar}[0];
+	}
+}
+
+sub _theta {
+    my $theta = $_[0];
+
+    if    ($$theta >   pi()) { $$theta -= pi2 }
+    elsif ($$theta <= -pi()) { $$theta += pi2 }
+}
+
+#
+# arg
+#
+# Compute or set complex's argument (theta).
+#
+sub arg {
+	my ($z, $theta) = @_;
+	return $z unless ref $z;
+	if (defined $theta) {
+	    _theta(\$theta);
+	    $z->{'polar'} = [ ${$z->_polar}[0], $theta ];
+	    $z->{p_dirty} = 0;
+	    $z->{c_dirty} = 1;
+	} else {
+	    $theta = ${$z->_polar}[1];
+	    _theta(\$theta);
+	}
+	return $theta;
+}
+
+#
+# (sqrt)
+#
+# Compute sqrt(z).
+#
+# It is quite tempting to use wantarray here so that in list context
+# sqrt() would return the two solutions.  This, however, would
+# break things like
+#
+#	print "sqrt(z) = ", sqrt($z), "\n";
+#
+# The two values would be printed side by side without no intervening
+# whitespace, quite confusing.
+# Therefore if you want the two solutions use the root().
+#
+sub sqrt {
+	my ($z) = @_ ? $_[0] : $_;
+	my ($re, $im) = ref $z ? @{$z->_cartesian} : ($z, 0);
+	return $re < 0 ? cplx(0, CORE::sqrt(-$re)) : CORE::sqrt($re)
+	    if $im == 0;
+	my ($r, $t) = @{$z->_polar};
+	return (ref $z)->emake(CORE::sqrt($r), $t/2);
+}
+
+#
+# cbrt
+#
+# Compute cbrt(z) (cubic root).
+#
+# Why are we not returning three values?  The same answer as for sqrt().
+#
+sub cbrt {
+	my ($z) = @_;
+	return $z < 0 ?
+	    -CORE::exp(CORE::log(-$z)/3) :
+		($z > 0 ? CORE::exp(CORE::log($z)/3): 0)
+	    unless ref $z;
+	my ($r, $t) = @{$z->_polar};
+	return 0 if $r == 0;
+	return (ref $z)->emake(CORE::exp(CORE::log($r)/3), $t/3);
+}
+
+#
+# _rootbad
+#
+# Die on bad root.
+#
+sub _rootbad {
+    my $mess = "Root '$_[0]' illegal, root rank must be positive integer.\n";
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# root
+#
+# Computes all nth root for z, returning an array whose size is n.
+# `n' must be a positive integer.
+#
+# The roots are given by (for k = 0..n-1):
+#
+# z^(1/n) = r^(1/n) (cos ((t+2 k pi)/n) + i sin ((t+2 k pi)/n))
+#
+sub root {
+	my ($z, $n, $k) = @_;
+	_rootbad($n) if ($n < 1 or int($n) != $n);
+	my ($r, $t) = ref $z ?
+	    @{$z->_polar} : (CORE::abs($z), $z >= 0 ? 0 : pi);
+	my $theta_inc = pi2 / $n;
+	my $rho = $r ** (1/$n);
+	my $cartesian = ref $z && $z->{c_dirty} == 0;
+	if (@_ == 2) {
+	    my @root;
+	    for (my $i = 0, my $theta = $t / $n;
+		 $i < $n;
+		 $i++, $theta += $theta_inc) {
+		my $w = cplxe($rho, $theta);
+		# Yes, $cartesian is loop invariant.
+		push @root, $cartesian ? cplx(@{$w->_cartesian}) : $w;
+	    }
+	    return @root;
+	} elsif (@_ == 3) {
+	    my $w = cplxe($rho, $t / $n + $k * $theta_inc);
+	    return $cartesian ? cplx(@{$w->_cartesian}) : $w;
+	}
+}
+
+#
+# Re
+#
+# Return or set Re(z).
+#
+sub Re {
+	my ($z, $Re) = @_;
+	return $z unless ref $z;
+	if (defined $Re) {
+	    $z->{'cartesian'} = [ $Re, ${$z->_cartesian}[1] ];
+	    $z->{c_dirty} = 0;
+	    $z->{p_dirty} = 1;
+	} else {
+	    return ${$z->_cartesian}[0];
+	}
+}
+
+#
+# Im
+#
+# Return or set Im(z).
+#
+sub Im {
+	my ($z, $Im) = @_;
+	return 0 unless ref $z;
+	if (defined $Im) {
+	    $z->{'cartesian'} = [ ${$z->_cartesian}[0], $Im ];
+	    $z->{c_dirty} = 0;
+	    $z->{p_dirty} = 1;
+	} else {
+	    return ${$z->_cartesian}[1];
+	}
+}
+
+#
+# rho
+#
+# Return or set rho(w).
+#
+sub rho {
+    Math::Complex::abs(@_);
+}
+
+#
+# theta
+#
+# Return or set theta(w).
+#
+sub theta {
+    Math::Complex::arg(@_);
+}
+
+#
+# (exp)
+#
+# Computes exp(z).
+#
+sub exp {
+    my ($z) = @_ ? @_ : $_;
+    return CORE::exp($z) unless ref $z;
+    my ($x, $y) = @{$z->_cartesian};
+    return (ref $z)->emake(CORE::exp($x), $y);
+}
+
+#
+# _logofzero
+#
+# Die on logarithm of zero.
+#
+sub _logofzero {
+    my $mess = "$_[0]: Logarithm of zero.\n";
+
+    if (defined $_[1]) {
+	$mess .= "(Because in the definition of $_[0], the argument ";
+	$mess .= "$_[1] " unless ($_[1] eq '0');
+	$mess .= "is 0)\n";
+    }
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# (log)
+#
+# Compute log(z).
+#
+sub log {
+	my ($z) = @_ ? @_ : $_;
+	unless (ref $z) {
+	    _logofzero("log") if $z == 0;
+	    return $z > 0 ? CORE::log($z) : cplx(CORE::log(-$z), pi);
+	}
+	my ($r, $t) = @{$z->_polar};
+	_logofzero("log") if $r == 0;
+	if    ($t >   pi()) { $t -= pi2 }
+	elsif ($t <= -pi()) { $t += pi2 }
+	return (ref $z)->make(CORE::log($r), $t);
+}
+
+#
+# ln
+#
+# Alias for log().
+#
+sub ln { Math::Complex::log(@_) }
+
+#
+# log10
+#
+# Compute log10(z).
+#
+
+sub log10 {
+	return Math::Complex::log($_[0]) * _uplog10;
+}
+
+#
+# logn
+#
+# Compute logn(z,n) = log(z) / log(n)
+#
+sub logn {
+	my ($z, $n) = @_;
+	$z = cplx($z, 0) unless ref $z;
+	my $logn = $LOGN{$n};
+	$logn = $LOGN{$n} = CORE::log($n) unless defined $logn;	# Cache log(n)
+	return &log($z) / $logn;
+}
+
+#
+# (cos)
+#
+# Compute cos(z) = (exp(iz) + exp(-iz))/2.
+#
+sub cos {
+	my ($z) = @_ ? @_ : $_;
+	return CORE::cos($z) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	my $ey = CORE::exp($y);
+	my $sx = CORE::sin($x);
+	my $cx = CORE::cos($x);
+	my $ey_1 = $ey ? 1 / $ey : Inf();
+	return (ref $z)->make($cx * ($ey + $ey_1)/2,
+			      $sx * ($ey_1 - $ey)/2);
+}
+
+#
+# (sin)
+#
+# Compute sin(z) = (exp(iz) - exp(-iz))/2.
+#
+sub sin {
+	my ($z) = @_ ? @_ : $_;
+	return CORE::sin($z) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	my $ey = CORE::exp($y);
+	my $sx = CORE::sin($x);
+	my $cx = CORE::cos($x);
+	my $ey_1 = $ey ? 1 / $ey : Inf();
+	return (ref $z)->make($sx * ($ey + $ey_1)/2,
+			      $cx * ($ey - $ey_1)/2);
+}
+
+#
+# tan
+#
+# Compute tan(z) = sin(z) / cos(z).
+#
+sub tan {
+	my ($z) = @_;
+	my $cz = &cos($z);
+	_divbyzero "tan($z)", "cos($z)" if $cz == 0;
+	return &sin($z) / $cz;
+}
+
+#
+# sec
+#
+# Computes the secant sec(z) = 1 / cos(z).
+#
+sub sec {
+	my ($z) = @_;
+	my $cz = &cos($z);
+	_divbyzero "sec($z)", "cos($z)" if ($cz == 0);
+	return 1 / $cz;
+}
+
+#
+# csc
+#
+# Computes the cosecant csc(z) = 1 / sin(z).
+#
+sub csc {
+	my ($z) = @_;
+	my $sz = &sin($z);
+	_divbyzero "csc($z)", "sin($z)" if ($sz == 0);
+	return 1 / $sz;
+}
+
+#
+# cosec
+#
+# Alias for csc().
+#
+sub cosec { Math::Complex::csc(@_) }
+
+#
+# cot
+#
+# Computes cot(z) = cos(z) / sin(z).
+#
+sub cot {
+	my ($z) = @_;
+	my $sz = &sin($z);
+	_divbyzero "cot($z)", "sin($z)" if ($sz == 0);
+	return &cos($z) / $sz;
+}
+
+#
+# cotan
+#
+# Alias for cot().
+#
+sub cotan { Math::Complex::cot(@_) }
+
+#
+# acos
+#
+# Computes the arc cosine acos(z) = -i log(z + sqrt(z*z-1)).
+#
+sub acos {
+	my $z = $_[0];
+	return CORE::atan2(CORE::sqrt(1-$z*$z), $z)
+	    if (! ref $z) && CORE::abs($z) <= 1;
+	$z = cplx($z, 0) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	return 0 if $x == 1 && $y == 0;
+	my $t1 = CORE::sqrt(($x+1)*($x+1) + $y*$y);
+	my $t2 = CORE::sqrt(($x-1)*($x-1) + $y*$y);
+	my $alpha = ($t1 + $t2)/2;
+	my $beta  = ($t1 - $t2)/2;
+	$alpha = 1 if $alpha < 1;
+	if    ($beta >  1) { $beta =  1 }
+	elsif ($beta < -1) { $beta = -1 }
+	my $u = CORE::atan2(CORE::sqrt(1-$beta*$beta), $beta);
+	my $v = CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
+	$v = -$v if $y > 0 || ($y == 0 && $x < -1);
+	return (ref $z)->make($u, $v);
+}
+
+#
+# asin
+#
+# Computes the arc sine asin(z) = -i log(iz + sqrt(1-z*z)).
+#
+sub asin {
+	my $z = $_[0];
+	return CORE::atan2($z, CORE::sqrt(1-$z*$z))
+	    if (! ref $z) && CORE::abs($z) <= 1;
+	$z = cplx($z, 0) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	return 0 if $x == 0 && $y == 0;
+	my $t1 = CORE::sqrt(($x+1)*($x+1) + $y*$y);
+	my $t2 = CORE::sqrt(($x-1)*($x-1) + $y*$y);
+	my $alpha = ($t1 + $t2)/2;
+	my $beta  = ($t1 - $t2)/2;
+	$alpha = 1 if $alpha < 1;
+	if    ($beta >  1) { $beta =  1 }
+	elsif ($beta < -1) { $beta = -1 }
+	my $u =  CORE::atan2($beta, CORE::sqrt(1-$beta*$beta));
+	my $v = -CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
+	$v = -$v if $y > 0 || ($y == 0 && $x < -1);
+	return (ref $z)->make($u, $v);
+}
+
+#
+# atan
+#
+# Computes the arc tangent atan(z) = i/2 log((i+z) / (i-z)).
+#
+sub atan {
+	my ($z) = @_;
+	return CORE::atan2($z, 1) unless ref $z;
+	my ($x, $y) = ref $z ? @{$z->_cartesian} : ($z, 0);
+	return 0 if $x == 0 && $y == 0;
+	_divbyzero "atan(i)"  if ( $z == i);
+	_logofzero "atan(-i)" if (-$z == i); # -i is a bad file test...
+	my $log = &log((i + $z) / (i - $z));
+	return _ip2 * $log;
+}
+
+#
+# asec
+#
+# Computes the arc secant asec(z) = acos(1 / z).
+#
+sub asec {
+	my ($z) = @_;
+	_divbyzero "asec($z)", $z if ($z == 0);
+	return acos(1 / $z);
+}
+
+#
+# acsc
+#
+# Computes the arc cosecant acsc(z) = asin(1 / z).
+#
+sub acsc {
+	my ($z) = @_;
+	_divbyzero "acsc($z)", $z if ($z == 0);
+	return asin(1 / $z);
+}
+
+#
+# acosec
+#
+# Alias for acsc().
+#
+sub acosec { Math::Complex::acsc(@_) }
+
+#
+# acot
+#
+# Computes the arc cotangent acot(z) = atan(1 / z)
+#
+sub acot {
+	my ($z) = @_;
+	_divbyzero "acot(0)"  if $z == 0;
+	return ($z >= 0) ? CORE::atan2(1, $z) : CORE::atan2(-1, -$z)
+	    unless ref $z;
+	_divbyzero "acot(i)"  if ($z - i == 0);
+	_logofzero "acot(-i)" if ($z + i == 0);
+	return atan(1 / $z);
+}
+
+#
+# acotan
+#
+# Alias for acot().
+#
+sub acotan { Math::Complex::acot(@_) }
+
+#
+# cosh
+#
+# Computes the hyperbolic cosine cosh(z) = (exp(z) + exp(-z))/2.
+#
+sub cosh {
+	my ($z) = @_;
+	my $ex;
+	unless (ref $z) {
+	    $ex = CORE::exp($z);
+            return $ex ? ($ex == $ExpInf ? Inf() : ($ex + 1/$ex)/2) : Inf();
+	}
+	my ($x, $y) = @{$z->_cartesian};
+	$ex = CORE::exp($x);
+	my $ex_1 = $ex ? 1 / $ex : Inf();
+	return (ref $z)->make(CORE::cos($y) * ($ex + $ex_1)/2,
+			      CORE::sin($y) * ($ex - $ex_1)/2);
+}
+
+#
+# sinh
+#
+# Computes the hyperbolic sine sinh(z) = (exp(z) - exp(-z))/2.
+#
+sub sinh {
+	my ($z) = @_;
+	my $ex;
+	unless (ref $z) {
+	    return 0 if $z == 0;
+	    $ex = CORE::exp($z);
+            return $ex ? ($ex == $ExpInf ? Inf() : ($ex - 1/$ex)/2) : -Inf();
+	}
+	my ($x, $y) = @{$z->_cartesian};
+	my $cy = CORE::cos($y);
+	my $sy = CORE::sin($y);
+	$ex = CORE::exp($x);
+	my $ex_1 = $ex ? 1 / $ex : Inf();
+	return (ref $z)->make(CORE::cos($y) * ($ex - $ex_1)/2,
+			      CORE::sin($y) * ($ex + $ex_1)/2);
+}
+
+#
+# tanh
+#
+# Computes the hyperbolic tangent tanh(z) = sinh(z) / cosh(z).
+#
+sub tanh {
+	my ($z) = @_;
+	my $cz = cosh($z);
+	_divbyzero "tanh($z)", "cosh($z)" if ($cz == 0);
+	my $sz = sinh($z);
+	return  1 if $cz ==  $sz;
+	return -1 if $cz == -$sz;
+	return $sz / $cz;
+}
+
+#
+# sech
+#
+# Computes the hyperbolic secant sech(z) = 1 / cosh(z).
+#
+sub sech {
+	my ($z) = @_;
+	my $cz = cosh($z);
+	_divbyzero "sech($z)", "cosh($z)" if ($cz == 0);
+	return 1 / $cz;
+}
+
+#
+# csch
+#
+# Computes the hyperbolic cosecant csch(z) = 1 / sinh(z).
+#
+sub csch {
+	my ($z) = @_;
+	my $sz = sinh($z);
+	_divbyzero "csch($z)", "sinh($z)" if ($sz == 0);
+	return 1 / $sz;
+}
+
+#
+# cosech
+#
+# Alias for csch().
+#
+sub cosech { Math::Complex::csch(@_) }
+
+#
+# coth
+#
+# Computes the hyperbolic cotangent coth(z) = cosh(z) / sinh(z).
+#
+sub coth {
+	my ($z) = @_;
+	my $sz = sinh($z);
+	_divbyzero "coth($z)", "sinh($z)" if $sz == 0;
+	my $cz = cosh($z);
+	return  1 if $cz ==  $sz;
+	return -1 if $cz == -$sz;
+	return $cz / $sz;
+}
+
+#
+# cotanh
+#
+# Alias for coth().
+#
+sub cotanh { Math::Complex::coth(@_) }
+
+#
+# acosh
+#
+# Computes the area/inverse hyperbolic cosine acosh(z) = log(z + sqrt(z*z-1)).
+#
+sub acosh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    $z = cplx($z, 0);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	if ($im == 0) {
+	    return CORE::log($re + CORE::sqrt($re*$re - 1))
+		if $re >= 1;
+	    return cplx(0, CORE::atan2(CORE::sqrt(1 - $re*$re), $re))
+		if CORE::abs($re) < 1;
+	}
+	my $t = &sqrt($z * $z - 1) + $z;
+	# Try Taylor if looking bad (this usually means that
+	# $z was large negative, therefore the sqrt is really
+	# close to abs(z), summing that with z...)
+	$t = 1/(2 * $z) - 1/(8 * $z**3) + 1/(16 * $z**5) - 5/(128 * $z**7)
+	    if $t == 0;
+	my $u = &log($t);
+	$u->Im(-$u->Im) if $re < 0 && $im == 0;
+	return $re < 0 ? -$u : $u;
+}
+
+#
+# asinh
+#
+# Computes the area/inverse hyperbolic sine asinh(z) = log(z + sqrt(z*z+1))
+#
+sub asinh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    my $t = $z + CORE::sqrt($z*$z + 1);
+	    return CORE::log($t) if $t;
+	}
+	my $t = &sqrt($z * $z + 1) + $z;
+	# Try Taylor if looking bad (this usually means that
+	# $z was large negative, therefore the sqrt is really
+	# close to abs(z), summing that with z...)
+	$t = 1/(2 * $z) - 1/(8 * $z**3) + 1/(16 * $z**5) - 5/(128 * $z**7)
+	    if $t == 0;
+	return &log($t);
+}
+
+#
+# atanh
+#
+# Computes the area/inverse hyperbolic tangent atanh(z) = 1/2 log((1+z) / (1-z)).
+#
+sub atanh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    return CORE::log((1 + $z)/(1 - $z))/2 if CORE::abs($z) < 1;
+	    $z = cplx($z, 0);
+	}
+	_divbyzero 'atanh(1)',  "1 - $z" if (1 - $z == 0);
+	_logofzero 'atanh(-1)'           if (1 + $z == 0);
+	return 0.5 * &log((1 + $z) / (1 - $z));
+}
+
+#
+# asech
+#
+# Computes the area/inverse hyperbolic secant asech(z) = acosh(1 / z).
+#
+sub asech {
+	my ($z) = @_;
+	_divbyzero 'asech(0)', "$z" if ($z == 0);
+	return acosh(1 / $z);
+}
+
+#
+# acsch
+#
+# Computes the area/inverse hyperbolic cosecant acsch(z) = asinh(1 / z).
+#
+sub acsch {
+	my ($z) = @_;
+	_divbyzero 'acsch(0)', $z if ($z == 0);
+	return asinh(1 / $z);
+}
+
+#
+# acosech
+#
+# Alias for acosh().
+#
+sub acosech { Math::Complex::acsch(@_) }
+
+#
+# acoth
+#
+# Computes the area/inverse hyperbolic cotangent acoth(z) = 1/2 log((1+z) / (z-1)).
+#
+sub acoth {
+	my ($z) = @_;
+	_divbyzero 'acoth(0)'            if ($z == 0);
+	unless (ref $z) {
+	    return CORE::log(($z + 1)/($z - 1))/2 if CORE::abs($z) > 1;
+	    $z = cplx($z, 0);
+	}
+	_divbyzero 'acoth(1)',  "$z - 1" if ($z - 1 == 0);
+	_logofzero 'acoth(-1)', "1 + $z" if (1 + $z == 0);
+	return &log((1 + $z) / ($z - 1)) / 2;
+}
+
+#
+# acotanh
+#
+# Alias for acot().
+#
+sub acotanh { Math::Complex::acoth(@_) }
+
+#
+# (atan2)
+#
+# Compute atan(z1/z2), minding the right quadrant.
+#
+sub atan2 {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1, $re2, $im2);
+	if ($inverted) {
+	    ($re1, $im1) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	    ($re2, $im2) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	} else {
+	    ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	    ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	}
+	if ($im1 || $im2) {
+	    # In MATLAB the imaginary parts are ignored.
+	    # warn "atan2: Imaginary parts ignored";
+	    # http://documents.wolfram.com/mathematica/functions/ArcTan
+	    # NOTE: Mathematica ArcTan[x,y] while atan2(y,x)
+	    my $s = $z1 * $z1 + $z2 * $z2;
+	    _divbyzero("atan2") if $s == 0;
+	    my $i = &i;
+	    my $r = $z2 + $z1 * $i;
+	    return -$i * &log($r / &sqrt( $s ));
+	}
+	return CORE::atan2($re1, $re2);
+}
+
+#
+# display_format
+# ->display_format
+#
+# Set (get if no argument) the display format for all complex numbers that
+# don't happen to have overridden it via ->display_format
+#
+# When called as an object method, this actually sets the display format for
+# the current object.
+#
+# Valid object formats are 'c' and 'p' for cartesian and polar. The first
+# letter is used actually, so the type can be fully spelled out for clarity.
+#
+sub display_format {
+	my $self  = shift;
+	my %display_format = %DISPLAY_FORMAT;
+
+	if (ref $self) {			# Called as an object method
+	    if (exists $self->{display_format}) {
+		my %obj = %{$self->{display_format}};
+		@display_format{keys %obj} = values %obj;
+	    }
+	}
+	if (@_ == 1) {
+	    $display_format{style} = shift;
+	} else {
+	    my %new = @_;
+	    @display_format{keys %new} = values %new;
+	}
+
+	if (ref $self) { # Called as an object method
+	    $self->{display_format} = { %display_format };
+	    return
+		wantarray ?
+		    %{$self->{display_format}} :
+		    $self->{display_format}->{style};
+	}
+
+        # Called as a class method
+	%DISPLAY_FORMAT = %display_format;
+	return
+	    wantarray ?
+		%DISPLAY_FORMAT :
+		    $DISPLAY_FORMAT{style};
+}
+
+#
+# (_stringify)
+#
+# Show nicely formatted complex number under its cartesian or polar form,
+# depending on the current display format:
+#
+# . If a specific display format has been recorded for this object, use it.
+# . Otherwise, use the generic current default for all complex numbers,
+#   which is a package global variable.
+#
+sub _stringify {
+	my ($z) = shift;
+
+	my $style = $z->display_format;
+
+	$style = $DISPLAY_FORMAT{style} unless defined $style;
+
+	return $z->_stringify_polar if $style =~ /^p/i;
+	return $z->_stringify_cartesian;
+}
+
+#
+# ->_stringify_cartesian
+#
+# Stringify as a cartesian representation 'a+bi'.
+#
+sub _stringify_cartesian {
+	my $z  = shift;
+	my ($x, $y) = @{$z->_cartesian};
+	my ($re, $im);
+
+	my %format = $z->display_format;
+	my $format = $format{format};
+
+	if ($x) {
+	    if ($x =~ /^NaN[QS]?$/i) {
+		$re = $x;
+	    } else {
+		if ($x =~ /^-?\Q$Inf\E$/oi) {
+		    $re = $x;
+		} else {
+		    $re = defined $format ? sprintf($format, $x) : $x;
+		}
+	    }
+	} else {
+	    undef $re;
+	}
+
+	if ($y) {
+	    if ($y =~ /^(NaN[QS]?)$/i) {
+		$im = $y;
+	    } else {
+		if ($y =~ /^-?\Q$Inf\E$/oi) {
+		    $im = $y;
+		} else {
+		    $im =
+			defined $format ?
+			    sprintf($format, $y) :
+			    ($y == 1 ? "" : ($y == -1 ? "-" : $y));
+		}
+	    }
+	    $im .= "i";
+	} else {
+	    undef $im;
+	}
+
+	my $str = $re;
+
+	if (defined $im) {
+	    if ($y < 0) {
+		$str .= $im;
+	    } elsif ($y > 0 || $im =~ /^NaN[QS]?i$/i)  {
+		$str .= "+" if defined $re;
+		$str .= $im;
+	    }
+	} elsif (!defined $re) {
+	    $str = "0";
+	}
+
+	return $str;
+}
+
+
+#
+# ->_stringify_polar
+#
+# Stringify as a polar representation '[r,t]'.
+#
+sub _stringify_polar {
+	my $z  = shift;
+	my ($r, $t) = @{$z->_polar};
+	my $theta;
+
+	my %format = $z->display_format;
+	my $format = $format{format};
+
+	if ($t =~ /^NaN[QS]?$/i || $t =~ /^-?\Q$Inf\E$/oi) {
+	    $theta = $t; 
+	} elsif ($t == pi) {
+	    $theta = "pi";
+	} elsif ($r == 0 || $t == 0) {
+	    $theta = defined $format ? sprintf($format, $t) : $t;
+	}
+
+	return "[$r,$theta]" if defined $theta;
+
+	#
+	# Try to identify pi/n and friends.
+	#
+
+	$t -= int(CORE::abs($t) / pi2) * pi2;
+
+	if ($format{polar_pretty_print} && $t) {
+	    my ($a, $b);
+	    for $a (2..9) {
+		$b = $t * $a / pi;
+		if ($b =~ /^-?\d+$/) {
+		    $b = $b < 0 ? "-" : "" if CORE::abs($b) == 1;
+		    $theta = "${b}pi/$a";
+		    last;
+		}
+	    }
+	}
+
+        if (defined $format) {
+	    $r     = sprintf($format, $r);
+	    $theta = sprintf($format, $t) unless defined $theta;
+	} else {
+	    $theta = $t unless defined $theta;
+	}
+
+	return "[$r,$theta]";
+}
+
+sub Inf {
+    return $Inf;
+}
+
+1;
+__END__
+
+
+1;
+
+# eof
+#
+# "Tax the rat farms." - Lord Vetinari
+#
+
+# The following hash values are used:
+#   sign : +,-,NaN,+inf,-inf
+#   _d   : denominator
+#   _n   : numerator (value = _n/_d)
+#   _a   : accuracy
+#   _p   : precision
+# You should not look at the innards of a BigRat - use the methods for this.
+
+package Math::BigRat;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Carp ();
+
+use Math::BigFloat 1.999718;
+
+our $VERSION = '0.2613';
+
+our @ISA = qw(Math::BigFloat);
+
+our ($accuracy, $precision, $round_mode, $div_scale,
+     $upgrade, $downgrade, $_trap_nan, $_trap_inf);
+
+use overload
+
+  # overload key: with_assign
+
+  '+'     =>      sub { $_[0] -> copy() -> badd($_[1]); },
+
+  '-'     =>      sub { my $c = $_[0] -> copy;
+                        $_[2] ? $c -> bneg() -> badd( $_[1])
+                              : $c -> bsub($_[1]); },
+
+  '*'     =>      sub { $_[0] -> copy() -> bmul($_[1]); },
+
+  '/'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bdiv($_[0])
+                              : $_[0] -> copy() -> bdiv($_[1]); },
+
+
+  '%'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bmod($_[0])
+                              : $_[0] -> copy() -> bmod($_[1]); },
+
+  '**'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bpow($_[0])
+                              : $_[0] -> copy() -> bpow($_[1]); },
+
+  '<<'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blsft($_[0])
+                              : $_[0] -> copy() -> blsft($_[1]); },
+
+  '>>'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> brsft($_[0])
+                              : $_[0] -> copy() -> brsft($_[1]); },
+
+  # overload key: assign
+
+  '+='    =>      sub { $_[0]->badd($_[1]); },
+
+  '-='    =>      sub { $_[0]->bsub($_[1]); },
+
+  '*='    =>      sub { $_[0]->bmul($_[1]); },
+
+  '/='    =>      sub { scalar $_[0]->bdiv($_[1]); },
+
+  '%='    =>      sub { $_[0]->bmod($_[1]); },
+
+  '**='   =>      sub { $_[0]->bpow($_[1]); },
+
+
+  '<<='   =>      sub { $_[0]->blsft($_[1]); },
+
+  '>>='   =>      sub { $_[0]->brsft($_[1]); },
+
+#  'x='    =>      sub { },
+
+#  '.='    =>      sub { },
+
+  # overload key: num_comparison
+
+  '<'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blt($_[0])
+                              : $_[0] -> blt($_[1]); },
+
+  '<='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> ble($_[0])
+                              : $_[0] -> ble($_[1]); },
+
+  '>'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bgt($_[0])
+                              : $_[0] -> bgt($_[1]); },
+
+  '>='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bge($_[0])
+                              : $_[0] -> bge($_[1]); },
+
+  '=='    =>      sub { $_[0] -> beq($_[1]); },
+
+  '!='    =>      sub { $_[0] -> bne($_[1]); },
+
+  # overload key: 3way_comparison
+
+  '<=>'   =>      sub { my $cmp = $_[0] -> bcmp($_[1]);
+                        defined($cmp) && $_[2] ? -$cmp : $cmp; },
+
+  'cmp'   =>      sub { $_[2] ? "$_[1]" cmp $_[0] -> bstr()
+                              : $_[0] -> bstr() cmp "$_[1]"; },
+
+  # overload key: str_comparison
+
+#  'lt'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrlt($_[0])
+#                              : $_[0] -> bstrlt($_[1]); },
+#
+#  'le'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrle($_[0])
+#                              : $_[0] -> bstrle($_[1]); },
+#
+#  'gt'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrgt($_[0])
+#                              : $_[0] -> bstrgt($_[1]); },
+#
+#  'ge'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrge($_[0])
+#                              : $_[0] -> bstrge($_[1]); },
+#
+#  'eq'    =>      sub { $_[0] -> bstreq($_[1]); },
+#
+#  'ne'    =>      sub { $_[0] -> bstrne($_[1]); },
+
+  # overload key: binary
+
+  '&'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> band($_[0])
+                              : $_[0] -> copy() -> band($_[1]); },
+
+  '&='    =>      sub { $_[0] -> band($_[1]); },
+
+  '|'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bior($_[0])
+                              : $_[0] -> copy() -> bior($_[1]); },
+
+  '|='    =>      sub { $_[0] -> bior($_[1]); },
+
+  '^'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bxor($_[0])
+                              : $_[0] -> copy() -> bxor($_[1]); },
+
+  '^='    =>      sub { $_[0] -> bxor($_[1]); },
+
+#  '&.'    =>      sub { },
+
+#  '&.='   =>      sub { },
+
+#  '|.'    =>      sub { },
+
+#  '|.='   =>      sub { },
+
+#  '^.'    =>      sub { },
+
+#  '^.='   =>      sub { },
+
+  # overload key: unary
+
+  'neg'   =>      sub { $_[0] -> copy() -> bneg(); },
+
+#  '!'     =>      sub { },
+
+  '~'     =>      sub { $_[0] -> copy() -> bnot(); },
+
+#  '~.'    =>      sub { },
+
+  # overload key: mutators
+
+  '++'    =>      sub { $_[0] -> binc() },
+
+  '--'    =>      sub { $_[0] -> bdec() },
+
+  # overload key: func
+
+  'atan2' =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> batan2($_[0])
+                              : $_[0] -> copy() -> batan2($_[1]); },
+
+  'cos'   =>      sub { $_[0] -> copy() -> bcos(); },
+
+  'sin'   =>      sub { $_[0] -> copy() -> bsin(); },
+
+  'exp'   =>      sub { $_[0] -> copy() -> bexp($_[1]); },
+
+  'abs'   =>      sub { $_[0] -> copy() -> babs(); },
+
+  'log'   =>      sub { $_[0] -> copy() -> blog(); },
+
+  'sqrt'  =>      sub { $_[0] -> copy() -> bsqrt(); },
+
+  'int'   =>      sub { $_[0] -> copy() -> bint(); },
+
+  # overload key: conversion
+
+  'bool'  =>      sub { $_[0] -> is_zero() ? '' : 1; },
+
+  '""'    =>      sub { $_[0] -> bstr(); },
+
+  '0+'    =>      sub { $_[0] -> numify(); },
+
+  '='     =>      sub { $_[0]->copy(); },
+
+  ;
+
+BEGIN {
+    *objectify = \&Math::BigInt::objectify;  # inherit this from BigInt
+    *AUTOLOAD  = \&Math::BigFloat::AUTOLOAD; # can't inherit AUTOLOAD
+    # We inherit these from BigFloat because currently it is not possible that
+    # Math::BigFloat has a different $LIB variable than we, because
+    # Math::BigFloat also uses Math::BigInt::config->('lib') (there is always
+    # only one library loaded)
+    *_e_add = \&Math::BigFloat::_e_add;
+    *_e_sub = \&Math::BigFloat::_e_sub;
+    *as_int = \&as_number;
+    *is_pos = \&is_positive;
+    *is_neg = \&is_negative;
+}
+
+##############################################################################
+# Global constants and flags. Access these only via the accessor methods!
+
+$accuracy   = $precision = undef;
+$round_mode = 'even';
+$div_scale  = 40;
+$upgrade    = undef;
+$downgrade  = undef;
+
+# These are internally, and not to be used from the outside at all!
+
+$_trap_nan = 0;                         # are NaNs ok? set w/ config()
+$_trap_inf = 0;                         # are infs ok? set w/ config()
+
+# the package we are using for our private parts, defaults to:
+# Math::BigInt->config()->{lib}
+
+my $LIB = 'Math::BigInt::Calc';
+
+my $nan   = 'NaN';
+#my $class = 'Math::BigRat';
+
+sub isa {
+    return 0 if $_[1] =~ /^Math::Big(Int|Float)/;       # we aren't
+    UNIVERSAL::isa(@_);
+}
+
+##############################################################################
+
+sub new {
+    my $proto    = shift;
+    my $protoref = ref $proto;
+    my $class    = $protoref || $proto;
+
+    # Check the way we are called.
+
+    if ($protoref) {
+        Carp::croak("new() is a class method, not an instance method");
+    }
+
+    if (@_ < 1) {
+        #Carp::carp("Using new() with no argument is deprecated;",
+        #           " use bzero() or new(0) instead");
+        return $class -> bzero();
+    }
+
+    if (@_ > 2) {
+        Carp::carp("Superfluous arguments to new() ignored.");
+    }
+
+    # Get numerator and denominator. If any of the arguments is undefined,
+    # return zero.
+
+    my ($n, $d) = @_;
+
+    if (@_ == 1 && !defined $n ||
+        @_ == 2 && (!defined $n || !defined $d))
+    {
+        #Carp::carp("Use of uninitialized value in new()");
+        return $class -> bzero();
+    }
+
+    # Initialize a new object.
+
+    my $self = bless {}, $class;
+
+    # One or two input arguments may be given. First handle the numerator $n.
+
+    if (ref($n)) {
+        $n = Math::BigFloat -> new($n, undef, undef)
+          unless ($n -> isa('Math::BigRat') ||
+                  $n -> isa('Math::BigInt') ||
+                  $n -> isa('Math::BigFloat'));
+    } else {
+        if (defined $d) {
+            # If the denominator is defined, the numerator is not a string
+            # fraction, e.g., "355/113".
+            $n = Math::BigFloat -> new($n, undef, undef);
+        } else {
+            # If the denominator is undefined, the numerator might be a string
+            # fraction, e.g., "355/113".
+            if ($n =~ m| ^ \s* (\S+) \s* / \s* (\S+) \s* $ |x) {
+                $n = Math::BigFloat -> new($1, undef, undef);
+                $d = Math::BigFloat -> new($2, undef, undef);
+            } else {
+                $n = Math::BigFloat -> new($n, undef, undef);
+            }
+        }
+    }
+
+    # At this point $n is an object and $d is either an object or undefined. An
+    # undefined $d means that $d was not specified by the caller (not that $d
+    # was specified as an undefined value).
+
+    unless (defined $d) {
+        #return $n -> copy($n)               if $n -> isa('Math::BigRat');
+        return $class -> copy($n)           if $n -> isa('Math::BigRat');
+        return $class -> bnan()             if $n -> is_nan();
+        return $class -> binf($n -> sign()) if $n -> is_inf();
+
+        if ($n -> isa('Math::BigInt')) {
+            $self -> {_n}   = $LIB -> _new($n -> copy() -> babs() -> bstr());
+            $self -> {_d}   = $LIB -> _one();
+            $self -> {sign} = $n -> sign();
+            return $self;
+        }
+
+        if ($n -> isa('Math::BigFloat')) {
+            my $m = $n -> mantissa() -> babs();
+            my $e = $n -> exponent();
+            $self -> {_n} = $LIB -> _new($m -> bstr());
+            $self -> {_d} = $LIB -> _one();
+
+            if ($e > 0) {
+                $self -> {_n} = $LIB -> _lsft($self -> {_n},
+                                              $LIB -> _new($e -> bstr()), 10);
+            } elsif ($e < 0) {
+                $self -> {_d} = $LIB -> _lsft($self -> {_d},
+                                              $LIB -> _new(-$e -> bstr()), 10);
+
+                my $gcd = $LIB -> _gcd($LIB -> _copy($self -> {_n}), $self -> {_d});
+                if (!$LIB -> _is_one($gcd)) {
+                    $self -> {_n} = $LIB -> _div($self->{_n}, $gcd);
+                    $self -> {_d} = $LIB -> _div($self->{_d}, $gcd);
+                }
+            }
+
+            $self -> {sign} = $n -> sign();
+            return $self;
+        }
+
+        die "I don't know how to handle this";  # should never get here
+    }
+
+    # At the point we know that both $n and $d are defined. We know that $n is
+    # an object, but $d might still be a scalar. Now handle $d.
+
+    $d = Math::BigFloat -> new($d, undef, undef)
+      unless ref($d) && ($d -> isa('Math::BigRat') ||
+                         $d -> isa('Math::BigInt') ||
+                         $d -> isa('Math::BigFloat'));
+
+    # At this point both $n and $d are objects.
+
+    return $class -> bnan() if $n -> is_nan() || $d -> is_nan();
+
+    # At this point neither $n nor $d is a NaN.
+
+    if ($n -> is_zero()) {
+        return $class -> bnan() if $d -> is_zero();     # 0/0 = NaN
+        return $class -> bzero();
+    }
+
+    return $class -> binf($d -> sign()) if $d -> is_zero();
+
+    # At this point, neither $n nor $d is a NaN or a zero.
+
+    if ($d < 0) {               # make sure denominator is positive
+        $n -> bneg();
+        $d -> bneg();
+    }
+
+    if ($n -> is_inf()) {
+        return $class -> bnan() if $d -> is_inf();      # Inf/Inf = NaN
+        return $class -> binf($n -> sign());
+    }
+
+    # At this point $n is finite.
+
+    return $class -> bzero()            if $d -> is_inf();
+    return $class -> binf($d -> sign()) if $d -> is_zero();
+
+    # At this point both $n and $d are finite and non-zero.
+
+    if ($n < 0) {
+        $n -> bneg();
+        $self -> {sign} = '-';
+    } else {
+        $self -> {sign} = '+';
+    }
+
+    if ($n -> isa('Math::BigRat')) {
+
+        if ($d -> isa('Math::BigRat')) {
+
+            # At this point both $n and $d is a Math::BigRat.
+
+            # p   r    p * s    (p / gcd(p, r)) * (s / gcd(s, q))
+            # - / -  = ----- =  ---------------------------------
+            # q   s    q * r    (q / gcd(s, q)) * (r / gcd(p, r))
+
+            my $p = $n -> {_n};
+            my $q = $n -> {_d};
+            my $r = $d -> {_n};
+            my $s = $d -> {_d};
+            my $gcd_pr = $LIB -> _gcd($LIB -> _copy($p), $r);
+            my $gcd_sq = $LIB -> _gcd($LIB -> _copy($s), $q);
+            $self -> {_n} = $LIB -> _mul($LIB -> _div($LIB -> _copy($p), $gcd_pr),
+                                         $LIB -> _div($LIB -> _copy($s), $gcd_sq));
+            $self -> {_d} = $LIB -> _mul($LIB -> _div($LIB -> _copy($q), $gcd_sq),
+                                         $LIB -> _div($LIB -> _copy($r), $gcd_pr));
+
+            return $self;       # no need for $self -> bnorm() here
+        }
+
+        # At this point, $n is a Math::BigRat and $d is a Math::Big(Int|Float).
+
+        my $p = $n -> {_n};
+        my $q = $n -> {_d};
+        my $m = $d -> mantissa();
+        my $e = $d -> exponent();
+
+        #                   /      p
+        #                  |  ------------  if e > 0
+        #                  |  q * m * 10^e
+        #                  |
+        # p                |    p
+        # - / (m * 10^e) = |  -----         if e == 0
+        # q                |  q * m
+        #                  |
+        #                  |  p * 10^-e
+        #                  |  --------      if e < 0
+        #                   \  q * m
+
+        $self -> {_n} = $LIB -> _copy($p);
+        $self -> {_d} = $LIB -> _mul($LIB -> _copy($q), $m);
+        if ($e > 0) {
+            $self -> {_d} = $LIB -> _lsft($self -> {_d}, $e, 10);
+        } elsif ($e < 0) {
+            $self -> {_n} = $LIB -> _lsft($self -> {_n}, -$e, 10);
+        }
+
+        return $self -> bnorm();
+
+    } else {
+
+        if ($d -> isa('Math::BigRat')) {
+
+            # At this point $n is a Math::Big(Int|Float) and $d is a
+            # Math::BigRat.
+
+            my $m = $n -> mantissa();
+            my $e = $n -> exponent();
+            my $p = $d -> {_n};
+            my $q = $d -> {_d};
+
+            #                   /  q * m * 10^e
+            #                  |   ------------  if e > 0
+            #                  |        p
+            #                  |
+            #              p   |   m * q
+            # (m * 10^e) / - = |   -----         if e == 0
+            #              q   |     p
+            #                  |
+            #                  |     q * m
+            #                  |   ---------     if e < 0
+            #                   \  p * 10^-e
+
+            $self -> {_n} = $LIB -> _mul($LIB -> _copy($q), $m);
+            $self -> {_d} = $LIB -> _copy($p);
+            if ($e > 0) {
+                $self -> {_n} = $LIB -> _lsft($self -> {_n}, $e, 10);
+            } elsif ($e < 0) {
+                $self -> {_d} = $LIB -> _lsft($self -> {_d}, -$e, 10);
+            }
+            return $self -> bnorm();
+
+        } else {
+
+            # At this point $n and $d are both a Math::Big(Int|Float)
+
+            my $m1 = $n -> mantissa();
+            my $e1 = $n -> exponent();
+            my $m2 = $d -> mantissa();
+            my $e2 = $d -> exponent();
+
+            #               /
+            #              |  m1 * 10^(e1 - e2)
+            #              |  -----------------  if e1 > e2
+            #              |         m2
+            #              |
+            # m1 * 10^e1   |  m1
+            # ---------- = |  --                 if e1 = e2
+            # m2 * 10^e2   |  m2
+            #              |
+            #              |         m1
+            #              |  -----------------  if e1 < e2
+            #              |  m2 * 10^(e2 - e1)
+            #               \
+
+            $self -> {_n} = $LIB -> _new($m1 -> bstr());
+            $self -> {_d} = $LIB -> _new($m2 -> bstr());
+            my $ediff = $e1 - $e2;
+            if ($ediff > 0) {
+                $self -> {_n} = $LIB -> _lsft($self -> {_n},
+                                              $LIB -> _new($ediff -> bstr()),
+                                              10);
+            } elsif ($ediff < 0) {
+                $self -> {_d} = $LIB -> _lsft($self -> {_d},
+                                              $LIB -> _new(-$ediff -> bstr()),
+                                              10);
+            }
+
+            return $self -> bnorm();
+        }
+    }
+
+    return $self;
+}
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign} = $self->{sign};
+    $copy->{_d} = $LIB->_copy($self->{_d});
+    $copy->{_n} = $LIB->_copy($self->{_n});
+    $copy->{_a} = $self->{_a} if defined $self->{_a};
+    $copy->{_p} = $self->{_p} if defined $self->{_p};
+
+    #($copy, $copy->{_a}, $copy->{_p})
+    #  = $copy->_find_round_parameters(@_);
+
+    return $copy;
+}
+
+sub bnan {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self = bless {}, $class unless $selfref;
+
+    if ($_trap_nan) {
+        Carp::croak ("Tried to set a variable to NaN in $class->bnan()");
+    }
+
+    $self -> {sign} = $nan;
+    $self -> {_n}   = $LIB -> _zero();
+    $self -> {_d}   = $LIB -> _one();
+
+    ($self, $self->{_a}, $self->{_p})
+      = $self->_find_round_parameters(@_);
+
+    return $self;
+}
+
+sub binf {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self = bless {}, $class unless $selfref;
+
+    my $sign = shift();
+    $sign = defined($sign) && substr($sign, 0, 1) eq '-' ? '-inf' : '+inf';
+
+    if ($_trap_inf) {
+        Carp::croak ("Tried to set a variable to +-inf in $class->binf()");
+    }
+
+    $self -> {sign} = $sign;
+    $self -> {_n}   = $LIB -> _zero();
+    $self -> {_d}   = $LIB -> _one();
+
+    ($self, $self->{_a}, $self->{_p})
+      = $self->_find_round_parameters(@_);
+
+    return $self;
+}
+
+sub bone {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self = bless {}, $class unless $selfref;
+
+    my $sign = shift();
+    $sign = '+' unless defined($sign) && $sign eq '-';
+
+    $self -> {sign} = $sign;
+    $self -> {_n}   = $LIB -> _one();
+    $self -> {_d}   = $LIB -> _one();
+
+    ($self, $self->{_a}, $self->{_p})
+      = $self->_find_round_parameters(@_);
+
+    return $self;
+}
+
+sub bzero {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign} = '+';
+    $self -> {_n}   = $LIB -> _zero();
+    $self -> {_d}   = $LIB -> _one();
+
+    ($self, $self->{_a}, $self->{_p})
+      = $self->_find_round_parameters(@_);
+
+    return $self;
+}
+
+##############################################################################
+
+sub config {
+    # return (later set?) configuration data as hash ref
+    my $class = shift() || 'Math::BigRat';
+
+    if (@_ == 1 && ref($_[0]) ne 'HASH') {
+        my $cfg = $class->SUPER::config();
+        return $cfg->{$_[0]};
+    }
+
+    my $cfg = $class->SUPER::config(@_);
+
+    # now we need only to override the ones that are different from our parent
+    $cfg->{class} = $class;
+    $cfg->{with}  = $LIB;
+
+    $cfg;
+}
+
+##############################################################################
+
+sub bstr {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {               # inf, NaN etc
+        my $s = $x->{sign};
+        $s =~ s/^\+//;                          # +inf => inf
+        return $s;
+    }
+
+    my $s = '';
+    $s = $x->{sign} if $x->{sign} ne '+';       # '+3/2' => '3/2'
+
+    return $s . $LIB->_str($x->{_n}) if $LIB->_is_one($x->{_d});
+    $s . $LIB->_str($x->{_n}) . '/' . $LIB->_str($x->{_d});
+}
+
+sub bsstr {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {               # inf, NaN etc
+        my $s = $x->{sign};
+        $s =~ s/^\+//;                          # +inf => inf
+        return $s;
+    }
+
+    my $s = '';
+    $s = $x->{sign} if $x->{sign} ne '+';       # +3 vs 3
+    $s . $LIB->_str($x->{_n}) . '/' . $LIB->_str($x->{_d});
+}
+
+sub bnorm {
+    # reduce the number to the shortest form
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    # Both parts must be objects of whatever we are using today.
+    if (my $c = $LIB->_check($x->{_n})) {
+        Carp::croak("n did not pass the self-check ($c) in bnorm()");
+    }
+    if (my $c = $LIB->_check($x->{_d})) {
+        Carp::croak("d did not pass the self-check ($c) in bnorm()");
+    }
+
+    # no normalize for NaN, inf etc.
+    return $x if $x->{sign} !~ /^[+-]$/;
+
+    # normalize zeros to 0/1
+    if ($LIB->_is_zero($x->{_n})) {
+        $x->{sign} = '+';                               # never leave a -0
+        $x->{_d} = $LIB->_one() unless $LIB->_is_one($x->{_d});
+        return $x;
+    }
+
+    return $x if $LIB->_is_one($x->{_d});               # no need to reduce
+
+    # Compute the GCD.
+    my $gcd = $LIB->_gcd($LIB->_copy($x->{_n}), $x->{_d});
+    if (!$LIB->_is_one($gcd)) {
+        $x->{_n} = $LIB->_div($x->{_n}, $gcd);
+        $x->{_d} = $LIB->_div($x->{_d}, $gcd);
+    }
+
+    $x;
+}
+
+##############################################################################
+# sign manipulation
+
+sub bneg {
+    # (BRAT or num_str) return BRAT
+    # negate number or make a negated number from string
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x if $x->modify('bneg');
+
+    # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+    $x->{sign} =~ tr/+-/-+/
+      unless ($x->{sign} eq '+' && $LIB->_is_zero($x->{_n}));
+    $x;
+}
+
+##############################################################################
+# special values
+
+sub _bnan {
+    # used by parent class bnan() to initialize number to NaN
+    my $self = shift;
+
+    if ($_trap_nan) {
+        my $class = ref($self);
+        # "$self" below will stringify the object, this blows up if $self is a
+        # partial object (happens under trap_nan), so fix it beforehand
+        $self->{_d} = $LIB->_zero() unless defined $self->{_d};
+        $self->{_n} = $LIB->_zero() unless defined $self->{_n};
+        Carp::croak ("Tried to set $self to NaN in $class\::_bnan()");
+    }
+    $self->{_n} = $LIB->_zero();
+    $self->{_d} = $LIB->_zero();
+}
+
+sub _binf {
+    # used by parent class bone() to initialize number to +inf/-inf
+    my $self = shift;
+
+    if ($_trap_inf) {
+        my $class = ref($self);
+        # "$self" below will stringify the object, this blows up if $self is a
+        # partial object (happens under trap_nan), so fix it beforehand
+        $self->{_d} = $LIB->_zero() unless defined $self->{_d};
+        $self->{_n} = $LIB->_zero() unless defined $self->{_n};
+        Carp::croak ("Tried to set $self to inf in $class\::_binf()");
+    }
+    $self->{_n} = $LIB->_zero();
+    $self->{_d} = $LIB->_zero();
+}
+
+sub _bone {
+    # used by parent class bone() to initialize number to +1/-1
+    my $self = shift;
+    $self->{_n} = $LIB->_one();
+    $self->{_d} = $LIB->_one();
+}
+
+sub _bzero {
+    # used by parent class bzero() to initialize number to 0
+    my $self = shift;
+    $self->{_n} = $LIB->_zero();
+    $self->{_d} = $LIB->_one();
+}
+
+##############################################################################
+# mul/add/div etc
+
+sub badd {
+    # add two rational numbers
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    # +inf + +inf => +inf, -inf + -inf => -inf
+    return $x->binf(substr($x->{sign}, 0, 1))
+      if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+
+    # +inf + -inf or -inf + +inf => NaN
+    return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+    #  1   1    gcd(3, 4) = 1    1*3 + 1*4    7
+    #  - + -                  = --------- = --
+    #  4   3                      4*3       12
+
+    # we do not compute the gcd() here, but simple do:
+    #  5   7    5*3 + 7*4   43
+    #  - + -  = --------- = --
+    #  4   3       4*3      12
+
+    # and bnorm() will then take care of the rest
+
+    # 5 * 3
+    $x->{_n} = $LIB->_mul($x->{_n}, $y->{_d});
+
+    # 7 * 4
+    my $m = $LIB->_mul($LIB->_copy($y->{_n}), $x->{_d});
+
+    # 5 * 3 + 7 * 4
+    ($x->{_n}, $x->{sign}) = _e_add($x->{_n}, $m, $x->{sign}, $y->{sign});
+
+    # 4 * 3
+    $x->{_d} = $LIB->_mul($x->{_d}, $y->{_d});
+
+    # normalize result, and possible round
+    $x->bnorm()->round(@r);
+}
+
+sub bsub {
+    # subtract two rational numbers
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    # flip sign of $x, call badd(), then flip sign of result
+    $x->{sign} =~ tr/+-/-+/
+      unless $x->{sign} eq '+' && $LIB->_is_zero($x->{_n}); # not -0
+    $x->badd($y, @r);           # does norm and round
+    $x->{sign} =~ tr/+-/-+/
+      unless $x->{sign} eq '+' && $LIB->_is_zero($x->{_n}); # not -0
+
+    $x;
+}
+
+sub bmul {
+    # multiply two rational numbers
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x->bnan() if $x->{sign} eq 'NaN' || $y->{sign} eq 'NaN';
+
+    # inf handling
+    if ($x->{sign} =~ /^[+-]inf$/ || $y->{sign} =~ /^[+-]inf$/) {
+        return $x->bnan() if $x->is_zero() || $y->is_zero();
+        # result will always be +-inf:
+        # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+        # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+        return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+        return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+        return $x->binf('-');
+    }
+
+    # x == 0  # also: or y == 1 or y == -1
+    return wantarray ? ($x, $class->bzero()) : $x if $x -> is_zero();
+
+    if ($y -> is_zero()) {
+        $x -> bzero();
+        return wantarray ? ($x, $class->bzero()) : $x;
+    }
+
+    # According to Knuth, this can be optimized by doing gcd twice (for d
+    # and n) and reducing in one step. This saves us a bnorm() at the end.
+    #
+    # p   s    p * s    (p / gcd(p, r)) * (s / gcd(s, q))
+    # - * -  = ----- =  ---------------------------------
+    # q   r    q * r    (q / gcd(s, q)) * (r / gcd(p, r))
+
+    my $gcd_pr = $LIB -> _gcd($LIB -> _copy($x->{_n}), $y->{_d});
+    my $gcd_sq = $LIB -> _gcd($LIB -> _copy($y->{_n}), $x->{_d});
+
+    $x->{_n} = $LIB -> _mul(scalar $LIB -> _div($x->{_n}, $gcd_pr),
+                            scalar $LIB -> _div($LIB -> _copy($y->{_n}),
+                                                $gcd_sq));
+    $x->{_d} = $LIB -> _mul(scalar $LIB -> _div($x->{_d}, $gcd_sq),
+                            scalar $LIB -> _div($LIB -> _copy($y->{_d}),
+                                                $gcd_pr));
+
+    # compute new sign
+    $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-';
+
+    $x->round(@r);
+}
+
+sub bdiv {
+    # (dividend: BRAT or num_str, divisor: BRAT or num_str) return
+    # (BRAT, BRAT) (quo, rem) or BRAT (only rem)
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bdiv');
+
+    my $wantarray = wantarray;  # call only once
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $class -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($y -> is_zero()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $quo = $x -> bnan();
+        } else {
+            $quo = $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($x -> is_inf()) {
+        my ($quo, $rem);
+        $rem = $class -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $quo = $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $quo = $x -> binf($sign);
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigFloat -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($y -> is_inf()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+                $rem = $x -> copy();
+                $quo = $x -> bzero();
+            } else {
+                $rem = $class -> binf($y -> {sign});
+                $quo = $x -> bone('-');
+            }
+            return ($quo, $rem);
+        } else {
+            if ($y -> is_inf()) {
+                if ($x -> is_nan() || $x -> is_inf()) {
+                    return $x -> bnan();
+                } else {
+                    return $x -> bzero();
+                }
+            }
+        }
+    }
+
+    # At this point, both the numerator and denominator are finite numbers, and
+    # the denominator (divisor) is non-zero.
+
+    # x == 0?
+    return wantarray ? ($x, $class->bzero()) : $x if $x->is_zero();
+
+    # XXX TODO: list context, upgrade
+    # According to Knuth, this can be optimized by doing gcd twice (for d and n)
+    # and reducing in one step. This would save us the bnorm() at the end.
+    #
+    # p   r    p * s    (p / gcd(p, r)) * (s / gcd(s, q))
+    # - / -  = ----- =  ---------------------------------
+    # q   s    q * r    (q / gcd(s, q)) * (r / gcd(p, r))
+
+    $x->{_n} = $LIB->_mul($x->{_n}, $y->{_d});
+    $x->{_d} = $LIB->_mul($x->{_d}, $y->{_n});
+
+    # compute new sign
+    $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-';
+
+    $x -> bnorm();
+    if (wantarray) {
+        my $rem = $x -> copy();
+        $x -> bfloor();
+        $x -> round(@r);
+        $rem -> bsub($x -> copy()) -> bmul($y);
+        return $x, $rem;
+    } else {
+        $x -> round(@r);
+        return $x;
+    }
+}
+
+sub bmod {
+    # compute "remainder" (in Perl way) of $x / $y
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bmod');
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. This is handled the same way as in Math::BigInt -> bmod().
+
+    if ($y -> is_zero()) {
+        return $x;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+    # At this point, both the numerator and denominator are finite numbers, and
+    # the denominator (divisor) is non-zero.
+
+    return $x if $x->is_zero(); # 0 / 7 = 0, mod 0
+
+    # Compute $x - $y * floor($x/$y). This can probably be optimized by working
+    # on a lower level.
+
+    $x -> bsub($x -> copy() -> bdiv($y) -> bfloor() -> bmul($y));
+    return $x -> round(@r);
+}
+
+##############################################################################
+# bdec/binc
+
+sub bdec {
+    # decrement value (subtract 1)
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->{sign} !~ /^[+-]$/; # NaN, inf, -inf
+
+    if ($x->{sign} eq '-') {
+        $x->{_n} = $LIB->_add($x->{_n}, $x->{_d}); # -5/2 => -7/2
+    } else {
+        if ($LIB->_acmp($x->{_n}, $x->{_d}) < 0) # n < d?
+        {
+            # 1/3 -- => -2/3
+            $x->{_n} = $LIB->_sub($LIB->_copy($x->{_d}), $x->{_n});
+            $x->{sign} = '-';
+        } else {
+            $x->{_n} = $LIB->_sub($x->{_n}, $x->{_d}); # 5/2 => 3/2
+        }
+    }
+    $x->bnorm()->round(@r);
+}
+
+sub binc {
+    # increment value (add 1)
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->{sign} !~ /^[+-]$/; # NaN, inf, -inf
+
+    if ($x->{sign} eq '-') {
+        if ($LIB->_acmp($x->{_n}, $x->{_d}) < 0) {
+            # -1/3 ++ => 2/3 (overflow at 0)
+            $x->{_n} = $LIB->_sub($LIB->_copy($x->{_d}), $x->{_n});
+            $x->{sign} = '+';
+        } else {
+            $x->{_n} = $LIB->_sub($x->{_n}, $x->{_d}); # -5/2 => -3/2
+        }
+    } else {
+        $x->{_n} = $LIB->_add($x->{_n}, $x->{_d}); # 5/2 => 7/2
+    }
+    $x->bnorm()->round(@r);
+}
+
+##############################################################################
+# is_foo methods (the rest is inherited)
+
+sub is_int {
+    # return true if arg (BRAT or num_str) is an integer
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 1 if ($x->{sign} =~ /^[+-]$/) && # NaN and +-inf aren't
+      $LIB->_is_one($x->{_d});              # x/y && y != 1 => no integer
+    0;
+}
+
+sub is_zero {
+    # return true if arg (BRAT or num_str) is zero
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 1 if $x->{sign} eq '+' && $LIB->_is_zero($x->{_n});
+    0;
+}
+
+sub is_one {
+    # return true if arg (BRAT or num_str) is +1 or -1 if signis given
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    my $sign = $_[2] || ''; $sign = '+' if $sign ne '-';
+    return 1
+      if ($x->{sign} eq $sign && $LIB->_is_one($x->{_n}) && $LIB->_is_one($x->{_d}));
+    0;
+}
+
+sub is_odd {
+    # return true if arg (BFLOAT or num_str) is odd or false if even
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 1 if ($x->{sign} =~ /^[+-]$/) &&               # NaN & +-inf aren't
+      ($LIB->_is_one($x->{_d}) && $LIB->_is_odd($x->{_n})); # x/2 is not, but 3/1
+    0;
+}
+
+sub is_even {
+    # return true if arg (BINT or num_str) is even or false if odd
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return 0 if $x->{sign} !~ /^[+-]$/; # NaN & +-inf aren't
+    return 1 if ($LIB->_is_one($x->{_d}) # x/3 is never
+                 && $LIB->_is_even($x->{_n})); # but 4/1 is
+    0;
+}
+
+##############################################################################
+# parts() and friends
+
+sub numerator {
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    # NaN, inf, -inf
+    return Math::BigInt->new($x->{sign}) if ($x->{sign} !~ /^[+-]$/);
+
+    my $n = Math::BigInt->new($LIB->_str($x->{_n}));
+    $n->{sign} = $x->{sign};
+    $n;
+}
+
+sub denominator {
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    # NaN
+    return Math::BigInt->new($x->{sign}) if $x->{sign} eq 'NaN';
+    # inf, -inf
+    return Math::BigInt->bone() if $x->{sign} !~ /^[+-]$/;
+
+    Math::BigInt->new($LIB->_str($x->{_d}));
+}
+
+sub parts {
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    my $c = 'Math::BigInt';
+
+    return ($c->bnan(), $c->bnan()) if $x->{sign} eq 'NaN';
+    return ($c->binf(), $c->binf()) if $x->{sign} eq '+inf';
+    return ($c->binf('-'), $c->binf()) if $x->{sign} eq '-inf';
+
+    my $n = $c->new($LIB->_str($x->{_n}));
+    $n->{sign} = $x->{sign};
+    my $d = $c->new($LIB->_str($x->{_d}));
+    ($n, $d);
+}
+
+sub length {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $nan unless $x->is_int();
+    $LIB->_len($x->{_n});       # length(-123/1) => length(123)
+}
+
+sub digit {
+    my ($class, $x, $n) = ref($_[0]) ? (undef, $_[0], $_[1]) : objectify(1, @_);
+
+    return $nan unless $x->is_int();
+    $LIB->_digit($x->{_n}, $n || 0); # digit(-123/1, 2) => digit(123, 2)
+}
+
+##############################################################################
+# special calc routines
+
+sub bceil {
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x if ($x->{sign} !~ /^[+-]$/ ||     # not for NaN, inf
+                  $LIB->_is_one($x->{_d}));     # 22/1 => 22, 0/1 => 0
+
+    $x->{_n} = $LIB->_div($x->{_n}, $x->{_d});  # 22/7 => 3/1 w/ truncate
+    $x->{_d} = $LIB->_one();                    # d => 1
+    $x->{_n} = $LIB->_inc($x->{_n}) if $x->{sign} eq '+';   # +22/7 => 4/1
+    $x->{sign} = '+' if $x->{sign} eq '-' && $LIB->_is_zero($x->{_n}); # -0 => 0
+    $x;
+}
+
+sub bfloor {
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x if ($x->{sign} !~ /^[+-]$/ ||     # not for NaN, inf
+                  $LIB->_is_one($x->{_d}));     # 22/1 => 22, 0/1 => 0
+
+    $x->{_n} = $LIB->_div($x->{_n}, $x->{_d});  # 22/7 => 3/1 w/ truncate
+    $x->{_d} = $LIB->_one();                    # d => 1
+    $x->{_n} = $LIB->_inc($x->{_n}) if $x->{sign} eq '-';   # -22/7 => -4/1
+    $x;
+}
+
+sub bint {
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x if ($x->{sign} !~ /^[+-]$/ ||     # +/-inf or NaN
+                  $LIB -> _is_one($x->{_d}));   # already an integer
+
+    $x->{_n} = $LIB->_div($x->{_n}, $x->{_d});  # 22/7 => 3/1 w/ truncate
+    $x->{_d} = $LIB->_one();                    # d => 1
+    $x->{sign} = '+' if $x->{sign} eq '-' && $LIB -> _is_zero($x->{_n});
+    return $x;
+}
+
+sub bfac {
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    # if $x is not an integer
+    if (($x->{sign} ne '+') || (!$LIB->_is_one($x->{_d}))) {
+        return $x->bnan();
+    }
+
+    $x->{_n} = $LIB->_fac($x->{_n});
+    # since _d is 1, we don't need to reduce/norm the result
+    $x->round(@r);
+}
+
+sub bpow {
+    # power ($x ** $y)
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->{sign} =~ /^[+-]inf$/; # -inf/+inf ** x
+    return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+    return $x->bone(@r) if $y->is_zero();
+    return $x->round(@r) if $x->is_one() || $y->is_one();
+
+    if ($x->{sign} eq '-' && $LIB->_is_one($x->{_n}) && $LIB->_is_one($x->{_d})) {
+        # if $x == -1 and odd/even y => +1/-1
+        return $y->is_odd() ? $x->round(@r) : $x->babs()->round(@r);
+        # my Casio FX-5500L has a bug here: -1 ** 2 is -1, but -1 * -1 is 1;
+    }
+    # 1 ** -y => 1 / (1 ** |y|)
+    # so do test for negative $y after above's clause
+
+    return $x->round(@r) if $x->is_zero(); # 0**y => 0 (if not y <= 0)
+
+    # shortcut if y == 1/N (is then sqrt() respective broot())
+    if ($LIB->_is_one($y->{_n})) {
+        return $x->bsqrt(@r) if $LIB->_is_two($y->{_d}); # 1/2 => sqrt
+        return $x->broot($LIB->_str($y->{_d}), @r);      # 1/N => root(N)
+    }
+
+    # shortcut y/1 (and/or x/1)
+    if ($LIB->_is_one($y->{_d})) {
+        # shortcut for x/1 and y/1
+        if ($LIB->_is_one($x->{_d})) {
+            $x->{_n} = $LIB->_pow($x->{_n}, $y->{_n}); # x/1 ** y/1 => (x ** y)/1
+            if ($y->{sign} eq '-') {
+                # 0.2 ** -3 => 1/(0.2 ** 3)
+                ($x->{_n}, $x->{_d}) = ($x->{_d}, $x->{_n}); # swap
+            }
+            # correct sign; + ** + => +
+            if ($x->{sign} eq '-') {
+                # - * - => +, - * - * - => -
+                $x->{sign} = '+' if $x->{sign} eq '-' && $LIB->_is_even($y->{_n});
+            }
+            return $x->round(@r);
+        }
+
+        # x/z ** y/1
+        $x->{_n} = $LIB->_pow($x->{_n}, $y->{_n}); # 5/2 ** y/1 => 5 ** y / 2 ** y
+        $x->{_d} = $LIB->_pow($x->{_d}, $y->{_n});
+        if ($y->{sign} eq '-') {
+            # 0.2 ** -3 => 1/(0.2 ** 3)
+            ($x->{_n}, $x->{_d}) = ($x->{_d}, $x->{_n}); # swap
+        }
+        # correct sign; + ** + => +
+
+        $x->{sign} = '+' if $x->{sign} eq '-' && $LIB->_is_even($y->{_n});
+        return $x->round(@r);
+    }
+
+    #  print STDERR "# $x $y\n";
+
+    # otherwise:
+
+    #      n/d     n  ______________
+    # a/b       =  -\/  (a/b) ** d
+
+    # (a/b) ** n == (a ** n) / (b ** n)
+    $LIB->_pow($x->{_n}, $y->{_n});
+    $LIB->_pow($x->{_d}, $y->{_n});
+
+    return $x->broot($LIB->_str($y->{_d}), @r); # n/d => root(n)
+}
+
+sub blog {
+    # Return the logarithm of the operand. If a second operand is defined, that
+    # value is used as the base, otherwise the base is assumed to be Euler's
+    # constant.
+
+    my ($class, $x, $base, @r);
+
+    # Don't objectify the base, since an undefined base, as in $x->blog() or
+    # $x->blog(undef) signals that the base is Euler's number.
+
+    if (!ref($_[0]) && $_[0] =~ /^[A-Za-z]|::/) {
+        # E.g., Math::BigFloat->blog(256, 2)
+        ($class, $x, $base, @r) =
+          defined $_[2] ? objectify(2, @_) : objectify(1, @_);
+    } else {
+        # E.g., Math::BigFloat::blog(256, 2) or $x->blog(2)
+        ($class, $x, $base, @r) =
+          defined $_[1] ? objectify(2, @_) : objectify(1, @_);
+    }
+
+    return $x if $x->modify('blog');
+
+    # Handle all exception cases and all trivial cases. I have used Wolfram Alpha
+    # (http://www.wolframalpha.com) as the reference for these cases.
+
+    return $x -> bnan() if $x -> is_nan();
+
+    if (defined $base) {
+        $base = $class -> new($base) unless ref $base;
+        if ($base -> is_nan() || $base -> is_one()) {
+            return $x -> bnan();
+        } elsif ($base -> is_inf() || $base -> is_zero()) {
+            return $x -> bnan() if $x -> is_inf() || $x -> is_zero();
+            return $x -> bzero();
+        } elsif ($base -> is_negative()) {        # -inf < base < 0
+            return $x -> bzero() if $x -> is_one(); #     x = 1
+            return $x -> bone()  if $x == $base;    #     x = base
+            return $x -> bnan();                    #     otherwise
+        }
+        return $x -> bone() if $x == $base; # 0 < base && 0 < x < inf
+    }
+
+    # We now know that the base is either undefined or positive and finite.
+
+    if ($x -> is_inf()) {       # x = +/-inf
+        my $sign = defined $base && $base < 1 ? '-' : '+';
+        return $x -> binf($sign);
+    } elsif ($x -> is_neg()) {  # -inf < x < 0
+        return $x -> bnan();
+    } elsif ($x -> is_one()) {  # x = 1
+        return $x -> bzero();
+    } elsif ($x -> is_zero()) { # x = 0
+        my $sign = defined $base && $base < 1 ? '+' : '-';
+        return $x -> binf($sign);
+    }
+
+    # At this point we are done handling all exception cases and trivial cases.
+
+    $base = Math::BigFloat -> new($base) if defined $base;
+
+    my $xn = Math::BigFloat -> new($LIB -> _str($x->{_n}));
+    my $xd = Math::BigFloat -> new($LIB -> _str($x->{_d}));
+
+    my $xtmp = Math::BigRat -> new($xn -> bdiv($xd) -> blog($base, @r) -> bsstr());
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x;
+}
+
+sub bexp {
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(1, @_);
+    }
+
+    return $x->binf(@r)  if $x->{sign} eq '+inf';
+    return $x->bzero(@r) if $x->{sign} eq '-inf';
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters(@r);
+
+    # also takes care of the "error in _find_round_parameters?" case
+    return $x if $x->{sign} eq 'NaN';
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;              # P = undef
+        $scale = $params[0]+4;           # at least four more for proper round
+        $params[2] = $r[2];              # round mode by caller or undef
+        $fallback = 1;                   # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it's not enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    return $x->bone(@params) if $x->is_zero();
+
+    # See the comments in Math::BigFloat on how this algorithm works.
+    # Basically we calculate A and B (where B is faculty(N)) so that A/B = e
+
+    my $x_org = $x->copy();
+    if ($scale <= 75) {
+        # set $x directly from a cached string form
+        $x->{_n} =
+          $LIB->_new("90933395208605785401971970164779391644753259799242");
+        $x->{_d} =
+          $LIB->_new("33452526613163807108170062053440751665152000000000");
+        $x->{sign} = '+';
+    } else {
+        # compute A and B so that e = A / B.
+
+        # After some terms we end up with this, so we use it as a starting point:
+        my $A = $LIB->_new("90933395208605785401971970164779391644753259799242");
+        my $F = $LIB->_new(42); my $step = 42;
+
+        # Compute how many steps we need to take to get $A and $B sufficiently big
+        my $steps = Math::BigFloat::_len_to_steps($scale - 4);
+        #    print STDERR "# Doing $steps steps for ", $scale-4, " digits\n";
+        while ($step++ <= $steps) {
+            # calculate $a * $f + 1
+            $A = $LIB->_mul($A, $F);
+            $A = $LIB->_inc($A);
+            # increment f
+            $F = $LIB->_inc($F);
+        }
+        # compute $B as factorial of $steps (this is faster than doing it manually)
+        my $B = $LIB->_fac($LIB->_new($steps));
+
+        #  print "A ", $LIB->_str($A), "\nB ", $LIB->_str($B), "\n";
+
+        $x->{_n} = $A;
+        $x->{_d} = $B;
+        $x->{sign} = '+';
+    }
+
+    # $x contains now an estimate of e, with some surplus digits, so we can round
+    if (!$x_org->is_one()) {
+        # raise $x to the wanted power and round it in one step:
+        $x->bpow($x_org, @params);
+    } else {
+        # else just round the already computed result
+        delete $x->{_a}; delete $x->{_p};
+        # shortcut to not run through _find_round_parameters again
+        if (defined $params[0]) {
+            $x->bround($params[0], $params[2]); # then round accordingly
+        } else {
+            $x->bfround($params[1], $params[2]); # then round accordingly
+        }
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a}; delete $x->{_p};
+    }
+
+    $x;
+}
+
+sub bnok {
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    my $xint = Math::BigInt -> new($x -> bint() -> bsstr());
+    my $yint = Math::BigInt -> new($y -> bint() -> bsstr());
+    $xint -> bnok($yint);
+
+    $x -> {sign} = $xint -> {sign};
+    $x -> {_n}   = $xint -> {_n};
+    $x -> {_d}   = $xint -> {_d};
+
+    return $x;
+}
+
+sub broot {
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    # Convert $x into a Math::BigFloat.
+
+    my $xd   = Math::BigFloat -> new($LIB -> _str($x->{_d}));
+    my $xflt = Math::BigFloat -> new($LIB -> _str($x->{_n})) -> bdiv($xd);
+    $xflt -> {sign} = $x -> {sign};
+
+    # Convert $y into a Math::BigFloat.
+
+    my $yd   = Math::BigFloat -> new($LIB -> _str($y->{_d}));
+    my $yflt = Math::BigFloat -> new($LIB -> _str($y->{_n})) -> bdiv($yd);
+    $yflt -> {sign} = $y -> {sign};
+
+    # Compute the root and convert back to a Math::BigRat.
+
+    $xflt -> broot($yflt, @r);
+    my $xtmp = Math::BigRat -> new($xflt -> bsstr());
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x;
+}
+
+sub bmodpow {
+    # set up parameters
+    my ($class, $x, $y, $m, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $m, @r) = objectify(3, @_);
+    }
+
+    # Convert $x, $y, and $m into Math::BigInt objects.
+
+    my $xint = Math::BigInt -> new($x -> copy() -> bint());
+    my $yint = Math::BigInt -> new($y -> copy() -> bint());
+    my $mint = Math::BigInt -> new($m -> copy() -> bint());
+
+    $xint -> bmodpow($y, $m, @r);
+    my $xtmp = Math::BigRat -> new($xint -> bsstr());
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+    return $x;
+}
+
+sub bmodinv {
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    # Convert $x and $y into Math::BigInt objects.
+
+    my $xint = Math::BigInt -> new($x -> copy() -> bint());
+    my $yint = Math::BigInt -> new($y -> copy() -> bint());
+
+    $xint -> bmodinv($y, @r);
+    my $xtmp = Math::BigRat -> new($xint -> bsstr());
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+    return $x;
+}
+
+sub bsqrt {
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x->bnan() if $x->{sign} !~ /^[+]/; # NaN, -inf or < 0
+    return $x if $x->{sign} eq '+inf';         # sqrt(inf) == inf
+    return $x->round(@r) if $x->is_zero() || $x->is_one();
+
+    local $Math::BigFloat::upgrade = undef;
+    local $Math::BigFloat::downgrade = undef;
+    local $Math::BigFloat::precision = undef;
+    local $Math::BigFloat::accuracy = undef;
+    local $Math::BigInt::upgrade = undef;
+    local $Math::BigInt::precision = undef;
+    local $Math::BigInt::accuracy = undef;
+
+    my $xn = Math::BigFloat -> new($LIB -> _str($x->{_n}));
+    my $xd = Math::BigFloat -> new($LIB -> _str($x->{_d}));
+
+    my $xtmp = Math::BigRat -> new($xn -> bdiv($xd) -> bsqrt() -> bsstr());
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    $x->round(@r);
+}
+
+sub blsft {
+    my ($class, $x, $y, $b, @r) = objectify(2, @_);
+
+    $b = 2 if !defined $b;
+    $b = $class -> new($b) unless ref($b) && $b -> isa($class);
+
+    return $x -> bnan() if $x -> is_nan() || $y -> is_nan() || $b -> is_nan();
+
+    # shift by a negative amount?
+    return $x -> brsft($y -> copy() -> babs(), $b) if $y -> {sign} =~ /^-/;
+
+    $x -> bmul($b -> bpow($y));
+}
+
+sub brsft {
+    my ($class, $x, $y, $b, @r) = objectify(2, @_);
+
+    $b = 2 if !defined $b;
+    $b = $class -> new($b) unless ref($b) && $b -> isa($class);
+
+    return $x -> bnan() if $x -> is_nan() || $y -> is_nan() || $b -> is_nan();
+
+    # shift by a negative amount?
+    return $x -> blsft($y -> copy() -> babs(), $b) if $y -> {sign} =~ /^-/;
+
+    # the following call to bdiv() will return either quotient (scalar context)
+    # or quotient and remainder (list context).
+    $x -> bdiv($b -> bpow($y));
+}
+
+sub band {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'band() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for band()' if @_ < 1;
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> band($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigRat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x -> round(@r);
+}
+
+sub bior {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bior() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for bior()' if @_ < 1;
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bior($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigRat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x -> round(@r);
+}
+
+sub bxor {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bxor() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for bxor()' if @_ < 1;
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bxor($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigRat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x -> round(@r);
+}
+
+sub bnot {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bnot() is an instance method, not a class method' unless $xref;
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bnot();
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigRat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_n}   = $xtmp -> {_n};
+    $x -> {_d}   = $xtmp -> {_d};
+
+    return $x -> round(@r);
+}
+
+##############################################################################
+# round
+
+sub round {
+    $_[0];
+}
+
+sub bround {
+    $_[0];
+}
+
+sub bfround {
+    $_[0];
+}
+
+##############################################################################
+# comparing
+
+sub bcmp {
+    # compare two signed numbers
+
+    # set up parameters
+    my ($class, $x, $y) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y) = objectify(2, @_);
+    }
+
+    if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/) {
+        # $x is NaN and/or $y is NaN
+        return undef if $x->{sign} eq $nan || $y->{sign} eq $nan;
+        # $x and $y are both either +inf or -inf
+        return 0     if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+        # $x = +inf and $y < +inf
+        return +1    if $x->{sign} eq '+inf';
+        # $x = -inf and $y > -inf
+        return -1    if $x->{sign} eq '-inf';
+        # $x < +inf and $y = +inf
+        return -1    if $y->{sign} eq '+inf';
+        # $x > -inf and $y = -inf
+        return +1;
+    }
+
+    # $x >= 0 and $y < 0
+    return  1 if $x->{sign} eq '+' && $y->{sign} eq '-';
+    # $x < 0 and $y >= 0
+    return -1 if $x->{sign} eq '-' && $y->{sign} eq '+';
+
+    # At this point, we know that $x and $y have the same sign.
+
+    # shortcut
+    my $xz = $LIB->_is_zero($x->{_n});
+    my $yz = $LIB->_is_zero($y->{_n});
+    return  0 if $xz && $yz;               # 0 <=> 0
+    return -1 if $xz && $y->{sign} eq '+'; # 0 <=> +y
+    return  1 if $yz && $x->{sign} eq '+'; # +x <=> 0
+
+    my $t = $LIB->_mul($LIB->_copy($x->{_n}), $y->{_d});
+    my $u = $LIB->_mul($LIB->_copy($y->{_n}), $x->{_d});
+
+    my $cmp = $LIB->_acmp($t, $u);     # signs are equal
+    $cmp = -$cmp if $x->{sign} eq '-'; # both are '-' => reverse
+    $cmp;
+}
+
+sub bacmp {
+    # compare two numbers (as unsigned)
+
+    # set up parameters
+    my ($class, $x, $y) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y) = objectify(2, @_);
+    }
+
+    if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/)) {
+        # handle +-inf and NaN
+        return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        return 0 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} =~ /^[+-]inf$/;
+        return 1 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} !~ /^[+-]inf$/;
+        return -1;
+    }
+
+    my $t = $LIB->_mul($LIB->_copy($x->{_n}), $y->{_d});
+    my $u = $LIB->_mul($LIB->_copy($y->{_n}), $x->{_d});
+    $LIB->_acmp($t, $u);        # ignore signs
+}
+
+sub beq {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'beq() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for beq()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && ! $cmp;
+}
+
+sub bne {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bne() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for bne()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && ! $cmp ? '' : 1;
+}
+
+sub blt {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'blt() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for blt()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp < 0;
+}
+
+sub ble {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'ble() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for ble()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp <= 0;
+}
+
+sub bgt {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bgt() is an instance method, not a class method' unless $selfref;
+    Carp::croak 'Wrong number of arguments for bgt()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp > 0;
+}
+
+sub bge {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    Carp::croak 'bge() is an instance method, not a class method'
+        unless $selfref;
+    Carp::croak 'Wrong number of arguments for bge()' unless @_ == 1;
+
+    my $cmp = $self -> bcmp(shift);
+    return defined($cmp) && $cmp >= 0;
+}
+
+##############################################################################
+# output conversion
+
+sub numify {
+    # convert 17/8 => float (aka 2.125)
+    my ($self, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    # Non-finite number.
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/;
+
+    # Finite number.
+
+    my $abs = $LIB->_is_one($x->{_d})
+            ? $LIB->_num($x->{_n})
+            : Math::BigFloat -> new($LIB->_str($x->{_n}))
+                             -> bdiv($LIB->_str($x->{_d}))
+                             -> bstr();
+    return $x->{sign} eq '-' ? 0 - $abs : 0 + $abs;
+}
+
+sub as_number {
+    my ($self, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    # NaN, inf etc
+    return Math::BigInt->new($x->{sign}) if $x->{sign} !~ /^[+-]$/;
+
+    my $u = Math::BigInt->bzero();
+    $u->{value} = $LIB->_div($LIB->_copy($x->{_n}), $x->{_d}); # 22/7 => 3
+    $u->bneg if $x->{sign} eq '-'; # no negative zero
+    $u;
+}
+
+sub as_float {
+    # return N/D as Math::BigFloat
+
+    # set up parameters
+    my ($class, $x, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    ($class, $x, @r) = objectify(1, @_) unless ref $_[0];
+
+    # NaN, inf etc
+    return Math::BigFloat->new($x->{sign}) if $x->{sign} !~ /^[+-]$/;
+
+    my $xd   = Math::BigFloat -> new($LIB -> _str($x->{_d}));
+    my $xflt = Math::BigFloat -> new($LIB -> _str($x->{_n}));
+    $xflt -> {sign} = $x -> {sign};
+    $xflt -> bdiv($xd, @r);
+
+    return $xflt;
+}
+
+sub as_bin {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x unless $x->is_int();
+
+    my $s = $x->{sign};
+    $s = '' if $s eq '+';
+    $s . $LIB->_as_bin($x->{_n});
+}
+
+sub as_hex {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x unless $x->is_int();
+
+    my $s = $x->{sign}; $s = '' if $s eq '+';
+    $s . $LIB->_as_hex($x->{_n});
+}
+
+sub as_oct {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x unless $x->is_int();
+
+    my $s = $x->{sign}; $s = '' if $s eq '+';
+    $s . $LIB->_as_oct($x->{_n});
+}
+
+##############################################################################
+
+sub from_hex {
+    my $class = shift;
+
+    $class->new(@_);
+}
+
+sub from_bin {
+    my $class = shift;
+
+    $class->new(@_);
+}
+
+sub from_oct {
+    my $class = shift;
+
+    my @parts;
+    for my $c (@_) {
+        push @parts, Math::BigInt->from_oct($c);
+    }
+    $class->new (@parts);
+}
+
+##############################################################################
+# import
+
+sub import {
+    my $class = shift;
+    my $l = scalar @_;
+    my $lib = ''; my @a;
+    my $try = 'try';
+
+    for (my $i = 0; $i < $l ; $i++) {
+        if ($_[$i] eq ':constant') {
+            # this rest causes overlord er load to step in
+            overload::constant float => sub { $class->new(shift); };
+        }
+        #    elsif ($_[$i] eq 'upgrade')
+        #      {
+        #     # this causes upgrading
+        #      $upgrade = $_[$i+1];             # or undef to disable
+        #      $i++;
+        #      }
+        elsif ($_[$i] eq 'downgrade') {
+            # this causes downgrading
+            $downgrade = $_[$i+1]; # or undef to disable
+            $i++;
+        } elsif ($_[$i] =~ /^(lib|try|only)\z/) {
+            $lib = $_[$i+1] || ''; # default Calc
+            $try = $1;             # lib, try or only
+            $i++;
+        } elsif ($_[$i] eq 'with') {
+            # this argument is no longer used
+            #$LIB = $_[$i+1] || 'Math::BigInt::Calc'; # default Math::BigInt::Calc
+            $i++;
+        } else {
+            push @a, $_[$i];
+        }
+    }
+    require Math::BigInt;
+
+    # let use Math::BigInt lib => 'GMP'; use Math::BigRat; still have GMP
+    if ($lib ne '') {
+        my @c = split /\s*,\s*/, $lib;
+        foreach (@c) {
+            $_ =~ tr/a-zA-Z0-9://cd; # limit to sane characters
+        }
+        $lib = join(",", @c);
+    }
+    my @import = ('objectify');
+    push @import, $try => $lib if $lib ne '';
+
+    # LIB already loaded, so feed it our lib arguments
+    Math::BigInt->import(@import);
+
+    $LIB = Math::BigFloat->config()->{lib};
+
+    # register us with LIB to get notified of future lib changes
+    Math::BigInt::_register_callback($class, sub { $LIB = $_[0]; });
+
+    # any non :constant stuff is handled by our parent, Exporter (loaded
+    # by Math::BigFloat, even if @_ is empty, to give it a chance
+    $class->SUPER::import(@a);           # for subclasses
+    $class->export_to_level(1, $class, @a); # need this, too
+}
+
+1;
+
+__END__
+
+package Math::BigFloat;
+
+#
+# Mike grinned. 'Two down, infinity to go' - Mike Nostrus in 'Before and After'
+#
+
+# The following hash values are used internally:
+# sign  : "+", "-", "+inf", "-inf", or "NaN" if not a number
+#   _m  : mantissa ($CALC object)
+#   _es : sign of _e
+#   _e  : exponent ($CALC object)
+#   _a  : accuracy
+#   _p  : precision
+
+use 5.006001;
+use strict;
+use warnings;
+
+use Carp ();
+use Math::BigInt ();
+
+our $VERSION = '1.999811';
+
+require Exporter;
+our @ISA        = qw/Math::BigInt/;
+our @EXPORT_OK  = qw/bpi/;
+
+# $_trap_inf/$_trap_nan are internal and should never be accessed from outside
+our ($AUTOLOAD, $accuracy, $precision, $div_scale, $round_mode, $rnd_mode,
+     $upgrade, $downgrade, $_trap_nan, $_trap_inf);
+
+my $class = "Math::BigFloat";
+
+use overload
+
+  # overload key: with_assign
+
+  '+'     =>      sub { $_[0] -> copy() -> badd($_[1]); },
+
+  '-'     =>      sub { my $c = $_[0] -> copy();
+                        $_[2] ? $c -> bneg() -> badd($_[1])
+                              : $c -> bsub($_[1]); },
+
+  '*'     =>      sub { $_[0] -> copy() -> bmul($_[1]); },
+
+  '/'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bdiv($_[0])
+                              : $_[0] -> copy() -> bdiv($_[1]); },
+
+  '%'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bmod($_[0])
+                              : $_[0] -> copy() -> bmod($_[1]); },
+
+  '**'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bpow($_[0])
+                              : $_[0] -> copy() -> bpow($_[1]); },
+
+  '<<'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blsft($_[0])
+                              : $_[0] -> copy() -> blsft($_[1]); },
+
+  '>>'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> brsft($_[0])
+                              : $_[0] -> copy() -> brsft($_[1]); },
+
+  # overload key: assign
+
+  '+='    =>      sub { $_[0]->badd($_[1]); },
+
+  '-='    =>      sub { $_[0]->bsub($_[1]); },
+
+  '*='    =>      sub { $_[0]->bmul($_[1]); },
+
+  '/='    =>      sub { scalar $_[0]->bdiv($_[1]); },
+
+  '%='    =>      sub { $_[0]->bmod($_[1]); },
+
+  '**='   =>      sub { $_[0]->bpow($_[1]); },
+
+
+  '<<='   =>      sub { $_[0]->blsft($_[1]); },
+
+  '>>='   =>      sub { $_[0]->brsft($_[1]); },
+
+#  'x='    =>      sub { },
+
+#  '.='    =>      sub { },
+
+  # overload key: num_comparison
+
+  '<'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> blt($_[0])
+                              : $_[0] -> blt($_[1]); },
+
+  '<='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> ble($_[0])
+                              : $_[0] -> ble($_[1]); },
+
+  '>'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bgt($_[0])
+                              : $_[0] -> bgt($_[1]); },
+
+  '>='    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bge($_[0])
+                              : $_[0] -> bge($_[1]); },
+
+  '=='    =>      sub { $_[0] -> beq($_[1]); },
+
+  '!='    =>      sub { $_[0] -> bne($_[1]); },
+
+  # overload key: 3way_comparison
+
+  '<=>'   =>      sub { my $cmp = $_[0] -> bcmp($_[1]);
+                        defined($cmp) && $_[2] ? -$cmp : $cmp; },
+
+  'cmp'   =>      sub { $_[2] ? "$_[1]" cmp $_[0] -> bstr()
+                              : $_[0] -> bstr() cmp "$_[1]"; },
+
+  # overload key: str_comparison
+
+#  'lt'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrlt($_[0])
+#                              : $_[0] -> bstrlt($_[1]); },
+#
+#  'le'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrle($_[0])
+#                              : $_[0] -> bstrle($_[1]); },
+#
+#  'gt'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrgt($_[0])
+#                              : $_[0] -> bstrgt($_[1]); },
+#
+#  'ge'    =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bstrge($_[0])
+#                              : $_[0] -> bstrge($_[1]); },
+#
+#  'eq'    =>      sub { $_[0] -> bstreq($_[1]); },
+#
+#  'ne'    =>      sub { $_[0] -> bstrne($_[1]); },
+
+  # overload key: binary
+
+  '&'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> band($_[0])
+                              : $_[0] -> copy() -> band($_[1]); },
+
+  '&='    =>      sub { $_[0] -> band($_[1]); },
+
+  '|'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bior($_[0])
+                              : $_[0] -> copy() -> bior($_[1]); },
+
+  '|='    =>      sub { $_[0] -> bior($_[1]); },
+
+  '^'     =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> bxor($_[0])
+                              : $_[0] -> copy() -> bxor($_[1]); },
+
+  '^='    =>      sub { $_[0] -> bxor($_[1]); },
+
+#  '&.'    =>      sub { },
+
+#  '&.='   =>      sub { },
+
+#  '|.'    =>      sub { },
+
+#  '|.='   =>      sub { },
+
+#  '^.'    =>      sub { },
+
+#  '^.='   =>      sub { },
+
+  # overload key: unary
+
+  'neg'   =>      sub { $_[0] -> copy() -> bneg(); },
+
+#  '!'     =>      sub { },
+
+  '~'     =>      sub { $_[0] -> copy() -> bnot(); },
+
+#  '~.'    =>      sub { },
+
+  # overload key: mutators
+
+  '++'    =>      sub { $_[0] -> binc() },
+
+  '--'    =>      sub { $_[0] -> bdec() },
+
+  # overload key: func
+
+  'atan2' =>      sub { $_[2] ? ref($_[0]) -> new($_[1]) -> batan2($_[0])
+                              : $_[0] -> copy() -> batan2($_[1]); },
+
+  'cos'   =>      sub { $_[0] -> copy() -> bcos(); },
+
+  'sin'   =>      sub { $_[0] -> copy() -> bsin(); },
+
+  'exp'   =>      sub { $_[0] -> copy() -> bexp($_[1]); },
+
+  'abs'   =>      sub { $_[0] -> copy() -> babs(); },
+
+  'log'   =>      sub { $_[0] -> copy() -> blog(); },
+
+  'sqrt'  =>      sub { $_[0] -> copy() -> bsqrt(); },
+
+  'int'   =>      sub { $_[0] -> copy() -> bint(); },
+
+  # overload key: conversion
+
+  'bool'  =>      sub { $_[0] -> is_zero() ? '' : 1; },
+
+  '""'    =>      sub { $_[0] -> bstr(); },
+
+  '0+'    =>      sub { $_[0] -> numify(); },
+
+  '='     =>      sub { $_[0]->copy(); },
+
+  ;
+
+##############################################################################
+# global constants, flags and assorted stuff
+
+# the following are public, but their usage is not recommended. Use the
+# accessor methods instead.
+
+# class constants, use Class->constant_name() to access
+# one of 'even', 'odd', '+inf', '-inf', 'zero', 'trunc' or 'common'
+$round_mode = 'even';
+$accuracy   = undef;
+$precision  = undef;
+$div_scale  = 40;
+
+$upgrade = undef;
+$downgrade = undef;
+# the package we are using for our private parts, defaults to:
+# Math::BigInt->config('lib')
+my $MBI = 'Math::BigInt::Calc';
+
+# are NaNs ok? (otherwise it dies when encountering an NaN) set w/ config()
+$_trap_nan = 0;
+# the same for infinity
+$_trap_inf = 0;
+
+# constant for easier life
+my $nan = 'NaN';
+
+my $IMPORT = 0; # was import() called yet? used to make require work
+
+# some digits of accuracy for blog(undef, 10); which we use in blog() for speed
+my $LOG_10 =
+ '2.3025850929940456840179914546843642076011014886287729760333279009675726097';
+my $LOG_10_A = length($LOG_10)-1;
+# ditto for log(2)
+my $LOG_2 =
+ '0.6931471805599453094172321214581765680755001343602552541206800094933936220';
+my $LOG_2_A = length($LOG_2)-1;
+my $HALF = '0.5';                       # made into an object if nec.
+
+##############################################################################
+# the old code had $rnd_mode, so we need to support it, too
+
+sub TIESCALAR {
+    my ($class) = @_;
+    bless \$round_mode, $class;
+}
+
+sub FETCH {
+    return $round_mode;
+}
+
+sub STORE {
+    $rnd_mode = $_[0]->round_mode($_[1]);
+}
+
+BEGIN {
+    # when someone sets $rnd_mode, we catch this and check the value to see
+    # whether it is valid or not.
+    $rnd_mode   = 'even';
+    tie $rnd_mode, 'Math::BigFloat';
+
+    # we need both of them in this package:
+    *as_int = \&as_number;
+}
+
+sub DESTROY {
+    # going through AUTOLOAD for every DESTROY is costly, avoid it by empty sub
+}
+
+sub AUTOLOAD {
+    # make fxxx and bxxx both work by selectively mapping fxxx() to MBF::bxxx()
+    my $name = $AUTOLOAD;
+
+    $name =~ s/(.*):://;        # split package
+    my $c = $1 || $class;
+    no strict 'refs';
+    $c->import() if $IMPORT == 0;
+    if (!_method_alias($name)) {
+        if (!defined $name) {
+            # delayed load of Carp and avoid recursion
+            Carp::croak("$c: Can't call a method without name");
+        }
+        if (!_method_hand_up($name)) {
+            # delayed load of Carp and avoid recursion
+            Carp::croak("Can't call $c\-\>$name, not a valid method");
+        }
+        # try one level up, but subst. bxxx() for fxxx() since MBI only got bxxx()
+        $name =~ s/^f/b/;
+        return &{"Math::BigInt"."::$name"}(@_);
+    }
+    my $bname = $name;
+    $bname =~ s/^f/b/;
+    $c .= "::$name";
+    *{$c} = \&{$bname};
+    &{$c};                      # uses @_
+}
+
+##############################################################################
+
+{
+    # valid method aliases for AUTOLOAD
+    my %methods = map { $_ => 1 }
+      qw / fadd fsub fmul fdiv fround ffround fsqrt fmod fstr fsstr fpow fnorm
+           fint facmp fcmp fzero fnan finf finc fdec ffac fneg
+           fceil ffloor frsft flsft fone flog froot fexp
+         /;
+    # valid methods that can be handed up (for AUTOLOAD)
+    my %hand_ups = map { $_ => 1 }
+      qw / is_nan is_inf is_negative is_positive is_pos is_neg
+           accuracy precision div_scale round_mode fabs fnot
+           objectify upgrade downgrade
+           bone binf bnan bzero
+           bsub
+         /;
+
+    sub _method_alias { exists $methods{$_[0]||''}; }
+    sub _method_hand_up { exists $hand_ups{$_[0]||''}; }
+}
+
+sub DEBUG () { 0; }
+
+sub isa {
+    my ($self, $class) = @_;
+    return if $class =~ /^Math::BigInt/; # we aren't one of these
+    UNIVERSAL::isa($self, $class);
+}
+
+sub config {
+    # return (later set?) configuration data as hash ref
+    my $class = shift || 'Math::BigFloat';
+
+    if (@_ == 1 && ref($_[0]) ne 'HASH') {
+        my $cfg = $class->SUPER::config();
+        return $cfg->{$_[0]};
+    }
+
+    my $cfg = $class->SUPER::config(@_);
+
+    # now we need only to override the ones that are different from our parent
+    $cfg->{class} = $class;
+    $cfg->{with} = $MBI;
+    $cfg;
+}
+
+###############################################################################
+# Constructor methods
+###############################################################################
+
+sub new {
+    # Create a new Math::BigFloat object from a string or another bigfloat object.
+    # _e: exponent
+    # _m: mantissa
+    # sign  => ("+", "-", "+inf", "-inf", or "NaN")
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my ($wanted, @r) = @_;
+
+    # avoid numify-calls by not using || on $wanted!
+
+    unless (defined $wanted) {
+        #Carp::carp("Use of uninitialized value in new");
+        return $self->bzero(@r);
+    }
+
+    # Using $wanted->isa("Math::BigFloat") here causes a 'Deep recursion on
+    # subroutine "Math::BigFloat::as_number"' in some tests. Fixme!
+
+    if (UNIVERSAL::isa($wanted, 'Math::BigFloat')) {
+        my $copy = $wanted -> copy();
+        if ($selfref) {                 # if new() called as instance method
+            %$self = %$copy;
+        } else {                        # if new() called as class method
+            $self = $copy;
+        }
+        return $copy;
+    }
+
+    $class->import() if $IMPORT == 0;             # make require work
+
+    # If called as a class method, initialize a new object.
+
+    $self = bless {}, $class unless $selfref;
+
+    # shortcut for bigints and its subclasses
+    if ((ref($wanted)) && $wanted -> can("as_number")) {
+        $self->{_m} = $wanted->as_number()->{value};  # get us a bigint copy
+        $self->{_e} = $MBI->_zero();
+        $self->{_es} = '+';
+        $self->{sign} = $wanted->sign();
+        return $self->bnorm();
+    }
+
+    # else: got a string or something masquerading as number (with overload)
+
+    # Handle Infs.
+
+    if ($wanted =~ /^\s*([+-]?)inf(inity)?\s*\z/i) {
+        return $downgrade->new($wanted) if $downgrade;
+        my $sgn = $1 || '+';
+        $self->{sign} = $sgn . 'inf';   # set a default sign for bstr()
+        return $self->binf($sgn);
+    }
+
+    # Handle explicit NaNs (not the ones returned due to invalid input).
+
+    if ($wanted =~ /^\s*([+-]?)nan\s*\z/i) {
+        return $downgrade->new($wanted) if $downgrade;
+        $self = $class -> bnan();
+        $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+        return $self;
+    }
+
+    # Handle hexadecimal numbers.
+
+    if ($wanted =~ /^\s*[+-]?0[Xx]/) {
+        $self = $class -> from_hex($wanted);
+        $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+        return $self;
+    }
+
+    # Handle binary numbers.
+
+    if ($wanted =~ /^\s*[+-]?0[Bb]/) {
+        $self = $class -> from_bin($wanted);
+        $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+        return $self;
+    }
+
+    # Shortcut for simple forms like '12' that have no trailing zeros.
+    if ($wanted =~ /^([+-]?)0*([1-9][0-9]*[1-9])$/) {
+        $self->{_e}   = $MBI -> _zero();
+        $self->{_es}  = '+';
+        $self->{sign} = $1 || '+';
+        $self->{_m}   = $MBI -> _new($2);
+        if (!$downgrade) {
+            $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+            return $self;
+        }
+    }
+
+    my ($mis, $miv, $mfv, $es, $ev) = Math::BigInt::_split($wanted);
+    if (!ref $mis) {
+        if ($_trap_nan) {
+            Carp::croak("$wanted is not a number initialized to $class");
+        }
+
+        return $downgrade->bnan() if $downgrade;
+
+        $self->{_e} = $MBI->_zero();
+        $self->{_es} = '+';
+        $self->{_m} = $MBI->_zero();
+        $self->{sign} = $nan;
+    } else {
+        # make integer from mantissa by adjusting exp, then convert to int
+        $self->{_e} = $MBI->_new($$ev); # exponent
+        $self->{_es} = $$es || '+';
+        my $mantissa = "$$miv$$mfv";     # create mant.
+        $mantissa =~ s/^0+(\d)/$1/;      # strip leading zeros
+        $self->{_m} = $MBI->_new($mantissa); # create mant.
+
+        # 3.123E0 = 3123E-3, and 3.123E-2 => 3123E-5
+        if (CORE::length($$mfv) != 0) {
+            my $len = $MBI->_new(CORE::length($$mfv));
+            ($self->{_e}, $self->{_es}) =
+              _e_sub($self->{_e}, $len, $self->{_es}, '+');
+        }
+        # we can only have trailing zeros on the mantissa if $$mfv eq ''
+        else {
+            # Use a regexp to count the trailing zeros in $$miv instead of
+            # _zeros() because that is faster, especially when _m is not stored
+            # in base 10.
+            my $zeros = 0;
+            $zeros = CORE::length($1) if $$miv =~ /[1-9](0*)$/;
+            if ($zeros != 0) {
+                my $z = $MBI->_new($zeros);
+                # turn '120e2' into '12e3'
+                $self->{_m} = $MBI->_rsft($self->{_m}, $z, 10);
+                ($self->{_e}, $self->{_es}) =
+                  _e_add($self->{_e}, $z, $self->{_es}, '+');
+            }
+        }
+        $self->{sign} = $$mis;
+
+        # for something like 0Ey, set y to 0, and -0 => +0
+        # Check $$miv for being '0' and $$mfv eq '', because otherwise _m could not
+        # have become 0. That's faster than to call $MBI->_is_zero().
+        $self->{sign} = '+', $self->{_e} = $MBI->_zero()
+          if $$miv eq '0' and $$mfv eq '';
+
+        if (!$downgrade) {
+            $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+            return $self;
+        }
+    }
+
+    # if downgrade, inf, NaN or integers go down
+
+    if ($downgrade && $self->{_es} eq '+') {
+        if ($MBI->_is_zero($self->{_e})) {
+            return $downgrade->new($$mis . $MBI->_str($self->{_m}));
+        }
+        return $downgrade->new($self->bsstr());
+    }
+    $self->bnorm();
+    $self->round(@r) unless @r >= 2 && !defined $r[0] && !defined $r[1];
+    return $self;
+}
+
+sub from_hex {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_hex');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+
+                     # sign
+                     ( [+-]? )
+
+                     # optional "hex marker"
+                     (?: 0? x )?
+
+                     # significand using the hex digits 0..9 and a..f
+                     (
+                         [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )*
+                         (?:
+                             \.
+                             (?: [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )* )?
+                         )?
+                     |
+                         \.
+                         [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     \s*
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand. Since the digits in the significand are in base 16,
+        # but the exponent is only in base 2, multiply the exponent adjustment
+        # value by log(16) / log(2) = 4.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx)
+                                 -> bmul("4");
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_hex('0x' . $s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+sub from_oct {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_oct');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+
+                     # sign
+                     ( [+-]? )
+
+                     # significand using the octal digits 0..7
+                     (
+                         [0-7]+ (?: _ [0-7]+ )*
+                         (?:
+                             \.
+                             (?: [0-7]+ (?: _ [0-7]+ )* )?
+                         )?
+                     |
+                         \.
+                         [0-7]+ (?: _ [0-7]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     \s*
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand. Since the digits in the significand are in base 8,
+        # but the exponent is only in base 2, multiply the exponent adjustment
+        # value by log(8) / log(2) = 3.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx)
+                                 -> bmul("3");
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_oct($s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+sub from_bin {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Don't modify constant (read-only) objects.
+
+    return if $selfref && $self->modify('from_bin');
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     \s*
+
+                     # sign
+                     ( [+-]? )
+
+                     # optional "bin marker"
+                     (?: 0? b )?
+
+                     # significand using the binary digits 0 and 1
+                     (
+                         [01]+ (?: _ [01]+ )*
+                         (?:
+                             \.
+                             (?: [01]+ (?: _ [01]+ )* )?
+                         )?
+                     |
+                         \.
+                         [01]+ (?: _ [01]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     \s*
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx);
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_bin('0b' . $s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+sub bzero {
+    # create/assign '+0'
+
+    if (@_ == 0) {
+        #Carp::carp("Using bone() as a function is deprecated;",
+        #           " use bone() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self->import() if $IMPORT == 0;            # make require work
+    return if $selfref && $self->modify('bzero');
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign} = '+';
+    $self -> {_m}   = $MBI -> _zero();
+    $self -> {_es}  = '+';
+    $self -> {_e}   = $MBI -> _zero();
+
+    if (@_ > 0) {
+        if (@_ > 3) {
+            # call like: $x->bzero($a, $p, $r, $y);
+            ($self, $self->{_a}, $self->{_p}) = $self->_find_round_parameters(@_);
+        } else {
+            # call like: $x->bzero($a, $p, $r);
+            $self->{_a} = $_[0]
+              if !defined $self->{_a} || (defined $_[0] && $_[0] > $self->{_a});
+            $self->{_p} = $_[1]
+              if !defined $self->{_p} || (defined $_[1] && $_[1] > $self->{_p});
+        }
+    }
+
+    return $self;
+}
+
+sub bone {
+    # Create or assign '+1' (or -1 if given sign '-').
+
+    if (@_ == 0 || (defined($_[0]) && ($_[0] eq '+' || $_[0] eq '-'))) {
+        #Carp::carp("Using bone() as a function is deprecated;",
+        #           " use bone() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    $self->import() if $IMPORT == 0;            # make require work
+    return if $selfref && $self->modify('bone');
+
+    my $sign = shift;
+    $sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign} = $sign;
+    $self -> {_m}   = $MBI -> _one();
+    $self -> {_es}  = '+';
+    $self -> {_e}   = $MBI -> _zero();
+
+    if (@_ > 0) {
+        if (@_ > 3) {
+            # call like: $x->bone($sign, $a, $p, $r, $y, ...);
+            ($self, $self->{_a}, $self->{_p}) = $self->_find_round_parameters(@_);
+        } else {
+            # call like: $x->bone($sign, $a, $p, $r);
+            $self->{_a} = $_[0]
+              if ((!defined $self->{_a}) || (defined $_[0] && $_[0] > $self->{_a}));
+            $self->{_p} = $_[1]
+              if ((!defined $self->{_p}) || (defined $_[1] && $_[1] > $self->{_p}));
+        }
+    }
+
+    return $self;
+}
+
+sub binf {
+    # create/assign a '+inf' or '-inf'
+
+    if (@_ == 0 || (defined($_[0]) && !ref($_[0]) &&
+                    $_[0] =~ /^\s*[+-](inf(inity)?)?\s*$/))
+    {
+        #Carp::carp("Using binf() as a function is deprecated;",
+        #           " use binf() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    {
+        no strict 'refs';
+        if (${"${class}::_trap_inf"}) {
+            Carp::croak("Tried to create +-inf in $class->binf()");
+        }
+    }
+
+    $self->import() if $IMPORT == 0;            # make require work
+    return if $selfref && $self->modify('binf');
+
+    my $sign = shift;
+    $sign = defined $sign && $sign =~ /^\s*-/ ? "-" : "+";
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign} = $sign . 'inf';
+    $self -> {_m}   = $MBI -> _zero();
+    $self -> {_es}  = '+';
+    $self -> {_e}   = $MBI -> _zero();
+
+    return $self;
+}
+
+sub bnan {
+    # create/assign a 'NaN'
+
+    if (@_ == 0) {
+        #Carp::carp("Using bnan() as a function is deprecated;",
+        #           " use bnan() as a method instead");
+        unshift @_, __PACKAGE__;
+    }
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    {
+        no strict 'refs';
+        if (${"${class}::_trap_nan"}) {
+            Carp::croak("Tried to create NaN in $class->bnan()");
+        }
+    }
+
+    $self->import() if $IMPORT == 0;            # make require work
+    return if $selfref && $self->modify('bnan');
+
+    $self = bless {}, $class unless $selfref;
+
+    $self -> {sign} = $nan;
+    $self -> {_m}   = $MBI -> _zero();
+    $self -> {_es}  = '+';
+    $self -> {_e}   = $MBI -> _zero();
+
+    return $self;
+}
+
+sub bpi {
+
+    # Called as                 Argument list
+    # ---------                 -------------
+    # Math::BigFloat->bpi()     ("Math::BigFloat")
+    # Math::BigFloat->bpi(10)   ("Math::BigFloat", 10)
+    # $x->bpi()                 ($x)
+    # $x->bpi(10)               ($x, 10)
+    # Math::BigFloat::bpi()     ()
+    # Math::BigFloat::bpi(10)   (10)
+    #
+    # In ambiguous cases, we favour the OO-style, so the following case
+    #
+    #   $n = Math::BigFloat->new("10");
+    #   $x = Math::BigFloat->bpi($n);
+    #
+    # which gives an argument list with the single element $n, is resolved as
+    #
+    #   $n->bpi();
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my @r;                      # rounding paramters
+
+    # If bpi() is called as a function ...
+    #
+    # This cludge is necessary because we still support bpi() as a function. If
+    # bpi() is called with either no argument or one argument, and that one
+    # argument is either undefined or a scalar that looks like a number, then
+    # we assume bpi() is called as a function.
+
+    if (@_ == 0 &&
+        (defined($self) && !ref($self) && $self =~ /^\s*[+-]?\d/i)
+          ||
+        !defined($self))
+    {
+        $r[0]  = $self;
+        $class = __PACKAGE__;
+        $self  = $class -> bzero(@r);       # initialize
+    }
+
+    # ... or if bpi() is called as a method ...
+
+    else {
+        @r = @_;
+        if ($selfref) {                     # bpi() called as instance method
+            return $self if $self -> modify('bpi');
+        } else {                            # bpi() called as class method
+            $self = $class -> bzero(@r);    # initialize
+        }
+    }
+
+    ($self, @r) = $self -> _find_round_parameters(@r);
+
+    # The accuracy, i.e., the number of digits. Pi has one digit before the
+    # dot, so a precision of 4 digits is equivalent to an accuracy of 5 digits.
+
+    my $n = defined $r[0] ? $r[0]
+          : defined $r[1] ? 1 - $r[1]
+          : $self -> div_scale();
+
+    my $rmode = defined $r[2] ? $r[2] : $self -> round_mode();
+
+    my $pi;
+
+    if ($n <= 1000) {
+
+        # 75 x 14 = 1050 digits
+
+        my $all_digits = <<EOF;
+314159265358979323846264338327950288419716939937510582097494459230781640628
+620899862803482534211706798214808651328230664709384460955058223172535940812
+848111745028410270193852110555964462294895493038196442881097566593344612847
+564823378678316527120190914564856692346034861045432664821339360726024914127
+372458700660631558817488152092096282925409171536436789259036001133053054882
+046652138414695194151160943305727036575959195309218611738193261179310511854
+807446237996274956735188575272489122793818301194912983367336244065664308602
+139494639522473719070217986094370277053921717629317675238467481846766940513
+200056812714526356082778577134275778960917363717872146844090122495343014654
+958537105079227968925892354201995611212902196086403441815981362977477130996
+051870721134999999837297804995105973173281609631859502445945534690830264252
+230825334468503526193118817101000313783875288658753320838142061717766914730
+359825349042875546873115956286388235378759375195778185778053217122680661300
+192787661119590921642019893809525720106548586327886593615338182796823030195
+EOF
+
+        # Should we round up?
+
+        my $round_up;
+
+        # From the string above, we need to extract the number of digits we
+        # want plus extra characters for the newlines.
+
+        my $nchrs = $n + int($n / 75);
+
+        # Extract the digits we want.
+
+        my $digits = substr($all_digits, 0, $nchrs);
+
+        # Find out whether we should round up or down. Since pi is a
+        # transcendental number, we only have to look at one digit after the
+        # last digit we want.
+
+        if ($rmode eq '+inf') {
+            $round_up = 1;
+        } elsif ($rmode eq 'trunc' || $rmode eq 'zero' || $rmode eq '-inf') {
+            $round_up = 0;
+        } else {
+            my $next_digit = substr($all_digits, $nchrs, 1);
+            $round_up = $next_digit lt '5' ? 0 : 1;
+        }
+
+        # Remove the newlines.
+
+        $digits =~ tr/0-9//cd;
+
+        # Now do the rounding. We could easily make the regex substitution
+        # handle all cases, but we avoid using the regex engine when it is
+        # simple to avoid it.
+
+        if ($round_up) {
+            my $last_digit = substr($digits, -1, 1);
+            if ($last_digit lt '9') {
+                substr($digits, -1, 1) = ++$last_digit;
+            } else {
+                $digits =~ s/([0-8])(9+)$/ ($1 + 1) . ("0" x CORE::length($2)) /e;
+            }
+        }
+
+        # Append the exponent and convert to an object.
+
+        $pi = Math::BigFloat -> new($digits . 'e-' . ($n - 1));
+
+    } else {
+
+        # For large accuracy, the arctan formulas become very inefficient with
+        # Math::BigFloat, so use Brent-Salamin (aka AGM or Gauss-Legendre).
+
+        # Use a few more digits in the intermediate computations.
+        my $nextra = 8;
+
+        $HALF = $class -> new($HALF) unless ref($HALF);
+        my ($an, $bn, $tn, $pn) = ($class -> bone, $HALF -> copy() -> bsqrt($n),
+                                   $HALF -> copy() -> bmul($HALF), $class -> bone);
+        while ($pn < $n) {
+            my $prev_an = $an -> copy();
+            $an -> badd($bn) -> bmul($HALF, $n);
+            $bn -> bmul($prev_an) -> bsqrt($n);
+            $prev_an -> bsub($an);
+            $tn -> bsub($pn * $prev_an * $prev_an);
+            $pn -> badd($pn);
+        }
+        $an -> badd($bn);
+        $an -> bmul($an, $n) -> bdiv(4 * $tn, $n);
+
+        $an -> round(@r);
+        $pi = $an;
+    }
+
+    if (defined $r[0]) {
+        $pi -> accuracy($r[0]);
+    } elsif (defined $r[1]) {
+        $pi -> precision($r[1]);
+    }
+
+    for my $key (qw/ sign _m _es _e _a _p /) {
+        $self -> {$key} = $pi -> {$key};
+    }
+
+    return $self;
+}
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign} = $self->{sign};
+    $copy->{_es}  = $self->{_es};
+    $copy->{_m}   = $MBI->_copy($self->{_m});
+    $copy->{_e}   = $MBI->_copy($self->{_e});
+    $copy->{_a}   = $self->{_a} if exists $self->{_a};
+    $copy->{_p}   = $self->{_p} if exists $self->{_p};
+
+    return $copy;
+}
+
+sub as_number {
+    # return copy as a bigint representation of this Math::BigFloat number
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x if $x->modify('as_number');
+
+    if (!$x->isa('Math::BigFloat')) {
+        # if the object can as_number(), use it
+        return $x->as_number() if $x->can('as_number');
+        # otherwise, get us a float and then a number
+        $x = $x->can('as_float') ? $x->as_float() : $class->new(0+"$x");
+    }
+
+    return Math::BigInt->binf($x->sign()) if $x->is_inf();
+    return Math::BigInt->bnan()           if $x->is_nan();
+
+    my $z = $MBI->_copy($x->{_m});
+    if ($x->{_es} eq '-') {                     # < 0
+        $z = $MBI->_rsft($z, $x->{_e}, 10);
+    } elsif (! $MBI->_is_zero($x->{_e})) {      # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    $z = Math::BigInt->new($x->{sign} . $MBI->_str($z));
+    $z;
+}
+
+###############################################################################
+# Boolean methods
+###############################################################################
+
+sub is_zero {
+    # return true if arg (BFLOAT or num_str) is zero
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    ($x->{sign} eq '+' && $MBI->_is_zero($x->{_m})) ? 1 : 0;
+}
+
+sub is_one {
+    # return true if arg (BFLOAT or num_str) is +1 or -1 if signis given
+    my ($class, $x, $sign) = ref($_[0]) ? (undef, @_) : objectify(1, @_);
+
+    $sign = '+' if !defined $sign || $sign ne '-';
+
+    ($x->{sign} eq $sign &&
+     $MBI->_is_zero($x->{_e}) &&
+     $MBI->_is_one($x->{_m})) ? 1 : 0;
+}
+
+sub is_odd {
+    # return true if arg (BFLOAT or num_str) is odd or false if even
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    (($x->{sign} =~ /^[+-]$/) && # NaN & +-inf aren't
+     ($MBI->_is_zero($x->{_e})) &&
+     ($MBI->_is_odd($x->{_m}))) ? 1 : 0;
+}
+
+sub is_even {
+    # return true if arg (BINT or num_str) is even or false if odd
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    (($x->{sign} =~ /^[+-]$/) &&        # NaN & +-inf aren't
+     ($x->{_es} eq '+') &&              # 123.45 isn't
+     ($MBI->_is_even($x->{_m}))) ? 1 : 0; # but 1200 is
+}
+
+sub is_int {
+    # return true if arg (BFLOAT or num_str) is an integer
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    (($x->{sign} =~ /^[+-]$/) && # NaN and +-inf aren't
+     ($x->{_es} eq '+')) ? 1 : 0; # 1e-1 => no integer
+}
+
+###############################################################################
+# Comparison methods
+###############################################################################
+
+sub bcmp {
+    # Compares 2 values.  Returns one of undef, <0, =0, >0. (suitable for sort)
+
+    # set up parameters
+    my ($class, $x, $y) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y) = objectify(2, @_);
+    }
+
+    return $upgrade->bcmp($x, $y) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    # Handle all 'nan' cases.
+
+    return undef if ($x->{sign} eq $nan) || ($y->{sign} eq $nan);
+
+    # Handle all '+inf' and '-inf' cases.
+
+    return  0 if ($x->{sign} eq '+inf' && $y->{sign} eq '+inf' ||
+                  $x->{sign} eq '-inf' && $y->{sign} eq '-inf');
+    return +1 if $x->{sign} eq '+inf'; # x = +inf and y < +inf
+    return -1 if $x->{sign} eq '-inf'; # x = -inf and y > -inf
+    return -1 if $y->{sign} eq '+inf'; # x < +inf and y = +inf
+    return +1 if $y->{sign} eq '-inf'; # x > -inf and y = -inf
+
+    # Handle all cases with opposite signs.
+
+    return +1 if $x->{sign} eq '+' && $y->{sign} eq '-'; # also does 0 <=> -y
+    return -1 if $x->{sign} eq '-' && $y->{sign} eq '+'; # also does -x <=> 0
+
+    # Handle all remaining zero cases.
+
+    my $xz = $x->is_zero();
+    my $yz = $y->is_zero();
+    return  0 if $xz && $yz;             # 0 <=> 0
+    return -1 if $xz && $y->{sign} eq '+'; # 0 <=> +y
+    return +1 if $yz && $x->{sign} eq '+'; # +x <=> 0
+
+    # Both arguments are now finite, non-zero numbers with the same sign.
+
+    my $cmp;
+
+    # The next step is to compare the exponents, but since each mantissa is an
+    # integer of arbitrary value, the exponents must be normalized by the length
+    # of the mantissas before we can compare them.
+
+    my $mxl = $MBI->_len($x->{_m});
+    my $myl = $MBI->_len($y->{_m});
+
+    # If the mantissas have the same length, there is no point in normalizing the
+    # exponents by the length of the mantissas, so treat that as a special case.
+
+    if ($mxl == $myl) {
+
+        # First handle the two cases where the exponents have different signs.
+
+        if ($x->{_es} eq '+' && $y->{_es} eq '-') {
+            $cmp = +1;
+        } elsif ($x->{_es} eq '-' && $y->{_es} eq '+') {
+            $cmp = -1;
+        }
+
+        # Then handle the case where the exponents have the same sign.
+
+        else {
+            $cmp = $MBI->_acmp($x->{_e}, $y->{_e});
+            $cmp = -$cmp if $x->{_es} eq '-';
+        }
+
+        # Adjust for the sign, which is the same for x and y, and bail out if
+        # we're done.
+
+        $cmp = -$cmp if $x->{sign} eq '-'; # 124 > 123, but -124 < -123
+        return $cmp if $cmp;
+
+    }
+
+    # We must normalize each exponent by the length of the corresponding
+    # mantissa. Life is a lot easier if we first make both exponents
+    # non-negative. We do this by adding the same positive value to both
+    # exponent. This is safe, because when comparing the exponents, only the
+    # relative difference is important.
+
+    my $ex;
+    my $ey;
+
+    if ($x->{_es} eq '+') {
+
+        # If the exponent of x is >= 0 and the exponent of y is >= 0, there is no
+        # need to do anything special.
+
+        if ($y->{_es} eq '+') {
+            $ex = $MBI->_copy($x->{_e});
+            $ey = $MBI->_copy($y->{_e});
+        }
+
+        # If the exponent of x is >= 0 and the exponent of y is < 0, add the
+        # absolute value of the exponent of y to both.
+
+        else {
+            $ex = $MBI->_copy($x->{_e});
+            $ex = $MBI->_add($ex, $y->{_e}); # ex + |ey|
+            $ey = $MBI->_zero();             # -ex + |ey| = 0
+        }
+
+    } else {
+
+        # If the exponent of x is < 0 and the exponent of y is >= 0, add the
+        # absolute value of the exponent of x to both.
+
+        if ($y->{_es} eq '+') {
+            $ex = $MBI->_zero(); # -ex + |ex| = 0
+            $ey = $MBI->_copy($y->{_e});
+            $ey = $MBI->_add($ey, $x->{_e}); # ey + |ex|
+        }
+
+        # If the exponent of x is < 0 and the exponent of y is < 0, add the
+        # absolute values of both exponents to both exponents.
+
+        else {
+            $ex = $MBI->_copy($y->{_e}); # -ex + |ey| + |ex| = |ey|
+            $ey = $MBI->_copy($x->{_e}); # -ey + |ex| + |ey| = |ex|
+        }
+
+    }
+
+    # Now we can normalize the exponents by adding lengths of the mantissas.
+
+    $ex = $MBI->_add($ex, $MBI->_new($mxl));
+    $ey = $MBI->_add($ey, $MBI->_new($myl));
+
+    # We're done if the exponents are different.
+
+    $cmp = $MBI->_acmp($ex, $ey);
+    $cmp = -$cmp if $x->{sign} eq '-'; # 124 > 123, but -124 < -123
+    return $cmp if $cmp;
+
+    # Compare the mantissas, but first normalize them by padding the shorter
+    # mantissa with zeros (shift left) until it has the same length as the longer
+    # mantissa.
+
+    my $mx = $x->{_m};
+    my $my = $y->{_m};
+
+    if ($mxl > $myl) {
+        $my = $MBI->_lsft($MBI->_copy($my), $MBI->_new($mxl - $myl), 10);
+    } elsif ($mxl < $myl) {
+        $mx = $MBI->_lsft($MBI->_copy($mx), $MBI->_new($myl - $mxl), 10);
+    }
+
+    $cmp = $MBI->_acmp($mx, $my);
+    $cmp = -$cmp if $x->{sign} eq '-'; # 124 > 123, but -124 < -123
+    return $cmp;
+
+}
+
+sub bacmp {
+    # Compares 2 values, ignoring their signs.
+    # Returns one of undef, <0, =0, >0. (suitable for sort)
+
+    # set up parameters
+    my ($class, $x, $y) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y) = objectify(2, @_);
+    }
+
+    return $upgrade->bacmp($x, $y) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    # handle +-inf and NaN's
+    if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/) {
+        return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        return 0 if ($x->is_inf() && $y->is_inf());
+        return 1 if ($x->is_inf() && !$y->is_inf());
+        return -1;
+    }
+
+    # shortcut
+    my $xz = $x->is_zero();
+    my $yz = $y->is_zero();
+    return 0 if $xz && $yz;     # 0 <=> 0
+    return -1 if $xz && !$yz;   # 0 <=> +y
+    return 1 if $yz && !$xz;    # +x <=> 0
+
+    # adjust so that exponents are equal
+    my $lxm = $MBI->_len($x->{_m});
+    my $lym = $MBI->_len($y->{_m});
+    my ($xes, $yes) = (1, 1);
+    $xes = -1 if $x->{_es} ne '+';
+    $yes = -1 if $y->{_es} ne '+';
+    # the numify somewhat limits our length, but makes it much faster
+    my $lx = $lxm + $xes * $MBI->_num($x->{_e});
+    my $ly = $lym + $yes * $MBI->_num($y->{_e});
+    my $l = $lx - $ly;
+    return $l <=> 0 if $l != 0;
+
+    # lengths (corrected by exponent) are equal
+    # so make mantissa equal-length by padding with zero (shift left)
+    my $diff = $lxm - $lym;
+    my $xm = $x->{_m};          # not yet copy it
+    my $ym = $y->{_m};
+    if ($diff > 0) {
+        $ym = $MBI->_copy($y->{_m});
+        $ym = $MBI->_lsft($ym, $MBI->_new($diff), 10);
+    } elsif ($diff < 0) {
+        $xm = $MBI->_copy($x->{_m});
+        $xm = $MBI->_lsft($xm, $MBI->_new(-$diff), 10);
+    }
+    $MBI->_acmp($xm, $ym);
+}
+
+###############################################################################
+# Arithmetic methods
+###############################################################################
+
+sub bneg {
+    # (BINT or num_str) return BINT
+    # negate number or make a negated number from string
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x if $x->modify('bneg');
+
+    # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+    $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
+    $x;
+}
+
+sub bnorm {
+    # adjust m and e so that m is smallest possible
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    return $x if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+
+    my $zeros = $MBI->_zeros($x->{_m}); # correct for trailing zeros
+    if ($zeros != 0) {
+        my $z = $MBI->_new($zeros);
+        $x->{_m} = $MBI->_rsft($x->{_m}, $z, 10);
+        if ($x->{_es} eq '-') {
+            if ($MBI->_acmp($x->{_e}, $z) >= 0) {
+                $x->{_e} = $MBI->_sub($x->{_e}, $z);
+                $x->{_es} = '+' if $MBI->_is_zero($x->{_e});
+            } else {
+                $x->{_e} = $MBI->_sub($MBI->_copy($z), $x->{_e});
+                $x->{_es} = '+';
+            }
+        } else {
+            $x->{_e} = $MBI->_add($x->{_e}, $z);
+        }
+    } else {
+        # $x can only be 0Ey if there are no trailing zeros ('0' has 0 trailing
+        # zeros). So, for something like 0Ey, set y to 1, and -0 => +0
+        $x->{sign} = '+', $x->{_es} = '+', $x->{_e} = $MBI->_one()
+          if $MBI->_is_zero($x->{_m});
+    }
+
+    $x;
+}
+
+sub binc {
+    # increment arg by one
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('binc');
+
+    if ($x->{_es} eq '-') {
+        return $x->badd($class->bone(), @r); #  digits after dot
+    }
+
+    if (!$MBI->_is_zero($x->{_e})) # _e == 0 for NaN, inf, -inf
+    {
+        # 1e2 => 100, so after the shift below _m has a '0' as last digit
+        $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e}, 10); # 1e2 => 100
+        $x->{_e} = $MBI->_zero();                      # normalize
+        $x->{_es} = '+';
+        # we know that the last digit of $x will be '1' or '9', depending on the
+        # sign
+    }
+    # now $x->{_e} == 0
+    if ($x->{sign} eq '+') {
+        $x->{_m} = $MBI->_inc($x->{_m});
+        return $x->bnorm()->bround(@r);
+    } elsif ($x->{sign} eq '-') {
+        $x->{_m} = $MBI->_dec($x->{_m});
+        $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
+        return $x->bnorm()->bround(@r);
+    }
+    # inf, nan handling etc
+    $x->badd($class->bone(), @r); # badd() does round
+}
+
+sub bdec {
+    # decrement arg by one
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bdec');
+
+    if ($x->{_es} eq '-') {
+        return $x->badd($class->bone('-'), @r); #  digits after dot
+    }
+
+    if (!$MBI->_is_zero($x->{_e})) {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e}, 10); # 1e2 => 100
+        $x->{_e} = $MBI->_zero();                      # normalize
+        $x->{_es} = '+';
+    }
+    # now $x->{_e} == 0
+    my $zero = $x->is_zero();
+    # <= 0
+    if (($x->{sign} eq '-') || $zero) {
+        $x->{_m} = $MBI->_inc($x->{_m});
+        $x->{sign} = '-' if $zero;                # 0 => 1 => -1
+        $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
+        return $x->bnorm()->round(@r);
+    }
+    # > 0
+    elsif ($x->{sign} eq '+') {
+        $x->{_m} = $MBI->_dec($x->{_m});
+        return $x->bnorm()->round(@r);
+    }
+    # inf, nan handling etc
+    $x->badd($class->bone('-'), @r); # does round
+}
+
+sub badd {
+    # add second arg (BFLOAT or string) to first (BFLOAT) (modifies first)
+    # return result as BFLOAT
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('badd');
+
+    # inf and NaN handling
+    if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/)) {
+        # NaN first
+        return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+        # inf handling
+        if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/)) {
+            # +inf++inf or -inf+-inf => same, rest is NaN
+            return $x if $x->{sign} eq $y->{sign};
+            return $x->bnan();
+        }
+        # +-inf + something => +inf; something +-inf => +-inf
+        $x->{sign} = $y->{sign}, return $x if $y->{sign} =~ /^[+-]inf$/;
+        return $x;
+    }
+
+    return $upgrade->badd($x, $y, @r) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    $r[3] = $y;                 # no push!
+
+    # speed: no add for 0+y or x+0
+    return $x->bround(@r) if $y->is_zero(); # x+0
+    if ($x->is_zero())                      # 0+y
+    {
+        # make copy, clobbering up x (modify in place!)
+        $x->{_e} = $MBI->_copy($y->{_e});
+        $x->{_es} = $y->{_es};
+        $x->{_m} = $MBI->_copy($y->{_m});
+        $x->{sign} = $y->{sign} || $nan;
+        return $x->round(@r);
+    }
+
+    # take lower of the two e's and adapt m1 to it to match m2
+    my $e = $y->{_e};
+    $e = $MBI->_zero() if !defined $e; # if no BFLOAT?
+    $e = $MBI->_copy($e);              # make copy (didn't do it yet)
+
+    my $es;
+
+    ($e, $es) = _e_sub($e, $x->{_e}, $y->{_es} || '+', $x->{_es});
+
+    my $add = $MBI->_copy($y->{_m});
+
+    if ($es eq '-')             # < 0
+    {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $e, 10);
+        ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $e, $x->{_es}, $es);
+    } elsif (!$MBI->_is_zero($e)) # > 0
+    {
+        $add = $MBI->_lsft($add, $e, 10);
+    }
+    # else: both e are the same, so just leave them
+
+    if ($x->{sign} eq $y->{sign}) {
+        # add
+        $x->{_m} = $MBI->_add($x->{_m}, $add);
+    } else {
+        ($x->{_m}, $x->{sign}) =
+          _e_add($x->{_m}, $add, $x->{sign}, $y->{sign});
+    }
+
+    # delete trailing zeros, then round
+    $x->bnorm()->round(@r);
+}
+
+sub bsub {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # subtract second arg from first, modify first
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('bsub');
+
+    return $upgrade -> new($x) -> bsub($upgrade -> new($y), @r)
+      if defined $upgrade && (!$x -> isa($class) || !$y -> isa($class));
+
+    return $x -> round(@r) if $y -> is_zero();
+
+    # To correctly handle the lone special case $x -> bsub($x), we note the
+    # sign of $x, then flip the sign from $y, and if the sign of $x did change,
+    # too, then we caught the special case:
+
+    my $xsign = $x -> {sign};
+    $y -> {sign} =~ tr/+-/-+/;  # does nothing for NaN
+    if ($xsign ne $x -> {sign}) {
+        # special case of $x -> bsub($x) results in 0
+        return $x -> bzero(@r) if $xsign =~ /^[+-]$/;
+        return $x -> bnan();    # NaN, -inf, +inf
+    }
+    $x -> badd($y, @r);         # badd does not leave internal zeros
+    $y -> {sign} =~ tr/+-/-+/;  # refix $y (does nothing for NaN)
+    $x;                         # already rounded by badd() or no rounding
+}
+
+sub bmul {
+    # multiply two numbers
+
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bmul');
+
+    return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/)) {
+        return $x->bnan() if $x->is_zero() || $y->is_zero();
+        # result will always be +-inf:
+        # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+        # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+        return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+        return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+        return $x->binf('-');
+    }
+
+    return $upgrade->bmul($x, $y, @r) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    # aEb * cEd = (a*c)E(b+d)
+    $x->{_m} = $MBI->_mul($x->{_m}, $y->{_m});
+    ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+
+    $r[3] = $y;                 # no push!
+
+    # adjust sign:
+    $x->{sign} = $x->{sign} ne $y->{sign} ? '-' : '+';
+    $x->bnorm->round(@r);
+}
+
+sub bmuladd {
+    # multiply two numbers and add the third to the result
+
+    # set up parameters
+    my ($class, $x, $y, $z, @r) = objectify(3, @_);
+
+    return $x if $x->modify('bmuladd');
+
+    return $x->bnan() if (($x->{sign} eq $nan) ||
+                          ($y->{sign} eq $nan) ||
+                          ($z->{sign} eq $nan));
+
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/)) {
+        return $x->bnan() if $x->is_zero() || $y->is_zero();
+        # result will always be +-inf:
+        # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+        # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+        return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+        return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+        return $x->binf('-');
+    }
+
+    return $upgrade->bmul($x, $y, @r) if defined $upgrade &&
+      ((!$x->isa($class)) || (!$y->isa($class)));
+
+    # aEb * cEd = (a*c)E(b+d)
+    $x->{_m} = $MBI->_mul($x->{_m}, $y->{_m});
+    ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+
+    $r[3] = $y;                 # no push!
+
+    # adjust sign:
+    $x->{sign} = $x->{sign} ne $y->{sign} ? '-' : '+';
+
+    # z=inf handling (z=NaN handled above)
+    $x->{sign} = $z->{sign}, return $x if $z->{sign} =~ /^[+-]inf$/;
+
+    # take lower of the two e's and adapt m1 to it to match m2
+    my $e = $z->{_e};
+    $e = $MBI->_zero() if !defined $e; # if no BFLOAT?
+    $e = $MBI->_copy($e);              # make copy (didn't do it yet)
+
+    my $es;
+
+    ($e, $es) = _e_sub($e, $x->{_e}, $z->{_es} || '+', $x->{_es});
+
+    my $add = $MBI->_copy($z->{_m});
+
+    if ($es eq '-')             # < 0
+    {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $e, 10);
+        ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $e, $x->{_es}, $es);
+    } elsif (!$MBI->_is_zero($e)) # > 0
+    {
+        $add = $MBI->_lsft($add, $e, 10);
+    }
+    # else: both e are the same, so just leave them
+
+    if ($x->{sign} eq $z->{sign}) {
+        # add
+        $x->{_m} = $MBI->_add($x->{_m}, $add);
+    } else {
+        ($x->{_m}, $x->{sign}) =
+          _e_add($x->{_m}, $add, $x->{sign}, $z->{sign});
+    }
+
+    # delete trailing zeros, then round
+    $x->bnorm()->round(@r);
+}
+
+sub bdiv {
+    # (dividend: BFLOAT or num_str, divisor: BFLOAT or num_str) return
+    # (BFLOAT, BFLOAT) (quo, rem) or BFLOAT (only quo)
+
+    # set up parameters
+    my ($class, $x, $y, $a, $p, $r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bdiv');
+
+    my $wantarray = wantarray;  # call only once
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bdiv().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $class -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comment in the code for Math::BigInt ->
+    # bdiv() for further details.
+
+    if ($y -> is_zero()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $quo = $x -> bnan();
+        } else {
+            $quo = $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comment in the code for Math::BigInt ->
+    # bdiv() for further details.
+
+    if ($x -> is_inf()) {
+        my ($quo, $rem);
+        $rem = $class -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $quo = $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $quo = $x -> binf($sign);
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bdiv(), with one exception: In scalar context,
+    # Math::BigFloat does true division (although rounded), not floored division
+    # (F-division), so a finite number divided by +/-inf is always zero. See the
+    # comment in the code for Math::BigInt -> bdiv() for further details.
+
+    if ($y -> is_inf()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+                $rem = $x -> copy();
+                $quo = $x -> bzero();
+            } else {
+                $rem = $class -> binf($y -> {sign});
+                $quo = $x -> bone('-');
+            }
+            return ($quo, $rem);
+        } else {
+            if ($y -> is_inf()) {
+                if ($x -> is_nan() || $x -> is_inf()) {
+                    return $x -> bnan();
+                } else {
+                    return $x -> bzero();
+                }
+            }
+        }
+    }
+
+    # At this point, both the numerator and denominator are finite numbers, and
+    # the denominator (divisor) is non-zero.
+
+    # x == 0?
+    return wantarray ? ($x, $class->bzero()) : $x if $x->is_zero();
+
+    # upgrade ?
+    return $upgrade->bdiv($upgrade->new($x), $y, $a, $p, $r) if defined $upgrade;
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my (@params, $scale);
+    ($x, @params) = $x->_find_round_parameters($a, $p, $r, $y);
+
+    return $x if $x->is_nan();  # error in _find_round_parameters?
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r;                  # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    my $rem;
+    $rem = $class -> bzero() if wantarray;
+
+    $y = $class->new($y) unless $y->isa('Math::BigFloat');
+
+    my $lx = $MBI -> _len($x->{_m}); my $ly = $MBI -> _len($y->{_m});
+    $scale = $lx if $lx > $scale;
+    $scale = $ly if $ly > $scale;
+    my $diff = $ly - $lx;
+    $scale += $diff if $diff > 0; # if lx << ly, but not if ly << lx!
+
+    # check that $y is not 1 nor -1 and cache the result:
+    my $y_not_one = !($MBI->_is_zero($y->{_e}) && $MBI->_is_one($y->{_m}));
+
+    # flipping the sign of $y will also flip the sign of $x for the special
+    # case of $x->bsub($x); so we can catch it below:
+    my $xsign = $x->{sign};
+    $y->{sign} =~ tr/+-/-+/;
+
+    if ($xsign ne $x->{sign}) {
+        # special case of $x /= $x results in 1
+        $x->bone();             # "fixes" also sign of $y, since $x is $y
+    } else {
+        # correct $y's sign again
+        $y->{sign} =~ tr/+-/-+/;
+        # continue with normal div code:
+
+        # make copy of $x in case of list context for later remainder calculation
+        if (wantarray && $y_not_one) {
+            $rem = $x->copy();
+        }
+
+        $x->{sign} = $x->{sign} ne $y->sign() ? '-' : '+';
+
+        # check for / +-1 (+/- 1E0)
+        if ($y_not_one) {
+            # promote BigInts and it's subclasses (except when already a Math::BigFloat)
+            $y = $class->new($y) unless $y->isa('Math::BigFloat');
+
+            # calculate the result to $scale digits and then round it
+            # a * 10 ** b / c * 10 ** d => a/c * 10 ** (b-d)
+            $x->{_m} = $MBI->_lsft($x->{_m}, $MBI->_new($scale), 10);
+            $x->{_m} = $MBI->_div($x->{_m}, $y->{_m}); # a/c
+
+            # correct exponent of $x
+            ($x->{_e}, $x->{_es}) = _e_sub($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+            # correct for 10**scale
+            ($x->{_e}, $x->{_es}) = _e_sub($x->{_e}, $MBI->_new($scale), $x->{_es}, '+');
+            $x->bnorm();        # remove trailing 0's
+        }
+    }                           # end else $x != $y
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        delete $x->{_a};               # clear before round
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        delete $x->{_p};                # clear before round
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a}; delete $x->{_p};
+    }
+
+    if (wantarray) {
+        if ($y_not_one) {
+            $x -> bfloor();
+            $rem->bmod($y, @params); # copy already done
+        }
+        if ($fallback) {
+            # clear a/p after round, since user did not request it
+            delete $rem->{_a}; delete $rem->{_p};
+        }
+        return ($x, $rem);
+    }
+    $x;
+}
+
+sub bmod {
+    # (dividend: BFLOAT or num_str, divisor: BFLOAT or num_str) return remainder
+
+    # set up parameters
+    my ($class, $x, $y, $a, $p, $r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bmod');
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. This is handled the same way as in Math::BigInt -> bmod().
+
+    if ($y -> is_zero()) {
+        return $x;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+    return $x->bzero() if $x->is_zero()
+      || ($x->is_int() &&
+          # check that $y == +1 or $y == -1:
+          ($MBI->_is_zero($y->{_e}) && $MBI->_is_one($y->{_m})));
+
+    my $cmp = $x->bacmp($y);    # equal or $x < $y?
+    if ($cmp == 0) {            # $x == $y => result 0
+        return $x -> bzero($a, $p);
+    }
+
+    # only $y of the operands negative?
+    my $neg = $x->{sign} ne $y->{sign} ? 1 : 0;
+
+    $x->{sign} = $y->{sign};     # calc sign first
+    if ($cmp < 0 && $neg == 0) { # $x < $y => result $x
+        return $x -> round($a, $p, $r);
+    }
+
+    my $ym = $MBI->_copy($y->{_m});
+
+    # 2e1 => 20
+    $ym = $MBI->_lsft($ym, $y->{_e}, 10)
+      if $y->{_es} eq '+' && !$MBI->_is_zero($y->{_e});
+
+    # if $y has digits after dot
+    my $shifty = 0;             # correct _e of $x by this
+    if ($y->{_es} eq '-')       # has digits after dot
+    {
+        # 123 % 2.5 => 1230 % 25 => 5 => 0.5
+        $shifty = $MBI->_num($y->{_e});  # no more digits after dot
+        $x->{_m} = $MBI->_lsft($x->{_m}, $y->{_e}, 10); # 123 => 1230, $y->{_m} is already 25
+    }
+    # $ym is now mantissa of $y based on exponent 0
+
+    my $shiftx = 0;             # correct _e of $x by this
+    if ($x->{_es} eq '-')       # has digits after dot
+    {
+        # 123.4 % 20 => 1234 % 200
+        $shiftx = $MBI->_num($x->{_e}); # no more digits after dot
+        $ym = $MBI->_lsft($ym, $x->{_e}, 10); # 123 => 1230
+    }
+    # 123e1 % 20 => 1230 % 20
+    if ($x->{_es} eq '+' && !$MBI->_is_zero($x->{_e})) {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e}, 10); # es => '+' here
+    }
+
+    $x->{_e} = $MBI->_new($shiftx);
+    $x->{_es} = '+';
+    $x->{_es} = '-' if $shiftx != 0 || $shifty != 0;
+    $x->{_e} = $MBI->_add($x->{_e}, $MBI->_new($shifty)) if $shifty != 0;
+
+    # now mantissas are equalized, exponent of $x is adjusted, so calc result
+
+    $x->{_m} = $MBI->_mod($x->{_m}, $ym);
+
+    $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # fix sign for -0
+    $x->bnorm();
+
+    if ($neg != 0 && ! $x -> is_zero()) # one of them negative => correct in place
+    {
+        my $r = $y - $x;
+        $x->{_m} = $r->{_m};
+        $x->{_e} = $r->{_e};
+        $x->{_es} = $r->{_es};
+        $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # fix sign for -0
+        $x->bnorm();
+    }
+
+    $x->round($a, $p, $r, $y);     # round and return
+}
+
+sub bmodpow {
+    # takes a very large number to a very large exponent in a given very
+    # large modulus, quickly, thanks to binary exponentiation. Supports
+    # negative exponents.
+    my ($class, $num, $exp, $mod, @r) = objectify(3, @_);
+
+    return $num if $num->modify('bmodpow');
+
+    # check modulus for valid values
+    return $num->bnan() if ($mod->{sign} ne '+' # NaN, -, -inf, +inf
+                            || $mod->is_zero());
+
+    # check exponent for valid values
+    if ($exp->{sign} =~ /\w/) {
+        # i.e., if it's NaN, +inf, or -inf...
+        return $num->bnan();
+    }
+
+    $num->bmodinv ($mod) if ($exp->{sign} eq '-');
+
+    # check num for valid values (also NaN if there was no inverse but $exp < 0)
+    return $num->bnan() if $num->{sign} !~ /^[+-]$/;
+
+    # $mod is positive, sign on $exp is ignored, result also positive
+
+    # XXX TODO: speed it up when all three numbers are integers
+    $num->bpow($exp)->bmod($mod);
+}
+
+sub bpow {
+    # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+    # compute power of two numbers, second arg is used as integer
+    # modifies first argument
+
+    # set up parameters
+    my ($class, $x, $y, $a, $p, $r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bpow');
+
+    return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+    return $x if $x->{sign} =~ /^[+-]inf$/;
+
+    # cache the result of is_zero
+    my $y_is_zero = $y->is_zero();
+    return $x->bone() if $y_is_zero;
+    return $x         if $x->is_one() || $y->is_one();
+
+    my $x_is_zero = $x->is_zero();
+    return $x->_pow($y, $a, $p, $r) if !$x_is_zero && !$y->is_int(); # non-integer power
+
+    my $y1 = $y->as_number()->{value}; # make MBI part
+
+    # if ($x == -1)
+    if ($x->{sign} eq '-' && $MBI->_is_one($x->{_m}) && $MBI->_is_zero($x->{_e})) {
+        # if $x == -1 and odd/even y => +1/-1  because +-1 ^ (+-1) => +-1
+        return $MBI->_is_odd($y1) ? $x : $x->babs(1);
+    }
+    if ($x_is_zero) {
+        return $x if $y->{sign} eq '+'; # 0**y => 0 (if not y <= 0)
+        # 0 ** -y => 1 / (0 ** y) => 1 / 0! (1 / 0 => +inf)
+        return $x->binf();
+    }
+
+    my $new_sign = '+';
+    $new_sign = $MBI->_is_odd($y1) ? '-' : '+' if $x->{sign} ne '+';
+
+    # calculate $x->{_m} ** $y and $x->{_e} * $y separately (faster)
+    $x->{_m} = $MBI->_pow($x->{_m}, $y1);
+    $x->{_e} = $MBI->_mul ($x->{_e}, $y1);
+
+    $x->{sign} = $new_sign;
+    $x->bnorm();
+    if ($y->{sign} eq '-') {
+        # modify $x in place!
+        my $z = $x->copy(); $x->bone();
+        return scalar $x->bdiv($z, $a, $p, $r); # round in one go (might ignore y's A!)
+    }
+    $x->round($a, $p, $r, $y);
+}
+
+sub blog {
+    # Return the logarithm of the operand. If a second operand is defined, that
+    # value is used as the base, otherwise the base is assumed to be Euler's
+    # constant.
+
+    my ($class, $x, $base, $a, $p, $r);
+
+    # Don't objectify the base, since an undefined base, as in $x->blog() or
+    # $x->blog(undef) signals that the base is Euler's number.
+
+    if (!ref($_[0]) && $_[0] =~ /^[A-Za-z]|::/) {
+        # E.g., Math::BigFloat->blog(256, 2)
+        ($class, $x, $base, $a, $p, $r) =
+          defined $_[2] ? objectify(2, @_) : objectify(1, @_);
+    } else {
+        # E.g., Math::BigFloat::blog(256, 2) or $x->blog(2)
+        ($class, $x, $base, $a, $p, $r) =
+          defined $_[1] ? objectify(2, @_) : objectify(1, @_);
+    }
+
+    return $x if $x->modify('blog');
+
+    return $x -> bnan() if $x -> is_nan();
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters($a, $p, $r);
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # P = undef
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r;                  # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    my $done = 0;
+    if (defined $base) {
+        $base = $class -> new($base) unless ref $base;
+        if ($base -> is_nan() || $base -> is_one()) {
+            $x -> bnan();
+            $done = 1;
+        } elsif ($base -> is_inf() || $base -> is_zero()) {
+            if ($x -> is_inf() || $x -> is_zero()) {
+                $x -> bnan();
+            } else {
+                $x -> bzero(@params);
+            }
+            $done = 1;
+        } elsif ($base -> is_negative()) { # -inf < base < 0
+            if ($x -> is_one()) {          #     x = 1
+                $x -> bzero(@params);
+            } elsif ($x == $base) {
+                $x -> bone('+', @params); #     x = base
+            } else {
+                $x -> bnan();   #     otherwise
+            }
+            $done = 1;
+        } elsif ($x == $base) {
+            $x -> bone('+', @params); # 0 < base && 0 < x < inf
+            $done = 1;
+        }
+    }
+
+    # We now know that the base is either undefined or positive and finite.
+
+    unless ($done) {
+        if ($x -> is_inf()) {   #   x = +/-inf
+            my $sign = defined $base && $base < 1 ? '-' : '+';
+            $x -> binf($sign);
+            $done = 1;
+        } elsif ($x -> is_neg()) { #   -inf < x < 0
+            $x -> bnan();
+            $done = 1;
+        } elsif ($x -> is_one()) { #   x = 1
+            $x -> bzero(@params);
+            $done = 1;
+        } elsif ($x -> is_zero()) { #   x = 0
+            my $sign = defined $base && $base < 1 ? '+' : '-';
+            $x -> binf($sign);
+            $done = 1;
+        }
+    }
+
+    if ($done) {
+        if ($fallback) {
+            # clear a/p after round, since user did not request it
+            delete $x->{_a};
+            delete $x->{_p};
+        }
+        return $x;
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a}; delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef;
+    local $Math::BigFloat::downgrade = undef;
+
+    # upgrade $x if $x is not a Math::BigFloat (handle BigInt input)
+    # XXX TODO: rebless!
+    if (!$x->isa('Math::BigFloat')) {
+        $x = Math::BigFloat->new($x);
+        $class = ref($x);
+    }
+
+    $done = 0;
+
+    # If the base is defined and an integer, try to calculate integer result
+    # first. This is very fast, and in case the real result was found, we can
+    # stop right here.
+    if (defined $base && $base->is_int() && $x->is_int()) {
+        my $i = $MBI->_copy($x->{_m});
+        $i = $MBI->_lsft($i, $x->{_e}, 10) unless $MBI->_is_zero($x->{_e});
+        my $int = Math::BigInt->bzero();
+        $int->{value} = $i;
+        $int->blog($base->as_number());
+        # if ($exact)
+        if ($base->as_number()->bpow($int) == $x) {
+            # found result, return it
+            $x->{_m} = $int->{value};
+            $x->{_e} = $MBI->_zero();
+            $x->{_es} = '+';
+            $x->bnorm();
+            $done = 1;
+        }
+    }
+
+    if ($done == 0) {
+        # base is undef, so base should be e (Euler's number), so first calculate the
+        # log to base e (using reduction by 10 (and probably 2)):
+        $class->_log_10($x, $scale);
+
+        # and if a different base was requested, convert it
+        if (defined $base) {
+            $base = Math::BigFloat->new($base) unless $base->isa('Math::BigFloat');
+            # not ln, but some other base (don't modify $base)
+            $x->bdiv($base->copy()->blog(undef, $scale), $scale);
+        }
+    }
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+
+    $x;
+}
+
+sub bexp {
+    # Calculate e ** X (Euler's number to the power of X)
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bexp');
+
+    return $x->binf() if $x->{sign} eq '+inf';
+    return $x->bzero() if $x->{sign} eq '-inf';
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters($a, $p, $r);
+
+    # also takes care of the "error in _find_round_parameters?" case
+    return $x if $x->{sign} eq 'NaN';
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # P = undef
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r;                  # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it's not enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    return $x->bone(@params) if $x->is_zero();
+
+    if (!$x->isa('Math::BigFloat')) {
+        $x = Math::BigFloat->new($x);
+        $class = ref($x);
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a};
+    delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef;
+    local $Math::BigFloat::downgrade = undef;
+
+    my $x_org = $x->copy();
+
+    # We use the following Taylor series:
+
+    #           x    x^2   x^3   x^4
+    #  e = 1 + --- + --- + --- + --- ...
+    #           1!    2!    3!    4!
+
+    # The difference for each term is X and N, which would result in:
+    # 2 copy, 2 mul, 2 add, 1 inc, 1 div operations per term
+
+    # But it is faster to compute exp(1) and then raising it to the
+    # given power, esp. if $x is really big and an integer because:
+
+    #  * The numerator is always 1, making the computation faster
+    #  * the series converges faster in the case of x == 1
+    #  * We can also easily check when we have reached our limit: when the
+    #    term to be added is smaller than "1E$scale", we can stop - f.i.
+    #    scale == 5, and we have 1/40320, then we stop since 1/40320 < 1E-5.
+    #  * we can compute the *exact* result by simulating bigrat math:
+
+    #  1   1    gcd(3, 4) = 1    1*24 + 1*6    5
+    #  - + -                  = ---------- =  --
+    #  6   24                      6*24       24
+
+    # We do not compute the gcd() here, but simple do:
+    #  1   1    1*24 + 1*6   30
+    #  - + -  = --------- =  --
+    #  6   24       6*24     144
+
+    # In general:
+    #  a   c    a*d + c*b         and note that c is always 1 and d = (b*f)
+    #  - + -  = ---------
+    #  b   d       b*d
+
+    # This leads to:         which can be reduced by b to:
+    #  a   1     a*b*f + b    a*f + 1
+    #  - + -   = --------- =  -------
+    #  b   b*f     b*b*f        b*f
+
+    # The first terms in the series are:
+
+    # 1     1    1    1    1    1     1     1     13700
+    # -- + -- + -- + -- + -- + --- + --- + ---- = -----
+    # 1     1    2    6   24   120   720   5040   5040
+
+    # Note that we cannot simple reduce 13700/5040 to 685/252, but must keep A and B!
+
+    if ($scale <= 75) {
+        # set $x directly from a cached string form
+        $x->{_m} = $MBI->_new(
+                              "27182818284590452353602874713526624977572470936999595749669676277240766303535476");
+        $x->{sign} = '+';
+        $x->{_es} = '-';
+        $x->{_e} = $MBI->_new(79);
+    } else {
+        # compute A and B so that e = A / B.
+
+        # After some terms we end up with this, so we use it as a starting point:
+        my $A = $MBI->_new("90933395208605785401971970164779391644753259799242");
+        my $F = $MBI->_new(42);
+        my $step = 42;
+
+        # Compute how many steps we need to take to get $A and $B sufficiently big
+        my $steps = _len_to_steps($scale - 4);
+        #    print STDERR "# Doing $steps steps for ", $scale-4, " digits\n";
+        while ($step++ <= $steps) {
+            # calculate $a * $f + 1
+            $A = $MBI->_mul($A, $F);
+            $A = $MBI->_inc($A);
+            # increment f
+            $F = $MBI->_inc($F);
+        }
+        # compute $B as factorial of $steps (this is faster than doing it manually)
+        my $B = $MBI->_fac($MBI->_new($steps));
+
+        #  print "A ", $MBI->_str($A), "\nB ", $MBI->_str($B), "\n";
+
+        # compute A/B with $scale digits in the result (truncate, not round)
+        $A = $MBI->_lsft($A, $MBI->_new($scale), 10);
+        $A = $MBI->_div($A, $B);
+
+        $x->{_m} = $A;
+        $x->{sign} = '+';
+        $x->{_es} = '-';
+        $x->{_e} = $MBI->_new($scale);
+    }
+
+    # $x contains now an estimate of e, with some surplus digits, so we can round
+    if (!$x_org->is_one()) {
+        # Reduce size of fractional part, followup with integer power of two.
+        my $lshift = 0;
+        while ($lshift < 30 && $x_org->bacmp(2 << $lshift) > 0) {
+            $lshift++;
+        }
+        # Raise $x to the wanted power and round it.
+        if ($lshift == 0) {
+            $x->bpow($x_org, @params);
+        } else {
+            my($mul, $rescale) = (1 << $lshift, $scale+1+$lshift);
+            $x->bpow(scalar $x_org->bdiv($mul, $rescale), $rescale)->bpow($mul, @params);
+        }
+    } else {
+        # else just round the already computed result
+        delete $x->{_a};
+        delete $x->{_p};
+        # shortcut to not run through _find_round_parameters again
+        if (defined $params[0]) {
+            $x->bround($params[0], $params[2]); # then round accordingly
+        } else {
+            $x->bfround($params[1], $params[2]); # then round accordingly
+        }
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+
+    $x;                         # return modified $x
+}
+
+sub bnok {
+    # Calculate n over k (binomial coefficient or "choose" function) as integer.
+    # set up parameters
+    my ($class, $x, $y, @r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, @r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('bnok');
+
+    return $x->bnan() if $x->is_nan() || $y->is_nan();
+    return $x->binf() if $x->is_inf();
+
+    my $u = $x->as_int();
+    $u->bnok($y->as_int());
+
+    $x->{_m} = $u->{value};
+    $x->{_e} = $MBI->_zero();
+    $x->{_es} = '+';
+    $x->{sign} = '+';
+    $x->bnorm(@r);
+}
+
+sub bsin {
+    # Calculate a sinus of x.
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    # taylor:      x^3   x^5   x^7   x^9
+    #    sin = x - --- + --- - --- + --- ...
+    #               3!    5!    7!    9!
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters(@r);
+
+    #         constant object       or error in _find_round_parameters?
+    return $x if $x->modify('bsin') || $x->is_nan();
+
+    return $x->bzero(@r) if $x->is_zero();
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # disable P
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r[2];               # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a};
+    delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef;
+
+    my $last = 0;
+    my $over = $x * $x;         # X ^ 2
+    my $x2 = $over->copy();     # X ^ 2; difference between terms
+    $over->bmul($x);            # X ^ 3 as starting value
+    my $sign = 1;               # start with -=
+    my $below = $class->new(6); my $factorial = $class->new(4);
+    delete $x->{_a};
+    delete $x->{_p};
+
+    my $limit = $class->new("1E-". ($scale-1));
+    #my $steps = 0;
+    while (3 < 5) {
+        # we calculate the next term, and add it to the last
+        # when the next term is below our limit, it won't affect the outcome
+        # anymore, so we stop:
+        my $next = $over->copy()->bdiv($below, $scale);
+        last if $next->bacmp($limit) <= 0;
+
+        if ($sign == 0) {
+            $x->badd($next);
+        } else {
+            $x->bsub($next);
+        }
+        $sign = 1-$sign;        # alternate
+        # calculate things for the next term
+        $over->bmul($x2);                         # $x*$x
+        $below->bmul($factorial); $factorial->binc(); # n*(n+1)
+        $below->bmul($factorial); $factorial->binc(); # n*(n+1)
+    }
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $x;
+}
+
+sub bcos {
+    # Calculate a cosinus of x.
+    my ($class, $x, @r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    # Taylor:      x^2   x^4   x^6   x^8
+    #    cos = 1 - --- + --- - --- + --- ...
+    #               2!    4!    6!    8!
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters(@r);
+
+    #         constant object       or error in _find_round_parameters?
+    return $x if $x->modify('bcos') || $x->is_nan();
+
+    return $x->bone(@r) if $x->is_zero();
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # disable P
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r[2];               # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a}; delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef;
+
+    my $last = 0;
+    my $over = $x * $x;         # X ^ 2
+    my $x2 = $over->copy();     # X ^ 2; difference between terms
+    my $sign = 1;               # start with -=
+    my $below = $class->new(2);
+    my $factorial = $class->new(3);
+    $x->bone();
+    delete $x->{_a};
+    delete $x->{_p};
+
+    my $limit = $class->new("1E-". ($scale-1));
+    #my $steps = 0;
+    while (3 < 5) {
+        # we calculate the next term, and add it to the last
+        # when the next term is below our limit, it won't affect the outcome
+        # anymore, so we stop:
+        my $next = $over->copy()->bdiv($below, $scale);
+        last if $next->bacmp($limit) <= 0;
+
+        if ($sign == 0) {
+            $x->badd($next);
+        } else {
+            $x->bsub($next);
+        }
+        $sign = 1-$sign;        # alternate
+        # calculate things for the next term
+        $over->bmul($x2);                         # $x*$x
+        $below->bmul($factorial); $factorial->binc(); # n*(n+1)
+        $below->bmul($factorial); $factorial->binc(); # n*(n+1)
+    }
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $x;
+}
+
+sub batan {
+    # Calculate a arcus tangens of x.
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my (@r) = @_;
+
+    # taylor:       x^3   x^5   x^7   x^9
+    #    atan = x - --- + --- - --- + --- ...
+    #                3     5     7     9
+
+    # We need to limit the accuracy to protect against overflow.
+
+    my $fallback = 0;
+    my ($scale, @params);
+    ($self, @params) = $self->_find_round_parameters(@r);
+
+    # Constant object or error in _find_round_parameters?
+
+    return $self if $self->modify('batan') || $self->is_nan();
+
+    if ($self->{sign} =~ /^[+-]inf\z/) {
+        # +inf result is PI/2
+        # -inf result is -PI/2
+        # calculate PI/2
+        my $pi = $class->bpi(@r);
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # -y => -PI/2, +y => PI/2
+        $self->{sign} = substr($self->{sign}, 0, 1); # "+inf" => "+"
+        $self -> {_m} = $MBI->_div($self->{_m}, $MBI->_new(2));
+        return $self;
+    }
+
+    return $self->bzero(@r) if $self->is_zero();
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # disable P
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r[2];               # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # 1 or -1 => PI/4
+    # inlined is_one() && is_one('-')
+    if ($MBI->_is_one($self->{_m}) && $MBI->_is_zero($self->{_e})) {
+        my $pi = $class->bpi($scale - 3);
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # leave the sign of $self alone (+1 => +PI/4, -1 => -PI/4)
+        $self->{_m} = $MBI->_div($self->{_m}, $MBI->_new(4));
+        return $self;
+    }
+
+    # This series is only valid if -1 < x < 1, so for other x we need to
+    # calculate PI/2 - atan(1/x):
+    my $one = $MBI->_new(1);
+    my $pi = undef;
+    if ($self->bacmp($self->copy()->bone) >= 0) {
+        # calculate PI/2
+        $pi = $class->bpi($scale - 3);
+        $pi->{_m} = $MBI->_div($pi->{_m}, $MBI->_new(2));
+        # calculate 1/$self:
+        my $self_copy = $self->copy();
+        # modify $self in place
+        $self->bone();
+        $self->bdiv($self_copy, $scale);
+    }
+
+    my $fmul = 1;
+    foreach my $k (0 .. int($scale / 20)) {
+        $fmul *= 2;
+        $self->bdiv($self->copy()->bmul($self)->binc->bsqrt($scale + 4)->binc, $scale + 4);
+    }
+
+    # When user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them.
+    no strict 'refs';
+    my $abr = "$class\::accuracy";  my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # We also need to disable any set A or P on $self (_find_round_parameters
+    # took them already into account), since these would interfere, too
+    delete $self->{_a};
+    delete $self->{_p};
+    # Need to disable $upgrade in BigInt, to avoid deep recursion.
+    local $Math::BigInt::upgrade = undef;
+
+    my $last = 0;
+    my $over = $self * $self;   # X ^ 2
+    my $self2 = $over->copy();  # X ^ 2; difference between terms
+    $over->bmul($self);         # X ^ 3 as starting value
+    my $sign = 1;               # start with -=
+    my $below = $class->new(3);
+    my $two = $class->new(2);
+    delete $self->{_a};
+    delete $self->{_p};
+
+    my $limit = $class->new("1E-". ($scale-1));
+    #my $steps = 0;
+    while (1) {
+        # We calculate the next term, and add it to the last. When the next
+        # term is below our limit, it won't affect the outcome anymore, so we
+        # stop:
+        my $next = $over->copy()->bdiv($below, $scale);
+        last if $next->bacmp($limit) <= 0;
+
+        if ($sign == 0) {
+            $self->badd($next);
+        } else {
+            $self->bsub($next);
+        }
+        $sign = 1-$sign;        # alternatex
+        # calculate things for the next term
+        $over->bmul($self2);    # $self*$self
+        $below->badd($two);     # n += 2
+    }
+    $self->bmul($fmul);
+
+    if (defined $pi) {
+        my $self_copy = $self->copy();
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # PI/2 - $self
+        $self->bsub($self_copy);
+    }
+
+    # Shortcut to not run through _find_round_parameters again.
+    if (defined $params[0]) {
+        $self->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $self->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # Clear a/p after round, since user did not request it.
+        delete $self->{_a};
+        delete $self->{_p};
+    }
+
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $self;
+}
+
+sub batan2 {
+    # $y -> batan2($x) returns the arcus tangens of $y / $x.
+
+    # Set up parameters.
+    my ($class, $y, $x, @r) = (ref($_[0]), @_);
+
+    # Objectify is costly, so avoid it if we can.
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $y, $x, @r) = objectify(2, @_);
+    }
+
+    # Quick exit if $y is read-only.
+    return $y if $y -> modify('batan2');
+
+    # Handle all NaN cases.
+    return $y -> bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+
+    # We need to limit the accuracy to protect against overflow.
+    my $fallback = 0;
+    my ($scale, @params);
+    ($y, @params) = $y -> _find_round_parameters(@r);
+
+    # Error in _find_round_parameters?
+    return $y if $y->is_nan();
+
+    # No rounding at all, so must use fallback.
+    if (scalar @params == 0) {
+        # Simulate old behaviour
+        $params[0] = $class -> div_scale(); # and round to it as accuracy
+        $params[1] = undef;                 # disable P
+        $scale = $params[0] + 4; # at least four more for proper round
+        $params[2] = $r[2];      # round mode by caller or undef
+        $fallback = 1;           # to clear a/p afterwards
+    } else {
+        # The 4 below is empirical, and there might be cases where it is not
+        # enough ...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    if ($x -> is_inf("+")) {                    # x = inf
+        if ($y -> is_inf("+")) {                #    y = inf
+            $y -> bpi($scale) -> bmul("0.25");  #       pi/4
+        } elsif ($y -> is_inf("-")) {           #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.25"); #       -pi/4
+        } else {                                #    -inf < y < inf
+            return $y -> bzero(@r);             #       0
+        }
+    } elsif ($x -> is_inf("-")) {               # x = -inf
+        if ($y -> is_inf("+")) {                #    y = inf
+            $y -> bpi($scale) -> bmul("0.75");  #       3/4 pi
+        } elsif ($y -> is_inf("-")) {           #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.75"); #       -3/4 pi
+        } elsif ($y >= 0) {                     #    y >= 0
+            $y -> bpi($scale);                  #       pi
+        } else {                                #    y < 0
+            $y -> bpi($scale) -> bneg();        #       -pi
+        }
+    } elsif ($x > 0) {                               # 0 < x < inf
+        if ($y -> is_inf("+")) {                     #    y = inf
+            $y -> bpi($scale) -> bmul("0.5");        #       pi/2
+        } elsif ($y -> is_inf("-")) {                #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.5");       #       -pi/2
+        } else {                                     #   -inf < y < inf
+            $y -> bdiv($x, $scale) -> batan($scale); #       atan(y/x)
+        }
+    } elsif ($x < 0) {                        # -inf < x < 0
+        my $pi = $class -> bpi($scale);
+        if ($y >= 0) {                        #    y >= 0
+            $y -> bdiv($x, $scale) -> batan() #       atan(y/x) + pi
+               -> badd($pi);
+        } else {                              #    y < 0
+            $y -> bdiv($x, $scale) -> batan() #       atan(y/x) - pi
+               -> bsub($pi);
+        }
+    } else {                                   # x = 0
+        if ($y > 0) {                          #    y > 0
+            $y -> bpi($scale) -> bmul("0.5");  #       pi/2
+        } elsif ($y < 0) {                     #    y < 0
+            $y -> bpi($scale) -> bmul("-0.5"); #       -pi/2
+        } else {                               #    y = 0
+            return $y -> bzero(@r);            #       0
+        }
+    }
+
+    $y -> round(@r);
+
+    if ($fallback) {
+        delete $y->{_a};
+        delete $y->{_p};
+    }
+
+    return $y;
+}
+##############################################################################
+
+sub bsqrt {
+    # calculate square root
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bsqrt');
+
+    return $x->bnan() if $x->{sign} !~ /^[+]/; # NaN, -inf or < 0
+    return $x if $x->{sign} eq '+inf';         # sqrt(inf) == inf
+    return $x->round($a, $p, $r) if $x->is_zero() || $x->is_one();
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my (@params, $scale);
+    ($x, @params) = $x->_find_round_parameters($a, $p, $r);
+
+    return $x if $x->is_nan();  # error in _find_round_parameters?
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r;                  # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a};
+    delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef; # should be really parent class vs MBI
+
+    my $i = $MBI->_copy($x->{_m});
+    $i = $MBI->_lsft($i, $x->{_e}, 10) unless $MBI->_is_zero($x->{_e});
+    my $xas = Math::BigInt->bzero();
+    $xas->{value} = $i;
+
+    my $gs = $xas->copy()->bsqrt(); # some guess
+
+    if (($x->{_es} ne '-')           # guess can't be accurate if there are
+        # digits after the dot
+        && ($xas->bacmp($gs * $gs) == 0)) # guess hit the nail on the head?
+    {
+        # exact result, copy result over to keep $x
+        $x->{_m} = $gs->{value};
+        $x->{_e} = $MBI->_zero();
+        $x->{_es} = '+';
+        $x->bnorm();
+        # shortcut to not run through _find_round_parameters again
+        if (defined $params[0]) {
+            $x->bround($params[0], $params[2]); # then round accordingly
+        } else {
+            $x->bfround($params[1], $params[2]); # then round accordingly
+        }
+        if ($fallback) {
+            # clear a/p after round, since user did not request it
+            delete $x->{_a};
+            delete $x->{_p};
+        }
+        # re-enable A and P, upgrade is taken care of by "local"
+        ${"$class\::accuracy"} = $ab;
+        ${"$class\::precision"} = $pb;
+        return $x;
+    }
+
+    # sqrt(2) = 1.4 because sqrt(2*100) = 1.4*10; so we can increase the accuracy
+    # of the result by multiplying the input by 100 and then divide the integer
+    # result of sqrt(input) by 10. Rounding afterwards returns the real result.
+
+    # The following steps will transform 123.456 (in $x) into 123456 (in $y1)
+    my $y1 = $MBI->_copy($x->{_m});
+
+    my $length = $MBI->_len($y1);
+
+    # Now calculate how many digits the result of sqrt(y1) would have
+    my $digits = int($length / 2);
+
+    # But we need at least $scale digits, so calculate how many are missing
+    my $shift = $scale - $digits;
+
+    # This happens if the input had enough digits
+    # (we take care of integer guesses above)
+    $shift = 0 if $shift < 0;
+
+    # Multiply in steps of 100, by shifting left two times the "missing" digits
+    my $s2 = $shift * 2;
+
+    # We now make sure that $y1 has the same odd or even number of digits than
+    # $x had. So when _e of $x is odd, we must shift $y1 by one digit left,
+    # because we always must multiply by steps of 100 (sqrt(100) is 10) and not
+    # steps of 10. The length of $x does not count, since an even or odd number
+    # of digits before the dot is not changed by adding an even number of digits
+    # after the dot (the result is still odd or even digits long).
+    $s2++ if $MBI->_is_odd($x->{_e});
+
+    $y1 = $MBI->_lsft($y1, $MBI->_new($s2), 10);
+
+    # now take the square root and truncate to integer
+    $y1 = $MBI->_sqrt($y1);
+
+    # By "shifting" $y1 right (by creating a negative _e) we calculate the final
+    # result, which is than later rounded to the desired scale.
+
+    # calculate how many zeros $x had after the '.' (or before it, depending
+    # on sign of $dat, the result should have half as many:
+    my $dat = $MBI->_num($x->{_e});
+    $dat = -$dat if $x->{_es} eq '-';
+    $dat += $length;
+
+    if ($dat > 0) {
+        # no zeros after the dot (e.g. 1.23, 0.49 etc)
+        # preserve half as many digits before the dot than the input had
+        # (but round this "up")
+        $dat = int(($dat+1)/2);
+    } else {
+        $dat = int(($dat)/2);
+    }
+    $dat -= $MBI->_len($y1);
+    if ($dat < 0) {
+        $dat = abs($dat);
+        $x->{_e} = $MBI->_new($dat);
+        $x->{_es} = '-';
+    } else {
+        $x->{_e} = $MBI->_new($dat);
+        $x->{_es} = '+';
+    }
+    $x->{_m} = $y1;
+    $x->bnorm();
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $x;
+}
+
+sub broot {
+    # calculate $y'th root of $x
+
+    # set up parameters
+    my ($class, $x, $y, $a, $p, $r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x->modify('broot');
+
+    # NaN handling: $x ** 1/0, x or y NaN, or y inf/-inf or y == 0
+    return $x->bnan() if $x->{sign} !~ /^\+/ || $y->is_zero() ||
+      $y->{sign} !~ /^\+$/;
+
+    return $x if $x->is_zero() || $x->is_one() || $x->is_inf() || $y->is_one();
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my (@params, $scale);
+    ($x, @params) = $x->_find_round_parameters($a, $p, $r);
+
+    return $x if $x->is_nan();  # error in _find_round_parameters?
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r;                  # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a};
+    delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef; # should be really parent class vs MBI
+
+    # remember sign and make $x positive, since -4 ** (1/2) => -2
+    my $sign = 0;
+    $sign = 1 if $x->{sign} eq '-';
+    $x->{sign} = '+';
+
+    my $is_two = 0;
+    if ($y->isa('Math::BigFloat')) {
+        $is_two = ($y->{sign} eq '+' && $MBI->_is_two($y->{_m}) && $MBI->_is_zero($y->{_e}));
+    } else {
+        $is_two = ($y == 2);
+    }
+
+    # normal square root if $y == 2:
+    if ($is_two) {
+        $x->bsqrt($scale+4);
+    } elsif ($y->is_one('-')) {
+        # $x ** -1 => 1/$x
+        my $u = $class->bone()->bdiv($x, $scale);
+        # copy private parts over
+        $x->{_m} = $u->{_m};
+        $x->{_e} = $u->{_e};
+        $x->{_es} = $u->{_es};
+    } else {
+        # calculate the broot() as integer result first, and if it fits, return
+        # it rightaway (but only if $x and $y are integer):
+
+        my $done = 0;           # not yet
+        if ($y->is_int() && $x->is_int()) {
+            my $i = $MBI->_copy($x->{_m});
+            $i = $MBI->_lsft($i, $x->{_e}, 10) unless $MBI->_is_zero($x->{_e});
+            my $int = Math::BigInt->bzero();
+            $int->{value} = $i;
+            $int->broot($y->as_number());
+            # if ($exact)
+            if ($int->copy()->bpow($y) == $x) {
+                # found result, return it
+                $x->{_m} = $int->{value};
+                $x->{_e} = $MBI->_zero();
+                $x->{_es} = '+';
+                $x->bnorm();
+                $done = 1;
+            }
+        }
+        if ($done == 0) {
+            my $u = $class->bone()->bdiv($y, $scale+4);
+            delete $u->{_a}; delete $u->{_p}; # otherwise it conflicts
+            $x->bpow($u, $scale+4);            # el cheapo
+        }
+    }
+    $x->bneg() if $sign == 1;
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $x;
+}
+
+sub bfac {
+    # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+    # compute factorial number, modifies first argument
+
+    # set up parameters
+    my ($class, $x, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    ($class, $x, @r) = objectify(1, @_) if !ref($x);
+
+    # inf => inf
+    return $x if $x->modify('bfac') || $x->{sign} eq '+inf';
+
+    return $x->bnan()
+      if (($x->{sign} ne '+') || # inf, NaN, <0 etc => NaN
+          ($x->{_es} ne '+'));   # digits after dot?
+
+    if (! $MBI->_is_zero($x->{_e})) {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e}, 10); # change 12e1 to 120e0
+        $x->{_e} = $MBI->_zero();           # normalize
+        $x->{_es} = '+';
+    }
+    $x->{_m} = $MBI->_fac($x->{_m});       # calculate factorial
+    $x->bnorm()->round(@r);     # norm again and round result
+}
+
+sub bdfac {
+    # compute double factorial
+
+    # set up parameters
+    my ($class, $x, @r) = (ref($_[0]), @_);
+    # objectify is costly, so avoid it
+    ($class, $x, @r) = objectify(1, @_) if !ref($x);
+
+    # inf => inf
+    return $x if $x->modify('bfac') || $x->{sign} eq '+inf';
+
+    return $x->bnan()
+      if (($x->{sign} ne '+') || # inf, NaN, <0 etc => NaN
+          ($x->{_es} ne '+'));   # digits after dot?
+
+    Carp::croak("bdfac() requires a newer version of the $MBI library.")
+        unless $MBI->can('_dfac');
+
+    if (! $MBI->_is_zero($x->{_e})) {
+        $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e}, 10); # change 12e1 to 120e0
+        $x->{_e} = $MBI->_zero();           # normalize
+        $x->{_es} = '+';
+    }
+    $x->{_m} = $MBI->_dfac($x->{_m});       # calculate factorial
+    $x->bnorm()->round(@r);     # norm again and round result
+}
+
+sub blsft {
+    # shift left by $y (multiply by $b ** $y)
+
+    # set up parameters
+    my ($class, $x, $y, $b, $a, $p, $r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $b, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('blsft');
+    return $x if $x -> {sign} !~ /^[+-]$/; # nan, +inf, -inf
+
+    $b = 2 if !defined $b;
+    $b = $class -> new($b) unless ref($b) && $b -> isa($class);
+
+    return $x -> bnan() if $x -> is_nan() || $y -> is_nan() || $b -> is_nan();
+
+    # shift by a negative amount?
+    return $x -> brsft($y -> copy() -> babs(), $b) if $y -> {sign} =~ /^-/;
+
+    $x -> bmul($b -> bpow($y), $a, $p, $r, $y);
+}
+
+sub brsft {
+    # shift right by $y (divide $b ** $y)
+
+    # set up parameters
+    my ($class, $x, $y, $b, $a, $p, $r) = (ref($_[0]), @_);
+
+    # objectify is costly, so avoid it
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($class, $x, $y, $b, $a, $p, $r) = objectify(2, @_);
+    }
+
+    return $x if $x -> modify('brsft');
+    return $x if $x -> {sign} !~ /^[+-]$/; # nan, +inf, -inf
+
+    $b = 2 if !defined $b;
+    $b = $class -> new($b) unless ref($b) && $b -> isa($class);
+
+    return $x -> bnan() if $x -> is_nan() || $y -> is_nan() || $b -> is_nan();
+
+    # shift by a negative amount?
+    return $x -> blsft($y -> copy() -> babs(), $b) if $y -> {sign} =~ /^-/;
+
+    # the following call to bdiv() will return either quotient (scalar context)
+    # or quotient and remainder (list context).
+    $x -> bdiv($b -> bpow($y), $a, $p, $r, $y);
+}
+
+###############################################################################
+# Bitwise methods
+###############################################################################
+
+sub band {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'band() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for band()' if @_ < 1;
+
+    return if $x -> modify('band');
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> band($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigFloat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_m}   = $xtmp -> {_m};
+    $x -> {_es}  = $xtmp -> {_es};
+    $x -> {_e}   = $xtmp -> {_e};
+
+    return $x -> round(@r);
+}
+
+sub bior {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bior() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for bior()' if @_ < 1;
+
+    return if $x -> modify('bior');
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bior($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigFloat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_m}   = $xtmp -> {_m};
+    $x -> {_es}  = $xtmp -> {_es};
+    $x -> {_e}   = $xtmp -> {_e};
+
+    return $x -> round(@r);
+}
+
+sub bxor {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bxor() is an instance method, not a class method' unless $xref;
+    Carp::croak 'Not enough arguments for bxor()' if @_ < 1;
+
+    return if $x -> modify('bxor');
+
+    my $y = shift;
+    $y = $class -> new($y) unless ref($y);
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bxor($y);
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigFloat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_m}   = $xtmp -> {_m};
+    $x -> {_es}  = $xtmp -> {_es};
+    $x -> {_e}   = $xtmp -> {_e};
+
+    return $x -> round(@r);
+}
+
+sub bnot {
+    my $x     = shift;
+    my $xref  = ref($x);
+    my $class = $xref || $x;
+
+    Carp::croak 'bnot() is an instance method, not a class method' unless $xref;
+
+    return if $x -> modify('bnot');
+
+    my @r = @_;
+
+    my $xtmp = Math::BigInt -> new($x -> bint());   # to Math::BigInt
+    $xtmp -> bnot();
+    $xtmp = $class -> new($xtmp);                   # back to Math::BigFloat
+
+    $x -> {sign} = $xtmp -> {sign};
+    $x -> {_m}   = $xtmp -> {_m};
+    $x -> {_es}  = $xtmp -> {_es};
+    $x -> {_e}   = $xtmp -> {_e};
+
+    return $x -> round(@r);
+}
+
+###############################################################################
+# Rounding methods
+###############################################################################
+
+sub bround {
+    # accuracy: preserve $N digits, and overwrite the rest with 0's
+    my $x = shift;
+    my $class = ref($x) || $x;
+    $x = $class->new(shift) if !ref($x);
+
+    if (($_[0] || 0) < 0) {
+        Carp::croak('bround() needs positive accuracy');
+    }
+
+    my ($scale, $mode) = $x->_scale_a(@_);
+    return $x if !defined $scale || $x->modify('bround'); # no-op
+
+    # scale is now either $x->{_a}, $accuracy, or the user parameter
+    # test whether $x already has lower accuracy, do nothing in this case
+    # but do round if the accuracy is the same, since a math operation might
+    # want to round a number with A=5 to 5 digits afterwards again
+    return $x if defined $x->{_a} && $x->{_a} < $scale;
+
+    # scale < 0 makes no sense
+    # scale == 0 => keep all digits
+    # never round a +-inf, NaN
+    return $x if ($scale <= 0) || $x->{sign} !~ /^[+-]$/;
+
+    # 1: never round a 0
+    # 2: if we should keep more digits than the mantissa has, do nothing
+    if ($x->is_zero() || $MBI->_len($x->{_m}) <= $scale) {
+        $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale;
+        return $x;
+    }
+
+    # pass sign to bround for '+inf' and '-inf' rounding modes
+    my $m = bless { sign => $x->{sign}, value => $x->{_m} }, 'Math::BigInt';
+
+    $m->bround($scale, $mode);   # round mantissa
+    $x->{_m} = $m->{value};     # get our mantissa back
+    $x->{_a} = $scale;          # remember rounding
+    delete $x->{_p};            # and clear P
+    $x->bnorm();                # del trailing zeros gen. by bround()
+}
+
+sub bfround {
+    # precision: round to the $Nth digit left (+$n) or right (-$n) from the '.'
+    # $n == 0 means round to integer
+    # expects and returns normalized numbers!
+    my $x = shift;
+    my $class = ref($x) || $x;
+    $x = $class->new(shift) if !ref($x);
+
+    my ($scale, $mode) = $x->_scale_p(@_);
+    return $x if !defined $scale || $x->modify('bfround'); # no-op
+
+    # never round a 0, +-inf, NaN
+    if ($x->is_zero()) {
+        $x->{_p} = $scale if !defined $x->{_p} || $x->{_p} < $scale; # -3 < -2
+        return $x;
+    }
+    return $x if $x->{sign} !~ /^[+-]$/;
+
+    # don't round if x already has lower precision
+    return $x if (defined $x->{_p} && $x->{_p} < 0 && $scale < $x->{_p});
+
+    $x->{_p} = $scale;          # remember round in any case
+    delete $x->{_a};            # and clear A
+    if ($scale < 0) {
+        # round right from the '.'
+
+        return $x if $x->{_es} eq '+'; # e >= 0 => nothing to round
+
+        $scale = -$scale;           # positive for simplicity
+        my $len = $MBI->_len($x->{_m}); # length of mantissa
+
+        # the following poses a restriction on _e, but if _e is bigger than a
+        # scalar, you got other problems (memory etc) anyway
+        my $dad = -(0+ ($x->{_es}.$MBI->_num($x->{_e}))); # digits after dot
+        my $zad = 0;                                      # zeros after dot
+        $zad = $dad - $len if (-$dad < -$len); # for 0.00..00xxx style
+
+        # print "scale $scale dad $dad zad $zad len $len\n";
+        # number  bsstr   len zad dad
+        # 0.123   123e-3    3   0 3
+        # 0.0123  123e-4    3   1 4
+        # 0.001   1e-3      1   2 3
+        # 1.23    123e-2    3   0 2
+        # 1.2345  12345e-4  5   0 4
+
+        # do not round after/right of the $dad
+        return $x if $scale > $dad; # 0.123, scale >= 3 => exit
+
+        # round to zero if rounding inside the $zad, but not for last zero like:
+        # 0.0065, scale -2, round last '0' with following '65' (scale == zad case)
+        return $x->bzero() if $scale < $zad;
+        if ($scale == $zad)     # for 0.006, scale -3 and trunc
+        {
+            $scale = -$len;
+        } else {
+            # adjust round-point to be inside mantissa
+            if ($zad != 0) {
+                $scale = $scale-$zad;
+            } else {
+                my $dbd = $len - $dad;
+                $dbd = 0 if $dbd < 0; # digits before dot
+                $scale = $dbd+$scale;
+            }
+        }
+    } else {
+        # round left from the '.'
+
+        # 123 => 100 means length(123) = 3 - $scale (2) => 1
+
+        my $dbt = $MBI->_len($x->{_m});
+        # digits before dot
+        my $dbd = $dbt + ($x->{_es} . $MBI->_num($x->{_e}));
+        # should be the same, so treat it as this
+        $scale = 1 if $scale == 0;
+        # shortcut if already integer
+        return $x if $scale == 1 && $dbt <= $dbd;
+        # maximum digits before dot
+        ++$dbd;
+
+        if ($scale > $dbd) {
+            # not enough digits before dot, so round to zero
+            return $x->bzero;
+        } elsif ($scale == $dbd) {
+            # maximum
+            $scale = -$dbt;
+        } else {
+            $scale = $dbd - $scale;
+        }
+    }
+    # pass sign to bround for rounding modes '+inf' and '-inf'
+    my $m = bless { sign => $x->{sign}, value => $x->{_m} }, 'Math::BigInt';
+    $m->bround($scale, $mode);
+    $x->{_m} = $m->{value};     # get our mantissa back
+    $x->bnorm();
+}
+
+sub bfloor {
+    # round towards minus infinity
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bfloor');
+    return $x if $x->{sign} !~ /^[+-]$/; # nan, +inf, -inf
+
+    # if $x has digits after dot
+    if ($x->{_es} eq '-') {
+        $x->{_m} = $MBI->_rsft($x->{_m}, $x->{_e}, 10); # cut off digits after dot
+        $x->{_e} = $MBI->_zero();                     # trunc/norm
+        $x->{_es} = '+';                              # abs e
+        $x->{_m} = $MBI->_inc($x->{_m}) if $x->{sign} eq '-';    # increment if negative
+    }
+    $x->round($a, $p, $r);
+}
+
+sub bceil {
+    # round towards plus infinity
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bceil');
+    return $x if $x->{sign} !~ /^[+-]$/; # nan, +inf, -inf
+
+    # if $x has digits after dot
+    if ($x->{_es} eq '-') {
+        $x->{_m} = $MBI->_rsft($x->{_m}, $x->{_e}, 10); # cut off digits after dot
+        $x->{_e} = $MBI->_zero();                     # trunc/norm
+        $x->{_es} = '+';                              # abs e
+        if ($x->{sign} eq '+') {
+            $x->{_m} = $MBI->_inc($x->{_m}); # increment if positive
+        } else {
+            $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # avoid -0
+        }
+    }
+    $x->round($a, $p, $r);
+}
+
+sub bint {
+    # round towards zero
+    my ($class, $x, $a, $p, $r) = ref($_[0]) ? (ref($_[0]), @_) : objectify(1, @_);
+
+    return $x if $x->modify('bint');
+    return $x if $x->{sign} !~ /^[+-]$/; # nan, +inf, -inf
+
+    # if $x has digits after the decimal point
+    if ($x->{_es} eq '-') {
+        $x->{_m} = $MBI->_rsft($x->{_m}, $x->{_e}, 10); # cut off digits after dot
+        $x->{_e} = $MBI->_zero();                     # truncate/normalize
+        $x->{_es} = '+';                              # abs e
+        $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # avoid -0
+    }
+    $x->round($a, $p, $r);
+}
+
+###############################################################################
+# Other mathematical methods
+###############################################################################
+
+sub bgcd {
+    # (BINT or num_str, BINT or num_str) return BINT
+    # does not modify arguments, but returns new object
+
+    unshift @_, __PACKAGE__
+      unless ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i;
+
+    my ($class, @args) = objectify(0, @_);
+
+    my $x = shift @args;
+    $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+    return $class->bnan() unless $x -> is_int();
+
+    while (@args) {
+        my $y = shift @args;
+        $y = $class->new($y) unless ref($y) && $y -> isa($class);
+        return $class->bnan() unless $y -> is_int();
+
+        # greatest common divisor
+        while (! $y->is_zero()) {
+            ($x, $y) = ($y->copy(), $x->copy()->bmod($y));
+        }
+
+        last if $x -> is_one();
+    }
+    return $x -> babs();
+}
+
+sub blcm {
+    # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+    # does not modify arguments, but returns new object
+    # Least Common Multiple
+
+    unshift @_, __PACKAGE__
+      unless ref($_[0]) || $_[0] =~ /^[a-z]\w*(?:::[a-z]\w*)*$/i;
+
+    my ($class, @args) = objectify(0, @_);
+
+    my $x = shift @args;
+    $x = ref($x) && $x -> isa($class) ? $x -> copy() : $class -> new($x);
+    return $class->bnan() if $x->{sign} !~ /^[+-]$/;    # x NaN?
+
+    while (@args) {
+        my $y = shift @args;
+        $y = $class -> new($y) unless ref($y) && $y -> isa($class);
+        return $x->bnan() unless $y -> is_int();
+        my $gcd = $x -> bgcd($y);
+        $x -> bdiv($gcd) -> bmul($y);
+    }
+
+    return $x -> babs();
+}
+
+###############################################################################
+# Object property methods
+###############################################################################
+
+sub length {
+    my $x = shift;
+    my $class = ref($x) || $x;
+    $x = $class->new(shift) unless ref($x);
+
+    return 1 if $MBI->_is_zero($x->{_m});
+
+    my $len = $MBI->_len($x->{_m});
+    $len += $MBI->_num($x->{_e}) if $x->{_es} eq '+';
+    if (wantarray()) {
+        my $t = 0;
+        $t = $MBI->_num($x->{_e}) if $x->{_es} eq '-';
+        return ($len, $t);
+    }
+    $len;
+}
+
+sub mantissa {
+    # return a copy of the mantissa
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        my $s = $x->{sign};
+        $s =~ s/^[+]//;
+        return Math::BigInt->new($s, undef, undef); # -inf, +inf => +inf
+    }
+    my $m = Math::BigInt->new($MBI->_str($x->{_m}), undef, undef);
+    $m->bneg() if $x->{sign} eq '-';
+
+    $m;
+}
+
+sub exponent {
+    # return a copy of the exponent
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        my $s = $x->{sign};
+$s =~ s/^[+-]//;
+        return Math::BigInt->new($s, undef, undef); # -inf, +inf => +inf
+    }
+    Math::BigInt->new($x->{_es} . $MBI->_str($x->{_e}), undef, undef);
+}
+
+sub parts {
+    # return a copy of both the exponent and the mantissa
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        my $s = $x->{sign};
+$s =~ s/^[+]//;
+my $se = $s;
+$se =~ s/^[-]//;
+        return ($class->new($s), $class->new($se)); # +inf => inf and -inf, +inf => inf
+    }
+    my $m = Math::BigInt->bzero();
+    $m->{value} = $MBI->_copy($x->{_m});
+    $m->bneg() if $x->{sign} eq '-';
+    ($m, Math::BigInt->new($x->{_es} . $MBI->_num($x->{_e})));
+}
+
+sub sparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("sparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number.
+
+    if ($self -> is_nan()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> bnan();            # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Infinity.
+
+    if ($self -> is_inf()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> binf('+');         # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Finite number.
+
+    my $mant = $class -> bzero();
+    $mant -> {sign} = $self -> {sign};
+    $mant -> {_m}   = $MBI->_copy($self -> {_m});
+    return $mant unless wantarray;
+
+    my $expo = $class -> bzero();
+    $expo -> {sign} = $self -> {_es};
+    $expo -> {_m}   = $MBI->_copy($self -> {_e});
+
+    return ($mant, $expo);
+}
+
+sub nparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("nparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number.
+
+    if ($self -> is_nan()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> bnan();            # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Infinity.
+
+    if ($self -> is_inf()) {
+        my $mant = $self -> copy();             # mantissa
+        return $mant unless wantarray;          # scalar context
+        my $expo = $class -> binf('+');         # exponent
+        return ($mant, $expo);                  # list context
+    }
+
+    # Finite number.
+
+    my ($mant, $expo) = $self -> sparts();
+
+    if ($mant -> bcmp(0)) {
+        my ($ndigtot, $ndigfrac) = $mant -> length();
+        my $expo10adj = $ndigtot - $ndigfrac - 1;
+
+        if ($expo10adj != 0) {
+            my $factor  = "1e" . -$expo10adj;
+            $mant -> bmul($factor);
+            return $mant unless wantarray;
+            $expo -> badd($expo10adj);
+            return ($mant, $expo);
+        }
+    }
+
+    return $mant unless wantarray;
+    return ($mant, $expo);
+}
+
+sub eparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("eparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number and Infinity.
+
+    return $self -> sparts() if $self -> is_nan() || $self -> is_inf();
+
+    # Finite number.
+
+    my ($mant, $expo) = $self -> nparts();
+
+    my $c = $expo -> copy() -> bmod(3);
+    $mant -> blsft($c, 10);
+    return $mant unless wantarray;
+
+    $expo -> bsub($c);
+    return ($mant, $expo);
+}
+
+sub dparts {
+    my $self  = shift;
+    my $class = ref $self;
+
+    Carp::croak("dparts() is an instance method, not a class method")
+        unless $class;
+
+    # Not-a-number and Infinity.
+
+    if ($self -> is_nan() || $self -> is_inf()) {
+        my $int = $self -> copy();
+        return $int unless wantarray;
+        my $frc = $class -> bzero();
+        return ($int, $frc);
+    }
+
+    my $int = $self  -> copy();
+    my $frc = $class -> bzero();
+
+    # If the input has a fraction part.
+
+    if ($int->{_es} eq '-') {
+        $int->{_m} = $MBI -> _rsft($int->{_m}, $int->{_e}, 10);
+        $int->{_e} = $MBI -> _zero();
+        $int->{_es} = '+';
+        $int->{sign} = '+' if $MBI->_is_zero($int->{_m});   # avoid -0
+
+        return $int unless wantarray;
+        $frc = $self -> copy() -> bsub($int);
+        return ($int, $frc);
+    }
+
+    return $int unless wantarray;
+    return ($int, $frc);
+}
+
+###############################################################################
+# String conversion methods
+###############################################################################
+
+sub bstr {
+    # (ref to BFLOAT or num_str) return num_str
+    # Convert number from internal format to (non-scientific) string format.
+    # internal format is always normalized (no leading zeros, "-0" => "+0")
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} !~ /^[+-]$/) {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my $es = '0';
+my $len = 1;
+my $cad = 0;
+my $dot = '.';
+
+    # $x is zero?
+    my $not_zero = !($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
+    if ($not_zero) {
+        $es = $MBI->_str($x->{_m});
+        $len = CORE::length($es);
+        my $e = $MBI->_num($x->{_e});
+        $e = -$e if $x->{_es} eq '-';
+        if ($e < 0) {
+            $dot = '';
+            # if _e is bigger than a scalar, the following will blow your memory
+            if ($e <= -$len) {
+                my $r = abs($e) - $len;
+                $es = '0.'. ('0' x $r) . $es;
+                $cad = -($len+$r);
+            } else {
+                substr($es, $e, 0) = '.';
+                $cad = $MBI->_num($x->{_e});
+                $cad = -$cad if $x->{_es} eq '-';
+            }
+        } elsif ($e > 0) {
+            # expand with zeros
+            $es .= '0' x $e;
+$len += $e;
+$cad = 0;
+        }
+    }                           # if not zero
+
+    $es = '-'.$es if $x->{sign} eq '-';
+    # if set accuracy or precision, pad with zeros on the right side
+    if ((defined $x->{_a}) && ($not_zero)) {
+        # 123400 => 6, 0.1234 => 4, 0.001234 => 4
+        my $zeros = $x->{_a} - $cad; # cad == 0 => 12340
+        $zeros = $x->{_a} - $len if $cad != $len;
+        $es .= $dot.'0' x $zeros if $zeros > 0;
+    } elsif ((($x->{_p} || 0) < 0)) {
+        # 123400 => 6, 0.1234 => 4, 0.001234 => 6
+        my $zeros = -$x->{_p} + $cad;
+        $es .= $dot.'0' x $zeros if $zeros > 0;
+    }
+    $es;
+}
+
+# Decimal notation, e.g., "12345.6789".
+
+sub bdstr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my $mant = $MBI->_str($x->{_m});
+    my $expo = $x -> exponent();
+
+    my $str = $mant;
+    if ($expo >= 0) {
+        $str .= "0" x $expo;
+    } else {
+        my $mantlen = CORE::length($mant);
+        my $c = $mantlen + $expo;
+        $str = "0" x (1 - $c) . $str if $c <= 0;
+        substr($str, $expo, 0) = '.';
+    }
+
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+# Scientific notation with significand/mantissa as an integer, e.g., "12345.6789"
+# is written as "123456789e-4".
+
+sub bsstr {
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my $str = $MBI->_str($x->{_m}) . 'e' . $x->{_es}. $MBI->_str($x->{_e});
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+# Normalized notation, e.g., "12345.6789" is written as "1.23456789e+4".
+
+sub bnstr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my ($mant, $expo) = $x -> nparts();
+
+    my $esgn = $expo < 0 ? '-' : '+';
+    my $eabs = $expo -> babs() -> bfround(0) -> bstr();
+    #$eabs = '0' . $eabs if length($eabs) < 2;
+
+    return $mant . 'e' . $esgn . $eabs;
+}
+
+# Engineering notation, e.g., "12345.6789" is written as "12.3456789e+3".
+
+sub bestr {
+    my $x = shift;
+
+    if ($x->{sign} ne '+' && $x->{sign} ne '-') {
+        return $x->{sign} unless $x->{sign} eq '+inf'; # -inf, NaN
+        return 'inf';                                  # +inf
+    }
+
+    my ($mant, $expo) = $x -> eparts();
+
+    my $esgn = $expo < 0 ? '-' : '+';
+    my $eabs = $expo -> babs() -> bfround(0) -> bstr();
+    #$eabs = '0' . $eabs if length($eabs) < 2;
+
+    return $mant . 'e' . $esgn . $eabs;
+}
+
+sub to_hex {
+    # return number as hexadecimal string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '0' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in hex?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_to_hex($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub to_oct {
+    # return number as octal digit string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '0' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in octal?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_to_oct($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub to_bin {
+    # return number as binary digit string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '0' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in binary?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_to_bin($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub as_hex {
+    # return number as hexadecimal string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '0x0' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in hex?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_as_hex($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub as_oct {
+    # return number as octal digit string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '00' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in octal?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_as_oct($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub as_bin {
+    # return number as binary digit string (only for integers defined)
+
+    my ($class, $x) = ref($_[0]) ? (ref($_[0]), $_[0]) : objectify(1, @_);
+
+    return $x->bstr() if $x->{sign} !~ /^[+-]$/; # inf, nan etc
+    return '0b0' if $x->is_zero();
+
+    return $nan if $x->{_es} ne '+';    # how to do 1e-1 in binary?
+
+    my $z = $MBI->_copy($x->{_m});
+    if (! $MBI->_is_zero($x->{_e})) {   # > 0
+        $z = $MBI->_lsft($z, $x->{_e}, 10);
+    }
+    my $str = $MBI->_as_bin($z);
+    return $x->{sign} eq '-' ? "-$str" : $str;
+}
+
+sub numify {
+    # Make a Perl scalar number from a Math::BigFloat object.
+    my ($class, $x) = ref($_[0]) ? (undef, $_[0]) : objectify(1, @_);
+
+    if ($x -> is_nan()) {
+        require Math::Complex;
+        my $inf = Math::Complex::Inf();
+        return $inf - $inf;
+    }
+
+    if ($x -> is_inf()) {
+        require Math::Complex;
+        my $inf = Math::Complex::Inf();
+        return $x -> is_negative() ? -$inf : $inf;
+    }
+
+    # Create a string and let Perl's atoi()/atof() handle the rest.
+    return 0 + $x -> bsstr();
+}
+
+###############################################################################
+# Private methods and functions.
+###############################################################################
+
+sub import {
+    my $class = shift;
+    my $l = scalar @_;
+    my $lib = '';
+my @a;
+    my $lib_kind = 'try';
+    $IMPORT=1;
+    for (my $i = 0; $i < $l ; $i++) {
+        if ($_[$i] eq ':constant') {
+            # This causes overlord er load to step in. 'binary' and 'integer'
+            # are handled by BigInt.
+            overload::constant float => sub { $class->new(shift); };
+        } elsif ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i+1]; # or undef to disable
+            $i++;
+        } elsif ($_[$i] eq 'downgrade') {
+            # this causes downgrading
+            $downgrade = $_[$i+1]; # or undef to disable
+            $i++;
+        } elsif ($_[$i] =~ /^(lib|try|only)\z/) {
+            # alternative library
+            $lib = $_[$i+1] || ''; # default Calc
+            $lib_kind = $1;        # lib, try or only
+            $i++;
+        } elsif ($_[$i] eq 'with') {
+            # alternative class for our private parts()
+            # XXX: no longer supported
+            # $MBI = $_[$i+1] || 'Math::BigInt';
+            $i++;
+        } else {
+            push @a, $_[$i];
+        }
+    }
+
+    $lib =~ tr/a-zA-Z0-9,://cd; # restrict to sane characters
+    # let use Math::BigInt lib => 'GMP'; use Math::BigFloat; still work
+    my $mbilib = eval { Math::BigInt->config('lib') };
+    if ((defined $mbilib) && ($MBI eq 'Math::BigInt::Calc')) {
+        # MBI already loaded
+        Math::BigInt->import($lib_kind, "$lib, $mbilib", 'objectify');
+    } else {
+        # MBI not loaded, or with ne "Math::BigInt::Calc"
+        $lib .= ",$mbilib" if defined $mbilib;
+        $lib =~ s/^,//;         # don't leave empty
+
+        # replacement library can handle lib statement, but also could ignore it
+
+        # Perl < 5.6.0 dies with "out of memory!" when eval() and ':constant' is
+        # used in the same script, or eval inside import(). So we require MBI:
+        require Math::BigInt;
+        Math::BigInt->import($lib_kind => $lib, 'objectify');
+    }
+    if ($@) {
+        Carp::croak("Couldn't load $lib: $! $@");
+    }
+    # find out which one was actually loaded
+    $MBI = Math::BigInt->config('lib');
+
+    # register us with MBI to get notified of future lib changes
+    Math::BigInt::_register_callback($class, sub { $MBI = $_[0]; });
+
+    $class->export_to_level(1, $class, @a); # export wanted functions
+}
+
+sub _len_to_steps {
+    # Given D (digits in decimal), compute N so that N! (N factorial) is
+    # at least D digits long. D should be at least 50.
+    my $d = shift;
+
+    # two constants for the Ramanujan estimate of ln(N!)
+    my $lg2 = log(2 * 3.14159265) / 2;
+    my $lg10 = log(10);
+
+    # D = 50 => N => 42, so L = 40 and R = 50
+    my $l = 40;
+my $r = $d;
+
+    # Otherwise this does not work under -Mbignum and we do not yet have "no bignum;" :(
+    $l = $l->numify if ref($l);
+    $r = $r->numify if ref($r);
+    $lg2 = $lg2->numify if ref($lg2);
+    $lg10 = $lg10->numify if ref($lg10);
+
+    # binary search for the right value (could this be written as the reverse of lg(n!)?)
+    while ($r - $l > 1) {
+        my $n = int(($r - $l) / 2) + $l;
+        my $ramanujan =
+          int(($n * log($n) - $n + log($n * (1 + 4*$n*(1+2*$n))) / 6 + $lg2) / $lg10);
+        $ramanujan > $d ? $r = $n : $l = $n;
+    }
+    $l;
+}
+
+sub _log {
+    # internal log function to calculate ln() based on Taylor series.
+    # Modifies $x in place.
+    my ($class, $x, $scale) = @_;
+
+    # in case of $x == 1, result is 0
+    return $x->bzero() if $x->is_one();
+
+    # XXX TODO: rewrite this in a similar manner to bexp()
+
+    # http://www.efunda.com/math/taylor_series/logarithmic.cfm?search_string=log
+
+    # u = x-1, v = x+1
+    #              _                               _
+    # Taylor:     |    u    1   u^3   1   u^5       |
+    # ln (x)  = 2 |   --- + - * --- + - * --- + ... |  x > 0
+    #             |_   v    3   v^3   5   v^5      _|
+
+    # This takes much more steps to calculate the result and is thus not used
+    # u = x-1
+    #              _                               _
+    # Taylor:     |    u    1   u^2   1   u^3       |
+    # ln (x)  = 2 |   --- + - * --- + - * --- + ... |  x > 1/2
+    #             |_   x    2   x^2   3   x^3      _|
+
+    my ($limit, $v, $u, $below, $factor, $two, $next, $over, $f);
+
+    $v = $x->copy(); $v->binc(); # v = x+1
+    $x->bdec(); $u = $x->copy(); # u = x-1; x = x-1
+    $x->bdiv($v, $scale);        # first term: u/v
+    $below = $v->copy();
+    $over = $u->copy();
+    $u *= $u; $v *= $v;         # u^2, v^2
+    $below->bmul($v);           # u^3, v^3
+    $over->bmul($u);
+    $factor = $class->new(3); $f = $class->new(2);
+
+    my $steps = 0;
+    $limit = $class->new("1E-". ($scale-1));
+    while (3 < 5) {
+        # we calculate the next term, and add it to the last
+        # when the next term is below our limit, it won't affect the outcome
+        # anymore, so we stop
+
+        # calculating the next term simple from over/below will result in quite
+        # a time hog if the input has many digits, since over and below will
+        # accumulate more and more digits, and the result will also have many
+        # digits, but in the end it is rounded to $scale digits anyway. So if we
+        # round $over and $below first, we save a lot of time for the division
+        # (not with log(1.2345), but try log (123**123) to see what I mean. This
+        # can introduce a rounding error if the division result would be f.i.
+        # 0.1234500000001 and we round it to 5 digits it would become 0.12346, but
+        # if we truncated $over and $below we might get 0.12345. Does this matter
+        # for the end result? So we give $over and $below 4 more digits to be
+        # on the safe side (unscientific error handling as usual... :+D
+
+        $next = $over->copy()->bround($scale+4)
+          ->bdiv($below->copy()->bmul($factor)->bround($scale+4),
+                 $scale);
+
+        ## old version:
+        ##    $next = $over->copy()->bdiv($below->copy()->bmul($factor), $scale);
+
+        last if $next->bacmp($limit) <= 0;
+
+        delete $next->{_a};
+        delete $next->{_p};
+        $x->badd($next);
+        # calculate things for the next term
+        $over *= $u;
+        $below *= $v;
+        $factor->badd($f);
+        if (DEBUG) {
+            $steps++;
+            print "step $steps = $x\n" if $steps % 10 == 0;
+        }
+    }
+    print "took $steps steps\n" if DEBUG;
+    $x->bmul($f);               # $x *= 2
+}
+
+sub _log_10 {
+    # Internal log function based on reducing input to the range of 0.1 .. 9.99
+    # and then "correcting" the result to the proper one. Modifies $x in place.
+    my ($class, $x, $scale) = @_;
+
+    # Taking blog() from numbers greater than 10 takes a *very long* time, so we
+    # break the computation down into parts based on the observation that:
+    #  blog(X*Y) = blog(X) + blog(Y)
+    # We set Y here to multiples of 10 so that $x becomes below 1 - the smaller
+    # $x is the faster it gets. Since 2*$x takes about 10 times as
+    # long, we make it faster by about a factor of 100 by dividing $x by 10.
+
+    # The same observation is valid for numbers smaller than 0.1, e.g. computing
+    # log(1) is fastest, and the further away we get from 1, the longer it takes.
+    # So we also 'break' this down by multiplying $x with 10 and subtract the
+    # log(10) afterwards to get the correct result.
+
+    # To get $x even closer to 1, we also divide by 2 and then use log(2) to
+    # correct for this. For instance if $x is 2.4, we use the formula:
+    #  blog(2.4 * 2) == blog (1.2) + blog(2)
+    # and thus calculate only blog(1.2) and blog(2), which is faster in total
+    # than calculating blog(2.4).
+
+    # In addition, the values for blog(2) and blog(10) are cached.
+
+    # Calculate nr of digits before dot:
+    my $dbd = $MBI->_num($x->{_e});
+    $dbd = -$dbd if $x->{_es} eq '-';
+    $dbd += $MBI->_len($x->{_m});
+
+    # more than one digit (e.g. at least 10), but *not* exactly 10 to avoid
+    # infinite recursion
+
+    my $calc = 1;               # do some calculation?
+
+    # disable the shortcut for 10, since we need log(10) and this would recurse
+    # infinitely deep
+    if ($x->{_es} eq '+' && $MBI->_is_one($x->{_e}) && $MBI->_is_one($x->{_m})) {
+        $dbd = 0;               # disable shortcut
+        # we can use the cached value in these cases
+        if ($scale <= $LOG_10_A) {
+            $x->bzero();
+            $x->badd($LOG_10); # modify $x in place
+            $calc = 0;                      # no need to calc, but round
+        }
+        # if we can't use the shortcut, we continue normally
+    } else {
+        # disable the shortcut for 2, since we maybe have it cached
+        if (($MBI->_is_zero($x->{_e}) && $MBI->_is_two($x->{_m}))) {
+            $dbd = 0;           # disable shortcut
+            # we can use the cached value in these cases
+            if ($scale <= $LOG_2_A) {
+                $x->bzero();
+                $x->badd($LOG_2); # modify $x in place
+                $calc = 0;                     # no need to calc, but round
+            }
+            # if we can't use the shortcut, we continue normally
+        }
+    }
+
+    # if $x = 0.1, we know the result must be 0-log(10)
+    if ($calc != 0 && $x->{_es} eq '-' && $MBI->_is_one($x->{_e}) &&
+        $MBI->_is_one($x->{_m})) {
+        $dbd = 0;               # disable shortcut
+        # we can use the cached value in these cases
+        if ($scale <= $LOG_10_A) {
+            $x->bzero();
+            $x->bsub($LOG_10);
+            $calc = 0;          # no need to calc, but round
+        }
+    }
+
+    return if $calc == 0;       # already have the result
+
+    # default: these correction factors are undef and thus not used
+    my $l_10;                   # value of ln(10) to A of $scale
+    my $l_2;                    # value of ln(2) to A of $scale
+
+    my $two = $class->new(2);
+
+    # $x == 2 => 1, $x == 13 => 2, $x == 0.1 => 0, $x == 0.01 => -1
+    # so don't do this shortcut for 1 or 0
+    if (($dbd > 1) || ($dbd < 0)) {
+        # convert our cached value to an object if not already (avoid doing this
+        # at import() time, since not everybody needs this)
+        $LOG_10 = $class->new($LOG_10, undef, undef) unless ref $LOG_10;
+
+        #print "x = $x, dbd = $dbd, calc = $calc\n";
+        # got more than one digit before the dot, or more than one zero after the
+        # dot, so do:
+        #  log(123)    == log(1.23) + log(10) * 2
+        #  log(0.0123) == log(1.23) - log(10) * 2
+
+        if ($scale <= $LOG_10_A) {
+            # use cached value
+            $l_10 = $LOG_10->copy(); # copy for mul
+        } else {
+            # else: slower, compute and cache result
+            # also disable downgrade for this code path
+            local $Math::BigFloat::downgrade = undef;
+
+            # shorten the time to calculate log(10) based on the following:
+            # log(1.25 * 8) = log(1.25) + log(8)
+            #               = log(1.25) + log(2) + log(2) + log(2)
+
+            # first get $l_2 (and possible compute and cache log(2))
+            $LOG_2 = $class->new($LOG_2, undef, undef) unless ref $LOG_2;
+            if ($scale <= $LOG_2_A) {
+                # use cached value
+                $l_2 = $LOG_2->copy(); # copy() for the mul below
+            } else {
+                # else: slower, compute and cache result
+                $l_2 = $two->copy();
+                $class->_log($l_2, $scale); # scale+4, actually
+                $LOG_2 = $l_2->copy(); # cache the result for later
+                # the copy() is for mul below
+                $LOG_2_A = $scale;
+            }
+
+            # now calculate log(1.25):
+            $l_10 = $class->new('1.25');
+            $class->_log($l_10, $scale); # scale+4, actually
+
+            # log(1.25) + log(2) + log(2) + log(2):
+            $l_10->badd($l_2);
+            $l_10->badd($l_2);
+            $l_10->badd($l_2);
+            $LOG_10 = $l_10->copy(); # cache the result for later
+            # the copy() is for mul below
+            $LOG_10_A = $scale;
+        }
+        $dbd-- if ($dbd > 1);       # 20 => dbd=2, so make it dbd=1
+        $l_10->bmul($class->new($dbd)); # log(10) * (digits_before_dot-1)
+        my $dbd_sign = '+';
+        if ($dbd < 0) {
+            $dbd = -$dbd;
+            $dbd_sign = '-';
+        }
+        ($x->{_e}, $x->{_es}) =
+          _e_sub($x->{_e}, $MBI->_new($dbd), $x->{_es}, $dbd_sign); # 123 => 1.23
+
+    }
+
+    # Now: 0.1 <= $x < 10 (and possible correction in l_10)
+
+    ### Since $x in the range 0.5 .. 1.5 is MUCH faster, we do a repeated div
+    ### or mul by 2 (maximum times 3, since x < 10 and x > 0.1)
+
+    $HALF = $class->new($HALF) unless ref($HALF);
+
+    my $twos = 0;               # default: none (0 times)
+    while ($x->bacmp($HALF) <= 0) { # X <= 0.5
+        $twos--;
+        $x->bmul($two);
+    }
+    while ($x->bacmp($two) >= 0) { # X >= 2
+        $twos++;
+        $x->bdiv($two, $scale+4); # keep all digits
+    }
+    $x->bround($scale+4);
+    # $twos > 0 => did mul 2, < 0 => did div 2 (but we never did both)
+    # So calculate correction factor based on ln(2):
+    if ($twos != 0) {
+        $LOG_2 = $class->new($LOG_2, undef, undef) unless ref $LOG_2;
+        if ($scale <= $LOG_2_A) {
+            # use cached value
+            $l_2 = $LOG_2->copy(); # copy() for the mul below
+        } else {
+            # else: slower, compute and cache result
+            # also disable downgrade for this code path
+            local $Math::BigFloat::downgrade = undef;
+            $l_2 = $two->copy();
+            $class->_log($l_2, $scale); # scale+4, actually
+            $LOG_2 = $l_2->copy(); # cache the result for later
+            # the copy() is for mul below
+            $LOG_2_A = $scale;
+        }
+        $l_2->bmul($twos);      # * -2 => subtract, * 2 => add
+    } else {
+        undef $l_2;
+    }
+
+    $class->_log($x, $scale);       # need to do the "normal" way
+    $x->badd($l_10) if defined $l_10; # correct it by ln(10)
+    $x->badd($l_2) if defined $l_2;   # and maybe by ln(2)
+
+    # all done, $x contains now the result
+    $x;
+}
+
+sub _e_add {
+    # Internal helper sub to take two positive integers and their signs and
+    # then add them. Input ($CALC, $CALC, ('+'|'-'), ('+'|'-')), output
+    # ($CALC, ('+'|'-')).
+
+    my ($x, $y, $xs, $ys) = @_;
+
+    # if the signs are equal we can add them (-5 + -3 => -(5 + 3) => -8)
+    if ($xs eq $ys) {
+        $x = $MBI->_add($x, $y); # +a + +b or -a + -b
+    } else {
+        my $a = $MBI->_acmp($x, $y);
+        if ($a == 0) {
+            # This does NOT modify $x in-place. TODO: Fix this?
+            $x = $MBI->_zero(); # result is 0
+            $xs = '+';
+            return ($x, $xs);
+        }
+        if ($a > 0) {
+            $x = $MBI->_sub($x, $y);     # abs sub
+        } else {                         # a < 0
+            $x = $MBI->_sub ($y, $x, 1); # abs sub
+            $xs = $ys;
+        }
+    }
+
+    $xs = '+' if $xs eq '-' && $MBI->_is_zero($x); # no "-0"
+
+    return ($x, $xs);
+}
+
+sub _e_sub {
+    # Internal helper sub to take two positive integers and their signs and
+    # then subtract them. Input ($CALC, $CALC, ('+'|'-'), ('+'|'-')),
+    # output ($CALC, ('+'|'-'))
+    my ($x, $y, $xs, $ys) = @_;
+
+    # flip sign
+    $ys = $ys eq '+' ? '-' : '+'; # swap sign of second operand ...
+    _e_add($x, $y, $xs, $ys);     # ... and let _e_add() do the job
+}
+
+sub _pow {
+    # Calculate a power where $y is a non-integer, like 2 ** 0.3
+    my ($x, $y, @r) = @_;
+    my $class = ref($x);
+
+    # if $y == 0.5, it is sqrt($x)
+    $HALF = $class->new($HALF) unless ref($HALF);
+    return $x->bsqrt(@r, $y) if $y->bcmp($HALF) == 0;
+
+    # Using:
+    # a ** x == e ** (x * ln a)
+
+    # u = y * ln x
+    #                _                         _
+    # Taylor:       |   u    u^2    u^3         |
+    # x ** y  = 1 + |  --- + --- + ----- + ...  |
+    #               |_  1    1*2   1*2*3       _|
+
+    # we need to limit the accuracy to protect against overflow
+    my $fallback = 0;
+    my ($scale, @params);
+    ($x, @params) = $x->_find_round_parameters(@r);
+
+    return $x if $x->is_nan();  # error in _find_round_parameters?
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale(); # and round to it as accuracy
+        $params[1] = undef;               # disable P
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r[2];               # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # when user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them
+    no strict 'refs';
+    my $abr = "$class\::accuracy"; my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # we also need to disable any set A or P on $x (_find_round_parameters took
+    # them already into account), since these would interfere, too
+    delete $x->{_a};
+    delete $x->{_p};
+    # need to disable $upgrade in BigInt, to avoid deep recursion
+    local $Math::BigInt::upgrade = undef;
+
+    my ($limit, $v, $u, $below, $factor, $next, $over);
+
+    $u = $x->copy()->blog(undef, $scale)->bmul($y);
+    my $do_invert = ($u->{sign} eq '-');
+    $u->bneg()  if $do_invert;
+    $v = $class->bone();        # 1
+    $factor = $class->new(2);   # 2
+    $x->bone();                 # first term: 1
+
+    $below = $v->copy();
+    $over = $u->copy();
+
+    $limit = $class->new("1E-". ($scale-1));
+    #my $steps = 0;
+    while (3 < 5) {
+        # we calculate the next term, and add it to the last
+        # when the next term is below our limit, it won't affect the outcome
+        # anymore, so we stop:
+        $next = $over->copy()->bdiv($below, $scale);
+        last if $next->bacmp($limit) <= 0;
+        $x->badd($next);
+        # calculate things for the next term
+        $over *= $u;
+        $below *= $factor;
+        $factor->binc();
+
+        last if $x->{sign} !~ /^[-+]$/;
+
+        #$steps++;
+    }
+
+    if ($do_invert) {
+        my $x_copy = $x->copy();
+        $x->bone->bdiv($x_copy, $scale);
+    }
+
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0]) {
+        $x->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $x->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # clear a/p after round, since user did not request it
+        delete $x->{_a};
+        delete $x->{_p};
+    }
+    # restore globals
+    $$abr = $ab;
+    $$pbr = $pb;
+    $x;
+}
+
+1;
+
+__END__
+
+#!perl
+
+package Math::BigFloat::Trace;
+
+require 5.010;
+use strict;
+use warnings;
+
+use Exporter;
+use Math::BigFloat;
+
+our ($accuracy, $precision, $round_mode, $div_scale);
+
+our @ISA = qw(Exporter Math::BigFloat);
+
+our $VERSION = '0.49';
+
+use overload;                   # inherit overload from Math::BigFloat
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+
+    my $value = shift;
+    my $a = $accuracy;
+    $a = $_[0] if defined $_[0];
+    my $p = $precision;
+    $p = $_[1] if defined $_[1];
+    my $self = Math::BigFloat->new($value, $a, $p, $round_mode);
+
+    # remember, downgrading may return a BigInt, so don't meddle with class
+    # bless $self, $class;
+
+    print "MBF new '$value' => '$self' (", ref($self), ")";
+    return $self;
+}
+
+sub import {
+    print "MBF import ", join(' ', @_);
+    my $self = shift;
+
+    # we catch the constants, the rest goes go BigFloat
+    my @a = ();
+    foreach (@_) {
+        push @a, $_ if $_ ne ':constant';
+    }
+    overload::constant float => sub { $self->new(shift); };
+
+    Math::BigFloat->import(@a);                 # need it for subclasses
+#    $self->export_to_level(1,$self,@_);         # need this ?
+}
+
+1;
+package Math::BigInt::Lib;
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999811';
+
+use Carp;
+
+use overload
+
+  # overload key: with_assign
+
+  '+'    => sub {
+                my $class = ref $_[0];
+                my $x = $class -> _copy($_[0]);
+                my $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                return $class -> _add($x, $y);
+            },
+
+  '-'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _sub($x, $y);
+            },
+
+  '*'    => sub {
+                my $class = ref $_[0];
+                my $x = $class -> _copy($_[0]);
+                my $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                return $class -> _mul($x, $y);
+            },
+
+  '/'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _div($x, $y);
+            },
+
+  '%'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _mod($x, $y);
+            },
+
+  '**'   => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _pow($x, $y);
+            },
+
+  '<<'   => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $class -> _num($_[0]);
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $_[0];
+                    $y = ref($_[1]) ? $class -> _num($_[1]) : $_[1];
+                }
+                return $class -> _blsft($x, $y);
+            },
+
+  '>>'   => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _brsft($x, $y);
+            },
+
+  # overload key: num_comparison
+
+  '<'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _acmp($x, $y) < 0;
+            },
+
+  '<='   => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _acmp($x, $y) <= 0;
+            },
+
+  '>'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _acmp($x, $y) > 0;
+            },
+
+  '>='   => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _acmp($x, $y) >= 0;
+          },
+
+  '=='   => sub {
+                my $class = ref $_[0];
+                my $x = $class -> _copy($_[0]);
+                my $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                return $class -> _acmp($x, $y) == 0;
+            },
+
+  '!='   => sub {
+                my $class = ref $_[0];
+                my $x = $class -> _copy($_[0]);
+                my $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                return $class -> _acmp($x, $y) != 0;
+            },
+
+  # overload key: 3way_comparison
+
+  '<=>'  => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _acmp($x, $y);
+            },
+
+  # overload key: binary
+
+  '&'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _and($x, $y);
+            },
+
+  '|'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _or($x, $y);
+            },
+
+  '^'    => sub {
+                my $class = ref $_[0];
+                my ($x, $y);
+                if ($_[2]) {            # if swapped
+                    $y = $_[0];
+                    $x = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                } else {
+                    $x = $class -> _copy($_[0]);
+                    $y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
+                }
+                return $class -> _xor($x, $y);
+            },
+
+  # overload key: func
+
+  'abs'  => sub { $_[0] },
+
+  'sqrt' => sub {
+                my $class = ref $_[0];
+                return $class -> _sqrt($class -> _copy($_[0]));
+            },
+
+  'int'  => sub { $_[0] },
+
+  # overload key: conversion
+
+  'bool' => sub { ref($_[0]) -> _is_zero($_[0]) ? '' : 1; },
+
+  '""'   => sub { ref($_[0]) -> _str($_[0]); },
+
+  '0+'   => sub { ref($_[0]) -> _num($_[0]); },
+
+  '='    => sub { ref($_[0]) -> _copy($_[0]); },
+
+  ;
+
+# Do we need api_version() at all, now that we have a virtual parent class that
+# will provide any missing methods? Fixme!
+
+sub api_version () {
+    croak "@{[(caller 0)[3]]} method not implemented";
+}
+
+sub _new {
+    croak "@{[(caller 0)[3]]} method not implemented";
+}
+
+sub _zero {
+    my $class = shift;
+    return $class -> _new("0");
+}
+
+sub _one {
+    my $class = shift;
+    return $class -> _new("1");
+}
+
+sub _two {
+    my $class = shift;
+    return $class -> _new("2");
+
+}
+sub _ten {
+    my $class = shift;
+    return $class -> _new("10");
+}
+
+sub _1ex {
+    my ($class, $exp) = @_;
+    $exp = $class -> _num($exp) if ref($exp);
+    return $class -> _new("1" . ("0" x $exp));
+}
+
+sub _copy {
+    my ($class, $x) = @_;
+    return $class -> _new($class -> _str($x));
+}
+
+# catch and throw away
+sub import { }
+
+##############################################################################
+# convert back to string and number
+
+sub _str {
+    # Convert number from internal base 1eN format to string format. Internal
+    # format is always normalized, i.e., no leading zeros.
+    croak "@{[(caller 0)[3]]} method not implemented";
+}
+
+sub _num {
+    my ($class, $x) = @_;
+    0 + $class -> _str($x);
+}
+
+##############################################################################
+# actual math code
+
+sub _add {
+    croak "@{[(caller 0)[3]]} method not implemented";
+}
+
+sub _sub {
+    croak "@{[(caller 0)[3]]} method not implemented";
+}
+
+sub _mul {
+    my ($class, $x, $y) = @_;
+    my $sum = $class -> _zero();
+    my $i   = $class -> _zero();
+    while ($class -> _acmp($i, $y) < 0) {
+        $sum = $class -> _add($sum, $x);
+        $i   = $class -> _inc($i);
+    }
+    return $sum;
+}
+
+sub _div {
+    my ($class, $x, $y) = @_;
+
+    croak "@{[(caller 0)[3]]} requires non-zero divisor"
+      if $class -> _is_zero($y);
+
+    my $r = $class -> _copy($x);
+    my $q = $class -> _zero();
+    while ($class -> _acmp($r, $y) >= 0) {
+        $q = $class -> _inc($q);
+        $r = $class -> _sub($r, $y);
+    }
+
+    return $q, $r if wantarray;
+    return $q;
+}
+
+sub _inc {
+    my ($class, $x) = @_;
+    $class -> _add($x, $class -> _one());
+}
+
+sub _dec {
+    my ($class, $x) = @_;
+    $class -> _sub($x, $class -> _one());
+}
+
+##############################################################################
+# testing
+
+sub _acmp {
+    # Compare two (absolute) values. Return -1, 0, or 1.
+    my ($class, $x, $y) = @_;
+    my $xstr = $class -> _str($x);
+    my $ystr = $class -> _str($y);
+
+    length($xstr) <=> length($ystr) || $xstr cmp $ystr;
+}
+
+sub _len {
+    my ($class, $x) = @_;
+    CORE::length($class -> _str($x));
+}
+
+sub _alen {
+    my ($class, $x) = @_;
+    $class -> _len($x);
+}
+
+sub _digit {
+    my ($class, $x, $n) = @_;
+    substr($class ->_str($x), -($n+1), 1);
+}
+
+sub _zeros {
+    my ($class, $x) = @_;
+    my $str = $class -> _str($x);
+    $str =~ /[^0](0*)\z/ ? CORE::length($1) : 0;
+}
+
+##############################################################################
+# _is_* routines
+
+sub _is_zero {
+    # return true if arg is zero
+    my ($class, $x) = @_;
+    $class -> _str($x) == 0;
+}
+
+sub _is_even {
+    # return true if arg is even
+    my ($class, $x) = @_;
+    substr($class -> _str($x), -1, 1) % 2 == 0;
+}
+
+sub _is_odd {
+    # return true if arg is odd
+    my ($class, $x) = @_;
+    substr($class -> _str($x), -1, 1) % 2 != 0;
+}
+
+sub _is_one {
+    # return true if arg is one
+    my ($class, $x) = @_;
+    $class -> _str($x) == 1;
+}
+
+sub _is_two {
+    # return true if arg is two
+    my ($class, $x) = @_;
+    $class -> _str($x) == 2;
+}
+
+sub _is_ten {
+    # return true if arg is ten
+    my ($class, $x) = @_;
+    $class -> _str($x) == 10;
+}
+
+###############################################################################
+# check routine to test internal state for corruptions
+
+sub _check {
+    # used by the test suite
+    my ($class, $x) = @_;
+    return "Input is undefined" unless defined $x;
+    return "$x is not a reference" unless ref($x);
+    return 0;
+}
+
+###############################################################################
+
+sub _mod {
+    # modulus
+    my ($class, $x, $y) = @_;
+
+    croak "@{[(caller 0)[3]]} requires non-zero second operand"
+      if $class -> _is_zero($y);
+
+    if ($class -> can('_div')) {
+        $x = $class -> _copy($x);
+        my ($q, $r) = $class -> _div($x, $y);
+        return $r;
+    } else {
+        my $r = $class -> _copy($x);
+        while ($class -> _acmp($r, $y) >= 0) {
+            $r = $class -> _sub($r, $y);
+        }
+        return $r;
+    }
+}
+
+##############################################################################
+# shifts
+
+sub _rsft {
+    my ($class, $x, $n, $b) = @_;
+    $b = $class -> _new($b) unless ref $b;
+    return scalar $class -> _div($x, $class -> _pow($class -> _copy($b), $n));
+}
+
+sub _lsft {
+    my ($class, $x, $n, $b) = @_;
+    $b = $class -> _new($b) unless ref $b;
+    return $class -> _mul($x, $class -> _pow($class -> _copy($b), $n));
+}
+
+sub _pow {
+    # power of $x to $y
+    my ($class, $x, $y) = @_;
+
+    if ($class -> _is_zero($y)) {
+        return $class -> _one();        # y == 0 => x => 1
+    }
+
+    if (($class -> _is_one($x)) ||      #    x == 1
+        ($class -> _is_one($y)))        # or y == 1
+    {
+        return $x;
+    }
+
+    if ($class -> _is_zero($x)) {
+        return $class -> _zero();       # 0 ** y => 0 (if not y <= 0)
+    }
+
+    my $pow2 = $class -> _one();
+
+    my $y_bin = $class -> _as_bin($y);
+    $y_bin =~ s/^0b//;
+    my $len = length($y_bin);
+
+    while (--$len > 0) {
+        $pow2 = $class -> _mul($pow2, $x) if substr($y_bin, $len, 1) eq '1';
+        $x = $class -> _mul($x, $x);
+    }
+
+    $x = $class -> _mul($x, $pow2);
+    return $x;
+}
+
+sub _nok {
+    # Return binomial coefficient (n over k).
+    my ($class, $n, $k) = @_;
+
+    # If k > n/2, or, equivalently, 2*k > n, compute nok(n, k) as
+    # nok(n, n-k), to minimize the number if iterations in the loop.
+
+    {
+        my $twok = $class -> _mul($class -> _two(), $class -> _copy($k));
+        if ($class -> _acmp($twok, $n) > 0) {
+            $k = $class -> _sub($class -> _copy($n), $k);
+        }
+    }
+
+    # Example:
+    #
+    # / 7 \       7!       1*2*3*4 * 5*6*7   5 * 6 * 7
+    # |   | = --------- =  --------------- = --------- = ((5 * 6) / 2 * 7) / 3
+    # \ 3 /   (7-3)! 3!    1*2*3*4 * 1*2*3   1 * 2 * 3
+    #
+    # Equivalently, _nok(11, 5) is computed as
+    #
+    # (((((((7 * 8) / 2) * 9) / 3) * 10) / 4) * 11) / 5
+
+    if ($class -> _is_zero($k)) {
+        return $class -> _one();
+    }
+
+    # Make a copy of the original n, in case the subclass modifies n in-place.
+
+    my $n_orig = $class -> _copy($n);
+
+    # n = 5, f = 6, d = 2 (cf. example above)
+
+    $n = $class -> _sub($n, $k);
+    $n = $class -> _inc($n);
+
+    my $f = $class -> _copy($n);
+    $f = $class -> _inc($f);
+
+    my $d = $class -> _two();
+
+    # while f <= n (the original n, that is) ...
+
+    while ($class -> _acmp($f, $n_orig) <= 0) {
+        $n = $class -> _mul($n, $f);
+        $n = $class -> _div($n, $d);
+        $f = $class -> _inc($f);
+        $d = $class -> _inc($d);
+    }
+
+    return $n;
+}
+
+sub _fac {
+    # factorial
+    my ($class, $x) = @_;
+
+    my $two = $class -> _two();
+
+    if ($class -> _acmp($x, $two) < 0) {
+        return $class -> _one();
+    }
+
+    my $i = $class -> _copy($x);
+    while ($class -> _acmp($i, $two) > 0) {
+        $i = $class -> _dec($i);
+        $x = $class -> _mul($x, $i);
+    }
+
+    return $x;
+}
+
+sub _dfac {
+    # double factorial
+    my ($class, $x) = @_;
+
+    my $two = $class -> _two();
+
+    if ($class -> _acmp($x, $two) < 0) {
+        return $class -> _one();
+    }
+
+    my $i = $class -> _copy($x);
+    while ($class -> _acmp($i, $two) > 0) {
+        $i = $class -> _sub($i, $two);
+        $x = $class -> _mul($x, $i);
+    }
+
+    return $x;
+}
+
+sub _log_int {
+    # calculate integer log of $x to base $base
+    # calculate integer log of $x to base $base
+    # ref to array, ref to array - return ref to array
+    my ($class, $x, $base) = @_;
+
+    # X == 0 => NaN
+    return if $class -> _is_zero($x);
+
+    $base = $class -> _new(2)     unless defined($base);
+    $base = $class -> _new($base) unless ref($base);
+
+    # BASE 0 or 1 => NaN
+    return if $class -> _is_zero($base) || $class -> _is_one($base);
+
+    # X == 1 => 0 (is exact)
+    if ($class -> _is_one($x)) {
+        return $class -> _zero(), 1;
+    }
+
+    my $cmp = $class -> _acmp($x, $base);
+
+    # X == BASE => 1 (is exact)
+    if ($cmp == 0) {
+        return $class -> _one(), 1;
+    }
+
+    # 1 < X < BASE => 0 (is truncated)
+    if ($cmp < 0) {
+        return $class -> _zero(), 0;
+    }
+
+    my $y;
+
+    # log(x) / log(b) = log(xm * 10^xe) / log(bm * 10^be)
+    #                 = (log(xm) + xe*(log(10))) / (log(bm) + be*log(10))
+
+    {
+        my $x_str = $class -> _str($x);
+        my $b_str = $class -> _str($base);
+        my $xm    = "." . $x_str;
+        my $bm    = "." . $b_str;
+        my $xe    = length($x_str);
+        my $be    = length($b_str);
+        my $log10 = log(10);
+        my $guess = int((log($xm) + $xe * $log10) / (log($bm) + $be * $log10));
+        $y = $class -> _new($guess);
+    }
+
+    my $trial = $class -> _pow($class -> _copy($base), $y);
+    my $acmp  = $class -> _acmp($trial, $x);
+
+    # Did we get the exact result?
+
+    return $y, 1 if $acmp == 0;
+
+    # Too small?
+
+    while ($acmp < 0) {
+        $trial = $class -> _mul($trial, $base);
+        $y     = $class -> _inc($y);
+        $acmp  = $class -> _acmp($trial, $x);
+    }
+
+    # Too big?
+
+    while ($acmp > 0) {
+        $trial = $class -> _div($trial, $base);
+        $y     = $class -> _dec($y);
+        $acmp  = $class -> _acmp($trial, $x);
+    }
+
+    return $y, 1 if $acmp == 0;         # result is exact
+    return $y, 0;                       # result is too small
+}
+
+sub _sqrt {
+    # square-root of $y in place
+    my ($class, $y) = @_;
+
+    return $y if $class -> _is_zero($y);
+
+    my $y_str = $class -> _str($y);
+    my $y_len = length($y_str);
+
+    # Compute the guess $x.
+
+    my $xm;
+    my $xe;
+    if ($y_len % 2 == 0) {
+        $xm = sqrt("." . $y_str);
+        $xe = $y_len / 2;
+        $xm = sprintf "%.0f", int($xm * 1e15);
+        $xe -= 15;
+    } else {
+        $xm = sqrt(".0" . $y_str);
+        $xe = ($y_len + 1) / 2;
+        $xm = sprintf "%.0f", int($xm * 1e16);
+        $xe -= 16;
+    }
+
+    my $x;
+    if ($xe < 0) {
+        $x = substr $xm, 0, length($xm) + $xe;
+    } else {
+        $x = $xm . ("0" x $xe);
+    }
+
+    $x = $class -> _new($x);
+
+    # Newton's method for computing square root of y
+    #
+    # x(i+1) = x(i) - f(x(i)) / f'(x(i))
+    #        = x(i) - (x(i)^2 - y) / (2 * x(i))     # use if x(i)^2 > y
+    #        = y(i) + (y - x(i)^2) / (2 * x(i))     # use if x(i)^2 < y
+
+    # Determine if x, our guess, is too small, correct, or too large.
+
+    my $xsq = $class -> _mul($class -> _copy($x), $x);          # x(i)^2
+    my $acmp = $class -> _acmp($xsq, $y);                       # x(i)^2 <=> y
+
+    # Only assign a value to this variable if we will be using it.
+
+    my $two;
+    $two = $class -> _two() if $acmp != 0;
+
+    # If x is too small, do one iteration of Newton's method. Since the
+    # function f(x) = x^2 - y is concave and monotonically increasing, the next
+    # guess for x will either be correct or too large.
+
+    if ($acmp < 0) {
+
+        # x(i+1) = x(i) + (y - x(i)^2) / (2 * x(i))
+
+        my $numer = $class -> _sub($class -> _copy($y), $xsq);  # y - x(i)^2
+        my $denom = $class -> _mul($class -> _copy($two), $x);  # 2 * x(i)
+        my $delta = $class -> _div($numer, $denom);
+
+        unless ($class -> _is_zero($delta)) {
+            $x    = $class -> _add($x, $delta);
+            $xsq  = $class -> _mul($class -> _copy($x), $x);    # x(i)^2
+            $acmp = $class -> _acmp($xsq, $y);                  # x(i)^2 <=> y
+        }
+    }
+
+    # If our guess for x is too large, apply Newton's method repeatedly until
+    # we either have got the correct value, or the delta is zero.
+
+    while ($acmp > 0) {
+
+        # x(i+1) = x(i) - (x(i)^2 - y) / (2 * x(i))
+
+        my $numer = $class -> _sub($xsq, $y);                   # x(i)^2 - y
+        my $denom = $class -> _mul($class -> _copy($two), $x);  # 2 * x(i)
+        my $delta = $class -> _div($numer, $denom);
+        last if $class -> _is_zero($delta);
+
+        $x    = $class -> _sub($x, $delta);
+        $xsq  = $class -> _mul($class -> _copy($x), $x);        # x(i)^2
+        $acmp = $class -> _acmp($xsq, $y);                      # x(i)^2 <=> y
+    }
+
+    # When the delta is zero, our value for x might still be too large. We
+    # require that the outout is either exact or too small (i.e., rounded down
+    # to the nearest integer), so do a final check.
+
+    while ($acmp > 0) {
+        $x    = $class -> _dec($x);
+        $xsq  = $class -> _mul($class -> _copy($x), $x);        # x(i)^2
+        $acmp = $class -> _acmp($xsq, $y);                      # x(i)^2 <=> y
+    }
+
+    return $x;
+}
+
+sub _root {
+    my ($class, $y, $n) = @_;
+
+    return $y if $class -> _is_zero($y) || $class -> _is_one($y) ||
+                 $class -> _is_one($n);
+
+    # If y <= n, the result is always (truncated to) 1.
+
+    return $class -> _one() if $class -> _acmp($y, $n) <= 0;
+
+    # Compute the initial guess x of y^(1/n). When n is large, Newton's method
+    # converges slowly if the "guess" (initial value) is poor, so we need a
+    # good guess. It the guess is too small, the next guess will be too large,
+    # and from then on all guesses are too large.
+
+    my $DEBUG = 0;
+
+    # Split y into mantissa and exponent in base 10, so that
+    #
+    #   y = xm * 10^xe, where 0 < xm < 1 and xe is an integer
+
+    my $y_str  = $class -> _str($y);
+    my $ym = "." . $y_str;
+    my $ye = length($y_str);
+
+    # From this compute the approximate base 10 logarithm of y
+    #
+    #   log_10(y) = log_10(ym) + log_10(ye^10)
+    #             = log(ym)/log(10) + ye
+
+    my $log10y = log($ym) / log(10) + $ye;
+
+    # And from this compute the approximate base 10 logarithm of x, where
+    # x = y^(1/n)
+    #
+    #   log_10(x) = log_10(y)/n
+
+    my $log10x = $log10y / $class -> _num($n);
+
+    # From this compute xm and xe, the mantissa and exponent (in base 10) of x,
+    # where 1 < xm <= 10 and xe is an integer.
+
+    my $xe = int $log10x;
+    my $xm = 10 ** ($log10x - $xe);
+
+    # Scale the mantissa and exponent to increase the integer part of ym, which
+    # gives us better accuracy.
+
+    if ($DEBUG) {
+        print "\n";
+        print "y_str  = $y_str\n";
+        print "ym     = $ym\n";
+        print "ye     = $ye\n";
+        print "log10y = $log10y\n";
+        print "log10x = $log10x\n";
+        print "xm     = $xm\n";
+        print "xe     = $xe\n";
+    }
+
+    my $d = $xe < 15 ? $xe : 15;
+    $xm *= 10 ** $d;
+    $xe -= $d;
+
+    if ($DEBUG) {
+        print "\n";
+        print "xm     = $xm\n";
+        print "xe     = $xe\n";
+    }
+
+    # If the mantissa is not an integer, round up to nearest integer, and then
+    # convert the number to a string. It is important to always round up due to
+    # how Newton's method behaves in this case. If the initial guess is too
+    # small, the next guess will be too large, after which every succeeding
+    # guess converges the correct value from above. Now, if the initial guess
+    # is too small and n is large, the next guess will be much too large and
+    # require a large number of iterations to get close to the solution.
+    # Because of this, we are likely to find the solution faster if we make
+    # sure the initial guess is not too small.
+
+    my $xm_int = int($xm);
+    my $x_str = sprintf '%.0f', $xm > $xm_int ? $xm_int + 1 : $xm_int;
+    $x_str .= "0" x $xe;
+
+    my $x = $class -> _new($x_str);
+
+    if ($DEBUG) {
+        print "xm     = $xm\n";
+        print "xe     = $xe\n";
+        print "\n";
+        print "x_str  = $x_str (initial guess)\n";
+        print "\n";
+    }
+
+    # Use Newton's method for computing n'th root of y.
+    #
+    # x(i+1) = x(i) - f(x(i)) / f'(x(i))
+    #        = x(i) - (x(i)^n - y) / (n * x(i)^(n-1))   # use if x(i)^n > y
+    #        = x(i) + (y - x(i)^n) / (n * x(i)^(n-1))   # use if x(i)^n < y
+
+    # Determine if x, our guess, is too small, correct, or too large. Rather
+    # than computing x(i)^n and x(i)^(n-1) directly, compute x(i)^(n-1) and
+    # then the same value multiplied by x.
+
+    my $nm1     = $class -> _dec($class -> _copy($n));           # n-1
+    my $xpownm1 = $class -> _pow($class -> _copy($x), $nm1);     # x(i)^(n-1)
+    my $xpown   = $class -> _mul($class -> _copy($xpownm1), $x); # x(i)^n
+    my $acmp    = $class -> _acmp($xpown, $y);                   # x(i)^n <=> y
+
+    if ($DEBUG) {
+        print "\n";
+        print "x      = ", $class -> _str($x), "\n";
+        print "x^n    = ", $class -> _str($xpown), "\n";
+        print "y      = ", $class -> _str($y), "\n";
+        print "acmp   = $acmp\n";
+    }
+
+    # If x is too small, do one iteration of Newton's method. Since the
+    # function f(x) = x^n - y is concave and monotonically increasing, the next
+    # guess for x will either be correct or too large.
+
+    if ($acmp < 0) {
+
+        # x(i+1) = x(i) + (y - x(i)^n) / (n * x(i)^(n-1))
+
+        my $numer = $class -> _sub($class -> _copy($y), $xpown);    # y - x(i)^n
+        my $denom = $class -> _mul($class -> _copy($n), $xpownm1);  # n * x(i)^(n-1)
+        my $delta = $class -> _div($numer, $denom);
+
+        if ($DEBUG) {
+            print "\n";
+            print "numer  = ", $class -> _str($numer), "\n";
+            print "denom  = ", $class -> _str($denom), "\n";
+            print "delta  = ", $class -> _str($delta), "\n";
+        }
+
+        unless ($class -> _is_zero($delta)) {
+            $x       = $class -> _add($x, $delta);
+            $xpownm1 = $class -> _pow($class -> _copy($x), $nm1);     # x(i)^(n-1)
+            $xpown   = $class -> _mul($class -> _copy($xpownm1), $x); # x(i)^n
+            $acmp    = $class -> _acmp($xpown, $y);                   # x(i)^n <=> y
+
+            if ($DEBUG) {
+                print "\n";
+                print "x      = ", $class -> _str($x), "\n";
+                print "x^n    = ", $class -> _str($xpown), "\n";
+                print "y      = ", $class -> _str($y), "\n";
+                print "acmp   = $acmp\n";
+            }
+        }
+    }
+
+    # If our guess for x is too large, apply Newton's method repeatedly until
+    # we either have got the correct value, or the delta is zero.
+
+    while ($acmp > 0) {
+
+        # x(i+1) = x(i) - (x(i)^n - y) / (n * x(i)^(n-1))
+
+        my $numer = $class -> _sub($class -> _copy($xpown), $y);    # x(i)^n - y
+        my $denom = $class -> _mul($class -> _copy($n), $xpownm1);  # n * x(i)^(n-1)
+
+        if ($DEBUG) {
+            print "numer  = ", $class -> _str($numer), "\n";
+            print "denom  = ", $class -> _str($denom), "\n";
+        }
+
+        my $delta = $class -> _div($numer, $denom);
+
+        if ($DEBUG) {
+            print "delta  = ", $class -> _str($delta), "\n";
+        }
+
+        last if $class -> _is_zero($delta);
+
+        $x       = $class -> _sub($x, $delta);
+        $xpownm1 = $class -> _pow($class -> _copy($x), $nm1);     # x(i)^(n-1)
+        $xpown   = $class -> _mul($class -> _copy($xpownm1), $x); # x(i)^n
+        $acmp    = $class -> _acmp($xpown, $y);                   # x(i)^n <=> y
+
+        if ($DEBUG) {
+            print "\n";
+            print "x      = ", $class -> _str($x), "\n";
+            print "x^n    = ", $class -> _str($xpown), "\n";
+            print "y      = ", $class -> _str($y), "\n";
+            print "acmp   = $acmp\n";
+        }
+    }
+
+    # When the delta is zero, our value for x might still be too large. We
+    # require that the outout is either exact or too small (i.e., rounded down
+    # to the nearest integer), so do a final check.
+
+    while ($acmp > 0) {
+        $x     = $class -> _dec($x);
+        $xpown = $class -> _pow($class -> _copy($x), $n);     # x(i)^n
+        $acmp  = $class -> _acmp($xpown, $y);                 # x(i)^n <=> y
+    }
+
+    return $x;
+}
+
+##############################################################################
+# binary stuff
+
+sub _and {
+    my ($class, $x, $y) = @_;
+
+    return $x if $class -> _acmp($x, $y) == 0;
+
+    my $m    = $class -> _one();
+    my $mask = $class -> _new("32768");
+
+    my ($xr, $yr);                # remainders after division
+
+    my $xc = $class -> _copy($x);
+    my $yc = $class -> _copy($y);
+    my $z  = $class -> _zero();
+
+    until ($class -> _is_zero($xc) || $class -> _is_zero($yc)) {
+        ($xc, $xr) = $class -> _div($xc, $mask);
+        ($yc, $yr) = $class -> _div($yc, $mask);
+        my $bits = $class -> _new($class -> _num($xr) & $class -> _num($yr));
+        $z = $class -> _add($z, $class -> _mul($bits, $m));
+        $m = $class -> _mul($m, $mask);
+    }
+
+    return $z;
+}
+
+sub _xor {
+    my ($class, $x, $y) = @_;
+
+    return $class -> _zero() if $class -> _acmp($x, $y) == 0;
+
+    my $m    = $class -> _one();
+    my $mask = $class -> _new("32768");
+
+    my ($xr, $yr);                # remainders after division
+
+    my $xc = $class -> _copy($x);
+    my $yc = $class -> _copy($y);
+    my $z  = $class -> _zero();
+
+    until ($class -> _is_zero($xc) || $class -> _is_zero($yc)) {
+        ($xc, $xr) = $class -> _div($xc, $mask);
+        ($yc, $yr) = $class -> _div($yc, $mask);
+        my $bits = $class -> _new($class -> _num($xr) ^ $class -> _num($yr));
+        $z = $class -> _add($z, $class -> _mul($bits, $m));
+        $m = $class -> _mul($m, $mask);
+    }
+
+    # The loop above stops when the smallest of the two numbers is exhausted.
+    # The remainder of the longer one will survive bit-by-bit, so we simple
+    # multiply-add it in.
+
+    $z = $class -> _add($z, $class -> _mul($xc, $m))
+      unless $class -> _is_zero($xc);
+    $z = $class -> _add($z, $class -> _mul($yc, $m))
+      unless $class -> _is_zero($yc);
+
+    return $z;
+}
+
+sub _or {
+    my ($class, $x, $y) = @_;
+
+    return $x if $class -> _acmp($x, $y) == 0; # shortcut (see _and)
+
+    my $m    = $class -> _one();
+    my $mask = $class -> _new("32768");
+
+    my ($xr, $yr);                # remainders after division
+
+    my $xc = $class -> _copy($x);
+    my $yc = $class -> _copy($y);
+    my $z  = $class -> _zero();
+
+    until ($class -> _is_zero($xc) || $class -> _is_zero($yc)) {
+        ($xc, $xr) = $class -> _div($xc, $mask);
+        ($yc, $yr) = $class -> _div($yc, $mask);
+        my $bits = $class -> _new($class -> _num($xr) | $class -> _num($yr));
+        $z = $class -> _add($z, $class -> _mul($bits, $m));
+        $m = $class -> _mul($m, $mask);
+    }
+
+    # The loop above stops when the smallest of the two numbers is exhausted.
+    # The remainder of the longer one will survive bit-by-bit, so we simple
+    # multiply-add it in.
+
+    $z = $class -> _add($z, $class -> _mul($xc, $m))
+      unless $class -> _is_zero($xc);
+    $z = $class -> _add($z, $class -> _mul($yc, $m))
+      unless $class -> _is_zero($yc);
+
+    return $z;
+}
+
+sub _to_bin {
+    # convert the number to a string of binary digits without prefix
+    my ($class, $x) = @_;
+    my $str    = '';
+    my $tmp    = $class -> _copy($x);
+    my $chunk = $class -> _new("16777216");     # 2^24 = 24 binary digits
+    my $rem;
+    until ($class -> _acmp($tmp, $chunk) < 0) {
+        ($tmp, $rem) = $class -> _div($tmp, $chunk);
+        $str = sprintf("%024b", $class -> _num($rem)) . $str;
+    }
+    unless ($class -> _is_zero($tmp)) {
+        $str = sprintf("%b", $class -> _num($tmp)) . $str;
+    }
+    return length($str) ? $str : '0';
+}
+
+sub _to_oct {
+    # convert the number to a string of octal digits without prefix
+    my ($class, $x) = @_;
+    my $str    = '';
+    my $tmp    = $class -> _copy($x);
+    my $chunk = $class -> _new("16777216");     # 2^24 = 8 octal digits
+    my $rem;
+    until ($class -> _acmp($tmp, $chunk) < 0) {
+        ($tmp, $rem) = $class -> _div($tmp, $chunk);
+        $str = sprintf("%08o", $class -> _num($rem)) . $str;
+    }
+    unless ($class -> _is_zero($tmp)) {
+        $str = sprintf("%o", $class -> _num($tmp)) . $str;
+    }
+    return length($str) ? $str : '0';
+}
+
+sub _to_hex {
+    # convert the number to a string of hexadecimal digits without prefix
+    my ($class, $x) = @_;
+    my $str    = '';
+    my $tmp    = $class -> _copy($x);
+    my $chunk = $class -> _new("16777216");     # 2^24 = 6 hexadecimal digits
+    my $rem;
+    until ($class -> _acmp($tmp, $chunk) < 0) {
+        ($tmp, $rem) = $class -> _div($tmp, $chunk);
+        $str = sprintf("%06x", $class -> _num($rem)) . $str;
+    }
+    unless ($class -> _is_zero($tmp)) {
+        $str = sprintf("%x", $class -> _num($tmp)) . $str;
+    }
+    return length($str) ? $str : '0';
+}
+
+sub _as_bin {
+    # convert the number to a string of binary digits with prefix
+    my ($class, $x) = @_;
+    return '0b' . $class -> _to_bin($x);
+}
+
+sub _as_oct {
+    # convert the number to a string of octal digits with prefix
+    my ($class, $x) = @_;
+    return '0' . $class -> _to_oct($x);         # yes, 0 becomes "00"
+}
+
+sub _as_hex {
+    # convert the number to a string of hexadecimal digits with prefix
+    my ($class, $x) = @_;
+    return '0x' . $class -> _to_hex($x);
+}
+
+sub _to_bytes {
+    # convert the number to a string of bytes
+    my ($class, $x) = @_;
+    my $str    = '';
+    my $tmp    = $class -> _copy($x);
+    my $chunk = $class -> _new("65536");
+    my $rem;
+    until ($class -> _is_zero($tmp)) {
+        ($tmp, $rem) = $class -> _div($tmp, $chunk);
+        $str = pack('n', $class -> _num($rem)) . $str;
+    }
+    $str =~ s/^\0+//;
+    return length($str) ? $str : "\x00";
+}
+
+*_as_bytes = \&_to_bytes;
+
+sub _from_hex {
+    # Convert a string of hexadecimal digits to a number.
+
+    my ($class, $hex) = @_;
+    $hex =~ s/^0[xX]//;
+
+    # Find the largest number of hexadecimal digits that we can safely use with
+    # 32 bit integers. There are 4 bits pr hexadecimal digit, and we use only
+    # 31 bits to play safe. This gives us int(31 / 4) = 7.
+
+    my $len = length $hex;
+    my $rem = 1 + ($len - 1) % 7;
+
+    # Do the first chunk.
+
+    my $ret = $class -> _new(int hex substr $hex, 0, $rem);
+    return $ret if $rem == $len;
+
+    # Do the remaining chunks, if any.
+
+    my $shift = $class -> _new(1 << (4 * 7));
+    for (my $offset = $rem ; $offset < $len ; $offset += 7) {
+        my $part = int hex substr $hex, $offset, 7;
+        $ret = $class -> _mul($ret, $shift);
+        $ret = $class -> _add($ret, $class -> _new($part));
+    }
+
+    return $ret;
+}
+
+sub _from_oct {
+    # Convert a string of octal digits to a number.
+
+    my ($class, $oct) = @_;
+
+    # Find the largest number of octal digits that we can safely use with 32
+    # bit integers. There are 3 bits pr octal digit, and we use only 31 bits to
+    # play safe. This gives us int(31 / 3) = 10.
+
+    my $len = length $oct;
+    my $rem = 1 + ($len - 1) % 10;
+
+    # Do the first chunk.
+
+    my $ret = $class -> _new(int oct substr $oct, 0, $rem);
+    return $ret if $rem == $len;
+
+    # Do the remaining chunks, if any.
+
+    my $shift = $class -> _new(1 << (3 * 10));
+    for (my $offset = $rem ; $offset < $len ; $offset += 10) {
+        my $part = int oct substr $oct, $offset, 10;
+        $ret = $class -> _mul($ret, $shift);
+        $ret = $class -> _add($ret, $class -> _new($part));
+    }
+
+    return $ret;
+}
+
+sub _from_bin {
+    # Convert a string of binary digits to a number.
+
+    my ($class, $bin) = @_;
+    $bin =~ s/^0[bB]//;
+
+    # The largest number of binary digits that we can safely use with 32 bit
+    # integers is 31. We use only 31 bits to play safe.
+
+    my $len = length $bin;
+    my $rem = 1 + ($len - 1) % 31;
+
+    # Do the first chunk.
+
+    my $ret = $class -> _new(int oct '0b' . substr $bin, 0, $rem);
+    return $ret if $rem == $len;
+
+    # Do the remaining chunks, if any.
+
+    my $shift = $class -> _new(1 << 31);
+    for (my $offset = $rem ; $offset < $len ; $offset += 31) {
+        my $part = int oct '0b' . substr $bin, $offset, 31;
+        $ret = $class -> _mul($ret, $shift);
+        $ret = $class -> _add($ret, $class -> _new($part));
+    }
+
+    return $ret;
+}
+
+sub _from_bytes {
+    # convert string of bytes to a number
+    my ($class, $str) = @_;
+    my $x    = $class -> _zero();
+    my $base = $class -> _new("256");
+    my $n    = length($str);
+    for (my $i = 0 ; $i < $n ; ++$i) {
+        $x = $class -> _mul($x, $base);
+        my $byteval = $class -> _new(unpack 'C', substr($str, $i, 1));
+        $x = $class -> _add($x, $byteval);
+    }
+    return $x;
+}
+
+##############################################################################
+# special modulus functions
+
+sub _modinv {
+    # modular multiplicative inverse
+    my ($class, $x, $y) = @_;
+
+    # modulo zero
+    if ($class -> _is_zero($y)) {
+        return (undef, undef);
+    }
+
+    # modulo one
+    if ($class -> _is_one($y)) {
+        return ($class -> _zero(), '+');
+    }
+
+    my $u = $class -> _zero();
+    my $v = $class -> _one();
+    my $a = $class -> _copy($y);
+    my $b = $class -> _copy($x);
+
+    # Euclid's Algorithm for bgcd().
+
+    my $q;
+    my $sign = 1;
+    {
+        ($a, $q, $b) = ($b, $class -> _div($a, $b));
+        last if $class -> _is_zero($b);
+
+        my $vq = $class -> _mul($class -> _copy($v), $q);
+        my $t = $class -> _add($vq, $u);
+        $u = $v;
+        $v = $t;
+        $sign = -$sign;
+        redo;
+    }
+
+    # if the gcd is not 1, there exists no modular multiplicative inverse
+    return (undef, undef) unless $class -> _is_one($a);
+
+    ($v, $sign == 1 ? '+' : '-');
+}
+
+sub _modpow {
+    # modulus of power ($x ** $y) % $z
+    my ($class, $num, $exp, $mod) = @_;
+
+    # a^b (mod 1) = 0 for all a and b
+    if ($class -> _is_one($mod)) {
+        return $class -> _zero();
+    }
+
+    # 0^a (mod m) = 0 if m != 0, a != 0
+    # 0^0 (mod m) = 1 if m != 0
+    if ($class -> _is_zero($num)) {
+        return $class -> _is_zero($exp) ? $class -> _one()
+                                        : $class -> _zero();
+    }
+
+    #  $num = $class -> _mod($num, $mod);   # this does not make it faster
+
+    my $acc = $class -> _copy($num);
+    my $t   = $class -> _one();
+
+    my $expbin = $class -> _as_bin($exp);
+    $expbin =~ s/^0b//;
+    my $len = length($expbin);
+
+    while (--$len >= 0) {
+        if (substr($expbin, $len, 1) eq '1') {
+            $t = $class -> _mul($t, $acc);
+            $t = $class -> _mod($t, $mod);
+        }
+        $acc = $class -> _mul($acc, $acc);
+        $acc = $class -> _mod($acc, $mod);
+    }
+    return $t;
+}
+
+sub _gcd {
+    # Greatest common divisor.
+
+    my ($class, $x, $y) = @_;
+
+    # gcd(0, 0) = 0
+    # gcd(0, a) = a, if a != 0
+
+    if ($class -> _acmp($x, $y) == 0) {
+        return $class -> _copy($x);
+    }
+
+    if ($class -> _is_zero($x)) {
+        if ($class -> _is_zero($y)) {
+            return $class -> _zero();
+        } else {
+            return $class -> _copy($y);
+        }
+    } else {
+        if ($class -> _is_zero($y)) {
+            return $class -> _copy($x);
+        } else {
+
+            # Until $y is zero ...
+
+            $x = $class -> _copy($x);
+            until ($class -> _is_zero($y)) {
+
+                # Compute remainder.
+
+                $x = $class -> _mod($x, $y);
+
+                # Swap $x and $y.
+
+                my $tmp = $x;
+                $x = $class -> _copy($y);
+                $y = $tmp;
+            }
+
+            return $x;
+        }
+    }
+}
+
+sub _lcm {
+    # Least common multiple.
+
+    my ($class, $x, $y) = @_;
+
+    # lcm(0, x) = 0 for all x
+
+    return $class -> _zero()
+      if ($class -> _is_zero($x) ||
+          $class -> _is_zero($y));
+
+    my $gcd = $class -> _gcd($class -> _copy($x), $y);
+    $x = $class -> _div($x, $gcd);
+    $x = $class -> _mul($x, $y);
+    return $x;
+}
+
+sub _lucas {
+    my ($class, $n) = @_;
+
+    $n = $class -> _num($n) if ref $n;
+
+    # In list context, use lucas(n) = lucas(n-1) + lucas(n-2)
+
+    if (wantarray) {
+        my @y;
+
+        push @y, $class -> _two();
+        return @y if $n == 0;
+
+        push @y, $class -> _one();
+        return @y if $n == 1;
+
+        for (my $i = 2 ; $i <= $n ; ++ $i) {
+            $y[$i] = $class -> _add($class -> _copy($y[$i - 1]), $y[$i - 2]);
+        }
+
+        return @y;
+    }
+
+    require Scalar::Util;
+
+    # In scalar context use that lucas(n) = fib(n-1) + fib(n+1).
+    #
+    # Remember that _fib() behaves differently in scalar context and list
+    # context, so we must add scalar() to get the desired behaviour.
+
+    return $class -> _two() if $n == 0;
+
+    return $class -> _add(scalar $class -> _fib($n - 1),
+                          scalar $class -> _fib($n + 1));
+}
+
+sub _fib {
+    my ($class, $n) = @_;
+
+    $n = $class -> _num($n) if ref $n;
+
+    # In list context, use fib(n) = fib(n-1) + fib(n-2)
+
+    if (wantarray) {
+        my @y;
+
+        push @y, $class -> _zero();
+        return @y if $n == 0;
+
+        push @y, $class -> _one();
+        return @y if $n == 1;
+
+        for (my $i = 2 ; $i <= $n ; ++ $i) {
+            $y[$i] = $class -> _add($class -> _copy($y[$i - 1]), $y[$i - 2]);
+        }
+
+        return @y;
+    }
+
+    # In scalar context use a fast algorithm that is much faster than the
+    # recursive algorith used in list context.
+
+    my $cache = {};
+    my $two = $class -> _two();
+    my $fib;
+
+    $fib = sub {
+        my $n = shift;
+        return $class -> _zero() if $n <= 0;
+        return $class -> _one()  if $n <= 2;
+        return $cache -> {$n}    if exists $cache -> {$n};
+
+        my $k = int($n / 2);
+        my $a = $fib -> ($k + 1);
+        my $b = $fib -> ($k);
+        my $y;
+
+        if ($n % 2 == 1) {
+            # a*a + b*b
+            $y = $class -> _add($class -> _mul($class -> _copy($a), $a),
+                                $class -> _mul($class -> _copy($b), $b));
+        } else {
+            # (2*a - b)*b
+            $y = $class -> _mul($class -> _sub($class -> _mul(
+                   $class -> _copy($two), $a), $b), $b);
+        }
+
+        $cache -> {$n} = $y;
+        return $y;
+    };
+
+    return $fib -> ($n);
+}
+
+##############################################################################
+##############################################################################
+
+1;
+
+__END__
+
+package Math::BigInt::Calc;
+
+use 5.006001;
+use strict;
+use warnings;
+
+use Carp;
+use Math::BigInt::Lib;
+
+our $VERSION = '1.999811';
+
+our @ISA = ('Math::BigInt::Lib');
+
+# Package to store unsigned big integers in decimal and do math with them
+
+# Internally the numbers are stored in an array with at least 1 element, no
+# leading zero parts (except the first) and in base 1eX where X is determined
+# automatically at loading time to be the maximum possible value
+
+# todo:
+# - fully remove funky $# stuff in div() (maybe - that code scares me...)
+
+# USE_MUL: due to problems on certain os (os390, posix-bc) "* 1e-5" is used
+# instead of "/ 1e5" at some places, (marked with USE_MUL). Other platforms
+# BS2000, some Crays need USE_DIV instead.
+# The BEGIN block is used to determine which of the two variants gives the
+# correct result.
+
+# Beware of things like:
+# $i = $i * $y + $car; $car = int($i / $BASE); $i = $i % $BASE;
+# This works on x86, but fails on ARM (SA1100, iPAQ) due to who knows what
+# reasons. So, use this instead (slower, but correct):
+# $i = $i * $y + $car; $car = int($i / $BASE); $i -= $BASE * $car;
+
+##############################################################################
+# global constants, flags and accessory
+
+# announce that we are compatible with MBI v1.83 and up
+sub api_version () { 2; }
+
+# constants for easier life
+my ($BASE, $BASE_LEN, $RBASE, $MAX_VAL);
+my ($AND_BITS, $XOR_BITS, $OR_BITS);
+my ($AND_MASK, $XOR_MASK, $OR_MASK);
+
+sub _base_len {
+    # Set/get the BASE_LEN and assorted other, related values.
+    # Used only by the testsuite, the set variant is used only by the BEGIN
+    # block below:
+
+    my ($class, $b, $int) = @_;
+    if (defined $b) {
+        # avoid redefinitions
+        undef &_mul;
+        undef &_div;
+
+        if ($] >= 5.008 && $int && $b > 7) {
+            $BASE_LEN = $b;
+            *_mul = \&_mul_use_div_64;
+            *_div = \&_div_use_div_64;
+            $BASE = int("1e" . $BASE_LEN);
+            $MAX_VAL = $BASE-1;
+            return $BASE_LEN unless wantarray;
+            return ($BASE_LEN, $BASE, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN, $MAX_VAL);
+        }
+
+        # find whether we can use mul or div in mul()/div()
+        $BASE_LEN = $b + 1;
+        my $caught = 0;
+        while (--$BASE_LEN > 5) {
+            $BASE = int("1e" . $BASE_LEN);
+            $RBASE = abs('1e-' . $BASE_LEN); # see USE_MUL
+            $caught = 0;
+            $caught += 1 if (int($BASE * $RBASE) != 1); # should be 1
+            $caught += 2 if (int($BASE / $BASE) != 1);  # should be 1
+            last if $caught != 3;
+        }
+        $BASE = int("1e" . $BASE_LEN);
+        $RBASE = abs('1e-' . $BASE_LEN); # see USE_MUL
+        $MAX_VAL = $BASE-1;
+
+        # ($caught & 1) != 0 => cannot use MUL
+        # ($caught & 2) != 0 => cannot use DIV
+        if ($caught == 2)       # 2
+        {
+            # must USE_MUL since we cannot use DIV
+            *_mul = \&_mul_use_mul;
+            *_div = \&_div_use_mul;
+        } else                  # 0 or 1
+        {
+            # can USE_DIV instead
+            *_mul = \&_mul_use_div;
+            *_div = \&_div_use_div;
+        }
+    }
+    return $BASE_LEN unless wantarray;
+    return ($BASE_LEN, $BASE, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN, $MAX_VAL);
+}
+
+sub _new {
+    # Given a string representing an integer, returns a reference to an array
+    # of integers, where each integer represents a chunk of the original input
+    # integer.
+
+    my ($class, $str) = @_;
+    #unless ($str =~ /^([1-9]\d*|0)\z/) {
+    #    require Carp;
+    #    Carp::croak("Invalid input string '$str'");
+    #}
+
+    my $input_len = length($str) - 1;
+
+    # Shortcut for small numbers.
+    return bless [ $str ], $class if $input_len < $BASE_LEN;
+
+    my $format = "a" . (($input_len % $BASE_LEN) + 1);
+    $format .= $] < 5.008 ? "a$BASE_LEN" x int($input_len / $BASE_LEN)
+                          : "(a$BASE_LEN)*";
+
+    my $self = [ reverse(map { 0 + $_ } unpack($format, $str)) ];
+    return bless $self, $class;
+}
+
+BEGIN {
+    # from Daniel Pfeiffer: determine largest group of digits that is precisely
+    # multipliable with itself plus carry
+    # Test now changed to expect the proper pattern, not a result off by 1 or 2
+    my ($e, $num) = 3;          # lowest value we will use is 3+1-1 = 3
+    do {
+        $num = '9' x ++$e;
+        $num *= $num + 1;
+    } while $num =~ /9{$e}0{$e}/; # must be a certain pattern
+    $e--;                         # last test failed, so retract one step
+    # the limits below brush the problems with the test above under the rug:
+    # the test should be able to find the proper $e automatically
+    $e = 5 if $^O =~ /^uts/;    # UTS get's some special treatment
+    $e = 5 if $^O =~ /^unicos/; # unicos is also problematic (6 seems to work
+                                # there, but we play safe)
+
+    my $int = 0;
+    if ($e > 7) {
+        use integer;
+        my $e1 = 7;
+        $num = 7;
+        do {
+            $num = ('9' x ++$e1) + 0;
+            $num *= $num + 1;
+        } while ("$num" =~ /9{$e1}0{$e1}/); # must be a certain pattern
+        $e1--;                  # last test failed, so retract one step
+        if ($e1 > 7) {
+            $int = 1;
+            $e = $e1;
+        }
+    }
+
+    __PACKAGE__ -> _base_len($e, $int);        # set and store
+
+    use integer;
+    # find out how many bits _and, _or and _xor can take (old default = 16)
+    # I don't think anybody has yet 128 bit scalars, so let's play safe.
+    local $^W = 0;              # don't warn about 'nonportable number'
+    $AND_BITS = 15;
+    $XOR_BITS = 15;
+    $OR_BITS  = 15;
+
+    # find max bits, we will not go higher than numberofbits that fit into $BASE
+    # to make _and etc simpler (and faster for smaller, slower for large numbers)
+    my $max = 16;
+    while (2 ** $max < $BASE) {
+        $max++;
+    }
+    {
+        no integer;
+        $max = 16 if $] < 5.006; # older Perls might not take >16 too well
+    }
+    my ($x, $y, $z);
+
+    do {
+        $AND_BITS++;
+        $x = CORE::oct('0b' . '1' x $AND_BITS);
+        $y = $x & $x;
+        $z = (2 ** $AND_BITS) - 1;
+    } while ($AND_BITS < $max && $x == $z && $y == $x);
+    $AND_BITS --;               # retreat one step
+
+    do {
+        $XOR_BITS++;
+        $x = CORE::oct('0b' . '1' x $XOR_BITS);
+        $y = $x ^ 0;
+        $z = (2 ** $XOR_BITS) - 1;
+    } while ($XOR_BITS < $max && $x == $z && $y == $x);
+    $XOR_BITS --;               # retreat one step
+
+    do {
+        $OR_BITS++;
+        $x = CORE::oct('0b' . '1' x $OR_BITS);
+        $y = $x | $x;
+        $z = (2 ** $OR_BITS) -  1;
+    } while ($OR_BITS < $max && $x == $z && $y == $x);
+    $OR_BITS--;                # retreat one step
+
+    $AND_MASK = __PACKAGE__->_new(( 2 ** $AND_BITS ));
+    $XOR_MASK = __PACKAGE__->_new(( 2 ** $XOR_BITS ));
+    $OR_MASK  = __PACKAGE__->_new(( 2 ** $OR_BITS  ));
+
+    # We can compute the approximate length no faster than the real length:
+    *_alen = \&_len;
+}
+
+###############################################################################
+
+sub _zero {
+    # create a zero
+    my $class = shift;
+    return bless [ 0 ], $class;
+}
+
+sub _one {
+    # create a one
+    my $class = shift;
+    return bless [ 1 ], $class;
+}
+
+sub _two {
+    # create a two
+    my $class = shift;
+    return bless [ 2 ], $class;
+}
+
+sub _ten {
+    # create a 10
+    my $class = shift;
+    bless [ 10 ], $class;
+}
+
+sub _1ex {
+    # create a 1Ex
+    my $class = shift;
+
+    my $rem   = $_[0] % $BASE_LEN;      # remainder
+    my $parts = $_[0] / $BASE_LEN;      # parts
+
+    # 000000, 000000, 100
+    bless [ (0) x $parts, '1' . ('0' x $rem) ], $class;
+}
+
+sub _copy {
+    # make a true copy
+    my $class = shift;
+    return bless [ @{ $_[0] } ], $class;
+}
+
+# catch and throw away
+sub import { }
+
+##############################################################################
+# convert back to string and number
+
+sub _str {
+    # Convert number from internal base 1eN format to string format. Internal
+    # format is always normalized, i.e., no leading zeros.
+
+    my $ary = $_[1];
+    my $idx = $#$ary;           # index of last element
+
+    if ($idx < 0) {             # should not happen
+        require Carp;
+        Carp::croak("$_[1] has no elements");
+    }
+
+    # Handle first one differently, since it should not have any leading zeros.
+    my $ret = int($ary->[$idx]);
+    if ($idx > 0) {
+        # Interestingly, the pre-padd method uses more time.
+        # The old grep variant takes longer (14 vs. 10 sec).
+        my $z = '0' x ($BASE_LEN - 1);
+        while (--$idx >= 0) {
+            $ret .= substr($z . $ary->[$idx], -$BASE_LEN);
+        }
+    }
+    $ret;
+}
+
+sub _num {
+    # Make a Perl scalar number (int/float) from a BigInt object.
+    my $x = $_[1];
+
+    return $x->[0] if @$x == 1;         # below $BASE
+
+    # Start with the most significant element and work towards the least
+    # significant element. Avoid multiplying "inf" (which happens if the number
+    # overflows) with "0" (if there are zero elements in $x) since this gives
+    # "nan" which propagates to the output.
+
+    my $num = 0;
+    for (my $i = $#$x ; $i >= 0 ; --$i) {
+        $num *= $BASE;
+        $num += $x -> [$i];
+    }
+    return $num;
+}
+
+##############################################################################
+# actual math code
+
+sub _add {
+    # (ref to int_num_array, ref to int_num_array)
+    #
+    # Routine to add two base 1eX numbers stolen from Knuth Vol 2 Algorithm A
+    # pg 231. There are separate routines to add and sub as per Knuth pg 233.
+    # This routine modifies array x, but not y.
+
+    my ($c, $x, $y) = @_;
+
+    # $x + 0 => $x
+
+    return $x if @$y == 1 && $y->[0] == 0;
+
+    # 0 + $y => $y->copy
+
+    if (@$x == 1 && $x->[0] == 0) {
+        @$x = @$y;
+        return $x;
+    }
+
+    # For each in Y, add Y to X and carry. If after that, something is left in
+    # X, foreach in X add carry to X and then return X, carry. Trades one
+    # "$j++" for having to shift arrays.
+    my $i;
+    my $car = 0;
+    my $j = 0;
+    for $i (@$y) {
+        $x->[$j] -= $BASE if $car = (($x->[$j] += $i + $car) >= $BASE) ? 1 : 0;
+        $j++;
+    }
+    while ($car != 0) {
+        $x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0;
+        $j++;
+    }
+    $x;
+}
+
+sub _inc {
+    # (ref to int_num_array, ref to int_num_array)
+    # Add 1 to $x, modify $x in place
+    my ($c, $x) = @_;
+
+    for my $i (@$x) {
+        return $x if ($i += 1) < $BASE; # early out
+        $i = 0;                         # overflow, next
+    }
+    push @$x, 1 if $x->[-1] == 0;       # last overflowed, so extend
+    $x;
+}
+
+sub _dec {
+    # (ref to int_num_array, ref to int_num_array)
+    # Sub 1 from $x, modify $x in place
+    my ($c, $x) = @_;
+
+    my $MAX = $BASE - 1;                # since MAX_VAL based on BASE
+    for my $i (@$x) {
+        last if ($i -= 1) >= 0;         # early out
+        $i = $MAX;                      # underflow, next
+    }
+    pop @$x if $x->[-1] == 0 && @$x > 1; # last underflowed (but leave 0)
+    $x;
+}
+
+sub _sub {
+    # (ref to int_num_array, ref to int_num_array, swap)
+    #
+    # Subtract base 1eX numbers -- stolen from Knuth Vol 2 pg 232, $x > $y
+    # subtract Y from X by modifying x in place
+    my ($c, $sx, $sy, $s) = @_;
+
+    my $car = 0;
+    my $i;
+    my $j = 0;
+    if (!$s) {
+        for $i (@$sx) {
+            last unless defined $sy->[$j] || $car;
+            $i += $BASE if $car = (($i -= ($sy->[$j] || 0) + $car) < 0);
+            $j++;
+        }
+        # might leave leading zeros, so fix that
+        return __strip_zeros($sx);
+    }
+    for $i (@$sx) {
+        # We can't do an early out if $x < $y, since we need to copy the high
+        # chunks from $y. Found by Bob Mathews.
+        #last unless defined $sy->[$j] || $car;
+        $sy->[$j] += $BASE
+          if $car = ($sy->[$j] = $i - ($sy->[$j] || 0) - $car) < 0;
+        $j++;
+    }
+    # might leave leading zeros, so fix that
+    __strip_zeros($sy);
+}
+
+sub _mul_use_mul {
+    # (ref to int_num_array, ref to int_num_array)
+    # multiply two numbers in internal representation
+    # modifies first arg, second need not be different from first
+    my ($c, $xv, $yv) = @_;
+
+    if (@$yv == 1) {
+        # shortcut for two very short numbers (improved by Nathan Zook)
+        # works also if xv and yv are the same reference, and handles also $x == 0
+        if (@$xv == 1) {
+            if (($xv->[0] *= $yv->[0]) >= $BASE) {
+                $xv->[0] = $xv->[0] - ($xv->[1] = int($xv->[0] * $RBASE)) * $BASE;
+            }
+            ;
+            return $xv;
+        }
+        # $x * 0 => 0
+        if ($yv->[0] == 0) {
+            @$xv = (0);
+            return $xv;
+        }
+        # multiply a large number a by a single element one, so speed up
+        my $y = $yv->[0];
+        my $car = 0;
+        foreach my $i (@$xv) {
+            $i = $i * $y + $car;
+            $car = int($i * $RBASE);
+            $i -= $car * $BASE;
+        }
+        push @$xv, $car if $car != 0;
+        return $xv;
+    }
+    # shortcut for result $x == 0 => result = 0
+    return $xv if @$xv == 1 && $xv->[0] == 0;
+
+    # since multiplying $x with $x fails, make copy in this case
+    $yv = [ @$xv ] if $xv == $yv; # same references?
+
+    my @prod = ();
+    my ($prod, $car, $cty, $xi, $yi);
+
+    for $xi (@$xv) {
+        $car = 0;
+        $cty = 0;
+
+        # slow variant
+        #    for $yi (@$yv)
+        #      {
+        #      $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+        #      $prod[$cty++] =
+        #       $prod - ($car = int($prod * RBASE)) * $BASE;  # see USE_MUL
+        #      }
+        #    $prod[$cty] += $car if $car; # need really to check for 0?
+        #    $xi = shift @prod;
+
+        # faster variant
+        # looping through this if $xi == 0 is silly - so optimize it away!
+        $xi = (shift @prod || 0), next if $xi == 0;
+        for $yi (@$yv) {
+            $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+            ##     this is actually a tad slower
+            ##        $prod = $prod[$cty]; $prod += ($car + $xi * $yi);     # no ||0 here
+            $prod[$cty++] =
+              $prod - ($car = int($prod * $RBASE)) * $BASE; # see USE_MUL
+        }
+        $prod[$cty] += $car if $car; # need really to check for 0?
+        $xi = shift @prod || 0;      # || 0 makes v5.005_3 happy
+    }
+    push @$xv, @prod;
+    # can't have leading zeros
+    #  __strip_zeros($xv);
+    $xv;
+}
+
+sub _mul_use_div_64 {
+    # (ref to int_num_array, ref to int_num_array)
+    # multiply two numbers in internal representation
+    # modifies first arg, second need not be different from first
+    # works for 64 bit integer with "use integer"
+    my ($c, $xv, $yv) = @_;
+
+    use integer;
+    if (@$yv == 1) {
+        # shortcut for two small numbers, also handles $x == 0
+        if (@$xv == 1) {
+            # shortcut for two very short numbers (improved by Nathan Zook)
+            # works also if xv and yv are the same reference, and handles also $x == 0
+            if (($xv->[0] *= $yv->[0]) >= $BASE) {
+                $xv->[0] =
+                  $xv->[0] - ($xv->[1] = $xv->[0] / $BASE) * $BASE;
+            }
+            return $xv;
+        }
+        # $x * 0 => 0
+        if ($yv->[0] == 0) {
+            @$xv = (0);
+            return $xv;
+        }
+        # multiply a large number a by a single element one, so speed up
+        my $y = $yv->[0];
+        my $car = 0;
+        foreach my $i (@$xv) {
+            #$i = $i * $y + $car; $car = $i / $BASE; $i -= $car * $BASE;
+            $i = $i * $y + $car;
+            $i -= ($car = $i / $BASE) * $BASE;
+        }
+        push @$xv, $car if $car != 0;
+        return $xv;
+    }
+    # shortcut for result $x == 0 => result = 0
+    return $xv if ( ((@$xv == 1) && ($xv->[0] == 0)) );
+
+    # since multiplying $x with $x fails, make copy in this case
+    $yv = $c->_copy($xv) if $xv == $yv; # same references?
+
+    my @prod = ();
+    my ($prod, $car, $cty, $xi, $yi);
+    for $xi (@$xv) {
+        $car = 0;
+        $cty = 0;
+        # looping through this if $xi == 0 is silly - so optimize it away!
+        $xi = (shift @prod || 0), next if $xi == 0;
+        for $yi (@$yv) {
+            $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+            $prod[$cty++] = $prod - ($car = $prod / $BASE) * $BASE;
+        }
+        $prod[$cty] += $car if $car; # need really to check for 0?
+        $xi = shift @prod || 0;      # || 0 makes v5.005_3 happy
+    }
+    push @$xv, @prod;
+    $xv;
+}
+
+sub _mul_use_div {
+    # (ref to int_num_array, ref to int_num_array)
+    # multiply two numbers in internal representation
+    # modifies first arg, second need not be different from first
+    my ($c, $xv, $yv) = @_;
+
+    if (@$yv == 1) {
+        # shortcut for two small numbers, also handles $x == 0
+        if (@$xv == 1) {
+            # shortcut for two very short numbers (improved by Nathan Zook)
+            # works also if xv and yv are the same reference, and handles also $x == 0
+            if (($xv->[0] *= $yv->[0]) >= $BASE) {
+                $xv->[0] =
+                  $xv->[0] - ($xv->[1] = int($xv->[0] / $BASE)) * $BASE;
+            }
+            ;
+            return $xv;
+        }
+        # $x * 0 => 0
+        if ($yv->[0] == 0) {
+            @$xv = (0);
+            return $xv;
+        }
+        # multiply a large number a by a single element one, so speed up
+        my $y = $yv->[0];
+        my $car = 0;
+        foreach my $i (@$xv) {
+            $i = $i * $y + $car;
+            $car = int($i / $BASE);
+            $i -= $car * $BASE;
+            # This (together with use integer;) does not work on 32-bit Perls
+            #$i = $i * $y + $car; $i -= ($car = $i / $BASE) * $BASE;
+        }
+        push @$xv, $car if $car != 0;
+        return $xv;
+    }
+    # shortcut for result $x == 0 => result = 0
+    return $xv if ( ((@$xv == 1) && ($xv->[0] == 0)) );
+
+    # since multiplying $x with $x fails, make copy in this case
+    $yv = $c->_copy($xv) if $xv == $yv; # same references?
+
+    my @prod = ();
+    my ($prod, $car, $cty, $xi, $yi);
+    for $xi (@$xv) {
+        $car = 0;
+        $cty = 0;
+        # looping through this if $xi == 0 is silly - so optimize it away!
+        $xi = (shift @prod || 0), next if $xi == 0;
+        for $yi (@$yv) {
+            $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+            $prod[$cty++] = $prod - ($car = int($prod / $BASE)) * $BASE;
+        }
+        $prod[$cty] += $car if $car; # need really to check for 0?
+        $xi = shift @prod || 0;      # || 0 makes v5.005_3 happy
+    }
+    push @$xv, @prod;
+    # can't have leading zeros
+    #  __strip_zeros($xv);
+    $xv;
+}
+
+sub _div_use_mul {
+    # ref to array, ref to array, modify first array and return remainder if
+    # in list context
+
+    # see comments in _div_use_div() for more explanations
+
+    my ($c, $x, $yorg) = @_;
+
+    # the general div algorithm here is about O(N*N) and thus quite slow, so
+    # we first check for some special cases and use shortcuts to handle them.
+
+    # This works, because we store the numbers in a chunked format where each
+    # element contains 5..7 digits (depending on system).
+
+    # if both numbers have only one element:
+    if (@$x == 1 && @$yorg == 1) {
+        # shortcut, $yorg and $x are two small numbers
+        if (wantarray) {
+            my $rem = [ $x->[0] % $yorg->[0] ];
+            bless $rem, $c;
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return ($x, $rem);
+        } else {
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return $x;
+        }
+    }
+
+    # if x has more than one, but y has only one element:
+    if (@$yorg == 1) {
+        my $rem;
+        $rem = $c->_mod($c->_copy($x), $yorg) if wantarray;
+
+        # shortcut, $y is < $BASE
+        my $j = @$x;
+        my $r = 0;
+        my $y = $yorg->[0];
+        my $b;
+        while ($j-- > 0) {
+            $b = $r * $BASE + $x->[$j];
+            $x->[$j] = int($b/$y);
+            $r = $b % $y;
+        }
+        pop @$x if @$x > 1 && $x->[-1] == 0; # splice up a leading zero
+        return ($x, $rem) if wantarray;
+        return $x;
+    }
+
+    # now x and y have more than one element
+
+    # check whether y has more elements than x, if yet, the result will be 0
+    if (@$yorg > @$x) {
+        my $rem;
+        $rem = $c->_copy($x) if wantarray;    # make copy
+        @$x = 0;                        # set to 0
+        return ($x, $rem) if wantarray; # including remainder?
+        return $x;                      # only x, which is [0] now
+    }
+    # check whether the numbers have the same number of elements, in that case
+    # the result will fit into one element and can be computed efficiently
+    if (@$yorg == @$x) {
+
+        # if $yorg has more digits than $x (it's leading element is longer than
+        # the one from $x), the result will also be 0:
+        if (length(int($yorg->[-1])) > length(int($x->[-1]))) {
+            my $rem = $c->_copy($x) if wantarray;        # make copy
+            @$x = 0;                            # set to 0
+            return ($x, $rem) if wantarray;     # including remainder?
+            return $x;
+        }
+        # now calculate $x / $yorg
+        if (length(int($yorg->[-1])) == length(int($x->[-1]))) {
+            # same length, so make full compare
+
+            my $a = 0;
+            my $j = @$x - 1;
+            # manual way (abort if unequal, good for early ne)
+            while ($j >= 0) {
+                last if ($a = $x->[$j] - $yorg->[$j]);
+                $j--;
+            }
+            # $a contains the result of the compare between X and Y
+            # a < 0: x < y, a == 0: x == y, a > 0: x > y
+            if ($a <= 0) {
+                # a = 0 => x == y => rem 0
+                # a < 0 => x < y => rem = x
+                my $rem = $a == 0 ? $c->_zero() : $c->_copy($x);
+                @$x = 0;             # if $a < 0
+                $x->[0] = 1 if $a == 0;  # $x == $y
+                return ($x, $rem) if wantarray;
+                return $x;
+            }
+            # $x >= $y, so proceed normally
+        }
+    }
+
+    # all other cases:
+
+    my $y = $c->_copy($yorg);         # always make copy to preserve
+
+    my ($car, $bar, $prd, $dd, $xi, $yi, @q, $v2, $v1, @d, $tmp, $q, $u2, $u1, $u0);
+
+    $car = $bar = $prd = 0;
+    if (($dd = int($BASE / ($y->[-1] + 1))) != 1) {
+        for $xi (@$x) {
+            $xi = $xi * $dd + $car;
+            $xi -= ($car = int($xi * $RBASE)) * $BASE; # see USE_MUL
+        }
+        push(@$x, $car);
+        $car = 0;
+        for $yi (@$y) {
+            $yi = $yi * $dd + $car;
+            $yi -= ($car = int($yi * $RBASE)) * $BASE; # see USE_MUL
+        }
+    } else {
+        push(@$x, 0);
+    }
+    @q = ();
+    ($v2, $v1) = @$y[-2, -1];
+    $v2 = 0 unless $v2;
+    while ($#$x > $#$y) {
+        ($u2, $u1, $u0) = @$x[-3 .. -1];
+        $u2 = 0 unless $u2;
+        #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+        # if $v1 == 0;
+        $q = (($u0 == $v1) ? $MAX_VAL : int(($u0 * $BASE + $u1) / $v1));
+        --$q while ($v2 * $q > ($u0 * $BASE + $u1 - $q * $v1) * $BASE + $u2);
+        if ($q) {
+            ($car, $bar) = (0, 0);
+            for ($yi = 0, $xi = $#$x - $#$y-1; $yi <= $#$y; ++$yi, ++$xi) {
+                $prd = $q * $y->[$yi] + $car;
+                $prd -= ($car = int($prd * $RBASE)) * $BASE; # see USE_MUL
+                $x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+            }
+            if ($x->[-1] < $car + $bar) {
+                $car = 0;
+                --$q;
+                for ($yi = 0, $xi = $#$x - $#$y-1; $yi <= $#$y; ++$yi, ++$xi) {
+                    $x->[$xi] -= $BASE
+                      if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+                }
+            }
+        }
+        pop(@$x);
+        unshift(@q, $q);
+    }
+    if (wantarray) {
+        my $d = bless [], $c;
+        if ($dd != 1) {
+            $car = 0;
+            for $xi (reverse @$x) {
+                $prd = $car * $BASE + $xi;
+                $car = $prd - ($tmp = int($prd / $dd)) * $dd; # see USE_MUL
+                unshift(@$d, $tmp);
+            }
+        } else {
+            @$d = @$x;
+        }
+        @$x = @q;
+        __strip_zeros($x);
+        __strip_zeros($d);
+        return ($x, $d);
+    }
+    @$x = @q;
+    __strip_zeros($x);
+    $x;
+}
+
+sub _div_use_div_64 {
+    # ref to array, ref to array, modify first array and return remainder if
+    # in list context
+    # This version works on 64 bit integers
+    my ($c, $x, $yorg) = @_;
+
+    use integer;
+    # the general div algorithm here is about O(N*N) and thus quite slow, so
+    # we first check for some special cases and use shortcuts to handle them.
+
+    # This works, because we store the numbers in a chunked format where each
+    # element contains 5..7 digits (depending on system).
+
+    # if both numbers have only one element:
+    if (@$x == 1 && @$yorg == 1) {
+        # shortcut, $yorg and $x are two small numbers
+        if (wantarray) {
+            my $rem = [ $x->[0] % $yorg->[0] ];
+            bless $rem, $c;
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return ($x, $rem);
+        } else {
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return $x;
+        }
+    }
+    # if x has more than one, but y has only one element:
+    if (@$yorg == 1) {
+        my $rem;
+        $rem = $c->_mod($c->_copy($x), $yorg) if wantarray;
+
+        # shortcut, $y is < $BASE
+        my $j = @$x;
+        my $r = 0;
+        my $y = $yorg->[0];
+        my $b;
+        while ($j-- > 0) {
+            $b = $r * $BASE + $x->[$j];
+            $x->[$j] = int($b/$y);
+            $r = $b % $y;
+        }
+        pop @$x if @$x > 1 && $x->[-1] == 0; # splice up a leading zero
+        return ($x, $rem) if wantarray;
+        return $x;
+    }
+    # now x and y have more than one element
+
+    # check whether y has more elements than x, if yet, the result will be 0
+    if (@$yorg > @$x) {
+        my $rem;
+        $rem = $c->_copy($x) if wantarray;    # make copy
+        @$x = 0;                        # set to 0
+        return ($x, $rem) if wantarray; # including remainder?
+        return $x;                      # only x, which is [0] now
+    }
+    # check whether the numbers have the same number of elements, in that case
+    # the result will fit into one element and can be computed efficiently
+    if (@$yorg == @$x) {
+        my $rem;
+        # if $yorg has more digits than $x (it's leading element is longer than
+        # the one from $x), the result will also be 0:
+        if (length(int($yorg->[-1])) > length(int($x->[-1]))) {
+            $rem = $c->_copy($x) if wantarray;     # make copy
+            @$x = 0;                          # set to 0
+            return ($x, $rem) if wantarray; # including remainder?
+            return $x;
+        }
+        # now calculate $x / $yorg
+
+        if (length(int($yorg->[-1])) == length(int($x->[-1]))) {
+            # same length, so make full compare
+
+            my $a = 0;
+            my $j = @$x - 1;
+            # manual way (abort if unequal, good for early ne)
+            while ($j >= 0) {
+                last if ($a = $x->[$j] - $yorg->[$j]);
+                $j--;
+            }
+            # $a contains the result of the compare between X and Y
+            # a < 0: x < y, a == 0: x == y, a > 0: x > y
+            if ($a <= 0) {
+                $rem = $c->_zero();                  # a = 0 => x == y => rem 0
+                $rem = $c->_copy($x) if $a != 0;       # a < 0 => x < y => rem = x
+                @$x = 0;                       # if $a < 0
+                $x->[0] = 1 if $a == 0;        # $x == $y
+                return ($x, $rem) if wantarray; # including remainder?
+                return $x;
+            }
+            # $x >= $y, so proceed normally
+        }
+    }
+
+    # all other cases:
+
+    my $y = $c->_copy($yorg);         # always make copy to preserve
+
+    my ($car, $bar, $prd, $dd, $xi, $yi, @q, $v2, $v1, @d, $tmp, $q, $u2, $u1, $u0);
+
+    $car = $bar = $prd = 0;
+    if (($dd = int($BASE / ($y->[-1] + 1))) != 1) {
+        for $xi (@$x) {
+            $xi = $xi * $dd + $car;
+            $xi -= ($car = int($xi / $BASE)) * $BASE;
+        }
+        push(@$x, $car);
+        $car = 0;
+        for $yi (@$y) {
+            $yi = $yi * $dd + $car;
+            $yi -= ($car = int($yi / $BASE)) * $BASE;
+        }
+    } else {
+        push(@$x, 0);
+    }
+
+    # @q will accumulate the final result, $q contains the current computed
+    # part of the final result
+
+    @q = ();
+    ($v2, $v1) = @$y[-2, -1];
+    $v2 = 0 unless $v2;
+    while ($#$x > $#$y) {
+        ($u2, $u1, $u0) = @$x[-3..-1];
+        $u2 = 0 unless $u2;
+        #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+        # if $v1 == 0;
+        $q = (($u0 == $v1) ? $MAX_VAL : int(($u0 * $BASE + $u1) / $v1));
+        --$q while ($v2 * $q > ($u0 * $BASE +$ u1- $q*$v1) * $BASE + $u2);
+        if ($q) {
+            ($car, $bar) = (0, 0);
+            for ($yi = 0, $xi = $#$x - $#$y - 1; $yi <= $#$y; ++$yi, ++$xi) {
+                $prd = $q * $y->[$yi] + $car;
+                $prd -= ($car = int($prd / $BASE)) * $BASE;
+                $x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+            }
+            if ($x->[-1] < $car + $bar) {
+                $car = 0;
+                --$q;
+                for ($yi = 0, $xi = $#$x - $#$y - 1; $yi <= $#$y; ++$yi, ++$xi) {
+                    $x->[$xi] -= $BASE
+                      if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+                }
+            }
+        }
+        pop(@$x);
+        unshift(@q, $q);
+    }
+    if (wantarray) {
+        my $d = bless [], $c;
+        if ($dd != 1) {
+            $car = 0;
+            for $xi (reverse @$x) {
+                $prd = $car * $BASE + $xi;
+                $car = $prd - ($tmp = int($prd / $dd)) * $dd;
+                unshift(@$d, $tmp);
+            }
+        } else {
+            @$d = @$x;
+        }
+        @$x = @q;
+        __strip_zeros($x);
+        __strip_zeros($d);
+        return ($x, $d);
+    }
+    @$x = @q;
+    __strip_zeros($x);
+    $x;
+}
+
+sub _div_use_div {
+    # ref to array, ref to array, modify first array and return remainder if
+    # in list context
+    my ($c, $x, $yorg) = @_;
+
+    # the general div algorithm here is about O(N*N) and thus quite slow, so
+    # we first check for some special cases and use shortcuts to handle them.
+
+    # This works, because we store the numbers in a chunked format where each
+    # element contains 5..7 digits (depending on system).
+
+    # if both numbers have only one element:
+    if (@$x == 1 && @$yorg == 1) {
+        # shortcut, $yorg and $x are two small numbers
+        if (wantarray) {
+            my $rem = [ $x->[0] % $yorg->[0] ];
+            bless $rem, $c;
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return ($x, $rem);
+        } else {
+            $x->[0] = int($x->[0] / $yorg->[0]);
+            return $x;
+        }
+    }
+    # if x has more than one, but y has only one element:
+    if (@$yorg == 1) {
+        my $rem;
+        $rem = $c->_mod($c->_copy($x), $yorg) if wantarray;
+
+        # shortcut, $y is < $BASE
+        my $j = @$x;
+        my $r = 0;
+        my $y = $yorg->[0];
+        my $b;
+        while ($j-- > 0) {
+            $b = $r * $BASE + $x->[$j];
+            $x->[$j] = int($b/$y);
+            $r = $b % $y;
+        }
+        pop @$x if @$x > 1 && $x->[-1] == 0; # splice up a leading zero
+        return ($x, $rem) if wantarray;
+        return $x;
+    }
+    # now x and y have more than one element
+
+    # check whether y has more elements than x, if yet, the result will be 0
+    if (@$yorg > @$x) {
+        my $rem;
+        $rem = $c->_copy($x) if wantarray;    # make copy
+        @$x = 0;                        # set to 0
+        return ($x, $rem) if wantarray; # including remainder?
+        return $x;                      # only x, which is [0] now
+    }
+    # check whether the numbers have the same number of elements, in that case
+    # the result will fit into one element and can be computed efficiently
+    if (@$yorg == @$x) {
+        my $rem;
+        # if $yorg has more digits than $x (it's leading element is longer than
+        # the one from $x), the result will also be 0:
+        if (length(int($yorg->[-1])) > length(int($x->[-1]))) {
+            $rem = $c->_copy($x) if wantarray;        # make copy
+            @$x = 0;                            # set to 0
+            return ($x, $rem) if wantarray;     # including remainder?
+            return $x;
+        }
+        # now calculate $x / $yorg
+
+        if (length(int($yorg->[-1])) == length(int($x->[-1]))) {
+            # same length, so make full compare
+
+            my $a = 0;
+            my $j = @$x - 1;
+            # manual way (abort if unequal, good for early ne)
+            while ($j >= 0) {
+                last if ($a = $x->[$j] - $yorg->[$j]);
+                $j--;
+            }
+            # $a contains the result of the compare between X and Y
+            # a < 0: x < y, a == 0: x == y, a > 0: x > y
+            if ($a <= 0) {
+                $rem = $c->_zero();                   # a = 0 => x == y => rem 0
+                $rem = $c->_copy($x) if $a != 0;      # a < 0 => x < y => rem = x
+                @$x = 0;
+                $x->[0] = 0;                    # if $a < 0
+                $x->[0] = 1 if $a == 0;         # $x == $y
+                return ($x, $rem) if wantarray; # including remainder?
+                return $x;
+            }
+            # $x >= $y, so proceed normally
+
+        }
+    }
+
+    # all other cases:
+
+    my $y = $c->_copy($yorg);         # always make copy to preserve
+
+    my ($car, $bar, $prd, $dd, $xi, $yi, @q, $v2, $v1, @d, $tmp, $q, $u2, $u1, $u0);
+
+    $car = $bar = $prd = 0;
+    if (($dd = int($BASE / ($y->[-1] + 1))) != 1) {
+        for $xi (@$x) {
+            $xi = $xi * $dd + $car;
+            $xi -= ($car = int($xi / $BASE)) * $BASE;
+        }
+        push(@$x, $car);
+        $car = 0;
+        for $yi (@$y) {
+            $yi = $yi * $dd + $car;
+            $yi -= ($car = int($yi / $BASE)) * $BASE;
+        }
+    } else {
+        push(@$x, 0);
+    }
+
+    # @q will accumulate the final result, $q contains the current computed
+    # part of the final result
+
+    @q = ();
+    ($v2, $v1) = @$y[-2, -1];
+    $v2 = 0 unless $v2;
+    while ($#$x > $#$y) {
+        ($u2, $u1, $u0) = @$x[-3..-1];
+        $u2 = 0 unless $u2;
+        #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+        # if $v1 == 0;
+        $q = (($u0 == $v1) ? $MAX_VAL : int(($u0 * $BASE + $u1) / $v1));
+        --$q while ($v2 * $q > ($u0 * $BASE + $u1 - $q * $v1) * $BASE + $u2);
+        if ($q) {
+            ($car, $bar) = (0, 0);
+            for ($yi = 0, $xi = $#$x - $#$y - 1; $yi <= $#$y; ++$yi, ++$xi) {
+                $prd = $q * $y->[$yi] + $car;
+                $prd -= ($car = int($prd / $BASE)) * $BASE;
+                $x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+            }
+            if ($x->[-1] < $car + $bar) {
+                $car = 0;
+                --$q;
+                for ($yi = 0, $xi = $#$x - $#$y - 1; $yi <= $#$y; ++$yi, ++$xi) {
+                    $x->[$xi] -= $BASE
+                      if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+                }
+            }
+        }
+        pop(@$x);
+        unshift(@q, $q);
+    }
+    if (wantarray) {
+        my $d = bless [], $c;
+        if ($dd != 1) {
+            $car = 0;
+            for $xi (reverse @$x) {
+                $prd = $car * $BASE + $xi;
+                $car = $prd - ($tmp = int($prd / $dd)) * $dd;
+                unshift(@$d, $tmp);
+            }
+        } else {
+            @$d = @$x;
+        }
+        @$x = @q;
+        __strip_zeros($x);
+        __strip_zeros($d);
+        return ($x, $d);
+    }
+    @$x = @q;
+    __strip_zeros($x);
+    $x;
+}
+
+##############################################################################
+# testing
+
+sub _acmp {
+    # Internal absolute post-normalized compare (ignore signs)
+    # ref to array, ref to array, return <0, 0, >0
+    # Arrays must have at least one entry; this is not checked for.
+    my ($c, $cx, $cy) = @_;
+
+    # shortcut for short numbers
+    return (($cx->[0] <=> $cy->[0]) <=> 0)
+      if @$cx == 1 && @$cy == 1;
+
+    # fast comp based on number of array elements (aka pseudo-length)
+    my $lxy = (@$cx - @$cy)
+      # or length of first element if same number of elements (aka difference 0)
+      ||
+        # need int() here because sometimes the last element is '00018' vs '18'
+        (length(int($cx->[-1])) - length(int($cy->[-1])));
+
+    return -1 if $lxy < 0;      # already differs, ret
+    return  1 if $lxy > 0;      # ditto
+
+    # manual way (abort if unequal, good for early ne)
+    my $a;
+    my $j = @$cx;
+    while (--$j >= 0) {
+        last if $a = $cx->[$j] - $cy->[$j];
+    }
+    $a <=> 0;
+}
+
+sub _len {
+    # compute number of digits in base 10
+
+    # int() because add/sub sometimes leaves strings (like '00005') instead of
+    # '5' in this place, thus causing length() to report wrong length
+    my $cx = $_[1];
+
+    (@$cx - 1) * $BASE_LEN + length(int($cx->[-1]));
+}
+
+sub _digit {
+    # Return the nth digit. Zero is rightmost, so _digit(123, 0) gives 3.
+    # Negative values count from the left, so _digit(123, -1) gives 1.
+    my ($c, $x, $n) = @_;
+
+    my $len = _len('', $x);
+
+    $n += $len if $n < 0;               # -1 last, -2 second-to-last
+
+    # Math::BigInt::Calc returns 0 if N is out of range, but this is not done
+    # by the other backend libraries.
+
+    return "0" if $n < 0 || $n >= $len; # return 0 for digits out of range
+
+    my $elem = int($n / $BASE_LEN);     # index of array element
+    my $digit = $n % $BASE_LEN;         # index of digit within the element
+    substr("0" x $BASE_LEN . "$x->[$elem]", -1 - $digit, 1);
+}
+
+sub _zeros {
+    # Return number of trailing zeros in decimal.
+    # Check each array element for having 0 at end as long as elem == 0
+    # Upon finding a elem != 0, stop.
+
+    my $x = $_[1];
+
+    return 0 if @$x == 1 && $x->[0] == 0;
+
+    my $zeros = 0;
+    foreach my $elem (@$x) {
+        if ($elem != 0) {
+            $elem =~ /[^0](0*)\z/;
+            $zeros += length($1);       # count trailing zeros
+            last;                       # early out
+        }
+        $zeros += $BASE_LEN;
+    }
+    $zeros;
+}
+
+##############################################################################
+# _is_* routines
+
+sub _is_zero {
+    # return true if arg is zero
+    @{$_[1]} == 1 && $_[1]->[0] == 0 ? 1 : 0;
+}
+
+sub _is_even {
+    # return true if arg is even
+    $_[1]->[0] & 1 ? 0 : 1;
+}
+
+sub _is_odd {
+    # return true if arg is odd
+    $_[1]->[0] & 1 ? 1 : 0;
+}
+
+sub _is_one {
+    # return true if arg is one
+    @{$_[1]} == 1 && $_[1]->[0] == 1 ? 1 : 0;
+}
+
+sub _is_two {
+    # return true if arg is two
+    @{$_[1]} == 1 && $_[1]->[0] == 2 ? 1 : 0;
+}
+
+sub _is_ten {
+    # return true if arg is ten
+    @{$_[1]} == 1 && $_[1]->[0] == 10 ? 1 : 0;
+}
+
+sub __strip_zeros {
+    # Internal normalization function that strips leading zeros from the array.
+    # Args: ref to array
+    my $x = shift;
+
+    push @$x, 0 if @$x == 0;    # div might return empty results, so fix it
+    return $x if @$x == 1;      # early out
+
+    #print "strip: cnt $cnt i $i\n";
+    # '0', '3', '4', '0', '0',
+    #  0    1    2    3    4
+    # cnt = 5, i = 4
+    # i = 4
+    # i = 3
+    # => fcnt = cnt - i (5-2 => 3, cnt => 5-1 = 4, throw away from 4th pos)
+    # >= 1: skip first part (this can be zero)
+
+    my $i = $#$x;
+    while ($i > 0) {
+        last if $x->[$i] != 0;
+        $i--;
+    }
+    $i++;
+    splice(@$x, $i) if $i < @$x;
+    $x;
+}
+
+###############################################################################
+# check routine to test internal state for corruptions
+
+sub _check {
+    # used by the test suite
+    my ($class, $x) = @_;
+
+    my $msg = $class -> SUPER::_check($x);
+    return $msg if $msg;
+
+    my $n;
+    eval { $n = @$x };
+    return "Not an array reference" unless $@ eq '';
+
+    return "Reference to an empty array" unless $n > 0;
+
+    # The following fails with Math::BigInt::FastCalc because a
+    # Math::BigInt::FastCalc "object" is an unblessed array ref.
+    #
+    #return 0 unless ref($x) eq $class;
+
+    for (my $i = 0 ; $i <= $#$x ; ++ $i) {
+        my $e = $x -> [$i];
+
+        return "Element at index $i is undefined"
+          unless defined $e;
+
+        return "Element at index $i is a '" . ref($e) .
+          "', which is not a scalar"
+          unless ref($e) eq "";
+
+        # It would be better to use the regex /^([1-9]\d*|0)\z/, but that fails
+        # in Math::BigInt::FastCalc, because it sometimes creates array
+        # elements like "000000".
+        return "Element at index $i is '$e', which does not look like an" .
+          " normal integer" unless $e =~ /^\d+\z/;
+
+        return "Element at index $i is '$e', which is not smaller than" .
+          " the base '$BASE'" if $e >= $BASE;
+
+        return "Element at index $i (last element) is zero"
+          if $#$x > 0 && $i == $#$x && $e == 0;
+    }
+
+    return 0;
+}
+
+###############################################################################
+
+sub _mod {
+    # if possible, use mod shortcut
+    my ($c, $x, $yo) = @_;
+
+    # slow way since $y too big
+    if (@$yo > 1) {
+        my ($xo, $rem) = $c->_div($x, $yo);
+        @$x = @$rem;
+        return $x;
+    }
+
+    my $y = $yo->[0];
+
+    # if both are single element arrays
+    if (@$x == 1) {
+        $x->[0] %= $y;
+        return $x;
+    }
+
+    # if @$x has more than one element, but @$y is a single element
+    my $b = $BASE % $y;
+    if ($b == 0) {
+        # when BASE % Y == 0 then (B * BASE) % Y == 0
+        # (B * BASE) % $y + A % Y => A % Y
+        # so need to consider only last element: O(1)
+        $x->[0] %= $y;
+    } elsif ($b == 1) {
+        # else need to go through all elements in @$x: O(N), but loop is a bit
+        # simplified
+        my $r = 0;
+        foreach (@$x) {
+            $r = ($r + $_) % $y; # not much faster, but heh...
+            #$r += $_ % $y; $r %= $y;
+        }
+        $r = 0 if $r == $y;
+        $x->[0] = $r;
+    } else {
+        # else need to go through all elements in @$x: O(N)
+        my $r = 0;
+        my $bm = 1;
+        foreach (@$x) {
+            $r = ($_ * $bm + $r) % $y;
+            $bm = ($bm * $b) % $y;
+
+            #$r += ($_ % $y) * $bm;
+            #$bm *= $b;
+            #$bm %= $y;
+            #$r %= $y;
+        }
+        $r = 0 if $r == $y;
+        $x->[0] = $r;
+    }
+    @$x = $x->[0];              # keep one element of @$x
+    return $x;
+}
+
+##############################################################################
+# shifts
+
+sub _rsft {
+    my ($c, $x, $y, $n) = @_;
+
+    if ($n != 10) {
+        $n = $c->_new($n);
+        return scalar $c->_div($x, $c->_pow($n, $y));
+    }
+
+    # shortcut (faster) for shifting by 10)
+    # multiples of $BASE_LEN
+    my $dst = 0;                # destination
+    my $src = $c->_num($y);     # as normal int
+    my $xlen = (@$x - 1) * $BASE_LEN + length(int($x->[-1]));
+    if ($src >= $xlen or ($src == $xlen and !defined $x->[1])) {
+        # 12345 67890 shifted right by more than 10 digits => 0
+        splice(@$x, 1);         # leave only one element
+        $x->[0] = 0;            # set to zero
+        return $x;
+    }
+    my $rem = $src % $BASE_LEN;   # remainder to shift
+    $src = int($src / $BASE_LEN); # source
+    if ($rem == 0) {
+        splice(@$x, 0, $src);   # even faster, 38.4 => 39.3
+    } else {
+        my $len = @$x - $src;   # elems to go
+        my $vd;
+        my $z = '0' x $BASE_LEN;
+        $x->[ @$x ] = 0;          # avoid || 0 test inside loop
+        while ($dst < $len) {
+            $vd = $z . $x->[$src];
+            $vd = substr($vd, -$BASE_LEN, $BASE_LEN - $rem);
+            $src++;
+            $vd = substr($z . $x->[$src], -$rem, $rem) . $vd;
+            $vd = substr($vd, -$BASE_LEN, $BASE_LEN) if length($vd) > $BASE_LEN;
+            $x->[$dst] = int($vd);
+            $dst++;
+        }
+        splice(@$x, $dst) if $dst > 0;       # kill left-over array elems
+        pop @$x if $x->[-1] == 0 && @$x > 1; # kill last element if 0
+    }                                        # else rem == 0
+    $x;
+}
+
+sub _lsft {
+    my ($c, $x, $n, $b) = @_;
+
+    return $x if $c->_is_zero($x);
+
+    # Handle the special case when the base is a power of 10. Don't check
+    # whether log($b)/log(10) is an integer, because log(1000)/log(10) is not
+    # exactly 3.
+
+    my $log10 = sprintf "%.0f", log($b) / log(10);
+    if ($b == 10 ** $log10) {
+        $b = 10;
+        $n = $c->_mul($n, $c->_new($log10));
+
+        # shortcut (faster) for shifting by 10) since we are in base 10eX
+        # multiples of $BASE_LEN:
+        my $src = @$x;                      # source
+        my $len = $c->_num($n);             # shift-len as normal int
+        my $rem = $len % $BASE_LEN;         # remainder to shift
+        my $dst = $src + int($len / $BASE_LEN); # destination
+        my $vd;                                 # further speedup
+        $x->[$src] = 0;                         # avoid first ||0 for speed
+        my $z = '0' x $BASE_LEN;
+        while ($src >= 0) {
+            $vd = $x->[$src];
+            $vd = $z . $vd;
+            $vd = substr($vd, -$BASE_LEN + $rem, $BASE_LEN - $rem);
+            $vd .= $src > 0 ? substr($z . $x->[$src - 1], -$BASE_LEN, $rem)
+              : '0' x $rem;
+            $vd = substr($vd, -$BASE_LEN, $BASE_LEN) if length($vd) > $BASE_LEN;
+            $x->[$dst] = int($vd);
+            $dst--;
+            $src--;
+        }
+        # set lowest parts to 0
+        while ($dst >= 0) {
+            $x->[$dst--] = 0;
+        }
+        # fix spurious last zero element
+        splice @$x, -1 if $x->[-1] == 0;
+        return $x;
+    } else {
+        $b = $c->_new($b);
+        #print $c->_str($b);
+        return $c->_mul($x, $c->_pow($b, $n));
+    }
+}
+
+sub _pow {
+    # power of $x to $y
+    # ref to array, ref to array, return ref to array
+    my ($c, $cx, $cy) = @_;
+
+    if (@$cy == 1 && $cy->[0] == 0) {
+        splice(@$cx, 1);
+        $cx->[0] = 1;           # y == 0 => x => 1
+        return $cx;
+    }
+
+    if ((@$cx == 1 && $cx->[0] == 1) || #    x == 1
+        (@$cy == 1 && $cy->[0] == 1))   # or y == 1
+    {
+        return $cx;
+    }
+
+    if (@$cx == 1 && $cx->[0] == 0) {
+        splice (@$cx, 1);
+        $cx->[0] = 0;           # 0 ** y => 0 (if not y <= 0)
+        return $cx;
+    }
+
+    my $pow2 = $c->_one();
+
+    my $y_bin = $c->_as_bin($cy);
+    $y_bin =~ s/^0b//;
+    my $len = length($y_bin);
+    while (--$len > 0) {
+        $c->_mul($pow2, $cx) if substr($y_bin, $len, 1) eq '1'; # is odd?
+        $c->_mul($cx, $cx);
+    }
+
+    $c->_mul($cx, $pow2);
+    $cx;
+}
+
+sub _nok {
+    # Return binomial coefficient (n over k).
+    # Given refs to arrays, return ref to array.
+    # First input argument is modified.
+
+    my ($c, $n, $k) = @_;
+
+    # If k > n/2, or, equivalently, 2*k > n, compute nok(n, k) as
+    # nok(n, n-k), to minimize the number if iterations in the loop.
+
+    {
+        my $twok = $c->_mul($c->_two(), $c->_copy($k)); # 2 * k
+        if ($c->_acmp($twok, $n) > 0) {               # if 2*k > n
+            $k = $c->_sub($c->_copy($n), $k);         # k = n - k
+        }
+    }
+
+    # Example:
+    #
+    # / 7 \       7!       1*2*3*4 * 5*6*7   5 * 6 * 7       6   7
+    # |   | = --------- =  --------------- = --------- = 5 * - * -
+    # \ 3 /   (7-3)! 3!    1*2*3*4 * 1*2*3   1 * 2 * 3       2   3
+
+    if ($c->_is_zero($k)) {
+        @$n = 1;
+    } else {
+
+        # Make a copy of the original n, since we'll be modifying n in-place.
+
+        my $n_orig = $c->_copy($n);
+
+        # n = 5, f = 6, d = 2 (cf. example above)
+
+        $c->_sub($n, $k);
+        $c->_inc($n);
+
+        my $f = $c->_copy($n);
+        $c->_inc($f);
+
+        my $d = $c->_two();
+
+        # while f <= n (the original n, that is) ...
+
+        while ($c->_acmp($f, $n_orig) <= 0) {
+
+            # n = (n * f / d) == 5 * 6 / 2 (cf. example above)
+
+            $c->_mul($n, $f);
+            $c->_div($n, $d);
+
+            # f = 7, d = 3 (cf. example above)
+
+            $c->_inc($f);
+            $c->_inc($d);
+        }
+
+    }
+
+    return $n;
+}
+
+my @factorials = (
+                  1,
+                  1,
+                  2,
+                  2*3,
+                  2*3*4,
+                  2*3*4*5,
+                  2*3*4*5*6,
+                  2*3*4*5*6*7,
+                 );
+
+sub _fac {
+    # factorial of $x
+    # ref to array, return ref to array
+    my ($c, $cx) = @_;
+
+    if ((@$cx == 1) && ($cx->[0] <= 7)) {
+        $cx->[0] = $factorials[$cx->[0]]; # 0 => 1, 1 => 1, 2 => 2 etc.
+        return $cx;
+    }
+
+    if ((@$cx == 1) &&          # we do this only if $x >= 12 and $x <= 7000
+        ($cx->[0] >= 12 && $cx->[0] < 7000)) {
+
+        # Calculate (k-j) * (k-j+1) ... k .. (k+j-1) * (k + j)
+        # See http://blogten.blogspot.com/2007/01/calculating-n.html
+        # The above series can be expressed as factors:
+        #   k * k - (j - i) * 2
+        # We cache k*k, and calculate (j * j) as the sum of the first j odd integers
+
+        # This will not work when N exceeds the storage of a Perl scalar, however,
+        # in this case the algorithm would be way too slow to terminate, anyway.
+
+        # As soon as the last element of $cx is 0, we split it up and remember
+        # how many zeors we got so far. The reason is that n! will accumulate
+        # zeros at the end rather fast.
+        my $zero_elements = 0;
+
+        # If n is even, set n = n -1
+        my $k = $c->_num($cx);
+        my $even = 1;
+        if (($k & 1) == 0) {
+            $even = $k;
+            $k --;
+        }
+        # set k to the center point
+        $k = ($k + 1) / 2;
+        #  print "k $k even: $even\n";
+        # now calculate k * k
+        my $k2 = $k * $k;
+        my $odd = 1;
+        my $sum = 1;
+        my $i = $k - 1;
+        # keep reference to x
+        my $new_x = $c->_new($k * $even);
+        @$cx = @$new_x;
+        if ($cx->[0] == 0) {
+            $zero_elements ++;
+            shift @$cx;
+        }
+        #  print STDERR "x = ", $c->_str($cx), "\n";
+        my $BASE2 = int(sqrt($BASE))-1;
+        my $j = 1;
+        while ($j <= $i) {
+            my $m = ($k2 - $sum);
+            $odd += 2;
+            $sum += $odd;
+            $j++;
+            while ($j <= $i && ($m < $BASE2) && (($k2 - $sum) < $BASE2)) {
+                $m *= ($k2 - $sum);
+                $odd += 2;
+                $sum += $odd;
+                $j++;
+                #      print STDERR "\n k2 $k2 m $m sum $sum odd $odd\n"; sleep(1);
+            }
+            if ($m < $BASE) {
+                $c->_mul($cx, [$m]);
+            } else {
+                $c->_mul($cx, $c->_new($m));
+            }
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+            #    print STDERR "Calculate $k2 - $sum = $m (x = ", $c->_str($cx), ")\n";
+        }
+        # multiply in the zeros again
+        unshift @$cx, (0) x $zero_elements;
+        return $cx;
+    }
+
+    # go forward until $base is exceeded limit is either $x steps (steps == 100
+    # means a result always too high) or $base.
+    my $steps = 100;
+    $steps = $cx->[0] if @$cx == 1;
+    my $r = 2;
+    my $cf = 3;
+    my $step = 2;
+    my $last = $r;
+    while ($r * $cf < $BASE && $step < $steps) {
+        $last = $r;
+        $r *= $cf++;
+        $step++;
+    }
+    if ((@$cx == 1) && $step == $cx->[0]) {
+        # completely done, so keep reference to $x and return
+        $cx->[0] = $r;
+        return $cx;
+    }
+
+    # now we must do the left over steps
+    my $n;                      # steps still to do
+    if (@$cx == 1) {
+        $n = $cx->[0];
+    } else {
+        $n = $c->_copy($cx);
+    }
+
+    # Set $cx to the last result below $BASE (but keep ref to $x)
+    $cx->[0] = $last;
+    splice (@$cx, 1);
+    # As soon as the last element of $cx is 0, we split it up and remember
+    # how many zeors we got so far. The reason is that n! will accumulate
+    # zeros at the end rather fast.
+    my $zero_elements = 0;
+
+    # do left-over steps fit into a scalar?
+    if (ref $n eq 'ARRAY') {
+        # No, so use slower inc() & cmp()
+        # ($n is at least $BASE here)
+        my $base_2 = int(sqrt($BASE)) - 1;
+        #print STDERR "base_2: $base_2\n";
+        while ($step < $base_2) {
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+            my $b = $step * ($step + 1);
+            $step += 2;
+            $c->_mul($cx, [$b]);
+        }
+        $step = [$step];
+        while ($c->_acmp($step, $n) <= 0) {
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+            $c->_mul($cx, $step);
+            $c->_inc($step);
+        }
+    } else {
+        # Yes, so we can speed it up slightly
+
+        #    print "# left over steps $n\n";
+
+        my $base_4 = int(sqrt(sqrt($BASE))) - 2;
+        #print STDERR "base_4: $base_4\n";
+        my $n4 = $n - 4;
+        while ($step < $n4 && $step < $base_4) {
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+            my $b = $step * ($step + 1);
+            $step += 2;
+            $b *= $step * ($step + 1);
+            $step += 2;
+            $c->_mul($cx, [$b]);
+        }
+        my $base_2 = int(sqrt($BASE)) - 1;
+        my $n2 = $n - 2;
+        #print STDERR "base_2: $base_2\n";
+        while ($step < $n2 && $step < $base_2) {
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+            my $b = $step * ($step + 1);
+            $step += 2;
+            $c->_mul($cx, [$b]);
+        }
+        # do what's left over
+        while ($step <= $n) {
+            $c->_mul($cx, [$step]);
+            $step++;
+            if ($cx->[0] == 0) {
+                $zero_elements ++;
+                shift @$cx;
+            }
+        }
+    }
+    # multiply in the zeros again
+    unshift @$cx, (0) x $zero_elements;
+    $cx;                        # return result
+}
+
+sub _log_int {
+    # calculate integer log of $x to base $base
+    # ref to array, ref to array - return ref to array
+    my ($c, $x, $base) = @_;
+
+    # X == 0 => NaN
+    return if @$x == 1 && $x->[0] == 0;
+
+    # BASE 0 or 1 => NaN
+    return if @$base == 1 && $base->[0] < 2;
+
+    # X == 1 => 0 (is exact)
+    if (@$x == 1 && $x->[0] == 1) {
+        @$x = 0;
+        return $x, 1;
+    }
+
+    my $cmp = $c->_acmp($x, $base);
+
+    # X == BASE => 1 (is exact)
+    if ($cmp == 0) {
+        @$x = 1;
+        return $x, 1;
+    }
+
+    # 1 < X < BASE => 0 (is truncated)
+    if ($cmp < 0) {
+        @$x = 0;
+        return $x, 0;
+    }
+
+    my $x_org = $c->_copy($x);  # preserve x
+
+    # Compute a guess for the result based on:
+    # $guess = int ( length_in_base_10(X) / ( log(base) / log(10) ) )
+    my $len = $c->_len($x_org);
+    my $log = log($base->[-1]) / log(10);
+
+    # for each additional element in $base, we add $BASE_LEN to the result,
+    # based on the observation that log($BASE, 10) is BASE_LEN and
+    # log(x*y) == log(x) + log(y):
+    $log += (@$base - 1) * $BASE_LEN;
+
+    # calculate now a guess based on the values obtained above:
+    my $res = int($len / $log);
+
+    @$x = $res;
+    my $trial = $c->_pow($c->_copy($base), $x);
+    my $acmp = $c->_acmp($trial, $x_org);
+
+    # Did we get the exact result?
+
+    return $x, 1 if $acmp == 0;
+
+    # Too small?
+
+    while ($acmp < 0) {
+        $c->_mul($trial, $base);
+        $c->_inc($x);
+        $acmp = $c->_acmp($trial, $x_org);
+    }
+
+    # Too big?
+
+    while ($acmp > 0) {
+        $c->_div($trial, $base);
+        $c->_dec($x);
+        $acmp = $c->_acmp($trial, $x_org);
+    }
+
+    return $x, 1 if $acmp == 0;         # result is exact
+    return $x, 0;                       # result is too small
+}
+
+# for debugging:
+use constant DEBUG => 0;
+my $steps = 0;
+sub steps { $steps };
+
+sub _sqrt {
+    # square-root of $x in place
+    # Compute a guess of the result (by rule of thumb), then improve it via
+    # Newton's method.
+    my ($c, $x) = @_;
+
+    if (@$x == 1) {
+        # fits into one Perl scalar, so result can be computed directly
+        $x->[0] = int(sqrt($x->[0]));
+        return $x;
+    }
+    my $y = $c->_copy($x);
+    # hopefully _len/2 is < $BASE, the -1 is to always undershot the guess
+    # since our guess will "grow"
+    my $l = int(($c->_len($x)-1) / 2);
+
+    my $lastelem = $x->[-1];    # for guess
+    my $elems = @$x - 1;
+    # not enough digits, but could have more?
+    if ((length($lastelem) <= 3) && ($elems > 1)) {
+        # right-align with zero pad
+        my $len = length($lastelem) & 1;
+        print "$lastelem => " if DEBUG;
+        $lastelem .= substr($x->[-2] . '0' x $BASE_LEN, 0, $BASE_LEN);
+        # former odd => make odd again, or former even to even again
+        $lastelem = $lastelem / 10 if (length($lastelem) & 1) != $len;
+        print "$lastelem\n" if DEBUG;
+    }
+
+    # construct $x (instead of $c->_lsft($x, $l, 10)
+    my $r = $l % $BASE_LEN;     # 10000 00000 00000 00000 ($BASE_LEN=5)
+    $l = int($l / $BASE_LEN);
+    print "l =  $l " if DEBUG;
+
+    splice @$x, $l;              # keep ref($x), but modify it
+
+    # we make the first part of the guess not '1000...0' but int(sqrt($lastelem))
+    # that gives us:
+    # 14400 00000 => sqrt(14400) => guess first digits to be 120
+    # 144000 000000 => sqrt(144000) => guess 379
+
+    print "$lastelem (elems $elems) => " if DEBUG;
+    $lastelem = $lastelem / 10 if ($elems & 1 == 1); # odd or even?
+    my $g = sqrt($lastelem);
+    $g =~ s/\.//;               # 2.345 => 2345
+    $r -= 1 if $elems & 1 == 0; # 70 => 7
+
+    # padd with zeros if result is too short
+    $x->[$l--] = int(substr($g . '0' x $r, 0, $r+1));
+    print "now ", $x->[-1] if DEBUG;
+    print " would have been ", int('1' . '0' x $r), "\n" if DEBUG;
+
+    # If @$x > 1, we could compute the second elem of the guess, too, to create
+    # an even better guess. Not implemented yet. Does it improve performance?
+    $x->[$l--] = 0 while ($l >= 0); # all other digits of guess are zero
+
+    print "start x= ", $c->_str($x), "\n" if DEBUG;
+    my $two = $c->_two();
+    my $last = $c->_zero();
+    my $lastlast = $c->_zero();
+    $steps = 0 if DEBUG;
+    while ($c->_acmp($last, $x) != 0 && $c->_acmp($lastlast, $x) != 0) {
+        $steps++ if DEBUG;
+        $lastlast = $c->_copy($last);
+        $last = $c->_copy($x);
+        $c->_add($x, $c->_div($c->_copy($y), $x));
+        $c->_div($x, $two );
+        print " x= ", $c->_str($x), "\n" if DEBUG;
+    }
+    print "\nsteps in sqrt: $steps, " if DEBUG;
+    $c->_dec($x) if $c->_acmp($y, $c->_mul($c->_copy($x), $x)) < 0; # overshot?
+    print " final ", $x->[-1], "\n" if DEBUG;
+    $x;
+}
+
+sub _root {
+    # Take n'th root of $x in place.
+
+    my ($c, $x, $n) = @_;
+
+    # Small numbers.
+
+    if (@$x == 1 && @$n == 1) {
+        # Result can be computed directly. Adjust initial result for numerical
+        # errors, e.g., int(1000**(1/3)) is 2, not 3.
+        my $y = int($x->[0] ** (1 / $n->[0]));
+        my $yp1 = $y + 1;
+        $y = $yp1 if $yp1 ** $n->[0] == $x->[0];
+        $x->[0] = $y;
+        return $x;
+    }
+
+    # If x <= n, the result is always (truncated to) 1.
+
+    if ((@$x > 1 || $x -> [0] > 0) &&           # if x is non-zero ...
+        $c -> _acmp($x, $n) <= 0)               # ... and x <= n
+    {
+        my $one = $x -> _one();
+        @$x = @$one;
+        return $x;
+    }
+
+    # If $n is a power of two, take sqrt($x) repeatedly, e.g., root($x, 4) =
+    # sqrt(sqrt($x)), root($x, 8) = sqrt(sqrt(sqrt($x))).
+
+    my $b = $c -> _as_bin($n);
+    if ($b =~ /0b1(0+)$/) {
+        my $count = length($1);       # 0b100 => len('00') => 2
+        my $cnt = $count;             # counter for loop
+        unshift @$x, 0;               # add one element, together with one
+                                      #   more below in the loop this makes 2
+        while ($cnt-- > 0) {
+            # 'Inflate' $x by adding one element, basically computing
+            # $x * $BASE * $BASE. This gives us more $BASE_LEN digits for
+            # result since len(sqrt($X)) approx == len($x) / 2.
+            unshift @$x, 0;
+            # Calculate sqrt($x), $x is now one element to big, again. In the
+            # next round we make that two, again.
+            $c -> _sqrt($x);
+        }
+
+        # $x is now one element too big, so truncate result by removing it.
+        shift @$x;
+
+        return $x;
+    }
+
+    my $DEBUG = 0;
+
+    # Now the general case. This works by finding an initial guess. If this
+    # guess is incorrect, a relatively small delta is chosen. This delta is
+    # used to find a lower and upper limit for the correct value. The delta is
+    # doubled in each iteration. When a lower and upper limit is found,
+    # bisection is applied to narrow down the region until we have the correct
+    # value.
+
+    # Split x into mantissa and exponent in base 10, so that
+    #
+    #   x = xm * 10^xe, where 0 < xm < 1 and xe is an integer
+
+    my $x_str = $c -> _str($x);
+    my $xm    = "." . $x_str;
+    my $xe    = length($x_str);
+
+    # From this we compute the base 10 logarithm of x
+    #
+    #   log_10(x) = log_10(xm) + log_10(xe^10)
+    #             = log(xm)/log(10) + xe
+    #
+    # and then the base 10 logarithm of y, where y = x^(1/n)
+    #
+    #   log_10(y) = log_10(x)/n
+
+    my $log10x = log($xm) / log(10) + $xe;
+    my $log10y = $log10x / $c -> _num($n);
+
+    # And from this we compute ym and ye, the mantissa and exponent (in
+    # base 10) of y, where 1 < ym <= 10 and ye is an integer.
+
+    my $ye = int $log10y;
+    my $ym = 10 ** ($log10y - $ye);
+
+    # Finally, we scale the mantissa and exponent to incraese the integer
+    # part of ym, before building the string representing our guess of y.
+
+    if ($DEBUG) {
+        print "\n";
+        print "xm     = $xm\n";
+        print "xe     = $xe\n";
+        print "log10x = $log10x\n";
+        print "log10y = $log10y\n";
+        print "ym     = $ym\n";
+        print "ye     = $ye\n";
+        print "\n";
+    }
+
+    my $d = $ye < 15 ? $ye : 15;
+    $ym *= 10 ** $d;
+    $ye -= $d;
+
+    my $y_str = sprintf('%.0f', $ym) . "0" x $ye;
+    my $y = $c -> _new($y_str);
+
+    if ($DEBUG) {
+        print "ym     = $ym\n";
+        print "ye     = $ye\n";
+        print "\n";
+        print "y_str  = $y_str (initial guess)\n";
+        print "\n";
+    }
+
+    # See if our guess y is correct.
+
+    my $trial = $c -> _pow($c -> _copy($y), $n);
+    my $acmp  = $c -> _acmp($trial, $x);
+
+    if ($acmp == 0) {
+        @$x = @$y;
+        return $x;
+    }
+
+    # Find a lower and upper limit for the correct value of y. Start off with a
+    # delta value that is approximately the size of the accuracy of the guess.
+
+    my $lower;
+    my $upper;
+
+    my $delta = $c -> _new("1" . ("0" x $ye));
+    my $two   = $c -> _two();
+
+    if ($acmp < 0) {
+        $lower = $y;
+        while ($acmp < 0) {
+            $upper = $c -> _add($c -> _copy($lower), $delta);
+
+            if ($DEBUG) {
+                print "lower  = $lower\n";
+                print "upper  = $upper\n";
+                print "delta  = $delta\n";
+                print "\n";
+            }
+            $acmp  = $c -> _acmp($c -> _pow($c -> _copy($upper), $n), $x);
+            if ($acmp == 0) {
+                @$x = @$upper;
+                return $x;
+            }
+            $delta = $c -> _mul($delta, $two);
+        }
+    }
+
+    elsif ($acmp > 0) {
+        $upper = $y;
+        my $zero = $c -> _zero();
+        while ($acmp > 0) {
+            if ($c -> _acmp($upper, $delta) <= 0) {
+                $lower = $c -> _zero();
+                last;
+            }
+            $lower = $c -> _sub($c -> _copy($upper), $delta);
+
+            if ($DEBUG) {
+                print "lower  = $lower\n";
+                print "upper  = $upper\n";
+                print "delta  = $delta\n";
+                print "\n";
+            }
+            $acmp  = $c -> _acmp($c -> _pow($c -> _copy($lower), $n), $x);
+            if ($acmp == 0) {
+                @$x = @$lower;
+                return $x;
+            }
+            $delta = $c -> _mul($delta, $two);
+        }
+    }
+
+    # Use bisection to narrow down the interval.
+
+    my $one = $c -> _one();
+    {
+
+        $delta = $c -> _sub($c -> _copy($upper), $lower);
+        if ($c -> _acmp($delta, $one) <= 0) {
+            @$x = @$lower;
+            return $x;
+        }
+
+        if ($DEBUG) {
+            print "lower  = $lower\n";
+            print "upper  = $upper\n";
+            print "delta   = $delta\n";
+            print "\n";
+        }
+
+        $delta = $c -> _div($delta, $two);
+        my $middle = $c -> _add($c -> _copy($lower), $delta);
+
+        $acmp  = $c -> _acmp($c -> _pow($c -> _copy($middle), $n), $x);
+        if ($acmp < 0) {
+            $lower = $middle;
+        } elsif ($acmp > 0) {
+            $upper = $middle;
+        } else {
+            @$x = @$middle;
+            return $x;
+        }
+
+        redo;
+    }
+
+    $x;
+}
+
+##############################################################################
+# binary stuff
+
+sub _and {
+    my ($c, $x, $y) = @_;
+
+    # the shortcut makes equal, large numbers _really_ fast, and makes only a
+    # very small performance drop for small numbers (e.g. something with less
+    # than 32 bit) Since we optimize for large numbers, this is enabled.
+    return $x if $c->_acmp($x, $y) == 0; # shortcut
+
+    my $m = $c->_one();
+    my ($xr, $yr);
+    my $mask = $AND_MASK;
+
+    my $x1 = $c->_copy($x);
+    my $y1 = $c->_copy($y);
+    my $z  = $c->_zero();
+
+    use integer;
+    until ($c->_is_zero($x1) || $c->_is_zero($y1)) {
+        ($x1, $xr) = $c->_div($x1, $mask);
+        ($y1, $yr) = $c->_div($y1, $mask);
+
+        $c->_add($z, $c->_mul([ 0 + $xr->[0] & 0 + $yr->[0] ], $m));
+        $c->_mul($m, $mask);
+    }
+
+    @$x = @$z;
+    return $x;
+}
+
+sub _xor {
+    my ($c, $x, $y) = @_;
+
+    return $c->_zero() if $c->_acmp($x, $y) == 0; # shortcut (see -and)
+
+    my $m = $c->_one();
+    my ($xr, $yr);
+    my $mask = $XOR_MASK;
+
+    my $x1 = $c->_copy($x);
+    my $y1 = $c->_copy($y);      # make copy
+    my $z  = $c->_zero();
+
+    use integer;
+    until ($c->_is_zero($x1) || $c->_is_zero($y1)) {
+        ($x1, $xr) = $c->_div($x1, $mask);
+        ($y1, $yr) = $c->_div($y1, $mask);
+        # make ints() from $xr, $yr (see _and())
+        #$b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
+        #$b = 1; $yrr = 0; foreach (@$yr) { $yrr += $_ * $b; $b *= $BASE; }
+        #$c->_add($x, $c->_mul($c->_new($xrr ^ $yrr)), $m) );
+
+        $c->_add($z, $c->_mul([ 0 + $xr->[0] ^ 0 + $yr->[0] ], $m));
+        $c->_mul($m, $mask);
+    }
+    # the loop stops when the shorter of the two numbers is exhausted
+    # the remainder of the longer one will survive bit-by-bit, so we simple
+    # multiply-add it in
+    $c->_add($z, $c->_mul($x1, $m) ) if !$c->_is_zero($x1);
+    $c->_add($z, $c->_mul($y1, $m) ) if !$c->_is_zero($y1);
+
+    @$x = @$z;
+    return $x;
+}
+
+sub _or {
+    my ($c, $x, $y) = @_;
+
+    return $x if $c->_acmp($x, $y) == 0; # shortcut (see _and)
+
+    my $m = $c->_one();
+    my ($xr, $yr);
+    my $mask = $OR_MASK;
+
+    my $x1 = $c->_copy($x);
+    my $y1 = $c->_copy($y);      # make copy
+    my $z  = $c->_zero();
+
+    use integer;
+    until ($c->_is_zero($x1) || $c->_is_zero($y1)) {
+        ($x1, $xr) = $c->_div($x1, $mask);
+        ($y1, $yr) = $c->_div($y1, $mask);
+        # make ints() from $xr, $yr (see _and())
+        #    $b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
+        #    $b = 1; $yrr = 0; foreach (@$yr) { $yrr += $_ * $b; $b *= $BASE; }
+        #    $c->_add($x, $c->_mul(_new( $c, ($xrr | $yrr) ), $m) );
+
+        $c->_add($z, $c->_mul([ 0 + $xr->[0] | 0 + $yr->[0] ], $m));
+        $c->_mul($m, $mask);
+    }
+    # the loop stops when the shorter of the two numbers is exhausted
+    # the remainder of the longer one will survive bit-by-bit, so we simple
+    # multiply-add it in
+    $c->_add($z, $c->_mul($x1, $m) ) if !$c->_is_zero($x1);
+    $c->_add($z, $c->_mul($y1, $m) ) if !$c->_is_zero($y1);
+
+    @$x = @$z;
+    return $x;
+}
+
+sub _as_hex {
+    # convert a decimal number to hex (ref to array, return ref to string)
+    my ($c, $x) = @_;
+
+    # fits into one element (handle also 0x0 case)
+    return sprintf("0x%x", $x->[0]) if @$x == 1;
+
+    my $x1 = $c->_copy($x);
+
+    my $es = '';
+    my ($xr, $h, $x10000);
+    if ($] >= 5.006) {
+        $x10000 = [ 0x10000 ];
+        $h = 'h4';
+    } else {
+        $x10000 = [ 0x1000 ];
+        $h = 'h3';
+    }
+    while (@$x1 != 1 || $x1->[0] != 0) # _is_zero()
+    {
+        ($x1, $xr) = $c->_div($x1, $x10000);
+        $es .= unpack($h, pack('V', $xr->[0]));
+    }
+    $es = reverse $es;
+    $es =~ s/^[0]+//;           # strip leading zeros
+    '0x' . $es;                 # return result prepended with 0x
+}
+
+sub _as_bin {
+    # convert a decimal number to bin (ref to array, return ref to string)
+    my ($c, $x) = @_;
+
+    # fits into one element (and Perl recent enough), handle also 0b0 case
+    # handle zero case for older Perls
+    if ($] <= 5.005 && @$x == 1 && $x->[0] == 0) {
+        my $t = '0b0';
+        return $t;
+    }
+    if (@$x == 1 && $] >= 5.006) {
+        my $t = sprintf("0b%b", $x->[0]);
+        return $t;
+    }
+    my $x1 = $c->_copy($x);
+
+    my $es = '';
+    my ($xr, $b, $x10000);
+    if ($] >= 5.006) {
+        $x10000 = [ 0x10000 ];
+        $b = 'b16';
+    } else {
+        $x10000 = [ 0x1000 ];
+        $b = 'b12';
+    }
+    while (!(@$x1 == 1 && $x1->[0] == 0)) # _is_zero()
+    {
+        ($x1, $xr) = $c->_div($x1, $x10000);
+        $es .= unpack($b, pack('v', $xr->[0]));
+    }
+    $es = reverse $es;
+    $es =~ s/^[0]+//;           # strip leading zeros
+    '0b' . $es;                 # return result prepended with 0b
+}
+
+sub _as_oct {
+    # convert a decimal number to octal (ref to array, return ref to string)
+    my ($c, $x) = @_;
+
+    # fits into one element (handle also 0 case)
+    return sprintf("0%o", $x->[0]) if @$x == 1;
+
+    my $x1 = $c->_copy($x);
+
+    my $es = '';
+    my $xr;
+    my $x1000 = [ 0100000 ];
+    while (@$x1 != 1 || $x1->[0] != 0) # _is_zero()
+    {
+        ($x1, $xr) = $c->_div($x1, $x1000);
+        $es .= reverse sprintf("%05o", $xr->[0]);
+    }
+    $es = reverse $es;
+    $es =~ s/^0+//;             # strip leading zeros
+    '0' . $es;                  # return result prepended with 0
+}
+
+sub _from_oct {
+    # convert a octal number to decimal (string, return ref to array)
+    my ($c, $os) = @_;
+
+    # for older Perls, play safe
+    my $m = [ 0100000 ];
+    my $d = 5;                  # 5 digits at a time
+
+    my $mul = $c->_one();
+    my $x = $c->_zero();
+
+    my $len = int((length($os) - 1) / $d);      # $d digit parts, w/o the '0'
+    my $val;
+    my $i = -$d;
+    while ($len >= 0) {
+        $val = substr($os, $i, $d);             # get oct digits
+        $val = CORE::oct($val);
+        $i -= $d;
+        $len --;
+        my $adder = [ $val ];
+        $c->_add($x, $c->_mul($adder, $mul)) if $val != 0;
+        $c->_mul($mul, $m) if $len >= 0;        # skip last mul
+    }
+    $x;
+}
+
+sub _from_hex {
+    # convert a hex number to decimal (string, return ref to array)
+    my ($c, $hs) = @_;
+
+    my $m = $c->_new(0x10000000); # 28 bit at a time (<32 bit!)
+    my $d = 7;                    # 7 digits at a time
+    my $mul = $c->_one();
+    my $x = $c->_zero();
+
+    my $len = int((length($hs) - 2) / $d); # $d digit parts, w/o the '0x'
+    my $val;
+    my $i = -$d;
+    while ($len >= 0) {
+        $val = substr($hs, $i, $d);     # get hex digits
+        $val =~ s/^0x// if $len == 0; # for last part only because
+        $val = CORE::hex($val);       # hex does not like wrong chars
+        $i -= $d;
+        $len --;
+        my $adder = [ $val ];
+        # if the resulting number was to big to fit into one element, create a
+        # two-element version (bug found by Mark Lakata - Thanx!)
+        if (CORE::length($val) > $BASE_LEN) {
+            $adder = $c->_new($val);
+        }
+        $c->_add($x, $c->_mul($adder, $mul)) if $val != 0;
+        $c->_mul($mul, $m) if $len >= 0; # skip last mul
+    }
+    $x;
+}
+
+sub _from_bin {
+    # convert a hex number to decimal (string, return ref to array)
+    my ($c, $bs) = @_;
+
+    # instead of converting X (8) bit at a time, it is faster to "convert" the
+    # number to hex, and then call _from_hex.
+
+    my $hs = $bs;
+    $hs =~ s/^[+-]?0b//;                                # remove sign and 0b
+    my $l = length($hs);                                # bits
+    $hs = '0' x (8 - ($l % 8)) . $hs if ($l % 8) != 0;  # padd left side w/ 0
+    my $h = '0x' . unpack('H*', pack ('B*', $hs));      # repack as hex
+
+    $c->_from_hex($h);
+}
+
+##############################################################################
+# special modulus functions
+
+sub _modinv {
+    # modular multiplicative inverse
+    my ($c, $x, $y) = @_;
+
+    # modulo zero
+    if ($c->_is_zero($y)) {
+        return undef, undef;
+    }
+
+    # modulo one
+    if ($c->_is_one($y)) {
+        return $c->_zero(), '+';
+    }
+
+    my $u = $c->_zero();
+    my $v = $c->_one();
+    my $a = $c->_copy($y);
+    my $b = $c->_copy($x);
+
+    # Euclid's Algorithm for bgcd(), only that we calc bgcd() ($a) and the result
+    # ($u) at the same time. See comments in BigInt for why this works.
+    my $q;
+    my $sign = 1;
+    {
+        ($a, $q, $b) = ($b, $c->_div($a, $b));          # step 1
+        last if $c->_is_zero($b);
+
+        my $t = $c->_add(                               # step 2:
+                         $c->_mul($c->_copy($v), $q),   #  t =   v * q
+                         $u);                           #      + u
+        $u = $v;                                        #  u = v
+        $v = $t;                                        #  v = t
+        $sign = -$sign;
+        redo;
+    }
+
+    # if the gcd is not 1, then return NaN
+    return (undef, undef) unless $c->_is_one($a);
+
+    ($v, $sign == 1 ? '+' : '-');
+}
+
+sub _modpow {
+    # modulus of power ($x ** $y) % $z
+    my ($c, $num, $exp, $mod) = @_;
+
+    # a^b (mod 1) = 0 for all a and b
+    if ($c->_is_one($mod)) {
+        @$num = 0;
+        return $num;
+    }
+
+    # 0^a (mod m) = 0 if m != 0, a != 0
+    # 0^0 (mod m) = 1 if m != 0
+    if ($c->_is_zero($num)) {
+        if ($c->_is_zero($exp)) {
+            @$num = 1;
+        } else {
+            @$num = 0;
+        }
+        return $num;
+    }
+
+    #  $num = $c->_mod($num, $mod);   # this does not make it faster
+
+    my $acc = $c->_copy($num);
+    my $t = $c->_one();
+
+    my $expbin = $c->_as_bin($exp);
+    $expbin =~ s/^0b//;
+    my $len = length($expbin);
+    while (--$len >= 0) {
+        if (substr($expbin, $len, 1) eq '1') { # is_odd
+            $t = $c->_mul($t, $acc);
+            $t = $c->_mod($t, $mod);
+        }
+        $acc = $c->_mul($acc, $acc);
+        $acc = $c->_mod($acc, $mod);
+    }
+    @$num = @$t;
+    $num;
+}
+
+sub _gcd {
+    # Greatest common divisor.
+
+    my ($c, $x, $y) = @_;
+
+    # gcd(0, 0) = 0
+    # gcd(0, a) = a, if a != 0
+
+    if (@$x == 1 && $x->[0] == 0) {
+        if (@$y == 1 && $y->[0] == 0) {
+            @$x = 0;
+        } else {
+            @$x = @$y;
+        }
+        return $x;
+    }
+
+    # Until $y is zero ...
+
+    until (@$y == 1 && $y->[0] == 0) {
+
+        # Compute remainder.
+
+        $c->_mod($x, $y);
+
+        # Swap $x and $y.
+
+        my $tmp = $c->_copy($x);
+        @$x = @$y;
+        $y = $tmp;              # no deref here; that would modify input $y
+    }
+
+    return $x;
+}
+
+1;
+
+package Math::BigInt::CalcEmu;
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999811';
+
+package Math::BigInt;
+
+# See SYNOPSIS below.
+
+my $CALC_EMU;
+
+BEGIN
+  {
+  $CALC_EMU = Math::BigInt->config('lib');
+  # register us with MBI to get notified of future lib changes
+  Math::BigInt::_register_callback( __PACKAGE__, sub { $CALC_EMU = $_[0]; } );
+  }
+
+sub __emu_band
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->bzero(@r) if $y->is_zero() || $x->is_zero();
+
+  my $sign = 0;					# sign of result
+  $sign = 1 if $sx == -1 && $sy == -1;
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    # if $yy eq "\x00", we can cut $bx, otherwise we need to padd $by
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    # if $xx eq "\x00", we can cut $by, otherwise we need to padd $bx
+    $bx .= $xx x abs($diff);
+    }
+
+  # and the strings together
+  my $r = $bx & $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # One of $x or $y was negative, so need to flip bits in the result.
+  # In both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sign == 1 && !$x->is_zero();
+
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+sub __emu_bior
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->round(@r) if $y->is_zero();
+
+  my $sign = 0;					# sign of result
+  $sign = 1 if ($sx == -1) || ($sy == -1);
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    $bx .= $xx x abs($diff);
+    }
+
+  # or the strings together
+  my $r = $bx | $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # one of $x or $y was negative, so need to flip bits in the result
+  # in both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sign == 1 && !$x->is_zero();
+
+  # if one of X or Y was negative, we need to decrement result
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+sub __emu_bxor
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->round(@r) if $y->is_zero();
+
+  my $sign = 0;					# sign of result
+  $sign = 1 if $x->{sign} ne $y->{sign};
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    $bx .= $xx x abs($diff);
+    }
+
+  # xor the strings together
+  my $r = $bx ^ $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # one of $x or $y was negative, so need to flip bits in the result
+  # in both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sx != $sy && !$x->is_zero();
+
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+##############################################################################
+##############################################################################
+
+1;
+
+__END__
+
+#!perl
+
+package Math::BigInt::Trace;
+
+require 5.010;
+use strict;
+use warnings;
+
+use Exporter;
+use Math::BigInt;
+
+our ($accuracy, $precision, $round_mode, $div_scale);
+
+our @ISA = qw(Exporter Math::BigInt);
+
+our $VERSION = '0.49';
+
+use overload;                   # inherit overload from Math::BigInt
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+
+    my $value = shift;
+    my $a = $accuracy;
+    $a = $_[0] if defined $_[0];
+    my $p = $precision;
+    $p = $_[1] if defined $_[1];
+    my $self = Math::BigInt->new($value, $a, $p, $round_mode);
+    bless $self, $class;
+    print "MBI new '$value' => '$self' (", ref($self), ")";
+    return $self;
+}
+
+sub import {
+    print "MBI import ", join(' ', @_);
+    my $self = shift;
+    Math::BigInt::import($self, @_);            # need it for subclasses
+#    $self->export_to_level(1, $self, @_);       # need this ?
+    @_ = ();
+}
+
+1;
+package Exporter::Heavy;
+
+use strict;
+no strict 'refs';
+
+# On one line so MakeMaker will see it.
+require Exporter;  our $VERSION = $Exporter::VERSION;
+
+
+#
+# We go to a lot of trouble not to 'require Carp' at file scope,
+#  because Carp requires Exporter, and something has to give.
+#
+
+sub _rebuild_cache {
+    my ($pkg, $exports, $cache) = @_;
+    s/^&// foreach @$exports;
+    @{$cache}{@$exports} = (1) x @$exports;
+    my $ok = \@{"${pkg}::EXPORT_OK"};
+    if (@$ok) {
+	s/^&// foreach @$ok;
+	@{$cache}{@$ok} = (1) x @$ok;
+    }
+}
+
+sub heavy_export {
+
+    # Save the old __WARN__ handler in case it was defined
+    my $oldwarn = $SIG{__WARN__};
+
+    # First make import warnings look like they're coming from the "use".
+    local $SIG{__WARN__} = sub {
+	# restore it back so proper stacking occurs
+	local $SIG{__WARN__} = $oldwarn;
+	my $text = shift;
+	if ($text =~ s/ at \S*Exporter\S*.pm line \d+.*\n//) {
+	    require Carp;
+	    local $Carp::CarpLevel = 1;	# ignore package calling us too.
+	    Carp::carp($text);
+	}
+	else {
+	    warn $text;
+	}
+    };
+    local $SIG{__DIE__} = sub {
+	require Carp;
+	local $Carp::CarpLevel = 1;	# ignore package calling us too.
+	Carp::croak("$_[0]Illegal null symbol in \@${1}::EXPORT")
+	    if $_[0] =~ /^Unable to create sub named "(.*?)::"/;
+    };
+
+    my($pkg, $callpkg, @imports) = @_;
+    my($type, $sym, $cache_is_current, $oops);
+    my($exports, $export_cache) = (\@{"${pkg}::EXPORT"},
+                                   $Exporter::Cache{$pkg} ||= {});
+
+    if (@imports) {
+	if (!%$export_cache) {
+	    _rebuild_cache ($pkg, $exports, $export_cache);
+	    $cache_is_current = 1;
+	}
+
+	if (grep m{^[/!:]}, @imports) {
+	    my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
+	    my $tagdata;
+	    my %imports;
+	    my($remove, $spec, @names, @allexports);
+	    # negated first item implies starting with default set:
+	    unshift @imports, ':DEFAULT' if $imports[0] =~ m/^!/;
+	    foreach $spec (@imports){
+		$remove = $spec =~ s/^!//;
+
+		if ($spec =~ s/^://){
+		    if ($spec eq 'DEFAULT'){
+			@names = @$exports;
+		    }
+		    elsif ($tagdata = $tagsref->{$spec}) {
+			@names = @$tagdata;
+		    }
+		    else {
+			warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS];
+			++$oops;
+			next;
+		    }
+		}
+		elsif ($spec =~ m:^/(.*)/$:){
+		    my $patn = $1;
+		    @allexports = keys %$export_cache unless @allexports; # only do keys once
+		    @names = grep(/$patn/, @allexports); # not anchored by default
+		}
+		else {
+		    @names = ($spec); # is a normal symbol name
+		}
+
+		warn "Import ".($remove ? "del":"add").": @names "
+		    if $Exporter::Verbose;
+
+		if ($remove) {
+		   foreach $sym (@names) { delete $imports{$sym} } 
+		}
+		else {
+		    @imports{@names} = (1) x @names;
+		}
+	    }
+	    @imports = keys %imports;
+	}
+
+        my @carp;
+	foreach $sym (@imports) {
+	    if (!$export_cache->{$sym}) {
+		if ($sym =~ m/^\d/) {
+		    $pkg->VERSION($sym); # inherit from UNIVERSAL
+		    # If the version number was the only thing specified
+		    # then we should act as if nothing was specified:
+		    if (@imports == 1) {
+			@imports = @$exports;
+			last;
+		    }
+		    # We need a way to emulate 'use Foo ()' but still
+		    # allow an easy version check: "use Foo 1.23, ''";
+		    if (@imports == 2 and !$imports[1]) {
+			@imports = ();
+			last;
+		    }
+		} elsif ($sym !~ s/^&// || !$export_cache->{$sym}) {
+		    # Last chance - see if they've updated EXPORT_OK since we
+		    # cached it.
+
+		    unless ($cache_is_current) {
+			%$export_cache = ();
+			_rebuild_cache ($pkg, $exports, $export_cache);
+			$cache_is_current = 1;
+		    }
+
+		    if (!$export_cache->{$sym}) {
+			# accumulate the non-exports
+			push @carp,
+			  qq["$sym" is not exported by the $pkg module\n];
+			$oops++;
+		    }
+		}
+	    }
+	}
+	if ($oops) {
+	    require Carp;
+	    Carp::croak("@{carp}Can't continue after import errors");
+	}
+    }
+    else {
+	@imports = @$exports;
+    }
+
+    my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"},
+                              $Exporter::FailCache{$pkg} ||= {});
+
+    if (@$fail) {
+	if (!%$fail_cache) {
+	    # Build cache of symbols. Optimise the lookup by adding
+	    # barewords twice... both with and without a leading &.
+	    # (Technique could be applied to $export_cache at cost of memory)
+	    my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail;
+	    warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose;
+	    @{$fail_cache}{@expanded} = (1) x @expanded;
+	}
+	my @failed;
+	foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} }
+	if (@failed) {
+	    @failed = $pkg->export_fail(@failed);
+	    foreach $sym (@failed) {
+                require Carp;
+		Carp::carp(qq["$sym" is not implemented by the $pkg module ],
+			"on this architecture");
+	    }
+	    if (@failed) {
+		require Carp;
+		Carp::croak("Can't continue after import errors");
+	    }
+	}
+    }
+
+    warn "Importing into $callpkg from $pkg: ",
+		join(", ",sort @imports) if $Exporter::Verbose;
+
+    foreach $sym (@imports) {
+	# shortcut for the common case of no type character
+	(*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
+	    unless $sym =~ s/^(\W)//;
+	$type = $1;
+	no warnings 'once';
+	*{"${callpkg}::$sym"} =
+	    $type eq '&' ? \&{"${pkg}::$sym"} :
+	    $type eq '$' ? \${"${pkg}::$sym"} :
+	    $type eq '@' ? \@{"${pkg}::$sym"} :
+	    $type eq '%' ? \%{"${pkg}::$sym"} :
+	    $type eq '*' ?  *{"${pkg}::$sym"} :
+	    do { require Carp; Carp::croak("Can't export symbol: $type$sym") };
+    }
+}
+
+sub heavy_export_to_level
+{
+      my $pkg = shift;
+      my $level = shift;
+      (undef) = shift;			# XXX redundant arg
+      my $callpkg = caller($level);
+      $pkg->export($callpkg, @_);
+}
+
+# Utility functions
+
+sub _push_tags {
+    my($pkg, $var, $syms) = @_;
+    my @nontag = ();
+    my $export_tags = \%{"${pkg}::EXPORT_TAGS"};
+    push(@{"${pkg}::$var"},
+	map { $export_tags->{$_} ? @{$export_tags->{$_}} 
+                                 : scalar(push(@nontag,$_),$_) }
+		(@$syms) ? @$syms : keys %$export_tags);
+    if (@nontag and $^W) {
+	# This may change to a die one day
+	require Carp;
+	Carp::carp(join(", ", @nontag)." are not tags of $pkg");
+    }
+}
+
+sub heavy_require_version {
+    my($self, $wanted) = @_;
+    my $pkg = ref $self || $self;
+    return ${pkg}->VERSION($wanted);
+}
+
+sub heavy_export_tags {
+  _push_tags((caller)[0], "EXPORT",    \@_);
+}
+
+sub heavy_export_ok_tags {
+  _push_tags((caller)[0], "EXPORT_OK", \@_);
+}
+
+1;
+package encoding::warnings;
+$encoding::warnings::VERSION = '0.13';
+
+use strict;
+use 5.007;
+
+
+# Constants.
+sub ASCII  () { 0 }
+sub LATIN1 () { 1 }
+sub FATAL  () { 2 }
+
+sub import {
+    if ($] >= 5.025003) {
+	require Carp;
+	Carp::cluck(
+	    "encoding::warnings is not supported on Perl 5.26.0 and later"
+	);
+	return;
+    }
+
+    # Install a ${^ENCODING} handler if no other one are already in place.
+    my $class = shift;
+    my $fatal = shift || '';
+
+    local $@;
+    return if ${^ENCODING} and ref(${^ENCODING}) ne $class;
+    return unless eval { require Encode; 1 };
+
+    my $ascii  = Encode::find_encoding('us-ascii') or return;
+    my $latin1 = Encode::find_encoding('iso-8859-1') or return;
+
+    # Have to undef explicitly here
+    undef ${^ENCODING};
+
+    # Install a warning handler for decode()
+    my $decoder = bless(
+	[
+	    $ascii,
+	    $latin1,
+	    (($fatal eq 'FATAL') ? 'Carp::croak' : 'Carp::carp'),
+	], $class,
+    );
+
+    no warnings 'deprecated';
+    ${^ENCODING} = $decoder;
+    use warnings 'deprecated';
+    $^H{$class} = 1;
+}
+
+sub unimport {
+    my $class = shift;
+    $^H{$class} = undef;
+    undef ${^ENCODING};
+}
+
+# Don't worry about source code literals.
+sub cat_decode {
+    my $self = shift;
+    return $self->[LATIN1]->cat_decode(@_);
+}
+
+# Warn if the data is not purely US-ASCII.
+sub decode {
+    my $self = shift;
+
+    DO_WARN: {
+        if ($] >= 5.009004) {
+            my $hints = (caller(0))[10];
+            $hints->{ref($self)} or last DO_WARN;
+        }
+
+        local $@;
+        my $rv = eval { $self->[ASCII]->decode($_[0], Encode::FB_CROAK()) };
+        return $rv unless $@;
+
+        require Carp;
+        no strict 'refs';
+        $self->[FATAL]->(
+            "Bytes implicitly upgraded into wide characters as iso-8859-1"
+        );
+
+    }
+
+    return $self->[LATIN1]->decode(@_);
+}
+
+sub name { 'iso-8859-1' }
+
+1;
+
+__END__
+
+package Module::Loaded;
+
+use strict;
+use Carp qw[carp];
+
+BEGIN { use base 'Exporter';
+        use vars qw[@EXPORT $VERSION];
+
+        $VERSION = '0.08';
+        @EXPORT  = qw[mark_as_loaded mark_as_unloaded is_loaded];
+}
+
+
+sub mark_as_loaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+    my $who     = [caller]->[1];
+
+    my $where   = is_loaded( $pm );
+    if ( defined $where ) {
+        carp "'$pm' already marked as loaded ('$where')";
+
+    } else {
+        $INC{$file} = $who;
+    }
+
+    return 1;
+}
+
+
+sub mark_as_unloaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+
+    unless( defined is_loaded( $pm ) ) {
+        carp "'$pm' already marked as unloaded";
+
+    } else {
+        delete $INC{ $file };
+    }
+
+    return 1;
+}
+
+
+sub is_loaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+
+    return $INC{$file} if exists $INC{$file};
+
+    return;
+}
+
+
+sub _pm_to_file {
+    my $pkg = shift;
+    my $pm  = shift or return;
+
+    my $file = join '/', split '::', $pm;
+    $file .= '.pm';
+
+    return $file;
+}
+
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
+
+1;
+package Module::CoreList;
+use strict;
+
+our ( %released, %version, %families, %upstream, %bug_tracker, %deprecated, %delta );
+
+use version;
+our $VERSION = '5.20181129_28';
+
+sub PKG_PATTERN () { q#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z# }
+sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } }
+
+sub _undelta {
+    my ($delta) = @_;
+    my (%expanded, $delta_from, $base, $changed, $removed);
+    for my $v (sort keys %$delta) {
+        ($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from changed removed )};
+        $base = $delta_from ? $expanded{$delta_from} : {};
+        my %full = ( %$base, %{$changed || {}} );
+        delete @full{ keys %$removed };
+        $expanded{$v} = \%full;
+    }
+    return %expanded;
+}
+
+sub _released_order {   # Sort helper, to make '?' sort after everything else
+    (substr($released{$a}, 0, 1) eq "?")
+    ? ((substr($released{$b}, 0, 1) eq "?")
+        ? 0
+        : 1)
+    : ((substr($released{$b}, 0, 1) eq "?")
+        ? -1
+        : $released{$a} cmp $released{$b} )
+}
+
+my $dumpinc = 0;
+sub import {
+    my $self = shift;
+    my $what = shift || '';
+    if ($what eq 'dumpinc') {
+        $dumpinc = 1;
+    }
+}
+
+END {
+    print "---INC---\n", join "\n" => keys %INC
+      if $dumpinc;
+}
+
+
+sub first_release_raw {
+    shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];
+    my $module = shift;
+    my $version = shift;
+
+    my @perls = $version
+        ? grep { defined $version{$_}{ $module } &&
+                        $version{$_}{ $module } ge $version } keys %version
+        : grep { exists $version{$_}{ $module }             } keys %version;
+
+    return @perls;
+}
+
+sub first_release_by_date {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort _released_order @perls)[0];
+}
+
+sub first_release {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort { $a cmp $b } @perls)[0];
+}
+
+sub find_modules {
+    shift if _looks_like_invocant $_[0];
+    my $regex = shift;
+    my @perls = @_ ? @_ : keys %version;
+
+    my %mods;
+    foreach (@perls) {
+        while (my ($k, $v) = each %{$version{$_}}) {
+            $mods{$k}++ if $k =~ $regex;
+        }
+    }
+    return sort keys %mods
+}
+
+sub find_version {
+    shift if _looks_like_invocant $_[0];
+    my $v = shift;
+    return $version{$v} if defined $v and defined $version{$v};
+    return;
+}
+
+sub is_deprecated {
+    shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];
+    my $module = shift;
+    my $perl_version = shift || $];
+    return unless $module && exists $deprecated{$perl_version}{$module};
+    return $deprecated{$perl_version}{$module};
+}
+
+sub deprecated_in {
+    shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];
+    my $module = shift or return;
+    my @perls = grep { exists $deprecated{$_}{$module} } keys %deprecated;
+    return unless @perls;
+    require List::Util;
+    return List::Util::minstr(@perls);
+}
+
+sub removed_from {
+  my @perls = &removed_raw;
+  return shift @perls;
+}
+
+sub removed_from_by_date {
+  my @perls = sort _released_order &removed_raw;
+  return shift @perls;
+}
+
+sub removed_raw {
+  shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];
+  my $mod = shift;
+  return unless my @perls = sort { $a cmp $b } first_release_raw($mod);
+  my $last = pop @perls;
+  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %version;
+  return @removed;
+}
+
+sub changes_between {
+  shift if _looks_like_invocant $_[0];
+  my $left_ver = shift;
+  my $right_ver = shift;
+
+  my $left  = $version{ $left_ver };
+  my $right = $version{ $right_ver };
+
+  my %uniq = (%$left, %$right);
+
+  my %changes;
+  for my $lib (keys %uniq) {
+      my $lhs = exists $left->{ $lib }
+              ? (defined $left->{ $lib } ? $left->{ $lib } : '(undef)')
+              : '(absent)';
+      my $rhs = exists $right->{ $lib }
+              ? (defined $right->{ $lib } ? $right->{ $lib } : '(undef)')
+              : '(absent)';
+
+      next if $lhs eq $rhs;
+
+      my $change = {
+        (exists $left->{$lib}  ? (left  => $left->{$lib})  : ()),
+        (exists $right->{$lib} ? (right => $right->{$lib}) : ()),
+      };
+
+      $changes{$lib} = $change;
+  }
+
+  return %changes;
+}
+
+# When things escaped.
+# NB. If you put version numbers with trailing zeroes here, you
+# should also add an alias for the numerical ($]) version; see
+# just before the __END__ of this module.
+%released = (
+    5.000    => '1994-10-17',
+    5.001    => '1995-03-14',
+    5.002    => '1996-02-29',
+    5.00307  => '1996-10-10',
+    5.004    => '1997-05-15',
+    5.005    => '1998-07-22',
+    5.00503  => '1999-03-28',
+    5.00405  => '1999-04-29',
+    5.006    => '2000-03-22',
+    5.006001 => '2001-04-08',
+    5.007003 => '2002-03-05',
+    5.008    => '2002-07-19',
+    5.008001 => '2003-09-25',
+    5.009    => '2003-10-27',
+    5.008002 => '2003-11-05',
+    5.006002 => '2003-11-15',
+    5.008003 => '2004-01-14',
+    5.00504  => '2004-02-23',
+    5.009001 => '2004-03-16',
+    5.008004 => '2004-04-21',
+    5.008005 => '2004-07-19',
+    5.008006 => '2004-11-27',
+    5.009002 => '2005-04-01',
+    5.008007 => '2005-05-30',
+    5.009003 => '2006-01-28',
+    5.008008 => '2006-01-31',
+    5.009004 => '2006-08-15',
+    5.009005 => '2007-07-07',
+    5.010000 => '2007-12-18',
+    5.008009 => '2008-12-14',
+    5.010001 => '2009-08-22',
+    5.011000 => '2009-10-02',
+    5.011001 => '2009-10-20',
+    5.011002 => '2009-11-20',
+    5.011003 => '2009-12-20',
+    5.011004 => '2010-01-20',
+    5.011005 => '2010-02-20',
+    5.012000 => '2010-04-12',
+    5.013000 => '2010-04-20',
+    5.012001 => '2010-05-16',
+    5.013001 => '2010-05-20',
+    5.013002 => '2010-06-22',
+    5.013003 => '2010-07-20',
+    5.013004 => '2010-08-20',
+    5.012002 => '2010-09-06',
+    5.013005 => '2010-09-19',
+    5.013006 => '2010-10-20',
+    5.013007 => '2010-11-20',
+    5.013008 => '2010-12-20',
+    5.012003 => '2011-01-21',
+    5.013009 => '2011-01-20',
+    5.013010 => '2011-02-20',
+    5.013011 => '2011-03-20',
+    5.014000 => '2011-05-14',
+    5.012004 => '2011-06-20',
+    5.012005 => '2012-11-10',
+    5.014001 => '2011-06-16',
+    5.015000 => '2011-06-20',
+    5.015001 => '2011-07-20',
+    5.015002 => '2011-08-20',
+    5.014002 => '2011-09-26',
+    5.015003 => '2011-09-20',
+    5.015004 => '2011-10-20',
+    5.015005 => '2011-11-20',
+    5.015006 => '2011-12-20',
+    5.015007 => '2012-01-20',
+    5.015008 => '2012-02-20',
+    5.015009 => '2012-03-20',
+    5.016000 => '2012-05-20',
+    5.016001 => '2012-08-08',
+    5.016002 => '2012-11-01',
+    5.017000 => '2012-05-26',
+    5.017001 => '2012-06-20',
+    5.017002 => '2012-07-20',
+    5.017003 => '2012-08-20',
+    5.017004 => '2012-09-20',
+    5.014003 => '2012-10-12',
+    5.017005 => '2012-10-20',
+    5.017006 => '2012-11-20',
+    5.017007 => '2012-12-18',
+    5.017008 => '2013-01-20',
+    5.017009 => '2013-02-20',
+    5.014004 => '2013-03-10',
+    5.016003 => '2013-03-11',
+    5.017010 => '2013-03-21',
+    5.017011 => '2013-04-20',
+    5.018000 => '2013-05-18',
+    5.019000 => '2013-05-20',
+    5.019001 => '2013-06-21',
+    5.019002 => '2013-07-22',
+    5.018001 => '2013-08-12',
+    5.019003 => '2013-08-20',
+    5.019004 => '2013-09-20',
+    5.019005 => '2013-10-20',
+    5.019006 => '2013-11-20',
+    5.019007 => '2013-12-20',
+    5.018002 => '2014-01-06',
+    5.018003 => '2014-10-01',
+    5.018004 => '2014-10-01',
+    5.019008 => '2014-01-20',
+    5.019009 => '2014-02-20',
+    5.01901  => '2014-03-20',
+    5.019011 => '2014-04-20',
+    5.020000 => '2014-05-27',
+    5.021000 => '2014-05-27',
+    5.021001 => '2014-06-20',
+    5.021002 => '2014-07-20',
+    5.021003 => '2014-08-20',
+    5.020001 => '2014-09-14',
+    5.021004 => '2014-09-20',
+    5.021005 => '2014-10-20',
+    5.021006 => '2014-11-20',
+    5.021007 => '2014-12-20',
+    5.021008 => '2015-01-20',
+    5.020002 => '2015-02-14',
+    5.021009 => '2015-02-21',
+    5.021010 => '2015-03-20',
+    5.021011 => '2015-04-20',
+    5.022000 => '2015-06-01',
+    5.023000 => '2015-06-20',
+    5.023001 => '2015-07-20',
+    5.023002 => '2015-08-20',
+    5.020003 => '2015-09-12',
+    5.023003 => '2015-09-20',
+    5.023004 => '2015-10-20',
+    5.023005 => '2015-11-20',
+    5.022001 => '2015-12-13',
+    5.023006 => '2015-12-21',
+    5.023007 => '2016-01-20',
+    5.023008 => '2016-02-20',
+    5.023009 => '2016-03-20',
+    5.022002 => '2016-04-29',
+    5.024000 => '2016-05-09',
+    5.025000 => '2016-05-09',
+    5.025001 => '2016-05-20',
+    5.025002 => '2016-06-20',
+    5.025003 => '2016-07-20',
+    5.025004 => '2016-08-20',
+    5.025005 => '2016-09-20',
+    5.025006 => '2016-10-20',
+    5.025007 => '2016-11-20',
+    5.025008 => '2016-12-20',
+    5.022003 => '2017-01-14',
+    5.024001 => '2017-01-14',
+    5.025009 => '2017-01-20',
+    5.025010 => '2017-02-20',
+    5.025011 => '2017-03-20',
+    5.025012 => '2017-04-20',
+    5.026000 => '2017-05-30',
+    5.027000 => '2017-05-31',
+    5.027001 => '2017-06-20',
+    5.022004 => '2017-07-15',
+    5.024002 => '2017-07-15',
+    5.027002 => '2017-07-20',
+    5.027003 => '2017-08-21',
+    5.027004 => '2017-09-20',
+    5.024003 => '2017-09-22',
+    5.026001 => '2017-09-22',
+    5.027005 => '2017-10-20',
+    5.027006 => '2017-11-20',
+    5.027007 => '2017-12-20',
+    5.027008 => '2018-01-20',
+    5.027009 => '2018-02-20',
+    5.027010 => '2018-03-20',
+    5.024004 => '2018-04-14',
+    5.026002 => '2018-04-14',
+    5.027011 => '2018-04-20',
+    5.028000 => '2018-06-22',
+    5.029000 => '2018-06-26',
+    5.029001 => '2018-07-20',
+    5.029002 => '2018-08-20',
+    5.029003 => '2018-09-20',
+    5.029004 => '2018-10-20',
+    5.028001 => '2018-11-29',
+  );
+
+for my $version ( sort { $a <=> $b } keys %released ) {
+    my $family = int ($version * 1000) / 1000;
+    push @{ $families{ $family }} , $version;
+}
+
+%delta = (
+    5 => {
+        changed => {
+            'AnyDBM_File'           => undef,
+            'AutoLoader'            => undef,
+            'AutoSplit'             => undef,
+            'Benchmark'             => undef,
+            'Carp'                  => undef,
+            'Cwd'                   => undef,
+            'DB_File'               => undef,
+            'DynaLoader'            => undef,
+            'English'               => undef,
+            'Env'                   => undef,
+            'Exporter'              => undef,
+            'ExtUtils::MakeMaker'   => undef,
+            'Fcntl'                 => undef,
+            'File::Basename'        => undef,
+            'File::CheckTree'       => undef,
+            'File::Find'            => undef,
+            'FileHandle'            => undef,
+            'GDBM_File'             => undef,
+            'Getopt::Long'          => undef,
+            'Getopt::Std'           => undef,
+            'I18N::Collate'         => undef,
+            'IPC::Open2'            => undef,
+            'IPC::Open3'            => undef,
+            'Math::BigFloat'        => undef,
+            'Math::BigInt'          => undef,
+            'Math::Complex'         => undef,
+            'NDBM_File'             => undef,
+            'Net::Ping'             => undef,
+            'ODBM_File'             => undef,
+            'POSIX'                 => undef,
+            'SDBM_File'             => undef,
+            'Search::Dict'          => undef,
+            'Shell'                 => undef,
+            'Socket'                => undef,
+            'Sys::Hostname'         => undef,
+            'Sys::Syslog'           => undef,
+            'Term::Cap'             => undef,
+            'Term::Complete'        => undef,
+            'Test::Harness'         => undef,
+            'Text::Abbrev'          => undef,
+            'Text::ParseWords'      => undef,
+            'Text::Soundex'         => undef,
+            'Text::Tabs'            => undef,
+            'TieHash'               => undef,
+            'Time::Local'           => undef,
+            'integer'               => undef,
+            'less'                  => undef,
+            'sigtrap'               => undef,
+            'strict'                => undef,
+            'subs'                  => undef,
+        },
+        removed => {
+        }
+    },
+    5.001 => {
+        delta_from => 5,
+        changed => {
+            'ExtUtils::Liblist'     => undef,
+            'ExtUtils::Manifest'    => undef,
+            'ExtUtils::Mkbootstrap' => undef,
+            'File::Path'            => undef,
+            'SubstrHash'            => undef,
+            'lib'                   => undef,
+        },
+        removed => {
+        }
+    },
+    5.002 => {
+        delta_from => 5.001,
+        changed => {
+            'DB_File'               => '1.01',
+            'Devel::SelfStubber'    => '1.01',
+            'DirHandle'             => undef,
+            'DynaLoader'            => '1.00',
+            'ExtUtils::Install'     => undef,
+            'ExtUtils::MM_OS2'      => undef,
+            'ExtUtils::MM_Unix'     => undef,
+            'ExtUtils::MM_VMS'      => undef,
+            'ExtUtils::MakeMaker'   => '5.21',
+            'ExtUtils::Manifest'    => '1.22',
+            'ExtUtils::Mksymlists'  => '1.00',
+            'Fcntl'                 => '1.00',
+            'File::Copy'            => '1.5',
+            'File::Path'            => '1.01',
+            'FileCache'             => undef,
+            'FileHandle'            => '1.00',
+            'GDBM_File'             => '1.00',
+            'Getopt::Long'          => '2.01',
+            'NDBM_File'             => '1.00',
+            'Net::Ping'             => '1',
+            'ODBM_File'             => '1.00',
+            'POSIX'                 => '1.00',
+            'Pod::Functions'        => undef,
+            'Pod::Text'             => undef,
+            'SDBM_File'             => '1.00',
+            'Safe'                  => '1.00',
+            'SelectSaver'           => undef,
+            'SelfLoader'            => '1.06',
+            'Socket'                => '1.5',
+            'Symbol'                => undef,
+            'Term::ReadLine'        => undef,
+            'Test::Harness'         => '1.07',
+            'Text::Wrap'            => undef,
+            'Tie::Hash'             => undef,
+            'Tie::Scalar'           => undef,
+            'Tie::SubstrHash'       => undef,
+            'diagnostics'           => undef,
+            'overload'              => undef,
+            'vars'                  => undef,
+        },
+        removed => {
+            'SubstrHash'            => 1,
+            'TieHash'               => 1,
+        }
+    },
+    5.00307 => {
+        delta_from => 5.002,
+        changed => {
+            'Config'                => undef,
+            'DB_File'               => '1.03',
+            'ExtUtils::Embed'       => '1.18',
+            'ExtUtils::Install'     => '1.15',
+            'ExtUtils::Liblist'     => '1.20',
+            'ExtUtils::MM_Unix'     => '1.107',
+            'ExtUtils::MakeMaker'   => '5.38',
+            'ExtUtils::Manifest'    => '1.27',
+            'ExtUtils::Mkbootstrap' => '1.13',
+            'ExtUtils::Mksymlists'  => '1.12',
+            'ExtUtils::testlib'     => '1.11',
+            'Fatal'                 => undef,
+            'File::Basename'        => '2.4',
+            'FindBin'               => '1.04',
+            'Getopt::Long'          => '2.04',
+            'IO'                    => undef,
+            'IO::File'              => '1.05',
+            'IO::Handle'            => '1.12',
+            'IO::Pipe'              => '1.07',
+            'IO::Seekable'          => '1.05',
+            'IO::Select'            => '1.09',
+            'IO::Socket'            => '1.13',
+            'Net::Ping'             => '1.01',
+            'OS2::ExtAttr'          => '0.01',
+            'OS2::PrfDB'            => '0.02',
+            'OS2::Process'          => undef,
+            'OS2::REXX'             => undef,
+            'Opcode'                => '1.01',
+            'Safe'                  => '2.06',
+            'Test::Harness'         => '1.13',
+            'Text::Tabs'            => '96.051501',
+            'Text::Wrap'            => '96.041801',
+            'UNIVERSAL'             => undef,
+            'VMS::Filespec'         => undef,
+            'VMS::Stdio'            => '2.0',
+            'ops'                   => undef,
+            'sigtrap'               => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.004 => {
+        delta_from => 5.00307,
+        changed => {
+            'Bundle::CPAN'          => '0.02',
+            'CGI'                   => '2.36',
+            'CGI::Apache'           => '1.01',
+            'CGI::Carp'             => '1.06',
+            'CGI::Fast'             => '1.00a',
+            'CGI::Push'             => '1.00',
+            'CGI::Switch'           => '0.05',
+            'CPAN'                  => '1.2401',
+            'CPAN::FirstTime'       => '1.18',
+            'CPAN::Nox'             => undef,
+            'Class::Struct'         => undef,
+            'Cwd'                   => '2.00',
+            'DB_File'               => '1.14',
+            'DynaLoader'            => '1.02',
+            'ExtUtils::Command'     => '1.00',
+            'ExtUtils::Embed'       => '1.2501',
+            'ExtUtils::Install'     => '1.16',
+            'ExtUtils::Liblist'     => '1.2201',
+            'ExtUtils::MM_Unix'     => '1.114',
+            'ExtUtils::MM_Win32'    => undef,
+            'ExtUtils::MakeMaker'   => '5.4002',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mksymlists'  => '1.13',
+            'ExtUtils::XSSymSet'    => '1.0',
+            'Fcntl'                 => '1.03',
+            'File::Basename'        => '2.5',
+            'File::Compare'         => '1.1001',
+            'File::Copy'            => '2.02',
+            'File::Path'            => '1.04',
+            'File::stat'            => undef,
+            'FileHandle'            => '2.00',
+            'Getopt::Long'          => '2.10',
+            'IO::File'              => '1.0602',
+            'IO::Handle'            => '1.1504',
+            'IO::Pipe'              => '1.0901',
+            'IO::Seekable'          => '1.06',
+            'IO::Select'            => '1.10',
+            'IO::Socket'            => '1.1602',
+            'IPC::Open2'            => '1.01',
+            'IPC::Open3'            => '1.0101',
+            'Math::Complex'         => '1.01',
+            'Math::Trig'            => '1',
+            'Net::Ping'             => '2.02',
+            'Net::hostent'          => undef,
+            'Net::netent'           => undef,
+            'Net::protoent'         => undef,
+            'Net::servent'          => undef,
+            'Opcode'                => '1.04',
+            'POSIX'                 => '1.02',
+            'Pod::Html'             => undef,
+            'Pod::Text'             => '1.0203',
+            'SelfLoader'            => '1.07',
+            'Socket'                => '1.6',
+            'Symbol'                => '1.02',
+            'Test::Harness'         => '1.1502',
+            'Text::Tabs'            => '96.121201',
+            'Text::Wrap'            => '97.011701',
+            'Tie::RefHash'          => undef,
+            'Time::gmtime'          => '1.01',
+            'Time::localtime'       => '1.01',
+            'Time::tm'              => undef,
+            'User::grent'           => undef,
+            'User::pwent'           => undef,
+            'VMS::DCLsym'           => '1.01',
+            'VMS::Stdio'            => '2.02',
+            'autouse'               => '1.01',
+            'blib'                  => undef,
+            'constant'              => '1.00',
+            'locale'                => undef,
+            'sigtrap'               => '1.02',
+            'vmsish'                => undef,
+        },
+        removed => {
+            'Fatal'                 => 1,
+        }
+    },
+    5.00405 => {
+        delta_from => 5.004,
+        changed => {
+            'AutoLoader'            => '5.56',
+            'AutoSplit'             => '1.0303',
+            'Bundle::CPAN'          => '0.03',
+            'CGI'                   => '2.42',
+            'CGI::Apache'           => '1.1',
+            'CGI::Carp'             => '1.10',
+            'CGI::Cookie'           => '1.06',
+            'CGI::Push'             => '1.01',
+            'CGI::Switch'           => '0.06',
+            'CPAN'                  => '1.40',
+            'CPAN::FirstTime'       => '1.30',
+            'Cwd'                   => '2.01',
+            'DB_File'               => '1.15',
+            'DynaLoader'            => '1.03',
+            'ExtUtils::Command'     => '1.01',
+            'ExtUtils::Embed'       => '1.2505',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.118',
+            'ExtUtils::MakeMaker'   => '5.42',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.16',
+            'File::Basename'        => '2.6',
+            'File::DosGlob'         => undef,
+            'File::Path'            => '1.0402',
+            'File::Spec'            => '0.6',
+            'File::Spec::Mac'       => '1.0',
+            'File::Spec::OS2'       => undef,
+            'File::Spec::Unix'      => undef,
+            'File::Spec::VMS'       => undef,
+            'File::Spec::Win32'     => undef,
+            'FindBin'               => '1.41',
+            'Getopt::Long'          => '2.19',
+            'IO::File'              => '1.06021',
+            'IO::Socket'            => '1.1603',
+            'IPC::Open3'            => '1.0103',
+            'Math::Complex'         => '1.25',
+            'NDBM_File'             => '1.01',
+            'Pod::Html'             => '1.0101',
+            'Pod::Text'             => '1.0204',
+            'SelfLoader'            => '1.08',
+            'Socket'                => '1.7',
+            'Test'                  => '1.04',
+            'Test::Harness'         => '1.1602',
+            'Text::ParseWords'      => '3.1001',
+            'Text::Wrap'            => '98.112902',
+            'Tie::Handle'           => undef,
+            'attrs'                 => '0.1',
+            'base'                  => undef,
+            'blib'                  => '1.00',
+            're'                    => undef,
+            'strict'                => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.005 => {
+        delta_from => 5.00405,
+        changed => {
+            'AutoLoader'            => undef,
+            'AutoSplit'             => '1.0302',
+            'B'                     => undef,
+            'B::Asmdata'            => undef,
+            'B::Assembler'          => undef,
+            'B::Bblock'             => undef,
+            'B::Bytecode'           => undef,
+            'B::C'                  => undef,
+            'B::CC'                 => undef,
+            'B::Debug'              => undef,
+            'B::Deparse'            => '0.56',
+            'B::Disassembler'       => undef,
+            'B::Lint'               => undef,
+            'B::Showlex'            => undef,
+            'B::Stackobj'           => undef,
+            'B::Terse'              => undef,
+            'B::Xref'               => undef,
+            'CGI::Carp'             => '1.101',
+            'CPAN'                  => '1.3901',
+            'CPAN::FirstTime'       => '1.29',
+            'DB_File'               => '1.60',
+            'Data::Dumper'          => '2.09',
+            'Errno'                 => '1.09',
+            'ExtUtils::Installed'   => '0.02',
+            'ExtUtils::MM_Unix'     => '1.12601',
+            'ExtUtils::MakeMaker'   => '5.4301',
+            'ExtUtils::Mkbootstrap' => '1.13',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::Packlist'    => '0.03',
+            'Fatal'                 => '1.02',
+            'File::Path'            => '1.0401',
+            'Getopt::Long'          => '2.17',
+            'IO::Handle'            => '1.1505',
+            'IPC::Msg'              => '1.00',
+            'IPC::Open3'            => '1.0102',
+            'IPC::Semaphore'        => '1.00',
+            'IPC::SysV'             => '1.03',
+            'O'                     => undef,
+            'OS2::Process'          => '0.2',
+            'Pod::Html'             => '1.01',
+            'Pod::Text'             => '1.0203',
+            'Text::ParseWords'      => '3.1',
+            'Text::Wrap'            => '97.02',
+            'Thread'                => '1.0',
+            'Thread::Queue'         => undef,
+            'Thread::Semaphore'     => undef,
+            'Thread::Signal'        => undef,
+            'Thread::Specific'      => undef,
+            'Tie::Array'            => '1.00',
+            'VMS::Stdio'            => '2.1',
+            'attrs'                 => '1.0',
+            'fields'                => '0.02',
+            're'                    => '0.02',
+        },
+        removed => {
+            'Bundle::CPAN'          => 1,
+        }
+    },
+    5.00503 => {
+        delta_from => 5.005,
+        changed => {
+            'AutoSplit'             => '1.0303',
+            'CGI'                   => '2.46',
+            'CGI::Carp'             => '1.13',
+            'CGI::Fast'             => '1.01',
+            'CPAN'                  => '1.48',
+            'CPAN::FirstTime'       => '1.36',
+            'CPAN::Nox'             => '1.00',
+            'DB_File'               => '1.65',
+            'Data::Dumper'          => '2.101',
+            'Dumpvalue'             => undef,
+            'Errno'                 => '1.111',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.12602',
+            'ExtUtils::MakeMaker'   => '5.4302',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'FindBin'               => '1.42',
+            'Getopt::Long'          => '2.19',
+            'Getopt::Std'           => '1.01',
+            'IO::Pipe'              => '1.0902',
+            'IPC::Open3'            => '1.0103',
+            'Math::Complex'         => '1.26',
+            'Test'                  => '1.122',
+            'Text::Wrap'            => '98.112902',
+        },
+        removed => {
+        }
+    },
+    5.00504 => {
+        delta_from => 5.00503,
+        changed => {
+            'CPAN::FirstTime'       => '1.36',
+            'DB_File'               => '1.807',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.12602',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Miniperl'    => undef,
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'File::Compare'         => '1.1002',
+            'File::Spec'            => '0.8',
+            'File::Spec::Functions' => undef,
+            'File::Spec::Mac'       => undef,
+            'Getopt::Long'          => '2.20',
+            'Pod::Html'             => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.006 => {
+        delta_from => 5.00504,
+        changed => {
+            'AutoLoader'            => '5.57',
+            'AutoSplit'             => '1.0305',
+            'B::Deparse'            => '0.59',
+            'B::Stash'              => undef,
+            'Benchmark'             => '1',
+            'ByteLoader'            => '0.03',
+            'CGI'                   => '2.56',
+            'CGI::Apache'           => undef,
+            'CGI::Carp'             => '1.14',
+            'CGI::Cookie'           => '1.12',
+            'CGI::Fast'             => '1.02',
+            'CGI::Pretty'           => '1.03',
+            'CGI::Switch'           => undef,
+            'CPAN'                  => '1.52',
+            'CPAN::FirstTime'       => '1.38',
+            'Carp::Heavy'           => undef,
+            'Class::Struct'         => '0.58',
+            'Cwd'                   => '2.02',
+            'DB'                    => '1.0',
+            'DB_File'               => '1.72',
+            'Devel::DProf'          => '20000000.00_00',
+            'Devel::Peek'           => '1.00_01',
+            'DynaLoader'            => '1.04',
+            'Exporter'              => '5.562',
+            'Exporter::Heavy'       => undef,
+            'ExtUtils::MM_Cygwin'   => undef,
+            'ExtUtils::MM_Unix'     => '1.12603',
+            'ExtUtils::MakeMaker'   => '5.45',
+            'File::Copy'            => '2.03',
+            'File::Glob'            => '0.991',
+            'File::Path'            => '1.0403',
+            'GDBM_File'             => '1.03',
+            'Getopt::Long'          => '2.23',
+            'Getopt::Std'           => '1.02',
+            'IO'                    => '1.20',
+            'IO::Dir'               => '1.03',
+            'IO::File'              => '1.08',
+            'IO::Handle'            => '1.21',
+            'IO::Pipe'              => '1.121',
+            'IO::Poll'              => '0.01',
+            'IO::Seekable'          => '1.08',
+            'IO::Select'            => '1.14',
+            'IO::Socket'            => '1.26',
+            'IO::Socket::INET'      => '1.25',
+            'IO::Socket::UNIX'      => '1.20',
+            'JNI'                   => '0.01',
+            'JPL::AutoLoader'       => undef,
+            'JPL::Class'            => undef,
+            'JPL::Compile'          => undef,
+            'NDBM_File'             => '1.03',
+            'ODBM_File'             => '1.02',
+            'OS2::DLL'              => undef,
+            'POSIX'                 => '1.03',
+            'Pod::Checker'          => '1.098',
+            'Pod::Find'             => '0.12',
+            'Pod::Html'             => '1.03',
+            'Pod::InputObjects'     => '1.12',
+            'Pod::Man'              => '1.02',
+            'Pod::ParseUtils'       => '0.2',
+            'Pod::Parser'           => '1.12',
+            'Pod::Plainer'          => '0.01',
+            'Pod::Select'           => '1.12',
+            'Pod::Text'             => '2.03',
+            'Pod::Text::Color'      => '0.05',
+            'Pod::Text::Termcap'    => '0.04',
+            'Pod::Usage'            => '1.12',
+            'SDBM_File'             => '1.02',
+            'SelfLoader'            => '1.0901',
+            'Shell'                 => '0.2',
+            'Socket'                => '1.72',
+            'Sys::Hostname'         => '1.1',
+            'Sys::Syslog'           => '0.01',
+            'Term::ANSIColor'       => '1.01',
+            'Test'                  => '1.13',
+            'Test::Harness'         => '1.1604',
+            'Text::ParseWords'      => '3.2',
+            'Text::Soundex'         => '1.0',
+            'Text::Tabs'            => '98.112801',
+            'Tie::Array'            => '1.01',
+            'Tie::Handle'           => '1.0',
+            'VMS::Stdio'            => '2.2',
+            'XSLoader'              => '0.01',
+            'attributes'            => '0.03',
+            'autouse'               => '1.02',
+            'base'                  => '1.01',
+            'bytes'                 => undef,
+            'charnames'             => undef,
+            'constant'              => '1.02',
+            'diagnostics'           => '1.0',
+            'fields'                => '1.01',
+            'filetest'              => undef,
+            'lib'                   => '0.5564',
+            'open'                  => undef,
+            'utf8'                  => undef,
+            'warnings'              => undef,
+            'warnings::register'    => undef,
+        },
+        removed => {
+        }
+    },
+    5.006001 => {
+        delta_from => 5.006,
+        changed => {
+            'AutoLoader'            => '5.58',
+            'B::Assembler'          => '0.02',
+            'B::Concise'            => '0.51',
+            'B::Deparse'            => '0.6',
+            'ByteLoader'            => '0.04',
+            'CGI'                   => '2.752',
+            'CGI::Carp'             => '1.20',
+            'CGI::Cookie'           => '1.18',
+            'CGI::Pretty'           => '1.05',
+            'CGI::Push'             => '1.04',
+            'CGI::Util'             => '1.1',
+            'CPAN'                  => '1.59_54',
+            'CPAN::FirstTime'       => '1.53',
+            'Class::Struct'         => '0.59',
+            'Cwd'                   => '2.04',
+            'DB_File'               => '1.75',
+            'Data::Dumper'          => '2.102',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.26',
+            'ExtUtils::MM_Unix'     => '1.12603',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'File::Path'            => '1.0404',
+            'File::Spec'            => '0.82',
+            'File::Spec::Epoc'      => undef,
+            'File::Spec::Functions' => '1.1',
+            'File::Spec::Mac'       => '1.2',
+            'File::Spec::OS2'       => '1.1',
+            'File::Spec::Unix'      => '1.2',
+            'File::Spec::VMS'       => '1.1',
+            'File::Spec::Win32'     => '1.2',
+            'File::Temp'            => '0.12',
+            'GDBM_File'             => '1.05',
+            'Getopt::Long'          => '2.25',
+            'IO::Poll'              => '0.05',
+            'JNI'                   => '0.1',
+            'Math::BigFloat'        => '0.02',
+            'Math::BigInt'          => '0.01',
+            'Math::Complex'         => '1.31',
+            'NDBM_File'             => '1.04',
+            'ODBM_File'             => '1.03',
+            'OS2::REXX'             => '1.00',
+            'Pod::Checker'          => '1.2',
+            'Pod::Find'             => '0.21',
+            'Pod::InputObjects'     => '1.13',
+            'Pod::LaTeX'            => '0.53',
+            'Pod::Man'              => '1.15',
+            'Pod::ParseUtils'       => '0.22',
+            'Pod::Parser'           => '1.13',
+            'Pod::Select'           => '1.13',
+            'Pod::Text'             => '2.08',
+            'Pod::Text::Color'      => '0.06',
+            'Pod::Text::Overstrike' => '1.01',
+            'Pod::Text::Termcap'    => '1',
+            'Pod::Usage'            => '1.14',
+            'SDBM_File'             => '1.03',
+            'SelfLoader'            => '1.0902',
+            'Shell'                 => '0.3',
+            'Term::ANSIColor'       => '1.03',
+            'Test'                  => '1.15',
+            'Text::Wrap'            => '2001.0131',
+            'Tie::Handle'           => '4.0',
+            'Tie::RefHash'          => '1.3',
+        },
+        removed => {
+        }
+    },
+    5.006002 => {
+        delta_from => 5.006001,
+        changed => {
+            'CPAN::FirstTime'       => '1.53',
+            'DB_File'               => '1.806',
+            'Data::Dumper'          => '2.121',
+            'ExtUtils::Command'     => '1.05',
+            'ExtUtils::Command::MM' => '0.03',
+            'ExtUtils::Install'     => '1.32',
+            'ExtUtils::Installed'   => '0.08',
+            'ExtUtils::Liblist'     => '1.01',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM'          => '0.04',
+            'ExtUtils::MM_Any'      => '0.07',
+            'ExtUtils::MM_BeOS'     => '1.04',
+            'ExtUtils::MM_Cygwin'   => '1.06',
+            'ExtUtils::MM_DOS'      => '0.02',
+            'ExtUtils::MM_MacOS'    => '1.07',
+            'ExtUtils::MM_NW5'      => '2.06',
+            'ExtUtils::MM_OS2'      => '1.04',
+            'ExtUtils::MM_UWIN'     => '0.02',
+            'ExtUtils::MM_Unix'     => '1.42',
+            'ExtUtils::MM_VMS'      => '5.70',
+            'ExtUtils::MM_Win32'    => '1.09',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MY'          => '0.01',
+            'ExtUtils::MakeMaker'   => '6.17',
+            'ExtUtils::MakeMaker::bytes'=> '0.01',
+            'ExtUtils::MakeMaker::vmsish'=> '0.01',
+            'ExtUtils::Manifest'    => '1.42',
+            'ExtUtils::Mkbootstrap' => '1.15',
+            'ExtUtils::Mksymlists'  => '1.19',
+            'ExtUtils::Packlist'    => '0.04',
+            'ExtUtils::testlib'     => '1.15',
+            'File::Spec'            => '0.86',
+            'File::Spec::Cygwin'    => '1.1',
+            'File::Spec::Epoc'      => '1.1',
+            'File::Spec::Functions' => '1.3',
+            'File::Spec::Mac'       => '1.4',
+            'File::Spec::OS2'       => '1.2',
+            'File::Spec::Unix'      => '1.5',
+            'File::Spec::VMS'       => '1.4',
+            'File::Spec::Win32'     => '1.4',
+            'File::Temp'            => '0.14',
+            'Safe'                  => '2.10',
+            'Test'                  => '1.24',
+            'Test::Builder'         => '0.17',
+            'Test::Harness'         => '2.30',
+            'Test::Harness::Assert' => '0.01',
+            'Test::Harness::Iterator'=> '0.01',
+            'Test::Harness::Straps' => '0.15',
+            'Test::More'            => '0.47',
+            'Test::Simple'          => '0.47',
+            'Unicode'               => '3.0.1',
+            'if'                    => '0.03',
+            'ops'                   => '1.00',
+        },
+        removed => {
+        }
+    },
+    5.007003 => {
+        delta_from => 5.006001,
+        changed => {
+            'AnyDBM_File'           => '1.00',
+            'Attribute::Handlers'   => '0.76',
+            'AutoLoader'            => '5.59',
+            'AutoSplit'             => '1.0307',
+            'B'                     => '1.00',
+            'B::Asmdata'            => '1.00',
+            'B::Assembler'          => '0.04',
+            'B::Bblock'             => '1.00',
+            'B::Bytecode'           => '1.00',
+            'B::C'                  => '1.01',
+            'B::CC'                 => '1.00',
+            'B::Concise'            => '0.52',
+            'B::Debug'              => '1.00',
+            'B::Deparse'            => '0.63',
+            'B::Disassembler'       => '1.01',
+            'B::Lint'               => '1.00',
+            'B::Showlex'            => '1.00',
+            'B::Stackobj'           => '1.00',
+            'B::Stash'              => '1.00',
+            'B::Terse'              => '1.00',
+            'B::Xref'               => '1.00',
+            'Benchmark'             => '1.04',
+            'CGI'                   => '2.80',
+            'CGI::Apache'           => '1.00',
+            'CGI::Carp'             => '1.22',
+            'CGI::Cookie'           => '1.20',
+            'CGI::Fast'             => '1.04',
+            'CGI::Pretty'           => '1.05_00',
+            'CGI::Switch'           => '1.00',
+            'CGI::Util'             => '1.3',
+            'CPAN'                  => '1.59_56',
+            'CPAN::FirstTime'       => '1.54',
+            'CPAN::Nox'             => '1.00_01',
+            'Carp'                  => '1.01',
+            'Carp::Heavy'           => '1.01',
+            'Class::ISA'            => '0.32',
+            'Class::Struct'         => '0.61',
+            'Cwd'                   => '2.06',
+            'DB_File'               => '1.804',
+            'Data::Dumper'          => '2.12',
+            'Devel::DProf'          => '20000000.00_01',
+            'Devel::PPPort'         => '2.0002',
+            'Devel::Peek'           => '1.00_03',
+            'Devel::SelfStubber'    => '1.03',
+            'Digest'                => '1.00',
+            'Digest::MD5'           => '2.16',
+            'DirHandle'             => '1.00',
+            'Dumpvalue'             => '1.10',
+            'Encode'                => '0.40',
+            'Encode::CN'            => '0.02',
+            'Encode::CN::HZ'        => undef,
+            'Encode::Encoding'      => '0.02',
+            'Encode::Internal'      => '0.30',
+            'Encode::JP'            => '0.02',
+            'Encode::JP::Constants' => '1.02',
+            'Encode::JP::H2Z'       => '0.77',
+            'Encode::JP::ISO_2022_JP'=> undef,
+            'Encode::JP::JIS'       => undef,
+            'Encode::JP::Tr'        => '0.77',
+            'Encode::KR'            => '0.02',
+            'Encode::TW'            => '0.02',
+            'Encode::Tcl'           => '1.01',
+            'Encode::Tcl::Escape'   => '1.01',
+            'Encode::Tcl::Extended' => '1.01',
+            'Encode::Tcl::HanZi'    => '1.01',
+            'Encode::Tcl::Table'    => '1.01',
+            'Encode::Unicode'       => '0.30',
+            'Encode::XS'            => '0.40',
+            'Encode::iso10646_1'    => '0.30',
+            'Encode::usc2_le'       => '0.30',
+            'Encode::utf8'          => '0.30',
+            'English'               => '1.00',
+            'Env'                   => '1.00',
+            'Exporter'              => '5.566',
+            'Exporter::Heavy'       => '5.562',
+            'ExtUtils::Command'     => '1.02',
+            'ExtUtils::Constant'    => '0.11',
+            'ExtUtils::Embed'       => '1.250601',
+            'ExtUtils::Install'     => '1.29',
+            'ExtUtils::Installed'   => '0.04',
+            'ExtUtils::Liblist'     => '1.2701',
+            'ExtUtils::MM_BeOS'     => '1.00',
+            'ExtUtils::MM_Cygwin'   => '1.00',
+            'ExtUtils::MM_OS2'      => '1.00',
+            'ExtUtils::MM_Unix'     => '1.12607',
+            'ExtUtils::MM_VMS'      => '5.56',
+            'ExtUtils::MM_Win32'    => '1.00_02',
+            'ExtUtils::MakeMaker'   => '5.48_03',
+            'ExtUtils::Manifest'    => '1.35',
+            'ExtUtils::Mkbootstrap' => '1.1401',
+            'ExtUtils::Mksymlists'  => '1.18',
+            'ExtUtils::Packlist'    => '0.04',
+            'ExtUtils::testlib'     => '1.1201',
+            'Fatal'                 => '1.03',
+            'Fcntl'                 => '1.04',
+            'File::Basename'        => '2.71',
+            'File::CheckTree'       => '4.1',
+            'File::Compare'         => '1.1003',
+            'File::Copy'            => '2.05',
+            'File::DosGlob'         => '1.00',
+            'File::Find'            => '1.04',
+            'File::Glob'            => '1.01',
+            'File::Path'            => '1.05',
+            'File::Spec'            => '0.83',
+            'File::Spec::Cygwin'    => '1.0',
+            'File::Spec::Epoc'      => '1.00',
+            'File::Spec::Functions' => '1.2',
+            'File::Spec::Mac'       => '1.3',
+            'File::Spec::Unix'      => '1.4',
+            'File::Spec::VMS'       => '1.2',
+            'File::Spec::Win32'     => '1.3',
+            'File::Temp'            => '0.13',
+            'File::stat'            => '1.00',
+            'FileCache'             => '1.00',
+            'FileHandle'            => '2.01',
+            'Filter::Simple'        => '0.77',
+            'Filter::Util::Call'    => '1.06',
+            'FindBin'               => '1.43',
+            'GDBM_File'             => '1.06',
+            'Getopt::Long'          => '2.28',
+            'Getopt::Std'           => '1.03',
+            'I18N::Collate'         => '1.00',
+            'I18N::LangTags'        => '0.27',
+            'I18N::LangTags::List'  => '0.25',
+            'I18N::Langinfo'        => '0.01',
+            'IO::Dir'               => '1.03_00',
+            'IO::File'              => '1.09',
+            'IO::Handle'            => '1.21_00',
+            'IO::Pipe'              => '1.122',
+            'IO::Poll'              => '0.06',
+            'IO::Seekable'          => '1.08_00',
+            'IO::Select'            => '1.15',
+            'IO::Socket'            => '1.27',
+            'IO::Socket::INET'      => '1.26',
+            'IO::Socket::UNIX'      => '1.20_00',
+            'IPC::Msg'              => '1.00_00',
+            'IPC::Open3'            => '1.0104',
+            'IPC::Semaphore'        => '1.00_00',
+            'IPC::SysV'             => '1.03_00',
+            'List::Util'            => '1.06_00',
+            'Locale::Constants'     => '2.01',
+            'Locale::Country'       => '2.01',
+            'Locale::Currency'      => '2.01',
+            'Locale::Language'      => '2.01',
+            'Locale::Maketext'      => '1.03',
+            'Locale::Script'        => '2.01',
+            'MIME::Base64'          => '2.12',
+            'MIME::QuotedPrint'     => '2.03',
+            'Math::BigFloat'        => '1.30',
+            'Math::BigInt'          => '1.54',
+            'Math::BigInt::Calc'    => '0.25',
+            'Math::Complex'         => '1.34',
+            'Math::Trig'            => '1.01',
+            'Memoize'               => '0.66',
+            'Memoize::AnyDBM_File'  => '0.65',
+            'Memoize::Expire'       => '0.66',
+            'Memoize::ExpireFile'   => '0.65',
+            'Memoize::ExpireTest'   => '0.65',
+            'Memoize::NDBM_File'    => '0.65',
+            'Memoize::SDBM_File'    => '0.65',
+            'Memoize::Storable'     => '0.65',
+            'NEXT'                  => '0.50',
+            'Net::Cmd'              => '2.21',
+            'Net::Config'           => '1.10',
+            'Net::Domain'           => '2.17',
+            'Net::FTP'              => '2.64',
+            'Net::FTP::A'           => '1.15',
+            'Net::FTP::E'           => '0.01',
+            'Net::FTP::I'           => '1.12',
+            'Net::FTP::L'           => '0.01',
+            'Net::FTP::dataconn'    => '0.10',
+            'Net::NNTP'             => '2.21',
+            'Net::Netrc'            => '2.12',
+            'Net::POP3'             => '2.23',
+            'Net::Ping'             => '2.12',
+            'Net::SMTP'             => '2.21',
+            'Net::Time'             => '2.09',
+            'Net::hostent'          => '1.00',
+            'Net::netent'           => '1.00',
+            'Net::protoent'         => '1.00',
+            'Net::servent'          => '1.00',
+            'O'                     => '1.00',
+            'OS2::DLL'              => '1.00',
+            'OS2::Process'          => '1.0',
+            'OS2::REXX'             => '1.01',
+            'Opcode'                => '1.05',
+            'POSIX'                 => '1.05',
+            'PerlIO'                => '1.00',
+            'PerlIO::Scalar'        => '0.01',
+            'PerlIO::Via'           => '0.01',
+            'Pod::Checker'          => '1.3',
+            'Pod::Find'             => '0.22',
+            'Pod::Functions'        => '1.01',
+            'Pod::Html'             => '1.04',
+            'Pod::LaTeX'            => '0.54',
+            'Pod::Man'              => '1.32',
+            'Pod::ParseLink'        => '1.05',
+            'Pod::Text'             => '2.18',
+            'Pod::Text::Color'      => '1.03',
+            'Pod::Text::Overstrike' => '1.08',
+            'Pod::Text::Termcap'    => '1.09',
+            'Safe'                  => '2.07',
+            'Scalar::Util'          => '1.06_00',
+            'Search::Dict'          => '1.02',
+            'SelectSaver'           => '1.00',
+            'SelfLoader'            => '1.0903',
+            'Shell'                 => '0.4',
+            'Socket'                => '1.75',
+            'Storable'              => '1.015',
+            'Switch'                => '2.06',
+            'Symbol'                => '1.04',
+            'Sys::Syslog'           => '0.02',
+            'Term::ANSIColor'       => '1.04',
+            'Term::Cap'             => '1.07',
+            'Term::Complete'        => '1.4',
+            'Term::ReadLine'        => '1.00',
+            'Test'                  => '1.18',
+            'Test::Builder'         => '0.11',
+            'Test::Harness'         => '2.01',
+            'Test::Harness::Assert' => '0.01',
+            'Test::Harness::Iterator'=> '0.01',
+            'Test::Harness::Straps' => '0.08',
+            'Test::More'            => '0.41',
+            'Test::Simple'          => '0.41',
+            'Text::Abbrev'          => '1.00',
+            'Text::Balanced'        => '1.89',
+            'Text::ParseWords'      => '3.21',
+            'Text::Soundex'         => '1.01',
+            'Text::Wrap'            => '2001.0929',
+            'Thread'                => '2.00',
+            'Thread::Queue'         => '1.00',
+            'Thread::Semaphore'     => '1.00',
+            'Thread::Signal'        => '1.00',
+            'Thread::Specific'      => '1.00',
+            'Tie::Array'            => '1.02',
+            'Tie::File'             => '0.17',
+            'Tie::Handle'           => '4.1',
+            'Tie::Hash'             => '1.00',
+            'Tie::Memoize'          => '1.0',
+            'Tie::RefHash'          => '1.3_00',
+            'Tie::Scalar'           => '1.00',
+            'Tie::SubstrHash'       => '1.00',
+            'Time::HiRes'           => '1.20_00',
+            'Time::Local'           => '1.04',
+            'Time::gmtime'          => '1.02',
+            'Time::localtime'       => '1.02',
+            'Time::tm'              => '1.00',
+            'UNIVERSAL'             => '1.00',
+            'Unicode::Collate'      => '0.10',
+            'Unicode::Normalize'    => '0.14',
+            'Unicode::UCD'          => '0.2',
+            'User::grent'           => '1.00',
+            'User::pwent'           => '1.00',
+            'VMS::DCLsym'           => '1.02',
+            'VMS::Filespec'         => '1.1',
+            'VMS::Stdio'            => '2.3',
+            'XS::Typemap'           => '0.01',
+            'attributes'            => '0.04_01',
+            'attrs'                 => '1.01',
+            'autouse'               => '1.03',
+            'base'                  => '1.02',
+            'blib'                  => '1.01',
+            'bytes'                 => '1.00',
+            'charnames'             => '1.01',
+            'constant'              => '1.04',
+            'diagnostics'           => '1.1',
+            'encoding'              => '1.00',
+            'fields'                => '1.02',
+            'filetest'              => '1.00',
+            'if'                    => '0.01',
+            'integer'               => '1.00',
+            'less'                  => '0.01',
+            'locale'                => '1.00',
+            'open'                  => '1.01',
+            'ops'                   => '1.00',
+            'overload'              => '1.00',
+            're'                    => '0.03',
+            'sort'                  => '1.00',
+            'strict'                => '1.02',
+            'subs'                  => '1.00',
+            'threads'               => '0.05',
+            'threads::shared'       => '0.90',
+            'utf8'                  => '1.00',
+            'vars'                  => '1.01',
+            'vmsish'                => '1.00',
+            'warnings'              => '1.00',
+            'warnings::register'    => '1.00',
+        },
+        removed => {
+        }
+    },
+    5.008 => {
+        delta_from => 5.007003,
+        changed => {
+            'Attribute::Handlers'   => '0.77',
+            'B'                     => '1.01',
+            'B::Lint'               => '1.01',
+            'B::Xref'               => '1.01',
+            'CGI'                   => '2.81',
+            'CGI::Carp'             => '1.23',
+            'CPAN'                  => '1.61',
+            'CPAN::FirstTime'       => '1.56',
+            'CPAN::Nox'             => '1.02',
+            'Digest::MD5'           => '2.20',
+            'Dumpvalue'             => '1.11',
+            'Encode'                => '1.75',
+            'Encode::Alias'         => '1.32',
+            'Encode::Byte'          => '1.22',
+            'Encode::CJKConstants'  => '1.00',
+            'Encode::CN'            => '1.24',
+            'Encode::CN::HZ'        => '1.04',
+            'Encode::Config'        => '1.06',
+            'Encode::EBCDIC'        => '1.21',
+            'Encode::Encoder'       => '0.05',
+            'Encode::Encoding'      => '1.30',
+            'Encode::Guess'         => '1.06',
+            'Encode::JP'            => '1.25',
+            'Encode::JP::H2Z'       => '1.02',
+            'Encode::JP::JIS7'      => '1.08',
+            'Encode::KR'            => '1.22',
+            'Encode::KR::2022_KR'   => '1.05',
+            'Encode::MIME::Header'  => '1.05',
+            'Encode::Symbol'        => '1.22',
+            'Encode::TW'            => '1.26',
+            'Encode::Unicode'       => '1.37',
+            'Exporter::Heavy'       => '5.566',
+            'ExtUtils::Command'     => '1.04',
+            'ExtUtils::Command::MM' => '0.01',
+            'ExtUtils::Constant'    => '0.12',
+            'ExtUtils::Installed'   => '0.06',
+            'ExtUtils::Liblist'     => '1.00',
+            'ExtUtils::Liblist::Kid'=> '1.29',
+            'ExtUtils::MM'          => '0.04',
+            'ExtUtils::MM_Any'      => '0.04',
+            'ExtUtils::MM_BeOS'     => '1.03',
+            'ExtUtils::MM_Cygwin'   => '1.04',
+            'ExtUtils::MM_DOS'      => '0.01',
+            'ExtUtils::MM_MacOS'    => '1.03',
+            'ExtUtils::MM_NW5'      => '2.05',
+            'ExtUtils::MM_OS2'      => '1.03',
+            'ExtUtils::MM_UWIN'     => '0.01',
+            'ExtUtils::MM_Unix'     => '1.33',
+            'ExtUtils::MM_VMS'      => '5.65',
+            'ExtUtils::MM_Win32'    => '1.05',
+            'ExtUtils::MM_Win95'    => '0.02',
+            'ExtUtils::MY'          => '0.01',
+            'ExtUtils::MakeMaker'   => '6.03',
+            'ExtUtils::Manifest'    => '1.38',
+            'ExtUtils::Mkbootstrap' => '1.15',
+            'ExtUtils::Mksymlists'  => '1.19',
+            'ExtUtils::testlib'     => '1.15',
+            'File::CheckTree'       => '4.2',
+            'FileCache'             => '1.021',
+            'Filter::Simple'        => '0.78',
+            'Getopt::Long'          => '2.32',
+            'Hash::Util'            => '0.04',
+            'List::Util'            => '1.07_00',
+            'Locale::Country'       => '2.04',
+            'Math::BigFloat'        => '1.35',
+            'Math::BigFloat::Trace' => '0.01',
+            'Math::BigInt'          => '1.60',
+            'Math::BigInt::Calc'    => '0.30',
+            'Math::BigInt::Trace'   => '0.01',
+            'Math::BigRat'          => '0.07',
+            'Memoize'               => '1.01',
+            'Memoize::Expire'       => '1.00',
+            'Memoize::ExpireFile'   => '1.01',
+            'Net::FTP'              => '2.65',
+            'Net::FTP::dataconn'    => '0.11',
+            'Net::Ping'             => '2.19',
+            'Net::SMTP'             => '2.24',
+            'PerlIO'                => '1.01',
+            'PerlIO::encoding'      => '0.06',
+            'PerlIO::scalar'        => '0.01',
+            'PerlIO::via'           => '0.01',
+            'PerlIO::via::QuotedPrint'=> '0.04',
+            'Pod::Man'              => '1.33',
+            'Pod::Text'             => '2.19',
+            'Scalar::Util'          => '1.07_00',
+            'Storable'              => '2.04',
+            'Switch'                => '2.09',
+            'Sys::Syslog'           => '0.03',
+            'Test'                  => '1.20',
+            'Test::Builder'         => '0.15',
+            'Test::Harness'         => '2.26',
+            'Test::Harness::Straps' => '0.14',
+            'Test::More'            => '0.45',
+            'Test::Simple'          => '0.45',
+            'Thread::Queue'         => '2.00',
+            'Thread::Semaphore'     => '2.00',
+            'Tie::File'             => '0.93',
+            'Tie::RefHash'          => '1.30',
+            'Unicode'               => '3.2.0',
+            'Unicode::Collate'      => '0.12',
+            'Unicode::Normalize'    => '0.17',
+            'XS::APItest'           => '0.01',
+            'attributes'            => '0.05',
+            'base'                  => '1.03',
+            'bigint'                => '0.02',
+            'bignum'                => '0.11',
+            'bigrat'                => '0.04',
+            'blib'                  => '1.02',
+            'encoding'              => '1.35',
+            'sort'                  => '1.01',
+            'threads'               => '0.99',
+        },
+        removed => {
+            'Encode::Internal'      => 1,
+            'Encode::JP::Constants' => 1,
+            'Encode::JP::ISO_2022_JP'=> 1,
+            'Encode::JP::JIS'       => 1,
+            'Encode::JP::Tr'        => 1,
+            'Encode::Tcl'           => 1,
+            'Encode::Tcl::Escape'   => 1,
+            'Encode::Tcl::Extended' => 1,
+            'Encode::Tcl::HanZi'    => 1,
+            'Encode::Tcl::Table'    => 1,
+            'Encode::XS'            => 1,
+            'Encode::iso10646_1'    => 1,
+            'Encode::usc2_le'       => 1,
+            'Encode::utf8'          => 1,
+            'PerlIO::Scalar'        => 1,
+            'PerlIO::Via'           => 1,
+        }
+    },
+    5.008001 => {
+        delta_from => 5.008,
+        changed => {
+            'Attribute::Handlers'   => '0.78',
+            'AutoLoader'            => '5.60',
+            'AutoSplit'             => '1.04',
+            'B'                     => '1.02',
+            'B::Asmdata'            => '1.01',
+            'B::Assembler'          => '0.06',
+            'B::Bblock'             => '1.02',
+            'B::Bytecode'           => '1.01',
+            'B::C'                  => '1.02',
+            'B::Concise'            => '0.56',
+            'B::Debug'              => '1.01',
+            'B::Deparse'            => '0.64',
+            'B::Disassembler'       => '1.03',
+            'B::Lint'               => '1.02',
+            'B::Terse'              => '1.02',
+            'Benchmark'             => '1.051',
+            'ByteLoader'            => '0.05',
+            'CGI'                   => '3.00',
+            'CGI::Carp'             => '1.26',
+            'CGI::Cookie'           => '1.24',
+            'CGI::Fast'             => '1.041',
+            'CGI::Pretty'           => '1.07_00',
+            'CGI::Util'             => '1.31',
+            'CPAN'                  => '1.76_01',
+            'CPAN::FirstTime'       => '1.60',
+            'CPAN::Nox'             => '1.03',
+            'Class::Struct'         => '0.63',
+            'Cwd'                   => '2.08',
+            'DB_File'               => '1.806',
+            'Data::Dumper'          => '2.121',
+            'Devel::DProf'          => '20030813.00',
+            'Devel::PPPort'         => '2.007',
+            'Devel::Peek'           => '1.01',
+            'Digest'                => '1.02',
+            'Digest::MD5'           => '2.27',
+            'Encode'                => '1.9801',
+            'Encode::Alias'         => '1.38',
+            'Encode::Byte'          => '1.23',
+            'Encode::CJKConstants'  => '1.02',
+            'Encode::CN::HZ'        => '1.05',
+            'Encode::Config'        => '1.07',
+            'Encode::Encoder'       => '0.07',
+            'Encode::Encoding'      => '1.33',
+            'Encode::Guess'         => '1.09',
+            'Encode::JP::JIS7'      => '1.12',
+            'Encode::KR'            => '1.23',
+            'Encode::KR::2022_KR'   => '1.06',
+            'Encode::MIME::Header'  => '1.09',
+            'Encode::Unicode'       => '1.40',
+            'Encode::Unicode::UTF7' => '0.02',
+            'English'               => '1.01',
+            'Errno'                 => '1.09_00',
+            'Exporter'              => '5.567',
+            'Exporter::Heavy'       => '5.567',
+            'ExtUtils::Command'     => '1.05',
+            'ExtUtils::Command::MM' => '0.03',
+            'ExtUtils::Constant'    => '0.14',
+            'ExtUtils::Install'     => '1.32',
+            'ExtUtils::Installed'   => '0.08',
+            'ExtUtils::Liblist'     => '1.01',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.07',
+            'ExtUtils::MM_BeOS'     => '1.04',
+            'ExtUtils::MM_Cygwin'   => '1.06',
+            'ExtUtils::MM_DOS'      => '0.02',
+            'ExtUtils::MM_MacOS'    => '1.07',
+            'ExtUtils::MM_NW5'      => '2.06',
+            'ExtUtils::MM_OS2'      => '1.04',
+            'ExtUtils::MM_UWIN'     => '0.02',
+            'ExtUtils::MM_Unix'     => '1.42',
+            'ExtUtils::MM_VMS'      => '5.70',
+            'ExtUtils::MM_Win32'    => '1.09',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.17',
+            'ExtUtils::MakeMaker::bytes'=> '0.01',
+            'ExtUtils::MakeMaker::vmsish'=> '0.01',
+            'ExtUtils::Manifest'    => '1.42',
+            'Fcntl'                 => '1.05',
+            'File::Basename'        => '2.72',
+            'File::Copy'            => '2.06',
+            'File::Find'            => '1.05',
+            'File::Glob'            => '1.02',
+            'File::Path'            => '1.06',
+            'File::Spec'            => '0.86',
+            'File::Spec::Cygwin'    => '1.1',
+            'File::Spec::Epoc'      => '1.1',
+            'File::Spec::Functions' => '1.3',
+            'File::Spec::Mac'       => '1.4',
+            'File::Spec::OS2'       => '1.2',
+            'File::Spec::Unix'      => '1.5',
+            'File::Spec::VMS'       => '1.4',
+            'File::Spec::Win32'     => '1.4',
+            'File::Temp'            => '0.14',
+            'FileCache'             => '1.03',
+            'Filter::Util::Call'    => '1.0601',
+            'GDBM_File'             => '1.07',
+            'Getopt::Long'          => '2.34',
+            'Getopt::Std'           => '1.04',
+            'Hash::Util'            => '0.05',
+            'I18N::LangTags'        => '0.28',
+            'I18N::LangTags::List'  => '0.26',
+            'I18N::Langinfo'        => '0.02',
+            'IO'                    => '1.21',
+            'IO::Dir'               => '1.04',
+            'IO::File'              => '1.10',
+            'IO::Handle'            => '1.23',
+            'IO::Seekable'          => '1.09',
+            'IO::Select'            => '1.16',
+            'IO::Socket'            => '1.28',
+            'IO::Socket::INET'      => '1.27',
+            'IO::Socket::UNIX'      => '1.21',
+            'IPC::Msg'              => '1.02',
+            'IPC::Open3'            => '1.0105',
+            'IPC::Semaphore'        => '1.02',
+            'IPC::SysV'             => '1.04',
+            'JNI'                   => '0.2',
+            'List::Util'            => '1.13',
+            'Locale::Country'       => '2.61',
+            'Locale::Currency'      => '2.21',
+            'Locale::Language'      => '2.21',
+            'Locale::Maketext'      => '1.06',
+            'Locale::Maketext::Guts'=> undef,
+            'Locale::Maketext::GutsLoader'=> undef,
+            'Locale::Script'        => '2.21',
+            'MIME::Base64'          => '2.20',
+            'MIME::QuotedPrint'     => '2.20',
+            'Math::BigFloat'        => '1.40',
+            'Math::BigInt'          => '1.66',
+            'Math::BigInt::Calc'    => '0.36',
+            'Math::BigInt::Scalar'  => '0.11',
+            'Math::BigRat'          => '0.10',
+            'Math::Trig'            => '1.02',
+            'NDBM_File'             => '1.05',
+            'NEXT'                  => '0.60',
+            'Net::Cmd'              => '2.24',
+            'Net::Domain'           => '2.18',
+            'Net::FTP'              => '2.71',
+            'Net::FTP::A'           => '1.16',
+            'Net::NNTP'             => '2.22',
+            'Net::POP3'             => '2.24',
+            'Net::Ping'             => '2.31',
+            'Net::SMTP'             => '2.26',
+            'Net::hostent'          => '1.01',
+            'Net::servent'          => '1.01',
+            'ODBM_File'             => '1.04',
+            'OS2::DLL'              => '1.01',
+            'OS2::ExtAttr'          => '0.02',
+            'OS2::PrfDB'            => '0.03',
+            'OS2::Process'          => '1.01',
+            'OS2::REXX'             => '1.02',
+            'POSIX'                 => '1.06',
+            'PerlIO'                => '1.02',
+            'PerlIO::encoding'      => '0.07',
+            'PerlIO::scalar'        => '0.02',
+            'PerlIO::via'           => '0.02',
+            'PerlIO::via::QuotedPrint'=> '0.05',
+            'Pod::Checker'          => '1.41',
+            'Pod::Find'             => '0.24',
+            'Pod::Functions'        => '1.02',
+            'Pod::Html'             => '1.0501',
+            'Pod::InputObjects'     => '1.14',
+            'Pod::LaTeX'            => '0.55',
+            'Pod::Man'              => '1.37',
+            'Pod::ParseLink'        => '1.06',
+            'Pod::ParseUtils'       => '0.3',
+            'Pod::Perldoc'          => '3.10',
+            'Pod::Perldoc::BaseTo'  => undef,
+            'Pod::Perldoc::GetOptsOO'=> undef,
+            'Pod::Perldoc::ToChecker'=> undef,
+            'Pod::Perldoc::ToMan'   => undef,
+            'Pod::Perldoc::ToNroff' => undef,
+            'Pod::Perldoc::ToPod'   => undef,
+            'Pod::Perldoc::ToRtf'   => undef,
+            'Pod::Perldoc::ToText'  => undef,
+            'Pod::Perldoc::ToTk'    => undef,
+            'Pod::Perldoc::ToXml'   => undef,
+            'Pod::PlainText'        => '2.01',
+            'Pod::Text'             => '2.21',
+            'Pod::Text::Color'      => '1.04',
+            'Pod::Text::Overstrike' => '1.1',
+            'Pod::Text::Termcap'    => '1.11',
+            'Pod::Usage'            => '1.16',
+            'SDBM_File'             => '1.04',
+            'Safe'                  => '2.10',
+            'Scalar::Util'          => '1.13',
+            'SelfLoader'            => '1.0904',
+            'Shell'                 => '0.5',
+            'Socket'                => '1.76',
+            'Storable'              => '2.08',
+            'Switch'                => '2.10',
+            'Symbol'                => '1.05',
+            'Sys::Hostname'         => '1.11',
+            'Sys::Syslog'           => '0.04',
+            'Term::ANSIColor'       => '1.07',
+            'Term::Cap'             => '1.08',
+            'Term::Complete'        => '1.401',
+            'Term::ReadLine'        => '1.01',
+            'Test'                  => '1.24',
+            'Test::Builder'         => '0.17',
+            'Test::Harness'         => '2.30',
+            'Test::Harness::Straps' => '0.15',
+            'Test::More'            => '0.47',
+            'Test::Simple'          => '0.47',
+            'Text::Abbrev'          => '1.01',
+            'Text::Balanced'        => '1.95',
+            'Text::Wrap'            => '2001.09291',
+            'Thread::Semaphore'     => '2.01',
+            'Tie::Array'            => '1.03',
+            'Tie::File'             => '0.97',
+            'Tie::RefHash'          => '1.31',
+            'Time::HiRes'           => '1.51',
+            'Time::Local'           => '1.07',
+            'UNIVERSAL'             => '1.01',
+            'Unicode'               => '4.0.0',
+            'Unicode::Collate'      => '0.28',
+            'Unicode::Normalize'    => '0.23',
+            'Unicode::UCD'          => '0.21',
+            'VMS::Filespec'         => '1.11',
+            'XS::APItest'           => '0.02',
+            'XSLoader'              => '0.02',
+            'attributes'            => '0.06',
+            'base'                  => '2.03',
+            'bigint'                => '0.04',
+            'bignum'                => '0.14',
+            'bigrat'                => '0.06',
+            'bytes'                 => '1.01',
+            'charnames'             => '1.02',
+            'diagnostics'           => '1.11',
+            'encoding'              => '1.47',
+            'fields'                => '2.03',
+            'filetest'              => '1.01',
+            'if'                    => '0.03',
+            'lib'                   => '0.5565',
+            'open'                  => '1.02',
+            'overload'              => '1.01',
+            're'                    => '0.04',
+            'sort'                  => '1.02',
+            'strict'                => '1.03',
+            'threads'               => '1.00',
+            'threads::shared'       => '0.91',
+            'utf8'                  => '1.02',
+            'vmsish'                => '1.01',
+            'warnings'              => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.008002 => {
+        delta_from => 5.008001,
+        changed => {
+            'DB_File'               => '1.807',
+            'Devel::PPPort'         => '2.009',
+            'Digest::MD5'           => '2.30',
+            'I18N::LangTags'        => '0.29',
+            'I18N::LangTags::List'  => '0.29',
+            'MIME::Base64'          => '2.21',
+            'MIME::QuotedPrint'     => '2.21',
+            'Net::Domain'           => '2.19',
+            'Net::FTP'              => '2.72',
+            'Pod::Perldoc'          => '3.11',
+            'Time::HiRes'           => '1.52',
+            'Unicode::Collate'      => '0.30',
+            'Unicode::Normalize'    => '0.25',
+        },
+        removed => {
+        }
+    },
+    5.008003 => {
+        delta_from => 5.008002,
+        changed => {
+            'Benchmark'             => '1.052',
+            'CGI'                   => '3.01',
+            'CGI::Carp'             => '1.27',
+            'CGI::Fast'             => '1.05',
+            'CGI::Pretty'           => '1.08',
+            'CGI::Util'             => '1.4',
+            'Cwd'                   => '2.12',
+            'DB_File'               => '1.808',
+            'Devel::PPPort'         => '2.011',
+            'Digest'                => '1.05',
+            'Digest::MD5'           => '2.33',
+            'Digest::base'          => '1.00',
+            'Encode'                => '1.99',
+            'Exporter'              => '5.57',
+            'File::CheckTree'       => '4.3',
+            'File::Copy'            => '2.07',
+            'File::Find'            => '1.06',
+            'File::Spec'            => '0.87',
+            'FindBin'               => '1.44',
+            'Getopt::Std'           => '1.05',
+            'Math::BigFloat'        => '1.42',
+            'Math::BigInt'          => '1.68',
+            'Math::BigInt::Calc'    => '0.38',
+            'Math::BigInt::CalcEmu' => '0.02',
+            'OS2::DLL'              => '1.02',
+            'POSIX'                 => '1.07',
+            'PerlIO'                => '1.03',
+            'PerlIO::via::QuotedPrint'=> '0.06',
+            'Pod::Html'             => '1.0502',
+            'Pod::Parser'           => '1.14',
+            'Pod::Perldoc'          => '3.12',
+            'Pod::PlainText'        => '2.02',
+            'Storable'              => '2.09',
+            'Test::Harness'         => '2.40',
+            'Test::Harness::Assert' => '0.02',
+            'Test::Harness::Iterator'=> '0.02',
+            'Test::Harness::Straps' => '0.19',
+            'Tie::Hash'             => '1.01',
+            'Unicode::Collate'      => '0.33',
+            'Unicode::Normalize'    => '0.28',
+            'XS::APItest'           => '0.03',
+            'base'                  => '2.04',
+            'diagnostics'           => '1.12',
+            'encoding'              => '1.48',
+            'threads'               => '1.01',
+            'threads::shared'       => '0.92',
+        },
+        removed => {
+            'Math::BigInt::Scalar'  => 1,
+        }
+    },
+    5.008004 => {
+        delta_from => 5.008003,
+        changed => {
+            'Attribute::Handlers'   => '0.78_01',
+            'B::Assembler'          => '0.07',
+            'B::Concise'            => '0.60',
+            'B::Deparse'            => '0.66',
+            'Benchmark'             => '1.06',
+            'CGI'                   => '3.04',
+            'Carp'                  => '1.02',
+            'Cwd'                   => '2.17',
+            'DBM_Filter'            => '0.01',
+            'DBM_Filter::compress'  => '0.01',
+            'DBM_Filter::encode'    => '0.01',
+            'DBM_Filter::int32'     => '0.01',
+            'DBM_Filter::null'      => '0.01',
+            'DBM_Filter::utf8'      => '0.01',
+            'Digest'                => '1.06',
+            'DynaLoader'            => '1.05',
+            'Encode'                => '1.99_01',
+            'Encode::CN::HZ'        => '1.0501',
+            'Exporter'              => '5.58',
+            'Exporter::Heavy'       => '5.57',
+            'ExtUtils::Liblist::Kid'=> '1.3001',
+            'ExtUtils::MM_NW5'      => '2.07_02',
+            'ExtUtils::MM_Win95'    => '0.0301',
+            'File::Find'            => '1.07',
+            'IO::Handle'            => '1.24',
+            'IO::Pipe'              => '1.123',
+            'IPC::Open3'            => '1.0106',
+            'Locale::Maketext'      => '1.08',
+            'MIME::Base64'          => '3.01',
+            'MIME::QuotedPrint'     => '3.01',
+            'Math::BigFloat'        => '1.44',
+            'Math::BigInt'          => '1.70',
+            'Math::BigInt::Calc'    => '0.40',
+            'Math::BigInt::CalcEmu' => '0.04',
+            'Math::BigRat'          => '0.12',
+            'ODBM_File'             => '1.05',
+            'POSIX'                 => '1.08',
+            'Shell'                 => '0.5.2',
+            'Socket'                => '1.77',
+            'Storable'              => '2.12',
+            'Sys::Syslog'           => '0.05',
+            'Term::ANSIColor'       => '1.08',
+            'Time::HiRes'           => '1.59',
+            'Unicode'               => '4.0.1',
+            'Unicode::UCD'          => '0.22',
+            'Win32'                 => '0.23',
+            'base'                  => '2.05',
+            'bigint'                => '0.05',
+            'bignum'                => '0.15',
+            'charnames'             => '1.03',
+            'open'                  => '1.03',
+            'threads'               => '1.03',
+            'utf8'                  => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.008005 => {
+        delta_from => 5.008004,
+        changed => {
+            'B::Concise'            => '0.61',
+            'B::Deparse'            => '0.67',
+            'CGI'                   => '3.05',
+            'CGI::Carp'             => '1.28',
+            'CGI::Util'             => '1.5',
+            'Carp'                  => '1.03',
+            'Carp::Heavy'           => '1.03',
+            'Cwd'                   => '2.19',
+            'DB_File'               => '1.809',
+            'Digest'                => '1.08',
+            'Encode'                => '2.01',
+            'Encode::Alias'         => '2.00',
+            'Encode::Byte'          => '2.00',
+            'Encode::CJKConstants'  => '2.00',
+            'Encode::CN'            => '2.00',
+            'Encode::CN::HZ'        => '2.01',
+            'Encode::Config'        => '2.00',
+            'Encode::EBCDIC'        => '2.00',
+            'Encode::Encoder'       => '2.00',
+            'Encode::Encoding'      => '2.00',
+            'Encode::Guess'         => '2.00',
+            'Encode::JP'            => '2.00',
+            'Encode::JP::H2Z'       => '2.00',
+            'Encode::JP::JIS7'      => '2.00',
+            'Encode::KR'            => '2.00',
+            'Encode::KR::2022_KR'   => '2.00',
+            'Encode::MIME::Header'  => '2.00',
+            'Encode::Symbol'        => '2.00',
+            'Encode::TW'            => '2.00',
+            'Encode::Unicode'       => '2.00',
+            'Encode::Unicode::UTF7' => '2.01',
+            'File::Basename'        => '2.73',
+            'File::Copy'            => '2.08',
+            'File::Glob'            => '1.03',
+            'FileCache'             => '1.04_01',
+            'I18N::LangTags'        => '0.33',
+            'I18N::LangTags::Detect'=> '1.03',
+            'List::Util'            => '1.14',
+            'Locale::Constants'     => '2.07',
+            'Locale::Country'       => '2.07',
+            'Locale::Currency'      => '2.07',
+            'Locale::Language'      => '2.07',
+            'Locale::Maketext'      => '1.09',
+            'Locale::Script'        => '2.07',
+            'Net::Cmd'              => '2.26',
+            'Net::FTP'              => '2.75',
+            'Net::NNTP'             => '2.23',
+            'Net::POP3'             => '2.28',
+            'Net::SMTP'             => '2.29',
+            'Net::Time'             => '2.10',
+            'Pod::Checker'          => '1.42',
+            'Pod::Find'             => '0.2401',
+            'Pod::LaTeX'            => '0.56',
+            'Pod::ParseUtils'       => '1.2',
+            'Pod::Perldoc'          => '3.13',
+            'Safe'                  => '2.11',
+            'Scalar::Util'          => '1.14',
+            'Shell'                 => '0.6',
+            'Storable'              => '2.13',
+            'Term::Cap'             => '1.09',
+            'Test'                  => '1.25',
+            'Test::Harness'         => '2.42',
+            'Text::ParseWords'      => '3.22',
+            'Text::Wrap'            => '2001.09292',
+            'Time::Local'           => '1.10',
+            'Unicode::Collate'      => '0.40',
+            'Unicode::Normalize'    => '0.30',
+            'XS::APItest'           => '0.04',
+            'autouse'               => '1.04',
+            'base'                  => '2.06',
+            'charnames'             => '1.04',
+            'diagnostics'           => '1.13',
+            'encoding'              => '2.00',
+            'threads'               => '1.05',
+            'utf8'                  => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.008006 => {
+        delta_from => 5.008005,
+        changed => {
+            'B'                     => '1.07',
+            'B::C'                  => '1.04',
+            'B::Concise'            => '0.64',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.69',
+            'B::Lint'               => '1.03',
+            'B::Showlex'            => '1.02',
+            'Cwd'                   => '3.01',
+            'DB_File'               => '1.810',
+            'Data::Dumper'          => '2.121_02',
+            'Devel::PPPort'         => '3.03',
+            'Devel::Peek'           => '1.02',
+            'Encode'                => '2.08',
+            'Encode::Alias'         => '2.02',
+            'Encode::Encoding'      => '2.02',
+            'Encode::JP'            => '2.01',
+            'Encode::Unicode'       => '2.02',
+            'Exporter::Heavy'       => '5.58',
+            'ExtUtils::Constant'    => '0.1401',
+            'File::Spec'            => '3.01',
+            'File::Spec::Win32'     => '1.5',
+            'I18N::LangTags'        => '0.35',
+            'I18N::LangTags::List'  => '0.35',
+            'MIME::Base64'          => '3.05',
+            'MIME::QuotedPrint'     => '3.03',
+            'Math::BigFloat'        => '1.47',
+            'Math::BigInt'          => '1.73',
+            'Math::BigInt::Calc'    => '0.43',
+            'Math::BigRat'          => '0.13',
+            'Text::ParseWords'      => '3.23',
+            'Time::HiRes'           => '1.65',
+            'XS::APItest'           => '0.05',
+            'diagnostics'           => '1.14',
+            'encoding'              => '2.01',
+            'open'                  => '1.04',
+            'overload'              => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.008007 => {
+        delta_from => 5.008006,
+        changed => {
+            'B'                     => '1.09',
+            'B::Concise'            => '0.65',
+            'B::Deparse'            => '0.7',
+            'B::Disassembler'       => '1.04',
+            'B::Terse'              => '1.03',
+            'Benchmark'             => '1.07',
+            'CGI'                   => '3.10',
+            'CGI::Carp'             => '1.29',
+            'CGI::Cookie'           => '1.25',
+            'Carp'                  => '1.04',
+            'Carp::Heavy'           => '1.04',
+            'Class::ISA'            => '0.33',
+            'Cwd'                   => '3.05',
+            'DB_File'               => '1.811',
+            'Data::Dumper'          => '2.121_04',
+            'Devel::DProf'          => '20050310.00',
+            'Devel::PPPort'         => '3.06',
+            'Digest'                => '1.10',
+            'Digest::file'          => '0.01',
+            'Encode'                => '2.10',
+            'Encode::Alias'         => '2.03',
+            'Errno'                 => '1.09_01',
+            'ExtUtils::Constant'    => '0.16',
+            'ExtUtils::Constant::Base'=> '0.01',
+            'ExtUtils::Constant::Utils'=> '0.01',
+            'ExtUtils::Constant::XS'=> '0.01',
+            'File::Find'            => '1.09',
+            'File::Glob'            => '1.04',
+            'File::Path'            => '1.07',
+            'File::Spec'            => '3.05',
+            'File::Temp'            => '0.16',
+            'FileCache'             => '1.05',
+            'IO::File'              => '1.11',
+            'IO::Socket::INET'      => '1.28',
+            'Math::BigFloat'        => '1.51',
+            'Math::BigInt'          => '1.77',
+            'Math::BigInt::Calc'    => '0.47',
+            'Math::BigInt::CalcEmu' => '0.05',
+            'Math::BigRat'          => '0.15',
+            'Pod::Find'             => '1.3',
+            'Pod::Html'             => '1.0503',
+            'Pod::InputObjects'     => '1.3',
+            'Pod::LaTeX'            => '0.58',
+            'Pod::ParseUtils'       => '1.3',
+            'Pod::Parser'           => '1.3',
+            'Pod::Perldoc'          => '3.14',
+            'Pod::Select'           => '1.3',
+            'Pod::Usage'            => '1.3',
+            'SelectSaver'           => '1.01',
+            'Symbol'                => '1.06',
+            'Sys::Syslog'           => '0.06',
+            'Term::ANSIColor'       => '1.09',
+            'Term::Complete'        => '1.402',
+            'Test::Builder'         => '0.22',
+            'Test::Harness'         => '2.48',
+            'Test::Harness::Point'  => '0.01',
+            'Test::Harness::Straps' => '0.23',
+            'Test::More'            => '0.54',
+            'Test::Simple'          => '0.54',
+            'Text::ParseWords'      => '3.24',
+            'Text::Wrap'            => '2001.09293',
+            'Tie::RefHash'          => '1.32',
+            'Time::HiRes'           => '1.66',
+            'Time::Local'           => '1.11',
+            'Unicode'               => '4.1.0',
+            'Unicode::Normalize'    => '0.32',
+            'Unicode::UCD'          => '0.23',
+            'Win32'                 => '0.24',
+            'XS::APItest'           => '0.06',
+            'base'                  => '2.07',
+            'bigint'                => '0.07',
+            'bignum'                => '0.17',
+            'bigrat'                => '0.08',
+            'bytes'                 => '1.02',
+            'constant'              => '1.05',
+            'overload'              => '1.03',
+            'threads::shared'       => '0.93',
+            'utf8'                  => '1.05',
+        },
+        removed => {
+            'JNI'                   => 1,
+            'JPL::AutoLoader'       => 1,
+            'JPL::Class'            => 1,
+            'JPL::Compile'          => 1,
+        }
+    },
+    5.008008 => {
+        delta_from => 5.008007,
+        changed => {
+            'Attribute::Handlers'   => '0.78_02',
+            'B'                     => '1.09_01',
+            'B::Bblock'             => '1.02_01',
+            'B::Bytecode'           => '1.01_01',
+            'B::C'                  => '1.04_01',
+            'B::CC'                 => '1.00_01',
+            'B::Concise'            => '0.66',
+            'B::Debug'              => '1.02_01',
+            'B::Deparse'            => '0.71',
+            'B::Disassembler'       => '1.05',
+            'B::Terse'              => '1.03_01',
+            'ByteLoader'            => '0.06',
+            'CGI'                   => '3.15',
+            'CGI::Cookie'           => '1.26',
+            'CPAN'                  => '1.76_02',
+            'Cwd'                   => '3.12',
+            'DB'                    => '1.01',
+            'DB_File'               => '1.814',
+            'Data::Dumper'          => '2.121_08',
+            'Devel::DProf'          => '20050603.00',
+            'Devel::PPPort'         => '3.06_01',
+            'Devel::Peek'           => '1.03',
+            'Digest'                => '1.14',
+            'Digest::MD5'           => '2.36',
+            'Digest::file'          => '1.00',
+            'Dumpvalue'             => '1.12',
+            'Encode'                => '2.12',
+            'Encode::Alias'         => '2.04',
+            'Encode::Config'        => '2.01',
+            'Encode::MIME::Header'  => '2.01',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.01',
+            'English'               => '1.02',
+            'ExtUtils::Command'     => '1.09',
+            'ExtUtils::Command::MM' => '0.05',
+            'ExtUtils::Constant'    => '0.17',
+            'ExtUtils::Embed'       => '1.26',
+            'ExtUtils::Install'     => '1.33',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM'          => '0.05',
+            'ExtUtils::MM_AIX'      => '0.03',
+            'ExtUtils::MM_Any'      => '0.13',
+            'ExtUtils::MM_BeOS'     => '1.05',
+            'ExtUtils::MM_Cygwin'   => '1.08',
+            'ExtUtils::MM_MacOS'    => '1.08',
+            'ExtUtils::MM_NW5'      => '2.08',
+            'ExtUtils::MM_OS2'      => '1.05',
+            'ExtUtils::MM_QNX'      => '0.02',
+            'ExtUtils::MM_Unix'     => '1.50',
+            'ExtUtils::MM_VMS'      => '5.73',
+            'ExtUtils::MM_VOS'      => '0.02',
+            'ExtUtils::MM_Win32'    => '1.12',
+            'ExtUtils::MM_Win95'    => '0.04',
+            'ExtUtils::MakeMaker'   => '6.30',
+            'ExtUtils::MakeMaker::Config'=> '0.02',
+            'ExtUtils::Manifest'    => '1.46',
+            'File::Basename'        => '2.74',
+            'File::Copy'            => '2.09',
+            'File::Find'            => '1.10',
+            'File::Glob'            => '1.05',
+            'File::Path'            => '1.08',
+            'File::Spec'            => '3.12',
+            'File::Spec::Win32'     => '1.6',
+            'FileCache'             => '1.06',
+            'Filter::Simple'        => '0.82',
+            'FindBin'               => '1.47',
+            'GDBM_File'             => '1.08',
+            'Getopt::Long'          => '2.35',
+            'IO'                    => '1.22',
+            'IO::Dir'               => '1.05',
+            'IO::File'              => '1.13',
+            'IO::Handle'            => '1.25',
+            'IO::Pipe'              => '1.13',
+            'IO::Poll'              => '0.07',
+            'IO::Seekable'          => '1.10',
+            'IO::Select'            => '1.17',
+            'IO::Socket'            => '1.29',
+            'IO::Socket::INET'      => '1.29',
+            'IO::Socket::UNIX'      => '1.22',
+            'IPC::Open2'            => '1.02',
+            'IPC::Open3'            => '1.02',
+            'List::Util'            => '1.18',
+            'MIME::Base64'          => '3.07',
+            'MIME::QuotedPrint'     => '3.07',
+            'Math::Complex'         => '1.35',
+            'Math::Trig'            => '1.03',
+            'NDBM_File'             => '1.06',
+            'ODBM_File'             => '1.06',
+            'OS2::PrfDB'            => '0.04',
+            'OS2::Process'          => '1.02',
+            'OS2::REXX'             => '1.03',
+            'Opcode'                => '1.06',
+            'POSIX'                 => '1.09',
+            'PerlIO'                => '1.04',
+            'PerlIO::encoding'      => '0.09',
+            'PerlIO::scalar'        => '0.04',
+            'PerlIO::via'           => '0.03',
+            'Pod::Checker'          => '1.43',
+            'Pod::Find'             => '1.34',
+            'Pod::Functions'        => '1.03',
+            'Pod::Html'             => '1.0504',
+            'Pod::ParseUtils'       => '1.33',
+            'Pod::Parser'           => '1.32',
+            'Pod::Usage'            => '1.33',
+            'SDBM_File'             => '1.05',
+            'Safe'                  => '2.12',
+            'Scalar::Util'          => '1.18',
+            'Socket'                => '1.78',
+            'Storable'              => '2.15',
+            'Switch'                => '2.10_01',
+            'Sys::Syslog'           => '0.13',
+            'Term::ANSIColor'       => '1.10',
+            'Term::ReadLine'        => '1.02',
+            'Test::Builder'         => '0.32',
+            'Test::Builder::Module' => '0.02',
+            'Test::Builder::Tester' => '1.02',
+            'Test::Builder::Tester::Color'=> undef,
+            'Test::Harness'         => '2.56',
+            'Test::Harness::Straps' => '0.26',
+            'Test::More'            => '0.62',
+            'Test::Simple'          => '0.62',
+            'Text::Tabs'            => '2005.0824',
+            'Text::Wrap'            => '2005.082401',
+            'Tie::Hash'             => '1.02',
+            'Time::HiRes'           => '1.86',
+            'Unicode::Collate'      => '0.52',
+            'Unicode::UCD'          => '0.24',
+            'User::grent'           => '1.01',
+            'Win32'                 => '0.2601',
+            'XS::APItest'           => '0.08',
+            'XS::Typemap'           => '0.02',
+            'XSLoader'              => '0.06',
+            'attrs'                 => '1.02',
+            'autouse'               => '1.05',
+            'blib'                  => '1.03',
+            'charnames'             => '1.05',
+            'diagnostics'           => '1.15',
+            'encoding'              => '2.02',
+            'if'                    => '0.05',
+            'open'                  => '1.05',
+            'ops'                   => '1.01',
+            'overload'              => '1.04',
+            're'                    => '0.05',
+            'threads'               => '1.07',
+            'threads::shared'       => '0.94',
+            'utf8'                  => '1.06',
+            'vmsish'                => '1.02',
+            'warnings'              => '1.05',
+            'warnings::register'    => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.008009 => {
+        delta_from => 5.008008,
+        changed => {
+            'Attribute::Handlers'   => '0.78_03',
+            'AutoLoader'            => '5.67',
+            'AutoSplit'             => '1.06',
+            'B'                     => '1.19',
+            'B::Asmdata'            => '1.02',
+            'B::Assembler'          => '0.08',
+            'B::C'                  => '1.05',
+            'B::Concise'            => '0.76',
+            'B::Debug'              => '1.05',
+            'B::Deparse'            => '0.87',
+            'B::Lint'               => '1.11',
+            'B::Lint::Debug'        => undef,
+            'B::Terse'              => '1.05',
+            'Benchmark'             => '1.1',
+            'CGI'                   => '3.42',
+            'CGI::Carp'             => '1.30_01',
+            'CGI::Cookie'           => '1.29',
+            'CGI::Fast'             => '1.07',
+            'CGI::Util'             => '1.5_01',
+            'CPAN'                  => '1.9301',
+            'CPAN::Debug'           => '5.5',
+            'CPAN::DeferedCode'     => '5.50',
+            'CPAN::Distroprefs'     => '6',
+            'CPAN::FirstTime'       => '5.5_01',
+            'CPAN::HandleConfig'    => '5.5',
+            'CPAN::Kwalify'         => '5.50',
+            'CPAN::Nox'             => '5.50',
+            'CPAN::Queue'           => '5.5',
+            'CPAN::Tarzip'          => '5.5',
+            'CPAN::Version'         => '5.5',
+            'Carp'                  => '1.10',
+            'Carp::Heavy'           => '1.10',
+            'Cwd'                   => '3.29',
+            'DBM_Filter'            => '0.02',
+            'DBM_Filter::compress'  => '0.02',
+            'DBM_Filter::encode'    => '0.02',
+            'DBM_Filter::int32'     => '0.02',
+            'DBM_Filter::null'      => '0.02',
+            'DBM_Filter::utf8'      => '0.02',
+            'DB_File'               => '1.817',
+            'Data::Dumper'          => '2.121_17',
+            'Devel::DProf'          => '20080331.00',
+            'Devel::InnerPackage'   => '0.3',
+            'Devel::PPPort'         => '3.14',
+            'Devel::Peek'           => '1.04',
+            'Digest'                => '1.15',
+            'Digest::MD5'           => '2.37',
+            'DirHandle'             => '1.02',
+            'DynaLoader'            => '1.09',
+            'Encode'                => '2.26',
+            'Encode::Alias'         => '2.10',
+            'Encode::Byte'          => '2.03',
+            'Encode::CJKConstants'  => '2.02',
+            'Encode::CN'            => '2.02',
+            'Encode::CN::HZ'        => '2.05',
+            'Encode::Config'        => '2.05',
+            'Encode::EBCDIC'        => '2.02',
+            'Encode::Encoder'       => '2.01',
+            'Encode::Encoding'      => '2.05',
+            'Encode::GSM0338'       => '2.01',
+            'Encode::Guess'         => '2.02',
+            'Encode::JP'            => '2.03',
+            'Encode::JP::H2Z'       => '2.02',
+            'Encode::JP::JIS7'      => '2.04',
+            'Encode::KR'            => '2.02',
+            'Encode::KR::2022_KR'   => '2.02',
+            'Encode::MIME::Header'  => '2.05',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.03',
+            'Encode::MIME::Name'    => '1.01',
+            'Encode::Symbol'        => '2.02',
+            'Encode::TW'            => '2.02',
+            'Encode::Unicode'       => '2.05',
+            'Encode::Unicode::UTF7' => '2.04',
+            'English'               => '1.03',
+            'Errno'                 => '1.10',
+            'Exporter'              => '5.63',
+            'Exporter::Heavy'       => '5.63',
+            'ExtUtils::Command'     => '1.15',
+            'ExtUtils::Command::MM' => '6.48',
+            'ExtUtils::Constant'    => '0.21',
+            'ExtUtils::Constant::Base'=> '0.04',
+            'ExtUtils::Constant::ProxySubs'=> '0.06',
+            'ExtUtils::Constant::Utils'=> '0.02',
+            'ExtUtils::Constant::XS'=> '0.02',
+            'ExtUtils::Embed'       => '1.28',
+            'ExtUtils::Install'     => '1.50_01',
+            'ExtUtils::Installed'   => '1.43',
+            'ExtUtils::Liblist'     => '6.48',
+            'ExtUtils::Liblist::Kid'=> '6.48',
+            'ExtUtils::MM'          => '6.48',
+            'ExtUtils::MM_AIX'      => '6.48',
+            'ExtUtils::MM_Any'      => '6.48',
+            'ExtUtils::MM_BeOS'     => '6.48',
+            'ExtUtils::MM_Cygwin'   => '6.48',
+            'ExtUtils::MM_DOS'      => '6.48',
+            'ExtUtils::MM_Darwin'   => '6.48',
+            'ExtUtils::MM_MacOS'    => '6.48',
+            'ExtUtils::MM_NW5'      => '6.48',
+            'ExtUtils::MM_OS2'      => '6.48',
+            'ExtUtils::MM_QNX'      => '6.48',
+            'ExtUtils::MM_UWIN'     => '6.48',
+            'ExtUtils::MM_Unix'     => '6.48',
+            'ExtUtils::MM_VMS'      => '6.48',
+            'ExtUtils::MM_VOS'      => '6.48',
+            'ExtUtils::MM_Win32'    => '6.48',
+            'ExtUtils::MM_Win95'    => '6.48',
+            'ExtUtils::MY'          => '6.48',
+            'ExtUtils::MakeMaker'   => '6.48',
+            'ExtUtils::MakeMaker::Config'=> '6.48',
+            'ExtUtils::MakeMaker::bytes'=> '6.48',
+            'ExtUtils::MakeMaker::vmsish'=> '6.48',
+            'ExtUtils::Manifest'    => '1.55',
+            'ExtUtils::Mkbootstrap' => '6.48',
+            'ExtUtils::Mksymlists'  => '6.48',
+            'ExtUtils::Packlist'    => '1.43',
+            'ExtUtils::ParseXS'     => '2.19',
+            'ExtUtils::XSSymSet'    => '1.1',
+            'ExtUtils::testlib'     => '6.48',
+            'Fatal'                 => '1.06',
+            'Fcntl'                 => '1.06',
+            'File::Basename'        => '2.77',
+            'File::CheckTree'       => '4.4',
+            'File::Compare'         => '1.1005',
+            'File::Copy'            => '2.13',
+            'File::DosGlob'         => '1.01',
+            'File::Find'            => '1.13',
+            'File::Glob'            => '1.06',
+            'File::Path'            => '2.07_02',
+            'File::Spec'            => '3.29',
+            'File::Spec::Cygwin'    => '3.29',
+            'File::Spec::Epoc'      => '3.29',
+            'File::Spec::Functions' => '3.29',
+            'File::Spec::Mac'       => '3.29',
+            'File::Spec::OS2'       => '3.29',
+            'File::Spec::Unix'      => '3.29',
+            'File::Spec::VMS'       => '3.29',
+            'File::Spec::Win32'     => '3.29',
+            'File::Temp'            => '0.20',
+            'File::stat'            => '1.01',
+            'FileCache'             => '1.07',
+            'Filter::Simple'        => '0.83',
+            'Filter::Util::Call'    => '1.07',
+            'FindBin'               => '1.49',
+            'GDBM_File'             => '1.09',
+            'Getopt::Long'          => '2.37',
+            'Getopt::Std'           => '1.06',
+            'Hash::Util'            => '0.06',
+            'IO'                    => '1.23',
+            'IO::Dir'               => '1.06',
+            'IO::File'              => '1.14',
+            'IO::Handle'            => '1.27',
+            'IO::Socket'            => '1.30',
+            'IO::Socket::INET'      => '1.31',
+            'IO::Socket::UNIX'      => '1.23',
+            'IPC::Msg'              => '2.00',
+            'IPC::Open2'            => '1.03',
+            'IPC::Open3'            => '1.03',
+            'IPC::Semaphore'        => '2.00',
+            'IPC::SharedMem'        => '2.00',
+            'IPC::SysV'             => '2.00',
+            'List::Util'            => '1.19',
+            'Locale::Maketext'      => '1.13',
+            'Locale::Maketext::Guts'=> '1.13',
+            'Locale::Maketext::GutsLoader'=> '1.13',
+            'Math::BigFloat'        => '1.60',
+            'Math::BigInt'          => '1.89',
+            'Math::BigInt::Calc'    => '0.52',
+            'Math::BigRat'          => '0.22',
+            'Math::Complex'         => '1.54',
+            'Math::Trig'            => '1.18',
+            'Module::CoreList'      => '2.17',
+            'Module::Pluggable'     => '3.8',
+            'Module::Pluggable::Object'=> '3.6',
+            'NDBM_File'             => '1.07',
+            'NEXT'                  => '0.61',
+            'Net::Cmd'              => '2.29',
+            'Net::Config'           => '1.11',
+            'Net::Domain'           => '2.20',
+            'Net::FTP'              => '2.77',
+            'Net::FTP::A'           => '1.18',
+            'Net::NNTP'             => '2.24',
+            'Net::POP3'             => '2.29',
+            'Net::Ping'             => '2.35',
+            'Net::SMTP'             => '2.31',
+            'O'                     => '1.01',
+            'ODBM_File'             => '1.07',
+            'OS2::DLL'              => '1.03',
+            'OS2::Process'          => '1.03',
+            'Opcode'                => '1.0601',
+            'POSIX'                 => '1.15',
+            'PerlIO'                => '1.05',
+            'PerlIO::encoding'      => '0.11',
+            'PerlIO::scalar'        => '0.06',
+            'PerlIO::via'           => '0.05',
+            'Pod::Html'             => '1.09',
+            'Pod::ParseUtils'       => '1.35',
+            'Pod::Parser'           => '1.35',
+            'Pod::Select'           => '1.35',
+            'Pod::Usage'            => '1.35',
+            'SDBM_File'             => '1.06',
+            'Safe'                  => '2.16',
+            'Scalar::Util'          => '1.19',
+            'SelfLoader'            => '1.17',
+            'Shell'                 => '0.72',
+            'Socket'                => '1.81',
+            'Storable'              => '2.19',
+            'Switch'                => '2.13',
+            'Sys::Syslog'           => '0.27',
+            'Sys::Syslog::win32::Win32'=> undef,
+            'Term::ANSIColor'       => '1.12',
+            'Term::Cap'             => '1.12',
+            'Term::ReadLine'        => '1.03',
+            'Test::Builder'         => '0.80',
+            'Test::Builder::Module' => '0.80',
+            'Test::Builder::Tester' => '1.13',
+            'Test::Harness'         => '2.64',
+            'Test::Harness::Results'=> '0.01_01',
+            'Test::Harness::Straps' => '0.26_01',
+            'Test::Harness::Util'   => '0.01',
+            'Test::More'            => '0.80',
+            'Test::Simple'          => '0.80',
+            'Text::Balanced'        => '1.98',
+            'Text::ParseWords'      => '3.27',
+            'Text::Soundex'         => '3.03',
+            'Text::Tabs'            => '2007.1117',
+            'Text::Wrap'            => '2006.1117',
+            'Thread'                => '2.01',
+            'Thread::Queue'         => '2.11',
+            'Thread::Semaphore'     => '2.09',
+            'Tie::Handle'           => '4.2',
+            'Tie::Hash'             => '1.03',
+            'Tie::Memoize'          => '1.1',
+            'Tie::RefHash'          => '1.38',
+            'Tie::Scalar'           => '1.01',
+            'Tie::StdHandle'        => '4.2',
+            'Time::HiRes'           => '1.9715',
+            'Time::Local'           => '1.1901',
+            'Time::gmtime'          => '1.03',
+            'Unicode'               => '5.1.0',
+            'Unicode::Normalize'    => '1.02',
+            'Unicode::UCD'          => '0.25',
+            'VMS::DCLsym'           => '1.03',
+            'VMS::Stdio'            => '2.4',
+            'Win32'                 => '0.38',
+            'Win32API::File'        => '0.1001_01',
+            'Win32API::File::ExtUtils::Myconst2perl'=> '1',
+            'Win32CORE'             => '0.02',
+            'XS::APItest'           => '0.15',
+            'XS::Typemap'           => '0.03',
+            'XSLoader'              => '0.10',
+            'attributes'            => '0.09',
+            'autouse'               => '1.06',
+            'base'                  => '2.13',
+            'bigint'                => '0.23',
+            'bignum'                => '0.23',
+            'bigrat'                => '0.23',
+            'blib'                  => '1.04',
+            'charnames'             => '1.06',
+            'constant'              => '1.17',
+            'diagnostics'           => '1.16',
+            'encoding'              => '2.6_01',
+            'fields'                => '2.12',
+            'filetest'              => '1.02',
+            'lib'                   => '0.61',
+            'open'                  => '1.06',
+            'ops'                   => '1.02',
+            'overload'              => '1.06',
+            're'                    => '0.0601',
+            'sigtrap'               => '1.04',
+            'threads'               => '1.71',
+            'threads::shared'       => '1.27',
+            'utf8'                  => '1.07',
+            'warnings'              => '1.05_01',
+        },
+        removed => {
+        }
+    },
+    5.009 => {
+        delta_from => 5.008002,
+        changed => {
+            'B'                     => '1.03',
+            'B::C'                  => '1.03',
+            'B::Concise'            => '0.57',
+            'B::Deparse'            => '0.65',
+            'DB_File'               => '1.806',
+            'Devel::PPPort'         => '2.008',
+            'English'               => '1.02',
+            'Fatal'                 => '1.04',
+            'OS2::DLL'              => '1.02',
+            'Opcode'                => '1.06',
+            'Time::HiRes'           => '1.51',
+            'Unicode::Collate'      => '0.28',
+            'Unicode::Normalize'    => '0.23',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'overload'              => '1.02',
+            'version'               => '0.29',
+        },
+        removed => {
+        }
+    },
+    5.009001 => {
+        delta_from => 5.008004,
+        changed => {
+            'B'                     => '1.05',
+            'B::Assembler'          => '0.06',
+            'B::C'                  => '1.04',
+            'B::Concise'            => '0.59',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.65',
+            'DB_File'               => '1.808_01',
+            'Devel::PPPort'         => '2.011_01',
+            'Digest'                => '1.05',
+            'DynaLoader'            => '1.04',
+            'English'               => '1.02',
+            'Exporter::Heavy'       => '5.567',
+            'ExtUtils::Command'     => '1.07',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.0901',
+            'ExtUtils::MM_Cygwin'   => '1.07',
+            'ExtUtils::MM_NW5'      => '2.07_01',
+            'ExtUtils::MM_Unix'     => '1.45_01',
+            'ExtUtils::MM_VMS'      => '5.71_01',
+            'ExtUtils::MM_Win32'    => '1.10_01',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.21_02',
+            'ExtUtils::Manifest'    => '1.43',
+            'Fatal'                 => '1.04',
+            'Getopt::Long'          => '2.3401',
+            'IO::Handle'            => '1.23',
+            'IO::Pipe'              => '1.122',
+            'IPC::Open3'            => '1.0105',
+            'MIME::Base64'          => '3.00_01',
+            'MIME::QuotedPrint'     => '3.00',
+            'Memoize'               => '1.01_01',
+            'ODBM_File'             => '1.04',
+            'Opcode'                => '1.06',
+            'POSIX'                 => '1.07',
+            'Storable'              => '2.11',
+            'Time::HiRes'           => '1.56',
+            'Time::Local'           => '1.07_94',
+            'UNIVERSAL'             => '1.02',
+            'Unicode'               => '4.0.0',
+            'Unicode::UCD'          => '0.21',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'base'                  => '2.04',
+            'if'                    => '0.0401',
+            'open'                  => '1.02',
+            'overload'              => '1.02',
+            'threads'               => '1.02',
+            'utf8'                  => '1.02',
+            'version'               => '0.36',
+        },
+        removed => {
+        }
+    },
+    5.009002 => {
+        delta_from => 5.008007,
+        changed => {
+            'B'                     => '1.07',
+            'B::Concise'            => '0.64',
+            'B::Deparse'            => '0.69',
+            'B::Disassembler'       => '1.03',
+            'B::Terse'              => '1.02',
+            'CGI'                   => '3.07',
+            'Config::Extensions'    => '0.01',
+            'Devel::DProf'          => '20030813.00',
+            'DynaLoader'            => '1.07',
+            'Encode'                => '2.09',
+            'Encode::Alias'         => '2.02',
+            'English'               => '1.03',
+            'Exporter'              => '5.59',
+            'Exporter::Heavy'       => '5.59',
+            'ExtUtils::Command'     => '1.07',
+            'ExtUtils::Command::MM' => '0.03_01',
+            'ExtUtils::Embed'       => '1.26',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.10',
+            'ExtUtils::MM_Cygwin'   => '1.07',
+            'ExtUtils::MM_MacOS'    => '1.08',
+            'ExtUtils::MM_NW5'      => '2.07',
+            'ExtUtils::MM_Unix'     => '1.46_01',
+            'ExtUtils::MM_VMS'      => '5.71',
+            'ExtUtils::MM_Win32'    => '1.10',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.25',
+            'ExtUtils::Manifest'    => '1.44',
+            'Fatal'                 => '1.04',
+            'File::Path'            => '1.06',
+            'FileCache'             => '1.04_01',
+            'Getopt::Long'          => '2.3401',
+            'IO::File'              => '1.10',
+            'IO::Socket::INET'      => '1.27',
+            'Math::BigFloat'        => '1.49',
+            'Math::BigInt'          => '1.75',
+            'Math::BigInt::Calc'    => '0.45',
+            'Math::BigRat'          => '0.14',
+            'Memoize'               => '1.01_01',
+            'Module::CoreList'      => '1.99',
+            'NEXT'                  => '0.60_01',
+            'Opcode'                => '1.06',
+            'Pod::Html'             => '1.0502',
+            'Scalar::Util'          => '1.14_1',
+            'Storable'              => '2.14',
+            'Symbol'                => '1.05',
+            'Test::Harness'         => '2.46',
+            'Test::Harness::Straps' => '0.20_01',
+            'Text::Balanced'        => '1.95_01',
+            'Text::Wrap'            => '2001.09292',
+            'UNIVERSAL'             => '1.02',
+            'Unicode'               => '4.0.1',
+            'Unicode::Normalize'    => '0.30',
+            'Unicode::UCD'          => '0.22',
+            'Win32'                 => '0.23',
+            'XS::APItest'           => '0.05',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'base'                  => '2.06',
+            'bigint'                => '0.06',
+            'bignum'                => '0.16',
+            'bigrat'                => '0.07',
+            'bytes'                 => '1.01',
+            'encoding::warnings'    => '0.05',
+            'if'                    => '0.0401',
+            're'                    => '0.05',
+            'threads::shared'       => '0.92',
+            'utf8'                  => '1.04',
+            'version'               => '0.42',
+            'warnings'              => '1.04',
+        },
+        removed => {
+            'Test::Harness::Point'  => 1,
+        }
+    },
+    5.009003 => {
+        delta_from => 5.008008,
+        changed => {
+            'Archive::Tar'          => '1.26_01',
+            'Archive::Tar::Constant'=> '0.02',
+            'Archive::Tar::File'    => '0.02',
+            'AutoSplit'             => '1.04_01',
+            'B'                     => '1.10',
+            'B::Bblock'             => '1.02',
+            'B::Bytecode'           => '1.01',
+            'B::C'                  => '1.04',
+            'B::CC'                 => '1.00',
+            'B::Concise'            => '0.67',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.73',
+            'B::Lint'               => '1.04',
+            'B::Terse'              => '1.03',
+            'CGI'                   => '3.15_01',
+            'CPAN'                  => '1.83_58',
+            'CPAN::Debug'           => '4.44',
+            'CPAN::FirstTime'       => '4.50',
+            'CPAN::HandleConfig'    => '4.31',
+            'CPAN::Nox'             => '2.31',
+            'CPAN::Tarzip'          => '3.36',
+            'CPAN::Version'         => '2.55',
+            'Carp'                  => '1.05',
+            'Carp::Heavy'           => '1.05',
+            'Compress::Zlib'        => '2.000_07',
+            'Compress::Zlib::Common'=> '2.000_07',
+            'Compress::Zlib::Compress::Gzip::Constants'=> '2.000_07',
+            'Compress::Zlib::Compress::Zip::Constants'=> '1.00',
+            'Compress::Zlib::CompressPlugin::Deflate'=> '2.000_05',
+            'Compress::Zlib::CompressPlugin::Identity'=> '2.000_05',
+            'Compress::Zlib::File::GlobMapper'=> '0.000_02',
+            'Compress::Zlib::FileConstants'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Base'=> '2.000_05',
+            'Compress::Zlib::IO::Compress::Deflate'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Gzip'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::RawDeflate'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Zip'=> '2.000_04',
+            'Compress::Zlib::IO::Uncompress::AnyInflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::AnyUncompress'=> '2.000_05',
+            'Compress::Zlib::IO::Uncompress::Base'=> '2.000_05',
+            'Compress::Zlib::IO::Uncompress::Gunzip'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::Inflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::RawInflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::Unzip'=> '2.000_05',
+            'Compress::Zlib::ParseParameters'=> '2.000_07',
+            'Compress::Zlib::UncompressPlugin::Identity'=> '2.000_05',
+            'Compress::Zlib::UncompressPlugin::Inflate'=> '2.000_05',
+            'Config::Extensions'    => '0.01',
+            'Cwd'                   => '3.15',
+            'Devel::PPPort'         => '3.08',
+            'Digest::SHA'           => '5.32',
+            'DirHandle'             => '1.01',
+            'DynaLoader'            => '1.07',
+            'Encode'                => '2.14',
+            'Encode::CN::HZ'        => '2.02',
+            'Encode::MIME::Header'  => '2.02',
+            'English'               => '1.04',
+            'Exporter'              => '5.59',
+            'Exporter::Heavy'       => '5.59',
+            'ExtUtils::CBuilder'    => '0.15',
+            'ExtUtils::CBuilder::Base'=> '0.12',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.12',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.12',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.12',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.12',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.12',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.12',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.01',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.13',
+            'ExtUtils::Command::MM' => '0.05_01',
+            'ExtUtils::Constant'    => '0.2',
+            'ExtUtils::Constant::Base'=> '0.02',
+            'ExtUtils::Constant::ProxySubs'=> '0.01',
+            'ExtUtils::Constant::XS'=> '0.02',
+            'ExtUtils::MM_Any'      => '0.13_01',
+            'ExtUtils::MM_Unix'     => '1.50_01',
+            'ExtUtils::MakeMaker'   => '6.30_01',
+            'ExtUtils::ParseXS'     => '2.15_02',
+            'Fatal'                 => '1.04',
+            'File::Compare'         => '1.1005',
+            'File::Spec'            => '3.15',
+            'File::Temp'            => '0.16_01',
+            'IO::File'              => '1.13_01',
+            'IO::Handle'            => '1.26',
+            'IO::Socket'            => '1.29_01',
+            'IO::Socket::INET'      => '1.29_02',
+            'IO::Socket::UNIX'      => '1.22_01',
+            'IO::Zlib'              => '1.04_02',
+            'Locale::Maketext'      => '1.10_01',
+            'Math::BigInt::FastCalc'=> '0.10',
+            'Memoize'               => '1.01_01',
+            'Module::CoreList'      => '2.02',
+            'Moped::Msg'            => '0.01',
+            'NEXT'                  => '0.60_01',
+            'Net::Cmd'              => '2.26_01',
+            'Net::Domain'           => '2.19_01',
+            'Net::Ping'             => '2.31_04',
+            'Opcode'                => '1.08',
+            'POSIX'                 => '1.10',
+            'Pod::Escapes'          => '1.04',
+            'Pod::Man'              => '2.04',
+            'Pod::Perldoc'          => '3.14_01',
+            'Pod::Simple'           => '3.04',
+            'Pod::Simple::BlackBox' => undef,
+            'Pod::Simple::Checker'  => '2.02',
+            'Pod::Simple::Debug'    => undef,
+            'Pod::Simple::DumpAsText'=> '2.02',
+            'Pod::Simple::DumpAsXML'=> '2.02',
+            'Pod::Simple::HTML'     => '3.03',
+            'Pod::Simple::HTMLBatch'=> '3.02',
+            'Pod::Simple::HTMLLegacy'=> '5.01',
+            'Pod::Simple::LinkSection'=> undef,
+            'Pod::Simple::Methody'  => '2.02',
+            'Pod::Simple::Progress' => '1.01',
+            'Pod::Simple::PullParser'=> '2.02',
+            'Pod::Simple::PullParserEndToken'=> undef,
+            'Pod::Simple::PullParserStartToken'=> undef,
+            'Pod::Simple::PullParserTextToken'=> undef,
+            'Pod::Simple::PullParserToken'=> '2.02',
+            'Pod::Simple::RTF'      => '2.02',
+            'Pod::Simple::Search'   => '3.04',
+            'Pod::Simple::SimpleTree'=> '2.02',
+            'Pod::Simple::Text'     => '2.02',
+            'Pod::Simple::TextContent'=> '2.02',
+            'Pod::Simple::TiedOutFH'=> undef,
+            'Pod::Simple::Transcode'=> undef,
+            'Pod::Simple::TranscodeDumb'=> '2.02',
+            'Pod::Simple::TranscodeSmart'=> undef,
+            'Pod::Simple::XMLOutStream'=> '2.02',
+            'Pod::Text'             => '3.01',
+            'Pod::Text::Color'      => '2.01',
+            'Pod::Text::Overstrike' => '2',
+            'Pod::Text::Termcap'    => '2.01',
+            'Pod::Usage'            => '1.33_01',
+            'SelfLoader'            => '1.0905',
+            'Storable'              => '2.15_02',
+            'Test::Builder::Module' => '0.03',
+            'Text::Balanced'        => '1.95_01',
+            'Tie::File'             => '0.97_01',
+            'UNIVERSAL'             => '1.03',
+            'XS::APItest'           => '0.09',
+            'assertions'            => '0.02',
+            'assertions::activate'  => '0.02',
+            'assertions::compat'    => undef,
+            'constant'              => '1.07',
+            'encoding::warnings'    => '0.05',
+            'feature'               => '1.00',
+            're'                    => '0.06',
+            'sort'                  => '2.00',
+            'version'               => '0.53',
+        },
+        removed => {
+        }
+    },
+    5.009004 => {
+        delta_from => 5.009003,
+        changed => {
+            'Archive::Tar'          => '1.30_01',
+            'AutoLoader'            => '5.61',
+            'B'                     => '1.11',
+            'B::Bytecode'           => '1.02',
+            'B::C'                  => '1.05',
+            'B::Concise'            => '0.69',
+            'B::Deparse'            => '0.76',
+            'B::Lint'               => '1.08',
+            'Benchmark'             => '1.08',
+            'CGI'                   => '3.20',
+            'CGI::Cookie'           => '1.27',
+            'CGI::Fast'             => '1.07',
+            'CPAN'                  => '1.87_55',
+            'CPAN::Debug'           => '5.400561',
+            'CPAN::FirstTime'       => '5.400742',
+            'CPAN::HandleConfig'    => '5.400740',
+            'CPAN::Nox'             => '5.400561',
+            'CPAN::Tarzip'          => '5.400714',
+            'CPAN::Version'         => '5.400561',
+            'Compress::Raw::Zlib'   => '2.000_13',
+            'Compress::Zlib'        => '2.000_13',
+            'Cwd'                   => '3.19',
+            'Devel::PPPort'         => '3.10',
+            'Digest'                => '1.15',
+            'Digest::SHA'           => '5.43',
+            'Encode'                => '2.18_01',
+            'Encode::Alias'         => '2.06',
+            'Encode::Byte'          => '2.02',
+            'Encode::CJKConstants'  => '2.02',
+            'Encode::CN'            => '2.02',
+            'Encode::CN::HZ'        => '2.04',
+            'Encode::Config'        => '2.03',
+            'Encode::EBCDIC'        => '2.02',
+            'Encode::Encoder'       => '2.01',
+            'Encode::Encoding'      => '2.04',
+            'Encode::Guess'         => '2.02',
+            'Encode::JP'            => '2.03',
+            'Encode::JP::H2Z'       => '2.02',
+            'Encode::JP::JIS7'      => '2.02',
+            'Encode::KR'            => '2.02',
+            'Encode::KR::2022_KR'   => '2.02',
+            'Encode::MIME::Header'  => '2.04',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.03',
+            'Encode::Symbol'        => '2.02',
+            'Encode::TW'            => '2.02',
+            'Encode::Unicode'       => '2.03',
+            'Encode::Unicode::UTF7' => '2.04',
+            'ExtUtils::CBuilder'    => '0.18',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.12_01',
+            'ExtUtils::Constant::Base'=> '0.03',
+            'ExtUtils::Constant::ProxySubs'=> '0.03',
+            'ExtUtils::Install'     => '1.41',
+            'ExtUtils::Installed'   => '1.41',
+            'ExtUtils::MM_Any'      => '0.13_02',
+            'ExtUtils::MM_NW5'      => '2.08_01',
+            'ExtUtils::MM_Unix'     => '1.5003',
+            'ExtUtils::MM_VMS'      => '5.73_03',
+            'ExtUtils::MM_Win32'    => '1.12_02',
+            'ExtUtils::MM_Win95'    => '0.04_01',
+            'ExtUtils::MakeMaker'   => '6.30_02',
+            'ExtUtils::Manifest'    => '1.46_01',
+            'ExtUtils::Mkbootstrap' => '1.15_01',
+            'ExtUtils::Mksymlists'  => '1.19_01',
+            'ExtUtils::Packlist'    => '1.41',
+            'File::Basename'        => '2.75',
+            'File::Find'            => '1.11',
+            'File::GlobMapper'      => '0.000_02',
+            'File::Spec'            => '3.19',
+            'FileCache'             => '1.07',
+            'Getopt::Long'          => '2.3501',
+            'Hash::Util'            => '0.07',
+            'Hash::Util::FieldHash' => '0.01',
+            'IO'                    => '1.23_01',
+            'IO::Compress::Adapter::Deflate'=> '2.000_13',
+            'IO::Compress::Adapter::Identity'=> '2.000_13',
+            'IO::Compress::Base'    => '2.000_13',
+            'IO::Compress::Base::Common'=> '2.000_13',
+            'IO::Compress::Deflate' => '2.000_13',
+            'IO::Compress::Gzip'    => '2.000_13',
+            'IO::Compress::Gzip::Constants'=> '2.000_13',
+            'IO::Compress::RawDeflate'=> '2.000_13',
+            'IO::Compress::Zip'     => '2.000_13',
+            'IO::Compress::Zip::Constants'=> '2.000_13',
+            'IO::Compress::Zlib::Constants'=> '2.000_13',
+            'IO::Compress::Zlib::Extra'=> '2.000_13',
+            'IO::Dir'               => '1.06',
+            'IO::File'              => '1.14',
+            'IO::Handle'            => '1.27',
+            'IO::Socket'            => '1.30_01',
+            'IO::Socket::INET'      => '1.31',
+            'IO::Socket::UNIX'      => '1.23',
+            'IO::Uncompress::Adapter::Identity'=> '2.000_13',
+            'IO::Uncompress::Adapter::Inflate'=> '2.000_13',
+            'IO::Uncompress::AnyInflate'=> '2.000_13',
+            'IO::Uncompress::AnyUncompress'=> '2.000_13',
+            'IO::Uncompress::Base'  => '2.000_13',
+            'IO::Uncompress::Gunzip'=> '2.000_13',
+            'IO::Uncompress::Inflate'=> '2.000_13',
+            'IO::Uncompress::RawInflate'=> '2.000_13',
+            'IO::Uncompress::Unzip' => '2.000_13',
+            'MIME::Base64'          => '3.07_01',
+            'Math::Complex'         => '1.36',
+            'Math::Trig'            => '1.04',
+            'Module::Build'         => '0.2805',
+            'Module::Build::Base'   => undef,
+            'Module::Build::Compat' => '0.03',
+            'Module::Build::ConfigData'=> undef,
+            'Module::Build::Cookbook'=> undef,
+            'Module::Build::ModuleInfo'=> undef,
+            'Module::Build::Notes'  => undef,
+            'Module::Build::PPMMaker'=> undef,
+            'Module::Build::Platform::Amiga'=> undef,
+            'Module::Build::Platform::Default'=> undef,
+            'Module::Build::Platform::EBCDIC'=> undef,
+            'Module::Build::Platform::MPEiX'=> undef,
+            'Module::Build::Platform::MacOS'=> undef,
+            'Module::Build::Platform::RiscOS'=> undef,
+            'Module::Build::Platform::Unix'=> undef,
+            'Module::Build::Platform::VMS'=> undef,
+            'Module::Build::Platform::VOS'=> undef,
+            'Module::Build::Platform::Windows'=> undef,
+            'Module::Build::Platform::aix'=> undef,
+            'Module::Build::Platform::cygwin'=> undef,
+            'Module::Build::Platform::darwin'=> undef,
+            'Module::Build::Platform::os2'=> undef,
+            'Module::Build::PodParser'=> undef,
+            'Module::Build::Version'=> '0',
+            'Module::Build::YAML'   => '0.50',
+            'Module::CoreList'      => '2.08',
+            'Module::Load'          => '0.10',
+            'Module::Loaded'        => '0.01',
+            'Package::Constants'    => '0.01',
+            'Pod::Html'             => '1.07',
+            'Pod::Man'              => '2.09',
+            'Pod::Text'             => '3.07',
+            'Pod::Text::Color'      => '2.03',
+            'Pod::Text::Termcap'    => '2.03',
+            'SDBM_File'             => '1.06',
+            'Shell'                 => '0.7',
+            'Sys::Syslog'           => '0.17',
+            'Term::ANSIColor'       => '1.11',
+            'Test::Builder'         => '0.33',
+            'Test::Builder::Tester' => '1.04',
+            'Test::Harness'         => '2.62',
+            'Test::Harness::Util'   => '0.01',
+            'Test::More'            => '0.64',
+            'Test::Simple'          => '0.64',
+            'Text::Balanced'        => '1.98_01',
+            'Text::ParseWords'      => '3.25',
+            'Text::Tabs'            => '2007.071101',
+            'Text::Wrap'            => '2006.0711',
+            'Tie::RefHash'          => '1.34_01',
+            'Time::HiRes'           => '1.87',
+            'Time::Local'           => '1.13',
+            'Time::gmtime'          => '1.03',
+            'UNIVERSAL'             => '1.04',
+            'Unicode::Normalize'    => '1.01',
+            'Win32API::File'        => '0.1001',
+            'Win32API::File::ExtUtils::Myconst2perl'=> '1',
+            'assertions'            => '0.03',
+            'assertions::compat'    => '0.02',
+            'autouse'               => '1.06',
+            'diagnostics'           => '1.16',
+            'encoding'              => '2.04',
+            'encoding::warnings'    => '0.10',
+            'feature'               => '1.01',
+            're'                    => '0.0601',
+            'threads'               => '1.38',
+            'threads::shared'       => '0.94_01',
+            'version'               => '0.67',
+        },
+        removed => {
+            'Compress::Zlib::Common'=> 1,
+            'Compress::Zlib::Compress::Gzip::Constants'=> 1,
+            'Compress::Zlib::Compress::Zip::Constants'=> 1,
+            'Compress::Zlib::CompressPlugin::Deflate'=> 1,
+            'Compress::Zlib::CompressPlugin::Identity'=> 1,
+            'Compress::Zlib::File::GlobMapper'=> 1,
+            'Compress::Zlib::FileConstants'=> 1,
+            'Compress::Zlib::IO::Compress::Base'=> 1,
+            'Compress::Zlib::IO::Compress::Deflate'=> 1,
+            'Compress::Zlib::IO::Compress::Gzip'=> 1,
+            'Compress::Zlib::IO::Compress::RawDeflate'=> 1,
+            'Compress::Zlib::IO::Compress::Zip'=> 1,
+            'Compress::Zlib::IO::Uncompress::AnyInflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::AnyUncompress'=> 1,
+            'Compress::Zlib::IO::Uncompress::Base'=> 1,
+            'Compress::Zlib::IO::Uncompress::Gunzip'=> 1,
+            'Compress::Zlib::IO::Uncompress::Inflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::RawInflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::Unzip'=> 1,
+            'Compress::Zlib::ParseParameters'=> 1,
+            'Compress::Zlib::UncompressPlugin::Identity'=> 1,
+            'Compress::Zlib::UncompressPlugin::Inflate'=> 1,
+        }
+    },
+    5.009005 => {
+        delta_from => 5.009004,
+        changed => {
+            'Archive::Extract'      => '0.22_01',
+            'Archive::Tar'          => '1.32',
+            'Attribute::Handlers'   => '0.78_06',
+            'AutoLoader'            => '5.63',
+            'AutoSplit'             => '1.05',
+            'B'                     => '1.16',
+            'B::Concise'            => '0.72',
+            'B::Debug'              => '1.05',
+            'B::Deparse'            => '0.82',
+            'B::Lint'               => '1.09',
+            'B::Terse'              => '1.05',
+            'Benchmark'             => '1.1',
+            'CGI'                   => '3.29',
+            'CGI::Cookie'           => '1.28',
+            'CGI::Util'             => '1.5_01',
+            'CPAN'                  => '1.9102',
+            'CPAN::Debug'           => '5.400955',
+            'CPAN::FirstTime'       => '5.401669',
+            'CPAN::HandleConfig'    => '5.401744',
+            'CPAN::Kwalify'         => '5.401418',
+            'CPAN::Nox'             => '5.400844',
+            'CPAN::Queue'           => '5.401704',
+            'CPAN::Tarzip'          => '5.401717',
+            'CPAN::Version'         => '5.401387',
+            'CPANPLUS'              => '0.81_01',
+            'CPANPLUS::Backend'     => undef,
+            'CPANPLUS::Backend::RV' => undef,
+            'CPANPLUS::Config'      => undef,
+            'CPANPLUS::Configure'   => undef,
+            'CPANPLUS::Configure::Setup'=> undef,
+            'CPANPLUS::Dist'        => undef,
+            'CPANPLUS::Dist::Base'  => '0.01',
+            'CPANPLUS::Dist::Build' => '0.06_01',
+            'CPANPLUS::Dist::Build::Constants'=> '0.01',
+            'CPANPLUS::Dist::MM'    => undef,
+            'CPANPLUS::Dist::Sample'=> undef,
+            'CPANPLUS::Error'       => undef,
+            'CPANPLUS::Internals'   => '0.81_01',
+            'CPANPLUS::Internals::Constants'=> '0.01',
+            'CPANPLUS::Internals::Constants::Report'=> '0.01',
+            'CPANPLUS::Internals::Extract'=> undef,
+            'CPANPLUS::Internals::Fetch'=> undef,
+            'CPANPLUS::Internals::Report'=> undef,
+            'CPANPLUS::Internals::Search'=> undef,
+            'CPANPLUS::Internals::Source'=> undef,
+            'CPANPLUS::Internals::Utils'=> undef,
+            'CPANPLUS::Internals::Utils::Autoflush'=> undef,
+            'CPANPLUS::Module'      => undef,
+            'CPANPLUS::Module::Author'=> undef,
+            'CPANPLUS::Module::Author::Fake'=> undef,
+            'CPANPLUS::Module::Checksums'=> undef,
+            'CPANPLUS::Module::Fake'=> undef,
+            'CPANPLUS::Module::Signature'=> undef,
+            'CPANPLUS::Selfupdate'  => undef,
+            'CPANPLUS::Shell'       => undef,
+            'CPANPLUS::Shell::Classic'=> '0.0562',
+            'CPANPLUS::Shell::Default'=> '0.81_01',
+            'CPANPLUS::Shell::Default::Plugins::Remote'=> undef,
+            'CPANPLUS::Shell::Default::Plugins::Source'=> undef,
+            'CPANPLUS::inc'         => undef,
+            'Carp'                  => '1.07',
+            'Carp::Heavy'           => '1.07',
+            'Compress::Raw::Zlib'   => '2.005',
+            'Compress::Zlib'        => '2.005',
+            'Cwd'                   => '3.25',
+            'DBM_Filter'            => '0.02',
+            'DB_File'               => '1.815',
+            'Data::Dumper'          => '2.121_13',
+            'Devel::InnerPackage'   => '0.3',
+            'Devel::PPPort'         => '3.11_01',
+            'Digest::MD5'           => '2.36_01',
+            'Digest::SHA'           => '5.44',
+            'DynaLoader'            => '1.08',
+            'Encode'                => '2.23',
+            'Encode::Alias'         => '2.07',
+            'Encode::Byte'          => '2.03',
+            'Encode::Config'        => '2.04',
+            'Encode::Encoding'      => '2.05',
+            'Encode::GSM0338'       => '2.00',
+            'Encode::JP::JIS7'      => '2.03',
+            'Encode::MIME::Header'  => '2.05',
+            'Encode::MIME::Name'    => '1.01',
+            'Encode::Unicode'       => '2.05',
+            'Errno'                 => '1.10',
+            'Exporter'              => '5.60',
+            'Exporter::Heavy'       => '5.60',
+            'ExtUtils::CBuilder'    => '0.19',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.13',
+            'ExtUtils::Command'     => '1.13',
+            'ExtUtils::Command::MM' => '0.07',
+            'ExtUtils::Constant::Base'=> '0.04',
+            'ExtUtils::Install'     => '1.41_01',
+            'ExtUtils::Liblist'     => '1.03',
+            'ExtUtils::Liblist::Kid'=> '1.33',
+            'ExtUtils::MM'          => '0.07',
+            'ExtUtils::MM_AIX'      => '0.05',
+            'ExtUtils::MM_Any'      => '0.15',
+            'ExtUtils::MM_BeOS'     => '1.07',
+            'ExtUtils::MM_Cygwin'   => '1.1',
+            'ExtUtils::MM_DOS'      => '0.04',
+            'ExtUtils::MM_MacOS'    => '1.1',
+            'ExtUtils::MM_NW5'      => '2.1',
+            'ExtUtils::MM_OS2'      => '1.07',
+            'ExtUtils::MM_QNX'      => '0.04',
+            'ExtUtils::MM_UWIN'     => '0.04',
+            'ExtUtils::MM_Unix'     => '1.54_01',
+            'ExtUtils::MM_VMS'      => '5.76',
+            'ExtUtils::MM_VOS'      => '0.04',
+            'ExtUtils::MM_Win32'    => '1.15',
+            'ExtUtils::MM_Win95'    => '0.06',
+            'ExtUtils::MY'          => '0.03',
+            'ExtUtils::MakeMaker'   => '6.36',
+            'ExtUtils::MakeMaker::Config'=> '0.04',
+            'ExtUtils::MakeMaker::bytes'=> '0.03',
+            'ExtUtils::MakeMaker::vmsish'=> '0.03',
+            'ExtUtils::Manifest'    => '1.51_01',
+            'ExtUtils::Mkbootstrap' => '1.17',
+            'ExtUtils::Mksymlists'  => '1.21',
+            'ExtUtils::ParseXS'     => '2.18',
+            'ExtUtils::XSSymSet'    => '1.1',
+            'ExtUtils::testlib'     => '1.17',
+            'Fatal'                 => '1.05',
+            'Fcntl'                 => '1.06',
+            'File::Basename'        => '2.76',
+            'File::Copy'            => '2.10',
+            'File::Fetch'           => '0.10',
+            'File::Glob'            => '1.06',
+            'File::Path'            => '2.01',
+            'File::Spec'            => '3.25',
+            'File::Spec::Cygwin'    => '1.1_01',
+            'File::Spec::VMS'       => '1.4_01',
+            'File::Temp'            => '0.18',
+            'Filter::Util::Call'    => '1.0602',
+            'FindBin'               => '1.49',
+            'Getopt::Long'          => '2.36',
+            'Hash::Util::FieldHash' => '1.01',
+            'IO::Compress::Adapter::Deflate'=> '2.005',
+            'IO::Compress::Adapter::Identity'=> '2.005',
+            'IO::Compress::Base'    => '2.005',
+            'IO::Compress::Base::Common'=> '2.005',
+            'IO::Compress::Deflate' => '2.005',
+            'IO::Compress::Gzip'    => '2.005',
+            'IO::Compress::Gzip::Constants'=> '2.005',
+            'IO::Compress::RawDeflate'=> '2.005',
+            'IO::Compress::Zip'     => '2.005',
+            'IO::Compress::Zip::Constants'=> '2.005',
+            'IO::Compress::Zlib::Constants'=> '2.005',
+            'IO::Compress::Zlib::Extra'=> '2.005',
+            'IO::Uncompress::Adapter::Identity'=> '2.005',
+            'IO::Uncompress::Adapter::Inflate'=> '2.005',
+            'IO::Uncompress::AnyInflate'=> '2.005',
+            'IO::Uncompress::AnyUncompress'=> '2.005',
+            'IO::Uncompress::Base'  => '2.005',
+            'IO::Uncompress::Gunzip'=> '2.005',
+            'IO::Uncompress::Inflate'=> '2.005',
+            'IO::Uncompress::RawInflate'=> '2.005',
+            'IO::Uncompress::Unzip' => '2.005',
+            'IO::Zlib'              => '1.05_01',
+            'IPC::Cmd'              => '0.36_01',
+            'List::Util'            => '1.19',
+            'Locale::Maketext::Simple'=> '0.18',
+            'Log::Message'          => '0.01',
+            'Log::Message::Config'  => '0.01',
+            'Log::Message::Handlers'=> undef,
+            'Log::Message::Item'    => undef,
+            'Log::Message::Simple'  => '0.0201',
+            'Math::BigFloat'        => '1.58',
+            'Math::BigInt'          => '1.87',
+            'Math::BigInt::Calc'    => '0.51',
+            'Math::BigInt::FastCalc'=> '0.15_01',
+            'Math::BigRat'          => '0.19',
+            'Math::Complex'         => '1.37',
+            'Memoize'               => '1.01_02',
+            'Module::Build'         => '0.2808',
+            'Module::Build::Config' => undef,
+            'Module::Build::Version'=> '0.7203',
+            'Module::CoreList'      => '2.12',
+            'Module::Load::Conditional'=> '0.16',
+            'Module::Pluggable'     => '3.6',
+            'Module::Pluggable::Object'=> '3.6',
+            'NDBM_File'             => '1.07',
+            'Net::Cmd'              => '2.28',
+            'Net::Config'           => '1.11',
+            'Net::Domain'           => '2.20',
+            'Net::FTP'              => '2.77',
+            'Net::FTP::A'           => '1.18',
+            'Net::NNTP'             => '2.24',
+            'Net::POP3'             => '2.29',
+            'Net::SMTP'             => '2.31',
+            'ODBM_File'             => '1.07',
+            'OS2::DLL'              => '1.03',
+            'Object::Accessor'      => '0.32',
+            'Opcode'                => '1.09',
+            'POSIX'                 => '1.13',
+            'Params::Check'         => '0.26',
+            'PerlIO::encoding'      => '0.10',
+            'PerlIO::scalar'        => '0.05',
+            'PerlIO::via'           => '0.04',
+            'Pod::Html'             => '1.08',
+            'Pod::Man'              => '2.12',
+            'Pod::ParseUtils'       => '1.35',
+            'Pod::Parser'           => '1.35',
+            'Pod::Select'           => '1.35',
+            'Pod::Simple'           => '3.05',
+            'Pod::Text'             => '3.08',
+            'Pod::Usage'            => '1.35',
+            'Scalar::Util'          => '1.19',
+            'SelfLoader'            => '1.11',
+            'Shell'                 => '0.72_01',
+            'Socket'                => '1.79',
+            'Storable'              => '2.16',
+            'Switch'                => '2.13',
+            'Sys::Syslog'           => '0.18_01',
+            'Term::ANSIColor'       => '1.12',
+            'Term::UI'              => '0.14_01',
+            'Term::UI::History'     => undef,
+            'Test::Builder'         => '0.70',
+            'Test::Builder::Module' => '0.68',
+            'Test::Builder::Tester' => '1.07',
+            'Test::Harness'         => '2.64',
+            'Test::Harness::Results'=> '0.01',
+            'Test::More'            => '0.70',
+            'Test::Simple'          => '0.70',
+            'Text::Balanced'        => '2.0.0',
+            'Text::Soundex'         => '3.02',
+            'Text::Tabs'            => '2007.1117',
+            'Text::Wrap'            => '2006.1117',
+            'Thread'                => '3.02',
+            'Tie::File'             => '0.97_02',
+            'Tie::Hash::NamedCapture'=> '0.06',
+            'Tie::Memoize'          => '1.1',
+            'Tie::RefHash'          => '1.37',
+            'Time::HiRes'           => '1.9707',
+            'Time::Local'           => '1.17',
+            'Time::Piece'           => '1.11_02',
+            'Time::Seconds'         => undef,
+            'Unicode'               => '5.0.0',
+            'Unicode::Normalize'    => '1.02',
+            'Unicode::UCD'          => '0.25',
+            'VMS::DCLsym'           => '1.03',
+            'Win32'                 => '0.30',
+            'Win32API::File'        => '0.1001_01',
+            'Win32CORE'             => '0.02',
+            'XS::APItest'           => '0.12',
+            'XSLoader'              => '0.08',
+            'attributes'            => '0.08',
+            'base'                  => '2.12',
+            'bigint'                => '0.22',
+            'bignum'                => '0.22',
+            'bigrat'                => '0.22',
+            'bytes'                 => '1.03',
+            'charnames'             => '1.06',
+            'constant'              => '1.10',
+            'diagnostics'           => '1.17',
+            'encoding'              => '2.06',
+            'encoding::warnings'    => '0.11',
+            'feature'               => '1.10',
+            'fields'                => '2.12',
+            'less'                  => '0.02',
+            'mro'                   => '1.00',
+            'overload'              => '1.06',
+            're'                    => '0.08',
+            'sigtrap'               => '1.04',
+            'sort'                  => '2.01',
+            'strict'                => '1.04',
+            'threads'               => '1.63',
+            'threads::shared'       => '1.12',
+            'utf8'                  => '1.07',
+            'version'               => '0.7203',
+            'warnings'              => '1.06',
+        },
+        removed => {
+            'B::Asmdata'            => 1,
+            'B::Assembler'          => 1,
+            'B::Bblock'             => 1,
+            'B::Bytecode'           => 1,
+            'B::C'                  => 1,
+            'B::CC'                 => 1,
+            'B::Disassembler'       => 1,
+            'B::Stackobj'           => 1,
+            'B::Stash'              => 1,
+            'ByteLoader'            => 1,
+            'Thread::Signal'        => 1,
+            'Thread::Specific'      => 1,
+            'assertions'            => 1,
+            'assertions::activate'  => 1,
+            'assertions::compat'    => 1,
+        }
+    },
+    5.01 => {
+        delta_from => 5.009005,
+        changed => {
+            'Archive::Extract'      => '0.24',
+            'Archive::Tar'          => '1.38',
+            'Attribute::Handlers'   => '0.79',
+            'B'                     => '1.17',
+            'B::Concise'            => '0.74',
+            'B::Deparse'            => '0.83',
+            'CPAN'                  => '1.9205',
+            'CPAN::API::HOWTO'      => undef,
+            'CPAN::Debug'           => '5.402212',
+            'CPAN::DeferedCode'     => '5.50',
+            'CPAN::FirstTime'       => '5.402229',
+            'CPAN::HandleConfig'    => '5.402212',
+            'CPAN::Nox'             => '5.402411',
+            'CPAN::Queue'           => '5.402212',
+            'CPAN::Tarzip'          => '5.402213',
+            'CPAN::Version'         => '5.5',
+            'CPANPLUS'              => '0.84',
+            'CPANPLUS::Dist::Build' => '0.06_02',
+            'CPANPLUS::Internals'   => '0.84',
+            'CPANPLUS::Shell::Default'=> '0.84',
+            'CPANPLUS::Shell::Default::Plugins::CustomSource'=> undef,
+            'Carp'                  => '1.08',
+            'Carp::Heavy'           => '1.08',
+            'Compress::Raw::Zlib'   => '2.008',
+            'Compress::Zlib'        => '2.008',
+            'Cwd'                   => '3.2501',
+            'DB_File'               => '1.816_1',
+            'Data::Dumper'          => '2.121_14',
+            'Devel::PPPort'         => '3.13',
+            'Digest::SHA'           => '5.45',
+            'Exporter'              => '5.62',
+            'Exporter::Heavy'       => '5.62',
+            'ExtUtils::CBuilder'    => '0.21',
+            'ExtUtils::CBuilder::Base'=> '0.21',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.21',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.22',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.21',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.21',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.21',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.21',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.21',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.21',
+            'ExtUtils::Command::MM' => '6.42',
+            'ExtUtils::Constant::ProxySubs'=> '0.05',
+            'ExtUtils::Embed'       => '1.27',
+            'ExtUtils::Install'     => '1.44',
+            'ExtUtils::Installed'   => '1.43',
+            'ExtUtils::Liblist'     => '6.42',
+            'ExtUtils::Liblist::Kid'=> '6.42',
+            'ExtUtils::MM'          => '6.42',
+            'ExtUtils::MM_AIX'      => '6.42',
+            'ExtUtils::MM_Any'      => '6.42',
+            'ExtUtils::MM_BeOS'     => '6.42',
+            'ExtUtils::MM_Cygwin'   => '6.42',
+            'ExtUtils::MM_DOS'      => '6.42',
+            'ExtUtils::MM_MacOS'    => '6.42',
+            'ExtUtils::MM_NW5'      => '6.42',
+            'ExtUtils::MM_OS2'      => '6.42',
+            'ExtUtils::MM_QNX'      => '6.42',
+            'ExtUtils::MM_UWIN'     => '6.42',
+            'ExtUtils::MM_Unix'     => '6.42',
+            'ExtUtils::MM_VMS'      => '6.42',
+            'ExtUtils::MM_VOS'      => '6.42',
+            'ExtUtils::MM_Win32'    => '6.42',
+            'ExtUtils::MM_Win95'    => '6.42',
+            'ExtUtils::MY'          => '6.42',
+            'ExtUtils::MakeMaker'   => '6.42',
+            'ExtUtils::MakeMaker::Config'=> '6.42',
+            'ExtUtils::MakeMaker::bytes'=> '6.42',
+            'ExtUtils::MakeMaker::vmsish'=> '6.42',
+            'ExtUtils::Mkbootstrap' => '6.42',
+            'ExtUtils::Mksymlists'  => '6.42',
+            'ExtUtils::Packlist'    => '1.43',
+            'ExtUtils::ParseXS'     => '2.18_02',
+            'ExtUtils::testlib'     => '6.42',
+            'File::Copy'            => '2.11',
+            'File::Fetch'           => '0.14',
+            'File::Find'            => '1.12',
+            'File::Path'            => '2.04',
+            'File::Spec'            => '3.2501',
+            'File::Spec::Cygwin'    => '3.2501',
+            'File::Spec::Epoc'      => '3.2501',
+            'File::Spec::Functions' => '3.2501',
+            'File::Spec::Mac'       => '3.2501',
+            'File::Spec::OS2'       => '3.2501',
+            'File::Spec::Unix'      => '3.2501',
+            'File::Spec::VMS'       => '3.2501',
+            'File::Spec::Win32'     => '3.2501',
+            'Filter::Util::Call'    => '1.07',
+            'Getopt::Long'          => '2.37',
+            'Hash::Util::FieldHash' => '1.03',
+            'IO::Compress::Adapter::Deflate'=> '2.008',
+            'IO::Compress::Adapter::Identity'=> '2.008',
+            'IO::Compress::Base'    => '2.008',
+            'IO::Compress::Base::Common'=> '2.008',
+            'IO::Compress::Deflate' => '2.008',
+            'IO::Compress::Gzip'    => '2.008',
+            'IO::Compress::Gzip::Constants'=> '2.008',
+            'IO::Compress::RawDeflate'=> '2.008',
+            'IO::Compress::Zip'     => '2.008',
+            'IO::Compress::Zip::Constants'=> '2.008',
+            'IO::Compress::Zlib::Constants'=> '2.008',
+            'IO::Compress::Zlib::Extra'=> '2.008',
+            'IO::Uncompress::Adapter::Identity'=> '2.008',
+            'IO::Uncompress::Adapter::Inflate'=> '2.008',
+            'IO::Uncompress::AnyInflate'=> '2.008',
+            'IO::Uncompress::AnyUncompress'=> '2.008',
+            'IO::Uncompress::Base'  => '2.008',
+            'IO::Uncompress::Gunzip'=> '2.008',
+            'IO::Uncompress::Inflate'=> '2.008',
+            'IO::Uncompress::RawInflate'=> '2.008',
+            'IO::Uncompress::Unzip' => '2.008',
+            'IO::Zlib'              => '1.07',
+            'IPC::Cmd'              => '0.40_1',
+            'IPC::SysV'             => '1.05',
+            'Locale::Maketext'      => '1.12',
+            'Log::Message::Simple'  => '0.04',
+            'Math::BigFloat'        => '1.59',
+            'Math::BigInt'          => '1.88',
+            'Math::BigInt::Calc'    => '0.52',
+            'Math::BigInt::FastCalc'=> '0.16',
+            'Math::BigRat'          => '0.21',
+            'Module::Build'         => '0.2808_01',
+            'Module::Build::Base'   => '0.2808_01',
+            'Module::Build::Compat' => '0.2808_01',
+            'Module::Build::Config' => '0.2808_01',
+            'Module::Build::Dumper' => undef,
+            'Module::Build::ModuleInfo'=> '0.2808_01',
+            'Module::Build::Notes'  => '0.2808_01',
+            'Module::Build::PPMMaker'=> '0.2808_01',
+            'Module::Build::Platform::Amiga'=> '0.2808_01',
+            'Module::Build::Platform::Default'=> '0.2808_01',
+            'Module::Build::Platform::EBCDIC'=> '0.2808_01',
+            'Module::Build::Platform::MPEiX'=> '0.2808_01',
+            'Module::Build::Platform::MacOS'=> '0.2808_01',
+            'Module::Build::Platform::RiscOS'=> '0.2808_01',
+            'Module::Build::Platform::Unix'=> '0.2808_01',
+            'Module::Build::Platform::VMS'=> '0.2808_01',
+            'Module::Build::Platform::VOS'=> '0.2808_01',
+            'Module::Build::Platform::Windows'=> '0.2808_01',
+            'Module::Build::Platform::aix'=> '0.2808_01',
+            'Module::Build::Platform::cygwin'=> '0.2808_01',
+            'Module::Build::Platform::darwin'=> '0.2808_01',
+            'Module::Build::Platform::os2'=> '0.2808_01',
+            'Module::Build::PodParser'=> '0.2808_01',
+            'Module::CoreList'      => '2.13',
+            'Module::Load'          => '0.12',
+            'Module::Load::Conditional'=> '0.22',
+            'Net::Cmd'              => '2.29',
+            'Net::Ping'             => '2.33',
+            'Opcode'                => '1.11',
+            'Pod::Checker'          => '1.43_01',
+            'Pod::Man'              => '2.16',
+            'Pod::Perldoc'          => '3.14_02',
+            'Socket'                => '1.80',
+            'Storable'              => '2.18',
+            'Sys::Syslog'           => '0.22',
+            'Sys::Syslog::win32::Win32'=> undef,
+            'Term::Cap'             => '1.12',
+            'Term::ReadLine'        => '1.03',
+            'Term::UI'              => '0.18',
+            'Test::Builder'         => '0.72',
+            'Test::Builder::Module' => '0.72',
+            'Test::Builder::Tester' => '1.09',
+            'Test::Harness::Straps' => '0.26_01',
+            'Test::More'            => '0.72',
+            'Test::Simple'          => '0.72',
+            'Text::ParseWords'      => '3.26',
+            'Text::Soundex'         => '3.03',
+            'Tie::StdHandle'        => undef,
+            'Time::HiRes'           => '1.9711',
+            'Time::Local'           => '1.18',
+            'Time::Piece'           => '1.12',
+            'VMS::Filespec'         => '1.12',
+            'Win32'                 => '0.34',
+            'base'                  => '2.13',
+            'constant'              => '1.13',
+            'feature'               => '1.11',
+            'fields'                => '2.13',
+            'filetest'              => '1.02',
+            'open'                  => '1.06',
+            'threads'               => '1.67',
+            'threads::shared'       => '1.14',
+            'version'               => '0.74',
+        },
+        removed => {
+        }
+    },
+    5.010001 => {
+        delta_from => 5.01,
+        changed => {
+            'App::Prove'            => '3.17',
+            'App::Prove::State'     => '3.17',
+            'App::Prove::State::Result'=> '3.17',
+            'App::Prove::State::Result::Test'=> '3.17',
+            'Archive::Extract'      => '0.34',
+            'Archive::Tar'          => '1.52',
+            'Attribute::Handlers'   => '0.85',
+            'AutoLoader'            => '5.68',
+            'AutoSplit'             => '1.06',
+            'B'                     => '1.22',
+            'B::Concise'            => '0.76',
+            'B::Debug'              => '1.11',
+            'B::Deparse'            => '0.89',
+            'B::Lint'               => '1.11',
+            'B::Lint::Debug'        => undef,
+            'B::Xref'               => '1.02',
+            'Benchmark'             => '1.11',
+            'CGI'                   => '3.43',
+            'CGI::Carp'             => '1.30_01',
+            'CGI::Cookie'           => '1.29',
+            'CPAN'                  => '1.9402',
+            'CPAN::Author'          => '5.5',
+            'CPAN::Bundle'          => '5.5',
+            'CPAN::CacheMgr'        => '5.5',
+            'CPAN::Complete'        => '5.5',
+            'CPAN::Debug'           => '5.5',
+            'CPAN::DeferredCode'    => '5.50',
+            'CPAN::Distribution'    => '1.93',
+            'CPAN::Distroprefs'     => '6',
+            'CPAN::Distrostatus'    => '5.5',
+            'CPAN::Exception::RecursiveDependency'=> '5.5',
+            'CPAN::Exception::blocked_urllist'=> '1.0',
+            'CPAN::Exception::yaml_not_installed'=> '5.5',
+            'CPAN::FTP'             => '5.5001',
+            'CPAN::FTP::netrc'      => '1.00',
+            'CPAN::FirstTime'       => '5.53',
+            'CPAN::HandleConfig'    => '5.5',
+            'CPAN::Index'           => '1.93',
+            'CPAN::InfoObj'         => '5.5',
+            'CPAN::Kwalify'         => '5.50',
+            'CPAN::LWP::UserAgent'  => '1.00',
+            'CPAN::Module'          => '5.5',
+            'CPAN::Nox'             => '5.50',
+            'CPAN::Prompt'          => '5.5',
+            'CPAN::Queue'           => '5.5',
+            'CPAN::Shell'           => '5.5',
+            'CPAN::Tarzip'          => '5.501',
+            'CPAN::URL'             => '5.5',
+            'CPANPLUS'              => '0.88',
+            'CPANPLUS::Dist::Autobundle'=> undef,
+            'CPANPLUS::Dist::Base'  => undef,
+            'CPANPLUS::Dist::Build' => '0.36',
+            'CPANPLUS::Dist::Build::Constants'=> '0.36',
+            'CPANPLUS::Internals'   => '0.88',
+            'CPANPLUS::Internals::Constants'=> undef,
+            'CPANPLUS::Internals::Constants::Report'=> undef,
+            'CPANPLUS::Internals::Source::Memory'=> undef,
+            'CPANPLUS::Internals::Source::SQLite'=> undef,
+            'CPANPLUS::Internals::Source::SQLite::Tie'=> undef,
+            'CPANPLUS::Shell::Default'=> '0.88',
+            'Carp'                  => '1.11',
+            'Carp::Heavy'           => '1.11',
+            'Compress::Raw::Bzip2'  => '2.020',
+            'Compress::Raw::Zlib'   => '2.020',
+            'Compress::Zlib'        => '2.020',
+            'Cwd'                   => '3.30',
+            'DB'                    => '1.02',
+            'DBM_Filter::compress'  => '0.02',
+            'DBM_Filter::encode'    => '0.02',
+            'DBM_Filter::int32'     => '0.02',
+            'DBM_Filter::null'      => '0.02',
+            'DBM_Filter::utf8'      => '0.02',
+            'DB_File'               => '1.820',
+            'Data::Dumper'          => '2.124',
+            'Devel::DProf'          => '20080331.00',
+            'Devel::PPPort'         => '3.19',
+            'Devel::Peek'           => '1.04',
+            'Digest'                => '1.16',
+            'Digest::MD5'           => '2.39',
+            'Digest::SHA'           => '5.47',
+            'Digest::base'          => '1.16',
+            'Digest::file'          => '1.16',
+            'DirHandle'             => '1.03',
+            'Dumpvalue'             => '1.13',
+            'DynaLoader'            => '1.10',
+            'Encode'                => '2.35',
+            'Encode::Alias'         => '2.12',
+            'Encode::CN::HZ'        => '2.05',
+            'Encode::Config'        => '2.05',
+            'Encode::GSM0338'       => '2.01',
+            'Encode::Guess'         => '2.03',
+            'Encode::JP::JIS7'      => '2.04',
+            'Encode::MIME::Header'  => '2.11',
+            'Encode::Unicode'       => '2.06',
+            'Errno'                 => '1.11',
+            'Exporter'              => '5.63',
+            'Exporter::Heavy'       => '5.63',
+            'ExtUtils::CBuilder'    => '0.2602',
+            'ExtUtils::CBuilder::Base'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.2602',
+            'ExtUtils::Command'     => '1.16',
+            'ExtUtils::Command::MM' => '6.55_02',
+            'ExtUtils::Constant'    => '0.22',
+            'ExtUtils::Constant::ProxySubs'=> '0.06',
+            'ExtUtils::Constant::Utils'=> '0.02',
+            'ExtUtils::Constant::XS'=> '0.03',
+            'ExtUtils::Embed'       => '1.28',
+            'ExtUtils::Install'     => '1.54',
+            'ExtUtils::Installed'   => '1.999_001',
+            'ExtUtils::Liblist'     => '6.55_02',
+            'ExtUtils::Liblist::Kid'=> '6.5502',
+            'ExtUtils::MM'          => '6.55_02',
+            'ExtUtils::MM_AIX'      => '6.55_02',
+            'ExtUtils::MM_Any'      => '6.55_02',
+            'ExtUtils::MM_BeOS'     => '6.55_02',
+            'ExtUtils::MM_Cygwin'   => '6.55_02',
+            'ExtUtils::MM_DOS'      => '6.5502',
+            'ExtUtils::MM_Darwin'   => '6.55_02',
+            'ExtUtils::MM_MacOS'    => '6.5502',
+            'ExtUtils::MM_NW5'      => '6.55_02',
+            'ExtUtils::MM_OS2'      => '6.55_02',
+            'ExtUtils::MM_QNX'      => '6.55_02',
+            'ExtUtils::MM_UWIN'     => '6.5502',
+            'ExtUtils::MM_Unix'     => '6.55_02',
+            'ExtUtils::MM_VMS'      => '6.55_02',
+            'ExtUtils::MM_VOS'      => '6.55_02',
+            'ExtUtils::MM_Win32'    => '6.55_02',
+            'ExtUtils::MM_Win95'    => '6.55_02',
+            'ExtUtils::MY'          => '6.5502',
+            'ExtUtils::MakeMaker'   => '6.55_02',
+            'ExtUtils::MakeMaker::Config'=> '6.55_02',
+            'ExtUtils::Manifest'    => '1.56',
+            'ExtUtils::Mkbootstrap' => '6.55_02',
+            'ExtUtils::Mksymlists'  => '6.55_02',
+            'ExtUtils::ParseXS'     => '2.2002',
+            'ExtUtils::testlib'     => '6.5502',
+            'Fatal'                 => '2.06_01',
+            'File::Basename'        => '2.77',
+            'File::CheckTree'       => '4.4',
+            'File::Compare'         => '1.1006',
+            'File::Copy'            => '2.14',
+            'File::DosGlob'         => '1.01',
+            'File::Fetch'           => '0.20',
+            'File::Find'            => '1.14',
+            'File::GlobMapper'      => '1.000',
+            'File::Path'            => '2.07_03',
+            'File::Spec'            => '3.30',
+            'File::Spec::Cygwin'    => '3.30',
+            'File::Spec::Epoc'      => '3.30',
+            'File::Spec::Functions' => '3.30',
+            'File::Spec::Mac'       => '3.30',
+            'File::Spec::OS2'       => '3.30',
+            'File::Spec::Unix'      => '3.30',
+            'File::Spec::VMS'       => '3.30',
+            'File::Spec::Win32'     => '3.30',
+            'File::Temp'            => '0.22',
+            'File::stat'            => '1.01',
+            'FileCache'             => '1.08',
+            'FileHandle'            => '2.02',
+            'Filter::Simple'        => '0.84',
+            'Filter::Util::Call'    => '1.08',
+            'FindBin'               => '1.50',
+            'GDBM_File'             => '1.09',
+            'Getopt::Long'          => '2.38',
+            'Getopt::Std'           => '1.06',
+            'Hash::Util::FieldHash' => '1.04',
+            'I18N::Collate'         => '1.01',
+            'IO'                    => '1.25',
+            'IO::Compress::Adapter::Bzip2'=> '2.020',
+            'IO::Compress::Adapter::Deflate'=> '2.020',
+            'IO::Compress::Adapter::Identity'=> '2.020',
+            'IO::Compress::Base'    => '2.020',
+            'IO::Compress::Base::Common'=> '2.020',
+            'IO::Compress::Bzip2'   => '2.020',
+            'IO::Compress::Deflate' => '2.020',
+            'IO::Compress::Gzip'    => '2.020',
+            'IO::Compress::Gzip::Constants'=> '2.020',
+            'IO::Compress::RawDeflate'=> '2.020',
+            'IO::Compress::Zip'     => '2.020',
+            'IO::Compress::Zip::Constants'=> '2.020',
+            'IO::Compress::Zlib::Constants'=> '2.020',
+            'IO::Compress::Zlib::Extra'=> '2.020',
+            'IO::Dir'               => '1.07',
+            'IO::Handle'            => '1.28',
+            'IO::Socket'            => '1.31',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.020',
+            'IO::Uncompress::Adapter::Identity'=> '2.020',
+            'IO::Uncompress::Adapter::Inflate'=> '2.020',
+            'IO::Uncompress::AnyInflate'=> '2.020',
+            'IO::Uncompress::AnyUncompress'=> '2.020',
+            'IO::Uncompress::Base'  => '2.020',
+            'IO::Uncompress::Bunzip2'=> '2.020',
+            'IO::Uncompress::Gunzip'=> '2.020',
+            'IO::Uncompress::Inflate'=> '2.020',
+            'IO::Uncompress::RawInflate'=> '2.020',
+            'IO::Uncompress::Unzip' => '2.020',
+            'IO::Zlib'              => '1.09',
+            'IPC::Cmd'              => '0.46',
+            'IPC::Msg'              => '2.01',
+            'IPC::Open2'            => '1.03',
+            'IPC::Open3'            => '1.04',
+            'IPC::Semaphore'        => '2.01',
+            'IPC::SharedMem'        => '2.01',
+            'IPC::SysV'             => '2.01',
+            'List::Util'            => '1.21',
+            'List::Util::PP'        => '1.21',
+            'List::Util::XS'        => '1.21',
+            'Locale::Maketext'      => '1.13',
+            'Locale::Maketext::Guts'=> '1.13',
+            'Locale::Maketext::GutsLoader'=> '1.13',
+            'Log::Message'          => '0.02',
+            'MIME::Base64'          => '3.08',
+            'MIME::QuotedPrint'     => '3.08',
+            'Math::BigFloat'        => '1.60',
+            'Math::BigInt'          => '1.89',
+            'Math::BigInt::FastCalc'=> '0.19',
+            'Math::BigRat'          => '0.22',
+            'Math::Complex'         => '1.56',
+            'Math::Trig'            => '1.2',
+            'Memoize'               => '1.01_03',
+            'Module::Build'         => '0.340201',
+            'Module::Build::Base'   => '0.340201',
+            'Module::Build::Compat' => '0.340201',
+            'Module::Build::Config' => '0.340201',
+            'Module::Build::Cookbook'=> '0.340201',
+            'Module::Build::Dumper' => '0.340201',
+            'Module::Build::ModuleInfo'=> '0.340201',
+            'Module::Build::Notes'  => '0.340201',
+            'Module::Build::PPMMaker'=> '0.340201',
+            'Module::Build::Platform::Amiga'=> '0.340201',
+            'Module::Build::Platform::Default'=> '0.340201',
+            'Module::Build::Platform::EBCDIC'=> '0.340201',
+            'Module::Build::Platform::MPEiX'=> '0.340201',
+            'Module::Build::Platform::MacOS'=> '0.340201',
+            'Module::Build::Platform::RiscOS'=> '0.340201',
+            'Module::Build::Platform::Unix'=> '0.340201',
+            'Module::Build::Platform::VMS'=> '0.340201',
+            'Module::Build::Platform::VOS'=> '0.340201',
+            'Module::Build::Platform::Windows'=> '0.340201',
+            'Module::Build::Platform::aix'=> '0.340201',
+            'Module::Build::Platform::cygwin'=> '0.340201',
+            'Module::Build::Platform::darwin'=> '0.340201',
+            'Module::Build::Platform::os2'=> '0.340201',
+            'Module::Build::PodParser'=> '0.340201',
+            'Module::Build::Version'=> '0.77',
+            'Module::CoreList'      => '2.18',
+            'Module::Load'          => '0.16',
+            'Module::Load::Conditional'=> '0.30',
+            'Module::Loaded'        => '0.02',
+            'Module::Pluggable'     => '3.9',
+            'Module::Pluggable::Object'=> '3.9',
+            'NDBM_File'             => '1.08',
+            'NEXT'                  => '0.64',
+            'Net::Ping'             => '2.36',
+            'O'                     => '1.01',
+            'OS2::Process'          => '1.03',
+            'OS2::REXX'             => '1.04',
+            'Object::Accessor'      => '0.34',
+            'POSIX'                 => '1.17',
+            'Package::Constants'    => '0.02',
+            'Parse::CPAN::Meta'     => '1.39',
+            'PerlIO'                => '1.06',
+            'PerlIO::encoding'      => '0.11',
+            'PerlIO::scalar'        => '0.07',
+            'PerlIO::via'           => '0.07',
+            'Pod::Checker'          => '1.45',
+            'Pod::Find'             => '1.35',
+            'Pod::Html'             => '1.09',
+            'Pod::InputObjects'     => '1.31',
+            'Pod::Man'              => '2.22',
+            'Pod::ParseLink'        => '1.09',
+            'Pod::ParseUtils'       => '1.36',
+            'Pod::Parser'           => '1.37',
+            'Pod::Perldoc'          => '3.14_04',
+            'Pod::PlainText'        => '2.04',
+            'Pod::Select'           => '1.36',
+            'Pod::Simple'           => '3.07',
+            'Pod::Simple::XHTML'    => '3.04',
+            'Pod::Text'             => '3.13',
+            'Pod::Text::Color'      => '2.05',
+            'Pod::Text::Overstrike' => '2.03',
+            'Pod::Text::Termcap'    => '2.05',
+            'Pod::Usage'            => '1.36',
+            'Safe'                  => '2.18',
+            'Scalar::Util'          => '1.21',
+            'Scalar::Util::PP'      => '1.21',
+            'SelectSaver'           => '1.02',
+            'SelfLoader'            => '1.17',
+            'Socket'                => '1.82',
+            'Storable'              => '2.20',
+            'Switch'                => '2.14',
+            'Symbol'                => '1.07',
+            'Sys::Syslog'           => '0.27',
+            'TAP::Base'             => '3.17',
+            'TAP::Formatter::Base'  => '3.17',
+            'TAP::Formatter::Color' => '3.17',
+            'TAP::Formatter::Console'=> '3.17',
+            'TAP::Formatter::Console::ParallelSession'=> '3.17',
+            'TAP::Formatter::Console::Session'=> '3.17',
+            'TAP::Formatter::File'  => '3.17',
+            'TAP::Formatter::File::Session'=> '3.17',
+            'TAP::Formatter::Session'=> '3.17',
+            'TAP::Harness'          => '3.17',
+            'TAP::Object'           => '3.17',
+            'TAP::Parser'           => '3.17',
+            'TAP::Parser::Aggregator'=> '3.17',
+            'TAP::Parser::Grammar'  => '3.17',
+            'TAP::Parser::Iterator' => '3.17',
+            'TAP::Parser::Iterator::Array'=> '3.17',
+            'TAP::Parser::Iterator::Process'=> '3.17',
+            'TAP::Parser::Iterator::Stream'=> '3.17',
+            'TAP::Parser::IteratorFactory'=> '3.17',
+            'TAP::Parser::Multiplexer'=> '3.17',
+            'TAP::Parser::Result'   => '3.17',
+            'TAP::Parser::Result::Bailout'=> '3.17',
+            'TAP::Parser::Result::Comment'=> '3.17',
+            'TAP::Parser::Result::Plan'=> '3.17',
+            'TAP::Parser::Result::Pragma'=> '3.17',
+            'TAP::Parser::Result::Test'=> '3.17',
+            'TAP::Parser::Result::Unknown'=> '3.17',
+            'TAP::Parser::Result::Version'=> '3.17',
+            'TAP::Parser::Result::YAML'=> '3.17',
+            'TAP::Parser::ResultFactory'=> '3.17',
+            'TAP::Parser::Scheduler'=> '3.17',
+            'TAP::Parser::Scheduler::Job'=> '3.17',
+            'TAP::Parser::Scheduler::Spinner'=> '3.17',
+            'TAP::Parser::Source'   => '3.17',
+            'TAP::Parser::Source::Perl'=> '3.17',
+            'TAP::Parser::Utils'    => '3.17',
+            'TAP::Parser::YAMLish::Reader'=> '3.17',
+            'TAP::Parser::YAMLish::Writer'=> '3.17',
+            'Term::ANSIColor'       => '2.00',
+            'Term::ReadLine'        => '1.04',
+            'Term::UI'              => '0.20',
+            'Test'                  => '1.25_02',
+            'Test::Builder'         => '0.92',
+            'Test::Builder::Module' => '0.92',
+            'Test::Builder::Tester' => '1.18',
+            'Test::Builder::Tester::Color'=> '1.18',
+            'Test::Harness'         => '3.17',
+            'Test::More'            => '0.92',
+            'Test::Simple'          => '0.92',
+            'Text::ParseWords'      => '3.27',
+            'Text::Tabs'            => '2009.0305',
+            'Text::Wrap'            => '2009.0305',
+            'Thread::Queue'         => '2.11',
+            'Thread::Semaphore'     => '2.09',
+            'Tie::Handle'           => '4.2',
+            'Tie::Hash'             => '1.03',
+            'Tie::RefHash'          => '1.38',
+            'Tie::Scalar'           => '1.01',
+            'Tie::StdHandle'        => '4.2',
+            'Time::HiRes'           => '1.9719',
+            'Time::Local'           => '1.1901',
+            'Time::Piece'           => '1.15',
+            'UNIVERSAL'             => '1.05',
+            'Unicode'               => '5.1.0',
+            'Unicode::Normalize'    => '1.03',
+            'Unicode::UCD'          => '0.27',
+            'VMS::Stdio'            => '2.4',
+            'Win32'                 => '0.39',
+            'Win32API::File'        => '0.1101',
+            'XS::APItest'           => '0.15',
+            'XS::Typemap'           => '0.03',
+            'XSLoader'              => '0.10',
+            'attributes'            => '0.09',
+            'attrs'                 => '1.03',
+            'autodie'               => '2.06_01',
+            'autodie::exception'    => '2.06_01',
+            'autodie::exception::system'=> '2.06_01',
+            'autodie::hints'        => '2.06_01',
+            'base'                  => '2.14',
+            'bigint'                => '0.23',
+            'bignum'                => '0.23',
+            'bigrat'                => '0.23',
+            'blib'                  => '1.04',
+            'charnames'             => '1.07',
+            'constant'              => '1.17',
+            'encoding'              => '2.6_01',
+            'feature'               => '1.13',
+            'fields'                => '2.14',
+            'lib'                   => '0.62',
+            'mro'                   => '1.01',
+            'open'                  => '1.07',
+            'ops'                   => '1.02',
+            'overload'              => '1.07',
+            'overload::numbers'     => undef,
+            'overloading'           => '0.01',
+            'parent'                => '0.221',
+            're'                    => '0.09',
+            'threads'               => '1.72',
+            'threads::shared'       => '1.29',
+            'version'               => '0.77',
+        },
+        removed => {
+            'CPAN::API::HOWTO'      => 1,
+            'CPAN::DeferedCode'     => 1,
+            'CPANPLUS::inc'         => 1,
+            'ExtUtils::MakeMaker::bytes'=> 1,
+            'ExtUtils::MakeMaker::vmsish'=> 1,
+            'Test::Harness::Assert' => 1,
+            'Test::Harness::Iterator'=> 1,
+            'Test::Harness::Point'  => 1,
+            'Test::Harness::Results'=> 1,
+            'Test::Harness::Straps' => 1,
+            'Test::Harness::Util'   => 1,
+        }
+    },
+    5.011 => {
+        delta_from => 5.010001,
+        changed => {
+            'Archive::Tar'          => '1.54',
+            'Attribute::Handlers'   => '0.87',
+            'AutoLoader'            => '5.70',
+            'B::Deparse'            => '0.91',
+            'B::Lint'               => '1.11_01',
+            'B::Lint::Debug'        => '0.01',
+            'CGI'                   => '3.45',
+            'CGI::Apache'           => '1.01',
+            'CGI::Carp'             => '3.45',
+            'CGI::Pretty'           => '3.44',
+            'CGI::Switch'           => '1.01',
+            'CGI::Util'             => '3.45',
+            'CPAN'                  => '1.94_51',
+            'CPAN::Distribution'    => '1.94',
+            'CPAN::FTP'             => '5.5002',
+            'CPAN::Index'           => '1.94',
+            'CPAN::LWP::UserAgent'  => '1.94',
+            'CPANPLUS::Dist::Build' => '0.40',
+            'CPANPLUS::Dist::Build::Constants'=> '0.40',
+            'Carp'                  => '1.12',
+            'Carp::Heavy'           => '1.12',
+            'Class::ISA'            => '0.36',
+            'Compress::Raw::Bzip2'  => '2.021',
+            'Compress::Raw::Zlib'   => '2.021',
+            'Compress::Zlib'        => '2.021',
+            'Cwd'                   => '3.3002',
+            'Data::Dumper'          => '2.125',
+            'Encode'                => '2.37',
+            'Exporter'              => '5.64',
+            'Exporter::Heavy'       => '5.64',
+            'ExtUtils::ParseXS'     => '2.200403',
+            'File::Basename'        => '2.78',
+            'File::Copy'            => '2.16',
+            'File::stat'            => '1.02',
+            'IO'                    => '1.25_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.021',
+            'IO::Compress::Adapter::Deflate'=> '2.021',
+            'IO::Compress::Adapter::Identity'=> '2.021',
+            'IO::Compress::Base'    => '2.021',
+            'IO::Compress::Base::Common'=> '2.021',
+            'IO::Compress::Bzip2'   => '2.021',
+            'IO::Compress::Deflate' => '2.021',
+            'IO::Compress::Gzip'    => '2.021',
+            'IO::Compress::Gzip::Constants'=> '2.021',
+            'IO::Compress::RawDeflate'=> '2.021',
+            'IO::Compress::Zip'     => '2.021',
+            'IO::Compress::Zip::Constants'=> '2.021',
+            'IO::Compress::Zlib::Constants'=> '2.021',
+            'IO::Compress::Zlib::Extra'=> '2.021',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.021',
+            'IO::Uncompress::Adapter::Identity'=> '2.021',
+            'IO::Uncompress::Adapter::Inflate'=> '2.021',
+            'IO::Uncompress::AnyInflate'=> '2.021',
+            'IO::Uncompress::AnyUncompress'=> '2.021',
+            'IO::Uncompress::Base'  => '2.021',
+            'IO::Uncompress::Bunzip2'=> '2.021',
+            'IO::Uncompress::Gunzip'=> '2.021',
+            'IO::Uncompress::Inflate'=> '2.021',
+            'IO::Uncompress::RawInflate'=> '2.021',
+            'IO::Uncompress::Unzip' => '2.021',
+            'IO::Zlib'              => '1.10',
+            'IPC::Cmd'              => '0.50',
+            'IPC::Open3'            => '1.05',
+            'Locale::Maketext::Simple'=> '0.21',
+            'Log::Message::Simple'  => '0.06',
+            'Math::BigInt'          => '1.89_01',
+            'Math::BigRat'          => '0.24',
+            'Module::Build'         => '0.35',
+            'Module::Build::Base'   => '0.35',
+            'Module::Build::Compat' => '0.35',
+            'Module::Build::Config' => '0.35',
+            'Module::Build::Cookbook'=> '0.35',
+            'Module::Build::Dumper' => '0.35',
+            'Module::Build::ModuleInfo'=> '0.35',
+            'Module::Build::Notes'  => '0.35',
+            'Module::Build::PPMMaker'=> '0.35',
+            'Module::Build::Platform::Amiga'=> '0.35',
+            'Module::Build::Platform::Default'=> '0.35',
+            'Module::Build::Platform::EBCDIC'=> '0.35',
+            'Module::Build::Platform::MPEiX'=> '0.35',
+            'Module::Build::Platform::MacOS'=> '0.35',
+            'Module::Build::Platform::RiscOS'=> '0.35',
+            'Module::Build::Platform::Unix'=> '0.35',
+            'Module::Build::Platform::VMS'=> '0.35',
+            'Module::Build::Platform::VOS'=> '0.35',
+            'Module::Build::Platform::Windows'=> '0.35',
+            'Module::Build::Platform::aix'=> '0.35',
+            'Module::Build::Platform::cygwin'=> '0.35',
+            'Module::Build::Platform::darwin'=> '0.35',
+            'Module::Build::Platform::os2'=> '0.35',
+            'Module::Build::PodParser'=> '0.35',
+            'Module::CoreList'      => '2.19',
+            'Module::Loaded'        => '0.06',
+            'Opcode'                => '1.13',
+            'PerlIO::via'           => '0.08',
+            'Pod::Perldoc'          => '3.15_01',
+            'Pod::Plainer'          => '1.01',
+            'Safe'                  => '2.19',
+            'Socket'                => '1.84',
+            'Switch'                => '2.14_01',
+            'Term::ANSIColor'       => '2.02',
+            'Term::ReadLine'        => '1.05',
+            'Text::Balanced'        => '2.02',
+            'Text::Soundex'         => '3.03_01',
+            'Time::Local'           => '1.1901_01',
+            'Unicode::Collate'      => '0.52_01',
+            'attributes'            => '0.12',
+            'constant'              => '1.19',
+            'deprecate'             => '0.01',
+            'overload'              => '1.08',
+            'parent'                => '0.223',
+            're'                    => '0.10',
+            'threads'               => '1.74',
+            'threads::shared'       => '1.31',
+            'warnings'              => '1.07',
+        },
+        removed => {
+            'attrs'                 => 1,
+        }
+    },
+    5.011001 => {
+        delta_from => 5.011,
+        changed => {
+            'B'                     => '1.23',
+            'B::Concise'            => '0.77',
+            'B::Deparse'            => '0.92',
+            'CGI'                   => '3.48',
+            'CGI::Pretty'           => '3.46',
+            'CGI::Util'             => '3.48',
+            'CPANPLUS'              => '0.89_03',
+            'CPANPLUS::Internals'   => '0.89_03',
+            'CPANPLUS::Shell::Default'=> '0.89_03',
+            'Carp'                  => '1.13',
+            'Carp::Heavy'           => '1.13',
+            'ExtUtils::CBuilder'    => '0.260301',
+            'ExtUtils::CBuilder::Base'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.260301',
+            'ExtUtils::Install'     => '1.55',
+            'ExtUtils::Manifest'    => '1.57',
+            'ExtUtils::Packlist'    => '1.44',
+            'ExtUtils::ParseXS'     => '2.21',
+            'File::Glob'            => '1.07',
+            'File::Path'            => '2.08',
+            'IO'                    => '1.25_02',
+            'Module::CoreList'      => '2.21',
+            'OS2::DLL'              => '1.04',
+            'OS2::Process'          => '1.04',
+            'Object::Accessor'      => '0.36',
+            'Opcode'                => '1.15',
+            'POSIX'                 => '1.18',
+            'Parse::CPAN::Meta'     => '1.40',
+            'PerlIO::via'           => '0.09',
+            'Pod::Simple'           => '3.08',
+            'Socket'                => '1.85',
+            'Storable'              => '2.22',
+            'Switch'                => '2.15',
+            'Test::Builder'         => '0.94',
+            'Test::Builder::Module' => '0.94',
+            'Test::More'            => '0.94',
+            'Test::Simple'          => '0.94',
+            'XS::APItest'           => '0.16',
+            'mro'                   => '1.02',
+            'overload'              => '1.09',
+            'threads::shared'       => '1.32',
+        },
+        removed => {
+        }
+    },
+    5.011002 => {
+        delta_from => 5.011001,
+        changed => {
+            'B::Concise'            => '0.78',
+            'B::Deparse'            => '0.93',
+            'CPANPLUS'              => '0.89_09',
+            'CPANPLUS::Dist::Build' => '0.44',
+            'CPANPLUS::Dist::Build::Constants'=> '0.44',
+            'CPANPLUS::Internals'   => '0.89_09',
+            'CPANPLUS::Shell::Default'=> '0.89_09',
+            'Carp'                  => '1.14',
+            'Carp::Heavy'           => '1.14',
+            'Compress::Zlib'        => '2.022',
+            'DBM_Filter'            => '0.03',
+            'Encode'                => '2.38',
+            'Encode::Byte'          => '2.04',
+            'Encode::CN'            => '2.03',
+            'Encode::JP'            => '2.04',
+            'Encode::KR'            => '2.03',
+            'Encode::TW'            => '2.03',
+            'Encode::Unicode'       => '2.07',
+            'Env'                   => '1.01',
+            'Exporter'              => '5.64_01',
+            'Exporter::Heavy'       => '5.64_01',
+            'ExtUtils::CBuilder'    => '0.27',
+            'ExtUtils::CBuilder::Base'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.27',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.27',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.27',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.27',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.27',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.27',
+            'File::Fetch'           => '0.22',
+            'I18N::LangTags::Detect'=> '1.04',
+            'I18N::Langinfo'        => '0.03',
+            'IO::Compress::Adapter::Bzip2'=> '2.022',
+            'IO::Compress::Adapter::Deflate'=> '2.022',
+            'IO::Compress::Adapter::Identity'=> '2.022',
+            'IO::Compress::Base'    => '2.022',
+            'IO::Compress::Base::Common'=> '2.022',
+            'IO::Compress::Bzip2'   => '2.022',
+            'IO::Compress::Deflate' => '2.022',
+            'IO::Compress::Gzip'    => '2.022',
+            'IO::Compress::Gzip::Constants'=> '2.022',
+            'IO::Compress::RawDeflate'=> '2.022',
+            'IO::Compress::Zip'     => '2.022',
+            'IO::Compress::Zip::Constants'=> '2.022',
+            'IO::Compress::Zlib::Constants'=> '2.022',
+            'IO::Compress::Zlib::Extra'=> '2.022',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.022',
+            'IO::Uncompress::Adapter::Identity'=> '2.022',
+            'IO::Uncompress::Adapter::Inflate'=> '2.022',
+            'IO::Uncompress::AnyInflate'=> '2.022',
+            'IO::Uncompress::AnyUncompress'=> '2.022',
+            'IO::Uncompress::Base'  => '2.022',
+            'IO::Uncompress::Bunzip2'=> '2.022',
+            'IO::Uncompress::Gunzip'=> '2.022',
+            'IO::Uncompress::Inflate'=> '2.022',
+            'IO::Uncompress::RawInflate'=> '2.022',
+            'IO::Uncompress::Unzip' => '2.022',
+            'IPC::Cmd'              => '0.54',
+            'List::Util'            => '1.22',
+            'List::Util::PP'        => '1.22',
+            'List::Util::XS'        => '1.22',
+            'Locale::Maketext'      => '1.14',
+            'Module::Build'         => '0.35_09',
+            'Module::Build::Base'   => '0.35_09',
+            'Module::Build::Compat' => '0.35_09',
+            'Module::Build::Config' => '0.35_09',
+            'Module::Build::Cookbook'=> '0.35_09',
+            'Module::Build::Dumper' => '0.35_09',
+            'Module::Build::ModuleInfo'=> '0.35_09',
+            'Module::Build::Notes'  => '0.35_09',
+            'Module::Build::PPMMaker'=> '0.35_09',
+            'Module::Build::Platform::Amiga'=> '0.35_09',
+            'Module::Build::Platform::Default'=> '0.35_09',
+            'Module::Build::Platform::EBCDIC'=> '0.35_09',
+            'Module::Build::Platform::MPEiX'=> '0.35_09',
+            'Module::Build::Platform::MacOS'=> '0.35_09',
+            'Module::Build::Platform::RiscOS'=> '0.35_09',
+            'Module::Build::Platform::Unix'=> '0.35_09',
+            'Module::Build::Platform::VMS'=> '0.35_09',
+            'Module::Build::Platform::VOS'=> '0.35_09',
+            'Module::Build::Platform::Windows'=> '0.35_09',
+            'Module::Build::Platform::aix'=> '0.35_09',
+            'Module::Build::Platform::cygwin'=> '0.35_09',
+            'Module::Build::Platform::darwin'=> '0.35_09',
+            'Module::Build::Platform::os2'=> '0.35_09',
+            'Module::Build::PodParser'=> '0.35_09',
+            'Module::Build::YAML'   => '1.40',
+            'Module::CoreList'      => '2.23',
+            'Module::Load::Conditional'=> '0.34',
+            'Pod::Simple'           => '3.10',
+            'Pod::Simple::XHTML'    => '3.10',
+            'Scalar::Util'          => '1.22',
+            'Scalar::Util::PP'      => '1.22',
+            'Switch'                => '2.16',
+            'XS::APItest'           => '0.17',
+            'XS::APItest::KeywordRPN'=> '0.003',
+            'base'                  => '2.15',
+            'diagnostics'           => '1.18',
+            'fields'                => '2.15',
+            'inc::latest'           => '0.35_09',
+            'legacy'                => '1.00',
+            'overload'              => '1.10',
+        },
+        removed => {
+        }
+    },
+    5.011003 => {
+        delta_from => 5.011002,
+        changed => {
+            'App::Cpan'             => '1.570001',
+            'Archive::Extract'      => '0.36',
+            'CPAN'                  => '1.94_5301',
+            'CPAN::FTP'             => '5.5004',
+            'CPAN::FirstTime'       => '5.530001',
+            'CPAN::Mirrors'         => '1.770001',
+            'CPANPLUS'              => '0.90',
+            'CPANPLUS::Internals'   => '0.90',
+            'CPANPLUS::Shell::Default'=> '0.90',
+            'Cwd'                   => '3.31',
+            'Encode'                => '2.39',
+            'ExtUtils::Command::MM' => '6.56',
+            'ExtUtils::Liblist'     => '6.56',
+            'ExtUtils::Liblist::Kid'=> '6.56',
+            'ExtUtils::MM'          => '6.56',
+            'ExtUtils::MM_AIX'      => '6.56',
+            'ExtUtils::MM_Any'      => '6.56',
+            'ExtUtils::MM_BeOS'     => '6.56',
+            'ExtUtils::MM_Cygwin'   => '6.56',
+            'ExtUtils::MM_DOS'      => '6.56',
+            'ExtUtils::MM_Darwin'   => '6.56',
+            'ExtUtils::MM_MacOS'    => '6.56',
+            'ExtUtils::MM_NW5'      => '6.56',
+            'ExtUtils::MM_OS2'      => '6.56',
+            'ExtUtils::MM_QNX'      => '6.56',
+            'ExtUtils::MM_UWIN'     => '6.56',
+            'ExtUtils::MM_Unix'     => '6.56',
+            'ExtUtils::MM_VMS'      => '6.56',
+            'ExtUtils::MM_VOS'      => '6.56',
+            'ExtUtils::MM_Win32'    => '6.56',
+            'ExtUtils::MM_Win95'    => '6.56',
+            'ExtUtils::MY'          => '6.56',
+            'ExtUtils::MakeMaker'   => '6.56',
+            'ExtUtils::MakeMaker::Config'=> '6.56',
+            'ExtUtils::Mkbootstrap' => '6.56',
+            'ExtUtils::Mksymlists'  => '6.56',
+            'ExtUtils::testlib'     => '6.56',
+            'File::Find'            => '1.15',
+            'File::Path'            => '2.08_01',
+            'File::Spec'            => '3.31',
+            'Module::Build'         => '0.36',
+            'Module::Build::Base'   => '0.36',
+            'Module::Build::Compat' => '0.36',
+            'Module::Build::Config' => '0.36',
+            'Module::Build::Cookbook'=> '0.36',
+            'Module::Build::Dumper' => '0.36',
+            'Module::Build::ModuleInfo'=> '0.36',
+            'Module::Build::Notes'  => '0.36',
+            'Module::Build::PPMMaker'=> '0.36',
+            'Module::Build::Platform::Amiga'=> '0.36',
+            'Module::Build::Platform::Default'=> '0.36',
+            'Module::Build::Platform::EBCDIC'=> '0.36',
+            'Module::Build::Platform::MPEiX'=> '0.36',
+            'Module::Build::Platform::MacOS'=> '0.36',
+            'Module::Build::Platform::RiscOS'=> '0.36',
+            'Module::Build::Platform::Unix'=> '0.36',
+            'Module::Build::Platform::VMS'=> '0.36',
+            'Module::Build::Platform::VOS'=> '0.36',
+            'Module::Build::Platform::Windows'=> '0.36',
+            'Module::Build::Platform::aix'=> '0.36',
+            'Module::Build::Platform::cygwin'=> '0.36',
+            'Module::Build::Platform::darwin'=> '0.36',
+            'Module::Build::Platform::os2'=> '0.36',
+            'Module::Build::PodParser'=> '0.36',
+            'Module::CoreList'      => '2.24',
+            'POSIX'                 => '1.19',
+            'Pod::Simple'           => '3.13',
+            'Pod::Simple::BlackBox' => '3.13',
+            'Pod::Simple::Checker'  => '3.13',
+            'Pod::Simple::Debug'    => '3.13',
+            'Pod::Simple::DumpAsText'=> '3.13',
+            'Pod::Simple::DumpAsXML'=> '3.13',
+            'Pod::Simple::HTML'     => '3.13',
+            'Pod::Simple::HTMLBatch'=> '3.13',
+            'Pod::Simple::LinkSection'=> '3.13',
+            'Pod::Simple::Methody'  => '3.13',
+            'Pod::Simple::Progress' => '3.13',
+            'Pod::Simple::PullParser'=> '3.13',
+            'Pod::Simple::PullParserEndToken'=> '3.13',
+            'Pod::Simple::PullParserStartToken'=> '3.13',
+            'Pod::Simple::PullParserTextToken'=> '3.13',
+            'Pod::Simple::PullParserToken'=> '3.13',
+            'Pod::Simple::RTF'      => '3.13',
+            'Pod::Simple::Search'   => '3.13',
+            'Pod::Simple::SimpleTree'=> '3.13',
+            'Pod::Simple::Text'     => '3.13',
+            'Pod::Simple::TextContent'=> '3.13',
+            'Pod::Simple::TiedOutFH'=> '3.13',
+            'Pod::Simple::Transcode'=> '3.13',
+            'Pod::Simple::TranscodeDumb'=> '3.13',
+            'Pod::Simple::TranscodeSmart'=> '3.13',
+            'Pod::Simple::XHTML'    => '3.13',
+            'Pod::Simple::XMLOutStream'=> '3.13',
+            'Safe'                  => '2.20',
+            'Unicode'               => '5.2.0',
+            'constant'              => '1.20',
+            'diagnostics'           => '1.19',
+            'feature'               => '1.14',
+            'inc::latest'           => '0.36',
+            'threads'               => '1.75',
+            'warnings'              => '1.08',
+        },
+        removed => {
+            'legacy'                => 1,
+        }
+    },
+    5.011004 => {
+        delta_from => 5.011003,
+        changed => {
+            'App::Cpan'             => '1.5701',
+            'Archive::Extract'      => '0.38',
+            'B::Deparse'            => '0.94',
+            'CPAN'                  => '1.94_54',
+            'CPAN::FirstTime'       => '5.53',
+            'CPAN::Mirrors'         => '1.77',
+            'Carp'                  => '1.15',
+            'Carp::Heavy'           => '1.15',
+            'Compress::Raw::Bzip2'  => '2.024',
+            'Compress::Raw::Zlib'   => '2.024',
+            'Compress::Zlib'        => '2.024',
+            'File::Copy'            => '2.17',
+            'File::Fetch'           => '0.24',
+            'GDBM_File'             => '1.10',
+            'IO::Compress::Adapter::Bzip2'=> '2.024',
+            'IO::Compress::Adapter::Deflate'=> '2.024',
+            'IO::Compress::Adapter::Identity'=> '2.024',
+            'IO::Compress::Base'    => '2.024',
+            'IO::Compress::Base::Common'=> '2.024',
+            'IO::Compress::Bzip2'   => '2.024',
+            'IO::Compress::Deflate' => '2.024',
+            'IO::Compress::Gzip'    => '2.024',
+            'IO::Compress::Gzip::Constants'=> '2.024',
+            'IO::Compress::RawDeflate'=> '2.024',
+            'IO::Compress::Zip'     => '2.024',
+            'IO::Compress::Zip::Constants'=> '2.024',
+            'IO::Compress::Zlib::Constants'=> '2.024',
+            'IO::Compress::Zlib::Extra'=> '2.024',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.024',
+            'IO::Uncompress::Adapter::Identity'=> '2.024',
+            'IO::Uncompress::Adapter::Inflate'=> '2.024',
+            'IO::Uncompress::AnyInflate'=> '2.024',
+            'IO::Uncompress::AnyUncompress'=> '2.024',
+            'IO::Uncompress::Base'  => '2.024',
+            'IO::Uncompress::Bunzip2'=> '2.024',
+            'IO::Uncompress::Gunzip'=> '2.024',
+            'IO::Uncompress::Inflate'=> '2.024',
+            'IO::Uncompress::RawInflate'=> '2.024',
+            'IO::Uncompress::Unzip' => '2.024',
+            'Module::Build'         => '0.3603',
+            'Module::Build::Base'   => '0.3603',
+            'Module::Build::Compat' => '0.3603',
+            'Module::Build::Config' => '0.3603',
+            'Module::Build::Cookbook'=> '0.3603',
+            'Module::Build::Dumper' => '0.3603',
+            'Module::Build::ModuleInfo'=> '0.3603',
+            'Module::Build::Notes'  => '0.3603',
+            'Module::Build::PPMMaker'=> '0.3603',
+            'Module::Build::Platform::Amiga'=> '0.3603',
+            'Module::Build::Platform::Default'=> '0.3603',
+            'Module::Build::Platform::EBCDIC'=> '0.3603',
+            'Module::Build::Platform::MPEiX'=> '0.3603',
+            'Module::Build::Platform::MacOS'=> '0.3603',
+            'Module::Build::Platform::RiscOS'=> '0.3603',
+            'Module::Build::Platform::Unix'=> '0.3603',
+            'Module::Build::Platform::VMS'=> '0.3603',
+            'Module::Build::Platform::VOS'=> '0.3603',
+            'Module::Build::Platform::Windows'=> '0.3603',
+            'Module::Build::Platform::aix'=> '0.3603',
+            'Module::Build::Platform::cygwin'=> '0.3603',
+            'Module::Build::Platform::darwin'=> '0.3603',
+            'Module::Build::Platform::os2'=> '0.3603',
+            'Module::Build::PodParser'=> '0.3603',
+            'Module::CoreList'      => '2.25',
+            'PerlIO::encoding'      => '0.12',
+            'Safe'                  => '2.21',
+            'UNIVERSAL'             => '1.06',
+            'feature'               => '1.15',
+            'inc::latest'           => '0.3603',
+            'less'                  => '0.03',
+            're'                    => '0.11',
+            'version'               => '0.81',
+            'warnings'              => '1.09',
+        },
+        removed => {
+        }
+    },
+    5.011005 => {
+        delta_from => 5.011004,
+        changed => {
+            'B::Debug'              => '1.12',
+            'CPAN'                  => '1.94_56',
+            'CPAN::Debug'           => '5.5001',
+            'CPAN::Distribution'    => '1.9456',
+            'CPAN::FirstTime'       => '5.5301',
+            'CPAN::HandleConfig'    => '5.5001',
+            'CPAN::Shell'           => '5.5001',
+            'CPAN::Tarzip'          => '5.5011',
+            'CPANPLUS::Dist::Build' => '0.46',
+            'CPANPLUS::Dist::Build::Constants'=> '0.46',
+            'Module::CoreList'      => '2.26',
+            'Pod::Man'              => '2.23',
+            'Pod::ParseLink'        => '1.10',
+            'Pod::Perldoc'          => '3.15_02',
+            'Pod::Plainer'          => '1.02',
+            'Pod::Text'             => '3.14',
+            'Pod::Text::Color'      => '2.06',
+            'Pod::Text::Overstrike' => '2.04',
+            'Pod::Text::Termcap'    => '2.06',
+            'Safe'                  => '2.22',
+            'Socket'                => '1.86',
+            'version'               => '0.82',
+        },
+        removed => {
+        }
+    },
+    5.012 => {
+        delta_from => 5.011005,
+        changed => {
+            'B::Deparse'            => '0.96',
+            'CPAN::Distribution'    => '1.9456_01',
+            'Module::CoreList'      => '2.29',
+            'Safe'                  => '2.25',
+            'Socket'                => '1.87',
+            'Tie::Scalar'           => '1.02',
+            'Time::Piece'           => '1.15_01',
+            'bytes'                 => '1.04',
+            'feature'               => '1.16',
+            'utf8'                  => '1.08',
+        },
+        removed => {
+        }
+    },
+    5.012001 => {
+        delta_from => 5.012,
+        changed => {
+            'B::Deparse'            => '0.97',
+            'CGI'                   => '3.49',
+            'CGI::Fast'             => '1.08',
+            'Carp'                  => '1.16',
+            'Carp::Heavy'           => '1.16',
+            'File::Copy'            => '2.18',
+            'Module::CoreList'      => '2.32',
+            'Pod::Functions'        => '1.04',
+            'Pod::Simple'           => '3.14',
+            'Pod::Simple::BlackBox' => '3.14',
+            'Pod::Simple::Checker'  => '3.14',
+            'Pod::Simple::Debug'    => '3.14',
+            'Pod::Simple::DumpAsText'=> '3.14',
+            'Pod::Simple::DumpAsXML'=> '3.14',
+            'Pod::Simple::HTML'     => '3.14',
+            'Pod::Simple::HTMLBatch'=> '3.14',
+            'Pod::Simple::LinkSection'=> '3.14',
+            'Pod::Simple::Methody'  => '3.14',
+            'Pod::Simple::Progress' => '3.14',
+            'Pod::Simple::PullParser'=> '3.14',
+            'Pod::Simple::PullParserEndToken'=> '3.14',
+            'Pod::Simple::PullParserStartToken'=> '3.14',
+            'Pod::Simple::PullParserTextToken'=> '3.14',
+            'Pod::Simple::PullParserToken'=> '3.14',
+            'Pod::Simple::RTF'      => '3.14',
+            'Pod::Simple::Search'   => '3.14',
+            'Pod::Simple::SimpleTree'=> '3.14',
+            'Pod::Simple::Text'     => '3.14',
+            'Pod::Simple::TextContent'=> '3.14',
+            'Pod::Simple::TiedOutFH'=> '3.14',
+            'Pod::Simple::Transcode'=> '3.14',
+            'Pod::Simple::TranscodeDumb'=> '3.14',
+            'Pod::Simple::TranscodeSmart'=> '3.14',
+            'Pod::Simple::XHTML'    => '3.14',
+            'Pod::Simple::XMLOutStream'=> '3.14',
+            'Safe'                  => '2.27',
+        },
+        removed => {
+        }
+    },
+    5.012002 => {
+        delta_from => 5.012001,
+        changed => {
+            'Carp'                  => '1.17',
+            'Carp::Heavy'           => '1.17',
+            'File::Spec'            => '3.31_01',
+            'Module::CoreList'      => '2.38',
+            'Module::Load::Conditional'=> '0.38',
+            'PerlIO::scalar'        => '0.08',
+        },
+        removed => {
+        }
+    },
+    5.012003 => {
+        delta_from => 5.012002,
+        changed => {
+            'B::Deparse'            => '0.9701',
+            'Module::Build::Platform::cygwin'=> '0.360301',
+            'Module::CoreList'      => '2.43',
+            'Socket'                => '1.87_01',
+        },
+        removed => {
+        }
+    },
+    5.012004 => {
+        delta_from => 5.012003,
+        changed => {
+            'Module::CoreList'      => '2.50',
+        },
+        removed => {
+        }
+    },
+    5.012005 => {
+        delta_from => 5.012004,
+        changed => {
+            'B::Concise'            => '0.78_01',
+            'Encode'                => '2.39_01',
+            'File::Glob'            => '1.07_01',
+            'Module::CoreList'      => '2.50_02',
+            'Unicode::UCD'          => '0.29',
+            'charnames'             => '1.07_01',
+        },
+        removed => {
+        }
+    },
+    5.013 => {
+        delta_from => 5.012,
+        changed => {
+            'CGI'                   => '3.49',
+            'CGI::Fast'             => '1.08',
+            'Data::Dumper'          => '2.126',
+            'ExtUtils::MM_Unix'     => '6.5601',
+            'ExtUtils::MakeMaker'   => '6.5601',
+            'File::Copy'            => '2.18',
+            'IPC::Open3'            => '1.06',
+            'MIME::Base64'          => '3.09',
+            'MIME::QuotedPrint'     => '3.09',
+            'Module::CoreList'      => '2.31',
+            'Pod::Functions'        => '1.04',
+            'XS::APItest'           => '0.18',
+            'XS::APItest::KeywordRPN'=> '0.004',
+            'feature'               => '1.17',
+            'threads'               => '1.77_01',
+            'threads::shared'       => '1.33',
+        },
+        removed => {
+        }
+    },
+    5.013001 => {
+        delta_from => 5.012001,
+        changed => {
+            'Data::Dumper'          => '2.126',
+            'Dumpvalue'             => '1.14',
+            'Errno'                 => '1.12',
+            'ExtUtils::MM_Unix'     => '6.5601',
+            'ExtUtils::MakeMaker'   => '6.5601',
+            'ExtUtils::ParseXS'     => '2.2205',
+            'File::Find'            => '1.16',
+            'IPC::Cmd'              => '0.58',
+            'IPC::Open3'            => '1.06',
+            'List::Util'            => '1.23',
+            'List::Util::PP'        => '1.23',
+            'List::Util::XS'        => '1.23',
+            'Locale::Codes'         => '3.12',
+            'Locale::Codes::Country'=> '3.12',
+            'Locale::Codes::Currency'=> '3.12',
+            'Locale::Codes::Language'=> '3.12',
+            'Locale::Codes::Script' => '3.12',
+            'Locale::Constants'     => '3.12',
+            'Locale::Country'       => '3.12',
+            'Locale::Currency'      => '3.12',
+            'Locale::Language'      => '3.12',
+            'Locale::Script'        => '3.12',
+            'MIME::Base64'          => '3.09',
+            'MIME::QuotedPrint'     => '3.09',
+            'Module::Build::Platform::cygwin'=> '0.360301',
+            'Module::CoreList'      => '2.34',
+            'Module::Load::Conditional'=> '0.38',
+            'PerlIO::scalar'        => '0.08',
+            'Scalar::Util'          => '1.23',
+            'Scalar::Util::PP'      => '1.23',
+            'Socket'                => '1.88',
+            'Term::ReadLine'        => '1.06',
+            'Unicode::UCD'          => '0.28',
+            'XS::APItest'           => '0.19',
+            'XS::APItest::KeywordRPN'=> '0.004',
+            'charnames'             => '1.08',
+            'feature'               => '1.17',
+            'threads'               => '1.77_01',
+            'threads::shared'       => '1.33',
+        },
+        removed => {
+            'Class::ISA'            => 1,
+            'Pod::Plainer'          => 1,
+            'Switch'                => 1,
+        }
+    },
+    5.013002 => {
+        delta_from => 5.013001,
+        changed => {
+            'B::Concise'            => '0.79',
+            'B::Deparse'            => '0.98',
+            'CPAN'                  => '1.94_57',
+            'CPAN::Distribution'    => '1.9600',
+            'Exporter'              => '5.64_02',
+            'Exporter::Heavy'       => '5.64_02',
+            'File::Copy'            => '2.19',
+            'Hash::Util'            => '0.08',
+            'IO::Socket'            => '1.32',
+            'Locale::Codes'         => '3.13',
+            'Locale::Codes::Country'=> '3.13',
+            'Locale::Codes::Currency'=> '3.13',
+            'Locale::Codes::Language'=> '3.13',
+            'Locale::Codes::Script' => '3.13',
+            'Locale::Constants'     => '3.13',
+            'Locale::Country'       => '3.13',
+            'Locale::Currency'      => '3.13',
+            'Locale::Language'      => '3.13',
+            'Locale::Script'        => '3.13',
+            'Search::Dict'          => '1.03',
+            'Socket'                => '1.89',
+            'Thread::Semaphore'     => '2.11',
+            'UNIVERSAL'             => '1.07',
+            'VMS::DCLsym'           => '1.04',
+            'mro'                   => '1.03',
+            'threads'               => '1.77_02',
+            'threads::shared'       => '1.33_01',
+        },
+        removed => {
+        }
+    },
+    5.013003 => {
+        delta_from => 5.013002,
+        changed => {
+            'App::Prove'            => '3.21',
+            'App::Prove::State'     => '3.21',
+            'App::Prove::State::Result'=> '3.21',
+            'App::Prove::State::Result::Test'=> '3.21',
+            'Archive::Extract'      => '0.42',
+            'Archive::Tar'          => '1.64',
+            'Archive::Tar::Constant'=> '1.64',
+            'Archive::Tar::File'    => '1.64',
+            'Attribute::Handlers'   => '0.88',
+            'CPANPLUS'              => '0.9007',
+            'CPANPLUS::Internals'   => '0.9007',
+            'CPANPLUS::Shell::Default'=> '0.9007',
+            'Compress::Raw::Bzip2'  => '2.027',
+            'Compress::Raw::Zlib'   => '2.027_01',
+            'Compress::Zlib'        => '2.027',
+            'DB'                    => '1.03',
+            'Digest::MD5'           => '2.40',
+            'Digest::SHA'           => '5.48',
+            'Exporter'              => '5.64_03',
+            'Exporter::Heavy'       => '5.64_03',
+            'ExtUtils::CBuilder'    => '0.2703',
+            'ExtUtils::CBuilder::Base'=> '0.2703_01',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.2703',
+            'ExtUtils::Manifest'    => '1.58',
+            'ExtUtils::ParseXS'     => '2.2206',
+            'Fatal'                 => '2.10',
+            'File::Basename'        => '2.79',
+            'File::Copy'            => '2.20',
+            'File::DosGlob'         => '1.02',
+            'File::Find'            => '1.17',
+            'File::Glob'            => '1.08',
+            'File::stat'            => '1.03',
+            'I18N::LangTags'        => '0.35_01',
+            'I18N::LangTags::List'  => '0.35_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.027',
+            'IO::Compress::Adapter::Deflate'=> '2.027',
+            'IO::Compress::Adapter::Identity'=> '2.027',
+            'IO::Compress::Base'    => '2.027',
+            'IO::Compress::Base::Common'=> '2.027',
+            'IO::Compress::Bzip2'   => '2.027',
+            'IO::Compress::Deflate' => '2.027',
+            'IO::Compress::Gzip'    => '2.027',
+            'IO::Compress::Gzip::Constants'=> '2.027',
+            'IO::Compress::RawDeflate'=> '2.027',
+            'IO::Compress::Zip'     => '2.027',
+            'IO::Compress::Zip::Constants'=> '2.027',
+            'IO::Compress::Zlib::Constants'=> '2.027',
+            'IO::Compress::Zlib::Extra'=> '2.027',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.027',
+            'IO::Uncompress::Adapter::Identity'=> '2.027',
+            'IO::Uncompress::Adapter::Inflate'=> '2.027',
+            'IO::Uncompress::AnyInflate'=> '2.027',
+            'IO::Uncompress::AnyUncompress'=> '2.027',
+            'IO::Uncompress::Base'  => '2.027',
+            'IO::Uncompress::Bunzip2'=> '2.027',
+            'IO::Uncompress::Gunzip'=> '2.027',
+            'IO::Uncompress::Inflate'=> '2.027',
+            'IO::Uncompress::RawInflate'=> '2.027',
+            'IO::Uncompress::Unzip' => '2.027',
+            'IPC::Cmd'              => '0.60',
+            'IPC::Msg'              => '2.03',
+            'IPC::Semaphore'        => '2.03',
+            'IPC::SharedMem'        => '2.03',
+            'IPC::SysV'             => '2.03',
+            'Locale::Maketext'      => '1.15',
+            'Locale::Maketext::Guts'=> undef,
+            'Locale::Maketext::GutsLoader'=> undef,
+            'Module::Build'         => '0.3607',
+            'Module::Build::Base'   => '0.3607',
+            'Module::Build::Compat' => '0.3607',
+            'Module::Build::Config' => '0.3607',
+            'Module::Build::Cookbook'=> '0.3607',
+            'Module::Build::Dumper' => '0.3607',
+            'Module::Build::ModuleInfo'=> '0.3607',
+            'Module::Build::Notes'  => '0.3607',
+            'Module::Build::PPMMaker'=> '0.3607',
+            'Module::Build::Platform::Amiga'=> '0.3607',
+            'Module::Build::Platform::Default'=> '0.3607',
+            'Module::Build::Platform::EBCDIC'=> '0.3607',
+            'Module::Build::Platform::MPEiX'=> '0.3607',
+            'Module::Build::Platform::MacOS'=> '0.3607',
+            'Module::Build::Platform::RiscOS'=> '0.3607',
+            'Module::Build::Platform::Unix'=> '0.3607',
+            'Module::Build::Platform::VMS'=> '0.3607',
+            'Module::Build::Platform::VOS'=> '0.3607',
+            'Module::Build::Platform::Windows'=> '0.3607',
+            'Module::Build::Platform::aix'=> '0.3607',
+            'Module::Build::Platform::cygwin'=> '0.3607',
+            'Module::Build::Platform::darwin'=> '0.3607',
+            'Module::Build::Platform::os2'=> '0.3607',
+            'Module::Build::PodParser'=> '0.3607',
+            'Module::CoreList'      => '2.36',
+            'Module::Load'          => '0.18',
+            'TAP::Base'             => '3.21',
+            'TAP::Formatter::Base'  => '3.21',
+            'TAP::Formatter::Color' => '3.21',
+            'TAP::Formatter::Console'=> '3.21',
+            'TAP::Formatter::Console::ParallelSession'=> '3.21',
+            'TAP::Formatter::Console::Session'=> '3.21',
+            'TAP::Formatter::File'  => '3.21',
+            'TAP::Formatter::File::Session'=> '3.21',
+            'TAP::Formatter::Session'=> '3.21',
+            'TAP::Harness'          => '3.21',
+            'TAP::Object'           => '3.21',
+            'TAP::Parser'           => '3.21',
+            'TAP::Parser::Aggregator'=> '3.21',
+            'TAP::Parser::Grammar'  => '3.21',
+            'TAP::Parser::Iterator' => '3.21',
+            'TAP::Parser::Iterator::Array'=> '3.21',
+            'TAP::Parser::Iterator::Process'=> '3.21',
+            'TAP::Parser::Iterator::Stream'=> '3.21',
+            'TAP::Parser::IteratorFactory'=> '3.21',
+            'TAP::Parser::Multiplexer'=> '3.21',
+            'TAP::Parser::Result'   => '3.21',
+            'TAP::Parser::Result::Bailout'=> '3.21',
+            'TAP::Parser::Result::Comment'=> '3.21',
+            'TAP::Parser::Result::Plan'=> '3.21',
+            'TAP::Parser::Result::Pragma'=> '3.21',
+            'TAP::Parser::Result::Test'=> '3.21',
+            'TAP::Parser::Result::Unknown'=> '3.21',
+            'TAP::Parser::Result::Version'=> '3.21',
+            'TAP::Parser::Result::YAML'=> '3.21',
+            'TAP::Parser::ResultFactory'=> '3.21',
+            'TAP::Parser::Scheduler'=> '3.21',
+            'TAP::Parser::Scheduler::Job'=> '3.21',
+            'TAP::Parser::Scheduler::Spinner'=> '3.21',
+            'TAP::Parser::Source'   => '3.21',
+            'TAP::Parser::SourceHandler'=> '3.21',
+            'TAP::Parser::SourceHandler::Executable'=> '3.21',
+            'TAP::Parser::SourceHandler::File'=> '3.21',
+            'TAP::Parser::SourceHandler::Handle'=> '3.21',
+            'TAP::Parser::SourceHandler::Perl'=> '3.21',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.21',
+            'TAP::Parser::SourceHandler::pgTAP'=> '3.21',
+            'TAP::Parser::Utils'    => '3.21',
+            'TAP::Parser::YAMLish::Reader'=> '3.21',
+            'TAP::Parser::YAMLish::Writer'=> '3.21',
+            'Term::ANSIColor'       => '3.00',
+            'Term::ReadLine'        => '1.07',
+            'Test::Harness'         => '3.21',
+            'Tie::Array'            => '1.04',
+            'Time::HiRes'           => '1.9721',
+            'Time::Piece'           => '1.20_01',
+            'Unicode::Collate'      => '0.53',
+            'Unicode::Normalize'    => '1.06',
+            'Unicode::UCD'          => '0.29',
+            'autodie'               => '2.10',
+            'autodie::exception'    => '2.10',
+            'autodie::exception::system'=> '2.10',
+            'autodie::hints'        => '2.10',
+            'blib'                  => '1.05',
+            'charnames'             => '1.11',
+            'diagnostics'           => '1.20',
+            'inc::latest'           => '0.3607',
+            'lib'                   => '0.63',
+            're'                    => '0.12',
+            'threads'               => '1.77_03',
+            'threads::shared'       => '1.33_02',
+            'vars'                  => '1.02',
+            'warnings'              => '1.10',
+        },
+        removed => {
+            'TAP::Parser::Source::Perl'=> 1,
+        }
+    },
+    5.013004 => {
+        delta_from => 5.013003,
+        changed => {
+            'App::Prove'            => '3.22',
+            'App::Prove::State'     => '3.22',
+            'App::Prove::State::Result'=> '3.22',
+            'App::Prove::State::Result::Test'=> '3.22',
+            'Archive::Tar'          => '1.68',
+            'Archive::Tar::Constant'=> '1.68',
+            'Archive::Tar::File'    => '1.68',
+            'B::Lint'               => '1.12',
+            'B::Lint::Debug'        => '1.12',
+            'Carp'                  => '1.18',
+            'Carp::Heavy'           => '1.18',
+            'Compress::Raw::Bzip2'  => '2.030',
+            'Compress::Raw::Zlib'   => '2.030',
+            'Compress::Zlib'        => '2.030',
+            'ExtUtils::ParseXS'     => '2.2207',
+            'File::Spec'            => '3.31_01',
+            'I18N::Langinfo'        => '0.04',
+            'IO::Compress::Adapter::Bzip2'=> '2.030',
+            'IO::Compress::Adapter::Deflate'=> '2.030',
+            'IO::Compress::Adapter::Identity'=> '2.030',
+            'IO::Compress::Base'    => '2.030',
+            'IO::Compress::Base::Common'=> '2.030',
+            'IO::Compress::Bzip2'   => '2.030',
+            'IO::Compress::Deflate' => '2.030',
+            'IO::Compress::Gzip'    => '2.030',
+            'IO::Compress::Gzip::Constants'=> '2.030',
+            'IO::Compress::RawDeflate'=> '2.030',
+            'IO::Compress::Zip'     => '2.030',
+            'IO::Compress::Zip::Constants'=> '2.030',
+            'IO::Compress::Zlib::Constants'=> '2.030',
+            'IO::Compress::Zlib::Extra'=> '2.030',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.030',
+            'IO::Uncompress::Adapter::Identity'=> '2.030',
+            'IO::Uncompress::Adapter::Inflate'=> '2.030',
+            'IO::Uncompress::AnyInflate'=> '2.030',
+            'IO::Uncompress::AnyUncompress'=> '2.030',
+            'IO::Uncompress::Base'  => '2.030',
+            'IO::Uncompress::Bunzip2'=> '2.030',
+            'IO::Uncompress::Gunzip'=> '2.030',
+            'IO::Uncompress::Inflate'=> '2.030',
+            'IO::Uncompress::RawInflate'=> '2.030',
+            'IO::Uncompress::Unzip' => '2.030',
+            'Module::CoreList'      => '2.37',
+            'TAP::Base'             => '3.22',
+            'TAP::Formatter::Base'  => '3.22',
+            'TAP::Formatter::Color' => '3.22',
+            'TAP::Formatter::Console'=> '3.22',
+            'TAP::Formatter::Console::ParallelSession'=> '3.22',
+            'TAP::Formatter::Console::Session'=> '3.22',
+            'TAP::Formatter::File'  => '3.22',
+            'TAP::Formatter::File::Session'=> '3.22',
+            'TAP::Formatter::Session'=> '3.22',
+            'TAP::Harness'          => '3.22',
+            'TAP::Object'           => '3.22',
+            'TAP::Parser'           => '3.22',
+            'TAP::Parser::Aggregator'=> '3.22',
+            'TAP::Parser::Grammar'  => '3.22',
+            'TAP::Parser::Iterator' => '3.22',
+            'TAP::Parser::Iterator::Array'=> '3.22',
+            'TAP::Parser::Iterator::Process'=> '3.22',
+            'TAP::Parser::Iterator::Stream'=> '3.22',
+            'TAP::Parser::IteratorFactory'=> '3.22',
+            'TAP::Parser::Multiplexer'=> '3.22',
+            'TAP::Parser::Result'   => '3.22',
+            'TAP::Parser::Result::Bailout'=> '3.22',
+            'TAP::Parser::Result::Comment'=> '3.22',
+            'TAP::Parser::Result::Plan'=> '3.22',
+            'TAP::Parser::Result::Pragma'=> '3.22',
+            'TAP::Parser::Result::Test'=> '3.22',
+            'TAP::Parser::Result::Unknown'=> '3.22',
+            'TAP::Parser::Result::Version'=> '3.22',
+            'TAP::Parser::Result::YAML'=> '3.22',
+            'TAP::Parser::ResultFactory'=> '3.22',
+            'TAP::Parser::Scheduler'=> '3.22',
+            'TAP::Parser::Scheduler::Job'=> '3.22',
+            'TAP::Parser::Scheduler::Spinner'=> '3.22',
+            'TAP::Parser::Source'   => '3.22',
+            'TAP::Parser::SourceHandler'=> '3.22',
+            'TAP::Parser::SourceHandler::Executable'=> '3.22',
+            'TAP::Parser::SourceHandler::File'=> '3.22',
+            'TAP::Parser::SourceHandler::Handle'=> '3.22',
+            'TAP::Parser::SourceHandler::Perl'=> '3.22',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.22',
+            'TAP::Parser::Utils'    => '3.22',
+            'TAP::Parser::YAMLish::Reader'=> '3.22',
+            'TAP::Parser::YAMLish::Writer'=> '3.22',
+            'Test::Builder'         => '0.96',
+            'Test::Builder::Module' => '0.96',
+            'Test::Builder::Tester' => '1.20',
+            'Test::Builder::Tester::Color'=> '1.20',
+            'Test::Harness'         => '3.22',
+            'Test::More'            => '0.96',
+            'Test::Simple'          => '0.96',
+            'Unicode::Collate'      => '0.56',
+            'Unicode::Collate::Locale'=> '0.56',
+            'XS::APItest'           => '0.20',
+            'charnames'             => '1.15',
+            'feature'               => '1.18',
+        },
+        removed => {
+            'TAP::Parser::SourceHandler::pgTAP'=> 1,
+        }
+    },
+    5.013005 => {
+        delta_from => 5.013004,
+        changed => {
+            'B::Debug'              => '1.16',
+            'CPANPLUS::Dist::Build' => '0.48',
+            'CPANPLUS::Dist::Build::Constants'=> '0.48',
+            'Data::Dumper'          => '2.128',
+            'Encode'                => '2.40',
+            'Encode::Guess'         => '2.04',
+            'Encode::MIME::Header'  => '2.12',
+            'Encode::Unicode::UTF7' => '2.05',
+            'Errno'                 => '1.13',
+            'ExtUtils::Command::MM' => '6.57_05',
+            'ExtUtils::Liblist'     => '6.57_05',
+            'ExtUtils::Liblist::Kid'=> '6.5705',
+            'ExtUtils::MM'          => '6.57_05',
+            'ExtUtils::MM_AIX'      => '6.57_05',
+            'ExtUtils::MM_Any'      => '6.57_05',
+            'ExtUtils::MM_BeOS'     => '6.57_05',
+            'ExtUtils::MM_Cygwin'   => '6.57_05',
+            'ExtUtils::MM_DOS'      => '6.5705',
+            'ExtUtils::MM_Darwin'   => '6.57_05',
+            'ExtUtils::MM_MacOS'    => '6.5705',
+            'ExtUtils::MM_NW5'      => '6.57_05',
+            'ExtUtils::MM_OS2'      => '6.57_05',
+            'ExtUtils::MM_QNX'      => '6.57_05',
+            'ExtUtils::MM_UWIN'     => '6.5705',
+            'ExtUtils::MM_Unix'     => '6.57_05',
+            'ExtUtils::MM_VMS'      => '6.57_05',
+            'ExtUtils::MM_VOS'      => '6.57_05',
+            'ExtUtils::MM_Win32'    => '6.57_05',
+            'ExtUtils::MM_Win95'    => '6.57_05',
+            'ExtUtils::MY'          => '6.5705',
+            'ExtUtils::MakeMaker'   => '6.57_05',
+            'ExtUtils::MakeMaker::Config'=> '6.57_05',
+            'ExtUtils::MakeMaker::YAML'=> '1.44',
+            'ExtUtils::Mkbootstrap' => '6.57_05',
+            'ExtUtils::Mksymlists'  => '6.57_05',
+            'ExtUtils::testlib'     => '6.5705',
+            'Filter::Simple'        => '0.85',
+            'Hash::Util'            => '0.09',
+            'Math::BigFloat'        => '1.62',
+            'Math::BigInt'          => '1.95',
+            'Math::BigInt::Calc'    => '0.54',
+            'Math::BigInt::CalcEmu' => '0.06',
+            'Math::BigInt::FastCalc'=> '0.22',
+            'Math::BigRat'          => '0.26',
+            'Module::CoreList'      => '2.39',
+            'POSIX'                 => '1.20',
+            'PerlIO::scalar'        => '0.09',
+            'Safe'                  => '2.28',
+            'Test::Builder'         => '0.97_01',
+            'Test::Builder::Module' => '0.97_01',
+            'Test::Builder::Tester' => '1.21_01',
+            'Test::Builder::Tester::Color'=> '1.21_01',
+            'Test::More'            => '0.97_01',
+            'Test::Simple'          => '0.97_01',
+            'Tie::Hash'             => '1.04',
+            'Unicode::Collate'      => '0.59',
+            'Unicode::Collate::Locale'=> '0.59',
+            'XS::APItest'           => '0.21',
+            'XS::APItest::KeywordRPN'=> '0.005',
+            'XSLoader'              => '0.11',
+            'bigint'                => '0.25',
+            'bignum'                => '0.25',
+            'bigrat'                => '0.25',
+            'blib'                  => '1.06',
+            'open'                  => '1.08',
+            'threads::shared'       => '1.33_03',
+            'warnings'              => '1.11',
+            'warnings::register'    => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.013006 => {
+        delta_from => 5.013005,
+        changed => {
+            'Archive::Extract'      => '0.44',
+            'B'                     => '1.24',
+            'B::Deparse'            => '0.99',
+            'CPAN'                  => '1.94_61',
+            'CPAN::FTP'             => '5.5005',
+            'CPAN::Queue'           => '5.5001',
+            'CPAN::Version'         => '5.5001',
+            'Carp'                  => '1.19',
+            'Carp::Heavy'           => '1.19',
+            'Compress::Raw::Bzip2'  => '2.031',
+            'Cwd'                   => '3.34',
+            'Data::Dumper'          => '2.129',
+            'Devel::Peek'           => '1.05',
+            'Digest::MD5'           => '2.51',
+            'ExtUtils::Constant::Base'=> '0.05',
+            'ExtUtils::Constant::ProxySubs'=> '0.07',
+            'ExtUtils::Embed'       => '1.29',
+            'ExtUtils::XSSymSet'    => '1.2',
+            'Fcntl'                 => '1.09',
+            'File::DosGlob'         => '1.03',
+            'File::Find'            => '1.18',
+            'File::Glob'            => '1.09',
+            'File::Spec'            => '3.33',
+            'File::Spec::Cygwin'    => '3.33',
+            'File::Spec::Epoc'      => '3.33',
+            'File::Spec::Functions' => '3.33',
+            'File::Spec::Mac'       => '3.33',
+            'File::Spec::OS2'       => '3.33',
+            'File::Spec::Unix'      => '3.33',
+            'File::Spec::VMS'       => '3.33',
+            'File::Spec::Win32'     => '3.33',
+            'GDBM_File'             => '1.11',
+            'Hash::Util::FieldHash' => '1.05',
+            'I18N::Langinfo'        => '0.06',
+            'IPC::Cmd'              => '0.64',
+            'IPC::Open3'            => '1.07',
+            'Locale::Codes'         => '3.14',
+            'Locale::Codes::Country'=> '3.14',
+            'Locale::Codes::Currency'=> '3.14',
+            'Locale::Codes::Language'=> '3.14',
+            'Locale::Codes::Script' => '3.14',
+            'Locale::Constants'     => '3.14',
+            'Locale::Country'       => '3.14',
+            'Locale::Currency'      => '3.14',
+            'Locale::Language'      => '3.14',
+            'Locale::Maketext'      => '1.16',
+            'Locale::Script'        => '3.14',
+            'Math::BigFloat'        => '1.63',
+            'Math::BigInt'          => '1.97',
+            'Math::BigInt::Calc'    => '0.55',
+            'Math::BigInt::CalcEmu' => '0.07',
+            'Module::CoreList'      => '2.40',
+            'NDBM_File'             => '1.09',
+            'NEXT'                  => '0.65',
+            'ODBM_File'             => '1.08',
+            'Opcode'                => '1.16',
+            'POSIX'                 => '1.21',
+            'PerlIO::encoding'      => '0.13',
+            'PerlIO::scalar'        => '0.10',
+            'PerlIO::via'           => '0.10',
+            'Pod::Man'              => '2.25',
+            'Pod::Text'             => '3.15',
+            'SDBM_File'             => '1.07',
+            'Socket'                => '1.90',
+            'Sys::Hostname'         => '1.13',
+            'Tie::Hash::NamedCapture'=> '0.07',
+            'Unicode::Collate'      => '0.63',
+            'Unicode::Collate::Locale'=> '0.63',
+            'Unicode::Normalize'    => '1.07',
+            'XS::APItest'           => '0.23',
+            'XSLoader'              => '0.13',
+            'attributes'            => '0.13',
+            'charnames'             => '1.16',
+            'if'                    => '0.06',
+            'mro'                   => '1.04',
+            'overload'              => '1.11',
+            're'                    => '0.13',
+            'sigtrap'               => '1.05',
+            'threads'               => '1.81_01',
+            'threads::shared'       => '1.34',
+        },
+        removed => {
+            'XS::APItest::KeywordRPN'=> 1,
+        }
+    },
+    5.013007 => {
+        delta_from => 5.013006,
+        changed => {
+            'Archive::Extract'      => '0.46',
+            'Archive::Tar'          => '1.72',
+            'Archive::Tar::Constant'=> '1.72',
+            'Archive::Tar::File'    => '1.72',
+            'AutoLoader'            => '5.71',
+            'B'                     => '1.26',
+            'B::Concise'            => '0.81',
+            'B::Deparse'            => '1.01',
+            'CGI'                   => '3.50',
+            'CPAN'                  => '1.94_62',
+            'CPANPLUS'              => '0.9010',
+            'CPANPLUS::Dist::Build' => '0.50',
+            'CPANPLUS::Dist::Build::Constants'=> '0.50',
+            'CPANPLUS::Internals'   => '0.9010',
+            'CPANPLUS::Shell::Default'=> '0.9010',
+            'Data::Dumper'          => '2.130_01',
+            'DynaLoader'            => '1.11',
+            'ExtUtils::Constant'    => '0.23',
+            'ExtUtils::Constant::ProxySubs'=> '0.08',
+            'Fcntl'                 => '1.10',
+            'File::Fetch'           => '0.28',
+            'File::Glob'            => '1.10',
+            'File::stat'            => '1.04',
+            'GDBM_File'             => '1.12',
+            'Hash::Util'            => '0.10',
+            'Hash::Util::FieldHash' => '1.06',
+            'I18N::Langinfo'        => '0.07',
+            'Locale::Maketext'      => '1.17',
+            'Locale::Maketext::Guts'=> '1.17',
+            'Locale::Maketext::GutsLoader'=> '1.17',
+            'MIME::Base64'          => '3.10',
+            'MIME::QuotedPrint'     => '3.10',
+            'Math::BigFloat'        => '1.99_01',
+            'Math::BigInt'          => '1.99_01',
+            'Math::BigInt::Calc'    => '1.99_01',
+            'Math::BigInt::CalcEmu' => '1.99_01',
+            'Math::BigInt::FastCalc'=> '0.24_01',
+            'Math::BigRat'          => '0.26_01',
+            'Module::CoreList'      => '2.41',
+            'NDBM_File'             => '1.10',
+            'ODBM_File'             => '1.09',
+            'Opcode'                => '1.17',
+            'POSIX'                 => '1.22',
+            'Pod::Simple'           => '3.15',
+            'Pod::Simple::BlackBox' => '3.15',
+            'Pod::Simple::Checker'  => '3.15',
+            'Pod::Simple::Debug'    => '3.15',
+            'Pod::Simple::DumpAsText'=> '3.15',
+            'Pod::Simple::DumpAsXML'=> '3.15',
+            'Pod::Simple::HTML'     => '3.15',
+            'Pod::Simple::HTMLBatch'=> '3.15',
+            'Pod::Simple::LinkSection'=> '3.15',
+            'Pod::Simple::Methody'  => '3.15',
+            'Pod::Simple::Progress' => '3.15',
+            'Pod::Simple::PullParser'=> '3.15',
+            'Pod::Simple::PullParserEndToken'=> '3.15',
+            'Pod::Simple::PullParserStartToken'=> '3.15',
+            'Pod::Simple::PullParserTextToken'=> '3.15',
+            'Pod::Simple::PullParserToken'=> '3.15',
+            'Pod::Simple::RTF'      => '3.15',
+            'Pod::Simple::Search'   => '3.15',
+            'Pod::Simple::SimpleTree'=> '3.15',
+            'Pod::Simple::Text'     => '3.15',
+            'Pod::Simple::TextContent'=> '3.15',
+            'Pod::Simple::TiedOutFH'=> '3.15',
+            'Pod::Simple::Transcode'=> '3.15',
+            'Pod::Simple::TranscodeDumb'=> '3.15',
+            'Pod::Simple::TranscodeSmart'=> '3.15',
+            'Pod::Simple::XHTML'    => '3.15',
+            'Pod::Simple::XMLOutStream'=> '3.15',
+            'SDBM_File'             => '1.08',
+            'Safe'                  => '2.29',
+            'SelfLoader'            => '1.18',
+            'Socket'                => '1.91',
+            'Storable'              => '2.24',
+            'Sys::Hostname'         => '1.14',
+            'Unicode'               => '6.0.0',
+            'Unicode::Collate'      => '0.67',
+            'Unicode::Collate::CJK::Big5'=> '0.65',
+            'Unicode::Collate::CJK::GB2312'=> '0.65',
+            'Unicode::Collate::CJK::JISX0208'=> '0.64',
+            'Unicode::Collate::CJK::Korean'=> '0.66',
+            'Unicode::Collate::CJK::Pinyin'=> '0.65',
+            'Unicode::Collate::CJK::Stroke'=> '0.65',
+            'Unicode::Collate::Locale'=> '0.67',
+            'XS::APItest'           => '0.26',
+            'XS::Typemap'           => '0.04',
+            'charnames'             => '1.17',
+            'mro'                   => '1.05',
+            'parent'                => '0.224',
+            're'                    => '0.14',
+            'threads'               => '1.81_02',
+        },
+        removed => {
+        }
+    },
+    5.013008 => {
+        delta_from => 5.013007,
+        changed => {
+            'Archive::Tar'          => '1.74',
+            'Archive::Tar::Constant'=> '1.74',
+            'Archive::Tar::File'    => '1.74',
+            'B'                     => '1.27',
+            'B::Concise'            => '0.82',
+            'B::Deparse'            => '1.02',
+            'Carp::Heavy'           => '1.17',
+            'Cwd'                   => '3.35',
+            'Data::Dumper'          => '2.130_02',
+            'Devel::Peek'           => '1.06',
+            'Devel::SelfStubber'    => '1.05',
+            'Digest::SHA'           => '5.50',
+            'Dumpvalue'             => '1.15',
+            'DynaLoader'            => '1.12',
+            'Env'                   => '1.02',
+            'Exporter::Heavy'       => '5.64_01',
+            'ExtUtils::CBuilder'    => '0.280201',
+            'ExtUtils::CBuilder::Base'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280201',
+            'ExtUtils::Constant::Utils'=> '0.03',
+            'ExtUtils::Embed'       => '1.30',
+            'ExtUtils::ParseXS'     => '2.2208',
+            'Fatal'                 => '2.1001',
+            'Fcntl'                 => '1.11',
+            'File::CheckTree'       => '4.41',
+            'File::Glob'            => '1.11',
+            'GDBM_File'             => '1.13',
+            'Hash::Util::FieldHash' => '1.07',
+            'I18N::Collate'         => '1.02',
+            'IO'                    => '1.25_03',
+            'IPC::Cmd'              => '0.66',
+            'IPC::Open3'            => '1.08',
+            'Locale::Codes'         => '3.15',
+            'Locale::Codes::Country'=> '3.15',
+            'Locale::Codes::Currency'=> '3.15',
+            'Locale::Codes::Language'=> '3.15',
+            'Locale::Codes::Script' => '3.15',
+            'Locale::Constants'     => '3.15',
+            'Locale::Country'       => '3.15',
+            'Locale::Currency'      => '3.15',
+            'Locale::Language'      => '3.15',
+            'Locale::Script'        => '3.15',
+            'MIME::Base64'          => '3.13',
+            'MIME::QuotedPrint'     => '3.13',
+            'Math::BigFloat'        => '1.99_02',
+            'Math::BigInt'          => '1.99_02',
+            'Math::BigInt::Calc'    => '1.99_02',
+            'Math::BigInt::CalcEmu' => '1.99_02',
+            'Memoize'               => '1.02',
+            'Memoize::AnyDBM_File'  => '1.02',
+            'Memoize::Expire'       => '1.02',
+            'Memoize::ExpireFile'   => '1.02',
+            'Memoize::ExpireTest'   => '1.02',
+            'Memoize::NDBM_File'    => '1.02',
+            'Memoize::SDBM_File'    => '1.02',
+            'Memoize::Storable'     => '1.02',
+            'Module::CoreList'      => '2.43',
+            'NDBM_File'             => '1.11',
+            'Net::Ping'             => '2.37',
+            'ODBM_File'             => '1.10',
+            'Opcode'                => '1.18',
+            'POSIX'                 => '1.23',
+            'PerlIO::encoding'      => '0.14',
+            'PerlIO::scalar'        => '0.11',
+            'PerlIO::via'           => '0.11',
+            'SDBM_File'             => '1.09',
+            'Socket'                => '1.92',
+            'Storable'              => '2.25',
+            'Time::HiRes'           => '1.9721_01',
+            'Unicode::Collate'      => '0.6801',
+            'Unicode::Collate::Locale'=> '0.68',
+            'Unicode::Normalize'    => '1.08',
+            'Unicode::UCD'          => '0.30',
+            'Win32'                 => '0.41',
+            'XS::APItest'           => '0.27',
+            'autodie'               => '2.1001',
+            'autodie::exception'    => '2.1001',
+            'autodie::exception::system'=> '2.1001',
+            'autodie::hints'        => '2.1001',
+            'feature'               => '1.19',
+            'if'                    => '0.0601',
+            'mro'                   => '1.06',
+            'overload'              => '1.12',
+            're'                    => '0.15',
+            'threads'               => '1.81_03',
+            'threads::shared'       => '1.35',
+            'version'               => '0.86',
+        },
+        removed => {
+        }
+    },
+    5.013009 => {
+        delta_from => 5.013008,
+        changed => {
+            'Archive::Extract'      => '0.48',
+            'Archive::Tar'          => '1.76',
+            'Archive::Tar::Constant'=> '1.76',
+            'Archive::Tar::File'    => '1.76',
+            'B::Concise'            => '0.83',
+            'B::Deparse'            => '1.03',
+            'B::Lint'               => '1.13',
+            'Benchmark'             => '1.12',
+            'CGI'                   => '3.51',
+            'CGI::Carp'             => '3.51',
+            'CGI::Cookie'           => '1.30',
+            'CGI::Push'             => '1.05',
+            'CGI::Util'             => '3.51',
+            'CPAN'                  => '1.94_63',
+            'CPAN::HTTP::Client'    => '1.94',
+            'CPAN::HTTP::Credentials'=> '1.94',
+            'CPAN::Meta::YAML'      => '0.003',
+            'CPANPLUS'              => '0.9011',
+            'CPANPLUS::Dist::Build' => '0.52',
+            'CPANPLUS::Dist::Build::Constants'=> '0.52',
+            'CPANPLUS::Internals'   => '0.9011',
+            'CPANPLUS::Shell::Default'=> '0.9011',
+            'Carp::Heavy'           => '1.19',
+            'Compress::Raw::Bzip2'  => '2.033',
+            'Compress::Raw::Zlib'   => '2.033',
+            'Compress::Zlib'        => '2.033',
+            'Cwd'                   => '3.36',
+            'DBM_Filter'            => '0.04',
+            'DB_File'               => '1.821',
+            'Devel::Peek'           => '1.07',
+            'DirHandle'             => '1.04',
+            'Dumpvalue'             => '1.16',
+            'Encode'                => '2.42',
+            'Encode::Alias'         => '2.13',
+            'Encode::MIME::Header'  => '2.13',
+            'Exporter::Heavy'       => '5.64_03',
+            'ExtUtils::Install'     => '1.56',
+            'ExtUtils::ParseXS'     => '2.2209',
+            'File::Basename'        => '2.80',
+            'File::Copy'            => '2.21',
+            'File::DosGlob'         => '1.04',
+            'File::Fetch'           => '0.32',
+            'File::Find'            => '1.19',
+            'File::Spec::Mac'       => '3.34',
+            'File::Spec::VMS'       => '3.34',
+            'File::stat'            => '1.05',
+            'HTTP::Tiny'            => '0.009',
+            'Hash::Util::FieldHash' => '1.08',
+            'IO::Compress::Adapter::Bzip2'=> '2.033',
+            'IO::Compress::Adapter::Deflate'=> '2.033',
+            'IO::Compress::Adapter::Identity'=> '2.033',
+            'IO::Compress::Base'    => '2.033',
+            'IO::Compress::Base::Common'=> '2.033',
+            'IO::Compress::Bzip2'   => '2.033',
+            'IO::Compress::Deflate' => '2.033',
+            'IO::Compress::Gzip'    => '2.033',
+            'IO::Compress::Gzip::Constants'=> '2.033',
+            'IO::Compress::RawDeflate'=> '2.033',
+            'IO::Compress::Zip'     => '2.033',
+            'IO::Compress::Zip::Constants'=> '2.033',
+            'IO::Compress::Zlib::Constants'=> '2.033',
+            'IO::Compress::Zlib::Extra'=> '2.033',
+            'IO::Handle'            => '1.29',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.033',
+            'IO::Uncompress::Adapter::Identity'=> '2.033',
+            'IO::Uncompress::Adapter::Inflate'=> '2.033',
+            'IO::Uncompress::AnyInflate'=> '2.033',
+            'IO::Uncompress::AnyUncompress'=> '2.033',
+            'IO::Uncompress::Base'  => '2.033',
+            'IO::Uncompress::Bunzip2'=> '2.033',
+            'IO::Uncompress::Gunzip'=> '2.033',
+            'IO::Uncompress::Inflate'=> '2.033',
+            'IO::Uncompress::RawInflate'=> '2.033',
+            'IO::Uncompress::Unzip' => '2.033',
+            'IPC::Cmd'              => '0.68',
+            'IPC::Open3'            => '1.09',
+            'JSON::PP'              => '2.27103',
+            'JSON::PP::Boolean'     => undef,
+            'Locale::Maketext'      => '1.18',
+            'Log::Message'          => '0.04',
+            'Log::Message::Config'  => '0.04',
+            'Log::Message::Handlers'=> '0.04',
+            'Log::Message::Item'    => '0.04',
+            'Log::Message::Simple'  => '0.08',
+            'Math::BigFloat'        => '1.99_03',
+            'Math::BigInt'          => '1.99_03',
+            'Math::BigInt::Calc'    => '1.99_03',
+            'Math::BigInt::FastCalc'=> '0.24_02',
+            'Math::BigRat'          => '0.26_02',
+            'Module::CoreList'      => '2.42_01',
+            'Module::Load::Conditional'=> '0.40',
+            'Module::Metadata'      => '1.000003',
+            'Net::Ping'             => '2.38',
+            'OS2::Process'          => '1.05',
+            'Object::Accessor'      => '0.38',
+            'POSIX'                 => '1.24',
+            'Params::Check'         => '0.28',
+            'Perl::OSType'          => '1.002',
+            'Pod::LaTeX'            => '0.59',
+            'Pod::Perldoc'          => '3.15_03',
+            'Socket'                => '1.93',
+            'Storable'              => '2.26',
+            'Sys::Hostname'         => '1.15',
+            'Term::UI'              => '0.24',
+            'Thread::Queue'         => '2.12',
+            'Thread::Semaphore'     => '2.12',
+            'Time::Local'           => '1.2000',
+            'UNIVERSAL'             => '1.08',
+            'Unicode::Normalize'    => '1.10',
+            'Win32'                 => '0.44',
+            'bigint'                => '0.26',
+            'bignum'                => '0.26',
+            'bigrat'                => '0.26',
+            'charnames'             => '1.18',
+            'diagnostics'           => '1.21',
+            're'                    => '0.16',
+            'threads'               => '1.83',
+            'threads::shared'       => '1.36',
+            'version'               => '0.88',
+        },
+        removed => {
+        }
+    },
+    5.01301 => {
+        delta_from => 5.013009,
+        changed => {
+            'Attribute::Handlers'   => '0.89',
+            'B'                     => '1.28',
+            'B::Showlex'            => '1.03',
+            'CGI'                   => '3.52',
+            'CPAN'                  => '1.94_65',
+            'CPAN::Distribution'    => '1.9601',
+            'CPAN::FTP::netrc'      => '1.01',
+            'CPAN::FirstTime'       => '5.5303',
+            'CPAN::HandleConfig'    => '5.5003',
+            'CPAN::Meta'            => '2.110440',
+            'CPAN::Meta::Converter' => '2.110440',
+            'CPAN::Meta::Feature'   => '2.110440',
+            'CPAN::Meta::History'   => '2.110440',
+            'CPAN::Meta::Prereqs'   => '2.110440',
+            'CPAN::Meta::Spec'      => '2.110440',
+            'CPAN::Meta::Validator' => '2.110440',
+            'CPAN::Shell'           => '5.5002',
+            'CPANPLUS'              => '0.9101',
+            'CPANPLUS::Internals'   => '0.9101',
+            'CPANPLUS::Shell::Default'=> '0.9101',
+            'Carp'                  => '1.20',
+            'Carp::Heavy'           => '1.20',
+            'Cwd'                   => '3.37',
+            'Devel::DProf'          => '20110217.00',
+            'DynaLoader'            => '1.13',
+            'ExtUtils::CBuilder'    => '0.280202',
+            'ExtUtils::CBuilder::Base'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280202',
+            'File::Copy'            => '2.22',
+            'Filter::Simple'        => '0.86',
+            'HTTP::Tiny'            => '0.010',
+            'I18N::LangTags::Detect'=> '1.05',
+            'IO::Select'            => '1.18',
+            'IPC::Cmd'              => '0.70',
+            'Locale::Maketext'      => '1.19',
+            'Math::BigFloat'        => '1.992',
+            'Math::BigInt'          => '1.992',
+            'Math::BigInt::Calc'    => '1.992',
+            'Math::BigInt::CalcEmu' => '1.992',
+            'Module::Build'         => '0.37_05',
+            'Module::Build::Base'   => '0.37_05',
+            'Module::Build::Compat' => '0.37_05',
+            'Module::Build::Config' => '0.37_05',
+            'Module::Build::Cookbook'=> '0.37_05',
+            'Module::Build::Dumper' => '0.37_05',
+            'Module::Build::ModuleInfo'=> '0.37_05',
+            'Module::Build::Notes'  => '0.37_05',
+            'Module::Build::PPMMaker'=> '0.37_05',
+            'Module::Build::Platform::Amiga'=> '0.37_05',
+            'Module::Build::Platform::Default'=> '0.37_05',
+            'Module::Build::Platform::EBCDIC'=> '0.37_05',
+            'Module::Build::Platform::MPEiX'=> '0.37_05',
+            'Module::Build::Platform::MacOS'=> '0.37_05',
+            'Module::Build::Platform::RiscOS'=> '0.37_05',
+            'Module::Build::Platform::Unix'=> '0.37_05',
+            'Module::Build::Platform::VMS'=> '0.37_05',
+            'Module::Build::Platform::VOS'=> '0.37_05',
+            'Module::Build::Platform::Windows'=> '0.37_05',
+            'Module::Build::Platform::aix'=> '0.37_05',
+            'Module::Build::Platform::cygwin'=> '0.37_05',
+            'Module::Build::Platform::darwin'=> '0.37_05',
+            'Module::Build::Platform::os2'=> '0.37_05',
+            'Module::Build::PodParser'=> '0.37_05',
+            'Module::Build::Version'=> '0.87',
+            'Module::Build::YAML'   => '1.41',
+            'Module::CoreList'      => '2.45',
+            'Module::Load::Conditional'=> '0.44',
+            'Module::Metadata'      => '1.000004',
+            'OS2::Process'          => '1.06',
+            'Parse::CPAN::Meta'     => '1.4401',
+            'Pod::Html'             => '1.1',
+            'Socket'                => '1.94',
+            'Term::UI'              => '0.26',
+            'Unicode::Collate'      => '0.72',
+            'Unicode::Collate::Locale'=> '0.71',
+            'Unicode::UCD'          => '0.31',
+            'VMS::DCLsym'           => '1.05',
+            'Version::Requirements' => '0.101020',
+            'bigrat'                => '0.27',
+            'deprecate'             => '0.02',
+            'diagnostics'           => '1.22',
+            'inc::latest'           => '0.37_05',
+            'overload'              => '1.13',
+            're'                    => '0.17',
+            'utf8'                  => '1.09',
+            'warnings'              => '1.12',
+        },
+        removed => {
+        }
+    },
+    5.013011 => {
+        delta_from => 5.01301,
+        changed => {
+            'App::Prove'            => '3.23',
+            'App::Prove::State'     => '3.23',
+            'App::Prove::State::Result'=> '3.23',
+            'App::Prove::State::Result::Test'=> '3.23',
+            'B'                     => '1.29',
+            'CPAN'                  => '1.9600',
+            'CPAN::Author'          => '5.5001',
+            'CPAN::CacheMgr'        => '5.5001',
+            'CPAN::Distribution'    => '1.9602',
+            'CPAN::Exception::blocked_urllist'=> '1.001',
+            'CPAN::HTTP::Client'    => '1.9600',
+            'CPAN::HTTP::Credentials'=> '1.9600',
+            'CPAN::Index'           => '1.9600',
+            'CPAN::LWP::UserAgent'  => '1.9600',
+            'CPAN::Mirrors'         => '1.9600',
+            'CPAN::Module'          => '5.5001',
+            'CPANPLUS'              => '0.9103',
+            'CPANPLUS::Dist::Build' => '0.54',
+            'CPANPLUS::Dist::Build::Constants'=> '0.54',
+            'CPANPLUS::Internals'   => '0.9103',
+            'CPANPLUS::Shell::Default'=> '0.9103',
+            'Cwd'                   => '3.36',
+            'Devel::DProf'          => '20110228.00',
+            'Digest::SHA'           => '5.61',
+            'ExtUtils::Command'     => '1.17',
+            'File::Basename'        => '2.81',
+            'File::Copy'            => '2.21',
+            'File::Glob'            => '1.12',
+            'GDBM_File'             => '1.14',
+            'HTTP::Tiny'            => '0.011',
+            'Hash::Util'            => '0.11',
+            'Hash::Util::FieldHash' => '1.09',
+            'I18N::Langinfo'        => '0.08',
+            'IO'                    => '1.25_04',
+            'IO::Dir'               => '1.08',
+            'IO::File'              => '1.15',
+            'IO::Handle'            => '1.30',
+            'IO::Pipe'              => '1.14',
+            'IO::Poll'              => '0.08',
+            'IO::Select'            => '1.20',
+            'JSON::PP'              => '2.27105',
+            'Locale::Codes'         => '3.16',
+            'Locale::Codes::Country'=> '3.16',
+            'Locale::Codes::Currency'=> '3.16',
+            'Locale::Codes::Language'=> '3.16',
+            'Locale::Codes::Script' => '3.16',
+            'Locale::Constants'     => '3.16',
+            'Locale::Country'       => '3.16',
+            'Locale::Currency'      => '3.16',
+            'Locale::Language'      => '3.16',
+            'Locale::Script'        => '3.16',
+            'Math::BigFloat'        => '1.993',
+            'Math::BigInt'          => '1.994',
+            'Math::BigInt::Calc'    => '1.993',
+            'Math::BigInt::CalcEmu' => '1.993',
+            'Math::BigInt::FastCalc'=> '0.28',
+            'Module::Build'         => '0.3800',
+            'Module::Build::Base'   => '0.3800',
+            'Module::Build::Compat' => '0.3800',
+            'Module::Build::Config' => '0.3800',
+            'Module::Build::Cookbook'=> '0.3800',
+            'Module::Build::Dumper' => '0.3800',
+            'Module::Build::ModuleInfo'=> '0.3800',
+            'Module::Build::Notes'  => '0.3800',
+            'Module::Build::PPMMaker'=> '0.3800',
+            'Module::Build::Platform::Amiga'=> '0.3800',
+            'Module::Build::Platform::Default'=> '0.3800',
+            'Module::Build::Platform::EBCDIC'=> '0.3800',
+            'Module::Build::Platform::MPEiX'=> '0.3800',
+            'Module::Build::Platform::MacOS'=> '0.3800',
+            'Module::Build::Platform::RiscOS'=> '0.3800',
+            'Module::Build::Platform::Unix'=> '0.3800',
+            'Module::Build::Platform::VMS'=> '0.3800',
+            'Module::Build::Platform::VOS'=> '0.3800',
+            'Module::Build::Platform::Windows'=> '0.3800',
+            'Module::Build::Platform::aix'=> '0.3800',
+            'Module::Build::Platform::cygwin'=> '0.3800',
+            'Module::Build::Platform::darwin'=> '0.3800',
+            'Module::Build::Platform::os2'=> '0.3800',
+            'Module::Build::PodParser'=> '0.3800',
+            'Module::CoreList'      => '2.46',
+            'NDBM_File'             => '1.12',
+            'Pod::Simple'           => '3.16',
+            'Pod::Simple::BlackBox' => '3.16',
+            'Pod::Simple::Checker'  => '3.16',
+            'Pod::Simple::Debug'    => '3.16',
+            'Pod::Simple::DumpAsText'=> '3.16',
+            'Pod::Simple::DumpAsXML'=> '3.16',
+            'Pod::Simple::HTML'     => '3.16',
+            'Pod::Simple::HTMLBatch'=> '3.16',
+            'Pod::Simple::LinkSection'=> '3.16',
+            'Pod::Simple::Methody'  => '3.16',
+            'Pod::Simple::Progress' => '3.16',
+            'Pod::Simple::PullParser'=> '3.16',
+            'Pod::Simple::PullParserEndToken'=> '3.16',
+            'Pod::Simple::PullParserStartToken'=> '3.16',
+            'Pod::Simple::PullParserTextToken'=> '3.16',
+            'Pod::Simple::PullParserToken'=> '3.16',
+            'Pod::Simple::RTF'      => '3.16',
+            'Pod::Simple::Search'   => '3.16',
+            'Pod::Simple::SimpleTree'=> '3.16',
+            'Pod::Simple::Text'     => '3.16',
+            'Pod::Simple::TextContent'=> '3.16',
+            'Pod::Simple::TiedOutFH'=> '3.16',
+            'Pod::Simple::Transcode'=> '3.16',
+            'Pod::Simple::TranscodeDumb'=> '3.16',
+            'Pod::Simple::TranscodeSmart'=> '3.16',
+            'Pod::Simple::XHTML'    => '3.16',
+            'Pod::Simple::XMLOutStream'=> '3.16',
+            'Storable'              => '2.27',
+            'Sys::Hostname'         => '1.16',
+            'TAP::Base'             => '3.23',
+            'TAP::Formatter::Base'  => '3.23',
+            'TAP::Formatter::Color' => '3.23',
+            'TAP::Formatter::Console'=> '3.23',
+            'TAP::Formatter::Console::ParallelSession'=> '3.23',
+            'TAP::Formatter::Console::Session'=> '3.23',
+            'TAP::Formatter::File'  => '3.23',
+            'TAP::Formatter::File::Session'=> '3.23',
+            'TAP::Formatter::Session'=> '3.23',
+            'TAP::Harness'          => '3.23',
+            'TAP::Object'           => '3.23',
+            'TAP::Parser'           => '3.23',
+            'TAP::Parser::Aggregator'=> '3.23',
+            'TAP::Parser::Grammar'  => '3.23',
+            'TAP::Parser::Iterator' => '3.23',
+            'TAP::Parser::Iterator::Array'=> '3.23',
+            'TAP::Parser::Iterator::Process'=> '3.23',
+            'TAP::Parser::Iterator::Stream'=> '3.23',
+            'TAP::Parser::IteratorFactory'=> '3.23',
+            'TAP::Parser::Multiplexer'=> '3.23',
+            'TAP::Parser::Result'   => '3.23',
+            'TAP::Parser::Result::Bailout'=> '3.23',
+            'TAP::Parser::Result::Comment'=> '3.23',
+            'TAP::Parser::Result::Plan'=> '3.23',
+            'TAP::Parser::Result::Pragma'=> '3.23',
+            'TAP::Parser::Result::Test'=> '3.23',
+            'TAP::Parser::Result::Unknown'=> '3.23',
+            'TAP::Parser::Result::Version'=> '3.23',
+            'TAP::Parser::Result::YAML'=> '3.23',
+            'TAP::Parser::ResultFactory'=> '3.23',
+            'TAP::Parser::Scheduler'=> '3.23',
+            'TAP::Parser::Scheduler::Job'=> '3.23',
+            'TAP::Parser::Scheduler::Spinner'=> '3.23',
+            'TAP::Parser::Source'   => '3.23',
+            'TAP::Parser::SourceHandler'=> '3.23',
+            'TAP::Parser::SourceHandler::Executable'=> '3.23',
+            'TAP::Parser::SourceHandler::File'=> '3.23',
+            'TAP::Parser::SourceHandler::Handle'=> '3.23',
+            'TAP::Parser::SourceHandler::Perl'=> '3.23',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.23',
+            'TAP::Parser::Utils'    => '3.23',
+            'TAP::Parser::YAMLish::Reader'=> '3.23',
+            'TAP::Parser::YAMLish::Writer'=> '3.23',
+            'Test::Builder'         => '0.98',
+            'Test::Builder::Module' => '0.98',
+            'Test::Builder::Tester' => '1.22',
+            'Test::Builder::Tester::Color'=> '1.22',
+            'Test::Harness'         => '3.23',
+            'Test::More'            => '0.98',
+            'Test::Simple'          => '0.98',
+            'Tie::Hash::NamedCapture'=> '0.08',
+            'Tie::RefHash'          => '1.39',
+            'Unicode::Collate'      => '0.73',
+            'Unicode::Collate::Locale'=> '0.73',
+            'Unicode::UCD'          => '0.32',
+            'XS::Typemap'           => '0.05',
+            'attributes'            => '0.14',
+            'base'                  => '2.16',
+            'inc::latest'           => '0.3800',
+            'mro'                   => '1.07',
+            'parent'                => '0.225',
+        },
+        removed => {
+        }
+    },
+    5.014 => {
+        delta_from => 5.013011,
+        changed => {
+            'ExtUtils::CBuilder'    => '0.280203',
+            'ExtUtils::CBuilder::Base'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280203',
+            'ExtUtils::ParseXS'     => '2.2210',
+            'File::Basename'        => '2.82',
+            'HTTP::Tiny'            => '0.012',
+            'IO::Handle'            => '1.31',
+            'Module::CoreList'      => '2.49',
+            'PerlIO'                => '1.07',
+            'Pod::Html'             => '1.11',
+            'XS::APItest'           => '0.28',
+            'bigint'                => '0.27',
+            'bignum'                => '0.27',
+            'bigrat'                => '0.28',
+            'constant'              => '1.21',
+            'feature'               => '1.20',
+            're'                    => '0.18',
+            'threads::shared'       => '1.37',
+        },
+        removed => {
+        }
+    },
+    5.014001 => {
+        delta_from => 5.014,
+        changed => {
+            'B::Deparse'            => '1.04',
+            'Module::CoreList'      => '2.49_01',
+            'Pod::Perldoc'          => '3.15_04',
+        },
+        removed => {
+        }
+    },
+    5.014002 => {
+        delta_from => 5.014001,
+        changed => {
+            'CPAN'                  => '1.9600_01',
+            'CPAN::Distribution'    => '1.9602_01',
+            'Devel::DProf::dprof::V'=> undef,
+            'Encode'                => '2.42_01',
+            'File::Glob'            => '1.13',
+            'Module::CoreList'      => '2.49_02',
+            'PerlIO::scalar'        => '0.11_01',
+            'Time::Piece::Seconds'  => undef,
+        },
+        removed => {
+        }
+    },
+    5.014003 => {
+        delta_from => 5.014002,
+        changed => {
+            'Digest'                => '1.16_01',
+            'IPC::Open3'            => '1.09_01',
+            'Module::CoreList'      => '2.49_04',
+        },
+        removed => {
+        }
+    },
+    5.014004 => {
+        delta_from => 5.014003,
+        changed => {
+            'Encode'                => '2.42_02',
+            'IPC::Open3'            => '1.0901',
+            'Module::CoreList'      => '2.49_06',
+        },
+        removed => {
+        }
+    },
+    5.015 => {
+        delta_from => 5.014001,
+        changed => {
+            'Archive::Extract'      => '0.52',
+            'Attribute::Handlers'   => '0.91',
+            'B'                     => '1.30',
+            'B::Concise'            => '0.84',
+            'B::Deparse'            => '1.05',
+            'Benchmark'             => '1.13',
+            'CGI'                   => '3.54',
+            'CGI::Util'             => '3.53',
+            'CPAN::Meta'            => '2.110930',
+            'CPAN::Meta::Converter' => '2.110930',
+            'CPAN::Meta::Feature'   => '2.110930',
+            'CPAN::Meta::History'   => '2.110930',
+            'CPAN::Meta::Prereqs'   => '2.110930',
+            'CPAN::Meta::Spec'      => '2.110930',
+            'CPAN::Meta::Validator' => '2.110930',
+            'CPANPLUS'              => '0.9105',
+            'CPANPLUS::Dist::Build' => '0.56',
+            'CPANPLUS::Dist::Build::Constants'=> '0.56',
+            'CPANPLUS::Internals'   => '0.9105',
+            'CPANPLUS::Shell::Default'=> '0.9105',
+            'Compress::Raw::Bzip2'  => '2.035',
+            'Compress::Raw::Zlib'   => '2.035',
+            'Compress::Zlib'        => '2.035',
+            'DB_File'               => '1.822',
+            'Data::Dumper'          => '2.131',
+            'Devel::Peek'           => '1.08',
+            'Digest::SHA'           => '5.62',
+            'Encode'                => '2.43',
+            'Encode::Alias'         => '2.14',
+            'ExtUtils::CBuilder'    => '0.280204',
+            'ExtUtils::CBuilder::Base'=> '0.280204',
+            'Fatal'                 => '2.10',
+            'File::Spec::Win32'     => '3.34',
+            'Filter::Simple'        => '0.87',
+            'Filter::Util::Call'    => '1.39',
+            'FindBin'               => '1.51',
+            'Hash::Util::FieldHash' => '1.10',
+            'I18N::LangTags'        => '0.36',
+            'IO::Compress::Adapter::Bzip2'=> '2.035',
+            'IO::Compress::Adapter::Deflate'=> '2.035',
+            'IO::Compress::Adapter::Identity'=> '2.035',
+            'IO::Compress::Base'    => '2.035',
+            'IO::Compress::Base::Common'=> '2.035',
+            'IO::Compress::Bzip2'   => '2.035',
+            'IO::Compress::Deflate' => '2.035',
+            'IO::Compress::Gzip'    => '2.035',
+            'IO::Compress::Gzip::Constants'=> '2.035',
+            'IO::Compress::RawDeflate'=> '2.035',
+            'IO::Compress::Zip'     => '2.035',
+            'IO::Compress::Zip::Constants'=> '2.035',
+            'IO::Compress::Zlib::Constants'=> '2.035',
+            'IO::Compress::Zlib::Extra'=> '2.035',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.035',
+            'IO::Uncompress::Adapter::Identity'=> '2.035',
+            'IO::Uncompress::Adapter::Inflate'=> '2.035',
+            'IO::Uncompress::AnyInflate'=> '2.035',
+            'IO::Uncompress::AnyUncompress'=> '2.035',
+            'IO::Uncompress::Base'  => '2.035',
+            'IO::Uncompress::Bunzip2'=> '2.035',
+            'IO::Uncompress::Gunzip'=> '2.035',
+            'IO::Uncompress::Inflate'=> '2.035',
+            'IO::Uncompress::RawInflate'=> '2.035',
+            'IO::Uncompress::Unzip' => '2.035',
+            'IPC::Open2'            => '1.04',
+            'IPC::Open3'            => '1.11',
+            'JSON::PP'              => '2.27200',
+            'Math::BigFloat'        => '1.994',
+            'Math::BigInt'          => '1.995',
+            'Math::Complex'         => '1.57',
+            'Math::Trig'            => '1.21',
+            'Module::CoreList'      => '2.51',
+            'ODBM_File'             => '1.11',
+            'Object::Accessor'      => '0.42',
+            'Opcode'                => '1.19',
+            'PerlIO::encoding'      => '0.15',
+            'PerlIO::scalar'        => '0.12',
+            'Pod::Perldoc'          => '3.15_05',
+            'Storable'              => '2.28',
+            'Sys::Syslog'           => '0.29',
+            'Time::HiRes'           => '1.9722',
+            'Unicode::Collate'      => '0.76',
+            'Unicode::Collate::CJK::Pinyin'=> '0.76',
+            'Unicode::Collate::CJK::Stroke'=> '0.76',
+            'Unicode::Collate::Locale'=> '0.76',
+            'Unicode::Normalize'    => '1.12',
+            'XS::APItest'           => '0.29',
+            'XSLoader'              => '0.15',
+            'autodie'               => '2.10',
+            'autodie::exception'    => '2.10',
+            'autodie::exception::system'=> '2.10',
+            'autodie::hints'        => '2.10',
+            'base'                  => '2.17',
+            'charnames'             => '1.22',
+            'constant'              => '1.22',
+            'feature'               => '1.21',
+            'mro'                   => '1.08',
+            'overload'              => '1.14',
+            'threads::shared'       => '1.38',
+            'vmsish'                => '1.03',
+        },
+        removed => {
+            'Devel::DProf'          => 1,
+            'Shell'                 => 1,
+        }
+    },
+    5.015001 => {
+        delta_from => 5.015,
+        changed => {
+            'B::Deparse'            => '1.06',
+            'CGI'                   => '3.55',
+            'CPAN::Meta'            => '2.110930001',
+            'CPAN::Meta::Converter' => '2.110930001',
+            'CPANPLUS'              => '0.9108',
+            'CPANPLUS::Internals'   => '0.9108',
+            'CPANPLUS::Shell::Default'=> '0.9108',
+            'Carp'                  => '1.21',
+            'Carp::Heavy'           => '1.21',
+            'Compress::Raw::Bzip2'  => '2.037',
+            'Compress::Raw::Zlib'   => '2.037',
+            'Compress::Zlib'        => '2.037',
+            'Cwd'                   => '3.37',
+            'Env'                   => '1.03',
+            'ExtUtils::Command::MM' => '6.58',
+            'ExtUtils::Liblist'     => '6.58',
+            'ExtUtils::Liblist::Kid'=> '6.58',
+            'ExtUtils::MM'          => '6.58',
+            'ExtUtils::MM_AIX'      => '6.58',
+            'ExtUtils::MM_Any'      => '6.58',
+            'ExtUtils::MM_BeOS'     => '6.58',
+            'ExtUtils::MM_Cygwin'   => '6.58',
+            'ExtUtils::MM_DOS'      => '6.58',
+            'ExtUtils::MM_Darwin'   => '6.58',
+            'ExtUtils::MM_MacOS'    => '6.58',
+            'ExtUtils::MM_NW5'      => '6.58',
+            'ExtUtils::MM_OS2'      => '6.58',
+            'ExtUtils::MM_QNX'      => '6.58',
+            'ExtUtils::MM_UWIN'     => '6.58',
+            'ExtUtils::MM_Unix'     => '6.58',
+            'ExtUtils::MM_VMS'      => '6.58',
+            'ExtUtils::MM_VOS'      => '6.58',
+            'ExtUtils::MM_Win32'    => '6.58',
+            'ExtUtils::MM_Win95'    => '6.58',
+            'ExtUtils::MY'          => '6.58',
+            'ExtUtils::MakeMaker'   => '6.58',
+            'ExtUtils::MakeMaker::Config'=> '6.58',
+            'ExtUtils::Mkbootstrap' => '6.58',
+            'ExtUtils::Mksymlists'  => '6.58',
+            'ExtUtils::ParseXS'     => '3.00_01',
+            'ExtUtils::ParseXS::Constants'=> undef,
+            'ExtUtils::ParseXS::CountLines'=> undef,
+            'ExtUtils::ParseXS::Utilities'=> undef,
+            'ExtUtils::Typemaps'    => '1.00',
+            'ExtUtils::Typemaps::InputMap'=> undef,
+            'ExtUtils::Typemaps::OutputMap'=> undef,
+            'ExtUtils::Typemaps::Type'=> '0.05',
+            'ExtUtils::testlib'     => '6.58',
+            'File::Basename'        => '2.83',
+            'File::Find'            => '1.20',
+            'HTTP::Tiny'            => '0.013',
+            'I18N::Langinfo'        => '0.08_02',
+            'IO::Compress::Adapter::Bzip2'=> '2.037',
+            'IO::Compress::Adapter::Deflate'=> '2.037',
+            'IO::Compress::Adapter::Identity'=> '2.037',
+            'IO::Compress::Base'    => '2.037',
+            'IO::Compress::Base::Common'=> '2.037',
+            'IO::Compress::Bzip2'   => '2.037',
+            'IO::Compress::Deflate' => '2.037',
+            'IO::Compress::Gzip'    => '2.037',
+            'IO::Compress::Gzip::Constants'=> '2.037',
+            'IO::Compress::RawDeflate'=> '2.037',
+            'IO::Compress::Zip'     => '2.037',
+            'IO::Compress::Zip::Constants'=> '2.037',
+            'IO::Compress::Zlib::Constants'=> '2.037',
+            'IO::Compress::Zlib::Extra'=> '2.037',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.037',
+            'IO::Uncompress::Adapter::Identity'=> '2.037',
+            'IO::Uncompress::Adapter::Inflate'=> '2.037',
+            'IO::Uncompress::AnyInflate'=> '2.037',
+            'IO::Uncompress::AnyUncompress'=> '2.037',
+            'IO::Uncompress::Base'  => '2.037',
+            'IO::Uncompress::Bunzip2'=> '2.037',
+            'IO::Uncompress::Gunzip'=> '2.037',
+            'IO::Uncompress::Inflate'=> '2.037',
+            'IO::Uncompress::RawInflate'=> '2.037',
+            'IO::Uncompress::Unzip' => '2.037',
+            'IPC::Cmd'              => '0.72',
+            'Locale::Codes'         => '3.17',
+            'Locale::Codes::Constants'=> '3.17',
+            'Locale::Codes::Country'=> '3.17',
+            'Locale::Codes::Country_Codes'=> '3.17',
+            'Locale::Codes::Currency'=> '3.17',
+            'Locale::Codes::Currency_Codes'=> '3.17',
+            'Locale::Codes::LangExt'=> '3.17',
+            'Locale::Codes::LangExt_Codes'=> '3.17',
+            'Locale::Codes::LangVar'=> '3.17',
+            'Locale::Codes::LangVar_Codes'=> '3.17',
+            'Locale::Codes::Language'=> '3.17',
+            'Locale::Codes::Language_Codes'=> '3.17',
+            'Locale::Codes::Script' => '3.17',
+            'Locale::Codes::Script_Codes'=> '3.17',
+            'Locale::Country'       => '3.17',
+            'Locale::Currency'      => '3.17',
+            'Locale::Language'      => '3.17',
+            'Locale::Script'        => '3.17',
+            'Math::BigFloat::Trace' => '0.28',
+            'Math::BigInt::FastCalc'=> '0.29',
+            'Math::BigInt::Trace'   => '0.28',
+            'Math::BigRat'          => '0.2602',
+            'Math::Complex'         => '1.58',
+            'Math::Trig'            => '1.22',
+            'Module::CoreList'      => '2.54',
+            'OS2::Process'          => '1.07',
+            'Pod::Perldoc'          => '3.15_06',
+            'Pod::Simple'           => '3.18',
+            'Pod::Simple::BlackBox' => '3.18',
+            'Pod::Simple::Checker'  => '3.18',
+            'Pod::Simple::Debug'    => '3.18',
+            'Pod::Simple::DumpAsText'=> '3.18',
+            'Pod::Simple::DumpAsXML'=> '3.18',
+            'Pod::Simple::HTML'     => '3.18',
+            'Pod::Simple::HTMLBatch'=> '3.18',
+            'Pod::Simple::LinkSection'=> '3.18',
+            'Pod::Simple::Methody'  => '3.18',
+            'Pod::Simple::Progress' => '3.18',
+            'Pod::Simple::PullParser'=> '3.18',
+            'Pod::Simple::PullParserEndToken'=> '3.18',
+            'Pod::Simple::PullParserStartToken'=> '3.18',
+            'Pod::Simple::PullParserTextToken'=> '3.18',
+            'Pod::Simple::PullParserToken'=> '3.18',
+            'Pod::Simple::RTF'      => '3.18',
+            'Pod::Simple::Search'   => '3.18',
+            'Pod::Simple::SimpleTree'=> '3.18',
+            'Pod::Simple::Text'     => '3.18',
+            'Pod::Simple::TextContent'=> '3.18',
+            'Pod::Simple::TiedOutFH'=> '3.18',
+            'Pod::Simple::Transcode'=> '3.18',
+            'Pod::Simple::TranscodeDumb'=> '3.18',
+            'Pod::Simple::TranscodeSmart'=> '3.18',
+            'Pod::Simple::XHTML'    => '3.18',
+            'Pod::Simple::XMLOutStream'=> '3.18',
+            'Storable'              => '2.31',
+            'Sys::Syslog::Win32'    => undef,
+            'Time::HiRes'           => '1.9724',
+            'Unicode::Collate'      => '0.77',
+            'Unicode::UCD'          => '0.33',
+            'Win32API::File'        => '0.1200',
+            'XS::APItest'           => '0.30',
+            'attributes'            => '0.15',
+            'bigint'                => '0.28',
+            'bignum'                => '0.28',
+            'charnames'             => '1.23',
+            'diagnostics'           => '1.23',
+            'feature'               => '1.22',
+            'overload'              => '1.15',
+            'perlfaq'               => '5.015000',
+            'threads'               => '1.84',
+            'version'               => '0.93',
+        },
+        removed => {
+            'ExtUtils::MakeMaker::YAML'=> 1,
+            'Locale::Constants'     => 1,
+            'Sys::Syslog::win32::Win32'=> 1,
+        }
+    },
+    5.015002 => {
+        delta_from => 5.015001,
+        changed => {
+            'Attribute::Handlers'   => '0.92',
+            'B'                     => '1.31',
+            'B::Concise'            => '0.85',
+            'B::Deparse'            => '1.07',
+            'B::Terse'              => '1.06',
+            'B::Xref'               => '1.03',
+            'CPAN'                  => '1.9800',
+            'CPAN::Exception::yaml_process_error'=> '5.5',
+            'CPAN::Meta'            => '2.112150',
+            'CPAN::Meta::Converter' => '2.112150',
+            'CPAN::Meta::Feature'   => '2.112150',
+            'CPAN::Meta::History'   => '2.112150',
+            'CPAN::Meta::Prereqs'   => '2.112150',
+            'CPAN::Meta::Spec'      => '2.112150',
+            'CPAN::Meta::Validator' => '2.112150',
+            'CPANPLUS'              => '0.9109',
+            'CPANPLUS::Internals'   => '0.9109',
+            'CPANPLUS::Shell::Default'=> '0.9109',
+            'DB_File'               => '1.824',
+            'Data::Dumper'          => '2.132',
+            'Encode'                => '2.44',
+            'Encode::Alias'         => '2.15',
+            'Encode::Encoder'       => '2.02',
+            'Encode::Guess'         => '2.05',
+            'ExtUtils::Command::MM' => '6.59',
+            'ExtUtils::Install'     => '1.57',
+            'ExtUtils::Installed'   => '1.999002',
+            'ExtUtils::Liblist'     => '6.59',
+            'ExtUtils::Liblist::Kid'=> '6.59',
+            'ExtUtils::MM'          => '6.59',
+            'ExtUtils::MM_AIX'      => '6.59',
+            'ExtUtils::MM_Any'      => '6.59',
+            'ExtUtils::MM_BeOS'     => '6.59',
+            'ExtUtils::MM_Cygwin'   => '6.59',
+            'ExtUtils::MM_DOS'      => '6.59',
+            'ExtUtils::MM_Darwin'   => '6.59',
+            'ExtUtils::MM_MacOS'    => '6.59',
+            'ExtUtils::MM_NW5'      => '6.59',
+            'ExtUtils::MM_OS2'      => '6.59',
+            'ExtUtils::MM_QNX'      => '6.59',
+            'ExtUtils::MM_UWIN'     => '6.59',
+            'ExtUtils::MM_Unix'     => '6.59',
+            'ExtUtils::MM_VMS'      => '6.59',
+            'ExtUtils::MM_VOS'      => '6.59',
+            'ExtUtils::MM_Win32'    => '6.59',
+            'ExtUtils::MM_Win95'    => '6.59',
+            'ExtUtils::MY'          => '6.59',
+            'ExtUtils::MakeMaker'   => '6.59',
+            'ExtUtils::MakeMaker::Config'=> '6.59',
+            'ExtUtils::Manifest'    => '1.60',
+            'ExtUtils::Mkbootstrap' => '6.59',
+            'ExtUtils::Mksymlists'  => '6.59',
+            'ExtUtils::ParseXS'     => '3.03_01',
+            'ExtUtils::Typemaps'    => '1.01',
+            'ExtUtils::testlib'     => '6.59',
+            'File::Spec'            => '3.34',
+            'File::Spec::Mac'       => '3.35',
+            'File::Spec::Unix'      => '3.34',
+            'File::Spec::VMS'       => '3.35',
+            'File::Spec::Win32'     => '3.35',
+            'I18N::LangTags'        => '0.37',
+            'IO'                    => '1.25_05',
+            'IO::Handle'            => '1.32',
+            'IO::Socket'            => '1.33',
+            'IO::Socket::INET'      => '1.32',
+            'IPC::Open3'            => '1.12',
+            'Math::BigFloat'        => '1.995',
+            'Math::BigFloat::Trace' => '0.29',
+            'Math::BigInt'          => '1.996',
+            'Math::BigInt::Trace'   => '0.29',
+            'Module::Build'         => '0.39_01',
+            'Module::Build::Base'   => '0.39_01',
+            'Module::Build::Compat' => '0.39_01',
+            'Module::Build::Config' => '0.39_01',
+            'Module::Build::Cookbook'=> '0.39_01',
+            'Module::Build::Dumper' => '0.39_01',
+            'Module::Build::ModuleInfo'=> '0.39_01',
+            'Module::Build::Notes'  => '0.39_01',
+            'Module::Build::PPMMaker'=> '0.39_01',
+            'Module::Build::Platform::Amiga'=> '0.39_01',
+            'Module::Build::Platform::Default'=> '0.39_01',
+            'Module::Build::Platform::EBCDIC'=> '0.39_01',
+            'Module::Build::Platform::MPEiX'=> '0.39_01',
+            'Module::Build::Platform::MacOS'=> '0.39_01',
+            'Module::Build::Platform::RiscOS'=> '0.39_01',
+            'Module::Build::Platform::Unix'=> '0.39_01',
+            'Module::Build::Platform::VMS'=> '0.39_01',
+            'Module::Build::Platform::VOS'=> '0.39_01',
+            'Module::Build::Platform::Windows'=> '0.39_01',
+            'Module::Build::Platform::aix'=> '0.39_01',
+            'Module::Build::Platform::cygwin'=> '0.39_01',
+            'Module::Build::Platform::darwin'=> '0.39_01',
+            'Module::Build::Platform::os2'=> '0.39_01',
+            'Module::Build::PodParser'=> '0.39_01',
+            'Module::CoreList'      => '2.55',
+            'Module::Load'          => '0.20',
+            'Module::Metadata'      => '1.000005_01',
+            'Opcode'                => '1.20',
+            'Params::Check'         => '0.32',
+            'PerlIO::via'           => '0.12',
+            'Term::ANSIColor'       => '3.01',
+            'Unicode::Collate'      => '0.78',
+            'Unicode::Normalize'    => '1.13',
+            'Unicode::UCD'          => '0.34',
+            'bigint'                => '0.29',
+            'bignum'                => '0.29',
+            'bigrat'                => '0.29',
+            'diagnostics'           => '1.24',
+            'fields'                => '2.16',
+            'inc::latest'           => '0.39_01',
+        },
+        removed => {
+        }
+    },
+    5.015003 => {
+        delta_from => 5.015002,
+        changed => {
+            'AnyDBM_File'           => '1.01',
+            'Archive::Extract'      => '0.56',
+            'Archive::Tar'          => '1.78',
+            'Archive::Tar::Constant'=> '1.78',
+            'Archive::Tar::File'    => '1.78',
+            'Attribute::Handlers'   => '0.93',
+            'B'                     => '1.32',
+            'B::Concise'            => '0.86',
+            'B::Deparse'            => '1.08',
+            'CPAN::Meta'            => '2.112621',
+            'CPAN::Meta::Converter' => '2.112621',
+            'CPAN::Meta::Feature'   => '2.112621',
+            'CPAN::Meta::History'   => '2.112621',
+            'CPAN::Meta::Prereqs'   => '2.112621',
+            'CPAN::Meta::Spec'      => '2.112621',
+            'CPAN::Meta::Validator' => '2.112621',
+            'CPAN::Meta::YAML'      => '0.004',
+            'CPANPLUS'              => '0.9111',
+            'CPANPLUS::Dist::Build' => '0.58',
+            'CPANPLUS::Dist::Build::Constants'=> '0.58',
+            'CPANPLUS::Internals'   => '0.9111',
+            'CPANPLUS::Shell::Default'=> '0.9111',
+            'Carp'                  => '1.23',
+            'Carp::Heavy'           => '1.23',
+            'Data::Dumper'          => '2.134',
+            'Devel::PPPort'         => '3.20',
+            'Errno'                 => '1.14',
+            'Exporter'              => '5.65',
+            'Exporter::Heavy'       => '5.65',
+            'ExtUtils::ParseXS'     => '3.04_04',
+            'ExtUtils::ParseXS::Constants'=> '3.04_04',
+            'ExtUtils::ParseXS::CountLines'=> '3.04_04',
+            'ExtUtils::ParseXS::Utilities'=> '3.04_04',
+            'ExtUtils::Typemaps'    => '1.02',
+            'File::Glob'            => '1.13',
+            'Filter::Simple'        => '0.88',
+            'IO'                    => '1.25_06',
+            'IO::Handle'            => '1.33',
+            'Locale::Codes'         => '3.18',
+            'Locale::Codes::Constants'=> '3.18',
+            'Locale::Codes::Country'=> '3.18',
+            'Locale::Codes::Country_Codes'=> '3.18',
+            'Locale::Codes::Currency'=> '3.18',
+            'Locale::Codes::Currency_Codes'=> '3.18',
+            'Locale::Codes::LangExt'=> '3.18',
+            'Locale::Codes::LangExt_Codes'=> '3.18',
+            'Locale::Codes::LangVar'=> '3.18',
+            'Locale::Codes::LangVar_Codes'=> '3.18',
+            'Locale::Codes::Language'=> '3.18',
+            'Locale::Codes::Language_Codes'=> '3.18',
+            'Locale::Codes::Script' => '3.18',
+            'Locale::Codes::Script_Codes'=> '3.18',
+            'Locale::Country'       => '3.18',
+            'Locale::Currency'      => '3.18',
+            'Locale::Language'      => '3.18',
+            'Locale::Script'        => '3.18',
+            'Math::BigFloat'        => '1.997',
+            'Math::BigInt'          => '1.997',
+            'Math::BigInt::Calc'    => '1.997',
+            'Math::BigInt::CalcEmu' => '1.997',
+            'Math::BigInt::FastCalc'=> '0.30',
+            'Math::BigRat'          => '0.2603',
+            'Module::CoreList'      => '2.56',
+            'Module::Load::Conditional'=> '0.46',
+            'Module::Metadata'      => '1.000007',
+            'ODBM_File'             => '1.12',
+            'POSIX'                 => '1.26',
+            'Pod::Perldoc'          => '3.15_07',
+            'Pod::Simple'           => '3.19',
+            'Pod::Simple::BlackBox' => '3.19',
+            'Pod::Simple::Checker'  => '3.19',
+            'Pod::Simple::Debug'    => '3.19',
+            'Pod::Simple::DumpAsText'=> '3.19',
+            'Pod::Simple::DumpAsXML'=> '3.19',
+            'Pod::Simple::HTML'     => '3.19',
+            'Pod::Simple::HTMLBatch'=> '3.19',
+            'Pod::Simple::LinkSection'=> '3.19',
+            'Pod::Simple::Methody'  => '3.19',
+            'Pod::Simple::Progress' => '3.19',
+            'Pod::Simple::PullParser'=> '3.19',
+            'Pod::Simple::PullParserEndToken'=> '3.19',
+            'Pod::Simple::PullParserStartToken'=> '3.19',
+            'Pod::Simple::PullParserTextToken'=> '3.19',
+            'Pod::Simple::PullParserToken'=> '3.19',
+            'Pod::Simple::RTF'      => '3.19',
+            'Pod::Simple::Search'   => '3.19',
+            'Pod::Simple::SimpleTree'=> '3.19',
+            'Pod::Simple::Text'     => '3.19',
+            'Pod::Simple::TextContent'=> '3.19',
+            'Pod::Simple::TiedOutFH'=> '3.19',
+            'Pod::Simple::Transcode'=> '3.19',
+            'Pod::Simple::TranscodeDumb'=> '3.19',
+            'Pod::Simple::TranscodeSmart'=> '3.19',
+            'Pod::Simple::XHTML'    => '3.19',
+            'Pod::Simple::XMLOutStream'=> '3.19',
+            'Search::Dict'          => '1.04',
+            'Socket'                => '1.94_01',
+            'Storable'              => '2.32',
+            'Text::Abbrev'          => '1.02',
+            'Tie::Array'            => '1.05',
+            'UNIVERSAL'             => '1.09',
+            'Unicode::UCD'          => '0.35',
+            'XS::APItest'           => '0.31',
+            'XSLoader'              => '0.16',
+            'attributes'            => '0.16',
+            'diagnostics'           => '1.25',
+            'open'                  => '1.09',
+            'perlfaq'               => '5.0150034',
+            'threads'               => '1.85',
+            'threads::shared'       => '1.40',
+        },
+        removed => {
+        }
+    },
+    5.015004 => {
+        delta_from => 5.015003,
+        changed => {
+            'Archive::Tar'          => '1.80',
+            'Archive::Tar::Constant'=> '1.80',
+            'Archive::Tar::File'    => '1.80',
+            'Digest'                => '1.17',
+            'DynaLoader'            => '1.14',
+            'ExtUtils::Command::MM' => '6.61_01',
+            'ExtUtils::Liblist'     => '6.61_01',
+            'ExtUtils::Liblist::Kid'=> '6.61_01',
+            'ExtUtils::MM'          => '6.61_01',
+            'ExtUtils::MM_AIX'      => '6.61_01',
+            'ExtUtils::MM_Any'      => '6.61_01',
+            'ExtUtils::MM_BeOS'     => '6.61_01',
+            'ExtUtils::MM_Cygwin'   => '6.61_01',
+            'ExtUtils::MM_DOS'      => '6.61_01',
+            'ExtUtils::MM_Darwin'   => '6.61_01',
+            'ExtUtils::MM_MacOS'    => '6.61_01',
+            'ExtUtils::MM_NW5'      => '6.61_01',
+            'ExtUtils::MM_OS2'      => '6.61_01',
+            'ExtUtils::MM_QNX'      => '6.61_01',
+            'ExtUtils::MM_UWIN'     => '6.61_01',
+            'ExtUtils::MM_Unix'     => '6.61_01',
+            'ExtUtils::MM_VMS'      => '6.61_01',
+            'ExtUtils::MM_VOS'      => '6.61_01',
+            'ExtUtils::MM_Win32'    => '6.61_01',
+            'ExtUtils::MM_Win95'    => '6.61_01',
+            'ExtUtils::MY'          => '6.61_01',
+            'ExtUtils::MakeMaker'   => '6.61_01',
+            'ExtUtils::MakeMaker::Config'=> '6.61_01',
+            'ExtUtils::Mkbootstrap' => '6.61_01',
+            'ExtUtils::Mksymlists'  => '6.61_01',
+            'ExtUtils::ParseXS'     => '3.05',
+            'ExtUtils::ParseXS::Constants'=> '3.05',
+            'ExtUtils::ParseXS::CountLines'=> '3.05',
+            'ExtUtils::ParseXS::Utilities'=> '3.05',
+            'ExtUtils::testlib'     => '6.61_01',
+            'File::DosGlob'         => '1.05',
+            'Module::CoreList'      => '2.57',
+            'Module::Load'          => '0.22',
+            'Unicode::Collate'      => '0.80',
+            'Unicode::Collate::Locale'=> '0.80',
+            'Unicode::UCD'          => '0.36',
+            'XS::APItest'           => '0.32',
+            'XS::Typemap'           => '0.07',
+            'attributes'            => '0.17',
+            'base'                  => '2.18',
+            'constant'              => '1.23',
+            'mro'                   => '1.09',
+            'open'                  => '1.10',
+            'perlfaq'               => '5.0150035',
+        },
+        removed => {
+        }
+    },
+    5.015005 => {
+        delta_from => 5.015004,
+        changed => {
+            'Archive::Extract'      => '0.58',
+            'B::Concise'            => '0.87',
+            'B::Deparse'            => '1.09',
+            'CGI'                   => '3.58',
+            'CGI::Fast'             => '1.09',
+            'CPANPLUS'              => '0.9112',
+            'CPANPLUS::Dist::Build' => '0.60',
+            'CPANPLUS::Dist::Build::Constants'=> '0.60',
+            'CPANPLUS::Internals'   => '0.9112',
+            'CPANPLUS::Shell::Default'=> '0.9112',
+            'Compress::Raw::Bzip2'  => '2.042',
+            'Compress::Raw::Zlib'   => '2.042',
+            'Compress::Zlib'        => '2.042',
+            'Digest::SHA'           => '5.63',
+            'Errno'                 => '1.15',
+            'ExtUtils::Command::MM' => '6.63_02',
+            'ExtUtils::Liblist'     => '6.63_02',
+            'ExtUtils::Liblist::Kid'=> '6.63_02',
+            'ExtUtils::MM'          => '6.63_02',
+            'ExtUtils::MM_AIX'      => '6.63_02',
+            'ExtUtils::MM_Any'      => '6.63_02',
+            'ExtUtils::MM_BeOS'     => '6.63_02',
+            'ExtUtils::MM_Cygwin'   => '6.63_02',
+            'ExtUtils::MM_DOS'      => '6.63_02',
+            'ExtUtils::MM_Darwin'   => '6.63_02',
+            'ExtUtils::MM_MacOS'    => '6.63_02',
+            'ExtUtils::MM_NW5'      => '6.63_02',
+            'ExtUtils::MM_OS2'      => '6.63_02',
+            'ExtUtils::MM_QNX'      => '6.63_02',
+            'ExtUtils::MM_UWIN'     => '6.63_02',
+            'ExtUtils::MM_Unix'     => '6.63_02',
+            'ExtUtils::MM_VMS'      => '6.63_02',
+            'ExtUtils::MM_VOS'      => '6.63_02',
+            'ExtUtils::MM_Win32'    => '6.63_02',
+            'ExtUtils::MM_Win95'    => '6.63_02',
+            'ExtUtils::MY'          => '6.63_02',
+            'ExtUtils::MakeMaker'   => '6.63_02',
+            'ExtUtils::MakeMaker::Config'=> '6.63_02',
+            'ExtUtils::Mkbootstrap' => '6.63_02',
+            'ExtUtils::Mksymlists'  => '6.63_02',
+            'ExtUtils::testlib'     => '6.63_02',
+            'File::DosGlob'         => '1.06',
+            'File::Glob'            => '1.14',
+            'HTTP::Tiny'            => '0.016',
+            'IO::Compress::Adapter::Bzip2'=> '2.042',
+            'IO::Compress::Adapter::Deflate'=> '2.042',
+            'IO::Compress::Adapter::Identity'=> '2.042',
+            'IO::Compress::Base'    => '2.042',
+            'IO::Compress::Base::Common'=> '2.042',
+            'IO::Compress::Bzip2'   => '2.042',
+            'IO::Compress::Deflate' => '2.042',
+            'IO::Compress::Gzip'    => '2.042',
+            'IO::Compress::Gzip::Constants'=> '2.042',
+            'IO::Compress::RawDeflate'=> '2.042',
+            'IO::Compress::Zip'     => '2.042',
+            'IO::Compress::Zip::Constants'=> '2.042',
+            'IO::Compress::Zlib::Constants'=> '2.042',
+            'IO::Compress::Zlib::Extra'=> '2.042',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.042',
+            'IO::Uncompress::Adapter::Identity'=> '2.042',
+            'IO::Uncompress::Adapter::Inflate'=> '2.042',
+            'IO::Uncompress::AnyInflate'=> '2.042',
+            'IO::Uncompress::AnyUncompress'=> '2.042',
+            'IO::Uncompress::Base'  => '2.042',
+            'IO::Uncompress::Bunzip2'=> '2.042',
+            'IO::Uncompress::Gunzip'=> '2.042',
+            'IO::Uncompress::Inflate'=> '2.042',
+            'IO::Uncompress::RawInflate'=> '2.042',
+            'IO::Uncompress::Unzip' => '2.042',
+            'Locale::Maketext'      => '1.20',
+            'Locale::Maketext::Guts'=> '1.20',
+            'Locale::Maketext::GutsLoader'=> '1.20',
+            'Module::CoreList'      => '2.58',
+            'Opcode'                => '1.21',
+            'Socket'                => '1.94_02',
+            'Storable'              => '2.33',
+            'UNIVERSAL'             => '1.10',
+            'Unicode::Collate'      => '0.85',
+            'Unicode::Collate::CJK::Pinyin'=> '0.85',
+            'Unicode::Collate::CJK::Stroke'=> '0.85',
+            'Unicode::Collate::Locale'=> '0.85',
+            'Unicode::UCD'          => '0.37',
+            'XS::APItest'           => '0.33',
+            'arybase'               => '0.01',
+            'charnames'             => '1.24',
+            'feature'               => '1.23',
+            'perlfaq'               => '5.0150036',
+            'strict'                => '1.05',
+            'unicore::Name'         => undef,
+        },
+        removed => {
+        }
+    },
+    5.015006 => {
+        delta_from => 5.015005,
+        changed => {
+            'Archive::Tar'          => '1.82',
+            'Archive::Tar::Constant'=> '1.82',
+            'Archive::Tar::File'    => '1.82',
+            'AutoLoader'            => '5.72',
+            'B::Concise'            => '0.88',
+            'B::Debug'              => '1.17',
+            'B::Deparse'            => '1.10',
+            'CPAN::Meta::YAML'      => '0.005',
+            'CPANPLUS'              => '0.9113',
+            'CPANPLUS::Internals'   => '0.9113',
+            'CPANPLUS::Shell::Default'=> '0.9113',
+            'Carp'                  => '1.24',
+            'Compress::Raw::Bzip2'  => '2.045',
+            'Compress::Raw::Zlib'   => '2.045',
+            'Compress::Zlib'        => '2.045',
+            'Cwd'                   => '3.38',
+            'DB'                    => '1.04',
+            'Data::Dumper'          => '2.135_01',
+            'Digest::SHA'           => '5.70',
+            'Dumpvalue'             => '1.17',
+            'Exporter'              => '5.66',
+            'Exporter::Heavy'       => '5.66',
+            'ExtUtils::CBuilder'    => '0.280205',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280204',
+            'ExtUtils::Packlist'    => '1.45',
+            'ExtUtils::ParseXS'     => '3.08',
+            'ExtUtils::ParseXS::Constants'=> '3.08',
+            'ExtUtils::ParseXS::CountLines'=> '3.08',
+            'ExtUtils::ParseXS::Utilities'=> '3.08',
+            'File::Basename'        => '2.84',
+            'File::Glob'            => '1.15',
+            'File::Spec::Unix'      => '3.35',
+            'Getopt::Std'           => '1.07',
+            'I18N::LangTags'        => '0.38',
+            'IO::Compress::Adapter::Bzip2'=> '2.045',
+            'IO::Compress::Adapter::Deflate'=> '2.045',
+            'IO::Compress::Adapter::Identity'=> '2.045',
+            'IO::Compress::Base'    => '2.046',
+            'IO::Compress::Base::Common'=> '2.045',
+            'IO::Compress::Bzip2'   => '2.045',
+            'IO::Compress::Deflate' => '2.045',
+            'IO::Compress::Gzip'    => '2.045',
+            'IO::Compress::Gzip::Constants'=> '2.045',
+            'IO::Compress::RawDeflate'=> '2.045',
+            'IO::Compress::Zip'     => '2.046',
+            'IO::Compress::Zip::Constants'=> '2.045',
+            'IO::Compress::Zlib::Constants'=> '2.045',
+            'IO::Compress::Zlib::Extra'=> '2.045',
+            'IO::Dir'               => '1.09',
+            'IO::File'              => '1.16',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.045',
+            'IO::Uncompress::Adapter::Identity'=> '2.045',
+            'IO::Uncompress::Adapter::Inflate'=> '2.045',
+            'IO::Uncompress::AnyInflate'=> '2.045',
+            'IO::Uncompress::AnyUncompress'=> '2.045',
+            'IO::Uncompress::Base'  => '2.046',
+            'IO::Uncompress::Bunzip2'=> '2.045',
+            'IO::Uncompress::Gunzip'=> '2.045',
+            'IO::Uncompress::Inflate'=> '2.045',
+            'IO::Uncompress::RawInflate'=> '2.045',
+            'IO::Uncompress::Unzip' => '2.046',
+            'Locale::Codes'         => '3.20',
+            'Locale::Codes::Constants'=> '3.20',
+            'Locale::Codes::Country'=> '3.20',
+            'Locale::Codes::Country_Codes'=> '3.20',
+            'Locale::Codes::Country_Retired'=> '3.20',
+            'Locale::Codes::Currency'=> '3.20',
+            'Locale::Codes::Currency_Codes'=> '3.20',
+            'Locale::Codes::Currency_Retired'=> '3.20',
+            'Locale::Codes::LangExt'=> '3.20',
+            'Locale::Codes::LangExt_Codes'=> '3.20',
+            'Locale::Codes::LangExt_Retired'=> '3.20',
+            'Locale::Codes::LangFam'=> '3.20',
+            'Locale::Codes::LangFam_Codes'=> '3.20',
+            'Locale::Codes::LangFam_Retired'=> '3.20',
+            'Locale::Codes::LangVar'=> '3.20',
+            'Locale::Codes::LangVar_Codes'=> '3.20',
+            'Locale::Codes::LangVar_Retired'=> '3.20',
+            'Locale::Codes::Language'=> '3.20',
+            'Locale::Codes::Language_Codes'=> '3.20',
+            'Locale::Codes::Language_Retired'=> '3.20',
+            'Locale::Codes::Script' => '3.20',
+            'Locale::Codes::Script_Codes'=> '3.20',
+            'Locale::Codes::Script_Retired'=> '3.20',
+            'Locale::Country'       => '3.20',
+            'Locale::Currency'      => '3.20',
+            'Locale::Language'      => '3.20',
+            'Locale::Maketext'      => '1.21',
+            'Locale::Script'        => '3.20',
+            'Module::CoreList'      => '2.59',
+            'Module::Loaded'        => '0.08',
+            'Opcode'                => '1.22',
+            'POSIX'                 => '1.27',
+            'Pod::Html'             => '1.12',
+            'Pod::LaTeX'            => '0.60',
+            'Pod::Perldoc'          => '3.15_08',
+            'Safe'                  => '2.30',
+            'SelfLoader'            => '1.20',
+            'Socket'                => '1.97',
+            'Storable'              => '2.34',
+            'UNIVERSAL'             => '1.11',
+            'Unicode::Collate'      => '0.87',
+            'Unicode::Collate::Locale'=> '0.87',
+            'XS::APItest'           => '0.34',
+            'arybase'               => '0.02',
+            'charnames'             => '1.27',
+            'diagnostics'           => '1.26',
+            'feature'               => '1.24',
+            'if'                    => '0.0602',
+            'overload'              => '1.16',
+            'sigtrap'               => '1.06',
+            'strict'                => '1.06',
+            'threads'               => '1.86',
+            'version'               => '0.96',
+        },
+        removed => {
+        }
+    },
+    5.015007 => {
+        delta_from => 5.015006,
+        changed => {
+            'B'                     => '1.33',
+            'B::Deparse'            => '1.11',
+            'CGI'                   => '3.59',
+            'CPAN::Meta'            => '2.113640',
+            'CPAN::Meta::Converter' => '2.113640',
+            'CPAN::Meta::Feature'   => '2.113640',
+            'CPAN::Meta::History'   => '2.113640',
+            'CPAN::Meta::Prereqs'   => '2.113640',
+            'CPAN::Meta::Requirements'=> '2.113640',
+            'CPAN::Meta::Spec'      => '2.113640',
+            'CPAN::Meta::Validator' => '2.113640',
+            'CPANPLUS'              => '0.9116',
+            'CPANPLUS::Internals'   => '0.9116',
+            'CPANPLUS::Shell::Default'=> '0.9116',
+            'Cwd'                   => '3.39_01',
+            'Data::Dumper'          => '2.135_03',
+            'Devel::InnerPackage'   => '0.4',
+            'ExtUtils::CBuilder::Base'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280205',
+            'ExtUtils::Manifest'    => '1.61',
+            'ExtUtils::Packlist'    => '1.46',
+            'ExtUtils::ParseXS'     => '3.12',
+            'ExtUtils::ParseXS::Constants'=> '3.12',
+            'ExtUtils::ParseXS::CountLines'=> '3.12',
+            'ExtUtils::ParseXS::Utilities'=> '3.12',
+            'ExtUtils::Typemaps'    => '1.03',
+            'ExtUtils::Typemaps::Cmd'=> undef,
+            'ExtUtils::Typemaps::Type'=> '0.06',
+            'File::Glob'            => '1.16',
+            'File::Spec'            => '3.39_01',
+            'File::Spec::Cygwin'    => '3.39_01',
+            'File::Spec::Epoc'      => '3.39_01',
+            'File::Spec::Functions' => '3.39_01',
+            'File::Spec::Mac'       => '3.39_01',
+            'File::Spec::OS2'       => '3.39_01',
+            'File::Spec::Unix'      => '3.39_01',
+            'File::Spec::VMS'       => '3.39_01',
+            'File::Spec::Win32'     => '3.39_01',
+            'IO::Dir'               => '1.10',
+            'IO::Pipe'              => '1.15',
+            'IO::Poll'              => '0.09',
+            'IO::Select'            => '1.21',
+            'IO::Socket'            => '1.34',
+            'IO::Socket::INET'      => '1.33',
+            'IO::Socket::UNIX'      => '1.24',
+            'Locale::Maketext'      => '1.22',
+            'Math::BigInt'          => '1.998',
+            'Module::CoreList'      => '2.60',
+            'Module::Pluggable'     => '4.0',
+            'POSIX'                 => '1.28',
+            'PerlIO::scalar'        => '0.13',
+            'Pod::Html'             => '1.13',
+            'Pod::Perldoc'          => '3.15_15',
+            'Pod::Perldoc::BaseTo'  => '3.15_15',
+            'Pod::Perldoc::GetOptsOO'=> '3.15_15',
+            'Pod::Perldoc::ToANSI'  => '3.15_15',
+            'Pod::Perldoc::ToChecker'=> '3.15_15',
+            'Pod::Perldoc::ToMan'   => '3.15_15',
+            'Pod::Perldoc::ToNroff' => '3.15_15',
+            'Pod::Perldoc::ToPod'   => '3.15_15',
+            'Pod::Perldoc::ToRtf'   => '3.15_15',
+            'Pod::Perldoc::ToTerm'  => '3.15_15',
+            'Pod::Perldoc::ToText'  => '3.15_15',
+            'Pod::Perldoc::ToTk'    => '3.15_15',
+            'Pod::Perldoc::ToXml'   => '3.15_15',
+            'Term::UI'              => '0.30',
+            'Tie::File'             => '0.98',
+            'Unicode::UCD'          => '0.39',
+            'Version::Requirements' => '0.101021',
+            'XS::APItest'           => '0.35',
+            '_charnames'            => '1.28',
+            'arybase'               => '0.03',
+            'autouse'               => '1.07',
+            'charnames'             => '1.28',
+            'diagnostics'           => '1.27',
+            'feature'               => '1.25',
+            'overload'              => '1.17',
+            'overloading'           => '0.02',
+            'perlfaq'               => '5.0150038',
+        },
+        removed => {
+        }
+    },
+    5.015008 => {
+        delta_from => 5.015007,
+        changed => {
+            'B'                     => '1.34',
+            'B::Deparse'            => '1.12',
+            'CPAN::Meta'            => '2.120351',
+            'CPAN::Meta::Converter' => '2.120351',
+            'CPAN::Meta::Feature'   => '2.120351',
+            'CPAN::Meta::History'   => '2.120351',
+            'CPAN::Meta::Prereqs'   => '2.120351',
+            'CPAN::Meta::Requirements'=> '2.120351',
+            'CPAN::Meta::Spec'      => '2.120351',
+            'CPAN::Meta::Validator' => '2.120351',
+            'CPAN::Meta::YAML'      => '0.007',
+            'CPANPLUS'              => '0.9118',
+            'CPANPLUS::Dist::Build' => '0.62',
+            'CPANPLUS::Dist::Build::Constants'=> '0.62',
+            'CPANPLUS::Internals'   => '0.9118',
+            'CPANPLUS::Shell::Default'=> '0.9118',
+            'Carp'                  => '1.25',
+            'Carp::Heavy'           => '1.25',
+            'Compress::Raw::Bzip2'  => '2.048',
+            'Compress::Raw::Zlib'   => '2.048',
+            'Compress::Zlib'        => '2.048',
+            'Cwd'                   => '3.39_02',
+            'DB_File'               => '1.826',
+            'Data::Dumper'          => '2.135_05',
+            'English'               => '1.05',
+            'ExtUtils::Install'     => '1.58',
+            'ExtUtils::ParseXS'     => '3.16',
+            'ExtUtils::ParseXS::Constants'=> '3.16',
+            'ExtUtils::ParseXS::CountLines'=> '3.16',
+            'ExtUtils::ParseXS::Utilities'=> '3.16',
+            'ExtUtils::Typemaps'    => '3.16',
+            'ExtUtils::Typemaps::Cmd'=> '3.16',
+            'ExtUtils::Typemaps::InputMap'=> '3.16',
+            'ExtUtils::Typemaps::OutputMap'=> '3.16',
+            'ExtUtils::Typemaps::Type'=> '3.16',
+            'File::Copy'            => '2.23',
+            'File::Glob'            => '1.17',
+            'File::Spec'            => '3.39_02',
+            'File::Spec::Cygwin'    => '3.39_02',
+            'File::Spec::Epoc'      => '3.39_02',
+            'File::Spec::Functions' => '3.39_02',
+            'File::Spec::Mac'       => '3.39_02',
+            'File::Spec::OS2'       => '3.39_02',
+            'File::Spec::Unix'      => '3.39_02',
+            'File::Spec::VMS'       => '3.39_02',
+            'File::Spec::Win32'     => '3.39_02',
+            'Filter::Util::Call'    => '1.40',
+            'IO::Compress::Adapter::Bzip2'=> '2.048',
+            'IO::Compress::Adapter::Deflate'=> '2.048',
+            'IO::Compress::Adapter::Identity'=> '2.048',
+            'IO::Compress::Base'    => '2.048',
+            'IO::Compress::Base::Common'=> '2.048',
+            'IO::Compress::Bzip2'   => '2.048',
+            'IO::Compress::Deflate' => '2.048',
+            'IO::Compress::Gzip'    => '2.048',
+            'IO::Compress::Gzip::Constants'=> '2.048',
+            'IO::Compress::RawDeflate'=> '2.048',
+            'IO::Compress::Zip'     => '2.048',
+            'IO::Compress::Zip::Constants'=> '2.048',
+            'IO::Compress::Zlib::Constants'=> '2.048',
+            'IO::Compress::Zlib::Extra'=> '2.048',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.048',
+            'IO::Uncompress::Adapter::Identity'=> '2.048',
+            'IO::Uncompress::Adapter::Inflate'=> '2.048',
+            'IO::Uncompress::AnyInflate'=> '2.048',
+            'IO::Uncompress::AnyUncompress'=> '2.048',
+            'IO::Uncompress::Base'  => '2.048',
+            'IO::Uncompress::Bunzip2'=> '2.048',
+            'IO::Uncompress::Gunzip'=> '2.048',
+            'IO::Uncompress::Inflate'=> '2.048',
+            'IO::Uncompress::RawInflate'=> '2.048',
+            'IO::Uncompress::Unzip' => '2.048',
+            'IPC::Cmd'              => '0.76',
+            'Math::Complex'         => '1.59',
+            'Math::Trig'            => '1.23',
+            'Module::Metadata'      => '1.000009',
+            'Opcode'                => '1.23',
+            'POSIX'                 => '1.30',
+            'Parse::CPAN::Meta'     => '1.4402',
+            'PerlIO::mmap'          => '0.010',
+            'Pod::Checker'          => '1.51',
+            'Pod::Find'             => '1.51',
+            'Pod::Functions'        => '1.05',
+            'Pod::Html'             => '1.14',
+            'Pod::InputObjects'     => '1.51',
+            'Pod::ParseUtils'       => '1.51',
+            'Pod::Parser'           => '1.51',
+            'Pod::PlainText'        => '2.05',
+            'Pod::Select'           => '1.51',
+            'Pod::Usage'            => '1.51',
+            'Safe'                  => '2.31',
+            'Socket'                => '1.98',
+            'Term::Cap'             => '1.13',
+            'Term::ReadLine'        => '1.08',
+            'Time::HiRes'           => '1.9725',
+            'Unicode'               => '6.1.0',
+            'Unicode::UCD'          => '0.41',
+            'Version::Requirements' => '0.101022',
+            'XS::APItest'           => '0.36',
+            'XS::Typemap'           => '0.08',
+            '_charnames'            => '1.29',
+            'arybase'               => '0.04',
+            'charnames'             => '1.29',
+            'diagnostics'           => '1.28',
+            'feature'               => '1.26',
+            'locale'                => '1.01',
+            'overload'              => '1.18',
+            'perlfaq'               => '5.0150039',
+            're'                    => '0.19',
+            'subs'                  => '1.01',
+            'warnings'              => '1.13',
+        },
+        removed => {
+        }
+    },
+    5.015009 => {
+        delta_from => 5.015008,
+        changed => {
+            'B::Deparse'            => '1.13',
+            'B::Lint'               => '1.14',
+            'B::Lint::Debug'        => '1.14',
+            'CPAN::Meta'            => '2.120630',
+            'CPAN::Meta::Converter' => '2.120630',
+            'CPAN::Meta::Feature'   => '2.120630',
+            'CPAN::Meta::History'   => '2.120630',
+            'CPAN::Meta::Prereqs'   => '2.120630',
+            'CPAN::Meta::Requirements'=> '2.120630',
+            'CPAN::Meta::Spec'      => '2.120630',
+            'CPAN::Meta::Validator' => '2.120630',
+            'CPANPLUS'              => '0.9121',
+            'CPANPLUS::Internals'   => '0.9121',
+            'CPANPLUS::Shell::Default'=> '0.9121',
+            'Data::Dumper'          => '2.135_06',
+            'Digest::SHA'           => '5.71',
+            'ExtUtils::CBuilder'    => '0.280206',
+            'ExtUtils::CBuilder::Base'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280206',
+            'HTTP::Tiny'            => '0.017',
+            'Locale::Codes'         => '3.21',
+            'Locale::Codes::Constants'=> '3.21',
+            'Locale::Codes::Country'=> '3.21',
+            'Locale::Codes::Country_Codes'=> '3.21',
+            'Locale::Codes::Country_Retired'=> '3.21',
+            'Locale::Codes::Currency'=> '3.21',
+            'Locale::Codes::Currency_Codes'=> '3.21',
+            'Locale::Codes::Currency_Retired'=> '3.21',
+            'Locale::Codes::LangExt'=> '3.21',
+            'Locale::Codes::LangExt_Codes'=> '3.21',
+            'Locale::Codes::LangExt_Retired'=> '3.21',
+            'Locale::Codes::LangFam'=> '3.21',
+            'Locale::Codes::LangFam_Codes'=> '3.21',
+            'Locale::Codes::LangFam_Retired'=> '3.21',
+            'Locale::Codes::LangVar'=> '3.21',
+            'Locale::Codes::LangVar_Codes'=> '3.21',
+            'Locale::Codes::LangVar_Retired'=> '3.21',
+            'Locale::Codes::Language'=> '3.21',
+            'Locale::Codes::Language_Codes'=> '3.21',
+            'Locale::Codes::Language_Retired'=> '3.21',
+            'Locale::Codes::Script' => '3.21',
+            'Locale::Codes::Script_Codes'=> '3.21',
+            'Locale::Codes::Script_Retired'=> '3.21',
+            'Locale::Country'       => '3.21',
+            'Locale::Currency'      => '3.21',
+            'Locale::Language'      => '3.21',
+            'Locale::Script'        => '3.21',
+            'Module::CoreList'      => '2.65',
+            'Pod::Html'             => '1.1501',
+            'Pod::Perldoc'          => '3.17',
+            'Pod::Perldoc::BaseTo'  => '3.17',
+            'Pod::Perldoc::GetOptsOO'=> '3.17',
+            'Pod::Perldoc::ToANSI'  => '3.17',
+            'Pod::Perldoc::ToChecker'=> '3.17',
+            'Pod::Perldoc::ToMan'   => '3.17',
+            'Pod::Perldoc::ToNroff' => '3.17',
+            'Pod::Perldoc::ToPod'   => '3.17',
+            'Pod::Perldoc::ToRtf'   => '3.17',
+            'Pod::Perldoc::ToTerm'  => '3.17',
+            'Pod::Perldoc::ToText'  => '3.17',
+            'Pod::Perldoc::ToTk'    => '3.17',
+            'Pod::Perldoc::ToXml'   => '3.17',
+            'Pod::Simple'           => '3.20',
+            'Pod::Simple::BlackBox' => '3.20',
+            'Pod::Simple::Checker'  => '3.20',
+            'Pod::Simple::Debug'    => '3.20',
+            'Pod::Simple::DumpAsText'=> '3.20',
+            'Pod::Simple::DumpAsXML'=> '3.20',
+            'Pod::Simple::HTML'     => '3.20',
+            'Pod::Simple::HTMLBatch'=> '3.20',
+            'Pod::Simple::LinkSection'=> '3.20',
+            'Pod::Simple::Methody'  => '3.20',
+            'Pod::Simple::Progress' => '3.20',
+            'Pod::Simple::PullParser'=> '3.20',
+            'Pod::Simple::PullParserEndToken'=> '3.20',
+            'Pod::Simple::PullParserStartToken'=> '3.20',
+            'Pod::Simple::PullParserTextToken'=> '3.20',
+            'Pod::Simple::PullParserToken'=> '3.20',
+            'Pod::Simple::RTF'      => '3.20',
+            'Pod::Simple::Search'   => '3.20',
+            'Pod::Simple::SimpleTree'=> '3.20',
+            'Pod::Simple::Text'     => '3.20',
+            'Pod::Simple::TextContent'=> '3.20',
+            'Pod::Simple::TiedOutFH'=> '3.20',
+            'Pod::Simple::Transcode'=> '3.20',
+            'Pod::Simple::TranscodeDumb'=> '3.20',
+            'Pod::Simple::TranscodeSmart'=> '3.20',
+            'Pod::Simple::XHTML'    => '3.20',
+            'Pod::Simple::XMLOutStream'=> '3.20',
+            'Socket'                => '2.000',
+            'Term::ReadLine'        => '1.09',
+            'Unicode::Collate'      => '0.89',
+            'Unicode::Collate::CJK::Korean'=> '0.88',
+            'Unicode::Collate::Locale'=> '0.89',
+            'Unicode::Normalize'    => '1.14',
+            'Unicode::UCD'          => '0.42',
+            'XS::APItest'           => '0.37',
+            'arybase'               => '0.05',
+            'attributes'            => '0.18',
+            'charnames'             => '1.30',
+            'feature'               => '1.27',
+        },
+        removed => {
+        }
+    },
+    5.016 => {
+        delta_from => 5.015009,
+        changed => {
+            'B::Concise'            => '0.89',
+            'B::Deparse'            => '1.14',
+            'Carp'                  => '1.26',
+            'Carp::Heavy'           => '1.26',
+            'IO::Socket'            => '1.35',
+            'Module::CoreList'      => '2.66',
+            'PerlIO::scalar'        => '0.14',
+            'Pod::Html'             => '1.1502',
+            'Safe'                  => '2.31_01',
+            'Socket'                => '2.001',
+            'Unicode::UCD'          => '0.43',
+            'XS::APItest'           => '0.38',
+            '_charnames'            => '1.31',
+            'attributes'            => '0.19',
+            'strict'                => '1.07',
+            'version'               => '0.99',
+        },
+        removed => {
+        }
+    },
+    5.016001 => {
+        delta_from => 5.016,
+        changed => {
+            'B'                     => '1.35',
+            'B::Deparse'            => '1.14_01',
+            'List::Util'            => '1.25',
+            'List::Util::PP'        => '1.25',
+            'List::Util::XS'        => '1.25',
+            'Module::CoreList'      => '2.70',
+            'PerlIO::scalar'        => '0.14_01',
+            'Scalar::Util'          => '1.25',
+            'Scalar::Util::PP'      => '1.25',
+            're'                    => '0.19_01',
+        },
+        removed => {
+        }
+    },
+    5.016002 => {
+        delta_from => 5.016001,
+        changed => {
+            'Module::CoreList'      => '2.76',
+        },
+        removed => {
+        }
+    },
+    5.016003 => {
+        delta_from => 5.016002,
+        changed => {
+            'Encode'                => '2.44_01',
+            'Module::CoreList'      => '2.76_02',
+            'XS::APItest'           => '0.39',
+        },
+        removed => {
+        }
+    },
+    5.017 => {
+        delta_from => 5.016,
+        changed => {
+            'B'                     => '1.35',
+            'B::Concise'            => '0.90',
+            'ExtUtils::ParseXS'     => '3.17',
+            'ExtUtils::ParseXS::Utilities'=> '3.17',
+            'File::DosGlob'         => '1.07',
+            'File::Find'            => '1.21',
+            'File::stat'            => '1.06',
+            'Hash::Util'            => '0.12',
+            'IO::Socket'            => '1.34',
+            'Module::CoreList'      => '2.67',
+            'Pod::Functions'        => '1.06',
+            'Storable'              => '2.35',
+            'XS::APItest'           => '0.39',
+            'diagnostics'           => '1.29',
+            'feature'               => '1.28',
+            'overload'              => '1.19',
+            'utf8'                  => '1.10',
+        },
+        removed => {
+            'Version::Requirements' => 1,
+        }
+    },
+    5.017001 => {
+        delta_from => 5.017,
+        changed => {
+            'App::Prove'            => '3.25',
+            'App::Prove::State'     => '3.25',
+            'App::Prove::State::Result'=> '3.25',
+            'App::Prove::State::Result::Test'=> '3.25',
+            'Archive::Extract'      => '0.60',
+            'Archive::Tar'          => '1.88',
+            'Archive::Tar::Constant'=> '1.88',
+            'Archive::Tar::File'    => '1.88',
+            'B'                     => '1.36',
+            'B::Deparse'            => '1.15',
+            'CPAN::Meta'            => '2.120921',
+            'CPAN::Meta::Converter' => '2.120921',
+            'CPAN::Meta::Feature'   => '2.120921',
+            'CPAN::Meta::History'   => '2.120921',
+            'CPAN::Meta::Prereqs'   => '2.120921',
+            'CPAN::Meta::Requirements'=> '2.122',
+            'CPAN::Meta::Spec'      => '2.120921',
+            'CPAN::Meta::Validator' => '2.120921',
+            'CPAN::Meta::YAML'      => '0.008',
+            'CPANPLUS'              => '0.9130',
+            'CPANPLUS::Config::HomeEnv'=> '0.04',
+            'CPANPLUS::Internals'   => '0.9130',
+            'CPANPLUS::Shell::Default'=> '0.9130',
+            'Class::Struct'         => '0.64',
+            'Compress::Raw::Bzip2'  => '2.052',
+            'Compress::Raw::Zlib'   => '2.054',
+            'Compress::Zlib'        => '2.052',
+            'Digest::MD5'           => '2.52',
+            'DynaLoader'            => '1.15',
+            'ExtUtils::CBuilder'    => '0.280208',
+            'ExtUtils::CBuilder::Base'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280208',
+            'Fatal'                 => '2.11',
+            'File::DosGlob'         => '1.08',
+            'File::Fetch'           => '0.34',
+            'File::Spec::Unix'      => '3.39_03',
+            'Filter::Util::Call'    => '1.45',
+            'HTTP::Tiny'            => '0.022',
+            'IO'                    => '1.25_07',
+            'IO::Compress::Adapter::Bzip2'=> '2.052',
+            'IO::Compress::Adapter::Deflate'=> '2.052',
+            'IO::Compress::Adapter::Identity'=> '2.052',
+            'IO::Compress::Base'    => '2.052',
+            'IO::Compress::Base::Common'=> '2.052',
+            'IO::Compress::Bzip2'   => '2.052',
+            'IO::Compress::Deflate' => '2.052',
+            'IO::Compress::Gzip'    => '2.052',
+            'IO::Compress::Gzip::Constants'=> '2.052',
+            'IO::Compress::RawDeflate'=> '2.052',
+            'IO::Compress::Zip'     => '2.052',
+            'IO::Compress::Zip::Constants'=> '2.052',
+            'IO::Compress::Zlib::Constants'=> '2.052',
+            'IO::Compress::Zlib::Extra'=> '2.052',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.052',
+            'IO::Uncompress::Adapter::Identity'=> '2.052',
+            'IO::Uncompress::Adapter::Inflate'=> '2.052',
+            'IO::Uncompress::AnyInflate'=> '2.052',
+            'IO::Uncompress::AnyUncompress'=> '2.052',
+            'IO::Uncompress::Base'  => '2.052',
+            'IO::Uncompress::Bunzip2'=> '2.052',
+            'IO::Uncompress::Gunzip'=> '2.052',
+            'IO::Uncompress::Inflate'=> '2.052',
+            'IO::Uncompress::RawInflate'=> '2.052',
+            'IO::Uncompress::Unzip' => '2.052',
+            'IPC::Cmd'              => '0.78',
+            'List::Util'            => '1.25',
+            'List::Util::XS'        => '1.25',
+            'Locale::Codes'         => '3.22',
+            'Locale::Codes::Constants'=> '3.22',
+            'Locale::Codes::Country'=> '3.22',
+            'Locale::Codes::Country_Codes'=> '3.22',
+            'Locale::Codes::Country_Retired'=> '3.22',
+            'Locale::Codes::Currency'=> '3.22',
+            'Locale::Codes::Currency_Codes'=> '3.22',
+            'Locale::Codes::Currency_Retired'=> '3.22',
+            'Locale::Codes::LangExt'=> '3.22',
+            'Locale::Codes::LangExt_Codes'=> '3.22',
+            'Locale::Codes::LangExt_Retired'=> '3.22',
+            'Locale::Codes::LangFam'=> '3.22',
+            'Locale::Codes::LangFam_Codes'=> '3.22',
+            'Locale::Codes::LangFam_Retired'=> '3.22',
+            'Locale::Codes::LangVar'=> '3.22',
+            'Locale::Codes::LangVar_Codes'=> '3.22',
+            'Locale::Codes::LangVar_Retired'=> '3.22',
+            'Locale::Codes::Language'=> '3.22',
+            'Locale::Codes::Language_Codes'=> '3.22',
+            'Locale::Codes::Language_Retired'=> '3.22',
+            'Locale::Codes::Script' => '3.22',
+            'Locale::Codes::Script_Codes'=> '3.22',
+            'Locale::Codes::Script_Retired'=> '3.22',
+            'Locale::Country'       => '3.22',
+            'Locale::Currency'      => '3.22',
+            'Locale::Language'      => '3.22',
+            'Locale::Script'        => '3.22',
+            'Memoize'               => '1.03',
+            'Memoize::AnyDBM_File'  => '1.03',
+            'Memoize::Expire'       => '1.03',
+            'Memoize::ExpireFile'   => '1.03',
+            'Memoize::ExpireTest'   => '1.03',
+            'Memoize::NDBM_File'    => '1.03',
+            'Memoize::SDBM_File'    => '1.03',
+            'Memoize::Storable'     => '1.03',
+            'Module::Build'         => '0.40',
+            'Module::Build::Base'   => '0.40',
+            'Module::Build::Compat' => '0.40',
+            'Module::Build::Config' => '0.40',
+            'Module::Build::Cookbook'=> '0.40',
+            'Module::Build::Dumper' => '0.40',
+            'Module::Build::ModuleInfo'=> '0.40',
+            'Module::Build::Notes'  => '0.40',
+            'Module::Build::PPMMaker'=> '0.40',
+            'Module::Build::Platform::Amiga'=> '0.40',
+            'Module::Build::Platform::Default'=> '0.40',
+            'Module::Build::Platform::EBCDIC'=> '0.40',
+            'Module::Build::Platform::MPEiX'=> '0.40',
+            'Module::Build::Platform::MacOS'=> '0.40',
+            'Module::Build::Platform::RiscOS'=> '0.40',
+            'Module::Build::Platform::Unix'=> '0.40',
+            'Module::Build::Platform::VMS'=> '0.40',
+            'Module::Build::Platform::VOS'=> '0.40',
+            'Module::Build::Platform::Windows'=> '0.40',
+            'Module::Build::Platform::aix'=> '0.40',
+            'Module::Build::Platform::cygwin'=> '0.40',
+            'Module::Build::Platform::darwin'=> '0.40',
+            'Module::Build::Platform::os2'=> '0.40',
+            'Module::Build::PodParser'=> '0.40',
+            'Module::CoreList'      => '2.68',
+            'Module::Load::Conditional'=> '0.50',
+            'Object::Accessor'      => '0.44',
+            'POSIX'                 => '1.31',
+            'Params::Check'         => '0.36',
+            'Parse::CPAN::Meta'     => '1.4404',
+            'PerlIO::mmap'          => '0.011',
+            'PerlIO::via::QuotedPrint'=> '0.07',
+            'Pod::Html'             => '1.16',
+            'Pod::Man'              => '2.26',
+            'Pod::Text'             => '3.16',
+            'Safe'                  => '2.33_01',
+            'Scalar::Util'          => '1.25',
+            'Search::Dict'          => '1.07',
+            'Storable'              => '2.36',
+            'TAP::Base'             => '3.25',
+            'TAP::Formatter::Base'  => '3.25',
+            'TAP::Formatter::Color' => '3.25',
+            'TAP::Formatter::Console'=> '3.25',
+            'TAP::Formatter::Console::ParallelSession'=> '3.25',
+            'TAP::Formatter::Console::Session'=> '3.25',
+            'TAP::Formatter::File'  => '3.25',
+            'TAP::Formatter::File::Session'=> '3.25',
+            'TAP::Formatter::Session'=> '3.25',
+            'TAP::Harness'          => '3.25',
+            'TAP::Object'           => '3.25',
+            'TAP::Parser'           => '3.25',
+            'TAP::Parser::Aggregator'=> '3.25',
+            'TAP::Parser::Grammar'  => '3.25',
+            'TAP::Parser::Iterator' => '3.25',
+            'TAP::Parser::Iterator::Array'=> '3.25',
+            'TAP::Parser::Iterator::Process'=> '3.25',
+            'TAP::Parser::Iterator::Stream'=> '3.25',
+            'TAP::Parser::IteratorFactory'=> '3.25',
+            'TAP::Parser::Multiplexer'=> '3.25',
+            'TAP::Parser::Result'   => '3.25',
+            'TAP::Parser::Result::Bailout'=> '3.25',
+            'TAP::Parser::Result::Comment'=> '3.25',
+            'TAP::Parser::Result::Plan'=> '3.25',
+            'TAP::Parser::Result::Pragma'=> '3.25',
+            'TAP::Parser::Result::Test'=> '3.25',
+            'TAP::Parser::Result::Unknown'=> '3.25',
+            'TAP::Parser::Result::Version'=> '3.25',
+            'TAP::Parser::Result::YAML'=> '3.25',
+            'TAP::Parser::ResultFactory'=> '3.25',
+            'TAP::Parser::Scheduler'=> '3.25',
+            'TAP::Parser::Scheduler::Job'=> '3.25',
+            'TAP::Parser::Scheduler::Spinner'=> '3.25',
+            'TAP::Parser::Source'   => '3.25',
+            'TAP::Parser::SourceHandler'=> '3.25',
+            'TAP::Parser::SourceHandler::Executable'=> '3.25',
+            'TAP::Parser::SourceHandler::File'=> '3.25',
+            'TAP::Parser::SourceHandler::Handle'=> '3.25',
+            'TAP::Parser::SourceHandler::Perl'=> '3.25',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.25',
+            'TAP::Parser::Utils'    => '3.25',
+            'TAP::Parser::YAMLish::Reader'=> '3.25',
+            'TAP::Parser::YAMLish::Writer'=> '3.25',
+            'Term::ANSIColor'       => '3.02',
+            'Test::Harness'         => '3.25',
+            'Unicode'               => '6.2.0',
+            'Unicode::UCD'          => '0.44',
+            'XS::APItest'           => '0.40',
+            '_charnames'            => '1.32',
+            'attributes'            => '0.2',
+            'autodie'               => '2.11',
+            'autodie::exception'    => '2.11',
+            'autodie::exception::system'=> '2.11',
+            'autodie::hints'        => '2.11',
+            'bigint'                => '0.30',
+            'charnames'             => '1.32',
+            'feature'               => '1.29',
+            'inc::latest'           => '0.40',
+            'perlfaq'               => '5.0150040',
+            're'                    => '0.20',
+        },
+        removed => {
+            'List::Util::PP'        => 1,
+            'Scalar::Util::PP'      => 1,
+        }
+    },
+    5.017002 => {
+        delta_from => 5.017001,
+        changed => {
+            'App::Prove'            => '3.25_01',
+            'App::Prove::State'     => '3.25_01',
+            'App::Prove::State::Result'=> '3.25_01',
+            'App::Prove::State::Result::Test'=> '3.25_01',
+            'B::Concise'            => '0.91',
+            'Compress::Raw::Bzip2'  => '2.05201',
+            'Compress::Raw::Zlib'   => '2.05401',
+            'Exporter'              => '5.67',
+            'Exporter::Heavy'       => '5.67',
+            'Fatal'                 => '2.12',
+            'File::Fetch'           => '0.36',
+            'File::stat'            => '1.07',
+            'IO'                    => '1.25_08',
+            'IO::Socket'            => '1.35',
+            'Module::CoreList'      => '2.69',
+            'PerlIO::scalar'        => '0.15',
+            'Socket'                => '2.002',
+            'Storable'              => '2.37',
+            'TAP::Base'             => '3.25_01',
+            'TAP::Formatter::Base'  => '3.25_01',
+            'TAP::Formatter::Color' => '3.25_01',
+            'TAP::Formatter::Console'=> '3.25_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.25_01',
+            'TAP::Formatter::Console::Session'=> '3.25_01',
+            'TAP::Formatter::File'  => '3.25_01',
+            'TAP::Formatter::File::Session'=> '3.25_01',
+            'TAP::Formatter::Session'=> '3.25_01',
+            'TAP::Harness'          => '3.25_01',
+            'TAP::Object'           => '3.25_01',
+            'TAP::Parser'           => '3.25_01',
+            'TAP::Parser::Aggregator'=> '3.25_01',
+            'TAP::Parser::Grammar'  => '3.25_01',
+            'TAP::Parser::Iterator' => '3.25_01',
+            'TAP::Parser::Iterator::Array'=> '3.25_01',
+            'TAP::Parser::Iterator::Process'=> '3.25_01',
+            'TAP::Parser::Iterator::Stream'=> '3.25_01',
+            'TAP::Parser::IteratorFactory'=> '3.25_01',
+            'TAP::Parser::Multiplexer'=> '3.25_01',
+            'TAP::Parser::Result'   => '3.25_01',
+            'TAP::Parser::Result::Bailout'=> '3.25_01',
+            'TAP::Parser::Result::Comment'=> '3.25_01',
+            'TAP::Parser::Result::Plan'=> '3.25_01',
+            'TAP::Parser::Result::Pragma'=> '3.25_01',
+            'TAP::Parser::Result::Test'=> '3.25_01',
+            'TAP::Parser::Result::Unknown'=> '3.25_01',
+            'TAP::Parser::Result::Version'=> '3.25_01',
+            'TAP::Parser::Result::YAML'=> '3.25_01',
+            'TAP::Parser::ResultFactory'=> '3.25_01',
+            'TAP::Parser::Scheduler'=> '3.25_01',
+            'TAP::Parser::Scheduler::Job'=> '3.25_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.25_01',
+            'TAP::Parser::Source'   => '3.25_01',
+            'TAP::Parser::SourceHandler'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.25_01',
+            'TAP::Parser::SourceHandler::File'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.25_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.25_01',
+            'TAP::Parser::Utils'    => '3.25_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.25_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.25_01',
+            'Test::Harness'         => '3.25_01',
+            'Tie::StdHandle'        => '4.3',
+            'XS::APItest'           => '0.41',
+            'autodie'               => '2.12',
+            'autodie::exception'    => '2.12',
+            'autodie::exception::system'=> '2.12',
+            'autodie::hints'        => '2.12',
+            'diagnostics'           => '1.30',
+            'overload'              => '1.20',
+            're'                    => '0.21',
+            'vars'                  => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.017003 => {
+        delta_from => 5.017002,
+        changed => {
+            'B'                     => '1.37',
+            'B::Concise'            => '0.92',
+            'B::Debug'              => '1.18',
+            'B::Deparse'            => '1.16',
+            'CGI'                   => '3.60',
+            'Compress::Raw::Bzip2'  => '2.055',
+            'Compress::Raw::Zlib'   => '2.056',
+            'Compress::Zlib'        => '2.055',
+            'Data::Dumper'          => '2.135_07',
+            'Devel::Peek'           => '1.09',
+            'Encode'                => '2.47',
+            'Encode::Alias'         => '2.16',
+            'Encode::GSM0338'       => '2.02',
+            'Encode::Unicode::UTF7' => '2.06',
+            'IO::Compress::Adapter::Bzip2'=> '2.055',
+            'IO::Compress::Adapter::Deflate'=> '2.055',
+            'IO::Compress::Adapter::Identity'=> '2.055',
+            'IO::Compress::Base'    => '2.055',
+            'IO::Compress::Base::Common'=> '2.055',
+            'IO::Compress::Bzip2'   => '2.055',
+            'IO::Compress::Deflate' => '2.055',
+            'IO::Compress::Gzip'    => '2.055',
+            'IO::Compress::Gzip::Constants'=> '2.055',
+            'IO::Compress::RawDeflate'=> '2.055',
+            'IO::Compress::Zip'     => '2.055',
+            'IO::Compress::Zip::Constants'=> '2.055',
+            'IO::Compress::Zlib::Constants'=> '2.055',
+            'IO::Compress::Zlib::Extra'=> '2.055',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.055',
+            'IO::Uncompress::Adapter::Identity'=> '2.055',
+            'IO::Uncompress::Adapter::Inflate'=> '2.055',
+            'IO::Uncompress::AnyInflate'=> '2.055',
+            'IO::Uncompress::AnyUncompress'=> '2.055',
+            'IO::Uncompress::Base'  => '2.055',
+            'IO::Uncompress::Bunzip2'=> '2.055',
+            'IO::Uncompress::Gunzip'=> '2.055',
+            'IO::Uncompress::Inflate'=> '2.055',
+            'IO::Uncompress::RawInflate'=> '2.055',
+            'IO::Uncompress::Unzip' => '2.055',
+            'Module::Build'         => '0.4003',
+            'Module::Build::Base'   => '0.4003',
+            'Module::Build::Compat' => '0.4003',
+            'Module::Build::Config' => '0.4003',
+            'Module::Build::Cookbook'=> '0.4003',
+            'Module::Build::Dumper' => '0.4003',
+            'Module::Build::ModuleInfo'=> '0.4003',
+            'Module::Build::Notes'  => '0.4003',
+            'Module::Build::PPMMaker'=> '0.4003',
+            'Module::Build::Platform::Amiga'=> '0.4003',
+            'Module::Build::Platform::Default'=> '0.4003',
+            'Module::Build::Platform::EBCDIC'=> '0.4003',
+            'Module::Build::Platform::MPEiX'=> '0.4003',
+            'Module::Build::Platform::MacOS'=> '0.4003',
+            'Module::Build::Platform::RiscOS'=> '0.4003',
+            'Module::Build::Platform::Unix'=> '0.4003',
+            'Module::Build::Platform::VMS'=> '0.4003',
+            'Module::Build::Platform::VOS'=> '0.4003',
+            'Module::Build::Platform::Windows'=> '0.4003',
+            'Module::Build::Platform::aix'=> '0.4003',
+            'Module::Build::Platform::cygwin'=> '0.4003',
+            'Module::Build::Platform::darwin'=> '0.4003',
+            'Module::Build::Platform::os2'=> '0.4003',
+            'Module::Build::PodParser'=> '0.4003',
+            'Module::CoreList'      => '2.71',
+            'Module::CoreList::TieHashDelta'=> '2.71',
+            'Module::Load::Conditional'=> '0.54',
+            'Module::Metadata'      => '1.000011',
+            'Module::Pluggable'     => '4.3',
+            'Module::Pluggable::Object'=> '4.3',
+            'Pod::Simple'           => '3.23',
+            'Pod::Simple::BlackBox' => '3.23',
+            'Pod::Simple::Checker'  => '3.23',
+            'Pod::Simple::Debug'    => '3.23',
+            'Pod::Simple::DumpAsText'=> '3.23',
+            'Pod::Simple::DumpAsXML'=> '3.23',
+            'Pod::Simple::HTML'     => '3.23',
+            'Pod::Simple::HTMLBatch'=> '3.23',
+            'Pod::Simple::LinkSection'=> '3.23',
+            'Pod::Simple::Methody'  => '3.23',
+            'Pod::Simple::Progress' => '3.23',
+            'Pod::Simple::PullParser'=> '3.23',
+            'Pod::Simple::PullParserEndToken'=> '3.23',
+            'Pod::Simple::PullParserStartToken'=> '3.23',
+            'Pod::Simple::PullParserTextToken'=> '3.23',
+            'Pod::Simple::PullParserToken'=> '3.23',
+            'Pod::Simple::RTF'      => '3.23',
+            'Pod::Simple::Search'   => '3.23',
+            'Pod::Simple::SimpleTree'=> '3.23',
+            'Pod::Simple::Text'     => '3.23',
+            'Pod::Simple::TextContent'=> '3.23',
+            'Pod::Simple::TiedOutFH'=> '3.23',
+            'Pod::Simple::Transcode'=> '3.23',
+            'Pod::Simple::TranscodeDumb'=> '3.23',
+            'Pod::Simple::TranscodeSmart'=> '3.23',
+            'Pod::Simple::XHTML'    => '3.23',
+            'Pod::Simple::XMLOutStream'=> '3.23',
+            'Socket'                => '2.004',
+            'Storable'              => '2.38',
+            'Sys::Syslog'           => '0.31',
+            'Term::ReadLine'        => '1.10',
+            'Text::Tabs'            => '2012.0818',
+            'Text::Wrap'            => '2012.0818',
+            'Time::Local'           => '1.2300',
+            'Unicode::UCD'          => '0.45',
+            'Win32'                 => '0.45',
+            'Win32CORE'             => '0.03',
+            'XS::APItest'           => '0.42',
+            'inc::latest'           => '0.4003',
+            'perlfaq'               => '5.0150041',
+            're'                    => '0.22',
+        },
+        removed => {
+        }
+    },
+    5.017004 => {
+        delta_from => 5.017003,
+        changed => {
+            'Archive::Tar'          => '1.90',
+            'Archive::Tar::Constant'=> '1.90',
+            'Archive::Tar::File'    => '1.90',
+            'B'                     => '1.38',
+            'B::Concise'            => '0.93',
+            'B::Deparse'            => '1.17',
+            'B::Xref'               => '1.04',
+            'CPANPLUS'              => '0.9131',
+            'CPANPLUS::Internals'   => '0.9131',
+            'CPANPLUS::Shell::Default'=> '0.9131',
+            'DB_File'               => '1.827',
+            'Devel::Peek'           => '1.10',
+            'DynaLoader'            => '1.16',
+            'Errno'                 => '1.16',
+            'ExtUtils::ParseXS'     => '3.18',
+            'ExtUtils::ParseXS::Constants'=> '3.18',
+            'ExtUtils::ParseXS::CountLines'=> '3.18',
+            'ExtUtils::ParseXS::Utilities'=> '3.18',
+            'File::Copy'            => '2.24',
+            'File::Find'            => '1.22',
+            'IPC::Open3'            => '1.13',
+            'Locale::Codes'         => '3.23',
+            'Locale::Codes::Constants'=> '3.23',
+            'Locale::Codes::Country'=> '3.23',
+            'Locale::Codes::Country_Codes'=> '3.23',
+            'Locale::Codes::Country_Retired'=> '3.23',
+            'Locale::Codes::Currency'=> '3.23',
+            'Locale::Codes::Currency_Codes'=> '3.23',
+            'Locale::Codes::Currency_Retired'=> '3.23',
+            'Locale::Codes::LangExt'=> '3.23',
+            'Locale::Codes::LangExt_Codes'=> '3.23',
+            'Locale::Codes::LangExt_Retired'=> '3.23',
+            'Locale::Codes::LangFam'=> '3.23',
+            'Locale::Codes::LangFam_Codes'=> '3.23',
+            'Locale::Codes::LangFam_Retired'=> '3.23',
+            'Locale::Codes::LangVar'=> '3.23',
+            'Locale::Codes::LangVar_Codes'=> '3.23',
+            'Locale::Codes::LangVar_Retired'=> '3.23',
+            'Locale::Codes::Language'=> '3.23',
+            'Locale::Codes::Language_Codes'=> '3.23',
+            'Locale::Codes::Language_Retired'=> '3.23',
+            'Locale::Codes::Script' => '3.23',
+            'Locale::Codes::Script_Codes'=> '3.23',
+            'Locale::Codes::Script_Retired'=> '3.23',
+            'Locale::Country'       => '3.23',
+            'Locale::Currency'      => '3.23',
+            'Locale::Language'      => '3.23',
+            'Locale::Script'        => '3.23',
+            'Math::BigFloat::Trace' => '0.30',
+            'Math::BigInt::Trace'   => '0.30',
+            'Module::CoreList'      => '2.73',
+            'Module::CoreList::TieHashDelta'=> '2.73',
+            'Opcode'                => '1.24',
+            'Socket'                => '2.006',
+            'Storable'              => '2.39',
+            'Sys::Syslog'           => '0.32',
+            'Unicode::UCD'          => '0.46',
+            'XS::APItest'           => '0.43',
+            'bignum'                => '0.30',
+            'bigrat'                => '0.30',
+            'constant'              => '1.24',
+            'feature'               => '1.30',
+            'threads::shared'       => '1.41',
+            'version'               => '0.9901',
+            'warnings'              => '1.14',
+        },
+        removed => {
+        }
+    },
+    5.017005 => {
+        delta_from => 5.017004,
+        changed => {
+            'AutoLoader'            => '5.73',
+            'B'                     => '1.39',
+            'B::Deparse'            => '1.18',
+            'CPANPLUS'              => '0.9133',
+            'CPANPLUS::Internals'   => '0.9133',
+            'CPANPLUS::Shell::Default'=> '0.9133',
+            'Carp'                  => '1.27',
+            'Carp::Heavy'           => '1.27',
+            'Data::Dumper'          => '2.136',
+            'Digest::SHA'           => '5.72',
+            'ExtUtils::CBuilder'    => '0.280209',
+            'ExtUtils::CBuilder::Base'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280209',
+            'File::Copy'            => '2.25',
+            'File::Glob'            => '1.18',
+            'HTTP::Tiny'            => '0.024',
+            'Module::CoreList'      => '2.75',
+            'Module::CoreList::TieHashDelta'=> '2.75',
+            'PerlIO::encoding'      => '0.16',
+            'Unicode::Collate'      => '0.90',
+            'Unicode::Collate::Locale'=> '0.90',
+            'Unicode::Normalize'    => '1.15',
+            'Win32CORE'             => '0.04',
+            'XS::APItest'           => '0.44',
+            'attributes'            => '0.21',
+            'bigint'                => '0.31',
+            'bignum'                => '0.31',
+            'bigrat'                => '0.31',
+            'feature'               => '1.31',
+            'threads::shared'       => '1.42',
+            'warnings'              => '1.15',
+        },
+        removed => {
+        }
+    },
+    5.017006 => {
+        delta_from => 5.017005,
+        changed => {
+            'B'                     => '1.40',
+            'B::Concise'            => '0.94',
+            'B::Deparse'            => '1.19',
+            'B::Xref'               => '1.05',
+            'CGI'                   => '3.63',
+            'CGI::Util'             => '3.62',
+            'CPAN'                  => '1.99_51',
+            'CPANPLUS::Dist::Build' => '0.64',
+            'CPANPLUS::Dist::Build::Constants'=> '0.64',
+            'Carp'                  => '1.28',
+            'Carp::Heavy'           => '1.28',
+            'Compress::Raw::Bzip2'  => '2.058',
+            'Compress::Raw::Zlib'   => '2.058',
+            'Compress::Zlib'        => '2.058',
+            'Data::Dumper'          => '2.137',
+            'Digest::SHA'           => '5.73',
+            'DynaLoader'            => '1.17',
+            'Env'                   => '1.04',
+            'Errno'                 => '1.17',
+            'ExtUtils::Manifest'    => '1.62',
+            'ExtUtils::Typemaps'    => '3.18',
+            'ExtUtils::Typemaps::Cmd'=> '3.18',
+            'ExtUtils::Typemaps::InputMap'=> '3.18',
+            'ExtUtils::Typemaps::OutputMap'=> '3.18',
+            'ExtUtils::Typemaps::Type'=> '3.18',
+            'Fatal'                 => '2.13',
+            'File::Find'            => '1.23',
+            'Hash::Util'            => '0.13',
+            'IO::Compress::Adapter::Bzip2'=> '2.058',
+            'IO::Compress::Adapter::Deflate'=> '2.058',
+            'IO::Compress::Adapter::Identity'=> '2.058',
+            'IO::Compress::Base'    => '2.058',
+            'IO::Compress::Base::Common'=> '2.058',
+            'IO::Compress::Bzip2'   => '2.058',
+            'IO::Compress::Deflate' => '2.058',
+            'IO::Compress::Gzip'    => '2.058',
+            'IO::Compress::Gzip::Constants'=> '2.058',
+            'IO::Compress::RawDeflate'=> '2.058',
+            'IO::Compress::Zip'     => '2.058',
+            'IO::Compress::Zip::Constants'=> '2.058',
+            'IO::Compress::Zlib::Constants'=> '2.058',
+            'IO::Compress::Zlib::Extra'=> '2.058',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.058',
+            'IO::Uncompress::Adapter::Identity'=> '2.058',
+            'IO::Uncompress::Adapter::Inflate'=> '2.058',
+            'IO::Uncompress::AnyInflate'=> '2.058',
+            'IO::Uncompress::AnyUncompress'=> '2.058',
+            'IO::Uncompress::Base'  => '2.058',
+            'IO::Uncompress::Bunzip2'=> '2.058',
+            'IO::Uncompress::Gunzip'=> '2.058',
+            'IO::Uncompress::Inflate'=> '2.058',
+            'IO::Uncompress::RawInflate'=> '2.058',
+            'IO::Uncompress::Unzip' => '2.058',
+            'Module::CoreList'      => '2.78',
+            'Module::CoreList::TieHashDelta'=> '2.77',
+            'Module::Pluggable'     => '4.5',
+            'Module::Pluggable::Object'=> '4.5',
+            'Opcode'                => '1.25',
+            'Sys::Hostname'         => '1.17',
+            'Term::UI'              => '0.32',
+            'Thread::Queue'         => '3.01',
+            'Tie::Hash::NamedCapture'=> '0.09',
+            'Unicode::Collate'      => '0.93',
+            'Unicode::Collate::CJK::Korean'=> '0.93',
+            'Unicode::Collate::Locale'=> '0.93',
+            'Unicode::Normalize'    => '1.16',
+            'Unicode::UCD'          => '0.47',
+            'XS::APItest'           => '0.46',
+            '_charnames'            => '1.33',
+            'autodie'               => '2.13',
+            'autodie::exception'    => '2.13',
+            'autodie::exception::system'=> '2.13',
+            'autodie::hints'        => '2.13',
+            'charnames'             => '1.33',
+            're'                    => '0.23',
+        },
+        removed => {
+        }
+    },
+    5.017007 => {
+        delta_from => 5.017006,
+        changed => {
+            'B'                     => '1.41',
+            'CPANPLUS::Dist::Build' => '0.68',
+            'CPANPLUS::Dist::Build::Constants'=> '0.68',
+            'Compress::Raw::Bzip2'  => '2.059',
+            'Compress::Raw::Zlib'   => '2.059',
+            'Compress::Zlib'        => '2.059',
+            'Cwd'                   => '3.39_03',
+            'Data::Dumper'          => '2.139',
+            'Devel::Peek'           => '1.11',
+            'Digest::SHA'           => '5.80',
+            'DynaLoader'            => '1.18',
+            'English'               => '1.06',
+            'Errno'                 => '1.18',
+            'ExtUtils::Command::MM' => '6.64',
+            'ExtUtils::Liblist'     => '6.64',
+            'ExtUtils::Liblist::Kid'=> '6.64',
+            'ExtUtils::MM'          => '6.64',
+            'ExtUtils::MM_AIX'      => '6.64',
+            'ExtUtils::MM_Any'      => '6.64',
+            'ExtUtils::MM_BeOS'     => '6.64',
+            'ExtUtils::MM_Cygwin'   => '6.64',
+            'ExtUtils::MM_DOS'      => '6.64',
+            'ExtUtils::MM_Darwin'   => '6.64',
+            'ExtUtils::MM_MacOS'    => '6.64',
+            'ExtUtils::MM_NW5'      => '6.64',
+            'ExtUtils::MM_OS2'      => '6.64',
+            'ExtUtils::MM_QNX'      => '6.64',
+            'ExtUtils::MM_UWIN'     => '6.64',
+            'ExtUtils::MM_Unix'     => '6.64',
+            'ExtUtils::MM_VMS'      => '6.64',
+            'ExtUtils::MM_VOS'      => '6.64',
+            'ExtUtils::MM_Win32'    => '6.64',
+            'ExtUtils::MM_Win95'    => '6.64',
+            'ExtUtils::MY'          => '6.64',
+            'ExtUtils::MakeMaker'   => '6.64',
+            'ExtUtils::MakeMaker::Config'=> '6.64',
+            'ExtUtils::Mkbootstrap' => '6.64',
+            'ExtUtils::Mksymlists'  => '6.64',
+            'ExtUtils::testlib'     => '6.64',
+            'File::DosGlob'         => '1.09',
+            'File::Glob'            => '1.19',
+            'GDBM_File'             => '1.15',
+            'IO::Compress::Adapter::Bzip2'=> '2.059',
+            'IO::Compress::Adapter::Deflate'=> '2.059',
+            'IO::Compress::Adapter::Identity'=> '2.059',
+            'IO::Compress::Base'    => '2.059',
+            'IO::Compress::Base::Common'=> '2.059',
+            'IO::Compress::Bzip2'   => '2.059',
+            'IO::Compress::Deflate' => '2.059',
+            'IO::Compress::Gzip'    => '2.059',
+            'IO::Compress::Gzip::Constants'=> '2.059',
+            'IO::Compress::RawDeflate'=> '2.059',
+            'IO::Compress::Zip'     => '2.059',
+            'IO::Compress::Zip::Constants'=> '2.059',
+            'IO::Compress::Zlib::Constants'=> '2.059',
+            'IO::Compress::Zlib::Extra'=> '2.059',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.059',
+            'IO::Uncompress::Adapter::Identity'=> '2.059',
+            'IO::Uncompress::Adapter::Inflate'=> '2.059',
+            'IO::Uncompress::AnyInflate'=> '2.059',
+            'IO::Uncompress::AnyUncompress'=> '2.059',
+            'IO::Uncompress::Base'  => '2.059',
+            'IO::Uncompress::Bunzip2'=> '2.059',
+            'IO::Uncompress::Gunzip'=> '2.059',
+            'IO::Uncompress::Inflate'=> '2.059',
+            'IO::Uncompress::RawInflate'=> '2.059',
+            'IO::Uncompress::Unzip' => '2.059',
+            'List::Util'            => '1.26',
+            'List::Util::XS'        => '1.26',
+            'Locale::Codes'         => '3.24',
+            'Locale::Codes::Constants'=> '3.24',
+            'Locale::Codes::Country'=> '3.24',
+            'Locale::Codes::Country_Codes'=> '3.24',
+            'Locale::Codes::Country_Retired'=> '3.24',
+            'Locale::Codes::Currency'=> '3.24',
+            'Locale::Codes::Currency_Codes'=> '3.24',
+            'Locale::Codes::Currency_Retired'=> '3.24',
+            'Locale::Codes::LangExt'=> '3.24',
+            'Locale::Codes::LangExt_Codes'=> '3.24',
+            'Locale::Codes::LangExt_Retired'=> '3.24',
+            'Locale::Codes::LangFam'=> '3.24',
+            'Locale::Codes::LangFam_Codes'=> '3.24',
+            'Locale::Codes::LangFam_Retired'=> '3.24',
+            'Locale::Codes::LangVar'=> '3.24',
+            'Locale::Codes::LangVar_Codes'=> '3.24',
+            'Locale::Codes::LangVar_Retired'=> '3.24',
+            'Locale::Codes::Language'=> '3.24',
+            'Locale::Codes::Language_Codes'=> '3.24',
+            'Locale::Codes::Language_Retired'=> '3.24',
+            'Locale::Codes::Script' => '3.24',
+            'Locale::Codes::Script_Codes'=> '3.24',
+            'Locale::Codes::Script_Retired'=> '3.24',
+            'Locale::Country'       => '3.24',
+            'Locale::Currency'      => '3.24',
+            'Locale::Language'      => '3.24',
+            'Locale::Maketext'      => '1.23',
+            'Locale::Script'        => '3.24',
+            'Module::CoreList'      => '2.79',
+            'Module::CoreList::TieHashDelta'=> '2.79',
+            'POSIX'                 => '1.32',
+            'Scalar::Util'          => '1.26',
+            'Socket'                => '2.006_001',
+            'Storable'              => '2.40',
+            'Term::ReadLine'        => '1.11',
+            'Unicode::Collate'      => '0.96',
+            'Unicode::Collate::CJK::Stroke'=> '0.94',
+            'Unicode::Collate::CJK::Zhuyin'=> '0.94',
+            'Unicode::Collate::Locale'=> '0.96',
+            'XS::APItest'           => '0.48',
+            'XS::Typemap'           => '0.09',
+            '_charnames'            => '1.34',
+            'charnames'             => '1.34',
+            'feature'               => '1.32',
+            'mro'                   => '1.10',
+            'sigtrap'               => '1.07',
+            'sort'                  => '2.02',
+        },
+        removed => {
+        }
+    },
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => {
+            'Archive::Extract'      => '0.62',
+            'B'                     => '1.42',
+            'B::Concise'            => '0.95',
+            'Compress::Raw::Bzip2'  => '2.060',
+            'Compress::Raw::Zlib'   => '2.060',
+            'Compress::Zlib'        => '2.060',
+            'Cwd'                   => '3.40',
+            'Data::Dumper'          => '2.141',
+            'Digest::SHA'           => '5.81',
+            'ExtUtils::Install'     => '1.59',
+            'File::Fetch'           => '0.38',
+            'File::Path'            => '2.09',
+            'File::Spec'            => '3.40',
+            'File::Spec::Cygwin'    => '3.40',
+            'File::Spec::Epoc'      => '3.40',
+            'File::Spec::Functions' => '3.40',
+            'File::Spec::Mac'       => '3.40',
+            'File::Spec::OS2'       => '3.40',
+            'File::Spec::Unix'      => '3.40',
+            'File::Spec::VMS'       => '3.40',
+            'File::Spec::Win32'     => '3.40',
+            'HTTP::Tiny'            => '0.025',
+            'Hash::Util'            => '0.14',
+            'I18N::LangTags'        => '0.39',
+            'I18N::LangTags::List'  => '0.39',
+            'I18N::Langinfo'        => '0.09',
+            'IO'                    => '1.26',
+            'IO::Compress::Adapter::Bzip2'=> '2.060',
+            'IO::Compress::Adapter::Deflate'=> '2.060',
+            'IO::Compress::Adapter::Identity'=> '2.060',
+            'IO::Compress::Base'    => '2.060',
+            'IO::Compress::Base::Common'=> '2.060',
+            'IO::Compress::Bzip2'   => '2.060',
+            'IO::Compress::Deflate' => '2.060',
+            'IO::Compress::Gzip'    => '2.060',
+            'IO::Compress::Gzip::Constants'=> '2.060',
+            'IO::Compress::RawDeflate'=> '2.060',
+            'IO::Compress::Zip'     => '2.060',
+            'IO::Compress::Zip::Constants'=> '2.060',
+            'IO::Compress::Zlib::Constants'=> '2.060',
+            'IO::Compress::Zlib::Extra'=> '2.060',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.060',
+            'IO::Uncompress::Adapter::Identity'=> '2.060',
+            'IO::Uncompress::Adapter::Inflate'=> '2.060',
+            'IO::Uncompress::AnyInflate'=> '2.060',
+            'IO::Uncompress::AnyUncompress'=> '2.060',
+            'IO::Uncompress::Base'  => '2.060',
+            'IO::Uncompress::Bunzip2'=> '2.060',
+            'IO::Uncompress::Gunzip'=> '2.060',
+            'IO::Uncompress::Inflate'=> '2.060',
+            'IO::Uncompress::RawInflate'=> '2.060',
+            'IO::Uncompress::Unzip' => '2.060',
+            'List::Util'            => '1.27',
+            'List::Util::XS'        => '1.27',
+            'Module::CoreList'      => '2.80',
+            'Module::CoreList::TieHashDelta'=> '2.80',
+            'Pod::Html'             => '1.17',
+            'Pod::LaTeX'            => '0.61',
+            'Pod::Man'              => '2.27',
+            'Pod::Text'             => '3.17',
+            'Pod::Text::Color'      => '2.07',
+            'Pod::Text::Overstrike' => '2.05',
+            'Pod::Text::Termcap'    => '2.07',
+            'Safe'                  => '2.34',
+            'Scalar::Util'          => '1.27',
+            'Socket'                => '2.009',
+            'Term::ANSIColor'       => '4.02',
+            'Test'                  => '1.26',
+            'Unicode::Collate'      => '0.97',
+            'XS::APItest'           => '0.51',
+            'XS::Typemap'           => '0.10',
+            '_charnames'            => '1.35',
+            'charnames'             => '1.35',
+            'constant'              => '1.25',
+            'diagnostics'           => '1.31',
+            'threads::shared'       => '1.43',
+            'warnings'              => '1.16',
+        },
+        removed => {
+        }
+    },
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => {
+            'App::Cpan'             => '1.60_02',
+            'App::Prove'            => '3.26',
+            'App::Prove::State'     => '3.26',
+            'App::Prove::State::Result'=> '3.26',
+            'App::Prove::State::Result::Test'=> '3.26',
+            'Archive::Extract'      => '0.68',
+            'Attribute::Handlers'   => '0.94',
+            'B::Lint'               => '1.17',
+            'B::Lint::Debug'        => '1.17',
+            'Benchmark'             => '1.14',
+            'CPAN'                  => '2.00',
+            'CPAN::Distribution'    => '2.00',
+            'CPAN::FirstTime'       => '5.5304',
+            'CPAN::Nox'             => '5.5001',
+            'CPANPLUS'              => '0.9135',
+            'CPANPLUS::Backend'     => '0.9135',
+            'CPANPLUS::Backend::RV' => '0.9135',
+            'CPANPLUS::Config'      => '0.9135',
+            'CPANPLUS::Config::HomeEnv'=> '0.9135',
+            'CPANPLUS::Configure'   => '0.9135',
+            'CPANPLUS::Configure::Setup'=> '0.9135',
+            'CPANPLUS::Dist'        => '0.9135',
+            'CPANPLUS::Dist::Autobundle'=> '0.9135',
+            'CPANPLUS::Dist::Base'  => '0.9135',
+            'CPANPLUS::Dist::Build' => '0.70',
+            'CPANPLUS::Dist::Build::Constants'=> '0.70',
+            'CPANPLUS::Dist::MM'    => '0.9135',
+            'CPANPLUS::Dist::Sample'=> '0.9135',
+            'CPANPLUS::Error'       => '0.9135',
+            'CPANPLUS::Internals'   => '0.9135',
+            'CPANPLUS::Internals::Constants'=> '0.9135',
+            'CPANPLUS::Internals::Constants::Report'=> '0.9135',
+            'CPANPLUS::Internals::Extract'=> '0.9135',
+            'CPANPLUS::Internals::Fetch'=> '0.9135',
+            'CPANPLUS::Internals::Report'=> '0.9135',
+            'CPANPLUS::Internals::Search'=> '0.9135',
+            'CPANPLUS::Internals::Source'=> '0.9135',
+            'CPANPLUS::Internals::Source::Memory'=> '0.9135',
+            'CPANPLUS::Internals::Source::SQLite'=> '0.9135',
+            'CPANPLUS::Internals::Source::SQLite::Tie'=> '0.9135',
+            'CPANPLUS::Internals::Utils'=> '0.9135',
+            'CPANPLUS::Internals::Utils::Autoflush'=> '0.9135',
+            'CPANPLUS::Module'      => '0.9135',
+            'CPANPLUS::Module::Author'=> '0.9135',
+            'CPANPLUS::Module::Author::Fake'=> '0.9135',
+            'CPANPLUS::Module::Checksums'=> '0.9135',
+            'CPANPLUS::Module::Fake'=> '0.9135',
+            'CPANPLUS::Module::Signature'=> '0.9135',
+            'CPANPLUS::Selfupdate'  => '0.9135',
+            'CPANPLUS::Shell'       => '0.9135',
+            'CPANPLUS::Shell::Classic'=> '0.9135',
+            'CPANPLUS::Shell::Default'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::CustomSource'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::Remote'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::Source'=> '0.9135',
+            'Config'                => '5.017009',
+            'Config::Perl::V'       => '0.17',
+            'DBM_Filter'            => '0.05',
+            'Data::Dumper'          => '2.142',
+            'Digest::SHA'           => '5.82',
+            'Encode'                => '2.48',
+            'ExtUtils::Installed'   => '1.999003',
+            'ExtUtils::Manifest'    => '1.63',
+            'ExtUtils::ParseXS::Utilities'=> '3.19',
+            'ExtUtils::Typemaps'    => '3.19',
+            'File::CheckTree'       => '4.42',
+            'File::DosGlob'         => '1.10',
+            'File::Temp'            => '0.22_90',
+            'Filter::Simple'        => '0.89',
+            'IO'                    => '1.27',
+            'Log::Message'          => '0.06',
+            'Log::Message::Config'  => '0.06',
+            'Log::Message::Handlers'=> '0.06',
+            'Log::Message::Item'    => '0.06',
+            'Log::Message::Simple'  => '0.10',
+            'Math::BigInt'          => '1.999',
+            'Module::CoreList'      => '2.82',
+            'Module::CoreList::TieHashDelta'=> '2.82',
+            'Module::Load'          => '0.24',
+            'Module::Pluggable'     => '4.6',
+            'Module::Pluggable::Object'=> '4.6',
+            'OS2::DLL'              => '1.05',
+            'OS2::ExtAttr'          => '0.03',
+            'OS2::Process'          => '1.08',
+            'Object::Accessor'      => '0.46',
+            'PerlIO::scalar'        => '0.16',
+            'Pod::Checker'          => '1.60',
+            'Pod::Find'             => '1.60',
+            'Pod::Html'             => '1.18',
+            'Pod::InputObjects'     => '1.60',
+            'Pod::ParseUtils'       => '1.60',
+            'Pod::Parser'           => '1.60',
+            'Pod::Perldoc'          => '3.19',
+            'Pod::Perldoc::BaseTo'  => '3.19',
+            'Pod::Perldoc::GetOptsOO'=> '3.19',
+            'Pod::Perldoc::ToANSI'  => '3.19',
+            'Pod::Perldoc::ToChecker'=> '3.19',
+            'Pod::Perldoc::ToMan'   => '3.19',
+            'Pod::Perldoc::ToNroff' => '3.19',
+            'Pod::Perldoc::ToPod'   => '3.19',
+            'Pod::Perldoc::ToRtf'   => '3.19',
+            'Pod::Perldoc::ToTerm'  => '3.19',
+            'Pod::Perldoc::ToText'  => '3.19',
+            'Pod::Perldoc::ToTk'    => '3.19',
+            'Pod::Perldoc::ToXml'   => '3.19',
+            'Pod::PlainText'        => '2.06',
+            'Pod::Select'           => '1.60',
+            'Pod::Usage'            => '1.61',
+            'SelfLoader'            => '1.21',
+            'TAP::Base'             => '3.26',
+            'TAP::Formatter::Base'  => '3.26',
+            'TAP::Formatter::Color' => '3.26',
+            'TAP::Formatter::Console'=> '3.26',
+            'TAP::Formatter::Console::ParallelSession'=> '3.26',
+            'TAP::Formatter::Console::Session'=> '3.26',
+            'TAP::Formatter::File'  => '3.26',
+            'TAP::Formatter::File::Session'=> '3.26',
+            'TAP::Formatter::Session'=> '3.26',
+            'TAP::Harness'          => '3.26',
+            'TAP::Object'           => '3.26',
+            'TAP::Parser'           => '3.26',
+            'TAP::Parser::Aggregator'=> '3.26',
+            'TAP::Parser::Grammar'  => '3.26',
+            'TAP::Parser::Iterator' => '3.26',
+            'TAP::Parser::Iterator::Array'=> '3.26',
+            'TAP::Parser::Iterator::Process'=> '3.26',
+            'TAP::Parser::Iterator::Stream'=> '3.26',
+            'TAP::Parser::IteratorFactory'=> '3.26',
+            'TAP::Parser::Multiplexer'=> '3.26',
+            'TAP::Parser::Result'   => '3.26',
+            'TAP::Parser::Result::Bailout'=> '3.26',
+            'TAP::Parser::Result::Comment'=> '3.26',
+            'TAP::Parser::Result::Plan'=> '3.26',
+            'TAP::Parser::Result::Pragma'=> '3.26',
+            'TAP::Parser::Result::Test'=> '3.26',
+            'TAP::Parser::Result::Unknown'=> '3.26',
+            'TAP::Parser::Result::Version'=> '3.26',
+            'TAP::Parser::Result::YAML'=> '3.26',
+            'TAP::Parser::ResultFactory'=> '3.26',
+            'TAP::Parser::Scheduler'=> '3.26',
+            'TAP::Parser::Scheduler::Job'=> '3.26',
+            'TAP::Parser::Scheduler::Spinner'=> '3.26',
+            'TAP::Parser::Source'   => '3.26',
+            'TAP::Parser::SourceHandler'=> '3.26',
+            'TAP::Parser::SourceHandler::Executable'=> '3.26',
+            'TAP::Parser::SourceHandler::File'=> '3.26',
+            'TAP::Parser::SourceHandler::Handle'=> '3.26',
+            'TAP::Parser::SourceHandler::Perl'=> '3.26',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.26',
+            'TAP::Parser::Utils'    => '3.26',
+            'TAP::Parser::YAMLish::Reader'=> '3.26',
+            'TAP::Parser::YAMLish::Writer'=> '3.26',
+            'Term::UI'              => '0.34',
+            'Test::Harness'         => '3.26',
+            'Text::Soundex'         => '3.04',
+            'Thread::Queue'         => '3.02',
+            'Unicode::UCD'          => '0.50',
+            'Win32'                 => '0.46',
+            'Win32API::File'        => '0.1201',
+            '_charnames'            => '1.36',
+            'arybase'               => '0.06',
+            'bigint'                => '0.32',
+            'bignum'                => '0.32',
+            'charnames'             => '1.36',
+            'filetest'              => '1.03',
+            'locale'                => '1.02',
+            'overload'              => '1.21',
+            'warnings'              => '1.17',
+        },
+        removed => {
+        }
+    },
+    5.017010 => {
+        delta_from => 5.017009,
+        changed => {
+            'Benchmark'             => '1.15',
+            'Config'                => '5.017009',
+            'Data::Dumper'          => '2.145',
+            'Digest::SHA'           => '5.84',
+            'Encode'                => '2.49',
+            'ExtUtils::Command::MM' => '6.65_01',
+            'ExtUtils::Liblist'     => '6.65_01',
+            'ExtUtils::Liblist::Kid'=> '6.65_01',
+            'ExtUtils::MM'          => '6.65_01',
+            'ExtUtils::MM_AIX'      => '6.65_01',
+            'ExtUtils::MM_Any'      => '6.65_01',
+            'ExtUtils::MM_BeOS'     => '6.65_01',
+            'ExtUtils::MM_Cygwin'   => '6.65_01',
+            'ExtUtils::MM_DOS'      => '6.65_01',
+            'ExtUtils::MM_Darwin'   => '6.65_01',
+            'ExtUtils::MM_MacOS'    => '6.65_01',
+            'ExtUtils::MM_NW5'      => '6.65_01',
+            'ExtUtils::MM_OS2'      => '6.65_01',
+            'ExtUtils::MM_QNX'      => '6.65_01',
+            'ExtUtils::MM_UWIN'     => '6.65_01',
+            'ExtUtils::MM_Unix'     => '6.65_01',
+            'ExtUtils::MM_VMS'      => '6.65_01',
+            'ExtUtils::MM_VOS'      => '6.65_01',
+            'ExtUtils::MM_Win32'    => '6.65_01',
+            'ExtUtils::MM_Win95'    => '6.65_01',
+            'ExtUtils::MY'          => '6.65_01',
+            'ExtUtils::MakeMaker'   => '6.65_01',
+            'ExtUtils::MakeMaker::Config'=> '6.65_01',
+            'ExtUtils::Mkbootstrap' => '6.65_01',
+            'ExtUtils::Mksymlists'  => '6.65_01',
+            'ExtUtils::testlib'     => '6.65_01',
+            'File::Copy'            => '2.26',
+            'File::Temp'            => '0.23',
+            'Getopt::Long'          => '2.39',
+            'Hash::Util'            => '0.15',
+            'I18N::Langinfo'        => '0.10',
+            'IPC::Cmd'              => '0.80',
+            'JSON::PP'              => '2.27202',
+            'Locale::Codes'         => '3.25',
+            'Locale::Codes::Constants'=> '3.25',
+            'Locale::Codes::Country'=> '3.25',
+            'Locale::Codes::Country_Codes'=> '3.25',
+            'Locale::Codes::Country_Retired'=> '3.25',
+            'Locale::Codes::Currency'=> '3.25',
+            'Locale::Codes::Currency_Codes'=> '3.25',
+            'Locale::Codes::Currency_Retired'=> '3.25',
+            'Locale::Codes::LangExt'=> '3.25',
+            'Locale::Codes::LangExt_Codes'=> '3.25',
+            'Locale::Codes::LangExt_Retired'=> '3.25',
+            'Locale::Codes::LangFam'=> '3.25',
+            'Locale::Codes::LangFam_Codes'=> '3.25',
+            'Locale::Codes::LangFam_Retired'=> '3.25',
+            'Locale::Codes::LangVar'=> '3.25',
+            'Locale::Codes::LangVar_Codes'=> '3.25',
+            'Locale::Codes::LangVar_Retired'=> '3.25',
+            'Locale::Codes::Language'=> '3.25',
+            'Locale::Codes::Language_Codes'=> '3.25',
+            'Locale::Codes::Language_Retired'=> '3.25',
+            'Locale::Codes::Script' => '3.25',
+            'Locale::Codes::Script_Codes'=> '3.25',
+            'Locale::Codes::Script_Retired'=> '3.25',
+            'Locale::Country'       => '3.25',
+            'Locale::Currency'      => '3.25',
+            'Locale::Language'      => '3.25',
+            'Locale::Script'        => '3.25',
+            'Math::BigFloat'        => '1.998',
+            'Math::BigFloat::Trace' => '0.32',
+            'Math::BigInt'          => '1.9991',
+            'Math::BigInt::CalcEmu' => '1.998',
+            'Math::BigInt::Trace'   => '0.32',
+            'Math::BigRat'          => '0.2604',
+            'Module::CoreList'      => '2.84',
+            'Module::CoreList::TieHashDelta'=> '2.84',
+            'Module::Pluggable'     => '4.7',
+            'Net::Ping'             => '2.41',
+            'Perl::OSType'          => '1.003',
+            'Pod::Simple'           => '3.26',
+            'Pod::Simple::BlackBox' => '3.26',
+            'Pod::Simple::Checker'  => '3.26',
+            'Pod::Simple::Debug'    => '3.26',
+            'Pod::Simple::DumpAsText'=> '3.26',
+            'Pod::Simple::DumpAsXML'=> '3.26',
+            'Pod::Simple::HTML'     => '3.26',
+            'Pod::Simple::HTMLBatch'=> '3.26',
+            'Pod::Simple::LinkSection'=> '3.26',
+            'Pod::Simple::Methody'  => '3.26',
+            'Pod::Simple::Progress' => '3.26',
+            'Pod::Simple::PullParser'=> '3.26',
+            'Pod::Simple::PullParserEndToken'=> '3.26',
+            'Pod::Simple::PullParserStartToken'=> '3.26',
+            'Pod::Simple::PullParserTextToken'=> '3.26',
+            'Pod::Simple::PullParserToken'=> '3.26',
+            'Pod::Simple::RTF'      => '3.26',
+            'Pod::Simple::Search'   => '3.26',
+            'Pod::Simple::SimpleTree'=> '3.26',
+            'Pod::Simple::Text'     => '3.26',
+            'Pod::Simple::TextContent'=> '3.26',
+            'Pod::Simple::TiedOutFH'=> '3.26',
+            'Pod::Simple::Transcode'=> '3.26',
+            'Pod::Simple::TranscodeDumb'=> '3.26',
+            'Pod::Simple::TranscodeSmart'=> '3.26',
+            'Pod::Simple::XHTML'    => '3.26',
+            'Pod::Simple::XMLOutStream'=> '3.26',
+            'Safe'                  => '2.35',
+            'Term::ReadLine'        => '1.12',
+            'Text::ParseWords'      => '3.28',
+            'Tie::File'             => '0.99',
+            'Unicode::UCD'          => '0.51',
+            'Win32'                 => '0.47',
+            'bigint'                => '0.33',
+            'bignum'                => '0.33',
+            'bigrat'                => '0.33',
+            'constant'              => '1.27',
+            'perlfaq'               => '5.0150042',
+            'version'               => '0.9902',
+        },
+        removed => {
+        }
+    },
+    5.017011 => {
+        delta_from => 5.017010,
+        changed => {
+            'App::Cpan'             => '1.61',
+            'B::Deparse'            => '1.20',
+            'Config'                => '5.017009',
+            'Exporter'              => '5.68',
+            'Exporter::Heavy'       => '5.68',
+            'ExtUtils::CBuilder'    => '0.280210',
+            'ExtUtils::Command::MM' => '6.66',
+            'ExtUtils::Liblist'     => '6.66',
+            'ExtUtils::Liblist::Kid'=> '6.66',
+            'ExtUtils::MM'          => '6.66',
+            'ExtUtils::MM_AIX'      => '6.66',
+            'ExtUtils::MM_Any'      => '6.66',
+            'ExtUtils::MM_BeOS'     => '6.66',
+            'ExtUtils::MM_Cygwin'   => '6.66',
+            'ExtUtils::MM_DOS'      => '6.66',
+            'ExtUtils::MM_Darwin'   => '6.66',
+            'ExtUtils::MM_MacOS'    => '6.66',
+            'ExtUtils::MM_NW5'      => '6.66',
+            'ExtUtils::MM_OS2'      => '6.66',
+            'ExtUtils::MM_QNX'      => '6.66',
+            'ExtUtils::MM_UWIN'     => '6.66',
+            'ExtUtils::MM_Unix'     => '6.66',
+            'ExtUtils::MM_VMS'      => '6.66',
+            'ExtUtils::MM_VOS'      => '6.66',
+            'ExtUtils::MM_Win32'    => '6.66',
+            'ExtUtils::MM_Win95'    => '6.66',
+            'ExtUtils::MY'          => '6.66',
+            'ExtUtils::MakeMaker'   => '6.66',
+            'ExtUtils::MakeMaker::Config'=> '6.66',
+            'ExtUtils::Mkbootstrap' => '6.66',
+            'ExtUtils::Mksymlists'  => '6.66',
+            'ExtUtils::testlib'     => '6.66',
+            'File::Glob'            => '1.20',
+            'IO'                    => '1.28',
+            'Module::CoreList'      => '2.87',
+            'Module::CoreList::TieHashDelta'=> '2.87',
+            'Storable'              => '2.41',
+            'bigint'                => '0.34',
+            'mro'                   => '1.11',
+            'overload'              => '1.22',
+            'warnings'              => '1.18',
+        },
+        removed => {
+        }
+    },
+    5.018000 => {
+        delta_from => 5.017011,
+        changed => {
+            'Carp'                  => '1.29',
+            'Carp::Heavy'           => '1.29',
+            'Config'                => '5.018000',
+            'Hash::Util'            => '0.16',
+            'IO::Handle'            => '1.34',
+            'IO::Socket'            => '1.36',
+            'Module::CoreList'      => '2.89',
+            'Module::CoreList::TieHashDelta'=> '2.89',
+            'Pod::Simple'           => '3.28',
+            'Pod::Simple::BlackBox' => '3.28',
+            'Pod::Simple::Checker'  => '3.28',
+            'Pod::Simple::Debug'    => '3.28',
+            'Pod::Simple::DumpAsText'=> '3.28',
+            'Pod::Simple::DumpAsXML'=> '3.28',
+            'Pod::Simple::HTML'     => '3.28',
+            'Pod::Simple::HTMLBatch'=> '3.28',
+            'Pod::Simple::LinkSection'=> '3.28',
+            'Pod::Simple::Methody'  => '3.28',
+            'Pod::Simple::Progress' => '3.28',
+            'Pod::Simple::PullParser'=> '3.28',
+            'Pod::Simple::PullParserEndToken'=> '3.28',
+            'Pod::Simple::PullParserStartToken'=> '3.28',
+            'Pod::Simple::PullParserTextToken'=> '3.28',
+            'Pod::Simple::PullParserToken'=> '3.28',
+            'Pod::Simple::RTF'      => '3.28',
+            'Pod::Simple::Search'   => '3.28',
+            'Pod::Simple::SimpleTree'=> '3.28',
+            'Pod::Simple::Text'     => '3.28',
+            'Pod::Simple::TextContent'=> '3.28',
+            'Pod::Simple::TiedOutFH'=> '3.28',
+            'Pod::Simple::Transcode'=> '3.28',
+            'Pod::Simple::TranscodeDumb'=> '3.28',
+            'Pod::Simple::TranscodeSmart'=> '3.28',
+            'Pod::Simple::XHTML'    => '3.28',
+            'Pod::Simple::XMLOutStream'=> '3.28',
+        },
+        removed => {
+        }
+    },
+    5.018001 => {
+        delta_from => 5.018000,
+        changed => {
+            'B'                     => '1.42_01',
+            'Config'                => '5.018001',
+            'Digest::SHA'           => '5.84_01',
+            'Module::CoreList'      => '2.96',
+            'Module::CoreList::TieHashDelta'=> '2.96',
+            'Module::CoreList::Utils'=> '2.96',
+        },
+        removed => {
+           'VMS::Filespec'         => 1,
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+            'B'                     => '1.42_02',
+            'B::Concise'            => '0.95_01',
+            'Config'                => '5.018002',
+            'File::Glob'            => '1.20_01',
+            'Module::CoreList'      => '3.03',
+            'Module::CoreList::TieHashDelta'=> '3.03',
+            'Module::CoreList::Utils'=> '3.03',
+        },
+    },
+    5.018003 => {
+        delta_from => 5.018002,
+        changed => {
+            'Config'                => '5.018003',
+            'Digest::SHA'           => '5.84_02',
+            'Module::CoreList'      => '3.12',
+            'Module::CoreList::TieHashDelta'=> '3.12',
+            'Module::CoreList::Utils'=> '3.12',
+        },
+    },
+    5.018004 => {
+        delta_from => 5.018003,
+        changed => {
+            'Config'                => '5.018004',
+            'Module::CoreList'      => '3.13',
+            'Module::CoreList::TieHashDelta'=> '3.13',
+            'Module::CoreList::Utils'=> '3.13',
+        },
+    },
+    5.019000 => {
+        delta_from => 5.018000,
+        changed => {
+            'Config'                => '5.019000',
+            'Getopt::Std'           => '1.08',
+            'Module::CoreList'      => '2.91',
+            'Module::CoreList::TieHashDelta'=> '2.91',
+            'Storable'              => '2.42',
+            'feature'               => '1.33',
+            'utf8'                  => '1.11',
+        },
+        removed => {
+           'Archive::Extract'      => 1,
+           'B::Lint'               => 1,
+           'B::Lint::Debug'        => 1,
+           'CPANPLUS'              => 1,
+           'CPANPLUS::Backend'     => 1,
+           'CPANPLUS::Backend::RV' => 1,
+           'CPANPLUS::Config'      => 1,
+           'CPANPLUS::Config::HomeEnv'=> 1,
+           'CPANPLUS::Configure'   => 1,
+           'CPANPLUS::Configure::Setup'=> 1,
+           'CPANPLUS::Dist'        => 1,
+           'CPANPLUS::Dist::Autobundle'=> 1,
+           'CPANPLUS::Dist::Base'  => 1,
+           'CPANPLUS::Dist::Build' => 1,
+           'CPANPLUS::Dist::Build::Constants'=> 1,
+           'CPANPLUS::Dist::MM'    => 1,
+           'CPANPLUS::Dist::Sample'=> 1,
+           'CPANPLUS::Error'       => 1,
+           'CPANPLUS::Internals'   => 1,
+           'CPANPLUS::Internals::Constants'=> 1,
+           'CPANPLUS::Internals::Constants::Report'=> 1,
+           'CPANPLUS::Internals::Extract'=> 1,
+           'CPANPLUS::Internals::Fetch'=> 1,
+           'CPANPLUS::Internals::Report'=> 1,
+           'CPANPLUS::Internals::Search'=> 1,
+           'CPANPLUS::Internals::Source'=> 1,
+           'CPANPLUS::Internals::Source::Memory'=> 1,
+           'CPANPLUS::Internals::Source::SQLite'=> 1,
+           'CPANPLUS::Internals::Source::SQLite::Tie'=> 1,
+           'CPANPLUS::Internals::Utils'=> 1,
+           'CPANPLUS::Internals::Utils::Autoflush'=> 1,
+           'CPANPLUS::Module'      => 1,
+           'CPANPLUS::Module::Author'=> 1,
+           'CPANPLUS::Module::Author::Fake'=> 1,
+           'CPANPLUS::Module::Checksums'=> 1,
+           'CPANPLUS::Module::Fake'=> 1,
+           'CPANPLUS::Module::Signature'=> 1,
+           'CPANPLUS::Selfupdate'  => 1,
+           'CPANPLUS::Shell'       => 1,
+           'CPANPLUS::Shell::Classic'=> 1,
+           'CPANPLUS::Shell::Default'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::CustomSource'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::Remote'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::Source'=> 1,
+           'Devel::InnerPackage'   => 1,
+           'File::CheckTree'       => 1,
+           'Log::Message'          => 1,
+           'Log::Message::Config'  => 1,
+           'Log::Message::Handlers'=> 1,
+           'Log::Message::Item'    => 1,
+           'Log::Message::Simple'  => 1,
+           'Module::Pluggable'     => 1,
+           'Module::Pluggable::Object'=> 1,
+           'Object::Accessor'      => 1,
+           'Pod::LaTeX'            => 1,
+           'Term::UI'              => 1,
+           'Term::UI::History'     => 1,
+           'Text::Soundex'         => 1,
+        }
+    },
+    5.019001 => {
+        delta_from => 5.019000,
+        changed => {
+            'App::Prove'            => '3.28',
+            'App::Prove::State'     => '3.28',
+            'App::Prove::State::Result'=> '3.28',
+            'App::Prove::State::Result::Test'=> '3.28',
+            'Archive::Tar'          => '1.92',
+            'Archive::Tar::Constant'=> '1.92',
+            'Archive::Tar::File'    => '1.92',
+            'Attribute::Handlers'   => '0.95',
+            'B'                     => '1.43',
+            'B::Concise'            => '0.96',
+            'B::Deparse'            => '1.21',
+            'B::Showlex'            => '1.04',
+            'Benchmark'             => '1.16',
+            'CPAN::Meta'            => '2.131560',
+            'CPAN::Meta::Converter' => '2.131560',
+            'CPAN::Meta::Feature'   => '2.131560',
+            'CPAN::Meta::History'   => '2.131560',
+            'CPAN::Meta::Prereqs'   => '2.131560',
+            'CPAN::Meta::Spec'      => '2.131560',
+            'CPAN::Meta::Validator' => '2.131560',
+            'Carp'                  => '1.30',
+            'Carp::Heavy'           => '1.30',
+            'Compress::Raw::Bzip2'  => '2.061',
+            'Compress::Raw::Zlib'   => '2.061',
+            'Compress::Zlib'        => '2.061',
+            'Config'                => '5.019001',
+            'Config::Perl::V'       => '0.18',
+            'Cwd'                   => '3.41',
+            'DB'                    => '1.06',
+            'DB_File'               => '1.828',
+            'Data::Dumper'          => '2.146',
+            'Encode'                => '2.51',
+            'Encode::CN::HZ'        => '2.06',
+            'Encode::GSM0338'       => '2.03',
+            'Encode::Unicode::UTF7' => '2.07',
+            'ExtUtils::CBuilder::Base'=> '0.280210',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280210',
+            'ExtUtils::Command::MM' => '6.68',
+            'ExtUtils::Install'     => '1.60',
+            'ExtUtils::Liblist'     => '6.68',
+            'ExtUtils::Liblist::Kid'=> '6.68',
+            'ExtUtils::MM'          => '6.68',
+            'ExtUtils::MM_AIX'      => '6.68',
+            'ExtUtils::MM_Any'      => '6.68',
+            'ExtUtils::MM_BeOS'     => '6.68',
+            'ExtUtils::MM_Cygwin'   => '6.68',
+            'ExtUtils::MM_DOS'      => '6.68',
+            'ExtUtils::MM_Darwin'   => '6.68',
+            'ExtUtils::MM_MacOS'    => '6.68',
+            'ExtUtils::MM_NW5'      => '6.68',
+            'ExtUtils::MM_OS2'      => '6.68',
+            'ExtUtils::MM_QNX'      => '6.68',
+            'ExtUtils::MM_UWIN'     => '6.68',
+            'ExtUtils::MM_Unix'     => '6.68',
+            'ExtUtils::MM_VMS'      => '6.68',
+            'ExtUtils::MM_VOS'      => '6.68',
+            'ExtUtils::MM_Win32'    => '6.68',
+            'ExtUtils::MM_Win95'    => '6.68',
+            'ExtUtils::MY'          => '6.68',
+            'ExtUtils::MakeMaker'   => '6.68',
+            'ExtUtils::MakeMaker::Config'=> '6.68',
+            'ExtUtils::Mkbootstrap' => '6.68',
+            'ExtUtils::Mksymlists'  => '6.68',
+            'ExtUtils::ParseXS'     => '3.19',
+            'ExtUtils::testlib'     => '6.68',
+            'Fatal'                 => '2.19',
+            'File::Copy'            => '2.27',
+            'File::DosGlob'         => '1.11',
+            'File::Fetch'           => '0.42',
+            'File::Find'            => '1.24',
+            'File::Spec'            => '3.41',
+            'File::Spec::Cygwin'    => '3.41',
+            'File::Spec::Epoc'      => '3.41',
+            'File::Spec::Mac'       => '3.41',
+            'File::Spec::OS2'       => '3.41',
+            'File::Spec::Unix'      => '3.41',
+            'File::Spec::VMS'       => '3.41',
+            'File::Spec::Win32'     => '3.41',
+            'File::Temp'            => '0.2301',
+            'Filter::Simple'        => '0.90',
+            'Filter::Util::Call'    => '1.49',
+            'Getopt::Long'          => '2.4',
+            'HTTP::Tiny'            => '0.031',
+            'Hash::Util::FieldHash' => '1.11',
+            'IO::Compress::Adapter::Bzip2'=> '2.061',
+            'IO::Compress::Adapter::Deflate'=> '2.061',
+            'IO::Compress::Adapter::Identity'=> '2.061',
+            'IO::Compress::Base'    => '2.061',
+            'IO::Compress::Base::Common'=> '2.061',
+            'IO::Compress::Bzip2'   => '2.061',
+            'IO::Compress::Deflate' => '2.061',
+            'IO::Compress::Gzip'    => '2.061',
+            'IO::Compress::Gzip::Constants'=> '2.061',
+            'IO::Compress::RawDeflate'=> '2.061',
+            'IO::Compress::Zip'     => '2.061',
+            'IO::Compress::Zip::Constants'=> '2.061',
+            'IO::Compress::Zlib::Constants'=> '2.061',
+            'IO::Compress::Zlib::Extra'=> '2.061',
+            'IO::Handle'            => '1.35',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.061',
+            'IO::Uncompress::Adapter::Identity'=> '2.061',
+            'IO::Uncompress::Adapter::Inflate'=> '2.061',
+            'IO::Uncompress::AnyInflate'=> '2.061',
+            'IO::Uncompress::AnyUncompress'=> '2.061',
+            'IO::Uncompress::Base'  => '2.061',
+            'IO::Uncompress::Bunzip2'=> '2.061',
+            'IO::Uncompress::Gunzip'=> '2.061',
+            'IO::Uncompress::Inflate'=> '2.061',
+            'IO::Uncompress::RawInflate'=> '2.061',
+            'IO::Uncompress::Unzip' => '2.061',
+            'IPC::Open3'            => '1.14',
+            'Locale::Codes'         => '3.26',
+            'Locale::Codes::Constants'=> '3.26',
+            'Locale::Codes::Country'=> '3.26',
+            'Locale::Codes::Country_Codes'=> '3.26',
+            'Locale::Codes::Country_Retired'=> '3.26',
+            'Locale::Codes::Currency'=> '3.26',
+            'Locale::Codes::Currency_Codes'=> '3.26',
+            'Locale::Codes::Currency_Retired'=> '3.26',
+            'Locale::Codes::LangExt'=> '3.26',
+            'Locale::Codes::LangExt_Codes'=> '3.26',
+            'Locale::Codes::LangExt_Retired'=> '3.26',
+            'Locale::Codes::LangFam'=> '3.26',
+            'Locale::Codes::LangFam_Codes'=> '3.26',
+            'Locale::Codes::LangFam_Retired'=> '3.26',
+            'Locale::Codes::LangVar'=> '3.26',
+            'Locale::Codes::LangVar_Codes'=> '3.26',
+            'Locale::Codes::LangVar_Retired'=> '3.26',
+            'Locale::Codes::Language'=> '3.26',
+            'Locale::Codes::Language_Codes'=> '3.26',
+            'Locale::Codes::Language_Retired'=> '3.26',
+            'Locale::Codes::Script' => '3.26',
+            'Locale::Codes::Script_Codes'=> '3.26',
+            'Locale::Codes::Script_Retired'=> '3.26',
+            'Locale::Country'       => '3.26',
+            'Locale::Currency'      => '3.26',
+            'Locale::Language'      => '3.26',
+            'Locale::Maketext'      => '1.24',
+            'Locale::Script'        => '3.26',
+            'Math::BigFloat'        => '1.999',
+            'Math::BigInt'          => '1.9992',
+            'Math::BigInt::Calc'    => '1.998',
+            'Math::BigInt::CalcEmu' => '1.9991',
+            'Math::BigRat'          => '0.2606',
+            'Module::Build'         => '0.4005',
+            'Module::Build::Base'   => '0.4005',
+            'Module::Build::Compat' => '0.4005',
+            'Module::Build::Config' => '0.4005',
+            'Module::Build::Cookbook'=> '0.4005',
+            'Module::Build::Dumper' => '0.4005',
+            'Module::Build::ModuleInfo'=> '0.4005',
+            'Module::Build::Notes'  => '0.4005',
+            'Module::Build::PPMMaker'=> '0.4005',
+            'Module::Build::Platform::Amiga'=> '0.4005',
+            'Module::Build::Platform::Default'=> '0.4005',
+            'Module::Build::Platform::EBCDIC'=> '0.4005',
+            'Module::Build::Platform::MPEiX'=> '0.4005',
+            'Module::Build::Platform::MacOS'=> '0.4005',
+            'Module::Build::Platform::RiscOS'=> '0.4005',
+            'Module::Build::Platform::Unix'=> '0.4005',
+            'Module::Build::Platform::VMS'=> '0.4005',
+            'Module::Build::Platform::VOS'=> '0.4005',
+            'Module::Build::Platform::Windows'=> '0.4005',
+            'Module::Build::Platform::aix'=> '0.4005',
+            'Module::Build::Platform::cygwin'=> '0.4005',
+            'Module::Build::Platform::darwin'=> '0.4005',
+            'Module::Build::Platform::os2'=> '0.4005',
+            'Module::Build::PodParser'=> '0.4005',
+            'Module::CoreList'      => '2.92',
+            'Module::CoreList::TieHashDelta'=> '2.92',
+            'Module::CoreList::Utils'=> '2.92',
+            'Module::Metadata'      => '1.000014',
+            'Net::Ping'             => '2.42',
+            'OS2::Process'          => '1.09',
+            'POSIX'                 => '1.33',
+            'Pod::Find'             => '1.61',
+            'Pod::Html'             => '1.19',
+            'Pod::InputObjects'     => '1.61',
+            'Pod::ParseUtils'       => '1.61',
+            'Pod::Parser'           => '1.61',
+            'Pod::Perldoc'          => '3.20',
+            'Pod::Perldoc::BaseTo'  => '3.20',
+            'Pod::Perldoc::GetOptsOO'=> '3.20',
+            'Pod::Perldoc::ToANSI'  => '3.20',
+            'Pod::Perldoc::ToChecker'=> '3.20',
+            'Pod::Perldoc::ToMan'   => '3.20',
+            'Pod::Perldoc::ToNroff' => '3.20',
+            'Pod::Perldoc::ToPod'   => '3.20',
+            'Pod::Perldoc::ToRtf'   => '3.20',
+            'Pod::Perldoc::ToTerm'  => '3.20',
+            'Pod::Perldoc::ToText'  => '3.20',
+            'Pod::Perldoc::ToTk'    => '3.20',
+            'Pod::Perldoc::ToXml'   => '3.20',
+            'Pod::Select'           => '1.61',
+            'Pod::Usage'            => '1.63',
+            'Safe'                  => '2.36',
+            'Storable'              => '2.43',
+            'Sys::Hostname'         => '1.18',
+            'Sys::Syslog'           => '0.33',
+            'TAP::Base'             => '3.28',
+            'TAP::Formatter::Base'  => '3.28',
+            'TAP::Formatter::Color' => '3.28',
+            'TAP::Formatter::Console'=> '3.28',
+            'TAP::Formatter::Console::ParallelSession'=> '3.28',
+            'TAP::Formatter::Console::Session'=> '3.28',
+            'TAP::Formatter::File'  => '3.28',
+            'TAP::Formatter::File::Session'=> '3.28',
+            'TAP::Formatter::Session'=> '3.28',
+            'TAP::Harness'          => '3.28',
+            'TAP::Object'           => '3.28',
+            'TAP::Parser'           => '3.28',
+            'TAP::Parser::Aggregator'=> '3.28',
+            'TAP::Parser::Grammar'  => '3.28',
+            'TAP::Parser::Iterator' => '3.28',
+            'TAP::Parser::Iterator::Array'=> '3.28',
+            'TAP::Parser::Iterator::Process'=> '3.28',
+            'TAP::Parser::Iterator::Stream'=> '3.28',
+            'TAP::Parser::IteratorFactory'=> '3.28',
+            'TAP::Parser::Multiplexer'=> '3.28',
+            'TAP::Parser::Result'   => '3.28',
+            'TAP::Parser::Result::Bailout'=> '3.28',
+            'TAP::Parser::Result::Comment'=> '3.28',
+            'TAP::Parser::Result::Plan'=> '3.28',
+            'TAP::Parser::Result::Pragma'=> '3.28',
+            'TAP::Parser::Result::Test'=> '3.28',
+            'TAP::Parser::Result::Unknown'=> '3.28',
+            'TAP::Parser::Result::Version'=> '3.28',
+            'TAP::Parser::Result::YAML'=> '3.28',
+            'TAP::Parser::ResultFactory'=> '3.28',
+            'TAP::Parser::Scheduler'=> '3.28',
+            'TAP::Parser::Scheduler::Job'=> '3.28',
+            'TAP::Parser::Scheduler::Spinner'=> '3.28',
+            'TAP::Parser::Source'   => '3.28',
+            'TAP::Parser::SourceHandler'=> '3.28',
+            'TAP::Parser::SourceHandler::Executable'=> '3.28',
+            'TAP::Parser::SourceHandler::File'=> '3.28',
+            'TAP::Parser::SourceHandler::Handle'=> '3.28',
+            'TAP::Parser::SourceHandler::Perl'=> '3.28',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.28',
+            'TAP::Parser::Utils'    => '3.28',
+            'TAP::Parser::YAMLish::Reader'=> '3.28',
+            'TAP::Parser::YAMLish::Writer'=> '3.28',
+            'Term::ReadLine'        => '1.13',
+            'Test::Harness'         => '3.28',
+            'Text::Tabs'            => '2013.0523',
+            'Text::Wrap'            => '2013.0523',
+            'Thread'                => '3.04',
+            'Tie::File'             => '1.00',
+            'Time::Piece'           => '1.2002',
+            'Unicode::Collate'      => '0.98',
+            'Unicode::UCD'          => '0.53',
+            'XS::APItest'           => '0.53',
+            '_charnames'            => '1.37',
+            'autodie'               => '2.19',
+            'autodie::exception'    => '2.19',
+            'autodie::exception::system'=> '2.19',
+            'autodie::hints'        => '2.19',
+            'autodie::skip'         => '2.19',
+            'bigint'                => '0.35',
+            'charnames'             => '1.38',
+            'encoding'              => '2.12',
+            'inc::latest'           => '0.4005',
+            'mro'                   => '1.12',
+            'perlfaq'               => '5.0150043',
+            're'                    => '0.25',
+            'threads'               => '1.87',
+            'threads::shared'       => '1.44',
+            'utf8'                  => '1.12',
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+            'B'                     => '1.44',
+            'B::Concise'            => '0.98',
+            'B::Deparse'            => '1.22',
+            'Benchmark'             => '1.17',
+            'Class::Struct'         => '0.65',
+            'Config'                => '5.019002',
+            'DB'                    => '1.07',
+            'DBM_Filter'            => '0.06',
+            'DBM_Filter::compress'  => '0.03',
+            'DBM_Filter::encode'    => '0.03',
+            'DBM_Filter::int32'     => '0.03',
+            'DBM_Filter::null'      => '0.03',
+            'DBM_Filter::utf8'      => '0.03',
+            'DB_File'               => '1.829',
+            'Data::Dumper'          => '2.147',
+            'Devel::Peek'           => '1.12',
+            'Digest::MD5'           => '2.53',
+            'Digest::SHA'           => '5.85',
+            'English'               => '1.07',
+            'Errno'                 => '1.19',
+            'ExtUtils::Embed'       => '1.31',
+            'ExtUtils::Miniperl'    => '1',
+            'ExtUtils::ParseXS'     => '3.21',
+            'ExtUtils::ParseXS::Constants'=> '3.21',
+            'ExtUtils::ParseXS::CountLines'=> '3.21',
+            'ExtUtils::ParseXS::Eval'=> '3.19',
+            'ExtUtils::ParseXS::Utilities'=> '3.21',
+            'ExtUtils::Typemaps'    => '3.21',
+            'ExtUtils::Typemaps::Cmd'=> '3.21',
+            'ExtUtils::Typemaps::InputMap'=> '3.21',
+            'ExtUtils::Typemaps::OutputMap'=> '3.21',
+            'ExtUtils::Typemaps::Type'=> '3.21',
+            'ExtUtils::XSSymSet'    => '1.3',
+            'Fatal'                 => '2.20',
+            'File::Basename'        => '2.85',
+            'File::Spec::VMS'       => '3.43',
+            'File::Spec::Win32'     => '3.42',
+            'Getopt::Long'          => '2.41',
+            'Getopt::Std'           => '1.09',
+            'HTTP::Tiny'            => '0.034',
+            'Hash::Util::FieldHash' => '1.12',
+            'I18N::Langinfo'        => '0.11',
+            'IO::Socket::INET'      => '1.34',
+            'IO::Socket::UNIX'      => '1.25',
+            'IPC::Cmd'              => '0.82',
+            'MIME::Base64'          => '3.14',
+            'Module::CoreList'      => '2.94',
+            'Module::CoreList::TieHashDelta'=> '2.94',
+            'Module::CoreList::Utils'=> '2.94',
+            'POSIX'                 => '1.34',
+            'Params::Check'         => '0.38',
+            'Parse::CPAN::Meta'     => '1.4405',
+            'Pod::Functions'        => '1.07',
+            'Pod::Html'             => '1.2',
+            'Safe'                  => '2.37',
+            'Socket'                => '2.010',
+            'Storable'              => '2.45',
+            'Text::ParseWords'      => '3.29',
+            'Tie::Array'            => '1.06',
+            'Tie::Hash'             => '1.05',
+            'Tie::Scalar'           => '1.03',
+            'Time::Piece'           => '1.21',
+            'Time::Seconds'         => '1.21',
+            'XS::APItest'           => '0.54',
+            'autodie'               => '2.20',
+            'autodie::exception'    => '2.20',
+            'autodie::exception::system'=> '2.20',
+            'autodie::hints'        => '2.20',
+            'autodie::skip'         => '2.20',
+            'base'                  => '2.19',
+            'deprecate'             => '0.03',
+            'if'                    => '0.0603',
+            'integer'               => '1.01',
+            'strict'                => '1.08',
+            'subs'                  => '1.02',
+            'vmsish'                => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+            'B'                     => '1.45',
+            'CPAN::Meta'            => '2.132140',
+            'CPAN::Meta::Converter' => '2.132140',
+            'CPAN::Meta::Feature'   => '2.132140',
+            'CPAN::Meta::History'   => '2.132140',
+            'CPAN::Meta::Prereqs'   => '2.132140',
+            'CPAN::Meta::Spec'      => '2.132140',
+            'CPAN::Meta::Validator' => '2.132140',
+            'Carp'                  => '1.31',
+            'Carp::Heavy'           => '1.31',
+            'Compress::Raw::Bzip2'  => '2.062',
+            'Compress::Raw::Zlib'   => '2.062',
+            'Compress::Zlib'        => '2.062',
+            'Config'                => '5.019003',
+            'Config::Perl::V'       => '0.19',
+            'Cwd'                   => '3.44',
+            'Data::Dumper'          => '2.148',
+            'Devel::PPPort'         => '3.21',
+            'Devel::Peek'           => '1.13',
+            'DynaLoader'            => '1.19',
+            'Encode'                => '2.52',
+            'Encode::Alias'         => '2.17',
+            'Encode::Encoding'      => '2.06',
+            'Encode::GSM0338'       => '2.04',
+            'Encode::MIME::Header'  => '2.14',
+            'Encode::Unicode'       => '2.08',
+            'English'               => '1.08',
+            'Exporter'              => '5.69',
+            'Exporter::Heavy'       => '5.69',
+            'ExtUtils::Command::MM' => '6.72',
+            'ExtUtils::Liblist'     => '6.72',
+            'ExtUtils::Liblist::Kid'=> '6.72',
+            'ExtUtils::MM'          => '6.72',
+            'ExtUtils::MM_AIX'      => '6.72',
+            'ExtUtils::MM_Any'      => '6.72',
+            'ExtUtils::MM_BeOS'     => '6.72',
+            'ExtUtils::MM_Cygwin'   => '6.72',
+            'ExtUtils::MM_DOS'      => '6.72',
+            'ExtUtils::MM_Darwin'   => '6.72',
+            'ExtUtils::MM_MacOS'    => '6.72',
+            'ExtUtils::MM_NW5'      => '6.72',
+            'ExtUtils::MM_OS2'      => '6.72',
+            'ExtUtils::MM_QNX'      => '6.72',
+            'ExtUtils::MM_UWIN'     => '6.72',
+            'ExtUtils::MM_Unix'     => '6.72',
+            'ExtUtils::MM_VMS'      => '6.72',
+            'ExtUtils::MM_VOS'      => '6.72',
+            'ExtUtils::MM_Win32'    => '6.72',
+            'ExtUtils::MM_Win95'    => '6.72',
+            'ExtUtils::MY'          => '6.72',
+            'ExtUtils::MakeMaker'   => '6.72',
+            'ExtUtils::MakeMaker::Config'=> '6.72',
+            'ExtUtils::Mkbootstrap' => '6.72',
+            'ExtUtils::Mksymlists'  => '6.72',
+            'ExtUtils::ParseXS::Eval'=> '3.21',
+            'ExtUtils::testlib'     => '6.72',
+            'File::Spec'            => '3.44',
+            'File::Spec::Cygwin'    => '3.44',
+            'File::Spec::Epoc'      => '3.44',
+            'File::Spec::Functions' => '3.44',
+            'File::Spec::Mac'       => '3.44',
+            'File::Spec::OS2'       => '3.44',
+            'File::Spec::Unix'      => '3.44',
+            'File::Spec::VMS'       => '3.44',
+            'File::Spec::Win32'     => '3.44',
+            'Getopt::Std'           => '1.10',
+            'IO::Compress::Adapter::Bzip2'=> '2.062',
+            'IO::Compress::Adapter::Deflate'=> '2.062',
+            'IO::Compress::Adapter::Identity'=> '2.062',
+            'IO::Compress::Base'    => '2.062',
+            'IO::Compress::Base::Common'=> '2.062',
+            'IO::Compress::Bzip2'   => '2.062',
+            'IO::Compress::Deflate' => '2.062',
+            'IO::Compress::Gzip'    => '2.062',
+            'IO::Compress::Gzip::Constants'=> '2.062',
+            'IO::Compress::RawDeflate'=> '2.062',
+            'IO::Compress::Zip'     => '2.062',
+            'IO::Compress::Zip::Constants'=> '2.062',
+            'IO::Compress::Zlib::Constants'=> '2.062',
+            'IO::Compress::Zlib::Extra'=> '2.062',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.062',
+            'IO::Uncompress::Adapter::Identity'=> '2.062',
+            'IO::Uncompress::Adapter::Inflate'=> '2.062',
+            'IO::Uncompress::AnyInflate'=> '2.062',
+            'IO::Uncompress::AnyUncompress'=> '2.062',
+            'IO::Uncompress::Base'  => '2.062',
+            'IO::Uncompress::Bunzip2'=> '2.062',
+            'IO::Uncompress::Gunzip'=> '2.062',
+            'IO::Uncompress::Inflate'=> '2.062',
+            'IO::Uncompress::RawInflate'=> '2.062',
+            'IO::Uncompress::Unzip' => '2.062',
+            'IPC::Cmd'              => '0.84',
+            'IPC::Msg'              => '2.04',
+            'IPC::Open3'            => '1.15',
+            'IPC::Semaphore'        => '2.04',
+            'IPC::SharedMem'        => '2.04',
+            'IPC::SysV'             => '2.04',
+            'List::Util'            => '1.31',
+            'List::Util::XS'        => '1.31',
+            'Math::BigFloat::Trace' => '0.36',
+            'Math::BigInt::Trace'   => '0.36',
+            'Module::Build'         => '0.4007',
+            'Module::Build::Base'   => '0.4007',
+            'Module::Build::Compat' => '0.4007',
+            'Module::Build::Config' => '0.4007',
+            'Module::Build::Cookbook'=> '0.4007',
+            'Module::Build::Dumper' => '0.4007',
+            'Module::Build::ModuleInfo'=> '0.4007',
+            'Module::Build::Notes'  => '0.4007',
+            'Module::Build::PPMMaker'=> '0.4007',
+            'Module::Build::Platform::Default'=> '0.4007',
+            'Module::Build::Platform::MacOS'=> '0.4007',
+            'Module::Build::Platform::Unix'=> '0.4007',
+            'Module::Build::Platform::VMS'=> '0.4007',
+            'Module::Build::Platform::VOS'=> '0.4007',
+            'Module::Build::Platform::Windows'=> '0.4007',
+            'Module::Build::Platform::aix'=> '0.4007',
+            'Module::Build::Platform::cygwin'=> '0.4007',
+            'Module::Build::Platform::darwin'=> '0.4007',
+            'Module::Build::Platform::os2'=> '0.4007',
+            'Module::Build::PodParser'=> '0.4007',
+            'Module::CoreList'      => '2.97',
+            'Module::CoreList::TieHashDelta'=> '2.97',
+            'Module::CoreList::Utils'=> '2.97',
+            'Net::Cmd'              => '2.30',
+            'Net::Config'           => '1.12',
+            'Net::Domain'           => '2.22',
+            'Net::FTP'              => '2.78',
+            'Net::FTP::dataconn'    => '0.12',
+            'Net::NNTP'             => '2.25',
+            'Net::Netrc'            => '2.14',
+            'Net::POP3'             => '2.30',
+            'Net::SMTP'             => '2.32',
+            'PerlIO'                => '1.08',
+            'Pod::Functions'        => '1.08',
+            'Scalar::Util'          => '1.31',
+            'Socket'                => '2.011',
+            'Storable'              => '2.46',
+            'Time::HiRes'           => '1.9726',
+            'Time::Piece'           => '1.22',
+            'Time::Seconds'         => '1.22',
+            'XS::APItest'           => '0.55',
+            'bigint'                => '0.36',
+            'bignum'                => '0.36',
+            'bigrat'                => '0.36',
+            'constant'              => '1.28',
+            'diagnostics'           => '1.32',
+            'inc::latest'           => '0.4007',
+            'mro'                   => '1.13',
+            'parent'                => '0.226',
+            'utf8'                  => '1.13',
+            'version'               => '0.9903',
+        },
+        removed => {
+           'Module::Build::Platform::Amiga'=> 1,
+           'Module::Build::Platform::EBCDIC'=> 1,
+           'Module::Build::Platform::MPEiX'=> 1,
+           'Module::Build::Platform::RiscOS'=> 1,
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+            'B'                     => '1.46',
+            'B::Concise'            => '0.99',
+            'B::Deparse'            => '1.23',
+            'CPAN'                  => '2.03',
+            'CPAN::Meta'            => '2.132620',
+            'CPAN::Meta::Converter' => '2.132620',
+            'CPAN::Meta::Feature'   => '2.132620',
+            'CPAN::Meta::History'   => '2.132620',
+            'CPAN::Meta::Prereqs'   => '2.132620',
+            'CPAN::Meta::Requirements'=> '2.123',
+            'CPAN::Meta::Spec'      => '2.132620',
+            'CPAN::Meta::Validator' => '2.132620',
+            'Carp'                  => '1.32',
+            'Carp::Heavy'           => '1.32',
+            'Config'                => '5.019004',
+            'Data::Dumper'          => '2.149',
+            'Devel::Peek'           => '1.14',
+            'DynaLoader'            => '1.20',
+            'Encode'                => '2.55',
+            'Encode::Alias'         => '2.18',
+            'Encode::CN::HZ'        => '2.07',
+            'Encode::Encoder'       => '2.03',
+            'Encode::Encoding'      => '2.07',
+            'Encode::GSM0338'       => '2.05',
+            'Encode::Guess'         => '2.06',
+            'Encode::JP::JIS7'      => '2.05',
+            'Encode::KR::2022_KR'   => '2.03',
+            'Encode::MIME::Header'  => '2.15',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.04',
+            'Encode::Unicode'       => '2.09',
+            'Encode::Unicode::UTF7' => '2.08',
+            'Errno'                 => '1.20',
+            'Exporter'              => '5.70',
+            'Exporter::Heavy'       => '5.70',
+            'ExtUtils::CBuilder'    => '0.280212',
+            'ExtUtils::CBuilder::Base'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280212',
+            'ExtUtils::Command'     => '1.18',
+            'ExtUtils::Command::MM' => '6.76',
+            'ExtUtils::Liblist'     => '6.76',
+            'ExtUtils::Liblist::Kid'=> '6.76',
+            'ExtUtils::MM'          => '6.76',
+            'ExtUtils::MM_AIX'      => '6.76',
+            'ExtUtils::MM_Any'      => '6.76',
+            'ExtUtils::MM_BeOS'     => '6.76',
+            'ExtUtils::MM_Cygwin'   => '6.76',
+            'ExtUtils::MM_DOS'      => '6.76',
+            'ExtUtils::MM_Darwin'   => '6.76',
+            'ExtUtils::MM_MacOS'    => '6.76',
+            'ExtUtils::MM_NW5'      => '6.76',
+            'ExtUtils::MM_OS2'      => '6.76',
+            'ExtUtils::MM_QNX'      => '6.76',
+            'ExtUtils::MM_UWIN'     => '6.76',
+            'ExtUtils::MM_Unix'     => '6.76',
+            'ExtUtils::MM_VMS'      => '6.76',
+            'ExtUtils::MM_VOS'      => '6.76',
+            'ExtUtils::MM_Win32'    => '6.76',
+            'ExtUtils::MM_Win95'    => '6.76',
+            'ExtUtils::MY'          => '6.76',
+            'ExtUtils::MakeMaker'   => '6.76',
+            'ExtUtils::MakeMaker::Config'=> '6.76',
+            'ExtUtils::Mkbootstrap' => '6.76',
+            'ExtUtils::Mksymlists'  => '6.76',
+            'ExtUtils::ParseXS'     => '3.23',
+            'ExtUtils::ParseXS::Constants'=> '3.23',
+            'ExtUtils::ParseXS::CountLines'=> '3.23',
+            'ExtUtils::ParseXS::Eval'=> '3.23',
+            'ExtUtils::ParseXS::Utilities'=> '3.23',
+            'ExtUtils::Typemaps'    => '3.23',
+            'ExtUtils::Typemaps::Cmd'=> '3.23',
+            'ExtUtils::Typemaps::InputMap'=> '3.23',
+            'ExtUtils::Typemaps::OutputMap'=> '3.23',
+            'ExtUtils::Typemaps::Type'=> '3.23',
+            'ExtUtils::testlib'     => '6.76',
+            'Fatal'                 => '2.21',
+            'File::Copy'            => '2.28',
+            'File::Find'            => '1.25',
+            'File::Glob'            => '1.21',
+            'FileCache'             => '1.09',
+            'HTTP::Tiny'            => '0.035',
+            'Hash::Util::FieldHash' => '1.13',
+            'I18N::LangTags'        => '0.40',
+            'IO'                    => '1.29',
+            'IO::Socket'            => '1.37',
+            'IPC::Open3'            => '1.16',
+            'JSON::PP'              => '2.27202_01',
+            'List::Util'            => '1.32',
+            'List::Util::XS'        => '1.32',
+            'Locale::Codes'         => '3.27',
+            'Locale::Codes::Constants'=> '3.27',
+            'Locale::Codes::Country'=> '3.27',
+            'Locale::Codes::Country_Codes'=> '3.27',
+            'Locale::Codes::Country_Retired'=> '3.27',
+            'Locale::Codes::Currency'=> '3.27',
+            'Locale::Codes::Currency_Codes'=> '3.27',
+            'Locale::Codes::Currency_Retired'=> '3.27',
+            'Locale::Codes::LangExt'=> '3.27',
+            'Locale::Codes::LangExt_Codes'=> '3.27',
+            'Locale::Codes::LangExt_Retired'=> '3.27',
+            'Locale::Codes::LangFam'=> '3.27',
+            'Locale::Codes::LangFam_Codes'=> '3.27',
+            'Locale::Codes::LangFam_Retired'=> '3.27',
+            'Locale::Codes::LangVar'=> '3.27',
+            'Locale::Codes::LangVar_Codes'=> '3.27',
+            'Locale::Codes::LangVar_Retired'=> '3.27',
+            'Locale::Codes::Language'=> '3.27',
+            'Locale::Codes::Language_Codes'=> '3.27',
+            'Locale::Codes::Language_Retired'=> '3.27',
+            'Locale::Codes::Script' => '3.27',
+            'Locale::Codes::Script_Codes'=> '3.27',
+            'Locale::Codes::Script_Retired'=> '3.27',
+            'Locale::Country'       => '3.27',
+            'Locale::Currency'      => '3.27',
+            'Locale::Language'      => '3.27',
+            'Locale::Script'        => '3.27',
+            'Math::BigFloat'        => '1.9991',
+            'Math::BigInt'          => '1.9993',
+            'Math::BigInt::FastCalc'=> '0.31',
+            'Module::CoreList'      => '2.99',
+            'Module::CoreList::TieHashDelta'=> '2.99',
+            'Module::CoreList::Utils'=> '2.99',
+            'Module::Load::Conditional'=> '0.58',
+            'Module::Metadata'      => '1.000018',
+            'Opcode'                => '1.26',
+            'POSIX'                 => '1.35',
+            'Parse::CPAN::Meta'     => '1.4407',
+            'Perl::OSType'          => '1.005',
+            'Pod::Html'             => '1.21',
+            'Scalar::Util'          => '1.32',
+            'Socket'                => '2.012',
+            'Storable'              => '2.47',
+            'Term::ReadLine'        => '1.14',
+            'Test::Builder'         => '0.98_06',
+            'Test::Builder::Module' => '0.98_06',
+            'Test::More'            => '0.98_06',
+            'Test::Simple'          => '0.98_06',
+            'Time::Piece'           => '1.23',
+            'Time::Seconds'         => '1.23',
+            'Unicode::Collate'      => '0.99',
+            'Unicode::UCD'          => '0.54',
+            'XS::APItest'           => '0.56',
+            'XS::Typemap'           => '0.11',
+            '_charnames'            => '1.39',
+            'autodie'               => '2.21',
+            'autodie::exception'    => '2.21',
+            'autodie::exception::system'=> '2.21',
+            'autodie::hints'        => '2.21',
+            'autodie::skip'         => '2.21',
+            'charnames'             => '1.39',
+            'diagnostics'           => '1.33',
+            'mro'                   => '1.14',
+            'parent'                => '0.228',
+            'perlfaq'               => '5.0150044',
+            're'                    => '0.26',
+            'version'               => '0.9904',
+            'warnings'              => '1.19',
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+            'App::Prove'            => '3.29',
+            'App::Prove::State'     => '3.29',
+            'App::Prove::State::Result'=> '3.29',
+            'App::Prove::State::Result::Test'=> '3.29',
+            'CPAN::Meta'            => '2.132830',
+            'CPAN::Meta::Converter' => '2.132830',
+            'CPAN::Meta::Feature'   => '2.132830',
+            'CPAN::Meta::History'   => '2.132830',
+            'CPAN::Meta::Prereqs'   => '2.132830',
+            'CPAN::Meta::Requirements'=> '2.125',
+            'CPAN::Meta::Spec'      => '2.132830',
+            'CPAN::Meta::Validator' => '2.132830',
+            'CPAN::Meta::YAML'      => '0.010',
+            'Config'                => '5.019005',
+            'Cwd'                   => '3.45',
+            'ExtUtils::Command::MM' => '6.80',
+            'ExtUtils::Install'     => '1.61',
+            'ExtUtils::Liblist'     => '6.80',
+            'ExtUtils::Liblist::Kid'=> '6.80',
+            'ExtUtils::MM'          => '6.80',
+            'ExtUtils::MM_AIX'      => '6.80',
+            'ExtUtils::MM_Any'      => '6.80',
+            'ExtUtils::MM_BeOS'     => '6.80',
+            'ExtUtils::MM_Cygwin'   => '6.80',
+            'ExtUtils::MM_DOS'      => '6.80',
+            'ExtUtils::MM_Darwin'   => '6.80',
+            'ExtUtils::MM_MacOS'    => '6.80',
+            'ExtUtils::MM_NW5'      => '6.80',
+            'ExtUtils::MM_OS2'      => '6.80',
+            'ExtUtils::MM_QNX'      => '6.80',
+            'ExtUtils::MM_UWIN'     => '6.80',
+            'ExtUtils::MM_Unix'     => '6.80',
+            'ExtUtils::MM_VMS'      => '6.80',
+            'ExtUtils::MM_VOS'      => '6.80',
+            'ExtUtils::MM_Win32'    => '6.80',
+            'ExtUtils::MM_Win95'    => '6.80',
+            'ExtUtils::MY'          => '6.80',
+            'ExtUtils::MakeMaker'   => '6.80',
+            'ExtUtils::MakeMaker::Config'=> '6.80',
+            'ExtUtils::Mkbootstrap' => '6.80',
+            'ExtUtils::Mksymlists'  => '6.80',
+            'ExtUtils::testlib'     => '6.80',
+            'Fatal'                 => '2.22',
+            'File::Fetch'           => '0.44',
+            'File::Glob'            => '1.22',
+            'File::Spec'            => '3.45',
+            'File::Spec::Cygwin'    => '3.45',
+            'File::Spec::Epoc'      => '3.45',
+            'File::Spec::Functions' => '3.45',
+            'File::Spec::Mac'       => '3.45',
+            'File::Spec::OS2'       => '3.45',
+            'File::Spec::Unix'      => '3.45',
+            'File::Spec::VMS'       => '3.45',
+            'File::Spec::Win32'     => '3.45',
+            'File::Temp'            => '0.2304',
+            'Getopt::Long'          => '2.42',
+            'HTTP::Tiny'            => '0.036',
+            'IPC::Cmd'              => '0.84_01',
+            'JSON::PP'              => '2.27203',
+            'List::Util'            => '1.35',
+            'List::Util::XS'        => '1.35',
+            'Module::CoreList'      => '3.00',
+            'Module::CoreList::TieHashDelta'=> '3.00',
+            'Module::CoreList::Utils'=> '3.00',
+            'Module::Metadata'      => '1.000019',
+            'Parse::CPAN::Meta'     => '1.4409',
+            'Perl::OSType'          => '1.006',
+            'PerlIO::scalar'        => '0.17',
+            'Pod::Man'              => '2.28',
+            'Pod::Text'             => '3.18',
+            'Pod::Text::Termcap'    => '2.08',
+            'Scalar::Util'          => '1.35',
+            'TAP::Base'             => '3.29',
+            'TAP::Formatter::Base'  => '3.29',
+            'TAP::Formatter::Color' => '3.29',
+            'TAP::Formatter::Console'=> '3.29',
+            'TAP::Formatter::Console::ParallelSession'=> '3.29',
+            'TAP::Formatter::Console::Session'=> '3.29',
+            'TAP::Formatter::File'  => '3.29',
+            'TAP::Formatter::File::Session'=> '3.29',
+            'TAP::Formatter::Session'=> '3.29',
+            'TAP::Harness'          => '3.29',
+            'TAP::Harness::Env'     => '3.29',
+            'TAP::Object'           => '3.29',
+            'TAP::Parser'           => '3.29',
+            'TAP::Parser::Aggregator'=> '3.29',
+            'TAP::Parser::Grammar'  => '3.29',
+            'TAP::Parser::Iterator' => '3.29',
+            'TAP::Parser::Iterator::Array'=> '3.29',
+            'TAP::Parser::Iterator::Process'=> '3.29',
+            'TAP::Parser::Iterator::Stream'=> '3.29',
+            'TAP::Parser::IteratorFactory'=> '3.29',
+            'TAP::Parser::Multiplexer'=> '3.29',
+            'TAP::Parser::Result'   => '3.29',
+            'TAP::Parser::Result::Bailout'=> '3.29',
+            'TAP::Parser::Result::Comment'=> '3.29',
+            'TAP::Parser::Result::Plan'=> '3.29',
+            'TAP::Parser::Result::Pragma'=> '3.29',
+            'TAP::Parser::Result::Test'=> '3.29',
+            'TAP::Parser::Result::Unknown'=> '3.29',
+            'TAP::Parser::Result::Version'=> '3.29',
+            'TAP::Parser::Result::YAML'=> '3.29',
+            'TAP::Parser::ResultFactory'=> '3.29',
+            'TAP::Parser::Scheduler'=> '3.29',
+            'TAP::Parser::Scheduler::Job'=> '3.29',
+            'TAP::Parser::Scheduler::Spinner'=> '3.29',
+            'TAP::Parser::Source'   => '3.29',
+            'TAP::Parser::SourceHandler'=> '3.29',
+            'TAP::Parser::SourceHandler::Executable'=> '3.29',
+            'TAP::Parser::SourceHandler::File'=> '3.29',
+            'TAP::Parser::SourceHandler::Handle'=> '3.29',
+            'TAP::Parser::SourceHandler::Perl'=> '3.29',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.29',
+            'TAP::Parser::YAMLish::Reader'=> '3.29',
+            'TAP::Parser::YAMLish::Writer'=> '3.29',
+            'Test::Builder'         => '0.99',
+            'Test::Builder::Module' => '0.99',
+            'Test::Builder::Tester' => '1.23_002',
+            'Test::Builder::Tester::Color'=> '1.23_002',
+            'Test::Harness'         => '3.29',
+            'Test::More'            => '0.99',
+            'Test::Simple'          => '0.99',
+            'Unicode'               => '6.3.0',
+            'Unicode::Normalize'    => '1.17',
+            'Unicode::UCD'          => '0.55',
+            'attributes'            => '0.22',
+            'autodie'               => '2.22',
+            'autodie::exception'    => '2.22',
+            'autodie::exception::system'=> '2.22',
+            'autodie::hints'        => '2.22',
+            'autodie::skip'         => '2.22',
+            'feature'               => '1.34',
+            'threads'               => '1.89',
+            'warnings'              => '1.20',
+        },
+        removed => {
+            'TAP::Parser::Utils'    => 1,
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+            'App::Prove'            => '3.30',
+            'App::Prove::State'     => '3.30',
+            'App::Prove::State::Result'=> '3.30',
+            'App::Prove::State::Result::Test'=> '3.30',
+            'Archive::Tar'          => '1.96',
+            'Archive::Tar::Constant'=> '1.96',
+            'Archive::Tar::File'    => '1.96',
+            'AutoLoader'            => '5.74',
+            'B'                     => '1.47',
+            'B::Concise'            => '0.991',
+            'B::Debug'              => '1.19',
+            'B::Deparse'            => '1.24',
+            'Benchmark'             => '1.18',
+            'Compress::Raw::Bzip2'  => '2.063',
+            'Compress::Raw::Zlib'   => '2.063',
+            'Compress::Zlib'        => '2.063',
+            'Config'                => '5.019006',
+            'DB_File'               => '1.831',
+            'Devel::Peek'           => '1.15',
+            'DynaLoader'            => '1.21',
+            'Errno'                 => '1.20_01',
+            'ExtUtils::Command::MM' => '6.82',
+            'ExtUtils::Liblist'     => '6.82',
+            'ExtUtils::Liblist::Kid'=> '6.82',
+            'ExtUtils::MM'          => '6.82',
+            'ExtUtils::MM_AIX'      => '6.82',
+            'ExtUtils::MM_Any'      => '6.82',
+            'ExtUtils::MM_BeOS'     => '6.82',
+            'ExtUtils::MM_Cygwin'   => '6.82',
+            'ExtUtils::MM_DOS'      => '6.82',
+            'ExtUtils::MM_Darwin'   => '6.82',
+            'ExtUtils::MM_MacOS'    => '6.82',
+            'ExtUtils::MM_NW5'      => '6.82',
+            'ExtUtils::MM_OS2'      => '6.82',
+            'ExtUtils::MM_QNX'      => '6.82',
+            'ExtUtils::MM_UWIN'     => '6.82',
+            'ExtUtils::MM_Unix'     => '6.82',
+            'ExtUtils::MM_VMS'      => '6.82',
+            'ExtUtils::MM_VOS'      => '6.82',
+            'ExtUtils::MM_Win32'    => '6.82',
+            'ExtUtils::MM_Win95'    => '6.82',
+            'ExtUtils::MY'          => '6.82',
+            'ExtUtils::MakeMaker'   => '6.82',
+            'ExtUtils::MakeMaker::Config'=> '6.82',
+            'ExtUtils::Mkbootstrap' => '6.82',
+            'ExtUtils::Mksymlists'  => '6.82',
+            'ExtUtils::testlib'     => '6.82',
+            'File::DosGlob'         => '1.12',
+            'File::Find'            => '1.26',
+            'File::Glob'            => '1.23',
+            'HTTP::Tiny'            => '0.038',
+            'IO'                    => '1.30',
+            'IO::Compress::Adapter::Bzip2'=> '2.063',
+            'IO::Compress::Adapter::Deflate'=> '2.063',
+            'IO::Compress::Adapter::Identity'=> '2.063',
+            'IO::Compress::Base'    => '2.063',
+            'IO::Compress::Base::Common'=> '2.063',
+            'IO::Compress::Bzip2'   => '2.063',
+            'IO::Compress::Deflate' => '2.063',
+            'IO::Compress::Gzip'    => '2.063',
+            'IO::Compress::Gzip::Constants'=> '2.063',
+            'IO::Compress::RawDeflate'=> '2.063',
+            'IO::Compress::Zip'     => '2.063',
+            'IO::Compress::Zip::Constants'=> '2.063',
+            'IO::Compress::Zlib::Constants'=> '2.063',
+            'IO::Compress::Zlib::Extra'=> '2.063',
+            'IO::Select'            => '1.22',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.063',
+            'IO::Uncompress::Adapter::Identity'=> '2.063',
+            'IO::Uncompress::Adapter::Inflate'=> '2.063',
+            'IO::Uncompress::AnyInflate'=> '2.063',
+            'IO::Uncompress::AnyUncompress'=> '2.063',
+            'IO::Uncompress::Base'  => '2.063',
+            'IO::Uncompress::Bunzip2'=> '2.063',
+            'IO::Uncompress::Gunzip'=> '2.063',
+            'IO::Uncompress::Inflate'=> '2.063',
+            'IO::Uncompress::RawInflate'=> '2.063',
+            'IO::Uncompress::Unzip' => '2.063',
+            'IPC::Cmd'              => '0.90',
+            'Locale::Maketext'      => '1.25',
+            'Module::Build'         => '0.4202',
+            'Module::Build::Base'   => '0.4202',
+            'Module::Build::Compat' => '0.4202',
+            'Module::Build::Config' => '0.4202',
+            'Module::Build::Cookbook'=> '0.4202',
+            'Module::Build::Dumper' => '0.4202',
+            'Module::Build::ModuleInfo'=> '0.4202',
+            'Module::Build::Notes'  => '0.4202',
+            'Module::Build::PPMMaker'=> '0.4202',
+            'Module::Build::Platform::Default'=> '0.4202',
+            'Module::Build::Platform::MacOS'=> '0.4202',
+            'Module::Build::Platform::Unix'=> '0.4202',
+            'Module::Build::Platform::VMS'=> '0.4202',
+            'Module::Build::Platform::VOS'=> '0.4202',
+            'Module::Build::Platform::Windows'=> '0.4202',
+            'Module::Build::Platform::aix'=> '0.4202',
+            'Module::Build::Platform::cygwin'=> '0.4202',
+            'Module::Build::Platform::darwin'=> '0.4202',
+            'Module::Build::Platform::os2'=> '0.4202',
+            'Module::Build::PodParser'=> '0.4202',
+            'Module::CoreList'      => '3.01',
+            'Module::CoreList::TieHashDelta'=> '3.01',
+            'Module::CoreList::Utils'=> '3.01',
+            'Opcode'                => '1.27',
+            'POSIX'                 => '1.36',
+            'Package::Constants'    => '0.04',
+            'PerlIO::scalar'        => '0.18',
+            'PerlIO::via'           => '0.13',
+            'SDBM_File'             => '1.10',
+            'Socket'                => '2.013',
+            'TAP::Base'             => '3.30',
+            'TAP::Formatter::Base'  => '3.30',
+            'TAP::Formatter::Color' => '3.30',
+            'TAP::Formatter::Console'=> '3.30',
+            'TAP::Formatter::Console::ParallelSession'=> '3.30',
+            'TAP::Formatter::Console::Session'=> '3.30',
+            'TAP::Formatter::File'  => '3.30',
+            'TAP::Formatter::File::Session'=> '3.30',
+            'TAP::Formatter::Session'=> '3.30',
+            'TAP::Harness'          => '3.30',
+            'TAP::Harness::Env'     => '3.30',
+            'TAP::Object'           => '3.30',
+            'TAP::Parser'           => '3.30',
+            'TAP::Parser::Aggregator'=> '3.30',
+            'TAP::Parser::Grammar'  => '3.30',
+            'TAP::Parser::Iterator' => '3.30',
+            'TAP::Parser::Iterator::Array'=> '3.30',
+            'TAP::Parser::Iterator::Process'=> '3.30',
+            'TAP::Parser::Iterator::Stream'=> '3.30',
+            'TAP::Parser::IteratorFactory'=> '3.30',
+            'TAP::Parser::Multiplexer'=> '3.30',
+            'TAP::Parser::Result'   => '3.30',
+            'TAP::Parser::Result::Bailout'=> '3.30',
+            'TAP::Parser::Result::Comment'=> '3.30',
+            'TAP::Parser::Result::Plan'=> '3.30',
+            'TAP::Parser::Result::Pragma'=> '3.30',
+            'TAP::Parser::Result::Test'=> '3.30',
+            'TAP::Parser::Result::Unknown'=> '3.30',
+            'TAP::Parser::Result::Version'=> '3.30',
+            'TAP::Parser::Result::YAML'=> '3.30',
+            'TAP::Parser::ResultFactory'=> '3.30',
+            'TAP::Parser::Scheduler'=> '3.30',
+            'TAP::Parser::Scheduler::Job'=> '3.30',
+            'TAP::Parser::Scheduler::Spinner'=> '3.30',
+            'TAP::Parser::Source'   => '3.30',
+            'TAP::Parser::SourceHandler'=> '3.30',
+            'TAP::Parser::SourceHandler::Executable'=> '3.30',
+            'TAP::Parser::SourceHandler::File'=> '3.30',
+            'TAP::Parser::SourceHandler::Handle'=> '3.30',
+            'TAP::Parser::SourceHandler::Perl'=> '3.30',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.30',
+            'TAP::Parser::YAMLish::Reader'=> '3.30',
+            'TAP::Parser::YAMLish::Writer'=> '3.30',
+            'Term::Cap'             => '1.15',
+            'Test::Builder'         => '1.001002',
+            'Test::Builder::Module' => '1.001002',
+            'Test::Harness'         => '3.30',
+            'Test::More'            => '1.001002',
+            'Test::Simple'          => '1.001002',
+            'Tie::StdHandle'        => '4.4',
+            'Unicode::Collate'      => '1.02',
+            'Unicode::Collate::CJK::Korean'=> '1.02',
+            'Unicode::Collate::Locale'=> '1.02',
+            'XS::APItest'           => '0.57',
+            'XS::Typemap'           => '0.12',
+            'arybase'               => '0.07',
+            'bignum'                => '0.37',
+            'constant'              => '1.29',
+            'fields'                => '2.17',
+            'inc::latest'           => '0.4202',
+            'threads'               => '1.90',
+            'threads::shared'       => '1.45',
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+            'CGI'                   => '3.64',
+            'CGI::Apache'           => '1.02',
+            'CGI::Carp'             => '3.64',
+            'CGI::Cookie'           => '1.31',
+            'CGI::Fast'             => '1.10',
+            'CGI::Pretty'           => '3.64',
+            'CGI::Push'             => '1.06',
+            'CGI::Switch'           => '1.02',
+            'CGI::Util'             => '3.64',
+            'CPAN::Meta'            => '2.133380',
+            'CPAN::Meta::Converter' => '2.133380',
+            'CPAN::Meta::Feature'   => '2.133380',
+            'CPAN::Meta::History'   => '2.133380',
+            'CPAN::Meta::Prereqs'   => '2.133380',
+            'CPAN::Meta::Spec'      => '2.133380',
+            'CPAN::Meta::Validator' => '2.133380',
+            'Config'                => '5.019007',
+            'Data::Dumper'          => '2.150',
+            'DynaLoader'            => '1.22',
+            'ExtUtils::Command::MM' => '6.84',
+            'ExtUtils::Liblist'     => '6.84',
+            'ExtUtils::Liblist::Kid'=> '6.84',
+            'ExtUtils::MM'          => '6.84',
+            'ExtUtils::MM_AIX'      => '6.84',
+            'ExtUtils::MM_Any'      => '6.84',
+            'ExtUtils::MM_BeOS'     => '6.84',
+            'ExtUtils::MM_Cygwin'   => '6.84',
+            'ExtUtils::MM_DOS'      => '6.84',
+            'ExtUtils::MM_Darwin'   => '6.84',
+            'ExtUtils::MM_MacOS'    => '6.84',
+            'ExtUtils::MM_NW5'      => '6.84',
+            'ExtUtils::MM_OS2'      => '6.84',
+            'ExtUtils::MM_QNX'      => '6.84',
+            'ExtUtils::MM_UWIN'     => '6.84',
+            'ExtUtils::MM_Unix'     => '6.84',
+            'ExtUtils::MM_VMS'      => '6.84',
+            'ExtUtils::MM_VOS'      => '6.84',
+            'ExtUtils::MM_Win32'    => '6.84',
+            'ExtUtils::MM_Win95'    => '6.84',
+            'ExtUtils::MY'          => '6.84',
+            'ExtUtils::MakeMaker'   => '6.84',
+            'ExtUtils::MakeMaker::Config'=> '6.84',
+            'ExtUtils::Mkbootstrap' => '6.84',
+            'ExtUtils::Mksymlists'  => '6.84',
+            'ExtUtils::testlib'     => '6.84',
+            'File::Fetch'           => '0.46',
+            'HTTP::Tiny'            => '0.039',
+            'Locale::Codes'         => '3.28',
+            'Locale::Codes::Constants'=> '3.28',
+            'Locale::Codes::Country'=> '3.28',
+            'Locale::Codes::Country_Codes'=> '3.28',
+            'Locale::Codes::Country_Retired'=> '3.28',
+            'Locale::Codes::Currency'=> '3.28',
+            'Locale::Codes::Currency_Codes'=> '3.28',
+            'Locale::Codes::Currency_Retired'=> '3.28',
+            'Locale::Codes::LangExt'=> '3.28',
+            'Locale::Codes::LangExt_Codes'=> '3.28',
+            'Locale::Codes::LangExt_Retired'=> '3.28',
+            'Locale::Codes::LangFam'=> '3.28',
+            'Locale::Codes::LangFam_Codes'=> '3.28',
+            'Locale::Codes::LangFam_Retired'=> '3.28',
+            'Locale::Codes::LangVar'=> '3.28',
+            'Locale::Codes::LangVar_Codes'=> '3.28',
+            'Locale::Codes::LangVar_Retired'=> '3.28',
+            'Locale::Codes::Language'=> '3.28',
+            'Locale::Codes::Language_Codes'=> '3.28',
+            'Locale::Codes::Language_Retired'=> '3.28',
+            'Locale::Codes::Script' => '3.28',
+            'Locale::Codes::Script_Codes'=> '3.28',
+            'Locale::Codes::Script_Retired'=> '3.28',
+            'Locale::Country'       => '3.28',
+            'Locale::Currency'      => '3.28',
+            'Locale::Language'      => '3.28',
+            'Locale::Script'        => '3.28',
+            'Module::Build'         => '0.4203',
+            'Module::Build::Base'   => '0.4203',
+            'Module::Build::Compat' => '0.4203',
+            'Module::Build::Config' => '0.4203',
+            'Module::Build::Cookbook'=> '0.4203',
+            'Module::Build::Dumper' => '0.4203',
+            'Module::Build::ModuleInfo'=> '0.4203',
+            'Module::Build::Notes'  => '0.4203',
+            'Module::Build::PPMMaker'=> '0.4203',
+            'Module::Build::Platform::Default'=> '0.4203',
+            'Module::Build::Platform::MacOS'=> '0.4203',
+            'Module::Build::Platform::Unix'=> '0.4203',
+            'Module::Build::Platform::VMS'=> '0.4203',
+            'Module::Build::Platform::VOS'=> '0.4203',
+            'Module::Build::Platform::Windows'=> '0.4203',
+            'Module::Build::Platform::aix'=> '0.4203',
+            'Module::Build::Platform::cygwin'=> '0.4203',
+            'Module::Build::Platform::darwin'=> '0.4203',
+            'Module::Build::Platform::os2'=> '0.4203',
+            'Module::Build::PodParser'=> '0.4203',
+            'Module::CoreList'      => '3.02',
+            'Module::CoreList::TieHashDelta'=> '3.02',
+            'Module::CoreList::Utils'=> '3.02',
+            'POSIX'                 => '1.37',
+            'PerlIO::encoding'      => '0.17',
+            'PerlIO::via'           => '0.14',
+            'SDBM_File'             => '1.11',
+            'Storable'              => '2.48',
+            'Time::Piece'           => '1.24',
+            'Time::Seconds'         => '1.24',
+            'Unicode::Collate'      => '1.04',
+            'Win32'                 => '0.48',
+            'XS::APItest'           => '0.58',
+            'base'                  => '2.20',
+            'constant'              => '1.30',
+            'inc::latest'           => '0.4203',
+            'threads'               => '1.91',
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+            'Config'                => '5.019008',
+            'DynaLoader'            => '1.24',
+            'Encode'                => '2.57',
+            'Errno'                 => '1.20_02',
+            'ExtUtils::CBuilder'    => '0.280213',
+            'ExtUtils::CBuilder::Base'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280213',
+            'ExtUtils::Command::MM' => '6.86',
+            'ExtUtils::Liblist'     => '6.86',
+            'ExtUtils::Liblist::Kid'=> '6.86',
+            'ExtUtils::MM'          => '6.86',
+            'ExtUtils::MM_AIX'      => '6.86',
+            'ExtUtils::MM_Any'      => '6.86',
+            'ExtUtils::MM_BeOS'     => '6.86',
+            'ExtUtils::MM_Cygwin'   => '6.86',
+            'ExtUtils::MM_DOS'      => '6.86',
+            'ExtUtils::MM_Darwin'   => '6.86',
+            'ExtUtils::MM_MacOS'    => '6.86',
+            'ExtUtils::MM_NW5'      => '6.86',
+            'ExtUtils::MM_OS2'      => '6.86',
+            'ExtUtils::MM_QNX'      => '6.86',
+            'ExtUtils::MM_UWIN'     => '6.86',
+            'ExtUtils::MM_Unix'     => '6.86',
+            'ExtUtils::MM_VMS'      => '6.86',
+            'ExtUtils::MM_VOS'      => '6.86',
+            'ExtUtils::MM_Win32'    => '6.86',
+            'ExtUtils::MM_Win95'    => '6.86',
+            'ExtUtils::MY'          => '6.86',
+            'ExtUtils::MakeMaker'   => '6.86',
+            'ExtUtils::MakeMaker::Config'=> '6.86',
+            'ExtUtils::Mkbootstrap' => '6.86',
+            'ExtUtils::Mksymlists'  => '6.86',
+            'ExtUtils::testlib'     => '6.86',
+            'File::Copy'            => '2.29',
+            'Hash::Util::FieldHash' => '1.14',
+            'IO::Socket::IP'        => '0.26',
+            'IO::Socket::UNIX'      => '1.26',
+            'List::Util'            => '1.36',
+            'List::Util::XS'        => '1.36',
+            'Module::Build'         => '0.4204',
+            'Module::Build::Base'   => '0.4204',
+            'Module::Build::Compat' => '0.4204',
+            'Module::Build::Config' => '0.4204',
+            'Module::Build::Cookbook'=> '0.4204',
+            'Module::Build::Dumper' => '0.4204',
+            'Module::Build::ModuleInfo'=> '0.4204',
+            'Module::Build::Notes'  => '0.4204',
+            'Module::Build::PPMMaker'=> '0.4204',
+            'Module::Build::Platform::Default'=> '0.4204',
+            'Module::Build::Platform::MacOS'=> '0.4204',
+            'Module::Build::Platform::Unix'=> '0.4204',
+            'Module::Build::Platform::VMS'=> '0.4204',
+            'Module::Build::Platform::VOS'=> '0.4204',
+            'Module::Build::Platform::Windows'=> '0.4204',
+            'Module::Build::Platform::aix'=> '0.4204',
+            'Module::Build::Platform::cygwin'=> '0.4204',
+            'Module::Build::Platform::darwin'=> '0.4204',
+            'Module::Build::Platform::os2'=> '0.4204',
+            'Module::Build::PodParser'=> '0.4204',
+            'Module::CoreList'      => '3.04',
+            'Module::CoreList::TieHashDelta'=> '3.04',
+            'Module::CoreList::Utils'=> '3.04',
+            'Module::Load'          => '0.28',
+            'Module::Load::Conditional'=> '0.60',
+            'Net::Config'           => '1.13',
+            'Net::FTP::A'           => '1.19',
+            'POSIX'                 => '1.38_01',
+            'Perl::OSType'          => '1.007',
+            'PerlIO::encoding'      => '0.18',
+            'Pod::Perldoc'          => '3.21',
+            'Pod::Perldoc::BaseTo'  => '3.21',
+            'Pod::Perldoc::GetOptsOO'=> '3.21',
+            'Pod::Perldoc::ToANSI'  => '3.21',
+            'Pod::Perldoc::ToChecker'=> '3.21',
+            'Pod::Perldoc::ToMan'   => '3.21',
+            'Pod::Perldoc::ToNroff' => '3.21',
+            'Pod::Perldoc::ToPod'   => '3.21',
+            'Pod::Perldoc::ToRtf'   => '3.21',
+            'Pod::Perldoc::ToTerm'  => '3.21',
+            'Pod::Perldoc::ToText'  => '3.21',
+            'Pod::Perldoc::ToTk'    => '3.21',
+            'Pod::Perldoc::ToXml'   => '3.21',
+            'Scalar::Util'          => '1.36',
+            'Time::Piece'           => '1.27',
+            'Time::Seconds'         => '1.27',
+            'Unicode::UCD'          => '0.57',
+            'XS::APItest'           => '0.59',
+            'XSLoader'              => '0.17',
+            'base'                  => '2.21',
+            'constant'              => '1.31',
+            'inc::latest'           => '0.4204',
+            'threads::shared'       => '1.46',
+            'version'               => '0.9907',
+            'version::regex'        => '0.9907',
+            'version::vpp'          => '0.9907',
+            'warnings'              => '1.21',
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+            'B'                     => '1.48',
+            'B::Concise'            => '0.992',
+            'B::Deparse'            => '1.25',
+            'CGI'                   => '3.65',
+            'CPAN::Meta::YAML'      => '0.011',
+            'Compress::Raw::Bzip2'  => '2.064',
+            'Compress::Raw::Zlib'   => '2.065',
+            'Compress::Zlib'        => '2.064',
+            'Config'                => '5.019009',
+            'Config::Perl::V'       => '0.20',
+            'Cwd'                   => '3.47',
+            'Devel::Peek'           => '1.16',
+            'Digest::SHA'           => '5.87',
+            'DynaLoader'            => '1.25',
+            'English'               => '1.09',
+            'ExtUtils::CBuilder'    => '0.280216',
+            'ExtUtils::CBuilder::Base'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280216',
+            'ExtUtils::Command::MM' => '6.88',
+            'ExtUtils::Embed'       => '1.32',
+            'ExtUtils::Install'     => '1.62',
+            'ExtUtils::Installed'   => '1.999004',
+            'ExtUtils::Liblist'     => '6.88',
+            'ExtUtils::Liblist::Kid'=> '6.88',
+            'ExtUtils::MM'          => '6.88',
+            'ExtUtils::MM_AIX'      => '6.88',
+            'ExtUtils::MM_Any'      => '6.88',
+            'ExtUtils::MM_BeOS'     => '6.88',
+            'ExtUtils::MM_Cygwin'   => '6.88',
+            'ExtUtils::MM_DOS'      => '6.88',
+            'ExtUtils::MM_Darwin'   => '6.88',
+            'ExtUtils::MM_MacOS'    => '6.88',
+            'ExtUtils::MM_NW5'      => '6.88',
+            'ExtUtils::MM_OS2'      => '6.88',
+            'ExtUtils::MM_QNX'      => '6.88',
+            'ExtUtils::MM_UWIN'     => '6.88',
+            'ExtUtils::MM_Unix'     => '6.88',
+            'ExtUtils::MM_VMS'      => '6.88',
+            'ExtUtils::MM_VOS'      => '6.88',
+            'ExtUtils::MM_Win32'    => '6.88',
+            'ExtUtils::MM_Win95'    => '6.88',
+            'ExtUtils::MY'          => '6.88',
+            'ExtUtils::MakeMaker'   => '6.88',
+            'ExtUtils::MakeMaker::Config'=> '6.88',
+            'ExtUtils::Mkbootstrap' => '6.88',
+            'ExtUtils::Mksymlists'  => '6.88',
+            'ExtUtils::Packlist'    => '1.47',
+            'ExtUtils::testlib'     => '6.88',
+            'Fatal'                 => '2.23',
+            'File::Fetch'           => '0.48',
+            'File::Spec'            => '3.47',
+            'File::Spec::Cygwin'    => '3.47',
+            'File::Spec::Epoc'      => '3.47',
+            'File::Spec::Functions' => '3.47',
+            'File::Spec::Mac'       => '3.47',
+            'File::Spec::OS2'       => '3.47',
+            'File::Spec::Unix'      => '3.47',
+            'File::Spec::VMS'       => '3.47',
+            'File::Spec::Win32'     => '3.47',
+            'HTTP::Tiny'            => '0.042',
+            'IO::Compress::Adapter::Bzip2'=> '2.064',
+            'IO::Compress::Adapter::Deflate'=> '2.064',
+            'IO::Compress::Adapter::Identity'=> '2.064',
+            'IO::Compress::Base'    => '2.064',
+            'IO::Compress::Base::Common'=> '2.064',
+            'IO::Compress::Bzip2'   => '2.064',
+            'IO::Compress::Deflate' => '2.064',
+            'IO::Compress::Gzip'    => '2.064',
+            'IO::Compress::Gzip::Constants'=> '2.064',
+            'IO::Compress::RawDeflate'=> '2.064',
+            'IO::Compress::Zip'     => '2.064',
+            'IO::Compress::Zip::Constants'=> '2.064',
+            'IO::Compress::Zlib::Constants'=> '2.064',
+            'IO::Compress::Zlib::Extra'=> '2.064',
+            'IO::Socket::INET'      => '1.35',
+            'IO::Socket::IP'        => '0.28',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.064',
+            'IO::Uncompress::Adapter::Identity'=> '2.064',
+            'IO::Uncompress::Adapter::Inflate'=> '2.064',
+            'IO::Uncompress::AnyInflate'=> '2.064',
+            'IO::Uncompress::AnyUncompress'=> '2.064',
+            'IO::Uncompress::Base'  => '2.064',
+            'IO::Uncompress::Bunzip2'=> '2.064',
+            'IO::Uncompress::Gunzip'=> '2.064',
+            'IO::Uncompress::Inflate'=> '2.064',
+            'IO::Uncompress::RawInflate'=> '2.064',
+            'IO::Uncompress::Unzip' => '2.064',
+            'IPC::Cmd'              => '0.92',
+            'List::Util'            => '1.38',
+            'List::Util::XS'        => '1.38',
+            'Locale::Codes'         => '3.29',
+            'Locale::Codes::Constants'=> '3.29',
+            'Locale::Codes::Country'=> '3.29',
+            'Locale::Codes::Country_Codes'=> '3.29',
+            'Locale::Codes::Country_Retired'=> '3.29',
+            'Locale::Codes::Currency'=> '3.29',
+            'Locale::Codes::Currency_Codes'=> '3.29',
+            'Locale::Codes::Currency_Retired'=> '3.29',
+            'Locale::Codes::LangExt'=> '3.29',
+            'Locale::Codes::LangExt_Codes'=> '3.29',
+            'Locale::Codes::LangExt_Retired'=> '3.29',
+            'Locale::Codes::LangFam'=> '3.29',
+            'Locale::Codes::LangFam_Codes'=> '3.29',
+            'Locale::Codes::LangFam_Retired'=> '3.29',
+            'Locale::Codes::LangVar'=> '3.29',
+            'Locale::Codes::LangVar_Codes'=> '3.29',
+            'Locale::Codes::LangVar_Retired'=> '3.29',
+            'Locale::Codes::Language'=> '3.29',
+            'Locale::Codes::Language_Codes'=> '3.29',
+            'Locale::Codes::Language_Retired'=> '3.29',
+            'Locale::Codes::Script' => '3.29',
+            'Locale::Codes::Script_Codes'=> '3.29',
+            'Locale::Codes::Script_Retired'=> '3.29',
+            'Locale::Country'       => '3.29',
+            'Locale::Currency'      => '3.29',
+            'Locale::Language'      => '3.29',
+            'Locale::Script'        => '3.29',
+            'Module::Build'         => '0.4205',
+            'Module::Build::Base'   => '0.4205',
+            'Module::Build::Compat' => '0.4205',
+            'Module::Build::Config' => '0.4205',
+            'Module::Build::Cookbook'=> '0.4205',
+            'Module::Build::Dumper' => '0.4205',
+            'Module::Build::ModuleInfo'=> '0.4205',
+            'Module::Build::Notes'  => '0.4205',
+            'Module::Build::PPMMaker'=> '0.4205',
+            'Module::Build::Platform::Default'=> '0.4205',
+            'Module::Build::Platform::MacOS'=> '0.4205',
+            'Module::Build::Platform::Unix'=> '0.4205',
+            'Module::Build::Platform::VMS'=> '0.4205',
+            'Module::Build::Platform::VOS'=> '0.4205',
+            'Module::Build::Platform::Windows'=> '0.4205',
+            'Module::Build::Platform::aix'=> '0.4205',
+            'Module::Build::Platform::cygwin'=> '0.4205',
+            'Module::Build::Platform::darwin'=> '0.4205',
+            'Module::Build::Platform::os2'=> '0.4205',
+            'Module::Build::PodParser'=> '0.4205',
+            'Module::CoreList'      => '3.06',
+            'Module::CoreList::TieHashDelta'=> '3.06',
+            'Module::CoreList::Utils'=> '3.06',
+            'Module::Load'          => '0.30',
+            'Module::Load::Conditional'=> '0.62',
+            'Net::Domain'           => '2.23',
+            'Net::FTP'              => '2.79',
+            'Net::NNTP'             => '2.26',
+            'Net::POP3'             => '2.31',
+            'Net::Ping'             => '2.43',
+            'Net::SMTP'             => '2.33',
+            'POSIX'                 => '1.38_02',
+            'Parse::CPAN::Meta'     => '1.4413',
+            'Pod::Escapes'          => '1.06',
+            'Pod::Find'             => '1.62',
+            'Pod::InputObjects'     => '1.62',
+            'Pod::ParseUtils'       => '1.62',
+            'Pod::Parser'           => '1.62',
+            'Pod::Select'           => '1.62',
+            'Scalar::Util'          => '1.38',
+            'autodie'               => '2.23',
+            'autodie::exception'    => '2.23',
+            'autodie::exception::system'=> '2.23',
+            'autodie::hints'        => '2.23',
+            'autodie::skip'         => '2.23',
+            'diagnostics'           => '1.34',
+            'feature'               => '1.35',
+            'inc::latest'           => '0.4205',
+            'locale'                => '1.03',
+            'mro'                   => '1.15',
+            'threads'               => '1.92',
+            'version'               => '0.9908',
+            'version::regex'        => '0.9908',
+            'version::vpp'          => '0.9908',
+            'warnings'              => '1.22',
+        },
+        removed => {
+        }
+    },
+    5.01901 => {
+        delta_from => 5.019009,
+        changed => {
+            'App::Cpan'             => '1.62',
+            'Attribute::Handlers'   => '0.96',
+            'B::Deparse'            => '1.26',
+            'CPAN'                  => '2.04',
+            'CPAN::Bundle'          => '5.5001',
+            'CPAN::Complete'        => '5.5001',
+            'CPAN::Distribution'    => '2.01',
+            'CPAN::Distroprefs'     => '6.0001',
+            'CPAN::FirstTime'       => '5.5305',
+            'CPAN::Meta'            => '2.140640',
+            'CPAN::Meta::Converter' => '2.140640',
+            'CPAN::Meta::Feature'   => '2.140640',
+            'CPAN::Meta::History'   => '2.140640',
+            'CPAN::Meta::Prereqs'   => '2.140640',
+            'CPAN::Meta::Spec'      => '2.140640',
+            'CPAN::Meta::Validator' => '2.140640',
+            'CPAN::Meta::YAML'      => '0.012',
+            'CPAN::Queue'           => '5.5002',
+            'CPAN::Shell'           => '5.5003',
+            'CPAN::Tarzip'          => '5.5012',
+            'CPAN::Version'         => '5.5003',
+            'Carp'                  => '1.33',
+            'Carp::Heavy'           => '1.33',
+            'Config'                => '5.019010',
+            'Data::Dumper'          => '2.151',
+            'Devel::PPPort'         => '3.22',
+            'Digest::SHA'           => '5.88',
+            'ExtUtils::Command::MM' => '6.92',
+            'ExtUtils::Install'     => '1.63',
+            'ExtUtils::Installed'   => '1.999005',
+            'ExtUtils::Liblist'     => '6.92',
+            'ExtUtils::Liblist::Kid'=> '6.92',
+            'ExtUtils::MM'          => '6.92',
+            'ExtUtils::MM_AIX'      => '6.92',
+            'ExtUtils::MM_Any'      => '6.92',
+            'ExtUtils::MM_BeOS'     => '6.92',
+            'ExtUtils::MM_Cygwin'   => '6.92',
+            'ExtUtils::MM_DOS'      => '6.92',
+            'ExtUtils::MM_Darwin'   => '6.92',
+            'ExtUtils::MM_MacOS'    => '6.92',
+            'ExtUtils::MM_NW5'      => '6.92',
+            'ExtUtils::MM_OS2'      => '6.92',
+            'ExtUtils::MM_QNX'      => '6.92',
+            'ExtUtils::MM_UWIN'     => '6.92',
+            'ExtUtils::MM_Unix'     => '6.92',
+            'ExtUtils::MM_VMS'      => '6.92',
+            'ExtUtils::MM_VOS'      => '6.92',
+            'ExtUtils::MM_Win32'    => '6.92',
+            'ExtUtils::MM_Win95'    => '6.92',
+            'ExtUtils::MY'          => '6.92',
+            'ExtUtils::MakeMaker'   => '6.92',
+            'ExtUtils::MakeMaker::Config'=> '6.92',
+            'ExtUtils::Mkbootstrap' => '6.92',
+            'ExtUtils::Mksymlists'  => '6.92',
+            'ExtUtils::Packlist'    => '1.48',
+            'ExtUtils::ParseXS'     => '3.24',
+            'ExtUtils::ParseXS::Constants'=> '3.24',
+            'ExtUtils::ParseXS::CountLines'=> '3.24',
+            'ExtUtils::ParseXS::Eval'=> '3.24',
+            'ExtUtils::ParseXS::Utilities'=> '3.24',
+            'ExtUtils::Typemaps'    => '3.24',
+            'ExtUtils::Typemaps::Cmd'=> '3.24',
+            'ExtUtils::Typemaps::InputMap'=> '3.24',
+            'ExtUtils::Typemaps::OutputMap'=> '3.24',
+            'ExtUtils::Typemaps::Type'=> '3.24',
+            'ExtUtils::testlib'     => '6.92',
+            'File::Find'            => '1.27',
+            'Filter::Simple'        => '0.91',
+            'HTTP::Tiny'            => '0.043',
+            'Hash::Util::FieldHash' => '1.15',
+            'IO'                    => '1.31',
+            'IO::Socket::IP'        => '0.29',
+            'Locale::Codes'         => '3.30',
+            'Locale::Codes::Constants'=> '3.30',
+            'Locale::Codes::Country'=> '3.30',
+            'Locale::Codes::Country_Codes'=> '3.30',
+            'Locale::Codes::Country_Retired'=> '3.30',
+            'Locale::Codes::Currency'=> '3.30',
+            'Locale::Codes::Currency_Codes'=> '3.30',
+            'Locale::Codes::Currency_Retired'=> '3.30',
+            'Locale::Codes::LangExt'=> '3.30',
+            'Locale::Codes::LangExt_Codes'=> '3.30',
+            'Locale::Codes::LangExt_Retired'=> '3.30',
+            'Locale::Codes::LangFam'=> '3.30',
+            'Locale::Codes::LangFam_Codes'=> '3.30',
+            'Locale::Codes::LangFam_Retired'=> '3.30',
+            'Locale::Codes::LangVar'=> '3.30',
+            'Locale::Codes::LangVar_Codes'=> '3.30',
+            'Locale::Codes::LangVar_Retired'=> '3.30',
+            'Locale::Codes::Language'=> '3.30',
+            'Locale::Codes::Language_Codes'=> '3.30',
+            'Locale::Codes::Language_Retired'=> '3.30',
+            'Locale::Codes::Script' => '3.30',
+            'Locale::Codes::Script_Codes'=> '3.30',
+            'Locale::Codes::Script_Retired'=> '3.30',
+            'Locale::Country'       => '3.30',
+            'Locale::Currency'      => '3.30',
+            'Locale::Language'      => '3.30',
+            'Locale::Script'        => '3.30',
+            'Module::CoreList'      => '3.09',
+            'Module::CoreList::TieHashDelta'=> '3.09',
+            'Module::CoreList::Utils'=> '3.09',
+            'Module::Load'          => '0.32',
+            'POSIX'                 => '1.38_03',
+            'Parse::CPAN::Meta'     => '1.4414',
+            'Pod::Perldoc'          => '3.23',
+            'Pod::Perldoc::BaseTo'  => '3.23',
+            'Pod::Perldoc::GetOptsOO'=> '3.23',
+            'Pod::Perldoc::ToANSI'  => '3.23',
+            'Pod::Perldoc::ToChecker'=> '3.23',
+            'Pod::Perldoc::ToMan'   => '3.23',
+            'Pod::Perldoc::ToNroff' => '3.23',
+            'Pod::Perldoc::ToPod'   => '3.23',
+            'Pod::Perldoc::ToRtf'   => '3.23',
+            'Pod::Perldoc::ToTerm'  => '3.23',
+            'Pod::Perldoc::ToText'  => '3.23',
+            'Pod::Perldoc::ToTk'    => '3.23',
+            'Pod::Perldoc::ToXml'   => '3.23',
+            'Thread::Queue'         => '3.05',
+            'XS::APItest'           => '0.60',
+            'XS::Typemap'           => '0.13',
+            'autouse'               => '1.08',
+            'base'                  => '2.22',
+            'charnames'             => '1.40',
+            'feature'               => '1.36',
+            'mro'                   => '1.16',
+            'threads'               => '1.93',
+            'warnings'              => '1.23',
+            'warnings::register'    => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.01901,
+        changed => {
+            'CPAN'                  => '2.05',
+            'CPAN::Distribution'    => '2.02',
+            'CPAN::FirstTime'       => '5.5306',
+            'CPAN::Shell'           => '5.5004',
+            'Carp'                  => '1.3301',
+            'Carp::Heavy'           => '1.3301',
+            'Config'                => '5.019011',
+            'ExtUtils::Command::MM' => '6.94',
+            'ExtUtils::Install'     => '1.67',
+            'ExtUtils::Liblist'     => '6.94',
+            'ExtUtils::Liblist::Kid'=> '6.94',
+            'ExtUtils::MM'          => '6.94',
+            'ExtUtils::MM_AIX'      => '6.94',
+            'ExtUtils::MM_Any'      => '6.94',
+            'ExtUtils::MM_BeOS'     => '6.94',
+            'ExtUtils::MM_Cygwin'   => '6.94',
+            'ExtUtils::MM_DOS'      => '6.94',
+            'ExtUtils::MM_Darwin'   => '6.94',
+            'ExtUtils::MM_MacOS'    => '6.94',
+            'ExtUtils::MM_NW5'      => '6.94',
+            'ExtUtils::MM_OS2'      => '6.94',
+            'ExtUtils::MM_QNX'      => '6.94',
+            'ExtUtils::MM_UWIN'     => '6.94',
+            'ExtUtils::MM_Unix'     => '6.94',
+            'ExtUtils::MM_VMS'      => '6.94',
+            'ExtUtils::MM_VOS'      => '6.94',
+            'ExtUtils::MM_Win32'    => '6.94',
+            'ExtUtils::MM_Win95'    => '6.94',
+            'ExtUtils::MY'          => '6.94',
+            'ExtUtils::MakeMaker'   => '6.94',
+            'ExtUtils::MakeMaker::Config'=> '6.94',
+            'ExtUtils::Mkbootstrap' => '6.94',
+            'ExtUtils::Mksymlists'  => '6.94',
+            'ExtUtils::testlib'     => '6.94',
+            'Module::CoreList'      => '3.10',
+            'Module::CoreList::TieHashDelta'=> '3.10',
+            'Module::CoreList::Utils'=> '3.10',
+            'PerlIO'                => '1.09',
+            'Storable'              => '2.49',
+            'Win32'                 => '0.49',
+            'experimental'          => '0.007',
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+            'Config'                => '5.02',
+            'Devel::PPPort'         => '3.21',
+            'Encode'                => '2.60',
+            'Errno'                 => '1.20_03',
+            'ExtUtils::Command::MM' => '6.98',
+            'ExtUtils::Liblist'     => '6.98',
+            'ExtUtils::Liblist::Kid'=> '6.98',
+            'ExtUtils::MM'          => '6.98',
+            'ExtUtils::MM_AIX'      => '6.98',
+            'ExtUtils::MM_Any'      => '6.98',
+            'ExtUtils::MM_BeOS'     => '6.98',
+            'ExtUtils::MM_Cygwin'   => '6.98',
+            'ExtUtils::MM_DOS'      => '6.98',
+            'ExtUtils::MM_Darwin'   => '6.98',
+            'ExtUtils::MM_MacOS'    => '6.98',
+            'ExtUtils::MM_NW5'      => '6.98',
+            'ExtUtils::MM_OS2'      => '6.98',
+            'ExtUtils::MM_QNX'      => '6.98',
+            'ExtUtils::MM_UWIN'     => '6.98',
+            'ExtUtils::MM_Unix'     => '6.98',
+            'ExtUtils::MM_VMS'      => '6.98',
+            'ExtUtils::MM_VOS'      => '6.98',
+            'ExtUtils::MM_Win32'    => '6.98',
+            'ExtUtils::MM_Win95'    => '6.98',
+            'ExtUtils::MY'          => '6.98',
+            'ExtUtils::MakeMaker'   => '6.98',
+            'ExtUtils::MakeMaker::Config'=> '6.98',
+            'ExtUtils::Miniperl'    => '1.01',
+            'ExtUtils::Mkbootstrap' => '6.98',
+            'ExtUtils::Mksymlists'  => '6.98',
+            'ExtUtils::testlib'     => '6.98',
+            'Pod::Functions::Functions'=> '1.08',
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+            'Module::CoreList'      => '5.021001',
+            'Module::CoreList::TieHashDelta'=> '5.021001',
+            'Module::CoreList::Utils'=> '5.021001',
+            'feature'               => '1.37',
+        },
+        removed => {
+            'CGI'                   => 1,
+            'CGI::Apache'           => 1,
+            'CGI::Carp'             => 1,
+            'CGI::Cookie'           => 1,
+            'CGI::Fast'             => 1,
+            'CGI::Pretty'           => 1,
+            'CGI::Push'             => 1,
+            'CGI::Switch'           => 1,
+            'CGI::Util'             => 1,
+            'Module::Build'         => 1,
+            'Module::Build::Base'   => 1,
+            'Module::Build::Compat' => 1,
+            'Module::Build::Config' => 1,
+            'Module::Build::ConfigData'=> 1,
+            'Module::Build::Cookbook'=> 1,
+            'Module::Build::Dumper' => 1,
+            'Module::Build::ModuleInfo'=> 1,
+            'Module::Build::Notes'  => 1,
+            'Module::Build::PPMMaker'=> 1,
+            'Module::Build::Platform::Default'=> 1,
+            'Module::Build::Platform::MacOS'=> 1,
+            'Module::Build::Platform::Unix'=> 1,
+            'Module::Build::Platform::VMS'=> 1,
+            'Module::Build::Platform::VOS'=> 1,
+            'Module::Build::Platform::Windows'=> 1,
+            'Module::Build::Platform::aix'=> 1,
+            'Module::Build::Platform::cygwin'=> 1,
+            'Module::Build::Platform::darwin'=> 1,
+            'Module::Build::Platform::os2'=> 1,
+            'Module::Build::PodParser'=> 1,
+            'Module::Build::Version'=> 1,
+            'Module::Build::YAML'   => 1,
+            'Package::Constants'    => 1,
+            'inc::latest'           => 1,
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+            'App::Prove'            => '3.32',
+            'App::Prove::State'     => '3.32',
+            'App::Prove::State::Result'=> '3.32',
+            'App::Prove::State::Result::Test'=> '3.32',
+            'Archive::Tar'          => '2.00',
+            'Archive::Tar::Constant'=> '2.00',
+            'Archive::Tar::File'    => '2.00',
+            'B'                     => '1.49',
+            'B::Deparse'            => '1.27',
+            'Benchmark'             => '1.19',
+            'CPAN::Meta'            => '2.141520',
+            'CPAN::Meta::Converter' => '2.141520',
+            'CPAN::Meta::Feature'   => '2.141520',
+            'CPAN::Meta::History'   => '2.141520',
+            'CPAN::Meta::Prereqs'   => '2.141520',
+            'CPAN::Meta::Spec'      => '2.141520',
+            'CPAN::Meta::Validator' => '2.141520',
+            'Carp'                  => '1.34',
+            'Carp::Heavy'           => '1.34',
+            'Config'                => '5.021001',
+            'Cwd'                   => '3.48',
+            'Data::Dumper'          => '2.152',
+            'Devel::PPPort'         => '3.24',
+            'Devel::Peek'           => '1.17',
+            'Digest::SHA'           => '5.92',
+            'DynaLoader'            => '1.26',
+            'Encode'                => '2.62',
+            'Errno'                 => '1.20_04',
+            'Exporter'              => '5.71',
+            'Exporter::Heavy'       => '5.71',
+            'ExtUtils::Install'     => '1.68',
+            'ExtUtils::Miniperl'    => '1.02',
+            'ExtUtils::ParseXS'     => '3.25',
+            'ExtUtils::ParseXS::Constants'=> '3.25',
+            'ExtUtils::ParseXS::CountLines'=> '3.25',
+            'ExtUtils::ParseXS::Eval'=> '3.25',
+            'ExtUtils::ParseXS::Utilities'=> '3.25',
+            'ExtUtils::Typemaps'    => '3.25',
+            'ExtUtils::Typemaps::Cmd'=> '3.25',
+            'ExtUtils::Typemaps::InputMap'=> '3.25',
+            'ExtUtils::Typemaps::OutputMap'=> '3.25',
+            'ExtUtils::Typemaps::Type'=> '3.25',
+            'Fatal'                 => '2.25',
+            'File::Spec'            => '3.48',
+            'File::Spec::Cygwin'    => '3.48',
+            'File::Spec::Epoc'      => '3.48',
+            'File::Spec::Functions' => '3.48',
+            'File::Spec::Mac'       => '3.48',
+            'File::Spec::OS2'       => '3.48',
+            'File::Spec::Unix'      => '3.48',
+            'File::Spec::VMS'       => '3.48',
+            'File::Spec::Win32'     => '3.48',
+            'Hash::Util'            => '0.17',
+            'IO'                    => '1.32',
+            'List::Util'            => '1.39',
+            'List::Util::XS'        => '1.39',
+            'Locale::Codes'         => '3.31',
+            'Locale::Codes::Constants'=> '3.31',
+            'Locale::Codes::Country'=> '3.31',
+            'Locale::Codes::Country_Codes'=> '3.31',
+            'Locale::Codes::Country_Retired'=> '3.31',
+            'Locale::Codes::Currency'=> '3.31',
+            'Locale::Codes::Currency_Codes'=> '3.31',
+            'Locale::Codes::Currency_Retired'=> '3.31',
+            'Locale::Codes::LangExt'=> '3.31',
+            'Locale::Codes::LangExt_Codes'=> '3.31',
+            'Locale::Codes::LangExt_Retired'=> '3.31',
+            'Locale::Codes::LangFam'=> '3.31',
+            'Locale::Codes::LangFam_Codes'=> '3.31',
+            'Locale::Codes::LangFam_Retired'=> '3.31',
+            'Locale::Codes::LangVar'=> '3.31',
+            'Locale::Codes::LangVar_Codes'=> '3.31',
+            'Locale::Codes::LangVar_Retired'=> '3.31',
+            'Locale::Codes::Language'=> '3.31',
+            'Locale::Codes::Language_Codes'=> '3.31',
+            'Locale::Codes::Language_Retired'=> '3.31',
+            'Locale::Codes::Script' => '3.31',
+            'Locale::Codes::Script_Codes'=> '3.31',
+            'Locale::Codes::Script_Retired'=> '3.31',
+            'Locale::Country'       => '3.31',
+            'Locale::Currency'      => '3.31',
+            'Locale::Language'      => '3.31',
+            'Locale::Script'        => '3.31',
+            'Math::BigFloat'        => '1.9994',
+            'Math::BigInt'          => '1.9995',
+            'Math::BigInt::Calc'    => '1.9994',
+            'Math::BigInt::CalcEmu' => '1.9994',
+            'Math::BigRat'          => '0.2608',
+            'Module::CoreList'      => '5.021001_01',
+            'Module::CoreList::TieHashDelta'=> '5.021001_01',
+            'Module::CoreList::Utils'=> '5.021001_01',
+            'Module::Metadata'      => '1.000024',
+            'NDBM_File'             => '1.13',
+            'Net::Config'           => '1.14',
+            'Net::SMTP'             => '2.34',
+            'Net::Time'             => '2.11',
+            'OS2::Process'          => '1.10',
+            'POSIX'                 => '1.40',
+            'PerlIO::encoding'      => '0.19',
+            'PerlIO::mmap'          => '0.013',
+            'PerlIO::scalar'        => '0.19',
+            'PerlIO::via'           => '0.15',
+            'Pod::Html'             => '1.22',
+            'Scalar::Util'          => '1.39',
+            'SelfLoader'            => '1.22',
+            'Socket'                => '2.014',
+            'Storable'              => '2.51',
+            'TAP::Base'             => '3.32',
+            'TAP::Formatter::Base'  => '3.32',
+            'TAP::Formatter::Color' => '3.32',
+            'TAP::Formatter::Console'=> '3.32',
+            'TAP::Formatter::Console::ParallelSession'=> '3.32',
+            'TAP::Formatter::Console::Session'=> '3.32',
+            'TAP::Formatter::File'  => '3.32',
+            'TAP::Formatter::File::Session'=> '3.32',
+            'TAP::Formatter::Session'=> '3.32',
+            'TAP::Harness'          => '3.32',
+            'TAP::Harness::Env'     => '3.32',
+            'TAP::Object'           => '3.32',
+            'TAP::Parser'           => '3.32',
+            'TAP::Parser::Aggregator'=> '3.32',
+            'TAP::Parser::Grammar'  => '3.32',
+            'TAP::Parser::Iterator' => '3.32',
+            'TAP::Parser::Iterator::Array'=> '3.32',
+            'TAP::Parser::Iterator::Process'=> '3.32',
+            'TAP::Parser::Iterator::Stream'=> '3.32',
+            'TAP::Parser::IteratorFactory'=> '3.32',
+            'TAP::Parser::Multiplexer'=> '3.32',
+            'TAP::Parser::Result'   => '3.32',
+            'TAP::Parser::Result::Bailout'=> '3.32',
+            'TAP::Parser::Result::Comment'=> '3.32',
+            'TAP::Parser::Result::Plan'=> '3.32',
+            'TAP::Parser::Result::Pragma'=> '3.32',
+            'TAP::Parser::Result::Test'=> '3.32',
+            'TAP::Parser::Result::Unknown'=> '3.32',
+            'TAP::Parser::Result::Version'=> '3.32',
+            'TAP::Parser::Result::YAML'=> '3.32',
+            'TAP::Parser::ResultFactory'=> '3.32',
+            'TAP::Parser::Scheduler'=> '3.32',
+            'TAP::Parser::Scheduler::Job'=> '3.32',
+            'TAP::Parser::Scheduler::Spinner'=> '3.32',
+            'TAP::Parser::Source'   => '3.32',
+            'TAP::Parser::SourceHandler'=> '3.32',
+            'TAP::Parser::SourceHandler::Executable'=> '3.32',
+            'TAP::Parser::SourceHandler::File'=> '3.32',
+            'TAP::Parser::SourceHandler::Handle'=> '3.32',
+            'TAP::Parser::SourceHandler::Perl'=> '3.32',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.32',
+            'TAP::Parser::YAMLish::Reader'=> '3.32',
+            'TAP::Parser::YAMLish::Writer'=> '3.32',
+            'Term::ANSIColor'       => '4.03',
+            'Test::Builder'         => '1.001003',
+            'Test::Builder::Module' => '1.001003',
+            'Test::Builder::Tester' => '1.23_003',
+            'Test::Harness'         => '3.32',
+            'Test::More'            => '1.001003',
+            'Test::Simple'          => '1.001003',
+            'Tie::File'             => '1.01',
+            'Unicode'               => '7.0.0',
+            'Unicode::Collate'      => '1.07',
+            'Unicode::Normalize'    => '1.18',
+            'Unicode::UCD'          => '0.58',
+            'XS::APItest'           => '0.61',
+            '_charnames'            => '1.41',
+            'autodie'               => '2.25',
+            'autodie::Scope::Guard' => '2.25',
+            'autodie::Scope::GuardStack'=> '2.25',
+            'autodie::ScopeUtil'    => '2.25',
+            'autodie::exception'    => '2.25',
+            'autodie::exception::system'=> '2.25',
+            'autodie::hints'        => '2.25',
+            'autodie::skip'         => '2.25',
+            'charnames'             => '1.41',
+            'locale'                => '1.04',
+            'threads'               => '1.94',
+            'utf8'                  => '1.14',
+            'warnings'              => '1.24',
+        },
+        removed => {
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+            'B'                     => '1.50',
+            'Config'                => '5.021002',
+            'Cwd'                   => '3.49',
+            'Devel::Peek'           => '1.18',
+            'ExtUtils::Manifest'    => '1.64',
+            'File::Copy'            => '2.30',
+            'File::Spec'            => '3.49',
+            'File::Spec::Cygwin'    => '3.49',
+            'File::Spec::Epoc'      => '3.49',
+            'File::Spec::Functions' => '3.49',
+            'File::Spec::Mac'       => '3.49',
+            'File::Spec::OS2'       => '3.49',
+            'File::Spec::Unix'      => '3.49',
+            'File::Spec::VMS'       => '3.49',
+            'File::Spec::Win32'     => '3.49',
+            'Filter::Simple'        => '0.92',
+            'Hash::Util'            => '0.18',
+            'IO'                    => '1.33',
+            'IO::Socket::IP'        => '0.31',
+            'IPC::Open3'            => '1.17',
+            'Math::BigFloat'        => '1.9996',
+            'Math::BigInt'          => '1.9996',
+            'Math::BigInt::Calc'    => '1.9996',
+            'Math::BigInt::CalcEmu' => '1.9996',
+            'Module::CoreList'      => '5.021002',
+            'Module::CoreList::TieHashDelta'=> '5.021002',
+            'Module::CoreList::Utils'=> '5.021002',
+            'POSIX'                 => '1.41',
+            'Pod::Usage'            => '1.64',
+            'XS::APItest'           => '0.62',
+            'arybase'               => '0.08',
+            'experimental'          => '0.008',
+            'threads'               => '1.95',
+            'warnings'              => '1.26',
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+            'B::Debug'              => '1.21',
+            'CPAN::Meta'            => '2.142060',
+            'CPAN::Meta::Converter' => '2.142060',
+            'CPAN::Meta::Feature'   => '2.142060',
+            'CPAN::Meta::History'   => '2.142060',
+            'CPAN::Meta::Merge'     => '2.142060',
+            'CPAN::Meta::Prereqs'   => '2.142060',
+            'CPAN::Meta::Requirements'=> '2.126',
+            'CPAN::Meta::Spec'      => '2.142060',
+            'CPAN::Meta::Validator' => '2.142060',
+            'Config'                => '5.021003',
+            'Config::Perl::V'       => '0.22',
+            'ExtUtils::CBuilder'    => '0.280217',
+            'ExtUtils::CBuilder::Base'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280217',
+            'ExtUtils::Manifest'    => '1.65',
+            'HTTP::Tiny'            => '0.047',
+            'IPC::Open3'            => '1.18',
+            'Module::CoreList'      => '5.021003',
+            'Module::CoreList::TieHashDelta'=> '5.021003',
+            'Module::CoreList::Utils'=> '5.021003',
+            'Opcode'                => '1.28',
+            'POSIX'                 => '1.42',
+            'Safe'                  => '2.38',
+            'Socket'                => '2.015',
+            'Sys::Hostname'         => '1.19',
+            'UNIVERSAL'             => '1.12',
+            'XS::APItest'           => '0.63',
+            'perlfaq'               => '5.0150045',
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.020000,
+        changed => {
+            'Config'                => '5.020001',
+            'Config::Perl::V'       => '0.22',
+            'Cwd'                   => '3.48',
+            'Exporter'              => '5.71',
+            'Exporter::Heavy'       => '5.71',
+            'ExtUtils::CBuilder'    => '0.280217',
+            'ExtUtils::CBuilder::Base'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280217',
+            'File::Copy'            => '2.30',
+            'File::Spec'            => '3.48',
+            'File::Spec::Cygwin'    => '3.48',
+            'File::Spec::Epoc'      => '3.48',
+            'File::Spec::Functions' => '3.48',
+            'File::Spec::Mac'       => '3.48',
+            'File::Spec::OS2'       => '3.48',
+            'File::Spec::Unix'      => '3.48',
+            'File::Spec::VMS'       => '3.48',
+            'File::Spec::Win32'     => '3.48',
+            'Module::CoreList'      => '5.020001',
+            'Module::CoreList::TieHashDelta'=> '5.020001',
+            'Module::CoreList::Utils'=> '5.020001',
+            'PerlIO::via'           => '0.15',
+            'Unicode::UCD'          => '0.58',
+            'XS::APItest'           => '0.60_01',
+            'utf8'                  => '1.13_01',
+            'version'               => '0.9909',
+            'version::regex'        => '0.9909',
+            'version::vpp'          => '0.9909',
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+            'App::Prove'            => '3.33',
+            'App::Prove::State'     => '3.33',
+            'App::Prove::State::Result'=> '3.33',
+            'App::Prove::State::Result::Test'=> '3.33',
+            'Archive::Tar'          => '2.02',
+            'Archive::Tar::Constant'=> '2.02',
+            'Archive::Tar::File'    => '2.02',
+            'Attribute::Handlers'   => '0.97',
+            'B'                     => '1.51',
+            'B::Concise'            => '0.993',
+            'B::Deparse'            => '1.28',
+            'B::Op_private'         => '5.021004',
+            'CPAN::Meta::Requirements'=> '2.128',
+            'Config'                => '5.021004',
+            'Cwd'                   => '3.50',
+            'Data::Dumper'          => '2.154',
+            'ExtUtils::CBuilder'    => '0.280219',
+            'ExtUtils::CBuilder::Base'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280219',
+            'ExtUtils::Install'     => '2.04',
+            'ExtUtils::Installed'   => '2.04',
+            'ExtUtils::Liblist::Kid'=> '6.98_01',
+            'ExtUtils::Manifest'    => '1.68',
+            'ExtUtils::Packlist'    => '2.04',
+            'File::Find'            => '1.28',
+            'File::Spec'            => '3.50',
+            'File::Spec::Cygwin'    => '3.50',
+            'File::Spec::Epoc'      => '3.50',
+            'File::Spec::Functions' => '3.50',
+            'File::Spec::Mac'       => '3.50',
+            'File::Spec::OS2'       => '3.50',
+            'File::Spec::Unix'      => '3.50',
+            'File::Spec::VMS'       => '3.50',
+            'File::Spec::Win32'     => '3.50',
+            'Getopt::Std'           => '1.11',
+            'HTTP::Tiny'            => '0.049',
+            'IO'                    => '1.34',
+            'IO::Socket::IP'        => '0.32',
+            'List::Util'            => '1.41',
+            'List::Util::XS'        => '1.41',
+            'Locale::Codes'         => '3.32',
+            'Locale::Codes::Constants'=> '3.32',
+            'Locale::Codes::Country'=> '3.32',
+            'Locale::Codes::Country_Codes'=> '3.32',
+            'Locale::Codes::Country_Retired'=> '3.32',
+            'Locale::Codes::Currency'=> '3.32',
+            'Locale::Codes::Currency_Codes'=> '3.32',
+            'Locale::Codes::Currency_Retired'=> '3.32',
+            'Locale::Codes::LangExt'=> '3.32',
+            'Locale::Codes::LangExt_Codes'=> '3.32',
+            'Locale::Codes::LangExt_Retired'=> '3.32',
+            'Locale::Codes::LangFam'=> '3.32',
+            'Locale::Codes::LangFam_Codes'=> '3.32',
+            'Locale::Codes::LangFam_Retired'=> '3.32',
+            'Locale::Codes::LangVar'=> '3.32',
+            'Locale::Codes::LangVar_Codes'=> '3.32',
+            'Locale::Codes::LangVar_Retired'=> '3.32',
+            'Locale::Codes::Language'=> '3.32',
+            'Locale::Codes::Language_Codes'=> '3.32',
+            'Locale::Codes::Language_Retired'=> '3.32',
+            'Locale::Codes::Script' => '3.32',
+            'Locale::Codes::Script_Codes'=> '3.32',
+            'Locale::Codes::Script_Retired'=> '3.32',
+            'Locale::Country'       => '3.32',
+            'Locale::Currency'      => '3.32',
+            'Locale::Language'      => '3.32',
+            'Locale::Script'        => '3.32',
+            'Math::BigFloat'        => '1.9997',
+            'Math::BigInt'          => '1.9997',
+            'Math::BigInt::Calc'    => '1.9997',
+            'Math::BigInt::CalcEmu' => '1.9997',
+            'Module::CoreList'      => '5.20140920',
+            'Module::CoreList::TieHashDelta'=> '5.20140920',
+            'Module::CoreList::Utils'=> '5.20140920',
+            'POSIX'                 => '1.43',
+            'Pod::Perldoc'          => '3.24',
+            'Pod::Perldoc::BaseTo'  => '3.24',
+            'Pod::Perldoc::GetOptsOO'=> '3.24',
+            'Pod::Perldoc::ToANSI'  => '3.24',
+            'Pod::Perldoc::ToChecker'=> '3.24',
+            'Pod::Perldoc::ToMan'   => '3.24',
+            'Pod::Perldoc::ToNroff' => '3.24',
+            'Pod::Perldoc::ToPod'   => '3.24',
+            'Pod::Perldoc::ToRtf'   => '3.24',
+            'Pod::Perldoc::ToTerm'  => '3.24',
+            'Pod::Perldoc::ToText'  => '3.24',
+            'Pod::Perldoc::ToTk'    => '3.24',
+            'Pod::Perldoc::ToXml'   => '3.24',
+            'Scalar::Util'          => '1.41',
+            'Sub::Util'             => '1.41',
+            'TAP::Base'             => '3.33',
+            'TAP::Formatter::Base'  => '3.33',
+            'TAP::Formatter::Color' => '3.33',
+            'TAP::Formatter::Console'=> '3.33',
+            'TAP::Formatter::Console::ParallelSession'=> '3.33',
+            'TAP::Formatter::Console::Session'=> '3.33',
+            'TAP::Formatter::File'  => '3.33',
+            'TAP::Formatter::File::Session'=> '3.33',
+            'TAP::Formatter::Session'=> '3.33',
+            'TAP::Harness'          => '3.33',
+            'TAP::Harness::Env'     => '3.33',
+            'TAP::Object'           => '3.33',
+            'TAP::Parser'           => '3.33',
+            'TAP::Parser::Aggregator'=> '3.33',
+            'TAP::Parser::Grammar'  => '3.33',
+            'TAP::Parser::Iterator' => '3.33',
+            'TAP::Parser::Iterator::Array'=> '3.33',
+            'TAP::Parser::Iterator::Process'=> '3.33',
+            'TAP::Parser::Iterator::Stream'=> '3.33',
+            'TAP::Parser::IteratorFactory'=> '3.33',
+            'TAP::Parser::Multiplexer'=> '3.33',
+            'TAP::Parser::Result'   => '3.33',
+            'TAP::Parser::Result::Bailout'=> '3.33',
+            'TAP::Parser::Result::Comment'=> '3.33',
+            'TAP::Parser::Result::Plan'=> '3.33',
+            'TAP::Parser::Result::Pragma'=> '3.33',
+            'TAP::Parser::Result::Test'=> '3.33',
+            'TAP::Parser::Result::Unknown'=> '3.33',
+            'TAP::Parser::Result::Version'=> '3.33',
+            'TAP::Parser::Result::YAML'=> '3.33',
+            'TAP::Parser::ResultFactory'=> '3.33',
+            'TAP::Parser::Scheduler'=> '3.33',
+            'TAP::Parser::Scheduler::Job'=> '3.33',
+            'TAP::Parser::Scheduler::Spinner'=> '3.33',
+            'TAP::Parser::Source'   => '3.33',
+            'TAP::Parser::SourceHandler'=> '3.33',
+            'TAP::Parser::SourceHandler::Executable'=> '3.33',
+            'TAP::Parser::SourceHandler::File'=> '3.33',
+            'TAP::Parser::SourceHandler::Handle'=> '3.33',
+            'TAP::Parser::SourceHandler::Perl'=> '3.33',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.33',
+            'TAP::Parser::YAMLish::Reader'=> '3.33',
+            'TAP::Parser::YAMLish::Writer'=> '3.33',
+            'Term::ReadLine'        => '1.15',
+            'Test::Builder'         => '1.001006',
+            'Test::Builder::Module' => '1.001006',
+            'Test::Builder::Tester' => '1.24',
+            'Test::Builder::Tester::Color'=> '1.24',
+            'Test::Harness'         => '3.33',
+            'Test::More'            => '1.001006',
+            'Test::Simple'          => '1.001006',
+            'Time::Piece'           => '1.29',
+            'Time::Seconds'         => '1.29',
+            'XS::APItest'           => '0.64',
+            '_charnames'            => '1.42',
+            'attributes'            => '0.23',
+            'bigint'                => '0.37',
+            'bignum'                => '0.38',
+            'bigrat'                => '0.37',
+            'constant'              => '1.32',
+            'experimental'          => '0.010',
+            'overload'              => '1.23',
+            'threads'               => '1.96',
+            'version'               => '0.9909',
+            'version::regex'        => '0.9909',
+            'version::vpp'          => '0.9909',
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+            'B'                     => '1.52',
+            'B::Concise'            => '0.994',
+            'B::Debug'              => '1.22',
+            'B::Deparse'            => '1.29',
+            'B::Op_private'         => '5.021005',
+            'CPAN::Meta'            => '2.142690',
+            'CPAN::Meta::Converter' => '2.142690',
+            'CPAN::Meta::Feature'   => '2.142690',
+            'CPAN::Meta::History'   => '2.142690',
+            'CPAN::Meta::Merge'     => '2.142690',
+            'CPAN::Meta::Prereqs'   => '2.142690',
+            'CPAN::Meta::Spec'      => '2.142690',
+            'CPAN::Meta::Validator' => '2.142690',
+            'Compress::Raw::Bzip2'  => '2.066',
+            'Compress::Raw::Zlib'   => '2.066',
+            'Compress::Zlib'        => '2.066',
+            'Config'                => '5.021005',
+            'Cwd'                   => '3.51',
+            'DynaLoader'            => '1.27',
+            'Errno'                 => '1.21',
+            'ExtUtils::CBuilder'    => '0.280220',
+            'ExtUtils::CBuilder::Base'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280220',
+            'ExtUtils::Miniperl'    => '1.03',
+            'Fcntl'                 => '1.13',
+            'File::Find'            => '1.29',
+            'File::Spec'            => '3.51',
+            'File::Spec::Cygwin'    => '3.51',
+            'File::Spec::Epoc'      => '3.51',
+            'File::Spec::Functions' => '3.51',
+            'File::Spec::Mac'       => '3.51',
+            'File::Spec::OS2'       => '3.51',
+            'File::Spec::Unix'      => '3.51',
+            'File::Spec::VMS'       => '3.51',
+            'File::Spec::Win32'     => '3.51',
+            'HTTP::Tiny'            => '0.050',
+            'IO::Compress::Adapter::Bzip2'=> '2.066',
+            'IO::Compress::Adapter::Deflate'=> '2.066',
+            'IO::Compress::Adapter::Identity'=> '2.066',
+            'IO::Compress::Base'    => '2.066',
+            'IO::Compress::Base::Common'=> '2.066',
+            'IO::Compress::Bzip2'   => '2.066',
+            'IO::Compress::Deflate' => '2.066',
+            'IO::Compress::Gzip'    => '2.066',
+            'IO::Compress::Gzip::Constants'=> '2.066',
+            'IO::Compress::RawDeflate'=> '2.066',
+            'IO::Compress::Zip'     => '2.066',
+            'IO::Compress::Zip::Constants'=> '2.066',
+            'IO::Compress::Zlib::Constants'=> '2.066',
+            'IO::Compress::Zlib::Extra'=> '2.066',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.066',
+            'IO::Uncompress::Adapter::Identity'=> '2.066',
+            'IO::Uncompress::Adapter::Inflate'=> '2.066',
+            'IO::Uncompress::AnyInflate'=> '2.066',
+            'IO::Uncompress::AnyUncompress'=> '2.066',
+            'IO::Uncompress::Base'  => '2.066',
+            'IO::Uncompress::Bunzip2'=> '2.066',
+            'IO::Uncompress::Gunzip'=> '2.066',
+            'IO::Uncompress::Inflate'=> '2.066',
+            'IO::Uncompress::RawInflate'=> '2.066',
+            'IO::Uncompress::Unzip' => '2.066',
+            'JSON::PP'              => '2.27300',
+            'Module::CoreList'      => '5.20141020',
+            'Module::CoreList::TieHashDelta'=> '5.20141020',
+            'Module::CoreList::Utils'=> '5.20141020',
+            'Net::Cmd'              => '3.02',
+            'Net::Config'           => '3.02',
+            'Net::Domain'           => '3.02',
+            'Net::FTP'              => '3.02',
+            'Net::FTP::A'           => '3.02',
+            'Net::FTP::E'           => '3.02',
+            'Net::FTP::I'           => '3.02',
+            'Net::FTP::L'           => '3.02',
+            'Net::FTP::dataconn'    => '3.02',
+            'Net::NNTP'             => '3.02',
+            'Net::Netrc'            => '3.02',
+            'Net::POP3'             => '3.02',
+            'Net::SMTP'             => '3.02',
+            'Net::Time'             => '3.02',
+            'Opcode'                => '1.29',
+            'POSIX'                 => '1.45',
+            'Socket'                => '2.016',
+            'Test::Builder'         => '1.001008',
+            'Test::Builder::Module' => '1.001008',
+            'Test::More'            => '1.001008',
+            'Test::Simple'          => '1.001008',
+            'XS::APItest'           => '0.65',
+            'XSLoader'              => '0.18',
+            'attributes'            => '0.24',
+            'experimental'          => '0.012',
+            'feature'               => '1.38',
+            'perlfaq'               => '5.0150046',
+            're'                    => '0.27',
+            'threads::shared'       => '1.47',
+            'warnings'              => '1.28',
+            'warnings::register'    => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+            'App::Prove'            => '3.34',
+            'App::Prove::State'     => '3.34',
+            'App::Prove::State::Result'=> '3.34',
+            'App::Prove::State::Result::Test'=> '3.34',
+            'B'                     => '1.53',
+            'B::Concise'            => '0.995',
+            'B::Deparse'            => '1.30',
+            'B::Op_private'         => '5.021006',
+            'CPAN::Meta'            => '2.143240',
+            'CPAN::Meta::Converter' => '2.143240',
+            'CPAN::Meta::Feature'   => '2.143240',
+            'CPAN::Meta::History'   => '2.143240',
+            'CPAN::Meta::Merge'     => '2.143240',
+            'CPAN::Meta::Prereqs'   => '2.143240',
+            'CPAN::Meta::Requirements'=> '2.130',
+            'CPAN::Meta::Spec'      => '2.143240',
+            'CPAN::Meta::Validator' => '2.143240',
+            'Config'                => '5.021006',
+            'Devel::Peek'           => '1.19',
+            'Digest::SHA'           => '5.93',
+            'DynaLoader'            => '1.28',
+            'Encode'                => '2.64',
+            'Exporter'              => '5.72',
+            'Exporter::Heavy'       => '5.72',
+            'ExtUtils::Command::MM' => '7.02',
+            'ExtUtils::Liblist'     => '7.02',
+            'ExtUtils::Liblist::Kid'=> '7.02',
+            'ExtUtils::MM'          => '7.02',
+            'ExtUtils::MM_AIX'      => '7.02',
+            'ExtUtils::MM_Any'      => '7.02',
+            'ExtUtils::MM_BeOS'     => '7.02',
+            'ExtUtils::MM_Cygwin'   => '7.02',
+            'ExtUtils::MM_DOS'      => '7.02',
+            'ExtUtils::MM_Darwin'   => '7.02',
+            'ExtUtils::MM_MacOS'    => '7.02',
+            'ExtUtils::MM_NW5'      => '7.02',
+            'ExtUtils::MM_OS2'      => '7.02',
+            'ExtUtils::MM_QNX'      => '7.02',
+            'ExtUtils::MM_UWIN'     => '7.02',
+            'ExtUtils::MM_Unix'     => '7.02',
+            'ExtUtils::MM_VMS'      => '7.02',
+            'ExtUtils::MM_VOS'      => '7.02',
+            'ExtUtils::MM_Win32'    => '7.02',
+            'ExtUtils::MM_Win95'    => '7.02',
+            'ExtUtils::MY'          => '7.02',
+            'ExtUtils::MakeMaker'   => '7.02',
+            'ExtUtils::MakeMaker::Config'=> '7.02',
+            'ExtUtils::MakeMaker::Locale'=> '7.02',
+            'ExtUtils::MakeMaker::version'=> '7.02',
+            'ExtUtils::MakeMaker::version::regex'=> '7.02',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.02',
+            'ExtUtils::Manifest'    => '1.69',
+            'ExtUtils::Mkbootstrap' => '7.02',
+            'ExtUtils::Mksymlists'  => '7.02',
+            'ExtUtils::ParseXS'     => '3.26',
+            'ExtUtils::ParseXS::Constants'=> '3.26',
+            'ExtUtils::ParseXS::CountLines'=> '3.26',
+            'ExtUtils::ParseXS::Eval'=> '3.26',
+            'ExtUtils::ParseXS::Utilities'=> '3.26',
+            'ExtUtils::testlib'     => '7.02',
+            'File::Spec::VMS'       => '3.52',
+            'HTTP::Tiny'            => '0.051',
+            'I18N::Langinfo'        => '0.12',
+            'IO::Socket'            => '1.38',
+            'Module::CoreList'      => '5.20141120',
+            'Module::CoreList::TieHashDelta'=> '5.20141120',
+            'Module::CoreList::Utils'=> '5.20141120',
+            'POSIX'                 => '1.46',
+            'PerlIO::encoding'      => '0.20',
+            'PerlIO::scalar'        => '0.20',
+            'TAP::Base'             => '3.34',
+            'TAP::Formatter::Base'  => '3.34',
+            'TAP::Formatter::Color' => '3.34',
+            'TAP::Formatter::Console'=> '3.34',
+            'TAP::Formatter::Console::ParallelSession'=> '3.34',
+            'TAP::Formatter::Console::Session'=> '3.34',
+            'TAP::Formatter::File'  => '3.34',
+            'TAP::Formatter::File::Session'=> '3.34',
+            'TAP::Formatter::Session'=> '3.34',
+            'TAP::Harness'          => '3.34',
+            'TAP::Harness::Env'     => '3.34',
+            'TAP::Object'           => '3.34',
+            'TAP::Parser'           => '3.34',
+            'TAP::Parser::Aggregator'=> '3.34',
+            'TAP::Parser::Grammar'  => '3.34',
+            'TAP::Parser::Iterator' => '3.34',
+            'TAP::Parser::Iterator::Array'=> '3.34',
+            'TAP::Parser::Iterator::Process'=> '3.34',
+            'TAP::Parser::Iterator::Stream'=> '3.34',
+            'TAP::Parser::IteratorFactory'=> '3.34',
+            'TAP::Parser::Multiplexer'=> '3.34',
+            'TAP::Parser::Result'   => '3.34',
+            'TAP::Parser::Result::Bailout'=> '3.34',
+            'TAP::Parser::Result::Comment'=> '3.34',
+            'TAP::Parser::Result::Plan'=> '3.34',
+            'TAP::Parser::Result::Pragma'=> '3.34',
+            'TAP::Parser::Result::Test'=> '3.34',
+            'TAP::Parser::Result::Unknown'=> '3.34',
+            'TAP::Parser::Result::Version'=> '3.34',
+            'TAP::Parser::Result::YAML'=> '3.34',
+            'TAP::Parser::ResultFactory'=> '3.34',
+            'TAP::Parser::Scheduler'=> '3.34',
+            'TAP::Parser::Scheduler::Job'=> '3.34',
+            'TAP::Parser::Scheduler::Spinner'=> '3.34',
+            'TAP::Parser::Source'   => '3.34',
+            'TAP::Parser::SourceHandler'=> '3.34',
+            'TAP::Parser::SourceHandler::Executable'=> '3.34',
+            'TAP::Parser::SourceHandler::File'=> '3.34',
+            'TAP::Parser::SourceHandler::Handle'=> '3.34',
+            'TAP::Parser::SourceHandler::Perl'=> '3.34',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.34',
+            'TAP::Parser::YAMLish::Reader'=> '3.34',
+            'TAP::Parser::YAMLish::Writer'=> '3.34',
+            'Test::Builder'         => '1.301001_075',
+            'Test::Builder::Module' => '1.301001_075',
+            'Test::Builder::Tester' => '1.301001_075',
+            'Test::Builder::Tester::Color'=> '1.301001_075',
+            'Test::Harness'         => '3.34',
+            'Test::More'            => '1.301001_075',
+            'Test::More::DeepCheck' => undef,
+            'Test::More::DeepCheck::Strict'=> undef,
+            'Test::More::DeepCheck::Tolerant'=> undef,
+            'Test::More::Tools'     => undef,
+            'Test::MostlyLike'      => undef,
+            'Test::Simple'          => '1.301001_075',
+            'Test::Stream'          => '1.301001_075',
+            'Test::Stream::ArrayBase'=> undef,
+            'Test::Stream::ArrayBase::Meta'=> undef,
+            'Test::Stream::Carp'    => undef,
+            'Test::Stream::Context' => undef,
+            'Test::Stream::Event'   => undef,
+            'Test::Stream::Event::Bail'=> undef,
+            'Test::Stream::Event::Child'=> undef,
+            'Test::Stream::Event::Diag'=> undef,
+            'Test::Stream::Event::Finish'=> undef,
+            'Test::Stream::Event::Note'=> undef,
+            'Test::Stream::Event::Ok'=> undef,
+            'Test::Stream::Event::Plan'=> undef,
+            'Test::Stream::Event::Subtest'=> undef,
+            'Test::Stream::ExitMagic'=> undef,
+            'Test::Stream::ExitMagic::Context'=> undef,
+            'Test::Stream::Exporter'=> undef,
+            'Test::Stream::Exporter::Meta'=> undef,
+            'Test::Stream::IOSets'  => undef,
+            'Test::Stream::Meta'    => undef,
+            'Test::Stream::PackageUtil'=> undef,
+            'Test::Stream::Tester'  => undef,
+            'Test::Stream::Tester::Checks'=> undef,
+            'Test::Stream::Tester::Checks::Event'=> undef,
+            'Test::Stream::Tester::Events'=> undef,
+            'Test::Stream::Tester::Events::Event'=> undef,
+            'Test::Stream::Tester::Grab'=> undef,
+            'Test::Stream::Threads' => undef,
+            'Test::Stream::Toolset' => undef,
+            'Test::Stream::Util'    => undef,
+            'Test::Tester'          => '1.301001_075',
+            'Test::Tester::Capture' => undef,
+            'Test::use::ok'         => '1.301001_075',
+            'Unicode::UCD'          => '0.59',
+            'XS::APItest'           => '0.68',
+            'XSLoader'              => '0.19',
+            'experimental'          => '0.013',
+            'locale'                => '1.05',
+            'ok'                    => '1.301001_075',
+            'overload'              => '1.24',
+            're'                    => '0.28',
+            'warnings'              => '1.29',
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+            'Archive::Tar'          => '2.04',
+            'Archive::Tar::Constant'=> '2.04',
+            'Archive::Tar::File'    => '2.04',
+            'B'                     => '1.54',
+            'B::Concise'            => '0.996',
+            'B::Deparse'            => '1.31',
+            'B::Op_private'         => '5.021007',
+            'B::Showlex'            => '1.05',
+            'Compress::Raw::Bzip2'  => '2.067',
+            'Compress::Raw::Zlib'   => '2.067',
+            'Compress::Zlib'        => '2.067',
+            'Config'                => '5.021007',
+            'Cwd'                   => '3.54',
+            'DB_File'               => '1.834',
+            'Data::Dumper'          => '2.155',
+            'Devel::PPPort'         => '3.25',
+            'Devel::Peek'           => '1.20',
+            'DynaLoader'            => '1.29',
+            'Encode'                => '2.67',
+            'Errno'                 => '1.22',
+            'ExtUtils::CBuilder'    => '0.280221',
+            'ExtUtils::CBuilder::Base'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280221',
+            'ExtUtils::Command::MM' => '7.04',
+            'ExtUtils::Liblist'     => '7.04',
+            'ExtUtils::Liblist::Kid'=> '7.04',
+            'ExtUtils::MM'          => '7.04',
+            'ExtUtils::MM_AIX'      => '7.04',
+            'ExtUtils::MM_Any'      => '7.04',
+            'ExtUtils::MM_BeOS'     => '7.04',
+            'ExtUtils::MM_Cygwin'   => '7.04',
+            'ExtUtils::MM_DOS'      => '7.04',
+            'ExtUtils::MM_Darwin'   => '7.04',
+            'ExtUtils::MM_MacOS'    => '7.04',
+            'ExtUtils::MM_NW5'      => '7.04',
+            'ExtUtils::MM_OS2'      => '7.04',
+            'ExtUtils::MM_QNX'      => '7.04',
+            'ExtUtils::MM_UWIN'     => '7.04',
+            'ExtUtils::MM_Unix'     => '7.04',
+            'ExtUtils::MM_VMS'      => '7.04',
+            'ExtUtils::MM_VOS'      => '7.04',
+            'ExtUtils::MM_Win32'    => '7.04',
+            'ExtUtils::MM_Win95'    => '7.04',
+            'ExtUtils::MY'          => '7.04',
+            'ExtUtils::MakeMaker'   => '7.04',
+            'ExtUtils::MakeMaker::Config'=> '7.04',
+            'ExtUtils::MakeMaker::Locale'=> '7.04',
+            'ExtUtils::MakeMaker::version'=> '7.04',
+            'ExtUtils::MakeMaker::version::regex'=> '7.04',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.04',
+            'ExtUtils::Mkbootstrap' => '7.04',
+            'ExtUtils::Mksymlists'  => '7.04',
+            'ExtUtils::ParseXS'     => '3.27',
+            'ExtUtils::ParseXS::Constants'=> '3.27',
+            'ExtUtils::ParseXS::CountLines'=> '3.27',
+            'ExtUtils::ParseXS::Eval'=> '3.27',
+            'ExtUtils::ParseXS::Utilities'=> '3.27',
+            'ExtUtils::testlib'     => '7.04',
+            'File::Spec'            => '3.53',
+            'File::Spec::Cygwin'    => '3.54',
+            'File::Spec::Epoc'      => '3.54',
+            'File::Spec::Functions' => '3.54',
+            'File::Spec::Mac'       => '3.54',
+            'File::Spec::OS2'       => '3.54',
+            'File::Spec::Unix'      => '3.54',
+            'File::Spec::VMS'       => '3.54',
+            'File::Spec::Win32'     => '3.54',
+            'Filter::Util::Call'    => '1.51',
+            'HTTP::Tiny'            => '0.053',
+            'IO'                    => '1.35',
+            'IO::Compress::Adapter::Bzip2'=> '2.067',
+            'IO::Compress::Adapter::Deflate'=> '2.067',
+            'IO::Compress::Adapter::Identity'=> '2.067',
+            'IO::Compress::Base'    => '2.067',
+            'IO::Compress::Base::Common'=> '2.067',
+            'IO::Compress::Bzip2'   => '2.067',
+            'IO::Compress::Deflate' => '2.067',
+            'IO::Compress::Gzip'    => '2.067',
+            'IO::Compress::Gzip::Constants'=> '2.067',
+            'IO::Compress::RawDeflate'=> '2.067',
+            'IO::Compress::Zip'     => '2.067',
+            'IO::Compress::Zip::Constants'=> '2.067',
+            'IO::Compress::Zlib::Constants'=> '2.067',
+            'IO::Compress::Zlib::Extra'=> '2.067',
+            'IO::Socket::IP'        => '0.34',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.067',
+            'IO::Uncompress::Adapter::Identity'=> '2.067',
+            'IO::Uncompress::Adapter::Inflate'=> '2.067',
+            'IO::Uncompress::AnyInflate'=> '2.067',
+            'IO::Uncompress::AnyUncompress'=> '2.067',
+            'IO::Uncompress::Base'  => '2.067',
+            'IO::Uncompress::Bunzip2'=> '2.067',
+            'IO::Uncompress::Gunzip'=> '2.067',
+            'IO::Uncompress::Inflate'=> '2.067',
+            'IO::Uncompress::RawInflate'=> '2.067',
+            'IO::Uncompress::Unzip' => '2.067',
+            'Locale::Codes'         => '3.33',
+            'Locale::Codes::Constants'=> '3.33',
+            'Locale::Codes::Country'=> '3.33',
+            'Locale::Codes::Country_Codes'=> '3.33',
+            'Locale::Codes::Country_Retired'=> '3.33',
+            'Locale::Codes::Currency'=> '3.33',
+            'Locale::Codes::Currency_Codes'=> '3.33',
+            'Locale::Codes::Currency_Retired'=> '3.33',
+            'Locale::Codes::LangExt'=> '3.33',
+            'Locale::Codes::LangExt_Codes'=> '3.33',
+            'Locale::Codes::LangExt_Retired'=> '3.33',
+            'Locale::Codes::LangFam'=> '3.33',
+            'Locale::Codes::LangFam_Codes'=> '3.33',
+            'Locale::Codes::LangFam_Retired'=> '3.33',
+            'Locale::Codes::LangVar'=> '3.33',
+            'Locale::Codes::LangVar_Codes'=> '3.33',
+            'Locale::Codes::LangVar_Retired'=> '3.33',
+            'Locale::Codes::Language'=> '3.33',
+            'Locale::Codes::Language_Codes'=> '3.33',
+            'Locale::Codes::Language_Retired'=> '3.33',
+            'Locale::Codes::Script' => '3.33',
+            'Locale::Codes::Script_Codes'=> '3.33',
+            'Locale::Codes::Script_Retired'=> '3.33',
+            'Locale::Country'       => '3.33',
+            'Locale::Currency'      => '3.33',
+            'Locale::Language'      => '3.33',
+            'Locale::Maketext'      => '1.26',
+            'Locale::Script'        => '3.33',
+            'Module::CoreList'      => '5.20141220',
+            'Module::CoreList::TieHashDelta'=> '5.20141220',
+            'Module::CoreList::Utils'=> '5.20141220',
+            'NDBM_File'             => '1.14',
+            'Net::Cmd'              => '3.04',
+            'Net::Config'           => '3.04',
+            'Net::Domain'           => '3.04',
+            'Net::FTP'              => '3.04',
+            'Net::FTP::A'           => '3.04',
+            'Net::FTP::E'           => '3.04',
+            'Net::FTP::I'           => '3.04',
+            'Net::FTP::L'           => '3.04',
+            'Net::FTP::dataconn'    => '3.04',
+            'Net::NNTP'             => '3.04',
+            'Net::Netrc'            => '3.04',
+            'Net::POP3'             => '3.04',
+            'Net::SMTP'             => '3.04',
+            'Net::Time'             => '3.04',
+            'Opcode'                => '1.30',
+            'POSIX'                 => '1.48',
+            'PerlIO::scalar'        => '0.21',
+            'Pod::Escapes'          => '1.07',
+            'SDBM_File'             => '1.12',
+            'Storable'              => '2.52',
+            'Sys::Hostname'         => '1.20',
+            'Test::Builder'         => '1.301001_090',
+            'Test::Builder::Module' => '1.301001_090',
+            'Test::Builder::Tester' => '1.301001_090',
+            'Test::Builder::Tester::Color'=> '1.301001_090',
+            'Test::CanFork'         => undef,
+            'Test::CanThread'       => undef,
+            'Test::More'            => '1.301001_090',
+            'Test::Simple'          => '1.301001_090',
+            'Test::Stream'          => '1.301001_090',
+            'Test::Stream::API'     => undef,
+            'Test::Stream::ForceExit'=> undef,
+            'Test::Stream::Subtest' => undef,
+            'Test::Tester'          => '1.301001_090',
+            'Test::use::ok'         => '1.301001_090',
+            'Unicode::Collate'      => '1.09',
+            'Unicode::Collate::CJK::Big5'=> '1.09',
+            'Unicode::Collate::CJK::GB2312'=> '1.09',
+            'Unicode::Collate::CJK::JISX0208'=> '1.09',
+            'Unicode::Collate::CJK::Korean'=> '1.09',
+            'Unicode::Collate::CJK::Pinyin'=> '1.09',
+            'Unicode::Collate::CJK::Stroke'=> '1.09',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.09',
+            'Unicode::Collate::Locale'=> '1.09',
+            'XS::APItest'           => '0.69',
+            'XSLoader'              => '0.20',
+            '_charnames'            => '1.43',
+            'arybase'               => '0.09',
+            'charnames'             => '1.43',
+            'feature'               => '1.39',
+            'mro'                   => '1.17',
+            'ok'                    => '1.301001_090',
+            'strict'                => '1.09',
+            'threads'               => '1.96_001',
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+            'App::Prove'            => '3.35',
+            'App::Prove::State'     => '3.35',
+            'App::Prove::State::Result'=> '3.35',
+            'App::Prove::State::Result::Test'=> '3.35',
+            'B'                     => '1.55',
+            'B::Deparse'            => '1.32',
+            'B::Op_private'         => '5.021008',
+            'CPAN::Meta::Requirements'=> '2.131',
+            'Compress::Raw::Bzip2'  => '2.068',
+            'Compress::Raw::Zlib'   => '2.068',
+            'Compress::Zlib'        => '2.068',
+            'Config'                => '5.021008',
+            'DB_File'               => '1.835',
+            'Data::Dumper'          => '2.156',
+            'Devel::PPPort'         => '3.28',
+            'Devel::Peek'           => '1.21',
+            'Digest::MD5'           => '2.54',
+            'Digest::SHA'           => '5.95',
+            'DynaLoader'            => '1.30',
+            'ExtUtils::Command'     => '1.20',
+            'ExtUtils::Manifest'    => '1.70',
+            'Fatal'                 => '2.26',
+            'File::Glob'            => '1.24',
+            'Filter::Util::Call'    => '1.54',
+            'Getopt::Long'          => '2.43',
+            'IO::Compress::Adapter::Bzip2'=> '2.068',
+            'IO::Compress::Adapter::Deflate'=> '2.068',
+            'IO::Compress::Adapter::Identity'=> '2.068',
+            'IO::Compress::Base'    => '2.068',
+            'IO::Compress::Base::Common'=> '2.068',
+            'IO::Compress::Bzip2'   => '2.068',
+            'IO::Compress::Deflate' => '2.068',
+            'IO::Compress::Gzip'    => '2.068',
+            'IO::Compress::Gzip::Constants'=> '2.068',
+            'IO::Compress::RawDeflate'=> '2.068',
+            'IO::Compress::Zip'     => '2.068',
+            'IO::Compress::Zip::Constants'=> '2.068',
+            'IO::Compress::Zlib::Constants'=> '2.068',
+            'IO::Compress::Zlib::Extra'=> '2.068',
+            'IO::Socket::IP'        => '0.36',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.068',
+            'IO::Uncompress::Adapter::Identity'=> '2.068',
+            'IO::Uncompress::Adapter::Inflate'=> '2.068',
+            'IO::Uncompress::AnyInflate'=> '2.068',
+            'IO::Uncompress::AnyUncompress'=> '2.068',
+            'IO::Uncompress::Base'  => '2.068',
+            'IO::Uncompress::Bunzip2'=> '2.068',
+            'IO::Uncompress::Gunzip'=> '2.068',
+            'IO::Uncompress::Inflate'=> '2.068',
+            'IO::Uncompress::RawInflate'=> '2.068',
+            'IO::Uncompress::Unzip' => '2.068',
+            'MIME::Base64'          => '3.15',
+            'Module::CoreList'      => '5.20150220',
+            'Module::CoreList::TieHashDelta'=> '5.20150220',
+            'Module::CoreList::Utils'=> '5.20150220',
+            'Module::Load::Conditional'=> '0.64',
+            'Module::Metadata'      => '1.000026',
+            'Net::Cmd'              => '3.05',
+            'Net::Config'           => '3.05',
+            'Net::Domain'           => '3.05',
+            'Net::FTP'              => '3.05',
+            'Net::FTP::A'           => '3.05',
+            'Net::FTP::E'           => '3.05',
+            'Net::FTP::I'           => '3.05',
+            'Net::FTP::L'           => '3.05',
+            'Net::FTP::dataconn'    => '3.05',
+            'Net::NNTP'             => '3.05',
+            'Net::Netrc'            => '3.05',
+            'Net::POP3'             => '3.05',
+            'Net::SMTP'             => '3.05',
+            'Net::Time'             => '3.05',
+            'Opcode'                => '1.31',
+            'POSIX'                 => '1.49',
+            'PerlIO::encoding'      => '0.21',
+            'Pod::Simple'           => '3.29',
+            'Pod::Simple::BlackBox' => '3.29',
+            'Pod::Simple::Checker'  => '3.29',
+            'Pod::Simple::Debug'    => '3.29',
+            'Pod::Simple::DumpAsText'=> '3.29',
+            'Pod::Simple::DumpAsXML'=> '3.29',
+            'Pod::Simple::HTML'     => '3.29',
+            'Pod::Simple::HTMLBatch'=> '3.29',
+            'Pod::Simple::LinkSection'=> '3.29',
+            'Pod::Simple::Methody'  => '3.29',
+            'Pod::Simple::Progress' => '3.29',
+            'Pod::Simple::PullParser'=> '3.29',
+            'Pod::Simple::PullParserEndToken'=> '3.29',
+            'Pod::Simple::PullParserStartToken'=> '3.29',
+            'Pod::Simple::PullParserTextToken'=> '3.29',
+            'Pod::Simple::PullParserToken'=> '3.29',
+            'Pod::Simple::RTF'      => '3.29',
+            'Pod::Simple::Search'   => '3.29',
+            'Pod::Simple::SimpleTree'=> '3.29',
+            'Pod::Simple::Text'     => '3.29',
+            'Pod::Simple::TextContent'=> '3.29',
+            'Pod::Simple::TiedOutFH'=> '3.29',
+            'Pod::Simple::Transcode'=> '3.29',
+            'Pod::Simple::TranscodeDumb'=> '3.29',
+            'Pod::Simple::TranscodeSmart'=> '3.29',
+            'Pod::Simple::XHTML'    => '3.29',
+            'Pod::Simple::XMLOutStream'=> '3.29',
+            'SDBM_File'             => '1.13',
+            'Safe'                  => '2.39',
+            'TAP::Base'             => '3.35',
+            'TAP::Formatter::Base'  => '3.35',
+            'TAP::Formatter::Color' => '3.35',
+            'TAP::Formatter::Console'=> '3.35',
+            'TAP::Formatter::Console::ParallelSession'=> '3.35',
+            'TAP::Formatter::Console::Session'=> '3.35',
+            'TAP::Formatter::File'  => '3.35',
+            'TAP::Formatter::File::Session'=> '3.35',
+            'TAP::Formatter::Session'=> '3.35',
+            'TAP::Harness'          => '3.35',
+            'TAP::Harness::Env'     => '3.35',
+            'TAP::Object'           => '3.35',
+            'TAP::Parser'           => '3.35',
+            'TAP::Parser::Aggregator'=> '3.35',
+            'TAP::Parser::Grammar'  => '3.35',
+            'TAP::Parser::Iterator' => '3.35',
+            'TAP::Parser::Iterator::Array'=> '3.35',
+            'TAP::Parser::Iterator::Process'=> '3.35',
+            'TAP::Parser::Iterator::Stream'=> '3.35',
+            'TAP::Parser::IteratorFactory'=> '3.35',
+            'TAP::Parser::Multiplexer'=> '3.35',
+            'TAP::Parser::Result'   => '3.35',
+            'TAP::Parser::Result::Bailout'=> '3.35',
+            'TAP::Parser::Result::Comment'=> '3.35',
+            'TAP::Parser::Result::Plan'=> '3.35',
+            'TAP::Parser::Result::Pragma'=> '3.35',
+            'TAP::Parser::Result::Test'=> '3.35',
+            'TAP::Parser::Result::Unknown'=> '3.35',
+            'TAP::Parser::Result::Version'=> '3.35',
+            'TAP::Parser::Result::YAML'=> '3.35',
+            'TAP::Parser::ResultFactory'=> '3.35',
+            'TAP::Parser::Scheduler'=> '3.35',
+            'TAP::Parser::Scheduler::Job'=> '3.35',
+            'TAP::Parser::Scheduler::Spinner'=> '3.35',
+            'TAP::Parser::Source'   => '3.35',
+            'TAP::Parser::SourceHandler'=> '3.35',
+            'TAP::Parser::SourceHandler::Executable'=> '3.35',
+            'TAP::Parser::SourceHandler::File'=> '3.35',
+            'TAP::Parser::SourceHandler::Handle'=> '3.35',
+            'TAP::Parser::SourceHandler::Perl'=> '3.35',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.35',
+            'TAP::Parser::YAMLish::Reader'=> '3.35',
+            'TAP::Parser::YAMLish::Writer'=> '3.35',
+            'Test::Builder'         => '1.301001_097',
+            'Test::Builder::Module' => '1.301001_097',
+            'Test::Builder::Tester' => '1.301001_097',
+            'Test::Builder::Tester::Color'=> '1.301001_097',
+            'Test::Harness'         => '3.35',
+            'Test::More'            => '1.301001_097',
+            'Test::Simple'          => '1.301001_097',
+            'Test::Stream'          => '1.301001_097',
+            'Test::Stream::Block'   => undef,
+            'Test::Tester'          => '1.301001_097',
+            'Test::Tester::CaptureRunner'=> undef,
+            'Test::Tester::Delegate'=> undef,
+            'Test::use::ok'         => '1.301001_097',
+            'Unicode::Collate'      => '1.10',
+            'Unicode::Collate::CJK::Big5'=> '1.10',
+            'Unicode::Collate::CJK::GB2312'=> '1.10',
+            'Unicode::Collate::CJK::JISX0208'=> '1.10',
+            'Unicode::Collate::CJK::Korean'=> '1.10',
+            'Unicode::Collate::CJK::Pinyin'=> '1.10',
+            'Unicode::Collate::CJK::Stroke'=> '1.10',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.10',
+            'Unicode::Collate::Locale'=> '1.10',
+            'VMS::DCLsym'           => '1.06',
+            'XS::APItest'           => '0.70',
+            'arybase'               => '0.10',
+            'attributes'            => '0.25',
+            'autodie'               => '2.26',
+            'autodie::Scope::Guard' => '2.26',
+            'autodie::Scope::GuardStack'=> '2.26',
+            'autodie::ScopeUtil'    => '2.26',
+            'autodie::exception'    => '2.26',
+            'autodie::exception::system'=> '2.26',
+            'autodie::hints'        => '2.26',
+            'autodie::skip'         => '2.26',
+            'ok'                    => '1.301001_097',
+            're'                    => '0.30',
+            'warnings'              => '1.30',
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+            'CPAN::Author'          => '5.5002',
+            'CPAN::CacheMgr'        => '5.5002',
+            'CPAN::FTP'             => '5.5006',
+            'CPAN::HTTP::Client'    => '1.9601',
+            'CPAN::HandleConfig'    => '5.5005',
+            'CPAN::Index'           => '1.9601',
+            'CPAN::LWP::UserAgent'  => '1.9601',
+            'CPAN::Mirrors'         => '1.9601',
+            'Config'                => '5.020002',
+            'Cwd'                   => '3.48_01',
+            'Data::Dumper'          => '2.151_01',
+            'Errno'                 => '1.20_05',
+            'File::Spec'            => '3.48_01',
+            'File::Spec::Cygwin'    => '3.48_01',
+            'File::Spec::Epoc'      => '3.48_01',
+            'File::Spec::Functions' => '3.48_01',
+            'File::Spec::Mac'       => '3.48_01',
+            'File::Spec::OS2'       => '3.48_01',
+            'File::Spec::Unix'      => '3.48_01',
+            'File::Spec::VMS'       => '3.48_01',
+            'File::Spec::Win32'     => '3.48_01',
+            'IO::Socket'            => '1.38',
+            'Module::CoreList'      => '5.20150214',
+            'Module::CoreList::TieHashDelta'=> '5.20150214',
+            'Module::CoreList::Utils'=> '5.20150214',
+            'PerlIO::scalar'        => '0.18_01',
+            'Pod::PlainText'        => '2.07',
+            'Storable'              => '2.49_01',
+            'VMS::DCLsym'           => '1.05_01',
+            'VMS::Stdio'            => '2.41',
+            'attributes'            => '0.23',
+            'feature'               => '1.36_01',
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+            'B'                     => '1.56',
+            'B::Debug'              => '1.23',
+            'B::Deparse'            => '1.33',
+            'B::Op_private'         => '5.021009',
+            'Benchmark'             => '1.20',
+            'CPAN::Author'          => '5.5002',
+            'CPAN::CacheMgr'        => '5.5002',
+            'CPAN::FTP'             => '5.5006',
+            'CPAN::HTTP::Client'    => '1.9601',
+            'CPAN::HandleConfig'    => '5.5005',
+            'CPAN::Index'           => '1.9601',
+            'CPAN::LWP::UserAgent'  => '1.9601',
+            'CPAN::Meta::Requirements'=> '2.132',
+            'CPAN::Mirrors'         => '1.9601',
+            'Carp'                  => '1.35',
+            'Carp::Heavy'           => '1.35',
+            'Config'                => '5.021009',
+            'Config::Perl::V'       => '0.23',
+            'Data::Dumper'          => '2.157',
+            'Devel::Peek'           => '1.22',
+            'DynaLoader'            => '1.31',
+            'Encode'                => '2.70',
+            'Encode::MIME::Header'  => '2.16',
+            'Errno'                 => '1.23',
+            'ExtUtils::Miniperl'    => '1.04',
+            'HTTP::Tiny'            => '0.054',
+            'Module::CoreList'      => '5.20150220',
+            'Module::CoreList::TieHashDelta'=> '5.20150220',
+            'Module::CoreList::Utils'=> '5.20150220',
+            'Opcode'                => '1.32',
+            'POSIX'                 => '1.51',
+            'Perl::OSType'          => '1.008',
+            'PerlIO::scalar'        => '0.22',
+            'Pod::Find'             => '1.63',
+            'Pod::InputObjects'     => '1.63',
+            'Pod::ParseUtils'       => '1.63',
+            'Pod::Parser'           => '1.63',
+            'Pod::Perldoc'          => '3.25',
+            'Pod::Perldoc::BaseTo'  => '3.25',
+            'Pod::Perldoc::GetOptsOO'=> '3.25',
+            'Pod::Perldoc::ToANSI'  => '3.25',
+            'Pod::Perldoc::ToChecker'=> '3.25',
+            'Pod::Perldoc::ToMan'   => '3.25',
+            'Pod::Perldoc::ToNroff' => '3.25',
+            'Pod::Perldoc::ToPod'   => '3.25',
+            'Pod::Perldoc::ToRtf'   => '3.25',
+            'Pod::Perldoc::ToTerm'  => '3.25',
+            'Pod::Perldoc::ToText'  => '3.25',
+            'Pod::Perldoc::ToTk'    => '3.25',
+            'Pod::Perldoc::ToXml'   => '3.25',
+            'Pod::PlainText'        => '2.07',
+            'Pod::Select'           => '1.63',
+            'Socket'                => '2.018',
+            'Storable'              => '2.53',
+            'Test::Builder'         => '1.301001_098',
+            'Test::Builder::Module' => '1.301001_098',
+            'Test::Builder::Tester' => '1.301001_098',
+            'Test::Builder::Tester::Color'=> '1.301001_098',
+            'Test::More'            => '1.301001_098',
+            'Test::Simple'          => '1.301001_098',
+            'Test::Stream'          => '1.301001_098',
+            'Test::Tester'          => '1.301001_098',
+            'Test::use::ok'         => '1.301001_098',
+            'Unicode::Collate'      => '1.11',
+            'Unicode::Collate::CJK::Big5'=> '1.11',
+            'Unicode::Collate::CJK::GB2312'=> '1.11',
+            'Unicode::Collate::CJK::JISX0208'=> '1.11',
+            'Unicode::Collate::CJK::Korean'=> '1.11',
+            'Unicode::Collate::CJK::Pinyin'=> '1.11',
+            'Unicode::Collate::CJK::Stroke'=> '1.11',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.11',
+            'Unicode::Collate::Locale'=> '1.11',
+            'Unicode::UCD'          => '0.61',
+            'VMS::Stdio'            => '2.41',
+            'Win32'                 => '0.51',
+            'Win32API::File'        => '0.1202',
+            'attributes'            => '0.26',
+            'bigint'                => '0.39',
+            'bignum'                => '0.39',
+            'bigrat'                => '0.39',
+            'constant'              => '1.33',
+            'encoding'              => '2.13',
+            'feature'               => '1.40',
+            'ok'                    => '1.301001_098',
+            'overload'              => '1.25',
+            'perlfaq'               => '5.021009',
+            're'                    => '0.31',
+            'threads::shared'       => '1.48',
+            'warnings'              => '1.31',
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+            'App::Cpan'             => '1.63',
+            'B'                     => '1.57',
+            'B::Deparse'            => '1.34',
+            'B::Op_private'         => '5.021010',
+            'Benchmark'             => '1.2',
+            'CPAN'                  => '2.10',
+            'CPAN::Distribution'    => '2.04',
+            'CPAN::FirstTime'       => '5.5307',
+            'CPAN::HTTP::Credentials'=> '1.9601',
+            'CPAN::HandleConfig'    => '5.5006',
+            'CPAN::Meta'            => '2.150001',
+            'CPAN::Meta::Converter' => '2.150001',
+            'CPAN::Meta::Feature'   => '2.150001',
+            'CPAN::Meta::History'   => '2.150001',
+            'CPAN::Meta::Merge'     => '2.150001',
+            'CPAN::Meta::Prereqs'   => '2.150001',
+            'CPAN::Meta::Spec'      => '2.150001',
+            'CPAN::Meta::Validator' => '2.150001',
+            'CPAN::Module'          => '5.5002',
+            'CPAN::Plugin'          => '0.95',
+            'CPAN::Plugin::Specfile'=> '0.01',
+            'CPAN::Shell'           => '5.5005',
+            'Carp'                  => '1.36',
+            'Carp::Heavy'           => '1.36',
+            'Config'                => '5.02101',
+            'Cwd'                   => '3.55',
+            'DB'                    => '1.08',
+            'Data::Dumper'          => '2.158',
+            'Devel::PPPort'         => '3.31',
+            'DynaLoader'            => '1.32',
+            'Encode'                => '2.72',
+            'Encode::Alias'         => '2.19',
+            'File::Spec'            => '3.55',
+            'File::Spec::Cygwin'    => '3.55',
+            'File::Spec::Epoc'      => '3.55',
+            'File::Spec::Functions' => '3.55',
+            'File::Spec::Mac'       => '3.55',
+            'File::Spec::OS2'       => '3.55',
+            'File::Spec::Unix'      => '3.55',
+            'File::Spec::VMS'       => '3.55',
+            'File::Spec::Win32'     => '3.55',
+            'Getopt::Long'          => '2.45',
+            'Locale::Codes'         => '3.34',
+            'Locale::Codes::Constants'=> '3.34',
+            'Locale::Codes::Country'=> '3.34',
+            'Locale::Codes::Country_Codes'=> '3.34',
+            'Locale::Codes::Country_Retired'=> '3.34',
+            'Locale::Codes::Currency'=> '3.34',
+            'Locale::Codes::Currency_Codes'=> '3.34',
+            'Locale::Codes::Currency_Retired'=> '3.34',
+            'Locale::Codes::LangExt'=> '3.34',
+            'Locale::Codes::LangExt_Codes'=> '3.34',
+            'Locale::Codes::LangExt_Retired'=> '3.34',
+            'Locale::Codes::LangFam'=> '3.34',
+            'Locale::Codes::LangFam_Codes'=> '3.34',
+            'Locale::Codes::LangFam_Retired'=> '3.34',
+            'Locale::Codes::LangVar'=> '3.34',
+            'Locale::Codes::LangVar_Codes'=> '3.34',
+            'Locale::Codes::LangVar_Retired'=> '3.34',
+            'Locale::Codes::Language'=> '3.34',
+            'Locale::Codes::Language_Codes'=> '3.34',
+            'Locale::Codes::Language_Retired'=> '3.34',
+            'Locale::Codes::Script' => '3.34',
+            'Locale::Codes::Script_Codes'=> '3.34',
+            'Locale::Codes::Script_Retired'=> '3.34',
+            'Locale::Country'       => '3.34',
+            'Locale::Currency'      => '3.34',
+            'Locale::Language'      => '3.34',
+            'Locale::Script'        => '3.34',
+            'Module::CoreList'      => '5.20150320',
+            'Module::CoreList::TieHashDelta'=> '5.20150320',
+            'Module::CoreList::Utils'=> '5.20150320',
+            'POSIX'                 => '1.52',
+            'Pod::Functions'        => '1.09',
+            'Pod::Functions::Functions'=> '1.09',
+            'Term::Complete'        => '1.403',
+            'Test::Builder'         => '1.001014',
+            'Test::Builder::IO::Scalar'=> '2.113',
+            'Test::Builder::Module' => '1.001014',
+            'Test::Builder::Tester' => '1.28',
+            'Test::Builder::Tester::Color'=> '1.290001',
+            'Test::More'            => '1.001014',
+            'Test::Simple'          => '1.001014',
+            'Test::Tester'          => '0.114',
+            'Test::use::ok'         => '0.16',
+            'Text::Balanced'        => '2.03',
+            'Text::ParseWords'      => '3.30',
+            'Unicode::Collate'      => '1.12',
+            'Unicode::Collate::CJK::Big5'=> '1.12',
+            'Unicode::Collate::CJK::GB2312'=> '1.12',
+            'Unicode::Collate::CJK::JISX0208'=> '1.12',
+            'Unicode::Collate::CJK::Korean'=> '1.12',
+            'Unicode::Collate::CJK::Pinyin'=> '1.12',
+            'Unicode::Collate::CJK::Stroke'=> '1.12',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.12',
+            'Unicode::Collate::Locale'=> '1.12',
+            'XS::APItest'           => '0.71',
+            'encoding'              => '2.14',
+            'locale'                => '1.06',
+            'meta_notation'         => undef,
+            'ok'                    => '0.16',
+            'parent'                => '0.232',
+            're'                    => '0.32',
+            'sigtrap'               => '1.08',
+            'threads'               => '2.01',
+            'utf8'                  => '1.15',
+        },
+        removed => {
+            'Test::CanFork'         => 1,
+            'Test::CanThread'       => 1,
+            'Test::More::DeepCheck' => 1,
+            'Test::More::DeepCheck::Strict'=> 1,
+            'Test::More::DeepCheck::Tolerant'=> 1,
+            'Test::More::Tools'     => 1,
+            'Test::MostlyLike'      => 1,
+            'Test::Stream'          => 1,
+            'Test::Stream::API'     => 1,
+            'Test::Stream::ArrayBase'=> 1,
+            'Test::Stream::ArrayBase::Meta'=> 1,
+            'Test::Stream::Block'   => 1,
+            'Test::Stream::Carp'    => 1,
+            'Test::Stream::Context' => 1,
+            'Test::Stream::Event'   => 1,
+            'Test::Stream::Event::Bail'=> 1,
+            'Test::Stream::Event::Child'=> 1,
+            'Test::Stream::Event::Diag'=> 1,
+            'Test::Stream::Event::Finish'=> 1,
+            'Test::Stream::Event::Note'=> 1,
+            'Test::Stream::Event::Ok'=> 1,
+            'Test::Stream::Event::Plan'=> 1,
+            'Test::Stream::Event::Subtest'=> 1,
+            'Test::Stream::ExitMagic'=> 1,
+            'Test::Stream::ExitMagic::Context'=> 1,
+            'Test::Stream::Exporter'=> 1,
+            'Test::Stream::Exporter::Meta'=> 1,
+            'Test::Stream::ForceExit'=> 1,
+            'Test::Stream::IOSets'  => 1,
+            'Test::Stream::Meta'    => 1,
+            'Test::Stream::PackageUtil'=> 1,
+            'Test::Stream::Subtest' => 1,
+            'Test::Stream::Tester'  => 1,
+            'Test::Stream::Tester::Checks'=> 1,
+            'Test::Stream::Tester::Checks::Event'=> 1,
+            'Test::Stream::Tester::Events'=> 1,
+            'Test::Stream::Tester::Events::Event'=> 1,
+            'Test::Stream::Tester::Grab'=> 1,
+            'Test::Stream::Threads' => 1,
+            'Test::Stream::Toolset' => 1,
+            'Test::Stream::Util'    => 1,
+        }
+    },
+    5.021011 => {
+        delta_from => 5.021010,
+        changed => {
+            'B'                     => '1.58',
+            'B::Deparse'            => '1.35',
+            'B::Op_private'         => '5.021011',
+            'CPAN'                  => '2.11',
+            'Config'                => '5.021011',
+            'Config::Perl::V'       => '0.24',
+            'Cwd'                   => '3.56',
+            'ExtUtils::Miniperl'    => '1.05',
+            'ExtUtils::ParseXS'     => '3.28',
+            'ExtUtils::ParseXS::Constants'=> '3.28',
+            'ExtUtils::ParseXS::CountLines'=> '3.28',
+            'ExtUtils::ParseXS::Eval'=> '3.28',
+            'ExtUtils::ParseXS::Utilities'=> '3.28',
+            'ExtUtils::Typemaps'    => '3.28',
+            'ExtUtils::Typemaps::Cmd'=> '3.28',
+            'ExtUtils::Typemaps::InputMap'=> '3.28',
+            'ExtUtils::Typemaps::OutputMap'=> '3.28',
+            'ExtUtils::Typemaps::Type'=> '3.28',
+            'File::Spec'            => '3.56',
+            'File::Spec::Cygwin'    => '3.56',
+            'File::Spec::Epoc'      => '3.56',
+            'File::Spec::Functions' => '3.56',
+            'File::Spec::Mac'       => '3.56',
+            'File::Spec::OS2'       => '3.56',
+            'File::Spec::Unix'      => '3.56',
+            'File::Spec::VMS'       => '3.56',
+            'File::Spec::Win32'     => '3.56',
+            'IO::Socket::IP'        => '0.37',
+            'Module::CoreList'      => '5.20150420',
+            'Module::CoreList::TieHashDelta'=> '5.20150420',
+            'Module::CoreList::Utils'=> '5.20150420',
+            'PerlIO::mmap'          => '0.014',
+            'XS::APItest'           => '0.72',
+            'attributes'            => '0.27',
+            'if'                    => '0.0604',
+            'utf8'                  => '1.16',
+            'warnings'              => '1.32',
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+            'B::Op_private'         => '5.022000',
+            'Config'                => '5.022',
+            'ExtUtils::Command::MM' => '7.04_01',
+            'ExtUtils::Liblist'     => '7.04_01',
+            'ExtUtils::Liblist::Kid'=> '7.04_01',
+            'ExtUtils::MM'          => '7.04_01',
+            'ExtUtils::MM_AIX'      => '7.04_01',
+            'ExtUtils::MM_Any'      => '7.04_01',
+            'ExtUtils::MM_BeOS'     => '7.04_01',
+            'ExtUtils::MM_Cygwin'   => '7.04_01',
+            'ExtUtils::MM_DOS'      => '7.04_01',
+            'ExtUtils::MM_Darwin'   => '7.04_01',
+            'ExtUtils::MM_MacOS'    => '7.04_01',
+            'ExtUtils::MM_NW5'      => '7.04_01',
+            'ExtUtils::MM_OS2'      => '7.04_01',
+            'ExtUtils::MM_QNX'      => '7.04_01',
+            'ExtUtils::MM_UWIN'     => '7.04_01',
+            'ExtUtils::MM_Unix'     => '7.04_01',
+            'ExtUtils::MM_VMS'      => '7.04_01',
+            'ExtUtils::MM_VOS'      => '7.04_01',
+            'ExtUtils::MM_Win32'    => '7.04_01',
+            'ExtUtils::MM_Win95'    => '7.04_01',
+            'ExtUtils::MY'          => '7.04_01',
+            'ExtUtils::MakeMaker'   => '7.04_01',
+            'ExtUtils::MakeMaker::Config'=> '7.04_01',
+            'ExtUtils::MakeMaker::Locale'=> '7.04_01',
+            'ExtUtils::MakeMaker::version'=> '7.04_01',
+            'ExtUtils::MakeMaker::version::regex'=> '7.04_01',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.04_01',
+            'ExtUtils::Mkbootstrap' => '7.04_01',
+            'ExtUtils::Mksymlists'  => '7.04_01',
+            'ExtUtils::testlib'     => '7.04_01',
+            'Module::CoreList'      => '5.20150520',
+            'Module::CoreList::TieHashDelta'=> '5.20150520',
+            'Module::CoreList::Utils'=> '5.20150520',
+            'POSIX'                 => '1.53',
+            'PerlIO::via::QuotedPrint'=> '0.08',
+            'overload'              => '1.26',
+            'utf8'                  => '1.17',
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+            'B::Op_private'         => '5.023000',
+            'CPAN::Meta'            => '2.150005',
+            'CPAN::Meta::Converter' => '2.150005',
+            'CPAN::Meta::Feature'   => '2.150005',
+            'CPAN::Meta::History'   => '2.150005',
+            'CPAN::Meta::Merge'     => '2.150005',
+            'CPAN::Meta::Prereqs'   => '2.150005',
+            'CPAN::Meta::Requirements'=> '2.133',
+            'CPAN::Meta::Spec'      => '2.150005',
+            'CPAN::Meta::Validator' => '2.150005',
+            'CPAN::Meta::YAML'      => '0.016',
+            'Config'                => '5.023',
+            'Encode'                => '2.73',
+            'ExtUtils::CBuilder'    => '0.280223',
+            'ExtUtils::CBuilder::Base'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280223',
+            'Fatal'                 => '2.27',
+            'Getopt::Long'          => '2.46',
+            'HTTP::Tiny'            => '0.056',
+            'List::Util'            => '1.42_01',
+            'List::Util::XS'        => '1.42_01',
+            'Locale::Codes'         => '3.35',
+            'Locale::Codes::Constants'=> '3.35',
+            'Locale::Codes::Country'=> '3.35',
+            'Locale::Codes::Country_Codes'=> '3.35',
+            'Locale::Codes::Country_Retired'=> '3.35',
+            'Locale::Codes::Currency'=> '3.35',
+            'Locale::Codes::Currency_Codes'=> '3.35',
+            'Locale::Codes::Currency_Retired'=> '3.35',
+            'Locale::Codes::LangExt'=> '3.35',
+            'Locale::Codes::LangExt_Codes'=> '3.35',
+            'Locale::Codes::LangExt_Retired'=> '3.35',
+            'Locale::Codes::LangFam'=> '3.35',
+            'Locale::Codes::LangFam_Codes'=> '3.35',
+            'Locale::Codes::LangFam_Retired'=> '3.35',
+            'Locale::Codes::LangVar'=> '3.35',
+            'Locale::Codes::LangVar_Codes'=> '3.35',
+            'Locale::Codes::LangVar_Retired'=> '3.35',
+            'Locale::Codes::Language'=> '3.35',
+            'Locale::Codes::Language_Codes'=> '3.35',
+            'Locale::Codes::Language_Retired'=> '3.35',
+            'Locale::Codes::Script' => '3.35',
+            'Locale::Codes::Script_Codes'=> '3.35',
+            'Locale::Codes::Script_Retired'=> '3.35',
+            'Locale::Country'       => '3.35',
+            'Locale::Currency'      => '3.35',
+            'Locale::Language'      => '3.35',
+            'Locale::Script'        => '3.35',
+            'Math::BigFloat'        => '1.999701',
+            'Math::BigInt'          => '1.999701',
+            'Math::BigInt::Calc'    => '1.999701',
+            'Math::BigInt::CalcEmu' => '1.999701',
+            'Math::BigRat'          => '0.260801',
+            'Module::CoreList'      => '5.20150620',
+            'Module::CoreList::TieHashDelta'=> '5.20150620',
+            'Module::CoreList::Utils'=> '5.20150620',
+            'Module::Metadata'      => '1.000027',
+            'Net::Cmd'              => '3.06',
+            'Net::Config'           => '3.06',
+            'Net::Domain'           => '3.06',
+            'Net::FTP'              => '3.06',
+            'Net::FTP::A'           => '3.06',
+            'Net::FTP::E'           => '3.06',
+            'Net::FTP::I'           => '3.06',
+            'Net::FTP::L'           => '3.06',
+            'Net::FTP::dataconn'    => '3.06',
+            'Net::NNTP'             => '3.06',
+            'Net::Netrc'            => '3.06',
+            'Net::POP3'             => '3.06',
+            'Net::SMTP'             => '3.06',
+            'Net::Time'             => '3.06',
+            'POSIX'                 => '1.54',
+            'Parse::CPAN::Meta'     => '1.4417',
+            'Pod::Simple'           => '3.30',
+            'Pod::Simple::BlackBox' => '3.30',
+            'Pod::Simple::Checker'  => '3.30',
+            'Pod::Simple::Debug'    => '3.30',
+            'Pod::Simple::DumpAsText'=> '3.30',
+            'Pod::Simple::DumpAsXML'=> '3.30',
+            'Pod::Simple::HTML'     => '3.30',
+            'Pod::Simple::HTMLBatch'=> '3.30',
+            'Pod::Simple::LinkSection'=> '3.30',
+            'Pod::Simple::Methody'  => '3.30',
+            'Pod::Simple::Progress' => '3.30',
+            'Pod::Simple::PullParser'=> '3.30',
+            'Pod::Simple::PullParserEndToken'=> '3.30',
+            'Pod::Simple::PullParserStartToken'=> '3.30',
+            'Pod::Simple::PullParserTextToken'=> '3.30',
+            'Pod::Simple::PullParserToken'=> '3.30',
+            'Pod::Simple::RTF'      => '3.30',
+            'Pod::Simple::Search'   => '3.30',
+            'Pod::Simple::SimpleTree'=> '3.30',
+            'Pod::Simple::Text'     => '3.30',
+            'Pod::Simple::TextContent'=> '3.30',
+            'Pod::Simple::TiedOutFH'=> '3.30',
+            'Pod::Simple::Transcode'=> '3.30',
+            'Pod::Simple::TranscodeDumb'=> '3.30',
+            'Pod::Simple::TranscodeSmart'=> '3.30',
+            'Pod::Simple::XHTML'    => '3.30',
+            'Pod::Simple::XMLOutStream'=> '3.30',
+            'Pod::Usage'            => '1.67',
+            'Scalar::Util'          => '1.42_01',
+            'Socket'                => '2.019',
+            'Sub::Util'             => '1.42_01',
+            'Time::Piece'           => '1.30',
+            'Time::Seconds'         => '1.30',
+            'UNIVERSAL'             => '1.13',
+            'Unicode'               => '8.0.0',
+            'XS::APItest'           => '0.73',
+            'autodie'               => '2.27',
+            'autodie::Scope::Guard' => '2.27',
+            'autodie::Scope::GuardStack'=> '2.27',
+            'autodie::Util'         => '2.27',
+            'autodie::exception'    => '2.27',
+            'autodie::exception::system'=> '2.27',
+            'autodie::hints'        => '2.27',
+            'autodie::skip'         => '2.27',
+            'encoding'              => '2.15',
+            'feature'               => '1.41',
+            'parent'                => '0.234',
+            'threads'               => '2.02',
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023000,
+        changed => {
+            'B::Op_private'         => '5.023001',
+            'Config'                => '5.023001',
+            'DynaLoader'            => '1.33',
+            'Encode'                => '2.75',
+            'Encode::MIME::Header'  => '2.17',
+            'Encode::Unicode'       => '2.13',
+            'Fatal'                 => '2.29',
+            'File::Path'            => '2.11',
+            'Getopt::Long'          => '2.47',
+            'I18N::Langinfo'        => '0.13',
+            'IPC::Open3'            => '1.19',
+            'Module::CoreList'      => '5.20150720',
+            'Module::CoreList::TieHashDelta'=> '5.20150720',
+            'Module::CoreList::Utils'=> '5.20150720',
+            'Net::Cmd'              => '3.07',
+            'Net::Config'           => '3.07',
+            'Net::Domain'           => '3.07',
+            'Net::FTP'              => '3.07',
+            'Net::FTP::A'           => '3.07',
+            'Net::FTP::E'           => '3.07',
+            'Net::FTP::I'           => '3.07',
+            'Net::FTP::L'           => '3.07',
+            'Net::FTP::dataconn'    => '3.07',
+            'Net::NNTP'             => '3.07',
+            'Net::Netrc'            => '3.07',
+            'Net::POP3'             => '3.07',
+            'Net::SMTP'             => '3.07',
+            'Net::Time'             => '3.07',
+            'Opcode'                => '1.33',
+            'POSIX'                 => '1.55',
+            'PerlIO::scalar'        => '0.23',
+            'Socket'                => '2.020',
+            'Storable'              => '2.54',
+            'Unicode::Collate'      => '1.14',
+            'Unicode::Collate::CJK::Big5'=> '1.14',
+            'Unicode::Collate::CJK::GB2312'=> '1.14',
+            'Unicode::Collate::CJK::JISX0208'=> '1.14',
+            'Unicode::Collate::CJK::Korean'=> '1.14',
+            'Unicode::Collate::CJK::Pinyin'=> '1.14',
+            'Unicode::Collate::CJK::Stroke'=> '1.14',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.14',
+            'Unicode::Collate::Locale'=> '1.14',
+            'Unicode::Normalize'    => '1.19',
+            'XS::APItest'           => '0.74',
+            'XS::Typemap'           => '0.14',
+            'autodie'               => '2.29',
+            'autodie::Scope::Guard' => '2.29',
+            'autodie::Scope::GuardStack'=> '2.29',
+            'autodie::Util'         => '2.29',
+            'autodie::exception'    => '2.29',
+            'autodie::exception::system'=> '2.29',
+            'autodie::hints'        => '2.29',
+            'autodie::skip'         => '2.29',
+            'encoding'              => '2.16',
+            'feature'               => '1.42',
+            'warnings'              => '1.33',
+        },
+        removed => {
+            'autodie::ScopeUtil'    => 1,
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+            'Attribute::Handlers'   => '0.99',
+            'B::Op_private'         => '5.023002',
+            'CPAN::Meta::YAML'      => '0.017',
+            'Config'                => '5.023002',
+            'Cwd'                   => '3.57',
+            'Encode'                => '2.76',
+            'ExtUtils::ParseXS'     => '3.29',
+            'ExtUtils::ParseXS::Constants'=> '3.29',
+            'ExtUtils::ParseXS::CountLines'=> '3.29',
+            'ExtUtils::ParseXS::Eval'=> '3.29',
+            'ExtUtils::ParseXS::Utilities'=> '3.29',
+            'ExtUtils::Typemaps'    => '3.29',
+            'File::Find'            => '1.30',
+            'File::Spec'            => '3.57',
+            'File::Spec::Cygwin'    => '3.57',
+            'File::Spec::Epoc'      => '3.57',
+            'File::Spec::Functions' => '3.57',
+            'File::Spec::Mac'       => '3.57',
+            'File::Spec::OS2'       => '3.57',
+            'File::Spec::Unix'      => '3.57',
+            'File::Spec::VMS'       => '3.57',
+            'File::Spec::Win32'     => '3.57',
+            'Filter::Util::Call'    => '1.55',
+            'Hash::Util'            => '0.19',
+            'Module::CoreList'      => '5.20150820',
+            'Module::CoreList::TieHashDelta'=> '5.20150820',
+            'Module::CoreList::Utils'=> '5.20150820',
+            'POSIX'                 => '1.56',
+            'Term::Cap'             => '1.17',
+            'Unicode::UCD'          => '0.62',
+            'perlfaq'               => '5.021010',
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+            'Config'                => '5.020003',
+            'Errno'                 => '1.20_06',
+            'Module::CoreList'      => '5.20150912',
+            'Module::CoreList::TieHashDelta'=> '5.20150912',
+            'Module::CoreList::Utils'=> '5.20150912',
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+            'Amiga::ARexx'          => '0.02',
+            'Amiga::Exec'           => '0.01',
+            'B'                     => '1.59',
+            'B::Op_private'         => '5.023003',
+            'Carp'                  => '1.37',
+            'Carp::Heavy'           => '1.37',
+            'Compress::Raw::Zlib'   => '2.068_01',
+            'Config'                => '5.023003',
+            'Cwd'                   => '3.58',
+            'DynaLoader'            => '1.34',
+            'Encode'                => '2.77',
+            'Encode::Unicode'       => '2.14',
+            'English'               => '1.10',
+            'Errno'                 => '1.24',
+            'ExtUtils::Command'     => '7.10',
+            'ExtUtils::Command::MM' => '7.10',
+            'ExtUtils::Liblist'     => '7.10',
+            'ExtUtils::Liblist::Kid'=> '7.10',
+            'ExtUtils::MM'          => '7.10',
+            'ExtUtils::MM_AIX'      => '7.10',
+            'ExtUtils::MM_Any'      => '7.10',
+            'ExtUtils::MM_BeOS'     => '7.10',
+            'ExtUtils::MM_Cygwin'   => '7.10',
+            'ExtUtils::MM_DOS'      => '7.10',
+            'ExtUtils::MM_Darwin'   => '7.10',
+            'ExtUtils::MM_MacOS'    => '7.10',
+            'ExtUtils::MM_NW5'      => '7.10',
+            'ExtUtils::MM_OS2'      => '7.10',
+            'ExtUtils::MM_QNX'      => '7.10',
+            'ExtUtils::MM_UWIN'     => '7.10',
+            'ExtUtils::MM_Unix'     => '7.10',
+            'ExtUtils::MM_VMS'      => '7.10',
+            'ExtUtils::MM_VOS'      => '7.10',
+            'ExtUtils::MM_Win32'    => '7.10',
+            'ExtUtils::MM_Win95'    => '7.10',
+            'ExtUtils::MY'          => '7.10',
+            'ExtUtils::MakeMaker'   => '7.10',
+            'ExtUtils::MakeMaker::Config'=> '7.10',
+            'ExtUtils::MakeMaker::Locale'=> '7.10',
+            'ExtUtils::MakeMaker::version'=> '7.10',
+            'ExtUtils::MakeMaker::version::regex'=> '7.10',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.10',
+            'ExtUtils::Mkbootstrap' => '7.10',
+            'ExtUtils::Mksymlists'  => '7.10',
+            'ExtUtils::ParseXS'     => '3.30',
+            'ExtUtils::ParseXS::Constants'=> '3.30',
+            'ExtUtils::ParseXS::CountLines'=> '3.30',
+            'ExtUtils::ParseXS::Eval'=> '3.30',
+            'ExtUtils::ParseXS::Utilities'=> '3.30',
+            'ExtUtils::Typemaps'    => '3.30',
+            'ExtUtils::Typemaps::Cmd'=> '3.30',
+            'ExtUtils::Typemaps::InputMap'=> '3.30',
+            'ExtUtils::Typemaps::OutputMap'=> '3.30',
+            'ExtUtils::Typemaps::Type'=> '3.30',
+            'ExtUtils::testlib'     => '7.10',
+            'File::Find'            => '1.31',
+            'File::Glob'            => '1.25',
+            'File::Spec'            => '3.58',
+            'File::Spec::AmigaOS'   => '3.58',
+            'File::Spec::Cygwin'    => '3.58',
+            'File::Spec::Epoc'      => '3.58',
+            'File::Spec::Functions' => '3.58',
+            'File::Spec::Mac'       => '3.58',
+            'File::Spec::OS2'       => '3.58',
+            'File::Spec::Unix'      => '3.58',
+            'File::Spec::VMS'       => '3.58',
+            'File::Spec::Win32'     => '3.58',
+            'Hash::Util::FieldHash' => '1.17',
+            'Locale::Codes'         => '3.36',
+            'Locale::Codes::Constants'=> '3.36',
+            'Locale::Codes::Country'=> '3.36',
+            'Locale::Codes::Country_Codes'=> '3.36',
+            'Locale::Codes::Country_Retired'=> '3.36',
+            'Locale::Codes::Currency'=> '3.36',
+            'Locale::Codes::Currency_Codes'=> '3.36',
+            'Locale::Codes::Currency_Retired'=> '3.36',
+            'Locale::Codes::LangExt'=> '3.36',
+            'Locale::Codes::LangExt_Codes'=> '3.36',
+            'Locale::Codes::LangExt_Retired'=> '3.36',
+            'Locale::Codes::LangFam'=> '3.36',
+            'Locale::Codes::LangFam_Codes'=> '3.36',
+            'Locale::Codes::LangFam_Retired'=> '3.36',
+            'Locale::Codes::LangVar'=> '3.36',
+            'Locale::Codes::LangVar_Codes'=> '3.36',
+            'Locale::Codes::LangVar_Retired'=> '3.36',
+            'Locale::Codes::Language'=> '3.36',
+            'Locale::Codes::Language_Codes'=> '3.36',
+            'Locale::Codes::Language_Retired'=> '3.36',
+            'Locale::Codes::Script' => '3.36',
+            'Locale::Codes::Script_Codes'=> '3.36',
+            'Locale::Codes::Script_Retired'=> '3.36',
+            'Locale::Country'       => '3.36',
+            'Locale::Currency'      => '3.36',
+            'Locale::Language'      => '3.36',
+            'Locale::Script'        => '3.36',
+            'Math::BigFloat::Trace' => '0.40',
+            'Math::BigInt::Trace'   => '0.40',
+            'Module::CoreList'      => '5.20150920',
+            'Module::CoreList::TieHashDelta'=> '5.20150920',
+            'Module::CoreList::Utils'=> '5.20150920',
+            'OS2::DLL'              => '1.06',
+            'OS2::ExtAttr'          => '0.04',
+            'OS2::Process'          => '1.11',
+            'OS2::REXX'             => '1.05',
+            'POSIX'                 => '1.57',
+            'Pod::Perldoc'          => '3.25_01',
+            'Socket'                => '2.020_01',
+            'Test'                  => '1.27',
+            'Thread::Queue'         => '3.06',
+            'Time::HiRes'           => '1.9727_02',
+            'Unicode::UCD'          => '0.63',
+            'Win32'                 => '0.52',
+            'XS::APItest'           => '0.75',
+            'bigint'                => '0.40',
+            'bignum'                => '0.40',
+            'bigrat'                => '0.40',
+            'encoding'              => '2.17',
+            'experimental'          => '0.014',
+            'if'                    => '0.0605',
+            'locale'                => '1.07',
+            'mro'                   => '1.18',
+            'threads'               => '2.03',
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+            'B'                     => '1.60',
+            'B::Op_private'         => '5.023004',
+            'Compress::Raw::Bzip2'  => '2.069',
+            'Compress::Raw::Zlib'   => '2.069',
+            'Compress::Zlib'        => '2.069',
+            'Config'                => '5.023004',
+            'Devel::PPPort'         => '3.32',
+            'DynaLoader'            => '1.35',
+            'Encode'                => '2.78',
+            'ExtUtils::CBuilder'    => '0.280224',
+            'ExtUtils::CBuilder::Base'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280224',
+            'File::Path'            => '2.12',
+            'IO'                    => '1.36',
+            'IO::Compress::Adapter::Bzip2'=> '2.069',
+            'IO::Compress::Adapter::Deflate'=> '2.069',
+            'IO::Compress::Adapter::Identity'=> '2.069',
+            'IO::Compress::Base'    => '2.069',
+            'IO::Compress::Base::Common'=> '2.069',
+            'IO::Compress::Bzip2'   => '2.069',
+            'IO::Compress::Deflate' => '2.069',
+            'IO::Compress::Gzip'    => '2.069',
+            'IO::Compress::Gzip::Constants'=> '2.069',
+            'IO::Compress::RawDeflate'=> '2.069',
+            'IO::Compress::Zip'     => '2.069',
+            'IO::Compress::Zip::Constants'=> '2.069',
+            'IO::Compress::Zlib::Constants'=> '2.069',
+            'IO::Compress::Zlib::Extra'=> '2.069',
+            'IO::Poll'              => '0.10',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069',
+            'IO::Uncompress::Adapter::Identity'=> '2.069',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069',
+            'IO::Uncompress::AnyInflate'=> '2.069',
+            'IO::Uncompress::AnyUncompress'=> '2.069',
+            'IO::Uncompress::Base'  => '2.069',
+            'IO::Uncompress::Bunzip2'=> '2.069',
+            'IO::Uncompress::Gunzip'=> '2.069',
+            'IO::Uncompress::Inflate'=> '2.069',
+            'IO::Uncompress::RawInflate'=> '2.069',
+            'IO::Uncompress::Unzip' => '2.069',
+            'Math::BigFloat'        => '1.999704',
+            'Math::BigFloat::Trace' => '0.41',
+            'Math::BigInt'          => '1.999704',
+            'Math::BigInt::Calc'    => '1.999704',
+            'Math::BigInt::CalcEmu' => '1.999704',
+            'Math::BigInt::FastCalc'=> '0.34',
+            'Math::BigInt::Trace'   => '0.41',
+            'Module::CoreList'      => '5.20151020',
+            'Module::CoreList::TieHashDelta'=> '5.20151020',
+            'Module::CoreList::Utils'=> '5.20151020',
+            'Module::Metadata'      => '1.000029',
+            'POSIX'                 => '1.58',
+            'Perl::OSType'          => '1.009',
+            'PerlIO::encoding'      => '0.22',
+            'Socket'                => '2.020_02',
+            'Unicode::Normalize'    => '1.21',
+            'XS::APItest'           => '0.76',
+            'bigint'                => '0.41',
+            'bignum'                => '0.41',
+            'bigrat'                => '0.41',
+            'experimental'          => '0.016',
+            'if'                    => '0.0606',
+            'warnings'              => '1.35',
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+            'B'                     => '1.61',
+            'B::Op_private'         => '5.023005',
+            'Carp'                  => '1.38',
+            'Carp::Heavy'           => '1.38',
+            'Config'                => '5.023005',
+            'Config::Perl::V'       => '0.25',
+            'Cwd'                   => '3.59',
+            'Devel::Peek'           => '1.23',
+            'Dumpvalue'             => '1.18',
+            'DynaLoader'            => '1.36',
+            'File::Find'            => '1.32',
+            'File::Spec'            => '3.59',
+            'File::Spec::AmigaOS'   => '3.59',
+            'File::Spec::Cygwin'    => '3.59',
+            'File::Spec::Epoc'      => '3.59',
+            'File::Spec::Functions' => '3.59',
+            'File::Spec::Mac'       => '3.59',
+            'File::Spec::OS2'       => '3.59',
+            'File::Spec::Unix'      => '3.59',
+            'File::Spec::VMS'       => '3.59',
+            'File::Spec::Win32'     => '3.59',
+            'Getopt::Long'          => '2.48',
+            'Hash::Util::FieldHash' => '1.18',
+            'IPC::Open3'            => '1.20',
+            'Math::BigFloat'        => '1.999710',
+            'Math::BigInt'          => '1.999710',
+            'Math::BigInt::Calc'    => '1.999710',
+            'Math::BigInt::CalcEmu' => '1.999710',
+            'Math::BigInt::FastCalc'=> '0.37',
+            'Module::CoreList'      => '5.20151120',
+            'Module::CoreList::TieHashDelta'=> '5.20151120',
+            'Module::CoreList::Utils'=> '5.20151120',
+            'Module::Metadata'      => '1.000030',
+            'POSIX'                 => '1.59',
+            'PerlIO::encoding'      => '0.23',
+            'PerlIO::mmap'          => '0.015',
+            'PerlIO::scalar'        => '0.24',
+            'PerlIO::via'           => '0.16',
+            'Pod::Simple'           => '3.32',
+            'Pod::Simple::BlackBox' => '3.32',
+            'Pod::Simple::Checker'  => '3.32',
+            'Pod::Simple::Debug'    => '3.32',
+            'Pod::Simple::DumpAsText'=> '3.32',
+            'Pod::Simple::DumpAsXML'=> '3.32',
+            'Pod::Simple::HTML'     => '3.32',
+            'Pod::Simple::HTMLBatch'=> '3.32',
+            'Pod::Simple::LinkSection'=> '3.32',
+            'Pod::Simple::Methody'  => '3.32',
+            'Pod::Simple::Progress' => '3.32',
+            'Pod::Simple::PullParser'=> '3.32',
+            'Pod::Simple::PullParserEndToken'=> '3.32',
+            'Pod::Simple::PullParserStartToken'=> '3.32',
+            'Pod::Simple::PullParserTextToken'=> '3.32',
+            'Pod::Simple::PullParserToken'=> '3.32',
+            'Pod::Simple::RTF'      => '3.32',
+            'Pod::Simple::Search'   => '3.32',
+            'Pod::Simple::SimpleTree'=> '3.32',
+            'Pod::Simple::Text'     => '3.32',
+            'Pod::Simple::TextContent'=> '3.32',
+            'Pod::Simple::TiedOutFH'=> '3.32',
+            'Pod::Simple::Transcode'=> '3.32',
+            'Pod::Simple::TranscodeDumb'=> '3.32',
+            'Pod::Simple::TranscodeSmart'=> '3.32',
+            'Pod::Simple::XHTML'    => '3.32',
+            'Pod::Simple::XMLOutStream'=> '3.32',
+            'Thread::Queue'         => '3.07',
+            'Tie::Scalar'           => '1.04',
+            'Time::HiRes'           => '1.9728',
+            'Time::Piece'           => '1.31',
+            'Time::Seconds'         => '1.31',
+            'Unicode::Normalize'    => '1.23',
+            'XSLoader'              => '0.21',
+            'arybase'               => '0.11',
+            'base'                  => '2.22_01',
+            'fields'                => '2.22_01',
+            'threads'               => '2.04',
+            'threads::shared'       => '1.49',
+        },
+        removed => {
+            'ExtUtils::MakeMaker::version::vpp'=> 1,
+            'version::vpp'          => 1,
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+            'B::Op_private'         => '5.022001',
+            'Config'                => '5.022001',
+            'Module::CoreList'      => '5.20151213',
+            'Module::CoreList::TieHashDelta'=> '5.20151213',
+            'Module::CoreList::Utils'=> '5.20151213',
+            'POSIX'                 => '1.53_01',
+            'PerlIO::scalar'        => '0.23',
+            'Storable'              => '2.53_01',
+            'Win32'                 => '0.52',
+            'warnings'              => '1.34',
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+            'B::Deparse'            => '1.36',
+            'B::Op_private'         => '5.023006',
+            'Benchmark'             => '1.21',
+            'CPAN::Meta::Requirements'=> '2.140',
+            'CPAN::Meta::YAML'      => '0.018',
+            'Config'                => '5.023006',
+            'Cwd'                   => '3.60',
+            'Data::Dumper'          => '2.159',
+            'DynaLoader'            => '1.37',
+            'File::Spec'            => '3.60',
+            'File::Spec::AmigaOS'   => '3.60',
+            'File::Spec::Cygwin'    => '3.60',
+            'File::Spec::Epoc'      => '3.60',
+            'File::Spec::Functions' => '3.60',
+            'File::Spec::Mac'       => '3.60',
+            'File::Spec::OS2'       => '3.60',
+            'File::Spec::Unix'      => '3.60',
+            'File::Spec::VMS'       => '3.60',
+            'File::Spec::Win32'     => '3.60',
+            'Hash::Util::FieldHash' => '1.19',
+            'Locale::Codes'         => '3.37',
+            'Locale::Codes::Constants'=> '3.37',
+            'Locale::Codes::Country'=> '3.37',
+            'Locale::Codes::Country_Codes'=> '3.37',
+            'Locale::Codes::Country_Retired'=> '3.37',
+            'Locale::Codes::Currency'=> '3.37',
+            'Locale::Codes::Currency_Codes'=> '3.37',
+            'Locale::Codes::Currency_Retired'=> '3.37',
+            'Locale::Codes::LangExt'=> '3.37',
+            'Locale::Codes::LangExt_Codes'=> '3.37',
+            'Locale::Codes::LangExt_Retired'=> '3.37',
+            'Locale::Codes::LangFam'=> '3.37',
+            'Locale::Codes::LangFam_Codes'=> '3.37',
+            'Locale::Codes::LangFam_Retired'=> '3.37',
+            'Locale::Codes::LangVar'=> '3.37',
+            'Locale::Codes::LangVar_Codes'=> '3.37',
+            'Locale::Codes::LangVar_Retired'=> '3.37',
+            'Locale::Codes::Language'=> '3.37',
+            'Locale::Codes::Language_Codes'=> '3.37',
+            'Locale::Codes::Language_Retired'=> '3.37',
+            'Locale::Codes::Script' => '3.37',
+            'Locale::Codes::Script_Codes'=> '3.37',
+            'Locale::Codes::Script_Retired'=> '3.37',
+            'Locale::Country'       => '3.37',
+            'Locale::Currency'      => '3.37',
+            'Locale::Language'      => '3.37',
+            'Locale::Script'        => '3.37',
+            'Math::BigInt::FastCalc'=> '0.38',
+            'Module::CoreList'      => '5.20151220',
+            'Module::CoreList::TieHashDelta'=> '5.20151220',
+            'Module::CoreList::Utils'=> '5.20151220',
+            'Module::Metadata'      => '1.000031',
+            'Opcode'                => '1.34',
+            'PerlIO::mmap'          => '0.016',
+            'Pod::Perldoc'          => '3.25_02',
+            'SDBM_File'             => '1.14',
+            'Term::ANSIColor'       => '4.04',
+            'Test'                  => '1.28',
+            'Unicode::Normalize'    => '1.24',
+            'XS::APItest'           => '0.77',
+            'base'                  => '2.23',
+            'encoding::warnings'    => '0.12',
+            'fields'                => '2.23',
+            'locale'                => '1.08',
+            'strict'                => '1.10',
+            'threads'               => '2.05',
+            'threads::shared'       => '1.50',
+            'utf8'                  => '1.18',
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+            'App::Prove'            => '3.36',
+            'App::Prove::State'     => '3.36',
+            'App::Prove::State::Result'=> '3.36',
+            'App::Prove::State::Result::Test'=> '3.36',
+            'B'                     => '1.62',
+            'B::Deparse'            => '1.37',
+            'B::Op_private'         => '5.023007',
+            'Benchmark'             => '1.22',
+            'Config'                => '5.023007',
+            'Cwd'                   => '3.62',
+            'Data::Dumper'          => '2.160',
+            'ExtUtils::ParseXS'     => '3.31',
+            'ExtUtils::ParseXS::Constants'=> '3.31',
+            'ExtUtils::ParseXS::CountLines'=> '3.31',
+            'ExtUtils::ParseXS::Eval'=> '3.31',
+            'ExtUtils::ParseXS::Utilities'=> '3.31',
+            'ExtUtils::Typemaps'    => '3.31',
+            'ExtUtils::Typemaps::Cmd'=> '3.31',
+            'ExtUtils::Typemaps::InputMap'=> '3.31',
+            'ExtUtils::Typemaps::OutputMap'=> '3.31',
+            'ExtUtils::Typemaps::Type'=> '3.31',
+            'File::Find'            => '1.33',
+            'File::Spec'            => '3.62',
+            'File::Spec::AmigaOS'   => '3.62',
+            'File::Spec::Cygwin'    => '3.62',
+            'File::Spec::Epoc'      => '3.62',
+            'File::Spec::Functions' => '3.62',
+            'File::Spec::Mac'       => '3.62',
+            'File::Spec::OS2'       => '3.62',
+            'File::Spec::Unix'      => '3.62',
+            'File::Spec::VMS'       => '3.62',
+            'File::Spec::Win32'     => '3.62',
+            'Math::BigFloat'        => '1.999715',
+            'Math::BigFloat::Trace' => '0.42',
+            'Math::BigInt'          => '1.999715',
+            'Math::BigInt::Calc'    => '1.999715',
+            'Math::BigInt::CalcEmu' => '1.999715',
+            'Math::BigInt::FastCalc'=> '0.40',
+            'Math::BigInt::Trace'   => '0.42',
+            'Math::BigRat'          => '0.260802',
+            'Module::CoreList'      => '5.20160120',
+            'Module::CoreList::TieHashDelta'=> '5.20160120',
+            'Module::CoreList::Utils'=> '5.20160120',
+            'Net::Cmd'              => '3.08',
+            'Net::Config'           => '3.08',
+            'Net::Domain'           => '3.08',
+            'Net::FTP'              => '3.08',
+            'Net::FTP::A'           => '3.08',
+            'Net::FTP::E'           => '3.08',
+            'Net::FTP::I'           => '3.08',
+            'Net::FTP::L'           => '3.08',
+            'Net::FTP::dataconn'    => '3.08',
+            'Net::NNTP'             => '3.08',
+            'Net::Netrc'            => '3.08',
+            'Net::POP3'             => '3.08',
+            'Net::SMTP'             => '3.08',
+            'Net::Time'             => '3.08',
+            'Pod::Man'              => '4.04',
+            'Pod::ParseLink'        => '4.04',
+            'Pod::Text'             => '4.04',
+            'Pod::Text::Color'      => '4.04',
+            'Pod::Text::Overstrike' => '4.04',
+            'Pod::Text::Termcap'    => '4.04',
+            'Pod::Usage'            => '1.68',
+            'TAP::Base'             => '3.36',
+            'TAP::Formatter::Base'  => '3.36',
+            'TAP::Formatter::Color' => '3.36',
+            'TAP::Formatter::Console'=> '3.36',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36',
+            'TAP::Formatter::Console::Session'=> '3.36',
+            'TAP::Formatter::File'  => '3.36',
+            'TAP::Formatter::File::Session'=> '3.36',
+            'TAP::Formatter::Session'=> '3.36',
+            'TAP::Harness'          => '3.36',
+            'TAP::Harness::Env'     => '3.36',
+            'TAP::Object'           => '3.36',
+            'TAP::Parser'           => '3.36',
+            'TAP::Parser::Aggregator'=> '3.36',
+            'TAP::Parser::Grammar'  => '3.36',
+            'TAP::Parser::Iterator' => '3.36',
+            'TAP::Parser::Iterator::Array'=> '3.36',
+            'TAP::Parser::Iterator::Process'=> '3.36',
+            'TAP::Parser::Iterator::Stream'=> '3.36',
+            'TAP::Parser::IteratorFactory'=> '3.36',
+            'TAP::Parser::Multiplexer'=> '3.36',
+            'TAP::Parser::Result'   => '3.36',
+            'TAP::Parser::Result::Bailout'=> '3.36',
+            'TAP::Parser::Result::Comment'=> '3.36',
+            'TAP::Parser::Result::Plan'=> '3.36',
+            'TAP::Parser::Result::Pragma'=> '3.36',
+            'TAP::Parser::Result::Test'=> '3.36',
+            'TAP::Parser::Result::Unknown'=> '3.36',
+            'TAP::Parser::Result::Version'=> '3.36',
+            'TAP::Parser::Result::YAML'=> '3.36',
+            'TAP::Parser::ResultFactory'=> '3.36',
+            'TAP::Parser::Scheduler'=> '3.36',
+            'TAP::Parser::Scheduler::Job'=> '3.36',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36',
+            'TAP::Parser::Source'   => '3.36',
+            'TAP::Parser::SourceHandler'=> '3.36',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36',
+            'TAP::Parser::SourceHandler::File'=> '3.36',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36',
+            'TAP::Parser::YAMLish::Reader'=> '3.36',
+            'TAP::Parser::YAMLish::Writer'=> '3.36',
+            'Test::Harness'         => '3.36',
+            'Unicode::Normalize'    => '1.25',
+            'Unicode::UCD'          => '0.64',
+            'XS::APItest'           => '0.78',
+            'bigint'                => '0.42',
+            'bignum'                => '0.42',
+            'bigrat'                => '0.42',
+            'utf8'                  => '1.19',
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+            'B::Op_private'         => '5.023008',
+            'Config'                => '5.023008',
+            'Cwd'                   => '3.63',
+            'DynaLoader'            => '1.38',
+            'Encode'                => '2.80',
+            'Encode::Alias'         => '2.20',
+            'Encode::MIME::Header'  => '2.19',
+            'Encode::Unicode'       => '2.15',
+            'ExtUtils::CBuilder'    => '0.280225',
+            'ExtUtils::CBuilder::Base'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280225',
+            'ExtUtils::Command::MM' => '7.10_01',
+            'ExtUtils::Liblist'     => '7.10_01',
+            'ExtUtils::Liblist::Kid'=> '7.10_01',
+            'ExtUtils::MM'          => '7.10_01',
+            'ExtUtils::MM_AIX'      => '7.10_01',
+            'ExtUtils::MM_Any'      => '7.10_01',
+            'ExtUtils::MM_BeOS'     => '7.10_01',
+            'ExtUtils::MM_Cygwin'   => '7.10_01',
+            'ExtUtils::MM_DOS'      => '7.10_01',
+            'ExtUtils::MM_Darwin'   => '7.10_01',
+            'ExtUtils::MM_MacOS'    => '7.10_01',
+            'ExtUtils::MM_NW5'      => '7.10_01',
+            'ExtUtils::MM_OS2'      => '7.10_01',
+            'ExtUtils::MM_QNX'      => '7.10_01',
+            'ExtUtils::MM_UWIN'     => '7.10_01',
+            'ExtUtils::MM_Unix'     => '7.10_01',
+            'ExtUtils::MM_VMS'      => '7.10_01',
+            'ExtUtils::MM_VOS'      => '7.10_01',
+            'ExtUtils::MM_Win32'    => '7.10_01',
+            'ExtUtils::MM_Win95'    => '7.10_01',
+            'ExtUtils::MY'          => '7.10_01',
+            'ExtUtils::MakeMaker'   => '7.10_01',
+            'ExtUtils::MakeMaker::Config'=> '7.10_01',
+            'ExtUtils::MakeMaker::version'=> '7.10_01',
+            'ExtUtils::MakeMaker::version::regex'=> '7.10_01',
+            'ExtUtils::Mkbootstrap' => '7.10_01',
+            'ExtUtils::Mksymlists'  => '7.10_01',
+            'ExtUtils::testlib'     => '7.10_01',
+            'File::Spec'            => '3.63',
+            'File::Spec::AmigaOS'   => '3.63',
+            'File::Spec::Cygwin'    => '3.63',
+            'File::Spec::Epoc'      => '3.63',
+            'File::Spec::Functions' => '3.63',
+            'File::Spec::Mac'       => '3.63',
+            'File::Spec::OS2'       => '3.63',
+            'File::Spec::Unix'      => '3.63',
+            'File::Spec::VMS'       => '3.63',
+            'File::Spec::Win32'     => '3.63',
+            'IPC::Msg'              => '2.05',
+            'IPC::Semaphore'        => '2.05',
+            'IPC::SharedMem'        => '2.05',
+            'IPC::SysV'             => '2.05',
+            'Module::CoreList'      => '5.20160121',
+            'Module::CoreList::TieHashDelta'=> '5.20160121',
+            'Module::CoreList::Utils'=> '5.20160121',
+            'ODBM_File'             => '1.13',
+            'POSIX'                 => '1.63',
+            'PerlIO::encoding'      => '0.24',
+            'Pod::Man'              => '4.06',
+            'Pod::ParseLink'        => '4.06',
+            'Pod::Text'             => '4.06',
+            'Pod::Text::Color'      => '4.06',
+            'Pod::Text::Overstrike' => '4.06',
+            'Pod::Text::Termcap'    => '4.06',
+            'Storable'              => '2.55',
+            'Time::HiRes'           => '1.9730',
+            'XS::APItest'           => '0.79',
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+            'Amiga::ARexx'          => '0.04',
+            'Amiga::Exec'           => '0.02',
+            'B::Op_private'         => '5.023009',
+            'Carp'                  => '1.40',
+            'Carp::Heavy'           => '1.40',
+            'Config'                => '5.023009',
+            'Errno'                 => '1.25',
+            'ExtUtils::Embed'       => '1.33',
+            'File::Find'            => '1.34',
+            'File::Glob'            => '1.26',
+            'File::Spec::AmigaOS'   => ';.64',
+            'IPC::Msg'              => '2.06_01',
+            'IPC::Semaphore'        => '2.06_01',
+            'IPC::SharedMem'        => '2.06_01',
+            'IPC::SysV'             => '2.06_01',
+            'List::Util'            => '1.42_02',
+            'List::Util::XS'        => '1.42_02',
+            'Module::CoreList'      => '5.20160320',
+            'Module::CoreList::TieHashDelta'=> '5.20160320',
+            'Module::CoreList::Utils'=> '5.20160320',
+            'POSIX'                 => '1.64',
+            'Pod::Functions'        => '1.10',
+            'Pod::Functions::Functions'=> '1.10',
+            'Scalar::Util'          => '1.42_02',
+            'SelfLoader'            => '1.23',
+            'Socket'                => '2.020_03',
+            'Storable'              => '2.56',
+            'Sub::Util'             => '1.42_02',
+            'Thread::Queue'         => '3.08',
+            'Tie::File'             => '1.02',
+            'Time::HiRes'           => '1.9732',
+            'Win32API::File'        => '0.1203',
+            'Win32API::File::inc::ExtUtils::Myconst2perl'=> '1',
+            'XS::APItest'           => '0.80',
+            'autouse'               => '1.11',
+            'bytes'                 => '1.05',
+            'strict'                => '1.11',
+            'threads'               => '2.06',
+            'version'               => '0.9916',
+            'version::regex'        => '0.9916',
+            'warnings'              => '1.36',
+        },
+        removed => {
+            'Win32API::File::ExtUtils::Myconst2perl'=> 1,
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+            'B::Op_private'         => '5.022002',
+            'Config'                => '5.022002',
+            'Cwd'                   => '3.56_01',
+            'File::Spec'            => '3.56_01',
+            'File::Spec::Cygwin'    => '3.56_01',
+            'File::Spec::Epoc'      => '3.56_01',
+            'File::Spec::Functions' => '3.56_01',
+            'File::Spec::Mac'       => '3.56_01',
+            'File::Spec::OS2'       => '3.56_01',
+            'File::Spec::Unix'      => '3.56_01',
+            'File::Spec::VMS'       => '3.56_01',
+            'File::Spec::Win32'     => '3.56_01',
+            'Module::CoreList'      => '5.20160429',
+            'Module::CoreList::TieHashDelta'=> '5.20160429',
+            'Module::CoreList::Utils'=> '5.20160429',
+            'XS::APItest'           => '0.72_01',
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+            'B::Op_private'         => '5.024000',
+            'Config'                => '5.024',
+            'File::Copy'            => '2.31',
+            'File::Path'            => '2.12_01',
+            'File::Spec::AmigaOS'   => '3.64',
+            'IO::Handle'            => '1.36',
+            'Module::CoreList'      => '5.20160506',
+            'Module::CoreList::TieHashDelta'=> '5.20160506',
+            'Module::CoreList::Utils'=> '5.20160506',
+            'ODBM_File'             => '1.14',
+            'POSIX'                 => '1.65',
+            'Pod::Man'              => '4.07',
+            'Pod::ParseLink'        => '4.07',
+            'Pod::Text'             => '4.07',
+            'Pod::Text::Color'      => '4.07',
+            'Pod::Text::Overstrike' => '4.07',
+            'Pod::Text::Termcap'    => '4.07',
+            'Thread::Queue'         => '3.09',
+            'Time::HiRes'           => '1.9733',
+            'threads'               => '2.07',
+            'threads::shared'       => '1.51',
+            'locale'                => '1.09',
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024,
+        changed => {
+            'B::Op_private'         => '5.025000',
+            'Config'                => '5.025',
+            'Module::CoreList'      => '5.20160507',
+            'Module::CoreList::TieHashDelta'=> '5.20160507',
+            'Module::CoreList::Utils'=> '5.20160507',
+            'feature'               => '1.43',
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025,
+        changed => {
+            'Archive::Tar'          => '2.08',
+            'Archive::Tar::Constant'=> '2.08',
+            'Archive::Tar::File'    => '2.08',
+            'B::Op_private'         => '5.025001',
+            'Carp'                  => '1.41',
+            'Carp::Heavy'           => '1.41',
+            'Config'                => '5.025001',
+            'Config::Perl::V'       => '0.26',
+            'DB_File'               => '1.838',
+            'Digest::MD5'           => '2.55',
+            'IPC::Cmd'              => '0.94',
+            'IPC::Msg'              => '2.07',
+            'IPC::Semaphore'        => '2.07',
+            'IPC::SharedMem'        => '2.07',
+            'IPC::SysV'             => '2.07',
+            'List::Util'            => '1.45_01',
+            'List::Util::XS'        => '1.45_01',
+            'Locale::Codes'         => '3.38',
+            'Locale::Codes::Constants'=> '3.38',
+            'Locale::Codes::Country'=> '3.38',
+            'Locale::Codes::Country_Codes'=> '3.38',
+            'Locale::Codes::Country_Retired'=> '3.38',
+            'Locale::Codes::Currency'=> '3.38',
+            'Locale::Codes::Currency_Codes'=> '3.38',
+            'Locale::Codes::Currency_Retired'=> '3.38',
+            'Locale::Codes::LangExt'=> '3.38',
+            'Locale::Codes::LangExt_Codes'=> '3.38',
+            'Locale::Codes::LangExt_Retired'=> '3.38',
+            'Locale::Codes::LangFam'=> '3.38',
+            'Locale::Codes::LangFam_Codes'=> '3.38',
+            'Locale::Codes::LangFam_Retired'=> '3.38',
+            'Locale::Codes::LangVar'=> '3.38',
+            'Locale::Codes::LangVar_Codes'=> '3.38',
+            'Locale::Codes::LangVar_Retired'=> '3.38',
+            'Locale::Codes::Language'=> '3.38',
+            'Locale::Codes::Language_Codes'=> '3.38',
+            'Locale::Codes::Language_Retired'=> '3.38',
+            'Locale::Codes::Script' => '3.38',
+            'Locale::Codes::Script_Codes'=> '3.38',
+            'Locale::Codes::Script_Retired'=> '3.38',
+            'Locale::Country'       => '3.38',
+            'Locale::Currency'      => '3.38',
+            'Locale::Language'      => '3.38',
+            'Locale::Maketext'      => '1.27',
+            'Locale::Script'        => '3.38',
+            'Module::CoreList'      => '5.20160520',
+            'Module::CoreList::TieHashDelta'=> '5.20160520',
+            'Module::CoreList::Utils'=> '5.20160520',
+            'Module::Metadata'      => '1.000032',
+            'POSIX'                 => '1.69',
+            'Scalar::Util'          => '1.45_01',
+            'Sub::Util'             => '1.45_01',
+            'Sys::Syslog'           => '0.34',
+            'Term::ANSIColor'       => '4.05',
+            'Test2'                 => '1.302015',
+            'Test2::API'            => '1.302015',
+            'Test2::API::Breakage'  => '1.302015',
+            'Test2::API::Context'   => '1.302015',
+            'Test2::API::Instance'  => '1.302015',
+            'Test2::API::Stack'     => '1.302015',
+            'Test2::Event'          => '1.302015',
+            'Test2::Event::Bail'    => '1.302015',
+            'Test2::Event::Diag'    => '1.302015',
+            'Test2::Event::Exception'=> '1.302015',
+            'Test2::Event::Note'    => '1.302015',
+            'Test2::Event::Ok'      => '1.302015',
+            'Test2::Event::Plan'    => '1.302015',
+            'Test2::Event::Skip'    => '1.302015',
+            'Test2::Event::Subtest' => '1.302015',
+            'Test2::Event::Waiting' => '1.302015',
+            'Test2::Formatter'      => '1.302015',
+            'Test2::Formatter::TAP' => '1.302015',
+            'Test2::Hub'            => '1.302015',
+            'Test2::Hub::Interceptor'=> '1.302015',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302015',
+            'Test2::Hub::Subtest'   => '1.302015',
+            'Test2::IPC'            => '1.302015',
+            'Test2::IPC::Driver'    => '1.302015',
+            'Test2::IPC::Driver::Files'=> '1.302015',
+            'Test2::Util'           => '1.302015',
+            'Test2::Util::ExternalMeta'=> '1.302015',
+            'Test2::Util::HashBase' => '1.302015',
+            'Test2::Util::Trace'    => '1.302015',
+            'Test::Builder'         => '1.302015',
+            'Test::Builder::Formatter'=> '1.302015',
+            'Test::Builder::Module' => '1.302015',
+            'Test::Builder::Tester' => '1.302015',
+            'Test::Builder::Tester::Color'=> '1.302015',
+            'Test::Builder::TodoDiag'=> '1.302015',
+            'Test::More'            => '1.302015',
+            'Test::Simple'          => '1.302015',
+            'Test::Tester'          => '1.302015',
+            'Test::Tester::Capture' => '1.302015',
+            'Test::Tester::CaptureRunner'=> '1.302015',
+            'Test::Tester::Delegate'=> '1.302015',
+            'Test::use::ok'         => '1.302015',
+            'XS::APItest'           => '0.81',
+            '_charnames'            => '1.44',
+            'charnames'             => '1.44',
+            'ok'                    => '1.302015',
+            'perlfaq'               => '5.021011',
+            're'                    => '0.33',
+            'threads'               => '2.08',
+            'threads::shared'       => '1.52',
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+            'App::Cpan'             => '1.64',
+            'B::Op_private'         => '5.025002',
+            'CPAN'                  => '2.14',
+            'CPAN::Distribution'    => '2.12',
+            'CPAN::FTP'             => '5.5007',
+            'CPAN::FirstTime'       => '5.5309',
+            'CPAN::HandleConfig'    => '5.5007',
+            'CPAN::Index'           => '2.12',
+            'CPAN::Mirrors'         => '2.12',
+            'CPAN::Plugin'          => '0.96',
+            'CPAN::Shell'           => '5.5006',
+            'Config'                => '5.025002',
+            'Cwd'                   => '3.64',
+            'Devel::Peek'           => '1.24',
+            'DynaLoader'            => '1.39',
+            'ExtUtils::Command'     => '7.18',
+            'ExtUtils::Command::MM' => '7.18',
+            'ExtUtils::Liblist'     => '7.18',
+            'ExtUtils::Liblist::Kid'=> '7.18',
+            'ExtUtils::MM'          => '7.18',
+            'ExtUtils::MM_AIX'      => '7.18',
+            'ExtUtils::MM_Any'      => '7.18',
+            'ExtUtils::MM_BeOS'     => '7.18',
+            'ExtUtils::MM_Cygwin'   => '7.18',
+            'ExtUtils::MM_DOS'      => '7.18',
+            'ExtUtils::MM_Darwin'   => '7.18',
+            'ExtUtils::MM_MacOS'    => '7.18',
+            'ExtUtils::MM_NW5'      => '7.18',
+            'ExtUtils::MM_OS2'      => '7.18',
+            'ExtUtils::MM_QNX'      => '7.18',
+            'ExtUtils::MM_UWIN'     => '7.18',
+            'ExtUtils::MM_Unix'     => '7.18',
+            'ExtUtils::MM_VMS'      => '7.18',
+            'ExtUtils::MM_VOS'      => '7.18',
+            'ExtUtils::MM_Win32'    => '7.18',
+            'ExtUtils::MM_Win95'    => '7.18',
+            'ExtUtils::MY'          => '7.18',
+            'ExtUtils::MakeMaker'   => '7.18',
+            'ExtUtils::MakeMaker::Config'=> '7.18',
+            'ExtUtils::MakeMaker::Locale'=> '7.18',
+            'ExtUtils::MakeMaker::version'=> '7.18',
+            'ExtUtils::MakeMaker::version::regex'=> '7.18',
+            'ExtUtils::Miniperl'    => '1.06',
+            'ExtUtils::Mkbootstrap' => '7.18',
+            'ExtUtils::Mksymlists'  => '7.18',
+            'ExtUtils::ParseXS'     => '3.32',
+            'ExtUtils::ParseXS::Constants'=> '3.32',
+            'ExtUtils::ParseXS::CountLines'=> '3.32',
+            'ExtUtils::ParseXS::Eval'=> '3.32',
+            'ExtUtils::ParseXS::Utilities'=> '3.32',
+            'ExtUtils::Typemaps'    => '3.32',
+            'ExtUtils::Typemaps::Cmd'=> '3.32',
+            'ExtUtils::Typemaps::InputMap'=> '3.32',
+            'ExtUtils::Typemaps::OutputMap'=> '3.32',
+            'ExtUtils::Typemaps::Type'=> '3.32',
+            'ExtUtils::testlib'     => '7.18',
+            'File::Copy'            => '2.32',
+            'File::Glob'            => '1.27',
+            'File::Spec'            => '3.64',
+            'File::Spec::Cygwin'    => '3.64',
+            'File::Spec::Epoc'      => '3.64',
+            'File::Spec::Functions' => '3.64',
+            'File::Spec::Mac'       => '3.64',
+            'File::Spec::OS2'       => '3.64',
+            'File::Spec::Unix'      => '3.64',
+            'File::Spec::VMS'       => '3.64',
+            'File::Spec::Win32'     => '3.64',
+            'FileHandle'            => '2.03',
+            'Getopt::Long'          => '2.49',
+            'HTTP::Tiny'            => '0.058',
+            'JSON::PP'              => '2.27400',
+            'Locale::Codes'         => '3.39',
+            'Locale::Codes::Constants'=> '3.39',
+            'Locale::Codes::Country'=> '3.39',
+            'Locale::Codes::Country_Codes'=> '3.39',
+            'Locale::Codes::Country_Retired'=> '3.39',
+            'Locale::Codes::Currency'=> '3.39',
+            'Locale::Codes::Currency_Codes'=> '3.39',
+            'Locale::Codes::Currency_Retired'=> '3.39',
+            'Locale::Codes::LangExt'=> '3.39',
+            'Locale::Codes::LangExt_Codes'=> '3.39',
+            'Locale::Codes::LangExt_Retired'=> '3.39',
+            'Locale::Codes::LangFam'=> '3.39',
+            'Locale::Codes::LangFam_Codes'=> '3.39',
+            'Locale::Codes::LangFam_Retired'=> '3.39',
+            'Locale::Codes::LangVar'=> '3.39',
+            'Locale::Codes::LangVar_Codes'=> '3.39',
+            'Locale::Codes::LangVar_Retired'=> '3.39',
+            'Locale::Codes::Language'=> '3.39',
+            'Locale::Codes::Language_Codes'=> '3.39',
+            'Locale::Codes::Language_Retired'=> '3.39',
+            'Locale::Codes::Script' => '3.39',
+            'Locale::Codes::Script_Codes'=> '3.39',
+            'Locale::Codes::Script_Retired'=> '3.39',
+            'Locale::Country'       => '3.39',
+            'Locale::Currency'      => '3.39',
+            'Locale::Language'      => '3.39',
+            'Locale::Script'        => '3.39',
+            'Module::CoreList'      => '5.20160620',
+            'Module::CoreList::TieHashDelta'=> '5.20160620',
+            'Module::CoreList::Utils'=> '5.20160620',
+            'Opcode'                => '1.35',
+            'POSIX'                 => '1.70',
+            'Pod::Checker'          => '1.73',
+            'Pod::Functions'        => '1.11',
+            'Pod::Functions::Functions'=> '1.11',
+            'Pod::Usage'            => '1.69',
+            'Test2'                 => '1.302026',
+            'Test2::API'            => '1.302026',
+            'Test2::API::Breakage'  => '1.302026',
+            'Test2::API::Context'   => '1.302026',
+            'Test2::API::Instance'  => '1.302026',
+            'Test2::API::Stack'     => '1.302026',
+            'Test2::Event'          => '1.302026',
+            'Test2::Event::Bail'    => '1.302026',
+            'Test2::Event::Diag'    => '1.302026',
+            'Test2::Event::Exception'=> '1.302026',
+            'Test2::Event::Generic' => '1.302026',
+            'Test2::Event::Note'    => '1.302026',
+            'Test2::Event::Ok'      => '1.302026',
+            'Test2::Event::Plan'    => '1.302026',
+            'Test2::Event::Skip'    => '1.302026',
+            'Test2::Event::Subtest' => '1.302026',
+            'Test2::Event::Waiting' => '1.302026',
+            'Test2::Formatter'      => '1.302026',
+            'Test2::Formatter::TAP' => '1.302026',
+            'Test2::Hub'            => '1.302026',
+            'Test2::Hub::Interceptor'=> '1.302026',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302026',
+            'Test2::Hub::Subtest'   => '1.302026',
+            'Test2::IPC'            => '1.302026',
+            'Test2::IPC::Driver'    => '1.302026',
+            'Test2::IPC::Driver::Files'=> '1.302026',
+            'Test2::Util'           => '1.302026',
+            'Test2::Util::ExternalMeta'=> '1.302026',
+            'Test2::Util::HashBase' => '1.302026',
+            'Test2::Util::Trace'    => '1.302026',
+            'Test::Builder'         => '1.302026',
+            'Test::Builder::Formatter'=> '1.302026',
+            'Test::Builder::Module' => '1.302026',
+            'Test::Builder::Tester' => '1.302026',
+            'Test::Builder::Tester::Color'=> '1.302026',
+            'Test::Builder::TodoDiag'=> '1.302026',
+            'Test::More'            => '1.302026',
+            'Test::Simple'          => '1.302026',
+            'Test::Tester'          => '1.302026',
+            'Test::Tester::Capture' => '1.302026',
+            'Test::Tester::CaptureRunner'=> '1.302026',
+            'Test::Tester::Delegate'=> '1.302026',
+            'Test::use::ok'         => '1.302026',
+            'Thread::Queue'         => '3.11',
+            'Time::HiRes'           => '1.9734',
+            'Unicode::UCD'          => '0.65',
+            'VMS::DCLsym'           => '1.07',
+            'XS::APItest'           => '0.82',
+            'diagnostics'           => '1.35',
+            'feature'               => '1.44',
+            'ok'                    => '1.302026',
+            'threads'               => '2.09',
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+            'B::Op_private'         => '5.025003',
+            'Config'                => '5.025003',
+            'Data::Dumper'          => '2.161',
+            'Devel::PPPort'         => '3.35',
+            'Encode'                => '2.84',
+            'Encode::MIME::Header'  => '2.23',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.07',
+            'ExtUtils::ParseXS'     => '3.33',
+            'ExtUtils::ParseXS::Constants'=> '3.33',
+            'ExtUtils::ParseXS::CountLines'=> '3.33',
+            'ExtUtils::ParseXS::Eval'=> '3.33',
+            'ExtUtils::ParseXS::Utilities'=> '3.33',
+            'ExtUtils::Typemaps'    => '3.33',
+            'ExtUtils::Typemaps::Cmd'=> '3.33',
+            'ExtUtils::Typemaps::InputMap'=> '3.33',
+            'ExtUtils::Typemaps::OutputMap'=> '3.33',
+            'ExtUtils::Typemaps::Type'=> '3.33',
+            'Hash::Util'            => '0.20',
+            'Math::BigFloat'        => '1.999726',
+            'Math::BigFloat::Trace' => '0.43',
+            'Math::BigInt'          => '1.999726',
+            'Math::BigInt::Calc'    => '1.999726',
+            'Math::BigInt::CalcEmu' => '1.999726',
+            'Math::BigInt::FastCalc'=> '0.42',
+            'Math::BigInt::Trace'   => '0.43',
+            'Math::BigRat'          => '0.260804',
+            'Module::CoreList'      => '5.20160720',
+            'Module::CoreList::TieHashDelta'=> '5.20160720',
+            'Module::CoreList::Utils'=> '5.20160720',
+            'Net::Cmd'              => '3.09',
+            'Net::Config'           => '3.09',
+            'Net::Domain'           => '3.09',
+            'Net::FTP'              => '3.09',
+            'Net::FTP::A'           => '3.09',
+            'Net::FTP::E'           => '3.09',
+            'Net::FTP::I'           => '3.09',
+            'Net::FTP::L'           => '3.09',
+            'Net::FTP::dataconn'    => '3.09',
+            'Net::NNTP'             => '3.09',
+            'Net::Netrc'            => '3.09',
+            'Net::POP3'             => '3.09',
+            'Net::SMTP'             => '3.09',
+            'Net::Time'             => '3.09',
+            'Parse::CPAN::Meta'     => '1.4422',
+            'Perl::OSType'          => '1.010',
+            'Test2'                 => '1.302045',
+            'Test2::API'            => '1.302045',
+            'Test2::API::Breakage'  => '1.302045',
+            'Test2::API::Context'   => '1.302045',
+            'Test2::API::Instance'  => '1.302045',
+            'Test2::API::Stack'     => '1.302045',
+            'Test2::Event'          => '1.302045',
+            'Test2::Event::Bail'    => '1.302045',
+            'Test2::Event::Diag'    => '1.302045',
+            'Test2::Event::Exception'=> '1.302045',
+            'Test2::Event::Generic' => '1.302045',
+            'Test2::Event::Info'    => '1.302045',
+            'Test2::Event::Note'    => '1.302045',
+            'Test2::Event::Ok'      => '1.302045',
+            'Test2::Event::Plan'    => '1.302045',
+            'Test2::Event::Skip'    => '1.302045',
+            'Test2::Event::Subtest' => '1.302045',
+            'Test2::Event::Waiting' => '1.302045',
+            'Test2::Formatter'      => '1.302045',
+            'Test2::Formatter::TAP' => '1.302045',
+            'Test2::Hub'            => '1.302045',
+            'Test2::Hub::Interceptor'=> '1.302045',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302045',
+            'Test2::Hub::Subtest'   => '1.302045',
+            'Test2::IPC'            => '1.302045',
+            'Test2::IPC::Driver'    => '1.302045',
+            'Test2::IPC::Driver::Files'=> '1.302045',
+            'Test2::Util'           => '1.302045',
+            'Test2::Util::ExternalMeta'=> '1.302045',
+            'Test2::Util::HashBase' => '1.302045',
+            'Test2::Util::Trace'    => '1.302045',
+            'Test::Builder'         => '1.302045',
+            'Test::Builder::Formatter'=> '1.302045',
+            'Test::Builder::Module' => '1.302045',
+            'Test::Builder::Tester' => '1.302045',
+            'Test::Builder::Tester::Color'=> '1.302045',
+            'Test::Builder::TodoDiag'=> '1.302045',
+            'Test::More'            => '1.302045',
+            'Test::Simple'          => '1.302045',
+            'Test::Tester'          => '1.302045',
+            'Test::Tester::Capture' => '1.302045',
+            'Test::Tester::CaptureRunner'=> '1.302045',
+            'Test::Tester::Delegate'=> '1.302045',
+            'Test::use::ok'         => '1.302045',
+            'Time::HiRes'           => '1.9739',
+            'Unicode'               => '9.0.0',
+            'Unicode::UCD'          => '0.66',
+            'XSLoader'              => '0.22',
+            'bigint'                => '0.43',
+            'bignum'                => '0.43',
+            'bigrat'                => '0.43',
+            'encoding'              => '2.17_01',
+            'encoding::warnings'    => '0.13',
+            'feature'               => '1.45',
+            'ok'                    => '1.302045',
+            'version'               => '0.9917',
+            'version::regex'        => '0.9917',
+            'warnings'              => '1.37',
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+            'App::Cpan'             => '1.64_01',
+            'App::Prove'            => '3.36_01',
+            'App::Prove::State'     => '3.36_01',
+            'App::Prove::State::Result'=> '3.36_01',
+            'App::Prove::State::Result::Test'=> '3.36_01',
+            'Archive::Tar'          => '2.10',
+            'Archive::Tar::Constant'=> '2.10',
+            'Archive::Tar::File'    => '2.10',
+            'B'                     => '1.63',
+            'B::Concise'            => '0.998',
+            'B::Deparse'            => '1.38',
+            'B::Op_private'         => '5.025004',
+            'CPAN'                  => '2.14_01',
+            'CPAN::Meta'            => '2.150010',
+            'CPAN::Meta::Converter' => '2.150010',
+            'CPAN::Meta::Feature'   => '2.150010',
+            'CPAN::Meta::History'   => '2.150010',
+            'CPAN::Meta::Merge'     => '2.150010',
+            'CPAN::Meta::Prereqs'   => '2.150010',
+            'CPAN::Meta::Spec'      => '2.150010',
+            'CPAN::Meta::Validator' => '2.150010',
+            'Carp'                  => '1.42',
+            'Carp::Heavy'           => '1.42',
+            'Compress::Zlib'        => '2.069_01',
+            'Config'                => '5.025004',
+            'Config::Perl::V'       => '0.27',
+            'Cwd'                   => '3.65',
+            'Digest'                => '1.17_01',
+            'Digest::SHA'           => '5.96',
+            'Encode'                => '2.86',
+            'Errno'                 => '1.26',
+            'ExtUtils::Command'     => '7.24',
+            'ExtUtils::Command::MM' => '7.24',
+            'ExtUtils::Liblist'     => '7.24',
+            'ExtUtils::Liblist::Kid'=> '7.24',
+            'ExtUtils::MM'          => '7.24',
+            'ExtUtils::MM_AIX'      => '7.24',
+            'ExtUtils::MM_Any'      => '7.24',
+            'ExtUtils::MM_BeOS'     => '7.24',
+            'ExtUtils::MM_Cygwin'   => '7.24',
+            'ExtUtils::MM_DOS'      => '7.24',
+            'ExtUtils::MM_Darwin'   => '7.24',
+            'ExtUtils::MM_MacOS'    => '7.24',
+            'ExtUtils::MM_NW5'      => '7.24',
+            'ExtUtils::MM_OS2'      => '7.24',
+            'ExtUtils::MM_QNX'      => '7.24',
+            'ExtUtils::MM_UWIN'     => '7.24',
+            'ExtUtils::MM_Unix'     => '7.24',
+            'ExtUtils::MM_VMS'      => '7.24',
+            'ExtUtils::MM_VOS'      => '7.24',
+            'ExtUtils::MM_Win32'    => '7.24',
+            'ExtUtils::MM_Win95'    => '7.24',
+            'ExtUtils::MY'          => '7.24',
+            'ExtUtils::MakeMaker'   => '7.24',
+            'ExtUtils::MakeMaker::Config'=> '7.24',
+            'ExtUtils::MakeMaker::Locale'=> '7.24',
+            'ExtUtils::MakeMaker::version'=> '7.24',
+            'ExtUtils::MakeMaker::version::regex'=> '7.24',
+            'ExtUtils::Mkbootstrap' => '7.24',
+            'ExtUtils::Mksymlists'  => '7.24',
+            'ExtUtils::testlib'     => '7.24',
+            'File::Fetch'           => '0.52',
+            'File::Spec'            => '3.65',
+            'File::Spec::AmigaOS'   => '3.65',
+            'File::Spec::Cygwin'    => '3.65',
+            'File::Spec::Epoc'      => '3.65',
+            'File::Spec::Functions' => '3.65',
+            'File::Spec::Mac'       => '3.65',
+            'File::Spec::OS2'       => '3.65',
+            'File::Spec::Unix'      => '3.65',
+            'File::Spec::VMS'       => '3.65',
+            'File::Spec::Win32'     => '3.65',
+            'HTTP::Tiny'            => '0.064',
+            'Hash::Util'            => '0.21',
+            'I18N::LangTags'        => '0.41',
+            'I18N::LangTags::Detect'=> '1.06',
+            'IO'                    => '1.37',
+            'IO::Compress::Adapter::Bzip2'=> '2.069_01',
+            'IO::Compress::Adapter::Deflate'=> '2.069_01',
+            'IO::Compress::Adapter::Identity'=> '2.069_01',
+            'IO::Compress::Base'    => '2.069_01',
+            'IO::Compress::Base::Common'=> '2.069_01',
+            'IO::Compress::Bzip2'   => '2.069_01',
+            'IO::Compress::Deflate' => '2.069_01',
+            'IO::Compress::Gzip'    => '2.069_01',
+            'IO::Compress::Gzip::Constants'=> '2.069_01',
+            'IO::Compress::RawDeflate'=> '2.069_01',
+            'IO::Compress::Zip'     => '2.069_01',
+            'IO::Compress::Zip::Constants'=> '2.069_01',
+            'IO::Compress::Zlib::Constants'=> '2.069_01',
+            'IO::Compress::Zlib::Extra'=> '2.069_01',
+            'IO::Socket::IP'        => '0.38',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069_01',
+            'IO::Uncompress::Adapter::Identity'=> '2.069_01',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069_01',
+            'IO::Uncompress::AnyInflate'=> '2.069_01',
+            'IO::Uncompress::AnyUncompress'=> '2.069_01',
+            'IO::Uncompress::Base'  => '2.069_01',
+            'IO::Uncompress::Bunzip2'=> '2.069_01',
+            'IO::Uncompress::Gunzip'=> '2.069_01',
+            'IO::Uncompress::Inflate'=> '2.069_01',
+            'IO::Uncompress::RawInflate'=> '2.069_01',
+            'IO::Uncompress::Unzip' => '2.069_01',
+            'IPC::Cmd'              => '0.96',
+            'JSON::PP'              => '2.27400_01',
+            'Locale::Maketext'      => '1.28',
+            'Locale::Maketext::Simple'=> '0.21_01',
+            'Math::BigFloat::Trace' => '0.43_01',
+            'Math::BigInt::Trace'   => '0.43_01',
+            'Memoize'               => '1.03_01',
+            'Module::CoreList'      => '5.20160820',
+            'Module::CoreList::TieHashDelta'=> '5.20160820',
+            'Module::CoreList::Utils'=> '5.20160820',
+            'Module::Load::Conditional'=> '0.68',
+            'Module::Metadata'      => '1.000033',
+            'NEXT'                  => '0.67',
+            'Net::Cmd'              => '3.10',
+            'Net::Config'           => '3.10',
+            'Net::Domain'           => '3.10',
+            'Net::FTP'              => '3.10',
+            'Net::FTP::A'           => '3.10',
+            'Net::FTP::E'           => '3.10',
+            'Net::FTP::I'           => '3.10',
+            'Net::FTP::L'           => '3.10',
+            'Net::FTP::dataconn'    => '3.10',
+            'Net::NNTP'             => '3.10',
+            'Net::Netrc'            => '3.10',
+            'Net::POP3'             => '3.10',
+            'Net::Ping'             => '2.44',
+            'Net::SMTP'             => '3.10',
+            'Net::Time'             => '3.10',
+            'Opcode'                => '1.37',
+            'POSIX'                 => '1.71',
+            'Parse::CPAN::Meta'     => '2.150010',
+            'Pod::Html'             => '1.2201',
+            'Pod::Perldoc'          => '3.27',
+            'Pod::Perldoc::BaseTo'  => '3.27',
+            'Pod::Perldoc::GetOptsOO'=> '3.27',
+            'Pod::Perldoc::ToANSI'  => '3.27',
+            'Pod::Perldoc::ToChecker'=> '3.27',
+            'Pod::Perldoc::ToMan'   => '3.27',
+            'Pod::Perldoc::ToNroff' => '3.27',
+            'Pod::Perldoc::ToPod'   => '3.27',
+            'Pod::Perldoc::ToRtf'   => '3.27',
+            'Pod::Perldoc::ToTerm'  => '3.27',
+            'Pod::Perldoc::ToText'  => '3.27',
+            'Pod::Perldoc::ToTk'    => '3.27',
+            'Pod::Perldoc::ToXml'   => '3.27',
+            'Storable'              => '2.57',
+            'Sys::Syslog'           => '0.34_01',
+            'TAP::Base'             => '3.36_01',
+            'TAP::Formatter::Base'  => '3.36_01',
+            'TAP::Formatter::Color' => '3.36_01',
+            'TAP::Formatter::Console'=> '3.36_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36_01',
+            'TAP::Formatter::Console::Session'=> '3.36_01',
+            'TAP::Formatter::File'  => '3.36_01',
+            'TAP::Formatter::File::Session'=> '3.36_01',
+            'TAP::Formatter::Session'=> '3.36_01',
+            'TAP::Harness'          => '3.36_01',
+            'TAP::Harness::Env'     => '3.36_01',
+            'TAP::Object'           => '3.36_01',
+            'TAP::Parser'           => '3.36_01',
+            'TAP::Parser::Aggregator'=> '3.36_01',
+            'TAP::Parser::Grammar'  => '3.36_01',
+            'TAP::Parser::Iterator' => '3.36_01',
+            'TAP::Parser::Iterator::Array'=> '3.36_01',
+            'TAP::Parser::Iterator::Process'=> '3.36_01',
+            'TAP::Parser::Iterator::Stream'=> '3.36_01',
+            'TAP::Parser::IteratorFactory'=> '3.36_01',
+            'TAP::Parser::Multiplexer'=> '3.36_01',
+            'TAP::Parser::Result'   => '3.36_01',
+            'TAP::Parser::Result::Bailout'=> '3.36_01',
+            'TAP::Parser::Result::Comment'=> '3.36_01',
+            'TAP::Parser::Result::Plan'=> '3.36_01',
+            'TAP::Parser::Result::Pragma'=> '3.36_01',
+            'TAP::Parser::Result::Test'=> '3.36_01',
+            'TAP::Parser::Result::Unknown'=> '3.36_01',
+            'TAP::Parser::Result::Version'=> '3.36_01',
+            'TAP::Parser::Result::YAML'=> '3.36_01',
+            'TAP::Parser::ResultFactory'=> '3.36_01',
+            'TAP::Parser::Scheduler'=> '3.36_01',
+            'TAP::Parser::Scheduler::Job'=> '3.36_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36_01',
+            'TAP::Parser::Source'   => '3.36_01',
+            'TAP::Parser::SourceHandler'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36_01',
+            'TAP::Parser::SourceHandler::File'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.36_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.36_01',
+            'Test'                  => '1.29',
+            'Test2'                 => '1.302052',
+            'Test2::API'            => '1.302052',
+            'Test2::API::Breakage'  => '1.302052',
+            'Test2::API::Context'   => '1.302052',
+            'Test2::API::Instance'  => '1.302052',
+            'Test2::API::Stack'     => '1.302052',
+            'Test2::Event'          => '1.302052',
+            'Test2::Event::Bail'    => '1.302052',
+            'Test2::Event::Diag'    => '1.302052',
+            'Test2::Event::Exception'=> '1.302052',
+            'Test2::Event::Generic' => '1.302052',
+            'Test2::Event::Info'    => '1.302052',
+            'Test2::Event::Note'    => '1.302052',
+            'Test2::Event::Ok'      => '1.302052',
+            'Test2::Event::Plan'    => '1.302052',
+            'Test2::Event::Skip'    => '1.302052',
+            'Test2::Event::Subtest' => '1.302052',
+            'Test2::Event::Waiting' => '1.302052',
+            'Test2::Formatter'      => '1.302052',
+            'Test2::Formatter::TAP' => '1.302052',
+            'Test2::Hub'            => '1.302052',
+            'Test2::Hub::Interceptor'=> '1.302052',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302052',
+            'Test2::Hub::Subtest'   => '1.302052',
+            'Test2::IPC'            => '1.302052',
+            'Test2::IPC::Driver'    => '1.302052',
+            'Test2::IPC::Driver::Files'=> '1.302052',
+            'Test2::Util'           => '1.302052',
+            'Test2::Util::ExternalMeta'=> '1.302052',
+            'Test2::Util::HashBase' => '1.302052',
+            'Test2::Util::Trace'    => '1.302052',
+            'Test::Builder'         => '1.302052',
+            'Test::Builder::Formatter'=> '1.302052',
+            'Test::Builder::Module' => '1.302052',
+            'Test::Builder::Tester' => '1.302052',
+            'Test::Builder::Tester::Color'=> '1.302052',
+            'Test::Builder::TodoDiag'=> '1.302052',
+            'Test::Harness'         => '3.36_01',
+            'Test::More'            => '1.302052',
+            'Test::Simple'          => '1.302052',
+            'Test::Tester'          => '1.302052',
+            'Test::Tester::Capture' => '1.302052',
+            'Test::Tester::CaptureRunner'=> '1.302052',
+            'Test::Tester::Delegate'=> '1.302052',
+            'Test::use::ok'         => '1.302052',
+            'Tie::Hash::NamedCapture'=> '0.10',
+            'Time::Local'           => '1.24',
+            'XS::APItest'           => '0.83',
+            'arybase'               => '0.12',
+            'base'                  => '2.24',
+            'bigint'                => '0.43_01',
+            'bignum'                => '0.43_01',
+            'bigrat'                => '0.43_01',
+            'encoding'              => '2.18',
+            'ok'                    => '1.302052',
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+            'B::Op_private'         => '5.025005',
+            'Config'                => '5.025005',
+            'Filter::Simple'        => '0.93',
+            'Locale::Codes'         => '3.40',
+            'Locale::Codes::Constants'=> '3.40',
+            'Locale::Codes::Country'=> '3.40',
+            'Locale::Codes::Country_Codes'=> '3.40',
+            'Locale::Codes::Country_Retired'=> '3.40',
+            'Locale::Codes::Currency'=> '3.40',
+            'Locale::Codes::Currency_Codes'=> '3.40',
+            'Locale::Codes::Currency_Retired'=> '3.40',
+            'Locale::Codes::LangExt'=> '3.40',
+            'Locale::Codes::LangExt_Codes'=> '3.40',
+            'Locale::Codes::LangExt_Retired'=> '3.40',
+            'Locale::Codes::LangFam'=> '3.40',
+            'Locale::Codes::LangFam_Codes'=> '3.40',
+            'Locale::Codes::LangFam_Retired'=> '3.40',
+            'Locale::Codes::LangVar'=> '3.40',
+            'Locale::Codes::LangVar_Codes'=> '3.40',
+            'Locale::Codes::LangVar_Retired'=> '3.40',
+            'Locale::Codes::Language'=> '3.40',
+            'Locale::Codes::Language_Codes'=> '3.40',
+            'Locale::Codes::Language_Retired'=> '3.40',
+            'Locale::Codes::Script' => '3.40',
+            'Locale::Codes::Script_Codes'=> '3.40',
+            'Locale::Codes::Script_Retired'=> '3.40',
+            'Locale::Country'       => '3.40',
+            'Locale::Currency'      => '3.40',
+            'Locale::Language'      => '3.40',
+            'Locale::Script'        => '3.40',
+            'Module::CoreList'      => '5.20160920',
+            'Module::CoreList::TieHashDelta'=> '5.20160920',
+            'Module::CoreList::Utils'=> '5.20160920',
+            'POSIX'                 => '1.72',
+            'Sys::Syslog'           => '0.35',
+            'Test2'                 => '1.302056',
+            'Test2::API'            => '1.302056',
+            'Test2::API::Breakage'  => '1.302056',
+            'Test2::API::Context'   => '1.302056',
+            'Test2::API::Instance'  => '1.302056',
+            'Test2::API::Stack'     => '1.302056',
+            'Test2::Event'          => '1.302056',
+            'Test2::Event::Bail'    => '1.302056',
+            'Test2::Event::Diag'    => '1.302056',
+            'Test2::Event::Exception'=> '1.302056',
+            'Test2::Event::Generic' => '1.302056',
+            'Test2::Event::Info'    => '1.302056',
+            'Test2::Event::Note'    => '1.302056',
+            'Test2::Event::Ok'      => '1.302056',
+            'Test2::Event::Plan'    => '1.302056',
+            'Test2::Event::Skip'    => '1.302056',
+            'Test2::Event::Subtest' => '1.302056',
+            'Test2::Event::Waiting' => '1.302056',
+            'Test2::Formatter'      => '1.302056',
+            'Test2::Formatter::TAP' => '1.302056',
+            'Test2::Hub'            => '1.302056',
+            'Test2::Hub::Interceptor'=> '1.302056',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302056',
+            'Test2::Hub::Subtest'   => '1.302056',
+            'Test2::IPC'            => '1.302056',
+            'Test2::IPC::Driver'    => '1.302056',
+            'Test2::IPC::Driver::Files'=> '1.302056',
+            'Test2::Util'           => '1.302056',
+            'Test2::Util::ExternalMeta'=> '1.302056',
+            'Test2::Util::HashBase' => '1.302056',
+            'Test2::Util::Trace'    => '1.302056',
+            'Test::Builder'         => '1.302056',
+            'Test::Builder::Formatter'=> '1.302056',
+            'Test::Builder::Module' => '1.302056',
+            'Test::Builder::Tester' => '1.302056',
+            'Test::Builder::Tester::Color'=> '1.302056',
+            'Test::Builder::TodoDiag'=> '1.302056',
+            'Test::More'            => '1.302056',
+            'Test::Simple'          => '1.302056',
+            'Test::Tester'          => '1.302056',
+            'Test::Tester::Capture' => '1.302056',
+            'Test::Tester::CaptureRunner'=> '1.302056',
+            'Test::Tester::Delegate'=> '1.302056',
+            'Test::use::ok'         => '1.302056',
+            'Thread::Semaphore'     => '2.13',
+            'XS::APItest'           => '0.84',
+            'XSLoader'              => '0.24',
+            'ok'                    => '1.302056',
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+            'Archive::Tar'          => '2.14',
+            'Archive::Tar::Constant'=> '2.14',
+            'Archive::Tar::File'    => '2.14',
+            'B'                     => '1.64',
+            'B::Concise'            => '0.999',
+            'B::Deparse'            => '1.39',
+            'B::Op_private'         => '5.025006',
+            'Config'                => '5.025006',
+            'Data::Dumper'          => '2.162',
+            'Devel::Peek'           => '1.25',
+            'HTTP::Tiny'            => '0.070',
+            'List::Util'            => '1.46',
+            'List::Util::XS'        => '1.46',
+            'Module::CoreList'      => '5.20161020',
+            'Module::CoreList::TieHashDelta'=> '5.20161020',
+            'Module::CoreList::Utils'=> '5.20161020',
+            'Net::Ping'             => '2.51',
+            'OS2::DLL'              => '1.07',
+            'Opcode'                => '1.38',
+            'POSIX'                 => '1.73',
+            'PerlIO::encoding'      => '0.25',
+            'Pod::Man'              => '4.08',
+            'Pod::ParseLink'        => '4.08',
+            'Pod::Text'             => '4.08',
+            'Pod::Text::Color'      => '4.08',
+            'Pod::Text::Overstrike' => '4.08',
+            'Pod::Text::Termcap'    => '4.08',
+            'Scalar::Util'          => '1.46',
+            'Storable'              => '2.58',
+            'Sub::Util'             => '1.46',
+            'Test2'                 => '1.302059',
+            'Test2::API'            => '1.302059',
+            'Test2::API::Breakage'  => '1.302059',
+            'Test2::API::Context'   => '1.302059',
+            'Test2::API::Instance'  => '1.302059',
+            'Test2::API::Stack'     => '1.302059',
+            'Test2::Event'          => '1.302059',
+            'Test2::Event::Bail'    => '1.302059',
+            'Test2::Event::Diag'    => '1.302059',
+            'Test2::Event::Exception'=> '1.302059',
+            'Test2::Event::Generic' => '1.302059',
+            'Test2::Event::Info'    => '1.302059',
+            'Test2::Event::Note'    => '1.302059',
+            'Test2::Event::Ok'      => '1.302059',
+            'Test2::Event::Plan'    => '1.302059',
+            'Test2::Event::Skip'    => '1.302059',
+            'Test2::Event::Subtest' => '1.302059',
+            'Test2::Event::Waiting' => '1.302059',
+            'Test2::Formatter'      => '1.302059',
+            'Test2::Formatter::TAP' => '1.302059',
+            'Test2::Hub'            => '1.302059',
+            'Test2::Hub::Interceptor'=> '1.302059',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302059',
+            'Test2::Hub::Subtest'   => '1.302059',
+            'Test2::IPC'            => '1.302059',
+            'Test2::IPC::Driver'    => '1.302059',
+            'Test2::IPC::Driver::Files'=> '1.302059',
+            'Test2::Util'           => '1.302059',
+            'Test2::Util::ExternalMeta'=> '1.302059',
+            'Test2::Util::HashBase' => '1.302059',
+            'Test2::Util::Trace'    => '1.302059',
+            'Test::Builder'         => '1.302059',
+            'Test::Builder::Formatter'=> '1.302059',
+            'Test::Builder::Module' => '1.302059',
+            'Test::Builder::Tester' => '1.302059',
+            'Test::Builder::Tester::Color'=> '1.302059',
+            'Test::Builder::TodoDiag'=> '1.302059',
+            'Test::More'            => '1.302059',
+            'Test::Simple'          => '1.302059',
+            'Test::Tester'          => '1.302059',
+            'Test::Tester::Capture' => '1.302059',
+            'Test::Tester::CaptureRunner'=> '1.302059',
+            'Test::Tester::Delegate'=> '1.302059',
+            'Test::use::ok'         => '1.302059',
+            'Time::HiRes'           => '1.9740_01',
+            'VMS::Stdio'            => '2.42',
+            'XS::APItest'           => '0.86',
+            'attributes'            => '0.28',
+            'mro'                   => '1.19',
+            'ok'                    => '1.302059',
+            'overload'              => '1.27',
+            'parent'                => '0.236',
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+            'Archive::Tar'          => '2.18',
+            'Archive::Tar::Constant'=> '2.18',
+            'Archive::Tar::File'    => '2.18',
+            'B'                     => '1.65',
+            'B::Op_private'         => '5.025007',
+            'Config'                => '5.025007',
+            'Cwd'                   => '3.66',
+            'Data::Dumper'          => '2.165',
+            'Devel::Peek'           => '1.26',
+            'DynaLoader'            => '1.40',
+            'Errno'                 => '1.27',
+            'ExtUtils::ParseXS::Utilities'=> '3.34',
+            'File::Spec'            => '3.66',
+            'File::Spec::AmigaOS'   => '3.66',
+            'File::Spec::Cygwin'    => '3.66',
+            'File::Spec::Epoc'      => '3.66',
+            'File::Spec::Functions' => '3.66',
+            'File::Spec::Mac'       => '3.66',
+            'File::Spec::OS2'       => '3.66',
+            'File::Spec::Unix'      => '3.66',
+            'File::Spec::VMS'       => '3.66',
+            'File::Spec::Win32'     => '3.66',
+            'Hash::Util'            => '0.22',
+            'JSON::PP'              => '2.27400_02',
+            'List::Util'            => '1.46_02',
+            'List::Util::XS'        => '1.46_02',
+            'Math::BigFloat'        => '1.999727',
+            'Math::BigInt'          => '1.999727',
+            'Math::BigInt::Calc'    => '1.999727',
+            'Math::BigInt::CalcEmu' => '1.999727',
+            'Math::Complex'         => '1.5901',
+            'Module::CoreList'      => '5.20161120',
+            'Module::CoreList::TieHashDelta'=> '5.20161120',
+            'Module::CoreList::Utils'=> '5.20161120',
+            'Net::Ping'             => '2.55',
+            'Opcode'                => '1.39',
+            'POSIX'                 => '1.75',
+            'Pod::Man'              => '4.09',
+            'Pod::ParseLink'        => '4.09',
+            'Pod::Text'             => '4.09',
+            'Pod::Text::Color'      => '4.09',
+            'Pod::Text::Overstrike' => '4.09',
+            'Pod::Text::Termcap'    => '4.09',
+            'Scalar::Util'          => '1.46_02',
+            'Storable'              => '2.59',
+            'Sub::Util'             => '1.46_02',
+            'Term::ANSIColor'       => '4.06',
+            'Test2'                 => '1.302062',
+            'Test2::API'            => '1.302062',
+            'Test2::API::Breakage'  => '1.302062',
+            'Test2::API::Context'   => '1.302062',
+            'Test2::API::Instance'  => '1.302062',
+            'Test2::API::Stack'     => '1.302062',
+            'Test2::Event'          => '1.302062',
+            'Test2::Event::Bail'    => '1.302062',
+            'Test2::Event::Diag'    => '1.302062',
+            'Test2::Event::Exception'=> '1.302062',
+            'Test2::Event::Generic' => '1.302062',
+            'Test2::Event::Info'    => '1.302062',
+            'Test2::Event::Note'    => '1.302062',
+            'Test2::Event::Ok'      => '1.302062',
+            'Test2::Event::Plan'    => '1.302062',
+            'Test2::Event::Skip'    => '1.302062',
+            'Test2::Event::Subtest' => '1.302062',
+            'Test2::Event::Waiting' => '1.302062',
+            'Test2::Formatter'      => '1.302062',
+            'Test2::Formatter::TAP' => '1.302062',
+            'Test2::Hub'            => '1.302062',
+            'Test2::Hub::Interceptor'=> '1.302062',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302062',
+            'Test2::Hub::Subtest'   => '1.302062',
+            'Test2::IPC'            => '1.302062',
+            'Test2::IPC::Driver'    => '1.302062',
+            'Test2::IPC::Driver::Files'=> '1.302062',
+            'Test2::Util'           => '1.302062',
+            'Test2::Util::ExternalMeta'=> '1.302062',
+            'Test2::Util::HashBase' => '1.302062',
+            'Test2::Util::Trace'    => '1.302062',
+            'Test::Builder'         => '1.302062',
+            'Test::Builder::Formatter'=> '1.302062',
+            'Test::Builder::Module' => '1.302062',
+            'Test::Builder::Tester' => '1.302062',
+            'Test::Builder::Tester::Color'=> '1.302062',
+            'Test::Builder::TodoDiag'=> '1.302062',
+            'Test::More'            => '1.302062',
+            'Test::Simple'          => '1.302062',
+            'Test::Tester'          => '1.302062',
+            'Test::Tester::Capture' => '1.302062',
+            'Test::Tester::CaptureRunner'=> '1.302062',
+            'Test::Tester::Delegate'=> '1.302062',
+            'Test::use::ok'         => '1.302062',
+            'Time::HiRes'           => '1.9740_03',
+            'Unicode::Collate'      => '1.18',
+            'Unicode::Collate::CJK::Big5'=> '1.18',
+            'Unicode::Collate::CJK::GB2312'=> '1.18',
+            'Unicode::Collate::CJK::JISX0208'=> '1.18',
+            'Unicode::Collate::CJK::Korean'=> '1.18',
+            'Unicode::Collate::CJK::Pinyin'=> '1.18',
+            'Unicode::Collate::CJK::Stroke'=> '1.18',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.18',
+            'Unicode::Collate::Locale'=> '1.18',
+            'Unicode::UCD'          => '0.67',
+            'XS::APItest'           => '0.87',
+            'XS::Typemap'           => '0.15',
+            'mro'                   => '1.20',
+            'ok'                    => '1.302062',
+            'threads'               => '2.10',
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+            'Archive::Tar'          => '2.24',
+            'Archive::Tar::Constant'=> '2.24',
+            'Archive::Tar::File'    => '2.24',
+            'B::Debug'              => '1.24',
+            'B::Op_private'         => '5.025008',
+            'Config'                => '5.025008',
+            'Data::Dumper'          => '2.166',
+            'Encode'                => '2.88',
+            'Encode::Alias'         => '2.21',
+            'Encode::CN::HZ'        => '2.08',
+            'Encode::MIME::Header'  => '2.24',
+            'Encode::MIME::Name'    => '1.02',
+            'Encode::Unicode'       => '2.1501',
+            'IO'                    => '1.38',
+            'Locale::Codes'         => '3.42',
+            'Locale::Codes::Constants'=> '3.42',
+            'Locale::Codes::Country'=> '3.42',
+            'Locale::Codes::Country_Codes'=> '3.42',
+            'Locale::Codes::Country_Retired'=> '3.42',
+            'Locale::Codes::Currency'=> '3.42',
+            'Locale::Codes::Currency_Codes'=> '3.42',
+            'Locale::Codes::Currency_Retired'=> '3.42',
+            'Locale::Codes::LangExt'=> '3.42',
+            'Locale::Codes::LangExt_Codes'=> '3.42',
+            'Locale::Codes::LangExt_Retired'=> '3.42',
+            'Locale::Codes::LangFam'=> '3.42',
+            'Locale::Codes::LangFam_Codes'=> '3.42',
+            'Locale::Codes::LangFam_Retired'=> '3.42',
+            'Locale::Codes::LangVar'=> '3.42',
+            'Locale::Codes::LangVar_Codes'=> '3.42',
+            'Locale::Codes::LangVar_Retired'=> '3.42',
+            'Locale::Codes::Language'=> '3.42',
+            'Locale::Codes::Language_Codes'=> '3.42',
+            'Locale::Codes::Language_Retired'=> '3.42',
+            'Locale::Codes::Script' => '3.42',
+            'Locale::Codes::Script_Codes'=> '3.42',
+            'Locale::Codes::Script_Retired'=> '3.42',
+            'Locale::Country'       => '3.42',
+            'Locale::Currency'      => '3.42',
+            'Locale::Language'      => '3.42',
+            'Locale::Script'        => '3.42',
+            'Math::BigFloat'        => '1.999806',
+            'Math::BigFloat::Trace' => '0.47',
+            'Math::BigInt'          => '1.999806',
+            'Math::BigInt::Calc'    => '1.999806',
+            'Math::BigInt::CalcEmu' => '1.999806',
+            'Math::BigInt::FastCalc'=> '0.5005',
+            'Math::BigInt::Lib'     => '1.999806',
+            'Math::BigInt::Trace'   => '0.47',
+            'Math::BigRat'          => '0.2611',
+            'Module::CoreList'      => '5.20161220',
+            'Module::CoreList::TieHashDelta'=> '5.20161220',
+            'Module::CoreList::Utils'=> '5.20161220',
+            'POSIX'                 => '1.76',
+            'PerlIO::scalar'        => '0.25',
+            'Pod::Simple'           => '3.35',
+            'Pod::Simple::BlackBox' => '3.35',
+            'Pod::Simple::Checker'  => '3.35',
+            'Pod::Simple::Debug'    => '3.35',
+            'Pod::Simple::DumpAsText'=> '3.35',
+            'Pod::Simple::DumpAsXML'=> '3.35',
+            'Pod::Simple::HTML'     => '3.35',
+            'Pod::Simple::HTMLBatch'=> '3.35',
+            'Pod::Simple::LinkSection'=> '3.35',
+            'Pod::Simple::Methody'  => '3.35',
+            'Pod::Simple::Progress' => '3.35',
+            'Pod::Simple::PullParser'=> '3.35',
+            'Pod::Simple::PullParserEndToken'=> '3.35',
+            'Pod::Simple::PullParserStartToken'=> '3.35',
+            'Pod::Simple::PullParserTextToken'=> '3.35',
+            'Pod::Simple::PullParserToken'=> '3.35',
+            'Pod::Simple::RTF'      => '3.35',
+            'Pod::Simple::Search'   => '3.35',
+            'Pod::Simple::SimpleTree'=> '3.35',
+            'Pod::Simple::Text'     => '3.35',
+            'Pod::Simple::TextContent'=> '3.35',
+            'Pod::Simple::TiedOutFH'=> '3.35',
+            'Pod::Simple::Transcode'=> '3.35',
+            'Pod::Simple::TranscodeDumb'=> '3.35',
+            'Pod::Simple::TranscodeSmart'=> '3.35',
+            'Pod::Simple::XHTML'    => '3.35',
+            'Pod::Simple::XMLOutStream'=> '3.35',
+            'Test2'                 => '1.302073',
+            'Test2::API'            => '1.302073',
+            'Test2::API::Breakage'  => '1.302073',
+            'Test2::API::Context'   => '1.302073',
+            'Test2::API::Instance'  => '1.302073',
+            'Test2::API::Stack'     => '1.302073',
+            'Test2::Event'          => '1.302073',
+            'Test2::Event::Bail'    => '1.302073',
+            'Test2::Event::Diag'    => '1.302073',
+            'Test2::Event::Encoding'=> '1.302073',
+            'Test2::Event::Exception'=> '1.302073',
+            'Test2::Event::Generic' => '1.302073',
+            'Test2::Event::Info'    => '1.302073',
+            'Test2::Event::Note'    => '1.302073',
+            'Test2::Event::Ok'      => '1.302073',
+            'Test2::Event::Plan'    => '1.302073',
+            'Test2::Event::Skip'    => '1.302073',
+            'Test2::Event::Subtest' => '1.302073',
+            'Test2::Event::TAP::Version'=> '1.302073',
+            'Test2::Event::Waiting' => '1.302073',
+            'Test2::Formatter'      => '1.302073',
+            'Test2::Formatter::TAP' => '1.302073',
+            'Test2::Hub'            => '1.302073',
+            'Test2::Hub::Interceptor'=> '1.302073',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302073',
+            'Test2::Hub::Subtest'   => '1.302073',
+            'Test2::IPC'            => '1.302073',
+            'Test2::IPC::Driver'    => '1.302073',
+            'Test2::IPC::Driver::Files'=> '1.302073',
+            'Test2::Tools::Tiny'    => '1.302073',
+            'Test2::Util'           => '1.302073',
+            'Test2::Util::ExternalMeta'=> '1.302073',
+            'Test2::Util::HashBase' => '0.002',
+            'Test2::Util::Trace'    => '1.302073',
+            'Test::Builder'         => '1.302073',
+            'Test::Builder::Formatter'=> '1.302073',
+            'Test::Builder::Module' => '1.302073',
+            'Test::Builder::Tester' => '1.302073',
+            'Test::Builder::Tester::Color'=> '1.302073',
+            'Test::Builder::TodoDiag'=> '1.302073',
+            'Test::More'            => '1.302073',
+            'Test::Simple'          => '1.302073',
+            'Test::Tester'          => '1.302073',
+            'Test::Tester::Capture' => '1.302073',
+            'Test::Tester::CaptureRunner'=> '1.302073',
+            'Test::Tester::Delegate'=> '1.302073',
+            'Test::use::ok'         => '1.302073',
+            'Time::HiRes'           => '1.9741',
+            'Time::Local'           => '1.25',
+            'Unicode::Collate'      => '1.19',
+            'Unicode::Collate::CJK::Big5'=> '1.19',
+            'Unicode::Collate::CJK::GB2312'=> '1.19',
+            'Unicode::Collate::CJK::JISX0208'=> '1.19',
+            'Unicode::Collate::CJK::Korean'=> '1.19',
+            'Unicode::Collate::CJK::Pinyin'=> '1.19',
+            'Unicode::Collate::CJK::Stroke'=> '1.19',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.19',
+            'Unicode::Collate::Locale'=> '1.19',
+            'bigint'                => '0.47',
+            'bignum'                => '0.47',
+            'bigrat'                => '0.47',
+            'encoding'              => '2.19',
+            'ok'                    => '1.302073',
+        },
+        removed => {
+        }
+    },
+    5.022003 => {
+        delta_from => 5.022002,
+        changed => {
+            'App::Cpan'             => '1.63_01',
+            'App::Prove'            => '3.35_01',
+            'App::Prove::State'     => '3.35_01',
+            'App::Prove::State::Result'=> '3.35_01',
+            'App::Prove::State::Result::Test'=> '3.35_01',
+            'Archive::Tar'          => '2.04_01',
+            'Archive::Tar::Constant'=> '2.04_01',
+            'Archive::Tar::File'    => '2.04_01',
+            'B::Op_private'         => '5.022003',
+            'CPAN'                  => '2.11_01',
+            'Compress::Zlib'        => '2.068_001',
+            'Config'                => '5.022003',
+            'Cwd'                   => '3.56_02',
+            'Digest'                => '1.17_01',
+            'Digest::SHA'           => '5.95_01',
+            'Encode'                => '2.72_01',
+            'ExtUtils::Command'     => '1.20_01',
+            'ExtUtils::Command::MM' => '7.04_02',
+            'ExtUtils::Liblist'     => '7.04_02',
+            'ExtUtils::Liblist::Kid'=> '7.04_02',
+            'ExtUtils::MM'          => '7.04_02',
+            'ExtUtils::MM_AIX'      => '7.04_02',
+            'ExtUtils::MM_Any'      => '7.04_02',
+            'ExtUtils::MM_BeOS'     => '7.04_02',
+            'ExtUtils::MM_Cygwin'   => '7.04_02',
+            'ExtUtils::MM_DOS'      => '7.04_02',
+            'ExtUtils::MM_Darwin'   => '7.04_02',
+            'ExtUtils::MM_MacOS'    => '7.04_02',
+            'ExtUtils::MM_NW5'      => '7.04_02',
+            'ExtUtils::MM_OS2'      => '7.04_02',
+            'ExtUtils::MM_QNX'      => '7.04_02',
+            'ExtUtils::MM_UWIN'     => '7.04_02',
+            'ExtUtils::MM_Unix'     => '7.04_02',
+            'ExtUtils::MM_VMS'      => '7.04_02',
+            'ExtUtils::MM_VOS'      => '7.04_02',
+            'ExtUtils::MM_Win32'    => '7.04_02',
+            'ExtUtils::MM_Win95'    => '7.04_02',
+            'ExtUtils::MY'          => '7.04_02',
+            'ExtUtils::MakeMaker'   => '7.04_02',
+            'ExtUtils::MakeMaker::Config'=> '7.04_02',
+            'ExtUtils::Mkbootstrap' => '7.04_02',
+            'ExtUtils::Mksymlists'  => '7.04_02',
+            'ExtUtils::testlib'     => '7.04_02',
+            'File::Fetch'           => '0.48_01',
+            'File::Spec'            => '3.56_02',
+            'File::Spec::Cygwin'    => '3.56_02',
+            'File::Spec::Epoc'      => '3.56_02',
+            'File::Spec::Functions' => '3.56_02',
+            'File::Spec::Mac'       => '3.56_02',
+            'File::Spec::OS2'       => '3.56_02',
+            'File::Spec::Unix'      => '3.56_02',
+            'File::Spec::VMS'       => '3.56_02',
+            'File::Spec::Win32'     => '3.56_02',
+            'HTTP::Tiny'            => '0.054_01',
+            'I18N::LangTags::Detect'=> '1.05_01',
+            'IO'                    => '1.35_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.068_001',
+            'IO::Compress::Adapter::Deflate'=> '2.068_001',
+            'IO::Compress::Adapter::Identity'=> '2.068_001',
+            'IO::Compress::Base'    => '2.068_001',
+            'IO::Compress::Base::Common'=> '2.068_001',
+            'IO::Compress::Bzip2'   => '2.068_001',
+            'IO::Compress::Deflate' => '2.068_001',
+            'IO::Compress::Gzip'    => '2.068_001',
+            'IO::Compress::Gzip::Constants'=> '2.068_001',
+            'IO::Compress::RawDeflate'=> '2.068_001',
+            'IO::Compress::Zip'     => '2.068_001',
+            'IO::Compress::Zip::Constants'=> '2.068_001',
+            'IO::Compress::Zlib::Constants'=> '2.068_001',
+            'IO::Compress::Zlib::Extra'=> '2.068_001',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.068_001',
+            'IO::Uncompress::Adapter::Identity'=> '2.068_001',
+            'IO::Uncompress::Adapter::Inflate'=> '2.068_001',
+            'IO::Uncompress::AnyInflate'=> '2.068_001',
+            'IO::Uncompress::AnyUncompress'=> '2.068_001',
+            'IO::Uncompress::Base'  => '2.068_001',
+            'IO::Uncompress::Bunzip2'=> '2.068_001',
+            'IO::Uncompress::Gunzip'=> '2.068_001',
+            'IO::Uncompress::Inflate'=> '2.068_001',
+            'IO::Uncompress::RawInflate'=> '2.068_001',
+            'IO::Uncompress::Unzip' => '2.068_001',
+            'IPC::Cmd'              => '0.92_01',
+            'JSON::PP'              => '2.27300_01',
+            'Locale::Maketext'      => '1.26_01',
+            'Locale::Maketext::Simple'=> '0.21_01',
+            'Memoize'               => '1.03_01',
+            'Module::CoreList'      => '5.20170114_22',
+            'Module::CoreList::TieHashDelta'=> '5.20170114_22',
+            'Module::CoreList::Utils'=> '5.20170114_22',
+            'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF8'=> '1',
+            'Net::Cmd'              => '3.05_01',
+            'Net::Config'           => '3.05_01',
+            'Net::Domain'           => '3.05_01',
+            'Net::FTP'              => '3.05_01',
+            'Net::FTP::A'           => '3.05_01',
+            'Net::FTP::E'           => '3.05_01',
+            'Net::FTP::I'           => '3.05_01',
+            'Net::FTP::L'           => '3.05_01',
+            'Net::FTP::dataconn'    => '3.05_01',
+            'Net::NNTP'             => '3.05_01',
+            'Net::Netrc'            => '3.05_01',
+            'Net::POP3'             => '3.05_01',
+            'Net::Ping'             => '2.43_01',
+            'Net::SMTP'             => '3.05_01',
+            'Net::Time'             => '3.05_01',
+            'Parse::CPAN::Meta'     => '1.4414_001',
+            'Pod::Html'             => '1.2201',
+            'Pod::Perldoc'          => '3.25_01',
+            'Storable'              => '2.53_02',
+            'Sys::Syslog'           => '0.33_01',
+            'TAP::Base'             => '3.35_01',
+            'TAP::Formatter::Base'  => '3.35_01',
+            'TAP::Formatter::Color' => '3.35_01',
+            'TAP::Formatter::Console'=> '3.35_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.35_01',
+            'TAP::Formatter::Console::Session'=> '3.35_01',
+            'TAP::Formatter::File'  => '3.35_01',
+            'TAP::Formatter::File::Session'=> '3.35_01',
+            'TAP::Formatter::Session'=> '3.35_01',
+            'TAP::Harness'          => '3.35_01',
+            'TAP::Harness::Env'     => '3.35_01',
+            'TAP::Object'           => '3.35_01',
+            'TAP::Parser'           => '3.35_01',
+            'TAP::Parser::Aggregator'=> '3.35_01',
+            'TAP::Parser::Grammar'  => '3.35_01',
+            'TAP::Parser::Iterator' => '3.35_01',
+            'TAP::Parser::Iterator::Array'=> '3.35_01',
+            'TAP::Parser::Iterator::Process'=> '3.35_01',
+            'TAP::Parser::Iterator::Stream'=> '3.35_01',
+            'TAP::Parser::IteratorFactory'=> '3.35_01',
+            'TAP::Parser::Multiplexer'=> '3.35_01',
+            'TAP::Parser::Result'   => '3.35_01',
+            'TAP::Parser::Result::Bailout'=> '3.35_01',
+            'TAP::Parser::Result::Comment'=> '3.35_01',
+            'TAP::Parser::Result::Plan'=> '3.35_01',
+            'TAP::Parser::Result::Pragma'=> '3.35_01',
+            'TAP::Parser::Result::Test'=> '3.35_01',
+            'TAP::Parser::Result::Unknown'=> '3.35_01',
+            'TAP::Parser::Result::Version'=> '3.35_01',
+            'TAP::Parser::Result::YAML'=> '3.35_01',
+            'TAP::Parser::ResultFactory'=> '3.35_01',
+            'TAP::Parser::Scheduler'=> '3.35_01',
+            'TAP::Parser::Scheduler::Job'=> '3.35_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.35_01',
+            'TAP::Parser::Source'   => '3.35_01',
+            'TAP::Parser::SourceHandler'=> '3.35_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.35_01',
+            'TAP::Parser::SourceHandler::File'=> '3.35_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.35_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.35_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.35_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.35_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.35_01',
+            'Test'                  => '1.26_01',
+            'Test::Harness'         => '3.35_01',
+            'XSLoader'              => '0.20_01',
+            'bigint'                => '0.39_01',
+            'bignum'                => '0.39_01',
+            'bigrat'                => '0.39_01',
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+            'App::Cpan'             => '1.63_01',
+            'App::Prove'            => '3.36_01',
+            'App::Prove::State'     => '3.36_01',
+            'App::Prove::State::Result'=> '3.36_01',
+            'App::Prove::State::Result::Test'=> '3.36_01',
+            'Archive::Tar'          => '2.04_01',
+            'Archive::Tar::Constant'=> '2.04_01',
+            'Archive::Tar::File'    => '2.04_01',
+            'B::Op_private'         => '5.024001',
+            'CPAN'                  => '2.11_01',
+            'Compress::Zlib'        => '2.069_001',
+            'Config'                => '5.024001',
+            'Cwd'                   => '3.63_01',
+            'Digest'                => '1.17_01',
+            'Digest::SHA'           => '5.95_01',
+            'Encode'                => '2.80_01',
+            'ExtUtils::Command'     => '7.10_02',
+            'ExtUtils::Command::MM' => '7.10_02',
+            'ExtUtils::Liblist'     => '7.10_02',
+            'ExtUtils::Liblist::Kid'=> '7.10_02',
+            'ExtUtils::MM'          => '7.10_02',
+            'ExtUtils::MM_AIX'      => '7.10_02',
+            'ExtUtils::MM_Any'      => '7.10_02',
+            'ExtUtils::MM_BeOS'     => '7.10_02',
+            'ExtUtils::MM_Cygwin'   => '7.10_02',
+            'ExtUtils::MM_DOS'      => '7.10_02',
+            'ExtUtils::MM_Darwin'   => '7.10_02',
+            'ExtUtils::MM_MacOS'    => '7.10_02',
+            'ExtUtils::MM_NW5'      => '7.10_02',
+            'ExtUtils::MM_OS2'      => '7.10_02',
+            'ExtUtils::MM_QNX'      => '7.10_02',
+            'ExtUtils::MM_UWIN'     => '7.10_02',
+            'ExtUtils::MM_Unix'     => '7.10_02',
+            'ExtUtils::MM_VMS'      => '7.10_02',
+            'ExtUtils::MM_VOS'      => '7.10_02',
+            'ExtUtils::MM_Win32'    => '7.10_02',
+            'ExtUtils::MM_Win95'    => '7.10_02',
+            'ExtUtils::MY'          => '7.10_02',
+            'ExtUtils::MakeMaker'   => '7.10_02',
+            'ExtUtils::MakeMaker::Config'=> '7.10_02',
+            'ExtUtils::Mkbootstrap' => '7.10_02',
+            'ExtUtils::Mksymlists'  => '7.10_02',
+            'ExtUtils::testlib'     => '7.10_02',
+            'File::Fetch'           => '0.48_01',
+            'File::Spec'            => '3.63_01',
+            'File::Spec::Cygwin'    => '3.63_01',
+            'File::Spec::Epoc'      => '3.63_01',
+            'File::Spec::Functions' => '3.63_01',
+            'File::Spec::Mac'       => '3.63_01',
+            'File::Spec::OS2'       => '3.63_01',
+            'File::Spec::Unix'      => '3.63_01',
+            'File::Spec::VMS'       => '3.63_01',
+            'File::Spec::Win32'     => '3.63_01',
+            'HTTP::Tiny'            => '0.056_001',
+            'I18N::LangTags::Detect'=> '1.05_01',
+            'IO'                    => '1.36_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.069_001',
+            'IO::Compress::Adapter::Deflate'=> '2.069_001',
+            'IO::Compress::Adapter::Identity'=> '2.069_001',
+            'IO::Compress::Base'    => '2.069_001',
+            'IO::Compress::Base::Common'=> '2.069_001',
+            'IO::Compress::Bzip2'   => '2.069_001',
+            'IO::Compress::Deflate' => '2.069_001',
+            'IO::Compress::Gzip'    => '2.069_001',
+            'IO::Compress::Gzip::Constants'=> '2.069_001',
+            'IO::Compress::RawDeflate'=> '2.069_001',
+            'IO::Compress::Zip'     => '2.069_001',
+            'IO::Compress::Zip::Constants'=> '2.069_001',
+            'IO::Compress::Zlib::Constants'=> '2.069_001',
+            'IO::Compress::Zlib::Extra'=> '2.069_001',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069_001',
+            'IO::Uncompress::Adapter::Identity'=> '2.069_001',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069_001',
+            'IO::Uncompress::AnyInflate'=> '2.069_001',
+            'IO::Uncompress::AnyUncompress'=> '2.069_001',
+            'IO::Uncompress::Base'  => '2.069_001',
+            'IO::Uncompress::Bunzip2'=> '2.069_001',
+            'IO::Uncompress::Gunzip'=> '2.069_001',
+            'IO::Uncompress::Inflate'=> '2.069_001',
+            'IO::Uncompress::RawInflate'=> '2.069_001',
+            'IO::Uncompress::Unzip' => '2.069_001',
+            'IPC::Cmd'              => '0.92_01',
+            'JSON::PP'              => '2.27300_01',
+            'Locale::Maketext'      => '1.26_01',
+            'Locale::Maketext::Simple'=> '0.21_01',
+            'Math::BigFloat::Trace' => '0.42_01',
+            'Math::BigInt::Trace'   => '0.42_01',
+            'Memoize'               => '1.03_01',
+            'Module::CoreList'      => '5.20170114_24',
+            'Module::CoreList::TieHashDelta'=> '5.20170114_24',
+            'Module::CoreList::Utils'=> '5.20170114_24',
+            'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF8'=> '1',
+            'Net::Cmd'              => '3.08_01',
+            'Net::Config'           => '3.08_01',
+            'Net::Domain'           => '3.08_01',
+            'Net::FTP'              => '3.08_01',
+            'Net::FTP::A'           => '3.08_01',
+            'Net::FTP::E'           => '3.08_01',
+            'Net::FTP::I'           => '3.08_01',
+            'Net::FTP::L'           => '3.08_01',
+            'Net::FTP::dataconn'    => '3.08_01',
+            'Net::NNTP'             => '3.08_01',
+            'Net::Netrc'            => '3.08_01',
+            'Net::POP3'             => '3.08_01',
+            'Net::Ping'             => '2.43_01',
+            'Net::SMTP'             => '3.08_01',
+            'Net::Time'             => '3.08_01',
+            'Parse::CPAN::Meta'     => '1.4417_001',
+            'Pod::Html'             => '1.2201',
+            'Pod::Perldoc'          => '3.25_03',
+            'Storable'              => '2.56_01',
+            'Sys::Syslog'           => '0.33_01',
+            'TAP::Base'             => '3.36_01',
+            'TAP::Formatter::Base'  => '3.36_01',
+            'TAP::Formatter::Color' => '3.36_01',
+            'TAP::Formatter::Console'=> '3.36_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36_01',
+            'TAP::Formatter::Console::Session'=> '3.36_01',
+            'TAP::Formatter::File'  => '3.36_01',
+            'TAP::Formatter::File::Session'=> '3.36_01',
+            'TAP::Formatter::Session'=> '3.36_01',
+            'TAP::Harness'          => '3.36_01',
+            'TAP::Harness::Env'     => '3.36_01',
+            'TAP::Object'           => '3.36_01',
+            'TAP::Parser'           => '3.36_01',
+            'TAP::Parser::Aggregator'=> '3.36_01',
+            'TAP::Parser::Grammar'  => '3.36_01',
+            'TAP::Parser::Iterator' => '3.36_01',
+            'TAP::Parser::Iterator::Array'=> '3.36_01',
+            'TAP::Parser::Iterator::Process'=> '3.36_01',
+            'TAP::Parser::Iterator::Stream'=> '3.36_01',
+            'TAP::Parser::IteratorFactory'=> '3.36_01',
+            'TAP::Parser::Multiplexer'=> '3.36_01',
+            'TAP::Parser::Result'   => '3.36_01',
+            'TAP::Parser::Result::Bailout'=> '3.36_01',
+            'TAP::Parser::Result::Comment'=> '3.36_01',
+            'TAP::Parser::Result::Plan'=> '3.36_01',
+            'TAP::Parser::Result::Pragma'=> '3.36_01',
+            'TAP::Parser::Result::Test'=> '3.36_01',
+            'TAP::Parser::Result::Unknown'=> '3.36_01',
+            'TAP::Parser::Result::Version'=> '3.36_01',
+            'TAP::Parser::Result::YAML'=> '3.36_01',
+            'TAP::Parser::ResultFactory'=> '3.36_01',
+            'TAP::Parser::Scheduler'=> '3.36_01',
+            'TAP::Parser::Scheduler::Job'=> '3.36_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36_01',
+            'TAP::Parser::Source'   => '3.36_01',
+            'TAP::Parser::SourceHandler'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36_01',
+            'TAP::Parser::SourceHandler::File'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.36_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.36_01',
+            'Test'                  => '1.28_01',
+            'Test::Harness'         => '3.36_01',
+            'XSLoader'              => '0.22',
+            'bigint'                => '0.42_01',
+            'bignum'                => '0.42_01',
+            'bigrat'                => '0.42_01',
+        },
+        removed => {
+        }
+    },
+    5.025009 => {
+        delta_from => 5.025008,
+        changed => {
+            'App::Cpan'             => '1.66',
+            'B::Deparse'            => '1.40',
+            'B::Op_private'         => '5.025009',
+            'B::Terse'              => '1.07',
+            'B::Xref'               => '1.06',
+            'CPAN'                  => '2.16',
+            'CPAN::Bundle'          => '5.5002',
+            'CPAN::Distribution'    => '2.16',
+            'CPAN::Exception::RecursiveDependency'=> '5.5001',
+            'CPAN::FTP'             => '5.5008',
+            'CPAN::FirstTime'       => '5.5310',
+            'CPAN::HandleConfig'    => '5.5008',
+            'CPAN::Module'          => '5.5003',
+            'Compress::Raw::Bzip2'  => '2.070',
+            'Compress::Raw::Zlib'   => '2.070',
+            'Config'                => '5.025009',
+            'DB_File'               => '1.840',
+            'Data::Dumper'          => '2.167',
+            'Devel::SelfStubber'    => '1.06',
+            'DynaLoader'            => '1.41',
+            'Errno'                 => '1.28',
+            'ExtUtils::Embed'       => '1.34',
+            'File::Glob'            => '1.28',
+            'I18N::LangTags'        => '0.42',
+            'Module::CoreList'      => '5.20170120',
+            'Module::CoreList::TieHashDelta'=> '5.20170120',
+            'Module::CoreList::Utils'=> '5.20170120',
+            'OS2::Process'          => '1.12',
+            'PerlIO::scalar'        => '0.26',
+            'Pod::Html'             => '1.2202',
+            'Storable'              => '2.61',
+            'Symbol'                => '1.08',
+            'Term::ReadLine'        => '1.16',
+            'Test'                  => '1.30',
+            'Unicode::UCD'          => '0.68',
+            'VMS::DCLsym'           => '1.08',
+            'XS::APItest'           => '0.88',
+            'XSLoader'              => '0.26',
+            'attributes'            => '0.29',
+            'diagnostics'           => '1.36',
+            'feature'               => '1.46',
+            'lib'                   => '0.64',
+            'overload'              => '1.28',
+            're'                    => '0.34',
+            'threads'               => '2.12',
+            'threads::shared'       => '1.54',
+        },
+        removed => {
+        }
+    },
+    5.025010 => {
+        delta_from => 5.025009,
+        changed => {
+            'B'                     => '1.68',
+            'B::Op_private'         => '5.025010',
+            'CPAN'                  => '2.17',
+            'CPAN::Distribution'    => '2.17',
+            'Config'                => '5.02501',
+            'Getopt::Std'           => '1.12',
+            'Module::CoreList'      => '5.20170220',
+            'Module::CoreList::TieHashDelta'=> '5.20170220',
+            'Module::CoreList::Utils'=> '5.20170220',
+            'PerlIO'                => '1.10',
+            'Storable'              => '2.62',
+            'Thread::Queue'         => '3.12',
+            'feature'               => '1.47',
+            'open'                  => '1.11',
+            'threads'               => '2.13',
+        },
+        removed => {
+        }
+    },
+    5.025011 => {
+        delta_from => 5.025010,
+        changed => {
+            'App::Prove'            => '3.38',
+            'App::Prove::State'     => '3.38',
+            'App::Prove::State::Result'=> '3.38',
+            'App::Prove::State::Result::Test'=> '3.38',
+            'B::Op_private'         => '5.025011',
+            'Compress::Raw::Bzip2'  => '2.074',
+            'Compress::Raw::Zlib'   => '2.074',
+            'Compress::Zlib'        => '2.074',
+            'Config'                => '5.025011',
+            'Config::Perl::V'       => '0.28',
+            'Cwd'                   => '3.67',
+            'ExtUtils::ParseXS'     => '3.34',
+            'ExtUtils::ParseXS::Constants'=> '3.34',
+            'ExtUtils::ParseXS::CountLines'=> '3.34',
+            'ExtUtils::ParseXS::Eval'=> '3.34',
+            'ExtUtils::Typemaps'    => '3.34',
+            'ExtUtils::Typemaps::Cmd'=> '3.34',
+            'ExtUtils::Typemaps::InputMap'=> '3.34',
+            'ExtUtils::Typemaps::OutputMap'=> '3.34',
+            'ExtUtils::Typemaps::Type'=> '3.34',
+            'File::Spec'            => '3.67',
+            'File::Spec::AmigaOS'   => '3.67',
+            'File::Spec::Cygwin'    => '3.67',
+            'File::Spec::Epoc'      => '3.67',
+            'File::Spec::Functions' => '3.67',
+            'File::Spec::Mac'       => '3.67',
+            'File::Spec::OS2'       => '3.67',
+            'File::Spec::Unix'      => '3.67',
+            'File::Spec::VMS'       => '3.67',
+            'File::Spec::Win32'     => '3.67',
+            'IO::Compress::Adapter::Bzip2'=> '2.074',
+            'IO::Compress::Adapter::Deflate'=> '2.074',
+            'IO::Compress::Adapter::Identity'=> '2.074',
+            'IO::Compress::Base'    => '2.074',
+            'IO::Compress::Base::Common'=> '2.074',
+            'IO::Compress::Bzip2'   => '2.074',
+            'IO::Compress::Deflate' => '2.074',
+            'IO::Compress::Gzip'    => '2.074',
+            'IO::Compress::Gzip::Constants'=> '2.074',
+            'IO::Compress::RawDeflate'=> '2.074',
+            'IO::Compress::Zip'     => '2.074',
+            'IO::Compress::Zip::Constants'=> '2.074',
+            'IO::Compress::Zlib::Constants'=> '2.074',
+            'IO::Compress::Zlib::Extra'=> '2.074',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.074',
+            'IO::Uncompress::Adapter::Identity'=> '2.074',
+            'IO::Uncompress::Adapter::Inflate'=> '2.074',
+            'IO::Uncompress::AnyInflate'=> '2.074',
+            'IO::Uncompress::AnyUncompress'=> '2.074',
+            'IO::Uncompress::Base'  => '2.074',
+            'IO::Uncompress::Bunzip2'=> '2.074',
+            'IO::Uncompress::Gunzip'=> '2.074',
+            'IO::Uncompress::Inflate'=> '2.074',
+            'IO::Uncompress::RawInflate'=> '2.074',
+            'IO::Uncompress::Unzip' => '2.074',
+            'Module::CoreList'      => '5.20170320',
+            'Module::CoreList::TieHashDelta'=> '5.20170230',
+            'Module::CoreList::Utils'=> '5.20170320',
+            'Pod::Perldoc'          => '3.28',
+            'Pod::Perldoc::BaseTo'  => '3.28',
+            'Pod::Perldoc::GetOptsOO'=> '3.28',
+            'Pod::Perldoc::ToANSI'  => '3.28',
+            'Pod::Perldoc::ToChecker'=> '3.28',
+            'Pod::Perldoc::ToMan'   => '3.28',
+            'Pod::Perldoc::ToNroff' => '3.28',
+            'Pod::Perldoc::ToPod'   => '3.28',
+            'Pod::Perldoc::ToRtf'   => '3.28',
+            'Pod::Perldoc::ToTerm'  => '3.28',
+            'Pod::Perldoc::ToText'  => '3.28',
+            'Pod::Perldoc::ToTk'    => '3.28',
+            'Pod::Perldoc::ToXml'   => '3.28',
+            'TAP::Base'             => '3.38',
+            'TAP::Formatter::Base'  => '3.38',
+            'TAP::Formatter::Color' => '3.38',
+            'TAP::Formatter::Console'=> '3.38',
+            'TAP::Formatter::Console::ParallelSession'=> '3.38',
+            'TAP::Formatter::Console::Session'=> '3.38',
+            'TAP::Formatter::File'  => '3.38',
+            'TAP::Formatter::File::Session'=> '3.38',
+            'TAP::Formatter::Session'=> '3.38',
+            'TAP::Harness'          => '3.38',
+            'TAP::Harness::Env'     => '3.38',
+            'TAP::Object'           => '3.38',
+            'TAP::Parser'           => '3.38',
+            'TAP::Parser::Aggregator'=> '3.38',
+            'TAP::Parser::Grammar'  => '3.38',
+            'TAP::Parser::Iterator' => '3.38',
+            'TAP::Parser::Iterator::Array'=> '3.38',
+            'TAP::Parser::Iterator::Process'=> '3.38',
+            'TAP::Parser::Iterator::Stream'=> '3.38',
+            'TAP::Parser::IteratorFactory'=> '3.38',
+            'TAP::Parser::Multiplexer'=> '3.38',
+            'TAP::Parser::Result'   => '3.38',
+            'TAP::Parser::Result::Bailout'=> '3.38',
+            'TAP::Parser::Result::Comment'=> '3.38',
+            'TAP::Parser::Result::Plan'=> '3.38',
+            'TAP::Parser::Result::Pragma'=> '3.38',
+            'TAP::Parser::Result::Test'=> '3.38',
+            'TAP::Parser::Result::Unknown'=> '3.38',
+            'TAP::Parser::Result::Version'=> '3.38',
+            'TAP::Parser::Result::YAML'=> '3.38',
+            'TAP::Parser::ResultFactory'=> '3.38',
+            'TAP::Parser::Scheduler'=> '3.38',
+            'TAP::Parser::Scheduler::Job'=> '3.38',
+            'TAP::Parser::Scheduler::Spinner'=> '3.38',
+            'TAP::Parser::Source'   => '3.38',
+            'TAP::Parser::SourceHandler'=> '3.38',
+            'TAP::Parser::SourceHandler::Executable'=> '3.38',
+            'TAP::Parser::SourceHandler::File'=> '3.38',
+            'TAP::Parser::SourceHandler::Handle'=> '3.38',
+            'TAP::Parser::SourceHandler::Perl'=> '3.38',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.38',
+            'TAP::Parser::YAMLish::Reader'=> '3.38',
+            'TAP::Parser::YAMLish::Writer'=> '3.38',
+            'Test::Harness'         => '3.38',
+            'VMS::Stdio'            => '2.41',
+            'threads'               => '2.15',
+            'threads::shared'       => '1.55',
+        },
+        removed => {
+        }
+    },
+    5.025012 => {
+        delta_from => 5.025011,
+        changed => {
+            'B::Op_private'         => '5.025012',
+            'CPAN'                  => '2.18',
+            'CPAN::Bundle'          => '5.5003',
+            'CPAN::Distribution'    => '2.18',
+            'Config'                => '5.025012',
+            'DynaLoader'            => '1.42',
+            'Module::CoreList'      => '5.20170420',
+            'Module::CoreList::TieHashDelta'=> '5.20170420',
+            'Module::CoreList::Utils'=> '5.20170420',
+            'Safe'                  => '2.40',
+            'XSLoader'              => '0.27',
+            'base'                  => '2.25',
+            'threads::shared'       => '1.56',
+        },
+        removed => {
+        }
+    },
+    5.026000 => {
+        delta_from => 5.025012,
+        changed => {
+            'B::Op_private'         => '5.026000',
+            'Config'                => '5.026',
+            'Module::CoreList'      => '5.20170530',
+            'Module::CoreList::TieHashDelta'=> '5.20170530',
+            'Module::CoreList::Utils'=> '5.20170530',
+        },
+        removed => {
+        }
+    },
+    5.027000 => {
+        delta_from => 5.026000,
+        changed => {
+            'Attribute::Handlers'   => '1.00',
+            'B::Concise'            => '1.000',
+            'B::Deparse'            => '1.41',
+            'B::Op_private'         => '5.027000',
+            'Config'                => '5.027',
+            'Module::CoreList'      => '5.20170531',
+            'Module::CoreList::TieHashDelta'=> '5.20170531',
+            'Module::CoreList::Utils'=> '5.20170531',
+            'O'                     => '1.02',
+            'attributes'            => '0.3',
+            'feature'               => '1.48',
+        },
+        removed => {
+        }
+    },
+    5.027001 => {
+        delta_from => 5.027,
+        changed => {
+            'App::Prove'            => '3.39',
+            'App::Prove::State'     => '3.39',
+            'App::Prove::State::Result'=> '3.39',
+            'App::Prove::State::Result::Test'=> '3.39',
+            'Archive::Tar'          => '2.26',
+            'Archive::Tar::Constant'=> '2.26',
+            'Archive::Tar::File'    => '2.26',
+            'B::Op_private'         => '5.027001',
+            'B::Terse'              => '1.08',
+            'Config'                => '5.027001',
+            'Devel::PPPort'         => '3.36',
+            'DirHandle'             => '1.05',
+            'ExtUtils::Command'     => '7.30',
+            'ExtUtils::Command::MM' => '7.30',
+            'ExtUtils::Install'     => '2.14',
+            'ExtUtils::Installed'   => '2.14',
+            'ExtUtils::Liblist'     => '7.30',
+            'ExtUtils::Liblist::Kid'=> '7.30',
+            'ExtUtils::MM'          => '7.30',
+            'ExtUtils::MM_AIX'      => '7.30',
+            'ExtUtils::MM_Any'      => '7.30',
+            'ExtUtils::MM_BeOS'     => '7.30',
+            'ExtUtils::MM_Cygwin'   => '7.30',
+            'ExtUtils::MM_DOS'      => '7.30',
+            'ExtUtils::MM_Darwin'   => '7.30',
+            'ExtUtils::MM_MacOS'    => '7.30',
+            'ExtUtils::MM_NW5'      => '7.30',
+            'ExtUtils::MM_OS2'      => '7.30',
+            'ExtUtils::MM_QNX'      => '7.30',
+            'ExtUtils::MM_UWIN'     => '7.30',
+            'ExtUtils::MM_Unix'     => '7.30',
+            'ExtUtils::MM_VMS'      => '7.30',
+            'ExtUtils::MM_VOS'      => '7.30',
+            'ExtUtils::MM_Win32'    => '7.30',
+            'ExtUtils::MM_Win95'    => '7.30',
+            'ExtUtils::MY'          => '7.30',
+            'ExtUtils::MakeMaker'   => '7.30',
+            'ExtUtils::MakeMaker::Config'=> '7.30',
+            'ExtUtils::MakeMaker::Locale'=> '7.30',
+            'ExtUtils::MakeMaker::version'=> '7.30',
+            'ExtUtils::MakeMaker::version::regex'=> '7.30',
+            'ExtUtils::Mkbootstrap' => '7.30',
+            'ExtUtils::Mksymlists'  => '7.30',
+            'ExtUtils::Packlist'    => '2.14',
+            'ExtUtils::testlib'     => '7.30',
+            'File::Path'            => '2.14',
+            'Filter::Util::Call'    => '1.57',
+            'GDBM_File'             => '1.16',
+            'Getopt::Long'          => '2.5',
+            'IO::Socket::IP'        => '0.39',
+            'IPC::Cmd'              => '0.98',
+            'JSON::PP'              => '2.94',
+            'JSON::PP::Boolean'     => '2.94',
+            'Locale::Codes'         => '3.52',
+            'Locale::Codes::Constants'=> '3.52',
+            'Locale::Codes::Country'=> '3.52',
+            'Locale::Codes::Country_Codes'=> '3.52',
+            'Locale::Codes::Country_Retired'=> '3.52',
+            'Locale::Codes::Currency'=> '3.52',
+            'Locale::Codes::Currency_Codes'=> '3.52',
+            'Locale::Codes::Currency_Retired'=> '3.52',
+            'Locale::Codes::LangExt'=> '3.52',
+            'Locale::Codes::LangExt_Codes'=> '3.52',
+            'Locale::Codes::LangExt_Retired'=> '3.52',
+            'Locale::Codes::LangFam'=> '3.52',
+            'Locale::Codes::LangFam_Codes'=> '3.52',
+            'Locale::Codes::LangFam_Retired'=> '3.52',
+            'Locale::Codes::LangVar'=> '3.52',
+            'Locale::Codes::LangVar_Codes'=> '3.52',
+            'Locale::Codes::LangVar_Retired'=> '3.52',
+            'Locale::Codes::Language'=> '3.52',
+            'Locale::Codes::Language_Codes'=> '3.52',
+            'Locale::Codes::Language_Retired'=> '3.52',
+            'Locale::Codes::Script' => '3.52',
+            'Locale::Codes::Script_Codes'=> '3.52',
+            'Locale::Codes::Script_Retired'=> '3.52',
+            'Locale::Country'       => '3.52',
+            'Locale::Currency'      => '3.52',
+            'Locale::Language'      => '3.52',
+            'Locale::Script'        => '3.52',
+            'Module::CoreList'      => '5.20170621',
+            'Module::CoreList::TieHashDelta'=> '5.20170621',
+            'Module::CoreList::Utils'=> '5.20170621',
+            'PerlIO::scalar'        => '0.27',
+            'PerlIO::via'           => '0.17',
+            'Storable'              => '2.63',
+            'TAP::Base'             => '3.39',
+            'TAP::Formatter::Base'  => '3.39',
+            'TAP::Formatter::Color' => '3.39',
+            'TAP::Formatter::Console'=> '3.39',
+            'TAP::Formatter::Console::ParallelSession'=> '3.39',
+            'TAP::Formatter::Console::Session'=> '3.39',
+            'TAP::Formatter::File'  => '3.39',
+            'TAP::Formatter::File::Session'=> '3.39',
+            'TAP::Formatter::Session'=> '3.39',
+            'TAP::Harness'          => '3.39',
+            'TAP::Harness::Env'     => '3.39',
+            'TAP::Object'           => '3.39',
+            'TAP::Parser'           => '3.39',
+            'TAP::Parser::Aggregator'=> '3.39',
+            'TAP::Parser::Grammar'  => '3.39',
+            'TAP::Parser::Iterator' => '3.39',
+            'TAP::Parser::Iterator::Array'=> '3.39',
+            'TAP::Parser::Iterator::Process'=> '3.39',
+            'TAP::Parser::Iterator::Stream'=> '3.39',
+            'TAP::Parser::IteratorFactory'=> '3.39',
+            'TAP::Parser::Multiplexer'=> '3.39',
+            'TAP::Parser::Result'   => '3.39',
+            'TAP::Parser::Result::Bailout'=> '3.39',
+            'TAP::Parser::Result::Comment'=> '3.39',
+            'TAP::Parser::Result::Plan'=> '3.39',
+            'TAP::Parser::Result::Pragma'=> '3.39',
+            'TAP::Parser::Result::Test'=> '3.39',
+            'TAP::Parser::Result::Unknown'=> '3.39',
+            'TAP::Parser::Result::Version'=> '3.39',
+            'TAP::Parser::Result::YAML'=> '3.39',
+            'TAP::Parser::ResultFactory'=> '3.39',
+            'TAP::Parser::Scheduler'=> '3.39',
+            'TAP::Parser::Scheduler::Job'=> '3.39',
+            'TAP::Parser::Scheduler::Spinner'=> '3.39',
+            'TAP::Parser::Source'   => '3.39',
+            'TAP::Parser::SourceHandler'=> '3.39',
+            'TAP::Parser::SourceHandler::Executable'=> '3.39',
+            'TAP::Parser::SourceHandler::File'=> '3.39',
+            'TAP::Parser::SourceHandler::Handle'=> '3.39',
+            'TAP::Parser::SourceHandler::Perl'=> '3.39',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.39',
+            'TAP::Parser::YAMLish::Reader'=> '3.39',
+            'TAP::Parser::YAMLish::Writer'=> '3.39',
+            'Test::Harness'         => '3.39',
+            'XS::APItest'           => '0.89',
+            '_charnames'            => '1.45',
+            'charnames'             => '1.45',
+            'if'                    => '0.0607',
+            'mro'                   => '1.21',
+            'threads'               => '2.16',
+            'threads::shared'       => '1.57',
+            'version'               => '0.9918',
+            'version::regex'        => '0.9918',
+        },
+        removed => {
+        }
+    },
+    5.022004 => {
+        delta_from => 5.022003,
+        changed => {
+            'B::Op_private'         => '5.022004',
+            'Config'                => '5.022004',
+            'Module::CoreList'      => '5.20170715_22',
+            'Module::CoreList::TieHashDelta'=> '5.20170715_22',
+            'Module::CoreList::Utils'=> '5.20170715_22',
+            'base'                  => '2.22_01',
+        },
+        removed => {
+        }
+    },
+    5.024002 => {
+        delta_from => 5.024001,
+        changed => {
+            'B::Op_private'         => '5.024002',
+            'Config'                => '5.024002',
+            'Module::CoreList'      => '5.20170715_24',
+            'Module::CoreList::TieHashDelta'=> '5.20170715_24',
+            'Module::CoreList::Utils'=> '5.20170715_24',
+            'base'                  => '2.23_01',
+        },
+        removed => {
+        }
+    },
+    5.027002 => {
+        delta_from => 5.027001,
+        changed => {
+            'B::Op_private'         => '5.027002',
+            'Carp'                  => '1.43',
+            'Carp::Heavy'           => '1.43',
+            'Config'                => '5.027002',
+            'Cwd'                   => '3.68',
+            'Encode'                => '2.92',
+            'Encode::Alias'         => '2.23',
+            'Encode::CN::HZ'        => '2.09',
+            'Encode::Encoding'      => '2.08',
+            'Encode::GSM0338'       => '2.07',
+            'Encode::Guess'         => '2.07',
+            'Encode::JP::JIS7'      => '2.07',
+            'Encode::KR::2022_KR'   => '2.04',
+            'Encode::MIME::Header'  => '2.27',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.09',
+            'Encode::Unicode'       => '2.16',
+            'Encode::Unicode::UTF7' => '2.10',
+            'ExtUtils::CBuilder'    => '0.280228',
+            'ExtUtils::CBuilder::Base'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280228',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280228',
+            'File::Glob'            => '1.29',
+            'File::Spec'            => '3.68',
+            'File::Spec::AmigaOS'   => '3.68',
+            'File::Spec::Cygwin'    => '3.68',
+            'File::Spec::Epoc'      => '3.68',
+            'File::Spec::Functions' => '3.68',
+            'File::Spec::Mac'       => '3.68',
+            'File::Spec::OS2'       => '3.68',
+            'File::Spec::Unix'      => '3.68',
+            'File::Spec::VMS'       => '3.68',
+            'File::Spec::Win32'     => '3.68',
+            'List::Util'            => '1.48',
+            'List::Util::XS'        => '1.48',
+            'Math::BigRat'          => '0.2613',
+            'Module::CoreList'      => '5.20170720',
+            'Module::CoreList::TieHashDelta'=> '5.20170720',
+            'Module::CoreList::Utils'=> '5.20170720',
+            'Opcode'                => '1.40',
+            'POSIX'                 => '1.77',
+            'PerlIO::scalar'        => '0.29',
+            'Scalar::Util'          => '1.48',
+            'Sub::Util'             => '1.48',
+            'Time::HiRes'           => '1.9743',
+            'Time::Piece'           => '1.3201',
+            'Time::Seconds'         => '1.3201',
+            'Unicode'               => '10.0.0',
+            'XS::APItest'           => '0.90',
+            'arybase'               => '0.13',
+            'encoding'              => '2.20',
+            'feature'               => '1.49',
+            're'                    => '0.35',
+        },
+        removed => {
+        }
+    },
+    5.027003 => {
+        delta_from => 5.027002,
+        changed => {
+            'B'                     => '1.69',
+            'B::Concise'            => '1.001',
+            'B::Debug'              => '1.25',
+            'B::Deparse'            => '1.42',
+            'B::Op_private'         => '5.027003',
+            'Config'                => '5.027003',
+            'Data::Dumper'          => '2.167_02',
+            'Devel::Peek'           => '1.27',
+            'ExtUtils::Constant'    => '0.24',
+            'ExtUtils::Constant::Base'=> '0.06',
+            'ExtUtils::Constant::ProxySubs'=> '0.09',
+            'ExtUtils::Constant::Utils'=> '0.04',
+            'ExtUtils::ParseXS'     => '3.35',
+            'ExtUtils::ParseXS::Constants'=> '3.35',
+            'ExtUtils::ParseXS::CountLines'=> '3.35',
+            'ExtUtils::ParseXS::Eval'=> '3.35',
+            'ExtUtils::ParseXS::Utilities'=> '3.35',
+            'ExtUtils::Typemaps'    => '3.35',
+            'ExtUtils::Typemaps::Cmd'=> '3.35',
+            'ExtUtils::Typemaps::InputMap'=> '3.35',
+            'ExtUtils::Typemaps::OutputMap'=> '3.35',
+            'ExtUtils::Typemaps::Type'=> '3.35',
+            'Filter::Simple'        => '0.94',
+            'Module::CoreList'      => '5.20170821',
+            'Module::CoreList::TieHashDelta'=> '5.20170821',
+            'Module::CoreList::Utils'=> '5.20170821',
+            'SelfLoader'            => '1.24',
+            'Storable'              => '2.64',
+            'XS::APItest'           => '0.91',
+            'base'                  => '2.26',
+            'threads'               => '2.17',
+            'utf8'                  => '1.20',
+        },
+        removed => {
+        }
+    },
+    5.027004 => {
+        delta_from => 5.027003,
+        changed => {
+            'B::Op_private'         => '5.027004',
+            'Config'                => '5.027004',
+            'File::Glob'            => '1.30',
+            'I18N::Langinfo'        => '0.14',
+            'Module::CoreList'      => '5.20170920',
+            'Module::CoreList::TieHashDelta'=> '5.20170920',
+            'Module::CoreList::Utils'=> '5.20170920',
+            'Term::ReadLine'        => '1.17',
+            'VMS::Stdio'            => '2.42',
+            'XS::APItest'           => '0.92',
+            'attributes'            => '0.31',
+            'sort'                  => '2.03',
+            'threads'               => '2.18',
+        },
+        removed => {
+        }
+    },
+    5.024003 => {
+        delta_from => 5.024002,
+        changed => {
+            'B::Op_private'         => '5.024003',
+            'Config'                => '5.024003',
+            'Module::CoreList'      => '5.20170922_24',
+            'Module::CoreList::TieHashDelta'=> '5.20170922_24',
+            'Module::CoreList::Utils'=> '5.20170922_24',
+            'POSIX'                 => '1.65_01',
+            'Time::HiRes'           => '1.9741',
+        },
+        removed => {
+        }
+    },
+    5.026001 => {
+        delta_from => 5.026000,
+        changed => {
+            'B::Op_private'         => '5.026001',
+            'Config'                => '5.026001',
+            'Module::CoreList'      => '5.20170922_26',
+            'Module::CoreList::TieHashDelta'=> '5.20170922_26',
+            'Module::CoreList::Utils'=> '5.20170922_26',
+            '_charnames'            => '1.45',
+            'base'                  => '2.26',
+            'charnames'             => '1.45',
+        },
+        removed => {
+        }
+    },
+    5.027005 => {
+        delta_from => 5.027004,
+        changed => {
+            'B'                     => '1.70',
+            'B::Concise'            => '1.002',
+            'B::Deparse'            => '1.43',
+            'B::Op_private'         => '5.027005',
+            'B::Xref'               => '1.07',
+            'Config'                => '5.027005',
+            'Config::Perl::V'       => '0.29',
+            'Digest::SHA'           => '5.98',
+            'Encode'                => '2.93',
+            'Encode::CN::HZ'        => '2.10',
+            'Encode::JP::JIS7'      => '2.08',
+            'Encode::MIME::Header'  => '2.28',
+            'Encode::MIME::Name'    => '1.03',
+            'File::Fetch'           => '0.54',
+            'File::Path'            => '2.15',
+            'List::Util'            => '1.49',
+            'List::Util::XS'        => '1.49',
+            'Locale::Codes'         => '3.54',
+            'Locale::Codes::Constants'=> '3.54',
+            'Locale::Codes::Country'=> '3.54',
+            'Locale::Codes::Country_Codes'=> '3.54',
+            'Locale::Codes::Country_Retired'=> '3.54',
+            'Locale::Codes::Currency'=> '3.54',
+            'Locale::Codes::Currency_Codes'=> '3.54',
+            'Locale::Codes::Currency_Retired'=> '3.54',
+            'Locale::Codes::LangExt'=> '3.54',
+            'Locale::Codes::LangExt_Codes'=> '3.54',
+            'Locale::Codes::LangExt_Retired'=> '3.54',
+            'Locale::Codes::LangFam'=> '3.54',
+            'Locale::Codes::LangFam_Codes'=> '3.54',
+            'Locale::Codes::LangFam_Retired'=> '3.54',
+            'Locale::Codes::LangVar'=> '3.54',
+            'Locale::Codes::LangVar_Codes'=> '3.54',
+            'Locale::Codes::LangVar_Retired'=> '3.54',
+            'Locale::Codes::Language'=> '3.54',
+            'Locale::Codes::Language_Codes'=> '3.54',
+            'Locale::Codes::Language_Retired'=> '3.54',
+            'Locale::Codes::Script' => '3.54',
+            'Locale::Codes::Script_Codes'=> '3.54',
+            'Locale::Codes::Script_Retired'=> '3.54',
+            'Locale::Country'       => '3.54',
+            'Locale::Currency'      => '3.54',
+            'Locale::Language'      => '3.54',
+            'Locale::Script'        => '3.54',
+            'Math::BigFloat'        => '1.999811',
+            'Math::BigInt'          => '1.999811',
+            'Math::BigInt::Calc'    => '1.999811',
+            'Math::BigInt::CalcEmu' => '1.999811',
+            'Math::BigInt::FastCalc'=> '0.5006',
+            'Math::BigInt::Lib'     => '1.999811',
+            'Module::CoreList'      => '5.20171020',
+            'Module::CoreList::TieHashDelta'=> '5.20171020',
+            'Module::CoreList::Utils'=> '5.20171020',
+            'NEXT'                  => '0.67_01',
+            'POSIX'                 => '1.78',
+            'Pod::Perldoc'          => '3.2801',
+            'Scalar::Util'          => '1.49',
+            'Sub::Util'             => '1.49',
+            'Sys::Hostname'         => '1.21',
+            'Test2'                 => '1.302103',
+            'Test2::API'            => '1.302103',
+            'Test2::API::Breakage'  => '1.302103',
+            'Test2::API::Context'   => '1.302103',
+            'Test2::API::Instance'  => '1.302103',
+            'Test2::API::Stack'     => '1.302103',
+            'Test2::Event'          => '1.302103',
+            'Test2::Event::Bail'    => '1.302103',
+            'Test2::Event::Diag'    => '1.302103',
+            'Test2::Event::Encoding'=> '1.302103',
+            'Test2::Event::Exception'=> '1.302103',
+            'Test2::Event::Fail'    => '1.302103',
+            'Test2::Event::Generic' => '1.302103',
+            'Test2::Event::Note'    => '1.302103',
+            'Test2::Event::Ok'      => '1.302103',
+            'Test2::Event::Pass'    => '1.302103',
+            'Test2::Event::Plan'    => '1.302103',
+            'Test2::Event::Skip'    => '1.302103',
+            'Test2::Event::Subtest' => '1.302103',
+            'Test2::Event::TAP::Version'=> '1.302103',
+            'Test2::Event::Waiting' => '1.302103',
+            'Test2::EventFacet'     => '1.302103',
+            'Test2::EventFacet::About'=> '1.302103',
+            'Test2::EventFacet::Amnesty'=> '1.302103',
+            'Test2::EventFacet::Assert'=> '1.302103',
+            'Test2::EventFacet::Control'=> '1.302103',
+            'Test2::EventFacet::Error'=> '1.302103',
+            'Test2::EventFacet::Info'=> '1.302103',
+            'Test2::EventFacet::Meta'=> '1.302103',
+            'Test2::EventFacet::Parent'=> '1.302103',
+            'Test2::EventFacet::Plan'=> '1.302103',
+            'Test2::EventFacet::Trace'=> '1.302103',
+            'Test2::Formatter'      => '1.302103',
+            'Test2::Formatter::TAP' => '1.302103',
+            'Test2::Hub'            => '1.302103',
+            'Test2::Hub::Interceptor'=> '1.302103',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302103',
+            'Test2::Hub::Subtest'   => '1.302103',
+            'Test2::IPC'            => '1.302103',
+            'Test2::IPC::Driver'    => '1.302103',
+            'Test2::IPC::Driver::Files'=> '1.302103',
+            'Test2::Tools::Tiny'    => '1.302103',
+            'Test2::Util'           => '1.302103',
+            'Test2::Util::ExternalMeta'=> '1.302103',
+            'Test2::Util::Facets2Legacy'=> '1.302103',
+            'Test2::Util::HashBase' => '0.005',
+            'Test2::Util::Trace'    => '1.302103',
+            'Test::Builder'         => '1.302103',
+            'Test::Builder::Formatter'=> '1.302103',
+            'Test::Builder::IO::Scalar'=> '2.114',
+            'Test::Builder::Module' => '1.302103',
+            'Test::Builder::Tester' => '1.302103',
+            'Test::Builder::Tester::Color'=> '1.302103',
+            'Test::Builder::TodoDiag'=> '1.302103',
+            'Test::More'            => '1.302103',
+            'Test::Simple'          => '1.302103',
+            'Test::Tester'          => '1.302103',
+            'Test::Tester::Capture' => '1.302103',
+            'Test::Tester::CaptureRunner'=> '1.302103',
+            'Test::Tester::Delegate'=> '1.302103',
+            'Test::use::ok'         => '1.302103',
+            'Time::HiRes'           => '1.9746',
+            'Time::Piece'           => '1.3202',
+            'Time::Seconds'         => '1.3202',
+            'arybase'               => '0.14',
+            'encoding'              => '2.21',
+            'ok'                    => '1.302103',
+        },
+        removed => {
+            'Test2::Event::Info'    => 1,
+        }
+    },
+    5.027006 => {
+        delta_from => 5.027005,
+        changed => {
+            'Attribute::Handlers'   => '1.01',
+            'B'                     => '1.72',
+            'B::Concise'            => '1.003',
+            'B::Deparse'            => '1.45',
+            'B::Op_private'         => '5.027006',
+            'Carp'                  => '1.44',
+            'Carp::Heavy'           => '1.44',
+            'Compress::Raw::Zlib'   => '2.075',
+            'Config'                => '5.027006',
+            'Config::Extensions'    => '0.02',
+            'Cwd'                   => '3.70',
+            'DynaLoader'            => '1.44',
+            'ExtUtils::CBuilder'    => '0.280229',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280229',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280229',
+            'ExtUtils::Embed'       => '1.35',
+            'ExtUtils::Miniperl'    => '1.07',
+            'ExtUtils::ParseXS'     => '3.36',
+            'ExtUtils::ParseXS::Constants'=> '3.36',
+            'ExtUtils::ParseXS::CountLines'=> '3.36',
+            'ExtUtils::ParseXS::Eval'=> '3.36',
+            'ExtUtils::ParseXS::Utilities'=> '3.36',
+            'ExtUtils::Typemaps'    => '3.36',
+            'ExtUtils::Typemaps::Cmd'=> '3.36',
+            'ExtUtils::Typemaps::InputMap'=> '3.36',
+            'ExtUtils::Typemaps::OutputMap'=> '3.36',
+            'ExtUtils::Typemaps::Type'=> '3.36',
+            'ExtUtils::XSSymSet'    => '1.4',
+            'File::Copy'            => '2.33',
+            'File::Spec'            => '3.69',
+            'File::Spec::AmigaOS'   => '3.69',
+            'File::Spec::Cygwin'    => '3.69',
+            'File::Spec::Epoc'      => '3.69',
+            'File::Spec::Functions' => '3.69',
+            'File::Spec::Mac'       => '3.69',
+            'File::Spec::OS2'       => '3.69',
+            'File::Spec::Unix'      => '3.69',
+            'File::Spec::VMS'       => '3.69',
+            'File::Spec::Win32'     => '3.69',
+            'File::stat'            => '1.08',
+            'FileCache'             => '1.10',
+            'Filter::Simple'        => '0.95',
+            'Hash::Util::FieldHash' => '1.20',
+            'I18N::LangTags'        => '0.43',
+            'I18N::LangTags::Detect'=> '1.07',
+            'I18N::LangTags::List'  => '0.40',
+            'I18N::Langinfo'        => '0.15',
+            'IO::Handle'            => '1.37',
+            'IO::Select'            => '1.23',
+            'Locale::Maketext'      => '1.29',
+            'Module::CoreList'      => '5.20171120',
+            'Module::CoreList::TieHashDelta'=> '5.20171120',
+            'Module::CoreList::Utils'=> '5.20171120',
+            'Net::Cmd'              => '3.11',
+            'Net::Config'           => '3.11',
+            'Net::Domain'           => '3.11',
+            'Net::FTP'              => '3.11',
+            'Net::FTP::A'           => '3.11',
+            'Net::FTP::E'           => '3.11',
+            'Net::FTP::I'           => '3.11',
+            'Net::FTP::L'           => '3.11',
+            'Net::FTP::dataconn'    => '3.11',
+            'Net::NNTP'             => '3.11',
+            'Net::Netrc'            => '3.11',
+            'Net::POP3'             => '3.11',
+            'Net::Ping'             => '2.62',
+            'Net::SMTP'             => '3.11',
+            'Net::Time'             => '3.11',
+            'Net::hostent'          => '1.02',
+            'Net::netent'           => '1.01',
+            'Net::protoent'         => '1.01',
+            'Net::servent'          => '1.02',
+            'O'                     => '1.03',
+            'ODBM_File'             => '1.15',
+            'Opcode'                => '1.41',
+            'POSIX'                 => '1.80',
+            'Pod::Html'             => '1.2203',
+            'SelfLoader'            => '1.25',
+            'Socket'                => '2.020_04',
+            'Storable'              => '2.65',
+            'Test'                  => '1.31',
+            'Test2'                 => '1.302111',
+            'Test2::API'            => '1.302111',
+            'Test2::API::Breakage'  => '1.302111',
+            'Test2::API::Context'   => '1.302111',
+            'Test2::API::Instance'  => '1.302111',
+            'Test2::API::Stack'     => '1.302111',
+            'Test2::Event'          => '1.302111',
+            'Test2::Event::Bail'    => '1.302111',
+            'Test2::Event::Diag'    => '1.302111',
+            'Test2::Event::Encoding'=> '1.302111',
+            'Test2::Event::Exception'=> '1.302111',
+            'Test2::Event::Fail'    => '1.302111',
+            'Test2::Event::Generic' => '1.302111',
+            'Test2::Event::Note'    => '1.302111',
+            'Test2::Event::Ok'      => '1.302111',
+            'Test2::Event::Pass'    => '1.302111',
+            'Test2::Event::Plan'    => '1.302111',
+            'Test2::Event::Skip'    => '1.302111',
+            'Test2::Event::Subtest' => '1.302111',
+            'Test2::Event::TAP::Version'=> '1.302111',
+            'Test2::Event::Waiting' => '1.302111',
+            'Test2::EventFacet'     => '1.302111',
+            'Test2::EventFacet::About'=> '1.302111',
+            'Test2::EventFacet::Amnesty'=> '1.302111',
+            'Test2::EventFacet::Assert'=> '1.302111',
+            'Test2::EventFacet::Control'=> '1.302111',
+            'Test2::EventFacet::Error'=> '1.302111',
+            'Test2::EventFacet::Info'=> '1.302111',
+            'Test2::EventFacet::Meta'=> '1.302111',
+            'Test2::EventFacet::Parent'=> '1.302111',
+            'Test2::EventFacet::Plan'=> '1.302111',
+            'Test2::EventFacet::Trace'=> '1.302111',
+            'Test2::Formatter'      => '1.302111',
+            'Test2::Formatter::TAP' => '1.302111',
+            'Test2::Hub'            => '1.302111',
+            'Test2::Hub::Interceptor'=> '1.302111',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302111',
+            'Test2::Hub::Subtest'   => '1.302111',
+            'Test2::IPC'            => '1.302111',
+            'Test2::IPC::Driver'    => '1.302111',
+            'Test2::IPC::Driver::Files'=> '1.302111',
+            'Test2::Tools::Tiny'    => '1.302111',
+            'Test2::Util'           => '1.302111',
+            'Test2::Util::ExternalMeta'=> '1.302111',
+            'Test2::Util::Facets2Legacy'=> '1.302111',
+            'Test2::Util::HashBase' => '1.302111',
+            'Test2::Util::Trace'    => '1.302111',
+            'Test::Builder'         => '1.302111',
+            'Test::Builder::Formatter'=> '1.302111',
+            'Test::Builder::Module' => '1.302111',
+            'Test::Builder::Tester' => '1.302111',
+            'Test::Builder::Tester::Color'=> '1.302111',
+            'Test::Builder::TodoDiag'=> '1.302111',
+            'Test::More'            => '1.302111',
+            'Test::Simple'          => '1.302111',
+            'Test::Tester'          => '1.302111',
+            'Test::Tester::Capture' => '1.302111',
+            'Test::Tester::CaptureRunner'=> '1.302111',
+            'Test::Tester::Delegate'=> '1.302111',
+            'Test::use::ok'         => '1.302111',
+            'Tie::Array'            => '1.07',
+            'Tie::StdHandle'        => '4.5',
+            'Time::HiRes'           => '1.9747',
+            'Time::gmtime'          => '1.04',
+            'Time::localtime'       => '1.03',
+            'Unicode::Collate'      => '1.23',
+            'Unicode::Collate::CJK::Big5'=> '1.23',
+            'Unicode::Collate::CJK::GB2312'=> '1.23',
+            'Unicode::Collate::CJK::JISX0208'=> '1.23',
+            'Unicode::Collate::CJK::Korean'=> '1.23',
+            'Unicode::Collate::CJK::Pinyin'=> '1.23',
+            'Unicode::Collate::CJK::Stroke'=> '1.23',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.23',
+            'Unicode::Collate::Locale'=> '1.23',
+            'Unicode::Normalize'    => '1.26',
+            'User::grent'           => '1.02',
+            'User::pwent'           => '1.01',
+            'VMS::DCLsym'           => '1.09',
+            'VMS::Stdio'            => '2.44',
+            'XS::APItest'           => '0.93',
+            'XS::Typemap'           => '0.16',
+            'XSLoader'              => '0.28',
+            'attributes'            => '0.32',
+            'base'                  => '2.27',
+            'blib'                  => '1.07',
+            'experimental'          => '0.017',
+            'fields'                => '2.24',
+            'ok'                    => '1.302111',
+            're'                    => '0.36',
+            'sort'                  => '2.04',
+            'threads'               => '2.19',
+            'warnings'              => '1.38',
+        },
+        removed => {
+        }
+    },
+    5.027007 => {
+        delta_from => 5.027006,
+        changed => {
+            'App::Cpan'             => '1.67',
+            'B'                     => '1.73',
+            'B::Debug'              => '1.26',
+            'B::Deparse'            => '1.46',
+            'B::Op_private'         => '5.027007',
+            'CPAN'                  => '2.20',
+            'CPAN::Distribution'    => '2.19',
+            'CPAN::FTP'             => '5.5011',
+            'CPAN::FirstTime'       => '5.5311',
+            'CPAN::Shell'           => '5.5007',
+            'Carp'                  => '1.45',
+            'Carp::Heavy'           => '1.45',
+            'Compress::Raw::Zlib'   => '2.076',
+            'Config'                => '5.027007',
+            'Cwd'                   => '3.71',
+            'Data::Dumper'          => '2.169',
+            'Devel::PPPort'         => '3.37',
+            'Digest::SHA'           => '6.00',
+            'DynaLoader'            => '1.45',
+            'ExtUtils::CBuilder'    => '0.280230',
+            'ExtUtils::CBuilder::Base'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280230',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280230',
+            'ExtUtils::Typemaps'    => '3.37',
+            'File::Fetch'           => '0.56',
+            'File::Spec'            => '3.71',
+            'File::Spec::AmigaOS'   => '3.71',
+            'File::Spec::Cygwin'    => '3.71',
+            'File::Spec::Epoc'      => '3.71',
+            'File::Spec::Functions' => '3.71',
+            'File::Spec::Mac'       => '3.71',
+            'File::Spec::OS2'       => '3.71',
+            'File::Spec::Unix'      => '3.71',
+            'File::Spec::VMS'       => '3.71',
+            'File::Spec::Win32'     => '3.71',
+            'Filter::Util::Call'    => '1.58',
+            'GDBM_File'             => '1.17',
+            'JSON::PP'              => '2.97000',
+            'JSON::PP::Boolean'     => '2.97000',
+            'Locale::Codes'         => '3.55',
+            'Locale::Codes::Constants'=> '3.55',
+            'Locale::Codes::Country'=> '3.55',
+            'Locale::Codes::Country_Codes'=> '3.55',
+            'Locale::Codes::Country_Retired'=> '3.55',
+            'Locale::Codes::Currency'=> '3.55',
+            'Locale::Codes::Currency_Codes'=> '3.55',
+            'Locale::Codes::Currency_Retired'=> '3.55',
+            'Locale::Codes::LangExt'=> '3.55',
+            'Locale::Codes::LangExt_Codes'=> '3.55',
+            'Locale::Codes::LangExt_Retired'=> '3.55',
+            'Locale::Codes::LangFam'=> '3.55',
+            'Locale::Codes::LangFam_Codes'=> '3.55',
+            'Locale::Codes::LangFam_Retired'=> '3.55',
+            'Locale::Codes::LangVar'=> '3.55',
+            'Locale::Codes::LangVar_Codes'=> '3.55',
+            'Locale::Codes::LangVar_Retired'=> '3.55',
+            'Locale::Codes::Language'=> '3.55',
+            'Locale::Codes::Language_Codes'=> '3.55',
+            'Locale::Codes::Language_Retired'=> '3.55',
+            'Locale::Codes::Script' => '3.55',
+            'Locale::Codes::Script_Codes'=> '3.55',
+            'Locale::Codes::Script_Retired'=> '3.55',
+            'Locale::Country'       => '3.55',
+            'Locale::Currency'      => '3.55',
+            'Locale::Language'      => '3.55',
+            'Locale::Script'        => '3.55',
+            'Module::CoreList'      => '5.20171220',
+            'Module::CoreList::TieHashDelta'=> '5.20171220',
+            'Module::CoreList::Utils'=> '5.20171220',
+            'Opcode'                => '1.42',
+            'POSIX'                 => '1.81',
+            'Pod::Functions'        => '1.12',
+            'Pod::Functions::Functions'=> '1.12',
+            'Pod::Html'             => '1.23',
+            'Sys::Hostname'         => '1.22',
+            'Test2'                 => '1.302120',
+            'Test2::API'            => '1.302120',
+            'Test2::API::Breakage'  => '1.302120',
+            'Test2::API::Context'   => '1.302120',
+            'Test2::API::Instance'  => '1.302120',
+            'Test2::API::Stack'     => '1.302120',
+            'Test2::Event'          => '1.302120',
+            'Test2::Event::Bail'    => '1.302120',
+            'Test2::Event::Diag'    => '1.302120',
+            'Test2::Event::Encoding'=> '1.302120',
+            'Test2::Event::Exception'=> '1.302120',
+            'Test2::Event::Fail'    => '1.302120',
+            'Test2::Event::Generic' => '1.302120',
+            'Test2::Event::Note'    => '1.302120',
+            'Test2::Event::Ok'      => '1.302120',
+            'Test2::Event::Pass'    => '1.302120',
+            'Test2::Event::Plan'    => '1.302120',
+            'Test2::Event::Skip'    => '1.302120',
+            'Test2::Event::Subtest' => '1.302120',
+            'Test2::Event::TAP::Version'=> '1.302120',
+            'Test2::Event::Waiting' => '1.302120',
+            'Test2::EventFacet'     => '1.302120',
+            'Test2::EventFacet::About'=> '1.302120',
+            'Test2::EventFacet::Amnesty'=> '1.302120',
+            'Test2::EventFacet::Assert'=> '1.302120',
+            'Test2::EventFacet::Control'=> '1.302120',
+            'Test2::EventFacet::Error'=> '1.302120',
+            'Test2::EventFacet::Info'=> '1.302120',
+            'Test2::EventFacet::Meta'=> '1.302120',
+            'Test2::EventFacet::Parent'=> '1.302120',
+            'Test2::EventFacet::Plan'=> '1.302120',
+            'Test2::EventFacet::Trace'=> '1.302120',
+            'Test2::Formatter'      => '1.302120',
+            'Test2::Formatter::TAP' => '1.302120',
+            'Test2::Hub'            => '1.302120',
+            'Test2::Hub::Interceptor'=> '1.302120',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302120',
+            'Test2::Hub::Subtest'   => '1.302120',
+            'Test2::IPC'            => '1.302120',
+            'Test2::IPC::Driver'    => '1.302120',
+            'Test2::IPC::Driver::Files'=> '1.302120',
+            'Test2::Tools::Tiny'    => '1.302120',
+            'Test2::Util'           => '1.302120',
+            'Test2::Util::ExternalMeta'=> '1.302120',
+            'Test2::Util::Facets2Legacy'=> '1.302120',
+            'Test2::Util::HashBase' => '1.302120',
+            'Test2::Util::Trace'    => '1.302120',
+            'Test::Builder'         => '1.302120',
+            'Test::Builder::Formatter'=> '1.302120',
+            'Test::Builder::Module' => '1.302120',
+            'Test::Builder::Tester' => '1.302120',
+            'Test::Builder::Tester::Color'=> '1.302120',
+            'Test::Builder::TodoDiag'=> '1.302120',
+            'Test::More'            => '1.302120',
+            'Test::Simple'          => '1.302120',
+            'Test::Tester'          => '1.302120',
+            'Test::Tester::Capture' => '1.302120',
+            'Test::Tester::CaptureRunner'=> '1.302120',
+            'Test::Tester::Delegate'=> '1.302120',
+            'Test::use::ok'         => '1.302120',
+            'Time::HiRes'           => '1.9748',
+            'Time::Piece'           => '1.3203',
+            'Time::Seconds'         => '1.3203',
+            'Unicode::Collate'      => '1.25',
+            'Unicode::Collate::CJK::Big5'=> '1.25',
+            'Unicode::Collate::CJK::GB2312'=> '1.25',
+            'Unicode::Collate::CJK::JISX0208'=> '1.25',
+            'Unicode::Collate::CJK::Korean'=> '1.25',
+            'Unicode::Collate::CJK::Pinyin'=> '1.25',
+            'Unicode::Collate::CJK::Stroke'=> '1.25',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.25',
+            'Unicode::Collate::Locale'=> '1.25',
+            'Unicode::UCD'          => '0.69',
+            'XS::APItest'           => '0.94',
+            'XSLoader'              => '0.29',
+            'arybase'               => '0.15',
+            'autodie::exception'    => '2.29001',
+            'autodie::hints'        => '2.29001',
+            'experimental'          => '0.019',
+            'feature'               => '1.50',
+            'ok'                    => '1.302120',
+            'overload'              => '1.29',
+            'threads'               => '2.21',
+            'threads::shared'       => '1.58',
+            'warnings'              => '1.39',
+        },
+        removed => {
+        }
+    },
+    5.027008 => {
+        delta_from => 5.027007,
+        changed => {
+            'B'                     => '1.74',
+            'B::Deparse'            => '1.47',
+            'B::Op_private'         => '5.027008',
+            'Config'                => '5.027008',
+            'Cwd'                   => '3.72',
+            'Data::Dumper'          => '2.170',
+            'Devel::PPPort'         => '3.38',
+            'Digest::SHA'           => '6.01',
+            'Encode'                => '2.94',
+            'Encode::Alias'         => '2.24',
+            'ExtUtils::Miniperl'    => '1.08',
+            'File::Spec'            => '3.72',
+            'File::Spec::AmigaOS'   => '3.72',
+            'File::Spec::Cygwin'    => '3.72',
+            'File::Spec::Epoc'      => '3.72',
+            'File::Spec::Functions' => '3.72',
+            'File::Spec::Mac'       => '3.72',
+            'File::Spec::OS2'       => '3.72',
+            'File::Spec::Unix'      => '3.72',
+            'File::Spec::VMS'       => '3.72',
+            'File::Spec::Win32'     => '3.72',
+            'JSON::PP'              => '2.97001',
+            'JSON::PP::Boolean'     => '2.97001',
+            'Module::CoreList'      => '5.20180120',
+            'Module::CoreList::TieHashDelta'=> '5.20180120',
+            'Module::CoreList::Utils'=> '5.20180120',
+            'Opcode'                => '1.43',
+            'Pod::Functions'        => '1.13',
+            'Pod::Functions::Functions'=> '1.13',
+            'Pod::Html'             => '1.24',
+            'Pod::Man'              => '4.10',
+            'Pod::ParseLink'        => '4.10',
+            'Pod::Text'             => '4.10',
+            'Pod::Text::Color'      => '4.10',
+            'Pod::Text::Overstrike' => '4.10',
+            'Pod::Text::Termcap'    => '4.10',
+            'Socket'                => '2.027',
+            'Time::HiRes'           => '1.9752',
+            'Unicode::UCD'          => '0.70',
+            'XS::APItest'           => '0.95',
+            'XSLoader'              => '0.30',
+            'autodie::exception'    => '2.29002',
+            'feature'               => '1.51',
+            'overload'              => '1.30',
+            'utf8'                  => '1.21',
+            'warnings'              => '1.40',
+        },
+        removed => {
+        }
+    },
+    5.027009 => {
+        delta_from => 5.027008,
+        changed => {
+            'B::Op_private'         => '5.027009',
+            'Carp'                  => '1.46',
+            'Carp::Heavy'           => '1.46',
+            'Config'                => '5.027009',
+            'Cwd'                   => '3.74',
+            'Devel::PPPort'         => '3.39',
+            'Encode'                => '2.96',
+            'Encode::Unicode'       => '2.17',
+            'Errno'                 => '1.29',
+            'ExtUtils::Command'     => '7.32',
+            'ExtUtils::Command::MM' => '7.32',
+            'ExtUtils::Liblist'     => '7.32',
+            'ExtUtils::Liblist::Kid'=> '7.32',
+            'ExtUtils::MM'          => '7.32',
+            'ExtUtils::MM_AIX'      => '7.32',
+            'ExtUtils::MM_Any'      => '7.32',
+            'ExtUtils::MM_BeOS'     => '7.32',
+            'ExtUtils::MM_Cygwin'   => '7.32',
+            'ExtUtils::MM_DOS'      => '7.32',
+            'ExtUtils::MM_Darwin'   => '7.32',
+            'ExtUtils::MM_MacOS'    => '7.32',
+            'ExtUtils::MM_NW5'      => '7.32',
+            'ExtUtils::MM_OS2'      => '7.32',
+            'ExtUtils::MM_QNX'      => '7.32',
+            'ExtUtils::MM_UWIN'     => '7.32',
+            'ExtUtils::MM_Unix'     => '7.32',
+            'ExtUtils::MM_VMS'      => '7.32',
+            'ExtUtils::MM_VOS'      => '7.32',
+            'ExtUtils::MM_Win32'    => '7.32',
+            'ExtUtils::MM_Win95'    => '7.32',
+            'ExtUtils::MY'          => '7.32',
+            'ExtUtils::MakeMaker'   => '7.32',
+            'ExtUtils::MakeMaker::Config'=> '7.32',
+            'ExtUtils::MakeMaker::Locale'=> '7.32',
+            'ExtUtils::MakeMaker::version'=> '7.32',
+            'ExtUtils::MakeMaker::version::regex'=> '7.32',
+            'ExtUtils::Mkbootstrap' => '7.32',
+            'ExtUtils::Mksymlists'  => '7.32',
+            'ExtUtils::ParseXS'     => '3.38',
+            'ExtUtils::ParseXS::Constants'=> '3.38',
+            'ExtUtils::ParseXS::CountLines'=> '3.38',
+            'ExtUtils::ParseXS::Eval'=> '3.38',
+            'ExtUtils::ParseXS::Utilities'=> '3.38',
+            'ExtUtils::Typemaps'    => '3.38',
+            'ExtUtils::Typemaps::Cmd'=> '3.38',
+            'ExtUtils::Typemaps::InputMap'=> '3.38',
+            'ExtUtils::Typemaps::OutputMap'=> '3.38',
+            'ExtUtils::Typemaps::Type'=> '3.38',
+            'ExtUtils::testlib'     => '7.32',
+            'File::Spec'            => '3.74',
+            'File::Spec::AmigaOS'   => '3.74',
+            'File::Spec::Cygwin'    => '3.74',
+            'File::Spec::Epoc'      => '3.74',
+            'File::Spec::Functions' => '3.74',
+            'File::Spec::Mac'       => '3.74',
+            'File::Spec::OS2'       => '3.74',
+            'File::Spec::Unix'      => '3.74',
+            'File::Spec::VMS'       => '3.74',
+            'File::Spec::Win32'     => '3.74',
+            'IPC::Cmd'              => '1.00',
+            'Math::BigFloat::Trace' => '0.49',
+            'Math::BigInt::Trace'   => '0.49',
+            'Module::CoreList'      => '5.20180220',
+            'Module::CoreList::Utils'=> '5.20180220',
+            'POSIX'                 => '1.82',
+            'PerlIO::encoding'      => '0.26',
+            'Storable'              => '3.06',
+            'Storable::Limit'       => undef,
+            'Test2'                 => '1.302122',
+            'Test2::API'            => '1.302122',
+            'Test2::API::Breakage'  => '1.302122',
+            'Test2::API::Context'   => '1.302122',
+            'Test2::API::Instance'  => '1.302122',
+            'Test2::API::Stack'     => '1.302122',
+            'Test2::Event'          => '1.302122',
+            'Test2::Event::Bail'    => '1.302122',
+            'Test2::Event::Diag'    => '1.302122',
+            'Test2::Event::Encoding'=> '1.302122',
+            'Test2::Event::Exception'=> '1.302122',
+            'Test2::Event::Fail'    => '1.302122',
+            'Test2::Event::Generic' => '1.302122',
+            'Test2::Event::Note'    => '1.302122',
+            'Test2::Event::Ok'      => '1.302122',
+            'Test2::Event::Pass'    => '1.302122',
+            'Test2::Event::Plan'    => '1.302122',
+            'Test2::Event::Skip'    => '1.302122',
+            'Test2::Event::Subtest' => '1.302122',
+            'Test2::Event::TAP::Version'=> '1.302122',
+            'Test2::Event::Waiting' => '1.302122',
+            'Test2::EventFacet'     => '1.302122',
+            'Test2::EventFacet::About'=> '1.302122',
+            'Test2::EventFacet::Amnesty'=> '1.302122',
+            'Test2::EventFacet::Assert'=> '1.302122',
+            'Test2::EventFacet::Control'=> '1.302122',
+            'Test2::EventFacet::Error'=> '1.302122',
+            'Test2::EventFacet::Info'=> '1.302122',
+            'Test2::EventFacet::Meta'=> '1.302122',
+            'Test2::EventFacet::Parent'=> '1.302122',
+            'Test2::EventFacet::Plan'=> '1.302122',
+            'Test2::EventFacet::Render'=> '1.302122',
+            'Test2::EventFacet::Trace'=> '1.302122',
+            'Test2::Formatter'      => '1.302122',
+            'Test2::Formatter::TAP' => '1.302122',
+            'Test2::Hub'            => '1.302122',
+            'Test2::Hub::Interceptor'=> '1.302122',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302122',
+            'Test2::Hub::Subtest'   => '1.302122',
+            'Test2::IPC'            => '1.302122',
+            'Test2::IPC::Driver'    => '1.302122',
+            'Test2::IPC::Driver::Files'=> '1.302122',
+            'Test2::Tools::Tiny'    => '1.302122',
+            'Test2::Util'           => '1.302122',
+            'Test2::Util::ExternalMeta'=> '1.302122',
+            'Test2::Util::Facets2Legacy'=> '1.302122',
+            'Test2::Util::HashBase' => '1.302122',
+            'Test2::Util::Trace'    => '1.302122',
+            'Test::Builder'         => '1.302122',
+            'Test::Builder::Formatter'=> '1.302122',
+            'Test::Builder::Module' => '1.302122',
+            'Test::Builder::Tester' => '1.302122',
+            'Test::Builder::Tester::Color'=> '1.302122',
+            'Test::Builder::TodoDiag'=> '1.302122',
+            'Test::More'            => '1.302122',
+            'Test::Simple'          => '1.302122',
+            'Test::Tester'          => '1.302122',
+            'Test::Tester::Capture' => '1.302122',
+            'Test::Tester::CaptureRunner'=> '1.302122',
+            'Test::Tester::Delegate'=> '1.302122',
+            'Test::use::ok'         => '1.302122',
+            'Time::HiRes'           => '1.9753',
+            'XS::APItest'           => '0.96',
+            'bigint'                => '0.49',
+            'bignum'                => '0.49',
+            'bigrat'                => '0.49',
+            'encoding'              => '2.22',
+            'if'                    => '0.0608',
+            'mro'                   => '1.22',
+            'ok'                    => '1.302122',
+            'threads'               => '2.22',
+            'warnings'              => '1.41',
+        },
+        removed => {
+            'Module::CoreList::TieHashDelta'=> 1,
+        }
+    },
+    5.027010 => {
+        delta_from => 5.027009,
+        changed => {
+            'App::Prove'            => '3.42',
+            'App::Prove::State'     => '3.42',
+            'App::Prove::State::Result'=> '3.42',
+            'App::Prove::State::Result::Test'=> '3.42',
+            'B::Deparse'            => '1.48',
+            'B::Op_private'         => '5.027010',
+            'Carp'                  => '1.49',
+            'Carp::Heavy'           => '1.49',
+            'Config'                => '5.02701',
+            'Encode'                => '2.97',
+            'ExtUtils::Command'     => '7.34',
+            'ExtUtils::Command::MM' => '7.34',
+            'ExtUtils::Liblist'     => '7.34',
+            'ExtUtils::Liblist::Kid'=> '7.34',
+            'ExtUtils::MM'          => '7.34',
+            'ExtUtils::MM_AIX'      => '7.34',
+            'ExtUtils::MM_Any'      => '7.34',
+            'ExtUtils::MM_BeOS'     => '7.34',
+            'ExtUtils::MM_Cygwin'   => '7.34',
+            'ExtUtils::MM_DOS'      => '7.34',
+            'ExtUtils::MM_Darwin'   => '7.34',
+            'ExtUtils::MM_MacOS'    => '7.34',
+            'ExtUtils::MM_NW5'      => '7.34',
+            'ExtUtils::MM_OS2'      => '7.34',
+            'ExtUtils::MM_QNX'      => '7.34',
+            'ExtUtils::MM_UWIN'     => '7.34',
+            'ExtUtils::MM_Unix'     => '7.34',
+            'ExtUtils::MM_VMS'      => '7.34',
+            'ExtUtils::MM_VOS'      => '7.34',
+            'ExtUtils::MM_Win32'    => '7.34',
+            'ExtUtils::MM_Win95'    => '7.34',
+            'ExtUtils::MY'          => '7.34',
+            'ExtUtils::MakeMaker'   => '7.34',
+            'ExtUtils::MakeMaker::Config'=> '7.34',
+            'ExtUtils::MakeMaker::Locale'=> '7.34',
+            'ExtUtils::MakeMaker::version'=> '7.34',
+            'ExtUtils::MakeMaker::version::regex'=> '7.34',
+            'ExtUtils::Mkbootstrap' => '7.34',
+            'ExtUtils::Mksymlists'  => '7.34',
+            'ExtUtils::ParseXS'     => '3.39',
+            'ExtUtils::ParseXS::Constants'=> '3.39',
+            'ExtUtils::ParseXS::CountLines'=> '3.39',
+            'ExtUtils::ParseXS::Eval'=> '3.39',
+            'ExtUtils::ParseXS::Utilities'=> '3.39',
+            'ExtUtils::testlib'     => '7.34',
+            'File::Glob'            => '1.31',
+            'I18N::Langinfo'        => '0.16',
+            'List::Util'            => '1.50',
+            'List::Util::XS'        => '1.50',
+            'Locale::Codes'         => '3.56',
+            'Locale::Codes::Constants'=> '3.56',
+            'Locale::Codes::Country'=> '3.56',
+            'Locale::Codes::Country_Codes'=> '3.56',
+            'Locale::Codes::Country_Retired'=> '3.56',
+            'Locale::Codes::Currency'=> '3.56',
+            'Locale::Codes::Currency_Codes'=> '3.56',
+            'Locale::Codes::Currency_Retired'=> '3.56',
+            'Locale::Codes::LangExt'=> '3.56',
+            'Locale::Codes::LangExt_Codes'=> '3.56',
+            'Locale::Codes::LangExt_Retired'=> '3.56',
+            'Locale::Codes::LangFam'=> '3.56',
+            'Locale::Codes::LangFam_Codes'=> '3.56',
+            'Locale::Codes::LangFam_Retired'=> '3.56',
+            'Locale::Codes::LangVar'=> '3.56',
+            'Locale::Codes::LangVar_Codes'=> '3.56',
+            'Locale::Codes::LangVar_Retired'=> '3.56',
+            'Locale::Codes::Language'=> '3.56',
+            'Locale::Codes::Language_Codes'=> '3.56',
+            'Locale::Codes::Language_Retired'=> '3.56',
+            'Locale::Codes::Script' => '3.56',
+            'Locale::Codes::Script_Codes'=> '3.56',
+            'Locale::Codes::Script_Retired'=> '3.56',
+            'Locale::Country'       => '3.56',
+            'Locale::Currency'      => '3.56',
+            'Locale::Language'      => '3.56',
+            'Locale::Script'        => '3.56',
+            'Module::CoreList'      => '5.20180221',
+            'Module::CoreList::Utils'=> '5.20180221',
+            'POSIX'                 => '1.83',
+            'Scalar::Util'          => '1.50',
+            'Sub::Util'             => '1.50',
+            'TAP::Base'             => '3.42',
+            'TAP::Formatter::Base'  => '3.42',
+            'TAP::Formatter::Color' => '3.42',
+            'TAP::Formatter::Console'=> '3.42',
+            'TAP::Formatter::Console::ParallelSession'=> '3.42',
+            'TAP::Formatter::Console::Session'=> '3.42',
+            'TAP::Formatter::File'  => '3.42',
+            'TAP::Formatter::File::Session'=> '3.42',
+            'TAP::Formatter::Session'=> '3.42',
+            'TAP::Harness'          => '3.42',
+            'TAP::Harness::Env'     => '3.42',
+            'TAP::Object'           => '3.42',
+            'TAP::Parser'           => '3.42',
+            'TAP::Parser::Aggregator'=> '3.42',
+            'TAP::Parser::Grammar'  => '3.42',
+            'TAP::Parser::Iterator' => '3.42',
+            'TAP::Parser::Iterator::Array'=> '3.42',
+            'TAP::Parser::Iterator::Process'=> '3.42',
+            'TAP::Parser::Iterator::Stream'=> '3.42',
+            'TAP::Parser::IteratorFactory'=> '3.42',
+            'TAP::Parser::Multiplexer'=> '3.42',
+            'TAP::Parser::Result'   => '3.42',
+            'TAP::Parser::Result::Bailout'=> '3.42',
+            'TAP::Parser::Result::Comment'=> '3.42',
+            'TAP::Parser::Result::Plan'=> '3.42',
+            'TAP::Parser::Result::Pragma'=> '3.42',
+            'TAP::Parser::Result::Test'=> '3.42',
+            'TAP::Parser::Result::Unknown'=> '3.42',
+            'TAP::Parser::Result::Version'=> '3.42',
+            'TAP::Parser::Result::YAML'=> '3.42',
+            'TAP::Parser::ResultFactory'=> '3.42',
+            'TAP::Parser::Scheduler'=> '3.42',
+            'TAP::Parser::Scheduler::Job'=> '3.42',
+            'TAP::Parser::Scheduler::Spinner'=> '3.42',
+            'TAP::Parser::Source'   => '3.42',
+            'TAP::Parser::SourceHandler'=> '3.42',
+            'TAP::Parser::SourceHandler::Executable'=> '3.42',
+            'TAP::Parser::SourceHandler::File'=> '3.42',
+            'TAP::Parser::SourceHandler::Handle'=> '3.42',
+            'TAP::Parser::SourceHandler::Perl'=> '3.42',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.42',
+            'TAP::Parser::YAMLish::Reader'=> '3.42',
+            'TAP::Parser::YAMLish::Writer'=> '3.42',
+            'Test2'                 => '1.302133',
+            'Test2::API'            => '1.302133',
+            'Test2::API::Breakage'  => '1.302133',
+            'Test2::API::Context'   => '1.302133',
+            'Test2::API::Instance'  => '1.302133',
+            'Test2::API::Stack'     => '1.302133',
+            'Test2::Event'          => '1.302133',
+            'Test2::Event::Bail'    => '1.302133',
+            'Test2::Event::Diag'    => '1.302133',
+            'Test2::Event::Encoding'=> '1.302133',
+            'Test2::Event::Exception'=> '1.302133',
+            'Test2::Event::Fail'    => '1.302133',
+            'Test2::Event::Generic' => '1.302133',
+            'Test2::Event::Note'    => '1.302133',
+            'Test2::Event::Ok'      => '1.302133',
+            'Test2::Event::Pass'    => '1.302133',
+            'Test2::Event::Plan'    => '1.302133',
+            'Test2::Event::Skip'    => '1.302133',
+            'Test2::Event::Subtest' => '1.302133',
+            'Test2::Event::TAP::Version'=> '1.302133',
+            'Test2::Event::V2'      => '1.302133',
+            'Test2::Event::Waiting' => '1.302133',
+            'Test2::EventFacet'     => '1.302133',
+            'Test2::EventFacet::About'=> '1.302133',
+            'Test2::EventFacet::Amnesty'=> '1.302133',
+            'Test2::EventFacet::Assert'=> '1.302133',
+            'Test2::EventFacet::Control'=> '1.302133',
+            'Test2::EventFacet::Error'=> '1.302133',
+            'Test2::EventFacet::Hub'=> '1.302133',
+            'Test2::EventFacet::Info'=> '1.302133',
+            'Test2::EventFacet::Meta'=> '1.302133',
+            'Test2::EventFacet::Parent'=> '1.302133',
+            'Test2::EventFacet::Plan'=> '1.302133',
+            'Test2::EventFacet::Render'=> '1.302133',
+            'Test2::EventFacet::Trace'=> '1.302133',
+            'Test2::Formatter'      => '1.302133',
+            'Test2::Formatter::TAP' => '1.302133',
+            'Test2::Hub'            => '1.302133',
+            'Test2::Hub::Interceptor'=> '1.302133',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302133',
+            'Test2::Hub::Subtest'   => '1.302133',
+            'Test2::IPC'            => '1.302133',
+            'Test2::IPC::Driver'    => '1.302133',
+            'Test2::IPC::Driver::Files'=> '1.302133',
+            'Test2::Tools::Tiny'    => '1.302133',
+            'Test2::Util'           => '1.302133',
+            'Test2::Util::ExternalMeta'=> '1.302133',
+            'Test2::Util::Facets2Legacy'=> '1.302133',
+            'Test2::Util::HashBase' => '1.302133',
+            'Test2::Util::Trace'    => '1.302133',
+            'Test::Builder'         => '1.302133',
+            'Test::Builder::Formatter'=> '1.302133',
+            'Test::Builder::Module' => '1.302133',
+            'Test::Builder::Tester' => '1.302133',
+            'Test::Builder::Tester::Color'=> '1.302133',
+            'Test::Builder::TodoDiag'=> '1.302133',
+            'Test::Harness'         => '3.42',
+            'Test::More'            => '1.302133',
+            'Test::Simple'          => '1.302133',
+            'Test::Tester'          => '1.302133',
+            'Test::Tester::Capture' => '1.302133',
+            'Test::Tester::CaptureRunner'=> '1.302133',
+            'Test::Tester::Delegate'=> '1.302133',
+            'Test::use::ok'         => '1.302133',
+            'Time::HiRes'           => '1.9757',
+            'Time::Piece'           => '1.3204',
+            'Time::Seconds'         => '1.3204',
+            'attributes'            => '0.33',
+            'ok'                    => '1.302133',
+            'warnings'              => '1.42',
+        },
+        removed => {
+        }
+    },
+    5.024004 => {
+        delta_from => 5.024003,
+        changed => {
+            'B::Op_private'         => '5.024004',
+            'Config'                => '5.024004',
+            'Module::CoreList'      => '5.20180414_24',
+            'Module::CoreList::TieHashDelta'=> '5.20180414_24',
+            'Module::CoreList::Utils'=> '5.20180414_24',
+        },
+        removed => {
+        }
+    },
+    5.026002 => {
+        delta_from => 5.026001,
+        changed => {
+            'B::Op_private'         => '5.026002',
+            'Config'                => '5.026002',
+            'Module::CoreList'      => '5.20180414_26',
+            'Module::CoreList::TieHashDelta'=> '5.20180414_26',
+            'Module::CoreList::Utils'=> '5.20180414_26',
+            'PerlIO::via'           => '0.17',
+            'Term::ReadLine'        => '1.17',
+            'Unicode::UCD'          => '0.69',
+        },
+        removed => {
+        }
+    },
+    5.027011 => {
+        delta_from => 5.027010,
+        changed => {
+            'B::Op_private'         => '5.027011',
+            'Carp'                  => '1.50',
+            'Carp::Heavy'           => '1.50',
+            'Config'                => '5.027011',
+            'Devel::PPPort'         => '3.40',
+            'Exporter'              => '5.73',
+            'Exporter::Heavy'       => '5.73',
+            'ExtUtils::Constant'    => '0.25',
+            'I18N::Langinfo'        => '0.17',
+            'IO'                    => '1.39',
+            'IO::Dir'               => '1.39',
+            'IO::File'              => '1.39',
+            'IO::Handle'            => '1.39',
+            'IO::Pipe'              => '1.39',
+            'IO::Poll'              => '1.39',
+            'IO::Seekable'          => '1.39',
+            'IO::Select'            => '1.39',
+            'IO::Socket'            => '1.39',
+            'IO::Socket::INET'      => '1.39',
+            'IO::Socket::UNIX'      => '1.39',
+            'Module::CoreList'      => '5.20180420',
+            'Module::CoreList::Utils'=> '5.20180420',
+            'POSIX'                 => '1.84',
+            'Time::HiRes'           => '1.9759',
+            'XS::APItest'           => '0.97',
+            'bytes'                 => '1.06',
+            'subs'                  => '1.03',
+            'vars'                  => '1.04',
+            'version'               => '0.9923',
+            'version::regex'        => '0.9923',
+        },
+        removed => {
+        }
+    },
+    5.028000 => {
+        delta_from => 5.027011,
+        changed => {
+            'Archive::Tar'          => '2.30',
+            'Archive::Tar::Constant'=> '2.30',
+            'Archive::Tar::File'    => '2.30',
+            'B::Op_private'         => '5.028000',
+            'Config'                => '5.028',
+            'Module::CoreList'      => '5.20180622',
+            'Module::CoreList::Utils'=> '5.20180622',
+            'Storable'              => '3.08',
+            'XS::APItest'           => '0.98',
+            'feature'               => '1.52',
+        },
+        removed => {
+        }
+    },
+    5.029000 => {
+        delta_from => 5.028,
+        changed => {
+            'B::Op_private'         => '5.029000',
+            'Config'                => '5.029',
+            'Module::CoreList'      => '5.20180626',
+            'Module::CoreList::Utils'=> '5.20180626',
+            'Unicode::UCD'          => '0.71',
+            'XS::APItest'           => '0.99',
+            'feature'               => '1.53',
+        },
+        removed => {
+        }
+    },
+    5.029001 => {
+        delta_from => 5.029000,
+        changed => {
+            'B::Op_private'         => '5.029001',
+            'Compress::Raw::Bzip2'  => '2.081',
+            'Compress::Raw::Zlib'   => '2.081',
+            'Compress::Zlib'        => '2.081',
+            'Config'                => '5.029001',
+            'Config::Perl::V'       => '0.30',
+            'DB_File'               => '1.842',
+            'Devel::PPPort'         => '3.42',
+            'Digest::SHA'           => '6.02',
+            'ExtUtils::Manifest'    => '1.71',
+            'File::GlobMapper'      => '1.001',
+            'File::Temp'            => '0.2308',
+            'IO::Compress::Adapter::Bzip2'=> '2.081',
+            'IO::Compress::Adapter::Deflate'=> '2.081',
+            'IO::Compress::Adapter::Identity'=> '2.081',
+            'IO::Compress::Base'    => '2.081',
+            'IO::Compress::Base::Common'=> '2.081',
+            'IO::Compress::Bzip2'   => '2.081',
+            'IO::Compress::Deflate' => '2.081',
+            'IO::Compress::Gzip'    => '2.081',
+            'IO::Compress::Gzip::Constants'=> '2.081',
+            'IO::Compress::RawDeflate'=> '2.081',
+            'IO::Compress::Zip'     => '2.081',
+            'IO::Compress::Zip::Constants'=> '2.081',
+            'IO::Compress::Zlib::Constants'=> '2.081',
+            'IO::Compress::Zlib::Extra'=> '2.081',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.081',
+            'IO::Uncompress::Adapter::Identity'=> '2.081',
+            'IO::Uncompress::Adapter::Inflate'=> '2.081',
+            'IO::Uncompress::AnyInflate'=> '2.081',
+            'IO::Uncompress::AnyUncompress'=> '2.081',
+            'IO::Uncompress::Base'  => '2.081',
+            'IO::Uncompress::Bunzip2'=> '2.081',
+            'IO::Uncompress::Gunzip'=> '2.081',
+            'IO::Uncompress::Inflate'=> '2.081',
+            'IO::Uncompress::RawInflate'=> '2.081',
+            'IO::Uncompress::Unzip' => '2.081',
+            'IPC::Cmd'              => '1.02',
+            'Locale::Codes'         => '3.57',
+            'Locale::Codes::Constants'=> '3.57',
+            'Locale::Codes::Country'=> '3.57',
+            'Locale::Codes::Country_Codes'=> '3.57',
+            'Locale::Codes::Country_Retired'=> '3.57',
+            'Locale::Codes::Currency'=> '3.57',
+            'Locale::Codes::Currency_Codes'=> '3.57',
+            'Locale::Codes::Currency_Retired'=> '3.57',
+            'Locale::Codes::LangExt'=> '3.57',
+            'Locale::Codes::LangExt_Codes'=> '3.57',
+            'Locale::Codes::LangExt_Retired'=> '3.57',
+            'Locale::Codes::LangFam'=> '3.57',
+            'Locale::Codes::LangFam_Codes'=> '3.57',
+            'Locale::Codes::LangFam_Retired'=> '3.57',
+            'Locale::Codes::LangVar'=> '3.57',
+            'Locale::Codes::LangVar_Codes'=> '3.57',
+            'Locale::Codes::LangVar_Retired'=> '3.57',
+            'Locale::Codes::Language'=> '3.57',
+            'Locale::Codes::Language_Codes'=> '3.57',
+            'Locale::Codes::Language_Retired'=> '3.57',
+            'Locale::Codes::Script' => '3.57',
+            'Locale::Codes::Script_Codes'=> '3.57',
+            'Locale::Codes::Script_Retired'=> '3.57',
+            'Locale::Country'       => '3.57',
+            'Locale::Currency'      => '3.57',
+            'Locale::Language'      => '3.57',
+            'Locale::Script'        => '3.57',
+            'Math::BigFloat'        => '1.999813',
+            'Math::BigFloat::Trace' => '0.50',
+            'Math::BigInt'          => '1.999813',
+            'Math::BigInt::Calc'    => '1.999813',
+            'Math::BigInt::CalcEmu' => '1.999813',
+            'Math::BigInt::FastCalc'=> '0.5007',
+            'Math::BigInt::Lib'     => '1.999813',
+            'Math::BigInt::Trace'   => '0.50',
+            'Math::BigRat'          => '0.2614',
+            'Module::CoreList'      => '5.20180720',
+            'Module::CoreList::Utils'=> '5.20180720',
+            'Pod::Man'              => '4.11',
+            'Pod::ParseLink'        => '4.11',
+            'Pod::Text'             => '4.11',
+            'Pod::Text::Color'      => '4.11',
+            'Pod::Text::Overstrike' => '4.11',
+            'Pod::Text::Termcap'    => '4.11',
+            'Storable'              => '3.11',
+            'Test2'                 => '1.302138',
+            'Test2::API'            => '1.302138',
+            'Test2::API::Breakage'  => '1.302138',
+            'Test2::API::Context'   => '1.302138',
+            'Test2::API::Instance'  => '1.302138',
+            'Test2::API::Stack'     => '1.302138',
+            'Test2::Event'          => '1.302138',
+            'Test2::Event::Bail'    => '1.302138',
+            'Test2::Event::Diag'    => '1.302138',
+            'Test2::Event::Encoding'=> '1.302138',
+            'Test2::Event::Exception'=> '1.302138',
+            'Test2::Event::Fail'    => '1.302138',
+            'Test2::Event::Generic' => '1.302138',
+            'Test2::Event::Note'    => '1.302138',
+            'Test2::Event::Ok'      => '1.302138',
+            'Test2::Event::Pass'    => '1.302138',
+            'Test2::Event::Plan'    => '1.302138',
+            'Test2::Event::Skip'    => '1.302138',
+            'Test2::Event::Subtest' => '1.302138',
+            'Test2::Event::TAP::Version'=> '1.302138',
+            'Test2::Event::V2'      => '1.302138',
+            'Test2::Event::Waiting' => '1.302138',
+            'Test2::EventFacet'     => '1.302138',
+            'Test2::EventFacet::About'=> '1.302138',
+            'Test2::EventFacet::Amnesty'=> '1.302138',
+            'Test2::EventFacet::Assert'=> '1.302138',
+            'Test2::EventFacet::Control'=> '1.302138',
+            'Test2::EventFacet::Error'=> '1.302138',
+            'Test2::EventFacet::Hub'=> '1.302138',
+            'Test2::EventFacet::Info'=> '1.302138',
+            'Test2::EventFacet::Meta'=> '1.302138',
+            'Test2::EventFacet::Parent'=> '1.302138',
+            'Test2::EventFacet::Plan'=> '1.302138',
+            'Test2::EventFacet::Render'=> '1.302138',
+            'Test2::EventFacet::Trace'=> '1.302138',
+            'Test2::Formatter'      => '1.302138',
+            'Test2::Formatter::TAP' => '1.302138',
+            'Test2::Hub'            => '1.302138',
+            'Test2::Hub::Interceptor'=> '1.302138',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302138',
+            'Test2::Hub::Subtest'   => '1.302138',
+            'Test2::IPC'            => '1.302138',
+            'Test2::IPC::Driver'    => '1.302138',
+            'Test2::IPC::Driver::Files'=> '1.302138',
+            'Test2::Tools::Tiny'    => '1.302138',
+            'Test2::Util'           => '1.302138',
+            'Test2::Util::ExternalMeta'=> '1.302138',
+            'Test2::Util::Facets2Legacy'=> '1.302138',
+            'Test2::Util::HashBase' => '1.302138',
+            'Test2::Util::Trace'    => '1.302138',
+            'Test::Builder'         => '1.302138',
+            'Test::Builder::Formatter'=> '1.302138',
+            'Test::Builder::Module' => '1.302138',
+            'Test::Builder::Tester' => '1.302138',
+            'Test::Builder::Tester::Color'=> '1.302138',
+            'Test::Builder::TodoDiag'=> '1.302138',
+            'Test::More'            => '1.302138',
+            'Test::Simple'          => '1.302138',
+            'Test::Tester'          => '1.302138',
+            'Test::Tester::Capture' => '1.302138',
+            'Test::Tester::CaptureRunner'=> '1.302138',
+            'Test::Tester::Delegate'=> '1.302138',
+            'Test::use::ok'         => '1.302138',
+            'Thread::Queue'         => '3.13',
+            'Time::Local'           => '1.28',
+            'bigint'                => '0.50',
+            'bignum'                => '0.50',
+            'bigrat'                => '0.50',
+            'experimental'          => '0.020',
+            'ok'                    => '1.302138',
+            'parent'                => '0.237',
+            'perlfaq'               => '5.20180605',
+            'version'               => '0.9924',
+            'version::regex'        => '0.9924',
+        },
+        removed => {
+        }
+    },
+    5.029002 => {
+        delta_from => 5.029001,
+        changed => {
+            'B::Op_private'         => '5.029002',
+            'Config'                => '5.029002',
+            'Config::Extensions'    => '0.03',
+            'Cwd'                   => '3.75',
+            'Data::Dumper'          => '2.171',
+            'Filter::Util::Call'    => '1.59',
+            'HTTP::Tiny'            => '0.076',
+            'Module::CoreList'      => '5.20180820',
+            'Module::CoreList::Utils'=> '5.20180820',
+            'PerlIO::scalar'        => '0.30',
+            'Storable'              => '3.12',
+            'Test2'                 => '1.302140',
+            'Test2::API'            => '1.302140',
+            'Test2::API::Breakage'  => '1.302140',
+            'Test2::API::Context'   => '1.302140',
+            'Test2::API::Instance'  => '1.302140',
+            'Test2::API::Stack'     => '1.302140',
+            'Test2::Event'          => '1.302140',
+            'Test2::Event::Bail'    => '1.302140',
+            'Test2::Event::Diag'    => '1.302140',
+            'Test2::Event::Encoding'=> '1.302140',
+            'Test2::Event::Exception'=> '1.302140',
+            'Test2::Event::Fail'    => '1.302140',
+            'Test2::Event::Generic' => '1.302140',
+            'Test2::Event::Note'    => '1.302140',
+            'Test2::Event::Ok'      => '1.302140',
+            'Test2::Event::Pass'    => '1.302140',
+            'Test2::Event::Plan'    => '1.302140',
+            'Test2::Event::Skip'    => '1.302140',
+            'Test2::Event::Subtest' => '1.302140',
+            'Test2::Event::TAP::Version'=> '1.302140',
+            'Test2::Event::V2'      => '1.302140',
+            'Test2::Event::Waiting' => '1.302140',
+            'Test2::EventFacet'     => '1.302140',
+            'Test2::EventFacet::About'=> '1.302140',
+            'Test2::EventFacet::Amnesty'=> '1.302140',
+            'Test2::EventFacet::Assert'=> '1.302140',
+            'Test2::EventFacet::Control'=> '1.302140',
+            'Test2::EventFacet::Error'=> '1.302140',
+            'Test2::EventFacet::Hub'=> '1.302140',
+            'Test2::EventFacet::Info'=> '1.302140',
+            'Test2::EventFacet::Meta'=> '1.302140',
+            'Test2::EventFacet::Parent'=> '1.302140',
+            'Test2::EventFacet::Plan'=> '1.302140',
+            'Test2::EventFacet::Render'=> '1.302140',
+            'Test2::EventFacet::Trace'=> '1.302140',
+            'Test2::Formatter'      => '1.302140',
+            'Test2::Formatter::TAP' => '1.302140',
+            'Test2::Hub'            => '1.302140',
+            'Test2::Hub::Interceptor'=> '1.302140',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302140',
+            'Test2::Hub::Subtest'   => '1.302140',
+            'Test2::IPC'            => '1.302140',
+            'Test2::IPC::Driver'    => '1.302140',
+            'Test2::IPC::Driver::Files'=> '1.302140',
+            'Test2::Tools::Tiny'    => '1.302140',
+            'Test2::Util'           => '1.302140',
+            'Test2::Util::ExternalMeta'=> '1.302140',
+            'Test2::Util::Facets2Legacy'=> '1.302140',
+            'Test2::Util::HashBase' => '1.302140',
+            'Test2::Util::Trace'    => '1.302140',
+            'Test::Builder'         => '1.302140',
+            'Test::Builder::Formatter'=> '1.302140',
+            'Test::Builder::Module' => '1.302140',
+            'Test::Builder::Tester' => '1.302140',
+            'Test::Builder::Tester::Color'=> '1.302140',
+            'Test::Builder::TodoDiag'=> '1.302140',
+            'Test::More'            => '1.302140',
+            'Test::Simple'          => '1.302140',
+            'Test::Tester'          => '1.302140',
+            'Test::Tester::Capture' => '1.302140',
+            'Test::Tester::CaptureRunner'=> '1.302140',
+            'Test::Tester::Delegate'=> '1.302140',
+            'Test::use::ok'         => '1.302140',
+            'Time::HiRes'           => '1.9760',
+            'Time::Piece'           => '1.33',
+            'Time::Seconds'         => '1.33',
+            'Unicode'               => '11.0.0',
+            'ok'                    => '1.302140',
+            'warnings'              => '1.43',
+        },
+        removed => {
+        }
+    },
+    5.029003 => {
+        delta_from => 5.029002,
+        changed => {
+            'Archive::Tar'          => '2.32',
+            'Archive::Tar::Constant'=> '2.32',
+            'Archive::Tar::File'    => '2.32',
+            'B::Op_private'         => '5.029003',
+            'Config'                => '5.029003',
+            'Data::Dumper'          => '2.172',
+            'Devel::PPPort'         => '3.43',
+            'File::Path'            => '2.16',
+            'File::Spec'            => '3.75',
+            'File::Spec::AmigaOS'   => '3.75',
+            'File::Spec::Cygwin'    => '3.75',
+            'File::Spec::Epoc'      => '3.75',
+            'File::Spec::Functions' => '3.75',
+            'File::Spec::Mac'       => '3.75',
+            'File::Spec::OS2'       => '3.75',
+            'File::Spec::Unix'      => '3.75',
+            'File::Spec::VMS'       => '3.75',
+            'File::Spec::Win32'     => '3.75',
+            'Module::CoreList'      => '5.20180920',
+            'Module::CoreList::Utils'=> '5.20180920',
+            'POSIX'                 => '1.85',
+            'Storable'              => '3.13',
+            'User::grent'           => '1.03',
+            'perlfaq'               => '5.20180915',
+        },
+        removed => {
+            'Locale::Codes'         => 1,
+            'Locale::Codes::Constants'=> 1,
+            'Locale::Codes::Country'=> 1,
+            'Locale::Codes::Country_Codes'=> 1,
+            'Locale::Codes::Country_Retired'=> 1,
+            'Locale::Codes::Currency'=> 1,
+            'Locale::Codes::Currency_Codes'=> 1,
+            'Locale::Codes::Currency_Retired'=> 1,
+            'Locale::Codes::LangExt'=> 1,
+            'Locale::Codes::LangExt_Codes'=> 1,
+            'Locale::Codes::LangExt_Retired'=> 1,
+            'Locale::Codes::LangFam'=> 1,
+            'Locale::Codes::LangFam_Codes'=> 1,
+            'Locale::Codes::LangFam_Retired'=> 1,
+            'Locale::Codes::LangVar'=> 1,
+            'Locale::Codes::LangVar_Codes'=> 1,
+            'Locale::Codes::LangVar_Retired'=> 1,
+            'Locale::Codes::Language'=> 1,
+            'Locale::Codes::Language_Codes'=> 1,
+            'Locale::Codes::Language_Retired'=> 1,
+            'Locale::Codes::Script' => 1,
+            'Locale::Codes::Script_Codes'=> 1,
+            'Locale::Codes::Script_Retired'=> 1,
+            'Locale::Country'       => 1,
+            'Locale::Currency'      => 1,
+            'Locale::Language'      => 1,
+            'Locale::Script'        => 1,
+        }
+    },
+    5.029004 => {
+        delta_from => 5.029003,
+        changed => {
+            'App::Cpan'             => '1.671',
+            'B'                     => '1.75',
+            'B::Concise'            => '1.004',
+            'B::Deparse'            => '1.49',
+            'B::Op_private'         => '5.029004',
+            'B::Terse'              => '1.09',
+            'CPAN'                  => '2.21',
+            'CPAN::Distribution'    => '2.21',
+            'CPAN::Mirrors'         => '2.21',
+            'CPAN::Plugin'          => '0.97',
+            'CPAN::Shell'           => '5.5008',
+            'Config'                => '5.029004',
+            'Devel::Peek'           => '1.28',
+            'File::Copy'            => '2.34',
+            'File::Glob'            => '1.32',
+            'Math::BigFloat::Trace' => '0.51',
+            'Math::BigInt::Trace'   => '0.51',
+            'Module::CoreList'      => '5.20181020',
+            'Module::CoreList::Utils'=> '5.20181020',
+            'Unicode::UCD'          => '0.72',
+            'bigint'                => '0.51',
+            'bignum'                => '0.51',
+            'bigrat'                => '0.51',
+            'bytes'                 => '1.07',
+            'feature'               => '1.54',
+            'sigtrap'               => '1.09',
+            'vars'                  => '1.05',
+        },
+        removed => {
+            'B::Debug'              => 1,
+            'arybase'               => 1,
+        }
+    },
+    5.028001 => {
+        delta_from => 5.028,
+        changed => {
+            'B::Op_private'         => '5.028001',
+            'Config'                => '5.028001',
+            'Module::CoreList'      => '5.20181129_28',
+            'Module::CoreList::Utils'=> '5.20181129_28',
+        },
+        removed => {
+        }
+    },
+);
+
+sub is_core
+{
+    shift if defined $_[1] and $_[1] =~ /^\w/ and _looks_like_invocant $_[0];
+    my $module = shift;
+    my $module_version = @_ > 0 ? shift : undef;
+    my $perl_version   = @_ > 0 ? shift : $];
+
+    my $first_release = first_release($module);
+
+    return 0 if !defined($first_release) || $first_release > $perl_version;
+
+    my $final_release = removed_from($module);
+
+    return 0 if defined($final_release) && $perl_version >= $final_release;
+
+    # If a minimum version of the module was specified:
+    # Step through all perl releases ($prn)
+    # so we can find what version of the module
+    # was included in the specified version of perl.
+    # On the way if we pass the required module version, we can
+    # short-circuit and return true
+    if (defined($module_version)) {
+        my $module_version_object = eval { version->parse($module_version) };
+        if (!defined($module_version_object)) {
+            (my $err = $@) =~ s/^Invalid version format\b/Invalid version '$module_version' specified/;
+            die $err;
+        }
+        # The Perl releases aren't a linear sequence, but a tree. We need to build the path
+        # of releases from 5 to the specified release, and follow the module's version(s)
+        # along that path.
+        my @releases = ($perl_version);
+        my $rel = $perl_version;
+        while (defined($rel)) {
+            # XXX: This line is a sign of failure. -- rjbs, 2015-04-15
+            my $this_delta = $delta{$rel} || $delta{ sprintf '%0.6f', $rel };
+            $rel = $this_delta->{delta_from};
+            unshift(@releases, $rel) if defined($rel);
+        }
+        RELEASE:
+        foreach my $prn (@releases) {
+            next RELEASE if $prn < $first_release;
+            last RELEASE if $prn > $perl_version;
+            next unless defined(my $next_module_version
+                                   = $delta{$prn}->{changed}->{$module});
+            return 1 if eval { version->parse($next_module_version) >= $module_version_object };
+        }
+        return 0;
+    }
+
+    return 1 if !defined($final_release);
+
+    return $perl_version <= $final_release;
+}
+
+%version = _undelta(\%delta);
+
+%deprecated = (
+    5.011    => {
+        changed => { map { $_ => 1 } qw/
+            Class::ISA
+            Pod::Plainer
+            Shell
+            Switch
+        /},
+    },
+    5.011001 => { delta_from => 5.011 },
+    5.011002 => { delta_from => 5.011001 },
+    5.011003 => { delta_from => 5.011002 },
+    5.011004 => { delta_from => 5.011003 },
+    5.011005 => { delta_from => 5.011004 },
+
+    5.012    => { delta_from => 5.011005 },
+    5.012001 => { delta_from => 5.012 },
+    5.012002 => { delta_from => 5.012001 },
+    5.012003 => { delta_from => 5.012002 },
+    5.012004 => { delta_from => 5.012003 },
+    5.012005 => { delta_from => 5.012004 },
+
+    5.013    => { delta_from => 5.012005 },
+    5.013001 => {
+        delta_from => 5.013,
+        removed => { map { $_ => 1 } qw/
+            Class::ISA
+            Pod::Plainer
+            Switch
+        /},
+    },
+    5.013002 => { delta_from => 5.013001 },
+    5.013003 => { delta_from => 5.013002 },
+    5.013004 => { delta_from => 5.013003 },
+    5.013005 => { delta_from => 5.013004 },
+    5.013006 => { delta_from => 5.013005 },
+    5.013007 => { delta_from => 5.013006 },
+    5.013008 => { delta_from => 5.013007 },
+    5.013009 => { delta_from => 5.013008 },
+    5.01301  => { delta_from => 5.013009 },
+    5.013011 => { delta_from => 5.01301  },
+
+    5.014    => { delta_from => 5.013011 },
+    5.014001 => { delta_from => 5.014    },
+    5.014002 => { delta_from => 5.014001 },
+    5.014003 => { delta_from => 5.014002 },
+    5.014004 => { delta_from => 5.014003 },
+
+    5.015    => {
+        delta_from => 5.014004,
+        removed => { Shell => 1 },
+    },
+    5.015001 => { delta_from => 5.015    },
+    5.015002 => { delta_from => 5.015001 },
+    5.015003 => { delta_from => 5.015002 },
+    5.015004 => { delta_from => 5.015003 },
+    5.015005 => { delta_from => 5.015004 },
+    5.015006 => { delta_from => 5.015005 },
+    5.015007 => { delta_from => 5.015006 },
+    5.015008 => { delta_from => 5.015007 },
+    5.015009 => { delta_from => 5.015008 },
+
+    5.016    => { delta_from => 5.015009 },
+    5.016001 => { delta_from => 5.016    },
+    5.016002 => { delta_from => 5.016001 },
+    5.016003 => { delta_from => 5.016002 },
+
+    5.017    => { delta_from => 5.016003 },
+    5.017001 => { delta_from => 5.017    },
+    5.017002 => { delta_from => 5.017001 },
+    5.017003 => { delta_from => 5.017002 },
+    5.017004 => { delta_from => 5.017003 },
+    5.017005 => { delta_from => 5.017004 },
+    5.017006 => { delta_from => 5.017005 },
+    5.017007 => { delta_from => 5.017006 },
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => { 'Pod::LaTeX' => 1 },
+    },
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => { map { $_ => 1 } qw/
+            Archive::Extract
+            B::Lint
+            B::Lint::Debug
+            CPANPLUS
+            CPANPLUS::Backend
+            CPANPLUS::Backend::RV
+            CPANPLUS::Config
+            CPANPLUS::Config::HomeEnv
+            CPANPLUS::Configure
+            CPANPLUS::Configure::Setup
+            CPANPLUS::Dist
+            CPANPLUS::Dist::Autobundle
+            CPANPLUS::Dist::Base
+            CPANPLUS::Dist::Build
+            CPANPLUS::Dist::Build::Constants
+            CPANPLUS::Dist::MM
+            CPANPLUS::Dist::Sample
+            CPANPLUS::Error
+            CPANPLUS::Internals
+            CPANPLUS::Internals::Constants
+            CPANPLUS::Internals::Constants::Report
+            CPANPLUS::Internals::Extract
+            CPANPLUS::Internals::Fetch
+            CPANPLUS::Internals::Report
+            CPANPLUS::Internals::Search
+            CPANPLUS::Internals::Source
+            CPANPLUS::Internals::Source::Memory
+            CPANPLUS::Internals::Source::SQLite
+            CPANPLUS::Internals::Source::SQLite::Tie
+            CPANPLUS::Internals::Utils
+            CPANPLUS::Internals::Utils::Autoflush
+            CPANPLUS::Module
+            CPANPLUS::Module::Author
+            CPANPLUS::Module::Author::Fake
+            CPANPLUS::Module::Checksums
+            CPANPLUS::Module::Fake
+            CPANPLUS::Module::Signature
+            CPANPLUS::Selfupdate
+            CPANPLUS::Shell
+            CPANPLUS::Shell::Classic
+            CPANPLUS::Shell::Default
+            CPANPLUS::Shell::Default::Plugins::CustomSource
+            CPANPLUS::Shell::Default::Plugins::Remote
+            CPANPLUS::Shell::Default::Plugins::Source
+            Devel::InnerPackage
+            File::CheckTree
+            Log::Message
+            Log::Message::Config
+            Log::Message::Handlers
+            Log::Message::Item
+            Log::Message::Simple
+            Module::Pluggable
+            Module::Pluggable::Object
+            Object::Accessor
+            Term::UI
+            Term::UI::History
+            Text::Soundex
+        /},
+    },
+    5.01701  => { delta_from => 5.017009 },
+    5.017011 => { delta_from => 5.01701  },
+
+    5.018    => { delta_from => 5.017011 },
+    5.018001 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018003 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018004 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.019    => {
+        delta_from => 5.018,
+        changed => { 'Module::Build' => 1 },
+        removed => { map { $_ => 1 } qw/
+            Archive::Extract
+            B::Lint
+            B::Lint::Debug
+            CPANPLUS
+            CPANPLUS::Backend
+            CPANPLUS::Backend::RV
+            CPANPLUS::Config
+            CPANPLUS::Config::HomeEnv
+            CPANPLUS::Configure
+            CPANPLUS::Configure::Setup
+            CPANPLUS::Dist
+            CPANPLUS::Dist::Autobundle
+            CPANPLUS::Dist::Base
+            CPANPLUS::Dist::Build
+            CPANPLUS::Dist::Build::Constants
+            CPANPLUS::Dist::MM
+            CPANPLUS::Dist::Sample
+            CPANPLUS::Error
+            CPANPLUS::Internals
+            CPANPLUS::Internals::Constants
+            CPANPLUS::Internals::Constants::Report
+            CPANPLUS::Internals::Extract
+            CPANPLUS::Internals::Fetch
+            CPANPLUS::Internals::Report
+            CPANPLUS::Internals::Search
+            CPANPLUS::Internals::Source
+            CPANPLUS::Internals::Source::Memory
+            CPANPLUS::Internals::Source::SQLite
+            CPANPLUS::Internals::Source::SQLite::Tie
+            CPANPLUS::Internals::Utils
+            CPANPLUS::Internals::Utils::Autoflush
+            CPANPLUS::Module
+            CPANPLUS::Module::Author
+            CPANPLUS::Module::Author::Fake
+            CPANPLUS::Module::Checksums
+            CPANPLUS::Module::Fake
+            CPANPLUS::Module::Signature
+            CPANPLUS::Selfupdate
+            CPANPLUS::Shell
+            CPANPLUS::Shell::Classic
+            CPANPLUS::Shell::Default
+            CPANPLUS::Shell::Default::Plugins::CustomSource
+            CPANPLUS::Shell::Default::Plugins::Remote
+            CPANPLUS::Shell::Default::Plugins::Source
+            Devel::InnerPackage
+            File::CheckTree
+            Log::Message
+            Log::Message::Config
+            Log::Message::Handlers
+            Log::Message::Item
+            Log::Message::Simple
+            Module::Pluggable
+            Module::Pluggable::Object
+            Object::Accessor
+            Pod::LaTeX
+            Term::UI
+            Term::UI::History
+            Text::Soundex
+        /}
+    },
+    5.019001 => {
+        delta_from => 5.019,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+            'Module::Build::Base'   => '1',
+            'Module::Build::Compat' => '1',
+            'Module::Build::Config' => '1',
+            'Module::Build::ConfigData'=> '1',
+            'Module::Build::Cookbook'=> '1',
+            'Module::Build::Dumper' => '1',
+            'Module::Build::ModuleInfo'=> '1',
+            'Module::Build::Notes'  => '1',
+            'Module::Build::PPMMaker'=> '1',
+            'Module::Build::Platform::Default'=> '1',
+            'Module::Build::Platform::MacOS'=> '1',
+            'Module::Build::Platform::Unix'=> '1',
+            'Module::Build::Platform::VMS'=> '1',
+            'Module::Build::Platform::VOS'=> '1',
+            'Module::Build::Platform::Windows'=> '1',
+            'Module::Build::Platform::aix'=> '1',
+            'Module::Build::Platform::cygwin'=> '1',
+            'Module::Build::Platform::darwin'=> '1',
+            'Module::Build::Platform::os2'=> '1',
+            'Module::Build::PodParser'=> '1',
+            'Module::Build::Version'=> '1',
+            'Module::Build::YAML'   => '1',
+            'inc::latest'           => '1',
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+            'Package::Constants'    => '1',
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+            'CGI'                   => '1',
+            'CGI::Apache'           => '1',
+            'CGI::Carp'             => '1',
+            'CGI::Cookie'           => '1',
+            'CGI::Fast'             => '1',
+            'CGI::Pretty'           => '1',
+            'CGI::Push'             => '1',
+            'CGI::Switch'           => '1',
+            'CGI::Util'             => '1',
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.01901 => {
+        delta_from => 5.019009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.019010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+            'CGI'                   => 1,
+            'CGI::Apache'           => 1,
+            'CGI::Carp'             => 1,
+            'CGI::Cookie'           => 1,
+            'CGI::Fast'             => 1,
+            'CGI::Pretty'           => 1,
+            'CGI::Push'             => 1,
+            'CGI::Switch'           => 1,
+            'CGI::Util'             => 1,
+            'Module::Build'         => 1,
+            'Module::Build::Base'   => 1,
+            'Module::Build::Compat' => 1,
+            'Module::Build::Config' => 1,
+            'Module::Build::ConfigData'=> 1,
+            'Module::Build::Cookbook'=> 1,
+            'Module::Build::Dumper' => 1,
+            'Module::Build::ModuleInfo'=> 1,
+            'Module::Build::Notes'  => 1,
+            'Module::Build::PPMMaker'=> 1,
+            'Module::Build::Platform::Default'=> 1,
+            'Module::Build::Platform::MacOS'=> 1,
+            'Module::Build::Platform::Unix'=> 1,
+            'Module::Build::Platform::VMS'=> 1,
+            'Module::Build::Platform::VOS'=> 1,
+            'Module::Build::Platform::Windows'=> 1,
+            'Module::Build::Platform::aix'=> 1,
+            'Module::Build::Platform::cygwin'=> 1,
+            'Module::Build::Platform::darwin'=> 1,
+            'Module::Build::Platform::os2'=> 1,
+            'Module::Build::PodParser'=> 1,
+            'Module::Build::Version'=> 1,
+            'Module::Build::YAML'   => 1,
+            'Package::Constants'    => 1,
+            'inc::latest'           => 1,
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021011 => {
+        delta_from => 5.02101,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022003 => {
+        delta_from => 5.022002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025009 => {
+        delta_from => 5.025008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025010 => {
+        delta_from => 5.025009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025011 => {
+        delta_from => 5.025010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025012 => {
+        delta_from => 5.025011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026000 => {
+        delta_from => 5.025012,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027000 => {
+        delta_from => 5.026,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027001 => {
+        delta_from => 5.027,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022004 => {
+        delta_from => 5.022003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024002 => {
+        delta_from => 5.024001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027002 => {
+        delta_from => 5.027001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027003 => {
+        delta_from => 5.027002,
+        changed => {
+            'B::Debug'              => '1',
+        },
+        removed => {
+        }
+    },
+    5.027004 => {
+        delta_from => 5.027003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024003 => {
+        delta_from => 5.024002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026001 => {
+        delta_from => 5.026000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027005 => {
+        delta_from => 5.027004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027006 => {
+        delta_from => 5.027005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027007 => {
+        delta_from => 5.027006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027008 => {
+        delta_from => 5.027007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027009 => {
+        delta_from => 5.027008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027010 => {
+        delta_from => 5.027009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024004 => {
+        delta_from => 5.024003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026002 => {
+        delta_from => 5.026001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027011 => {
+        delta_from => 5.02701,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.028000 => {
+        delta_from => 5.027011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029000 => {
+        delta_from => 5.028,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029001 => {
+        delta_from => 5.029,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029002 => {
+        delta_from => 5.029001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029003 => {
+        delta_from => 5.029002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029004 => {
+        delta_from => 5.029003,
+        changed => {
+        },
+        removed => {
+            arybase => '1',
+        }
+    },
+    5.028001 => {
+        delta_from => 5.028000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+);
+
+%deprecated = _undelta(\%deprecated);
+
+%upstream = (
+    'App::Cpan'             => 'cpan',
+    'App::Prove'            => 'cpan',
+    'App::Prove::State'     => 'cpan',
+    'App::Prove::State::Result'=> 'cpan',
+    'App::Prove::State::Result::Test'=> 'cpan',
+    'Archive::Tar'          => 'cpan',
+    'Archive::Tar::Constant'=> 'cpan',
+    'Archive::Tar::File'    => 'cpan',
+    'AutoLoader'            => 'cpan',
+    'AutoSplit'             => 'cpan',
+    'B::Debug'              => 'cpan',
+    'CPAN'                  => 'cpan',
+    'CPAN::Author'          => 'cpan',
+    'CPAN::Bundle'          => 'cpan',
+    'CPAN::CacheMgr'        => 'cpan',
+    'CPAN::Complete'        => 'cpan',
+    'CPAN::Debug'           => 'cpan',
+    'CPAN::DeferredCode'    => 'cpan',
+    'CPAN::Distribution'    => 'cpan',
+    'CPAN::Distroprefs'     => 'cpan',
+    'CPAN::Distrostatus'    => 'cpan',
+    'CPAN::Exception::RecursiveDependency'=> 'cpan',
+    'CPAN::Exception::blocked_urllist'=> 'cpan',
+    'CPAN::Exception::yaml_not_installed'=> 'cpan',
+    'CPAN::Exception::yaml_process_error'=> 'cpan',
+    'CPAN::FTP'             => 'cpan',
+    'CPAN::FTP::netrc'      => 'cpan',
+    'CPAN::FirstTime'       => 'cpan',
+    'CPAN::HTTP::Client'    => 'cpan',
+    'CPAN::HTTP::Credentials'=> 'cpan',
+    'CPAN::HandleConfig'    => 'cpan',
+    'CPAN::Index'           => 'cpan',
+    'CPAN::InfoObj'         => 'cpan',
+    'CPAN::Kwalify'         => 'cpan',
+    'CPAN::LWP::UserAgent'  => 'cpan',
+    'CPAN::Meta'            => 'cpan',
+    'CPAN::Meta::Converter' => 'cpan',
+    'CPAN::Meta::Feature'   => 'cpan',
+    'CPAN::Meta::History'   => 'cpan',
+    'CPAN::Meta::Merge'     => 'cpan',
+    'CPAN::Meta::Prereqs'   => 'cpan',
+    'CPAN::Meta::Requirements'=> 'cpan',
+    'CPAN::Meta::Spec'      => 'cpan',
+    'CPAN::Meta::Validator' => 'cpan',
+    'CPAN::Meta::YAML'      => 'cpan',
+    'CPAN::Mirrors'         => 'cpan',
+    'CPAN::Module'          => 'cpan',
+    'CPAN::Nox'             => 'cpan',
+    'CPAN::Plugin'          => 'cpan',
+    'CPAN::Plugin::Specfile'=> 'cpan',
+    'CPAN::Prompt'          => 'cpan',
+    'CPAN::Queue'           => 'cpan',
+    'CPAN::Shell'           => 'cpan',
+    'CPAN::Tarzip'          => 'cpan',
+    'CPAN::URL'             => 'cpan',
+    'CPAN::Version'         => 'cpan',
+    'Compress::Raw::Bzip2'  => 'cpan',
+    'Compress::Raw::Zlib'   => 'cpan',
+    'Compress::Zlib'        => 'cpan',
+    'Config::Perl::V'       => 'cpan',
+    'DB_File'               => 'cpan',
+    'Digest'                => 'cpan',
+    'Digest::MD5'           => 'cpan',
+    'Digest::SHA'           => 'cpan',
+    'Digest::base'          => 'cpan',
+    'Digest::file'          => 'cpan',
+    'Encode'                => 'cpan',
+    'Encode::Alias'         => 'cpan',
+    'Encode::Byte'          => 'cpan',
+    'Encode::CJKConstants'  => 'cpan',
+    'Encode::CN'            => 'cpan',
+    'Encode::CN::HZ'        => 'cpan',
+    'Encode::Config'        => 'cpan',
+    'Encode::EBCDIC'        => 'cpan',
+    'Encode::Encoder'       => 'cpan',
+    'Encode::Encoding'      => 'cpan',
+    'Encode::GSM0338'       => 'cpan',
+    'Encode::Guess'         => 'cpan',
+    'Encode::JP'            => 'cpan',
+    'Encode::JP::H2Z'       => 'cpan',
+    'Encode::JP::JIS7'      => 'cpan',
+    'Encode::KR'            => 'cpan',
+    'Encode::KR::2022_KR'   => 'cpan',
+    'Encode::MIME::Header'  => 'cpan',
+    'Encode::MIME::Header::ISO_2022_JP'=> 'cpan',
+    'Encode::MIME::Name'    => 'cpan',
+    'Encode::Symbol'        => 'cpan',
+    'Encode::TW'            => 'cpan',
+    'Encode::Unicode'       => 'cpan',
+    'Encode::Unicode::UTF7' => 'cpan',
+    'ExtUtils::Command'     => 'cpan',
+    'ExtUtils::Command::MM' => 'cpan',
+    'ExtUtils::Constant'    => 'cpan',
+    'ExtUtils::Constant::Base'=> 'cpan',
+    'ExtUtils::Constant::ProxySubs'=> 'cpan',
+    'ExtUtils::Constant::Utils'=> 'cpan',
+    'ExtUtils::Constant::XS'=> 'cpan',
+    'ExtUtils::Install'     => 'cpan',
+    'ExtUtils::Installed'   => 'cpan',
+    'ExtUtils::Liblist'     => 'cpan',
+    'ExtUtils::Liblist::Kid'=> 'cpan',
+    'ExtUtils::MM'          => 'cpan',
+    'ExtUtils::MM_AIX'      => 'cpan',
+    'ExtUtils::MM_Any'      => 'cpan',
+    'ExtUtils::MM_BeOS'     => 'cpan',
+    'ExtUtils::MM_Cygwin'   => 'cpan',
+    'ExtUtils::MM_DOS'      => 'cpan',
+    'ExtUtils::MM_Darwin'   => 'cpan',
+    'ExtUtils::MM_MacOS'    => 'cpan',
+    'ExtUtils::MM_NW5'      => 'cpan',
+    'ExtUtils::MM_OS2'      => 'cpan',
+    'ExtUtils::MM_QNX'      => 'cpan',
+    'ExtUtils::MM_UWIN'     => 'cpan',
+    'ExtUtils::MM_Unix'     => 'cpan',
+    'ExtUtils::MM_VMS'      => 'cpan',
+    'ExtUtils::MM_VOS'      => 'cpan',
+    'ExtUtils::MM_Win32'    => 'cpan',
+    'ExtUtils::MM_Win95'    => 'cpan',
+    'ExtUtils::MY'          => 'cpan',
+    'ExtUtils::MakeMaker'   => 'cpan',
+    'ExtUtils::MakeMaker::Config'=> 'cpan',
+    'ExtUtils::MakeMaker::Locale'=> 'cpan',
+    'ExtUtils::MakeMaker::version'=> 'cpan',
+    'ExtUtils::MakeMaker::version::regex'=> 'cpan',
+    'ExtUtils::Manifest'    => 'cpan',
+    'ExtUtils::Mkbootstrap' => 'cpan',
+    'ExtUtils::Mksymlists'  => 'cpan',
+    'ExtUtils::Packlist'    => 'cpan',
+    'ExtUtils::testlib'     => 'cpan',
+    'Fatal'                 => 'cpan',
+    'File::Fetch'           => 'cpan',
+    'File::GlobMapper'      => 'cpan',
+    'File::Path'            => 'cpan',
+    'File::Temp'            => 'cpan',
+    'Filter::Util::Call'    => 'cpan',
+    'Getopt::Long'          => 'cpan',
+    'HTTP::Tiny'            => 'cpan',
+    'IO::Compress::Adapter::Bzip2'=> 'cpan',
+    'IO::Compress::Adapter::Deflate'=> 'cpan',
+    'IO::Compress::Adapter::Identity'=> 'cpan',
+    'IO::Compress::Base'    => 'cpan',
+    'IO::Compress::Base::Common'=> 'cpan',
+    'IO::Compress::Bzip2'   => 'cpan',
+    'IO::Compress::Deflate' => 'cpan',
+    'IO::Compress::Gzip'    => 'cpan',
+    'IO::Compress::Gzip::Constants'=> 'cpan',
+    'IO::Compress::RawDeflate'=> 'cpan',
+    'IO::Compress::Zip'     => 'cpan',
+    'IO::Compress::Zip::Constants'=> 'cpan',
+    'IO::Compress::Zlib::Constants'=> 'cpan',
+    'IO::Compress::Zlib::Extra'=> 'cpan',
+    'IO::Socket::IP'        => 'cpan',
+    'IO::Uncompress::Adapter::Bunzip2'=> 'cpan',
+    'IO::Uncompress::Adapter::Identity'=> 'cpan',
+    'IO::Uncompress::Adapter::Inflate'=> 'cpan',
+    'IO::Uncompress::AnyInflate'=> 'cpan',
+    'IO::Uncompress::AnyUncompress'=> 'cpan',
+    'IO::Uncompress::Base'  => 'cpan',
+    'IO::Uncompress::Bunzip2'=> 'cpan',
+    'IO::Uncompress::Gunzip'=> 'cpan',
+    'IO::Uncompress::Inflate'=> 'cpan',
+    'IO::Uncompress::RawInflate'=> 'cpan',
+    'IO::Uncompress::Unzip' => 'cpan',
+    'IO::Zlib'              => 'cpan',
+    'IPC::Cmd'              => 'cpan',
+    'IPC::Msg'              => 'cpan',
+    'IPC::Semaphore'        => 'cpan',
+    'IPC::SharedMem'        => 'cpan',
+    'IPC::SysV'             => 'cpan',
+    'JSON::PP'              => 'cpan',
+    'JSON::PP::Boolean'     => 'cpan',
+    'List::Util'            => 'cpan',
+    'List::Util::XS'        => 'cpan',
+    'Locale::Codes'         => 'cpan',
+    'Locale::Codes::Constants'=> 'cpan',
+    'Locale::Codes::Country'=> 'cpan',
+    'Locale::Codes::Country_Codes'=> 'cpan',
+    'Locale::Codes::Country_Retired'=> 'cpan',
+    'Locale::Codes::Currency'=> 'cpan',
+    'Locale::Codes::Currency_Codes'=> 'cpan',
+    'Locale::Codes::Currency_Retired'=> 'cpan',
+    'Locale::Codes::LangExt'=> 'cpan',
+    'Locale::Codes::LangExt_Codes'=> 'cpan',
+    'Locale::Codes::LangExt_Retired'=> 'cpan',
+    'Locale::Codes::LangFam'=> 'cpan',
+    'Locale::Codes::LangFam_Codes'=> 'cpan',
+    'Locale::Codes::LangFam_Retired'=> 'cpan',
+    'Locale::Codes::LangVar'=> 'cpan',
+    'Locale::Codes::LangVar_Codes'=> 'cpan',
+    'Locale::Codes::LangVar_Retired'=> 'cpan',
+    'Locale::Codes::Language'=> 'cpan',
+    'Locale::Codes::Language_Codes'=> 'cpan',
+    'Locale::Codes::Language_Retired'=> 'cpan',
+    'Locale::Codes::Script' => 'cpan',
+    'Locale::Codes::Script_Codes'=> 'cpan',
+    'Locale::Codes::Script_Retired'=> 'cpan',
+    'Locale::Country'       => 'cpan',
+    'Locale::Currency'      => 'cpan',
+    'Locale::Language'      => 'cpan',
+    'Locale::Maketext::Simple'=> 'cpan',
+    'Locale::Script'        => 'cpan',
+    'MIME::Base64'          => 'cpan',
+    'MIME::QuotedPrint'     => 'cpan',
+    'Math::BigFloat'        => 'cpan',
+    'Math::BigFloat::Trace' => 'cpan',
+    'Math::BigInt'          => 'cpan',
+    'Math::BigInt::Calc'    => 'cpan',
+    'Math::BigInt::CalcEmu' => 'cpan',
+    'Math::BigInt::FastCalc'=> 'cpan',
+    'Math::BigInt::Lib'     => 'cpan',
+    'Math::BigInt::Trace'   => 'cpan',
+    'Math::BigRat'          => 'cpan',
+    'Math::Complex'         => 'cpan',
+    'Math::Trig'            => 'cpan',
+    'Memoize'               => 'cpan',
+    'Memoize::AnyDBM_File'  => 'cpan',
+    'Memoize::Expire'       => 'cpan',
+    'Memoize::ExpireFile'   => 'cpan',
+    'Memoize::ExpireTest'   => 'cpan',
+    'Memoize::NDBM_File'    => 'cpan',
+    'Memoize::SDBM_File'    => 'cpan',
+    'Memoize::Storable'     => 'cpan',
+    'Module::Load'          => 'cpan',
+    'Module::Load::Conditional'=> 'cpan',
+    'Module::Loaded'        => 'cpan',
+    'Module::Metadata'      => 'cpan',
+    'NEXT'                  => 'cpan',
+    'Net::Cmd'              => 'cpan',
+    'Net::Config'           => 'cpan',
+    'Net::Domain'           => 'cpan',
+    'Net::FTP'              => 'cpan',
+    'Net::FTP::A'           => 'cpan',
+    'Net::FTP::E'           => 'cpan',
+    'Net::FTP::I'           => 'cpan',
+    'Net::FTP::L'           => 'cpan',
+    'Net::FTP::dataconn'    => 'cpan',
+    'Net::NNTP'             => 'cpan',
+    'Net::Netrc'            => 'cpan',
+    'Net::POP3'             => 'cpan',
+    'Net::SMTP'             => 'cpan',
+    'Net::Time'             => 'cpan',
+    'Params::Check'         => 'cpan',
+    'Parse::CPAN::Meta'     => 'cpan',
+    'Perl::OSType'          => 'cpan',
+    'PerlIO::via::QuotedPrint'=> 'cpan',
+    'Pod::Checker'          => 'cpan',
+    'Pod::Escapes'          => 'cpan',
+    'Pod::Find'             => 'cpan',
+    'Pod::InputObjects'     => 'cpan',
+    'Pod::Man'              => 'cpan',
+    'Pod::ParseLink'        => 'cpan',
+    'Pod::ParseUtils'       => 'cpan',
+    'Pod::Parser'           => 'cpan',
+    'Pod::Perldoc'          => 'cpan',
+    'Pod::Perldoc::BaseTo'  => 'cpan',
+    'Pod::Perldoc::GetOptsOO'=> 'cpan',
+    'Pod::Perldoc::ToANSI'  => 'cpan',
+    'Pod::Perldoc::ToChecker'=> 'cpan',
+    'Pod::Perldoc::ToMan'   => 'cpan',
+    'Pod::Perldoc::ToNroff' => 'cpan',
+    'Pod::Perldoc::ToPod'   => 'cpan',
+    'Pod::Perldoc::ToRtf'   => 'cpan',
+    'Pod::Perldoc::ToTerm'  => 'cpan',
+    'Pod::Perldoc::ToText'  => 'cpan',
+    'Pod::Perldoc::ToTk'    => 'cpan',
+    'Pod::Perldoc::ToXml'   => 'cpan',
+    'Pod::PlainText'        => 'cpan',
+    'Pod::Select'           => 'cpan',
+    'Pod::Simple'           => 'cpan',
+    'Pod::Simple::BlackBox' => 'cpan',
+    'Pod::Simple::Checker'  => 'cpan',
+    'Pod::Simple::Debug'    => 'cpan',
+    'Pod::Simple::DumpAsText'=> 'cpan',
+    'Pod::Simple::DumpAsXML'=> 'cpan',
+    'Pod::Simple::HTML'     => 'cpan',
+    'Pod::Simple::HTMLBatch'=> 'cpan',
+    'Pod::Simple::HTMLLegacy'=> 'cpan',
+    'Pod::Simple::LinkSection'=> 'cpan',
+    'Pod::Simple::Methody'  => 'cpan',
+    'Pod::Simple::Progress' => 'cpan',
+    'Pod::Simple::PullParser'=> 'cpan',
+    'Pod::Simple::PullParserEndToken'=> 'cpan',
+    'Pod::Simple::PullParserStartToken'=> 'cpan',
+    'Pod::Simple::PullParserTextToken'=> 'cpan',
+    'Pod::Simple::PullParserToken'=> 'cpan',
+    'Pod::Simple::RTF'      => 'cpan',
+    'Pod::Simple::Search'   => 'cpan',
+    'Pod::Simple::SimpleTree'=> 'cpan',
+    'Pod::Simple::Text'     => 'cpan',
+    'Pod::Simple::TextContent'=> 'cpan',
+    'Pod::Simple::TiedOutFH'=> 'cpan',
+    'Pod::Simple::Transcode'=> 'cpan',
+    'Pod::Simple::TranscodeDumb'=> 'cpan',
+    'Pod::Simple::TranscodeSmart'=> 'cpan',
+    'Pod::Simple::XHTML'    => 'cpan',
+    'Pod::Simple::XMLOutStream'=> 'cpan',
+    'Pod::Text'             => 'cpan',
+    'Pod::Text::Color'      => 'cpan',
+    'Pod::Text::Overstrike' => 'cpan',
+    'Pod::Text::Termcap'    => 'cpan',
+    'Pod::Usage'            => 'cpan',
+    'Scalar::Util'          => 'cpan',
+    'Socket'                => 'cpan',
+    'Sub::Util'             => 'cpan',
+    'Sys::Syslog'           => 'cpan',
+    'Sys::Syslog::Win32'    => 'cpan',
+    'TAP::Base'             => 'cpan',
+    'TAP::Formatter::Base'  => 'cpan',
+    'TAP::Formatter::Color' => 'cpan',
+    'TAP::Formatter::Console'=> 'cpan',
+    'TAP::Formatter::Console::ParallelSession'=> 'cpan',
+    'TAP::Formatter::Console::Session'=> 'cpan',
+    'TAP::Formatter::File'  => 'cpan',
+    'TAP::Formatter::File::Session'=> 'cpan',
+    'TAP::Formatter::Session'=> 'cpan',
+    'TAP::Harness'          => 'cpan',
+    'TAP::Harness::Env'     => 'cpan',
+    'TAP::Object'           => 'cpan',
+    'TAP::Parser'           => 'cpan',
+    'TAP::Parser::Aggregator'=> 'cpan',
+    'TAP::Parser::Grammar'  => 'cpan',
+    'TAP::Parser::Iterator' => 'cpan',
+    'TAP::Parser::Iterator::Array'=> 'cpan',
+    'TAP::Parser::Iterator::Process'=> 'cpan',
+    'TAP::Parser::Iterator::Stream'=> 'cpan',
+    'TAP::Parser::IteratorFactory'=> 'cpan',
+    'TAP::Parser::Multiplexer'=> 'cpan',
+    'TAP::Parser::Result'   => 'cpan',
+    'TAP::Parser::Result::Bailout'=> 'cpan',
+    'TAP::Parser::Result::Comment'=> 'cpan',
+    'TAP::Parser::Result::Plan'=> 'cpan',
+    'TAP::Parser::Result::Pragma'=> 'cpan',
+    'TAP::Parser::Result::Test'=> 'cpan',
+    'TAP::Parser::Result::Unknown'=> 'cpan',
+    'TAP::Parser::Result::Version'=> 'cpan',
+    'TAP::Parser::Result::YAML'=> 'cpan',
+    'TAP::Parser::ResultFactory'=> 'cpan',
+    'TAP::Parser::Scheduler'=> 'cpan',
+    'TAP::Parser::Scheduler::Job'=> 'cpan',
+    'TAP::Parser::Scheduler::Spinner'=> 'cpan',
+    'TAP::Parser::Source'   => 'cpan',
+    'TAP::Parser::SourceHandler'=> 'cpan',
+    'TAP::Parser::SourceHandler::Executable'=> 'cpan',
+    'TAP::Parser::SourceHandler::File'=> 'cpan',
+    'TAP::Parser::SourceHandler::Handle'=> 'cpan',
+    'TAP::Parser::SourceHandler::Perl'=> 'cpan',
+    'TAP::Parser::SourceHandler::RawTAP'=> 'cpan',
+    'TAP::Parser::YAMLish::Reader'=> 'cpan',
+    'TAP::Parser::YAMLish::Writer'=> 'cpan',
+    'Term::ANSIColor'       => 'cpan',
+    'Term::Cap'             => 'cpan',
+    'Test2'                 => 'cpan',
+    'Test2::API'            => 'cpan',
+    'Test2::API::Breakage'  => 'cpan',
+    'Test2::API::Context'   => 'cpan',
+    'Test2::API::Instance'  => 'cpan',
+    'Test2::API::Stack'     => 'cpan',
+    'Test2::Event'          => 'cpan',
+    'Test2::Event::Bail'    => 'cpan',
+    'Test2::Event::Diag'    => 'cpan',
+    'Test2::Event::Encoding'=> 'cpan',
+    'Test2::Event::Exception'=> 'cpan',
+    'Test2::Event::Fail'    => 'cpan',
+    'Test2::Event::Generic' => 'cpan',
+    'Test2::Event::Note'    => 'cpan',
+    'Test2::Event::Ok'      => 'cpan',
+    'Test2::Event::Pass'    => 'cpan',
+    'Test2::Event::Plan'    => 'cpan',
+    'Test2::Event::Skip'    => 'cpan',
+    'Test2::Event::Subtest' => 'cpan',
+    'Test2::Event::TAP::Version'=> 'cpan',
+    'Test2::Event::V2'      => 'cpan',
+    'Test2::Event::Waiting' => 'cpan',
+    'Test2::EventFacet'     => 'cpan',
+    'Test2::EventFacet::About'=> 'cpan',
+    'Test2::EventFacet::Amnesty'=> 'cpan',
+    'Test2::EventFacet::Assert'=> 'cpan',
+    'Test2::EventFacet::Control'=> 'cpan',
+    'Test2::EventFacet::Error'=> 'cpan',
+    'Test2::EventFacet::Hub'=> 'cpan',
+    'Test2::EventFacet::Info'=> 'cpan',
+    'Test2::EventFacet::Meta'=> 'cpan',
+    'Test2::EventFacet::Parent'=> 'cpan',
+    'Test2::EventFacet::Plan'=> 'cpan',
+    'Test2::EventFacet::Render'=> 'cpan',
+    'Test2::EventFacet::Trace'=> 'cpan',
+    'Test2::Formatter'      => 'cpan',
+    'Test2::Formatter::TAP' => 'cpan',
+    'Test2::Hub'            => 'cpan',
+    'Test2::Hub::Interceptor'=> 'cpan',
+    'Test2::Hub::Interceptor::Terminator'=> 'cpan',
+    'Test2::Hub::Subtest'   => 'cpan',
+    'Test2::IPC'            => 'cpan',
+    'Test2::IPC::Driver'    => 'cpan',
+    'Test2::IPC::Driver::Files'=> 'cpan',
+    'Test2::Tools::Tiny'    => 'cpan',
+    'Test2::Util'           => 'cpan',
+    'Test2::Util::ExternalMeta'=> 'cpan',
+    'Test2::Util::Facets2Legacy'=> 'cpan',
+    'Test2::Util::HashBase' => 'cpan',
+    'Test2::Util::Trace'    => 'cpan',
+    'Test::Builder'         => 'cpan',
+    'Test::Builder::Formatter'=> 'cpan',
+    'Test::Builder::IO::Scalar'=> 'cpan',
+    'Test::Builder::Module' => 'cpan',
+    'Test::Builder::Tester' => 'cpan',
+    'Test::Builder::Tester::Color'=> 'cpan',
+    'Test::Builder::TodoDiag'=> 'cpan',
+    'Test::Harness'         => 'cpan',
+    'Test::More'            => 'cpan',
+    'Test::Simple'          => 'cpan',
+    'Test::Tester'          => 'cpan',
+    'Test::Tester::Capture' => 'cpan',
+    'Test::Tester::CaptureRunner'=> 'cpan',
+    'Test::Tester::Delegate'=> 'cpan',
+    'Test::use::ok'         => 'cpan',
+    'Text::Balanced'        => 'cpan',
+    'Text::ParseWords'      => 'cpan',
+    'Text::Tabs'            => 'cpan',
+    'Text::Wrap'            => 'cpan',
+    'Tie::RefHash'          => 'cpan',
+    'Time::Local'           => 'cpan',
+    'Time::Piece'           => 'cpan',
+    'Time::Seconds'         => 'cpan',
+    'Unicode::Collate'      => 'cpan',
+    'Unicode::Collate::CJK::Big5'=> 'cpan',
+    'Unicode::Collate::CJK::GB2312'=> 'cpan',
+    'Unicode::Collate::CJK::JISX0208'=> 'cpan',
+    'Unicode::Collate::CJK::Korean'=> 'cpan',
+    'Unicode::Collate::CJK::Pinyin'=> 'cpan',
+    'Unicode::Collate::CJK::Stroke'=> 'cpan',
+    'Unicode::Collate::CJK::Zhuyin'=> 'cpan',
+    'Unicode::Collate::Locale'=> 'cpan',
+    'Win32'                 => 'cpan',
+    'Win32API::File'        => 'cpan',
+    'Win32API::File::inc::ExtUtils::Myconst2perl'=> 'cpan',
+    'autodie'               => 'cpan',
+    'autodie::Scope::Guard' => 'cpan',
+    'autodie::Scope::GuardStack'=> 'cpan',
+    'autodie::Util'         => 'cpan',
+    'autodie::exception'    => 'cpan',
+    'autodie::exception::system'=> 'cpan',
+    'autodie::hints'        => 'cpan',
+    'autodie::skip'         => 'cpan',
+    'bigint'                => 'cpan',
+    'bignum'                => 'cpan',
+    'bigrat'                => 'cpan',
+    'encoding'              => 'cpan',
+    'experimental'          => 'cpan',
+    'ok'                    => 'cpan',
+    'parent'                => 'cpan',
+    'perlfaq'               => 'cpan',
+    'version'               => 'cpan',
+    'version::regex'        => 'cpan',
+);
+
+%bug_tracker = (
+    'App::Cpan'             => undef,
+    'App::Prove'            => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State'     => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State::Result'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Archive::Tar'          => undef,
+    'Archive::Tar::Constant'=> undef,
+    'Archive::Tar::File'    => undef,
+    'B::Debug'              => undef,
+    'CPAN'                  => undef,
+    'CPAN::Author'          => undef,
+    'CPAN::Bundle'          => undef,
+    'CPAN::CacheMgr'        => undef,
+    'CPAN::Complete'        => undef,
+    'CPAN::Debug'           => undef,
+    'CPAN::DeferredCode'    => undef,
+    'CPAN::Distribution'    => undef,
+    'CPAN::Distroprefs'     => undef,
+    'CPAN::Distrostatus'    => undef,
+    'CPAN::Exception::RecursiveDependency'=> undef,
+    'CPAN::Exception::blocked_urllist'=> undef,
+    'CPAN::Exception::yaml_not_installed'=> undef,
+    'CPAN::Exception::yaml_process_error'=> undef,
+    'CPAN::FTP'             => undef,
+    'CPAN::FTP::netrc'      => undef,
+    'CPAN::FirstTime'       => undef,
+    'CPAN::HTTP::Client'    => undef,
+    'CPAN::HTTP::Credentials'=> undef,
+    'CPAN::HandleConfig'    => undef,
+    'CPAN::Index'           => undef,
+    'CPAN::InfoObj'         => undef,
+    'CPAN::Kwalify'         => undef,
+    'CPAN::LWP::UserAgent'  => undef,
+    'CPAN::Meta'            => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Converter' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Feature'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::History'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Merge'     => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Prereqs'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Requirements'=> 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues',
+    'CPAN::Meta::Spec'      => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Validator' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::YAML'      => 'https://github.com/Perl-Toolchain-Gang/YAML-Tiny/issues',
+    'CPAN::Mirrors'         => undef,
+    'CPAN::Module'          => undef,
+    'CPAN::Nox'             => undef,
+    'CPAN::Plugin'          => undef,
+    'CPAN::Plugin::Specfile'=> undef,
+    'CPAN::Prompt'          => undef,
+    'CPAN::Queue'           => undef,
+    'CPAN::Shell'           => undef,
+    'CPAN::Tarzip'          => undef,
+    'CPAN::URL'             => undef,
+    'CPAN::Version'         => undef,
+    'Compress::Raw::Bzip2'  => undef,
+    'Compress::Raw::Zlib'   => undef,
+    'Compress::Zlib'        => undef,
+    'Config::Perl::V'       => undef,
+    'DB_File'               => undef,
+    'Digest'                => undef,
+    'Digest::MD5'           => undef,
+    'Digest::SHA'           => undef,
+    'Digest::base'          => undef,
+    'Digest::file'          => undef,
+    'Encode'                => undef,
+    'Encode::Alias'         => undef,
+    'Encode::Byte'          => undef,
+    'Encode::CJKConstants'  => undef,
+    'Encode::CN'            => undef,
+    'Encode::CN::HZ'        => undef,
+    'Encode::Config'        => undef,
+    'Encode::EBCDIC'        => undef,
+    'Encode::Encoder'       => undef,
+    'Encode::Encoding'      => undef,
+    'Encode::GSM0338'       => undef,
+    'Encode::Guess'         => undef,
+    'Encode::JP'            => undef,
+    'Encode::JP::H2Z'       => undef,
+    'Encode::JP::JIS7'      => undef,
+    'Encode::KR'            => undef,
+    'Encode::KR::2022_KR'   => undef,
+    'Encode::MIME::Header'  => undef,
+    'Encode::MIME::Header::ISO_2022_JP'=> undef,
+    'Encode::MIME::Name'    => undef,
+    'Encode::Symbol'        => undef,
+    'Encode::TW'            => undef,
+    'Encode::Unicode'       => undef,
+    'Encode::Unicode::UTF7' => undef,
+    'ExtUtils::Command'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Command::MM' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Constant'    => undef,
+    'ExtUtils::Constant::Base'=> undef,
+    'ExtUtils::Constant::ProxySubs'=> undef,
+    'ExtUtils::Constant::Utils'=> undef,
+    'ExtUtils::Constant::XS'=> undef,
+    'ExtUtils::Install'     => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::Installed'   => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::Liblist'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Liblist::Kid'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM'          => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_AIX'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Any'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_BeOS'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Cygwin'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_DOS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Darwin'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_MacOS'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_NW5'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_OS2'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_QNX'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_UWIN'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Unix'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_VMS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_VOS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Win32'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Win95'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MY'          => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::Config'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::Locale'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::version'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::version::regex'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Manifest'    => 'http://github.com/Perl-Toolchain-Gang/ExtUtils-Manifest/issues',
+    'ExtUtils::Mkbootstrap' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Mksymlists'  => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Packlist'    => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::testlib'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'Fatal'                 => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'File::Fetch'           => undef,
+    'File::GlobMapper'      => undef,
+    'File::Path'            => undef,
+    'File::Temp'            => 'https://rt.cpan.org/Public/Dist/Display.html?Name=File-Temp',
+    'Filter::Util::Call'    => undef,
+    'Getopt::Long'          => undef,
+    'HTTP::Tiny'            => 'https://github.com/chansen/p5-http-tiny/issues',
+    'IO::Compress::Adapter::Bzip2'=> undef,
+    'IO::Compress::Adapter::Deflate'=> undef,
+    'IO::Compress::Adapter::Identity'=> undef,
+    'IO::Compress::Base'    => undef,
+    'IO::Compress::Base::Common'=> undef,
+    'IO::Compress::Bzip2'   => undef,
+    'IO::Compress::Deflate' => undef,
+    'IO::Compress::Gzip'    => undef,
+    'IO::Compress::Gzip::Constants'=> undef,
+    'IO::Compress::RawDeflate'=> undef,
+    'IO::Compress::Zip'     => undef,
+    'IO::Compress::Zip::Constants'=> undef,
+    'IO::Compress::Zlib::Constants'=> undef,
+    'IO::Compress::Zlib::Extra'=> undef,
+    'IO::Socket::IP'        => undef,
+    'IO::Uncompress::Adapter::Bunzip2'=> undef,
+    'IO::Uncompress::Adapter::Identity'=> undef,
+    'IO::Uncompress::Adapter::Inflate'=> undef,
+    'IO::Uncompress::AnyInflate'=> undef,
+    'IO::Uncompress::AnyUncompress'=> undef,
+    'IO::Uncompress::Base'  => undef,
+    'IO::Uncompress::Bunzip2'=> undef,
+    'IO::Uncompress::Gunzip'=> undef,
+    'IO::Uncompress::Inflate'=> undef,
+    'IO::Uncompress::RawInflate'=> undef,
+    'IO::Uncompress::Unzip' => undef,
+    'IO::Zlib'              => undef,
+    'IPC::Cmd'              => undef,
+    'IPC::Msg'              => undef,
+    'IPC::Semaphore'        => undef,
+    'IPC::SharedMem'        => undef,
+    'IPC::SysV'             => undef,
+    'JSON::PP'              => undef,
+    'JSON::PP::Boolean'     => undef,
+    'List::Util'            => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'List::Util::XS'        => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Locale::Codes'         => undef,
+    'Locale::Codes::Constants'=> undef,
+    'Locale::Codes::Country'=> undef,
+    'Locale::Codes::Country_Codes'=> undef,
+    'Locale::Codes::Country_Retired'=> undef,
+    'Locale::Codes::Currency'=> undef,
+    'Locale::Codes::Currency_Codes'=> undef,
+    'Locale::Codes::Currency_Retired'=> undef,
+    'Locale::Codes::LangExt'=> undef,
+    'Locale::Codes::LangExt_Codes'=> undef,
+    'Locale::Codes::LangExt_Retired'=> undef,
+    'Locale::Codes::LangFam'=> undef,
+    'Locale::Codes::LangFam_Codes'=> undef,
+    'Locale::Codes::LangFam_Retired'=> undef,
+    'Locale::Codes::LangVar'=> undef,
+    'Locale::Codes::LangVar_Codes'=> undef,
+    'Locale::Codes::LangVar_Retired'=> undef,
+    'Locale::Codes::Language'=> undef,
+    'Locale::Codes::Language_Codes'=> undef,
+    'Locale::Codes::Language_Retired'=> undef,
+    'Locale::Codes::Script' => undef,
+    'Locale::Codes::Script_Codes'=> undef,
+    'Locale::Codes::Script_Retired'=> undef,
+    'Locale::Country'       => undef,
+    'Locale::Currency'      => undef,
+    'Locale::Language'      => undef,
+    'Locale::Maketext::Simple'=> undef,
+    'Locale::Script'        => undef,
+    'MIME::Base64'          => undef,
+    'MIME::QuotedPrint'     => undef,
+    'Math::BigFloat'        => undef,
+    'Math::BigFloat::Trace' => undef,
+    'Math::BigInt'          => undef,
+    'Math::BigInt::Calc'    => undef,
+    'Math::BigInt::CalcEmu' => undef,
+    'Math::BigInt::FastCalc'=> undef,
+    'Math::BigInt::Lib'     => undef,
+    'Math::BigInt::Trace'   => undef,
+    'Math::BigRat'          => undef,
+    'Math::Complex'         => undef,
+    'Math::Trig'            => undef,
+    'Memoize'               => undef,
+    'Memoize::AnyDBM_File'  => undef,
+    'Memoize::Expire'       => undef,
+    'Memoize::ExpireFile'   => undef,
+    'Memoize::ExpireTest'   => undef,
+    'Memoize::NDBM_File'    => undef,
+    'Memoize::SDBM_File'    => undef,
+    'Memoize::Storable'     => undef,
+    'Module::Load'          => undef,
+    'Module::Load::Conditional'=> undef,
+    'Module::Loaded'        => undef,
+    'Module::Metadata'      => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Metadata',
+    'NEXT'                  => undef,
+    'Net::Cmd'              => undef,
+    'Net::Config'           => undef,
+    'Net::Domain'           => undef,
+    'Net::FTP'              => undef,
+    'Net::FTP::A'           => undef,
+    'Net::FTP::E'           => undef,
+    'Net::FTP::I'           => undef,
+    'Net::FTP::L'           => undef,
+    'Net::FTP::dataconn'    => undef,
+    'Net::NNTP'             => undef,
+    'Net::Netrc'            => undef,
+    'Net::POP3'             => undef,
+    'Net::SMTP'             => undef,
+    'Net::Time'             => undef,
+    'Params::Check'         => undef,
+    'Parse::CPAN::Meta'     => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'Perl::OSType'          => 'https://github.com/Perl-Toolchain-Gang/Perl-OSType/issues',
+    'PerlIO::via::QuotedPrint'=> undef,
+    'Pod::Checker'          => undef,
+    'Pod::Escapes'          => undef,
+    'Pod::Find'             => undef,
+    'Pod::InputObjects'     => undef,
+    'Pod::Man'              => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::ParseLink'        => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::ParseUtils'       => undef,
+    'Pod::Parser'           => undef,
+    'Pod::Perldoc'          => undef,
+    'Pod::Perldoc::BaseTo'  => undef,
+    'Pod::Perldoc::GetOptsOO'=> undef,
+    'Pod::Perldoc::ToANSI'  => undef,
+    'Pod::Perldoc::ToChecker'=> undef,
+    'Pod::Perldoc::ToMan'   => undef,
+    'Pod::Perldoc::ToNroff' => undef,
+    'Pod::Perldoc::ToPod'   => undef,
+    'Pod::Perldoc::ToRtf'   => undef,
+    'Pod::Perldoc::ToTerm'  => undef,
+    'Pod::Perldoc::ToText'  => undef,
+    'Pod::Perldoc::ToTk'    => undef,
+    'Pod::Perldoc::ToXml'   => undef,
+    'Pod::PlainText'        => undef,
+    'Pod::Select'           => undef,
+    'Pod::Simple'           => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::BlackBox' => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Checker'  => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Debug'    => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::DumpAsText'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::DumpAsXML'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTML'     => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTMLBatch'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTMLLegacy'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::LinkSection'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Methody'  => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Progress' => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParser'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserEndToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserStartToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserTextToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::RTF'      => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Search'   => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::SimpleTree'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Text'     => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TextContent'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TiedOutFH'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Transcode'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TranscodeDumb'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TranscodeSmart'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::XHTML'    => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::XMLOutStream'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Text'             => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Color'      => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Overstrike' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Termcap'    => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Usage'            => undef,
+    'Scalar::Util'          => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Socket'                => undef,
+    'Sub::Util'             => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Sys::Syslog'           => undef,
+    'Sys::Syslog::Win32'    => undef,
+    'TAP::Base'             => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Base'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Color' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console::ParallelSession'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::File'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::File::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Harness'          => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Harness::Env'     => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Object'           => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser'           => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Aggregator'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Grammar'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Array'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Process'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Stream'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::IteratorFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Multiplexer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result'   => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Bailout'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Comment'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Plan'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Pragma'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Unknown'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Version'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::YAML'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::ResultFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler::Job'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler::Spinner'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Source'   => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Executable'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::File'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Handle'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Perl'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::RawTAP'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::YAMLish::Reader'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::YAMLish::Writer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Term::ANSIColor'       => 'https://rt.cpan.org/Dist/Display.html?Name=Term-ANSIColor',
+    'Term::Cap'             => undef,
+    'Test2'                 => 'http://github.com/Test-More/test-more/issues',
+    'Test2::API'            => 'http://github.com/Test-More/test-more/issues',
+    'Test2::API::Breakage'  => 'http://github.com/Test-More/test-more/issues',
+    'Test2::API::Context'   => 'http://github.com/Test-More/test-more/issues',
+    'Test2::API::Instance'  => 'http://github.com/Test-More/test-more/issues',
+    'Test2::API::Stack'     => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event'          => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Bail'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Diag'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Encoding'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Exception'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Fail'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Generic' => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Note'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Ok'      => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Pass'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Plan'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Skip'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Subtest' => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::TAP::Version'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::V2'      => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Event::Waiting' => 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet'     => 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::About'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Amnesty'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Assert'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Control'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Error'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Hub'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Info'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Meta'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Parent'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Plan'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Render'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::EventFacet::Trace'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Formatter'      => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Formatter::TAP' => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Hub'            => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Hub::Interceptor'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Hub::Interceptor::Terminator'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Hub::Subtest'   => 'http://github.com/Test-More/test-more/issues',
+    'Test2::IPC'            => 'http://github.com/Test-More/test-more/issues',
+    'Test2::IPC::Driver'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::IPC::Driver::Files'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Tools::Tiny'    => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Util'           => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Util::ExternalMeta'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Util::Facets2Legacy'=> 'http://github.com/Test-More/test-more/issues',
+    'Test2::Util::HashBase' => 'http://github.com/Test-More/test-more/issues',
+    'Test2::Util::Trace'    => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder'         => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Formatter'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::IO::Scalar'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Module' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Tester' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Tester::Color'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::TodoDiag'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Harness'         => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Test::More'            => 'http://github.com/Test-More/test-more/issues',
+    'Test::Simple'          => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester'          => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::Capture' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::CaptureRunner'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::Delegate'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::use::ok'         => 'http://github.com/Test-More/test-more/issues',
+    'Text::Balanced'        => undef,
+    'Text::ParseWords'      => undef,
+    'Text::Tabs'            => undef,
+    'Text::Wrap'            => undef,
+    'Tie::RefHash'          => undef,
+    'Time::Local'           => 'https://github.com/houseabsolute/Time-Local/issues',
+    'Time::Piece'           => undef,
+    'Time::Seconds'         => undef,
+    'Unicode::Collate'      => undef,
+    'Unicode::Collate::CJK::Big5'=> undef,
+    'Unicode::Collate::CJK::GB2312'=> undef,
+    'Unicode::Collate::CJK::JISX0208'=> undef,
+    'Unicode::Collate::CJK::Korean'=> undef,
+    'Unicode::Collate::CJK::Pinyin'=> undef,
+    'Unicode::Collate::CJK::Stroke'=> undef,
+    'Unicode::Collate::CJK::Zhuyin'=> undef,
+    'Unicode::Collate::Locale'=> undef,
+    'Win32'                 => undef,
+    'Win32API::File'        => undef,
+    'Win32API::File::inc::ExtUtils::Myconst2perl'=> undef,
+    'autodie'               => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Scope::Guard' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Scope::GuardStack'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Util'         => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::exception'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::exception::system'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::hints'        => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::skip'         => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'bigint'                => undef,
+    'bignum'                => undef,
+    'bigrat'                => undef,
+    'encoding'              => undef,
+    'experimental'          => 'http://rt.cpan.org/Public/Dist/Display.html?Name=experimental',
+    'ok'                    => 'http://github.com/Test-More/test-more/issues',
+    'parent'                => undef,
+    'perlfaq'               => 'https://github.com/perl-doc-cats/perlfaq/issues',
+    'version'               => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version',
+    'version::regex'        => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version',
+);
+
+# Create aliases with trailing zeros for $] use
+
+$released{'5.000'} = $released{5};
+$version{'5.000'} = $version{5};
+
+_create_aliases(\%delta);
+_create_aliases(\%released);
+_create_aliases(\%version);
+_create_aliases(\%deprecated);
+
+sub _create_aliases {
+    my ($hash) = @_;
+
+    for my $version (keys %$hash) {
+        next unless $version >= 5.006;
+
+        my $padded = sprintf "%0.6f", $version;
+
+        # If the version in string form isn't the same as the numeric version,
+        # alias it.
+        if ($padded ne $version && $version == $padded) {
+            $hash->{$padded} = $hash->{$version};
+        }
+    }
+}
+
+1;
+__END__
+# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
+# vim:ts=8:sw=2:et:sta:sts=2:tw=78
+package Module::Metadata; # git description: v1.000032-7-gb4e8a3f
+# ABSTRACT: Gather package and POD information from perl module files
+
+# Adapted from Perl-licensed code originally distributed with
+# Module-Build by Ken Williams
+
+# This module provides routines to gather information about
+# perl modules (assuming this may be expanded in the distant
+# parrot future to look at other types of modules).
+
+sub __clean_eval { eval $_[0] }
+use strict;
+use warnings;
+
+our $VERSION = '1.000033';
+
+use Carp qw/croak/;
+use File::Spec;
+BEGIN {
+       # Try really hard to not depend ony any DynaLoaded module, such as IO::File or Fcntl
+       eval {
+               require Fcntl; Fcntl->import('SEEK_SET'); 1;
+       } or *SEEK_SET = sub { 0 }
+}
+use version 0.87;
+BEGIN {
+  if ($INC{'Log/Contextual.pm'}) {
+    require "Log/Contextual/WarnLogger.pm"; # Hide from AutoPrereqs
+    Log::Contextual->import('log_info',
+      '-default_logger' => Log::Contextual::WarnLogger->new({ env_prefix => 'MODULE_METADATA', }),
+    );
+  }
+  else {
+    *log_info = sub (&) { warn $_[0]->() };
+  }
+}
+use File::Find qw(find);
+
+my $V_NUM_REGEXP = qr{v?[0-9._]+};  # crudely, a v-string or decimal
+
+my $PKG_FIRST_WORD_REGEXP = qr{ # the FIRST word in a package name
+  [a-zA-Z_]                     # the first word CANNOT start with a digit
+    (?:
+      [\w']?                    # can contain letters, digits, _, or ticks
+      \w                        # But, NO multi-ticks or trailing ticks
+    )*
+}x;
+
+my $PKG_ADDL_WORD_REGEXP = qr{ # the 2nd+ word in a package name
+  \w                           # the 2nd+ word CAN start with digits
+    (?:
+      [\w']?                   # and can contain letters or ticks
+      \w                       # But, NO multi-ticks or trailing ticks
+    )*
+}x;
+
+my $PKG_NAME_REGEXP = qr{ # match a package name
+  (?: :: )?               # a pkg name can start with arisdottle
+  $PKG_FIRST_WORD_REGEXP  # a package word
+  (?:
+    (?: :: )+             ### arisdottle (allow one or many times)
+    $PKG_ADDL_WORD_REGEXP ### a package word
+  )*                      # ^ zero, one or many times
+  (?:
+    ::                    # allow trailing arisdottle
+  )?
+}x;
+
+my $PKG_REGEXP  = qr{   # match a package declaration
+  ^[\s\{;]*             # intro chars on a line
+  package               # the word 'package'
+  \s+                   # whitespace
+  ($PKG_NAME_REGEXP)    # a package name
+  \s*                   # optional whitespace
+  ($V_NUM_REGEXP)?        # optional version number
+  \s*                   # optional whitesapce
+  [;\{]                 # semicolon line terminator or block start (since 5.16)
+}x;
+
+my $VARNAME_REGEXP = qr{ # match fully-qualified VERSION name
+  ([\$*])         # sigil - $ or *
+  (
+    (             # optional leading package name
+      (?:::|\')?  # possibly starting like just :: (a la $::VERSION)
+      (?:\w+(?:::|\'))*  # Foo::Bar:: ...
+    )?
+    VERSION
+  )\b
+}x;
+
+my $VERS_REGEXP = qr{ # match a VERSION definition
+  (?:
+    \(\s*$VARNAME_REGEXP\s*\) # with parens
+  |
+    $VARNAME_REGEXP           # without parens
+  )
+  \s*
+  =[^=~>]  # = but not ==, nor =~, nor =>
+}x;
+
+sub new_from_file {
+  my $class    = shift;
+  my $filename = File::Spec->rel2abs( shift );
+
+  return undef unless defined( $filename ) && -f $filename;
+  return $class->_init(undef, $filename, @_);
+}
+
+sub new_from_handle {
+  my $class    = shift;
+  my $handle   = shift;
+  my $filename = shift;
+  return undef unless defined($handle) && defined($filename);
+  $filename = File::Spec->rel2abs( $filename );
+
+  return $class->_init(undef, $filename, @_, handle => $handle);
+
+}
+
+
+sub new_from_module {
+  my $class   = shift;
+  my $module  = shift;
+  my %props   = @_;
+
+  $props{inc} ||= \@INC;
+  my $filename = $class->find_module_by_name( $module, $props{inc} );
+  return undef unless defined( $filename ) && -f $filename;
+  return $class->_init($module, $filename, %props);
+}
+
+{
+
+  my $compare_versions = sub {
+    my ($v1, $op, $v2) = @_;
+    $v1 = version->new($v1)
+      unless UNIVERSAL::isa($v1,'version');
+
+    my $eval_str = "\$v1 $op \$v2";
+    my $result   = eval $eval_str;
+    log_info { "error comparing versions: '$eval_str' $@" } if $@;
+
+    return $result;
+  };
+
+  my $normalize_version = sub {
+    my ($version) = @_;
+    if ( $version =~ /[=<>!,]/ ) { # logic, not just version
+      # take as is without modification
+    }
+    elsif ( ref $version eq 'version' ) { # version objects
+      $version = $version->is_qv ? $version->normal : $version->stringify;
+    }
+    elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots
+      # normalize string tuples without "v": "1.2.3" -> "v1.2.3"
+      $version = "v$version";
+    }
+    else {
+      # leave alone
+    }
+    return $version;
+  };
+
+  # separate out some of the conflict resolution logic
+
+  my $resolve_module_versions = sub {
+    my $packages = shift;
+
+    my( $file, $version );
+    my $err = '';
+      foreach my $p ( @$packages ) {
+        if ( defined( $p->{version} ) ) {
+          if ( defined( $version ) ) {
+            if ( $compare_versions->( $version, '!=', $p->{version} ) ) {
+              $err .= "  $p->{file} ($p->{version})\n";
+            }
+            else {
+              # same version declared multiple times, ignore
+            }
+          }
+          else {
+            $file    = $p->{file};
+            $version = $p->{version};
+          }
+        }
+      $file ||= $p->{file} if defined( $p->{file} );
+    }
+
+    if ( $err ) {
+      $err = "  $file ($version)\n" . $err;
+    }
+
+    my %result = (
+      file    => $file,
+      version => $version,
+      err     => $err
+    );
+
+    return \%result;
+  };
+
+  sub provides {
+    my $class = shift;
+
+    croak "provides() requires key/value pairs \n" if @_ % 2;
+    my %args = @_;
+
+    croak "provides() takes only one of 'dir' or 'files'\n"
+      if $args{dir} && $args{files};
+
+    croak "provides() requires a 'version' argument"
+      unless defined $args{version};
+
+    croak "provides() does not support version '$args{version}' metadata"
+        unless grep { $args{version} eq $_ } qw/1.4 2/;
+
+    $args{prefix} = 'lib' unless defined $args{prefix};
+
+    my $p;
+    if ( $args{dir} ) {
+      $p = $class->package_versions_from_directory($args{dir});
+    }
+    else {
+      croak "provides() requires 'files' to be an array reference\n"
+        unless ref $args{files} eq 'ARRAY';
+      $p = $class->package_versions_from_directory($args{files});
+    }
+
+    # Now, fix up files with prefix
+    if ( length $args{prefix} ) { # check in case disabled with q{}
+      $args{prefix} =~ s{/$}{};
+      for my $v ( values %$p ) {
+        $v->{file} = "$args{prefix}/$v->{file}";
+      }
+    }
+
+    return $p
+  }
+
+  sub package_versions_from_directory {
+    my ( $class, $dir, $files ) = @_;
+
+    my @files;
+
+    if ( $files ) {
+      @files = @$files;
+    }
+    else {
+      find( {
+        wanted => sub {
+          push @files, $_ if -f $_ && /\.pm$/;
+        },
+        no_chdir => 1,
+      }, $dir );
+    }
+
+    # First, we enumerate all packages & versions,
+    # separating into primary & alternative candidates
+    my( %prime, %alt );
+    foreach my $file (@files) {
+      my $mapped_filename = File::Spec::Unix->abs2rel( $file, $dir );
+      my @path = split( /\//, $mapped_filename );
+      (my $prime_package = join( '::', @path )) =~ s/\.pm$//;
+
+      my $pm_info = $class->new_from_file( $file );
+
+      foreach my $package ( $pm_info->packages_inside ) {
+        next if $package eq 'main';  # main can appear numerous times, ignore
+        next if $package eq 'DB';    # special debugging package, ignore
+        next if grep /^_/, split( /::/, $package ); # private package, ignore
+
+        my $version = $pm_info->version( $package );
+
+        $prime_package = $package if lc($prime_package) eq lc($package);
+        if ( $package eq $prime_package ) {
+          if ( exists( $prime{$package} ) ) {
+            croak "Unexpected conflict in '$package'; multiple versions found.\n";
+          }
+          else {
+            $mapped_filename = "$package.pm" if lc("$package.pm") eq lc($mapped_filename);
+            $prime{$package}{file} = $mapped_filename;
+            $prime{$package}{version} = $version if defined( $version );
+          }
+        }
+        else {
+          push( @{$alt{$package}}, {
+                                    file    => $mapped_filename,
+                                    version => $version,
+                                   } );
+        }
+      }
+    }
+
+    # Then we iterate over all the packages found above, identifying conflicts
+    # and selecting the "best" candidate for recording the file & version
+    # for each package.
+    foreach my $package ( keys( %alt ) ) {
+      my $result = $resolve_module_versions->( $alt{$package} );
+
+      if ( exists( $prime{$package} ) ) { # primary package selected
+
+        if ( $result->{err} ) {
+        # Use the selected primary package, but there are conflicting
+        # errors among multiple alternative packages that need to be
+        # reported
+          log_info {
+            "Found conflicting versions for package '$package'\n" .
+            "  $prime{$package}{file} ($prime{$package}{version})\n" .
+            $result->{err}
+          };
+
+        }
+        elsif ( defined( $result->{version} ) ) {
+        # There is a primary package selected, and exactly one
+        # alternative package
+
+        if ( exists( $prime{$package}{version} ) &&
+             defined( $prime{$package}{version} ) ) {
+          # Unless the version of the primary package agrees with the
+          # version of the alternative package, report a conflict
+        if ( $compare_versions->(
+                 $prime{$package}{version}, '!=', $result->{version}
+               )
+             ) {
+
+            log_info {
+              "Found conflicting versions for package '$package'\n" .
+              "  $prime{$package}{file} ($prime{$package}{version})\n" .
+              "  $result->{file} ($result->{version})\n"
+            };
+          }
+
+        }
+        else {
+          # The prime package selected has no version so, we choose to
+          # use any alternative package that does have a version
+          $prime{$package}{file}    = $result->{file};
+          $prime{$package}{version} = $result->{version};
+        }
+
+        }
+        else {
+        # no alt package found with a version, but we have a prime
+        # package so we use it whether it has a version or not
+        }
+
+      }
+      else { # No primary package was selected, use the best alternative
+
+        if ( $result->{err} ) {
+          log_info {
+            "Found conflicting versions for package '$package'\n" .
+            $result->{err}
+          };
+        }
+
+        # Despite possible conflicting versions, we choose to record
+        # something rather than nothing
+        $prime{$package}{file}    = $result->{file};
+        $prime{$package}{version} = $result->{version}
+          if defined( $result->{version} );
+      }
+    }
+
+    # Normalize versions.  Can't use exists() here because of bug in YAML::Node.
+    # XXX "bug in YAML::Node" comment seems irrelevant -- dagolden, 2009-05-18
+    for (grep defined $_->{version}, values %prime) {
+      $_->{version} = $normalize_version->( $_->{version} );
+    }
+
+    return \%prime;
+  }
+}
+
+
+sub _init {
+  my $class    = shift;
+  my $module   = shift;
+  my $filename = shift;
+  my %props = @_;
+
+  my $handle = delete $props{handle};
+  my( %valid_props, @valid_props );
+  @valid_props = qw( collect_pod inc );
+  @valid_props{@valid_props} = delete( @props{@valid_props} );
+  warn "Unknown properties: @{[keys %props]}\n" if scalar( %props );
+
+  my %data = (
+    module       => $module,
+    filename     => $filename,
+    version      => undef,
+    packages     => [],
+    versions     => {},
+    pod          => {},
+    pod_headings => [],
+    collect_pod  => 0,
+
+    %valid_props,
+  );
+
+  my $self = bless(\%data, $class);
+
+  if ( not $handle ) {
+    my $filename = $self->{filename};
+    open $handle, '<', $filename
+      or croak( "Can't open '$filename': $!" );
+
+    $self->_handle_bom($handle, $filename);
+  }
+  $self->_parse_fh($handle);
+
+  @{$self->{packages}} = __uniq(@{$self->{packages}});
+
+  unless($self->{module} and length($self->{module})) {
+    # CAVEAT (possible TODO): .pmc files not treated the same as .pm
+    if ($self->{filename} =~ /\.pm$/) {
+      my ($v, $d, $f) = File::Spec->splitpath($self->{filename});
+      $f =~ s/\..+$//;
+      my @candidates = grep /(^|::)$f$/, @{$self->{packages}};
+      $self->{module} = shift(@candidates); # this may be undef
+    }
+    else {
+      # this seems like an atrocious heuristic, albeit marginally better than
+      # what was here before. It should be rewritten entirely to be more like
+      # "if it's not a .pm file, it's not require()able as a name, therefore
+      # name() should be undef."
+      if ((grep /main/, @{$self->{packages}})
+          or (grep /main/, keys %{$self->{versions}})) {
+        $self->{module} = 'main';
+      }
+      else {
+        # TODO: this should maybe default to undef instead
+        $self->{module} = $self->{packages}[0] || '';
+      }
+    }
+  }
+
+  $self->{version} = $self->{versions}{$self->{module}}
+    if defined( $self->{module} );
+
+  return $self;
+}
+
+# class method
+sub _do_find_module {
+  my $class   = shift;
+  my $module  = shift || croak 'find_module_by_name() requires a package name';
+  my $dirs    = shift || \@INC;
+
+  my $file = File::Spec->catfile(split( /::/, $module));
+  foreach my $dir ( @$dirs ) {
+    my $testfile = File::Spec->catfile($dir, $file);
+    return [ File::Spec->rel2abs( $testfile ), $dir ]
+      if -e $testfile and !-d _;  # For stuff like ExtUtils::xsubpp
+    # CAVEAT (possible TODO): .pmc files are not discoverable here
+    $testfile .= '.pm';
+    return [ File::Spec->rel2abs( $testfile ), $dir ]
+      if -e $testfile;
+  }
+  return;
+}
+
+# class method
+sub find_module_by_name {
+  my $found = shift()->_do_find_module(@_) or return;
+  return $found->[0];
+}
+
+# class method
+sub find_module_dir_by_name {
+  my $found = shift()->_do_find_module(@_) or return;
+  return $found->[1];
+}
+
+
+# given a line of perl code, attempt to parse it if it looks like a
+# $VERSION assignment, returning sigil, full name, & package name
+sub _parse_version_expression {
+  my $self = shift;
+  my $line = shift;
+
+  my( $sigil, $variable_name, $package);
+  if ( $line =~ /$VERS_REGEXP/o ) {
+    ( $sigil, $variable_name, $package) = $2 ? ( $1, $2, $3 ) : ( $4, $5, $6 );
+    if ( $package ) {
+      $package = ($package eq '::') ? 'main' : $package;
+      $package =~ s/::$//;
+    }
+  }
+
+  return ( $sigil, $variable_name, $package );
+}
+
+# Look for a UTF-8/UTF-16BE/UTF-16LE BOM at the beginning of the stream.
+# If there's one, then skip it and set the :encoding layer appropriately.
+sub _handle_bom {
+  my ($self, $fh, $filename) = @_;
+
+  my $pos = tell $fh;
+  return unless defined $pos;
+
+  my $buf = ' ' x 2;
+  my $count = read $fh, $buf, length $buf;
+  return unless defined $count and $count >= 2;
+
+  my $encoding;
+  if ( $buf eq "\x{FE}\x{FF}" ) {
+    $encoding = 'UTF-16BE';
+  }
+  elsif ( $buf eq "\x{FF}\x{FE}" ) {
+    $encoding = 'UTF-16LE';
+  }
+  elsif ( $buf eq "\x{EF}\x{BB}" ) {
+    $buf = ' ';
+    $count = read $fh, $buf, length $buf;
+    if ( defined $count and $count >= 1 and $buf eq "\x{BF}" ) {
+      $encoding = 'UTF-8';
+    }
+  }
+
+  if ( defined $encoding ) {
+    if ( "$]" >= 5.008 ) {
+      binmode( $fh, ":encoding($encoding)" );
+    }
+  }
+  else {
+    seek $fh, $pos, SEEK_SET
+      or croak( sprintf "Can't reset position to the top of '$filename'" );
+  }
+
+  return $encoding;
+}
+
+sub _parse_fh {
+  my ($self, $fh) = @_;
+
+  my( $in_pod, $seen_end, $need_vers ) = ( 0, 0, 0 );
+  my( @packages, %vers, %pod, @pod );
+  my $package = 'main';
+  my $pod_sect = '';
+  my $pod_data = '';
+  my $in_end = 0;
+
+  while (defined( my $line = <$fh> )) {
+    my $line_num = $.;
+
+    chomp( $line );
+
+    # From toke.c : any line that begins by "=X", where X is an alphabetic
+    # character, introduces a POD segment.
+    my $is_cut;
+    if ( $line =~ /^=([a-zA-Z].*)/ ) {
+      my $cmd = $1;
+      # Then it goes back to Perl code for "=cutX" where X is a non-alphabetic
+      # character (which includes the newline, but here we chomped it away).
+      $is_cut = $cmd =~ /^cut(?:[^a-zA-Z]|$)/;
+      $in_pod = !$is_cut;
+    }
+
+    if ( $in_pod ) {
+
+      if ( $line =~ /^=head[1-4]\s+(.+)\s*$/ ) {
+        push( @pod, $1 );
+        if ( $self->{collect_pod} && length( $pod_data ) ) {
+          $pod{$pod_sect} = $pod_data;
+          $pod_data = '';
+        }
+        $pod_sect = $1;
+      }
+      elsif ( $self->{collect_pod} ) {
+        $pod_data .= "$line\n";
+      }
+      next;
+    }
+    elsif ( $is_cut ) {
+      if ( $self->{collect_pod} && length( $pod_data ) ) {
+        $pod{$pod_sect} = $pod_data;
+        $pod_data = '';
+      }
+      $pod_sect = '';
+      next;
+    }
+
+    # Skip after __END__
+    next if $in_end;
+
+    # Skip comments in code
+    next if $line =~ /^\s*#/;
+
+    # Would be nice if we could also check $in_string or something too
+    if ($line eq '__END__') {
+      $in_end++;
+      next;
+    }
+
+    last if $line eq '__DATA__';
+
+    # parse $line to see if it's a $VERSION declaration
+    my( $version_sigil, $version_fullname, $version_package ) =
+      index($line, 'VERSION') >= 1
+        ? $self->_parse_version_expression( $line )
+        : ();
+
+    if ( $line =~ /$PKG_REGEXP/o ) {
+      $package = $1;
+      my $version = $2;
+      push( @packages, $package ) unless grep( $package eq $_, @packages );
+      $need_vers = defined $version ? 0 : 1;
+
+      if ( not exists $vers{$package} and defined $version ){
+        # Upgrade to a version object.
+        my $dwim_version = eval { _dwim_version($version) };
+        croak "Version '$version' from $self->{filename} does not appear to be valid:\n$line\n\nThe fatal error was: $@\n"
+          unless defined $dwim_version;  # "0" is OK!
+        $vers{$package} = $dwim_version;
+      }
+    }
+
+    # VERSION defined with full package spec, i.e. $Module::VERSION
+    elsif ( $version_fullname && $version_package ) {
+      # we do NOT save this package in found @packages
+      $need_vers = 0 if $version_package eq $package;
+
+      unless ( defined $vers{$version_package} && length $vers{$version_package} ) {
+        $vers{$version_package} = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+      }
+    }
+
+    # first non-comment line in undeclared package main is VERSION
+    elsif ( $package eq 'main' && $version_fullname && !exists($vers{main}) ) {
+      $need_vers = 0;
+      my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+      $vers{$package} = $v;
+      push( @packages, 'main' );
+    }
+
+    # first non-comment line in undeclared package defines package main
+    elsif ( $package eq 'main' && !exists($vers{main}) && $line =~ /\w/ ) {
+      $need_vers = 1;
+      $vers{main} = '';
+      push( @packages, 'main' );
+    }
+
+    # only keep if this is the first $VERSION seen
+    elsif ( $version_fullname && $need_vers ) {
+      $need_vers = 0;
+      my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+
+      unless ( defined $vers{$package} && length $vers{$package} ) {
+        $vers{$package} = $v;
+      }
+    }
+  } # end loop over each line
+
+  if ( $self->{collect_pod} && length($pod_data) ) {
+    $pod{$pod_sect} = $pod_data;
+  }
+
+  $self->{versions} = \%vers;
+  $self->{packages} = \@packages;
+  $self->{pod} = \%pod;
+  $self->{pod_headings} = \@pod;
+}
+
+sub __uniq (@)
+{
+    my (%seen, $key);
+    grep { not $seen{ $key = $_ }++ } @_;
+}
+
+{
+my $pn = 0;
+sub _evaluate_version_line {
+  my $self = shift;
+  my( $sigil, $variable_name, $line ) = @_;
+
+  # We compile into a local sub because 'use version' would cause
+  # compiletime/runtime issues with local()
+  $pn++; # everybody gets their own package
+  my $eval = qq{ my \$dummy = q#  Hide from _packages_inside()
+    #; package Module::Metadata::_version::p${pn};
+    use version;
+    sub {
+      local $sigil$variable_name;
+      $line;
+      return \$$variable_name if defined \$$variable_name;
+      return \$Module::Metadata::_version::p${pn}::$variable_name;
+    };
+  };
+
+  $eval = $1 if $eval =~ m{^(.+)}s;
+
+  local $^W;
+  # Try to get the $VERSION
+  my $vsub = __clean_eval($eval);
+  # some modules say $VERSION <equal sign> $Foo::Bar::VERSION, but Foo::Bar isn't
+  # installed, so we need to hunt in ./lib for it
+  if ( $@ =~ /Can't locate/ && -d 'lib' ) {
+    local @INC = ('lib',@INC);
+    $vsub = __clean_eval($eval);
+  }
+  warn "Error evaling version line '$eval' in $self->{filename}: $@\n"
+    if $@;
+
+  (ref($vsub) eq 'CODE') or
+    croak "failed to build version sub for $self->{filename}";
+
+  my $result = eval { $vsub->() };
+  # FIXME: $eval is not the right thing to print here
+  croak "Could not get version from $self->{filename} by executing:\n$eval\n\nThe fatal error was: $@\n"
+    if $@;
+
+  # Upgrade it into a version object
+  my $version = eval { _dwim_version($result) };
+
+  # FIXME: $eval is not the right thing to print here
+  croak "Version '$result' from $self->{filename} does not appear to be valid:\n$eval\n\nThe fatal error was: $@\n"
+    unless defined $version; # "0" is OK!
+
+  return $version;
+}
+}
+
+# Try to DWIM when things fail the lax version test in obvious ways
+{
+  my @version_prep = (
+    # Best case, it just works
+    sub { return shift },
+
+    # If we still don't have a version, try stripping any
+    # trailing junk that is prohibited by lax rules
+    sub {
+      my $v = shift;
+      $v =~ s{([0-9])[a-z-].*$}{$1}i; # 1.23-alpha or 1.23b
+      return $v;
+    },
+
+    # Activestate apparently creates custom versions like '1.23_45_01', which
+    # cause version.pm to think it's an invalid alpha.  So check for that
+    # and strip them
+    sub {
+      my $v = shift;
+      my $num_dots = () = $v =~ m{(\.)}g;
+      my $num_unders = () = $v =~ m{(_)}g;
+      my $leading_v = substr($v,0,1) eq 'v';
+      if ( ! $leading_v && $num_dots < 2 && $num_unders > 1 ) {
+        $v =~ s{_}{}g;
+        $num_unders = () = $v =~ m{(_)}g;
+      }
+      return $v;
+    },
+
+    # Worst case, try numifying it like we would have before version objects
+    sub {
+      my $v = shift;
+      no warnings 'numeric';
+      return 0 + $v;
+    },
+
+  );
+
+  sub _dwim_version {
+    my ($result) = shift;
+
+    return $result if ref($result) eq 'version';
+
+    my ($version, $error);
+    for my $f (@version_prep) {
+      $result = $f->($result);
+      $version = eval { version->new($result) };
+      $error ||= $@ if $@; # capture first failure
+      last if defined $version;
+    }
+
+    croak $error unless defined $version;
+
+    return $version;
+  }
+}
+
+############################################################
+
+# accessors
+sub name            { $_[0]->{module}            }
+
+sub filename        { $_[0]->{filename}          }
+sub packages_inside { @{$_[0]->{packages}}       }
+sub pod_inside      { @{$_[0]->{pod_headings}}   }
+sub contains_pod    { 0+@{$_[0]->{pod_headings}} }
+
+sub version {
+    my $self = shift;
+    my $mod  = shift || $self->{module};
+    my $vers;
+    if ( defined( $mod ) && length( $mod ) &&
+         exists( $self->{versions}{$mod} ) ) {
+        return $self->{versions}{$mod};
+    }
+    else {
+        return undef;
+    }
+}
+
+sub pod {
+    my $self = shift;
+    my $sect = shift;
+    if ( defined( $sect ) && length( $sect ) &&
+         exists( $self->{pod}{$sect} ) ) {
+        return $self->{pod}{$sect};
+    }
+    else {
+        return undef;
+    }
+}
+
+sub is_indexable {
+  my ($self, $package) = @_;
+
+  my @indexable_packages = grep { $_ ne 'main' } $self->packages_inside;
+
+  # check for specific package, if provided
+  return !! grep { $_ eq $package } @indexable_packages if $package;
+
+  # otherwise, check for any indexable packages at all
+  return !! @indexable_packages;
+}
+
+1;
+
+__END__
+
+package Module::Load;
+
+$VERSION = '0.32';
+
+use strict;
+use warnings;
+use File::Spec ();
+
+sub import {
+    my $who = _who();
+    my $h; shift;
+
+    {   no strict 'refs';
+
+        @_ or (
+            *{"${who}::load"} = \&load, # compat to prev version
+            *{"${who}::autoload"} = \&autoload,
+            return
+        );
+
+        map { $h->{$_} = () if defined $_ } @_;
+
+        (exists $h->{none} or exists $h->{''})
+            and shift, last;
+
+        ((exists $h->{autoload} and shift,1) or (exists $h->{all} and shift))
+            and *{"${who}::autoload"} = \&autoload;
+
+        ((exists $h->{load} and shift,1) or exists $h->{all})
+            and *{"${who}::load"} = \&load;
+
+        ((exists $h->{load_remote} and shift,1) or exists $h->{all})
+            and *{"${who}::load_remote"} = \&load_remote;
+
+        ((exists $h->{autoload_remote} and shift,1) or exists $h->{all})
+            and *{"${who}::autoload_remote"} = \&autoload_remote;
+
+    }
+
+}
+
+sub load(*;@){
+    goto &_load;
+}
+
+sub autoload(*;@){
+    unshift @_, 'autoimport';
+    goto &_load;
+}
+
+sub load_remote($$;@){
+    my ($dst, $src, @exp) = @_;
+
+    eval "package $dst;Module::Load::load('$src', qw/@exp/);";
+    $@ && die "$@";
+}
+
+sub autoload_remote($$;@){
+    my ($dst, $src, @exp) = @_;
+
+    eval "package $dst;Module::Load::autoload('$src', qw/@exp/);";
+    $@ && die "$@";
+}
+
+sub _load{
+    my $autoimport = $_[0] eq 'autoimport' and shift;
+    my $mod = shift or return;
+    my $who = _who();
+
+    if( _is_file( $mod ) ) {
+        require $mod;
+    } else {
+        LOAD: {
+            my $err;
+            for my $flag ( qw[1 0] ) {
+                my $file = _to_file( $mod, $flag);
+                eval { require $file };
+                $@ ? $err .= $@ : last LOAD;
+            }
+            die $err if $err;
+        }
+    }
+
+    ### This addresses #41883: Module::Load cannot import
+    ### non-Exporter module. ->import() routines weren't
+    ### properly called when load() was used.
+
+    {   no strict 'refs';
+        my $import;
+
+    ((@_ or $autoimport) and (
+        $import = $mod->can('import')
+        ) and (
+        unshift(@_, $mod),
+        goto &$import,
+        return
+        )
+    );
+    }
+
+}
+
+sub _to_file{
+    local $_    = shift;
+    my $pm      = shift || '';
+
+    ## trailing blanks ignored by default. [rt #69886]
+    my @parts = split /::|'/, $_, -1;
+    ## make sure that we can't hop out of @INC
+    shift @parts if @parts && !$parts[0];
+
+    ### because of [perl #19213], see caveats ###
+    my $file = $^O eq 'MSWin32'
+                    ? join "/", @parts
+                    : File::Spec->catfile( @parts );
+
+    $file   .= '.pm' if $pm;
+
+    ### on perl's before 5.10 (5.9.5@31746) if you require
+    ### a file in VMS format, it's stored in %INC in VMS
+    ### format. Therefor, better unixify it first
+    ### Patch in reply to John Malmbergs patch (as mentioned
+    ### above) on p5p Tue 21 Aug 2007 04:55:07
+    $file = VMS::Filespec::unixify($file) if $^O eq 'VMS';
+
+    return $file;
+}
+
+sub _who { (caller(1))[0] }
+
+sub _is_file {
+    local $_ = shift;
+    return  /^\./               ? 1 :
+            /[^\w:']/           ? 1 :
+            undef
+    #' silly bbedit..
+}
+
+
+1;
+
+__END__
+
+package Module::Load::Conditional;
+
+use strict;
+
+use Module::Load qw/load autoload_remote/;
+use Params::Check                       qw[check];
+use Locale::Maketext::Simple Style  => 'gettext';
+
+use Carp        ();
+use File::Spec  ();
+use FileHandle  ();
+use version;
+
+use Module::Metadata ();
+
+use constant ON_VMS   => $^O eq 'VMS';
+use constant ON_WIN32 => $^O eq 'MSWin32' ? 1 : 0;
+use constant QUOTE    => do { ON_WIN32 ? q["] : q['] };
+
+BEGIN {
+    use vars        qw[ $VERSION @ISA $VERBOSE $CACHE @EXPORT_OK $DEPRECATED
+                        $FIND_VERSION $ERROR $CHECK_INC_HASH $FORCE_SAFE_INC ];
+    use Exporter;
+    @ISA            = qw[Exporter];
+    $VERSION        = '0.68';
+    $VERBOSE        = 0;
+    $DEPRECATED     = 0;
+    $FIND_VERSION   = 1;
+    $CHECK_INC_HASH = 0;
+    $FORCE_SAFE_INC = 0;
+    @EXPORT_OK      = qw[check_install can_load requires];
+}
+
+
+### this checks if a certain module is installed already ###
+### if it returns true, the module in question is already installed
+### or we found the file, but couldn't open it, OR there was no version
+### to be found in the module
+### it will return 0 if the version in the module is LOWER then the one
+### we are looking for, or if we couldn't find the desired module to begin with
+### if the installed version is higher or equal to the one we want, it will return
+### a hashref with he module name and version in it.. so 'true' as well.
+sub check_install {
+    my %hash = @_;
+
+    my $tmpl = {
+            version => { default    => '0.0'    },
+            module  => { required   => 1        },
+            verbose => { default    => $VERBOSE },
+    };
+
+    my $args;
+    unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) {
+        warn loc( q[A problem occurred checking arguments] ) if $VERBOSE;
+        return;
+    }
+
+    my $file     = File::Spec->catfile( split /::/, $args->{module} ) . '.pm';
+    my $file_inc = File::Spec::Unix->catfile(
+                        split /::/, $args->{module}
+                    ) . '.pm';
+
+    ### where we store the return value ###
+    my $href = {
+            file        => undef,
+            version     => undef,
+            uptodate    => undef,
+    };
+
+    my $filename;
+
+    ### check the inc hash if we're allowed to
+    if( $CHECK_INC_HASH ) {
+        $filename = $href->{'file'} =
+            $INC{ $file_inc } if defined $INC{ $file_inc };
+
+        ### find the version by inspecting the package
+        if( defined $filename && $FIND_VERSION ) {
+            no strict 'refs';
+            $href->{version} = ${ "$args->{module}"."::VERSION" };
+        }
+    }
+
+    ### we didn't find the filename yet by looking in %INC,
+    ### so scan the dirs
+    unless( $filename ) {
+
+        local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.';
+
+        DIR: for my $dir ( @INC ) {
+
+            my $fh;
+
+            if ( ref $dir ) {
+                ### @INC hook -- we invoke it and get the filehandle back
+                ### this is actually documented behaviour as of 5.8 ;)
+
+                my $existed_in_inc = $INC{$file_inc};
+
+                if (UNIVERSAL::isa($dir, 'CODE')) {
+                    ($fh) = $dir->($dir, $file);
+
+                } elsif (UNIVERSAL::isa($dir, 'ARRAY')) {
+                    ($fh) = $dir->[0]->($dir, $file, @{$dir}{1..$#{$dir}})
+
+                } elsif (UNIVERSAL::can($dir, 'INC')) {
+                    ($fh) = $dir->INC($file);
+                }
+
+                if (!UNIVERSAL::isa($fh, 'GLOB')) {
+                    warn loc(q[Cannot open file '%1': %2], $file, $!)
+                            if $args->{verbose};
+                    next;
+                }
+
+                $filename = $INC{$file_inc} || $file;
+
+                delete $INC{$file_inc} if not $existed_in_inc;
+
+            } else {
+                $filename = File::Spec->catfile($dir, $file);
+                next unless -e $filename;
+
+                $fh = new FileHandle;
+                if (!$fh->open($filename)) {
+                    warn loc(q[Cannot open file '%1': %2], $file, $!)
+                            if $args->{verbose};
+                    next;
+                }
+            }
+
+            ### store the directory we found the file in
+            $href->{dir} = $dir;
+
+            ### files need to be in unix format under vms,
+            ### or they might be loaded twice
+            $href->{file} = ON_VMS
+                ? VMS::Filespec::unixify( $filename )
+                : $filename;
+
+            ### if we don't need the version, we're done
+            last DIR unless $FIND_VERSION;
+
+            ### otherwise, the user wants us to find the version from files
+            my $mod_info = Module::Metadata->new_from_handle( $fh, $filename );
+            my $ver      = $mod_info->version( $args->{module} );
+
+            if( defined $ver ) {
+                $href->{version} = $ver;
+
+                last DIR;
+            }
+        }
+    }
+
+    ### if we couldn't find the file, return undef ###
+    return unless defined $href->{file};
+
+    ### only complain if we're expected to find a version higher than 0.0 anyway
+    if( $FIND_VERSION and not defined $href->{version} ) {
+        {   ### don't warn about the 'not numeric' stuff ###
+            local $^W;
+
+            ### if we got here, we didn't find the version
+            warn loc(q[Could not check version on '%1'], $args->{module} )
+                    if $args->{verbose} and $args->{version} > 0;
+        }
+        $href->{uptodate} = 1;
+
+    } else {
+        ### don't warn about the 'not numeric' stuff ###
+        local $^W;
+
+        ### use qv(), as it will deal with developer release number
+        ### ie ones containing _ as well. This addresses bug report
+        ### #29348: Version compare logic doesn't handle alphas?
+        ###
+        ### Update from JPeacock: apparently qv() and version->new
+        ### are different things, and we *must* use version->new
+        ### here, or things like #30056 might start happening
+
+        ### We have to wrap this in an eval as version-0.82 raises
+        ### exceptions and not warnings now *sigh*
+
+        eval {
+
+          $href->{uptodate} =
+            version->new( $args->{version} ) <= version->new( $href->{version} )
+                ? 1
+                : 0;
+
+        };
+    }
+
+    if ( $DEPRECATED and "$]" >= 5.011 ) {
+        local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.';
+        require Module::CoreList;
+        require Config;
+
+        $href->{uptodate} = 0 if
+           exists $Module::CoreList::version{ 0+$] }{ $args->{module} } and
+           Module::CoreList::is_deprecated( $args->{module} ) and
+           $Config::Config{privlibexp} eq $href->{dir}
+           and $Config::Config{privlibexp} ne $Config::Config{sitelibexp};
+    }
+
+    return $href;
+}
+
+
+sub can_load {
+    my %hash = @_;
+
+    my $tmpl = {
+        modules     => { default => {}, strict_type => 1 },
+        verbose     => { default => $VERBOSE },
+        nocache     => { default => 0 },
+        autoload    => { default => 0 },
+    };
+
+    my $args;
+
+    unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) {
+        $ERROR = loc(q[Problem validating arguments!]);
+        warn $ERROR if $VERBOSE;
+        return;
+    }
+
+    ### layout of $CACHE:
+    ### $CACHE = {
+    ###     $ module => {
+    ###             usable  => BOOL,
+    ###             version => \d,
+    ###             file    => /path/to/file,
+    ###     },
+    ### };
+
+    $CACHE ||= {}; # in case it was undef'd
+
+    my $error;
+    BLOCK: {
+        my $href = $args->{modules};
+
+        my @load;
+        for my $mod ( keys %$href ) {
+
+            next if $CACHE->{$mod}->{usable} && !$args->{nocache};
+
+            ### else, check if the hash key is defined already,
+            ### meaning $mod => 0,
+            ### indicating UNSUCCESSFUL prior attempt of usage
+
+            ### use qv(), as it will deal with developer release number
+            ### ie ones containing _ as well. This addresses bug report
+            ### #29348: Version compare logic doesn't handle alphas?
+            ###
+            ### Update from JPeacock: apparently qv() and version->new
+            ### are different things, and we *must* use version->new
+            ### here, or things like #30056 might start happening
+            if (    !$args->{nocache}
+                    && defined $CACHE->{$mod}->{usable}
+                    && (version->new( $CACHE->{$mod}->{version}||0 )
+                        >= version->new( $href->{$mod} ) )
+            ) {
+                $error = loc( q[Already tried to use '%1', which was unsuccessful], $mod);
+                last BLOCK;
+            }
+
+            my $mod_data = check_install(
+                                    module  => $mod,
+                                    version => $href->{$mod}
+                                );
+
+            if( !$mod_data or !defined $mod_data->{file} ) {
+                $error = loc(q[Could not find or check module '%1'], $mod);
+                $CACHE->{$mod}->{usable} = 0;
+                last BLOCK;
+            }
+
+            map {
+                $CACHE->{$mod}->{$_} = $mod_data->{$_}
+            } qw[version file uptodate];
+
+            push @load, $mod;
+        }
+
+        for my $mod ( @load ) {
+
+            if ( $CACHE->{$mod}->{uptodate} ) {
+
+                local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.';
+
+                if ( $args->{autoload} ) {
+                    my $who = (caller())[0];
+                    eval { autoload_remote $who, $mod };
+                } else {
+                    eval { load $mod };
+                }
+
+                ### in case anything goes wrong, log the error, the fact
+                ### we tried to use this module and return 0;
+                if( $@ ) {
+                    $error = $@;
+                    $CACHE->{$mod}->{usable} = 0;
+                    last BLOCK;
+                } else {
+                    $CACHE->{$mod}->{usable} = 1;
+                }
+
+            ### module not found in @INC, store the result in
+            ### $CACHE and return 0
+            } else {
+
+                $error = loc(q[Module '%1' is not uptodate!], $mod);
+                $CACHE->{$mod}->{usable} = 0;
+                last BLOCK;
+            }
+        }
+
+    } # BLOCK
+
+    if( defined $error ) {
+        $ERROR = $error;
+        Carp::carp( loc(q|%1 [THIS MAY BE A PROBLEM!]|,$error) ) if $args->{verbose};
+        return;
+    } else {
+        return 1;
+    }
+}
+
+
+sub requires {
+    my $who = shift;
+
+    unless( check_install( module => $who ) ) {
+        warn loc(q[You do not have module '%1' installed], $who) if $VERBOSE;
+        return undef;
+    }
+
+    local @INC = @INC[0..$#INC-1] if $FORCE_SAFE_INC && $INC[-1] eq '.';
+
+    my $lib = join " ", map { qq["-I$_"] } @INC;
+    my $oneliner = 'print(join(qq[\n],map{qq[BONG=$_]}keys(%INC)),qq[\n])';
+    my $cmd = join '', qq["$^X" $lib -M$who -e], QUOTE, $oneliner, QUOTE;
+
+    return  sort
+                grep { !/^$who$/  }
+                map  { chomp; s|/|::|g; $_ }
+                grep { s|\.pm$||i; }
+                map  { s!^BONG\=!!; $_ }
+                grep { m!^BONG\=! }
+            `$cmd`;
+}
+
+1;
+
+__END__
+
+package Module::CoreList::Utils;
+
+use strict;
+use warnings;
+use Module::CoreList;
+
+our $VERSION = '5.20181129_28';
+our %utilities;
+
+sub utilities {
+    my $perl = shift;
+    $perl = shift if eval { $perl->isa(__PACKAGE__) };
+    return unless $perl or exists $utilities{$perl};
+    return sort keys %{ $utilities{$perl} };
+}
+
+sub _released_order {   # Sort helper, to make '?' sort after everything else
+    (substr($Module::CoreList::released{$a}, 0, 1) eq "?")
+    ? ((substr($Module::CoreList::released{$b}, 0, 1) eq "?")
+        ? 0
+        : 1)
+    : ((substr($Module::CoreList::released{$b}, 0, 1) eq "?")
+        ? -1
+        : $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} )
+}
+
+sub first_release_raw {
+    my $util = shift;
+    $util = shift if eval { $util->isa(__PACKAGE__) };
+      #and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+    my $version = shift;
+
+    my @perls = $version
+        ? grep { exists $utilities{$_}{ $util } &&
+                        $utilities{$_}{ $util } ge $version } keys %utilities
+        : grep { exists $utilities{$_}{ $util }             } keys %utilities;
+
+    return grep { exists $Module::CoreList::released{$_} } @perls;
+}
+
+sub first_release_by_date {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort _released_order @perls)[0];
+}
+
+sub first_release {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort { $a cmp $b } @perls)[0];
+}
+
+sub removed_from {
+  my @perls = &removed_raw;
+  return shift @perls;
+}
+
+sub removed_from_by_date {
+  my @perls = sort _released_order &removed_raw;
+  return shift @perls;
+}
+
+sub removed_raw {
+  my $util = shift;
+  $util = shift if eval { $util->isa(__PACKAGE__) };
+  return unless my @perls = sort { $a cmp $b } first_release_raw($util);
+  @perls = grep { exists $Module::CoreList::released{$_} } @perls;
+  my $last = pop @perls;
+  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %utilities;
+  return @removed;
+}
+
+my %delta = (
+    5 => {
+        changed => {
+            'a2p'                   => '1',
+            'c2ph'                  => '1',
+            'cppstdin'              => '1',
+            'find2perl'             => '1',
+            'pstruct'               => '1',
+            's2p'                   => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.001 => {
+        delta_from => 5,
+        changed => {
+            'h2xs'                  => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.002 => {
+        delta_from => 5.001,
+        changed => {
+            'h2ph'                  => '1',
+            'perlbug'               => '1',
+            'perldoc'               => '1',
+            'pod2html'              => '1',
+            'pod2latex'             => '1',
+            'pod2man'               => '1',
+            'pod2text'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00307 => {
+        delta_from => 5.002,
+        changed => {
+            'pl2pm'                 => '1',
+        },
+        removed => {
+           'cppstdin'              => 1,
+           'pstruct'               => 1,
+        }
+    },
+
+    5.004 => {
+        delta_from => 5.00307,
+        changed => {
+            'splain'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.005 => {
+        delta_from => 5.00405,
+        changed => {
+            'perlcc'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00503 => {
+        delta_from => 5.005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.00405 => {
+        delta_from => 5.004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.006 => {
+        delta_from => 5.00504,
+        changed => {
+            'dprofpp'               => '1',
+            'pod2usage'             => '1',
+            'podchecker'            => '1',
+            'podselect'             => '1',
+            'pstruct'               => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.006001 => {
+        delta_from => 5.006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.007003 => {
+        delta_from => 5.006002,
+        changed => {
+            'libnetcfg'             => '1',
+            'perlivp'               => '1',
+            'psed'                  => '1',
+            'xsubpp'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008 => {
+        delta_from => 5.007003,
+        changed => {
+            'enc2xs'                => '1',
+            'piconv'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008001 => {
+        delta_from => 5.008,
+        changed => {
+            'cpan'                  => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.009 => {
+        delta_from => 5.008009,
+        changed => {
+        },
+        removed => {
+           'corelist'              => 1,
+           'instmodsh'             => 1,
+           'prove'                 => 1,
+        }
+    },
+
+    5.008002 => {
+        delta_from => 5.008001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.006002 => {
+        delta_from => 5.006001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008003 => {
+        delta_from => 5.008002,
+        changed => {
+            'instmodsh'             => '1',
+            'prove'                 => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00504 => {
+        delta_from => 5.00503,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009001 => {
+        delta_from => 5.009,
+        changed => {
+            'instmodsh'             => '1',
+            'prove'                 => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008004 => {
+        delta_from => 5.008003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008005 => {
+        delta_from => 5.008004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008006 => {
+        delta_from => 5.008005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009002 => {
+        delta_from => 5.009001,
+        changed => {
+            'corelist'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008007 => {
+        delta_from => 5.008006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009003 => {
+        delta_from => 5.009002,
+        changed => {
+            'ptar'                  => '1',
+            'ptardiff'              => '1',
+            'shasum'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008008 => {
+        delta_from => 5.008007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009004 => {
+        delta_from => 5.009003,
+        changed => {
+            'config_data'           => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.009005 => {
+        delta_from => 5.009004,
+        changed => {
+            'cpan2dist'             => '1',
+            'cpanp'                 => '1',
+            'cpanp-run-perl'        => '1',
+        },
+        removed => {
+           'perlcc'                => 1,
+        }
+    },
+
+    5.010000 => {
+        delta_from => 5.009005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008009 => {
+        delta_from => 5.008008,
+        changed => {
+            'corelist'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.010001 => {
+        delta_from => 5.010000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011 => {
+        delta_from => 5.010001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011001 => {
+        delta_from => 5.011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011002 => {
+        delta_from => 5.011001,
+        changed => {
+            'perlthanks'            => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.011003 => {
+        delta_from => 5.011002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011004 => {
+        delta_from => 5.011003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011005 => {
+        delta_from => 5.011004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012 => {
+        delta_from => 5.011005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013 => {
+        delta_from => 5.012005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012001 => {
+        delta_from => 5.012,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013001 => {
+        delta_from => 5.013,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013002 => {
+        delta_from => 5.013001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013003 => {
+        delta_from => 5.013002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013004 => {
+        delta_from => 5.013003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012002 => {
+        delta_from => 5.012001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013005 => {
+        delta_from => 5.013004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013006 => {
+        delta_from => 5.013005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013007 => {
+        delta_from => 5.013006,
+        changed => {
+            'ptargrep'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.013008 => {
+        delta_from => 5.013007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013009 => {
+        delta_from => 5.013008,
+        changed => {
+            'json_pp'               => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.012003 => {
+        delta_from => 5.012002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013010 => {
+        delta_from => 5.013009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013011 => {
+        delta_from => 5.013010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014 => {
+        delta_from => 5.013011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014001 => {
+        delta_from => 5.014,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015 => {
+        delta_from => 5.014004,
+        changed => {
+        },
+        removed => {
+           'dprofpp'               => 1,
+        }
+    },
+
+    5.012004 => {
+        delta_from => 5.012003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015001 => {
+        delta_from => 5.015,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015002 => {
+        delta_from => 5.015001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015003 => {
+        delta_from => 5.015002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014002 => {
+        delta_from => 5.014001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015004 => {
+        delta_from => 5.015003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015005 => {
+        delta_from => 5.015004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015006 => {
+        delta_from => 5.015005,
+        changed => {
+            'zipdetails'            => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.015007 => {
+        delta_from => 5.015006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015008 => {
+        delta_from => 5.015007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015009 => {
+        delta_from => 5.015008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016 => {
+        delta_from => 5.015009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017 => {
+        delta_from => 5.016003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017001 => {
+        delta_from => 5.017,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017002 => {
+        delta_from => 5.017001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016001 => {
+        delta_from => 5.016,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017003 => {
+        delta_from => 5.017002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017004 => {
+        delta_from => 5.017003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014003 => {
+        delta_from => 5.014002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017005 => {
+        delta_from => 5.017004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016002 => {
+        delta_from => 5.016001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012005 => {
+        delta_from => 5.012004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017006 => {
+        delta_from => 5.017005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017007 => {
+        delta_from => 5.017006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014004 => {
+        delta_from => 5.014003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016003 => {
+        delta_from => 5.016002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017010 => {
+        delta_from => 5.017009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017011 => {
+        delta_from => 5.017010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018000 => {
+        delta_from => 5.017011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018001 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018003 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018004 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019000 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+            'cpan2dist'             => '1',
+            'cpanp'                 => '1',
+            'cpanp-run-perl'        => '1',
+            'pod2latex'             => '1',
+        }
+    },
+    5.019001 => {
+        delta_from => 5.019000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019010 => {
+        delta_from => 5.019009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.019010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+        },
+        removed => {
+            'a2p'                   => 1,
+            'config_data'           => 1,
+            'find2perl'             => 1,
+            'psed'                  => 1,
+            's2p'                   => 1,
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.02,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+            'encguess'              => '1',
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021011 => {
+        delta_from => 5.02101,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022003 => {
+        delta_from => 5.022002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025009 => {
+        delta_from => 5.025008,
+        changed => {
+        },
+        removed => {
+            'c2ph'                  => 1,
+            'pstruct'               => 1,
+        }
+    },
+    5.025010 => {
+        delta_from => 5.025009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025011 => {
+        delta_from => 5.025010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025012 => {
+        delta_from => 5.025011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026000 => {
+        delta_from => 5.025012,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027000 => {
+        delta_from => 5.026000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027001 => {
+        delta_from => 5.027000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022004 => {
+        delta_from => 5.022003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024002 => {
+        delta_from => 5.024001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027002 => {
+        delta_from => 5.027001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027003 => {
+        delta_from => 5.027002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027004 => {
+        delta_from => 5.027003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024003 => {
+        delta_from => 5.024002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026001 => {
+        delta_from => 5.026000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027005 => {
+        delta_from => 5.027004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027006 => {
+        delta_from => 5.027005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027007 => {
+        delta_from => 5.027006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027008 => {
+        delta_from => 5.027007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027009 => {
+        delta_from => 5.027008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027010 => {
+        delta_from => 5.027009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024004 => {
+        delta_from => 5.024003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.026002 => {
+        delta_from => 5.026001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.027011 => {
+        delta_from => 5.027010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.028000 => {
+        delta_from => 5.027011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029000 => {
+        delta_from => 5.028,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029001 => {
+        delta_from => 5.029000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029002 => {
+        delta_from => 5.029001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029003 => {
+        delta_from => 5.029002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.029004 => {
+        delta_from => 5.029003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.028001 => {
+        delta_from => 5.028000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+);
+
+%utilities = Module::CoreList::_undelta(\%delta);
+
+# Create aliases with trailing zeros for $] use
+
+$utilities{'5.000'} = $utilities{5};
+
+_create_aliases(\%utilities);
+
+sub _create_aliases {
+    my ($hash) = @_;
+
+    for my $version (keys %$hash) {
+        next unless $version >= 5.010;
+
+        my $padded = sprintf "%0.6f", $version;
+
+        # If the version in string form isn't the same as the numeric version,
+        # alias it.
+        if ($padded ne $version && $version == $padded) {
+            $hash->{$padded} = $hash->{$version};
+        }
+    }
+}
+
+'foo';
+
+package attributes;
+
+our $VERSION = 0.33;
+
+@EXPORT_OK = qw(get reftype);
+@EXPORT = ();
+%EXPORT_TAGS = (ALL => [@EXPORT, @EXPORT_OK]);
+
+use strict;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+# Hash of SV type (CODE, SCALAR, etc.) to regex matching deprecated
+# attributes for that type.
+my %deprecated;
+
+my %msg = (
+    lvalue => 'lvalue attribute applied to already-defined subroutine',
+   -lvalue => 'lvalue attribute removed from already-defined subroutine',
+    const  => 'Useless use of attribute "const"',
+);
+
+sub _modify_attrs_and_deprecate {
+    my $svtype = shift;
+    # After we've removed a deprecated attribute from the XS code, we need to
+    # remove it here, else it ends up in @badattrs. (If we do the deprecation in
+    # XS, we can't control the warning based on *our* caller's lexical settings,
+    # and the warned line is in this package)
+    grep {
+	$deprecated{$svtype} && /$deprecated{$svtype}/ ? do {
+	    require warnings;
+	    warnings::warnif('deprecated', "Attribute \"$1\" is deprecated, " .
+                                           "and will disappear in Perl 5.28");
+	    0;
+	} : $svtype eq 'CODE' && exists $msg{$_} ? do {
+	    require warnings;
+	    warnings::warnif(
+		'misc',
+		 $msg{$_}
+	    );
+	    0;
+	} : 1
+    } _modify_attrs(@_);
+}
+
+sub import {
+    @_ > 2 && ref $_[2] or do {
+	require Exporter;
+	goto &Exporter::import;
+    };
+    my (undef,$home_stash,$svref,@attrs) = @_;
+
+    my $svtype = uc reftype($svref);
+    my $pkgmeth;
+    $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES")
+	if defined $home_stash && $home_stash ne '';
+    my @badattrs;
+    if ($pkgmeth) {
+	my @pkgattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
+	@badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs);
+	if (!@badattrs && @pkgattrs) {
+            require warnings;
+	    return unless warnings::enabled('reserved');
+	    @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs;
+	    if (@pkgattrs) {
+		for my $attr (@pkgattrs) {
+		    $attr =~ s/\(.+\z//s;
+		}
+		my $s = ((@pkgattrs == 1) ? '' : 's');
+		carp "$svtype package attribute$s " .
+		    "may clash with future reserved word$s: " .
+		    join(' : ' , @pkgattrs);
+	    }
+	}
+    }
+    else {
+	@badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
+    }
+    if (@badattrs) {
+	croak "Invalid $svtype attribute" .
+	    (( @badattrs == 1 ) ? '' : 's') .
+	    ": " .
+	    join(' : ', @badattrs);
+    }
+}
+
+sub get ($) {
+    @_ == 1  && ref $_[0] or
+	croak 'Usage: '.__PACKAGE__.'::get $ref';
+    my $svref = shift;
+    my $svtype = uc reftype($svref);
+    my $stash = _guess_stash($svref);
+    $stash = caller unless defined $stash;
+    my $pkgmeth;
+    $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES")
+	if defined $stash && $stash ne '';
+    return $pkgmeth ?
+		(_fetch_attrs($svref), $pkgmeth->($stash, $svref)) :
+		(_fetch_attrs($svref))
+	;
+}
+
+sub require_version { goto &UNIVERSAL::VERSION }
+
+require XSLoader;
+XSLoader::load();
+
+1;
+__END__
+#The POD goes here
+
+# This file was created by configpm when Perl was built. Any changes
+# made to this file will be lost the next time perl is built.
+
+package Config;
+use strict;
+use warnings;
+our %Config;
+
+sub bincompat_options {
+    return split ' ', (Internals::V())[0];
+}
+
+sub non_bincompat_options {
+    return split ' ', (Internals::V())[1];
+}
+
+sub compile_date {
+    return (Internals::V())[2]
+}
+
+sub local_patches {
+    my (undef, undef, undef, @patches) = Internals::V();
+    return @patches;
+}
+
+sub _V {
+    die "Perl lib was built for 'emscripten' but is being run on '$^O'"
+        unless "emscripten" eq $^O;
+
+    my ($bincompat, $non_bincompat, $date, @patches) = Internals::V();
+
+    my @opts = sort split ' ', "$bincompat $non_bincompat";
+
+    print Config::myconfig();
+    print "\nCharacteristics of this binary (from libperl): \n";
+
+    print "  Compile-time options:\n";
+    print "    $_\n" for @opts;
+
+    if (@patches) {
+        print "  Locally applied patches:\n";
+        print "    $_\n" foreach @patches;
+    }
+
+    print "  Built under emscripten\n";
+
+    print "  $date\n" if defined $date;
+
+    my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %ENV;
+
+    if (@env) {
+        print "  \%ENV:\n";
+        print "    $_\n" foreach @env;
+    }
+    print "  \@INC:\n";
+    print "    $_\n" foreach @INC;
+}
+
+sub header_files {
+    return qw(EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h
+              dosish.h embed.h embedvar.h form.h gv.h handy.h hv.h hv_func.h
+              intrpvar.h iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h
+              pad.h parser.h patchlevel.h perl.h perlio.h perliol.h perlsdio.h
+              perlvars.h perly.h pp.h pp_proto.h proto.h regcomp.h regexp.h
+              regnodes.h scope.h sv.h thread.h time64.h unixish.h utf8.h
+              util.h);
+}
+
+##
+## This file was produced by running the Configure script. It holds all the
+## definitions figured out by Configure. Should you modify one of these values,
+## do not forget to propagate your changes by running "Configure -der". You may
+## instead choose to run each of the .SH files by yourself, or "Configure -S".
+##
+#
+## Package name      : perl5
+## Source directory  : .
+## Configuration time: Sun Mar  3 21:17:25 CET 2019
+## Configured by     : haukex
+## Target system     : linux devbox 4.15.0-45-generic #48-ubuntu smp tue jan 29 16:28:13 utc 2019 x86_64 x86_64 x86_64 gnulinux 
+#
+#: Configure command line arguments.
+#
+#: Variables propagated from previous config.sh file.
+
+our $summary = <<'!END!';
+Summary of my $package (revision $revision $version_patchlevel_string) configuration:
+  $git_commit_id_title $git_commit_id$git_ancestor_line
+  Platform:
+    osname=$osname
+    osvers=$osvers
+    archname=$archname
+    uname='$myuname'
+    config_args='$config_args'
+    hint=$hint
+    useposix=$useposix
+    d_sigaction=$d_sigaction
+    useithreads=$useithreads
+    usemultiplicity=$usemultiplicity
+    use64bitint=$use64bitint
+    use64bitall=$use64bitall
+    uselongdouble=$uselongdouble
+    usemymalloc=$usemymalloc
+    default_inc_excludes_dot=$default_inc_excludes_dot
+    bincompat5005=undef
+  Compiler:
+    cc='$cc'
+    ccflags ='$ccflags'
+    optimize='$optimize'
+    cppflags='$cppflags'
+    ccversion='$ccversion'
+    gccversion='$gccversion'
+    gccosandvers='$gccosandvers'
+    intsize=$intsize
+    longsize=$longsize
+    ptrsize=$ptrsize
+    doublesize=$doublesize
+    byteorder=$byteorder
+    doublekind=$doublekind
+    d_longlong=$d_longlong
+    longlongsize=$longlongsize
+    d_longdbl=$d_longdbl
+    longdblsize=$longdblsize
+    longdblkind=$longdblkind
+    ivtype='$ivtype'
+    ivsize=$ivsize
+    nvtype='$nvtype'
+    nvsize=$nvsize
+    Off_t='$lseektype'
+    lseeksize=$lseeksize
+    alignbytes=$alignbytes
+    prototype=$prototype
+  Linker and Libraries:
+    ld='$ld'
+    ldflags ='$ldflags'
+    libpth=$libpth
+    libs=$libs
+    perllibs=$perllibs
+    libc=$libc
+    so=$so
+    useshrplib=$useshrplib
+    libperl=$libperl
+    gnulibc_version='$gnulibc_version'
+  Dynamic Linking:
+    dlsrc=$dlsrc
+    dlext=$dlext
+    d_dlsymun=$d_dlsymun
+    ccdlflags='$ccdlflags'
+    cccdlflags='$cccdlflags'
+    lddlflags='$lddlflags'
+
+!END!
+my $summary_expanded;
+
+sub myconfig {
+    return $summary_expanded if $summary_expanded;
+    ($summary_expanded = $summary) =~ s{\$(\w+)}
+		 { 
+			my $c;
+			if ($1 eq 'git_ancestor_line') {
+				if ($Config::Config{git_ancestor}) {
+					$c= "\n  Ancestor: $Config::Config{git_ancestor}";
+				} else {
+					$c= "";
+				}
+			} else {
+                     		$c = $Config::Config{$1}; 
+			}
+			defined($c) ? $c : 'undef' 
+		}ge;
+    $summary_expanded;
+}
+
+local *_ = \my $a;
+$_ = <<'!END!';
+Author=''
+CONFIG='true'
+Date=''
+Header=''
+Id=''
+Locker=''
+Log=''
+PATCHLEVEL='28'
+PERL_API_REVISION='5'
+PERL_API_SUBVERSION='0'
+PERL_API_VERSION='28'
+PERL_CONFIG_SH='true'
+PERL_PATCHLEVEL=''
+PERL_REVISION='5'
+PERL_SUBVERSION='1'
+PERL_VERSION='28'
+RCSfile=''
+Revision=''
+SUBVERSION='1'
+Source=''
+State=''
+_a='.a'
+_exe=''
+_o='.o'
+afs='false'
+afsroot='/afs'
+alignbytes='4'
+aphostname=''
+api_revision='5'
+api_subversion='0'
+api_version='28'
+api_versionstring='5.28.0'
+ar='ar'
+archlib='/opt/perl/lib/5.28.1/wasm'
+archlibexp='/opt/perl/lib/5.28.1/wasm'
+archname='wasm'
+archname64=''
+archobjs=''
+asctime_r_proto='0'
+awk='awk'
+baserev='5.0'
+bash=''
+bin='/opt/perl/bin'
+bin_ELF='undef'
+binexp='/opt/perl/bin'
+bison='bison'
+byacc='byacc'
+byteorder='1234'
+c=''
+castflags='0'
+cat='cat'
+cc='emcc'
+cccdlflags=''
+ccdlflags=''
+ccflags='-D_GNU_SOURCE -D_POSIX_C_SOURCE -DSTANDARD_C -DPERL_USE_SAFE_PUTENV -DNO_MATHOMS -Wno-null-pointer-arithmetic -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_FORTIFY_SOURCE=2'
+ccflags_uselargefiles=''
+ccname='gcc'
+ccsymbols='=1'
+ccversion=''
+cf_by='haukex'
+cf_email='haukex@zero-g.net'
+cf_time='Sun Mar  3 21:17:25 CET 2019'
+charbits='8'
+charsize='1'
+chgrp=''
+chmod='chmod'
+chown=''
+clocktype='clock_t'
+comm='comm'
+compress=''
+config_arg0='Configure'
+config_arg1='-des'
+config_arg2='-Dhintfile=emscripten'
+config_argc='2'
+config_args='-des -Dhintfile=emscripten'
+contains='grep'
+cp='cp'
+cpio=''
+cpp='cpp'
+cpp_stuff='42'
+cppccsymbols=''
+cppflags='-D_GNU_SOURCE -D_POSIX_C_SOURCE -DSTANDARD_C -DPERL_USE_SAFE_PUTENV -DNO_MATHOMS -Wno-null-pointer-arithmetic -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
+cpplast=''
+cppminus=''
+cpprun='/usr/bin/cpp -D_GNU_SOURCE -D_POSIX_C_SOURCE -DSTANDARD_C -DPERL_USE_SAFE_PUTENV -DNO_MATHOMS -Wno-null-pointer-arithmetic -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
+cppstdin='cppstdin'
+cppsymbols='__BYTE_ORDER__=1234 __clang__=1 __EMSCRIPTEN__=1 EMSCRIPTEN=1 __GNUC__=4 __GNUC_MINOR__=2 _GNU_SOURCE=1 __ILP32__=1 _ILP32=1 __LITTLE_ENDIAN__=1 _POSIX_C_SOURCE=1 __STDC__=1 __unix=1 __unix__=1 unix=1'
+crypt_r_proto='0'
+cryptlib=''
+csh='csh'
+ctermid_r_proto='0'
+ctime_r_proto='0'
+d_Gconvert='gcvt((x),(n),(b))'
+d_PRIEUldbl='define'
+d_PRIFUldbl='define'
+d_PRIGUldbl='define'
+d_PRIXU64='define'
+d_PRId64='define'
+d_PRIeldbl='define'
+d_PRIfldbl='define'
+d_PRIgldbl='define'
+d_PRIi64='define'
+d_PRIo64='define'
+d_PRIu64='define'
+d_PRIx64='define'
+d_SCNfldbl='define'
+d__fwalk='undef'
+d_accept4='undef'
+d_access='define'
+d_accessx='undef'
+d_acosh='define'
+d_aintl='undef'
+d_alarm='define'
+d_archlib='define'
+d_asctime64='undef'
+d_asctime_r='undef'
+d_asinh='define'
+d_atanh='define'
+d_atolf='undef'
+d_atoll='define'
+d_attribute_deprecated='define'
+d_attribute_format='define'
+d_attribute_malloc='define'
+d_attribute_nonnull='define'
+d_attribute_noreturn='define'
+d_attribute_pure='define'
+d_attribute_unused='define'
+d_attribute_warn_unused_result='define'
+d_backtrace='undef'
+d_bsd='undef'
+d_bsdgetpgrp='undef'
+d_bsdsetpgrp='undef'
+d_builtin_add_overflow='define'
+d_builtin_choose_expr='define'
+d_builtin_expect='define'
+d_builtin_mul_overflow='define'
+d_builtin_sub_overflow='define'
+d_c99_variadic_macros='define'
+d_casti32='undef'
+d_castneg='define'
+d_cbrt='define'
+d_chown='define'
+d_chroot='define'
+d_chsize='undef'
+d_class='undef'
+d_clearenv='define'
+d_closedir='define'
+d_cmsghdr_s='define'
+d_const='define'
+d_copysign='define'
+d_copysignl='define'
+d_cplusplus='undef'
+d_crypt='define'
+d_crypt_r='undef'
+d_csh='undef'
+d_ctermid='define'
+d_ctermid_r='undef'
+d_ctime64='undef'
+d_ctime_r='undef'
+d_cuserid='undef'
+d_dbminitproto='undef'
+d_difftime='define'
+d_difftime64='undef'
+d_dir_dd_fd='undef'
+d_dirfd='define'
+d_dirnamlen='undef'
+d_dladdr='define'
+d_dlerror='define'
+d_dlopen='undef'
+d_dlsymun='undef'
+d_dosuid='undef'
+d_double_has_inf='define'
+d_double_has_nan='define'
+d_double_has_negative_zero='define'
+d_double_has_subnormals='define'
+d_double_style_cray='undef'
+d_double_style_ibm='undef'
+d_double_style_ieee='define'
+d_double_style_vax='undef'
+d_drand48_r='undef'
+d_drand48proto='define'
+d_dup2='define'
+d_dup3='define'
+d_duplocale='define'
+d_eaccess='undef'
+d_endgrent='undef'
+d_endgrent_r='undef'
+d_endhent='define'
+d_endhostent_r='undef'
+d_endnent='define'
+d_endnetent_r='undef'
+d_endpent='define'
+d_endprotoent_r='undef'
+d_endpwent='define'
+d_endpwent_r='undef'
+d_endsent='define'
+d_endservent_r='undef'
+d_eofnblk='define'
+d_erf='define'
+d_erfc='define'
+d_eunice='undef'
+d_exp2='define'
+d_expm1='define'
+d_faststdio='undef'
+d_fchdir='define'
+d_fchmod='define'
+d_fchmodat='define'
+d_fchown='define'
+d_fcntl='define'
+d_fcntl_can_lock='define'
+d_fd_macros='define'
+d_fd_set='define'
+d_fdclose='undef'
+d_fdim='define'
+d_fds_bits='define'
+d_fegetround='define'
+d_fgetpos='define'
+d_finite='define'
+d_finitel='undef'
+d_flexfnam='define'
+d_flock='define'
+d_flockproto='undef'
+d_fma='define'
+d_fmax='define'
+d_fmin='define'
+d_fork='define'
+d_fp_class='undef'
+d_fp_classify='undef'
+d_fp_classl='undef'
+d_fpathconf='define'
+d_fpclass='undef'
+d_fpclassify='define'
+d_fpclassl='undef'
+d_fpgetround='undef'
+d_fpos64_t='undef'
+d_freelocale='define'
+d_frexpl='define'
+d_fs_data_s='undef'
+d_fseeko='define'
+d_fsetpos='define'
+d_fstatfs='define'
+d_fstatvfs='define'
+d_fsync='define'
+d_ftello='define'
+d_ftime='undef'
+d_futimes='undef'
+d_gai_strerror='define'
+d_gdbm_ndbm_h_uses_prototypes='undef'
+d_gdbmndbm_h_uses_prototypes='undef'
+d_getaddrinfo='define'
+d_getcwd='define'
+d_getespwnam='undef'
+d_getfsstat='undef'
+d_getgrent='undef'
+d_getgrent_r='undef'
+d_getgrgid_r='undef'
+d_getgrnam_r='undef'
+d_getgrps='define'
+d_gethbyaddr='undef'
+d_gethbyname='define'
+d_gethent='define'
+d_gethname='define'
+d_gethostbyaddr_r='undef'
+d_gethostbyname_r='undef'
+d_gethostent_r='undef'
+d_gethostprotos='define'
+d_getitimer='define'
+d_getlogin='define'
+d_getlogin_r='undef'
+d_getmnt='undef'
+d_getmntent='define'
+d_getnameinfo='define'
+d_getnbyaddr='define'
+d_getnbyname='define'
+d_getnent='define'
+d_getnetbyaddr_r='undef'
+d_getnetbyname_r='undef'
+d_getnetent_r='undef'
+d_getnetprotos='define'
+d_getpagsz='define'
+d_getpbyname='define'
+d_getpbynumber='define'
+d_getpent='define'
+d_getpgid='define'
+d_getpgrp='define'
+d_getpgrp2='undef'
+d_getppid='define'
+d_getprior='define'
+d_getprotobyname_r='undef'
+d_getprotobynumber_r='undef'
+d_getprotoent_r='undef'
+d_getprotoprotos='define'
+d_getprpwnam='undef'
+d_getpwent='define'
+d_getpwent_r='undef'
+d_getpwnam_r='undef'
+d_getpwuid_r='undef'
+d_getsbyname='define'
+d_getsbyport='undef'
+d_getsent='define'
+d_getservbyname_r='undef'
+d_getservbyport_r='undef'
+d_getservent_r='undef'
+d_getservprotos='define'
+d_getspnam='undef'
+d_getspnam_r='undef'
+d_gettimeod='define'
+d_gmtime64='undef'
+d_gmtime_r='undef'
+d_gnulibc='undef'
+d_grpasswd='define'
+d_hasmntopt='define'
+d_htonl='define'
+d_hypot='define'
+d_ilogb='define'
+d_ilogbl='define'
+d_inc_version_list='undef'
+d_inetaton='define'
+d_inetntop='define'
+d_inetpton='define'
+d_int64_t='define'
+d_ip_mreq='define'
+d_ip_mreq_source='define'
+d_ipv6_mreq='define'
+d_ipv6_mreq_source='undef'
+d_isascii='define'
+d_isblank='define'
+d_isfinite='define'
+d_isfinitel='undef'
+d_isinf='define'
+d_isinfl='undef'
+d_isless='undef'
+d_isnan='define'
+d_isnanl='undef'
+d_isnormal='define'
+d_j0='define'
+d_j0l='undef'
+d_killpg='undef'
+d_lc_monetary_2008='define'
+d_lchown='define'
+d_ldbl_dig='define'
+d_ldexpl='define'
+d_lgamma='define'
+d_lgamma_r='define'
+d_libm_lib_version='undef'
+d_libname_unique='define'
+d_link='define'
+d_linkat='define'
+d_llrint='define'
+d_llrintl='define'
+d_llround='define'
+d_llroundl='define'
+d_localeconv_l='undef'
+d_localtime64='undef'
+d_localtime_r='undef'
+d_localtime_r_needs_tzset='undef'
+d_locconv='define'
+d_lockf='define'
+d_log1p='define'
+d_log2='define'
+d_logb='define'
+d_long_double_style_ieee='undef'
+d_long_double_style_ieee_doubledouble='undef'
+d_long_double_style_ieee_extended='undef'
+d_long_double_style_ieee_std='undef'
+d_long_double_style_vax='undef'
+d_longdbl='define'
+d_longlong='define'
+d_lrint='define'
+d_lrintl='define'
+d_lround='define'
+d_lroundl='define'
+d_lseekproto='define'
+d_lstat='define'
+d_madvise='define'
+d_malloc_good_size='undef'
+d_malloc_size='undef'
+d_mblen='define'
+d_mbrlen='define'
+d_mbrtowc='define'
+d_mbstowcs='define'
+d_mbtowc='define'
+d_memmem='define'
+d_memrchr='define'
+d_mkdir='define'
+d_mkdtemp='define'
+d_mkfifo='define'
+d_mkostemp='define'
+d_mkstemp='define'
+d_mkstemps='define'
+d_mktime='define'
+d_mktime64='undef'
+d_mmap='define'
+d_modfl='define'
+d_modflproto='define'
+d_mprotect='define'
+d_msg='undef'
+d_msg_ctrunc='define'
+d_msg_dontroute='define'
+d_msg_oob='define'
+d_msg_peek='define'
+d_msg_proxy='define'
+d_msgctl='undef'
+d_msgget='undef'
+d_msghdr_s='define'
+d_msgrcv='undef'
+d_msgsnd='undef'
+d_msync='define'
+d_munmap='define'
+d_mymalloc='undef'
+d_nan='define'
+d_nanosleep='define'
+d_ndbm='undef'
+d_ndbm_h_uses_prototypes='undef'
+d_nearbyint='define'
+d_newlocale='define'
+d_nextafter='define'
+d_nexttoward='define'
+d_nice='define'
+d_nl_langinfo='define'
+d_nv_preserves_uv='define'
+d_nv_zero_is_allbits_zero='define'
+d_off64_t='define'
+d_old_pthread_create_joinable='undef'
+d_oldpthreads='undef'
+d_oldsock='define'
+d_open3='define'
+d_openat='define'
+d_pathconf='define'
+d_pause='undef'
+d_perl_otherlibdirs='undef'
+d_phostname='undef'
+d_pipe='define'
+d_pipe2='define'
+d_poll='define'
+d_portable='define'
+d_prctl='undef'
+d_prctl_set_name='undef'
+d_printf_format_null='define'
+d_procselfexe='undef'
+d_pseudofork='undef'
+d_pthread_atfork='undef'
+d_pthread_attr_setscope='undef'
+d_pthread_yield='undef'
+d_ptrdiff_t='define'
+d_pwage='undef'
+d_pwchange='undef'
+d_pwclass='undef'
+d_pwcomment='undef'
+d_pwexpire='undef'
+d_pwgecos='define'
+d_pwpasswd='define'
+d_pwquota='undef'
+d_qgcvt='undef'
+d_quad='define'
+d_querylocale='undef'
+d_random_r='undef'
+d_re_comp='undef'
+d_readdir='define'
+d_readdir64_r='undef'
+d_readdir_r='undef'
+d_readlink='define'
+d_readv='define'
+d_recvmsg='undef'
+d_regcmp='undef'
+d_regcomp='define'
+d_remainder='define'
+d_remquo='define'
+d_rename='define'
+d_renameat='define'
+d_rewinddir='define'
+d_rint='define'
+d_rmdir='define'
+d_round='define'
+d_sbrkproto='define'
+d_scalbn='define'
+d_scalbnl='define'
+d_sched_yield='define'
+d_scm_rights='define'
+d_seekdir='define'
+d_select='define'
+d_sem='undef'
+d_semctl='undef'
+d_semctl_semid_ds='undef'
+d_semctl_semun='undef'
+d_semget='undef'
+d_semop='undef'
+d_sendmsg='undef'
+d_setegid='define'
+d_seteuid='define'
+d_setgrent='undef'
+d_setgrent_r='undef'
+d_setgrps='define'
+d_sethent='define'
+d_sethostent_r='undef'
+d_setitimer='define'
+d_setlinebuf='define'
+d_setlocale='define'
+d_setlocale_r='undef'
+d_setnent='define'
+d_setnetent_r='undef'
+d_setpent='define'
+d_setpgid='define'
+d_setpgrp='define'
+d_setpgrp2='undef'
+d_setprior='define'
+d_setproctitle='undef'
+d_setprotoent_r='undef'
+d_setpwent='define'
+d_setpwent_r='undef'
+d_setregid='define'
+d_setresgid='define'
+d_setresuid='define'
+d_setreuid='define'
+d_setrgid='undef'
+d_setruid='undef'
+d_setsent='define'
+d_setservent_r='undef'
+d_setsid='define'
+d_setvbuf='define'
+d_shm='undef'
+d_shmat='undef'
+d_shmatprototype='undef'
+d_shmctl='undef'
+d_shmdt='undef'
+d_shmget='undef'
+d_sigaction='undef'
+d_siginfo_si_addr='undef'
+d_siginfo_si_band='undef'
+d_siginfo_si_errno='undef'
+d_siginfo_si_fd='undef'
+d_siginfo_si_pid='undef'
+d_siginfo_si_status='undef'
+d_siginfo_si_uid='undef'
+d_siginfo_si_value='undef'
+d_signbit='define'
+d_sigprocmask='undef'
+d_sigsetjmp='undef'
+d_sin6_scope_id='define'
+d_sitearch='define'
+d_snprintf='define'
+d_sockaddr_in6='define'
+d_sockaddr_sa_len='undef'
+d_sockatmark='define'
+d_sockatmarkproto='define'
+d_socket='define'
+d_socklen_t='define'
+d_sockpair='undef'
+d_socks5_init='undef'
+d_sqrtl='define'
+d_srand48_r='undef'
+d_srandom_r='undef'
+d_sresgproto='define'
+d_sresuproto='define'
+d_stat='define'
+d_statblks='define'
+d_statfs_f_flags='define'
+d_statfs_s='define'
+d_static_inline='define'
+d_statvfs='define'
+d_stdio_cnt_lval='undef'
+d_stdio_ptr_lval='undef'
+d_stdio_ptr_lval_nochange_cnt='undef'
+d_stdio_ptr_lval_sets_cnt='undef'
+d_stdio_stream_array='undef'
+d_stdiobase='undef'
+d_stdstdio='undef'
+d_strcoll='define'
+d_strerror_l='define'
+d_strerror_r='undef'
+d_strftime='define'
+d_strlcat='define'
+d_strlcpy='define'
+d_strnlen='define'
+d_strtod='define'
+d_strtod_l='define'
+d_strtol='define'
+d_strtold='define'
+d_strtold_l='define'
+d_strtoll='define'
+d_strtoq='undef'
+d_strtoul='define'
+d_strtoull='define'
+d_strtouq='undef'
+d_strxfrm='define'
+d_suidsafe='undef'
+d_symlink='define'
+d_syscall='undef'
+d_syscallproto='undef'
+d_sysconf='define'
+d_sysernlst=''
+d_syserrlst='undef'
+d_system='define'
+d_tcgetpgrp='define'
+d_tcsetpgrp='define'
+d_telldir='define'
+d_telldirproto='define'
+d_tgamma='define'
+d_thread_safe_nl_langinfo_l='undef'
+d_time='define'
+d_timegm='define'
+d_times='define'
+d_tm_tm_gmtoff='define'
+d_tm_tm_zone='define'
+d_tmpnam_r='undef'
+d_trunc='define'
+d_truncate='define'
+d_truncl='define'
+d_ttyname_r='undef'
+d_tzname='undef'
+d_u32align='define'
+d_ualarm='define'
+d_umask='define'
+d_uname='define'
+d_union_semun='undef'
+d_unlinkat='define'
+d_unordered='undef'
+d_unsetenv='define'
+d_uselocale='define'
+d_usleep='define'
+d_usleepproto='define'
+d_ustat='undef'
+d_vendorarch='undef'
+d_vendorbin='undef'
+d_vendorlib='undef'
+d_vendorscript='undef'
+d_vfork='undef'
+d_void_closedir='undef'
+d_voidsig='define'
+d_voidtty=''
+d_vsnprintf='define'
+d_wait4='undef'
+d_waitpid='undef'
+d_wcscmp='define'
+d_wcstombs='define'
+d_wcsxfrm='define'
+d_wctomb='define'
+d_writev='define'
+d_xenix='undef'
+date='date'
+db_hashtype='u_int32_t'
+db_prefixtype='size_t'
+db_version_major=''
+db_version_minor=''
+db_version_patch=''
+default_inc_excludes_dot='define'
+direntrytype='struct dirent'
+dlext='none'
+dlsrc='dl_none.xs'
+doubleinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f'
+doublekind='3'
+doublemantbits='52'
+doublenanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff'
+doublesize='8'
+drand01='Perl_drand48()'
+drand48_r_proto='0'
+dtrace=''
+dtraceobject=''
+dtracexnolibs=''
+dynamic_ext=''
+eagain='EAGAIN'
+ebcdic='undef'
+echo='echo'
+egrep='egrep'
+emacs=''
+endgrent_r_proto='0'
+endhostent_r_proto='0'
+endnetent_r_proto='0'
+endprotoent_r_proto='0'
+endpwent_r_proto='0'
+endservent_r_proto='0'
+eunicefix=':'
+exe_ext=''
+expr='expr'
+extensions='attributes B Cwd Data/Dumper Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Hash/Util I18N/Langinfo IO List/Util mro Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Normalize WebPerl Cpanel/JSON/XS Encode/Byte Encode/Symbol Encode/Unicode Archive/Tar Attribute/Handlers autodie AutoLoader autouse base B/Debug bignum Carp Config/Perl/V constant CPAN CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Devel/SelfStubber Devel/StackTrace Digest Dumpvalue encoding/warnings Env Errno experimental Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS FileCache File/Fetch File/Find File/Path File/Temp Filter/Simple Future Getopt/Long HTTP/Tiny I18N/Collate I18N/LangTags if IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 JSON/PP lib libnet Locale/Codes Locale/Maketext Locale/Maketext/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata Net/Ping NEXT Params/Check parent perlfaq PerlIO/via/QuotedPrint Perl/OSType Pod/Checker Pod/Escapes Pod/Functions Pod/Html podlators Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage Safe Search/Dict SelfLoader Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local version XSLoader'
+extern_C='extern'
+extras=''
+fflushNULL='undef'
+fflushall='undef'
+find=''
+firstmakefile='makefile'
+flex=''
+fpossize='16'
+fpostype='fpos_t'
+freetype='void'
+from=':'
+full_ar='/usr/bin/ar'
+full_csh='csh'
+full_sed='/bin/sed'
+gccansipedantic=''
+gccosandvers=''
+gccversion='4.2.1 Compatible Clang 6.0.1 '
+getgrent_r_proto='0'
+getgrgid_r_proto='0'
+getgrnam_r_proto='0'
+gethostbyaddr_r_proto='0'
+gethostbyname_r_proto='0'
+gethostent_r_proto='0'
+getlogin_r_proto='0'
+getnetbyaddr_r_proto='0'
+getnetbyname_r_proto='0'
+getnetent_r_proto='0'
+getprotobyname_r_proto='0'
+getprotobynumber_r_proto='0'
+getprotoent_r_proto='0'
+getpwent_r_proto='0'
+getpwnam_r_proto='0'
+getpwuid_r_proto='0'
+getservbyname_r_proto='0'
+getservbyport_r_proto='0'
+getservent_r_proto='0'
+getspnam_r_proto='0'
+gidformat='"lu"'
+gidsign='1'
+gidsize='4'
+gidtype='gid_t'
+glibpth=''
+gmake='gmake'
+gmtime_r_proto='0'
+gnulibc_version=''
+grep='grep'
+groupcat='cat /etc/group'
+groupstype='gid_t'
+gzip='gzip'
+h_fcntl='true'
+h_sysfile='false'
+hint='recommended'
+hostcat='cat /etc/hosts'
+hostgenerate='/home/haukex/code/webperl/work/hostperl/generate_uudmap'
+hostosname=''
+hostperl='/home/haukex/code/webperl/work/hostperl/miniperl'
+html1dir=' '
+html1direxp=''
+html3dir=' '
+html3direxp=''
+i16size='2'
+i16type='short'
+i32size='4'
+i32type='long'
+i64size='8'
+i64type='long long'
+i8size='1'
+i8type='signed char'
+i_arpainet='define'
+i_bfd='undef'
+i_bsdioctl=''
+i_crypt='define'
+i_db='undef'
+i_dbm='undef'
+i_dirent='define'
+i_dlfcn='define'
+i_execinfo='undef'
+i_fcntl='define'
+i_fenv='define'
+i_fp='undef'
+i_fp_class='undef'
+i_gdbm='undef'
+i_gdbm_ndbm='undef'
+i_gdbmndbm='undef'
+i_grp='define'
+i_ieeefp='undef'
+i_inttypes='define'
+i_langinfo='define'
+i_libutil='undef'
+i_limits='define'
+i_locale='define'
+i_machcthr='undef'
+i_malloc='define'
+i_mallocmalloc='undef'
+i_mntent='define'
+i_ndbm='undef'
+i_netdb='define'
+i_neterrno='undef'
+i_netinettcp='define'
+i_niin='define'
+i_poll='define'
+i_prot='undef'
+i_pthread='undef'
+i_pwd='define'
+i_quadmath='undef'
+i_rpcsvcdbm='undef'
+i_sgtty='undef'
+i_shadow='define'
+i_socks='undef'
+i_stdbool='define'
+i_stdint='define'
+i_stdlib='define'
+i_string='define'
+i_sunmath='undef'
+i_sysaccess='undef'
+i_sysdir='define'
+i_sysfile='undef'
+i_sysfilio='undef'
+i_sysin='undef'
+i_sysioctl='define'
+i_syslog='define'
+i_sysmman='define'
+i_sysmode='undef'
+i_sysmount='define'
+i_sysndir='undef'
+i_sysparam='define'
+i_syspoll='define'
+i_sysresrc='define'
+i_syssecrt='undef'
+i_sysselct='define'
+i_syssockio='undef'
+i_sysstat='define'
+i_sysstatfs='define'
+i_sysstatvfs='define'
+i_systime='define'
+i_systimek='undef'
+i_systimes='define'
+i_systypes='define'
+i_sysuio='define'
+i_sysun='define'
+i_sysutsname='define'
+i_sysvfs='define'
+i_syswait='define'
+i_termio='undef'
+i_termios='define'
+i_time='define'
+i_unistd='define'
+i_ustat='undef'
+i_utime='define'
+i_vfork='undef'
+i_wchar='define'
+i_xlocale='define'
+ignore_versioned_solibs=''
+inc_version_list=' '
+inc_version_list_init='0'
+incpath=''
+incpth='/usr/local/include /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/include /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/include /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/local/include /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL /usr/local/include /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/include /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/include /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/local/include /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL'
+inews=''
+initialinstalllocation='/opt/perl/bin'
+installarchlib='/opt/perl/lib/5.28.1/wasm'
+installbin='/opt/perl/bin'
+installhtml1dir=''
+installhtml3dir=''
+installman1dir=''
+installman3dir=''
+installprefix='/opt/perl'
+installprefixexp='/opt/perl'
+installprivlib='/opt/perl/lib/5.28.1'
+installscript='/opt/perl/bin'
+installsitearch='/opt/perl/lib/site_perl/5.28.1/wasm'
+installsitebin='/opt/perl/bin'
+installsitehtml1dir=''
+installsitehtml3dir=''
+installsitelib='/opt/perl/lib/site_perl/5.28.1'
+installsiteman1dir=''
+installsiteman3dir=''
+installsitescript='/opt/perl/bin'
+installstyle='lib'
+installusrbinperl='undef'
+installvendorarch=''
+installvendorbin=''
+installvendorhtml1dir=''
+installvendorhtml3dir=''
+installvendorlib=''
+installvendorman1dir=''
+installvendorman3dir=''
+installvendorscript=''
+intsize='4'
+issymlink='test -h'
+ivdformat='"ld"'
+ivsize='4'
+ivtype='long'
+known_extensions='Amiga/ARexx Amiga/Exec Archive/Tar arybase Attribute/Handlers attributes autodie AutoLoader autouse B base B/Debug bignum Carp Compress/Raw/Bzip2 Compress/Raw/Zlib Config/Perl/V constant CPAN Cpanel/JSON/XS CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Cwd Data/Dumper DB_File Devel/Peek Devel/PPPort Devel/SelfStubber Devel/StackTrace Digest Digest/MD5 Digest/SHA Dumpvalue Encode encoding/warnings Env Errno experimental Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS Fcntl FileCache File/DosGlob File/Fetch File/Find File/Glob File/Path File/Temp Filter/Simple Filter/Util/Call Future GDBM_File Getopt/Long Hash/Util Hash/Util/FieldHash HTTP/Tiny I18N/Collate I18N/Langinfo I18N/LangTags if IO IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 IPC/SysV JSON/PP lib libnet List/Util Locale/Codes Locale/Maketext Locale/Maketext/Simple Math/BigInt Math/BigInt/FastCalc Math/BigRat Math/Complex Memoize MIME/Base64 Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata mro NDBM_File Net/Ping NEXT ODBM_File Opcode Params/Check parent perlfaq PerlIO/encoding PerlIO/mmap PerlIO/scalar PerlIO/via PerlIO/via/QuotedPrint Perl/OSType Pod/Checker Pod/Escapes Pod/Functions Pod/Html podlators Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage POSIX re Safe SDBM_File Search/Dict SelfLoader Socket Storable Sys/Hostname Sys/Syslog Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue threads Thread/Semaphore threads/shared Tie/File Tie/Hash/NamedCapture Tie/Memoize Tie/RefHash Time/HiRes Time/Local Time/Piece Unicode/Collate Unicode/Normalize version VMS/DCLsym VMS/Filespec VMS/Stdio WebPerl Win32 Win32API/File Win32CORE XS/APItest XSLoader XS/Typemap  Encode/Byte Encode/Symbol Encode/Unicode'
+ksh=''
+ld='ld'
+ld_can_script='undef'
+lddlflags=''
+ldflags=' -O2 -s NO_EXIT_RUNTIME=1 -s ALLOW_MEMORY_GROWTH=1 -Wno-almost-asm -s WASM=1 -s BINARYEN_METHOD=native-wasm  -fstack-protector-strong'
+ldflags_uselargefiles=''
+ldlibpthname='LD_LIBRARY_PATH'
+less='less'
+lib_ext='.a'
+libc=''
+libperl='libperl.a'
+libpth='/usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL /usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL'
+libs=' '
+libsdirs=''
+libsfiles=''
+libsfound=''
+libspath=' /usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL /usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL'
+libswanted='cl pthread socket bind inet nsl ndbm gdbm dbm db malloc dl ld sun m crypt sec util c cposix posix ucb bsd BSD'
+libswanted_uselargefiles=''
+line=''
+lint=''
+lkflags=''
+ln='ln'
+lns='/bin/ln'
+localtime_r_proto='0'
+locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include'
+loclibpth=''
+longdblinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f'
+longdblkind='0'
+longdblmantbits='52'
+longdblnanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff'
+longdblsize='8'
+longlongsize='8'
+longsize='4'
+lp=''
+lpr=''
+ls='ls'
+lseeksize='4'
+lseektype='off_t'
+mail=''
+mailx=''
+make='make'
+make_set_make='#'
+mallocobj=''
+mallocsrc=''
+malloctype='void *'
+man1dir=' '
+man1direxp=''
+man1ext='0'
+man3dir=' '
+man3direxp=''
+man3ext='0'
+mips_type=''
+mistrustnm=''
+mkdir='mkdir'
+mmaptype='void *'
+modetype='mode_t'
+more='more'
+multiarch='undef'
+mv=''
+myarchname='x86_64-emscripten'
+mydomain='.local'
+myhostname='localhost'
+myuname='linux devbox 4.15.0-45-generic #48-ubuntu smp tue jan 29 16:28:13 utc 2019 x86_64 x86_64 x86_64 gnulinux '
+n='-n'
+need_va_copy='define'
+netdb_hlen_type='size_t'
+netdb_host_type='char *'
+netdb_name_type='const char *'
+netdb_net_type='in_addr_t'
+nm='nm'
+nm_opt=''
+nm_so_opt='--dynamic'
+noextensions='IPC/SysV'
+nonxs_ext='Archive/Tar Attribute/Handlers autodie AutoLoader autouse base B/Debug bignum Carp Config/Perl/V constant CPAN CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Devel/SelfStubber Devel/StackTrace Digest Dumpvalue encoding/warnings Env Errno experimental Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS FileCache File/Fetch File/Find File/Path File/Temp Filter/Simple Future Getopt/Long HTTP/Tiny I18N/Collate I18N/LangTags if IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 JSON/PP lib libnet Locale/Codes Locale/Maketext Locale/Maketext/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata Net/Ping NEXT Params/Check parent perlfaq PerlIO/via/QuotedPrint Perl/OSType Pod/Checker Pod/Escapes Pod/Functions Pod/Html podlators Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage Safe Search/Dict SelfLoader Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local version XSLoader'
+nroff='nroff'
+nvEUformat='"E"'
+nvFUformat='"F"'
+nvGUformat='"G"'
+nv_overflows_integers_at='256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0'
+nv_preserves_uv_bits='32'
+nveformat='"e"'
+nvfformat='"f"'
+nvgformat='"g"'
+nvmantbits='52'
+nvsize='8'
+nvtype='double'
+o_nonblock='O_NONBLOCK'
+obj_ext='.o'
+old_pthread_create_joinable=''
+optimize='-O2'
+orderlib='false'
+osname='emscripten'
+osvers='1.38.28'
+otherlibdirs=' '
+package='perl5'
+pager='/usr/bin/less -R'
+passcat='cat /etc/passwd'
+patchlevel='28'
+path_sep=':'
+perl='perl'
+perl5='/home/haukex/perl5/perlbrew/perls/perl-5.28.0/bin/perl'
+perl_patchlevel=''
+perl_static_inline='static __inline__'
+perladmin='root@localhost'
+perllibs=' '
+perlpath='/opt/perl/bin/perl'
+pg='pg'
+phostname=''
+pidtype='pid_t'
+plibpth=''
+pmake=''
+pr=''
+prefix='/opt/perl'
+prefixexp='/opt/perl'
+privlib='/opt/perl/lib/5.28.1'
+privlibexp='/opt/perl/lib/5.28.1'
+procselfexe=''
+prototype='define'
+ptrsize='4'
+quadkind='3'
+quadtype='long long'
+randbits='48'
+randfunc='Perl_drand48'
+random_r_proto='0'
+randseedtype='U32'
+ranlib='/home/haukex/emsdk/clang/e1.38.28_64bit/llvm-ranlib'
+rd_nodata='-1'
+readdir64_r_proto='0'
+readdir_r_proto='0'
+revision='5'
+rm='rm'
+rm_try='/bin/rm -f try try a.out .out try.[cho] try..o core core.try* try.core*'
+rmail=''
+run=''
+runnm='false'
+sGMTIME_max='2147483647'
+sGMTIME_min='-2147483648'
+sLOCALTIME_max='2147483647'
+sLOCALTIME_min='-2147483648'
+sPRIEUldbl='"E"'
+sPRIFUldbl='"F"'
+sPRIGUldbl='"G"'
+sPRIXU64='"llX"'
+sPRId64='"lld"'
+sPRIeldbl='"e"'
+sPRIfldbl='"f"'
+sPRIgldbl='"g"'
+sPRIi64='"lli"'
+sPRIo64='"llo"'
+sPRIu64='"llu"'
+sPRIx64='"llx"'
+sSCNfldbl='"f"'
+sched_yield='sched_yield()'
+scriptdir='/opt/perl/bin'
+scriptdirexp='/opt/perl/bin'
+sed='sed'
+seedfunc='Perl_drand48_init'
+selectminbits='32'
+selecttype='fd_set *'
+sendmail=''
+setgrent_r_proto='0'
+sethostent_r_proto='0'
+setlocale_r_proto='0'
+setnetent_r_proto='0'
+setprotoent_r_proto='0'
+setpwent_r_proto='0'
+setservent_r_proto='0'
+sh='/bin/sh'
+shar=''
+sharpbang='#!'
+shmattype=''
+shortsize='2'
+shrpenv=''
+shsharp='true'
+sig_count='65'
+sig_name='ZERO HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM PROF WINCH IO PWR SYS NUM32 NUM33 NUM34 NUM35 NUM36 NUM37 NUM38 NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 NUM45 NUM46 NUM47 NUM48 NUM49 NUM50 NUM51 NUM52 NUM53 NUM54 NUM55 NUM56 NUM57 NUM58 NUM59 NUM60 NUM61 NUM62 NUM63 NUM64 RTMIN IOT POLL UNUSED '
+sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "NUM34", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "NUM64", "RTMIN", "IOT", "POLL", "UNUSED", 0'
+sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 0 6 29 31 '
+sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 0, 6, 29, 31, 0'
+sig_size='69'
+signal_t='void'
+sitearch='/opt/perl/lib/site_perl/5.28.1/wasm'
+sitearchexp='/opt/perl/lib/site_perl/5.28.1/wasm'
+sitebin='/opt/perl/bin'
+sitebinexp='/opt/perl/bin'
+sitehtml1dir=''
+sitehtml1direxp=''
+sitehtml3dir=''
+sitehtml3direxp=''
+sitelib='/opt/perl/lib/site_perl/5.28.1'
+sitelib_stem='/opt/perl/lib/site_perl'
+sitelibexp='/opt/perl/lib/site_perl/5.28.1'
+siteman1dir=''
+siteman1direxp=''
+siteman3dir=''
+siteman3direxp=''
+siteprefix='/opt/perl'
+siteprefixexp='/opt/perl'
+sitescript='/opt/perl/bin'
+sitescriptexp='/opt/perl/bin'
+sizesize='4'
+sizetype='size_t'
+sleep=''
+smail=''
+so='so'
+sockethdr=''
+socketlib=''
+socksizetype='socklen_t'
+sort='sort'
+spackage='Perl5'
+spitshell='cat'
+srand48_r_proto='0'
+srandom_r_proto='0'
+src='.'
+ssizetype='ssize_t'
+st_ino_sign='1'
+st_ino_size='4'
+startperl='#!/opt/perl/bin/perl'
+startsh='#!/bin/sh'
+static_ext='attributes B Cwd Data/Dumper Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Hash/Util I18N/Langinfo IO List/Util mro Opcode PerlIO/encoding PerlIO/scalar PerlIO/via POSIX re SDBM_File Socket Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Normalize WebPerl Cpanel/JSON/XS Encode/Byte Encode/Symbol Encode/Unicode'
+stdchar='char'
+stdio_base='((fp)->_base)'
+stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)'
+stdio_cnt='((fp)->_cnt)'
+stdio_filbuf=''
+stdio_ptr='((fp)->_ptr)'
+stdio_stream_array=''
+strerror_r_proto='0'
+submit=''
+subversion='1'
+sysman='/usr/share/man/man1'
+sysroot='/home/haukex/emsdk/emscripten/1.38.28/system'
+tail=''
+tar=''
+targetarch=''
+targetdir=''
+targetenv=''
+targethost=''
+targetmkdir=''
+targetport=''
+targetsh='/bin/sh'
+tbl=''
+tee=''
+test='test'
+timeincl='/home/haukex/emsdk/emscripten/1.38.28/system/include/libc/sys/time.h '
+timetype='time_t'
+tmpnam_r_proto='0'
+to=':'
+touch='touch'
+tr='tr'
+trnl='\n'
+troff=''
+ttyname_r_proto='0'
+u16size='2'
+u16type='unsigned short'
+u32size='4'
+u32type='unsigned long'
+u64size='8'
+u64type='unsigned long long'
+u8size='1'
+u8type='unsigned char'
+uidformat='"lu"'
+uidsign='1'
+uidsize='4'
+uidtype='uid_t'
+uname='uname'
+uniq='uniq'
+uquadtype='unsigned long long'
+use5005threads='undef'
+use64bitall='undef'
+use64bitint='undef'
+usecbacktrace='undef'
+usecrosscompile='undef'
+usedevel='undef'
+usedl='undef'
+usedtrace='undef'
+usefaststdio='undef'
+useithreads='undef'
+usekernprocpathname='undef'
+uselanginfo='true'
+uselargefiles='undef'
+uselongdouble='undef'
+usemallocwrap='define'
+usemorebits='undef'
+usemultiplicity='undef'
+usemymalloc='n'
+usenm='false'
+usensgetexecutablepath='undef'
+useopcode='true'
+useperlio='define'
+useposix='true'
+usequadmath='undef'
+usereentrant='undef'
+userelocatableinc='undef'
+useshrplib='false'
+usesitecustomize='undef'
+usesocks='undef'
+usethreads='undef'
+usevendorprefix='undef'
+useversionedarchname='undef'
+usevfork='false'
+usrinc='/home/haukex/emsdk/emscripten/1.38.28/system/usr/include'
+uuname=''
+uvXUformat='"lX"'
+uvoformat='"lo"'
+uvsize='4'
+uvtype='unsigned long'
+uvuformat='"lu"'
+uvxformat='"lx"'
+vendorarch=''
+vendorarchexp=''
+vendorbin=''
+vendorbinexp=''
+vendorhtml1dir=' '
+vendorhtml1direxp=''
+vendorhtml3dir=' '
+vendorhtml3direxp=''
+vendorlib=''
+vendorlib_stem=''
+vendorlibexp=''
+vendorman1dir=' '
+vendorman1direxp=''
+vendorman3dir=' '
+vendorman3direxp=''
+vendorprefix=''
+vendorprefixexp=''
+vendorscript=''
+vendorscriptexp=''
+version='5.28.1'
+version_patchlevel_string='version 28 subversion 1'
+versiononly='undef'
+vi=''
+xlibpth='/usr/lib/386 /lib/386'
+yacc='yacc'
+yaccflags=''
+zcat=''
+zip='zip'
+!END!
+
+my $i = ord(4);
+foreach my $c (3,2,1) { $i <<= 8; $i |= ord($c); }
+our $byteorder = join('', unpack('aaaa', pack('L!', $i)));
+s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
+
+my $config_sh_len = length $_;
+
+our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL';
+ccflags_nolargefiles='-D_GNU_SOURCE -D_POSIX_C_SOURCE -DSTANDARD_C -DPERL_USE_SAFE_PUTENV -DNO_MATHOMS -Wno-null-pointer-arithmetic -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_FORTIFY_SOURCE=2'
+ldflags_nolargefiles=' -O2 -s NO_EXIT_RUNTIME=1 -s ALLOW_MEMORY_GROWTH=1 -Wno-almost-asm -s WASM=1 -s BINARYEN_METHOD=native-wasm  -fstack-protector-strong'
+libs_nolargefiles=' '
+libswanted_nolargefiles='cl pthread socket bind inet nsl ndbm gdbm dbm db malloc dl ld sun m crypt sec util c cposix posix ucb bsd BSD'
+ccwarnflags=' -Wall -Werror=declaration-after-statement -Werror=pointer-arith -Wextra -Wc++-compat -Wwrite-strings'
+ccstdflags=' -std=c89'
+EOVIRTUAL
+eval {
+	# do not have hairy conniptions if this isnt available
+	require 'Config_git.pl';
+	$Config_SH_expanded .= $Config::Git_Data;
+	1;
+} or warn "Warning: failed to load Config_git.pl, something strange about this perl...\n";
+
+# Search for it in the big string
+sub fetch_string {
+    my($self, $key) = @_;
+
+    return undef unless $Config_SH_expanded =~ /\n$key=\'(.*?)\'\n/s;
+    # So we can say "if $Config{'foo'}".
+    $self->{$key} = $1 eq 'undef' ? undef : $1;
+}
+
+my $prevpos = 0;
+
+sub FIRSTKEY {
+    $prevpos = 0;
+    substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
+}
+
+sub NEXTKEY {
+    my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
+    my $len = index($Config_SH_expanded, "=", $pos) - $pos;
+    $prevpos = $pos;
+    $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
+}
+
+sub EXISTS {
+    return 1 if exists($_[0]->{$_[1]});
+
+    return(index($Config_SH_expanded, "\n$_[1]='") != -1
+          );
+}
+
+sub STORE  { die "\%Config::Config is read-only\n" }
+*DELETE = *CLEAR = \*STORE; # Typeglob aliasing uses less space
+
+sub config_sh {
+    substr $Config_SH_expanded, 1, $config_sh_len;
+}
+
+sub config_re {
+    my $re = shift;
+    return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
+    $Config_SH_expanded;
+}
+
+sub config_vars {
+    # implements -V:cfgvar option (see perlrun -V:)
+    foreach (@_) {
+	# find optional leading, trailing colons; and query-spec
+	my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/;	# flags fore and aft, 
+	# map colon-flags to print decorations
+	my $prfx = $notag ? '': "$qry=";		# tag-prefix for print
+	my $lnend = $lncont ? ' ' : ";\n";		# line ending for print
+
+	# all config-vars are by definition \w only, any \W means regex
+	if ($qry =~ /\W/) {
+	    my @matches = config_re($qry);
+	    print map "$_$lnend", @matches ? @matches : "$qry: not found"		if !$notag;
+	    print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found"	if  $notag;
+	} else {
+	    my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
+						   : 'UNKNOWN';
+	    $v = 'undef' unless defined $v;
+	    print "${prfx}'${v}'$lnend";
+	}
+    }
+}
+
+# Called by the real AUTOLOAD
+sub launcher {
+    undef &AUTOLOAD;
+    goto \&$Config::AUTOLOAD;
+}
+
+1;
+#
+
+package IO;
+
+use XSLoader ();
+use Carp;
+use strict;
+use warnings;
+
+our $VERSION = "1.39";
+XSLoader::load 'IO', $VERSION;
+
+sub import {
+    shift;
+
+    warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
+        if @_ == 0 ;
+    
+    my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
+	or croak $@;
+}
+
+1;
+
+__END__
+
+
+# $Id: encoding.pm,v 2.22 2018/02/11 05:32:03 dankogai Exp $
+package encoding;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.22 $ =~ /(\d+)/g;
+
+use Encode;
+use strict;
+use warnings;
+use Config;
+
+use constant {
+    DEBUG => !!$ENV{PERL_ENCODE_DEBUG},
+    HAS_PERLIO => eval { require PerlIO::encoding; PerlIO::encoding->VERSION(0.02) },
+    PERL_5_21_7 => $^V && $^V ge v5.21.7, # lexically scoped
+};
+
+sub _exception {
+    my $name = shift;
+    $] > 5.008 and return 0;    # 5.8.1 or higher then no
+    my %utfs = map { $_ => 1 }
+      qw(utf8 UCS-2BE UCS-2LE UTF-16 UTF-16BE UTF-16LE
+      UTF-32 UTF-32BE UTF-32LE);
+    $utfs{$name} or return 0;    # UTFs or no
+    require Config;
+    Config->import();
+    our %Config;
+    return $Config{perl_patchlevel} ? 0 : 1    # maintperl then no
+}
+
+sub in_locale { $^H & ( $locale::hint_bits || 0 ) }
+
+sub _get_locale_encoding {
+    my $locale_encoding;
+
+    if ($^O eq 'MSWin32') {
+        my @tries = (
+            # First try to get the OutputCP. This will work only if we
+            # are attached to a console
+            'Win32.pm' => 'Win32::GetConsoleOutputCP',
+            'Win32/Console.pm' => 'Win32::Console::OutputCP',
+            # If above failed, this means that we are a GUI app
+            # Let's assume that the ANSI codepage is what matters
+            'Win32.pm' => 'Win32::GetACP',
+        );
+        while (@tries) {
+            my $cp = eval {
+                require $tries[0];
+                no strict 'refs';
+                &{$tries[1]}()
+            };
+            if ($cp) {
+                if ($cp == 65001) { # Code page for UTF-8
+                    $locale_encoding = 'UTF-8';
+                } else {
+                    $locale_encoding = 'cp' . $cp;
+                }
+                return $locale_encoding;
+            }
+            splice(@tries, 0, 2)
+        }
+    }
+
+    # I18N::Langinfo isn't available everywhere
+    $locale_encoding = eval {
+        require I18N::Langinfo;
+        find_encoding(
+            I18N::Langinfo::langinfo( I18N::Langinfo::CODESET() )
+        )->name
+    };
+    return $locale_encoding if defined $locale_encoding;
+
+    eval {
+        require POSIX;
+        # Get the current locale
+        # Remember that MSVCRT impl is quite different from Unixes
+        my $locale = POSIX::setlocale(POSIX::LC_CTYPE());
+        if ( $locale =~ /^([^.]+)\.([^.@]+)(?:@.*)?$/ ) {
+            my $country_language;
+            ( $country_language, $locale_encoding ) = ( $1, $2 );
+
+            # Could do more heuristics based on the country and language
+            # since we have Locale::Country and Locale::Language available.
+            # TODO: get a database of Language -> Encoding mappings
+            # (the Estonian database at http://www.eki.ee/letter/
+            # would be excellent!) --jhi
+            if (lc($locale_encoding) eq 'euc') {
+                if ( $country_language =~ /^ja_JP|japan(?:ese)?$/i ) {
+                    $locale_encoding = 'euc-jp';
+                }
+                elsif ( $country_language =~ /^ko_KR|korean?$/i ) {
+                    $locale_encoding = 'euc-kr';
+                }
+                elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)$/i ) {
+                    $locale_encoding = 'euc-cn';
+                }
+                elsif ( $country_language =~ /^zh_TW|taiwan(?:ese)?$/i ) {
+                    $locale_encoding = 'euc-tw';
+                }
+                else {
+                    require Carp;
+                    Carp::croak(
+                        "encoding: Locale encoding '$locale_encoding' too ambiguous"
+                    );
+                }
+            }
+        }
+    };
+
+    return $locale_encoding;
+}
+
+sub import {
+
+    if ( ord("A") == 193 ) {
+        require Carp;
+        Carp::croak("encoding: pragma does not support EBCDIC platforms");
+    }
+
+    my $deprecate =
+        ($] >= 5.017 and !$Config{usecperl})
+        ? "Use of the encoding pragma is deprecated" : 0;
+
+    my $class = shift;
+    my $name  = shift;
+    if (!$name){
+	require Carp;
+        Carp::croak("encoding: no encoding specified.");
+    }
+    if ( $name eq ':_get_locale_encoding' ) {    # used by lib/open.pm
+        my $caller = caller();
+        {
+            no strict 'refs';
+            *{"${caller}::_get_locale_encoding"} = \&_get_locale_encoding;
+        }
+        return;
+    }
+    $name = _get_locale_encoding() if $name eq ':locale';
+    BEGIN { strict->unimport('hashpairs') if $] >= 5.027 and $^V =~ /c$/; }
+    my %arg = @_;
+    $name = $ENV{PERL_ENCODING} unless defined $name;
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("encoding: Unknown encoding '$name'");
+    }
+    $name = $enc->name;    # canonize
+    unless ( $arg{Filter} ) {
+        if ($] >= 5.025003 and !$Config{usecperl}) {
+            require Carp;
+            Carp::croak("The encoding pragma is no longer supported. Check cperl");
+        }
+        warnings::warnif("deprecated",$deprecate) if $deprecate;
+
+        DEBUG and warn "_exception($name) = ", _exception($name);
+        if (! _exception($name)) {
+            if (!PERL_5_21_7) {
+                ${^ENCODING} = $enc;
+            }
+            else {
+                # Starting with 5.21.7, this pragma uses a shadow variable
+                # designed explicitly for it, ${^E_NCODING}, to enforce
+                # lexical scope; instead of ${^ENCODING}.
+                $^H{'encoding'} = 1;
+                ${^E_NCODING} = $enc;
+            }
+        }
+        if (! HAS_PERLIO ) {
+            return 1;
+        }
+    }
+    else {
+        warnings::warnif("deprecated",$deprecate) if $deprecate;
+
+        defined( ${^ENCODING} ) and undef ${^ENCODING};
+        undef ${^E_NCODING} if PERL_5_21_7;
+
+        # implicitly 'use utf8'
+        require utf8;      # to fetch $utf8::hint_bits;
+        $^H |= $utf8::hint_bits;
+
+            require Filter::Util::Call;
+            Filter::Util::Call->import;
+            filter_add(
+                sub {
+                    my $status = filter_read();
+                    if ( $status > 0 ) {
+                        $_ = $enc->decode( $_, 1 );
+                        DEBUG and warn $_;
+                    }
+                    $status;
+                }
+            );
+    }
+    defined ${^UNICODE} and ${^UNICODE} != 0 and return 1;
+    for my $h (qw(STDIN STDOUT)) {
+        if ( $arg{$h} ) {
+            unless ( defined find_encoding( $arg{$h} ) ) {
+                require Carp;
+                Carp::croak(
+                    "encoding: Unknown encoding for $h, '$arg{$h}'");
+            }
+            binmode( $h, ":raw :encoding($arg{$h})" );
+        }
+        else {
+            unless ( exists $arg{$h} ) {
+                    no warnings 'uninitialized';
+                    binmode( $h, ":raw :encoding($name)" );
+            }
+        }
+    }
+    return 1;    # I doubt if we need it, though
+}
+
+sub unimport {
+    no warnings;
+    undef ${^ENCODING};
+    undef ${^E_NCODING} if PERL_5_21_7;
+    if (HAS_PERLIO) {
+        binmode( STDIN,  ":raw" );
+        binmode( STDOUT, ":raw" );
+    }
+    else {
+        binmode(STDIN);
+        binmode(STDOUT);
+    }
+    if ( $INC{"Filter/Util/Call.pm"} ) {
+        eval { filter_del() };
+    }
+}
+
+1;
+__END__
+
+package WebPerl;
+use 5.026;
+use warnings;
+use Carp;
+use Cpanel::JSON::XS qw/encode_json/;
+use Scalar::Util qw/blessed refaddr/;
+use Sub::Util qw/subname/;
+use Data::Dumper ();
+
+=head1 SYNOPSIS
+
+ use WebPerl qw/js/;
+ js(q{ alert("I am JavaScript!"); });
+
+Please see the documentation at L<http://webperl.zero-g.net/using.html>!
+
+=head1 Author, Copyright, and License
+
+B<< WebPerl - L<http://webperl.zero-g.net> >>
+
+Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+Berlin, Germany, L<http://www.igb-berlin.de>
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl 5 itself: either the GNU General Public
+License as published by the Free Software Foundation (either version 1,
+or, at your option, any later version), or the "Artistic License" which
+comes with Perl 5.
+
+This program is distributed in the hope that it will be useful, but
+B<WITHOUT ANY WARRANTY>; without even the implied warranty of
+B<MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE>.
+See the licenses for details.
+
+You should have received a copy of the licenses along with this program.
+If not, see L<http://perldoc.perl.org/index-licence.html>.
+
+=cut
+
+our $VERSION = '0.09'; # v0.09-beta
+
+require XSLoader;
+XSLoader::load('WebPerl', $VERSION);
+
+use Exporter 'import';
+our @EXPORT_OK = qw/ js encode_json unregister sub_once sub1 js_new /;
+
+our $JSON = Cpanel::JSON::XS->new->allow_nonref;
+our $TRACE = 0;
+
+STDOUT->autoflush(1); # assume the user will always want this
+
+sub _perlstr {
+	confess "bad nr of args" unless @_==1;
+	my $str = shift;
+	croak "can only be used on scalars" if ref $str;
+	state $dumper = Data::Dumper->new([])->Useqq(1)->Terse(1)->Indent(0)->Purity(1);
+	return $dumper->Reset->Values([$str])->Dump;
+}
+
+sub js {
+	croak "incorrect number of arguments to js()" unless @_==1;
+	my $code = shift;
+	return undef if !defined $code; # pass thru without calling JS
+	if (my $r = ref $code) {
+		if ($r eq 'HASH' || $r eq 'ARRAY' || $r eq 'CODE')
+			{ $code = '('._to_js($code).')' }
+		else { croak "unsupported argument to js()" }
+	}
+	$TRACE and say STDERR "js(",_perlstr($code),")";
+	carp "js: non-ASCII characters in non-UTF-8 string" #TODO Later: compare to how $JSON->encode() handles this
+		if !utf8::is_utf8($code) && $code=~/[\x80-\xFF]/aa;
+	my $rv = xs_eval_js($code, defined wantarray ? 1 : 0);
+	my $type = chop($rv);
+	   if ($type eq 'U') { return undef }
+	elsif ($type eq 'B') { return !!$rv }
+	elsif ($type eq 'N') { return 0+$rv }
+	elsif ($type eq 'S') { return $rv }
+	elsif ($type eq 'E') { croak "JS Error: $rv" }
+	elsif ($type eq 'F' || $type eq 'A' || $type eq 'O') {
+		return bless { type => $type, id => $rv }, 'WebPerl::JSObject';
+	}
+	elsif ($type eq 'X') { # e.g. "symbol", which we don't (yet) support
+		carp "unsupported return type from JS: $rv";
+		return undef }
+	confess "js() internal error: $rv";
+}
+
+sub _my_subkey { sprintf("%06x",refaddr(shift)) }
+our %CodeTable; # table to keep refs to anonymous subs which are passed to JS alive
+sub _code_reg {
+	my $sub = shift;
+	my ($callcode,$is_anon);
+	my $name = subname($sub);
+	if ($name=~/\b__ANON__\z/) { $is_anon=1 }
+	else { # the code ref has a name, check if it's in the symbol table
+		my ($pack,$n) = $name=~/^(.+)::(.*?)$/;
+		my $st = do { no strict 'refs'; \%{$pack.'::'} };
+		if ( exists $st->{$n} && $st->{$n} && *{$st->{$n}}{CODE} && *{$st->{$n}}{CODE}==$sub ) {
+			# the code is in the symbol table, so no CodeTable entry needed
+			$callcode = "do { no strict 'refs'; \\&{"._perlstr($name)."} }";
+		}
+		else {
+			# the code has a name but it's not what's in the symbol table, treat like anonymous
+			# (this can happen for example if the caller used Sub::Util::set_subname on an anonymous sub)
+			$is_anon=1;
+		}
+	}
+	if ($is_anon) {
+		my $subkey = _my_subkey($sub);
+		$TRACE and say STDERR "Perl new code table entry ", _perlstr($subkey);
+		$CodeTable{$subkey} = $sub;
+		$callcode = _perlstr($subkey);
+	}
+	return 'Perl.dispatch.bind(null,'
+			. $JSON->encode( 'WebPerl::_call_code('.$callcode.')' )
+		.')';
+}
+sub _call_code {
+	my $code = shift;
+	# Handing over arguments via a global JS value is not pretty, but it works for now.
+	my @args = js('Perl._call_code_args')->@*;
+	js('delete Perl._call_code_args;');
+	my $dbname;
+	if (my $r = ref $code) {
+		confess "_call_code was passed an invalid reference type: $r"
+			unless $r eq 'CODE';
+		$dbname = _perlstr(subname($code));
+	}
+	else {
+		if (!$CodeTable{$code}) {
+			js('Perl._call_code_error='.$JSON->encode("code table entry '$code' does not exist"));
+			return;
+		}
+		$dbname = _perlstr($code);
+		$code = $CodeTable{$code};
+	}
+	$TRACE and say STDERR "Perl call $dbname";
+	# Note that @args may contain JSObjects, and @args going out of scope could mean
+	# that those objects are deleted from the Perl.GlueTable before the JS has
+	# a chance to get to them - that's why we need to copy over the return value
+	# to JS here before we exit this sub.
+	my $rv;
+	if ( eval { $rv = $code->(@args); 1 } )
+		{ js('Perl._call_code_rv='._to_js($rv)) }
+	else
+		{ js('Perl._call_code_error='.$JSON->encode( "Perl code $dbname died: ".( $@ ? $@ : 'unknown error' ) )) }
+	return;
+}
+# "unregister" exists so that anonymous subs passed to JS can do: WebPerl::unregister(__SUB__);
+sub unregister {
+	croak "bad number of arguments to unregister" unless @_==1;
+	my $sub = shift;
+	my $subkey = _my_subkey($sub);
+	if (exists $CodeTable{$subkey}) {
+		$TRACE and say STDERR "Perl unregister code table entry ", _perlstr($subkey);
+		delete $CodeTable{$subkey};
+	}
+	else { carp "attempt to unregister code table entry that doesn't exist: "._perlstr($subkey) }
+	return;
+}
+sub sub_once (&) {
+	my $sub = shift;
+	return sub {
+		if (wantarray) {
+			my @rv = $sub->(@_);
+			unregister(__SUB__);
+			return @rv;
+		}
+		elsif (defined wantarray) {
+			my $rv = $sub->(@_);
+			unregister(__SUB__);
+			return $rv;
+		}
+		else {
+			$sub->(@_);
+			unregister(__SUB__);
+			return;
+		}
+	}
+}
+*sub1 = *sub1 = \&sub_once;
+
+# It seems that many of the JSON:: modules don't allow hooking so as to be able to output JS "function"s.
+# This is my current workaround, encoding the data structures manually... not pretty, but I guess it works.
+sub _to_js { #TODO Later: should we provide this to the outside as well? (what for - doesn't js() cover the users' needs?)
+	confess "bad nr of args" unless @_==1;
+	my $what = shift;
+	if (my $r = ref $what) {
+		if ($r eq 'HASH') {
+			return '{' . join(',',
+					map { $JSON->encode("$_").':'._to_js($$what{$_}) } sort keys %$what
+				) . '}';
+		}
+		elsif ($r eq 'ARRAY') {
+			return '[' . join(',', map { _to_js($_) } @$what) . ']';
+		}
+		elsif ($r eq 'CODE')
+			{ return _code_reg($what) }
+		else {
+			if (blessed($what) && $what->isa('WebPerl::JSObject')) {
+				#TODO Later: Are there any cases where we might be passing GlueTable entries to JS that are deleted by our JSObject::DESTROY before JS can get to them?
+				# (that will depend on all of the places we use _to_js())
+				return $what->jscode;
+			}
+			croak "can't encode ref $r to JS";
+		}
+	}
+	else { return $JSON->encode($what) }
+}
+
+sub _to_perl { #TODO: this needs tests
+	confess "bad nr of args" unless @_==1;
+	my $what = shift;
+	if (my $r = ref $what) {
+		if ($r eq 'HASH' && tied(%$what) && tied(%$what)->isa('WebPerl::JSObject::TiedHash')) {
+			return { map { ( $_ => _to_perl($$what{$_}) ) } keys %$what };
+		}
+		elsif ($r eq 'ARRAY' && tied(@$what) && tied(@$what)->isa('WebPerl::JSObject::TiedArray')) {
+			return [ map { _to_perl($_) } @$what ];
+		}
+		elsif (blessed($what) && $what->isa('WebPerl::JSObject')) {
+			no overloading '%{}';
+			if ($what->{type} eq 'F') { # JS Function
+				# note we don't just return $what->coderef because that doesn't keep a reference to $what alive
+				return sub { $what->coderef->(@_) }
+			}
+			elsif ($what->{type} eq 'A') { # JS Array
+				return [ map { _to_perl($_) } $what->arrayref->@* ];
+			}
+			elsif ($what->{type} eq 'O') { # JS Object
+				# I think this only keeps alive methods defined directly as keys on this object? (TODO: test)
+				my $hr = $what->hashref;
+				return { map { ( $_ => _to_perl($hr->{$_}) ) } keys $hr->%* };
+			}
+			else { confess "internal error: unexpected type "._perlstr($what->{type}) }
+		}
+		else { return $what }
+	}
+	else { return $what }
+}
+
+sub js_new { js( 'new '.shift.'('.join(',',map {_to_js($_)} @_).')' ) }
+
+{
+	package WebPerl::JSObject;
+	use Scalar::Util ();
+	use overload
+		'&{}' => \&coderef, '@{}' => \&arrayref, '%{}' => \&hashref,
+		fallback => 0; #TODO Later: overload stringify? others?
+	no overloading '%{}'; # so we can do $self->{...} without overloading
+	
+	# Note: constructor is WebPerl::js()
+	
+	sub jscode {
+		my $self = shift;
+		return 'Perl.GlueTable['.$WebPerl::JSON->encode($self->{id}).']';
+	}
+	
+	sub AUTOLOAD {
+		our $AUTOLOAD;
+		#$TRACE and say STDERR "AUTOLOAD ",_perlstr($AUTOLOAD);
+		( my $meth = $AUTOLOAD ) =~ s/^.*:://;
+		splice @_, 1, 0, $meth;
+		goto &methodcall;
+	}
+	sub methodcall {
+		my $self = shift;
+		my $meth = shift;
+		return WebPerl::js($self->jscode
+			.'['.$WebPerl::JSON->encode("$meth").']('.join(',',map {WebPerl::_to_js($_)} @_).')');
+	}
+	
+	sub coderef {
+		my $self = shift;
+		if (!$self->{sub}) {
+			my $gt = $self->jscode;
+			$self->{sub} = sub {
+				return WebPerl::js($gt.'('.join(',',map {WebPerl::_to_js($_)} @_).')');
+			};
+		}
+		return $self->{sub};
+	}
+	
+	sub arrayref {
+		my $self = shift;
+		my $array = $self->{array};
+		if (!$array) {
+			tie my @array, 'WebPerl::JSObject::TiedArray', $self;
+			$array = $self->{array} = \@array;
+			Scalar::Util::weaken($self->{array}); # tied obj holds a reference back to us, avoid circular references
+		}
+		return $array;
+	}
+	
+	sub hashref {
+		my $self = shift;
+		my $hash = $self->{hash};
+		if (!$hash) {
+			tie my %hash, 'WebPerl::JSObject::TiedHash', $self;
+			$hash = $self->{hash} = \%hash;
+			Scalar::Util::weaken($self->{hash}); # tied obj holds a reference back to us, avoid circular references
+		}
+		return $hash;
+	}
+	
+	sub toperl {
+		my $self = shift;
+		return WebPerl::_to_perl($self);
+	}
+	
+	sub DESTROY {
+		my $self = shift;
+		#use Carp 'cluck'; cluck "DESTROY WebPerl::JSObject id $self->{id}"; # debug
+		WebPerl::js('Perl.unglue('.$WebPerl::JSON->encode($self->{id}).')');
+		return;
+	}
+}
+
+{
+	package # hide from pause
+		WebPerl::JSObject::TiedArray;
+	use parent 'Tie::Array';
+	use Carp;
+	sub TIEARRAY {
+		confess "bad nr of args" unless @_==2;
+		my $class = shift;
+		my $obj = shift;
+		return bless { obj=>$obj, gt=>$obj->jscode }, $class;
+	}
+	sub FETCH {
+		my ($self,$idx) = @_;
+		$idx=~/\A\d+\z/ or croak "bad array index '$idx'";
+		return WebPerl::js($self->{gt}.'['.$idx.']');
+	}
+	sub STORE {
+		my ($self,$idx,$val) = @_;
+		$idx=~/\A\d+\z/ or croak "bad array index '$idx'";
+		WebPerl::js($self->{gt}.'['.$idx.']='.WebPerl::_to_js($val));
+		return;
+	}
+	sub FETCHSIZE {
+		my ($self) = @_;
+		return WebPerl::js($self->{gt}.'.length');
+	}
+	sub STORESIZE {
+		my ($self,$count) = @_;
+		$count=~/\A\d+\z/ or croak "bad array size '$count'";
+		WebPerl::js($self->{gt}.'.length='.$count);
+		return;
+	}
+	sub DELETE {
+		my ($self,$idx) = @_;
+		$idx=~/\A\d+\z/ or croak "bad array index '$idx'";
+		carp "WARNING: Calling delete on array values is strongly discouraged."; # as per the "delete" docs
+		WebPerl::js('delete '.$self->{gt}.'['.$idx.']');
+		return;
+	}
+	sub EXISTS {
+		my ($self,$idx) = @_;
+		my $s = $self->FETCHSIZE;
+		return $idx>=0 && $idx<$s;
+	}
+	sub EXTEND {} # not needed
+	# provided by Tie::Array:  - TODO Later: we could implement some of these more efficiently ourselves
+	#sub CLEAR {} # this
+	#sub PUSH {} # this, LIST
+	#sub POP {} # this
+	#sub SHIFT {} # this
+	#sub UNSHIFT {} # this, LIST
+	#sub SPLICE {} # this, offset, length, LIST
+	sub UNTIE {
+		my $self = shift;
+		$self->{obj} = undef;
+		return;
+	}
+	sub DESTROY {}
+}
+
+{
+	package # hide from pause
+		WebPerl::JSObject::TiedHash;
+	use Carp;
+	sub TIEHASH {
+		confess "bad nr of args" unless @_==2;
+		my $class = shift;
+		my $obj = shift;
+		return bless { obj=>$obj, gt=>$obj->jscode }, $class;
+	}
+	sub FETCH {
+		my ($self,$key) = @_;
+		return WebPerl::js($self->{gt}.'['.$WebPerl::JSON->encode("$key").']');
+	}
+	sub STORE {
+		my ($self,$key,$val) = @_;
+		WebPerl::js($self->{gt}.'['.$WebPerl::JSON->encode("$key").'] = '.WebPerl::_to_js($val));
+		return;
+	}
+	sub DELETE {
+		my ($self,$key) = @_;
+		WebPerl::js('delete '.$self->{gt}.'['.$WebPerl::JSON->encode("$key").']');
+		return;
+	}
+	sub CLEAR {
+		my ($self) = @_;
+		WebPerl::js($self->{gt}.'={}'); #TODO Later: is replacing the whole object with a new one the right approach?
+		return;
+	}
+	sub EXISTS {
+		my ($self,$key) = @_;
+		# alternatively: ('key' in obj), but that includes inherited stuff - what does the user expect here?
+		return WebPerl::js($self->{gt}.'.hasOwnProperty('.$WebPerl::JSON->encode("$key").')');
+	}
+	sub FIRSTKEY {
+		my ($self) = @_;
+		$self->{keys} = [ map {"$_"} WebPerl::js( 'Object.keys('.$self->{gt}.')' )->@* ];
+		$self->{key_idx} = 1;
+		return $self->{keys}[0];
+	}
+	sub NEXTKEY {
+		my ($self,$prevkey) = @_;
+		return $self->{keys}[ $self->{key_idx}++ ];
+	}
+	sub SCALAR {
+		my ($self) = @_;
+		return WebPerl::js( 'Object.keys('.$self->{gt}.').length' );
+	}
+	sub UNTIE {
+		my $self = shift;
+		$self->{obj} = undef;
+		return;
+	}
+	sub DESTROY {}
+}
+
+1;
+#      B.pm
+#
+#      Copyright (c) 1996, 1997, 1998 Malcolm Beattie
+#
+#      You may distribute under the terms of either the GNU General Public
+#      License or the Artistic License, as specified in the README file.
+#
+package B;
+
+@B::ISA = qw(Exporter);
+
+# If B is loaded without imports, we do not want to unnecessarily pollute the stash with Exporter.
+sub import {
+    return unless scalar @_ > 1; # Called as a method call.
+    require Exporter;
+    B->export_to_level(1, @_);
+}
+
+# walkoptree_slow comes from B.pm (you are there),
+# walkoptree comes from B.xs
+
+BEGIN {
+    $B::VERSION = '1.74';
+    @B::EXPORT_OK = ();
+
+    # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
+    # Want our constants loaded before the compiler meets OPf_KIDS below, as
+    # the combination of having the constant stay a Proxy Constant Subroutine
+    # and its value being inlined saves a little over .5K
+
+    require XSLoader;
+    XSLoader::load();
+}
+
+push @B::EXPORT_OK, (qw(minus_c ppname save_BEGINs
+			class peekop cast_I32 cstring cchar hash threadsv_names
+			main_root main_start main_cv svref_2object opnumber
+			sub_generation amagic_generation perlstring
+			walkoptree_slow walkoptree walkoptree_exec walksymtable
+			parents comppadlist sv_undef compile_stats timing_info
+			begin_av init_av check_av end_av regex_padav dowarn
+			defstash curstash warnhook diehook inc_gv @optype
+			@specialsv_name unitcheck_av safename));
+
+@B::SV::ISA = 'B::OBJECT';
+@B::NULL::ISA = 'B::SV';
+@B::PV::ISA = 'B::SV';
+@B::IV::ISA = 'B::SV';
+@B::NV::ISA = 'B::SV';
+# RV is eliminated with 5.11.0, but effectively is a specialisation of IV now.
+@B::RV::ISA = 'B::IV';
+@B::PVIV::ISA = qw(B::PV B::IV);
+@B::PVNV::ISA = qw(B::PVIV B::NV);
+@B::PVMG::ISA = 'B::PVNV';
+@B::REGEXP::ISA = 'B::PVMG';
+@B::INVLIST::ISA = 'B::PV';
+@B::PVLV::ISA = 'B::GV';
+@B::BM::ISA = 'B::GV';
+@B::AV::ISA = 'B::PVMG';
+@B::GV::ISA = 'B::PVMG';
+@B::HV::ISA = 'B::PVMG';
+@B::CV::ISA = 'B::PVMG';
+@B::IO::ISA = 'B::PVMG';
+@B::FM::ISA = 'B::CV';
+
+@B::OP::ISA = 'B::OBJECT';
+@B::UNOP::ISA = 'B::OP';
+@B::UNOP_AUX::ISA = 'B::UNOP';
+@B::BINOP::ISA = 'B::UNOP';
+@B::LOGOP::ISA = 'B::UNOP';
+@B::LISTOP::ISA = 'B::BINOP';
+@B::SVOP::ISA = 'B::OP';
+@B::PADOP::ISA = 'B::OP';
+@B::PVOP::ISA = 'B::OP';
+@B::LOOP::ISA = 'B::LISTOP';
+@B::PMOP::ISA = 'B::LISTOP';
+@B::COP::ISA = 'B::OP';
+@B::METHOP::ISA = 'B::OP';
+
+@B::SPECIAL::ISA = 'B::OBJECT';
+
+our @optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP
+                METHOP UNOP_AUX);
+# bytecode.pl contained the following comment:
+# Nullsv *must* come first in the following so that the condition
+# ($$sv == 0) can continue to be used to test (sv == Nullsv).
+our @specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no
+			(SV*)pWARN_ALL (SV*)pWARN_NONE (SV*)pWARN_STD
+                        &PL_sv_zero);
+
+{
+    # Stop "-w" from complaining about the lack of a real B::OBJECT class
+    package B::OBJECT;
+}
+
+sub B::GV::SAFENAME {
+  safename(shift()->NAME);
+}
+
+sub safename {
+  my $name = shift;
+
+  # The regex below corresponds to the isCONTROLVAR macro
+  # from toke.c
+
+  $name =~ s/^\c?/^?/
+    or $name =~ s/^([\cA-\cZ\c\\c[\c]\c_\c^])/
+                "^" .  chr( utf8::unicode_to_native( 64 ^ ord($1) ))/e;
+
+  # When we say unicode_to_native we really mean ascii_to_native,
+  # which matters iff this is a non-ASCII platform (EBCDIC).  '\c?' would
+  # not have to be special cased, except for non-ASCII.
+
+  return $name;
+}
+
+sub B::IV::int_value {
+  my ($self) = @_;
+  return (($self->FLAGS() & SVf_IVisUV()) ? $self->UVX : $self->IV);
+}
+
+sub B::NULL::as_string() {""}
+*B::IV::as_string = *B::IV::as_string = \*B::IV::int_value;
+*B::PV::as_string = *B::PV::as_string = \*B::PV::PV;
+
+#  The input typemap checking makes no distinction between different SV types,
+#  so the XS body will generate the same C code, despite the different XS
+#  "types". So there is no change in behaviour from doing "newXS" like this,
+#  compared with the old approach of having a (near) duplicate XS body.
+#  We should fix the typemap checking.
+
+#  Since perl 5.12.0
+*B::IV::RV = *B::IV::RV = \*B::PV::RV;
+
+my $debug;
+my $op_count = 0;
+my @parents = ();
+
+sub debug {
+    my ($class, $value) = @_;
+    $debug = $value;
+    walkoptree_debug($value);
+}
+
+sub class {
+    my $obj = shift;
+    my $name = ref $obj;
+    $name =~ s/^.*:://;
+    return $name;
+}
+
+sub parents { \@parents }
+
+# For debugging
+sub peekop {
+    my $op = shift;
+    return sprintf("%s (0x%x) %s", class($op), $$op, $op->name);
+}
+
+sub walkoptree_slow {
+    my($op, $method, $level) = @_;
+    $op_count++; # just for statistics
+    $level ||= 0;
+    warn(sprintf("walkoptree: %d. %s\n", $level, peekop($op))) if $debug;
+    $op->$method($level) if $op->can($method);
+    if ($$op && ($op->flags & OPf_KIDS)) {
+	my $kid;
+	unshift(@parents, $op);
+	for ($kid = $op->first; $$kid; $kid = $kid->sibling) {
+	    walkoptree_slow($kid, $method, $level + 1);
+	}
+	shift @parents;
+    }
+    if (class($op) eq 'PMOP'
+	&& ref($op->pmreplroot)
+	&& ${$op->pmreplroot}
+	&& $op->pmreplroot->isa( 'B::OP' ))
+    {
+	unshift(@parents, $op);
+	walkoptree_slow($op->pmreplroot, $method, $level + 1);
+	shift @parents;
+    }
+}
+
+sub compile_stats {
+    return "Total number of OPs processed: $op_count\n";
+}
+
+sub timing_info {
+    my ($sec, $min, $hr) = localtime;
+    my ($user, $sys) = times;
+    sprintf("%02d:%02d:%02d user=$user sys=$sys",
+	    $hr, $min, $sec, $user, $sys);
+}
+
+my %symtable;
+
+sub clearsym {
+    %symtable = ();
+}
+
+sub savesym {
+    my ($obj, $value) = @_;
+#    warn(sprintf("savesym: sym_%x => %s\n", $$obj, $value)); # debug
+    $symtable{sprintf("sym_%x", $$obj)} = $value;
+}
+
+sub objsym {
+    my $obj = shift;
+    return $symtable{sprintf("sym_%x", $$obj)};
+}
+
+sub walkoptree_exec {
+    my ($op, $method, $level) = @_;
+    $level ||= 0;
+    my ($sym, $ppname);
+    my $prefix = "    " x $level;
+    for (; $$op; $op = $op->next) {
+	$sym = objsym($op);
+	if (defined($sym)) {
+	    print $prefix, "goto $sym\n";
+	    return;
+	}
+	savesym($op, sprintf("%s (0x%lx)", class($op), $$op));
+	$op->$method($level);
+	$ppname = $op->name;
+	if ($ppname =~
+	    /^(d?or(assign)?|and(assign)?|mapwhile|grepwhile|entertry|range|cond_expr)$/)
+	{
+	    print $prefix, uc($1), " => {\n";
+	    walkoptree_exec($op->other, $method, $level + 1);
+	    print $prefix, "}\n";
+	} elsif ($ppname eq "match" || $ppname eq "subst") {
+	    my $pmreplstart = $op->pmreplstart;
+	    if ($$pmreplstart) {
+		print $prefix, "PMREPLSTART => {\n";
+		walkoptree_exec($pmreplstart, $method, $level + 1);
+		print $prefix, "}\n";
+	    }
+	} elsif ($ppname eq "substcont") {
+	    print $prefix, "SUBSTCONT => {\n";
+	    walkoptree_exec($op->other->pmreplstart, $method, $level + 1);
+	    print $prefix, "}\n";
+	    $op = $op->other;
+	} elsif ($ppname eq "enterloop") {
+	    print $prefix, "REDO => {\n";
+	    walkoptree_exec($op->redoop, $method, $level + 1);
+	    print $prefix, "}\n", $prefix, "NEXT => {\n";
+	    walkoptree_exec($op->nextop, $method, $level + 1);
+	    print $prefix, "}\n", $prefix, "LAST => {\n";
+	    walkoptree_exec($op->lastop,  $method, $level + 1);
+	    print $prefix, "}\n";
+	} elsif ($ppname eq "subst") {
+	    my $replstart = $op->pmreplstart;
+	    if ($$replstart) {
+		print $prefix, "SUBST => {\n";
+		walkoptree_exec($replstart, $method, $level + 1);
+		print $prefix, "}\n";
+	    }
+	}
+    }
+}
+
+sub walksymtable {
+    my ($symref, $method, $recurse, $prefix) = @_;
+    my $sym;
+    my $fullname;
+    no strict 'refs';
+    $prefix = '' unless defined $prefix;
+    foreach my $sym ( sort keys %$symref ) {
+        my $dummy = $symref->{$sym}; # Copying the glob and incrementing
+                                     # the GPs refcnt clears cached methods
+        $fullname = "*main::".$prefix.$sym;
+	if ($sym =~ /::$/) {
+	    $sym = $prefix . $sym;
+	    if (svref_2object(\*$sym)->NAME ne "main::" && $sym ne "<none>::" && &$recurse($sym)) {
+               walksymtable(\%$fullname, $method, $recurse, $sym);
+	    }
+	} else {
+           svref_2object(\*$fullname)->$method();
+	}
+    }
+}
+
+1;
+
+__END__
+
+package Cwd;
+use strict;
+use Exporter;
+
+
+our $VERSION = '3.74';
+my $xs_version = $VERSION;
+$VERSION =~ tr/_//d;
+
+our @ISA = qw/ Exporter /;
+our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
+push @EXPORT, qw(getdcwd) if $^O eq 'MSWin32';
+our @EXPORT_OK = qw(chdir abs_path fast_abs_path realpath fast_realpath);
+
+# sys_cwd may keep the builtin command
+
+# All the functionality of this module may provided by builtins,
+# there is no sense to process the rest of the file.
+# The best choice may be to have this in BEGIN, but how to return from BEGIN?
+
+if ($^O eq 'os2') {
+    local $^W = 0;
+
+    *cwd                = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
+    *getcwd             = \&cwd;
+    *fastgetcwd         = \&cwd;
+    *fastcwd            = \&cwd;
+
+    *fast_abs_path      = \&sys_abspath if defined &sys_abspath;
+    *abs_path           = \&fast_abs_path;
+    *realpath           = \&fast_abs_path;
+    *fast_realpath      = \&fast_abs_path;
+
+    return 1;
+}
+
+# Need to look up the feature settings on VMS.  The preferred way is to use the
+# VMS::Feature module, but that may not be available to dual life modules.
+
+my $use_vms_feature;
+BEGIN {
+    if ($^O eq 'VMS') {
+        if (eval { local $SIG{__DIE__};
+                   local @INC = @INC;
+                   pop @INC if $INC[-1] eq '.';
+                   require VMS::Feature; }) {
+            $use_vms_feature = 1;
+        }
+    }
+}
+
+# Need to look up the UNIX report mode.  This may become a dynamic mode
+# in the future.
+sub _vms_unix_rpt {
+    my $unix_rpt;
+    if ($use_vms_feature) {
+        $unix_rpt = VMS::Feature::current("filename_unix_report");
+    } else {
+        my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; 
+    }
+    return $unix_rpt;
+}
+
+# Need to look up the EFS character set mode.  This may become a dynamic
+# mode in the future.
+sub _vms_efs {
+    my $efs;
+    if ($use_vms_feature) {
+        $efs = VMS::Feature::current("efs_charset");
+    } else {
+        my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
+        $efs = $env_efs =~ /^[ET1]/i; 
+    }
+    return $efs;
+}
+
+
+# If loading the XS stuff doesn't work, we can fall back to pure perl
+if(! defined &getcwd && defined &DynaLoader::boot_DynaLoader) { # skipped on miniperl
+    require XSLoader;
+    XSLoader::load( __PACKAGE__, $xs_version);
+}
+
+# Big nasty table of function aliases
+my %METHOD_MAP =
+  (
+   VMS =>
+   {
+    cwd			=> '_vms_cwd',
+    getcwd		=> '_vms_cwd',
+    fastcwd		=> '_vms_cwd',
+    fastgetcwd		=> '_vms_cwd',
+    abs_path		=> '_vms_abs_path',
+    fast_abs_path	=> '_vms_abs_path',
+   },
+
+   MSWin32 =>
+   {
+    # We assume that &_NT_cwd is defined as an XSUB or in the core.
+    cwd			=> '_NT_cwd',
+    getcwd		=> '_NT_cwd',
+    fastcwd		=> '_NT_cwd',
+    fastgetcwd		=> '_NT_cwd',
+    abs_path		=> 'fast_abs_path',
+    realpath		=> 'fast_abs_path',
+   },
+
+   dos => 
+   {
+    cwd			=> '_dos_cwd',
+    getcwd		=> '_dos_cwd',
+    fastgetcwd		=> '_dos_cwd',
+    fastcwd		=> '_dos_cwd',
+    abs_path		=> 'fast_abs_path',
+   },
+
+   # QNX4.  QNX6 has a $os of 'nto'.
+   qnx =>
+   {
+    cwd			=> '_qnx_cwd',
+    getcwd		=> '_qnx_cwd',
+    fastgetcwd		=> '_qnx_cwd',
+    fastcwd		=> '_qnx_cwd',
+    abs_path		=> '_qnx_abs_path',
+    fast_abs_path	=> '_qnx_abs_path',
+   },
+
+   cygwin =>
+   {
+    getcwd		=> 'cwd',
+    fastgetcwd		=> 'cwd',
+    fastcwd		=> 'cwd',
+    abs_path		=> 'fast_abs_path',
+    realpath		=> 'fast_abs_path',
+   },
+
+   amigaos =>
+   {
+    getcwd              => '_backtick_pwd',
+    fastgetcwd          => '_backtick_pwd',
+    fastcwd             => '_backtick_pwd',
+    abs_path            => 'fast_abs_path',
+   }
+  );
+
+$METHOD_MAP{NT} = $METHOD_MAP{MSWin32};
+
+
+# Find the pwd command in the expected locations.  We assume these
+# are safe.  This prevents _backtick_pwd() consulting $ENV{PATH}
+# so everything works under taint mode.
+my $pwd_cmd;
+if($^O ne 'MSWin32') {
+    foreach my $try ('/bin/pwd',
+		     '/usr/bin/pwd',
+		     '/QOpenSys/bin/pwd', # OS/400 PASE.
+		    ) {
+	if( -x $try ) {
+	    $pwd_cmd = $try;
+	    last;
+	}
+    }
+}
+
+# Android has a built-in pwd. Using $pwd_cmd will DTRT if
+# this perl was compiled with -Dd_useshellcmds, which is the
+# default for Android, but the block below is needed for the
+# miniperl running on the host when cross-compiling, and
+# potentially for native builds with -Ud_useshellcmds.
+if ($^O =~ /android/) {
+    # If targetsh is executable, then we're either a full
+    # perl, or a miniperl for a native build.
+    if (-x $Config::Config{targetsh}) {
+        $pwd_cmd = "$Config::Config{targetsh} -c pwd"
+    }
+    else {
+        my $sh = $Config::Config{sh} || (-x '/system/bin/sh' ? '/system/bin/sh' : 'sh');
+        $pwd_cmd = "$sh -c pwd"
+    }
+}
+
+my $found_pwd_cmd = defined($pwd_cmd);
+unless ($pwd_cmd) {
+    # Isn't this wrong?  _backtick_pwd() will fail if someone has
+    # pwd in their path but it is not /bin/pwd or /usr/bin/pwd?
+    # See [perl #16774]. --jhi
+    $pwd_cmd = 'pwd';
+}
+
+# Lazy-load Carp
+sub _carp  { require Carp; Carp::carp(@_)  }
+sub _croak { require Carp; Carp::croak(@_) }
+
+# The 'natural and safe form' for UNIX (pwd may be setuid root)
+sub _backtick_pwd {
+
+    # Localize %ENV entries in a way that won't create new hash keys.
+    # Under AmigaOS we don't want to localize as it stops perl from
+    # finding 'sh' in the PATH.
+    my @localize = grep exists $ENV{$_}, qw(PATH IFS CDPATH ENV BASH_ENV) if $^O ne "amigaos";
+    local @ENV{@localize} if @localize;
+    
+    my $cwd = `$pwd_cmd`;
+    # Belt-and-suspenders in case someone said "undef $/".
+    local $/ = "\n";
+    # `pwd` may fail e.g. if the disk is full
+    chomp($cwd) if defined $cwd;
+    $cwd;
+}
+
+# Since some ports may predefine cwd internally (e.g., NT)
+# we take care not to override an existing definition for cwd().
+
+unless ($METHOD_MAP{$^O}{cwd} or defined &cwd) {
+    # The pwd command is not available in some chroot(2)'ed environments
+    my $sep = $Config::Config{path_sep} || ':';
+    my $os = $^O;  # Protect $^O from tainting
+
+
+    # Try again to find a pwd, this time searching the whole PATH.
+    if (defined $ENV{PATH} and $os ne 'MSWin32') {  # no pwd on Windows
+	my @candidates = split($sep, $ENV{PATH});
+	while (!$found_pwd_cmd and @candidates) {
+	    my $candidate = shift @candidates;
+	    $found_pwd_cmd = 1 if -x "$candidate/pwd";
+	}
+    }
+
+    if( $found_pwd_cmd )
+    {
+	*cwd = \&_backtick_pwd;
+    }
+    else {
+	*cwd = \&getcwd;
+    }
+}
+
+if ($^O eq 'cygwin') {
+  # We need to make sure cwd() is called with no args, because it's
+  # got an arg-less prototype and will die if args are present.
+  local $^W = 0;
+  my $orig_cwd = \&cwd;
+  *cwd = sub { &$orig_cwd() }
+}
+
+
+# set a reasonable (and very safe) default for fastgetcwd, in case it
+# isn't redefined later (20001212 rspier)
+*fastgetcwd = \&cwd;
+
+# A non-XS version of getcwd() - also used to bootstrap the perl build
+# process, when miniperl is running and no XS loading happens.
+sub _perl_getcwd
+{
+    abs_path('.');
+}
+
+# By John Bazik
+#
+# Usage: $cwd = &fastcwd;
+#
+# This is a faster version of getcwd.  It's also more dangerous because
+# you might chdir out of a directory that you can't chdir back into.
+    
+sub fastcwd_ {
+    my($odev, $oino, $cdev, $cino, $tdev, $tino);
+    my(@path, $path);
+    local(*DIR);
+
+    my($orig_cdev, $orig_cino) = stat('.');
+    ($cdev, $cino) = ($orig_cdev, $orig_cino);
+    for (;;) {
+	my $direntry;
+	($odev, $oino) = ($cdev, $cino);
+	CORE::chdir('..') || return undef;
+	($cdev, $cino) = stat('.');
+	last if $odev == $cdev && $oino == $cino;
+	opendir(DIR, '.') || return undef;
+	for (;;) {
+	    $direntry = readdir(DIR);
+	    last unless defined $direntry;
+	    next if $direntry eq '.';
+	    next if $direntry eq '..';
+
+	    ($tdev, $tino) = lstat($direntry);
+	    last unless $tdev != $odev || $tino != $oino;
+	}
+	closedir(DIR);
+	return undef unless defined $direntry; # should never happen
+	unshift(@path, $direntry);
+    }
+    $path = '/' . join('/', @path);
+    if ($^O eq 'apollo') { $path = "/".$path; }
+    # At this point $path may be tainted (if tainting) and chdir would fail.
+    # Untaint it then check that we landed where we started.
+    $path =~ /^(.*)\z/s		# untaint
+	&& CORE::chdir($1) or return undef;
+    ($cdev, $cino) = stat('.');
+    die "Unstable directory path, current directory changed unexpectedly"
+	if $cdev != $orig_cdev || $cino != $orig_cino;
+    $path;
+}
+if (not defined &fastcwd) { *fastcwd = \&fastcwd_ }
+
+
+# Keeps track of current working directory in PWD environment var
+# Usage:
+#	use Cwd 'chdir';
+#	chdir $newdir;
+
+my $chdir_init = 0;
+
+sub chdir_init {
+    if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') {
+	my($dd,$di) = stat('.');
+	my($pd,$pi) = stat($ENV{'PWD'});
+	if (!defined $dd or !defined $pd or $di != $pi or $dd != $pd) {
+	    $ENV{'PWD'} = cwd();
+	}
+    }
+    else {
+	my $wd = cwd();
+	$wd = Win32::GetFullPathName($wd) if $^O eq 'MSWin32';
+	$ENV{'PWD'} = $wd;
+    }
+    # Strip an automounter prefix (where /tmp_mnt/foo/bar == /foo/bar)
+    if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s) {
+	my($pd,$pi) = stat($2);
+	my($dd,$di) = stat($1);
+	if (defined $pd and defined $dd and $di == $pi and $dd == $pd) {
+	    $ENV{'PWD'}="$2$3";
+	}
+    }
+    $chdir_init = 1;
+}
+
+sub chdir {
+    my $newdir = @_ ? shift : '';	# allow for no arg (chdir to HOME dir)
+    if ($^O eq "cygwin") {
+      $newdir =~ s|\A///+|//|;
+      $newdir =~ s|(?<=[^/])//+|/|g;
+    }
+    elsif ($^O ne 'MSWin32') {
+      $newdir =~ s|///*|/|g;
+    }
+    chdir_init() unless $chdir_init;
+    my $newpwd;
+    if ($^O eq 'MSWin32') {
+	# get the full path name *before* the chdir()
+	$newpwd = Win32::GetFullPathName($newdir);
+    }
+
+    return 0 unless CORE::chdir $newdir;
+
+    if ($^O eq 'VMS') {
+	return $ENV{'PWD'} = $ENV{'DEFAULT'}
+    }
+    elsif ($^O eq 'MSWin32') {
+	$ENV{'PWD'} = $newpwd;
+	return 1;
+    }
+
+    if (ref $newdir eq 'GLOB') { # in case a file/dir handle is passed in
+	$ENV{'PWD'} = cwd();
+    } elsif ($newdir =~ m#^/#s) {
+	$ENV{'PWD'} = $newdir;
+    } else {
+	my @curdir = split(m#/#,$ENV{'PWD'});
+	@curdir = ('') unless @curdir;
+	my $component;
+	foreach $component (split(m#/#, $newdir)) {
+	    next if $component eq '.';
+	    pop(@curdir),next if $component eq '..';
+	    push(@curdir,$component);
+	}
+	$ENV{'PWD'} = join('/',@curdir) || '/';
+    }
+    1;
+}
+
+
+sub _perl_abs_path
+{
+    my $start = @_ ? shift : '.';
+    my($dotdots, $cwd, @pst, @cst, $dir, @tst);
+
+    unless (@cst = stat( $start ))
+    {
+	return undef;
+    }
+
+    unless (-d _) {
+        # Make sure we can be invoked on plain files, not just directories.
+        # NOTE that this routine assumes that '/' is the only directory separator.
+	
+        my ($dir, $file) = $start =~ m{^(.*)/(.+)$}
+	    or return cwd() . '/' . $start;
+	
+	# Can't use "-l _" here, because the previous stat was a stat(), not an lstat().
+	if (-l $start) {
+	    my $link_target = readlink($start);
+	    die "Can't resolve link $start: $!" unless defined $link_target;
+	    
+	    require File::Spec;
+            $link_target = $dir . '/' . $link_target
+                unless File::Spec->file_name_is_absolute($link_target);
+	    
+	    return abs_path($link_target);
+	}
+	
+	return $dir ? abs_path($dir) . "/$file" : "/$file";
+    }
+
+    $cwd = '';
+    $dotdots = $start;
+    do
+    {
+	$dotdots .= '/..';
+	@pst = @cst;
+	local *PARENT;
+	unless (opendir(PARENT, $dotdots))
+	{
+	    return undef;
+	}
+	unless (@cst = stat($dotdots))
+	{
+	    my $e = $!;
+	    closedir(PARENT);
+	    $! = $e;
+	    return undef;
+	}
+	if ($pst[0] == $cst[0] && $pst[1] == $cst[1])
+	{
+	    $dir = undef;
+	}
+	else
+	{
+	    do
+	    {
+		unless (defined ($dir = readdir(PARENT)))
+	        {
+		    closedir(PARENT);
+		    require Errno;
+		    $! = Errno::ENOENT();
+		    return undef;
+		}
+		$tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir"))
+	    }
+	    while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
+		   $tst[1] != $pst[1]);
+	}
+	$cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
+	closedir(PARENT);
+    } while (defined $dir);
+    chop($cwd) unless $cwd eq '/'; # drop the trailing /
+    $cwd;
+}
+
+
+my $Curdir;
+sub fast_abs_path {
+    local $ENV{PWD} = $ENV{PWD} || ''; # Guard against clobberage
+    my $cwd = getcwd();
+    defined $cwd or return undef;
+    require File::Spec;
+    my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir);
+
+    # Detaint else we'll explode in taint mode.  This is safe because
+    # we're not doing anything dangerous with it.
+    ($path) = $path =~ /(.*)/s;
+    ($cwd)  = $cwd  =~ /(.*)/s;
+
+    unless (-e $path) {
+	require Errno;
+	$! = Errno::ENOENT();
+	return undef;
+    }
+
+    unless (-d _) {
+        # Make sure we can be invoked on plain files, not just directories.
+	
+	my ($vol, $dir, $file) = File::Spec->splitpath($path);
+	return File::Spec->catfile($cwd, $path) unless length $dir;
+
+	if (-l $path) {
+	    my $link_target = readlink($path);
+	    defined $link_target or return undef;
+	    
+	    $link_target = File::Spec->catpath($vol, $dir, $link_target)
+                unless File::Spec->file_name_is_absolute($link_target);
+	    
+	    return fast_abs_path($link_target);
+	}
+	
+	return $dir eq File::Spec->rootdir
+	  ? File::Spec->catpath($vol, $dir, $file)
+	  : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file;
+    }
+
+    if (!CORE::chdir($path)) {
+	return undef;
+    }
+    my $realpath = getcwd();
+    if (! ((-d $cwd) && (CORE::chdir($cwd)))) {
+ 	_croak("Cannot chdir back to $cwd: $!");
+    }
+    $realpath;
+}
+
+# added function alias to follow principle of least surprise
+# based on previous aliasing.  --tchrist 27-Jan-00
+*fast_realpath = \&fast_abs_path;
+
+
+# --- PORTING SECTION ---
+
+# VMS: $ENV{'DEFAULT'} points to default directory at all times
+# 06-Mar-1996  Charles Bailey  bailey@newman.upenn.edu
+# Note: Use of Cwd::chdir() causes the logical name PWD to be defined
+#   in the process logical name table as the default device and directory
+#   seen by Perl. This may not be the same as the default device
+#   and directory seen by DCL after Perl exits, since the effects
+#   the CRTL chdir() function persist only until Perl exits.
+
+sub _vms_cwd {
+    return $ENV{'DEFAULT'};
+}
+
+sub _vms_abs_path {
+    return $ENV{'DEFAULT'} unless @_;
+    my $path = shift;
+
+    my $efs = _vms_efs;
+    my $unix_rpt = _vms_unix_rpt;
+
+    if (defined &VMS::Filespec::vmsrealpath) {
+        my $path_unix = 0;
+        my $path_vms = 0;
+
+        $path_unix = 1 if ($path =~ m#(?<=\^)/#);
+        $path_unix = 1 if ($path =~ /^\.\.?$/);
+        $path_vms = 1 if ($path =~ m#[\[<\]]#);
+        $path_vms = 1 if ($path =~ /^--?$/);
+
+        my $unix_mode = $path_unix;
+        if ($efs) {
+            # In case of a tie, the Unix report mode decides.
+            if ($path_vms == $path_unix) {
+                $unix_mode = $unix_rpt;
+            } else {
+                $unix_mode = 0 if $path_vms;
+            }
+        }
+
+        if ($unix_mode) {
+            # Unix format
+            return VMS::Filespec::unixrealpath($path);
+        }
+
+	# VMS format
+
+	my $new_path = VMS::Filespec::vmsrealpath($path);
+
+	# Perl expects directories to be in directory format
+	$new_path = VMS::Filespec::pathify($new_path) if -d $path;
+	return $new_path;
+    }
+
+    # Fallback to older algorithm if correct ones are not
+    # available.
+
+    if (-l $path) {
+        my $link_target = readlink($path);
+        die "Can't resolve link $path: $!" unless defined $link_target;
+
+        return _vms_abs_path($link_target);
+    }
+
+    # may need to turn foo.dir into [.foo]
+    my $pathified = VMS::Filespec::pathify($path);
+    $path = $pathified if defined $pathified;
+	
+    return VMS::Filespec::rmsexpand($path);
+}
+
+sub _os2_cwd {
+    my $pwd = `cmd /c cd`;
+    chomp $pwd;
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _win32_cwd_simple {
+    my $pwd = `cd`;
+    chomp $pwd;
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _win32_cwd {
+    my $pwd;
+    $pwd = Win32::GetCwd();
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_win32_cwd_simple;
+
+sub _dos_cwd {
+    my $pwd;
+    if (!defined &Dos::GetCwd) {
+        chomp($pwd = `command /c cd`);
+        $pwd =~ s:\\:/:g ;
+    } else {
+        $pwd = Dos::GetCwd();
+    }
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _qnx_cwd {
+	local $ENV{PATH} = '';
+	local $ENV{CDPATH} = '';
+	local $ENV{ENV} = '';
+    my $pwd = `/usr/bin/fullpath -t`;
+    chomp $pwd;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _qnx_abs_path {
+	local $ENV{PATH} = '';
+	local $ENV{CDPATH} = '';
+	local $ENV{ENV} = '';
+    my $path = @_ ? shift : '.';
+    local *REALPATH;
+
+    defined( open(REALPATH, '-|') || exec '/usr/bin/fullpath', '-t', $path ) or
+      die "Can't open /usr/bin/fullpath: $!";
+    my $realpath = <REALPATH>;
+    close REALPATH;
+    chomp $realpath;
+    return $realpath;
+}
+
+# Now that all the base-level functions are set up, alias the
+# user-level functions to the right places
+
+if (exists $METHOD_MAP{$^O}) {
+  my $map = $METHOD_MAP{$^O};
+  foreach my $name (keys %$map) {
+    local $^W = 0;  # assignments trigger 'subroutine redefined' warning
+    no strict 'refs';
+    *{$name} = \&{$map->{$name}};
+  }
+}
+
+# In case the XS version doesn't load.
+*abs_path = \&_perl_abs_path unless defined &abs_path;
+*getcwd = \&_perl_getcwd unless defined &getcwd;
+
+# added function alias for those of us more
+# used to the libc function.  --tchrist 27-Jan-00
+*realpath = \&abs_path;
+
+1;
+__END__
+
+package SDBM_File;
+
+use strict;
+use warnings;
+
+require Tie::Hash;
+require XSLoader;
+
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.14";
+
+our @EXPORT_OK = qw(PAGFEXT DIRFEXT PAIRMAX);
+use Exporter "import";
+
+XSLoader::load();
+
+1;
+
+__END__
+
+package Opcode;
+
+use 5.006_001;
+
+use strict;
+
+our($VERSION, @ISA, @EXPORT_OK);
+
+$VERSION = "1.43";
+
+use Carp;
+use Exporter ();
+use XSLoader;
+
+BEGIN {
+    @ISA = qw(Exporter);
+    @EXPORT_OK = qw(
+	opset ops_to_opset
+	opset_to_ops opset_to_hex invert_opset
+	empty_opset full_opset
+	opdesc opcodes opmask define_optag
+	opmask_add verify_opset opdump
+    );
+}
+
+sub opset (;@);
+sub opset_to_hex ($);
+sub opdump (;$);
+use subs @EXPORT_OK;
+
+XSLoader::load();
+
+_init_optags();
+
+sub ops_to_opset { opset @_ }	# alias for old name
+
+sub opset_to_hex ($) {
+    return "(invalid opset)" unless verify_opset($_[0]);
+    unpack("h*",$_[0]);
+}
+
+sub opdump (;$) {
+	my $pat = shift;
+    # handy utility: perl -MOpcode=opdump -e 'opdump File'
+    foreach(opset_to_ops(full_opset)) {
+        my $op = sprintf "  %12s  %s\n", $_, opdesc($_);
+		next if defined $pat and $op !~ m/$pat/i;
+		print $op;
+    }
+}
+
+
+
+sub _init_optags {
+    my(%all, %seen);
+    @all{opset_to_ops(full_opset)} = (); # keys only
+
+    local($_);
+    local($/) = "\n=cut"; # skip to optags definition section
+    <DATA>;
+    $/ = "\n=";		# now read in 'pod section' chunks
+    while(<DATA>) {
+	next unless m/^item\s+(:\w+)/;
+	my $tag = $1;
+
+	# Split into lines, keep only indented lines
+	my @lines = grep { m/^\s/    } split(/\n/);
+	foreach (@lines) { s/(?:\t|--).*//  } # delete comments
+	my @ops   = map  { split ' ' } @lines; # get op words
+
+	foreach(@ops) {
+	    warn "$tag - $_ already tagged in $seen{$_}\n" if $seen{$_};
+	    $seen{$_} = $tag;
+	    delete $all{$_};
+	}
+	# opset will croak on invalid names
+	define_optag($tag, opset(@ops));
+    }
+    close(DATA);
+    warn "Untagged opnames: ".join(' ',keys %all)."\n" if %all;
+}
+
+
+1;
+
+__DATA__
+
+
+# the =cut above is used by _init_optags() to get here quickly
+
+
+package Fcntl;
+
+
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+require Exporter;
+require XSLoader;
+@ISA = qw(Exporter);
+$VERSION = '1.13';
+
+XSLoader::load();
+
+# Named groups of exports
+%EXPORT_TAGS = (
+    'flock'   => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
+    'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
+		     FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
+    'seek'    => [qw(SEEK_SET SEEK_CUR SEEK_END)],
+    'mode'    => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
+		     _S_IFMT S_IFREG S_IFDIR S_IFLNK
+		     S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
+		     S_IRUSR S_IWUSR S_IXUSR S_IRWXU
+		     S_IRGRP S_IWGRP S_IXGRP S_IRWXG
+		     S_IROTH S_IWOTH S_IXOTH S_IRWXO
+		     S_IREAD S_IWRITE S_IEXEC
+		     S_ISREG S_ISDIR S_ISLNK S_ISSOCK
+		     S_ISBLK S_ISCHR S_ISFIFO
+		     S_ISWHT S_ISENFMT		
+		     S_IFMT S_IMODE
+                  )],
+);
+
+# Items to export into callers namespace by default
+# (move infrequently used names to @EXPORT_OK below)
+@EXPORT =
+  qw(
+	FD_CLOEXEC
+	F_ALLOCSP
+	F_ALLOCSP64
+	F_COMPAT
+	F_DUP2FD
+	F_DUPFD
+	F_EXLCK
+	F_FREESP
+	F_FREESP64
+	F_FSYNC
+	F_FSYNC64
+	F_GETFD
+	F_GETFL
+	F_GETLK
+	F_GETLK64
+	F_GETOWN
+	F_NODNY
+	F_POSIX
+	F_RDACC
+	F_RDDNY
+	F_RDLCK
+	F_RWACC
+	F_RWDNY
+	F_SETFD
+	F_SETFL
+	F_SETLK
+	F_SETLK64
+	F_SETLKW
+	F_SETLKW64
+	F_SETOWN
+	F_SHARE
+	F_SHLCK
+	F_UNLCK
+	F_UNSHARE
+	F_WRACC
+	F_WRDNY
+	F_WRLCK
+	O_ACCMODE
+	O_ALIAS
+	O_APPEND
+	O_ASYNC
+	O_BINARY
+	O_CREAT
+	O_DEFER
+	O_DIRECT
+	O_DIRECTORY
+	O_DSYNC
+	O_EXCL
+	O_EXLOCK
+	O_LARGEFILE
+	O_NDELAY
+	O_NOCTTY
+	O_NOFOLLOW
+	O_NOINHERIT
+	O_NONBLOCK
+	O_RANDOM
+	O_RAW
+	O_RDONLY
+	O_RDWR
+	O_RSRC
+	O_RSYNC
+	O_SEQUENTIAL
+	O_SHLOCK
+	O_SYNC
+	O_TEMPORARY
+	O_TEXT
+	O_TRUNC
+	O_WRONLY
+     );
+
+# Other items we are prepared to export if requested
+@EXPORT_OK = (qw(
+	DN_ACCESS
+	DN_ATTRIB
+	DN_CREATE
+	DN_DELETE
+	DN_MODIFY
+	DN_MULTISHOT
+	DN_RENAME
+	F_GETLEASE
+	F_GETPIPE_SZ
+	F_GETSIG
+	F_NOTIFY
+	F_SETLEASE
+	F_SETPIPE_SZ
+	F_SETSIG
+	LOCK_MAND
+	LOCK_READ
+	LOCK_RW
+	LOCK_WRITE
+        O_ALT_IO
+        O_EVTONLY
+	O_IGNORE_CTTY
+	O_NOATIME
+	O_NOLINK
+        O_NOSIGPIPE
+	O_NOTRANS
+        O_SYMLINK
+        O_TTY_INIT
+), map {@{$_}} values %EXPORT_TAGS);
+
+1;
+package ops;
+
+our $VERSION = '1.02';
+
+use Opcode qw(opmask_add opset invert_opset);
+
+sub import {
+    shift;
+    # Not that unimport is the preferred form since import's don't
+	# accumulate well owing to the 'only ever add opmask' rule.
+	# E.g., perl -Mops=:set1 -Mops=:setb is unlikely to do as expected.
+    opmask_add(invert_opset opset(@_)) if @_;
+}
+
+sub unimport {
+    shift;
+    opmask_add(opset(@_)) if @_;
+}
+
+1;
+
+__END__
+
+
+package O;
+
+our $VERSION = '1.03';
+
+use B ();
+
+our $BEGIN_output;
+our $saveout_fh;
+
+sub import {
+    my ($class, @options) = @_;
+    my ($quiet, $veryquiet) = (0, 0);
+    if ($options[0] eq '-q' || $options[0] eq '-qq') {
+	$quiet = 1;
+	open ($saveout_fh, ">&", STDOUT);
+	close STDOUT;
+	open (STDOUT, ">", \$O::BEGIN_output);
+	if ($options[0] eq '-qq') {
+	    $veryquiet = 1;
+	}
+	shift @options;
+    }
+    my $backend = shift (@options);
+    eval q[
+	BEGIN {
+	    B::minus_c;
+	    B::save_BEGINs;
+	}
+
+	CHECK {
+	    if ($quiet) {
+		close STDOUT;
+		open (STDOUT, ">&", $saveout_fh);
+		close $saveout_fh;
+	    }
+
+	    # Note: if you change the code after this 'use', please
+	    # change the fudge factors in B::Concise (grep for
+	    # "fragile kludge") so that its output still looks
+	    # nice. Thanks. --smcc
+	    use B::].$backend.q[ ();
+
+	    my $compilesub = &{"B::${backend}::compile"}(@options);
+	    if (ref($compilesub) ne "CODE") {
+		die $compilesub;
+	    }
+
+	    local $savebackslash = $\;
+	    local ($\,$",$,) = (undef,' ','');
+	    &$compilesub();
+
+	    close STDERR if $veryquiet;
+	}
+    ];
+    if ($@) {
+        my $msg = "$@";
+        require Carp;
+        Carp::croak("Loading compiler backend 'B::$backend' failed: $msg");
+    }
+}
+
+1;
+
+__END__
+
+package Socket;
+
+use strict;
+{ use 5.006001; }
+
+our $VERSION = '2.027';
+
+
+
+
+# Still undocumented: SCM_*, SOMAXCONN, IOV_MAX, UIO_MAXIOV
+
+
+
+
+
+
+
+use Carp;
+use warnings::register;
+
+require Exporter;
+require XSLoader;
+our @ISA = qw(Exporter);
+
+# <@Nicholas> you can't change @EXPORT without breaking the implicit API
+# Please put any new constants in @EXPORT_OK!
+
+# List re-ordered to match documentation above. Try to keep the ordering
+# consistent so it's easier to see which ones are or aren't documented.
+our @EXPORT = qw(
+	PF_802 PF_AAL PF_APPLETALK PF_CCITT PF_CHAOS PF_CTF PF_DATAKIT
+	PF_DECnet PF_DLI PF_ECMA PF_GOSIP PF_HYLINK PF_IMPLINK PF_INET PF_INET6
+	PF_ISO PF_KEY PF_LAST PF_LAT PF_LINK PF_MAX PF_NBS PF_NIT PF_NS PF_OSI
+	PF_OSINET PF_PUP PF_ROUTE PF_SNA PF_UNIX PF_UNSPEC PF_USER PF_WAN
+	PF_X25
+
+	AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT
+	AF_DECnet AF_DLI AF_ECMA AF_GOSIP AF_HYLINK AF_IMPLINK AF_INET AF_INET6
+	AF_ISO AF_KEY AF_LAST AF_LAT AF_LINK AF_MAX AF_NBS AF_NIT AF_NS AF_OSI
+	AF_OSINET AF_PUP AF_ROUTE AF_SNA AF_UNIX AF_UNSPEC AF_USER AF_WAN
+	AF_X25
+
+	SOCK_DGRAM SOCK_RAW SOCK_RDM SOCK_SEQPACKET SOCK_STREAM
+
+	SOL_SOCKET
+
+	SO_ACCEPTCONN SO_ATTACH_FILTER SO_BACKLOG SO_BROADCAST SO_CHAMELEON
+	SO_DEBUG SO_DETACH_FILTER SO_DGRAM_ERRIND SO_DOMAIN SO_DONTLINGER
+	SO_DONTROUTE SO_ERROR SO_FAMILY SO_KEEPALIVE SO_LINGER SO_OOBINLINE
+	SO_PASSCRED SO_PASSIFNAME SO_PEERCRED SO_PROTOCOL SO_PROTOTYPE
+	SO_RCVBUF SO_RCVLOWAT SO_RCVTIMEO SO_REUSEADDR SO_REUSEPORT
+	SO_SECURITY_AUTHENTICATION SO_SECURITY_ENCRYPTION_NETWORK
+	SO_SECURITY_ENCRYPTION_TRANSPORT SO_SNDBUF SO_SNDLOWAT SO_SNDTIMEO
+	SO_STATE SO_TYPE SO_USELOOPBACK SO_XOPEN SO_XSE
+
+	IP_HDRINCL IP_OPTIONS IP_RECVOPTS IP_RECVRETOPTS IP_RETOPTS IP_TOS
+	IP_TTL
+
+	MSG_BCAST MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_CTRUNC MSG_DONTROUTE
+	MSG_DONTWAIT MSG_EOF MSG_EOR MSG_ERRQUEUE MSG_ETAG MSG_FASTOPEN MSG_FIN
+	MSG_MAXIOVLEN MSG_MCAST MSG_NOSIGNAL MSG_OOB MSG_PEEK MSG_PROXY MSG_RST
+	MSG_SYN MSG_TRUNC MSG_URG MSG_WAITALL MSG_WIRE
+
+	SHUT_RD SHUT_RDWR SHUT_WR
+
+	INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE
+
+	SCM_CONNECT SCM_CREDENTIALS SCM_CREDS SCM_RIGHTS SCM_TIMESTAMP
+
+	SOMAXCONN
+
+	IOV_MAX
+	UIO_MAXIOV
+
+	sockaddr_family
+	pack_sockaddr_in  unpack_sockaddr_in  sockaddr_in
+	pack_sockaddr_in6 unpack_sockaddr_in6 sockaddr_in6
+	pack_sockaddr_un  unpack_sockaddr_un  sockaddr_un 
+
+	inet_aton inet_ntoa
+);
+
+# List re-ordered to match documentation above. Try to keep the ordering
+# consistent so it's easier to see which ones are or aren't documented.
+our @EXPORT_OK = qw(
+	CR LF CRLF $CR $LF $CRLF
+
+	SOCK_NONBLOCK SOCK_CLOEXEC
+
+	IP_ADD_MEMBERSHIP IP_ADD_SOURCE_MEMBERSHIP IP_BIND_ADDRESS_NO_PORT
+	IP_DROP_MEMBERSHIP IP_DROP_SOURCE_MEMBERSHIP IP_FREEBIND
+	IP_MULTICAST_ALL IP_MULTICAST_IF IP_MULTICAST_LOOP IP_MULTICAST_TTL
+	IP_MTU IP_MTU_DISCOVER IP_NODEFRAG IP_RECVERR IP_TRANSPARENT
+
+	IPPROTO_IP IPPROTO_IPV6 IPPROTO_RAW IPPROTO_ICMP IPPROTO_IGMP
+	IPPROTO_TCP IPPROTO_UDP IPPROTO_GRE IPPROTO_ESP IPPROTO_AH
+	IPPROTO_ICMPV6 IPPROTO_SCTP
+
+	IP_PMTUDISC_DO IP_PMTUDISC_DONT IP_PMTUDISC_PROBE IP_PMTUDISC_WANT
+
+	IPTOS_LOWDELAY IPTOS_THROUGHPUT IPTOS_RELIABILITY IPTOS_MINCOST
+
+	TCP_CONGESTION TCP_CONNECTIONTIMEOUT TCP_CORK TCP_DEFER_ACCEPT
+	TCP_FASTOPEN TCP_INFO TCP_INIT_CWND TCP_KEEPALIVE TCP_KEEPCNT
+	TCP_KEEPIDLE TCP_KEEPINTVL TCP_LINGER2 TCP_MAXRT TCP_MAXSEG
+	TCP_MD5SIG TCP_NODELAY TCP_NOOPT TCP_NOPUSH TCP_QUICKACK
+	TCP_SACK_ENABLE TCP_STDURG TCP_SYNCNT TCP_USER_TIMEOUT
+	TCP_WINDOW_CLAMP
+
+	IN6ADDR_ANY IN6ADDR_LOOPBACK
+
+	IPV6_ADDRFROM IPV6_ADD_MEMBERSHIP IPV6_DROP_MEMBERSHIP IPV6_JOIN_GROUP
+	IPV6_LEAVE_GROUP IPV6_MTU IPV6_MTU_DISCOVER IPV6_MULTICAST_HOPS
+	IPV6_MULTICAST_IF IPV6_MULTICAST_LOOP IPV6_RECVERR IPV6_ROUTER_ALERT
+	IPV6_UNICAST_HOPS IPV6_V6ONLY
+
+	SO_LOCK_FILTER SO_RCVBUFFORCE SO_SNDBUFFORCE
+
+	pack_ip_mreq unpack_ip_mreq pack_ip_mreq_source unpack_ip_mreq_source
+
+	pack_ipv6_mreq unpack_ipv6_mreq
+
+	inet_pton inet_ntop
+
+	getaddrinfo getnameinfo
+
+	AI_ADDRCONFIG AI_ALL AI_CANONIDN AI_CANONNAME AI_IDN
+	AI_IDN_ALLOW_UNASSIGNED AI_IDN_USE_STD3_ASCII_RULES AI_NUMERICHOST
+	AI_NUMERICSERV AI_PASSIVE AI_V4MAPPED
+
+	NI_DGRAM NI_IDN NI_IDN_ALLOW_UNASSIGNED NI_IDN_USE_STD3_ASCII_RULES
+	NI_NAMEREQD NI_NOFQDN NI_NUMERICHOST NI_NUMERICSERV
+
+	NIx_NOHOST NIx_NOSERV
+
+	EAI_ADDRFAMILY EAI_AGAIN EAI_BADFLAGS EAI_BADHINTS EAI_FAIL EAI_FAMILY
+	EAI_NODATA EAI_NONAME EAI_PROTOCOL EAI_SERVICE EAI_SOCKTYPE EAI_SYSTEM
+);
+
+our %EXPORT_TAGS = (
+    crlf     => [qw(CR LF CRLF $CR $LF $CRLF)],
+    addrinfo => [qw(getaddrinfo getnameinfo), grep m/^(?:AI|NI|NIx|EAI)_/, @EXPORT_OK],
+    all      => [@EXPORT, @EXPORT_OK],
+);
+
+BEGIN {
+    sub CR   () {"\015"}
+    sub LF   () {"\012"}
+    sub CRLF () {"\015\012"}
+
+    # These are not gni() constants; they're extensions for the perl API
+    # The definitions in Socket.pm and Socket.xs must match
+    sub NIx_NOHOST() {1 << 0}
+    sub NIx_NOSERV() {1 << 1}
+}
+
+*CR   = \CR();
+*LF   = \LF();
+*CRLF = \CRLF();
+
+sub sockaddr_in {
+    if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
+	my($af, $port, @quad) = @_;
+	warnings::warn "6-ARG sockaddr_in call is deprecated" 
+	    if warnings::enabled();
+	pack_sockaddr_in($port, inet_aton(join('.', @quad)));
+    } elsif (wantarray) {
+	croak "usage:   (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1;
+        unpack_sockaddr_in(@_);
+    } else {
+	croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
+        pack_sockaddr_in(@_);
+    }
+}
+
+sub sockaddr_in6 {
+    if (wantarray) {
+	croak "usage:   (port,in6addr,scope_id,flowinfo) = sockaddr_in6(sin6_sv)" unless @_ == 1;
+	unpack_sockaddr_in6(@_);
+    }
+    else {
+	croak "usage:   sin6_sv = sockaddr_in6(port,in6addr,[scope_id,[flowinfo]])" unless @_ >= 2 and @_ <= 4;
+	pack_sockaddr_in6(@_);
+    }
+}
+
+sub sockaddr_un {
+    if (wantarray) {
+	croak "usage:   (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
+        unpack_sockaddr_un(@_);
+    } else {
+	croak "usage:   sun_sv = sockaddr_un(filename)" unless @_ == 1;
+        pack_sockaddr_un(@_);
+    }
+}
+
+XSLoader::load(__PACKAGE__, $VERSION);
+
+my %errstr;
+
+if( defined &getaddrinfo ) {
+    # These are not part of the API, nothing uses them, and deleting them
+    # reduces the size of %Socket:: by about 12K
+    delete $Socket::{fake_getaddrinfo};
+    delete $Socket::{fake_getnameinfo};
+} else {
+    require Scalar::Util;
+
+    *getaddrinfo = \&fake_getaddrinfo;
+    *getnameinfo = \&fake_getnameinfo;
+
+    # These numbers borrowed from GNU libc's implementation, but since
+    # they're only used by our emulation, it doesn't matter if the real
+    # platform's values differ
+    my %constants = (
+	AI_PASSIVE     => 1,
+	AI_CANONNAME   => 2,
+	AI_NUMERICHOST => 4,
+	AI_V4MAPPED    => 8,
+	AI_ALL         => 16,
+	AI_ADDRCONFIG  => 32,
+	# RFC 2553 doesn't define this but Linux does - lets be nice and
+	# provide it since we can
+	AI_NUMERICSERV => 1024,
+
+	EAI_BADFLAGS   => -1,
+	EAI_NONAME     => -2,
+	EAI_NODATA     => -5,
+	EAI_FAMILY     => -6,
+	EAI_SERVICE    => -8,
+
+	NI_NUMERICHOST => 1,
+	NI_NUMERICSERV => 2,
+	NI_NOFQDN      => 4,
+	NI_NAMEREQD    => 8,
+	NI_DGRAM       => 16,
+
+	# Constants we don't support. Export them, but croak if anyone tries to
+	# use them
+	AI_IDN                      => 64,
+	AI_CANONIDN                 => 128,
+	AI_IDN_ALLOW_UNASSIGNED     => 256,
+	AI_IDN_USE_STD3_ASCII_RULES => 512,
+	NI_IDN                      => 32,
+	NI_IDN_ALLOW_UNASSIGNED     => 64,
+	NI_IDN_USE_STD3_ASCII_RULES => 128,
+
+	# Error constants we'll never return, so it doesn't matter what value
+	# these have, nor that we don't provide strings for them
+	EAI_SYSTEM   => -11,
+	EAI_BADHINTS => -1000,
+	EAI_PROTOCOL => -1001
+    );
+
+    foreach my $name ( keys %constants ) {
+	my $value = $constants{$name};
+
+	no strict 'refs';
+	defined &$name or *$name = sub () { $value };
+    }
+
+    %errstr = (
+	# These strings from RFC 2553
+	EAI_BADFLAGS()   => "invalid value for ai_flags",
+	EAI_NONAME()     => "nodename nor servname provided, or not known",
+	EAI_NODATA()     => "no address associated with nodename",
+	EAI_FAMILY()     => "ai_family not supported",
+	EAI_SERVICE()    => "servname not supported for ai_socktype",
+    );
+}
+
+# The following functions are used if the system does not have a
+# getaddrinfo(3) function in libc; and are used to emulate it for the AF_INET
+# family
+
+# Borrowed from Regexp::Common::net
+my $REGEXP_IPv4_DECIMAL = qr/25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}/;
+my $REGEXP_IPv4_DOTTEDQUAD = qr/$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL/;
+
+sub fake_makeerr
+{
+    my ( $errno ) = @_;
+    my $errstr = $errno == 0 ? "" : ( $errstr{$errno} || $errno );
+    return Scalar::Util::dualvar( $errno, $errstr );
+}
+
+sub fake_getaddrinfo
+{
+    my ( $node, $service, $hints ) = @_;
+
+    $node = "" unless defined $node;
+
+    $service = "" unless defined $service;
+
+    my ( $family, $socktype, $protocol, $flags ) = @$hints{qw( family socktype protocol flags )};
+
+    $family ||= Socket::AF_INET(); # 0 == AF_UNSPEC, which we want too
+    $family == Socket::AF_INET() or return fake_makeerr( EAI_FAMILY() );
+
+    $socktype ||= 0;
+
+    $protocol ||= 0;
+
+    $flags ||= 0;
+
+    my $flag_passive     = $flags & AI_PASSIVE();     $flags &= ~AI_PASSIVE();
+    my $flag_canonname   = $flags & AI_CANONNAME();   $flags &= ~AI_CANONNAME();
+    my $flag_numerichost = $flags & AI_NUMERICHOST(); $flags &= ~AI_NUMERICHOST();
+    my $flag_numericserv = $flags & AI_NUMERICSERV(); $flags &= ~AI_NUMERICSERV();
+
+    # These constants don't apply to AF_INET-only lookups, so we might as well
+    # just ignore them. For AI_ADDRCONFIG we just presume the host has ability
+    # to talk AF_INET. If not we'd have to return no addresses at all. :)
+    $flags &= ~(AI_V4MAPPED()|AI_ALL()|AI_ADDRCONFIG());
+
+    $flags & (AI_IDN()|AI_CANONIDN()|AI_IDN_ALLOW_UNASSIGNED()|AI_IDN_USE_STD3_ASCII_RULES()) and
+	croak "Socket::getaddrinfo() does not support IDN";
+
+    $flags == 0 or return fake_makeerr( EAI_BADFLAGS() );
+
+    $node eq "" and $service eq "" and return fake_makeerr( EAI_NONAME() );
+
+    my $canonname;
+    my @addrs;
+    if( $node ne "" ) {
+	return fake_makeerr( EAI_NONAME() ) if( $flag_numerichost and $node !~ m/^$REGEXP_IPv4_DOTTEDQUAD$/ );
+	( $canonname, undef, undef, undef, @addrs ) = gethostbyname( $node );
+	defined $canonname or return fake_makeerr( EAI_NONAME() );
+
+	undef $canonname unless $flag_canonname;
+    }
+    else {
+	$addrs[0] = $flag_passive ? Socket::inet_aton( "0.0.0.0" )
+				  : Socket::inet_aton( "127.0.0.1" );
+    }
+
+    my @ports; # Actually ARRAYrefs of [ socktype, protocol, port ]
+    my $protname = "";
+    if( $protocol ) {
+	$protname = eval { getprotobynumber( $protocol ) };
+    }
+
+    if( $service ne "" and $service !~ m/^\d+$/ ) {
+	return fake_makeerr( EAI_NONAME() ) if( $flag_numericserv );
+	getservbyname( $service, $protname ) or return fake_makeerr( EAI_SERVICE() );
+    }
+
+    foreach my $this_socktype ( Socket::SOCK_STREAM(), Socket::SOCK_DGRAM(), Socket::SOCK_RAW() ) {
+	next if $socktype and $this_socktype != $socktype;
+
+	my $this_protname = "raw";
+	$this_socktype == Socket::SOCK_STREAM() and $this_protname = "tcp";
+	$this_socktype == Socket::SOCK_DGRAM()  and $this_protname = "udp";
+
+	next if $protname and $this_protname ne $protname;
+
+	my $port;
+	if( $service ne "" ) {
+	    if( $service =~ m/^\d+$/ ) {
+		$port = "$service";
+	    }
+	    else {
+		( undef, undef, $port, $this_protname ) = getservbyname( $service, $this_protname );
+		next unless defined $port;
+	    }
+	}
+	else {
+	    $port = 0;
+	}
+
+	push @ports, [ $this_socktype, eval { scalar getprotobyname( $this_protname ) } || 0, $port ];
+    }
+
+    my @ret;
+    foreach my $addr ( @addrs ) {
+	foreach my $portspec ( @ports ) {
+	    my ( $socktype, $protocol, $port ) = @$portspec;
+	    push @ret, {
+		family    => $family,
+		socktype  => $socktype,
+		protocol  => $protocol,
+		addr      => Socket::pack_sockaddr_in( $port, $addr ),
+		canonname => undef,
+	    };
+	}
+    }
+
+    # Only supply canonname for the first result
+    if( defined $canonname ) {
+	$ret[0]->{canonname} = $canonname;
+    }
+
+    return ( fake_makeerr( 0 ), @ret );
+}
+
+sub fake_getnameinfo
+{
+    my ( $addr, $flags, $xflags ) = @_;
+
+    my ( $port, $inetaddr );
+    eval { ( $port, $inetaddr ) = Socket::unpack_sockaddr_in( $addr ) }
+	or return fake_makeerr( EAI_FAMILY() );
+
+    my $family = Socket::AF_INET();
+
+    $flags ||= 0;
+
+    my $flag_numerichost = $flags & NI_NUMERICHOST(); $flags &= ~NI_NUMERICHOST();
+    my $flag_numericserv = $flags & NI_NUMERICSERV(); $flags &= ~NI_NUMERICSERV();
+    my $flag_nofqdn      = $flags & NI_NOFQDN();      $flags &= ~NI_NOFQDN();
+    my $flag_namereqd    = $flags & NI_NAMEREQD();    $flags &= ~NI_NAMEREQD();
+    my $flag_dgram       = $flags & NI_DGRAM()   ;    $flags &= ~NI_DGRAM();
+
+    $flags & (NI_IDN()|NI_IDN_ALLOW_UNASSIGNED()|NI_IDN_USE_STD3_ASCII_RULES()) and
+	croak "Socket::getnameinfo() does not support IDN";
+
+    $flags == 0 or return fake_makeerr( EAI_BADFLAGS() );
+
+    $xflags ||= 0;
+
+    my $node;
+    if( $xflags & NIx_NOHOST ) {
+	$node = undef;
+    }
+    elsif( $flag_numerichost ) {
+	$node = Socket::inet_ntoa( $inetaddr );
+    }
+    else {
+	$node = gethostbyaddr( $inetaddr, $family );
+	if( !defined $node ) {
+	    return fake_makeerr( EAI_NONAME() ) if $flag_namereqd;
+	    $node = Socket::inet_ntoa( $inetaddr );
+	}
+	elsif( $flag_nofqdn ) {
+	    my ( $shortname ) = split m/\./, $node;
+	    my ( $fqdn ) = gethostbyname $shortname;
+	    $node = $shortname if defined $fqdn and $fqdn eq $node;
+	}
+    }
+
+    my $service;
+    if( $xflags & NIx_NOSERV ) {
+	$service = undef;
+    }
+    elsif( $flag_numericserv ) {
+	$service = "$port";
+    }
+    else {
+	my $protname = $flag_dgram ? "udp" : "";
+	$service = getservbyport( $port, $protname );
+	if( !defined $service ) {
+	    $service = "$port";
+	}
+    }
+
+    return ( fake_makeerr( 0 ), $node, $service );
+}
+
+1;
+######################################################################
+# WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl
+#          DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead
+######################################################################
+$Config::Git_Data=<<'ENDOFGIT';
+git_commit_id='e70d909feb796ec99d5e91de5d1635d4526ec131'
+git_describe='v5.28.1-14-ge70d909feb'
+git_branch='emperl_v5.28.1'
+git_uncommitted_changes='0'
+git_commit_id_title='Local Commit:'
+git_commit_date='2019-03-03 21:14:09 +0100'
+git_ancestor='b819f1cc89ec36d866f249ae8b125a7a4e18eea2'
+git_remote_branch='origin/emperl_v5.28.1'
+git_unpushed='c61dedef1069e7802564dbae94ed511e12d500a1,e70d909feb796ec99d5e91de5d1635d4526ec131'
+ENDOFGIT
+package lib;
+
+# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.
+# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.
+
+use Config;
+
+use strict;
+
+my $archname         = $Config{archname};
+my $version          = $Config{version};
+my @inc_version_list = reverse split / /, $Config{inc_version_list};
+
+
+our @ORIG_INC = @INC;	# take a handy copy of 'original' value
+our $VERSION = '0.64';
+
+sub import {
+    shift;
+
+    my %names;
+    foreach (reverse @_) {
+	my $path = $_;		# we'll be modifying it, so break the alias
+	if ($path eq '') {
+	    require Carp;
+	    Carp::carp("Empty compile time value given to use lib");
+	}
+
+	if ($path !~ /\.par$/i && -e $path && ! -d _) {
+	    require Carp;
+	    Carp::carp("Parameter to use lib must be directory, not file");
+	}
+	unshift(@INC, $path);
+	# Add any previous version directories we found at configure time
+	foreach my $incver (@inc_version_list)
+	{
+	    my $dir = "$path/$incver";
+	    unshift(@INC, $dir) if -d $dir;
+	}
+	# Put a corresponding archlib directory in front of $path if it
+	# looks like $path has an archlib directory below it.
+	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
+	    = _get_dirs($path);
+	unshift(@INC, $arch_dir)         if -d $arch_auto_dir;
+	unshift(@INC, $version_dir)      if -d $version_dir;
+	unshift(@INC, $version_arch_dir) if -d $version_arch_dir;
+    }
+
+    # remove trailing duplicates
+    @INC = grep { ++$names{$_} == 1 } @INC;
+    return;
+}
+
+
+sub unimport {
+    shift;
+
+    my %names;
+    foreach my $path (@_) {
+	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
+	    = _get_dirs($path);
+	++$names{$path};
+	++$names{$arch_dir}         if -d $arch_auto_dir;
+	++$names{$version_dir}      if -d $version_dir;
+	++$names{$version_arch_dir} if -d $version_arch_dir;
+    }
+
+    # Remove ALL instances of each named directory.
+    @INC = grep { !exists $names{$_} } @INC;
+    return;
+}
+
+sub _get_dirs {
+    my($dir) = @_;
+    my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
+
+    $arch_auto_dir    = "$dir/$archname/auto";
+    $arch_dir         = "$dir/$archname";
+    $version_dir      = "$dir/$version";
+    $version_arch_dir = "$dir/$version/$archname";
+
+    return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
+}
+
+1;
+__END__
+
+package POSIX;
+use strict;
+use warnings;
+
+our ($AUTOLOAD, %SIGRT);
+
+our $VERSION = '1.84';
+
+require XSLoader;
+
+use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
+	     F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
+	     O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
+	     O_WRONLY SEEK_CUR SEEK_END SEEK_SET
+	     S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
+	     S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
+	     S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
+
+my $loaded;
+
+sub croak { require Carp;  goto &Carp::croak }
+sub usage { croak "Usage: POSIX::$_[0]" }
+
+XSLoader::load();
+
+my %replacement = (
+    L_tmpnam    => undef,
+    atexit      => 'END {}',
+    atof        => undef,
+    atoi        => undef,
+    atol        => undef,
+    bsearch     => \'not supplied',
+    calloc      => undef,
+    clearerr    => 'IO::Handle::clearerr',
+    div         => '/, % and int',
+    execl       => undef,
+    execle      => undef,
+    execlp      => undef,
+    execv       => undef,
+    execve      => undef,
+    execvp      => undef,
+    fclose      => 'IO::Handle::close',
+    fdopen      => 'IO::Handle::new_from_fd',
+    feof        => 'IO::Handle::eof',
+    ferror      => 'IO::Handle::error',
+    fflush      => 'IO::Handle::flush',
+    fgetc       => 'IO::Handle::getc',
+    fgetpos     => 'IO::Seekable::getpos',
+    fgets       => 'IO::Handle::gets',
+    fileno      => 'IO::Handle::fileno',
+    fopen       => 'IO::File::open',
+    fprintf     => 'printf',
+    fputc       => 'print',
+    fputs       => 'print',
+    fread       => 'read',
+    free        => undef,
+    freopen     => 'open',
+    fscanf      => '<> and regular expressions',
+    fseek       => 'IO::Seekable::seek',
+    fsetpos     => 'IO::Seekable::setpos',
+    fsync       => 'IO::Handle::sync',
+    ftell       => 'IO::Seekable::tell',
+    fwrite      => 'print',
+    labs        => 'abs',
+    ldiv        => '/, % and int',
+    longjmp     => 'die',
+    malloc      => undef,
+    memchr      => 'index()',
+    memcmp      => 'eq',
+    memcpy      => '=',
+    memmove     => '=',
+    memset      => 'x',
+    offsetof    => undef,
+    putc        => 'print',
+    putchar     => 'print',
+    puts        => 'print',
+    qsort       => 'sort',
+    rand        => \'non-portable, use Perl\'s rand instead',
+    realloc     => undef,
+    scanf       => '<> and regular expressions',
+    setbuf      => 'IO::Handle::setbuf',
+    setjmp      => 'eval {}',
+    setvbuf     => 'IO::Handle::setvbuf',
+    siglongjmp  => 'die',
+    sigsetjmp   => 'eval {}',
+    srand       => \'not supplied; refer to Perl\'s srand documentation',
+    sscanf      => 'regular expressions',
+    strcat      => '.=',
+    strchr      => 'index()',
+    strcmp      => 'eq',
+    strcpy      => '=',
+    strcspn     => 'regular expressions',
+    strlen      => 'length',
+    strncat     => '.=',
+    strncmp     => 'eq',
+    strncpy     => '=',
+    strpbrk     => undef,
+    strrchr     => 'rindex()',
+    strspn      => undef,
+    strtok      => undef,
+    tmpfile     => 'IO::File::new_tmpfile',
+    tmpnam      => 'use File::Temp',
+    ungetc      => 'IO::Handle::ungetc',
+    vfprintf    => undef,
+    vprintf     => undef,
+    vsprintf    => undef,
+);
+
+my %reimpl = (
+    abs       => 'x => CORE::abs($_[0])',
+    alarm     => 'seconds => CORE::alarm($_[0])',
+    assert    => 'expr => croak "Assertion failed" if !$_[0]',
+    atan2     => 'x, y => CORE::atan2($_[0], $_[1])',
+    chdir     => 'directory => CORE::chdir($_[0])',
+    chmod     => 'mode, filename => CORE::chmod($_[0], $_[1])',
+    chown     => 'uid, gid, filename => CORE::chown($_[0], $_[1], $_[2])',
+    closedir  => 'dirhandle => CORE::closedir($_[0])',
+    cos       => 'x => CORE::cos($_[0])',
+    creat     => 'filename, mode => &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1])',
+    errno     => '$! + 0',
+    exit      => 'status => CORE::exit($_[0])',
+    exp       => 'x => CORE::exp($_[0])',
+    fabs      => 'x => CORE::abs($_[0])',
+    fcntl     => 'filehandle, cmd, arg => CORE::fcntl($_[0], $_[1], $_[2])',
+    fork      => 'CORE::fork',
+    fstat     => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross.
+    getc      => 'handle => CORE::getc($_[0])',
+    getchar   => 'CORE::getc(STDIN)',
+    getegid   => '$) + 0',
+    getenv    => 'name => $ENV{$_[0]}',
+    geteuid   => '$> + 0',
+    getgid    => '$( + 0',
+    getgrgid  => 'gid => CORE::getgrgid($_[0])',
+    getgrnam  => 'name => CORE::getgrnam($_[0])',
+    getgroups => 'my %seen; grep !$seen{$_}++, split " ", $)',
+    getlogin  => 'CORE::getlogin()',
+    getpgrp   => 'CORE::getpgrp',
+    getpid    => '$$',
+    getppid   => 'CORE::getppid',
+    getpwnam  => 'name => CORE::getpwnam($_[0])',
+    getpwuid  => 'uid => CORE::getpwuid($_[0])',
+    gets      => 'scalar <STDIN>',
+    getuid    => '$<',
+    gmtime    => 'time => CORE::gmtime($_[0])',
+    isatty    => 'filehandle => -t $_[0]',
+    kill      => 'pid, sig => CORE::kill $_[1], $_[0]',
+    link      => 'oldfilename, newfilename => CORE::link($_[0], $_[1])',
+    localtime => 'time => CORE::localtime($_[0])',
+    log       => 'x => CORE::log($_[0])',
+    mkdir     => 'directoryname, mode => CORE::mkdir($_[0], $_[1])',
+    opendir   => 'directory => my $dh; CORE::opendir($dh, $_[0]) ? $dh : undef',
+    pow       => 'x, exponent => $_[0] ** $_[1]',
+    raise     => 'sig => CORE::kill $_[0], $$;	# Is this good enough',
+    readdir   => 'dirhandle => CORE::readdir($_[0])',
+    remove    => 'filename => (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0])',
+    rename    => 'oldfilename, newfilename => CORE::rename($_[0], $_[1])',
+    rewind    => 'filehandle => CORE::seek($_[0],0,0)',
+    rewinddir => 'dirhandle => CORE::rewinddir($_[0])',
+    rmdir     => 'directoryname => CORE::rmdir($_[0])',
+    sin       => 'x => CORE::sin($_[0])',
+    sqrt      => 'x => CORE::sqrt($_[0])',
+    stat      => 'filename => CORE::stat($_[0])',
+    strerror  => 'errno => BEGIN { local $!; require locale; locale->import} my $e = $_[0] + 0; local $!; $! = $e; "$!"',
+    strstr    => 'big, little => CORE::index($_[0], $_[1])',
+    system    => 'command => CORE::system($_[0])',
+    time      => 'CORE::time',
+    umask     => 'mask => CORE::umask($_[0])',
+    unlink    => 'filename => CORE::unlink($_[0])',
+    utime     => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])',
+    wait      => 'CORE::wait()',
+    waitpid   => 'pid, options => CORE::waitpid($_[0], $_[1])',
+);
+
+sub import {
+    my $pkg = shift;
+
+    load_imports() unless $loaded++;
+
+    # Grandfather old foo_h form to new :foo_h form
+    s/^(?=\w+_h$)/:/ for my @list = @_;
+
+    my @unimpl = sort grep { exists $replacement{$_} } @list;
+    if (@unimpl) {
+      for my $u (@unimpl) {
+        warn "Unimplemented: POSIX::$u(): ", unimplemented_message($u);
+      }
+      croak(sprintf("Unimplemented: %s",
+                    join(" ", map { "POSIX::$_()" } @unimpl)));
+    }
+
+    local $Exporter::ExportLevel = 1;
+    Exporter::import($pkg,@list);
+}
+
+eval join ';', map "sub $_", keys %replacement, keys %reimpl;
+
+sub unimplemented_message {
+  my $func = shift;
+  my $how = $replacement{$func};
+  return "C-specific, stopped" unless defined $how;
+  return "$$how" if ref $how;
+  return "$how instead" if $how =~ /^use /;
+  return "Use method $how() instead" if $how =~ /::/;
+  return "C-specific: use $how instead";
+}
+
+sub AUTOLOAD {
+    my ($func) = ($AUTOLOAD =~ /.*::(.*)/);
+
+    die "POSIX.xs has failed to load\n" if $func eq 'constant';
+
+    if (my $code = $reimpl{$func}) {
+	my ($num, $arg) = (0, '');
+	if ($code =~ s/^(.*?) *=> *//) {
+	    $arg = $1;
+	    $num = 1 + $arg =~ tr/,//;
+	}
+	# no warnings to be consistent with the old implementation, where each
+	# function was in its own little AutoSplit world:
+	eval qq{ sub $func {
+		no warnings;
+		usage "$func($arg)" if \@_ != $num;
+		$code
+	    } };
+	no strict;
+	goto &$AUTOLOAD;
+    }
+    if (exists $replacement{$func}) {
+      croak "Unimplemented: POSIX::$func(): ", unimplemented_message($func);
+    }
+
+    constant($func);
+}
+
+sub perror {
+    print STDERR "@_: " if @_;
+    print STDERR $!,"\n";
+}
+
+sub printf {
+    usage "printf(pattern, args...)" if @_ < 1;
+    CORE::printf STDOUT @_;
+}
+
+sub sprintf {
+    usage "sprintf(pattern, args...)" if @_ == 0;
+    CORE::sprintf(shift,@_);
+}
+
+sub load_imports {
+my %default_export_tags = ( # cf. exports policy below
+
+    assert_h =>	[qw(assert NDEBUG)],
+
+    ctype_h =>	        [],
+
+    dirent_h =>	[],
+
+    errno_h =>	[qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN
+		EALREADY EBADF EBADMSG EBUSY ECANCELED ECHILD ECONNABORTED
+		ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT EEXIST
+		EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS
+		EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE
+		ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
+		ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEM ENOMSG
+		ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
+		ENOTEMPTY ENOTRECOVERABLE ENOTSOCK ENOTSUP ENOTTY ENXIO
+		EOPNOTSUPP EOTHER EOVERFLOW EOWNERDEAD EPERM EPFNOSUPPORT EPIPE
+		EPROCLIM EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE
+		ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE
+		ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
+		errno)],
+
+    fcntl_h =>	[qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
+		F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
+		O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
+		O_RDONLY O_RDWR O_TRUNC O_WRONLY
+		creat
+		SEEK_CUR SEEK_END SEEK_SET
+		S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
+		S_IWGRP S_IWOTH S_IWUSR)],
+
+    float_h =>	[qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
+		DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
+		DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
+		FLT_DIG FLT_EPSILON FLT_MANT_DIG
+		FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
+		FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
+		FLT_RADIX FLT_ROUNDS
+		LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
+		LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
+		LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
+
+    grp_h =>	[],
+
+    limits_h =>	[qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
+		INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
+		MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
+		PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
+		SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
+		ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
+		_POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
+		_POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
+		_POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
+		_POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
+
+    locale_h =>	[qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
+		    LC_MONETARY LC_NUMERIC LC_TIME LC_IDENTIFICATION
+                    LC_MEASUREMENT LC_PAPER LC_TELEPHONE LC_ADDRESS NULL
+		    localeconv setlocale)],
+
+    math_h =>   [qw(FP_ILOGB0 FP_ILOGBNAN FP_INFINITE FP_NAN FP_NORMAL
+                    FP_SUBNORMAL FP_ZERO
+                    M_1_PI M_2_PI M_2_SQRTPI M_E M_LN10 M_LN2 M_LOG10E M_LOG2E
+                    M_PI M_PI_2 M_PI_4 M_SQRT1_2 M_SQRT2
+                    HUGE_VAL INFINITY NAN
+                    acos asin atan ceil cosh fabs floor fmod
+		    frexp ldexp log10 modf pow sinh tan tanh)],
+
+    pwd_h =>	[],
+
+    setjmp_h =>	[qw(longjmp setjmp siglongjmp sigsetjmp)],
+
+    signal_h =>	[qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
+		SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
+		SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
+		SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
+		SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 SIGBUS
+		SIGPOLL SIGPROF SIGSYS SIGTRAP SIGURG SIGVTALRM SIGXCPU SIGXFSZ
+		SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
+		raise sigaction signal sigpending sigprocmask sigsuspend)],
+
+    stdarg_h =>	[],
+
+    stddef_h =>	[qw(NULL offsetof)],
+
+    stdio_h =>	[qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
+		NULL SEEK_CUR SEEK_END SEEK_SET
+		STREAM_MAX TMP_MAX stderr stdin stdout
+		clearerr fclose fdopen feof ferror fflush fgetc fgetpos
+		fgets fopen fprintf fputc fputs fread freopen
+		fscanf fseek fsetpos ftell fwrite getchar gets
+		perror putc putchar puts remove rewind
+		scanf setbuf setvbuf sscanf tmpfile tmpnam
+		ungetc vfprintf vprintf vsprintf)],
+
+    stdlib_h =>	[qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
+		abort atexit atof atoi atol bsearch calloc div
+		free getenv labs ldiv malloc mblen mbstowcs mbtowc
+		qsort realloc strtod strtol strtoul wcstombs wctomb)],
+
+    string_h =>	[qw(NULL memchr memcmp memcpy memmove memset strcat
+		strchr strcmp strcoll strcpy strcspn strerror strlen
+		strncat strncmp strncpy strpbrk strrchr strspn strstr
+		strtok strxfrm)],
+
+    sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
+		S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
+		fstat mkfifo)],
+
+    sys_times_h => [],
+
+    sys_types_h => [],
+
+    sys_utsname_h => [qw(uname)],
+
+    sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
+		WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
+
+    termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
+		B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
+		CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
+		ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
+		INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
+		PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
+		TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
+		TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
+		VSTOP VSUSP VTIME
+		cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
+		tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
+
+    time_h =>	[qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
+		difftime mktime strftime tzset tzname)],
+
+    unistd_h =>	[qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
+		STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
+		_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
+		_PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
+		_PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
+		_POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
+		_POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
+		_SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
+		_SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
+		_SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
+		_exit access ctermid cuserid
+		dup2 dup execl execle execlp execv execve execvp
+		fpathconf fsync getcwd getegid geteuid getgid getgroups
+		getpid getuid isatty lseek pathconf pause setgid setpgid
+		setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
+
+    utime_h =>	[],
+);
+
+if ($^O eq 'MSWin32') {
+    $default_export_tags{winsock_h} = [qw(
+	WSAEINTR WSAEBADF WSAEACCES WSAEFAULT WSAEINVAL WSAEMFILE WSAEWOULDBLOCK
+	WSAEINPROGRESS WSAEALREADY WSAENOTSOCK WSAEDESTADDRREQ WSAEMSGSIZE
+	WSAEPROTOTYPE WSAENOPROTOOPT WSAEPROTONOSUPPORT WSAESOCKTNOSUPPORT
+	WSAEOPNOTSUPP WSAEPFNOSUPPORT WSAEAFNOSUPPORT WSAEADDRINUSE
+	WSAEADDRNOTAVAIL WSAENETDOWN WSAENETUNREACH WSAENETRESET WSAECONNABORTED
+	WSAECONNRESET WSAENOBUFS WSAEISCONN WSAENOTCONN WSAESHUTDOWN
+	WSAETOOMANYREFS WSAETIMEDOUT WSAECONNREFUSED WSAELOOP WSAENAMETOOLONG
+	WSAEHOSTDOWN WSAEHOSTUNREACH WSAENOTEMPTY WSAEPROCLIM WSAEUSERS
+	WSAEDQUOT WSAESTALE WSAEREMOTE WSAEDISCON WSAENOMORE WSAECANCELLED
+	WSAEINVALIDPROCTABLE WSAEINVALIDPROVIDER WSAEPROVIDERFAILEDINIT
+	WSAEREFUSED)];
+}
+
+my %other_export_tags = ( # cf. exports policy below
+    fenv_h => [qw(
+        FE_DOWNWARD FE_TONEAREST FE_TOWARDZERO FE_UPWARD fegetround fesetround
+    )],
+
+    math_h_c99 => [ @{$default_export_tags{math_h}}, qw(
+        Inf NaN acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim fma
+        fmax fmin fpclassify hypot ilogb isfinite isgreater isgreaterequal
+        isinf isless islessequal islessgreater isnan isnormal isunordered j0 j1
+        jn lgamma log1p log2 logb lrint lround nan nearbyint nextafter nexttoward
+        remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn
+    )],
+
+    netdb_h => [qw(EAI_AGAIN    EAI_BADFLAGS EAI_FAIL
+                   EAI_FAMILY   EAI_MEMORY   EAI_NONAME
+                   EAI_OVERFLOW EAI_SERVICE  EAI_SOCKTYPE
+                   EAI_SYSTEM)],
+
+    stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ],
+
+    sys_resource_h => [qw(PRIO_PROCESS PRIO_PGRP PRIO_USER)],
+
+    sys_socket_h => [qw(
+        MSG_CTRUNC MSG_DONTROUTE MSG_EOR MSG_OOB MSG_PEEK MSG_TRUNC MSG_WAITALL
+    )],
+
+    nan_payload => [ qw(getpayload setpayload setpayloadsig issignaling) ],
+
+    signal_h_si_code => [qw(
+        ILL_ILLOPC ILL_ILLOPN ILL_ILLADR ILL_ILLTRP ILL_PRVOPC ILL_PRVREG
+        ILL_COPROC ILL_BADSTK
+        FPE_INTDIV FPE_INTOVF FPE_FLTDIV FPE_FLTOVF FPE_FLTUND
+        FPE_FLTRES FPE_FLTINV FPE_FLTSUB
+        SEGV_MAPERR SEGV_ACCERR
+        BUS_ADRALN BUS_ADRERR BUS_OBJERR
+        TRAP_BRKPT TRAP_TRACE
+        CLD_EXITED CLD_KILLED CLD_DUMPED CLD_TRAPPED CLD_STOPPED CLD_CONTINUED
+        POLL_IN POLL_OUT POLL_MSG POLL_ERR POLL_PRI POLL_HUP
+        SI_USER SI_QUEUE SI_TIMER SI_ASYNCIO SI_MESGQ
+  )],
+);
+
+# exports policy:
+# - new functions may not be added to @EXPORT, only to @EXPORT_OK
+# - new SHOUTYCONSTANTS are OK to add to @EXPORT
+
+{
+  # De-duplicate the export list: 
+  my ( %export, %export_ok );
+  @export   {map {@$_} values %default_export_tags} = ();
+  @export_ok{map {@$_} values   %other_export_tags} = ();
+  # Doing the de-dup with a temporary hash has the advantage that the SVs in
+  # @EXPORT are actually shared hash key scalars, which will save some memory.
+  our @EXPORT = keys %export;
+
+  # you do not want to add symbols to the following list. add a new tag instead
+  our @EXPORT_OK = (qw(close lchown nice open pipe read sleep times write
+		       printf sprintf),
+		    grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok);
+
+  our %EXPORT_TAGS = ( %default_export_tags, %other_export_tags );
+}
+
+require Exporter;
+}
+
+package POSIX::SigAction;
+
+sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
+sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
+sub mask    { $_[0]->{MASK}    = $_[1] if @_ > 1; $_[0]->{MASK} };
+sub flags   { $_[0]->{FLAGS}   = $_[1] if @_ > 1; $_[0]->{FLAGS} };
+sub safe    { $_[0]->{SAFE}    = $_[1] if @_ > 1; $_[0]->{SAFE} };
+
+{
+package POSIX::SigSet;
+# This package is here entirely to make sure that POSIX::SigSet is seen by the
+# PAUSE indexer, so that it will always be clearly indexed in core.  This is to
+# prevent the accidental case where a third-party distribution can accidentally
+# claim the POSIX::SigSet package, as occurred in 2011-12. -- rjbs, 2011-12-30
+}
+
+package POSIX::SigRt;
+
+require Tie::Hash;
+
+our @ISA = 'Tie::StdHash';
+
+our ($_SIGRTMIN, $_SIGRTMAX, $_sigrtn);
+
+our $SIGACTION_FLAGS = 0;
+
+sub _init {
+    $_SIGRTMIN = &POSIX::SIGRTMIN;
+    $_SIGRTMAX = &POSIX::SIGRTMAX;
+    $_sigrtn   = $_SIGRTMAX - $_SIGRTMIN;
+}
+
+sub _croak {
+    &_init unless defined $_sigrtn;
+    die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
+}
+
+sub _getsig {
+    &_croak;
+    my $rtsig = $_[0];
+    # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
+    $rtsig = $_SIGRTMIN + ($1 || 0)
+	if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
+    return $rtsig;
+}
+
+sub _exist {
+    my $rtsig = _getsig($_[1]);
+    my $ok    = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
+    ($rtsig, $ok);
+}
+
+sub _check {
+    my ($rtsig, $ok) = &_exist;
+    die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
+	unless $ok;
+    return $rtsig;
+}
+
+sub new {
+    my ($rtsig, $handler, $flags) = @_;
+    my $sigset = POSIX::SigSet->new($rtsig);
+    my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
+    POSIX::sigaction($rtsig, $sigact);
+}
+
+sub EXISTS { &_exist }
+sub FETCH  { my $rtsig = &_check;
+	     my $oa = POSIX::SigAction->new();
+	     POSIX::sigaction($rtsig, undef, $oa);
+	     return $oa->{HANDLER} }
+sub STORE  { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
+sub DELETE { delete $SIG{ &_check } }
+sub CLEAR  { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
+sub SCALAR { &_croak; $_sigrtn + 1 }
+
+tie %POSIX::SIGRT, 'POSIX::SigRt';
+# and the expression on the line above is true, so we return true.
+
+# Generated from DynaLoader_pm.PL, this file is unique for every OS
+
+package DynaLoader;
+
+#   And Gandalf said: 'Many folk like to know beforehand what is to
+#   be set on the table; but those who have laboured to prepare the
+#   feast like to keep their secret; for wonder makes the words of
+#   praise louder.'
+
+#   (Quote from Tolkien suggested by Anno Siegel.)
+#
+# See pod text at end of file for documentation.
+# See also ext/DynaLoader/README in source tree for other information.
+#
+# Tim.Bunce@ig.co.uk, August 1994
+
+BEGIN {
+    $VERSION = '1.45';
+}
+
+use Config;
+
+# enable debug/trace messages from DynaLoader perl code
+$dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug;
+
+#
+# Flags to alter dl_load_file behaviour.  Assigned bits:
+#   0x01  make symbols available for linking later dl_load_file's.
+#         (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL))
+#         (ignored under VMS; effect is built-in to image linking)
+#         (ignored under Android; the linker always uses RTLD_LOCAL)
+#
+# This is called as a class method $module->dl_load_flags.  The
+# definition here will be inherited and result on "default" loading
+# behaviour unless a sub-class of DynaLoader defines its own version.
+#
+
+sub dl_load_flags { 0x00 }
+
+($dl_dlext, $dl_so, $dlsrc) = @Config::Config{qw(dlext so dlsrc)};
+
+
+$do_expand = 0;
+
+@dl_require_symbols = ();       # names of symbols we need
+@dl_library_path    = ();       # path to look for files
+
+#XSLoader.pm may have added elements before we were required
+#@dl_shared_objects  = ();       # shared objects for symbols we have 
+#@dl_librefs         = ();       # things we have loaded
+#@dl_modules         = ();       # Modules we have loaded
+
+# Initialise @dl_library_path with the 'standard' library path
+# for this platform as determined by Configure.
+
+push(@dl_library_path, split(' ', $Config::Config{libpth}));
+
+
+my $ldlibpthname         = $Config::Config{ldlibpthname};
+my $ldlibpthname_defined = defined $Config::Config{ldlibpthname};
+my $pthsep               = $Config::Config{path_sep};
+
+# Add to @dl_library_path any extra directories we can gather from environment
+# during runtime.
+
+if ($ldlibpthname_defined &&
+    exists $ENV{$ldlibpthname}) {
+    push(@dl_library_path, split(/$pthsep/, $ENV{$ldlibpthname}));
+}
+
+# E.g. HP-UX supports both its native SHLIB_PATH *and* LD_LIBRARY_PATH.
+
+if ($ldlibpthname_defined &&
+    $ldlibpthname ne 'LD_LIBRARY_PATH' &&
+    exists $ENV{LD_LIBRARY_PATH}) {
+    push(@dl_library_path, split(/$pthsep/, $ENV{LD_LIBRARY_PATH}));
+}
+
+
+sub mod2fname {
+    my $parts = shift;
+    my $so_len = 5;
+    my $name_max = 255; # No easy way to get this here
+    
+    my $libname = "PL_" .  join("__", @$parts);
+    
+    return $libname if (length($libname)+$so_len) <= $name_max;
+    
+    # It's too darned big, so we need to go strip. We use the same
+    # algorithm as xsubpp does. First, strip out doubled __
+    $libname =~ s/__/_/g;
+    return $libname if (length($libname)+$so_len) <= $name_max;
+    
+    # Strip duplicate letters
+    1 while $libname =~ s/(.)\1/\U$1/i;
+    return $libname if (length($libname)+$so_len) <= $name_max;
+    
+    # Still too long. Truncate.
+    $libname = substr($libname, 0, $name_max - $so_len);
+    return $libname;
+}
+# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
+boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
+                                !defined(&dl_error);
+
+if ($dl_debug) {
+    print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n";
+    print STDERR "DynaLoader not linked into this perl\n"
+	    unless defined(&boot_DynaLoader);
+}
+
+1; # End of main code
+
+
+sub croak   { require Carp; Carp::croak(@_)   }
+
+sub bootstrap_inherit {
+    my $module = $_[0];
+    local *isa = *{"$module\::ISA"};
+    local @isa = (@isa, 'DynaLoader');
+    # Cannot goto due to delocalization.  Will report errors on a wrong line?
+    bootstrap(@_);
+}
+
+sub bootstrap {
+    # use local vars to enable $module.bs script to edit values
+    local(@args) = @_;
+    local($module) = $args[0];
+    local(@dirs, $file);
+
+    unless ($module) {
+	require Carp;
+	Carp::confess("Usage: DynaLoader::bootstrap(module)");
+    }
+
+    # A common error on platforms which don't support dynamic loading.
+    # Since it's fatal and potentially confusing we give a detailed message.
+    croak("Can't load module $module, dynamic loading not available in this perl.\n".
+	"  (You may need to build a new perl executable which either supports\n".
+	"  dynamic loading or has the $module module statically linked into it.)\n")
+	unless defined(&dl_load_file);
+
+
+    
+    my @modparts = split(/::/,$module);
+    my $modfname = $modparts[-1];
+    my $modfname_orig = $modfname; # For .bs file search
+
+    # Some systems have restrictions on files names for DLL's etc.
+    # mod2fname returns appropriate file base name (typically truncated)
+    # It may also edit @modparts if required.
+    $modfname = &mod2fname(\@modparts) if defined &mod2fname;
+
+    
+
+    my $modpname = join('/',@modparts);
+
+    print STDERR "DynaLoader::bootstrap for $module ",
+		       "(auto/$modpname/$modfname.$dl_dlext)\n"
+	if $dl_debug;
+
+    my $dir;
+    foreach (@INC) {
+	
+	    $dir = "$_/auto/$modpname";
+	
+	next unless -d $dir; # skip over uninteresting directories
+	
+	# check for common cases to avoid autoload of dl_findfile
+        my $try = "$dir/$modfname.$dl_dlext";
+	last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try);
+	
+	# no luck here, save dir for possible later dl_findfile search
+	push @dirs, $dir;
+    }
+    # last resort, let dl_findfile have a go in all known locations
+    $file = dl_findfile(map("-L$_",@dirs,@INC), $modfname) unless $file;
+
+    croak("Can't locate loadable object for module $module in \@INC (\@INC contains: @INC)")
+	unless $file;	# wording similar to error from 'require'
+
+    
+    my $bootname = "boot_$module";
+    $bootname =~ s/\W/_/g;
+    @dl_require_symbols = ($bootname);
+
+    # Execute optional '.bootstrap' perl script for this module.
+    # The .bs file can be used to configure @dl_resolve_using etc to
+    # match the needs of the individual module on this architecture.
+    # N.B. The .bs file does not following the naming convention used
+    # by mod2fname.
+    my $bs = "$dir/$modfname_orig";
+    $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
+    if (-s $bs) { # only read file if it's not empty
+        print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
+        eval { local @INC = ('.'); do $bs; };
+        warn "$bs: $@\n" if $@;
+    }
+
+    my $boot_symbol_ref;
+
+    
+
+    # Many dynamic extension loading problems will appear to come from
+    # this section of code: XYZ failed at line 123 of DynaLoader.pm.
+    # Often these errors are actually occurring in the initialisation
+    # C code of the extension XS file. Perl reports the error as being
+    # in this perl code simply because this was the last perl code
+    # it executed.
+
+    my $flags = $module->dl_load_flags;
+    
+    my $libref = dl_load_file($file, $flags) or
+	croak("Can't load '$file' for module $module: ".dl_error());
+
+    push(@dl_librefs,$libref);  # record loaded object
+
+    $boot_symbol_ref = dl_find_symbol($libref, $bootname) or
+         croak("Can't find '$bootname' symbol in $file\n");
+
+    push(@dl_modules, $module); # record loaded module
+
+  boot:
+    my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file);
+
+    # See comment block above
+
+	push(@dl_shared_objects, $file); # record files loaded
+
+    &$xs(@args);
+}
+
+sub dl_findfile {
+    # This function does not automatically consider the architecture
+    # or the perl library auto directories.
+    my (@args) = @_;
+    my (@dirs,  $dir);   # which directories to search
+    my (@found);         # full paths to real files we have found
+    #my $dl_ext= 'none'; # $Config::Config{'dlext'} suffix for perl extensions
+    #my $dl_so = 'so'; # $Config::Config{'so'} suffix for shared libraries
+
+    print STDERR "dl_findfile(@args)\n" if $dl_debug;
+
+    # accumulate directories but process files as they appear
+    arg: foreach(@args) {
+        #  Special fast case: full filepath requires no search
+	
+	
+        if (m:/: && -f $_) {
+	    push(@found,$_);
+	    last arg unless wantarray;
+	    next;
+	}
+	
+
+        # Deal with directories first:
+        #  Using a -L prefix is the preferred option (faster and more robust)
+        if ( s{^-L}{} ) { push(@dirs, $_); next; }
+
+        #  Otherwise we try to try to spot directories by a heuristic
+        #  (this is a more complicated issue than it first appears)
+        if (m:/: && -d $_) {   push(@dirs, $_); next; }
+
+	
+
+        #  Only files should get this far...
+        my(@names, $name);    # what filenames to look for
+        if ( s{^-l}{} ) {          # convert -lname to appropriate library name
+            push(@names, "lib$_.$dl_so", "lib$_.a");
+        } else {                # Umm, a bare name. Try various alternatives:
+            # these should be ordered with the most likely first
+            push(@names,"$_.$dl_dlext")    unless m/\.$dl_dlext$/o;
+            push(@names,"$_.$dl_so")     unless m/\.$dl_so$/o;
+	    
+            push(@names,"lib$_.$dl_so")  unless m:/:;
+            push(@names, $_);
+        }
+	my $dirsep = '/';
+	
+        foreach $dir (@dirs, @dl_library_path) {
+            next unless -d $dir;
+	    
+            foreach $name (@names) {
+		my($file) = "$dir$dirsep$name";
+                print STDERR " checking in $dir for $name\n" if $dl_debug;
+		$file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file);
+		#$file = _check_file($file);
+		if ($file) {
+                    push(@found, $file);
+                    next arg; # no need to look any further
+                }
+            }
+        }
+    }
+    if ($dl_debug) {
+        foreach(@dirs) {
+            print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_;
+        }
+        print STDERR "dl_findfile found: @found\n";
+    }
+    return $found[0] unless wantarray;
+    @found;
+}
+
+
+
+sub dl_expandspec {
+    my($spec) = @_;
+    # Optional function invoked if DynaLoader.pm sets $do_expand.
+    # Most systems do not require or use this function.
+    # Some systems may implement it in the dl_*.xs file in which case
+    # this Perl version should be excluded at build time.
+
+    # This function is designed to deal with systems which treat some
+    # 'filenames' in a special way. For example VMS 'Logical Names'
+    # (something like unix environment variables - but different).
+    # This function should recognise such names and expand them into
+    # full file paths.
+    # Must return undef if $spec is invalid or file does not exist.
+
+    my $file = $spec; # default output to input
+
+	return undef unless -f $file;
+    print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug;
+    $file;
+}
+
+sub dl_find_symbol_anywhere
+{
+    my $sym = shift;
+    my $libref;
+    foreach $libref (@dl_librefs) {
+	my $symref = dl_find_symbol($libref,$sym,1);
+	return $symref if $symref;
+    }
+    return undef;
+}
+
+__END__
+
+# -*- buffer-read-only: t -*-
+#
+# This file is auto-generated by ext/Errno/Errno_pm.PL.
+# ***ANY*** changes here will be lost.
+#
+
+package Errno;
+require Exporter;
+use strict;
+
+use Config;
+"$Config{'archname'}-$Config{'osvers'}" eq
+"wasm-1.38.28" or
+	die "Errno architecture (wasm-1.38.28) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})";
+
+our $VERSION = "1.29";
+$VERSION = eval $VERSION;
+our @ISA = 'Exporter';
+
+my %err;
+
+BEGIN {
+    %err = (
+	EPERM => 1,
+	ENOENT => 2,
+	ESRCH => 3,
+	EINTR => 4,
+	EIO => 5,
+	ENXIO => 6,
+	E2BIG => 7,
+	ENOEXEC => 8,
+	EBADF => 9,
+	ECHILD => 10,
+	EAGAIN => 11,
+	EWOULDBLOCK => 11,
+	ENOMEM => 12,
+	EACCES => 13,
+	EFAULT => 14,
+	ENOTBLK => 15,
+	EBUSY => 16,
+	EEXIST => 17,
+	EXDEV => 18,
+	ENODEV => 19,
+	ENOTDIR => 20,
+	EISDIR => 21,
+	EINVAL => 22,
+	ENFILE => 23,
+	EMFILE => 24,
+	ENOTTY => 25,
+	ETXTBSY => 26,
+	EFBIG => 27,
+	ENOSPC => 28,
+	ESPIPE => 29,
+	EROFS => 30,
+	EMLINK => 31,
+	EPIPE => 32,
+	EDOM => 33,
+	ERANGE => 34,
+	EDEADLK => 35,
+	EDEADLOCK => 35,
+	ENAMETOOLONG => 36,
+	ENOLCK => 37,
+	ENOSYS => 38,
+	ENOTEMPTY => 39,
+	ELOOP => 40,
+	ENOMSG => 42,
+	EIDRM => 43,
+	ECHRNG => 44,
+	EL2NSYNC => 45,
+	EL3HLT => 46,
+	EL3RST => 47,
+	ELNRNG => 48,
+	EUNATCH => 49,
+	ENOCSI => 50,
+	EL2HLT => 51,
+	EBADE => 52,
+	EBADR => 53,
+	EXFULL => 54,
+	ENOANO => 55,
+	EBADRQC => 56,
+	EBADSLT => 57,
+	EBFONT => 59,
+	ENOSTR => 60,
+	ENODATA => 61,
+	ETIME => 62,
+	ENOSR => 63,
+	ENONET => 64,
+	ENOPKG => 65,
+	EREMOTE => 66,
+	ENOLINK => 67,
+	EADV => 68,
+	ESRMNT => 69,
+	ECOMM => 70,
+	EPROTO => 71,
+	EMULTIHOP => 72,
+	EDOTDOT => 73,
+	EBADMSG => 74,
+	EOVERFLOW => 75,
+	ENOTUNIQ => 76,
+	EBADFD => 77,
+	EREMCHG => 78,
+	ELIBACC => 79,
+	ELIBBAD => 80,
+	ELIBSCN => 81,
+	ELIBMAX => 82,
+	ELIBEXEC => 83,
+	EILSEQ => 84,
+	ERESTART => 85,
+	ESTRPIPE => 86,
+	EUSERS => 87,
+	ENOTSOCK => 88,
+	EDESTADDRREQ => 89,
+	EMSGSIZE => 90,
+	EPROTOTYPE => 91,
+	ENOPROTOOPT => 92,
+	EPROTONOSUPPORT => 93,
+	ESOCKTNOSUPPORT => 94,
+	ENOTSUP => 95,
+	EOPNOTSUPP => 95,
+	EPFNOSUPPORT => 96,
+	EAFNOSUPPORT => 97,
+	EADDRINUSE => 98,
+	EADDRNOTAVAIL => 99,
+	ENETDOWN => 100,
+	ENETUNREACH => 101,
+	ENETRESET => 102,
+	ECONNABORTED => 103,
+	ECONNRESET => 104,
+	ENOBUFS => 105,
+	EISCONN => 106,
+	ENOTCONN => 107,
+	ESHUTDOWN => 108,
+	ETOOMANYREFS => 109,
+	ETIMEDOUT => 110,
+	ECONNREFUSED => 111,
+	EHOSTDOWN => 112,
+	EHOSTUNREACH => 113,
+	EALREADY => 114,
+	EINPROGRESS => 115,
+	ESTALE => 116,
+	EUCLEAN => 117,
+	ENOTNAM => 118,
+	ENAVAIL => 119,
+	EISNAM => 120,
+	EREMOTEIO => 121,
+	EDQUOT => 122,
+	ENOMEDIUM => 123,
+	EMEDIUMTYPE => 124,
+	ECANCELED => 125,
+	ENOKEY => 126,
+	EKEYEXPIRED => 127,
+	EKEYREVOKED => 128,
+	EKEYREJECTED => 129,
+	EOWNERDEAD => 130,
+	ENOTRECOVERABLE => 131,
+	ERFKILL => 132,
+	EHWPOISON => 133,
+    );
+    # Generate proxy constant subroutines for all the values.
+    # Well, almost all the values. Unfortunately we can't assume that at this
+    # point that our symbol table is empty, as code such as if the parser has
+    # seen code such as C<exists &Errno::EINVAL>, it will have created the
+    # typeglob.
+    # Doing this before defining @EXPORT_OK etc means that even if a platform is
+    # crazy enough to define EXPORT_OK as an error constant, everything will
+    # still work, because the parser will upgrade the PCS to a real typeglob.
+    # We rely on the subroutine definitions below to update the internal caches.
+    # Don't use %each, as we don't want a copy of the value.
+    foreach my $name (keys %err) {
+        if ($Errno::{$name}) {
+            # We expect this to be reached fairly rarely, so take an approach
+            # which uses the least compile time effort in the common case:
+            eval "sub $name() { $err{$name} }; 1" or die $@;
+        } else {
+            $Errno::{$name} = \$err{$name};
+        }
+    }
+}
+
+our @EXPORT_OK = keys %err;
+
+our %EXPORT_TAGS = (
+    POSIX => [qw(
+	E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
+	EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
+	EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
+	EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
+	EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
+	ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
+	ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
+	EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART
+	EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
+	ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
+    )],
+);
+
+sub TIEHASH { bless \%err }
+
+sub FETCH {
+    my (undef, $errname) = @_;
+    return "" unless exists $err{$errname};
+    my $errno = $err{$errname};
+    return $errno == $! ? $errno : 0;
+}
+
+sub STORE {
+    require Carp;
+    Carp::confess("ERRNO hash is read only!");
+}
+
+# This is the true return value
+*CLEAR = *DELETE = \*STORE; # Typeglob aliasing uses less space
+
+sub NEXTKEY {
+    each %err;
+}
+
+sub FIRSTKEY {
+    my $s = scalar keys %err;	# initialize iterator
+    each %err;
+}
+
+sub EXISTS {
+    my (undef, $errname) = @_;
+    exists $err{$errname};
+}
+
+sub _tie_it {
+    tie %{$_[0]}, __PACKAGE__;
+}
+
+__END__
+
+
+# ex: set ro:
+#
+# $Id: Encode.pm,v 2.97 2018/02/21 12:14:24 dankogai Exp $
+#
+package Encode;
+use strict;
+use warnings;
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+our $VERSION;
+BEGIN {
+    $VERSION = sprintf "%d.%02d", q$Revision: 2.97 $ =~ /(\d+)/g;
+    require XSLoader;
+    XSLoader::load( __PACKAGE__, $VERSION );
+}
+
+use Exporter 5.57 'import';
+
+our @CARP_NOT = qw(Encode::Encoder);
+
+# Public, encouraged API is exported by default
+
+our @EXPORT = qw(
+  decode  decode_utf8  encode  encode_utf8 str2bytes bytes2str
+  encodings  find_encoding find_mime_encoding clone_encoding
+);
+our @FB_FLAGS = qw(
+  DIE_ON_ERR WARN_ON_ERR RETURN_ON_ERR LEAVE_SRC
+  PERLQQ HTMLCREF XMLCREF STOP_AT_PARTIAL
+);
+our @FB_CONSTS = qw(
+  FB_DEFAULT FB_CROAK FB_QUIET FB_WARN
+  FB_PERLQQ FB_HTMLCREF FB_XMLCREF
+);
+our @EXPORT_OK = (
+    qw(
+      _utf8_off _utf8_on define_encoding from_to is_16bit is_8bit
+      is_utf8 perlio_ok resolve_alias utf8_downgrade utf8_upgrade
+      ),
+    @FB_FLAGS, @FB_CONSTS,
+);
+
+our %EXPORT_TAGS = (
+    all          => [ @EXPORT,    @EXPORT_OK ],
+    default      => [ @EXPORT ],
+    fallbacks    => [ @FB_CONSTS ],
+    fallback_all => [ @FB_CONSTS, @FB_FLAGS ],
+);
+
+# Documentation moved after __END__ for speed - NI-S
+
+our $ON_EBCDIC = ( ord("A") == 193 );
+
+use Encode::Alias ();
+use Encode::MIME::Name;
+
+use Storable;
+
+# Make a %Encoding package variable to allow a certain amount of cheating
+our %Encoding;
+our %ExtModule;
+require Encode::Config;
+#  See
+#  https://bugzilla.redhat.com/show_bug.cgi?id=435505#c2
+#  to find why sig handlers inside eval{} are disabled.
+eval {
+    local $SIG{__DIE__};
+    local $SIG{__WARN__};
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Encode::ConfigLocal;
+};
+
+sub encodings {
+    my %enc;
+    my $arg  = $_[1] || '';
+    if ( $arg eq ":all" ) {
+        %enc = ( %Encoding, %ExtModule );
+    }
+    else {
+        %enc = %Encoding;
+        for my $mod ( map { m/::/ ? $_ : "Encode::$_" } @_ ) {
+            DEBUG and warn $mod;
+            for my $enc ( keys %ExtModule ) {
+                $ExtModule{$enc} eq $mod and $enc{$enc} = $mod;
+            }
+        }
+    }
+    return sort { lc $a cmp lc $b }
+      grep      { !/^(?:Internal|Unicode|Guess)$/o } keys %enc;
+}
+
+sub perlio_ok {
+    my $obj = ref( $_[0] ) ? $_[0] : find_encoding( $_[0] );
+    $obj->can("perlio_ok") and return $obj->perlio_ok();
+    return 0;    # safety net
+}
+
+sub define_encoding {
+    my $obj  = shift;
+    my $name = shift;
+    $Encoding{$name} = $obj;
+    my $lc = lc($name);
+    define_alias( $lc => $obj ) unless $lc eq $name;
+    while (@_) {
+        my $alias = shift;
+        define_alias( $alias, $obj );
+    }
+    my $class = ref($obj);
+    push @Encode::CARP_NOT, $class unless grep { $_ eq $class } @Encode::CARP_NOT;
+    push @Encode::Encoding::CARP_NOT, $class unless grep { $_ eq $class } @Encode::Encoding::CARP_NOT;
+    return $obj;
+}
+
+sub getEncoding {
+    my ( $class, $name, $skip_external ) = @_;
+
+    defined($name) or return;
+
+    $name =~ s/\s+//g; # https://rt.cpan.org/Ticket/Display.html?id=65796
+
+    ref($name) && $name->can('renew') and return $name;
+    exists $Encoding{$name} and return $Encoding{$name};
+    my $lc = lc $name;
+    exists $Encoding{$lc} and return $Encoding{$lc};
+
+    my $oc = $class->find_alias($name);
+    defined($oc) and return $oc;
+    $lc ne $name and $oc = $class->find_alias($lc);
+    defined($oc) and return $oc;
+
+    unless ($skip_external) {
+        if ( my $mod = $ExtModule{$name} || $ExtModule{$lc} ) {
+            $mod =~ s,::,/,g;
+            $mod .= '.pm';
+            eval { require $mod; };
+            exists $Encoding{$name} and return $Encoding{$name};
+        }
+    }
+    return;
+}
+
+# HACK: These two functions must be defined in Encode and because of
+# cyclic dependency between Encode and Encode::Alias, Exporter does not work
+sub find_alias {
+    goto &Encode::Alias::find_alias;
+}
+sub define_alias {
+    goto &Encode::Alias::define_alias;
+}
+
+sub find_encoding($;$) {
+    my ( $name, $skip_external ) = @_;
+    return __PACKAGE__->getEncoding( $name, $skip_external );
+}
+
+sub find_mime_encoding($;$) {
+    my ( $mime_name, $skip_external ) = @_;
+    my $name = Encode::MIME::Name::get_encode_name( $mime_name );
+    return find_encoding( $name, $skip_external );
+}
+
+sub resolve_alias($) {
+    my $obj = find_encoding(shift);
+    defined $obj and return $obj->name;
+    return;
+}
+
+sub clone_encoding($) {
+    my $obj = find_encoding(shift);
+    ref $obj or return;
+    return Storable::dclone($obj);
+}
+
+sub encode($$;$) {
+    my ( $name, $string, $check ) = @_;
+    return undef unless defined $string;
+    $string .= '';    # stringify;
+    $check ||= 0;
+    unless ( defined $name ) {
+        require Carp;
+        Carp::croak("Encoding name should not be undef");
+    }
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$name'");
+    }
+    # For Unicode, warnings need to be caught and re-issued at this level
+    # so that callers can disable utf8 warnings lexically.
+    my $octets;
+    if ( ref($enc) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $octets = $enc->encode( $string, $check );
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $octets = $enc->encode( $string, $check );
+    }
+    $_[1] = $string if $check and !ref $check and !( $check & LEAVE_SRC );
+    return $octets;
+}
+*str2bytes = \&encode;
+
+sub decode($$;$) {
+    my ( $name, $octets, $check ) = @_;
+    return undef unless defined $octets;
+    $octets .= '';
+    $check ||= 0;
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$name'");
+    }
+    # For Unicode, warnings need to be caught and re-issued at this level
+    # so that callers can disable utf8 warnings lexically.
+    my $string;
+    if ( ref($enc) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $string = $enc->decode( $octets, $check );
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $string = $enc->decode( $octets, $check );
+    }
+    $_[1] = $octets if $check and !ref $check and !( $check & LEAVE_SRC );
+    return $string;
+}
+*bytes2str = \&decode;
+
+sub from_to($$$;$) {
+    my ( $string, $from, $to, $check ) = @_;
+    return undef unless defined $string;
+    $check ||= 0;
+    my $f = find_encoding($from);
+    unless ( defined $f ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$from'");
+    }
+    my $t = find_encoding($to);
+    unless ( defined $t ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$to'");
+    }
+
+    # For Unicode, warnings need to be caught and re-issued at this level
+    # so that callers can disable utf8 warnings lexically.
+    my $uni;
+    if ( ref($f) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $uni = $f->decode($string);
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $uni = $f->decode($string);
+    }
+
+    if ( ref($t) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $_[0] = $string = $t->encode( $uni, $check );
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $_[0] = $string = $t->encode( $uni, $check );
+    }
+
+    return undef if ( $check && length($uni) );
+    return defined( $_[0] ) ? length($string) : undef;
+}
+
+sub encode_utf8($) {
+    my ($str) = @_;
+    return undef unless defined $str;
+    utf8::encode($str);
+    return $str;
+}
+
+my $utf8enc;
+
+sub decode_utf8($;$) {
+    my ( $octets, $check ) = @_;
+    return undef unless defined $octets;
+    $octets .= '';
+    $check   ||= 0;
+    $utf8enc ||= find_encoding('utf8');
+    my $string = $utf8enc->decode( $octets, $check );
+    $_[0] = $octets if $check and !ref $check and !( $check & LEAVE_SRC );
+    return $string;
+}
+
+onBOOT;
+
+if ($ON_EBCDIC) {
+    package Encode::UTF_EBCDIC;
+    use parent 'Encode::Encoding';
+    my $obj = bless { Name => "UTF_EBCDIC" } => "Encode::UTF_EBCDIC";
+    Encode::define_encoding($obj, 'Unicode');
+    sub decode {
+        my ( undef, $str, $chk ) = @_;
+        my $res = '';
+        for ( my $i = 0 ; $i < length($str) ; $i++ ) {
+            $res .=
+              chr(
+                utf8::unicode_to_native( ord( substr( $str, $i, 1 ) ) )
+              );
+        }
+        $_[1] = '' if $chk;
+        return $res;
+    }
+    sub encode {
+        my ( undef, $str, $chk ) = @_;
+        my $res = '';
+        for ( my $i = 0 ; $i < length($str) ; $i++ ) {
+            $res .=
+              chr(
+                utf8::native_to_unicode( ord( substr( $str, $i, 1 ) ) )
+              );
+        }
+        $_[1] = '' if $chk;
+        return $res;
+    }
+} else {
+    package Encode::Internal;
+    use parent 'Encode::Encoding';
+    my $obj = bless { Name => "Internal" } => "Encode::Internal";
+    Encode::define_encoding($obj, 'Unicode');
+    sub decode {
+        my ( undef, $str, $chk ) = @_;
+        utf8::upgrade($str);
+        $_[1] = '' if $chk;
+        return $str;
+    }
+    *encode = \&decode;
+}
+
+{
+    # https://rt.cpan.org/Public/Bug/Display.html?id=103253
+    package Encode::XS;
+    use parent 'Encode::Encoding';
+}
+
+{
+    package Encode::utf8;
+    use parent 'Encode::Encoding';
+    my %obj = (
+        'utf8'         => { Name => 'utf8' },
+        'utf-8-strict' => { Name => 'utf-8-strict', strict_utf8 => 1 }
+    );
+    for ( keys %obj ) {
+        bless $obj{$_} => __PACKAGE__;
+        Encode::define_encoding( $obj{$_} => $_ );
+    }
+    sub cat_decode {
+        # ($obj, $dst, $src, $pos, $trm, $chk)
+        # currently ignores $chk
+        my ( undef, undef, undef, $pos, $trm ) = @_;
+        my ( $rdst, $rsrc, $rpos ) = \@_[ 1, 2, 3 ];
+        use bytes;
+        if ( ( my $npos = index( $$rsrc, $trm, $pos ) ) >= 0 ) {
+            $$rdst .=
+              substr( $$rsrc, $pos, $npos - $pos + length($trm) );
+            $$rpos = $npos + length($trm);
+            return 1;
+        }
+        $$rdst .= substr( $$rsrc, $pos );
+        $$rpos = length($$rsrc);
+        return '';
+    }
+}
+
+1;
+
+__END__
+
+#      mro.pm
+#
+#      Copyright (c) 2007 Brandon L Black
+#      Copyright (c) 2008,2009 Larry Wall and others
+#
+#      You may distribute under the terms of either the GNU General Public
+#      License or the Artistic License, as specified in the README file.
+#
+package mro;
+use strict;
+use warnings;
+
+# mro.pm versions < 1.00 reserved for MRO::Compat
+#  for partial back-compat to 5.[68].x
+our $VERSION = '1.22';
+
+require XSLoader;
+XSLoader::load('mro');
+
+sub import {
+    mro::set_mro(scalar(caller), $_[1]) if $_[1];
+}
+
+package # hide me from PAUSE
+    next;
+
+sub can { mro::_nextcan($_[0], 0) }
+
+sub method {
+    my $method = mro::_nextcan($_[0], 1);
+    goto &$method;
+}
+
+package # hide me from PAUSE
+    maybe::next;
+
+sub method {
+    my $method = mro::_nextcan($_[0], 0);
+    goto &$method if defined $method;
+    return;
+}
+
+1;
+
+__END__
+
+package re;
+
+# pragma for controlling the regexp engine
+use strict;
+use warnings;
+
+our $VERSION     = "0.36";
+our @ISA         = qw(Exporter);
+our @EXPORT_OK   = ('regmust',
+                    qw(is_regexp regexp_pattern
+                       regname regnames regnames_count));
+our %EXPORT_OK = map { $_ => 1 } @EXPORT_OK;
+
+my %bitmask = (
+    taint   => 0x00100000, # HINT_RE_TAINT
+    eval    => 0x00200000, # HINT_RE_EVAL
+);
+
+my $flags_hint = 0x02000000; # HINT_RE_FLAGS
+my $PMMOD_SHIFT = 0;
+my %reflags = (
+    m => 1 << ($PMMOD_SHIFT + 0),
+    s => 1 << ($PMMOD_SHIFT + 1),
+    i => 1 << ($PMMOD_SHIFT + 2),
+    x => 1 << ($PMMOD_SHIFT + 3),
+   xx => 1 << ($PMMOD_SHIFT + 4),
+    n => 1 << ($PMMOD_SHIFT + 5),
+    p => 1 << ($PMMOD_SHIFT + 6),
+    strict => 1 << ($PMMOD_SHIFT + 10),
+# special cases:
+    d => 0,
+    l => 1,
+    u => 2,
+    a => 3,
+    aa => 4,
+);
+
+sub setcolor {
+ eval {				# Ignore errors
+  require Term::Cap;
+
+  my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
+  my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue';
+  my @props = split /,/, $props;
+  my $colors = join "\t", map {$terminal->Tputs($_,1)} @props;
+
+  $colors =~ s/\0//g;
+  $ENV{PERL_RE_COLORS} = $colors;
+ };
+ if ($@) {
+    $ENV{PERL_RE_COLORS} ||= qq'\t\t> <\t> <\t\t';
+ }
+
+}
+
+my %flags = (
+    COMPILE         => 0x0000FF,
+    PARSE           => 0x000001,
+    OPTIMISE        => 0x000002,
+    TRIEC           => 0x000004,
+    DUMP            => 0x000008,
+    FLAGS           => 0x000010,
+    TEST            => 0x000020,
+
+    EXECUTE         => 0x00FF00,
+    INTUIT          => 0x000100,
+    MATCH           => 0x000200,
+    TRIEE           => 0x000400,
+
+    EXTRA           => 0xFF0000,
+    TRIEM           => 0x010000,
+    OFFSETS         => 0x020000,
+    OFFSETSDBG      => 0x040000,
+    STATE           => 0x080000,
+    OPTIMISEM       => 0x100000,
+    STACK           => 0x280000,
+    BUFFERS         => 0x400000,
+    GPOS            => 0x800000,
+);
+$flags{ALL} = -1 & ~($flags{OFFSETS}|$flags{OFFSETSDBG}|$flags{BUFFERS});
+$flags{All} = $flags{all} = $flags{DUMP} | $flags{EXECUTE};
+$flags{Extra} = $flags{EXECUTE} | $flags{COMPILE} | $flags{GPOS};
+$flags{More} = $flags{MORE} = $flags{All} | $flags{TRIEC} | $flags{TRIEM} | $flags{STATE};
+$flags{State} = $flags{DUMP} | $flags{EXECUTE} | $flags{STATE};
+$flags{TRIE} = $flags{DUMP} | $flags{EXECUTE} | $flags{TRIEC};
+
+if (defined &DynaLoader::boot_DynaLoader) {
+    require XSLoader;
+    XSLoader::load();
+}
+# else we're miniperl
+# We need to work for miniperl, because the XS toolchain uses Text::Wrap, which
+# uses re 'taint'.
+
+sub _load_unload {
+    my ($on)= @_;
+    if ($on) {
+	# We call install() every time, as if we didn't, we wouldn't
+	# "see" any changes to the color environment var since
+	# the last time it was called.
+
+	# install() returns an integer, which if casted properly
+	# in C resolves to a structure containing the regexp
+	# hooks. Setting it to a random integer will guarantee
+	# segfaults.
+	$^H{regcomp} = install();
+    } else {
+        delete $^H{regcomp};
+    }
+}
+
+sub bits {
+    my $on = shift;
+    my $bits = 0;
+    my $turning_all_off = ! @_ && ! $on;
+    if ($turning_all_off) {
+
+        # Pretend were called with certain parameters, which are best dealt
+        # with that way.
+        push @_, keys %bitmask; # taint and eval
+        push @_, 'strict';
+    }
+
+    # Process each subpragma parameter
+   ARG:
+    foreach my $idx (0..$#_){
+        my $s=$_[$idx];
+        if ($s eq 'Debug' or $s eq 'Debugcolor') {
+            setcolor() if $s =~/color/i;
+            ${^RE_DEBUG_FLAGS} = 0 unless defined ${^RE_DEBUG_FLAGS};
+            for my $idx ($idx+1..$#_) {
+                if ($flags{$_[$idx]}) {
+                    if ($on) {
+                        ${^RE_DEBUG_FLAGS} |= $flags{$_[$idx]};
+                    } else {
+                        ${^RE_DEBUG_FLAGS} &= ~ $flags{$_[$idx]};
+                    }
+                } else {
+                    require Carp;
+                    Carp::carp("Unknown \"re\" Debug flag '$_[$idx]', possible flags: ",
+                               join(", ",sort keys %flags ) );
+                }
+            }
+            _load_unload($on ? 1 : ${^RE_DEBUG_FLAGS});
+            last;
+        } elsif ($s eq 'debug' or $s eq 'debugcolor') {
+	    setcolor() if $s =~/color/i;
+	    _load_unload($on);
+	    last;
+        } elsif (exists $bitmask{$s}) {
+	    $bits |= $bitmask{$s};
+	} elsif ($EXPORT_OK{$s}) {
+	    require Exporter;
+	    re->export_to_level(2, 're', $s);
+        } elsif ($s eq 'strict') {
+            if ($on) {
+                $^H{reflags} |= $reflags{$s};
+                warnings::warnif('experimental::re_strict',
+                                 "\"use re 'strict'\" is experimental");
+
+                # Turn on warnings if not already done.
+                if (! warnings::enabled('regexp')) {
+                    require warnings;
+                    warnings->import('regexp');
+                    $^H{re_strict} = 1;
+                }
+            }
+            else {
+                $^H{reflags} &= ~$reflags{$s} if $^H{reflags};
+
+                # Turn off warnings if we turned them on.
+                warnings->unimport('regexp') if $^H{re_strict};
+            }
+	    if ($^H{reflags}) {
+                $^H |= $flags_hint;
+            }
+            else {
+                $^H &= ~$flags_hint;
+            }
+	} elsif ($s =~ s/^\///) {
+	    my $reflags = $^H{reflags} || 0;
+	    my $seen_charset;
+            my $x_count = 0;
+	    while ($s =~ m/( . )/gx) {
+                local $_ = $1;
+		if (/[adul]/) {
+                    # The 'a' may be repeated; hide this from the rest of the
+                    # code by counting and getting rid of all of them, then
+                    # changing to 'aa' if there is a repeat.
+                    if ($_ eq 'a') {
+                        my $sav_pos = pos $s;
+                        my $a_count = $s =~ s/a//g;
+                        pos $s = $sav_pos - 1;  # -1 because got rid of the 'a'
+                        if ($a_count > 2) {
+			    require Carp;
+                            Carp::carp(
+                            qq 'The "a" flag may only appear a maximum of twice'
+                            );
+                        }
+                        elsif ($a_count == 2) {
+                            $_ = 'aa';
+                        }
+                    }
+		    if ($on) {
+			if ($seen_charset) {
+			    require Carp;
+                            if ($seen_charset ne $_) {
+                                Carp::carp(
+                                qq 'The "$seen_charset" and "$_" flags '
+                                .qq 'are exclusive'
+                                );
+                            }
+                            else {
+                                Carp::carp(
+                                qq 'The "$seen_charset" flag may not appear '
+                                .qq 'twice'
+                                );
+                            }
+			}
+			$^H{reflags_charset} = $reflags{$_};
+			$seen_charset = $_;
+		    }
+		    else {
+			delete $^H{reflags_charset}
+                                     if defined $^H{reflags_charset}
+                                        && $^H{reflags_charset} == $reflags{$_};
+		    }
+		} elsif (exists $reflags{$_}) {
+                    if ($_ eq 'x') {
+                        $x_count++;
+                        if ($x_count > 2) {
+			    require Carp;
+                            Carp::carp(
+                            qq 'The "x" flag may only appear a maximum of twice'
+                            );
+                        }
+                        elsif ($x_count == 2) {
+                            $_ = 'xx';  # First time through got the /x
+                        }
+                    }
+
+                    $on
+		      ? $reflags |= $reflags{$_}
+		      : ($reflags &= ~$reflags{$_});
+		} else {
+		    require Carp;
+		    Carp::carp(
+		     qq'Unknown regular expression flag "$_"'
+		    );
+		    next ARG;
+		}
+	    }
+	    ($^H{reflags} = $reflags or defined $^H{reflags_charset})
+	                    ? $^H |= $flags_hint
+	                    : ($^H &= ~$flags_hint);
+	} else {
+	    require Carp;
+	    Carp::carp("Unknown \"re\" subpragma '$s' (known ones are: ",
+                       join(', ', map {qq('$_')} 'debug', 'debugcolor', sort keys %bitmask),
+                       ")");
+	}
+    }
+
+    if ($turning_all_off) {
+        _load_unload(0);
+        $^H{reflags} = 0;
+        $^H{reflags_charset} = 0;
+        $^H &= ~$flags_hint;
+    }
+
+    $bits;
+}
+
+sub import {
+    shift;
+    $^H |= bits(1, @_);
+}
+
+sub unimport {
+    shift;
+    $^H &= ~ bits(0, @_);
+}
+
+1;
+
+__END__
+
+# This file was created by configpm when Perl was built. Any changes
+# made to this file will be lost the next time perl is built.
+
+# for a description of the variables, please have a look at the
+# Glossary file, as written in the Porting folder, or use the url:
+# http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
+
+package Config;
+use strict;
+use warnings;
+our ( %Config, $VERSION );
+
+$VERSION = "5.028001";
+
+# Skip @Config::EXPORT because it only contains %Config, which we special
+# case below as it's not a function. @Config::EXPORT won't change in the
+# lifetime of Perl 5.
+my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
+		    config_re => 1, compile_date => 1, local_patches => 1,
+		    bincompat_options => 1, non_bincompat_options => 1,
+		    header_files => 1);
+
+@Config::EXPORT = qw(%Config);
+@Config::EXPORT_OK = keys %Export_Cache;
+
+# Need to stub all the functions to make code such as print Config::config_sh
+# keep working
+
+sub bincompat_options;
+sub compile_date;
+sub config_re;
+sub config_sh;
+sub config_vars;
+sub header_files;
+sub local_patches;
+sub myconfig;
+sub non_bincompat_options;
+
+# Define our own import method to avoid pulling in the full Exporter:
+sub import {
+    shift;
+    @_ = @Config::EXPORT unless @_;
+
+    my @funcs = grep $_ ne '%Config', @_;
+    my $export_Config = @funcs < @_ ? 1 : 0;
+
+    no strict 'refs';
+    my $callpkg = caller(0);
+    foreach my $func (@funcs) {
+	die qq{"$func" is not exported by the Config module\n}
+	    unless $Export_Cache{$func};
+	*{$callpkg.'::'.$func} = \&{$func};
+    }
+
+    *{"$callpkg\::Config"} = \%Config if $export_Config;
+    return;
+}
+
+die "$0: Perl lib version (5.28.1) doesn't match executable '$^X' version ($])"
+    unless $^V;
+
+$^V eq 5.28.1
+    or die sprintf "%s: Perl lib version (5.28.1) doesn't match executable '$^X' version (%vd)", $0, $^V;
+
+
+sub FETCH {
+    my($self, $key) = @_;
+
+    # check for cached value (which may be undef so we use exists not defined)
+    return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
+}
+
+sub TIEHASH {
+    bless $_[1], $_[0];
+}
+
+sub DESTROY { }
+
+sub AUTOLOAD {
+    require 'Config_heavy.pl';
+    goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
+    die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
+}
+
+# tie returns the object, so the value returned to require will be true.
+tie %Config, 'Config', {
+    archlibexp => '/opt/perl/lib/5.28.1/wasm',
+    archname => 'wasm',
+    cc => 'emcc',
+    d_readlink => 'define',
+    d_symlink => 'define',
+    dlext => 'none',
+    dlsrc => 'dl_none.xs',
+    dont_use_nlink => undef,
+    exe_ext => '',
+    inc_version_list => ' ',
+    intsize => '4',
+    ldlibpthname => 'LD_LIBRARY_PATH',
+    libpth => '/usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL /usr/local/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libcxx /home/haukex/emsdk/emscripten/1.38.28/system/lib/libcxxabi/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/compat /home/haukex/emsdk/emscripten/1.38.28/system/lib /home/haukex/emsdk/emscripten/1.38.28/system/include/libc /home/haukex/emsdk/emscripten/1.38.28/system/include/SDL',
+    osname => 'emscripten',
+    osvers => '1.38.28',
+    path_sep => ':',
+    privlibexp => '/opt/perl/lib/5.28.1',
+    scriptdir => '/opt/perl/bin',
+    sitearchexp => '/opt/perl/lib/site_perl/5.28.1/wasm',
+    sitelibexp => '/opt/perl/lib/site_perl/5.28.1',
+    so => 'so',
+    useithreads => undef,
+    usevendorprefix => undef,
+    version => '5.28.1',
+};
+# Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
+
+package Scalar::Util;
+
+use strict;
+use warnings;
+require Exporter;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(
+  blessed refaddr reftype weaken unweaken isweak
+
+  dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
+  tainted
+);
+our $VERSION    = "1.50";
+$VERSION   = eval $VERSION;
+
+require List::Util; # List::Util loads the XS
+List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
+
+our @EXPORT_FAIL;
+
+unless (defined &weaken) {
+  push @EXPORT_FAIL, qw(weaken);
+}
+unless (defined &isweak) {
+  push @EXPORT_FAIL, qw(isweak isvstring);
+}
+unless (defined &isvstring) {
+  push @EXPORT_FAIL, qw(isvstring);
+}
+
+sub export_fail {
+  if (grep { /^(?:weaken|isweak)$/ } @_ ) {
+    require Carp;
+    Carp::croak("Weak references are not implemented in the version of perl");
+  }
+
+  if (grep { /^isvstring$/ } @_ ) {
+    require Carp;
+    Carp::croak("Vstrings are not implemented in the version of perl");
+  }
+
+  @_;
+}
+
+# set_prototype has been moved to Sub::Util with a different interface
+sub set_prototype(&$)
+{
+  my ( $code, $proto ) = @_;
+  return Sub::Util::set_prototype( $proto, $code );
+}
+
+1;
+
+__END__
+
+
+use strict;
+package Tie::Hash::NamedCapture;
+
+our $VERSION = "0.10";
+
+require XSLoader;
+XSLoader::load(); # This returns true, which makes require happy.
+
+__END__
+
+# Copyright (c) 2014 Paul Evans <leonerd@leonerd.org.uk>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Sub::Util;
+
+use strict;
+use warnings;
+
+require Exporter;
+
+our @ISA = qw( Exporter );
+our @EXPORT_OK = qw(
+  prototype set_prototype
+  subname set_subname
+);
+
+our $VERSION    = "1.50";
+$VERSION   = eval $VERSION;
+
+require List::Util; # as it has the XS
+List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
+
+
+
+
+sub prototype
+{
+  my ( $code ) = @_;
+  return CORE::prototype( $code );
+}
+
+
+
+
+
+1;
+package B::Terse;
+
+our $VERSION = '1.08';
+
+use strict;
+use B qw(class @specialsv_name);
+use B::Concise qw(concise_subref set_style_standard);
+use Carp;
+
+sub terse {
+    my ($order, $subref) = @_;
+    set_style_standard("terse");
+    if ($order eq "exec") {
+	concise_subref('exec', $subref);
+    } else {
+	concise_subref('basic', $subref);
+    }
+}
+
+sub compile {
+    my @args = @_;
+    my $order = @args ? shift(@args) : "";
+    $order = "-exec" if $order eq "exec";
+    unshift @args, $order if $order ne "";
+    B::Concise::compile("-terse", @args);
+}
+
+sub indent {
+    my ($level) = @_ ? shift : 0;
+    return "    " x $level;
+}
+
+
+sub B::SV::terse {
+    my($sv, $level) = (@_, 0);
+    my %info;
+    B::Concise::concise_sv($sv, \%info);
+    my $s = indent($level)
+	. B::Concise::fmt_line(\%info, $sv,
+				 "#svclass~(?((#svaddr))?)~#svval", 0);
+    chomp $s;
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+sub B::NULL::terse {
+    my ($sv, $level) = (@_, 0);
+    my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv;
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+sub B::SPECIAL::terse {
+    my ($sv, $level) = (@_, 0);
+    my $s = indent($level)
+	. sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]);
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+1;
+
+__END__
+
+package B::Xref;
+
+our $VERSION = '1.07';
+
+
+use strict;
+use Config;
+use B qw(peekop class comppadlist main_start svref_2object walksymtable
+         OPpLVAL_INTRO SVf_POK SVf_ROK OPpOUR_INTRO cstring
+        );
+
+sub UNKNOWN { ["?", "?", "?"] }
+
+my @pad;			# lexicals in current pad
+				# as ["(lexical)", type, name]
+my %done;			# keyed by $$op: set when each $op is done
+my $top = UNKNOWN;		# shadows top element of stack as
+				# [pack, type, name] (pack can be "(lexical)")
+my $file;			# shadows current filename
+my $line;			# shadows current line number
+my $subname;			# shadows current sub name
+my %table;			# Multi-level hash to record all uses etc.
+my @todo = ();			# List of CVs that need processing
+
+my %code = (intro => "i", used => "",
+	    subdef => "s", subused => "&",
+	    formdef => "f", meth => "->");
+
+
+# Options
+my ($debug_op, $debug_top, $nodefs, $raw);
+
+sub process {
+    my ($var, $event) = @_;
+    my ($pack, $type, $name) = @$var;
+    if ($type eq "*") {
+	if ($event eq "used") {
+	    return;
+	} elsif ($event eq "subused") {
+	    $type = "&";
+	}
+    }
+    $type =~ s/(.)\*$/$1/g;
+    if ($raw) {
+	printf "%-16s %-12s %5d %-12s %4s %-16s %s\n",
+	    $file, $subname, $line, $pack, $type, $name, $event;
+    } else {
+	# Wheee
+	push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}},
+	    $line);
+    }
+}
+
+sub load_pad {
+    my $padlist = shift;
+    my ($namelistav, $vallistav, @namelist, $ix);
+    @pad = ();
+    return if class($padlist) =~ '^(?:SPECIAL|NULL)\z';
+    ($namelistav,$vallistav) = $padlist->ARRAY;
+    @namelist = $namelistav->ARRAY;
+    for ($ix = 1; $ix < @namelist; $ix++) {
+	my $namesv = $namelist[$ix];
+	next if class($namesv) eq "SPECIAL";
+	my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
+	$pad[$ix] = ["(lexical)", $type || '?', $name || '?'];
+    }
+    if ($Config{useithreads}) {
+	my (@vallist);
+	@vallist = $vallistav->ARRAY;
+	for ($ix = 1; $ix < @vallist; $ix++) {
+	    my $valsv = $vallist[$ix];
+	    next unless class($valsv) eq "GV";
+            next if class($valsv->STASH) eq 'SPECIAL';
+	    # these pad GVs don't have corresponding names, so same @pad
+	    # array can be used without collisions
+	    $pad[$ix] = [$valsv->STASH->NAME, "*", $valsv->NAME];
+	}
+    }
+}
+
+sub xref {
+    my $start = shift;
+    my $op;
+    for ($op = $start; $$op; $op = $op->next) {
+	last if $done{$$op}++;
+	warn sprintf("top = [%s, %s, %s]\n", @$top) if $debug_top;
+	warn peekop($op), "\n" if $debug_op;
+	my $opname = $op->name;
+	if ($opname =~ /^(or|and|mapwhile|grepwhile|range|cond_expr)$/) {
+	    xref($op->other);
+	} elsif ($opname eq "match" || $opname eq "subst") {
+	    xref($op->pmreplstart);
+	} elsif ($opname eq "substcont") {
+	    xref($op->other->pmreplstart);
+	    $op = $op->other;
+	    redo;
+	} elsif ($opname eq "enterloop") {
+	    xref($op->redoop);
+	    xref($op->nextop);
+	    xref($op->lastop);
+	} elsif ($opname eq "subst") {
+	    xref($op->pmreplstart);
+	} else {
+	    no strict 'refs';
+	    my $ppname = "pp_$opname";
+	    &$ppname($op) if defined(&$ppname);
+	}
+    }
+}
+
+sub xref_cv {
+    my $cv = shift;
+    my $pack = $cv->GV->STASH->NAME;
+    $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME;
+    load_pad($cv->PADLIST);
+    xref($cv->START);
+    $subname = "(main)";
+}
+
+sub xref_object {
+    my $cvref = shift;
+    xref_cv(svref_2object($cvref));
+}
+
+sub xref_main {
+    $subname = "(main)";
+    load_pad(comppadlist);
+    xref(main_start);
+    while (@todo) {
+	xref_cv(shift @todo);
+    }
+}
+
+sub pp_nextstate {
+    my $op = shift;
+    $file = $op->file;
+    $line = $op->line;
+    $top = UNKNOWN;
+}
+
+sub pp_padrange {
+    my $op = shift;
+    my $count = $op->private & 127;
+    for my $i (0..$count-1) {
+	$top = $pad[$op->targ + $i];
+	process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+    }
+}
+
+sub pp_padsv {
+    my $op = shift;
+    $top = $pad[$op->targ];
+    process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+}
+
+sub pp_padav { pp_padsv(@_) }
+sub pp_padhv { pp_padsv(@_) }
+
+sub deref {
+    my ($op, $var, $as) = @_;
+    $var->[1] = $as . $var->[1];
+    process($var, $op->private & OPpOUR_INTRO ? "intro" : "used");
+}
+
+sub pp_rv2cv { deref(shift, $top, "&"); }
+sub pp_rv2hv { deref(shift, $top, "%"); }
+sub pp_rv2sv { deref(shift, $top, "\$"); }
+sub pp_rv2av { deref(shift, $top, "\@"); }
+sub pp_rv2gv { deref(shift, $top, "*"); }
+
+sub pp_gvsv {
+    my $op = shift;
+    my $gv;
+    if ($Config{useithreads}) {
+	$top = $pad[$op->padix];
+	$top = UNKNOWN unless $top;
+	$top->[1] = '$';
+    }
+    else {
+	$gv = $op->gv;
+	$top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
+    }
+    process($top, $op->private & OPpLVAL_INTRO ||
+                  $op->private & OPpOUR_INTRO   ? "intro" : "used");
+}
+
+sub pp_gv {
+    my $op = shift;
+    my $gv;
+    if ($Config{useithreads}) {
+	$top = $pad[$op->padix];
+	$top = UNKNOWN unless $top;
+	$top->[1] = '*';
+    }
+    else {
+	$gv = $op->gv;
+	if ($gv->FLAGS & SVf_ROK) { # sub ref
+	    my $cv = $gv->RV;
+	    $top = [$cv->STASH->NAME, '*', B::safename($cv->NAME_HEK)]
+	}
+	else {
+	    $top = [$gv->STASH->NAME, '*', $gv->SAFENAME];
+	}
+    }
+    process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+}
+
+sub pp_const {
+    my $op = shift;
+    my $sv = $op->sv;
+    # constant could be in the pad (under useithreads)
+    if ($$sv) {
+	$top = ["?", "",
+		(class($sv) ne "SPECIAL" && $sv->FLAGS & SVf_POK)
+		? cstring($sv->PV) : "?"];
+    }
+    else {
+	$top = $pad[$op->targ];
+	$top = UNKNOWN unless $top;
+    }
+}
+
+sub pp_method {
+    my $op = shift;
+    $top = ["(method)", "->".$top->[1], $top->[2]];
+}
+
+sub pp_entersub {
+    my $op = shift;
+    if ($top->[1] eq "m") {
+	process($top, "meth");
+    } else {
+	process($top, "subused");
+    }
+    $top = UNKNOWN;
+}
+
+#
+# Stuff for cross referencing definitions of variables and subs
+#
+
+sub B::GV::xref {
+    my $gv = shift;
+    my $cv = $gv->CV;
+    if ($$cv) {
+	#return if $done{$$cv}++;
+	$file = $gv->FILE;
+	$line = $gv->LINE;
+	process([$gv->STASH->NAME, "&", $gv->NAME], "subdef");
+	push(@todo, $cv);
+    }
+    my $form = $gv->FORM;
+    if ($$form) {
+	return if $done{$$form}++;
+	$file = $gv->FILE;
+	$line = $gv->LINE;
+	process([$gv->STASH->NAME, "", $gv->NAME], "formdef");
+    }
+}
+
+sub xref_definitions {
+    my ($pack, %exclude);
+    return if $nodefs;
+    $subname = "(definitions)";
+    foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS
+		      strict vars FileHandle Exporter Carp PerlIO::Layer
+		      attributes utf8 warnings)) {
+        $exclude{$pack."::"} = 1;
+    }
+    no strict qw(vars refs);
+    walksymtable(\%{"main::"}, "xref", sub { !defined($exclude{$_[0]}) });
+}
+
+sub output {
+    return if $raw;
+    my ($file, $subname, $pack, $name, $ev, $perfile, $persubname,
+	$perpack, $pername, $perev);
+    foreach $file (sort(keys(%table))) {
+	$perfile = $table{$file};
+	print "File $file\n";
+	foreach $subname (sort(keys(%$perfile))) {
+	    $persubname = $perfile->{$subname};
+	    print "  Subroutine $subname\n";
+	    foreach $pack (sort(keys(%$persubname))) {
+		$perpack = $persubname->{$pack};
+		print "    Package $pack\n";
+		foreach $name (sort(keys(%$perpack))) {
+		    $pername = $perpack->{$name};
+		    my @lines;
+		    foreach $ev (qw(intro formdef subdef meth subused used)) {
+			$perev = $pername->{$ev};
+			if (defined($perev) && @$perev) {
+			    my $code = $code{$ev};
+			    push(@lines, map("$code$_", @$perev));
+			}
+		    }
+		    printf "      %-16s  %s\n", $name, join(", ", @lines);
+		}
+	    }
+	}
+    }
+}
+
+sub compile {
+    my @options = @_;
+    my ($option, $opt, $arg);
+  OPTION:
+    while ($option = shift @options) {
+	if ($option =~ /^-(.)(.*)/) {
+	    $opt = $1;
+	    $arg = $2;
+	} else {
+	    unshift @options, $option;
+	    last OPTION;
+	}
+	if ($opt eq "-" && $arg eq "-") {
+	    shift @options;
+	    last OPTION;
+	} elsif ($opt eq "o") {
+	    $arg ||= shift @options;
+	    open(STDOUT, '>', $arg) or return "$arg: $!\n";
+	} elsif ($opt eq "d") {
+	    $nodefs = 1;
+	} elsif ($opt eq "r") {
+	    $raw = 1;
+	} elsif ($opt eq "D") {
+            $arg ||= shift @options;
+	    foreach $arg (split(//, $arg)) {
+		if ($arg eq "o") {
+		    B->debug(1);
+		} elsif ($arg eq "O") {
+		    $debug_op = 1;
+		} elsif ($arg eq "t") {
+		    $debug_top = 1;
+		}
+	    }
+	}
+    }
+    if (@options) {
+	return sub {
+	    my $objname;
+	    xref_definitions();
+	    foreach $objname (@options) {
+		$objname = "main::$objname" unless $objname =~ /::/;
+		eval "xref_object(\\&$objname)";
+		die "xref_object(\\&$objname) failed: $@" if $@;
+	    }
+	    output();
+	}
+    } else {
+	return sub {
+	    xref_definitions();
+	    xref_main();
+	    output();
+	}
+    }
+}
+
+1;
+package B::Showlex;
+
+our $VERSION = '1.05';
+
+use strict;
+use B qw(svref_2object comppadlist class);
+use B::Terse ();
+use B::Concise ();
+
+#
+# Invoke as
+#     perl -MO=Showlex,foo bar.pl
+# to see the names of lexical variables used by &foo
+# or as
+#     perl -MO=Showlex bar.pl
+# to see the names of file scope lexicals used by bar.pl
+#
+
+
+# borrowed from B::Concise
+our $walkHandle = \*STDOUT;
+
+sub walk_output { # updates $walkHandle
+    $walkHandle = B::Concise::walk_output(@_);
+    #print "got $walkHandle";
+    #print $walkHandle "using it";
+    $walkHandle;
+}
+
+sub shownamearray {
+    my ($name, $av) = @_;
+    my @els = $av->ARRAY;
+    my $count = @els;
+    my $i;
+    print $walkHandle "$name has $count entries\n";
+    for ($i = 0; $i < $count; $i++) {
+	my $sv = $els[$i];
+	if (class($sv) ne "SPECIAL") {
+	    printf $walkHandle "$i: (0x%lx) %s\n",
+				$$sv, $sv->PVX // "undef" || "const";
+	} else {
+	    printf $walkHandle "$i: %s\n", $sv->terse;
+	    #printf $walkHandle "$i: %s\n", B::Concise::concise_sv($sv);
+	}
+    }
+}
+
+sub showvaluearray {
+    my ($name, $av) = @_;
+    my @els = $av->ARRAY;
+    my $count = @els;
+    my $i;
+    print $walkHandle "$name has $count entries\n";
+    for ($i = 0; $i < $count; $i++) {
+	printf $walkHandle "$i: %s\n", $els[$i]->terse;
+	#print $walkHandle "$i: %s\n", B::Concise::concise_sv($els[$i]);
+    }
+}
+
+sub showlex {
+    my ($objname, $namesav, $valsav) = @_;
+    shownamearray("Pad of lexical names for $objname", $namesav);
+    showvaluearray("Pad of lexical values for $objname", $valsav);
+}
+
+my ($newlex, $nosp1); # rendering state vars
+
+sub padname_terse {
+    my $name = shift;
+    return $name->terse if class($name) eq 'SPECIAL';
+    my $str = $name->PVX;
+    return sprintf "(0x%lx) %s",
+	       $$name,
+	       length $str ? qq'"$str"' : defined $str ? "const" : 'undef';
+}
+
+sub newlex { # drop-in for showlex
+    my ($objname, $names, $vals) = @_;
+    my @names = $names->ARRAY;
+    my @vals  = $vals->ARRAY;
+    my $count = @names;
+    print $walkHandle "$objname Pad has $count entries\n";
+    printf $walkHandle "0: %s\n", padname_terse($names[0]) unless $nosp1;
+    for (my $i = 1; $i < $count; $i++) {
+	printf $walkHandle "$i: %s = %s\n", padname_terse($names[$i]),
+					    $vals[$i]->terse,
+	    unless $nosp1
+	       and class($names[$i]) eq 'SPECIAL' || !$names[$i]->LEN;
+    }
+}
+
+sub showlex_obj {
+    my ($objname, $obj) = @_;
+    $objname =~ s/^&main::/&/;
+    showlex($objname, svref_2object($obj)->PADLIST->ARRAY) if !$newlex;
+    newlex ($objname, svref_2object($obj)->PADLIST->ARRAY) if  $newlex;
+}
+
+sub showlex_main {
+    showlex("comppadlist", comppadlist->ARRAY)	if !$newlex;
+    newlex ("main", comppadlist->ARRAY)		if  $newlex;
+}
+
+sub compile {
+    my @options = grep(/^-/, @_);
+    my @args = grep(!/^-/, @_);
+    for my $o (@options) {
+	$newlex = 1 if $o eq "-newlex";
+	$nosp1  = 1 if $o eq "-nosp";
+    }
+
+    return \&showlex_main unless @args;
+    return sub {
+	my $objref;
+	foreach my $objname (@args) {
+	    next unless $objname;	# skip nulls w/o carping
+
+	    if (ref $objname) {
+		print $walkHandle "B::Showlex::compile($objname)\n";
+		$objref = $objname;
+	    } else {
+		$objname = "main::$objname" unless $objname =~ /::/;
+		print $walkHandle "$objname:\n";
+		no strict 'refs';
+		die "err: unknown function ($objname)\n"
+		    unless *{$objname}{CODE};
+		$objref = \&$objname;
+	    }
+	    showlex_obj($objname, $objref);
+	}
+    }
+}
+
+1;
+
+__END__
+
+package B::Concise;
+# Copyright (C) 2000-2003 Stephen McCamant. All rights reserved.
+# This program is free software; you can redistribute and/or modify it
+# under the same terms as Perl itself.
+
+# Note: we need to keep track of how many use declarations/BEGIN
+# blocks this module uses, so we can avoid printing them when user
+# asks for the BEGIN blocks in her program. Update the comments and
+# the count in concise_specials if you add or delete one. The
+# -MO=Concise counts as use #1.
+
+use strict; # use #2
+use warnings; # uses #3 and #4, since warnings uses Carp
+
+use Exporter (); # use #5
+
+our $VERSION   = "1.003";
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw( set_style set_style_standard add_callback
+		     concise_subref concise_cv concise_main
+		     add_style walk_output compile reset_sequence );
+our %EXPORT_TAGS =
+    ( io	=> [qw( walk_output compile reset_sequence )],
+      style	=> [qw( add_style set_style_standard )],
+      cb	=> [qw( add_callback )],
+      mech	=> [qw( concise_subref concise_cv concise_main )],  );
+
+# use #6
+use B qw(class ppname main_start main_root main_cv cstring svref_2object
+	 SVf_IOK SVf_NOK SVf_POK SVf_IVisUV SVf_FAKE OPf_KIDS OPf_SPECIAL
+         OPf_STACKED
+         OPpSPLIT_ASSIGN OPpSPLIT_LEX
+	 CVf_ANON CVf_LEXICAL CVf_NAMED
+	 PAD_FAKELEX_ANON PAD_FAKELEX_MULTI SVf_ROK);
+
+my %style =
+  ("terse" =>
+   ["(?(#label =>\n)?)(*(    )*)#class (#addr) #name (?([#targ])?) "
+    . "#svclass~(?((#svaddr))?)~#svval~(?(label \"#coplabel\")?)\n",
+    "(*(    )*)goto #class (#addr)\n",
+    "#class pp_#name"],
+   "concise" =>
+   ["#hyphseq2 (*(   (x( ;)x))*)<#classsym> #exname#arg(?([#targarglife])?)"
+    . "~#flags(?(/#private)?)(?(:#hints)?)(x(;~->#next)x)\n"
+    , "  (*(    )*)     goto #seq\n",
+    "(?(<#seq>)?)#exname#arg(?([#targarglife])?)"],
+   "linenoise" =>
+   ["(x(;(*( )*))x)#noise#arg(?([#targarg])?)(x( ;\n)x)",
+    "gt_#seq ",
+    "(?(#seq)?)#noise#arg(?([#targarg])?)"],
+   "debug" =>
+   ["#class (#addr)\n\top_next\t\t#nextaddr\n\t(?(op_other\t#otheraddr\n\t)?)"
+    . "op_sibling\t#sibaddr\n\t"
+    . "op_ppaddr\tPL_ppaddr[OP_#NAME]\n\top_type\t\t#typenum\n"
+    . "\top_flags\t#flagval\n\top_private\t#privval\t#hintsval\n"
+    . "(?(\top_first\t#firstaddr\n)?)(?(\top_last\t\t#lastaddr\n)?)"
+    . "(?(\top_sv\t\t#svaddr\n)?)",
+    "    GOTO #addr\n",
+    "#addr"],
+   "env" => [$ENV{B_CONCISE_FORMAT}, $ENV{B_CONCISE_GOTO_FORMAT},
+	     $ENV{B_CONCISE_TREE_FORMAT}],
+  );
+
+# Renderings, ie how Concise prints, is controlled by these vars
+# primary:
+our $stylename;		# selects current style from %style
+my $order = "basic";	# how optree is walked & printed: basic, exec, tree
+
+# rendering mechanics:
+# these 'formats' are the line-rendering templates
+# they're updated from %style when $stylename changes
+my ($format, $gotofmt, $treefmt);
+
+# lesser players:
+my $base = 36;		# how <sequence#> is displayed
+my $big_endian = 1;	# more <sequence#> display
+my $tree_style = 0;	# tree-order details
+my $banner = 1;		# print banner before optree is traversed
+my $do_main = 0;	# force printing of main routine
+my $show_src;		# show source code
+
+# another factor: can affect all styles!
+our @callbacks;		# allow external management
+
+set_style_standard("concise");
+
+my $curcv;
+my $cop_seq_base;
+
+sub set_style {
+    ($format, $gotofmt, $treefmt) = @_;
+    #warn "set_style: deprecated, use set_style_standard instead\n"; # someday
+    die "expecting 3 style-format args\n" unless @_ == 3;
+}
+
+sub add_style {
+    my ($newstyle,@args) = @_;
+    die "style '$newstyle' already exists, choose a new name\n"
+	if exists $style{$newstyle};
+    die "expecting 3 style-format args\n" unless @args == 3;
+    $style{$newstyle} = [@args];
+    $stylename = $newstyle; # update rendering state
+}
+
+sub set_style_standard {
+    ($stylename) = @_; # update rendering state
+    die "err: style '$stylename' unknown\n" unless exists $style{$stylename};
+    set_style(@{$style{$stylename}});
+}
+
+sub add_callback {
+    push @callbacks, @_;
+}
+
+# output handle, used with all Concise-output printing
+our $walkHandle;	# public for your convenience
+BEGIN { $walkHandle = \*STDOUT }
+
+sub walk_output { # updates $walkHandle
+    my $handle = shift;
+    return $walkHandle unless $handle; # allow use as accessor
+
+    if (ref $handle eq 'SCALAR') {
+	require Config;
+	die "no perlio in this build, can't call walk_output (\\\$scalar)\n"
+	    unless $Config::Config{useperlio};
+	# in 5.8+, open(FILEHANDLE,MODE,REFERENCE) writes to string
+	open my $tmp, '>', $handle;	# but cant re-set existing STDOUT
+	$walkHandle = $tmp;		# so use my $tmp as intermediate var
+	return $walkHandle;
+    }
+    my $iotype = ref $handle;
+    die "expecting argument/object that can print\n"
+	unless $iotype eq 'GLOB' or $iotype and $handle->can('print');
+    $walkHandle = $handle;
+}
+
+sub concise_subref {
+    my($order, $coderef, $name) = @_;
+    my $codeobj = svref_2object($coderef);
+
+    return concise_stashref(@_)
+	unless ref($codeobj) =~ '^B::(?:CV|FM)\z';
+    concise_cv_obj($order, $codeobj, $name);
+}
+
+sub concise_stashref {
+    my($order, $h) = @_;
+    my $name = svref_2object($h)->NAME;
+    foreach my $k (sort keys %$h) {
+	next unless defined $h->{$k};
+	my $coderef = ref $h->{$k} eq 'CODE' ? $h->{$k}
+		    : ref\$h->{$k} eq 'GLOB' ? *{$h->{$k}}{CODE} || next
+		    : next;
+	reset_sequence();
+	print "FUNC: *", $name, "::", $k, "\n";
+	my $codeobj = svref_2object($coderef);
+	next unless ref $codeobj eq 'B::CV';
+	eval { concise_cv_obj($order, $codeobj, $k) };
+	warn "err $@ on $codeobj" if $@;
+    }
+}
+
+# This should have been called concise_subref, but it was exported
+# under this name in versions before 0.56
+*concise_cv = \&concise_subref;
+
+sub concise_cv_obj {
+    my ($order, $cv, $name) = @_;
+    # name is either a string, or a CODE ref (copy of $cv arg??)
+
+    $curcv = $cv;
+
+    if (ref($cv->XSUBANY) =~ /B::(\w+)/) {
+	print $walkHandle "$name is a constant sub, optimized to a $1\n";
+	return;
+    }
+    if ($cv->XSUB) {
+	print $walkHandle "$name is XS code\n";
+	return;
+    }
+    if (class($cv->START) eq "NULL") {
+	no strict 'refs';
+	if (ref $name eq 'CODE') {
+	    print $walkHandle "coderef $name has no START\n";
+	}
+	elsif (exists &$name) {
+	    print $walkHandle "$name exists in stash, but has no START\n";
+	}
+	else {
+	    print $walkHandle "$name not in symbol table\n";
+	}
+	return;
+    }
+    sequence($cv->START);
+    if ($order eq "exec") {
+	walk_exec($cv->START);
+    }
+    elsif ($order eq "basic") {
+	# walk_topdown($cv->ROOT, sub { $_[0]->concise($_[1]) }, 0);
+	my $root = $cv->ROOT;
+	unless (ref $root eq 'B::NULL') {
+	    walk_topdown($root, sub { $_[0]->concise($_[1]) }, 0);
+	} else {
+	    print $walkHandle "B::NULL encountered doing ROOT on $cv. avoiding disaster\n";
+	}
+    } else {
+	print $walkHandle tree($cv->ROOT, 0);
+    }
+}
+
+sub concise_main {
+    my($order) = @_;
+    sequence(main_start);
+    $curcv = main_cv;
+    if ($order eq "exec") {
+	return if class(main_start) eq "NULL";
+	walk_exec(main_start);
+    } elsif ($order eq "tree") {
+	return if class(main_root) eq "NULL";
+	print $walkHandle tree(main_root, 0);
+    } elsif ($order eq "basic") {
+	return if class(main_root) eq "NULL";
+	walk_topdown(main_root,
+		     sub { $_[0]->concise($_[1]) }, 0);
+    }
+}
+
+sub concise_specials {
+    my($name, $order, @cv_s) = @_;
+    my $i = 1;
+    if ($name eq "BEGIN") {
+	splice(@cv_s, 0, 8); # skip 7 BEGIN blocks in this file. NOW 8 ??
+    } elsif ($name eq "CHECK") {
+	pop @cv_s; # skip the CHECK block that calls us
+    }
+    for my $cv (@cv_s) {
+	print $walkHandle "$name $i:\n";
+	$i++;
+	concise_cv_obj($order, $cv, $name);
+    }
+}
+
+my $start_sym = "\e(0"; # "\cN" sometimes also works
+my $end_sym   = "\e(B"; # "\cO" respectively
+
+my @tree_decorations =
+  (["  ", "--", "+-", "|-", "| ", "`-", "-", 1],
+   [" ", "-", "+", "+", "|", "`", "", 0],
+   ["  ", map("$start_sym$_$end_sym", "qq", "wq", "tq", "x ", "mq", "q"), 1],
+   [" ", map("$start_sym$_$end_sym", "q", "w", "t", "x", "m"), "", 0],
+  );
+
+my @render_packs; # collect -stash=<packages>
+
+sub compileOpts {
+    # set rendering state from options and args
+    my (@options,@args);
+    if (@_) {
+	@options = grep(/^-/, @_);
+	@args = grep(!/^-/, @_);
+    }
+    for my $o (@options) {
+	# mode/order
+	if ($o eq "-basic") {
+	    $order = "basic";
+	} elsif ($o eq "-exec") {
+	    $order = "exec";
+	} elsif ($o eq "-tree") {
+	    $order = "tree";
+	}
+	# tree-specific
+	elsif ($o eq "-compact") {
+	    $tree_style |= 1;
+	} elsif ($o eq "-loose") {
+	    $tree_style &= ~1;
+	} elsif ($o eq "-vt") {
+	    $tree_style |= 2;
+	} elsif ($o eq "-ascii") {
+	    $tree_style &= ~2;
+	}
+	# sequence numbering
+	elsif ($o =~ /^-base(\d+)$/) {
+	    $base = $1;
+	} elsif ($o eq "-bigendian") {
+	    $big_endian = 1;
+	} elsif ($o eq "-littleendian") {
+	    $big_endian = 0;
+	}
+	# miscellaneous, presentation
+	elsif ($o eq "-nobanner") {
+	    $banner = 0;
+	} elsif ($o eq "-banner") {
+	    $banner = 1;
+	}
+	elsif ($o eq "-main") {
+	    $do_main = 1;
+	} elsif ($o eq "-nomain") {
+	    $do_main = 0;
+	} elsif ($o eq "-src") {
+	    $show_src = 1;
+	}
+	elsif ($o =~ /^-stash=(.*)/) {
+	    my $pkg = $1;
+	    no strict 'refs';
+	    if (! %{$pkg.'::'}) {
+		eval "require $pkg";
+	    } else {
+		require Config;
+		if (!$Config::Config{usedl}
+		    && keys %{$pkg.'::'} == 1
+		    && $pkg->can('bootstrap')) {
+		    # It is something that we're statically linked to, but hasn't
+		    # yet been used.
+		    eval "require $pkg";
+		}
+	    }
+	    push @render_packs, $pkg;
+	}
+	# line-style options
+	elsif (exists $style{substr($o, 1)}) {
+	    $stylename = substr($o, 1);
+	    set_style_standard($stylename);
+	} else {
+	    warn "Option $o unrecognized";
+	}
+    }
+    return (@args);
+}
+
+sub compile {
+    my (@args) = compileOpts(@_);
+    return sub {
+	my @newargs = compileOpts(@_); # accept new rendering options
+	warn "disregarding non-options: @newargs\n" if @newargs;
+
+	for my $objname (@args) {
+	    next unless $objname; # skip null args to avoid noisy responses
+
+	    if ($objname eq "BEGIN") {
+		concise_specials("BEGIN", $order,
+				 B::begin_av->isa("B::AV") ?
+				 B::begin_av->ARRAY : ());
+	    } elsif ($objname eq "INIT") {
+		concise_specials("INIT", $order,
+				 B::init_av->isa("B::AV") ?
+				 B::init_av->ARRAY : ());
+	    } elsif ($objname eq "CHECK") {
+		concise_specials("CHECK", $order,
+				 B::check_av->isa("B::AV") ?
+				 B::check_av->ARRAY : ());
+	    } elsif ($objname eq "UNITCHECK") {
+		concise_specials("UNITCHECK", $order,
+				 B::unitcheck_av->isa("B::AV") ?
+				 B::unitcheck_av->ARRAY : ());
+	    } elsif ($objname eq "END") {
+		concise_specials("END", $order,
+				 B::end_av->isa("B::AV") ?
+				 B::end_av->ARRAY : ());
+	    }
+	    else {
+		# convert function names to subrefs
+		if (ref $objname) {
+		    print $walkHandle "B::Concise::compile($objname)\n"
+			if $banner;
+		    concise_subref($order, ($objname)x2);
+		    next;
+		} else {
+		    $objname = "main::" . $objname unless $objname =~ /::/;
+		    no strict 'refs';
+		    my $glob = \*$objname;
+		    unless (*$glob{CODE} || *$glob{FORMAT}) {
+			print $walkHandle "$objname:\n" if $banner;
+			print $walkHandle "err: unknown function ($objname)\n";
+			return;
+		    }
+		    if (my $objref = *$glob{CODE}) {
+			print $walkHandle "$objname:\n" if $banner;
+			concise_subref($order, $objref, $objname);
+		    }
+		    if (my $objref = *$glob{FORMAT}) {
+			print $walkHandle "$objname (FORMAT):\n"
+			    if $banner;
+			concise_subref($order, $objref, $objname);
+		    }
+		}
+	    }
+	}
+	for my $pkg (@render_packs) {
+	    no strict 'refs';
+	    concise_stashref($order, \%{$pkg.'::'});
+	}
+
+	if (!@args or $do_main or @render_packs) {
+	    print $walkHandle "main program:\n" if $do_main;
+	    concise_main($order);
+	}
+	return @args;	# something
+    }
+}
+
+my %labels;
+my $lastnext;	# remembers op-chain, used to insert gotos
+
+my %opclass = ('OP' => "0", 'UNOP' => "1", 'BINOP' => "2", 'LOGOP' => "|",
+	       'LISTOP' => "@", 'PMOP' => "/", 'SVOP' => "\$", 'GVOP' => "*",
+	       'PVOP' => '"', 'LOOP' => "{", 'COP' => ";", 'PADOP' => "#",
+	       'METHOP' => '.', UNOP_AUX => '+');
+
+no warnings 'qw'; # "Possible attempt to put comments..."; use #7
+my @linenoise =
+  qw'#  () sc (  @? 1  $* gv *{ m$ m@ m% m? p/ *$ $  $# & a& pt \\ s\\ rf bl
+     `  *? <> ?? ?/ r/ c/ // qr s/ /c y/ =  @= C  sC Cp sp df un BM po +1 +I
+     -1 -I 1+ I+ 1- I- ** *  i* /  i/ %$ i% x  +  i+ -  i- .  "  << >> <  i<
+     >  i> <= i, >= i. == i= != i! <? i? s< s> s, s. s= s! s? b& b^ b| -0 -i
+     !  ~  a2 si cs rd sr e^ lg sq in %x %o ab le ss ve ix ri sf FL od ch cy
+     uf lf uc lc qm @  [f [  @[ eh vl ky dl ex %  ${ @{ uk pk st jn )  )[ a@
+     a% sl +] -] [- [+ so rv GS GW MS MW .. f. .f && || ^^ ?: &= |= -> s{ s}
+     v} ca wa di rs ;; ;  ;d }{ {  }  {} f{ it {l l} rt }l }n }r dm }g }e ^o
+     ^c ^| ^# um bm t~ u~ ~d DB db ^s se ^g ^r {w }w pf pr ^O ^K ^R ^W ^d ^v
+     ^e ^t ^k t. fc ic fl .s .p .b .c .l .a .h g1 s1 g2 s2 ?. l? -R -W -X -r
+     -w -x -e -o -O -z -s -M -A -C -S -c -b -f -d -p -l -u -g -k -t -T -B cd
+     co cr u. cm ut r. l@ s@ r@ mD uD oD rD tD sD wD cD f$ w$ p$ sh e$ k$ g3
+     g4 s4 g5 s5 T@ C@ L@ G@ A@ S@ Hg Hc Hr Hw Mg Mc Ms Mr Sg Sc So rq do {e
+     e} {t t} g6 G6 6e g7 G7 7e g8 G8 8e g9 G9 9e 6s 7s 8s 9s 6E 7E 8E 9E Pn
+     Pu GP SP EP Gn Gg GG SG EG g0 c$ lk t$ ;s n> // /= CO';
+
+my $chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
+
+sub op_flags { # common flags (see BASOP.op_flags in op.h)
+    my($x) = @_;
+    my(@v);
+    push @v, "v" if ($x & 3) == 1;
+    push @v, "s" if ($x & 3) == 2;
+    push @v, "l" if ($x & 3) == 3;
+    push @v, "K" if $x & 4;
+    push @v, "P" if $x & 8;
+    push @v, "R" if $x & 16;
+    push @v, "M" if $x & 32;
+    push @v, "S" if $x & 64;
+    push @v, "*" if $x & 128;
+    return join("", @v);
+}
+
+sub base_n {
+    my $x = shift;
+    return "-" . base_n(-$x) if $x < 0;
+    my $str = "";
+    do { $str .= substr($chars, $x % $base, 1) } while $x = int($x / $base);
+    $str = reverse $str if $big_endian;
+    return $str;
+}
+
+my %sequence_num;
+my $seq_max = 1;
+
+sub reset_sequence {
+    # reset the sequence
+    %sequence_num = ();
+    $seq_max = 1;
+    $lastnext = 0;
+}
+
+sub seq {
+    my($op) = @_;
+    return "-" if not exists $sequence_num{$$op};
+    return base_n($sequence_num{$$op});
+}
+
+sub walk_topdown {
+    my($op, $sub, $level) = @_;
+    $sub->($op, $level);
+    if ($op->flags & OPf_KIDS) {
+	for (my $kid = $op->first; $$kid; $kid = $kid->sibling) {
+	    walk_topdown($kid, $sub, $level + 1);
+	}
+    }
+    if (class($op) eq "PMOP") {
+	my $maybe_root = $op->code_list;
+	if ( ref($maybe_root) and $maybe_root->isa("B::OP")
+	 and not $op->flags & OPf_KIDS) {
+	    walk_topdown($maybe_root, $sub, $level + 1);
+	}
+	$maybe_root = $op->pmreplroot;
+	if (ref($maybe_root) and $maybe_root->isa("B::OP")) {
+	    # It really is the root of the replacement, not something
+	    # else stored here for lack of space elsewhere
+	    walk_topdown($maybe_root, $sub, $level + 1);
+	}
+    }
+}
+
+sub walklines {
+    my($ar, $level) = @_;
+    for my $l (@$ar) {
+	if (ref($l) eq "ARRAY") {
+	    walklines($l, $level + 1);
+	} else {
+	    $l->concise($level);
+	}
+    }
+}
+
+sub walk_exec {
+    my($top, $level) = @_;
+    my %opsseen;
+    my @lines;
+    my @todo = ([$top, \@lines]);
+    while (@todo and my($op, $targ) = @{shift @todo}) {
+	for (; $$op; $op = $op->next) {
+	    last if $opsseen{$$op}++;
+	    push @$targ, $op;
+	    my $name = $op->name;
+	    if (class($op) eq "LOGOP") {
+		my $ar = [];
+		push @$targ, $ar;
+		push @todo, [$op->other, $ar];
+	    } elsif ($name eq "subst" and $ {$op->pmreplstart}) {
+		my $ar = [];
+		push @$targ, $ar;
+		push @todo, [$op->pmreplstart, $ar];
+	    } elsif ($name =~ /^enter(loop|iter)$/) {
+		$labels{${$op->nextop}} = "NEXT";
+		$labels{${$op->lastop}} = "LAST";
+		$labels{${$op->redoop}} = "REDO";
+	    }
+	}
+    }
+    walklines(\@lines, 0);
+}
+
+# The structure of this routine is purposely modeled after op.c's peep()
+sub sequence {
+    my($op) = @_;
+    my $oldop = 0;
+    return if class($op) eq "NULL" or exists $sequence_num{$$op};
+    for (; $$op; $op = $op->next) {
+	last if exists $sequence_num{$$op};
+	my $name = $op->name;
+	$sequence_num{$$op} = $seq_max++;
+	if (class($op) eq "LOGOP") {
+	    sequence($op->other);
+	} elsif (class($op) eq "LOOP") {
+	    sequence($op->redoop);
+	    sequence( $op->nextop);
+	    sequence($op->lastop);
+	} elsif ($name eq "subst" and $ {$op->pmreplstart}) {
+	    sequence($op->pmreplstart);
+	}
+	$oldop = $op;
+    }
+}
+
+sub fmt_line {    # generate text-line for op.
+    my($hr, $op, $text, $level) = @_;
+
+    $_->($hr, $op, \$text, \$level, $stylename) for @callbacks;
+
+    return '' if $hr->{SKIP};	# suppress line if a callback said so
+    return '' if $hr->{goto} and $hr->{goto} eq '-';	# no goto nowhere
+
+    # spec: (?(text1#varText2)?)
+    $text =~ s/\(\?\(([^\#]*?)\#(\w+)([^\#]*?)\)\?\)/
+	$hr->{$2} ? $1.$hr->{$2}.$3 : ""/eg;
+
+    # spec: (x(exec_text;basic_text)x)
+    $text =~ s/\(x\((.*?);(.*?)\)x\)/$order eq "exec" ? $1 : $2/egs;
+
+    # spec: (*(text)*)
+    $text =~ s/\(\*\(([^;]*?)\)\*\)/$1 x $level/egs;
+
+    # spec: (*(text1;text2)*)
+    $text =~ s/\(\*\((.*?);(.*?)\)\*\)/$1 x ($level - 1) . $2 x ($level>0)/egs;
+
+    # convert #Var to tag=>val form: Var\t#var
+    $text =~ s/\#([A-Z][a-z]+)(\d+)?/\t\u$1\t\L#$1$2/gs;
+
+    # spec: #varN
+    $text =~ s/\#([a-zA-Z]+)(\d+)/sprintf("%-$2s", $hr->{$1})/eg;
+
+    $text =~ s/\#([a-zA-Z]+)/$hr->{$1}/eg;	# populate #var's
+    $text =~ s/[ \t]*~+[ \t]*/ /g;		# squeeze tildes
+
+    $text = "# $hr->{src}\n$text" if $show_src and $hr->{src};
+
+    chomp $text;
+    return "$text\n" if $text ne "" and $order ne "tree";
+    return $text; # suppress empty lines
+}
+
+
+
+# use require rather than use here to avoid disturbing tests that dump
+# BEGIN blocks
+require B::Op_private;
+
+
+
+our %hints; # used to display each COP's op_hints values
+
+# strict refs, subs, vars
+@hints{0x2,0x200,0x400,0x20,0x40,0x80} = ('$', '&', '*', 'x$', 'x&', 'x*');
+# integers, locale, bytes
+@hints{0x1,0x4,0x8,0x10} = ('i', 'l', 'b');
+# block scope, localise %^H, $^OPEN (in), $^OPEN (out)
+@hints{0x100,0x20000,0x40000,0x80000} = ('{','%','<','>');
+# overload new integer, float, binary, string, re
+@hints{0x1000,0x2000,0x4000,0x8000,0x10000} = ('I', 'F', 'B', 'S', 'R');
+# taint and eval
+@hints{0x100000,0x200000} = ('T', 'E');
+# filetest access, use utf8, unicode_strings feature
+@hints{0x400000,0x800000,0x800} = ('X', 'U', 'us');
+
+# pick up the feature hints constants.
+# Note that we're relying on non-API parts of feature.pm,
+# but its less naughty than just blindly copying those constants into
+# this src file.
+#
+require feature;
+
+sub hints_flags {
+    my($x) = @_;
+    my @s;
+    for my $flag (sort {$b <=> $a} keys %hints) {
+	if ($hints{$flag} and $x & $flag and $x >= $flag) {
+	    $x -= $flag;
+	    push @s, $hints{$flag};
+	}
+    }
+    if ($x & $feature::hint_mask) {
+        push @s, "fea=" . (($x & $feature::hint_mask) >> $feature::hint_shift);
+        $x &= ~$feature::hint_mask;
+    }
+    push @s, sprintf "0x%x", $x if $x;
+    return join(",", @s);
+}
+
+
+# return a string like 'LVINTRO,1' for the op $name with op_private
+# value $x
+
+sub private_flags {
+    my($name, $x) = @_;
+    my $entry = $B::Op_private::bits{$name};
+    return $x ? "$x" : '' unless $entry;
+
+    my @flags;
+    my $bit;
+    for ($bit = 7; $bit >= 0; $bit--) {
+        next unless exists $entry->{$bit};
+        my $e = $entry->{$bit};
+        if (ref($e) eq 'HASH') {
+            # bit field
+
+            my ($bitmin, $bitmax, $bitmask, $enum, $label) =
+                    @{$e}{qw(bitmin bitmax bitmask enum label)};
+            $bit = $bitmin;
+            next if defined $label && $label eq '-'; # display as raw number
+
+            my $val = $x & $bitmask;
+            $x &= ~$bitmask;
+            $val >>= $bitmin;
+
+            if (defined $enum) {
+                # try to convert numeric $val into symbolic
+                my @enum = @$enum;
+                while (@enum) {
+                    my $ix    = shift @enum;
+                    my $name  = shift @enum;
+                    my $label = shift @enum;
+                    if ($val == $ix) {
+                        $val = $label;
+                        last;
+                    }
+                }
+            }
+            next if $val eq '0'; # don't display anonymous zero values
+            push @flags, defined $label ? "$label=$val" : $val;
+
+        }
+        else {
+            # flag bit
+            my $label = $B::Op_private::labels{$e};
+            next if defined $label && $label eq '-'; # display as raw number
+            if ($x & (1<<$bit)) {
+                $x -= (1<<$bit);
+                push @flags, $label;
+            }
+        }
+    }
+
+    push @flags, $x if $x; # display unknown bits numerically
+    return join ",", @flags;
+}
+
+sub concise_sv {
+    my($sv, $hr, $preferpv) = @_;
+    $hr->{svclass} = class($sv);
+    $hr->{svclass} = "UV"
+      if $hr->{svclass} eq "IV" and $sv->FLAGS & SVf_IVisUV;
+    Carp::cluck("bad concise_sv: $sv") unless $sv and $$sv;
+    $hr->{svaddr} = sprintf("%#x", $$sv);
+    if ($hr->{svclass} eq "GV" && $sv->isGV_with_GP()) {
+	my $gv = $sv;
+	my $stash = $gv->STASH;
+	if (class($stash) eq "SPECIAL") {
+	    $stash = "<none>";
+	}
+	else {
+	    $stash = $stash->NAME;
+	}
+	if ($stash eq "main") {
+	    $stash = "";
+	} else {
+	    $stash = $stash . "::";
+	}
+	$hr->{svval} = "*$stash" . $gv->SAFENAME;
+	return "*$stash" . $gv->SAFENAME;
+    } else {
+	while (class($sv) eq "IV" && $sv->FLAGS & SVf_ROK) {
+	    $hr->{svval} .= "\\";
+	    $sv = $sv->RV;
+	}
+	if (class($sv) eq "SPECIAL") {
+	    $hr->{svval} .= ["Null", "sv_undef", "sv_yes", "sv_no",
+                             '', '', '', "sv_zero"]->[$$sv];
+	} elsif ($preferpv
+	      && ($sv->FLAGS & SVf_POK)) {
+	    $hr->{svval} .= cstring($sv->PV);
+	} elsif ($sv->FLAGS & SVf_NOK) {
+	    $hr->{svval} .= $sv->NV;
+	} elsif ($sv->FLAGS & SVf_IOK) {
+	    $hr->{svval} .= $sv->int_value;
+	} elsif ($sv->FLAGS & SVf_POK) {
+	    $hr->{svval} .= cstring($sv->PV);
+	} elsif (class($sv) eq "HV") {
+	    $hr->{svval} .= 'HASH';
+	} elsif (class($sv) eq "AV") {
+	    $hr->{svval} .= 'ARRAY';
+	} elsif (class($sv) eq "CV") {
+	    if ($sv->CvFLAGS & CVf_ANON) {
+		$hr->{svval} .= 'CODE';
+	    } elsif ($sv->CvFLAGS & CVf_NAMED) {
+		$hr->{svval} .= "&";
+		unless ($sv->CvFLAGS & CVf_LEXICAL) {
+		    my $stash = $sv->STASH;
+		    unless (class($stash) eq "SPECIAL") {
+			$hr->{svval} .= $stash->NAME . "::";
+		    }
+		}
+		$hr->{svval} .= $sv->NAME_HEK;
+	    } else {
+		$hr->{svval} .= "&";
+		$sv = $sv->GV;
+		my $stash = $sv->STASH;
+		unless (class($stash) eq "SPECIAL") {
+		    $hr->{svval} .= $stash->NAME . "::";
+		}
+		$hr->{svval} .= $sv->SAFENAME;
+	    }
+	}
+
+	$hr->{svval} = 'undef' unless defined $hr->{svval};
+	my $out = $hr->{svclass};
+	return $out .= " $hr->{svval}" ; 
+    }
+}
+
+my %srclines;
+
+sub fill_srclines {
+    my $fullnm = shift;
+    if ($fullnm eq '-e') {
+	$srclines{$fullnm} = [ $fullnm, "-src not supported for -e" ];
+	return;
+    }
+    open (my $fh, '<', $fullnm)
+	or warn "# $fullnm: $!, (chdirs not supported by this feature yet)\n"
+	and return;
+    my @l = <$fh>;
+    chomp @l;
+    unshift @l, $fullnm; # like @{_<$fullnm} in debug, array starts at 1
+    $srclines{$fullnm} = \@l;
+}
+
+# Given a pad target, return the pad var's name and cop range /
+# fakeness, or failing that, its target number.
+# e.g.
+#   ('$i', '$i:5,7')
+# or
+#   ('$i', '$i:fake:a')
+# or
+#   ('t5', 't5')
+
+sub padname {
+    my ($targ) = @_;
+
+    my ($targarg, $targarglife);
+    my $padname = (($curcv->PADLIST->ARRAY)[0]->ARRAY)[$targ];
+    if (defined $padname and class($padname) ne "SPECIAL" and
+        $padname->LEN)
+    {
+        $targarg  = $padname->PVX;
+        if ($padname->FLAGS & SVf_FAKE) {
+            # These changes relate to the jumbo closure fix.
+            # See changes 19939 and 20005
+            my $fake = '';
+            $fake .= 'a'
+                if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_ANON;
+            $fake .= 'm'
+                if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_MULTI;
+            $fake .= ':' . $padname->PARENT_PAD_INDEX
+                if $curcv->CvFLAGS & CVf_ANON;
+            $targarglife = "$targarg:FAKE:$fake";
+        }
+        else {
+            my $intro = $padname->COP_SEQ_RANGE_LOW - $cop_seq_base;
+            my $finish = int($padname->COP_SEQ_RANGE_HIGH) - $cop_seq_base;
+            $finish = "end" if $finish == 999999999 - $cop_seq_base;
+            $targarglife = "$targarg:$intro,$finish";
+        }
+    } else {
+        $targarglife = $targarg = "t" . $targ;
+    }
+    return $targarg, $targarglife;
+}
+
+
+
+sub concise_op {
+    my ($op, $level, $format) = @_;
+    my %h;
+    $h{exname} = $h{name} = $op->name;
+    $h{NAME} = uc $h{name};
+    $h{class} = class($op);
+    $h{extarg} = $h{targ} = $op->targ;
+    $h{extarg} = "" unless $h{extarg};
+    $h{privval} = $op->private;
+    # for null ops, targ holds the old type
+    my $origname = $h{name} eq "null" && $h{targ}
+      ? substr(ppname($h{targ}), 3)
+      : $h{name};
+    $h{private} = private_flags($origname, $op->private);
+    if ($op->folded) {
+      $h{private} &&= "$h{private},";
+      $h{private} .= "FOLD";
+    }
+
+    if ($h{name} ne $origname) { # a null op
+	$h{exname} = "ex-$origname";
+	$h{extarg} = "";
+    } elsif ($h{private} =~ /\bREFC\b/) {
+	# targ holds a reference count
+        my $refs = "ref" . ($h{targ} != 1 ? "s" : "");
+        $h{targarglife} = $h{targarg} = "$h{targ} $refs";
+    } elsif ($h{targ}) {
+	my $count = $h{name} eq 'padrange'
+            ? ($op->private & $B::Op_private::defines{'OPpPADRANGE_COUNTMASK'})
+            : 1;
+	my (@targarg, @targarglife);
+	for my $i (0..$count-1) {
+	    my ($targarg, $targarglife) = padname($h{targ} + $i);
+	    push @targarg,     $targarg;
+	    push @targarglife, $targarglife;
+	}
+	$h{targarg}     = join '; ', @targarg;
+	$h{targarglife} = join '; ', @targarglife;
+    }
+
+    $h{arg} = "";
+    $h{svclass} = $h{svaddr} = $h{svval} = "";
+    if ($h{class} eq "PMOP") {
+	my $extra = '';
+	my $precomp = $op->precomp;
+	if (defined $precomp) {
+	    $precomp = cstring($precomp); # Escape literal control sequences
+ 	    $precomp = "/$precomp/";
+	} else {
+	    $precomp = "";
+	}
+	if ($op->name eq 'subst') {
+	    if (class($op->pmreplstart) ne "NULL") {
+		undef $lastnext;
+		$extra = " replstart->" . seq($op->pmreplstart);
+	    }
+	}
+	elsif ($op->name eq 'split') {
+            if (    ($op->private & OPpSPLIT_ASSIGN) # @array  = split
+                 && (not $op->flags & OPf_STACKED))  # @{expr} = split
+            {
+                # with C<@array = split(/pat/, str);>,
+                #  array is stored in /pat/'s pmreplroot; either
+                # as an integer index into the pad (for a lexical array)
+                # or as GV for a package array (which will be a pad index
+                # on threaded builds)
+
+                if ($op->private & $B::Op_private::defines{'OPpSPLIT_LEX'}) {
+                    my $off = $op->pmreplroot; # union with op_pmtargetoff
+                    my ($name, $full) = padname($off);
+                    $extra = " => $full";
+                }
+                else {
+                    # union with op_pmtargetoff, op_pmtargetgv
+                    my $gv = $op->pmreplroot;
+                    if (!ref($gv)) {
+                        # the value is actually a pad offset
+                        $gv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$gv]->NAME;
+                    }
+                    else {
+                        # unthreaded: its a GV
+                        $gv = $gv->NAME;
+                    }
+                    $extra = " => \@$gv";
+                }
+            }
+	}
+	$h{arg} = "($precomp$extra)";
+    } elsif ($h{class} eq "PVOP" and $h{name} !~ '^transr?\z') {
+	$h{arg} = '("' . $op->pv . '")';
+	$h{svval} = '"' . $op->pv . '"';
+    } elsif ($h{class} eq "COP") {
+	my $label = $op->label;
+	$h{coplabel} = $label;
+	$label = $label ? "$label: " : "";
+	my $loc = $op->file;
+	my $pathnm = $loc;
+	$loc =~ s[.*/][];
+	my $ln = $op->line;
+	$loc .= ":$ln";
+	my($stash, $cseq) = ($op->stash->NAME, $op->cop_seq - $cop_seq_base);
+	$h{arg} = "($label$stash $cseq $loc)";
+	if ($show_src) {
+	    fill_srclines($pathnm) unless exists $srclines{$pathnm};
+	    my $line = $srclines{$pathnm}[$ln] // "-src unavailable under -e";
+	    $h{src} = "$ln: $line";
+	}
+    } elsif ($h{class} eq "LOOP") {
+	$h{arg} = "(next->" . seq($op->nextop) . " last->" . seq($op->lastop)
+	  . " redo->" . seq($op->redoop) . ")";
+    } elsif ($h{class} eq "LOGOP") {
+	undef $lastnext;
+	$h{arg} = "(other->" . seq($op->other) . ")";
+	$h{otheraddr} = sprintf("%#x", $ {$op->other});
+        if ($h{name} eq "argdefelem") {
+            # targ used for element index
+            $h{targarglife} = $h{targarg} = "";
+            $h{arg} .= "[" . $op->targ . "]";
+        }
+    }
+    elsif ($h{class} eq "SVOP" or $h{class} eq "PADOP") {
+	unless ($h{name} eq 'aelemfast' and $op->flags & OPf_SPECIAL) {
+	    my $idx = ($h{class} eq "SVOP") ? $op->targ : $op->padix;
+	    if ($h{class} eq "PADOP" or !${$op->sv}) {
+		my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$idx];
+		$h{arg} = "[" . concise_sv($sv, \%h, 0) . "]";
+		$h{targarglife} = $h{targarg} = "";
+	    } else {
+		$h{arg} = "(" . concise_sv($op->sv, \%h, 0) . ")";
+	    }
+	}
+    }
+    elsif ($h{class} eq "METHOP") {
+        my $prefix = '';
+        if ($h{name} eq 'method_redir' or $h{name} eq 'method_redir_super') {
+            my $rclass_sv = $op->rclass;
+            $rclass_sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$rclass_sv]
+                unless ref $rclass_sv;
+            $prefix .= 'PACKAGE "'.$rclass_sv->PV.'", ';
+        }
+        if ($h{name} ne "method") {
+            if (${$op->meth_sv}) {
+                $h{arg} = "($prefix" . concise_sv($op->meth_sv, \%h, 1) . ")";
+            } else {
+                my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$op->targ];
+                $h{arg} = "[$prefix" . concise_sv($sv, \%h, 1) . "]";
+                $h{targarglife} = $h{targarg} = "";
+            }
+        }
+    }
+    elsif ($h{class} eq "UNOP_AUX") {
+        $h{arg} = "(" . $op->string($curcv) . ")";
+    }
+
+    $h{seq} = $h{hyphseq} = seq($op);
+    $h{seq} = "" if $h{seq} eq "-";
+    $h{opt} = $op->opt;
+    $h{label} = $labels{$$op};
+    $h{next} = $op->next;
+    $h{next} = (class($h{next}) eq "NULL") ? "(end)" : seq($h{next});
+    $h{nextaddr} = sprintf("%#x", $ {$op->next});
+    $h{sibaddr} = sprintf("%#x", $ {$op->sibling});
+    $h{firstaddr} = sprintf("%#x", $ {$op->first}) if $op->can("first");
+    $h{lastaddr} = sprintf("%#x", $ {$op->last}) if $op->can("last");
+
+    $h{classsym} = $opclass{$h{class}};
+    $h{flagval} = $op->flags;
+    $h{flags} = op_flags($op->flags);
+    if ($op->can("hints")) {
+      $h{hintsval} = $op->hints;
+      $h{hints} = hints_flags($h{hintsval});
+    } else {
+      $h{hintsval} = $h{hints} = '';
+    }
+    $h{addr} = sprintf("%#x", $$op);
+    $h{typenum} = $op->type;
+    $h{noise} = $linenoise[$op->type];
+
+    return fmt_line(\%h, $op, $format, $level);
+}
+
+sub B::OP::concise {
+    my($op, $level) = @_;
+    if ($order eq "exec" and $lastnext and $$lastnext != $$op) {
+	# insert a 'goto' line
+	my $synth = {"seq" => seq($lastnext), "class" => class($lastnext),
+		     "addr" => sprintf("%#x", $$lastnext),
+		     "goto" => seq($lastnext), # simplify goto '-' removal
+	     };
+	print $walkHandle fmt_line($synth, $op, $gotofmt, $level+1);
+    }
+    $lastnext = $op->next;
+    print $walkHandle concise_op($op, $level, $format);
+}
+
+# B::OP::terse (see Terse.pm) now just calls this
+sub b_terse {
+    my($op, $level) = @_;
+
+    # This isn't necessarily right, but there's no easy way to get
+    # from an OP to the right CV. This is a limitation of the
+    # ->terse() interface style, and there isn't much to do about
+    # it. In particular, we can die in concise_op if the main pad
+    # isn't long enough, or has the wrong kind of entries, compared to
+    # the pad a sub was compiled with. The fix for that would be to
+    # make a backwards compatible "terse" format that never even
+    # looked at the pad, just like the old B::Terse. I don't think
+    # that's worth the effort, though.
+    $curcv = main_cv unless $curcv;
+
+    if ($order eq "exec" and $lastnext and $$lastnext != $$op) {
+	# insert a 'goto'
+	my $h = {"seq" => seq($lastnext), "class" => class($lastnext),
+		 "addr" => sprintf("%#x", $$lastnext)};
+	print # $walkHandle
+	    fmt_line($h, $op, $style{"terse"}[1], $level+1);
+    }
+    $lastnext = $op->next;
+    print # $walkHandle 
+	concise_op($op, $level, $style{"terse"}[0]);
+}
+
+sub tree {
+    my $op = shift;
+    my $level = shift;
+    my $style = $tree_decorations[$tree_style];
+    my($space, $single, $kids, $kid, $nokid, $last, $lead, $size) = @$style;
+    my $name = concise_op($op, $level, $treefmt);
+    if (not $op->flags & OPf_KIDS) {
+	return $name . "\n";
+    }
+    my @lines;
+    for (my $kid = $op->first; $$kid; $kid = $kid->sibling) {
+	push @lines, tree($kid, $level+1);
+    }
+    my $i;
+    for ($i = $#lines; substr($lines[$i], 0, 1) eq " "; $i--) {
+	$lines[$i] = $space . $lines[$i];
+    }
+    if ($i > 0) {
+	$lines[$i] = $last . $lines[$i];
+	while ($i-- > 1) {
+	    if (substr($lines[$i], 0, 1) eq " ") {
+		$lines[$i] = $nokid . $lines[$i];
+	    } else {
+		$lines[$i] = $kid . $lines[$i];
+	    }
+	}
+	$lines[$i] = $kids . $lines[$i];
+    } else {
+	$lines[0] = $single . $lines[0];
+    }
+    return("$name$lead" . shift @lines,
+           map(" " x (length($name)+$size) . $_, @lines));
+}
+
+# *** Warning: fragile kludge ahead ***
+# Because the B::* modules run in the same interpreter as the code
+# they're compiling, their presence tends to distort the view we have of
+# the code we're looking at. In particular, perl gives sequence numbers
+# to COPs. If the program we're looking at were run on its own, this
+# would start at 1. Because all of B::Concise and all the modules it
+# uses are compiled first, though, by the time we get to the user's
+# program the sequence number is already pretty high, which could be
+# distracting if you're trying to tell OPs apart. Therefore we'd like to
+# subtract an offset from all the sequence numbers we display, to
+# restore the simpler view of the world. The trick is to know what that
+# offset will be, when we're still compiling B::Concise!  If we
+# hardcoded a value, it would have to change every time B::Concise or
+# other modules we use do. To help a little, what we do here is compile
+# a little code at the end of the module, and compute the base sequence
+# number for the user's program as being a small offset later, so all we
+# have to worry about are changes in the offset.
+
+# When you say "perl -MO=Concise -e '$a'", the output should look like:
+
+# 4  <@> leave[t1] vKP/REFC ->(end)
+# 1     <0> enter ->2
+ #^ smallest OP sequence number should be 1
+# 2     <;> nextstate(main 1 -e:1) v ->3
+ #                         ^ smallest COP sequence number should be 1
+# -     <1> ex-rv2sv vK/1 ->4
+# 3        <$> gvsv(*a) s ->4
+
+# If the second of the marked numbers there isn't 1, it means you need
+# to update the corresponding magic number in the next line.
+# Remember, this needs to stay the last things in the module.
+
+my $cop_seq_mnum = 12;
+$cop_seq_base = svref_2object(eval 'sub{0;}')->START->cop_seq + $cop_seq_mnum;
+
+1;
+
+__END__
+
+package Time::HiRes;
+
+{ use 5.006; }
+use strict;
+
+require Exporter;
+use XSLoader ();
+
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw( );
+# More or less this same list is in Makefile.PL.  Should unify.
+our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
+		 getitimer setitimer nanosleep clock_gettime clock_getres
+		 clock clock_nanosleep
+		 CLOCKS_PER_SEC
+		 CLOCK_BOOTTIME
+		 CLOCK_HIGHRES
+		 CLOCK_MONOTONIC
+		 CLOCK_MONOTONIC_COARSE
+		 CLOCK_MONOTONIC_FAST
+		 CLOCK_MONOTONIC_PRECISE
+		 CLOCK_MONOTONIC_RAW
+		 CLOCK_PROCESS_CPUTIME_ID
+		 CLOCK_PROF
+		 CLOCK_REALTIME
+		 CLOCK_REALTIME_COARSE
+		 CLOCK_REALTIME_FAST
+		 CLOCK_REALTIME_PRECISE
+		 CLOCK_REALTIME_RAW
+		 CLOCK_SECOND
+		 CLOCK_SOFTTIME
+		 CLOCK_THREAD_CPUTIME_ID
+		 CLOCK_TIMEOFDAY
+		 CLOCK_UPTIME
+		 CLOCK_UPTIME_COARSE
+		 CLOCK_UPTIME_FAST
+		 CLOCK_UPTIME_PRECISE
+		 CLOCK_UPTIME_RAW
+		 CLOCK_VIRTUAL
+		 ITIMER_PROF
+		 ITIMER_REAL
+		 ITIMER_REALPROF
+		 ITIMER_VIRTUAL
+		 TIMER_ABSTIME
+		 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
+		 d_nanosleep d_clock_gettime d_clock_getres
+		 d_clock d_clock_nanosleep d_hires_stat
+		 d_futimens d_utimensat d_hires_utime
+		 stat lstat utime
+		);
+
+our $VERSION = '1.9759';
+our $XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+our $AUTOLOAD;
+sub AUTOLOAD {
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    # print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n";
+    die "&Time::HiRes::constant not defined" if $constname eq 'constant';
+    my ($error, $val) = constant($constname);
+    # print "AUTOLOAD: error = $error, val = $val\n";
+    if ($error) {
+        my (undef,$file,$line) = caller;
+        die "$error at $file line $line.\n";
+    }
+    {
+	no strict 'refs';
+	*$AUTOLOAD = sub { $val };
+    }
+    goto &$AUTOLOAD;
+}
+
+sub import {
+    my $this = shift;
+    for my $i (@_) {
+	if (($i eq 'clock_getres'    && !&d_clock_getres)    ||
+	    ($i eq 'clock_gettime'   && !&d_clock_gettime)   ||
+	    ($i eq 'clock_nanosleep' && !&d_clock_nanosleep) ||
+	    ($i eq 'clock'           && !&d_clock)           ||
+	    ($i eq 'nanosleep'       && !&d_nanosleep)       ||
+	    ($i eq 'usleep'          && !&d_usleep)          ||
+	    ($i eq 'utime'           && !&d_hires_utime)     ||
+	    ($i eq 'ualarm'          && !&d_ualarm)) {
+	    require Carp;
+	    Carp::croak("Time::HiRes::$i(): unimplemented in this platform");
+	}
+    }
+    Time::HiRes->export_to_level(1, $this, @_);
+}
+
+XSLoader::load( 'Time::HiRes', $XS_VERSION );
+
+# Preloaded methods go here.
+
+sub tv_interval {
+    # probably could have been done in C
+    my ($a, $b) = @_;
+    $b = [gettimeofday()] unless defined($b);
+    (${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000);
+}
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+
+package Time::Seconds;
+use strict;
+
+our $VERSION = '1.3204';
+
+use Exporter 5.57 'import';
+
+our @EXPORT = qw(
+    ONE_MINUTE
+    ONE_HOUR
+    ONE_DAY
+    ONE_WEEK
+    ONE_MONTH
+    ONE_YEAR
+    ONE_FINANCIAL_MONTH
+    LEAP_YEAR
+    NON_LEAP_YEAR
+);
+
+our @EXPORT_OK = qw(cs_sec cs_mon);
+
+use constant {
+    ONE_MINUTE => 60,
+    ONE_HOUR => 3_600,
+    ONE_DAY => 86_400,
+    ONE_WEEK => 604_800,
+    ONE_MONTH => 2_629_744, # ONE_YEAR / 12
+    ONE_YEAR => 31_556_930, # 365.24225 days
+    ONE_FINANCIAL_MONTH => 2_592_000, # 30 days
+    LEAP_YEAR => 31_622_400, # 366 * ONE_DAY
+    NON_LEAP_YEAR => 31_536_000, # 365 * ONE_DAY
+    # hacks to make Time::Piece compile once again
+    cs_sec => 0,
+    cs_mon => 1,
+};
+
+use overload
+    'fallback' => 'undef',
+    '0+' => \&seconds,
+    '""' => \&seconds,
+    '<=>' => \&compare,
+    '+' => \&add,
+    '-' => \&subtract,
+    '-=' => \&subtract_from,
+    '+=' => \&add_to,
+    '=' => \&copy;
+
+sub new {
+    my $class = shift;
+    my ($val) = @_;
+    $val = 0 unless defined $val;
+    bless \$val, $class;
+}
+
+sub _get_ovlvals {
+    my ($lhs, $rhs, $reverse) = @_;
+    $lhs = $lhs->seconds;
+
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+    elsif (ref($rhs)) {
+        die "Can't use non Seconds object in operator overload";
+    }
+
+    if ($reverse) {
+        return $rhs, $lhs;
+    }
+
+    return $lhs, $rhs;
+}
+
+sub compare {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return $lhs <=> $rhs;
+}
+
+sub add {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return Time::Seconds->new($lhs + $rhs);
+}
+
+sub add_to {
+    my $lhs = shift;
+    my $rhs = shift;
+    $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
+    $$lhs += $rhs;
+    return $lhs;
+}
+
+sub subtract {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return Time::Seconds->new($lhs - $rhs);
+}
+
+sub subtract_from {
+    my $lhs = shift;
+    my $rhs = shift;
+    $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
+    $$lhs -= $rhs;
+    return $lhs;
+}
+
+sub copy {
+	Time::Seconds->new(${$_[0]});
+}
+
+sub seconds {
+    my $s = shift;
+    return $$s;
+}
+
+sub minutes {
+    my $s = shift;
+    return $$s / 60;
+}
+
+sub hours {
+    my $s = shift;
+    $s->minutes / 60;
+}
+
+sub days {
+    my $s = shift;
+    $s->hours / 24;
+}
+
+sub weeks {
+    my $s = shift;
+    $s->days / 7;
+}
+
+sub months {
+    my $s = shift;
+    $s->days / 30.4368541;
+}
+
+sub financial_months {
+    my $s = shift;
+    $s->days / 30;
+}
+
+sub years {
+    my $s = shift;
+    $s->days / 365.24225;
+}
+
+sub _counted_objects {
+    my ($n, $counted) = @_;
+    my $number = sprintf("%d", $n); # does a "floor"
+    $counted .= 's' if 1 != $number;
+    return ($number, $counted);
+}
+
+sub pretty {
+    my $s = shift;
+    my $str = "";
+    if ($s < 0) {
+        $s = -$s;
+        $str = "minus ";
+    }
+    if ($s >= ONE_MINUTE) {
+        if ($s >= ONE_HOUR) {
+            if ($s >= ONE_DAY) {
+                my ($days, $sd) = _counted_objects($s->days, "day");
+                $str .= "$days $sd, ";
+                $s -= ($days * ONE_DAY);
+            }
+            my ($hours, $sh) = _counted_objects($s->hours, "hour");
+            $str .= "$hours $sh, ";
+            $s -= ($hours * ONE_HOUR);
+        }
+        my ($mins, $sm) = _counted_objects($s->minutes, "minute");
+        $str .= "$mins $sm, ";
+        $s -= ($mins * ONE_MINUTE);
+    }
+    $str .= join " ", _counted_objects($s->seconds, "second");
+    return $str;
+}
+
+1;
+__END__
+
+package Time::Piece;
+
+use strict;
+
+use XSLoader ();
+use Time::Seconds;
+use Carp;
+use Time::Local;
+
+use Exporter ();
+
+our @EXPORT = qw(
+    localtime
+    gmtime
+);
+
+our %EXPORT_TAGS = (
+    ':override' => 'internal',
+    );
+
+our $VERSION = '1.3204';
+
+XSLoader::load( 'Time::Piece', $VERSION );
+
+my $DATE_SEP = '-';
+my $TIME_SEP = ':';
+my @MON_LIST = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my @FULLMON_LIST = qw(January February March April May June July
+                      August September October November December);
+my @DAY_LIST = qw(Sun Mon Tue Wed Thu Fri Sat);
+my @FULLDAY_LIST = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
+my $IS_WIN32 = ($^O =~ /Win32/);
+
+my $LOCALE;
+
+use constant {
+    'c_sec' => 0,
+    'c_min' => 1,
+    'c_hour' => 2,
+    'c_mday' => 3,
+    'c_mon' => 4,
+    'c_year' => 5,
+    'c_wday' => 6,
+    'c_yday' => 7,
+    'c_isdst' => 8,
+    'c_epoch' => 9,
+    'c_islocal' => 10,
+};
+
+sub localtime {
+    unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') };
+    my $class = shift;
+    my $time  = shift;
+    $time = time if (!defined $time);
+    $class->_mktime($time, 1);
+}
+
+sub gmtime {
+    unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') };
+    my $class = shift;
+    my $time  = shift;
+    $time = time if (!defined $time);
+    $class->_mktime($time, 0);
+}
+
+sub new {
+    my $class = shift;
+    my ($time) = @_;
+
+    my $self;
+
+    if (ref($time)) {
+        $self = $time->[c_islocal] ? $class->localtime($time) : $class->gmtime($time);
+    }
+    elsif (defined($time)) {
+        $self = $class->localtime($time);
+    }
+    elsif (ref($class) && $class->isa(__PACKAGE__)) {
+        $self = $class->_mktime($class->epoch, $class->[c_islocal]);
+    }
+    else {
+        $self = $class->localtime();
+    }
+
+    return bless $self, ref($class) || $class;
+}
+
+sub parse {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+    my @components;
+
+    warnings::warnif("deprecated", 
+        "parse() is deprecated, use strptime() instead.");
+
+    if (@_ > 1) {
+        @components = @_;
+    }
+    else {
+        @components = shift =~ /(\d+)$DATE_SEP(\d+)$DATE_SEP(\d+)(?:(?:T|\s+)(\d+)$TIME_SEP(\d+)(?:$TIME_SEP(\d+)))/;
+        @components = reverse(@components[0..5]);
+    }
+    return $class->new( timelocal(@components ));
+}
+
+sub _mktime {
+    my ($class, $time, $islocal) = @_;
+
+    $class = eval { (ref $class) && (ref $class)->isa('Time::Piece') }
+           ? ref $class
+           : $class;
+    if (ref($time)) {
+        my @new_time = @$time;
+        my @tm_parts = (@new_time[c_sec .. c_mon], $new_time[c_year]+1900);
+        $new_time[c_epoch] = $islocal ? timelocal(@tm_parts) : timegm(@tm_parts);
+
+        return wantarray ? @new_time : bless [@new_time[0..9], $islocal], $class;
+    }
+    _tzset();
+    my @time = $islocal ?
+            CORE::localtime($time)
+                :
+            CORE::gmtime($time);
+    wantarray ? @time : bless [@time, $time, $islocal], $class;
+}
+
+my %_special_exports = (
+  localtime => sub { my $c = $_[0]; sub { $c->localtime(@_) } },
+  gmtime    => sub { my $c = $_[0]; sub { $c->gmtime(@_)    } },
+);
+
+sub export {
+  my ($class, $to, @methods) = @_;
+  for my $method (@methods) {
+    if (exists $_special_exports{$method}) {
+      no strict 'refs';
+      no warnings 'redefine';
+      *{$to . "::$method"} = $_special_exports{$method}->($class);
+    } else {
+      $class->Exporter::export($to, $method);
+    }
+  }
+}
+
+sub import {
+    # replace CORE::GLOBAL localtime and gmtime if passed :override
+    my $class = shift;
+    my %params;
+    map($params{$_}++,@_,@EXPORT);
+    if (delete $params{':override'}) {
+        $class->export('CORE::GLOBAL', keys %params);
+    }
+    else {
+        $class->export(scalar caller, keys %params);
+    }
+}
+
+## Methods ##
+
+sub sec {
+    my $time = shift;
+    $time->[c_sec];
+}
+
+*second = \&sec;
+
+sub min {
+    my $time = shift;
+    $time->[c_min];
+}
+
+*minute = \&min;
+
+sub hour {
+    my $time = shift;
+    $time->[c_hour];
+}
+
+sub mday {
+    my $time = shift;
+    $time->[c_mday];
+}
+
+*day_of_month = \&mday;
+
+sub mon {
+    my $time = shift;
+    $time->[c_mon] + 1;
+}
+
+sub _mon {
+    my $time = shift;
+    $time->[c_mon];
+}
+
+sub month {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_mon]];
+    }
+    elsif (@MON_LIST) {
+        return $MON_LIST[$time->[c_mon]];
+    }
+    else {
+        return $time->strftime('%b');
+    }
+}
+
+*monname = \&month;
+
+sub fullmonth {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_mon]];
+    }
+    elsif (@FULLMON_LIST) {
+        return $FULLMON_LIST[$time->[c_mon]];
+    }
+    else {
+        return $time->strftime('%B');
+    }
+}
+
+sub year {
+    my $time = shift;
+    $time->[c_year] + 1900;
+}
+
+sub _year {
+    my $time = shift;
+    $time->[c_year];
+}
+
+sub yy {
+    my $time = shift;
+    my $res = $time->[c_year] % 100;
+    return $res > 9 ? $res : "0$res";
+}
+
+sub wday {
+    my $time = shift;
+    $time->[c_wday] + 1;
+}
+
+sub _wday {
+    my $time = shift;
+    $time->[c_wday];
+}
+
+*day_of_week = \&_wday;
+
+sub wdayname {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_wday]];
+    }
+    elsif (@DAY_LIST) {
+        return $DAY_LIST[$time->[c_wday]];
+    }
+    else {
+        return $time->strftime('%a');
+    }
+}
+
+*day = \&wdayname;
+
+sub fullday {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_wday]];
+    }
+    elsif (@FULLDAY_LIST) {
+        return $FULLDAY_LIST[$time->[c_wday]];
+    }
+    else {
+        return $time->strftime('%A');
+    }
+}
+
+sub yday {
+    my $time = shift;
+    $time->[c_yday];
+}
+
+*day_of_year = \&yday;
+
+sub isdst {
+    my $time = shift;
+    $time->[c_isdst];
+}
+
+*daylight_savings = \&isdst;
+
+# Thanks to Tony Olekshy <olekshy@cs.ualberta.ca> for this algorithm
+sub tzoffset {
+    my $time = shift;
+
+    return Time::Seconds->new(0) unless $time->[c_islocal];
+
+    my $epoch = $time->epoch;
+
+    my $j = sub {
+
+        my ($s,$n,$h,$d,$m,$y) = @_; $m += 1; $y += 1900;
+
+        $time->_jd($y, $m, $d, $h, $n, $s);
+
+    };
+
+    # Compute floating offset in hours.
+    #
+    # Note use of crt methods so the tz is properly set...
+    # See: http://perlmonks.org/?node_id=820347
+    my $delta = 24 * ($j->(_crt_localtime($epoch)) - $j->(_crt_gmtime($epoch)));
+
+    # Return value in seconds rounded to nearest minute.
+    return Time::Seconds->new( int($delta * 60 + ($delta >= 0 ? 0.5 : -0.5)) * 60 );
+}
+
+sub epoch {
+    my $time = shift;
+    if (defined($time->[c_epoch])) {
+        return $time->[c_epoch];
+    }
+    else {
+        my $epoch = $time->[c_islocal] ?
+          timelocal(@{$time}[c_sec .. c_mon], $time->[c_year]+1900)
+          :
+          timegm(@{$time}[c_sec .. c_mon], $time->[c_year]+1900);
+        $time->[c_epoch] = $epoch;
+        return $epoch;
+    }
+}
+
+sub hms {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $TIME_SEP;
+    sprintf("%02d$sep%02d$sep%02d", $time->[c_hour], $time->[c_min], $time->[c_sec]);
+}
+
+*time = \&hms;
+
+sub ymd {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%d$sep%02d$sep%02d", $time->year, $time->mon, $time->[c_mday]);
+}
+
+*date = \&ymd;
+
+sub mdy {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%02d$sep%02d$sep%d", $time->mon, $time->[c_mday], $time->year);
+}
+
+sub dmy {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%02d$sep%02d$sep%d", $time->[c_mday], $time->mon, $time->year);
+}
+
+sub datetime {
+    my $time = shift;
+    my %seps = (date => $DATE_SEP, T => 'T', time => $TIME_SEP, @_);
+    return join($seps{T}, $time->date($seps{date}), $time->time($seps{time}));
+}
+
+
+
+# Julian Day is always calculated for UT regardless
+# of local time
+sub julian_day {
+    my $time = shift;
+    # Correct for localtime
+    $time = $time->gmtime( $time->epoch ) if $time->[c_islocal];
+
+    # Calculate the Julian day itself
+    my $jd = $time->_jd( $time->year, $time->mon, $time->mday,
+                        $time->hour, $time->min, $time->sec);
+
+    return $jd;
+}
+
+# MJD is defined as JD - 2400000.5 days
+sub mjd {
+    return shift->julian_day - 2_400_000.5;
+}
+
+# Internal calculation of Julian date. Needed here so that
+# both tzoffset and mjd/jd methods can share the code
+# Algorithm from Hatcher 1984 (QJRAS 25, 53-55), and
+#  Hughes et al, 1989, MNRAS, 238, 15
+# See: http://adsabs.harvard.edu/cgi-bin/nph-bib_query?bibcode=1989MNRAS.238.1529H&db_key=AST
+# for more details
+
+sub _jd {
+    my $self = shift;
+    my ($y, $m, $d, $h, $n, $s) = @_;
+
+    # Adjust input parameters according to the month
+    $y = ( $m > 2 ? $y : $y - 1);
+    $m = ( $m > 2 ? $m - 3 : $m + 9);
+
+    # Calculate the Julian Date (assuming Julian calendar)
+    my $J = int( 365.25 *( $y + 4712) )
+      + int( (30.6 * $m) + 0.5)
+        + 59
+          + $d
+            - 0.5;
+
+    # Calculate the Gregorian Correction (since we have Gregorian dates)
+    my $G = 38 - int( 0.75 * int(49+($y/100)));
+
+    # Calculate the actual Julian Date
+    my $JD = $J + $G;
+
+    # Modify to include hours/mins/secs in floating portion.
+    return $JD + ($h + ($n + $s / 60) / 60) / 24;
+}
+
+sub week {
+    my $self = shift;
+
+    my $J  = $self->julian_day;
+    # Julian day is independent of time zone so add on tzoffset
+    # if we are using local time here since we want the week day
+    # to reflect the local time rather than UTC
+    $J += ($self->tzoffset/(24*3600)) if $self->[c_islocal];
+
+    # Now that we have the Julian day including fractions
+    # convert it to an integer Julian Day Number using nearest
+    # int (since the day changes at midday we convert all Julian
+    # dates to following midnight).
+    $J = int($J+0.5);
+
+    use integer;
+    my $d4 = ((($J + 31741 - ($J % 7)) % 146097) % 36524) % 1461;
+    my $L  = $d4 / 1460;
+    my $d1 = (($d4 - $L) % 365) + $L;
+    return $d1 / 7 + 1;
+}
+
+sub _is_leap_year {
+    my $year = shift;
+    return (($year %4 == 0) && !($year % 100 == 0)) || ($year % 400 == 0)
+               ? 1 : 0;
+}
+
+sub is_leap_year {
+    my $time = shift;
+    my $year = $time->year;
+    return _is_leap_year($year);
+}
+
+my @MON_LAST = qw(31 28 31 30 31 30 31 31 30 31 30 31);
+
+sub month_last_day {
+    my $time = shift;
+    my $year = $time->year;
+    my $_mon = $time->_mon;
+    return $MON_LAST[$_mon] + ($_mon == 1 ? _is_leap_year($year) : 0);
+}
+
+my $trans_map_common = {
+
+    'c' => sub {
+        my ( $format ) = @_;
+        if($LOCALE->{PM} && $LOCALE->{AM}){
+            $format =~ s/%c/%a %d %b %Y %I:%M:%S %p/;
+        }
+        else{
+            $format =~ s/%c/%a %d %b %Y %H:%M:%S/;
+        }
+        return $format;
+    },
+    'r' => sub {
+        my ( $format ) = @_;
+        if($LOCALE->{PM} && $LOCALE->{AM}){
+            $format =~ s/%r/%I:%M:%S %p/;
+        }
+        else{
+            $format =~ s/%r/%H:%M:%S/;
+        }
+        return $format;
+    },
+    'X' => sub {
+        my ( $format ) = @_;
+        if($LOCALE->{PM} && $LOCALE->{AM}){
+            $format =~ s/%X/%I:%M:%S %p/;
+        }
+        else{
+            $format =~ s/%X/%H:%M:%S/;
+        }
+        return $format;
+    },
+};
+
+my $strftime_trans_map = {
+    %{$trans_map_common},
+
+    'e' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%e/%d/ if $IS_WIN32;
+        return $format;
+    },
+    'D' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%D/%m\/%d\/%y/;
+        return $format;
+    },
+    'F' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%F/%Y-%m-%d/;
+        return $format;
+    },
+    'R' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%R/%H:%M/;
+        return $format;
+    },
+    's' => sub {
+        #%s not portable if time parts are from gmtime since %s will
+        #cause a call to native mktime (and thus uses local TZ)
+        my ( $format, $time ) = @_;
+        $format =~ s/%s/$time->[c_epoch]/;
+        return $format;
+    },
+    'T' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%T/%H:%M:%S/ if $IS_WIN32;
+        return $format;
+    },
+    'u' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%u/%w/ if $IS_WIN32;
+        return $format;
+    },
+    'V' => sub {
+        my ( $format, $time ) = @_;
+        my $week = sprintf( "%02d", $time->week() );
+        $format =~ s/%V/$week/ if $IS_WIN32;
+        return $format;
+    },
+    'x' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%x/%a %d %b %Y/;
+        return $format;
+    },
+    'z' => sub {    #%[zZ] not portable if time parts are from gmtime
+        my ( $format, $time ) = @_;
+        $format =~ s/%z/+0000/ if not $time->[c_islocal];
+        return $format;
+    },
+    'Z' => sub {
+        my ( $format, $time ) = @_;
+        $format =~ s/%Z/UTC/ if not $time->[c_islocal];
+        return $format;
+    },
+};
+
+sub strftime {
+    my $time = shift;
+    my $format = @_ ? shift(@_) : '%a, %d %b %Y %H:%M:%S %Z';
+    $format = _translate_format($format, $strftime_trans_map, $time);
+
+    return $format unless $format =~ /%/; #if translate removes everything
+
+    return _strftime($format, $time->epoch, $time->[c_islocal]);
+}
+
+my $strptime_trans_map = {
+    %{$trans_map_common},
+};
+
+sub strptime {
+    my $time = shift;
+    my $string = shift;
+    my $format = @_ ? shift(@_) : "%a, %d %b %Y %H:%M:%S %Z";
+    my $islocal = (ref($time) ? $time->[c_islocal] : 0);
+    my $locales = $LOCALE || &Time::Piece::_default_locale();
+    $format = _translate_format($format, $strptime_trans_map);
+    my @vals = _strptime($string, $format, $islocal, $locales);
+#    warn(sprintf("got vals: %d-%d-%d %d:%d:%d\n", reverse(@vals[c_sec..c_year])));
+    return scalar $time->_mktime(\@vals, $islocal);
+}
+
+sub day_list {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__); # strip first if called as a method
+    my @old = @DAY_LIST;
+    if (@_) {
+        @DAY_LIST = @_;
+        &Time::Piece::_default_locale();
+    }
+    return @old;
+}
+
+sub mon_list {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__); # strip first if called as a method
+    my @old = @MON_LIST;
+    if (@_) {
+        @MON_LIST = @_;
+        &Time::Piece::_default_locale();
+    }
+    return @old;
+}
+
+sub time_separator {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__);
+    my $old = $TIME_SEP;
+    if (@_) {
+        $TIME_SEP = $_[0];
+    }
+    return $old;
+}
+
+sub date_separator {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__);
+    my $old = $DATE_SEP;
+    if (@_) {
+        $DATE_SEP = $_[0];
+    }
+    return $old;
+}
+
+use overload '""' => \&cdate,
+             'cmp' => \&str_compare,
+             'fallback' => undef;
+
+sub cdate {
+    my $time = shift;
+    if ($time->[c_islocal]) {
+        return scalar(CORE::localtime($time->epoch));
+    }
+    else {
+        return scalar(CORE::gmtime($time->epoch));
+    }
+}
+
+sub str_compare {
+    my ($lhs, $rhs, $reverse) = @_;
+    if (UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        $rhs = "$rhs";
+    }
+    return $reverse ? $rhs cmp $lhs->cdate : $lhs->cdate cmp $rhs;
+}
+
+use overload
+        '-' => \&subtract,
+        '+' => \&add;
+
+sub subtract {
+    my $time = shift;
+    my $rhs = shift;
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+
+    if (shift)
+    {
+	# SWAPED is set (so someone tried an expression like NOTDATE - DATE).
+	# Imitate Perl's standard behavior and return the result as if the
+	# string $time resolves to was subtracted from NOTDATE.  This way,
+	# classes which override this one and which have a stringify function
+	# that resolves to something that looks more like a number don't need
+	# to override this function.
+	return $rhs - "$time";
+    }
+
+    if (UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        return Time::Seconds->new($time->epoch - $rhs->epoch);
+    }
+    else {
+        # rhs is seconds.
+        return $time->_mktime(($time->epoch - $rhs), $time->[c_islocal]);
+    }
+}
+
+sub add {
+    my $time = shift;
+    my $rhs = shift;
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+    croak "Invalid rhs of addition: $rhs" if ref($rhs);
+
+    return $time->_mktime(($time->epoch + $rhs), $time->[c_islocal]);
+}
+
+use overload
+        '<=>' => \&compare;
+
+sub get_epochs {
+    my ($lhs, $rhs, $reverse) = @_;
+    if (!UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        $rhs = $lhs->new($rhs);
+    }
+    if ($reverse) {
+        return $rhs->epoch, $lhs->epoch;
+    }
+    return $lhs->epoch, $rhs->epoch;
+}
+
+sub compare {
+    my ($lhs, $rhs) = get_epochs(@_);
+    return $lhs <=> $rhs;
+}
+
+sub add_months {
+    my ($time, $num_months) = @_;
+
+    croak("add_months requires a number of months") unless defined($num_months);
+
+    my $final_month = $time->_mon + $num_months;
+    my $num_years = 0;
+    if ($final_month > 11 || $final_month < 0) {
+        # these two ops required because we have no POSIX::floor and don't
+        # want to load POSIX.pm
+        if ($final_month < 0 && $final_month % 12 == 0) {
+            $num_years = int($final_month / 12) + 1;
+        }
+        else {
+            $num_years = int($final_month / 12);
+        }
+        $num_years-- if ($final_month < 0);
+
+        $final_month = $final_month % 12;
+    }
+
+    my @vals = _mini_mktime($time->sec, $time->min, $time->hour,
+                            $time->mday, $final_month, $time->year - 1900 + $num_years);
+    # warn(sprintf("got %d vals: %d-%d-%d %d:%d:%d [%d]\n", scalar(@vals), reverse(@vals), $time->[c_islocal]));
+    return scalar $time->_mktime(\@vals, $time->[c_islocal]);
+}
+
+sub add_years {
+    my ($time, $years) = @_;
+    $time->add_months($years * 12);
+}
+
+sub truncate {
+    my ($time, %params) = @_;
+    return $time unless exists $params{to};
+    #if ($params{to} eq 'week') { return $time->_truncate_week; }
+    my %units = (
+        second   => 0,
+        minute   => 1,
+        hour     => 2,
+        day      => 3,
+        month    => 4,
+        quarter  => 5,
+        year     => 5
+    );
+    my $to = $units{$params{to}};
+    croak "Invalid value of 'to' parameter: $params{to}" unless defined $to;
+    my $start_month = 0;
+    if ($params{to} eq 'quarter') {
+        $start_month = int( $time->_mon / 3 ) * 3;
+    }
+    my @down_to = (0, 0, 0, 1, $start_month, $time->year);
+    return $time->_mktime([@down_to[0..$to-1], @$time[$to..c_isdst]],
+        $time->[c_islocal]);
+}
+
+#Given a format and a translate map, replace format flags in
+#accordance with the logic from the translation map subroutines
+sub _translate_format {
+    my ( $format, $trans_map, $time ) = @_;
+
+    $format =~ s/%%/\e\e/g; #escape the escape
+    my $lexer = _build_format_lexer($format);
+
+	while(my $flag = $lexer->() ){
+        next unless exists $trans_map->{$flag};
+		$format = $trans_map->{$flag}($format, $time);
+	}
+
+    $format =~ s/\e\e/%%/g;
+    return $format;
+}
+
+sub _build_format_lexer {
+    my $format = shift();
+
+    #Higher Order Perl p.359 (or thereabouts)
+    return sub {
+        LABEL: {
+        return $1 if $format =~ m/\G%([a-zA-Z])/gc; #return single char flags
+
+        redo LABEL if $format =~ m/\G(.)/gc;
+        return; #return at empty string
+        }
+    };
+}
+
+sub use_locale {
+    #get locale month/day names from posix strftime (from Piece.xs)
+    my $locales = _get_localization();
+
+    $locales->{PM} ||= '';
+    $locales->{AM} ||= '';
+
+    $locales->{pm} = lc $locales->{PM};
+    $locales->{am} = lc $locales->{AM};
+    #should probably figure out how to get a
+    #region specific format for %c someday
+    $locales->{c_fmt} = '';
+
+    #Set globals. If anything is
+    #weird just use original
+    if( @{$locales->{weekday}} < 7 ){
+        @{$locales->{weekday}} = @FULLDAY_LIST;
+    }
+    else {
+        @FULLDAY_LIST = @{$locales->{weekday}};
+    }
+
+    if( @{$locales->{wday}} < 7 ){
+        @{$locales->{wday}} = @DAY_LIST;
+    }
+    else {
+        @DAY_LIST = @{$locales->{wday}};
+    }
+
+    if( @{$locales->{month}} < 12 ){
+        @{$locales->{month}} = @FULLMON_LIST;
+    }else {
+        @FULLMON_LIST = @{$locales->{month}};
+    }
+
+    if( @{$locales->{mon}} < 12 ){
+        @{$locales->{mon}} = @MON_LIST;
+    }
+    else{
+        @MON_LIST= @{$locales->{mon}};
+    }
+
+    $LOCALE = $locales;
+}
+
+#$Time::Piece::LOCALE is used by strptime and thus needs to be
+#in sync with what ever users change to via day_list() and mon_list().
+#Should probably deprecate this use of gloabl state, but oh well...
+sub _default_locale {
+    my $locales = {};
+
+    @{ $locales->{weekday} } = @FULLDAY_LIST;
+    @{ $locales->{wday} }    = @DAY_LIST;
+    @{ $locales->{month} }   = @FULLMON_LIST;
+    @{ $locales->{mon} }     = @MON_LIST;
+    $locales->{alt_month} = $locales->{month};
+
+    $locales->{PM}    = 'PM';
+    $locales->{AM}    = 'AM';
+    $locales->{pm}    = 'pm';
+    $locales->{am}    = 'am';
+    $locales->{c_fmt} = '';
+
+    $LOCALE = $locales;
+}
+
+sub _locale {
+    return $LOCALE;
+}
+
+
+1;
+__END__
+
+package Encode::Unicode;
+
+use strict;
+use warnings;
+
+our $VERSION = do { my @r = ( q$Revision: 2.17 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+#
+# Object Generator 8 transcoders all at once!
+#
+
+use Encode ();
+
+our %BOM_Unknown = map { $_ => 1 } qw(UTF-16 UTF-32);
+
+for my $name (
+    qw(UTF-16 UTF-16BE UTF-16LE
+    UTF-32 UTF-32BE UTF-32LE
+    UCS-2BE  UCS-2LE)
+  )
+{
+    my ( $size, $endian, $ucs2, $mask );
+    $name =~ /^(\w+)-(\d+)(\w*)$/o;
+    if ( $ucs2 = ( $1 eq 'UCS' ) ) {
+        $size = 2;
+    }
+    else {
+        $size = $2 / 8;
+    }
+    $endian = ( $3 eq 'BE' ) ? 'n' : ( $3 eq 'LE' ) ? 'v' : '';
+    $size == 4 and $endian = uc($endian);
+
+    my $obj = bless {
+        Name   => $name,
+        size   => $size,
+        endian => $endian,
+        ucs2   => $ucs2,
+    } => __PACKAGE__;
+    Encode::define_encoding($obj, $name);
+}
+
+use parent qw(Encode::Encoding);
+
+sub renew {
+    my $self = shift;
+    $BOM_Unknown{ $self->name } or return $self;
+    my $clone = bless {%$self} => ref($self);
+    $clone->{renewed}++;    # so the caller knows it is renewed.
+    return $clone;
+}
+
+1;
+__END__
+
+
+package Encode::Symbol;
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+#
+# $Id: GSM0338.pm,v 2.7 2017/06/10 17:23:50 dankogai Exp $
+#
+package Encode::GSM0338;
+
+use strict;
+use warnings;
+use Carp;
+
+use vars qw($VERSION);
+$VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('gsm0338');
+
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+use utf8;
+our %UNI2GSM = (
+    "\x{0040}" => "\x00",        # COMMERCIAL AT
+    "\x{000A}" => "\x0A",        # LINE FEED
+    "\x{000C}" => "\x1B\x0A",    # FORM FEED
+    "\x{000D}" => "\x0D",        # CARRIAGE RETURN
+    "\x{0020}" => "\x20",        # SPACE
+    "\x{0021}" => "\x21",        # EXCLAMATION MARK
+    "\x{0022}" => "\x22",        # QUOTATION MARK
+    "\x{0023}" => "\x23",        # NUMBER SIGN
+    "\x{0024}" => "\x02",        # DOLLAR SIGN
+    "\x{0025}" => "\x25",        # PERCENT SIGN
+    "\x{0026}" => "\x26",        # AMPERSAND
+    "\x{0027}" => "\x27",        # APOSTROPHE
+    "\x{0028}" => "\x28",        # LEFT PARENTHESIS
+    "\x{0029}" => "\x29",        # RIGHT PARENTHESIS
+    "\x{002A}" => "\x2A",        # ASTERISK
+    "\x{002B}" => "\x2B",        # PLUS SIGN
+    "\x{002C}" => "\x2C",        # COMMA
+    "\x{002D}" => "\x2D",        # HYPHEN-MINUS
+    "\x{002E}" => "\x2E",        # FULL STOP
+    "\x{002F}" => "\x2F",        # SOLIDUS
+    "\x{0030}" => "\x30",        # DIGIT ZERO
+    "\x{0031}" => "\x31",        # DIGIT ONE
+    "\x{0032}" => "\x32",        # DIGIT TWO
+    "\x{0033}" => "\x33",        # DIGIT THREE
+    "\x{0034}" => "\x34",        # DIGIT FOUR
+    "\x{0035}" => "\x35",        # DIGIT FIVE
+    "\x{0036}" => "\x36",        # DIGIT SIX
+    "\x{0037}" => "\x37",        # DIGIT SEVEN
+    "\x{0038}" => "\x38",        # DIGIT EIGHT
+    "\x{0039}" => "\x39",        # DIGIT NINE
+    "\x{003A}" => "\x3A",        # COLON
+    "\x{003B}" => "\x3B",        # SEMICOLON
+    "\x{003C}" => "\x3C",        # LESS-THAN SIGN
+    "\x{003D}" => "\x3D",        # EQUALS SIGN
+    "\x{003E}" => "\x3E",        # GREATER-THAN SIGN
+    "\x{003F}" => "\x3F",        # QUESTION MARK
+    "\x{0041}" => "\x41",        # LATIN CAPITAL LETTER A
+    "\x{0042}" => "\x42",        # LATIN CAPITAL LETTER B
+    "\x{0043}" => "\x43",        # LATIN CAPITAL LETTER C
+    "\x{0044}" => "\x44",        # LATIN CAPITAL LETTER D
+    "\x{0045}" => "\x45",        # LATIN CAPITAL LETTER E
+    "\x{0046}" => "\x46",        # LATIN CAPITAL LETTER F
+    "\x{0047}" => "\x47",        # LATIN CAPITAL LETTER G
+    "\x{0048}" => "\x48",        # LATIN CAPITAL LETTER H
+    "\x{0049}" => "\x49",        # LATIN CAPITAL LETTER I
+    "\x{004A}" => "\x4A",        # LATIN CAPITAL LETTER J
+    "\x{004B}" => "\x4B",        # LATIN CAPITAL LETTER K
+    "\x{004C}" => "\x4C",        # LATIN CAPITAL LETTER L
+    "\x{004D}" => "\x4D",        # LATIN CAPITAL LETTER M
+    "\x{004E}" => "\x4E",        # LATIN CAPITAL LETTER N
+    "\x{004F}" => "\x4F",        # LATIN CAPITAL LETTER O
+    "\x{0050}" => "\x50",        # LATIN CAPITAL LETTER P
+    "\x{0051}" => "\x51",        # LATIN CAPITAL LETTER Q
+    "\x{0052}" => "\x52",        # LATIN CAPITAL LETTER R
+    "\x{0053}" => "\x53",        # LATIN CAPITAL LETTER S
+    "\x{0054}" => "\x54",        # LATIN CAPITAL LETTER T
+    "\x{0055}" => "\x55",        # LATIN CAPITAL LETTER U
+    "\x{0056}" => "\x56",        # LATIN CAPITAL LETTER V
+    "\x{0057}" => "\x57",        # LATIN CAPITAL LETTER W
+    "\x{0058}" => "\x58",        # LATIN CAPITAL LETTER X
+    "\x{0059}" => "\x59",        # LATIN CAPITAL LETTER Y
+    "\x{005A}" => "\x5A",        # LATIN CAPITAL LETTER Z
+    "\x{005F}" => "\x11",        # LOW LINE
+    "\x{0061}" => "\x61",        # LATIN SMALL LETTER A
+    "\x{0062}" => "\x62",        # LATIN SMALL LETTER B
+    "\x{0063}" => "\x63",        # LATIN SMALL LETTER C
+    "\x{0064}" => "\x64",        # LATIN SMALL LETTER D
+    "\x{0065}" => "\x65",        # LATIN SMALL LETTER E
+    "\x{0066}" => "\x66",        # LATIN SMALL LETTER F
+    "\x{0067}" => "\x67",        # LATIN SMALL LETTER G
+    "\x{0068}" => "\x68",        # LATIN SMALL LETTER H
+    "\x{0069}" => "\x69",        # LATIN SMALL LETTER I
+    "\x{006A}" => "\x6A",        # LATIN SMALL LETTER J
+    "\x{006B}" => "\x6B",        # LATIN SMALL LETTER K
+    "\x{006C}" => "\x6C",        # LATIN SMALL LETTER L
+    "\x{006D}" => "\x6D",        # LATIN SMALL LETTER M
+    "\x{006E}" => "\x6E",        # LATIN SMALL LETTER N
+    "\x{006F}" => "\x6F",        # LATIN SMALL LETTER O
+    "\x{0070}" => "\x70",        # LATIN SMALL LETTER P
+    "\x{0071}" => "\x71",        # LATIN SMALL LETTER Q
+    "\x{0072}" => "\x72",        # LATIN SMALL LETTER R
+    "\x{0073}" => "\x73",        # LATIN SMALL LETTER S
+    "\x{0074}" => "\x74",        # LATIN SMALL LETTER T
+    "\x{0075}" => "\x75",        # LATIN SMALL LETTER U
+    "\x{0076}" => "\x76",        # LATIN SMALL LETTER V
+    "\x{0077}" => "\x77",        # LATIN SMALL LETTER W
+    "\x{0078}" => "\x78",        # LATIN SMALL LETTER X
+    "\x{0079}" => "\x79",        # LATIN SMALL LETTER Y
+    "\x{007A}" => "\x7A",        # LATIN SMALL LETTER Z
+    "\x{000C}" => "\x1B\x0A",    # FORM FEED
+    "\x{005B}" => "\x1B\x3C",    # LEFT SQUARE BRACKET
+    "\x{005C}" => "\x1B\x2F",    # REVERSE SOLIDUS
+    "\x{005D}" => "\x1B\x3E",    # RIGHT SQUARE BRACKET
+    "\x{005E}" => "\x1B\x14",    # CIRCUMFLEX ACCENT
+    "\x{007B}" => "\x1B\x28",    # LEFT CURLY BRACKET
+    "\x{007C}" => "\x1B\x40",    # VERTICAL LINE
+    "\x{007D}" => "\x1B\x29",    # RIGHT CURLY BRACKET
+    "\x{007E}" => "\x1B\x3D",    # TILDE
+    "\x{00A0}" => "\x1B",        # NO-BREAK SPACE
+    "\x{00A1}" => "\x40",        # INVERTED EXCLAMATION MARK
+    "\x{00A3}" => "\x01",        # POUND SIGN
+    "\x{00A4}" => "\x24",        # CURRENCY SIGN
+    "\x{00A5}" => "\x03",        # YEN SIGN
+    "\x{00A7}" => "\x5F",        # SECTION SIGN
+    "\x{00BF}" => "\x60",        # INVERTED QUESTION MARK
+    "\x{00C4}" => "\x5B",        # LATIN CAPITAL LETTER A WITH DIAERESIS
+    "\x{00C5}" => "\x0E",        # LATIN CAPITAL LETTER A WITH RING ABOVE
+    "\x{00C6}" => "\x1C",        # LATIN CAPITAL LETTER AE
+    "\x{00C9}" => "\x1F",        # LATIN CAPITAL LETTER E WITH ACUTE
+    "\x{00D1}" => "\x5D",        # LATIN CAPITAL LETTER N WITH TILDE
+    "\x{00D6}" => "\x5C",        # LATIN CAPITAL LETTER O WITH DIAERESIS
+    "\x{00D8}" => "\x0B",        # LATIN CAPITAL LETTER O WITH STROKE
+    "\x{00DC}" => "\x5E",        # LATIN CAPITAL LETTER U WITH DIAERESIS
+    "\x{00DF}" => "\x1E",        # LATIN SMALL LETTER SHARP S
+    "\x{00E0}" => "\x7F",        # LATIN SMALL LETTER A WITH GRAVE
+    "\x{00E4}" => "\x7B",        # LATIN SMALL LETTER A WITH DIAERESIS
+    "\x{00E5}" => "\x0F",        # LATIN SMALL LETTER A WITH RING ABOVE
+    "\x{00E6}" => "\x1D",        # LATIN SMALL LETTER AE
+    #"\x{00E7}" => "\x09",        # LATIN SMALL LETTER C WITH CEDILLA
+    "\x{00C7}" => "\x09",        # LATIN CAPITAL LETTER C WITH CEDILLA
+    "\x{00E8}" => "\x04",        # LATIN SMALL LETTER E WITH GRAVE
+    "\x{00E9}" => "\x05",        # LATIN SMALL LETTER E WITH ACUTE
+    "\x{00EC}" => "\x07",        # LATIN SMALL LETTER I WITH GRAVE
+    "\x{00F1}" => "\x7D",        # LATIN SMALL LETTER N WITH TILDE
+    "\x{00F2}" => "\x08",        # LATIN SMALL LETTER O WITH GRAVE
+    "\x{00F6}" => "\x7C",        # LATIN SMALL LETTER O WITH DIAERESIS
+    "\x{00F8}" => "\x0C",        # LATIN SMALL LETTER O WITH STROKE
+    "\x{00F9}" => "\x06",        # LATIN SMALL LETTER U WITH GRAVE
+    "\x{00FC}" => "\x7E",        # LATIN SMALL LETTER U WITH DIAERESIS
+    "\x{0393}" => "\x13",        # GREEK CAPITAL LETTER GAMMA
+    "\x{0394}" => "\x10",        # GREEK CAPITAL LETTER DELTA
+    "\x{0398}" => "\x19",        # GREEK CAPITAL LETTER THETA
+    "\x{039B}" => "\x14",        # GREEK CAPITAL LETTER LAMDA
+    "\x{039E}" => "\x1A",        # GREEK CAPITAL LETTER XI
+    "\x{03A0}" => "\x16",        # GREEK CAPITAL LETTER PI
+    "\x{03A3}" => "\x18",        # GREEK CAPITAL LETTER SIGMA
+    "\x{03A6}" => "\x12",        # GREEK CAPITAL LETTER PHI
+    "\x{03A8}" => "\x17",        # GREEK CAPITAL LETTER PSI
+    "\x{03A9}" => "\x15",        # GREEK CAPITAL LETTER OMEGA
+    "\x{20AC}" => "\x1B\x65",    # EURO SIGN
+);
+our %GSM2UNI = reverse %UNI2GSM;
+our $ESC    = "\x1b";
+our $ATMARK = "\x40";
+our $FBCHAR = "\x3F";
+our $NBSP   = "\x{00A0}";
+
+#define ERR_DECODE_NOMAP "%s \"\\x%02" UVXf "\" does not map to Unicode"
+
+sub decode ($$;$) {
+    my ( $obj, $bytes, $chk ) = @_;
+    return undef unless defined $bytes;
+    my $str = substr($bytes, 0, 0); # to propagate taintedness;
+    while ( length $bytes ) {
+        my $c = substr( $bytes, 0, 1, '' );
+        my $u;
+        if ( $c eq "\x00" ) {
+            my $c2 = substr( $bytes, 0, 1, '' );
+            $u =
+                !length $c2 ? $ATMARK
+              : $c2 eq "\x00" ? "\x{0000}"
+              : exists $GSM2UNI{$c2} ? $ATMARK . $GSM2UNI{$c2}
+              : $chk
+              ? croak sprintf( "\\x%02X\\x%02X does not map to Unicode",
+			       ord($c), ord($c2) )
+              : $ATMARK . $FBCHAR;
+
+        }
+        elsif ( $c eq $ESC ) {
+            my $c2 = substr( $bytes, 0, 1, '' );
+            $u =
+                exists $GSM2UNI{ $c . $c2 } ? $GSM2UNI{ $c . $c2 }
+              : exists $GSM2UNI{$c2}        ? $NBSP . $GSM2UNI{$c2}
+              : $chk
+              ? croak sprintf( "\\x%02X\\x%02X does not map to Unicode",
+			       ord($c), ord($c2) )
+              : $NBSP . $FBCHAR;
+        }
+        else {
+            $u =
+              exists $GSM2UNI{$c}
+              ? $GSM2UNI{$c}
+              : $chk ? ref $chk eq 'CODE'
+                  ? $chk->( ord $c )
+                  : croak sprintf( "\\x%02X does not map to Unicode", ord($c) )
+              : $FBCHAR;
+        }
+        $str .= $u;
+    }
+    $_[1] = $bytes if $chk;
+    return $str;
+}
+
+#define ERR_ENCODE_NOMAP "\"\\x{%04" UVxf "}\" does not map to %s"
+
+sub encode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+    my $bytes = substr($str, 0, 0); # to propagate taintedness
+    while ( length $str ) {
+        my $u = substr( $str, 0, 1, '' );
+        my $c;
+        $bytes .=
+          exists $UNI2GSM{$u}
+          ? $UNI2GSM{$u}
+          : $chk ? ref $chk eq 'CODE'
+              ? $chk->( ord($u) )
+              : croak sprintf( "\\x{%04x} does not map to %s", 
+			       ord($u), $obj->name )
+          : $FBCHAR;
+    }
+    $_[1] = $str if $chk;
+    return $bytes;
+}
+
+1;
+__END__
+
+#
+# $Id: Encoder.pm,v 2.3 2013/09/14 07:51:59 dankogai Exp $
+#
+package Encode::Encoder;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+require Exporter;
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw ( encoder );
+
+our $AUTOLOAD;
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+use Encode qw(encode decode find_encoding from_to);
+use Carp;
+
+sub new {
+    my ( $class, $data, $encname ) = @_;
+    unless ($encname) {
+        $encname = Encode::is_utf8($data) ? 'utf8' : '';
+    }
+    else {
+        my $obj = find_encoding($encname)
+          or croak __PACKAGE__, ": unknown encoding: $encname";
+        $encname = $obj->name;
+    }
+    my $self = {
+        data     => $data,
+        encoding => $encname,
+    };
+    bless $self => $class;
+}
+
+sub encoder { __PACKAGE__->new(@_) }
+
+sub data {
+    my ( $self, $data ) = @_;
+    if ( defined $data ) {
+        $self->{data} = $data;
+        return $data;
+    }
+    else {
+        return $self->{data};
+    }
+}
+
+sub encoding {
+    my ( $self, $encname ) = @_;
+    if ($encname) {
+        my $obj = find_encoding($encname)
+          or confess __PACKAGE__, ": unknown encoding: $encname";
+        $self->{encoding} = $obj->name;
+        return $self;
+    }
+    else {
+        return $self->{encoding};
+    }
+}
+
+sub bytes {
+    my ( $self, $encname ) = @_;
+    $encname ||= $self->{encoding};
+    my $obj = find_encoding($encname)
+      or confess __PACKAGE__, ": unknown encoding: $encname";
+    $self->{data} = $obj->decode( $self->{data}, 1 );
+    $self->{encoding} = '';
+    return $self;
+}
+
+sub DESTROY {    # defined so it won't autoload.
+    DEBUG and warn shift;
+}
+
+sub AUTOLOAD {
+    my $self = shift;
+    my $type = ref($self)
+      or confess "$self is not an object";
+    my $myname = $AUTOLOAD;
+    $myname =~ s/.*://;    # strip fully-qualified portion
+    my $obj = find_encoding($myname)
+      or confess __PACKAGE__, ": unknown encoding: $myname";
+    DEBUG and warn $self->{encoding}, " => ", $obj->name;
+    if ( $self->{encoding} ) {
+        from_to( $self->{data}, $self->{encoding}, $obj->name, 1 );
+    }
+    else {
+        $self->{data} = $obj->encode( $self->{data}, 1 );
+    }
+    $self->{encoding} = $obj->name;
+    return $self;
+}
+
+use overload
+  q("") => sub { $_[0]->{data} },
+  q(0+) => sub { use bytes(); bytes::length( $_[0]->{data} ) },
+  fallback => 1,
+  ;
+
+1;
+__END__
+
+package Encode::Guess;
+use strict;
+use warnings;
+use Encode qw(:fallbacks find_encoding);
+our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+my $Canon = 'Guess';
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+our %DEF_SUSPECTS = map { $_ => find_encoding($_) } qw(ascii utf8);
+my $obj = bless {
+    Name     => $Canon,
+    Suspects => {%DEF_SUSPECTS},
+} => __PACKAGE__;
+Encode::define_encoding($obj, $Canon);
+
+use parent qw(Encode::Encoding);
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+our @EXPORT         = qw(guess_encoding);
+our $NoUTFAutoGuess = 0;
+our $UTF8_BOM       = pack( "C3", 0xef, 0xbb, 0xbf );
+
+sub import {    # Exporter not used so we do it on our own
+    my $callpkg = caller;
+    for my $item (@EXPORT) {
+        no strict 'refs';
+        *{"$callpkg\::$item"} = \&{"$item"};
+    }
+    set_suspects(@_);
+}
+
+sub set_suspects {
+    my $class = shift;
+    my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
+    $self->{Suspects} = {%DEF_SUSPECTS};
+    $self->add_suspects(@_);
+}
+
+sub add_suspects {
+    my $class = shift;
+    my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
+    for my $c (@_) {
+        my $e = find_encoding($c) or die "Unknown encoding: $c";
+        $self->{Suspects}{ $e->name } = $e;
+        DEBUG and warn "Added: ", $e->name;
+    }
+}
+
+sub decode($$;$) {
+    my ( $obj, $octet, $chk ) = @_;
+    my $guessed = guess( $obj, $octet );
+    unless ( ref($guessed) ) {
+        require Carp;
+        Carp::croak($guessed);
+    }
+    my $utf8 = $guessed->decode( $octet, $chk || 0 );
+    $_[1] = $octet if $chk;
+    return $utf8;
+}
+
+sub guess_encoding {
+    guess( $Encode::Encoding{$Canon}, @_ );
+}
+
+sub guess {
+    my $class = shift;
+    my $obj   = ref($class) ? $class : $Encode::Encoding{$Canon};
+    my $octet = shift;
+
+    # sanity check
+    return "Empty string, empty guess" unless defined $octet and length $octet;
+
+    # cheat 0: utf8 flag;
+    if ( Encode::is_utf8($octet) ) {
+        return find_encoding('utf8') unless $NoUTFAutoGuess;
+        Encode::_utf8_off($octet);
+    }
+
+    # cheat 1: BOM
+    use Encode::Unicode;
+    unless ($NoUTFAutoGuess) {
+        my $BOM = pack( 'C3', unpack( "C3", $octet ) );
+        return find_encoding('utf8')
+          if ( defined $BOM and $BOM eq $UTF8_BOM );
+        $BOM = unpack( 'N', $octet );
+        return find_encoding('UTF-32')
+          if ( defined $BOM and ( $BOM == 0xFeFF or $BOM == 0xFFFe0000 ) );
+        $BOM = unpack( 'n', $octet );
+        return find_encoding('UTF-16')
+          if ( defined $BOM and ( $BOM == 0xFeFF or $BOM == 0xFFFe ) );
+        if ( $octet =~ /\x00/o )
+        {    # if \x00 found, we assume UTF-(16|32)(BE|LE)
+            my $utf;
+            my ( $be, $le ) = ( 0, 0 );
+            if ( $octet =~ /\x00\x00/o ) {    # UTF-32(BE|LE) assumed
+                $utf = "UTF-32";
+                for my $char ( unpack( 'N*', $octet ) ) {
+                    $char & 0x0000ffff and $be++;
+                    $char & 0xffff0000 and $le++;
+                }
+            }
+            else {                            # UTF-16(BE|LE) assumed
+                $utf = "UTF-16";
+                for my $char ( unpack( 'n*', $octet ) ) {
+                    $char & 0x00ff and $be++;
+                    $char & 0xff00 and $le++;
+                }
+            }
+            DEBUG and warn "$utf, be == $be, le == $le";
+            $be == $le
+              and return
+              "Encodings ambiguous between $utf BE and LE ($be, $le)";
+            $utf .= ( $be > $le ) ? 'BE' : 'LE';
+            return find_encoding($utf);
+        }
+    }
+    my %try = %{ $obj->{Suspects} };
+    for my $c (@_) {
+        my $e = find_encoding($c) or die "Unknown encoding: $c";
+        $try{ $e->name } = $e;
+        DEBUG and warn "Added: ", $e->name;
+    }
+    my $nline = 1;
+    for my $line ( split /\r\n?|\n/, $octet ) {
+
+        # cheat 2 -- \e in the string
+        if ( $line =~ /\e/o ) {
+            my @keys = keys %try;
+            delete @try{qw/utf8 ascii/};
+            for my $k (@keys) {
+                ref( $try{$k} ) eq 'Encode::XS' and delete $try{$k};
+            }
+        }
+        my %ok = %try;
+
+        # warn join(",", keys %try);
+        for my $k ( keys %try ) {
+            my $scratch = $line;
+            $try{$k}->decode( $scratch, FB_QUIET );
+            if ( $scratch eq '' ) {
+                DEBUG and warn sprintf( "%4d:%-24s ok\n", $nline, $k );
+            }
+            else {
+                use bytes ();
+                DEBUG
+                  and warn sprintf( "%4d:%-24s not ok; %d bytes left\n",
+                    $nline, $k, bytes::length($scratch) );
+                delete $ok{$k};
+            }
+        }
+        %ok or return "No appropriate encodings found!";
+        if ( scalar( keys(%ok) ) == 1 ) {
+            my ($retval) = values(%ok);
+            return $retval;
+        }
+        %try = %ok;
+        $nline++;
+    }
+    $try{ascii}
+      or return "Encodings too ambiguous: ", join( " or ", keys %try );
+    return $try{ascii};
+}
+
+1;
+__END__
+
+
+#
+# $Id: CJKConstants.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $
+#
+
+package Encode::CJKConstants;
+
+use strict;
+use warnings;
+our $RCSID = q$Id: CJKConstants.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Carp;
+
+require Exporter;
+our @ISA         = qw(Exporter);
+our @EXPORT      = qw();
+our @EXPORT_OK   = qw(%CHARCODE %ESC %RE);
+our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
+
+my %_0208 = (
+    1978 => '\e\$\@',
+    1983 => '\e\$B',
+    1990 => '\e&\@\e\$B',
+);
+
+our %CHARCODE = (
+    UNDEF_EUC     => "\xa2\xae",    # ¢® in EUC
+    UNDEF_SJIS    => "\x81\xac",    # ¢® in SJIS
+    UNDEF_JIS     => "\xa2\xf7",    # ¢÷ -- used in unicode
+    UNDEF_UNICODE => "\x20\x20",    # ¢÷ -- used in unicode
+);
+
+our %ESC = (
+    GB_2312   => "\e\$A",
+    JIS_0208  => "\e\$B",
+    JIS_0212  => "\e\$(D",
+    KSC_5601  => "\e\$(C",
+    ASC       => "\e\(B",
+    KANA      => "\e\(I",
+    '2022_KR' => "\e\$)C",
+);
+
+our %RE = (
+    ASCII     => '[\x00-\x7f]',
+    BIN       => '[\x00-\x06\x7f\xff]',
+    EUC_0212  => '\x8f[\xa1-\xfe][\xa1-\xfe]',
+    EUC_C     => '[\xa1-\xfe][\xa1-\xfe]',
+    EUC_KANA  => '\x8e[\xa1-\xdf]',
+    JIS_0208  => "$_0208{1978}|$_0208{1983}|$_0208{1990}",
+    JIS_0212  => "\e" . '\$\(D',
+    ISO_ASC   => "\e" . '\([BJ]',
+    JIS_KANA  => "\e" . '\(I',
+    '2022_KR' => "\e" . '\$\)C',
+    SJIS_C    => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]',
+    SJIS_KANA => '[\xa1-\xdf]',
+    UTF8      => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]'
+);
+
+1;
+
+
+package Encode::Alias;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.24 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+
+use Exporter 'import';
+
+# Public, encouraged API is exported by default
+
+our @EXPORT =
+  qw (
+  define_alias
+  find_alias
+);
+
+our @Alias;    # ordered matching list
+our %Alias;    # cached known aliases
+
+sub find_alias {
+    my $class = shift;
+    my $find  = shift;
+    unless ( exists $Alias{$find} ) {
+        $Alias{$find} = undef;    # Recursion guard
+        for ( my $i = 0 ; $i < @Alias ; $i += 2 ) {
+            my $alias = $Alias[$i];
+            my $val   = $Alias[ $i + 1 ];
+            my $new;
+            if ( ref($alias) eq 'Regexp' && $find =~ $alias ) {
+                DEBUG and warn "eval $val";
+                $new = eval $val;
+                DEBUG and $@ and warn "$val, $@";
+            }
+            elsif ( ref($alias) eq 'CODE' ) {
+                DEBUG and warn "$alias", "->", "($find)";
+                $new = $alias->($find);
+            }
+            elsif ( lc($find) eq lc($alias) ) {
+                $new = $val;
+            }
+            if ( defined($new) ) {
+                next if $new eq $find;    # avoid (direct) recursion on bugs
+                DEBUG and warn "$alias, $new";
+                my $enc =
+                  ( ref($new) ) ? $new : Encode::find_encoding($new);
+                if ($enc) {
+                    $Alias{$find} = $enc;
+                    last;
+                }
+            }
+        }
+
+        # case insensitive search when canonical is not in all lowercase
+        # RT ticket #7835
+        unless ( $Alias{$find} ) {
+            my $lcfind = lc($find);
+            for my $name ( keys %Encode::Encoding, keys %Encode::ExtModule )
+            {
+                $lcfind eq lc($name) or next;
+                $Alias{$find} = Encode::find_encoding($name);
+                DEBUG and warn "$find => $name";
+            }
+        }
+    }
+    if (DEBUG) {
+        my $name;
+        if ( my $e = $Alias{$find} ) {
+            $name = $e->name;
+        }
+        else {
+            $name = "";
+        }
+        warn "find_alias($class, $find)->name = $name";
+    }
+    return $Alias{$find};
+}
+
+sub define_alias {
+    while (@_) {
+        my $alias = shift;
+        my $name = shift;
+        unshift( @Alias, $alias => $name )    # newer one has precedence
+            if defined $alias;
+        if ( ref($alias) ) {
+
+            # clear %Alias cache to allow overrides
+            my @a = keys %Alias;
+            for my $k (@a) {
+                if ( ref($alias) eq 'Regexp' && $k =~ $alias ) {
+                    DEBUG and warn "delete \$Alias\{$k\}";
+                    delete $Alias{$k};
+                }
+                elsif ( ref($alias) eq 'CODE' && $alias->($k) ) {
+                    DEBUG and warn "delete \$Alias\{$k\}";
+                    delete $Alias{$k};
+                }
+            }
+        }
+        elsif (defined $alias) {
+            DEBUG and warn "delete \$Alias\{$alias\}";
+            delete $Alias{$alias};
+        }
+        elsif (DEBUG) {
+            require Carp;
+            Carp::croak("undef \$alias");
+        }
+    }
+}
+
+# HACK: Encode must be used after define_alias is declarated as Encode calls define_alias
+use Encode ();
+
+# Allow latin-1 style names as well
+# 0  1  2  3  4  5   6   7   8   9  10
+our @Latin2iso = ( 0, 1, 2, 3, 4, 9, 10, 13, 14, 15, 16 );
+
+# Allow winlatin1 style names as well
+our %Winlatin2cp = (
+    'latin1'     => 1252,
+    'latin2'     => 1250,
+    'cyrillic'   => 1251,
+    'greek'      => 1253,
+    'turkish'    => 1254,
+    'hebrew'     => 1255,
+    'arabic'     => 1256,
+    'baltic'     => 1257,
+    'vietnamese' => 1258,
+);
+
+init_aliases();
+
+sub undef_aliases {
+    @Alias = ();
+    %Alias = ();
+}
+
+sub init_aliases {
+    undef_aliases();
+
+    # Try all-lower-case version should all else fails
+    define_alias( qr/^(.*)$/ => '"\L$1"' );
+
+    # UTF/UCS stuff
+    define_alias( qr/^(unicode-1-1-)?UTF-?7$/i     => '"UTF-7"' );
+    define_alias( qr/^UCS-?2-?LE$/i => '"UCS-2LE"' );
+    define_alias(
+        qr/^UCS-?2-?(BE)?$/i    => '"UCS-2BE"',
+        qr/^UCS-?4-?(BE|LE|)?$/i => 'uc("UTF-32$1")',
+        qr/^iso-10646-1$/i      => '"UCS-2BE"'
+    );
+    define_alias(
+        qr/^UTF-?(16|32)-?BE$/i => '"UTF-$1BE"',
+        qr/^UTF-?(16|32)-?LE$/i => '"UTF-$1LE"',
+        qr/^UTF-?(16|32)$/i     => '"UTF-$1"',
+    );
+
+    # ASCII
+    define_alias( qr/^(?:US-?)ascii$/i       => '"ascii"' );
+    define_alias( 'C'                        => 'ascii' );
+    define_alias( qr/\b(?:ISO[-_]?)?646(?:[-_]?US)?$/i => '"ascii"' );
+
+    # Allow variants of iso-8859-1 etc.
+    define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' );
+
+    # At least HP-UX has these.
+    define_alias( qr/\biso8859(\d+)$/i => '"iso-8859-$1"' );
+
+    # More HP stuff.
+    define_alias(
+        qr/\b(?:hp-)?(arabic|greek|hebrew|kana|roman|thai|turkish)8$/i =>
+          '"${1}8"' );
+
+    # The Official name of ASCII.
+    define_alias( qr/\bANSI[-_]?X3\.4[-_]?1968$/i => '"ascii"' );
+
+    # This is a font issue, not an encoding issue.
+    # (The currency symbol of the Latin 1 upper half
+    #  has been redefined as the euro symbol.)
+    define_alias( qr/^(.+)\@euro$/i => '"$1"' );
+
+    define_alias( qr/\b(?:iso[-_]?)?latin[-_]?(\d+)$/i =>
+'defined $Encode::Alias::Latin2iso[$1] ? "iso-8859-$Encode::Alias::Latin2iso[$1]" : undef'
+    );
+
+    define_alias(
+        qr/\bwin(latin[12]|cyrillic|baltic|greek|turkish|
+             hebrew|arabic|baltic|vietnamese)$/ix =>
+          '"cp" . $Encode::Alias::Winlatin2cp{lc($1)}'
+    );
+
+    # Common names for non-latin preferred MIME names
+    define_alias(
+        'ascii'    => 'US-ascii',
+        'cyrillic' => 'iso-8859-5',
+        'arabic'   => 'iso-8859-6',
+        'greek'    => 'iso-8859-7',
+        'hebrew'   => 'iso-8859-8',
+        'thai'     => 'iso-8859-11',
+    );
+    # RT #20781
+    define_alias(qr/\btis-?620\b/i  => '"iso-8859-11"');
+
+    # At least AIX has IBM-NNN (surprisingly...) instead of cpNNN.
+    # And Microsoft has their own naming (again, surprisingly).
+    # And windows-* is registered in IANA!
+    define_alias(
+        qr/\b(?:cp|ibm|ms|windows)[-_ ]?(\d{2,4})$/i => '"cp$1"' );
+
+    # Sometimes seen with a leading zero.
+    # define_alias( qr/\bcp037\b/i => '"cp37"');
+
+    # Mac Mappings
+    # predefined in *.ucm; unneeded
+    # define_alias( qr/\bmacIcelandic$/i => '"macIceland"');
+    define_alias( qr/^(?:x[_-])?mac[_-](.*)$/i => '"mac$1"' );
+    # http://rt.cpan.org/Ticket/Display.html?id=36326
+    define_alias( qr/^macintosh$/i => '"MacRoman"' );
+    # https://rt.cpan.org/Ticket/Display.html?id=78125
+    define_alias( qr/^macce$/i => '"MacCentralEurRoman"' );
+    # Ououououou. gone.  They are different!
+    # define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
+
+    # Standardize on the dashed versions.
+    define_alias( qr/\bkoi8[\s\-_]*([ru])$/i => '"koi8-$1"' );
+
+    unless ($Encode::ON_EBCDIC) {
+
+        # for Encode::CN
+        define_alias( qr/\beuc.*cn$/i => '"euc-cn"' );
+        define_alias( qr/\bcn.*euc$/i => '"euc-cn"' );
+
+        # define_alias( qr/\bGB[- ]?(\d+)$/i => '"euc-cn"' )
+        # CP936 doesn't have vendor-addon for GBK, so they're identical.
+        define_alias( qr/^gbk$/i => '"cp936"' );
+
+        # This fixes gb2312 vs. euc-cn confusion, practically
+        define_alias( qr/\bGB[-_ ]?2312(?!-?raw)/i => '"euc-cn"' );
+
+        # for Encode::JP
+        define_alias( qr/\bjis$/i         => '"7bit-jis"' );
+        define_alias( qr/\beuc.*jp$/i     => '"euc-jp"' );
+        define_alias( qr/\bjp.*euc$/i     => '"euc-jp"' );
+        define_alias( qr/\bujis$/i        => '"euc-jp"' );
+        define_alias( qr/\bshift.*jis$/i  => '"shiftjis"' );
+        define_alias( qr/\bsjis$/i        => '"shiftjis"' );
+        define_alias( qr/\bwindows-31j$/i => '"cp932"' );
+
+        # for Encode::KR
+        define_alias( qr/\beuc.*kr$/i => '"euc-kr"' );
+        define_alias( qr/\bkr.*euc$/i => '"euc-kr"' );
+
+        # This fixes ksc5601 vs. euc-kr confusion, practically
+        define_alias( qr/(?:x-)?uhc$/i         => '"cp949"' );
+        define_alias( qr/(?:x-)?windows-949$/i => '"cp949"' );
+        define_alias( qr/\bks_c_5601-1987$/i   => '"cp949"' );
+
+        # for Encode::TW
+        define_alias( qr/\bbig-?5$/i              => '"big5-eten"' );
+        define_alias( qr/\bbig5-?et(?:en)?$/i     => '"big5-eten"' );
+        define_alias( qr/\btca[-_]?big5$/i        => '"big5-eten"' );
+        define_alias( qr/\bbig5-?hk(?:scs)?$/i    => '"big5-hkscs"' );
+        define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
+    }
+
+    # https://github.com/dankogai/p5-encode/issues/37
+    define_alias(qr/cp65000/i => '"UTF-7"');
+    define_alias(qr/cp65001/i => '"utf-8-strict"');
+
+    # utf8 is blessed :)
+    define_alias( qr/\bUTF-8$/i => '"utf-8-strict"' );
+
+    # At last, Map white space and _ to '-'
+    define_alias( qr/^([^\s_]+)[\s_]+([^\s_]*)$/i => '"$1-$2"' );
+}
+
+1;
+__END__
+
+# TODO: HP-UX '8' encodings arabic8 greek8 hebrew8 kana8 thai8 turkish8
+# TODO: HP-UX '15' encodings japanese15 korean15 roi15
+# TODO: Cyrillic encoding ISO-IR-111 (useful?)
+# TODO: Armenian encoding ARMSCII-8
+# TODO: Hebrew encoding ISO-8859-8-1
+# TODO: Thai encoding TCVN
+# TODO: Vietnamese encodings VPS
+# TODO: Mac Asian+African encodings: Arabic Armenian Bengali Burmese
+#       ChineseSimp ChineseTrad Devanagari Ethiopic ExtArabic
+#       Farsi Georgian Gujarati Gurmukhi Hebrew Japanese
+#       Kannada Khmer Korean Laotian Malayalam Mongolian
+#       Oriya Sinhalese Symbol Tamil Telugu Tibetan Vietnamese
+
+
+package Encode::Byte;
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+package Encode::Encoding;
+
+# Base class for classes which implement encodings
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+our @CARP_NOT = qw(Encode Encode::Encoder);
+
+use Carp ();
+use Encode ();
+use Encode::MIME::Name;
+
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+
+sub Define {
+    my $obj       = shift;
+    my $canonical = shift;
+    $obj = bless { Name => $canonical }, $obj unless ref $obj;
+
+    # warn "$canonical => $obj\n";
+    Encode::define_encoding( $obj, $canonical, @_ );
+}
+
+sub name { return shift->{'Name'} }
+
+sub mime_name {
+    return Encode::MIME::Name::get_mime_name(shift->name);
+}
+
+sub renew {
+    my $self = shift;
+    my $clone = bless {%$self} => ref($self);
+    $clone->{renewed}++;    # so the caller can see it
+    DEBUG and warn $clone->{renewed};
+    return $clone;
+}
+
+sub renewed { return $_[0]->{renewed} || 0 }
+
+*new_sequence = \&renew;
+
+sub needs_lines { 0 }
+
+sub perlio_ok {
+    return eval { require PerlIO::encoding } ? 1 : 0;
+}
+
+# (Temporary|legacy) methods
+
+sub toUnicode   { shift->decode(@_) }
+sub fromUnicode { shift->encode(@_) }
+
+#
+# Needs to be overloaded or just croak
+#
+
+sub encode {
+    my $obj = shift;
+    my $class = ref($obj) ? ref($obj) : $obj;
+    Carp::croak( $class . "->encode() not defined!" );
+}
+
+sub decode {
+    my $obj = shift;
+    my $class = ref($obj) ? ref($obj) : $obj;
+    Carp::croak( $class . "->encode() not defined!" );
+}
+
+sub DESTROY { }
+
+1;
+__END__
+
+#
+# Demand-load module list
+#
+package Encode::Config;
+our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use strict;
+use warnings;
+
+our %ExtModule = (
+
+    # Encode::Byte
+    #iso-8859-1 is in Encode.pm itself
+    'iso-8859-2'            => 'Encode::Byte',
+    'iso-8859-3'            => 'Encode::Byte',
+    'iso-8859-4'            => 'Encode::Byte',
+    'iso-8859-5'            => 'Encode::Byte',
+    'iso-8859-6'            => 'Encode::Byte',
+    'iso-8859-7'            => 'Encode::Byte',
+    'iso-8859-8'            => 'Encode::Byte',
+    'iso-8859-9'            => 'Encode::Byte',
+    'iso-8859-10'           => 'Encode::Byte',
+    'iso-8859-11'           => 'Encode::Byte',
+    'iso-8859-13'           => 'Encode::Byte',
+    'iso-8859-14'           => 'Encode::Byte',
+    'iso-8859-15'           => 'Encode::Byte',
+    'iso-8859-16'           => 'Encode::Byte',
+    'koi8-f'                => 'Encode::Byte',
+    'koi8-r'                => 'Encode::Byte',
+    'koi8-u'                => 'Encode::Byte',
+    'viscii'                => 'Encode::Byte',
+    'cp424'                 => 'Encode::Byte',
+    'cp437'                 => 'Encode::Byte',
+    'cp737'                 => 'Encode::Byte',
+    'cp775'                 => 'Encode::Byte',
+    'cp850'                 => 'Encode::Byte',
+    'cp852'                 => 'Encode::Byte',
+    'cp855'                 => 'Encode::Byte',
+    'cp856'                 => 'Encode::Byte',
+    'cp857'                 => 'Encode::Byte',
+    'cp858'                 => 'Encode::Byte',
+    'cp860'                 => 'Encode::Byte',
+    'cp861'                 => 'Encode::Byte',
+    'cp862'                 => 'Encode::Byte',
+    'cp863'                 => 'Encode::Byte',
+    'cp864'                 => 'Encode::Byte',
+    'cp865'                 => 'Encode::Byte',
+    'cp866'                 => 'Encode::Byte',
+    'cp869'                 => 'Encode::Byte',
+    'cp874'                 => 'Encode::Byte',
+    'cp1006'                => 'Encode::Byte',
+    'cp1250'                => 'Encode::Byte',
+    'cp1251'                => 'Encode::Byte',
+    'cp1252'                => 'Encode::Byte',
+    'cp1253'                => 'Encode::Byte',
+    'cp1254'                => 'Encode::Byte',
+    'cp1255'                => 'Encode::Byte',
+    'cp1256'                => 'Encode::Byte',
+    'cp1257'                => 'Encode::Byte',
+    'cp1258'                => 'Encode::Byte',
+    'AdobeStandardEncoding' => 'Encode::Byte',
+    'MacArabic'             => 'Encode::Byte',
+    'MacCentralEurRoman'    => 'Encode::Byte',
+    'MacCroatian'           => 'Encode::Byte',
+    'MacCyrillic'           => 'Encode::Byte',
+    'MacFarsi'              => 'Encode::Byte',
+    'MacGreek'              => 'Encode::Byte',
+    'MacHebrew'             => 'Encode::Byte',
+    'MacIcelandic'          => 'Encode::Byte',
+    'MacRoman'              => 'Encode::Byte',
+    'MacRomanian'           => 'Encode::Byte',
+    'MacRumanian'           => 'Encode::Byte',
+    'MacSami'               => 'Encode::Byte',
+    'MacThai'               => 'Encode::Byte',
+    'MacTurkish'            => 'Encode::Byte',
+    'MacUkrainian'          => 'Encode::Byte',
+    'nextstep'              => 'Encode::Byte',
+    'hp-roman8'             => 'Encode::Byte',
+    #'gsm0338'               => 'Encode::Byte',
+    'gsm0338'               => 'Encode::GSM0338',
+
+    # Encode::EBCDIC
+    'cp37'     => 'Encode::EBCDIC',
+    'cp500'    => 'Encode::EBCDIC',
+    'cp875'    => 'Encode::EBCDIC',
+    'cp1026'   => 'Encode::EBCDIC',
+    'cp1047'   => 'Encode::EBCDIC',
+    'posix-bc' => 'Encode::EBCDIC',
+
+    # Encode::Symbol
+    'dingbats'      => 'Encode::Symbol',
+    'symbol'        => 'Encode::Symbol',
+    'AdobeSymbol'   => 'Encode::Symbol',
+    'AdobeZdingbat' => 'Encode::Symbol',
+    'MacDingbats'   => 'Encode::Symbol',
+    'MacSymbol'     => 'Encode::Symbol',
+
+    # Encode::Unicode
+    'UCS-2BE'  => 'Encode::Unicode',
+    'UCS-2LE'  => 'Encode::Unicode',
+    'UTF-16'   => 'Encode::Unicode',
+    'UTF-16BE' => 'Encode::Unicode',
+    'UTF-16LE' => 'Encode::Unicode',
+    'UTF-32'   => 'Encode::Unicode',
+    'UTF-32BE' => 'Encode::Unicode',
+    'UTF-32LE' => 'Encode::Unicode',
+    'UTF-7'    => 'Encode::Unicode::UTF7',
+);
+
+unless ( ord("A") == 193 ) {
+    %ExtModule = (
+        %ExtModule,
+        'euc-cn'         => 'Encode::CN',
+        'gb12345-raw'    => 'Encode::CN',
+        'gb2312-raw'     => 'Encode::CN',
+        'hz'             => 'Encode::CN',
+        'iso-ir-165'     => 'Encode::CN',
+        'cp936'          => 'Encode::CN',
+        'MacChineseSimp' => 'Encode::CN',
+
+        '7bit-jis'      => 'Encode::JP',
+        'euc-jp'        => 'Encode::JP',
+        'iso-2022-jp'   => 'Encode::JP',
+        'iso-2022-jp-1' => 'Encode::JP',
+        'jis0201-raw'   => 'Encode::JP',
+        'jis0208-raw'   => 'Encode::JP',
+        'jis0212-raw'   => 'Encode::JP',
+        'cp932'         => 'Encode::JP',
+        'MacJapanese'   => 'Encode::JP',
+        'shiftjis'      => 'Encode::JP',
+
+        'euc-kr'      => 'Encode::KR',
+        'iso-2022-kr' => 'Encode::KR',
+        'johab'       => 'Encode::KR',
+        'ksc5601-raw' => 'Encode::KR',
+        'cp949'       => 'Encode::KR',
+        'MacKorean'   => 'Encode::KR',
+
+        'big5-eten'      => 'Encode::TW',
+        'big5-hkscs'     => 'Encode::TW',
+        'cp950'          => 'Encode::TW',
+        'MacChineseTrad' => 'Encode::TW',
+
+        #'big5plus'           => 'Encode::HanExtra',
+        #'euc-tw'             => 'Encode::HanExtra',
+        #'gb18030'            => 'Encode::HanExtra',
+
+        'MIME-Header' => 'Encode::MIME::Header',
+        'MIME-B'      => 'Encode::MIME::Header',
+        'MIME-Q'      => 'Encode::MIME::Header',
+
+        'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP',
+    );
+}
+
+#
+# Why not export ? to keep ConfigLocal Happy!
+#
+while ( my ( $enc, $mod ) = each %ExtModule ) {
+    $Encode::ExtModule{$enc} = $mod;
+}
+
+1;
+__END__
+
+package Encode::JP::JIS7;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+for my $name ( '7bit-jis', 'iso-2022-jp', 'iso-2022-jp-1' ) {
+    my $h2z     = ( $name eq '7bit-jis' )    ? 0 : 1;
+    my $jis0212 = ( $name eq 'iso-2022-jp' ) ? 0 : 1;
+
+    my $obj = bless {
+        Name    => $name,
+        h2z     => $h2z,
+        jis0212 => $jis0212,
+    } => __PACKAGE__;
+    Encode::define_encoding($obj, $name);
+}
+
+use parent qw(Encode::Encoding);
+
+# we override this to 1 so PerlIO works
+sub needs_lines { 1 }
+
+use Encode::CJKConstants qw(:all);
+
+#
+# decode is identical for all 2022 variants
+#
+
+sub decode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+    my $residue = '';
+    if ($chk) {
+        $str =~ s/([^\x00-\x7f].*)$//so and $residue = $1;
+    }
+    $residue .= jis_euc( \$str );
+    $_[1] = $residue if $chk;
+    return Encode::decode( 'euc-jp', $str, FB_PERLQQ );
+}
+
+#
+# encode is different
+#
+
+sub encode($$;$) {
+    require Encode::JP::H2Z;
+    my ( $obj, $utf8, $chk ) = @_;
+    return undef unless defined $utf8;
+
+    # empty the input string in the stack so perlio is ok
+    $_[1] = '' if $chk;
+    my ( $h2z, $jis0212 ) = @$obj{qw(h2z jis0212)};
+    my $octet = Encode::encode( 'euc-jp', $utf8, $chk || 0 );
+    $h2z and &Encode::JP::H2Z::h2z( \$octet );
+    euc_jis( \$octet, $jis0212 );
+    return $octet;
+}
+
+#
+# cat_decode
+#
+my $re_scan_jis_g = qr{
+   \G ( ($RE{JIS_0212}) |  $RE{JIS_0208}  |
+        ($RE{ISO_ASC})  | ($RE{JIS_KANA}) | )
+      ([^\e]*)
+}x;
+
+sub cat_decode {    # ($obj, $dst, $src, $pos, $trm, $chk)
+    my ( $obj, undef, undef, $pos, $trm ) = @_;    # currently ignores $chk
+    my ( $rdst, $rsrc, $rpos ) = \@_[ 1, 2, 3 ];
+    local ${^ENCODING};
+    use bytes;
+    my $opos = pos($$rsrc);
+    pos($$rsrc) = $pos;
+    while ( $$rsrc =~ /$re_scan_jis_g/gc ) {
+        my ( $esc, $esc_0212, $esc_asc, $esc_kana, $chunk ) =
+          ( $1, $2, $3, $4, $5 );
+
+        unless ($chunk) { $esc or last; next; }
+
+        if ( $esc && !$esc_asc ) {
+            $chunk =~ tr/\x21-\x7e/\xa1-\xfe/;
+            if ($esc_kana) {
+                $chunk =~ s/([\xa1-\xdf])/\x8e$1/og;
+            }
+            elsif ($esc_0212) {
+                $chunk =~ s/([\xa1-\xfe][\xa1-\xfe])/\x8f$1/og;
+            }
+            $chunk = Encode::decode( 'euc-jp', $chunk, 0 );
+        }
+        elsif ( ( my $npos = index( $chunk, $trm ) ) >= 0 ) {
+            $$rdst .= substr( $chunk, 0, $npos + length($trm) );
+            $$rpos += length($esc) + $npos + length($trm);
+            pos($$rsrc) = $opos;
+            return 1;
+        }
+        $$rdst .= $chunk;
+        $$rpos = pos($$rsrc);
+    }
+    $$rpos = pos($$rsrc);
+    pos($$rsrc) = $opos;
+    return '';
+}
+
+# JIS<->EUC
+my $re_scan_jis = qr{
+   (?:($RE{JIS_0212})|$RE{JIS_0208}|($RE{ISO_ASC})|($RE{JIS_KANA}))([^\e]*)
+}x;
+
+sub jis_euc {
+    local ${^ENCODING};
+    my $r_str = shift;
+    $$r_str =~ s($re_scan_jis)
+    {
+    my ($esc_0212, $esc_asc, $esc_kana, $chunk) =
+       ($1, $2, $3, $4);
+    if (!$esc_asc) {
+        $chunk =~ tr/\x21-\x7e/\xa1-\xfe/;
+        if ($esc_kana) {
+        $chunk =~ s/([\xa1-\xdf])/\x8e$1/og;
+        }
+        elsif ($esc_0212) {
+        $chunk =~ s/([\xa1-\xfe][\xa1-\xfe])/\x8f$1/og;
+        }
+    }
+    $chunk;
+    }geox;
+    my ($residue) = ( $$r_str =~ s/(\e.*)$//so );
+    return $residue;
+}
+
+sub euc_jis {
+    no warnings qw(uninitialized);
+    local ${^ENCODING};
+    my $r_str   = shift;
+    my $jis0212 = shift;
+    $$r_str =~ s{
+    ((?:$RE{EUC_C})+|(?:$RE{EUC_KANA})+|(?:$RE{EUC_0212})+)
+    }{
+        my $chunk = $1;
+        my $esc =
+        ( $chunk =~ tr/\x8E//d ) ? $ESC{KANA} :
+            ( $chunk =~ tr/\x8F//d ) ? $ESC{JIS_0212} :
+            $ESC{JIS_0208};
+        if ($esc eq $ESC{JIS_0212} && !$jis0212){
+        # fallback to '?'
+        $chunk =~ tr/\xA1-\xFE/\x3F/;
+        }else{
+        $chunk =~ tr/\xA1-\xFE/\x21-\x7E/;
+        }
+        $esc . $chunk . $ESC{ASC};
+    }geox;
+    $$r_str =~ s/\Q$ESC{ASC}\E
+        (\Q$ESC{KANA}\E|\Q$ESC{JIS_0212}\E|\Q$ESC{JIS_0208}\E)/$1/gox;
+    $$r_str;
+}
+
+1;
+__END__
+
+
+#
+# $Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $
+#
+
+package Encode::JP::H2Z;
+
+use strict;
+use warnings;
+
+our $RCSID = q$Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode::CJKConstants qw(:all);
+
+use vars qw(%_D2Z  $_PAT_D2Z
+  %_Z2D  $_PAT_Z2D
+  %_H2Z  $_PAT_H2Z
+  %_Z2H  $_PAT_Z2H);
+
+%_H2Z = (
+    "\x8e\xa1" => "\xa1\xa3",    #¡£
+    "\x8e\xa2" => "\xa1\xd6",    #¡Ö
+    "\x8e\xa3" => "\xa1\xd7",    #¡×
+    "\x8e\xa4" => "\xa1\xa2",    #¡¢
+    "\x8e\xa5" => "\xa1\xa6",    #¡¦
+    "\x8e\xa6" => "\xa5\xf2",    #¥ò
+    "\x8e\xa7" => "\xa5\xa1",    #¥¡
+    "\x8e\xa8" => "\xa5\xa3",    #¥£
+    "\x8e\xa9" => "\xa5\xa5",    #¥¥
+    "\x8e\xaa" => "\xa5\xa7",    #¥§
+    "\x8e\xab" => "\xa5\xa9",    #¥©
+    "\x8e\xac" => "\xa5\xe3",    #¥ã
+    "\x8e\xad" => "\xa5\xe5",    #¥å
+    "\x8e\xae" => "\xa5\xe7",    #¥ç
+    "\x8e\xaf" => "\xa5\xc3",    #¥Ã
+    "\x8e\xb0" => "\xa1\xbc",    #¡¼
+    "\x8e\xb1" => "\xa5\xa2",    #¥¢
+    "\x8e\xb2" => "\xa5\xa4",    #¥¤
+    "\x8e\xb3" => "\xa5\xa6",    #¥¦
+    "\x8e\xb4" => "\xa5\xa8",    #¥¨
+    "\x8e\xb5" => "\xa5\xaa",    #¥ª
+    "\x8e\xb6" => "\xa5\xab",    #¥«
+    "\x8e\xb7" => "\xa5\xad",    #¥­
+    "\x8e\xb8" => "\xa5\xaf",    #¥¯
+    "\x8e\xb9" => "\xa5\xb1",    #¥±
+    "\x8e\xba" => "\xa5\xb3",    #¥³
+    "\x8e\xbb" => "\xa5\xb5",    #¥µ
+    "\x8e\xbc" => "\xa5\xb7",    #¥·
+    "\x8e\xbd" => "\xa5\xb9",    #¥¹
+    "\x8e\xbe" => "\xa5\xbb",    #¥»
+    "\x8e\xbf" => "\xa5\xbd",    #¥½
+    "\x8e\xc0" => "\xa5\xbf",    #¥¿
+    "\x8e\xc1" => "\xa5\xc1",    #¥Á
+    "\x8e\xc2" => "\xa5\xc4",    #¥Ä
+    "\x8e\xc3" => "\xa5\xc6",    #¥Æ
+    "\x8e\xc4" => "\xa5\xc8",    #¥È
+    "\x8e\xc5" => "\xa5\xca",    #¥Ê
+    "\x8e\xc6" => "\xa5\xcb",    #¥Ë
+    "\x8e\xc7" => "\xa5\xcc",    #¥Ì
+    "\x8e\xc8" => "\xa5\xcd",    #¥Í
+    "\x8e\xc9" => "\xa5\xce",    #¥Î
+    "\x8e\xca" => "\xa5\xcf",    #¥Ï
+    "\x8e\xcb" => "\xa5\xd2",    #¥Ò
+    "\x8e\xcc" => "\xa5\xd5",    #¥Õ
+    "\x8e\xcd" => "\xa5\xd8",    #¥Ø
+    "\x8e\xce" => "\xa5\xdb",    #¥Û
+    "\x8e\xcf" => "\xa5\xde",    #¥Þ
+    "\x8e\xd0" => "\xa5\xdf",    #¥ß
+    "\x8e\xd1" => "\xa5\xe0",    #¥à
+    "\x8e\xd2" => "\xa5\xe1",    #¥á
+    "\x8e\xd3" => "\xa5\xe2",    #¥â
+    "\x8e\xd4" => "\xa5\xe4",    #¥ä
+    "\x8e\xd5" => "\xa5\xe6",    #¥æ
+    "\x8e\xd6" => "\xa5\xe8",    #¥è
+    "\x8e\xd7" => "\xa5\xe9",    #¥é
+    "\x8e\xd8" => "\xa5\xea",    #¥ê
+    "\x8e\xd9" => "\xa5\xeb",    #¥ë
+    "\x8e\xda" => "\xa5\xec",    #¥ì
+    "\x8e\xdb" => "\xa5\xed",    #¥í
+    "\x8e\xdc" => "\xa5\xef",    #¥ï
+    "\x8e\xdd" => "\xa5\xf3",    #¥ó
+    "\x8e\xde" => "\xa1\xab",    #¡«
+    "\x8e\xdf" => "\xa1\xac",    #¡¬
+);
+
+%_D2Z = (
+    "\x8e\xb6\x8e\xde" => "\xa5\xac",    #¥¬
+    "\x8e\xb7\x8e\xde" => "\xa5\xae",    #¥®
+    "\x8e\xb8\x8e\xde" => "\xa5\xb0",    #¥°
+    "\x8e\xb9\x8e\xde" => "\xa5\xb2",    #¥²
+    "\x8e\xba\x8e\xde" => "\xa5\xb4",    #¥´
+    "\x8e\xbb\x8e\xde" => "\xa5\xb6",    #¥¶
+    "\x8e\xbc\x8e\xde" => "\xa5\xb8",    #¥¸
+    "\x8e\xbd\x8e\xde" => "\xa5\xba",    #¥º
+    "\x8e\xbe\x8e\xde" => "\xa5\xbc",    #¥¼
+    "\x8e\xbf\x8e\xde" => "\xa5\xbe",    #¥¾
+    "\x8e\xc0\x8e\xde" => "\xa5\xc0",    #¥À
+    "\x8e\xc1\x8e\xde" => "\xa5\xc2",    #¥Â
+    "\x8e\xc2\x8e\xde" => "\xa5\xc5",    #¥Å
+    "\x8e\xc3\x8e\xde" => "\xa5\xc7",    #¥Ç
+    "\x8e\xc4\x8e\xde" => "\xa5\xc9",    #¥É
+    "\x8e\xca\x8e\xde" => "\xa5\xd0",    #¥Ð
+    "\x8e\xcb\x8e\xde" => "\xa5\xd3",    #¥Ó
+    "\x8e\xcc\x8e\xde" => "\xa5\xd6",    #¥Ö
+    "\x8e\xcd\x8e\xde" => "\xa5\xd9",    #¥Ù
+    "\x8e\xce\x8e\xde" => "\xa5\xdc",    #¥Ü
+    "\x8e\xca\x8e\xdf" => "\xa5\xd1",    #¥Ñ
+    "\x8e\xcb\x8e\xdf" => "\xa5\xd4",    #¥Ô
+    "\x8e\xcc\x8e\xdf" => "\xa5\xd7",    #¥×
+    "\x8e\xcd\x8e\xdf" => "\xa5\xda",    #¥Ú
+    "\x8e\xce\x8e\xdf" => "\xa5\xdd",    #¥Ý
+    "\x8e\xb3\x8e\xde" => "\xa5\xf4",    #¥ô
+);
+
+# init only once;
+
+#$_PAT_D2Z = join("|", keys %_D2Z);
+#$_PAT_H2Z = join("|", keys %_H2Z);
+
+%_Z2H = reverse %_H2Z;
+%_Z2D = reverse %_D2Z;
+
+#$_PAT_Z2H    = join("|", keys %_Z2H);
+#$_PAT_Z2D    = join("|", keys %_Z2D);
+
+sub h2z {
+    no warnings qw(uninitialized);
+    my $r_str          = shift;
+    my ($keep_dakuten) = @_;
+    my $n              = 0;
+    unless ($keep_dakuten) {
+        $n = (
+            $$r_str =~ s(
+               ($RE{EUC_KANA}
+                (?:\x8e[\xde\xdf])?)
+               ){
+          my $str = $1;
+          $_D2Z{$str} || $_H2Z{$str} || 
+              # in case dakuten and handakuten are side-by-side!
+              $_H2Z{substr($str,0,2)} . $_H2Z{substr($str,2,2)};
+          }eogx
+        );
+    }
+    else {
+        $n = (
+            $$r_str =~ s(
+               ($RE{EUC_KANA})
+               ){
+          $_H2Z{$1};
+          }eogx
+        );
+    }
+    $n;
+}
+
+sub z2h {
+    my $r_str = shift;
+    my $n     = (
+        $$r_str =~ s(
+              ($RE{EUC_C}|$RE{EUC_0212}|$RE{EUC_KANA})
+              ){
+         $_Z2D{$1} || $_Z2H{$1} || $1;
+         }eogx
+    );
+    $n;
+}
+
+1;
+__END__
+
+
+#
+# $Id: UTF7.pm,v 2.10 2017/06/10 17:23:50 dankogai Exp $
+#
+package Encode::Unicode::UTF7;
+use strict;
+use warnings;
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('UTF-7');
+our $VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use MIME::Base64;
+use Encode qw(find_encoding);
+
+#
+# Algorithms taken from Unicode::String by Gisle Aas
+#
+
+our $OPTIONAL_DIRECT_CHARS = 1;
+my $specials = quotemeta "\'(),-./:?";
+$OPTIONAL_DIRECT_CHARS
+  and $specials .= quotemeta "!\"#$%&*;<=>@[]^_`{|}";
+
+# \s will not work because it matches U+3000 DEOGRAPHIC SPACE
+# We use qr/[\n\r\t\ ] instead
+my $re_asis    = qr/(?:[\n\r\t\ A-Za-z0-9$specials])/;
+my $re_encoded = qr/(?:[^\n\r\t\ A-Za-z0-9$specials])/;
+my $e_utf16    = find_encoding("UTF-16BE");
+
+sub needs_lines { 1 }
+
+sub encode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+    my $len = length($str);
+    pos($str) = 0;
+    my $bytes = substr($str, 0, 0); # to propagate taintedness
+    while ( pos($str) < $len ) {
+        if ( $str =~ /\G($re_asis+)/ogc ) {
+	    my $octets = $1;
+	    utf8::downgrade($octets);
+	    $bytes .= $octets;
+        }
+        elsif ( $str =~ /\G($re_encoded+)/ogsc ) {
+            if ( $1 eq "+" ) {
+                $bytes .= "+-";
+            }
+            else {
+                my $s = $1;
+                my $base64 = encode_base64( $e_utf16->encode($s), '' );
+                $base64 =~ s/=+$//;
+                $bytes .= "+$base64-";
+            }
+        }
+        else {
+            die "This should not happen! (pos=" . pos($str) . ")";
+        }
+    }
+    $_[1] = '' if $chk;
+    return $bytes;
+}
+
+sub decode($$;$) {
+    use re 'taint';
+    my ( $obj, $bytes, $chk ) = @_;
+    return undef unless defined $bytes;
+    my $len = length($bytes);
+    my $str = substr($bytes, 0, 0); # to propagate taintedness;
+    pos($bytes) = 0;
+    no warnings 'uninitialized';
+    while ( pos($bytes) < $len ) {
+        if ( $bytes =~ /\G([^+]+)/ogc ) {
+            $str .= $1;
+        }
+        elsif ( $bytes =~ /\G\+-/ogc ) {
+            $str .= "+";
+        }
+        elsif ( $bytes =~ /\G\+([A-Za-z0-9+\/]+)-?/ogsc ) {
+            my $base64 = $1;
+            my $pad    = length($base64) % 4;
+            $base64 .= "=" x ( 4 - $pad ) if $pad;
+            $str .= $e_utf16->decode( decode_base64($base64) );
+        }
+        elsif ( $bytes =~ /\G\+/ogc ) {
+            $^W and warn "Bad UTF7 data escape";
+            $str .= "+";
+        }
+        else {
+            die "This should not happen " . pos($bytes);
+        }
+    }
+    $_[1] = '' if $chk;
+    return $str;
+}
+1;
+__END__
+
+package Encode::KR::2022_KR;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('iso-2022-kr');
+
+sub needs_lines { 1 }
+
+sub perlio_ok {
+    return 0;    # for the time being
+}
+
+sub decode {
+    my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+    my $res     = $str;
+    my $residue = iso_euc( \$res );
+
+    # This is for PerlIO
+    $_[1] = $residue if $chk;
+    return Encode::decode( 'euc-kr', $res, FB_PERLQQ );
+}
+
+sub encode {
+    my ( $obj, $utf8, $chk ) = @_;
+    return undef unless defined $utf8;
+
+    # empty the input string in the stack so perlio is ok
+    $_[1] = '' if $chk;
+    my $octet = Encode::encode( 'euc-kr', $utf8, FB_PERLQQ );
+    euc_iso( \$octet );
+    return $octet;
+}
+
+use Encode::CJKConstants qw(:all);
+
+# ISO<->EUC
+
+sub iso_euc {
+    my $r_str = shift;
+    $$r_str =~ s/$RE{'2022_KR'}//gox;    # remove the designator
+    $$r_str =~ s{                      # replace characters in GL
+     \x0e                              # between SO(\x0e) and SI(\x0f)
+     ([^\x0f]*)                        # with characters in GR
+     \x0f
+        }
+    {
+                        my $out= $1;
+      $out =~ tr/\x21-\x7e/\xa1-\xfe/;
+      $out;
+    }geox;
+    my ($residue) = ( $$r_str =~ s/(\e.*)$//so );
+    return $residue;
+}
+
+sub euc_iso {
+    no warnings qw(uninitialized);
+    my $r_str = shift;
+    substr( $$r_str, 0, 0 ) =
+      $ESC{'2022_KR'};    # put the designator at the beg.
+    $$r_str =~
+      s{                         # move KS X 1001 characters in GR to GL
+        ($RE{EUC_C}+)                     # and enclose them with SO and SI
+        }{
+            my $str = $1;
+            $str =~ tr/\xA1-\xFE/\x21-\x7E/;
+            "\x0e" . $str . "\x0f";
+        }geox;
+    $$r_str;
+}
+
+1;
+__END__
+
+package Encode::CN::HZ;
+
+use strict;
+use warnings;
+use utf8 ();
+
+use vars qw($VERSION);
+$VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('hz');
+
+# HZ is a combination of ASCII and escaped GB, so we implement it
+# with the GB2312(raw) encoding here. Cf. RFCs 1842 & 1843.
+
+# not ported for EBCDIC.  Which should be used, "~" or "\x7E"?
+
+sub needs_lines { 1 }
+
+sub decode ($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = substr($str, 0, 0); # to propagate taintedness
+    my $in_ascii = 1;    # default mode is ASCII.
+
+    while ( length $str ) {
+        if ($in_ascii) {    # ASCII mode
+            if ( $str =~ s/^([\x00-\x7D\x7F]+)// ) {    # no '~' => ASCII
+                $ret .= $1;
+
+                # EBCDIC should need ascii2native, but not ported.
+            }
+            elsif ( $str =~ s/^\x7E\x7E// ) {           # escaped tilde
+                $ret .= '~';
+            }
+            elsif ( $str =~ s/^\x7E\cJ// ) {    # '\cJ' == LF in ASCII
+                1;                              # no-op
+            }
+            elsif ( $str =~ s/^\x7E\x7B// ) {    # '~{'
+                $in_ascii = 0;                   # to GB
+            }
+            else {    # encounters an invalid escape, \x80 or greater
+                last;
+            }
+        }
+        else {        # GB mode; the byte ranges are as in RFC 1843.
+            no warnings 'uninitialized';
+            if ( $str =~ s/^((?:[\x21-\x77][\x21-\x7E])+)// ) {
+                my $prefix = $1;
+                $ret .= $GB->decode( $prefix, $chk );
+            }
+            elsif ( $str =~ s/^\x7E\x7D// ) {    # '~}'
+                $in_ascii = 1;
+            }
+            else {                               # invalid
+                last;
+            }
+        }
+    }
+    $_[1] = '' if $chk;    # needs_lines guarantees no partial character
+    return $ret;
+}
+
+sub cat_decode {
+    my ( $obj, undef, $src, $pos, $trm, $chk ) = @_;
+    my ( $rdst, $rsrc, $rpos ) = \@_[ 1 .. 3 ];
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = '';
+    my $in_ascii = 1;      # default mode is ASCII.
+
+    my $ini_pos = pos($$rsrc);
+
+    substr( $src, 0, $pos ) = '';
+
+    my $ini_len = bytes::length($src);
+
+    # $trm is the first of the pair '~~', then 2nd tilde is to be removed.
+    # XXX: Is better C<$src =~ s/^\x7E// or die if ...>?
+    $src =~ s/^\x7E// if $trm eq "\x7E";
+
+    while ( length $src ) {
+        my $now;
+        if ($in_ascii) {    # ASCII mode
+            if ( $src =~ s/^([\x00-\x7D\x7F])// ) {    # no '~' => ASCII
+                $now = $1;
+            }
+            elsif ( $src =~ s/^\x7E\x7E// ) {          # escaped tilde
+                $now = '~';
+            }
+            elsif ( $src =~ s/^\x7E\cJ// ) {    # '\cJ' == LF in ASCII
+                next;
+            }
+            elsif ( $src =~ s/^\x7E\x7B// ) {    # '~{'
+                $in_ascii = 0;                   # to GB
+                next;
+            }
+            else {    # encounters an invalid escape, \x80 or greater
+                last;
+            }
+        }
+        else {        # GB mode; the byte ranges are as in RFC 1843.
+            if ( $src =~ s/^((?:[\x21-\x77][\x21-\x7F])+)// ) {
+                $now = $GB->decode( $1, $chk );
+            }
+            elsif ( $src =~ s/^\x7E\x7D// ) {    # '~}'
+                $in_ascii = 1;
+                next;
+            }
+            else {                               # invalid
+                last;
+            }
+        }
+
+        next if !defined $now;
+
+        $ret .= $now;
+
+        if ( $now eq $trm ) {
+            $$rdst .= $ret;
+            $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);
+            pos($$rsrc) = $ini_pos;
+            return 1;
+        }
+    }
+
+    $$rdst .= $ret;
+    $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);
+    pos($$rsrc) = $ini_pos;
+    return '';    # terminator not found
+}
+
+sub encode($$;$) {
+     my ( $obj, $str, $chk ) = @_;
+    return undef unless defined $str;
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = substr($str, 0, 0); # to propagate taintedness;
+    my $in_ascii = 1;    # default mode is ASCII.
+
+    no warnings 'utf8';  # $str may be malformed UTF8 at the end of a chunk.
+
+    while ( length $str ) {
+        if ( $str =~ s/^([[:ascii:]]+)// ) {
+            my $tmp = $1;
+            $tmp =~ s/~/~~/g;    # escapes tildes
+            if ( !$in_ascii ) {
+                $ret .= "\x7E\x7D";    # '~}'
+                $in_ascii = 1;
+            }
+            $ret .= pack 'a*', $tmp;    # remove UTF8 flag.
+        }
+        elsif ( $str =~ s/(.)// ) {
+            my $s = $1;
+            my $tmp = $GB->encode( $s, $chk || 0 );
+            last if !defined $tmp;
+            if ( length $tmp == 2 ) {    # maybe a valid GB char (XXX)
+                if ($in_ascii) {
+                    $ret .= "\x7E\x7B";    # '~{'
+                    $in_ascii = 0;
+                }
+                $ret .= $tmp;
+            }
+            elsif ( length $tmp ) {        # maybe FALLBACK in ASCII (XXX)
+                if ( !$in_ascii ) {
+                    $ret .= "\x7E\x7D";    # '~}'
+                    $in_ascii = 1;
+                }
+                $ret .= $tmp;
+            }
+        }
+        else {    # if $str is malformed UTF8 *and* if length $str != 0.
+            last;
+        }
+    }
+    $_[1] = $str if $chk;
+
+    # The state at the end of the chunk is discarded, even if in GB mode.
+    # That results in the combination of GB-OUT and GB-IN, i.e. "~}~{".
+    # Parhaps it is harmless, but further investigations may be required...
+
+    if ( !$in_ascii ) {
+        $ret .= "\x7E\x7D";    # '~}'
+        $in_ascii = 1;
+    }
+    utf8::encode($ret); # https://rt.cpan.org/Ticket/Display.html?id=35120
+    return $ret;
+}
+
+1;
+__END__
+
+package Encode::MIME::Header;
+use strict;
+use warnings;
+
+our $VERSION = do { my @r = ( q$Revision: 2.28 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Carp ();
+use Encode ();
+use MIME::Base64 ();
+
+my %seed = (
+    decode_b => 1,       # decodes 'B' encoding ?
+    decode_q => 1,       # decodes 'Q' encoding ?
+    encode   => 'B',     # encode with 'B' or 'Q' ?
+    charset  => 'UTF-8', # encode charset
+    bpl      => 75,      # bytes per line
+);
+
+my @objs;
+
+push @objs, bless {
+    %seed,
+    Name     => 'MIME-Header',
+} => __PACKAGE__;
+
+push @objs, bless {
+    %seed,
+    decode_q => 0,
+    Name     => 'MIME-B',
+} => __PACKAGE__;
+
+push @objs, bless {
+    %seed,
+    decode_b => 0,
+    encode   => 'Q',
+    Name     => 'MIME-Q',
+} => __PACKAGE__;
+
+Encode::define_encoding($_, $_->{Name}) foreach @objs;
+
+use parent qw(Encode::Encoding);
+
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+# RFC 2047 and RFC 2231 grammar
+my $re_charset = qr/[!"#\$%&'+\-0-9A-Z\\\^_`a-z\{\|\}~]+/;
+my $re_language = qr/[A-Za-z]{1,8}(?:-[0-9A-Za-z]{1,8})*/;
+my $re_encoding = qr/[QqBb]/;
+my $re_encoded_text = qr/[^\?]*/;
+my $re_encoded_word = qr/=\?$re_charset(?:\*$re_language)?\?$re_encoding\?$re_encoded_text\?=/;
+my $re_capture_encoded_word = qr/=\?($re_charset)((?:\*$re_language)?)\?($re_encoding\?$re_encoded_text)\?=/;
+my $re_capture_encoded_word_split = qr/=\?($re_charset)((?:\*$re_language)?)\?($re_encoding)\?($re_encoded_text)\?=/;
+
+# in strict mode check also for valid base64 characters and also for valid quoted printable codes
+my $re_encoding_strict_b = qr/[Bb]/;
+my $re_encoding_strict_q = qr/[Qq]/;
+my $re_encoded_text_strict_b = qr/[0-9A-Za-z\+\/]*={0,2}/;
+my $re_encoded_text_strict_q = qr/(?:[\x21-\x3C\x3E\x40-\x7E]|=[0-9A-Fa-f]{2})*/; # NOTE: first part are printable US-ASCII except ?, =, SPACE and TAB
+my $re_encoded_word_strict = qr/=\?$re_charset(?:\*$re_language)?\?(?:$re_encoding_strict_b\?$re_encoded_text_strict_b|$re_encoding_strict_q\?$re_encoded_text_strict_q)\?=/;
+my $re_capture_encoded_word_strict = qr/=\?($re_charset)((?:\*$re_language)?)\?($re_encoding_strict_b\?$re_encoded_text_strict_b|$re_encoding_strict_q\?$re_encoded_text_strict_q)\?=/;
+
+my $re_newline = qr/(?:\r\n|[\r\n])/;
+
+# in strict mode encoded words must be always separated by spaces or tabs (or folded newline)
+# except in comments when separator between words and comment round brackets can be omitted
+my $re_word_begin_strict = qr/(?:(?:[ \t]|\A)\(?|(?:[^\\]|\A)\)\()/;
+my $re_word_sep_strict = qr/(?:$re_newline?[ \t])+/;
+my $re_word_end_strict = qr/(?:\)\(|\)?(?:$re_newline?[ \t]|\z))/;
+
+my $re_match = qr/()((?:$re_encoded_word\s*)*$re_encoded_word)()/;
+my $re_match_strict = qr/($re_word_begin_strict)((?:$re_encoded_word_strict$re_word_sep_strict)*$re_encoded_word_strict)(?=$re_word_end_strict)/;
+
+my $re_capture = qr/$re_capture_encoded_word(?:\s*)?/;
+my $re_capture_strict = qr/$re_capture_encoded_word_strict$re_word_sep_strict?/;
+
+our $STRICT_DECODE = 0;
+
+sub decode($$;$) {
+    my ($obj, $str, $chk) = @_;
+    return undef unless defined $str;
+
+    my $re_match_decode = $STRICT_DECODE ? $re_match_strict : $re_match;
+    my $re_capture_decode = $STRICT_DECODE ? $re_capture_strict : $re_capture;
+
+    my $stop = 0;
+    my $output = substr($str, 0, 0); # to propagate taintedness
+
+    # decode each line separately, match whole continuous folded line at one call
+    1 while not $stop and $str =~ s{^((?:[^\r\n]*(?:$re_newline[ \t])?)*)($re_newline)?}{
+
+        my $line = $1;
+        my $sep = defined $2 ? $2 : '';
+
+        $stop = 1 unless length($line) or length($sep);
+
+        # NOTE: this code partially could break $chk support
+        # in non strict mode concat consecutive encoded mime words with same charset, language and encoding
+        # fixes breaking inside multi-byte characters
+        1 while not $STRICT_DECODE and $line =~ s/$re_capture_encoded_word_split\s*=\?\1\2\?\3\?($re_encoded_text)\?=/=\?$1$2\?$3\?$4$5\?=/so;
+
+        # process sequence of encoded MIME words at once
+        1 while not $stop and $line =~ s{^(.*?)$re_match_decode}{
+
+            my $begin = $1 . $2;
+            my $words = $3;
+
+            $begin =~ tr/\r\n//d;
+            $output .= $begin;
+
+            # decode one MIME word
+            1 while not $stop and $words =~ s{^(.*?)($re_capture_decode)}{
+
+                $output .= $1;
+                my $orig = $2;
+                my $charset = $3;
+                my ($mime_enc, $text) = split /\?/, $5;
+
+                $text =~ tr/\r\n//d;
+
+                my $enc = Encode::find_mime_encoding($charset);
+
+                # in non strict mode allow also perl encoding aliases
+                if ( not defined $enc and not $STRICT_DECODE ) {
+                    # make sure that decoded string will be always strict UTF-8
+                    $charset = 'UTF-8' if lc($charset) eq 'utf8';
+                    $enc = Encode::find_encoding($charset);
+                }
+
+                if ( not defined $enc ) {
+                    Carp::croak qq(Unknown charset "$charset") if not ref $chk and $chk and $chk & Encode::DIE_ON_ERR;
+                    Carp::carp qq(Unknown charset "$charset") if not ref $chk and $chk and $chk & Encode::WARN_ON_ERR;
+                    $stop = 1 if not ref $chk and $chk and $chk & Encode::RETURN_ON_ERR;
+                    $output .= ($output =~ /(?:\A|[ \t])$/ ? '' : ' ') . $orig unless $stop; # $orig mime word is separated by whitespace
+                    $stop ? $orig : '';
+                } else {
+                    if ( uc($mime_enc) eq 'B' and $obj->{decode_b} ) {
+                        my $decoded = _decode_b($enc, $text, $chk);
+                        $stop = 1 if not defined $decoded and not ref $chk and $chk and $chk & Encode::RETURN_ON_ERR;
+                        $output .= (defined $decoded ? $decoded : $text) unless $stop;
+                        $stop ? $orig : '';
+                    } elsif ( uc($mime_enc) eq 'Q' and $obj->{decode_q} ) {
+                        my $decoded = _decode_q($enc, $text, $chk);
+                        $stop = 1 if not defined $decoded and not ref $chk and $chk and $chk & Encode::RETURN_ON_ERR;
+                        $output .= (defined $decoded ? $decoded : $text) unless $stop;
+                        $stop ? $orig : '';
+                    } else {
+                        Carp::croak qq(MIME "$mime_enc" unsupported) if not ref $chk and $chk and $chk & Encode::DIE_ON_ERR;
+                        Carp::carp qq(MIME "$mime_enc" unsupported) if not ref $chk and $chk and $chk & Encode::WARN_ON_ERR;
+                        $stop = 1 if not ref $chk and $chk and $chk & Encode::RETURN_ON_ERR;
+                        $output .= ($output =~ /(?:\A|[ \t])$/ ? '' : ' ') . $orig unless $stop; # $orig mime word is separated by whitespace
+                        $stop ? $orig : '';
+                    }
+                }
+
+            }se;
+
+            if ( not $stop ) {
+                $output .= $words;
+                $words = '';
+            }
+
+            $words;
+
+        }se;
+
+        if ( not $stop ) {
+            $line =~ tr/\r\n//d;
+            $output .= $line . $sep;
+            $line = '';
+            $sep = '';
+        }
+
+        $line . $sep;
+
+    }se;
+
+    $_[1] = $str if not ref $chk and $chk and !($chk & Encode::LEAVE_SRC);
+    return $output;
+}
+
+sub _decode_b {
+    my ($enc, $text, $chk) = @_;
+    # MIME::Base64::decode ignores everything after a '=' padding character
+    # in non strict mode split string after each sequence of padding characters and decode each substring
+    my $octets = $STRICT_DECODE ?
+        MIME::Base64::decode($text) :
+        join('', map { MIME::Base64::decode($_) } split /(?<==)(?=[^=])/, $text);
+    return _decode_octets($enc, $octets, $chk);
+}
+
+sub _decode_q {
+    my ($enc, $text, $chk) = @_;
+    $text =~ s/_/ /go;
+    $text =~ s/=([0-9A-Fa-f]{2})/pack('C', hex($1))/ego;
+    return _decode_octets($enc, $text, $chk);
+}
+
+sub _decode_octets {
+    my ($enc, $octets, $chk) = @_;
+    $chk = 0 unless defined $chk;
+    $chk &= ~Encode::LEAVE_SRC if not ref $chk and $chk;
+    my $output = $enc->decode($octets, $chk);
+    return undef if not ref $chk and $chk and $octets ne '';
+    return $output;
+}
+
+sub encode($$;$) {
+    my ($obj, $str, $chk) = @_;
+    return undef unless defined $str;
+    my $output = $obj->_fold_line($obj->_encode_string($str, $chk));
+    $_[1] = $str if not ref $chk and $chk and !($chk & Encode::LEAVE_SRC);
+    return $output . substr($str, 0, 0); # to propagate taintedness
+}
+
+sub _fold_line {
+    my ($obj, $line) = @_;
+    my $bpl = $obj->{bpl};
+    my $output = '';
+
+    while ( length($line) ) {
+        if ( $line =~ s/^(.{0,$bpl})(\s|\z)// ) {
+            $output .= $1;
+            $output .= "\r\n" . $2 if length($line);
+        } elsif ( $line =~ s/(\s)(.*)$// ) {
+            $output .= $line;
+            $line = $2;
+            $output .= "\r\n" . $1 if length($line);
+        } else {
+            $output .= $line;
+            last;
+        }
+    }
+
+    return $output;
+}
+
+sub _encode_string {
+    my ($obj, $str, $chk) = @_;
+    my $wordlen = $obj->{bpl} > 76 ? 76 : $obj->{bpl};
+    my $enc = Encode::find_mime_encoding($obj->{charset});
+    my $enc_chk = $chk;
+    $enc_chk = 0 unless defined $enc_chk;
+    $enc_chk |= Encode::LEAVE_SRC if not ref $enc_chk and $enc_chk;
+    my @result = ();
+    my $octets = '';
+    while ( length( my $chr = substr($str, 0, 1, '') ) ) {
+        my $seq = $enc->encode($chr, $enc_chk);
+        if ( not length($seq) ) {
+            substr($str, 0, 0, $chr);
+            last;
+        }
+        if ( $obj->_encoded_word_len($octets . $seq) > $wordlen ) {
+            push @result, $obj->_encode_word($octets);
+            $octets = '';
+        }
+        $octets .= $seq;
+    }
+    length($octets) and push @result, $obj->_encode_word($octets);
+    $_[1] = $str if not ref $chk and $chk and !($chk & Encode::LEAVE_SRC);
+    return join(' ', @result);
+}
+
+sub _encode_word {
+    my ($obj, $octets) = @_;
+    my $charset = $obj->{charset};
+    my $encode = $obj->{encode};
+    my $text = $encode eq 'B' ? _encode_b($octets) : _encode_q($octets);
+    return "=?$charset?$encode?$text?=";
+}
+
+sub _encoded_word_len {
+    my ($obj, $octets) = @_;
+    my $charset = $obj->{charset};
+    my $encode = $obj->{encode};
+    my $text_len = $encode eq 'B' ? _encoded_b_len($octets) : _encoded_q_len($octets);
+    return length("=?$charset?$encode??=") + $text_len;
+}
+
+sub _encode_b {
+    my ($octets) = @_;
+    return MIME::Base64::encode($octets, '');
+}
+
+sub _encoded_b_len {
+    my ($octets) = @_;
+    return ( length($octets) + 2 ) / 3 * 4;
+}
+
+my $re_invalid_q_char = qr/[^0-9A-Za-z !*+\-\/]/;
+
+sub _encode_q {
+    my ($octets) = @_;
+    $octets =~ s{($re_invalid_q_char)}{
+        join('', map { sprintf('=%02X', $_) } unpack('C*', $1))
+    }egox;
+    $octets =~ s/ /_/go;
+    return $octets;
+}
+
+sub _encoded_q_len {
+    my ($octets) = @_;
+    my $invalid_count = () = $octets =~ /$re_invalid_q_char/sgo;
+    return ( $invalid_count * 3 ) + ( length($octets) - $invalid_count );
+}
+
+1;
+__END__
+
+package Encode::MIME::Name;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 1.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+# NOTE: This table must be 1:1 mapping
+our %MIME_NAME_OF = (
+    'AdobeStandardEncoding' => 'Adobe-Standard-Encoding',
+    'AdobeSymbol'           => 'Adobe-Symbol-Encoding',
+    'ascii'                 => 'US-ASCII',
+    'big5-hkscs'            => 'Big5-HKSCS',
+    'cp1026'                => 'IBM1026',
+    'cp1047'                => 'IBM1047',
+    'cp1250'                => 'windows-1250',
+    'cp1251'                => 'windows-1251',
+    'cp1252'                => 'windows-1252',
+    'cp1253'                => 'windows-1253',
+    'cp1254'                => 'windows-1254',
+    'cp1255'                => 'windows-1255',
+    'cp1256'                => 'windows-1256',
+    'cp1257'                => 'windows-1257',
+    'cp1258'                => 'windows-1258',
+    'cp37'                  => 'IBM037',
+    'cp424'                 => 'IBM424',
+    'cp437'                 => 'IBM437',
+    'cp500'                 => 'IBM500',
+    'cp775'                 => 'IBM775',
+    'cp850'                 => 'IBM850',
+    'cp852'                 => 'IBM852',
+    'cp855'                 => 'IBM855',
+    'cp857'                 => 'IBM857',
+    'cp860'                 => 'IBM860',
+    'cp861'                 => 'IBM861',
+    'cp862'                 => 'IBM862',
+    'cp863'                 => 'IBM863',
+    'cp864'                 => 'IBM864',
+    'cp865'                 => 'IBM865',
+    'cp866'                 => 'IBM866',
+    'cp869'                 => 'IBM869',
+    'cp936'                 => 'GBK',
+    'euc-cn'                => 'EUC-CN',
+    'euc-jp'                => 'EUC-JP',
+    'euc-kr'                => 'EUC-KR',
+    #'gb2312-raw'            => 'GB2312', # no, you're wrong, I18N::Charset
+    'hp-roman8'             => 'hp-roman8',
+    'hz'                    => 'HZ-GB-2312',
+    'iso-2022-jp'           => 'ISO-2022-JP',
+    'iso-2022-jp-1'         => 'ISO-2022-JP-1',
+    'iso-2022-kr'           => 'ISO-2022-KR',
+    'iso-8859-1'            => 'ISO-8859-1',
+    'iso-8859-10'           => 'ISO-8859-10',
+    'iso-8859-13'           => 'ISO-8859-13',
+    'iso-8859-14'           => 'ISO-8859-14',
+    'iso-8859-15'           => 'ISO-8859-15',
+    'iso-8859-16'           => 'ISO-8859-16',
+    'iso-8859-2'            => 'ISO-8859-2',
+    'iso-8859-3'            => 'ISO-8859-3',
+    'iso-8859-4'            => 'ISO-8859-4',
+    'iso-8859-5'            => 'ISO-8859-5',
+    'iso-8859-6'            => 'ISO-8859-6',
+    'iso-8859-7'            => 'ISO-8859-7',
+    'iso-8859-8'            => 'ISO-8859-8',
+    'iso-8859-9'            => 'ISO-8859-9',
+    #'jis0201-raw'           => 'JIS_X0201',
+    #'jis0208-raw'           => 'JIS_C6226-1983',
+    #'jis0212-raw'           => 'JIS_X0212-1990',
+    'koi8-r'                => 'KOI8-R',
+    'koi8-u'                => 'KOI8-U',
+    #'ksc5601-raw'           => 'KS_C_5601-1987',
+    'shiftjis'              => 'Shift_JIS',
+    'UTF-16'                => 'UTF-16',
+    'UTF-16BE'              => 'UTF-16BE',
+    'UTF-16LE'              => 'UTF-16LE',
+    'UTF-32'                => 'UTF-32',
+    'UTF-32BE'              => 'UTF-32BE',
+    'UTF-32LE'              => 'UTF-32LE',
+    'UTF-7'                 => 'UTF-7',
+    'utf-8-strict'          => 'UTF-8',
+    'viscii'                => 'VISCII',
+);
+
+# NOTE: %MIME_NAME_OF is still 1:1 mapping
+our %ENCODE_NAME_OF = map { uc $MIME_NAME_OF{$_} => $_ } keys %MIME_NAME_OF;
+
+# Add additional 1:N mapping
+$MIME_NAME_OF{'utf8'} = 'UTF-8';
+
+sub get_mime_name($) { $MIME_NAME_OF{$_[0]} };
+
+sub get_encode_name($) { $ENCODE_NAME_OF{uc $_[0]} };
+
+1;
+__END__
+
+package Encode::MIME::Header::ISO_2022_JP;
+
+use strict;
+use warnings;
+
+use parent qw(Encode::MIME::Header);
+
+my $obj =
+  bless { decode_b => '1', decode_q => '1', encode => 'B', bpl => 76, Name => 'MIME-Header-ISO_2022_JP' } =>
+  __PACKAGE__;
+Encode::define_encoding($obj, 'MIME-Header-ISO_2022_JP');
+
+use constant HEAD => '=?ISO-2022-JP?B?';
+use constant TAIL => '?=';
+
+use Encode::CJKConstants qw(%RE);
+
+our $VERSION = do { my @r = ( q$Revision: 1.9 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+# I owe the below codes totally to
+#   Jcode by Dan Kogai & http://www.din.or.jp/~ohzaki/perl.htm#JP_Base64
+
+sub encode {
+    my $self = shift;
+    my $str  = shift;
+    return undef unless defined $str;
+
+    utf8::encode($str) if ( Encode::is_utf8($str) );
+    Encode::from_to( $str, 'utf8', 'euc-jp' );
+
+    my ($trailing_crlf) = ( $str =~ /(\n|\r|\x0d\x0a)$/o );
+
+    $str = _mime_unstructured_header( $str, $self->{bpl} );
+
+    not $trailing_crlf and $str =~ s/(\n|\r|\x0d\x0a)$//o;
+
+    return $str;
+}
+
+sub _mime_unstructured_header {
+    my ( $oldheader, $bpl ) = @_;
+    my $crlf = $oldheader =~ /\n$/;
+    my ( $header, @words, @wordstmp, $i ) = ('');
+
+    $oldheader =~ s/\s+$//;
+
+    @wordstmp = split /\s+/, $oldheader;
+
+    for ( $i = 0 ; $i < $#wordstmp ; $i++ ) {
+        if (    $wordstmp[$i] !~ /^[\x21-\x7E]+$/
+            and $wordstmp[ $i + 1 ] !~ /^[\x21-\x7E]+$/ )
+        {
+            $wordstmp[ $i + 1 ] = "$wordstmp[$i] $wordstmp[$i + 1]";
+        }
+        else {
+            push( @words, $wordstmp[$i] );
+        }
+    }
+
+    push( @words, $wordstmp[-1] );
+
+    for my $word (@words) {
+        if ( $word =~ /^[\x21-\x7E]+$/ ) {
+            $header =~ /(?:.*\n)*(.*)/;
+            if ( length($1) + length($word) > $bpl ) {
+                $header .= "\n $word";
+            }
+            else {
+                $header .= $word;
+            }
+        }
+        else {
+            $header = _add_encoded_word( $word, $header, $bpl );
+        }
+
+        $header =~ /(?:.*\n)*(.*)/;
+
+        if ( length($1) == $bpl ) {
+            $header .= "\n ";
+        }
+        else {
+            $header .= ' ';
+        }
+    }
+
+    $header =~ s/\n? $//mg;
+
+    $crlf ? "$header\n" : $header;
+}
+
+sub _add_encoded_word {
+    my ( $str, $line, $bpl ) = @_;
+    my $result = '';
+
+    while ( length($str) ) {
+        my $target = $str;
+        $str = '';
+
+        if (
+            length($line) + 22 +
+            ( $target =~ /^(?:$RE{EUC_0212}|$RE{EUC_C})/o ) * 8 > $bpl )
+        {
+            $line =~ s/[ \t\n\r]*$/\n/;
+            $result .= $line;
+            $line = ' ';
+        }
+
+        while (1) {
+            my $iso_2022_jp = $target;
+            Encode::from_to( $iso_2022_jp, 'euc-jp', 'iso-2022-jp' );
+
+            my $encoded =
+              HEAD . MIME::Base64::encode_base64( $iso_2022_jp, '' ) . TAIL;
+
+            if ( length($encoded) + length($line) > $bpl ) {
+                $target =~
+                  s/($RE{EUC_0212}|$RE{EUC_KANA}|$RE{EUC_C}|$RE{ASCII})$//o;
+                $str = $1 . $str;
+            }
+            else {
+                $line .= $encoded;
+                last;
+            }
+        }
+
+    }
+
+    $result . $line;
+}
+
+1;
+__END__
+
+package I18N::Langinfo;
+
+use 5.006;
+use strict;
+use warnings;
+use Carp;
+
+require Exporter;
+require XSLoader;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(langinfo);
+
+our @EXPORT_OK = qw(
+	ABDAY_1
+	ABDAY_2
+	ABDAY_3
+	ABDAY_4
+	ABDAY_5
+	ABDAY_6
+	ABDAY_7
+	ABMON_1
+	ABMON_10
+	ABMON_11
+	ABMON_12
+	ABMON_2
+	ABMON_3
+	ABMON_4
+	ABMON_5
+	ABMON_6
+	ABMON_7
+	ABMON_8
+	ABMON_9
+	ALT_DIGITS
+	AM_STR
+	CODESET
+	CRNCYSTR
+	DAY_1
+	DAY_2
+	DAY_3
+	DAY_4
+	DAY_5
+	DAY_6
+	DAY_7
+	D_FMT
+	D_T_FMT
+	ERA
+	ERA_D_FMT
+	ERA_D_T_FMT
+	ERA_T_FMT
+	MON_1
+	MON_10
+	MON_11
+	MON_12
+	MON_2
+	MON_3
+	MON_4
+	MON_5
+	MON_6
+	MON_7
+	MON_8
+	MON_9
+	NOEXPR
+	NOSTR
+	PM_STR
+	RADIXCHAR
+	THOUSEP
+	T_FMT
+	T_FMT_AMPM
+	YESEXPR
+	YESSTR
+);
+
+our $VERSION = '0.17';
+
+XSLoader::load();
+
+1;
+__END__
+
+package PerlIO::encoding;
+
+use strict;
+our $VERSION = '0.26';
+our $DEBUG = 0;
+$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
+
+#
+# Equivalent of this is done in encoding.xs - do not uncomment.
+#
+# use Encode ();
+
+require XSLoader;
+XSLoader::load();
+
+our $fallback =
+    Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();
+
+1;
+__END__
+
+package PerlIO::via;
+our $VERSION = '0.17';
+require XSLoader;
+XSLoader::load();
+1;
+__END__
+
+package PerlIO::scalar;
+our $VERSION = '0.29';
+require XSLoader;
+XSLoader::load();
+1;
+__END__
+
+# Devel::Peek - A data debugging tool for the XS programmer
+# The documentation is after the __END__
+
+package Devel::Peek;
+
+$VERSION = '1.27';
+$XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+require Exporter;
+require XSLoader;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(Dump mstat DeadCode DumpArray DumpWithOP DumpProg
+	     fill_mstats mstats_fillhash mstats2hash runops_debug debug_flags);
+@EXPORT_OK = qw(SvREFCNT CvGV);
+%EXPORT_TAGS = ('ALL' => [@EXPORT, @EXPORT_OK]);
+
+XSLoader::load();
+
+sub import {
+  my $c = shift;
+  my $ops_rx = qr/^:opd(=[stP]*)?\b/;
+  my @db = grep m/$ops_rx/, @_;
+  @_ = grep !m/$ops_rx/, @_;
+  if (@db) {
+    die "Too many :opd options" if @db > 1;
+    runops_debug(1);
+    my $flags = ($db[0] =~ m/$ops_rx/ and $1);
+    $flags = 'st' unless defined $flags;
+    my $f = 0;
+    $f |= 2  if $flags =~ /s/;
+    $f |= 8  if $flags =~ /t/;
+    $f |= 64 if $flags =~ /P/;
+    $^D |= $f if $f;
+  }
+  unshift @_, $c;
+  goto &Exporter::import;
+}
+
+sub DumpWithOP ($;$) {
+   local($Devel::Peek::dump_ops)=1;
+   my $depth = @_ > 1 ? $_[1] : 4 ;
+   Dump($_[0],$depth);
+}
+
+$D_flags = 'psltocPmfrxuLHXDSTR';
+
+sub debug_flags (;$) {
+  my $out = "";
+  for my $i (0 .. length($D_flags)-1) {
+    $out .= substr $D_flags, $i, 1 if $^D & (1<<$i);
+  }
+  my $arg = shift;
+  my $num = $arg;
+  if (defined $arg and $arg =~ /\D/) {
+    die "unknown flags in debug_flags()" if $arg =~ /[^-$D_flags]/;
+    my ($on,$off) = split /-/, "$arg-";
+    $num = $^D;
+    $num |=  (1<<index($D_flags, $_)) for split //, $on;
+    $num &= ~(1<<index($D_flags, $_)) for split //, $off;
+  }
+  $^D = $num if defined $arg;
+  $out
+}
+
+sub B::Deparse::pp_Devel_Peek_Dump {
+  my ($deparse,$op,$cx) = @_;
+  my @kids = $deparse->deparse($op->first, 6);
+  my $sib = $op->first->sibling;
+  if (ref $sib ne 'B::NULL') {
+    push @kids, $deparse->deparse($sib, 6);
+  }
+  return "Devel::Peek::Dump(" . join(", ", @kids) . ")";
+}
+
+1;
+__END__
+
+package Unicode::Normalize;
+
+BEGIN {
+    unless ('A' eq pack('U', 0x41)) {
+	die "Unicode::Normalize cannot stringify a Unicode code point\n";
+    }
+    unless (0x41 == unpack('U', 'A')) {
+	die "Unicode::Normalize cannot get Unicode code point\n";
+    }
+}
+
+use 5.006;
+use strict;
+use warnings;
+use Carp;
+
+no warnings 'utf8';
+
+our $VERSION = '1.26';
+our $PACKAGE = __PACKAGE__;
+
+our @EXPORT = qw( NFC NFD NFKC NFKD );
+our @EXPORT_OK = qw(
+    normalize decompose reorder compose
+    checkNFD checkNFKD checkNFC checkNFKC check
+    getCanon getCompat getComposite getCombinClass
+    isExclusion isSingleton isNonStDecomp isComp2nd isComp_Ex
+    isNFD_NO isNFC_NO isNFC_MAYBE isNFKD_NO isNFKC_NO isNFKC_MAYBE
+    FCD checkFCD FCC checkFCC composeContiguous splitOnLastStarter
+    normalize_partial NFC_partial NFD_partial NFKC_partial NFKD_partial
+);
+our %EXPORT_TAGS = (
+    all       => [ @EXPORT, @EXPORT_OK ],
+    normalize => [ @EXPORT, qw/normalize decompose reorder compose/ ],
+    check     => [ qw/checkNFD checkNFKD checkNFC checkNFKC check/ ],
+    fast      => [ qw/FCD checkFCD FCC checkFCC composeContiguous/ ],
+);
+
+##
+## utilities for tests
+##
+
+sub pack_U {
+    return pack('U*', @_);
+}
+
+sub unpack_U {
+
+    # The empty pack returns an empty UTF-8 string, so the effect is to force
+    # the shifted parameter into being UTF-8.  This allows this to work on
+    # Perl 5.6, where there is no utf8::upgrade().
+    return unpack('U*', shift(@_).pack('U*'));
+}
+
+require Exporter;
+
+##### The above part is common to XS and PP #####
+
+our @ISA = qw(Exporter);
+use XSLoader ();
+XSLoader::load( 'Unicode::Normalize', $VERSION );
+
+##### The below part is common to XS and PP #####
+
+##
+## normalize
+##
+
+sub FCD ($) {
+    my $str = shift;
+    return checkFCD($str) ? $str : NFD($str);
+}
+
+our %formNorm = (
+    NFC  => \&NFC,	C  => \&NFC,
+    NFD  => \&NFD,	D  => \&NFD,
+    NFKC => \&NFKC,	KC => \&NFKC,
+    NFKD => \&NFKD,	KD => \&NFKD,
+    FCD  => \&FCD,	FCC => \&FCC,
+);
+
+sub normalize($$)
+{
+    my $form = shift;
+    my $str = shift;
+    if (exists $formNorm{$form}) {
+	return $formNorm{$form}->($str);
+    }
+    croak($PACKAGE."::normalize: invalid form name: $form");
+}
+
+##
+## partial
+##
+
+sub normalize_partial ($$) {
+    if (exists $formNorm{$_[0]}) {
+	my $n = normalize($_[0], $_[1]);
+	my($p, $u) = splitOnLastStarter($n);
+	$_[1] = $u;
+	return $p;
+    }
+    croak($PACKAGE."::normalize_partial: invalid form name: $_[0]");
+}
+
+sub NFD_partial ($) { return normalize_partial('NFD', $_[0]) }
+sub NFC_partial ($) { return normalize_partial('NFC', $_[0]) }
+sub NFKD_partial($) { return normalize_partial('NFKD',$_[0]) }
+sub NFKC_partial($) { return normalize_partial('NFKC',$_[0]) }
+
+##
+## check
+##
+
+our %formCheck = (
+    NFC  => \&checkNFC, 	C  => \&checkNFC,
+    NFD  => \&checkNFD, 	D  => \&checkNFD,
+    NFKC => \&checkNFKC,	KC => \&checkNFKC,
+    NFKD => \&checkNFKD,	KD => \&checkNFKD,
+    FCD  => \&checkFCD, 	FCC => \&checkFCC,
+);
+
+sub check($$)
+{
+    my $form = shift;
+    my $str = shift;
+    if (exists $formCheck{$form}) {
+	return $formCheck{$form}->($str);
+    }
+    croak($PACKAGE."::check: invalid form name: $form");
+}
+
+1;
+__END__
+
+
+# IO::Poll.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Poll;
+
+use strict;
+use IO::Handle;
+use Exporter ();
+
+our @ISA = qw(Exporter);
+our $VERSION = "1.39";
+
+our @EXPORT = qw( POLLIN
+	      POLLOUT
+	      POLLERR
+	      POLLHUP
+	      POLLNVAL
+	    );
+
+our @EXPORT_OK = qw(
+ POLLPRI
+ POLLRDNORM
+ POLLWRNORM
+ POLLRDBAND
+ POLLWRBAND
+ POLLNORM
+	       );
+
+# [0] maps fd's to requested masks
+# [1] maps fd's to returned  masks
+# [2] maps fd's to handles
+sub new {
+    my $class = shift;
+
+    my $self = bless [{},{},{}], $class;
+
+    $self;
+}
+
+sub mask {
+    my $self = shift;
+    my $io = shift;
+    my $fd = fileno($io);
+    return unless defined $fd;
+    if (@_) {
+	my $mask = shift;
+	if($mask) {
+	  $self->[0]{$fd}{$io} = $mask; # the error events are always returned
+	  $self->[1]{$fd}      = 0;     # output mask
+	  $self->[2]{$io}      = $io;   # remember handle
+	} else {
+          delete $self->[0]{$fd}{$io};
+          unless(%{$self->[0]{$fd}}) {
+            # We no longer have any handles for this FD
+            delete $self->[1]{$fd};
+            delete $self->[0]{$fd};
+          }
+          delete $self->[2]{$io};
+	}
+    }
+    
+    return unless exists $self->[0]{$fd} and exists $self->[0]{$fd}{$io};
+	return $self->[0]{$fd}{$io};
+}
+
+
+sub poll {
+    my($self,$timeout) = @_;
+
+    $self->[1] = {};
+
+    my($fd,$mask,$iom);
+    my @poll = ();
+
+    while(($fd,$iom) = each %{$self->[0]}) {
+	$mask   = 0;
+	$mask  |= $_ for values(%$iom);
+	push(@poll,$fd => $mask);
+    }
+
+    my $ret = _poll(defined($timeout) ? $timeout * 1000 : -1,@poll);
+
+    return $ret
+	unless $ret > 0;
+
+    while(@poll) {
+	my($fd,$got) = splice(@poll,0,2);
+	$self->[1]{$fd} = $got if $got;
+    }
+
+    return $ret;  
+}
+
+sub events {
+    my $self = shift;
+    my $io = shift;
+    my $fd = fileno($io);
+    exists $self->[1]{$fd} and exists $self->[0]{$fd}{$io} 
+                ? $self->[1]{$fd} & ($self->[0]{$fd}{$io}|POLLHUP|POLLERR|POLLNVAL)
+	: 0;
+}
+
+sub remove {
+    my $self = shift;
+    my $io = shift;
+    $self->mask($io,0);
+}
+
+sub handles {
+    my $self = shift;
+    return values %{$self->[2]} unless @_;
+
+    my $events = shift || 0;
+    my($fd,$ev,$io,$mask);
+    my @handles = ();
+
+    while(($fd,$ev) = each %{$self->[1]}) {
+	while (($io,$mask) = each %{$self->[0]{$fd}}) {
+	    $mask |= POLLHUP|POLLERR|POLLNVAL;  # must allow these
+	    push @handles,$self->[2]{$io} if ($ev & $mask) & $events;
+	}
+    }
+    return @handles;
+}
+
+1;
+
+__END__
+
+#
+
+package IO::Seekable;
+
+
+use 5.008_001;
+use Carp;
+use strict;
+use IO::Handle ();
+# XXX we can't get these from IO::Handle or we'll get prototype
+# mismatch warnings on C<use POSIX; use IO::File;> :-(
+use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
+require Exporter;
+
+our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
+our @ISA = qw(Exporter);
+
+our $VERSION = "1.39";
+
+sub seek {
+    @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
+    seek($_[0], $_[1], $_[2]);
+}
+
+sub sysseek {
+    @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
+    sysseek($_[0], $_[1], $_[2]);
+}
+
+sub tell {
+    @_ == 1 or croak 'usage: $io->tell()';
+    tell($_[0]);
+}
+
+1;
+#
+
+package IO::File;
+
+
+use 5.008_001;
+use strict;
+use Carp;
+use Symbol;
+use SelectSaver;
+use IO::Seekable;
+
+require Exporter;
+
+our @ISA = qw(IO::Handle IO::Seekable Exporter);
+
+our $VERSION = "1.39";
+
+our @EXPORT = @IO::Seekable::EXPORT;
+
+eval {
+    # Make all Fcntl O_XXX constants available for importing
+    require Fcntl;
+    my @O = grep /^O_/, @Fcntl::EXPORT;
+    Fcntl->import(@O);  # first we import what we want to export
+    push(@EXPORT, @O);
+};
+
+################################################
+## Constructor
+##
+
+sub new {
+    my $type = shift;
+    my $class = ref($type) || $type || "IO::File";
+    @_ >= 0 && @_ <= 3
+	or croak "usage: $class->new([FILENAME [,MODE [,PERMS]]])";
+    my $fh = $class->SUPER::new();
+    if (@_) {
+	$fh->open(@_)
+	    or return undef;
+    }
+    $fh;
+}
+
+################################################
+## Open
+##
+
+sub open {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
+    my ($fh, $file) = @_;
+    if (@_ > 2) {
+	my ($mode, $perms) = @_[2, 3];
+	if ($mode =~ /^\d+$/) {
+	    defined $perms or $perms = 0666;
+	    return sysopen($fh, $file, $mode, $perms);
+	} elsif ($mode =~ /:/) {
+	    return open($fh, $mode, $file) if @_ == 3;
+	    croak 'usage: $fh->open(FILENAME, IOLAYERS)';
+	} else {
+            return open($fh, IO::Handle::_open_mode_string($mode), $file);
+        }
+    }
+    open($fh, $file);
+}
+
+################################################
+## Binmode
+##
+
+sub binmode {
+    ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
+
+    my($fh, $layer) = @_;
+
+    return binmode $$fh unless $layer;
+    return binmode $$fh, $layer;
+}
+
+1;
+
+# IO::Socket.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket;
+
+use 5.008_001;
+
+use IO::Handle;
+use Socket 1.3;
+use Carp;
+use strict;
+use Exporter;
+use Errno;
+
+# legacy
+
+require IO::Socket::INET;
+require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian');
+
+our @ISA = qw(IO::Handle);
+
+our $VERSION = "1.39";
+
+our @EXPORT_OK = qw(sockatmark);
+
+sub import {
+    my $pkg = shift;
+    if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast
+	Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark');
+    } else {
+	my $callpkg = caller;
+	Exporter::export 'Socket', $callpkg, @_;
+    }
+}
+
+sub new {
+    my($class,%arg) = @_;
+    my $sock = $class->SUPER::new();
+
+    $sock->autoflush(1);
+
+    ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
+
+    return scalar(%arg) ? $sock->configure(\%arg)
+			: $sock;
+}
+
+my @domain2pkg;
+
+sub register_domain {
+    my($p,$d) = @_;
+    $domain2pkg[$d] = $p;
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my $domain = delete $arg->{Domain};
+
+    croak 'IO::Socket: Cannot configure a generic socket'
+	unless defined $domain;
+
+    croak "IO::Socket: Unsupported socket domain"
+	unless defined $domain2pkg[$domain];
+
+    croak "IO::Socket: Cannot configure socket in domain '$domain'"
+	unless ref($sock) eq "IO::Socket";
+
+    bless($sock, $domain2pkg[$domain]);
+    $sock->configure($arg);
+}
+
+sub socket {
+    @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)';
+    my($sock,$domain,$type,$protocol) = @_;
+
+    socket($sock,$domain,$type,$protocol) or
+    	return undef;
+
+    ${*$sock}{'io_socket_domain'} = $domain;
+    ${*$sock}{'io_socket_type'}   = $type;
+    ${*$sock}{'io_socket_proto'}  = $protocol;
+
+    $sock;
+}
+
+sub socketpair {
+    @_ == 4 || croak 'usage: IO::Socket->socketpair(DOMAIN, TYPE, PROTOCOL)';
+    my($class,$domain,$type,$protocol) = @_;
+    my $sock1 = $class->new();
+    my $sock2 = $class->new();
+
+    socketpair($sock1,$sock2,$domain,$type,$protocol) or
+    	return ();
+
+    ${*$sock1}{'io_socket_type'}  = ${*$sock2}{'io_socket_type'}  = $type;
+    ${*$sock1}{'io_socket_proto'} = ${*$sock2}{'io_socket_proto'} = $protocol;
+
+    ($sock1,$sock2);
+}
+
+sub connect {
+    @_ == 2 or croak 'usage: $sock->connect(NAME)';
+    my $sock = shift;
+    my $addr = shift;
+    my $timeout = ${*$sock}{'io_socket_timeout'};
+    my $err;
+    my $blocking;
+
+    $blocking = $sock->blocking(0) if $timeout;
+    if (!connect($sock, $addr)) {
+	if (defined $timeout && ($!{EINPROGRESS} || $!{EWOULDBLOCK})) {
+	    require IO::Select;
+
+	    my $sel = new IO::Select $sock;
+
+	    undef $!;
+	    my($r,$w,$e) = IO::Select::select(undef,$sel,$sel,$timeout);
+	    if(@$e[0]) {
+		# Windows return from select after the timeout in case of
+		# WSAECONNREFUSED(10061) if exception set is not used.
+		# This behavior is different from Linux.
+		# Using the exception
+		# set we now emulate the behavior in Linux
+		#    - Karthik Rajagopalan
+		$err = $sock->getsockopt(SOL_SOCKET,SO_ERROR);
+		$@ = "connect: $err";
+	    }
+	    elsif(!@$w[0]) {
+		$err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
+		$@ = "connect: timeout";
+	    }
+	    elsif (!connect($sock,$addr) &&
+                not ($!{EISCONN} || ($^O eq 'MSWin32' &&
+                ($! == (($] < 5.019004) ? 10022 : Errno::EINVAL))))
+            ) {
+		# Some systems refuse to re-connect() to
+		# an already open socket and set errno to EISCONN.
+		# Windows sets errno to WSAEINVAL (10022) (pre-5.19.4) or
+		# EINVAL (22) (5.19.4 onwards).
+		$err = $!;
+		$@ = "connect: $!";
+	    }
+	}
+        elsif ($blocking || !($!{EINPROGRESS} || $!{EWOULDBLOCK}))  {
+	    $err = $!;
+	    $@ = "connect: $!";
+	}
+    }
+
+    $sock->blocking(1) if $blocking;
+
+    $! = $err if $err;
+
+    $err ? undef : $sock;
+}
+
+# Enable/disable blocking IO on sockets.
+# Without args return the current status of blocking,
+# with args change the mode as appropriate, returning the
+# old setting, or in case of error during the mode change
+# undef.
+
+sub blocking {
+    my $sock = shift;
+
+    return $sock->SUPER::blocking(@_)
+        if $^O ne 'MSWin32' && $^O ne 'VMS';
+
+    # Windows handles blocking differently
+    #
+    # http://groups.google.co.uk/group/perl.perl5.porters/browse_thread/thread/b4e2b1d88280ddff/630b667a66e3509f?#630b667a66e3509f
+    # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/ioctlsocket_2.asp
+    #
+    # 0x8004667e is FIONBIO
+    #
+    # which is used to set blocking behaviour.
+
+    # NOTE: 
+    # This is a little confusing, the perl keyword for this is
+    # 'blocking' but the OS level behaviour is 'non-blocking', probably
+    # because sockets are blocking by default.
+    # Therefore internally we have to reverse the semantics.
+
+    my $orig= !${*$sock}{io_sock_nonblocking};
+        
+    return $orig unless @_;
+
+    my $block = shift;
+    
+    if ( !$block != !$orig ) {
+        ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1;
+        ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking}))
+            or return undef;
+    }
+    
+    return $orig;        
+}
+
+
+sub close {
+    @_ == 1 or croak 'usage: $sock->close()';
+    my $sock = shift;
+    ${*$sock}{'io_socket_peername'} = undef;
+    $sock->SUPER::close();
+}
+
+sub bind {
+    @_ == 2 or croak 'usage: $sock->bind(NAME)';
+    my $sock = shift;
+    my $addr = shift;
+
+    return bind($sock, $addr) ? $sock
+			      : undef;
+}
+
+sub listen {
+    @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])';
+    my($sock,$queue) = @_;
+    $queue = 5
+	unless $queue && $queue > 0;
+
+    return listen($sock, $queue) ? $sock
+				 : undef;
+}
+
+sub accept {
+    @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])';
+    my $sock = shift;
+    my $pkg = shift || $sock;
+    my $timeout = ${*$sock}{'io_socket_timeout'};
+    my $new = $pkg->new(Timeout => $timeout);
+    my $peer = undef;
+
+    if(defined $timeout) {
+	require IO::Select;
+
+	my $sel = new IO::Select $sock;
+
+	unless ($sel->can_read($timeout)) {
+	    $@ = 'accept: timeout';
+	    $! = (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
+	    return;
+	}
+    }
+
+    $peer = accept($new,$sock)
+	or return;
+
+    ${*$new}{$_} = ${*$sock}{$_} for qw( io_socket_domain io_socket_type io_socket_proto );
+
+    return wantarray ? ($new, $peer)
+    	      	     : $new;
+}
+
+sub sockname {
+    @_ == 1 or croak 'usage: $sock->sockname()';
+    getsockname($_[0]);
+}
+
+sub peername {
+    @_ == 1 or croak 'usage: $sock->peername()';
+    my($sock) = @_;
+    ${*$sock}{'io_socket_peername'} ||= getpeername($sock);
+}
+
+sub connected {
+    @_ == 1 or croak 'usage: $sock->connected()';
+    my($sock) = @_;
+    getpeername($sock);
+}
+
+sub send {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])';
+    my $sock  = $_[0];
+    my $flags = $_[2] || 0;
+    my $peer  = $_[3] || $sock->peername;
+
+    croak 'send: Cannot determine peer address'
+	 unless(defined $peer);
+
+    my $r = defined(getpeername($sock))
+	? send($sock, $_[1], $flags)
+	: send($sock, $_[1], $flags, $peer);
+
+    # remember who we send to, if it was successful
+    ${*$sock}{'io_socket_peername'} = $peer
+	if(@_ == 4 && defined $r);
+
+    $r;
+}
+
+sub recv {
+    @_ == 3 || @_ == 4 or croak 'usage: $sock->recv(BUF, LEN [, FLAGS])';
+    my $sock  = $_[0];
+    my $len   = $_[2];
+    my $flags = $_[3] || 0;
+
+    # remember who we recv'd from
+    ${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags);
+}
+
+sub shutdown {
+    @_ == 2 or croak 'usage: $sock->shutdown(HOW)';
+    my($sock, $how) = @_;
+    ${*$sock}{'io_socket_peername'} = undef;
+    shutdown($sock, $how);
+}
+
+sub setsockopt {
+    @_ == 4 or croak '$sock->setsockopt(LEVEL, OPTNAME, OPTVAL)';
+    setsockopt($_[0],$_[1],$_[2],$_[3]);
+}
+
+my $intsize = length(pack("i",0));
+
+sub getsockopt {
+    @_ == 3 or croak '$sock->getsockopt(LEVEL, OPTNAME)';
+    my $r = getsockopt($_[0],$_[1],$_[2]);
+    # Just a guess
+    $r = unpack("i", $r)
+	if(defined $r && length($r) == $intsize);
+    $r;
+}
+
+sub sockopt {
+    my $sock = shift;
+    @_ == 1 ? $sock->getsockopt(SOL_SOCKET,@_)
+	    : $sock->setsockopt(SOL_SOCKET,@_);
+}
+
+sub atmark {
+    @_ == 1 or croak 'usage: $sock->atmark()';
+    my($sock) = @_;
+    sockatmark($sock);
+}
+
+sub timeout {
+    @_ == 1 || @_ == 2 or croak 'usage: $sock->timeout([VALUE])';
+    my($sock,$val) = @_;
+    my $r = ${*$sock}{'io_socket_timeout'};
+
+    ${*$sock}{'io_socket_timeout'} = defined $val ? 0 + $val : $val
+	if(@_ == 2);
+
+    $r;
+}
+
+sub sockdomain {
+    @_ == 1 or croak 'usage: $sock->sockdomain()';
+    my $sock = shift;
+    if (!defined(${*$sock}{'io_socket_domain'})) {
+	my $addr = $sock->sockname();
+	${*$sock}{'io_socket_domain'} = sockaddr_family($addr)
+	    if (defined($addr));
+    }
+    ${*$sock}{'io_socket_domain'};
+}
+
+sub socktype {
+    @_ == 1 or croak 'usage: $sock->socktype()';
+    my $sock = shift;
+    ${*$sock}{'io_socket_type'} = $sock->sockopt(Socket::SO_TYPE)
+	if (!defined(${*$sock}{'io_socket_type'}) && defined(eval{Socket::SO_TYPE}));
+    ${*$sock}{'io_socket_type'}
+}
+
+sub protocol {
+    @_ == 1 or croak 'usage: $sock->protocol()';
+    my($sock) = @_;
+    ${*$sock}{'io_socket_proto'} = $sock->sockopt(Socket::SO_PROTOCOL)
+	if (!defined(${*$sock}{'io_socket_proto'}) && defined(eval{Socket::SO_PROTOCOL}));
+    ${*$sock}{'io_socket_proto'};
+}
+
+1;
+
+__END__
+
+# IO::Select.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Select;
+
+use     strict;
+use warnings::register;
+require Exporter;
+
+our $VERSION = "1.39";
+
+our @ISA = qw(Exporter); # This is only so we can do version checking
+
+sub VEC_BITS () {0}
+sub FD_COUNT () {1}
+sub FIRST_FD () {2}
+
+sub new
+{
+ my $self = shift;
+ my $type = ref($self) || $self;
+
+ my $vec = bless [undef,0], $type;
+
+ $vec->add(@_)
+    if @_;
+
+ $vec;
+}
+
+sub add
+{
+ shift->_update('add', @_);
+}
+
+
+sub remove
+{
+ shift->_update('remove', @_);
+}
+
+
+sub exists
+{
+ my $vec = shift;
+ my $fno = $vec->_fileno(shift);
+ return undef unless defined $fno;
+ $vec->[$fno + FIRST_FD];
+}
+
+
+sub _fileno
+{
+ my($self, $f) = @_;
+ return unless defined $f;
+ $f = $f->[0] if ref($f) eq 'ARRAY';
+ ($f =~ /^\d+$/) ? $f : fileno($f);
+}
+
+sub _update
+{
+ my $vec = shift;
+ my $add = shift eq 'add';
+
+ my $bits = $vec->[VEC_BITS];
+ $bits = '' unless defined $bits;
+
+ my $count = 0;
+ my $f;
+ foreach $f (@_)
+  {
+   my $fn = $vec->_fileno($f);
+   if ($add) {
+     next unless defined $fn;
+     my $i = $fn + FIRST_FD;
+     if (defined $vec->[$i]) {
+	 $vec->[$i] = $f;  # if array rest might be different, so we update
+	 next;
+     }
+     $vec->[FD_COUNT]++;
+     vec($bits, $fn, 1) = 1;
+     $vec->[$i] = $f;
+   } else {      # remove
+     if ( ! defined $fn ) { # remove if fileno undef'd
+       $fn = 0;
+       for my $fe (@{$vec}[FIRST_FD .. $#$vec]) {
+         if (defined($fe) && $fe == $f) {
+	   $vec->[FD_COUNT]--;
+	   $fe = undef;
+	   vec($bits, $fn, 1) = 0;
+	   last;
+	 }
+	 ++$fn;
+       }
+     }
+     else {
+       my $i = $fn + FIRST_FD;
+       next unless defined $vec->[$i];
+       $vec->[FD_COUNT]--;
+       vec($bits, $fn, 1) = 0;
+       $vec->[$i] = undef;
+     }
+   }
+   $count++;
+  }
+ $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef;
+ $count;
+}
+
+sub can_read
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $r = $vec->[VEC_BITS];
+
+ defined($r) && (select($r,undef,undef,$timeout) > 0)
+    ? handles($vec, $r)
+    : ();
+}
+
+sub can_write
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $w = $vec->[VEC_BITS];
+
+ defined($w) && (select(undef,$w,undef,$timeout) > 0)
+    ? handles($vec, $w)
+    : ();
+}
+
+sub has_exception
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $e = $vec->[VEC_BITS];
+
+ defined($e) && (select(undef,undef,$e,$timeout) > 0)
+    ? handles($vec, $e)
+    : ();
+}
+
+sub has_error
+{
+ warnings::warn("Call to deprecated method 'has_error', use 'has_exception'")
+	if warnings::enabled();
+ goto &has_exception;
+}
+
+sub count
+{
+ my $vec = shift;
+ $vec->[FD_COUNT];
+}
+
+sub bits
+{
+ my $vec = shift;
+ $vec->[VEC_BITS];
+}
+
+sub as_string  # for debugging
+{
+ my $vec = shift;
+ my $str = ref($vec) . ": ";
+ my $bits = $vec->bits;
+ my $count = $vec->count;
+ $str .= defined($bits) ? unpack("b*", $bits) : "undef";
+ $str .= " $count";
+ my @handles = @$vec;
+ splice(@handles, 0, FIRST_FD);
+ for (@handles) {
+     $str .= " " . (defined($_) ? "$_" : "-");
+ }
+ $str;
+}
+
+sub _max
+{
+ my($a,$b,$c) = @_;
+ $a > $b
+    ? $a > $c
+        ? $a
+        : $c
+    : $b > $c
+        ? $b
+        : $c;
+}
+
+sub select
+{
+ shift
+   if defined $_[0] && !ref($_[0]);
+
+ my($r,$w,$e,$t) = @_;
+ my @result = ();
+
+ my $rb = defined $r ? $r->[VEC_BITS] : undef;
+ my $wb = defined $w ? $w->[VEC_BITS] : undef;
+ my $eb = defined $e ? $e->[VEC_BITS] : undef;
+
+ if(select($rb,$wb,$eb,$t) > 0)
+  {
+   my @r = ();
+   my @w = ();
+   my @e = ();
+   my $i = _max(defined $r ? scalar(@$r)-1 : 0,
+                defined $w ? scalar(@$w)-1 : 0,
+                defined $e ? scalar(@$e)-1 : 0);
+
+   for( ; $i >= FIRST_FD ; $i--)
+    {
+     my $j = $i - FIRST_FD;
+     push(@r, $r->[$i])
+        if defined $rb && defined $r->[$i] && vec($rb, $j, 1);
+     push(@w, $w->[$i])
+        if defined $wb && defined $w->[$i] && vec($wb, $j, 1);
+     push(@e, $e->[$i])
+        if defined $eb && defined $e->[$i] && vec($eb, $j, 1);
+    }
+
+   @result = (\@r, \@w, \@e);
+  }
+ @result;
+}
+
+
+sub handles
+{
+ my $vec = shift;
+ my $bits = shift;
+ my @h = ();
+ my $i;
+ my $max = scalar(@$vec) - 1;
+
+ for ($i = FIRST_FD; $i <= $max; $i++)
+  {
+   next unless defined $vec->[$i];
+   push(@h, $vec->[$i])
+      if !defined($bits) || vec($bits, $i - FIRST_FD, 1);
+  }
+ 
+ @h;
+}
+
+1;
+__END__
+
+
+package IO::Handle;
+
+
+use 5.008_001;
+use strict;
+use Carp;
+use Symbol;
+use SelectSaver;
+use IO ();	# Load the XS module
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our $VERSION = "1.39";
+
+our @EXPORT_OK = qw(
+    autoflush
+    output_field_separator
+    output_record_separator
+    input_record_separator
+    input_line_number
+    format_page_number
+    format_lines_per_page
+    format_lines_left
+    format_name
+    format_top_name
+    format_line_break_characters
+    format_formfeed
+    format_write
+
+    print
+    printf
+    say
+    getline
+    getlines
+
+    printflush
+    flush
+
+    SEEK_SET
+    SEEK_CUR
+    SEEK_END
+    _IOFBF
+    _IOLBF
+    _IONBF
+);
+
+################################################
+## Constructors, destructors.
+##
+
+sub new {
+    my $class = ref($_[0]) || $_[0] || "IO::Handle";
+    if (@_ != 1) {
+	# Since perl will automatically require IO::File if needed, but
+	# also initialises IO::File's @ISA as part of the core we must
+	# ensure IO::File is loaded if IO::Handle is. This avoids effect-
+	# ively "half-loading" IO::File.
+	if ($] > 5.013 && $class eq 'IO::File' && !$INC{"IO/File.pm"}) {
+	    require IO::File;
+	    shift;
+	    return IO::File::->new(@_);
+	}
+	croak "usage: $class->new()";
+    }
+    my $io = gensym;
+    bless $io, $class;
+}
+
+sub new_from_fd {
+    my $class = ref($_[0]) || $_[0] || "IO::Handle";
+    @_ == 3 or croak "usage: $class->new_from_fd(FD, MODE)";
+    my $io = gensym;
+    shift;
+    IO::Handle::fdopen($io, @_)
+	or return undef;
+    bless $io, $class;
+}
+
+#
+# There is no need for DESTROY to do anything, because when the
+# last reference to an IO object is gone, Perl automatically
+# closes its associated files (if any).  However, to avoid any
+# attempts to autoload DESTROY, we here define it to do nothing.
+#
+sub DESTROY {}
+
+
+################################################
+## Open and close.
+##
+
+sub _open_mode_string {
+    my ($mode) = @_;
+    $mode =~ /^\+?(<|>>?)$/
+      or $mode =~ s/^r(\+?)$/$1</
+      or $mode =~ s/^w(\+?)$/$1>/
+      or $mode =~ s/^a(\+?)$/$1>>/
+      or croak "IO::Handle: bad open mode: $mode";
+    $mode;
+}
+
+sub fdopen {
+    @_ == 3 or croak 'usage: $io->fdopen(FD, MODE)';
+    my ($io, $fd, $mode) = @_;
+    local(*GLOB);
+
+    if (ref($fd) && "$fd" =~ /GLOB\(/o) {
+	# It's a glob reference; Alias it as we cannot get name of anon GLOBs
+	my $n = qualify(*GLOB);
+	*GLOB = *{*$fd};
+	$fd =  $n;
+    } elsif ($fd =~ m#^\d+$#) {
+	# It's an FD number; prefix with "=".
+	$fd = "=$fd";
+    }
+
+    open($io, _open_mode_string($mode) . '&' . $fd)
+	? $io : undef;
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $io->close()';
+    my($io) = @_;
+
+    close($io);
+}
+
+################################################
+## Normal I/O functions.
+##
+
+# flock
+# select
+
+sub opened {
+    @_ == 1 or croak 'usage: $io->opened()';
+    defined fileno($_[0]);
+}
+
+sub fileno {
+    @_ == 1 or croak 'usage: $io->fileno()';
+    fileno($_[0]);
+}
+
+sub getc {
+    @_ == 1 or croak 'usage: $io->getc()';
+    getc($_[0]);
+}
+
+sub eof {
+    @_ == 1 or croak 'usage: $io->eof()';
+    eof($_[0]);
+}
+
+sub print {
+    @_ or croak 'usage: $io->print(ARGS)';
+    my $this = shift;
+    print $this @_;
+}
+
+sub printf {
+    @_ >= 2 or croak 'usage: $io->printf(FMT,[ARGS])';
+    my $this = shift;
+    printf $this @_;
+}
+
+sub say {
+    @_ or croak 'usage: $io->say(ARGS)';
+    my $this = shift;
+    local $\ = "\n";
+    print $this @_;
+}
+
+# Special XS wrapper to make them inherit lexical hints from the caller.
+_create_getline_subs( <<'END' ) or die $@;
+sub getline {
+    @_ == 1 or croak 'usage: $io->getline()';
+    my $this = shift;
+    return scalar <$this>;
+} 
+
+sub getlines {
+    @_ == 1 or croak 'usage: $io->getlines()';
+    wantarray or
+	croak 'Can\'t call $io->getlines in a scalar context, use $io->getline';
+    my $this = shift;
+    return <$this>;
+}
+1; # return true for error checking
+END
+
+*gets = \&getline;  # deprecated
+
+sub truncate {
+    @_ == 2 or croak 'usage: $io->truncate(LEN)';
+    truncate($_[0], $_[1]);
+}
+
+sub read {
+    @_ == 3 || @_ == 4 or croak 'usage: $io->read(BUF, LEN [, OFFSET])';
+    read($_[0], $_[1], $_[2], $_[3] || 0);
+}
+
+sub sysread {
+    @_ == 3 || @_ == 4 or croak 'usage: $io->sysread(BUF, LEN [, OFFSET])';
+    sysread($_[0], $_[1], $_[2], $_[3] || 0);
+}
+
+sub write {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $io->write(BUF [, LEN [, OFFSET]])';
+    local($\) = "";
+    $_[2] = length($_[1]) unless defined $_[2];
+    print { $_[0] } substr($_[1], $_[3] || 0, $_[2]);
+}
+
+sub syswrite {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $io->syswrite(BUF [, LEN [, OFFSET]])';
+    if (defined($_[2])) {
+	syswrite($_[0], $_[1], $_[2], $_[3] || 0);
+    } else {
+	syswrite($_[0], $_[1]);
+    }
+}
+
+sub stat {
+    @_ == 1 or croak 'usage: $io->stat()';
+    stat($_[0]);
+}
+
+################################################
+## State modification functions.
+##
+
+sub autoflush {
+    my $old = SelectSaver->new(qualify($_[0], caller));
+    my $prev = $|;
+    $| = @_ > 1 ? $_[1] : 1;
+    $prev;
+}
+
+sub output_field_separator {
+    carp "output_field_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $,;
+    $, = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub output_record_separator {
+    carp "output_record_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $\;
+    $\ = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub input_record_separator {
+    carp "input_record_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $/;
+    $/ = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub input_line_number {
+    local $.;
+    () = tell qualify($_[0], caller) if ref($_[0]);
+    my $prev = $.;
+    $. = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_page_number {
+    my $old;
+    $old = SelectSaver->new(qualify($_[0], caller)) if ref($_[0]);
+    my $prev = $%;
+    $% = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_lines_per_page {
+    my $old;
+    $old = SelectSaver->new(qualify($_[0], caller)) if ref($_[0]);
+    my $prev = $=;
+    $= = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_lines_left {
+    my $old;
+    $old = SelectSaver->new(qualify($_[0], caller)) if ref($_[0]);
+    my $prev = $-;
+    $- = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_name {
+    my $old;
+    $old = SelectSaver->new(qualify($_[0], caller)) if ref($_[0]);
+    my $prev = $~;
+    $~ = qualify($_[1], caller) if @_ > 1;
+    $prev;
+}
+
+sub format_top_name {
+    my $old;
+    $old = SelectSaver->new(qualify($_[0], caller)) if ref($_[0]);
+    my $prev = $^;
+    $^ = qualify($_[1], caller) if @_ > 1;
+    $prev;
+}
+
+sub format_line_break_characters {
+    carp "format_line_break_characters is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $:;
+    $: = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_formfeed {
+    carp "format_formfeed is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $^L;
+    $^L = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub formline {
+    my $io = shift;
+    my $picture = shift;
+    local($^A) = $^A;
+    local($\) = "";
+    formline($picture, @_);
+    print $io $^A;
+}
+
+sub format_write {
+    @_ < 3 || croak 'usage: $io->write( [FORMAT_NAME] )';
+    if (@_ == 2) {
+	my ($io, $fmt) = @_;
+	my $oldfmt = $io->format_name(qualify($fmt,caller));
+	CORE::write($io);
+	$io->format_name($oldfmt);
+    } else {
+	CORE::write($_[0]);
+    }
+}
+
+sub fcntl {
+    @_ == 3 || croak 'usage: $io->fcntl( OP, VALUE );';
+    my ($io, $op) = @_;
+    return fcntl($io, $op, $_[2]);
+}
+
+sub ioctl {
+    @_ == 3 || croak 'usage: $io->ioctl( OP, VALUE );';
+    my ($io, $op) = @_;
+    return ioctl($io, $op, $_[2]);
+}
+
+# this sub is for compatibility with older releases of IO that used
+# a sub called constant to determine if a constant existed -- GMB
+#
+# The SEEK_* and _IO?BF constants were the only constants at that time
+# any new code should just check defined(&CONSTANT_NAME)
+
+sub constant {
+    no strict 'refs';
+    my $name = shift;
+    (($name =~ /^(SEEK_(SET|CUR|END)|_IO[FLN]BF)$/) && defined &{$name})
+	? &{$name}() : undef;
+}
+
+
+# so that flush.pl can be deprecated
+
+sub printflush {
+    my $io = shift;
+    my $old;
+    $old = SelectSaver->new(qualify($io, caller)) if ref($io);
+    local $| = 1;
+    if(ref($io)) {
+        print $io @_;
+    }
+    else {
+	print @_;
+    }
+}
+
+1;
+# IO::Pipe.pm
+#
+# Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Pipe;
+
+use 5.008_001;
+
+use IO::Handle;
+use strict;
+use Carp;
+use Symbol;
+
+our $VERSION = "1.39";
+
+sub new {
+    my $type = shift;
+    my $class = ref($type) || $type || "IO::Pipe";
+    @_ == 0 || @_ == 2 or croak "usage: $class->([READFH, WRITEFH])";
+
+    my $me = bless gensym(), $class;
+
+    my($readfh,$writefh) = @_ ? @_ : $me->handles;
+
+    pipe($readfh, $writefh)
+	or return undef;
+
+    @{*$me} = ($readfh, $writefh);
+
+    $me;
+}
+
+sub handles {
+    @_ == 1 or croak 'usage: $pipe->handles()';
+    (IO::Pipe::End->new(), IO::Pipe::End->new());
+}
+
+my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32';
+
+sub _doit {
+    my $me = shift;
+    my $rw = shift;
+
+    my $pid = $do_spawn ? 0 : fork();
+
+    if($pid) { # Parent
+        return $pid;
+    }
+    elsif(defined $pid) { # Child or spawn
+        my $fh;
+        my $io = $rw ? \*STDIN : \*STDOUT;
+        my ($mode, $save) = $rw ? "r" : "w";
+        if ($do_spawn) {
+          require Fcntl;
+          $save = IO::Handle->new_from_fd($io, $mode);
+	  my $handle = shift;
+          # Close in child:
+	  unless ($^O eq 'MSWin32') {
+            fcntl($handle, Fcntl::F_SETFD(), 1) or croak "fcntl: $!";
+	  }
+          $fh = $rw ? ${*$me}[0] : ${*$me}[1];
+        } else {
+          shift;
+          $fh = $rw ? $me->reader() : $me->writer(); # close the other end
+        }
+        bless $io, "IO::Handle";
+        $io->fdopen($fh, $mode);
+	$fh->close;
+
+        if ($do_spawn) {
+          $pid = eval { system 1, @_ }; # 1 == P_NOWAIT
+          my $err = $!;
+    
+          $io->fdopen($save, $mode);
+          $save->close or croak "Cannot close $!";
+          croak "IO::Pipe: Cannot spawn-NOWAIT: $err" if not $pid or $pid < 0;
+          return $pid;
+        } else {
+          exec @_ or
+            croak "IO::Pipe: Cannot exec: $!";
+        }
+    }
+    else {
+        croak "IO::Pipe: Cannot fork: $!";
+    }
+
+    # NOT Reached
+}
+
+sub reader {
+    @_ >= 1 or croak 'usage: $pipe->reader( [SUB_COMMAND_ARGS] )';
+    my $me = shift;
+
+    return undef
+	unless(ref($me) || ref($me = $me->new));
+
+    my $fh  = ${*$me}[0];
+    my $pid;
+    $pid = $me->_doit(0, $fh, @_)
+        if(@_);
+
+    close ${*$me}[1];
+    bless $me, ref($fh);
+    *$me = *$fh;          # Alias self to handle
+    $me->fdopen($fh->fileno,"r")
+	unless defined($me->fileno);
+    bless $fh;                  # Really wan't un-bless here
+    ${*$me}{'io_pipe_pid'} = $pid
+        if defined $pid;
+
+    $me;
+}
+
+sub writer {
+    @_ >= 1 or croak 'usage: $pipe->writer( [SUB_COMMAND_ARGS] )';
+    my $me = shift;
+
+    return undef
+	unless(ref($me) || ref($me = $me->new));
+
+    my $fh  = ${*$me}[1];
+    my $pid;
+    $pid = $me->_doit(1, $fh, @_)
+        if(@_);
+
+    close ${*$me}[0];
+    bless $me, ref($fh);
+    *$me = *$fh;          # Alias self to handle
+    $me->fdopen($fh->fileno,"w")
+	unless defined($me->fileno);
+    bless $fh;                  # Really wan't un-bless here
+    ${*$me}{'io_pipe_pid'} = $pid
+        if defined $pid;
+
+    $me;
+}
+
+package IO::Pipe::End;
+
+our(@ISA);
+
+@ISA = qw(IO::Handle);
+
+sub close {
+    my $fh = shift;
+    my $r = $fh->SUPER::close(@_);
+
+    waitpid(${*$fh}{'io_pipe_pid'},0)
+	if(defined ${*$fh}{'io_pipe_pid'});
+
+    $r;
+}
+
+1;
+
+__END__
+
+# IO::Dir.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Dir;
+
+use 5.008_001;
+
+use strict;
+use Carp;
+use Symbol;
+use Exporter;
+use IO::File;
+use Tie::Hash;
+use File::stat;
+use File::Spec;
+
+our @ISA = qw(Tie::Hash Exporter);
+our $VERSION = "1.39";
+
+our @EXPORT_OK = qw(DIR_UNLINK);
+
+sub DIR_UNLINK () { 1 }
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: IO::Dir->new([DIRNAME])';
+    my $class = shift;
+    my $dh = gensym;
+    if (@_) {
+	IO::Dir::open($dh, $_[0])
+	    or return undef;
+    }
+    bless $dh, $class;
+}
+
+sub DESTROY {
+    my ($dh) = @_;
+    local($., $@, $!, $^E, $?);
+    no warnings 'io';
+    closedir($dh);
+}
+
+sub open {
+    @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
+    my ($dh, $dirname) = @_;
+    return undef
+	unless opendir($dh, $dirname);
+    # a dir name should always have a ":" in it; assume dirname is
+    # in current directory
+    $dirname = ':' .  $dirname if ( ($^O eq 'MacOS') && ($dirname !~ /:/) );
+    ${*$dh}{io_dir_path} = $dirname;
+    1;
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $dh->close()';
+    my ($dh) = @_;
+    closedir($dh);
+}
+
+sub read {
+    @_ == 1 or croak 'usage: $dh->read()';
+    my ($dh) = @_;
+    readdir($dh);
+}
+
+sub seek {
+    @_ == 2 or croak 'usage: $dh->seek(POS)';
+    my ($dh,$pos) = @_;
+    seekdir($dh,$pos);
+}
+
+sub tell {
+    @_ == 1 or croak 'usage: $dh->tell()';
+    my ($dh) = @_;
+    telldir($dh);
+}
+
+sub rewind {
+    @_ == 1 or croak 'usage: $dh->rewind()';
+    my ($dh) = @_;
+    rewinddir($dh);
+}
+
+sub TIEHASH {
+    my($class,$dir,$options) = @_;
+
+    my $dh = $class->new($dir)
+	or return undef;
+
+    $options ||= 0;
+
+    ${*$dh}{io_dir_unlink} = $options & DIR_UNLINK;
+    $dh;
+}
+
+sub FIRSTKEY {
+    my($dh) = @_;
+    $dh->rewind;
+    scalar $dh->read;
+}
+
+sub NEXTKEY {
+    my($dh) = @_;
+    scalar $dh->read;
+}
+
+sub EXISTS {
+    my($dh,$key) = @_;
+    -e File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+}
+
+sub FETCH {
+    my($dh,$key) = @_;
+    &lstat(File::Spec->catfile(${*$dh}{io_dir_path}, $key));
+}
+
+sub STORE {
+    my($dh,$key,$data) = @_;
+    my($atime,$mtime) = ref($data) ? @$data : ($data,$data);
+    my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+    unless(-e $file) {
+	my $io = IO::File->new($file,O_CREAT | O_RDWR);
+	$io->close if $io;
+    }
+    utime($atime,$mtime, $file);
+}
+
+sub DELETE {
+    my($dh,$key) = @_;
+
+    # Only unlink if unlink-ing is enabled
+    return 0
+	unless ${*$dh}{io_dir_unlink};
+
+    my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+
+    -d $file
+	? rmdir($file)
+	: unlink($file);
+}
+
+1;
+
+__END__
+
+# IO::Socket::UNIX.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket::UNIX;
+
+use strict;
+use IO::Socket;
+use Carp;
+
+our @ISA = qw(IO::Socket);
+our $VERSION = "1.39";
+
+IO::Socket::UNIX->register_domain( AF_UNIX );
+
+sub new {
+    my $class = shift;
+    unshift(@_, "Peer") if @_ == 1;
+    return $class->SUPER::new(@_);
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my($bport,$cport);
+
+    my $type = $arg->{Type} || SOCK_STREAM;
+
+    $sock->socket(AF_UNIX, $type, 0) or
+	return undef;
+
+    if(exists $arg->{Local}) {
+	my $addr = sockaddr_un($arg->{Local});
+	$sock->bind($addr) or
+	    return undef;
+    }
+    if(exists $arg->{Listen} && $type != SOCK_DGRAM) {
+	$sock->listen($arg->{Listen} || 5) or
+	    return undef;
+    }
+    elsif(exists $arg->{Peer}) {
+	my $addr = sockaddr_un($arg->{Peer});
+	$sock->connect($addr) or
+	    return undef;
+    }
+
+    $sock;
+}
+
+sub hostpath {
+    @_ == 1 or croak 'usage: $sock->hostpath()';
+    my $n = $_[0]->sockname || return undef;
+    (sockaddr_un($n))[0];
+}
+
+sub peerpath {
+    @_ == 1 or croak 'usage: $sock->peerpath()';
+    my $n = $_[0]->peername || return undef;
+    (sockaddr_un($n))[0];
+}
+
+1; # Keep require happy
+
+__END__
+
+# IO::Socket::INET.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket::INET;
+
+use strict;
+use IO::Socket;
+use Socket;
+use Carp;
+use Exporter;
+use Errno;
+
+our @ISA = qw(IO::Socket);
+our $VERSION = "1.39";
+
+my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
+
+IO::Socket::INET->register_domain( AF_INET );
+
+my %socket_type = ( tcp  => SOCK_STREAM,
+		    udp  => SOCK_DGRAM,
+		    icmp => SOCK_RAW
+		  );
+my %proto_number;
+$proto_number{tcp}  = Socket::IPPROTO_TCP()  if defined &Socket::IPPROTO_TCP;
+$proto_number{udp}  = Socket::IPPROTO_UDP()  if defined &Socket::IPPROTO_UDP;
+$proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP;
+my %proto_name = reverse %proto_number;
+
+sub new {
+    my $class = shift;
+    unshift(@_, "PeerAddr") if @_ == 1;
+    return $class->SUPER::new(@_);
+}
+
+sub _cache_proto {
+    my @proto = @_;
+    for (map lc($_), $proto[0], split(' ', $proto[1])) {
+	$proto_number{$_} = $proto[2];
+    }
+    $proto_name{$proto[2]} = $proto[0];
+}
+
+sub _get_proto_number {
+    my $name = lc(shift);
+    return undef unless defined $name;
+    return $proto_number{$name} if exists $proto_number{$name};
+
+    my @proto = eval { getprotobyname($name) };
+    return undef unless @proto;
+    _cache_proto(@proto);
+
+    return $proto[2];
+}
+
+sub _get_proto_name {
+    my $num = shift;
+    return undef unless defined $num;
+    return $proto_name{$num} if exists $proto_name{$num};
+
+    my @proto = eval { getprotobynumber($num) };
+    return undef unless @proto;
+    _cache_proto(@proto);
+
+    return $proto[0];
+}
+
+sub _sock_info {
+  my($addr,$port,$proto) = @_;
+  my $origport = $port;
+  my @serv = ();
+
+  $port = $1
+	if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,);
+
+  if(defined $proto  && $proto =~ /\D/) {
+    my $num = _get_proto_number($proto);
+    unless (defined $num) {
+      $@ = "Bad protocol '$proto'";
+      return;
+    }
+    $proto = $num;
+  }
+
+  if(defined $port) {
+    my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef;
+    my $pnum = ($port =~ m,^(\d+)$,)[0];
+
+    @serv = getservbyname($port, _get_proto_name($proto) || "")
+	if ($port =~ m,\D,);
+
+    $port = $serv[2] || $defport || $pnum;
+    unless (defined $port) {
+	$@ = "Bad service '$origport'";
+	return;
+    }
+
+    $proto = _get_proto_number($serv[3]) if @serv && !$proto;
+  }
+
+ return ($addr || undef,
+	 $port || undef,
+	 $proto || undef
+	);
+}
+
+sub _error {
+    my $sock = shift;
+    my $err = shift;
+    {
+      local($!);
+      my $title = ref($sock).": ";
+      $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
+      $sock->close()
+	if(defined fileno($sock));
+    }
+    $! = $err;
+    return undef;
+}
+
+sub _get_addr {
+    my($sock,$addr_str, $multi) = @_;
+    my @addr;
+    if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) {
+	(undef, undef, undef, undef, @addr) = gethostbyname($addr_str);
+    } else {
+	my $h = inet_aton($addr_str);
+	push(@addr, $h) if defined $h;
+    }
+    @addr;
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my($lport,$rport,$laddr,$raddr,$proto,$type);
+
+
+    $arg->{LocalAddr} = $arg->{LocalHost}
+	if exists $arg->{LocalHost} && !exists $arg->{LocalAddr};
+
+    ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr},
+					$arg->{LocalPort},
+					$arg->{Proto})
+			or return _error($sock, $!, $@);
+
+    $laddr = defined $laddr ? inet_aton($laddr)
+			    : INADDR_ANY;
+
+    return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'")
+	unless(defined $laddr);
+
+    $arg->{PeerAddr} = $arg->{PeerHost}
+	if exists $arg->{PeerHost} && !exists $arg->{PeerAddr};
+
+    unless(exists $arg->{Listen}) {
+	($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr},
+					    $arg->{PeerPort},
+					    $proto)
+			or return _error($sock, $!, $@);
+    }
+
+    $proto ||= _get_proto_number('tcp');
+
+    $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)};
+
+    my @raddr = ();
+
+    if(defined $raddr) {
+	@raddr = $sock->_get_addr($raddr, $arg->{MultiHomed});
+	return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'")
+	    unless @raddr;
+    }
+
+    while(1) {
+
+	$sock->socket(AF_INET, $type, $proto) or
+	    return _error($sock, $!, "$!");
+
+        if (defined $arg->{Blocking}) {
+	    defined $sock->blocking($arg->{Blocking})
+		or return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{Reuse} || $arg->{ReuseAddr}) {
+	    $sock->sockopt(SO_REUSEADDR,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{ReusePort}) {
+	    $sock->sockopt(SO_REUSEPORT,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{Broadcast}) {
+		$sock->sockopt(SO_BROADCAST,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) {
+	    $sock->bind($lport || 0, $laddr) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if(exists $arg->{Listen}) {
+	    $sock->listen($arg->{Listen} || 5) or
+		return _error($sock, $!, "$!");
+	    last;
+	}
+
+ 	# don't try to connect unless we're given a PeerAddr
+ 	last unless exists($arg->{PeerAddr});
+ 
+        $raddr = shift @raddr;
+
+	return _error($sock, $EINVAL, 'Cannot determine remote port')
+		unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW);
+
+	last
+	    unless($type == SOCK_STREAM || defined $raddr);
+
+	return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'")
+	    unless defined $raddr;
+
+#        my $timeout = ${*$sock}{'io_socket_timeout'};
+#        my $before = time() if $timeout;
+
+	undef $@;
+        if ($sock->connect(pack_sockaddr_in($rport, $raddr))) {
+#            ${*$sock}{'io_socket_timeout'} = $timeout;
+            return $sock;
+        }
+
+	return _error($sock, $!, $@ || "Timeout")
+	    unless @raddr;
+
+#	if ($timeout) {
+#	    my $new_timeout = $timeout - (time() - $before);
+#	    return _error($sock,
+#                         (exists(&Errno::ETIMEDOUT) ? Errno::ETIMEDOUT() : $EINVAL),
+#                         "Timeout") if $new_timeout <= 0;
+#	    ${*$sock}{'io_socket_timeout'} = $new_timeout;
+#        }
+
+    }
+
+    $sock;
+}
+
+sub connect {
+    @_ == 2 || @_ == 3 or
+       croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)';
+    my $sock = shift;
+    return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_));
+}
+
+sub bind {
+    @_ == 2 || @_ == 3 or
+       croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)';
+    my $sock = shift;
+    return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_))
+}
+
+sub sockaddr {
+    @_ == 1 or croak 'usage: $sock->sockaddr()';
+    my($sock) = @_;
+    my $name = $sock->sockname;
+    $name ? (sockaddr_in($name))[1] : undef;
+}
+
+sub sockport {
+    @_ == 1 or croak 'usage: $sock->sockport()';
+    my($sock) = @_;
+    my $name = $sock->sockname;
+    $name ? (sockaddr_in($name))[0] : undef;
+}
+
+sub sockhost {
+    @_ == 1 or croak 'usage: $sock->sockhost()';
+    my($sock) = @_;
+    my $addr = $sock->sockaddr;
+    $addr ? inet_ntoa($addr) : undef;
+}
+
+sub peeraddr {
+    @_ == 1 or croak 'usage: $sock->peeraddr()';
+    my($sock) = @_;
+    my $name = $sock->peername;
+    $name ? (sockaddr_in($name))[1] : undef;
+}
+
+sub peerport {
+    @_ == 1 or croak 'usage: $sock->peerport()';
+    my($sock) = @_;
+    my $name = $sock->peername;
+    $name ? (sockaddr_in($name))[0] : undef;
+}
+
+sub peerhost {
+    @_ == 1 or croak 'usage: $sock->peerhost()';
+    my($sock) = @_;
+    my $addr = $sock->peeraddr;
+    $addr ? inet_ntoa($addr) : undef;
+}
+
+1;
+
+__END__
+
+package Hash::Util;
+
+require 5.007003;
+use strict;
+use Carp;
+use warnings;
+no warnings 'uninitialized';
+use warnings::register;
+use Scalar::Util qw(reftype);
+
+require Exporter;
+our @ISA        = qw(Exporter);
+our @EXPORT_OK  = qw(
+                     fieldhash fieldhashes
+
+                     all_keys
+                     lock_keys unlock_keys
+                     lock_value unlock_value
+                     lock_hash unlock_hash
+                     lock_keys_plus
+                     hash_locked hash_unlocked
+                     hashref_locked hashref_unlocked
+                     hidden_keys legal_keys
+
+                     lock_ref_keys unlock_ref_keys
+                     lock_ref_value unlock_ref_value
+                     lock_hashref unlock_hashref
+                     lock_ref_keys_plus
+                     hidden_ref_keys legal_ref_keys
+
+                     hash_seed hash_value hv_store
+                     bucket_stats bucket_stats_formatted bucket_info bucket_array
+                     lock_hash_recurse unlock_hash_recurse
+                     lock_hashref_recurse unlock_hashref_recurse
+
+                     hash_traversal_mask
+
+                     bucket_ratio
+                     used_buckets
+                     num_buckets
+                    );
+BEGIN {
+    # make sure all our XS routines are available early so their prototypes
+    # are correctly applied in the following code.
+    our $VERSION = '0.22';
+    require XSLoader;
+    XSLoader::load();
+}
+
+sub import {
+    my $class = shift;
+    if ( grep /fieldhash/, @_ ) {
+        require Hash::Util::FieldHash;
+        Hash::Util::FieldHash->import(':all'); # for re-export
+    }
+    unshift @_, $class;
+    goto &Exporter::import;
+}
+
+
+
+sub lock_ref_keys {
+    my($hash, @keys) = @_;
+
+    _clear_placeholders(%$hash);
+    if( @keys ) {
+        my %keys = map { ($_ => 1) } @keys;
+        my %original_keys = map { ($_ => 1) } keys %$hash;
+        foreach my $k (keys %original_keys) {
+            croak "Hash has key '$k' which is not in the new key set"
+              unless $keys{$k};
+        }
+
+        foreach my $k (@keys) {
+            $hash->{$k} = undef unless exists $hash->{$k};
+        }
+        Internals::SvREADONLY %$hash, 1;
+
+        foreach my $k (@keys) {
+            delete $hash->{$k} unless $original_keys{$k};
+        }
+    }
+    else {
+        Internals::SvREADONLY %$hash, 1;
+    }
+
+    return $hash;
+}
+
+sub unlock_ref_keys {
+    my $hash = shift;
+
+    Internals::SvREADONLY %$hash, 0;
+    return $hash;
+}
+
+sub   lock_keys (\%;@) {   lock_ref_keys(@_) }
+sub unlock_keys (\%)   { unlock_ref_keys(@_) }
+
+#=item B<_clear_placeholders>
+#
+# This function removes any placeholder keys from a hash. See Perl_hv_clear_placeholders()
+# in hv.c for what it does exactly. It is currently exposed as XS by universal.c and
+# injected into the Hash::Util namespace.
+#
+# It is not intended for use outside of this module, and may be changed
+# or removed without notice or deprecation cycle.
+#
+#=cut
+#
+# sub _clear_placeholders {} # just in case someone searches...
+
+
+
+sub lock_ref_keys_plus {
+    my ($hash,@keys) = @_;
+    my @delete;
+    _clear_placeholders(%$hash);
+    foreach my $key (@keys) {
+        unless (exists($hash->{$key})) {
+            $hash->{$key}=undef;
+            push @delete,$key;
+        }
+    }
+    Internals::SvREADONLY(%$hash,1);
+    delete @{$hash}{@delete};
+    return $hash
+}
+
+sub lock_keys_plus(\%;@) { lock_ref_keys_plus(@_) }
+
+
+
+sub lock_ref_value {
+    my($hash, $key) = @_;
+    # I'm doubtful about this warning, as it seems not to be true.
+    # Marking a value in the hash as RO is useful, regardless
+    # of the status of the hash itself.
+    carp "Cannot usefully lock values in an unlocked hash"
+      if !Internals::SvREADONLY(%$hash) && warnings::enabled;
+    Internals::SvREADONLY $hash->{$key}, 1;
+    return $hash
+}
+
+sub unlock_ref_value {
+    my($hash, $key) = @_;
+    Internals::SvREADONLY $hash->{$key}, 0;
+    return $hash
+}
+
+sub   lock_value (\%$) {   lock_ref_value(@_) }
+sub unlock_value (\%$) { unlock_ref_value(@_) }
+
+
+
+sub lock_hashref {
+    my $hash = shift;
+
+    lock_ref_keys($hash);
+
+    foreach my $value (values %$hash) {
+        Internals::SvREADONLY($value,1);
+    }
+
+    return $hash;
+}
+
+sub unlock_hashref {
+    my $hash = shift;
+
+    foreach my $value (values %$hash) {
+        Internals::SvREADONLY($value, 0);
+    }
+
+    unlock_ref_keys($hash);
+
+    return $hash;
+}
+
+sub   lock_hash (\%) {   lock_hashref(@_) }
+sub unlock_hash (\%) { unlock_hashref(@_) }
+
+
+sub lock_hashref_recurse {
+    my $hash = shift;
+
+    lock_ref_keys($hash);
+    foreach my $value (values %$hash) {
+        my $type = reftype($value);
+        if (defined($type) and $type eq 'HASH') {
+            lock_hashref_recurse($value);
+        }
+        Internals::SvREADONLY($value,1);
+    }
+    return $hash
+}
+
+sub unlock_hashref_recurse {
+    my $hash = shift;
+
+    foreach my $value (values %$hash) {
+        my $type = reftype($value);
+        if (defined($type) and $type eq 'HASH') {
+            unlock_hashref_recurse($value);
+        }
+        Internals::SvREADONLY($value,0);
+    }
+    unlock_ref_keys($hash);
+    return $hash;
+}
+
+sub   lock_hash_recurse (\%) {   lock_hashref_recurse(@_) }
+sub unlock_hash_recurse (\%) { unlock_hashref_recurse(@_) }
+
+
+sub hashref_locked {
+    my $hash=shift;
+    Internals::SvREADONLY(%$hash);
+}
+
+sub hash_locked(\%) { hashref_locked(@_) }
+
+
+sub hashref_unlocked {
+    my $hash=shift;
+    !Internals::SvREADONLY(%$hash);
+}
+
+sub hash_unlocked(\%) { hashref_unlocked(@_) }
+
+
+sub legal_keys(\%) { legal_ref_keys(@_)  }
+sub hidden_keys(\%){ hidden_ref_keys(@_) }
+
+
+
+sub bucket_stats {
+    my ($hash) = @_;
+    my ($keys, $buckets, $used, @length_counts) = bucket_info($hash);
+    my $sum;
+    my $score;
+    for (1 .. $#length_counts) {
+        $sum += ($length_counts[$_] * $_);
+        $score += $length_counts[$_] * ( $_ * ($_ + 1 ) / 2 );
+    }
+    $score = $score /
+             (( $keys / (2 * $buckets )) * ( $keys + ( 2 * $buckets ) - 1 ))
+                 if $keys;
+    my ($mean, $stddev)= (0, 0);
+    if ($used) {
+        $mean= $sum / $used;
+        $sum= 0;
+        $sum += ($length_counts[$_] * (($_-$mean)**2)) for 1 .. $#length_counts;
+
+        $stddev= sqrt($sum/$used);
+    }
+    return $keys, $buckets, $used, $keys ? ($score, $used/$buckets, ($keys-$used)/$keys, $mean, $stddev, @length_counts) : ();
+}
+
+
+
+sub _bucket_stats_formatted_bars {
+    my ($total, $ary, $start_idx, $title, $row_title)= @_;
+
+    my $return = "";
+    my $max_width= $total > 64 ? 64 : $total;
+    my $bar_width= $max_width / $total;
+
+    my $str= "";
+    if ( @$ary < 10) {
+        for my $idx ($start_idx .. $#$ary) {
+            $str .= $idx x sprintf("%.0f", ($ary->[$idx] * $bar_width));
+        }
+    } else {
+        $str= "-" x $max_width;
+    }
+    $return .= sprintf "%-7s         %6d [%s]\n",$title, $total, $str;
+
+    foreach my $idx ($start_idx .. $#$ary) {
+        $return .= sprintf "%-.3s %3d %6.2f%% %6d [%s]\n",
+            $row_title,
+            $idx,
+            $ary->[$idx] / $total * 100,
+            $ary->[$idx],
+            "#" x sprintf("%.0f", ($ary->[$idx] * $bar_width)),
+        ;
+    }
+    return $return;
+}
+
+sub bucket_stats_formatted {
+    my ($hashref)= @_;
+    my ($keys, $buckets, $used, $score, $utilization_ratio, $collision_pct,
+        $mean, $stddev, @length_counts) = bucket_stats($hashref);
+
+    my $return= sprintf   "Keys: %d Buckets: %d/%d Quality-Score: %.2f (%s)\n"
+                        . "Utilized Buckets: %.2f%% Optimal: %.2f%% Keys In Collision: %.2f%%\n"
+                        . "Chain Length - mean: %.2f stddev: %.2f\n",
+                $keys, $used, $buckets, $score, $score <= 1.05 ? "Good" : $score < 1.2 ? "Poor" : "Bad",
+                $utilization_ratio * 100,
+                $keys/$buckets * 100,
+                $collision_pct * 100,
+                $mean, $stddev;
+
+    my @key_depth;
+    $key_depth[$_]= $length_counts[$_] + ( $key_depth[$_+1] || 0 )
+        for reverse 1 .. $#length_counts;
+
+    if ($keys) {
+        $return .= _bucket_stats_formatted_bars($buckets, \@length_counts, 0, "Buckets", "Len");
+        $return .= _bucket_stats_formatted_bars($keys, \@key_depth, 1, "Keys", "Pos");
+    }
+    return $return
+}
+
+
+1;
+# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
+
+package List::Util;
+
+use strict;
+use warnings;
+require Exporter;
+
+our @ISA        = qw(Exporter);
+our @EXPORT_OK  = qw(
+  all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr
+  head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
+);
+our $VERSION    = "1.50";
+our $XS_VERSION = $VERSION;
+$VERSION    = eval $VERSION;
+
+require XSLoader;
+XSLoader::load('List::Util', $XS_VERSION);
+
+sub import
+{
+  my $pkg = caller;
+
+  # (RT88848) Touch the caller's $a and $b, to avoid the warning of
+  #   Name "main::a" used only once: possible typo" warning
+  no strict 'refs';
+  ${"${pkg}::a"} = ${"${pkg}::a"};
+  ${"${pkg}::b"} = ${"${pkg}::b"};
+
+  goto &Exporter::import;
+}
+
+# For objects returned by pairs()
+sub List::Util::_Pair::key   { shift->[0] }
+sub List::Util::_Pair::value { shift->[1] }
+
+
+
+
+
+
+
+
+
+1;
+package List::Util::XS;
+use strict;
+use warnings;
+use List::Util;
+
+our $VERSION = "1.50";       # FIXUP
+$VERSION = eval $VERSION;    # FIXUP
+
+1;
+__END__
+
+#
+# Data/Dumper.pm
+#
+# convert perl data structures into perl syntax suitable for both printing
+# and eval
+#
+# Documentation at the __END__
+#
+
+package Data::Dumper;
+
+BEGIN {
+    $VERSION = '2.170'; # Don't forget to set version and release
+}               # date in POD below!
+
+#$| = 1;
+
+use 5.006_001;
+require Exporter;
+
+use constant IS_PRE_520_PERL => $] < 5.020;
+
+use Carp ();
+
+BEGIN {
+    @ISA = qw(Exporter);
+    @EXPORT = qw(Dumper);
+    @EXPORT_OK = qw(DumperX);
+
+    # if run under miniperl, or otherwise lacking dynamic loading,
+    # XSLoader should be attempted to load, or the pure perl flag
+    # toggled on load failure.
+    eval {
+        require XSLoader;
+        XSLoader::load( 'Data::Dumper' );
+        1
+    }
+    or $Useperl = 1;
+}
+
+my $IS_ASCII  = ord 'A' ==  65;
+
+# module vars and their defaults
+$Indent     = 2         unless defined $Indent;
+$Trailingcomma = 0      unless defined $Trailingcomma;
+$Purity     = 0         unless defined $Purity;
+$Pad        = ""        unless defined $Pad;
+$Varname    = "VAR"     unless defined $Varname;
+$Useqq      = 0         unless defined $Useqq;
+$Terse      = 0         unless defined $Terse;
+$Freezer    = ""        unless defined $Freezer;
+$Toaster    = ""        unless defined $Toaster;
+$Deepcopy   = 0         unless defined $Deepcopy;
+$Quotekeys  = 1         unless defined $Quotekeys;
+$Bless      = "bless"   unless defined $Bless;
+#$Expdepth   = 0         unless defined $Expdepth;
+$Maxdepth   = 0         unless defined $Maxdepth;
+$Pair       = ' => '    unless defined $Pair;
+$Useperl    = 0         unless defined $Useperl;
+$Sortkeys   = 0         unless defined $Sortkeys;
+$Deparse    = 0         unless defined $Deparse;
+$Sparseseen = 0         unless defined $Sparseseen;
+$Maxrecurse = 1000      unless defined $Maxrecurse;
+
+#
+# expects an arrayref of values to be dumped.
+# can optionally pass an arrayref of names for the values.
+# names must have leading $ sign stripped. begin the name with *
+# to cause output of arrays and hashes rather than refs.
+#
+sub new {
+  my($c, $v, $n) = @_;
+
+  Carp::croak("Usage:  PACKAGE->new(ARRAYREF, [ARRAYREF])")
+    unless (defined($v) && (ref($v) eq 'ARRAY'));
+  $n = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
+
+  my($s) = {
+        level      => 0,           # current recursive depth
+        indent     => $Indent,     # various styles of indenting
+        trailingcomma => $Trailingcomma, # whether to add comma after last elem
+        pad        => $Pad,        # all lines prefixed by this string
+        xpad       => "",          # padding-per-level
+        apad       => "",          # added padding for hash keys n such
+        sep        => "",          # list separator
+        pair       => $Pair,    # hash key/value separator: defaults to ' => '
+        seen       => {},          # local (nested) refs (id => [name, val])
+        todump     => $v,          # values to dump []
+        names      => $n,          # optional names for values []
+        varname    => $Varname,    # prefix to use for tagging nameless ones
+        purity     => $Purity,     # degree to which output is evalable
+        useqq      => $Useqq,      # use "" for strings (backslashitis ensues)
+        terse      => $Terse,      # avoid name output (where feasible)
+        freezer    => $Freezer,    # name of Freezer method for objects
+        toaster    => $Toaster,    # name of method to revive objects
+        deepcopy   => $Deepcopy,   # do not cross-ref, except to stop recursion
+        quotekeys  => $Quotekeys,  # quote hash keys
+        'bless'    => $Bless,    # keyword to use for "bless"
+#        expdepth   => $Expdepth,   # cutoff depth for explicit dumping
+        maxdepth   => $Maxdepth,   # depth beyond which we give up
+	maxrecurse => $Maxrecurse, # depth beyond which we abort
+        useperl    => $Useperl,    # use the pure Perl implementation
+        sortkeys   => $Sortkeys,   # flag or filter for sorting hash keys
+        deparse    => $Deparse,    # use B::Deparse for coderefs
+        noseen     => $Sparseseen, # do not populate the seen hash unless necessary
+       };
+
+  if ($Indent > 0) {
+    $s->{xpad} = "  ";
+    $s->{sep} = "\n";
+  }
+  return bless($s, $c);
+}
+
+# Packed numeric addresses take less memory. Plus pack is faster than sprintf
+
+# Most users of current versions of Data::Dumper will be 5.008 or later.
+# Anyone on 5.6.1 and 5.6.2 upgrading will be rare (particularly judging by
+# the bug reports from users on those platforms), so for the common case avoid
+# complexity, and avoid even compiling the unneeded code.
+
+sub init_refaddr_format {
+}
+
+sub format_refaddr {
+    require Scalar::Util;
+    pack "J", Scalar::Util::refaddr(shift);
+};
+
+if ($] < 5.008) {
+    eval <<'EOC' or die;
+    no warnings 'redefine';
+    my $refaddr_format;
+    sub init_refaddr_format {
+        require Config;
+        my $f = $Config::Config{uvxformat};
+        $f =~ tr/"//d;
+        $refaddr_format = "0x%" . $f;
+    }
+
+    sub format_refaddr {
+        require Scalar::Util;
+        sprintf $refaddr_format, Scalar::Util::refaddr(shift);
+    }
+
+    1
+EOC
+}
+
+#
+# add-to or query the table of already seen references
+#
+sub Seen {
+  my($s, $g) = @_;
+  if (defined($g) && (ref($g) eq 'HASH'))  {
+    init_refaddr_format();
+    my($k, $v, $id);
+    while (($k, $v) = each %$g) {
+      if (defined $v) {
+        if (ref $v) {
+          $id = format_refaddr($v);
+          if ($k =~ /^[*](.*)$/) {
+            $k = (ref $v eq 'ARRAY') ? ( "\\\@" . $1 ) :
+                 (ref $v eq 'HASH')  ? ( "\\\%" . $1 ) :
+                 (ref $v eq 'CODE')  ? ( "\\\&" . $1 ) :
+                 (   "\$" . $1 ) ;
+          }
+          elsif ($k !~ /^\$/) {
+            $k = "\$" . $k;
+          }
+          $s->{seen}{$id} = [$k, $v];
+        }
+        else {
+          Carp::carp("Only refs supported, ignoring non-ref item \$$k");
+        }
+      }
+      else {
+        Carp::carp("Value of ref must be defined; ignoring undefined item \$$k");
+      }
+    }
+    return $s;
+  }
+  else {
+    return map { @$_ } values %{$s->{seen}};
+  }
+}
+
+#
+# set or query the values to be dumped
+#
+sub Values {
+  my($s, $v) = @_;
+  if (defined($v)) {
+    if (ref($v) eq 'ARRAY')  {
+      $s->{todump} = [@$v];        # make a copy
+      return $s;
+    }
+    else {
+      Carp::croak("Argument to Values, if provided, must be array ref");
+    }
+  }
+  else {
+    return @{$s->{todump}};
+  }
+}
+
+#
+# set or query the names of the values to be dumped
+#
+sub Names {
+  my($s, $n) = @_;
+  if (defined($n)) {
+    if (ref($n) eq 'ARRAY') {
+      $s->{names} = [@$n];         # make a copy
+      return $s;
+    }
+    else {
+      Carp::croak("Argument to Names, if provided, must be array ref");
+    }
+  }
+  else {
+    return @{$s->{names}};
+  }
+}
+
+sub DESTROY {}
+
+sub Dump {
+  # On old versions of perl, the xs-deparse support can fail
+  # mysteriously. Barring copious spare time, it's best to revert
+  # to the previously standard behavior of using the pure perl dumper
+  # for deparsing on old perls. --Steffen
+  if (IS_PRE_520_PERL and ($Data::Dumper::Deparse or (ref($_[0]) && $_[0]->{deparse}))) {
+    return &Dumpperl;
+  }
+
+  return &Dumpxs
+    unless $Data::Dumper::Useperl || (ref($_[0]) && $_[0]->{useperl})
+            # Use pure perl version on earlier releases on EBCDIC platforms
+        || (! $IS_ASCII && $] lt 5.021_010);
+  return &Dumpperl;
+}
+
+#
+# dump the refs in the current dumper object.
+# expects same args as new() if called via package name.
+#
+sub Dumpperl {
+  my($s) = shift;
+  my(@out, $val, $name);
+  my($i) = 0;
+  local(@post);
+  init_refaddr_format();
+
+  $s = $s->new(@_) unless ref $s;
+
+  for $val (@{$s->{todump}}) {
+    @post = ();
+    $name = $s->{names}[$i++];
+    $name = $s->_refine_name($name, $val, $i);
+
+    my $valstr;
+    {
+      local($s->{apad}) = $s->{apad};
+      $s->{apad} .= ' ' x (length($name) + 3) if $s->{indent} >= 2 and !$s->{terse};
+      $valstr = $s->_dump($val, $name);
+    }
+
+    $valstr = "$name = " . $valstr . ';' if @post or !$s->{terse};
+    my $out = $s->_compose_out($valstr, \@post);
+
+    push @out, $out;
+  }
+  return wantarray ? @out : join('', @out);
+}
+
+# wrap string in single quotes (escaping if needed)
+sub _quote {
+    my $val = shift;
+    $val =~ s/([\\\'])/\\$1/g;
+    return  "'" . $val .  "'";
+}
+
+# Old Perls (5.14-) have trouble resetting vstring magic when it is no
+# longer valid.
+use constant _bad_vsmg => defined &_vstring && (_vstring(~v0)||'') eq "v0";
+
+#
+# twist, toil and turn;
+# and recurse, of course.
+# sometimes sordidly;
+# and curse if no recourse.
+#
+sub _dump {
+  my($s, $val, $name) = @_;
+  my($out, $type, $id, $sname);
+
+  $type = ref $val;
+  $out = "";
+
+  if ($type) {
+
+    # Call the freezer method if it's specified and the object has the
+    # method.  Trap errors and warn() instead of die()ing, like the XS
+    # implementation.
+    my $freezer = $s->{freezer};
+    if ($freezer and UNIVERSAL::can($val, $freezer)) {
+      eval { $val->$freezer() };
+      warn "WARNING(Freezer method call failed): $@" if $@;
+    }
+
+    require Scalar::Util;
+    my $realpack = Scalar::Util::blessed($val);
+    my $realtype = $realpack ? Scalar::Util::reftype($val) : ref $val;
+    $id = format_refaddr($val);
+
+    # Note: By this point $name is always defined and of non-zero length.
+    # Keep a tab on it so that we do not fall into recursive pit.
+    if (exists $s->{seen}{$id}) {
+      if ($s->{purity} and $s->{level} > 0) {
+        $out = ($realtype eq 'HASH')  ? '{}' :
+               ($realtype eq 'ARRAY') ? '[]' :
+               'do{my $o}' ;
+        push @post, $name . " = " . $s->{seen}{$id}[0];
+      }
+      else {
+        $out = $s->{seen}{$id}[0];
+        if ($name =~ /^([\@\%])/) {
+          my $start = $1;
+          if ($out =~ /^\\$start/) {
+            $out = substr($out, 1);
+          }
+          else {
+            $out = $start . '{' . $out . '}';
+          }
+        }
+      }
+      return $out;
+    }
+    else {
+      # store our name
+      $s->{seen}{$id} = [ (
+          ($name =~ /^[@%]/)
+            ? ('\\' . $name )
+            : ($realtype eq 'CODE' and $name =~ /^[*](.*)$/)
+              ? ('\\&' . $1 )
+              : $name
+        ), $val ];
+    }
+    my $no_bless = 0;
+    my $is_regex = 0;
+    if ( $realpack and ($] >= 5.009005 ? re::is_regexp($val) : $realpack eq 'Regexp') ) {
+        $is_regex = 1;
+        $no_bless = $realpack eq 'Regexp';
+    }
+
+    # If purity is not set and maxdepth is set, then check depth:
+    # if we have reached maximum depth, return the string
+    # representation of the thing we are currently examining
+    # at this depth (i.e., 'Foo=ARRAY(0xdeadbeef)').
+    if (!$s->{purity}
+      and defined($s->{maxdepth})
+      and $s->{maxdepth} > 0
+      and $s->{level} >= $s->{maxdepth})
+    {
+      return qq['$val'];
+    }
+
+    # avoid recursing infinitely [perl #122111]
+    if ($s->{maxrecurse} > 0
+        and $s->{level} >= $s->{maxrecurse}) {
+        die "Recursion limit of $s->{maxrecurse} exceeded";
+    }
+
+    # we have a blessed ref
+    my ($blesspad);
+    if ($realpack and !$no_bless) {
+      $out = $s->{'bless'} . '( ';
+      $blesspad = $s->{apad};
+      $s->{apad} .= '       ' if ($s->{indent} >= 2);
+    }
+
+    $s->{level}++;
+    my $ipad = $s->{xpad} x $s->{level};
+
+    if ($is_regex) {
+        my $pat;
+        my $flags = "";
+        if (defined(*re::regexp_pattern{CODE})) {
+          ($pat, $flags) = re::regexp_pattern($val);
+        }
+        else {
+          $pat = "$val";
+        }
+        $pat =~ s <(\\.)|/> { $1 || '\\/' }ge;
+        $out .= "qr/$pat/$flags";
+    }
+    elsif ($realtype eq 'SCALAR' || $realtype eq 'REF'
+    || $realtype eq 'VSTRING') {
+      if ($realpack) {
+        $out .= 'do{\\(my $o = ' . $s->_dump($$val, "\${$name}") . ')}';
+      }
+      else {
+        $out .= '\\' . $s->_dump($$val, "\${$name}");
+      }
+    }
+    elsif ($realtype eq 'GLOB') {
+      $out .= '\\' . $s->_dump($$val, "*{$name}");
+    }
+    elsif ($realtype eq 'ARRAY') {
+      my($pad, $mname);
+      my($i) = 0;
+      $out .= ($name =~ /^\@/) ? '(' : '[';
+      $pad = $s->{sep} . $s->{pad} . $s->{apad};
+      ($name =~ /^\@(.*)$/) ? ($mname = "\$" . $1) :
+    # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
+        ($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
+        ($mname = $name . '->');
+      $mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
+      for my $v (@$val) {
+        $sname = $mname . '[' . $i . ']';
+        $out .= $pad . $ipad . '#' . $i
+          if $s->{indent} >= 3;
+        $out .= $pad . $ipad . $s->_dump($v, $sname);
+        $out .= ","
+            if $i++ < $#$val
+            || ($s->{trailingcomma} && $s->{indent} >= 1);
+      }
+      $out .= $pad . ($s->{xpad} x ($s->{level} - 1)) if $i;
+      $out .= ($name =~ /^\@/) ? ')' : ']';
+    }
+    elsif ($realtype eq 'HASH') {
+      my ($k, $v, $pad, $lpad, $mname, $pair);
+      $out .= ($name =~ /^\%/) ? '(' : '{';
+      $pad = $s->{sep} . $s->{pad} . $s->{apad};
+      $lpad = $s->{apad};
+      $pair = $s->{pair};
+      ($name =~ /^\%(.*)$/) ? ($mname = "\$" . $1) :
+    # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
+        ($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
+        ($mname = $name . '->');
+      $mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
+      my $sortkeys = defined($s->{sortkeys}) ? $s->{sortkeys} : '';
+      my $keys = [];
+      if ($sortkeys) {
+        if (ref($s->{sortkeys}) eq 'CODE') {
+          $keys = $s->{sortkeys}($val);
+          unless (ref($keys) eq 'ARRAY') {
+            Carp::carp("Sortkeys subroutine did not return ARRAYREF");
+            $keys = [];
+          }
+        }
+        else {
+          $keys = [ sort keys %$val ];
+        }
+      }
+
+      # Ensure hash iterator is reset
+      keys(%$val);
+
+      my $key;
+      while (($k, $v) = ! $sortkeys ? (each %$val) :
+         @$keys ? ($key = shift(@$keys), $val->{$key}) :
+         () )
+      {
+        my $nk = $s->_dump($k, "");
+
+        # _dump doesn't quote numbers of this form
+        if ($s->{quotekeys} && $nk =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) {
+          $nk = $s->{useqq} ? qq("$nk") : qq('$nk');
+        }
+        elsif (!$s->{quotekeys} and $nk =~ /^[\"\']([A-Za-z_]\w*)[\"\']$/) {
+          $nk = $1
+        }
+
+        $sname = $mname . '{' . $nk . '}';
+        $out .= $pad . $ipad . $nk . $pair;
+
+        # temporarily alter apad
+        $s->{apad} .= (" " x (length($nk) + 4))
+          if $s->{indent} >= 2;
+        $out .= $s->_dump($val->{$k}, $sname) . ",";
+        $s->{apad} = $lpad
+          if $s->{indent} >= 2;
+      }
+      if (substr($out, -1) eq ',') {
+        chop $out if !$s->{trailingcomma} || !$s->{indent};
+        $out .= $pad . ($s->{xpad} x ($s->{level} - 1));
+      }
+      $out .= ($name =~ /^\%/) ? ')' : '}';
+    }
+    elsif ($realtype eq 'CODE') {
+      if ($s->{deparse}) {
+        require B::Deparse;
+        my $sub =  'sub ' . (B::Deparse->new)->coderef2text($val);
+        $pad    =  $s->{sep} . $s->{pad} . $s->{apad} . $s->{xpad} x ($s->{level} - 1);
+        $sub    =~ s/\n/$pad/gs;
+        $out   .=  $sub;
+      }
+      else {
+        $out .= 'sub { "DUMMY" }';
+        Carp::carp("Encountered CODE ref, using dummy placeholder") if $s->{purity};
+      }
+    }
+    else {
+      Carp::croak("Can't handle '$realtype' type");
+    }
+
+    if ($realpack and !$no_bless) { # we have a blessed ref
+      $out .= ', ' . _quote($realpack) . ' )';
+      $out .= '->' . $s->{toaster} . '()'
+        if $s->{toaster} ne '';
+      $s->{apad} = $blesspad;
+    }
+    $s->{level}--;
+  }
+  else {                                 # simple scalar
+
+    my $ref = \$_[1];
+    my $v;
+    # first, catalog the scalar
+    if ($name ne '') {
+      $id = format_refaddr($ref);
+      if (exists $s->{seen}{$id}) {
+        if ($s->{seen}{$id}[2]) {
+          $out = $s->{seen}{$id}[0];
+          #warn "[<$out]\n";
+          return "\${$out}";
+        }
+      }
+      else {
+        #warn "[>\\$name]\n";
+        $s->{seen}{$id} = ["\\$name", $ref];
+      }
+    }
+    $ref = \$val;
+    if (ref($ref) eq 'GLOB') {  # glob
+      my $name = substr($val, 1);
+      $name =~ s/^main::(?!\z)/::/;
+      if ($name =~ /\A(?:[A-Z_a-z][0-9A-Z_a-z]*)?::(?:[0-9A-Z_a-z]+::)*[0-9A-Z_a-z]*\z/ && $name ne 'main::') {
+        $sname = $name;
+      }
+      else {
+        $sname = $s->_dump(
+          $name eq 'main::' || $] < 5.007 && $name eq "main::\0"
+            ? ''
+            : $name,
+          "",
+        );
+        $sname = '{' . $sname . '}';
+      }
+      if ($s->{purity}) {
+        my $k;
+        local ($s->{level}) = 0;
+        for $k (qw(SCALAR ARRAY HASH)) {
+          my $gval = *$val{$k};
+          next unless defined $gval;
+          next if $k eq "SCALAR" && ! defined $$gval;  # always there
+
+          # _dump can push into @post, so we hold our place using $postlen
+          my $postlen = scalar @post;
+          $post[$postlen] = "\*$sname = ";
+          local ($s->{apad}) = " " x length($post[$postlen]) if $s->{indent} >= 2;
+          $post[$postlen] .= $s->_dump($gval, "\*$sname\{$k\}");
+        }
+      }
+      $out .= '*' . $sname;
+    }
+    elsif (!defined($val)) {
+      $out .= "undef";
+    }
+    elsif (defined &_vstring and $v = _vstring($val)
+      and !_bad_vsmg || eval $v eq $val) {
+      $out .= $v;
+    }
+    elsif (!defined &_vstring
+       and ref $ref eq 'VSTRING' || eval{Scalar::Util::isvstring($val)}) {
+      $out .= sprintf "%vd", $val;
+    }
+    # \d here would treat "1\x{660}" as a safe decimal number
+    elsif ($val =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) { # safe decimal number
+      $out .= $val;
+    }
+    else {                 # string
+      if ($s->{useqq} or $val =~ tr/\0-\377//c) {
+        # Fall back to qq if there's Unicode
+        $out .= qquote($val, $s->{useqq});
+      }
+      else {
+        $out .= _quote($val);
+      }
+    }
+  }
+  if ($id) {
+    # if we made it this far, $id was added to seen list at current
+    # level, so remove it to get deep copies
+    if ($s->{deepcopy}) {
+      delete($s->{seen}{$id});
+    }
+    elsif ($name) {
+      $s->{seen}{$id}[2] = 1;
+    }
+  }
+  return $out;
+}
+
+#
+# non-OO style of earlier version
+#
+sub Dumper {
+  return Data::Dumper->Dump([@_]);
+}
+
+# compat stub
+sub DumperX {
+  return Data::Dumper->Dumpxs([@_], []);
+}
+
+#
+# reset the "seen" cache
+#
+sub Reset {
+  my($s) = shift;
+  $s->{seen} = {};
+  return $s;
+}
+
+sub Indent {
+  my($s, $v) = @_;
+  if (@_ >= 2) {
+    if ($v == 0) {
+      $s->{xpad} = "";
+      $s->{sep} = "";
+    }
+    else {
+      $s->{xpad} = "  ";
+      $s->{sep} = "\n";
+    }
+    $s->{indent} = $v;
+    return $s;
+  }
+  else {
+    return $s->{indent};
+  }
+}
+
+sub Trailingcomma {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{trailingcomma} = $v), return $s) : $s->{trailingcomma};
+}
+
+sub Pair {
+    my($s, $v) = @_;
+    @_ >= 2 ? (($s->{pair} = $v), return $s) : $s->{pair};
+}
+
+sub Pad {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{pad} = $v), return $s) : $s->{pad};
+}
+
+sub Varname {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{varname} = $v), return $s) : $s->{varname};
+}
+
+sub Purity {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{purity} = $v), return $s) : $s->{purity};
+}
+
+sub Useqq {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{useqq} = $v), return $s) : $s->{useqq};
+}
+
+sub Terse {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{terse} = $v), return $s) : $s->{terse};
+}
+
+sub Freezer {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{freezer} = $v), return $s) : $s->{freezer};
+}
+
+sub Toaster {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{toaster} = $v), return $s) : $s->{toaster};
+}
+
+sub Deepcopy {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{deepcopy} = $v), return $s) : $s->{deepcopy};
+}
+
+sub Quotekeys {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{quotekeys} = $v), return $s) : $s->{quotekeys};
+}
+
+sub Bless {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'bless'} = $v), return $s) : $s->{'bless'};
+}
+
+sub Maxdepth {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'maxdepth'} = $v), return $s) : $s->{'maxdepth'};
+}
+
+sub Maxrecurse {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'maxrecurse'} = $v), return $s) : $s->{'maxrecurse'};
+}
+
+sub Useperl {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'useperl'} = $v), return $s) : $s->{'useperl'};
+}
+
+sub Sortkeys {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'sortkeys'} = $v), return $s) : $s->{'sortkeys'};
+}
+
+sub Deparse {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'deparse'} = $v), return $s) : $s->{'deparse'};
+}
+
+sub Sparseseen {
+  my($s, $v) = @_;
+  @_ >= 2 ? (($s->{'noseen'} = $v), return $s) : $s->{'noseen'};
+}
+
+# used by qquote below
+my %esc = (
+    "\a" => "\\a",
+    "\b" => "\\b",
+    "\t" => "\\t",
+    "\n" => "\\n",
+    "\f" => "\\f",
+    "\r" => "\\r",
+    "\e" => "\\e",
+);
+
+my $low_controls = ($IS_ASCII)
+
+                   # This includes \177, because traditionally it has been
+                   # output as octal, even though it isn't really a "low"
+                   # control
+                   ? qr/[\0-\x1f\177]/
+
+                     # EBCDIC low controls.
+                   : qr/[\0-\x3f]/;
+
+# put a string value in double quotes
+sub qquote {
+  local($_) = shift;
+  s/([\\\"\@\$])/\\$1/g;
+
+  # This efficiently changes the high ordinal characters to \x{} if the utf8
+  # flag is on.  On ASCII platforms, the high ordinals are all the
+  # non-ASCII's.  On EBCDIC platforms, we don't include in these the non-ASCII
+  # controls whose ordinals are less than SPACE, excluded below by the range
+  # \0-\x3f.  On ASCII platforms this range just compiles as part of :ascii:.
+  # On EBCDIC platforms, there is just one outlier high ordinal control, and
+  # it gets output as \x{}.
+  my $bytes; { use bytes; $bytes = length }
+  s/([^[:ascii:]\0-\x3f])/sprintf("\\x{%x}",ord($1))/ge
+    if $bytes > length
+
+       # The above doesn't get the EBCDIC outlier high ordinal control when
+       # the string is UTF-8 but there are no UTF-8 variant characters in it.
+       # We want that to come out as \x{} anyway.  We need is_utf8() to do
+       # this.
+       || (! $IS_ASCII && $] ge 5.008_001 && utf8::is_utf8($_));
+
+  return qq("$_") unless /[[:^print:]]/;  # fast exit if only printables
+
+  # Here, there is at least one non-printable to output.  First, translate the
+  # escapes.
+  s/([\a\b\t\n\f\r\e])/$esc{$1}/g;
+
+  # no need for 3 digits in escape for octals not followed by a digit.
+  s/($low_controls)(?!\d)/'\\'.sprintf('%o',ord($1))/eg;
+
+  # But otherwise use 3 digits
+  s/($low_controls)/'\\'.sprintf('%03o',ord($1))/eg;
+
+    # all but last branch below not supported --BEHAVIOR SUBJECT TO CHANGE--
+  my $high = shift || "";
+    if ($high eq "iso8859") {   # Doesn't escape the Latin1 printables
+      if ($IS_ASCII) {
+        s/([\200-\240])/'\\'.sprintf('%o',ord($1))/eg;
+      }
+      elsif ($] ge 5.007_003) {
+        my $high_control = utf8::unicode_to_native(0x9F);
+        s/$high_control/sprintf('\\%o',ord($1))/eg;
+      }
+    } elsif ($high eq "utf8") {
+#     Some discussion of what to do here is in
+#       https://rt.perl.org/Ticket/Display.html?id=113088
+#     use utf8;
+#     $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
+    } elsif ($high eq "8bit") {
+        # leave it as it is
+    } else {
+      s/([[:^ascii:]])/'\\'.sprintf('%03o',ord($1))/eg;
+      #s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
+    }
+
+  return qq("$_");
+}
+
+# helper sub to sort hash keys in Perl < 5.8.0 where we don't have
+# access to sortsv() from XS
+sub _sortkeys { [ sort keys %{$_[0]} ] }
+
+sub _refine_name {
+    my $s = shift;
+    my ($name, $val, $i) = @_;
+    if (defined $name) {
+      if ($name =~ /^[*](.*)$/) {
+        if (defined $val) {
+            $name = (ref $val eq 'ARRAY') ? ( "\@" . $1 ) :
+              (ref $val eq 'HASH')  ? ( "\%" . $1 ) :
+              (ref $val eq 'CODE')  ? ( "\*" . $1 ) :
+              ( "\$" . $1 ) ;
+        }
+        else {
+          $name = "\$" . $1;
+        }
+      }
+      elsif ($name !~ /^\$/) {
+        $name = "\$" . $name;
+      }
+    }
+    else { # no names provided
+      $name = "\$" . $s->{varname} . $i;
+    }
+    return $name;
+}
+
+sub _compose_out {
+    my $s = shift;
+    my ($valstr, $postref) = @_;
+    my $out = "";
+    $out .= $s->{pad} . $valstr . $s->{sep};
+    if (@{$postref}) {
+        $out .= $s->{pad} .
+            join(';' . $s->{sep} . $s->{pad}, @{$postref}) .
+            ';' .
+            $s->{sep};
+    }
+    return $out;
+}
+
+1;
+__END__
+
+package Cpanel::JSON::XS;
+our $VERSION = '4.09';
+our $XS_VERSION = $VERSION;
+# $VERSION = eval $VERSION;
+
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(encode_json decode_json to_json from_json);
+
+sub to_json($@) {
+   if ($] >= 5.008) {
+     require Carp;
+     Carp::croak ("Cpanel::JSON::XS::to_json has been renamed to encode_json,".
+                  " either downgrade to pre-2.0 versions of Cpanel::JSON::XS or".
+                  " rename the call");
+   } else {
+     _to_json(@_);
+   }
+}
+
+sub from_json($@) {
+   if ($] >= 5.008) {
+     require Carp;
+     Carp::croak ("Cpanel::JSON::XS::from_json has been renamed to decode_json,".
+                  " either downgrade to pre-2.0 versions of Cpanel::JSON::XS or".
+                  " rename the call");
+   } else {
+     _from_json(@_);
+   }
+}
+
+use Exporter;
+use XSLoader;
+
+
+sub allow_bigint {
+    Carp::carp("allow_bigint() is obsoleted. use allow_bignum() instead.");
+}
+
+BEGIN {
+  package
+    JSON::PP::Boolean;
+
+  require overload;
+
+  local $^W; # silence redefine warnings. no warnings 'redefine' does not help
+  &overload::import( 'overload', # workaround 5.6 reserved keyword warning
+    "0+"     => sub { ${$_[0]} },
+    "++"     => sub { $_[0] = ${$_[0]} + 1 },
+    "--"     => sub { $_[0] = ${$_[0]} - 1 },
+    '""'     => sub { ${$_[0]} == 1 ? '1' : '0' }, # GH 29
+    'eq'     => sub {
+      my ($obj, $op) = $_[2] ? ($_[1], $_[0]) : ($_[0], $_[1]);
+      #warn "eq obj:$obj op:$op len:", length($op) > 0, " swap:$_[2]";
+      if (ref $op) { # if 2nd also blessed might recurse endlessly
+        return $obj ? 1 == $op : 0 == $op;
+      }
+      # if string, only accept numbers or true|false or "" (e.g. !!0 / SV_NO)
+      elsif ($op !~ /^[0-9]+$/) {
+        return "$obj" eq '1' ? 'true' eq $op : 'false' eq $op || "" eq $op;
+      }
+      else {
+        return $obj ? 1 == $op : 0 == $op;
+      }
+    },
+    'ne'     => sub {
+      my ($obj, $op) = $_[2] ? ($_[1], $_[0]) : ($_[0], $_[1]);
+      #warn "ne obj:$obj op:$op";
+      return !($obj eq $op);
+    },
+    fallback => 1);
+}
+
+our ($true, $false);
+BEGIN {
+  if ($INC{'JSON/XS.pm'}
+      and $INC{'Types/Serialiser.pm'}
+      and $JSON::XS::VERSION ge "3.00") {
+    $true  = $Types::Serialiser::true; # readonly if loaded by JSON::XS
+    $false = $Types::Serialiser::false;
+  } else {
+    $true  = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
+    $false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
+  }
+}
+
+BEGIN {
+  my $const_true  = $true;
+  my $const_false = $false;
+  *true  = sub () { $const_true  };
+  *false = sub () { $const_false };
+}
+
+sub is_bool($) {
+  shift if @_ == 2; # as method call
+  (ref($_[0]) and UNIVERSAL::isa( $_[0], JSON::PP::Boolean::))
+  or (exists $INC{'Types/Serialiser.pm'} and Types::Serialiser::is_bool($_[0]))
+}
+
+XSLoader::load 'Cpanel::JSON::XS', $XS_VERSION;
+
+1;
+
+
+package Cpanel::JSON::XS::Type;
+
+
+use strict;
+use warnings;
+
+BEGIN {
+  if (eval { require Scalar::Util }) {
+    Scalar::Util->import('weaken');
+  } else {
+    *weaken = sub($) { die 'Scalar::Util is required for weaken' };
+  }
+}
+
+# This exports needed XS constants to perl
+use Cpanel::JSON::XS ();
+
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = our @EXPORT_OK = qw(
+  json_type_arrayof
+  json_type_hashof
+  json_type_anyof
+  json_type_null_or_anyof
+  json_type_weaken
+  JSON_TYPE_NULL
+  JSON_TYPE_BOOL
+  JSON_TYPE_INT
+  JSON_TYPE_FLOAT
+  JSON_TYPE_STRING
+  JSON_TYPE_BOOL_OR_NULL
+  JSON_TYPE_INT_OR_NULL
+  JSON_TYPE_FLOAT_OR_NULL
+  JSON_TYPE_STRING_OR_NULL
+  JSON_TYPE_ARRAYOF_CLASS
+  JSON_TYPE_HASHOF_CLASS
+  JSON_TYPE_ANYOF_CLASS
+);
+
+use constant JSON_TYPE_WEAKEN_CLASS => 'Cpanel::JSON::XS::Type::Weaken';
+
+sub json_type_anyof {
+  my ($scalar, $array, $hash);
+  my ($scalar_weaken, $array_weaken, $hash_weaken);
+  foreach (@_) {
+    my $type = $_;
+    my $ref = ref($_);
+    my $weaken;
+    if ($ref eq JSON_TYPE_WEAKEN_CLASS) {
+      $type = ${$type};
+      $ref = ref($type);
+      $weaken = 1;
+    }
+    if ($ref eq '') {
+      die 'Only one scalar type can be specified in anyof' if defined $scalar;
+      $scalar = $type;
+      $scalar_weaken = $weaken;
+    } elsif ($ref eq 'ARRAY' or $ref eq JSON_TYPE_ARRAYOF_CLASS) {
+      die 'Only one array type can be specified in anyof' if defined $array;
+      $array = $type;
+      $array_weaken = $weaken;
+    } elsif ($ref eq 'HASH' or $ref eq JSON_TYPE_HASHOF_CLASS) {
+      die 'Only one hash type can be specified in anyof' if defined $hash;
+      $hash = $type;
+      $hash_weaken = $weaken;
+    } else {
+      die 'Only scalar, array or hash can be specified in anyof';
+    }
+  }
+  my $type = [$scalar, $array, $hash];
+  weaken $type->[0] if $scalar_weaken;
+  weaken $type->[1] if $array_weaken;
+  weaken $type->[2] if $hash_weaken;
+  return bless $type, JSON_TYPE_ANYOF_CLASS;
+}
+
+sub json_type_null_or_anyof {
+  foreach (@_) {
+    die 'Scalar cannot be specified in null_or_anyof' if ref($_) eq '';
+  }
+  return json_type_anyof(JSON_TYPE_CAN_BE_NULL, @_);
+}
+
+sub json_type_arrayof {
+  die 'Exactly one type must be specified in arrayof' if scalar @_ != 1;
+  my $type = $_[0];
+  if (ref($type) eq JSON_TYPE_WEAKEN_CLASS) {
+    $type = ${$type};
+    weaken $type;
+  }
+  return bless \$type, JSON_TYPE_ARRAYOF_CLASS;
+}
+
+sub json_type_hashof {
+  die 'Exactly one type must be specified in hashof' if scalar @_ != 1;
+  my $type = $_[0];
+  if (ref($type) eq JSON_TYPE_WEAKEN_CLASS) {
+    $type = ${$type};
+    weaken $type;
+  }
+  return bless \$type, JSON_TYPE_HASHOF_CLASS;
+}
+
+sub json_type_weaken {
+  die 'Exactly one type must be specified in weaken' if scalar @_ != 1;
+  die 'Scalar cannot be specfied in weaken' if ref($_[0]) eq '';
+  return bless \(my $type = $_[0]), JSON_TYPE_WEAKEN_CLASS;
+}
+
+1;
+
+use Cpanel::JSON::XS ();
+
+1;
+
+
+package File::Spec;
+
+use strict;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+my %module = (
+	      MSWin32 => 'Win32',
+	      os2     => 'OS2',
+	      VMS     => 'VMS',
+	      NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
+	      symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
+	      dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
+	      cygwin  => 'Cygwin',
+	      amigaos => 'AmigaOS');
+
+
+my $module = $module{$^O} || 'Unix';
+
+require "File/Spec/$module.pm";
+our @ISA = ("File::Spec::$module");
+
+1;
+
+__END__
+
+package File::Glob;
+
+use strict;
+our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
+
+require XSLoader;
+
+@ISA = qw(Exporter);
+
+# NOTE: The glob() export is only here for compatibility with 5.6.0.
+# csh_glob() should not be used directly, unless you know what you're doing.
+
+%EXPORT_TAGS = (
+    'glob' => [ qw(
+        GLOB_ABEND
+	GLOB_ALPHASORT
+        GLOB_ALTDIRFUNC
+        GLOB_BRACE
+        GLOB_CSH
+        GLOB_ERR
+        GLOB_ERROR
+        GLOB_LIMIT
+        GLOB_MARK
+        GLOB_NOCASE
+        GLOB_NOCHECK
+        GLOB_NOMAGIC
+        GLOB_NOSORT
+        GLOB_NOSPACE
+        GLOB_QUOTE
+        GLOB_TILDE
+        bsd_glob
+        glob
+    ) ],
+);
+$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
+pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
+
+@EXPORT_OK   = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
+
+$VERSION = '1.31';
+
+sub import {
+    require Exporter;
+    local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+    Exporter::import(grep {
+        my $passthrough;
+        if ($_ eq ':case') {
+            $DEFAULT_FLAGS &= ~GLOB_NOCASE()
+        }
+        elsif ($_ eq ':nocase') {
+            $DEFAULT_FLAGS |= GLOB_NOCASE();
+        }
+        elsif ($_ eq ':globally') {
+	    no warnings 'redefine';
+	    *CORE::GLOBAL::glob = \&File::Glob::csh_glob;
+	}
+        elsif ($_ eq ':bsd_glob') {
+	    no strict; *{caller."::glob"} = \&bsd_glob_override;
+            $passthrough = 1;
+	}
+	else {
+            $passthrough = 1;
+        }
+        $passthrough;
+    } @_);
+}
+
+XSLoader::load();
+
+$DEFAULT_FLAGS = GLOB_CSH();
+if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
+    $DEFAULT_FLAGS |= GLOB_NOCASE();
+}
+
+# File::Glob::glob() is deprecated because its prototype is different from
+# CORE::glob() (use bsd_glob() instead)
+sub glob {
+    use 5.024;
+    use warnings ();
+    warnings::warnif (deprecated =>
+         "File::Glob::glob() will disappear in perl 5.30. " .
+         "Use File::Glob::bsd_glob() instead.") unless state $warned ++;
+
+    splice @_, 1; # no flags
+    goto &bsd_glob;
+}
+
+1;
+__END__
+
+package File::Spec::Win32;
+
+use strict;
+
+use Cwd ();
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+# Some regexes we use for path splitting
+my $DRIVE_RX = '[a-zA-Z]:';
+my $UNC_RX = '(?:\\\\\\\\|//)[^\\\\/]+[\\\\/][^\\\\/]+';
+my $VOL_RX = "(?:$DRIVE_RX|$UNC_RX)";
+
+
+
+sub devnull {
+    return "nul";
+}
+
+sub rootdir { '\\' }
+
+
+
+sub tmpdir {
+    my $tmpdir = $_[0]->_cached_tmpdir(qw(TMPDIR TEMP TMP));
+    return $tmpdir if defined $tmpdir;
+    $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ),
+			      'SYS:/temp',
+			      'C:\system\temp',
+			      'C:/temp',
+			      '/tmp',
+			      '/'  );
+    $_[0]->_cache_tmpdir($tmpdir, qw(TMPDIR TEMP TMP));
+}
+
+
+sub case_tolerant {
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Win32API::File;
+  } or return 1;
+  my $drive = shift || "C:";
+  my $osFsType = "\0"x256;
+  my $osVolName = "\0"x256;
+  my $ouFsFlags = 0;
+  Win32API::File::GetVolumeInformation($drive, $osVolName, 256, [], [], $ouFsFlags, $osFsType, 256 );
+  if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { return 0; }
+  else { return 1; }
+}
+
+
+sub file_name_is_absolute {
+
+    my ($self,$file) = @_;
+
+    if ($file =~ m{^($VOL_RX)}o) {
+      my $vol = $1;
+      return ($vol =~ m{^$UNC_RX}o ? 2
+	      : $file =~ m{^$DRIVE_RX[\\/]}o ? 2
+	      : 0);
+    }
+    return $file =~  m{^[\\/]} ? 1 : 0;
+}
+
+
+sub catfile {
+    shift;
+
+    # Legacy / compatibility support
+    #
+    shift, return _canon_cat( "/", @_ )
+	if $_[0] eq "";
+
+    # Compatibility with File::Spec <= 3.26:
+    #     catfile('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
+
+    return _canon_cat( @_ );
+}
+
+sub catdir {
+    shift;
+
+    # Legacy / compatibility support
+    #
+    return ""
+    	unless @_;
+    shift, return _canon_cat( "/", @_ )
+	if $_[0] eq "";
+
+    # Compatibility with File::Spec <= 3.26:
+    #     catdir('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
+
+    return _canon_cat( @_ );
+}
+
+sub path {
+    my @path = split(';', $ENV{PATH});
+    s/"//g for @path;
+    @path = grep length, @path;
+    unshift(@path, ".");
+    return @path;
+}
+
+
+sub canonpath {
+    # Legacy / compatibility support
+    #
+    return $_[1] if !defined($_[1]) or $_[1] eq '';
+    return _canon_cat( $_[1] );
+}
+
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file) = ('','','');
+    if ( $nofile ) {
+        $path =~ 
+            m{^ ( $VOL_RX ? ) (.*) }sox;
+        $volume    = $1;
+        $directory = $2;
+    }
+    else {
+        $path =~ 
+            m{^ ( $VOL_RX ? )
+                ( (?:.*[\\/](?:\.\.?\Z(?!\n))?)? )
+                (.*)
+             }sox;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+
+sub splitdir {
+    my ($self,$directories) = @_ ;
+    #
+    # split() likes to forget about trailing null fields, so here we
+    # check to be sure that there will not be any before handling the
+    # simple case.
+    #
+    if ( $directories !~ m|[\\/]\Z(?!\n)| ) {
+        return split( m|[\\/]|, $directories );
+    }
+    else {
+        #
+        # since there was a trailing separator, add a file name to the end, 
+        # then do the split, then replace it with ''.
+        #
+        my( @directories )= split( m|[\\/]|, "${directories}dummy" ) ;
+        $directories[ $#directories ]= '' ;
+        return @directories ;
+    }
+}
+
+
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    # If it's UNC, make sure the glue separator is there, reusing
+    # whatever separator is first in the $volume
+    my $v;
+    $volume .= $v
+        if ( (($v) = $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s) &&
+             $directory =~ m@^[^\\/]@s
+           ) ;
+
+    $volume .= $directory ;
+
+    # If the volume is not just A:, make sure the glue separator is 
+    # there, reusing whatever separator is first in the $volume if possible.
+    if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
+         $volume =~ m@[^\\/]\Z(?!\n)@      &&
+         $file   =~ m@[^\\/]@
+       ) {
+        $volume =~ m@([\\/])@ ;
+        my $sep = $1 ? $1 : '\\' ;
+        $volume .= $sep ;
+    }
+
+    $volume .= $file ;
+
+    return $volume ;
+}
+
+sub _same {
+  lc($_[1]) eq lc($_[2]);
+}
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    my $is_abs = $self->file_name_is_absolute($path);
+
+    # Check for volume (should probably document the '2' thing...)
+    return $self->canonpath( $path ) if $is_abs == 2;
+
+    if ($is_abs) {
+      # It's missing a volume, add one
+      my $vol = ($self->splitpath( Cwd::getcwd() ))[0];
+      return $self->canonpath( $vol . $path );
+    }
+
+    if ( !defined( $base ) || $base eq '' ) {
+      $base = Cwd::getdcwd( ($self->splitpath( $path ))[0] ) if defined &Cwd::getdcwd ;
+      $base = Cwd::getcwd() unless defined $base ;
+    }
+    elsif ( ! $self->file_name_is_absolute( $base ) ) {
+      $base = $self->rel2abs( $base ) ;
+    }
+    else {
+      $base = $self->canonpath( $base ) ;
+    }
+
+    my ( $path_directories, $path_file ) =
+      ($self->splitpath( $path, 1 ))[1,2] ;
+
+    my ( $base_volume, $base_directories ) =
+      $self->splitpath( $base, 1 ) ;
+
+    $path = $self->catpath( 
+			   $base_volume, 
+			   $self->catdir( $base_directories, $path_directories ), 
+			   $path_file
+			  ) ;
+
+    return $self->canonpath( $path ) ;
+}
+
+
+
+sub _canon_cat				# @path -> path
+{
+    my ($first, @rest) = @_;
+
+    my $volume = $first =~ s{ \A ([A-Za-z]:) ([\\/]?) }{}x	# drive letter
+    	       ? ucfirst( $1 ).( $2 ? "\\" : "" )
+	       : $first =~ s{ \A (?:\\\\|//) ([^\\/]+)
+				 (?: [\\/] ([^\\/]+) )?
+	       			 [\\/]? }{}xs			# UNC volume
+	       ? "\\\\$1".( defined $2 ? "\\$2" : "" )."\\"
+	       : $first =~ s{ \A [\\/] }{}x			# root dir
+	       ? "\\"
+	       : "";
+    my $path   = join "\\", $first, @rest;
+
+    $path =~ tr#\\/#\\\\#s;		# xx/yy --> xx\yy & xx\\yy --> xx\yy
+
+    					# xx/././yy --> xx/yy
+    $path =~ s{(?:
+		(?:\A|\\)		# at begin or after a slash
+		\.
+		(?:\\\.)*		# and more
+		(?:\\|\z) 		# at end or followed by slash
+	       )+			# performance boost -- I do not know why
+	     }{\\}gx;
+
+    # XXX I do not know whether more dots are supported by the OS supporting
+    #     this ... annotation (NetWare or symbian but not MSWin32).
+    #     Then .... could easily become ../../.. etc:
+    # Replace \.\.\. by (\.\.\.+)  and substitute with
+    # { $1 . ".." . "\\.." x (length($2)-2) }gex
+	     				# ... --> ../..
+    $path =~ s{ (\A|\\)			# at begin or after a slash
+    		\.\.\.
+		(?=\\|\z) 		# at end or followed by slash
+	     }{$1..\\..}gx;
+    					# xx\yy\..\zz --> xx\zz
+    while ( $path =~ s{(?:
+		(?:\A|\\)		# at begin or after a slash
+		[^\\]+			# rip this 'yy' off
+		\\\.\.
+		(?<!\A\.\.\\\.\.)	# do *not* replace ^..\..
+		(?<!\\\.\.\\\.\.)	# do *not* replace \..\..
+		(?:\\|\z) 		# at end or followed by slash
+	       )+			# performance boost -- I do not know why
+	     }{\\}sx ) {}
+
+    $path =~ s#\A\\##;			# \xx --> xx  NOTE: this is *not* root
+    $path =~ s#\\\z##;			# xx\ --> xx
+
+    if ( $volume =~ m#\\\z# )
+    {					# <vol>\.. --> <vol>\
+	$path =~ s{ \A			# at begin
+		    \.\.
+		    (?:\\\.\.)*		# and more
+		    (?:\\|\z) 		# at end or followed by slash
+		 }{}x;
+
+	return $1			# \\HOST\SHARE\ --> \\HOST\SHARE
+	    if    $path eq ""
+	      and $volume =~ m#\A(\\\\.*)\\\z#s;
+    }
+    return $path ne "" || $volume ? $volume.$path : ".";
+}
+
+1;
+package File::Spec::Cygwin;
+
+use strict;
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+
+
+sub canonpath {
+    my($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s|\\|/|g;
+
+    # Handle network path names beginning with double slash
+    my $node = '';
+    if ( $path =~ s@^(//[^/]+)(?:/|\z)@/@s ) {
+        $node = $1;
+    }
+    return $node . $self->SUPER::canonpath($path);
+}
+
+sub catdir {
+    my $self = shift;
+    return unless @_;
+
+    # Don't create something that looks like a //network/path
+    if ($_[0] and ($_[0] eq '/' or $_[0] eq '\\')) {
+        shift;
+        return $self->SUPER::catdir('', @_);
+    }
+
+    $self->SUPER::catdir(@_);
+}
+
+
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
+    return $self->SUPER::file_name_is_absolute($file);
+}
+
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir(qw 'TMPDIR TMP TEMP');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir(
+        $_[0]->_tmpdir(
+            $ENV{TMPDIR}, "/tmp", $ENV{'TMP'}, $ENV{'TEMP'}, 'C:/temp'
+        ),
+        qw 'TMPDIR TMP TEMP'
+    );
+}
+
+
+sub case_tolerant {
+  return 1 unless $^O eq 'cygwin'
+    and defined &Cygwin::mount_flags;
+
+  my $drive = shift;
+  if (! $drive) {
+      my @flags = split(/,/, Cygwin::mount_flags('/cygwin'));
+      my $prefix = pop(@flags);
+      if (! $prefix || $prefix eq 'cygdrive') {
+          $drive = '/cygdrive/c';
+      } elsif ($prefix eq '/') {
+          $drive = '/c';
+      } else {
+          $drive = "$prefix/c";
+      }
+  }
+  my $mntopts = Cygwin::mount_flags($drive);
+  if ($mntopts and ($mntopts =~ /,managed/)) {
+    return 0;
+  }
+  eval {
+      local @INC = @INC;
+      pop @INC if $INC[-1] eq '.';
+      require Win32API::File;
+  } or return 1;
+  my $osFsType = "\0"x256;
+  my $osVolName = "\0"x256;
+  my $ouFsFlags = 0;
+  Win32API::File::GetVolumeInformation($drive, $osVolName, 256, [], [], $ouFsFlags, $osFsType, 256 );
+  if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { return 0; }
+  else { return 1; }
+}
+
+
+1;
+package File::Spec::VMS;
+
+use strict;
+use Cwd ();
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+use File::Basename;
+use VMS::Filespec;
+
+
+# Need to look up the feature settings.  The preferred way is to use the
+# VMS::Feature module, but that may not be available to dual life modules.
+
+my $use_feature;
+BEGIN {
+    if (eval { local $SIG{__DIE__};
+               local @INC = @INC;
+               pop @INC if $INC[-1] eq '.';
+               require VMS::Feature; }) {
+        $use_feature = 1;
+    }
+}
+
+# Need to look up the UNIX report mode.  This may become a dynamic mode
+# in the future.
+sub _unix_rpt {
+    my $unix_rpt;
+    if ($use_feature) {
+        $unix_rpt = VMS::Feature::current("filename_unix_report");
+    } else {
+        my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; 
+    }
+    return $unix_rpt;
+}
+
+
+
+sub canonpath {
+    my($self,$path) = @_;
+
+    return undef unless defined $path;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    if ($path =~ m|/|) {
+      my $pathify = $path =~ m|/\Z(?!\n)|;
+      $path = $self->SUPER::canonpath($path);
+
+      return $path if $unix_rpt;
+      $path = $pathify ? vmspath($path) : vmsify($path);
+    }
+
+    $path =~ s/(?<!\^)</[/;			# < and >       ==> [ and ]
+    $path =~ s/(?<!\^)>/]/;
+    $path =~ s/(?<!\^)\]\[\./\.\]\[/g;		# ][.		==> .][
+    $path =~ s/(?<!\^)\[000000\.\]\[/\[/g;	# [000000.][	==> [
+    $path =~ s/(?<!\^)\[000000\./\[/g;		# [000000.	==> [
+    $path =~ s/(?<!\^)\.\]\[000000\]/\]/g;	# .][000000]	==> ]
+    $path =~ s/(?<!\^)\.\]\[/\./g;		# foo.][bar     ==> foo.bar
+    1 while ($path =~ s/(?<!\^)([\[\.])(-+)\.(-+)([\.\]])/$1$2$3$4/);
+						# That loop does the following
+						# with any amount of dashes:
+						# .-.-.		==> .--.
+						# [-.-.		==> [--.
+						# .-.-]		==> .--]
+						# [-.-]		==> [--]
+    1 while ($path =~ s/(?<!\^)([\[\.])(?:\^.|[^\]\.])+\.-(-+)([\]\.])/$1$2$3/);
+						# That loop does the following
+						# with any amount (minimum 2)
+						# of dashes:
+						# .foo.--.	==> .-.
+						# .foo.--]	==> .-]
+						# [foo.--.	==> [-.
+						# [foo.--]	==> [-]
+						#
+						# And then, the remaining cases
+    $path =~ s/(?<!\^)\[\.-/[-/;		# [.-		==> [-
+    $path =~ s/(?<!\^)\.(?:\^.|[^\]\.])+\.-\./\./g;	# .foo.-.	==> .
+    $path =~ s/(?<!\^)\[(?:\^.|[^\]\.])+\.-\./\[/g;	# [foo.-.	==> [
+    $path =~ s/(?<!\^)\.(?:\^.|[^\]\.])+\.-\]/\]/g;	# .foo.-]	==> ]
+						# [foo.-]       ==> [000000]
+    $path =~ s/(?<!\^)\[(?:\^.|[^\]\.])+\.-\]/\[000000\]/g;
+						# []		==>
+    $path =~ s/(?<!\^)\[\]// unless $path eq '[]';
+    return $unix_rpt ? unixify($path) : $path;
+}
+
+
+sub catdir {
+    my $self = shift;
+    my $dir = pop;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    my @dirs = grep {defined() && length()} @_;
+
+    my $rslt;
+    if (@dirs) {
+	my $path = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs));
+	my ($spath,$sdir) = ($path,$dir);
+	$spath =~ s/\.dir\Z(?!\n)//i; $sdir =~ s/\.dir\Z(?!\n)//i; 
+
+	if ($unix_rpt) {
+	    $spath = unixify($spath) unless $spath =~ m#/#;
+	    $sdir= unixify($sdir) unless $sdir =~ m#/#;
+            return $self->SUPER::catdir($spath, $sdir)
+	}
+
+	$rslt = vmspath( unixify($spath) . '/' . unixify($sdir));
+
+	# Special case for VMS absolute directory specs: these will have
+	# had device prepended during trip through Unix syntax in
+	# eliminate_macros(), since Unix syntax has no way to express
+	# "absolute from the top of this device's directory tree".
+	if ($spath =~ /^[\[<][^.\-]/s) { $rslt =~ s/^[^\[<]+//s; }
+
+    } else {
+	# Single directory. Return an empty string on null input; otherwise
+	# just return a canonical path.
+
+	if    (not defined $dir or not length $dir) {
+	    $rslt = '';
+	} else {
+	    $rslt = $unix_rpt ? $dir : vmspath($dir);
+	}
+    }
+    return $self->canonpath($rslt);
+}
+
+
+sub catfile {
+    my $self = shift;
+    my $tfile = pop();
+    my $file = $self->canonpath($tfile);
+    my @files = grep {defined() && length()} @_;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    my $rslt;
+    if (@files) {
+	my $path = (@files == 1 ? $files[0] : $self->catdir(@files));
+	my $spath = $path;
+
+        # Something building a VMS path in pieces may try to pass a
+        # directory name in filename format, so normalize it.
+	$spath =~ s/\.dir\Z(?!\n)//i;
+
+        # If the spath ends with a directory delimiter and the file is bare,
+        # then just concatenate them.
+	if ($spath =~ /^(?<!\^)[^\)\]\/:>]+\)\Z(?!\n)/s && basename($file) eq $file) {
+	    $rslt = "$spath$file";
+	} else {
+           $rslt = unixify($spath);
+           $rslt .= (defined($rslt) && length($rslt) ? '/' : '') . unixify($file);
+           $rslt = vmsify($rslt) unless $unix_rpt;
+	}
+    }
+    else {
+        # Only passed a single file?
+        my $xfile = (defined($file) && length($file)) ? $file : '';
+
+        $rslt = $unix_rpt ? $xfile : vmsify($xfile);
+    }
+    return $self->canonpath($rslt) unless $unix_rpt;
+
+    # In Unix report mode, do not strip off redundant path information.
+    return $rslt;
+}
+
+
+
+sub curdir {
+    my $self = shift @_;
+    return '.' if ($self->_unix_rpt);
+    return '[]';
+}
+
+
+sub devnull {
+    my $self = shift @_;
+    return '/dev/null' if ($self->_unix_rpt);
+    return "_NLA0:";
+}
+
+
+sub rootdir {
+    my $self = shift @_;
+    if ($self->_unix_rpt) {
+       # Root may exist, try it first.
+       my $try = '/';
+       my ($dev1, $ino1) = stat('/');
+       my ($dev2, $ino2) = stat('.');
+
+       # Perl falls back to '.' if it can not determine '/'
+       if (($dev1 != $dev2) || ($ino1 != $ino2)) {
+           return $try;
+       }
+       # Fall back to UNIX format sys$disk.
+       return '/sys$disk/';
+    }
+    return 'SYS$DISK:[000000]';
+}
+
+
+sub tmpdir {
+    my $self = shift @_;
+    my $tmpdir = $self->_cached_tmpdir('TMPDIR');
+    return $tmpdir if defined $tmpdir;
+    if ($self->_unix_rpt) {
+        $tmpdir = $self->_tmpdir('/tmp', '/sys$scratch', $ENV{TMPDIR});
+    }
+    else {
+        $tmpdir = $self->_tmpdir( 'sys$scratch:', $ENV{TMPDIR} );
+    }
+    $self->_cache_tmpdir($tmpdir, 'TMPDIR');
+}
+
+
+sub updir {
+    my $self = shift @_;
+    return '..' if ($self->_unix_rpt);
+    return '[-]';
+}
+
+
+sub case_tolerant {
+    return 1;
+}
+
+
+sub path {
+    my (@dirs,$dir,$i);
+    while ($dir = $ENV{'DCL$PATH;' . $i++}) { push(@dirs,$dir); }
+    return @dirs;
+}
+
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    # If it's a logical name, expand it.
+    $file = $ENV{$file} while $file =~ /^[\w\$\-]+\Z(?!\n)/s && $ENV{$file};
+    return scalar($file =~ m!^/!s             ||
+		  $file =~ m![<\[][^.\-\]>]!  ||
+		  $file =~ /^[A-Za-z0-9_\$\-\~]+(?<!\^):/);
+}
+
+
+sub splitpath {
+    my($self,$path, $nofile) = @_;
+    my($dev,$dir,$file)      = ('','','');
+    my $vmsify_path = vmsify($path);
+
+    if ( $nofile ) {
+        #vmsify('d1/d2/d3') returns '[.d1.d2]d3'
+        #vmsify('/d1/d2/d3') returns 'd1:[d2]d3'
+        if( $vmsify_path =~ /(.*)\](.+)/ ){
+            $vmsify_path = $1.'.'.$2.']';
+        }
+        $vmsify_path =~ /(.+:)?(.*)/s;
+        $dir = defined $2 ? $2 : ''; # dir can be '0'
+        return ($1 || '',$dir,$file);
+    }
+    else {
+        $vmsify_path =~ /(.+:)?([\[<].*[\]>])?(.*)/s;
+        return ($1 || '',$2 || '',$3);
+    }
+}
+
+
+sub splitdir {
+    my($self,$dirspec) = @_;
+    my @dirs = ();
+    return @dirs if ( (!defined $dirspec) || ('' eq $dirspec) );
+
+    $dirspec =~ s/(?<!\^)</[/;                  # < and >	==> [ and ]
+    $dirspec =~ s/(?<!\^)>/]/;
+    $dirspec =~ s/(?<!\^)\]\[\./\.\]\[/g;	# ][.		==> .][
+    $dirspec =~ s/(?<!\^)\[000000\.\]\[/\[/g;	# [000000.][	==> [
+    $dirspec =~ s/(?<!\^)\[000000\./\[/g;	# [000000.	==> [
+    $dirspec =~ s/(?<!\^)\.\]\[000000\]/\]/g;	# .][000000]	==> ]
+    $dirspec =~ s/(?<!\^)\.\]\[/\./g;		# foo.][bar	==> foo.bar
+    while ($dirspec =~ s/(^|[\[\<\.])\-(\-+)($|[\]\>\.])/$1-.$2$3/g) {}
+						# That loop does the following
+						# with any amount of dashes:
+						# .--.		==> .-.-.
+						# [--.		==> [-.-.
+						# .--]		==> .-.-]
+						# [--]		==> [-.-]
+    $dirspec = "[$dirspec]" unless $dirspec =~ /(?<!\^)[\[<]/; # make legal
+    $dirspec =~ s/^(\[|<)\./$1/;
+    @dirs = split /(?<!\^)\./, vmspath($dirspec);
+    $dirs[0] =~ s/^[\[<]//s;  $dirs[-1] =~ s/[\]>]\Z(?!\n)//s;
+    @dirs;
+}
+
+
+
+sub catpath {
+    my($self,$dev,$dir,$file) = @_;
+    
+    # We look for a volume in $dev, then in $dir, but not both
+    my ($dir_volume, $dir_dir, $dir_file) = $self->splitpath($dir);
+    $dev = $dir_volume unless length $dev;
+    $dir = length $dir_file ? $self->catfile($dir_dir, $dir_file) : $dir_dir;
+    
+    if ($dev =~ m|^(?<!\^)/+([^/]+)|) { $dev = "$1:"; }
+    else { $dev .= ':' unless $dev eq '' or $dev =~ /:\Z(?!\n)/; }
+    if (length($dev) or length($dir)) {
+        $dir = "[$dir]" unless $dir =~ /(?<!\^)[\[<\/]/;
+        $dir = vmspath($dir);
+    }
+    $dir = '' if length($dev) && ($dir eq '[]' || $dir eq '<>');
+    "$dev$dir$file";
+}
+
+
+sub abs2rel {
+    my $self = shift;
+    my($path,$base) = @_;
+
+    $base = Cwd::getcwd() unless defined $base and length $base;
+
+    # If there is no device or directory syntax on $base, make sure it
+    # is treated as a directory.
+    $base = vmspath($base) unless $base =~ m{(?<!\^)[\[<:]};
+
+    for ($path, $base) { $_ = $self->rel2abs($_) }
+
+    # Are we even starting $path on the same (node::)device as $base?  Note that
+    # logical paths or nodename differences may be on the "same device" 
+    # but the comparison that ignores device differences so as to concatenate 
+    # [---] up directory specs is not even a good idea in cases where there is 
+    # a logical path difference between $path and $base nodename and/or device.
+    # Hence we fall back to returning the absolute $path spec
+    # if there is a case blind device (or node) difference of any sort
+    # and we do not even try to call $parse() or consult %ENV for $trnlnm()
+    # (this module needs to run on non VMS platforms after all).
+    
+    my ($path_volume, $path_directories, $path_file) = $self->splitpath($path);
+    my ($base_volume, $base_directories, $base_file) = $self->splitpath($base);
+    return $self->canonpath( $path ) unless lc($path_volume) eq lc($base_volume);
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my $pathchunks = @pathchunks;
+    unshift(@pathchunks,'000000') unless $pathchunks[0] eq '000000';
+    my @basechunks = $self->splitdir( $base_directories );
+    my $basechunks = @basechunks;
+    unshift(@basechunks,'000000') unless $basechunks[0] eq '000000';
+
+    while ( @pathchunks && 
+            @basechunks && 
+            lc( $pathchunks[0] ) eq lc( $basechunks[0] ) 
+          ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # @basechunks now contains the directories to climb out of,
+    # @pathchunks now has the directories to descend in to.
+    if ((@basechunks > 0) || ($basechunks != $pathchunks)) {
+      $path_directories = join '.', ('-' x @basechunks, @pathchunks) ;
+    }
+    else {
+      $path_directories = join '.', @pathchunks;
+    }
+    $path_directories = '['.$path_directories.']';
+    return $self->canonpath( $self->catpath( '', $path_directories, $path_file ) ) ;
+}
+
+
+
+sub rel2abs {
+    my $self = shift ;
+    my ($path,$base ) = @_;
+    return undef unless defined $path;
+    if ($path =~ m/\//) {
+       $path = ( -d $path || $path =~ m/\/\z/  # educated guessing about
+                  ? vmspath($path)             # whether it's a directory
+                  : vmsify($path) );
+    }
+    $base = vmspath($base) if defined $base && $base =~ m/\//;
+
+    # Clean up and split up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+            $base = Cwd::getcwd();
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        # Split up paths
+        my ( $path_directories, $path_file ) =
+            ($self->splitpath( $path ))[1,2] ;
+
+        my ( $base_volume, $base_directories ) =
+            $self->splitpath( $base ) ;
+
+        $path_directories = '' if $path_directories eq '[]' ||
+                                  $path_directories eq '<>';
+        my $sep = '' ;
+        $sep = '.'
+            if ( $base_directories =~ m{[^.\]>]\Z(?!\n)} &&
+                 $path_directories =~ m{^[^.\[<]}s
+            ) ;
+        $base_directories = "$base_directories$sep$path_directories";
+        $base_directories =~ s{\.?[\]>][\[<]\.?}{.};
+
+        $path = $self->catpath( $base_volume, $base_directories, $path_file );
+   }
+
+    return $self->canonpath( $path ) ;
+}
+
+
+
+1;
+package File::Spec::Functions;
+
+use File::Spec;
+use strict;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(
+	canonpath
+	catdir
+	catfile
+	curdir
+	rootdir
+	updir
+	no_upwards
+	file_name_is_absolute
+	path
+);
+
+our @EXPORT_OK = qw(
+	devnull
+	tmpdir
+	splitpath
+	splitdir
+	catpath
+	abs2rel
+	rel2abs
+	case_tolerant
+);
+
+our %EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
+
+require File::Spec::Unix;
+my %udeps = (
+    canonpath => [],
+    catdir => [qw(canonpath)],
+    catfile => [qw(canonpath catdir)],
+    case_tolerant => [],
+    curdir => [],
+    devnull => [],
+    rootdir => [],
+    updir => [],
+);
+
+foreach my $meth (@EXPORT, @EXPORT_OK) {
+    my $sub = File::Spec->can($meth);
+    no strict 'refs';
+    if (exists($udeps{$meth}) && $sub == File::Spec::Unix->can($meth) &&
+	    !(grep {
+		File::Spec->can($_) != File::Spec::Unix->can($_)
+	    } @{$udeps{$meth}}) &&
+	    defined(&{"File::Spec::Unix::_fn_$meth"})) {
+	*{$meth} = \&{"File::Spec::Unix::_fn_$meth"};
+    } else {
+	*{$meth} = sub {&$sub('File::Spec', @_)};
+    }
+}
+
+
+1;
+__END__
+
+
+package File::Spec::Epoc;
+
+use strict;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+require File::Spec::Unix;
+our @ISA = qw(File::Spec::Unix);
+
+
+sub case_tolerant {
+    return 1;
+}
+
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s|/+|/|g;                             # xx////xx  -> xx/xx
+    $path =~ s|(/\.)+/|/|g;                        # xx/././xx -> xx/xx
+    $path =~ s|^(\./)+||s unless $path eq "./";    # ./xx      -> xx
+    $path =~ s|^/(\.\./)+|/|s;                     # /../../xx -> xx
+    $path =~  s|/\Z(?!\n)|| unless $path eq "/";          # xx/       -> xx
+    return $path;
+}
+
+
+1;
+package File::Spec::AmigaOS;
+
+use strict;
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+
+my $tmpdir;
+sub tmpdir {
+  return $tmpdir if defined $tmpdir;
+  $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/t" );
+}
+
+
+sub file_name_is_absolute {
+  my ($self, $file) = @_;
+
+  # Not 100% robust as a "/" must not preceded a ":"
+  # but this cannot happen in a well formed path.
+  return $file =~ m{^/|:}s;
+}
+
+
+1;
+package File::Spec::Mac;
+
+use strict;
+use Cwd ();
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+sub case_tolerant { 1 }
+
+
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return $path;
+}
+
+
+sub catdir {
+	my $self = shift;
+	return '' unless @_;
+	my @args = @_;
+	my $first_arg;
+	my $relative;
+
+	# take care of the first argument
+
+	if ($args[0] eq '')  { # absolute path, rootdir
+		shift @args;
+		$relative = 0;
+		$first_arg = $self->rootdir;
+
+	} elsif ($args[0] =~ /^[^:]+:/) { # absolute path, volume name
+		$relative = 0;
+		$first_arg = shift @args;
+		# add a trailing ':' if need be (may be it's a path like HD:dir)
+		$first_arg = "$first_arg:" unless ($first_arg =~ /:\Z(?!\n)/);
+
+	} else { # relative path
+		$relative = 1;
+		if ( $args[0] =~ /^::+\Z(?!\n)/ ) {
+			# updir colon path ('::', ':::' etc.), don't shift
+			$first_arg = ':';
+		} elsif ($args[0] eq ':') {
+			$first_arg = shift @args;
+		} else {
+			# add a trailing ':' if need be
+			$first_arg = shift @args;
+			$first_arg = "$first_arg:" unless ($first_arg =~ /:\Z(?!\n)/);
+		}
+	}
+
+	# For all other arguments,
+	# (a) ignore arguments that equal ':' or '',
+	# (b) handle updir paths specially:
+	#     '::' 			-> concatenate '::'
+	#     '::' . '::' 	-> concatenate ':::' etc.
+	# (c) add a trailing ':' if need be
+
+	my $result = $first_arg;
+	while (@args) {
+		my $arg = shift @args;
+		unless (($arg eq '') || ($arg eq ':')) {
+			if ($arg =~ /^::+\Z(?!\n)/ ) { # updir colon path like ':::'
+				my $updir_count = length($arg) - 1;
+				while ((@args) && ($args[0] =~ /^::+\Z(?!\n)/) ) { # while updir colon path
+					$arg = shift @args;
+					$updir_count += (length($arg) - 1);
+				}
+				$arg = (':' x $updir_count);
+			} else {
+				$arg =~ s/^://s; # remove a leading ':' if any
+				$arg = "$arg:" unless ($arg =~ /:\Z(?!\n)/); # ensure trailing ':'
+			}
+			$result .= $arg;
+		}#unless
+	}
+
+	if ( ($relative) && ($result !~ /^:/) ) {
+		# add a leading colon if need be
+		$result = ":$result";
+	}
+
+	unless ($relative) {
+		# remove updirs immediately following the volume name
+		$result =~ s/([^:]+:)(:*)(.*)\Z(?!\n)/$1$3/;
+	}
+
+	return $result;
+}
+
+
+sub catfile {
+    my $self = shift;
+    return '' unless @_;
+    my $file = pop @_;
+    return $file unless @_;
+    my $dir = $self->catdir(@_);
+    $file =~ s/^://s;
+    return $dir.$file;
+}
+
+
+sub curdir {
+    return ":";
+}
+
+
+sub devnull {
+    return "Dev:Null";
+}
+
+
+sub rootdir { '' }
+
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir('TMPDIR');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir($_[0]->_tmpdir( $ENV{TMPDIR} ), 'TMPDIR');
+}
+
+
+sub updir {
+    return "::";
+}
+
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    if ($file =~ /:/) {
+	return (! ($file =~ m/^:/s) );
+    } elsif ( $file eq '' ) {
+        return 1 ;
+    } else {
+	return 0; # i.e. a file like "a"
+    }
+}
+
+
+sub path {
+#
+#  The concept is meaningless under the MacPerl application.
+#  Under MPW, it has a meaning.
+#
+    return unless exists $ENV{Commands};
+    return split(/,/, $ENV{Commands});
+}
+
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file);
+
+    if ( $nofile ) {
+        ( $volume, $directory ) = $path =~ m|^((?:[^:]+:)?)(.*)|s;
+    }
+    else {
+        $path =~
+            m|^( (?: [^:]+: )? )
+               ( (?: .*: )? )
+               ( .* )
+             |xs;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    $volume = '' unless defined($volume);
+	$directory = ":$directory" if ( $volume && $directory ); # take care of "HD::dir"
+    if ($directory) {
+        # Make sure non-empty directories begin and end in ':'
+        $directory .= ':' unless (substr($directory,-1) eq ':');
+        $directory = ":$directory" unless (substr($directory,0,1) eq ':');
+    } else {
+	$directory = '';
+    }
+    $file = '' unless defined($file);
+
+    return ($volume,$directory,$file);
+}
+
+
+
+sub splitdir {
+	my ($self, $path) = @_;
+	my @result = ();
+	my ($head, $sep, $tail, $volume, $directories);
+
+	return @result if ( (!defined($path)) || ($path eq '') );
+	return (':') if ($path eq ':');
+
+	( $volume, $sep, $directories ) = $path =~ m|^((?:[^:]+:)?)(:*)(.*)|s;
+
+	# deprecated, but handle it correctly
+	if ($volume) {
+		push (@result, $volume);
+		$sep .= ':';
+	}
+
+	while ($sep || $directories) {
+		if (length($sep) > 1) {
+			my $updir_count = length($sep) - 1;
+			for (my $i=0; $i<$updir_count; $i++) {
+				# push '::' updir_count times;
+				# simulate Unix '..' updirs
+				push (@result, '::');
+			}
+		}
+		$sep = '';
+		if ($directories) {
+			( $head, $sep, $tail ) = $directories =~ m|^((?:[^:]+)?)(:*)(.*)|s;
+			push (@result, $head);
+			$directories = $tail;
+		}
+	}
+	return @result;
+}
+
+
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    if ( (! $volume) && (! $directory) ) {
+	$file =~ s/^:// if $file;
+	return $file ;
+    }
+
+    # We look for a volume in $volume, then in $directory, but not both
+
+    my ($dir_volume, $dir_dirs) = $self->splitpath($directory, 1);
+
+    $volume = $dir_volume unless length $volume;
+    my $path = $volume; # may be ''
+    $path .= ':' unless (substr($path, -1) eq ':'); # ensure trailing ':'
+
+    if ($directory) {
+	$directory = $dir_dirs if $volume;
+	$directory =~ s/^://; # remove leading ':' if any
+	$path .= $directory;
+	$path .= ':' unless (substr($path, -1) eq ':'); # ensure trailing ':'
+    }
+
+    if ($file) {
+	$file =~ s/^://; # remove leading ':' if any
+	$path .= $file;
+    }
+
+    return $path;
+}
+
+
+# maybe this should be done in canonpath() ?
+sub _resolve_updirs {
+	my $path = shift @_;
+	my $proceed;
+
+	# resolve any updirs, e.g. "HD:tmp::file" -> "HD:file"
+	do {
+		$proceed = ($path =~ s/^(.*):[^:]+::(.*?)\z/$1:$2/);
+	} while ($proceed);
+
+	return $path;
+}
+
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        $path = $self->rel2abs( $path ) ;
+    }
+
+    # Figure out the effective $base and clean it up.
+    if ( !defined( $base ) || $base eq '' ) {
+	$base = Cwd::getcwd();
+    }
+    elsif ( ! $self->file_name_is_absolute( $base ) ) {
+        $base = $self->rel2abs( $base ) ;
+	$base = _resolve_updirs( $base ); # resolve updirs in $base
+    }
+    else {
+	$base = _resolve_updirs( $base );
+    }
+
+    # Split up paths - ignore $base's file
+    my ( $path_vol, $path_dirs, $path_file ) =  $self->splitpath( $path );
+    my ( $base_vol, $base_dirs )             =  $self->splitpath( $base );
+
+    return $path unless lc( $path_vol ) eq lc( $base_vol );
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_dirs );
+    my @basechunks = $self->splitdir( $base_dirs );
+	
+    while ( @pathchunks &&
+	    @basechunks &&
+	    lc( $pathchunks[0] ) eq lc( $basechunks[0] ) ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # @pathchunks now has the directories to descend in to.
+    # ensure relative path, even if @pathchunks is empty
+    $path_dirs = $self->catdir( ':', @pathchunks );
+
+    # @basechunks now contains the number of directories to climb out of.
+    $base_dirs = (':' x @basechunks) . ':' ;
+
+    return $self->catpath( '', $self->catdir( $base_dirs, $path_dirs ), $path_file ) ;
+}
+
+
+sub rel2abs {
+    my ($self,$path,$base) = @_;
+
+    if ( ! $self->file_name_is_absolute($path) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = Cwd::getcwd();
+        }
+        elsif ( ! $self->file_name_is_absolute($base) ) {
+            $base = $self->rel2abs($base) ;
+        }
+
+	# Split up paths
+
+	# ignore $path's volume
+        my ( $path_dirs, $path_file ) = ($self->splitpath($path))[1,2] ;
+
+        # ignore $base's file part
+	my ( $base_vol, $base_dirs ) = $self->splitpath($base) ;
+
+	# Glom them together
+	$path_dirs = ':' if ($path_dirs eq '');
+	$base_dirs =~ s/:$//; # remove trailing ':', if any
+	$base_dirs = $base_dirs . $path_dirs;
+
+        $path = $self->catpath( $base_vol, $base_dirs, $path_file );
+    }
+    return $path;
+}
+
+
+
+1;
+package File::Spec::OS2;
+
+use strict;
+use Cwd ();
+require File::Spec::Unix;
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+our @ISA = qw(File::Spec::Unix);
+
+sub devnull {
+    return "/dev/nul";
+}
+
+sub case_tolerant {
+    return 1;
+}
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return scalar($file =~ m{^([a-z]:)?[\\/]}is);
+}
+
+sub path {
+    my $path = $ENV{PATH};
+    $path =~ s:\\:/:g;
+    my @path = split(';',$path);
+    foreach (@path) { $_ = '.' if $_ eq '' }
+    return @path;
+}
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir(qw 'TMPDIR TEMP TMP');
+    return $cached if defined $cached;
+    my @d = @ENV{qw(TMPDIR TEMP TMP)};	# function call could autovivivy
+    $_[0]->_cache_tmpdir(
+	$_[0]->_tmpdir( @d, '/tmp', '/' ), qw 'TMPDIR TEMP TMP'
+    );
+}
+
+sub catdir {
+    my $self = shift;
+    my @args = @_;
+    foreach (@args) {
+	tr[\\][/];
+        # append a backslash to each argument unless it has one there
+        $_ .= "/" unless m{/$};
+    }
+    return $self->canonpath(join('', @args));
+}
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s/^([a-z]:)/\l$1/s;
+    $path =~ s|\\|/|g;
+    $path =~ s|([^/])/+|$1/|g;                  # xx////xx  -> xx/xx
+    $path =~ s|(/\.)+/|/|g;                     # xx/././xx -> xx/xx
+    $path =~ s|^(\./)+(?=[^/])||s;		# ./xx      -> xx
+    $path =~ s|/\Z(?!\n)||
+             unless $path =~ m#^([a-z]:)?/\Z(?!\n)#si;# xx/       -> xx
+    $path =~ s{^/\.\.$}{/};                     # /..    -> /
+    1 while $path =~ s{^/\.\.}{};               # /../xx -> /xx
+    return $path;
+}
+
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file) = ('','','');
+    if ( $nofile ) {
+        $path =~ 
+            m{^( (?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)? ) 
+                 (.*)
+             }xs;
+        $volume    = $1;
+        $directory = $2;
+    }
+    else {
+        $path =~ 
+            m{^ ( (?: [a-zA-Z]: |
+                      (?:\\\\|//)[^\\/]+[\\/][^\\/]+
+                  )?
+                )
+                ( (?:.*[\\\\/](?:\.\.?\Z(?!\n))?)? )
+                (.*)
+             }xs;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+sub splitdir {
+    my ($self,$directories) = @_ ;
+    split m|[\\/]|, $directories, -1;
+}
+
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    # If it's UNC, make sure the glue separator is there, reusing
+    # whatever separator is first in the $volume
+    $volume .= $1
+        if ( $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s &&
+             $directory =~ m@^[^\\/]@s
+           ) ;
+
+    $volume .= $directory ;
+
+    # If the volume is not just A:, make sure the glue separator is 
+    # there, reusing whatever separator is first in the $volume if possible.
+    if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
+         $volume =~ m@[^\\/]\Z(?!\n)@      &&
+         $file   =~ m@[^\\/]@
+       ) {
+        $volume =~ m@([\\/])@ ;
+        my $sep = $1 ? $1 : '/' ;
+        $volume .= $sep ;
+    }
+
+    $volume .= $file ;
+
+    return $volume ;
+}
+
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        $path = $self->rel2abs( $path ) ;
+    } else {
+        $path = $self->canonpath( $path ) ;
+    }
+
+    # Figure out the effective $base and clean it up.
+    if ( !defined( $base ) || $base eq '' ) {
+	$base = Cwd::getcwd();
+    } elsif ( ! $self->file_name_is_absolute( $base ) ) {
+        $base = $self->rel2abs( $base ) ;
+    } else {
+        $base = $self->canonpath( $base ) ;
+    }
+
+    # Split up paths
+    my ( $path_volume, $path_directories, $path_file ) = $self->splitpath( $path, 1 ) ;
+    my ( $base_volume, $base_directories ) = $self->splitpath( $base, 1 ) ;
+    return $path unless $path_volume eq $base_volume;
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my @basechunks = $self->splitdir( $base_directories );
+
+    while ( @pathchunks && 
+            @basechunks && 
+            lc( $pathchunks[0] ) eq lc( $basechunks[0] ) 
+          ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # No need to catdir, we know these are well formed.
+    $path_directories = CORE::join( '/', @pathchunks );
+    $base_directories = CORE::join( '/', @basechunks );
+
+    # $base_directories now contains the directories the resulting relative
+    # path must ascend out of before it can descend to $path_directory.  So, 
+    # replace all names with $parentDir
+
+    #FA Need to replace between backslashes...
+    $base_directories =~ s|[^\\/]+|..|g ;
+
+    # Glue the two together, using a separator if necessary, and preventing an
+    # empty result.
+
+    #FA Must check that new directories are not empty.
+    if ( $path_directories ne '' && $base_directories ne '' ) {
+        $path_directories = "$base_directories/$path_directories" ;
+    } else {
+        $path_directories = "$base_directories$path_directories" ;
+    }
+
+    return $self->canonpath( 
+        $self->catpath( "", $path_directories, $path_file ) 
+    ) ;
+}
+
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = Cwd::getcwd();
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        my ( $path_directories, $path_file ) =
+            ($self->splitpath( $path, 1 ))[1,2] ;
+
+        my ( $base_volume, $base_directories ) =
+            $self->splitpath( $base, 1 ) ;
+
+        $path = $self->catpath( 
+            $base_volume, 
+            $self->catdir( $base_directories, $path_directories ), 
+            $path_file
+        ) ;
+    }
+
+    return $self->canonpath( $path ) ;
+}
+
+1;
+__END__
+
+package File::Spec::Unix;
+
+use strict;
+use Cwd ();
+
+our $VERSION = '3.74';
+$VERSION =~ tr/_//d;
+
+
+sub _pp_canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+    
+    # Handle POSIX-style node names beginning with double slash (qnx, nto)
+    # (POSIX says: "a pathname that begins with two successive slashes
+    # may be interpreted in an implementation-defined manner, although
+    # more than two leading slashes shall be treated as a single slash.")
+    my $node = '';
+    my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto';
+
+
+    if ( $double_slashes_special
+         && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) ) {
+      $node = $1;
+    }
+    # This used to be
+    # $path =~ s|/+|/|g unless ($^O eq 'cygwin');
+    # but that made tests 29, 30, 35, 46, and 213 (as of #13272) to fail
+    # (Mainly because trailing "" directories didn't get stripped).
+    # Why would cygwin avoid collapsing multiple slashes into one? --jhi
+    $path =~ s|/{2,}|/|g;                            # xx////xx  -> xx/xx
+    $path =~ s{(?:/\.)+(?:/|\z)}{/}g;                # xx/././xx -> xx/xx
+    $path =~ s|^(?:\./)+||s unless $path eq "./";    # ./xx      -> xx
+    $path =~ s|^/(?:\.\./)+|/|;                      # /../../xx -> xx
+    $path =~ s|^/\.\.$|/|;                         # /..       -> /
+    $path =~ s|/\z|| unless $path eq "/";          # xx/       -> xx
+    return "$node$path";
+}
+*canonpath = \&_pp_canonpath unless defined &canonpath;
+
+
+sub _pp_catdir {
+    my $self = shift;
+
+    $self->canonpath(join('/', @_, '')); # '' because need a trailing '/'
+}
+*catdir = \&_pp_catdir unless defined &catdir;
+
+
+sub _pp_catfile {
+    my $self = shift;
+    my $file = $self->canonpath(pop @_);
+    return $file unless @_;
+    my $dir = $self->catdir(@_);
+    $dir .= "/" unless substr($dir,-1) eq "/";
+    return $dir.$file;
+}
+*catfile = \&_pp_catfile unless defined &catfile;
+
+
+sub curdir { '.' }
+use constant _fn_curdir => ".";
+
+
+sub devnull { '/dev/null' }
+use constant _fn_devnull => "/dev/null";
+
+
+sub rootdir { '/' }
+use constant _fn_rootdir => "/";
+
+
+my ($tmpdir, %tmpenv);
+# Cache and return the calculated tmpdir, recording which env vars
+# determined it.
+sub _cache_tmpdir {
+    @tmpenv{@_[2..$#_]} = @ENV{@_[2..$#_]};
+    return $tmpdir = $_[1];
+}
+# Retrieve the cached tmpdir, checking first whether relevant env vars have
+# changed and invalidated the cache.
+sub _cached_tmpdir {
+    shift;
+    local $^W;
+    return if grep $ENV{$_} ne $tmpenv{$_}, @_;
+    return $tmpdir;
+}
+sub _tmpdir {
+    my $self = shift;
+    my @dirlist = @_;
+    my $taint = do { no strict 'refs'; ${"\cTAINT"} };
+    if ($taint) { # Check for taint mode on perl >= 5.8.0
+	require Scalar::Util;
+	@dirlist = grep { ! Scalar::Util::tainted($_) } @dirlist;
+    }
+    elsif ($] < 5.007) { # No ${^TAINT} before 5.8
+	@dirlist = grep { !defined($_) || eval { eval('1'.substr $_,0,0) } }
+			@dirlist;
+    }
+    
+    foreach (@dirlist) {
+	next unless defined && -d && -w _;
+	$tmpdir = $_;
+	last;
+    }
+    $tmpdir = $self->curdir unless defined $tmpdir;
+    $tmpdir = defined $tmpdir && $self->canonpath($tmpdir);
+    if ( !$self->file_name_is_absolute($tmpdir) ) {
+        # See [perl #120593] for the full details
+        # If possible, return a full path, rather than '.' or 'lib', but
+        # jump through some hoops to avoid returning a tainted value.
+        ($tmpdir) = grep {
+            $taint     ? ! Scalar::Util::tainted($_) :
+            $] < 5.007 ? eval { eval('1'.substr $_,0,0) } : 1
+        } $self->rel2abs($tmpdir), $tmpdir;
+    }
+    return $tmpdir;
+}
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir('TMPDIR');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir($_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp" ), 'TMPDIR');
+}
+
+
+sub updir { '..' }
+use constant _fn_updir => "..";
+
+
+sub no_upwards {
+    my $self = shift;
+    return grep(!/^\.{1,2}\z/s, @_);
+}
+
+
+sub case_tolerant { 0 }
+use constant _fn_case_tolerant => 0;
+
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return scalar($file =~ m:^/:s);
+}
+
+
+sub path {
+    return () unless exists $ENV{PATH};
+    my @path = split(':', $ENV{PATH});
+    foreach (@path) { $_ = '.' if $_ eq '' }
+    return @path;
+}
+
+
+sub join {
+    my $self = shift;
+    return $self->catfile(@_);
+}
+
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+
+    my ($volume,$directory,$file) = ('','','');
+
+    if ( $nofile ) {
+        $directory = $path;
+    }
+    else {
+        $path =~ m|^ ( (?: .* / (?: \.\.?\z )? )? ) ([^/]*) |xs;
+        $directory = $1;
+        $file      = $2;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+
+sub splitdir {
+    return split m|/|, $_[1], -1;  # Preserve trailing fields
+}
+
+
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    if ( $directory ne ''                && 
+         $file ne ''                     && 
+         substr( $directory, -1 ) ne '/' && 
+         substr( $file, 0, 1 ) ne '/' 
+    ) {
+        $directory .= "/$file" ;
+    }
+    else {
+        $directory .= $file ;
+    }
+
+    return $directory ;
+}
+
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+    $base = Cwd::getcwd() unless defined $base and length $base;
+
+    ($path, $base) = map $self->canonpath($_), $path, $base;
+
+    my $path_directories;
+    my $base_directories;
+
+    if (grep $self->file_name_is_absolute($_), $path, $base) {
+	($path, $base) = map $self->rel2abs($_), $path, $base;
+
+	my ($path_volume) = $self->splitpath($path, 1);
+	my ($base_volume) = $self->splitpath($base, 1);
+
+	# Can't relativize across volumes
+	return $path unless $path_volume eq $base_volume;
+
+	$path_directories = ($self->splitpath($path, 1))[1];
+	$base_directories = ($self->splitpath($base, 1))[1];
+
+	# For UNC paths, the user might give a volume like //foo/bar that
+	# strictly speaking has no directory portion.  Treat it as if it
+	# had the root directory for that volume.
+	if (!length($base_directories) and $self->file_name_is_absolute($base)) {
+	    $base_directories = $self->rootdir;
+	}
+    }
+    else {
+	my $wd= ($self->splitpath(Cwd::getcwd(), 1))[1];
+	$path_directories = $self->catdir($wd, $path);
+	$base_directories = $self->catdir($wd, $base);
+    }
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my @basechunks = $self->splitdir( $base_directories );
+
+    if ($base_directories eq $self->rootdir) {
+      return $self->curdir if $path_directories eq $self->rootdir;
+      shift @pathchunks;
+      return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') );
+    }
+
+    my @common;
+    while (@pathchunks && @basechunks && $self->_same($pathchunks[0], $basechunks[0])) {
+        push @common, shift @pathchunks ;
+        shift @basechunks ;
+    }
+    return $self->curdir unless @pathchunks || @basechunks;
+
+    # @basechunks now contains the directories the resulting relative path 
+    # must ascend out of before it can descend to $path_directory.  If there
+    # are updir components, we must descend into the corresponding directories
+    # (this only works if they are no symlinks).
+    my @reverse_base;
+    while( defined(my $dir= shift @basechunks) ) {
+	if( $dir ne $self->updir ) {
+	    unshift @reverse_base, $self->updir;
+	    push @common, $dir;
+	}
+	elsif( @common ) {
+	    if( @reverse_base && $reverse_base[0] eq $self->updir ) {
+		shift @reverse_base;
+		pop @common;
+	    }
+	    else {
+		unshift @reverse_base, pop @common;
+	    }
+	}
+    }
+    my $result_dirs = $self->catdir( @reverse_base, @pathchunks );
+    return $self->canonpath( $self->catpath('', $result_dirs, '') );
+}
+
+sub _same {
+  $_[1] eq $_[2];
+}
+
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = Cwd::getcwd();
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        # Glom them together
+        $path = $self->catdir( $base, $path ) ;
+    }
+
+    return $self->canonpath( $path ) ;
+}
+
+
+# Internal method to reduce xx\..\yy -> yy
+sub _collapse {
+    my($fs, $path) = @_;
+
+    my $updir  = $fs->updir;
+    my $curdir = $fs->curdir;
+
+    my($vol, $dirs, $file) = $fs->splitpath($path);
+    my @dirs = $fs->splitdir($dirs);
+    pop @dirs if @dirs && $dirs[-1] eq '';
+
+    my @collapsed;
+    foreach my $dir (@dirs) {
+        if( $dir eq $updir              and   # if we have an updir
+            @collapsed                  and   # and something to collapse
+            length $collapsed[-1]       and   # and its not the rootdir
+            $collapsed[-1] ne $updir    and   # nor another updir
+            $collapsed[-1] ne $curdir         # nor the curdir
+          ) 
+        {                                     # then
+            pop @collapsed;                   # collapse
+        }
+        else {                                # else
+            push @collapsed, $dir;            # just hang onto it
+        }
+    }
+
+    return $fs->catpath($vol,
+                        $fs->catdir(@collapsed),
+                        $file
+                       );
+}
+
+
+1;
+package Digest::SHA;
+
+require 5.003000;
+
+use strict;
+use warnings;
+use vars qw($VERSION @ISA @EXPORT_OK $errmsg);
+use Fcntl qw(O_RDONLY);
+use integer;
+
+$VERSION = '6.01';
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(
+	$errmsg
+	hmac_sha1	hmac_sha1_base64	hmac_sha1_hex
+	hmac_sha224	hmac_sha224_base64	hmac_sha224_hex
+	hmac_sha256	hmac_sha256_base64	hmac_sha256_hex
+	hmac_sha384	hmac_sha384_base64	hmac_sha384_hex
+	hmac_sha512	hmac_sha512_base64	hmac_sha512_hex
+	hmac_sha512224	hmac_sha512224_base64	hmac_sha512224_hex
+	hmac_sha512256	hmac_sha512256_base64	hmac_sha512256_hex
+	sha1		sha1_base64		sha1_hex
+	sha224		sha224_base64		sha224_hex
+	sha256		sha256_base64		sha256_hex
+	sha384		sha384_base64		sha384_hex
+	sha512		sha512_base64		sha512_hex
+	sha512224	sha512224_base64	sha512224_hex
+	sha512256	sha512256_base64	sha512256_hex);
+
+# Inherit from Digest::base if possible
+
+eval {
+	require Digest::base;
+	push(@ISA, 'Digest::base');
+};
+
+# The following routines aren't time-critical, so they can be left in Perl
+
+sub new {
+	my($class, $alg) = @_;
+	$alg =~ s/\D+//g if defined $alg;
+	if (ref($class)) {	# instance method
+		if (!defined($alg) || ($alg == $class->algorithm)) {
+			sharewind($class);
+			return($class);
+		}
+		return shainit($class, $alg) ? $class : undef;
+	}
+	$alg = 1 unless defined $alg;
+	return $class->newSHA($alg);
+}
+
+BEGIN { *reset = \&new }
+
+sub add_bits {
+	my($self, $data, $nbits) = @_;
+	unless (defined $nbits) {
+		$nbits = length($data);
+		$data = pack("B*", $data);
+	}
+	$nbits = length($data) * 8 if $nbits > length($data) * 8;
+	shawrite($data, $nbits, $self);
+	return($self);
+}
+
+sub _bail {
+	my $msg = shift;
+
+	$errmsg = $!;
+	$msg .= ": $!";
+	require Carp;
+	Carp::croak($msg);
+}
+
+{
+	my $_can_T_filehandle;
+
+	sub _istext {
+		local *FH = shift;
+		my $file = shift;
+
+		if (! defined $_can_T_filehandle) {
+			local $^W = 0;
+			my $istext = eval { -T FH };
+			$_can_T_filehandle = $@ ? 0 : 1;
+			return $_can_T_filehandle ? $istext : -T $file;
+		}
+		return $_can_T_filehandle ? -T FH : -T $file;
+	}
+}
+
+sub _addfile {
+	my ($self, $handle) = @_;
+
+	my $n;
+	my $buf = "";
+
+	while (($n = read($handle, $buf, 4096))) {
+		$self->add($buf);
+	}
+	_bail("Read failed") unless defined $n;
+
+	$self;
+}
+
+sub addfile {
+	my ($self, $file, $mode) = @_;
+
+	return(_addfile($self, $file)) unless ref(\$file) eq 'SCALAR';
+
+	$mode = defined($mode) ? $mode : "";
+	my ($binary, $UNIVERSAL, $BITS) =
+		map { $_ eq $mode } ("b", "U", "0");
+
+		## Always interpret "-" to mean STDIN; otherwise use
+		## sysopen to handle full range of POSIX file names
+
+	local *FH;
+	$file eq '-' and open(FH, '< -')
+		or sysopen(FH, $file, O_RDONLY)
+			or _bail('Open failed');
+
+	if ($BITS) {
+		my ($n, $buf) = (0, "");
+		while (($n = read(FH, $buf, 4096))) {
+			$buf =~ tr/01//cd;
+			$self->add_bits($buf);
+		}
+		_bail("Read failed") unless defined $n;
+		close(FH);
+		return($self);
+	}
+
+	binmode(FH) if $binary || $UNIVERSAL;
+	if ($UNIVERSAL && _istext(*FH, $file)) {
+		$self->_addfileuniv(*FH);
+	}
+	else { $self->_addfilebin(*FH) }
+	close(FH);
+
+	$self;
+}
+
+sub getstate {
+	my $self = shift;
+
+	my $alg = $self->algorithm or return;
+	my $state = $self->_getstate or return;
+	my $nD = $alg <= 256 ?  8 :  16;
+	my $nH = $alg <= 256 ? 32 :  64;
+	my $nB = $alg <= 256 ? 64 : 128;
+	my($H, $block, $blockcnt, $lenhh, $lenhl, $lenlh, $lenll) =
+		$state =~ /^(.{$nH})(.{$nB})(.{4})(.{4})(.{4})(.{4})(.{4})$/s;
+	for ($alg, $H, $block, $blockcnt, $lenhh, $lenhl, $lenlh, $lenll) {
+		return unless defined $_;
+	}
+
+	my @s = ();
+	push(@s, "alg:" . $alg);
+	push(@s, "H:" . join(":", unpack("H*", $H) =~ /.{$nD}/g));
+	push(@s, "block:" . join(":", unpack("H*", $block) =~ /.{2}/g));
+	push(@s, "blockcnt:" . unpack("N", $blockcnt));
+	push(@s, "lenhh:" . unpack("N", $lenhh));
+	push(@s, "lenhl:" . unpack("N", $lenhl));
+	push(@s, "lenlh:" . unpack("N", $lenlh));
+	push(@s, "lenll:" . unpack("N", $lenll));
+	join("\n", @s) . "\n";
+}
+
+sub putstate {
+	my($class, $state) = @_;
+
+	my %s = ();
+	for (split(/\n/, $state)) {
+		s/^\s+//;
+		s/\s+$//;
+		next if (/^(#|$)/);
+		my @f = split(/[:\s]+/);
+		my $tag = shift(@f);
+		$s{$tag} = join('', @f);
+	}
+
+	# H and block may contain arbitrary values, but check everything else
+	grep { $_ == $s{'alg'} } (1,224,256,384,512,512224,512256) or return;
+	length($s{'H'}) == ($s{'alg'} <= 256 ? 64 : 128) or return;
+	length($s{'block'}) == ($s{'alg'} <= 256 ? 128 : 256) or return;
+	{
+		no integer;
+		for (qw(blockcnt lenhh lenhl lenlh lenll)) {
+			0 <= $s{$_} or return;
+			$s{$_} <= 4294967295 or return;
+		}
+		$s{'blockcnt'} < ($s{'alg'} <= 256 ? 512 : 1024) or return;
+	}
+
+	my $packed_state = (
+		pack("H*", $s{'H'}) .
+		pack("H*", $s{'block'}) .
+		pack("N",  $s{'blockcnt'}) .
+		pack("N",  $s{'lenhh'}) .
+		pack("N",  $s{'lenhl'}) .
+		pack("N",  $s{'lenlh'}) .
+		pack("N",  $s{'lenll'})
+	);
+
+	return $class->new($s{'alg'})->_putstate($packed_state);
+}
+
+sub dump {
+	my $self = shift;
+	my $file = shift;
+
+	my $state = $self->getstate or return;
+	$file = "-" if (!defined($file) || $file eq "");
+
+	local *FH;
+	open(FH, "> $file") or return;
+	print FH $state;
+	close(FH);
+
+	return($self);
+}
+
+sub load {
+	my $class = shift;
+	my $file = shift;
+
+	$file = "-" if (!defined($file) || $file eq "");
+
+	local *FH;
+	open(FH, "< $file") or return;
+	my $str = join('', <FH>);
+	close(FH);
+
+	$class->putstate($str);
+}
+
+eval {
+	require XSLoader;
+	XSLoader::load('Digest::SHA', $VERSION);
+	1;
+} or do {
+	require DynaLoader;
+	push @ISA, 'DynaLoader';
+	Digest::SHA->bootstrap($VERSION);
+};
+
+1;
+__END__
+
+package Digest::MD5;
+
+use strict;
+use vars qw($VERSION @ISA @EXPORT_OK);
+
+$VERSION = '2.55';
+
+require Exporter;
+*import = \&Exporter::import;
+@EXPORT_OK = qw(md5 md5_hex md5_base64);
+
+eval {
+    require Digest::base;
+    push(@ISA, 'Digest::base');
+};
+if ($@) {
+    my $err = $@;
+    *add_bits = sub { die $err };
+}
+
+
+eval {
+    require XSLoader;
+    XSLoader::load('Digest::MD5', $VERSION);
+};
+if ($@) {
+    my $olderr = $@;
+    eval {
+	# Try to load the pure perl version
+	require Digest::Perl::MD5;
+
+	Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64));
+	unshift(@ISA, "Digest::Perl::MD5");  # make OO interface work
+    };
+    if ($@) {
+	# restore the original error
+	die $olderr;
+    }
+}
+else {
+    *reset = \&new;
+}
+
+1;
+__END__
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Module;
+use strict;
+@CPAN::Module::ISA = qw(CPAN::InfoObj);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5003";
+
+BEGIN {
+    # alarm() is not implemented in perl 5.6.x and earlier under Windows
+    *ALARM_IMPLEMENTED = sub () { $] >= 5.007 || $^O !~ /MSWin/ };
+}
+
+# Accessors
+#-> sub CPAN::Module::userid
+sub userid {
+    my $self = shift;
+    my $ro = $self->ro;
+    return unless $ro;
+    return $ro->{userid} || $ro->{CPAN_USERID};
+}
+#-> sub CPAN::Module::description
+sub description {
+    my $self = shift;
+    my $ro = $self->ro or return "";
+    $ro->{description}
+}
+
+#-> sub CPAN::Module::distribution
+sub distribution {
+    my($self) = @_;
+    CPAN::Shell->expand("Distribution",$self->cpan_file);
+}
+
+#-> sub CPAN::Module::_is_representative_module
+sub _is_representative_module {
+    my($self) = @_;
+    return $self->{_is_representative_module} if defined $self->{_is_representative_module};
+    my $pm = $self->cpan_file or return $self->{_is_representative_module} = 0;
+    $pm =~ s|.+/||;
+    $pm =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i; # see base_id
+    $pm =~ s|-\d+\.\d+.+$||;
+    $pm =~ s|-[\d\.]+$||;
+    $pm =~ s/-/::/g;
+    $self->{_is_representative_module} = $pm eq $self->{ID} ? 1 : 0;
+    # warn "DEBUG: $pm eq $self->{ID} => $self->{_is_representative_module}";
+    $self->{_is_representative_module};
+}
+
+#-> sub CPAN::Module::undelay
+sub undelay {
+    my $self = shift;
+    delete $self->{later};
+    if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
+        $dist->undelay;
+    }
+}
+
+# mark as dirty/clean
+#-> sub CPAN::Module::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a module needs to recurse to its cpan_file
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    return if $color==0 && !$self->{incommandcolor};
+    if ($color>=1) {
+        if ( $self->uptodate ) {
+            $self->{incommandcolor} = $color;
+            return;
+        } elsif (my $have_version = $self->available_version) {
+            # maybe what we have is good enough
+            if (@$ancestors) {
+                my $who_asked_for_me = $ancestors->[-1];
+                my $obj = CPAN::Shell->expandany($who_asked_for_me);
+                if (0) {
+                } elsif ($obj->isa("CPAN::Bundle")) {
+                    # bundles cannot specify a minimum version
+                    return;
+                } elsif ($obj->isa("CPAN::Distribution")) {
+                    if (my $prereq_pm = $obj->prereq_pm) {
+                        for my $k (keys %$prereq_pm) {
+                            if (my $want_version = $prereq_pm->{$k}{$self->id}) {
+                                if (CPAN::Version->vcmp($have_version,$want_version) >= 0) {
+                                    $self->{incommandcolor} = $color;
+                                    return;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    } else {
+        $self->{incommandcolor} = $color; # set me before recursion,
+                                          # so we can break it
+    }
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        my $e = CPAN::Exception::RecursiveDependency->new($ancestors);
+        if ($e->is_resolvable) {
+            return $self->{incommandcolor}=2;
+        } else {
+            die $e;
+        }
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+
+    if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
+        $dist->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+    }
+    # unreached code?
+    # if ($color==0) {
+    #    delete $self->{badtestcnt};
+    # }
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Module::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    my $color_on = "";
+    my $color_off = "";
+    if (
+        $CPAN::Shell::COLOR_REGISTERED
+        &&
+        $CPAN::META->has_inst("Term::ANSIColor")
+        &&
+        $self->description
+       ) {
+        $color_on = Term::ANSIColor::color("green");
+        $color_off = Term::ANSIColor::color("reset");
+    }
+    my $uptodateness = " ";
+    unless ($class eq "Bundle") {
+        my $u = $self->uptodate;
+        $uptodateness = $u ? "=" : "<" if defined $u;
+    };
+    my $id = do {
+        my $d = $self->distribution;
+        $d ? $d -> pretty_id : $self->cpan_userid;
+    };
+    push @m, sprintf("%-7s %1s %s%-22s%s (%s)\n",
+                     $class,
+                     $uptodateness,
+                     $color_on,
+                     $self->id,
+                     $color_off,
+                     $id,
+                    );
+    join "", @m;
+}
+
+#-> sub CPAN::Module::dslip_status
+sub dslip_status {
+    my($self) = @_;
+    my($stat);
+    # development status
+    @{$stat->{D}}{qw,i c a b R M S,}     = qw,idea
+                                              pre-alpha alpha beta released
+                                              mature standard,;
+    # support level
+    @{$stat->{S}}{qw,m d u n a,}         = qw,mailing-list
+                                              developer comp.lang.perl.*
+                                              none abandoned,;
+    # language
+    @{$stat->{L}}{qw,p c + o h,}         = qw,perl C C++ other hybrid,;
+    # interface
+    @{$stat->{I}}{qw,f r O p h n,}       = qw,functions
+                                              references+ties
+                                              object-oriented pragma
+                                              hybrid none,;
+    # public licence
+    @{$stat->{P}}{qw,p g l b a 2 o d r n,} = qw,Standard-Perl
+                                              GPL LGPL
+                                              BSD Artistic Artistic_2
+                                              open-source
+                                              distribution_allowed
+                                              restricted_distribution
+                                              no_licence,;
+    for my $x (qw(d s l i p)) {
+        $stat->{$x}{' '} = 'unknown';
+        $stat->{$x}{'?'} = 'unknown';
+    }
+    my $ro = $self->ro;
+    return +{} unless $ro && $ro->{statd};
+    return {
+            D  => $ro->{statd},
+            S  => $ro->{stats},
+            L  => $ro->{statl},
+            I  => $ro->{stati},
+            P  => $ro->{statp},
+            DV => $stat->{D}{$ro->{statd}},
+            SV => $stat->{S}{$ro->{stats}},
+            LV => $stat->{L}{$ro->{statl}},
+            IV => $stat->{I}{$ro->{stati}},
+            PV => $stat->{P}{$ro->{statp}},
+           };
+}
+
+#-> sub CPAN::Module::as_string ;
+sub as_string {
+    my($self) = @_;
+    my(@m);
+    CPAN->debug("$self entering as_string") if $CPAN::DEBUG;
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    local($^W) = 0;
+    push @m, $class, " id = $self->{ID}\n";
+    my $sprintf = "    %-12s %s\n";
+    push @m, sprintf($sprintf, 'DESCRIPTION', $self->description)
+        if $self->description;
+    my $sprintf2 = "    %-12s %s (%s)\n";
+    my($userid);
+    $userid = $self->userid;
+    if ( $userid ) {
+        my $author;
+        if ($author = CPAN::Shell->expand('Author',$userid)) {
+            my $email = "";
+            my $m; # old perls
+            if ($m = $author->email) {
+                $email = " <$m>";
+            }
+            push @m, sprintf(
+                             $sprintf2,
+                             'CPAN_USERID',
+                             $userid,
+                             $author->fullname . $email
+                            );
+        }
+    }
+    push @m, sprintf($sprintf, 'CPAN_VERSION', $self->cpan_version)
+        if $self->cpan_version;
+    if (my $cpan_file = $self->cpan_file) {
+        push @m, sprintf($sprintf, 'CPAN_FILE', $cpan_file);
+        if (my $dist = CPAN::Shell->expand("Distribution",$cpan_file)) {
+            my $upload_date = $dist->upload_date;
+            if ($upload_date) {
+                push @m, sprintf($sprintf, 'UPLOAD_DATE', $upload_date);
+            }
+        }
+    }
+    my $sprintf3 = "    %-12s %1s%1s%1s%1s%1s (%s,%s,%s,%s,%s)\n";
+    my $dslip = $self->dslip_status;
+    push @m, sprintf(
+                     $sprintf3,
+                     'DSLIP_STATUS',
+                     @{$dslip}{qw(D S L I P DV SV LV IV PV)},
+                    ) if $dslip->{D};
+    my $local_file = $self->inst_file;
+    unless ($self->{MANPAGE}) {
+        my $manpage;
+        if ($local_file) {
+            $manpage = $self->manpage_headline($local_file);
+        } else {
+            # If we have already untarred it, we should look there
+            my $dist = $CPAN::META->instance('CPAN::Distribution',
+                                             $self->cpan_file);
+            # warn "dist[$dist]";
+            # mff=manifest file; mfh=manifest handle
+            my($mff,$mfh);
+            if (
+                $dist->{build_dir}
+                and
+                (-f  ($mff = File::Spec->catfile($dist->{build_dir}, "MANIFEST")))
+                and
+                $mfh = FileHandle->new($mff)
+               ) {
+                CPAN->debug("mff[$mff]") if $CPAN::DEBUG;
+                my $lfre = $self->id; # local file RE
+                $lfre =~ s/::/./g;
+                $lfre .= "\\.pm\$";
+                my($lfl); # local file file
+                local $/ = "\n";
+                my(@mflines) = <$mfh>;
+                for (@mflines) {
+                    s/^\s+//;
+                    s/\s.*//s;
+                }
+                while (length($lfre)>5 and !$lfl) {
+                    ($lfl) = grep /$lfre/, @mflines;
+                    CPAN->debug("lfl[$lfl]lfre[$lfre]") if $CPAN::DEBUG;
+                    $lfre =~ s/.+?\.//;
+                }
+                $lfl =~ s/\s.*//; # remove comments
+                $lfl =~ s/\s+//g; # chomp would maybe be too system-specific
+                my $lfl_abs = File::Spec->catfile($dist->{build_dir},$lfl);
+                # warn "lfl_abs[$lfl_abs]";
+                if (-f $lfl_abs) {
+                    $manpage = $self->manpage_headline($lfl_abs);
+                }
+            }
+        }
+        $self->{MANPAGE} = $manpage if $manpage;
+    }
+    my($item);
+    for $item (qw/MANPAGE/) {
+        push @m, sprintf($sprintf, $item, $self->{$item})
+            if exists $self->{$item};
+    }
+    for $item (qw/CONTAINS/) {
+        push @m, sprintf($sprintf, $item, join(" ",@{$self->{$item}}))
+            if exists $self->{$item} && @{$self->{$item}};
+    }
+    push @m, sprintf($sprintf, 'INST_FILE',
+                     $local_file || "(not installed)");
+    push @m, sprintf($sprintf, 'INST_VERSION',
+                     $self->inst_version) if $local_file;
+    if (%{$CPAN::META->{is_tested}||{}}) { # XXX needs to be methodified somehow
+        my $available_file = $self->available_file;
+        if ($available_file && $available_file ne $local_file) {
+            push @m, sprintf($sprintf, 'AVAILABLE_FILE', $available_file);
+            push @m, sprintf($sprintf, 'AVAILABLE_VERSION', $self->available_version);
+        }
+    }
+    join "", @m, "\n";
+}
+
+#-> sub CPAN::Module::manpage_headline
+sub manpage_headline {
+    my($self,$local_file) = @_;
+    my(@local_file) = $local_file;
+    $local_file =~ s/\.pm(?!\n)\Z/.pod/;
+    push @local_file, $local_file;
+    my(@result,$locf);
+    for $locf (@local_file) {
+        next unless -f $locf;
+        my $fh = FileHandle->new($locf)
+            or $Carp::Frontend->mydie("Couldn't open $locf: $!");
+        my $inpod = 0;
+        local $/ = "\n";
+        while (<$fh>) {
+            $inpod = m/^=(?!head1\s+NAME\s*$)/ ? 0 :
+                m/^=head1\s+NAME\s*$/ ? 1 : $inpod;
+            next unless $inpod;
+            next if /^=/;
+            next if /^\s+$/;
+            chomp;
+            push @result, $_;
+        }
+        close $fh;
+        last if @result;
+    }
+    for (@result) {
+        s/^\s+//;
+        s/\s+$//;
+    }
+    join " ", @result;
+}
+
+#-> sub CPAN::Module::cpan_file ;
+# Note: also inherited by CPAN::Bundle
+sub cpan_file {
+    my $self = shift;
+    # CPAN->debug(sprintf "id[%s]", $self->id) if $CPAN::DEBUG;
+    unless ($self->ro) {
+        CPAN::Index->reload;
+    }
+    my $ro = $self->ro;
+    if ($ro && defined $ro->{CPAN_FILE}) {
+        return $ro->{CPAN_FILE};
+    } else {
+        my $userid = $self->userid;
+        if ( $userid ) {
+            if ($CPAN::META->exists("CPAN::Author",$userid)) {
+                my $author = $CPAN::META->instance("CPAN::Author",
+                                                   $userid);
+                my $fullname = $author->fullname;
+                my $email = $author->email;
+                unless (defined $fullname && defined $email) {
+                    return sprintf("Contact Author %s",
+                                   $userid,
+                                  );
+                }
+                return "Contact Author $fullname <$email>";
+            } else {
+                return "Contact Author $userid (Email address not available)";
+            }
+        } else {
+            return "N/A";
+        }
+    }
+}
+
+#-> sub CPAN::Module::cpan_version ;
+sub cpan_version {
+    my $self = shift;
+
+    my $ro = $self->ro;
+    unless ($ro) {
+        # Can happen with modules that are not on CPAN
+        $ro = {};
+    }
+    $ro->{CPAN_VERSION} = 'undef'
+        unless defined $ro->{CPAN_VERSION};
+    $ro->{CPAN_VERSION};
+}
+
+#-> sub CPAN::Module::force ;
+sub force {
+    my($self) = @_;
+    $self->{force_update} = 1;
+}
+
+#-> sub CPAN::Module::fforce ;
+sub fforce {
+    my($self) = @_;
+    $self->{force_update} = 2;
+}
+
+#-> sub CPAN::Module::notest ;
+sub notest {
+    my($self) = @_;
+    # $CPAN::Frontend->mywarn("XDEBUG: set notest for Module");
+    $self->{notest}++;
+}
+
+#-> sub CPAN::Module::rematein ;
+sub rematein {
+    my($self,$meth) = @_;
+    $CPAN::Frontend->myprint(sprintf("Running %s for module '%s'\n",
+                                     $meth,
+                                     $self->id));
+    my $cpan_file = $self->cpan_file;
+    if ($cpan_file eq "N/A" || $cpan_file =~ /^Contact Author/) {
+        $CPAN::Frontend->mywarn(sprintf qq{
+  The module %s isn\'t available on CPAN.
+
+  Either the module has not yet been uploaded to CPAN, or it is
+  temporary unavailable. Please contact the author to find out
+  more about the status. Try 'i %s'.
+},
+                                $self->id,
+                                $self->id,
+                               );
+        return;
+    }
+    my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+    $pack->called_for($self->id);
+    if (exists $self->{force_update}) {
+        if ($self->{force_update} == 2) {
+            $pack->fforce($meth);
+        } else {
+            $pack->force($meth);
+        }
+    }
+    $pack->notest($meth) if exists $self->{notest} && $self->{notest};
+
+    $pack->{reqtype} ||= "";
+    CPAN->debug("dist-reqtype[$pack->{reqtype}]".
+                "self-reqtype[$self->{reqtype}]") if $CPAN::DEBUG;
+        if ($pack->{reqtype}) {
+            if ($pack->{reqtype} eq "b" && $self->{reqtype} =~ /^[rc]$/) {
+                $pack->{reqtype} = $self->{reqtype};
+                if (
+                    exists $pack->{install}
+                    &&
+                    (
+                     UNIVERSAL::can($pack->{install},"failed") ?
+                     $pack->{install}->failed :
+                     $pack->{install} =~ /^NO/
+                    )
+                   ) {
+                    delete $pack->{install};
+                    $CPAN::Frontend->mywarn
+                        ("Promoting $pack->{ID} from 'build_requires' to 'requires'");
+                }
+            }
+        } else {
+            $pack->{reqtype} = $self->{reqtype};
+        }
+
+    my $success = eval {
+        $pack->$meth();
+    };
+    my $err = $@;
+    $pack->unforce if $pack->can("unforce") && exists $self->{force_update};
+    $pack->unnotest if $pack->can("unnotest") && exists $self->{notest};
+    delete $self->{force_update};
+    delete $self->{notest};
+    if ($err) {
+        die $err;
+    }
+    return $success;
+}
+
+#-> sub CPAN::Module::perldoc ;
+sub perldoc { shift->rematein('perldoc') }
+#-> sub CPAN::Module::readme ;
+sub readme  { shift->rematein('readme') }
+#-> sub CPAN::Module::look ;
+sub look    { shift->rematein('look') }
+#-> sub CPAN::Module::cvs_import ;
+sub cvs_import { shift->rematein('cvs_import') }
+#-> sub CPAN::Module::get ;
+sub get     { shift->rematein('get',@_) }
+#-> sub CPAN::Module::make ;
+sub make    { shift->rematein('make') }
+#-> sub CPAN::Module::test ;
+sub test   {
+    my $self = shift;
+    # $self->{badtestcnt} ||= 0;
+    $self->rematein('test',@_);
+}
+
+#-> sub CPAN::Module::deprecated_in_core ;
+sub deprecated_in_core {
+    my ($self) = @_;
+    return unless $CPAN::META->has_inst('Module::CoreList') && Module::CoreList->can('is_deprecated');
+    return Module::CoreList::is_deprecated($self->{ID});
+}
+
+#-> sub CPAN::Module::inst_deprecated;
+# Indicates whether the *installed* version of the module is a deprecated *and*
+# installed as part of the Perl core library path
+sub inst_deprecated {
+    my ($self) = @_;
+    my $inst_file = $self->inst_file or return;
+    return $self->deprecated_in_core && $self->_in_priv_or_arch($inst_file);
+}
+
+#-> sub CPAN::Module::uptodate ;
+sub uptodate {
+    my ($self) = @_;
+    local ($_);
+    my $inst = $self->inst_version or return 0;
+    my $cpan = $self->cpan_version;
+    return 0 if CPAN::Version->vgt($cpan,$inst) || $self->inst_deprecated;
+    CPAN->debug
+        (join
+         ("",
+          "returning uptodate. ",
+          "cpan[$cpan]inst[$inst]",
+         )) if $CPAN::DEBUG;
+    return 1;
+}
+
+# returns true if installed in privlib or archlib
+sub _in_priv_or_arch {
+    my($self,$inst_file) = @_;
+    foreach my $pair (
+        [qw(sitearchexp archlibexp)],
+        [qw(sitelibexp privlibexp)]
+    ) {
+        my ($site, $priv) = @Config::Config{@$pair};
+        if ($^O eq 'VMS') {
+            for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) };
+        }
+        s!/*$!!g foreach $site, $priv;
+        next if $site eq $priv;
+
+        if ($priv eq substr($inst_file,0,length($priv))) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+#-> sub CPAN::Module::install ;
+sub install {
+    my($self) = @_;
+    my($doit) = 0;
+    if ($self->uptodate
+        &&
+        not exists $self->{force_update}
+       ) {
+        $CPAN::Frontend->myprint(sprintf("%s is up to date (%s).\n",
+                                         $self->id,
+                                         $self->inst_version,
+                                        ));
+    } else {
+        $doit = 1;
+    }
+    my $ro = $self->ro;
+    if ($ro && $ro->{stats} && $ro->{stats} eq "a") {
+        $CPAN::Frontend->mywarn(qq{
+\n\n\n     ***WARNING***
+     The module $self->{ID} has no active maintainer (CPAN support level flag 'abandoned').\n\n\n
+});
+        $CPAN::Frontend->mysleep(5);
+    }
+    return $doit ? $self->rematein('install') : 1;
+}
+#-> sub CPAN::Module::clean ;
+sub clean  { shift->rematein('clean') }
+
+#-> sub CPAN::Module::inst_file ;
+sub inst_file {
+    my($self) = @_;
+    $self->_file_in_path([@INC]);
+}
+
+#-> sub CPAN::Module::available_file ;
+sub available_file {
+    my($self) = @_;
+    my $sep = $Config::Config{path_sep};
+    my $perllib = $ENV{PERL5LIB};
+    $perllib = $ENV{PERLLIB} unless defined $perllib;
+    my @perllib = split(/$sep/,$perllib) if defined $perllib;
+    my @cpan_perl5inc;
+    if ($CPAN::Perl5lib_tempfile) {
+        my $yaml = CPAN->_yaml_loadfile($CPAN::Perl5lib_tempfile);
+        @cpan_perl5inc = @{$yaml->[0]{inc} || []};
+    }
+    $self->_file_in_path([@cpan_perl5inc,@perllib,@INC]);
+}
+
+#-> sub CPAN::Module::file_in_path ;
+sub _file_in_path {
+    my($self,$path) = @_;
+    my($dir,@packpath);
+    @packpath = split /::/, $self->{ID};
+    $packpath[-1] .= ".pm";
+    if (@packpath == 1 && $packpath[0] eq "readline.pm") {
+        unshift @packpath, "Term", "ReadLine"; # historical reasons
+    }
+    foreach $dir (@$path) {
+        my $pmfile = File::Spec->catfile($dir,@packpath);
+        if (-f $pmfile) {
+            return $pmfile;
+        }
+    }
+    return;
+}
+
+#-> sub CPAN::Module::xs_file ;
+sub xs_file {
+    my($self) = @_;
+    my($dir,@packpath);
+    @packpath = split /::/, $self->{ID};
+    push @packpath, $packpath[-1];
+    $packpath[-1] .= "." . $Config::Config{'dlext'};
+    foreach $dir (@INC) {
+        my $xsfile = File::Spec->catfile($dir,'auto',@packpath);
+        if (-f $xsfile) {
+            return $xsfile;
+        }
+    }
+    return;
+}
+
+#-> sub CPAN::Module::inst_version ;
+sub inst_version {
+    my($self) = @_;
+    my $parsefile = $self->inst_file or return;
+    my $have = $self->parse_version($parsefile);
+    $have;
+}
+
+#-> sub CPAN::Module::inst_version ;
+sub available_version {
+    my($self) = @_;
+    my $parsefile = $self->available_file or return;
+    my $have = $self->parse_version($parsefile);
+    $have;
+}
+
+#-> sub CPAN::Module::parse_version ;
+sub parse_version {
+    my($self,$parsefile) = @_;
+    if (ALARM_IMPLEMENTED) {
+        my $timeout = (exists($CPAN::Config{'version_timeout'}))
+                            ? $CPAN::Config{'version_timeout'}
+                            : 15;
+        alarm($timeout);
+    }
+    my $have = eval {
+        local $SIG{ALRM} = sub { die "alarm\n" };
+        MM->parse_version($parsefile);
+    };
+    if ($@) {
+        $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n");
+    }
+    alarm(0) if ALARM_IMPLEMENTED;
+    my $leastsanity = eval { defined $have && length $have; };
+    $have = "undef" unless $leastsanity;
+    $have =~ s/^ //; # since the %vd hack these two lines here are needed
+    $have =~ s/ $//; # trailing whitespace happens all the time
+
+    $have = CPAN::Version->readable($have);
+
+    $have =~ s/\s*//g; # stringify to float around floating point issues
+    $have; # no stringify needed, \s* above matches always
+}
+
+#-> sub CPAN::Module::reports
+sub reports {
+    my($self) = @_;
+    $self->distribution->reports;
+}
+
+1;
+package CPAN::Index;
+use strict;
+use vars qw($LAST_TIME $DATE_OF_02 $DATE_OF_03 $HAVE_REANIMATED $VERSION);
+$VERSION = "2.12";
+@CPAN::Index::ISA = qw(CPAN::Debug);
+$LAST_TIME ||= 0;
+$DATE_OF_03 ||= 0;
+# use constant PROTOCOL => "2.0"; # commented out to avoid warning on upgrade from 1.57
+sub PROTOCOL { 2.0 }
+
+#-> sub CPAN::Index::force_reload ;
+sub force_reload {
+    my($class) = @_;
+    $CPAN::Index::LAST_TIME = 0;
+    $class->reload(1);
+}
+
+my @indexbundle =
+    (
+     {
+      reader => "rd_authindex",
+      dir => "authors",
+      remotefile => '01mailrc.txt.gz',
+      shortlocalfile => '01mailrc.gz',
+     },
+     {
+      reader => "rd_modpacks",
+      dir => "modules",
+      remotefile => '02packages.details.txt.gz',
+      shortlocalfile => '02packag.gz',
+     },
+     {
+      reader => "rd_modlist",
+      dir => "modules",
+      remotefile => '03modlist.data.gz',
+      shortlocalfile => '03mlist.gz',
+     },
+    );
+
+#-> sub CPAN::Index::reload ;
+sub reload {
+    my($self,$force) = @_;
+    my $time = time;
+
+    # XXX check if a newer one is available. (We currently read it
+    # from time to time)
+    for ($CPAN::Config->{index_expire}) {
+        $_ = 0.001 unless $_ && $_ > 0.001;
+    }
+    unless (1 || $CPAN::Have_warned->{readmetadatacache}++) {
+        # debug here when CPAN doesn't seem to read the Metadata
+        require Carp;
+        Carp::cluck("META-PROTOCOL[$CPAN::META->{PROTOCOL}]");
+    }
+    unless ($CPAN::META->{PROTOCOL}) {
+        $self->read_metadata_cache;
+        $CPAN::META->{PROTOCOL} ||= "1.0";
+    }
+    if ( $CPAN::META->{PROTOCOL} < PROTOCOL  ) {
+        # warn "Setting last_time to 0";
+        $LAST_TIME = 0; # No warning necessary
+    }
+    if ($LAST_TIME + $CPAN::Config->{index_expire}*86400 > $time
+        and ! $force) {
+        # called too often
+        # CPAN->debug("LAST_TIME[$LAST_TIME]index_expire[$CPAN::Config->{index_expire}]time[$time]");
+    } elsif (0) {
+        # IFF we are developing, it helps to wipe out the memory
+        # between reloads, otherwise it is not what a user expects.
+        undef $CPAN::META; # Neue Gruendlichkeit since v1.52(r1.274)
+        $CPAN::META = CPAN->new;
+    } else {
+        my($debug,$t2);
+        local $LAST_TIME = $time;
+        local $CPAN::META->{PROTOCOL} = PROTOCOL;
+
+        my $needshort = $^O eq "dos";
+
+    INX: for my $indexbundle (@indexbundle) {
+            my $reader = $indexbundle->{reader};
+            my $localfile = $needshort ? $indexbundle->{shortlocalfile} : $indexbundle->{remotefile};
+            my $localpath = File::Spec->catfile($indexbundle->{dir}, $localfile);
+            my $remote = join "/", $indexbundle->{dir}, $indexbundle->{remotefile};
+            my $localized = $self->reload_x($remote, $localpath, $force);
+            $self->$reader($localized); # may die but we let the shell catch it
+            if ($CPAN::DEBUG){
+                $t2 = time;
+                $debug = "timing reading 01[".($t2 - $time)."]";
+                $time = $t2;
+            }
+            return if $CPAN::Signal; # this is sometimes lengthy
+        }
+        $self->write_metadata_cache;
+        if ($CPAN::DEBUG){
+            $t2 = time;
+            $debug .= "03[".($t2 - $time)."]";
+            $time = $t2;
+        }
+        CPAN->debug($debug) if $CPAN::DEBUG;
+    }
+    if ($CPAN::Config->{build_dir_reuse}) {
+        $self->reanimate_build_dir;
+    }
+    if (CPAN::_sqlite_running()) {
+        $CPAN::SQLite->reload(time => $time, force => $force)
+            if not $LAST_TIME;
+    }
+    $LAST_TIME = $time;
+    $CPAN::META->{PROTOCOL} = PROTOCOL;
+}
+
+#-> sub CPAN::Index::reanimate_build_dir ;
+sub reanimate_build_dir {
+    my($self) = @_;
+    unless ($CPAN::META->has_inst($CPAN::Config->{yaml_module}||"YAML")) {
+        return;
+    }
+    return if $HAVE_REANIMATED++;
+    my $d = $CPAN::Config->{build_dir};
+    my $dh = DirHandle->new;
+    opendir $dh, $d or return; # does not exist
+    my $dirent;
+    my $i = 0;
+    my $painted = 0;
+    my $restored = 0;
+    my $start = CPAN::FTP::_mytime();
+    my @candidates = map { $_->[0] }
+        sort { $b->[1] <=> $a->[1] }
+            map { [ $_, -M File::Spec->catfile($d,$_) ] }
+                grep {/(.+)\.yml$/ && -d File::Spec->catfile($d,$1)} readdir $dh;
+    if ( @candidates ) {
+        $CPAN::Frontend->myprint
+            (sprintf("Reading %d yaml file%s from %s/\n",
+                    scalar @candidates,
+                    @candidates==1 ? "" : "s",
+                    $CPAN::Config->{build_dir}
+                    ));
+      DISTRO: for $i (0..$#candidates) {
+            my $dirent = $candidates[$i];
+            my $y = eval {CPAN->_yaml_loadfile(File::Spec->catfile($d,$dirent))};
+            if ($@) {
+                warn "Error while parsing file '$dirent'; error: '$@'";
+                next DISTRO;
+            }
+            my $c = $y->[0];
+            if ($c && $c->{perl} && $c->{distribution} && CPAN->_perl_fingerprint($c->{perl})) {
+                my $key = $c->{distribution}{ID};
+                for my $k (keys %{$c->{distribution}}) {
+                    if ($c->{distribution}{$k}
+                        && ref $c->{distribution}{$k}
+                        && UNIVERSAL::isa($c->{distribution}{$k},"CPAN::Distrostatus")) {
+                        $c->{distribution}{$k}{COMMANDID} = $i - @candidates;
+                    }
+                }
+
+                #we tried to restore only if element already
+                #exists; but then we do not work with metadata
+                #turned off.
+                my $do
+                    = $CPAN::META->{readwrite}{'CPAN::Distribution'}{$key}
+                        = $c->{distribution};
+                for my $skipper (qw(
+                                    badtestcnt
+                                    configure_requires_later
+                                    configure_requires_later_for
+                                    force_update
+                                    later
+                                    later_for
+                                    notest
+                                    should_report
+                                    sponsored_mods
+                                    prefs
+                                    negative_prefs_cache
+                                  )) {
+                    delete $do->{$skipper};
+                }
+                if ($do->can("tested_ok_but_not_installed")) {
+                    if ($do->tested_ok_but_not_installed) {
+                        $CPAN::META->is_tested($do->{build_dir},$do->{make_test}{TIME});
+                    } else {
+                        next DISTRO;
+                    }
+                }
+                $restored++;
+            }
+            $i++;
+            while (($painted/76) < ($i/@candidates)) {
+                $CPAN::Frontend->myprint(".");
+                $painted++;
+            }
+        }
+    }
+    else {
+        $CPAN::Frontend->myprint("Build_dir empty, nothing to restore\n");
+    }
+    my $took = CPAN::FTP::_mytime() - $start;
+    $CPAN::Frontend->myprint(sprintf(
+                                     "DONE\nRestored the state of %s (in %.4f secs)\n",
+                                     $restored || "none",
+                                     $took,
+                                    ));
+}
+
+
+#-> sub CPAN::Index::reload_x ;
+sub reload_x {
+    my($cl,$wanted,$localname,$force) = @_;
+    $force |= 2; # means we're dealing with an index here
+    CPAN::HandleConfig->load; # we should guarantee loading wherever
+                              # we rely on Config XXX
+    $localname ||= $wanted;
+    my $abs_wanted = File::Spec->catfile($CPAN::Config->{'keep_source_where'},
+                                         $localname);
+    if (
+        -f $abs_wanted &&
+        -M $abs_wanted < $CPAN::Config->{'index_expire'} &&
+        !($force & 1)
+       ) {
+        my $s = $CPAN::Config->{'index_expire'} == 1 ? "" : "s";
+        $cl->debug(qq{$abs_wanted younger than $CPAN::Config->{'index_expire'} }.
+                   qq{day$s. I\'ll use that.});
+        return $abs_wanted;
+    } else {
+        $force |= 1; # means we're quite serious about it.
+    }
+    return CPAN::FTP->localize($wanted,$abs_wanted,$force);
+}
+
+#-> sub CPAN::Index::rd_authindex ;
+sub rd_authindex {
+    my($cl, $index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    my @lines;
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    local(*FH);
+    tie *FH, 'CPAN::Tarzip', $index_target;
+    local($/) = "\n";
+    local($_);
+    push @lines, split /\012/ while <FH>;
+    my $i = 0;
+    my $painted = 0;
+    foreach (@lines) {
+        my($userid,$fullname,$email) =
+            m/alias\s+(\S+)\s+\"([^\"\<]*)\s+\<(.*)\>\"/;
+        $fullname ||= $email;
+        if ($userid && $fullname && $email) {
+            my $userobj = $CPAN::META->instance('CPAN::Author',$userid);
+            $userobj->set('FULLNAME' => $fullname, 'EMAIL' => $email);
+        } else {
+            CPAN->debug(sprintf "line[%s]", $_) if $CPAN::DEBUG;
+        }
+        $i++;
+        while (($painted/76) < ($i/@lines)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+}
+
+sub userid {
+  my($self,$dist) = @_;
+  $dist = $self->{'id'} unless defined $dist;
+  my($ret) = $dist =~ m|(?:\w/\w\w/)?([^/]+)/|;
+  $ret;
+}
+
+#-> sub CPAN::Index::rd_modpacks ;
+sub rd_modpacks {
+    my($self, $index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
+    local $_;
+    CPAN->debug(sprintf "start[%d]", time) if $CPAN::DEBUG;
+    my $slurp = "";
+    my $chunk;
+    while (my $bytes = $fh->READ(\$chunk,8192)) {
+        $slurp.=$chunk;
+    }
+    my @lines = split /\012/, $slurp;
+    CPAN->debug(sprintf "end[%d]", time) if $CPAN::DEBUG;
+    undef $fh;
+    # read header
+    my($line_count,$last_updated);
+    while (@lines) {
+        my $shift = shift(@lines);
+        last if $shift =~ /^\s*$/;
+        $shift =~ /^Line-Count:\s+(\d+)/ and $line_count = $1;
+        $shift =~ /^Last-Updated:\s+(.+)/ and $last_updated = $1;
+    }
+    CPAN->debug("line_count[$line_count]last_updated[$last_updated]") if $CPAN::DEBUG;
+    my $errors = 0;
+    if (not defined $line_count) {
+
+        $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Line-Count header.
+Please check the validity of the index file by comparing it to more
+than one CPAN mirror. I'll continue but problems seem likely to
+happen.\a
+});
+        $errors++;
+        $CPAN::Frontend->mysleep(5);
+    } elsif ($line_count != scalar @lines) {
+
+        $CPAN::Frontend->mywarn(sprintf qq{Warning: Your %s
+contains a Line-Count header of %d but I see %d lines there. Please
+check the validity of the index file by comparing it to more than one
+CPAN mirror. I'll continue but problems seem likely to happen.\a\n},
+$index_target, $line_count, scalar(@lines));
+
+    }
+    if (not defined $last_updated) {
+
+        $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Last-Updated header.
+Please check the validity of the index file by comparing it to more
+than one CPAN mirror. I'll continue but problems seem likely to
+happen.\a
+});
+        $errors++;
+        $CPAN::Frontend->mysleep(5);
+    } else {
+
+        $CPAN::Frontend
+            ->myprint(sprintf qq{  Database was generated on %s\n},
+                      $last_updated);
+        $DATE_OF_02 = $last_updated;
+
+        my $age = time;
+        if ($CPAN::META->has_inst('HTTP::Date')) {
+            require HTTP::Date;
+            $age -= HTTP::Date::str2time($last_updated);
+        } else {
+            $CPAN::Frontend->mywarn("  HTTP::Date not available\n");
+            require Time::Local;
+            my(@d) = $last_updated =~ / (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) /;
+            $d[1] = index("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec", $d[1])/4;
+            $age -= $d[1]>=0 ? Time::Local::timegm(@d[5,4,3,0,1,2]) : 0;
+        }
+        $age /= 3600*24;
+        if ($age > 30) {
+
+            $CPAN::Frontend
+                ->mywarn(sprintf
+                         qq{Warning: This index file is %d days old.
+  Please check the host you chose as your CPAN mirror for staleness.
+  I'll continue but problems seem likely to happen.\a\n},
+                         $age);
+
+        } elsif ($age < -1) {
+
+            $CPAN::Frontend
+                ->mywarn(sprintf
+                         qq{Warning: Your system date is %d days behind this index file!
+  System time:          %s
+  Timestamp index file: %s
+  Please fix your system time, problems with the make command expected.\n},
+                         -$age,
+                         scalar gmtime,
+                         $DATE_OF_02,
+                        );
+
+        }
+    }
+
+
+    # A necessity since we have metadata_cache: delete what isn't
+    # there anymore
+    my $secondtime = $CPAN::META->exists("CPAN::Module","CPAN");
+    CPAN->debug("secondtime[$secondtime]") if $CPAN::DEBUG;
+    my(%exists);
+    my $i = 0;
+    my $painted = 0;
+ LINE: foreach (@lines) {
+        # before 1.56 we split into 3 and discarded the rest. From
+        # 1.57 we assign remaining text to $comment thus allowing to
+        # influence isa_perl
+        my($mod,$version,$dist,$comment) = split " ", $_, 4;
+        unless ($mod && defined $version && $dist) {
+            require Dumpvalue;
+            my $dv = Dumpvalue->new(tick => '"');
+            $CPAN::Frontend->mywarn(sprintf "Could not split line[%s]\n", $dv->stringify($_));
+            if ($errors++ >= 5){
+                $CPAN::Frontend->mydie("Giving up parsing your $index_target, too many errors");
+            }
+            next LINE;
+        }
+        my($bundle,$id,$userid);
+
+        if ($mod eq 'CPAN' &&
+            ! (
+            CPAN::Queue->exists('Bundle::CPAN') ||
+            CPAN::Queue->exists('CPAN')
+            )
+        ) {
+            local($^W)= 0;
+            if ($version > $CPAN::VERSION) {
+                $CPAN::Frontend->mywarn(qq{
+  New CPAN.pm version (v$version) available.
+  [Currently running version is v$CPAN::VERSION]
+  You might want to try
+    install CPAN
+    reload cpan
+  to both upgrade CPAN.pm and run the new version without leaving
+  the current session.
+
+}); #});
+                $CPAN::Frontend->mysleep(2);
+                $CPAN::Frontend->myprint(qq{\n});
+            }
+            last if $CPAN::Signal;
+        } elsif ($mod =~ /^Bundle::(.*)/) {
+            $bundle = $1;
+        }
+
+        if ($bundle) {
+            $id =  $CPAN::META->instance('CPAN::Bundle',$mod);
+            # Let's make it a module too, because bundles have so much
+            # in common with modules.
+
+            # Changed in 1.57_63: seems like memory bloat now without
+            # any value, so commented out
+
+            # $CPAN::META->instance('CPAN::Module',$mod);
+
+        } else {
+
+            # instantiate a module object
+            $id = $CPAN::META->instance('CPAN::Module',$mod);
+
+        }
+
+        # Although CPAN prohibits same name with different version the
+        # indexer may have changed the version for the same distro
+        # since the last time ("Force Reindexing" feature)
+        if ($id->cpan_file ne $dist
+            ||
+            $id->cpan_version ne $version
+           ) {
+            $userid = $id->userid || $self->userid($dist);
+            $id->set(
+                     'CPAN_USERID' => $userid,
+                     'CPAN_VERSION' => $version,
+                     'CPAN_FILE' => $dist,
+                    );
+        }
+
+        # instantiate a distribution object
+        if ($CPAN::META->exists('CPAN::Distribution',$dist)) {
+        # we do not need CONTAINSMODS unless we do something with
+        # this dist, so we better produce it on demand.
+
+        ## my $obj = $CPAN::META->instance(
+        ##                                 'CPAN::Distribution' => $dist
+        ##                                );
+        ## $obj->{CONTAINSMODS}{$mod} = undef; # experimental
+        } else {
+            $CPAN::META->instance(
+                                  'CPAN::Distribution' => $dist
+                                 )->set(
+                                        'CPAN_USERID' => $userid,
+                                        'CPAN_COMMENT' => $comment,
+                                       );
+        }
+        if ($secondtime) {
+            for my $name ($mod,$dist) {
+                # $self->debug("exists name[$name]") if $CPAN::DEBUG;
+                $exists{$name} = undef;
+            }
+        }
+        $i++;
+        while (($painted/76) < ($i/@lines)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+    if ($secondtime) {
+        for my $class (qw(CPAN::Module CPAN::Bundle CPAN::Distribution)) {
+            for my $o ($CPAN::META->all_objects($class)) {
+                next if exists $exists{$o->{ID}};
+                $CPAN::META->delete($class,$o->{ID});
+                # CPAN->debug("deleting ID[$o->{ID}] in class[$class]")
+                #     if $CPAN::DEBUG;
+            }
+        }
+    }
+}
+
+#-> sub CPAN::Index::rd_modlist ;
+sub rd_modlist {
+    my($cl,$index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
+    local $_;
+    my $slurp = "";
+    my $chunk;
+    while (my $bytes = $fh->READ(\$chunk,8192)) {
+        $slurp.=$chunk;
+    }
+    my @eval2 = split /\012/, $slurp;
+
+    while (@eval2) {
+        my $shift = shift(@eval2);
+        if ($shift =~ /^Date:\s+(.*)/) {
+            if ($DATE_OF_03 eq $1) {
+                $CPAN::Frontend->myprint("Unchanged.\n");
+                return;
+            }
+            ($DATE_OF_03) = $1;
+        }
+        last if $shift =~ /^\s*$/;
+    }
+    push @eval2, q{CPAN::Modulelist->data;};
+    local($^W) = 0;
+    my($compmt) = Safe->new("CPAN::Safe1");
+    my($eval2) = join("\n", @eval2);
+    CPAN->debug(sprintf "length of eval2[%d]", length $eval2) if $CPAN::DEBUG;
+    my $ret = $compmt->reval($eval2);
+    Carp::confess($@) if $@;
+    return if $CPAN::Signal;
+    my $i = 0;
+    my $until = keys(%$ret);
+    my $painted = 0;
+    CPAN->debug(sprintf "until[%d]", $until) if $CPAN::DEBUG;
+    for (sort keys %$ret) {
+        my $obj = $CPAN::META->instance("CPAN::Module",$_);
+        delete $ret->{$_}{modid}; # not needed here, maybe elsewhere
+        $obj->set(%{$ret->{$_}});
+        $i++;
+        while (($painted/76) < ($i/$until)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+}
+
+#-> sub CPAN::Index::write_metadata_cache ;
+sub write_metadata_cache {
+    my($self) = @_;
+    return unless $CPAN::Config->{'cache_metadata'};
+    return if CPAN::_sqlite_running();
+    return unless $CPAN::META->has_usable("Storable");
+    my $cache;
+    foreach my $k (qw(CPAN::Bundle CPAN::Author CPAN::Module
+                      CPAN::Distribution)) {
+        $cache->{$k} = $CPAN::META->{readonly}{$k}; # unsafe meta access, ok
+    }
+    my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
+    $cache->{last_time} = $LAST_TIME;
+    $cache->{DATE_OF_02} = $DATE_OF_02;
+    $cache->{PROTOCOL} = PROTOCOL;
+    $CPAN::Frontend->myprint("Writing $metadata_file\n");
+    eval { Storable::nstore($cache, $metadata_file) };
+    $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ??
+}
+
+#-> sub CPAN::Index::read_metadata_cache ;
+sub read_metadata_cache {
+    my($self) = @_;
+    return unless $CPAN::Config->{'cache_metadata'};
+    return if CPAN::_sqlite_running();
+    return unless $CPAN::META->has_usable("Storable");
+    my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
+    return unless -r $metadata_file and -f $metadata_file;
+    $CPAN::Frontend->myprint("Reading '$metadata_file'\n");
+    my $cache;
+    eval { $cache = Storable::retrieve($metadata_file) };
+    $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ??
+    if (!$cache || !UNIVERSAL::isa($cache, 'HASH')) {
+        $LAST_TIME = 0;
+        return;
+    }
+    if (exists $cache->{PROTOCOL}) {
+        if (PROTOCOL > $cache->{PROTOCOL}) {
+            $CPAN::Frontend->mywarn(sprintf("Ignoring Metadata cache written ".
+                                            "with protocol v%s, requiring v%s\n",
+                                            $cache->{PROTOCOL},
+                                            PROTOCOL)
+                                   );
+            return;
+        }
+    } else {
+        $CPAN::Frontend->mywarn("Ignoring Metadata cache written ".
+                                "with protocol v1.0\n");
+        return;
+    }
+    my $clcnt = 0;
+    my $idcnt = 0;
+    while(my($class,$v) = each %$cache) {
+        next unless $class =~ /^CPAN::/;
+        $CPAN::META->{readonly}{$class} = $v; # unsafe meta access, ok
+        while (my($id,$ro) = each %$v) {
+            $CPAN::META->{readwrite}{$class}{$id} ||=
+                $class->new(ID=>$id, RO=>$ro);
+            $idcnt++;
+        }
+        $clcnt++;
+    }
+    unless ($clcnt) { # sanity check
+        $CPAN::Frontend->myprint("Warning: Found no data in $metadata_file\n");
+        return;
+    }
+    if ($idcnt < 1000) {
+        $CPAN::Frontend->myprint("Warning: Found only $idcnt objects ".
+                                 "in $metadata_file\n");
+        return;
+    }
+    $CPAN::META->{PROTOCOL} ||=
+        $cache->{PROTOCOL}; # reading does not up or downgrade, but it
+                            # does initialize to some protocol
+    $LAST_TIME = $cache->{last_time};
+    $DATE_OF_02 = $cache->{DATE_OF_02};
+    $CPAN::Frontend->myprint("  Database was generated on $DATE_OF_02\n")
+        if defined $DATE_OF_02; # An old cache may not contain DATE_OF_02
+    return;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Prompt;
+use overload '""' => "as_string";
+use vars qw($prompt);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+$prompt = "cpan> ";
+$CPAN::CurrentCommandId ||= 0;
+sub new {
+    bless {}, shift;
+}
+sub as_string {
+    my $word = "cpan";
+    unless ($CPAN::META->{LOCK}) {
+        $word = "nolock_cpan";
+    }
+    if ($CPAN::Config->{commandnumber_in_prompt}) {
+        sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
+    } else {
+        "$word> ";
+    }
+}
+
+1;
+package CPAN::Nox;
+use strict;
+use vars qw($VERSION @EXPORT);
+
+BEGIN{
+  $CPAN::Suppress_readline=1 unless defined $CPAN::term;
+}
+
+use Exporter ();
+@CPAN::ISA = ('Exporter');
+use CPAN;
+
+$VERSION = "5.5001";
+$CPAN::META->has_inst('Digest::MD5','no');
+$CPAN::META->has_inst('LWP','no');
+$CPAN::META->has_inst('Compress::Zlib','no');
+@EXPORT = @CPAN::EXPORT;
+
+*AUTOLOAD = \&CPAN::AUTOLOAD;
+
+1;
+
+__END__
+
+
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta;
+
+our $VERSION = '2.150010';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod     use v5.10;
+#pod     use strict;
+#pod     use warnings;
+#pod     use CPAN::Meta;
+#pod     use Module::Load;
+#pod
+#pod     my $meta = CPAN::Meta->load_file('META.json');
+#pod
+#pod     printf "testing requirements for %s version %s\n",
+#pod     $meta->name,
+#pod     $meta->version;
+#pod
+#pod     my $prereqs = $meta->effective_prereqs;
+#pod
+#pod     for my $phase ( qw/configure runtime build test/ ) {
+#pod         say "Requirements for $phase:";
+#pod         my $reqs = $prereqs->requirements_for($phase, "requires");
+#pod         for my $module ( sort $reqs->required_modules ) {
+#pod             my $status;
+#pod             if ( eval { load $module unless $module eq 'perl'; 1 } ) {
+#pod                 my $version = $module eq 'perl' ? $] : $module->VERSION;
+#pod                 $status = $reqs->accepts_module($module, $version)
+#pod                         ? "$version ok" : "$version not ok";
+#pod             } else {
+#pod                 $status = "missing"
+#pod             };
+#pod             say "  $module ($status)";
+#pod         }
+#pod     }
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod Software distributions released to the CPAN include a F<META.json> or, for
+#pod older distributions, F<META.yml>, which describes the distribution, its
+#pod contents, and the requirements for building and installing the distribution.
+#pod The data structure stored in the F<META.json> file is described in
+#pod L<CPAN::Meta::Spec>.
+#pod
+#pod CPAN::Meta provides a simple class to represent this distribution metadata (or
+#pod I<distmeta>), along with some helpful methods for interrogating that data.
+#pod
+#pod The documentation below is only for the methods of the CPAN::Meta object.  For
+#pod information on the meaning of individual fields, consult the spec.
+#pod
+#pod =cut
+
+use Carp qw(carp croak);
+use CPAN::Meta::Feature;
+use CPAN::Meta::Prereqs;
+use CPAN::Meta::Converter;
+use CPAN::Meta::Validator;
+use Parse::CPAN::Meta 1.4414 ();
+
+BEGIN { *_dclone = \&CPAN::Meta::Converter::_dclone }
+
+#pod =head1 STRING DATA
+#pod
+#pod The following methods return a single value, which is the value for the
+#pod corresponding entry in the distmeta structure.  Values should be either undef
+#pod or strings.
+#pod
+#pod =for :list
+#pod * abstract
+#pod * description
+#pod * dynamic_config
+#pod * generated_by
+#pod * name
+#pod * release_status
+#pod * version
+#pod
+#pod =cut
+
+BEGIN {
+  my @STRING_READERS = qw(
+    abstract
+    description
+    dynamic_config
+    generated_by
+    name
+    release_status
+    version
+  );
+
+  no strict 'refs';
+  for my $attr (@STRING_READERS) {
+    *$attr = sub { $_[0]{ $attr } };
+  }
+}
+
+#pod =head1 LIST DATA
+#pod
+#pod These methods return lists of string values, which might be represented in the
+#pod distmeta structure as arrayrefs or scalars:
+#pod
+#pod =for :list
+#pod * authors
+#pod * keywords
+#pod * licenses
+#pod
+#pod The C<authors> and C<licenses> methods may also be called as C<author> and
+#pod C<license>, respectively, to match the field name in the distmeta structure.
+#pod
+#pod =cut
+
+BEGIN {
+  my @LIST_READERS = qw(
+    author
+    keywords
+    license
+  );
+
+  no strict 'refs';
+  for my $attr (@LIST_READERS) {
+    *$attr = sub {
+      my $value = $_[0]{ $attr };
+      croak "$attr must be called in list context"
+        unless wantarray;
+      return @{ _dclone($value) } if ref $value;
+      return $value;
+    };
+  }
+}
+
+sub authors  { $_[0]->author }
+sub licenses { $_[0]->license }
+
+#pod =head1 MAP DATA
+#pod
+#pod These readers return hashrefs of arbitrary unblessed data structures, each
+#pod described more fully in the specification:
+#pod
+#pod =for :list
+#pod * meta_spec
+#pod * resources
+#pod * provides
+#pod * no_index
+#pod * prereqs
+#pod * optional_features
+#pod
+#pod =cut
+
+BEGIN {
+  my @MAP_READERS = qw(
+    meta-spec
+    resources
+    provides
+    no_index
+
+    prereqs
+    optional_features
+  );
+
+  no strict 'refs';
+  for my $attr (@MAP_READERS) {
+    (my $subname = $attr) =~ s/-/_/;
+    *$subname = sub {
+      my $value = $_[0]{ $attr };
+      return _dclone($value) if $value;
+      return {};
+    };
+  }
+}
+
+#pod =head1 CUSTOM DATA
+#pod
+#pod A list of custom keys are available from the C<custom_keys> method and
+#pod particular keys may be retrieved with the C<custom> method.
+#pod
+#pod   say $meta->custom($_) for $meta->custom_keys;
+#pod
+#pod If a custom key refers to a data structure, a deep clone is returned.
+#pod
+#pod =cut
+
+sub custom_keys {
+  return grep { /^x_/i } keys %{$_[0]};
+}
+
+sub custom {
+  my ($self, $attr) = @_;
+  my $value = $self->{$attr};
+  return _dclone($value) if ref $value;
+  return $value;
+}
+
+#pod =method new
+#pod
+#pod   my $meta = CPAN::Meta->new($distmeta_struct, \%options);
+#pod
+#pod Returns a valid CPAN::Meta object or dies if the supplied metadata hash
+#pod reference fails to validate.  Older-format metadata will be up-converted to
+#pod version 2 if they validate against the original stated specification.
+#pod
+#pod It takes an optional hashref of options. Valid options include:
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod lazy_validation -- if true, new will attempt to convert the given metadata
+#pod to version 2 before attempting to validate it.  This means than any
+#pod fixable errors will be handled by CPAN::Meta::Converter before validation.
+#pod (Note that this might result in invalid optional data being silently
+#pod dropped.)  The default is false.
+#pod
+#pod =back
+#pod
+#pod =cut
+
+sub _new {
+  my ($class, $struct, $options) = @_;
+  my $self;
+
+  if ( $options->{lazy_validation} ) {
+    # try to convert to a valid structure; if succeeds, then return it
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $self = $cmc->convert( version => 2 ); # valid or dies
+    return bless $self, $class;
+  }
+  else {
+    # validate original struct
+    my $cmv = CPAN::Meta::Validator->new( $struct );
+    unless ( $cmv->is_valid) {
+      die "Invalid metadata structure. Errors: "
+        . join(", ", $cmv->errors) . "\n";
+    }
+  }
+
+  # up-convert older spec versions
+  my $version = $struct->{'meta-spec'}{version} || '1.0';
+  if ( $version == 2 ) {
+    $self = $struct;
+  }
+  else {
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $self = $cmc->convert( version => 2 );
+  }
+
+  return bless $self, $class;
+}
+
+sub new {
+  my ($class, $struct, $options) = @_;
+  my $self = eval { $class->_new($struct, $options) };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method create
+#pod
+#pod   my $meta = CPAN::Meta->create($distmeta_struct, \%options);
+#pod
+#pod This is same as C<new()>, except that C<generated_by> and C<meta-spec> fields
+#pod will be generated if not provided.  This means the metadata structure is
+#pod assumed to otherwise follow the latest L<CPAN::Meta::Spec>.
+#pod
+#pod =cut
+
+sub create {
+  my ($class, $struct, $options) = @_;
+  my $version = __PACKAGE__->VERSION || 2;
+  $struct->{generated_by} ||= __PACKAGE__ . " version $version" ;
+  $struct->{'meta-spec'}{version} ||= int($version);
+  my $self = eval { $class->_new($struct, $options) };
+  croak ($@) if $@;
+  return $self;
+}
+
+#pod =method load_file
+#pod
+#pod   my $meta = CPAN::Meta->load_file($distmeta_file, \%options);
+#pod
+#pod Given a pathname to a file containing metadata, this deserializes the file
+#pod according to its file suffix and constructs a new C<CPAN::Meta> object, just
+#pod like C<new()>.  It will die if the deserialized version fails to validate
+#pod against its stated specification version.
+#pod
+#pod It takes the same options as C<new()> but C<lazy_validation> defaults to
+#pod true.
+#pod
+#pod =cut
+
+sub load_file {
+  my ($class, $file, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  croak "load_file() requires a valid, readable filename"
+    unless -r $file;
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_file( $file );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_yaml_string
+#pod
+#pod   my $meta = CPAN::Meta->load_yaml_string($yaml, \%options);
+#pod
+#pod This method returns a new CPAN::Meta object using the first document in the
+#pod given YAML string.  In other respects it is identical to C<load_file()>.
+#pod
+#pod =cut
+
+sub load_yaml_string {
+  my ($class, $yaml, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my ($struct) = Parse::CPAN::Meta->load_yaml_string( $yaml );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_json_string
+#pod
+#pod   my $meta = CPAN::Meta->load_json_string($json, \%options);
+#pod
+#pod This method returns a new CPAN::Meta object using the structure represented by
+#pod the given JSON string.  In other respects it is identical to C<load_file()>.
+#pod
+#pod =cut
+
+sub load_json_string {
+  my ($class, $json, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_json_string( $json );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_string
+#pod
+#pod   my $meta = CPAN::Meta->load_string($string, \%options);
+#pod
+#pod If you don't know if a string contains YAML or JSON, this method will use
+#pod L<Parse::CPAN::Meta> to guess.  In other respects it is identical to
+#pod C<load_file()>.
+#pod
+#pod =cut
+
+sub load_string {
+  my ($class, $string, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_string( $string );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method save
+#pod
+#pod   $meta->save($distmeta_file, \%options);
+#pod
+#pod Serializes the object as JSON and writes it to the given file.  The only valid
+#pod option is C<version>, which defaults to '2'. On Perl 5.8.1 or later, the file
+#pod is saved with UTF-8 encoding.
+#pod
+#pod For C<version> 2 (or higher), the filename should end in '.json'.  L<JSON::PP>
+#pod is the default JSON backend. Using another JSON backend requires L<JSON> 2.5 or
+#pod later and you must set the C<$ENV{PERL_JSON_BACKEND}> to a supported alternate
+#pod backend like L<JSON::XS>.
+#pod
+#pod For C<version> less than 2, the filename should end in '.yml'.
+#pod L<CPAN::Meta::Converter> is used to generate an older metadata structure, which
+#pod is serialized to YAML.  CPAN::Meta::YAML is the default YAML backend.  You may
+#pod set the C<$ENV{PERL_YAML_BACKEND}> to a supported alternative backend, though
+#pod this is not recommended due to subtle incompatibilities between YAML parsers on
+#pod CPAN.
+#pod
+#pod =cut
+
+sub save {
+  my ($self, $file, $options) = @_;
+
+  my $version = $options->{version} || '2';
+  my $layer = $] ge '5.008001' ? ':utf8' : '';
+
+  if ( $version ge '2' ) {
+    carp "'$file' should end in '.json'"
+      unless $file =~ m{\.json$};
+  }
+  else {
+    carp "'$file' should end in '.yml'"
+      unless $file =~ m{\.yml$};
+  }
+
+  my $data = $self->as_string( $options );
+  open my $fh, ">$layer", $file
+    or die "Error opening '$file' for writing: $!\n";
+
+  print {$fh} $data;
+  close $fh
+    or die "Error closing '$file': $!\n";
+
+  return 1;
+}
+
+#pod =method meta_spec_version
+#pod
+#pod This method returns the version part of the C<meta_spec> entry in the distmeta
+#pod structure.  It is equivalent to:
+#pod
+#pod   $meta->meta_spec->{version};
+#pod
+#pod =cut
+
+sub meta_spec_version {
+  my ($self) = @_;
+  return $self->meta_spec->{version};
+}
+
+#pod =method effective_prereqs
+#pod
+#pod   my $prereqs = $meta->effective_prereqs;
+#pod
+#pod   my $prereqs = $meta->effective_prereqs( \@feature_identifiers );
+#pod
+#pod This method returns a L<CPAN::Meta::Prereqs> object describing all the
+#pod prereqs for the distribution.  If an arrayref of feature identifiers is given,
+#pod the prereqs for the identified features are merged together with the
+#pod distribution's core prereqs before the CPAN::Meta::Prereqs object is returned.
+#pod
+#pod =cut
+
+sub effective_prereqs {
+  my ($self, $features) = @_;
+  $features ||= [];
+
+  my $prereq = CPAN::Meta::Prereqs->new($self->prereqs);
+
+  return $prereq unless @$features;
+
+  my @other = map {; $self->feature($_)->prereqs } @$features;
+
+  return $prereq->with_merged_prereqs(\@other);
+}
+
+#pod =method should_index_file
+#pod
+#pod   ... if $meta->should_index_file( $filename );
+#pod
+#pod This method returns true if the given file should be indexed.  It decides this
+#pod by checking the C<file> and C<directory> keys in the C<no_index> property of
+#pod the distmeta structure. Note that neither the version format nor
+#pod C<release_status> are considered.
+#pod
+#pod C<$filename> should be given in unix format.
+#pod
+#pod =cut
+
+sub should_index_file {
+  my ($self, $filename) = @_;
+
+  for my $no_index_file (@{ $self->no_index->{file} || [] }) {
+    return if $filename eq $no_index_file;
+  }
+
+  for my $no_index_dir (@{ $self->no_index->{directory} }) {
+    $no_index_dir =~ s{$}{/} unless $no_index_dir =~ m{/\z};
+    return if index($filename, $no_index_dir) == 0;
+  }
+
+  return 1;
+}
+
+#pod =method should_index_package
+#pod
+#pod   ... if $meta->should_index_package( $package );
+#pod
+#pod This method returns true if the given package should be indexed.  It decides
+#pod this by checking the C<package> and C<namespace> keys in the C<no_index>
+#pod property of the distmeta structure. Note that neither the version format nor
+#pod C<release_status> are considered.
+#pod
+#pod =cut
+
+sub should_index_package {
+  my ($self, $package) = @_;
+
+  for my $no_index_pkg (@{ $self->no_index->{package} || [] }) {
+    return if $package eq $no_index_pkg;
+  }
+
+  for my $no_index_ns (@{ $self->no_index->{namespace} }) {
+    return if index($package, "${no_index_ns}::") == 0;
+  }
+
+  return 1;
+}
+
+#pod =method features
+#pod
+#pod   my @feature_objects = $meta->features;
+#pod
+#pod This method returns a list of L<CPAN::Meta::Feature> objects, one for each
+#pod optional feature described by the distribution's metadata.
+#pod
+#pod =cut
+
+sub features {
+  my ($self) = @_;
+
+  my $opt_f = $self->optional_features;
+  my @features = map {; CPAN::Meta::Feature->new($_ => $opt_f->{ $_ }) }
+                 keys %$opt_f;
+
+  return @features;
+}
+
+#pod =method feature
+#pod
+#pod   my $feature_object = $meta->feature( $identifier );
+#pod
+#pod This method returns a L<CPAN::Meta::Feature> object for the optional feature
+#pod with the given identifier.  If no feature with that identifier exists, an
+#pod exception will be raised.
+#pod
+#pod =cut
+
+sub feature {
+  my ($self, $ident) = @_;
+
+  croak "no feature named $ident"
+    unless my $f = $self->optional_features->{ $ident };
+
+  return CPAN::Meta::Feature->new($ident, $f);
+}
+
+#pod =method as_struct
+#pod
+#pod   my $copy = $meta->as_struct( \%options );
+#pod
+#pod This method returns a deep copy of the object's metadata as an unblessed hash
+#pod reference.  It takes an optional hashref of options.  If the hashref contains
+#pod a C<version> argument, the copied metadata will be converted to the version
+#pod of the specification and returned.  For example:
+#pod
+#pod   my $old_spec = $meta->as_struct( {version => "1.4"} );
+#pod
+#pod =cut
+
+sub as_struct {
+  my ($self, $options) = @_;
+  my $struct = _dclone($self);
+  if ( $options->{version} ) {
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $struct = $cmc->convert( version => $options->{version} );
+  }
+  return $struct;
+}
+
+#pod =method as_string
+#pod
+#pod   my $string = $meta->as_string( \%options );
+#pod
+#pod This method returns a serialized copy of the object's metadata as a character
+#pod string.  (The strings are B<not> UTF-8 encoded.)  It takes an optional hashref
+#pod of options.  If the hashref contains a C<version> argument, the copied metadata
+#pod will be converted to the version of the specification and returned.  For
+#pod example:
+#pod
+#pod   my $string = $meta->as_string( {version => "1.4"} );
+#pod
+#pod For C<version> greater than or equal to 2, the string will be serialized as
+#pod JSON.  For C<version> less than 2, the string will be serialized as YAML.  In
+#pod both cases, the same rules are followed as in the C<save()> method for choosing
+#pod a serialization backend.
+#pod
+#pod The serialized structure will include a C<x_serialization_backend> entry giving
+#pod the package and version used to serialize.  Any existing key in the given
+#pod C<$meta> object will be clobbered.
+#pod
+#pod =cut
+
+sub as_string {
+  my ($self, $options) = @_;
+
+  my $version = $options->{version} || '2';
+
+  my $struct;
+  if ( $self->meta_spec_version ne $version ) {
+    my $cmc = CPAN::Meta::Converter->new( $self->as_struct );
+    $struct = $cmc->convert( version => $version );
+  }
+  else {
+    $struct = $self->as_struct;
+  }
+
+  my ($data, $backend);
+  if ( $version ge '2' ) {
+    $backend = Parse::CPAN::Meta->json_backend();
+    local $struct->{x_serialization_backend} = sprintf '%s version %s',
+      $backend, $backend->VERSION;
+    $data = $backend->new->pretty->canonical->encode($struct);
+  }
+  else {
+    $backend = Parse::CPAN::Meta->yaml_backend();
+    local $struct->{x_serialization_backend} = sprintf '%s version %s',
+      $backend, $backend->VERSION;
+    $data = eval { no strict 'refs'; &{"$backend\::Dump"}($struct) };
+    if ( $@ ) {
+      croak $backend->can('errstr') ? $backend->errstr : $@
+    }
+  }
+
+  return $data;
+}
+
+# Used by JSON::PP, etc. for "convert_blessed"
+sub TO_JSON {
+  return { %{ $_[0] } };
+}
+
+1;
+
+# ABSTRACT: the distribution metadata for a CPAN dist
+
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
+package CPAN::Version;
+
+use strict;
+use vars qw($VERSION);
+$VERSION = "5.5003";
+
+# CPAN::Version::vcmp courtesy Jost Krieger
+sub vcmp {
+    my($self,$l,$r) = @_;
+    local($^W) = 0;
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+
+    # treat undef as zero
+    $l = 0 if $l eq 'undef';
+    $r = 0 if $r eq 'undef';
+
+    return 0 if $l eq $r; # short circuit for quicker success
+
+    for ($l,$r) {
+        s/_//g;
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    for ($l,$r) {
+        next unless tr/.// > 1 || /^v/;
+        s/^v?/v/;
+        1 while s/\.0+(\d)/.$1/; # remove leading zeroes per group
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    if ($l=~/^v/ <=> $r=~/^v/) {
+        for ($l,$r) {
+            next if /^v/;
+            $_ = $self->float2vv($_);
+        }
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    my $lvstring = "v0";
+    my $rvstring = "v0";
+    if ($] >= 5.006
+     && $l =~ /^v/
+     && $r =~ /^v/) {
+        $lvstring = $self->vstring($l);
+        $rvstring = $self->vstring($r);
+        CPAN->debug(sprintf "lv[%vd] rv[%vd]", $lvstring, $rvstring) if $CPAN::DEBUG;
+    }
+
+    return (
+            ($l ne "undef") <=> ($r ne "undef")
+            ||
+            $lvstring cmp $rvstring
+            ||
+            $l <=> $r
+            ||
+            $l cmp $r
+    );
+}
+
+sub vgt {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) > 0;
+}
+
+sub vlt {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) < 0;
+}
+
+sub vge {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) >= 0;
+}
+
+sub vle {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) <= 0;
+}
+
+sub vstring {
+    my($self,$n) = @_;
+    $n =~ s/^v// or die "CPAN::Version::vstring() called with invalid arg [$n]";
+    pack "U*", split /\./, $n;
+}
+
+# vv => visible vstring
+sub float2vv {
+    my($self,$n) = @_;
+    my($rev) = int($n);
+    $rev ||= 0;
+    my($mantissa) = $n =~ /\.(\d{1,12})/; # limit to 12 digits to limit
+                                          # architecture influence
+    $mantissa ||= 0;
+    $mantissa .= "0" while length($mantissa)%3;
+    my $ret = "v" . $rev;
+    while ($mantissa) {
+        $mantissa =~ s/(\d{1,3})// or
+            die "Panic: length>0 but not a digit? mantissa[$mantissa]";
+        $ret .= ".".int($1);
+    }
+    # warn "n[$n]ret[$ret]";
+    $ret =~ s/(\.0)+/.0/; # v1.0.0 => v1.0
+    $ret;
+}
+
+sub readable {
+    my($self,$n) = @_;
+    $n =~ /^([\w\-\+\.]+)/;
+
+    return $1 if defined $1 && length($1)>0;
+    # if the first user reaches version v43, he will be treated as "+".
+    # We'll have to decide about a new rule here then, depending on what
+    # will be the prevailing versioning behavior then.
+
+    if ($] < 5.006) { # or whenever v-strings were introduced
+        # we get them wrong anyway, whatever we do, because 5.005 will
+        # have already interpreted 0.2.4 to be "0.24". So even if he
+        # indexer sends us something like "v0.2.4" we compare wrongly.
+
+        # And if they say v1.2, then the old perl takes it as "v12"
+
+        if (defined $CPAN::Frontend) {
+            $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n");
+        } else {
+            warn("Suspicious version string seen [$n]\n");
+        }
+        return $n;
+    }
+    my $better = sprintf "v%vd", $n;
+    CPAN->debug("n[$n] better[$better]") if $CPAN::DEBUG;
+    return $better;
+}
+
+1;
+
+__END__
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+
+use 5.006;
+use strict;
+package CPAN::Distroprefs;
+
+use vars qw($VERSION);
+$VERSION = '6.0001';
+
+package CPAN::Distroprefs::Result;
+
+use File::Spec;
+
+sub new { bless $_[1] || {} => $_[0] }
+
+sub abs { File::Spec->catfile($_[0]->dir, $_[0]->file) }
+
+sub __cloner {
+    my ($class, $name, $newclass) = @_;
+    $newclass = 'CPAN::Distroprefs::Result::' . $newclass;
+    no strict 'refs';
+    *{$class . '::' . $name} = sub {
+        $newclass->new({
+            %{ $_[0] },
+            %{ $_[1] },
+        });
+    };
+}
+BEGIN { __PACKAGE__->__cloner(as_warning => 'Warning') }
+BEGIN { __PACKAGE__->__cloner(as_fatal   => 'Fatal') }
+BEGIN { __PACKAGE__->__cloner(as_success => 'Success') }
+
+sub __accessor {
+    my ($class, $key) = @_;
+    no strict 'refs';
+    *{$class . '::' . $key} = sub { $_[0]->{$key} };
+}
+BEGIN { __PACKAGE__->__accessor($_) for qw(type file ext dir) }
+
+sub is_warning { 0 }
+sub is_fatal   { 0 }
+sub is_success { 0 }
+
+package CPAN::Distroprefs::Result::Error;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic
+BEGIN { __PACKAGE__->__accessor($_) for qw(msg) }
+
+sub as_string {
+    my ($self) = @_;
+    if ($self->msg) {
+        return sprintf $self->fmt_reason, $self->file, $self->msg;
+    } else {
+        return sprintf $self->fmt_unknown, $self->file;
+    }
+}
+
+package CPAN::Distroprefs::Result::Warning;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic
+sub is_warning { 1 }
+sub fmt_reason  { "Error reading distroprefs file %s, skipping: %s" }
+sub fmt_unknown { "Unknown error reading distroprefs file %s, skipping." }
+
+package CPAN::Distroprefs::Result::Fatal;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic
+sub is_fatal { 1 }
+sub fmt_reason  { "Error reading distroprefs file %s: %s" }
+sub fmt_unknown { "Unknown error reading distroprefs file %s." }
+
+package CPAN::Distroprefs::Result::Success;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic
+BEGIN { __PACKAGE__->__accessor($_) for qw(prefs extension) }
+sub is_success { 1 }
+
+package CPAN::Distroprefs::Iterator;
+
+sub new { bless $_[1] => $_[0] }
+
+sub next { $_[0]->() }
+
+package CPAN::Distroprefs;
+
+use Carp ();
+use DirHandle;
+
+sub _load_method {
+    my ($self, $loader, $result) = @_;
+    return '_load_yaml' if $loader eq 'CPAN' or $loader =~ /^YAML(::|$)/;
+    return '_load_' . $result->ext;
+}
+
+sub _load_yaml {
+    my ($self, $loader, $result) = @_;
+    my $data = eval {
+        $loader eq 'CPAN'
+        ? $loader->_yaml_loadfile($result->abs)
+        : [ $loader->can('LoadFile')->($result->abs) ]
+    };
+    if (my $err = $@) {
+        die $result->as_warning({
+            msg  => $err,
+        });
+    } elsif (!$data) {
+        die $result->as_warning;
+    } else {
+        return @$data;
+    }
+}
+
+sub _load_dd {
+    my ($self, $loader, $result) = @_;
+    my @data;
+    {
+        package CPAN::Eval;
+        # this caused a die in CPAN.pm, and I am leaving it 'fatal', though I'm
+        # not sure why we wouldn't just skip the file as we do for all other
+        # errors. -- hdp
+        my $abs = $result->abs;
+        open FH, "<$abs" or die $result->as_fatal(msg => "$!");
+        local $/;
+        my $eval = <FH>;
+        close FH;
+        no strict;
+        eval $eval;
+        if (my $err = $@) {
+            die $result->as_warning({ msg => $err });
+        }
+        my $i = 1;
+        while (${"VAR$i"}) {
+            push @data, ${"VAR$i"};
+            $i++;
+        }
+    }
+    return @data;
+}
+
+sub _load_st {
+    my ($self, $loader, $result) = @_;
+    # eval because Storable is never forward compatible
+    my @data = eval { @{scalar $loader->can('retrieve')->($result->abs) } };
+    if (my $err = $@) {
+        die $result->as_warning({ msg => $err });
+    }
+    return @data;
+}
+
+sub _build_file_list {
+    if (@_ > 3) {
+        die "_build_file_list should be called with 3 arguments, was called with more. First argument is '$_[0]'.";
+    }
+    my ($dir, $dir1, $ext_re) = @_;
+    my @list;
+    my $dh;
+    unless (opendir($dh, $dir)) {
+        $CPAN::Frontend->mywarn("ignoring prefs directory '$dir': $!");
+        return @list;
+    }
+    while (my $fn = readdir $dh) {
+        next if $fn eq '.' || $fn eq '..';
+        if (-d "$dir/$fn") {
+            next if $fn =~ /^[._]/; # prune .svn, .git, .hg, _darcs and what the user wants to hide
+            push @list, _build_file_list("$dir/$fn", "$dir1$fn/", $ext_re);
+        } else {
+            if ($fn =~ $ext_re) {
+                push @list, "$dir1$fn";
+            }
+        }
+    }
+    return @list;
+}
+
+sub find {
+    my ($self, $dir, $ext_map) = @_;
+
+    return CPAN::Distroprefs::Iterator->new(sub { return }) unless %$ext_map;
+
+    my $possible_ext = join "|", map { quotemeta } keys %$ext_map;
+    my $ext_re = qr/\.($possible_ext)$/;
+
+    my @files = _build_file_list($dir, '', $ext_re);
+    @files = sort @files if @files;
+
+    # label the block so that we can use redo in the middle
+    return CPAN::Distroprefs::Iterator->new(sub { LOOP: {
+
+        my $fn = shift @files;
+        return unless defined $fn;
+        my ($ext) = $fn =~ $ext_re;
+
+        my $loader = $ext_map->{$ext};
+
+        my $result = CPAN::Distroprefs::Result->new({
+            file => $fn, ext => $ext, dir => $dir
+        });
+        # copied from CPAN.pm; is this ever actually possible?
+        redo unless -f $result->abs;
+
+        my $load_method = $self->_load_method($loader, $result);
+        my @prefs = eval { $self->$load_method($loader, $result) };
+        if (my $err = $@) {
+            if (ref($err) && eval { $err->isa('CPAN::Distroprefs::Result') }) {
+                return $err;
+            }
+            # rethrow any exceptions that we did not generate
+            die $err;
+        } elsif (!@prefs) {
+            # the loader should have handled this, but just in case:
+            return $result->as_warning;
+        }
+        return $result->as_success({
+            prefs => [
+                map { CPAN::Distroprefs::Pref->new({ data => $_ }) } @prefs
+            ],
+        });
+    } });
+}
+
+package CPAN::Distroprefs::Pref;
+
+use Carp ();
+
+sub new { bless $_[1] => $_[0] }
+
+sub data { shift->{data} }
+
+sub has_any_match { $_[0]->data->{match} ? 1 : 0 }
+
+sub has_match {
+    my $match = $_[0]->data->{match} || return 0;
+    exists $match->{$_[1]} || exists $match->{"not_$_[1]"}
+}
+
+sub has_valid_subkeys {
+    grep { exists $_[0]->data->{match}{$_} }
+        map { $_, "not_$_" }
+        $_[0]->match_attributes
+}
+
+sub _pattern {
+    my $re = shift;
+    my $p = eval sprintf 'qr{%s}', $re;
+    if ($@) {
+        $@ =~ s/\n$//;
+        die "Error in Distroprefs pattern qr{$re}\n$@";
+    }
+    return $p;
+}
+
+sub _match_scalar {
+    my ($match, $data) = @_;
+    my $qr = _pattern($match);
+    return $data =~ /$qr/;
+}
+
+sub _match_hash {
+    my ($match, $data) = @_;
+    for my $mkey (keys %$match) {
+	(my $dkey = $mkey) =~ s/^not_//;
+        my $val = defined $data->{$dkey} ? $data->{$dkey} : '';
+	if (_match_scalar($match->{$mkey}, $val)) {
+	    return 0 if $mkey =~ /^not_/;
+	}
+	else {
+	    return 0 if $mkey !~ /^not_/;
+	}
+    }
+    return 1;
+}
+
+sub _match {
+    my ($self, $key, $data, $matcher) = @_;
+    my $m = $self->data->{match};
+    if (exists $m->{$key}) {
+	return 0 unless $matcher->($m->{$key}, $data);
+    }
+    if (exists $m->{"not_$key"}) {
+	return 0 if $matcher->($m->{"not_$key"}, $data);
+    }
+    return 1;
+}
+
+sub _scalar_match {
+    my ($self, $key, $data) = @_;
+    return $self->_match($key, $data, \&_match_scalar);
+}
+
+sub _hash_match {
+    my ($self, $key, $data) = @_;
+    return $self->_match($key, $data, \&_match_hash);
+}
+
+# do not take the order of C<keys %$match> because "module" is by far the
+# slowest
+sub match_attributes { qw(env distribution perl perlconfig module) }
+
+sub match_module {
+    my ($self, $modules) = @_;
+    return $self->_match("module", $modules, sub {
+	my($match, $data) = @_;
+	my $qr = _pattern($match);
+	for my $module (@$data) {
+	    return 1 if $module =~ /$qr/;
+	}
+	return 0;
+    });
+}
+
+sub match_distribution { shift->_scalar_match(distribution => @_) }
+sub match_perl         { shift->_scalar_match(perl         => @_) }
+
+sub match_perlconfig   { shift->_hash_match(perlconfig => @_) }
+sub match_env          { shift->_hash_match(env        => @_) }
+
+sub matches {
+    my ($self, $arg) = @_;
+
+    my $default_match = 0;
+    for my $key (grep { $self->has_match($_) } $self->match_attributes) {
+        unless (exists $arg->{$key}) {
+            Carp::croak "Can't match pref: missing argument key $key";
+        }
+        $default_match = 1;
+        my $val = $arg->{$key};
+        # make it possible to avoid computing things until we have to
+        if (ref($val) eq 'CODE') { $val = $val->() }
+        my $meth = "match_$key";
+        return 0 unless $self->$meth($val);
+    }
+
+    return $default_match;
+}
+
+1;
+
+__END__
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+use strict;
+package CPAN::Queue::Item;
+
+# CPAN::Queue::Item::new ;
+sub new {
+    my($class,@attr) = @_;
+    my $self = bless { @attr }, $class;
+    return $self;
+}
+
+sub as_string {
+    my($self) = @_;
+    $self->{qmod};
+}
+
+# r => requires, b => build_requires, c => commandline
+sub reqtype {
+    my($self) = @_;
+    $self->{reqtype};
+}
+
+sub optional {
+    my($self) = @_;
+    $self->{optional};
+}
+
+package CPAN::Queue;
+
+# One use of the queue is to determine if we should or shouldn't
+# announce the availability of a new CPAN module
+
+# Now we try to use it for dependency tracking. For that to happen
+# we need to draw a dependency tree and do the leaves first. This can
+# easily be reached by running CPAN.pm recursively, but we don't want
+# to waste memory and run into deep recursion. So what we can do is
+# this:
+
+# CPAN::Queue is the package where the queue is maintained. Dependencies
+# often have high priority and must be brought to the head of the queue,
+# possibly by jumping the queue if they are already there. My first code
+# attempt tried to be extremely correct. Whenever a module needed
+# immediate treatment, I either unshifted it to the front of the queue,
+# or, if it was already in the queue, I spliced and let it bypass the
+# others. This became a too correct model that made it impossible to put
+# an item more than once into the queue. Why would you need that? Well,
+# you need temporary duplicates as the manager of the queue is a loop
+# that
+#
+#  (1) looks at the first item in the queue without shifting it off
+#
+#  (2) cares for the item
+#
+#  (3) removes the item from the queue, *even if its agenda failed and
+#      even if the item isn't the first in the queue anymore* (that way
+#      protecting against never ending queues)
+#
+# So if an item has prerequisites, the installation fails now, but we
+# want to retry later. That's easy if we have it twice in the queue.
+#
+# I also expect insane dependency situations where an item gets more
+# than two lives in the queue. Simplest example is triggered by 'install
+# Foo Foo Foo'. People make this kind of mistakes and I don't want to
+# get in the way. I wanted the queue manager to be a dumb servant, not
+# one that knows everything.
+#
+# Who would I tell in this model that the user wants to be asked before
+# processing? I can't attach that information to the module object,
+# because not modules are installed but distributions. So I'd have to
+# tell the distribution object that it should ask the user before
+# processing. Where would the question be triggered then? Most probably
+# in CPAN::Distribution::rematein.
+
+use vars qw{ @All $VERSION };
+$VERSION = "5.5002";
+
+# CPAN::Queue::queue_item ;
+sub queue_item {
+    my($class,@attr) = @_;
+    my $item = "$class\::Item"->new(@attr);
+    $class->qpush($item);
+    return 1;
+}
+
+# CPAN::Queue::qpush ;
+sub qpush {
+    my($class,$obj) = @_;
+    push @All, $obj;
+    CPAN->debug(sprintf("in new All[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All),
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::first ;
+sub first {
+    my $obj = $All[0];
+    $obj;
+}
+
+# CPAN::Queue::delete_first ;
+sub delete_first {
+    my($class,$what) = @_;
+    my $i;
+    for my $i (0..$#All) {
+        if (  $All[$i]->{qmod} eq $what ) {
+            splice @All, $i, 1;
+            last;
+        }
+    }
+    CPAN->debug(sprintf("after delete_first mod[%s] All[%s]",
+                        $what,
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::jumpqueue ;
+sub jumpqueue {
+    my $class = shift;
+    my @what = @_;
+    CPAN->debug(sprintf("before jumpqueue All[%s] what[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All),
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @what),
+                       )) if $CPAN::DEBUG;
+    unless (defined $what[0]{reqtype}) {
+        # apparently it was not the Shell that sent us this enquiry,
+        # treat it as commandline
+        $what[0]{reqtype} = "c";
+    }
+    my $inherit_reqtype = $what[0]{reqtype} =~ /^(c|r)$/ ? "r" : "b";
+  WHAT: for my $what_tuple (@what) {
+        my($qmod,$reqtype,$optional) = @$what_tuple{qw(qmod reqtype optional)};
+        if ($reqtype eq "r"
+            &&
+            $inherit_reqtype eq "b"
+           ) {
+            $reqtype = "b";
+        }
+        my $jumped = 0;
+        for (my $i=0; $i<$#All;$i++) { #prevent deep recursion
+            if ($All[$i]{qmod} eq $qmod) {
+                $jumped++;
+            }
+        }
+        # high jumped values are normal for popular modules when
+        # dealing with large bundles: XML::Simple,
+        # namespace::autoclean, UNIVERSAL::require
+        CPAN->debug("qmod[$qmod]jumped[$jumped]") if $CPAN::DEBUG;
+        my $obj = "$class\::Item"->new(
+                                       qmod => $qmod,
+                                       reqtype => $reqtype,
+                                       optional => !! $optional,
+                                      );
+        unshift @All, $obj;
+    }
+    CPAN->debug(sprintf("after jumpqueue All[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::exists ;
+sub exists {
+    my($self,$what) = @_;
+    my @all = map { $_->{qmod} } @All;
+    my $exists = grep { $_->{qmod} eq $what } @All;
+    # warn "in exists what[$what] all[@all] exists[$exists]";
+    $exists;
+}
+
+# CPAN::Queue::delete ;
+sub delete {
+    my($self,$mod) = @_;
+    @All = grep { $_->{qmod} ne $mod } @All;
+    CPAN->debug(sprintf("after delete mod[%s] All[%s]",
+                        $mod,
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::nullify_queue ;
+sub nullify_queue {
+    @All = ();
+}
+
+# CPAN::Queue::size ;
+sub size {
+    return scalar @All;
+}
+
+sub reqtype_of {
+    my($self,$mod) = @_;
+    my $best = "";
+    for my $item (grep { $_->{qmod} eq $mod } @All) {
+        my $c = $item->{reqtype};
+        if ($c eq "c") {
+            $best = $c;
+            last;
+        } elsif ($c eq "r") {
+            $best = $c;
+        } elsif ($c eq "b") {
+            if ($best eq "") {
+                $best = $c;
+            }
+        } else {
+            die "Panic: in reqtype_of: reqtype[$c] seen, should never happen";
+        }
+    }
+    return $best;
+}
+
+1;
+
+__END__
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Author;
+use strict;
+
+use CPAN::InfoObj;
+@CPAN::Author::ISA = qw(CPAN::InfoObj);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5002";
+
+package CPAN::Author;
+use strict;
+
+#-> sub CPAN::Author::force
+sub force {
+    my $self = shift;
+    $self->{force}++;
+}
+
+#-> sub CPAN::Author::force
+sub unforce {
+    my $self = shift;
+    delete $self->{force};
+}
+
+#-> sub CPAN::Author::id
+sub id {
+    my $self = shift;
+    my $id = $self->{ID};
+    $CPAN::Frontend->mydie("Illegal author id[$id]") unless $id =~ /^[A-Z]/;
+    $id;
+}
+
+#-> sub CPAN::Author::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    push @m, sprintf(qq{%-15s %s ("%s" <%s>)\n},
+                     $class,
+                     $self->{ID},
+                     $self->fullname,
+                     $self->email);
+    join "", @m;
+}
+
+#-> sub CPAN::Author::fullname ;
+sub fullname {
+    shift->ro->{FULLNAME};
+}
+*name = \&fullname;
+
+#-> sub CPAN::Author::email ;
+sub email    { shift->ro->{EMAIL}; }
+
+#-> sub CPAN::Author::ls ;
+sub ls {
+    my $self = shift;
+    my $glob = shift || "";
+    my $silent = shift || 0;
+    my $id = $self->id;
+
+    # adapted from CPAN::Distribution::verifyCHECKSUM ;
+    my(@csf); # chksumfile
+    @csf = $self->id =~ /(.)(.)(.*)/;
+    $csf[1] = join "", @csf[0,1];
+    $csf[2] = join "", @csf[1,2]; # ("A","AN","ANDK")
+    my(@dl);
+    @dl = $self->dir_listing([$csf[0],"CHECKSUMS"], 0, 1);
+    unless (grep {$_->[2] eq $csf[1]} @dl) {
+        $CPAN::Frontend->myprint("Directory $csf[1]/ does not exist\n") unless $silent ;
+        return;
+    }
+    @dl = $self->dir_listing([@csf[0,1],"CHECKSUMS"], 0, 1);
+    unless (grep {$_->[2] eq $csf[2]} @dl) {
+        $CPAN::Frontend->myprint("Directory $id/ does not exist\n") unless $silent;
+        return;
+    }
+    @dl = $self->dir_listing([@csf,"CHECKSUMS"], 1, 1);
+    if ($glob) {
+        if ($CPAN::META->has_inst("Text::Glob")) {
+            $glob =~ s|/$|/*|;
+            my $rglob = Text::Glob::glob_to_regex($glob);
+            CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
+            my @tmpdl = grep { $_->[2] =~ /$rglob/ } @dl;
+            if (1==@tmpdl && $tmpdl[0][0]==0) {
+                $rglob = Text::Glob::glob_to_regex("$glob/*");
+                @dl = grep { $_->[2] =~ /$rglob/ } @dl;
+            } else {
+                @dl = @tmpdl;
+            }
+            CPAN->debug("rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
+        } else {
+            $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed");
+        }
+    }
+    unless ($silent >= 2) {
+        $CPAN::Frontend->myprint
+            (
+             join "",
+             map {
+                 sprintf
+                     (
+                      "%8d %10s %s/%s%s\n",
+                      $_->[0],
+                      $_->[1],
+                      $id,
+                      $_->[2],
+                      0==$_->[0]?"/":"",
+                     )
+                 } sort { $a->[2] cmp $b->[2] } @dl
+            );
+    }
+    @dl;
+}
+
+# returns an array of arrays, the latter contain (size,mtime,filename)
+#-> sub CPAN::Author::dir_listing ;
+sub dir_listing {
+    my $self = shift;
+    my $chksumfile = shift;
+    my $recursive = shift;
+    my $may_ftp = shift;
+
+    my $lc_want =
+        File::Spec->catfile($CPAN::Config->{keep_source_where},
+                            "authors", "id", @$chksumfile);
+
+    my $fh;
+
+    CPAN->debug("chksumfile[@$chksumfile]recursive[$recursive]may_ftp[$may_ftp]") if $CPAN::DEBUG;
+    # Purge and refetch old (pre-PGP) CHECKSUMS; they are a security
+    # hazard.  (Without GPG installed they are not that much better,
+    # though.)
+    $fh = FileHandle->new;
+    if (open($fh, $lc_want)) {
+        my $line = <$fh>; close $fh;
+        unlink($lc_want) unless $line =~ /PGP/;
+    }
+
+    local($") = "/";
+    # connect "force" argument with "index_expire".
+    my $force = $self->{force};
+    if (my @stat = stat $lc_want) {
+        $force ||= $stat[9] + $CPAN::Config->{index_expire}*86400 <= time;
+    }
+    my $lc_file;
+    if ($may_ftp) {
+        $lc_file = eval {
+            CPAN::FTP->localize
+                    (
+                     "authors/id/@$chksumfile",
+                     $lc_want,
+                     $force,
+                    );
+        };
+        unless ($lc_file) {
+            $CPAN::Frontend->myprint("Trying $lc_want.gz\n");
+            $chksumfile->[-1] .= ".gz";
+            $lc_file = eval {
+                CPAN::FTP->localize
+                        ("authors/id/@$chksumfile",
+                         "$lc_want.gz",
+                         1,
+                        );
+            };
+            if ($lc_file) {
+                $lc_file =~ s{\.gz(?!\n)\Z}{}; #};
+                eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)};
+            } else {
+                return;
+            }
+        }
+    } else {
+        $lc_file = $lc_want;
+        # we *could* second-guess and if the user has a file: URL,
+        # then we could look there. But on the other hand, if they do
+        # have a file: URL, why did they choose to set
+        # $CPAN::Config->{show_upload_date} to false?
+    }
+
+    # adapted from CPAN::Distribution::CHECKSUM_check_file ;
+    $fh = FileHandle->new;
+    my($cksum);
+    if (open $fh, $lc_file) {
+        local($/);
+        my $eval = <$fh>;
+        $eval =~ s/\015?\012/\n/g;
+        close $fh;
+        my($compmt) = Safe->new();
+        $cksum = $compmt->reval($eval);
+        if ($@) {
+            rename $lc_file, "$lc_file.bad";
+            Carp::confess($@) if $@;
+        }
+    } elsif ($may_ftp) {
+        Carp::carp ("Could not open '$lc_file' for reading.");
+    } else {
+        # Maybe should warn: "You may want to set show_upload_date to a true value"
+        return;
+    }
+    my(@result,$f);
+    for $f (sort keys %$cksum) {
+        if (exists $cksum->{$f}{isdir}) {
+            if ($recursive) {
+                my(@dir) = @$chksumfile;
+                pop @dir;
+                push @dir, $f, "CHECKSUMS";
+                push @result, [ 0, "-", $f ];
+                push @result, map {
+                    [$_->[0], $_->[1], "$f/$_->[2]"]
+                } $self->dir_listing(\@dir,1,$may_ftp);
+            } else {
+                push @result, [ 0, "-", $f ];
+            }
+        } else {
+            push @result, [
+                           ($cksum->{$f}{"size"}||0),
+                           $cksum->{$f}{"mtime"}||"---",
+                           $f
+                          ];
+        }
+    }
+    @result;
+}
+
+#-> sub CPAN::Author::reports
+sub reports {
+    $CPAN::Frontend->mywarn("reports on authors not implemented.
+Please file a bugreport if you need this.\n");
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+
+package CPAN::Mirrors;
+use strict;
+use vars qw($VERSION $urllist $silent);
+$VERSION = "2.12";
+
+use Carp;
+use FileHandle;
+use Fcntl ":flock";
+use Net::Ping ();
+
+
+sub new {
+    my ($class, $file) = @_;
+    croak "CPAN::Mirrors->new requires a filename" unless defined $file;
+    croak "The file [$file] was not found" unless -e $file;
+
+    my $self = bless {
+        mirrors      => [],
+        geography    => {},
+    }, $class;
+
+    $self->parse_mirrored_by( $file );
+
+    return $self;
+}
+
+sub parse_mirrored_by {
+    my ($self, $file) = @_;
+    my $handle = FileHandle->new;
+    $handle->open($file)
+        or croak "Couldn't open $file: $!";
+    flock $handle, LOCK_SH;
+    $self->_parse($file,$handle);
+    flock $handle, LOCK_UN;
+    $handle->close;
+}
+
+
+sub continents {
+    my ($self) = @_;
+    return sort keys %{$self->{geography}};
+}
+
+
+sub countries {
+    my ($self, @continents) = @_;
+    @continents = $self->continents unless @continents;
+    my @countries;
+    for my $c (@continents) {
+        push @countries, sort keys %{ $self->{geography}{$c} };
+    }
+    return @countries;
+}
+
+
+sub mirrors {
+    my ($self, @countries) = @_;
+    return @{$self->{mirrors}} unless @countries;
+    my %wanted = map { $_ => 1 } @countries;
+    my @found;
+    for my $m (@{$self->{mirrors}}) {
+        push @found, $m if exists $wanted{$m->country};
+    }
+    return @found;
+}
+
+
+sub get_mirrors_by_countries { &mirrors }
+
+
+sub get_mirrors_by_continents {
+    my ($self, $continents ) = @_;
+    $continents = [ $continents ] unless ref $continents;
+
+    eval {
+        $self->mirrors( $self->get_countries_by_continents( @$continents ) );
+        };
+    }
+
+
+sub get_countries_by_continents { &countries }
+
+
+sub default_mirror { 'http://www.cpan.org/' }
+
+
+sub best_mirrors {
+    my ($self, %args) = @_;
+    my $how_many      = $args{how_many} || 1;
+    my $callback      = $args{callback};
+    my $verbose       = defined $args{verbose} ? $args{verbose} : 0;
+    my $continents    = $args{continents} || [];
+       $continents    = [$continents] unless ref $continents;
+
+    # Old Net::Ping did not do timings at all
+    my $min_version = '2.13';
+    unless( Net::Ping->VERSION gt $min_version ) {
+        carp sprintf "Net::Ping version is %s (< %s). Returning %s",
+            Net::Ping->VERSION, $min_version, $self->default_mirror;
+        return $self->default_mirror;
+    }
+
+    my $seen = {};
+
+    if ( ! @$continents ) {
+        print "Searching for the best continent ...\n" if $verbose;
+        my @best_continents = $self->find_best_continents(
+            seen     => $seen,
+            verbose  => $verbose,
+            callback => $callback,
+            );
+
+        # Only add enough continents to find enough mirrors
+        my $count = 0;
+        for my $continent ( @best_continents ) {
+            push @$continents, $continent;
+            $count += $self->mirrors( $self->countries($continent) );
+            last if $count >= $how_many;
+        }
+    }
+
+    print "Scanning " . join(", ", @$continents) . " ...\n" if $verbose;
+
+    my $trial_mirrors = $self->get_n_random_mirrors_by_continents( 3 * $how_many, $continents->[0] );
+
+    my $timings = $self->get_mirrors_timings( $trial_mirrors, $seen, $callback );
+    return [] unless @$timings;
+
+    $how_many = @$timings if $how_many > @$timings;
+
+    return wantarray ? @{$timings}[0 .. $how_many-1] : $timings->[0];
+}
+
+
+sub get_n_random_mirrors_by_continents {
+    my( $self, $n, $continents ) = @_;
+    $n ||= 3;
+    $continents = [ $continents ] unless ref $continents;
+
+    if ( $n <= 0 ) {
+        return wantarray ? () : [];
+    }
+
+    my @long_list = $self->get_mirrors_by_continents( $continents );
+
+    if ( $n eq '*' or $n > @long_list ) {
+        return wantarray ? @long_list : \@long_list;
+    }
+
+    @long_list = map  {$_->[0]}
+                 sort {$a->[1] <=> $b->[1]}
+                 map  {[$_, rand]} @long_list;
+
+    splice @long_list, $n; # truncate
+
+    \@long_list;
+}
+
+
+sub get_mirrors_timings {
+    my( $self, $mirror_list, $seen, $callback ) = @_;
+
+    $seen = {} unless defined $seen;
+    croak "The mirror list argument must be an array reference"
+        unless ref $mirror_list eq ref [];
+    croak "The seen argument must be a hash reference"
+        unless ref $seen eq ref {};
+    croak "callback must be a subroutine"
+        if( defined $callback and ref $callback ne ref sub {} );
+
+    my $timings = [];
+    for my $m ( @$mirror_list ) {
+        $seen->{$m->hostname} = $m;
+        next unless eval{ $m->http };
+
+        if( $self->_try_a_ping( $seen, $m, ) ) {
+            my $ping = $m->ping;
+            next unless defined $ping;
+            push @$timings, $m;
+            $callback->( $m ) if $callback;
+        }
+        else {
+            push @$timings, $seen->{$m->hostname}
+                if defined $seen->{$m->hostname}->rtt;
+        }
+    }
+
+    my @best = sort {
+           if( defined $a->rtt and defined $b->rtt )     {
+            $a->rtt <=> $b->rtt
+            }
+        elsif( defined $a->rtt and ! defined $b->rtt )   {
+            return -1;
+            }
+        elsif( ! defined $a->rtt and defined $b->rtt )   {
+            return 1;
+            }
+        elsif( ! defined $a->rtt and ! defined $b->rtt ) {
+            return 0;
+            }
+
+        } @$timings;
+
+    return wantarray ? @best : \@best;
+}
+
+
+sub find_best_continents {
+    my ($self, %args) = @_;
+
+    $args{n}     ||=  3;
+    $args{verbose} = 0 unless defined $args{verbose};
+    $args{seen}    = {} unless defined $args{seen};
+    croak "The seen argument must be a hash reference"
+        unless ref $args{seen} eq ref {};
+    $args{ping_cache_limit} = 24 * 60 * 60
+        unless defined $args{ping_cache_time};
+    croak "callback must be a subroutine"
+        if( defined $args{callback} and ref $args{callback} ne ref sub {} );
+
+    my %medians;
+    CONT: for my $c ( $self->continents ) {
+        print "Testing $c\n" if $args{verbose};
+        my @mirrors = $self->mirrors( $self->countries($c) );
+
+        next CONT unless @mirrors;
+        my $n = (@mirrors < $args{n}) ? @mirrors : $args{n};
+
+        my @tests;
+        my $tries = 0;
+        RANDOM: while ( @mirrors && @tests < $n && $tries++ < 15 ) {
+            my $m = splice( @mirrors, int(rand(@mirrors)), 1 );
+           if( $self->_try_a_ping( $args{seen}, $m, $args{ping_cache_limit} ) ) {
+                $self->get_mirrors_timings( [ $m ], @args{qw(seen callback)} );
+                next RANDOM unless defined $args{seen}{$m->hostname}->rtt;
+            }
+            printf "\t%s -> %0.2f ms\n",
+                $m->hostname,
+                join ' ', 1000 * $args{seen}{$m->hostname}->rtt
+                    if $args{verbose};
+
+            push @tests, $args{seen}{$m->hostname}->rtt;
+        }
+
+        my $median = $self->_get_median_ping_time( \@tests, $args{verbose} );
+        $medians{$c} = $median if defined $median;
+    }
+
+    my @best_cont = sort { $medians{$a} <=> $medians{$b} } keys %medians;
+
+    if ( $args{verbose} ) {
+        print "Median result by continent:\n";
+        for my $c ( @best_cont ) {
+            printf( "  %4d ms  %s\n", int($medians{$c}*1000+.5), $c );
+        }
+    }
+
+    return wantarray ? @best_cont : $best_cont[0];
+}
+
+# retry if
+sub _try_a_ping {
+    my ($self, $seen, $mirror, $ping_cache_limit ) = @_;
+
+    ( ! exists $seen->{$mirror->hostname} )
+        or
+    (
+    ! defined $seen->{$mirror->hostname}->rtt
+        or
+    time - $seen->{$mirror->hostname}->rtt > $ping_cache_limit
+    )
+}
+
+sub _get_median_ping_time {
+    my ($self, $tests, $verbose ) = @_;
+
+    my @sorted = sort { $a <=> $b } @$tests;
+
+    my $median = do {
+           if ( @sorted == 0 ) { undef }
+        elsif ( @sorted == 1 ) { $sorted[0] }
+        elsif ( @sorted % 2 )  { $sorted[ int(@sorted / 2) ] }
+        else {
+            my $mid_high = int(@sorted/2);
+            ($sorted[$mid_high-1] + $sorted[$mid_high])/2;
+        }
+    };
+
+    printf "\t-->median time: %0.2f ms\n", $median * 1000 if $verbose;
+
+    return $median;
+}
+
+# Adapted from Parse::CPAN::MirroredBy by Adam Kennedy
+sub _parse {
+    my ($self, $file, $handle) = @_;
+    my $output = $self->{mirrors};
+    my $geo    = $self->{geography};
+
+    local $/ = "\012";
+    my $line = 0;
+    my $mirror = undef;
+    while ( 1 ) {
+        # Next line
+        my $string = <$handle>;
+        last if ! defined $string;
+        $line = $line + 1;
+
+        # Remove the useless lines
+        chomp( $string );
+        next if $string =~ /^\s*$/;
+        next if $string =~ /^\s*#/;
+
+        # Hostname or property?
+        if ( $string =~ /^\s/ ) {
+            # Property
+            unless ( $string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/ ) {
+                croak("Invalid property on line $line");
+            }
+            my ($prop, $value) = ($1,$2);
+            $mirror ||= {};
+            if ( $prop eq 'dst_location' ) {
+                my (@location,$continent,$country);
+                @location = (split /\s*,\s*/, $value)
+                    and ($continent, $country) = @location[-1,-2];
+                $continent =~ s/\s\(.*//;
+                $continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude
+                $geo->{$continent}{$country} = 1 if $continent && $country;
+                $mirror->{continent} = $continent || "unknown";
+                $mirror->{country} = $country || "unknown";
+            }
+            elsif ( $prop eq 'dst_http' ) {
+                $mirror->{http} = $value;
+            }
+            elsif ( $prop eq 'dst_ftp' ) {
+                $mirror->{ftp} = $value;
+            }
+            elsif ( $prop eq 'dst_rsync' ) {
+                $mirror->{rsync} = $value;
+            }
+            else {
+                $prop =~ s/^dst_//;
+                $mirror->{$prop} = $value;
+            }
+        } else {
+            # Hostname
+            unless ( $string =~ /^([\w\.-]+)\:\s*$/ ) {
+                croak("Invalid host name on line $line");
+            }
+            my $current = $mirror;
+            $mirror     = { hostname => "$1" };
+            if ( $current ) {
+                push @$output, CPAN::Mirrored::By->new($current);
+            }
+        }
+    }
+    if ( $mirror ) {
+        push @$output, CPAN::Mirrored::By->new($mirror);
+    }
+
+    return;
+}
+
+#--------------------------------------------------------------------------#
+
+package CPAN::Mirrored::By;
+use strict;
+use Net::Ping   ();
+
+sub new {
+    my($self,$arg) = @_;
+    $arg ||= {};
+    bless $arg, $self;
+}
+sub hostname  { shift->{hostname}    }
+sub continent { shift->{continent}   }
+sub country   { shift->{country}     }
+sub http      { shift->{http}  || '' }
+sub ftp       { shift->{ftp}   || '' }
+sub rsync     { shift->{rsync} || '' }
+sub rtt       { shift->{rtt}         }
+sub ping_time { shift->{ping_time}   }
+
+sub url {
+    my $self = shift;
+    return $self->{http} || $self->{ftp};
+}
+
+sub ping {
+    my $self = shift;
+
+    my $ping = Net::Ping->new($^O eq 'VMS' ? 'icmp' : 'tcp', 1);
+    my ($proto) = $self->url =~ m{^([^:]+)};
+    my $port = $proto eq 'http' ? 80 : 21;
+    return unless $port;
+
+    if ( $ping->can('port_number') ) {
+        $ping->port_number($port);
+    }
+    else {
+        $ping->{'port_num'} = $port;
+    }
+
+    $ping->hires(1) if $ping->can('hires');
+    my ($alive,$rtt) = $ping->ping($self->hostname);
+
+    $self->{rtt} = $alive ? $rtt : undef;
+    $self->{ping_time} = time;
+
+    $self->rtt;
+}
+
+
+1;
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::FirstTime;
+use strict;
+
+use ExtUtils::MakeMaker ();
+use FileHandle ();
+use File::Basename ();
+use File::Path ();
+use File::Spec ();
+use CPAN::Mirrors ();
+use vars qw($VERSION $auto_config);
+$VERSION = "5.5311";
+
+
+# down until the next =back the manpage must be parsed by the program
+# because the text is used in the init dialogues.
+
+my @podpara = split /\n\n/, <<'=back';
+
+
+use vars qw( %prompts );
+
+{
+
+    my @prompts = (
+
+auto_config => qq{
+CPAN.pm requires configuration, but most of it can be done automatically.
+If you answer 'no' below, you will enter an interactive dialog for each
+configuration option instead.
+
+Would you like to configure as much as possible automatically?},
+
+auto_pick => qq{
+Would you like me to automatically choose some CPAN mirror
+sites for you? (This means connecting to the Internet)},
+
+config_intro => qq{
+
+The following questions are intended to help you with the
+configuration. The CPAN module needs a directory of its own to cache
+important index files and maybe keep a temporary mirror of CPAN files.
+This may be a site-wide or a personal directory.
+
+},
+
+# cpan_home => qq{ },
+
+cpan_home_where => qq{
+
+First of all, I'd like to create this directory. Where?
+
+},
+
+external_progs => qq{
+
+The CPAN module will need a few external programs to work properly.
+Please correct me, if I guess the wrong path for a program. Don't
+panic if you do not have some of them, just press ENTER for those. To
+disable the use of a program, you can type a space followed by ENTER.
+
+},
+
+proxy_intro => qq{
+
+If you're accessing the net via proxies, you can specify them in the
+CPAN configuration or via environment variables. The variable in
+the \$CPAN::Config takes precedence.
+
+},
+
+proxy_user => qq{
+
+If your proxy is an authenticating proxy, you can store your username
+permanently. If you do not want that, just press ENTER. You will then
+be asked for your username in every future session.
+
+},
+
+proxy_pass => qq{
+
+Your password for the authenticating proxy can also be stored
+permanently on disk. If this violates your security policy, just press
+ENTER. You will then be asked for the password in every future
+session.
+
+},
+
+urls_intro => qq{
+Now you need to choose your CPAN mirror sites.  You can let me
+pick mirrors for you, you can select them from a list or you
+can enter them by hand.
+},
+
+urls_picker_intro => qq{First, pick a nearby continent and country by typing in the number(s)
+in front of the item(s) you want to select. You can pick several of
+each, separated by spaces. Then, you will be presented with a list of
+URLs of CPAN mirrors in the countries you selected, along with
+previously selected URLs. Select some of those URLs, or just keep the
+old list. Finally, you will be prompted for any extra URLs -- file:,
+ftp:, or http: -- that host a CPAN mirror.
+
+You should select more than one (just in case the first isn't available).
+
+},
+
+password_warn => qq{
+
+Warning: Term::ReadKey seems not to be available, your password will
+be echoed to the terminal!
+
+},
+
+install_help => qq{
+Warning: You do not have write permission for Perl library directories.
+
+To install modules, you need to configure a local Perl library directory or
+escalate your privileges.  CPAN can help you by bootstrapping the local::lib
+module or by configuring itself to use 'sudo' (if available).  You may also
+resolve this problem manually if you need to customize your setup.
+
+What approach do you want?  (Choose 'local::lib', 'sudo' or 'manual')
+},
+
+local_lib_installed => qq{
+local::lib is installed. You must now add the following environment variables
+to your shell configuration files (or registry, if you are on Windows) and
+then restart your command line shell and CPAN before installing modules:
+
+},
+
+              );
+
+    die "Coding error in \@prompts declaration.  Odd number of elements, above"
+        if (@prompts % 2);
+
+    %prompts = @prompts;
+
+    if (scalar(keys %prompts) != scalar(@prompts)/2) {
+        my %already;
+        for my $item (0..$#prompts) {
+            next if $item % 2;
+            die "$prompts[$item] is duplicated\n" if $already{$prompts[$item]}++;
+        }
+    }
+
+    shift @podpara;
+    while (@podpara) {
+        warn "Alert: cannot parse my own manpage for init dialog" unless $podpara[0] =~ s/^=item\s+//;
+        my $name = shift @podpara;
+        my @para;
+        while (@podpara && $podpara[0] !~ /^=item/) {
+            push @para, shift @podpara;
+        }
+        $prompts{$name} = pop @para;
+        if (@para) {
+            $prompts{$name . "_intro"} = join "", map { "$_\n\n" } @para;
+        }
+    }
+
+}
+
+sub init {
+    my($configpm, %args) = @_;
+    use Config;
+    # extra args after 'o conf init'
+    my $matcher = $args{args} && @{$args{args}} ? $args{args}[0] : '';
+    if ($matcher =~ /^\/(.*)\/$/) {
+        # case /regex/ => take the first, ignore the rest
+        $matcher = $1;
+        shift @{$args{args}};
+        if (@{$args{args}}) {
+            local $" = " ";
+            $CPAN::Frontend->mywarn("Ignoring excessive arguments '@{$args{args}}'");
+            $CPAN::Frontend->mysleep(2);
+        }
+    } elsif (0 == length $matcher) {
+    } elsif (0 && $matcher eq "~") { # extremely buggy, but a nice idea
+        my @unconfigured = sort grep { not exists $CPAN::Config->{$_}
+                                      or not defined $CPAN::Config->{$_}
+                                          or not length $CPAN::Config->{$_}
+                                  } keys %$CPAN::Config;
+        $matcher = "\\b(".join("|", @unconfigured).")\\b";
+        $CPAN::Frontend->mywarn("matcher[$matcher]");
+    } else {
+        # case WORD... => all arguments must be valid
+        for my $arg (@{$args{args}}) {
+            unless (exists $CPAN::HandleConfig::keys{$arg}) {
+                $CPAN::Frontend->mywarn("'$arg' is not a valid configuration variable\n");
+                return;
+            }
+        }
+        $matcher = "\\b(".join("|",@{$args{args}}).")\\b";
+    }
+    CPAN->debug("matcher[$matcher]") if $CPAN::DEBUG;
+
+    unless ($CPAN::VERSION) {
+        require CPAN::Nox;
+    }
+    require CPAN::HandleConfig;
+    CPAN::HandleConfig::require_myconfig_or_config();
+    $CPAN::Config ||= {};
+    local($/) = "\n";
+    local($\) = "";
+    local($|) = 1;
+
+    my($ans,$default); # why so half global?
+
+    #
+    #= Files, directories
+    #
+
+    local *_real_prompt;
+    if ( $args{autoconfig} ) {
+        $auto_config = 1;
+    } elsif ($matcher) {
+        $auto_config = 0;
+    } else {
+        my $_conf = prompt($prompts{auto_config}, "yes");
+        $auto_config = ($_conf and $_conf =~ /^y/i) ? 1 : 0;
+    }
+    CPAN->debug("auto_config[$auto_config]") if $CPAN::DEBUG;
+    if ( $auto_config ) {
+            local $^W = 0;
+            # prototype should match that of &MakeMaker::prompt
+            my $current_second = time;
+            my $current_second_count = 0;
+            my $i_am_mad = 0;
+            # silent prompting -- just quietly use default
+            *_real_prompt = sub { return $_[1] };
+    }
+
+    #
+    # bootstrap local::lib or sudo
+    #
+    unless ( $matcher
+        || _can_write_to_libdirs() || _using_installbase() || _using_sudo()
+    ) {
+        local $auto_config = 0; # We *must* ask, even under autoconfig
+        local *_real_prompt;    # We *must* show prompt
+        my_prompt_loop(install_help => 'local::lib', $matcher,
+                   'local::lib|sudo|manual');
+    }
+    $CPAN::Config->{install_help} ||= ''; # Temporary to suppress warnings
+
+    if (!$matcher or q{
+                       build_dir
+                       build_dir_reuse
+                       cpan_home
+                       keep_source_where
+                       prefs_dir
+                      } =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{config_intro}) unless $auto_config;
+
+        init_cpan_home($matcher);
+
+        my_dflt_prompt("keep_source_where",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"sources"),
+                       $matcher,
+                      );
+        my_dflt_prompt("build_dir",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"build"),
+                       $matcher
+                      );
+        my_yn_prompt(build_dir_reuse => 0, $matcher);
+        my_dflt_prompt("prefs_dir",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"prefs"),
+                       $matcher
+                      );
+    }
+
+    #
+    #= Config: auto_commit
+    #
+
+    my_yn_prompt(auto_commit => 0, $matcher);
+
+    #
+    #= Cache size, Index expire
+    #
+    my_dflt_prompt(build_cache => 100, $matcher);
+
+    my_dflt_prompt(index_expire => 1, $matcher);
+    my_prompt_loop(scan_cache => 'atstart', $matcher, 'atstart|atexit|never');
+    my_yn_prompt(cleanup_after_install => 0, $matcher);
+
+    #
+    #= cache_metadata
+    #
+
+    my_yn_prompt(cache_metadata => 1, $matcher);
+    my_yn_prompt(use_sqlite => 0, $matcher);
+
+    #
+    #= Do we follow PREREQ_PM?
+    #
+
+    my_prompt_loop(prerequisites_policy => 'follow', $matcher,
+                   'follow|ask|ignore');
+    my_prompt_loop(build_requires_install_policy => 'yes', $matcher,
+                   'yes|no|ask/yes|ask/no');
+    my_yn_prompt(recommends_policy => 1, $matcher);
+    my_yn_prompt(suggests_policy => 0, $matcher);
+
+    #
+    #= Module::Signature
+    #
+    my_yn_prompt(check_sigs => 0, $matcher);
+
+    #
+    #= CPAN::Reporter
+    #
+    if (!$matcher or 'test_report' =~ /$matcher/) {
+        my_yn_prompt(test_report => 0, $matcher);
+        if (
+            $matcher &&
+            $CPAN::Config->{test_report} &&
+            $CPAN::META->has_inst("CPAN::Reporter") &&
+            CPAN::Reporter->can('configure')
+           ) {
+            my $_conf = prompt("Would you like me configure CPAN::Reporter now?", "yes");
+            if ($_conf =~ /^y/i) {
+              $CPAN::Frontend->myprint("\nProceeding to configure CPAN::Reporter.\n");
+              CPAN::Reporter::configure();
+              $CPAN::Frontend->myprint("\nReturning to CPAN configuration.\n");
+            }
+        }
+    }
+
+    my_yn_prompt(trust_test_report_history => 0, $matcher);
+
+    #
+    #= YAML vs. YAML::Syck
+    #
+    if (!$matcher or "yaml_module" =~ /$matcher/) {
+        my_dflt_prompt(yaml_module => "YAML", $matcher);
+        my $old_v = $CPAN::Config->{load_module_verbosity};
+        $CPAN::Config->{load_module_verbosity} = q[none];
+        if (!$auto_config && !$CPAN::META->has_inst($CPAN::Config->{yaml_module})) {
+            $CPAN::Frontend->mywarn
+                ("Warning (maybe harmless): '$CPAN::Config->{yaml_module}' not installed.\n");
+            $CPAN::Frontend->mysleep(3);
+        }
+        $CPAN::Config->{load_module_verbosity} = $old_v;
+    }
+
+    #
+    #= YAML code deserialisation
+    #
+    my_yn_prompt(yaml_load_code => 0, $matcher);
+
+    #
+    #= External programs
+    #
+    my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
+    $CPAN::Frontend->myprint($prompts{external_progs})
+        if !$matcher && !$auto_config;
+    _init_external_progs($matcher, {
+        path => \@path,
+        progs => [ qw/make bzip2 gzip tar unzip gpg patch applypatch/ ],
+        shortcut => 0
+      });
+    _init_external_progs($matcher, {
+        path => \@path,
+        progs => [ qw/wget curl lynx ncftpget ncftp ftp/ ],
+        shortcut => 1
+      });
+
+    {
+        my $path = $CPAN::Config->{'pager'} ||
+            $ENV{PAGER} || find_exe("less",\@path) ||
+                find_exe("more",\@path) || ($^O eq 'MacOS' ? $ENV{EDITOR} : 0 )
+                    || "more";
+        my_dflt_prompt(pager => $path, $matcher);
+    }
+
+    {
+        my $path = $CPAN::Config->{'shell'};
+        if ($path && File::Spec->file_name_is_absolute($path)) {
+            $CPAN::Frontend->mywarn("Warning: configured $path does not exist\n")
+                unless -e $path;
+            $path = "";
+        }
+        $path ||= $ENV{SHELL};
+        $path ||= $ENV{COMSPEC} if $^O eq "MSWin32";
+        if ($^O eq 'MacOS') {
+            $CPAN::Config->{'shell'} = 'not_here';
+        } else {
+            $path ||= 'sh', $path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only
+            my_dflt_prompt(shell => $path, $matcher);
+        }
+    }
+
+    {
+        my $tar = $CPAN::Config->{tar};
+        my $prefer_external_tar = $CPAN::Config->{prefer_external_tar}; # XXX not yet supported
+        unless (defined $prefer_external_tar) {
+            if ($^O =~ /(MSWin32|solaris)/) {
+                # both have a record of broken tars
+                $prefer_external_tar = 0;
+            } elsif ($tar) {
+                $prefer_external_tar = 1;
+            } else {
+                $prefer_external_tar = 0;
+            }
+        }
+        my_yn_prompt(prefer_external_tar => $prefer_external_tar, $matcher);
+    }
+
+    #
+    # verbosity
+    #
+
+    my_prompt_loop(tar_verbosity => 'none', $matcher,
+                   'none|v|vv');
+    my_prompt_loop(load_module_verbosity => 'none', $matcher,
+                   'none|v');
+    my_prompt_loop(perl5lib_verbosity => 'none', $matcher,
+                   'none|v');
+    my_yn_prompt(inhibit_startup_message => 0, $matcher);
+
+    #
+    #= Installer, arguments to make etc.
+    #
+
+    my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND');
+
+    if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) {
+        my_dflt_prompt(makepl_arg => "", $matcher);
+        my_dflt_prompt(make_arg => "", $matcher);
+        if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) {
+            $CPAN::Frontend->mywarn(
+                "Warning: Using LIBS or INC in makepl_arg will likely break distributions\n" .
+                "that specify their own LIBS or INC options in Makefile.PL.\n"
+            );
+        }
+
+    }
+
+    require CPAN::HandleConfig;
+    if (exists $CPAN::HandleConfig::keys{make_install_make_command}) {
+        # as long as Windows needs $self->_build_command, we cannot
+        # support sudo on windows :-)
+        my $default = $CPAN::Config->{make} || "";
+        if ( $default && $CPAN::Config->{install_help} eq 'sudo' ) {
+            if ( find_exe('sudo') ) {
+                $default = "sudo $default";
+                delete $CPAN::Config->{make_install_make_command}
+                    unless $CPAN::Config->{make_install_make_command} =~ /sudo/;
+            }
+            else {
+                $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n");
+            }
+        }
+        my_dflt_prompt(make_install_make_command => $default, $matcher);
+    }
+
+    my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "",
+                   $matcher);
+
+    my_dflt_prompt(mbuildpl_arg => "", $matcher);
+    my_dflt_prompt(mbuild_arg => "", $matcher);
+
+    if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command}
+        and $^O ne "MSWin32") {
+        # as long as Windows needs $self->_build_command, we cannot
+        # support sudo on windows :-)
+        my $default = $^O eq 'VMS' ? '@Build.com' : "./Build";
+        if ( $CPAN::Config->{install_help} eq 'sudo' ) {
+            if ( find_exe('sudo') ) {
+                $default = "sudo $default";
+                delete $CPAN::Config->{mbuild_install_build_command}
+                    unless $CPAN::Config->{mbuild_install_build_command} =~ /sudo/;
+            }
+            else {
+                $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n");
+            }
+        }
+        my_dflt_prompt(mbuild_install_build_command => $default, $matcher);
+    }
+
+    my_dflt_prompt(mbuild_install_arg => "", $matcher);
+
+    #
+    #== use_prompt_default
+    #
+    my_yn_prompt(use_prompt_default => 0, $matcher);
+
+    #
+    #= Alarm period
+    #
+
+    my_dflt_prompt(inactivity_timeout => 0, $matcher);
+    my_dflt_prompt(version_timeout => 15, $matcher);
+
+    #
+    #== halt_on_failure
+    #
+    my_yn_prompt(halt_on_failure => 0, $matcher);
+
+    #
+    #= Proxies
+    #
+
+    my @proxy_vars = qw/ftp_proxy http_proxy no_proxy/;
+    my @proxy_user_vars = qw/proxy_user proxy_pass/;
+    if (!$matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{proxy_intro}) unless $auto_config;
+
+        for (@proxy_vars) {
+            $prompts{$_} = "Your $_?";
+            my_dflt_prompt($_ => $ENV{$_}||"", $matcher);
+        }
+
+        if ($CPAN::Config->{ftp_proxy} ||
+            $CPAN::Config->{http_proxy}) {
+
+            $default = $CPAN::Config->{proxy_user} || $CPAN::LWP::UserAgent::USER || "";
+
+            $CPAN::Frontend->myprint($prompts{proxy_user}) unless $auto_config;
+
+            if ($CPAN::Config->{proxy_user} = prompt("Your proxy user id?",$default)) {
+                $CPAN::Frontend->myprint($prompts{proxy_pass}) unless $auto_config;
+
+                if ($CPAN::META->has_inst("Term::ReadKey")) {
+                    Term::ReadKey::ReadMode("noecho");
+                } else {
+                    $CPAN::Frontend->myprint($prompts{password_warn}) unless $auto_config;
+                }
+                $CPAN::Config->{proxy_pass} = prompt_no_strip("Your proxy password?");
+                if ($CPAN::META->has_inst("Term::ReadKey")) {
+                    Term::ReadKey::ReadMode("restore");
+                }
+                $CPAN::Frontend->myprint("\n\n") unless $auto_config;
+            }
+        }
+    }
+
+    #
+    #= how plugins work
+    #
+
+    # XXX MISSING: my_array_prompt to be used with plugins. We did something like this near
+    #     git log -p fd68f8f5e33f4cecea4fdb7abc5ee19c12f138f0..test-notest-test-dependency
+    # Need to do similar steps for plugin_list. As long as we do not support it here, people
+    # must use the cpan shell prompt to write something like
+    #     o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/foo-20141013,...
+    #     o conf commit
+
+    #
+    #= how FTP works
+    #
+
+    my_yn_prompt(ftp_passive => 1, $matcher);
+
+    #
+    #= how cwd works
+    #
+
+    my_prompt_loop(getcwd => 'cwd', $matcher,
+                   'cwd|getcwd|fastcwd|getdcwd|backtickcwd');
+
+    #
+    #= the CPAN shell itself (prompt, color)
+    #
+
+    my_yn_prompt(commandnumber_in_prompt => 1, $matcher);
+    my_yn_prompt(term_ornaments => 1, $matcher);
+    if ("colorize_output colorize_print colorize_warn colorize_debug" =~ $matcher) {
+        my_yn_prompt(colorize_output => 0, $matcher);
+        if ($CPAN::Config->{colorize_output}) {
+            if ($CPAN::META->has_inst("Term::ANSIColor")) {
+                my $T="gYw";
+                $CPAN::Frontend->myprint( "                                      on_  on_y ".
+                    "        on_ma           on_\n") unless $auto_config;
+                $CPAN::Frontend->myprint( "                   on_black on_red  green ellow ".
+                    "on_blue genta on_cyan white\n") unless $auto_config;
+
+                for my $FG ("", "bold",
+                            map {$_,"bold $_"} "black","red","green",
+                            "yellow","blue",
+                            "magenta",
+                            "cyan","white") {
+                    $CPAN::Frontend->myprint(sprintf( "%12s ", $FG)) unless $auto_config;
+                    for my $BG ("",map {"on_$_"} qw(black red green yellow
+                                                    blue magenta cyan white)) {
+                            $CPAN::Frontend->myprint( $FG||$BG ?
+                            Term::ANSIColor::colored("  $T  ","$FG $BG") : "  $T  ") unless $auto_config;
+                    }
+                    $CPAN::Frontend->myprint( "\n" ) unless $auto_config;
+                }
+                $CPAN::Frontend->myprint( "\n" ) unless $auto_config;
+            }
+            for my $tuple (
+                           ["colorize_print", "bold blue on_white"],
+                           ["colorize_warn", "bold red on_white"],
+                           ["colorize_debug", "black on_cyan"],
+                          ) {
+                my_dflt_prompt($tuple->[0] => $tuple->[1], $matcher);
+                if ($CPAN::META->has_inst("Term::ANSIColor")) {
+                    eval { Term::ANSIColor::color($CPAN::Config->{$tuple->[0]})};
+                    if ($@) {
+                        $CPAN::Config->{$tuple->[0]} = $tuple->[1];
+                        $CPAN::Frontend->mywarn($@."setting to default '$tuple->[1]'\n");
+                    }
+                }
+            }
+        }
+    }
+
+    #
+    #== term_is_latin
+    #
+
+    my_yn_prompt(term_is_latin => 1, $matcher);
+
+    #
+    #== save history in file 'histfile'
+    #
+
+    if (!$matcher or 'histfile histsize' =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{histfile_intro}) unless $auto_config;
+        defined($default = $CPAN::Config->{histfile}) or
+            $default = File::Spec->catfile($CPAN::Config->{cpan_home},"histfile");
+        my_dflt_prompt(histfile => $default, $matcher);
+
+        if ($CPAN::Config->{histfile}) {
+            defined($default = $CPAN::Config->{histsize}) or $default = 100;
+            my_dflt_prompt(histsize => $default, $matcher);
+        }
+    }
+
+    #
+    #== do an ls on the m or the d command
+    #
+    my_yn_prompt(show_upload_date => 0, $matcher);
+
+    #
+    #== verbosity at the end of the r command
+    #
+    if (!$matcher
+        or 'show_unparsable_versions' =~ /$matcher/
+        or 'show_zero_versions' =~ /$matcher/
+       ) {
+        my_yn_prompt(show_unparsable_versions => 0, $matcher);
+        my_yn_prompt(show_zero_versions => 0, $matcher);
+    }
+
+    #
+    #= MIRRORED.BY and conf_sites()
+    #
+
+    # Let's assume they want to use the internet and make them turn it
+    # off if they really don't.
+    my_yn_prompt("connect_to_internet_ok" => 1, $matcher);
+
+    # Allow matching but don't show during manual config
+    if ($matcher) {
+        if ("randomize_urllist" =~ $matcher) {
+            my_dflt_prompt(randomize_urllist => 0, $matcher);
+        }
+        if ("ftpstats_size" =~ $matcher) {
+            my_dflt_prompt(ftpstats_size => 99, $matcher);
+        }
+        if ("ftpstats_period" =~ $matcher) {
+            my_dflt_prompt(ftpstats_period => 14, $matcher);
+        }
+    }
+
+    $CPAN::Config->{urllist} ||= [];
+
+    if ($auto_config) {
+        if(@{ $CPAN::Config->{urllist} }) {
+            $CPAN::Frontend->myprint(
+                "Your 'urllist' is already configured. Type 'o conf init urllist' to change it.\n"
+            );
+        }
+        else {
+            $CPAN::Config->{urllist} = [ 'http://www.cpan.org/' ];
+        }
+    }
+    elsif (!$matcher || "urllist" =~ $matcher) {
+        _do_pick_mirrors();
+    }
+
+    if ($auto_config) {
+        $CPAN::Frontend->myprint(
+            "\nAutoconfiguration complete.\n"
+        );
+        $auto_config = 0; # reset
+    }
+
+    # bootstrap local::lib now if requested
+    if ( $CPAN::Config->{install_help} eq 'local::lib' ) {
+        if ( ! @{ $CPAN::Config->{urllist} } ) {
+            $CPAN::Frontend->myprint(
+                "Skipping local::lib bootstrap because 'urllist' is not configured.\n"
+            );
+        }
+        else {
+            $CPAN::Frontend->myprint("\nAttempting to bootstrap local::lib...\n");
+            $CPAN::Frontend->myprint("\nWriting $configpm for bootstrap...\n");
+            delete $CPAN::Config->{install_help}; # temporary only
+            CPAN::HandleConfig->commit;
+            my($dist, $locallib);
+            $locallib = CPAN::Shell->expand('Module', 'local::lib');
+            if ( $locallib and $dist = $locallib->distribution ) {
+                # this is a hack to force bootstrapping
+                $dist->{prefs}{pl}{commandline} = "$^X Makefile.PL --bootstrap";
+                # Set @INC for this process so we find things as they bootstrap
+                require lib;
+                lib->import(_local_lib_inc_path());
+                eval { $dist->install };
+            }
+            if ( ! $dist || (my $err = $@) ) {
+                $err ||= 'Could not locate local::lib in the CPAN index';
+                $CPAN::Frontend->mywarn("Error bootstrapping local::lib: $@\n");
+                $CPAN::Frontend->myprint("From the CPAN Shell, you might try 'look local::lib' and \n"
+                    . "run 'perl Makefile --bootstrap' and see if that is successful.  Then\n"
+                    . "restart your CPAN client\n"
+                );
+            }
+            else {
+                _local_lib_config();
+            }
+        }
+    }
+
+    # install_help is temporary for configuration and not saved
+    delete $CPAN::Config->{install_help};
+
+    $CPAN::Frontend->myprint("\n");
+    if ($matcher && !$CPAN::Config->{auto_commit}) {
+        $CPAN::Frontend->myprint("Please remember to call 'o conf commit' to ".
+                                 "make the config permanent!\n");
+    } else {
+        CPAN::HandleConfig->commit;
+    }
+
+    if (! $matcher) {
+        $CPAN::Frontend->myprint(
+            "\nYou can re-run configuration any time with 'o conf init' in the CPAN shell\n"
+        );
+    }
+
+}
+
+sub _local_lib_config {
+    # Set environment stuff for this process
+    require local::lib;
+
+    # Tell user about environment vars to set
+    $CPAN::Frontend->myprint($prompts{local_lib_installed});
+    local $ENV{SHELL} = $CPAN::Config->{shell} || $ENV{SHELL};
+    my $shellvars = local::lib->environment_vars_string_for(_local_lib_path());
+    $CPAN::Frontend->myprint($shellvars);
+
+    # Set %ENV after getting string above
+    my %env = local::lib->build_environment_vars_for(_local_lib_path(), 1);
+    while ( my ($k, $v) = each %env ) {
+        $ENV{$k} = $v;
+    }
+
+    # Offer to mangle the shell config
+    my $munged_rc;
+    if ( my $rc = _find_shell_config() ) {
+        local $auto_config = 0; # We *must* ask, even under autoconfig
+        local *_real_prompt;    # We *must* show prompt
+        my $_conf = prompt(
+            "\nWould you like me to append that to $rc now?", "yes"
+        );
+        if ($_conf =~ /^y/i) {
+            open my $fh, ">>", $rc;
+            print {$fh} "\n$shellvars";
+            close $fh;
+            $munged_rc++;
+        }
+    }
+
+    # Warn at exit time
+    if ($munged_rc) {
+        push @{$CPAN::META->_exit_messages}, << "HERE";
+
+*** Remember to restart your shell before running cpan again ***
+HERE
+    }
+    else {
+        push @{$CPAN::META->_exit_messages}, << "HERE";
+
+*** Remember to add these environment variables to your shell config
+    and restart your shell before running cpan again ***
+
+$shellvars
+HERE
+    }
+}
+
+{
+    my %shell_rc_map = (
+        map { $_ => ".${_}rc" } qw/ bash tcsh csh /,
+        map { $_ => ".profile" } qw/dash ash sh/,
+        zsh  => ".zshenv",
+    );
+
+    sub _find_shell_config {
+        my $shell = File::Basename::basename($CPAN::Config->{shell});
+        if ( my $rc = $shell_rc_map{$shell} ) {
+            my $path = File::Spec->catfile($ENV{HOME}, $rc);
+            return $path if -w $path;
+        }
+    }
+}
+
+
+sub _local_lib_inc_path {
+    return File::Spec->catdir(_local_lib_path(), qw/lib perl5/);
+}
+
+sub _local_lib_path {
+    return File::Spec->catdir(_local_lib_home(), 'perl5');
+}
+
+# Adapted from resolve_home_path() in local::lib -- this is where
+# local::lib thinks the user's home is
+{
+    my $local_lib_home;
+    sub _local_lib_home {
+        $local_lib_home ||= File::Spec->rel2abs( do {
+            if ($CPAN::META->has_usable("File::HomeDir") && File::HomeDir->VERSION >= 0.65) {
+                File::HomeDir->my_home;
+            } elsif (defined $ENV{HOME}) {
+                $ENV{HOME};
+            } else {
+                (getpwuid $<)[7] || "~";
+            }
+        });
+    }
+}
+
+sub _do_pick_mirrors {
+    local *_real_prompt;
+    *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    $CPAN::Frontend->myprint($prompts{urls_intro});
+    # Only prompt for auto-pick if Net::Ping is new enough to do timings
+    my $_conf = 'n';
+    if ( $CPAN::META->has_usable("Net::Ping") && Net::Ping->VERSION gt '2.13') {
+        $_conf = prompt($prompts{auto_pick}, "yes");
+    } else {
+        prompt("Autoselection disabled due to Net::Ping missing or insufficient. Please press ENTER");
+    }
+    my @old_list = @{ $CPAN::Config->{urllist} };
+    if ( $_conf =~ /^y/i ) {
+        conf_sites( auto_pick => 1 ) or bring_your_own();
+    }
+    else {
+        _print_urllist('Current') if @old_list;
+        my $msg = scalar @old_list
+            ? "\nWould you like to edit the urllist or pick new mirrors from a list?"
+            : "\nWould you like to pick from the CPAN mirror list?" ;
+        my $_conf = prompt($msg, "yes");
+        if ( $_conf =~ /^y/i ) {
+            conf_sites();
+        }
+        bring_your_own();
+    }
+    _print_urllist('New');
+}
+
+sub _init_external_progs {
+    my($matcher,$args) = @_;
+    my $PATH = $args->{path};
+    my @external_progs = @{ $args->{progs} };
+    my $shortcut = $args->{shortcut};
+    my $showed_make_warning;
+
+    if (!$matcher or "@external_progs" =~ /$matcher/) {
+        my $old_warn = $^W;
+        local $^W if $^O eq 'MacOS';
+        local $^W = $old_warn;
+        my $progname;
+        for $progname (@external_progs) {
+            next if $matcher && $progname !~ /$matcher/;
+            if ($^O eq 'MacOS') {
+                $CPAN::Config->{$progname} = 'not_here';
+                next;
+            }
+
+            my $progcall = $progname;
+            unless ($matcher) {
+                # we really don't need ncftp if we have ncftpget, but
+                # if they chose this dialog via matcher, they shall have it
+                next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
+            }
+            my $path = $CPAN::Config->{$progname}
+                || $Config::Config{$progname}
+                    || "";
+            if (File::Spec->file_name_is_absolute($path)) {
+                # testing existence is not good enough, some have these exe
+                # extensions
+
+                # warn "Warning: configured $path does not exist\n" unless -e $path;
+                # $path = "";
+            } elsif ($path =~ /^\s+$/) {
+                # preserve disabled programs
+            } else {
+                $path = '';
+            }
+            unless ($path) {
+                # e.g. make -> nmake
+                $progcall = $Config::Config{$progname} if $Config::Config{$progname};
+            }
+
+            $path ||= find_exe($progcall,$PATH);
+            unless ($path) { # not -e $path, because find_exe already checked that
+                local $"=";";
+                $CPAN::Frontend->mywarn("Warning: $progcall not found in PATH[@$PATH]\n") unless $auto_config;
+                _beg_for_make(), $showed_make_warning++ if $progname eq "make";
+            }
+            $prompts{$progname} = "Where is your $progname program?";
+            $path = my_dflt_prompt($progname,$path,$matcher,1); # 1 => no strip spaces
+            my $disabling = $path =~ m/^\s*$/;
+
+            # don't let them disable or misconfigure make without warning
+            if ( $progname eq "make" && ( $disabling || ! _check_found($path) ) ) {
+              if ( $disabling && $showed_make_warning ) {
+                next;
+              }
+              else {
+                _beg_for_make() unless $showed_make_warning++;
+                undef $CPAN::Config->{$progname};
+                $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable make (NOT RECOMMENDED)\n");
+                redo;
+              }
+            }
+            elsif ( $disabling ) {
+              next;
+            }
+            elsif ( _check_found( $CPAN::Config->{$progname} ) ) {
+              last if $shortcut && !$matcher;
+            }
+            else {
+              undef $CPAN::Config->{$progname};
+              $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable $progname\n");
+              redo;
+            }
+        }
+    }
+}
+
+sub _check_found {
+  my ($prog) = @_;
+  if ( ! -f $prog ) {
+    $CPAN::Frontend->mywarn("Warning: '$prog' does not exist\n")
+      unless $auto_config;
+    return;
+  }
+  elsif ( ! -x $prog ) {
+    $CPAN::Frontend->mywarn("Warning: '$prog' is not executable\n")
+      unless $auto_config;
+    return;
+  }
+  return 1;
+}
+
+sub _beg_for_make {
+  $CPAN::Frontend->mywarn(<<"HERE");
+
+ALERT: 'make' is an essential tool for building perl Modules.
+Please make sure you have 'make' (or some equivalent) working.
+
+HERE
+  if ($^O eq "MSWin32") {
+    $CPAN::Frontend->mywarn(<<"HERE");
+Windows users may want to follow this procedure when back in the CPAN shell:
+
+    look YVES/scripts/alien_nmake.pl
+    perl alien_nmake.pl
+
+This will install nmake on your system which can be used as a 'make'
+substitute. You can then revisit this dialog with
+
+    o conf init make
+
+HERE
+  }
+}
+
+sub init_cpan_home {
+    my($matcher) = @_;
+    if (!$matcher or 'cpan_home' =~ /$matcher/) {
+        my $cpan_home =
+            $CPAN::Config->{cpan_home} || CPAN::HandleConfig::cpan_home();
+        if (-d $cpan_home) {
+            $CPAN::Frontend->myprint(
+                "\nI see you already have a directory\n" .
+                "\n$cpan_home\n" .
+                "Shall we use it as the general CPAN build and cache directory?\n\n"
+            ) unless $auto_config;
+        } else {
+            # no cpan-home, must prompt and get one
+            $CPAN::Frontend->myprint($prompts{cpan_home_where}) unless $auto_config;
+        }
+
+        my $default = $cpan_home;
+        my $loop = 0;
+        my($last_ans,$ans);
+        $CPAN::Frontend->myprint(" <cpan_home>\n") unless $auto_config;
+    PROMPT: while ($ans = prompt("CPAN build and cache directory?",$default)) {
+            if (File::Spec->file_name_is_absolute($ans)) {
+                my @cpan_home = split /[\/\\]/, $ans;
+            DIR: for my $dir (@cpan_home) {
+                    if ($dir =~ /^~/ and (!$last_ans or $ans ne $last_ans)) {
+                        $CPAN::Frontend
+                            ->mywarn("Warning: a tilde in the path will be ".
+                                     "taken as a literal tilde. Please ".
+                                     "confirm again if you want to keep it\n");
+                        $last_ans = $default = $ans;
+                        next PROMPT;
+                    }
+                }
+            } else {
+                require Cwd;
+                my $cwd = Cwd::cwd();
+                my $absans = File::Spec->catdir($cwd,$ans);
+                $CPAN::Frontend->mywarn("The path '$ans' is not an ".
+                                        "absolute path. Please specify ".
+                                        "an absolute path\n");
+                $default = $absans;
+                next PROMPT;
+            }
+            eval { File::Path::mkpath($ans); }; # dies if it can't
+            if ($@) {
+                $CPAN::Frontend->mywarn("Couldn't create directory $ans.\n".
+                                        "Please retry.\n");
+                next PROMPT;
+            }
+            if (-d $ans && -w _) {
+                last PROMPT;
+            } else {
+                $CPAN::Frontend->mywarn("Couldn't find directory $ans\n".
+                                        "or directory is not writable. Please retry.\n");
+                if (++$loop > 5) {
+                    $CPAN::Frontend->mydie("Giving up");
+                }
+            }
+        }
+        $CPAN::Config->{cpan_home} = $ans;
+    }
+}
+
+sub my_dflt_prompt {
+    my ($item, $dflt, $m, $no_strip) = @_;
+    my $default = $CPAN::Config->{$item} || $dflt;
+
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        if (my $intro = $prompts{$item . "_intro"}) {
+            $CPAN::Frontend->myprint($intro);
+        }
+        $CPAN::Frontend->myprint(" <$item>\n");
+        $CPAN::Config->{$item} =
+          $no_strip ? prompt_no_strip($prompts{$item}, $default)
+                    : prompt(         $prompts{$item}, $default);
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+    return $CPAN::Config->{$item};
+}
+
+sub my_yn_prompt {
+    my ($item, $dflt, $m) = @_;
+    my $default;
+    defined($default = $CPAN::Config->{$item}) or $default = $dflt;
+
+    # $DB::single = 1;
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        if (my $intro = $prompts{$item . "_intro"}) {
+            $CPAN::Frontend->myprint($intro);
+        }
+        $CPAN::Frontend->myprint(" <$item>\n");
+        my $ans = prompt($prompts{$item}, $default ? 'yes' : 'no');
+        $CPAN::Config->{$item} = ($ans =~ /^[y1]/i ? 1 : 0);
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+}
+
+sub my_prompt_loop {
+    my ($item, $dflt, $m, $ok) = @_;
+    my $default = $CPAN::Config->{$item} || $dflt;
+    my $ans;
+
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        $CPAN::Frontend->myprint($prompts{$item . "_intro"});
+        $CPAN::Frontend->myprint(" <$item>\n");
+        do { $ans = prompt($prompts{$item}, $default);
+        } until $ans =~ /$ok/;
+        $CPAN::Config->{$item} = $ans;
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+}
+
+
+# Here's the logic about the MIRRORED.BY file.  There are a number of scenarios:
+# (1) We have a cached MIRRORED.BY file
+#   (1a) We're auto-picking
+#       - Refresh it automatically if it's old
+#   (1b) Otherwise, ask if using cached is ok.  If old, default to no.
+#       - If cached is not ok, get it from the Internet. If it succeeds we use
+#         the new file.  Otherwise, we use the old file.
+# (2) We don't have a copy at all
+#   (2a) If we are allowed to connect, we try to get a new copy.  If it succeeds,
+#        we use it, otherwise, we warn about failure
+#   (2b) If we aren't allowed to connect,
+
+sub conf_sites {
+    my %args = @_;
+    # auto pick implies using the internet
+    $CPAN::Config->{connect_to_internet_ok} = 1 if $args{auto_pick};
+
+    my $m = 'MIRRORED.BY';
+    my $mby = File::Spec->catfile($CPAN::Config->{keep_source_where},$m);
+    File::Path::mkpath(File::Basename::dirname($mby));
+    # Why are we using MIRRORED.BY from the current directory?
+    # Is this for testing? -- dagolden, 2009-11-05
+    if (-f $mby && -f $m && -M $m < -M $mby) {
+        require File::Copy;
+        File::Copy::copy($m,$mby) or die "Could not update $mby: $!";
+    }
+    local $^T = time;
+    # if we have a cached copy is not older than 60 days, we either
+    # use it or refresh it or fall back to it if the refresh failed.
+    if ($mby && -f $mby && -s _ > 0 ) {
+      my $very_old = (-M $mby > 60);
+      my $mtime = localtime((stat _)[9]);
+      # if auto_pick, refresh anything old automatically
+      if ( $args{auto_pick} ) {
+        if ( $very_old ) {
+          $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n});
+          eval { CPAN::FTP->localize($m,$mby,3,1) }
+            or $CPAN::Frontend->myprint(qq{Refresh failed.  Using the old cached copy instead.\n});
+          $CPAN::Frontend->myprint("\n");
+        }
+      }
+      else {
+        my $prompt = qq{Found a cached mirror list as of $mtime
+
+If you'd like to just use the cached copy, answer 'yes', below.
+If you'd like an updated copy of the mirror list, answer 'no' and
+I'll get a fresh one from the Internet.
+
+Shall I use the cached mirror list?};
+        my $ans = prompt($prompt, $very_old ? "no" : "yes");
+        if ($ans =~ /^n/i) {
+          $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n});
+          # you asked for it from the Internet
+          $CPAN::Config->{connect_to_internet_ok} = 1;
+          eval { CPAN::FTP->localize($m,$mby,3,1) }
+            or $CPAN::Frontend->myprint(qq{Refresh failed.  Using the old cached copy instead.\n});
+          $CPAN::Frontend->myprint("\n");
+        }
+      }
+    }
+    # else there is no cached copy and we must fetch or fail
+    else {
+      # If they haven't agree to connect to the internet, ask again
+      if ( ! $CPAN::Config->{connect_to_internet_ok} ) {
+        my $prompt = q{You are missing a copy of the CPAN mirror list.
+
+May I connect to the Internet to get it?};
+        my $ans = prompt($prompt, "yes");
+        if ($ans =~ /^y/i) {
+          $CPAN::Config->{connect_to_internet_ok} = 1;
+        }
+      }
+
+      # Now get it from the Internet or complain
+      if ( $CPAN::Config->{connect_to_internet_ok} ) {
+        $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n});
+        eval { CPAN::FTP->localize($m,$mby,3,1) }
+          or $CPAN::Frontend->mywarn(<<'HERE');
+We failed to get a copy of the mirror list from the Internet.
+You will need to provide CPAN mirror URLs yourself.
+HERE
+        $CPAN::Frontend->myprint("\n");
+      }
+      else {
+        $CPAN::Frontend->mywarn(<<'HERE');
+You will need to provide CPAN mirror URLs yourself or set
+'o conf connect_to_internet_ok 1' and try again.
+HERE
+      }
+    }
+
+    # if we finally have a good local MIRRORED.BY, get on with picking
+    if (-f $mby && -s _ > 0){
+        $CPAN::Config->{urllist} =
+          $args{auto_pick} ? auto_mirrored_by($mby) : choose_mirrored_by($mby);
+        return 1;
+    }
+
+    return;
+}
+
+sub find_exe {
+    my($exe,$path) = @_;
+    $path ||= [split /$Config{'path_sep'}/, $ENV{'PATH'}];
+    my($dir);
+    #warn "in find_exe exe[$exe] path[@$path]";
+    for $dir (@$path) {
+        my $abs = File::Spec->catfile($dir,$exe);
+        if (($abs = MM->maybe_command($abs))) {
+            return $abs;
+        }
+    }
+}
+
+sub picklist {
+    my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_;
+    CPAN->debug("picklist('$items','$prompt','$default','$require_nonempty',".
+                "'$empty_warning')") if $CPAN::DEBUG;
+    $default ||= '';
+
+    my $pos = 0;
+
+    my @nums;
+  SELECTION: while (1) {
+
+        # display, at most, 15 items at a time
+        my $limit = $#{ $items } - $pos;
+        $limit = 15 if $limit > 15;
+
+        # show the next $limit items, get the new position
+        $pos = display_some($items, $limit, $pos, $default);
+        $pos = 0 if $pos >= @$items;
+
+        my $num = prompt($prompt,$default);
+
+        @nums = split (' ', $num);
+        {
+            my %seen;
+            @nums = grep { !$seen{$_}++ } @nums;
+        }
+        my $i = scalar @$items;
+        unrangify(\@nums);
+        if (0 == @nums) {
+            # cannot allow nothing because nothing means paging!
+            # return;
+        } elsif (grep (/\D/ || $_ < 1 || $_ > $i, @nums)) {
+            $CPAN::Frontend->mywarn("invalid items entered, try again\n");
+            if ("@nums" =~ /\D/) {
+                $CPAN::Frontend->mywarn("(we are expecting only numbers between 1 and $i)\n");
+            }
+            next SELECTION;
+        }
+        if ($require_nonempty && !@nums) {
+            $CPAN::Frontend->mywarn("$empty_warning\n");
+        }
+
+        # a blank line continues...
+        unless (@nums){
+            $CPAN::Frontend->mysleep(0.1); # prevent hot spinning process on the next bug
+            next SELECTION;
+        }
+        last;
+    }
+    for (@nums) { $_-- }
+    @{$items}[@nums];
+}
+
+sub unrangify ($) {
+    my($nums) = $_[0];
+    my @nums2 = ();
+    while (@{$nums||[]}) {
+        my $n = shift @$nums;
+        if ($n =~ /^(\d+)-(\d+)$/) {
+            my @range = $1 .. $2;
+            # warn "range[@range]";
+            push @nums2, @range;
+        } else {
+            push @nums2, $n;
+        }
+    }
+    push @$nums, @nums2;
+}
+
+sub display_some {
+    my ($items, $limit, $pos, $default) = @_;
+    $pos ||= 0;
+
+    my @displayable = @$items[$pos .. ($pos + $limit)];
+    for my $item (@displayable) {
+        $CPAN::Frontend->myprint(sprintf "(%d) %s\n", ++$pos, $item);
+    }
+    my $hit_what = $default ? "SPACE ENTER" : "ENTER";
+    $CPAN::Frontend->myprint(sprintf("%d more items, hit %s to show them\n",
+                                     (@$items - $pos),
+                                     $hit_what,
+                                    ))
+        if $pos < @$items;
+    return $pos;
+}
+
+sub auto_mirrored_by {
+    my $local = shift or return;
+    local $|=1;
+    $CPAN::Frontend->myprint("Looking for CPAN mirrors near you (please be patient)\n");
+    my $mirrors = CPAN::Mirrors->new($local);
+
+    my $cnt = 0;
+    my @best = $mirrors->best_mirrors(
+      how_many => 3,
+      callback => sub {
+          $CPAN::Frontend->myprint(".");
+          if ($cnt++>60) { $cnt=0; $CPAN::Frontend->myprint("\n"); }
+      },
+    );
+
+    my $urllist = [ map { $_->http } @best ];
+    push @$urllist, grep { /^file:/ } @{$CPAN::Config->{urllist}};
+    $CPAN::Frontend->myprint(" done!\n\n");
+
+    return $urllist
+}
+
+sub choose_mirrored_by {
+    my $local = shift or return;
+    my ($default);
+    my $mirrors = CPAN::Mirrors->new($local);
+    my @previous_urls = @{$CPAN::Config->{urllist}};
+
+    $CPAN::Frontend->myprint($prompts{urls_picker_intro});
+
+    my (@cont, $cont, %cont, @countries, @urls, %seen);
+    my $no_previous_warn =
+        "Sorry! since you don't have any existing picks, you must make a\n" .
+            "geographic selection.";
+    my $offer_cont = [sort $mirrors->continents];
+    if (@previous_urls) {
+        push @$offer_cont, "(edit previous picks)";
+        $default = @$offer_cont;
+    } else {
+        # cannot allow nothing because nothing means paging!
+        # push @$offer_cont, "(none of the above)";
+    }
+    @cont = picklist($offer_cont,
+                     "Select your continent (or several nearby continents)",
+                     $default,
+                     ! @previous_urls,
+                     $no_previous_warn);
+    # cannot allow nothing because nothing means paging!
+    # return unless @cont;
+
+    foreach $cont (@cont) {
+        my @c = sort $mirrors->countries($cont);
+        @cont{@c} = map ($cont, 0..$#c);
+        @c = map ("$_ ($cont)", @c) if @cont > 1;
+        push (@countries, @c);
+    }
+    if (@previous_urls && @countries) {
+        push @countries, "(edit previous picks)";
+        $default = @countries;
+    }
+
+    if (@countries) {
+        @countries = picklist (\@countries,
+                               "Select your country (or several nearby countries)",
+                               $default,
+                               ! @previous_urls,
+                               $no_previous_warn);
+        %seen = map (($_ => 1), @previous_urls);
+        # hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
+        foreach my $country (@countries) {
+            next if $country =~ /edit previous picks/;
+            (my $bare_country = $country) =~ s/ \(.*\)//;
+            my @u;
+            for my $m ( $mirrors->mirrors($bare_country) ) {
+              push @u, $m->ftp if $m->ftp;
+              push @u, $m->http if $m->http;
+            }
+            @u = grep (! $seen{$_}, @u);
+            @u = map ("$_ ($bare_country)", @u)
+                if @countries > 1;
+            push (@urls, sort @u);
+        }
+    }
+    push (@urls, map ("$_ (previous pick)", @previous_urls));
+    my $prompt = "Select as many URLs as you like (by number),
+put them on one line, separated by blanks, hyphenated ranges allowed
+ e.g. '1 4 5' or '7 1-4 8'";
+    if (@previous_urls) {
+        $default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) ..
+                         (scalar @urls));
+        $prompt .= "\n(or just hit ENTER to keep your previous picks)";
+    }
+
+    @urls = picklist (\@urls, $prompt, $default);
+    foreach (@urls) { s/ \(.*\)//; }
+    return [ @urls ];
+}
+
+sub bring_your_own {
+    my $urllist = [ @{$CPAN::Config->{urllist}} ];
+    my %seen = map (($_ => 1), @$urllist);
+    my($ans,@urls);
+    my $eacnt = 0; # empty answers
+    $CPAN::Frontend->myprint(<<'HERE');
+Now you can enter your own CPAN URLs by hand. A local CPAN mirror can be
+listed using a 'file:' URL like 'file:///path/to/cpan/'
+
+HERE
+    do {
+        my $prompt = "Enter another URL or ENTER to quit:";
+        unless (%seen) {
+            $prompt = qq{CPAN.pm needs at least one URL where it can fetch CPAN files from.
+
+Please enter your CPAN site:};
+        }
+        $ans = prompt ($prompt, "");
+
+        if ($ans) {
+            $ans =~ s|/?\z|/|; # has to end with one slash
+            # XXX This manipulation is odd.  Shouldn't we check that $ans is
+            # a directory before converting to file:///?  And we need /// below,
+            # too, don't we?  -- dagolden, 2009-11-05
+            $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
+            if ($ans =~ /^\w+:\/./) {
+                push @urls, $ans unless $seen{$ans}++;
+            } else {
+                $CPAN::Frontend->
+                    myprint(sprintf(qq{"%s" doesn\'t look like an URL at first sight.
+I\'ll ignore it for now.
+You can add it to your %s
+later if you\'re sure it\'s right.\n},
+                                   $ans,
+                                   $INC{'CPAN/MyConfig.pm'}
+                                   || $INC{'CPAN/Config.pm'}
+                                   || "configuration file",
+                                  ));
+            }
+        } else {
+            if (++$eacnt >= 5) {
+                $CPAN::Frontend->
+                    mywarn("Giving up.\n");
+                $CPAN::Frontend->mysleep(5);
+                return;
+            }
+        }
+    } while $ans || !%seen;
+
+    @$urllist = CPAN::_uniq(@$urllist, @urls);
+    $CPAN::Config->{urllist} = $urllist;
+}
+
+sub _print_urllist {
+    my ($which) = @_;
+    $CPAN::Frontend->myprint("$which urllist\n");
+    for ( @{$CPAN::Config->{urllist} || []} ) {
+      $CPAN::Frontend->myprint("  $_\n")
+    };
+}
+
+sub _can_write_to_libdirs {
+    return -w $Config{installprivlib}
+        && -w $Config{installarchlib}
+        && -w $Config{installsitelib}
+        && -w $Config{installsitearch}
+}
+
+sub _using_installbase {
+    return 1 if $ENV{PERL_MM_OPT} && $ENV{PERL_MM_OPT} =~ /install_base/i;
+    return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /install_base/i }
+        qw(makepl_arg make_install_arg mbuildpl_arg mbuild_install_arg);
+    return;
+}
+
+sub _using_sudo {
+    return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /sudo/ }
+        qw(make_install_make_command mbuild_install_build_command);
+    return;
+}
+
+sub _strip_spaces {
+    $_[0] =~ s/^\s+//;  # no leading spaces
+    $_[0] =~ s/\s+\z//; # no trailing spaces
+}
+
+sub prompt ($;$) {
+    unless (defined &_real_prompt) {
+        *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    }
+    my $ans = _real_prompt(@_);
+
+    _strip_spaces($ans);
+    $CPAN::Frontend->myprint("\n") unless $auto_config;
+
+    return $ans;
+}
+
+
+sub prompt_no_strip ($;$) {
+    unless (defined &_real_prompt) {
+        *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    }
+    return _real_prompt(@_);
+}
+
+
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Distrostatus;
+use overload '""' => "as_string",
+    fallback => 1;
+use vars qw($something_has_failed_at);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$arg) = @_;
+    my $failed = substr($arg,0,2) eq "NO";
+    if ($failed) {
+        $something_has_failed_at = $CPAN::CurrentCommandId;
+    }
+    bless {
+           TEXT => $arg,
+           FAILED => $failed,
+           COMMANDID => $CPAN::CurrentCommandId,
+           TIME => time,
+          }, $class;
+}
+sub something_has_just_failed () {
+    defined $something_has_failed_at &&
+        $something_has_failed_at == $CPAN::CurrentCommandId;
+}
+sub commandid { shift->{COMMANDID} }
+sub failed { shift->{FAILED} }
+sub text {
+    my($self,$set) = @_;
+    if (defined $set) {
+        $self->{TEXT} = $set;
+    }
+    $self->{TEXT};
+}
+sub as_string {
+    my($self) = @_;
+    $self->text;
+}
+
+
+1;
+package CPAN::DeferredCode;
+
+use strict;
+use vars qw/$VERSION/;
+
+use overload fallback => 1, map { ($_ => 'run') } qw/
+    bool "" 0+
+/;
+
+$VERSION = "5.50";
+
+sub run {
+    $_[0]->();
+}
+
+1;
+
+
+use strict;
+
+package CPAN::Kwalify;
+use vars qw($VERSION $VAR1);
+$VERSION = "5.50";
+
+use File::Spec ();
+
+my %vcache = ();
+
+my $schema_loaded = {};
+
+sub _validate {
+    my($schema_name,$data,$abs,$y) = @_;
+    my $yaml_module = CPAN->_yaml_module;
+    if (
+        $CPAN::META->has_inst($yaml_module)
+        &&
+        $CPAN::META->has_inst("Kwalify")
+       ) {
+        my $load = UNIVERSAL::can($yaml_module,"Load");
+        unless ($schema_loaded->{$schema_name}) {
+            eval {
+                my $schema_yaml = yaml($schema_name);
+                $schema_loaded->{$schema_name} = $load->($schema_yaml);
+            };
+            if ($@) {
+                # we know that YAML.pm 0.62 cannot parse the schema,
+                # so we try a fallback
+                my $content = do {
+                    my $path = __FILE__;
+                    $path =~ s/\.pm$//;
+                    $path = File::Spec->catfile($path, "$schema_name.dd");
+                    local *FH;
+                    open FH, $path or die "Could not open '$path': $!";
+                    local $/;
+                    <FH>;
+                };
+                $VAR1 = undef;
+                eval $content;
+                if (my $err = $@) {
+                    die "parsing of '$schema_name.dd' failed: $err";
+                }
+                $schema_loaded->{$schema_name} = $VAR1;
+            }
+        }
+    }
+    if (my $schema = $schema_loaded->{$schema_name}) {
+        my $mtime = (stat $abs)[9];
+        for my $k (keys %{$vcache{$abs}}) {
+            delete $vcache{$abs}{$k} unless $k eq $mtime;
+        }
+        return if $vcache{$abs}{$mtime}{$y}++;
+        eval { Kwalify::validate($schema, $data) };
+        if (my $err = $@) {
+            my $info = {}; yaml($schema_name, info => $info);
+            die "validation of distropref '$abs'[$y] against schema '$info->{path}' failed: $err";
+        }
+    }
+}
+
+sub _clear_cache {
+    %vcache = ();
+}
+
+sub yaml {
+    my($schema_name, %opt) = @_;
+    my $content = do {
+        my $path = __FILE__;
+        $path =~ s/\.pm$//;
+        $path = File::Spec->catfile($path, "$schema_name.yml");
+        if ($opt{info}) {
+            $opt{info}{path} = $path;
+        }
+        local *FH;
+        open FH, $path or die "Could not open '$path': $!";
+        local $/;
+        <FH>;
+    };
+    return $content;
+}
+
+1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
+
+package CPAN::Shell;
+use strict;
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+
+use vars qw(
+            $ADVANCED_QUERY
+            $AUTOLOAD
+            $COLOR_REGISTERED
+            $Help
+            $autoload_recursion
+            $reload
+            @ISA
+            @relo
+            $VERSION
+           );
+@relo =     (
+             "CPAN.pm",
+             "CPAN/Author.pm",
+             "CPAN/CacheMgr.pm",
+             "CPAN/Complete.pm",
+             "CPAN/Debug.pm",
+             "CPAN/DeferredCode.pm",
+             "CPAN/Distribution.pm",
+             "CPAN/Distroprefs.pm",
+             "CPAN/Distrostatus.pm",
+             "CPAN/Exception/RecursiveDependency.pm",
+             "CPAN/Exception/yaml_not_installed.pm",
+             "CPAN/FirstTime.pm",
+             "CPAN/FTP.pm",
+             "CPAN/FTP/netrc.pm",
+             "CPAN/HandleConfig.pm",
+             "CPAN/Index.pm",
+             "CPAN/InfoObj.pm",
+             "CPAN/Kwalify.pm",
+             "CPAN/LWP/UserAgent.pm",
+             "CPAN/Module.pm",
+             "CPAN/Prompt.pm",
+             "CPAN/Queue.pm",
+             "CPAN/Reporter/Config.pm",
+             "CPAN/Reporter/History.pm",
+             "CPAN/Reporter/PrereqCheck.pm",
+             "CPAN/Reporter.pm",
+             "CPAN/Shell.pm",
+             "CPAN/SQLite.pm",
+             "CPAN/Tarzip.pm",
+             "CPAN/Version.pm",
+            );
+$VERSION = "5.5007";
+# record the initial timestamp for reload.
+$reload = { map {$INC{$_} ? ($_,(stat $INC{$_})[9]) : ()} @relo };
+@CPAN::Shell::ISA = qw(CPAN::Debug);
+use Cwd qw(chdir);
+use Carp ();
+$COLOR_REGISTERED ||= 0;
+$Help = {
+         '?' => \"help",
+         '!' => "eval the rest of the line as perl",
+         a => "whois author",
+         autobundle => "write inventory into a bundle file",
+         b => "info about bundle",
+         bye => \"quit",
+         clean => "clean up a distribution's build directory",
+         # cvs_import
+         d => "info about a distribution",
+         # dump
+         exit => \"quit",
+         failed => "list all failed actions within current session",
+         fforce => "redo a command from scratch",
+         force => "redo a command",
+         get => "download a distribution",
+         h => \"help",
+         help => "overview over commands; 'help ...' explains specific commands",
+         hosts => "statistics about recently used hosts",
+         i => "info about authors/bundles/distributions/modules",
+         install => "install a distribution",
+         install_tested => "install all distributions tested OK",
+         is_tested => "list all distributions tested OK",
+         look => "open a subshell in a distribution's directory",
+         ls => "list distributions matching a fileglob",
+         m => "info about a module",
+         make => "make/build a distribution",
+         mkmyconfig => "write current config into a CPAN/MyConfig.pm file",
+         notest => "run a (usually install) command but leave out the test phase",
+         o => "'o conf ...' for config stuff; 'o debug ...' for debugging",
+         perldoc => "try to get a manpage for a module",
+         q => \"quit",
+         quit => "leave the cpan shell",
+         r => "review upgradable modules",
+         readme => "display the README of a distro with a pager",
+         recent => "show recent uploads to the CPAN",
+         # recompile
+         reload => "'reload cpan' or 'reload index'",
+         report => "test a distribution and send a test report to cpantesters",
+         reports => "info about reported tests from cpantesters",
+         # scripts
+         # smoke
+         test => "test a distribution",
+         u => "display uninstalled modules",
+         upgrade => "combine 'r' command with immediate installation",
+        };
+{
+    $autoload_recursion   ||= 0;
+
+    #-> sub CPAN::Shell::AUTOLOAD ;
+    sub AUTOLOAD { ## no critic
+        $autoload_recursion++;
+        my($l) = $AUTOLOAD;
+        my $class = shift(@_);
+        # warn "autoload[$l] class[$class]";
+        $l =~ s/.*:://;
+        if ($CPAN::Signal) {
+            warn "Refusing to autoload '$l' while signal pending";
+            $autoload_recursion--;
+            return;
+        }
+        if ($autoload_recursion > 1) {
+            my $fullcommand = join " ", map { "'$_'" } $l, @_;
+            warn "Refusing to autoload $fullcommand in recursion\n";
+            $autoload_recursion--;
+            return;
+        }
+        if ($l =~ /^w/) {
+            # XXX needs to be reconsidered
+            if ($CPAN::META->has_inst('CPAN::WAIT')) {
+                CPAN::WAIT->$l(@_);
+            } else {
+                $CPAN::Frontend->mywarn(qq{
+Commands starting with "w" require CPAN::WAIT to be installed.
+Please consider installing CPAN::WAIT to use the fulltext index.
+For this you just need to type
+    install CPAN::WAIT
+});
+            }
+        } else {
+            $CPAN::Frontend->mywarn(qq{Unknown shell command '$l'. }.
+                                    qq{Type ? for help.
+});
+        }
+        $autoload_recursion--;
+    }
+}
+
+
+#-> sub CPAN::Shell::h ;
+sub h {
+    my($class,$about) = @_;
+    if (defined $about) {
+        my $help;
+        if (exists $Help->{$about}) {
+            if (ref $Help->{$about}) { # aliases
+                $about = ${$Help->{$about}};
+            }
+            $help = $Help->{$about};
+        } else {
+            $help = "No help available";
+        }
+        $CPAN::Frontend->myprint("$about\: $help\n");
+    } else {
+        my $filler = " " x (80 - 28 - length($CPAN::VERSION));
+        $CPAN::Frontend->myprint(qq{
+Display Information $filler (ver $CPAN::VERSION)
+ command  argument          description
+ a,b,d,m  WORD or /REGEXP/  about authors, bundles, distributions, modules
+ i        WORD or /REGEXP/  about any of the above
+ ls       AUTHOR or GLOB    about files in the author's directory
+    (with WORD being a module, bundle or author name or a distribution
+    name of the form AUTHOR/DISTRIBUTION)
+
+Download, Test, Make, Install...
+ get      download                     clean    make clean
+ make     make (implies get)           look     open subshell in dist directory
+ test     make test (implies make)     readme   display these README files
+ install  make install (implies test)  perldoc  display POD documentation
+
+Upgrade installed modules
+ r        WORDs or /REGEXP/ or NONE    report updates for some/matching/all
+ upgrade  WORDs or /REGEXP/ or NONE    upgrade some/matching/all modules
+
+Pragmas
+ force  CMD    try hard to do command  fforce CMD    try harder
+ notest CMD    skip testing
+
+Other
+ h,?           display this menu       ! perl-code   eval a perl command
+ o conf [opt]  set and query options   q             quit the cpan shell
+ reload cpan   load CPAN.pm again      reload index  load newer indices
+ autobundle    Snapshot                recent        latest CPAN uploads});
+}
+}
+
+*help = \&h;
+
+#-> sub CPAN::Shell::a ;
+sub a {
+  my($self,@arg) = @_;
+  # authors are always UPPERCASE
+  for (@arg) {
+    $_ = uc $_ unless /=/;
+  }
+  $CPAN::Frontend->myprint($self->format_result('Author',@arg));
+}
+
+#-> sub CPAN::Shell::globls ;
+sub globls {
+    my($self,$s,$pragmas) = @_;
+    # ls is really very different, but we had it once as an ordinary
+    # command in the Shell (up to rev. 321) and we could not handle
+    # force well then
+    my(@accept,@preexpand);
+    if ($s =~ /[\*\?\/]/) {
+        if ($CPAN::META->has_inst("Text::Glob")) {
+            if (my($au,$pathglob) = $s =~ m|(.*?)/(.*)|) {
+                my $rau = Text::Glob::glob_to_regex(uc $au);
+                CPAN::Shell->debug("au[$au]pathglob[$pathglob]rau[$rau]")
+                      if $CPAN::DEBUG;
+                push @preexpand, map { $_->id . "/" . $pathglob }
+                    CPAN::Shell->expand_by_method('CPAN::Author',['id'],"/$rau/");
+            } else {
+                my $rau = Text::Glob::glob_to_regex(uc $s);
+                push @preexpand, map { $_->id }
+                    CPAN::Shell->expand_by_method('CPAN::Author',
+                                                  ['id'],
+                                                  "/$rau/");
+            }
+        } else {
+            $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed");
+        }
+    } else {
+        push @preexpand, uc $s;
+    }
+    for (@preexpand) {
+        unless (/^[A-Z0-9\-]+(\/|$)/i) {
+            $CPAN::Frontend->mywarn("ls command rejects argument $_: not an author\n");
+            next;
+        }
+        push @accept, $_;
+    }
+    my $silent = @accept>1;
+    my $last_alpha = "";
+    my @results;
+    for my $a (@accept) {
+        my($author,$pathglob);
+        if ($a =~ m|(.*?)/(.*)|) {
+            my $a2 = $1;
+            $pathglob = $2;
+            $author = CPAN::Shell->expand_by_method('CPAN::Author',
+                                                    ['id'],
+                                                    $a2)
+                or $CPAN::Frontend->mydie("No author found for $a2\n");
+        } else {
+            $author = CPAN::Shell->expand_by_method('CPAN::Author',
+                                                    ['id'],
+                                                    $a)
+                or $CPAN::Frontend->mydie("No author found for $a\n");
+        }
+        if ($silent) {
+            my $alpha = substr $author->id, 0, 1;
+            my $ad;
+            if ($alpha eq $last_alpha) {
+                $ad = "";
+            } else {
+                $ad = "[$alpha]";
+                $last_alpha = $alpha;
+            }
+            $CPAN::Frontend->myprint($ad);
+        }
+        for my $pragma (@$pragmas) {
+            if ($author->can($pragma)) {
+                $author->$pragma();
+            }
+        }
+        CPAN->debug("author[$author]pathglob[$pathglob]silent[$silent]") if $CPAN::DEBUG;
+        push @results, $author->ls($pathglob,$silent); # silent if
+                                                       # more than one
+                                                       # author
+        for my $pragma (@$pragmas) {
+            my $unpragma = "un$pragma";
+            if ($author->can($unpragma)) {
+                $author->$unpragma();
+            }
+        }
+    }
+    @results;
+}
+
+#-> sub CPAN::Shell::local_bundles ;
+sub local_bundles {
+    my($self,@which) = @_;
+    my($incdir,$bdir,$dh);
+    foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
+        my @bbase = "Bundle";
+        while (my $bbase = shift @bbase) {
+            $bdir = File::Spec->catdir($incdir,split /::/, $bbase);
+            CPAN->debug("bdir[$bdir]\@bbase[@bbase]") if $CPAN::DEBUG;
+            if ($dh = DirHandle->new($bdir)) { # may fail
+                my($entry);
+                for $entry ($dh->read) {
+                    next if $entry =~ /^\./;
+                    next unless $entry =~ /^\w+(\.pm)?(?!\n)\Z/;
+                    if (-d File::Spec->catdir($bdir,$entry)) {
+                        push @bbase, "$bbase\::$entry";
+                    } else {
+                        next unless $entry =~ s/\.pm(?!\n)\Z//;
+                        $CPAN::META->instance('CPAN::Bundle',"$bbase\::$entry");
+                    }
+                }
+            }
+        }
+    }
+}
+
+#-> sub CPAN::Shell::b ;
+sub b {
+    my($self,@which) = @_;
+    CPAN->debug("which[@which]") if $CPAN::DEBUG;
+    $self->local_bundles;
+    $CPAN::Frontend->myprint($self->format_result('Bundle',@which));
+}
+
+#-> sub CPAN::Shell::d ;
+sub d { $CPAN::Frontend->myprint(shift->format_result('Distribution',@_));}
+
+#-> sub CPAN::Shell::m ;
+sub m { # emacs confused here }; sub mimimimimi { # emacs in sync here
+    my $self = shift;
+    my @m = @_;
+    for (@m) {
+        if (m|(?:\w+/)*\w+\.pm$|) { # same regexp in expandany
+            s/.pm$//;
+            s|/|::|g;
+        }
+    }
+    $CPAN::Frontend->myprint($self->format_result('Module',@m));
+}
+
+#-> sub CPAN::Shell::i ;
+sub i {
+    my($self) = shift;
+    my(@args) = @_;
+    @args = '/./' unless @args;
+    my(@result);
+    for my $type (qw/Bundle Distribution Module/) {
+        push @result, $self->expand($type,@args);
+    }
+    # Authors are always uppercase.
+    push @result, $self->expand("Author", map { uc $_ } @args);
+
+    my $result = @result == 1 ?
+        $result[0]->as_string :
+            @result == 0 ?
+                "No objects found of any type for argument @args\n" :
+                    join("",
+                         (map {$_->as_glimpse} @result),
+                         scalar @result, " items found\n",
+                        );
+    $CPAN::Frontend->myprint($result);
+}
+
+#-> sub CPAN::Shell::o ;
+
+# CPAN::Shell::o and CPAN::HandleConfig::edit are closely related. 'o
+# conf' calls through to CPAN::HandleConfig::edit. 'o conf' should
+# probably have been called 'set' and 'o debug' maybe 'set debug' or
+# 'debug'; 'o conf ARGS' calls ->edit in CPAN/HandleConfig.pm
+sub o {
+    my($self,$o_type,@o_what) = @_;
+    $o_type ||= "";
+    CPAN->debug("o_type[$o_type] o_what[".join(" | ",@o_what)."]\n");
+    if ($o_type eq 'conf') {
+        my($cfilter);
+        ($cfilter) = $o_what[0] =~ m|^/(.*)/$| if @o_what;
+        if (!@o_what or $cfilter) { # print all things, "o conf"
+            $cfilter ||= "";
+            my $qrfilter = eval 'qr/$cfilter/';
+            if ($@) {
+                $CPAN::Frontend->mydie("Cannot parse commandline: $@");
+            }
+            my($k,$v);
+            my $configpm = CPAN::HandleConfig->require_myconfig_or_config;
+            $CPAN::Frontend->myprint("\$CPAN::Config options from $configpm\:\n");
+            for $k (sort keys %CPAN::HandleConfig::can) {
+                next unless $k =~ /$qrfilter/;
+                $v = $CPAN::HandleConfig::can{$k};
+                $CPAN::Frontend->myprint(sprintf "    %-18s [%s]\n", $k, $v);
+            }
+            $CPAN::Frontend->myprint("\n");
+            for $k (sort keys %CPAN::HandleConfig::keys) {
+                next unless $k =~ /$qrfilter/;
+                CPAN::HandleConfig->prettyprint($k);
+            }
+            $CPAN::Frontend->myprint("\n");
+        } else {
+            if (CPAN::HandleConfig->edit(@o_what)) {
+            } else {
+                $CPAN::Frontend->myprint(qq{Type 'o conf' to view all configuration }.
+                                         qq{items\n\n});
+            }
+        }
+    } elsif ($o_type eq 'debug') {
+        my(%valid);
+        @o_what = () if defined $o_what[0] && $o_what[0] =~ /help/i;
+        if (@o_what) {
+            while (@o_what) {
+                my($what) = shift @o_what;
+                if ($what =~ s/^-// && exists $CPAN::DEBUG{$what}) {
+                    $CPAN::DEBUG &= $CPAN::DEBUG ^ $CPAN::DEBUG{$what};
+                    next;
+                }
+                if ( exists $CPAN::DEBUG{$what} ) {
+                    $CPAN::DEBUG |= $CPAN::DEBUG{$what};
+                } elsif ($what =~ /^\d/) {
+                    $CPAN::DEBUG = $what;
+                } elsif (lc $what eq 'all') {
+                    my($max) = 0;
+                    for (values %CPAN::DEBUG) {
+                        $max += $_;
+                    }
+                    $CPAN::DEBUG = $max;
+                } else {
+                    my($known) = 0;
+                    for (keys %CPAN::DEBUG) {
+                        next unless lc($_) eq lc($what);
+                        $CPAN::DEBUG |= $CPAN::DEBUG{$_};
+                        $known = 1;
+                    }
+                    $CPAN::Frontend->myprint("unknown argument [$what]\n")
+                        unless $known;
+                }
+            }
+        } else {
+            my $raw = "Valid options for debug are ".
+                join(", ",sort(keys %CPAN::DEBUG), 'all').
+                     qq{ or a number. Completion works on the options. }.
+                     qq{Case is ignored.};
+            require Text::Wrap;
+            $CPAN::Frontend->myprint(Text::Wrap::fill("","",$raw));
+            $CPAN::Frontend->myprint("\n\n");
+        }
+        if ($CPAN::DEBUG) {
+            $CPAN::Frontend->myprint("Options set for debugging ($CPAN::DEBUG):\n");
+            my($k,$v);
+            for $k (sort {$CPAN::DEBUG{$a} <=> $CPAN::DEBUG{$b}} keys %CPAN::DEBUG) {
+                $v = $CPAN::DEBUG{$k};
+                $CPAN::Frontend->myprint(sprintf "    %-14s(%s)\n", $k, $v)
+                    if $v & $CPAN::DEBUG;
+            }
+        } else {
+            $CPAN::Frontend->myprint("Debugging turned off completely.\n");
+        }
+    } else {
+        $CPAN::Frontend->myprint(qq{
+Known options:
+  conf    set or get configuration variables
+  debug   set or get debugging options
+});
+    }
+}
+
+# CPAN::Shell::paintdots_onreload
+sub paintdots_onreload {
+    my($ref) = shift;
+    sub {
+        if ( $_[0] =~ /[Ss]ubroutine ([\w:]+) redefined/ ) {
+            my($subr) = $1;
+            ++$$ref;
+            local($|) = 1;
+            # $CPAN::Frontend->myprint(".($subr)");
+            $CPAN::Frontend->myprint(".");
+            if ($subr =~ /\bshell\b/i) {
+                # warn "debug[$_[0]]";
+
+                # It would be nice if we could detect that a
+                # subroutine has actually changed, but for now we
+                # practically always set the GOTOSHELL global
+
+                $CPAN::GOTOSHELL=1;
+            }
+            return;
+        }
+        warn @_;
+    };
+}
+
+#-> sub CPAN::Shell::hosts ;
+sub hosts {
+    my($self) = @_;
+    my $fullstats = CPAN::FTP->_ftp_statistics();
+    my $history = $fullstats->{history} || [];
+    my %S; # statistics
+    while (my $last = pop @$history) {
+        my $attempts = $last->{attempts} or next;
+        my $start;
+        if (@$attempts) {
+            $start = $attempts->[-1]{start};
+            if ($#$attempts > 0) {
+                for my $i (0..$#$attempts-1) {
+                    my $url = $attempts->[$i]{url} or next;
+                    $S{no}{$url}++;
+                }
+            }
+        } else {
+            $start = $last->{start};
+        }
+        next unless $last->{thesiteurl}; # C-C? bad filenames?
+        $S{start} = $start;
+        $S{end} ||= $last->{end};
+        my $dltime = $last->{end} - $start;
+        my $dlsize = $last->{filesize} || 0;
+        my $url = ref $last->{thesiteurl} ? $last->{thesiteurl}->text : $last->{thesiteurl};
+        my $s = $S{ok}{$url} ||= {};
+        $s->{n}++;
+        $s->{dlsize} ||= 0;
+        $s->{dlsize} += $dlsize/1024;
+        $s->{dltime} ||= 0;
+        $s->{dltime} += $dltime;
+    }
+    my $res;
+    for my $url (sort keys %{$S{ok}}) {
+        next if $S{ok}{$url}{dltime} == 0; # div by zero
+        push @{$res->{ok}}, [@{$S{ok}{$url}}{qw(n dlsize dltime)},
+                             $S{ok}{$url}{dlsize}/$S{ok}{$url}{dltime},
+                             $url,
+                            ];
+    }
+    for my $url (sort keys %{$S{no}}) {
+        push @{$res->{no}}, [$S{no}{$url},
+                             $url,
+                            ];
+    }
+    my $R = ""; # report
+    if ($S{start} && $S{end}) {
+        $R .= sprintf "Log starts: %s\n", $S{start} ? scalar(localtime $S{start}) : "unknown";
+        $R .= sprintf "Log ends  : %s\n", $S{end}   ? scalar(localtime $S{end})   : "unknown";
+    }
+    if ($res->{ok} && @{$res->{ok}}) {
+        $R .= sprintf "\nSuccessful downloads:
+   N       kB  secs      kB/s url\n";
+        my $i = 20;
+        for (sort { $b->[3] <=> $a->[3] } @{$res->{ok}}) {
+            $R .= sprintf "%4d %8d %5d %9.1f %s\n", @$_;
+            last if --$i<=0;
+        }
+    }
+    if ($res->{no} && @{$res->{no}}) {
+        $R .= sprintf "\nUnsuccessful downloads:\n";
+        my $i = 20;
+        for (sort { $b->[0] <=> $a->[0] } @{$res->{no}}) {
+            $R .= sprintf "%4d %s\n", @$_;
+            last if --$i<=0;
+        }
+    }
+    $CPAN::Frontend->myprint($R);
+}
+
+# here is where 'reload cpan' is done
+#-> sub CPAN::Shell::reload ;
+sub reload {
+    my($self,$command,@arg) = @_;
+    $command ||= "";
+    $self->debug("self[$self]command[$command]arg[@arg]") if $CPAN::DEBUG;
+    if ($command =~ /^cpan$/i) {
+        my $redef = 0;
+        chdir $CPAN::iCwd if $CPAN::iCwd; # may fail
+        my $failed;
+      MFILE: for my $f (@relo) {
+            next unless exists $INC{$f};
+            my $p = $f;
+            $p =~ s/\.pm$//;
+            $p =~ s|/|::|g;
+            $CPAN::Frontend->myprint("($p");
+            local($SIG{__WARN__}) = paintdots_onreload(\$redef);
+            $self->_reload_this($f) or $failed++;
+            my $v = eval "$p\::->VERSION";
+            $CPAN::Frontend->myprint("v$v)");
+        }
+        $CPAN::Frontend->myprint("\n$redef subroutines redefined\n");
+        if ($failed) {
+            my $errors = $failed == 1 ? "error" : "errors";
+            $CPAN::Frontend->mywarn("\n$failed $errors during reload. You better quit ".
+                                    "this session.\n");
+        }
+    } elsif ($command =~ /^index$/i) {
+      CPAN::Index->force_reload;
+    } else {
+      $CPAN::Frontend->myprint(qq{cpan     re-evals the CPAN modules
+index    re-reads the index files\n});
+    }
+}
+
+# reload means only load again what we have loaded before
+#-> sub CPAN::Shell::_reload_this ;
+sub _reload_this {
+    my($self,$f,$args) = @_;
+    CPAN->debug("f[$f]") if $CPAN::DEBUG;
+    return 1 unless $INC{$f}; # we never loaded this, so we do not
+                              # reload but say OK
+    my $pwd = CPAN::anycwd();
+    CPAN->debug("pwd[$pwd]") if $CPAN::DEBUG;
+    my($file);
+    for my $inc (@INC) {
+        $file = File::Spec->catfile($inc,split /\//, $f);
+        last if -f $file;
+        $file = "";
+    }
+    CPAN->debug("file[$file]") if $CPAN::DEBUG;
+    my @inc = @INC;
+    unless ($file && -f $file) {
+        # this thingy is not in the INC path, maybe CPAN/MyConfig.pm?
+        $file = $INC{$f};
+        unless (CPAN->has_inst("File::Basename")) {
+            @inc = File::Basename::dirname($file);
+        } else {
+            # do we ever need this?
+            @inc = substr($file,0,-length($f)-1); # bring in back to me!
+        }
+    }
+    CPAN->debug("file[$file]inc[@inc]") if $CPAN::DEBUG;
+    unless (-f $file) {
+        $CPAN::Frontend->mywarn("Found no file to reload for '$f'\n");
+        return;
+    }
+    my $mtime = (stat $file)[9];
+    $reload->{$f} ||= -1;
+    my $must_reload = $mtime != $reload->{$f};
+    $args ||= {};
+    $must_reload ||= $args->{reloforce}; # o conf defaults needs this
+    if ($must_reload) {
+        my $fh = FileHandle->new($file) or
+            $CPAN::Frontend->mydie("Could not open $file: $!");
+        my $content;
+        {
+            local($/);
+            local $^W = 1;
+            $content = <$fh>;
+        }
+        CPAN->debug(sprintf("reload file[%s] content[%s...]",$file,substr($content,0,128)))
+            if $CPAN::DEBUG;
+        my $includefile;
+        if ($includefile = $INC{$f} and -e $includefile) {
+            $f = $includefile;
+        }
+        delete $INC{$f};
+        local @INC = @inc;
+        eval "require '$f'";
+        if ($@) {
+            warn $@;
+            return;
+        }
+        $reload->{$f} = $mtime;
+    } else {
+        $CPAN::Frontend->myprint("__unchanged__");
+    }
+    return 1;
+}
+
+#-> sub CPAN::Shell::mkmyconfig ;
+sub mkmyconfig {
+    my($self) = @_;
+    if ( my $configpm = $INC{'CPAN/MyConfig.pm'} ) {
+        $CPAN::Frontend->myprint(
+            "CPAN::MyConfig already exists as $configpm.\n" .
+            "Running configuration again...\n"
+        );
+        require CPAN::FirstTime;
+        CPAN::FirstTime::init($configpm);
+    }
+    else {
+        # force some missing values to be filled in with defaults
+        delete $CPAN::Config->{$_}
+            for qw/build_dir cpan_home keep_source_where histfile/;
+        CPAN::HandleConfig->load( make_myconfig => 1 );
+    }
+}
+
+#-> sub CPAN::Shell::_binary_extensions ;
+sub _binary_extensions {
+    my($self) = shift @_;
+    my(@result,$module,%seen,%need,$headerdone);
+    for $module ($self->expand('Module','/./')) {
+        my $file  = $module->cpan_file;
+        next if $file eq "N/A";
+        next if $file =~ /^Contact Author/;
+        my $dist = $CPAN::META->instance('CPAN::Distribution',$file);
+        next if $dist->isa_perl;
+        next unless $module->xs_file;
+        local($|) = 1;
+        $CPAN::Frontend->myprint(".");
+        push @result, $module;
+    }
+#    print join " | ", @result;
+    $CPAN::Frontend->myprint("\n");
+    return @result;
+}
+
+#-> sub CPAN::Shell::recompile ;
+sub recompile {
+    my($self) = shift @_;
+    my($module,@module,$cpan_file,%dist);
+    @module = $self->_binary_extensions();
+    for $module (@module) { # we force now and compile later, so we
+                            # don't do it twice
+        $cpan_file = $module->cpan_file;
+        my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+        $pack->force;
+        $dist{$cpan_file}++;
+    }
+    for $cpan_file (sort keys %dist) {
+        $CPAN::Frontend->myprint("  CPAN: Recompiling $cpan_file\n\n");
+        my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+        $pack->install;
+        $CPAN::Signal = 0; # it's tempting to reset Signal, so we can
+                           # stop a package from recompiling,
+                           # e.g. IO-1.12 when we have perl5.003_10
+    }
+}
+
+#-> sub CPAN::Shell::scripts ;
+sub scripts {
+    my($self, $arg) = @_;
+    $CPAN::Frontend->mywarn(">>>> experimental command, currently unsupported <<<<\n\n");
+
+    for my $req (qw( HTML::LinkExtor Sort::Versions List::Util )) {
+        unless ($CPAN::META->has_inst($req)) {
+            $CPAN::Frontend->mywarn("  $req not available\n");
+        }
+    }
+    my $p = HTML::LinkExtor->new();
+    my $indexfile = "/home/ftp/pub/PAUSE/scripts/new/index.html";
+    unless (-f $indexfile) {
+        $CPAN::Frontend->mydie("found no indexfile[$indexfile]\n");
+    }
+    $p->parse_file($indexfile);
+    my @hrefs;
+    my $qrarg;
+    if ($arg =~ s|^/(.+)/$|$1|) {
+        $qrarg = eval 'qr/$arg/'; # hide construct from 5.004
+    }
+    for my $l ($p->links) {
+        my $tag = shift @$l;
+        next unless $tag eq "a";
+        my %att = @$l;
+        my $href = $att{href};
+        next unless $href =~ s|^\.\./authors/id/./../||;
+        if ($arg) {
+            if ($qrarg) {
+                if ($href =~ $qrarg) {
+                    push @hrefs, $href;
+                }
+            } else {
+                if ($href =~ /\Q$arg\E/) {
+                    push @hrefs, $href;
+                }
+            }
+        } else {
+            push @hrefs, $href;
+        }
+    }
+    # now filter for the latest version if there is more than one of a name
+    my %stems;
+    for (sort @hrefs) {
+        my $href = $_;
+        s/-v?\d.*//;
+        my $stem = $_;
+        $stems{$stem} ||= [];
+        push @{$stems{$stem}}, $href;
+    }
+    for (sort keys %stems) {
+        my $highest;
+        if (@{$stems{$_}} > 1) {
+            $highest = List::Util::reduce {
+                Sort::Versions::versioncmp($a,$b) > 0 ? $a : $b
+              } @{$stems{$_}};
+        } else {
+            $highest = $stems{$_}[0];
+        }
+        $CPAN::Frontend->myprint("$highest\n");
+    }
+}
+
+sub _guess_manpage {
+    my($self,$d,$contains,$dist) = @_;
+    $dist =~ s/-/::/g;
+    my $module;
+    if (exists $contains->{$dist}) {
+        $module = $dist;
+    } elsif (1 == keys %$contains) {
+        ($module) = keys %$contains;
+    }
+    my $manpage;
+    if ($module) {
+        my $m = $self->expand("Module",$module);
+        $m->as_string; # called for side-effects, shame
+        $manpage = $m->{MANPAGE};
+    } else {
+        $manpage = "unknown";
+    }
+    return $manpage;
+}
+
+#-> sub CPAN::Shell::_specfile ;
+sub _specfile {
+    die "CPAN::Shell::_specfile() has been moved to CPAN::Plugin::Specfile::post_test()";
+}
+
+#-> sub CPAN::Shell::report ;
+sub report {
+    my($self,@args) = @_;
+    unless ($CPAN::META->has_inst("CPAN::Reporter")) {
+        $CPAN::Frontend->mydie("CPAN::Reporter not installed; cannot continue");
+    }
+    local $CPAN::Config->{test_report} = 1;
+    $self->force("test",@args); # force is there so that the test be
+                                # re-run (as documented)
+}
+
+# compare with is_tested
+#-> sub CPAN::Shell::install_tested
+sub install_tested {
+    my($self,@some) = @_;
+    $CPAN::Frontend->mywarn("install_tested() must not be called with arguments.\n"),
+        return if @some;
+    CPAN::Index->reload;
+
+    for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) {
+        my $yaml = "$b.yml";
+        unless (-f $yaml) {
+            $CPAN::Frontend->mywarn("No YAML file for $b available, skipping\n");
+            next;
+        }
+        my $yaml_content = CPAN->_yaml_loadfile($yaml);
+        my $id = $yaml_content->[0]{distribution}{ID};
+        unless ($id) {
+            $CPAN::Frontend->mywarn("No ID found in '$yaml', skipping\n");
+            next;
+        }
+        my $do = CPAN::Shell->expandany($id);
+        unless ($do) {
+            $CPAN::Frontend->mywarn("Could not expand ID '$id', skipping\n");
+            next;
+        }
+        unless ($do->{build_dir}) {
+            $CPAN::Frontend->mywarn("Distro '$id' has no build_dir, skipping\n");
+            next;
+        }
+        unless ($do->{build_dir} eq $b) {
+            $CPAN::Frontend->mywarn("Distro '$id' has build_dir '$do->{build_dir}' but expected '$b', skipping\n");
+            next;
+        }
+        push @some, $do;
+    }
+
+    $CPAN::Frontend->mywarn("No tested distributions found.\n"),
+        return unless @some;
+
+    @some = grep { $_->{make_test} && ! $_->{make_test}->failed } @some;
+    $CPAN::Frontend->mywarn("No distributions tested with this build of perl found.\n"),
+        return unless @some;
+
+    # @some = grep { not $_->uptodate } @some;
+    # $CPAN::Frontend->mywarn("No non-uptodate distributions tested with this build of perl found.\n"),
+    #     return unless @some;
+
+    CPAN->debug("some[@some]");
+    for my $d (@some) {
+        my $id = $d->can("pretty_id") ? $d->pretty_id : $d->id;
+        $CPAN::Frontend->myprint("install_tested: Running for $id\n");
+        $CPAN::Frontend->mysleep(1);
+        $self->install($d);
+    }
+}
+
+#-> sub CPAN::Shell::upgrade ;
+sub upgrade {
+    my($self,@args) = @_;
+    $self->install($self->r(@args));
+}
+
+#-> sub CPAN::Shell::_u_r_common ;
+sub _u_r_common {
+    my($self) = shift @_;
+    my($what) = shift @_;
+    CPAN->debug("self[$self] what[$what] args[@_]") if $CPAN::DEBUG;
+    Carp::croak "Usage: \$obj->_u_r_common(a|r|u)" unless
+          $what && $what =~ /^[aru]$/;
+    my(@args) = @_;
+    @args = '/./' unless @args;
+    my(@result,$module,%seen,%need,$headerdone,
+       $version_undefs,$version_zeroes,
+       @version_undefs,@version_zeroes);
+    $version_undefs = $version_zeroes = 0;
+    my $sprintf = "%s%-25s%s %9s %9s  %s\n";
+    my @expand = $self->expand('Module',@args);
+    if ($CPAN::DEBUG) { # Looks like noise to me, was very useful for debugging
+             # for metadata cache
+        my $expand = scalar @expand;
+        $CPAN::Frontend->myprint(sprintf "%d matches in the database, time[%d]\n", $expand, time);
+    }
+    my @sexpand;
+    if ($] < 5.008) {
+        # hard to believe that the more complex sorting can lead to
+        # stack curruptions on older perl
+        @sexpand = sort {$a->id cmp $b->id} @expand;
+    } else {
+        @sexpand = map {
+            $_->[1]
+        } sort {
+            $b->[0] <=> $a->[0]
+            ||
+            $a->[1]{ID} cmp $b->[1]{ID},
+        } map {
+            [$_->_is_representative_module,
+             $_
+            ]
+        } @expand;
+    }
+    if ($CPAN::DEBUG) {
+        $CPAN::Frontend->myprint(sprintf "sorted at time[%d]\n", time);
+        sleep 1;
+    }
+  MODULE: for $module (@sexpand) {
+        my $file  = $module->cpan_file;
+        next MODULE unless defined $file; # ??
+        $file =~ s!^./../!!;
+        my($latest) = $module->cpan_version;
+        my($inst_file) = $module->inst_file;
+        CPAN->debug("file[$file]latest[$latest]") if $CPAN::DEBUG;
+        my($have);
+        return if $CPAN::Signal;
+        my($next_MODULE);
+        eval { # version.pm involved!
+            if ($inst_file) {
+                if ($what eq "a") {
+                    $have = $module->inst_version;
+                } elsif ($what eq "r") {
+                    $have = $module->inst_version;
+                    local($^W) = 0;
+                    if ($have eq "undef") {
+                        $version_undefs++;
+                        push @version_undefs, $module->as_glimpse;
+                    } elsif (CPAN::Version->vcmp($have,0)==0) {
+                        $version_zeroes++;
+                        push @version_zeroes, $module->as_glimpse;
+                    }
+                    ++$next_MODULE unless CPAN::Version->vgt($latest, $have);
+                    # to be pedantic we should probably say:
+                    #    && !($have eq "undef" && $latest ne "undef" && $latest gt "");
+                    # to catch the case where CPAN has a version 0 and we have a version undef
+                } elsif ($what eq "u") {
+                    ++$next_MODULE;
+                }
+            } else {
+                if ($what eq "a") {
+                    ++$next_MODULE;
+                } elsif ($what eq "r") {
+                    ++$next_MODULE;
+                } elsif ($what eq "u") {
+                    $have = "-";
+                }
+            }
+        };
+        next MODULE if $next_MODULE;
+        if ($@) {
+            $CPAN::Frontend->mywarn
+                (sprintf("Error while comparing cpan/installed versions of '%s':
+INST_FILE: %s
+INST_VERSION: %s %s
+CPAN_VERSION: %s %s
+",
+                         $module->id,
+                         $inst_file || "",
+                         (defined $have ? $have : "[UNDEFINED]"),
+                         (ref $have ? ref $have : ""),
+                         $latest,
+                         (ref $latest ? ref $latest : ""),
+                        ));
+            next MODULE;
+        }
+        return if $CPAN::Signal; # this is sometimes lengthy
+        $seen{$file} ||= 0;
+        if ($what eq "a") {
+            push @result, sprintf "%s %s\n", $module->id, $have;
+        } elsif ($what eq "r") {
+            push @result, $module->id;
+            next MODULE if $seen{$file}++;
+        } elsif ($what eq "u") {
+            push @result, $module->id;
+            next MODULE if $seen{$file}++;
+            next MODULE if $file =~ /^Contact/;
+        }
+        unless ($headerdone++) {
+            $CPAN::Frontend->myprint("\n");
+            $CPAN::Frontend->myprint(sprintf(
+                                             $sprintf,
+                                             "",
+                                             "Package namespace",
+                                             "",
+                                             "installed",
+                                             "latest",
+                                             "in CPAN file"
+                                            ));
+        }
+        my $color_on = "";
+        my $color_off = "";
+        if (
+            $COLOR_REGISTERED
+            &&
+            $CPAN::META->has_inst("Term::ANSIColor")
+            &&
+            $module->description
+           ) {
+            $color_on = Term::ANSIColor::color("green");
+            $color_off = Term::ANSIColor::color("reset");
+        }
+        $CPAN::Frontend->myprint(sprintf $sprintf,
+                                 $color_on,
+                                 $module->id,
+                                 $color_off,
+                                 $have,
+                                 $latest,
+                                 $file);
+        $need{$module->id}++;
+    }
+    unless (%need) {
+        if (!@expand || $what eq "u") {
+            $CPAN::Frontend->myprint("No modules found for @args\n");
+        } elsif ($what eq "r") {
+            $CPAN::Frontend->myprint("All modules are up to date for @args\n");
+        }
+    }
+    if ($what eq "r") {
+        if ($version_zeroes) {
+            my $s_has = $version_zeroes > 1 ? "s have" : " has";
+            $CPAN::Frontend->myprint(qq{$version_zeroes installed module$s_has }.
+                                     qq{a version number of 0\n});
+            if ($CPAN::Config->{show_zero_versions}) {
+                local $" = "\t";
+                $CPAN::Frontend->myprint(qq{  they are\n\t@version_zeroes\n});
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 0' }.
+                                         qq{to hide them)\n});
+            } else {
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 1' }.
+                                         qq{to show them)\n});
+            }
+        }
+        if ($version_undefs) {
+            my $s_has = $version_undefs > 1 ? "s have" : " has";
+            $CPAN::Frontend->myprint(qq{$version_undefs installed module$s_has no }.
+                                     qq{parsable version number\n});
+            if ($CPAN::Config->{show_unparsable_versions}) {
+                local $" = "\t";
+                $CPAN::Frontend->myprint(qq{  they are\n\t@version_undefs\n});
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 0' }.
+                                         qq{to hide them)\n});
+            } else {
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 1' }.
+                                         qq{to show them)\n});
+            }
+        }
+    }
+    @result;
+}
+
+#-> sub CPAN::Shell::r ;
+sub r {
+    shift->_u_r_common("r",@_);
+}
+
+#-> sub CPAN::Shell::u ;
+sub u {
+    shift->_u_r_common("u",@_);
+}
+
+#-> sub CPAN::Shell::failed ;
+sub failed {
+    my($self,$only_id,$silent) = @_;
+    my @failed = $self->find_failed($only_id);
+    my $scope;
+    if ($only_id) {
+        $scope = "this command";
+    } elsif ($CPAN::Index::HAVE_REANIMATED) {
+        $scope = "this or a previous session";
+        # it might be nice to have a section for previous session and
+        # a second for this
+    } else {
+        $scope = "this session";
+    }
+    if (@failed) {
+        my $print;
+        my $debug = 0;
+        if ($debug) {
+            $print = join "",
+                map { sprintf "%5d %-45s: %s %s\n", @$_ }
+                    sort { $a->[0] <=> $b->[0] } @failed;
+        } else {
+            $print = join "",
+                map { sprintf " %-45s: %s %s\n", @$_[1..3] }
+                    sort {
+                        $a->[0] <=> $b->[0]
+                            ||
+                                $a->[4] <=> $b->[4]
+                       } @failed;
+        }
+        $CPAN::Frontend->myprint("Failed during $scope:\n$print");
+    } elsif (!$only_id || !$silent) {
+        $CPAN::Frontend->myprint("Nothing failed in $scope\n");
+    }
+}
+
+sub find_failed {
+    my($self,$only_id) = @_;
+    my @failed;
+  DIST: for my $d (sort { $a->id cmp $b->id } $CPAN::META->all_objects("CPAN::Distribution")) {
+        my $failed = "";
+      NAY: for my $nosayer ( # order matters!
+                            "unwrapped",
+                            "writemakefile",
+                            "signature_verify",
+                            "make",
+                            "make_test",
+                            "install",
+                            "make_clean",
+                           ) {
+            next unless exists $d->{$nosayer};
+            next unless defined $d->{$nosayer};
+            next unless (
+                         UNIVERSAL::can($d->{$nosayer},"failed") ?
+                         $d->{$nosayer}->failed :
+                         $d->{$nosayer} =~ /^NO/
+                        );
+            next NAY if $only_id && $only_id != (
+                                                 UNIVERSAL::can($d->{$nosayer},"commandid")
+                                                 ?
+                                                 $d->{$nosayer}->commandid
+                                                 :
+                                                 $CPAN::CurrentCommandId
+                                                );
+            $failed = $nosayer;
+            last;
+        }
+        next DIST unless $failed;
+        my $id = $d->id;
+        $id =~ s|^./../||;
+        ### XXX need to flag optional modules as '(optional)' if they are
+        # from recommends/suggests -- i.e. *show* failure, but make it clear
+        # it was failure of optional module -- xdg, 2012-04-01
+        $id = "(optional) $id" if ! $d->{mandatory};
+        #$print .= sprintf(
+        #                  "  %-45s: %s %s\n",
+        push @failed,
+            (
+             UNIVERSAL::can($d->{$failed},"failed") ?
+             [
+              $d->{$failed}->commandid,
+              $id,
+              $failed,
+              $d->{$failed}->text,
+              $d->{$failed}{TIME}||0,
+              !! $d->{mandatory},
+             ] :
+             [
+              1,
+              $id,
+              $failed,
+              $d->{$failed},
+              0,
+              !! $d->{mandatory},
+             ]
+            );
+    }
+    return @failed;
+}
+
+sub mandatory_dist_failed {
+    my ($self) = @_;
+    return grep { $_->[5] } $self->find_failed($CPAN::CurrentCommandID);
+}
+
+# XXX intentionally undocumented because completely bogus, unportable,
+# useless, etc.
+
+#-> sub CPAN::Shell::status ;
+sub status {
+    my($self) = @_;
+    require Devel::Size;
+    my $ps = FileHandle->new;
+    open $ps, "/proc/$$/status";
+    my $vm = 0;
+    while (<$ps>) {
+        next unless /VmSize:\s+(\d+)/;
+        $vm = $1;
+        last;
+    }
+    $CPAN::Frontend->mywarn(sprintf(
+                                    "%-27s %6d\n%-27s %6d\n",
+                                    "vm",
+                                    $vm,
+                                    "CPAN::META",
+                                    Devel::Size::total_size($CPAN::META)/1024,
+                                   ));
+    for my $k (sort keys %$CPAN::META) {
+        next unless substr($k,0,4) eq "read";
+        warn sprintf " %-26s %6d\n", $k, Devel::Size::total_size($CPAN::META->{$k})/1024;
+        for my $k2 (sort keys %{$CPAN::META->{$k}}) {
+            warn sprintf "  %-25s %6d (keys: %6d)\n",
+                $k2,
+                    Devel::Size::total_size($CPAN::META->{$k}{$k2})/1024,
+                          scalar keys %{$CPAN::META->{$k}{$k2}};
+        }
+    }
+}
+
+# compare with install_tested
+#-> sub CPAN::Shell::is_tested
+sub is_tested {
+    my($self) = @_;
+    CPAN::Index->reload;
+    for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) {
+        my $time;
+        if ($CPAN::META->{is_tested}{$b}) {
+            $time = scalar(localtime $CPAN::META->{is_tested}{$b});
+        } else {
+            $time = scalar localtime;
+            $time =~ s/\S/?/g;
+        }
+        $CPAN::Frontend->myprint(sprintf "%s %s\n", $time, $b);
+    }
+}
+
+#-> sub CPAN::Shell::autobundle ;
+sub autobundle {
+    my($self) = shift;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    my(@bundle) = $self->_u_r_common("a",@_);
+    my($todir) = File::Spec->catdir($CPAN::Config->{'cpan_home'},"Bundle");
+    File::Path::mkpath($todir);
+    unless (-d $todir) {
+        $CPAN::Frontend->myprint("Couldn't mkdir $todir for some reason\n");
+        return;
+    }
+    my($y,$m,$d) =  (localtime)[5,4,3];
+    $y+=1900;
+    $m++;
+    my($c) = 0;
+    my($me) = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, $c;
+    my($to) = File::Spec->catfile($todir,"$me.pm");
+    while (-f $to) {
+        $me = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, ++$c;
+        $to = File::Spec->catfile($todir,"$me.pm");
+    }
+    my($fh) = FileHandle->new(">$to") or Carp::croak "Can't open >$to: $!";
+    $fh->print(
+               "package Bundle::$me;\n\n",
+               "\$","VERSION = '0.01';\n\n", # hide from perl-reversion
+               "1;\n\n",
+               "__END__\n\n",
+               "=head1 NAME\n\n",
+               "Bundle::$me - Snapshot of installation on ",
+               $Config::Config{'myhostname'},
+               " on ",
+               scalar(localtime),
+               "\n\n=head1 SYNOPSIS\n\n",
+               "perl -MCPAN -e 'install Bundle::$me'\n\n",
+               "=head1 CONTENTS\n\n",
+               join("\n", @bundle),
+               "\n\n=head1 CONFIGURATION\n\n",
+               Config->myconfig,
+               "\n\n=head1 AUTHOR\n\n",
+               "This Bundle has been generated automatically ",
+               "by the autobundle routine in CPAN.pm.\n",
+              );
+    $fh->close;
+    $CPAN::Frontend->myprint("\nWrote bundle file
+    $to\n\n");
+    return $to;
+}
+
+#-> sub CPAN::Shell::expandany ;
+sub expandany {
+    my($self,$s) = @_;
+    CPAN->debug("s[$s]") if $CPAN::DEBUG;
+    my $module_as_path = "";
+    if ($s =~ m|(?:\w+/)*\w+\.pm$|) { # same regexp in sub m
+        $module_as_path = $s;
+        $module_as_path =~ s/.pm$//;
+        $module_as_path =~ s|/|::|g;
+    }
+    if ($module_as_path) {
+        if ($module_as_path =~ m|^Bundle::|) {
+            $self->local_bundles;
+            return $self->expand('Bundle',$module_as_path);
+        } else {
+            return $self->expand('Module',$module_as_path)
+                if $CPAN::META->exists('CPAN::Module',$module_as_path);
+        }
+    } elsif ($s =~ m|/| or substr($s,-1,1) eq ".") { # looks like a file or a directory
+        $s = CPAN::Distribution->normalize($s);
+        return $CPAN::META->instance('CPAN::Distribution',$s);
+        # Distributions spring into existence, not expand
+    } elsif ($s =~ m|^Bundle::|) {
+        $self->local_bundles; # scanning so late for bundles seems
+                              # both attractive and crumpy: always
+                              # current state but easy to forget
+                              # somewhere
+        return $self->expand('Bundle',$s);
+    } else {
+        return $self->expand('Module',$s)
+            if $CPAN::META->exists('CPAN::Module',$s);
+    }
+    return;
+}
+
+#-> sub CPAN::Shell::expand ;
+sub expand {
+    my $self = shift;
+    my($type,@args) = @_;
+    CPAN->debug("type[$type]args[@args]") if $CPAN::DEBUG;
+    my $class = "CPAN::$type";
+    my $methods = ['id'];
+    for my $meth (qw(name)) {
+        next unless $class->can($meth);
+        push @$methods, $meth;
+    }
+    $self->expand_by_method($class,$methods,@args);
+}
+
+#-> sub CPAN::Shell::expand_by_method ;
+sub expand_by_method {
+    my $self = shift;
+    my($class,$methods,@args) = @_;
+    my($arg,@m);
+    for $arg (@args) {
+        my($regex,$command);
+        if ($arg =~ m|^/(.*)/$|) {
+            $regex = $1;
+# FIXME:  there seem to be some ='s in the author data, which trigger
+#         a failure here.  This needs to be contemplated.
+#            } elsif ($arg =~ m/=/) {
+#                $command = 1;
+        }
+        my $obj;
+        CPAN->debug(sprintf "class[%s]regex[%s]command[%s]",
+                    $class,
+                    defined $regex ? $regex : "UNDEFINED",
+                    defined $command ? $command : "UNDEFINED",
+                   ) if $CPAN::DEBUG;
+        if (defined $regex) {
+            if (CPAN::_sqlite_running()) {
+                CPAN::Index->reload;
+                $CPAN::SQLite->search($class, $regex);
+            }
+            for $obj (
+                      $CPAN::META->all_objects($class)
+                     ) {
+                unless ($obj && UNIVERSAL::can($obj,"id") && $obj->id) {
+                    # BUG, we got an empty object somewhere
+                    require Data::Dumper;
+                    CPAN->debug(sprintf(
+                                        "Bug in CPAN: Empty id on obj[%s][%s]",
+                                        $obj,
+                                        Data::Dumper::Dumper($obj)
+                                       )) if $CPAN::DEBUG;
+                    next;
+                }
+                for my $method (@$methods) {
+                    my $match = eval {$obj->$method() =~ /$regex/i};
+                    if ($@) {
+                        my($err) = $@ =~ /^(.+) at .+? line \d+\.$/;
+                        $err ||= $@; # if we were too restrictive above
+                        $CPAN::Frontend->mydie("$err\n");
+                    } elsif ($match) {
+                        push @m, $obj;
+                        last;
+                    }
+                }
+            }
+        } elsif ($command) {
+            die "equal sign in command disabled (immature interface), ".
+                "you can set
+ ! \$CPAN::Shell::ADVANCED_QUERY=1
+to enable it. But please note, this is HIGHLY EXPERIMENTAL code
+that may go away anytime.\n"
+                    unless $ADVANCED_QUERY;
+            my($method,$criterion) = $arg =~ /(.+?)=(.+)/;
+            my($matchcrit) = $criterion =~ m/^~(.+)/;
+            for my $self (
+                          sort
+                          {$a->id cmp $b->id}
+                          $CPAN::META->all_objects($class)
+                         ) {
+                my $lhs = $self->$method() or next; # () for 5.00503
+                if ($matchcrit) {
+                    push @m, $self if $lhs =~ m/$matchcrit/;
+                } else {
+                    push @m, $self if $lhs eq $criterion;
+                }
+            }
+        } else {
+            my($xarg) = $arg;
+            if ( $class eq 'CPAN::Bundle' ) {
+                $xarg =~ s/^(Bundle::)?(.*)/Bundle::$2/;
+            } elsif ($class eq "CPAN::Distribution") {
+                $xarg = CPAN::Distribution->normalize($arg);
+            } else {
+                $xarg =~ s/:+/::/g;
+            }
+            if ($CPAN::META->exists($class,$xarg)) {
+                $obj = $CPAN::META->instance($class,$xarg);
+            } elsif ($CPAN::META->exists($class,$arg)) {
+                $obj = $CPAN::META->instance($class,$arg);
+            } else {
+                next;
+            }
+            push @m, $obj;
+        }
+    }
+    @m = sort {$a->id cmp $b->id} @m;
+    if ( $CPAN::DEBUG ) {
+        my $wantarray = wantarray;
+        my $join_m = join ",", map {$_->id} @m;
+        # $self->debug("wantarray[$wantarray]join_m[$join_m]");
+        my $count = scalar @m;
+        $self->debug("class[$class]wantarray[$wantarray]count m[$count]");
+    }
+    return wantarray ? @m : $m[0];
+}
+
+#-> sub CPAN::Shell::format_result ;
+sub format_result {
+    my($self) = shift;
+    my($type,@args) = @_;
+    @args = '/./' unless @args;
+    my(@result) = $self->expand($type,@args);
+    my $result = @result == 1 ?
+        $result[0]->as_string :
+            @result == 0 ?
+                "No objects of type $type found for argument @args\n" :
+                    join("",
+                         (map {$_->as_glimpse} @result),
+                         scalar @result, " items found\n",
+                        );
+    $result;
+}
+
+#-> sub CPAN::Shell::report_fh ;
+{
+    my $installation_report_fh;
+    my $previously_noticed = 0;
+
+    sub report_fh {
+        return $installation_report_fh if $installation_report_fh;
+        if ($CPAN::META->has_usable("File::Temp")) {
+            $installation_report_fh
+                = File::Temp->new(
+                                  dir      => File::Spec->tmpdir,
+                                  template => 'cpan_install_XXXX',
+                                  suffix   => '.txt',
+                                  unlink   => 0,
+                                 );
+        }
+        unless ( $installation_report_fh ) {
+            warn("Couldn't open installation report file; " .
+                 "no report file will be generated."
+                ) unless $previously_noticed++;
+        }
+    }
+}
+
+
+# The only reason for this method is currently to have a reliable
+# debugging utility that reveals which output is going through which
+# channel. No, I don't like the colors ;-)
+
+# to turn colordebugging on, write
+# cpan> o conf colorize_output 1
+
+#-> sub CPAN::Shell::colorize_output ;
+{
+    my $print_ornamented_have_warned = 0;
+    sub colorize_output {
+        my $colorize_output = $CPAN::Config->{colorize_output};
+        if ($colorize_output && $^O eq 'MSWin32' && !$CPAN::META->has_inst("Win32::Console::ANSI")) {
+            unless ($print_ornamented_have_warned++) {
+                # no myprint/mywarn within myprint/mywarn!
+                warn "Colorize_output is set to true but Win32::Console::ANSI is not
+installed. To activate colorized output, please install Win32::Console::ANSI.\n\n";
+            }
+            $colorize_output = 0;
+        }
+        if ($colorize_output && !$CPAN::META->has_inst("Term::ANSIColor")) {
+            unless ($print_ornamented_have_warned++) {
+                # no myprint/mywarn within myprint/mywarn!
+                warn "Colorize_output is set to true but Term::ANSIColor is not
+installed. To activate colorized output, please install Term::ANSIColor.\n\n";
+            }
+            $colorize_output = 0;
+        }
+        return $colorize_output;
+    }
+}
+
+
+#-> sub CPAN::Shell::print_ornamented ;
+sub print_ornamented {
+    my($self,$what,$ornament) = @_;
+    return unless defined $what;
+
+    local $| = 1; # Flush immediately
+    if ( $CPAN::Be_Silent ) {
+        # WARNING: variable Be_Silent is poisoned and must be eliminated.
+        print {report_fh()} $what;
+        return;
+    }
+    my $swhat = "$what"; # stringify if it is an object
+    if ($CPAN::Config->{term_is_latin}) {
+        # note: deprecated, need to switch to $LANG and $LC_*
+        # courtesy jhi:
+        $swhat
+            =~ s{([\xC0-\xDF])([\x80-\xBF])}{chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; #};
+    }
+    if ($self->colorize_output) {
+        if ( $CPAN::DEBUG && $swhat =~ /^Debug\(/ ) {
+            # if you want to have this configurable, please file a bug report
+            $ornament = $CPAN::Config->{colorize_debug} || "black on_cyan";
+        }
+        my $color_on = eval { Term::ANSIColor::color($ornament) } || "";
+        if ($@) {
+            print "Term::ANSIColor rejects color[$ornament]: $@\n
+Please choose a different color (Hint: try 'o conf init /color/')\n";
+        }
+        # GGOLDBACH/Test-GreaterVersion-0.008 broke without this
+        # $trailer construct. We want the newline be the last thing if
+        # there is a newline at the end ensuring that the next line is
+        # empty for other players
+        my $trailer = "";
+        $trailer = $1 if $swhat =~ s/([\r\n]+)\z//;
+        print $color_on,
+            $swhat,
+                Term::ANSIColor::color("reset"),
+                      $trailer;
+    } else {
+        print $swhat;
+    }
+}
+
+#-> sub CPAN::Shell::myprint ;
+
+# where is myprint/mywarn/Frontend/etc. documented? Where to use what?
+# I think, we send everything to STDOUT and use print for normal/good
+# news and warn for news that need more attention. Yes, this is our
+# working contract for now.
+sub myprint {
+    my($self,$what) = @_;
+    $self->print_ornamented($what,
+                            $CPAN::Config->{colorize_print}||'bold blue on_white',
+                           );
+}
+
+my %already_printed;
+#-> sub CPAN::Shell::mywarnonce ;
+sub myprintonce {
+    my($self,$what) = @_;
+    $self->myprint($what) unless $already_printed{$what}++;
+}
+
+sub optprint {
+    my($self,$category,$what) = @_;
+    my $vname = $category . "_verbosity";
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    if (!$CPAN::Config->{$vname}
+        || $CPAN::Config->{$vname} =~ /^v/
+       ) {
+        $CPAN::Frontend->myprint($what);
+    }
+}
+
+#-> sub CPAN::Shell::myexit ;
+sub myexit {
+    my($self,$what) = @_;
+    $self->myprint($what);
+    exit;
+}
+
+#-> sub CPAN::Shell::mywarn ;
+sub mywarn {
+    my($self,$what) = @_;
+    $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||'bold red on_white');
+}
+
+my %already_warned;
+#-> sub CPAN::Shell::mywarnonce ;
+sub mywarnonce {
+    my($self,$what) = @_;
+    $self->mywarn($what) unless $already_warned{$what}++;
+}
+
+# only to be used for shell commands
+#-> sub CPAN::Shell::mydie ;
+sub mydie {
+    my($self,$what) = @_;
+    $self->mywarn($what);
+
+    # If it is the shell, we want the following die to be silent,
+    # but if it is not the shell, we would need a 'die $what'. We need
+    # to take care that only shell commands use mydie. Is this
+    # possible?
+
+    die "\n";
+}
+
+# sub CPAN::Shell::colorable_makemaker_prompt ;
+sub colorable_makemaker_prompt {
+    my($foo,$bar) = @_;
+    if (CPAN::Shell->colorize_output) {
+        my $ornament = $CPAN::Config->{colorize_print}||'bold blue on_white';
+        my $color_on = eval { Term::ANSIColor::color($ornament); } || "";
+        print $color_on;
+    }
+    my $ans = ExtUtils::MakeMaker::prompt($foo,$bar);
+    if (CPAN::Shell->colorize_output) {
+        print Term::ANSIColor::color('reset');
+    }
+    return $ans;
+}
+
+# use this only for unrecoverable errors!
+#-> sub CPAN::Shell::unrecoverable_error ;
+sub unrecoverable_error {
+    my($self,$what) = @_;
+    my @lines = split /\n/, $what;
+    my $longest = 0;
+    for my $l (@lines) {
+        $longest = length $l if length $l > $longest;
+    }
+    $longest = 62 if $longest > 62;
+    for my $l (@lines) {
+        if ($l =~ /^\s*$/) {
+            $l = "\n";
+            next;
+        }
+        $l = "==> $l";
+        if (length $l < 66) {
+            $l = pack "A66 A*", $l, "<==";
+        }
+        $l .= "\n";
+    }
+    unshift @lines, "\n";
+    $self->mydie(join "", @lines);
+}
+
+#-> sub CPAN::Shell::mysleep ;
+sub mysleep {
+    return if $ENV{AUTOMATED_TESTING} || ! -t STDOUT;
+    my($self, $sleep) = @_;
+    if (CPAN->has_inst("Time::HiRes")) {
+        Time::HiRes::sleep($sleep);
+    } else {
+        sleep($sleep < 1 ? 1 : int($sleep + 0.5));
+    }
+}
+
+#-> sub CPAN::Shell::setup_output ;
+sub setup_output {
+    return if -t STDOUT;
+    my $odef = select STDERR;
+    $| = 1;
+    select STDOUT;
+    $| = 1;
+    select $odef;
+}
+
+#-> sub CPAN::Shell::rematein ;
+# RE-adme||MA-ke||TE-st||IN-stall : nearly everything runs through here
+sub rematein {
+    my $self = shift;
+    # this variable was global and disturbed programmers, so localize:
+    local $CPAN::Distrostatus::something_has_failed_at;
+    my($meth,@some) = @_;
+    my @pragma;
+    while($meth =~ /^(ff?orce|notest)$/) {
+        push @pragma, $meth;
+        $meth = shift @some or
+            $CPAN::Frontend->mydie("Pragma $pragma[-1] used without method: ".
+                                   "cannot continue");
+    }
+    setup_output();
+    CPAN->debug("pragma[@pragma]meth[$meth]some[@some]") if $CPAN::DEBUG;
+
+    # Here is the place to set "test_count" on all involved parties to
+    # 0. We then can pass this counter on to the involved
+    # distributions and those can refuse to test if test_count > X. In
+    # the first stab at it we could use a 1 for "X".
+
+    # But when do I reset the distributions to start with 0 again?
+    # Jost suggested to have a random or cycling interaction ID that
+    # we pass through. But the ID is something that is just left lying
+    # around in addition to the counter, so I'd prefer to set the
+    # counter to 0 now, and repeat at the end of the loop. But what
+    # about dependencies? They appear later and are not reset, they
+    # enter the queue but not its copy. How do they get a sensible
+    # test_count?
+
+    # With configure_requires, "get" is vulnerable in recursion.
+
+    my $needs_recursion_protection = "get|make|test|install";
+
+    # construct the queue
+    my($s,@s,@qcopy);
+  STHING: foreach $s (@some) {
+        my $obj;
+        if (ref $s) {
+            CPAN->debug("s is an object[$s]") if $CPAN::DEBUG;
+            $obj = $s;
+        } elsif ($s =~ m|[\$\@\%]|) { # looks like a perl variable
+        } elsif ($s =~ m|^/|) { # looks like a regexp
+            if (substr($s,-1,1) eq ".") {
+                $obj = CPAN::Shell->expandany($s);
+            } else {
+                my @obj;
+            CLASS: for my $class (qw(Distribution Bundle Module)) {
+                    if (@obj = $self->expand($class,$s)) {
+                        last CLASS;
+                    }
+                }
+                if (@obj) {
+                    if (1==@obj) {
+                        $obj = $obj[0];
+                    } else {
+                        $CPAN::Frontend->mywarn("Sorry, $meth with a regular expression is ".
+                                                "only supported when unambiguous.\nRejecting argument '$s'\n");
+                        $CPAN::Frontend->mysleep(2);
+                        next STHING;
+                    }
+                }
+            }
+        } elsif ($meth eq "ls") {
+            $self->globls($s,\@pragma);
+            next STHING;
+        } else {
+            CPAN->debug("calling expandany [$s]") if $CPAN::DEBUG;
+            $obj = CPAN::Shell->expandany($s);
+        }
+        if (0) {
+        } elsif (ref $obj) {
+            if ($meth =~ /^($needs_recursion_protection)$/) {
+                # it would be silly to check for recursion for look or dump
+                # (we are in CPAN::Shell::rematein)
+                CPAN->debug("Testing against recursion") if $CPAN::DEBUG;
+                eval {  $obj->color_cmd_tmps(0,1); };
+                if ($@) {
+                    if (ref $@
+                        and $@->isa("CPAN::Exception::RecursiveDependency")) {
+                        $CPAN::Frontend->mywarn($@);
+                    } else {
+                        if (0) {
+                            require Carp;
+                            Carp::confess(sprintf "DEBUG: \$\@[%s]ref[%s]", $@, ref $@);
+                        }
+                        die;
+                    }
+                }
+            }
+            CPAN::Queue->queue_item(qmod => $obj->id, reqtype => "c", optional => '');
+            push @qcopy, $obj;
+        } elsif ($CPAN::META->exists('CPAN::Author',uc($s))) {
+            $obj = $CPAN::META->instance('CPAN::Author',uc($s));
+            if ($meth =~ /^(dump|ls|reports)$/) {
+                $obj->$meth();
+            } else {
+                $CPAN::Frontend->mywarn(
+                                        join "",
+                                        "Don't be silly, you can't $meth ",
+                                        $obj->fullname,
+                                        " ;-)\n"
+                                       );
+                $CPAN::Frontend->mysleep(2);
+            }
+        } elsif ($s =~ m|[\$\@\%]| && $meth eq "dump") {
+            CPAN::InfoObj->dump($s);
+        } else {
+            $CPAN::Frontend
+                ->mywarn(qq{Warning: Cannot $meth $s, }.
+                         qq{don't know what it is.
+Try the command
+
+    i /$s/
+
+to find objects with matching identifiers.
+});
+            $CPAN::Frontend->mysleep(2);
+        }
+    }
+
+    # queuerunner (please be warned: when I started to change the
+    # queue to hold objects instead of names, I made one or two
+    # mistakes and never found which. I reverted back instead)
+  QITEM: while (my $q = CPAN::Queue->first) {
+        my $obj;
+        my $s = $q->as_string;
+        my $reqtype = $q->reqtype || "";
+        my $optional = $q->optional || "";
+        $obj = CPAN::Shell->expandany($s);
+        unless ($obj) {
+            # don't know how this can happen, maybe we should panic,
+            # but maybe we get a solution from the first user who hits
+            # this unfortunate exception?
+            $CPAN::Frontend->mywarn("Warning: Could not expand string '$s' ".
+                                    "to an object. Skipping.\n");
+            $CPAN::Frontend->mysleep(5);
+            CPAN::Queue->delete_first($s);
+            next QITEM;
+        }
+        $obj->{reqtype} ||= "";
+        my $type = ref $obj;
+        if ( $type eq 'CPAN::Distribution' || $type eq 'CPAN::Bundle' ) {
+            $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+        }
+        elsif ( $type eq 'CPAN::Module' ) {
+            $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+            if (my $d = $obj->distribution) {
+                $d->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+            } elsif ($optional) {
+                # the queue object does not know who was recommending/suggesting us:(
+                # So we only vaguely write "optional".
+                $CPAN::Frontend->mywarn("Warning: optional module '$s' ".
+                                        "not known. Skipping.\n");
+                CPAN::Queue->delete_first($s);
+                next QITEM;
+            }
+        }
+        {
+            # force debugging because CPAN::SQLite somehow delivers us
+            # an empty object;
+
+            # local $CPAN::DEBUG = 1024; # Shell; probably fixed now
+
+            CPAN->debug("s[$s]obj-reqtype[$obj->{reqtype}]".
+                        "q-reqtype[$reqtype]") if $CPAN::DEBUG;
+        }
+        if ($obj->{reqtype}) {
+            if ($obj->{reqtype} eq "b" && $reqtype =~ /^[rc]$/) {
+                $obj->{reqtype} = $reqtype;
+                if (
+                    exists $obj->{install}
+                    &&
+                    (
+                     UNIVERSAL::can($obj->{install},"failed") ?
+                     $obj->{install}->failed :
+                     $obj->{install} =~ /^NO/
+                    )
+                   ) {
+                    delete $obj->{install};
+                    $CPAN::Frontend->mywarn
+                        ("Promoting $obj->{ID} from 'build_requires' to 'requires'");
+                }
+            }
+        } else {
+            $obj->{reqtype} = $reqtype;
+        }
+
+        for my $pragma (@pragma) {
+            if ($pragma
+                &&
+                $obj->can($pragma)) {
+                $obj->$pragma($meth);
+            }
+        }
+        if (UNIVERSAL::can($obj, 'called_for')) {
+            $obj->called_for($s);
+        }
+        CPAN->debug(qq{pragma[@pragma]meth[$meth]}.
+                    qq{ID[$obj->{ID}]}) if $CPAN::DEBUG;
+
+        push @qcopy, $obj;
+        if ($meth =~ /^(report)$/) { # they came here with a pragma?
+            $self->$meth($obj);
+        } elsif (! UNIVERSAL::can($obj,$meth)) {
+            # Must never happen
+            my $serialized = "";
+            if (0) {
+            } elsif ($CPAN::META->has_inst("YAML::Syck")) {
+                $serialized = YAML::Syck::Dump($obj);
+            } elsif ($CPAN::META->has_inst("YAML")) {
+                $serialized = YAML::Dump($obj);
+            } elsif ($CPAN::META->has_inst("Data::Dumper")) {
+                $serialized = Data::Dumper::Dumper($obj);
+            } else {
+                require overload;
+                $serialized = overload::StrVal($obj);
+            }
+            CPAN->debug("Going to panic. meth[$meth]s[$s]") if $CPAN::DEBUG;
+            $CPAN::Frontend->mydie("Panic: obj[$serialized] cannot meth[$meth]");
+        } else {
+            my $upgraded_meth = $meth;
+            if ( $meth eq "make" and $obj->{reqtype} eq "b" ) {
+                # rt 86915
+                $upgraded_meth = "test";
+            }
+            if ($obj->$upgraded_meth()) {
+                CPAN::Queue->delete($s);
+                CPAN->debug("Succeeded and deleted from queue. pragma[@pragma]meth[$meth][s][$s]") if $CPAN::DEBUG;
+            } else {
+                CPAN->debug("Failed. pragma[@pragma]meth[$meth]s[$s]") if $CPAN::DEBUG;
+            }
+        }
+
+        $obj->undelay;
+        for my $pragma (@pragma) {
+            my $unpragma = "un$pragma";
+            if ($obj->can($unpragma)) {
+                $obj->$unpragma();
+            }
+        }
+        # if any failures occurred and the current object is mandatory, we
+        # still don't know if *it* failed or if it was another (optional)
+        # module, so we have to check that explicitly (and expensively)
+        if (    $CPAN::Config->{halt_on_failure}
+            && $obj->{mandatory}
+            && CPAN::Distrostatus::something_has_just_failed()
+            && $self->mandatory_dist_failed()
+        ) {
+            $CPAN::Frontend->mywarn("Stopping: '$meth' failed for '$s'.\n");
+            CPAN::Queue->nullify_queue;
+            last QITEM;
+        }
+        CPAN::Queue->delete_first($s);
+    }
+    if ($meth =~ /^($needs_recursion_protection)$/) {
+        for my $obj (@qcopy) {
+            $obj->color_cmd_tmps(0,0);
+        }
+    }
+}
+
+#-> sub CPAN::Shell::recent ;
+sub recent {
+  my($self) = @_;
+  if ($CPAN::META->has_inst("XML::LibXML")) {
+      my $url = $CPAN::Defaultrecent;
+      $CPAN::Frontend->myprint("Fetching '$url'\n");
+      unless ($CPAN::META->has_usable("LWP")) {
+          $CPAN::Frontend->mydie("LWP not installed; cannot continue");
+      }
+      CPAN::LWP::UserAgent->config;
+      my $Ua;
+      eval { $Ua = CPAN::LWP::UserAgent->new; };
+      if ($@) {
+          $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n");
+      }
+      my $resp = $Ua->get($url);
+      unless ($resp->is_success) {
+          $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code);
+      }
+      $CPAN::Frontend->myprint("DONE\n\n");
+      my $xml = XML::LibXML->new->parse_string($resp->content);
+      if (0) {
+          my $s = $xml->serialize(2);
+          $s =~ s/\n\s*\n/\n/g;
+          $CPAN::Frontend->myprint($s);
+          return;
+      }
+      my @distros;
+      if ($url =~ /winnipeg/) {
+          my $pubdate = $xml->findvalue("/rss/channel/pubDate");
+          $CPAN::Frontend->myprint("    pubDate: $pubdate\n\n");
+          for my $eitem ($xml->findnodes("/rss/channel/item")) {
+              my $distro = $eitem->findvalue("enclosure/\@url");
+              $distro =~ s|.*?/authors/id/./../||;
+              my $size   = $eitem->findvalue("enclosure/\@length");
+              my $desc   = $eitem->findvalue("description");
+              $desc =~ s/.+? - //;
+              $CPAN::Frontend->myprint("$distro [$size b]\n    $desc\n");
+              push @distros, $distro;
+          }
+      } elsif ($url =~ /search.*uploads.rdf/) {
+          # xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+          # xmlns="http://purl.org/rss/1.0/"
+          # xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
+          # xmlns:dc="http://purl.org/dc/elements/1.1/"
+          # xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
+          # xmlns:admin="http://webns.net/mvcb/"
+
+
+          my $dc_date = $xml->findvalue("//*[local-name(.) = 'RDF']/*[local-name(.) = 'channel']/*[local-name(.) = 'date']");
+          $CPAN::Frontend->myprint("    dc:date: $dc_date\n\n");
+          my $finish_eitem = 0;
+          local $SIG{INT} = sub { $finish_eitem = 1 };
+        EITEM: for my $eitem ($xml->findnodes("//*[local-name(.) = 'RDF']/*[local-name(.) = 'item']")) {
+              my $distro = $eitem->findvalue("\@rdf:about");
+              $distro =~ s|.*~||; # remove up to the tilde before the name
+              $distro =~ s|/$||; # remove trailing slash
+              $distro =~ s|([^/]+)|\U$1\E|; # upcase the name
+              my $author = uc $1 or die "distro[$distro] without author, cannot continue";
+              my $desc   = $eitem->findvalue("*[local-name(.) = 'description']");
+              my $i = 0;
+            SUBDIRTEST: while () {
+                  last SUBDIRTEST if ++$i >= 6; # half a dozen must do!
+                  if (my @ret = $self->globls("$distro*")) {
+                      @ret = grep {$_->[2] !~ /meta/} @ret;
+                      @ret = grep {length $_->[2]} @ret;
+                      if (@ret) {
+                          $distro = "$author/$ret[0][2]";
+                          last SUBDIRTEST;
+                      }
+                  }
+                  $distro =~ s|/|/*/|; # allow it to reside in a subdirectory
+              }
+
+              next EITEM if $distro =~ m|\*|; # did not find the thing
+              $CPAN::Frontend->myprint("____$desc\n");
+              push @distros, $distro;
+              last EITEM if $finish_eitem;
+          }
+      }
+      return \@distros;
+  } else {
+      # deprecated old version
+      $CPAN::Frontend->mydie("no XML::LibXML installed, cannot continue\n");
+  }
+}
+
+#-> sub CPAN::Shell::smoke ;
+sub smoke {
+    my($self) = @_;
+    my $distros = $self->recent;
+  DISTRO: for my $distro (@$distros) {
+        next if $distro =~ m|/Bundle-|; # XXX crude heuristic to skip bundles
+        $CPAN::Frontend->myprint(sprintf "Downloading and testing '$distro'\n");
+        {
+            my $skip = 0;
+            local $SIG{INT} = sub { $skip = 1 };
+            for (0..9) {
+                $CPAN::Frontend->myprint(sprintf "\r%2d (Hit ^C to skip)", 10-$_);
+                sleep 1;
+                if ($skip) {
+                    $CPAN::Frontend->myprint(" skipped\n");
+                    next DISTRO;
+                }
+            }
+        }
+        $CPAN::Frontend->myprint("\r  \n"); # leave the dirty line with a newline
+        $self->test($distro);
+    }
+}
+
+{
+    # set up the dispatching methods
+    no strict "refs";
+    for my $command (qw(
+                        clean
+                        cvs_import
+                        dump
+                        force
+                        fforce
+                        get
+                        install
+                        look
+                        ls
+                        make
+                        notest
+                        perldoc
+                        readme
+                        reports
+                        test
+                       )) {
+        *$command = sub { shift->rematein($command, @_); };
+    }
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Bundle;
+use strict;
+use CPAN::Module;
+@CPAN::Bundle::ISA = qw(CPAN::Module);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5003";
+
+sub look {
+    my $self = shift;
+    $CPAN::Frontend->myprint($self->as_string);
+}
+
+#-> CPAN::Bundle::undelay
+sub undelay {
+    my $self = shift;
+    delete $self->{later};
+    for my $c ( $self->contains ) {
+        my $obj = CPAN::Shell->expandany($c) or next;
+        if ($obj->id eq $self->id){
+            my $id = $obj->id;
+            $CPAN::Frontend->mywarn("$id seems to contain itself, skipping\n");
+            next;
+        }
+        $obj->undelay;
+    }
+}
+
+# mark as dirty/clean
+#-> sub CPAN::Bundle::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a module needs to recurse to its cpan_file, a distribution needs
+    # to recurse into its prereq_pms, a bundle needs to recurse into its modules
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        my $e = CPAN::Exception::RecursiveDependency->new($ancestors);
+        if ($e->is_resolvable) {
+            return $self->{incommandcolor}=2;
+        } else {
+            die $e;
+        }
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+
+    for my $c ( $self->contains ) {
+        my $obj = CPAN::Shell->expandany($c) or next;
+        CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG;
+        $obj->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+    }
+    # never reached code?
+    #if ($color==0) {
+      #delete $self->{badtestcnt};
+    #}
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Bundle::as_string ;
+sub as_string {
+    my($self) = @_;
+    $self->contains;
+    # following line must be "=", not "||=" because we have a moving target
+    $self->{INST_VERSION} = $self->inst_version;
+    return $self->SUPER::as_string;
+}
+
+#-> sub CPAN::Bundle::contains ;
+sub contains {
+    my($self) = @_;
+    my($inst_file) = $self->inst_file || "";
+    my($id) = $self->id;
+    $self->debug("inst_file[$inst_file]id[$id]") if $CPAN::DEBUG;
+    if ($inst_file && CPAN::Version->vlt($self->inst_version,$self->cpan_version)) {
+        undef $inst_file;
+    }
+    unless ($inst_file) {
+        # Try to get at it in the cpan directory
+        $self->debug("no inst_file") if $CPAN::DEBUG;
+        my $cpan_file;
+        $CPAN::Frontend->mydie("I don't know a bundle with ID $id\n") unless
+              $cpan_file = $self->cpan_file;
+        if ($cpan_file eq "N/A") {
+            $CPAN::Frontend->mydie("Bundle $id not found on disk and not on CPAN.
+  Maybe stale symlink? Maybe removed during session? Giving up.\n");
+        }
+        my $dist = $CPAN::META->instance('CPAN::Distribution',
+                                         $self->cpan_file);
+        $self->debug("before get id[$dist->{ID}]") if $CPAN::DEBUG;
+        $dist->get;
+        $self->debug("after get id[$dist->{ID}]") if $CPAN::DEBUG;
+        my($todir) = $CPAN::Config->{'cpan_home'};
+        my(@me,$from,$to,$me);
+        @me = split /::/, $self->id;
+        $me[-1] .= ".pm";
+        $me = File::Spec->catfile(@me);
+        $from = $self->find_bundle_file($dist->{build_dir},join('/',@me));
+        $to = File::Spec->catfile($todir,$me);
+        File::Path::mkpath(File::Basename::dirname($to));
+        File::Copy::copy($from, $to)
+              or Carp::confess("Couldn't copy $from to $to: $!");
+        $inst_file = $to;
+    }
+    my @result;
+    my $fh = FileHandle->new;
+    local $/ = "\n";
+    open($fh,$inst_file) or die "Could not open '$inst_file': $!";
+    my $in_cont = 0;
+    $self->debug("inst_file[$inst_file]") if $CPAN::DEBUG;
+    while (<$fh>) {
+        $in_cont = m/^=(?!head1\s+(?i-xsm:CONTENTS))/ ? 0 :
+            m/^=head1\s+(?i-xsm:CONTENTS)/ ? 1 : $in_cont;
+        next unless $in_cont;
+        next if /^=/;
+        s/\#.*//;
+        next if /^\s+$/;
+        chomp;
+        push @result, (split " ", $_, 2)[0];
+    }
+    close $fh;
+    delete $self->{STATUS};
+    $self->{CONTAINS} = \@result;
+    $self->debug("CONTAINS[@result]") if $CPAN::DEBUG;
+    unless (@result) {
+        $CPAN::Frontend->mywarn(qq{
+The bundle file "$inst_file" may be a broken
+bundlefile. It seems not to contain any bundle definition.
+Please check the file and if it is bogus, please delete it.
+Sorry for the inconvenience.
+});
+    }
+    @result;
+}
+
+#-> sub CPAN::Bundle::find_bundle_file
+# $where is in local format, $what is in unix format
+sub find_bundle_file {
+    my($self,$where,$what) = @_;
+    $self->debug("where[$where]what[$what]") if $CPAN::DEBUG;
+### The following two lines let CPAN.pm become Bundle/CPAN.pm :-(
+###    my $bu = File::Spec->catfile($where,$what);
+###    return $bu if -f $bu;
+    my $manifest = File::Spec->catfile($where,"MANIFEST");
+    unless (-f $manifest) {
+        require ExtUtils::Manifest;
+        my $cwd = CPAN::anycwd();
+        $self->safe_chdir($where);
+        ExtUtils::Manifest::mkmanifest();
+        $self->safe_chdir($cwd);
+    }
+    my $fh = FileHandle->new($manifest)
+        or Carp::croak("Couldn't open $manifest: $!");
+    local($/) = "\n";
+    my $bundle_filename = $what;
+    $bundle_filename =~ s|Bundle.*/||;
+    my $bundle_unixpath;
+    while (<$fh>) {
+        next if /^\s*\#/;
+        my($file) = /(\S+)/;
+        if ($file =~ m|\Q$what\E$|) {
+            $bundle_unixpath = $file;
+            # return File::Spec->catfile($where,$bundle_unixpath); # bad
+            last;
+        }
+        # retry if she managed to have no Bundle directory
+        $bundle_unixpath = $file if $file =~ m|\Q$bundle_filename\E$|;
+    }
+    return File::Spec->catfile($where, split /\//, $bundle_unixpath)
+        if $bundle_unixpath;
+    Carp::croak("Couldn't find a Bundle file in $where");
+}
+
+# needs to work quite differently from Module::inst_file because of
+# cpan_home/Bundle/ directory and the possibility that we have
+# shadowing effect. As it makes no sense to take the first in @INC for
+# Bundles, we parse them all for $VERSION and take the newest.
+
+#-> sub CPAN::Bundle::inst_file ;
+sub inst_file {
+    my($self) = @_;
+    my($inst_file);
+    my(@me);
+    @me = split /::/, $self->id;
+    $me[-1] .= ".pm";
+    my($incdir,$bestv);
+    foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
+        my $parsefile = File::Spec->catfile($incdir, @me);
+        CPAN->debug("parsefile[$parsefile]") if $CPAN::DEBUG;
+        next unless -f $parsefile;
+        my $have = eval { MM->parse_version($parsefile); };
+        if ($@) {
+            $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n");
+        }
+        if (!$bestv || CPAN::Version->vgt($have,$bestv)) {
+            $self->{INST_FILE} = $parsefile;
+            $self->{INST_VERSION} = $bestv = $have;
+        }
+    }
+    $self->{INST_FILE};
+}
+
+#-> sub CPAN::Bundle::inst_version ;
+sub inst_version {
+    my($self) = @_;
+    $self->inst_file; # finds INST_VERSION as side effect
+    $self->{INST_VERSION};
+}
+
+#-> sub CPAN::Bundle::rematein ;
+sub rematein {
+    my($self,$meth) = @_;
+    $self->debug("self[$self] meth[$meth]") if $CPAN::DEBUG;
+    my($id) = $self->id;
+    Carp::croak( "Can't $meth $id, don't have an associated bundle file. :-(\n" )
+        unless $self->inst_file || $self->cpan_file;
+    my($s,%fail);
+    for $s ($self->contains) {
+        my($type) = $s =~ m|/| ? 'CPAN::Distribution' :
+            $s =~ m|^Bundle::| ? 'CPAN::Bundle' : 'CPAN::Module';
+        if ($type eq 'CPAN::Distribution') {
+            $CPAN::Frontend->mywarn(qq{
+The Bundle }.$self->id.qq{ contains
+explicitly a file '$s'.
+Going to $meth that.
+});
+            $CPAN::Frontend->mysleep(5);
+        }
+        # possibly noisy action:
+        $self->debug("type[$type] s[$s]") if $CPAN::DEBUG;
+        my $obj = $CPAN::META->instance($type,$s);
+        $obj->{reqtype} = $self->{reqtype};
+        # $obj->$meth();
+        # XXX should optional be based on whether bundle was optional? -- xdg, 2012-04-01
+        # A: Sure, what could demand otherwise? --andk, 2013-11-25
+        CPAN::Queue->queue_item(qmod => $obj->id, reqtype => $self->{reqtype}, optional => !$self->{mandatory});
+    }
+}
+
+# If a bundle contains another that contains an xs_file we have here,
+# we just don't bother I suppose
+#-> sub CPAN::Bundle::xs_file
+sub xs_file {
+    return 0;
+}
+
+#-> sub CPAN::Bundle::force ;
+sub fforce   { shift->rematein('fforce',@_); }
+#-> sub CPAN::Bundle::force ;
+sub force   { shift->rematein('force',@_); }
+#-> sub CPAN::Bundle::notest ;
+sub notest  { shift->rematein('notest',@_); }
+#-> sub CPAN::Bundle::get ;
+sub get     { shift->rematein('get',@_); }
+#-> sub CPAN::Bundle::make ;
+sub make    { shift->rematein('make',@_); }
+#-> sub CPAN::Bundle::test ;
+sub test    {
+    my $self = shift;
+    # $self->{badtestcnt} ||= 0;
+    $self->rematein('test',@_);
+}
+#-> sub CPAN::Bundle::install ;
+sub install {
+  my $self = shift;
+  $self->rematein('install',@_);
+}
+#-> sub CPAN::Bundle::clean ;
+sub clean   { shift->rematein('clean',@_); }
+
+#-> sub CPAN::Bundle::uptodate ;
+sub uptodate {
+    my($self) = @_;
+    return 0 unless $self->SUPER::uptodate; # we must have the current Bundle def
+    my $c;
+    foreach $c ($self->contains) {
+        my $obj = CPAN::Shell->expandany($c);
+        return 0 unless $obj->uptodate;
+    }
+    return 1;
+}
+
+#-> sub CPAN::Bundle::readme ;
+sub readme  {
+    my($self) = @_;
+    my($file) = $self->cpan_file or $CPAN::Frontend->myprint(qq{
+No File found for bundle } . $self->id . qq{\n}), return;
+    $self->debug("self[$self] file[$file]") if $CPAN::DEBUG;
+    $CPAN::META->instance('CPAN::Distribution',$file)->readme;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Complete;
+use strict;
+@CPAN::Complete::ISA = qw(CPAN::Debug);
+# Q: where is the "How do I add a new command" HOWTO?
+# A: git log -p -1 355c44e9caaec857e4b12f51afb96498833c3e36 where andk added the report command
+@CPAN::Complete::COMMANDS = sort qw(
+                                    ? ! a b d h i m o q r u
+                                    autobundle
+                                    bye
+                                    clean
+                                    cvs_import
+                                    dump
+                                    exit
+                                    failed
+                                    force
+                                    fforce
+                                    hosts
+                                    install
+                                    install_tested
+                                    is_tested
+                                    look
+                                    ls
+                                    make
+                                    mkmyconfig
+                                    notest
+                                    perldoc
+                                    quit
+                                    readme
+                                    recent
+                                    recompile
+                                    reload
+                                    report
+                                    reports
+                                    scripts
+                                    smoke
+                                    test
+                                    upgrade
+);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5001";
+
+package CPAN::Complete;
+use strict;
+
+sub gnu_cpl {
+    my($text, $line, $start, $end) = @_;
+    my(@perlret) = cpl($text, $line, $start);
+    # find longest common match. Can anybody show me how to peruse
+    # T::R::Gnu to have this done automatically? Seems expensive.
+    return () unless @perlret;
+    my($newtext) = $text;
+    for (my $i = length($text)+1;;$i++) {
+        last unless length($perlret[0]) && length($perlret[0]) >= $i;
+        my $try = substr($perlret[0],0,$i);
+        my @tries = grep {substr($_,0,$i) eq $try} @perlret;
+        # warn "try[$try]tries[@tries]";
+        if (@tries == @perlret) {
+            $newtext = $try;
+        } else {
+            last;
+        }
+    }
+    ($newtext,@perlret);
+}
+
+#-> sub CPAN::Complete::cpl ;
+sub cpl {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    $line ||= "";
+    $pos ||= 0;
+    CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    $line =~ s/^\s*//;
+    if ($line =~ s/^((?:notest|f?force)\s*)//) {
+        $pos -= length($1);
+    }
+    my @return;
+    if ($pos == 0 || $line =~ /^(?:h(?:elp)?|\?)\s/) {
+        @return = grep /^\Q$word\E/, @CPAN::Complete::COMMANDS;
+    } elsif ( $line !~ /^[\!abcdghimorutl]/ ) {
+        @return = ();
+    } elsif ($line =~ /^a\s/) {
+        @return = cplx('CPAN::Author',uc($word));
+    } elsif ($line =~ /^ls\s/) {
+        my($author,$rest) = $word =~ m|([^/]+)/?(.*)|;
+        @return = $rest ? () : map {"$_/"} cplx('CPAN::Author',uc($author||""));
+        if (0 && 1==@return) { # XXX too slow and even wrong when there is a * already
+            @return = grep /^\Q$word\E/, map {"$author/$_->[2]"} CPAN::Shell->expand("Author",$author)->ls("$rest*","2");
+        }
+    } elsif ($line =~ /^b\s/) {
+        CPAN::Shell->local_bundles;
+        @return = cplx('CPAN::Bundle',$word);
+    } elsif ($line =~ /^d\s/) {
+        @return = cplx('CPAN::Distribution',$word);
+    } elsif ($line =~ m/^(
+                          [mru]|make|clean|dump|get|test|install|readme|look|cvs_import|perldoc|recent
+                         )\s/x ) {
+        if ($word =~ /^Bundle::/) {
+            CPAN::Shell->local_bundles;
+        }
+        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
+    } elsif ($line =~ /^i\s/) {
+        @return = cpl_any($word);
+    } elsif ($line =~ /^reload\s/) {
+        @return = cpl_reload($word,$line,$pos);
+    } elsif ($line =~ /^o\s/) {
+        @return = cpl_option($word,$line,$pos);
+    } elsif ($line =~ m/^\S+\s/ ) {
+        # fallback for future commands and what we have forgotten above
+        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
+    } else {
+        @return = ();
+    }
+    return @return;
+}
+
+#-> sub CPAN::Complete::cplx ;
+sub cplx {
+    my($class, $word) = @_;
+    if (CPAN::_sqlite_running()) {
+        $CPAN::SQLite->search($class, "^\Q$word\E");
+    }
+    my $method = "id";
+    $method = "pretty_id" if $class eq "CPAN::Distribution";
+    sort grep /^\Q$word\E/, map { $_->$method() } $CPAN::META->all_objects($class);
+}
+
+#-> sub CPAN::Complete::cpl_any ;
+sub cpl_any {
+    my($word) = shift;
+    return (
+            cplx('CPAN::Author',$word),
+            cplx('CPAN::Bundle',$word),
+            cplx('CPAN::Distribution',$word),
+            cplx('CPAN::Module',$word),
+           );
+}
+
+#-> sub CPAN::Complete::cpl_reload ;
+sub cpl_reload {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    my(@words) = split " ", $line;
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@ok) = qw(cpan index);
+    return @ok if @words == 1;
+    return grep /^\Q$word\E/, @ok if @words == 2 && $word;
+}
+
+#-> sub CPAN::Complete::cpl_option ;
+sub cpl_option {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    my(@words) = split " ", $line;
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@ok) = qw(conf debug);
+    return @ok if @words == 1;
+    return grep /^\Q$word\E/, @ok if @words == 2 && length($word);
+    if (0) {
+    } elsif ($words[1] eq 'index') {
+        return ();
+    } elsif ($words[1] eq 'conf') {
+        return CPAN::HandleConfig::cpl(@_);
+    } elsif ($words[1] eq 'debug') {
+        return sort grep /^\Q$word\E/i,
+            sort keys %CPAN::DEBUG, 'all';
+    }
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+package CPAN::Debug;
+use strict;
+use vars qw($VERSION);
+
+$VERSION = "5.5001";
+# module is internal to CPAN.pm
+
+%CPAN::DEBUG = qw[
+                  CPAN              1
+                  Index             2
+                  InfoObj           4
+                  Author            8
+                  Distribution     16
+                  Bundle           32
+                  Module           64
+                  CacheMgr        128
+                  Complete        256
+                  FTP             512
+                  Shell          1024
+                  Eval           2048
+                  HandleConfig   4096
+                  Tarzip         8192
+                  Version       16384
+                  Queue         32768
+                  FirstTime     65536
+];
+
+$CPAN::DEBUG ||= 0;
+
+#-> sub CPAN::Debug::debug ;
+sub debug {
+    my($self,$arg) = @_;
+
+    my @caller;
+    my $i = 0;
+    while () {
+        my(@c) = (caller($i))[0 .. ($i ? 3 : 2)];
+        last unless defined $c[0];
+        push @caller, \@c;
+        for (0,3) {
+            last if $_ > $#c;
+            $c[$_] =~ s/.*:://;
+        }
+        for (1) {
+            $c[$_] =~ s|.*/||;
+        }
+        last if ++$i>=3;
+    }
+    pop @caller;
+    if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) {
+        if ($arg and ref $arg) {
+            eval { require Data::Dumper };
+            if ($@) {
+                $CPAN::Frontend->myprint("Debug(\n" . $arg->as_string . ")\n");
+            } else {
+                $CPAN::Frontend->myprint("Debug(\n" . Data::Dumper::Dumper($arg) . ")\n");
+            }
+        } else {
+            my $outer = "";
+            local $" = ",";
+            if (@caller>1) {
+                $outer = ",[@{$caller[1]}]";
+            }
+            $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n");
+        }
+    }
+}
+
+1;
+
+__END__
+
+package CPAN::HandleConfig;
+use strict;
+use vars qw(%can %keys $loading $VERSION);
+use File::Path ();
+use File::Spec ();
+use File::Basename ();
+use Carp ();
+
+
+$VERSION = "5.5008"; # see also CPAN::Config::VERSION at end of file
+
+%can = (
+        commit   => "Commit changes to disk",
+        defaults => "Reload defaults from disk",
+        help     => "Short help about 'o conf' usage",
+        init     => "Interactive setting of all options",
+);
+
+# Q: where is the "How do I add a new config option" HOWTO?
+# A1: svn diff -r 757:758 # where dagolden added test_report [git e997b71de88f1019a1472fc13cb97b1b7f96610f]
+# A2: svn diff -r 985:986 # where andk added yaml_module [git 312b6d9b12b1bdec0b6e282d853482145475021f]
+# A3: 1. add new config option to %keys below
+#     2. add a Pod description in CPAN::FirstTime; it should include a
+#        prompt line; see others for examples
+#     3. add a "matcher" section in CPAN::FirstTime::init that includes
+#        a prompt function; see others for examples
+#     4. add config option to documentation section in CPAN.pm
+
+%keys = map { $_ => undef }
+    (
+     "applypatch",
+     "auto_commit",
+     "build_cache",
+     "build_dir",
+     "build_dir_reuse",
+     "build_requires_install_policy",
+     "bzip2",
+     "cache_metadata",
+     "check_sigs",
+     "cleanup_after_install",
+     "colorize_debug",
+     "colorize_output",
+     "colorize_print",
+     "colorize_warn",
+     "commandnumber_in_prompt",
+     "commands_quote",
+     "connect_to_internet_ok",
+     "cpan_home",
+     "curl",
+     "dontload_hash", # deprecated after 1.83_68 (rev. 581)
+     "dontload_list",
+     "ftp",
+     "ftp_passive",
+     "ftp_proxy",
+     "ftpstats_size",
+     "ftpstats_period",
+     "getcwd",
+     "gpg",
+     "gzip",
+     "halt_on_failure",
+     "histfile",
+     "histsize",
+     "http_proxy",
+     "inactivity_timeout",
+     "index_expire",
+     "inhibit_startup_message",
+     "keep_source_where",
+     "load_module_verbosity",
+     "lynx",
+     "make",
+     "make_arg",
+     "make_install_arg",
+     "make_install_make_command",
+     "makepl_arg",
+     "mbuild_arg",
+     "mbuild_install_arg",
+     "mbuild_install_build_command",
+     "mbuildpl_arg",
+     "ncftp",
+     "ncftpget",
+     "no_proxy",
+     "pager",
+     "password",
+     "patch",
+     "patches_dir",
+     "perl5lib_verbosity",
+     "plugin_list",
+     "prefer_external_tar",
+     "prefer_installer",
+     "prefs_dir",
+     "prerequisites_policy",
+     "proxy_pass",
+     "proxy_user",
+     "randomize_urllist",
+     "recommends_policy",
+     "scan_cache",
+     "shell",
+     "show_unparsable_versions",
+     "show_upload_date",
+     "show_zero_versions",
+     "suggests_policy",
+     "tar",
+     "tar_verbosity",
+     "term_is_latin",
+     "term_ornaments",
+     "test_report",
+     "trust_test_report_history",
+     "unzip",
+     "urllist",
+     "use_prompt_default",
+     "use_sqlite",
+     "username",
+     "version_timeout",
+     "wait_list",
+     "wget",
+     "yaml_load_code",
+     "yaml_module",
+    );
+
+my %prefssupport = map { $_ => 1 }
+    (
+     "build_requires_install_policy",
+     "check_sigs",
+     "make",
+     "make_install_make_command",
+     "prefer_installer",
+     "test_report",
+    );
+
+# returns true on successful action
+sub edit {
+    my($self,@args) = @_;
+    return unless @args;
+    CPAN->debug("self[$self]args[".join(" | ",@args)."]");
+    my($o,$str,$func,$args,$key_exists);
+    $o = shift @args;
+    if($can{$o}) {
+        my $success = $self->$o(args => \@args); # o conf init => sub init => sub load
+        unless ($success) {
+            die "Panic: could not configure CPAN.pm for args [@args]. Giving up.";
+        }
+    } else {
+        CPAN->debug("o[$o]") if $CPAN::DEBUG;
+        unless (exists $keys{$o}) {
+            $CPAN::Frontend->mywarn("Warning: unknown configuration variable '$o'\n");
+        }
+        my $changed;
+
+
+        # one day I used randomize_urllist for a boolean, so we must
+        # list them explicitly --ak
+        if (0) {
+        } elsif ($o =~ /^(wait_list|urllist|dontload_list|plugin_list)$/) {
+
+            #
+            # ARRAYS
+            #
+
+            $func = shift @args;
+            $func ||= "";
+            CPAN->debug("func[$func]args[@args]") if $CPAN::DEBUG;
+            # Let's avoid eval, it's easier to comprehend without.
+            if ($func eq "push") {
+                push @{$CPAN::Config->{$o}}, @args;
+                $changed = 1;
+            } elsif ($func eq "pop") {
+                pop @{$CPAN::Config->{$o}};
+                $changed = 1;
+            } elsif ($func eq "shift") {
+                shift @{$CPAN::Config->{$o}};
+                $changed = 1;
+            } elsif ($func eq "unshift") {
+                unshift @{$CPAN::Config->{$o}}, @args;
+                $changed = 1;
+            } elsif ($func eq "splice") {
+                my $offset = shift @args || 0;
+                my $length = shift @args || 0;
+                splice @{$CPAN::Config->{$o}}, $offset, $length, @args; # may warn
+                $changed = 1;
+            } elsif ($func) {
+                $CPAN::Config->{$o} = [$func, @args];
+                $changed = 1;
+            } else {
+                $self->prettyprint($o);
+            }
+            if ($changed) {
+                if ($o eq "urllist") {
+                    # reset the cached values
+                    undef $CPAN::FTP::Thesite;
+                    undef $CPAN::FTP::Themethod;
+                    $CPAN::Index::LAST_TIME = 0;
+                } elsif ($o eq "dontload_list") {
+                    # empty it, it will be built up again
+                    $CPAN::META->{dontload_hash} = {};
+                }
+            }
+        } elsif ($o =~ /_hash$/) {
+
+            #
+            # HASHES
+            #
+
+            if (@args==1 && $args[0] eq "") {
+                @args = ();
+            } elsif (@args % 2) {
+                push @args, "";
+            }
+            $CPAN::Config->{$o} = { @args };
+            $changed = 1;
+        } else {
+
+            #
+            # SCALARS
+            #
+
+            if (defined $args[0]) {
+                $CPAN::CONFIG_DIRTY = 1;
+                $CPAN::Config->{$o} = $args[0];
+                $changed = 1;
+            }
+            $self->prettyprint($o)
+                if exists $keys{$o} or defined $CPAN::Config->{$o};
+        }
+        if ($changed) {
+            if ($CPAN::Config->{auto_commit}) {
+                $self->commit;
+            } else {
+                $CPAN::CONFIG_DIRTY = 1;
+                $CPAN::Frontend->myprint("Please use 'o conf commit' to ".
+                                         "make the config permanent!\n\n");
+            }
+        }
+    }
+}
+
+sub prettyprint {
+    my($self,$k) = @_;
+    my $v = $CPAN::Config->{$k};
+    if (ref $v) {
+        my(@report);
+        if (ref $v eq "ARRAY") {
+            @report = map {"\t$_ \[$v->[$_]]\n"} 0..$#$v;
+        } else {
+            @report = map
+                {
+                    sprintf "\t%-18s => %s\n",
+                               "[$_]",
+                                        defined $v->{$_} ? "[$v->{$_}]" : "undef"
+                } sort keys %$v;
+        }
+        $CPAN::Frontend->myprint(
+                                 join(
+                                      "",
+                                      sprintf(
+                                              "    %-18s\n",
+                                              $k
+                                             ),
+                                      @report
+                                     )
+                                );
+    } elsif (defined $v) {
+        $CPAN::Frontend->myprint(sprintf "    %-18s [%s]\n", $k, $v);
+    } else {
+        $CPAN::Frontend->myprint(sprintf "    %-18s undef\n", $k);
+    }
+}
+
+# generally, this should be called without arguments so that the currently
+# loaded config file is where changes are committed.
+sub commit {
+    my($self,@args) = @_;
+    CPAN->debug("args[@args]") if $CPAN::DEBUG;
+    if ($CPAN::RUN_DEGRADED) {
+        $CPAN::Frontend->mydie(
+            "'o conf commit' disabled in ".
+            "degraded mode. Maybe try\n".
+            " !undef \$CPAN::RUN_DEGRADED\n"
+        );
+    }
+    my ($configpm, $must_reload);
+
+    # XXX does anything do this? can it be simplified? -- dagolden, 2011-01-19
+    if (@args) {
+      if ($args[0] eq "args") {
+        # we have not signed that contract
+      } else {
+        $configpm = $args[0];
+      }
+    }
+
+    # use provided name or the current config or create a new MyConfig
+    $configpm ||= require_myconfig_or_config() || make_new_config();
+
+    # commit to MyConfig if we can't write to Config
+    if ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm} ) {
+        my $myconfig = _new_config_name();
+        $CPAN::Frontend->mywarn(
+            "Your $configpm file\n".
+            "is not writable. I will attempt to write your configuration to\n" .
+            "$myconfig instead.\n\n"
+        );
+        $configpm = make_new_config();
+        $must_reload++; # so it gets loaded as $INC{'CPAN/MyConfig.pm'}
+    }
+
+    # XXX why not just "-w $configpm"? -- dagolden, 2011-01-19
+    my($mode);
+    if (-f $configpm) {
+        $mode = (stat $configpm)[2];
+        if ($mode && ! -w _) {
+            _die_cant_write_config($configpm);
+        }
+    }
+
+    $self->_write_config_file($configpm);
+    require_myconfig_or_config() if $must_reload;
+
+    #$mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+    #chmod $mode, $configpm;
+###why was that so?    $self->defaults;
+    $CPAN::Frontend->myprint("commit: wrote '$configpm'\n");
+    $CPAN::CONFIG_DIRTY = 0;
+    1;
+}
+
+sub _write_config_file {
+    my ($self, $configpm) = @_;
+    my $msg;
+    $msg = <<EOF if $configpm =~ m{CPAN/Config\.pm};
+
+# This is CPAN.pm's systemwide configuration file. This file provides
+# defaults for users, and the values can be changed in a per-user
+# configuration file.
+
+EOF
+    $msg ||= "\n";
+    my($fh) = FileHandle->new;
+    rename $configpm, "$configpm~" if -f $configpm;
+    open $fh, ">$configpm" or
+        $CPAN::Frontend->mydie("Couldn't open >$configpm: $!");
+    $fh->print(qq[$msg\$CPAN::Config = \{\n]);
+    foreach (sort keys %$CPAN::Config) {
+        unless (exists $keys{$_}) {
+            # do not drop them: forward compatibility!
+            $CPAN::Frontend->mywarn("Unknown config variable '$_'\n");
+            next;
+        }
+        $fh->print(
+            "  '$_' => ",
+            $self->neatvalue($CPAN::Config->{$_}),
+            ",\n"
+        );
+    }
+    $fh->print("};\n1;\n__END__\n");
+    close $fh;
+
+    return;
+}
+
+
+# stolen from MakeMaker; not taking the original because it is buggy;
+# bugreport will have to say: keys of hashes remain unquoted and can
+# produce syntax errors
+sub neatvalue {
+    my($self, $v) = @_;
+    return "undef" unless defined $v;
+    my($t) = ref $v;
+    unless ($t) {
+        $v =~ s/\\/\\\\/g;
+        return "q[$v]";
+    }
+    if ($t eq 'ARRAY') {
+        my(@m, @neat);
+        push @m, "[";
+        foreach my $elem (@$v) {
+            push @neat, "q[$elem]";
+        }
+        push @m, join ", ", @neat;
+        push @m, "]";
+        return join "", @m;
+    }
+    return "$v" unless $t eq 'HASH';
+    my @m;
+    foreach my $key (sort keys %$v) {
+        my $val = $v->{$key};
+        push(@m,"q[$key]=>".$self->neatvalue($val)) ;
+    }
+    return "{ ".join(', ',@m)." }";
+}
+
+sub defaults {
+    my($self) = @_;
+    if ($CPAN::RUN_DEGRADED) {
+                             $CPAN::Frontend->mydie(
+                                                    "'o conf defaults' disabled in ".
+                                                    "degraded mode. Maybe try\n".
+                                                    " !undef \$CPAN::RUN_DEGRADED\n"
+                                                   );
+    }
+    my $done;
+    for my $config (qw(CPAN/MyConfig.pm CPAN/Config.pm)) {
+        if ($INC{$config}) {
+            CPAN->debug("INC{'$config'}[$INC{$config}]") if $CPAN::DEBUG;
+            CPAN::Shell->_reload_this($config,{reloforce => 1});
+            $CPAN::Frontend->myprint("'$INC{$config}' reread\n");
+            last;
+        }
+    }
+    $CPAN::CONFIG_DIRTY = 0;
+    1;
+}
+
+
+{
+    # Instead of patching the guess, set commands_quote
+    # to the right value
+    my ($quotes,$use_quote)
+        = $^O eq 'MSWin32'
+            ? ('"', '"')
+                : (q{"'}, "'")
+                    ;
+
+    sub safe_quote {
+        my ($self, $command) = @_;
+        # Set up quote/default quote
+        my $quote = $CPAN::Config->{commands_quote} || $quotes;
+
+        if ($quote ne ' '
+            and defined($command )
+            and $command =~ /\s/
+            and $command !~ /[$quote]/) {
+            return qq<$use_quote$command$use_quote>
+        }
+        return $command;
+    }
+}
+
+sub init {
+    my($self,@args) = @_;
+    CPAN->debug("self[$self]args[".join(",",@args)."]");
+    $self->load(do_init => 1, @args);
+    1;
+}
+
+# Loads CPAN::MyConfig or fall-back to CPAN::Config. Will not reload a file
+# if already loaded. Returns the path to the file %INC or else the empty string
+#
+# Note -- if CPAN::Config were loaded and CPAN::MyConfig subsequently
+# created, calling this again will leave *both* in %INC
+
+sub require_myconfig_or_config () {
+    if (   $INC{"CPAN/MyConfig.pm"} || _try_loading("CPAN::MyConfig", cpan_home())) {
+        return $INC{"CPAN/MyConfig.pm"};
+    }
+    elsif ( $INC{"CPAN/Config.pm"} || _try_loading("CPAN::Config") ) {
+        return $INC{"CPAN/Config.pm"};
+    }
+    else {
+        return q{};
+    }
+}
+
+# Load a module, but ignore "can't locate..." errors
+# Optionally take a list of directories to add to @INC for the load
+sub _try_loading {
+    my ($module, @dirs) = @_;
+    (my $file = $module) =~ s{::}{/}g;
+    $file .= ".pm";
+
+    local @INC = @INC;
+    for my $dir ( @dirs ) {
+        if ( -f File::Spec->catfile($dir, $file) ) {
+            unshift @INC, $dir;
+            last;
+        }
+    }
+
+    eval { require $file };
+    my $err_myconfig = $@;
+    if ($err_myconfig and $err_myconfig !~ m#locate \Q$file\E#) {
+        die "Error while requiring ${module}:\n$err_myconfig";
+    }
+    return $INC{$file};
+}
+
+# prioritized list of possible places for finding "CPAN/MyConfig.pm"
+sub cpan_home_dir_candidates {
+    my @dirs;
+    my $old_v = $CPAN::Config->{load_module_verbosity};
+    $CPAN::Config->{load_module_verbosity} = q[none];
+    if ($CPAN::META->has_usable('File::HomeDir')) {
+        if ($^O ne 'darwin') {
+            push @dirs, File::HomeDir->my_data;
+            # my_data is ~/Library/Application Support on darwin,
+            # which causes issues in the toolchain.
+        }
+        push @dirs, File::HomeDir->my_home;
+    }
+    # Windows might not have HOME, so check it first
+    push @dirs, $ENV{HOME} if $ENV{HOME};
+    # Windows might have these instead
+    push( @dirs, File::Spec->catpath($ENV{HOMEDRIVE}, $ENV{HOMEPATH}, '') )
+      if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
+    push @dirs, $ENV{USERPROFILE} if $ENV{USERPROFILE};
+
+    $CPAN::Config->{load_module_verbosity} = $old_v;
+    my $dotcpan = $^O eq 'VMS' ? '_cpan' : '.cpan';
+    @dirs = map { File::Spec->catdir($_, $dotcpan) } grep { defined } @dirs;
+    return wantarray ? @dirs : $dirs[0];
+}
+
+sub load {
+    my($self, %args) = @_;
+    $CPAN::Be_Silent+=0; # protect against 'used only once'
+    $CPAN::Be_Silent++ if $args{be_silent}; # do not use; planned to be removed in 2011
+    my $do_init = delete $args{do_init} || 0;
+    my $make_myconfig = delete $args{make_myconfig};
+    $loading = 0 unless defined $loading;
+
+    my $configpm = require_myconfig_or_config;
+    my @miss = $self->missing_config_data;
+    CPAN->debug("do_init[$do_init]loading[$loading]miss[@miss]") if $CPAN::DEBUG;
+    return unless $do_init || @miss;
+
+    # I'm not how we'd ever wind up in a recursive loop, but I'm leaving
+    # this here for safety's sake -- dagolden, 2011-01-19
+    return if $loading;
+    local $loading = ($loading||0) + 1;
+
+    # Warn if we have a config file, but things were found missing
+    if ($configpm && @miss && !$do_init) {
+        if ($make_myconfig || ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm})) {
+            $configpm = make_new_config();
+            $CPAN::Frontend->myprint(<<END);
+The system CPAN configuration file has provided some default values,
+but you need to complete the configuration dialog for CPAN.pm.
+Configuration will be written to
+ <<$configpm>>
+END
+        }
+        else {
+            $CPAN::Frontend->myprint(<<END);
+Sorry, we have to rerun the configuration dialog for CPAN.pm due to
+some missing parameters. Configuration will be written to
+ <<$configpm>>
+
+END
+        }
+    }
+
+    require CPAN::FirstTime;
+    return CPAN::FirstTime::init($configpm || make_new_config(), %args);
+}
+
+# Creates a new, empty config file at the preferred location
+# Any existing will be renamed with a ".bak" suffix if possible
+# If the file cannot be created, an exception is thrown
+sub make_new_config {
+    my $configpm = _new_config_name();
+    my $configpmdir = File::Basename::dirname( $configpm );
+    File::Path::mkpath($configpmdir) unless -d $configpmdir;
+
+    if ( -w $configpmdir ) {
+        #_#_# following code dumped core on me with 5.003_11, a.k.
+        if( -f $configpm ) {
+            my $configpm_bak = "$configpm.bak";
+            unlink $configpm_bak if -f $configpm_bak;
+            if( rename $configpm, $configpm_bak ) {
+                $CPAN::Frontend->mywarn(<<END);
+Old configuration file $configpm
+    moved to $configpm_bak
+END
+            }
+        }
+        my $fh = FileHandle->new;
+        if ($fh->open(">$configpm")) {
+            $fh->print("1;\n");
+            return $configpm;
+        }
+    }
+    _die_cant_write_config($configpm);
+}
+
+sub _die_cant_write_config {
+    my ($configpm) = @_;
+    $CPAN::Frontend->mydie(<<"END");
+WARNING: CPAN.pm is unable to write a configuration file.  You
+must be able to create and write to '$configpm'.
+
+Aborting configuration.
+END
+
+}
+
+# From candidate directories, we would like (in descending preference order):
+#   * the one that contains a MyConfig file
+#   * one that exists (even without MyConfig)
+#   * the first one on the list
+sub cpan_home {
+    my @dirs = cpan_home_dir_candidates();
+    for my $d (@dirs) {
+        return $d if -f "$d/CPAN/MyConfig.pm";
+    }
+    for my $d (@dirs) {
+        return $d if -d $d;
+    }
+    return $dirs[0];
+}
+
+sub _new_config_name {
+    return File::Spec->catfile(cpan_home(), 'CPAN', 'MyConfig.pm');
+}
+
+# returns mandatory but missing entries in the Config
+sub missing_config_data {
+    my(@miss);
+    for (
+         "auto_commit",
+         "build_cache",
+         "build_dir",
+         "cache_metadata",
+         "cpan_home",
+         "ftp_proxy",
+         #"gzip",
+         "http_proxy",
+         "index_expire",
+         #"inhibit_startup_message",
+         "keep_source_where",
+         #"make",
+         "make_arg",
+         "make_install_arg",
+         "makepl_arg",
+         "mbuild_arg",
+         "mbuild_install_arg",
+         ($^O eq "MSWin32" ? "" : "mbuild_install_build_command"),
+         "mbuildpl_arg",
+         "no_proxy",
+         #"pager",
+         "prerequisites_policy",
+         "scan_cache",
+         #"tar",
+         #"unzip",
+         "urllist",
+        ) {
+        next unless exists $keys{$_};
+        push @miss, $_ unless defined $CPAN::Config->{$_};
+    }
+    return @miss;
+}
+
+sub help {
+    $CPAN::Frontend->myprint(q[
+Known options:
+  commit    commit session changes to disk
+  defaults  reload default config values from disk
+  help      this help
+  init      enter a dialog to set all or a set of parameters
+
+Edit key values as in the following (the "o" is a literal letter o):
+  o conf build_cache 15
+  o conf build_dir "/foo/bar"
+  o conf urllist shift
+  o conf urllist unshift ftp://ftp.foo.bar/
+  o conf inhibit_startup_message 1
+
+]);
+    1; #don't reprint CPAN::Config
+}
+
+sub cpl {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@words) = split " ", substr($line,0,$pos+1);
+    if (
+        defined($words[2])
+        and
+        $words[2] =~ /list$/
+        and
+        (
+        @words == 3
+        ||
+        @words == 4 && length($word)
+        )
+       ) {
+        return grep /^\Q$word\E/, qw(splice shift unshift pop push);
+    } elsif (defined($words[2])
+             and
+             $words[2] eq "init"
+             and
+            (
+             @words == 3
+             ||
+             @words >= 4 && length($word)
+            )) {
+        return sort grep /^\Q$word\E/, keys %keys;
+    } elsif (@words >= 4) {
+        return ();
+    }
+    my %seen;
+    my(@o_conf) =  sort grep { !$seen{$_}++ }
+        keys %can,
+            keys %$CPAN::Config,
+                keys %keys;
+    return grep /^\Q$word\E/, @o_conf;
+}
+
+sub prefs_lookup {
+    my($self,$distro,$what) = @_;
+
+    if ($prefssupport{$what}) {
+        return $CPAN::Config->{$what} unless
+            $distro
+                and $distro->prefs
+                    and $distro->prefs->{cpanconfig}
+                        and defined $distro->prefs->{cpanconfig}{$what};
+        return $distro->prefs->{cpanconfig}{$what};
+    } else {
+        $CPAN::Frontend->mywarn("Warning: $what not yet officially ".
+                                "supported for distroprefs, doing a normal lookup");
+        return $CPAN::Config->{$what};
+    }
+}
+
+
+{
+    package
+        CPAN::Config; ####::###### #hide from indexer
+    # note: J. Nick Koston wrote me that they are using
+    # CPAN::Config->commit although undocumented. I suggested
+    # CPAN::Shell->o("conf","commit") even when ugly it is at least
+    # documented
+
+    # that's why I added the CPAN::Config class with autoload and
+    # deprecated warning
+
+    use strict;
+    use vars qw($AUTOLOAD $VERSION);
+    $VERSION = "5.5008";
+
+    # formerly CPAN::HandleConfig was known as CPAN::Config
+    sub AUTOLOAD { ## no critic
+        my $class = shift; # e.g. in dh-make-perl: CPAN::Config
+        my($l) = $AUTOLOAD;
+        $CPAN::Frontend->mywarn("Dispatching deprecated method '$l' to CPAN::HandleConfig\n");
+        $l =~ s/.*:://;
+        CPAN::HandleConfig->$l(@_);
+    }
+}
+
+1;
+
+__END__
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
+# vim: ts=4 sts=4 sw=4:
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::URL;
+use overload '""' => "as_string", fallback => 1;
+# accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist),
+# planned are things like age or quality
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+sub new {
+    my($class,%args) = @_;
+    bless {
+           %args
+          }, $class;
+}
+sub as_string {
+    my($self) = @_;
+    $self->text;
+}
+sub text {
+    my($self,$set) = @_;
+    if (defined $set) {
+        $self->{TEXT} = $set;
+    }
+    $self->{TEXT};
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::FTP;
+use strict;
+
+use Errno ();
+use Fcntl qw(:flock);
+use File::Basename qw(dirname);
+use File::Path qw(mkpath);
+use CPAN::FTP::netrc;
+use vars qw($connect_to_internet_ok $Ua $Thesite $ThesiteURL $Themethod);
+
+@CPAN::FTP::ISA = qw(CPAN::Debug);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5011";
+
+sub _plus_append_open {
+    my($fh, $file) = @_;
+    my $parent_dir = dirname $file;
+    mkpath $parent_dir;
+    my($cnt);
+    until (open $fh, "+>>$file") {
+        next if $! == Errno::EAGAIN; # don't increment on EAGAIN
+        $CPAN::Frontend->mydie("Could not open '$file' after 10000 tries: $!") if ++$cnt > 100000;
+        sleep 0.0001;
+        mkpath $parent_dir;
+    }
+}
+
+#-> sub CPAN::FTP::ftp_statistics
+# if they want to rewrite, they need to pass in a filehandle
+sub _ftp_statistics {
+    my($self,$fh) = @_;
+    my $locktype = $fh ? LOCK_EX : LOCK_SH;
+    # XXX On Windows flock() implements mandatory locking, so we can
+    # XXX only use shared locking to still allow _yaml_load_file() to
+    # XXX read from the file using a different filehandle.
+    $locktype = LOCK_SH if $^O eq "MSWin32";
+
+    $fh ||= FileHandle->new;
+    my $file = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml");
+    _plus_append_open($fh,$file);
+    my $sleep = 1;
+    my $waitstart;
+    while (!CPAN::_flock($fh, $locktype|LOCK_NB)) {
+        $waitstart ||= localtime();
+        if ($sleep>3) {
+            my $now = localtime();
+            $CPAN::Frontend->mywarn("$now: waiting for read lock on '$file' (since $waitstart)\n");
+        }
+        sleep($sleep); # this sleep must not be overridden;
+                       # Frontend->mysleep with AUTOMATED_TESTING has
+                       # provoked complete lock contention on my NFS
+        if ($sleep <= 6) {
+            $sleep+=0.5;
+        } else {
+            # retry to get a fresh handle. If it is NFS and the handle is stale, we will never get an flock
+            _plus_append_open($fh, $file);
+        }
+    }
+    my $stats = eval { CPAN->_yaml_loadfile($file); };
+    if ($@) {
+        if (ref $@) {
+            if (ref $@ eq "CPAN::Exception::yaml_not_installed") {
+                chomp $@;
+                $CPAN::Frontend->myprintonce("Warning (usually harmless): $@\n");
+                return;
+            } elsif (ref $@ eq "CPAN::Exception::yaml_process_error") {
+                my $time = time;
+                my $to = "$file.$time";
+                $CPAN::Frontend->mywarn("Error reading '$file': $@
+  Trying to stash it away as '$to' to prevent further interruptions.
+  You may want to remove that file later.\n");
+                # may fail because somebody else has moved it away in the meantime:
+                rename $file, $to or $CPAN::Frontend->mywarn("Could not rename '$file' to '$to': $!\n");
+                return;
+            }
+        } else {
+            $CPAN::Frontend->mydie($@);
+        }
+    }
+    CPAN::_flock($fh, LOCK_UN);
+    return $stats->[0];
+}
+
+#-> sub CPAN::FTP::_mytime
+sub _mytime () {
+    if (CPAN->has_inst("Time::HiRes")) {
+        return Time::HiRes::time();
+    } else {
+        return time;
+    }
+}
+
+#-> sub CPAN::FTP::_new_stats
+sub _new_stats {
+    my($self,$file) = @_;
+    my $ret = {
+               file => $file,
+               attempts => [],
+               start => _mytime,
+              };
+    $ret;
+}
+
+#-> sub CPAN::FTP::_add_to_statistics
+sub _add_to_statistics {
+    my($self,$stats) = @_;
+    my $yaml_module = CPAN::_yaml_module();
+    $self->debug("yaml_module[$yaml_module]") if $CPAN::DEBUG;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        $stats->{thesiteurl} = $ThesiteURL;
+        $stats->{end} = CPAN::FTP::_mytime();
+        my $fh = FileHandle->new;
+        my $time = time;
+        my $sdebug = 0;
+        my @debug;
+        @debug = $time if $sdebug;
+        my $fullstats = $self->_ftp_statistics($fh);
+        close $fh;
+        $fullstats->{history} ||= [];
+        push @debug, scalar @{$fullstats->{history}} if $sdebug;
+        push @debug, time if $sdebug;
+        push @{$fullstats->{history}}, $stats;
+        # YAML.pm 0.62 is unacceptably slow with 999;
+        # YAML::Syck 0.82 has no noticable performance problem with 999;
+        my $ftpstats_size = $CPAN::Config->{ftpstats_size} || 99;
+        my $ftpstats_period = $CPAN::Config->{ftpstats_period} || 14;
+        while (
+               @{$fullstats->{history}} > $ftpstats_size
+               || $time - $fullstats->{history}[0]{start} > 86400*$ftpstats_period
+              ) {
+            shift @{$fullstats->{history}}
+        }
+        push @debug, scalar @{$fullstats->{history}} if $sdebug;
+        push @debug, time if $sdebug;
+        push @debug, scalar localtime($fullstats->{history}[0]{start}) if $sdebug;
+        # need no eval because if this fails, it is serious
+        my $sfile = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml");
+        CPAN->_yaml_dumpfile("$sfile.$$",$fullstats);
+        if ( $sdebug ) {
+            local $CPAN::DEBUG = 512; # FTP
+            push @debug, time;
+            CPAN->debug(sprintf("DEBUG history: before_read[%d]before[%d]at[%d]".
+                                "after[%d]at[%d]oldest[%s]dumped backat[%d]",
+                                @debug,
+                               ));
+        }
+        # Win32 cannot rename a file to an existing filename
+        unlink($sfile) if ($^O eq 'MSWin32' or $^O eq 'os2');
+	_copy_stat($sfile, "$sfile.$$") if -e $sfile;
+        rename "$sfile.$$", $sfile
+            or $CPAN::Frontend->mywarn("Could not rename '$sfile.$$' to '$sfile': $!\nGiving up\n");
+    }
+}
+
+# Copy some stat information (owner, group, mode and) from one file to
+# another.
+# This is a utility function which might be moved to a utility repository.
+#-> sub CPAN::FTP::_copy_stat
+sub _copy_stat {
+    my($src, $dest) = @_;
+    my @stat = stat($src);
+    if (!@stat) {
+	$CPAN::Frontend->mywarn("Can't stat '$src': $!\n");
+	return;
+    }
+
+    eval {
+	chmod $stat[2], $dest
+	    or $CPAN::Frontend->mywarn("Can't chmod '$dest' to " . sprintf("0%o", $stat[2]) . ": $!\n");
+    };
+    warn $@ if $@;
+    eval {
+	chown $stat[4], $stat[5], $dest
+	    or do {
+		my $save_err = $!; # otherwise it's lost in the get... calls
+		$CPAN::Frontend->mywarn("Can't chown '$dest' to " .
+					(getpwuid($stat[4]))[0] . "/" .
+					(getgrgid($stat[5]))[0] . ": $save_err\n"
+				       );
+	    };
+    };
+    warn $@ if $@;
+}
+
+# if file is CHECKSUMS, suggest the place where we got the file to be
+# checked from, maybe only for young files?
+#-> sub CPAN::FTP::_recommend_url_for
+sub _recommend_url_for {
+    my($self, $file, $urllist) = @_;
+    if ($file =~ s|/CHECKSUMS(.gz)?$||) {
+        my $fullstats = $self->_ftp_statistics();
+        my $history = $fullstats->{history} || [];
+        while (my $last = pop @$history) {
+            last if $last->{end} - time > 3600; # only young results are interesting
+            next unless $last->{file}; # dirname of nothing dies!
+            next unless $file eq dirname($last->{file});
+            return $last->{thesiteurl};
+        }
+    }
+    if ($CPAN::Config->{randomize_urllist}
+        &&
+        rand(1) < $CPAN::Config->{randomize_urllist}
+       ) {
+        $urllist->[int rand scalar @$urllist];
+    } else {
+        return ();
+    }
+}
+
+#-> sub CPAN::FTP::_get_urllist
+sub _get_urllist {
+    my($self, $with_defaults) = @_;
+    $with_defaults ||= 0;
+    CPAN->debug("with_defaults[$with_defaults]") if $CPAN::DEBUG;
+
+    $CPAN::Config->{urllist} ||= [];
+    unless (ref $CPAN::Config->{urllist} eq 'ARRAY') {
+        $CPAN::Frontend->mywarn("Malformed urllist; ignoring.  Configuration file corrupt?\n");
+        $CPAN::Config->{urllist} = [];
+    }
+    my @urllist = grep { defined $_ and length $_ } @{$CPAN::Config->{urllist}};
+    push @urllist, @CPAN::Defaultsites if $with_defaults;
+    for my $u (@urllist) {
+        CPAN->debug("u[$u]") if $CPAN::DEBUG;
+        if (UNIVERSAL::can($u,"text")) {
+            $u->{TEXT} .= "/" unless substr($u->{TEXT},-1) eq "/";
+        } else {
+            $u .= "/" unless substr($u,-1) eq "/";
+            $u = CPAN::URL->new(TEXT => $u, FROM => "USER");
+        }
+    }
+    \@urllist;
+}
+
+#-> sub CPAN::FTP::ftp_get ;
+sub ftp_get {
+    my($class,$host,$dir,$file,$target) = @_;
+    $class->debug(
+                  qq[Going to fetch file [$file] from dir [$dir]
+        on host [$host] as local [$target]\n]
+                 ) if $CPAN::DEBUG;
+    my $ftp = Net::FTP->new($host);
+    unless ($ftp) {
+        $CPAN::Frontend->mywarn("  Could not connect to host '$host' with Net::FTP\n");
+        return;
+    }
+    return 0 unless defined $ftp;
+    $ftp->debug(1) if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG;
+    $class->debug(qq[Going to login("anonymous","$Config::Config{cf_email}")]);
+    unless ( $ftp->login("anonymous",$Config::Config{'cf_email'}) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't login on $host: $msg\n");
+        return;
+    }
+    unless ( $ftp->cwd($dir) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't cwd $dir: $msg\n");
+        return;
+    }
+    $ftp->binary;
+    $class->debug(qq[Going to ->get("$file","$target")\n]) if $CPAN::DEBUG;
+    unless ( $ftp->get($file,$target) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't fetch $file from $host: $msg\n");
+        return;
+    }
+    $ftp->quit; # it's ok if this fails
+    return 1;
+}
+
+# If more accuracy is wanted/needed, Chris Leach sent me this patch...
+
+ # > *** /install/perl/live/lib/CPAN.pm- Wed Sep 24 13:08:48 1997
+ # > --- /tmp/cp Wed Sep 24 13:26:40 1997
+ # > ***************
+ # > *** 1562,1567 ****
+ # > --- 1562,1580 ----
+ # >       return 1 if substr($url,0,4) eq "file";
+ # >       return 1 unless $url =~ m|://([^/]+)|;
+ # >       my $host = $1;
+ # > +     my $proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'};
+ # > +     if ($proxy) {
+ # > +         $proxy =~ m|://([^/:]+)|;
+ # > +         $proxy = $1;
+ # > +         my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'};
+ # > +         if ($noproxy) {
+ # > +             if ($host !~ /$noproxy$/) {
+ # > +                 $host = $proxy;
+ # > +             }
+ # > +         } else {
+ # > +             $host = $proxy;
+ # > +         }
+ # > +     }
+ # >       require Net::Ping;
+ # >       return 1 unless $Net::Ping::VERSION >= 2;
+ # >       my $p;
+
+
+#-> sub CPAN::FTP::localize ;
+sub localize {
+    my($self,$file,$aslocal,$force,$with_defaults) = @_;
+    $force ||= 0;
+    Carp::croak( "Usage: ->localize(cpan_file,as_local_file[,\$force])" )
+        unless defined $aslocal;
+    if ($CPAN::DEBUG){
+        require Carp;
+        my $longmess = Carp::longmess();
+        $self->debug("file[$file] aslocal[$aslocal] force[$force] carplongmess[$longmess]");
+    }
+    if ($^O eq 'MacOS') {
+        # Comment by AK on 2000-09-03: Uniq short filenames would be
+        # available in CHECKSUMS file
+        my($name, $path) = File::Basename::fileparse($aslocal, '');
+        if (length($name) > 31) {
+            $name =~ s/(
+                        \.(
+                           readme(\.(gz|Z))? |
+                           (tar\.)?(gz|Z) |
+                           tgz |
+                           zip |
+                           pm\.(gz|Z)
+                          )
+                       )$//x;
+            my $suf = $1;
+            my $size = 31 - length($suf);
+            while (length($name) > $size) {
+                chop $name;
+            }
+            $name .= $suf;
+            $aslocal = File::Spec->catfile($path, $name);
+        }
+    }
+
+    if (-f $aslocal && -r _ && !($force & 1)) {
+        my $size;
+        if ($size = -s $aslocal) {
+            $self->debug("aslocal[$aslocal]size[$size]") if $CPAN::DEBUG;
+            return $aslocal;
+        } else {
+            # empty file from a previous unsuccessful attempt to download it
+            unlink $aslocal or
+                $CPAN::Frontend->mydie("Found a zero-length '$aslocal' that I ".
+                                       "could not remove.");
+        }
+    }
+    my($maybe_restore) = 0;
+    if (-f $aslocal) {
+        rename $aslocal, "$aslocal.bak$$";
+        $maybe_restore++;
+    }
+
+    my($aslocal_dir) = dirname($aslocal);
+    # Inheritance is not easier to manage than a few if/else branches
+    if ($CPAN::META->has_usable('LWP::UserAgent')) {
+        unless ($Ua) {
+            CPAN::LWP::UserAgent->config;
+            eval {$Ua = CPAN::LWP::UserAgent->new;}; # Why is has_usable still not fit enough?
+            if ($@) {
+                $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n")
+                    if $CPAN::DEBUG;
+            } else {
+                my($var);
+                $Ua->proxy('ftp',  $var)
+                    if $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy};
+                $Ua->proxy('http', $var)
+                    if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy};
+                $Ua->no_proxy($var)
+                    if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy};
+            }
+        }
+    }
+    for my $prx (qw(ftp_proxy http_proxy no_proxy)) {
+        $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx};
+    }
+
+    # Try the list of urls for each single object. We keep a record
+    # where we did get a file from
+    my(@reordered,$last);
+    my $ccurllist = $self->_get_urllist($with_defaults);
+    $last = $#$ccurllist;
+    if ($force & 2) { # local cpans probably out of date, don't reorder
+        @reordered = (0..$last);
+    } else {
+        @reordered =
+            sort {
+                (substr($ccurllist->[$b],0,4) eq "file")
+                    <=>
+                (substr($ccurllist->[$a],0,4) eq "file")
+                    or
+                defined($ThesiteURL)
+                    and
+                ($ccurllist->[$b] eq $ThesiteURL)
+                    <=>
+                ($ccurllist->[$a] eq $ThesiteURL)
+            } 0..$last;
+    }
+    my(@levels);
+    $Themethod ||= "";
+    $self->debug("Themethod[$Themethod]reordered[@reordered]") if $CPAN::DEBUG;
+    my @all_levels = (
+                      ["dleasy",   "file"],
+                      ["dleasy"],
+                      ["dlhard"],
+                      ["dlhardest"],
+                      ["dleasy",   "http","defaultsites"],
+                      ["dlhard",   "http","defaultsites"],
+                      ["dleasy",   "ftp", "defaultsites"],
+                      ["dlhard",   "ftp", "defaultsites"],
+                      ["dlhardest","",    "defaultsites"],
+                     );
+    if ($Themethod) {
+        @levels = grep {$_->[0] eq $Themethod} @all_levels;
+        push @levels, grep {$_->[0] ne $Themethod} @all_levels;
+    } else {
+        @levels = @all_levels;
+    }
+    @levels = qw/dleasy/ if $^O eq 'MacOS';
+    my($levelno);
+    local $ENV{FTP_PASSIVE} =
+        exists $CPAN::Config->{ftp_passive} ?
+        $CPAN::Config->{ftp_passive} : 1;
+    my $ret;
+    my $stats = $self->_new_stats($file);
+    for ($CPAN::Config->{connect_to_internet_ok}) {
+        $connect_to_internet_ok = $_ if not defined $connect_to_internet_ok and defined $_;
+    }
+  LEVEL: for $levelno (0..$#levels) {
+        my $level_tuple = $levels[$levelno];
+        my($level,$scheme,$sitetag) = @$level_tuple;
+        $self->mymkpath($aslocal_dir) unless $scheme && "file" eq $scheme;
+        my $defaultsites = $sitetag && $sitetag eq "defaultsites" && !@$ccurllist;
+        my @urllist;
+        if ($defaultsites) {
+            unless (defined $connect_to_internet_ok) {
+                $CPAN::Frontend->myprint(sprintf qq{
+I would like to connect to one of the following sites to get '%s':
+
+%s
+},
+                                         $file,
+                                         join("",map { " ".$_->text."\n" } @CPAN::Defaultsites),
+                                        );
+                my $answer = CPAN::Shell::colorable_makemaker_prompt("Is it OK to try to connect to the Internet?", "yes");
+                if ($answer =~ /^y/i) {
+                    $connect_to_internet_ok = 1;
+                } else {
+                    $connect_to_internet_ok = 0;
+                }
+            }
+            if ($connect_to_internet_ok) {
+                @urllist = @CPAN::Defaultsites;
+            } else {
+                my $sleep = 2;
+                # the tricky thing about dying here is that everybody
+                # believes that calls to exists() or all_objects() are
+                # safe.
+                require CPAN::Exception::blocked_urllist;
+                die CPAN::Exception::blocked_urllist->new;
+            }
+        } else { # ! $defaultsites
+            my @host_seq = $level =~ /dleasy/ ?
+                @reordered : 0..$last;  # reordered has file and $Thesiteurl first
+            @urllist = map { $ccurllist->[$_] } @host_seq;
+        }
+        $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG;
+        my $aslocal_tempfile = $aslocal . ".tmp" . $$;
+        if (my $recommend = $self->_recommend_url_for($file,\@urllist)) {
+            @urllist = grep { $_ ne $recommend } @urllist;
+            unshift @urllist, $recommend;
+        }
+        $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG;
+        $ret = $self->hostdlxxx($level,$scheme,\@urllist,$file,$aslocal_tempfile,$stats);
+        if ($ret) {
+            CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG;
+            if ($ret eq $aslocal_tempfile) {
+                # if we got it exactly as we asked for, only then we
+                # want to rename
+                rename $aslocal_tempfile, $aslocal
+                    or $CPAN::Frontend->mydie("Error while trying to rename ".
+                                              "'$ret' to '$aslocal': $!");
+                $ret = $aslocal;
+            }
+            elsif (-f $ret && $scheme eq 'file' ) {
+                # it's a local file, so there's nothing left to do, we
+                # let them read from where it is
+            }
+            $Themethod = $level;
+            my $now = time;
+            # utime $now, $now, $aslocal; # too bad, if we do that, we
+                                          # might alter a local mirror
+            $self->debug("level[$level]") if $CPAN::DEBUG;
+            last LEVEL;
+        } else {
+            unlink $aslocal_tempfile;
+            last if $CPAN::Signal; # need to cleanup
+        }
+    }
+    if ($ret) {
+        $stats->{filesize} = -s $ret;
+    }
+    $self->debug("before _add_to_statistics") if $CPAN::DEBUG;
+    $self->_add_to_statistics($stats);
+    $self->debug("after _add_to_statistics") if $CPAN::DEBUG;
+    if ($ret) {
+        unlink "$aslocal.bak$$";
+        return $ret;
+    }
+    unless ($CPAN::Signal) {
+        my(@mess);
+        local $" = " ";
+        if (@{$CPAN::Config->{urllist}}) {
+            push @mess,
+                qq{Please check, if the URLs I found in your configuration file \(}.
+                    join(", ", @{$CPAN::Config->{urllist}}).
+                        qq{\) are valid.};
+        } else {
+            push @mess, qq{Your urllist is empty!};
+        }
+        push @mess, qq{The urllist can be edited.},
+            qq{E.g. with 'o conf urllist push ftp://myurl/'};
+        $CPAN::Frontend->mywarn(Text::Wrap::wrap("","","@mess"). "\n\n");
+        $CPAN::Frontend->mydie("Could not fetch $file\n");
+    }
+    if ($maybe_restore) {
+        rename "$aslocal.bak$$", $aslocal;
+        $CPAN::Frontend->myprint("Trying to get away with old file:\n" .
+                                 $self->ls($aslocal) . "\n");
+        return $aslocal;
+    }
+    return;
+}
+
+sub mymkpath {
+    my($self, $aslocal_dir) = @_;
+    mkpath($aslocal_dir);
+    $CPAN::Frontend->mywarn(qq{Warning: You are not allowed to write into }.
+                            qq{directory "$aslocal_dir".
+    I\'ll continue, but if you encounter problems, they may be due
+    to insufficient permissions.\n}) unless -w $aslocal_dir;
+}
+
+sub hostdlxxx {
+    my $self = shift;
+    my $level = shift;
+    my $scheme = shift;
+    my $h = shift;
+    $h = [ grep /^\Q$scheme\E:/, @$h ] if $scheme;
+    my $method = "host$level";
+    $self->$method($h, @_);
+}
+
+sub _set_attempt {
+    my($self,$stats,$method,$url) = @_;
+    push @{$stats->{attempts}}, {
+                                 method => $method,
+                                 start => _mytime,
+                                 url => $url,
+                                };
+}
+
+# package CPAN::FTP;
+sub hostdleasy { #called from hostdlxxx
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+    my($ro_url);
+  HOSTEASY: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dleasy",$ro_url);
+        my $url = "$ro_url$file";
+        $self->debug("localizing perlish[$url]") if $CPAN::DEBUG;
+        if ($url =~ /^file:/) {
+            my $l;
+            if ($CPAN::META->has_inst('URI::URL')) {
+                my $u =  URI::URL->new($url);
+                $l = $u->file;
+            } else { # works only on Unix, is poorly constructed, but
+                # hopefully better than nothing.
+                # RFC 1738 says fileurl BNF is
+                # fileurl = "file://" [ host | "localhost" ] "/" fpath
+                # Thanks to "Mark D. Baushke" <mdb@cisco.com> for
+                # the code
+                ($l = $url) =~ s|^file://[^/]*/|/|; # discard the host part
+                $l =~ s|^file:||;                   # assume they
+                                                    # meant
+                                                    # file://localhost
+                $l =~ s|^/||s
+                    if ! -f $l && $l =~ m|^/\w:|;   # e.g. /P:
+            }
+            $self->debug("local file[$l]") if $CPAN::DEBUG;
+            if ( -f $l && -r _) {
+                $ThesiteURL = $ro_url;
+                return $l;
+            }
+            # If request is for a compressed file and we can find the
+            # uncompressed file also, return the path of the uncompressed file
+            # otherwise, decompress it and return the resulting path
+            if ($l =~ /(.+)\.gz$/) {
+                my $ungz = $1;
+                if ( -f $ungz && -r _) {
+                    $ThesiteURL = $ro_url;
+                    return $ungz;
+                }
+                elsif (-f $l && -r _) {
+                    eval { CPAN::Tarzip->new($l)->gunzip($aslocal) };
+                    if ( -f $aslocal && -s _) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                    elsif (! -s $aslocal) {
+                        unlink $aslocal;
+                    }
+                    elsif (-f $l) {
+                        $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n")
+                            if $@;
+                        return;
+                    }
+                }
+            }
+            # Otherwise, return the local file path if it exists
+            elsif ( -f $l && -r _) {
+                $ThesiteURL = $ro_url;
+                return $l;
+            }
+            # If we can't find it, but there is a compressed version
+            # of it, then decompress it
+            elsif (-f "$l.gz") {
+                $self->debug("found compressed $l.gz") if $CPAN::DEBUG;
+                eval { CPAN::Tarzip->new("$l.gz")->gunzip($aslocal) };
+                if ( -f $aslocal) {
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                }
+                else {
+                    $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n")
+                        if $@;
+                    return;
+                }
+            }
+            $CPAN::Frontend->mywarn("Could not find '$l'\n");
+        }
+        $self->debug("it was not a file URL") if $CPAN::DEBUG;
+        if ($CPAN::META->has_usable('LWP')) {
+            $CPAN::Frontend->myprint("Fetching with LWP:\n$url\n");
+            unless ($Ua) {
+                CPAN::LWP::UserAgent->config;
+                eval { $Ua = CPAN::LWP::UserAgent->new; };
+                if ($@) {
+                    $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n");
+                }
+            }
+            my $res = $Ua->mirror($url, $aslocal);
+            if ($res->is_success) {
+                $ThesiteURL = $ro_url;
+                my $now = time;
+                utime $now, $now, $aslocal; # download time is more
+                                            # important than upload
+                                            # time
+                return $aslocal;
+            } elsif ($url !~ /\.gz(?!\n)\Z/) {
+                my $gzurl = "$url.gz";
+                $CPAN::Frontend->myprint("Fetching with LWP:\n$gzurl\n");
+                $res = $Ua->mirror($gzurl, "$aslocal.gz");
+                if ($res->is_success) {
+                    if (eval {CPAN::Tarzip->new("$aslocal.gz")->gunzip($aslocal)}) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                }
+            } else {
+                $CPAN::Frontend->myprint(sprintf(
+                                                 "LWP failed with code[%s] message[%s]\n",
+                                                 $res->code,
+                                                 $res->message,
+                                                ));
+                # Alan Burlison informed me that in firewall environments
+                # Net::FTP can still succeed where LWP fails. So we do not
+                # skip Net::FTP anymore when LWP is available.
+            }
+        } elsif ($url =~ /^http:/i && $CPAN::META->has_usable('HTTP::Tiny')) {
+            require CPAN::HTTP::Client;
+            my $chc = CPAN::HTTP::Client->new(
+                proxy => $CPAN::Config->{http_proxy} || $ENV{http_proxy},
+                no_proxy => $CPAN::Config->{no_proxy} || $ENV{no_proxy},
+            );
+            for my $try ( $url, ( $url !~ /\.gz(?!\n)\Z/ ? "$url.gz" : () ) ) {
+                $CPAN::Frontend->myprint("Fetching with HTTP::Tiny:\n$try\n");
+                my $res = eval { $chc->mirror($try, $aslocal) };
+                if ( $res && $res->{success} ) {
+                    $ThesiteURL = $ro_url;
+                    my $now = time;
+                    utime $now, $now, $aslocal; # download time is more
+                                                # important than upload
+                                                # time
+                    return $aslocal;
+                }
+                elsif ( $res && $res->{status} ne '599') {
+                    $CPAN::Frontend->myprint(sprintf(
+                            "HTTP::Tiny failed with code[%s] message[%s]\n",
+                            $res->{status},
+                            $res->{reason},
+                        )
+                    );
+                }
+                elsif ( $res && $res->{status} eq '599') {
+                    $CPAN::Frontend->myprint(sprintf(
+                            "HTTP::Tiny failed with an internal error: %s\n",
+                            $res->{content},
+                        )
+                    );
+                }
+                else {
+                    my $err = $@ || 'Unknown error';
+                    $CPAN::Frontend->myprint(sprintf(
+                            "Error downloading with HTTP::Tiny: %s\n", $err
+                        )
+                    );
+                }
+            }
+        }
+        return if $CPAN::Signal;
+        if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+            # that's the nice and easy way thanks to Graham
+            $self->debug("recognized ftp") if $CPAN::DEBUG;
+            my($host,$dir,$getfile) = ($1,$2,$3);
+            if ($CPAN::META->has_usable('Net::FTP')) {
+                $dir =~ s|/+|/|g;
+                $CPAN::Frontend->myprint("Fetching with Net::FTP:\n$url\n");
+                $self->debug("getfile[$getfile]dir[$dir]host[$host]" .
+                             "aslocal[$aslocal]") if $CPAN::DEBUG;
+                if (CPAN::FTP->ftp_get($host,$dir,$getfile,$aslocal)) {
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                }
+                if ($aslocal !~ /\.gz(?!\n)\Z/) {
+                    my $gz = "$aslocal.gz";
+                    $CPAN::Frontend->myprint("Fetching with Net::FTP\n$url.gz\n");
+                    if (CPAN::FTP->ftp_get($host,
+                                           $dir,
+                                           "$getfile.gz",
+                                           $gz) &&
+                        eval{CPAN::Tarzip->new($gz)->gunzip($aslocal)}
+                    ) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                }
+                # next HOSTEASY;
+            } else {
+                CPAN->debug("Net::FTP does not count as usable atm") if $CPAN::DEBUG;
+            }
+        }
+        if (
+            UNIVERSAL::can($ro_url,"text")
+            and
+            $ro_url->{FROM} eq "USER"
+           ) {
+            ##address #17973: default URLs should not try to override
+            ##user-defined URLs just because LWP is not available
+            my $ret = $self->hostdlhard([$ro_url],$file,$aslocal,$stats);
+            return $ret if $ret;
+        }
+        return if $CPAN::Signal;
+    }
+}
+
+# package CPAN::FTP;
+sub hostdlhard {
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+
+    # Came back if Net::FTP couldn't establish connection (or
+    # failed otherwise) Maybe they are behind a firewall, but they
+    # gave us a socksified (or other) ftp program...
+
+    my($ro_url);
+    my($devnull) = $CPAN::Config->{devnull} || "";
+    # < /dev/null ";
+    my($aslocal_dir) = dirname($aslocal);
+    mkpath($aslocal_dir);
+    my $some_dl_success = 0;
+    my $any_attempt = 0;
+ HOSTHARD: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dlhard",$ro_url);
+        my $url = "$ro_url$file";
+        my($proto,$host,$dir,$getfile);
+
+        # Courtesy Mark Conty mark_conty@cargill.com change from
+        # if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+        # to
+        if ($url =~ m|^([^:]+)://(.*?)/(.*)/(.*)|) {
+            # proto not yet used
+            ($proto,$host,$dir,$getfile) = ($1,$2,$3,$4);
+        } else {
+            next HOSTHARD; # who said, we could ftp anything except ftp?
+        }
+        next HOSTHARD if $proto eq "file"; # file URLs would have had
+                                           # success above. Likely a bogus URL
+
+        # making at least one attempt against a host
+        $any_attempt++;
+
+        $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG;
+
+        # Try the most capable first and leave ncftp* for last as it only
+        # does FTP.
+        my $proxy_vars = $self->_proxy_vars($ro_url);
+      DLPRG: for my $f (qw(curl wget lynx ncftpget ncftp)) {
+            my $funkyftp = CPAN::HandleConfig->safe_quote($CPAN::Config->{$f});
+            next DLPRG unless defined $funkyftp;
+            next DLPRG if $funkyftp =~ /^\s*$/;
+
+            my($src_switch) = "";
+            my($chdir) = "";
+            my($stdout_redir) = " > \"$aslocal\"";
+            if ($f eq "lynx") {
+                $src_switch = " -source";
+            } elsif ($f eq "ncftp") {
+                next DLPRG unless $url =~ m{\Aftp://};
+                $src_switch = " -c";
+            } elsif ($f eq "wget") {
+                $src_switch = " -O \"$aslocal\"";
+                $stdout_redir = "";
+            } elsif ($f eq 'curl') {
+                $src_switch = ' -L -f -s -S --netrc-optional';
+                if ($proxy_vars->{http_proxy}) {
+                    $src_switch .= qq{ -U "$proxy_vars->{proxy_user}:$proxy_vars->{proxy_pass}" -x "$proxy_vars->{http_proxy}"};
+                }
+            } elsif ($f eq "ncftpget") {
+                next DLPRG unless $url =~ m{\Aftp://};
+                $chdir = "cd $aslocal_dir && ";
+                $stdout_redir = "";
+            }
+            $CPAN::Frontend->myprint(
+                                     qq[
+Trying with
+    $funkyftp$src_switch
+to get
+    $url
+]);
+            my($system) =
+                "$chdir$funkyftp$src_switch \"$url\" $devnull$stdout_redir";
+            $self->debug("system[$system]") if $CPAN::DEBUG;
+            my($wstatus) = system($system);
+            if ($f eq "lynx") {
+                # lynx returns 0 when it fails somewhere
+                if (-s $aslocal) {
+                    my $content = do { local *FH;
+                                       open FH, $aslocal or die;
+                                       local $/;
+                                       <FH> };
+                    if ($content =~ /^<.*(<title>[45]|Error [45])/si) {
+                        $CPAN::Frontend->mywarn(qq{
+No success, the file that lynx has downloaded looks like an error message:
+$content
+});
+                        $CPAN::Frontend->mysleep(1);
+                        next DLPRG;
+                    }
+                    $some_dl_success++;
+                } else {
+                    $CPAN::Frontend->myprint(qq{
+No success, the file that lynx has downloaded is an empty file.
+});
+                    next DLPRG;
+                }
+            }
+            if ($wstatus == 0) {
+                if (-s $aslocal) {
+                    # Looks good
+                    $some_dl_success++;
+                }
+                $ThesiteURL = $ro_url;
+                return $aslocal;
+            } else {
+                my $estatus = $wstatus >> 8;
+                my $size = -f $aslocal ?
+                    ", left\n$aslocal with size ".-s _ :
+                    "\nWarning: expected file [$aslocal] doesn't exist";
+                $CPAN::Frontend->myprint(qq{
+    Function system("$system")
+    returned status $estatus (wstat $wstatus)$size
+    });
+            }
+            return if $CPAN::Signal;
+        } # download/transfer programs (DLPRG)
+    } # host
+    return unless $any_attempt;
+    if ($some_dl_success) {
+        $CPAN::Frontend->mywarn("Warning: doesn't seem we had substantial success downloading '$aslocal'. Don't know how to proceed.\n");
+    } else {
+        $CPAN::Frontend->mywarn("Warning: no success downloading '$aslocal'. Giving up on it.\n");
+    }
+    return;
+}
+
+#-> CPAN::FTP::_proxy_vars
+sub _proxy_vars {
+    my($self,$url) = @_;
+    my $ret = +{};
+    my $http_proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'};
+    if ($http_proxy) {
+        my($host) = $url =~ m|://([^/:]+)|;
+        my $want_proxy = 1;
+        my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || "";
+        my @noproxy = split /\s*,\s*/, $noproxy;
+        if ($host) {
+          DOMAIN: for my $domain (@noproxy) {
+                if ($host =~ /\Q$domain\E$/) { # cf. LWP::UserAgent
+                    $want_proxy = 0;
+                    last DOMAIN;
+                }
+            }
+        } else {
+            $CPAN::Frontend->mywarn("  Could not determine host from http_proxy '$http_proxy'\n");
+        }
+        if ($want_proxy) {
+            my($user, $pass) =
+                CPAN::HTTP::Credentials->get_proxy_credentials();
+            $ret = {
+                    proxy_user => $user,
+                    proxy_pass => $pass,
+                    http_proxy => $http_proxy
+                  };
+        }
+    }
+    return $ret;
+}
+
+# package CPAN::FTP;
+sub hostdlhardest {
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+
+    return unless @$host_seq;
+    my($ro_url);
+    my($aslocal_dir) = dirname($aslocal);
+    mkpath($aslocal_dir);
+    my $ftpbin = $CPAN::Config->{ftp};
+    unless ($ftpbin && length $ftpbin && MM->maybe_command($ftpbin)) {
+        $CPAN::Frontend->myprint("No external ftp command available\n\n");
+        return;
+    }
+    $CPAN::Frontend->mywarn(qq{
+As a last resort we now switch to the external ftp command '$ftpbin'
+to get '$aslocal'.
+
+Doing so often leads to problems that are hard to diagnose.
+
+If you're the victim of such problems, please consider unsetting the
+ftp config variable with
+
+    o conf ftp ""
+    o conf commit
+
+});
+    $CPAN::Frontend->mysleep(2);
+  HOSTHARDEST: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dlhardest",$ro_url);
+        my $url = "$ro_url$file";
+        $self->debug("localizing ftpwise[$url]") if $CPAN::DEBUG;
+        unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+            next;
+        }
+        my($host,$dir,$getfile) = ($1,$2,$3);
+        my $timestamp = 0;
+        my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
+            $ctime,$blksize,$blocks) = stat($aslocal);
+        $timestamp = $mtime ||= 0;
+        my($netrc) = CPAN::FTP::netrc->new;
+        my($netrcfile) = $netrc->netrc;
+        my($verbose) = $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG ? " -v" : "";
+        my $targetfile = File::Basename::basename($aslocal);
+        my(@dialog);
+        push(
+             @dialog,
+             "lcd $aslocal_dir",
+             "cd /",
+             map("cd $_", split /\//, $dir), # RFC 1738
+             "bin",
+             "passive",
+             "get $getfile $targetfile",
+             "quit"
+        );
+        if (! $netrcfile) {
+            CPAN->debug("No ~/.netrc file found") if $CPAN::DEBUG;
+        } elsif ($netrc->hasdefault || $netrc->contains($host)) {
+            CPAN->debug(sprintf("hasdef[%d]cont($host)[%d]",
+                                $netrc->hasdefault,
+                                $netrc->contains($host))) if $CPAN::DEBUG;
+            if ($netrc->protected) {
+                my $dialog = join "", map { "    $_\n" } @dialog;
+                my $netrc_explain;
+                if ($netrc->contains($host)) {
+                    $netrc_explain = "Relying that your .netrc entry for '$host' ".
+                        "manages the login";
+                } else {
+                    $netrc_explain = "Relying that your default .netrc entry ".
+                        "manages the login";
+                }
+                $CPAN::Frontend->myprint(qq{
+  Trying with external ftp to get
+    '$url'
+  $netrc_explain
+  Sending the dialog
+$dialog
+}
+                );
+                $self->talk_ftp("$ftpbin$verbose $host",
+                                @dialog);
+                ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+                    $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
+                $mtime ||= 0;
+                if ($mtime > $timestamp) {
+                    $CPAN::Frontend->myprint("GOT $aslocal\n");
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                } else {
+                    $CPAN::Frontend->myprint("Hmm... Still failed!\n");
+                }
+                    return if $CPAN::Signal;
+            } else {
+                $CPAN::Frontend->mywarn(qq{Your $netrcfile is not }.
+                                        qq{correctly protected.\n});
+            }
+        } else {
+            $CPAN::Frontend->mywarn("Your ~/.netrc neither contains $host
+  nor does it have a default entry\n");
+        }
+
+        # OK, they don't have a valid ~/.netrc. Use 'ftp -n'
+        # then and login manually to host, using e-mail as
+        # password.
+        $CPAN::Frontend->myprint(qq{Issuing "$ftpbin$verbose -n"\n});
+        unshift(
+                @dialog,
+                "open $host",
+                "user anonymous $Config::Config{'cf_email'}"
+        );
+        my $dialog = join "", map { "    $_\n" } @dialog;
+        $CPAN::Frontend->myprint(qq{
+  Trying with external ftp to get
+    $url
+  Sending the dialog
+$dialog
+}
+        );
+        $self->talk_ftp("$ftpbin$verbose -n", @dialog);
+        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+            $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
+        $mtime ||= 0;
+        if ($mtime > $timestamp) {
+            $CPAN::Frontend->myprint("GOT $aslocal\n");
+            $ThesiteURL = $ro_url;
+            return $aslocal;
+        } else {
+            $CPAN::Frontend->myprint("Bad luck... Still failed!\n");
+        }
+        return if $CPAN::Signal;
+        $CPAN::Frontend->mywarn("Can't access URL $url.\n\n");
+        $CPAN::Frontend->mysleep(2);
+    } # host
+}
+
+# package CPAN::FTP;
+sub talk_ftp {
+    my($self,$command,@dialog) = @_;
+    my $fh = FileHandle->new;
+    $fh->open("|$command") or die "Couldn't open ftp: $!";
+    foreach (@dialog) { $fh->print("$_\n") }
+    $fh->close; # Wait for process to complete
+    my $wstatus = $?;
+    my $estatus = $wstatus >> 8;
+    $CPAN::Frontend->myprint(qq{
+Subprocess "|$command"
+  returned status $estatus (wstat $wstatus)
+}) if $wstatus;
+}
+
+# find2perl needs modularization, too, all the following is stolen
+# from there
+# CPAN::FTP::ls
+sub ls {
+    my($self,$name) = @_;
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizemm,
+     $atime,$mtime,$ctime,$blksize,$blocks) = lstat($name);
+
+    my($perms,%user,%group);
+    my $pname = $name;
+
+    if ($blocks) {
+        $blocks = int(($blocks + 1) / 2);
+    }
+    else {
+        $blocks = int(($sizemm + 1023) / 1024);
+    }
+
+    if    (-f _) { $perms = '-'; }
+    elsif (-d _) { $perms = 'd'; }
+    elsif (-c _) { $perms = 'c'; $sizemm = &sizemm; }
+    elsif (-b _) { $perms = 'b'; $sizemm = &sizemm; }
+    elsif (-p _) { $perms = 'p'; }
+    elsif (-S _) { $perms = 's'; }
+    else         { $perms = 'l'; $pname .= ' -> ' . readlink($_); }
+
+    my(@rwx) = ('---','--x','-w-','-wx','r--','r-x','rw-','rwx');
+    my(@moname) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+    my $tmpmode = $mode;
+    my $tmp = $rwx[$tmpmode & 7];
+    $tmpmode >>= 3;
+    $tmp = $rwx[$tmpmode & 7] . $tmp;
+    $tmpmode >>= 3;
+    $tmp = $rwx[$tmpmode & 7] . $tmp;
+    substr($tmp,2,1) =~ tr/-x/Ss/ if -u _;
+    substr($tmp,5,1) =~ tr/-x/Ss/ if -g _;
+    substr($tmp,8,1) =~ tr/-x/Tt/ if -k _;
+    $perms .= $tmp;
+
+    my $user = $user{$uid} || $uid;   # too lazy to implement lookup
+    my $group = $group{$gid} || $gid;
+
+    my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
+    my($timeyear);
+    my($moname) = $moname[$mon];
+    if (-M _ > 365.25 / 2) {
+        $timeyear = $year + 1900;
+    }
+    else {
+        $timeyear = sprintf("%02d:%02d", $hour, $min);
+    }
+
+    sprintf "%5lu %4ld %-10s %2d %-8s %-8s %8s %s %2d %5s %s\n",
+             $ino,
+                  $blocks,
+                       $perms,
+                             $nlink,
+                                 $user,
+                                      $group,
+                                           $sizemm,
+                                               $moname,
+                                                  $mday,
+                                                      $timeyear,
+                                                          $pname;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::CacheMgr;
+use strict;
+use CPAN::InfoObj;
+@CPAN::CacheMgr::ISA = qw(CPAN::InfoObj CPAN);
+use Cwd qw(chdir);
+use File::Find;
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5002";
+
+package CPAN::CacheMgr;
+use strict;
+
+#-> sub CPAN::CacheMgr::as_string ;
+sub as_string {
+    eval { require Data::Dumper };
+    if ($@) {
+        return shift->SUPER::as_string;
+    } else {
+        return Data::Dumper::Dumper(shift);
+    }
+}
+
+#-> sub CPAN::CacheMgr::cachesize ;
+sub cachesize {
+    shift->{DU};
+}
+
+#-> sub CPAN::CacheMgr::tidyup ;
+sub tidyup {
+  my($self) = @_;
+  return unless $CPAN::META->{LOCK};
+  return unless -d $self->{ID};
+  my @toremove = grep { $self->{SIZE}{$_}==0 } @{$self->{FIFO}};
+  for my $current (0..$#toremove) {
+    my $toremove = $toremove[$current];
+    $CPAN::Frontend->myprint(sprintf(
+                                     "DEL(%d/%d): %s \n",
+                                     $current+1,
+                                     scalar @toremove,
+                                     $toremove,
+                                    )
+                            );
+    return if $CPAN::Signal;
+    $self->_clean_cache($toremove);
+    return if $CPAN::Signal;
+  }
+  $self->{FIFO} = [];
+}
+
+#-> sub CPAN::CacheMgr::dir ;
+sub dir {
+    shift->{ID};
+}
+
+#-> sub CPAN::CacheMgr::entries ;
+sub entries {
+    my($self,$dir) = @_;
+    return unless defined $dir;
+    $self->debug("reading dir[$dir]") if $CPAN::DEBUG;
+    $dir ||= $self->{ID};
+    my($cwd) = CPAN::anycwd();
+    chdir $dir or Carp::croak("Can't chdir to $dir: $!");
+    my $dh = DirHandle->new(File::Spec->curdir)
+        or Carp::croak("Couldn't opendir $dir: $!");
+    my(@entries);
+    for ($dh->read) {
+        next if $_ eq "." || $_ eq "..";
+        if (-f $_) {
+            push @entries, File::Spec->catfile($dir,$_);
+        } elsif (-d _) {
+            push @entries, File::Spec->catdir($dir,$_);
+        } else {
+            $CPAN::Frontend->mywarn("Warning: weird direntry in $dir: $_\n");
+        }
+    }
+    chdir $cwd or Carp::croak("Can't chdir to $cwd: $!");
+    sort { -M $a <=> -M $b} @entries;
+}
+
+#-> sub CPAN::CacheMgr::disk_usage ;
+sub disk_usage {
+    my($self,$dir,$fast) = @_;
+    return if exists $self->{SIZE}{$dir};
+    return if $CPAN::Signal;
+    my($Du) = 0;
+    if (-e $dir) {
+        if (-d $dir) {
+            unless (-x $dir) {
+                unless (chmod 0755, $dir) {
+                    $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
+                                            "permission to change the permission; cannot ".
+                                            "estimate disk usage of '$dir'\n");
+                    $CPAN::Frontend->mysleep(5);
+                    return;
+                }
+            }
+        } elsif (-f $dir) {
+            # nothing to say, no matter what the permissions
+        }
+    } else {
+        $CPAN::Frontend->mywarn("File or directory '$dir' has gone, ignoring\n");
+        return;
+    }
+    if ($fast) {
+        $Du = 0; # placeholder
+    } else {
+        find(
+             sub {
+           $File::Find::prune++ if $CPAN::Signal;
+           return if -l $_;
+           if ($^O eq 'MacOS') {
+             require Mac::Files;
+             my $cat  = Mac::Files::FSpGetCatInfo($_);
+             $Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat;
+           } else {
+             if (-d _) {
+               unless (-x _) {
+                 unless (chmod 0755, $_) {
+                   $CPAN::Frontend->mywarn("I have neither the -x permission nor ".
+                                           "the permission to change the permission; ".
+                                           "can only partially estimate disk usage ".
+                                           "of '$_'\n");
+                   $CPAN::Frontend->mysleep(5);
+                   return;
+                 }
+               }
+             } else {
+               $Du += (-s _);
+             }
+           }
+         },
+         $dir
+            );
+    }
+    return if $CPAN::Signal;
+    $self->{SIZE}{$dir} = $Du/1024/1024;
+    unshift @{$self->{FIFO}}, $dir;
+    $self->debug("measured $dir is $Du") if $CPAN::DEBUG;
+    $self->{DU} += $Du/1024/1024;
+    $self->{DU};
+}
+
+#-> sub CPAN::CacheMgr::_clean_cache ;
+sub _clean_cache {
+    my($self,$dir) = @_;
+    return unless -e $dir;
+    unless (File::Spec->canonpath(File::Basename::dirname($dir))
+            eq File::Spec->canonpath($CPAN::Config->{build_dir})) {
+        $CPAN::Frontend->mywarn("Directory '$dir' not below $CPAN::Config->{build_dir}, ".
+                                "will not remove\n");
+        $CPAN::Frontend->mysleep(5);
+        return;
+    }
+    $self->debug("have to rmtree $dir, will free $self->{SIZE}{$dir}")
+        if $CPAN::DEBUG;
+    File::Path::rmtree($dir);
+    my $id_deleted = 0;
+    if ($dir !~ /\.yml$/ && -f "$dir.yml") {
+        my $yaml_module = CPAN::_yaml_module();
+        if ($CPAN::META->has_inst($yaml_module)) {
+            my($peek_yaml) = eval { CPAN->_yaml_loadfile("$dir.yml"); };
+            if ($@) {
+                $CPAN::Frontend->mywarn("(parse error on '$dir.yml' removing anyway)");
+                unlink "$dir.yml" or
+                    $CPAN::Frontend->mywarn("(Could not unlink '$dir.yml': $!)");
+                return;
+            } elsif (my $id = $peek_yaml->[0]{distribution}{ID}) {
+                $CPAN::META->delete("CPAN::Distribution", $id);
+
+                # XXX we should restore the state NOW, otherwise this
+                # distro does not exist until we read an index. BUG ALERT(?)
+
+                # $CPAN::Frontend->mywarn (" +++\n");
+                $id_deleted++;
+            }
+        }
+        unlink "$dir.yml"; # may fail
+        unless ($id_deleted) {
+            CPAN->debug("no distro found associated with '$dir'");
+        }
+    }
+    $self->{DU} -= $self->{SIZE}{$dir};
+    delete $self->{SIZE}{$dir};
+}
+
+#-> sub CPAN::CacheMgr::new ;
+sub new {
+    my($class,$phase) = @_;
+    $phase ||= "atstart";
+    my $time = time;
+    my($debug,$t2);
+    $debug = "";
+    my $self = {
+        ID => $CPAN::Config->{build_dir},
+        MAX => $CPAN::Config->{'build_cache'},
+        SCAN => $CPAN::Config->{'scan_cache'} || 'atstart',
+        DU => 0
+    };
+    $CPAN::Frontend->mydie("Unknown scan_cache argument: $self->{SCAN}")
+        unless $self->{SCAN} =~ /never|atstart|atexit/;
+    File::Path::mkpath($self->{ID});
+    my $dh = DirHandle->new($self->{ID});
+    bless $self, $class;
+    $self->scan_cache($phase);
+    $t2 = time;
+    $debug .= "timing of CacheMgr->new: ".($t2 - $time);
+    $time = $t2;
+    CPAN->debug($debug) if $CPAN::DEBUG;
+    $self;
+}
+
+#-> sub CPAN::CacheMgr::scan_cache ;
+sub scan_cache {
+    my ($self, $phase) = @_;
+    $phase = '' unless defined $phase;
+    return unless $phase eq $self->{SCAN};
+    return unless $CPAN::META->{LOCK};
+    $CPAN::Frontend->myprint(
+                             sprintf("Scanning cache %s for sizes\n",
+                             $self->{ID}));
+    my $e;
+    my @entries = $self->entries($self->{ID});
+    my $i = 0;
+    my $painted = 0;
+    for $e (@entries) {
+        my $symbol = ".";
+        if ($self->{DU} > $self->{MAX}) {
+            $symbol = "-";
+            $self->disk_usage($e,1);
+        } else {
+            $self->disk_usage($e);
+        }
+        $i++;
+        while (($painted/76) < ($i/@entries)) {
+            $CPAN::Frontend->myprint($symbol);
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+    $self->tidyup;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::InfoObj;
+use strict;
+
+use CPAN::Debug;
+@CPAN::InfoObj::ISA = qw(CPAN::Debug);
+
+use Cwd qw(chdir);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+sub ro {
+    my $self = shift;
+    exists $self->{RO} and return $self->{RO};
+}
+
+#-> sub CPAN::InfoObj::cpan_userid
+sub cpan_userid {
+    my $self = shift;
+    my $ro = $self->ro;
+    if ($ro) {
+        return $ro->{CPAN_USERID} || "N/A";
+    } else {
+        $self->debug("ID[$self->{ID}]");
+        # N/A for bundles found locally
+        return "N/A";
+    }
+}
+
+sub id { shift->{ID}; }
+
+#-> sub CPAN::InfoObj::new ;
+sub new {
+    my $this = bless {}, shift;
+    %$this = @_;
+    $this
+}
+
+# The set method may only be used by code that reads index data or
+# otherwise "objective" data from the outside world. All session
+# related material may do anything else with instance variables but
+# must not touch the hash under the RO attribute. The reason is that
+# the RO hash gets written to Metadata file and is thus persistent.
+
+#-> sub CPAN::InfoObj::safe_chdir ;
+sub safe_chdir {
+  my($self,$todir) = @_;
+  # we die if we cannot chdir and we are debuggable
+  Carp::confess("safe_chdir called without todir argument")
+        unless defined $todir and length $todir;
+  if (chdir $todir) {
+    $self->debug(sprintf "changed directory to %s", CPAN::anycwd())
+        if $CPAN::DEBUG;
+  } else {
+    if (-e $todir) {
+        unless (-x $todir) {
+            unless (chmod 0755, $todir) {
+                my $cwd = CPAN::anycwd();
+                $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
+                                        "permission to change the permission; cannot ".
+                                        "chdir to '$todir'\n");
+                $CPAN::Frontend->mysleep(5);
+                $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }.
+                                       qq{to todir[$todir]: $!});
+            }
+        }
+    } else {
+        $CPAN::Frontend->mydie("Directory '$todir' has gone. Cannot continue.\n");
+    }
+    if (chdir $todir) {
+      $self->debug(sprintf "changed directory to %s", CPAN::anycwd())
+          if $CPAN::DEBUG;
+    } else {
+      my $cwd = CPAN::anycwd();
+      $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }.
+                             qq{to todir[$todir] (a chmod has been issued): $!});
+    }
+  }
+}
+
+#-> sub CPAN::InfoObj::set ;
+sub set {
+    my($self,%att) = @_;
+    my $class = ref $self;
+
+    # This must be ||=, not ||, because only if we write an empty
+    # reference, only then the set method will write into the readonly
+    # area. But for Distributions that spring into existence, maybe
+    # because of a typo, we do not like it that they are written into
+    # the readonly area and made permanent (at least for a while) and
+    # that is why we do not "allow" other places to call ->set.
+    unless ($self->id) {
+        CPAN->debug("Bug? Empty ID, rejecting");
+        return;
+    }
+    my $ro = $self->{RO} =
+        $CPAN::META->{readonly}{$class}{$self->id} ||= {};
+
+    while (my($k,$v) = each %att) {
+        $ro->{$k} = $v;
+    }
+}
+
+#-> sub CPAN::InfoObj::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    my $id = $self->can("pretty_id") ? $self->pretty_id : $self->{ID};
+    push @m, sprintf "%-15s %s\n", $class, $id;
+    join "", @m;
+}
+
+#-> sub CPAN::InfoObj::as_string ;
+sub as_string {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    push @m, $class, " id = $self->{ID}\n";
+    my $ro;
+    unless ($ro = $self->ro) {
+        if (substr($self->{ID},-1,1) eq ".") { # directory
+            $ro = +{};
+        } else {
+            $CPAN::Frontend->mywarn("Unknown object $self->{ID}\n");
+            $CPAN::Frontend->mysleep(5);
+            return;
+        }
+    }
+    for (sort keys %$ro) {
+        # next if m/^(ID|RO)$/;
+        my $extra = "";
+        if ($_ eq "CPAN_USERID") {
+            $extra .= " (";
+            $extra .= $self->fullname;
+            my $email; # old perls!
+            if ($email = $CPAN::META->instance("CPAN::Author",
+                                               $self->cpan_userid
+                                              )->email) {
+                $extra .= " <$email>";
+            } else {
+                $extra .= " <no email>";
+            }
+            $extra .= ")";
+        } elsif ($_ eq "FULLNAME") { # potential UTF-8 conversion
+            push @m, sprintf "    %-12s %s\n", $_, $self->fullname;
+            next;
+        }
+        next unless defined $ro->{$_};
+        push @m, sprintf "    %-12s %s%s\n", $_, $ro->{$_}, $extra;
+    }
+  KEY: for (sort keys %$self) {
+        next if m/^(ID|RO)$/;
+        unless (defined $self->{$_}) {
+            delete $self->{$_};
+            next KEY;
+        }
+        if (ref($self->{$_}) eq "ARRAY") {
+            push @m, sprintf "    %-12s %s\n", $_, "@{$self->{$_}}";
+        } elsif (ref($self->{$_}) eq "HASH") {
+            my $value;
+            if (/^CONTAINSMODS$/) {
+                $value = join(" ",sort keys %{$self->{$_}});
+            } elsif (/^prereq_pm$/) {
+                my @value;
+                my $v = $self->{$_};
+                for my $x (sort keys %$v) {
+                    my @svalue;
+                    for my $y (sort keys %{$v->{$x}}) {
+                        push @svalue, "$y=>$v->{$x}{$y}";
+                    }
+                    push @value, "$x\:" . join ",", @svalue if @svalue;
+                }
+                $value = join ";", @value;
+            } else {
+                $value = $self->{$_};
+            }
+            push @m, sprintf(
+                             "    %-12s %s\n",
+                             $_,
+                             $value,
+                            );
+        } else {
+            push @m, sprintf "    %-12s %s\n", $_, $self->{$_};
+        }
+    }
+    join "", @m, "\n";
+}
+
+#-> sub CPAN::InfoObj::fullname ;
+sub fullname {
+    my($self) = @_;
+    $CPAN::META->instance("CPAN::Author",$self->cpan_userid)->fullname;
+}
+
+#-> sub CPAN::InfoObj::dump ;
+sub dump {
+    my($self, $what) = @_;
+    unless ($CPAN::META->has_inst("Data::Dumper")) {
+        $CPAN::Frontend->mydie("dump command requires Data::Dumper installed");
+    }
+    local $Data::Dumper::Sortkeys;
+    $Data::Dumper::Sortkeys = 1;
+    my $out = Data::Dumper::Dumper($what ? eval $what : $self);
+    if (length $out > 100000) {
+        my $fh_pager = FileHandle->new;
+        local($SIG{PIPE}) = "IGNORE";
+        my $pager = $CPAN::Config->{'pager'} || "cat";
+        $fh_pager->open("|$pager")
+            or die "Could not open pager $pager\: $!";
+        $fh_pager->print($out);
+        close $fh_pager;
+    } else {
+        $CPAN::Frontend->myprint($out);
+    }
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Distribution;
+use strict;
+use Cwd qw(chdir);
+use CPAN::Distroprefs;
+use CPAN::InfoObj;
+use File::Path ();
+@CPAN::Distribution::ISA = qw(CPAN::InfoObj);
+use vars qw($VERSION);
+$VERSION = "2.19";
+
+# no prepare, because prepare is not a command on the shell command line
+# TODO: clear instance cache on reload
+my %instance;
+for my $method (qw(get make test install)) {
+    no strict 'refs';
+    for my $prefix (qw(pre post)) {
+        my $hookname = sprintf "%s_%s", $prefix, $method;
+        *$hookname = sub {
+            my($self) = @_;
+            for my $plugin (@{$CPAN::Config->{plugin_list}}) {
+                my($plugin_proper,$args) = split /=/, $plugin, 2;
+                $args = "" unless defined $args;
+                if ($CPAN::META->has_inst($plugin_proper)){
+                    my @args = split /,/, $args;
+                    $instance{$plugin} ||= $plugin_proper->new(@args);
+                    if ($instance{$plugin}->can($hookname)) {
+                        $instance{$plugin}->$hookname($self);
+                    }
+                } else {
+                    $CPAN::Frontend->mydie("Plugin '$plugin_proper' not found");
+                }
+            }
+        };
+    }
+}
+
+# Accessors
+sub cpan_comment {
+    my $self = shift;
+    my $ro = $self->ro or return;
+    $ro->{CPAN_COMMENT}
+}
+
+#-> CPAN::Distribution::undelay
+sub undelay {
+    my $self = shift;
+    for my $delayer (
+                     "configure_requires_later",
+                     "configure_requires_later_for",
+                     "later",
+                     "later_for",
+                    ) {
+        delete $self->{$delayer};
+    }
+}
+
+#-> CPAN::Distribution::is_dot_dist
+sub is_dot_dist {
+    my($self) = @_;
+    return substr($self->id,-1,1) eq ".";
+}
+
+# add the A/AN/ stuff
+#-> CPAN::Distribution::normalize
+sub normalize {
+    my($self,$s) = @_;
+    $s = $self->id unless defined $s;
+    if (substr($s,-1,1) eq ".") {
+        # using a global because we are sometimes called as static method
+        if (!$CPAN::META->{LOCK}
+            && !$CPAN::Have_warned->{"$s is unlocked"}++
+           ) {
+            $CPAN::Frontend->mywarn("You are visiting the local directory
+  '$s'
+  without lock, take care that concurrent processes do not do likewise.\n");
+            $CPAN::Frontend->mysleep(1);
+        }
+        if ($s eq ".") {
+            $s = "$CPAN::iCwd/.";
+        } elsif (File::Spec->file_name_is_absolute($s)) {
+        } elsif (File::Spec->can("rel2abs")) {
+            $s = File::Spec->rel2abs($s);
+        } else {
+            $CPAN::Frontend->mydie("Your File::Spec is too old, please upgrade File::Spec");
+        }
+        CPAN->debug("s[$s]") if $CPAN::DEBUG;
+        unless ($CPAN::META->exists("CPAN::Distribution", $s)) {
+            for ($CPAN::META->instance("CPAN::Distribution", $s)) {
+                $_->{build_dir} = $s;
+                $_->{archived} = "local_directory";
+                $_->{unwrapped} = CPAN::Distrostatus->new("YES -- local_directory");
+            }
+        }
+    } elsif (
+        $s =~ tr|/|| == 1
+        or
+        $s !~ m|[A-Z]/[A-Z-0-9]{2}/[A-Z-0-9]{2,}/|
+       ) {
+        return $s if $s =~ m:^N/A|^Contact Author: ;
+        $s =~ s|^(.)(.)([^/]*/)(.+)$|$1/$1$2/$1$2$3$4|;
+        CPAN->debug("s[$s]") if $CPAN::DEBUG;
+    }
+    $s;
+}
+
+#-> sub CPAN::Distribution::author ;
+sub author {
+    my($self) = @_;
+    my($authorid);
+    if (substr($self->id,-1,1) eq ".") {
+        $authorid = "LOCAL";
+    } else {
+        ($authorid) = $self->pretty_id =~ /^([\w\-]+)/;
+    }
+    CPAN::Shell->expand("Author",$authorid);
+}
+
+# tries to get the yaml from CPAN instead of the distro itself:
+# EXPERIMENTAL, UNDOCUMENTED AND UNTESTED, for Tels
+sub fast_yaml {
+    my($self) = @_;
+    my $meta = $self->pretty_id;
+    $meta =~ s/\.(tar.gz|tgz|zip|tar.bz2)/.meta/;
+    my(@ls) = CPAN::Shell->globls($meta);
+    my $norm = $self->normalize($meta);
+
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$norm)
+                           );
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    unless ($local_file =
+            CPAN::FTP->localize("authors/id/$norm",
+                                $local_wanted)) {
+        $CPAN::Frontend->mydie("Giving up on downloading yaml file '$local_wanted'\n");
+    }
+    my $yaml = CPAN->_yaml_loadfile($local_file)->[0];
+}
+
+#-> sub CPAN::Distribution::cpan_userid
+sub cpan_userid {
+    my $self = shift;
+    if ($self->{ID} =~ m{[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/}) {
+        return $1;
+    }
+    return $self->SUPER::cpan_userid;
+}
+
+#-> sub CPAN::Distribution::pretty_id
+sub pretty_id {
+    my $self = shift;
+    my $id = $self->id;
+    return $id unless $id =~ m|^./../|;
+    substr($id,5);
+}
+
+#-> sub CPAN::Distribution::base_id
+sub base_id {
+    my $self = shift;
+    my $id = $self->pretty_id();
+    my $base_id = File::Basename::basename($id);
+    $base_id =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i;
+    return $base_id;
+}
+
+#-> sub CPAN::Distribution::tested_ok_but_not_installed
+sub tested_ok_but_not_installed {
+    my $self = shift;
+    return (
+           $self->{make_test}
+        && $self->{build_dir}
+        && (UNIVERSAL::can($self->{make_test},"failed") ?
+             ! $self->{make_test}->failed :
+             $self->{make_test} =~ /^YES/
+            )
+        && (
+            !$self->{install}
+            ||
+            $self->{install}->failed
+           )
+    );
+}
+
+
+# mark as dirty/clean for the sake of recursion detection. $color=1
+# means "in use", $color=0 means "not in use anymore". $color=2 means
+# we have determined prereqs now and thus insist on passing this
+# through (at least) once again.
+
+#-> sub CPAN::Distribution::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a distribution needs to recurse into its prereq_pms
+    $self->debug("color_cmd_tmps[$depth,$color,@$ancestors]") if $CPAN::DEBUG;
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    $CPAN::MAX_RECURSION||=0; # silence 'once' warnings
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        my $e = CPAN::Exception::RecursiveDependency->new($ancestors);
+        if ($e->is_resolvable) {
+            return $self->{incommandcolor}=2;
+        } else {
+            die $e;
+        }
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+    my $prereq_pm = $self->prereq_pm;
+    if (defined $prereq_pm) {
+        # XXX also optional_req & optional_breq? -- xdg, 2012-04-01
+        # A: no, optional deps may recurse -- ak, 2014-05-07
+      PREREQ: for my $pre (sort(
+                keys %{$prereq_pm->{requires}||{}},
+                keys %{$prereq_pm->{build_requires}||{}},
+            )) {
+            next PREREQ if $pre eq "perl";
+            my $premo;
+            unless ($premo = CPAN::Shell->expand("Module",$pre)) {
+                $CPAN::Frontend->mywarn("prerequisite module[$pre] not known\n");
+                $CPAN::Frontend->mysleep(0.2);
+                next PREREQ;
+            }
+            $premo->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+        }
+    }
+    if ($color==0) {
+        delete $self->{sponsored_mods};
+
+        # as we are at the end of a command, we'll give up this
+        # reminder of a broken test. Other commands may test this guy
+        # again. Maybe 'badtestcnt' should be renamed to
+        # 'make_test_failed_within_command'?
+        delete $self->{badtestcnt};
+    }
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Distribution::as_string ;
+sub as_string {
+    my $self = shift;
+    $self->containsmods;
+    $self->upload_date;
+    $self->SUPER::as_string(@_);
+}
+
+#-> sub CPAN::Distribution::containsmods ;
+sub containsmods {
+    my $self = shift;
+    return sort keys %{$self->{CONTAINSMODS}} if exists $self->{CONTAINSMODS};
+    my $dist_id = $self->{ID};
+    for my $mod ($CPAN::META->all_objects("CPAN::Module")) {
+        my $mod_file = $mod->cpan_file or next;
+        my $mod_id = $mod->{ID} or next;
+        # warn "mod_file[$mod_file] dist_id[$dist_id] mod_id[$mod_id]";
+        # sleep 1;
+        if ($CPAN::Signal) {
+            delete $self->{CONTAINSMODS};
+            return;
+        }
+        $self->{CONTAINSMODS}{$mod_id} = undef if $mod_file eq $dist_id;
+    }
+    sort keys %{$self->{CONTAINSMODS}||={}};
+}
+
+#-> sub CPAN::Distribution::upload_date ;
+sub upload_date {
+    my $self = shift;
+    return $self->{UPLOAD_DATE} if exists $self->{UPLOAD_DATE};
+    my(@local_wanted) = split(/\//,$self->id);
+    my $filename = pop @local_wanted;
+    push @local_wanted, "CHECKSUMS";
+    my $author = CPAN::Shell->expand("Author",$self->cpan_userid);
+    return unless $author;
+    my @dl = $author->dir_listing(\@local_wanted,0,$CPAN::Config->{show_upload_date});
+    return unless @dl;
+    my($dirent) = grep { $_->[2] eq $filename } @dl;
+    # warn sprintf "dirent[%s]id[%s]", $dirent, $self->id;
+    return unless $dirent->[1];
+    return $self->{UPLOAD_DATE} = $dirent->[1];
+}
+
+#-> sub CPAN::Distribution::uptodate ;
+sub uptodate {
+    my($self) = @_;
+    my $c;
+    foreach $c ($self->containsmods) {
+        my $obj = CPAN::Shell->expandany($c);
+        unless ($obj->uptodate) {
+            my $id = $self->pretty_id;
+            $self->debug("$id not uptodate due to $c") if $CPAN::DEBUG;
+            return 0;
+        }
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::called_for ;
+sub called_for {
+    my($self,$id) = @_;
+    $self->{CALLED_FOR} = $id if defined $id;
+    return $self->{CALLED_FOR};
+}
+
+#-> sub CPAN::Distribution::shortcut_get ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_get {
+    my ($self) = @_;
+
+    if (my $why = $self->check_disabled) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO $why");
+        # XXX why is this goodbye() instead of just print/warn?
+        # Alternatively, should other print/warns here be goodbye()?
+        # -- xdg, 2012-04-05
+        return $self->goodbye("[disabled] -- NA $why");
+    }
+
+    $self->debug("checking already unwrapped[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{build_dir} && -d $self->{build_dir}) {
+        # this deserves print, not warn:
+        return $self->success("Has already been unwrapped into directory ".
+            "$self->{build_dir}"
+        );
+    }
+
+    # XXX I'm not sure this should be here because it's not really
+    # a test for whether get should continue or return; this is
+    # a side effect -- xdg, 2012-04-05
+    $self->debug("checking missing build_dir[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{build_dir} && ! -d $self->{build_dir}){
+        # we have lost it.
+        $self->fforce(""); # no method to reset all phases but not set force (dodge)
+        return undef; # no shortcut
+    }
+
+    # although we talk about 'force' we shall not test on
+    # force directly. New model of force tries to refrain from
+    # direct checking of force.
+    $self->debug("checking unwrapping error[$self->{ID}]") if $CPAN::DEBUG;
+    if ( exists $self->{unwrapped} and (
+            UNIVERSAL::can($self->{unwrapped},"failed") ?
+            $self->{unwrapped}->failed :
+            $self->{unwrapped} =~ /^NO/ )
+    ) {
+        return $self->goodbye("Unwrapping had some problem, won't try again without force");
+    }
+
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::get ;
+sub get {
+    my($self) = @_;
+
+    $self->pre_get();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    if ( defined( my $sc = $self->shortcut_get) ) {
+        return $sc;
+    }
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # get
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    my $sub_wd = CPAN::anycwd(); # for cleaning up as good as possible
+
+    my($local_file);
+    # XXX I don't think this check needs to be here, as it
+    # is already checked in shortcut_get() -- xdg, 2012-04-05
+    unless ($self->{build_dir} && -d $self->{build_dir}) {
+        $self->get_file_onto_local_disk;
+        return if $CPAN::Signal;
+        $self->check_integrity;
+        return if $CPAN::Signal;
+        (my $packagedir,$local_file) = $self->run_preps_on_packagedir;
+        # XXX why is this check here? -- xdg, 2012-04-08
+        if (exists $self->{writemakefile} && ref $self->{writemakefile}
+           && $self->{writemakefile}->can("failed") &&
+           $self->{writemakefile}->failed) {
+           #
+            return;
+        }
+        $packagedir ||= $self->{build_dir};
+        $self->{build_dir} = $packagedir;
+    }
+
+    # XXX should this move up to after run_preps_on_packagedir?
+    # Otherwise, failing writemakefile can return without
+    # a $CPAN::Signal check -- xdg, 2012-04-05
+    if ($CPAN::Signal) {
+        $self->safe_chdir($sub_wd);
+        return;
+    }
+    return unless $self->patch;
+    $self->store_persistent_state;
+
+    $self->post_get();
+
+    return 1; # success
+}
+
+#-> CPAN::Distribution::get_file_onto_local_disk
+sub get_file_onto_local_disk {
+    my($self) = @_;
+
+    return if $self->is_dot_dist;
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$self->id)
+                           );
+
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    unless ($local_file =
+            CPAN::FTP->localize("authors/id/$self->{ID}",
+                                $local_wanted)) {
+        my $note = "";
+        if ($CPAN::Index::DATE_OF_02) {
+            $note = "Note: Current database in memory was generated ".
+                "on $CPAN::Index::DATE_OF_02\n";
+        }
+        $CPAN::Frontend->mydie("Giving up on '$local_wanted'\n$note");
+    }
+
+    $self->debug("local_wanted[$local_wanted]local_file[$local_file]") if $CPAN::DEBUG;
+    $self->{localfile} = $local_file;
+}
+
+
+#-> CPAN::Distribution::check_integrity
+sub check_integrity {
+    my($self) = @_;
+
+    return if $self->is_dot_dist;
+    if ($CPAN::META->has_inst("Digest::SHA")) {
+        $self->debug("Digest::SHA is installed, verifying");
+        $self->verifyCHECKSUM;
+    } else {
+        $self->debug("Digest::SHA is NOT installed");
+    }
+}
+
+#-> CPAN::Distribution::run_preps_on_packagedir
+sub run_preps_on_packagedir {
+    my($self) = @_;
+    return if $self->is_dot_dist;
+
+    $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new(); # unsafe meta access, ok
+    my $builddir = $CPAN::META->{cachemgr}->dir; # unsafe meta access, ok
+    $self->safe_chdir($builddir);
+    $self->debug("Removing tmp-$$") if $CPAN::DEBUG;
+    File::Path::rmtree("tmp-$$");
+    unless (mkdir "tmp-$$", 0755) {
+        $CPAN::Frontend->unrecoverable_error(<<EOF);
+Couldn't mkdir '$builddir/tmp-$$': $!
+
+Cannot continue: Please find the reason why I cannot make the
+directory
+$builddir/tmp-$$
+and fix the problem, then retry.
+
+EOF
+    }
+    if ($CPAN::Signal) {
+        return;
+    }
+    $self->safe_chdir("tmp-$$");
+
+    #
+    # Unpack the goods
+    #
+    my $local_file = $self->{localfile};
+    my $ct = eval{CPAN::Tarzip->new($local_file)};
+    unless ($ct) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO");
+        delete $self->{build_dir};
+        return;
+    }
+    if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) {
+        $self->{was_uncompressed}++ unless eval{$ct->gtest()};
+        $self->untar_me($ct);
+    } elsif ( $local_file =~ /\.zip(?!\n)\Z/i ) {
+        $self->unzip_me($ct);
+    } else {
+        $self->{was_uncompressed}++ unless $ct->gtest();
+        $local_file = $self->handle_singlefile($local_file);
+    }
+
+    # we are still in the tmp directory!
+    # Let's check if the package has its own directory.
+    my $dh = DirHandle->new(File::Spec->curdir)
+        or Carp::croak("Couldn't opendir .: $!");
+    my @readdir = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh->read; ### MAC??
+    if (grep { $_ eq "pax_global_header" } @readdir) {
+        $CPAN::Frontend->mywarn("Your (un)tar seems to have extracted a file named 'pax_global_header'
+from the tarball '$local_file'.
+This is almost certainly an error. Please upgrade your tar.
+I'll ignore this file for now.
+See also http://rt.cpan.org/Ticket/Display.html?id=38932\n");
+        $CPAN::Frontend->mysleep(5);
+        @readdir = grep { $_ ne "pax_global_header" } @readdir;
+    }
+    $dh->close;
+    my $tdir_base;
+    my $from_dir;
+    my @dirents;
+    if (@readdir == 1 && -d $readdir[0]) {
+        $tdir_base = $readdir[0];
+        $from_dir = File::Spec->catdir(File::Spec->curdir,$readdir[0]);
+        my $dh2;
+        unless ($dh2 = DirHandle->new($from_dir)) {
+            my($mode) = (stat $from_dir)[2];
+            my $why = sprintf
+                (
+                 "Couldn't opendir '%s', mode '%o': %s",
+                 $from_dir,
+                 $mode,
+                 $!,
+                );
+            $CPAN::Frontend->mywarn("$why\n");
+            $self->{writemakefile} = CPAN::Distrostatus->new("NO -- $why");
+            return;
+        }
+        @dirents = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh2->read; ### MAC??
+    } else {
+        my $userid = $self->cpan_userid;
+        CPAN->debug("userid[$userid]");
+        if (!$userid or $userid eq "N/A") {
+            $userid = "anon";
+        }
+        $tdir_base = $userid;
+        $from_dir = File::Spec->curdir;
+        @dirents = @readdir;
+    }
+    eval { File::Path::mkpath $builddir; };
+    if ($@) {
+        $CPAN::Frontend->mydie("Cannot create directory $builddir: $@");
+    }
+    my $packagedir;
+    my $eexist = $CPAN::META->has_usable("Errno") ? &Errno::EEXIST : undef;
+    for(my $suffix = 0; ; $suffix++) {
+        $packagedir = File::Spec->catdir($builddir, "$tdir_base-$suffix");
+        my $parent = $builddir;
+        mkdir($packagedir, 0777) and last;
+        if((defined($eexist) && $! != $eexist) || $suffix == 999) {
+            $CPAN::Frontend->mydie("Cannot create directory $packagedir: $!\n");
+        }
+    }
+    my $f;
+    for $f (@dirents) { # is already without "." and ".."
+        my $from = File::Spec->catfile($from_dir,$f);
+        my $to = File::Spec->catfile($packagedir,$f);
+        unless (File::Copy::move($from,$to)) {
+            my $err = $!;
+            $from = File::Spec->rel2abs($from);
+            $CPAN::Frontend->mydie(
+                "Couldn't move $from to $to: $err; #82295? ".
+                "CPAN::VERSION=$CPAN::VERSION; ".
+                "File::Copy::VERSION=$File::Copy::VERSION; ".
+                "$from " . (-e $from ? "exists; " : "does not exist; ").
+                "$to " . (-e $to ? "exists; " : "does not exist; ").
+                "cwd=" . CPAN::anycwd() . ";"
+            );
+        }
+    }
+    $self->{build_dir} = $packagedir;
+    $self->safe_chdir($builddir);
+    File::Path::rmtree("tmp-$$");
+
+    $self->safe_chdir($packagedir);
+    $self->_signature_business();
+    $self->safe_chdir($builddir);
+
+    return($packagedir,$local_file);
+}
+
+#-> sub CPAN::Distribution::pick_meta_file ;
+sub pick_meta_file {
+    my($self, $filter) = @_;
+    $filter = '.' unless defined $filter;
+
+    my $build_dir;
+    unless ($build_dir = $self->{build_dir}) {
+        # maybe permission on build_dir was missing
+        $CPAN::Frontend->mywarn("Warning: cannot determine META.yml without a build_dir.\n");
+        return;
+    }
+
+    my $has_cm = $CPAN::META->has_usable("CPAN::Meta");
+    my $has_pcm = $CPAN::META->has_usable("Parse::CPAN::Meta");
+
+    my @choices;
+    push @choices, 'MYMETA.json' if $has_cm;
+    push @choices, 'MYMETA.yml' if $has_cm || $has_pcm;
+    push @choices, 'META.json' if $has_cm;
+    push @choices, 'META.yml' if $has_cm || $has_pcm;
+
+    for my $file ( grep { /$filter/ } @choices ) {
+        my $path = File::Spec->catfile( $build_dir, $file );
+        return $path if -f $path
+    }
+
+    return;
+}
+
+#-> sub CPAN::Distribution::parse_meta_yml ;
+sub parse_meta_yml {
+    my($self, $yaml) = @_;
+    $self->debug(sprintf("parse_meta_yml[%s]",$yaml||'undef')) if $CPAN::DEBUG;
+    my $build_dir = $self->{build_dir} or die "PANIC: cannot parse yaml without a build_dir";
+    $yaml ||= File::Spec->catfile($build_dir,"META.yml");
+    $self->debug("meta[$yaml]") if $CPAN::DEBUG;
+    return unless -f $yaml;
+    my $early_yaml;
+    eval {
+        $CPAN::META->has_inst("Parse::CPAN::Meta") or die;
+        die "Parse::CPAN::Meta yaml too old" unless $Parse::CPAN::Meta::VERSION >= "1.40";
+        # P::C::M returns last document in scalar context
+        $early_yaml = Parse::CPAN::Meta::LoadFile($yaml);
+    };
+    unless ($early_yaml) {
+        eval { $early_yaml = CPAN->_yaml_loadfile($yaml)->[0]; };
+    }
+    $self->debug(sprintf("yaml[%s]", $early_yaml || 'UNDEF')) if $CPAN::DEBUG;
+    $self->debug($early_yaml) if $CPAN::DEBUG && $early_yaml;
+    if (!ref $early_yaml or ref $early_yaml ne "HASH"){
+        # fix rt.cpan.org #95271
+        $CPAN::Frontend->mywarn("The content of '$yaml' is not a HASH reference. Cannot use it.\n");
+        return {};
+    }
+    return $early_yaml || undef;
+}
+
+#-> sub CPAN::Distribution::satisfy_requires ;
+# return values: 1 means requirements are satisfied;
+# and 0 means not satisfied (and maybe queued)
+sub satisfy_requires {
+    my ($self) = @_;
+    $self->debug("Entering satisfy_requires") if $CPAN::DEBUG;
+    if (my @prereq = $self->unsat_prereq("later")) {
+        if ($CPAN::DEBUG){
+            require Data::Dumper;
+            my $prereq = Data::Dumper->new(\@prereq)->Terse(1)->Indent(0)->Dump;
+            $self->debug("unsatisfied[$prereq]");
+        }
+        if ($prereq[0][0] eq "perl") {
+            my $need = "requires perl '$prereq[0][1]'";
+            my $id = $self->pretty_id;
+            $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n");
+            $self->{make} = CPAN::Distrostatus->new("NO $need");
+            $self->store_persistent_state;
+            die "[prereq] -- NOT OK\n";
+        } else {
+            my $follow = eval { $self->follow_prereqs("later",@prereq); };
+            if (0) {
+            } elsif ($follow) {
+                return; # we need deps
+            } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) {
+                $CPAN::Frontend->mywarn($@);
+                die "[depend] -- NOT OK\n";
+            }
+        }
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::satisfy_configure_requires ;
+# return values: 1 means configure_require is satisfied;
+# and 0 means not satisfied (and maybe queued)
+sub satisfy_configure_requires {
+    my($self) = @_;
+    $self->debug("Entering satisfy_configure_requires") if $CPAN::DEBUG;
+    my $enable_configure_requires = 1;
+    if (!$enable_configure_requires) {
+        return 1;
+        # if we return 1 here, everything is as before we introduced
+        # configure_requires that means, things with
+        # configure_requires simply fail, all others succeed
+    }
+    my @prereq = $self->unsat_prereq("configure_requires_later");
+    $self->debug(sprintf "configure_requires[%s]", join(",",map {join "/",@$_} @prereq)) if $CPAN::DEBUG;
+    return 1 unless @prereq;
+    $self->debug(\@prereq) if $CPAN::DEBUG;
+    if ($self->{configure_requires_later}) {
+        for my $k (sort keys %{$self->{configure_requires_later_for}||{}}) {
+            if ($self->{configure_requires_later_for}{$k}>1) {
+                my $type = "";
+                for my $p (@prereq) {
+                    if ($p->[0] eq $k) {
+                        $type = $p->[1];
+                    }
+                }
+                $type = " $type" if $type;
+                $CPAN::Frontend->mywarn("Warning: unmanageable(?) prerequisite $k$type");
+                sleep 1;
+            }
+        }
+    }
+    if ($prereq[0][0] eq "perl") {
+        my $need = "requires perl '$prereq[0][1]'";
+        my $id = $self->pretty_id;
+        $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n");
+        $self->{make} = CPAN::Distrostatus->new("NO $need");
+        $self->store_persistent_state;
+        return $self->goodbye("[prereq] -- NOT OK");
+    } else {
+        my $follow = eval {
+            $self->follow_prereqs("configure_requires_later", @prereq);
+        };
+        if (0) {
+        } elsif ($follow) {
+            return; # we need deps
+        } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) {
+            $CPAN::Frontend->mywarn($@);
+            return $self->goodbye("[depend] -- NOT OK");
+        }
+        else {
+          return $self->goodbye("[configure_requires] -- NOT OK");
+        }
+    }
+    die "never reached";
+}
+
+#-> sub CPAN::Distribution::choose_MM_or_MB ;
+sub choose_MM_or_MB {
+    my($self) = @_;
+    $self->satisfy_configure_requires() or return;
+    my $local_file = $self->{localfile};
+    my($mpl) = File::Spec->catfile($self->{build_dir},"Makefile.PL");
+    my($mpl_exists) = -f $mpl;
+    unless ($mpl_exists) {
+        # NFS has been reported to have racing problems after the
+        # renaming of a directory in some environments.
+        # This trick helps.
+        $CPAN::Frontend->mysleep(1);
+        my $mpldh = DirHandle->new($self->{build_dir})
+            or Carp::croak("Couldn't opendir $self->{build_dir}: $!");
+        $mpl_exists = grep /^Makefile\.PL$/, $mpldh->read;
+        $mpldh->close;
+    }
+    my $prefer_installer = "eumm"; # eumm|mb
+    if (-f File::Spec->catfile($self->{build_dir},"Build.PL")) {
+        if ($mpl_exists) { # they *can* choose
+            if ($CPAN::META->has_inst("Module::Build")) {
+                $prefer_installer = CPAN::HandleConfig->prefs_lookup(
+                  $self, q{prefer_installer}
+                );
+                # M::B <= 0.35 left a DATA handle open that
+                # causes problems upgrading M::B on Windows
+                close *Module::Build::Version::DATA
+                  if fileno *Module::Build::Version::DATA;
+            }
+        } else {
+            $prefer_installer = "mb";
+        }
+    }
+    if (lc($prefer_installer) eq "rand") {
+        $prefer_installer = rand()<.5 ? "eumm" : "mb";
+    }
+    if (lc($prefer_installer) eq "mb") {
+        $self->{modulebuild} = 1;
+    } elsif ($self->{archived} eq "patch") {
+        # not an edge case, nothing to install for sure
+        my $why = "A patch file cannot be installed";
+        $CPAN::Frontend->mywarn("Refusing to handle this file: $why\n");
+        $self->{writemakefile} = CPAN::Distrostatus->new("NO $why");
+    } elsif (! $mpl_exists) {
+        $self->_edge_cases($mpl,$local_file);
+    }
+    if ($self->{build_dir}
+        &&
+        $CPAN::Config->{build_dir_reuse}
+       ) {
+        $self->store_persistent_state;
+    }
+    return $self;
+}
+
+# see also reanimate_build_dir
+#-> CPAN::Distribution::store_persistent_state
+sub store_persistent_state {
+    my($self) = @_;
+    my $dir = $self->{build_dir};
+    unless (defined $dir && length $dir) {
+        my $id = $self->id;
+        $CPAN::Frontend->mywarnonce("build_dir of $id is not known, ".
+                                    "will not store persistent state\n");
+        return;
+    }
+    # self-build-dir
+    my $sbd = Cwd::realpath(
+        File::Spec->catdir($dir,                       File::Spec->updir ())
+                           );
+    # config-build-dir
+    my $cbd = Cwd::realpath(
+        # the catdir is a workaround for bug https://rt.cpan.org/Ticket/Display.html?id=101283
+        File::Spec->catdir($CPAN::Config->{build_dir}, File::Spec->curdir())
+    );
+    unless ($sbd eq $cbd) {
+        $CPAN::Frontend->mywarnonce("Directory '$dir' not below $CPAN::Config->{build_dir}, ".
+                                    "will not store persistent state\n");
+        return;
+    }
+    my $file = sprintf "%s.yml", $dir;
+    my $yaml_module = CPAN::_yaml_module();
+    if ($CPAN::META->has_inst($yaml_module)) {
+        CPAN->_yaml_dumpfile(
+                             $file,
+                             {
+                              time => time,
+                              perl => CPAN::_perl_fingerprint(),
+                              distribution => $self,
+                             }
+                            );
+    } else {
+        $CPAN::Frontend->myprintonce("'$yaml_module' not installed, ".
+                                    "will not store persistent state\n");
+    }
+}
+
+#-> CPAN::Distribution::try_download
+sub try_download {
+    my($self,$patch) = @_;
+    my $norm = $self->normalize($patch);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$norm),
+                           );
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    return CPAN::FTP->localize("authors/id/$norm",
+                               $local_wanted);
+}
+
+{
+    my $stdpatchargs = "";
+    #-> CPAN::Distribution::patch
+    sub patch {
+        my($self) = @_;
+        $self->debug("checking patches id[$self->{ID}]") if $CPAN::DEBUG;
+        my $patches = $self->prefs->{patches};
+        $patches ||= "";
+        $self->debug("patches[$patches]") if $CPAN::DEBUG;
+        if ($patches) {
+            return unless @$patches;
+            $self->safe_chdir($self->{build_dir});
+            CPAN->debug("patches[$patches]") if $CPAN::DEBUG;
+            my $patchbin = $CPAN::Config->{patch};
+            unless ($patchbin && length $patchbin) {
+                $CPAN::Frontend->mydie("No external patch command configured\n\n".
+                                       "Please run 'o conf init /patch/'\n\n");
+            }
+            unless (MM->maybe_command($patchbin)) {
+                $CPAN::Frontend->mydie("No external patch command available\n\n".
+                                       "Please run 'o conf init /patch/'\n\n");
+            }
+            $patchbin = CPAN::HandleConfig->safe_quote($patchbin);
+            local $ENV{PATCH_GET} = 0; # formerly known as -g0
+            unless ($stdpatchargs) {
+                my $system = "$patchbin --version |";
+                local *FH;
+                open FH, $system or die "Could not fork '$system': $!";
+                local $/ = "\n";
+                my $pversion;
+              PARSEVERSION: while (<FH>) {
+                    if (/^patch\s+([\d\.]+)/) {
+                        $pversion = $1;
+                        last PARSEVERSION;
+                    }
+                }
+                if ($pversion) {
+                    $stdpatchargs = "-N --fuzz=3";
+                } else {
+                    $stdpatchargs = "-N";
+                }
+            }
+            my $countedpatches = @$patches == 1 ? "1 patch" : (scalar @$patches . " patches");
+            $CPAN::Frontend->myprint("Applying $countedpatches:\n");
+            my $patches_dir = $CPAN::Config->{patches_dir};
+            for my $patch (@$patches) {
+                if ($patches_dir && !File::Spec->file_name_is_absolute($patch)) {
+                    my $f = File::Spec->catfile($patches_dir, $patch);
+                    $patch = $f if -f $f;
+                }
+                unless (-f $patch) {
+                    CPAN->debug("not on disk: patch[$patch]") if $CPAN::DEBUG;
+                    if (my $trydl = $self->try_download($patch)) {
+                        $patch = $trydl;
+                    } else {
+                        my $fail = "Could not find patch '$patch'";
+                        $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                        delete $self->{build_dir};
+                        return;
+                    }
+                }
+                $CPAN::Frontend->myprint("  $patch\n");
+                my $readfh = CPAN::Tarzip->TIEHANDLE($patch);
+
+                my $pcommand;
+                my($ppp,$pfiles) = $self->_patch_p_parameter($readfh);
+                if ($ppp eq "applypatch") {
+                    $pcommand = "$CPAN::Config->{applypatch} -verbose";
+                } else {
+                    my $thispatchargs = join " ", $stdpatchargs, $ppp;
+                    $pcommand = "$patchbin $thispatchargs";
+                    require Config; # usually loaded from CPAN.pm
+                    if ($Config::Config{osname} eq "solaris") {
+                        # native solaris patch cannot patch readonly files
+                        for my $file (@{$pfiles||[]}) {
+                            my @stat = stat $file or next;
+                            chmod $stat[2] | 0600, $file; # may fail
+                        }
+                    }
+                }
+
+                $readfh = CPAN::Tarzip->TIEHANDLE($patch); # open again
+                my $writefh = FileHandle->new;
+                $CPAN::Frontend->myprint("  $pcommand\n");
+                unless (open $writefh, "|$pcommand") {
+                    my $fail = "Could not fork '$pcommand'";
+                    $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                    $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                    delete $self->{build_dir};
+                    return;
+                }
+                binmode($writefh);
+                while (my $x = $readfh->READLINE) {
+                    print $writefh $x;
+                }
+                unless (close $writefh) {
+                    my $fail = "Could not apply patch '$patch'";
+                    $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                    $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                    delete $self->{build_dir};
+                    return;
+                }
+            }
+            $self->{patched}++;
+        }
+        return 1;
+    }
+}
+
+# may return
+# - "applypatch"
+# - ("-p0"|"-p1", $files)
+sub _patch_p_parameter {
+    my($self,$fh) = @_;
+    my $cnt_files   = 0;
+    my $cnt_p0files = 0;
+    my @files;
+    local($_);
+    while ($_ = $fh->READLINE) {
+        if (
+            $CPAN::Config->{applypatch}
+            &&
+            /\#\#\#\# ApplyPatch data follows \#\#\#\#/
+           ) {
+            return "applypatch"
+        }
+        next unless /^[\*\+]{3}\s(\S+)/;
+        my $file = $1;
+        push @files, $file;
+        $cnt_files++;
+        $cnt_p0files++ if -f $file;
+        CPAN->debug("file[$file]cnt_files[$cnt_files]cnt_p0files[$cnt_p0files]")
+            if $CPAN::DEBUG;
+    }
+    return "-p1" unless $cnt_files;
+    my $opt_p = $cnt_files==$cnt_p0files ? "-p0" : "-p1";
+    return ($opt_p, \@files);
+}
+
+#-> sub CPAN::Distribution::_edge_cases
+# with "configure" or "Makefile" or single file scripts
+sub _edge_cases {
+    my($self,$mpl,$local_file) = @_;
+    $self->debug(sprintf("makefilepl[%s]anycwd[%s]",
+                         $mpl,
+                         CPAN::anycwd(),
+                        )) if $CPAN::DEBUG;
+    my $build_dir = $self->{build_dir};
+    my($configure) = File::Spec->catfile($build_dir,"Configure");
+    if (-f $configure) {
+        # do we have anything to do?
+        $self->{configure} = $configure;
+    } elsif (-f File::Spec->catfile($build_dir,"Makefile")) {
+        $CPAN::Frontend->mywarn(qq{
+Package comes with a Makefile and without a Makefile.PL.
+We\'ll try to build it with that Makefile then.
+});
+        $self->{writemakefile} = CPAN::Distrostatus->new("YES");
+        $CPAN::Frontend->mysleep(2);
+    } else {
+        my $cf = $self->called_for || "unknown";
+        if ($cf =~ m|/|) {
+            $cf =~ s|.*/||;
+            $cf =~ s|\W.*||;
+        }
+        $cf =~ s|[/\\:]||g;     # risk of filesystem damage
+        $cf = "unknown" unless length($cf);
+        if (my $crud = $self->_contains_crud($build_dir)) {
+            my $why = qq{Package contains $crud; not recognized as a perl package, giving up};
+            $CPAN::Frontend->mywarn("$why\n");
+            $self->{writemakefile} = CPAN::Distrostatus->new(qq{NO -- $why});
+            return;
+        }
+        $CPAN::Frontend->mywarn(qq{Package seems to come without Makefile.PL.
+  (The test -f "$mpl" returned false.)
+  Writing one on our own (setting NAME to $cf)\a\n});
+        $self->{had_no_makefile_pl}++;
+        $CPAN::Frontend->mysleep(3);
+
+        # Writing our own Makefile.PL
+
+        my $exefile_stanza = "";
+        if ($self->{archived} eq "maybe_pl") {
+            $exefile_stanza = $self->_exefile_stanza($build_dir,$local_file);
+        }
+
+        my $fh = FileHandle->new;
+        $fh->open(">$mpl")
+            or Carp::croak("Could not open >$mpl: $!");
+        $fh->print(
+                   qq{# This Makefile.PL has been autogenerated by the module CPAN.pm
+# because there was no Makefile.PL supplied.
+# Autogenerated on: }.scalar localtime().qq{
+
+use ExtUtils::MakeMaker;
+WriteMakefile(
+              NAME => q[$cf],$exefile_stanza
+             );
+});
+        $fh->close;
+    }
+}
+
+#-> CPAN;:Distribution::_contains_crud
+sub _contains_crud {
+    my($self,$dir) = @_;
+    my(@dirs, $dh, @files);
+    opendir $dh, $dir or return;
+    my $dirent;
+    for $dirent (readdir $dh) {
+        next if $dirent =~ /^\.\.?$/;
+        my $path = File::Spec->catdir($dir,$dirent);
+        if (-d $path) {
+            push @dirs, $dirent;
+        } elsif (-f $path) {
+            push @files, $dirent;
+        }
+    }
+    if (@dirs && @files) {
+        return "both files[@files] and directories[@dirs]";
+    } elsif (@files > 2) {
+        return "several files[@files] but no Makefile.PL or Build.PL";
+    }
+    return;
+}
+
+#-> CPAN;:Distribution::_exefile_stanza
+sub _exefile_stanza {
+    my($self,$build_dir,$local_file) = @_;
+
+            my $fh = FileHandle->new;
+            my $script_file = File::Spec->catfile($build_dir,$local_file);
+            $fh->open($script_file)
+                or Carp::croak("Could not open script '$script_file': $!");
+            local $/ = "\n";
+            # parse name and prereq
+            my($state) = "poddir";
+            my($name, $prereq) = ("", "");
+            while (<$fh>) {
+                if ($state eq "poddir" && /^=head\d\s+(\S+)/) {
+                    if ($1 eq 'NAME') {
+                        $state = "name";
+                    } elsif ($1 eq 'PREREQUISITES') {
+                        $state = "prereq";
+                    }
+                } elsif ($state =~ m{^(name|prereq)$}) {
+                    if (/^=/) {
+                        $state = "poddir";
+                    } elsif (/^\s*$/) {
+                        # nop
+                    } elsif ($state eq "name") {
+                        if ($name eq "") {
+                            ($name) = /^(\S+)/;
+                            $state = "poddir";
+                        }
+                    } elsif ($state eq "prereq") {
+                        $prereq .= $_;
+                    }
+                } elsif (/^=cut\b/) {
+                    last;
+                }
+            }
+            $fh->close;
+
+            for ($name) {
+                s{.*<}{};       # strip X<...>
+                s{>.*}{};
+            }
+            chomp $prereq;
+            $prereq = join " ", split /\s+/, $prereq;
+            my($PREREQ_PM) = join("\n", map {
+                s{.*<}{};       # strip X<...>
+                s{>.*}{};
+                if (/[\s\'\"]/) { # prose?
+                } else {
+                    s/[^\w:]$//; # period?
+                    " "x28 . "'$_' => 0,";
+                }
+            } split /\s*,\s*/, $prereq);
+
+            if ($name) {
+                my $to_file = File::Spec->catfile($build_dir, $name);
+                rename $script_file, $to_file
+                    or die "Can't rename $script_file to $to_file: $!";
+            }
+
+    return "
+              EXE_FILES => ['$name'],
+              PREREQ_PM => {
+$PREREQ_PM
+                           },
+";
+}
+
+#-> CPAN::Distribution::_signature_business
+sub _signature_business {
+    my($self) = @_;
+    my $check_sigs = CPAN::HandleConfig->prefs_lookup($self,
+                                                      q{check_sigs});
+    if ($check_sigs) {
+        if ($CPAN::META->has_inst("Module::Signature")) {
+            if (-f "SIGNATURE") {
+                $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG;
+                my $rv = Module::Signature::verify();
+                if ($rv != Module::Signature::SIGNATURE_OK() and
+                    $rv != Module::Signature::SIGNATURE_MISSING()) {
+                    $CPAN::Frontend->mywarn(
+                                            qq{\nSignature invalid for }.
+                                            qq{distribution file. }.
+                                            qq{Please investigate.\n\n}
+                                           );
+
+                    my $wrap =
+                        sprintf(qq{I'd recommend removing %s. Some error occurred   }.
+                                qq{while checking its signature, so it could        }.
+                                qq{be invalid. Maybe you have configured            }.
+                                qq{your 'urllist' with a bad URL. Please check this }.
+                                qq{array with 'o conf urllist' and retry. Or        }.
+                                qq{examine the distribution in a subshell. Try
+  look %s
+and run
+  cpansign -v
+},
+                                $self->{localfile},
+                                $self->pretty_id,
+                               );
+                    $self->{signature_verify} = CPAN::Distrostatus->new("NO");
+                    $CPAN::Frontend->mywarn(Text::Wrap::wrap("","",$wrap));
+                    $CPAN::Frontend->mysleep(5) if $CPAN::Frontend->can("mysleep");
+                } else {
+                    $self->{signature_verify} = CPAN::Distrostatus->new("YES");
+                    $self->debug("Module::Signature has verified") if $CPAN::DEBUG;
+                }
+            } else {
+                $CPAN::Frontend->mywarn(qq{Package came without SIGNATURE\n\n});
+            }
+        } else {
+            $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG;
+        }
+    }
+}
+
+#-> CPAN::Distribution::untar_me ;
+sub untar_me {
+    my($self,$ct) = @_;
+    $self->{archived} = "tar";
+    my $result = eval { $ct->untar() };
+    if ($result) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+    } else {
+        # unfortunately we have no $@ here, Tarzip is using mydie which dies with "\n"
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- untar failed");
+    }
+}
+
+# CPAN::Distribution::unzip_me ;
+sub unzip_me {
+    my($self,$ct) = @_;
+    $self->{archived} = "zip";
+    if ($ct->unzip()) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+    } else {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- unzip failed");
+    }
+    return;
+}
+
+sub handle_singlefile {
+    my($self,$local_file) = @_;
+
+    if ( $local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/ ) {
+        $self->{archived} = "pm";
+    } elsif ( $local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/ ) {
+        $self->{archived} = "patch";
+    } else {
+        $self->{archived} = "maybe_pl";
+    }
+
+    my $to = File::Basename::basename($local_file);
+    if ($to =~ s/\.(gz|Z)(?!\n)\Z//) {
+        if (eval{CPAN::Tarzip->new($local_file)->gunzip($to)}) {
+            $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+        } else {
+            $self->{unwrapped} = CPAN::Distrostatus->new("NO -- uncompressing failed");
+        }
+    } else {
+        if (File::Copy::cp($local_file,".")) {
+            $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+        } else {
+            $self->{unwrapped} = CPAN::Distrostatus->new("NO -- copying failed");
+        }
+    }
+    return $to;
+}
+
+#-> sub CPAN::Distribution::new ;
+sub new {
+    my($class,%att) = @_;
+
+    # $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new();
+
+    my $this = { %att };
+    return bless $this, $class;
+}
+
+#-> sub CPAN::Distribution::look ;
+sub look {
+    my($self) = @_;
+
+    if ($^O eq 'MacOS') {
+      $self->Mac::BuildTools::look;
+      return;
+    }
+
+    if (  $CPAN::Config->{'shell'} ) {
+        $CPAN::Frontend->myprint(qq{
+Trying to open a subshell in the build directory...
+});
+    } else {
+        $CPAN::Frontend->myprint(qq{
+Your configuration does not define a value for subshells.
+Please define it with "o conf shell <your shell>"
+});
+        return;
+    }
+    my $dist = $self->id;
+    my $dir;
+    unless ($dir = $self->dir) {
+        $self->get;
+    }
+    unless ($dir ||= $self->dir) {
+        $CPAN::Frontend->mywarn(qq{
+Could not determine which directory to use for looking at $dist.
+});
+        return;
+    }
+    my $pwd  = CPAN::anycwd();
+    $self->safe_chdir($dir);
+    $CPAN::Frontend->myprint(qq{Working directory is $dir\n});
+    {
+        local $ENV{CPAN_SHELL_LEVEL} = $ENV{CPAN_SHELL_LEVEL}||0;
+        $ENV{CPAN_SHELL_LEVEL} += 1;
+        my $shell = CPAN::HandleConfig->safe_quote($CPAN::Config->{'shell'});
+
+        local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+            ? $ENV{PERL5LIB}
+                : ($ENV{PERLLIB} || "");
+
+        local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+        # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # look
+        $CPAN::META->set_perl5lib;
+        local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+        unless (system($shell) == 0) {
+            my $code = $? >> 8;
+            $CPAN::Frontend->mywarn("Subprocess shell exit code $code\n");
+        }
+    }
+    $self->safe_chdir($pwd);
+}
+
+# CPAN::Distribution::cvs_import ;
+sub cvs_import {
+    my($self) = @_;
+    $self->get;
+    my $dir = $self->dir;
+
+    my $package = $self->called_for;
+    my $module = $CPAN::META->instance('CPAN::Module', $package);
+    my $version = $module->cpan_version;
+
+    my $userid = $self->cpan_userid;
+
+    my $cvs_dir = (split /\//, $dir)[-1];
+    $cvs_dir =~ s/-\d+[^-]+(?!\n)\Z//;
+    my $cvs_root =
+      $CPAN::Config->{cvsroot} || $ENV{CVSROOT};
+    my $cvs_site_perl =
+      $CPAN::Config->{cvs_site_perl} || $ENV{CVS_SITE_PERL};
+    if ($cvs_site_perl) {
+        $cvs_dir = "$cvs_site_perl/$cvs_dir";
+    }
+    my $cvs_log = qq{"imported $package $version sources"};
+    $version =~ s/\./_/g;
+    # XXX cvs: undocumented and unclear how it was meant to work
+    my @cmd = ('cvs', '-d', $cvs_root, 'import', '-m', $cvs_log,
+               "$cvs_dir", $userid, "v$version");
+
+    my $pwd  = CPAN::anycwd();
+    chdir($dir) or $CPAN::Frontend->mydie(qq{Could not chdir to "$dir": $!});
+
+    $CPAN::Frontend->myprint(qq{Working directory is $dir\n});
+
+    $CPAN::Frontend->myprint(qq{@cmd\n});
+    system(@cmd) == 0 or
+    # XXX cvs
+        $CPAN::Frontend->mydie("cvs import failed");
+    chdir($pwd) or $CPAN::Frontend->mydie(qq{Could not chdir to "$pwd": $!});
+}
+
+#-> sub CPAN::Distribution::readme ;
+sub readme {
+    my($self) = @_;
+    my($dist) = $self->id;
+    my($sans,$suffix) = $dist =~ /(.+)\.(tgz|tar[\._-]gz|tar\.Z|zip)$/;
+    $self->debug("sans[$sans] suffix[$suffix]\n") if $CPAN::DEBUG;
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,"$sans.readme"),
+                           );
+    my $readme = "authors/id/$sans.readme";
+    $self->debug("Doing localize for '$readme'") if $CPAN::DEBUG;
+    $local_file = CPAN::FTP->localize($readme,
+                                      $local_wanted)
+        or $CPAN::Frontend->mydie(qq{No $sans.readme found});
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::launch_file($local_file);
+        return;
+    }
+
+    my $fh_pager = FileHandle->new;
+    local($SIG{PIPE}) = "IGNORE";
+    my $pager = $CPAN::Config->{'pager'} || "cat";
+    $fh_pager->open("|$pager")
+        or die "Could not open pager $pager\: $!";
+    my $fh_readme = FileHandle->new;
+    $fh_readme->open($local_file)
+        or $CPAN::Frontend->mydie(qq{Could not open "$local_file": $!});
+    $CPAN::Frontend->myprint(qq{
+Displaying file
+  $local_file
+with pager "$pager"
+});
+    $fh_pager->print(<$fh_readme>);
+    $fh_pager->close;
+}
+
+#-> sub CPAN::Distribution::verifyCHECKSUM ;
+sub verifyCHECKSUM {
+    my($self) = @_;
+  EXCUSE: {
+        my @e;
+        $self->{CHECKSUM_STATUS} ||= "";
+        $self->{CHECKSUM_STATUS} eq "OK" and push @e, "Checksum was ok";
+        $CPAN::Frontend->myprint(join "", map {"  $_\n"} @e) and return if @e;
+    }
+    my($lc_want,$lc_file,@local,$basename);
+    @local = split(/\//,$self->id);
+    pop @local;
+    push @local, "CHECKSUMS";
+    $lc_want =
+        File::Spec->catfile($CPAN::Config->{keep_source_where},
+                            "authors", "id", @local);
+    local($") = "/";
+    if (my $size = -s $lc_want) {
+        $self->debug("lc_want[$lc_want]size[$size]") if $CPAN::DEBUG;
+        if ($self->CHECKSUM_check_file($lc_want,1)) {
+            return $self->{CHECKSUM_STATUS} = "OK";
+        }
+    }
+    $lc_file = CPAN::FTP->localize("authors/id/@local",
+                                   $lc_want,1);
+    unless ($lc_file) {
+        $CPAN::Frontend->myprint("Trying $lc_want.gz\n");
+        $local[-1] .= ".gz";
+        $lc_file = CPAN::FTP->localize("authors/id/@local",
+                                       "$lc_want.gz",1);
+        if ($lc_file) {
+            $lc_file =~ s/\.gz(?!\n)\Z//;
+            eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)};
+        } else {
+            return;
+        }
+    }
+    if ($self->CHECKSUM_check_file($lc_file)) {
+        return $self->{CHECKSUM_STATUS} = "OK";
+    }
+}
+
+#-> sub CPAN::Distribution::SIG_check_file ;
+sub SIG_check_file {
+    my($self,$chk_file) = @_;
+    my $rv = eval { Module::Signature::_verify($chk_file) };
+
+    if ($rv == Module::Signature::SIGNATURE_OK()) {
+        $CPAN::Frontend->myprint("Signature for $chk_file ok\n");
+        return $self->{SIG_STATUS} = "OK";
+    } else {
+        $CPAN::Frontend->myprint(qq{\nSignature invalid for }.
+                                 qq{distribution file. }.
+                                 qq{Please investigate.\n\n}.
+                                 $self->as_string,
+                                 $CPAN::META->instance(
+                                                       'CPAN::Author',
+                                                       $self->cpan_userid
+                                                      )->as_string);
+
+        my $wrap = qq{I\'d recommend removing $chk_file. Its signature
+is invalid. Maybe you have configured your 'urllist' with
+a bad URL. Please check this array with 'o conf urllist', and
+retry.};
+
+        $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap));
+    }
+}
+
+#-> sub CPAN::Distribution::CHECKSUM_check_file ;
+
+# sloppy is 1 when we have an old checksums file that maybe is good
+# enough
+
+sub CHECKSUM_check_file {
+    my($self,$chk_file,$sloppy) = @_;
+    my($cksum,$file,$basename);
+
+    $sloppy ||= 0;
+    $self->debug("chk_file[$chk_file]sloppy[$sloppy]") if $CPAN::DEBUG;
+    my $check_sigs = CPAN::HandleConfig->prefs_lookup($self,
+                                                      q{check_sigs});
+    if ($check_sigs) {
+        if ($CPAN::META->has_inst("Module::Signature")) {
+            $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG;
+            $self->SIG_check_file($chk_file);
+        } else {
+            $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG;
+        }
+    }
+
+    $file = $self->{localfile};
+    $basename = File::Basename::basename($file);
+    my $fh = FileHandle->new;
+    if (open $fh, $chk_file) {
+        local($/);
+        my $eval = <$fh>;
+        $eval =~ s/\015?\012/\n/g;
+        close $fh;
+        my($compmt) = Safe->new();
+        $cksum = $compmt->reval($eval);
+        if ($@) {
+            rename $chk_file, "$chk_file.bad";
+            Carp::confess($@) if $@;
+        }
+    } else {
+        Carp::carp "Could not open $chk_file for reading";
+    }
+
+    if (! ref $cksum or ref $cksum ne "HASH") {
+        $CPAN::Frontend->mywarn(qq{
+Warning: checksum file '$chk_file' broken.
+
+When trying to read that file I expected to get a hash reference
+for further processing, but got garbage instead.
+});
+        my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed nonetheless?", "no");
+        $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n");
+        $self->{CHECKSUM_STATUS} = "NIL -- CHECKSUMS file broken";
+        return;
+    } elsif (exists $cksum->{$basename}{sha256}) {
+        $self->debug("Found checksum for $basename:" .
+                     "$cksum->{$basename}{sha256}\n") if $CPAN::DEBUG;
+
+        open($fh, $file);
+        binmode $fh;
+        my $eq = $self->eq_CHECKSUM($fh,$cksum->{$basename}{sha256});
+        $fh->close;
+        $fh = CPAN::Tarzip->TIEHANDLE($file);
+
+        unless ($eq) {
+            my $dg = Digest::SHA->new(256);
+            my($data,$ref);
+            $ref = \$data;
+            while ($fh->READ($ref, 4096) > 0) {
+                $dg->add($data);
+            }
+            my $hexdigest = $dg->hexdigest;
+            $eq += $hexdigest eq $cksum->{$basename}{'sha256-ungz'};
+        }
+
+        if ($eq) {
+            $CPAN::Frontend->myprint("Checksum for $file ok\n");
+            return $self->{CHECKSUM_STATUS} = "OK";
+        } else {
+            $CPAN::Frontend->myprint(qq{\nChecksum mismatch for }.
+                                     qq{distribution file. }.
+                                     qq{Please investigate.\n\n}.
+                                     $self->as_string,
+                                     $CPAN::META->instance(
+                                                           'CPAN::Author',
+                                                           $self->cpan_userid
+                                                          )->as_string);
+
+            my $wrap = qq{I\'d recommend removing $file. Its
+checksum is incorrect. Maybe you have configured your 'urllist' with
+a bad URL. Please check this array with 'o conf urllist', and
+retry.};
+
+            $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap));
+
+            # former versions just returned here but this seems a
+            # serious threat that deserves a die
+
+            # $CPAN::Frontend->myprint("\n\n");
+            # sleep 3;
+            # return;
+        }
+        # close $fh if fileno($fh);
+    } else {
+        return if $sloppy;
+        unless ($self->{CHECKSUM_STATUS}) {
+            $CPAN::Frontend->mywarn(qq{
+Warning: No checksum for $basename in $chk_file.
+
+The cause for this may be that the file is very new and the checksum
+has not yet been calculated, but it may also be that something is
+going awry right now.
+});
+            my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed?", "yes");
+            $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n");
+        }
+        $self->{CHECKSUM_STATUS} = "NIL -- distro not in CHECKSUMS file";
+        return;
+    }
+}
+
+#-> sub CPAN::Distribution::eq_CHECKSUM ;
+sub eq_CHECKSUM {
+    my($self,$fh,$expect) = @_;
+    if ($CPAN::META->has_inst("Digest::SHA")) {
+        my $dg = Digest::SHA->new(256);
+        my($data);
+        while (read($fh, $data, 4096)) {
+            $dg->add($data);
+        }
+        my $hexdigest = $dg->hexdigest;
+        # warn "fh[$fh] hex[$hexdigest] aexp[$expectMD5]";
+        return $hexdigest eq $expect;
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::force ;
+
+# Both CPAN::Modules and CPAN::Distributions know if "force" is in
+# effect by autoinspection, not by inspecting a global variable. One
+# of the reason why this was chosen to work that way was the treatment
+# of dependencies. They should not automatically inherit the force
+# status. But this has the downside that ^C and die() will return to
+# the prompt but will not be able to reset the force_update
+# attributes. We try to correct for it currently in the read_metadata
+# routine, and immediately before we check for a Signal. I hope this
+# works out in one of v1.57_53ff
+
+# "Force get forgets previous error conditions"
+
+#-> sub CPAN::Distribution::fforce ;
+sub fforce {
+  my($self, $method) = @_;
+  $self->force($method,1);
+}
+
+#-> sub CPAN::Distribution::force ;
+sub force {
+  my($self, $method,$fforce) = @_;
+  my %phase_map = (
+                   get => [
+                           "unwrapped",
+                           "build_dir",
+                           "archived",
+                           "localfile",
+                           "CHECKSUM_STATUS",
+                           "signature_verify",
+                           "prefs",
+                           "prefs_file",
+                           "prefs_file_doc",
+                          ],
+                   make => [
+                            "writemakefile",
+                            "make",
+                            "modulebuild",
+                            "prereq_pm",
+                           ],
+                   test => [
+                            "badtestcnt",
+                            "make_test",
+                           ],
+                   install => [
+                               "install",
+                              ],
+                   unknown => [
+                               "reqtype",
+                               "yaml_content",
+                              ],
+                  );
+  my $methodmatch = 0;
+  my $ldebug = 0;
+ PHASE: for my $phase (qw(unknown get make test install)) { # order matters
+      $methodmatch = 1 if $fforce || $phase eq $method;
+      next unless $methodmatch;
+    ATTRIBUTE: for my $att (@{$phase_map{$phase}}) {
+          if ($phase eq "get") {
+              if (substr($self->id,-1,1) eq "."
+                  && $att =~ /(unwrapped|build_dir|archived)/ ) {
+                  # cannot be undone for local distros
+                  next ATTRIBUTE;
+              }
+              if ($att eq "build_dir"
+                  && $self->{build_dir}
+                  && $CPAN::META->{is_tested}
+                 ) {
+                  delete $CPAN::META->{is_tested}{$self->{build_dir}};
+              }
+          } elsif ($phase eq "test") {
+              if ($att eq "make_test"
+                  && $self->{make_test}
+                  && $self->{make_test}{COMMANDID}
+                  && $self->{make_test}{COMMANDID} == $CPAN::CurrentCommandId
+                 ) {
+                  # endless loop too likely
+                  next ATTRIBUTE;
+              }
+          }
+          delete $self->{$att};
+          if ($ldebug || $CPAN::DEBUG) {
+              # local $CPAN::DEBUG = 16; # Distribution
+              CPAN->debug(sprintf "id[%s]phase[%s]att[%s]", $self->id, $phase, $att);
+          }
+      }
+  }
+  if ($method && $method =~ /make|test|install/) {
+    $self->{force_update} = 1; # name should probably have been force_install
+  }
+}
+
+#-> sub CPAN::Distribution::notest ;
+sub notest {
+  my($self, $method) = @_;
+  # $CPAN::Frontend->mywarn("XDEBUG: set notest for $self $method");
+  $self->{"notest"}++; # name should probably have been force_install
+}
+
+#-> sub CPAN::Distribution::unnotest ;
+sub unnotest {
+  my($self) = @_;
+  # warn "XDEBUG: deleting notest";
+  delete $self->{notest};
+}
+
+#-> sub CPAN::Distribution::unforce ;
+sub unforce {
+  my($self) = @_;
+  delete $self->{force_update};
+}
+
+#-> sub CPAN::Distribution::isa_perl ;
+sub isa_perl {
+  my($self) = @_;
+  my $file = File::Basename::basename($self->id);
+  if ($file =~ m{ ^ perl
+                  (
+                   -5\.\d+\.\d+
+                   |
+                   5[._-]00[0-5](_[0-4][0-9])?
+                  )
+                  \.tar[._-](?:gz|bz2)
+                  (?!\n)\Z
+                }xs) {
+    return "$1.$3";
+  } elsif ($self->cpan_comment
+           &&
+           $self->cpan_comment =~ /isa_perl\(.+?\)/) {
+    return $1;
+  }
+}
+
+
+#-> sub CPAN::Distribution::perl ;
+sub perl {
+    my ($self) = @_;
+    if (! $self) {
+        use Carp qw(carp);
+        carp __PACKAGE__ . "::perl was called without parameters.";
+    }
+    return CPAN::HandleConfig->safe_quote($CPAN::Perl);
+}
+
+#-> sub CPAN::Distribution::shortcut_prepare ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+
+sub shortcut_prepare {
+    my ($self) = @_;
+
+    $self->debug("checking archive type[$self->{ID}]") if $CPAN::DEBUG;
+    if (!$self->{archived} || $self->{archived} eq "NO") {
+        return $self->goodbye("Is neither a tar nor a zip archive.");
+    }
+
+    $self->debug("checking unwrapping[$self->{ID}]") if $CPAN::DEBUG;
+    if (!$self->{unwrapped}
+        || (
+            UNIVERSAL::can($self->{unwrapped},"failed") ?
+            $self->{unwrapped}->failed :
+            $self->{unwrapped} =~ /^NO/
+            )) {
+        return $self->goodbye("Had problems unarchiving. Please build manually");
+    }
+
+    $self->debug("checking signature[$self->{ID}]") if $CPAN::DEBUG;
+    if ( ! $self->{force_update}
+        && exists $self->{signature_verify}
+        && (
+                UNIVERSAL::can($self->{signature_verify},"failed") ?
+                $self->{signature_verify}->failed :
+                $self->{signature_verify} =~ /^NO/
+            )
+    ) {
+        return $self->goodbye("Did not pass the signature test.");
+    }
+
+    $self->debug("checking writemakefile[$self->{ID}]") if $CPAN::DEBUG;
+    if ($self->{writemakefile}) {
+        if (
+                UNIVERSAL::can($self->{writemakefile},"failed") ?
+                $self->{writemakefile}->failed :
+                $self->{writemakefile} =~ /^NO/
+            ) {
+            # XXX maybe a retry would be in order?
+            my $err = UNIVERSAL::can($self->{writemakefile},"text") ?
+                $self->{writemakefile}->text :
+                    $self->{writemakefile};
+            $err =~ s/^NO\s*(--\s+)?//;
+            $err ||= "Had some problem writing Makefile";
+            $err .= ", not re-running";
+            return $self->goodbye($err);
+        } else {
+            return $self->success("Has already been prepared");
+        }
+    }
+
+    $self->debug("checking configure_requires_later[$self->{ID}]") if $CPAN::DEBUG;
+    if( my $later = $self->{configure_requires_later} ) { # see also undelay
+        return $self->goodbye($later);
+    }
+
+    return undef; # no shortcut
+}
+
+sub prepare {
+    my ($self) = @_;
+
+    $self->get
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_prepare) ) {
+        return $sc;
+    }
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # prepare
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    $self->debug("Changed directory to $builddir") if $CPAN::DEBUG;
+
+    local $ENV{PERL_AUTOINSTALL} = $ENV{PERL_AUTOINSTALL} || '';
+    local $ENV{PERL_EXTUTILS_AUTOINSTALL} = $ENV{PERL_EXTUTILS_AUTOINSTALL} || '';
+    $self->choose_MM_or_MB
+        or return;
+
+    my $configurator = $self->{configure} ? "Configure"
+                     : $self->{modulebuild} ? "Build.PL"
+                     : "Makefile.PL";
+
+    $CPAN::Frontend->myprint("Configuring ".$self->id." with $configurator\n");
+
+    if ($CPAN::Config->{prerequisites_policy} eq "follow") {
+        $ENV{PERL_AUTOINSTALL}          ||= "--defaultdeps";
+        $ENV{PERL_EXTUTILS_AUTOINSTALL} ||= "--defaultdeps";
+    }
+
+    my $system;
+    my $pl_commandline;
+    if ($self->prefs->{pl}) {
+        $pl_commandline = $self->prefs->{pl}{commandline};
+    }
+    local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X;
+    local $ENV{PERL5_CPAN_IS_EXECUTING} = $ENV{PERL5_CPAN_IS_EXECUTING} || '';
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+    if ($pl_commandline) {
+        $system = $pl_commandline;
+        $ENV{PERL} = $^X;
+    } elsif ($self->{'configure'}) {
+        $system = $self->{'configure'};
+    } elsif ($self->{modulebuild}) {
+        my($perl) = $self->perl or die "Couldn\'t find executable perl\n";
+        my $mbuildpl_arg = $self->_make_phase_arg("pl");
+        $system = sprintf("%s Build.PL%s",
+                          $perl,
+                          $mbuildpl_arg ? " $mbuildpl_arg" : "",
+                         );
+    } else {
+        my($perl) = $self->perl or die "Couldn\'t find executable perl\n";
+        my $switch = "";
+# This needs a handler that can be turned on or off:
+#        $switch = "-MExtUtils::MakeMaker ".
+#            "-Mops=:default,:filesys_read,:filesys_open,require,chdir"
+#            if $] > 5.00310;
+        my $makepl_arg = $self->_make_phase_arg("pl");
+        $ENV{PERL5_CPAN_IS_EXECUTING} = File::Spec->catfile($self->{build_dir},
+                                                            "Makefile.PL");
+        $system = sprintf("%s%s Makefile.PL%s",
+                          $perl,
+                          $switch ? " $switch" : "",
+                          $makepl_arg ? " $makepl_arg" : "",
+                         );
+    }
+    my $pl_env;
+    if ($self->prefs->{pl}) {
+        $pl_env = $self->prefs->{pl}{env};
+    }
+    local @ENV{keys %$pl_env} = values %$pl_env if $pl_env;
+    if (exists $self->{writemakefile}) {
+    } else {
+        local($SIG{ALRM}) = sub { die "inactivity_timeout reached\n" };
+        my($ret,$pid,$output);
+        $@ = "";
+        my $go_via_alarm;
+        if ($CPAN::Config->{inactivity_timeout}) {
+            require Config;
+            if ($Config::Config{d_alarm}
+                &&
+                $Config::Config{d_alarm} eq "define"
+               ) {
+                $go_via_alarm++
+            } else {
+                $CPAN::Frontend->mywarn("Warning: you have configured the config ".
+                                        "variable 'inactivity_timeout' to ".
+                                        "'$CPAN::Config->{inactivity_timeout}'. But ".
+                                        "on this machine the system call 'alarm' ".
+                                        "isn't available. This means that we cannot ".
+                                        "provide the feature of intercepting long ".
+                                        "waiting code and will turn this feature off.\n"
+                                       );
+                $CPAN::Config->{inactivity_timeout} = 0;
+            }
+        }
+        if ($go_via_alarm) {
+            if ( $self->_should_report('pl') ) {
+                ($output, $ret) = CPAN::Reporter::record_command(
+                    $system,
+                    $CPAN::Config->{inactivity_timeout},
+                );
+                CPAN::Reporter::grade_PL( $self, $system, $output, $ret );
+            }
+            else {
+                eval {
+                    alarm $CPAN::Config->{inactivity_timeout};
+                    local $SIG{CHLD}; # = sub { wait };
+                    if (defined($pid = fork)) {
+                        if ($pid) { #parent
+                            # wait;
+                            waitpid $pid, 0;
+                        } else {    #child
+                            # note, this exec isn't necessary if
+                            # inactivity_timeout is 0. On the Mac I'd
+                            # suggest, we set it always to 0.
+                            exec $system;
+                        }
+                    } else {
+                        $CPAN::Frontend->myprint("Cannot fork: $!");
+                        return;
+                    }
+                };
+                alarm 0;
+                if ($@) {
+                    kill 9, $pid;
+                    waitpid $pid, 0;
+                    my $err = "$@";
+                    $CPAN::Frontend->myprint($err);
+                    $self->{writemakefile} = CPAN::Distrostatus->new("NO $err");
+                    $@ = "";
+                    $self->store_persistent_state;
+                    return $self->goodbye("$system -- TIMED OUT");
+                }
+            }
+        } else {
+            if (my $expect_model = $self->_prefs_with_expect("pl")) {
+                # XXX probably want to check _should_report here and warn
+                # about not being able to use CPAN::Reporter with expect
+                $ret = $self->_run_via_expect($system,'writemakefile',$expect_model);
+                if (! defined $ret
+                    && $self->{writemakefile}
+                    && $self->{writemakefile}->failed) {
+                    # timeout
+                    return;
+                }
+            }
+            elsif ( $self->_should_report('pl') ) {
+                ($output, $ret) = eval { CPAN::Reporter::record_command($system) };
+                if (! defined $output or $@) {
+                    my $err = $@ || "Unknown error";
+                    $CPAN::Frontend->mywarn("Error while running PL phase: $err");
+                    return $self->goodbye("$system -- NOT OK");
+                }
+                CPAN::Reporter::grade_PL( $self, $system, $output, $ret );
+            }
+            else {
+                $ret = system($system);
+            }
+            if ($ret != 0) {
+                $self->{writemakefile} = CPAN::Distrostatus
+                    ->new("NO '$system' returned status $ret");
+                $CPAN::Frontend->mywarn("Warning: No success on command[$system]\n");
+                $self->store_persistent_state;
+                return $self->goodbye("$system -- NOT OK");
+            }
+        }
+        if (-f "Makefile" || -f "Build" || ($^O eq 'VMS' && (-f 'descrip.mms' || -f 'Build.com'))) {
+            $self->{writemakefile} = CPAN::Distrostatus->new("YES");
+            delete $self->{make_clean}; # if cleaned before, enable next
+            $self->store_persistent_state;
+            return $self->success("$system -- OK");
+        } else {
+            my $makefile = $self->{modulebuild} ? "Build" : "Makefile";
+            my $why = "No '$makefile' created";
+            $CPAN::Frontend->mywarn($why);
+            $self->{writemakefile} = CPAN::Distrostatus
+                ->new(qq{NO -- $why\n});
+            $self->store_persistent_state;
+            return $self->goodbye("$system -- NOT OK");
+        }
+    }
+    $self->store_persistent_state;
+    return 1; # success
+}
+
+#-> sub CPAN::Distribution::shortcut_make ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_make {
+    my ($self) = @_;
+
+    $self->debug("checking make/build results[$self->{ID}]") if $CPAN::DEBUG;
+    if (defined $self->{make}) {
+        if (UNIVERSAL::can($self->{make},"failed") ?
+            $self->{make}->failed :
+            $self->{make} =~ /^NO/
+        ) {
+            if ($self->{force_update}) {
+                # Trying an already failed 'make' (unless somebody else blocks)
+                return undef; # no shortcut
+            } else {
+                # introduced for turning recursion detection into a distrostatus
+                my $error = length $self->{make}>3
+                    ? substr($self->{make},3) : "Unknown error";
+                $self->store_persistent_state;
+                return $self->goodbye("Could not make: $error\n");
+            }
+        } else {
+            return $self->success("Has already been made")
+        }
+    }
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::make ;
+sub make {
+    my($self) = @_;
+
+    $self->pre_make();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+    # Emergency brake if they said install Pippi and get newest perl
+
+    # XXX Would this make more sense in shortcut_prepare, since
+    # that doesn't make sense on a perl dist either?  Broader
+    # question: what is the purpose of suggesting force install
+    # on a perl distribution?  That seems unlikely to result in
+    # such a dependency being satisfied, even if the perl is
+    # successfully installed.  This situation is tantamount to
+    # a prereq on a version of perl greater than the current one
+    # so I think we should just abort. -- xdg, 2012-04-06
+    if ($self->isa_perl) {
+        if (
+            $self->called_for ne $self->id &&
+            ! $self->{force_update}
+        ) {
+            # if we die here, we break bundles
+            $CPAN::Frontend
+                ->mywarn(sprintf(
+                            qq{The most recent version "%s" of the module "%s"
+is part of the perl-%s distribution. To install that, you need to run
+  force install %s   --or--
+  install %s
+},
+                             $CPAN::META->instance(
+                                                   'CPAN::Module',
+                                                   $self->called_for
+                                                  )->cpan_version,
+                             $self->called_for,
+                             $self->isa_perl,
+                             $self->called_for,
+                             $self->pretty_id,
+                            ));
+            $self->{make} = CPAN::Distrostatus->new("NO isa perl");
+            $CPAN::Frontend->mysleep(1);
+            return;
+        }
+    }
+
+    $self->prepare
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_make) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint(sprintf "Running %s for %s\n", $make, $self->id);
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # make
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make($self);
+        return;
+    }
+
+    my %env;
+    while (my($k,$v) = each %ENV) {
+        next if defined $v;
+        $env{$k} = '';
+    }
+    local @ENV{keys %env} = values %env;
+    my $satisfied = eval { $self->satisfy_requires };
+    return $self->goodbye($@) if $@;
+    return unless $satisfied ;
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    # need to chdir again, because $self->satisfy_requires might change the directory
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    my $system;
+    my $make_commandline;
+    if ($self->prefs->{make}) {
+        $make_commandline = $self->prefs->{make}{commandline};
+    }
+    local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X;
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+    if ($make_commandline) {
+        $system = $make_commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } else {
+        if ($self->{modulebuild}) {
+            unless (-f "Build" || ($^O eq 'VMS' && -f 'Build.com')) {
+                my $cwd = CPAN::anycwd();
+                $CPAN::Frontend->mywarn("Alert: no Build file available for 'make $self->{id}'".
+                                        " in cwd[$cwd]. Danger, Will Robinson!\n");
+                $CPAN::Frontend->mysleep(5);
+            }
+            $system = join " ", $self->_build_command(), $CPAN::Config->{mbuild_arg};
+        } else {
+            $system = join " ", $self->_make_command(),  $CPAN::Config->{make_arg};
+        }
+        $system =~ s/\s+$//;
+        my $make_arg = $self->_make_phase_arg("make");
+        $system = sprintf("%s%s",
+                          $system,
+                          $make_arg ? " $make_arg" : "",
+                         );
+    }
+    my $make_env;
+    if ($self->prefs->{make}) {
+        $make_env = $self->prefs->{make}{env};
+    }
+    local @ENV{keys %$make_env} = values %$make_env if $make_env;
+    my $expect_model = $self->_prefs_with_expect("make");
+    my $want_expect = 0;
+    if ( $expect_model && @{$expect_model->{talk}} ) {
+        my $can_expect = $CPAN::META->has_inst("Expect");
+        if ($can_expect) {
+            $want_expect = 1;
+        } else {
+            $CPAN::Frontend->mywarn("Expect not installed, falling back to ".
+                                    "system()\n");
+        }
+    }
+    my ($system_ok, $system_err);
+    if ($want_expect) {
+        # XXX probably want to check _should_report here and
+        # warn about not being able to use CPAN::Reporter with expect
+        $system_ok = $self->_run_via_expect($system,'make',$expect_model) == 0;
+    }
+    elsif ( $self->_should_report('make') ) {
+        my ($output, $ret) = CPAN::Reporter::record_command($system);
+        CPAN::Reporter::grade_make( $self, $system, $output, $ret );
+        $system_ok = ! $ret;
+    }
+    else {
+        my $rc = system($system);
+        $system_ok = $rc == 0;
+        $system_err = $! if $rc == -1;
+    }
+    $self->introduce_myself;
+    if ( $system_ok ) {
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $self->{make} = CPAN::Distrostatus->new("YES");
+    } else {
+        $self->{writemakefile} ||= CPAN::Distrostatus->new("YES");
+        $self->{make} = CPAN::Distrostatus->new("NO");
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        $CPAN::Frontend->mywarn("  $system_err\n") if defined $system_err;
+    }
+    $self->store_persistent_state;
+
+    $self->post_make();
+
+    return !! $system_ok;
+}
+
+# CPAN::Distribution::goodbye ;
+sub goodbye {
+    my($self,$goodbye) = @_;
+    my $id = $self->pretty_id;
+    $CPAN::Frontend->mywarn("  $id\n  $goodbye\n");
+    return 0; # must be explicit false, not undef
+}
+
+sub success {
+    my($self,$why) = @_;
+    my $id = $self->pretty_id;
+    $CPAN::Frontend->myprint("  $id\n  $why\n");
+    return 1;
+}
+
+# CPAN::Distribution::_run_via_expect ;
+sub _run_via_expect {
+    my($self,$system,$phase,$expect_model) = @_;
+    CPAN->debug("system[$system]expect_model[$expect_model]") if $CPAN::DEBUG;
+    if ($CPAN::META->has_inst("Expect")) {
+        my $expo = Expect->new;  # expo Expect object;
+        $expo->spawn($system);
+        $expect_model->{mode} ||= "deterministic";
+        if ($expect_model->{mode} eq "deterministic") {
+            return $self->_run_via_expect_deterministic($expo,$phase,$expect_model);
+        } elsif ($expect_model->{mode} eq "anyorder") {
+            return $self->_run_via_expect_anyorder($expo,$phase,$expect_model);
+        } else {
+            die "Panic: Illegal expect mode: $expect_model->{mode}";
+        }
+    } else {
+        $CPAN::Frontend->mywarn("Expect not installed, falling back to system()\n");
+        return system($system);
+    }
+}
+
+sub _run_via_expect_anyorder {
+    my($self,$expo,$phase,$expect_model) = @_;
+    my $timeout = $expect_model->{timeout} || 5;
+    my $reuse = $expect_model->{reuse};
+    my @expectacopy = @{$expect_model->{talk}}; # we trash it!
+    my $but = "";
+    my $timeout_start = time;
+  EXPECT: while () {
+        my($eof,$ran_into_timeout);
+        # XXX not up to the full power of expect. one could certainly
+        # wrap all of the talk pairs into a single expect call and on
+        # success tweak it and step ahead to the next question. The
+        # current implementation unnecessarily limits itself to a
+        # single match.
+        my @match = $expo->expect(1,
+                                  [ eof => sub {
+                                        $eof++;
+                                    } ],
+                                  [ timeout => sub {
+                                        $ran_into_timeout++;
+                                    } ],
+                                  -re => eval"qr{.}",
+                                 );
+        if ($match[2]) {
+            $but .= $match[2];
+        }
+        $but .= $expo->clear_accum;
+        if ($eof) {
+            $expo->soft_close;
+            return $expo->exitstatus();
+        } elsif ($ran_into_timeout) {
+            # warn "DEBUG: they are asking a question, but[$but]";
+            for (my $i = 0; $i <= $#expectacopy; $i+=2) {
+                my($next,$send) = @expectacopy[$i,$i+1];
+                my $regex = eval "qr{$next}";
+                # warn "DEBUG: will compare with regex[$regex].";
+                if ($but =~ /$regex/) {
+                    # warn "DEBUG: will send send[$send]";
+                    $expo->send($send);
+                    # never allow reusing an QA pair unless they told us
+                    splice @expectacopy, $i, 2 unless $reuse;
+                    $but =~ s/(?s:^.*?)$regex//;
+                    $timeout_start = time;
+                    next EXPECT;
+                }
+            }
+            my $have_waited = time - $timeout_start;
+            if ($have_waited < $timeout) {
+                # warn "DEBUG: have_waited[$have_waited]timeout[$timeout]";
+                next EXPECT;
+            }
+            my $why = "could not answer a question during the dialog";
+            $CPAN::Frontend->mywarn("Failing: $why\n");
+            $self->{$phase} =
+                CPAN::Distrostatus->new("NO $why");
+            return 0;
+        }
+    }
+}
+
+sub _run_via_expect_deterministic {
+    my($self,$expo,$phase,$expect_model) = @_;
+    my $ran_into_timeout;
+    my $ran_into_eof;
+    my $timeout = $expect_model->{timeout} || 15; # currently unsettable
+    my $expecta = $expect_model->{talk};
+  EXPECT: for (my $i = 0; $i <= $#$expecta; $i+=2) {
+        my($re,$send) = @$expecta[$i,$i+1];
+        CPAN->debug("timeout[$timeout]re[$re]") if $CPAN::DEBUG;
+        my $regex = eval "qr{$re}";
+        $expo->expect($timeout,
+                      [ eof => sub {
+                            my $but = $expo->clear_accum;
+                            $CPAN::Frontend->mywarn("EOF (maybe harmless)
+expected[$regex]\nbut[$but]\n\n");
+                            $ran_into_eof++;
+                        } ],
+                      [ timeout => sub {
+                            my $but = $expo->clear_accum;
+                            $CPAN::Frontend->mywarn("TIMEOUT
+expected[$regex]\nbut[$but]\n\n");
+                            $ran_into_timeout++;
+                        } ],
+                      -re => $regex);
+        if ($ran_into_timeout) {
+            # note that the caller expects 0 for success
+            $self->{$phase} =
+                CPAN::Distrostatus->new("NO timeout during expect dialog");
+            return 0;
+        } elsif ($ran_into_eof) {
+            last EXPECT;
+        }
+        $expo->send($send);
+    }
+    $expo->soft_close;
+    return $expo->exitstatus();
+}
+
+#-> CPAN::Distribution::_validate_distropref
+sub _validate_distropref {
+    my($self,@args) = @_;
+    if (
+        $CPAN::META->has_inst("CPAN::Kwalify")
+        &&
+        $CPAN::META->has_inst("Kwalify")
+       ) {
+        eval {CPAN::Kwalify::_validate("distroprefs",@args);};
+        if ($@) {
+            $CPAN::Frontend->mywarn($@);
+        }
+    } else {
+        CPAN->debug("not validating '@args'") if $CPAN::DEBUG;
+    }
+}
+
+#-> CPAN::Distribution::_find_prefs
+sub _find_prefs {
+    my($self) = @_;
+    my $distroid = $self->pretty_id;
+    #CPAN->debug("distroid[$distroid]") if $CPAN::DEBUG;
+    my $prefs_dir = $CPAN::Config->{prefs_dir};
+    return if $prefs_dir =~ /^\s*$/;
+    eval { File::Path::mkpath($prefs_dir); };
+    if ($@) {
+        $CPAN::Frontend->mydie("Cannot create directory $prefs_dir");
+    }
+    # shortcut if there are no distroprefs files
+    {
+      my $dh = DirHandle->new($prefs_dir) or $CPAN::Frontend->mydie("Couldn't open '$prefs_dir': $!");
+      my @files = map { /\.(yml|dd|st)\z/i } $dh->read;
+      return unless @files;
+    }
+    my $yaml_module = CPAN::_yaml_module();
+    my $ext_map = {};
+    my @extensions;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        $ext_map->{yml} = 'CPAN';
+    } else {
+        my @fallbacks;
+        if ($CPAN::META->has_inst("Data::Dumper")) {
+            push @fallbacks, $ext_map->{dd} = 'Data::Dumper';
+        }
+        if ($CPAN::META->has_inst("Storable")) {
+            push @fallbacks, $ext_map->{st} = 'Storable';
+        }
+        if (@fallbacks) {
+            local $" = " and ";
+            unless ($self->{have_complained_about_missing_yaml}++) {
+                $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, falling back ".
+                                            "to @fallbacks to read prefs '$prefs_dir'\n");
+            }
+        } else {
+            unless ($self->{have_complained_about_missing_yaml}++) {
+                $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, cannot ".
+                                            "read prefs '$prefs_dir'\n");
+            }
+        }
+    }
+    my $finder = CPAN::Distroprefs->find($prefs_dir, $ext_map);
+    DIRENT: while (my $result = $finder->next) {
+        if ($result->is_warning) {
+            $CPAN::Frontend->mywarn($result->as_string);
+            $CPAN::Frontend->mysleep(1);
+            next DIRENT;
+        } elsif ($result->is_fatal) {
+            $CPAN::Frontend->mydie($result->as_string);
+        }
+
+        my @prefs = @{ $result->prefs };
+
+      ELEMENT: for my $y (0..$#prefs) {
+            my $pref = $prefs[$y];
+            $self->_validate_distropref($pref->data, $result->abs, $y);
+
+            # I don't know why we silently skip when there's no match, but
+            # complain if there's an empty match hashref, and there's no
+            # comment explaining why -- hdp, 2008-03-18
+            unless ($pref->has_any_match) {
+                next ELEMENT;
+            }
+
+            unless ($pref->has_valid_subkeys) {
+                $CPAN::Frontend->mydie(sprintf
+                    "Nonconforming .%s file '%s': " .
+                    "missing match/* subattribute. " .
+                    "Please remove, cannot continue.",
+                    $result->ext, $result->abs,
+                );
+            }
+
+            my $arg = {
+                env          => \%ENV,
+                distribution => $distroid,
+                perl         => \&CPAN::find_perl,
+                perlconfig   => \%Config::Config,
+                module       => sub { [ $self->containsmods ] },
+            };
+
+            if ($pref->matches($arg)) {
+                return {
+                    prefs => $pref->data,
+                    prefs_file => $result->abs,
+                    prefs_file_doc => $y,
+                };
+            }
+
+        }
+    }
+    return;
+}
+
+# CPAN::Distribution::prefs
+sub prefs {
+    my($self) = @_;
+    if (exists $self->{negative_prefs_cache}
+        &&
+        $self->{negative_prefs_cache} != $CPAN::CurrentCommandId
+       ) {
+        delete $self->{negative_prefs_cache};
+        delete $self->{prefs};
+    }
+    if (exists $self->{prefs}) {
+        return $self->{prefs}; # XXX comment out during debugging
+    }
+    if ($CPAN::Config->{prefs_dir}) {
+        CPAN->debug("prefs_dir[$CPAN::Config->{prefs_dir}]") if $CPAN::DEBUG;
+        my $prefs = $self->_find_prefs();
+        $prefs ||= ""; # avoid warning next line
+        CPAN->debug("prefs[$prefs]") if $CPAN::DEBUG;
+        if ($prefs) {
+            for my $x (qw(prefs prefs_file prefs_file_doc)) {
+                $self->{$x} = $prefs->{$x};
+            }
+            my $bs = sprintf(
+                             "%s[%s]",
+                             File::Basename::basename($self->{prefs_file}),
+                             $self->{prefs_file_doc},
+                            );
+            my $filler1 = "_" x 22;
+            my $filler2 = int(66 - length($bs))/2;
+            $filler2 = 0 if $filler2 < 0;
+            $filler2 = " " x $filler2;
+            $CPAN::Frontend->myprint("
+$filler1 D i s t r o P r e f s $filler1
+$filler2 $bs $filler2
+");
+            $CPAN::Frontend->mysleep(1);
+            return $self->{prefs};
+        }
+    }
+    $self->{negative_prefs_cache} = $CPAN::CurrentCommandId;
+    return $self->{prefs} = +{};
+}
+
+# CPAN::Distribution::_make_phase_arg
+sub _make_phase_arg {
+    my($self, $phase) = @_;
+    my $_make_phase_arg;
+    my $prefs = $self->prefs;
+    if (
+        $prefs
+        && exists $prefs->{$phase}
+        && exists $prefs->{$phase}{args}
+        && $prefs->{$phase}{args}
+       ) {
+        $_make_phase_arg = join(" ",
+                           map {CPAN::HandleConfig
+                                 ->safe_quote($_)} @{$prefs->{$phase}{args}},
+                          );
+    }
+
+# cpan[2]> o conf make[TAB]
+# make                       make_install_make_command
+# make_arg                   makepl_arg
+# make_install_arg
+# cpan[2]> o conf mbuild[TAB]
+# mbuild_arg                    mbuild_install_build_command
+# mbuild_install_arg            mbuildpl_arg
+
+    my $mantra; # must switch make/mbuild here
+    if ($self->{modulebuild}) {
+        $mantra = "mbuild";
+    } else {
+        $mantra = "make";
+    }
+    my %map = (
+               pl => "pl_arg",
+               make => "_arg",
+               test => "_test_arg", # does not really exist but maybe
+                                    # will some day and now protects
+                                    # us from unini warnings
+               install => "_install_arg",
+              );
+    my $phase_underscore_meshup = $map{$phase};
+    my $what = sprintf "%s%s", $mantra, $phase_underscore_meshup;
+
+    $_make_phase_arg ||= $CPAN::Config->{$what};
+    return $_make_phase_arg;
+}
+
+# CPAN::Distribution::_make_command
+sub _make_command {
+    my ($self) = @_;
+    if ($self) {
+        return
+            CPAN::HandleConfig
+                ->safe_quote(
+                             CPAN::HandleConfig->prefs_lookup($self,
+                                                              q{make})
+                             || $Config::Config{make}
+                             || 'make'
+                            );
+    } else {
+        # Old style call, without object. Deprecated
+        Carp::confess("CPAN::_make_command() used as function. Don't Do That.");
+        return
+          safe_quote(undef,
+                     CPAN::HandleConfig->prefs_lookup($self,q{make})
+                     || $CPAN::Config->{make}
+                     || $Config::Config{make}
+                     || 'make');
+    }
+}
+
+sub _make_install_make_command {
+    my ($self) = @_;
+    my $mimc =
+        CPAN::HandleConfig->prefs_lookup($self, q{make_install_make_command});
+    return $self->_make_command() unless $mimc;
+
+    # Quote the "make install" make command on Windows, where it is commonly
+    # found in, e.g., C:\Program Files\... and therefore needs quoting. We can't
+    # do this in general because the command maybe "sudo make..." (i.e. a
+    # program with arguments), but that is unlikely to be the case on Windows.
+    $mimc = CPAN::HandleConfig->safe_quote($mimc) if $^O eq 'MSWin32';
+
+    return $mimc;
+}
+
+#-> sub CPAN::Distribution::is_locally_optional
+sub is_locally_optional {
+    my($self, $prereq_pm, $prereq) = @_;
+    $prereq_pm ||= $self->{prereq_pm};
+    my($nmo,$opt);
+    for my $rt (qw(requires build_requires)) {
+        if (exists $prereq_pm->{$rt}{$prereq}) {
+            # rt 121914
+            $nmo ||= $CPAN::META->instance("CPAN::Module",$prereq);
+            my $av = $nmo->available_version;
+            return 0 if !$av || CPAN::Version->vlt($av,$prereq_pm->{$rt}{$prereq});
+        }
+        if (exists $prereq_pm->{"opt_$rt"}{$prereq}) {
+            $opt = 1;
+        }
+    }
+    return $opt||0;
+}
+
+#-> sub CPAN::Distribution::follow_prereqs ;
+sub follow_prereqs {
+    my($self) = shift;
+    my($slot) = shift;
+    my(@prereq_tuples) = grep {$_->[0] ne "perl"} @_;
+    return unless @prereq_tuples;
+    my(@good_prereq_tuples);
+    for my $p (@prereq_tuples) {
+        # e.g. $p = ['Devel::PartialDump', 'r', 1]
+        # promote if possible
+        if ($p->[1] =~ /^(r|c)$/) {
+            push @good_prereq_tuples, $p;
+        } elsif ($p->[1] =~ /^(b)$/) {
+            my $reqtype = CPAN::Queue->reqtype_of($p->[0]);
+            if ($reqtype =~ /^(r|c)$/) {
+                push @good_prereq_tuples, [$p->[0], $reqtype, $p->[2]];
+            } else {
+                push @good_prereq_tuples, $p;
+            }
+        } else {
+            die "Panic: in follow_prereqs: reqtype[$p->[1]] seen, should never happen";
+        }
+    }
+    my $pretty_id = $self->pretty_id;
+    my %map = (
+               b => "build_requires",
+               r => "requires",
+               c => "commandline",
+              );
+    my($filler1,$filler2,$filler3,$filler4);
+    my $unsat = "Unsatisfied dependencies detected during";
+    my $w = length($unsat) > length($pretty_id) ? length($unsat) : length($pretty_id);
+    {
+        my $r = int(($w - length($unsat))/2);
+        my $l = $w - length($unsat) - $r;
+        $filler1 = "-"x4 . " "x$l;
+        $filler2 = " "x$r . "-"x4 . "\n";
+    }
+    {
+        my $r = int(($w - length($pretty_id))/2);
+        my $l = $w - length($pretty_id) - $r;
+        $filler3 = "-"x4 . " "x$l;
+        $filler4 = " "x$r . "-"x4 . "\n";
+    }
+    $CPAN::Frontend->
+        myprint("$filler1 $unsat $filler2".
+                "$filler3 $pretty_id $filler4".
+                join("", map {sprintf "    %s \[%s%s]\n", $_->[0], $map{$_->[1]}, $self->is_locally_optional(undef,$_->[0]) ? ",optional" : ""} @good_prereq_tuples),
+               );
+    my $follow = 0;
+    if ($CPAN::Config->{prerequisites_policy} eq "follow") {
+        $follow = 1;
+    } elsif ($CPAN::Config->{prerequisites_policy} eq "ask") {
+        my $answer = CPAN::Shell::colorable_makemaker_prompt(
+"Shall I follow them and prepend them to the queue
+of modules we are processing right now?", "yes");
+        $follow = $answer =~ /^\s*y/i;
+    } else {
+        my @prereq = map { $_->[0] } @good_prereq_tuples;
+        local($") = ", ";
+        $CPAN::Frontend->
+            myprint("  Ignoring dependencies on modules @prereq\n");
+    }
+    if ($follow) {
+        my $id = $self->id;
+        my(@to_queue_mand,@to_queue_opt);
+        for my $gp (@good_prereq_tuples) {
+            my($prereq,$reqtype,$optional) = @$gp;
+            my $qthing = +{qmod=>$prereq,reqtype=>$reqtype,optional=>$optional};
+            if ($optional &&
+                $self->is_locally_optional(undef,$prereq)
+               ){
+                # Since we do not depend on this one, we do not need
+                # this in a mandatory arrangement:
+                push @to_queue_opt, $qthing;
+            } else {
+                my $any = CPAN::Shell->expandany($prereq);
+                $self->{$slot . "_for"}{$any->id}++;
+                if ($any) {
+                    unless ($optional) {
+                        # No recursion check in an optional area of the tree
+                        $any->color_cmd_tmps(0,2);
+                    }
+                } else {
+                    $CPAN::Frontend->mywarn("Warning (maybe a bug): Cannot expand prereq '$prereq'\n");
+                    $CPAN::Frontend->mysleep(2);
+                }
+                # order everything that is not locally_optional just
+                # like mandatory items: this keeps leaves before
+                # branches
+                unshift @to_queue_mand, $qthing;
+            }
+        }
+        if (@to_queue_mand) {
+            unshift @to_queue_mand, {qmod => $id, reqtype => $self->{reqtype}, optional=> !$self->{mandatory}};
+            CPAN::Queue->jumpqueue(@to_queue_opt,@to_queue_mand);
+            $self->{$slot} = "Delayed until after prerequisites";
+            return 1; # signal we need dependencies
+        } elsif (@to_queue_opt) {
+            CPAN::Queue->jumpqueue(@to_queue_opt);
+        }
+    }
+    return;
+}
+
+sub _feature_depends {
+    my($self) = @_;
+    my $meta_yml = $self->parse_meta_yml();
+    my $optf = $meta_yml->{optional_features} or return;
+    if (!ref $optf or ref $optf ne "HASH"){
+        $CPAN::Frontend->mywarn("The content of optional_features is not a HASH reference. Cannot use it.\n");
+        $optf = {};
+    }
+    my $wantf = $self->prefs->{features} or return;
+    if (!ref $wantf or ref $wantf ne "ARRAY"){
+        $CPAN::Frontend->mywarn("The content of 'features' is not an ARRAY reference. Cannot use it.\n");
+        $wantf = [];
+    }
+    my $dep = +{};
+    for my $wf (@$wantf) {
+        if (my $f = $optf->{$wf}) {
+            $CPAN::Frontend->myprint("Found the demanded feature '$wf' that ".
+                                     "is accompanied by this description:\n".
+                                     $f->{description}.
+                                     "\n\n"
+                                    );
+            # configure_requires currently not in the spec, unlikely to be useful anyway
+            for my $reqtype (qw(configure_requires build_requires requires)) {
+                my $reqhash = $f->{$reqtype} or next;
+                while (my($k,$v) = each %$reqhash) {
+                    $dep->{$reqtype}{$k} = $v;
+                }
+            }
+        } else {
+            $CPAN::Frontend->mywarn("The demanded feature '$wf' was not ".
+                                    "found in the META.yml file".
+                                    "\n\n"
+                                   );
+        }
+    }
+    $dep;
+}
+
+sub prereqs_for_slot {
+    my($self,$slot) = @_;
+    my($prereq_pm);
+    unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) {
+        my $whynot = "not available";
+        if (defined $CPAN::Meta::Requirements::VERSION) {
+            $whynot = "version $CPAN::Meta::Requirements::VERSION not sufficient";
+        }
+        $CPAN::Frontend->mywarn("CPAN::Meta::Requirements $whynot\n");
+        my $before = "";
+        if ($self->{CALLED_FOR}){
+            if ($self->{CALLED_FOR} =~
+                /^(
+                     CPAN::Meta::Requirements
+                 |version
+                 |parent
+                 |ExtUtils::MakeMaker
+                 |Test::Harness
+                 )$/x) {
+                $CPAN::Frontend->mywarn("Setting requirements to nil as a workaround\n");
+                return;
+            }
+            $before = " before $self->{CALLED_FOR}";
+        }
+        $CPAN::Frontend->mydie("Please install CPAN::Meta::Requirements manually$before");
+    }
+    my $merged = CPAN::Meta::Requirements->new;
+    my $prefs_depends = $self->prefs->{depends}||{};
+    my $feature_depends = $self->_feature_depends();
+    if ($slot eq "configure_requires_later") {
+        for my $hash (  $self->configure_requires,
+                        $prefs_depends->{configure_requires},
+                        $feature_depends->{configure_requires},
+        ) {
+            $merged->add_requirements(
+                CPAN::Meta::Requirements->from_string_hash($hash)
+            );
+        }
+        if (-f "Build.PL"
+            && ! -f File::Spec->catfile($self->{build_dir},"Makefile.PL")
+            && ! $merged->requirements_for_module("Module::Build")
+            && ! $CPAN::META->has_inst("Module::Build")
+           ) {
+            $CPAN::Frontend->mywarn(
+              "  Warning: CPAN.pm discovered Module::Build as undeclared prerequisite.\n".
+              "  Adding it now as such.\n"
+            );
+            $CPAN::Frontend->mysleep(5);
+            $merged->add_minimum( "Module::Build" => 0 );
+            delete $self->{writemakefile};
+        }
+        $prereq_pm = {}; # configure_requires defined as "b"
+    } elsif ($slot eq "later") {
+        my $prereq_pm_0 = $self->prereq_pm || {};
+        for my $reqtype (qw(requires build_requires opt_requires opt_build_requires)) {
+            $prereq_pm->{$reqtype} = {%{$prereq_pm_0->{$reqtype}||{}}}; # copy to not pollute it
+            for my $dep ($prefs_depends,$feature_depends) {
+                for my $k (keys %{$dep->{$reqtype}||{}}) {
+                    $prereq_pm->{$reqtype}{$k} = $dep->{$reqtype}{$k};
+                }
+            }
+        }
+        # XXX what about optional_req|breq? -- xdg, 2012-04-01
+        for my $hash (
+            $prereq_pm->{requires},
+            $prereq_pm->{build_requires},
+            $prereq_pm->{opt_requires},
+            $prereq_pm->{opt_build_requires},
+
+        ) {
+            $merged->add_requirements(
+                CPAN::Meta::Requirements->from_string_hash($hash)
+            );
+        }
+    } else {
+        die "Panic: illegal slot '$slot'";
+    }
+    return ($merged->as_string_hash, $prereq_pm);
+}
+
+#-> sub CPAN::Distribution::unsat_prereq ;
+# return ([Foo,"r"],[Bar,"b"]) for normal modules
+# return ([perl=>5.008]) if we need a newer perl than we are running under
+# (sorry for the inconsistency, it was an accident)
+sub unsat_prereq {
+    my($self,$slot) = @_;
+    my($merged_hash,$prereq_pm) = $self->prereqs_for_slot($slot);
+    my(@need);
+    unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) {
+        $CPAN::Frontend->mywarn("CPAN::Meta::Requirements not available, please install as soon as possible, trying to continue with severly limited capabilities\n");
+        return;
+    }
+    my $merged = CPAN::Meta::Requirements->from_string_hash($merged_hash);
+    my @merged = sort $merged->required_modules;
+    CPAN->debug("all merged_prereqs[@merged]") if $CPAN::DEBUG;
+  NEED: for my $need_module ( @merged ) {
+        my $need_version = $merged->requirements_for_module($need_module);
+        my($available_version,$inst_file,$available_file,$nmo);
+        if ($need_module eq "perl") {
+            $available_version = $];
+            $available_file = CPAN::find_perl();
+        } else {
+            if (CPAN::_sqlite_running()) {
+                CPAN::Index->reload;
+                $CPAN::SQLite->search("CPAN::Module",$need_module);
+            }
+            $nmo = $CPAN::META->instance("CPAN::Module",$need_module);
+            $inst_file = $nmo->inst_file || '';
+            $available_file = $nmo->available_file || '';
+            $available_version = $nmo->available_version;
+            if ($nmo->uptodate) {
+                my $accepts = eval {
+                    $merged->accepts_module($need_module, $available_version);
+                };
+                unless ($accepts) {
+                    my $rq = $merged->requirements_for_module( $need_module );
+                    $CPAN::Frontend->mywarn(
+                        "Warning: Version '$available_version' of ".
+                        "'$need_module' is up to date but does not ".
+                        "fulfill requirements ($rq). I will continue, ".
+                        "but chances to succeed are low.\n");
+                }
+                next NEED;
+            }
+
+            # if they have not specified a version, we accept any installed one
+            if ( $available_file
+                and ( # a few quick short circuits
+                     not defined $need_version
+                     or $need_version eq '0'    # "==" would trigger warning when not numeric
+                     or $need_version eq "undef"
+                    )) {
+                unless ($nmo->inst_deprecated) {
+                    next NEED;
+                }
+            }
+        }
+
+        # We only want to install prereqs if either they're not installed
+        # or if the installed version is too old. We cannot omit this
+        # check, because if 'force' is in effect, nobody else will check.
+        # But we don't want to accept a deprecated module installed as part
+        # of the Perl core, so we continue if the available file is the installed
+        # one and is deprecated
+
+        if ( $available_file ) {
+            my $fulfills_all_version_rqs = $self->_fulfills_all_version_rqs
+                (
+                 $need_module,
+                 $available_file,
+                 $available_version,
+                 $need_version,
+                );
+            if ( $inst_file
+                       && $available_file eq $inst_file
+                       && $nmo->inst_deprecated
+                     ) {
+                # continue installing as a prereq. we really want that
+                # because the deprecated module may spit out warnings
+                # and third party did not know until today. Only one
+                # exception is OK, because CPANPLUS is special after
+                # all:
+                if ( $fulfills_all_version_rqs and
+                     $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/
+                   ) {
+                    # here we have an available version that is good
+                    # enough although deprecated (preventing circular
+                    # loop CPANPLUS => CPANPLUS::Dist::Build RT#83042)
+                    next NEED;
+                }
+            } elsif (
+                $self->{reqtype} =~ /^(r|c)$/
+                && (exists $prereq_pm->{requires}{$need_module} || exists $prereq_pm->{opt_requires} )
+                && $nmo 
+                && !$inst_file
+            ) {
+                # continue installing as a prereq; this may be a
+                # distro we already used when it was a build_requires
+                # so we did not install it. But suddenly somebody
+                # wants it as a requires
+                my $need_distro = $nmo->distribution;
+                if ($need_distro->{install} && $need_distro->{install}->failed && $need_distro->{install}->text =~ /is only/) {
+                    CPAN->debug("promotion from build_requires to requires") if $CPAN::DEBUG;
+                    delete $need_distro->{install}; # promote to another installation attempt
+                    $need_distro->{reqtype} = "r";
+                    $need_distro->install;
+                    next NEED;
+                }
+            }
+            else {
+                next NEED if $fulfills_all_version_rqs;
+            }
+        }
+
+        if ($need_module eq "perl") {
+            return ["perl", $need_version];
+        }
+        $self->{sponsored_mods}{$need_module} ||= 0;
+        CPAN->debug("need_module[$need_module]s/s/n[$self->{sponsored_mods}{$need_module}]") if $CPAN::DEBUG;
+        if (my $sponsoring = $self->{sponsored_mods}{$need_module}++) {
+            # We have already sponsored it and for some reason it's still
+            # not available. So we do ... what??
+
+            # if we push it again, we have a potential infinite loop
+
+            # The following "next" was a very problematic construct.
+            # It helped a lot but broke some day and had to be
+            # replaced.
+
+            # We must be able to deal with modules that come again and
+            # again as a prereq and have themselves prereqs and the
+            # queue becomes long but finally we would find the correct
+            # order. The RecursiveDependency check should trigger a
+            # die when it's becoming too weird. Unfortunately removing
+            # this next breaks many other things.
+
+            # The bug that brought this up is described in Todo under
+            # "5.8.9 cannot install Compress::Zlib"
+
+            # next; # this is the next that had to go away
+
+            # The following "next NEED" are fine and the error message
+            # explains well what is going on. For example when the DBI
+            # fails and consequently DBD::SQLite fails and now we are
+            # processing CPAN::SQLite. Then we must have a "next" for
+            # DBD::SQLite. How can we get it and how can we identify
+            # all other cases we must identify?
+
+            my $do = $nmo->distribution;
+            next NEED unless $do; # not on CPAN
+            if (CPAN::Version->vcmp($need_version, $nmo->ro->{CPAN_VERSION}) > 0){
+                $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                                        "'$need_module => $need_version' ".
+                                        "for '$self->{ID}' seems ".
+                                        "not available according to the indices\n"
+                                       );
+                next NEED;
+            }
+          NOSAYER: for my $nosayer (
+                                    "unwrapped",
+                                    "writemakefile",
+                                    "signature_verify",
+                                    "make",
+                                    "make_test",
+                                    "install",
+                                    "make_clean",
+                                   ) {
+                if ($do->{$nosayer}) {
+                    my $selfid = $self->pretty_id;
+                    my $did = $do->pretty_id;
+                    if (UNIVERSAL::can($do->{$nosayer},"failed") ?
+                        $do->{$nosayer}->failed :
+                        $do->{$nosayer} =~ /^NO/) {
+                        if ($nosayer eq "make_test"
+                            &&
+                            $do->{make_test}{COMMANDID} != $CPAN::CurrentCommandId
+                           ) {
+                            next NOSAYER;
+                        }
+                        ### XXX  don't complain about missing optional deps -- xdg, 2012-04-01
+                        if ($self->is_locally_optional($prereq_pm, $need_module)) {
+                            # don't complain about failing optional prereqs
+                        }
+                        else {
+                            $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                                                    "'$need_module => $need_version' ".
+                                                    "for '$selfid' failed when ".
+                                                    "processing '$did' with ".
+                                                    "'$nosayer => $do->{$nosayer}'. Continuing, ".
+                                                    "but chances to succeed are limited.\n"
+                                                );
+                            $CPAN::Frontend->mysleep($sponsoring/10);
+                        }
+                        next NEED;
+                    } else { # the other guy succeeded
+                        if ($nosayer =~ /^(install|make_test)$/) {
+                            # we had this with
+                            # DMAKI/DateTime-Calendar-Chinese-0.05.tar.gz
+                            # in 2007-03 for 'make install'
+                            # and 2008-04: #30464 (for 'make test')
+                            # $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                            #                         "'$need_module => $need_version' ".
+                            #                         "for '$selfid' already built ".
+                            #                         "but the result looks suspicious. ".
+                            #                         "Skipping another build attempt, ".
+                            #                         "to prevent looping endlessly.\n"
+                            #                        );
+                            next NEED;
+                        }
+                    }
+                }
+            }
+        }
+        my $needed_as;
+        if (0) {
+        } elsif (exists $prereq_pm->{requires}{$need_module}
+            || exists $prereq_pm->{opt_requires}{$need_module}
+        ) {
+            $needed_as = "r";
+        } elsif ($slot eq "configure_requires_later") {
+            # in ae872487d5 we said: C< we have not yet run the
+            # {Build,Makefile}.PL, we must presume "r" >; but the
+            # meta.yml standard says C< These dependencies are not
+            # required after the distribution is installed. >; so now
+            # we change it back to "b" and care for the proper
+            # promotion later.
+            $needed_as = "b";
+        } else {
+            $needed_as = "b";
+        }
+        # here need to flag as optional for recommends/suggests
+        # -- xdg, 2012-04-01
+        $self->debug(sprintf "%s manadory?[%s]",
+                     $self->pretty_id,
+                     $self->{mandatory})
+            if $CPAN::DEBUG;
+        my $optional = !$self->{mandatory}
+            || $self->is_locally_optional($prereq_pm, $need_module);
+        push @need, [$need_module,$needed_as,$optional];
+    }
+    my @unfolded = map { "[".join(",",@$_)."]" } @need;
+    CPAN->debug("returning from unsat_prereq[@unfolded]") if $CPAN::DEBUG;
+    @need;
+}
+
+sub _fulfills_all_version_rqs {
+    my($self,$need_module,$available_file,$available_version,$need_version) = @_;
+    my(@all_requirements) = split /\s*,\s*/, $need_version;
+    local($^W) = 0;
+    my $ok = 0;
+  RQ: for my $rq (@all_requirements) {
+        if ($rq =~ s|>=\s*||) {
+        } elsif ($rq =~ s|>\s*||) {
+            # 2005-12: one user
+            if (CPAN::Version->vgt($available_version,$rq)) {
+                $ok++;
+            }
+            next RQ;
+        } elsif ($rq =~ s|!=\s*||) {
+            # 2005-12: no user
+            if (CPAN::Version->vcmp($available_version,$rq)) {
+                $ok++;
+                next RQ;
+            } else {
+                $ok=0;
+                last RQ;
+            }
+        } elsif ($rq =~ m|<=?\s*|) {
+            # 2005-12: no user
+            $CPAN::Frontend->mywarn("Downgrading not supported (rq[$rq])\n");
+            $ok++;
+            next RQ;
+        } elsif ($rq =~ s|==\s*||) {
+            # 2009-07: ELLIOTJS/Perl-Critic-1.099_002.tar.gz
+            if (CPAN::Version->vcmp($available_version,$rq)) {
+                $ok=0;
+                last RQ;
+            } else {
+                $ok++;
+                next RQ;
+            }
+        }
+        if (! CPAN::Version->vgt($rq, $available_version)) {
+            $ok++;
+        }
+        CPAN->debug(sprintf("need_module[%s]available_file[%s]".
+                            "available_version[%s]rq[%s]ok[%d]",
+                            $need_module,
+                            $available_file,
+                            $available_version,
+                            CPAN::Version->readable($rq),
+                            $ok,
+                           )) if $CPAN::DEBUG;
+    }
+    my $ret = $ok == @all_requirements;
+    CPAN->debug(sprintf("need_module[%s]ok[%s]all_requirements[%d]",$need_module, $ok, scalar @all_requirements)) if $CPAN::DEBUG;
+    return $ret;
+}
+
+#-> sub CPAN::Distribution::read_meta
+# read any sort of meta files, return CPAN::Meta object if no errors
+sub read_meta {
+    my($self) = @_;
+    my $meta_file = $self->pick_meta_file
+        or return;
+
+    return unless $CPAN::META->has_usable("CPAN::Meta");
+    my $meta = eval { CPAN::Meta->load_file($meta_file)}
+        or return;
+
+    # Very old EU::MM could have wrong META
+    if ($meta_file eq 'META.yml'
+        && $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/
+    ) {
+        my $eummv = do { local $^W = 0; $1+0; };
+        return if $eummv < 6.2501;
+    }
+
+    return $meta;
+}
+
+#-> sub CPAN::Distribution::read_yaml ;
+# XXX This should be DEPRECATED -- dagolden, 2011-02-05
+sub read_yaml {
+    my($self) = @_;
+    my $meta_file = $self->pick_meta_file('\.yml$');
+    $self->debug("meta_file[$meta_file]") if $CPAN::DEBUG;
+    return unless $meta_file;
+    my $yaml;
+    eval { $yaml = $self->parse_meta_yml($meta_file) };
+    if ($@ or ! $yaml) {
+        return undef; # if we die, then we cannot read YAML's own META.yml
+    }
+    # not "authoritative"
+    if (defined $yaml && (! ref $yaml || ref $yaml ne "HASH")) {
+        $CPAN::Frontend->mywarn("META.yml does not seem to be conforming, cannot use it.\n");
+        $yaml = undef;
+    }
+    $self->debug(sprintf "yaml[%s]", $yaml || "UNDEF")
+        if $CPAN::DEBUG;
+    $self->debug($yaml) if $CPAN::DEBUG && $yaml;
+    # MYMETA.yml is static and authoritative by definition
+    if ( $meta_file =~ /MYMETA\.yml/ ) {
+      return $yaml;
+    }
+    # META.yml is authoritative only if dynamic_config is defined and false
+    if ( defined $yaml->{dynamic_config} && ! $yaml->{dynamic_config} ) {
+      return $yaml;
+    }
+    # otherwise, we can't use what we found
+    return undef;
+}
+
+#-> sub CPAN::Distribution::configure_requires ;
+sub configure_requires {
+    my($self) = @_;
+    return unless my $meta_file = $self->pick_meta_file('^META');
+    if (my $meta_obj = $self->read_meta) {
+        my $prereqs = $meta_obj->effective_prereqs;
+        my $cr = $prereqs->requirements_for(qw/configure requires/);
+        return $cr ? $cr->as_string_hash : undef;
+    }
+    else {
+        my $yaml = eval { $self->parse_meta_yml($meta_file) };
+        return $yaml->{configure_requires};
+    }
+}
+
+#-> sub CPAN::Distribution::prereq_pm ;
+sub prereq_pm {
+    my($self) = @_;
+    return unless $self->{writemakefile}  # no need to have succeeded
+                                          # but we must have run it
+        || $self->{modulebuild};
+    unless ($self->{build_dir}) {
+        return;
+    }
+    # no Makefile/Build means configuration aborted, so don't look for prereqs
+    my $makefile  = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'descrip.mms' : 'Makefile');
+    my $buildfile = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'Build.com' : 'Build');
+    return unless   -f $makefile || -f $buildfile;
+    CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]",
+                $self->{writemakefile}||"",
+                $self->{modulebuild}||"",
+               ) if $CPAN::DEBUG;
+    my($req,$breq, $opt_req, $opt_breq);
+    my $meta_obj = $self->read_meta;
+    # META/MYMETA is only authoritative if dynamic_config is false
+    if ($meta_obj && ! $meta_obj->dynamic_config) {
+        my $prereqs = $meta_obj->effective_prereqs;
+        my $requires = $prereqs->requirements_for(qw/runtime requires/);
+        my $build_requires = $prereqs->requirements_for(qw/build requires/);
+        my $test_requires = $prereqs->requirements_for(qw/test requires/);
+        # XXX we don't yet distinguish build vs test, so merge them for now
+        $build_requires->add_requirements($test_requires);
+        $req = $requires->as_string_hash;
+        $breq = $build_requires->as_string_hash;
+
+        # XXX assemble optional_req && optional_breq from recommends/suggests
+        # depending on corresponding policies -- xdg, 2012-04-01
+        CPAN->use_inst("CPAN::Meta::Requirements");
+        my $opt_runtime = CPAN::Meta::Requirements->new;
+        my $opt_build   = CPAN::Meta::Requirements->new;
+        if ( $CPAN::Config->{recommends_policy} ) {
+            $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime recommends/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/build recommends/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/test  recommends/));
+
+        }
+        if ( $CPAN::Config->{suggests_policy} ) {
+            $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime suggests/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/build suggests/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/test  suggests/));
+        }
+        $opt_req = $opt_runtime->as_string_hash;
+        $opt_breq = $opt_build->as_string_hash;
+    }
+    elsif (my $yaml = $self->read_yaml) { # often dynamic_config prevents a result here
+        $req =  $yaml->{requires} || {};
+        $breq =  $yaml->{build_requires} || {};
+        if ( $CPAN::Config->{recommends_policy} ) {
+            $opt_req = $yaml->{recommends} || {};
+        }
+        undef $req unless ref $req eq "HASH" && %$req;
+        if ($req) {
+            if ($yaml->{generated_by} &&
+                $yaml->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
+                my $eummv = do { local $^W = 0; $1+0; };
+                if ($eummv < 6.2501) {
+                    # thanks to Slaven for digging that out: MM before
+                    # that could be wrong because it could reflect a
+                    # previous release
+                    undef $req;
+                }
+            }
+            my $areq;
+            my $do_replace;
+            foreach my $k (sort keys %{$req||{}}) {
+                my $v = $req->{$k};
+                next unless defined $v;
+                if ($v =~ /\d/) {
+                    $areq->{$k} = $v;
+                } elsif ($k =~ /[A-Za-z]/ &&
+                         $v =~ /[A-Za-z]/ &&
+                         $CPAN::META->exists("CPAN::Module",$v)
+                        ) {
+                    $CPAN::Frontend->mywarn("Suspicious key-value pair in META.yml's ".
+                                            "requires hash: $k => $v; I'll take both ".
+                                            "key and value as a module name\n");
+                    $CPAN::Frontend->mysleep(1);
+                    $areq->{$k} = 0;
+                    $areq->{$v} = 0;
+                    $do_replace++;
+                }
+            }
+            $req = $areq if $do_replace;
+        }
+    }
+    else {
+        $CPAN::Frontend->mywarnonce("Could not read metadata file. Falling back to other ".
+                                    "methods to determine prerequisites\n");
+    }
+
+    unless ($req || $breq) {
+        my $build_dir;
+        unless ( $build_dir = $self->{build_dir} ) {
+            return;
+        }
+        my $makefile = File::Spec->catfile($build_dir,"Makefile");
+        my $fh;
+        if (-f $makefile
+            and
+            $fh = FileHandle->new("<$makefile\0")) {
+            CPAN->debug("Getting prereq from Makefile") if $CPAN::DEBUG;
+            local($/) = "\n";
+            while (<$fh>) {
+                last if /MakeMaker post_initialize section/;
+                my($p) = m{^[\#]
+                           \s+PREREQ_PM\s+=>\s+(.+)
+                       }x;
+                next unless $p;
+                # warn "Found prereq expr[$p]";
+
+                #  Regexp modified by A.Speer to remember actual version of file
+                #  PREREQ_PM hash key wants, then add to
+                while ( $p =~ m/(?:\s)([\w\:]+)=>(q\[.*?\]|undef),?/g ) {
+                    my($m,$n) = ($1,$2);
+                    # When a prereq is mentioned twice: let the bigger
+                    # win; usual culprit is that they declared
+                    # build_requires separately from requires; see
+                    # rt.cpan.org #47774
+                    my($prevn);
+                    if ( defined $req->{$m} ) {
+                        $prevn = $req->{$m};
+                    }
+                    if ($n =~ /^q\[(.*?)\]$/) {
+                        $n = $1;
+                    }
+                    if (!$prevn || CPAN::Version->vlt($prevn, $n)){
+                        $req->{$m} = $n;
+                    }
+                }
+                last;
+            }
+        }
+    }
+    unless ($req || $breq) {
+        my $build_dir = $self->{build_dir} or die "Panic: no build_dir?";
+        my $buildfile = File::Spec->catfile($build_dir,"Build");
+        if (-f $buildfile) {
+            CPAN->debug("Found '$buildfile'") if $CPAN::DEBUG;
+            my $build_prereqs = File::Spec->catfile($build_dir,"_build","prereqs");
+            if (-f $build_prereqs) {
+                CPAN->debug("Getting prerequisites from '$build_prereqs'") if $CPAN::DEBUG;
+                my $content = do { local *FH;
+                                   open FH, $build_prereqs
+                                       or $CPAN::Frontend->mydie("Could not open ".
+                                                                 "'$build_prereqs': $!");
+                                   local $/;
+                                   <FH>;
+                               };
+                my $bphash = eval $content;
+                if ($@) {
+                } else {
+                    $req  = $bphash->{requires} || +{};
+                    $breq = $bphash->{build_requires} || +{};
+                }
+            }
+        }
+    }
+    # XXX needs to be adapted for optional_req & optional_breq -- xdg, 2012-04-01
+    if ($req || $breq || $opt_req || $opt_breq ) {
+        return $self->{prereq_pm} = {
+           requires => $req,
+           build_requires => $breq,
+           opt_requires => $opt_req,
+           opt_build_requires => $opt_breq,
+       };
+    }
+}
+
+#-> sub CPAN::Distribution::shortcut_test ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_test {
+    my ($self) = @_;
+
+    $self->debug("checking badtestcnt[$self->{ID}]") if $CPAN::DEBUG;
+    $self->{badtestcnt} ||= 0;
+    if ($self->{badtestcnt} > 0) {
+        require Data::Dumper;
+        CPAN->debug(sprintf "NOREPEAT[%s]", Data::Dumper::Dumper($self)) if $CPAN::DEBUG;
+        return $self->goodbye("Won't repeat unsuccessful test during this command");
+    }
+
+    for my $slot ( qw/later configure_requires_later/ ) {
+        $self->debug("checking $slot slot[$self->{ID}]") if $CPAN::DEBUG;
+        return $self->success($self->{$slot})
+        if $self->{$slot};
+    }
+
+    $self->debug("checking if tests passed[$self->{ID}]") if $CPAN::DEBUG;
+    if ( $self->{make_test} ) {
+        if (
+            UNIVERSAL::can($self->{make_test},"failed") ?
+            $self->{make_test}->failed :
+            $self->{make_test} =~ /^NO/
+        ) {
+            if (
+                UNIVERSAL::can($self->{make_test},"commandid")
+                &&
+                $self->{make_test}->commandid == $CPAN::CurrentCommandId
+            ) {
+                return $self->goodbye("Has already been tested within this command");
+            }
+        } else {
+            # if global "is_tested" has been cleared, we need to mark this to
+            # be added to PERL5LIB if not already installed
+            if ($self->tested_ok_but_not_installed) {
+                $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+            }
+            return $self->success("Has already been tested successfully");
+        }
+    }
+
+    if ($self->{notest}) {
+        $self->{make_test} = CPAN::Distrostatus->new("YES");
+        return $self->success("Skipping test because of notest pragma");
+    }
+
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::_exe_files ;
+sub _exe_files {
+    my($self) = @_;
+    return unless $self->{writemakefile}  # no need to have succeeded
+                                          # but we must have run it
+        || $self->{modulebuild};
+    unless ($self->{build_dir}) {
+        return;
+    }
+    CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]",
+                $self->{writemakefile}||"",
+                $self->{modulebuild}||"",
+               ) if $CPAN::DEBUG;
+    my $build_dir;
+    unless ( $build_dir = $self->{build_dir} ) {
+        return;
+    }
+    my $makefile = File::Spec->catfile($build_dir,"Makefile");
+    my $fh;
+    my @exe_files;
+    if (-f $makefile
+        and
+        $fh = FileHandle->new("<$makefile\0")) {
+        CPAN->debug("Getting exefiles from Makefile") if $CPAN::DEBUG;
+        local($/) = "\n";
+        while (<$fh>) {
+            last if /MakeMaker post_initialize section/;
+            my($p) = m{^[\#]
+                       \s+EXE_FILES\s+=>\s+\[(.+)\]
+                  }x;
+            next unless $p;
+            # warn "Found exefiles expr[$p]";
+            my @p = split /,\s*/, $p;
+            for my $p2 (@p) {
+                if ($p2 =~ /^q\[(.+)\]/) {
+                    push @exe_files, $1;
+                }
+            }
+        }
+    }
+    return \@exe_files if @exe_files;
+    my $buildparams = File::Spec->catfile($build_dir,"_build","build_params");
+    if (-f $buildparams) {
+        CPAN->debug("Found '$buildparams'") if $CPAN::DEBUG;
+        my $x = do $buildparams;
+        for my $sf (@{$x->[2]{script_files} || []}) {
+            push @exe_files, $sf;
+        }
+    }
+    return \@exe_files;
+}
+
+#-> sub CPAN::Distribution::test ;
+sub test {
+    my($self) = @_;
+
+    $self->pre_test();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    $self->make
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_test ) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+      delete $self->{force_update};
+      return;
+    }
+    # warn "XDEBUG: checking for notest: $self->{notest} $self";
+    my $make = $self->{modulebuild} ? "Build" : "make";
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # test
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+
+    $CPAN::Frontend->myprint("Running $make test\n");
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    $self->debug("Changed directory to $self->{build_dir}")
+        if $CPAN::DEBUG;
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_test($self);
+        return;
+    }
+
+    if ($self->{modulebuild}) {
+        my $thm = CPAN::Shell->expand("Module","Test::Harness");
+        my $v = $thm->inst_version;
+        if (CPAN::Version->vlt($v,2.62)) {
+            # XXX Eric Wilhelm reported this as a bug: klapperl:
+            # Test::Harness 3.0 self-tests, so that should be 'unless
+            # installing Test::Harness'
+            unless ($self->id eq $thm->distribution->id) {
+               $CPAN::Frontend->mywarn(qq{The version of your Test::Harness is only
+  '$v', you need at least '2.62'. Please upgrade your Test::Harness.\n});
+                $self->{make_test} = CPAN::Distrostatus->new("NO Test::Harness too old");
+                return;
+            }
+        }
+    }
+
+    if ( ! $self->{force_update}  ) {
+        # bypass actual tests if "trust_test_report_history" and have a report
+        my $have_tested_fcn;
+        if (   $CPAN::Config->{trust_test_report_history}
+            && $CPAN::META->has_inst("CPAN::Reporter::History")
+            && ( $have_tested_fcn = CPAN::Reporter::History->can("have_tested" ))) {
+            if ( my @reports = $have_tested_fcn->( dist => $self->base_id ) ) {
+                # Do nothing if grade was DISCARD
+                if ( $reports[-1]->{grade} =~ /^(?:PASS|UNKNOWN)$/ ) {
+                    $self->{make_test} = CPAN::Distrostatus->new("YES");
+                    # if global "is_tested" has been cleared, we need to mark this to
+                    # be added to PERL5LIB if not already installed
+                    if ($self->tested_ok_but_not_installed) {
+                        $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+                    }
+                    $CPAN::Frontend->myprint("Found prior test report -- OK\n");
+                    return;
+                }
+                elsif ( $reports[-1]->{grade} =~ /^(?:FAIL|NA)$/ ) {
+                    $self->{make_test} = CPAN::Distrostatus->new("NO");
+                    $self->{badtestcnt}++;
+                    $CPAN::Frontend->mywarn("Found prior test report -- NOT OK\n");
+                    return;
+                }
+            }
+        }
+    }
+
+    my $system;
+    my $prefs_test = $self->prefs->{test};
+    if (my $commandline
+        = exists $prefs_test->{commandline} ? $prefs_test->{commandline} : "") {
+        $system = $commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } elsif ($self->{modulebuild}) {
+        $system = sprintf "%s test", $self->_build_command();
+        unless (-e "Build" || ($^O eq 'VMS' && -e "Build.com")) {
+            my $id = $self->pretty_id;
+            $CPAN::Frontend->mywarn("Alert: no 'Build' file found while trying to test '$id'");
+        }
+    } else {
+        $system = join " ", $self->_make_command(), "test";
+    }
+    my $make_test_arg = $self->_make_phase_arg("test");
+    $system = sprintf("%s%s",
+                      $system,
+                      $make_test_arg ? " $make_test_arg" : "",
+                     );
+    my($tests_ok);
+    my $test_env;
+    if ($self->prefs->{test}) {
+        $test_env = $self->prefs->{test}{env};
+    }
+    local @ENV{keys %$test_env} = values %$test_env if $test_env;
+    my $expect_model = $self->_prefs_with_expect("test");
+    my $want_expect = 0;
+    if ( $expect_model && @{$expect_model->{talk}} ) {
+        my $can_expect = $CPAN::META->has_inst("Expect");
+        if ($can_expect) {
+            $want_expect = 1;
+        } else {
+            $CPAN::Frontend->mywarn("Expect not installed, falling back to ".
+                                    "testing without\n");
+        }
+    }
+    if ($want_expect) {
+        if ($self->_should_report('test')) {
+            $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is currently ".
+                                    "not supported when distroprefs specify ".
+                                    "an interactive test\n");
+        }
+        $tests_ok = $self->_run_via_expect($system,'test',$expect_model) == 0;
+    } elsif ( $self->_should_report('test') ) {
+        $tests_ok = CPAN::Reporter::test($self, $system);
+    } else {
+        $tests_ok = system($system) == 0;
+    }
+    $self->introduce_myself;
+    my $but = $self->_make_test_illuminate_prereqs();
+    if ( $tests_ok ) {
+        if ($but) {
+            $CPAN::Frontend->mywarn("Tests succeeded but $but\n");
+            $self->{make_test} = CPAN::Distrostatus->new("NO $but");
+            $self->store_persistent_state;
+            return $self->goodbye("[dependencies] -- NA");
+        }
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $self->{make_test} = CPAN::Distrostatus->new("YES");
+        $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+        # probably impossible to need the next line because badtestcnt
+        # has a lifespan of one command
+        delete $self->{badtestcnt};
+    } else {
+        if ($but) {
+            $but .= "; additionally test harness failed";
+            $CPAN::Frontend->mywarn("$but\n");
+            $self->{make_test} = CPAN::Distrostatus->new("NO $but");
+        } elsif ( $self->{force_update} ) {
+            $self->{make_test} = CPAN::Distrostatus->new(
+                "NO but failure ignored because 'force' in effect"
+            );
+        } else {
+            $self->{make_test} = CPAN::Distrostatus->new("NO");
+        }
+        $self->{badtestcnt}++;
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        CPAN::Shell->optprint
+              ("hint",
+               sprintf
+               ("//hint// to see the cpan-testers results for installing this module, try:
+  reports %s\n",
+                $self->pretty_id));
+    }
+    $self->store_persistent_state;
+
+    $self->post_test();
+
+    return $self->{force_update} ? 1 : !! $tests_ok;
+}
+
+sub _make_test_illuminate_prereqs {
+    my($self) = @_;
+    my @prereq;
+
+    # local $CPAN::DEBUG = 16; # Distribution
+    for my $m (sort keys %{$self->{sponsored_mods}}) {
+        next unless $self->{sponsored_mods}{$m} > 0;
+        my $m_obj = CPAN::Shell->expand("Module",$m) or next;
+        # XXX we need available_version which reflects
+        # $ENV{PERL5LIB} so that already tested but not yet
+        # installed modules are counted.
+        my $available_version = $m_obj->available_version;
+        my $available_file = $m_obj->available_file;
+        if ($available_version &&
+            !CPAN::Version->vlt($available_version,$self->{prereq_pm}{$m})
+           ) {
+            CPAN->debug("m[$m] good enough available_version[$available_version]")
+                if $CPAN::DEBUG;
+        } elsif ($available_file
+                 && (
+                     !$self->{prereq_pm}{$m}
+                     ||
+                     $self->{prereq_pm}{$m} == 0
+                    )
+                ) {
+            # lex Class::Accessor::Chained::Fast which has no $VERSION
+            CPAN->debug("m[$m] have available_file[$available_file]")
+                if $CPAN::DEBUG;
+        } else {
+            push @prereq, $m
+                if $m_obj->{mandatory};
+        }
+    }
+    my $but;
+    if (@prereq) {
+        my $cnt = @prereq;
+        my $which = join ",", @prereq;
+        $but = $cnt == 1 ? "one dependency not OK ($which)" :
+            "$cnt dependencies missing ($which)";
+    }
+    $but;
+}
+
+sub _prefs_with_expect {
+    my($self,$where) = @_;
+    return unless my $prefs = $self->prefs;
+    return unless my $where_prefs = $prefs->{$where};
+    if ($where_prefs->{expect}) {
+        return {
+                mode => "deterministic",
+                timeout => 15,
+                talk => $where_prefs->{expect},
+               };
+    } elsif ($where_prefs->{"eexpect"}) {
+        return $where_prefs->{"eexpect"};
+    }
+    return;
+}
+
+#-> sub CPAN::Distribution::clean ;
+sub clean {
+    my($self) = @_;
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint("Running $make clean\n");
+    unless (exists $self->{archived}) {
+        $CPAN::Frontend->mywarn("Distribution seems to have never been unzipped".
+                                "/untarred, nothing done\n");
+        return 1;
+    }
+    unless (exists $self->{build_dir}) {
+        $CPAN::Frontend->mywarn("Distribution has no own directory, nothing to do.\n");
+        return 1;
+    }
+    if (exists $self->{writemakefile}
+        and $self->{writemakefile}->failed
+       ) {
+        $CPAN::Frontend->mywarn("No Makefile, don't know how to 'make clean'\n");
+        return 1;
+    }
+  EXCUSE: {
+        my @e;
+        exists $self->{make_clean} and $self->{make_clean} eq "YES" and
+            push @e, "make clean already called once";
+        $CPAN::Frontend->myprint(join "", map {"  $_\n"} @e) and return if @e;
+    }
+    chdir $self->{build_dir} or
+        Carp::confess("Couldn't chdir to $self->{build_dir}: $!");
+    $self->debug("Changed directory to $self->{build_dir}") if $CPAN::DEBUG;
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_clean($self);
+        return;
+    }
+
+    my $system;
+    if ($self->{modulebuild}) {
+        unless (-f "Build") {
+            my $cwd = CPAN::anycwd();
+            $CPAN::Frontend->mywarn("Alert: no Build file available for 'clean $self->{id}".
+                                    " in cwd[$cwd]. Danger, Will Robinson!");
+            $CPAN::Frontend->mysleep(5);
+        }
+        $system = sprintf "%s clean", $self->_build_command();
+    } else {
+        $system  = join " ", $self->_make_command(), "clean";
+    }
+    my $system_ok = system($system) == 0;
+    $self->introduce_myself;
+    if ( $system_ok ) {
+      $CPAN::Frontend->myprint("  $system -- OK\n");
+
+      # $self->force;
+
+      # Jost Krieger pointed out that this "force" was wrong because
+      # it has the effect that the next "install" on this distribution
+      # will untar everything again. Instead we should bring the
+      # object's state back to where it is after untarring.
+
+      for my $k (qw(
+                    force_update
+                    install
+                    writemakefile
+                    make
+                    make_test
+                   )) {
+          delete $self->{$k};
+      }
+      $self->{make_clean} = CPAN::Distrostatus->new("YES");
+
+    } else {
+      # Hmmm, what to do if make clean failed?
+
+      $self->{make_clean} = CPAN::Distrostatus->new("NO");
+      $CPAN::Frontend->mywarn(qq{  $system -- NOT OK\n});
+
+      # 2006-02-27: seems silly to me to force a make now
+      # $self->force("make"); # so that this directory won't be used again
+
+    }
+    $self->store_persistent_state;
+}
+
+#-> sub CPAN::Distribution::check_disabled ;
+sub check_disabled {
+    my ($self) = @_;
+    $self->debug("checking disabled id[$self->{ID}]") if $CPAN::DEBUG;
+    if ($self->prefs->{disabled} && ! $self->{force_update}) {
+        return sprintf(
+                            "Disabled via prefs file '%s' doc %d",
+                            $self->{prefs_file},
+                            $self->{prefs_file_doc},
+                            );
+    }
+    return;
+}
+
+#-> sub CPAN::Distribution::goto ;
+sub goto {
+    my($self,$goto) = @_;
+    $goto = $self->normalize($goto);
+    my $why = sprintf(
+                      "Goto '$goto' via prefs file '%s' doc %d",
+                      $self->{prefs_file},
+                      $self->{prefs_file_doc},
+                     );
+    $self->{unwrapped} = CPAN::Distrostatus->new("NO $why");
+    # 2007-07-16 akoenig : Better than NA would be if we could inherit
+    # the status of the $goto distro but given the exceptional nature
+    # of 'goto' I feel reluctant to implement it
+    my $goodbye_message = "[goto] -- NA $why";
+    $self->goodbye($goodbye_message);
+
+    # inject into the queue
+
+    CPAN::Queue->delete($self->id);
+    CPAN::Queue->jumpqueue({qmod => $goto, reqtype => $self->{reqtype}});
+
+    # and run where we left off
+
+    my($method) = (caller(1))[3];
+    CPAN->instance("CPAN::Distribution",$goto)->$method();
+    CPAN::Queue->delete_first($goto);
+    # XXX delete_first returns undef; is that what this should return
+    # up the call stack, eg. return $sefl->goto($goto) -- xdg, 2012-04-04
+}
+
+#-> sub CPAN::Distribution::shortcut_install ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_install {
+    my ($self) = @_;
+
+    $self->debug("checking previous install results[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{install}) {
+        my $text = UNIVERSAL::can($self->{install},"text") ?
+            $self->{install}->text :
+                $self->{install};
+        if ($text =~ /^YES/) {
+            $CPAN::META->is_installed($self->{build_dir});
+            return $self->success("Already done");
+        } elsif ($text =~ /is only/) {
+            # e.g. 'is only build_requires'
+            return $self->goodbye($text);
+        } else {
+            # comment in Todo on 2006-02-11; maybe retry?
+            return $self->goodbye("Already tried without success");
+        }
+    }
+
+    for my $slot ( qw/later configure_requires_later/ ) {
+        return $self->success($self->{$slot})
+        if $self->{$slot};
+    }
+
+    return undef;
+}
+
+#-> sub CPAN::Distribution::install ;
+sub install {
+    my($self) = @_;
+
+    $self->pre_install();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    $self->test
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_install ) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+      delete $self->{force_update};
+      return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    $self->debug("Changed directory to $self->{build_dir}")
+        if $CPAN::DEBUG;
+
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint("Running $make install\n");
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_install($self);
+        return;
+    }
+
+    my $system;
+    if (my $commandline = $self->prefs->{install}{commandline}) {
+        $system = $commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } elsif ($self->{modulebuild}) {
+        my($mbuild_install_build_command) =
+            exists $CPAN::HandleConfig::keys{mbuild_install_build_command} &&
+                $CPAN::Config->{mbuild_install_build_command} ?
+                    $CPAN::Config->{mbuild_install_build_command} :
+                        $self->_build_command();
+        my $install_directive = $^O eq 'VMS' ? '"install"' : 'install';
+        $system = sprintf("%s %s %s",
+                          $mbuild_install_build_command,
+                          $install_directive,
+                          $CPAN::Config->{mbuild_install_arg},
+                         );
+    } else {
+        my($make_install_make_command) = $self->_make_install_make_command();
+        $system = sprintf("%s install %s",
+                          $make_install_make_command,
+                          $CPAN::Config->{make_install_arg},
+                         );
+    }
+
+    my($stderr) = $^O eq "MSWin32" || $^O eq 'VMS' ? "" : " 2>&1 ";
+    my $brip = CPAN::HandleConfig->prefs_lookup($self,
+                                                q{build_requires_install_policy});
+    $brip ||="ask/yes";
+    my $id = $self->id;
+    my $reqtype = $self->{reqtype} ||= "c"; # in doubt it was a command
+    my $want_install = "yes";
+    if ($reqtype eq "b") {
+        if ($brip eq "no") {
+            $want_install = "no";
+        } elsif ($brip =~ m|^ask/(.+)|) {
+            my $default = $1;
+            $default = "yes" unless $default =~ /^(y|n)/i;
+            $want_install =
+                CPAN::Shell::colorable_makemaker_prompt
+                      ("$id is just needed temporarily during building or testing. ".
+                       "Do you want to install it permanently?",
+                       $default);
+        }
+    }
+    unless ($want_install =~ /^y/i) {
+        my $is_only = "is only 'build_requires'";
+        $self->{install} = CPAN::Distrostatus->new("NO -- $is_only");
+        delete $self->{force_update};
+        return $self->goodbye("Not installing because $is_only");
+    }
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # install
+    $CPAN::META->set_perl5lib;
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+
+    my($pipe) = FileHandle->new("$system $stderr |");
+    unless ($pipe) {
+        $CPAN::Frontend->mywarn("Can't execute $system: $!");
+        $self->introduce_myself;
+        $self->{install} = CPAN::Distrostatus->new("NO");
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        delete $self->{force_update};
+        return;
+    }
+    my($makeout) = "";
+    while (<$pipe>) {
+        print $_; # intentionally NOT use Frontend->myprint because it
+                  # looks irritating when we markup in color what we
+                  # just pass through from an external program
+        $makeout .= $_;
+    }
+    $pipe->close;
+    my $close_ok = $? == 0;
+    $self->introduce_myself;
+    if ( $close_ok ) {
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $CPAN::META->is_installed($self->{build_dir});
+        $self->{install} = CPAN::Distrostatus->new("YES");
+        if ($CPAN::Config->{'cleanup_after_install'}
+            && ! $self->is_dot_dist) {
+            my $parent = File::Spec->catdir( $self->{build_dir}, File::Spec->updir );
+            chdir $parent or $CPAN::Frontend->mydie("Couldn't chdir to $parent: $!\n");
+            File::Path::rmtree($self->{build_dir});
+            my $yml = "$self->{build_dir}.yml";
+            if (-e $yml) {
+                unlink $yml or $CPAN::Frontend->mydie("Couldn't unlink $yml: $!\n");
+            }
+        }
+    } else {
+        $self->{install} = CPAN::Distrostatus->new("NO");
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        my $mimc =
+            CPAN::HandleConfig->prefs_lookup($self,
+                                             q{make_install_make_command});
+        if (
+            $makeout =~ /permission/s
+            && $> > 0
+            && (
+                ! $mimc
+                || $mimc eq (CPAN::HandleConfig->prefs_lookup($self,
+                                                              q{make}))
+               )
+           ) {
+            $CPAN::Frontend->myprint(
+                                     qq{----\n}.
+                                     qq{  You may have to su }.
+                                     qq{to root to install the package\n}.
+                                     qq{  (Or you may want to run something like\n}.
+                                     qq{    o conf make_install_make_command 'sudo make'\n}.
+                                     qq{  to raise your permissions.}
+                                    );
+        }
+    }
+    delete $self->{force_update};
+    unless ($CPAN::Config->{'cleanup_after_install'}) {
+        $self->store_persistent_state;
+    }
+
+    $self->post_install();
+
+    return !! $close_ok;
+}
+
+sub introduce_myself {
+    my($self) = @_;
+    $CPAN::Frontend->myprint(sprintf("  %s\n",$self->pretty_id));
+}
+
+#-> sub CPAN::Distribution::dir ;
+sub dir {
+    shift->{build_dir};
+}
+
+#-> sub CPAN::Distribution::perldoc ;
+sub perldoc {
+    my($self) = @_;
+
+    my($dist) = $self->id;
+    my $package = $self->called_for;
+
+    if ($CPAN::META->has_inst("Pod::Perldocs")) {
+        my($perl) = $self->perl
+            or $CPAN::Frontend->mydie("Couldn't find executable perl\n");
+        my @args = ($perl, q{-MPod::Perldocs}, q{-e},
+                    q{Pod::Perldocs->run()}, $package);
+        my($wstatus);
+        unless ( ($wstatus = system(@args)) == 0 ) {
+            my $estatus = $wstatus >> 8;
+            $CPAN::Frontend->myprint(qq{
+    Function system("@args")
+    returned status $estatus (wstat $wstatus)
+    });
+        }
+    }
+    else {
+        $self->_display_url( $CPAN::Defaultdocs . $package );
+    }
+}
+
+#-> sub CPAN::Distribution::_check_binary ;
+sub _check_binary {
+    my ($dist,$shell,$binary) = @_;
+    my ($pid,$out);
+
+    $CPAN::Frontend->myprint(qq{ + _check_binary($binary)\n})
+      if $CPAN::DEBUG;
+
+    if ($CPAN::META->has_inst("File::Which")) {
+        return File::Which::which($binary);
+    } else {
+        local *README;
+        $pid = open README, "which $binary|"
+            or $CPAN::Frontend->mywarn(qq{Could not fork 'which $binary': $!\n});
+        return unless $pid;
+        while (<README>) {
+            $out .= $_;
+        }
+        close README
+            or $CPAN::Frontend->mywarn("Could not run 'which $binary': $!\n")
+                and return;
+    }
+
+    $CPAN::Frontend->myprint(qq{   + $out \n})
+      if $CPAN::DEBUG && $out;
+
+    return $out;
+}
+
+#-> sub CPAN::Distribution::_display_url ;
+sub _display_url {
+    my($self,$url) = @_;
+    my($res,$saved_file,$pid,$out);
+
+    $CPAN::Frontend->myprint(qq{ + _display_url($url)\n})
+      if $CPAN::DEBUG;
+
+    # should we define it in the config instead?
+    my $html_converter = "html2text.pl";
+
+    my $web_browser = $CPAN::Config->{'lynx'} || undef;
+    my $web_browser_out = $web_browser
+        ? CPAN::Distribution->_check_binary($self,$web_browser)
+        : undef;
+
+    if ($web_browser_out) {
+        # web browser found, run the action
+        my $browser = CPAN::HandleConfig->safe_quote($CPAN::Config->{'lynx'});
+        $CPAN::Frontend->myprint(qq{system[$browser $url]})
+            if $CPAN::DEBUG;
+        $CPAN::Frontend->myprint(qq{
+Displaying URL
+  $url
+with browser $browser
+});
+        $CPAN::Frontend->mysleep(1);
+        system("$browser $url");
+        if ($saved_file) { 1 while unlink($saved_file) }
+    } else {
+        # web browser not found, let's try text only
+        my $html_converter_out =
+            CPAN::Distribution->_check_binary($self,$html_converter);
+        $html_converter_out = CPAN::HandleConfig->safe_quote($html_converter_out);
+
+        if ($html_converter_out ) {
+            # html2text found, run it
+            $saved_file = CPAN::Distribution->_getsave_url( $self, $url );
+            $CPAN::Frontend->mydie(qq{ERROR: problems while getting $url\n})
+                unless defined($saved_file);
+
+            local *README;
+            $pid = open README, "$html_converter $saved_file |"
+                or $CPAN::Frontend->mydie(qq{
+Could not fork '$html_converter $saved_file': $!});
+            my($fh,$filename);
+            if ($CPAN::META->has_usable("File::Temp")) {
+                $fh = File::Temp->new(
+                                      dir      => File::Spec->tmpdir,
+                                      template => 'cpan_htmlconvert_XXXX',
+                                      suffix => '.txt',
+                                      unlink => 0,
+                                     );
+                $filename = $fh->filename;
+            } else {
+                $filename = "cpan_htmlconvert_$$.txt";
+                $fh = FileHandle->new();
+                open $fh, ">$filename" or die;
+            }
+            while (<README>) {
+                $fh->print($_);
+            }
+            close README or
+                $CPAN::Frontend->mydie(qq{Could not run '$html_converter $saved_file': $!});
+            my $tmpin = $fh->filename;
+            $CPAN::Frontend->myprint(sprintf(qq{
+Run '%s %s' and
+saved output to %s\n},
+                                             $html_converter,
+                                             $saved_file,
+                                             $tmpin,
+                                            )) if $CPAN::DEBUG;
+            close $fh;
+            local *FH;
+            open FH, $tmpin
+                or $CPAN::Frontend->mydie(qq{Could not open "$tmpin": $!});
+            my $fh_pager = FileHandle->new;
+            local($SIG{PIPE}) = "IGNORE";
+            my $pager = $CPAN::Config->{'pager'} || "cat";
+            $fh_pager->open("|$pager")
+                or $CPAN::Frontend->mydie(qq{
+Could not open pager '$pager': $!});
+            $CPAN::Frontend->myprint(qq{
+Displaying URL
+  $url
+with pager "$pager"
+});
+            $CPAN::Frontend->mysleep(1);
+            $fh_pager->print(<FH>);
+            $fh_pager->close;
+        } else {
+            # coldn't find the web browser or html converter
+            $CPAN::Frontend->myprint(qq{
+You need to install lynx or $html_converter to use this feature.});
+        }
+    }
+}
+
+#-> sub CPAN::Distribution::_getsave_url ;
+sub _getsave_url {
+    my($dist, $shell, $url) = @_;
+
+    $CPAN::Frontend->myprint(qq{ + _getsave_url($url)\n})
+      if $CPAN::DEBUG;
+
+    my($fh,$filename);
+    if ($CPAN::META->has_usable("File::Temp")) {
+        $fh = File::Temp->new(
+                              dir      => File::Spec->tmpdir,
+                              template => "cpan_getsave_url_XXXX",
+                              suffix => ".html",
+                              unlink => 0,
+                             );
+        $filename = $fh->filename;
+    } else {
+        $fh = FileHandle->new;
+        $filename = "cpan_getsave_url_$$.html";
+    }
+    my $tmpin = $filename;
+    if ($CPAN::META->has_usable('LWP')) {
+        $CPAN::Frontend->myprint("Fetching with LWP:
+  $url
+");
+        my $Ua;
+        CPAN::LWP::UserAgent->config;
+        eval { $Ua = CPAN::LWP::UserAgent->new; };
+        if ($@) {
+            $CPAN::Frontend->mywarn("ERROR: CPAN::LWP::UserAgent->new dies with $@\n");
+            return;
+        } else {
+            my($var);
+            $Ua->proxy('http', $var)
+                if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy};
+            $Ua->no_proxy($var)
+                if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy};
+        }
+
+        my $req = HTTP::Request->new(GET => $url);
+        $req->header('Accept' => 'text/html');
+        my $res = $Ua->request($req);
+        if ($res->is_success) {
+            $CPAN::Frontend->myprint(" + request successful.\n")
+                if $CPAN::DEBUG;
+            print $fh $res->content;
+            close $fh;
+            $CPAN::Frontend->myprint(qq{ + saved content to $tmpin \n})
+                if $CPAN::DEBUG;
+            return $tmpin;
+        } else {
+            $CPAN::Frontend->myprint(sprintf(
+                                             "LWP failed with code[%s], message[%s]\n",
+                                             $res->code,
+                                             $res->message,
+                                            ));
+            return;
+        }
+    } else {
+        $CPAN::Frontend->mywarn("  LWP not available\n");
+        return;
+    }
+}
+
+#-> sub CPAN::Distribution::_build_command
+sub _build_command {
+    my($self) = @_;
+    if ($^O eq "MSWin32") { # special code needed at least up to
+                            # Module::Build 0.2611 and 0.2706; a fix
+                            # in M:B has been promised 2006-01-30
+        my($perl) = $self->perl or $CPAN::Frontend->mydie("Couldn't find executable perl\n");
+        return "$perl ./Build";
+    }
+    elsif ($^O eq 'VMS') {
+        return "$^X Build.com";
+    }
+    return "./Build";
+}
+
+#-> sub CPAN::Distribution::_should_report
+sub _should_report {
+    my($self, $phase) = @_;
+    die "_should_report() requires a 'phase' argument"
+        if ! defined $phase;
+
+    # configured
+    my $test_report = CPAN::HandleConfig->prefs_lookup($self,
+                                                       q{test_report});
+    return unless $test_report;
+
+    # don't repeat if we cached a result
+    return $self->{should_report}
+        if exists $self->{should_report};
+
+    # don't report if we generated a Makefile.PL
+    if ( $self->{had_no_makefile_pl} ) {
+        $CPAN::Frontend->mywarn(
+            "Will not send CPAN Testers report with generated Makefile.PL.\n"
+        );
+        return $self->{should_report} = 0;
+    }
+
+    # available
+    if ( ! $CPAN::META->has_inst("CPAN::Reporter")) {
+        $CPAN::Frontend->mywarnonce(
+            "CPAN::Reporter not installed.  No reports will be sent.\n"
+        );
+        return $self->{should_report} = 0;
+    }
+
+    # capable
+    my $crv = CPAN::Reporter->VERSION;
+    if ( CPAN::Version->vlt( $crv, 0.99 ) ) {
+        # don't cache $self->{should_report} -- need to check each phase
+        if ( $phase eq 'test' ) {
+            return 1;
+        }
+        else {
+            $CPAN::Frontend->mywarn(
+                "Reporting on the '$phase' phase requires CPAN::Reporter 0.99, but \n" .
+                "you only have version $crv\.  Only 'test' phase reports will be sent.\n"
+            );
+            return;
+        }
+    }
+
+    # appropriate
+    if ($self->is_dot_dist) {
+        $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ".
+                                "for local directories\n");
+        return $self->{should_report} = 0;
+    }
+    if ($self->prefs->{patches}
+        &&
+        @{$self->prefs->{patches}}
+        &&
+        $self->{patched}
+       ) {
+        $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ".
+                                "when the source has been patched\n");
+        return $self->{should_report} = 0;
+    }
+
+    # proceed and cache success
+    return $self->{should_report} = 1;
+}
+
+#-> sub CPAN::Distribution::reports
+sub reports {
+    my($self) = @_;
+    my $pathname = $self->id;
+    $CPAN::Frontend->myprint("Distribution: $pathname\n");
+
+    unless ($CPAN::META->has_inst("CPAN::DistnameInfo")) {
+        $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
+    }
+    unless ($CPAN::META->has_usable("LWP")) {
+        $CPAN::Frontend->mydie("LWP not installed; cannot continue");
+    }
+    unless ($CPAN::META->has_usable("File::Temp")) {
+        $CPAN::Frontend->mydie("File::Temp not installed; cannot continue");
+    }
+
+    my $d = CPAN::DistnameInfo->new($pathname);
+
+    my $dist      = $d->dist;      # "CPAN-DistnameInfo"
+    my $version   = $d->version;   # "0.02"
+    my $maturity  = $d->maturity;  # "released"
+    my $filename  = $d->filename;  # "CPAN-DistnameInfo-0.02.tar.gz"
+    my $cpanid    = $d->cpanid;    # "GBARR"
+    my $distvname = $d->distvname; # "CPAN-DistnameInfo-0.02"
+
+    my $url = sprintf "http://www.cpantesters.org/show/%s.yaml", $dist;
+
+    CPAN::LWP::UserAgent->config;
+    my $Ua;
+    eval { $Ua = CPAN::LWP::UserAgent->new; };
+    if ($@) {
+        $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n");
+    }
+    $CPAN::Frontend->myprint("Fetching '$url'...");
+    my $resp = $Ua->get($url);
+    unless ($resp->is_success) {
+        $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code);
+    }
+    $CPAN::Frontend->myprint("DONE\n\n");
+    my $yaml = $resp->content;
+    # what a long way round!
+    my $fh = File::Temp->new(
+                             dir      => File::Spec->tmpdir,
+                             template => 'cpan_reports_XXXX',
+                             suffix => '.yaml',
+                             unlink => 0,
+                            );
+    my $tfilename = $fh->filename;
+    print $fh $yaml;
+    close $fh or $CPAN::Frontend->mydie("Could not close '$tfilename': $!");
+    my $unserialized = CPAN->_yaml_loadfile($tfilename)->[0];
+    unlink $tfilename or $CPAN::Frontend->mydie("Could not unlink '$tfilename': $!");
+    my %other_versions;
+    my $this_version_seen;
+    for my $rep (@$unserialized) {
+        my $rversion = $rep->{version};
+        if ($rversion eq $version) {
+            unless ($this_version_seen++) {
+                $CPAN::Frontend->myprint ("$rep->{version}:\n");
+            }
+            my $arch = $rep->{archname} || $rep->{platform}        || '????';
+            my $grade = $rep->{action}  || $rep->{status}          || '????';
+            my $ostext = $rep->{ostext} || ucfirst($rep->{osname}) || '????';
+            $CPAN::Frontend->myprint
+                (sprintf("%1s%1s%-4s %s on %s %s (%s)\n",
+                         $arch eq $Config::Config{archname}?"*":"",
+                         $grade eq "PASS"?"+":$grade eq"FAIL"?"-":"",
+                         $grade,
+                         $rep->{perl},
+                         $ostext,
+                         $rep->{osvers},
+                         $arch,
+                        ));
+        } else {
+            $other_versions{$rep->{version}}++;
+        }
+    }
+    unless ($this_version_seen) {
+        $CPAN::Frontend->myprint("No reports found for version '$version'
+Reports for other versions:\n");
+        for my $v (sort keys %other_versions) {
+            $CPAN::Frontend->myprint(" $v\: $other_versions{$v}\n");
+        }
+    }
+    $url =~ s/\.yaml/.html/;
+    $CPAN::Frontend->myprint("See $url for details\n");
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+package CPAN::Tarzip;
+use strict;
+use vars qw($VERSION @ISA $BUGHUNTING);
+use CPAN::Debug;
+use File::Basename qw(basename);
+$VERSION = "5.5012";
+# module is internal to CPAN.pm
+
+@ISA = qw(CPAN::Debug); ## no critic
+$BUGHUNTING ||= 0; # released code must have turned off
+
+# it's ok if file doesn't exist, it just matters if it is .gz or .bz2
+sub new {
+    my($class,$file) = @_;
+    $CPAN::Frontend->mydie("CPAN::Tarzip->new called without arg") unless defined $file;
+    my $me = { FILE => $file };
+    if ($file =~ /\.(bz2|gz|zip|tbz|tgz)$/i) {
+        $me->{ISCOMPRESSED} = 1;
+    } else {
+        $me->{ISCOMPRESSED} = 0;
+    }
+    if (0) {
+    } elsif ($file =~ /\.(?:bz2|tbz)$/i) {
+        unless ($me->{UNGZIPPRG} = $CPAN::Config->{bzip2}) {
+            my $bzip2 = _my_which("bzip2");
+            if ($bzip2) {
+                $me->{UNGZIPPRG} = $bzip2;
+            } else {
+                $CPAN::Frontend->mydie(qq{
+CPAN.pm needs the external program bzip2 in order to handle '$file'.
+Please install it now and run 'o conf init bzip2' from the
+CPAN shell prompt to register it as external program.
+});
+            }
+        }
+    } else {
+        $me->{UNGZIPPRG} = _my_which("gzip");
+    }
+    $me->{TARPRG} = _my_which("tar") || _my_which("gtar");
+    bless $me, $class;
+}
+
+sub _my_which {
+    my($what) = @_;
+    if ($CPAN::Config->{$what}) {
+        return $CPAN::Config->{$what};
+    }
+    if ($CPAN::META->has_inst("File::Which")) {
+        return File::Which::which($what);
+    }
+    my @cand = MM->maybe_command($what);
+    return $cand[0] if @cand;
+    require File::Spec;
+    my $component;
+  PATH_COMPONENT: foreach $component (File::Spec->path()) {
+        next unless defined($component) && $component;
+        my($abs) = File::Spec->catfile($component,$what);
+        if (MM->maybe_command($abs)) {
+            return $abs;
+        }
+    }
+    return;
+}
+
+sub gzip {
+    my($self,$read) = @_;
+    my $write = $self->{FILE};
+    if ($CPAN::META->has_inst("Compress::Zlib")) {
+        my($buffer,$fhw);
+        $fhw = FileHandle->new($read)
+            or $CPAN::Frontend->mydie("Could not open $read: $!");
+        my $cwd = `pwd`;
+        my $gz = Compress::Zlib::gzopen($write, "wb")
+            or $CPAN::Frontend->mydie("Cannot gzopen $write: $! (pwd is $cwd)\n");
+        binmode($fhw);
+        $gz->gzwrite($buffer)
+            while read($fhw,$buffer,4096) > 0 ;
+        $gz->gzclose() ;
+        $fhw->close;
+        return 1;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        system(qq{$command -c "$read" > "$write"})==0;
+    }
+}
+
+
+sub gunzip {
+    my($self,$write) = @_;
+    my $read = $self->{FILE};
+    if ($CPAN::META->has_inst("Compress::Zlib")) {
+        my($buffer,$fhw);
+        $fhw = FileHandle->new(">$write")
+            or $CPAN::Frontend->mydie("Could not open >$write: $!");
+        my $gz = Compress::Zlib::gzopen($read, "rb")
+            or $CPAN::Frontend->mydie("Cannot gzopen $read: $!\n");
+        binmode($fhw);
+        $fhw->print($buffer)
+            while $gz->gzread($buffer) > 0 ;
+        $CPAN::Frontend->mydie("Error reading from $read: $!\n")
+            if $gz->gzerror != Compress::Zlib::Z_STREAM_END();
+        $gz->gzclose() ;
+        $fhw->close;
+        return 1;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        system(qq{$command -d -c "$read" > "$write"})==0;
+    }
+}
+
+
+sub gtest {
+    my($self) = @_;
+    return $self->{GTEST} if exists $self->{GTEST};
+    defined $self->{FILE} or $CPAN::Frontend->mydie("gtest called but no FILE specified");
+    my $read = $self->{FILE};
+    my $success;
+    if ($read=~/\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) {
+        my($buffer,$len);
+        $len = 0;
+        my $gz = Compress::Bzip2::bzopen($read, "rb")
+            or $CPAN::Frontend->mydie(sprintf("Cannot gzopen %s: %s\n",
+                                              $read,
+                                              $Compress::Bzip2::bzerrno));
+        while ($gz->bzread($buffer) > 0 ) {
+            $len += length($buffer);
+            $buffer = "";
+        }
+        my $err = $gz->bzerror;
+        $success = ! $err || $err == Compress::Bzip2::BZ_STREAM_END();
+        if ($len == -s $read) {
+            $success = 0;
+            CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG;
+        }
+        $gz->gzclose();
+        CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG;
+    } elsif ( $read=~/\.(?:gz|tgz)$/ && $CPAN::META->has_inst("Compress::Zlib") ) {
+        # After I had reread the documentation in zlib.h, I discovered that
+        # uncompressed files do not lead to an gzerror (anymore?).
+        my($buffer,$len);
+        $len = 0;
+        my $gz = Compress::Zlib::gzopen($read, "rb")
+            or $CPAN::Frontend->mydie(sprintf("Cannot gzopen %s: %s\n",
+                                              $read,
+                                              $Compress::Zlib::gzerrno));
+        while ($gz->gzread($buffer) > 0 ) {
+            $len += length($buffer);
+            $buffer = "";
+        }
+        my $err = $gz->gzerror;
+        $success = ! $err || $err == Compress::Zlib::Z_STREAM_END();
+        if ($len == -s $read) {
+            $success = 0;
+            CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG;
+        }
+        $gz->gzclose();
+        CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG;
+    } elsif (!$self->{ISCOMPRESSED}) {
+        $success = 0;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        $success = 0==system(qq{$command -qdt "$read"});
+    }
+    return $self->{GTEST} = $success;
+}
+
+
+sub TIEHANDLE {
+    my($class,$file) = @_;
+    my $ret;
+    $class->debug("file[$file]");
+    my $self = $class->new($file);
+    if (0) {
+    } elsif (!$self->gtest) {
+        my $fh = FileHandle->new($file)
+            or $CPAN::Frontend->mydie("Could not open file[$file]: $!");
+        binmode $fh;
+        $self->{FH} = $fh;
+        $class->debug("via uncompressed FH");
+    } elsif ($file =~ /\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) {
+        my $gz = Compress::Bzip2::bzopen($file,"rb") or
+            $CPAN::Frontend->mydie("Could not bzopen $file");
+        $self->{GZ} = $gz;
+        $class->debug("via Compress::Bzip2");
+    } elsif ($file =~/\.(?:gz|tgz)$/ && $CPAN::META->has_inst("Compress::Zlib")) {
+        my $gz = Compress::Zlib::gzopen($file,"rb") or
+            $CPAN::Frontend->mydie("Could not gzopen $file");
+        $self->{GZ} = $gz;
+        $class->debug("via Compress::Zlib");
+    } else {
+        my $gzip = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        my $pipe = "$gzip -d -c $file |";
+        my $fh = FileHandle->new($pipe) or $CPAN::Frontend->mydie("Could not pipe[$pipe]: $!");
+        binmode $fh;
+        $self->{FH} = $fh;
+        $class->debug("via external $gzip");
+    }
+    $self;
+}
+
+
+sub READLINE {
+    my($self) = @_;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        my($line,$bytesread);
+        $bytesread = $gz->gzreadline($line);
+        return undef if $bytesread <= 0;
+        return $line;
+    } else {
+        my $fh = $self->{FH};
+        return scalar <$fh>;
+    }
+}
+
+
+sub READ {
+    my($self,$ref,$length,$offset) = @_;
+    $CPAN::Frontend->mydie("read with offset not implemented") if defined $offset;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        my $byteread = $gz->gzread($$ref,$length);# 30eaf79e8b446ef52464b5422da328a8
+        return $byteread;
+    } else {
+        my $fh = $self->{FH};
+        return read($fh,$$ref,$length);
+    }
+}
+
+
+sub DESTROY {
+    my($self) = @_;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        $gz->gzclose() if defined $gz; # hard to say if it is allowed
+                                       # to be undef ever. AK, 2000-09
+    } else {
+        my $fh = $self->{FH};
+        $fh->close if defined $fh;
+    }
+    undef $self;
+}
+
+sub untar {
+    my($self) = @_;
+    my $file = $self->{FILE};
+    my($prefer) = 0;
+
+    my $exttar = $self->{TARPRG} || "";
+    $exttar = "" if $exttar =~ /^\s+$/; # user refuses to use it
+    my $extgzip = $self->{UNGZIPPRG} || "";
+    $extgzip = "" if $extgzip =~ /^\s+$/; # user refuses to use it
+
+    if (0) { # makes changing order easier
+    } elsif ($BUGHUNTING) {
+        $prefer=2;
+    } elsif ($CPAN::Config->{prefer_external_tar}) {
+        $prefer = 1;
+    } elsif (
+             $CPAN::META->has_usable("Archive::Tar")
+             &&
+             $CPAN::META->has_inst("Compress::Zlib") ) {
+        my $prefer_external_tar = $CPAN::Config->{prefer_external_tar};
+        unless (defined $prefer_external_tar) {
+            if ($^O =~ /(MSWin32|solaris)/) {
+                $prefer_external_tar = 0;
+            } else {
+                $prefer_external_tar = 1;
+            }
+        }
+        $prefer = $prefer_external_tar ? 1 : 2;
+    } elsif ($exttar && $extgzip) {
+        # no modules and not bz2
+        $prefer = 1;
+        # but solaris binary tar is a problem
+        if ($^O eq 'solaris' && qx($exttar --version 2>/dev/null) !~ /gnu/i) {
+            $CPAN::Frontend->mywarn(<< 'END_WARN');
+
+WARNING: Many CPAN distributions were archived with GNU tar and some of
+them may be incompatible with Solaris tar.  We respectfully suggest you
+configure CPAN to use a GNU tar instead ("o conf init tar") or install
+a recent Archive::Tar instead;
+
+END_WARN
+        }
+    } else {
+        my $foundtar = $exttar ? "'$exttar'" : "nothing";
+        my $foundzip = $extgzip ? "'$extgzip'" : $foundtar ? "nothing" : "also nothing";
+        my $foundAT;
+        if ($CPAN::META->has_usable("Archive::Tar")) {
+            $foundAT = sprintf "'%s'", "Archive::Tar::"->VERSION;
+        } else {
+            $foundAT = "nothing";
+        }
+        my $foundCZ;
+        if ($CPAN::META->has_inst("Compress::Zlib")) {
+            $foundCZ = sprintf "'%s'", "Compress::Zlib::"->VERSION;
+        } elsif ($foundAT) {
+            $foundCZ = "nothing";
+        } else {
+            $foundCZ = "also nothing";
+        }
+        $CPAN::Frontend->mydie(qq{
+
+CPAN.pm needs either the external programs tar and gzip -or- both
+modules Archive::Tar and Compress::Zlib installed.
+
+For tar I found $foundtar, for gzip $foundzip.
+
+For Archive::Tar I found $foundAT, for Compress::Zlib $foundCZ;
+
+Can't continue cutting file '$file'.
+});
+    }
+    my $tar_verb = "v";
+    if (defined $CPAN::Config->{tar_verbosity}) {
+        $tar_verb = $CPAN::Config->{tar_verbosity} eq "none" ? "" :
+            $CPAN::Config->{tar_verbosity};
+    }
+    if ($prefer==1) { # 1 => external gzip+tar
+        my($system);
+        my $is_compressed = $self->gtest();
+        my $tarcommand = CPAN::HandleConfig->safe_quote($exttar);
+        if ($is_compressed) {
+            my $command = CPAN::HandleConfig->safe_quote($extgzip);
+            $system = qq{$command -d -c }.
+                qq{< "$file" | $tarcommand x${tar_verb}f -};
+        } else {
+            $system = qq{$tarcommand x${tar_verb}f "$file"};
+        }
+        if (system($system) != 0) {
+            # people find the most curious tar binaries that cannot handle
+            # pipes
+            if ($is_compressed) {
+                (my $ungzf = $file) =~ s/\.gz(?!\n)\Z//;
+                $ungzf = basename $ungzf;
+                my $ct = CPAN::Tarzip->new($file);
+                if ($ct->gunzip($ungzf)) {
+                    $CPAN::Frontend->myprint(qq{Uncompressed $file successfully\n});
+                } else {
+                    $CPAN::Frontend->mydie(qq{Couldn\'t uncompress $file\n});
+                }
+                $file = $ungzf;
+            }
+            $system = qq{$tarcommand x${tar_verb}f "$file"};
+            $CPAN::Frontend->myprint(qq{Using Tar:$system:\n});
+            my $ret = system($system);
+            if ($ret==0) {
+                $CPAN::Frontend->myprint(qq{Untarred $file successfully\n});
+            } else {
+                if ($? == -1) {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: '%s'\n},
+                                           $file, $!);
+                } elsif ($? & 127) {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child died with signal %d, %s coredump\n},
+                                           $file, ($? & 127),  ($? & 128) ? 'with' : 'without');
+                } else {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child exited with value %d\n},
+                                           $file, $? >> 8);
+                }
+            }
+            return 1;
+        } else {
+            return 1;
+        }
+    } elsif ($prefer==2) { # 2 => modules
+        unless ($CPAN::META->has_usable("Archive::Tar")) {
+            $CPAN::Frontend->mydie("Archive::Tar not installed, please install it to continue");
+        }
+        # Make sure AT does not use uid/gid/permissions in the archive
+        # This leaves it to the user's umask instead
+        local $Archive::Tar::CHMOD = 1;
+        local $Archive::Tar::SAME_PERMISSIONS = 0;
+        # Make sure AT leaves current user as owner
+        local $Archive::Tar::CHOWN = 0;
+        my $tar = Archive::Tar->new($file,1);
+        my $af; # archive file
+        my @af;
+        if ($BUGHUNTING) {
+            # RCS 1.337 had this code, it turned out unacceptable slow but
+            # it revealed a bug in Archive::Tar. Code is only here to hunt
+            # the bug again. It should never be enabled in published code.
+            # GDGraph3d-0.53 was an interesting case according to Larry
+            # Virden.
+            warn(">>>Bughunting code enabled<<< " x 20);
+            for $af ($tar->list_files) {
+                if ($af =~ m!^(/|\.\./)!) {
+                    $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                           "illegal member [$af]");
+                }
+                $CPAN::Frontend->myprint("$af\n");
+                $tar->extract($af); # slow but effective for finding the bug
+                return if $CPAN::Signal;
+            }
+        } else {
+            for $af ($tar->list_files) {
+                if ($af =~ m!^(/|\.\./)!) {
+                    $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                           "illegal member [$af]");
+                }
+                if ($tar_verb eq "v" || $tar_verb eq "vv") {
+                    $CPAN::Frontend->myprint("$af\n");
+                }
+                push @af, $af;
+                return if $CPAN::Signal;
+            }
+            $tar->extract(@af) or
+                $CPAN::Frontend->mydie("Could not untar with Archive::Tar.");
+        }
+
+        Mac::BuildTools::convert_files([$tar->list_files], 1)
+            if ($^O eq 'MacOS');
+
+        return 1;
+    }
+}
+
+sub unzip {
+    my($self) = @_;
+    my $file = $self->{FILE};
+    if ($CPAN::META->has_inst("Archive::Zip")) {
+        # blueprint of the code from Archive::Zip::Tree::extractTree();
+        my $zip = Archive::Zip->new();
+        my $status;
+        $status = $zip->read($file);
+        $CPAN::Frontend->mydie("Read of file[$file] failed\n")
+            if $status != Archive::Zip::AZ_OK();
+        $CPAN::META->debug("Successfully read file[$file]") if $CPAN::DEBUG;
+        my @members = $zip->members();
+        for my $member ( @members ) {
+            my $af = $member->fileName();
+            if ($af =~ m!^(/|\.\./)!) {
+                $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                       "illegal member [$af]");
+            }
+            $status = $member->extractToFileNamed( $af );
+            $CPAN::META->debug("af[$af]status[$status]") if $CPAN::DEBUG;
+            $CPAN::Frontend->mydie("Extracting of file[$af] from zipfile[$file] failed\n") if
+                $status != Archive::Zip::AZ_OK();
+            return if $CPAN::Signal;
+        }
+        return 1;
+    } elsif ( my $unzip = $CPAN::Config->{unzip}  ) {
+        my @system = ($unzip, $file);
+        return system(@system) == 0;
+    }
+    else {
+            $CPAN::Frontend->mydie(<<"END");
+
+Can't unzip '$file':
+
+You have not configured an 'unzip' program and do not have Archive::Zip
+installed.  Please either install Archive::Zip or else configure 'unzip'
+by running the command 'o conf init unzip' from the CPAN shell prompt.
+
+END
+    }
+}
+
+1;
+
+__END__
+
+package CPAN::Plugin;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.96';
+
+require CPAN;
+
+######################################################################
+
+sub new {                                # ;
+    my ($class, %params) = @_;
+
+    my $self = +{
+        (ref $class ? (%$class) : ()),
+        %params,
+    };
+
+    $self = bless $self, ref $class ? ref $class : $class;
+
+    unless (ref $class) {
+        local $_;
+        no warnings 'once';
+        $CPAN::META->use_inst ($_) for $self->plugin_requires;
+    }
+
+    $self;
+}
+
+######################################################################
+sub plugin_requires {                    # ;
+}
+
+######################################################################
+sub distribution_object {                # ;
+    my ($self) = @_;
+    $self->{distribution_object};
+}
+
+######################################################################
+sub distribution {                       # ;
+    my ($self) = @_;
+
+    my $distribution = $self->distribution_object->id;
+    CPAN::Shell->expand("Distribution",$distribution)
+      or $self->frontend->mydie("Unknowns distribution '$distribution'\n");
+}
+
+######################################################################
+sub distribution_info {                  # ;
+    my ($self) = @_;
+
+    CPAN::DistnameInfo->new ($self->distribution->id);
+}
+
+######################################################################
+sub build_dir {                          # ;
+    my ($self) = @_;
+
+    my $build_dir = $self->distribution->{build_dir}
+      or $self->frontend->mydie("Distribution has not been built yet, cannot proceed");
+}
+
+######################################################################
+sub is_xs {                              #
+    my ($self) = @_;
+
+    my @xs = glob File::Spec->catfile ($self->build_dir, '*.xs'); # quick try
+
+    unless (@xs) {
+        require ExtUtils::Manifest;
+        my $manifest_file = File::Spec->catfile ($self->build_dir, "MANIFEST");
+        my $manifest = ExtUtils::Manifest::maniread($manifest_file);
+        @xs = grep /\.xs$/, keys %$manifest;
+    }
+
+    scalar @xs;
+}
+
+######################################################################
+
+package CPAN::Plugin;
+
+1;
+
+__END__
+
+
+package CPAN::FTP::netrc;
+use strict;
+
+$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01";
+
+# package CPAN::FTP::netrc;
+sub new {
+    my($class) = @_;
+    my $file = File::Spec->catfile($ENV{HOME},".netrc");
+
+    my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+       $atime,$mtime,$ctime,$blksize,$blocks)
+        = stat($file);
+    $mode ||= 0;
+    my $protected = 0;
+
+    my($fh,@machines,$hasdefault);
+    $hasdefault = 0;
+    $fh = FileHandle->new or die "Could not create a filehandle";
+
+    if($fh->open($file)) {
+        $protected = ($mode & 077) == 0;
+        local($/) = "";
+      NETRC: while (<$fh>) {
+            my(@tokens) = split " ", $_;
+          TOKEN: while (@tokens) {
+                my($t) = shift @tokens;
+                if ($t eq "default") {
+                    $hasdefault++;
+                    last NETRC;
+                }
+                last TOKEN if $t eq "macdef";
+                if ($t eq "machine") {
+                    push @machines, shift @tokens;
+                }
+            }
+        }
+    } else {
+        $file = $hasdefault = $protected = "";
+    }
+
+    bless {
+        'mach' => [@machines],
+        'netrc' => $file,
+        'hasdefault' => $hasdefault,
+        'protected' => $protected,
+    }, $class;
+}
+
+# CPAN::FTP::netrc::hasdefault;
+sub hasdefault { shift->{'hasdefault'} }
+sub netrc      { shift->{'netrc'}      }
+sub protected  { shift->{'protected'}  }
+sub contains {
+    my($self,$mach) = @_;
+    for ( @{$self->{'mach'}} ) {
+        return 1 if $_ eq $mach;
+    }
+    return 0;
+}
+
+1;
+--- 
+type: map
+mapping:
+  comment:
+    type: text
+  depends:
+    type: map
+    mapping:
+      configure_requires:
+        &requires_common
+        type: map
+        mapping:
+          =:
+            type: text
+      build_requires: *requires_common
+      requires:       *requires_common
+  match:
+    type: map
+    mapping:
+      distribution:
+        type: text
+      module:
+        type: text
+      perl:
+        type: text
+      perlconfig:
+        &matchhash_common
+        type: map
+        mapping:
+          =:
+            type: text
+      env: *matchhash_common
+  install:
+    &args_env_expect
+    type: map
+    mapping:
+      args:
+        type: seq
+        sequence:
+          - type: text
+      commandline:
+        type: text
+      env:
+        type: map
+        mapping:
+          =:
+            type: text
+      expect:
+        type: seq
+        sequence:
+          - type: text
+      eexpect:
+        type: map
+        mapping:
+          mode:
+            type: text
+            enum:
+              - deterministic
+              - anyorder
+          timeout:
+            type: number
+          reuse:
+            type: int
+          talk:
+            type: seq
+            sequence:
+              - type: text
+  make: *args_env_expect
+  pl:   *args_env_expect
+  test: *args_env_expect
+  patches:
+    type: seq
+    sequence:
+      - type: text
+  disabled:
+    type: int
+    enum:
+      - 0
+      - 1
+  goto:
+    type: text
+  cpanconfig:
+    type: map
+    mapping:
+      =:
+        type: text
+  features:
+    type: seq
+    sequence:
+      - type: text
+  reminder:
+    type: text
+$VAR1 = {
+  "mapping" => {
+    "comment" => {
+      "type" => "text"
+    },
+    "cpanconfig" => {
+      "mapping" => {
+        "=" => {
+          "type" => "text"
+        }
+      },
+      "type" => "map"
+    },
+    "depends" => {
+      "mapping" => {
+        "build_requires" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "configure_requires" => {},
+        "requires" => {}
+      },
+      "type" => "map"
+    },
+    "disabled" => {
+      "enum" => [
+        0,
+        1
+      ],
+      "type" => "int"
+    },
+    "features" => {
+      "sequence" => [
+        {
+          "type" => "text"
+        }
+      ],
+      "type" => "seq"
+    },
+    "goto" => {
+      "type" => "text"
+    },
+    "install" => {
+      "mapping" => {
+        "args" => {
+          "sequence" => [
+            {
+              "type" => "text"
+            }
+          ],
+          "type" => "seq"
+        },
+        "commandline" => {
+          "type" => "text"
+        },
+        "eexpect" => {
+          "mapping" => {
+            "mode" => {
+              "enum" => [
+                "deterministic",
+                "anyorder"
+              ],
+              "type" => "text"
+            },
+            "reuse" => {
+              "type" => "int"
+            },
+            "talk" => {
+              "sequence" => [
+                {
+                  "type" => "text"
+                }
+              ],
+              "type" => "seq"
+            },
+            "timeout" => {
+              "type" => "number"
+            }
+          },
+          "type" => "map"
+        },
+        "env" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "expect" => {
+          "sequence" => [
+            {
+              "type" => "text"
+            }
+          ],
+          "type" => "seq"
+        }
+      },
+      "type" => "map"
+    },
+    "make" => {},
+    "match" => {
+      "mapping" => {
+        "distribution" => {
+          "type" => "text"
+        },
+        "env" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "module" => {
+          "type" => "text"
+        },
+        "perl" => {
+          "type" => "text"
+        },
+        "perlconfig" => {}
+      },
+      "type" => "map"
+    },
+    "patches" => {
+      "sequence" => [
+        {
+          "type" => "text"
+        }
+      ],
+      "type" => "seq"
+    },
+    "pl" => {},
+    "reminder" => {
+      "type" => "text"
+    },
+    "test" => {}
+  },
+  "type" => "map"
+};
+$VAR1->{"mapping"}{"depends"}{"mapping"}{"configure_requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"};
+$VAR1->{"mapping"}{"depends"}{"mapping"}{"requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"};
+$VAR1->{"mapping"}{"make"} = $VAR1->{"mapping"}{"install"};
+$VAR1->{"mapping"}{"match"}{"mapping"}{"perlconfig"} = $VAR1->{"mapping"}{"match"}{"mapping"}{"env"};
+$VAR1->{"mapping"}{"pl"} = $VAR1->{"mapping"}{"install"};
+$VAR1->{"mapping"}{"test"} = $VAR1->{"mapping"}{"install"};
+
+package CPAN::Plugin::Specfile;
+
+our $VERSION = '0.01';
+
+use File::Path;
+use File::Spec;
+
+sub __accessor {
+    my ($class, $key) = @_;
+    no strict 'refs';
+    *{$class . '::' . $key} = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+        }
+        return $self->{$key};
+    };
+}
+BEGIN { __PACKAGE__->__accessor($_) for qw(dir dir_default) }
+
+sub new {
+    my($class, @rest) = @_;
+    my $self = bless {}, $class;
+    while (my($arg,$val) = splice @rest, 0, 2) {
+        $self->$arg($val);
+    }
+    $self->dir_default(File::Spec->catdir($CPAN::Config->{cpan_home},"plugins",__PACKAGE__));
+    $self;
+}
+
+sub post_test {
+    my $self = shift;
+    my $distribution_object = shift;
+    my $distribution = $distribution_object->pretty_id;
+    unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){
+        $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
+    }
+    my $d = CPAN::Shell->expand("Distribution",$distribution)
+        or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n");
+    my $build_dir = $d->{build_dir} or $CPAN::Frontend->mydie("Distribution has not been built yet, cannot proceed");
+    my %contains = map {($_ => undef)} $d->containsmods;
+    my @m;
+    my $width = 16;
+    my $header = sub {
+        my($header,$value) = @_;
+        push @m, sprintf("%-s:%*s%s\n", $header, $width-length($header), "", $value);
+    };
+    my $dni = CPAN::DistnameInfo->new($distribution);
+    my $dist = $dni->dist;
+    my $summary = CPAN::Shell->_guess_manpage($d,\%contains,$dist);
+    $header->("Name", "perl-$dist");
+    my $version = $dni->version;
+    $header->("Version", $version);
+    $header->("Release", "1%{?dist}");
+#Summary:        Template processing system
+#Group:          Development/Libraries
+#License:        GPL+ or Artistic
+#URL:            http://www.template-toolkit.org/
+#Source0:        http://search.cpan.org/CPAN/authors/id/A/AB/ABW/Template-Toolkit-%{version}.tar.gz
+#Patch0:         Template-2.22-SREZIC-01.patch
+#BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+    for my $h_tuple
+        ([Summary    => $summary],
+         [Group      => "Development/Libraries"],
+         [License    =>],
+         [URL        =>],
+         [BuildRoot  => "%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)"],
+         [Requires   => "perl(:MODULE_COMPAT_%(eval \"`%{__perl} -V:version`\"; echo \$version))"],
+        ) {
+        my($h,$v) = @$h_tuple;
+        $v = "unknown" unless defined $v;
+        $header->($h, $v);
+    }
+    $header->("Source0", sprintf(
+                                 "http://search.cpan.org/CPAN/authors/id/%s/%s/%s",
+                                 substr($distribution,0,1),
+                                 substr($distribution,0,2),
+                                 $distribution
+                                ));
+    require POSIX;
+    my @xs = glob "$build_dir/*.xs"; # quick try
+    unless (@xs) {
+        require ExtUtils::Manifest;
+        my $manifest_file = "$build_dir/MANIFEST";
+        my $manifest = ExtUtils::Manifest::maniread($manifest_file);
+        @xs = grep /\.xs$/, keys %$manifest;
+    }
+    if (! @xs) {
+        $header->('BuildArch', 'noarch');
+    }
+    for my $k (sort keys %contains) {
+        my $m = CPAN::Shell->expand("Module",$k);
+        my $v = $contains{$k} = $m->cpan_version;
+        my $vspec = $v eq "undef" ? "" : " = $v";
+        $header->("Provides", "perl($k)$vspec");
+    }
+    if (my $prereq_pm = $d->{prereq_pm}) {
+        my %req;
+        for my $reqkey (keys %$prereq_pm) {
+            while (my($k,$v) = each %{$prereq_pm->{$reqkey}}) {
+                $req{$k} = $v;
+            }
+        }
+        if (-e "$build_dir/Build.PL" && ! exists $req{"Module::Build"}) {
+            $req{"Module::Build"} = 0;
+        }
+        for my $k (sort keys %req) {
+            next if $k eq "perl";
+            my $v = $req{$k};
+            my $vspec = defined $v && length $v && $v > 0 ? " >= $v" : "";
+            $header->(BuildRequires => "perl($k)$vspec");
+            next if $k =~ /^(Module::Build)$/; # MB is always only a
+                                               # BuildRequires; if we
+                                               # turn it into a
+                                               # Requires, then we
+                                               # would have to make it
+                                               # a BuildRequires
+                                               # everywhere we depend
+                                               # on *one* MB built
+                                               # module.
+            $header->(Requires => "perl($k)$vspec");
+        }
+    }
+    push @m, "\n%define _use_internal_dependency_generator     0
+%define __find_requires %{nil}
+%define __find_provides %{nil}
+";
+    push @m, "\n%description\n%{summary}.\n";
+    push @m, "\n%prep\n%setup -q -n $dist-%{version}\n";
+    if (-e "$build_dir/Build.PL") {
+        # see http://www.redhat.com/archives/rpm-list/2002-July/msg00110.html about RPM_BUILD_ROOT vs %{buildroot}
+        push @m, <<'EOF';
+
+%build
+%{__perl} Build.PL --installdirs=vendor --libdoc installvendorman3dir
+./Build
+
+%install
+rm -rf $RPM_BUILD_ROOT
+./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+./Build test
+EOF
+    } elsif (-e "$build_dir/Makefile.PL") {
+        push @m, <<'EOF';
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';'
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+EOF
+    } else {
+        $CPAN::Frontend->mydie("'$distribution' has neither a Build.PL nor a Makefile.PL\n");
+    }
+    push @m, "\n%clean\nrm -rf \$RPM_BUILD_ROOT\n";
+    my $vendorlib = @xs ? "vendorarch" : "vendorlib";
+    my $date = POSIX::strftime("%a %b %d %Y", gmtime);
+    my @doc = grep { -e "$build_dir/$_" } qw(README Changes);
+    my $exe_stanza = "\n";
+    if (my $exe_files = $d->_exe_files) {
+        if (@$exe_files) {
+            $exe_stanza = "%{_mandir}/man1/*.1*\n";
+            for my $e (@$exe_files) {
+                unless (CPAN->has_inst("File::Basename")) {
+                    $CPAN::Frontend->mydie("File::Basename not installed, cannot continue");
+                }
+                my $basename = File::Basename::basename($e);
+                $exe_stanza .= "/usr/bin/$basename\n";
+            }
+        }
+    }
+    push @m, <<EOF;
+
+%files
+%defattr(-,root,root,-)
+%doc @doc
+%{perl_$vendorlib}/*
+%{_mandir}/man3/*.3*
+$exe_stanza
+%changelog
+* $date  <specfile\@specfile.cpan.org> - $version-1
+- autogenerated by CPAN::Plugin::Specfile()
+
+EOF
+
+    my $ret = join "", @m;
+    $CPAN::Frontend->myprint($ret);
+    my $target_dir = $self->dir || $self->dir_default;
+    File::Path::mkpath($target_dir);
+    my $outfile = File::Spec->catfile($target_dir, "perl-$dist.spec");
+    open my $specout, ">", $outfile
+        or $CPAN::Frontend->mydie("Could not open >$outfile: $!");
+    print $specout $ret;
+    $CPAN::Frontend->myprint("Wrote $outfile");
+    $ret;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::HTTP::Credentials;
+use strict;
+use vars qw($USER $PASSWORD $PROXY_USER $PROXY_PASSWORD);
+
+$CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9601";
+
+sub clear_credentials {
+   clear_non_proxy_credentials();
+   clear_proxy_credentials();
+}
+
+sub clear_non_proxy_credentials {
+    undef $USER;
+    undef $PASSWORD;
+}
+
+sub clear_proxy_credentials {
+    undef $PROXY_USER;
+    undef $PROXY_PASSWORD;
+}
+
+sub get_proxy_credentials {
+    my $self = shift;
+    if ($PROXY_USER && $PROXY_PASSWORD) {
+        return ($PROXY_USER, $PROXY_PASSWORD);
+    }
+    if ( defined $CPAN::Config->{proxy_user}
+            && $CPAN::Config->{proxy_user}
+    ) {
+        $PROXY_USER = $CPAN::Config->{proxy_user};
+        $PROXY_PASSWORD = $CPAN::Config->{proxy_pass} || "";
+        return ($PROXY_USER, $PROXY_PASSWORD);
+    }
+    my $username_prompt = "\nProxy authentication needed!
+ (Note: to permanently configure username and password run
+   o conf proxy_user your_username
+   o conf proxy_pass your_password
+     )\nUsername:";
+    ($PROXY_USER, $PROXY_PASSWORD) =
+        _get_username_and_password_from_user($username_prompt);
+    return ($PROXY_USER,$PROXY_PASSWORD);
+}
+
+sub get_non_proxy_credentials {
+    my $self = shift;
+    if ($USER && $PASSWORD) {
+        return ($USER, $PASSWORD);
+    }
+    if ( defined $CPAN::Config->{username} ) {
+        $USER = $CPAN::Config->{username};
+        $PASSWORD = $CPAN::Config->{password} || "";
+        return ($USER, $PASSWORD);
+    }
+    my $username_prompt = "\nAuthentication needed!
+     (Note: to permanently configure username and password run
+       o conf username your_username
+       o conf password your_password
+     )\nUsername:";
+
+    ($USER, $PASSWORD) =
+        _get_username_and_password_from_user($username_prompt);
+    return ($USER,$PASSWORD);
+}
+
+sub _get_username_and_password_from_user {
+    my $username_message = shift;
+    my ($username,$password);
+
+    ExtUtils::MakeMaker->import(qw(prompt));
+    $username = prompt($username_message);
+        if ($CPAN::META->has_inst("Term::ReadKey")) {
+            Term::ReadKey::ReadMode("noecho");
+        }
+    else {
+        $CPAN::Frontend->mywarn(
+            "Warning: Term::ReadKey seems not to be available, your password will be echoed to the terminal!\n"
+        );
+    }
+    $password = prompt("Password:");
+
+        if ($CPAN::META->has_inst("Term::ReadKey")) {
+            Term::ReadKey::ReadMode("restore");
+        }
+        $CPAN::Frontend->myprint("\n\n");
+    return ($username,$password);
+}
+
+1;
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::HTTP::Client;
+use strict;
+use vars qw(@ISA);
+use CPAN::HTTP::Credentials;
+use HTTP::Tiny 0.005;
+
+$CPAN::HTTP::Client::VERSION = $CPAN::HTTP::Client::VERSION = "1.9601";
+
+# CPAN::HTTP::Client is adapted from parts of cpanm by Tatsuhiko Miyagawa
+# and parts of LWP by Gisle Aas
+
+sub new {
+    my $class = shift;
+    my %args = @_;
+    for my $k ( keys %args ) {
+        $args{$k} = '' unless defined $args{$k};
+    }
+    $args{no_proxy} = [split(",", $args{no_proxy}) ] if $args{no_proxy};
+    return bless \%args, $class;
+}
+
+# This executes a request with redirection (up to 5) and returns the
+# response structure generated by HTTP::Tiny
+#
+# If authentication fails, it will attempt to get new authentication
+# information and repeat up to 5 times
+
+sub mirror {
+    my($self, $uri, $path) = @_;
+
+    my $want_proxy = $self->_want_proxy($uri);
+    my $http = HTTP::Tiny->new(
+        $want_proxy ? (proxy => $self->{proxy}) : ()
+    );
+
+    my ($response, %headers);
+    my $retries = 0;
+    while ( $retries++ < 5 ) {
+        $response = $http->mirror( $uri, $path, {headers => \%headers} );
+        if ( $response->{status} eq '401' ) {
+            last unless $self->_get_auth_params( $response, 'non_proxy' );
+        }
+        elsif ( $response->{status} eq '407' ) {
+            last unless $self->_get_auth_params( $response, 'proxy' );
+        }
+        else {
+            last; # either success or failure
+        }
+        my %headers = (
+            $self->_auth_headers( $uri, 'non_proxy' ),
+            ( $want_proxy ? $self->_auth_headers($uri, 'proxy') : () ),
+        );
+    }
+
+    return $response;
+}
+
+sub _want_proxy {
+    my ($self, $uri) = @_;
+    return unless $self->{proxy};
+    my($host) = $uri =~ m|://([^/:]+)|;
+    return ! grep { $host =~ /\Q$_\E$/ } @{ $self->{no_proxy} || [] };
+}
+
+# Generates the authentication headers for a given mode
+# C<mode> is 'proxy' or 'non_proxy'
+# C<_${mode}_type> is 'basic' or 'digest'
+# C<_${mode}_params> will be the challenge parameters from the 401/407 headers
+sub _auth_headers {
+    my ($self, $uri, $mode) = @_;
+    # Get names for our mode-specific attributes
+    my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/;
+
+    # If _prepare_auth has not been called, we can't prepare headers
+    return unless $self->{$type_key};
+
+    # Get user credentials for mode
+    my $cred_method = "get_" . ($mode ? "proxy" : "non_proxy") ."_credentials";
+    my ($user, $pass) = CPAN::HTTP::Credentials->$cred_method;
+
+    # Generate the header for the mode & type
+    my $header = $mode eq 'proxy' ? 'Proxy-Authorization' : 'Authorization';
+    my $value_method = "_" . $self->{$type_key} . "_auth";
+    my $value = $self->$value_method($user, $pass, $self->{$param_key}, $uri);
+
+    # If we didn't get a value, we didn't have the right modules available
+    return $value ? ( $header, $value ) : ();
+}
+
+# Extract authentication parameters from headers, but clear any prior
+# credentials if we failed (so we might prompt user for password again)
+sub _get_auth_params {
+    my ($self, $response, $mode) = @_;
+    my $prefix = $mode eq 'proxy' ? 'Proxy' : 'WWW';
+    my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/;
+    if ( ! $response->{success} ) { # auth failed
+        my $method = "clear_${mode}_credentials";
+        CPAN::HTTP::Credentials->$method;
+        delete $self->{$_} for $type_key, $param_key;
+    }
+    ($self->{$type_key}, $self->{$param_key}) =
+        $self->_get_challenge( $response, "${prefix}-Authenticate");
+    return $self->{$type_key};
+}
+
+# Extract challenge type and parameters for a challenge list
+sub _get_challenge {
+    my ($self, $response, $auth_header) = @_;
+
+    my $auth_list = $response->{headers}(lc $auth_header);
+    return unless defined $auth_list;
+    $auth_list = [$auth_list] unless ref $auth_list;
+
+    for my $challenge (@$auth_list) {
+        $challenge =~ tr/,/;/;  # "," is used to separate auth-params!!
+        ($challenge) = $self->split_header_words($challenge);
+        my $scheme = shift(@$challenge);
+        shift(@$challenge); # no value
+        $challenge = { @$challenge };  # make rest into a hash
+
+        unless ($scheme =~ /^(basic|digest)$/) {
+            next; # bad scheme
+        }
+        $scheme = $1;  # untainted now
+
+        return ($scheme, $challenge);
+    }
+    return;
+}
+
+# Generate a basic authentication header value
+sub _basic_auth {
+    my ($self, $user, $pass) = @_;
+    unless ( $CPAN::META->has_usable('MIME::Base64') ) {
+        $CPAN::Frontend->mywarn(
+            "MIME::Base64 is required for 'Basic' style authentication"
+        );
+        return;
+    }
+    return "Basic " . MIME::Base64::encode_base64("$user\:$pass", q{});
+}
+
+# Generate a digest authentication header value
+sub _digest_auth {
+    my ($self, $user, $pass, $auth_param, $uri) = @_;
+    unless ( $CPAN::META->has_usable('Digest::MD5') ) {
+        $CPAN::Frontend->mywarn(
+            "Digest::MD5 is required for 'Digest' style authentication"
+        );
+        return;
+    }
+
+    my $nc = sprintf "%08X", ++$self->{_nonce_count}{$auth_param->{nonce}};
+    my $cnonce = sprintf "%8x", time;
+
+    my ($path) = $uri =~ m{^\w+?://[^/]+(/.*)$};
+    $path = "/" unless defined $path;
+
+    my $md5 = Digest::MD5->new;
+
+    my(@digest);
+    $md5->add(join(":", $user, $auth_param->{realm}, $pass));
+    push(@digest, $md5->hexdigest);
+    $md5->reset;
+
+    push(@digest, $auth_param->{nonce});
+
+    if ($auth_param->{qop}) {
+        push(@digest, $nc, $cnonce, ($auth_param->{qop} =~ m|^auth[,;]auth-int$|) ? 'auth' : $auth_param->{qop});
+    }
+
+    $md5->add(join(":", 'GET', $path));
+    push(@digest, $md5->hexdigest);
+    $md5->reset;
+
+    $md5->add(join(":", @digest));
+    my($digest) = $md5->hexdigest;
+    $md5->reset;
+
+    my %resp = map { $_ => $auth_param->{$_} } qw(realm nonce opaque);
+    @resp{qw(username uri response algorithm)} = ($user, $path, $digest, "MD5");
+
+    if (($auth_param->{qop} || "") =~ m|^auth([,;]auth-int)?$|) {
+        @resp{qw(qop cnonce nc)} = ("auth", $cnonce, $nc);
+    }
+
+    my(@order) =
+        qw(username realm qop algorithm uri nonce nc cnonce response opaque);
+    my @pairs;
+    for (@order) {
+        next unless defined $resp{$_};
+        push(@pairs, "$_=" . qq("$resp{$_}"));
+    }
+
+    my $auth_value  = "Digest " . join(", ", @pairs);
+    return $auth_value;
+}
+
+# split_header_words adapted from HTTP::Headers::Util
+sub split_header_words {
+    my ($self, @words) = @_;
+    my @res = $self->_split_header_words(@words);
+    for my $arr (@res) {
+        for (my $i = @$arr - 2; $i >= 0; $i -= 2) {
+            $arr->[$i] = lc($arr->[$i]);
+        }
+    }
+    return @res;
+}
+
+sub _split_header_words {
+    my($self, @val) = @_;
+    my @res;
+    for (@val) {
+        my @cur;
+        while (length) {
+            if (s/^\s*(=*[^\s=;,]+)//) {  # 'token' or parameter 'attribute'
+                push(@cur, $1);
+                # a quoted value
+                if (s/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
+                    my $val = $1;
+                    $val =~ s/\\(.)/$1/g;
+                    push(@cur, $val);
+                    # some unquoted value
+                }
+                elsif (s/^\s*=\s*([^;,\s]*)//) {
+                    my $val = $1;
+                    $val =~ s/\s+$//;
+                    push(@cur, $val);
+                    # no value, a lone token
+                }
+                else {
+                    push(@cur, undef);
+                }
+            }
+            elsif (s/^\s*,//) {
+                push(@res, [@cur]) if @cur;
+                @cur = ();
+            }
+            elsif (s/^\s*;// || s/^\s+//) {
+                # continue
+            }
+            else {
+                die "This should not happen: '$_'";
+            }
+        }
+        push(@res, \@cur) if @cur;
+    }
+    @res;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::yaml_not_installed;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$module,$file,$during) = @_;
+    bless { module => $module, file => $file, during => $during }, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    "'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::yaml_process_error;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$module,$file,$during,$error) = @_;
+    # my $at = Carp::longmess(""); # XXX find something more beautiful
+    bless { module => $module,
+            file => $file,
+            during => $during,
+            error => $error,
+            # at => $at,
+          }, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    if ($self->{during}) {
+        if ($self->{file}) {
+            if ($self->{module}) {
+                if ($self->{error}) {
+                    return "Alert: While trying to '$self->{during}' YAML file\n".
+                        " '$self->{file}'\n".
+                            "with '$self->{module}' the following error was encountered:\n".
+                                "  $self->{error}\n";
+                } else {
+                    return "Alert: While trying to '$self->{during}' YAML file\n".
+                        " '$self->{file}'\n".
+                            "with '$self->{module}' some unknown error was encountered\n";
+                }
+            } else {
+                return "Alert: While trying to '$self->{during}' YAML file\n".
+                    " '$self->{file}'\n".
+                        "some unknown error was encountered\n";
+            }
+        } else {
+            return "Alert: While trying to '$self->{during}' some YAML file\n".
+                    "some unknown error was encountered\n";
+        }
+    } else {
+        return "Alert: unknown error encountered\n";
+    }
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::RecursiveDependency;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5001";
+
+{
+    package CPAN::Exception::RecursiveDependency::na;
+    use overload '""' => "as_string";
+    sub new { bless {}, shift };
+    sub as_string { "N/A" };
+}
+
+my $NA = CPAN::Exception::RecursiveDependency::na->new;
+
+# a module sees its distribution (no version)
+# a distribution sees its prereqs (which are module names) (usually with versions)
+# a bundle sees its module names and/or its distributions (no version)
+
+sub new {
+    my($class) = shift;
+    my($deps_arg) = shift;
+    my (@deps,%seen,$loop_starts_with);
+  DCHAIN: for my $dep (@$deps_arg) {
+        push @deps, {name => $dep, display_as => $dep};
+        if ($seen{$dep}++) {
+            $loop_starts_with = $dep;
+            last DCHAIN;
+        }
+    }
+    my $in_loop = 0;
+    my %mark;
+ DWALK: for my $i (0..$#deps) {
+        my $x = $deps[$i]{name};
+        $in_loop ||= $loop_starts_with && $x eq $loop_starts_with;
+        my $xo = CPAN::Shell->expandany($x) or next;
+        if ($xo->isa("CPAN::Module")) {
+            my $have = $xo->inst_version || $NA;
+            my($want,$d,$want_type);
+            if ($i>0 and $d = $deps[$i-1]{name}) {
+                my $do = CPAN::Shell->expandany($d);
+                $want = $do->{prereq_pm}{requires}{$x};
+                if (defined $want) {
+                    $want_type = "requires: ";
+                } else {
+                    $want = $do->{prereq_pm}{build_requires}{$x};
+                    if (defined $want) {
+                        $want_type = "build_requires: ";
+                    } else {
+                        $want_type = "unknown status";
+                        $want = "???";
+                    }
+                }
+            } else {
+                $want = $xo->cpan_version;
+                $want_type = "want: ";
+            }
+            $deps[$i]{have} = $have;
+            $deps[$i]{want_type} = $want_type;
+            $deps[$i]{want} = $want;
+            $deps[$i]{display_as} = "$x (have: $have; $want_type$want)";
+            if ((! ref $have || !$have->isa('CPAN::Exception::RecursiveDependency::na'))
+                && CPAN::Version->vge($have, $want)) {
+                # https://rt.cpan.org/Ticket/Display.html?id=115340
+                undef $loop_starts_with;
+                last DWALK;
+            }
+        } elsif ($xo->isa("CPAN::Distribution")) {
+            my $pretty = $deps[$i]{display_as} = $xo->pretty_id;
+            my $mark_as;
+            if ($in_loop) {
+                $mark_as = CPAN::Distrostatus->new("NO cannot resolve circular dependency");
+            } else {
+                $mark_as = CPAN::Distrostatus->new("NO one dependency ($loop_starts_with) is a circular dependency");
+            }
+            $mark{$pretty} = { xo => $xo, mark_as => $mark_as };
+        }
+    }
+    if ($loop_starts_with) {
+        while (my($k,$v) = each %mark) {
+            my $xo = $v->{xo};
+            $xo->{make} = $v->{mark_as};
+            $xo->store_persistent_state; # otherwise I will not reach
+                                         # all involved parties for
+                                         # the next session
+        }
+    }
+    bless { deps => \@deps, loop_starts_with => $loop_starts_with }, $class;
+}
+
+sub is_resolvable {
+    ! defined shift->{loop_starts_with};
+}
+
+sub as_string {
+    my($self) = shift;
+    my $deps = $self->{deps};
+    my $loop_starts_with = $self->{loop_starts_with};
+    unless ($loop_starts_with) {
+        return "--not a recursive/circular dependency--";
+    }
+    my $ret = "\nRecursive dependency detected:\n    ";
+    $ret .= join("\n => ", map {$_->{display_as}} @$deps);
+    $ret .= ".\nCannot resolve.\n";
+    $ret;
+}
+
+1;
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::blocked_urllist;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "1.001";
+
+
+sub new {
+    my($class) = @_;
+    bless {}, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    if ($CPAN::Config->{connect_to_internet_ok}) {
+        return qq{
+
+You have not configured a urllist for CPAN mirrors. Configure it with
+
+    o conf init urllist
+
+};
+    } else {
+        return qq{
+
+You have not configured a urllist and do not allow connections to the
+internet to get a list of mirrors.  If you wish to get a list of CPAN
+mirrors to pick from, use this command
+
+    o conf init connect_to_internet_ok urllist
+
+If you do not wish to get a list of mirrors and would prefer to set
+your urllist manually, use just this command instead
+
+    o conf init urllist
+
+};
+    }
+}
+
+1;
+# vi:tw=72
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::History;
+
+our $VERSION = '2.150010';
+
+1;
+
+# ABSTRACT: history of CPAN Meta Spec changes
+
+__END__
+
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Feature;
+
+our $VERSION = '2.150010';
+
+use CPAN::Meta::Prereqs;
+
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Feature object describes an optional feature offered by a CPAN
+#pod distribution and specified in the distribution's F<META.json> (or F<META.yml>)
+#pod file.
+#pod
+#pod For the most part, this class will only be used when operating on the result of
+#pod the C<feature> or C<features> methods on a L<CPAN::Meta> object.
+#pod
+#pod =method new
+#pod
+#pod   my $feature = CPAN::Meta::Feature->new( $identifier => \%spec );
+#pod
+#pod This returns a new Feature object.  The C<%spec> argument to the constructor
+#pod should be the same as the value of the C<optional_feature> entry in the
+#pod distmeta.  It must contain entries for C<description> and C<prereqs>.
+#pod
+#pod =cut
+
+sub new {
+  my ($class, $identifier, $spec) = @_;
+
+  my %guts = (
+    identifier  => $identifier,
+    description => $spec->{description},
+    prereqs     => CPAN::Meta::Prereqs->new($spec->{prereqs}),
+  );
+
+  bless \%guts => $class;
+}
+
+#pod =method identifier
+#pod
+#pod This method returns the feature's identifier.
+#pod
+#pod =cut
+
+sub identifier  { $_[0]{identifier}  }
+
+#pod =method description
+#pod
+#pod This method returns the feature's long description.
+#pod
+#pod =cut
+
+sub description { $_[0]{description} }
+
+#pod =method prereqs
+#pod
+#pod This method returns the feature's prerequisites as a L<CPAN::Meta::Prereqs>
+#pod object.
+#pod
+#pod =cut
+
+sub prereqs     { $_[0]{prereqs} }
+
+1;
+
+# ABSTRACT: an optional feature provided by a CPAN distribution
+
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Converter;
+
+our $VERSION = '2.150010';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   my $struct = decode_json_file('META.json');
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct );
+#pod
+#pod   my $new_struct = $cmc->convert( version => "2" );
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod This module converts CPAN Meta structures from one form to another.  The
+#pod primary use is to convert older structures to the most modern version of
+#pod the specification, but other transformations may be implemented in the
+#pod future as needed.  (E.g. stripping all custom fields or stripping all
+#pod optional fields.)
+#pod
+#pod =cut
+
+use CPAN::Meta::Validator;
+use CPAN::Meta::Requirements;
+use Parse::CPAN::Meta 1.4400 ();
+
+# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
+# before 5.10, we fall back to the EUMM bundled compatibility version module if
+# that's the only thing available.  This shouldn't ever happen in a normal CPAN
+# install of CPAN::Meta::Requirements, as version.pm will be picked up from
+# prereqs and be available at runtime.
+
+BEGIN {
+  eval "use version ()"; ## no critic
+  if ( my $err = $@ ) {
+    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
+  }
+}
+
+# Perl 5.10.0 didn't have "is_qv" in version.pm
+*_is_qv = version->can('is_qv') ? sub { $_[0]->is_qv } : sub { exists $_[0]->{qv} };
+
+# We limit cloning to a maximum depth to bail out on circular data
+# structures.  While actual cycle detection might be technically better,
+# we expect circularity in META data structures to be rare and generally
+# the result of user error.  Therefore, a depth counter is lower overhead.
+our $DCLONE_MAXDEPTH = 1024;
+our $_CLONE_DEPTH;
+
+sub _dclone {
+  my ( $ref  ) = @_;
+  return $ref unless my $reftype = ref $ref;
+
+  local $_CLONE_DEPTH = defined $_CLONE_DEPTH ? $_CLONE_DEPTH - 1 : $DCLONE_MAXDEPTH;
+  die "Depth Limit $DCLONE_MAXDEPTH Exceeded" if $_CLONE_DEPTH == 0;
+
+  return [ map { _dclone( $_ ) } @{$ref} ] if 'ARRAY' eq $reftype;
+  return { map { $_ => _dclone( $ref->{$_} ) } keys %{$ref} } if 'HASH' eq $reftype;
+
+  if ( 'SCALAR' eq $reftype ) {
+    my $new = _dclone(${$ref});
+    return \$new;
+  }
+
+  # We can't know if TO_JSON gives us cloned data, so refs must recurse
+  if ( eval { $ref->can('TO_JSON') } ) {
+    my $data = $ref->TO_JSON;
+    return ref $data ? _dclone( $data ) : $data;
+  }
+
+  # Just stringify everything else
+  return "$ref";
+}
+
+my %known_specs = (
+    '2'   => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
+    '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
+    '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html',
+    '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html',
+    '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html',
+    '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html'
+);
+
+my @spec_list = sort { $a <=> $b } keys %known_specs;
+my ($LOWEST, $HIGHEST) = @spec_list[0,-1];
+
+#--------------------------------------------------------------------------#
+# converters
+#
+# called as $converter->($element, $field_name, $full_meta, $to_version)
+#
+# defined return value used for field
+# undef return value means field is skipped
+#--------------------------------------------------------------------------#
+
+sub _keep { $_[0] }
+
+sub _keep_or_one { defined($_[0]) ? $_[0] : 1 }
+
+sub _keep_or_zero { defined($_[0]) ? $_[0] : 0 }
+
+sub _keep_or_unknown { defined($_[0]) && length($_[0]) ? $_[0] : "unknown" }
+
+sub _generated_by {
+  my $gen = shift;
+  my $sig = __PACKAGE__ . " version " . (__PACKAGE__->VERSION || "<dev>");
+
+  return $sig unless defined $gen and length $gen;
+  return $gen if $gen =~ /\Q$sig/;
+  return "$gen, $sig";
+}
+
+sub _listify { ! defined $_[0] ? undef : ref $_[0] eq 'ARRAY' ? $_[0] : [$_[0]] }
+
+sub _prefix_custom {
+  my $key = shift;
+  $key =~ s/^(?!x_)   # Unless it already starts with x_
+             (?:x-?)? # Remove leading x- or x (if present)
+           /x_/ix;    # and prepend x_
+  return $key;
+}
+
+sub _ucfirst_custom {
+  my $key = shift;
+  $key = ucfirst $key unless $key =~ /[A-Z]/;
+  return $key;
+}
+
+sub _no_prefix_ucfirst_custom {
+  my $key = shift;
+  $key =~ s/^x_//;
+  return _ucfirst_custom($key);
+}
+
+sub _change_meta_spec {
+  my ($element, undef, undef, $version) = @_;
+  return {
+    version => $version,
+    url => $known_specs{$version},
+  };
+}
+
+my @open_source = (
+  'perl',
+  'gpl',
+  'apache',
+  'artistic',
+  'artistic_2',
+  'lgpl',
+  'bsd',
+  'gpl',
+  'mit',
+  'mozilla',
+  'open_source',
+);
+
+my %is_open_source = map {; $_ => 1 } @open_source;
+
+my @valid_licenses_1 = (
+  @open_source,
+  'unrestricted',
+  'restrictive',
+  'unknown',
+);
+
+my %license_map_1 = (
+  ( map { $_ => $_ } @valid_licenses_1 ),
+  artistic2 => 'artistic_2',
+);
+
+sub _license_1 {
+  my ($element) = @_;
+  return 'unknown' unless defined $element;
+  if ( $license_map_1{lc $element} ) {
+    return $license_map_1{lc $element};
+  }
+  else {
+    return 'unknown';
+  }
+}
+
+my @valid_licenses_2 = qw(
+  agpl_3
+  apache_1_1
+  apache_2_0
+  artistic_1
+  artistic_2
+  bsd
+  freebsd
+  gfdl_1_2
+  gfdl_1_3
+  gpl_1
+  gpl_2
+  gpl_3
+  lgpl_2_1
+  lgpl_3_0
+  mit
+  mozilla_1_0
+  mozilla_1_1
+  openssl
+  perl_5
+  qpl_1_0
+  ssleay
+  sun
+  zlib
+  open_source
+  restricted
+  unrestricted
+  unknown
+);
+
+# The "old" values were defined by Module::Build, and were often vague.  I have
+# made the decisions below based on reading Module::Build::API and how clearly
+# it specifies the version of the license.
+my %license_map_2 = (
+  (map { $_ => $_ } @valid_licenses_2),
+  apache      => 'apache_2_0',  # clearly stated as 2.0
+  artistic    => 'artistic_1',  # clearly stated as 1
+  artistic2   => 'artistic_2',  # clearly stated as 2
+  gpl         => 'open_source', # we don't know which GPL; punt
+  lgpl        => 'open_source', # we don't know which LGPL; punt
+  mozilla     => 'open_source', # we don't know which MPL; punt
+  perl        => 'perl_5',      # clearly Perl 5
+  restrictive => 'restricted',
+);
+
+sub _license_2 {
+  my ($element) = @_;
+  return [ 'unknown' ] unless defined $element;
+  $element = [ $element ] unless ref $element eq 'ARRAY';
+  my @new_list;
+  for my $lic ( @$element ) {
+    next unless defined $lic;
+    if ( my $new = $license_map_2{lc $lic} ) {
+      push @new_list, $new;
+    }
+  }
+  return @new_list ? \@new_list : [ 'unknown' ];
+}
+
+my %license_downgrade_map = qw(
+  agpl_3            open_source
+  apache_1_1        apache
+  apache_2_0        apache
+  artistic_1        artistic
+  artistic_2        artistic_2
+  bsd               bsd
+  freebsd           open_source
+  gfdl_1_2          open_source
+  gfdl_1_3          open_source
+  gpl_1             gpl
+  gpl_2             gpl
+  gpl_3             gpl
+  lgpl_2_1          lgpl
+  lgpl_3_0          lgpl
+  mit               mit
+  mozilla_1_0       mozilla
+  mozilla_1_1       mozilla
+  openssl           open_source
+  perl_5            perl
+  qpl_1_0           open_source
+  ssleay            open_source
+  sun               open_source
+  zlib              open_source
+  open_source       open_source
+  restricted        restrictive
+  unrestricted      unrestricted
+  unknown           unknown
+);
+
+sub _downgrade_license {
+  my ($element) = @_;
+  if ( ! defined $element ) {
+    return "unknown";
+  }
+  elsif( ref $element eq 'ARRAY' ) {
+    if ( @$element > 1) {
+      if (grep { !$is_open_source{ $license_downgrade_map{lc $_} || 'unknown' } } @$element) {
+        return 'unknown';
+      }
+      else {
+        return 'open_source';
+      }
+    }
+    elsif ( @$element == 1 ) {
+      return $license_downgrade_map{lc $element->[0]} || "unknown";
+    }
+  }
+  elsif ( ! ref $element ) {
+    return $license_downgrade_map{lc $element} || "unknown";
+  }
+  return "unknown";
+}
+
+my $no_index_spec_1_2 = {
+  'file' => \&_listify,
+  'dir' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+};
+
+my $no_index_spec_1_3 = {
+  'file' => \&_listify,
+  'directory' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+};
+
+my $no_index_spec_2 = {
+  'file' => \&_listify,
+  'directory' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _no_index_1_2 {
+  my (undef, undef, $meta) = @_;
+  my $no_index = $meta->{no_index} || $meta->{private};
+  return unless $no_index;
+
+  # cleanup wrong format
+  if ( ! ref $no_index ) {
+    my $item = $no_index;
+    $no_index = { dir => [ $item ], file => [ $item ] };
+  }
+  elsif ( ref $no_index eq 'ARRAY' ) {
+    my $list = $no_index;
+    $no_index = { dir => [ @$list ], file => [ @$list ] };
+  }
+
+  # common mistake: files -> file
+  if ( exists $no_index->{files} ) {
+    $no_index->{file} = delete $no_index->{files};
+  }
+  # common mistake: modules -> module
+  if ( exists $no_index->{modules} ) {
+    $no_index->{module} = delete $no_index->{modules};
+  }
+  return _convert($no_index, $no_index_spec_1_2);
+}
+
+sub _no_index_directory {
+  my ($element, $key, $meta, $version) = @_;
+  return unless $element;
+
+  # clean up wrong format
+  if ( ! ref $element ) {
+    my $item = $element;
+    $element = { directory => [ $item ], file => [ $item ] };
+  }
+  elsif ( ref $element eq 'ARRAY' ) {
+    my $list = $element;
+    $element = { directory => [ @$list ], file => [ @$list ] };
+  }
+
+  if ( exists $element->{dir} ) {
+    $element->{directory} = delete $element->{dir};
+  }
+  # common mistake: files -> file
+  if ( exists $element->{files} ) {
+    $element->{file} = delete $element->{files};
+  }
+  # common mistake: modules -> module
+  if ( exists $element->{modules} ) {
+    $element->{module} = delete $element->{modules};
+  }
+  my $spec = $version == 2 ? $no_index_spec_2 : $no_index_spec_1_3;
+  return _convert($element, $spec);
+}
+
+sub _is_module_name {
+  my $mod = shift;
+  return unless defined $mod && length $mod;
+  return $mod =~ m{^[A-Za-z][A-Za-z0-9_]*(?:::[A-Za-z0-9_]+)*$};
+}
+
+sub _clean_version {
+  my ($element) = @_;
+  return 0 if ! defined $element;
+
+  $element =~ s{^\s*}{};
+  $element =~ s{\s*$}{};
+  $element =~ s{^\.}{0.};
+
+  return 0 if ! length $element;
+  return 0 if ( $element eq 'undef' || $element eq '<undef>' );
+
+  my $v = eval { version->new($element) };
+  # XXX check defined $v and not just $v because version objects leak memory
+  # in boolean context -- dagolden, 2012-02-03
+  if ( defined $v ) {
+    return _is_qv($v) ? $v->normal : $element;
+  }
+  else {
+    return 0;
+  }
+}
+
+sub _bad_version_hook {
+  my ($v) = @_;
+  $v =~ s{^\s*}{};
+  $v =~ s{\s*$}{};
+  $v =~ s{[a-z]+$}{}; # strip trailing alphabetics
+  my $vobj = eval { version->new($v) };
+  return defined($vobj) ? $vobj : version->new(0); # or give up
+}
+
+sub _version_map {
+  my ($element) = @_;
+  return unless defined $element;
+  if ( ref $element eq 'HASH' ) {
+    # XXX turn this into CPAN::Meta::Requirements with bad version hook
+    # and then turn it back into a hash
+    my $new_map = CPAN::Meta::Requirements->new(
+      { bad_version_hook => \&_bad_version_hook } # punt
+    );
+    while ( my ($k,$v) = each %$element ) {
+      next unless _is_module_name($k);
+      if ( !defined($v) || !length($v) || $v eq 'undef' || $v eq '<undef>'  ) {
+        $v = 0;
+      }
+      # some weird, old META have bad yml with module => module
+      # so check if value is like a module name and not like a version
+      if ( _is_module_name($v) && ! version::is_lax($v) ) {
+        $new_map->add_minimum($k => 0);
+        $new_map->add_minimum($v => 0);
+      }
+      $new_map->add_string_requirement($k => $v);
+    }
+    return $new_map->as_string_hash;
+  }
+  elsif ( ref $element eq 'ARRAY' ) {
+    my $hashref = { map { $_ => 0 } @$element };
+    return _version_map($hashref); # clean up any weird stuff
+  }
+  elsif ( ref $element eq '' && length $element ) {
+    return { $element => 0 }
+  }
+  return;
+}
+
+sub _prereqs_from_1 {
+  my (undef, undef, $meta) = @_;
+  my $prereqs = {};
+  for my $phase ( qw/build configure/ ) {
+    my $key = "${phase}_requires";
+    $prereqs->{$phase}{requires} = _version_map($meta->{$key})
+      if $meta->{$key};
+  }
+  for my $rel ( qw/requires recommends conflicts/ ) {
+    $prereqs->{runtime}{$rel} = _version_map($meta->{$rel})
+      if $meta->{$rel};
+  }
+  return $prereqs;
+}
+
+my $prereqs_spec = {
+  configure => \&_prereqs_rel,
+  build     => \&_prereqs_rel,
+  test      => \&_prereqs_rel,
+  runtime   => \&_prereqs_rel,
+  develop   => \&_prereqs_rel,
+  ':custom'  => \&_prefix_custom,
+};
+
+my $relation_spec = {
+  requires   => \&_version_map,
+  recommends => \&_version_map,
+  suggests   => \&_version_map,
+  conflicts  => \&_version_map,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _cleanup_prereqs {
+  my ($prereqs, $key, $meta, $to_version) = @_;
+  return unless $prereqs && ref $prereqs eq 'HASH';
+  return _convert( $prereqs, $prereqs_spec, $to_version );
+}
+
+sub _prereqs_rel {
+  my ($relation, $key, $meta, $to_version) = @_;
+  return unless $relation && ref $relation eq 'HASH';
+  return _convert( $relation, $relation_spec, $to_version );
+}
+
+
+BEGIN {
+  my @old_prereqs = qw(
+    requires
+    configure_requires
+    recommends
+    conflicts
+  );
+
+  for ( @old_prereqs ) {
+    my $sub = "_get_$_";
+    my ($phase,$type) = split qr/_/, $_;
+    if ( ! defined $type ) {
+      $type = $phase;
+      $phase = 'runtime';
+    }
+    no strict 'refs';
+    *{$sub} = sub { _extract_prereqs($_[2]->{prereqs},$phase,$type) };
+  }
+}
+
+sub _get_build_requires {
+  my ($data, $key, $meta) = @_;
+
+  my $test_h  = _extract_prereqs($_[2]->{prereqs}, qw(test  requires)) || {};
+  my $build_h = _extract_prereqs($_[2]->{prereqs}, qw(build requires)) || {};
+
+  my $test_req  = CPAN::Meta::Requirements->from_string_hash($test_h);
+  my $build_req = CPAN::Meta::Requirements->from_string_hash($build_h);
+
+  $test_req->add_requirements($build_req)->as_string_hash;
+}
+
+sub _extract_prereqs {
+  my ($prereqs, $phase, $type) = @_;
+  return unless ref $prereqs eq 'HASH';
+  return scalar _version_map($prereqs->{$phase}{$type});
+}
+
+sub _downgrade_optional_features {
+  my (undef, undef, $meta) = @_;
+  return unless exists $meta->{optional_features};
+  my $origin = $meta->{optional_features};
+  my $features = {};
+  for my $name ( keys %$origin ) {
+    $features->{$name} = {
+      description => $origin->{$name}{description},
+      requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','requires'),
+      configure_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','configure_requires'),
+      build_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','build_requires'),
+      recommends => _extract_prereqs($origin->{$name}{prereqs},'runtime','recommends'),
+      conflicts => _extract_prereqs($origin->{$name}{prereqs},'runtime','conflicts'),
+    };
+    for my $k (keys %{$features->{$name}} ) {
+      delete $features->{$name}{$k} unless defined $features->{$name}{$k};
+    }
+  }
+  return $features;
+}
+
+sub _upgrade_optional_features {
+  my (undef, undef, $meta) = @_;
+  return unless exists $meta->{optional_features};
+  my $origin = $meta->{optional_features};
+  my $features = {};
+  for my $name ( keys %$origin ) {
+    $features->{$name} = {
+      description => $origin->{$name}{description},
+      prereqs => _prereqs_from_1(undef, undef, $origin->{$name}),
+    };
+    delete $features->{$name}{prereqs}{configure};
+  }
+  return $features;
+}
+
+my $optional_features_2_spec = {
+  description => \&_keep,
+  prereqs => \&_cleanup_prereqs,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _feature_2 {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless $element && ref $element eq 'HASH';
+  _convert( $element, $optional_features_2_spec, $to_version );
+}
+
+sub _cleanup_optional_features_2 {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless $element && ref $element eq 'HASH';
+  my $new_data = {};
+  for my $k ( keys %$element ) {
+    $new_data->{$k} = _feature_2( $element->{$k}, $k, $meta, $to_version );
+  }
+  return unless keys %$new_data;
+  return $new_data;
+}
+
+sub _optional_features_1_4 {
+  my ($element) = @_;
+  return unless $element;
+  $element = _optional_features_as_map($element);
+  for my $name ( keys %$element ) {
+    for my $drop ( qw/requires_packages requires_os excluded_os/ ) {
+      delete $element->{$name}{$drop};
+    }
+  }
+  return $element;
+}
+
+sub _optional_features_as_map {
+  my ($element) = @_;
+  return unless $element;
+  if ( ref $element eq 'ARRAY' ) {
+    my %map;
+    for my $feature ( @$element ) {
+      my (@parts) = %$feature;
+      $map{$parts[0]} = $parts[1];
+    }
+    $element = \%map;
+  }
+  return $element;
+}
+
+sub _is_urlish { defined $_[0] && $_[0] =~ m{\A[-+.a-z0-9]+:.+}i }
+
+sub _url_or_drop {
+  my ($element) = @_;
+  return $element if _is_urlish($element);
+  return;
+}
+
+sub _url_list {
+  my ($element) = @_;
+  return unless $element;
+  $element = _listify( $element );
+  $element = [ grep { _is_urlish($_) } @$element ];
+  return unless @$element;
+  return $element;
+}
+
+sub _author_list {
+  my ($element) = @_;
+  return [ 'unknown' ] unless $element;
+  $element = _listify( $element );
+  $element = [ map { defined $_ && length $_ ? $_ : 'unknown' } @$element ];
+  return [ 'unknown' ] unless @$element;
+  return $element;
+}
+
+my $resource2_upgrade = {
+  license    => sub { return _is_urlish($_[0]) ? _listify( $_[0] ) : undef },
+  homepage   => \&_url_or_drop,
+  bugtracker => sub {
+    my ($item) = @_;
+    return unless $item;
+    if ( $item =~ m{^mailto:(.*)$} ) { return { mailto => $1 } }
+    elsif( _is_urlish($item) ) { return { web => $item } }
+    else { return }
+  },
+  repository => sub { return _is_urlish($_[0]) ? { url => $_[0] } : undef },
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _upgrade_resources_2 {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource2_upgrade);
+}
+
+my $bugtracker2_spec = {
+  web => \&_url_or_drop,
+  mailto => \&_keep,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _repo_type {
+  my ($element, $key, $meta, $to_version) = @_;
+  return $element if defined $element;
+  return unless exists $meta->{url};
+  my $repo_url = $meta->{url};
+  for my $type ( qw/git svn/ ) {
+    return $type if $repo_url =~ m{\A$type};
+  }
+  return;
+}
+
+my $repository2_spec = {
+  web => \&_url_or_drop,
+  url => \&_url_or_drop,
+  type => \&_repo_type,
+  ':custom'  => \&_prefix_custom,
+};
+
+my $resources2_cleanup = {
+  license    => \&_url_list,
+  homepage   => \&_url_or_drop,
+  bugtracker => sub { ref $_[0] ? _convert( $_[0], $bugtracker2_spec ) : undef },
+  repository => sub { my $data = shift; ref $data ? _convert( $data, $repository2_spec ) : undef },
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _cleanup_resources_2 {
+  my ($resources, $key, $meta, $to_version) = @_;
+  return unless $resources && ref $resources eq 'HASH';
+  return _convert($resources, $resources2_cleanup, $to_version);
+}
+
+my $resource1_spec = {
+  license    => \&_url_or_drop,
+  homepage   => \&_url_or_drop,
+  bugtracker => \&_url_or_drop,
+  repository => \&_url_or_drop,
+  ':custom'  => \&_keep,
+};
+
+sub _resources_1_3 {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource1_spec);
+}
+
+*_resources_1_4 = *_resources_1_3;
+
+sub _resources_1_2 {
+  my (undef, undef, $meta) = @_;
+  my $resources = $meta->{resources} || {};
+  if ( $meta->{license_url} && ! $resources->{license} ) {
+    $resources->{license} = $meta->{license_url}
+      if _is_urlish($meta->{license_url});
+  }
+  return unless keys %$resources;
+  return _convert($resources, $resource1_spec);
+}
+
+my $resource_downgrade_spec = {
+  license    => sub { return ref $_[0] ? $_[0]->[0] : $_[0] },
+  homepage   => \&_url_or_drop,
+  bugtracker => sub { return $_[0]->{web} },
+  repository => sub { return $_[0]->{url} || $_[0]->{web} },
+  ':custom'  => \&_no_prefix_ucfirst_custom,
+};
+
+sub _downgrade_resources {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource_downgrade_spec);
+}
+
+sub _release_status {
+  my ($element, undef, $meta) = @_;
+  return $element if $element && $element =~ m{\A(?:stable|testing|unstable)\z};
+  return _release_status_from_version(undef, undef, $meta);
+}
+
+sub _release_status_from_version {
+  my (undef, undef, $meta) = @_;
+  my $version = $meta->{version} || '';
+  return ( $version =~ /_/ ) ? 'testing' : 'stable';
+}
+
+my $provides_spec = {
+  file => \&_keep,
+  version => \&_keep,
+};
+
+my $provides_spec_2 = {
+  file => \&_keep,
+  version => \&_keep,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _provides {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless defined $element && ref $element eq 'HASH';
+  my $spec = $to_version == 2 ? $provides_spec_2 : $provides_spec;
+  my $new_data = {};
+  for my $k ( keys %$element ) {
+    $new_data->{$k} = _convert($element->{$k}, $spec, $to_version);
+    $new_data->{$k}{version} = _clean_version($element->{$k}{version})
+      if exists $element->{$k}{version};
+  }
+  return $new_data;
+}
+
+sub _convert {
+  my ($data, $spec, $to_version, $is_fragment) = @_;
+
+  my $new_data = {};
+  for my $key ( keys %$spec ) {
+    next if $key eq ':custom' || $key eq ':drop';
+    next unless my $fcn = $spec->{$key};
+    if ( $is_fragment && $key eq 'generated_by' ) {
+      $fcn = \&_keep;
+    }
+    die "spec for '$key' is not a coderef"
+      unless ref $fcn && ref $fcn eq 'CODE';
+    my $new_value = $fcn->($data->{$key}, $key, $data, $to_version);
+    $new_data->{$key} = $new_value if defined $new_value;
+  }
+
+  my $drop_list   = $spec->{':drop'};
+  my $customizer  = $spec->{':custom'} || \&_keep;
+
+  for my $key ( keys %$data ) {
+    next if $drop_list && grep { $key eq $_ } @$drop_list;
+    next if exists $spec->{$key}; # we handled it
+    $new_data->{ $customizer->($key) } = $data->{$key};
+  }
+
+  return $new_data;
+}
+
+#--------------------------------------------------------------------------#
+# define converters for each conversion
+#--------------------------------------------------------------------------#
+
+# each converts from prior version
+# special ":custom" field is used for keys not recognized in spec
+my %up_convert = (
+  '2-from-1.4' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_2,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'dynamic_config'      => \&_keep_or_one,
+    # ADDED MANDATORY
+    'release_status'      => \&_release_status,
+    # PRIOR OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_upgrade_optional_features,
+    'provides'            => \&_provides,
+    'resources'           => \&_upgrade_resources_2,
+    # ADDED OPTIONAL
+    'description'         => \&_keep,
+    'prereqs'             => \&_prereqs_from_1,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+        build_requires
+        configure_requires
+        conflicts
+        distribution_type
+        license_url
+        private
+        recommends
+        requires
+    ) ],
+
+    # other random keys need x_ prefixing
+    ':custom'              => \&_prefix_custom,
+  },
+  '1.4-from-1.3' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_1_4,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_4,
+    # ADDED OPTIONAL
+    'configure_requires'  => \&_keep,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.3-from-1.2' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.2-from-1.1' => {
+    # PRIOR MANDATORY
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'license'             => \&_license_1,
+    'name'                => \&_keep,
+    'generated_by'        => \&_generated_by,
+    # ADDED MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'resources'           => \&_resources_1_2,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.1-from-1.0' => {
+    # CHANGED TO MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'license_url'         => \&_url_or_drop,
+    'private'             => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+);
+
+my %down_convert = (
+  '1.4-from-2' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_downgrade_license,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_get_build_requires,
+    'configure_requires'  => \&_get_configure_requires,
+    'conflicts'           => \&_get_conflicts,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_downgrade_optional_features,
+    'provides'            => \&_provides,
+    'recommends'          => \&_get_recommends,
+    'requires'            => \&_get_requires,
+    'resources'           => \&_downgrade_resources,
+
+    # drop these unsupported fields (after conversion)
+    ':drop' => [ qw(
+      description
+      prereqs
+      release_status
+    )],
+
+    # custom keys will be left unchanged
+    ':custom'              => \&_keep
+  },
+  '1.3-from-1.4' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # drop these unsupported fields, but only after we convert
+    ':drop' => [ qw(
+      configure_requires
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.2-from-1.3' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.1-from-1.2' => {
+    # MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'private'             => \&_keep,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # drop unsupported fields
+    ':drop' => [ qw(
+      abstract
+      author
+      provides
+      no_index
+      keywords
+      resources
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.0-from-1.1' => {
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+);
+
+my %cleanup = (
+  '2' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_2,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'dynamic_config'      => \&_keep_or_one,
+    # ADDED MANDATORY
+    'release_status'      => \&_release_status,
+    # PRIOR OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_cleanup_optional_features_2,
+    'provides'            => \&_provides,
+    'resources'           => \&_cleanup_resources_2,
+    # ADDED OPTIONAL
+    'description'         => \&_keep,
+    'prereqs'             => \&_cleanup_prereqs,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+        build_requires
+        configure_requires
+        conflicts
+        distribution_type
+        license_url
+        private
+        recommends
+        requires
+    ) ],
+
+    # other random keys need x_ prefixing
+    ':custom'              => \&_prefix_custom,
+  },
+  '1.4' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_1_4,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_4,
+    # ADDED OPTIONAL
+    'configure_requires'  => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.3' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.2' => {
+    # PRIOR MANDATORY
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'license'             => \&_license_1,
+    'name'                => \&_keep,
+    'generated_by'        => \&_generated_by,
+    # ADDED MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'resources'           => \&_resources_1_2,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.1' => {
+    # CHANGED TO MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'license_url'         => \&_url_or_drop,
+    'private'             => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.0' => {
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    'version'             => \&_keep,
+    # IMPLIED OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep,
+  },
+);
+
+# for a given field in a spec version, what fields will it feed
+# into in the *latest* spec (i.e. v2); meta-spec omitted because
+# we always expect a meta-spec to be generated
+my %fragments_generate = (
+  '2' => {
+    'abstract'            =>   'abstract',
+    'author'              =>   'author',
+    'generated_by'        =>   'generated_by',
+    'license'             =>   'license',
+    'name'                =>   'name',
+    'version'             =>   'version',
+    'dynamic_config'      =>   'dynamic_config',
+    'release_status'      =>   'release_status',
+    'keywords'            =>   'keywords',
+    'no_index'            =>   'no_index',
+    'optional_features'   =>   'optional_features',
+    'provides'            =>   'provides',
+    'resources'           =>   'resources',
+    'description'         =>   'description',
+    'prereqs'             =>   'prereqs',
+  },
+  '1.4' => {
+    'abstract'            => 'abstract',
+    'author'              => 'author',
+    'generated_by'        => 'generated_by',
+    'license'             => 'license',
+    'name'                => 'name',
+    'version'             => 'version',
+    'build_requires'      => 'prereqs',
+    'conflicts'           => 'prereqs',
+    'distribution_type'   => 'distribution_type',
+    'dynamic_config'      => 'dynamic_config',
+    'keywords'            => 'keywords',
+    'no_index'            => 'no_index',
+    'optional_features'   => 'optional_features',
+    'provides'            => 'provides',
+    'recommends'          => 'prereqs',
+    'requires'            => 'prereqs',
+    'resources'           => 'resources',
+    'configure_requires'  => 'prereqs',
+  },
+);
+# this is not quite true but will work well enough
+# as 1.4 is a superset of earlier ones
+$fragments_generate{$_} = $fragments_generate{'1.4'} for qw/1.3 1.2 1.1 1.0/;
+
+#--------------------------------------------------------------------------#
+# Code
+#--------------------------------------------------------------------------#
+
+#pod =method new
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct );
+#pod
+#pod The constructor should be passed a valid metadata structure but invalid
+#pod structures are accepted.  If no meta-spec version is provided, version 1.0 will
+#pod be assumed.
+#pod
+#pod Optionally, you can provide a C<default_version> argument after C<$struct>:
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" );
+#pod
+#pod This is only needed when converting a metadata fragment that does not include a
+#pod C<meta-spec> field.
+#pod
+#pod =cut
+
+sub new {
+  my ($class,$data,%args) = @_;
+
+  # create an attributes hash
+  my $self = {
+    'data'    => $data,
+    'spec'    => _extract_spec_version($data, $args{default_version}),
+  };
+
+  # create the object
+  return bless $self, $class;
+}
+
+sub _extract_spec_version {
+    my ($data, $default) = @_;
+    my $spec = $data->{'meta-spec'};
+
+    # is meta-spec there and valid?
+    return( $default || "1.0" ) unless defined $spec && ref $spec eq 'HASH'; # before meta-spec?
+
+    # does the version key look like a valid version?
+    my $v = $spec->{version};
+    if ( defined $v && $v =~ /^\d+(?:\.\d+)?$/ ) {
+        return $v if defined $v && grep { $v eq $_ } keys %known_specs; # known spec
+        return $v+0 if defined $v && grep { $v == $_ } keys %known_specs; # 2.0 => 2
+    }
+
+    # otherwise, use heuristics: look for 1.x vs 2.0 fields
+    return "2" if exists $data->{prereqs};
+    return "1.4" if exists $data->{configure_requires};
+    return( $default || "1.2" ); # when meta-spec was first defined
+}
+
+#pod =method convert
+#pod
+#pod   my $new_struct = $cmc->convert( version => "2" );
+#pod
+#pod Returns a new hash reference with the metadata converted to a different form.
+#pod C<convert> will die if any conversion/standardization still results in an
+#pod invalid structure.
+#pod
+#pod Valid parameters include:
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod C<version> -- Indicates the desired specification version (e.g. "1.0", "1.1" ... "1.4", "2").
+#pod Defaults to the latest version of the CPAN Meta Spec.
+#pod
+#pod =back
+#pod
+#pod Conversion proceeds through each version in turn.  For example, a version 1.2
+#pod structure might be converted to 1.3 then 1.4 then finally to version 2. The
+#pod conversion process attempts to clean-up simple errors and standardize data.
+#pod For example, if C<author> is given as a scalar, it will converted to an array
+#pod reference containing the item. (Converting a structure to its own version will
+#pod also clean-up and standardize.)
+#pod
+#pod When data are cleaned and standardized, missing or invalid fields will be
+#pod replaced with sensible defaults when possible.  This may be lossy or imprecise.
+#pod For example, some badly structured META.yml files on CPAN have prerequisite
+#pod modules listed as both keys and values:
+#pod
+#pod   requires => { 'Foo::Bar' => 'Bam::Baz' }
+#pod
+#pod These would be split and each converted to a prerequisite with a minimum
+#pod version of zero.
+#pod
+#pod When some mandatory fields are missing or invalid, the conversion will attempt
+#pod to provide a sensible default or will fill them with a value of 'unknown'.  For
+#pod example a missing or unrecognized C<license> field will result in a C<license>
+#pod field of 'unknown'.  Fields that may get an 'unknown' include:
+#pod
+#pod =for :list
+#pod * abstract
+#pod * author
+#pod * license
+#pod
+#pod =cut
+
+sub convert {
+  my ($self, %args) = @_;
+  my $args = { %args };
+
+  my $new_version = $args->{version} || $HIGHEST;
+  my $is_fragment = $args->{is_fragment};
+
+  my ($old_version) = $self->{spec};
+  my $converted = _dclone($self->{data});
+
+  if ( $old_version == $new_version ) {
+    $converted = _convert( $converted, $cleanup{$old_version}, $old_version, $is_fragment );
+    unless ( $args->{is_fragment} ) {
+      my $cmv = CPAN::Meta::Validator->new( $converted );
+      unless ( $cmv->is_valid ) {
+        my $errs = join("\n", $cmv->errors);
+        die "Failed to clean-up $old_version metadata. Errors:\n$errs\n";
+      }
+    }
+    return $converted;
+  }
+  elsif ( $old_version > $new_version )  {
+    my @vers = sort { $b <=> $a } keys %known_specs;
+    for my $i ( 0 .. $#vers-1 ) {
+      next if $vers[$i] > $old_version;
+      last if $vers[$i+1] < $new_version;
+      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
+      $converted = _convert( $converted, $down_convert{$spec_string}, $vers[$i+1], $is_fragment );
+      unless ( $args->{is_fragment} ) {
+        my $cmv = CPAN::Meta::Validator->new( $converted );
+        unless ( $cmv->is_valid ) {
+          my $errs = join("\n", $cmv->errors);
+          die "Failed to downconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
+        }
+      }
+    }
+    return $converted;
+  }
+  else {
+    my @vers = sort { $a <=> $b } keys %known_specs;
+    for my $i ( 0 .. $#vers-1 ) {
+      next if $vers[$i] < $old_version;
+      last if $vers[$i+1] > $new_version;
+      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
+      $converted = _convert( $converted, $up_convert{$spec_string}, $vers[$i+1], $is_fragment );
+      unless ( $args->{is_fragment} ) {
+        my $cmv = CPAN::Meta::Validator->new( $converted );
+        unless ( $cmv->is_valid ) {
+          my $errs = join("\n", $cmv->errors);
+          die "Failed to upconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
+        }
+      }
+    }
+    return $converted;
+  }
+}
+
+#pod =method upgrade_fragment
+#pod
+#pod   my $new_struct = $cmc->upgrade_fragment;
+#pod
+#pod Returns a new hash reference with the metadata converted to the latest version
+#pod of the CPAN Meta Spec.  No validation is done on the result -- you must
+#pod validate after merging fragments into a complete metadata document.
+#pod
+#pod Available since version 2.141170.
+#pod
+#pod =cut
+
+sub upgrade_fragment {
+  my ($self) = @_;
+  my ($old_version) = $self->{spec};
+  my %expected =
+    map {; $_ => 1 }
+    grep { defined }
+    map { $fragments_generate{$old_version}{$_} }
+    keys %{ $self->{data} };
+  my $converted = $self->convert( version => $HIGHEST, is_fragment => 1 );
+  for my $key ( keys %$converted ) {
+    next if $key =~ /^x_/i || $key eq 'meta-spec';
+    delete $converted->{$key} unless $expected{$key};
+  }
+  return $converted;
+}
+
+1;
+
+# ABSTRACT: Convert CPAN distribution metadata structures
+
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Validator;
+
+our $VERSION = '2.150010';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   my $struct = decode_json_file('META.json');
+#pod
+#pod   my $cmv = CPAN::Meta::Validator->new( $struct );
+#pod
+#pod   unless ( $cmv->is_valid ) {
+#pod     my $msg = "Invalid META structure.  Errors found:\n";
+#pod     $msg .= join( "\n", $cmv->errors );
+#pod     die $msg;
+#pod   }
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod This module validates a CPAN Meta structure against the version of the
+#pod the specification claimed in the C<meta-spec> field of the structure.
+#pod
+#pod =cut
+
+#--------------------------------------------------------------------------#
+# This code copied and adapted from Test::CPAN::Meta
+# by Barbie, <barbie@cpan.org> for Miss Barbell Productions,
+# L<http://www.missbarbell.co.uk>
+#--------------------------------------------------------------------------#
+
+#--------------------------------------------------------------------------#
+# Specification Definitions
+#--------------------------------------------------------------------------#
+
+my %known_specs = (
+    '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
+    '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html',
+    '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html',
+    '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html',
+    '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html'
+);
+my %known_urls = map {$known_specs{$_} => $_} keys %known_specs;
+
+my $module_map1 = { 'map' => { ':key' => { name => \&module, value => \&exversion } } };
+
+my $module_map2 = { 'map' => { ':key' => { name => \&module, value => \&version   } } };
+
+my $no_index_2 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     directory  => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                    ':key'      => { name => \&custom_2, value => \&anything },
+    }
+};
+
+my $no_index_1_3 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     directory  => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                     ':key'     => { name => \&string, value => \&anything },
+    }
+};
+
+my $no_index_1_2 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     dir        => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                     ':key'     => { name => \&string, value => \&anything },
+    }
+};
+
+my $no_index_1_1 = {
+    'map'       => { ':key'     => { name => \&string, list => { value => \&string } },
+    }
+};
+
+my $prereq_map = {
+  map => {
+    ':key' => {
+      name => \&phase,
+      'map' => {
+        ':key'  => {
+          name => \&relation,
+          %$module_map1,
+        },
+      },
+    }
+  },
+};
+
+my %definitions = (
+  '2' => {
+    # REQUIRED
+    'abstract'            => { mandatory => 1, value => \&string  },
+    'author'              => { mandatory => 1, list => { value => \&string } },
+    'dynamic_config'      => { mandatory => 1, value => \&boolean },
+    'generated_by'        => { mandatory => 1, value => \&string  },
+    'license'             => { mandatory => 1, list => { value => \&license } },
+    'meta-spec' => {
+      mandatory => 1,
+      'map' => {
+        version => { mandatory => 1, value => \&version},
+        url     => { value => \&url },
+        ':key' => { name => \&custom_2, value => \&anything },
+      }
+    },
+    'name'                => { mandatory => 1, value => \&string  },
+    'release_status'      => { mandatory => 1, value => \&release_status },
+    'version'             => { mandatory => 1, value => \&version },
+
+    # OPTIONAL
+    'description' => { value => \&string },
+    'keywords'    => { list => { value => \&string } },
+    'no_index'    => $no_index_2,
+    'optional_features'   => {
+      'map'       => {
+        ':key'  => {
+          name => \&string,
+          'map'   => {
+            description        => { value => \&string },
+            prereqs => $prereq_map,
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        }
+      }
+    },
+    'prereqs' => $prereq_map,
+    'provides'    => {
+      'map'       => {
+        ':key' => {
+          name  => \&module,
+          'map' => {
+            file    => { mandatory => 1, value => \&file },
+            version => { value => \&version },
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        }
+      }
+    },
+    'resources'   => {
+      'map'       => {
+        license    => { list => { value => \&url } },
+        homepage   => { value => \&url },
+        bugtracker => {
+          'map' => {
+            web => { value => \&url },
+            mailto => { value => \&string},
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        },
+        repository => {
+          'map' => {
+            web => { value => \&url },
+            url => { value => \&url },
+            type => { value => \&string },
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        },
+        ':key'     => { value => \&string, name => \&custom_2 },
+      }
+    },
+
+    # CUSTOM -- additional user defined key/value pairs
+    # note we can only validate the key name, as the structure is user defined
+    ':key'        => { name => \&custom_2, value => \&anything },
+  },
+
+'1.4' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'abstract'            => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list  => { value => \&string } },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'configure_requires'  => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+  'no_index'    => $no_index_1_3,
+  'private'     => $no_index_1_3,
+
+  'keywords'    => { list => { value => \&string } },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+'1.3' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'abstract'            => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list  => { value => \&string } },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+
+  'no_index'    => $no_index_1_3,
+  'private'     => $no_index_1_3,
+
+  'keywords'    => { list => { value => \&string } },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# v1.2 is misleading, it seems to assume that a number of fields where created
+# within v1.1, when they were created within v1.2. This may have been an
+# original mistake, and that a v1.1 was retro fitted into the timeline, when
+# v1.2 was originally slated as v1.1. But I could be wrong ;)
+'1.2' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list => { value => \&string } },
+  'abstract'            => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'keywords'            => { list => { value => \&string } },
+
+  'private'             => $no_index_1_2,
+  '$no_index'           => $no_index_1_2,
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# note that the 1.1 spec only specifies 'version' as mandatory
+'1.1' => {
+  'name'                => { value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { value => \&license },
+  'generated_by'        => { value => \&string  },
+
+  'license_uri'         => { value => \&url },
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'private'             => $no_index_1_1,
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# note that the 1.0 spec doesn't specify optional or mandatory fields
+# but we will treat version as mandatory since otherwise META 1.0 is
+# completely arbitrary and pointless
+'1.0' => {
+  'name'                => { value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { value => \&license },
+  'generated_by'        => { value => \&string  },
+
+  'license_uri'         => { value => \&url },
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+);
+
+#--------------------------------------------------------------------------#
+# Code
+#--------------------------------------------------------------------------#
+
+#pod =method new
+#pod
+#pod   my $cmv = CPAN::Meta::Validator->new( $struct )
+#pod
+#pod The constructor must be passed a metadata structure.
+#pod
+#pod =cut
+
+sub new {
+  my ($class,$data) = @_;
+
+  # create an attributes hash
+  my $self = {
+    'data'    => $data,
+    'spec'    => eval { $data->{'meta-spec'}{'version'} } || "1.0",
+    'errors'  => undef,
+  };
+
+  # create the object
+  return bless $self, $class;
+}
+
+#pod =method is_valid
+#pod
+#pod   if ( $cmv->is_valid ) {
+#pod     ...
+#pod   }
+#pod
+#pod Returns a boolean value indicating whether the metadata provided
+#pod is valid.
+#pod
+#pod =cut
+
+sub is_valid {
+    my $self = shift;
+    my $data = $self->{data};
+    my $spec_version = $self->{spec};
+    $self->check_map($definitions{$spec_version},$data);
+    return ! $self->errors;
+}
+
+#pod =method errors
+#pod
+#pod   warn( join "\n", $cmv->errors );
+#pod
+#pod Returns a list of errors seen during validation.
+#pod
+#pod =cut
+
+sub errors {
+    my $self = shift;
+    return ()   unless(defined $self->{errors});
+    return @{$self->{errors}};
+}
+
+#pod =begin :internals
+#pod
+#pod =head2 Check Methods
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod check_map($spec,$data)
+#pod
+#pod Checks whether a map (or hash) part of the data structure conforms to the
+#pod appropriate specification definition.
+#pod
+#pod =item *
+#pod
+#pod check_list($spec,$data)
+#pod
+#pod Checks whether a list (or array) part of the data structure conforms to
+#pod the appropriate specification definition.
+#pod
+#pod =item *
+#pod
+#pod =back
+#pod
+#pod =cut
+
+my $spec_error = "Missing validation action in specification. "
+  . "Must be one of 'map', 'list', or 'value'";
+
+sub check_map {
+    my ($self,$spec,$data) = @_;
+
+    if(ref($spec) ne 'HASH') {
+        $self->_error( "Unknown META specification, cannot validate." );
+        return;
+    }
+
+    if(ref($data) ne 'HASH') {
+        $self->_error( "Expected a map structure from string or file." );
+        return;
+    }
+
+    for my $key (keys %$spec) {
+        next    unless($spec->{$key}->{mandatory});
+        next    if(defined $data->{$key});
+        push @{$self->{stack}}, $key;
+        $self->_error( "Missing mandatory field, '$key'" );
+        pop @{$self->{stack}};
+    }
+
+    for my $key (keys %$data) {
+        push @{$self->{stack}}, $key;
+        if($spec->{$key}) {
+            if($spec->{$key}{value}) {
+                $spec->{$key}{value}->($self,$key,$data->{$key});
+            } elsif($spec->{$key}{'map'}) {
+                $self->check_map($spec->{$key}{'map'},$data->{$key});
+            } elsif($spec->{$key}{'list'}) {
+                $self->check_list($spec->{$key}{'list'},$data->{$key});
+            } else {
+                $self->_error( "$spec_error for '$key'" );
+            }
+
+        } elsif ($spec->{':key'}) {
+            $spec->{':key'}{name}->($self,$key,$key);
+            if($spec->{':key'}{value}) {
+                $spec->{':key'}{value}->($self,$key,$data->{$key});
+            } elsif($spec->{':key'}{'map'}) {
+                $self->check_map($spec->{':key'}{'map'},$data->{$key});
+            } elsif($spec->{':key'}{'list'}) {
+                $self->check_list($spec->{':key'}{'list'},$data->{$key});
+            } else {
+                $self->_error( "$spec_error for ':key'" );
+            }
+
+
+        } else {
+            $self->_error( "Unknown key, '$key', found in map structure" );
+        }
+        pop @{$self->{stack}};
+    }
+}
+
+sub check_list {
+    my ($self,$spec,$data) = @_;
+
+    if(ref($data) ne 'ARRAY') {
+        $self->_error( "Expected a list structure" );
+        return;
+    }
+
+    if(defined $spec->{mandatory}) {
+        if(!defined $data->[0]) {
+            $self->_error( "Missing entries from mandatory list" );
+        }
+    }
+
+    for my $value (@$data) {
+        push @{$self->{stack}}, $value || "<undef>";
+        if(defined $spec->{value}) {
+            $spec->{value}->($self,'list',$value);
+        } elsif(defined $spec->{'map'}) {
+            $self->check_map($spec->{'map'},$value);
+        } elsif(defined $spec->{'list'}) {
+            $self->check_list($spec->{'list'},$value);
+        } elsif ($spec->{':key'}) {
+            $self->check_map($spec,$value);
+        } else {
+          $self->_error( "$spec_error associated with '$self->{stack}[-2]'" );
+        }
+        pop @{$self->{stack}};
+    }
+}
+
+#pod =head2 Validator Methods
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod header($self,$key,$value)
+#pod
+#pod Validates that the header is valid.
+#pod
+#pod Note: No longer used as we now read the data structure, not the file.
+#pod
+#pod =item *
+#pod
+#pod url($self,$key,$value)
+#pod
+#pod Validates that a given value is in an acceptable URL format
+#pod
+#pod =item *
+#pod
+#pod urlspec($self,$key,$value)
+#pod
+#pod Validates that the URL to a META specification is a known one.
+#pod
+#pod =item *
+#pod
+#pod string_or_undef($self,$key,$value)
+#pod
+#pod Validates that the value is either a string or an undef value. Bit of a
+#pod catchall function for parts of the data structure that are completely user
+#pod defined.
+#pod
+#pod =item *
+#pod
+#pod string($self,$key,$value)
+#pod
+#pod Validates that a string exists for the given key.
+#pod
+#pod =item *
+#pod
+#pod file($self,$key,$value)
+#pod
+#pod Validate that a file is passed for the given key. This may be made more
+#pod thorough in the future. For now it acts like \&string.
+#pod
+#pod =item *
+#pod
+#pod exversion($self,$key,$value)
+#pod
+#pod Validates a list of versions, e.g. '<= 5, >=2, ==3, !=4, >1, <6, 0'.
+#pod
+#pod =item *
+#pod
+#pod version($self,$key,$value)
+#pod
+#pod Validates a single version string. Versions of the type '5.8.8' and '0.00_00'
+#pod are both valid. A leading 'v' like 'v1.2.3' is also valid.
+#pod
+#pod =item *
+#pod
+#pod boolean($self,$key,$value)
+#pod
+#pod Validates for a boolean value: a defined value that is either "1" or "0" or
+#pod stringifies to those values.
+#pod
+#pod =item *
+#pod
+#pod license($self,$key,$value)
+#pod
+#pod Validates that a value is given for the license. Returns 1 if an known license
+#pod type, or 2 if a value is given but the license type is not a recommended one.
+#pod
+#pod =item *
+#pod
+#pod custom_1($self,$key,$value)
+#pod
+#pod Validates that the given key is in CamelCase, to indicate a user defined
+#pod keyword and only has characters in the class [-_a-zA-Z].  In version 1.X
+#pod of the spec, this was only explicitly stated for 'resources'.
+#pod
+#pod =item *
+#pod
+#pod custom_2($self,$key,$value)
+#pod
+#pod Validates that the given key begins with 'x_' or 'X_', to indicate a user
+#pod defined keyword and only has characters in the class [-_a-zA-Z]
+#pod
+#pod =item *
+#pod
+#pod identifier($self,$key,$value)
+#pod
+#pod Validates that key is in an acceptable format for the META specification,
+#pod for an identifier, i.e. any that matches the regular expression
+#pod qr/[a-z][a-z_]/i.
+#pod
+#pod =item *
+#pod
+#pod module($self,$key,$value)
+#pod
+#pod Validates that a given key is in an acceptable module name format, e.g.
+#pod 'Test::CPAN::Meta::Version'.
+#pod
+#pod =back
+#pod
+#pod =end :internals
+#pod
+#pod =cut
+
+sub header {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value && $value =~ /^--- #YAML:1.0/);
+    }
+    $self->_error( "file does not have a valid YAML header." );
+    return 0;
+}
+
+sub release_status {
+  my ($self,$key,$value) = @_;
+  if(defined $value) {
+    my $version = $self->{data}{version} || '';
+    if ( $version =~ /_/ ) {
+      return 1 if ( $value =~ /\A(?:testing|unstable)\z/ );
+      $self->_error( "'$value' for '$key' is invalid for version '$version'" );
+    }
+    else {
+      return 1 if ( $value =~ /\A(?:stable|testing|unstable)\z/ );
+      $self->_error( "'$value' for '$key' is invalid" );
+    }
+  }
+  else {
+    $self->_error( "'$key' is not defined" );
+  }
+  return 0;
+}
+
+# _uri_split taken from URI::Split by Gisle Aas, Copyright 2003
+sub _uri_split {
+     return $_[0] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,;
+}
+
+sub url {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+      my ($scheme, $auth, $path, $query, $frag) = _uri_split($value);
+      unless ( defined $scheme && length $scheme ) {
+        $self->_error( "'$value' for '$key' does not have a URL scheme" );
+        return 0;
+      }
+      unless ( defined $auth && length $auth ) {
+        $self->_error( "'$value' for '$key' does not have a URL authority" );
+        return 0;
+      }
+      return 1;
+    }
+    $value ||= '';
+    $self->_error( "'$value' for '$key' is not a valid URL." );
+    return 0;
+}
+
+sub urlspec {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value && $known_specs{$self->{spec}} eq $value);
+        if($value && $known_urls{$value}) {
+            $self->_error( 'META specification URL does not match version' );
+            return 0;
+        }
+    }
+    $self->_error( 'Unknown META specification' );
+    return 0;
+}
+
+sub anything { return 1 }
+
+sub string {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value || $value =~ /^0$/);
+    }
+    $self->_error( "value is an undefined string" );
+    return 0;
+}
+
+sub string_or_undef {
+    my ($self,$key,$value) = @_;
+    return 1    unless(defined $value);
+    return 1    if($value || $value =~ /^0$/);
+    $self->_error( "No string defined for '$key'" );
+    return 0;
+}
+
+sub file {
+    my ($self,$key,$value) = @_;
+    return 1    if(defined $value);
+    $self->_error( "No file defined for '$key'" );
+    return 0;
+}
+
+sub exversion {
+    my ($self,$key,$value) = @_;
+    if(defined $value && ($value || $value =~ /0/)) {
+        my $pass = 1;
+        for(split(",",$value)) { $self->version($key,$_) or ($pass = 0); }
+        return $pass;
+    }
+    $value = '<undef>'  unless(defined $value);
+    $self->_error( "'$value' for '$key' is not a valid version." );
+    return 0;
+}
+
+sub version {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 0    unless($value || $value =~ /0/);
+        return 1    if($value =~ /^\s*((<|<=|>=|>|!=|==)\s*)?v?\d+((\.\d+((_|\.)\d+)?)?)/);
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "'$value' for '$key' is not a valid version." );
+    return 0;
+}
+
+sub boolean {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value =~ /^(0|1)$/);
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "'$value' for '$key' is not a boolean value." );
+    return 0;
+}
+
+my %v1_licenses = (
+    'perl'         => 'http://dev.perl.org/licenses/',
+    'gpl'          => 'http://www.opensource.org/licenses/gpl-license.php',
+    'apache'       => 'http://apache.org/licenses/LICENSE-2.0',
+    'artistic'     => 'http://opensource.org/licenses/artistic-license.php',
+    'artistic_2'   => 'http://opensource.org/licenses/artistic-license-2.0.php',
+    'lgpl'         => 'http://www.opensource.org/licenses/lgpl-license.php',
+    'bsd'          => 'http://www.opensource.org/licenses/bsd-license.php',
+    'gpl'          => 'http://www.opensource.org/licenses/gpl-license.php',
+    'mit'          => 'http://opensource.org/licenses/mit-license.php',
+    'mozilla'      => 'http://opensource.org/licenses/mozilla1.1.php',
+    'open_source'  => undef,
+    'unrestricted' => undef,
+    'restrictive'  => undef,
+    'unknown'      => undef,
+);
+
+my %v2_licenses = map { $_ => 1 } qw(
+  agpl_3
+  apache_1_1
+  apache_2_0
+  artistic_1
+  artistic_2
+  bsd
+  freebsd
+  gfdl_1_2
+  gfdl_1_3
+  gpl_1
+  gpl_2
+  gpl_3
+  lgpl_2_1
+  lgpl_3_0
+  mit
+  mozilla_1_0
+  mozilla_1_1
+  openssl
+  perl_5
+  qpl_1_0
+  ssleay
+  sun
+  zlib
+  open_source
+  restricted
+  unrestricted
+  unknown
+);
+
+sub license {
+    my ($self,$key,$value) = @_;
+    my $licenses = $self->{spec} < 2 ? \%v1_licenses : \%v2_licenses;
+    if(defined $value) {
+        return 1    if($value && exists $licenses->{$value});
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "License '$value' is invalid" );
+    return 0;
+}
+
+sub custom_1 {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        # a valid user defined key should be alphabetic
+        # and contain at least one capital case letter.
+        return 1    if($key && $key =~ /^[_a-z]+$/i && $key =~ /[A-Z]/);
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Custom resource '$key' must be in CamelCase." );
+    return 0;
+}
+
+sub custom_2 {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^x_/i);  # user defined
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Custom key '$key' must begin with 'x_' or 'X_'." );
+    return 0;
+}
+
+sub identifier {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^([a-z][_a-z]+)$/i);    # spec 2.0 defined
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal identifier." );
+    return 0;
+}
+
+sub module {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^[A-Za-z0-9_]+(::[A-Za-z0-9_]+)*$/);
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal module name." );
+    return 0;
+}
+
+my @valid_phases = qw/ configure build test runtime develop /;
+sub phase {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1 if( length $key && grep { $key eq $_ } @valid_phases );
+        return 1 if $key =~ /x_/i;
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal phase." );
+    return 0;
+}
+
+my @valid_relations = qw/ requires recommends suggests conflicts /;
+sub relation {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1 if( length $key && grep { $key eq $_ } @valid_relations );
+        return 1 if $key =~ /x_/i;
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal prereq relationship." );
+    return 0;
+}
+
+sub _error {
+    my $self = shift;
+    my $mess = shift;
+
+    $mess .= ' ('.join(' -> ',@{$self->{stack}}).')'  if($self->{stack});
+    $mess .= " [Validation: $self->{spec}]";
+
+    push @{$self->{errors}}, $mess;
+}
+
+1;
+
+# ABSTRACT: validate CPAN distribution metadata structures
+
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Prereqs;
+
+our $VERSION = '2.150010';
+
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Prereqs object represents the prerequisites for a CPAN
+#pod distribution or one of its optional features.  Each set of prereqs is
+#pod organized by phase and type, as described in L<CPAN::Meta::Prereqs>.
+#pod
+#pod =cut
+
+use Carp qw(confess);
+use Scalar::Util qw(blessed);
+use CPAN::Meta::Requirements 2.121;
+
+#pod =method new
+#pod
+#pod   my $prereq = CPAN::Meta::Prereqs->new( \%prereq_spec );
+#pod
+#pod This method returns a new set of Prereqs.  The input should look like the
+#pod contents of the C<prereqs> field described in L<CPAN::Meta::Spec>, meaning
+#pod something more or less like this:
+#pod
+#pod   my $prereq = CPAN::Meta::Prereqs->new({
+#pod     runtime => {
+#pod       requires => {
+#pod         'Some::Module' => '1.234',
+#pod         ...,
+#pod       },
+#pod       ...,
+#pod     },
+#pod     ...,
+#pod   });
+#pod
+#pod You can also construct an empty set of prereqs with:
+#pod
+#pod   my $prereqs = CPAN::Meta::Prereqs->new;
+#pod
+#pod This empty set of prereqs is useful for accumulating new prereqs before finally
+#pod dumping the whole set into a structure or string.
+#pod
+#pod =cut
+
+# note we also accept anything matching /\Ax_/i
+sub __legal_phases { qw(configure build test runtime develop)   }
+sub __legal_types  { qw(requires recommends suggests conflicts) }
+
+# expect a prereq spec from META.json -- rjbs, 2010-04-11
+sub new {
+  my ($class, $prereq_spec) = @_;
+  $prereq_spec ||= {};
+
+  my %is_legal_phase = map {; $_ => 1 } $class->__legal_phases;
+  my %is_legal_type  = map {; $_ => 1 } $class->__legal_types;
+
+  my %guts;
+  PHASE: for my $phase (keys %$prereq_spec) {
+    next PHASE unless $phase =~ /\Ax_/i or $is_legal_phase{$phase};
+
+    my $phase_spec = $prereq_spec->{ $phase };
+    next PHASE unless keys %$phase_spec;
+
+    TYPE: for my $type (keys %$phase_spec) {
+      next TYPE unless $type =~ /\Ax_/i or $is_legal_type{$type};
+
+      my $spec = $phase_spec->{ $type };
+
+      next TYPE unless keys %$spec;
+
+      $guts{prereqs}{$phase}{$type} = CPAN::Meta::Requirements->from_string_hash(
+        $spec
+      );
+    }
+  }
+
+  return bless \%guts => $class;
+}
+
+#pod =method requirements_for
+#pod
+#pod   my $requirements = $prereqs->requirements_for( $phase, $type );
+#pod
+#pod This method returns a L<CPAN::Meta::Requirements> object for the given
+#pod phase/type combination.  If no prerequisites are registered for that
+#pod combination, a new CPAN::Meta::Requirements object will be returned, and it may
+#pod be added to as needed.
+#pod
+#pod If C<$phase> or C<$type> are undefined or otherwise invalid, an exception will
+#pod be raised.
+#pod
+#pod =cut
+
+sub requirements_for {
+  my ($self, $phase, $type) = @_;
+
+  confess "requirements_for called without phase" unless defined $phase;
+  confess "requirements_for called without type"  unless defined $type;
+
+  unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) {
+    confess "requested requirements for unknown phase: $phase";
+  }
+
+  unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) {
+    confess "requested requirements for unknown type: $type";
+  }
+
+  my $req = ($self->{prereqs}{$phase}{$type} ||= CPAN::Meta::Requirements->new);
+
+  $req->finalize if $self->is_finalized;
+
+  return $req;
+}
+
+#pod =method phases
+#pod
+#pod   my @phases = $prereqs->phases;
+#pod
+#pod This method returns the list of all phases currently populated in the prereqs
+#pod object, suitable for iterating.
+#pod
+#pod =cut
+
+sub phases {
+  my ($self) = @_;
+
+  my %is_legal_phase = map {; $_ => 1 } $self->__legal_phases;
+  grep { /\Ax_/i or $is_legal_phase{$_} } keys %{ $self->{prereqs} };
+}
+
+#pod =method types_in
+#pod
+#pod   my @runtime_types = $prereqs->types_in('runtime');
+#pod
+#pod This method returns the list of all types currently populated in the prereqs
+#pod object for the provided phase, suitable for iterating.
+#pod
+#pod =cut
+
+sub types_in {
+  my ($self, $phase) = @_;
+
+  return unless $phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases;
+
+  my %is_legal_type  = map {; $_ => 1 } $self->__legal_types;
+  grep { /\Ax_/i or $is_legal_type{$_} } keys %{ $self->{prereqs}{$phase} };
+}
+
+#pod =method with_merged_prereqs
+#pod
+#pod   my $new_prereqs = $prereqs->with_merged_prereqs( $other_prereqs );
+#pod
+#pod   my $new_prereqs = $prereqs->with_merged_prereqs( \@other_prereqs );
+#pod
+#pod This method returns a new CPAN::Meta::Prereqs objects in which all the
+#pod other prerequisites given are merged into the current set.  This is primarily
+#pod provided for combining a distribution's core prereqs with the prereqs of one of
+#pod its optional features.
+#pod
+#pod The new prereqs object has no ties to the originals, and altering it further
+#pod will not alter them.
+#pod
+#pod =cut
+
+sub with_merged_prereqs {
+  my ($self, $other) = @_;
+
+  my @other = blessed($other) ? $other : @$other;
+
+  my @prereq_objs = ($self, @other);
+
+  my %new_arg;
+
+  for my $phase (__uniq(map { $_->phases } @prereq_objs)) {
+    for my $type (__uniq(map { $_->types_in($phase) } @prereq_objs)) {
+
+      my $req = CPAN::Meta::Requirements->new;
+
+      for my $prereq (@prereq_objs) {
+        my $this_req = $prereq->requirements_for($phase, $type);
+        next unless $this_req->required_modules;
+
+        $req->add_requirements($this_req);
+      }
+
+      next unless $req->required_modules;
+
+      $new_arg{ $phase }{ $type } = $req->as_string_hash;
+    }
+  }
+
+  return (ref $self)->new(\%new_arg);
+}
+
+#pod =method merged_requirements
+#pod
+#pod     my $new_reqs = $prereqs->merged_requirements( \@phases, \@types );
+#pod     my $new_reqs = $prereqs->merged_requirements( \@phases );
+#pod     my $new_reqs = $prereqs->merged_requirements();
+#pod
+#pod This method joins together all requirements across a number of phases
+#pod and types into a new L<CPAN::Meta::Requirements> object.  If arguments
+#pod are omitted, it defaults to "runtime", "build" and "test" for phases
+#pod and "requires" and "recommends" for types.
+#pod
+#pod =cut
+
+sub merged_requirements {
+  my ($self, $phases, $types) = @_;
+  $phases = [qw/runtime build test/] unless defined $phases;
+  $types = [qw/requires recommends/] unless defined $types;
+
+  confess "merged_requirements phases argument must be an arrayref"
+    unless ref $phases eq 'ARRAY';
+  confess "merged_requirements types argument must be an arrayref"
+    unless ref $types eq 'ARRAY';
+
+  my $req = CPAN::Meta::Requirements->new;
+
+  for my $phase ( @$phases ) {
+    unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) {
+        confess "requested requirements for unknown phase: $phase";
+    }
+    for my $type ( @$types ) {
+      unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) {
+          confess "requested requirements for unknown type: $type";
+      }
+      $req->add_requirements( $self->requirements_for($phase, $type) );
+    }
+  }
+
+  $req->finalize if $self->is_finalized;
+
+  return $req;
+}
+
+
+#pod =method as_string_hash
+#pod
+#pod This method returns a hashref containing structures suitable for dumping into a
+#pod distmeta data structure.  It is made up of hashes and strings, only; there will
+#pod be no Prereqs, CPAN::Meta::Requirements, or C<version> objects inside it.
+#pod
+#pod =cut
+
+sub as_string_hash {
+  my ($self) = @_;
+
+  my %hash;
+
+  for my $phase ($self->phases) {
+    for my $type ($self->types_in($phase)) {
+      my $req = $self->requirements_for($phase, $type);
+      next unless $req->required_modules;
+
+      $hash{ $phase }{ $type } = $req->as_string_hash;
+    }
+  }
+
+  return \%hash;
+}
+
+#pod =method is_finalized
+#pod
+#pod This method returns true if the set of prereqs has been marked "finalized," and
+#pod cannot be altered.
+#pod
+#pod =cut
+
+sub is_finalized { $_[0]{finalized} }
+
+#pod =method finalize
+#pod
+#pod Calling C<finalize> on a Prereqs object will close it for further modification.
+#pod Attempting to make any changes that would actually alter the prereqs will
+#pod result in an exception being thrown.
+#pod
+#pod =cut
+
+sub finalize {
+  my ($self) = @_;
+
+  $self->{finalized} = 1;
+
+  for my $phase (keys %{ $self->{prereqs} }) {
+    $_->finalize for values %{ $self->{prereqs}{$phase} };
+  }
+}
+
+#pod =method clone
+#pod
+#pod   my $cloned_prereqs = $prereqs->clone;
+#pod
+#pod This method returns a Prereqs object that is identical to the original object,
+#pod but can be altered without affecting the original object.  Finalization does
+#pod not survive cloning, meaning that you may clone a finalized set of prereqs and
+#pod then modify the clone.
+#pod
+#pod =cut
+
+sub clone {
+  my ($self) = @_;
+
+  my $clone = (ref $self)->new( $self->as_string_hash );
+}
+
+sub __uniq {
+  my (%s, $u);
+  grep { defined($_) ? !$s{$_}++ : !$u++ } @_;
+}
+
+1;
+
+# ABSTRACT: a set of distribution prerequisites by phase and type
+
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
+use 5.006; # keep at v5.6 for CPAN.pm
+use strict;
+use warnings;
+package CPAN::Meta::Requirements;
+# ABSTRACT: a set of version requirements for a CPAN dist
+
+our $VERSION = '2.140';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   use CPAN::Meta::Requirements;
+#pod
+#pod   my $build_requires = CPAN::Meta::Requirements->new;
+#pod
+#pod   $build_requires->add_minimum('Library::Foo' => 1.208);
+#pod
+#pod   $build_requires->add_minimum('Library::Foo' => 2.602);
+#pod
+#pod   $build_requires->add_minimum('Module::Bar'  => 'v1.2.3');
+#pod
+#pod   $METAyml->{build_requires} = $build_requires->as_string_hash;
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Requirements object models a set of version constraints like
+#pod those specified in the F<META.yml> or F<META.json> files in CPAN distributions,
+#pod and as defined by L<CPAN::Meta::Spec>;
+#pod It can be built up by adding more and more constraints, and it will reduce them
+#pod to the simplest representation.
+#pod
+#pod Logically impossible constraints will be identified immediately by thrown
+#pod exceptions.
+#pod
+#pod =cut
+
+use Carp ();
+
+# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
+# before 5.10, we fall back to the EUMM bundled compatibility version module if
+# that's the only thing available.  This shouldn't ever happen in a normal CPAN
+# install of CPAN::Meta::Requirements, as version.pm will be picked up from
+# prereqs and be available at runtime.
+
+BEGIN {
+  eval "use version ()"; ## no critic
+  if ( my $err = $@ ) {
+    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
+  }
+}
+
+# Perl 5.10.0 didn't have "is_qv" in version.pm
+*_is_qv = version->can('is_qv') ? sub { $_[0]->is_qv } : sub { exists $_[0]->{qv} };
+
+# construct once, reuse many times
+my $V0 = version->new(0);
+
+#pod =method new
+#pod
+#pod   my $req = CPAN::Meta::Requirements->new;
+#pod
+#pod This returns a new CPAN::Meta::Requirements object.  It takes an optional
+#pod hash reference argument.  Currently, only one key is supported:
+#pod
+#pod =for :list
+#pod * C<bad_version_hook> -- if provided, when a version cannot be parsed into
+#pod   a version object, this code reference will be called with the invalid
+#pod   version string as first argument, and the module name as second
+#pod   argument.  It must return a valid version object.
+#pod
+#pod All other keys are ignored.
+#pod
+#pod =cut
+
+my @valid_options = qw( bad_version_hook );
+
+sub new {
+  my ($class, $options) = @_;
+  $options ||= {};
+  Carp::croak "Argument to $class\->new() must be a hash reference"
+    unless ref $options eq 'HASH';
+  my %self = map {; $_ => $options->{$_}} @valid_options;
+
+  return bless \%self => $class;
+}
+
+# from version::vpp
+sub _find_magic_vstring {
+  my $value = shift;
+  my $tvalue = '';
+  require B;
+  my $sv = B::svref_2object(\$value);
+  my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
+  while ( $magic ) {
+    if ( $magic->TYPE eq 'V' ) {
+      $tvalue = $magic->PTR;
+      $tvalue =~ s/^v?(.+)$/v$1/;
+      last;
+    }
+    else {
+      $magic = $magic->MOREMAGIC;
+    }
+  }
+  return $tvalue;
+}
+
+# safe if given an unblessed reference
+sub _isa_version {
+  UNIVERSAL::isa( $_[0], 'UNIVERSAL' ) && $_[0]->isa('version')
+}
+
+sub _version_object {
+  my ($self, $module, $version) = @_;
+
+  my ($vobj, $err);
+
+  if (not defined $version or (!ref($version) && $version eq '0')) {
+    return $V0;
+  }
+  elsif ( ref($version) eq 'version' || ( ref($version) && _isa_version($version) ) ) {
+    $vobj = $version;
+  }
+  else {
+    # hack around version::vpp not handling <3 character vstring literals
+    if ( $INC{'version/vpp.pm'} || $INC{'ExtUtils/MakeMaker/version/vpp.pm'} ) {
+      my $magic = _find_magic_vstring( $version );
+      $version = $magic if length $magic;
+    }
+    # pad to 3 characters if before 5.8.1 and appears to be a v-string
+    if ( $] < 5.008001 && $version !~ /\A[0-9]/ && substr($version,0,1) ne 'v' && length($version) < 3 ) {
+      $version .= "\0" x (3 - length($version));
+    }
+    eval {
+      local $SIG{__WARN__} = sub { die "Invalid version: $_[0]" };
+      # avoid specific segfault on some older version.pm versions
+      die "Invalid version: $version" if $version eq 'version';
+      $vobj = version->new($version);
+    };
+    if ( my $err = $@ ) {
+      my $hook = $self->{bad_version_hook};
+      $vobj = eval { $hook->($version, $module) }
+        if ref $hook eq 'CODE';
+      unless (eval { $vobj->isa("version") }) {
+        $err =~ s{ at .* line \d+.*$}{};
+        die "Can't convert '$version': $err";
+      }
+    }
+  }
+
+  # ensure no leading '.'
+  if ( $vobj =~ m{\A\.} ) {
+    $vobj = version->new("0$vobj");
+  }
+
+  # ensure normal v-string form
+  if ( _is_qv($vobj) ) {
+    $vobj = version->new($vobj->normal);
+  }
+
+  return $vobj;
+}
+
+#pod =method add_minimum
+#pod
+#pod   $req->add_minimum( $module => $version );
+#pod
+#pod This adds a new minimum version requirement.  If the new requirement is
+#pod redundant to the existing specification, this has no effect.
+#pod
+#pod Minimum requirements are inclusive.  C<$version> is required, along with any
+#pod greater version number.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method add_maximum
+#pod
+#pod   $req->add_maximum( $module => $version );
+#pod
+#pod This adds a new maximum version requirement.  If the new requirement is
+#pod redundant to the existing specification, this has no effect.
+#pod
+#pod Maximum requirements are inclusive.  No version strictly greater than the given
+#pod version is allowed.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method add_exclusion
+#pod
+#pod   $req->add_exclusion( $module => $version );
+#pod
+#pod This adds a new excluded version.  For example, you might use these three
+#pod method calls:
+#pod
+#pod   $req->add_minimum( $module => '1.00' );
+#pod   $req->add_maximum( $module => '1.82' );
+#pod
+#pod   $req->add_exclusion( $module => '1.75' );
+#pod
+#pod Any version between 1.00 and 1.82 inclusive would be acceptable, except for
+#pod 1.75.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method exact_version
+#pod
+#pod   $req->exact_version( $module => $version );
+#pod
+#pod This sets the version required for the given module to I<exactly> the given
+#pod version.  No other version would be considered acceptable.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+BEGIN {
+  for my $type (qw(maximum exclusion exact_version)) {
+    my $method = "with_$type";
+    my $to_add = $type eq 'exact_version' ? $type : "add_$type";
+
+    my $code = sub {
+      my ($self, $name, $version) = @_;
+
+      $version = $self->_version_object( $name, $version );
+
+      $self->__modify_entry_for($name, $method, $version);
+
+      return $self;
+    };
+
+    no strict 'refs';
+    *$to_add = $code;
+  }
+}
+
+# add_minimum is optimized compared to generated subs above because
+# it is called frequently and with "0" or equivalent input
+sub add_minimum {
+  my ($self, $name, $version) = @_;
+
+  # stringify $version so that version->new("0.00")->stringify ne "0"
+  # which preserves the user's choice of "0.00" as the requirement
+  if (not defined $version or "$version" eq '0') {
+    return $self if $self->__entry_for($name);
+    Carp::confess("can't add new requirements to finalized requirements")
+      if $self->is_finalized;
+
+    $self->{requirements}{ $name } =
+      CPAN::Meta::Requirements::_Range::Range->with_minimum($V0, $name);
+  }
+  else {
+    $version = $self->_version_object( $name, $version );
+
+    $self->__modify_entry_for($name, 'with_minimum', $version);
+  }
+  return $self;
+}
+
+#pod =method add_requirements
+#pod
+#pod   $req->add_requirements( $another_req_object );
+#pod
+#pod This method adds all the requirements in the given CPAN::Meta::Requirements
+#pod object to the requirements object on which it was called.  If there are any
+#pod conflicts, an exception is thrown.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+sub add_requirements {
+  my ($self, $req) = @_;
+
+  for my $module ($req->required_modules) {
+    my $modifiers = $req->__entry_for($module)->as_modifiers;
+    for my $modifier (@$modifiers) {
+      my ($method, @args) = @$modifier;
+      $self->$method($module => @args);
+    };
+  }
+
+  return $self;
+}
+
+#pod =method accepts_module
+#pod
+#pod   my $bool = $req->accepts_module($module => $version);
+#pod
+#pod Given an module and version, this method returns true if the version
+#pod specification for the module accepts the provided version.  In other words,
+#pod given:
+#pod
+#pod   Module => '>= 1.00, < 2.00'
+#pod
+#pod We will accept 1.00 and 1.75 but not 0.50 or 2.00.
+#pod
+#pod For modules that do not appear in the requirements, this method will return
+#pod true.
+#pod
+#pod =cut
+
+sub accepts_module {
+  my ($self, $module, $version) = @_;
+
+  $version = $self->_version_object( $module, $version );
+
+  return 1 unless my $range = $self->__entry_for($module);
+  return $range->_accepts($version);
+}
+
+#pod =method clear_requirement
+#pod
+#pod   $req->clear_requirement( $module );
+#pod
+#pod This removes the requirement for a given module from the object.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+sub clear_requirement {
+  my ($self, $module) = @_;
+
+  return $self unless $self->__entry_for($module);
+
+  Carp::confess("can't clear requirements on finalized requirements")
+    if $self->is_finalized;
+
+  delete $self->{requirements}{ $module };
+
+  return $self;
+}
+
+#pod =method requirements_for_module
+#pod
+#pod   $req->requirements_for_module( $module );
+#pod
+#pod This returns a string containing the version requirements for a given module in
+#pod the format described in L<CPAN::Meta::Spec> or undef if the given module has no
+#pod requirements. This should only be used for informational purposes such as error
+#pod messages and should not be interpreted or used for comparison (see
+#pod L</accepts_module> instead).
+#pod
+#pod =cut
+
+sub requirements_for_module {
+  my ($self, $module) = @_;
+  my $entry = $self->__entry_for($module);
+  return unless $entry;
+  return $entry->as_string;
+}
+
+#pod =method structured_requirements_for_module
+#pod
+#pod   $req->structured_requirements_for_module( $module );
+#pod
+#pod This returns a data structure containing the version requirements for a given
+#pod module or undef if the given module has no requirements.  This should
+#pod not be used for version checks (see L</accepts_module> instead).
+#pod
+#pod Added in version 2.134.
+#pod
+#pod =cut
+
+sub structured_requirements_for_module {
+  my ($self, $module) = @_;
+  my $entry = $self->__entry_for($module);
+  return unless $entry;
+  return $entry->as_struct;
+}
+
+#pod =method required_modules
+#pod
+#pod This method returns a list of all the modules for which requirements have been
+#pod specified.
+#pod
+#pod =cut
+
+sub required_modules { keys %{ $_[0]{requirements} } }
+
+#pod =method clone
+#pod
+#pod   $req->clone;
+#pod
+#pod This method returns a clone of the invocant.  The clone and the original object
+#pod can then be changed independent of one another.
+#pod
+#pod =cut
+
+sub clone {
+  my ($self) = @_;
+  my $new = (ref $self)->new;
+
+  return $new->add_requirements($self);
+}
+
+sub __entry_for     { $_[0]{requirements}{ $_[1] } }
+
+sub __modify_entry_for {
+  my ($self, $name, $method, $version) = @_;
+
+  my $fin = $self->is_finalized;
+  my $old = $self->__entry_for($name);
+
+  Carp::confess("can't add new requirements to finalized requirements")
+    if $fin and not $old;
+
+  my $new = ($old || 'CPAN::Meta::Requirements::_Range::Range')
+          ->$method($version, $name);
+
+  Carp::confess("can't modify finalized requirements")
+    if $fin and $old->as_string ne $new->as_string;
+
+  $self->{requirements}{ $name } = $new;
+}
+
+#pod =method is_simple
+#pod
+#pod This method returns true if and only if all requirements are inclusive minimums
+#pod -- that is, if their string expression is just the version number.
+#pod
+#pod =cut
+
+sub is_simple {
+  my ($self) = @_;
+  for my $module ($self->required_modules) {
+    # XXX: This is a complete hack, but also entirely correct.
+    return if $self->__entry_for($module)->as_string =~ /\s/;
+  }
+
+  return 1;
+}
+
+#pod =method is_finalized
+#pod
+#pod This method returns true if the requirements have been finalized by having the
+#pod C<finalize> method called on them.
+#pod
+#pod =cut
+
+sub is_finalized { $_[0]{finalized} }
+
+#pod =method finalize
+#pod
+#pod This method marks the requirements finalized.  Subsequent attempts to change
+#pod the requirements will be fatal, I<if> they would result in a change.  If they
+#pod would not alter the requirements, they have no effect.
+#pod
+#pod If a finalized set of requirements is cloned, the cloned requirements are not
+#pod also finalized.
+#pod
+#pod =cut
+
+sub finalize { $_[0]{finalized} = 1 }
+
+#pod =method as_string_hash
+#pod
+#pod This returns a reference to a hash describing the requirements using the
+#pod strings in the L<CPAN::Meta::Spec> specification.
+#pod
+#pod For example after the following program:
+#pod
+#pod   my $req = CPAN::Meta::Requirements->new;
+#pod
+#pod   $req->add_minimum('CPAN::Meta::Requirements' => 0.102);
+#pod
+#pod   $req->add_minimum('Library::Foo' => 1.208);
+#pod
+#pod   $req->add_maximum('Library::Foo' => 2.602);
+#pod
+#pod   $req->add_minimum('Module::Bar'  => 'v1.2.3');
+#pod
+#pod   $req->add_exclusion('Module::Bar'  => 'v1.2.8');
+#pod
+#pod   $req->exact_version('Xyzzy'  => '6.01');
+#pod
+#pod   my $hashref = $req->as_string_hash;
+#pod
+#pod C<$hashref> would contain:
+#pod
+#pod   {
+#pod     'CPAN::Meta::Requirements' => '0.102',
+#pod     'Library::Foo' => '>= 1.208, <= 2.206',
+#pod     'Module::Bar'  => '>= v1.2.3, != v1.2.8',
+#pod     'Xyzzy'        => '== 6.01',
+#pod   }
+#pod
+#pod =cut
+
+sub as_string_hash {
+  my ($self) = @_;
+
+  my %hash = map {; $_ => $self->{requirements}{$_}->as_string }
+             $self->required_modules;
+
+  return \%hash;
+}
+
+#pod =method add_string_requirement
+#pod
+#pod   $req->add_string_requirement('Library::Foo' => '>= 1.208, <= 2.206');
+#pod   $req->add_string_requirement('Library::Foo' => v1.208);
+#pod
+#pod This method parses the passed in string and adds the appropriate requirement
+#pod for the given module.  A version can be a Perl "v-string".  It understands
+#pod version ranges as described in the L<CPAN::Meta::Spec/Version Ranges>. For
+#pod example:
+#pod
+#pod =over 4
+#pod
+#pod =item 1.3
+#pod
+#pod =item >= 1.3
+#pod
+#pod =item <= 1.3
+#pod
+#pod =item == 1.3
+#pod
+#pod =item != 1.3
+#pod
+#pod =item > 1.3
+#pod
+#pod =item < 1.3
+#pod
+#pod =item >= 1.3, != 1.5, <= 2.0
+#pod
+#pod A version number without an operator is equivalent to specifying a minimum
+#pod (C<E<gt>=>).  Extra whitespace is allowed.
+#pod
+#pod =back
+#pod
+#pod =cut
+
+my %methods_for_op = (
+  '==' => [ qw(exact_version) ],
+  '!=' => [ qw(add_exclusion) ],
+  '>=' => [ qw(add_minimum)   ],
+  '<=' => [ qw(add_maximum)   ],
+  '>'  => [ qw(add_minimum add_exclusion) ],
+  '<'  => [ qw(add_maximum add_exclusion) ],
+);
+
+sub add_string_requirement {
+  my ($self, $module, $req) = @_;
+
+  unless ( defined $req && length $req ) {
+    $req = 0;
+    $self->_blank_carp($module);
+  }
+
+  my $magic = _find_magic_vstring( $req );
+  if (length $magic) {
+    $self->add_minimum($module => $magic);
+    return;
+  }
+
+  my @parts = split qr{\s*,\s*}, $req;
+
+  for my $part (@parts) {
+    my ($op, $ver) = $part =~ m{\A\s*(==|>=|>|<=|<|!=)\s*(.*)\z};
+
+    if (! defined $op) {
+      $self->add_minimum($module => $part);
+    } else {
+      Carp::confess("illegal requirement string: $req")
+        unless my $methods = $methods_for_op{ $op };
+
+      $self->$_($module => $ver) for @$methods;
+    }
+  }
+}
+
+#pod =method from_string_hash
+#pod
+#pod   my $req = CPAN::Meta::Requirements->from_string_hash( \%hash );
+#pod   my $req = CPAN::Meta::Requirements->from_string_hash( \%hash, \%opts );
+#pod
+#pod This is an alternate constructor for a CPAN::Meta::Requirements
+#pod object. It takes a hash of module names and version requirement
+#pod strings and returns a new CPAN::Meta::Requirements object. As with
+#pod add_string_requirement, a version can be a Perl "v-string". Optionally,
+#pod you can supply a hash-reference of options, exactly as with the L</new>
+#pod method.
+#pod
+#pod =cut
+
+sub _blank_carp {
+  my ($self, $module) = @_;
+  Carp::carp("Undefined requirement for $module treated as '0'");
+}
+
+sub from_string_hash {
+  my ($class, $hash, $options) = @_;
+
+  my $self = $class->new($options);
+
+  for my $module (keys %$hash) {
+    my $req = $hash->{$module};
+    unless ( defined $req && length $req ) {
+      $req = 0;
+      $class->_blank_carp($module);
+    }
+    $self->add_string_requirement($module, $req);
+  }
+
+  return $self;
+}
+
+##############################################################
+
+{
+  package
+    CPAN::Meta::Requirements::_Range::Exact;
+  sub _new     { bless { version => $_[1] } => $_[0] }
+
+  sub _accepts { return $_[0]{version} == $_[1] }
+
+  sub as_string { return "== $_[0]{version}" }
+
+  sub as_struct { return [ [ '==', "$_[0]{version}" ] ] }
+
+  sub as_modifiers { return [ [ exact_version => $_[0]{version} ] ] }
+
+  sub _reject_requirements {
+    my ($self, $module, $error) = @_;
+    Carp::confess("illegal requirements for $module: $error")
+  }
+
+  sub _clone {
+    (ref $_[0])->_new( version->new( $_[0]{version} ) )
+  }
+
+  sub with_exact_version {
+    my ($self, $version, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->_accepts($version);
+
+    $self->_reject_requirements(
+      $module,
+      "can't be exactly $version when exact requirement is already $self->{version}",
+    );
+  }
+
+  sub with_minimum {
+    my ($self, $minimum, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->{version} >= $minimum;
+    $self->_reject_requirements(
+      $module,
+      "minimum $minimum exceeds exact specification $self->{version}",
+    );
+  }
+
+  sub with_maximum {
+    my ($self, $maximum, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->{version} <= $maximum;
+    $self->_reject_requirements(
+      $module,
+      "maximum $maximum below exact specification $self->{version}",
+    );
+  }
+
+  sub with_exclusion {
+    my ($self, $exclusion, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone unless $exclusion == $self->{version};
+    $self->_reject_requirements(
+      $module,
+      "tried to exclude $exclusion, which is already exactly specified",
+    );
+  }
+}
+
+##############################################################
+
+{
+  package
+    CPAN::Meta::Requirements::_Range::Range;
+
+  sub _self { ref($_[0]) ? $_[0] : (bless { } => $_[0]) }
+
+  sub _clone {
+    return (bless { } => $_[0]) unless ref $_[0];
+
+    my ($s) = @_;
+    my %guts = (
+      (exists $s->{minimum} ? (minimum => version->new($s->{minimum})) : ()),
+      (exists $s->{maximum} ? (maximum => version->new($s->{maximum})) : ()),
+
+      (exists $s->{exclusions}
+        ? (exclusions => [ map { version->new($_) } @{ $s->{exclusions} } ])
+        : ()),
+    );
+
+    bless \%guts => ref($s);
+  }
+
+  sub as_modifiers {
+    my ($self) = @_;
+    my @mods;
+    push @mods, [ add_minimum => $self->{minimum} ] if exists $self->{minimum};
+    push @mods, [ add_maximum => $self->{maximum} ] if exists $self->{maximum};
+    push @mods, map {; [ add_exclusion => $_ ] } @{$self->{exclusions} || []};
+    return \@mods;
+  }
+
+  sub as_struct {
+    my ($self) = @_;
+
+    return 0 if ! keys %$self;
+
+    my @exclusions = @{ $self->{exclusions} || [] };
+
+    my @parts;
+
+    for my $tuple (
+      [ qw( >= > minimum ) ],
+      [ qw( <= < maximum ) ],
+    ) {
+      my ($op, $e_op, $k) = @$tuple;
+      if (exists $self->{$k}) {
+        my @new_exclusions = grep { $_ != $self->{ $k } } @exclusions;
+        if (@new_exclusions == @exclusions) {
+          push @parts, [ $op, "$self->{ $k }" ];
+        } else {
+          push @parts, [ $e_op, "$self->{ $k }" ];
+          @exclusions = @new_exclusions;
+        }
+      }
+    }
+
+    push @parts, map {; [ "!=", "$_" ] } @exclusions;
+
+    return \@parts;
+  }
+
+  sub as_string {
+    my ($self) = @_;
+
+    my @parts = @{ $self->as_struct };
+
+    return $parts[0][1] if @parts == 1 and $parts[0][0] eq '>=';
+
+    return join q{, }, map {; join q{ }, @$_ } @parts;
+  }
+
+  sub _reject_requirements {
+    my ($self, $module, $error) = @_;
+    Carp::confess("illegal requirements for $module: $error")
+  }
+
+  sub with_exact_version {
+    my ($self, $version, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    unless ($self->_accepts($version)) {
+      $self->_reject_requirements(
+        $module,
+        "exact specification $version outside of range " . $self->as_string
+      );
+    }
+
+    return CPAN::Meta::Requirements::_Range::Exact->_new($version);
+  }
+
+  sub _simplify {
+    my ($self, $module) = @_;
+
+    if (defined $self->{minimum} and defined $self->{maximum}) {
+      if ($self->{minimum} == $self->{maximum}) {
+        if (grep { $_ == $self->{minimum} } @{ $self->{exclusions} || [] }) {
+          $self->_reject_requirements(
+            $module,
+            "minimum and maximum are both $self->{minimum}, which is excluded",
+          );
+        }
+
+        return CPAN::Meta::Requirements::_Range::Exact->_new($self->{minimum})
+      }
+
+      if ($self->{minimum} > $self->{maximum}) {
+        $self->_reject_requirements(
+          $module,
+          "minimum $self->{minimum} exceeds maximum $self->{maximum}",
+        );
+      }
+    }
+
+    # eliminate irrelevant exclusions
+    if ($self->{exclusions}) {
+      my %seen;
+      @{ $self->{exclusions} } = grep {
+        (! defined $self->{minimum} or $_ >= $self->{minimum})
+        and
+        (! defined $self->{maximum} or $_ <= $self->{maximum})
+        and
+        ! $seen{$_}++
+      } @{ $self->{exclusions} };
+    }
+
+    return $self;
+  }
+
+  sub with_minimum {
+    my ($self, $minimum, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    if (defined (my $old_min = $self->{minimum})) {
+      $self->{minimum} = (sort { $b cmp $a } ($minimum, $old_min))[0];
+    } else {
+      $self->{minimum} = $minimum;
+    }
+
+    return $self->_simplify($module);
+  }
+
+  sub with_maximum {
+    my ($self, $maximum, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    if (defined (my $old_max = $self->{maximum})) {
+      $self->{maximum} = (sort { $a cmp $b } ($maximum, $old_max))[0];
+    } else {
+      $self->{maximum} = $maximum;
+    }
+
+    return $self->_simplify($module);
+  }
+
+  sub with_exclusion {
+    my ($self, $exclusion, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    push @{ $self->{exclusions} ||= [] }, $exclusion;
+
+    return $self->_simplify($module);
+  }
+
+  sub _accepts {
+    my ($self, $version) = @_;
+
+    return if defined $self->{minimum} and $version < $self->{minimum};
+    return if defined $self->{maximum} and $version > $self->{maximum};
+    return if defined $self->{exclusions}
+          and grep { $version == $_ } @{ $self->{exclusions} };
+
+    return 1;
+  }
+}
+
+1;
+# vim: ts=2 sts=2 sw=2 et:
+
+__END__
+
+use 5.008001; # sane UTF-8 support
+use strict;
+use warnings;
+package CPAN::Meta::YAML; # git description: v1.68-2-gcc5324e
+# XXX-INGY is 5.8.1 too old/broken for utf8?
+# XXX-XDG Lancaster consensus was that it was sufficient until
+# proven otherwise
+$CPAN::Meta::YAML::VERSION = '0.018';
+; # original $VERSION removed by Doppelgaenger
+
+#####################################################################
+# The CPAN::Meta::YAML API.
+#
+# These are the currently documented API functions/methods and
+# exports:
+
+use Exporter;
+our @ISA       = qw{ Exporter  };
+our @EXPORT    = qw{ Load Dump };
+our @EXPORT_OK = qw{ LoadFile DumpFile freeze thaw };
+
+###
+# Functional/Export API:
+
+sub Dump {
+    return CPAN::Meta::YAML->new(@_)->_dump_string;
+}
+
+# XXX-INGY Returning last document seems a bad behavior.
+# XXX-XDG I think first would seem more natural, but I don't know
+# that it's worth changing now
+sub Load {
+    my $self = CPAN::Meta::YAML->_load_string(@_);
+    if ( wantarray ) {
+        return @$self;
+    } else {
+        # To match YAML.pm, return the last document
+        return $self->[-1];
+    }
+}
+
+# XXX-INGY Do we really need freeze and thaw?
+# XXX-XDG I don't think so.  I'd support deprecating them.
+BEGIN {
+    *freeze = \&Dump;
+    *thaw   = \&Load;
+}
+
+sub DumpFile {
+    my $file = shift;
+    return CPAN::Meta::YAML->new(@_)->_dump_file($file);
+}
+
+sub LoadFile {
+    my $file = shift;
+    my $self = CPAN::Meta::YAML->_load_file($file);
+    if ( wantarray ) {
+        return @$self;
+    } else {
+        # Return only the last document to match YAML.pm,
+        return $self->[-1];
+    }
+}
+
+
+###
+# Object Oriented API:
+
+# Create an empty CPAN::Meta::YAML object
+# XXX-INGY Why do we use ARRAY object?
+# NOTE: I get it now, but I think it's confusing and not needed.
+# Will change it on a branch later, for review.
+#
+# XXX-XDG I don't support changing it yet.  It's a very well-documented
+# "API" of CPAN::Meta::YAML.  I'd support deprecating it, but Adam suggested
+# we not change it until YAML.pm's own OO API is established so that
+# users only have one API change to digest, not two
+sub new {
+    my $class = shift;
+    bless [ @_ ], $class;
+}
+
+# XXX-INGY It probably doesn't matter, and it's probably too late to
+# change, but 'read/write' are the wrong names. Read and Write
+# are actions that take data from storage to memory
+# characters/strings. These take the data to/from storage to native
+# Perl objects, which the terms dump and load are meant. As long as
+# this is a legacy quirk to CPAN::Meta::YAML it's ok, but I'd prefer not
+# to add new {read,write}_* methods to this API.
+
+sub read_string {
+    my $self = shift;
+    $self->_load_string(@_);
+}
+
+sub write_string {
+    my $self = shift;
+    $self->_dump_string(@_);
+}
+
+sub read {
+    my $self = shift;
+    $self->_load_file(@_);
+}
+
+sub write {
+    my $self = shift;
+    $self->_dump_file(@_);
+}
+
+
+
+
+#####################################################################
+# Constants
+
+# Printed form of the unprintable characters in the lowest range
+# of ASCII characters, listed by ASCII ordinal position.
+my @UNPRINTABLE = qw(
+    0    x01  x02  x03  x04  x05  x06  a
+    b    t    n    v    f    r    x0E  x0F
+    x10  x11  x12  x13  x14  x15  x16  x17
+    x18  x19  x1A  e    x1C  x1D  x1E  x1F
+);
+
+# Printable characters for escapes
+my %UNESCAPES = (
+    0 => "\x00", z => "\x00", N    => "\x85",
+    a => "\x07", b => "\x08", t    => "\x09",
+    n => "\x0a", v => "\x0b", f    => "\x0c",
+    r => "\x0d", e => "\x1b", '\\' => '\\',
+);
+
+# XXX-INGY
+# I(ngy) need to decide if these values should be quoted in
+# CPAN::Meta::YAML or not. Probably yes.
+
+# These 3 values have special meaning when unquoted and using the
+# default YAML schema. They need quotes if they are strings.
+my %QUOTE = map { $_ => 1 } qw{
+    null true false
+};
+
+# The commented out form is simpler, but overloaded the Perl regex
+# engine due to recursion and backtracking problems on strings
+# larger than 32,000ish characters. Keep it for reference purposes.
+# qr/\"((?:\\.|[^\"])*)\"/
+my $re_capture_double_quoted = qr/\"([^\\"]*(?:\\.[^\\"]*)*)\"/;
+my $re_capture_single_quoted = qr/\'([^\']*(?:\'\'[^\']*)*)\'/;
+# unquoted re gets trailing space that needs to be stripped
+my $re_capture_unquoted_key  = qr/([^:]+(?::+\S(?:[^:]*|.*?(?=:)))*)(?=\s*\:(?:\s+|$))/;
+my $re_trailing_comment      = qr/(?:\s+\#.*)?/;
+my $re_key_value_separator   = qr/\s*:(?:\s+(?:\#.*)?|$)/;
+
+
+
+
+
+#####################################################################
+# CPAN::Meta::YAML Implementation.
+#
+# These are the private methods that do all the work. They may change
+# at any time.
+
+
+###
+# Loader functions:
+
+# Create an object from a file
+sub _load_file {
+    my $class = ref $_[0] ? ref shift : shift;
+
+    # Check the file
+    my $file = shift or $class->_error( 'You did not specify a file name' );
+    $class->_error( "File '$file' does not exist" )
+        unless -e $file;
+    $class->_error( "'$file' is a directory, not a file" )
+        unless -f _;
+    $class->_error( "Insufficient permissions to read '$file'" )
+        unless -r _;
+
+    # Open unbuffered with strict UTF-8 decoding and no translation layers
+    open( my $fh, "<:unix:encoding(UTF-8)", $file );
+    unless ( $fh ) {
+        $class->_error("Failed to open file '$file': $!");
+    }
+
+    # flock if available (or warn if not possible for OS-specific reasons)
+    if ( _can_flock() ) {
+        flock( $fh, Fcntl::LOCK_SH() )
+            or warn "Couldn't lock '$file' for reading: $!";
+    }
+
+    # slurp the contents
+    my $contents = eval {
+        use warnings FATAL => 'utf8';
+        local $/;
+        <$fh>
+    };
+    if ( my $err = $@ ) {
+        $class->_error("Error reading from file '$file': $err");
+    }
+
+    # close the file (release the lock)
+    unless ( close $fh ) {
+        $class->_error("Failed to close file '$file': $!");
+    }
+
+    $class->_load_string( $contents );
+}
+
+# Create an object from a string
+sub _load_string {
+    my $class  = ref $_[0] ? ref shift : shift;
+    my $self   = bless [], $class;
+    my $string = $_[0];
+    eval {
+        unless ( defined $string ) {
+            die \"Did not provide a string to load";
+        }
+
+        # Check if Perl has it marked as characters, but it's internally
+        # inconsistent.  E.g. maybe latin1 got read on a :utf8 layer
+        if ( utf8::is_utf8($string) && ! utf8::valid($string) ) {
+            die \<<'...';
+Read an invalid UTF-8 string (maybe mixed UTF-8 and 8-bit character set).
+Did you decode with lax ":utf8" instead of strict ":encoding(UTF-8)"?
+...
+        }
+
+        # Ensure Unicode character semantics, even for 0x80-0xff
+        utf8::upgrade($string);
+
+        # Check for and strip any leading UTF-8 BOM
+        $string =~ s/^\x{FEFF}//;
+
+        # Check for some special cases
+        return $self unless length $string;
+
+        # Split the file into lines
+        my @lines = grep { ! /^\s*(?:\#.*)?\z/ }
+                split /(?:\015{1,2}\012|\015|\012)/, $string;
+
+        # Strip the initial YAML header
+        @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ and shift @lines;
+
+        # A nibbling parser
+        my $in_document = 0;
+        while ( @lines ) {
+            # Do we have a document header?
+            if ( $lines[0] =~ /^---\s*(?:(.+)\s*)?\z/ ) {
+                # Handle scalar documents
+                shift @lines;
+                if ( defined $1 and $1 !~ /^(?:\#.+|\%YAML[: ][\d\.]+)\z/ ) {
+                    push @$self,
+                        $self->_load_scalar( "$1", [ undef ], \@lines );
+                    next;
+                }
+                $in_document = 1;
+            }
+
+            if ( ! @lines or $lines[0] =~ /^(?:---|\.\.\.)/ ) {
+                # A naked document
+                push @$self, undef;
+                while ( @lines and $lines[0] !~ /^---/ ) {
+                    shift @lines;
+                }
+                $in_document = 0;
+
+            # XXX The final '-+$' is to look for -- which ends up being an
+            # error later.
+            } elsif ( ! $in_document && @$self ) {
+                # only the first document can be explicit
+                die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'";
+            } elsif ( $lines[0] =~ /^\s*\-(?:\s|$|-+$)/ ) {
+                # An array at the root
+                my $document = [ ];
+                push @$self, $document;
+                $self->_load_array( $document, [ 0 ], \@lines );
+
+            } elsif ( $lines[0] =~ /^(\s*)\S/ ) {
+                # A hash at the root
+                my $document = { };
+                push @$self, $document;
+                $self->_load_hash( $document, [ length($1) ], \@lines );
+
+            } else {
+                # Shouldn't get here.  @lines have whitespace-only lines
+                # stripped, and previous match is a line with any
+                # non-whitespace.  So this clause should only be reachable via
+                # a perlbug where \s is not symmetric with \S
+
+                # uncoverable statement
+                die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'";
+            }
+        }
+    };
+    my $err = $@;
+    if ( ref $err eq 'SCALAR' ) {
+        $self->_error(${$err});
+    } elsif ( $err ) {
+        $self->_error($err);
+    }
+
+    return $self;
+}
+
+sub _unquote_single {
+    my ($self, $string) = @_;
+    return '' unless length $string;
+    $string =~ s/\'\'/\'/g;
+    return $string;
+}
+
+sub _unquote_double {
+    my ($self, $string) = @_;
+    return '' unless length $string;
+    $string =~ s/\\"/"/g;
+    $string =~
+        s{\\([Nnever\\fartz0b]|x([0-9a-fA-F]{2}))}
+         {(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}}gex;
+    return $string;
+}
+
+# Load a YAML scalar string to the actual Perl scalar
+sub _load_scalar {
+    my ($self, $string, $indent, $lines) = @_;
+
+    # Trim trailing whitespace
+    $string =~ s/\s*\z//;
+
+    # Explitic null/undef
+    return undef if $string eq '~';
+
+    # Single quote
+    if ( $string =~ /^$re_capture_single_quoted$re_trailing_comment\z/ ) {
+        return $self->_unquote_single($1);
+    }
+
+    # Double quote.
+    if ( $string =~ /^$re_capture_double_quoted$re_trailing_comment\z/ ) {
+        return $self->_unquote_double($1);
+    }
+
+    # Special cases
+    if ( $string =~ /^[\'\"!&]/ ) {
+        die \"CPAN::Meta::YAML does not support a feature in line '$string'";
+    }
+    return {} if $string =~ /^{}(?:\s+\#.*)?\z/;
+    return [] if $string =~ /^\[\](?:\s+\#.*)?\z/;
+
+    # Regular unquoted string
+    if ( $string !~ /^[>|]/ ) {
+        die \"CPAN::Meta::YAML found illegal characters in plain scalar: '$string'"
+            if $string =~ /^(?:-(?:\s|$)|[\@\%\`])/ or
+                $string =~ /:(?:\s|$)/;
+        $string =~ s/\s+#.*\z//;
+        return $string;
+    }
+
+    # Error
+    die \"CPAN::Meta::YAML failed to find multi-line scalar content" unless @$lines;
+
+    # Check the indent depth
+    $lines->[0]   =~ /^(\s*)/;
+    $indent->[-1] = length("$1");
+    if ( defined $indent->[-2] and $indent->[-1] <= $indent->[-2] ) {
+        die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+    }
+
+    # Pull the lines
+    my @multiline = ();
+    while ( @$lines ) {
+        $lines->[0] =~ /^(\s*)/;
+        last unless length($1) >= $indent->[-1];
+        push @multiline, substr(shift(@$lines), length($1));
+    }
+
+    my $j = (substr($string, 0, 1) eq '>') ? ' ' : "\n";
+    my $t = (substr($string, 1, 1) eq '-') ? ''  : "\n";
+    return join( $j, @multiline ) . $t;
+}
+
+# Load an array
+sub _load_array {
+    my ($self, $array, $indent, $lines) = @_;
+
+    while ( @$lines ) {
+        # Check for a new document
+        if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
+            while ( @$lines and $lines->[0] !~ /^---/ ) {
+                shift @$lines;
+            }
+            return 1;
+        }
+
+        # Check the indent level
+        $lines->[0] =~ /^(\s*)/;
+        if ( length($1) < $indent->[-1] ) {
+            return 1;
+        } elsif ( length($1) > $indent->[-1] ) {
+            die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+        }
+
+        if ( $lines->[0] =~ /^(\s*\-\s+)[^\'\"]\S*\s*:(?:\s+|$)/ ) {
+            # Inline nested hash
+            my $indent2 = length("$1");
+            $lines->[0] =~ s/-/ /;
+            push @$array, { };
+            $self->_load_hash( $array->[-1], [ @$indent, $indent2 ], $lines );
+
+        } elsif ( $lines->[0] =~ /^\s*\-\s*\z/ ) {
+            shift @$lines;
+            unless ( @$lines ) {
+                push @$array, undef;
+                return 1;
+            }
+            if ( $lines->[0] =~ /^(\s*)\-/ ) {
+                my $indent2 = length("$1");
+                if ( $indent->[-1] == $indent2 ) {
+                    # Null array entry
+                    push @$array, undef;
+                } else {
+                    # Naked indenter
+                    push @$array, [ ];
+                    $self->_load_array(
+                        $array->[-1], [ @$indent, $indent2 ], $lines
+                    );
+                }
+
+            } elsif ( $lines->[0] =~ /^(\s*)\S/ ) {
+                push @$array, { };
+                $self->_load_hash(
+                    $array->[-1], [ @$indent, length("$1") ], $lines
+                );
+
+            } else {
+                die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+            }
+
+        } elsif ( $lines->[0] =~ /^\s*\-(\s*)(.+?)\s*\z/ ) {
+            # Array entry with a value
+            shift @$lines;
+            push @$array, $self->_load_scalar(
+                "$2", [ @$indent, undef ], $lines
+            );
+
+        } elsif ( defined $indent->[-2] and $indent->[-1] == $indent->[-2] ) {
+            # This is probably a structure like the following...
+            # ---
+            # foo:
+            # - list
+            # bar: value
+            #
+            # ... so lets return and let the hash parser handle it
+            return 1;
+
+        } else {
+            die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+        }
+    }
+
+    return 1;
+}
+
+# Load a hash
+sub _load_hash {
+    my ($self, $hash, $indent, $lines) = @_;
+
+    while ( @$lines ) {
+        # Check for a new document
+        if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
+            while ( @$lines and $lines->[0] !~ /^---/ ) {
+                shift @$lines;
+            }
+            return 1;
+        }
+
+        # Check the indent level
+        $lines->[0] =~ /^(\s*)/;
+        if ( length($1) < $indent->[-1] ) {
+            return 1;
+        } elsif ( length($1) > $indent->[-1] ) {
+            die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+        }
+
+        # Find the key
+        my $key;
+
+        # Quoted keys
+        if ( $lines->[0] =~
+            s/^\s*$re_capture_single_quoted$re_key_value_separator//
+        ) {
+            $key = $self->_unquote_single($1);
+        }
+        elsif ( $lines->[0] =~
+            s/^\s*$re_capture_double_quoted$re_key_value_separator//
+        ) {
+            $key = $self->_unquote_double($1);
+        }
+        elsif ( $lines->[0] =~
+            s/^\s*$re_capture_unquoted_key$re_key_value_separator//
+        ) {
+            $key = $1;
+            $key =~ s/\s+$//;
+        }
+        elsif ( $lines->[0] =~ /^\s*\?/ ) {
+            die \"CPAN::Meta::YAML does not support a feature in line '$lines->[0]'";
+        }
+        else {
+            die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+        }
+
+        if ( exists $hash->{$key} ) {
+            warn "CPAN::Meta::YAML found a duplicate key '$key' in line '$lines->[0]'";
+        }
+
+        # Do we have a value?
+        if ( length $lines->[0] ) {
+            # Yes
+            $hash->{$key} = $self->_load_scalar(
+                shift(@$lines), [ @$indent, undef ], $lines
+            );
+        } else {
+            # An indent
+            shift @$lines;
+            unless ( @$lines ) {
+                $hash->{$key} = undef;
+                return 1;
+            }
+            if ( $lines->[0] =~ /^(\s*)-/ ) {
+                $hash->{$key} = [];
+                $self->_load_array(
+                    $hash->{$key}, [ @$indent, length($1) ], $lines
+                );
+            } elsif ( $lines->[0] =~ /^(\s*)./ ) {
+                my $indent2 = length("$1");
+                if ( $indent->[-1] >= $indent2 ) {
+                    # Null hash entry
+                    $hash->{$key} = undef;
+                } else {
+                    $hash->{$key} = {};
+                    $self->_load_hash(
+                        $hash->{$key}, [ @$indent, length($1) ], $lines
+                    );
+                }
+            }
+        }
+    }
+
+    return 1;
+}
+
+
+###
+# Dumper functions:
+
+# Save an object to a file
+sub _dump_file {
+    my $self = shift;
+
+    require Fcntl;
+
+    # Check the file
+    my $file = shift or $self->_error( 'You did not specify a file name' );
+
+    my $fh;
+    # flock if available (or warn if not possible for OS-specific reasons)
+    if ( _can_flock() ) {
+        # Open without truncation (truncate comes after lock)
+        my $flags = Fcntl::O_WRONLY()|Fcntl::O_CREAT();
+        sysopen( $fh, $file, $flags );
+        unless ( $fh ) {
+            $self->_error("Failed to open file '$file' for writing: $!");
+        }
+
+        # Use no translation and strict UTF-8
+        binmode( $fh, ":raw:encoding(UTF-8)");
+
+        flock( $fh, Fcntl::LOCK_EX() )
+            or warn "Couldn't lock '$file' for reading: $!";
+
+        # truncate and spew contents
+        truncate $fh, 0;
+        seek $fh, 0, 0;
+    }
+    else {
+        open $fh, ">:unix:encoding(UTF-8)", $file;
+    }
+
+    # serialize and spew to the handle
+    print {$fh} $self->_dump_string;
+
+    # close the file (release the lock)
+    unless ( close $fh ) {
+        $self->_error("Failed to close file '$file': $!");
+    }
+
+    return 1;
+}
+
+# Save an object to a string
+sub _dump_string {
+    my $self = shift;
+    return '' unless ref $self && @$self;
+
+    # Iterate over the documents
+    my $indent = 0;
+    my @lines  = ();
+
+    eval {
+        foreach my $cursor ( @$self ) {
+            push @lines, '---';
+
+            # An empty document
+            if ( ! defined $cursor ) {
+                # Do nothing
+
+            # A scalar document
+            } elsif ( ! ref $cursor ) {
+                $lines[-1] .= ' ' . $self->_dump_scalar( $cursor );
+
+            # A list at the root
+            } elsif ( ref $cursor eq 'ARRAY' ) {
+                unless ( @$cursor ) {
+                    $lines[-1] .= ' []';
+                    next;
+                }
+                push @lines, $self->_dump_array( $cursor, $indent, {} );
+
+            # A hash at the root
+            } elsif ( ref $cursor eq 'HASH' ) {
+                unless ( %$cursor ) {
+                    $lines[-1] .= ' {}';
+                    next;
+                }
+                push @lines, $self->_dump_hash( $cursor, $indent, {} );
+
+            } else {
+                die \("Cannot serialize " . ref($cursor));
+            }
+        }
+    };
+    if ( ref $@ eq 'SCALAR' ) {
+        $self->_error(${$@});
+    } elsif ( $@ ) {
+        $self->_error($@);
+    }
+
+    join '', map { "$_\n" } @lines;
+}
+
+sub _has_internal_string_value {
+    my $value = shift;
+    my $b_obj = B::svref_2object(\$value);  # for round trip problem
+    return $b_obj->FLAGS & B::SVf_POK();
+}
+
+sub _dump_scalar {
+    my $string = $_[1];
+    my $is_key = $_[2];
+    # Check this before checking length or it winds up looking like a string!
+    my $has_string_flag = _has_internal_string_value($string);
+    return '~'  unless defined $string;
+    return "''" unless length  $string;
+    if (Scalar::Util::looks_like_number($string)) {
+        # keys and values that have been used as strings get quoted
+        if ( $is_key || $has_string_flag ) {
+            return qq['$string'];
+        }
+        else {
+            return $string;
+        }
+    }
+    if ( $string =~ /[\x00-\x09\x0b-\x0d\x0e-\x1f\x7f-\x9f\'\n]/ ) {
+        $string =~ s/\\/\\\\/g;
+        $string =~ s/"/\\"/g;
+        $string =~ s/\n/\\n/g;
+        $string =~ s/[\x85]/\\N/g;
+        $string =~ s/([\x00-\x1f])/\\$UNPRINTABLE[ord($1)]/g;
+        $string =~ s/([\x7f-\x9f])/'\x' . sprintf("%X",ord($1))/ge;
+        return qq|"$string"|;
+    }
+    if ( $string =~ /(?:^[~!@#%&*|>?:,'"`{}\[\]]|^-+$|\s|:\z)/ or
+        $QUOTE{$string}
+    ) {
+        return "'$string'";
+    }
+    return $string;
+}
+
+sub _dump_array {
+    my ($self, $array, $indent, $seen) = @_;
+    if ( $seen->{refaddr($array)}++ ) {
+        die \"CPAN::Meta::YAML does not support circular references";
+    }
+    my @lines  = ();
+    foreach my $el ( @$array ) {
+        my $line = ('  ' x $indent) . '-';
+        my $type = ref $el;
+        if ( ! $type ) {
+            $line .= ' ' . $self->_dump_scalar( $el );
+            push @lines, $line;
+
+        } elsif ( $type eq 'ARRAY' ) {
+            if ( @$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_array( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' []';
+                push @lines, $line;
+            }
+
+        } elsif ( $type eq 'HASH' ) {
+            if ( keys %$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_hash( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' {}';
+                push @lines, $line;
+            }
+
+        } else {
+            die \"CPAN::Meta::YAML does not support $type references";
+        }
+    }
+
+    @lines;
+}
+
+sub _dump_hash {
+    my ($self, $hash, $indent, $seen) = @_;
+    if ( $seen->{refaddr($hash)}++ ) {
+        die \"CPAN::Meta::YAML does not support circular references";
+    }
+    my @lines  = ();
+    foreach my $name ( sort keys %$hash ) {
+        my $el   = $hash->{$name};
+        my $line = ('  ' x $indent) . $self->_dump_scalar($name, 1) . ":";
+        my $type = ref $el;
+        if ( ! $type ) {
+            $line .= ' ' . $self->_dump_scalar( $el );
+            push @lines, $line;
+
+        } elsif ( $type eq 'ARRAY' ) {
+            if ( @$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_array( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' []';
+                push @lines, $line;
+            }
+
+        } elsif ( $type eq 'HASH' ) {
+            if ( keys %$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_hash( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' {}';
+                push @lines, $line;
+            }
+
+        } else {
+            die \"CPAN::Meta::YAML does not support $type references";
+        }
+    }
+
+    @lines;
+}
+
+
+
+#####################################################################
+# DEPRECATED API methods:
+
+# Error storage (DEPRECATED as of 1.57)
+our $errstr    = '';
+
+# Set error
+sub _error {
+    require Carp;
+    $errstr = $_[1];
+    $errstr =~ s/ at \S+ line \d+.*//;
+    Carp::croak( $errstr );
+}
+
+# Retrieve error
+my $errstr_warned;
+sub errstr {
+    require Carp;
+    Carp::carp( "CPAN::Meta::YAML->errstr and \$CPAN::Meta::YAML::errstr is deprecated" )
+        unless $errstr_warned++;
+    $errstr;
+}
+
+
+
+
+#####################################################################
+# Helper functions. Possibly not needed.
+
+
+# Use to detect nv or iv
+use B;
+
+# XXX-INGY Is flock CPAN::Meta::YAML's responsibility?
+# Some platforms can't flock :-(
+# XXX-XDG I think it is.  When reading and writing files, we ought
+# to be locking whenever possible.  People (foolishly) use YAML
+# files for things like session storage, which has race issues.
+my $HAS_FLOCK;
+sub _can_flock {
+    if ( defined $HAS_FLOCK ) {
+        return $HAS_FLOCK;
+    }
+    else {
+        require Config;
+        my $c = \%Config::Config;
+        $HAS_FLOCK = grep { $c->{$_} } qw/d_flock d_fcntl_can_lock d_lockf/;
+        require Fcntl if $HAS_FLOCK;
+        return $HAS_FLOCK;
+    }
+}
+
+
+# XXX-INGY Is this core in 5.8.1? Can we remove this?
+# XXX-XDG Scalar::Util 1.18 didn't land until 5.8.8, so we need this
+#####################################################################
+# Use Scalar::Util if possible, otherwise emulate it
+
+use Scalar::Util ();
+BEGIN {
+    local $@;
+    if ( eval { Scalar::Util->VERSION(1.18); } ) {
+        *refaddr = *Scalar::Util::refaddr;
+    }
+    else {
+        eval <<'END_PERL';
+# Scalar::Util failed to load or too old
+sub refaddr {
+    my $pkg = ref($_[0]) or return undef;
+    if ( !! UNIVERSAL::can($_[0], 'can') ) {
+        bless $_[0], 'Scalar::Util::Fake';
+    } else {
+        $pkg = undef;
+    }
+    "$_[0]" =~ /0x(\w+)/;
+    my $i = do { no warnings 'portable'; hex $1 };
+    bless $_[0], $pkg if defined $pkg;
+    $i;
+}
+END_PERL
+    }
+}
+
+delete $CPAN::Meta::YAML::{refaddr};
+
+1;
+
+# XXX-INGY Doc notes I'm putting up here. Changing the doc when it's wrong
+# but leaving grey area stuff up here.
+#
+# I would like to change Read/Write to Load/Dump below without
+# changing the actual API names.
+#
+# It might be better to put Load/Dump API in the SYNOPSIS instead of the
+# dubious OO API.
+#
+# null and bool explanations may be outdated.
+
+
+__END__
+
+
+# ABSTRACT: Read and write a subset of YAML for CPAN Meta files
+
+
+use strict;
+use warnings;
+
+package CPAN::Meta::Merge;
+
+our $VERSION = '2.150010';
+
+use Carp qw/croak/;
+use Scalar::Util qw/blessed/;
+use CPAN::Meta::Converter 2.141170;
+
+sub _is_identical {
+  my ($left, $right) = @_;
+  return
+    (not defined $left and not defined $right)
+    # if either of these are references, we compare the serialized value
+    || (defined $left and defined $right and $left eq $right);
+}
+
+sub _identical {
+  my ($left, $right, $path) = @_;
+  croak sprintf "Can't merge attribute %s: '%s' does not equal '%s'", join('.', @{$path}), $left, $right
+    unless _is_identical($left, $right);
+  return $left;
+}
+
+sub _merge {
+  my ($current, $next, $mergers, $path) = @_;
+  for my $key (keys %{$next}) {
+    if (not exists $current->{$key}) {
+      $current->{$key} = $next->{$key};
+    }
+    elsif (my $merger = $mergers->{$key}) {
+      $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]);
+    }
+    elsif ($merger = $mergers->{':default'}) {
+      $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]);
+    }
+    else {
+      croak sprintf "Can't merge unknown attribute '%s'", join '.', @{$path}, $key;
+    }
+  }
+  return $current;
+}
+
+sub _uniq {
+  my %seen = ();
+  return grep { not $seen{$_}++ } @_;
+}
+
+sub _set_addition {
+  my ($left, $right) = @_;
+  return [ +_uniq(@{$left}, @{$right}) ];
+}
+
+sub _uniq_map {
+  my ($left, $right, $path) = @_;
+  for my $key (keys %{$right}) {
+    if (not exists $left->{$key}) {
+      $left->{$key} = $right->{$key};
+    }
+    # identical strings or references are merged identically
+    elsif (_is_identical($left->{$key}, $right->{$key})) {
+      1; # do nothing - keep left
+    }
+    elsif (ref $left->{$key} eq 'HASH' and ref $right->{$key} eq 'HASH') {
+      $left->{$key} = _uniq_map($left->{$key}, $right->{$key}, [ @{$path}, $key ]);
+    }
+    else {
+      croak 'Duplication of element ' . join '.', @{$path}, $key;
+    }
+  }
+  return $left;
+}
+
+sub _improvise {
+  my ($left, $right, $path) = @_;
+  my ($name) = reverse @{$path};
+  if ($name =~ /^x_/) {
+    if (ref($left) eq 'ARRAY') {
+      return _set_addition($left, $right, $path);
+    }
+    elsif (ref($left) eq 'HASH') {
+      return _uniq_map($left, $right, $path);
+    }
+    else {
+      return _identical($left, $right, $path);
+    }
+  }
+  croak sprintf "Can't merge '%s'", join '.', @{$path};
+}
+
+sub _optional_features {
+  my ($left, $right, $path) = @_;
+
+  for my $key (keys %{$right}) {
+    if (not exists $left->{$key}) {
+      $left->{$key} = $right->{$key};
+    }
+    else {
+      for my $subkey (keys %{ $right->{$key} }) {
+        next if $subkey eq 'prereqs';
+        if (not exists $left->{$key}{$subkey}) {
+          $left->{$key}{$subkey} = $right->{$key}{$subkey};
+        }
+        else {
+          Carp::croak "Cannot merge two optional_features named '$key' with different '$subkey' values"
+            if do { no warnings 'uninitialized'; $left->{$key}{$subkey} ne $right->{$key}{$subkey} };
+        }
+      }
+
+      require CPAN::Meta::Prereqs;
+      $left->{$key}{prereqs} =
+        CPAN::Meta::Prereqs->new($left->{$key}{prereqs})
+          ->with_merged_prereqs(CPAN::Meta::Prereqs->new($right->{$key}{prereqs}))
+          ->as_string_hash;
+    }
+  }
+  return $left;
+}
+
+
+my %default = (
+  abstract       => \&_identical,
+  author         => \&_set_addition,
+  dynamic_config => sub {
+    my ($left, $right) = @_;
+    return $left || $right;
+  },
+  generated_by => sub {
+    my ($left, $right) = @_;
+    return join ', ', _uniq(split(/, /, $left), split(/, /, $right));
+  },
+  license     => \&_set_addition,
+  'meta-spec' => {
+    version => \&_identical,
+    url     => \&_identical
+  },
+  name              => \&_identical,
+  release_status    => \&_identical,
+  version           => \&_identical,
+  description       => \&_identical,
+  keywords          => \&_set_addition,
+  no_index          => { map { ($_ => \&_set_addition) } qw/file directory package namespace/ },
+  optional_features => \&_optional_features,
+  prereqs           => sub {
+    require CPAN::Meta::Prereqs;
+    my ($left, $right) = map { CPAN::Meta::Prereqs->new($_) } @_[0,1];
+    return $left->with_merged_prereqs($right)->as_string_hash;
+  },
+  provides  => \&_uniq_map,
+  resources => {
+    license    => \&_set_addition,
+    homepage   => \&_identical,
+    bugtracker => \&_uniq_map,
+    repository => \&_uniq_map,
+    ':default' => \&_improvise,
+  },
+  ':default' => \&_improvise,
+);
+
+sub new {
+  my ($class, %arguments) = @_;
+  croak 'default version required' if not exists $arguments{default_version};
+  my %mapping = %default;
+  my %extra = %{ $arguments{extra_mappings} || {} };
+  for my $key (keys %extra) {
+    if (ref($mapping{$key}) eq 'HASH') {
+      $mapping{$key} = { %{ $mapping{$key} }, %{ $extra{$key} } };
+    }
+    else {
+      $mapping{$key} = $extra{$key};
+    }
+  }
+  return bless {
+    default_version => $arguments{default_version},
+    mapping => _coerce_mapping(\%mapping, []),
+  }, $class;
+}
+
+my %coderef_for = (
+  set_addition => \&_set_addition,
+  uniq_map     => \&_uniq_map,
+  identical    => \&_identical,
+  improvise    => \&_improvise,
+  improvize    => \&_improvise, # [sic] for backwards compatibility
+);
+
+sub _coerce_mapping {
+  my ($orig, $map_path) = @_;
+  my %ret;
+  for my $key (keys %{$orig}) {
+    my $value = $orig->{$key};
+    if (ref($orig->{$key}) eq 'CODE') {
+      $ret{$key} = $value;
+    }
+    elsif (ref($value) eq 'HASH') {
+      my $mapping = _coerce_mapping($value, [ @{$map_path}, $key ]);
+      $ret{$key} = sub {
+        my ($left, $right, $path) = @_;
+        return _merge($left, $right, $mapping, [ @{$path} ]);
+      };
+    }
+    elsif ($coderef_for{$value}) {
+      $ret{$key} = $coderef_for{$value};
+    }
+    else {
+      croak "Don't know what to do with " . join '.', @{$map_path}, $key;
+    }
+  }
+  return \%ret;
+}
+
+sub merge {
+  my ($self, @items) = @_;
+  my $current = {};
+  for my $next (@items) {
+    if ( blessed($next) && $next->isa('CPAN::Meta') ) {
+      $next = $next->as_struct;
+    }
+    elsif ( ref($next) eq 'HASH' ) {
+      my $cmc = CPAN::Meta::Converter->new(
+        $next, default_version => $self->{default_version}
+      );
+      $next = $cmc->upgrade_fragment;
+    }
+    else {
+      croak "Don't know how to merge '$next'";
+    }
+    $current = _merge($current, $next, $self->{mapping}, []);
+  }
+  return $current;
+}
+
+1;
+
+# ABSTRACT: Merging CPAN Meta fragments
+
+
+# vim: ts=2 sts=2 sw=2 et :
+
+__END__
+
+# XXX RULES FOR PATCHING THIS FILE XXX
+# Patches that fix typos or formatting are acceptable.  Patches
+# that change semantics are not acceptable without prior approval
+# by David Golden or Ricardo Signes.
+
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Spec;
+
+our $VERSION = '2.150010';
+
+1;
+
+# ABSTRACT: specification for CPAN distribution metadata
+
+
+# vi:tw=72
+
+__END__
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::LWP::UserAgent;
+use strict;
+use vars qw(@ISA $USER $PASSWD $SETUPDONE);
+use CPAN::HTTP::Credentials;
+# we delay requiring LWP::UserAgent and setting up inheritance until we need it
+
+$CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601";
+
+
+sub config {
+    return if $SETUPDONE;
+    if ($CPAN::META->has_usable('LWP::UserAgent')) {
+        require LWP::UserAgent;
+        @ISA = qw(Exporter LWP::UserAgent); ## no critic
+        $SETUPDONE++;
+    } else {
+        $CPAN::Frontend->mywarn("  LWP::UserAgent not available\n");
+    }
+}
+
+sub get_basic_credentials {
+    my($self, $realm, $uri, $proxy) = @_;
+    if ( $proxy ) {
+        return CPAN::HTTP::Credentials->get_proxy_credentials();
+    } else {
+        return CPAN::HTTP::Credentials->get_non_proxy_credentials();
+    }
+}
+
+sub no_proxy {
+    my ( $self, $no_proxy ) = @_;
+    return $self->SUPER::no_proxy( split(',',$no_proxy) );
+}
+
+# mirror(): Its purpose is to deal with proxy authentication. When we
+# call SUPER::mirror, we really call the mirror method in
+# LWP::UserAgent. LWP::UserAgent will then call
+# $self->get_basic_credentials or some equivalent and this will be
+# $self->dispatched to our own get_basic_credentials method.
+
+# Our own get_basic_credentials sets $USER and $PASSWD, two globals.
+
+# 407 stands for HTTP_PROXY_AUTHENTICATION_REQUIRED. Which means
+# although we have gone through our get_basic_credentials, the proxy
+# server refuses to connect. This could be a case where the username or
+# password has changed in the meantime, so I'm trying once again without
+# $USER and $PASSWD to give the get_basic_credentials routine another
+# chance to set $USER and $PASSWD.
+
+sub mirror {
+    my($self,$url,$aslocal) = @_;
+    my $result = $self->SUPER::mirror($url,$aslocal);
+    if ($result->code == 407) {
+        CPAN::HTTP::Credentials->clear_credentials;
+        $result = $self->SUPER::mirror($url,$aslocal);
+    }
+    $result;
+}
+
+1;
+package App::Cpan;
+
+use strict;
+use warnings;
+use vars qw($VERSION);
+
+use if $] < 5.008 => 'IO::Scalar';
+
+$VERSION = '1.67';
+
+
+use autouse Carp => qw(carp croak cluck);
+use CPAN 1.80 (); # needs no test
+use Config;
+use autouse Cwd => qw(cwd);
+use autouse 'Data::Dumper' => qw(Dumper);
+use File::Spec::Functions;
+use File::Basename;
+use Getopt::Std;
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# Internal constants
+use constant TRUE  => 1;
+use constant FALSE => 0;
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# The return values
+use constant HEY_IT_WORKED              =>   0;
+use constant I_DONT_KNOW_WHAT_HAPPENED  =>   1; # 0b0000_0001
+use constant ITS_NOT_MY_FAULT           =>   2;
+use constant THE_PROGRAMMERS_AN_IDIOT   =>   4;
+use constant A_MODULE_FAILED_TO_INSTALL =>   8;
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# set up the order of options that we layer over CPAN::Shell
+BEGIN { # most of this should be in methods
+use vars qw( @META_OPTIONS $Default %CPAN_METHODS @CPAN_OPTIONS  @option_order
+	%Method_table %Method_table_index );
+
+@META_OPTIONS = qw( h v V I g G M: C A D O l L a r p P j: J w x X );
+
+$Default = 'default';
+
+%CPAN_METHODS = ( # map switches to method names in CPAN::Shell
+	$Default => 'install',
+	'c'      => 'clean',
+	'f'      => 'force',
+	'i'      => 'install',
+	'm'      => 'make',
+	't'      => 'test',
+	'u'      => 'upgrade',
+	'T'      => 'notest',
+	's'      => 'shell',
+	);
+@CPAN_OPTIONS = grep { $_ ne $Default } sort keys %CPAN_METHODS;
+
+@option_order = ( @META_OPTIONS, @CPAN_OPTIONS );
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# map switches to the subroutines in this script, along with other information.
+# use this stuff instead of hard-coded indices and values
+sub NO_ARGS   () { 0 }
+sub ARGS      () { 1 }
+sub GOOD_EXIT () { 0 }
+
+%Method_table = (
+# key => [ sub ref, takes args?, exit value, description ]
+
+	# options that do their thing first, then exit
+	h =>  [ \&_print_help,        NO_ARGS, GOOD_EXIT, 'Printing help'                ],
+	v =>  [ \&_print_version,     NO_ARGS, GOOD_EXIT, 'Printing version'             ],
+	V =>  [ \&_print_details,     NO_ARGS, GOOD_EXIT, 'Printing detailed version'    ],
+	X =>  [ \&_list_all_namespaces, NO_ARGS, GOOD_EXIT, 'Listing all namespaces'      ],
+
+	# options that affect other options
+	j =>  [ \&_load_config,          ARGS, GOOD_EXIT, 'Use specified config file'    ],
+	J =>  [ \&_dump_config,       NO_ARGS, GOOD_EXIT, 'Dump configuration to stdout' ],
+	F =>  [ \&_lock_lobotomy,     NO_ARGS, GOOD_EXIT, 'Turn off CPAN.pm lock files'  ],
+	I =>  [ \&_load_local_lib,    NO_ARGS, GOOD_EXIT, 'Loading local::lib'           ],
+	M =>  [ \&_use_these_mirrors,    ARGS, GOOD_EXIT, 'Setting per session mirrors'  ],
+	P =>  [ \&_find_good_mirrors, NO_ARGS, GOOD_EXIT, 'Finding good mirrors'         ],
+    w =>  [ \&_turn_on_warnings,  NO_ARGS, GOOD_EXIT, 'Turning on warnings'          ],
+
+	# options that do their one thing
+	g =>  [ \&_download,             ARGS, GOOD_EXIT, 'Download the latest distro'        ],
+	G =>  [ \&_gitify,               ARGS, GOOD_EXIT, 'Down and gitify the latest distro' ],
+
+	C =>  [ \&_show_Changes,         ARGS, GOOD_EXIT, 'Showing Changes file'         ],
+	A =>  [ \&_show_Author,          ARGS, GOOD_EXIT, 'Showing Author'               ],
+	D =>  [ \&_show_Details,         ARGS, GOOD_EXIT, 'Showing Details'              ],
+	O =>  [ \&_show_out_of_date,  NO_ARGS, GOOD_EXIT, 'Showing Out of date'          ],
+	l =>  [ \&_list_all_mods,     NO_ARGS, GOOD_EXIT, 'Listing all modules'          ],
+
+	L =>  [ \&_show_author_mods,     ARGS, GOOD_EXIT, 'Showing author mods'          ],
+	a =>  [ \&_create_autobundle, NO_ARGS, GOOD_EXIT, 'Creating autobundle'          ],
+	p =>  [ \&_ping_mirrors,      NO_ARGS, GOOD_EXIT, 'Pinging mirrors'              ],
+
+	r =>  [ \&_recompile,         NO_ARGS, GOOD_EXIT, 'Recompiling'                  ],
+	u =>  [ \&_upgrade,           NO_ARGS, GOOD_EXIT, 'Running `make test`'          ],
+   's' => [ \&_shell,            NO_ARGS, GOOD_EXIT, 'Running `make test`'          ],
+
+   'x' => [ \&_guess_namespace,      ARGS, GOOD_EXIT, 'Guessing namespaces'          ],
+	c =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make clean`'         ],
+	f =>  [ \&_default,              ARGS, GOOD_EXIT, 'Installing with force'        ],
+	i =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make install`'       ],
+   'm' => [ \&_default,              ARGS, GOOD_EXIT, 'Running `make`'               ],
+	t =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make test`'          ],
+	T =>  [ \&_default,              ARGS, GOOD_EXIT, 'Installing with notest'       ],
+	);
+
+%Method_table_index = (
+	code        => 0,
+	takes_args  => 1,
+	exit_value  => 2,
+	description => 3,
+	);
+}
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# finally, do some argument processing
+
+sub _stupid_interface_hack_for_non_rtfmers
+	{
+	no warnings 'uninitialized';
+	shift @ARGV if( $ARGV[0] eq 'install' and @ARGV > 1 )
+	}
+
+sub _process_options
+	{
+	my %options;
+
+	push @ARGV, grep $_, split /\s+/, $ENV{CPAN_OPTS} || '';
+
+	# if no arguments, just drop into the shell
+	if( 0 == @ARGV ) { CPAN::shell(); exit 0 }
+	else
+		{
+		Getopt::Std::getopts(
+		  join( '', @option_order ), \%options );
+		 \%options;
+		}
+	}
+
+sub _process_setup_options
+	{
+	my( $class, $options ) = @_;
+
+	if( $options->{j} )
+		{
+		$Method_table{j}[ $Method_table_index{code} ]->( $options->{j} );
+		delete $options->{j};
+		}
+	else
+		{
+		# this is what CPAN.pm would do otherwise
+		local $CPAN::Be_Silent = 1;
+		CPAN::HandleConfig->load(
+			# be_silent  => 1, deprecated
+			write_file => 0,
+			);
+		}
+
+	$class->_turn_off_testing if $options->{T};
+
+	foreach my $o ( qw(F I w P M) )
+		{
+		next unless exists $options->{$o};
+		$Method_table{$o}[ $Method_table_index{code} ]->( $options->{$o} );
+		delete $options->{$o};
+		}
+
+	if( $options->{o} )
+		{
+		my @pairs = map { [ split /=/, $_, 2 ] } split /,/, $options->{o};
+		foreach my $pair ( @pairs )
+			{
+			my( $setting, $value ) = @$pair;
+			$CPAN::Config->{$setting} = $value;
+		#	$logger->debug( "Setting [$setting] to [$value]" );
+			}
+		delete $options->{o};
+		}
+
+	my $option_count = grep { $options->{$_} } @option_order;
+	no warnings 'uninitialized';
+
+	# don't count options that imply installation
+	foreach my $opt ( qw(f T) ) { # don't count force or notest
+		$option_count -= $options->{$opt};
+		}
+
+	# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+	# if there are no options, set -i (this line fixes RT ticket 16915)
+	$options->{i}++ unless $option_count;
+	}
+
+sub _setup_environment {
+# should we override or set defaults? If this were a true interactive
+# session, we'd be in the CPAN shell.
+
+# https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md
+	$ENV{NONINTERACTIVE_TESTING} = 1 unless defined $ENV{NONINTERACTIVE_TESTING};
+	$ENV{PERL_MM_USE_DEFAULT}    = 1 unless defined $ENV{PERL_MM_USE_DEFAULT};
+	}
+
+
+my $logger;
+
+sub run
+	{
+	my $class = shift;
+
+	my $return_value = HEY_IT_WORKED; # assume that things will work
+
+	$logger = $class->_init_logger;
+	$logger->debug( "Using logger from @{[ref $logger]}" );
+
+	$class->_hook_into_CPANpm_report;
+	$logger->debug( "Hooked into output" );
+
+	$class->_stupid_interface_hack_for_non_rtfmers;
+	$logger->debug( "Patched cargo culting" );
+
+	my $options = $class->_process_options;
+	$logger->debug( "Options are @{[Dumper($options)]}" );
+
+	$class->_process_setup_options( $options );
+
+	$class->_setup_environment( $options );
+
+	OPTION: foreach my $option ( @option_order )
+		{
+		next unless $options->{$option};
+
+		my( $sub, $takes_args, $description ) =
+			map { $Method_table{$option}[ $Method_table_index{$_} ] }
+			qw( code takes_args description );
+
+		unless( ref $sub eq ref sub {} )
+			{
+			$return_value = THE_PROGRAMMERS_AN_IDIOT;
+			last OPTION;
+			}
+
+		$logger->info( "[$option] $description -- ignoring other arguments" )
+			if( @ARGV && ! $takes_args );
+
+		$return_value = $sub->( \ @ARGV, $options );
+
+		last;
+		}
+
+	return $return_value;
+	}
+
+{
+package
+  Local::Null::Logger; # hide from PAUSE
+
+sub new { bless \ my $x, $_[0] }
+sub AUTOLOAD {
+    my $autoload = our $AUTOLOAD;
+    $autoload =~ s/.*://;
+    return if $autoload =~ /^(debug|trace)$/;
+    $CPAN::Frontend->mywarn(">($autoload): $_\n")
+        for split /[\r\n]+/, $_[1];
+}
+sub DESTROY { 1 }
+}
+
+# load a module without searching the default entry for the current
+# directory
+sub _safe_load_module {
+    my $name = shift;
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+
+    eval "require $name; 1";
+}
+
+sub _init_logger
+	{
+	my $log4perl_loaded = _safe_load_module("Log::Log4perl");
+
+    unless( $log4perl_loaded )
+        {
+        print STDOUT "Loading internal logger. Log::Log4perl recommended for better logging\n";
+        $logger = Local::Null::Logger->new;
+        return $logger;
+        }
+
+	my $LEVEL = $ENV{CPANSCRIPT_LOGLEVEL} || 'INFO';
+
+	Log::Log4perl::init( \ <<"HERE" );
+log4perl.rootLogger=$LEVEL, A1
+log4perl.appender.A1=Log::Log4perl::Appender::Screen
+log4perl.appender.A1.layout=PatternLayout
+log4perl.appender.A1.layout.ConversionPattern=%m%n
+HERE
+
+	$logger = Log::Log4perl->get_logger( 'App::Cpan' );
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
+sub _default
+	{
+	my( $args, $options ) = @_;
+
+	my $switch = '';
+
+	# choose the option that we're going to use
+	# we'll deal with 'f' (force) later, so skip it
+	foreach my $option ( @CPAN_OPTIONS )
+		{
+		next if ( $option eq 'f' or $option eq 'T' );
+		next unless $options->{$option};
+		$switch = $option;
+		last;
+		}
+
+	# 1. with no switches, but arguments, use the default switch (install)
+	# 2. with no switches and no args, start the shell
+	# 3. With a switch but no args, die! These switches need arguments.
+	   if( not $switch and     @$args ) { $switch = $Default;  }
+	elsif( not $switch and not @$args ) { return CPAN::shell() }
+	elsif(     $switch and not @$args )
+		{ die "Nothing to $CPAN_METHODS{$switch}!\n"; }
+
+	# Get and check the method from CPAN::Shell
+	my $method = $CPAN_METHODS{$switch};
+	die "CPAN.pm cannot $method!\n" unless CPAN::Shell->can( $method );
+
+	# call the CPAN::Shell method, with force or notest if specified
+	my $action = do {
+		   if( $options->{f} ) { sub { CPAN::Shell->force( $method, @_ )  } }
+		elsif( $options->{T} ) { sub { CPAN::Shell->notest( $method, @_ ) } }
+		else                   { sub { CPAN::Shell->$method( @_ )         } }
+		};
+
+	# How do I handle exit codes for multiple arguments?
+	my @errors = ();
+
+	$options->{x} or _disable_guessers();
+
+	foreach my $arg ( @$args )
+		{
+		# check the argument and perhaps capture typos
+		my $module = _expand_module( $arg ) or do {
+			$logger->error( "Skipping $arg because I couldn't find a matching namespace." );
+			next;
+			};
+
+		_clear_cpanpm_output();
+		$action->( $arg );
+
+		my $error = _cpanpm_output_indicates_failure();
+		push @errors, $error if $error;
+		}
+
+	return do {
+		if( @errors ) { $errors[0] }
+		else { HEY_IT_WORKED }
+		};
+
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
+
+BEGIN {
+my $scalar = '';
+
+sub _hook_into_CPANpm_report
+	{
+	no warnings 'redefine';
+
+	*CPAN::Shell::myprint = sub {
+		my($self,$what) = @_;
+		$scalar .= $what;
+		$self->print_ornamented($what,
+			$CPAN::Config->{colorize_print}||'bold blue on_white',
+			);
+		};
+
+	*CPAN::Shell::mywarn = sub {
+		my($self,$what) = @_;
+		$scalar .= $what;
+		$self->print_ornamented($what,
+			$CPAN::Config->{colorize_warn}||'bold red on_white'
+			);
+		};
+
+	}
+
+sub _clear_cpanpm_output { $scalar = '' }
+
+sub _get_cpanpm_output   { $scalar }
+
+# These are lines I don't care about in CPAN.pm output. If I can
+# filter out the informational noise, I have a better chance to
+# catch the error signal
+my @skip_lines = (
+	qr/^\QWarning \(usually harmless\)/,
+	qr/\bwill not store persistent state\b/,
+	qr(//hint//),
+	qr/^\s+reports\s+/,
+	qr/^Try the command/,
+	qr/^\s+$/,
+	qr/^to find objects/,
+	qr/^\s*Database was generated on/,
+	qr/^Going to read/,
+	qr|^\s+i\s+/|,    # the i /Foo::Whatever/ line when it doesn't know
+	);
+
+sub _get_cpanpm_last_line
+	{
+	my $fh;
+
+	if( $] < 5.008 ) {
+		$fh = IO::Scalar->new( \ $scalar );
+		}
+	else {
+		eval q{ open $fh, '<', \\ $scalar; };
+		}
+
+	my @lines = <$fh>;
+
+    # This is a bit ugly. Once we examine a line, we have to
+    # examine the line before it and go through all of the same
+    # regexes. I could do something fancy, but this works.
+    REGEXES: {
+	foreach my $regex ( @skip_lines )
+		{
+		if( $lines[-1] =~ m/$regex/ )
+            {
+            pop @lines;
+            redo REGEXES; # we have to go through all of them for every line!
+            }
+		}
+	}
+
+    $logger->debug( "Last interesting line of CPAN.pm output is:\n\t$lines[-1]" );
+
+	$lines[-1];
+	}
+}
+
+BEGIN {
+my $epic_fail_words = join '|',
+	qw( Error stop(?:ping)? problems force not unsupported
+		fail(?:ed)? Cannot\s+install );
+
+sub _cpanpm_output_indicates_failure
+	{
+	my $last_line = _get_cpanpm_last_line();
+
+	my $result = $last_line =~ /\b(?:$epic_fail_words)\b/i;
+	return A_MODULE_FAILED_TO_INSTALL if $last_line =~ /\b(?:Cannot\s+install)\b/i;
+
+	$result || ();
+	}
+}
+
+sub _cpanpm_output_indicates_success
+	{
+	my $last_line = _get_cpanpm_last_line();
+
+	my $result = $last_line =~ /\b(?:\s+-- OK|PASS)\b/;
+	$result || ();
+	}
+
+sub _cpanpm_output_is_vague
+	{
+	return FALSE if
+		_cpanpm_output_indicates_failure() ||
+		_cpanpm_output_indicates_success();
+
+	return TRUE;
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+sub _turn_on_warnings {
+	carp "Warnings are implemented yet";
+	return HEY_IT_WORKED;
+	}
+
+sub _turn_off_testing {
+	$logger->debug( 'Trusting test report history' );
+	$CPAN::Config->{trust_test_report_history} = 1;
+	return HEY_IT_WORKED;
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+sub _print_help
+	{
+	$logger->info( "Use perldoc to read the documentation" );
+	exec "perldoc $0";
+	}
+
+sub _print_version # -v
+	{
+	$logger->info(
+		"$0 script version $VERSION, CPAN.pm version " . CPAN->VERSION );
+
+	return HEY_IT_WORKED;
+	}
+
+sub _print_details # -V
+	{
+	_print_version();
+
+	_check_install_dirs();
+
+	$logger->info( '-' x 50 . "\nChecking configured mirrors..." );
+	foreach my $mirror ( @{ $CPAN::Config->{urllist} } ) {
+		_print_ping_report( $mirror );
+		}
+
+	$logger->info( '-' x 50 . "\nChecking for faster mirrors..." );
+
+	{
+	require CPAN::Mirrors;
+
+      if ( $CPAN::Config->{connect_to_internet_ok} ) {
+        $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n});
+        eval { CPAN::FTP->localize('MIRRORED.BY',File::Spec->catfile($CPAN::Config->{keep_source_where},'MIRRORED.BY'),3,1) }
+          or $CPAN::Frontend->mywarn(<<'HERE');
+We failed to get a copy of the mirror list from the Internet.
+You will need to provide CPAN mirror URLs yourself.
+HERE
+        $CPAN::Frontend->myprint("\n");
+      }
+
+	my $mirrors   = CPAN::Mirrors->new( _mirror_file() );
+	my @continents = $mirrors->find_best_continents;
+
+	my @mirrors   = $mirrors->get_mirrors_by_continents( $continents[0] );
+	my @timings   = $mirrors->get_mirrors_timings( \@mirrors );
+
+	foreach my $timing ( @timings ) {
+		$logger->info( sprintf "%s (%0.2f ms)",
+			$timing->hostname, $timing->rtt );
+		}
+	}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _check_install_dirs
+	{
+	my $makepl_arg   = $CPAN::Config->{makepl_arg};
+	my $mbuildpl_arg = $CPAN::Config->{mbuildpl_arg};
+
+	my @custom_dirs;
+	# PERL_MM_OPT
+	push @custom_dirs,
+		$makepl_arg   =~ m/INSTALL_BASE\s*=\s*(\S+)/g,
+		$mbuildpl_arg =~ m/--install_base\s*=\s*(\S+)/g;
+
+	if( @custom_dirs ) {
+		foreach my $dir ( @custom_dirs ) {
+			_print_inc_dir_report( $dir );
+			}
+		}
+
+	# XXX: also need to check makepl_args, etc
+
+	my @checks = (
+		[ 'core',         [ grep $_, @Config{qw(installprivlib installarchlib)}      ] ],
+		[ 'vendor',       [ grep $_, @Config{qw(installvendorlib installvendorarch)} ] ],
+		[ 'site',         [ grep $_, @Config{qw(installsitelib installsitearch)}     ] ],
+		[ 'PERL5LIB',     _split_paths( $ENV{PERL5LIB} ) ],
+		[ 'PERLLIB',      _split_paths( $ENV{PERLLIB} )  ],
+		);
+
+	$logger->info( '-' x 50 . "\nChecking install dirs..." );
+	foreach my $tuple ( @checks ) {
+		my( $label ) = $tuple->[0];
+
+		$logger->info( "Checking $label" );
+		$logger->info( "\tno directories for $label" ) unless @{ $tuple->[1] };
+		foreach my $dir ( @{ $tuple->[1] } ) {
+			_print_inc_dir_report( $dir );
+			}
+		}
+
+	}
+
+sub _split_paths
+	{
+	[ map { _expand_filename( $_ ) } split /$Config{path_sep}/, $_[0] || '' ];
+	}
+
+
+
+sub _expand_filename
+	{
+    my( $path ) = @_;
+    no warnings 'uninitialized';
+    $logger->debug( "Expanding path $path\n" );
+    $path =~ s{\A~([^/]+)?}{
+		_home_of( $1 || $> ) || "~$1"
+    	}e;
+    return $path;
+	}
+
+sub _home_of
+	{
+	require User::pwent;
+    my( $user ) = @_;
+    my $ent = User::pwent::getpw($user) or return;
+    return $ent->dir;
+	}
+
+sub _get_default_inc
+	{
+	require Config;
+
+	[ @Config::Config{ _vars() }, '.' ];
+	}
+
+sub _vars {
+	qw(
+	installarchlib
+	installprivlib
+	installsitearch
+	installsitelib
+	);
+	}
+
+sub _ping_mirrors {
+	my $urls   = $CPAN::Config->{urllist};
+	require URI;
+
+	foreach my $url ( @$urls ) {
+		my( $obj ) = URI->new( $url );
+		next unless _is_pingable_scheme( $obj );
+		my $host = $obj->host;
+		_print_ping_report( $obj );
+		}
+
+	}
+
+sub _is_pingable_scheme {
+	my( $uri ) = @_;
+
+	$uri->scheme eq 'file'
+	}
+
+sub _mirror_file {
+	my $file = do {
+		my $file = 'MIRRORED.BY';
+		my $local_path = File::Spec->catfile(
+			$CPAN::Config->{keep_source_where}, $file );
+
+		if( -e $local_path ) { $local_path }
+		else {
+			require CPAN::FTP;
+			CPAN::FTP->localize( $file, $local_path, 3, 1 );
+			$local_path;
+			}
+		};
+	}
+
+sub _find_good_mirrors {
+	require CPAN::Mirrors;
+
+	my $mirrors = CPAN::Mirrors->new( _mirror_file() );
+
+	my @mirrors = $mirrors->best_mirrors(
+		how_many   => 5,
+		verbose    => 1,
+		);
+
+	foreach my $mirror ( @mirrors ) {
+		next unless eval { $mirror->can( 'http' ) };
+		_print_ping_report( $mirror->http );
+		}
+
+	$CPAN::Config->{urllist} = [
+		map { $_->http } @mirrors
+		];
+	}
+
+sub _print_inc_dir_report
+	{
+	my( $dir ) = shift;
+
+	my $writeable = -w $dir ? '+' : '!!! (not writeable)';
+	$logger->info( "\t$writeable $dir" );
+	return -w $dir;
+	}
+
+sub _print_ping_report
+	{
+	my( $mirror ) = @_;
+
+	my $rtt = eval { _get_ping_report( $mirror ) };
+	my $result = $rtt ? sprintf "+ (%4d ms)", $rtt * 1000 : '!';
+
+	$logger->info(
+		sprintf "\t%s %s", $result, $mirror
+		);
+	}
+
+sub _get_ping_report
+	{
+	require URI;
+	my( $mirror ) = @_;
+	my( $url ) = ref $mirror ? $mirror : URI->new( $mirror ); #XXX
+	require Net::Ping;
+
+	my $ping = Net::Ping->new( 'tcp', 1 );
+
+	if( $url->scheme eq 'file' ) {
+		return -e $url->file;
+		}
+
+    my( $port ) = $url->port;
+
+    return unless $port;
+
+    if ( $ping->can('port_number') ) {
+        $ping->port_number($port);
+    	}
+    else {
+        $ping->{'port_num'} = $port;
+    	}
+
+    $ping->hires(1) if $ping->can( 'hires' );
+    my( $alive, $rtt ) = eval{ $ping->ping( $url->host ) };
+	$alive ? $rtt : undef;
+	}
+
+sub _load_local_lib # -I
+	{
+	$logger->debug( "Loading local::lib" );
+
+	my $rc = _safe_load_module("local::lib");
+	unless( $rc ) {
+		$logger->logdie( "Could not load local::lib" );
+		}
+
+	local::lib->import;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _use_these_mirrors # -M
+	{
+	$logger->debug( "Setting per session mirrors" );
+	unless( $_[0] ) {
+		$logger->logdie( "The -M switch requires a comma-separated list of mirrors" );
+		}
+
+	$CPAN::Config->{urllist} = [ split /,/, $_[0] ];
+
+	$logger->debug( "Mirrors are @{$CPAN::Config->{urllist}}" );
+
+	}
+
+sub _create_autobundle
+	{
+	$logger->info(
+		"Creating autobundle in $CPAN::Config->{cpan_home}/Bundle" );
+
+	CPAN::Shell->autobundle;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _recompile
+	{
+	$logger->info( "Recompiling dynamically-loaded extensions" );
+
+	CPAN::Shell->recompile;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _upgrade
+	{
+	$logger->info( "Upgrading all modules" );
+
+	CPAN::Shell->upgrade();
+
+	return HEY_IT_WORKED;
+	}
+
+sub _shell
+	{
+	$logger->info( "Dropping into shell" );
+
+	CPAN::shell();
+
+	return HEY_IT_WORKED;
+	}
+
+sub _load_config # -j
+	{
+	my $file = shift || '';
+
+	# should I clear out any existing config here?
+	$CPAN::Config = {};
+	delete $INC{'CPAN/Config.pm'};
+	croak( "Config file [$file] does not exist!\n" ) unless -e $file;
+
+	my $rc = eval "require '$file'";
+
+	# CPAN::HandleConfig::require_myconfig_or_config looks for this
+	$INC{'CPAN/MyConfig.pm'} = 'fake out!';
+
+	# CPAN::HandleConfig::load looks for this
+	$CPAN::Config_loaded = 'fake out';
+
+	croak( "Could not load [$file]: $@\n") unless $rc;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _dump_config # -J
+	{
+	my $args = shift;
+	require Data::Dumper;
+
+	my $fh = $args->[0] || \*STDOUT;
+
+	local $Data::Dumper::Sortkeys = 1;
+	my $dd = Data::Dumper->new(
+		[$CPAN::Config],
+		['$CPAN::Config']
+		);
+
+	print $fh $dd->Dump, "\n1;\n__END__\n";
+
+	return HEY_IT_WORKED;
+	}
+
+sub _lock_lobotomy # -F
+	{
+	no warnings 'redefine';
+
+	*CPAN::_flock    = sub { 1 };
+	*CPAN::checklock = sub { 1 };
+
+	return HEY_IT_WORKED;
+	}
+
+sub _download
+	{
+	my $args = shift;
+
+	local $CPAN::DEBUG = 1;
+
+	my %paths;
+
+	foreach my $arg ( @$args ) {
+		$logger->info( "Checking $arg" );
+
+		my $module = _expand_module( $arg ) or next;
+		my $path = $module->cpan_file;
+
+		$logger->debug( "Inst file would be $path\n" );
+
+		$paths{$arg} = _get_file( _make_path( $path ) );
+
+		$logger->info( "Downloaded [$arg] to [$paths{$module}]" );
+		}
+
+	return \%paths;
+	}
+
+sub _make_path { join "/", qw(authors id), $_[0] }
+
+sub _get_file
+	{
+	my $path = shift;
+
+	my $loaded = _safe_load_module("LWP::Simple");
+	croak "You need LWP::Simple to use features that fetch files from CPAN\n"
+		unless $loaded;
+
+	my $file = substr $path, rindex( $path, '/' ) + 1;
+	my $store_path = catfile( cwd(), $file );
+	$logger->debug( "Store path is $store_path" );
+
+	foreach my $site ( @{ $CPAN::Config->{urllist} } )
+		{
+		my $fetch_path = join "/", $site, $path;
+		$logger->debug( "Trying $fetch_path" );
+	    last if LWP::Simple::getstore( $fetch_path, $store_path );
+		}
+
+	return $store_path;
+	}
+
+sub _gitify
+	{
+	my $args = shift;
+
+	my $loaded = _safe_load_module("Archive::Extract");
+	croak "You need Archive::Extract to use features that gitify distributions\n"
+		unless $loaded;
+
+	my $starting_dir = cwd();
+
+	foreach my $arg ( @$args )
+		{
+		$logger->info( "Checking $arg" );
+		my $store_paths = _download( [ $arg ] );
+		$logger->debug( "gitify Store path is $store_paths->{$arg}" );
+		my $dirname = dirname( $store_paths->{$arg} );
+
+		my $ae = Archive::Extract->new( archive => $store_paths->{$arg} );
+		$ae->extract( to => $dirname );
+
+		chdir $ae->extract_path;
+
+		my $git = $ENV{GIT_COMMAND} || '/usr/local/bin/git';
+		croak "Could not find $git"    unless -e $git;
+		croak "$git is not executable" unless -x $git;
+
+		# can we do this in Pure Perl?
+		system( $git, 'init'    );
+		system( $git, qw( add . ) );
+		system( $git, qw( commit -a -m ), 'initial import' );
+		}
+
+	chdir $starting_dir;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Changes
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		$logger->info( "Checking $arg\n" );
+
+		my $module = _expand_module( $arg ) or next;
+
+		my $out = _get_cpanpm_output();
+
+		next unless eval { $module->inst_file };
+		#next if $module->uptodate;
+
+		( my $id = $module->id() ) =~ s/::/\-/;
+
+		my $url = "http://search.cpan.org/~" . lc( $module->userid ) . "/" .
+			$id . "-" . $module->cpan_version() . "/";
+
+		#print "URL: $url\n";
+		_get_changes_file($url);
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _get_changes_file
+	{
+	croak "Reading Changes files requires LWP::Simple and URI\n"
+		unless _safe_load_module("LWP::Simple") && _safe_load_module("URI");
+
+    my $url = shift;
+
+    my $content = LWP::Simple::get( $url );
+    $logger->info( "Got $url ..." ) if defined $content;
+	#print $content;
+
+	my( $change_link ) = $content =~ m|<a href="(.*?)">Changes</a>|gi;
+
+	my $changes_url = URI->new_abs( $change_link, $url );
+ 	$logger->debug( "Change link is: $changes_url" );
+
+	my $changes =  LWP::Simple::get( $changes_url );
+
+	print $changes;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Author
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		my $module = _expand_module( $arg ) or next;
+
+		unless( $module )
+			{
+			$logger->info( "Didn't find a $arg module, so no author!" );
+			next;
+			}
+
+		my $author = CPAN::Shell->expand( "Author", $module->userid );
+
+		next unless $module->userid;
+
+		printf "%-25s %-8s %-25s %s\n",
+			$arg, $module->userid, $author->email, $author->name;
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Details
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		my $module = _expand_module( $arg ) or next;
+		my $author = CPAN::Shell->expand( "Author", $module->userid );
+
+		next unless $module->userid;
+
+		print "$arg\n", "-" x 73, "\n\t";
+		print join "\n\t",
+			$module->description ? $module->description : "(no description)",
+			$module->cpan_file ? $module->cpan_file : "(no cpanfile)",
+			$module->inst_file ? $module->inst_file :"(no installation file)" ,
+			'Installed: ' . ($module->inst_version ? $module->inst_version : "not installed"),
+			'CPAN:      ' . $module->cpan_version . '  ' .
+				($module->uptodate ? "" : "Not ") . "up to date",
+			$author->fullname . " (" . $module->userid . ")",
+			$author->email;
+		print "\n\n";
+
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+BEGIN {
+my $modules;
+sub _get_all_namespaces
+	{
+	return $modules if $modules;
+	$modules = [ map { $_->id } CPAN::Shell->expand( "Module", "/./" ) ];
+	}
+}
+
+sub _show_out_of_date
+	{
+	my $modules = _get_all_namespaces();
+
+	printf "%-40s  %6s  %6s\n", "Module Name", "Local", "CPAN";
+	print "-" x 73, "\n";
+
+	foreach my $module ( @$modules )
+		{
+                next unless $module = _expand_module($module);
+                next unless $module->inst_file;
+		next if $module->uptodate;
+		printf "%-40s  %.4f  %.4f\n",
+			$module->id,
+			$module->inst_version ? $module->inst_version : '',
+			$module->cpan_version;
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_author_mods
+	{
+	my $args = shift;
+
+	my %hash = map { lc $_, 1 } @$args;
+
+	my $modules = _get_all_namespaces();
+
+	foreach my $module ( @$modules ) {
+		next unless exists $hash{ lc $module->userid };
+		print $module->id, "\n";
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _list_all_mods # -l
+	{
+	require File::Find;
+
+	my $args = shift;
+
+
+	my $fh = \*STDOUT;
+
+	INC: foreach my $inc ( @INC )
+		{
+		my( $wanted, $reporter ) = _generator();
+		File::Find::find( { wanted => $wanted }, $inc );
+
+		my $count = 0;
+		FILE: foreach my $file ( @{ $reporter->() } )
+			{
+			my $version = _parse_version_safely( $file );
+
+			my $module_name = _path_to_module( $inc, $file );
+			next FILE unless defined $module_name;
+
+			print $fh "$module_name\t$version\n";
+
+			#last if $count++ > 5;
+			}
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _generator
+	{
+	my @files = ();
+
+	sub { push @files,
+		File::Spec->canonpath( $File::Find::name )
+		if m/\A\w+\.pm\z/ },
+	sub { \@files },
+	}
+
+sub _parse_version_safely # stolen from PAUSE's mldistwatch, but refactored
+	{
+	my( $file ) = @_;
+
+	local $/ = "\n";
+	local $_; # don't mess with the $_ in the map calling this
+
+	return unless open FILE, "<$file";
+
+	my $in_pod = 0;
+	my $version;
+	while( <FILE> )
+		{
+		chomp;
+		$in_pod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $in_pod;
+		next if $in_pod || /^\s*#/;
+
+		next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
+		my( $sigil, $var ) = ( $1, $2 );
+
+		$version = _eval_version( $_, $sigil, $var );
+		last;
+		}
+	close FILE;
+
+	return 'undef' unless defined $version;
+
+	return $version;
+	}
+
+sub _eval_version
+	{
+	my( $line, $sigil, $var ) = @_;
+
+        # split package line to hide from PAUSE
+	my $eval = qq{
+		package
+                  ExtUtils::MakeMaker::_version;
+
+		local $sigil$var;
+		\$$var=undef; do {
+			$line
+			}; \$$var
+		};
+
+	my $version = do {
+		local $^W = 0;
+		no strict;
+		eval( $eval );
+		};
+
+	return $version;
+	}
+
+sub _path_to_module
+	{
+	my( $inc, $path ) = @_;
+	return if length $path < length $inc;
+
+	my $module_path = substr( $path, length $inc );
+	$module_path =~ s/\.pm\z//;
+
+	# XXX: this is cheating and doesn't handle everything right
+	my @dirs = grep { ! /\W/ } File::Spec->splitdir( $module_path );
+	shift @dirs;
+
+	my $module_name = join "::", @dirs;
+
+	return $module_name;
+	}
+
+
+sub _expand_module
+	{
+	my( $module ) = @_;
+
+	my $expanded = CPAN::Shell->expandany( $module );
+        return $expanded if $expanded;
+        $expanded = CPAN::Shell->expand( "Module", $module );
+	unless( defined $expanded ) {
+		$logger->error( "Could not expand [$module]. Check the module name." );
+		my $threshold = (
+			grep { int }
+			sort { length $a <=> length $b }
+				length($module)/4, 4
+			)[0];
+
+		my $guesses = _guess_at_module_name( $module, $threshold );
+		if( defined $guesses and @$guesses ) {
+			$logger->info( "Perhaps you meant one of these:" );
+			foreach my $guess ( @$guesses ) {
+				$logger->info( "\t$guess" );
+				}
+			}
+		return;
+		}
+
+	return $expanded;
+	}
+
+my $guessers = [
+	[ qw( Text::Levenshtein::XS distance 7 1 ) ],
+	[ qw( Text::Levenshtein::Damerau::XS     xs_edistance 7 1 ) ],
+
+	[ qw( Text::Levenshtein     distance 7 1 ) ],
+	[ qw( Text::Levenshtein::Damerau::PP     pp_edistance 7 1 ) ],
+
+	];
+
+sub _disable_guessers
+	{
+	$_->[-1] = 0 for @$guessers;
+	}
+
+# for -x
+sub _guess_namespace
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		$logger->debug( "Checking $arg" );
+		my $guesses = _guess_at_module_name( $arg );
+
+		foreach my $guess ( @$guesses ) {
+			print $guess, "\n";
+			}
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _list_all_namespaces {
+	my $modules = _get_all_namespaces();
+
+	foreach my $module ( @$modules ) {
+		print $module, "\n";
+		}
+	}
+
+BEGIN {
+my $distance;
+my $_threshold;
+my $can_guess;
+my $shown_help = 0;
+sub _guess_at_module_name
+	{
+	my( $target, $threshold ) = @_;
+
+	unless( defined $distance ) {
+		foreach my $try ( @$guessers ) {
+			$can_guess = eval "require $try->[0]; 1" or next;
+
+			$try->[-1] or next; # disabled
+			no strict 'refs';
+			$distance = \&{ join "::", @$try[0,1] };
+			$threshold ||= $try->[2];
+			}
+		}
+	$_threshold ||= $threshold;
+
+	unless( $distance ) {
+		unless( $shown_help ) {
+			my $modules = join ", ", map { $_->[0] } @$guessers;
+			substr $modules, rindex( $modules, ',' ), 1, ', and';
+
+			# Should this be colorized?
+			if( $can_guess ) {
+				$logger->info( "I can suggest names if you provide the -x option on invocation." );
+				}
+			else {
+				$logger->info( "I can suggest names if you install one of $modules" );
+				$logger->info( "and you provide the -x option on invocation." );
+				}
+			$shown_help++;
+			}
+		return;
+		}
+
+	my $modules = _get_all_namespaces();
+	$logger->info( "Checking " . @$modules . " namespaces for close match suggestions" );
+
+	my %guesses;
+	foreach my $guess ( @$modules ) {
+		my $distance = $distance->( $target, $guess );
+		next if $distance > $_threshold;
+		$guesses{$guess} = $distance;
+		}
+
+	my @guesses = sort { $guesses{$a} <=> $guesses{$b} } keys %guesses;
+	return [ grep { defined } @guesses[0..9] ];
+	}
+}
+
+1;
+
+package App::Prove;
+
+use strict;
+use warnings;
+
+use TAP::Harness::Env;
+use Text::ParseWords qw(shellwords);
+use File::Spec;
+use Getopt::Long;
+use App::Prove::State;
+use Carp;
+
+use base 'TAP::Object';
+
+
+our $VERSION = '3.42';
+
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => $^O eq 'VMS';
+use constant IS_UNIXY => !( IS_VMS || IS_WIN32 );
+
+use constant STATE_FILE => IS_UNIXY ? '.prove'   : '_prove';
+use constant RC_FILE    => IS_UNIXY ? '.proverc' : '_proverc';
+
+use constant PLUGINS => 'App::Prove::Plugin';
+
+my @ATTR;
+
+BEGIN {
+    @ATTR = qw(
+      archive argv blib show_count color directives exec failures comments
+      formatter harness includes modules plugins jobs lib merge parse quiet
+      really_quiet recurse backwards shuffle taint_fail taint_warn timer
+      verbose warnings_fail warnings_warn show_help show_man show_version
+      state_class test_args state dry extensions ignore_exit rules state_manager
+      normalize sources tapversion trap
+      statefile
+    );
+    __PACKAGE__->mk_methods(@ATTR);
+}
+
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+    my $args = shift || {};
+
+    my @is_array = qw(
+      argv rc_opts includes modules state plugins rules sources
+    );
+
+    # setup defaults:
+    for my $key (@is_array) {
+        $self->{$key} = [];
+    }
+
+    for my $attr (@ATTR) {
+        if ( exists $args->{$attr} ) {
+
+            # TODO: Some validation here
+            $self->{$attr} = $args->{$attr};
+        }
+    }
+
+    $self->state_class('App::Prove::State');
+    return $self;
+}
+
+
+
+sub add_rc_file {
+    my ( $self, $rc_file ) = @_;
+
+    local *RC;
+    open RC, "<$rc_file" or croak "Can't read $rc_file ($!)";
+    while ( defined( my $line = <RC> ) ) {
+        push @{ $self->{rc_opts} },
+          grep { defined and not /^#/ }
+          $line =~ m{ ' ([^']*) ' | " ([^"]*) " | (\#.*) | (\S+) }xg;
+    }
+    close RC;
+}
+
+
+sub process_args {
+    my $self = shift;
+
+    my @rc = RC_FILE;
+    unshift @rc, glob '~/' . RC_FILE if IS_UNIXY;
+
+    # Preprocess meta-args.
+    my @args;
+    while ( defined( my $arg = shift ) ) {
+        if ( $arg eq '--norc' ) {
+            @rc = ();
+        }
+        elsif ( $arg eq '--rc' ) {
+            defined( my $rc = shift )
+              or croak "Missing argument to --rc";
+            push @rc, $rc;
+        }
+        elsif ( $arg =~ m{^--rc=(.+)$} ) {
+            push @rc, $1;
+        }
+        else {
+            push @args, $arg;
+        }
+    }
+
+    # Everything after the arisdottle '::' gets passed as args to
+    # test programs.
+    if ( defined( my $stop_at = _first_pos( '::', @args ) ) ) {
+        my @test_args = splice @args, $stop_at;
+        shift @test_args;
+        $self->{test_args} = \@test_args;
+    }
+
+    # Grab options from RC files
+    $self->add_rc_file($_) for grep -f, @rc;
+    unshift @args, @{ $self->{rc_opts} };
+
+    if ( my @bad = map {"-$_"} grep {/^-(man|help)$/} @args ) {
+        die "Long options should be written with two dashes: ",
+          join( ', ', @bad ), "\n";
+    }
+
+    # And finally...
+
+    {
+        local @ARGV = @args;
+        Getopt::Long::Configure(qw(no_ignore_case bundling pass_through));
+
+        # Don't add coderefs to GetOptions
+        GetOptions(
+            'v|verbose'  => \$self->{verbose},
+            'f|failures' => \$self->{failures},
+            'o|comments' => \$self->{comments},
+            'l|lib'      => \$self->{lib},
+            'b|blib'     => \$self->{blib},
+            's|shuffle'  => \$self->{shuffle},
+            'color!'     => \$self->{color},
+            'colour!'    => \$self->{color},
+            'count!'     => \$self->{show_count},
+            'c'          => \$self->{color},
+            'D|dry'      => \$self->{dry},
+            'ext=s@'     => sub {
+                my ( $opt, $val ) = @_;
+
+                # Workaround for Getopt::Long 2.25 handling of
+                # multivalue options
+                push @{ $self->{extensions} ||= [] }, $val;
+            },
+            'harness=s'    => \$self->{harness},
+            'ignore-exit'  => \$self->{ignore_exit},
+            'source=s@'    => $self->{sources},
+            'formatter=s'  => \$self->{formatter},
+            'r|recurse'    => \$self->{recurse},
+            'reverse'      => \$self->{backwards},
+            'p|parse'      => \$self->{parse},
+            'q|quiet'      => \$self->{quiet},
+            'Q|QUIET'      => \$self->{really_quiet},
+            'e|exec=s'     => \$self->{exec},
+            'm|merge'      => \$self->{merge},
+            'I=s@'         => $self->{includes},
+            'M=s@'         => $self->{modules},
+            'P=s@'         => $self->{plugins},
+            'state=s@'     => $self->{state},
+            'statefile=s'  => \$self->{statefile},
+            'directives'   => \$self->{directives},
+            'h|help|?'     => \$self->{show_help},
+            'H|man'        => \$self->{show_man},
+            'V|version'    => \$self->{show_version},
+            'a|archive=s'  => \$self->{archive},
+            'j|jobs=i'     => \$self->{jobs},
+            'timer'        => \$self->{timer},
+            'T'            => \$self->{taint_fail},
+            't'            => \$self->{taint_warn},
+            'W'            => \$self->{warnings_fail},
+            'w'            => \$self->{warnings_warn},
+            'normalize'    => \$self->{normalize},
+            'rules=s@'     => $self->{rules},
+            'tapversion=s' => \$self->{tapversion},
+            'trap'         => \$self->{trap},
+        ) or croak('Unable to continue');
+
+        # Stash the remainder of argv for later
+        $self->{argv} = [@ARGV];
+    }
+
+    return;
+}
+
+sub _first_pos {
+    my $want = shift;
+    for ( 0 .. $#_ ) {
+        return $_ if $_[$_] eq $want;
+    }
+    return;
+}
+
+sub _help {
+    my ( $self, $verbosity ) = @_;
+
+    eval('use Pod::Usage 1.12 ()');
+    if ( my $err = $@ ) {
+        die 'Please install Pod::Usage for the --help option '
+          . '(or try `perldoc prove`.)'
+          . "\n ($@)";
+    }
+
+    Pod::Usage::pod2usage( { -verbose => $verbosity } );
+
+    return;
+}
+
+sub _color_default {
+    my $self = shift;
+
+    return -t STDOUT && !$ENV{HARNESS_NOTTY};
+}
+
+sub _get_args {
+    my $self = shift;
+
+    my %args;
+
+    $args{trap} = 1 if $self->trap;
+
+    if ( defined $self->color ? $self->color : $self->_color_default ) {
+        $args{color} = 1;
+    }
+    if ( !defined $self->show_count ) {
+        $args{show_count} = 1;
+    }
+    else {
+        $args{show_count} = $self->show_count;
+    }
+
+    if ( $self->archive ) {
+        $self->require_harness( archive => 'TAP::Harness::Archive' );
+        $args{archive} = $self->archive;
+    }
+
+    if ( my $jobs = $self->jobs ) {
+        $args{jobs} = $jobs;
+    }
+
+    if ( my $harness_opt = $self->harness ) {
+        $self->require_harness( harness => $harness_opt );
+    }
+
+    if ( my $formatter = $self->formatter ) {
+        $args{formatter_class} = $formatter;
+    }
+
+    for my $handler ( @{ $self->sources } ) {
+        my ( $name, $config ) = $self->_parse_source($handler);
+        $args{sources}->{$name} = $config;
+    }
+
+    if ( $self->ignore_exit ) {
+        $args{ignore_exit} = 1;
+    }
+
+    if ( $self->taint_fail && $self->taint_warn ) {
+        die '-t and -T are mutually exclusive';
+    }
+
+    if ( $self->warnings_fail && $self->warnings_warn ) {
+        die '-w and -W are mutually exclusive';
+    }
+
+    for my $a (qw( lib switches )) {
+        my $method = "_get_$a";
+        my $val    = $self->$method();
+        $args{$a} = $val if defined $val;
+    }
+
+    # Handle verbose, quiet, really_quiet flags
+    my %verb_map = ( verbose => 1, quiet => -1, really_quiet => -2, );
+
+    my @verb_adj = grep {$_} map { $self->$_() ? $verb_map{$_} : 0 }
+      keys %verb_map;
+
+    die "Only one of verbose, quiet or really_quiet should be specified\n"
+      if @verb_adj > 1;
+
+    $args{verbosity} = shift @verb_adj || 0;
+
+    for my $a (qw( merge failures comments timer directives normalize )) {
+        $args{$a} = 1 if $self->$a();
+    }
+
+    $args{errors} = 1 if $self->parse;
+
+    # defined but zero-length exec runs test files as binaries
+    $args{exec} = [ split( /\s+/, $self->exec ) ]
+      if ( defined( $self->exec ) );
+
+    $args{version} = $self->tapversion if defined( $self->tapversion );
+
+    if ( defined( my $test_args = $self->test_args ) ) {
+        $args{test_args} = $test_args;
+    }
+
+    if ( @{ $self->rules } ) {
+        my @rules;
+        for ( @{ $self->rules } ) {
+            if (/^par=(.*)/) {
+                push @rules, $1;
+            }
+            elsif (/^seq=(.*)/) {
+                push @rules, { seq => $1 };
+            }
+        }
+        $args{rules} = { par => [@rules] };
+    }
+    $args{harness_class} = $self->{harness_class} if $self->{harness_class};
+
+    return \%args;
+}
+
+sub _find_module {
+    my ( $self, $class, @search ) = @_;
+
+    croak "Bad module name $class"
+      unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;
+
+    for my $pfx (@search) {
+        my $name = join( '::', $pfx, $class );
+        eval "require $name";
+        return $name unless $@;
+    }
+
+    eval "require $class";
+    return $class unless $@;
+    return;
+}
+
+sub _load_extension {
+    my ( $self, $name, @search ) = @_;
+
+    my @args = ();
+    if ( $name =~ /^(.*?)=(.*)/ ) {
+        $name = $1;
+        @args = split( /,/, $2 );
+    }
+
+    if ( my $class = $self->_find_module( $name, @search ) ) {
+        $class->import(@args);
+        if ( $class->can('load') ) {
+            $class->load( { app_prove => $self, args => [@args] } );
+        }
+    }
+    else {
+        croak "Can't load module $name";
+    }
+}
+
+sub _load_extensions {
+    my ( $self, $ext, @search ) = @_;
+    $self->_load_extension( $_, @search ) for @$ext;
+}
+
+sub _parse_source {
+    my ( $self, $handler ) = @_;
+
+    # Load any options.
+    ( my $opt_name = lc $handler ) =~ s/::/-/g;
+    local @ARGV = @{ $self->{argv} };
+    my %config;
+    Getopt::Long::GetOptions(
+        "$opt_name-option=s%" => sub {
+            my ( $name, $k, $v ) = @_;
+            if ( $v =~ /(?<!\\)=/ ) {
+
+                # It's a hash option.
+                croak "Option $name must be consistently used as a hash"
+                  if exists $config{$k} && ref $config{$k} ne 'HASH';
+                $config{$k} ||= {};
+                my ( $hk, $hv ) = split /(?<!\\)=/, $v, 2;
+                $config{$k}{$hk} = $hv;
+            }
+            else {
+                $v =~ s/\\=/=/g;
+                if ( exists $config{$k} ) {
+                    $config{$k} = [ $config{$k} ]
+                      unless ref $config{$k} eq 'ARRAY';
+                    push @{ $config{$k} } => $v;
+                }
+                else {
+                    $config{$k} = $v;
+                }
+            }
+        }
+    );
+    $self->{argv} = \@ARGV;
+    return ( $handler, \%config );
+}
+
+
+sub run {
+    my $self = shift;
+
+    unless ( $self->state_manager ) {
+        $self->state_manager(
+            $self->state_class->new( { store => $self->statefile || STATE_FILE } ) );
+    }
+
+    if ( $self->show_help ) {
+        $self->_help(1);
+    }
+    elsif ( $self->show_man ) {
+        $self->_help(2);
+    }
+    elsif ( $self->show_version ) {
+        $self->print_version;
+    }
+    elsif ( $self->dry ) {
+        print "$_\n" for $self->_get_tests;
+    }
+    else {
+
+        $self->_load_extensions( $self->modules );
+        $self->_load_extensions( $self->plugins, PLUGINS );
+
+        local $ENV{TEST_VERBOSE} = 1 if $self->verbose;
+
+        return $self->_runtests( $self->_get_args, $self->_get_tests );
+    }
+
+    return 1;
+}
+
+sub _get_tests {
+    my $self = shift;
+
+    my $state = $self->state_manager;
+    my $ext   = $self->extensions;
+    $state->extensions($ext) if defined $ext;
+    if ( defined( my $state_switch = $self->state ) ) {
+        $state->apply_switch(@$state_switch);
+    }
+
+    my @tests = $state->get_tests( $self->recurse, @{ $self->argv } );
+
+    $self->_shuffle(@tests) if $self->shuffle;
+    @tests = reverse @tests if $self->backwards;
+
+    return @tests;
+}
+
+sub _runtests {
+    my ( $self, $args, @tests ) = @_;
+    my $harness = TAP::Harness::Env->create($args);
+
+    my $state = $self->state_manager;
+
+    $harness->callback(
+        after_test => sub {
+            $state->observe_test(@_);
+        }
+    );
+
+    $harness->callback(
+        after_runtests => sub {
+            $state->commit(@_);
+        }
+    );
+
+    my $aggregator = $harness->runtests(@tests);
+
+    return !$aggregator->has_errors;
+}
+
+sub _get_switches {
+    my $self = shift;
+    my @switches;
+
+    # notes that -T or -t must be at the front of the switches!
+    if ( $self->taint_fail ) {
+        push @switches, '-T';
+    }
+    elsif ( $self->taint_warn ) {
+        push @switches, '-t';
+    }
+    if ( $self->warnings_fail ) {
+        push @switches, '-W';
+    }
+    elsif ( $self->warnings_warn ) {
+        push @switches, '-w';
+    }
+
+    return @switches ? \@switches : ();
+}
+
+sub _get_lib {
+    my $self = shift;
+    my @libs;
+    if ( $self->lib ) {
+        push @libs, 'lib';
+    }
+    if ( $self->blib ) {
+        push @libs, 'blib/lib', 'blib/arch';
+    }
+    if ( @{ $self->includes } ) {
+        push @libs, @{ $self->includes };
+    }
+
+    #24926
+    @libs = map { File::Spec->rel2abs($_) } @libs;
+
+    # Huh?
+    return @libs ? \@libs : ();
+}
+
+sub _shuffle {
+    my $self = shift;
+
+    # Fisher-Yates shuffle
+    my $i = @_;
+    while ($i) {
+        my $j = rand $i--;
+        @_[ $i, $j ] = @_[ $j, $i ];
+    }
+    return;
+}
+
+
+sub require_harness {
+    my ( $self, $for, $class ) = @_;
+
+    my ($class_name) = $class =~ /^(\w+(?:::\w+)*)/;
+
+    # Emulate Perl's -MModule=arg1,arg2 behaviour
+    $class =~ s!^(\w+(?:::\w+)*)=(.*)$!$1 split(/,/,q{$2})!;
+
+    eval("use $class;");
+    die "$class_name is required to use the --$for feature: $@" if $@;
+
+    $self->{harness_class} = $class_name;
+
+    return;
+}
+
+
+sub print_version {
+    my $self = shift;
+    require TAP::Harness;
+    printf(
+        "TAP::Harness v%s and Perl v%vd\n",
+        $TAP::Harness::VERSION, $^V
+    );
+
+    return;
+}
+
+1;
+
+# vim:ts=4:sw=4:et:sta
+
+__END__
+
+package App::Prove::State;
+
+use strict;
+use warnings;
+
+use File::Find;
+use File::Spec;
+use Carp;
+
+use App::Prove::State::Result;
+use TAP::Parser::YAMLish::Reader ();
+use TAP::Parser::YAMLish::Writer ();
+use base 'TAP::Base';
+
+BEGIN {
+    __PACKAGE__->mk_methods('result_class');
+}
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant NEED_GLOB => IS_WIN32;
+
+
+our $VERSION = '3.42';
+
+
+
+# override TAP::Base::new:
+sub new {
+    my $class = shift;
+    my %args = %{ shift || {} };
+
+    my $self = bless {
+        select     => [],
+        seq        => 1,
+        store      => delete $args{store},
+        extensions => ( delete $args{extensions} || ['.t'] ),
+        result_class =>
+          ( delete $args{result_class} || 'App::Prove::State::Result' ),
+    }, $class;
+
+    $self->{_} = $self->result_class->new(
+        {   tests      => {},
+            generation => 1,
+        }
+    );
+    my $store = $self->{store};
+    $self->load($store)
+      if defined $store && -f $store;
+
+    return $self;
+}
+
+
+
+sub extensions {
+    my $self = shift;
+    $self->{extensions} = shift if @_;
+    return $self->{extensions};
+}
+
+
+sub results {
+    my $self = shift;
+    $self->{_} || $self->result_class->new;
+}
+
+
+sub commit {
+    my $self = shift;
+    if ( $self->{should_save} ) {
+        $self->save;
+    }
+}
+
+
+sub apply_switch {
+    my $self = shift;
+    my @opts = @_;
+
+    my $last_gen      = $self->results->generation - 1;
+    my $last_run_time = $self->results->last_run_time;
+    my $now           = $self->get_time;
+
+    my @switches = map { split /,/ } @opts;
+
+    my %handler = (
+        last => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->generation >= $last_gen },
+                order => sub { $_->sequence }
+            );
+        },
+        failed => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->result != 0 },
+                order => sub { -$_->result }
+            );
+        },
+        passed => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->result == 0 }
+            );
+        },
+        all => sub {
+            $self->_select( limit => shift );
+        },
+        todo => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->num_todo != 0 },
+                order => sub { -$_->num_todo; }
+            );
+        },
+        hot => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { defined $_->last_fail_time },
+                order => sub { $now - $_->last_fail_time }
+            );
+        },
+        slow => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { -$_->elapsed }
+            );
+        },
+        fast => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { $_->elapsed }
+            );
+        },
+        new => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { -$_->mtime }
+            );
+        },
+        old => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { $_->mtime }
+            );
+        },
+        fresh => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->mtime >= $last_run_time }
+            );
+        },
+        save => sub {
+            $self->{should_save}++;
+        },
+        adrian => sub {
+            unshift @switches, qw( hot all save );
+        },
+    );
+
+    while ( defined( my $ele = shift @switches ) ) {
+        my ( $opt, $arg )
+          = ( $ele =~ /^([^:]+):(.*)/ )
+          ? ( $1, $2 )
+          : ( $ele, undef );
+        my $code = $handler{$opt}
+          || croak "Illegal state option: $opt";
+        $code->($arg);
+    }
+    return;
+}
+
+sub _select {
+    my ( $self, %spec ) = @_;
+    push @{ $self->{select} }, \%spec;
+}
+
+
+sub get_tests {
+    my $self    = shift;
+    my $recurse = shift;
+    my @argv    = @_;
+    my %seen;
+
+    my @selected = $self->_query;
+
+    unless ( @argv || @{ $self->{select} } ) {
+        @argv = $recurse ? '.' : 't';
+        croak qq{No tests named and '@argv' directory not found}
+          unless -d $argv[0];
+    }
+
+    push @selected, $self->_get_raw_tests( $recurse, @argv ) if @argv;
+    return grep { !$seen{$_}++ } @selected;
+}
+
+sub _query {
+    my $self = shift;
+    if ( my @sel = @{ $self->{select} } ) {
+        warn "No saved state, selection will be empty\n"
+          unless $self->results->num_tests;
+        return map { $self->_query_clause($_) } @sel;
+    }
+    return;
+}
+
+sub _query_clause {
+    my ( $self, $clause ) = @_;
+    my @got;
+    my $results = $self->results;
+    my $where = $clause->{where} || sub {1};
+
+    # Select
+    for my $name ( $results->test_names ) {
+        next unless -f $name;
+        local $_ = $results->test($name);
+        push @got, $name if $where->();
+    }
+
+    # Sort
+    if ( my $order = $clause->{order} ) {
+        @got = map { $_->[0] }
+          sort {
+                 ( defined $b->[1] <=> defined $a->[1] )
+              || ( ( $a->[1] || 0 ) <=> ( $b->[1] || 0 ) )
+          } map {
+            [   $_,
+                do { local $_ = $results->test($_); $order->() }
+            ]
+          } @got;
+    }
+
+    if ( my $limit = $clause->{limit} ) {
+        @got = splice @got, 0, $limit if @got > $limit;
+    }
+
+    return @got;
+}
+
+sub _get_raw_tests {
+    my $self    = shift;
+    my $recurse = shift;
+    my @argv    = @_;
+    my @tests;
+
+    # Do globbing on Win32.
+    if (NEED_GLOB) {
+        eval "use File::Glob::Windows";    # [49732]
+        @argv = map { glob "$_" } @argv;
+    }
+    my $extensions = $self->{extensions};
+
+    for my $arg (@argv) {
+        if ( '-' eq $arg ) {
+            push @argv => <STDIN>;
+            chomp(@argv);
+            next;
+        }
+
+        push @tests,
+            sort -d $arg
+          ? $recurse
+              ? $self->_expand_dir_recursive( $arg, $extensions )
+              : map { glob( File::Spec->catfile( $arg, "*$_" ) ) }
+              @{$extensions}
+          : $arg;
+    }
+    return @tests;
+}
+
+sub _expand_dir_recursive {
+    my ( $self, $dir, $extensions ) = @_;
+
+    my @tests;
+    my $ext_string = join( '|', map {quotemeta} @{$extensions} );
+
+    find(
+        {   follow      => 1,      #21938
+            follow_skip => 2,
+            wanted      => sub {
+                -f 
+                  && /(?:$ext_string)$/
+                  && push @tests => $File::Find::name;
+              }
+        },
+        $dir
+    );
+    return @tests;
+}
+
+
+# Store:
+#     last fail time
+#     last pass time
+#     last run time
+#     most recent result
+#     most recent todos
+#     total failures
+#     total passes
+#     state generation
+#     parser
+
+sub observe_test {
+
+    my ( $self, $test_info, $parser ) = @_;
+    my $name = $test_info->[0];
+    my $fail = scalar( $parser->failed ) + ( $parser->has_problems ? 1 : 0 );
+    my $todo = scalar( $parser->todo );
+    my $start_time = $parser->start_time;
+    my $end_time   = $parser->end_time,
+
+      my $test = $self->results->test($name);
+
+    $test->sequence( $self->{seq}++ );
+    $test->generation( $self->results->generation );
+
+    $test->run_time($end_time);
+    $test->result($fail);
+    $test->num_todo($todo);
+    $test->elapsed( $end_time - $start_time );
+
+    $test->parser($parser);
+
+    if ($fail) {
+        $test->total_failures( $test->total_failures + 1 );
+        $test->last_fail_time($end_time);
+    }
+    else {
+        $test->total_passes( $test->total_passes + 1 );
+        $test->last_pass_time($end_time);
+    }
+}
+
+
+sub save {
+    my ($self) = @_;
+
+    my $store = $self->{store} or return;
+    $self->results->last_run_time( $self->get_time );
+
+    my $writer = TAP::Parser::YAMLish::Writer->new;
+    local *FH;
+    open FH, ">$store" or croak "Can't write $store ($!)";
+    $writer->write( $self->results->raw, \*FH );
+    close FH;
+}
+
+
+sub load {
+    my ( $self, $name ) = @_;
+    my $reader = TAP::Parser::YAMLish::Reader->new;
+    local *FH;
+    open FH, "<$name" or croak "Can't read $name ($!)";
+
+    # XXX this is temporary
+    $self->{_} = $self->result_class->new(
+        $reader->read(
+            sub {
+                my $line = <FH>;
+                defined $line && chomp $line;
+                return $line;
+            }
+        )
+    );
+
+    # $writer->write( $self->{tests} || {}, \*FH );
+    close FH;
+    $self->_regen_seq;
+    $self->_prune_and_stamp;
+    $self->results->generation( $self->results->generation + 1 );
+}
+
+sub _prune_and_stamp {
+    my $self = shift;
+
+    my $results = $self->results;
+    my @tests   = $self->results->tests;
+    for my $test (@tests) {
+        my $name = $test->name;
+        if ( my @stat = stat $name ) {
+            $test->mtime( $stat[9] );
+        }
+        else {
+            $results->remove($name);
+        }
+    }
+}
+
+sub _regen_seq {
+    my $self = shift;
+    for my $test ( $self->results->tests ) {
+        $self->{seq} = $test->sequence + 1
+          if defined $test->sequence && $test->sequence >= $self->{seq};
+    }
+}
+
+1;
+package App::Prove::State::Result;
+
+use strict;
+use warnings;
+use Carp 'croak';
+
+use App::Prove::State::Result::Test;
+
+use constant STATE_VERSION => 1;
+
+
+our $VERSION = '3.42';
+
+
+
+sub new {
+    my ( $class, $arg_for ) = @_;
+    $arg_for ||= {};
+    my %instance_data = %$arg_for;    # shallow copy
+    $instance_data{version} = $class->state_version;
+    my $tests = delete $instance_data{tests} || {};
+    my $self = bless \%instance_data => $class;
+    $self->_initialize($tests);
+    return $self;
+}
+
+sub _initialize {
+    my ( $self, $tests ) = @_;
+    my %tests;
+    while ( my ( $name, $test ) = each %$tests ) {
+        $tests{$name} = $self->test_class->new(
+            {   %$test,
+                name => $name
+            }
+        );
+    }
+    $self->tests( \%tests );
+    return $self;
+}
+
+
+sub state_version {STATE_VERSION}
+
+
+sub test_class {
+    return 'App::Prove::State::Result::Test';
+}
+
+my %methods = (
+    generation    => { method => 'generation',    default => 0 },
+    last_run_time => { method => 'last_run_time', default => undef },
+);
+
+while ( my ( $key, $description ) = each %methods ) {
+    my $default = $description->{default};
+    no strict 'refs';
+    *{ $description->{method} } = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+            return $self;
+        }
+        return $self->{$key} || $default;
+    };
+}
+
+
+sub tests {
+    my $self = shift;
+    if (@_) {
+        $self->{tests} = shift;
+        return $self;
+    }
+    my %tests = %{ $self->{tests} };
+    my @tests = sort { $a->sequence <=> $b->sequence } values %tests;
+    return wantarray ? @tests : \@tests;
+}
+
+
+sub test {
+    my ( $self, $name ) = @_;
+    croak("test() requires a test name") unless defined $name;
+
+    my $tests = $self->{tests} ||= {};
+    if ( my $test = $tests->{$name} ) {
+        return $test;
+    }
+    else {
+        my $test = $self->test_class->new( { name => $name } );
+        $self->{tests}->{$name} = $test;
+        return $test;
+    }
+}
+
+
+sub test_names {
+    my $self = shift;
+    return map { $_->name } $self->tests;
+}
+
+
+sub remove {
+    my ( $self, $name ) = @_;
+    delete $self->{tests}->{$name};
+    return $self;
+}
+
+
+sub num_tests { keys %{ shift->{tests} } }
+
+
+sub raw {
+    my $self = shift;
+    my %raw  = %$self;
+
+    my %tests;
+    for my $test ( $self->tests ) {
+        $tests{ $test->name } = $test->raw;
+    }
+    $raw{tests} = \%tests;
+    return \%raw;
+}
+
+1;
+package App::Prove::State::Result::Test;
+
+use strict;
+use warnings;
+
+
+our $VERSION = '3.42';
+
+
+my %methods = (
+    name           => { method => 'name' },
+    elapsed        => { method => 'elapsed', default => 0 },
+    gen            => { method => 'generation', default => 1 },
+    last_pass_time => { method => 'last_pass_time', default => undef },
+    last_fail_time => { method => 'last_fail_time', default => undef },
+    last_result    => { method => 'result', default => 0 },
+    last_run_time  => { method => 'run_time', default => undef },
+    last_todo      => { method => 'num_todo', default => 0 },
+    mtime          => { method => 'mtime', default => undef },
+    seq            => { method => 'sequence', default => 1 },
+    total_passes   => { method => 'total_passes', default => 0 },
+    total_failures => { method => 'total_failures', default => 0 },
+    parser         => { method => 'parser' },
+);
+
+while ( my ( $key, $description ) = each %methods ) {
+    my $default = $description->{default};
+    no strict 'refs';
+    *{ $description->{method} } = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+            return $self;
+        }
+        return $self->{$key} || $default;
+    };
+}
+
+
+sub new {
+    my ( $class, $arg_for ) = @_;
+    $arg_for ||= {};
+    bless $arg_for => $class;
+}
+
+
+sub raw {
+    my $self = shift;
+    my %raw  = %$self;
+
+    # this is backwards-compatibility hack and is not guaranteed.
+    delete $raw{name};
+    delete $raw{parser};
+    return \%raw;
+}
+
+1;
+package warnings::register;
+
+our $VERSION = '1.04';
+require warnings;
+
+# left here as cruft in case other users were using this undocumented routine
+# -- rjbs, 2010-09-08
+sub mkMask
+{
+    my ($bit) = @_;
+    my $mask = "";
+
+    vec($mask, $bit, 1) = 1;
+    return $mask;
+}
+
+sub import
+{
+    shift;
+    my @categories = @_;
+
+    my $package = (caller(0))[0];
+    warnings::register_categories($package);
+
+    warnings::register_categories($package . "::$_") for @categories;
+}
+1;
+__END__
+
+# -*- buffer-read-only: t -*-
+#
+#    lib/overload/numbers.pm
+#
+#    Copyright (C) 2008 by Larry Wall and others
+#
+#    You may distribute under the terms of either the GNU General Public
+#    License or the Artistic License, as specified in the README file.
+#
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/overload.pl.
+# Any changes made here will be lost!
+
+package overload::numbers;
+
+our @names = qw#
+    ()
+    (${}
+    (@{}
+    (%{}
+    (*{}
+    (&{}
+    (++
+    (--
+    (bool
+    (0+
+    (""
+    (!
+    (=
+    (abs
+    (neg
+    (<>
+    (int
+    (<
+    (<=
+    (>
+    (>=
+    (==
+    (!=
+    (lt
+    (le
+    (gt
+    (ge
+    (eq
+    (ne
+    (nomethod
+    (+
+    (+=
+    (-
+    (-=
+    (*
+    (*=
+    (/
+    (/=
+    (%
+    (%=
+    (**
+    (**=
+    (<<
+    (<<=
+    (>>
+    (>>=
+    (&
+    (&=
+    (&.
+    (&.=
+    (|
+    (|=
+    (|.
+    (|.=
+    (^
+    (^=
+    (^.
+    (^.=
+    (<=>
+    (cmp
+    (~
+    (~.
+    (atan2
+    (cos
+    (sin
+    (exp
+    (log
+    (sqrt
+    (x
+    (x=
+    (.
+    (.=
+    (~~
+    (-X
+    (qr
+#;
+
+our @enums = qw#
+    fallback
+    to_sv
+    to_av
+    to_hv
+    to_gv
+    to_cv
+    inc
+    dec
+    bool_
+    numer
+    string
+    not
+    copy
+    abs
+    neg
+    iter
+    int
+    lt
+    le
+    gt
+    ge
+    eq
+    ne
+    slt
+    sle
+    sgt
+    sge
+    seq
+    sne
+    nomethod
+    add
+    add_ass
+    subtr
+    subtr_ass
+    mult
+    mult_ass
+    div
+    div_ass
+    modulo
+    modulo_ass
+    pow
+    pow_ass
+    lshift
+    lshift_ass
+    rshift
+    rshift_ass
+    band
+    band_ass
+    sband
+    sband_ass
+    bor
+    bor_ass
+    sbor
+    sbor_ass
+    bxor
+    bxor_ass
+    sbxor
+    sbxor_ass
+    ncmp
+    scmp
+    compl
+    scompl
+    atan2
+    cos
+    sin
+    exp
+    log
+    sqrt
+    repeat
+    repeat_ass
+    concat
+    concat_ass
+    smart
+    ftest
+    regexp
+#;
+
+{ my $i = 0; our %names = map { $_ => $i++ } @names }
+
+{ my $i = 0; our %enums = map { $_ => $i++ } @enums }
+
+# ex: set ro:
+package Memoize::Storable;
+
+
+use Storable ();
+$VERSION = '1.03';
+$Verbose = 0;
+
+sub TIEHASH {
+  require Carp if $Verbose;
+  my $package = shift;
+  my $filename = shift;
+  my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
+  my %options;
+  print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
+  @options{@_} = ();
+  my $self = 
+    {FILENAME => $filename, 
+     H => $truehash, 
+     OPTIONS => \%options
+    };
+  bless $self => $package;
+}
+
+sub STORE {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
+  $self->{H}{$_[0]} = $_[1];
+}
+
+sub FETCH {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
+  $self->{H}{$_[0]};
+}
+
+sub EXISTS {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
+  exists $self->{H}{$_[0]};
+}
+
+sub DESTROY {
+  require Carp if $Verbose;
+  my $self= shift;
+  print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
+  if ($self->{OPTIONS}{'nstore'}) {
+    Storable::nstore($self->{H}, $self->{FILENAME});
+  } else {
+    Storable::store($self->{H}, $self->{FILENAME});
+  }
+}
+
+sub FIRSTKEY {
+  'Fake hash from Memoize::Storable';
+}
+
+sub NEXTKEY {
+  undef;
+}
+1;
+package Memoize::SDBM_File;
+
+
+use SDBM_File;
+@ISA = qw(SDBM_File);
+$VERSION = '1.03';
+
+$Verbose = 0;
+
+sub AUTOLOAD {
+  warn "Nonexistent function $AUTOLOAD invoked in Memoize::SDBM_File\n";
+}
+
+sub import {
+  warn "Importing Memoize::SDBM_File\n" if $Verbose;
+}
+
+
+my %keylist;
+
+# This is so ridiculous...
+sub _backhash {
+  my $self = shift;
+  my %fakehash;
+  my $k; 
+  for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
+    $fakehash{$k} = undef;
+  }
+  $keylist{$self} = \%fakehash;
+}
+
+sub EXISTS {
+  warn "Memoize::SDBM_File EXISTS (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  my $r = exists $keylist{$self}{$_[0]};
+  warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
+  $r;
+}
+
+sub DEFINED {
+  warn "Memoize::SDBM_File DEFINED (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  defined $keylist{$self}{$_[0]};
+}
+
+sub DESTROY {
+  warn "Memoize::SDBM_File DESTROY (@_)\n" if $Verbose;
+  my $self = shift;
+  delete $keylist{$self};   # So much for reference counting...
+  $self->SUPER::DESTROY(@_);
+}
+
+# Maybe establish the keylist at TIEHASH time instead?
+
+sub STORE {
+  warn "Memoize::SDBM_File STORE (@_)\n" if $VERBOSE;
+  my $self = shift;
+  $keylist{$self}{$_[0]} = undef;
+  $self->SUPER::STORE(@_);
+}
+
+# Inherit FETCH and TIEHASH
+
+1;
+package Memoize::ExpireFile;
+
+
+$VERSION = '1.03';
+use Carp;
+
+my $Zero = pack("N", 0);
+
+sub TIEHASH {
+  my ($package, %args) = @_;
+  my $cache = $args{HASH} || {};
+  bless {ARGS => \%args, C => $cache} => $package;
+}
+
+
+sub STORE {
+#  print "Expiry manager STORE handler\n";
+  my ($self, $key, $data) = @_;
+  my $cache = $self->{C};
+  my $cur_date = pack("N", (stat($key))[9]);
+  $cache->{"C$key"} = $data;
+  $cache->{"T$key"} = $cur_date;
+}
+
+sub FETCH {
+  my ($self, $key) = @_;
+  $self->{C}{"C$key"};
+}
+
+sub EXISTS {
+#  print "Expiry manager EXISTS handler\n";
+  my ($self, $key) = @_;
+  my $cache_date = $self->{C}{"T$key"} || $Zero;
+  my $file_date = pack("N", (stat($key))[9]);#
+#  if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
+#    return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
+#  } 
+  my $res = $cache_date ge $file_date;
+#  print $res ? "... still good\n" : "... expired\n";
+  $res;
+}
+
+1;
+
+package Memoize::Expire;
+# require 5.00556;
+use Carp;
+$DEBUG = 0;
+$VERSION = '1.03';
+
+# This package will implement expiration by prepending a fixed-length header
+# to the font of the cached data.  The format of the header will be:
+# (4-byte number of last-access-time)  (For LRU when I implement it)
+# (4-byte expiration time: unsigned seconds-since-unix-epoch)
+# (2-byte number-of-uses-before-expire)
+
+sub _header_fmt () { "N N n" }
+sub _header_size () { length(_header_fmt) }
+
+# Usage:  memoize func 
+#         TIE => [Memoize::Expire, LIFETIME => sec, NUM_USES => n,
+#                 TIE => [...] ]
+
+BEGIN {
+  eval {require Time::HiRes};
+  unless ($@) {
+    Time::HiRes->import('time');
+  }
+}
+
+sub TIEHASH {
+  my ($package, %args) = @_;
+  my %cache;
+  if ($args{TIE}) {
+    my ($module, @opts) = @{$args{TIE}};
+    my $modulefile = $module . '.pm';
+    $modulefile =~ s{::}{/}g;
+    eval { require $modulefile };
+    if ($@) {
+      croak "Memoize::Expire: Couldn't load hash tie module `$module': $@; aborting";
+    }
+    my $rc = (tie %cache => $module, @opts);
+    unless ($rc) {
+      croak "Memoize::Expire: Couldn't tie hash to `$module': $@; aborting";
+    }
+  }
+  $args{LIFETIME} ||= 0;
+  $args{NUM_USES} ||= 0;
+  $args{C} = \%cache;
+  bless \%args => $package;
+}
+
+sub STORE {
+  $DEBUG and print STDERR " >> Store $_[1] $_[2]\n";
+  my ($self, $key, $value) = @_;
+  my $expire_time = $self->{LIFETIME} > 0 ? $self->{LIFETIME} + time : 0;
+  # The call that results in a value to store into the cache is the
+  # first of the NUM_USES allowed calls.
+  my $header = _make_header(time, $expire_time, $self->{NUM_USES}-1);
+  $self->{C}{$key} = $header . $value;
+  $value;
+}
+
+sub FETCH {
+  $DEBUG and print STDERR " >> Fetch cached value for $_[1]\n";
+  my ($data, $last_access, $expire_time, $num_uses_left) = _get_item($_[0]{C}{$_[1]});
+  $DEBUG and print STDERR " >>   (ttl: ", ($expire_time-time()), ", nuses: $num_uses_left)\n";
+  $num_uses_left--;
+  $last_access = time;
+  _set_header(@_, $data, $last_access, $expire_time, $num_uses_left);
+  $data;
+}
+
+sub EXISTS {
+  $DEBUG and print STDERR " >> Exists $_[1]\n";
+  unless (exists $_[0]{C}{$_[1]}) {
+    $DEBUG and print STDERR "    Not in underlying hash at all.\n";
+    return 0;
+  }
+  my $item = $_[0]{C}{$_[1]};
+  my ($last_access, $expire_time, $num_uses_left) = _get_header($item);
+  my $ttl = $expire_time - time;
+  if ($DEBUG) {
+    $_[0]{LIFETIME} and print STDERR "    Time to live for this item: $ttl\n";
+    $_[0]{NUM_USES} and print STDERR "    Uses remaining: $num_uses_left\n";
+  }
+  if (   (! $_[0]{LIFETIME} || $expire_time > time)
+      && (! $_[0]{NUM_USES} || $num_uses_left > 0 )) {
+	    $DEBUG and print STDERR "    (Still good)\n";
+    return 1;
+  } else {
+    $DEBUG and print STDERR "    (Expired)\n";
+    return 0;
+  }
+}
+
+# Arguments: last access time, expire time, number of uses remaining
+sub _make_header {
+  pack "N N n", @_;
+}
+
+sub _strip_header {
+  substr($_[0], 10);
+}
+
+# Arguments: last access time, expire time, number of uses remaining
+sub _set_header {
+  my ($self, $key, $data, @header) = @_;
+  $self->{C}{$key} = _make_header(@header) . $data;
+}
+
+sub _get_item {
+  my $data = substr($_[0], 10);
+  my @header = unpack "N N n", substr($_[0], 0, 10);
+#  print STDERR " >> _get_item: $data => $data @header\n";
+  ($data, @header);
+}
+
+# Return last access time, expire time, number of uses remaining
+sub _get_header  {
+  unpack "N N n", substr($_[0], 0, 10);
+}
+
+1;
+
+package Memoize::AnyDBM_File;
+
+
+use vars qw(@ISA $VERSION);
+$VERSION = '1.03';
+@ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
+
+my $verbose = 1;
+
+my $mod;
+for $mod (@ISA) {
+#  (my $truemod = $mod) =~ s/^Memoize:://;
+#  my $file = "$mod.pm";
+#  $file =~ s{::}{/}g;
+  if (eval "require $mod") {
+    print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
+    @ISA = ($mod);	# if we leave @ISA alone, warnings abound
+    return 1;
+  }
+}
+
+die "No DBM package was successfully found or installed";
+package Memoize::ExpireTest;
+
+
+$VERSION = '1.03';
+my %cache;
+
+sub TIEHASH {	
+  my ($pack) = @_;
+  bless \%cache => $pack;
+}
+
+sub EXISTS {
+  my ($cache, $key) = @_;
+  exists $cache->{$key} ? 1 : 0;
+}
+
+sub FETCH {
+  my ($cache, $key) = @_;
+  $cache->{$key};
+}
+
+sub STORE {
+  my ($cache, $key, $val) = @_;
+  $cache->{$key} = $val;
+}
+
+sub expire {
+  my ($key) = @_;
+  delete $cache{$key};
+}
+
+1;
+package Memoize::NDBM_File;
+
+
+use NDBM_File;
+@ISA = qw(NDBM_File);
+$VERSION = '1.03';
+
+$Verbose = 0;
+
+sub AUTOLOAD {
+  warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
+}
+
+sub import {
+  warn "Importing Memoize::NDBM_File\n" if $Verbose;
+}
+
+
+my %keylist;
+
+# This is so ridiculous...
+sub _backhash {
+  my $self = shift;
+  my %fakehash;
+  my $k; 
+  for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
+    $fakehash{$k} = undef;
+  }
+  $keylist{$self} = \%fakehash;
+}
+
+sub EXISTS {
+  warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  my $r = exists $keylist{$self}{$_[0]};
+  warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
+  $r;
+}
+
+sub DEFINED {
+  warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  defined $keylist{$self}{$_[0]};
+}
+
+sub DESTROY {
+  warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
+  my $self = shift;
+  delete $keylist{$self};   # So much for reference counting...
+  $self->SUPER::DESTROY(@_);
+}
+
+# Maybe establish the keylist at TIEHASH time instead?
+
+sub STORE {
+  warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
+  my $self = shift;
+  $keylist{$self}{$_[0]} = undef;
+  $self->SUPER::STORE(@_);
+}
+
+
+
+# Inherit FETCH and TIEHASH
+
+1;
+#! perl
+
+# Getopt::Long.pm -- Universal options parsing
+# Author          : Johan Vromans
+# Created On      : Tue Sep 11 15:00:12 1990
+# Last Modified By: Johan Vromans
+# Last Modified On: Sat May 27 12:11:39 2017
+# Update Count    : 1715
+# Status          : Released
+
+################ Module Preamble ################
+
+use 5.004;
+
+use strict;
+use warnings;
+
+package Getopt::Long;
+
+use vars qw($VERSION);
+$VERSION        =  2.50;
+# For testing versions only.
+use vars qw($VERSION_STRING);
+$VERSION_STRING = "2.50";
+
+use Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+@ISA = qw(Exporter);
+
+# Exported subroutines.
+sub GetOptions(@);		# always
+sub GetOptionsFromArray(@);	# on demand
+sub GetOptionsFromString(@);	# on demand
+sub Configure(@);		# on demand
+sub HelpMessage(@);		# on demand
+sub VersionMessage(@);		# in demand
+
+BEGIN {
+    # Init immediately so their contents can be used in the 'use vars' below.
+    @EXPORT    = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER);
+    @EXPORT_OK = qw(&HelpMessage &VersionMessage &Configure
+		    &GetOptionsFromArray &GetOptionsFromString);
+}
+
+# User visible variables.
+use vars @EXPORT, @EXPORT_OK;
+use vars qw($error $debug $major_version $minor_version);
+# Deprecated visible variables.
+use vars qw($autoabbrev $getopt_compat $ignorecase $bundling $order
+	    $passthrough);
+# Official invisible variables.
+use vars qw($genprefix $caller $gnu_compat $auto_help $auto_version $longprefix);
+
+# Really invisible variables.
+my $bundling_values;
+
+# Public subroutines.
+sub config(@);			# deprecated name
+
+# Private subroutines.
+sub ConfigDefaults();
+sub ParseOptionSpec($$);
+sub OptCtl($);
+sub FindOption($$$$$);
+sub ValidValue ($$$$$);
+
+################ Local Variables ################
+
+# $requested_version holds the version that was mentioned in the 'use'
+# or 'require', if any. It can be used to enable or disable specific
+# features.
+my $requested_version = 0;
+
+################ Resident subroutines ################
+
+sub ConfigDefaults() {
+    # Handle POSIX compliancy.
+    if ( defined $ENV{"POSIXLY_CORRECT"} ) {
+	$genprefix = "(--|-)";
+	$autoabbrev = 0;		# no automatic abbrev of options
+	$bundling = 0;			# no bundling of single letter switches
+	$getopt_compat = 0;		# disallow '+' to start options
+	$order = $REQUIRE_ORDER;
+    }
+    else {
+	$genprefix = "(--|-|\\+)";
+	$autoabbrev = 1;		# automatic abbrev of options
+	$bundling = 0;			# bundling off by default
+	$getopt_compat = 1;		# allow '+' to start options
+	$order = $PERMUTE;
+    }
+    # Other configurable settings.
+    $debug = 0;			# for debugging
+    $error = 0;			# error tally
+    $ignorecase = 1;		# ignore case when matching options
+    $passthrough = 0;		# leave unrecognized options alone
+    $gnu_compat = 0;		# require --opt=val if value is optional
+    $longprefix = "(--)";       # what does a long prefix look like
+    $bundling_values = 0;	# no bundling of values
+}
+
+# Override import.
+sub import {
+    my $pkg = shift;		# package
+    my @syms = ();		# symbols to import
+    my @config = ();		# configuration
+    my $dest = \@syms;		# symbols first
+    for ( @_ ) {
+	if ( $_ eq ':config' ) {
+	    $dest = \@config;	# config next
+	    next;
+	}
+	push(@$dest, $_);	# push
+    }
+    # Hide one level and call super.
+    local $Exporter::ExportLevel = 1;
+    push(@syms, qw(&GetOptions)) if @syms; # always export GetOptions
+    $requested_version = 0;
+    $pkg->SUPER::import(@syms);
+    # And configure.
+    Configure(@config) if @config;
+}
+
+################ Initialization ################
+
+# Values for $order. See GNU getopt.c for details.
+($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2);
+# Version major/minor numbers.
+($major_version, $minor_version) = $VERSION =~ /^(\d+)\.(\d+)/;
+
+ConfigDefaults();
+
+################ OO Interface ################
+
+package Getopt::Long::Parser;
+
+# Store a copy of the default configuration. Since ConfigDefaults has
+# just been called, what we get from Configure is the default.
+my $default_config = do {
+    Getopt::Long::Configure ()
+};
+
+sub new {
+    my $that = shift;
+    my $class = ref($that) || $that;
+    my %atts = @_;
+
+    # Register the callers package.
+    my $self = { caller_pkg => (caller)[0] };
+
+    bless ($self, $class);
+
+    # Process config attributes.
+    if ( defined $atts{config} ) {
+	my $save = Getopt::Long::Configure ($default_config, @{$atts{config}});
+	$self->{settings} = Getopt::Long::Configure ($save);
+	delete ($atts{config});
+    }
+    # Else use default config.
+    else {
+	$self->{settings} = $default_config;
+    }
+
+    if ( %atts ) {		# Oops
+	die(__PACKAGE__.": unhandled attributes: ".
+	    join(" ", sort(keys(%atts)))."\n");
+    }
+
+    $self;
+}
+
+sub configure {
+    my ($self) = shift;
+
+    # Restore settings, merge new settings in.
+    my $save = Getopt::Long::Configure ($self->{settings}, @_);
+
+    # Restore orig config and save the new config.
+    $self->{settings} = Getopt::Long::Configure ($save);
+}
+
+sub getoptions {
+    my ($self) = shift;
+
+    return $self->getoptionsfromarray(\@ARGV, @_);
+}
+
+sub getoptionsfromarray {
+    my ($self) = shift;
+
+    # Restore config settings.
+    my $save = Getopt::Long::Configure ($self->{settings});
+
+    # Call main routine.
+    my $ret = 0;
+    $Getopt::Long::caller = $self->{caller_pkg};
+
+    eval {
+	# Locally set exception handler to default, otherwise it will
+	# be called implicitly here, and again explicitly when we try
+	# to deliver the messages.
+	local ($SIG{__DIE__}) = 'DEFAULT';
+	$ret = Getopt::Long::GetOptionsFromArray (@_);
+    };
+
+    # Restore saved settings.
+    Getopt::Long::Configure ($save);
+
+    # Handle errors and return value.
+    die ($@) if $@;
+    return $ret;
+}
+
+package Getopt::Long;
+
+################ Back to Normal ################
+
+# Indices in option control info.
+# Note that ParseOptions uses the fields directly. Search for 'hard-wired'.
+use constant CTL_TYPE    => 0;
+#use constant   CTL_TYPE_FLAG   => '';
+#use constant   CTL_TYPE_NEG    => '!';
+#use constant   CTL_TYPE_INCR   => '+';
+#use constant   CTL_TYPE_INT    => 'i';
+#use constant   CTL_TYPE_INTINC => 'I';
+#use constant   CTL_TYPE_XINT   => 'o';
+#use constant   CTL_TYPE_FLOAT  => 'f';
+#use constant   CTL_TYPE_STRING => 's';
+
+use constant CTL_CNAME   => 1;
+
+use constant CTL_DEFAULT => 2;
+
+use constant CTL_DEST    => 3;
+ use constant   CTL_DEST_SCALAR => 0;
+ use constant   CTL_DEST_ARRAY  => 1;
+ use constant   CTL_DEST_HASH   => 2;
+ use constant   CTL_DEST_CODE   => 3;
+
+use constant CTL_AMIN    => 4;
+use constant CTL_AMAX    => 5;
+
+# FFU.
+#use constant CTL_RANGE   => ;
+#use constant CTL_REPEAT  => ;
+
+# Rather liberal patterns to match numbers.
+use constant PAT_INT   => "[-+]?_*[0-9][0-9_]*";
+use constant PAT_XINT  =>
+  "(?:".
+	  "[-+]?_*[1-9][0-9_]*".
+  "|".
+	  "0x_*[0-9a-f][0-9a-f_]*".
+  "|".
+	  "0b_*[01][01_]*".
+  "|".
+	  "0[0-7_]*".
+  ")";
+use constant PAT_FLOAT =>
+  "[-+]?".			# optional sign
+  "(?=[0-9.])".			# must start with digit or dec.point
+  "[0-9_]*".			# digits before the dec.point
+  "(\.[0-9_]+)?".		# optional fraction
+  "([eE][-+]?[0-9_]+)?";	# optional exponent
+
+sub GetOptions(@) {
+    # Shift in default array.
+    unshift(@_, \@ARGV);
+    # Try to keep caller() and Carp consistent.
+    goto &GetOptionsFromArray;
+}
+
+sub GetOptionsFromString(@) {
+    my ($string) = shift;
+    require Text::ParseWords;
+    my $args = [ Text::ParseWords::shellwords($string) ];
+    $caller ||= (caller)[0];	# current context
+    my $ret = GetOptionsFromArray($args, @_);
+    return ( $ret, $args ) if wantarray;
+    if ( @$args ) {
+	$ret = 0;
+	warn("GetOptionsFromString: Excess data \"@$args\" in string \"$string\"\n");
+    }
+    $ret;
+}
+
+sub GetOptionsFromArray(@) {
+
+    my ($argv, @optionlist) = @_;	# local copy of the option descriptions
+    my $argend = '--';		# option list terminator
+    my %opctl = ();		# table of option specs
+    my $pkg = $caller || (caller)[0];	# current context
+				# Needed if linkage is omitted.
+    my @ret = ();		# accum for non-options
+    my %linkage;		# linkage
+    my $userlinkage;		# user supplied HASH
+    my $opt;			# current option
+    my $prefix = $genprefix;	# current prefix
+
+    $error = '';
+
+    if ( $debug ) {
+	# Avoid some warnings if debugging.
+	local ($^W) = 0;
+	print STDERR
+	  ("Getopt::Long $Getopt::Long::VERSION ",
+	   "called from package \"$pkg\".",
+	   "\n  ",
+	   "argv: ",
+	   defined($argv)
+	   ? UNIVERSAL::isa( $argv, 'ARRAY' ) ? "(@$argv)" : $argv
+	   : "<undef>",
+	   "\n  ",
+	   "autoabbrev=$autoabbrev,".
+	   "bundling=$bundling,",
+	   "bundling_values=$bundling_values,",
+	   "getopt_compat=$getopt_compat,",
+	   "gnu_compat=$gnu_compat,",
+	   "order=$order,",
+	   "\n  ",
+	   "ignorecase=$ignorecase,",
+	   "requested_version=$requested_version,",
+	   "passthrough=$passthrough,",
+	   "genprefix=\"$genprefix\",",
+	   "longprefix=\"$longprefix\".",
+	   "\n");
+    }
+
+    # Check for ref HASH as first argument.
+    # First argument may be an object. It's OK to use this as long
+    # as it is really a hash underneath.
+    $userlinkage = undef;
+    if ( @optionlist && ref($optionlist[0]) and
+	 UNIVERSAL::isa($optionlist[0],'HASH') ) {
+	$userlinkage = shift (@optionlist);
+	print STDERR ("=> user linkage: $userlinkage\n") if $debug;
+    }
+
+    # See if the first element of the optionlist contains option
+    # starter characters.
+    # Be careful not to interpret '<>' as option starters.
+    if ( @optionlist && $optionlist[0] =~ /^\W+$/
+	 && !($optionlist[0] eq '<>'
+	      && @optionlist > 0
+	      && ref($optionlist[1])) ) {
+	$prefix = shift (@optionlist);
+	# Turn into regexp. Needs to be parenthesized!
+	$prefix =~ s/(\W)/\\$1/g;
+	$prefix = "([" . $prefix . "])";
+	print STDERR ("=> prefix=\"$prefix\"\n") if $debug;
+    }
+
+    # Verify correctness of optionlist.
+    %opctl = ();
+    while ( @optionlist ) {
+	my $opt = shift (@optionlist);
+
+	unless ( defined($opt) ) {
+	    $error .= "Undefined argument in option spec\n";
+	    next;
+	}
+
+	# Strip leading prefix so people can specify "--foo=i" if they like.
+	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
+
+	if ( $opt eq '<>' ) {
+	    if ( (defined $userlinkage)
+		&& !(@optionlist > 0 && ref($optionlist[0]))
+		&& (exists $userlinkage->{$opt})
+		&& ref($userlinkage->{$opt}) ) {
+		unshift (@optionlist, $userlinkage->{$opt});
+	    }
+	    unless ( @optionlist > 0
+		    && ref($optionlist[0]) && ref($optionlist[0]) eq 'CODE' ) {
+		$error .= "Option spec <> requires a reference to a subroutine\n";
+		# Kill the linkage (to avoid another error).
+		shift (@optionlist)
+		  if @optionlist && ref($optionlist[0]);
+		next;
+	    }
+	    $linkage{'<>'} = shift (@optionlist);
+	    next;
+	}
+
+	# Parse option spec.
+	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
+	unless ( defined $name ) {
+	    # Failed. $orig contains the error message. Sorry for the abuse.
+	    $error .= $orig;
+	    # Kill the linkage (to avoid another error).
+	    shift (@optionlist)
+	      if @optionlist && ref($optionlist[0]);
+	    next;
+	}
+
+	# If no linkage is supplied in the @optionlist, copy it from
+	# the userlinkage if available.
+	if ( defined $userlinkage ) {
+	    unless ( @optionlist > 0 && ref($optionlist[0]) ) {
+		if ( exists $userlinkage->{$orig} &&
+		     ref($userlinkage->{$orig}) ) {
+		    print STDERR ("=> found userlinkage for \"$orig\": ",
+				  "$userlinkage->{$orig}\n")
+			if $debug;
+		    unshift (@optionlist, $userlinkage->{$orig});
+		}
+		else {
+		    # Do nothing. Being undefined will be handled later.
+		    next;
+		}
+	    }
+	}
+
+	# Copy the linkage. If omitted, link to global variable.
+	if ( @optionlist > 0 && ref($optionlist[0]) ) {
+	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
+		if $debug;
+	    my $rl = ref($linkage{$orig} = shift (@optionlist));
+
+	    if ( $rl eq "ARRAY" ) {
+		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
+	    }
+	    elsif ( $rl eq "HASH" ) {
+		$opctl{$name}[CTL_DEST] = CTL_DEST_HASH;
+	    }
+	    elsif ( $rl eq "SCALAR" || $rl eq "REF" ) {
+#		if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) {
+#		    my $t = $linkage{$orig};
+#		    $$t = $linkage{$orig} = [];
+#		}
+#		elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) {
+#		}
+#		else {
+		    # Ok.
+#		}
+	    }
+	    elsif ( $rl eq "CODE" ) {
+		# Ok.
+	    }
+	    else {
+		$error .= "Invalid option linkage for \"$opt\"\n";
+	    }
+	}
+	else {
+	    # Link to global $opt_XXX variable.
+	    # Make sure a valid perl identifier results.
+	    my $ov = $orig;
+	    $ov =~ s/\W/_/g;
+	    if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) {
+		print STDERR ("=> link \"$orig\" to \@$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\@".$pkg."::opt_$ov;");
+	    }
+	    elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) {
+		print STDERR ("=> link \"$orig\" to \%$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\%".$pkg."::opt_$ov;");
+	    }
+	    else {
+		print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;");
+	    }
+	}
+
+	if ( $opctl{$name}[CTL_TYPE] eq 'I'
+	     && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY
+		  || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH )
+	   ) {
+	    $error .= "Invalid option linkage for \"$opt\"\n";
+	}
+
+    }
+
+    $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n"
+      unless $argv && UNIVERSAL::isa( $argv, 'ARRAY' );
+
+    # Bail out if errors found.
+    die ($error) if $error;
+    $error = 0;
+
+    # Supply --version and --help support, if needed and allowed.
+    if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) {
+	if ( !defined($opctl{version}) ) {
+	    $opctl{version} = ['','version',0,CTL_DEST_CODE,undef];
+	    $linkage{version} = \&VersionMessage;
+	}
+	$auto_version = 1;
+    }
+    if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) {
+	if ( !defined($opctl{help}) && !defined($opctl{'?'}) ) {
+	    $opctl{help} = $opctl{'?'} = ['','help',0,CTL_DEST_CODE,undef];
+	    $linkage{help} = \&HelpMessage;
+	}
+	$auto_help = 1;
+    }
+
+    # Show the options tables if debugging.
+    if ( $debug ) {
+	my ($arrow, $k, $v);
+	$arrow = "=> ";
+	while ( ($k,$v) = each(%opctl) ) {
+	    print STDERR ($arrow, "\$opctl{$k} = $v ", OptCtl($v), "\n");
+	    $arrow = "   ";
+	}
+    }
+
+    # Process argument list
+    my $goon = 1;
+    while ( $goon && @$argv > 0 ) {
+
+	# Get next argument.
+	$opt = shift (@$argv);
+	print STDERR ("=> arg \"", $opt, "\"\n") if $debug;
+
+	# Double dash is option list terminator.
+	if ( defined($opt) && $opt eq $argend ) {
+	  push (@ret, $argend) if $passthrough;
+	  last;
+	}
+
+	# Look it up.
+	my $tryopt = $opt;
+	my $found;		# success status
+	my $key;		# key (if hash type)
+	my $arg;		# option argument
+	my $ctl;		# the opctl entry
+
+	($found, $opt, $ctl, $arg, $key) =
+	  FindOption ($argv, $prefix, $argend, $opt, \%opctl);
+
+	if ( $found ) {
+
+	    # FindOption undefines $opt in case of errors.
+	    next unless defined $opt;
+
+	    my $argcnt = 0;
+	    while ( defined $arg ) {
+
+		# Get the canonical name.
+		print STDERR ("=> cname for \"$opt\" is ") if $debug;
+		$opt = $ctl->[CTL_CNAME];
+		print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug;
+
+		if ( defined $linkage{$opt} ) {
+		    print STDERR ("=> ref(\$L{$opt}) -> ",
+				  ref($linkage{$opt}), "\n") if $debug;
+
+		    if ( ref($linkage{$opt}) eq 'SCALAR'
+			 || ref($linkage{$opt}) eq 'REF' ) {
+			if ( $ctl->[CTL_TYPE] eq '+' ) {
+			    print STDERR ("=> \$\$L{$opt} += \"$arg\"\n")
+			      if $debug;
+			    if ( defined ${$linkage{$opt}} ) {
+			        ${$linkage{$opt}} += $arg;
+			    }
+		            else {
+			        ${$linkage{$opt}} = $arg;
+			    }
+			}
+			elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) {
+			    print STDERR ("=> ref(\$L{$opt}) auto-vivified",
+					  " to ARRAY\n")
+			      if $debug;
+			    my $t = $linkage{$opt};
+			    $$t = $linkage{$opt} = [];
+			    print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n")
+			      if $debug;
+			    push (@{$linkage{$opt}}, $arg);
+			}
+			elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+			    print STDERR ("=> ref(\$L{$opt}) auto-vivified",
+					  " to HASH\n")
+			      if $debug;
+			    my $t = $linkage{$opt};
+			    $$t = $linkage{$opt} = {};
+			    print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n")
+			      if $debug;
+			    $linkage{$opt}->{$key} = $arg;
+			}
+			else {
+			    print STDERR ("=> \$\$L{$opt} = \"$arg\"\n")
+			      if $debug;
+			    ${$linkage{$opt}} = $arg;
+		        }
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'ARRAY' ) {
+			print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n")
+			    if $debug;
+			push (@{$linkage{$opt}}, $arg);
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'HASH' ) {
+			print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n")
+			    if $debug;
+			$linkage{$opt}->{$key} = $arg;
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'CODE' ) {
+			print STDERR ("=> &L{$opt}(\"$opt\"",
+				      $ctl->[CTL_DEST] == CTL_DEST_HASH ? ", \"$key\"" : "",
+				      ", \"$arg\")\n")
+			    if $debug;
+			my $eval_error = do {
+			    local $@;
+			    local $SIG{__DIE__}  = 'DEFAULT';
+			    eval {
+				&{$linkage{$opt}}
+				  (Getopt::Long::CallBack->new
+				   (name    => $opt,
+				    ctl     => $ctl,
+				    opctl   => \%opctl,
+				    linkage => \%linkage,
+				    prefix  => $prefix,
+				   ),
+				   $ctl->[CTL_DEST] == CTL_DEST_HASH ? ($key) : (),
+				   $arg);
+			    };
+			    $@;
+			};
+			print STDERR ("=> die($eval_error)\n")
+			  if $debug && $eval_error ne '';
+			if ( $eval_error =~ /^!/ ) {
+			    if ( $eval_error =~ /^!FINISH\b/ ) {
+				$goon = 0;
+			    }
+			}
+			elsif ( $eval_error ne '' ) {
+			    warn ($eval_error);
+			    $error++;
+			}
+		    }
+		    else {
+			print STDERR ("Invalid REF type \"", ref($linkage{$opt}),
+				      "\" in linkage\n");
+			die("Getopt::Long -- internal error!\n");
+		    }
+		}
+		# No entry in linkage means entry in userlinkage.
+		elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) {
+		    if ( defined $userlinkage->{$opt} ) {
+			print STDERR ("=> push(\@{\$L{$opt}}, \"$arg\")\n")
+			    if $debug;
+			push (@{$userlinkage->{$opt}}, $arg);
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = [\"$arg\"]\n")
+			    if $debug;
+			$userlinkage->{$opt} = [$arg];
+		    }
+		}
+		elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+		    if ( defined $userlinkage->{$opt} ) {
+			print STDERR ("=> \$L{$opt}->{$key} = \"$arg\"\n")
+			    if $debug;
+			$userlinkage->{$opt}->{$key} = $arg;
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = {$key => \"$arg\"}\n")
+			    if $debug;
+			$userlinkage->{$opt} = {$key => $arg};
+		    }
+		}
+		else {
+		    if ( $ctl->[CTL_TYPE] eq '+' ) {
+			print STDERR ("=> \$L{$opt} += \"$arg\"\n")
+			  if $debug;
+			if ( defined $userlinkage->{$opt} ) {
+			    $userlinkage->{$opt} += $arg;
+			}
+			else {
+			    $userlinkage->{$opt} = $arg;
+			}
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = \"$arg\"\n") if $debug;
+			$userlinkage->{$opt} = $arg;
+		    }
+		}
+
+		$argcnt++;
+		last if $argcnt >= $ctl->[CTL_AMAX] && $ctl->[CTL_AMAX] != -1;
+		undef($arg);
+
+		# Need more args?
+		if ( $argcnt < $ctl->[CTL_AMIN] ) {
+		    if ( @$argv ) {
+			if ( ValidValue($ctl, $argv->[0], 1, $argend, $prefix) ) {
+			    $arg = shift(@$argv);
+			    if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) {
+				$arg =~ tr/_//d;
+				$arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/
+				  ? oct($arg)
+				  : 0+$arg
+			    }
+			    ($key,$arg) = $arg =~ /^([^=]+)=(.*)/
+			      if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+			    next;
+			}
+			warn("Value \"$$argv[0]\" invalid for option $opt\n");
+			$error++;
+		    }
+		    else {
+			warn("Insufficient arguments for option $opt\n");
+			$error++;
+		    }
+		}
+
+		# Any more args?
+		if ( @$argv && ValidValue($ctl, $argv->[0], 0, $argend, $prefix) ) {
+		    $arg = shift(@$argv);
+		    if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) {
+			$arg =~ tr/_//d;
+			$arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/
+			  ? oct($arg)
+			  : 0+$arg
+		    }
+		    ($key,$arg) = $arg =~ /^([^=]+)=(.*)/
+		      if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+		    next;
+		}
+	    }
+	}
+
+	# Not an option. Save it if we $PERMUTE and don't have a <>.
+	elsif ( $order == $PERMUTE ) {
+	    # Try non-options call-back.
+	    my $cb;
+	    if ( defined ($cb = $linkage{'<>'}) ) {
+		print STDERR ("=> &L{$tryopt}(\"$tryopt\")\n")
+		  if $debug;
+		my $eval_error = do {
+		    local $@;
+		    local $SIG{__DIE__}  = 'DEFAULT';
+		    eval {
+			# The arg to <> cannot be the CallBack object
+			# since it may be passed to other modules that
+			# get confused (e.g., Archive::Tar). Well,
+			# it's not relevant for this callback anyway.
+			&$cb($tryopt);
+		    };
+		    $@;
+		};
+		print STDERR ("=> die($eval_error)\n")
+		  if $debug && $eval_error ne '';
+		if ( $eval_error =~ /^!/ ) {
+		    if ( $eval_error =~ /^!FINISH\b/ ) {
+			$goon = 0;
+		    }
+		}
+		elsif ( $eval_error ne '' ) {
+		    warn ($eval_error);
+		    $error++;
+		}
+	    }
+	    else {
+		print STDERR ("=> saving \"$tryopt\" ",
+			      "(not an option, may permute)\n") if $debug;
+		push (@ret, $tryopt);
+	    }
+	    next;
+	}
+
+	# ...otherwise, terminate.
+	else {
+	    # Push this one back and exit.
+	    unshift (@$argv, $tryopt);
+	    return ($error == 0);
+	}
+
+    }
+
+    # Finish.
+    if ( @ret && $order == $PERMUTE ) {
+	#  Push back accumulated arguments
+	print STDERR ("=> restoring \"", join('" "', @ret), "\"\n")
+	    if $debug;
+	unshift (@$argv, @ret);
+    }
+
+    return ($error == 0);
+}
+
+# A readable representation of what's in an optbl.
+sub OptCtl ($) {
+    my ($v) = @_;
+    my @v = map { defined($_) ? ($_) : ("<undef>") } @$v;
+    "[".
+      join(",",
+	   "\"$v[CTL_TYPE]\"",
+	   "\"$v[CTL_CNAME]\"",
+	   "\"$v[CTL_DEFAULT]\"",
+	   ("\$","\@","\%","\&")[$v[CTL_DEST] || 0],
+	   $v[CTL_AMIN] || '',
+	   $v[CTL_AMAX] || '',
+#	   $v[CTL_RANGE] || '',
+#	   $v[CTL_REPEAT] || '',
+	  ). "]";
+}
+
+# Parse an option specification and fill the tables.
+sub ParseOptionSpec ($$) {
+    my ($opt, $opctl) = @_;
+
+    # Match option spec.
+    if ( $opt !~ m;^
+		   (
+		     # Option name
+		     (?: \w+[-\w]* )
+		     # Alias names, or "?"
+		     (?: \| (?: \? | \w[-\w]* ) )*
+		     # Aliases
+		     (?: \| (?: [^-|!+=:][^|!+=:]* )? )*
+		   )?
+		   (
+		     # Either modifiers ...
+		     [!+]
+		     |
+		     # ... or a value/dest/repeat specification
+		     [=:] [ionfs] [@%]? (?: \{\d*,?\d*\} )?
+		     |
+		     # ... or an optional-with-default spec
+		     : (?: -?\d+ | \+ ) [@%]?
+		   )?
+		   $;x ) {
+	return (undef, "Error in option spec: \"$opt\"\n");
+    }
+
+    my ($names, $spec) = ($1, $2);
+    $spec = '' unless defined $spec;
+
+    # $orig keeps track of the primary name the user specified.
+    # This name will be used for the internal or external linkage.
+    # In other words, if the user specifies "FoO|BaR", it will
+    # match any case combinations of 'foo' and 'bar', but if a global
+    # variable needs to be set, it will be $opt_FoO in the exact case
+    # as specified.
+    my $orig;
+
+    my @names;
+    if ( defined $names ) {
+	@names =  split (/\|/, $names);
+	$orig = $names[0];
+    }
+    else {
+	@names = ('');
+	$orig = '';
+    }
+
+    # Construct the opctl entries.
+    my $entry;
+    if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
+	# Fields are hard-wired here.
+	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
+    }
+    elsif ( $spec =~ /^:(-?\d+|\+)([@%])?$/ ) {
+	my $def = $1;
+	my $dest = $2;
+	my $type = $def eq '+' ? 'I' : 'i';
+	$dest ||= '$';
+	$dest = $dest eq '@' ? CTL_DEST_ARRAY
+	  : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR;
+	# Fields are hard-wired here.
+	$entry = [$type,$orig,$def eq '+' ? undef : $def,
+		  $dest,0,1];
+    }
+    else {
+	my ($mand, $type, $dest) =
+	  $spec =~ /^([=:])([ionfs])([@%])?(\{(\d+)?(,)?(\d+)?\})?$/;
+	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
+	  if $bundling && defined($4);
+	my ($mi, $cm, $ma) = ($5, $6, $7);
+	return (undef, "{0} is useless in option spec: \"$opt\"\n")
+	  if defined($mi) && !$mi && !defined($ma) && !defined($cm);
+
+	$type = 'i' if $type eq 'n';
+	$dest ||= '$';
+	$dest = $dest eq '@' ? CTL_DEST_ARRAY
+	  : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR;
+	# Default minargs to 1/0 depending on mand status.
+	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
+	# Adjust mand status according to minargs.
+	$mand = $mi ? '=' : ':';
+	# Adjust maxargs.
+	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
+	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
+	  if defined($ma) && !$ma;
+	return (undef, "Max less than min in option spec: \"$opt\"\n")
+	  if defined($ma) && $ma < $mi;
+
+	# Fields are hard-wired here.
+	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
+    }
+
+    # Process all names. First is canonical, the rest are aliases.
+    my $dups = '';
+    foreach ( @names ) {
+
+	$_ = lc ($_)
+	  if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0);
+
+	if ( exists $opctl->{$_} ) {
+	    $dups .= "Duplicate specification \"$opt\" for option \"$_\"\n";
+	}
+
+	if ( $spec eq '!' ) {
+	    $opctl->{"no$_"} = $entry;
+	    $opctl->{"no-$_"} = $entry;
+	    $opctl->{$_} = [@$entry];
+	    $opctl->{$_}->[CTL_TYPE] = '';
+	}
+	else {
+	    $opctl->{$_} = $entry;
+	}
+    }
+
+    if ( $dups && $^W ) {
+	foreach ( split(/\n+/, $dups) ) {
+	    warn($_."\n");
+	}
+    }
+    ($names[0], $orig);
+}
+
+# Option lookup.
+sub FindOption ($$$$$) {
+
+    # returns (1, $opt, $ctl, $arg, $key) if okay,
+    # returns (1, undef) if option in error,
+    # returns (0) otherwise.
+
+    my ($argv, $prefix, $argend, $opt, $opctl) = @_;
+
+    print STDERR ("=> find \"$opt\"\n") if $debug;
+
+    return (0) unless defined($opt);
+    return (0) unless $opt =~ /^($prefix)(.*)$/s;
+    return (0) if $opt eq "-" && !defined $opctl->{''};
+
+    $opt = substr( $opt, length($1) ); # retain taintedness
+    my $starter = $1;
+
+    print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug;
+
+    my $optarg;			# value supplied with --opt=value
+    my $rest;			# remainder from unbundling
+
+    # If it is a long option, it may include the value.
+    # With getopt_compat, only if not bundling.
+    if ( ($starter=~/^$longprefix$/
+	  || ($getopt_compat && ($bundling == 0 || $bundling == 2)))
+	 && (my $oppos = index($opt, '=', 1)) > 0) {
+	my $optorg = $opt;
+	$opt = substr($optorg, 0, $oppos);
+	$optarg = substr($optorg, $oppos + 1); # retain tainedness
+	print STDERR ("=> option \"", $opt,
+		      "\", optarg = \"$optarg\"\n") if $debug;
+    }
+
+    #### Look it up ###
+
+    my $tryopt = $opt;		# option to try
+
+    if ( ( $bundling || $bundling_values ) && $starter eq '-' ) {
+
+	# To try overrides, obey case ignore.
+	$tryopt = $ignorecase ? lc($opt) : $opt;
+
+	# If bundling == 2, long options can override bundles.
+	if ( $bundling == 2 && length($tryopt) > 1
+	     && defined ($opctl->{$tryopt}) ) {
+	    print STDERR ("=> $starter$tryopt overrides unbundling\n")
+	      if $debug;
+	}
+
+	# If bundling_values, option may be followed by the value.
+	elsif ( $bundling_values ) {
+	    $tryopt = $opt;
+	    # Unbundle single letter option.
+	    $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : '';
+	    $tryopt = substr ($tryopt, 0, 1);
+	    $tryopt = lc ($tryopt) if $ignorecase > 1;
+	    print STDERR ("=> $starter$tryopt unbundled from ",
+			  "$starter$tryopt$rest\n") if $debug;
+	    # Whatever remains may not be considered an option.
+	    $optarg = $rest eq '' ? undef : $rest;
+	    $rest = undef;
+	}
+
+	# Split off a single letter and leave the rest for
+	# further processing.
+	else {
+	    $tryopt = $opt;
+	    # Unbundle single letter option.
+	    $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : '';
+	    $tryopt = substr ($tryopt, 0, 1);
+	    $tryopt = lc ($tryopt) if $ignorecase > 1;
+	    print STDERR ("=> $starter$tryopt unbundled from ",
+			  "$starter$tryopt$rest\n") if $debug;
+	    $rest = undef unless $rest ne '';
+	}
+    }
+
+    # Try auto-abbreviation.
+    elsif ( $autoabbrev && $opt ne "" ) {
+	# Sort the possible long option names.
+	my @names = sort(keys (%$opctl));
+	# Downcase if allowed.
+	$opt = lc ($opt) if $ignorecase;
+	$tryopt = $opt;
+	# Turn option name into pattern.
+	my $pat = quotemeta ($opt);
+	# Look up in option names.
+	my @hits = grep (/^$pat/, @names);
+	print STDERR ("=> ", scalar(@hits), " hits (@hits) with \"$pat\" ",
+		      "out of ", scalar(@names), "\n") if $debug;
+
+	# Check for ambiguous results.
+	unless ( (@hits <= 1) || (grep ($_ eq $opt, @hits) == 1) ) {
+	    # See if all matches are for the same option.
+	    my %hit;
+	    foreach ( @hits ) {
+		my $hit = $opctl->{$_}->[CTL_CNAME]
+		  if defined $opctl->{$_}->[CTL_CNAME];
+		$hit = "no" . $hit if $opctl->{$_}->[CTL_TYPE] eq '!';
+		$hit{$hit} = 1;
+	    }
+	    # Remove auto-supplied options (version, help).
+	    if ( keys(%hit) == 2 ) {
+		if ( $auto_version && exists($hit{version}) ) {
+		    delete $hit{version};
+		}
+		elsif ( $auto_help && exists($hit{help}) ) {
+		    delete $hit{help};
+		}
+	    }
+	    # Now see if it really is ambiguous.
+	    unless ( keys(%hit) == 1 ) {
+		return (0) if $passthrough;
+		warn ("Option ", $opt, " is ambiguous (",
+		      join(", ", @hits), ")\n");
+		$error++;
+		return (1, undef);
+	    }
+	    @hits = keys(%hit);
+	}
+
+	# Complete the option name, if appropriate.
+	if ( @hits == 1 && $hits[0] ne $opt ) {
+	    $tryopt = $hits[0];
+	    $tryopt = lc ($tryopt)
+	      if $ignorecase > (($bundling && length($tryopt) == 1) ? 1 : 0);
+	    print STDERR ("=> option \"$opt\" -> \"$tryopt\"\n")
+		if $debug;
+	}
+    }
+
+    # Map to all lowercase if ignoring case.
+    elsif ( $ignorecase ) {
+	$tryopt = lc ($opt);
+    }
+
+    # Check validity by fetching the info.
+    my $ctl = $opctl->{$tryopt};
+    unless  ( defined $ctl ) {
+	return (0) if $passthrough;
+	# Pretend one char when bundling.
+	if ( $bundling == 1 && length($starter) == 1 ) {
+	    $opt = substr($opt,0,1);
+            unshift (@$argv, $starter.$rest) if defined $rest;
+	}
+	if ( $opt eq "" ) {
+	    warn ("Missing option after ", $starter, "\n");
+	}
+	else {
+	    warn ("Unknown option: ", $opt, "\n");
+	}
+	$error++;
+	return (1, undef);
+    }
+    # Apparently valid.
+    $opt = $tryopt;
+    print STDERR ("=> found ", OptCtl($ctl),
+		  " for \"", $opt, "\"\n") if $debug;
+
+    #### Determine argument status ####
+
+    # If it is an option w/o argument, we're almost finished with it.
+    my $type = $ctl->[CTL_TYPE];
+    my $arg;
+
+    if ( $type eq '' || $type eq '!' || $type eq '+' ) {
+	if ( defined $optarg ) {
+	    return (0) if $passthrough;
+	    warn ("Option ", $opt, " does not take an argument\n");
+	    $error++;
+	    undef $opt;
+	    undef $optarg if $bundling_values;
+	}
+	elsif ( $type eq '' || $type eq '+' ) {
+	    # Supply explicit value.
+	    $arg = 1;
+	}
+	else {
+	    $opt =~ s/^no-?//i;	# strip NO prefix
+	    $arg = 0;		# supply explicit value
+	}
+	unshift (@$argv, $starter.$rest) if defined $rest;
+	return (1, $opt, $ctl, $arg);
+    }
+
+    # Get mandatory status and type info.
+    my $mand = $ctl->[CTL_AMIN];
+
+    # Check if there is an option argument available.
+    if ( $gnu_compat ) {
+	my $optargtype = 0; # none, 1 = empty, 2 = nonempty, 3 = aux
+	if ( defined($optarg) ) {
+	    $optargtype = (length($optarg) == 0) ? 1 : 2;
+	}
+	elsif ( defined $rest || @$argv > 0 ) {
+	    # GNU getopt_long() does not accept the (optional)
+	    # argument to be passed to the option without = sign.
+	    # We do, since not doing so breaks existing scripts.
+	    $optargtype = 3;
+	}
+	if(($optargtype == 0) && !$mand) {
+	    my $val
+	      = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT]
+	      : $type eq 's'                 ? ''
+	      :                                0;
+	    return (1, $opt, $ctl, $val);
+	}
+	return (1, $opt, $ctl, $type eq 's' ? '' : 0)
+	  if $optargtype == 1;  # --foo=  -> return nothing
+    }
+
+    # Check if there is an option argument available.
+    if ( defined $optarg
+	 ? ($optarg eq '')
+	 : !(defined $rest || @$argv > 0) ) {
+	# Complain if this option needs an argument.
+#	if ( $mand && !($type eq 's' ? defined($optarg) : 0) ) {
+	if ( $mand ) {
+	    return (0) if $passthrough;
+	    warn ("Option ", $opt, " requires an argument\n");
+	    $error++;
+	    return (1, undef);
+	}
+	if ( $type eq 'I' ) {
+	    # Fake incremental type.
+	    my @c = @$ctl;
+	    $c[CTL_TYPE] = '+';
+	    return (1, $opt, \@c, 1);
+	}
+	return (1, $opt, $ctl,
+		defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] :
+		$type eq 's' ? '' : 0);
+    }
+
+    # Get (possibly optional) argument.
+    $arg = (defined $rest ? $rest
+	    : (defined $optarg ? $optarg : shift (@$argv)));
+
+    # Get key if this is a "name=value" pair for a hash option.
+    my $key;
+    if ($ctl->[CTL_DEST] == CTL_DEST_HASH && defined $arg) {
+	($key, $arg) = ($arg =~ /^([^=]*)=(.*)$/s) ? ($1, $2)
+	  : ($arg, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] :
+	     ($mand ? undef : ($type eq 's' ? "" : 1)));
+	if (! defined $arg) {
+	    warn ("Option $opt, key \"$key\", requires a value\n");
+	    $error++;
+	    # Push back.
+	    unshift (@$argv, $starter.$rest) if defined $rest;
+	    return (1, undef);
+	}
+    }
+
+    #### Check if the argument is valid for this option ####
+
+    my $key_valid = $ctl->[CTL_DEST] == CTL_DEST_HASH ? "[^=]+=" : "";
+
+    if ( $type eq 's' ) {	# string
+	# A mandatory string takes anything.
+	return (1, $opt, $ctl, $arg, $key) if $mand;
+
+	# Same for optional string as a hash value
+	return (1, $opt, $ctl, $arg, $key)
+	  if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+
+	# An optional string takes almost anything.
+	return (1, $opt, $ctl, $arg, $key)
+	  if defined $optarg || defined $rest;
+	return (1, $opt, $ctl, $arg, $key) if $arg eq "-"; # ??
+
+	# Check for option or option list terminator.
+	if ($arg eq $argend ||
+	    $arg =~ /^$prefix.+/) {
+	    # Push back.
+	    unshift (@$argv, $arg);
+	    # Supply empty value.
+	    $arg = '';
+	}
+    }
+
+    elsif ( $type eq 'i'	# numeric/integer
+            || $type eq 'I'	# numeric/integer w/ incr default
+	    || $type eq 'o' ) { # dec/oct/hex/bin value
+
+	my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT;
+
+	if ( $bundling && defined $rest
+	     && $rest =~ /^($key_valid)($o_valid)(.*)$/si ) {
+	    ($key, $arg, $rest) = ($1, $2, $+);
+	    chop($key) if $key;
+	    $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg;
+	    unshift (@$argv, $starter.$rest) if defined $rest && $rest ne '';
+	}
+	elsif ( $arg =~ /^$o_valid$/si ) {
+	    $arg =~ tr/_//d;
+	    $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg;
+	}
+	else {
+	    if ( defined $optarg || $mand ) {
+		if ( $passthrough ) {
+		    unshift (@$argv, defined $rest ? $starter.$rest : $arg)
+		      unless defined $optarg;
+		    return (0);
+		}
+		warn ("Value \"", $arg, "\" invalid for option ",
+		      $opt, " (",
+		      $type eq 'o' ? "extended " : '',
+		      "number expected)\n");
+		$error++;
+		# Push back.
+		unshift (@$argv, $starter.$rest) if defined $rest;
+		return (1, undef);
+	    }
+	    else {
+		# Push back.
+		unshift (@$argv, defined $rest ? $starter.$rest : $arg);
+		if ( $type eq 'I' ) {
+		    # Fake incremental type.
+		    my @c = @$ctl;
+		    $c[CTL_TYPE] = '+';
+		    return (1, $opt, \@c, 1);
+		}
+		# Supply default value.
+		$arg = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : 0;
+	    }
+	}
+    }
+
+    elsif ( $type eq 'f' ) { # real number, int is also ok
+	my $o_valid = PAT_FLOAT;
+	if ( $bundling && defined $rest &&
+	     $rest =~ /^($key_valid)($o_valid)(.*)$/s ) {
+	    $arg =~ tr/_//d;
+	    ($key, $arg, $rest) = ($1, $2, $+);
+	    chop($key) if $key;
+	    unshift (@$argv, $starter.$rest) if defined $rest && $rest ne '';
+	}
+	elsif ( $arg =~ /^$o_valid$/ ) {
+	    $arg =~ tr/_//d;
+	}
+	else {
+	    if ( defined $optarg || $mand ) {
+		if ( $passthrough ) {
+		    unshift (@$argv, defined $rest ? $starter.$rest : $arg)
+		      unless defined $optarg;
+		    return (0);
+		}
+		warn ("Value \"", $arg, "\" invalid for option ",
+		      $opt, " (real number expected)\n");
+		$error++;
+		# Push back.
+		unshift (@$argv, $starter.$rest) if defined $rest;
+		return (1, undef);
+	    }
+	    else {
+		# Push back.
+		unshift (@$argv, defined $rest ? $starter.$rest : $arg);
+		# Supply default value.
+		$arg = 0.0;
+	    }
+	}
+    }
+    else {
+	die("Getopt::Long internal error (Can't happen)\n");
+    }
+    return (1, $opt, $ctl, $arg, $key);
+}
+
+sub ValidValue ($$$$$) {
+    my ($ctl, $arg, $mand, $argend, $prefix) = @_;
+
+    if ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+	return 0 unless $arg =~ /[^=]+=(.*)/;
+	$arg = $1;
+    }
+
+    my $type = $ctl->[CTL_TYPE];
+
+    if ( $type eq 's' ) {	# string
+	# A mandatory string takes anything.
+	return (1) if $mand;
+
+	return (1) if $arg eq "-";
+
+	# Check for option or option list terminator.
+	return 0 if $arg eq $argend || $arg =~ /^$prefix.+/;
+	return 1;
+    }
+
+    elsif ( $type eq 'i'	# numeric/integer
+            || $type eq 'I'	# numeric/integer w/ incr default
+	    || $type eq 'o' ) { # dec/oct/hex/bin value
+
+	my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT;
+	return $arg =~ /^$o_valid$/si;
+    }
+
+    elsif ( $type eq 'f' ) { # real number, int is also ok
+	my $o_valid = PAT_FLOAT;
+	return $arg =~ /^$o_valid$/;
+    }
+    die("ValidValue: Cannot happen\n");
+}
+
+# Getopt::Long Configuration.
+sub Configure (@) {
+    my (@options) = @_;
+
+    my $prevconfig =
+      [ $error, $debug, $major_version, $minor_version, $caller,
+	$autoabbrev, $getopt_compat, $ignorecase, $bundling, $order,
+	$gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help,
+	$longprefix, $bundling_values ];
+
+    if ( ref($options[0]) eq 'ARRAY' ) {
+	( $error, $debug, $major_version, $minor_version, $caller,
+	  $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order,
+	  $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help,
+	  $longprefix, $bundling_values ) = @{shift(@options)};
+    }
+
+    my $opt;
+    foreach $opt ( @options ) {
+	my $try = lc ($opt);
+	my $action = 1;
+	if ( $try =~ /^no_?(.*)$/s ) {
+	    $action = 0;
+	    $try = $+;
+	}
+	if ( ($try eq 'default' or $try eq 'defaults') && $action ) {
+	    ConfigDefaults ();
+	}
+	elsif ( ($try eq 'posix_default' or $try eq 'posix_defaults') ) {
+	    local $ENV{POSIXLY_CORRECT};
+	    $ENV{POSIXLY_CORRECT} = 1 if $action;
+	    ConfigDefaults ();
+	}
+	elsif ( $try eq 'auto_abbrev' or $try eq 'autoabbrev' ) {
+	    $autoabbrev = $action;
+	}
+	elsif ( $try eq 'getopt_compat' ) {
+	    $getopt_compat = $action;
+            $genprefix = $action ? "(--|-|\\+)" : "(--|-)";
+	}
+	elsif ( $try eq 'gnu_getopt' ) {
+	    if ( $action ) {
+		$gnu_compat = 1;
+		$bundling = 1;
+		$getopt_compat = 0;
+                $genprefix = "(--|-)";
+		$order = $PERMUTE;
+		$bundling_values = 0;
+	    }
+	}
+	elsif ( $try eq 'gnu_compat' ) {
+	    $gnu_compat = $action;
+	    $bundling = 0;
+	    $bundling_values = 1;
+	}
+	elsif ( $try =~ /^(auto_?)?version$/ ) {
+	    $auto_version = $action;
+	}
+	elsif ( $try =~ /^(auto_?)?help$/ ) {
+	    $auto_help = $action;
+	}
+	elsif ( $try eq 'ignorecase' or $try eq 'ignore_case' ) {
+	    $ignorecase = $action;
+	}
+	elsif ( $try eq 'ignorecase_always' or $try eq 'ignore_case_always' ) {
+	    $ignorecase = $action ? 2 : 0;
+	}
+	elsif ( $try eq 'bundling' ) {
+	    $bundling = $action;
+	    $bundling_values = 0 if $action;
+	}
+	elsif ( $try eq 'bundling_override' ) {
+	    $bundling = $action ? 2 : 0;
+	    $bundling_values = 0 if $action;
+	}
+	elsif ( $try eq 'bundling_values' ) {
+	    $bundling_values = $action;
+	    $bundling = 0 if $action;
+	}
+	elsif ( $try eq 'require_order' ) {
+	    $order = $action ? $REQUIRE_ORDER : $PERMUTE;
+	}
+	elsif ( $try eq 'permute' ) {
+	    $order = $action ? $PERMUTE : $REQUIRE_ORDER;
+	}
+	elsif ( $try eq 'pass_through' or $try eq 'passthrough' ) {
+	    $passthrough = $action;
+	}
+	elsif ( $try =~ /^prefix=(.+)$/ && $action ) {
+	    $genprefix = $1;
+	    # Turn into regexp. Needs to be parenthesized!
+	    $genprefix = "(" . quotemeta($genprefix) . ")";
+	    eval { '' =~ /$genprefix/; };
+	    die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@;
+	}
+	elsif ( $try =~ /^prefix_pattern=(.+)$/ && $action ) {
+	    $genprefix = $1;
+	    # Parenthesize if needed.
+	    $genprefix = "(" . $genprefix . ")"
+	      unless $genprefix =~ /^\(.*\)$/;
+	    eval { '' =~ m"$genprefix"; };
+	    die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@;
+	}
+	elsif ( $try =~ /^long_prefix_pattern=(.+)$/ && $action ) {
+	    $longprefix = $1;
+	    # Parenthesize if needed.
+	    $longprefix = "(" . $longprefix . ")"
+	      unless $longprefix =~ /^\(.*\)$/;
+	    eval { '' =~ m"$longprefix"; };
+	    die("Getopt::Long: invalid long prefix pattern \"$longprefix\"\n") if $@;
+	}
+	elsif ( $try eq 'debug' ) {
+	    $debug = $action;
+	}
+	else {
+	    die("Getopt::Long: unknown or erroneous config parameter \"$opt\"\n")
+	}
+    }
+    $prevconfig;
+}
+
+# Deprecated name.
+sub config (@) {
+    Configure (@_);
+}
+
+# Issue a standard message for --version.
+#
+# The arguments are mostly the same as for Pod::Usage::pod2usage:
+#
+#  - a number (exit value)
+#  - a string (lead in message)
+#  - a hash with options. See Pod::Usage for details.
+#
+sub VersionMessage(@) {
+    # Massage args.
+    my $pa = setup_pa_args("version", @_);
+
+    my $v = $main::VERSION;
+    my $fh = $pa->{-output} ||
+      ( ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR );
+
+    print $fh (defined($pa->{-message}) ? $pa->{-message} : (),
+	       $0, defined $v ? " version $v" : (),
+	       "\n",
+	       "(", __PACKAGE__, "::", "GetOptions",
+	       " version ",
+	       defined($Getopt::Long::VERSION_STRING)
+	         ? $Getopt::Long::VERSION_STRING : $VERSION, ";",
+	       " Perl version ",
+	       $] >= 5.006 ? sprintf("%vd", $^V) : $],
+	       ")\n");
+    exit($pa->{-exitval}) unless $pa->{-exitval} eq "NOEXIT";
+}
+
+# Issue a standard message for --help.
+#
+# The arguments are the same as for Pod::Usage::pod2usage:
+#
+#  - a number (exit value)
+#  - a string (lead in message)
+#  - a hash with options. See Pod::Usage for details.
+#
+sub HelpMessage(@) {
+    eval {
+	require Pod::Usage;
+	import Pod::Usage;
+	1;
+    } || die("Cannot provide help: cannot load Pod::Usage\n");
+
+    # Note that pod2usage will issue a warning if -exitval => NOEXIT.
+    pod2usage(setup_pa_args("help", @_));
+
+}
+
+# Helper routine to set up a normalized hash ref to be used as
+# argument to pod2usage.
+sub setup_pa_args($@) {
+    my $tag = shift;		# who's calling
+
+    # If called by direct binding to an option, it will get the option
+    # name and value as arguments. Remove these, if so.
+    @_ = () if @_ == 2 && $_[0] eq $tag;
+
+    my $pa;
+    if ( @_ > 1 ) {
+	$pa = { @_ };
+    }
+    else {
+	$pa = shift || {};
+    }
+
+    # At this point, $pa can be a number (exit value), string
+    # (message) or hash with options.
+
+    if ( UNIVERSAL::isa($pa, 'HASH') ) {
+	# Get rid of -msg vs. -message ambiguity.
+	$pa->{-message} = $pa->{-msg};
+	delete($pa->{-msg});
+    }
+    elsif ( $pa =~ /^-?\d+$/ ) {
+	$pa = { -exitval => $pa };
+    }
+    else {
+	$pa = { -message => $pa };
+    }
+
+    # These are _our_ defaults.
+    $pa->{-verbose} = 0 unless exists($pa->{-verbose});
+    $pa->{-exitval} = 0 unless exists($pa->{-exitval});
+    $pa;
+}
+
+# Sneak way to know what version the user requested.
+sub VERSION {
+    $requested_version = $_[1];
+    shift->SUPER::VERSION(@_);
+}
+
+package Getopt::Long::CallBack;
+
+sub new {
+    my ($pkg, %atts) = @_;
+    bless { %atts }, $pkg;
+}
+
+sub name {
+    my $self = shift;
+    ''.$self->{name};
+}
+
+use overload
+  # Treat this object as an ordinary string for legacy API.
+  '""'	   => \&name,
+  fallback => 1;
+
+1;
+
+################ Documentation ################
+
+
+package Getopt::Std;
+require 5.000;
+require Exporter;
+
+
+@ISA = qw(Exporter);
+@EXPORT = qw(getopt getopts);
+$VERSION = '1.12';
+# uncomment the next line to disable 1.03-backward compatibility paranoia
+# $STANDARD_HELP_VERSION = 1;
+
+# Process single-character switches with switch clustering.  Pass one argument
+# which is a string containing all switches that take an argument.  For each
+# switch found, sets $opt_x (where x is the switch name) to the value of the
+# argument, or 1 if no argument.  Switches which take an argument don't care
+# whether there is a space between the switch and the argument.
+
+# Usage:
+#	getopt('oDI');  # -o, -D & -I take arg.  Sets opt_* as a side effect.
+
+sub getopt (;$$) {
+    my ($argumentative, $hash) = @_;
+    $argumentative = '' if !defined $argumentative;
+    my ($first,$rest);
+    local $_;
+    local @EXPORT;
+
+    while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
+	($first,$rest) = ($1,$2);
+	if (/^--$/) {	# early exit if --
+	    shift @ARGV;
+	    last;
+	}
+	if (index($argumentative,$first) >= 0) {
+	    if ($rest ne '') {
+		shift(@ARGV);
+	    }
+	    else {
+		shift(@ARGV);
+		$rest = shift(@ARGV);
+	    }
+	    if (ref $hash) {
+	        $$hash{$first} = $rest;
+	    }
+	    else {
+	        ${"opt_$first"} = $rest;
+	        push( @EXPORT, "\$opt_$first" );
+	    }
+	}
+	else {
+	    if (ref $hash) {
+	        $$hash{$first} = 1;
+	    }
+	    else {
+	        ${"opt_$first"} = 1;
+	        push( @EXPORT, "\$opt_$first" );
+	    }
+	    if ($rest ne '') {
+		$ARGV[0] = "-$rest";
+	    }
+	    else {
+		shift(@ARGV);
+	    }
+	}
+    }
+    unless (ref $hash) { 
+	local $Exporter::ExportLevel = 1;
+	import Getopt::Std;
+    }
+}
+
+sub output_h () {
+  return $OUTPUT_HELP_VERSION if defined $OUTPUT_HELP_VERSION;
+  return \*STDOUT if $STANDARD_HELP_VERSION;
+  return \*STDERR;
+}
+
+sub try_exit () {
+    exit 0 if $STANDARD_HELP_VERSION;
+    my $p = __PACKAGE__;
+    print {output_h()} <<EOM;
+  [Now continuing due to backward compatibility and excessive paranoia.
+   See 'perldoc $p' about \$$p\::STANDARD_HELP_VERSION.]
+EOM
+}
+
+sub version_mess ($;$) {
+    my $args = shift;
+    my $h = output_h;
+    if (@_ and defined &main::VERSION_MESSAGE) {
+	main::VERSION_MESSAGE($h, __PACKAGE__, $VERSION, $args);
+    } else {
+	my $v = $main::VERSION;
+	$v = '[unknown]' unless defined $v;
+	my $myv = $VERSION;
+	$myv .= ' [paranoid]' unless $STANDARD_HELP_VERSION;
+	my $perlv = $];
+	$perlv = sprintf "%vd", $^V if $] >= 5.006;
+	print $h <<EOH;
+$0 version $v calling Getopt::Std::getopts (version $myv),
+running under Perl version $perlv.
+EOH
+    }
+}
+
+sub help_mess ($;$) {
+    my $args = shift;
+    my $h = output_h;
+    if (@_ and defined &main::HELP_MESSAGE) {
+	main::HELP_MESSAGE($h, __PACKAGE__, $VERSION, $args);
+    } else {
+	my (@witharg) = ($args =~ /(\S)\s*:/g);
+	my (@rest) = ($args =~ /([^\s:])(?!\s*:)/g);
+	my ($help, $arg) = ('', '');
+	if (@witharg) {
+	    $help .= "\n\tWith arguments: -" . join " -", @witharg;
+	    $arg = "\nSpace is not required between options and their arguments.";
+	}
+	if (@rest) {
+	    $help .= "\n\tBoolean (without arguments): -" . join " -", @rest;
+	}
+	my ($scr) = ($0 =~ m,([^/\\]+)$,);
+	print $h <<EOH if @_;			# Let the script override this
+
+Usage: $scr [-OPTIONS [-MORE_OPTIONS]] [--] [PROGRAM_ARG1 ...]
+EOH
+	print $h <<EOH;
+
+The following single-character options are accepted:$help
+
+Options may be merged together.  -- stops processing of options.$arg
+EOH
+	my $has_pod;
+	if ( defined $0 and $0 ne '-e' and -f $0 and -r $0
+	     and open my $script, '<', $0 ) {
+	    while (<$script>) {
+		$has_pod = 1, last if /^=(pod|head1)/;
+	    }
+	}
+	print $h <<EOH if $has_pod;
+
+For more details run
+	perldoc -F $0
+EOH
+    }
+}
+
+# Usage:
+#   getopts('a:bc');	# -a takes arg. -b & -c not. Sets opt_* as a
+#			#  side effect.
+
+sub getopts ($;$) {
+    my ($argumentative, $hash) = @_;
+    my (@args,$first,$rest,$exit);
+    my $errs = 0;
+    local $_;
+    local @EXPORT;
+
+    @args = split( / */, $argumentative );
+    while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/s) {
+	($first,$rest) = ($1,$2);
+	if (/^--$/) {	# early exit if --
+	    shift @ARGV;
+	    last;
+	}
+	my $pos = index($argumentative,$first);
+	if ($pos >= 0) {
+	    if (defined($args[$pos+1]) and ($args[$pos+1] eq ':')) {
+		shift(@ARGV);
+		if ($rest eq '') {
+		    ++$errs unless @ARGV;
+		    $rest = shift(@ARGV);
+		}
+		if (ref $hash) {
+		    $$hash{$first} = $rest;
+		}
+		else {
+		    ${"opt_$first"} = $rest;
+		    push( @EXPORT, "\$opt_$first" );
+		}
+	    }
+	    else {
+		if (ref $hash) {
+		    $$hash{$first} = 1;
+		}
+		else {
+		    ${"opt_$first"} = 1;
+		    push( @EXPORT, "\$opt_$first" );
+		}
+		if ($rest eq '') {
+		    shift(@ARGV);
+		}
+		else {
+		    $ARGV[0] = "-$rest";
+		}
+	    }
+	}
+	else {
+	    if ($first eq '-' and $rest eq 'help') {
+		version_mess($argumentative, 'main');
+		help_mess($argumentative, 'main');
+		try_exit();
+		shift(@ARGV);
+		next;
+	    } elsif ($first eq '-' and $rest eq 'version') {
+		version_mess($argumentative, 'main');
+		try_exit();
+		shift(@ARGV);
+		next;
+	    }
+	    warn "Unknown option: $first\n";
+	    ++$errs;
+	    if ($rest ne '') {
+		$ARGV[0] = "-$rest";
+	    }
+	    else {
+		shift(@ARGV);
+	    }
+	}
+    }
+    unless (ref $hash) { 
+	local $Exporter::ExportLevel = 1;
+	import Getopt::Std;
+    }
+    $errs == 0;
+}
+
+1;
+package Params::Check;
+
+use strict;
+
+use Carp                        qw[carp croak];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+BEGIN {
+    use Exporter    ();
+    use vars        qw[ @ISA $VERSION @EXPORT_OK $VERBOSE $ALLOW_UNKNOWN
+                        $STRICT_TYPE $STRIP_LEADING_DASHES $NO_DUPLICATES
+                        $PRESERVE_CASE $ONLY_ALLOW_DEFINED $WARNINGS_FATAL
+                        $SANITY_CHECK_TEMPLATE $CALLER_DEPTH $_ERROR_STRING
+                    ];
+
+    @ISA        =   qw[ Exporter ];
+    @EXPORT_OK  =   qw[check allow last_error];
+
+    $VERSION                = '0.38';
+    $VERBOSE                = $^W ? 1 : 0;
+    $NO_DUPLICATES          = 0;
+    $STRIP_LEADING_DASHES   = 0;
+    $STRICT_TYPE            = 0;
+    $ALLOW_UNKNOWN          = 0;
+    $PRESERVE_CASE          = 0;
+    $ONLY_ALLOW_DEFINED     = 0;
+    $SANITY_CHECK_TEMPLATE  = 1;
+    $WARNINGS_FATAL         = 0;
+    $CALLER_DEPTH           = 0;
+}
+
+my %known_keys = map { $_ => 1 }
+                    qw| required allow default strict_type no_override
+                        store defined |;
+
+
+sub check {
+    my ($utmpl, $href, $verbose) = @_;
+
+    ### clear the current error string ###
+    _clear_error();
+
+    ### did we get the arguments we need? ###
+    if ( !$utmpl or !$href ) {
+      _store_error(loc('check() expects two arguments'));
+      return unless $WARNINGS_FATAL;
+      croak(__PACKAGE__->last_error);
+    }
+
+    ### sensible defaults ###
+    $verbose ||= $VERBOSE || 0;
+
+    ### XXX what type of template is it? ###
+    ### { key => { } } ?
+    #if (ref $args eq 'HASH') {
+    #    1;
+    #}
+
+    ### clean up the template ###
+    my $args;
+
+    ### don't even bother to loop, if there's nothing to clean up ###
+    if( $PRESERVE_CASE and !$STRIP_LEADING_DASHES ) {
+        $args = $href;
+    } else {
+        ### keys are not aliased ###
+        for my $key (keys %$href) {
+            my $org = $key;
+            $key = lc $key unless $PRESERVE_CASE;
+            $key =~ s/^-// if $STRIP_LEADING_DASHES;
+            $args->{$key} = $href->{$org};
+        }
+    }
+
+    my %defs;
+
+    ### which template entries have a 'store' member
+    my @want_store;
+
+    ### sanity check + defaults + required keys set? ###
+    my $fail;
+    for my $key (keys %$utmpl) {
+        my $tmpl = $utmpl->{$key};
+
+        ### check if required keys are provided
+        ### keys are now lower cased, unless preserve case was enabled
+        ### at which point, the utmpl keys must match, but that's the users
+        ### problem.
+        if( $tmpl->{'required'} and not exists $args->{$key} ) {
+            _store_error(
+                loc(q|Required option '%1' is not provided for %2 by %3|,
+                    $key, _who_was_it(), _who_was_it(1)), $verbose );
+
+            ### mark the error ###
+            $fail++;
+            next;
+        }
+
+        ### next, set the default, make sure the key exists in %defs ###
+        $defs{$key} = $tmpl->{'default'}
+                        if exists $tmpl->{'default'};
+
+        if( $SANITY_CHECK_TEMPLATE ) {
+            ### last, check if they provided any weird template keys
+            ### -- do this last so we don't always execute this code.
+            ### just a small optimization.
+            map {   _store_error(
+                        loc(q|Template type '%1' not supported [at key '%2']|,
+                        $_, $key), 1, 0 );
+            } grep {
+                not $known_keys{$_}
+            } keys %$tmpl;
+
+            ### make sure you passed a ref, otherwise, complain about it!
+            if ( exists $tmpl->{'store'} ) {
+                _store_error( loc(
+                    q|Store variable for '%1' is not a reference!|, $key
+                ), 1, 0 ) unless ref $tmpl->{'store'};
+            }
+        }
+
+        push @want_store, $key if $tmpl->{'store'};
+    }
+
+    ### errors found ###
+    return if $fail;
+
+    ### flag to see if anything went wrong ###
+    my $wrong;
+
+    ### flag to see if we warned for anything, needed for warnings_fatal
+    my $warned;
+
+    for my $key (keys %$args) {
+        my $arg = $args->{$key};
+
+        ### you gave us this key, but it's not in the template ###
+        unless( $utmpl->{$key} ) {
+
+            ### but we'll allow it anyway ###
+            if( $ALLOW_UNKNOWN ) {
+                $defs{$key} = $arg;
+
+            ### warn about the error ###
+            } else {
+                _store_error(
+                    loc("Key '%1' is not a valid key for %2 provided by %3",
+                        $key, _who_was_it(), _who_was_it(1)), $verbose);
+                $warned ||= 1;
+            }
+            next;
+        }
+
+        ### copy of this keys template instructions, to save derefs ###
+        my %tmpl = %{$utmpl->{$key}};
+
+        ### check if you're even allowed to override this key ###
+        if( $tmpl{'no_override'} ) {
+            _store_error(
+                loc(q[You are not allowed to override key '%1'].
+                    q[for %2 from %3], $key, _who_was_it(), _who_was_it(1)),
+                $verbose
+            );
+            $warned ||= 1;
+            next;
+        }
+
+        ### check if you were supposed to provide defined() values ###
+        if( ($tmpl{'defined'} || $ONLY_ALLOW_DEFINED) and not defined $arg ) {
+            _store_error(loc(q|Key '%1' must be defined when passed|, $key),
+                $verbose );
+            $wrong ||= 1;
+            next;
+        }
+
+        ### check if they should be of a strict type, and if it is ###
+        if( ($tmpl{'strict_type'} || $STRICT_TYPE) and
+            (ref $arg ne ref $tmpl{'default'})
+        ) {
+            _store_error(loc(q|Key '%1' needs to be of type '%2'|,
+                        $key, ref $tmpl{'default'} || 'SCALAR'), $verbose );
+            $wrong ||= 1;
+            next;
+        }
+
+        ### check if we have an allow handler, to validate against ###
+        ### allow() will report its own errors ###
+        if( exists $tmpl{'allow'} and not do {
+                local $_ERROR_STRING;
+                allow( $arg, $tmpl{'allow'} )
+            }
+        ) {
+            ### stringify the value in the error report -- we don't want dumps
+            ### of objects, but we do want to see *roughly* what we passed
+            _store_error(loc(q|Key '%1' (%2) is of invalid type for '%3' |.
+                             q|provided by %4|,
+                            $key, "$arg", _who_was_it(),
+                            _who_was_it(1)), $verbose);
+            $wrong ||= 1;
+            next;
+        }
+
+        ### we got here, then all must be OK ###
+        $defs{$key} = $arg;
+
+    }
+
+    ### croak with the collected errors if there were errors and
+    ### we have the fatal flag toggled.
+    croak(__PACKAGE__->last_error) if ($wrong || $warned) && $WARNINGS_FATAL;
+
+    ### done with our loop... if $wrong is set, something went wrong
+    ### and the user is already informed, just return...
+    return if $wrong;
+
+    ### check if we need to store any of the keys ###
+    ### can't do it before, because something may go wrong later,
+    ### leaving the user with a few set variables
+    for my $key (@want_store) {
+        next unless exists $defs{$key};
+        my $ref = $utmpl->{$key}{'store'};
+        $$ref = $NO_DUPLICATES ? delete $defs{$key} : $defs{$key};
+    }
+
+    return \%defs;
+}
+
+
+sub allow {
+    ### use $_[0] and $_[1] since this is hot code... ###
+    #my ($val, $ref) = @_;
+
+    ### it's a regexp ###
+    if( ref $_[1] eq 'Regexp' ) {
+        local $^W;  # silence warnings if $val is undef #
+        return if $_[0] !~ /$_[1]/;
+
+    ### it's a sub ###
+    } elsif ( ref $_[1] eq 'CODE' ) {
+        return unless $_[1]->( $_[0] );
+
+    ### it's an array ###
+    } elsif ( ref $_[1] eq 'ARRAY' ) {
+
+        ### loop over the elements, see if one of them says the
+        ### value is OK
+        ### also, short-circuit when possible
+        for ( @{$_[1]} ) {
+            return 1 if allow( $_[0], $_ );
+        }
+
+        return;
+
+    ### fall back to a simple, but safe 'eq' ###
+    } else {
+        return unless _safe_eq( $_[0], $_[1] );
+    }
+
+    ### we got here, no failures ###
+    return 1;
+}
+
+### helper functions ###
+
+sub _safe_eq {
+    ### only do a straight 'eq' if they're both defined ###
+    return defined($_[0]) && defined($_[1])
+                ? $_[0] eq $_[1]
+                : defined($_[0]) eq defined($_[1]);
+}
+
+sub _who_was_it {
+    my $level = $_[0] || 0;
+
+    return (caller(2 + $CALLER_DEPTH + $level))[3] || 'ANON'
+}
+
+
+{   $_ERROR_STRING = '';
+
+    sub _store_error {
+        my($err, $verbose, $offset) = @_[0..2];
+        $verbose ||= 0;
+        $offset  ||= 0;
+        my $level   = 1 + $offset;
+
+        local $Carp::CarpLevel = $level;
+
+        carp $err if $verbose;
+
+        $_ERROR_STRING .= $err . "\n";
+    }
+
+    sub _clear_error {
+        $_ERROR_STRING = '';
+    }
+
+    sub last_error { $_ERROR_STRING }
+}
+
+1;
+
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
+# Color screen output using ANSI escape sequences.
+#
+# Copyright 1996, 1997, 1998, 2000, 2001, 2002, 2005, 2006, 2008, 2009, 2010,
+#     2011, 2012, 2013, 2014, 2015, 2016 Russ Allbery <rra@cpan.org>
+# Copyright 1996 Zenin
+# Copyright 2012 Kurt Starsinic <kstarsinic@gmail.com>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# PUSH/POP support submitted 2007 by openmethods.com voice solutions
+#
+# Ah, September, when the sysadmins turn colors and fall off the trees....
+#                               -- Dave Van Domelen
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Term::ANSIColor;
+
+use 5.006;
+use strict;
+use warnings;
+
+# Also uses Carp but loads it on demand to reduce memory usage.
+
+use Exporter ();
+
+# use Exporter plus @ISA instead of use base for 5.6 compatibility.
+## no critic (ClassHierarchies::ProhibitExplicitISA)
+
+# Declare variables that should be set in BEGIN for robustness.
+## no critic (Modules::ProhibitAutomaticExportation)
+our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS, @ISA, $VERSION);
+
+# We use autoloading, which sets this variable to the name of the called sub.
+our $AUTOLOAD;
+
+# Set $VERSION and everything export-related in a BEGIN block for robustness
+# against circular module loading (not that we load any modules, but
+# consistency is good).
+BEGIN {
+    $VERSION = '4.06';
+
+    # All of the basic supported constants, used in %EXPORT_TAGS.
+    my @colorlist = qw(
+      CLEAR           RESET             BOLD            DARK
+      FAINT           ITALIC            UNDERLINE       UNDERSCORE
+      BLINK           REVERSE           CONCEALED
+
+      BLACK           RED               GREEN           YELLOW
+      BLUE            MAGENTA           CYAN            WHITE
+      ON_BLACK        ON_RED            ON_GREEN        ON_YELLOW
+      ON_BLUE         ON_MAGENTA        ON_CYAN         ON_WHITE
+
+      BRIGHT_BLACK    BRIGHT_RED        BRIGHT_GREEN    BRIGHT_YELLOW
+      BRIGHT_BLUE     BRIGHT_MAGENTA    BRIGHT_CYAN     BRIGHT_WHITE
+      ON_BRIGHT_BLACK ON_BRIGHT_RED     ON_BRIGHT_GREEN ON_BRIGHT_YELLOW
+      ON_BRIGHT_BLUE  ON_BRIGHT_MAGENTA ON_BRIGHT_CYAN  ON_BRIGHT_WHITE
+    );
+
+    # 256-color constants, used in %EXPORT_TAGS.
+    my @colorlist256 = (
+        (map { ("ANSI$_", "ON_ANSI$_") } 0 .. 255),
+        (map { ("GREY$_", "ON_GREY$_") } 0 .. 23),
+    );
+    for my $r (0 .. 5) {
+        for my $g (0 .. 5) {
+            push(@colorlist256, map { ("RGB$r$g$_", "ON_RGB$r$g$_") } 0 .. 5);
+        }
+    }
+
+    # Exported symbol configuration.
+    @ISA         = qw(Exporter);
+    @EXPORT      = qw(color colored);
+    @EXPORT_OK   = qw(uncolor colorstrip colorvalid coloralias);
+    %EXPORT_TAGS = (
+        constants    => \@colorlist,
+        constants256 => \@colorlist256,
+        pushpop      => [@colorlist, qw(PUSHCOLOR POPCOLOR LOCALCOLOR)],
+    );
+    Exporter::export_ok_tags('pushpop', 'constants256');
+}
+
+##############################################################################
+# Package variables
+##############################################################################
+
+# If this is set, any color changes will implicitly push the current color
+# onto the stack and then pop it at the end of the constant sequence, just as
+# if LOCALCOLOR were used.
+our $AUTOLOCAL;
+
+# Caller sets this to force a reset at the end of each constant sequence.
+our $AUTORESET;
+
+# Caller sets this to force colors to be reset at the end of each line.
+our $EACHLINE;
+
+##############################################################################
+# Internal data structures
+##############################################################################
+
+# This module does quite a bit of initialization at the time it is first
+# loaded, primarily to set up the package-global %ATTRIBUTES hash.  The
+# entries for 256-color names are easier to handle programmatically, and
+# custom colors are also imported from the environment if any are set.
+
+# All basic supported attributes, including aliases.
+#<<<
+our %ATTRIBUTES = (
+    'clear'          => 0,
+    'reset'          => 0,
+    'bold'           => 1,
+    'dark'           => 2,
+    'faint'          => 2,
+    'italic'         => 3,
+    'underline'      => 4,
+    'underscore'     => 4,
+    'blink'          => 5,
+    'reverse'        => 7,
+    'concealed'      => 8,
+
+    'black'          => 30,   'on_black'          => 40,
+    'red'            => 31,   'on_red'            => 41,
+    'green'          => 32,   'on_green'          => 42,
+    'yellow'         => 33,   'on_yellow'         => 43,
+    'blue'           => 34,   'on_blue'           => 44,
+    'magenta'        => 35,   'on_magenta'        => 45,
+    'cyan'           => 36,   'on_cyan'           => 46,
+    'white'          => 37,   'on_white'          => 47,
+
+    'bright_black'   => 90,   'on_bright_black'   => 100,
+    'bright_red'     => 91,   'on_bright_red'     => 101,
+    'bright_green'   => 92,   'on_bright_green'   => 102,
+    'bright_yellow'  => 93,   'on_bright_yellow'  => 103,
+    'bright_blue'    => 94,   'on_bright_blue'    => 104,
+    'bright_magenta' => 95,   'on_bright_magenta' => 105,
+    'bright_cyan'    => 96,   'on_bright_cyan'    => 106,
+    'bright_white'   => 97,   'on_bright_white'   => 107,
+);
+#>>>
+
+# Generating the 256-color codes involves a lot of codes and offsets that are
+# not helped by turning them into constants.
+
+# The first 16 256-color codes are duplicates of the 16 ANSI colors.  The rest
+# are RBG and greyscale values.
+for my $code (0 .. 15) {
+    $ATTRIBUTES{"ansi$code"}    = "38;5;$code";
+    $ATTRIBUTES{"on_ansi$code"} = "48;5;$code";
+}
+
+# 256-color RGB colors.  Red, green, and blue can each be values 0 through 5,
+# and the resulting 216 colors start with color 16.
+for my $r (0 .. 5) {
+    for my $g (0 .. 5) {
+        for my $b (0 .. 5) {
+            my $code = 16 + (6 * 6 * $r) + (6 * $g) + $b;
+            $ATTRIBUTES{"rgb$r$g$b"}    = "38;5;$code";
+            $ATTRIBUTES{"on_rgb$r$g$b"} = "48;5;$code";
+        }
+    }
+}
+
+# The last 256-color codes are 24 shades of grey.
+for my $n (0 .. 23) {
+    my $code = $n + 232;
+    $ATTRIBUTES{"grey$n"}    = "38;5;$code";
+    $ATTRIBUTES{"on_grey$n"} = "48;5;$code";
+}
+
+# Reverse lookup.  Alphabetically first name for a sequence is preferred.
+our %ATTRIBUTES_R;
+for my $attr (reverse sort keys %ATTRIBUTES) {
+    $ATTRIBUTES_R{ $ATTRIBUTES{$attr} } = $attr;
+}
+
+# Provide ansiN names for all 256 characters to provide a convenient flat
+# namespace if one doesn't want to mess with the RGB and greyscale naming.  Do
+# this after creating %ATTRIBUTES_R since we want to use the canonical names
+# when reversing a color.
+for my $code (16 .. 255) {
+    $ATTRIBUTES{"ansi$code"}    = "38;5;$code";
+    $ATTRIBUTES{"on_ansi$code"} = "48;5;$code";
+}
+
+# Import any custom colors set in the environment.
+our %ALIASES;
+if (exists $ENV{ANSI_COLORS_ALIASES}) {
+    my $spec = $ENV{ANSI_COLORS_ALIASES};
+    $spec =~ s{\s+}{}xmsg;
+
+    # Error reporting here is an interesting question.  Use warn rather than
+    # carp because carp would report the line of the use or require, which
+    # doesn't help anyone understand what's going on, whereas seeing this code
+    # will be more helpful.
+    ## no critic (ErrorHandling::RequireCarping)
+    for my $definition (split m{,}xms, $spec) {
+        my ($new, $old) = split m{=}xms, $definition, 2;
+        if (!$new || !$old) {
+            warn qq{Bad color mapping "$definition"};
+        } else {
+            my $result = eval { coloralias($new, $old) };
+            if (!$result) {
+                my $error = $@;
+                $error =~ s{ [ ] at [ ] .* }{}xms;
+                warn qq{$error in "$definition"};
+            }
+        }
+    }
+}
+
+# Stores the current color stack maintained by PUSHCOLOR and POPCOLOR.  This
+# is global and therefore not threadsafe.
+our @COLORSTACK;
+
+##############################################################################
+# Helper functions
+##############################################################################
+
+# Stub to load the Carp module on demand.
+sub croak {
+    my (@args) = @_;
+    require Carp;
+    Carp::croak(@args);
+}
+
+##############################################################################
+# Implementation (constant form)
+##############################################################################
+
+# Time to have fun!  We now want to define the constant subs, which are named
+# the same as the attributes above but in all caps.  Each constant sub needs
+# to act differently depending on whether $AUTORESET is set.  Without
+# autoreset:
+#
+#     BLUE "text\n"  ==>  "\e[34mtext\n"
+#
+# If $AUTORESET is set, we should instead get:
+#
+#     BLUE "text\n"  ==>  "\e[34mtext\n\e[0m"
+#
+# The sub also needs to handle the case where it has no arguments correctly.
+# Maintaining all of this as separate subs would be a major nightmare, as well
+# as duplicate the %ATTRIBUTES hash, so instead we define an AUTOLOAD sub to
+# define the constant subs on demand.  To do that, we check the name of the
+# called sub against the list of attributes, and if it's an all-caps version
+# of one of them, we define the sub on the fly and then run it.
+#
+# If the environment variable ANSI_COLORS_DISABLED is set to a true value,
+# just return the arguments without adding any escape sequences.  This is to
+# make it easier to write scripts that also work on systems without any ANSI
+# support, like Windows consoles.
+#
+# Avoid using character classes like [:upper:] and \w here, since they load
+# Unicode character tables and consume a ton of memory.  All of our constants
+# only use ASCII characters.
+#
+## no critic (ClassHierarchies::ProhibitAutoloading)
+## no critic (Subroutines::RequireArgUnpacking)
+## no critic (RegularExpressions::ProhibitEnumeratedClasses)
+sub AUTOLOAD {
+    my ($sub, $attr) = $AUTOLOAD =~ m{
+        \A ( [a-zA-Z0-9:]* :: ([A-Z0-9_]+) ) \z
+    }xms;
+
+    # Check if we were called with something that doesn't look like an
+    # attribute.
+    if (!($attr && defined($ATTRIBUTES{ lc $attr }))) {
+        croak("undefined subroutine &$AUTOLOAD called");
+    }
+
+    # If colors are disabled, just return the input.  Do this without
+    # installing a sub for (marginal, unbenchmarked) speed.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return join(q{}, @_);
+    }
+
+    # We've untainted the name of the sub.
+    $AUTOLOAD = $sub;
+
+    # Figure out the ANSI string to set the desired attribute.
+    my $escape = "\e[" . $ATTRIBUTES{ lc $attr } . 'm';
+
+    # Save the current value of $@.  We can't just use local since we want to
+    # restore it before dispatching to the newly-created sub.  (The caller may
+    # be colorizing output that includes $@.)
+    my $eval_err = $@;
+
+    # Generate the constant sub, which should still recognize some of our
+    # package variables.  Use string eval to avoid a dependency on
+    # Sub::Install, even though it makes it somewhat less readable.
+    ## no critic (BuiltinFunctions::ProhibitStringyEval)
+    ## no critic (ValuesAndExpressions::ProhibitImplicitNewlines)
+    my $eval_result = eval qq{
+        sub $AUTOLOAD {
+            if (\$ENV{ANSI_COLORS_DISABLED}) {
+                return join(q{}, \@_);
+            } elsif (\$AUTOLOCAL && \@_) {
+                return PUSHCOLOR('$escape') . join(q{}, \@_) . POPCOLOR;
+            } elsif (\$AUTORESET && \@_) {
+                return '$escape' . join(q{}, \@_) . "\e[0m";
+            } else {
+                return '$escape' . join(q{}, \@_);
+            }
+        }
+        1;
+    };
+
+    # Failure is an internal error, not a problem with the caller.
+    ## no critic (ErrorHandling::RequireCarping)
+    if (!$eval_result) {
+        die "failed to generate constant $attr: $@";
+    }
+
+    # Restore $@.
+    ## no critic (Variables::RequireLocalizedPunctuationVars)
+    $@ = $eval_err;
+
+    # Dispatch to the newly-created sub.
+    ## no critic (References::ProhibitDoubleSigils)
+    goto &$AUTOLOAD;
+}
+## use critic
+
+# Append a new color to the top of the color stack and return the top of
+# the stack.
+#
+# $text - Any text we're applying colors to, with color escapes prepended
+#
+# Returns: The text passed in
+sub PUSHCOLOR {
+    my (@text) = @_;
+    my $text = join(q{}, @text);
+
+    # Extract any number of color-setting escape sequences from the start of
+    # the string.
+    my ($color) = $text =~ m{ \A ( (?:\e\[ [\d;]+ m)+ ) }xms;
+
+    # If we already have a stack, append these escapes to the set from the top
+    # of the stack.  This way, each position in the stack stores the complete
+    # enabled colors for that stage, at the cost of some potential
+    # inefficiency.
+    if (@COLORSTACK) {
+        $color = $COLORSTACK[-1] . $color;
+    }
+
+    # Push the color onto the stack.
+    push(@COLORSTACK, $color);
+    return $text;
+}
+
+# Pop the color stack and return the new top of the stack (or reset, if
+# the stack is empty).
+#
+# @text - Any text we're applying colors to
+#
+# Returns: The concatenation of @text prepended with the new stack color
+sub POPCOLOR {
+    my (@text) = @_;
+    pop(@COLORSTACK);
+    if (@COLORSTACK) {
+        return $COLORSTACK[-1] . join(q{}, @text);
+    } else {
+        return RESET(@text);
+    }
+}
+
+# Surround arguments with a push and a pop.  The effect will be to reset the
+# colors to whatever was on the color stack before this sequence of colors was
+# applied.
+#
+# @text - Any text we're applying colors to
+#
+# Returns: The concatenation of the text and the proper color reset sequence.
+sub LOCALCOLOR {
+    my (@text) = @_;
+    return PUSHCOLOR(join(q{}, @text)) . POPCOLOR();
+}
+
+##############################################################################
+# Implementation (attribute string form)
+##############################################################################
+
+# Return the escape code for a given set of color attributes.
+#
+# @codes - A list of possibly space-separated color attributes
+#
+# Returns: The escape sequence setting those color attributes
+#          undef if no escape sequences were given
+#  Throws: Text exception for any invalid attribute
+sub color {
+    my (@codes) = @_;
+    @codes = map { split } @codes;
+
+    # Return the empty string if colors are disabled.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return q{};
+    }
+
+    # Build the attribute string from semicolon-separated numbers.
+    my $attribute = q{};
+    for my $code (@codes) {
+        $code = lc($code);
+        if (defined($ATTRIBUTES{$code})) {
+            $attribute .= $ATTRIBUTES{$code} . q{;};
+        } elsif (defined($ALIASES{$code})) {
+            $attribute .= $ALIASES{$code} . q{;};
+        } else {
+            croak("Invalid attribute name $code");
+        }
+    }
+
+    # We added one too many semicolons for simplicity.  Remove the last one.
+    chop($attribute);
+
+    # Return undef if there were no attributes.
+    return ($attribute ne q{}) ? "\e[${attribute}m" : undef;
+}
+
+# Return a list of named color attributes for a given set of escape codes.
+# Escape sequences can be given with or without enclosing "\e[" and "m".  The
+# empty escape sequence '' or "\e[m" gives an empty list of attrs.
+#
+# There is one special case.  256-color codes start with 38 or 48, followed by
+# a 5 and then the 256-color code.
+#
+# @escapes - A list of escape sequences or escape sequence numbers
+#
+# Returns: An array of attribute names corresponding to those sequences
+#  Throws: Text exceptions on invalid escape sequences or unknown colors
+sub uncolor {
+    my (@escapes) = @_;
+    my (@nums, @result);
+
+    # Walk the list of escapes and build a list of attribute numbers.
+    for my $escape (@escapes) {
+        $escape =~ s{ \A \e\[ }{}xms;
+        $escape =~ s{ m \z }   {}xms;
+        my ($attrs) = $escape =~ m{ \A ((?:\d+;)* \d*) \z }xms;
+        if (!defined($attrs)) {
+            croak("Bad escape sequence $escape");
+        }
+
+        # Pull off 256-color codes (38;5;n or 48;5;n) as a unit.
+        push(@nums, $attrs =~ m{ ( 0*[34]8;0*5;\d+ | \d+ ) (?: ; | \z ) }xmsg);
+    }
+
+    # Now, walk the list of numbers and convert them to attribute names.
+    # Strip leading zeroes from any of the numbers.  (xterm, at least, allows
+    # leading zeroes to be added to any number in an escape sequence.)
+    for my $num (@nums) {
+        $num =~ s{ ( \A | ; ) 0+ (\d) }{$1$2}xmsg;
+        my $name = $ATTRIBUTES_R{$num};
+        if (!defined($name)) {
+            croak("No name for escape sequence $num");
+        }
+        push(@result, $name);
+    }
+
+    # Return the attribute names.
+    return @result;
+}
+
+# Given a string and a set of attributes, returns the string surrounded by
+# escape codes to set those attributes and then clear them at the end of the
+# string.  The attributes can be given either as an array ref as the first
+# argument or as a list as the second and subsequent arguments.
+#
+# If $EACHLINE is set, insert a reset before each occurrence of the string
+# $EACHLINE and the starting attribute code after the string $EACHLINE, so
+# that no attribute crosses line delimiters (this is often desirable if the
+# output is to be piped to a pager or some other program).
+#
+# $first - An anonymous array of attributes or the text to color
+# @rest  - The text to color or the list of attributes
+#
+# Returns: The text, concatenated if necessary, surrounded by escapes to set
+#          the desired colors and reset them afterwards
+#  Throws: Text exception on invalid attributes
+sub colored {
+    my ($first, @rest) = @_;
+    my ($string, @codes);
+    if (ref($first) && ref($first) eq 'ARRAY') {
+        @codes = @{$first};
+        $string = join(q{}, @rest);
+    } else {
+        $string = $first;
+        @codes  = @rest;
+    }
+
+    # Return the string unmolested if colors are disabled.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return $string;
+    }
+
+    # Find the attribute string for our colors.
+    my $attr = color(@codes);
+
+    # If $EACHLINE is defined, split the string on line boundaries, suppress
+    # empty segments, and then colorize each of the line sections.
+    if (defined($EACHLINE)) {
+        my @text = map { ($_ ne $EACHLINE) ? $attr . $_ . "\e[0m" : $_ }
+          grep { length > 0 }
+          split(m{ (\Q$EACHLINE\E) }xms, $string);
+        return join(q{}, @text);
+    } else {
+        return $attr . $string . "\e[0m";
+    }
+}
+
+# Define a new color alias, or return the value of an existing alias.
+#
+# $alias - The color alias to define
+# $color - The standard color the alias will correspond to (optional)
+#
+# Returns: The standard color value of the alias
+#          undef if one argument was given and the alias was not recognized
+#  Throws: Text exceptions for invalid alias names, attempts to use a
+#          standard color name as an alias, or an unknown standard color name
+sub coloralias {
+    my ($alias, $color) = @_;
+    if (!defined($color)) {
+        if (!exists $ALIASES{$alias}) {
+            return;
+        } else {
+            return $ATTRIBUTES_R{ $ALIASES{$alias} };
+        }
+    }
+
+    # Avoid \w here to not load Unicode character tables, which increases the
+    # memory footprint of this module considerably.
+    #
+    ## no critic (RegularExpressions::ProhibitEnumeratedClasses)
+    if ($alias !~ m{ \A [a-zA-Z0-9._-]+ \z }xms) {
+        croak(qq{Invalid alias name "$alias"});
+    } elsif ($ATTRIBUTES{$alias}) {
+        croak(qq{Cannot alias standard color "$alias"});
+    } elsif (!exists $ATTRIBUTES{$color}) {
+        croak(qq{Invalid attribute name "$color"});
+    }
+    ## use critic
+
+    # Set the alias and return.
+    $ALIASES{$alias} = $ATTRIBUTES{$color};
+    return $color;
+}
+
+# Given a string, strip the ANSI color codes out of that string and return the
+# result.  This removes only ANSI color codes, not movement codes and other
+# escape sequences.
+#
+# @string - The list of strings to sanitize
+#
+# Returns: (array)  The strings stripped of ANSI color escape sequences
+#          (scalar) The same, concatenated
+sub colorstrip {
+    my (@string) = @_;
+    for my $string (@string) {
+        $string =~ s{ \e\[ [\d;]* m }{}xmsg;
+    }
+    return wantarray ? @string : join(q{}, @string);
+}
+
+# Given a list of color attributes (arguments for color, for instance), return
+# true if they're all valid or false if any of them are invalid.
+#
+# @codes - A list of color attributes, possibly space-separated
+#
+# Returns: True if all the attributes are valid, false otherwise.
+sub colorvalid {
+    my (@codes) = @_;
+    @codes = map { split(q{ }, lc) } @codes;
+    for my $code (@codes) {
+        if (!(defined($ATTRIBUTES{$code}) || defined($ALIASES{$code}))) {
+            return;
+        }
+    }
+    return 1;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+# Ensure we evaluate to true.
+1;
+__END__
+
+package Term::Complete;
+require 5.000;
+require Exporter;
+
+use strict;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(Complete);
+our $VERSION = '1.403';
+
+#      @(#)complete.pl,v1.2            (me@anywhere.EBay.Sun.COM) 09/23/91
+
+
+our($complete, $kill, $erase1, $erase2, $tty_raw_noecho, $tty_restore, $stty, $tty_safe_restore);
+our($tty_saved_state) = '';
+CONFIG: {
+    $complete = "\004";
+    $kill     = "\025";
+    $erase1 =   "\177";
+    $erase2 =   "\010";
+    foreach my $s (qw(/bin/stty /usr/bin/stty)) {
+	if (-x $s) {
+	    $tty_raw_noecho = "$s raw -echo";
+	    $tty_restore    = "$s -raw echo";
+	    $tty_safe_restore = $tty_restore;
+	    $stty = $s;
+	    last;
+	}
+    }
+}
+
+sub Complete {
+    my($prompt, @cmp_lst, $cmp, $test, $l, @match);
+    my ($return, $r) = ("", 0);
+
+    $return = "";
+    $r      = 0;
+
+    $prompt = shift;
+    if (ref $_[0] || $_[0] =~ /^\*/) {
+	@cmp_lst = sort @{$_[0]};
+    }
+    else {
+	@cmp_lst = sort(@_);
+    }
+
+    # Attempt to save the current stty state, to be restored later
+    if (defined $stty && defined $tty_saved_state && $tty_saved_state eq '') {
+	$tty_saved_state = qx($stty -g 2>/dev/null);
+	if ($?) {
+	    # stty -g not supported
+	    $tty_saved_state = undef;
+	}
+	else {
+	    $tty_saved_state =~ s/\s+$//g;
+	    $tty_restore = qq($stty "$tty_saved_state" 2>/dev/null);
+	}
+    }
+    system $tty_raw_noecho if defined $tty_raw_noecho;
+    LOOP: {
+        local $_;
+        print($prompt, $return);
+        while (($_ = getc(STDIN)) ne "\r") {
+            CASE: {
+                # (TAB) attempt completion
+                $_ eq "\t" && do {
+                    @match = grep(/^\Q$return/, @cmp_lst);
+                    unless ($#match < 0) {
+                        $l = length($test = shift(@match));
+                        foreach $cmp (@match) {
+                            until (substr($cmp, 0, $l) eq substr($test, 0, $l)) {
+                                $l--;
+                            }
+                        }
+                        print("\a");
+                        print($test = substr($test, $r, $l - $r));
+                        $r = length($return .= $test);
+                    }
+                    last CASE;
+                };
+
+                # (^D) completion list
+                $_ eq $complete && do {
+                    print(join("\r\n", '', grep(/^\Q$return/, @cmp_lst)), "\r\n");
+                    redo LOOP;
+                };
+
+                # (^U) kill
+                $_ eq $kill && do {
+                    if ($r) {
+                        $r	= 0;
+			$return	= "";
+                        print("\r\n");
+                        redo LOOP;
+                    }
+                    last CASE;
+                };
+
+                # (DEL) || (BS) erase
+                ($_ eq $erase1 || $_ eq $erase2) && do {
+                    if($r) {
+                        print("\b \b");
+                        chop($return);
+                        $r--;
+                    }
+                    last CASE;
+                };
+
+                # printable char
+                ord >= ord(" ") && do {
+                    $return .= $_;
+                    $r++;
+                    print;
+                    last CASE;
+                };
+            }
+        }
+    }
+
+    # system $tty_restore if defined $tty_restore;
+    if (defined $tty_saved_state && defined $tty_restore && defined $tty_safe_restore)
+    {
+	system $tty_restore;
+	if ($?) {
+	    # tty_restore caused error
+	    system $tty_safe_restore;
+	}
+    }
+    print("\n");
+    $return;
+}
+
+1;
+
+use strict;
+
+package Term::ReadLine::Stub;
+our @ISA = qw'Term::ReadLine::Tk Term::ReadLine::TermCap';
+
+$DB::emacs = $DB::emacs;	# To pacify -w
+our @rl_term_set;
+*rl_term_set = \@Term::ReadLine::TermCap::rl_term_set;
+
+sub PERL_UNICODE_STDIN () { 0x0001 }
+
+sub ReadLine {'Term::ReadLine::Stub'}
+sub readline {
+  my $self = shift;
+  my ($in,$out,$str) = @$self;
+  my $prompt = shift;
+  print $out $rl_term_set[0], $prompt, $rl_term_set[1], $rl_term_set[2]; 
+  $self->register_Tk 
+     if not $Term::ReadLine::registered and $Term::ReadLine::toloop;
+  #$str = scalar <$in>;
+  $str = $self->get_line;
+  utf8::upgrade($str)
+      if (${^UNICODE} & PERL_UNICODE_STDIN || defined ${^ENCODING}) &&
+         utf8::valid($str);
+  print $out $rl_term_set[3]; 
+  # bug in 5.000: chomping empty string creates length -1:
+  chomp $str if defined $str;
+  $str;
+}
+sub addhistory {}
+
+# used for testing purpose
+sub devtty { return '/dev/tty' }
+
+sub findConsole {
+    my $console;
+    my $consoleOUT;
+
+    my $devtty = devtty();
+
+    if ($^O ne 'MSWin32' and -e $devtty) {
+	$console = $devtty;
+    } elsif ($^O eq 'MSWin32' or $^O eq 'msys' or -e "con") {
+       $console = 'CONIN$';
+       $consoleOUT = 'CONOUT$';
+    } elsif ($^O eq 'VMS') {
+	$console = "sys\$command";
+    } elsif ($^O eq 'os2' && !$DB::emacs) {
+	$console = "/dev/con";
+    } else {
+	$console = undef;
+    }
+
+    $consoleOUT = $console unless defined $consoleOUT;
+    $console = "&STDIN" unless defined $console;
+    if ($console eq $devtty && !open(my $fh, "<", $console)) {
+      $console = "&STDIN";
+      undef($consoleOUT);
+    }
+    if (!defined $consoleOUT) {
+      $consoleOUT = defined fileno(STDERR) && $^O ne 'MSWin32' ? "&STDERR" : "&STDOUT";
+    }
+    ($console,$consoleOUT);
+}
+
+sub new {
+  die "method new called with wrong number of arguments" 
+    unless @_==2 or @_==4;
+  #local (*FIN, *FOUT);
+  my ($FIN, $FOUT, $ret);
+  if (@_==2) {
+    my($console, $consoleOUT) = $_[0]->findConsole;
+
+    # the Windows CONIN$ needs GENERIC_WRITE mode to allow
+    # a SetConsoleMode() if we end up using Term::ReadKey
+    open FIN, (( $^O eq 'MSWin32' && $console eq 'CONIN$' ) ? '+<' : '<' ), $console;
+    # RT #132008:  Still need 2-arg open here
+    open FOUT,">$consoleOUT";
+
+    #OUT->autoflush(1);		# Conflicts with debugger?
+    my $sel = select(FOUT);
+    $| = 1;				# for DB::OUT
+    select($sel);
+    $ret = bless [\*FIN, \*FOUT];
+  } else {			# Filehandles supplied
+    $FIN = $_[2]; $FOUT = $_[3];
+    #OUT->autoflush(1);		# Conflicts with debugger?
+    my $sel = select($FOUT);
+    $| = 1;				# for DB::OUT
+    select($sel);
+    $ret = bless [$FIN, $FOUT];
+  }
+  if ($ret->Features->{ornaments} 
+      and not ($ENV{PERL_RL} and $ENV{PERL_RL} =~ /\bo\w*=0/)) {
+    local $Term::ReadLine::termcap_nowarn = 1;
+    $ret->ornaments(1);
+  }
+  return $ret;
+}
+
+sub newTTY {
+  my ($self, $in, $out) = @_;
+  $self->[0] = $in;
+  $self->[1] = $out;
+  my $sel = select($out);
+  $| = 1;				# for DB::OUT
+  select($sel);
+}
+
+sub IN { shift->[0] }
+sub OUT { shift->[1] }
+sub MinLine { undef }
+sub Attribs { {} }
+
+my %features = (tkRunning => 1, ornaments => 1, 'newTTY' => 1);
+sub Features { \%features }
+
+#sub get_line {
+#  my $self = shift;
+#  my $in = $self->IN;
+#  local ($/) = "\n";
+#  return scalar <$in>;
+#}
+
+package Term::ReadLine;		# So late to allow the above code be defined?
+
+our $VERSION = '1.17';
+
+my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef;
+if ($which) {
+  if ($which =~ /\bgnu\b/i){
+    eval "use Term::ReadLine::Gnu;";
+  } elsif ($which =~ /\bperl\b/i) {
+    eval "use Term::ReadLine::Perl;";
+  } elsif ($which =~ /^(Stub|TermCap|Tk)$/) {
+    # it is already in memory to avoid false exception as seen in:
+    # PERL_RL=Stub perl -e'$SIG{__DIE__} = sub { print @_ }; require Term::ReadLine'
+  } else {
+    eval "use Term::ReadLine::$which;";
+  }
+} elsif (defined $which and $which ne '') {	# Defined but false
+  # Do nothing fancy
+} else {
+  eval "use Term::ReadLine::Gnu; 1" or eval "use Term::ReadLine::EditLine; 1" or eval "use Term::ReadLine::Perl; 1";
+}
+
+#require FileHandle;
+
+# To make possible switch off RL in debugger: (Not needed, work done
+# in debugger).
+our @ISA;
+if (defined &Term::ReadLine::Gnu::readline) {
+  @ISA = qw(Term::ReadLine::Gnu Term::ReadLine::Stub);
+} elsif (defined &Term::ReadLine::EditLine::readline) {
+  @ISA = qw(Term::ReadLine::EditLine Term::ReadLine::Stub);
+} elsif (defined &Term::ReadLine::Perl::readline) {
+  @ISA = qw(Term::ReadLine::Perl Term::ReadLine::Stub);
+} elsif (defined $which && defined &{"Term::ReadLine::$which\::readline"}) {
+  @ISA = "Term::ReadLine::$which";
+} else {
+  @ISA = qw(Term::ReadLine::Stub);
+}
+
+package Term::ReadLine::TermCap;
+
+# Prompt-start, prompt-end, command-line-start, command-line-end
+#     -- zero-width beautifies to emit around prompt and the command line.
+our @rl_term_set = ("","","","");
+# string encoded:
+our $rl_term_set = ',,,';
+
+our $terminal;
+sub LoadTermCap {
+  return if defined $terminal;
+  
+  require Term::Cap;
+  $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
+}
+
+sub ornaments {
+  shift;
+  return $rl_term_set unless @_;
+  $rl_term_set = shift;
+  $rl_term_set ||= ',,,';
+  $rl_term_set = 'us,ue,md,me' if $rl_term_set eq '1';
+  my @ts = split /,/, $rl_term_set, 4;
+  eval { LoadTermCap };
+  unless (defined $terminal) {
+    warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
+    $rl_term_set = ',,,';
+    return;
+  }
+  @rl_term_set = map {$_ ? $terminal->Tputs($_,1) || '' : ''} @ts;
+  return $rl_term_set;
+}
+
+
+package Term::ReadLine::Tk;
+
+# This package inserts a Tk->fileevent() before the diamond operator.
+# The Tk watcher dispatches Tk events until the filehandle returned by
+# the$term->IN() accessor becomes ready for reading.  It's assumed
+# that the diamond operator will return a line of input immediately at
+# that point.
+
+my ($giveup);
+
+# maybe in the future the Tk-specific aspects will be removed.
+sub Tk_loop{
+    if (ref $Term::ReadLine::toloop)
+    {
+        $Term::ReadLine::toloop->[0]->($Term::ReadLine::toloop->[2]);
+    }
+    else
+    {
+        Tk::DoOneEvent(0) until $giveup;
+        $giveup = 0;
+    }
+};
+
+sub register_Tk {
+    my $self = shift;
+    unless ($Term::ReadLine::registered++)
+    {
+        if (ref $Term::ReadLine::toloop)
+        {
+            $Term::ReadLine::toloop->[2] = $Term::ReadLine::toloop->[1]->($self->IN) if $Term::ReadLine::toloop->[1];
+        }
+        else
+        {
+            Tk->fileevent($self->IN,'readable',sub { $giveup = 1});
+        }
+    }
+};
+
+sub tkRunning {
+  $Term::ReadLine::toloop = $_[1] if @_ > 1;
+  $Term::ReadLine::toloop;
+}
+
+sub event_loop {
+    shift;
+
+    # T::RL::Gnu and T::RL::Perl check that this exists, if not,
+    # it doesn't call the loop.  Those modules will need to be
+    # fixed before this can be removed.
+    if (not defined &Tk::DoOneEvent)
+    {
+        *Tk::DoOneEvent = sub {
+            die "what?"; # this shouldn't be called.
+        }
+    }
+
+    # store the callback in toloop, again so that other modules will
+    # recognise it and call us for the loop.
+    $Term::ReadLine::toloop = [ @_ ] if @_ > 0; # 0 because we shifted off $self.
+    $Term::ReadLine::toloop;
+}
+
+sub PERL_UNICODE_STDIN () { 0x0001 }
+
+sub get_line {
+  my $self = shift;
+  my ($in,$out,$str) = @$self;
+
+  if ($Term::ReadLine::toloop) {
+    $self->register_Tk if not $Term::ReadLine::registered;
+    $self->Tk_loop;
+  }
+
+  local ($/) = "\n";
+  $str = <$in>;
+
+  utf8::upgrade($str)
+      if (${^UNICODE} & PERL_UNICODE_STDIN || defined ${^ENCODING}) &&
+         utf8::valid($str);
+  print $out $rl_term_set[3];
+  # bug in 5.000: chomping empty string creates length -1:
+  chomp $str if defined $str;
+
+  $str;
+}
+
+1;
+
+package Term::Cap;
+
+# Since the debugger uses Term::ReadLine which uses Term::Cap, we want
+# to load as few modules as possible.  This includes Carp.pm.
+sub carp
+{
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub croak
+{
+    require Carp;
+    goto &Carp::croak;
+}
+
+use strict;
+
+use vars qw($VERSION $VMS_TERMCAP);
+use vars qw($termpat $state $first $entry);
+
+$VERSION = '1.17';
+
+# TODO:
+# support Berkeley DB termcaps
+# force $FH into callers package?
+# keep $FH in object at Tgetent time?
+
+
+# Preload the default VMS termcap.
+# If a different termcap is required then the text of one can be supplied
+# in $Term::Cap::VMS_TERMCAP before Tgetent is called.
+
+if ( $^O eq 'VMS' )
+{
+    chomp( my @entry = <DATA> );
+    $VMS_TERMCAP = join '', @entry;
+}
+
+# Returns a list of termcap files to check.
+
+sub termcap_path
+{    ## private
+    my @termcap_path;
+
+    # $TERMCAP, if it's a filespec
+    push( @termcap_path, $ENV{TERMCAP} )
+      if (
+        ( exists $ENV{TERMCAP} )
+        && (
+            ( $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos' )
+            ? $ENV{TERMCAP} =~ /^[a-z]:[\\\/]/is
+            : $ENV{TERMCAP} =~ /^\//s
+        )
+      );
+    if ( ( exists $ENV{TERMPATH} ) && ( $ENV{TERMPATH} ) )
+    {
+
+        # Add the users $TERMPATH
+        push( @termcap_path, split( /(:|\s+)/, $ENV{TERMPATH} ) );
+    }
+    else
+    {
+
+        # Defaults
+        push( @termcap_path,
+            exists $ENV{'HOME'} ? $ENV{'HOME'} . '/.termcap' : undef,
+            '/etc/termcap', '/usr/share/misc/termcap', );
+    }
+
+    # return the list of those termcaps that exist
+    return grep { defined $_ && -f $_ } @termcap_path;
+}
+
+
+sub Tgetent
+{    ## public -- static method
+    my $class = shift;
+    my ($self) = @_;
+
+    $self = {} unless defined $self;
+    bless $self, $class;
+
+    my ( $term, $cap, $search, $field, $max, $tmp_term, $TERMCAP );
+    local ( $termpat, $state, $first, $entry );    # used inside eval
+    local $_;
+
+    # Compute PADDING factor from OSPEED (to be used by Tpad)
+    if ( !$self->{OSPEED} )
+    {
+        if ($^W)
+        {
+            carp "OSPEED was not set, defaulting to 9600";
+        }
+        $self->{OSPEED} = 9600;
+    }
+    if ( $self->{OSPEED} < 16 )
+    {
+
+        # delays for old style speeds
+        my @pad = (
+            0,    200, 133.3, 90.9, 74.3, 66.7, 50, 33.3,
+            16.7, 8.3, 5.5,   4.1,  2,    1,    .5, .2
+        );
+        $self->{PADDING} = $pad[ $self->{OSPEED} ];
+    }
+    else
+    {
+        $self->{PADDING} = 10000 / $self->{OSPEED};
+    }
+
+    unless ( $self->{TERM} )
+    {
+       if ( $ENV{TERM} )
+       {
+         $self->{TERM} =  $ENV{TERM} ;
+       }
+       else
+       {
+          if ( $^O eq 'MSWin32' )
+          {
+             $self->{TERM} =  'dumb';
+          }
+          else
+          {
+             croak "TERM not set";
+          }
+       }
+    }
+
+    $term = $self->{TERM};    # $term is the term type we are looking for
+
+    # $tmp_term is always the next term (possibly :tc=...:) we are looking for
+    $tmp_term = $self->{TERM};
+
+    # protect any pattern metacharacters in $tmp_term
+    $termpat = $tmp_term;
+    $termpat =~ s/(\W)/\\$1/g;
+
+    my $foo = ( exists $ENV{TERMCAP} ? $ENV{TERMCAP} : '' );
+
+    # $entry is the extracted termcap entry
+    if ( ( $foo !~ m:^/:s ) && ( $foo =~ m/(^|\|)${termpat}[:|]/s ) )
+    {
+        $entry = $foo;
+    }
+
+    my @termcap_path = termcap_path();
+
+    if ( !@termcap_path && !$entry )
+    {
+
+        # last resort--fake up a termcap from terminfo
+        local $ENV{TERM} = $term;
+
+        if ( $^O eq 'VMS' )
+        {
+            $entry = $VMS_TERMCAP;
+        }
+        else
+        {
+            if ( grep { -x "$_/infocmp" } split /:/, $ENV{PATH} )
+            {
+                eval {
+                    my $tmp = `infocmp -C 2>/dev/null`;
+                    $tmp =~ s/^#.*\n//gm;    # remove comments
+                    if (   ( $tmp !~ m%^/%s )
+                        && ( $tmp =~ /(^|\|)${termpat}[:|]/s ) )
+                    {
+                        $entry = $tmp;
+                    }
+                };
+                warn "Can't run infocmp to get a termcap entry: $@" if $@;
+            }
+            else
+            {
+               # this is getting desperate now
+               if ( $self->{TERM} eq 'dumb' )
+               {
+                  $entry = 'dumb|80-column dumb tty::am::co#80::bl=^G:cr=^M:do=^J:sf=^J:';
+               }
+            }
+        }
+    }
+
+    croak "Can't find a valid termcap file" unless @termcap_path || $entry;
+
+    $state = 1;    # 0 == finished
+                   # 1 == next file
+                   # 2 == search again
+
+    $first = 0;    # first entry (keeps term name)
+
+    $max = 32;     # max :tc=...:'s
+
+    if ($entry)
+    {
+
+        # ok, we're starting with $TERMCAP
+        $first++;    # we're the first entry
+                     # do we need to continue?
+        if ( $entry =~ s/:tc=([^:]+):/:/ )
+        {
+            $tmp_term = $1;
+
+            # protect any pattern metacharacters in $tmp_term
+            $termpat = $tmp_term;
+            $termpat =~ s/(\W)/\\$1/g;
+        }
+        else
+        {
+            $state = 0;    # we're already finished
+        }
+    }
+
+    # This is eval'ed inside the while loop for each file
+    $search = q{
+	while (<TERMCAP>) {
+	    next if /^\\t/ || /^#/;
+	    if ($_ =~ m/(^|\\|)${termpat}[:|]/o) {
+		chomp;
+		s/^[^:]*:// if $first++;
+		$state = 0;
+		while ($_ =~ s/\\\\$//) {
+		    defined(my $x = <TERMCAP>) or last;
+		    $_ .= $x; chomp;
+		}
+		last;
+	    }
+	}
+	defined $entry or $entry = '';
+	$entry .= $_ if $_;
+    };
+
+    while ( $state != 0 )
+    {
+        if ( $state == 1 )
+        {
+
+            # get the next TERMCAP
+            $TERMCAP = shift @termcap_path
+              || croak "failed termcap lookup on $tmp_term";
+        }
+        else
+        {
+
+            # do the same file again
+            # prevent endless recursion
+            $max-- || croak "failed termcap loop at $tmp_term";
+            $state = 1;    # ok, maybe do a new file next time
+        }
+
+        open( TERMCAP, "< $TERMCAP\0" ) || croak "open $TERMCAP: $!";
+        eval $search;
+        die $@ if $@;
+        close TERMCAP;
+
+        # If :tc=...: found then search this file again
+        $entry =~ s/:tc=([^:]+):/:/ && ( $tmp_term = $1, $state = 2 );
+
+        # protect any pattern metacharacters in $tmp_term
+        $termpat = $tmp_term;
+        $termpat =~ s/(\W)/\\$1/g;
+    }
+
+    croak "Can't find $term" if $entry eq '';
+    $entry =~ s/:+\s*:+/:/g;    # cleanup $entry
+    $entry =~ s/:+/:/g;         # cleanup $entry
+    $self->{TERMCAP} = $entry;  # save it
+                                # print STDERR "DEBUG: $entry = ", $entry, "\n";
+
+    # Precompile $entry into the object
+    $entry =~ s/^[^:]*://;
+    foreach $field ( split( /:[\s:\\]*/, $entry ) )
+    {
+        if ( defined $field && $field =~ /^(\w{2,})$/ )
+        {
+            $self->{ '_' . $field } = 1 unless defined $self->{ '_' . $1 };
+
+            # print STDERR "DEBUG: flag $1\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})\@/ )
+        {
+            $self->{ '_' . $1 } = "";
+
+            # print STDERR "DEBUG: unset $1\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})#(.*)/ )
+        {
+            $self->{ '_' . $1 } = $2 unless defined $self->{ '_' . $1 };
+
+            # print STDERR "DEBUG: numeric $1 = $2\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})=(.*)/ )
+        {
+
+            # print STDERR "DEBUG: string $1 = $2\n";
+            next if defined $self->{ '_' . ( $cap = $1 ) };
+            $_ = $2;
+            if ( ord('A') == 193 )
+            {
+               s/\\E/\047/g;
+               s/\\(\d\d\d)/pack('c',oct($1) & 0177)/eg;
+               s/\\n/\n/g;
+               s/\\r/\r/g;
+               s/\\t/\t/g;
+               s/\\b/\b/g;
+               s/\\f/\f/g;
+               s/\\\^/\337/g;
+               s/\^\?/\007/g;
+               s/\^(.)/pack('c',ord($1) & 31)/eg;
+               s/\\(.)/$1/g;
+               s/\337/^/g;
+            }
+            else
+            {
+               s/\\E/\033/g;
+               s/\\(\d\d\d)/pack('c',oct($1) & 0177)/eg;
+               s/\\n/\n/g;
+               s/\\r/\r/g;
+               s/\\t/\t/g;
+               s/\\b/\b/g;
+               s/\\f/\f/g;
+               s/\\\^/\377/g;
+               s/\^\?/\177/g;
+               s/\^(.)/pack('c',ord($1) & 31)/eg;
+               s/\\(.)/$1/g;
+               s/\377/^/g;
+            }
+            $self->{ '_' . $cap } = $_;
+        }
+
+        # else { carp "junk in $term ignored: $field"; }
+    }
+    $self->{'_pc'} = "\0" unless defined $self->{'_pc'};
+    $self->{'_bc'} = "\b" unless defined $self->{'_bc'};
+    $self;
+}
+
+# $terminal->Tpad($string, $cnt, $FH);
+
+
+sub Tpad
+{    ## public
+    my $self = shift;
+    my ( $string, $cnt, $FH ) = @_;
+    my ( $decr, $ms );
+
+    if ( defined $string && $string =~ /(^[\d.]+)(\*?)(.*)$/ )
+    {
+        $ms = $1;
+        $ms *= $cnt if $2;
+        $string = $3;
+        $decr   = $self->{PADDING};
+        if ( $decr > .1 )
+        {
+            $ms += $decr / 2;
+            $string .= $self->{'_pc'} x ( $ms / $decr );
+        }
+    }
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Tputs($cap, $cnt, $FH);
+
+
+sub Tputs
+{    ## public
+    my $self = shift;
+    my ( $cap, $cnt, $FH ) = @_;
+    my $string;
+
+    $cnt = 0 unless $cnt;
+
+    if ( $cnt > 1 )
+    {
+        $string = Tpad( $self, $self->{ '_' . $cap }, $cnt );
+    }
+    else
+    {
+
+        # cache result because Tpad can be slow
+        unless ( exists $self->{$cap} )
+        {
+            $self->{$cap} =
+              exists $self->{"_$cap"}
+              ? Tpad( $self, $self->{"_$cap"}, 1 )
+              : undef;
+        }
+        $string = $self->{$cap};
+    }
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Tgoto($cap, $col, $row, $FH);
+
+
+sub Tgoto
+{    ## public
+    my $self = shift;
+    my ( $cap, $code, $tmp, $FH ) = @_;
+    my $string = $self->{ '_' . $cap };
+    my $result = '';
+    my $after  = '';
+    my $online = 0;
+    my @tmp    = ( $tmp, $code );
+    my $cnt    = $code;
+
+    while ( $string =~ /^([^%]*)%(.)(.*)/ )
+    {
+        $result .= $1;
+        $code   = $2;
+        $string = $3;
+        if ( $code eq 'd' )
+        {
+            $result .= sprintf( "%d", shift(@tmp) );
+        }
+        elsif ( $code eq '.' )
+        {
+            $tmp = shift(@tmp);
+            if ( $tmp == 0 || $tmp == 4 || $tmp == 10 )
+            {
+                if ($online)
+                {
+                    ++$tmp, $after .= $self->{'_up'} if $self->{'_up'};
+                }
+                else
+                {
+                    ++$tmp, $after .= $self->{'_bc'};
+                }
+            }
+            $result .= sprintf( "%c", $tmp );
+            $online = !$online;
+        }
+        elsif ( $code eq '+' )
+        {
+            $result .= sprintf( "%c", shift(@tmp) + ord($string) );
+            $string = substr( $string, 1, 99 );
+            $online = !$online;
+        }
+        elsif ( $code eq 'r' )
+        {
+            ( $code, $tmp ) = @tmp;
+            @tmp = ( $tmp, $code );
+            $online = !$online;
+        }
+        elsif ( $code eq '>' )
+        {
+            ( $code, $tmp, $string ) = unpack( "CCa99", $string );
+            if ( $tmp[0] > $code )
+            {
+                $tmp[0] += $tmp;
+            }
+        }
+        elsif ( $code eq '2' )
+        {
+            $result .= sprintf( "%02d", shift(@tmp) );
+            $online = !$online;
+        }
+        elsif ( $code eq '3' )
+        {
+            $result .= sprintf( "%03d", shift(@tmp) );
+            $online = !$online;
+        }
+        elsif ( $code eq 'i' )
+        {
+            ( $code, $tmp ) = @tmp;
+            @tmp = ( $code + 1, $tmp + 1 );
+        }
+        else
+        {
+            return "OOPS";
+        }
+    }
+    $string = Tpad( $self, $result . $string . $after, $cnt );
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Trequire(qw/ce ku kd/);
+
+
+sub Trequire
+{    ## public
+    my $self = shift;
+    my ( $cap, @undefined );
+    foreach $cap (@_)
+    {
+        push( @undefined, $cap )
+          unless defined $self->{ '_' . $cap } && $self->{ '_' . $cap };
+    }
+    croak "Terminal does not support: (@undefined)" if @undefined;
+}
+
+
+# Below is a default entry for systems where there are terminals but no
+# termcap
+1;
+__DATA__
+vt220|vt200|DEC VT220 in vt100 emulation mode:
+am:mi:xn:xo:
+co#80:li#24:
+RA=\E[?7l:SA=\E[?7h:
+ac=kkllmmjjnnwwqquuttvvxx:ae=\E(B:al=\E[L:as=\E(0:
+bl=^G:cd=\E[J:ce=\E[K:cl=\E[H\E[2J:cm=\E[%i%d;%dH:
+cr=^M:cs=\E[%i%d;%dr:dc=\E[P:dl=\E[M:do=\E[B:
+ei=\E[4l:ho=\E[H:im=\E[4h:
+is=\E[1;24r\E[24;1H:
+nd=\E[C:
+kd=\E[B::kl=\E[D:kr=\E[C:ku=\E[A:le=^H:
+mb=\E[5m:md=\E[1m:me=\E[m:mr=\E[7m:
+kb=\0177:
+r2=\E>\E[24;1H\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h\E=:rc=\E8:
+sc=\E7:se=\E[27m:sf=\ED:so=\E[7m:sr=\EM:ta=^I:
+ue=\E[24m:up=\E[A:us=\E[4m:ve=\E[?25h:vi=\E[?25l:
+
+package Carp::Heavy;
+
+use Carp ();
+
+our $VERSION = '1.50';
+$VERSION =~ tr/_//d;
+
+# Carp::Heavy was merged into Carp in version 1.12.  Any mismatched versions
+# after this point are not significant and can be ignored.
+if(($Carp::VERSION || 0) < 1.12) {
+	my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef";
+	die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}).  Did you alter \@INC after Carp was loaded?\n";
+}
+
+1;
+
+# Most of the machinery of Carp used to be here.
+# It has been moved in Carp.pm now, but this placeholder remains for
+# the benefit of modules that like to preload Carp::Heavy directly.
+# This must load Carp, because some modules rely on the historical
+# behaviour of Carp::Heavy loading Carp.
+
+package Compress::Zlib;
+
+require 5.006 ;
+require Exporter;
+use Carp ;
+use IO::Handle ;
+use Scalar::Util qw(dualvar);
+
+use IO::Compress::Base::Common 2.074 ;
+use Compress::Raw::Zlib 2.074 ;
+use IO::Compress::Gzip 2.074 ;
+use IO::Uncompress::Gunzip 2.074 ;
+
+use strict ;
+use warnings ;
+use bytes ;
+our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+$VERSION = '2.074';
+$XS_VERSION = $VERSION; 
+$VERSION = eval $VERSION;
+
+@ISA = qw(Exporter);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+        deflateInit inflateInit
+
+        compress uncompress
+
+        gzopen $gzerrno
+    );
+
+push @EXPORT, @Compress::Raw::Zlib::EXPORT ;
+
+@EXPORT_OK = qw(memGunzip memGzip zlib_version);
+%EXPORT_TAGS = (
+    ALL         => \@EXPORT
+);
+
+BEGIN
+{
+    *zlib_version = \&Compress::Raw::Zlib::zlib_version;
+}
+
+use constant FLAG_APPEND             => 1 ;
+use constant FLAG_CRC                => 2 ;
+use constant FLAG_ADLER              => 4 ;
+use constant FLAG_CONSUME_INPUT      => 8 ;
+
+our (@my_z_errmsg);
+
+@my_z_errmsg = (
+    "need dictionary",     # Z_NEED_DICT     2
+    "stream end",          # Z_STREAM_END    1
+    "",                    # Z_OK            0
+    "file error",          # Z_ERRNO        (-1)
+    "stream error",        # Z_STREAM_ERROR (-2)
+    "data error",          # Z_DATA_ERROR   (-3)
+    "insufficient memory", # Z_MEM_ERROR    (-4)
+    "buffer error",        # Z_BUF_ERROR    (-5)
+    "incompatible version",# Z_VERSION_ERROR(-6)
+    );
+
+
+sub _set_gzerr
+{
+    my $value = shift ;
+
+    if ($value == 0) {
+        $Compress::Zlib::gzerrno = 0 ;
+    }
+    elsif ($value == Z_ERRNO() || $value > 2) {
+        $Compress::Zlib::gzerrno = $! ;
+    }
+    else {
+        $Compress::Zlib::gzerrno = dualvar($value+0, $my_z_errmsg[2 - $value]);
+    }
+
+    return $value ;
+}
+
+sub _set_gzerr_undef
+{
+    _set_gzerr(@_);
+    return undef;
+}
+
+sub _save_gzerr
+{
+    my $gz = shift ;
+    my $test_eof = shift ;
+
+    my $value = $gz->errorNo() || 0 ;
+    my $eof = $gz->eof() ;
+
+    if ($test_eof) {
+        # gzread uses Z_STREAM_END to denote a successful end
+        $value = Z_STREAM_END() if $gz->eof() && $value == 0 ;
+    }
+
+    _set_gzerr($value) ;
+}
+
+sub gzopen($$)
+{
+    my ($file, $mode) = @_ ;
+
+    my $gz ;
+    my %defOpts = (Level    => Z_DEFAULT_COMPRESSION(),
+                   Strategy => Z_DEFAULT_STRATEGY(),
+                  );
+
+    my $writing ;
+    $writing = ! ($mode =~ /r/i) ;
+    $writing = ($mode =~ /[wa]/i) ;
+
+    $defOpts{Level}    = $1               if $mode =~ /(\d)/;
+    $defOpts{Strategy} = Z_FILTERED()     if $mode =~ /f/i;
+    $defOpts{Strategy} = Z_HUFFMAN_ONLY() if $mode =~ /h/i;
+    $defOpts{Append}   = 1                if $mode =~ /a/i;
+
+    my $infDef = $writing ? 'deflate' : 'inflate';
+    my @params = () ;
+
+    croak "gzopen: file parameter is not a filehandle or filename"
+        unless isaFilehandle $file || isaFilename $file  || 
+               (ref $file && ref $file eq 'SCALAR');
+
+    return undef unless $mode =~ /[rwa]/i ;
+
+    _set_gzerr(0) ;
+
+    if ($writing) {
+        $gz = new IO::Compress::Gzip($file, Minimal => 1, AutoClose => 1, 
+                                     %defOpts) 
+            or $Compress::Zlib::gzerrno = $IO::Compress::Gzip::GzipError;
+    }
+    else {
+        $gz = new IO::Uncompress::Gunzip($file, 
+                                         Transparent => 1,
+                                         Append => 0, 
+                                         AutoClose => 1, 
+                                         MultiStream => 1,
+                                         Strict => 0) 
+            or $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError;
+    }
+
+    return undef
+        if ! defined $gz ;
+
+    bless [$gz, $infDef], 'Compress::Zlib::gzFile';
+}
+
+sub Compress::Zlib::gzFile::gzread
+{
+    my $self = shift ;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'inflate';
+
+    my $len = defined $_[1] ? $_[1] : 4096 ; 
+
+    my $gz = $self->[0] ;
+    if ($self->gzeof() || $len == 0) {
+        # Zap the output buffer to match ver 1 behaviour.
+        $_[0] = "" ;
+        _save_gzerr($gz, 1);
+        return 0 ;
+    }
+
+    my $status = $gz->read($_[0], $len) ; 
+    _save_gzerr($gz, 1);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzreadline
+{
+    my $self = shift ;
+
+    my $gz = $self->[0] ;
+    {
+        # Maintain backward compatibility with 1.x behaviour
+        # It didn't support $/, so this can't either.
+        local $/ = "\n" ;
+        $_[0] = $gz->getline() ; 
+    }
+    _save_gzerr($gz, 1);
+    return defined $_[0] ? length $_[0] : 0 ;
+}
+
+sub Compress::Zlib::gzFile::gzwrite
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'deflate';
+
+    $] >= 5.008 and (utf8::downgrade($_[0], 1) 
+        or croak "Wide character in gzwrite");
+
+    my $status = $gz->write($_[0]) ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gztell
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+    my $status = $gz->tell() ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzseek
+{
+    my $self   = shift ;
+    my $offset = shift ;
+    my $whence = shift ;
+
+    my $gz = $self->[0] ;
+    my $status ;
+    eval { $status = $gz->seek($offset, $whence) ; };
+    if ($@)
+    {
+        my $error = $@;
+        $error =~ s/^.*: /gzseek: /;
+        $error =~ s/ at .* line \d+\s*$//;
+        croak $error;
+    }
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzflush
+{
+    my $self = shift ;
+    my $f    = shift ;
+
+    my $gz = $self->[0] ;
+    my $status = $gz->flush($f) ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
+}
+
+sub Compress::Zlib::gzFile::gzclose
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    my $status = $gz->close() ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
+}
+
+sub Compress::Zlib::gzFile::gzeof
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    return 0
+        if $self->[1] ne 'inflate';
+
+    my $status = $gz->eof() ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzsetparams
+{
+    my $self = shift ;
+    croak "Usage: Compress::Zlib::gzFile::gzsetparams(file, level, strategy)"
+        unless @_ eq 2 ;
+
+    my $gz = $self->[0] ;
+    my $level = shift ;
+    my $strategy = shift;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'deflate';
+ 
+    my $status = *$gz->{Compress}->deflateParams(-Level   => $level, 
+                                                -Strategy => $strategy);
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzerror
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+    
+    return $Compress::Zlib::gzerrno ;
+}
+
+
+sub compress($;$)
+{
+    my ($x, $output, $err, $in) =('', '', '', '') ;
+
+    if (ref $_[0] ) {
+        $in = $_[0] ;
+        croak "not a scalar reference" unless ref $in eq 'SCALAR' ;
+    }
+    else {
+        $in = \$_[0] ;
+    }
+
+    $] >= 5.008 and (utf8::downgrade($$in, 1) 
+        or croak "Wide character in compress");
+
+    my $level = (@_ == 2 ? $_[1] : Z_DEFAULT_COMPRESSION() );
+
+    $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND,
+                                           $level,
+                                           Z_DEFLATED,
+                                           MAX_WBITS,
+                                           MAX_MEM_LEVEL,
+                                           Z_DEFAULT_STRATEGY,
+                                           4096,
+                                           '') 
+            or return undef ;
+
+    $err = $x->deflate($in, $output) ;
+    return undef unless $err == Z_OK() ;
+
+    $err = $x->flush($output) ;
+    return undef unless $err == Z_OK() ;
+    
+    return $output ;
+}
+
+sub uncompress($)
+{
+    my ($output, $in) =('', '') ;
+
+    if (ref $_[0] ) {
+        $in = $_[0] ;
+        croak "not a scalar reference" unless ref $in eq 'SCALAR' ;
+    }
+    else {
+        $in = \$_[0] ;
+    }
+
+    $] >= 5.008 and (utf8::downgrade($$in, 1) 
+        or croak "Wide character in uncompress");    
+        
+    my ($obj, $status) = Compress::Raw::Zlib::_inflateInit(0,
+                                MAX_WBITS, 4096, "") ;   
+                                
+    $status == Z_OK 
+        or return undef;
+    
+    $obj->inflate($in, $output) == Z_STREAM_END 
+        or return undef;
+    
+    return $output;
+}
+ 
+sub deflateInit(@)
+{
+    my ($got) = ParseParameters(0,
+                {
+                'bufsize'       => [IO::Compress::Base::Common::Parse_unsigned, 4096],
+                'level'         => [IO::Compress::Base::Common::Parse_signed,   Z_DEFAULT_COMPRESSION()],
+                'method'        => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFLATED()],
+                'windowbits'    => [IO::Compress::Base::Common::Parse_signed,   MAX_WBITS()],
+                'memlevel'      => [IO::Compress::Base::Common::Parse_unsigned, MAX_MEM_LEVEL()],
+                'strategy'      => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFAULT_STRATEGY()],
+                'dictionary'    => [IO::Compress::Base::Common::Parse_any,      ""],
+                }, @_ ) ;
+
+    croak "Compress::Zlib::deflateInit: Bufsize must be >= 1, you specified " . 
+            $got->getValue('bufsize')
+        unless $got->getValue('bufsize') >= 1;
+
+    my $obj ;
+ 
+    my $status = 0 ;
+    ($obj, $status) = 
+      Compress::Raw::Zlib::_deflateInit(0,
+                $got->getValue('level'), 
+                $got->getValue('method'), 
+                $got->getValue('windowbits'), 
+                $got->getValue('memlevel'), 
+                $got->getValue('strategy'), 
+                $got->getValue('bufsize'),
+                $got->getValue('dictionary')) ;
+
+    my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldDeflate"  : undef) ;
+    return wantarray ? ($x, $status) : $x ;
+}
+ 
+sub inflateInit(@)
+{
+    my ($got) = ParseParameters(0,
+                {
+                'bufsize'       => [IO::Compress::Base::Common::Parse_unsigned, 4096],
+                'windowbits'    => [IO::Compress::Base::Common::Parse_signed,   MAX_WBITS()],
+                'dictionary'    => [IO::Compress::Base::Common::Parse_any,      ""],
+                }, @_) ;
+
+
+    croak "Compress::Zlib::inflateInit: Bufsize must be >= 1, you specified " . 
+            $got->getValue('bufsize')
+        unless $got->getValue('bufsize') >= 1;
+
+    my $status = 0 ;
+    my $obj ;
+    ($obj, $status) = Compress::Raw::Zlib::_inflateInit(FLAG_CONSUME_INPUT,
+                                $got->getValue('windowbits'), 
+                                $got->getValue('bufsize'), 
+                                $got->getValue('dictionary')) ;
+
+    my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldInflate"  : undef) ;
+
+    wantarray ? ($x, $status) : $x ;
+}
+
+package Zlib::OldDeflate ;
+
+our (@ISA);
+@ISA = qw(Compress::Raw::Zlib::deflateStream);
+
+
+sub deflate
+{
+    my $self = shift ;
+    my $output ;
+
+    my $status = $self->SUPER::deflate($_[0], $output) ;
+    wantarray ? ($output, $status) : $output ;
+}
+
+sub flush
+{
+    my $self = shift ;
+    my $output ;
+    my $flag = shift || Compress::Zlib::Z_FINISH();
+    my $status = $self->SUPER::flush($output, $flag) ;
+    
+    wantarray ? ($output, $status) : $output ;
+}
+
+package Zlib::OldInflate ;
+
+our (@ISA);
+@ISA = qw(Compress::Raw::Zlib::inflateStream);
+
+sub inflate
+{
+    my $self = shift ;
+    my $output ;
+    my $status = $self->SUPER::inflate($_[0], $output) ;
+    wantarray ? ($output, $status) : $output ;
+}
+
+package Compress::Zlib ;
+
+use IO::Compress::Gzip::Constants 2.074 ;
+
+sub memGzip($)
+{
+    _set_gzerr(0);
+    my $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND|FLAG_CRC,
+                                           Z_BEST_COMPRESSION,
+                                           Z_DEFLATED,
+                                           -MAX_WBITS(),
+                                           MAX_MEM_LEVEL,
+                                           Z_DEFAULT_STRATEGY,
+                                           4096,
+                                           '') 
+            or return undef ;
+ 
+    # if the deflation buffer isn't a reference, make it one
+    my $string = (ref $_[0] ? $_[0] : \$_[0]) ;
+
+    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+        or croak "Wide character in memGzip");
+
+    my $out;
+    my $status ;
+
+    $x->deflate($string, $out) == Z_OK
+        or return undef ;
+ 
+    $x->flush($out) == Z_OK
+        or return undef ;
+ 
+    return IO::Compress::Gzip::Constants::GZIP_MINIMUM_HEADER . 
+           $out . 
+           pack("V V", $x->crc32(), $x->total_in());
+}
+
+
+sub _removeGzipHeader($)
+{
+    my $string = shift ;
+
+    return Z_DATA_ERROR() 
+        if length($$string) < GZIP_MIN_HEADER_SIZE ;
+
+    my ($magic1, $magic2, $method, $flags, $time, $xflags, $oscode) = 
+        unpack ('CCCCVCC', $$string);
+
+    return Z_DATA_ERROR()
+        unless $magic1 == GZIP_ID1 and $magic2 == GZIP_ID2 and
+           $method == Z_DEFLATED() and !($flags & GZIP_FLG_RESERVED) ;
+    substr($$string, 0, GZIP_MIN_HEADER_SIZE) = '' ;
+
+    # skip extra field
+    if ($flags & GZIP_FLG_FEXTRA)
+    {
+        return Z_DATA_ERROR()
+            if length($$string) < GZIP_FEXTRA_HEADER_SIZE ;
+
+        my ($extra_len) = unpack ('v', $$string);
+        $extra_len += GZIP_FEXTRA_HEADER_SIZE;
+        return Z_DATA_ERROR()
+            if length($$string) < $extra_len ;
+
+        substr($$string, 0, $extra_len) = '';
+    }
+
+    # skip orig name
+    if ($flags & GZIP_FLG_FNAME)
+    {
+        my $name_end = index ($$string, GZIP_NULL_BYTE);
+        return Z_DATA_ERROR()
+           if $name_end == -1 ;
+        substr($$string, 0, $name_end + 1) =  '';
+    }
+
+    # skip comment
+    if ($flags & GZIP_FLG_FCOMMENT)
+    {
+        my $comment_end = index ($$string, GZIP_NULL_BYTE);
+        return Z_DATA_ERROR()
+            if $comment_end == -1 ;
+        substr($$string, 0, $comment_end + 1) = '';
+    }
+
+    # skip header crc
+    if ($flags & GZIP_FLG_FHCRC)
+    {
+        return Z_DATA_ERROR()
+            if length ($$string) < GZIP_FHCRC_SIZE ;
+        substr($$string, 0, GZIP_FHCRC_SIZE) = '';
+    }
+    
+    return Z_OK();
+}
+
+sub _ret_gun_error
+{
+    $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError;
+    return undef;
+}
+
+
+sub memGunzip($)
+{
+    # if the buffer isn't a reference, make it one
+    my $string = (ref $_[0] ? $_[0] : \$_[0]);
+ 
+    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+        or croak "Wide character in memGunzip");
+
+    _set_gzerr(0);
+
+    my $status = _removeGzipHeader($string) ;
+    $status == Z_OK() 
+        or return _set_gzerr_undef($status);
+     
+    my $bufsize = length $$string > 4096 ? length $$string : 4096 ;
+    my $x = Compress::Raw::Zlib::_inflateInit(FLAG_CRC | FLAG_CONSUME_INPUT,
+                                -MAX_WBITS(), $bufsize, '') 
+              or return _ret_gun_error();
+
+    my $output = '' ;
+    $status = $x->inflate($string, $output);
+    
+    if ( $status == Z_OK() )
+    {
+        _set_gzerr(Z_DATA_ERROR());
+        return undef;
+    }
+
+    return _ret_gun_error()
+        if ($status != Z_STREAM_END());
+
+    if (length $$string >= 8)
+    {
+        my ($crc, $len) = unpack ("VV", substr($$string, 0, 8));
+        substr($$string, 0, 8) = '';
+        return _set_gzerr_undef(Z_DATA_ERROR())
+            unless $len == length($output) and
+                   $crc == Compress::Raw::Zlib::crc32($output);
+    }
+    else
+    {
+        $$string = '';
+    }
+
+    return $output;   
+}
+
+# Autoload methods go after __END__, and are processed by the autosplit program.
+
+1;
+__END__
+
+
+package File::Fetch;
+
+use strict;
+use FileHandle;
+use File::Temp;
+use File::Copy;
+use File::Spec;
+use File::Spec::Unix;
+use File::Basename              qw[dirname];
+
+use Cwd                         qw[cwd];
+use Carp                        qw[carp];
+use IPC::Cmd                    qw[can_run run QUOTE];
+use File::Path                  qw[mkpath];
+use File::Temp                  qw[tempdir];
+use Params::Check               qw[check];
+use Module::Load::Conditional   qw[can_load];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+use vars    qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT
+                $BLACKLIST $METHOD_FAIL $VERSION $METHODS
+                $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
+            ];
+
+$VERSION        = '0.56';
+$VERSION        = eval $VERSION;    # avoid warnings with development releases
+$PREFER_BIN     = 0;                # XXX TODO implement
+$FROM_EMAIL     = 'File-Fetch@example.com';
+$USER_AGENT     = "File::Fetch/$VERSION";
+$BLACKLIST      = [qw|ftp|];
+push @$BLACKLIST, qw|lftp| if $^O eq 'dragonfly' || $^O eq 'hpux';
+$METHOD_FAIL    = { };
+$FTP_PASSIVE    = 1;
+$TIMEOUT        = 0;
+$DEBUG          = 0;
+$WARN           = 1;
+$FORCEIPV4      = 0;
+
+### methods available to fetch the file depending on the scheme
+$METHODS = {
+    http    => [ qw|lwp httptiny wget curl lftp fetch httplite lynx iosock| ],
+    https   => [ qw|lwp wget curl| ],
+    ftp     => [ qw|lwp netftp wget curl lftp fetch ncftp ftp| ],
+    file    => [ qw|lwp lftp file| ],
+    rsync   => [ qw|rsync| ],
+    git     => [ qw|git| ],
+};
+
+### silly warnings ###
+local $Params::Check::VERBOSE               = 1;
+local $Params::Check::VERBOSE               = 1;
+local $Module::Load::Conditional::VERBOSE   = 0;
+local $Module::Load::Conditional::VERBOSE   = 0;
+
+### Fix CVE-2016-1238 ###
+local $Module::Load::Conditional::FORCE_SAFE_INC = 1;
+
+### see what OS we are on, important for file:// uris ###
+use constant ON_WIN     => ($^O eq 'MSWin32');
+use constant ON_VMS     => ($^O eq 'VMS');
+use constant ON_UNIX    => (!ON_WIN);
+use constant HAS_VOL    => (ON_WIN);
+use constant HAS_SHARE  => (ON_WIN);
+use constant HAS_FETCH  => ( $^O =~ m!^(freebsd|netbsd|dragonfly)$! );
+
+
+
+##########################
+### Object & Accessors ###
+##########################
+
+{
+    ### template for autogenerated accessors ###
+    my $Tmpl = {
+        scheme          => { default => 'http' },
+        host            => { default => 'localhost' },
+        path            => { default => '/' },
+        file            => { required => 1 },
+        uri             => { required => 1 },
+        userinfo        => { default => '' },
+        vol             => { default => '' }, # windows for file:// uris
+        share           => { default => '' }, # windows for file:// uris
+        file_default    => { default => 'file_default' },
+        tempdir_root    => { required => 1 }, # Should be lazy-set at ->new()
+        _error_msg      => { no_override => 1 },
+        _error_msg_long => { no_override => 1 },
+    };
+
+    for my $method ( keys %$Tmpl ) {
+        no strict 'refs';
+        *$method = sub {
+                        my $self = shift;
+                        $self->{$method} = $_[0] if @_;
+                        return $self->{$method};
+                    }
+    }
+
+    sub _create {
+        my $class = shift;
+        my %hash  = @_;
+
+        my $args = check( $Tmpl, \%hash ) or return;
+
+        bless $args, $class;
+
+        if( lc($args->scheme) ne 'file' and not $args->host ) {
+            return $class->_error(loc(
+                "Hostname required when fetching from '%1'",$args->scheme));
+        }
+
+        for (qw[path]) {
+            unless( $args->$_() ) { # 5.5.x needs the ()
+                return $class->_error(loc("No '%1' specified",$_));
+            }
+        }
+
+        return $args;
+    }
+}
+
+
+sub output_file {
+    my $self = shift;
+    my $file = $self->file;
+
+    $file =~ s/\?.*$//g;
+
+    $file ||= $self->file_default;
+
+    return $file;
+}
+
+### XXX do this or just point to URI::Escape?
+# =head2 $esc_uri = $ff->escaped_uri
+#
+# =cut
+#
+# ### most of this is stolen straight from URI::escape
+# {   ### Build a char->hex map
+#     my %escapes = map { chr($_) => sprintf("%%%02X", $_) } 0..255;
+#
+#     sub escaped_uri {
+#         my $self = shift;
+#         my $uri  = $self->uri;
+#
+#         ### Default unsafe characters.  RFC 2732 ^(uric - reserved)
+#         $uri =~ s/([^A-Za-z0-9\-_.!~*'()])/
+#                     $escapes{$1} || $self->_fail_hi($1)/ge;
+#
+#         return $uri;
+#     }
+#
+#     sub _fail_hi {
+#         my $self = shift;
+#         my $char = shift;
+#
+#         $self->_error(loc(
+#             "Can't escape '%1', try using the '%2' module instead",
+#             sprintf("\\x{%04X}", ord($char)), 'URI::Escape'
+#         ));
+#     }
+#
+#     sub output_file {
+#
+#     }
+#
+#
+# }
+
+
+sub new {
+    my $class = shift;
+    my %hash  = @_;
+
+    my ($uri, $file_default, $tempdir_root);
+    my $tmpl = {
+        uri          => { required => 1, store => \$uri },
+        file_default => { required => 0, store => \$file_default },
+        tempdir_root => { required => 0, store => \$tempdir_root },
+    };
+
+    check( $tmpl, \%hash ) or return;
+
+    ### parse the uri to usable parts ###
+    my $href    = $class->_parse_uri( $uri ) or return;
+
+    $href->{file_default} = $file_default if $file_default;
+    $href->{tempdir_root} = File::Spec->rel2abs( $tempdir_root ) if $tempdir_root;
+    $href->{tempdir_root} = File::Spec->rel2abs( Cwd::cwd      ) if not $href->{tempdir_root};
+
+    ### make it into a FFI object ###
+    my $ff      = $class->_create( %$href ) or return;
+
+
+    ### return the object ###
+    return $ff;
+}
+
+### parses an uri to a hash structure:
+###
+### $class->_parse_uri( 'ftp://ftp.cpan.org/pub/mirror/index.txt' )
+###
+### becomes:
+###
+### $href = {
+###     scheme  => 'ftp',
+###     host    => 'ftp.cpan.org',
+###     path    => '/pub/mirror',
+###     file    => 'index.html'
+### };
+###
+### In the case of file:// urls there maybe be additional fields
+###
+### For systems with volume specifications such as Win32 there will be
+### a volume specifier provided in the 'vol' field.
+###
+###   'vol' => 'volumename'
+###
+### For windows file shares there may be a 'share' key specified
+###
+###   'share' => 'sharename'
+###
+### Note that the rules of what a file:// url means vary by the operating system
+### of the host being addressed. Thus file:///d|/foo/bar.txt means the obvious
+### 'D:\foo\bar.txt' on windows, but on unix it means '/d|/foo/bar.txt' and
+### not '/foo/bar.txt'
+###
+### Similarly if the host interpreting the url is VMS then
+### file:///disk$user/my/notes/note12345.txt' means
+### 'DISK$USER:[MY.NOTES]NOTE123456.TXT' but will be returned the same as
+### if it is unix where it means /disk$user/my/notes/note12345.txt'.
+### Except for some cases in the File::Spec methods, Perl on VMS will generally
+### handle UNIX format file specifications.
+###
+### This means it is impossible to serve certain file:// urls on certain systems.
+###
+### Thus are the problems with a protocol-less specification. :-(
+###
+
+sub _parse_uri {
+    my $self = shift;
+    my $uri  = shift or return;
+
+    my $href = { uri => $uri };
+
+    ### find the scheme ###
+    $uri            =~ s|^(\w+)://||;
+    $href->{scheme} = $1;
+
+    ### See rfc 1738 section 3.10
+    ### http://www.faqs.org/rfcs/rfc1738.html
+    ### And wikipedia for more on windows file:// urls
+    ### http://en.wikipedia.org/wiki/File://
+    if( $href->{scheme} eq 'file' ) {
+
+        my @parts = split '/',$uri;
+
+        ### file://hostname/...
+        ### file://hostname/...
+        ### normalize file://localhost with file:///
+        $href->{host} = $parts[0] || '';
+
+        ### index in @parts where the path components begin;
+        my $index = 1;
+
+        ### file:////hostname/sharename/blah.txt
+        if ( HAS_SHARE and not length $parts[0] and not length $parts[1] ) {
+
+            $href->{host}   = $parts[2] || '';  # avoid warnings
+            $href->{share}  = $parts[3] || '';  # avoid warnings
+
+            $index          = 4         # index after the share
+
+        ### file:///D|/blah.txt
+        ### file:///D:/blah.txt
+        } elsif (HAS_VOL) {
+
+            ### this code comes from dmq's patch, but:
+            ### XXX if volume is empty, wouldn't that be an error? --kane
+            ### if so, our file://localhost test needs to be fixed as wel
+            $href->{vol}    = $parts[1] || '';
+
+            ### correct D| style colume descriptors
+            $href->{vol}    =~ s/\A([A-Z])\|\z/$1:/i if ON_WIN;
+
+            $index          = 2;        # index after the volume
+        }
+
+        ### rebuild the path from the leftover parts;
+        $href->{path} = join '/', '', splice( @parts, $index, $#parts );
+
+    } else {
+        ### using anything but qw() in hash slices may produce warnings
+        ### in older perls :-(
+        @{$href}{ qw(userinfo host path) } = $uri =~ m|(?:([^\@:]*:[^\:\@]*)@)?([^/]*)(/.*)$|s;
+    }
+
+    ### split the path into file + dir ###
+    {   my @parts = File::Spec::Unix->splitpath( delete $href->{path} );
+        $href->{path} = $parts[1];
+        $href->{file} = $parts[2];
+    }
+
+    ### host will be empty if the target was 'localhost' and the
+    ### scheme was 'file'
+    $href->{host} = '' if   ($href->{host}      eq 'localhost') and
+                            ($href->{scheme}    eq 'file');
+
+    return $href;
+}
+
+
+sub fetch {
+    my $self = shift or return;
+    my %hash = @_;
+
+    my $target;
+    my $tmpl = {
+        to  => { default => cwd(), store => \$target },
+    };
+
+    check( $tmpl, \%hash ) or return;
+
+    my ($to, $fh);
+    ### you want us to slurp the contents
+    if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) {
+        $to = tempdir( 'FileFetch.XXXXXX', DIR => $self->tempdir_root, CLEANUP => 1 );
+
+    ### plain old fetch
+    } else {
+        $to = $target;
+
+        ### On VMS force to VMS format so File::Spec will work.
+        $to = VMS::Filespec::vmspath($to) if ON_VMS;
+
+        ### create the path if it doesn't exist yet ###
+        unless( -d $to ) {
+            eval { mkpath( $to ) };
+
+            return $self->_error(loc("Could not create path '%1'",$to)) if $@;
+        }
+    }
+
+    ### set passive ftp if required ###
+    local $ENV{FTP_PASSIVE} = $FTP_PASSIVE;
+
+    ### we dont use catfile on win32 because if we are using a cygwin tool
+    ### under cmd.exe they wont understand windows style separators.
+    my $out_to = ON_WIN ? $to.'/'.$self->output_file
+                        : File::Spec->catfile( $to, $self->output_file );
+
+    for my $method ( @{ $METHODS->{$self->scheme} } ) {
+        my $sub =  '_'.$method.'_fetch';
+
+        unless( __PACKAGE__->can($sub) ) {
+            $self->_error(loc("Cannot call method for '%1' -- WEIRD!",
+                        $method));
+            next;
+        }
+
+        ### method is blacklisted ###
+        next if grep { lc $_ eq $method } @$BLACKLIST;
+
+        ### method is known to fail ###
+        next if $METHOD_FAIL->{$method};
+
+        ### there's serious issues with IPC::Run and quoting of command
+        ### line arguments. using quotes in the wrong place breaks things,
+        ### and in the case of say,
+        ### C:\cygwin\bin\wget.EXE --quiet --passive-ftp --output-document
+        ### "index.html" "http://www.cpan.org/index.html?q=1&y=2"
+        ### it doesn't matter how you quote, it always fails.
+        local $IPC::Cmd::USE_IPC_RUN = 0;
+
+        if( my $file = $self->$sub(
+                        to => $out_to
+        )){
+
+            unless( -e $file && -s _ ) {
+                $self->_error(loc("'%1' said it fetched '%2', ".
+                     "but it was not created",$method,$file));
+
+                ### mark the failure ###
+                $METHOD_FAIL->{$method} = 1;
+
+                next;
+
+            } else {
+
+                ### slurp mode?
+                if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) {
+
+                    ### open the file
+                    open my $fh, "<$file" or do {
+                        $self->_error(
+                            loc("Could not open '%1': %2", $file, $!));
+                        return;
+                    };
+
+                    ### slurp
+                    $$target = do { local $/; <$fh> };
+
+                }
+
+                my $abs = File::Spec->rel2abs( $file );
+                return $abs;
+
+            }
+        }
+    }
+
+
+    ### if we got here, we looped over all methods, but we weren't able
+    ### to fetch it.
+    return;
+}
+
+########################
+### _*_fetch methods ###
+########################
+
+### LWP fetching ###
+sub _lwp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### modules required to download with lwp ###
+    my $use_list = {
+        LWP                 => '0.0',
+        'LWP::UserAgent'    => '0.0',
+        'HTTP::Request'     => '0.0',
+        'HTTP::Status'      => '0.0',
+        URI                 => '0.0',
+
+    };
+
+    if ($self->scheme eq 'https') {
+        $use_list->{'LWP::Protocol::https'} = '0';
+    }
+
+    unless( can_load( modules => $use_list ) ) {
+        $METHOD_FAIL->{'lwp'} = 1;
+        return;
+    }
+
+    ### setup the uri object
+    my $uri = URI->new( File::Spec::Unix->catfile(
+                                $self->path, $self->file
+                    ) );
+
+    ### special rules apply for file:// uris ###
+    $uri->scheme( $self->scheme );
+    $uri->host( $self->scheme eq 'file' ? '' : $self->host );
+
+    if ($self->userinfo) {
+        $uri->userinfo($self->userinfo);
+    } elsif ($self->scheme ne 'file') {
+        $uri->userinfo("anonymous:$FROM_EMAIL");
+    }
+
+    ### set up the useragent object
+    my $ua = LWP::UserAgent->new();
+    $ua->timeout( $TIMEOUT ) if $TIMEOUT;
+    $ua->agent( $USER_AGENT );
+    $ua->from( $FROM_EMAIL );
+    $ua->env_proxy;
+
+    my $res = $ua->mirror($uri, $to) or return;
+
+    ### uptodate or fetched ok ###
+    if ( $res->code == 304 or $res->code == 200 ) {
+        return $to;
+
+    } else {
+        return $self->_error(loc("Fetch failed! HTTP response: %1 %2 [%3]",
+                    $res->code, HTTP::Status::status_message($res->code),
+                    $res->status_line));
+    }
+
+}
+
+### HTTP::Tiny fetching ###
+sub _httptiny_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $use_list = {
+        'HTTP::Tiny'    => '0.008',
+
+    };
+
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'httptiny'} = 1;
+        return;
+    }
+
+    my $uri = $self->uri;
+
+    my $http = HTTP::Tiny->new( ( $TIMEOUT ? ( timeout => $TIMEOUT ) : () ) );
+
+    my $rc = $http->mirror( $uri, $to );
+
+    unless ( $rc->{success} ) {
+
+        return $self->_error(loc( "Fetch failed! HTTP response: %1 [%2]",
+                    $rc->{status}, $rc->{reason} ) );
+
+    }
+
+    return $to;
+
+}
+
+### HTTP::Lite fetching ###
+sub _httplite_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### modules required to download with lwp ###
+    my $use_list = {
+        'HTTP::Lite'    => '2.2',
+        'MIME::Base64'  => '0',
+    };
+
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'httplite'} = 1;
+        return;
+    }
+
+    my $uri = $self->uri;
+    my $retries = 0;
+
+    RETRIES: while ( $retries++ < 5 ) {
+
+      my $http = HTTP::Lite->new();
+      # Naughty naughty but there isn't any accessor/setter
+      $http->{timeout} = $TIMEOUT if $TIMEOUT;
+      $http->http11_mode(1);
+
+      if ($self->userinfo) {
+          my $encoded = MIME::Base64::encode($self->userinfo, '');
+          $http->add_req_header("Authorization", "Basic $encoded");
+      }
+
+      my $fh = FileHandle->new;
+
+      unless ( $fh->open($to,'>') ) {
+        return $self->_error(loc(
+             "Could not open '%1' for writing: %2",$to,$!));
+      }
+
+      $fh->autoflush(1);
+
+      binmode $fh;
+
+      my $rc = $http->request( $uri, sub { my ($self,$dref,$cbargs) = @_; local $\; print {$cbargs} $$dref }, $fh );
+
+      close $fh;
+
+      if ( $rc == 301 || $rc == 302 ) {
+          my $loc;
+          HEADERS: for ($http->headers_array) {
+            /Location: (\S+)/ and $loc = $1, last HEADERS;
+          }
+          #$loc or last; # Think we should squeal here.
+          if ($loc =~ m!^/!) {
+            $uri =~ s{^(\w+?://[^/]+)/.*$}{$1};
+            $uri .= $loc;
+          }
+          else {
+            $uri = $loc;
+          }
+          next RETRIES;
+      }
+      elsif ( $rc == 200 ) {
+          return $to;
+      }
+      else {
+        return $self->_error(loc("Fetch failed! HTTP response: %1 [%2]",
+                    $rc, $http->status_message));
+      }
+
+    } # Loop for 5 retries.
+
+    return $self->_error("Fetch failed! Gave up after 5 tries");
+
+}
+
+### Simple IO::Socket::INET fetching ###
+sub _iosock_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $use_list = {
+        'IO::Socket::INET' => '0.0',
+        'IO::Select'       => '0.0',
+    };
+
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'iosock'} = 1;
+        return;
+    }
+
+    my $sock = IO::Socket::INET->new(
+        PeerHost => $self->host,
+        ( $self->host =~ /:/ ? () : ( PeerPort => 80 ) ),
+    );
+
+    unless ( $sock ) {
+        return $self->_error(loc("Could not open socket to '%1', '%2'",$self->host,$!));
+    }
+
+    my $fh = FileHandle->new;
+
+    # Check open()
+
+    unless ( $fh->open($to,'>') ) {
+        return $self->_error(loc(
+             "Could not open '%1' for writing: %2",$to,$!));
+    }
+
+    $fh->autoflush(1);
+    binmode $fh;
+
+    my $path = File::Spec::Unix->catfile( $self->path, $self->file );
+    my $req = "GET $path HTTP/1.0\x0d\x0aHost: " . $self->host . "\x0d\x0a\x0d\x0a";
+    $sock->send( $req );
+
+    my $select = IO::Select->new( $sock );
+
+    my $resp = '';
+    my $normal = 0;
+    while ( $select->can_read( $TIMEOUT || 60 ) ) {
+      my $ret = $sock->sysread( $resp, 4096, length($resp) );
+      if ( !defined $ret or $ret == 0 ) {
+        $select->remove( $sock );
+        $normal++;
+      }
+    }
+    close $sock;
+
+    unless ( $normal ) {
+        return $self->_error(loc("Socket timed out after '%1' seconds", ( $TIMEOUT || 60 )));
+    }
+
+    # Check the "response"
+    # Strip preceding blank lines apparently they are allowed (RFC 2616 4.1)
+    $resp =~ s/^(\x0d?\x0a)+//;
+    # Check it is an HTTP response
+    unless ( $resp =~ m!^HTTP/(\d+)\.(\d+)!i ) {
+        return $self->_error(loc("Did not get a HTTP response from '%1'",$self->host));
+    }
+
+    # Check for OK
+    my ($code) = $resp =~ m!^HTTP/\d+\.\d+\s+(\d+)!i;
+    unless ( $code eq '200' ) {
+        return $self->_error(loc("Got a '%1' from '%2' expected '200'",$code,$self->host));
+    }
+
+    {
+      local $\;
+      print $fh +($resp =~ m/\x0d\x0a\x0d\x0a(.*)$/s )[0];
+    }
+    close $fh;
+    return $to;
+}
+
+### Net::FTP fetching
+sub _netftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### required modules ###
+    my $use_list = { 'Net::FTP' => 0 };
+
+    unless( can_load( modules => $use_list ) ) {
+        $METHOD_FAIL->{'netftp'} = 1;
+        return;
+    }
+
+    ### make connection ###
+    my $ftp;
+    my @options = ($self->host);
+    push(@options, Timeout => $TIMEOUT) if $TIMEOUT;
+    unless( $ftp = Net::FTP->new( @options ) ) {
+        return $self->_error(loc("Ftp creation failed: %1",$@));
+    }
+
+    ### login ###
+    unless( $ftp->login( anonymous => $FROM_EMAIL ) ) {
+        return $self->_error(loc("Could not login to '%1'",$self->host));
+    }
+
+    ### set binary mode, just in case ###
+    $ftp->binary;
+
+    ### create the remote path
+    ### remember remote paths are unix paths! [#11483]
+    my $remote = File::Spec::Unix->catfile( $self->path, $self->file );
+
+    ### fetch the file ###
+    my $target;
+    unless( $target = $ftp->get( $remote, $to ) ) {
+        return $self->_error(loc("Could not fetch '%1' from '%2'",
+                    $remote, $self->host));
+    }
+
+    ### log out ###
+    $ftp->quit;
+
+    return $target;
+
+}
+
+### /bin/wget fetch ###
+sub _wget_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $wget;
+    ### see if we have a wget binary ###
+    unless( $wget = can_run('wget') ) {
+        $METHOD_FAIL->{'wget'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $wget, '--quiet' ];
+
+    ### if a timeout is set, add it ###
+    push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    ### run passive if specified ###
+    push @$cmd, '--passive-ftp' if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    push @$cmd, '--output-document', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+### /bin/lftp fetch ###
+sub _lftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a lftp binary ###
+    my $lftp;
+    unless( $lftp = can_run('lftp') ) {
+        $METHOD_FAIL->{'lftp'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $lftp, '-f' ];
+
+    my $fh = File::Temp->new;
+
+    my $str;
+
+    ### if a timeout is set, add it ###
+    $str .= "set net:timeout $TIMEOUT;\n" if $TIMEOUT;
+
+    ### run passive if specified ###
+    $str .= "set ftp:passive-mode 1;\n" if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    ### quote the URI, because lftp supports certain shell
+    ### expansions, most notably & for backgrounding.
+    ### ' quote does nto work, must be "
+    $str .= q[get ']. $self->uri .q[' -o ]. $to . $/;
+
+    if( $DEBUG ) {
+        my $pp_str = join ' ', split $/, $str;
+        print "# lftp command: $pp_str\n";
+    }
+
+    ### write straight to the file.
+    $fh->autoflush(1);
+    print $fh $str;
+
+    ### the command needs to be 1 string to be executed
+    push @$cmd, $fh->filename;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+
+
+### /bin/ftp fetch ###
+sub _ftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a ftp binary ###
+    my $ftp;
+    unless( $ftp = can_run('ftp') ) {
+        $METHOD_FAIL->{'ftp'} = 1;
+        return;
+    }
+
+    my $fh = FileHandle->new;
+
+    local $SIG{CHLD} = 'IGNORE';
+
+    unless ($fh->open("$ftp -n", '|-')) {
+        return $self->_error(loc("%1 creation failed: %2", $ftp, $!));
+    }
+
+    my @dialog = (
+        "lcd " . dirname($to),
+        "open " . $self->host,
+        "user anonymous $FROM_EMAIL",
+        "cd /",
+        "cd " . $self->path,
+        "binary",
+        "get " . $self->file . " " . $self->output_file,
+        "quit",
+    );
+
+    foreach (@dialog) { $fh->print($_, "\n") }
+    $fh->close or return;
+
+    return $to;
+}
+
+### lynx is stupid - it decompresses any .gz file it finds to be text
+### use /bin/lynx to fetch files
+sub _lynx_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a lynx binary ###
+    my $lynx;
+    unless ( $lynx = can_run('lynx') ){
+        $METHOD_FAIL->{'lynx'} = 1;
+        return;
+    }
+
+    unless( IPC::Cmd->can_capture_buffer ) {
+        $METHOD_FAIL->{'lynx'} = 1;
+
+        return $self->_error(loc(
+            "Can not capture buffers. Can not use '%1' to fetch files",
+            'lynx' ));
+    }
+
+    ### check if the HTTP resource exists ###
+    if ($self->uri =~ /^https?:\/\//i) {
+        my $cmd = [
+            $lynx,
+            '-head',
+            '-source',
+            "-auth=anonymous:$FROM_EMAIL",
+        ];
+
+        push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT;
+
+        push @$cmd, $self->uri;
+
+        ### shell out ###
+        my $head;
+        unless(run( command => $cmd,
+                    buffer  => \$head,
+                    verbose => $DEBUG )
+        ) {
+            return $self->_error(loc("Command failed: %1", $head || ''));
+        }
+
+        unless($head =~ /^HTTP\/\d+\.\d+ 200\b/) {
+            return $self->_error(loc("Command failed: %1", $head || ''));
+        }
+    }
+
+    ### write to the output file ourselves, since lynx ass_u_mes to much
+    my $local = FileHandle->new( $to, 'w' )
+                    or return $self->_error(loc(
+                        "Could not open '%1' for writing: %2",$to,$!));
+
+    ### dump to stdout ###
+    my $cmd = [
+        $lynx,
+        '-source',
+        "-auth=anonymous:$FROM_EMAIL",
+    ];
+
+    push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? $self->uri
+    #    : QUOTE. $self->uri .QUOTE;
+
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    ### print to local file ###
+    ### XXX on a 404 with a special error page, $captured will actually
+    ### hold the contents of that page, and make it *appear* like the
+    ### request was a success, when really it wasn't :(
+    ### there doesn't seem to be an option for lynx to change the exit
+    ### code based on a 4XX status or so.
+    ### the closest we can come is using --error_file and parsing that,
+    ### which is very unreliable ;(
+    $local->print( $captured );
+    $local->close or return;
+
+    return $to;
+}
+
+### use /bin/ncftp to fetch files
+sub _ncftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### we can only set passive mode in interactive sessions, so bail out
+    ### if $FTP_PASSIVE is set
+    return if $FTP_PASSIVE;
+
+    ### see if we have a ncftp binary ###
+    my $ncftp;
+    unless( $ncftp = can_run('ncftp') ) {
+        $METHOD_FAIL->{'ncftp'} = 1;
+        return;
+    }
+
+    my $cmd = [
+        $ncftp,
+        '-V',                   # do not be verbose
+        '-p', $FROM_EMAIL,      # email as password
+        $self->host,            # hostname
+        dirname($to),           # local dir for the file
+                                # remote path to the file
+        ### DO NOT quote things for IPC::Run, it breaks stuff.
+        $IPC::Cmd::USE_IPC_RUN
+                    ? File::Spec::Unix->catdir( $self->path, $self->file )
+                    : QUOTE. File::Spec::Unix->catdir(
+                                    $self->path, $self->file ) .QUOTE
+
+    ];
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### use /bin/curl to fetch files
+sub _curl_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $curl;
+    unless ( $curl = can_run('curl') ) {
+        $METHOD_FAIL->{'curl'} = 1;
+        return;
+    }
+
+    ### these long opts are self explanatory - I like that -jmb
+    my $cmd = [ $curl, '-q' ];
+
+    push(@$cmd, '-4') if $^O eq 'netbsd' && $FORCEIPV4; # only seen this on NetBSD so far
+
+    push(@$cmd, '--connect-timeout', $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--silent') unless $DEBUG;
+
+    ### curl does the right thing with passive, regardless ###
+    if ($self->scheme eq 'ftp') {
+        push(@$cmd, '--user', "anonymous:$FROM_EMAIL");
+    }
+
+    ### curl doesn't follow 302 (temporarily moved) etc automatically
+    ### so we add --location to enable that.
+    push @$cmd, '--fail', '--location', '--output', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### /usr/bin/fetch fetch! ###
+sub _fetch_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a fetch binary ###
+    my $fetch;
+    unless( HAS_FETCH and $fetch = can_run('fetch') ) {
+        $METHOD_FAIL->{'fetch'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $fetch, '-q' ];
+
+    ### if a timeout is set, add it ###
+    push(@$cmd, '-T', $TIMEOUT) if $TIMEOUT;
+
+    ### run passive if specified ###
+    #push @$cmd, '-p' if $FTP_PASSIVE;
+    local $ENV{'FTP_PASSIVE_MODE'} = 1 if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    push @$cmd, '-o', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+### use File::Copy for fetching file:// urls ###
+###
+### See section 3.10 of RFC 1738 (http://www.faqs.org/rfcs/rfc1738.html)
+### Also see wikipedia on file:// (http://en.wikipedia.org/wiki/File://)
+###
+
+sub _file_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+
+
+    ### prefix a / on unix systems with a file uri, since it would
+    ### look somewhat like this:
+    ###     file:///home/kane/file
+    ### whereas windows file uris for 'c:\some\dir\file' might look like:
+    ###     file:///C:/some/dir/file
+    ###     file:///C|/some/dir/file
+    ### or for a network share '\\host\share\some\dir\file':
+    ###     file:////host/share/some/dir/file
+    ###
+    ### VMS file uri's for 'DISK$USER:[MY.NOTES]NOTE123456.TXT' might look like:
+    ###     file://vms.host.edu/disk$user/my/notes/note12345.txt
+    ###
+
+    my $path    = $self->path;
+    my $vol     = $self->vol;
+    my $share   = $self->share;
+
+    my $remote;
+    if (!$share and $self->host) {
+        return $self->_error(loc(
+            "Currently %1 cannot handle hosts in %2 urls",
+            'File::Fetch', 'file://'
+        ));
+    }
+
+    if( $vol ) {
+        $path   = File::Spec->catdir( split /\//, $path );
+        $remote = File::Spec->catpath( $vol, $path, $self->file);
+
+    } elsif( $share ) {
+        ### win32 specific, and a share name, so we wont bother with File::Spec
+        $path   =~ s|/+|\\|g;
+        $remote = "\\\\".$self->host."\\$share\\$path";
+
+    } else {
+        ### File::Spec on VMS can not currently handle UNIX syntax.
+        my $file_class = ON_VMS
+            ? 'File::Spec::Unix'
+            : 'File::Spec';
+
+        $remote  = $file_class->catfile( $path, $self->file );
+    }
+
+    ### File::Copy is littered with 'die' statements :( ###
+    my $rv = eval { File::Copy::copy( $remote, $to ) };
+
+    ### something went wrong ###
+    if( !$rv or $@ ) {
+        return $self->_error(loc("Could not copy '%1' to '%2': %3 %4",
+                             $remote, $to, $!, $@));
+    }
+
+    return $to;
+}
+
+### use /usr/bin/rsync to fetch files
+sub _rsync_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $rsync;
+    unless ( $rsync = can_run('rsync') ) {
+        $METHOD_FAIL->{'rsync'} = 1;
+        return;
+    }
+
+    my $cmd = [ $rsync ];
+
+    ### XXX: rsync has no I/O timeouts at all, by default
+    push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--quiet') unless $DEBUG;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri, $to;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command %1 failed: %2",
+            "@$cmd" || '', $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### use git to fetch files
+sub _git_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $git;
+    unless ( $git = can_run('git') ) {
+        $METHOD_FAIL->{'git'} = 1;
+        return;
+    }
+
+    my $cmd = [ $git, 'clone' ];
+
+    #push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--quiet') unless $DEBUG;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri, $to;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command %1 failed: %2",
+            "@$cmd" || '', $captured || ''));
+    }
+
+    return $to;
+
+}
+
+#################################
+#
+# Error code
+#
+#################################
+
+
+### error handling the way Archive::Extract does it
+sub _error {
+    my $self    = shift;
+    my $error   = shift;
+
+    $self->_error_msg( $error );
+    $self->_error_msg_long( Carp::longmess($error) );
+
+    if( $WARN ) {
+        carp $DEBUG ? $self->_error_msg_long : $self->_error_msg;
+    }
+
+    return;
+}
+
+sub error {
+    my $self = shift;
+    return shift() ? $self->_error_msg_long : $self->_error_msg;
+}
+
+
+1;
+
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
+
+
+
+
+package File::Path;
+
+use 5.005_04;
+use strict;
+
+use Cwd 'getcwd';
+use File::Basename ();
+use File::Spec     ();
+
+BEGIN {
+    if ( $] < 5.006 ) {
+
+        # can't say 'opendir my $dh, $dirname'
+        # need to initialise $dh
+        eval 'use Symbol';
+    }
+}
+
+use Exporter ();
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+$VERSION   = '2.15';
+$VERSION   = eval $VERSION;
+@ISA       = qw(Exporter);
+@EXPORT    = qw(mkpath rmtree);
+@EXPORT_OK = qw(make_path remove_tree);
+
+BEGIN {
+  for (qw(VMS MacOS MSWin32 os2)) {
+    no strict 'refs';
+    *{"_IS_\U$_"} = $^O eq $_ ? sub () { 1 } : sub () { 0 };
+  }
+
+  # These OSes complain if you want to remove a file that you have no
+  # write permission to:
+  *_FORCE_WRITABLE = (
+    grep { $^O eq $_ } qw(amigaos dos epoc MSWin32 MacOS os2)
+  ) ? sub () { 1 } : sub () { 0 };
+
+  # Unix-like systems need to stat each directory in order to detect
+  # race condition. MS-Windows is immune to this particular attack.
+  *_NEED_STAT_CHECK = !(_IS_MSWIN32()) ? sub () { 1 } : sub () { 0 };
+}
+
+sub _carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub _croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub _error {
+    my $arg     = shift;
+    my $message = shift;
+    my $object  = shift;
+
+    if ( $arg->{error} ) {
+        $object = '' unless defined $object;
+        $message .= ": $!" if $!;
+        push @{ ${ $arg->{error} } }, { $object => $message };
+    }
+    else {
+        _carp( defined($object) ? "$message for $object: $!" : "$message: $!" );
+    }
+}
+
+sub __is_arg {
+    my ($arg) = @_;
+
+    # If client code blessed an array ref to HASH, this will not work
+    # properly. We could have done $arg->isa() wrapped in eval, but
+    # that would be expensive. This implementation should suffice.
+    # We could have also used Scalar::Util:blessed, but we choose not
+    # to add this dependency
+    return ( ref $arg eq 'HASH' );
+}
+
+sub make_path {
+    push @_, {} unless @_ and __is_arg( $_[-1] );
+    goto &mkpath;
+}
+
+sub mkpath {
+    my $old_style = !( @_ and __is_arg( $_[-1] ) );
+
+    my $data;
+    my $paths;
+
+    if ($old_style) {
+        my ( $verbose, $mode );
+        ( $paths, $verbose, $mode ) = @_;
+        $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
+        $data->{verbose} = $verbose;
+        $data->{mode} = defined $mode ? $mode : oct '777';
+    }
+    else {
+        my %args_permitted = map { $_ => 1 } ( qw|
+            chmod
+            error
+            group
+            mask
+            mode
+            owner
+            uid
+            user
+            verbose
+        | );
+        my %not_on_win32_args = map { $_ => 1 } ( qw|
+            group
+            owner
+            uid
+            user
+        | );
+        my @bad_args = ();
+        my @win32_implausible_args = ();
+        my $arg = pop @_;
+        for my $k (sort keys %{$arg}) {
+            if (! $args_permitted{$k}) {
+                push @bad_args, $k;
+            }
+            elsif ($not_on_win32_args{$k} and _IS_MSWIN32) {
+                push @win32_implausible_args, $k;
+            }
+            else {
+                $data->{$k} = $arg->{$k};
+            }
+        }
+        _carp("Unrecognized option(s) passed to mkpath() or make_path(): @bad_args")
+            if @bad_args;
+        _carp("Option(s) implausible on Win32 passed to mkpath() or make_path(): @win32_implausible_args")
+            if @win32_implausible_args;
+        $data->{mode} = delete $data->{mask} if exists $data->{mask};
+        $data->{mode} = oct '777' unless exists $data->{mode};
+        ${ $data->{error} } = [] if exists $data->{error};
+        unless (@win32_implausible_args) {
+            $data->{owner} = delete $data->{user} if exists $data->{user};
+            $data->{owner} = delete $data->{uid}  if exists $data->{uid};
+            if ( exists $data->{owner} and $data->{owner} =~ /\D/ ) {
+                my $uid = ( getpwnam $data->{owner} )[2];
+                if ( defined $uid ) {
+                    $data->{owner} = $uid;
+                }
+                else {
+                    _error( $data,
+                            "unable to map $data->{owner} to a uid, ownership not changed"
+                          );
+                    delete $data->{owner};
+                }
+            }
+            if ( exists $data->{group} and $data->{group} =~ /\D/ ) {
+                my $gid = ( getgrnam $data->{group} )[2];
+                if ( defined $gid ) {
+                    $data->{group} = $gid;
+                }
+                else {
+                    _error( $data,
+                            "unable to map $data->{group} to a gid, group ownership not changed"
+                    );
+                    delete $data->{group};
+                }
+            }
+            if ( exists $data->{owner} and not exists $data->{group} ) {
+                $data->{group} = -1;    # chown will leave group unchanged
+            }
+            if ( exists $data->{group} and not exists $data->{owner} ) {
+                $data->{owner} = -1;    # chown will leave owner unchanged
+            }
+        }
+        $paths = [@_];
+    }
+    return _mkpath( $data, $paths );
+}
+
+sub _mkpath {
+    my $data   = shift;
+    my $paths = shift;
+
+    my ( @created );
+    foreach my $path ( @{$paths} ) {
+        next unless defined($path) and length($path);
+        $path .= '/' if _IS_OS2 and $path =~ /^\w:\z/s; # feature of CRT
+
+        # Logic wants Unix paths, so go with the flow.
+        if (_IS_VMS) {
+            next if $path eq '/';
+            $path = VMS::Filespec::unixify($path);
+        }
+        next if -d $path;
+        my $parent = File::Basename::dirname($path);
+        # Coverage note:  It's not clear how we would test the condition:
+        # '-d $parent or $path eq $parent'
+        unless ( -d $parent or $path eq $parent ) {
+            push( @created, _mkpath( $data, [$parent] ) );
+        }
+        print "mkdir $path\n" if $data->{verbose};
+        if ( mkdir( $path, $data->{mode} ) ) {
+            push( @created, $path );
+            if ( exists $data->{owner} ) {
+
+                # NB: $data->{group} guaranteed to be set during initialisation
+                if ( !chown $data->{owner}, $data->{group}, $path ) {
+                    _error( $data,
+                        "Cannot change ownership of $path to $data->{owner}:$data->{group}"
+                    );
+                }
+            }
+            if ( exists $data->{chmod} ) {
+                # Coverage note:  It's not clear how we would trigger the next
+                # 'if' block.  Failure of 'chmod' might first result in a
+                # system error: "Permission denied".
+                if ( !chmod $data->{chmod}, $path ) {
+                    _error( $data,
+                        "Cannot change permissions of $path to $data->{chmod}" );
+                }
+            }
+        }
+        else {
+            my $save_bang = $!;
+
+            # From 'perldoc perlvar': $EXTENDED_OS_ERROR ($^E) is documented
+            # as:
+            # Error information specific to the current operating system. At the
+            # moment, this differs from "$!" under only VMS, OS/2, and Win32
+            # (and for MacPerl). On all other platforms, $^E is always just the
+            # same as $!.
+
+            my ( $e, $e1 ) = ( $save_bang, $^E );
+            $e .= "; $e1" if $e ne $e1;
+
+            # allow for another process to have created it meanwhile
+            if ( ! -d $path ) {
+                $! = $save_bang;
+                if ( $data->{error} ) {
+                    push @{ ${ $data->{error} } }, { $path => $e };
+                }
+                else {
+                    _croak("mkdir $path: $e");
+                }
+            }
+        }
+    }
+    return @created;
+}
+
+sub remove_tree {
+    push @_, {} unless @_ and __is_arg( $_[-1] );
+    goto &rmtree;
+}
+
+sub _is_subdir {
+    my ( $dir, $test ) = @_;
+
+    my ( $dv, $dd ) = File::Spec->splitpath( $dir,  1 );
+    my ( $tv, $td ) = File::Spec->splitpath( $test, 1 );
+
+    # not on same volume
+    return 0 if $dv ne $tv;
+
+    my @d = File::Spec->splitdir($dd);
+    my @t = File::Spec->splitdir($td);
+
+    # @t can't be a subdir if it's shorter than @d
+    return 0 if @t < @d;
+
+    return join( '/', @d ) eq join( '/', splice @t, 0, +@d );
+}
+
+sub rmtree {
+    my $old_style = !( @_ and __is_arg( $_[-1] ) );
+
+    my ($arg, $data, $paths);
+
+    if ($old_style) {
+        my ( $verbose, $safe );
+        ( $paths, $verbose, $safe ) = @_;
+        $data->{verbose} = $verbose;
+        $data->{safe} = defined $safe ? $safe : 0;
+
+        if ( defined($paths) and length($paths) ) {
+            $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
+        }
+        else {
+            _carp("No root path(s) specified\n");
+            return 0;
+        }
+    }
+    else {
+        my %args_permitted = map { $_ => 1 } ( qw|
+            error
+            keep_root
+            result
+            safe
+            verbose
+        | );
+        my @bad_args = ();
+        my $arg = pop @_;
+        for my $k (sort keys %{$arg}) {
+            if (! $args_permitted{$k}) {
+                push @bad_args, $k;
+            }
+            else {
+                $data->{$k} = $arg->{$k};
+            }
+        }
+        _carp("Unrecognized option(s) passed to remove_tree(): @bad_args")
+            if @bad_args;
+        ${ $data->{error} }  = [] if exists $data->{error};
+        ${ $data->{result} } = [] if exists $data->{result};
+
+        # Wouldn't it make sense to do some validation on @_ before assigning
+        # to $paths here?
+        # In the $old_style case we guarantee that each path is both defined
+        # and non-empty.  We don't check that here, which means we have to
+        # check it later in the first condition in this line:
+        #     if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) {
+        # Granted, that would be a change in behavior for the two
+        # non-old-style interfaces.
+
+        $paths = [@_];
+    }
+
+    $data->{prefix} = '';
+    $data->{depth}  = 0;
+
+    my @clean_path;
+    $data->{cwd} = getcwd() or do {
+        _error( $data, "cannot fetch initial working directory" );
+        return 0;
+    };
+    for ( $data->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
+
+    for my $p (@$paths) {
+
+        # need to fixup case and map \ to / on Windows
+        my $ortho_root = _IS_MSWIN32 ? _slash_lc($p) : $p;
+        my $ortho_cwd =
+          _IS_MSWIN32 ? _slash_lc( $data->{cwd} ) : $data->{cwd};
+        my $ortho_root_length = length($ortho_root);
+        $ortho_root_length-- if _IS_VMS;   # don't compare '.' with ']'
+        if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) {
+            local $! = 0;
+            _error( $data, "cannot remove path when cwd is $data->{cwd}", $p );
+            next;
+        }
+
+        if (_IS_MACOS) {
+            $p = ":$p" unless $p =~ /:/;
+            $p .= ":" unless $p =~ /:\z/;
+        }
+        elsif ( _IS_MSWIN32 ) {
+            $p =~ s{[/\\]\z}{};
+        }
+        else {
+            $p =~ s{/\z}{};
+        }
+        push @clean_path, $p;
+    }
+
+    @{$data}{qw(device inode)} = ( lstat $data->{cwd} )[ 0, 1 ] or do {
+        _error( $data, "cannot stat initial working directory", $data->{cwd} );
+        return 0;
+    };
+
+    return _rmtree( $data, \@clean_path );
+}
+
+sub _rmtree {
+    my $data   = shift;
+    my $paths = shift;
+
+    my $count  = 0;
+    my $curdir = File::Spec->curdir();
+    my $updir  = File::Spec->updir();
+
+    my ( @files, $root );
+  ROOT_DIR:
+    foreach my $root (@$paths) {
+
+        # since we chdir into each directory, it may not be obvious
+        # to figure out where we are if we generate a message about
+        # a file name. We therefore construct a semi-canonical
+        # filename, anchored from the directory being unlinked (as
+        # opposed to being truly canonical, anchored from the root (/).
+
+        my $canon =
+          $data->{prefix}
+          ? File::Spec->catfile( $data->{prefix}, $root )
+          : $root;
+
+        my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
+          or next ROOT_DIR;
+
+        if ( -d _ ) {
+            $root = VMS::Filespec::vmspath( VMS::Filespec::pathify($root) )
+              if _IS_VMS;
+
+            if ( !chdir($root) ) {
+
+                # see if we can escalate privileges to get in
+                # (e.g. funny protection mask such as -w- instead of rwx)
+                # This uses fchmod to avoid traversing outside of the proper
+                # location (CVE-2017-6512)
+                my $root_fh;
+                if (open($root_fh, '<', $root)) {
+                    my ($fh_dev, $fh_inode) = (stat $root_fh )[0,1];
+                    $perm &= oct '7777';
+                    my $nperm = $perm | oct '700';
+                    local $@;
+                    if (
+                        !(
+                            $data->{safe}
+                           or $nperm == $perm
+                           or !-d _
+                           or $fh_dev ne $ldev
+                           or $fh_inode ne $lino
+                           or eval { chmod( $nperm, $root_fh ) }
+                        )
+                      )
+                    {
+                        _error( $data,
+                            "cannot make child directory read-write-exec", $canon );
+                        next ROOT_DIR;
+                    }
+                    close $root_fh;
+                }
+                if ( !chdir($root) ) {
+                    _error( $data, "cannot chdir to child", $canon );
+                    next ROOT_DIR;
+                }
+            }
+
+            my ( $cur_dev, $cur_inode, $perm ) = ( stat $curdir )[ 0, 1, 2 ]
+              or do {
+                _error( $data, "cannot stat current working directory", $canon );
+                next ROOT_DIR;
+              };
+
+            if (_NEED_STAT_CHECK) {
+                ( $ldev eq $cur_dev and $lino eq $cur_inode )
+                  or _croak(
+"directory $canon changed before chdir, expected dev=$ldev ino=$lino, actual dev=$cur_dev ino=$cur_inode, aborting."
+                  );
+            }
+
+            $perm &= oct '7777';    # don't forget setuid, setgid, sticky bits
+            my $nperm = $perm | oct '700';
+
+            # notabene: 0700 is for making readable in the first place,
+            # it's also intended to change it to writable in case we have
+            # to recurse in which case we are better than rm -rf for
+            # subtrees with strange permissions
+
+            if (
+                !(
+                       $data->{safe}
+                    or $nperm == $perm
+                    or chmod( $nperm, $curdir )
+                )
+              )
+            {
+                _error( $data, "cannot make directory read+writeable", $canon );
+                $nperm = $perm;
+            }
+
+            my $d;
+            $d = gensym() if $] < 5.006;
+            if ( !opendir $d, $curdir ) {
+                _error( $data, "cannot opendir", $canon );
+                @files = ();
+            }
+            else {
+                if ( !defined ${^TAINT} or ${^TAINT} ) {
+                    # Blindly untaint dir names if taint mode is active
+                    @files = map { /\A(.*)\z/s; $1 } readdir $d;
+                }
+                else {
+                    @files = readdir $d;
+                }
+                closedir $d;
+            }
+
+            if (_IS_VMS) {
+
+                # Deleting large numbers of files from VMS Files-11
+                # filesystems is faster if done in reverse ASCIIbetical order.
+                # include '.' to '.;' from blead patch #31775
+                @files = map { $_ eq '.' ? '.;' : $_ } reverse @files;
+            }
+
+            @files = grep { $_ ne $updir and $_ ne $curdir } @files;
+
+            if (@files) {
+
+                # remove the contained files before the directory itself
+                my $narg = {%$data};
+                @{$narg}{qw(device inode cwd prefix depth)} =
+                  ( $cur_dev, $cur_inode, $updir, $canon, $data->{depth} + 1 );
+                $count += _rmtree( $narg, \@files );
+            }
+
+            # restore directory permissions of required now (in case the rmdir
+            # below fails), while we are still in the directory and may do so
+            # without a race via '.'
+            if ( $nperm != $perm and not chmod( $perm, $curdir ) ) {
+                _error( $data, "cannot reset chmod", $canon );
+            }
+
+            # don't leave the client code in an unexpected directory
+            chdir( $data->{cwd} )
+              or
+              _croak("cannot chdir to $data->{cwd} from $canon: $!, aborting.");
+
+            # ensure that a chdir upwards didn't take us somewhere other
+            # than we expected (see CVE-2002-0435)
+            ( $cur_dev, $cur_inode ) = ( stat $curdir )[ 0, 1 ]
+              or _croak(
+                "cannot stat prior working directory $data->{cwd}: $!, aborting."
+              );
+
+            if (_NEED_STAT_CHECK) {
+                ( $data->{device} eq $cur_dev and $data->{inode} eq $cur_inode )
+                  or _croak(  "previous directory $data->{cwd} "
+                            . "changed before entering $canon, "
+                            . "expected dev=$ldev ino=$lino, "
+                            . "actual dev=$cur_dev ino=$cur_inode, aborting."
+                  );
+            }
+
+            if ( $data->{depth} or !$data->{keep_root} ) {
+                if ( $data->{safe}
+                    && ( _IS_VMS
+                        ? !&VMS::Filespec::candelete($root)
+                        : !-w $root ) )
+                {
+                    print "skipped $root\n" if $data->{verbose};
+                    next ROOT_DIR;
+                }
+                if ( _FORCE_WRITABLE and !chmod $perm | oct '700', $root ) {
+                    _error( $data, "cannot make directory writeable", $canon );
+                }
+                print "rmdir $root\n" if $data->{verbose};
+                if ( rmdir $root ) {
+                    push @{ ${ $data->{result} } }, $root if $data->{result};
+                    ++$count;
+                }
+                else {
+                    _error( $data, "cannot remove directory", $canon );
+                    if (
+                        _FORCE_WRITABLE
+                        && !chmod( $perm,
+                            ( _IS_VMS ? VMS::Filespec::fileify($root) : $root )
+                        )
+                      )
+                    {
+                        _error(
+                            $data,
+                            sprintf( "cannot restore permissions to 0%o",
+                                $perm ),
+                            $canon
+                        );
+                    }
+                }
+            }
+        }
+        else {
+            # not a directory
+            $root = VMS::Filespec::vmsify("./$root")
+              if _IS_VMS
+              && !File::Spec->file_name_is_absolute($root)
+              && ( $root !~ m/(?<!\^)[\]>]+/ );    # not already in VMS syntax
+
+            if (
+                $data->{safe}
+                && (
+                    _IS_VMS
+                    ? !&VMS::Filespec::candelete($root)
+                    : !( -l $root || -w $root )
+                )
+              )
+            {
+                print "skipped $root\n" if $data->{verbose};
+                next ROOT_DIR;
+            }
+
+            my $nperm = $perm & oct '7777' | oct '600';
+            if (    _FORCE_WRITABLE
+                and $nperm != $perm
+                and not chmod $nperm, $root )
+            {
+                _error( $data, "cannot make file writeable", $canon );
+            }
+            print "unlink $canon\n" if $data->{verbose};
+
+            # delete all versions under VMS
+            for ( ; ; ) {
+                if ( unlink $root ) {
+                    push @{ ${ $data->{result} } }, $root if $data->{result};
+                }
+                else {
+                    _error( $data, "cannot unlink file", $canon );
+                    _FORCE_WRITABLE and chmod( $perm, $root )
+                      or _error( $data,
+                        sprintf( "cannot restore permissions to 0%o", $perm ),
+                        $canon );
+                    last;
+                }
+                ++$count;
+                last unless _IS_VMS && lstat $root;
+            }
+        }
+    }
+    return $count;
+}
+
+sub _slash_lc {
+
+    # fix up slashes and case on MSWin32 so that we can determine that
+    # c:\path\to\dir is underneath C:/Path/To
+    my $path = shift;
+    $path =~ tr{\\}{/};
+    return lc($path);
+}
+
+1;
+
+__END__
+
+# File/Copy.pm. Written in 1994 by Aaron Sherman <ajs@ajs.com>. This
+# source code has been placed in the public domain by the author.
+# Please be kind and preserve the documentation.
+#
+# Additions copyright 1996 by Charles Bailey.  Permission is granted
+# to distribute the revised code under the same terms as Perl itself.
+
+package File::Copy;
+
+use 5.006;
+use strict;
+use warnings; no warnings 'newline';
+use File::Spec;
+use Config;
+# During perl build, we need File::Copy but Scalar::Util might not be built yet
+# And then we need these games to avoid loading overload, as that will
+# confuse miniperl during the bootstrap of perl.
+my $Scalar_Util_loaded = eval q{ require Scalar::Util; require overload; 1 };
+# We want HiRes stat and utime if available
+BEGIN { eval q{ use Time::HiRes qw( stat utime ) } };
+our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);
+sub copy;
+sub syscopy;
+sub cp;
+sub mv;
+
+$VERSION = '2.33';
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(copy move);
+@EXPORT_OK = qw(cp mv);
+
+$Too_Big = 1024 * 1024 * 2;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub _catname {
+    my($from, $to) = @_;
+    if (not defined &basename) {
+	require File::Basename;
+	import  File::Basename 'basename';
+    }
+
+    return File::Spec->catfile($to, basename($from));
+}
+
+# _eq($from, $to) tells whether $from and $to are identical
+sub _eq {
+    my ($from, $to) = map {
+        $Scalar_Util_loaded && Scalar::Util::blessed($_)
+	    && overload::Method($_, q{""})
+            ? "$_"
+            : $_
+    } (@_);
+    return '' if ( (ref $from) xor (ref $to) );
+    return $from == $to if ref $from;
+    return $from eq $to;
+}
+
+sub copy {
+    croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
+      unless(@_ == 2 || @_ == 3);
+
+    my $from = shift;
+    my $to = shift;
+
+    my $size;
+    if (@_) {
+	$size = shift(@_) + 0;
+	croak("Bad buffer size for copy: $size\n") unless ($size > 0);
+    }
+
+    my $from_a_handle = (ref($from)
+			 ? (ref($from) eq 'GLOB'
+			    || UNIVERSAL::isa($from, 'GLOB')
+                            || UNIVERSAL::isa($from, 'IO::Handle'))
+			 : (ref(\$from) eq 'GLOB'));
+    my $to_a_handle =   (ref($to)
+			 ? (ref($to) eq 'GLOB'
+			    || UNIVERSAL::isa($to, 'GLOB')
+                            || UNIVERSAL::isa($to, 'IO::Handle'))
+			 : (ref(\$to) eq 'GLOB'));
+
+    if (_eq($from, $to)) { # works for references, too
+	carp("'$from' and '$to' are identical (not copied)");
+        return 0;
+    }
+
+    if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
+	$to = _catname($from, $to);
+    }
+
+    if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
+	!($^O eq 'MSWin32' || $^O eq 'os2')) {
+	my @fs = stat($from);
+	if (@fs) {
+	    my @ts = stat($to);
+	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
+		carp("'$from' and '$to' are identical (not copied)");
+                return 0;
+	    }
+	}
+    }
+    elsif (_eq($from, $to)) {
+	carp("'$from' and '$to' are identical (not copied)");
+	return 0;
+    }
+
+    if (defined &syscopy && !$Syscopy_is_copy
+	&& !$to_a_handle
+	&& !($from_a_handle && $^O eq 'os2' )	# OS/2 cannot handle handles
+	&& !($from_a_handle && $^O eq 'MSWin32')
+	&& !($from_a_handle && $^O eq 'NetWare')
+       )
+    {
+        if ($^O eq 'VMS' && -e $from
+            && ! -d $to && ! -d $from) {
+
+            # VMS natively inherits path components from the source of a
+            # copy, but we want the Unixy behavior of inheriting from
+            # the current working directory.  Also, default in a trailing
+            # dot for null file types.
+
+            $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.');
+
+            # Get rid of the old versions to be like UNIX
+            1 while unlink $to;
+        }
+
+        return syscopy($from, $to) || 0;
+    }
+
+    my $closefrom = 0;
+    my $closeto = 0;
+    my ($status, $r, $buf);
+    local($\) = '';
+
+    my $from_h;
+    if ($from_a_handle) {
+       $from_h = $from;
+    } else {
+       open $from_h, "<", $from or goto fail_open1;
+       binmode $from_h or die "($!,$^E)";
+       $closefrom = 1;
+    }
+
+    # Seems most logical to do this here, in case future changes would want to
+    # make this croak for some reason.
+    unless (defined $size) {
+	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
+	$size = 1024 if ($size < 512);
+	$size = $Too_Big if ($size > $Too_Big);
+    }
+
+    my $to_h;
+    if ($to_a_handle) {
+       $to_h = $to;
+    } else {
+	$to_h = \do { local *FH }; # XXX is this line obsolete?
+	open $to_h, ">", $to or goto fail_open2;
+	binmode $to_h or die "($!,$^E)";
+	$closeto = 1;
+    }
+
+    $! = 0;
+    for (;;) {
+	my ($r, $w, $t);
+       defined($r = sysread($from_h, $buf, $size))
+	    or goto fail_inner;
+	last unless $r;
+	for ($w = 0; $w < $r; $w += $t) {
+           $t = syswrite($to_h, $buf, $r - $w, $w)
+		or goto fail_inner;
+	}
+    }
+
+    close($to_h) || goto fail_open2 if $closeto;
+    close($from_h) || goto fail_open1 if $closefrom;
+
+    # Use this idiom to avoid uninitialized value warning.
+    return 1;
+
+    # All of these contortions try to preserve error messages...
+  fail_inner:
+    if ($closeto) {
+	$status = $!;
+	$! = 0;
+       close $to_h;
+	$! = $status unless $!;
+    }
+  fail_open2:
+    if ($closefrom) {
+	$status = $!;
+	$! = 0;
+       close $from_h;
+	$! = $status unless $!;
+    }
+  fail_open1:
+    return 0;
+}
+
+sub cp {
+    my($from,$to) = @_;
+    my(@fromstat) = stat $from;
+    my(@tostat) = stat $to;
+    my $perm;
+
+    return 0 unless copy(@_) and @fromstat;
+
+    if (@tostat) {
+        $perm = $tostat[2];
+    } else {
+        $perm = $fromstat[2] & ~(umask || 0);
+	@tostat = stat $to;
+    }
+    # Might be more robust to look for S_I* in Fcntl, but we're
+    # trying to avoid dependence on any XS-containing modules,
+    # since File::Copy is used during the Perl build.
+    $perm &= 07777;
+    if ($perm & 06000) {
+	croak("Unable to check setuid/setgid permissions for $to: $!")
+	    unless @tostat;
+
+	if ($perm & 04000 and                     # setuid
+	    $fromstat[4] != $tostat[4]) {         # owner must match
+	    $perm &= ~06000;
+	}
+
+	if ($perm & 02000 && $> != 0) {           # if not root, setgid
+	    my $ok = $fromstat[5] == $tostat[5];  # group must match
+	    if ($ok) {                            # and we must be in group
+                $ok = grep { $_ == $fromstat[5] } split /\s+/, $)
+	    }
+	    $perm &= ~06000 unless $ok;
+	}
+    }
+    return 0 unless @tostat;
+    return 1 if $perm == ($tostat[2] & 07777);
+    return eval { chmod $perm, $to; } ? 1 : 0;
+}
+
+sub _move {
+    croak("Usage: move(FROM, TO) ") unless @_ == 3;
+
+    my($from,$to,$fallback) = @_;
+
+    my($fromsz,$tosz1,$tomt1,$tosz2,$tomt2,$sts,$ossts);
+
+    if (-d $to && ! -d $from) {
+	$to = _catname($from, $to);
+    }
+
+    ($tosz1,$tomt1) = (stat($to))[7,9];
+    $fromsz = -s $from;
+    if ($^O eq 'os2' and defined $tosz1 and defined $fromsz) {
+      # will not rename with overwrite
+      unlink $to;
+    }
+
+    if ($^O eq 'VMS' && -e $from
+        && ! -d $to && ! -d $from) {
+
+            # VMS natively inherits path components from the source of a
+            # copy, but we want the Unixy behavior of inheriting from
+            # the current working directory.  Also, default in a trailing
+            # dot for null file types.
+
+            $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.');
+
+            # Get rid of the old versions to be like UNIX
+            1 while unlink $to;
+    }
+
+    return 1 if rename $from, $to;
+
+    # Did rename return an error even though it succeeded, because $to
+    # is on a remote NFS file system, and NFS lost the server's ack?
+    return 1 if defined($fromsz) && !-e $from &&           # $from disappeared
+                (($tosz2,$tomt2) = (stat($to))[7,9]) &&    # $to's there
+                  ((!defined $tosz1) ||			   #  not before or
+		   ($tosz1 != $tosz2 or $tomt1 != $tomt2)) &&  #   was changed
+                $tosz2 == $fromsz;                         # it's all there
+
+    ($tosz1,$tomt1) = (stat($to))[7,9];  # just in case rename did something
+
+    {
+        local $@;
+        eval {
+            local $SIG{__DIE__};
+            $fallback->($from,$to) or die;
+            my($atime, $mtime) = (stat($from))[8,9];
+            utime($atime, $mtime, $to);
+            unlink($from)   or die;
+        };
+        return 1 unless $@;
+    }
+    ($sts,$ossts) = ($! + 0, $^E + 0);
+
+    ($tosz2,$tomt2) = ((stat($to))[7,9],0,0) if defined $tomt1;
+    unlink($to) if !defined($tomt1) or $tomt1 != $tomt2 or $tosz1 != $tosz2;
+    ($!,$^E) = ($sts,$ossts);
+    return 0;
+}
+
+sub move { _move(@_,\&copy); }
+sub mv   { _move(@_,\&cp);   }
+
+# &syscopy is an XSUB under OS/2
+unless (defined &syscopy) {
+    if ($^O eq 'VMS') {
+	*syscopy = \&rmscopy;
+    } elsif ($^O eq 'MSWin32' && defined &DynaLoader::boot_DynaLoader) {
+	# Win32::CopyFile() fill only work if we can load Win32.xs
+	*syscopy = sub {
+	    return 0 unless @_ == 2;
+	    return Win32::CopyFile(@_, 1);
+	};
+    } else {
+	$Syscopy_is_copy = 1;
+	*syscopy = \&copy;
+    }
+}
+
+1;
+
+__END__
+
+
+package File::Find;
+use 5.006;
+use strict;
+use warnings;
+use warnings::register;
+our $VERSION = '1.34';
+require Exporter;
+require Cwd;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(find finddepth);
+
+
+use strict;
+my $Is_VMS;
+my $Is_Win32;
+
+require File::Basename;
+require File::Spec;
+
+# Should ideally be my() not our() but local() currently
+# refuses to operate on lexicals
+
+our %SLnkSeen;
+our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
+    $follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat,
+    $pre_process, $post_process, $dangling_symlinks);
+
+sub contract_name {
+    my ($cdir,$fn) = @_;
+
+    return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir;
+
+    $cdir = substr($cdir,0,rindex($cdir,'/')+1);
+
+    $fn =~ s|^\./||;
+
+    my $abs_name= $cdir . $fn;
+
+    if (substr($fn,0,3) eq '../') {
+       1 while $abs_name =~ s!/[^/]*/\.\./+!/!;
+    }
+
+    return $abs_name;
+}
+
+sub PathCombine($$) {
+    my ($Base,$Name) = @_;
+    my $AbsName;
+
+    if (substr($Name,0,1) eq '/') {
+	$AbsName= $Name;
+    }
+    else {
+	$AbsName= contract_name($Base,$Name);
+    }
+
+    # (simple) check for recursion
+    my $newlen= length($AbsName);
+    if ($newlen <= length($Base)) {
+	if (($newlen == length($Base) || substr($Base,$newlen,1) eq '/')
+	    && $AbsName eq substr($Base,0,$newlen))
+	{
+	    return undef;
+	}
+    }
+    return $AbsName;
+}
+
+sub Follow_SymLink($) {
+    my ($AbsName) = @_;
+
+    my ($NewName,$DEV, $INO);
+    ($DEV, $INO)= lstat $AbsName;
+
+    while (-l _) {
+	if ($SLnkSeen{$DEV, $INO}++) {
+	    if ($follow_skip < 2) {
+		die "$AbsName is encountered a second time";
+	    }
+	    else {
+		return undef;
+	    }
+	}
+	$NewName= PathCombine($AbsName, readlink($AbsName));
+	unless(defined $NewName) {
+	    if ($follow_skip < 2) {
+		die "$AbsName is a recursive symbolic link";
+	    }
+	    else {
+		return undef;
+	    }
+	}
+	else {
+	    $AbsName= $NewName;
+	}
+	($DEV, $INO) = lstat($AbsName);
+	return undef unless defined $DEV;  #  dangling symbolic link
+    }
+
+    if ($full_check && defined $DEV && $SLnkSeen{$DEV, $INO}++) {
+	if ( ($follow_skip < 1) || ((-d _) && ($follow_skip < 2)) ) {
+	    die "$AbsName encountered a second time";
+	}
+	else {
+	    return undef;
+	}
+    }
+
+    return $AbsName;
+}
+
+our($dir, $name, $fullname, $prune);
+sub _find_dir_symlnk($$$);
+sub _find_dir($$$);
+
+# check whether or not a scalar variable is tainted
+# (code straight from the Camel, 3rd ed., page 561)
+sub is_tainted_pp {
+    my $arg = shift;
+    my $nada = substr($arg, 0, 0); # zero-length
+    local $@;
+    eval { eval "# $nada" };
+    return length($@) != 0;
+}
+
+sub _find_opt {
+    my $wanted = shift;
+    return unless @_;
+    die "invalid top directory" unless defined $_[0];
+
+    # This function must local()ize everything because callbacks may
+    # call find() or finddepth()
+
+    local %SLnkSeen;
+    local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
+	$follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat,
+	$pre_process, $post_process, $dangling_symlinks);
+    local($dir, $name, $fullname, $prune);
+    local *_ = \my $a;
+
+    my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
+    if ($Is_VMS) {
+	# VMS returns this by default in VMS format which just doesn't
+	# work for the rest of this module.
+	$cwd = VMS::Filespec::unixpath($cwd);
+
+	# Apparently this is not expected to have a trailing space.
+	# To attempt to make VMS/UNIX conversions mostly reversible,
+	# a trailing slash is needed.  The run-time functions ignore the
+	# resulting double slash, but it causes the perl tests to fail.
+        $cwd =~ s#/\z##;
+
+	# This comes up in upper case now, but should be lower.
+	# In the future this could be exact case, no need to change.
+    }
+    my $cwd_untainted  = $cwd;
+    my $check_t_cwd    = 1;
+    $wanted_callback   = $wanted->{wanted};
+    $bydepth           = $wanted->{bydepth};
+    $pre_process       = $wanted->{preprocess};
+    $post_process      = $wanted->{postprocess};
+    $no_chdir          = $wanted->{no_chdir};
+    $full_check        = $Is_Win32 ? 0 : $wanted->{follow};
+    $follow            = $Is_Win32 ? 0 :
+                             $full_check || $wanted->{follow_fast};
+    $follow_skip       = $wanted->{follow_skip};
+    $untaint           = $wanted->{untaint};
+    $untaint_pat       = $wanted->{untaint_pattern};
+    $untaint_skip      = $wanted->{untaint_skip};
+    $dangling_symlinks = $wanted->{dangling_symlinks};
+
+    # for compatibility reasons (find.pl, find2perl)
+    local our ($topdir, $topdev, $topino, $topmode, $topnlink);
+
+    # a symbolic link to a directory doesn't increase the link count
+    $avoid_nlink      = $follow || $File::Find::dont_use_nlink;
+
+    my ($abs_dir, $Is_Dir);
+
+    Proc_Top_Item:
+    foreach my $TOP (@_) {
+	my $top_item = $TOP;
+	$top_item = VMS::Filespec::unixify($top_item) if $Is_VMS;
+
+	($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item;
+
+	if ($Is_Win32) {
+	    $top_item =~ s|[/\\]\z||
+	      unless $top_item =~ m{^(?:\w:)?[/\\]$};
+	}
+	else {
+	    $top_item =~ s|/\z|| unless $top_item eq '/';
+	}
+
+	$Is_Dir= 0;
+
+	if ($follow) {
+
+	    if (substr($top_item,0,1) eq '/') {
+		$abs_dir = $top_item;
+	    }
+	    elsif ($top_item eq $File::Find::current_dir) {
+		$abs_dir = $cwd;
+	    }
+	    else {  # care about any  ../
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		$abs_dir = contract_name("$cwd/",$top_item);
+	    }
+	    $abs_dir= Follow_SymLink($abs_dir);
+	    unless (defined $abs_dir) {
+		if ($dangling_symlinks) {
+		    if (ref $dangling_symlinks eq 'CODE') {
+			$dangling_symlinks->($top_item, $cwd);
+		    } else {
+			warnings::warnif "$top_item is a dangling symbolic link\n";
+		    }
+		}
+		next Proc_Top_Item;
+	    }
+
+	    if (-d _) {
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		_find_dir_symlnk($wanted, $abs_dir, $top_item);
+		$Is_Dir= 1;
+	    }
+	}
+	else { # no follow
+	    $topdir = $top_item;
+	    unless (defined $topnlink) {
+		warnings::warnif "Can't stat $top_item: $!\n";
+		next Proc_Top_Item;
+	    }
+	    if (-d _) {
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		_find_dir($wanted, $top_item, $topnlink);
+		$Is_Dir= 1;
+	    }
+	    else {
+		$abs_dir= $top_item;
+	    }
+	}
+
+	unless ($Is_Dir) {
+	    unless (($_,$dir) = File::Basename::fileparse($abs_dir)) {
+		($dir,$_) = ('./', $top_item);
+	    }
+
+	    $abs_dir = $dir;
+	    if (( $untaint ) && (is_tainted($dir) )) {
+		( $abs_dir ) = $dir =~ m|$untaint_pat|;
+		unless (defined $abs_dir) {
+		    if ($untaint_skip == 0) {
+			die "directory $dir is still tainted";
+		    }
+		    else {
+			next Proc_Top_Item;
+		    }
+		}
+	    }
+
+	    unless ($no_chdir || chdir $abs_dir) {
+		warnings::warnif "Couldn't chdir $abs_dir: $!\n";
+		next Proc_Top_Item;
+	    }
+
+	    $name = $abs_dir . $_; # $File::Find::name
+	    $_ = $name if $no_chdir;
+
+	    { $wanted_callback->() }; # protect against wild "next"
+
+	}
+
+	unless ( $no_chdir ) {
+	    if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) {
+		( $cwd_untainted ) = $cwd =~ m|$untaint_pat|;
+		unless (defined $cwd_untainted) {
+		    die "insecure cwd in find(depth)";
+		}
+		$check_t_cwd = 0;
+	    }
+	    unless (chdir $cwd_untainted) {
+		die "Can't cd to $cwd: $!\n";
+	    }
+	}
+    }
+}
+
+# API:
+#  $wanted
+#  $p_dir :  "parent directory"
+#  $nlink :  what came back from the stat
+# preconditions:
+#  chdir (if not no_chdir) to dir
+
+sub _find_dir($$$) {
+    my ($wanted, $p_dir, $nlink) = @_;
+    my ($CdLvl,$Level) = (0,0);
+    my @Stack;
+    my @filenames;
+    my ($subcount,$sub_nlink);
+    my $SE= [];
+    my $dir_name= $p_dir;
+    my $dir_pref;
+    my $dir_rel = $File::Find::current_dir;
+    my $tainted = 0;
+    my $no_nlink;
+
+    if ($Is_Win32) {
+	$dir_pref
+	  = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$} ? $p_dir : "$p_dir/" );
+    } elsif ($Is_VMS) {
+
+	#	VMS is returning trailing .dir on directories
+	#	and trailing . on files and symbolic links
+	#	in UNIX syntax.
+	#
+
+	$p_dir =~ s/\.(dir)?$//i unless $p_dir eq '.';
+
+	$dir_pref = ($p_dir =~ m/[\]>]+$/ ? $p_dir : "$p_dir/" );
+    }
+    else {
+	$dir_pref= ( $p_dir eq '/' ? '/' : "$p_dir/" );
+    }
+
+    local ($dir, $name, $prune, *DIR);
+
+    unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
+	my $udir = $p_dir;
+	if (( $untaint ) && (is_tainted($p_dir) )) {
+	    ( $udir ) = $p_dir =~ m|$untaint_pat|;
+	    unless (defined $udir) {
+		if ($untaint_skip == 0) {
+		    die "directory $p_dir is still tainted";
+		}
+		else {
+		    return;
+		}
+	    }
+	}
+	unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
+	    warnings::warnif "Can't cd to $udir: $!\n";
+	    return;
+	}
+    }
+
+    # push the starting directory
+    push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
+
+    while (defined $SE) {
+	unless ($bydepth) {
+	    $dir= $p_dir; # $File::Find::dir
+	    $name= $dir_name; # $File::Find::name
+	    $_= ($no_chdir ? $dir_name : $dir_rel ); # $_
+	    # prune may happen here
+	    $prune= 0;
+	    { $wanted_callback->() };	# protect against wild "next"
+	    next if $prune;
+	}
+
+	# change to that directory
+	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+	    my $udir= $dir_rel;
+	    if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_rel) )) ) {
+		( $udir ) = $dir_rel =~ m|$untaint_pat|;
+		unless (defined $udir) {
+		    if ($untaint_skip == 0) {
+			die "directory (" . ($p_dir ne '/' ? $p_dir : '') . "/) $dir_rel is still tainted";
+		    } else { # $untaint_skip == 1
+			next;
+		    }
+		}
+	    }
+	    unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
+		warnings::warnif "Can't cd to (" .
+		    ($p_dir ne '/' ? $p_dir : '') . "/) $udir: $!\n";
+		next;
+	    }
+	    $CdLvl++;
+	}
+
+	$dir= $dir_name; # $File::Find::dir
+
+	# Get the list of files in the current directory.
+	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
+	    warnings::warnif "Can't opendir($dir_name): $!\n";
+	    next;
+	}
+	@filenames = readdir DIR;
+	closedir(DIR);
+	@filenames = $pre_process->(@filenames) if $pre_process;
+	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
+
+	# default: use whatever was specified
+        # (if $nlink >= 2, and $avoid_nlink == 0, this will switch back)
+        $no_nlink = $avoid_nlink;
+        # if dir has wrong nlink count, force switch to slower stat method
+        $no_nlink = 1 if ($nlink < 2);
+
+	if ($nlink == 2 && !$no_nlink) {
+	    # This dir has no subdirectories.
+	    for my $FN (@filenames) {
+		if ($Is_VMS) {
+		# Big hammer here - Compensate for VMS trailing . and .dir
+		# No win situation until this is changed, but this
+		# will handle the majority of the cases with breaking the fewest
+
+		    $FN =~ s/\.dir\z//i;
+		    $FN =~ s#\.$## if ($FN ne '.');
+		}
+		next if $FN =~ $File::Find::skip_pattern;
+		
+		$name = $dir_pref . $FN; # $File::Find::name
+		$_ = ($no_chdir ? $name : $FN); # $_
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+
+	}
+	else {
+	    # This dir has subdirectories.
+	    $subcount = $nlink - 2;
+
+	    # HACK: insert directories at this position, so as to preserve
+	    # the user pre-processed ordering of files (thus ensuring
+	    # directory traversal is in user sorted order, not at random).
+            my $stack_top = @Stack;
+
+	    for my $FN (@filenames) {
+		next if $FN =~ $File::Find::skip_pattern;
+		if ($subcount > 0 || $no_nlink) {
+		    # Seen all the subdirs?
+		    # check for directoriness.
+		    # stat is faster for a file in the current directory
+		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
+
+		    if (-d _) {
+			--$subcount;
+			$FN =~ s/\.dir\z//i if $Is_VMS;
+			# HACK: replace push to preserve dir traversal order
+			#push @Stack,[$CdLvl,$dir_name,$FN,$sub_nlink];
+			splice @Stack, $stack_top, 0,
+			         [$CdLvl,$dir_name,$FN,$sub_nlink];
+		    }
+		    else {
+			$name = $dir_pref . $FN; # $File::Find::name
+			$_= ($no_chdir ? $name : $FN); # $_
+			{ $wanted_callback->() }; # protect against wild "next"
+		    }
+		}
+		else {
+		    $name = $dir_pref . $FN; # $File::Find::name
+		    $_= ($no_chdir ? $name : $FN); # $_
+		    { $wanted_callback->() }; # protect against wild "next"
+		}
+	    }
+	}
+    }
+    continue {
+	while ( defined ($SE = pop @Stack) ) {
+	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
+	    if ($CdLvl > $Level && !$no_chdir) {
+		my $tmp;
+		if ($Is_VMS) {
+		    $tmp = '[' . ('-' x ($CdLvl-$Level)) . ']';
+		}
+		else {
+		    $tmp = join('/',('..') x ($CdLvl-$Level));
+		}
+		die "Can't cd to $tmp from $dir_name: $!"
+		    unless chdir ($tmp);
+		$CdLvl = $Level;
+	    }
+
+	    if ($Is_Win32) {
+		$dir_name = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$}
+		    ? "$p_dir$dir_rel" : "$p_dir/$dir_rel");
+		$dir_pref = "$dir_name/";
+	    }
+	    elsif ($^O eq 'VMS') {
+                if ($p_dir =~ m/[\]>]+$/) {
+                    $dir_name = $p_dir;
+                    $dir_name =~ s/([\]>]+)$/.$dir_rel$1/;
+                    $dir_pref = $dir_name;
+                }
+                else {
+                    $dir_name = "$p_dir/$dir_rel";
+                    $dir_pref = "$dir_name/";
+                }
+	    }
+	    else {
+		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
+		$dir_pref = "$dir_name/";
+	    }
+
+	    if ( $nlink == -2 ) {
+		$name = $dir = $p_dir; # $File::Find::name / dir
+                $_ = $File::Find::current_dir;
+		$post_process->();		# End-of-directory processing
+	    }
+	    elsif ( $nlink < 0 ) {  # must be finddepth, report dirname now
+		$name = $dir_name;
+		if ( substr($name,-2) eq '/.' ) {
+		    substr($name, length($name) == 2 ? -1 : -2) = '';
+		}
+		$dir = $p_dir;
+		$_ = ($no_chdir ? $dir_name : $dir_rel );
+		if ( substr($_,-2) eq '/.' ) {
+		    substr($_, length($_) == 2 ? -1 : -2) = '';
+		}
+		{ $wanted_callback->() }; # protect against wild "next"
+	     }
+	     else {
+		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
+		last;
+	    }
+	}
+    }
+}
+
+
+# API:
+#  $wanted
+#  $dir_loc : absolute location of a dir
+#  $p_dir   : "parent directory"
+# preconditions:
+#  chdir (if not no_chdir) to dir
+
+sub _find_dir_symlnk($$$) {
+    my ($wanted, $dir_loc, $p_dir) = @_; # $dir_loc is the absolute directory
+    my @Stack;
+    my @filenames;
+    my $new_loc;
+    my $updir_loc = $dir_loc; # untainted parent directory
+    my $SE = [];
+    my $dir_name = $p_dir;
+    my $dir_pref;
+    my $loc_pref;
+    my $dir_rel = $File::Find::current_dir;
+    my $byd_flag; # flag for pending stack entry if $bydepth
+    my $tainted = 0;
+    my $ok = 1;
+
+    $dir_pref = ( $p_dir   eq '/' ? '/' : "$p_dir/" );
+    $loc_pref = ( $dir_loc eq '/' ? '/' : "$dir_loc/" );
+
+    local ($dir, $name, $fullname, $prune, *DIR);
+
+    unless ($no_chdir) {
+	# untaint the topdir
+	if (( $untaint ) && (is_tainted($dir_loc) )) {
+	    ( $updir_loc ) = $dir_loc =~ m|$untaint_pat|; # parent dir, now untainted
+	     # once untainted, $updir_loc is pushed on the stack (as parent directory);
+	    # hence, we don't need to untaint the parent directory every time we chdir
+	    # to it later
+	    unless (defined $updir_loc) {
+		if ($untaint_skip == 0) {
+		    die "directory $dir_loc is still tainted";
+		}
+		else {
+		    return;
+		}
+	    }
+	}
+	$ok = chdir($updir_loc) unless ($p_dir eq $File::Find::current_dir);
+	unless ($ok) {
+	    warnings::warnif "Can't cd to $updir_loc: $!\n";
+	    return;
+	}
+    }
+
+    push @Stack,[$dir_loc,$updir_loc,$p_dir,$dir_rel,-1]  if  $bydepth;
+
+    while (defined $SE) {
+
+	unless ($bydepth) {
+	    # change (back) to parent directory (always untainted)
+	    unless ($no_chdir) {
+		unless (chdir $updir_loc) {
+		    warnings::warnif "Can't cd to $updir_loc: $!\n";
+		    next;
+		}
+	    }
+	    $dir= $p_dir; # $File::Find::dir
+	    $name= $dir_name; # $File::Find::name
+	    $_= ($no_chdir ? $dir_name : $dir_rel ); # $_
+	    $fullname= $dir_loc; # $File::Find::fullname
+	    # prune may happen here
+	    $prune= 0;
+	    lstat($_); # make sure  file tests with '_' work
+	    { $wanted_callback->() }; # protect against wild "next"
+	    next if $prune;
+	}
+
+	# change to that directory
+	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+	    $updir_loc = $dir_loc;
+	    if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_loc) )) ) {
+		# untaint $dir_loc, what will be pushed on the stack as (untainted) parent dir
+		( $updir_loc ) = $dir_loc =~ m|$untaint_pat|;
+		unless (defined $updir_loc) {
+		    if ($untaint_skip == 0) {
+			die "directory $dir_loc is still tainted";
+		    }
+		    else {
+			next;
+		    }
+		}
+	    }
+	    unless (chdir $updir_loc) {
+		warnings::warnif "Can't cd to $updir_loc: $!\n";
+		next;
+	    }
+	}
+
+	$dir = $dir_name; # $File::Find::dir
+
+	# Get the list of files in the current directory.
+	unless (opendir DIR, ($no_chdir ? $dir_loc : $File::Find::current_dir)) {
+	    warnings::warnif "Can't opendir($dir_loc): $!\n";
+	    next;
+	}
+	@filenames = readdir DIR;
+	closedir(DIR);
+
+	for my $FN (@filenames) {
+	    if ($Is_VMS) {
+	    # Big hammer here - Compensate for VMS trailing . and .dir
+	    # No win situation until this is changed, but this
+	    # will handle the majority of the cases with breaking the fewest.
+
+		$FN =~ s/\.dir\z//i;
+		$FN =~ s#\.$## if ($FN ne '.');
+	    }
+	    next if $FN =~ $File::Find::skip_pattern;
+
+	    # follow symbolic links / do an lstat
+	    $new_loc = Follow_SymLink($loc_pref.$FN);
+
+	    # ignore if invalid symlink
+	    unless (defined $new_loc) {
+	        if (!defined -l _ && $dangling_symlinks) {
+                $fullname = undef;
+	            if (ref $dangling_symlinks eq 'CODE') {
+	                $dangling_symlinks->($FN, $dir_pref);
+	            } else {
+	                warnings::warnif "$dir_pref$FN is a dangling symbolic link\n";
+	            }
+	        }
+            else {
+                $fullname = $loc_pref . $FN;
+            }
+	        $name = $dir_pref . $FN;
+	        $_ = ($no_chdir ? $name : $FN);
+	        { $wanted_callback->() };
+	        next;
+	    }
+
+	    if (-d _) {
+		if ($Is_VMS) {
+		    $FN =~ s/\.dir\z//i;
+		    $FN =~ s#\.$## if ($FN ne '.');
+		    $new_loc =~ s/\.dir\z//i;
+		    $new_loc =~ s#\.$## if ($new_loc ne '.');
+		}
+		push @Stack,[$new_loc,$updir_loc,$dir_name,$FN,1];
+	    }
+	    else {
+		$fullname = $new_loc; # $File::Find::fullname
+		$name = $dir_pref . $FN; # $File::Find::name
+		$_ = ($no_chdir ? $name : $FN); # $_
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+	}
+
+    }
+    continue {
+	while (defined($SE = pop @Stack)) {
+	    ($dir_loc, $updir_loc, $p_dir, $dir_rel, $byd_flag) = @$SE;
+	    $dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
+	    $dir_pref = "$dir_name/";
+	    $loc_pref = "$dir_loc/";
+	    if ( $byd_flag < 0 ) {  # must be finddepth, report dirname now
+		unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+		    unless (chdir $updir_loc) { # $updir_loc (parent dir) is always untainted
+			warnings::warnif "Can't cd to $updir_loc: $!\n";
+			next;
+		    }
+		}
+		$fullname = $dir_loc; # $File::Find::fullname
+		$name = $dir_name; # $File::Find::name
+		if ( substr($name,-2) eq '/.' ) {
+		    substr($name, length($name) == 2 ? -1 : -2) = ''; # $File::Find::name
+		}
+		$dir = $p_dir; # $File::Find::dir
+		$_ = ($no_chdir ? $dir_name : $dir_rel); # $_
+		if ( substr($_,-2) eq '/.' ) {
+		    substr($_, length($_) == 2 ? -1 : -2) = '';
+		}
+
+		lstat($_); # make sure file tests with '_' work
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+	    else {
+		push @Stack,[$dir_loc, $updir_loc, $p_dir, $dir_rel,-1]  if  $bydepth;
+		last;
+	    }
+	}
+    }
+}
+
+
+sub wrap_wanted {
+    my $wanted = shift;
+    if ( ref($wanted) eq 'HASH' ) {
+        # RT #122547
+        my %valid_options = map {$_ => 1} qw(
+            wanted
+            bydepth
+            preprocess
+            postprocess
+            follow
+            follow_fast
+            follow_skip
+            dangling_symlinks
+            no_chdir
+            untaint
+            untaint_pattern
+            untaint_skip
+        );
+        my @invalid_options = ();
+        for my $v (keys %{$wanted}) {
+            push @invalid_options, $v unless exists $valid_options{$v};
+        }
+        warn "Invalid option(s): @invalid_options" if @invalid_options;
+
+        unless( exists $wanted->{wanted} and ref( $wanted->{wanted} ) eq 'CODE' ) {
+            die 'no &wanted subroutine given';
+        }
+        if ( $wanted->{follow} || $wanted->{follow_fast}) {
+            $wanted->{follow_skip} = 1 unless defined $wanted->{follow_skip};
+        }
+        if ( $wanted->{untaint} ) {
+            $wanted->{untaint_pattern} = $File::Find::untaint_pattern
+            unless defined $wanted->{untaint_pattern};
+            $wanted->{untaint_skip} = 0 unless defined $wanted->{untaint_skip};
+        }
+        return $wanted;
+    }
+    elsif( ref( $wanted ) eq 'CODE' ) {
+        return { wanted => $wanted };
+    }
+    else {
+       die 'no &wanted subroutine given';
+    }
+}
+
+sub find {
+    my $wanted = shift;
+    _find_opt(wrap_wanted($wanted), @_);
+}
+
+sub finddepth {
+    my $wanted = wrap_wanted(shift);
+    $wanted->{bydepth} = 1;
+    _find_opt($wanted, @_);
+}
+
+# default
+$File::Find::skip_pattern    = qr/^\.{1,2}\z/;
+$File::Find::untaint_pattern = qr|^([-+@\w./]+)$|;
+
+# These are hard-coded for now, but may move to hint files.
+if ($^O eq 'VMS') {
+    $Is_VMS = 1;
+    $File::Find::dont_use_nlink = 1;
+}
+elsif ($^O eq 'MSWin32') {
+    $Is_Win32 = 1;
+}
+
+# this _should_ work properly on all platforms
+# where File::Find can be expected to work
+$File::Find::current_dir = File::Spec->curdir || '.';
+
+$File::Find::dont_use_nlink = 1
+    if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos' || $Is_Win32 ||
+       $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'qnx' || $^O eq 'nto';
+
+# Set dont_use_nlink in your hint file if your system's stat doesn't
+# report the number of links in a directory as an indication
+# of the number of files.
+# See e.g. hints/haiku.sh for Haiku.
+unless ($File::Find::dont_use_nlink) {
+    require Config;
+    $File::Find::dont_use_nlink = 1 if ($Config::Config{'dont_use_nlink'});
+}
+
+# We need a function that checks if a scalar is tainted. Either use the
+# Scalar::Util module's tainted() function or our (slower) pure Perl
+# fallback is_tainted_pp()
+{
+    local $@;
+    eval { require Scalar::Util };
+    *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted;
+}
+
+1;
+
+__END__
+
+package File::Compare;
+
+use 5.006;
+use strict;
+use warnings;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big);
+
+require Exporter;
+
+$VERSION = '1.1006';
+@ISA = qw(Exporter);
+@EXPORT = qw(compare);
+@EXPORT_OK = qw(cmp compare_text);
+
+$Too_Big = 1024 * 1024 * 2;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub compare {
+    croak("Usage: compare( file1, file2 [, buffersize]) ")
+      unless(@_ == 2 || @_ == 3);
+
+    my ($from,$to,$size) = @_;
+    my $text_mode = defined($size) && (ref($size) eq 'CODE' || $size < 0);
+
+    my ($fromsize,$closefrom,$closeto);
+    local (*FROM, *TO);
+
+    croak("from undefined") unless (defined $from);
+    croak("to undefined") unless (defined $to);
+
+    if (ref($from) && 
+        (UNIVERSAL::isa($from,'GLOB') || UNIVERSAL::isa($from,'IO::Handle'))) {
+	*FROM = *$from;
+    } elsif (ref(\$from) eq 'GLOB') {
+	*FROM = $from;
+    } else {
+	open(FROM,"<",$from) or goto fail_open1;
+	unless ($text_mode) {
+	    binmode FROM;
+	    $fromsize = -s FROM;
+	}
+	$closefrom = 1;
+    }
+
+    if (ref($to) &&
+        (UNIVERSAL::isa($to,'GLOB') || UNIVERSAL::isa($to,'IO::Handle'))) {
+	*TO = *$to;
+    } elsif (ref(\$to) eq 'GLOB') {
+	*TO = $to;
+    } else {
+	open(TO,"<",$to) or goto fail_open2;
+	binmode TO unless $text_mode;
+	$closeto = 1;
+    }
+
+    if (!$text_mode && $closefrom && $closeto) {
+	# If both are opened files we know they differ if their size differ
+	goto fail_inner if $fromsize != -s TO;
+    }
+
+    if ($text_mode) {
+	local $/ = "\n";
+	my ($fline,$tline);
+	while (defined($fline = <FROM>)) {
+	    goto fail_inner unless defined($tline = <TO>);
+	    if (ref $size) {
+		# $size contains ref to comparison function
+		goto fail_inner if &$size($fline, $tline);
+	    } else {
+		goto fail_inner if $fline ne $tline;
+	    }
+	}
+	goto fail_inner if defined($tline = <TO>);
+    }
+    else {
+	unless (defined($size) && $size > 0) {
+	    $size = $fromsize || -s TO || 0;
+	    $size = 1024 if $size < 512;
+	    $size = $Too_Big if $size > $Too_Big;
+	}
+
+	my ($fr,$tr,$fbuf,$tbuf);
+	$fbuf = $tbuf = '';
+	while(defined($fr = read(FROM,$fbuf,$size)) && $fr > 0) {
+	    unless (defined($tr = read(TO,$tbuf,$fr)) && $tbuf eq $fbuf) {
+		goto fail_inner;
+	    }
+	}
+	goto fail_inner if defined($tr = read(TO,$tbuf,$size)) && $tr > 0;
+    }
+
+    close(TO) || goto fail_open2 if $closeto;
+    close(FROM) || goto fail_open1 if $closefrom;
+
+    return 0;
+    
+  # All of these contortions try to preserve error messages...
+  fail_inner:
+    close(TO) || goto fail_open2 if $closeto;
+    close(FROM) || goto fail_open1 if $closefrom;
+
+    return 1;
+
+  fail_open2:
+    if ($closefrom) {
+	my $status = $!;
+	$! = 0;
+	close FROM;
+	$! = $status unless $!;
+    }
+  fail_open1:
+    return -1;
+}
+
+sub cmp;
+*cmp = \&compare;
+
+sub compare_text {
+    my ($from,$to,$cmp) = @_;
+    croak("Usage: compare_text( file1, file2 [, cmp-function])")
+	unless @_ == 2 || @_ == 3;
+    croak("Third arg to compare_text() function must be a code reference")
+	if @_ == 3 && ref($cmp) ne 'CODE';
+
+    # Using a negative buffer size puts compare into text_mode too
+    $cmp = -1 unless defined $cmp;
+    compare($from, $to, $cmp);
+}
+
+1;
+
+__END__
+
+
+package File::stat;
+use 5.006;
+
+use strict;
+use warnings;
+use warnings::register;
+use Carp;
+
+BEGIN { *warnif = \&warnings::warnif }
+
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+our $VERSION = '1.08';
+
+our @fields;
+our ( $st_dev, $st_ino, $st_mode,
+    $st_nlink, $st_uid, $st_gid,
+    $st_rdev, $st_size,
+    $st_atime, $st_mtime, $st_ctime,
+    $st_blksize, $st_blocks
+);
+
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(stat lstat);
+    @fields      = qw( $st_dev	   $st_ino    $st_mode 
+		       $st_nlink   $st_uid    $st_gid 
+		       $st_rdev    $st_size 
+		       $st_atime   $st_mtime  $st_ctime 
+		       $st_blksize $st_blocks
+		    );
+    @EXPORT_OK   = ( @fields, "stat_cando" );
+    %EXPORT_TAGS = ( FIELDS => [ @fields, @EXPORT ] );
+}
+
+use Fcntl qw(S_IRUSR S_IWUSR S_IXUSR);
+
+BEGIN {
+    # These constants will croak on use if the platform doesn't define
+    # them. It's important to avoid inflicting that on the user.
+    no strict 'refs';
+    for (qw(suid sgid svtx)) {
+        my $val = eval { &{"Fcntl::S_I\U$_"} };
+        *{"_$_"} = defined $val ? sub { $_[0] & $val ? 1 : "" } : sub { "" };
+    }
+    for (qw(SOCK CHR BLK REG DIR LNK)) {
+        *{"S_IS$_"} = defined eval { &{"Fcntl::S_IF$_"} }
+            ? \&{"Fcntl::S_IS$_"} : sub { "" };
+    }
+    # FIFO flag and macro don't quite follow the S_IF/S_IS pattern above
+    # RT #111638
+    *{"S_ISFIFO"} = defined &Fcntl::S_IFIFO
+      ? \&Fcntl::S_ISFIFO : sub { "" };
+}
+
+# from doio.c
+sub _ingroup {
+    my ($gid, $eff)   = @_;
+
+    # I am assuming that since VMS doesn't have getgroups(2), $) will
+    # always only contain a single entry.
+    $^O eq "VMS"    and return $_[0] == $);
+
+    my ($egid, @supp) = split " ", $);
+    my ($rgid)        = split " ", $(;
+
+    $gid == ($eff ? $egid : $rgid)  and return 1;
+    grep $gid == $_, @supp          and return 1;
+
+    return "";
+}
+
+# VMS uses the Unix version of the routine, even though this is very
+# suboptimal. VMS has a permissions structure that doesn't really fit
+# into struct stat, and unlike on Win32 the normal -X operators respect
+# that, but unfortunately by the time we get here we've already lost the
+# information we need. It looks to me as though if we were to preserve
+# the st_devnam entry of vmsish.h's fake struct stat (which actually
+# holds the filename) it might be possible to do this right, but both
+# getting that value out of the struct (perl's stat doesn't return it)
+# and interpreting it later would require this module to have an XS
+# component (at which point we might as well just call Perl_cando and
+# have done with it).
+    
+if (grep $^O eq $_, qw/os2 MSWin32 dos/) {
+
+    # from doio.c
+    *cando = sub { ($_[0][2] & $_[1]) ? 1 : "" };
+}
+else {
+
+    # from doio.c
+    *cando = sub {
+        my ($s, $mode, $eff) = @_;
+        my $uid = $eff ? $> : $<;
+        my ($stmode, $stuid, $stgid) = @$s[2,4,5];
+
+        # This code basically assumes that the rwx bits of the mode are
+        # the 0777 bits, but so does Perl_cando.
+
+        if ($uid == 0 && $^O ne "VMS") {
+            # If we're root on unix
+            # not testing for executable status => all file tests are true
+            return 1 if !($mode & 0111);
+            # testing for executable status =>
+            # for a file, any x bit will do
+            # for a directory, always true
+            return 1 if $stmode & 0111 || S_ISDIR($stmode);
+            return "";
+        }
+
+        if ($stuid == $uid) {
+            $stmode & $mode         and return 1;
+        }
+        elsif (_ingroup($stgid, $eff)) {
+            $stmode & ($mode >> 3)  and return 1;
+        }
+        else {
+            $stmode & ($mode >> 6)  and return 1;
+        }
+        return "";
+    };
+}
+
+# alias for those who don't like objects
+*stat_cando = \&cando;
+
+my %op = (
+    r => sub { cando($_[0], S_IRUSR, 1) },
+    w => sub { cando($_[0], S_IWUSR, 1) },
+    x => sub { cando($_[0], S_IXUSR, 1) },
+    o => sub { $_[0][4] == $>           },
+
+    R => sub { cando($_[0], S_IRUSR, 0) },
+    W => sub { cando($_[0], S_IWUSR, 0) },
+    X => sub { cando($_[0], S_IXUSR, 0) },
+    O => sub { $_[0][4] == $<           },
+
+    e => sub { 1 },
+    z => sub { $_[0][7] == 0    },
+    s => sub { $_[0][7]         },
+
+    f => sub { S_ISREG ($_[0][2]) },
+    d => sub { S_ISDIR ($_[0][2]) },
+    l => sub { S_ISLNK ($_[0][2]) },
+    p => sub { S_ISFIFO($_[0][2]) },
+    S => sub { S_ISSOCK($_[0][2]) },
+    b => sub { S_ISBLK ($_[0][2]) },
+    c => sub { S_ISCHR ($_[0][2]) },
+
+    u => sub { _suid($_[0][2]) },
+    g => sub { _sgid($_[0][2]) },
+    k => sub { _svtx($_[0][2]) },
+
+    M => sub { ($^T - $_[0][9] ) / 86400 },
+    C => sub { ($^T - $_[0][10]) / 86400 },
+    A => sub { ($^T - $_[0][8] ) / 86400 },
+);
+
+use constant HINT_FILETEST_ACCESS => 0x00400000;
+
+# we need fallback=>1 or stringifying breaks
+use overload 
+    fallback => 1,
+    -X => sub {
+        my ($s, $op) = @_;
+
+        if (index("rwxRWX", $op) >= 0) {
+            (caller 0)[8] & HINT_FILETEST_ACCESS
+                and warnif("File::stat ignores use filetest 'access'");
+
+            $^O eq "VMS" and warnif("File::stat ignores VMS ACLs");
+
+            # It would be nice to have a warning about using -l on a
+            # non-lstat, but that would require an extra member in the
+            # object.
+        }
+
+        if ($op{$op}) {
+            return $op{$op}->($_[0]);
+        }
+        else {
+            croak "-$op is not implemented on a File::stat object";
+        }
+    };
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'File::stat' => [
+     map { $_ => '$' } qw{
+	 dev ino mode nlink uid gid rdev size
+	 atime mtime ctime blksize blocks
+     }
+];
+
+sub populate (@) {
+    return unless @_;
+    my $stob = new();
+    @$stob = (
+	$st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev,
+        $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks ) 
+	    = @_;
+    return $stob;
+} 
+
+sub lstat ($)  { populate(CORE::lstat(shift)) }
+
+sub stat ($) {
+    my $arg = shift;
+    my $st = populate(CORE::stat $arg);
+    return $st if defined $st;
+	my $fh;
+    {
+		local $!;
+		no strict 'refs';
+		require Symbol;
+		$fh = \*{ Symbol::qualify( $arg, caller() )};
+		return unless defined fileno $fh;
+	}
+    return populate(CORE::stat $fh);
+}
+
+1;
+__END__
+
+
+
+package File::Basename;
+
+# File::Basename is used during the Perl build, when the re extension may
+# not be available, but we only actually need it if running under tainting.
+BEGIN {
+  if (${^TAINT}) {
+    require re;
+    re->import('taint');
+  }
+}
+
+
+use strict;
+use 5.006;
+use warnings;
+our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
+$VERSION = "2.85";
+
+fileparse_set_fstype($^O);
+
+
+
+
+sub fileparse {
+  my($fullname,@suffices) = @_;
+
+  unless (defined $fullname) {
+      require Carp;
+      Carp::croak("fileparse(): need a valid pathname");
+  }
+
+  my $orig_type = '';
+  my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
+
+  my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
+
+  if ($type eq "VMS" and $fullname =~ m{/} ) {
+    # We're doing Unix emulation
+    $orig_type = $type;
+    $type = 'Unix';
+  }
+
+  my($dirpath, $basename);
+
+  if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
+    ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
+    $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/;
+  }
+  elsif ($type eq "OS2") {
+    ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
+    $dirpath = './' unless $dirpath;	# Can't be 0
+    $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#;
+  }
+  elsif ($type eq "MacOS") {
+    ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
+    $dirpath = ':' unless $dirpath;
+  }
+  elsif ($type eq "AmigaOS") {
+    ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
+    $dirpath = './' unless $dirpath;
+  }
+  elsif ($type eq 'VMS' ) {
+    ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
+    $dirpath ||= '';  # should always be defined
+  }
+  else { # Default to Unix semantics.
+    ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
+    if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
+      # dev:[000000] is top of VMS tree, similar to Unix '/'
+      # so strip it off and treat the rest as "normal"
+      my $devspec  = $1;
+      my $remainder = $3;
+      ($dirpath,$basename) = ($remainder =~ m{^(.*/)?(.*)}s);
+      $dirpath ||= '';  # should always be defined
+      $dirpath = $devspec.$dirpath;
+    }
+    $dirpath = './' unless $dirpath;
+  }
+      
+
+  my $tail   = '';
+  my $suffix = '';
+  if (@suffices) {
+    foreach $suffix (@suffices) {
+      my $pat = ($igncase ? '(?i)' : '') . "($suffix)\$";
+      if ($basename =~ s/$pat//s) {
+        $taint .= substr($suffix,0,0);
+        $tail = $1 . $tail;
+      }
+    }
+  }
+
+  # Ensure taint is propagated from the path to its pieces.
+  $tail .= $taint;
+  wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
+            : ($basename .= $taint);
+}
+
+
+
+
+
+sub basename {
+  my($path) = shift;
+
+  # From BSD basename(1)
+  # The basename utility deletes any prefix ending with the last slash '/'
+  # character present in string (after first stripping trailing slashes)
+  _strip_trailing_sep($path);
+
+  my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
+
+  # From BSD basename(1)
+  # The suffix is not stripped if it is identical to the remaining 
+  # characters in string.
+  if( length $suffix and !length $basename ) {
+      $basename = $suffix;
+  }
+  
+  # Ensure that basename '/' == '/'
+  if( !length $basename ) {
+      $basename = $dirname;
+  }
+
+  return $basename;
+}
+
+
+
+
+
+sub dirname {
+    my $path = shift;
+
+    my($type) = $Fileparse_fstype;
+
+    if( $type eq 'VMS' and $path =~ m{/} ) {
+        # Parse as Unix
+        local($File::Basename::Fileparse_fstype) = '';
+        return dirname($path);
+    }
+
+    my($basename, $dirname) = fileparse($path);
+
+    if ($type eq 'VMS') { 
+        $dirname ||= $ENV{DEFAULT};
+    }
+    elsif ($type eq 'MacOS') {
+	if( !length($basename) && $dirname !~ /^[^:]+:\z/) {
+            _strip_trailing_sep($dirname);
+	    ($basename,$dirname) = fileparse $dirname;
+	}
+	$dirname .= ":" unless $dirname =~ /:\z/;
+    }
+    elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
+        _strip_trailing_sep($dirname);
+        unless( length($basename) ) {
+	    ($basename,$dirname) = fileparse $dirname;
+	    _strip_trailing_sep($dirname);
+	}
+    }
+    elsif ($type eq 'AmigaOS') {
+        if ( $dirname =~ /:\z/) { return $dirname }
+        chop $dirname;
+        $dirname =~ s{[^:/]+\z}{} unless length($basename);
+    }
+    else {
+        _strip_trailing_sep($dirname);
+        unless( length($basename) ) {
+	    ($basename,$dirname) = fileparse $dirname;
+	    _strip_trailing_sep($dirname);
+	}
+    }
+
+    $dirname;
+}
+
+
+# Strip the trailing path separator.
+sub _strip_trailing_sep  {
+    my $type = $Fileparse_fstype;
+
+    if ($type eq 'MacOS') {
+        $_[0] =~ s/([^:]):\z/$1/s;
+    }
+    elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
+        $_[0] =~ s/([^:])[\\\/]*\z/$1/;
+    }
+    else {
+        $_[0] =~ s{(.)/*\z}{$1}s;
+    }
+}
+
+
+
+
+BEGIN {
+
+my @Ignore_Case = qw(MacOS VMS AmigaOS OS2 RISCOS MSWin32 MSDOS DOS Epoc);
+my @Types = (@Ignore_Case, qw(Unix));
+
+sub fileparse_set_fstype {
+    my $old = $Fileparse_fstype;
+
+    if (@_) {
+        my $new_type = shift;
+
+        $Fileparse_fstype = 'Unix';  # default
+        foreach my $type (@Types) {
+            $Fileparse_fstype = $type if $new_type =~ /^$type/i;
+        }
+
+        $Fileparse_igncase = 
+          (grep $Fileparse_fstype eq $_, @Ignore_Case) ? 1 : 0;
+    }
+
+    return $old;
+}
+
+}
+
+
+1;
+
+
+package File::Temp;
+# ABSTRACT: return name and handle of a temporary file safely
+our $VERSION = '0.2304'; # VERSION
+
+
+# Toolchain targets v5.8.1, but we'll try to support back to v5.6 anyway.
+# It might be possible to make this v5.5, but many v5.6isms are creeping
+# into the code and tests.
+use 5.006;
+use strict;
+use Carp;
+use File::Spec 0.8;
+use Cwd ();
+use File::Path 2.06 qw/ rmtree /;
+use Fcntl 1.03;
+use IO::Seekable;               # For SEEK_*
+use Errno;
+use Scalar::Util 'refaddr';
+require VMS::Stdio if $^O eq 'VMS';
+
+# pre-emptively load Carp::Heavy. If we don't when we run out of file
+# handles and attempt to call croak() we get an error message telling
+# us that Carp::Heavy won't load rather than an error telling us we
+# have run out of file handles. We either preload croak() or we
+# switch the calls to croak from _gettemp() to use die.
+eval { require Carp::Heavy; };
+
+# Need the Symbol package if we are running older perl
+require Symbol if $] < 5.006;
+
+### For the OO interface
+use parent 0.221 qw/ IO::Handle IO::Seekable /;
+use overload '""' => "STRINGIFY", '0+' => "NUMIFY",
+  fallback => 1;
+
+# use 'our' on v5.6.0
+use vars qw(@EXPORT_OK %EXPORT_TAGS $DEBUG $KEEP_ALL);
+
+$DEBUG = 0;
+$KEEP_ALL = 0;
+
+# We are exporting functions
+
+use Exporter 5.57 'import';   # 5.57 lets us import 'import'
+
+# Export list - to allow fine tuning of export table
+
+@EXPORT_OK = qw{
+                 tempfile
+                 tempdir
+                 tmpnam
+                 tmpfile
+                 mktemp
+                 mkstemp
+                 mkstemps
+                 mkdtemp
+                 unlink0
+                 cleanup
+                 SEEK_SET
+                 SEEK_CUR
+                 SEEK_END
+             };
+
+# Groups of functions for export
+
+%EXPORT_TAGS = (
+                'POSIX' => [qw/ tmpnam tmpfile /],
+                'mktemp' => [qw/ mktemp mkstemp mkstemps mkdtemp/],
+                'seekable' => [qw/ SEEK_SET SEEK_CUR SEEK_END /],
+               );
+
+# add contents of these tags to @EXPORT
+Exporter::export_tags('POSIX','mktemp','seekable');
+
+# This is a list of characters that can be used in random filenames
+
+my @CHARS = (qw/ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
+                 a b c d e f g h i j k l m n o p q r s t u v w x y z
+                 0 1 2 3 4 5 6 7 8 9 _
+               /);
+
+# Maximum number of tries to make a temp file before failing
+
+use constant MAX_TRIES => 1000;
+
+# Minimum number of X characters that should be in a template
+use constant MINX => 4;
+
+# Default template when no template supplied
+
+use constant TEMPXXX => 'X' x 10;
+
+# Constants for the security level
+
+use constant STANDARD => 0;
+use constant MEDIUM   => 1;
+use constant HIGH     => 2;
+
+# OPENFLAGS. If we defined the flag to use with Sysopen here this gives
+# us an optimisation when many temporary files are requested
+
+my $OPENFLAGS = O_CREAT | O_EXCL | O_RDWR;
+my $LOCKFLAG;
+
+unless ($^O eq 'MacOS') {
+  for my $oflag (qw/ NOFOLLOW BINARY LARGEFILE NOINHERIT /) {
+    my ($bit, $func) = (0, "Fcntl::O_" . $oflag);
+    no strict 'refs';
+    $OPENFLAGS |= $bit if eval {
+      # Make sure that redefined die handlers do not cause problems
+      # e.g. CGI::Carp
+      local $SIG{__DIE__} = sub {};
+      local $SIG{__WARN__} = sub {};
+      $bit = &$func();
+      1;
+    };
+  }
+  # Special case O_EXLOCK
+  $LOCKFLAG = eval {
+    local $SIG{__DIE__} = sub {};
+    local $SIG{__WARN__} = sub {};
+    &Fcntl::O_EXLOCK();
+  };
+}
+
+# On some systems the O_TEMPORARY flag can be used to tell the OS
+# to automatically remove the file when it is closed. This is fine
+# in most cases but not if tempfile is called with UNLINK=>0 and
+# the filename is requested -- in the case where the filename is to
+# be passed to another routine. This happens on windows. We overcome
+# this by using a second open flags variable
+
+my $OPENTEMPFLAGS = $OPENFLAGS;
+unless ($^O eq 'MacOS') {
+  for my $oflag (qw/ TEMPORARY /) {
+    my ($bit, $func) = (0, "Fcntl::O_" . $oflag);
+    local($@);
+    no strict 'refs';
+    $OPENTEMPFLAGS |= $bit if eval {
+      # Make sure that redefined die handlers do not cause problems
+      # e.g. CGI::Carp
+      local $SIG{__DIE__} = sub {};
+      local $SIG{__WARN__} = sub {};
+      $bit = &$func();
+      1;
+    };
+  }
+}
+
+# Private hash tracking which files have been created by each process id via the OO interface
+my %FILES_CREATED_BY_OBJECT;
+
+# INTERNAL ROUTINES - not to be used outside of package
+
+# Generic routine for getting a temporary filename
+# modelled on OpenBSD _gettemp() in mktemp.c
+
+# The template must contain X's that are to be replaced
+# with the random values
+
+#  Arguments:
+
+#  TEMPLATE   - string containing the XXXXX's that is converted
+#           to a random filename and opened if required
+
+# Optionally, a hash can also be supplied containing specific options
+#   "open" => if true open the temp file, else just return the name
+#             default is 0
+#   "mkdir"=> if true, we are creating a temp directory rather than tempfile
+#             default is 0
+#   "suffixlen" => number of characters at end of PATH to be ignored.
+#                  default is 0.
+#   "unlink_on_close" => indicates that, if possible,  the OS should remove
+#                        the file as soon as it is closed. Usually indicates
+#                        use of the O_TEMPORARY flag to sysopen.
+#                        Usually irrelevant on unix
+#   "use_exlock" => Indicates that O_EXLOCK should be used. Default is true.
+
+# Optionally a reference to a scalar can be passed into the function
+# On error this will be used to store the reason for the error
+#   "ErrStr"  => \$errstr
+
+# "open" and "mkdir" can not both be true
+# "unlink_on_close" is not used when "mkdir" is true.
+
+# The default options are equivalent to mktemp().
+
+# Returns:
+#   filehandle - open file handle (if called with doopen=1, else undef)
+#   temp name  - name of the temp file or directory
+
+# For example:
+#   ($fh, $name) = _gettemp($template, "open" => 1);
+
+# for the current version, failures are associated with
+# stored in an error string and returned to give the reason whilst debugging
+# This routine is not called by any external function
+sub _gettemp {
+
+  croak 'Usage: ($fh, $name) = _gettemp($template, OPTIONS);'
+    unless scalar(@_) >= 1;
+
+  # the internal error string - expect it to be overridden
+  # Need this in case the caller decides not to supply us a value
+  # need an anonymous scalar
+  my $tempErrStr;
+
+  # Default options
+  my %options = (
+                 "open" => 0,
+                 "mkdir" => 0,
+                 "suffixlen" => 0,
+                 "unlink_on_close" => 0,
+                 "use_exlock" => 1,
+                 "ErrStr" => \$tempErrStr,
+                );
+
+  # Read the template
+  my $template = shift;
+  if (ref($template)) {
+    # Use a warning here since we have not yet merged ErrStr
+    carp "File::Temp::_gettemp: template must not be a reference";
+    return ();
+  }
+
+  # Check that the number of entries on stack are even
+  if (scalar(@_) % 2 != 0) {
+    # Use a warning here since we have not yet merged ErrStr
+    carp "File::Temp::_gettemp: Must have even number of options";
+    return ();
+  }
+
+  # Read the options and merge with defaults
+  %options = (%options, @_)  if @_;
+
+  # Make sure the error string is set to undef
+  ${$options{ErrStr}} = undef;
+
+  # Can not open the file and make a directory in a single call
+  if ($options{"open"} && $options{"mkdir"}) {
+    ${$options{ErrStr}} = "doopen and domkdir can not both be true\n";
+    return ();
+  }
+
+  # Find the start of the end of the  Xs (position of last X)
+  # Substr starts from 0
+  my $start = length($template) - 1 - $options{"suffixlen"};
+
+  # Check that we have at least MINX x X (e.g. 'XXXX") at the end of the string
+  # (taking suffixlen into account). Any fewer is insecure.
+
+  # Do it using substr - no reason to use a pattern match since
+  # we know where we are looking and what we are looking for
+
+  if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) {
+    ${$options{ErrStr}} = "The template must end with at least ".
+      MINX . " 'X' characters\n";
+    return ();
+  }
+
+  # Replace all the X at the end of the substring with a
+  # random character or just all the XX at the end of a full string.
+  # Do it as an if, since the suffix adjusts which section to replace
+  # and suffixlen=0 returns nothing if used in the substr directly
+  # and generate a full path from the template
+
+  my $path = _replace_XX($template, $options{"suffixlen"});
+
+
+  # Split the path into constituent parts - eventually we need to check
+  # whether the directory exists
+  # We need to know whether we are making a temp directory
+  # or a tempfile
+
+  my ($volume, $directories, $file);
+  my $parent;                   # parent directory
+  if ($options{"mkdir"}) {
+    # There is no filename at the end
+    ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
+
+    # The parent is then $directories without the last directory
+    # Split the directory and put it back together again
+    my @dirs = File::Spec->splitdir($directories);
+
+    # If @dirs only has one entry (i.e. the directory template) that means
+    # we are in the current directory
+    if ($#dirs == 0) {
+      $parent = File::Spec->curdir;
+    } else {
+
+      if ($^O eq 'VMS') {     # need volume to avoid relative dir spec
+        $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
+        $parent = 'sys$disk:[]' if $parent eq '';
+      } else {
+
+        # Put it back together without the last one
+        $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
+
+        # ...and attach the volume (no filename)
+        $parent = File::Spec->catpath($volume, $parent, '');
+      }
+
+    }
+
+  } else {
+
+    # Get rid of the last filename (use File::Basename for this?)
+    ($volume, $directories, $file) = File::Spec->splitpath( $path );
+
+    # Join up without the file part
+    $parent = File::Spec->catpath($volume,$directories,'');
+
+    # If $parent is empty replace with curdir
+    $parent = File::Spec->curdir
+      unless $directories ne '';
+
+  }
+
+  # Check that the parent directories exist
+  # Do this even for the case where we are simply returning a name
+  # not a file -- no point returning a name that includes a directory
+  # that does not exist or is not writable
+
+  unless (-e $parent) {
+    ${$options{ErrStr}} = "Parent directory ($parent) does not exist";
+    return ();
+  }
+  unless (-d $parent) {
+    ${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
+    return ();
+  }
+
+  # Check the stickiness of the directory and chown giveaway if required
+  # If the directory is world writable the sticky bit
+  # must be set
+
+  if (File::Temp->safe_level == MEDIUM) {
+    my $safeerr;
+    unless (_is_safe($parent,\$safeerr)) {
+      ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)";
+      return ();
+    }
+  } elsif (File::Temp->safe_level == HIGH) {
+    my $safeerr;
+    unless (_is_verysafe($parent, \$safeerr)) {
+      ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)";
+      return ();
+    }
+  }
+
+
+  # Now try MAX_TRIES time to open the file
+  for (my $i = 0; $i < MAX_TRIES; $i++) {
+
+    # Try to open the file if requested
+    if ($options{"open"}) {
+      my $fh;
+
+      # If we are running before perl5.6.0 we can not auto-vivify
+      if ($] < 5.006) {
+        $fh = &Symbol::gensym;
+      }
+
+      # Try to make sure this will be marked close-on-exec
+      # XXX: Win32 doesn't respect this, nor the proper fcntl,
+      #      but may have O_NOINHERIT. This may or may not be in Fcntl.
+      local $^F = 2;
+
+      # Attempt to open the file
+      my $open_success = undef;
+      if ( $^O eq 'VMS' and $options{"unlink_on_close"} && !$KEEP_ALL) {
+        # make it auto delete on close by setting FAB$V_DLT bit
+        $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, 0600, 'fop=dlt');
+        $open_success = $fh;
+      } else {
+        my $flags = ( ($options{"unlink_on_close"} && !$KEEP_ALL) ?
+                      $OPENTEMPFLAGS :
+                      $OPENFLAGS );
+        $flags |= $LOCKFLAG if (defined $LOCKFLAG && $options{use_exlock});
+        $open_success = sysopen($fh, $path, $flags, 0600);
+      }
+      if ( $open_success ) {
+
+        # in case of odd umask force rw
+        chmod(0600, $path);
+
+        # Opened successfully - return file handle and name
+        return ($fh, $path);
+
+      } else {
+
+        # Error opening file - abort with error
+        # if the reason was anything but EEXIST
+        unless ($!{EEXIST}) {
+          ${$options{ErrStr}} = "Could not create temp file $path: $!";
+          return ();
+        }
+
+        # Loop round for another try
+
+      }
+    } elsif ($options{"mkdir"}) {
+
+      # Open the temp directory
+      if (mkdir( $path, 0700)) {
+        # in case of odd umask
+        chmod(0700, $path);
+
+        return undef, $path;
+      } else {
+
+        # Abort with error if the reason for failure was anything
+        # except EEXIST
+        unless ($!{EEXIST}) {
+          ${$options{ErrStr}} = "Could not create directory $path: $!";
+          return ();
+        }
+
+        # Loop round for another try
+
+      }
+
+    } else {
+
+      # Return true if the file can not be found
+      # Directory has been checked previously
+
+      return (undef, $path) unless -e $path;
+
+      # Try again until MAX_TRIES
+
+    }
+
+    # Did not successfully open the tempfile/dir
+    # so try again with a different set of random letters
+    # No point in trying to increment unless we have only
+    # 1 X say and the randomness could come up with the same
+    # file MAX_TRIES in a row.
+
+    # Store current attempt - in principal this implies that the
+    # 3rd time around the open attempt that the first temp file
+    # name could be generated again. Probably should store each
+    # attempt and make sure that none are repeated
+
+    my $original = $path;
+    my $counter = 0;            # Stop infinite loop
+    my $MAX_GUESS = 50;
+
+    do {
+
+      # Generate new name from original template
+      $path = _replace_XX($template, $options{"suffixlen"});
+
+      $counter++;
+
+    } until ($path ne $original || $counter > $MAX_GUESS);
+
+    # Check for out of control looping
+    if ($counter > $MAX_GUESS) {
+      ${$options{ErrStr}} = "Tried to get a new temp name different to the previous value $MAX_GUESS times.\nSomething wrong with template?? ($template)";
+      return ();
+    }
+
+  }
+
+  # If we get here, we have run out of tries
+  ${ $options{ErrStr} } = "Have exceeded the maximum number of attempts ("
+    . MAX_TRIES . ") to open temp file/dir";
+
+  return ();
+
+}
+
+# Internal routine to replace the XXXX... with random characters
+# This has to be done by _gettemp() every time it fails to
+# open a temp file/dir
+
+# Arguments:  $template (the template with XXX),
+#             $ignore   (number of characters at end to ignore)
+
+# Returns:    modified template
+
+sub _replace_XX {
+
+  croak 'Usage: _replace_XX($template, $ignore)'
+    unless scalar(@_) == 2;
+
+  my ($path, $ignore) = @_;
+
+  # Do it as an if, since the suffix adjusts which section to replace
+  # and suffixlen=0 returns nothing if used in the substr directly
+  # Alternatively, could simply set $ignore to length($path)-1
+  # Don't want to always use substr when not required though.
+  my $end = ( $] >= 5.006 ? "\\z" : "\\Z" );
+
+  if ($ignore) {
+    substr($path, 0, - $ignore) =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
+  } else {
+    $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
+  }
+  return $path;
+}
+
+# Internal routine to force a temp file to be writable after
+# it is created so that we can unlink it. Windows seems to occasionally
+# force a file to be readonly when written to certain temp locations
+sub _force_writable {
+  my $file = shift;
+  chmod 0600, $file;
+}
+
+
+# internal routine to check to see if the directory is safe
+# First checks to see if the directory is not owned by the
+# current user or root. Then checks to see if anyone else
+# can write to the directory and if so, checks to see if
+# it has the sticky bit set
+
+# Will not work on systems that do not support sticky bit
+
+#Args:  directory path to check
+#       Optionally: reference to scalar to contain error message
+# Returns true if the path is safe and false otherwise.
+# Returns undef if can not even run stat() on the path
+
+# This routine based on version written by Tom Christiansen
+
+# Presumably, by the time we actually attempt to create the
+# file or directory in this directory, it may not be safe
+# anymore... Have to run _is_safe directly after the open.
+
+sub _is_safe {
+
+  my $path = shift;
+  my $err_ref = shift;
+
+  # Stat path
+  my @info = stat($path);
+  unless (scalar(@info)) {
+    $$err_ref = "stat(path) returned no values";
+    return 0;
+  }
+  ;
+  return 1 if $^O eq 'VMS';     # owner delete control at file level
+
+  # Check to see whether owner is neither superuser (or a system uid) nor me
+  # Use the effective uid from the $> variable
+  # UID is in [4]
+  if ($info[4] > File::Temp->top_system_uid() && $info[4] != $>) {
+
+    Carp::cluck(sprintf "uid=$info[4] topuid=%s euid=$> path='$path'",
+                File::Temp->top_system_uid());
+
+    $$err_ref = "Directory owned neither by root nor the current user"
+      if ref($err_ref);
+    return 0;
+  }
+
+  # check whether group or other can write file
+  # use 066 to detect either reading or writing
+  # use 022 to check writability
+  # Do it with S_IWOTH and S_IWGRP for portability (maybe)
+  # mode is in info[2]
+  if (($info[2] & &Fcntl::S_IWGRP) ||  # Is group writable?
+      ($info[2] & &Fcntl::S_IWOTH) ) { # Is world writable?
+    # Must be a directory
+    unless (-d $path) {
+      $$err_ref = "Path ($path) is not a directory"
+        if ref($err_ref);
+      return 0;
+    }
+    # Must have sticky bit set
+    unless (-k $path) {
+      $$err_ref = "Sticky bit not set on $path when dir is group|world writable"
+        if ref($err_ref);
+      return 0;
+    }
+  }
+
+  return 1;
+}
+
+# Internal routine to check whether a directory is safe
+# for temp files. Safer than _is_safe since it checks for
+# the possibility of chown giveaway and if that is a possibility
+# checks each directory in the path to see if it is safe (with _is_safe)
+
+# If _PC_CHOWN_RESTRICTED is not set, does the full test of each
+# directory anyway.
+
+# Takes optional second arg as scalar ref to error reason
+
+sub _is_verysafe {
+
+  # Need POSIX - but only want to bother if really necessary due to overhead
+  require POSIX;
+
+  my $path = shift;
+  print "_is_verysafe testing $path\n" if $DEBUG;
+  return 1 if $^O eq 'VMS';     # owner delete control at file level
+
+  my $err_ref = shift;
+
+  # Should Get the value of _PC_CHOWN_RESTRICTED if it is defined
+  # and If it is not there do the extensive test
+  local($@);
+  my $chown_restricted;
+  $chown_restricted = &POSIX::_PC_CHOWN_RESTRICTED()
+    if eval { &POSIX::_PC_CHOWN_RESTRICTED(); 1};
+
+  # If chown_resticted is set to some value we should test it
+  if (defined $chown_restricted) {
+
+    # Return if the current directory is safe
+    return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted );
+
+  }
+
+  # To reach this point either, the _PC_CHOWN_RESTRICTED symbol
+  # was not available or the symbol was there but chown giveaway
+  # is allowed. Either way, we now have to test the entire tree for
+  # safety.
+
+  # Convert path to an absolute directory if required
+  unless (File::Spec->file_name_is_absolute($path)) {
+    $path = File::Spec->rel2abs($path);
+  }
+
+  # Split directory into components - assume no file
+  my ($volume, $directories, undef) = File::Spec->splitpath( $path, 1);
+
+  # Slightly less efficient than having a function in File::Spec
+  # to chop off the end of a directory or even a function that
+  # can handle ../ in a directory tree
+  # Sometimes splitdir() returns a blank at the end
+  # so we will probably check the bottom directory twice in some cases
+  my @dirs = File::Spec->splitdir($directories);
+
+  # Concatenate one less directory each time around
+  foreach my $pos (0.. $#dirs) {
+    # Get a directory name
+    my $dir = File::Spec->catpath($volume,
+                                  File::Spec->catdir(@dirs[0.. $#dirs - $pos]),
+                                  ''
+                                 );
+
+    print "TESTING DIR $dir\n" if $DEBUG;
+
+    # Check the directory
+    return 0 unless _is_safe($dir,$err_ref);
+
+  }
+
+  return 1;
+}
+
+
+
+# internal routine to determine whether unlink works on this
+# platform for files that are currently open.
+# Returns true if we can, false otherwise.
+
+# Currently WinNT, OS/2 and VMS can not unlink an opened file
+# On VMS this is because the O_EXCL flag is used to open the
+# temporary file. Currently I do not know enough about the issues
+# on VMS to decide whether O_EXCL is a requirement.
+
+sub _can_unlink_opened_file {
+
+  if (grep { $^O eq $_ } qw/MSWin32 os2 VMS dos MacOS haiku/) {
+    return 0;
+  } else {
+    return 1;
+  }
+
+}
+
+# internal routine to decide which security levels are allowed
+# see safe_level() for more information on this
+
+# Controls whether the supplied security level is allowed
+
+#   $cando = _can_do_level( $level )
+
+sub _can_do_level {
+
+  # Get security level
+  my $level = shift;
+
+  # Always have to be able to do STANDARD
+  return 1 if $level == STANDARD;
+
+  # Currently, the systems that can do HIGH or MEDIUM are identical
+  if ( $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'cygwin' || $^O eq 'dos' || $^O eq 'MacOS' || $^O eq 'mpeix') {
+    return 0;
+  } else {
+    return 1;
+  }
+
+}
+
+# This routine sets up a deferred unlinking of a specified
+# filename and filehandle. It is used in the following cases:
+#  - Called by unlink0 if an opened file can not be unlinked
+#  - Called by tempfile() if files are to be removed on shutdown
+#  - Called by tempdir() if directories are to be removed on shutdown
+
+# Arguments:
+#   _deferred_unlink( $fh, $fname, $isdir );
+#
+#   - filehandle (so that it can be explicitly closed if open
+#   - filename   (the thing we want to remove)
+#   - isdir      (flag to indicate that we are being given a directory)
+#                 [and hence no filehandle]
+
+# Status is not referred to since all the magic is done with an END block
+
+{
+  # Will set up two lexical variables to contain all the files to be
+  # removed. One array for files, another for directories They will
+  # only exist in this block.
+
+  #  This means we only have to set up a single END block to remove
+  #  all files. 
+
+  # in order to prevent child processes inadvertently deleting the parent
+  # temp files we use a hash to store the temp files and directories
+  # created by a particular process id.
+
+  # %files_to_unlink contains values that are references to an array of
+  # array references containing the filehandle and filename associated with
+  # the temp file.
+  my (%files_to_unlink, %dirs_to_unlink);
+
+  # Set up an end block to use these arrays
+  END {
+    local($., $@, $!, $^E, $?);
+    cleanup(at_exit => 1);
+  }
+
+  # Cleanup function. Always triggered on END (with at_exit => 1) but
+  # can be invoked manually.
+  sub cleanup {
+    my %h = @_;
+    my $at_exit = delete $h{at_exit};
+    $at_exit = 0 if not defined $at_exit;
+    { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
+
+    if (!$KEEP_ALL) {
+      # Files
+      my @files = (exists $files_to_unlink{$$} ?
+                   @{ $files_to_unlink{$$} } : () );
+      foreach my $file (@files) {
+        # close the filehandle without checking its state
+        # in order to make real sure that this is closed
+        # if its already closed then I don't care about the answer
+        # probably a better way to do this
+        close($file->[0]);      # file handle is [0]
+
+        if (-f $file->[1]) {       # file name is [1]
+          _force_writable( $file->[1] ); # for windows
+          unlink $file->[1] or warn "Error removing ".$file->[1];
+        }
+      }
+      # Dirs
+      my @dirs = (exists $dirs_to_unlink{$$} ?
+                  @{ $dirs_to_unlink{$$} } : () );
+      my ($cwd, $cwd_to_remove);
+      foreach my $dir (@dirs) {
+        if (-d $dir) {
+          # Some versions of rmtree will abort if you attempt to remove
+          # the directory you are sitting in. For automatic cleanup
+          # at program exit, we avoid this by chdir()ing out of the way
+          # first. If not at program exit, it's best not to mess with the
+          # current directory, so just let it fail with a warning.
+          if ($at_exit) {
+            $cwd = Cwd::abs_path(File::Spec->curdir) if not defined $cwd;
+            my $abs = Cwd::abs_path($dir);
+            if ($abs eq $cwd) {
+              $cwd_to_remove = $dir;
+              next;
+            }
+          }
+          eval { rmtree($dir, $DEBUG, 0); };
+          warn $@ if ($@ && $^W);
+        }
+      }
+
+      if (defined $cwd_to_remove) {
+        # We do need to clean up the current directory, and everything
+        # else is done, so get out of there and remove it.
+        chdir $cwd_to_remove or die "cannot chdir to $cwd_to_remove: $!";
+        my $updir = File::Spec->updir;
+        chdir $updir or die "cannot chdir to $updir: $!";
+        eval { rmtree($cwd_to_remove, $DEBUG, 0); };
+        warn $@ if ($@ && $^W);
+      }
+
+      # clear the arrays
+      @{ $files_to_unlink{$$} } = ()
+        if exists $files_to_unlink{$$};
+      @{ $dirs_to_unlink{$$} } = ()
+        if exists $dirs_to_unlink{$$};
+    }
+  }
+
+
+  # This is the sub called to register a file for deferred unlinking
+  # This could simply store the input parameters and defer everything
+  # until the END block. For now we do a bit of checking at this
+  # point in order to make sure that (1) we have a file/dir to delete
+  # and (2) we have been called with the correct arguments.
+  sub _deferred_unlink {
+
+    croak 'Usage:  _deferred_unlink($fh, $fname, $isdir)'
+      unless scalar(@_) == 3;
+
+    my ($fh, $fname, $isdir) = @_;
+
+    warn "Setting up deferred removal of $fname\n"
+      if $DEBUG;
+
+    # make sure we save the absolute path for later cleanup
+    # OK to untaint because we only ever use this internally
+    # as a file path, never interpolating into the shell
+    $fname = Cwd::abs_path($fname);
+    ($fname) = $fname =~ /^(.*)$/;
+
+    # If we have a directory, check that it is a directory
+    if ($isdir) {
+
+      if (-d $fname) {
+
+        # Directory exists so store it
+        # first on VMS turn []foo into [.foo] for rmtree
+        $fname = VMS::Filespec::vmspath($fname) if $^O eq 'VMS';
+        $dirs_to_unlink{$$} = [] 
+          unless exists $dirs_to_unlink{$$};
+        push (@{ $dirs_to_unlink{$$} }, $fname);
+
+      } else {
+        carp "Request to remove directory $fname could not be completed since it does not exist!\n" if $^W;
+      }
+
+    } else {
+
+      if (-f $fname) {
+
+        # file exists so store handle and name for later removal
+        $files_to_unlink{$$} = []
+          unless exists $files_to_unlink{$$};
+        push(@{ $files_to_unlink{$$} }, [$fh, $fname]);
+
+      } else {
+        carp "Request to remove file $fname could not be completed since it is not there!\n" if $^W;
+      }
+
+    }
+
+  }
+
+
+}
+
+# normalize argument keys to upper case and do consistent handling
+# of leading template vs TEMPLATE
+sub _parse_args {
+  my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' );
+  my %args = @_;
+  %args = map { uc($_), $args{$_} } keys %args;
+
+  # template (store it in an array so that it will
+  # disappear from the arg list of tempfile)
+  my @template = (
+    exists $args{TEMPLATE}  ? $args{TEMPLATE} :
+    $leading_template       ? $leading_template : ()
+  );
+  delete $args{TEMPLATE};
+
+  return( \@template, \%args );
+}
+
+
+sub new {
+  my $proto = shift;
+  my $class = ref($proto) || $proto;
+
+  my ($maybe_template, $args) = _parse_args(@_);
+
+  # see if they are unlinking (defaulting to yes)
+  my $unlink = (exists $args->{UNLINK} ? $args->{UNLINK} : 1 );
+  delete $args->{UNLINK};
+
+  # Protect OPEN
+  delete $args->{OPEN};
+
+  # Open the file and retain file handle and file name
+  my ($fh, $path) = tempfile( @$maybe_template, %$args );
+
+  print "Tmp: $fh - $path\n" if $DEBUG;
+
+  # Store the filename in the scalar slot
+  ${*$fh} = $path;
+
+  # Cache the filename by pid so that the destructor can decide whether to remove it
+  $FILES_CREATED_BY_OBJECT{$$}{$path} = 1;
+
+  # Store unlink information in hash slot (plus other constructor info)
+  %{*$fh} = %$args;
+
+  # create the object
+  bless $fh, $class;
+
+  # final method-based configuration
+  $fh->unlink_on_destroy( $unlink );
+
+  return $fh;
+}
+
+
+sub newdir {
+  my $self = shift;
+
+  my ($maybe_template, $args) = _parse_args(@_);
+
+  # handle CLEANUP without passing CLEANUP to tempdir
+  my $cleanup = (exists $args->{CLEANUP} ? $args->{CLEANUP} : 1 );
+  delete $args->{CLEANUP};
+
+  my $tempdir = tempdir( @$maybe_template, %$args);
+
+  # get a safe absolute path for cleanup, just like
+  # happens in _deferred_unlink
+  my $real_dir = Cwd::abs_path( $tempdir );
+  ($real_dir) = $real_dir =~ /^(.*)$/;
+
+  return bless { DIRNAME => $tempdir,
+                 REALNAME => $real_dir,
+                 CLEANUP => $cleanup,
+                 LAUNCHPID => $$,
+               }, "File::Temp::Dir";
+}
+
+
+sub filename {
+  my $self = shift;
+  return ${*$self};
+}
+
+sub STRINGIFY {
+  my $self = shift;
+  return $self->filename;
+}
+
+# For reference, can't use '0+'=>\&Scalar::Util::refaddr directly because
+# refaddr() demands one parameter only, whereas overload.pm calls with three
+# even for unary operations like '0+'.
+sub NUMIFY {
+  return refaddr($_[0]);
+}
+
+
+sub unlink_on_destroy {
+  my $self = shift;
+  if (@_) {
+    ${*$self}{UNLINK} = shift;
+  }
+  return ${*$self}{UNLINK};
+}
+
+
+sub DESTROY {
+  local($., $@, $!, $^E, $?);
+  my $self = shift;
+
+  # Make sure we always remove the file from the global hash
+  # on destruction. This prevents the hash from growing uncontrollably
+  # and post-destruction there is no reason to know about the file.
+  my $file = $self->filename;
+  my $was_created_by_proc;
+  if (exists $FILES_CREATED_BY_OBJECT{$$}{$file}) {
+    $was_created_by_proc = 1;
+    delete $FILES_CREATED_BY_OBJECT{$$}{$file};
+  }
+
+  if (${*$self}{UNLINK} && !$KEEP_ALL) {
+    print "# --------->   Unlinking $self\n" if $DEBUG;
+
+    # only delete if this process created it
+    return unless $was_created_by_proc;
+
+    # The unlink1 may fail if the file has been closed
+    # by the caller. This leaves us with the decision
+    # of whether to refuse to remove the file or simply
+    # do an unlink without test. Seems to be silly
+    # to do this when we are trying to be careful
+    # about security
+    _force_writable( $file ); # for windows
+    unlink1( $self, $file )
+      or unlink($file);
+  }
+}
+
+
+sub tempfile {
+  if ( @_ && $_[0] eq 'File::Temp' ) {
+      croak "'tempfile' can't be called as a method";
+  }
+  # Can not check for argument count since we can have any
+  # number of args
+
+  # Default options
+  my %options = (
+                 "DIR"    => undef, # Directory prefix
+                 "SUFFIX" => '',    # Template suffix
+                 "UNLINK" => 0,     # Do not unlink file on exit
+                 "OPEN"   => 1,     # Open file
+                 "TMPDIR" => 0, # Place tempfile in tempdir if template specified
+                 "EXLOCK" => 1, # Open file with O_EXLOCK
+                );
+
+  # Check to see whether we have an odd or even number of arguments
+  my ($maybe_template, $args) = _parse_args(@_);
+  my $template = @$maybe_template ? $maybe_template->[0] : undef;
+
+  # Read the options and merge with defaults
+  %options = (%options, %$args);
+
+  # First decision is whether or not to open the file
+  if (! $options{"OPEN"}) {
+
+    warn "tempfile(): temporary filename requested but not opened.\nPossibly unsafe, consider using tempfile() with OPEN set to true\n"
+      if $^W;
+
+  }
+
+  if ($options{"DIR"} and $^O eq 'VMS') {
+
+    # on VMS turn []foo into [.foo] for concatenation
+    $options{"DIR"} = VMS::Filespec::vmspath($options{"DIR"});
+  }
+
+  # Construct the template
+
+  # Have a choice of trying to work around the mkstemp/mktemp/tmpnam etc
+  # functions or simply constructing a template and using _gettemp()
+  # explicitly. Go for the latter
+
+  # First generate a template if not defined and prefix the directory
+  # If no template must prefix the temp directory
+  if (defined $template) {
+    # End up with current directory if neither DIR not TMPDIR are set
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catfile($options{"DIR"}, $template);
+
+    } elsif ($options{TMPDIR}) {
+
+      $template = File::Spec->catfile(File::Spec->tmpdir, $template );
+
+    }
+
+  } else {
+
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catfile($options{"DIR"}, TEMPXXX);
+
+    } else {
+
+      $template = File::Spec->catfile(File::Spec->tmpdir, TEMPXXX);
+
+    }
+
+  }
+
+  # Now add a suffix
+  $template .= $options{"SUFFIX"};
+
+  # Determine whether we should tell _gettemp to unlink the file
+  # On unix this is irrelevant and can be worked out after the file is
+  # opened (simply by unlinking the open filehandle). On Windows or VMS
+  # we have to indicate temporary-ness when we open the file. In general
+  # we only want a true temporary file if we are returning just the
+  # filehandle - if the user wants the filename they probably do not
+  # want the file to disappear as soon as they close it (which may be
+  # important if they want a child process to use the file)
+  # For this reason, tie unlink_on_close to the return context regardless
+  # of OS.
+  my $unlink_on_close = ( wantarray ? 0 : 1);
+
+  # Create the file
+  my ($fh, $path, $errstr);
+  croak "Error in tempfile() using template $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => $options{'OPEN'},
+                                    "mkdir"=> 0 ,
+                                    "unlink_on_close" => $unlink_on_close,
+                                    "suffixlen" => length($options{'SUFFIX'}),
+                                    "ErrStr" => \$errstr,
+                                    "use_exlock" => $options{EXLOCK},
+                                   ) );
+
+  # Set up an exit handler that can do whatever is right for the
+  # system. This removes files at exit when requested explicitly or when
+  # system is asked to unlink_on_close but is unable to do so because
+  # of OS limitations.
+  # The latter should be achieved by using a tied filehandle.
+  # Do not check return status since this is all done with END blocks.
+  _deferred_unlink($fh, $path, 0) if $options{"UNLINK"};
+
+  # Return
+  if (wantarray()) {
+
+    if ($options{'OPEN'}) {
+      return ($fh, $path);
+    } else {
+      return (undef, $path);
+    }
+
+  } else {
+
+    # Unlink the file. It is up to unlink0 to decide what to do with
+    # this (whether to unlink now or to defer until later)
+    unlink0($fh, $path) or croak "Error unlinking file $path using unlink0";
+
+    # Return just the filehandle.
+    return $fh;
+  }
+
+
+}
+
+
+# '
+
+sub tempdir  {
+  if ( @_ && $_[0] eq 'File::Temp' ) {
+      croak "'tempdir' can't be called as a method";
+  }
+
+  # Can not check for argument count since we can have any
+  # number of args
+
+  # Default options
+  my %options = (
+                 "CLEANUP"    => 0, # Remove directory on exit
+                 "DIR"        => '', # Root directory
+                 "TMPDIR"     => 0,  # Use tempdir with template
+                );
+
+  # Check to see whether we have an odd or even number of arguments
+  my ($maybe_template, $args) = _parse_args(@_);
+  my $template = @$maybe_template ? $maybe_template->[0] : undef;
+
+  # Read the options and merge with defaults
+  %options = (%options, %$args);
+
+  # Modify or generate the template
+
+  # Deal with the DIR and TMPDIR options
+  if (defined $template) {
+
+    # Need to strip directory path if using DIR or TMPDIR
+    if ($options{'TMPDIR'} || $options{'DIR'}) {
+
+      # Strip parent directory from the filename
+      #
+      # There is no filename at the end
+      $template = VMS::Filespec::vmspath($template) if $^O eq 'VMS';
+      my ($volume, $directories, undef) = File::Spec->splitpath( $template, 1);
+
+      # Last directory is then our template
+      $template = (File::Spec->splitdir($directories))[-1];
+
+      # Prepend the supplied directory or temp dir
+      if ($options{"DIR"}) {
+
+        $template = File::Spec->catdir($options{"DIR"}, $template);
+
+      } elsif ($options{TMPDIR}) {
+
+        # Prepend tmpdir
+        $template = File::Spec->catdir(File::Spec->tmpdir, $template);
+
+      }
+
+    }
+
+  } else {
+
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catdir($options{"DIR"}, TEMPXXX);
+
+    } else {
+
+      $template = File::Spec->catdir(File::Spec->tmpdir, TEMPXXX);
+
+    }
+
+  }
+
+  # Create the directory
+  my $tempdir;
+  my $suffixlen = 0;
+  if ($^O eq 'VMS') {           # dir names can end in delimiters
+    $template =~ m/([\.\]:>]+)$/;
+    $suffixlen = length($1);
+  }
+  if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
+    # dir name has a trailing ':'
+    ++$suffixlen;
+  }
+
+  my $errstr;
+  croak "Error in tempdir() using $template: $errstr"
+    unless ((undef, $tempdir) = _gettemp($template,
+                                         "open" => 0,
+                                         "mkdir"=> 1 ,
+                                         "suffixlen" => $suffixlen,
+                                         "ErrStr" => \$errstr,
+                                        ) );
+
+  # Install exit handler; must be dynamic to get lexical
+  if ( $options{'CLEANUP'} && -d $tempdir) {
+    _deferred_unlink(undef, $tempdir, 1);
+  }
+
+  # Return the dir name
+  return $tempdir;
+
+}
+
+
+
+
+sub mkstemp {
+
+  croak "Usage: mkstemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+
+  my ($fh, $path, $errstr);
+  croak "Error in mkstemp using $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => 1,
+                                    "mkdir"=> 0 ,
+                                    "suffixlen" => 0,
+                                    "ErrStr" => \$errstr,
+                                   ) );
+
+  if (wantarray()) {
+    return ($fh, $path);
+  } else {
+    return $fh;
+  }
+
+}
+
+
+
+sub mkstemps {
+
+  croak "Usage: mkstemps(template, suffix)"
+    if scalar(@_) != 2;
+
+
+  my $template = shift;
+  my $suffix   = shift;
+
+  $template .= $suffix;
+
+  my ($fh, $path, $errstr);
+  croak "Error in mkstemps using $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => 1,
+                                    "mkdir"=> 0 ,
+                                    "suffixlen" => length($suffix),
+                                    "ErrStr" => \$errstr,
+                                   ) );
+
+  if (wantarray()) {
+    return ($fh, $path);
+  } else {
+    return $fh;
+  }
+
+}
+
+
+#' # for emacs
+
+sub mkdtemp {
+
+  croak "Usage: mkdtemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+  my $suffixlen = 0;
+  if ($^O eq 'VMS') {           # dir names can end in delimiters
+    $template =~ m/([\.\]:>]+)$/;
+    $suffixlen = length($1);
+  }
+  if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
+    # dir name has a trailing ':'
+    ++$suffixlen;
+  }
+  my ($junk, $tmpdir, $errstr);
+  croak "Error creating temp directory from template $template\: $errstr"
+    unless (($junk, $tmpdir) = _gettemp($template,
+                                        "open" => 0,
+                                        "mkdir"=> 1 ,
+                                        "suffixlen" => $suffixlen,
+                                        "ErrStr" => \$errstr,
+                                       ) );
+
+  return $tmpdir;
+
+}
+
+
+sub mktemp {
+
+  croak "Usage: mktemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+
+  my ($tmpname, $junk, $errstr);
+  croak "Error getting name to temp file from template $template: $errstr"
+    unless (($junk, $tmpname) = _gettemp($template,
+                                         "open" => 0,
+                                         "mkdir"=> 0 ,
+                                         "suffixlen" => 0,
+                                         "ErrStr" => \$errstr,
+                                        ) );
+
+  return $tmpname;
+}
+
+
+sub tmpnam {
+
+  # Retrieve the temporary directory name
+  my $tmpdir = File::Spec->tmpdir;
+
+  croak "Error temporary directory is not writable"
+    if $tmpdir eq '';
+
+  # Use a ten character template and append to tmpdir
+  my $template = File::Spec->catfile($tmpdir, TEMPXXX);
+
+  if (wantarray() ) {
+    return mkstemp($template);
+  } else {
+    return mktemp($template);
+  }
+
+}
+
+
+sub tmpfile {
+
+  # Simply call tmpnam() in a list context
+  my ($fh, $file) = tmpnam();
+
+  # Make sure file is removed when filehandle is closed
+  # This will fail on NFS
+  unlink0($fh, $file)
+    or return undef;
+
+  return $fh;
+
+}
+
+
+sub tempnam {
+
+  croak 'Usage tempnam($dir, $prefix)' unless scalar(@_) == 2;
+
+  my ($dir, $prefix) = @_;
+
+  # Add a string to the prefix
+  $prefix .= 'XXXXXXXX';
+
+  # Concatenate the directory to the file
+  my $template = File::Spec->catfile($dir, $prefix);
+
+  return mktemp($template);
+
+}
+
+
+sub unlink0 {
+
+  croak 'Usage: unlink0(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  cmpstat($fh, $path) or return 0;
+
+  # attempt remove the file (does not work on some platforms)
+  if (_can_unlink_opened_file()) {
+
+    # return early (Without unlink) if we have been instructed to retain files.
+    return 1 if $KEEP_ALL;
+
+    # XXX: do *not* call this on a directory; possible race
+    #      resulting in recursive removal
+    croak "unlink0: $path has become a directory!" if -d $path;
+    unlink($path) or return 0;
+
+    # Stat the filehandle
+    my @fh = stat $fh;
+
+    print "Link count = $fh[3] \n" if $DEBUG;
+
+    # Make sure that the link count is zero
+    # - Cygwin provides deferred unlinking, however,
+    #   on Win9x the link count remains 1
+    # On NFS the link count may still be 1 but we can't know that
+    # we are on NFS.  Since we can't be sure, we'll defer it
+
+    return 1 if $fh[3] == 0 || $^O eq 'cygwin';
+  }
+  # fall-through if we can't unlink now
+  _deferred_unlink($fh, $path, 0);
+  return 1;
+}
+
+
+sub cmpstat {
+
+  croak 'Usage: cmpstat(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  warn "Comparing stat\n"
+    if $DEBUG;
+
+  # Stat the filehandle - which may be closed if someone has manually
+  # closed the file. Can not turn off warnings without using $^W
+  # unless we upgrade to 5.006 minimum requirement
+  my @fh;
+  {
+    local ($^W) = 0;
+    @fh = stat $fh;
+  }
+  return unless @fh;
+
+  if ($fh[3] > 1 && $^W) {
+    carp "unlink0: fstat found too many links; SB=@fh" if $^W;
+  }
+
+  # Stat the path
+  my @path = stat $path;
+
+  unless (@path) {
+    carp "unlink0: $path is gone already" if $^W;
+    return;
+  }
+
+  # this is no longer a file, but may be a directory, or worse
+  unless (-f $path) {
+    confess "panic: $path is no longer a file: SB=@fh";
+  }
+
+  # Do comparison of each member of the array
+  # On WinNT dev and rdev seem to be different
+  # depending on whether it is a file or a handle.
+  # Cannot simply compare all members of the stat return
+  # Select the ones we can use
+  my @okstat = (0..$#fh);       # Use all by default
+  if ($^O eq 'MSWin32') {
+    @okstat = (1,2,3,4,5,7,8,9,10);
+  } elsif ($^O eq 'os2') {
+    @okstat = (0, 2..$#fh);
+  } elsif ($^O eq 'VMS') {      # device and file ID are sufficient
+    @okstat = (0, 1);
+  } elsif ($^O eq 'dos') {
+    @okstat = (0,2..7,11..$#fh);
+  } elsif ($^O eq 'mpeix') {
+    @okstat = (0..4,8..10);
+  }
+
+  # Now compare each entry explicitly by number
+  for (@okstat) {
+    print "Comparing: $_ : $fh[$_] and $path[$_]\n" if $DEBUG;
+    # Use eq rather than == since rdev, blksize, and blocks (6, 11,
+    # and 12) will be '' on platforms that do not support them.  This
+    # is fine since we are only comparing integers.
+    unless ($fh[$_] eq $path[$_]) {
+      warn "Did not match $_ element of stat\n" if $DEBUG;
+      return 0;
+    }
+  }
+
+  return 1;
+}
+
+
+sub unlink1 {
+  croak 'Usage: unlink1(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  cmpstat($fh, $path) or return 0;
+
+  # Close the file
+  close( $fh ) or return 0;
+
+  # Make sure the file is writable (for windows)
+  _force_writable( $path );
+
+  # return early (without unlink) if we have been instructed to retain files.
+  return 1 if $KEEP_ALL;
+
+  # remove the file
+  return unlink($path);
+}
+
+
+{
+  # protect from using the variable itself
+  my $LEVEL = STANDARD;
+  sub safe_level {
+    my $self = shift;
+    if (@_) {
+      my $level = shift;
+      if (($level != STANDARD) && ($level != MEDIUM) && ($level != HIGH)) {
+        carp "safe_level: Specified level ($level) not STANDARD, MEDIUM or HIGH - ignoring\n" if $^W;
+      } else {
+        # Don't allow this on perl 5.005 or earlier
+        if ($] < 5.006 && $level != STANDARD) {
+          # Cant do MEDIUM or HIGH checks
+          croak "Currently requires perl 5.006 or newer to do the safe checks";
+        }
+        # Check that we are allowed to change level
+        # Silently ignore if we can not.
+        $LEVEL = $level if _can_do_level($level);
+      }
+    }
+    return $LEVEL;
+  }
+}
+
+
+{
+  my $TopSystemUID = 10;
+  $TopSystemUID = 197108 if $^O eq 'interix'; # "Administrator"
+  sub top_system_uid {
+    my $self = shift;
+    if (@_) {
+      my $newuid = shift;
+      croak "top_system_uid: UIDs should be numeric"
+        unless $newuid =~ /^\d+$/s;
+      $TopSystemUID = $newuid;
+    }
+    return $TopSystemUID;
+  }
+}
+
+
+package File::Temp::Dir;
+
+use File::Path qw/ rmtree /;
+use strict;
+use overload '""' => "STRINGIFY",
+  '0+' => \&File::Temp::NUMIFY,
+  fallback => 1;
+
+# private class specifically to support tempdir objects
+# created by File::Temp->newdir
+
+# ostensibly the same method interface as File::Temp but without
+# inheriting all the IO::Seekable methods and other cruft
+
+# Read-only - returns the name of the temp directory
+
+sub dirname {
+  my $self = shift;
+  return $self->{DIRNAME};
+}
+
+sub STRINGIFY {
+  my $self = shift;
+  return $self->dirname;
+}
+
+sub unlink_on_destroy {
+  my $self = shift;
+  if (@_) {
+    $self->{CLEANUP} = shift;
+  }
+  return $self->{CLEANUP};
+}
+
+sub DESTROY {
+  my $self = shift;
+  local($., $@, $!, $^E, $?);
+  if ($self->unlink_on_destroy && 
+      $$ == $self->{LAUNCHPID} && !$File::Temp::KEEP_ALL) {
+    if (-d $self->{REALNAME}) {
+      # Some versions of rmtree will abort if you attempt to remove
+      # the directory you are sitting in. We protect that and turn it
+      # into a warning. We do this because this occurs during object
+      # destruction and so can not be caught by the user.
+      eval { rmtree($self->{REALNAME}, $File::Temp::DEBUG, 0); };
+      warn $@ if ($@ && $^W);
+    }
+  }
+}
+
+1;
+
+__END__
+
+package File::GlobMapper;
+
+use strict;
+use warnings;
+use Carp;
+
+our ($CSH_GLOB);
+
+BEGIN
+{
+    if ($] < 5.006)
+    { 
+        require File::BSDGlob; import File::BSDGlob qw(:glob) ;
+        $CSH_GLOB = File::BSDGlob::GLOB_CSH() ;
+        *globber = \&File::BSDGlob::csh_glob;
+    }  
+    else
+    { 
+        require File::Glob; import File::Glob qw(:glob) ;
+        $CSH_GLOB = File::Glob::GLOB_CSH() ;
+        #*globber = \&File::Glob::bsd_glob;
+        *globber = \&File::Glob::csh_glob;
+    }  
+}
+
+our ($Error);
+
+our ($VERSION, @EXPORT_OK);
+$VERSION = '1.000';
+@EXPORT_OK = qw( globmap );
+
+
+our ($noPreBS, $metachars, $matchMetaRE, %mapping, %wildCount);
+$noPreBS = '(?<!\\\)' ; # no preceding backslash
+$metachars = '.*?[](){}';
+$matchMetaRE = '[' . quotemeta($metachars) . ']';
+
+%mapping = (
+                '*' => '([^/]*)',
+                '?' => '([^/])',
+                '.' => '\.',
+                '[' => '([',
+                '(' => '(',
+                ')' => ')',
+           );
+
+%wildCount = map { $_ => 1 } qw/ * ? . { ( [ /;           
+
+sub globmap ($$;)
+{
+    my $inputGlob = shift ;
+    my $outputGlob = shift ;
+
+    my $obj = new File::GlobMapper($inputGlob, $outputGlob, @_)
+        or croak "globmap: $Error" ;
+    return $obj->getFileMap();
+}
+
+sub new
+{
+    my $class = shift ;
+    my $inputGlob = shift ;
+    my $outputGlob = shift ;
+    # TODO -- flags needs to default to whatever File::Glob does
+    my $flags = shift || $CSH_GLOB ;
+    #my $flags = shift ;
+
+    $inputGlob =~ s/^\s*\<\s*//;
+    $inputGlob =~ s/\s*\>\s*$//;
+
+    $outputGlob =~ s/^\s*\<\s*//;
+    $outputGlob =~ s/\s*\>\s*$//;
+
+    my %object =
+            (   InputGlob   => $inputGlob,
+                OutputGlob  => $outputGlob,
+                GlobFlags   => $flags,
+                Braces      => 0,
+                WildCount   => 0,
+                Pairs       => [],
+                Sigil       => '#',
+            );
+
+    my $self = bless \%object, ref($class) || $class ;
+
+    $self->_parseInputGlob()
+        or return undef ;
+
+    $self->_parseOutputGlob()
+        or return undef ;
+    
+    my @inputFiles = globber($self->{InputGlob}, $flags) ;
+
+    if (GLOB_ERROR)
+    {
+        $Error = $!;
+        return undef ;
+    }
+
+    #if (whatever)
+    {
+        my $missing = grep { ! -e $_ } @inputFiles ;
+
+        if ($missing)
+        {
+            $Error = "$missing input files do not exist";
+            return undef ;
+        }
+    }
+
+    $self->{InputFiles} = \@inputFiles ;
+
+    $self->_getFiles()
+        or return undef ;
+
+    return $self;
+}
+
+sub _retError
+{
+    my $string = shift ;
+    $Error = "$string in input fileglob" ;
+    return undef ;
+}
+
+sub _unmatched
+{
+    my $delimeter = shift ;
+
+    _retError("Unmatched $delimeter");
+    return undef ;
+}
+
+sub _parseBit
+{
+    my $self = shift ;
+
+    my $string = shift ;
+
+    my $out = '';
+    my $depth = 0 ;
+
+    while ($string =~ s/(.*?)$noPreBS(,|$matchMetaRE)//)
+    {
+        $out .= quotemeta($1) ;
+        $out .= $mapping{$2} if defined $mapping{$2};
+
+        ++ $self->{WildCount} if $wildCount{$2} ;
+
+        if ($2 eq ',')
+        { 
+            return _unmatched("(")
+                if $depth ;
+            
+            $out .= '|';
+        }
+        elsif ($2 eq '(')
+        { 
+            ++ $depth ;
+        }
+        elsif ($2 eq ')')
+        { 
+            return _unmatched(")")
+                if ! $depth ;
+
+            -- $depth ;
+        }
+        elsif ($2 eq '[')
+        {
+            # TODO -- quotemeta & check no '/'
+            # TODO -- check for \]  & other \ within the []
+            $string =~ s#(.*?\])##
+                or return _unmatched("[");
+            $out .= "$1)" ;
+        }
+        elsif ($2 eq ']')
+        {
+            return _unmatched("]");
+        }
+        elsif ($2 eq '{' || $2 eq '}')
+        {
+            return _retError("Nested {} not allowed");
+        }
+    }
+
+    $out .= quotemeta $string;
+
+    return _unmatched("(")
+        if $depth ;
+
+    return $out ;
+}
+
+sub _parseInputGlob
+{
+    my $self = shift ;
+
+    my $string = $self->{InputGlob} ;
+    my $inGlob = '';
+
+    # Multiple concatenated *'s don't make sense
+    #$string =~ s#\*\*+#*# ;
+
+    # TODO -- Allow space to delimit patterns?
+    #my @strings = split /\s+/, $string ;
+    #for my $str (@strings)
+    my $out = '';
+    my $depth = 0 ;
+
+    while ($string =~ s/(.*?)$noPreBS($matchMetaRE)//)
+    {
+        $out .= quotemeta($1) ;
+        $out .= $mapping{$2} if defined $mapping{$2};
+        ++ $self->{WildCount} if $wildCount{$2} ;
+
+        if ($2 eq '(')
+        { 
+            ++ $depth ;
+        }
+        elsif ($2 eq ')')
+        { 
+            return _unmatched(")")
+                if ! $depth ;
+
+            -- $depth ;
+        }
+        elsif ($2 eq '[')
+        {
+            # TODO -- quotemeta & check no '/' or '(' or ')'
+            # TODO -- check for \]  & other \ within the []
+            $string =~ s#(.*?\])##
+                or return _unmatched("[");
+            $out .= "$1)" ;
+        }
+        elsif ($2 eq ']')
+        {
+            return _unmatched("]");
+        }
+        elsif ($2 eq '}')
+        {
+            return _unmatched("}");
+        }
+        elsif ($2 eq '{')
+        {
+            # TODO -- check no '/' within the {}
+            # TODO -- check for \}  & other \ within the {}
+
+            my $tmp ;
+            unless ( $string =~ s/(.*?)$noPreBS\}//)
+            {
+                return _unmatched("{");
+            }
+            #$string =~ s#(.*?)\}##;
+
+            #my $alt = join '|', 
+            #          map { quotemeta $_ } 
+            #          split "$noPreBS,", $1 ;
+            my $alt = $self->_parseBit($1);
+            defined $alt or return 0 ;
+            $out .= "($alt)" ;
+
+            ++ $self->{Braces} ;
+        }
+    }
+
+    return _unmatched("(")
+        if $depth ;
+
+    $out .= quotemeta $string ;
+
+
+    $self->{InputGlob} =~ s/$noPreBS[\(\)]//g;
+    $self->{InputPattern} = $out ;
+
+    #print "# INPUT '$self->{InputGlob}' => '$out'\n";
+
+    return 1 ;
+
+}
+
+sub _parseOutputGlob
+{
+    my $self = shift ;
+
+    my $string = $self->{OutputGlob} ;
+    my $maxwild = $self->{WildCount};
+
+    if ($self->{GlobFlags} & GLOB_TILDE)
+    #if (1)
+    {
+        $string =~ s{
+              ^ ~             # find a leading tilde
+              (               # save this in $1
+                  [^/]        # a non-slash character
+                        *     # repeated 0 or more times (0 means me)
+              )
+            }{
+              $1
+                  ? (getpwnam($1))[7]
+                  : ( $ENV{HOME} || $ENV{LOGDIR} )
+            }ex;
+
+    }
+
+    # max #1 must be == to max no of '*' in input
+    while ( $string =~ m/#(\d)/g )
+    {
+        croak "Max wild is #$maxwild, you tried #$1"
+            if $1 > $maxwild ;
+    }
+
+    my $noPreBS = '(?<!\\\)' ; # no preceding backslash
+    #warn "noPreBS = '$noPreBS'\n";
+
+    #$string =~ s/${noPreBS}\$(\d)/\${$1}/g;
+    $string =~ s/${noPreBS}#(\d)/\${$1}/g;
+    $string =~ s#${noPreBS}\*#\${inFile}#g;
+    $string = '"' . $string . '"';
+
+    #print "OUTPUT '$self->{OutputGlob}' => '$string'\n";
+    $self->{OutputPattern} = $string ;
+
+    return 1 ;
+}
+
+sub _getFiles
+{
+    my $self = shift ;
+
+    my %outInMapping = ();
+    my %inFiles = () ;
+
+    foreach my $inFile (@{ $self->{InputFiles} })
+    {
+        next if $inFiles{$inFile} ++ ;
+
+        my $outFile = $inFile ;
+
+        if ( $inFile =~ m/$self->{InputPattern}/ )
+        {
+            no warnings 'uninitialized';
+            eval "\$outFile = $self->{OutputPattern};" ;
+
+            if (defined $outInMapping{$outFile})
+            {
+                $Error =  "multiple input files map to one output file";
+                return undef ;
+            }
+            $outInMapping{$outFile} = $inFile;
+            push @{ $self->{Pairs} }, [$inFile, $outFile];
+        }
+    }
+
+    return 1 ;
+}
+
+sub getFileMap
+{
+    my $self = shift ;
+
+    return $self->{Pairs} ;
+}
+
+sub getHash
+{
+    my $self = shift ;
+
+    return { map { $_->[0] => $_->[1] } @{ $self->{Pairs} } } ;
+}
+
+1;
+
+__END__
+
+package JSON::PP;
+
+# JSON-2.0
+
+use 5.005;
+use strict;
+
+use Exporter ();
+BEGIN { @JSON::PP::ISA = ('Exporter') }
+
+use overload ();
+use JSON::PP::Boolean;
+
+use Carp ();
+#use Devel::Peek;
+
+$JSON::PP::VERSION = '2.97001';
+
+@JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
+
+# instead of hash-access, i tried index-access for speed.
+# but this method is not faster than what i expected. so it will be changed.
+
+use constant P_ASCII                => 0;
+use constant P_LATIN1               => 1;
+use constant P_UTF8                 => 2;
+use constant P_INDENT               => 3;
+use constant P_CANONICAL            => 4;
+use constant P_SPACE_BEFORE         => 5;
+use constant P_SPACE_AFTER          => 6;
+use constant P_ALLOW_NONREF         => 7;
+use constant P_SHRINK               => 8;
+use constant P_ALLOW_BLESSED        => 9;
+use constant P_CONVERT_BLESSED      => 10;
+use constant P_RELAXED              => 11;
+
+use constant P_LOOSE                => 12;
+use constant P_ALLOW_BIGNUM         => 13;
+use constant P_ALLOW_BAREKEY        => 14;
+use constant P_ALLOW_SINGLEQUOTE    => 15;
+use constant P_ESCAPE_SLASH         => 16;
+use constant P_AS_NONBLESSED        => 17;
+
+use constant P_ALLOW_UNKNOWN        => 18;
+
+use constant OLD_PERL => $] < 5.008 ? 1 : 0;
+use constant USE_B => 0;
+
+BEGIN {
+if (USE_B) {
+    require B;
+}
+}
+
+BEGIN {
+    my @xs_compati_bit_properties = qw(
+            latin1 ascii utf8 indent canonical space_before space_after allow_nonref shrink
+            allow_blessed convert_blessed relaxed allow_unknown
+    );
+    my @pp_bit_properties = qw(
+            allow_singlequote allow_bignum loose
+            allow_barekey escape_slash as_nonblessed
+    );
+
+    # Perl version check, Unicode handling is enabled?
+    # Helper module sets @JSON::PP::_properties.
+    if ( OLD_PERL ) {
+        my $helper = $] >= 5.006 ? 'JSON::PP::Compat5006' : 'JSON::PP::Compat5005';
+        eval qq| require $helper |;
+        if ($@) { Carp::croak $@; }
+    }
+
+    for my $name (@xs_compati_bit_properties, @pp_bit_properties) {
+        my $property_id = 'P_' . uc($name);
+
+        eval qq/
+            sub $name {
+                my \$enable = defined \$_[1] ? \$_[1] : 1;
+
+                if (\$enable) {
+                    \$_[0]->{PROPS}->[$property_id] = 1;
+                }
+                else {
+                    \$_[0]->{PROPS}->[$property_id] = 0;
+                }
+
+                \$_[0];
+            }
+
+            sub get_$name {
+                \$_[0]->{PROPS}->[$property_id] ? 1 : '';
+            }
+        /;
+    }
+
+}
+
+
+
+# Functions
+
+my $JSON; # cache
+
+sub encode_json ($) { # encode
+    ($JSON ||= __PACKAGE__->new->utf8)->encode(@_);
+}
+
+
+sub decode_json { # decode
+    ($JSON ||= __PACKAGE__->new->utf8)->decode(@_);
+}
+
+# Obsoleted
+
+sub to_json($) {
+   Carp::croak ("JSON::PP::to_json has been renamed to encode_json.");
+}
+
+
+sub from_json($) {
+   Carp::croak ("JSON::PP::from_json has been renamed to decode_json.");
+}
+
+
+# Methods
+
+sub new {
+    my $class = shift;
+    my $self  = {
+        max_depth   => 512,
+        max_size    => 0,
+        indent_length => 3,
+    };
+
+    bless $self, $class;
+}
+
+
+sub encode {
+    return $_[0]->PP_encode_json($_[1]);
+}
+
+
+sub decode {
+    return $_[0]->PP_decode_json($_[1], 0x00000000);
+}
+
+
+sub decode_prefix {
+    return $_[0]->PP_decode_json($_[1], 0x00000001);
+}
+
+
+# accessor
+
+
+# pretty printing
+
+sub pretty {
+    my ($self, $v) = @_;
+    my $enable = defined $v ? $v : 1;
+
+    if ($enable) { # indent_length(3) for JSON::XS compatibility
+        $self->indent(1)->space_before(1)->space_after(1);
+    }
+    else {
+        $self->indent(0)->space_before(0)->space_after(0);
+    }
+
+    $self;
+}
+
+# etc
+
+sub max_depth {
+    my $max  = defined $_[1] ? $_[1] : 0x80000000;
+    $_[0]->{max_depth} = $max;
+    $_[0];
+}
+
+
+sub get_max_depth { $_[0]->{max_depth}; }
+
+
+sub max_size {
+    my $max  = defined $_[1] ? $_[1] : 0;
+    $_[0]->{max_size} = $max;
+    $_[0];
+}
+
+
+sub get_max_size { $_[0]->{max_size}; }
+
+
+sub filter_json_object {
+    if (defined $_[1] and ref $_[1] eq 'CODE') {
+        $_[0]->{cb_object} = $_[1];
+    } else {
+        delete $_[0]->{cb_object};
+    }
+    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
+    $_[0];
+}
+
+sub filter_json_single_key_object {
+    if (@_ == 1 or @_ > 3) {
+        Carp::croak("Usage: JSON::PP::filter_json_single_key_object(self, key, callback = undef)");
+    }
+    if (defined $_[2] and ref $_[2] eq 'CODE') {
+        $_[0]->{cb_sk_object}->{$_[1]} = $_[2];
+    } else {
+        delete $_[0]->{cb_sk_object}->{$_[1]};
+        delete $_[0]->{cb_sk_object} unless %{$_[0]->{cb_sk_object} || {}};
+    }
+    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
+    $_[0];
+}
+
+sub indent_length {
+    if (!defined $_[1] or $_[1] > 15 or $_[1] < 0) {
+        Carp::carp "The acceptable range of indent_length() is 0 to 15.";
+    }
+    else {
+        $_[0]->{indent_length} = $_[1];
+    }
+    $_[0];
+}
+
+sub get_indent_length {
+    $_[0]->{indent_length};
+}
+
+sub sort_by {
+    $_[0]->{sort_by} = defined $_[1] ? $_[1] : 1;
+    $_[0];
+}
+
+sub allow_bigint {
+    Carp::carp("allow_bigint() is obsoleted. use allow_bignum() instead.");
+    $_[0]->allow_bignum;
+}
+
+###############################
+
+###
+### Perl => JSON
+###
+
+
+{ # Convert
+
+    my $max_depth;
+    my $indent;
+    my $ascii;
+    my $latin1;
+    my $utf8;
+    my $space_before;
+    my $space_after;
+    my $canonical;
+    my $allow_blessed;
+    my $convert_blessed;
+
+    my $indent_length;
+    my $escape_slash;
+    my $bignum;
+    my $as_nonblessed;
+
+    my $depth;
+    my $indent_count;
+    my $keysort;
+
+
+    sub PP_encode_json {
+        my $self = shift;
+        my $obj  = shift;
+
+        $indent_count = 0;
+        $depth        = 0;
+
+        my $props = $self->{PROPS};
+
+        ($ascii, $latin1, $utf8, $indent, $canonical, $space_before, $space_after, $allow_blessed,
+            $convert_blessed, $escape_slash, $bignum, $as_nonblessed)
+         = @{$props}[P_ASCII .. P_SPACE_AFTER, P_ALLOW_BLESSED, P_CONVERT_BLESSED,
+                    P_ESCAPE_SLASH, P_ALLOW_BIGNUM, P_AS_NONBLESSED];
+
+        ($max_depth, $indent_length) = @{$self}{qw/max_depth indent_length/};
+
+        $keysort = $canonical ? sub { $a cmp $b } : undef;
+
+        if ($self->{sort_by}) {
+            $keysort = ref($self->{sort_by}) eq 'CODE' ? $self->{sort_by}
+                     : $self->{sort_by} =~ /\D+/       ? $self->{sort_by}
+                     : sub { $a cmp $b };
+        }
+
+        encode_error("hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this)")
+             if(!ref $obj and !$props->[ P_ALLOW_NONREF ]);
+
+        my $str  = $self->object_to_json($obj);
+
+        $str .= "\n" if ( $indent ); # JSON::XS 2.26 compatible
+
+        unless ($ascii or $latin1 or $utf8) {
+            utf8::upgrade($str);
+        }
+
+        if ($props->[ P_SHRINK ]) {
+            utf8::downgrade($str, 1);
+        }
+
+        return $str;
+    }
+
+
+    sub object_to_json {
+        my ($self, $obj) = @_;
+        my $type = ref($obj);
+
+        if($type eq 'HASH'){
+            return $self->hash_to_json($obj);
+        }
+        elsif($type eq 'ARRAY'){
+            return $self->array_to_json($obj);
+        }
+        elsif ($type) { # blessed object?
+            if (blessed($obj)) {
+
+                return $self->value_to_json($obj) if ( $obj->isa('JSON::PP::Boolean') );
+
+                if ( $convert_blessed and $obj->can('TO_JSON') ) {
+                    my $result = $obj->TO_JSON();
+                    if ( defined $result and ref( $result ) ) {
+                        if ( refaddr( $obj ) eq refaddr( $result ) ) {
+                            encode_error( sprintf(
+                                "%s::TO_JSON method returned same object as was passed instead of a new one",
+                                ref $obj
+                            ) );
+                        }
+                    }
+
+                    return $self->object_to_json( $result );
+                }
+
+                return "$obj" if ( $bignum and _is_bignum($obj) );
+
+                if ($allow_blessed) {
+                    return $self->blessed_to_json($obj) if ($as_nonblessed); # will be removed.
+                    return 'null';
+                }
+                encode_error( sprintf("encountered object '%s', but neither allow_blessed "
+                    . "nor convert_blessed settings are enabled", $obj)
+                );
+            }
+            else {
+                return $self->value_to_json($obj);
+            }
+        }
+        else{
+            return $self->value_to_json($obj);
+        }
+    }
+
+
+    sub hash_to_json {
+        my ($self, $obj) = @_;
+        my @res;
+
+        encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)")
+                                         if (++$depth > $max_depth);
+
+        my ($pre, $post) = $indent ? $self->_up_indent() : ('', '');
+        my $del = ($space_before ? ' ' : '') . ':' . ($space_after ? ' ' : '');
+
+        for my $k ( _sort( $obj ) ) {
+            if ( OLD_PERL ) { utf8::decode($k) } # key for Perl 5.6 / be optimized
+            push @res, $self->string_to_json( $k )
+                          .  $del
+                          . ( ref $obj->{$k} ? $self->object_to_json( $obj->{$k} ) : $self->value_to_json( $obj->{$k} ) );
+        }
+
+        --$depth;
+        $self->_down_indent() if ($indent);
+
+        return '{}' unless @res;
+        return '{' . $pre . join( ",$pre", @res ) . $post . '}';
+    }
+
+
+    sub array_to_json {
+        my ($self, $obj) = @_;
+        my @res;
+
+        encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)")
+                                         if (++$depth > $max_depth);
+
+        my ($pre, $post) = $indent ? $self->_up_indent() : ('', '');
+
+        for my $v (@$obj){
+            push @res, ref($v) ? $self->object_to_json($v) : $self->value_to_json($v);
+        }
+
+        --$depth;
+        $self->_down_indent() if ($indent);
+
+        return '[]' unless @res;
+        return '[' . $pre . join( ",$pre", @res ) . $post . ']';
+    }
+
+    sub _looks_like_number {
+        my $value = shift;
+        if (USE_B) {
+            my $b_obj = B::svref_2object(\$value);
+            my $flags = $b_obj->FLAGS;
+            return 1 if $flags & ( B::SVp_IOK() | B::SVp_NOK() ) and !( $flags & B::SVp_POK() );
+            return;
+        } else {
+            no warnings 'numeric';
+            # if the utf8 flag is on, it almost certainly started as a string
+            return if utf8::is_utf8($value);
+            # detect numbers
+            # string & "" -> ""
+            # number & "" -> 0 (with warning)
+            # nan and inf can detect as numbers, so check with * 0
+            return unless length((my $dummy = "") & $value);
+            return unless 0 + $value eq $value;
+            return 1 if $value * 0 == 0;
+            return -1; # inf/nan
+        }
+    }
+
+    sub value_to_json {
+        my ($self, $value) = @_;
+
+        return 'null' if(!defined $value);
+
+        my $type = ref($value);
+
+        if (!$type) {
+            if (_looks_like_number($value)) {
+                return $value;
+            }
+            return $self->string_to_json($value);
+        }
+        elsif( blessed($value) and  $value->isa('JSON::PP::Boolean') ){
+            return $$value == 1 ? 'true' : 'false';
+        }
+        else {
+            if ((overload::StrVal($value) =~ /=(\w+)/)[0]) {
+                return $self->value_to_json("$value");
+            }
+
+            if ($type eq 'SCALAR' and defined $$value) {
+                return   $$value eq '1' ? 'true'
+                       : $$value eq '0' ? 'false'
+                       : $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ? 'null'
+                       : encode_error("cannot encode reference to scalar");
+            }
+
+            if ( $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ) {
+                return 'null';
+            }
+            else {
+                if ( $type eq 'SCALAR' or $type eq 'REF' ) {
+                    encode_error("cannot encode reference to scalar");
+                }
+                else {
+                    encode_error("encountered $value, but JSON can only represent references to arrays or hashes");
+                }
+            }
+
+        }
+    }
+
+
+    my %esc = (
+        "\n" => '\n',
+        "\r" => '\r',
+        "\t" => '\t',
+        "\f" => '\f',
+        "\b" => '\b',
+        "\"" => '\"',
+        "\\" => '\\\\',
+        "\'" => '\\\'',
+    );
+
+
+    sub string_to_json {
+        my ($self, $arg) = @_;
+
+        $arg =~ s/([\x22\x5c\n\r\t\f\b])/$esc{$1}/g;
+        $arg =~ s/\//\\\//g if ($escape_slash);
+        $arg =~ s/([\x00-\x08\x0b\x0e-\x1f])/'\\u00' . unpack('H2', $1)/eg;
+
+        if ($ascii) {
+            $arg = JSON_PP_encode_ascii($arg);
+        }
+
+        if ($latin1) {
+            $arg = JSON_PP_encode_latin1($arg);
+        }
+
+        if ($utf8) {
+            utf8::encode($arg);
+        }
+
+        return '"' . $arg . '"';
+    }
+
+
+    sub blessed_to_json {
+        my $reftype = reftype($_[1]) || '';
+        if ($reftype eq 'HASH') {
+            return $_[0]->hash_to_json($_[1]);
+        }
+        elsif ($reftype eq 'ARRAY') {
+            return $_[0]->array_to_json($_[1]);
+        }
+        else {
+            return 'null';
+        }
+    }
+
+
+    sub encode_error {
+        my $error  = shift;
+        Carp::croak "$error";
+    }
+
+
+    sub _sort {
+        defined $keysort ? (sort $keysort (keys %{$_[0]})) : keys %{$_[0]};
+    }
+
+
+    sub _up_indent {
+        my $self  = shift;
+        my $space = ' ' x $indent_length;
+
+        my ($pre,$post) = ('','');
+
+        $post = "\n" . $space x $indent_count;
+
+        $indent_count++;
+
+        $pre = "\n" . $space x $indent_count;
+
+        return ($pre,$post);
+    }
+
+
+    sub _down_indent { $indent_count--; }
+
+
+    sub PP_encode_box {
+        {
+            depth        => $depth,
+            indent_count => $indent_count,
+        };
+    }
+
+} # Convert
+
+
+sub _encode_ascii {
+    join('',
+        map {
+            $_ <= 127 ?
+                chr($_) :
+            $_ <= 65535 ?
+                sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_));
+        } unpack('U*', $_[0])
+    );
+}
+
+
+sub _encode_latin1 {
+    join('',
+        map {
+            $_ <= 255 ?
+                chr($_) :
+            $_ <= 65535 ?
+                sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_));
+        } unpack('U*', $_[0])
+    );
+}
+
+
+sub _encode_surrogates { # from perlunicode
+    my $uni = $_[0] - 0x10000;
+    return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00);
+}
+
+
+sub _is_bignum {
+    $_[0]->isa('Math::BigInt') or $_[0]->isa('Math::BigFloat');
+}
+
+
+
+#
+# JSON => Perl
+#
+
+my $max_intsize;
+
+BEGIN {
+    my $checkint = 1111;
+    for my $d (5..64) {
+        $checkint .= 1;
+        my $int   = eval qq| $checkint |;
+        if ($int =~ /[eE]/) {
+            $max_intsize = $d - 1;
+            last;
+        }
+    }
+}
+
+{ # PARSE 
+
+    my %escapes = ( #  by Jeremy Muhlich <jmuhlich [at] bitflood.org>
+        b    => "\x8",
+        t    => "\x9",
+        n    => "\xA",
+        f    => "\xC",
+        r    => "\xD",
+        '\\' => '\\',
+        '"'  => '"',
+        '/'  => '/',
+    );
+
+    my $text; # json data
+    my $at;   # offset
+    my $ch;   # first character
+    my $len;  # text length (changed according to UTF8 or NON UTF8)
+    # INTERNAL
+    my $depth;          # nest counter
+    my $encoding;       # json text encoding
+    my $is_valid_utf8;  # temp variable
+    my $utf8_len;       # utf8 byte length
+    # FLAGS
+    my $utf8;           # must be utf8
+    my $max_depth;      # max nest number of objects and arrays
+    my $max_size;
+    my $relaxed;
+    my $cb_object;
+    my $cb_sk_object;
+
+    my $F_HOOK;
+
+    my $allow_bignum;   # using Math::BigInt/BigFloat
+    my $singlequote;    # loosely quoting
+    my $loose;          # 
+    my $allow_barekey;  # bareKey
+
+    sub _detect_utf_encoding {
+        my $text = shift;
+        my @octets = unpack('C4', $text);
+        return 'unknown' unless defined $octets[3];
+        return ( $octets[0] and  $octets[1]) ? 'UTF-8'
+             : (!$octets[0] and  $octets[1]) ? 'UTF-16BE'
+             : (!$octets[0] and !$octets[1]) ? 'UTF-32BE'
+             : ( $octets[2]                ) ? 'UTF-16LE'
+             : (!$octets[2]                ) ? 'UTF-32LE'
+             : 'unknown';
+    }
+
+    sub PP_decode_json {
+        my ($self, $want_offset);
+
+        ($self, $text, $want_offset) = @_;
+
+        ($at, $ch, $depth) = (0, '', 0);
+
+        if ( !defined $text or ref $text ) {
+            decode_error("malformed JSON string, neither array, object, number, string or atom");
+        }
+
+        my $props = $self->{PROPS};
+
+        ($utf8, $relaxed, $loose, $allow_bignum, $allow_barekey, $singlequote)
+            = @{$props}[P_UTF8, P_RELAXED, P_LOOSE .. P_ALLOW_SINGLEQUOTE];
+
+        if ( $utf8 ) {
+            $encoding = _detect_utf_encoding($text);
+            if ($encoding ne 'UTF-8' and $encoding ne 'unknown') {
+                require Encode;
+                Encode::from_to($text, $encoding, 'utf-8');
+            } else {
+                utf8::downgrade( $text, 1 ) or Carp::croak("Wide character in subroutine entry");
+            }
+        }
+        else {
+            utf8::upgrade( $text );
+            utf8::encode( $text );
+        }
+
+        $len = length $text;
+
+        ($max_depth, $max_size, $cb_object, $cb_sk_object, $F_HOOK)
+             = @{$self}{qw/max_depth  max_size cb_object cb_sk_object F_HOOK/};
+
+        if ($max_size > 1) {
+            use bytes;
+            my $bytes = length $text;
+            decode_error(
+                sprintf("attempted decode of JSON text of %s bytes size, but max_size is set to %s"
+                    , $bytes, $max_size), 1
+            ) if ($bytes > $max_size);
+        }
+
+        white(); # remove head white space
+
+        decode_error("malformed JSON string, neither array, object, number, string or atom") unless defined $ch; # Is there a first character for JSON structure?
+
+        my $result = value();
+
+        if ( !$props->[ P_ALLOW_NONREF ] and !ref $result ) {
+                decode_error(
+                'JSON text must be an object or array (but found number, string, true, false or null,'
+                       . ' use allow_nonref to allow this)', 1);
+        }
+
+        Carp::croak('something wrong.') if $len < $at; # we won't arrive here.
+
+        my $consumed = defined $ch ? $at - 1 : $at; # consumed JSON text length
+
+        white(); # remove tail white space
+
+        return ( $result, $consumed ) if $want_offset; # all right if decode_prefix
+
+        decode_error("garbage after JSON object") if defined $ch;
+
+        $result;
+    }
+
+
+    sub next_chr {
+        return $ch = undef if($at >= $len);
+        $ch = substr($text, $at++, 1);
+    }
+
+
+    sub value {
+        white();
+        return          if(!defined $ch);
+        return object() if($ch eq '{');
+        return array()  if($ch eq '[');
+        return string() if($ch eq '"' or ($singlequote and $ch eq "'"));
+        return number() if($ch =~ /[0-9]/ or $ch eq '-');
+        return word();
+    }
+
+    sub string {
+        my $utf16;
+        my $is_utf8;
+
+        ($is_valid_utf8, $utf8_len) = ('', 0);
+
+        my $s = ''; # basically UTF8 flag on
+
+        if($ch eq '"' or ($singlequote and $ch eq "'")){
+            my $boundChar = $ch;
+
+            OUTER: while( defined(next_chr()) ){
+
+                if($ch eq $boundChar){
+                    next_chr();
+
+                    if ($utf16) {
+                        decode_error("missing low surrogate character in surrogate pair");
+                    }
+
+                    utf8::decode($s) if($is_utf8);
+
+                    return $s;
+                }
+                elsif($ch eq '\\'){
+                    next_chr();
+                    if(exists $escapes{$ch}){
+                        $s .= $escapes{$ch};
+                    }
+                    elsif($ch eq 'u'){ # UNICODE handling
+                        my $u = '';
+
+                        for(1..4){
+                            $ch = next_chr();
+                            last OUTER if($ch !~ /[0-9a-fA-F]/);
+                            $u .= $ch;
+                        }
+
+                        # U+D800 - U+DBFF
+                        if ($u =~ /^[dD][89abAB][0-9a-fA-F]{2}/) { # UTF-16 high surrogate?
+                            $utf16 = $u;
+                        }
+                        # U+DC00 - U+DFFF
+                        elsif ($u =~ /^[dD][c-fC-F][0-9a-fA-F]{2}/) { # UTF-16 low surrogate?
+                            unless (defined $utf16) {
+                                decode_error("missing high surrogate character in surrogate pair");
+                            }
+                            $is_utf8 = 1;
+                            $s .= JSON_PP_decode_surrogates($utf16, $u) || next;
+                            $utf16 = undef;
+                        }
+                        else {
+                            if (defined $utf16) {
+                                decode_error("surrogate pair expected");
+                            }
+
+                            if ( ( my $hex = hex( $u ) ) > 127 ) {
+                                $is_utf8 = 1;
+                                $s .= JSON_PP_decode_unicode($u) || next;
+                            }
+                            else {
+                                $s .= chr $hex;
+                            }
+                        }
+
+                    }
+                    else{
+                        unless ($loose) {
+                            $at -= 2;
+                            decode_error('illegal backslash escape sequence in string');
+                        }
+                        $s .= $ch;
+                    }
+                }
+                else{
+
+                    if ( ord $ch  > 127 ) {
+                        unless( $ch = is_valid_utf8($ch) ) {
+                            $at -= 1;
+                            decode_error("malformed UTF-8 character in JSON string");
+                        }
+                        else {
+                            $at += $utf8_len - 1;
+                        }
+
+                        $is_utf8 = 1;
+                    }
+
+                    if (!$loose) {
+                        if ($ch =~ /[\x00-\x1f\x22\x5c]/)  { # '/' ok
+                            $at--;
+                            decode_error('invalid character encountered while parsing JSON string');
+                        }
+                    }
+
+                    $s .= $ch;
+                }
+            }
+        }
+
+        decode_error("unexpected end of string while parsing JSON string");
+    }
+
+
+    sub white {
+        while( defined $ch  ){
+            if($ch eq '' or $ch =~ /\A[ \t\r\n]\z/){
+                next_chr();
+            }
+            elsif($relaxed and $ch eq '/'){
+                next_chr();
+                if(defined $ch and $ch eq '/'){
+                    1 while(defined(next_chr()) and $ch ne "\n" and $ch ne "\r");
+                }
+                elsif(defined $ch and $ch eq '*'){
+                    next_chr();
+                    while(1){
+                        if(defined $ch){
+                            if($ch eq '*'){
+                                if(defined(next_chr()) and $ch eq '/'){
+                                    next_chr();
+                                    last;
+                                }
+                            }
+                            else{
+                                next_chr();
+                            }
+                        }
+                        else{
+                            decode_error("Unterminated comment");
+                        }
+                    }
+                    next;
+                }
+                else{
+                    $at--;
+                    decode_error("malformed JSON string, neither array, object, number, string or atom");
+                }
+            }
+            else{
+                if ($relaxed and $ch eq '#') { # correctly?
+                    pos($text) = $at;
+                    $text =~ /\G([^\n]*(?:\r\n|\r|\n|$))/g;
+                    $at = pos($text);
+                    next_chr;
+                    next;
+                }
+
+                last;
+            }
+        }
+    }
+
+
+    sub array {
+        my $a  = $_[0] || []; # you can use this code to use another array ref object.
+
+        decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)')
+                                                    if (++$depth > $max_depth);
+
+        next_chr();
+        white();
+
+        if(defined $ch and $ch eq ']'){
+            --$depth;
+            next_chr();
+            return $a;
+        }
+        else {
+            while(defined($ch)){
+                push @$a, value();
+
+                white();
+
+                if (!defined $ch) {
+                    last;
+                }
+
+                if($ch eq ']'){
+                    --$depth;
+                    next_chr();
+                    return $a;
+                }
+
+                if($ch ne ','){
+                    last;
+                }
+
+                next_chr();
+                white();
+
+                if ($relaxed and $ch eq ']') {
+                    --$depth;
+                    next_chr();
+                    return $a;
+                }
+
+            }
+        }
+
+        $at-- if defined $ch and $ch ne '';
+        decode_error(", or ] expected while parsing array");
+    }
+
+
+    sub object {
+        my $o = $_[0] || {}; # you can use this code to use another hash ref object.
+        my $k;
+
+        decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)')
+                                                if (++$depth > $max_depth);
+        next_chr();
+        white();
+
+        if(defined $ch and $ch eq '}'){
+            --$depth;
+            next_chr();
+            if ($F_HOOK) {
+                return _json_object_hook($o);
+            }
+            return $o;
+        }
+        else {
+            while (defined $ch) {
+                $k = ($allow_barekey and $ch ne '"' and $ch ne "'") ? bareKey() : string();
+                white();
+
+                if(!defined $ch or $ch ne ':'){
+                    $at--;
+                    decode_error("':' expected");
+                }
+
+                next_chr();
+                $o->{$k} = value();
+                white();
+
+                last if (!defined $ch);
+
+                if($ch eq '}'){
+                    --$depth;
+                    next_chr();
+                    if ($F_HOOK) {
+                        return _json_object_hook($o);
+                    }
+                    return $o;
+                }
+
+                if($ch ne ','){
+                    last;
+                }
+
+                next_chr();
+                white();
+
+                if ($relaxed and $ch eq '}') {
+                    --$depth;
+                    next_chr();
+                    if ($F_HOOK) {
+                        return _json_object_hook($o);
+                    }
+                    return $o;
+                }
+
+            }
+
+        }
+
+        $at-- if defined $ch and $ch ne '';
+        decode_error(", or } expected while parsing object/hash");
+    }
+
+
+    sub bareKey { # doesn't strictly follow Standard ECMA-262 3rd Edition
+        my $key;
+        while($ch =~ /[^\x00-\x23\x25-\x2F\x3A-\x40\x5B-\x5E\x60\x7B-\x7F]/){
+            $key .= $ch;
+            next_chr();
+        }
+        return $key;
+    }
+
+
+    sub word {
+        my $word =  substr($text,$at-1,4);
+
+        if($word eq 'true'){
+            $at += 3;
+            next_chr;
+            return $JSON::PP::true;
+        }
+        elsif($word eq 'null'){
+            $at += 3;
+            next_chr;
+            return undef;
+        }
+        elsif($word eq 'fals'){
+            $at += 3;
+            if(substr($text,$at,1) eq 'e'){
+                $at++;
+                next_chr;
+                return $JSON::PP::false;
+            }
+        }
+
+        $at--; # for decode_error report
+
+        decode_error("'null' expected")  if ($word =~ /^n/);
+        decode_error("'true' expected")  if ($word =~ /^t/);
+        decode_error("'false' expected") if ($word =~ /^f/);
+        decode_error("malformed JSON string, neither array, object, number, string or atom");
+    }
+
+
+    sub number {
+        my $n    = '';
+        my $v;
+        my $is_dec;
+        my $is_exp;
+
+        if($ch eq '-'){
+            $n = '-';
+            next_chr;
+            if (!defined $ch or $ch !~ /\d/) {
+                decode_error("malformed number (no digits after initial minus)");
+            }
+        }
+
+        # According to RFC4627, hex or oct digits are invalid.
+        if($ch eq '0'){
+            my $peek = substr($text,$at,1);
+            if($peek =~ /^[0-9a-dfA-DF]/){ # e may be valid (exponential)
+                decode_error("malformed number (leading zero must not be followed by another digit)");
+            }
+            $n .= $ch;
+            next_chr;
+        }
+
+        while(defined $ch and $ch =~ /\d/){
+            $n .= $ch;
+            next_chr;
+        }
+
+        if(defined $ch and $ch eq '.'){
+            $n .= '.';
+            $is_dec = 1;
+
+            next_chr;
+            if (!defined $ch or $ch !~ /\d/) {
+                decode_error("malformed number (no digits after decimal point)");
+            }
+            else {
+                $n .= $ch;
+            }
+
+            while(defined(next_chr) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+        }
+
+        if(defined $ch and ($ch eq 'e' or $ch eq 'E')){
+            $n .= $ch;
+            $is_exp = 1;
+            next_chr;
+
+            if(defined($ch) and ($ch eq '+' or $ch eq '-')){
+                $n .= $ch;
+                next_chr;
+                if (!defined $ch or $ch =~ /\D/) {
+                    decode_error("malformed number (no digits after exp sign)");
+                }
+                $n .= $ch;
+            }
+            elsif(defined($ch) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+            else {
+                decode_error("malformed number (no digits after exp sign)");
+            }
+
+            while(defined(next_chr) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+
+        }
+
+        $v .= $n;
+
+        if ($is_dec or $is_exp) {
+            if ($allow_bignum) {
+                require Math::BigFloat;
+                return Math::BigFloat->new($v);
+            }
+        } else {
+            if (length $v > $max_intsize) {
+                if ($allow_bignum) { # from Adam Sussman
+                    require Math::BigInt;
+                    return Math::BigInt->new($v);
+                }
+                else {
+                    return "$v";
+                }
+            }
+        }
+
+        return $is_dec ? $v/1.0 : 0+$v;
+    }
+
+
+    sub is_valid_utf8 {
+
+        $utf8_len = $_[0] =~ /[\x00-\x7F]/  ? 1
+                  : $_[0] =~ /[\xC2-\xDF]/  ? 2
+                  : $_[0] =~ /[\xE0-\xEF]/  ? 3
+                  : $_[0] =~ /[\xF0-\xF4]/  ? 4
+                  : 0
+                  ;
+
+        return unless $utf8_len;
+
+        my $is_valid_utf8 = substr($text, $at - 1, $utf8_len);
+
+        return ( $is_valid_utf8 =~ /^(?:
+             [\x00-\x7F]
+            |[\xC2-\xDF][\x80-\xBF]
+            |[\xE0][\xA0-\xBF][\x80-\xBF]
+            |[\xE1-\xEC][\x80-\xBF][\x80-\xBF]
+            |[\xED][\x80-\x9F][\x80-\xBF]
+            |[\xEE-\xEF][\x80-\xBF][\x80-\xBF]
+            |[\xF0][\x90-\xBF][\x80-\xBF][\x80-\xBF]
+            |[\xF1-\xF3][\x80-\xBF][\x80-\xBF][\x80-\xBF]
+            |[\xF4][\x80-\x8F][\x80-\xBF][\x80-\xBF]
+        )$/x )  ? $is_valid_utf8 : '';
+    }
+
+
+    sub decode_error {
+        my $error  = shift;
+        my $no_rep = shift;
+        my $str    = defined $text ? substr($text, $at) : '';
+        my $mess   = '';
+        my $type   = 'U*';
+
+        if ( OLD_PERL ) {
+            my $type   =  $] <  5.006           ? 'C*'
+                        : utf8::is_utf8( $str ) ? 'U*' # 5.6
+                        : 'C*'
+                        ;
+        }
+
+        for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ?
+            $mess .=  $c == 0x07 ? '\a'
+                    : $c == 0x09 ? '\t'
+                    : $c == 0x0a ? '\n'
+                    : $c == 0x0d ? '\r'
+                    : $c == 0x0c ? '\f'
+                    : $c <  0x20 ? sprintf('\x{%x}', $c)
+                    : $c == 0x5c ? '\\\\'
+                    : $c <  0x80 ? chr($c)
+                    : sprintf('\x{%x}', $c)
+                    ;
+            if ( length $mess >= 20 ) {
+                $mess .= '...';
+                last;
+            }
+        }
+
+        unless ( length $mess ) {
+            $mess = '(end of string)';
+        }
+
+        Carp::croak (
+            $no_rep ? "$error" : "$error, at character offset $at (before \"$mess\")"
+        );
+
+    }
+
+
+    sub _json_object_hook {
+        my $o    = $_[0];
+        my @ks = keys %{$o};
+
+        if ( $cb_sk_object and @ks == 1 and exists $cb_sk_object->{ $ks[0] } and ref $cb_sk_object->{ $ks[0] } ) {
+            my @val = $cb_sk_object->{ $ks[0] }->( $o->{$ks[0]} );
+            if (@val == 1) {
+                return $val[0];
+            }
+        }
+
+        my @val = $cb_object->($o) if ($cb_object);
+        if (@val == 0 or @val > 1) {
+            return $o;
+        }
+        else {
+            return $val[0];
+        }
+    }
+
+
+    sub PP_decode_box {
+        {
+            text    => $text,
+            at      => $at,
+            ch      => $ch,
+            len     => $len,
+            depth   => $depth,
+            encoding      => $encoding,
+            is_valid_utf8 => $is_valid_utf8,
+        };
+    }
+
+} # PARSE
+
+
+sub _decode_surrogates { # from perlunicode
+    my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00);
+    my $un  = pack('U*', $uni);
+    utf8::encode( $un );
+    return $un;
+}
+
+
+sub _decode_unicode {
+    my $un = pack('U', hex shift);
+    utf8::encode( $un );
+    return $un;
+}
+
+#
+# Setup for various Perl versions (the code from JSON::PP58)
+#
+
+BEGIN {
+
+    unless ( defined &utf8::is_utf8 ) {
+       require Encode;
+       *utf8::is_utf8 = *Encode::is_utf8;
+    }
+
+    if ( !OLD_PERL ) {
+        *JSON::PP::JSON_PP_encode_ascii      = \&_encode_ascii;
+        *JSON::PP::JSON_PP_encode_latin1     = \&_encode_latin1;
+        *JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
+        *JSON::PP::JSON_PP_decode_unicode    = \&_decode_unicode;
+
+        if ($] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
+            package JSON::PP;
+            require subs;
+            subs->import('join');
+            eval q|
+                sub join {
+                    return '' if (@_ < 2);
+                    my $j   = shift;
+                    my $str = shift;
+                    for (@_) { $str .= $j . $_; }
+                    return $str;
+                }
+            |;
+        }
+    }
+
+
+    sub JSON::PP::incr_parse {
+        local $Carp::CarpLevel = 1;
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_parse( @_ );
+    }
+
+
+    sub JSON::PP::incr_skip {
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_skip;
+    }
+
+
+    sub JSON::PP::incr_reset {
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_reset;
+    }
+
+    eval q{
+        sub JSON::PP::incr_text : lvalue {
+            $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new;
+
+            if ( $_[0]->{_incr_parser}->{incr_pos} ) {
+                Carp::croak("incr_text cannot be called when the incremental parser already started parsing");
+            }
+            $_[0]->{_incr_parser}->{incr_text};
+        }
+    } if ( $] >= 5.006 );
+
+} # Setup for various Perl versions (the code from JSON::PP58)
+
+
+###############################
+# Utilities
+#
+
+BEGIN {
+    eval 'require Scalar::Util';
+    unless($@){
+        *JSON::PP::blessed = \&Scalar::Util::blessed;
+        *JSON::PP::reftype = \&Scalar::Util::reftype;
+        *JSON::PP::refaddr = \&Scalar::Util::refaddr;
+    }
+    else{ # This code is from Scalar::Util.
+        # warn $@;
+        eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
+        *JSON::PP::blessed = sub {
+            local($@, $SIG{__DIE__}, $SIG{__WARN__});
+            ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
+        };
+        require B;
+        my %tmap = qw(
+            B::NULL   SCALAR
+            B::HV     HASH
+            B::AV     ARRAY
+            B::CV     CODE
+            B::IO     IO
+            B::GV     GLOB
+            B::REGEXP REGEXP
+        );
+        *JSON::PP::reftype = sub {
+            my $r = shift;
+
+            return undef unless length(ref($r));
+
+            my $t = ref(B::svref_2object($r));
+
+            return
+                exists $tmap{$t} ? $tmap{$t}
+              : length(ref($$r)) ? 'REF'
+              :                    'SCALAR';
+        };
+        *JSON::PP::refaddr = sub {
+          return undef unless length(ref($_[0]));
+
+          my $addr;
+          if(defined(my $pkg = blessed($_[0]))) {
+            $addr .= bless $_[0], 'Scalar::Util::Fake';
+            bless $_[0], $pkg;
+          }
+          else {
+            $addr .= $_[0]
+          }
+
+          $addr =~ /0x(\w+)/;
+          local $^W;
+          #no warnings 'portable';
+          hex($1);
+        }
+    }
+}
+
+
+# shamelessly copied and modified from JSON::XS code.
+
+$JSON::PP::true  = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
+$JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
+
+sub is_bool { blessed $_[0] and $_[0]->isa("JSON::PP::Boolean"); }
+
+sub true  { $JSON::PP::true  }
+sub false { $JSON::PP::false }
+sub null  { undef; }
+
+###############################
+
+package JSON::PP::IncrParser;
+
+use strict;
+
+use constant INCR_M_WS   => 0; # initial whitespace skipping
+use constant INCR_M_STR  => 1; # inside string
+use constant INCR_M_BS   => 2; # inside backslash
+use constant INCR_M_JSON => 3; # outside anything, count nesting
+use constant INCR_M_C0   => 4;
+use constant INCR_M_C1   => 5;
+
+$JSON::PP::IncrParser::VERSION = '1.01';
+
+sub new {
+    my ( $class ) = @_;
+
+    bless {
+        incr_nest    => 0,
+        incr_text    => undef,
+        incr_pos     => 0,
+        incr_mode    => 0,
+    }, $class;
+}
+
+
+sub incr_parse {
+    my ( $self, $coder, $text ) = @_;
+
+    $self->{incr_text} = '' unless ( defined $self->{incr_text} );
+
+    if ( defined $text ) {
+        if ( utf8::is_utf8( $text ) and !utf8::is_utf8( $self->{incr_text} ) ) {
+            utf8::upgrade( $self->{incr_text} ) ;
+            utf8::decode( $self->{incr_text} ) ;
+        }
+        $self->{incr_text} .= $text;
+    }
+
+    if ( defined wantarray ) {
+        my $max_size = $coder->get_max_size;
+        my $p = $self->{incr_pos};
+        my @ret;
+        {
+            do {
+                unless ( $self->{incr_nest} <= 0 and $self->{incr_mode} == INCR_M_JSON ) {
+                    $self->_incr_parse( $coder );
+
+                    if ( $max_size and $self->{incr_pos} > $max_size ) {
+                        Carp::croak("attempted decode of JSON text of $self->{incr_pos} bytes size, but max_size is set to $max_size");
+                    }
+                    unless ( $self->{incr_nest} <= 0 and $self->{incr_mode} == INCR_M_JSON ) {
+                        # as an optimisation, do not accumulate white space in the incr buffer
+                        if ( $self->{incr_mode} == INCR_M_WS and $self->{incr_pos} ) {
+                            $self->{incr_pos} = 0;
+                            $self->{incr_text} = '';
+                        }
+                        last;
+                    }
+                }
+
+                my ($obj, $offset) = $coder->PP_decode_json( $self->{incr_text}, 0x00000001 );
+                push @ret, $obj;
+                use bytes;
+                $self->{incr_text} = substr( $self->{incr_text}, $offset || 0 );
+                $self->{incr_pos} = 0;
+                $self->{incr_nest} = 0;
+                $self->{incr_mode} = 0;
+                last unless wantarray;
+            } while ( wantarray );
+        }
+
+        if ( wantarray ) {
+            return @ret;
+        }
+        else { # in scalar context
+            return $ret[0] ? $ret[0] : undef;
+        }
+    }
+}
+
+
+sub _incr_parse {
+    my ($self, $coder) = @_;
+    my $text = $self->{incr_text};
+    my $len = length $text;
+    my $p = $self->{incr_pos};
+
+INCR_PARSE:
+    while ( $len > $p ) {
+        my $s = substr( $text, $p, 1 );
+        last INCR_PARSE unless defined $s;
+        my $mode = $self->{incr_mode};
+
+        if ( $mode == INCR_M_WS ) {
+            while ( $len > $p ) {
+                $s = substr( $text, $p, 1 );
+                last INCR_PARSE unless defined $s;
+                if ( ord($s) > 0x20 ) {
+                    if ( $s eq '#' ) {
+                        $self->{incr_mode} = INCR_M_C0;
+                        redo INCR_PARSE;
+                    } else {
+                        $self->{incr_mode} = INCR_M_JSON;
+                        redo INCR_PARSE;
+                    }
+                }
+                $p++;
+            }
+        } elsif ( $mode == INCR_M_BS ) {
+            $p++;
+            $self->{incr_mode} = INCR_M_STR;
+            redo INCR_PARSE;
+        } elsif ( $mode == INCR_M_C0 or $mode == INCR_M_C1 ) {
+            while ( $len > $p ) {
+                $s = substr( $text, $p, 1 );
+                last INCR_PARSE unless defined $s;
+                if ( $s eq "\n" ) {
+                    $self->{incr_mode} = $self->{incr_mode} == INCR_M_C0 ? INCR_M_WS : INCR_M_JSON;
+                    last;
+                }
+                $p++;
+            }
+            next;
+        } elsif ( $mode == INCR_M_STR ) {
+            while ( $len > $p ) {
+                $s = substr( $text, $p, 1 );
+                last INCR_PARSE unless defined $s;
+                if ( $s eq '"' ) {
+                    $p++;
+                    $self->{incr_mode} = INCR_M_JSON;
+
+                    last INCR_PARSE unless $self->{incr_nest};
+                    redo INCR_PARSE;
+                }
+                elsif ( $s eq '\\' ) {
+                    $p++;
+                    if ( !defined substr($text, $p, 1) ) {
+                        $self->{incr_mode} = INCR_M_BS;
+                        last INCR_PARSE;
+                    }
+                }
+                $p++;
+            }
+        } elsif ( $mode == INCR_M_JSON ) {
+            while ( $len > $p ) {
+                $s = substr( $text, $p++, 1 );
+                if ( $s eq "\x00" ) {
+                    $p--;
+                    last INCR_PARSE;
+                } elsif ( $s eq "\x09" or $s eq "\x0a" or $s eq "\x0d" or $s eq "\x20" ) {
+                    if ( !$self->{incr_nest} ) {
+                        $p--; # do not eat the whitespace, let the next round do it
+                        last INCR_PARSE;
+                    }
+                    next;
+                } elsif ( $s eq '"' ) {
+                    $self->{incr_mode} = INCR_M_STR;
+                    redo INCR_PARSE;
+                } elsif ( $s eq '[' or $s eq '{' ) {
+                    if ( ++$self->{incr_nest} > $coder->get_max_depth ) {
+                        Carp::croak('json text or perl structure exceeds maximum nesting level (max_depth set too low?)');
+                    }
+                    next;
+                } elsif ( $s eq ']' or $s eq '}' ) {
+                    if ( --$self->{incr_nest} <= 0 ) {
+                        last INCR_PARSE;
+                    }
+                } elsif ( $s eq '#' ) {
+                    $self->{incr_mode} = INCR_M_C1;
+                    redo INCR_PARSE;
+                }
+            }
+        }
+    }
+
+    $self->{incr_pos} = $p;
+    $self->{incr_parsing} = $p ? 1 : 0; # for backward compatibility
+}
+
+
+sub incr_text {
+    if ( $_[0]->{incr_pos} ) {
+        Carp::croak("incr_text cannot be called when the incremental parser already started parsing");
+    }
+    $_[0]->{incr_text};
+}
+
+
+sub incr_skip {
+    my $self  = shift;
+    $self->{incr_text} = substr( $self->{incr_text}, $self->{incr_pos} );
+    $self->{incr_pos}     = 0;
+    $self->{incr_mode}    = 0;
+    $self->{incr_nest}    = 0;
+}
+
+
+sub incr_reset {
+    my $self = shift;
+    $self->{incr_text}    = undef;
+    $self->{incr_pos}     = 0;
+    $self->{incr_mode}    = 0;
+    $self->{incr_nest}    = 0;
+}
+
+###############################
+
+
+1;
+__END__
+package JSON::PP::Boolean;
+
+use strict;
+use overload (
+    "0+"     => sub { ${$_[0]} },
+    "++"     => sub { $_[0] = ${$_[0]} + 1 },
+    "--"     => sub { $_[0] = ${$_[0]} - 1 },
+    fallback => 1,
+);
+
+$JSON::PP::Boolean::VERSION = '2.97001';
+
+1;
+
+__END__
+
+
+package Test2::EventFacet;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Test2::Util::HashBase qw/-details/;
+use Carp qw/croak/;
+
+my $SUBLEN = length(__PACKAGE__ . '::');
+sub facet_key {
+    my $key = ref($_[0]) || $_[0];
+    substr($key, 0, $SUBLEN, '');
+    return lc($key);
+}
+
+sub is_list { 0 }
+
+sub clone {
+    my $self = shift;
+    my $type = ref($self);
+    return bless {%$self, @_}, $type;
+}
+
+1;
+
+__END__
+
+package Test2::API;
+use strict;
+use warnings;
+
+use Test2::Util qw/USE_THREADS/;
+
+BEGIN {
+    $ENV{TEST_ACTIVE} ||= 1;
+    $ENV{TEST2_ACTIVE} = 1;
+}
+
+our $VERSION = '1.302133';
+
+
+my $INST;
+my $ENDING = 0;
+sub test2_set_is_end { ($ENDING) = @_ ? @_ : (1) }
+sub test2_get_is_end { $ENDING }
+
+use Test2::API::Instance(\$INST);
+
+# Set the exit status
+END {
+    test2_set_is_end(); # See gh #16
+    $INST->set_exit();
+}
+
+sub CLONE {
+    my $init = test2_init_done();
+    my $load = test2_load_done();
+
+    return if $init && $load;
+
+    require Carp;
+    Carp::croak "Test2 must be fully loaded before you start a new thread!\n";
+}
+
+# See gh #16
+{
+    no warnings;
+    INIT { eval 'END { test2_set_is_end() }; 1' or die $@ }
+}
+
+BEGIN {
+    no warnings 'once';
+    if($] ge '5.014' || $ENV{T2_CHECK_DEPTH} || $Test2::API::DO_DEPTH_CHECK) {
+        *DO_DEPTH_CHECK = sub() { 1 };
+    }
+    else {
+        *DO_DEPTH_CHECK = sub() { 0 };
+    }
+}
+
+use Test2::EventFacet::Trace();
+use Test2::Util::Trace(); # Legacy
+
+use Test2::Hub::Subtest();
+use Test2::Hub::Interceptor();
+use Test2::Hub::Interceptor::Terminator();
+
+use Test2::Event::Ok();
+use Test2::Event::Diag();
+use Test2::Event::Note();
+use Test2::Event::Plan();
+use Test2::Event::Bail();
+use Test2::Event::Exception();
+use Test2::Event::Waiting();
+use Test2::Event::Skip();
+use Test2::Event::Subtest();
+
+use Carp qw/carp croak confess/;
+use Scalar::Util qw/blessed weaken/;
+use Test2::Util qw/get_tid clone_io pkg_to_file/;
+
+our @EXPORT_OK = qw{
+    context release
+    context_do
+    no_context
+    intercept intercept_deep
+    run_subtest
+
+    test2_init_done
+    test2_load_done
+    test2_load
+    test2_start_preload
+    test2_stop_preload
+    test2_in_preload
+
+    test2_set_is_end
+    test2_get_is_end
+
+    test2_pid
+    test2_tid
+    test2_stack
+    test2_no_wait
+    test2_ipc_wait_enable
+    test2_ipc_wait_disable
+    test2_ipc_wait_enabled
+
+    test2_add_uuid_via
+
+    test2_add_callback_context_aquire
+    test2_add_callback_context_acquire
+    test2_add_callback_context_init
+    test2_add_callback_context_release
+    test2_add_callback_exit
+    test2_add_callback_post_load
+    test2_add_callback_pre_subtest
+    test2_list_context_aquire_callbacks
+    test2_list_context_acquire_callbacks
+    test2_list_context_init_callbacks
+    test2_list_context_release_callbacks
+    test2_list_exit_callbacks
+    test2_list_post_load_callbacks
+    test2_list_pre_subtest_callbacks
+
+    test2_ipc
+    test2_has_ipc
+    test2_ipc_disable
+    test2_ipc_disabled
+    test2_ipc_drivers
+    test2_ipc_add_driver
+    test2_ipc_polling
+    test2_ipc_disable_polling
+    test2_ipc_enable_polling
+    test2_ipc_get_pending
+    test2_ipc_set_pending
+    test2_ipc_get_timeout
+    test2_ipc_set_timeout
+    test2_ipc_enable_shm
+
+    test2_formatter
+    test2_formatters
+    test2_formatter_add
+    test2_formatter_set
+
+    test2_stdout
+    test2_stderr
+    test2_reset_io
+};
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+
+my $STACK       = $INST->stack;
+my $CONTEXTS    = $INST->contexts;
+my $INIT_CBS    = $INST->context_init_callbacks;
+my $ACQUIRE_CBS = $INST->context_acquire_callbacks;
+
+my $STDOUT = clone_io(\*STDOUT);
+my $STDERR = clone_io(\*STDERR);
+sub test2_stdout { $STDOUT ||= clone_io(\*STDOUT) }
+sub test2_stderr { $STDERR ||= clone_io(\*STDERR) }
+
+sub test2_post_preload_reset {
+    test2_reset_io();
+    $INST->post_preload_reset;
+}
+
+sub test2_reset_io {
+    $STDOUT = clone_io(\*STDOUT);
+    $STDERR = clone_io(\*STDERR);
+}
+
+sub test2_init_done { $INST->finalized }
+sub test2_load_done { $INST->loaded }
+
+sub test2_load          { $INST->load }
+sub test2_start_preload { $ENV{T2_IN_PRELOAD} = 1; $INST->start_preload }
+sub test2_stop_preload  { $ENV{T2_IN_PRELOAD} = 0; $INST->stop_preload }
+sub test2_in_preload    { $INST->preload }
+
+sub test2_pid              { $INST->pid }
+sub test2_tid              { $INST->tid }
+sub test2_stack            { $INST->stack }
+sub test2_ipc_wait_enable  { $INST->set_no_wait(0) }
+sub test2_ipc_wait_disable { $INST->set_no_wait(1) }
+sub test2_ipc_wait_enabled { !$INST->no_wait }
+
+sub test2_no_wait {
+    $INST->set_no_wait(@_) if @_;
+    $INST->no_wait;
+}
+
+sub test2_add_callback_context_acquire   { $INST->add_context_acquire_callback(@_) }
+sub test2_add_callback_context_aquire    { $INST->add_context_acquire_callback(@_) }
+sub test2_add_callback_context_init      { $INST->add_context_init_callback(@_) }
+sub test2_add_callback_context_release   { $INST->add_context_release_callback(@_) }
+sub test2_add_callback_exit              { $INST->add_exit_callback(@_) }
+sub test2_add_callback_post_load         { $INST->add_post_load_callback(@_) }
+sub test2_add_callback_pre_subtest       { $INST->add_pre_subtest_callback(@_) }
+sub test2_list_context_aquire_callbacks  { @{$INST->context_acquire_callbacks} }
+sub test2_list_context_acquire_callbacks { @{$INST->context_acquire_callbacks} }
+sub test2_list_context_init_callbacks    { @{$INST->context_init_callbacks} }
+sub test2_list_context_release_callbacks { @{$INST->context_release_callbacks} }
+sub test2_list_exit_callbacks            { @{$INST->exit_callbacks} }
+sub test2_list_post_load_callbacks       { @{$INST->post_load_callbacks} }
+sub test2_list_pre_subtest_callbacks     { @{$INST->pre_subtest_callbacks} }
+
+sub test2_add_uuid_via {
+    $INST->set_add_uuid_via(@_) if @_;
+    $INST->add_uuid_via();
+}
+
+sub test2_ipc                 { $INST->ipc }
+sub test2_has_ipc             { $INST->has_ipc }
+sub test2_ipc_disable         { $INST->ipc_disable }
+sub test2_ipc_disabled        { $INST->ipc_disabled }
+sub test2_ipc_add_driver      { $INST->add_ipc_driver(@_) }
+sub test2_ipc_drivers         { @{$INST->ipc_drivers} }
+sub test2_ipc_polling         { $INST->ipc_polling }
+sub test2_ipc_enable_polling  { $INST->enable_ipc_polling }
+sub test2_ipc_disable_polling { $INST->disable_ipc_polling }
+sub test2_ipc_get_pending     { $INST->get_ipc_pending }
+sub test2_ipc_set_pending     { $INST->set_ipc_pending(@_) }
+sub test2_ipc_set_timeout     { $INST->set_ipc_timeout(@_) }
+sub test2_ipc_get_timeout     { $INST->ipc_timeout() }
+sub test2_ipc_enable_shm      { $INST->ipc_enable_shm }
+
+sub test2_formatter     {
+    if ($ENV{T2_FORMATTER} && $ENV{T2_FORMATTER} =~ m/^(\+)?(.*)$/) {
+        my $formatter = $1 ? $2 : "Test2::Formatter::$2";
+        my $file = pkg_to_file($formatter);
+        require $file;
+        return $formatter;
+    }
+
+    return $INST->formatter;
+}
+
+sub test2_formatters    { @{$INST->formatters} }
+sub test2_formatter_add { $INST->add_formatter(@_) }
+sub test2_formatter_set {
+    my ($formatter) = @_;
+    croak "No formatter specified" unless $formatter;
+    croak "Global Formatter already set" if $INST->formatter_set;
+    $INST->set_formatter($formatter);
+}
+
+# Private, for use in Test2::API::Context
+sub _contexts_ref                  { $INST->contexts }
+sub _context_acquire_callbacks_ref { $INST->context_acquire_callbacks }
+sub _context_init_callbacks_ref    { $INST->context_init_callbacks }
+sub _context_release_callbacks_ref { $INST->context_release_callbacks }
+sub _add_uuid_via_ref              { \($INST->{Test2::API::Instance::ADD_UUID_VIA()}) }
+
+# Private, for use in Test2::IPC
+sub _set_ipc { $INST->set_ipc(@_) }
+
+sub context_do(&;@) {
+    my $code = shift;
+    my @args = @_;
+
+    my $ctx = context(level => 1);
+
+    my $want = wantarray;
+
+    my @out;
+    my $ok = eval {
+        $want          ? @out    = $code->($ctx, @args) :
+        defined($want) ? $out[0] = $code->($ctx, @args) :
+                                   $code->($ctx, @args) ;
+        1;
+    };
+    my $err = $@;
+
+    $ctx->release;
+
+    die $err unless $ok;
+
+    return @out    if $want;
+    return $out[0] if defined $want;
+    return;
+}
+
+sub no_context(&;$) {
+    my ($code, $hid) = @_;
+    $hid ||= $STACK->top->hid;
+
+    my $ctx = $CONTEXTS->{$hid};
+    delete $CONTEXTS->{$hid};
+    my $ok = eval { $code->(); 1 };
+    my $err = $@;
+
+    $CONTEXTS->{$hid} = $ctx;
+    weaken($CONTEXTS->{$hid});
+
+    die $err unless $ok;
+
+    return;
+};
+
+my $UUID_VIA = _add_uuid_via_ref();
+my $CID = 1;
+sub context {
+    # We need to grab these before anything else to ensure they are not
+    # changed.
+    my ($errno, $eval_error, $child_error, $extended_error) = (0 + $!, $@, $?, $^E);
+
+    my %params = (level => 0, wrapped => 0, @_);
+
+    # If something is getting a context then the sync system needs to be
+    # considered loaded...
+    $INST->load unless $INST->{loaded};
+
+    croak "context() called, but return value is ignored"
+        unless defined wantarray;
+
+    my $stack   = $params{stack} || $STACK;
+    my $hub     = $params{hub}   || (@$stack ? $stack->[-1] : $stack->top);
+    my $hid     = $hub->{hid};
+    my $current = $CONTEXTS->{$hid};
+
+    $_->(\%params) for @$ACQUIRE_CBS;
+    map $_->(\%params), @{$hub->{_context_acquire}} if $hub->{_context_acquire};
+
+    # This is for https://github.com/Test-More/test-more/issues/16
+    # and https://rt.perl.org/Public/Bug/Display.html?id=127774
+    my $phase = ${^GLOBAL_PHASE} || 'NA';
+    my $end_phase = $ENDING || $phase eq 'END' || $phase eq 'DESTRUCT';
+
+    my $level = 1 + $params{level};
+    my ($pkg, $file, $line, $sub) = $end_phase ? caller(0) : caller($level);
+    unless ($pkg || $end_phase) {
+        confess "Could not find context at depth $level" unless $params{fudge};
+        ($pkg, $file, $line, $sub) = caller(--$level) while ($level >= 0 && !$pkg);
+    }
+
+    my $depth = $level;
+    $depth++ while DO_DEPTH_CHECK && !$end_phase && (!$current || $depth <= $current->{_depth} + $params{wrapped}) && caller($depth + 1);
+    $depth -= $params{wrapped};
+    my $depth_ok = !DO_DEPTH_CHECK || $end_phase || !$current || $current->{_depth} < $depth;
+
+    if ($current && $params{on_release} && $depth_ok) {
+        $current->{_on_release} ||= [];
+        push @{$current->{_on_release}} => $params{on_release};
+    }
+
+    # I know this is ugly....
+    ($!, $@, $?, $^E) = ($errno, $eval_error, $child_error, $extended_error) and return bless(
+        {
+            %$current,
+            _is_canon   => undef,
+            errno       => $errno,
+            eval_error  => $eval_error,
+            child_error => $child_error,
+            _is_spawn   => [$pkg, $file, $line, $sub],
+        },
+        'Test2::API::Context'
+    ) if $current && $depth_ok;
+
+    # Handle error condition of bad level
+    if ($current) {
+        unless (${$current->{_aborted}}) {
+            _canon_error($current, [$pkg, $file, $line, $sub, $depth])
+                unless $current->{_is_canon};
+
+            _depth_error($current, [$pkg, $file, $line, $sub, $depth])
+                unless $depth_ok;
+        }
+
+        $current->release if $current->{_is_canon};
+
+        delete $CONTEXTS->{$hid};
+    }
+
+    # Directly bless the object here, calling new is a noticeable performance
+    # hit with how often this needs to be called.
+    my $trace = bless(
+        {
+            frame  => [$pkg, $file, $line, $sub],
+            pid    => $$,
+            tid    => get_tid(),
+            cid    => 'C' . $CID++,
+            hid    => $hid,
+            nested => $hub->{nested},
+            buffered => $hub->{buffered},
+
+            $$UUID_VIA ? (
+                huuid => $hub->{uuid},
+                uuid  => ${$UUID_VIA}->('context'),
+            ) : (),
+        },
+        'Test2::EventFacet::Trace'
+    );
+
+    # Directly bless the object here, calling new is a noticeable performance
+    # hit with how often this needs to be called.
+    my $aborted = 0;
+    $current = bless(
+        {
+            _aborted     => \$aborted,
+            stack        => $stack,
+            hub          => $hub,
+            trace        => $trace,
+            _is_canon    => 1,
+            _depth       => $depth,
+            errno        => $errno,
+            eval_error   => $eval_error,
+            child_error  => $child_error,
+            $params{on_release} ? (_on_release => [$params{on_release}]) : (),
+        },
+        'Test2::API::Context'
+    );
+
+    $CONTEXTS->{$hid} = $current;
+    weaken($CONTEXTS->{$hid});
+
+    $_->($current) for @$INIT_CBS;
+    map $_->($current), @{$hub->{_context_init}} if $hub->{_context_init};
+
+    $params{on_init}->($current) if $params{on_init};
+
+    ($!, $@, $?, $^E) = ($errno, $eval_error, $child_error, $extended_error);
+
+    return $current;
+}
+
+sub _depth_error {
+    _existing_error(@_, <<"    EOT");
+context() was called to retrieve an existing context, however the existing
+context was created in a stack frame at the same, or deeper level. This usually
+means that a tool failed to release the context when it was finished.
+    EOT
+}
+
+sub _canon_error {
+    _existing_error(@_, <<"    EOT");
+context() was called to retrieve an existing context, however the existing
+context has an invalid internal state (!_canon_count). This should not normally
+happen unless something is mucking about with internals...
+    EOT
+}
+
+sub _existing_error {
+    my ($ctx, $details, $msg) = @_;
+    my ($pkg, $file, $line, $sub, $depth) = @$details;
+
+    my $oldframe = $ctx->{trace}->frame;
+    my $olddepth = $ctx->{_depth};
+
+    # Older versions of Carp do not export longmess() function, so it needs to be called with package name
+    my $mess = Carp::longmess();
+
+    warn <<"    EOT";
+$msg
+Old context details:
+   File: $oldframe->[1]
+   Line: $oldframe->[2]
+   Tool: $oldframe->[3]
+  Depth: $olddepth
+
+New context details:
+   File: $file
+   Line: $line
+   Tool: $sub
+  Depth: $depth
+
+Trace: $mess
+
+Removing the old context and creating a new one...
+    EOT
+}
+
+sub release($;$) {
+    $_[0]->release;
+    return $_[1];
+}
+
+sub intercept(&) {
+    my $code = shift;
+    my $ctx = context();
+
+    my $events = _intercept($code, deep => 0);
+
+    $ctx->release;
+
+    return $events;
+}
+
+sub intercept_deep(&) {
+    my $code = shift;
+    my $ctx = context();
+
+    my $events = _intercept($code, deep => 1);
+
+    $ctx->release;
+
+    return $events;
+}
+
+sub _intercept {
+    my $code = shift;
+    my %params = @_;
+    my $ctx = context();
+
+    my $ipc;
+    if (my $global_ipc = test2_ipc()) {
+        my $driver = blessed($global_ipc);
+        $ipc = $driver->new;
+    }
+
+    my $hub = Test2::Hub::Interceptor->new(
+        ipc => $ipc,
+        no_ending => 1,
+    );
+
+    my @events;
+    $hub->listen(sub { push @events => $_[1] }, inherit => $params{deep});
+
+    $ctx->stack->top; # Make sure there is a top hub before we begin.
+    $ctx->stack->push($hub);
+
+    my ($ok, $err) = (1, undef);
+    T2_SUBTEST_WRAPPER: {
+        # Do not use 'try' cause it localizes __DIE__
+        $ok = eval { $code->(hub => $hub, context => $ctx->snapshot); 1 };
+        $err = $@;
+
+        # They might have done 'BEGIN { skip_all => "whatever" }'
+        if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && $err->isa('Test2::Hub::Interceptor::Terminator'))) {
+            $ok  = 1;
+            $err = undef;
+        }
+    }
+
+    $hub->cull;
+    $ctx->stack->pop($hub);
+
+    my $trace = $ctx->trace;
+    $ctx->release;
+
+    die $err unless $ok;
+
+    $hub->finalize($trace, 1)
+        if $ok
+        && !$hub->no_ending
+        && !$hub->ended;
+
+    return \@events;
+}
+
+sub run_subtest {
+    my ($name, $code, $params, @args) = @_;
+
+    $_->($name,$code,@args)
+        for Test2::API::test2_list_pre_subtest_callbacks();
+
+    $params = {buffered => $params} unless ref $params;
+    my $inherit_trace = delete $params->{inherit_trace};
+
+    my $ctx = context();
+
+    my $parent = $ctx->hub;
+
+    # If a parent is buffered then the child must be as well.
+    my $buffered = $params->{buffered} || $parent->{buffered};
+
+    $ctx->note($name) unless $buffered;
+
+    my $stack = $ctx->stack || $STACK;
+    my $hub = $stack->new_hub(
+        class => 'Test2::Hub::Subtest',
+        %$params,
+        buffered => $buffered,
+    );
+
+    my @events;
+    $hub->listen(sub { push @events => $_[1] });
+
+    if ($buffered) {
+        if (my $format = $hub->format) {
+            my $hide = $format->can('hide_buffered') ? $format->hide_buffered : 1;
+            $hub->format(undef) if $hide;
+        }
+    }
+
+    if ($inherit_trace) {
+        my $orig = $code;
+        $code = sub {
+            my $base_trace = $ctx->trace;
+            my $trace = $base_trace->snapshot(nested => 1 + $base_trace->nested);
+            my $st_ctx = Test2::API::Context->new(
+                trace  => $trace,
+                hub    => $hub,
+            );
+            $st_ctx->do_in_context($orig, @args);
+        };
+    }
+
+    my ($ok, $err, $finished);
+    T2_SUBTEST_WRAPPER: {
+        # Do not use 'try' cause it localizes __DIE__
+        $ok = eval { $code->(@args); 1 };
+        $err = $@;
+
+        # They might have done 'BEGIN { skip_all => "whatever" }'
+        if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && blessed($err) eq 'Test::Builder::Exception')) {
+            $ok  = undef;
+            $err = undef;
+        }
+        else {
+            $finished = 1;
+        }
+    }
+
+    if ($params->{no_fork}) {
+        if ($$ != $ctx->trace->pid) {
+            warn $ok ? "Forked inside subtest, but subtest never finished!\n" : $err;
+            exit 255;
+        }
+
+        if (get_tid() != $ctx->trace->tid) {
+            warn $ok ? "Started new thread inside subtest, but thread never finished!\n" : $err;
+            exit 255;
+        }
+    }
+    elsif (!$parent->is_local && !$parent->ipc) {
+        warn $ok ? "A new process or thread was started inside subtest, but IPC is not enabled!\n" : $err;
+        exit 255;
+    }
+
+    $stack->pop($hub);
+
+    my $trace = $ctx->trace;
+
+    my $bailed = $hub->bailed_out;
+
+    if (!$finished) {
+        if ($bailed && !$buffered) {
+            $ctx->bail($bailed->reason);
+        }
+        elsif ($bailed && $buffered) {
+            $ok = 1;
+        }
+        else {
+            my $code = $hub->exit_code;
+            $ok = !$code;
+            $err = "Subtest ended with exit code $code" if $code;
+        }
+    }
+
+    $hub->finalize($trace->snapshot(huuid => $hub->uuid, hid => $hub->hid, nested => $hub->nested, buffered => $buffered), 1)
+        if $ok
+        && !$hub->no_ending
+        && !$hub->ended;
+
+    my $pass = $ok && $hub->is_passing;
+    my $e = $ctx->build_event(
+        'Subtest',
+        pass         => $pass,
+        name         => $name,
+        subtest_id   => $hub->id,
+        subtest_uuid => $hub->uuid,
+        buffered     => $buffered,
+        subevents    => \@events,
+    );
+
+    my $plan_ok = $hub->check_plan;
+
+    $ctx->hub->send($e);
+
+    $ctx->failure_diag($e) unless $e->pass;
+
+    $ctx->diag("Caught exception in subtest: $err") unless $ok;
+
+    $ctx->diag("Bad subtest plan, expected " . $hub->plan . " but ran " . $hub->count)
+        if defined($plan_ok) && !$plan_ok;
+
+    $ctx->bail($bailed->reason) if $bailed && $buffered;
+
+    $ctx->release;
+    return $pass;
+}
+
+# There is a use-cycle between API and API/Context. Context needs to use some
+# API functions as the package is compiling. Test2::API::context() needs
+# Test2::API::Context to be loaded, but we cannot 'require' the module there as
+# it causes a very noticeable performance impact with how often context() is
+# called.
+require Test2::API::Context;
+
+1;
+
+__END__
+
+package Test2::IPC;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Test2::API::Instance;
+use Test2::Util qw/get_tid/;
+use Test2::API qw{
+    test2_init_done
+    test2_ipc
+    test2_has_ipc
+    test2_ipc_enable_polling
+    test2_pid
+    test2_stack
+    test2_tid
+    context
+};
+
+use Carp qw/confess/;
+
+our @EXPORT_OK = qw/cull/;
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+
+sub unimport { Test2::API::test2_ipc_disable() }
+
+sub import {
+    goto &Exporter::import if test2_has_ipc || !test2_init_done();
+
+    confess "IPC is disabled" if Test2::API::test2_ipc_disabled();
+    confess "Cannot add IPC in a child process (" . test2_pid() . " vs $$)" if test2_pid() != $$;
+    confess "Cannot add IPC in a child thread (" . test2_tid() . " vs " . get_tid() . ")"  if test2_tid() != get_tid();
+
+    Test2::API::_set_ipc(_make_ipc());
+    apply_ipc(test2_stack());
+
+    goto &Exporter::import;
+}
+
+sub _make_ipc {
+    # Find a driver
+    my ($driver) = Test2::API::test2_ipc_drivers();
+    unless ($driver) {
+        require Test2::IPC::Driver::Files;
+        $driver = 'Test2::IPC::Driver::Files';
+    }
+
+    return $driver->new();
+}
+
+sub apply_ipc {
+    my $stack = shift;
+
+    my ($root) = @$stack;
+
+    return unless $root;
+
+    confess "Cannot add IPC in a child process" if $root->pid != $$;
+    confess "Cannot add IPC in a child thread"  if $root->tid != get_tid();
+
+    my $ipc = $root->ipc || test2_ipc() || _make_ipc();
+
+    # Add the IPC to all hubs
+    for my $hub (@$stack) {
+        my $has = $hub->ipc;
+        confess "IPC Mismatch!" if $has && $has != $ipc;
+        next if $has;
+        $hub->set_ipc($ipc);
+        $ipc->add_hub($hub->hid);
+    }
+
+    test2_ipc_enable_polling();
+
+    return $ipc;
+}
+
+sub cull {
+    my $ctx = context();
+    $ctx->hub->cull;
+    $ctx->release;
+}
+
+1;
+
+__END__
+
+package Test2::Util;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use POSIX();
+use Config qw/%Config/;
+use Carp qw/croak/;
+
+BEGIN {
+    local ($@, $!, $SIG{__DIE__});
+    *HAVE_PERLIO = eval { require PerlIO; PerlIO->VERSION(1.02); } ? sub() { 1 } : sub() { 0 };
+}
+
+our @EXPORT_OK = qw{
+    try
+
+    pkg_to_file
+
+    get_tid USE_THREADS
+    CAN_THREAD
+    CAN_REALLY_FORK
+    CAN_FORK
+
+    CAN_SIGSYS
+
+    IS_WIN32
+
+    ipc_separator
+
+    do_rename do_unlink
+
+    try_sig_mask
+
+    clone_io
+};
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+
+BEGIN {
+    *IS_WIN32 = ($^O eq 'MSWin32') ? sub() { 1 } : sub() { 0 };
+}
+
+sub _can_thread {
+    return 0 unless $] >= 5.008001;
+    return 0 unless $Config{'useithreads'};
+
+    # Threads are broken on perl 5.10.0 built with gcc 4.8+
+    if ($] == 5.010000 && $Config{'ccname'} eq 'gcc' && $Config{'gccversion'}) {
+        my @parts = split /\./, $Config{'gccversion'};
+        return 0 if $parts[0] > 4 || ($parts[0] == 4 && $parts[1] >= 8);
+    }
+
+    # Change to a version check if this ever changes
+    return 0 if $INC{'Devel/Cover.pm'};
+    return 1;
+}
+
+sub _can_fork {
+    return 1 if $Config{d_fork};
+    return 0 unless IS_WIN32 || $^O eq 'NetWare';
+    return 0 unless $Config{useithreads};
+    return 0 unless $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/;
+
+    return _can_thread();
+}
+
+BEGIN {
+    no warnings 'once';
+    *CAN_THREAD      = _can_thread()   ? sub() { 1 } : sub() { 0 };
+}
+my $can_fork;
+sub CAN_FORK () {
+    return $can_fork
+        if defined $can_fork;
+    $can_fork = !!_can_fork();
+    no warnings 'redefine';
+    *CAN_FORK = $can_fork ? sub() { 1 } : sub() { 0 };
+    $can_fork;
+}
+my $can_really_fork;
+sub CAN_REALLY_FORK () {
+    return $can_really_fork
+        if defined $can_really_fork;
+    $can_really_fork = !!$Config{d_fork};
+    no warnings 'redefine';
+    *CAN_REALLY_FORK = $can_really_fork ? sub() { 1 } : sub() { 0 };
+    $can_really_fork;
+}
+
+sub _manual_try(&;@) {
+    my $code = shift;
+    my $args = \@_;
+    my $err;
+
+    my $die = delete $SIG{__DIE__};
+
+    eval { $code->(@$args); 1 } or $err = $@ || "Error was squashed!\n";
+
+    $die ? $SIG{__DIE__} = $die : delete $SIG{__DIE__};
+
+    return (!defined($err), $err);
+}
+
+sub _local_try(&;@) {
+    my $code = shift;
+    my $args = \@_;
+    my $err;
+
+    no warnings;
+    local $SIG{__DIE__};
+    eval { $code->(@$args); 1 } or $err = $@ || "Error was squashed!\n";
+
+    return (!defined($err), $err);
+}
+
+# Older versions of perl have a nasty bug on win32 when localizing a variable
+# before forking or starting a new thread. So for those systems we use the
+# non-local form. When possible though we use the faster 'local' form.
+BEGIN {
+    if (IS_WIN32 && $] < 5.020002) {
+        *try = \&_manual_try;
+    }
+    else {
+        *try = \&_local_try;
+    }
+}
+
+BEGIN {
+    if (CAN_THREAD) {
+        if ($INC{'threads.pm'}) {
+            # Threads are already loaded, so we do not need to check if they
+            # are loaded each time
+            *USE_THREADS = sub() { 1 };
+            *get_tid     = sub() { threads->tid() };
+        }
+        else {
+            # :-( Need to check each time to see if they have been loaded.
+            *USE_THREADS = sub() { $INC{'threads.pm'} ? 1 : 0 };
+            *get_tid     = sub() { $INC{'threads.pm'} ? threads->tid() : 0 };
+        }
+    }
+    else {
+        # No threads, not now, not ever!
+        *USE_THREADS = sub() { 0 };
+        *get_tid     = sub() { 0 };
+    }
+}
+
+sub pkg_to_file {
+    my $pkg = shift;
+    my $file = $pkg;
+    $file =~ s{(::|')}{/}g;
+    $file .= '.pm';
+    return $file;
+}
+
+sub ipc_separator() { "~" }
+
+sub _check_for_sig_sys {
+    my $sig_list = shift;
+    return $sig_list =~ m/\bSYS\b/;
+}
+
+BEGIN {
+    if (_check_for_sig_sys($Config{sig_name})) {
+        *CAN_SIGSYS = sub() { 1 };
+    }
+    else {
+        *CAN_SIGSYS = sub() { 0 };
+    }
+}
+
+my %PERLIO_SKIP = (
+    unix => 1,
+    via  => 1,
+);
+
+sub clone_io {
+    my ($fh) = @_;
+    my $fileno = fileno($fh);
+
+    return $fh if !defined($fileno) || !length($fileno) || $fileno < 0;
+
+    open(my $out, '>&' . $fileno) or die "Can't dup fileno $fileno: $!";
+
+    my %seen;
+    my @layers = HAVE_PERLIO ? grep { !$PERLIO_SKIP{$_} and !$seen{$_}++ } PerlIO::get_layers($fh) : ();
+    binmode($out, join(":", "", "raw", @layers));
+
+    my $old = select $fh;
+    my $af  = $|;
+    select $out;
+    $| = $af;
+    select $old;
+
+    return $out;
+}
+
+BEGIN {
+    if (IS_WIN32) {
+        my $max_tries = 5;
+
+        *do_rename = sub {
+            my ($from, $to) = @_;
+
+            my $err;
+            for (1 .. $max_tries) {
+                return (1) if rename($from, $to);
+                $err = "$!";
+                last if $_ == $max_tries;
+                sleep 1;
+            }
+
+            return (0, $err);
+        };
+        *do_unlink = sub {
+            my ($file) = @_;
+
+            my $err;
+            for (1 .. $max_tries) {
+                return (1) if unlink($file);
+                $err = "$!";
+                last if $_ == $max_tries;
+                sleep 1;
+            }
+
+            return (0, "$!");
+        };
+    }
+    else {
+        *do_rename = sub {
+            my ($from, $to) = @_;
+            return (1) if rename($from, $to);
+            return (0, "$!");
+        };
+        *do_unlink = sub {
+            my ($file) = @_;
+            return (1) if unlink($file);
+            return (0, "$!");
+        };
+    }
+}
+
+sub try_sig_mask(&) {
+    my $code = shift;
+
+    my ($old, $blocked);
+    unless(IS_WIN32) {
+        my $to_block = POSIX::SigSet->new(
+            POSIX::SIGINT(),
+            POSIX::SIGALRM(),
+            POSIX::SIGHUP(),
+            POSIX::SIGTERM(),
+            POSIX::SIGUSR1(),
+            POSIX::SIGUSR2(),
+        );
+        $old = POSIX::SigSet->new;
+        $blocked = POSIX::sigprocmask(POSIX::SIG_BLOCK(), $to_block, $old);
+        # Silently go on if we failed to log signals, not much we can do.
+    }
+
+    my ($ok, $err) = &try($code);
+
+    # If our block was successful we want to restore the old mask.
+    POSIX::sigprocmask(POSIX::SIG_SETMASK(), $old, POSIX::SigSet->new()) if defined $blocked;
+
+    return ($ok, $err);
+}
+
+1;
+
+__END__
+
+package Test2::Event;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Scalar::Util qw/blessed reftype/;
+use Carp qw/croak/;
+
+use Test2::Util::HashBase qw/trace -amnesty uuid -hubs/;
+use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/;
+use Test2::Util qw(pkg_to_file);
+
+use Test2::EventFacet::About();
+use Test2::EventFacet::Amnesty();
+use Test2::EventFacet::Assert();
+use Test2::EventFacet::Control();
+use Test2::EventFacet::Error();
+use Test2::EventFacet::Info();
+use Test2::EventFacet::Meta();
+use Test2::EventFacet::Parent();
+use Test2::EventFacet::Plan();
+use Test2::EventFacet::Trace();
+use Test2::EventFacet::Hub();
+
+# Legacy tools will expect this to be loaded now
+require Test2::Util::Trace;
+
+my %LOADED_FACETS = (
+    'about'   => 'Test2::EventFacet::About',
+    'amnesty' => 'Test2::EventFacet::Amnesty',
+    'assert'  => 'Test2::EventFacet::Assert',
+    'control' => 'Test2::EventFacet::Control',
+    'errors'  => 'Test2::EventFacet::Error',
+    'info'    => 'Test2::EventFacet::Info',
+    'meta'    => 'Test2::EventFacet::Meta',
+    'parent'  => 'Test2::EventFacet::Parent',
+    'plan'    => 'Test2::EventFacet::Plan',
+    'trace'   => 'Test2::EventFacet::Trace',
+    'hubs'    => 'Test2::EventFacet::Hub',
+);
+
+sub FACET_TYPES { sort values %LOADED_FACETS }
+
+sub load_facet {
+    my $class = shift;
+    my ($facet) = @_;
+
+    return $LOADED_FACETS{$facet} if exists $LOADED_FACETS{$facet};
+
+    my @check = ($facet);
+    if ('s' eq substr($facet, -1, 1)) {
+        push @check => substr($facet, 0, -1);
+    }
+    else {
+        push @check => $facet . 's';
+    }
+
+    my $found;
+    for my $check (@check) {
+        my $mod  = "Test2::EventFacet::" . ucfirst($facet);
+        my $file = pkg_to_file($mod);
+        next unless eval { require $file; 1 };
+        $found = $mod;
+        last;
+    }
+
+    return undef unless $found;
+    $LOADED_FACETS{$facet} = $found;
+}
+
+sub causes_fail      { 0 }
+sub increments_count { 0 }
+sub diagnostics      { 0 }
+sub no_display       { 0 }
+sub subtest_id       { undef }
+
+sub callback { }
+
+sub terminate { () }
+sub global    { () }
+sub sets_plan { () }
+
+sub summary { ref($_[0]) }
+
+sub related {
+    my $self = shift;
+    my ($event) = @_;
+
+    my $tracea = $self->trace  or return undef;
+    my $traceb = $event->trace or return undef;
+
+    my $uuida = $tracea->uuid;
+    my $uuidb = $traceb->uuid;
+    if ($uuida && $uuidb) {
+        return 1 if $uuida eq $uuidb;
+        return 0;
+    }
+
+    my $siga = $tracea->signature or return undef;
+    my $sigb = $traceb->signature or return undef;
+
+    return 1 if $siga eq $sigb;
+    return 0;
+}
+
+sub add_hub {
+    my $self = shift;
+    unshift @{$self->{+HUBS}} => @_;
+}
+
+sub add_amnesty {
+    my $self = shift;
+
+    for my $am (@_) {
+        $am = {%$am} if ref($am) ne 'ARRAY';
+        $am = Test2::EventFacet::Amnesty->new($am);
+
+        push @{$self->{+AMNESTY}} => $am;
+    }
+}
+
+sub common_facet_data {
+    my $self = shift;
+
+    my %out;
+
+    $out{about} = {package => ref($self) || undef};
+    if (my $uuid = $self->uuid) {
+        $out{about}->{uuid} = $uuid;
+    }
+
+    if (my $trace = $self->trace) {
+        $out{trace} = { %$trace };
+    }
+
+    if (my $hubs = $self->hubs) {
+        $out{hubs} = $hubs;
+    }
+
+    $out{amnesty} = [map {{ %{$_} }} @{$self->{+AMNESTY}}]
+        if $self->{+AMNESTY};
+
+    if (my $meta = $self->meta_facet_data) {
+        $out{meta} = $meta;
+    }
+
+    return \%out;
+}
+
+sub meta_facet_data {
+    my $self = shift;
+
+    my $key = Test2::Util::ExternalMeta::META_KEY();
+
+    my $hash = $self->{$key} or return undef;
+    return {%$hash};
+}
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{about}->{details}    = $self->summary    || undef;
+    $out->{about}->{no_display} = $self->no_display || undef;
+
+    # Might be undef, we want to preserve that
+    my $terminate = $self->terminate;
+    $out->{control} = {
+        global    => $self->global    || 0,
+        terminate => $terminate,
+        has_callback => $self->can('callback') == \&callback ? 0 : 1,
+    };
+
+    $out->{assert} = {
+        no_debug => 1,                     # Legacy behavior
+        pass     => $self->causes_fail ? 0 : 1,
+        details  => $self->summary,
+    } if $self->increments_count;
+
+    $out->{parent} = {hid => $self->subtest_id} if $self->subtest_id;
+
+    if (my @plan = $self->sets_plan) {
+        $out->{plan} = {};
+
+        $out->{plan}->{count}   = $plan[0] if defined $plan[0];
+        $out->{plan}->{details} = $plan[2] if defined $plan[2];
+
+        if ($plan[1]) {
+            $out->{plan}->{skip} = 1 if $plan[1] eq 'SKIP';
+            $out->{plan}->{none} = 1 if $plan[1] eq 'NO PLAN';
+        }
+
+        $out->{control}->{terminate} ||= 0 if $out->{plan}->{skip};
+    }
+
+    if ($self->causes_fail && !$out->{assert}) {
+        $out->{errors} = [
+            {
+                tag     => 'FAIL',
+                fail    => 1,
+                details => $self->summary,
+            }
+        ];
+    }
+
+    my %IGNORE = (trace => 1, about => 1, control => 1);
+    my $do_info = !grep { !$IGNORE{$_} } keys %$out;
+
+    if ($do_info && !$self->no_display && $self->diagnostics) {
+        $out->{info} = [
+            {
+                tag     => 'DIAG',
+                debug   => 1,
+                details => $self->summary,
+            }
+        ];
+    }
+
+    return $out;
+}
+
+sub facets {
+    my $self = shift;
+    my %out;
+
+    my $data = $self->facet_data;
+    my @errors = $self->validate_facet_data($data);
+    die join "\n" => @errors if @errors;
+
+    for my $facet (keys %$data) {
+        my $class = $self->load_facet($facet);
+        my $val = $data->{$facet};
+
+        unless($class) {
+            $out{$facet} = $val;
+            next;
+        }
+
+        my $is_list = reftype($val) eq 'ARRAY' ? 1 : 0;
+        if ($is_list) {
+            $out{$facet} = [map { $class->new($_) } @$val];
+        }
+        else {
+            $out{$facet} = $class->new($val);
+        }
+    }
+
+    return \%out;
+}
+
+sub validate_facet_data {
+    my $class_or_self = shift;
+    my ($f, %params);
+
+    $f = shift if @_ && (reftype($_[0]) || '') eq 'HASH';
+    %params = @_;
+
+    $f ||= $class_or_self->facet_data if blessed($class_or_self);
+    croak "No facet data" unless $f;
+
+    my @errors;
+
+    for my $k (sort keys %$f) {
+        my $fclass = $class_or_self->load_facet($k);
+
+        push @errors => "Could not find a facet class for facet '$k'"
+            if $params{require_facet_class} && !$fclass;
+
+        next unless $fclass;
+
+        my $v = $f->{$k};
+        next unless defined($v); # undef is always fine
+
+        my $is_list = $fclass->is_list();
+        my $got_list = reftype($v) eq 'ARRAY' ? 1 : 0;
+
+        push @errors => "Facet '$k' should be a list, but got a single item ($v)"
+            if $is_list && !$got_list;
+
+        push @errors => "Facet '$k' should not be a list, but got a a list ($v)"
+            if $got_list && !$is_list;
+    }
+
+    return @errors;
+}
+
+sub nested {
+    my $self = shift;
+
+    Carp::cluck("Use of Test2::Event->nested() is deprecated, use Test2::Event->trace->nested instead")
+        if $ENV{AUTHOR_TESTING};
+
+    if (my $hubs = $self->{+HUBS}) {
+        return $hubs->[0]->{nested} if @$hubs;
+    }
+
+    my $trace = $self->{+TRACE} or return undef;
+    return $trace->{nested};
+}
+
+sub in_subtest {
+    my $self = shift;
+
+    Carp::cluck("Use of Test2::Event->in_subtest() is deprecated, use Test2::Event->trace->hid instead")
+        if $ENV{AUTHOR_TESTING};
+
+    my $hubs = $self->{+HUBS};
+    if ($hubs && @$hubs) {
+        return undef unless $hubs->[0]->{nested};
+        return $hubs->[0]->{hid}
+    }
+
+    my $trace = $self->{+TRACE} or return undef;
+    return undef unless $trace->{nested};
+    return $trace->{hid};
+}
+
+1;
+
+__END__
+
+package Test2::Hub;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Carp qw/carp croak confess/;
+use Test2::Util qw/get_tid ipc_separator/;
+
+use Scalar::Util qw/weaken/;
+use List::Util qw/first/;
+
+use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/;
+use Test2::Util::HashBase qw{
+    pid tid hid ipc
+    nested buffered
+    no_ending
+    _filters
+    _pre_filters
+    _listeners
+    _follow_ups
+    _formatter
+    _context_acquire
+    _context_init
+    _context_release
+
+    uuid
+    active
+    count
+    failed
+    ended
+    bailed_out
+    _passing
+    _plan
+    skip_reason
+};
+
+my $UUID_VIA;
+
+my $ID_POSTFIX = 1;
+sub init {
+    my $self = shift;
+
+    $self->{+PID} = $$;
+    $self->{+TID} = get_tid();
+    $self->{+HID} = join ipc_separator, $self->{+PID}, $self->{+TID}, $ID_POSTFIX++;
+
+    $UUID_VIA ||= Test2::API::_add_uuid_via_ref();
+    $self->{+UUID} = ${$UUID_VIA}->('hub') if $$UUID_VIA;
+
+    $self->{+NESTED}   = 0 unless defined $self->{+NESTED};
+    $self->{+BUFFERED} = 0 unless defined $self->{+BUFFERED};
+
+    $self->{+COUNT}    = 0;
+    $self->{+FAILED}   = 0;
+    $self->{+_PASSING} = 1;
+
+    if (my $formatter = delete $self->{formatter}) {
+        $self->format($formatter);
+    }
+
+    if (my $ipc = $self->{+IPC}) {
+        $ipc->add_hub($self->{+HID});
+    }
+}
+
+sub is_subtest { 0 }
+
+sub _tb_reset {
+    my $self = shift;
+
+    # Nothing to do
+    return if $self->{+PID} == $$ && $self->{+TID} == get_tid();
+
+    $self->{+PID} = $$;
+    $self->{+TID} = get_tid();
+    $self->{+HID} = join ipc_separator, $self->{+PID}, $self->{+TID}, $ID_POSTFIX++;
+
+    if (my $ipc = $self->{+IPC}) {
+        $ipc->add_hub($self->{+HID});
+    }
+}
+
+sub reset_state {
+    my $self = shift;
+
+    $self->{+COUNT} = 0;
+    $self->{+FAILED} = 0;
+    $self->{+_PASSING} = 1;
+
+    delete $self->{+_PLAN};
+    delete $self->{+ENDED};
+    delete $self->{+BAILED_OUT};
+    delete $self->{+SKIP_REASON};
+}
+
+sub inherit {
+    my $self = shift;
+    my ($from, %params) = @_;
+
+    $self->{+NESTED} ||= 0;
+
+    $self->{+_FORMATTER} = $from->{+_FORMATTER}
+        unless $self->{+_FORMATTER} || exists($params{formatter});
+
+    if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
+        my $ipc = $from->{+IPC};
+        $self->{+IPC} = $ipc;
+        $ipc->add_hub($self->{+HID});
+    }
+
+    if (my $ls = $from->{+_LISTENERS}) {
+        push @{$self->{+_LISTENERS}} => grep { $_->{inherit} } @$ls;
+    }
+
+    if (my $pfs = $from->{+_PRE_FILTERS}) {
+        push @{$self->{+_PRE_FILTERS}} => grep { $_->{inherit} } @$pfs;
+    }
+
+    if (my $fs = $from->{+_FILTERS}) {
+        push @{$self->{+_FILTERS}} => grep { $_->{inherit} } @$fs;
+    }
+}
+
+sub format {
+    my $self = shift;
+
+    my $old = $self->{+_FORMATTER};
+    ($self->{+_FORMATTER}) = @_ if @_;
+
+    return $old;
+}
+
+sub is_local {
+    my $self = shift;
+    return $$ == $self->{+PID}
+        && get_tid() == $self->{+TID};
+}
+
+sub listen {
+    my $self = shift;
+    my ($sub, %params) = @_;
+
+    carp "Useless addition of a listener in a child process or thread!"
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+
+    croak "listen only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_LISTENERS}} => { %params, code => $sub };
+
+    $sub; # Intentional return.
+}
+
+sub unlisten {
+    my $self = shift;
+
+    carp "Useless removal of a listener in a child process or thread!"
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+
+    my %subs = map {$_ => $_} @_;
+
+    @{$self->{+_LISTENERS}} = grep { !$subs{$_->{code}} } @{$self->{+_LISTENERS}};
+}
+
+sub filter {
+    my $self = shift;
+    my ($sub, %params) = @_;
+
+    carp "Useless addition of a filter in a child process or thread!"
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+
+    croak "filter only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_FILTERS}} => { %params, code => $sub };
+
+    $sub; # Intentional Return
+}
+
+sub unfilter {
+    my $self = shift;
+    carp "Useless removal of a filter in a child process or thread!"
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+    my %subs = map {$_ => $_} @_;
+    @{$self->{+_FILTERS}} = grep { !$subs{$_->{code}} } @{$self->{+_FILTERS}};
+}
+
+sub pre_filter {
+    my $self = shift;
+    my ($sub, %params) = @_;
+
+    croak "pre_filter only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_PRE_FILTERS}} => { %params, code => $sub };
+
+    $sub; # Intentional Return
+}
+
+sub pre_unfilter {
+    my $self = shift;
+    my %subs = map {$_ => $_} @_;
+    @{$self->{+_PRE_FILTERS}} = grep { !$subs{$_->{code}} } @{$self->{+_PRE_FILTERS}};
+}
+
+sub follow_up {
+    my $self = shift;
+    my ($sub) = @_;
+
+    carp "Useless addition of a follow-up in a child process or thread!"
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+
+    croak "follow_up only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_FOLLOW_UPS}} => $sub;
+}
+
+*add_context_aquire = \&add_context_acquire;
+sub add_context_acquire {
+    my $self = shift;
+    my ($sub) = @_;
+
+    croak "add_context_acquire only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_CONTEXT_ACQUIRE}} => $sub;
+
+    $sub; # Intentional return.
+}
+
+*remove_context_aquire = \&remove_context_acquire;
+sub remove_context_acquire {
+    my $self = shift;
+    my %subs = map {$_ => $_} @_;
+    @{$self->{+_CONTEXT_ACQUIRE}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_ACQUIRE}};
+}
+
+sub add_context_init {
+    my $self = shift;
+    my ($sub) = @_;
+
+    croak "add_context_init only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_CONTEXT_INIT}} => $sub;
+
+    $sub; # Intentional return.
+}
+
+sub remove_context_init {
+    my $self = shift;
+    my %subs = map {$_ => $_} @_;
+    @{$self->{+_CONTEXT_INIT}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_INIT}};
+}
+
+sub add_context_release {
+    my $self = shift;
+    my ($sub) = @_;
+
+    croak "add_context_release only takes coderefs for arguments, got '$sub'"
+        unless ref $sub && ref $sub eq 'CODE';
+
+    push @{$self->{+_CONTEXT_RELEASE}} => $sub;
+
+    $sub; # Intentional return.
+}
+
+sub remove_context_release {
+    my $self = shift;
+    my %subs = map {$_ => $_} @_;
+    @{$self->{+_CONTEXT_RELEASE}} = grep { !$subs{$_} == $_ } @{$self->{+_CONTEXT_RELEASE}};
+}
+
+sub send {
+    my $self = shift;
+    my ($e) = @_;
+
+    $e->add_hub(
+        {
+            details => ref($self),
+
+            buffered => $self->{+BUFFERED},
+            hid      => $self->{+HID},
+            nested   => $self->{+NESTED},
+            pid      => $self->{+PID},
+            tid      => $self->{+TID},
+            uuid     => $self->{+UUID},
+
+            ipc => $self->{+IPC} ? 1 : 0,
+        }
+    );
+
+    $e->set_uuid(${$UUID_VIA}->('event')) if $$UUID_VIA;
+
+    if ($self->{+_PRE_FILTERS}) {
+        for (@{$self->{+_PRE_FILTERS}}) {
+            $e = $_->{code}->($self, $e);
+            return unless $e;
+        }
+    }
+
+    my $ipc = $self->{+IPC} || return $self->process($e);
+
+    if($e->global) {
+        $ipc->send($self->{+HID}, $e, 'GLOBAL');
+        return $self->process($e);
+    }
+
+    return $ipc->send($self->{+HID}, $e)
+        if $$ != $self->{+PID} || get_tid() != $self->{+TID};
+
+    $self->process($e);
+}
+
+sub process {
+    my $self = shift;
+    my ($e) = @_;
+
+    if ($self->{+_FILTERS}) {
+        for (@{$self->{+_FILTERS}}) {
+            $e = $_->{code}->($self, $e);
+            return unless $e;
+        }
+    }
+
+    # Optimize the most common case
+    my $type = ref($e);
+    if ($type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass})) {
+        my $count = ++($self->{+COUNT});
+        $self->{+_FORMATTER}->write($e, $count) if $self->{+_FORMATTER};
+
+        if ($self->{+_LISTENERS}) {
+            $_->{code}->($self, $e, $count) for @{$self->{+_LISTENERS}};
+        }
+
+        return $e;
+    }
+
+    my $f = $e->facet_data;
+
+    my $fail = 0;
+    $fail = 1 if $f->{assert} && !$f->{assert}->{pass};
+    $fail = 1 if $f->{errors} && grep { $_->{fail} } @{$f->{errors}};
+    $fail = 0 if $f->{amnesty};
+
+    $self->{+COUNT}++ if $f->{assert};
+    $self->{+FAILED}++ if $fail && $f->{assert};
+    $self->{+_PASSING} = 0 if $fail;
+
+    my $code = $f->{control}->{terminate};
+    my $count = $self->{+COUNT};
+
+    if (my $plan = $f->{plan}) {
+        if ($plan->{skip}) {
+            $self->plan('SKIP');
+            $self->set_skip_reason($plan->{details} || 1);
+            $code ||= 0;
+        }
+        elsif ($plan->{none}) {
+            $self->plan('NO PLAN');
+        }
+        else {
+            $self->plan($plan->{count});
+        }
+    }
+
+    $e->callback($self) if $f->{control}->{has_callback};
+
+    $self->{+_FORMATTER}->write($e, $count, $f) if $self->{+_FORMATTER};
+
+    if ($self->{+_LISTENERS}) {
+        $_->{code}->($self, $e, $count, $f) for @{$self->{+_LISTENERS}};
+    }
+
+    if ($f->{control}->{halt}) {
+        $code ||= 255;
+        $self->set_bailed_out($e);
+    }
+
+    if (defined $code) {
+        $self->{+_FORMATTER}->terminate($e, $f) if $self->{+_FORMATTER};
+        $self->terminate($code, $e, $f);
+    }
+
+    return $e;
+}
+
+sub terminate {
+    my $self = shift;
+    my ($code) = @_;
+    exit($code);
+}
+
+sub cull {
+    my $self = shift;
+
+    my $ipc = $self->{+IPC} || return;
+    return if $self->{+PID} != $$ || $self->{+TID} != get_tid();
+
+    # No need to do IPC checks on culled events
+    $self->process($_) for $ipc->cull($self->{+HID});
+}
+
+sub finalize {
+    my $self = shift;
+    my ($trace, $do_plan) = @_;
+
+    $self->cull();
+
+    my $plan   = $self->{+_PLAN};
+    my $count  = $self->{+COUNT};
+    my $failed = $self->{+FAILED};
+    my $active = $self->{+ACTIVE};
+
+    # return if NOTHING was done.
+    unless ($active || $do_plan || defined($plan) || $count || $failed) {
+        $self->{+_FORMATTER}->finalize($plan, $count, $failed, 0, $self->is_subtest) if $self->{+_FORMATTER};
+        return;
+    }
+
+    unless ($self->{+ENDED}) {
+        if ($self->{+_FOLLOW_UPS}) {
+            $_->($trace, $self) for reverse @{$self->{+_FOLLOW_UPS}};
+        }
+
+        # These need to be refreshed now
+        $plan   = $self->{+_PLAN};
+        $count  = $self->{+COUNT};
+        $failed = $self->{+FAILED};
+
+        if (($plan && $plan eq 'NO PLAN') || ($do_plan && !$plan)) {
+            $self->send(
+                Test2::Event::Plan->new(
+                    trace => $trace,
+                    max => $count,
+                )
+            );
+        }
+        $plan = $self->{+_PLAN};
+    }
+
+    my $frame = $trace->frame;
+    if($self->{+ENDED}) {
+        my (undef, $ffile, $fline) = @{$self->{+ENDED}};
+        my (undef, $sfile, $sline) = @$frame;
+
+        die <<"        EOT"
+Test already ended!
+First End:  $ffile line $fline
+Second End: $sfile line $sline
+        EOT
+    }
+
+    $self->{+ENDED} = $frame;
+    my $pass = $self->is_passing(); # Generate the final boolean.
+
+    $self->{+_FORMATTER}->finalize($plan, $count, $failed, $pass, $self->is_subtest) if $self->{+_FORMATTER};
+
+    return $pass;
+}
+
+sub is_passing {
+    my $self = shift;
+
+    ($self->{+_PASSING}) = @_ if @_;
+
+    # If we already failed just return 0.
+    my $pass = $self->{+_PASSING} or return 0;
+    return $self->{+_PASSING} = 0 if $self->{+FAILED};
+
+    my $count = $self->{+COUNT};
+    my $ended = $self->{+ENDED};
+    my $plan = $self->{+_PLAN};
+
+    return $pass if !$count && $plan && $plan =~ m/^SKIP$/;
+
+    return $self->{+_PASSING} = 0
+        if $ended && (!$count || !$plan);
+
+    return $pass unless $plan && $plan =~ m/^\d+$/;
+
+    if ($ended) {
+        return $self->{+_PASSING} = 0 if $count != $plan;
+    }
+    else {
+        return $self->{+_PASSING} = 0 if $count > $plan;
+    }
+
+    return $pass;
+}
+
+sub plan {
+    my $self = shift;
+
+    return $self->{+_PLAN} unless @_;
+
+    my ($plan) = @_;
+
+    confess "You cannot unset the plan"
+        unless defined $plan;
+
+    confess "You cannot change the plan"
+        if $self->{+_PLAN} && $self->{+_PLAN} !~ m/^NO PLAN$/;
+
+    confess "'$plan' is not a valid plan! Plan must be an integer greater than 0, 'NO PLAN', or 'SKIP'"
+        unless $plan =~ m/^(\d+|NO PLAN|SKIP)$/;
+
+    $self->{+_PLAN} = $plan;
+}
+
+sub check_plan {
+    my $self = shift;
+
+    return undef unless $self->{+ENDED};
+    my $plan = $self->{+_PLAN} || return undef;
+
+    return 1 if $plan !~ m/^\d+$/;
+
+    return 1 if $plan == $self->{+COUNT};
+    return 0;
+}
+
+sub DESTROY {
+    my $self = shift;
+    my $ipc = $self->{+IPC} || return;
+    return unless $$ == $self->{+PID};
+    return unless get_tid() == $self->{+TID};
+    $ipc->drop_hub($self->{+HID});
+}
+
+1;
+
+__END__
+
+package Test2::Formatter;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+my %ADDED;
+sub import {
+    my $class = shift;
+    return if $class eq __PACKAGE__;
+    return if $ADDED{$class}++;
+    require Test2::API;
+    Test2::API::test2_formatter_add($class);
+}
+
+sub new_root {
+    my $class = shift;
+    return $class->new(@_);
+}
+
+sub hide_buffered { 1 }
+
+sub terminate { }
+
+sub finalize { }
+
+1;
+
+__END__
+
+package Test2::Tools::Tiny;
+use strict;
+use warnings;
+
+BEGIN {
+    if ($] lt "5.008") {
+        require Test::Builder::IO::Scalar;
+    }
+}
+
+use Scalar::Util qw/blessed/;
+
+use Test2::Util qw/try/;
+use Test2::API qw/context run_subtest test2_stack/;
+
+use Test2::Hub::Interceptor();
+use Test2::Hub::Interceptor::Terminator();
+
+our $VERSION = '1.302133';
+
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+our @EXPORT = qw{
+    ok is isnt like unlike is_deeply diag note skip_all todo plan done_testing
+    warnings exception tests capture
+};
+
+sub ok($;$@) {
+    my ($bool, $name, @diag) = @_;
+    my $ctx = context();
+
+    return $ctx->pass_and_release($name) if $bool;
+    return $ctx->fail_and_release($name, @diag);
+}
+
+sub is($$;$@) {
+    my ($got, $want, $name, @diag) = @_;
+    my $ctx = context();
+
+    my $bool;
+    if (defined($got) && defined($want)) {
+        $bool = "$got" eq "$want";
+    }
+    elsif (defined($got) xor defined($want)) {
+        $bool = 0;
+    }
+    else {    # Both are undef
+        $bool = 1;
+    }
+
+    return $ctx->pass_and_release($name) if $bool;
+
+    $got  = '*NOT DEFINED*' unless defined $got;
+    $want = '*NOT DEFINED*' unless defined $want;
+    unshift @diag => (
+        "GOT:      $got",
+        "EXPECTED: $want",
+    );
+
+    return $ctx->fail_and_release($name, @diag);
+}
+
+sub isnt($$;$@) {
+    my ($got, $want, $name, @diag) = @_;
+    my $ctx = context();
+
+    my $bool;
+    if (defined($got) && defined($want)) {
+        $bool = "$got" ne "$want";
+    }
+    elsif (defined($got) xor defined($want)) {
+        $bool = 1;
+    }
+    else {    # Both are undef
+        $bool = 0;
+    }
+
+    return $ctx->pass_and_release($name) if $bool;
+
+    unshift @diag => "Strings are the same (they should not be)"
+        unless $bool;
+
+    return $ctx->fail_and_release($name, @diag);
+}
+
+sub like($$;$@) {
+    my ($thing, $pattern, $name, @diag) = @_;
+    my $ctx = context();
+
+    my $bool;
+    if (defined($thing)) {
+        $bool = "$thing" =~ $pattern;
+        unshift @diag => (
+            "Value: $thing",
+            "Does not match: $pattern"
+        ) unless $bool;
+    }
+    else {
+        $bool = 0;
+        unshift @diag => "Got an undefined value.";
+    }
+
+    return $ctx->pass_and_release($name) if $bool;
+    return $ctx->fail_and_release($name, @diag);
+}
+
+sub unlike($$;$@) {
+    my ($thing, $pattern, $name, @diag) = @_;
+    my $ctx = context();
+
+    my $bool;
+    if (defined($thing)) {
+        $bool = "$thing" !~ $pattern;
+        unshift @diag => (
+            "Unexpected pattern match (it should not match)",
+            "Value:   $thing",
+            "Matches: $pattern"
+        ) unless $bool;
+    }
+    else {
+        $bool = 0;
+        unshift @diag => "Got an undefined value.";
+    }
+
+    return $ctx->pass_and_release($name) if $bool;
+    return $ctx->fail_and_release($name, @diag);
+}
+
+sub is_deeply($$;$@) {
+    my ($got, $want, $name, @diag) = @_;
+    my $ctx = context();
+
+    no warnings 'once';
+    require Data::Dumper;
+
+    # Otherwise numbers might be unquoted
+    local $Data::Dumper::Useperl  = 1;
+
+    local $Data::Dumper::Sortkeys = 1;
+    local $Data::Dumper::Deparse  = 1;
+    local $Data::Dumper::Freezer  = 'XXX';
+    local *UNIVERSAL::XXX         = sub {
+        my ($thing) = @_;
+        if (ref($thing)) {
+            $thing = {%$thing}  if "$thing" =~ m/=HASH/;
+            $thing = [@$thing]  if "$thing" =~ m/=ARRAY/;
+            $thing = \"$$thing" if "$thing" =~ m/=SCALAR/;
+        }
+        $_[0] = $thing;
+    };
+
+    my $g = Data::Dumper::Dumper($got);
+    my $w = Data::Dumper::Dumper($want);
+
+    my $bool = $g eq $w;
+
+    return $ctx->pass_and_release($name) if $bool;
+    return $ctx->fail_and_release($name, $g, $w, @diag);
+}
+
+sub diag {
+    my $ctx = context();
+    $ctx->diag(join '', @_);
+    $ctx->release;
+}
+
+sub note {
+    my $ctx = context();
+    $ctx->note(join '', @_);
+    $ctx->release;
+}
+
+sub skip_all {
+    my ($reason) = @_;
+    my $ctx = context();
+    $ctx->plan(0, SKIP => $reason);
+    $ctx->release if $ctx;
+}
+
+sub todo {
+    my ($reason, $sub) = @_;
+    my $ctx = context();
+
+    # This code is mostly copied from Test2::Todo in the Test2-Suite
+    # distribution.
+    my $hub    = test2_stack->top;
+    my $filter = $hub->pre_filter(
+        sub {
+            my ($active_hub, $event) = @_;
+            if ($active_hub == $hub) {
+                $event->set_todo($reason) if $event->can('set_todo');
+                $event->add_amnesty({tag => 'TODO', details => $reason});
+            }
+            else {
+                $event->add_amnesty({tag => 'TODO', details => $reason, inherited => 1});
+            }
+            return $event;
+        },
+        inherit => 1,
+        todo    => $reason,
+    );
+    $sub->();
+    $hub->pre_unfilter($filter);
+
+    $ctx->release if $ctx;
+}
+
+sub plan {
+    my ($max) = @_;
+    my $ctx = context();
+    $ctx->plan($max);
+    $ctx->release;
+}
+
+sub done_testing {
+    my $ctx = context();
+    $ctx->done_testing;
+    $ctx->release;
+}
+
+sub warnings(&) {
+    my $code = shift;
+    my @warnings;
+    local $SIG{__WARN__} = sub { push @warnings => @_ };
+    $code->();
+    return \@warnings;
+}
+
+sub exception(&) {
+    my $code = shift;
+    local ($@, $!, $SIG{__DIE__});
+    my $ok = eval { $code->(); 1 };
+    my $error = $@ || 'SQUASHED ERROR';
+    return $ok ? undef : $error;
+}
+
+sub tests {
+    my ($name, $code) = @_;
+    my $ctx = context();
+
+    my $be = caller->can('before_each');
+
+    $be->($name) if $be;
+
+    my $bool = run_subtest($name, $code, 1);
+
+    $ctx->release;
+
+    return $bool;
+}
+
+sub capture(&) {
+    my $code = shift;
+
+    my ($err, $out) = ("", "");
+
+    my $handles = test2_stack->top->format->handles;
+    my ($ok, $e);
+    {
+        my ($out_fh, $err_fh);
+
+        ($ok, $e) = try {
+          # Scalar refs as filehandles were added in 5.8.
+          if ($] ge "5.008") {
+            open($out_fh, '>', \$out) or die "Failed to open a temporary STDOUT: $!";
+            open($err_fh, '>', \$err) or die "Failed to open a temporary STDERR: $!";
+          }
+          # Emulate scalar ref filehandles with a tie.
+          else {
+            $out_fh = Test::Builder::IO::Scalar->new(\$out) or die "Failed to open a temporary STDOUT";
+            $err_fh = Test::Builder::IO::Scalar->new(\$err) or die "Failed to open a temporary STDERR";
+          }
+
+            test2_stack->top->format->set_handles([$out_fh, $err_fh, $out_fh]);
+
+            $code->();
+        };
+    }
+    test2_stack->top->format->set_handles($handles);
+
+    die $e unless $ok;
+
+    $err =~ s/ $/_/mg;
+    $out =~ s/ $/_/mg;
+
+    return {
+        STDOUT => $out,
+        STDERR => $err,
+    };
+}
+
+1;
+
+__END__
+
+package Test2::IPC::Driver;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Carp qw/confess/;
+use Test2::Util::HashBase qw{no_fatal no_bail};
+
+use Test2::API qw/test2_ipc_add_driver/;
+
+my %ADDED;
+sub import {
+    my $class = shift;
+    return if $class eq __PACKAGE__;
+    return if $ADDED{$class}++;
+    test2_ipc_add_driver($class);
+}
+
+sub use_shm { 0 }
+
+for my $meth (qw/send cull add_hub drop_hub waiting is_viable/) {
+    no strict 'refs';
+    *$meth = sub {
+        my $thing = shift;
+        confess "'$thing' did not define the required method '$meth'."
+    };
+}
+
+# Print the error and call exit. We are not using 'die' cause this is a
+# catastrophic error that should never be caught. If we get here it
+# means some serious shit has happened in a child process, the only way
+# to inform the parent may be to exit false.
+
+sub abort {
+    my $self = shift;
+    chomp(my ($msg) = @_);
+
+    $self->driver_abort($msg) if $self->can('driver_abort');
+
+    print STDERR "IPC Fatal Error: $msg\n";
+    print STDOUT "Bail out! IPC Fatal Error: $msg\n" unless $self->no_bail;
+
+    CORE::exit(255) unless $self->no_fatal;
+}
+
+sub abort_trace {
+    my $self = shift;
+    my ($msg) = @_;
+    # Older versions of Carp do not export longmess() function, so it needs to be called with package name
+    $self->abort(Carp::longmess($msg));
+}
+
+1;
+
+__END__
+
+package Test2::IPC::Driver::Files;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
+
+use Test2::Util::HashBase qw{tempdir event_ids read_ids timeouts tid pid globals};
+
+use Scalar::Util qw/blessed/;
+use File::Temp();
+use Storable();
+use File::Spec();
+use POSIX();
+
+use Test2::Util qw/try get_tid pkg_to_file IS_WIN32 ipc_separator do_rename do_unlink try_sig_mask/;
+use Test2::API qw/test2_ipc_set_pending/;
+
+sub use_shm { 1 }
+sub shm_size() { 64 }
+
+sub is_viable { 1 }
+
+sub init {
+    my $self = shift;
+
+    my $tmpdir = File::Temp::tempdir(
+        $ENV{T2_TEMPDIR_TEMPLATE} || "test2" . ipc_separator . $$ . ipc_separator . "XXXXXX",
+        CLEANUP => 0,
+        TMPDIR => 1,
+    );
+
+    $self->abort_trace("Could not get a temp dir") unless $tmpdir;
+
+    $self->{+TEMPDIR} = File::Spec->canonpath($tmpdir);
+
+    print STDERR "\nIPC Temp Dir: $tmpdir\n\n"
+        if $ENV{T2_KEEP_TEMPDIR};
+
+    $self->{+EVENT_IDS} = {};
+    $self->{+READ_IDS} = {};
+    $self->{+TIMEOUTS} = {};
+
+    $self->{+TID} = get_tid();
+    $self->{+PID} = $$;
+
+    $self->{+GLOBALS} = {};
+
+    return $self;
+}
+
+sub hub_file {
+    my $self = shift;
+    my ($hid) = @_;
+    my $tdir = $self->{+TEMPDIR};
+    return File::Spec->catfile($tdir, "HUB" . ipc_separator . $hid);
+}
+
+sub event_file {
+    my $self = shift;
+    my ($hid, $e) = @_;
+
+    my $tempdir = $self->{+TEMPDIR};
+    my $type = blessed($e) or $self->abort("'$e' is not a blessed object!");
+
+    $self->abort("'$e' is not an event object!")
+        unless $type->isa('Test2::Event');
+
+    my $tid = get_tid();
+    my $eid = $self->{+EVENT_IDS}->{$hid}->{$$}->{$tid} += 1;
+
+    my @type = split '::', $type;
+    my $name = join(ipc_separator, $hid, $$, $tid, $eid, @type);
+
+    return File::Spec->catfile($tempdir, $name);
+}
+
+sub add_hub {
+    my $self = shift;
+    my ($hid) = @_;
+
+    my $hfile = $self->hub_file($hid);
+
+    $self->abort_trace("File for hub '$hid' already exists")
+        if -e $hfile;
+
+    open(my $fh, '>', $hfile) or $self->abort_trace("Could not create hub file '$hid': $!");
+    print $fh "$$\n" . get_tid() . "\n";
+    close($fh);
+}
+
+sub drop_hub {
+    my $self = shift;
+    my ($hid) = @_;
+
+    my $tdir = $self->{+TEMPDIR};
+    my $hfile = $self->hub_file($hid);
+
+    $self->abort_trace("File for hub '$hid' does not exist")
+        unless -e $hfile;
+
+    open(my $fh, '<', $hfile) or $self->abort_trace("Could not open hub file '$hid': $!");
+    my ($pid, $tid) = <$fh>;
+    close($fh);
+
+    $self->abort_trace("A hub file can only be closed by the process that started it\nExpected $pid, got $$")
+        unless $pid == $$;
+
+    $self->abort_trace("A hub file can only be closed by the thread that started it\nExpected $tid, got " . get_tid())
+        unless get_tid() == $tid;
+
+    if ($ENV{T2_KEEP_TEMPDIR}) {
+        my ($ok, $err) = do_rename($hfile, File::Spec->canonpath("$hfile.complete"));
+        $self->abort_trace("Could not rename file '$hfile' -> '$hfile.complete': $err") unless $ok
+    }
+    else {
+        my ($ok, $err) = do_unlink($hfile);
+        $self->abort_trace("Could not remove file for hub '$hid': $err") unless $ok
+    }
+
+    opendir(my $dh, $tdir) or $self->abort_trace("Could not open temp dir!");
+    for my $file (readdir($dh)) {
+        next if $file =~ m{\.complete$};
+        next unless $file =~ m{^$hid};
+        $self->abort_trace("Not all files from hub '$hid' have been collected!");
+    }
+    closedir($dh);
+}
+
+sub send {
+    my $self = shift;
+    my ($hid, $e, $global) = @_;
+
+    my $tempdir = $self->{+TEMPDIR};
+    my $hfile = $self->hub_file($hid);
+    my $dest = $global ? 'GLOBAL' : $hid;
+
+    $self->abort(<<"    EOT") unless $global || -f $hfile;
+hub '$hid' is not available, failed to send event!
+
+There was an attempt to send an event to a hub in a parent process or thread,
+but that hub appears to be gone. This can happen if you fork, or start a new
+thread from inside subtest, and the parent finishes the subtest before the
+child returns.
+
+This can also happen if the parent process is done testing before the child
+finishes. Test2 normally waits automatically in the root process, but will not
+do so if Test::Builder is loaded for legacy reasons.
+    EOT
+
+    my $file = $self->event_file($dest, $e);
+    my $ready = File::Spec->canonpath("$file.ready");
+
+    if ($global) {
+        my $name = $ready;
+        $name =~ s{^.*(GLOBAL)}{GLOBAL};
+        $self->{+GLOBALS}->{$hid}->{$name}++;
+    }
+
+    # Write and rename the file.
+    my ($ren_ok, $ren_err);
+    my ($ok, $err) = try_sig_mask {
+        Storable::store($e, $file);
+        ($ren_ok, $ren_err) = do_rename("$file", $ready);
+    };
+
+    if ($ok) {
+        $self->abort("Could not rename file '$file' -> '$ready': $ren_err") unless $ren_ok;
+        test2_ipc_set_pending(substr($file, -(shm_size)));
+    }
+    else {
+        my $src_file = __FILE__;
+        $err =~ s{ at \Q$src_file\E.*$}{};
+        chomp($err);
+        my $tid = get_tid();
+        my $trace = $e->trace->debug;
+        my $type = blessed($e);
+
+        $self->abort(<<"        EOT");
+
+*******************************************************************************
+There was an error writing an event:
+Destination: $dest
+Origin PID:  $$
+Origin TID:  $tid
+Event Type:  $type
+Event Trace: $trace
+File Name:   $file
+Ready Name:  $ready
+Error: $err
+*******************************************************************************
+
+        EOT
+    }
+
+    return 1;
+}
+
+sub driver_abort {
+    my $self = shift;
+    my ($msg) = @_;
+
+    local ($@, $!, $?, $^E);
+    eval {
+        my $abort = File::Spec->catfile($self->{+TEMPDIR}, "ABORT");
+        open(my $fh, '>>', $abort) or die "Could not open abort file: $!";
+        print $fh $msg, "\n";
+        close($fh) or die "Could not close abort file: $!";
+        1;
+    } or warn $@;
+}
+
+sub cull {
+    my $self = shift;
+    my ($hid) = @_;
+
+    my $tempdir = $self->{+TEMPDIR};
+
+    opendir(my $dh, $tempdir) or $self->abort("could not open IPC temp dir ($tempdir)!");
+
+    my $read = $self->{+READ_IDS};
+    my $timeouts = $self->{+TIMEOUTS};
+
+    my @out;
+    for my $info (sort cmp_events map { $self->should_read_event($hid, $_) } readdir($dh)) {
+        unless ($info->{global}) {
+            my $next = $self->{+READ_IDS}->{$info->{hid}}->{$info->{pid}}->{$info->{tid}} ||= 1;
+
+            $timeouts->{$info->{file}} ||= time;
+
+            if ($next != $info->{eid}) {
+                # Wait up to N seconds for missing events
+                next unless 5 < time - $timeouts->{$info->{file}};
+                $self->abort("Missing event HID: $info->{hid}, PID: $info->{pid}, TID: $info->{tid}, EID: $info->{eid}.");
+            }
+
+            $self->{+READ_IDS}->{$info->{hid}}->{$info->{pid}}->{$info->{tid}} = $info->{eid} + 1;
+        }
+
+        my $full = $info->{full_path};
+        my $obj = $self->read_event_file($full);
+        push @out => $obj;
+
+        # Do not remove global events
+        next if $info->{global};
+
+        if ($ENV{T2_KEEP_TEMPDIR}) {
+            my $complete = File::Spec->canonpath("$full.complete");
+            my ($ok, $err) = do_rename($full, $complete);
+            $self->abort("Could not rename IPC file '$full', '$complete': $err") unless $ok;
+        }
+        else {
+            my ($ok, $err) = do_unlink("$full");
+            $self->abort("Could not unlink IPC file '$full': $err") unless $ok;
+        }
+    }
+
+    closedir($dh);
+    return @out;
+}
+
+sub parse_event_filename {
+    my $self = shift;
+    my ($file) = @_;
+
+    # The || is to force 0 in false
+    my $complete = substr($file, -9, 9) eq '.complete' || 0 and substr($file, -9, 9, "");
+    my $ready    = substr($file, -6, 6) eq '.ready'    || 0 and substr($file, -6, 6, "");
+
+    my @parts = split ipc_separator, $file;
+    my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 3));
+    my ($pid, $tid, $eid) = splice(@parts, 0, 3);
+    my $type = join '::' => @parts;
+
+    return {
+        file     => $file,
+        ready    => $ready,
+        complete => $complete,
+        global   => $global,
+        type     => $type,
+        hid      => $hid,
+        pid      => $pid,
+        tid      => $tid,
+        eid      => $eid,
+    };
+}
+
+sub should_read_event {
+    my $self = shift;
+    my ($hid, $file) = @_;
+
+    return if substr($file, 0, 1) eq '.';
+    return if substr($file, 0, 3) eq 'HUB';
+    CORE::exit(255) if $file eq 'ABORT';
+
+    my $parsed = $self->parse_event_filename($file);
+
+    return if $parsed->{complete};
+    return unless $parsed->{ready};
+    return unless $parsed->{global} || $parsed->{hid} eq $hid;
+
+    return if $parsed->{global} && $self->{+GLOBALS}->{$hid}->{$file}++;
+
+    # Untaint the path.
+    my $full = File::Spec->catfile($self->{+TEMPDIR}, $file);
+    ($full) = ($full =~ m/^(.*)$/gs) if ${^TAINT};
+
+    $parsed->{full_path} = $full;
+
+    return $parsed;
+}
+
+sub cmp_events {
+    # Globals first
+    return -1 if $a->{global} && !$b->{global};
+    return  1 if $b->{global} && !$a->{global};
+
+    return $a->{pid} <=> $b->{pid}
+        || $a->{tid} <=> $b->{tid}
+        || $a->{eid} <=> $b->{eid};
+}
+
+sub read_event_file {
+    my $self = shift;
+    my ($file) = @_;
+
+    my $obj = Storable::retrieve($file);
+    $self->abort("Got an unblessed object: '$obj'")
+        unless blessed($obj);
+
+    unless ($obj->isa('Test2::Event')) {
+        my $pkg  = blessed($obj);
+        my $mod_file = pkg_to_file($pkg);
+        my ($ok, $err) = try { require $mod_file };
+
+        $self->abort("Event has unknown type ($pkg), tried to load '$mod_file' but failed: $err")
+            unless $ok;
+
+        $self->abort("'$obj' is not a 'Test2::Event' object")
+            unless $obj->isa('Test2::Event');
+    }
+
+    return $obj;
+}
+
+sub waiting {
+    my $self = shift;
+    require Test2::Event::Waiting;
+    $self->send(
+        GLOBAL => Test2::Event::Waiting->new(
+            trace => Test2::EventFacet::Trace->new(frame => [caller()]),
+        ),
+        'GLOBAL'
+    );
+    return;
+}
+
+sub DESTROY {
+    my $self = shift;
+
+    return unless defined $self->pid;
+    return unless defined $self->tid;
+
+    return unless $$        == $self->pid;
+    return unless get_tid() == $self->tid;
+
+    my $tempdir = $self->{+TEMPDIR};
+
+    my $aborted = 0;
+    my $abort_file = File::Spec->catfile($self->{+TEMPDIR}, "ABORT");
+    if (-e $abort_file) {
+        $aborted = 1;
+        my ($ok, $err) = do_unlink($abort_file);
+        warn $err unless $ok;
+    }
+
+    opendir(my $dh, $tempdir) or $self->abort("Could not open temp dir! ($tempdir)");
+    while(my $file = readdir($dh)) {
+        next if $file =~ m/^\.+$/;
+        next if $file =~ m/\.complete$/;
+        my $full = File::Spec->catfile($tempdir, $file);
+
+        my $sep = ipc_separator;
+        if ($aborted || $file =~ m/^(GLOBAL|HUB$sep)/) {
+            $full =~ m/^(.*)$/;
+            $full = $1; # Untaint it
+            next if $ENV{T2_KEEP_TEMPDIR};
+            my ($ok, $err) = do_unlink($full);
+            $self->abort("Could not unlink IPC file '$full': $err") unless $ok;
+            next;
+        }
+
+        $self->abort("Leftover files in the directory ($full)!\n");
+    }
+    closedir($dh);
+
+    if ($ENV{T2_KEEP_TEMPDIR}) {
+        print STDERR "# Not removing temp dir: $tempdir\n";
+        return;
+    }
+
+    my $abort = File::Spec->catfile($self->{+TEMPDIR}, "ABORT");
+    unlink($abort) if -e $abort;
+    rmdir($tempdir) or warn "Could not remove IPC temp dir ($tempdir)";
+}
+
+1;
+
+__END__
+
+package Test2::Hub::Subtest;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
+use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
+use Test2::Util qw/get_tid/;
+
+sub is_subtest { 1 }
+
+sub inherit {
+    my $self = shift;
+    my ($from) = @_;
+
+    $self->SUPER::inherit($from);
+
+    $self->{+NESTED} = $from->nested + 1;
+}
+
+{
+    # Legacy
+    no warnings 'once';
+    *ID = \&Test2::Hub::HID;
+    *id = \&Test2::Hub::hid;
+    *set_id = \&Test2::Hub::set_hid;
+}
+
+sub send {
+    my $self = shift;
+    my ($e) = @_;
+
+    my $out = $self->SUPER::send($e);
+
+    return $out if $self->{+MANUAL_SKIP_ALL};
+
+    my $f = $e->facet_data;
+
+    my $plan = $f->{plan} or return $out;
+    return $out unless $plan->{skip};
+
+    my $trace = $f->{trace} or die "Missing Trace!";
+    return $out unless $trace->{pid} != $self->pid
+                    || $trace->{tid} != $self->tid;
+
+    no warnings 'exiting';
+    last T2_SUBTEST_WRAPPER;
+}
+
+sub terminate {
+    my $self = shift;
+    my ($code, $e, $f) = @_;
+    $self->set_exit_code($code);
+
+    return if $self->{+MANUAL_SKIP_ALL};
+
+    $f ||= $e->facet_data;
+
+    if(my $plan = $f->{plan}) {
+        my $trace = $f->{trace} or die "Missing Trace!";
+        return if $plan->{skip}
+               && ($trace->{pid} != $$ || $trace->{tid} != get_tid);
+    }
+
+    no warnings 'exiting';
+    last T2_SUBTEST_WRAPPER;
+}
+
+1;
+
+__END__
+
+package Test2::Hub::Interceptor;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Test2::Hub::Interceptor::Terminator();
+
+BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
+use Test2::Util::HashBase;
+
+sub init {
+    my $self = shift;
+    $self->SUPER::init();
+    $self->{+NESTED} = 0;
+}
+
+sub inherit {
+    my $self = shift;
+    my ($from, %params) = @_;
+
+    $self->{+NESTED} = 0;
+
+    if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
+        my $ipc = $from->{+IPC};
+        $self->{+IPC} = $ipc;
+        $ipc->add_hub($self->{+HID});
+    }
+}
+
+sub terminate {
+    my $self = shift;
+    my ($code) = @_;
+
+    eval {
+        no warnings 'exiting';
+        last T2_SUBTEST_WRAPPER;
+    };
+    my $err = $@;
+
+    # Fallback
+    die bless(\$err, 'Test2::Hub::Interceptor::Terminator');
+}
+
+1;
+
+__END__
+
+package Test2::Hub::Interceptor::Terminator;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+1;
+
+__END__
+
+package Test2::Formatter::TAP;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Test2::Util qw/clone_io/;
+
+use Test2::Util::HashBase qw{
+    no_numbers handles _encoding _last_fh
+    -made_assertion
+};
+
+sub OUT_STD() { 0 }
+sub OUT_ERR() { 1 }
+
+BEGIN { require Test2::Formatter; our @ISA = qw(Test2::Formatter) }
+
+sub _autoflush {
+    my($fh) = pop;
+    my $old_fh = select $fh;
+    $| = 1;
+    select $old_fh;
+}
+
+_autoflush(\*STDOUT);
+_autoflush(\*STDERR);
+
+sub hide_buffered { 1 }
+
+sub init {
+    my $self = shift;
+
+    $self->{+HANDLES} ||= $self->_open_handles;
+    if(my $enc = delete $self->{encoding}) {
+        $self->encoding($enc);
+    }
+}
+
+sub _open_handles {
+    my $self = shift;
+
+    require Test2::API;
+    my $out = clone_io(Test2::API::test2_stdout());
+    my $err = clone_io(Test2::API::test2_stderr());
+
+    _autoflush($out);
+    _autoflush($err);
+
+    return [$out, $err];
+}
+
+sub encoding {
+    my $self = shift;
+
+    if ($] ge "5.007003" and @_) {
+        my ($enc) = @_;
+        my $handles = $self->{+HANDLES};
+
+        # https://rt.perl.org/Public/Bug/Display.html?id=31923
+        # If utf8 is requested we use ':utf8' instead of ':encoding(utf8)' in
+        # order to avoid the thread segfault.
+        if ($enc =~ m/^utf-?8$/i) {
+            binmode($_, ":utf8") for @$handles;
+        }
+        else {
+            binmode($_, ":encoding($enc)") for @$handles;
+        }
+        $self->{+_ENCODING} = $enc;
+    }
+
+    return $self->{+_ENCODING};
+}
+
+if ($^C) {
+    no warnings 'redefine';
+    *write = sub {};
+}
+sub write {
+    my ($self, $e, $num, $f) = @_;
+
+    # The most common case, a pass event with no amnesty and a normal name.
+    return if $self->print_optimal_pass($e, $num);
+
+    $f ||= $e->facet_data;
+
+    $self->encoding($f->{control}->{encoding}) if $f->{control}->{encoding};
+
+    my @tap = $self->event_tap($f, $num) or return;
+
+    $self->{+MADE_ASSERTION} = 1 if $f->{assert};
+
+    my $nesting = $f->{trace}->{nested} || 0;
+    my $handles = $self->{+HANDLES};
+    my $indent = '    ' x $nesting;
+
+    # Local is expensive! Only do it if we really need to.
+    local($\, $,) = (undef, '') if $\ || $,;
+    for my $set (@tap) {
+        no warnings 'uninitialized';
+        my ($hid, $msg) = @$set;
+        next unless $msg;
+        my $io = $handles->[$hid] or next;
+
+        print $io "\n"
+            if $ENV{HARNESS_ACTIVE}
+            && !$ENV{HARNESS_IS_VERBOSE}
+            && $hid == OUT_ERR
+            && $self->{+_LAST_FH} != $io
+            && $msg =~ m/^#\s*Failed test /;
+
+        $msg =~ s/^/$indent/mg if $nesting;
+        print $io $msg;
+        $self->{+_LAST_FH} = $io;
+    }
+}
+
+sub print_optimal_pass {
+    my ($self, $e, $num) = @_;
+
+    my $type = ref($e);
+
+    # Only optimal if this is a Pass or a passing Ok
+    return unless $type eq 'Test2::Event::Pass' || ($type eq 'Test2::Event::Ok' && $e->{pass});
+
+    # Amnesty requires further processing (todo is a form of amnesty)
+    return if ($e->{amnesty} && @{$e->{amnesty}}) || defined($e->{todo});
+
+    # A name with a newline or hash symbol needs extra processing
+    return if defined($e->{name}) && (-1 != index($e->{name}, "\n") || -1 != index($e->{name}, '#'));
+
+    my $ok = 'ok';
+    $ok .= " $num" if $num && !$self->{+NO_NUMBERS};
+    $ok .= defined($e->{name}) ? " - $e->{name}\n" : "\n";
+
+    if (my $nesting = $e->{trace}->{nested}) {
+        my $indent = '    ' x $nesting;
+        $ok = "$indent$ok";
+    }
+
+    my $io = $self->{+HANDLES}->[OUT_STD];
+
+    local($\, $,) = (undef, '') if $\ || $,;
+    print $io $ok;
+    $self->{+_LAST_FH} = $io;
+
+    return 1;
+}
+
+sub event_tap {
+    my ($self, $f, $num) = @_;
+
+    my @tap;
+
+    # If this IS the first event the plan should come first
+    # (plan must be before or after assertions, not in the middle)
+    push @tap => $self->plan_tap($f) if $f->{plan} && !$self->{+MADE_ASSERTION};
+
+    # The assertion is most important, if present.
+    if ($f->{assert}) {
+        push @tap => $self->assert_tap($f, $num);
+        push @tap => $self->debug_tap($f, $num) unless $f->{assert}->{no_debug} || $f->{assert}->{pass};
+    }
+
+    # Almost as important as an assertion
+    push @tap => $self->error_tap($f) if $f->{errors};
+
+    # Now lets see the diagnostics messages
+    push @tap => $self->info_tap($f) if $f->{info};
+
+    # If this IS NOT the first event the plan should come last
+    # (plan must be before or after assertions, not in the middle)
+    push @tap => $self->plan_tap($f) if $self->{+MADE_ASSERTION} && $f->{plan};
+
+    # Bail out
+    push @tap => $self->halt_tap($f) if $f->{control}->{halt};
+
+    return @tap if @tap;
+    return @tap if $f->{control}->{halt};
+    return @tap if grep { $f->{$_} } qw/assert plan info errors/;
+
+    # Use the summary as a fallback if nothing else is usable.
+    return $self->summary_tap($f, $num);
+}
+
+sub error_tap {
+    my $self = shift;
+    my ($f) = @_;
+
+    my $IO = ($f->{amnesty} && @{$f->{amnesty}}) ? OUT_STD : OUT_ERR;
+
+    return map {
+        my $details = $_->{details};
+
+        my $msg;
+        if (ref($details)) {
+            require Data::Dumper;
+            my $dumper = Data::Dumper->new([$details])->Indent(2)->Terse(1)->Pad('# ')->Useqq(1)->Sortkeys(1);
+            chomp($msg = $dumper->Dump);
+        }
+        else {
+            chomp($msg = $details);
+            $msg =~ s/^/# /;
+            $msg =~ s/\n/\n# /g;
+        }
+
+        [$IO, "$msg\n"];
+    } @{$f->{errors}};
+}
+
+sub plan_tap {
+    my $self = shift;
+    my ($f) = @_;
+    my $plan = $f->{plan} or return;
+
+    return if $plan->{none};
+
+    if ($plan->{skip}) {
+        my $reason = $plan->{details} or return [OUT_STD, "1..0 # SKIP\n"];
+        chomp($reason);
+        return [OUT_STD, '1..0 # SKIP ' . $reason . "\n"];
+    }
+
+    return [OUT_STD, "1.." . $plan->{count} . "\n"];
+}
+
+sub no_subtest_space { 0 }
+sub assert_tap {
+    my $self = shift;
+    my ($f, $num) = @_;
+
+    my $assert = $f->{assert} or return;
+    my $pass = $assert->{pass};
+    my $name = $assert->{details};
+
+    my $ok = $pass ? 'ok' : 'not ok';
+    $ok .= " $num" if $num && !$self->{+NO_NUMBERS};
+
+    # The regex form is ~250ms, the index form is ~50ms
+    my @extra;
+    defined($name) && (
+        (index($name, "\n") != -1 && (($name, @extra) = split(/\n\r?/, $name, -1))),
+        ((index($name, "#" ) != -1  || substr($name, -1) eq '\\') && (($name =~ s|\\|\\\\|g), ($name =~ s|#|\\#|g)))
+    );
+
+    my $extra_space = @extra ? ' ' x (length($ok) + 2) : '';
+    my $extra_indent = '';
+
+    my ($directives, $reason, $is_skip);
+    if ($f->{amnesty}) {
+        my %directives;
+
+        for my $am (@{$f->{amnesty}}) {
+            next if $am->{inherited};
+            my $tag = $am->{tag} or next;
+            $is_skip = 1 if $tag eq 'skip';
+
+            $directives{$tag} ||= $am->{details};
+        }
+
+        my %seen;
+        my @order = grep { !$seen{$_}++ } sort keys %directives;
+
+        $directives = ' # ' . join ' & ' => @order;
+
+        for my $tag ('skip', @order) {
+            next unless defined($directives{$tag}) && length($directives{$tag});
+            $reason = $directives{$tag};
+            last;
+        }
+    }
+
+    $ok .= " - $name" if defined $name && !($is_skip && !$name);
+
+    my @subtap;
+    if ($f->{parent} && $f->{parent}->{buffered}) {
+        $ok .= ' {';
+
+        # In a verbose harness we indent the extra since they will appear
+        # inside the subtest braces. This helps readability. In a non-verbose
+        # harness we do not do this because it is less readable.
+        if ($ENV{HARNESS_IS_VERBOSE} || !$ENV{HARNESS_ACTIVE}) {
+            $extra_indent = "    ";
+            $extra_space = ' ';
+        }
+
+        # Render the sub-events, we use our own counter for these.
+        my $count = 0;
+        @subtap = map {
+            my $f2 = $_;
+
+            # Bump the count for any event that should bump it.
+            $count++ if $f2->{assert};
+
+            # This indents all output lines generated for the sub-events.
+            # index 0 is the filehandle, index 1 is the message we want to indent.
+            map { $_->[1] =~ s/^(.*\S.*)$/    $1/mg; $_ } $self->event_tap($f2, $count);
+        } @{$f->{parent}->{children}};
+
+        push @subtap => [OUT_STD, "}\n"];
+    }
+
+    if ($directives) {
+        $directives = ' # TODO & SKIP' if $directives eq ' # TODO & skip';
+        $ok .= $directives;
+        $ok .= " $reason" if defined($reason);
+    }
+
+    $extra_space = ' ' if $self->no_subtest_space;
+
+    my @out = ([OUT_STD, "$ok\n"]);
+    push @out => map {[OUT_STD, "${extra_indent}#${extra_space}$_\n"]} @extra if @extra;
+    push @out => @subtap;
+
+    return @out;
+}
+
+sub debug_tap {
+    my ($self, $f, $num) = @_;
+
+    # Figure out the debug info, this is typically the file name and line
+    # number, but can also be a custom message. If no trace object is provided
+    # then we have nothing useful to display.
+    my $name  = $f->{assert}->{details};
+    my $trace = $f->{trace};
+
+    my $debug = "[No trace info available]";
+    if ($trace->{details}) {
+        $debug = $trace->{details};
+    }
+    elsif ($trace->{frame}) {
+        my ($pkg, $file, $line) = @{$trace->{frame}};
+        $debug = "at $file line $line." if $file && $line;
+    }
+
+    my $amnesty = $f->{amnesty} && @{$f->{amnesty}}
+        ? ' (with amnesty)'
+        : '';
+
+    # Create the initial diagnostics. If the test has a name we put the debug
+    # info on a second line, this behavior is inherited from Test::Builder.
+    my $msg = defined($name)
+        ? qq[# Failed test${amnesty} '$name'\n# $debug\n]
+        : qq[# Failed test${amnesty} $debug\n];
+
+    my $IO = $f->{amnesty} && @{$f->{amnesty}} ? OUT_STD : OUT_ERR;
+
+    return [$IO, $msg];
+}
+
+sub halt_tap {
+    my ($self, $f) = @_;
+
+    return if $f->{trace}->{nested} && !$f->{trace}->{buffered};
+    my $details = $f->{control}->{details};
+
+    return [OUT_STD, "Bail out!\n"] unless defined($details) && length($details);
+    return [OUT_STD, "Bail out!  $details\n"];
+}
+
+sub info_tap {
+    my ($self, $f) = @_;
+
+    return map {
+        my $details = $_->{details};
+
+        my $IO = $_->{debug} && !($f->{amnesty} && @{$f->{amnesty}}) ? OUT_ERR : OUT_STD;
+
+        my $msg;
+        if (ref($details)) {
+            require Data::Dumper;
+            my $dumper = Data::Dumper->new([$details])->Indent(2)->Terse(1)->Pad('# ')->Useqq(1)->Sortkeys(1);
+            chomp($msg = $dumper->Dump);
+        }
+        else {
+            chomp($msg = $details);
+            $msg =~ s/^/# /;
+            $msg =~ s/\n/\n# /g;
+        }
+
+        [$IO, "$msg\n"];
+    } @{$f->{info}};
+}
+
+sub summary_tap {
+    my ($self, $f, $num) = @_;
+
+    return if $f->{about}->{no_display};
+
+    my $summary = $f->{about}->{details} or return;
+    chomp($summary);
+    $summary =~ s/^/# /smg;
+
+    return [OUT_STD, "$summary\n"];
+}
+
+1;
+
+__END__
+
+package Test2::Util::Facets2Legacy;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Carp qw/croak confess/;
+use Scalar::Util qw/blessed/;
+
+use base 'Exporter';
+our @EXPORT_OK = qw{
+    causes_fail
+    diagnostics
+    global
+    increments_count
+    no_display
+    sets_plan
+    subtest_id
+    summary
+    terminate
+    uuid
+};
+our %EXPORT_TAGS = ( ALL => \@EXPORT_OK );
+
+our $CYCLE_DETECT = 0;
+sub _get_facet_data {
+    my $in = shift;
+
+    if (blessed($in) && $in->isa('Test2::Event')) {
+        confess "Cycle between Facets2Legacy and $in\->facet_data() (Did you forget to override the facet_data() method?)"
+            if $CYCLE_DETECT;
+
+        local $CYCLE_DETECT = 1;
+        return $in->facet_data;
+    }
+
+    return $in if ref($in) eq 'HASH';
+
+    croak "'$in' Does not appear to be either a Test::Event or an EventFacet hashref";
+}
+
+sub causes_fail {
+    my $facet_data = _get_facet_data(shift @_);
+
+    return 1 if $facet_data->{errors} && grep { $_->{fail} } @{$facet_data->{errors}};
+
+    if (my $control = $facet_data->{control}) {
+        return 1 if $control->{halt};
+        return 1 if $control->{terminate};
+    }
+
+    return 0 if $facet_data->{amnesty} && @{$facet_data->{amnesty}};
+    return 1 if $facet_data->{assert} && !$facet_data->{assert}->{pass};
+    return 0;
+}
+
+sub diagnostics {
+    my $facet_data = _get_facet_data(shift @_);
+    return 1 if $facet_data->{errors} && @{$facet_data->{errors}};
+    return 0 unless $facet_data->{info} && @{$facet_data->{info}};
+    return (grep { $_->{debug} } @{$facet_data->{info}}) ? 1 : 0;
+}
+
+sub global {
+    my $facet_data = _get_facet_data(shift @_);
+    return 0 unless $facet_data->{control};
+    return $facet_data->{control}->{global};
+}
+
+sub increments_count {
+    my $facet_data = _get_facet_data(shift @_);
+    return $facet_data->{assert} ? 1 : 0;
+}
+
+sub no_display {
+    my $facet_data = _get_facet_data(shift @_);
+    return 0 unless $facet_data->{about};
+    return $facet_data->{about}->{no_display};
+}
+
+sub sets_plan {
+    my $facet_data = _get_facet_data(shift @_);
+    my $plan = $facet_data->{plan} or return;
+    my @out = ($plan->{count} || 0);
+
+    if ($plan->{skip}) {
+        push @out => 'SKIP';
+        push @out => $plan->{details} if defined $plan->{details};
+    }
+    elsif ($plan->{none}) {
+        push @out => 'NO PLAN'
+    }
+
+    return @out;
+}
+
+sub subtest_id {
+    my $facet_data = _get_facet_data(shift @_);
+    return undef unless $facet_data->{parent};
+    return $facet_data->{parent}->{hid};
+}
+
+sub summary {
+    my $facet_data = _get_facet_data(shift @_);
+    return '' unless $facet_data->{about} && $facet_data->{about}->{details};
+    return $facet_data->{about}->{details};
+}
+
+sub terminate {
+    my $facet_data = _get_facet_data(shift @_);
+    return undef unless $facet_data->{control};
+    return $facet_data->{control}->{terminate};
+}
+
+sub uuid {
+    my $in = shift;
+
+    if ($CYCLE_DETECT) {
+        if (blessed($in) && $in->isa('Test2::Event')) {
+            my $meth = $in->can('uuid');
+            $meth = $in->can('SUPER::uuid') if $meth == \&uuid;
+            my $uuid = $in->$meth if $meth && $meth != \&uuid;
+            return $uuid if $uuid;
+        }
+
+        return undef;
+    }
+
+    my $facet_data = _get_facet_data($in);
+    return $facet_data->{about}->{uuid} if $facet_data->{about} && $facet_data->{about}->{uuid};
+
+    return undef;
+}
+
+1;
+
+package Test2::Util::HashBase;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+#################################################################
+#                                                               #
+#  This is a generated file! Do not modify this file directly!  #
+#  Use hashbase_inc.pl script to regenerate this file.          #
+#  The script is part of the Object::HashBase distribution.     #
+#  Note: You can modify the version number above this comment   #
+#  if needed, that is fine.                                     #
+#                                                               #
+#################################################################
+
+{
+    no warnings 'once';
+    $Test2::Util::HashBase::HB_VERSION = '0.006';
+    *Test2::Util::HashBase::ATTR_SUBS = \%Object::HashBase::ATTR_SUBS;
+    *Test2::Util::HashBase::ATTR_LIST = \%Object::HashBase::ATTR_LIST;
+    *Test2::Util::HashBase::VERSION   = \%Object::HashBase::VERSION;
+    *Test2::Util::HashBase::CAN_CACHE = \%Object::HashBase::CAN_CACHE;
+}
+
+
+require Carp;
+{
+    no warnings 'once';
+    $Carp::Internal{+__PACKAGE__} = 1;
+}
+
+BEGIN {
+    # these are not strictly equivalent, but for out use we don't care
+    # about order
+    *_isa = ($] >= 5.010 && require mro) ? \&mro::get_linear_isa : sub {
+        no strict 'refs';
+        my @packages = ($_[0]);
+        my %seen;
+        for my $package (@packages) {
+            push @packages, grep !$seen{$_}++, @{"$package\::ISA"};
+        }
+        return \@packages;
+    }
+}
+
+my %STRIP = (
+    '^' => 1,
+    '-' => 1,
+);
+
+sub import {
+    my $class = shift;
+    my $into  = caller;
+
+    # Make sure we list the OLDEST version used to create this class.
+    my $ver = $Test2::Util::HashBase::HB_VERSION || $Test2::Util::HashBase::VERSION;
+    $Test2::Util::HashBase::VERSION{$into} = $ver if !$Test2::Util::HashBase::VERSION{$into} || $Test2::Util::HashBase::VERSION{$into} > $ver;
+
+    my $isa = _isa($into);
+    my $attr_list = $Test2::Util::HashBase::ATTR_LIST{$into} ||= [];
+    my $attr_subs = $Test2::Util::HashBase::ATTR_SUBS{$into} ||= {};
+
+    my %subs = (
+        ($into->can('new') ? () : (new => \&_new)),
+        (map %{$Test2::Util::HashBase::ATTR_SUBS{$_} || {}}, @{$isa}[1 .. $#$isa]),
+        (
+            map {
+                my $p = substr($_, 0, 1);
+                my $x = $_;
+                substr($x, 0, 1) = '' if $STRIP{$p};
+                push @$attr_list => $x;
+                my ($sub, $attr) = (uc $x, $x);
+                $sub => ($attr_subs->{$sub} = sub() { $attr }),
+                    $attr => sub { $_[0]->{$attr} },
+                      $p eq '-' ? ("set_$attr" => sub { Carp::croak("'$attr' is read-only") })
+                    : $p eq '^' ? ("set_$attr" => sub { Carp::carp("set_$attr() is deprecated"); $_[0]->{$attr} = $_[1] })
+                    : ("set_$attr" => sub { $_[0]->{$attr} = $_[1] }),
+            } @_
+        ),
+    );
+
+    no strict 'refs';
+    *{"$into\::$_"} = $subs{$_} for keys %subs;
+}
+
+sub attr_list {
+    my $class = shift;
+
+    my $isa = _isa($class);
+
+    my %seen;
+    my @list = grep { !$seen{$_}++ } map {
+        my @out;
+
+        if (0.004 > ($Test2::Util::HashBase::VERSION{$_} || 0)) {
+            Carp::carp("$_ uses an inlined version of Test2::Util::HashBase too old to support attr_list()");
+        }
+        else {
+            my $list = $Test2::Util::HashBase::ATTR_LIST{$_};
+            @out = $list ? @$list : ()
+        }
+
+        @out;
+    } reverse @$isa;
+
+    return @list;
+}
+
+sub _new {
+    my $class = shift;
+
+    my $self;
+
+    if (@_ == 1) {
+        my $arg = shift;
+        my $type = ref($arg);
+
+        if ($type eq 'HASH') {
+            $self = bless({%$arg}, $class)
+        }
+        else {
+            Carp::croak("Not sure what to do with '$type' in $class constructor")
+                unless $type eq 'ARRAY';
+
+            my %proto;
+            my @attributes = attr_list($class);
+            while (@$arg) {
+                my $val = shift @$arg;
+                my $key = shift @attributes or Carp::croak("Too many arguments for $class constructor");
+                $proto{$key} = $val;
+            }
+
+            $self = bless(\%proto, $class);
+        }
+    }
+    else {
+        $self = bless({@_}, $class);
+    }
+
+    $Test2::Util::HashBase::CAN_CACHE{$class} = $self->can('init')
+        unless exists $Test2::Util::HashBase::CAN_CACHE{$class};
+
+    $self->init if $Test2::Util::HashBase::CAN_CACHE{$class};
+
+    $self;
+}
+
+1;
+
+__END__
+
+package Test2::Util::Trace;
+require Test2::EventFacet::Trace;
+@ISA = ('Test2::EventFacet::Trace');
+
+our $VERSION = '1.302133';
+
+1;
+
+__END__
+
+package Test2::Util::ExternalMeta;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Carp qw/croak/;
+
+sub META_KEY() { '_meta' }
+
+our @EXPORT = qw/meta set_meta get_meta delete_meta/;
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+
+sub set_meta {
+    my $self = shift;
+    my ($key, $value) = @_;
+
+    validate_key($key);
+
+    $self->{+META_KEY} ||= {};
+    $self->{+META_KEY}->{$key} = $value;
+}
+
+sub get_meta {
+    my $self = shift;
+    my ($key) = @_;
+
+    validate_key($key);
+
+    my $meta = $self->{+META_KEY} or return undef;
+    return $meta->{$key};
+}
+
+sub delete_meta {
+    my $self = shift;
+    my ($key) = @_;
+
+    validate_key($key);
+
+    my $meta = $self->{+META_KEY} or return undef;
+    delete $meta->{$key};
+}
+
+sub meta {
+    my $self = shift;
+    my ($key, $default) = @_;
+
+    validate_key($key);
+
+    my $meta = $self->{+META_KEY};
+    return undef unless $meta || defined($default);
+
+    unless($meta) {
+        $meta = {};
+        $self->{+META_KEY} = $meta;
+    }
+
+    $meta->{$key} = $default
+        if defined($default) && !defined($meta->{$key});
+
+    return $meta->{$key};
+}
+
+sub validate_key {
+    my $key = shift;
+
+    return if $key && !ref($key);
+
+    my $render_key = defined($key) ? "'$key'" : 'undef';
+    croak "Invalid META key: $render_key, keys must be true, and may not be references";
+}
+
+1;
+
+__END__
+
+package Test2::EventFacet::Parent;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Carp qw/confess/;
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -hid -children -buffered };
+
+sub init {
+    confess "Attribute 'hid' must be set"
+        unless defined $_[0]->{+HID};
+
+    $_[0]->{+CHILDREN} ||= [];
+}
+
+1;
+
+__END__
+
+package Test2::EventFacet::Meta;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use vars qw/$AUTOLOAD/;
+
+# replace set_details
+{
+    no warnings 'redefine';
+    sub set_details { $_[0]->{'set_details'} }
+}
+
+sub can {
+    my $self = shift;
+    my ($name) = @_;
+
+    my $existing = $self->SUPER::can($name);
+    return $existing if $existing;
+
+    # Only vivify when called on an instance, do not vivify for a class. There
+    # are a lot of magic class methods used in things like serialization (or
+    # the forks.pm module) which cause problems when vivified.
+    return undef unless ref($self);
+
+    my $sub = sub { $_[0]->{$name} };
+    {
+        no strict 'refs';
+        *$name = $sub;
+    }
+
+    return $sub;
+}
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+    $name =~ s/^.*:://g;
+    my $sub = $_[0]->can($name);
+    goto &$sub;
+}
+
+1;
+
+__END__
+
+package Test2::EventFacet::Amnesty;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+sub is_list { 1 }
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -tag -inherited };
+
+1;
+
+__END__
+
+package Test2::EventFacet::Info;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+sub is_list { 1 }
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{-tag -debug -important};
+
+1;
+
+__END__
+
+package Test2::EventFacet::Assert;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -pass -no_debug -number };
+
+1;
+
+__END__
+
+package Test2::EventFacet::Render;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+sub is_list { 1 }
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -tag -facet -mode };
+
+1;
+
+__END__
+
+package Test2::EventFacet::Error;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+sub facet_key { 'errors' }
+sub is_list { 1 }
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -tag -fail };
+
+1;
+
+__END__
+
+package Test2::EventFacet::Trace;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+
+use Test2::Util qw/get_tid pkg_to_file/;
+use Carp qw/confess/;
+
+use Test2::Util::HashBase qw{^frame ^pid ^tid ^cid -hid -nested details -buffered -uuid -huuid};
+
+{
+    no warnings 'once';
+    *DETAIL = \&DETAILS;
+    *detail = \&details;
+    *set_detail = \&set_details;
+}
+
+sub init {
+    confess "The 'frame' attribute is required"
+        unless $_[0]->{+FRAME};
+
+    $_[0]->{+DETAILS} = delete $_[0]->{detail} if $_[0]->{detail};
+
+    $_[0]->{+PID} = $$        unless defined $_[0]->{+PID};
+    $_[0]->{+TID} = get_tid() unless defined $_[0]->{+TID};
+}
+
+sub snapshot {
+    my ($orig, @override) = @_;
+    bless {%$orig, @override}, __PACKAGE__;
+}
+
+sub signature {
+    my $self = shift;
+
+    # Signature is only valid if all of these fields are defined, there is no
+    # signature if any is missing. '0' is ok, but '' is not.
+    return join ':' => map { (defined($_) && length($_)) ? $_ : return undef } (
+        $self->{+CID},
+        $self->{+PID},
+        $self->{+TID},
+        $self->{+FRAME}->[1],
+        $self->{+FRAME}->[2],
+    );
+}
+
+sub debug {
+    my $self = shift;
+    return $self->{+DETAILS} if $self->{+DETAILS};
+    my ($pkg, $file, $line) = $self->call;
+    return "at $file line $line";
+}
+
+sub alert {
+    my $self = shift;
+    my ($msg) = @_;
+    warn $msg . ' ' . $self->debug . ".\n";
+}
+
+sub throw {
+    my $self = shift;
+    my ($msg) = @_;
+    die $msg . ' ' . $self->debug . ".\n";
+}
+
+sub call { @{$_[0]->{+FRAME}} }
+
+sub package { $_[0]->{+FRAME}->[0] }
+sub file    { $_[0]->{+FRAME}->[1] }
+sub line    { $_[0]->{+FRAME}->[2] }
+sub subname { $_[0]->{+FRAME}->[3] }
+
+1;
+
+__END__
+
+package Test2::EventFacet::Hub;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+sub is_list { 1 }
+sub facet_key { 'hubs' }
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{-pid -tid -hid -nested -buffered -uuid -ipc};
+
+1;
+
+__END__
+
+package Test2::EventFacet::Control;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding };
+
+1;
+
+__END__
+
+package Test2::EventFacet::About;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -package -no_display -uuid };
+
+1;
+
+__END__
+
+package Test2::EventFacet::Plan;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
+use Test2::Util::HashBase qw{ -count -skip -none };
+
+1;
+
+__END__
+
+package Test2::Event::Waiting;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase;
+
+sub global { 1 };
+
+sub summary { "IPC is waiting for children to finish..." }
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    push @{$out->{info}} => {
+        tag     => 'INFO',
+        debug   => 0,
+        details => $self->summary,
+    };
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::V2;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Scalar::Util qw/reftype/;
+use Carp qw/croak/;
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+
+use Test2::Util::Facets2Legacy qw{
+    causes_fail diagnostics global increments_count no_display sets_plan
+    subtest_id summary terminate
+};
+
+use Test2::Util::HashBase qw/-about/;
+
+sub non_facet_keys {
+    return (
+        +UUID,
+        Test2::Util::ExternalMeta::META_KEY(),
+    );
+}
+
+sub init {
+    my $self = shift;
+
+    my $uuid;
+    if ($uuid = $self->{+UUID}) {
+        croak "uuid '$uuid' passed to constructor, but uuid '$self->{+ABOUT}->{uuid}' is already set in the 'about' facet"
+            if $self->{+ABOUT}->{uuid} && $self->{+ABOUT}->{uuid} ne $uuid;
+
+        $self->{+ABOUT}->{uuid} = $uuid;
+    }
+    elsif ($uuid = $self->{+ABOUT}->{uuid}) {
+        $self->SUPER::set_uuid($uuid);
+    }
+
+    # Clone the trace, make sure it is blessed
+    if (my $trace = $self->{+TRACE}) {
+        $self->{+TRACE} = Test2::EventFacet::Trace->new(%$trace);
+    }
+}
+
+sub set_uuid {
+    my $self = shift;
+    my ($uuid) = @_;
+    $self->{+ABOUT}->{uuid} = $uuid;
+    $self->SUPER::set_uuid($uuid);
+}
+
+sub facet_data {
+    my $self = shift;
+    my $f = { %{$self} };
+
+    delete $f->{$_} for $self->non_facet_keys;
+
+    my %out;
+    for my $k (keys %$f) {
+        next if substr($k, 0, 1) eq '_';
+
+        my $data = $f->{$k};
+        my $is_list = reftype($data) eq 'ARRAY';
+        $out{$k} = $is_list ? [ map { {%{$_}} } @$data ] : {%$data};
+    }
+
+    if (my $meta = $self->meta_facet_data) {
+        $out{meta} = {%$meta, %{$out{meta} || {}}};
+    }
+
+    return \%out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Bail;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw{reason buffered};
+
+# Make sure the tests terminate
+sub terminate { 255 };
+
+sub global { 1 };
+
+sub causes_fail { 1 }
+
+sub summary {
+    my $self = shift;
+    return "Bail out!  " . $self->{+REASON}
+        if $self->{+REASON};
+
+    return "Bail out!";
+}
+
+sub diagnostics { 1 }
+
+sub facet_data {
+    my $self = shift;
+    my $out = $self->common_facet_data;
+
+    $out->{control} = {
+        global    => 1,
+        halt      => 1,
+        details   => $self->{+REASON},
+        terminate => 255,
+    };
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Ok;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw{
+    pass effective_pass name todo
+};
+
+sub init {
+    my $self = shift;
+
+    # Do not store objects here, only true or false
+    $self->{+PASS} = $self->{+PASS} ? 1 : 0;
+    $self->{+EFFECTIVE_PASS} = $self->{+PASS} || (defined($self->{+TODO}) ? 1 : 0);
+}
+
+{
+    no warnings 'redefine';
+    sub set_todo {
+        my $self = shift;
+        my ($todo) = @_;
+        $self->{+TODO} = $todo;
+        $self->{+EFFECTIVE_PASS} = defined($todo) ? 1 : $self->{+PASS};
+    }
+}
+
+sub increments_count { 1 };
+
+sub causes_fail { !$_[0]->{+EFFECTIVE_PASS} }
+
+sub summary {
+    my $self = shift;
+
+    my $name = $self->{+NAME} || "Nameless Assertion";
+
+    my $todo = $self->{+TODO};
+    if ($todo) {
+        $name .= " (TODO: $todo)";
+    }
+    elsif (defined $todo) {
+        $name .= " (TODO)"
+    }
+
+    return $name;
+}
+
+sub extra_amnesty {
+    my $self = shift;
+    return unless defined($self->{+TODO}) || ($self->{+EFFECTIVE_PASS} && !$self->{+PASS});
+    return {
+        tag       => 'TODO',
+        details   => $self->{+TODO},
+    };
+}
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{assert}  = {
+        no_debug => 1,                # Legacy behavior
+        pass     => $self->{+PASS},
+        details  => $self->{+NAME},
+    };
+
+    if (my @exra_amnesty = $self->extra_amnesty) {
+        unshift @{$out->{amnesty}} => @exra_amnesty;
+    }
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Subtest;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
+use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
+
+sub init {
+    my $self = shift;
+    $self->SUPER::init();
+    $self->{+SUBEVENTS} ||= [];
+    if ($self->{+EFFECTIVE_PASS}) {
+        $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}};
+    }
+}
+
+{
+    no warnings 'redefine';
+
+    sub set_subevents {
+        my $self      = shift;
+        my @subevents = @_;
+
+        if ($self->{+EFFECTIVE_PASS}) {
+            $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @subevents;
+        }
+
+        $self->{+SUBEVENTS} = \@subevents;
+    }
+
+    sub set_effective_pass {
+        my $self = shift;
+        my ($pass) = @_;
+
+        if ($pass) {
+            $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}};
+        }
+        elsif ($self->{+EFFECTIVE_PASS} && !$pass) {
+            for my $s (grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}}) {
+                $_->set_effective_pass(0) unless $s->can('todo') && defined $s->todo;
+            }
+        }
+
+        $self->{+EFFECTIVE_PASS} = $pass;
+    }
+}
+
+sub summary {
+    my $self = shift;
+
+    my $name = $self->{+NAME} || "Nameless Subtest";
+
+    my $todo = $self->{+TODO};
+    if ($todo) {
+        $name .= " (TODO: $todo)";
+    }
+    elsif (defined $todo) {
+        $name .= " (TODO)";
+    }
+
+    return $name;
+}
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->SUPER::facet_data();
+
+    $out->{parent} = {
+        hid      => $self->subtest_id,
+        children => [map {$_->facet_data} @{$self->{+SUBEVENTS}}],
+        buffered => $self->{+BUFFERED},
+    };
+
+    return $out;
+}
+
+sub add_amnesty {
+    my $self = shift;
+
+    for my $am (@_) {
+        $am = {%$am} if ref($am) ne 'ARRAY';
+        $am = Test2::EventFacet::Amnesty->new($am);
+
+        push @{$self->{+AMNESTY}} => $am;
+
+        for my $e (@{$self->{+SUBEVENTS}}) {
+            $e->add_amnesty($am->clone(inherited => 1));
+        }
+    }
+}
+
+
+1;
+
+__END__
+
+package Test2::Event::Exception;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw{error};
+
+sub init {
+    my $self = shift;
+    $self->{+ERROR} = "$self->{+ERROR}";
+}
+
+sub causes_fail { 1 }
+
+sub summary {
+    my $self = shift;
+    chomp(my $msg = "Exception: " . $self->{+ERROR});
+    return $msg;
+}
+
+sub diagnostics { 1 }
+
+sub facet_data {
+    my $self = shift;
+    my $out = $self->common_facet_data;
+
+    $out->{errors} = [
+        {
+            tag     => 'ERROR',
+            fail    => 1,
+            details => $self->{+ERROR},
+        }
+    ];
+
+    return $out;
+}
+
+
+1;
+
+__END__
+
+package Test2::Event::Pass;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Test2::EventFacet::Info;
+
+BEGIN {
+    require Test2::Event;
+    our @ISA = qw(Test2::Event);
+    *META_KEY = \&Test2::Util::ExternalMeta::META_KEY;
+}
+
+use Test2::Util::HashBase qw{ -name -info };
+
+##############
+# Old API
+sub summary          { "pass" }
+sub increments_count { 1 }
+sub causes_fail      { 0 }
+sub diagnostics      { 0 }
+sub no_display       { 0 }
+sub subtest_id       { undef }
+sub terminate        { () }
+sub global           { () }
+sub sets_plan        { () }
+
+##############
+# New API
+
+sub add_info {
+    my $self = shift;
+
+    for my $in (@_) {
+        $in = {%$in} if ref($in) ne 'ARRAY';
+        $in = Test2::EventFacet::Info->new($in);
+
+        push @{$self->{+INFO}} => $in;
+    }
+}
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{about}->{details} = 'pass';
+
+    $out->{assert} = {pass => 1, details => $self->{+NAME}};
+
+    $out->{info} = [map {{ %{$_} }} @{$self->{+INFO}}] if $self->{+INFO};
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Fail;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Test2::EventFacet::Info;
+
+BEGIN {
+    require Test2::Event;
+    our @ISA = qw(Test2::Event);
+    *META_KEY = \&Test2::Util::ExternalMeta::META_KEY;
+}
+
+use Test2::Util::HashBase qw{ -name -info };
+
+#############
+# Old API
+sub summary          { "fail" }
+sub increments_count { 1 }
+sub diagnostics      { 0 }
+sub no_display       { 0 }
+sub subtest_id       { undef }
+sub terminate        { () }
+sub global           { () }
+sub sets_plan        { () }
+
+sub causes_fail {
+    my $self = shift;
+    return 0 if $self->{+AMNESTY} && @{$self->{+AMNESTY}};
+    return 1;
+}
+
+#############
+# New API
+
+sub add_info {
+    my $self = shift;
+
+    for my $in (@_) {
+        $in = {%$in} if ref($in) ne 'ARRAY';
+        $in = Test2::EventFacet::Info->new($in);
+
+        push @{$self->{+INFO}} => $in;
+    }
+}
+
+sub facet_data {
+    my $self = shift;
+    my $out = $self->common_facet_data;
+
+    $out->{about}->{details} = 'fail';
+
+    $out->{assert} = {pass => 0, details => $self->{+NAME}};
+
+    $out->{info} = [map {{ %{$_} }} @{$self->{+INFO}}] if $self->{+INFO};
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Generic;
+use strict;
+use warnings;
+
+use Carp qw/croak/;
+use Scalar::Util qw/reftype/;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase;
+
+my @FIELDS = qw{
+    causes_fail increments_count diagnostics no_display callback terminate
+    global sets_plan summary facet_data
+};
+my %DEFAULTS = (
+    causes_fail      => 0,
+    increments_count => 0,
+    diagnostics      => 0,
+    no_display       => 0,
+);
+
+sub init {
+    my $self = shift;
+
+    for my $field (@FIELDS) {
+        my $val = defined $self->{$field} ? delete $self->{$field} : $DEFAULTS{$field};
+        next unless defined $val;
+
+        my $set = "set_$field";
+        $self->$set($val);
+    }
+}
+
+for my $field (@FIELDS) {
+    no strict 'refs';
+
+    *$field = sub { exists $_[0]->{$field} ? $_[0]->{$field} : () }
+        unless exists &{$field};
+
+    *{"set_$field"} = sub { $_[0]->{$field} = $_[1] }
+        unless exists &{"set_$field"};
+}
+
+sub can {
+    my $self = shift;
+    my ($name) = @_;
+    return $self->SUPER::can($name) unless $name eq 'callback';
+    return $self->{callback} || \&Test2::Event::callback;
+}
+
+sub facet_data {
+    my $self = shift;
+    return $self->{facet_data} || $self->SUPER::facet_data();
+}
+
+sub summary {
+    my $self = shift;
+    return $self->{summary} if defined $self->{summary};
+    $self->SUPER::summary();
+}
+
+sub sets_plan {
+    my $self = shift;
+    return unless $self->{sets_plan};
+    return @{$self->{sets_plan}};
+}
+
+sub callback {
+    my $self = shift;
+    my $cb = $self->{callback} || return;
+    $self->$cb(@_);
+}
+
+sub set_global {
+    my $self = shift;
+    my ($bool) = @_;
+
+    if(!defined $bool) {
+        delete $self->{global};
+        return undef;
+    }
+
+    $self->{global} = $bool;
+}
+
+sub set_callback {
+    my $self = shift;
+    my ($cb) = @_;
+
+    if(!defined $cb) {
+        delete $self->{callback};
+        return undef;
+    }
+
+    croak "callback must be a code reference"
+        unless ref($cb) && reftype($cb) eq 'CODE';
+
+    $self->{callback} = $cb;
+}
+
+sub set_terminate {
+    my $self = shift;
+    my ($exit) = @_;
+
+    if(!defined $exit) {
+        delete $self->{terminate};
+        return undef;
+    }
+
+    croak "terminate must be a positive integer"
+       unless $exit =~ m/^\d+$/;
+
+    $self->{terminate} = $exit;
+}
+
+sub set_sets_plan {
+    my $self = shift;
+    my ($plan) = @_;
+
+    if(!defined $plan) {
+        delete $self->{sets_plan};
+        return undef;
+    }
+
+    croak "'sets_plan' must be an array reference"
+        unless ref($plan) && reftype($plan) eq 'ARRAY';
+
+    $self->{sets_plan} = $plan;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Diag;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw/message/;
+
+sub init {
+    $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
+}
+
+sub summary { $_[0]->{+MESSAGE} }
+
+sub diagnostics { 1 }
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{info} = [
+        {
+            tag     => 'DIAG',
+            debug   => 1,
+            details => $self->{+MESSAGE},
+        }
+    ];
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Note;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw/message/;
+
+sub init {
+    $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
+}
+
+sub summary { $_[0]->{+MESSAGE} }
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{info} = [
+        {
+            tag     => 'NOTE',
+            debug   => 0,
+            details => $self->{+MESSAGE},
+        }
+    ];
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Skip;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
+use Test2::Util::HashBase qw{reason};
+
+sub init {
+    my $self = shift;
+    $self->SUPER::init;
+    $self->{+EFFECTIVE_PASS} = 1;
+}
+
+sub causes_fail { 0 }
+
+sub summary {
+    my $self = shift;
+    my $out = $self->SUPER::summary(@_);
+
+    if (my $reason = $self->reason) {
+        $out .= " (SKIP: $reason)";
+    }
+    else {
+        $out .= " (SKIP)";
+    }
+
+    return $out;
+}
+
+sub extra_amnesty {
+    my $self = shift;
+
+    my @out;
+
+    push @out => {
+        tag       => 'TODO',
+        details   => $self->{+TODO},
+    } if defined $self->{+TODO};
+
+    push @out => {
+        tag       => 'skip',
+        details   => $self->{+REASON},
+        inherited => 0,
+    };
+
+    return @out;
+}
+
+1;
+
+__END__
+
+package Test2::Event::Encoding;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Carp qw/croak/;
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw/encoding/;
+
+sub init {
+    my $self = shift;
+    defined $self->{+ENCODING} or croak "'encoding' is a required attribute";
+}
+
+sub summary { 'Encoding set to ' . $_[0]->{+ENCODING} }
+
+sub facet_data {
+    my $self = shift;
+    my $out = $self->common_facet_data;
+    $out->{control}->{encoding} = $self->{+ENCODING};
+    $out->{about}->{details} = $self->summary;
+    return $out;
+}
+
+
+1;
+
+__END__
+
+package Test2::Event::Plan;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw{max directive reason};
+
+use Carp qw/confess/;
+
+my %ALLOWED = (
+    'SKIP'    => 1,
+    'NO PLAN' => 1,
+);
+
+sub init {
+    if ($_[0]->{+DIRECTIVE}) {
+        $_[0]->{+DIRECTIVE} = 'SKIP'    if $_[0]->{+DIRECTIVE} eq 'skip_all';
+        $_[0]->{+DIRECTIVE} = 'NO PLAN' if $_[0]->{+DIRECTIVE} eq 'no_plan';
+
+        confess "'" . $_[0]->{+DIRECTIVE} . "' is not a valid plan directive"
+            unless $ALLOWED{$_[0]->{+DIRECTIVE}};
+    }
+    else {
+        confess "Cannot have a reason without a directive!"
+            if defined $_[0]->{+REASON};
+
+        confess "No number of tests specified"
+            unless defined $_[0]->{+MAX};
+
+        confess "Plan test count '" . $_[0]->{+MAX}  . "' does not appear to be a valid positive integer"
+            unless $_[0]->{+MAX} =~ m/^\d+$/;
+
+        $_[0]->{+DIRECTIVE} = '';
+    }
+}
+
+sub sets_plan {
+    my $self = shift;
+    return (
+        $self->{+MAX},
+        $self->{+DIRECTIVE},
+        $self->{+REASON},
+    );
+}
+
+sub terminate {
+    my $self = shift;
+    # On skip_all we want to terminate the hub
+    return 0 if $self->{+DIRECTIVE} && $self->{+DIRECTIVE} eq 'SKIP';
+    return undef;
+}
+
+sub summary {
+    my $self = shift;
+    my $max = $self->{+MAX};
+    my $directive = $self->{+DIRECTIVE};
+    my $reason = $self->{+REASON};
+
+    return "Plan is $max assertions"
+        if $max || !$directive;
+
+    return "Plan is '$directive', $reason"
+        if $reason;
+
+    return "Plan is '$directive'";
+}
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{control}->{terminate} = $self->{+DIRECTIVE} eq 'SKIP' ? 0 : undef
+        unless defined $out->{control}->{terminate};
+
+    $out->{plan} = {count => $self->{+MAX}};
+    $out->{plan}->{details} = $self->{+REASON} if defined $self->{+REASON};
+
+    if (my $dir = $self->{+DIRECTIVE}) {
+        $out->{plan}->{skip} = 1 if $dir eq 'SKIP';
+        $out->{plan}->{none} = 1 if $dir eq 'NO PLAN';
+    }
+
+    return $out;
+}
+
+
+1;
+
+__END__
+
+package Test2::Event::TAP::Version;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+use Carp qw/croak/;
+
+BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
+use Test2::Util::HashBase qw/version/;
+
+sub init {
+    my $self = shift;
+    defined $self->{+VERSION} or croak "'version' is a required attribute";
+}
+
+sub summary { 'TAP version ' . $_[0]->{+VERSION} }
+
+sub facet_data {
+    my $self = shift;
+
+    my $out = $self->common_facet_data;
+
+    $out->{about}->{details} = $self->summary;
+
+    push @{$out->{info}} => {
+        tag     => 'INFO',
+        debug   => 0,
+        details => $self->summary,
+    };
+
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test2::API::Instance;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
+use Carp qw/confess carp/;
+use Scalar::Util qw/reftype/;
+
+use Test2::Util qw/get_tid USE_THREADS CAN_FORK pkg_to_file try CAN_SIGSYS/;
+
+use Test2::EventFacet::Trace();
+use Test2::API::Stack();
+
+use Test2::Util::HashBase qw{
+    _pid _tid
+    no_wait
+    finalized loaded
+    ipc stack formatter
+    contexts
+
+    add_uuid_via
+
+    -preload
+
+    ipc_disabled
+    ipc_shm_size
+    ipc_shm_last
+    ipc_shm_id
+    ipc_polling
+    ipc_drivers
+    ipc_timeout
+    formatters
+
+    exit_callbacks
+    post_load_callbacks
+    context_acquire_callbacks
+    context_init_callbacks
+    context_release_callbacks
+    pre_subtest_callbacks
+};
+
+sub DEFAULT_IPC_TIMEOUT() { 30 }
+
+sub pid { $_[0]->{+_PID} }
+sub tid { $_[0]->{+_TID} }
+
+# Wrap around the getters that should call _finalize.
+BEGIN {
+    for my $finalizer (IPC, FORMATTER) {
+        my $orig = __PACKAGE__->can($finalizer);
+        my $new  = sub {
+            my $self = shift;
+            $self->_finalize unless $self->{+FINALIZED};
+            $self->$orig;
+        };
+
+        no strict 'refs';
+        no warnings 'redefine';
+        *{$finalizer} = $new;
+    }
+}
+
+sub has_ipc { !!$_[0]->{+IPC} }
+
+sub import {
+    my $class = shift;
+    return unless @_;
+    my ($ref) = @_;
+    $$ref = $class->new;
+}
+
+sub init { $_[0]->reset }
+
+sub start_preload {
+    my $self = shift;
+
+    confess "preload cannot be started, Test2::API has already been initialized"
+        if $self->{+FINALIZED} || $self->{+LOADED};
+
+    return $self->{+PRELOAD} = 1;
+}
+
+sub stop_preload {
+    my $self = shift;
+
+    return 0 unless $self->{+PRELOAD};
+    $self->{+PRELOAD} = 0;
+
+    $self->post_preload_reset();
+
+    return 1;
+}
+
+sub post_preload_reset {
+    my $self = shift;
+
+    delete $self->{+_PID};
+    delete $self->{+_TID};
+
+    $self->{+ADD_UUID_VIA} = undef unless exists $self->{+ADD_UUID_VIA};
+
+    $self->{+CONTEXTS} = {};
+
+    $self->{+FORMATTERS} = [];
+
+    $self->{+FINALIZED} = undef;
+    $self->{+IPC}       = undef;
+    $self->{+IPC_DISABLED} = $ENV{T2_NO_IPC} ? 1 : 0;
+
+    $self->{+IPC_TIMEOUT} = DEFAULT_IPC_TIMEOUT() unless defined $self->{+IPC_TIMEOUT};
+
+    $self->{+LOADED} = 0;
+
+    $self->{+STACK} ||= Test2::API::Stack->new;
+}
+
+sub reset {
+    my $self = shift;
+
+    delete $self->{+_PID};
+    delete $self->{+_TID};
+
+    $self->{+ADD_UUID_VIA} = undef;
+
+    $self->{+CONTEXTS} = {};
+
+    $self->{+IPC_DRIVERS} = [];
+    $self->{+IPC_POLLING} = undef;
+
+    $self->{+FORMATTERS} = [];
+    $self->{+FORMATTER}  = undef;
+
+    $self->{+FINALIZED}    = undef;
+    $self->{+IPC}          = undef;
+    $self->{+IPC_DISABLED} = $ENV{T2_NO_IPC} ? 1 : 0;
+
+    $self->{+IPC_TIMEOUT} = DEFAULT_IPC_TIMEOUT() unless defined $self->{+IPC_TIMEOUT};
+
+    $self->{+NO_WAIT} = 0;
+    $self->{+LOADED}  = 0;
+
+    $self->{+EXIT_CALLBACKS}            = [];
+    $self->{+POST_LOAD_CALLBACKS}       = [];
+    $self->{+CONTEXT_ACQUIRE_CALLBACKS} = [];
+    $self->{+CONTEXT_INIT_CALLBACKS}    = [];
+    $self->{+CONTEXT_RELEASE_CALLBACKS} = [];
+    $self->{+PRE_SUBTEST_CALLBACKS}     = [];
+
+    $self->{+STACK} = Test2::API::Stack->new;
+}
+
+sub _finalize {
+    my $self = shift;
+    my ($caller) = @_;
+    $caller ||= [caller(1)];
+
+    confess "Attempt to initialize Test2::API during preload"
+        if $self->{+PRELOAD};
+
+    $self->{+FINALIZED} = $caller;
+
+    $self->{+_PID} = $$        unless defined $self->{+_PID};
+    $self->{+_TID} = get_tid() unless defined $self->{+_TID};
+
+    unless ($self->{+FORMATTER}) {
+        my ($formatter, $source);
+        if ($ENV{T2_FORMATTER}) {
+            $source = "set by the 'T2_FORMATTER' environment variable";
+
+            if ($ENV{T2_FORMATTER} =~ m/^(\+)?(.*)$/) {
+                $formatter = $1 ? $2 : "Test2::Formatter::$2"
+            }
+            else {
+                $formatter = '';
+            }
+        }
+        elsif (@{$self->{+FORMATTERS}}) {
+            ($formatter) = @{$self->{+FORMATTERS}};
+            $source = "Most recently added";
+        }
+        else {
+            $formatter = 'Test2::Formatter::TAP';
+            $source    = 'default formatter';
+        }
+
+        unless (ref($formatter) || $formatter->can('write')) {
+            my $file = pkg_to_file($formatter);
+            my ($ok, $err) = try { require $file };
+            unless ($ok) {
+                my $line   = "* COULD NOT LOAD FORMATTER '$formatter' ($source) *";
+                my $border = '*' x length($line);
+                die "\n\n  $border\n  $line\n  $border\n\n$err";
+            }
+        }
+
+        $self->{+FORMATTER} = $formatter;
+    }
+
+    # Turn on IPC if threads are on, drivers are registered, or the Test2::IPC
+    # module is loaded.
+    return if $self->{+IPC_DISABLED};
+    return unless USE_THREADS || $INC{'Test2/IPC.pm'} || @{$self->{+IPC_DRIVERS}};
+
+    # Turn on polling by default, people expect it.
+    $self->enable_ipc_polling;
+
+    unless (@{$self->{+IPC_DRIVERS}}) {
+        my ($ok, $error) = try { require Test2::IPC::Driver::Files };
+        die $error unless $ok;
+        push @{$self->{+IPC_DRIVERS}} => 'Test2::IPC::Driver::Files';
+    }
+
+    for my $driver (@{$self->{+IPC_DRIVERS}}) {
+        next unless $driver->can('is_viable') && $driver->is_viable;
+        $self->{+IPC} = $driver->new or next;
+        $self->ipc_enable_shm if $self->{+IPC}->use_shm;
+        return;
+    }
+
+    die "IPC has been requested, but no viable drivers were found. Aborting...\n";
+}
+
+sub formatter_set { $_[0]->{+FORMATTER} ? 1 : 0 }
+
+sub add_formatter {
+    my $self = shift;
+    my ($formatter) = @_;
+    unshift @{$self->{+FORMATTERS}} => $formatter;
+
+    return unless $self->{+FINALIZED};
+
+    # Why is the @CARP_NOT entry not enough?
+    local %Carp::Internal = %Carp::Internal;
+    $Carp::Internal{'Test2::Formatter'} = 1;
+
+    carp "Formatter $formatter loaded too late to be used as the global formatter";
+}
+
+sub add_context_acquire_callback {
+    my $self =  shift;
+    my ($code) = @_;
+
+    my $rtype = reftype($code) || "";
+
+    confess "Context-acquire callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+CONTEXT_ACQUIRE_CALLBACKS}} => $code;
+}
+
+sub add_context_init_callback {
+    my $self =  shift;
+    my ($code) = @_;
+
+    my $rtype = reftype($code) || "";
+
+    confess "Context-init callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+CONTEXT_INIT_CALLBACKS}} => $code;
+}
+
+sub add_context_release_callback {
+    my $self =  shift;
+    my ($code) = @_;
+
+    my $rtype = reftype($code) || "";
+
+    confess "Context-release callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+CONTEXT_RELEASE_CALLBACKS}} => $code;
+}
+
+sub add_post_load_callback {
+    my $self = shift;
+    my ($code) = @_;
+
+    my $rtype = reftype($code) || "";
+
+    confess "Post-load callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+POST_LOAD_CALLBACKS}} => $code;
+    $code->() if $self->{+LOADED};
+}
+
+sub add_pre_subtest_callback {
+    my $self =  shift;
+    my ($code) = @_;
+
+    my $rtype = reftype($code) || "";
+
+    confess "Pre-subtest callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+PRE_SUBTEST_CALLBACKS}} => $code;
+}
+
+sub load {
+    my $self = shift;
+    unless ($self->{+LOADED}) {
+        confess "Attempt to initialize Test2::API during preload"
+            if $self->{+PRELOAD};
+
+        $self->{+_PID} = $$        unless defined $self->{+_PID};
+        $self->{+_TID} = get_tid() unless defined $self->{+_TID};
+
+        # This is for https://github.com/Test-More/test-more/issues/16
+        # and https://rt.perl.org/Public/Bug/Display.html?id=127774
+        # END blocks run in reverse order. This insures the END block is loaded
+        # as late as possible. It will not solve all cases, but it helps.
+        eval "END { Test2::API::test2_set_is_end() }; 1" or die $@;
+
+        $self->{+LOADED} = 1;
+        $_->() for @{$self->{+POST_LOAD_CALLBACKS}};
+    }
+    return $self->{+LOADED};
+}
+
+sub add_exit_callback {
+    my $self = shift;
+    my ($code) = @_;
+    my $rtype = reftype($code) || "";
+
+    confess "End callbacks must be coderefs"
+        unless $code && $rtype eq 'CODE';
+
+    push @{$self->{+EXIT_CALLBACKS}} => $code;
+}
+
+sub ipc_disable {
+    my $self = shift;
+
+    confess "Attempt to disable IPC after it has been initialized"
+        if $self->{+IPC};
+
+    $self->{+IPC_DISABLED} = 1;
+}
+
+sub add_ipc_driver {
+    my $self = shift;
+    my ($driver) = @_;
+    unshift @{$self->{+IPC_DRIVERS}} => $driver;
+
+    return unless $self->{+FINALIZED};
+
+    # Why is the @CARP_NOT entry not enough?
+    local %Carp::Internal = %Carp::Internal;
+    $Carp::Internal{'Test2::IPC::Driver'} = 1;
+
+    carp "IPC driver $driver loaded too late to be used as the global ipc driver";
+}
+
+sub enable_ipc_polling {
+    my $self = shift;
+
+    $self->{+_PID} = $$        unless defined $self->{+_PID};
+    $self->{+_TID} = get_tid() unless defined $self->{+_TID};
+
+    $self->add_context_init_callback(
+        # This is called every time a context is created, it needs to be fast.
+        # $_[0] is a context object
+        sub {
+            return unless $self->{+IPC_POLLING};
+            return $_[0]->{hub}->cull unless $self->{+IPC_SHM_ID};
+
+            my $val;
+            if(shmread($self->{+IPC_SHM_ID}, $val, 0, $self->{+IPC_SHM_SIZE})) {
+                return if $val eq $self->{+IPC_SHM_LAST};
+                $self->{+IPC_SHM_LAST} = $val;
+            }
+            else {
+                warn "SHM Read error: $!\n";
+            }
+
+            $_[0]->{hub}->cull;
+        }
+    ) unless defined $self->ipc_polling;
+
+    $self->set_ipc_polling(1);
+}
+
+sub ipc_enable_shm {
+    my $self = shift;
+
+    return 1 if defined $self->{+IPC_SHM_ID};
+
+    $self->{+_PID} = $$        unless defined $self->{+_PID};
+    $self->{+_TID} = get_tid() unless defined $self->{+_TID};
+
+    my ($ok, $err) = try {
+        # SysV IPC can be available but not enabled.
+        #
+        # In some systems (*BSD) accessing the SysV IPC APIs without
+        # them being enabled can cause a SIGSYS.  We suppress the SIGSYS
+        # and then get ENOSYS from the calls.
+        local $SIG{SYS} = 'IGNORE' if CAN_SIGSYS;
+
+        require IPC::SysV;
+
+        my $ipc_key = IPC::SysV::IPC_PRIVATE();
+        my $shm_size = $self->{+IPC}->can('shm_size') ? $self->{+IPC}->shm_size : 64;
+        my $shm_id = shmget($ipc_key, $shm_size, 0666) or die "Could not get shm: $!";
+
+        my $initial = 'a' x $shm_size;
+        shmwrite($shm_id, $initial, 0, $shm_size) or die "Could not write to shm: $!";
+        my $val;
+        shmread($shm_id, $val, 0, $shm_size) or die "Could not read from shm: $!";
+        die "Read SHM value does not match the initial value ('$val' vs '$initial')"
+            unless $val eq $initial;
+
+        $self->{+IPC_SHM_SIZE} = $shm_size;
+        $self->{+IPC_SHM_ID}   = $shm_id;
+        $self->{+IPC_SHM_LAST} = $initial;
+    };
+
+    return $ok;
+}
+
+sub ipc_free_shm {
+    my $self = shift;
+
+    my $id = delete $self->{+IPC_SHM_ID};
+    return unless defined $id;
+
+    shmctl($id, IPC::SysV::IPC_RMID(), 0);
+}
+
+sub get_ipc_pending {
+    my $self = shift;
+    return -1 unless defined $self->{+IPC_SHM_ID};
+    my $val;
+    shmread($self->{+IPC_SHM_ID}, $val, 0, $self->{+IPC_SHM_SIZE}) or return -1;
+    return 0 if $val eq $self->{+IPC_SHM_LAST};
+    $self->{+IPC_SHM_LAST} = $val;
+    return 1;
+}
+
+sub set_ipc_pending {
+    my $self = shift;
+
+    return undef unless defined $self->{+IPC_SHM_ID};
+
+    my ($val) = @_;
+
+    confess "value is required for set_ipc_pending"
+        unless $val;
+
+    shmwrite($self->{+IPC_SHM_ID}, $val, 0, $self->{+IPC_SHM_SIZE});
+}
+
+sub disable_ipc_polling {
+    my $self = shift;
+    return unless defined $self->{+IPC_POLLING};
+    $self->{+IPC_POLLING} = 0;
+}
+
+sub _ipc_wait {
+    my ($timeout) = @_;
+    my $fail = 0;
+
+    $timeout = DEFAULT_IPC_TIMEOUT() unless defined $timeout;
+
+    my $ok = eval {
+        if (CAN_FORK) {
+            local $SIG{ALRM} = sub { die "Timeout waiting on child processes" };
+            alarm $timeout;
+
+            while (1) {
+                my $pid = CORE::wait();
+                my $err = $?;
+                last if $pid == -1;
+                next unless $err;
+                $fail++;
+
+                my $sig = $err & 127;
+                my $exit = $err >> 8;
+                warn "Process $pid did not exit cleanly (wstat: $err, exit: $exit, sig: $sig)\n";
+            }
+
+            alarm 0;
+        }
+
+        if (USE_THREADS) {
+            my $start = time;
+
+            while (1) {
+                last unless threads->list();
+                die "Timeout waiting on child thread" if time - $start >= $timeout;
+                sleep 1;
+                for my $t (threads->list) {
+                    # threads older than 1.34 do not have this :-(
+                    next if $t->can('is_joinable') && !$t->is_joinable;
+                    $t->join;
+                    # In older threads we cannot check if a thread had an error unless
+                    # we control it and its return.
+                    my $err = $t->can('error') ? $t->error : undef;
+                    next unless $err;
+                    my $tid = $t->tid();
+                    $fail++;
+                    chomp($err);
+                    warn "Thread $tid did not end cleanly: $err\n";
+                }
+            }
+        }
+
+        1;
+    };
+    my $error = $@;
+
+    return 0 if $ok && !$fail;
+    warn $error unless $ok;
+    return 255;
+}
+
+sub DESTROY {
+    my $self = shift;
+
+    return if $self->{+PRELOAD};
+
+    return unless defined($self->{+_PID}) && $self->{+_PID} == $$;
+    return unless defined($self->{+_TID}) && $self->{+_TID} == get_tid();
+
+    shmctl($self->{+IPC_SHM_ID}, IPC::SysV::IPC_RMID(), 0)
+        if defined $self->{+IPC_SHM_ID};
+}
+
+sub set_exit {
+    my $self = shift;
+
+    return if $self->{+PRELOAD};
+
+    my $exit     = $?;
+    my $new_exit = $exit;
+
+    if ($INC{'Test/Builder.pm'} && $Test::Builder::VERSION ne $Test2::API::VERSION) {
+        print STDERR <<"        EOT";
+
+********************************************************************************
+*                                                                              *
+*            Test::Builder -- Test2::API version mismatch detected             *
+*                                                                              *
+********************************************************************************
+   Test2::API Version: $Test2::API::VERSION
+Test::Builder Version: $Test::Builder::VERSION
+
+This is not a supported configuration, you will have problems.
+
+        EOT
+    }
+
+    for my $ctx (values %{$self->{+CONTEXTS}}) {
+        next unless $ctx;
+
+        next if $ctx->_aborted && ${$ctx->_aborted};
+
+        # Only worry about contexts in this PID
+        my $trace = $ctx->trace || next;
+        next unless $trace->pid && $trace->pid == $$;
+
+        # Do not worry about contexts that have no hub
+        my $hub = $ctx->hub  || next;
+
+        # Do not worry if the state came to a sudden end.
+        next if $hub->bailed_out;
+        next if defined $hub->skip_reason;
+
+        # now we worry
+        $trace->alert("context object was never released! This means a testing tool is behaving very badly");
+
+        $exit     = 255;
+        $new_exit = 255;
+    }
+
+    if (!defined($self->{+_PID}) or !defined($self->{+_TID}) or $self->{+_PID} != $$ or $self->{+_TID} != get_tid()) {
+        $? = $exit;
+        return;
+    }
+
+    my @hubs = $self->{+STACK} ? $self->{+STACK}->all : ();
+
+    if (@hubs and $self->{+IPC} and !$self->{+NO_WAIT}) {
+        local $?;
+        my %seen;
+        for my $hub (reverse @hubs) {
+            my $ipc = $hub->ipc or next;
+            next if $seen{$ipc}++;
+            $ipc->waiting();
+        }
+
+        my $ipc_exit = _ipc_wait($self->{+IPC_TIMEOUT});
+        $new_exit ||= $ipc_exit;
+    }
+
+    # None of this is necessary if we never got a root hub
+    if(my $root = shift @hubs) {
+        my $trace = Test2::EventFacet::Trace->new(
+            frame  => [__PACKAGE__, __FILE__, 0, __PACKAGE__ . '::END'],
+            detail => __PACKAGE__ . ' END Block finalization',
+        );
+        my $ctx = Test2::API::Context->new(
+            trace => $trace,
+            hub   => $root,
+        );
+
+        if (@hubs) {
+            $ctx->diag("Test ended with extra hubs on the stack!");
+            $new_exit  = 255;
+        }
+
+        unless ($root->no_ending) {
+            local $?;
+            $root->finalize($trace) unless $root->ended;
+            $_->($ctx, $exit, \$new_exit) for @{$self->{+EXIT_CALLBACKS}};
+            $new_exit ||= $root->failed;
+            $new_exit ||= 255 unless $root->is_passing;
+        }
+    }
+
+    $new_exit = 255 if $new_exit > 255;
+
+    if ($new_exit && eval { require Test2::API::Breakage; 1 }) {
+        my @warn = Test2::API::Breakage->report();
+
+        if (@warn) {
+            print STDERR "\nYou have loaded versions of test modules known to have problems with Test2.\nThis could explain some test failures.\n";
+            print STDERR "$_\n" for @warn;
+            print STDERR "\n";
+        }
+    }
+
+    $? = $new_exit;
+}
+
+1;
+
+__END__
+
+package Test2::API::Breakage;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Test2::Util qw/pkg_to_file/;
+
+our @EXPORT_OK = qw{
+    upgrade_suggested
+    upgrade_required
+    known_broken
+};
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+
+sub upgrade_suggested {
+    return (
+        'Test::Exception'    => '0.42',
+        'Test::FITesque'     => '0.04',
+        'Test::Module::Used' => '0.2.5',
+        'Test::Moose::More'  => '0.025',
+    );
+}
+
+sub upgrade_required {
+    return (
+        'Test::Builder::Clutch'   => '0.07',
+        'Test::Dist::VersionSync' => '1.1.4',
+        'Test::Modern'            => '0.012',
+        'Test::SharedFork'        => '0.34',
+        'Test::Alien'             => '0.04',
+        'Test::UseAllModules'     => '0.14',
+        'Test::More::Prefix'      => '0.005',
+
+        'Test2::Tools::EventDumper' => 0.000007,
+        'Test2::Harness'            => 0.000013,
+
+        'Test::DBIx::Class::Schema'    => '1.0.9',
+        'Test::Clustericious::Cluster' => '0.30',
+    );
+}
+
+sub known_broken {
+    return (
+        'Net::BitTorrent'       => '0.052',
+        'Test::Able'            => '0.11',
+        'Test::Aggregate'       => '0.373',
+        'Test::Flatten'         => '0.11',
+        'Test::Group'           => '0.20',
+        'Test::ParallelSubtest' => '0.05',
+        'Test::Pretty'          => '0.32',
+        'Test::Wrapper'         => '0.3.0',
+
+        'Log::Dispatch::Config::TestLog' => '0.02',
+    );
+}
+
+# Not reportable:
+# Device::Chip => 0.07   - Tests will not pass, but not broken if already installed, also no fixed version we can upgrade to.
+
+sub report {
+    my $class = shift;
+    my ($require) = @_;
+
+    my %suggest  = __PACKAGE__->upgrade_suggested();
+    my %required = __PACKAGE__->upgrade_required();
+    my %broken   = __PACKAGE__->known_broken();
+
+    my @warn;
+    for my $mod (keys %suggest) {
+        my $file = pkg_to_file($mod);
+        next unless $INC{$file} || ($require && eval { require $file; 1 });
+        my $want = $suggest{$mod};
+        next if eval { $mod->VERSION($want); 1 };
+        push @warn => " * Module '$mod' is outdated, we recommed updating above $want.";
+    }
+
+    for my $mod (keys %required) {
+        my $file = pkg_to_file($mod);
+        next unless $INC{$file} || ($require && eval { require $file; 1 });
+        my $want = $required{$mod};
+        next if eval { $mod->VERSION($want); 1 };
+        push @warn => " * Module '$mod' is outdated and known to be broken, please update to $want or higher.";
+    }
+
+    for my $mod (keys %broken) {
+        my $file = pkg_to_file($mod);
+        next unless $INC{$file} || ($require && eval { require $file; 1 });
+        my $tested = $broken{$mod};
+        push @warn => " * Module '$mod' is known to be broken in version $tested and below, newer versions have not been tested. You have: " . $mod->VERSION;
+    }
+
+    return @warn;
+}
+
+1;
+
+__END__
+
+
+package Test2::API::Context;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Carp qw/confess croak/;
+use Scalar::Util qw/weaken blessed/;
+use Test2::Util qw/get_tid try pkg_to_file get_tid/;
+
+use Test2::EventFacet::Trace();
+use Test2::API();
+
+# Preload some key event types
+my %LOADED = (
+    map {
+        my $pkg  = "Test2::Event::$_";
+        my $file = "Test2/Event/$_.pm";
+        require $file unless $INC{$file};
+        ( $pkg => $pkg, $_ => $pkg )
+    } qw/Ok Diag Note Plan Bail Exception Waiting Skip Subtest Pass Fail V2/
+);
+
+use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/;
+use Test2::Util::HashBase qw{
+    stack hub trace _on_release _depth _is_canon _is_spawn _aborted
+    errno eval_error child_error thrown
+};
+
+# Private, not package vars
+# It is safe to cache these.
+my $ON_RELEASE = Test2::API::_context_release_callbacks_ref();
+my $CONTEXTS   = Test2::API::_contexts_ref();
+
+sub init {
+    my $self = shift;
+
+    confess "The 'trace' attribute is required"
+        unless $self->{+TRACE};
+
+    confess "The 'hub' attribute is required"
+        unless $self->{+HUB};
+
+    $self->{+_DEPTH} = 0 unless defined $self->{+_DEPTH};
+
+    $self->{+ERRNO}       = $! unless exists $self->{+ERRNO};
+    $self->{+EVAL_ERROR}  = $@ unless exists $self->{+EVAL_ERROR};
+    $self->{+CHILD_ERROR} = $? unless exists $self->{+CHILD_ERROR};
+}
+
+sub snapshot { bless {%{$_[0]}, _is_canon => undef, _is_spawn => undef, _aborted => undef}, __PACKAGE__ }
+
+sub restore_error_vars {
+    my $self = shift;
+    ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR};
+}
+
+sub DESTROY {
+    return unless $_[0]->{+_IS_CANON} || $_[0]->{+_IS_SPAWN};
+    return if $_[0]->{+_ABORTED} && ${$_[0]->{+_ABORTED}};
+    my ($self) = @_;
+
+    my $hub = $self->{+HUB};
+    my $hid = $hub->{hid};
+
+    # Do not show the warning if it looks like an exception has been thrown, or
+    # if the context is not local to this process or thread.
+    {
+        # Sometimes $@ is uninitialized, not a problem in this case so do not
+        # show the warning about using eq.
+        no warnings 'uninitialized';
+        if($self->{+EVAL_ERROR} eq $@ && $hub->is_local) {
+            my $frame = $self->{+_IS_SPAWN} || $self->{+TRACE}->frame;
+            warn <<"            EOT";
+A context appears to have been destroyed without first calling release().
+Based on \$@ it does not look like an exception was thrown (this is not always
+a reliable test)
+
+This is a problem because the global error variables (\$!, \$@, and \$?) will
+not be restored. In addition some release callbacks will not work properly from
+inside a DESTROY method.
+
+Here are the context creation details, just in case a tool forgot to call
+release():
+  File: $frame->[1]
+  Line: $frame->[2]
+  Tool: $frame->[3]
+
+Cleaning up the CONTEXT stack...
+            EOT
+        }
+    }
+
+    return if $self->{+_IS_SPAWN};
+
+    # Remove the key itself to avoid a slow memory leak
+    delete $CONTEXTS->{$hid};
+    $self->{+_IS_CANON} = undef;
+
+    if (my $cbk = $self->{+_ON_RELEASE}) {
+        $_->($self) for reverse @$cbk;
+    }
+    if (my $hcbk = $hub->{_context_release}) {
+        $_->($self) for reverse @$hcbk;
+    }
+    $_->($self) for reverse @$ON_RELEASE;
+}
+
+# release exists to implement behaviors like die-on-fail. In die-on-fail you
+# want to die after a failure, but only after diagnostics have been reported.
+# The ideal time for the die to happen is when the context is released.
+# Unfortunately die does not work in a DESTROY block.
+sub release {
+    my ($self) = @_;
+
+    ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return if $self->{+THROWN};
+
+    ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} and return $self->{+_IS_SPAWN} = undef
+        if $self->{+_IS_SPAWN};
+
+    croak "release() should not be called on context that is neither canon nor a child"
+        unless $self->{+_IS_CANON};
+
+    my $hub = $self->{+HUB};
+    my $hid = $hub->{hid};
+
+    croak "context thinks it is canon, but it is not"
+        unless $CONTEXTS->{$hid} && $CONTEXTS->{$hid} == $self;
+
+    # Remove the key itself to avoid a slow memory leak
+    $self->{+_IS_CANON} = undef;
+    delete $CONTEXTS->{$hid};
+
+    if (my $cbk = $self->{+_ON_RELEASE}) {
+        $_->($self) for reverse @$cbk;
+    }
+    if (my $hcbk = $hub->{_context_release}) {
+        $_->($self) for reverse @$hcbk;
+    }
+    $_->($self) for reverse @$ON_RELEASE;
+
+    # Do this last so that nothing else changes them.
+    # If one of the hooks dies then these do not get restored, this is
+    # intentional
+    ($!, $@, $?) = @$self{+ERRNO, +EVAL_ERROR, +CHILD_ERROR};
+
+    return;
+}
+
+sub do_in_context {
+    my $self = shift;
+    my ($sub, @args) = @_;
+
+    # We need to update the pid/tid and error vars.
+    my $clone = $self->snapshot;
+    @$clone{+ERRNO, +EVAL_ERROR, +CHILD_ERROR} = ($!, $@, $?);
+    $clone->{+TRACE} = $clone->{+TRACE}->snapshot(pid => $$, tid => get_tid());
+
+    my $hub = $clone->{+HUB};
+    my $hid = $hub->hid;
+
+    my $old = $CONTEXTS->{$hid};
+
+    $clone->{+_IS_CANON} = 1;
+    $CONTEXTS->{$hid} = $clone;
+    weaken($CONTEXTS->{$hid});
+    my ($ok, $err) = &try($sub, @args);
+    my ($rok, $rerr) = try { $clone->release };
+    delete $clone->{+_IS_CANON};
+
+    if ($old) {
+        $CONTEXTS->{$hid} = $old;
+        weaken($CONTEXTS->{$hid});
+    }
+    else {
+        delete $CONTEXTS->{$hid};
+    }
+
+    die $err  unless $ok;
+    die $rerr unless $rok;
+}
+
+sub done_testing {
+    my $self = shift;
+    $self->hub->finalize($self->trace, 1);
+    return;
+}
+
+sub throw {
+    my ($self, $msg) = @_;
+    $self->{+THROWN} = 1;
+    ${$self->{+_ABORTED}}++ if $self->{+_ABORTED};
+    $self->release if $self->{+_IS_CANON} || $self->{+_IS_SPAWN};
+    $self->trace->throw($msg);
+}
+
+sub alert {
+    my ($self, $msg) = @_;
+    $self->trace->alert($msg);
+}
+
+sub send_ev2_and_release {
+    my $self = shift;
+    my $out  = $self->send_ev2(@_);
+    $self->release;
+    return $out;
+}
+
+sub send_ev2 {
+    my $self = shift;
+
+    my $e;
+    {
+        local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+        $e = Test2::Event::V2->new(
+            trace => $self->{+TRACE}->snapshot,
+            @_,
+        );
+    }
+
+    if ($self->{+_ABORTED}) {
+        my $f = $e->facet_data;
+        ${$self->{+_ABORTED}}++ if $f->{control}->{halt} || defined($f->{control}->{terminate}) || defined($e->terminate);
+    }
+    $self->{+HUB}->send($e);
+}
+
+sub build_ev2 {
+    my $self = shift;
+
+    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+    Test2::Event::V2->new(
+        trace => $self->{+TRACE}->snapshot,
+        @_,
+    );
+}
+
+sub send_event_and_release {
+    my $self = shift;
+    my $out = $self->send_event(@_);
+    $self->release;
+    return $out;
+}
+
+sub send_event {
+    my $self  = shift;
+    my $event = shift;
+    my %args  = @_;
+
+    my $pkg = $LOADED{$event} || $self->_parse_event($event);
+
+    my $e;
+    {
+        local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+        $e = $pkg->new(
+            trace => $self->{+TRACE}->snapshot,
+            %args,
+        );
+    }
+
+    if ($self->{+_ABORTED}) {
+        my $f = $e->facet_data;
+        ${$self->{+_ABORTED}}++ if $f->{control}->{halt} || defined($f->{control}->{terminate}) || defined($e->terminate);
+    }
+    $self->{+HUB}->send($e);
+}
+
+sub build_event {
+    my $self  = shift;
+    my $event = shift;
+    my %args  = @_;
+
+    my $pkg = $LOADED{$event} || $self->_parse_event($event);
+
+    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+    $pkg->new(
+        trace => $self->{+TRACE}->snapshot,
+        %args,
+    );
+}
+
+sub pass {
+    my $self = shift;
+    my ($name) = @_;
+
+    my $e = bless(
+        {
+            trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'),
+            name  => $name,
+        },
+        "Test2::Event::Pass"
+    );
+
+    $self->{+HUB}->send($e);
+    return $e;
+}
+
+sub pass_and_release {
+    my $self = shift;
+    my ($name) = @_;
+
+    my $e = bless(
+        {
+            trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'),
+            name  => $name,
+        },
+        "Test2::Event::Pass"
+    );
+
+    $self->{+HUB}->send($e);
+    $self->release;
+    return 1;
+}
+
+sub fail {
+    my $self = shift;
+    my ($name, @diag) = @_;
+
+    my $e = bless(
+        {
+            trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'),
+            name  => $name,
+        },
+        "Test2::Event::Fail"
+    );
+
+    $e->add_info({tag => 'DIAG', debug => 1, details => $_}) for @diag;
+    $self->{+HUB}->send($e);
+    return $e;
+}
+
+sub fail_and_release {
+    my $self = shift;
+    my ($name, @diag) = @_;
+
+    my $e = bless(
+        {
+            trace => bless({%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'),
+            name  => $name,
+        },
+        "Test2::Event::Fail"
+    );
+
+    $e->add_info({tag => 'DIAG', debug => 1, details => $_}) for @diag;
+    $self->{+HUB}->send($e);
+    $self->release;
+    return 0;
+}
+
+sub ok {
+    my $self = shift;
+    my ($pass, $name, $on_fail) = @_;
+
+    my $hub = $self->{+HUB};
+
+    my $e = bless {
+        trace => bless( {%{$self->{+TRACE}}}, 'Test2::EventFacet::Trace'),
+        pass  => $pass,
+        name  => $name,
+    }, 'Test2::Event::Ok';
+    $e->init;
+
+    $hub->send($e);
+    return $e if $pass;
+
+    $self->failure_diag($e);
+
+    if ($on_fail && @$on_fail) {
+        $self->diag($_) for @$on_fail;
+    }
+
+    return $e;
+}
+
+sub failure_diag {
+    my $self = shift;
+    my ($e) = @_;
+
+    # Figure out the debug info, this is typically the file name and line
+    # number, but can also be a custom message. If no trace object is provided
+    # then we have nothing useful to display.
+    my $name  = $e->name;
+    my $trace = $e->trace;
+    my $debug = $trace ? $trace->debug : "[No trace info available]";
+
+    # Create the initial diagnostics. If the test has a name we put the debug
+    # info on a second line, this behavior is inherited from Test::Builder.
+    my $msg = defined($name)
+        ? qq[Failed test '$name'\n$debug.\n]
+        : qq[Failed test $debug.\n];
+
+    $self->diag($msg);
+}
+
+sub skip {
+    my $self = shift;
+    my ($name, $reason, @extra) = @_;
+    $self->send_event(
+        'Skip',
+        name => $name,
+        reason => $reason,
+        pass => 1,
+        @extra,
+    );
+}
+
+sub note {
+    my $self = shift;
+    my ($message) = @_;
+    $self->send_event('Note', message => $message);
+}
+
+sub diag {
+    my $self = shift;
+    my ($message) = @_;
+    my $hub = $self->{+HUB};
+    $self->send_event(
+        'Diag',
+        message => $message,
+    );
+}
+
+sub plan {
+    my ($self, $max, $directive, $reason) = @_;
+    $self->send_event('Plan', max => $max, directive => $directive, reason => $reason);
+}
+
+sub bail {
+    my ($self, $reason) = @_;
+    $self->send_event('Bail', reason => $reason);
+}
+
+sub _parse_event {
+    my $self = shift;
+    my $event = shift;
+
+    my $pkg;
+    if ($event =~ m/^\+(.*)/) {
+        $pkg = $1;
+    }
+    else {
+        $pkg = "Test2::Event::$event";
+    }
+
+    unless ($LOADED{$pkg}) {
+        my $file = pkg_to_file($pkg);
+        my ($ok, $err) = try { require $file };
+        $self->throw("Could not load event module '$pkg': $err")
+            unless $ok;
+
+        $LOADED{$pkg} = $pkg;
+    }
+
+    confess "'$pkg' is not a subclass of 'Test2::Event'"
+        unless $pkg->isa('Test2::Event');
+
+    $LOADED{$event} = $pkg;
+
+    return $pkg;
+}
+
+1;
+
+__END__
+
+package Test2::API::Stack;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+
+use Test2::Hub();
+
+use Carp qw/confess/;
+
+sub new {
+    my $class = shift;
+    return bless [], $class;
+}
+
+sub new_hub {
+    my $self = shift;
+    my %params = @_;
+
+    my $class = delete $params{class} || 'Test2::Hub';
+
+    my $hub = $class->new(%params);
+
+    if (@$self) {
+        $hub->inherit($self->[-1], %params);
+    }
+    else {
+        require Test2::API;
+        $hub->format(Test2::API::test2_formatter()->new_root)
+            unless $hub->format || exists($params{formatter});
+
+        my $ipc = Test2::API::test2_ipc();
+        if ($ipc && !$hub->ipc && !exists($params{ipc})) {
+            $hub->set_ipc($ipc);
+            $ipc->add_hub($hub->hid);
+        }
+    }
+
+    push @$self => $hub;
+
+    $hub;
+}
+
+sub top {
+    my $self = shift;
+    return $self->new_hub unless @$self;
+    return $self->[-1];
+}
+
+sub peek {
+    my $self = shift;
+    return @$self ? $self->[-1] : undef;
+}
+
+sub cull {
+    my $self = shift;
+    $_->cull for reverse @$self;
+}
+
+sub all {
+    my $self = shift;
+    return @$self;
+}
+
+sub clear {
+    my $self = shift;
+    @$self = ();
+}
+
+# Do these last without keywords in order to prevent them from getting used
+# when we want the real push/pop.
+
+{
+    no warnings 'once';
+
+    *push = sub {
+        my $self = shift;
+        my ($hub) = @_;
+        $hub->inherit($self->[-1]) if @$self;
+        push @$self => $hub;
+    };
+
+    *pop = sub {
+        my $self = shift;
+        my ($hub) = @_;
+        confess "No hubs on the stack"
+            unless @$self;
+        confess "You cannot pop the root hub"
+            if 1 == @$self;
+        confess "Hub stack mismatch, attempted to pop incorrect hub"
+            unless $self->[-1] == $hub;
+        pop @$self;
+    };
+}
+
+1;
+
+__END__
+
+package Test::More;
+
+use 5.006;
+use strict;
+use warnings;
+
+#---- perlcritic exemptions. ----#
+
+# We use a lot of subroutine prototypes
+## no critic (Subroutines::ProhibitSubroutinePrototypes)
+
+# Can't use Carp because it might cause C<use_ok()> to accidentally succeed
+# even though the module being used forgot to use Carp.  Yes, this
+# actually happened.
+sub _carp {
+    my( $file, $line ) = ( caller(1) )[ 1, 2 ];
+    return warn @_, " at $file line $line\n";
+}
+
+our $VERSION = '1.302133';
+
+use Test::Builder::Module;
+our @ISA    = qw(Test::Builder::Module);
+our @EXPORT = qw(ok use_ok require_ok
+  is isnt like unlike is_deeply
+  cmp_ok
+  skip todo todo_skip
+  pass fail
+  eq_array eq_hash eq_set
+  $TODO
+  plan
+  done_testing
+  can_ok isa_ok new_ok
+  diag note explain
+  subtest
+  BAIL_OUT
+);
+
+
+sub plan {
+    my $tb = Test::More->builder;
+
+    return $tb->plan(@_);
+}
+
+# This implements "use Test::More 'no_diag'" but the behavior is
+# deprecated.
+sub import_extra {
+    my $class = shift;
+    my $list  = shift;
+
+    my @other = ();
+    my $idx   = 0;
+    my $import;
+    while( $idx <= $#{$list} ) {
+        my $item = $list->[$idx];
+
+        if( defined $item and $item eq 'no_diag' ) {
+            $class->builder->no_diag(1);
+        }
+        elsif( defined $item and $item eq 'import' ) {
+            if ($import) {
+                push @$import, @{$list->[ ++$idx ]};
+            }
+            else {
+                $import = $list->[ ++$idx ];
+                push @other, $item, $import;
+            }
+        }
+        else {
+            push @other, $item;
+        }
+
+        $idx++;
+    }
+
+    @$list = @other;
+
+    if ($class eq __PACKAGE__ && (!$import || grep $_ eq '$TODO', @$import)) {
+        my $to = $class->builder->exported_to;
+        no strict 'refs';
+        *{"$to\::TODO"} = \our $TODO;
+        if ($import) {
+            @$import = grep $_ ne '$TODO', @$import;
+        }
+        else {
+            push @$list, import => [grep $_ ne '$TODO', @EXPORT];
+        }
+    }
+
+    return;
+}
+
+
+sub done_testing {
+    my $tb = Test::More->builder;
+    $tb->done_testing(@_);
+}
+
+
+sub ok ($;$) {
+    my( $test, $name ) = @_;
+    my $tb = Test::More->builder;
+
+    return $tb->ok( $test, $name );
+}
+
+
+sub is ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->is_eq(@_);
+}
+
+sub isnt ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->isnt_eq(@_);
+}
+
+*isn't = \&isnt;
+# ' to unconfuse syntax higlighters
+
+
+sub like ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->like(@_);
+}
+
+
+sub unlike ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->unlike(@_);
+}
+
+
+sub cmp_ok($$$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->cmp_ok(@_);
+}
+
+
+sub can_ok ($@) {
+    my( $proto, @methods ) = @_;
+    my $class = ref $proto || $proto;
+    my $tb = Test::More->builder;
+
+    unless($class) {
+        my $ok = $tb->ok( 0, "->can(...)" );
+        $tb->diag('    can_ok() called with empty class or reference');
+        return $ok;
+    }
+
+    unless(@methods) {
+        my $ok = $tb->ok( 0, "$class->can(...)" );
+        $tb->diag('    can_ok() called with no methods');
+        return $ok;
+    }
+
+    my @nok = ();
+    foreach my $method (@methods) {
+        $tb->_try( sub { $proto->can($method) } ) or push @nok, $method;
+    }
+
+    my $name = (@methods == 1) ? "$class->can('$methods[0]')" :
+                                 "$class->can(...)"           ;
+
+    my $ok = $tb->ok( !@nok, $name );
+
+    $tb->diag( map "    $class->can('$_') failed\n", @nok );
+
+    return $ok;
+}
+
+
+sub isa_ok ($$;$) {
+    my( $thing, $class, $thing_name ) = @_;
+    my $tb = Test::More->builder;
+
+    my $whatami;
+    if( !defined $thing ) {
+        $whatami = 'undef';
+    }
+    elsif( ref $thing ) {
+        $whatami = 'reference';
+
+        local($@,$!);
+        require Scalar::Util;
+        if( Scalar::Util::blessed($thing) ) {
+            $whatami = 'object';
+        }
+    }
+    else {
+        $whatami = 'class';
+    }
+
+    # We can't use UNIVERSAL::isa because we want to honor isa() overrides
+    my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } );
+
+    if($error) {
+        die <<WHOA unless $error =~ /^Can't (locate|call) method "isa"/;
+WHOA! I tried to call ->isa on your $whatami and got some weird error.
+Here's the error.
+$error
+WHOA
+    }
+
+    # Special case for isa_ok( [], "ARRAY" ) and like
+    if( $whatami eq 'reference' ) {
+        $rslt = UNIVERSAL::isa($thing, $class);
+    }
+
+    my($diag, $name);
+    if( defined $thing_name ) {
+        $name = "'$thing_name' isa '$class'";
+        $diag = defined $thing ? "'$thing_name' isn't a '$class'" : "'$thing_name' isn't defined";
+    }
+    elsif( $whatami eq 'object' ) {
+        my $my_class = ref $thing;
+        $thing_name = qq[An object of class '$my_class'];
+        $name = "$thing_name isa '$class'";
+        $diag = "The object of class '$my_class' isn't a '$class'";
+    }
+    elsif( $whatami eq 'reference' ) {
+        my $type = ref $thing;
+        $thing_name = qq[A reference of type '$type'];
+        $name = "$thing_name isa '$class'";
+        $diag = "The reference of type '$type' isn't a '$class'";
+    }
+    elsif( $whatami eq 'undef' ) {
+        $thing_name = 'undef';
+        $name = "$thing_name isa '$class'";
+        $diag = "$thing_name isn't defined";
+    }
+    elsif( $whatami eq 'class' ) {
+        $thing_name = qq[The class (or class-like) '$thing'];
+        $name = "$thing_name isa '$class'";
+        $diag = "$thing_name isn't a '$class'";
+    }
+    else {
+        die;
+    }
+
+    my $ok;
+    if($rslt) {
+        $ok = $tb->ok( 1, $name );
+    }
+    else {
+        $ok = $tb->ok( 0, $name );
+        $tb->diag("    $diag\n");
+    }
+
+    return $ok;
+}
+
+
+sub new_ok {
+    my $tb = Test::More->builder;
+    $tb->croak("new_ok() must be given at least a class") unless @_;
+
+    my( $class, $args, $object_name ) = @_;
+
+    $args ||= [];
+
+    my $obj;
+    my( $success, $error ) = $tb->_try( sub { $obj = $class->new(@$args); 1 } );
+    if($success) {
+        local $Test::Builder::Level = $Test::Builder::Level + 1;
+        isa_ok $obj, $class, $object_name;
+    }
+    else {
+        $class = 'undef' if !defined $class;
+        $tb->ok( 0, "$class->new() died" );
+        $tb->diag("    Error was:  $error");
+    }
+
+    return $obj;
+}
+
+
+sub subtest {
+    my $tb = Test::More->builder;
+    return $tb->subtest(@_);
+}
+
+
+sub pass (;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->ok( 1, @_ );
+}
+
+sub fail (;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->ok( 0, @_ );
+}
+
+
+sub require_ok ($) {
+    my($module) = shift;
+    my $tb = Test::More->builder;
+
+    my $pack = caller;
+
+    # Try to determine if we've been given a module name or file.
+    # Module names must be barewords, files not.
+    $module = qq['$module'] unless _is_module_name($module);
+
+    my $code = <<REQUIRE;
+package $pack;
+require $module;
+1;
+REQUIRE
+
+    my( $eval_result, $eval_error ) = _eval($code);
+    my $ok = $tb->ok( $eval_result, "require $module;" );
+
+    unless($ok) {
+        chomp $eval_error;
+        $tb->diag(<<DIAGNOSTIC);
+    Tried to require '$module'.
+    Error:  $eval_error
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+sub _is_module_name {
+    my $module = shift;
+
+    # Module names start with a letter.
+    # End with an alphanumeric.
+    # The rest is an alphanumeric or ::
+    $module =~ s/\b::\b//g;
+
+    return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
+}
+
+
+
+sub use_ok ($;@) {
+    my( $module, @imports ) = @_;
+    @imports = () unless @imports;
+    my $tb = Test::More->builder;
+
+    my %caller;
+    @caller{qw/pack file line sub args want eval req strict warn/} = caller(0);
+
+    my ($pack, $filename, $line, $warn) = @caller{qw/pack file line warn/};
+    $filename =~ y/\n\r/_/; # so it doesn't run off the "#line $line $f" line
+
+    my $code;
+    if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) {
+        # probably a version check.  Perl needs to see the bare number
+        # for it to work with non-Exporter based modules.
+        $code = <<USE;
+package $pack;
+BEGIN { \${^WARNING_BITS} = \$args[-1] if defined \$args[-1] }
+#line $line $filename
+use $module $imports[0];
+1;
+USE
+    }
+    else {
+        $code = <<USE;
+package $pack;
+BEGIN { \${^WARNING_BITS} = \$args[-1] if defined \$args[-1] }
+#line $line $filename
+use $module \@{\$args[0]};
+1;
+USE
+    }
+
+    my ($eval_result, $eval_error) = _eval($code, \@imports, $warn);
+    my $ok = $tb->ok( $eval_result, "use $module;" );
+
+    unless($ok) {
+        chomp $eval_error;
+        $@ =~ s{^BEGIN failed--compilation aborted at .*$}
+                {BEGIN failed--compilation aborted at $filename line $line.}m;
+        $tb->diag(<<DIAGNOSTIC);
+    Tried to use '$module'.
+    Error:  $eval_error
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+sub _eval {
+    my( $code, @args ) = @_;
+
+    # Work around oddities surrounding resetting of $@ by immediately
+    # storing it.
+    my( $sigdie, $eval_result, $eval_error );
+    {
+        local( $@, $!, $SIG{__DIE__} );    # isolate eval
+        $eval_result = eval $code;              ## no critic (BuiltinFunctions::ProhibitStringyEval)
+        $eval_error  = $@;
+        $sigdie      = $SIG{__DIE__} || undef;
+    }
+    # make sure that $code got a chance to set $SIG{__DIE__}
+    $SIG{__DIE__} = $sigdie if defined $sigdie;
+
+    return( $eval_result, $eval_error );
+}
+
+
+
+our( @Data_Stack, %Refs_Seen );
+my $DNE = bless [], 'Does::Not::Exist';
+
+sub _dne {
+    return ref $_[0] eq ref $DNE;
+}
+
+## no critic (Subroutines::RequireArgUnpacking)
+sub is_deeply {
+    my $tb = Test::More->builder;
+
+    unless( @_ == 2 or @_ == 3 ) {
+        my $msg = <<'WARNING';
+is_deeply() takes two or three args, you gave %d.
+This usually means you passed an array or hash instead 
+of a reference to it
+WARNING
+        chop $msg;    # clip off newline so carp() will put in line/file
+
+        _carp sprintf $msg, scalar @_;
+
+        return $tb->ok(0);
+    }
+
+    my( $got, $expected, $name ) = @_;
+
+    $tb->_unoverload_str( \$expected, \$got );
+
+    my $ok;
+    if( !ref $got and !ref $expected ) {    # neither is a reference
+        $ok = $tb->is_eq( $got, $expected, $name );
+    }
+    elsif( !ref $got xor !ref $expected ) {    # one's a reference, one isn't
+        $ok = $tb->ok( 0, $name );
+        $tb->diag( _format_stack({ vals => [ $got, $expected ] }) );
+    }
+    else {                                     # both references
+        local @Data_Stack = ();
+        if( _deep_check( $got, $expected ) ) {
+            $ok = $tb->ok( 1, $name );
+        }
+        else {
+            $ok = $tb->ok( 0, $name );
+            $tb->diag( _format_stack(@Data_Stack) );
+        }
+    }
+
+    return $ok;
+}
+
+sub _format_stack {
+    my(@Stack) = @_;
+
+    my $var       = '$FOO';
+    my $did_arrow = 0;
+    foreach my $entry (@Stack) {
+        my $type = $entry->{type} || '';
+        my $idx = $entry->{'idx'};
+        if( $type eq 'HASH' ) {
+            $var .= "->" unless $did_arrow++;
+            $var .= "{$idx}";
+        }
+        elsif( $type eq 'ARRAY' ) {
+            $var .= "->" unless $did_arrow++;
+            $var .= "[$idx]";
+        }
+        elsif( $type eq 'REF' ) {
+            $var = "\${$var}";
+        }
+    }
+
+    my @vals = @{ $Stack[-1]{vals} }[ 0, 1 ];
+    my @vars = ();
+    ( $vars[0] = $var ) =~ s/\$FOO/     \$got/;
+    ( $vars[1] = $var ) =~ s/\$FOO/\$expected/;
+
+    my $out = "Structures begin differing at:\n";
+    foreach my $idx ( 0 .. $#vals ) {
+        my $val = $vals[$idx];
+        $vals[$idx]
+          = !defined $val ? 'undef'
+          : _dne($val)    ? "Does not exist"
+          : ref $val      ? "$val"
+          :                 "'$val'";
+    }
+
+    $out .= "$vars[0] = $vals[0]\n";
+    $out .= "$vars[1] = $vals[1]\n";
+
+    $out =~ s/^/    /msg;
+    return $out;
+}
+
+sub _type {
+    my $thing = shift;
+
+    return '' if !ref $thing;
+
+    for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE VSTRING)) {
+        return $type if UNIVERSAL::isa( $thing, $type );
+    }
+
+    return '';
+}
+
+
+sub diag {
+    return Test::More->builder->diag(@_);
+}
+
+sub note {
+    return Test::More->builder->note(@_);
+}
+
+
+sub explain {
+    return Test::More->builder->explain(@_);
+}
+
+
+## no critic (Subroutines::RequireFinalReturn)
+sub skip {
+    my( $why, $how_many ) = @_;
+    my $tb = Test::More->builder;
+
+    # If the plan is set, and is static, then skip needs a count. If the plan
+    # is 'no_plan' we are fine. As well if plan is undefined then we are
+    # waiting for done_testing.
+    unless (defined $how_many) {
+        my $plan = $tb->has_plan;
+        _carp "skip() needs to know \$how_many tests are in the block"
+            if $plan && $plan =~ m/^\d+$/;
+        $how_many = 1;
+    }
+
+    if( defined $how_many and $how_many =~ /\D/ ) {
+        _carp
+          "skip() was passed a non-numeric number of tests.  Did you get the arguments backwards?";
+        $how_many = 1;
+    }
+
+    for( 1 .. $how_many ) {
+        $tb->skip($why);
+    }
+
+    no warnings 'exiting';
+    last SKIP;
+}
+
+
+sub todo_skip {
+    my( $why, $how_many ) = @_;
+    my $tb = Test::More->builder;
+
+    unless( defined $how_many ) {
+        # $how_many can only be avoided when no_plan is in use.
+        _carp "todo_skip() needs to know \$how_many tests are in the block"
+          unless $tb->has_plan eq 'no_plan';
+        $how_many = 1;
+    }
+
+    for( 1 .. $how_many ) {
+        $tb->todo_skip($why);
+    }
+
+    no warnings 'exiting';
+    last TODO;
+}
+
+
+sub BAIL_OUT {
+    my $reason = shift;
+    my $tb     = Test::More->builder;
+
+    $tb->BAIL_OUT($reason);
+}
+
+
+#'#
+sub eq_array {
+    local @Data_Stack = ();
+    _deep_check(@_);
+}
+
+sub _eq_array {
+    my( $a1, $a2 ) = @_;
+
+    if( grep _type($_) ne 'ARRAY', $a1, $a2 ) {
+        warn "eq_array passed a non-array ref";
+        return 0;
+    }
+
+    return 1 if $a1 eq $a2;
+
+    my $ok = 1;
+    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
+    for( 0 .. $max ) {
+        my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_];
+        my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_];
+
+        next if _equal_nonrefs($e1, $e2);
+
+        push @Data_Stack, { type => 'ARRAY', idx => $_, vals => [ $e1, $e2 ] };
+        $ok = _deep_check( $e1, $e2 );
+        pop @Data_Stack if $ok;
+
+        last unless $ok;
+    }
+
+    return $ok;
+}
+
+sub _equal_nonrefs {
+    my( $e1, $e2 ) = @_;
+
+    return if ref $e1 or ref $e2;
+
+    if ( defined $e1 ) {
+        return 1 if defined $e2 and $e1 eq $e2;
+    }
+    else {
+        return 1 if !defined $e2;
+    }
+
+    return;
+}
+
+sub _deep_check {
+    my( $e1, $e2 ) = @_;
+    my $tb = Test::More->builder;
+
+    my $ok = 0;
+
+    # Effectively turn %Refs_Seen into a stack.  This avoids picking up
+    # the same referenced used twice (such as [\$a, \$a]) to be considered
+    # circular.
+    local %Refs_Seen = %Refs_Seen;
+
+    {
+        $tb->_unoverload_str( \$e1, \$e2 );
+
+        # Either they're both references or both not.
+        my $same_ref = !( !ref $e1 xor !ref $e2 );
+        my $not_ref = ( !ref $e1 and !ref $e2 );
+
+        if( defined $e1 xor defined $e2 ) {
+            $ok = 0;
+        }
+        elsif( !defined $e1 and !defined $e2 ) {
+            # Shortcut if they're both undefined.
+            $ok = 1;
+        }
+        elsif( _dne($e1) xor _dne($e2) ) {
+            $ok = 0;
+        }
+        elsif( $same_ref and( $e1 eq $e2 ) ) {
+            $ok = 1;
+        }
+        elsif($not_ref) {
+            push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
+            $ok = 0;
+        }
+        else {
+            if( $Refs_Seen{$e1} ) {
+                return $Refs_Seen{$e1} eq $e2;
+            }
+            else {
+                $Refs_Seen{$e1} = "$e2";
+            }
+
+            my $type = _type($e1);
+            $type = 'DIFFERENT' unless _type($e2) eq $type;
+
+            if( $type eq 'DIFFERENT' ) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = 0;
+            }
+            elsif( $type eq 'ARRAY' ) {
+                $ok = _eq_array( $e1, $e2 );
+            }
+            elsif( $type eq 'HASH' ) {
+                $ok = _eq_hash( $e1, $e2 );
+            }
+            elsif( $type eq 'REF' ) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = _deep_check( $$e1, $$e2 );
+                pop @Data_Stack if $ok;
+            }
+            elsif( $type eq 'SCALAR' ) {
+                push @Data_Stack, { type => 'REF', vals => [ $e1, $e2 ] };
+                $ok = _deep_check( $$e1, $$e2 );
+                pop @Data_Stack if $ok;
+            }
+            elsif($type) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = 0;
+            }
+            else {
+                _whoa( 1, "No type in _deep_check" );
+            }
+        }
+    }
+
+    return $ok;
+}
+
+sub _whoa {
+    my( $check, $desc ) = @_;
+    if($check) {
+        die <<"WHOA";
+WHOA!  $desc
+This should never happen!  Please contact the author immediately!
+WHOA
+    }
+}
+
+
+sub eq_hash {
+    local @Data_Stack = ();
+    return _deep_check(@_);
+}
+
+sub _eq_hash {
+    my( $a1, $a2 ) = @_;
+
+    if( grep _type($_) ne 'HASH', $a1, $a2 ) {
+        warn "eq_hash passed a non-hash ref";
+        return 0;
+    }
+
+    return 1 if $a1 eq $a2;
+
+    my $ok = 1;
+    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
+    foreach my $k ( keys %$bigger ) {
+        my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
+        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;
+
+        next if _equal_nonrefs($e1, $e2);
+
+        push @Data_Stack, { type => 'HASH', idx => $k, vals => [ $e1, $e2 ] };
+        $ok = _deep_check( $e1, $e2 );
+        pop @Data_Stack if $ok;
+
+        last unless $ok;
+    }
+
+    return $ok;
+}
+
+
+sub eq_set {
+    my( $a1, $a2 ) = @_;
+    return 0 unless @$a1 == @$a2;
+
+    no warnings 'uninitialized';
+
+    # It really doesn't matter how we sort them, as long as both arrays are
+    # sorted with the same algorithm.
+    #
+    # Ensure that references are not accidentally treated the same as a
+    # string containing the reference.
+    #
+    # Have to inline the sort routine due to a threading/sort bug.
+    # See [rt.cpan.org 6782]
+    #
+    # I don't know how references would be sorted so we just don't sort
+    # them.  This means eq_set doesn't really work with refs.
+    return eq_array(
+        [ grep( ref, @$a1 ), sort( grep( !ref, @$a1 ) ) ],
+        [ grep( ref, @$a2 ), sort( grep( !ref, @$a2 ) ) ],
+    );
+}
+
+
+1;
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2014-2015 -- leonerd@leonerd.org.uk
+
+package Test::Future;
+
+use strict;
+use warnings;
+use base qw( Test::Builder::Module );
+
+our $VERSION = '0.39';
+
+our @EXPORT = qw(
+   no_pending_futures
+);
+
+use Scalar::Util qw( refaddr );
+
+use constant HAVE_DEVEL_MAT_DUMPER => defined eval { require Devel::MAT::Dumper };
+
+
+
+
+sub no_pending_futures(&@)
+{
+   my ( $code, $name ) = @_;
+
+   my @futures;
+
+   no warnings 'redefine';
+
+   my $new = Future->can( "new" );
+   local *Future::new = sub {
+      my $f = $new->(@_);
+      push @futures, $f;
+      $f->on_ready( sub {
+         my $f = shift;
+         for ( 0 .. $#futures ) {
+            refaddr( $futures[$_] ) == refaddr( $f ) or next;
+
+            splice @futures, $_, 1, ();
+            return;
+         }
+      });
+      return $f;
+   };
+
+   my $done = Future->can( "done" );
+   local *Future::done = sub {
+      my $f = $done->(@_);
+      pop @futures if !ref $_[0]; # class method
+      return $f;
+   };
+
+   my $fail = Future->can( "fail" );
+   local *Future::fail = sub {
+      my $f = $fail->(@_);
+      pop @futures if !ref $_[0]; # class method
+      return $f;
+   };
+
+   my $tb = __PACKAGE__->builder;
+
+   $code->();
+
+   my @pending = grep { !$_->is_ready } @futures;
+
+   return $tb->ok( 1, $name ) if !@pending;
+
+   my $ok = $tb->ok( 0, $name );
+
+   $tb->diag( "The following Futures are still pending:" );
+   $tb->diag( join ", ", map { sprintf "0x%x", refaddr $_ } @pending );
+
+   if( HAVE_DEVEL_MAT_DUMPER ) {
+      my $file = $0;
+      my $num = $tb->current_test;
+
+      # Trim the .t off first then append -$num.pmat, in case $0 wasn't a .t file
+      $file =~ s/\.(?:t|pm|pl)$//;
+      $file .= "-$num.pmat";
+
+      $tb->diag( "Writing heap dump to $file" );
+      Devel::MAT::Dumper::dump( $file );
+   }
+
+   return $ok;
+}
+
+
+0x55AA;
+package Test::Builder;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN {
+    if( $] < 5.008 ) {
+        require Test::Builder::IO::Scalar;
+    }
+}
+
+use Scalar::Util qw/blessed reftype weaken/;
+
+use Test2::Util qw/USE_THREADS try get_tid/;
+use Test2::API qw/context release/;
+# Make Test::Builder thread-safe for ithreads.
+BEGIN {
+    warn "Test::Builder was loaded after Test2 initialization, this is not recommended."
+        if Test2::API::test2_init_done() || Test2::API::test2_load_done();
+
+    if (USE_THREADS && ! Test2::API::test2_ipc_disabled()) {
+        require Test2::IPC;
+        require Test2::IPC::Driver::Files;
+        Test2::IPC::Driver::Files->import;
+        Test2::API::test2_ipc_enable_polling();
+        Test2::API::test2_no_wait(1);
+        Test2::API::test2_ipc_enable_shm();
+    }
+}
+
+use Test2::Event::Subtest;
+use Test2::Hub::Subtest;
+
+use Test::Builder::Formatter;
+use Test::Builder::TodoDiag;
+
+our $Level = 1;
+our $Test = $ENV{TB_NO_EARLY_INIT} ? undef : Test::Builder->new;
+
+sub _add_ts_hooks {
+    my $self = shift;
+
+    my $hub = $self->{Stack}->top;
+
+    # Take a reference to the hash key, we do this to avoid closing over $self
+    # which is the singleton. We use a reference because the value could change
+    # in rare cases.
+    my $epkgr = \$self->{Exported_To};
+
+    #$hub->add_context_aquire(sub {$_[0]->{level} += $Level - 1});
+
+    $hub->pre_filter(sub {
+        my ($active_hub, $e) = @_;
+
+        my $epkg = $$epkgr;
+        my $cpkg = $e->{trace} ? $e->{trace}->{frame}->[0] : undef;
+
+        no strict 'refs';
+        no warnings 'once';
+        my $todo;
+        $todo = ${"$cpkg\::TODO"} if $cpkg;
+        $todo = ${"$epkg\::TODO"} if $epkg && !$todo;
+
+        return $e unless $todo;
+
+        # Turn a diag into a todo diag
+        return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag';
+
+        if ($active_hub == $hub) {
+            $e->set_todo($todo) if $e->can('set_todo');
+            $e->add_amnesty({tag => 'TODO', details => $todo});
+        }
+        else {
+            $e->add_amnesty({tag => 'TODO', details => $todo, inherited => 1});
+        }
+
+        # Set todo on ok's
+        if ($e->isa('Test2::Event::Ok')) {
+            $e->set_effective_pass(1);
+
+            if (my $result = $e->get_meta(__PACKAGE__)) {
+                $result->{reason} ||= $todo;
+                $result->{type}   ||= 'todo';
+                $result->{ok}       = 1;
+            }
+        }
+
+        return $e;
+    }, inherit => 1);
+}
+
+{
+    no warnings;
+    INIT {
+        use warnings;
+        Test2::API::test2_load() unless Test2::API::test2_in_preload();
+    }
+}
+
+sub new {
+    my($class) = shift;
+    unless($Test) {
+        $Test = $class->create(singleton => 1);
+
+        Test2::API::test2_add_callback_post_load(
+            sub {
+                $Test->{Original_Pid} = $$ if !$Test->{Original_Pid} || $Test->{Original_Pid} == 0;
+                $Test->reset(singleton => 1);
+                $Test->_add_ts_hooks;
+            }
+        );
+
+        # Non-TB tools normally expect 0 added to the level. $Level is normally 1. So
+        # we only want the level to change if $Level != 1.
+        # TB->ctx compensates for this later.
+        Test2::API::test2_add_callback_context_aquire(sub { $_[0]->{level} += $Level - 1 });
+
+        Test2::API::test2_add_callback_exit(sub { $Test->_ending(@_) });
+
+        Test2::API::test2_ipc()->set_no_fatal(1) if Test2::API::test2_has_ipc();
+    }
+    return $Test;
+}
+
+sub create {
+    my $class = shift;
+    my %params = @_;
+
+    my $self = bless {}, $class;
+    if ($params{singleton}) {
+        $self->{Stack} = Test2::API::test2_stack();
+    }
+    else {
+        $self->{Stack} = Test2::API::Stack->new;
+        $self->{Stack}->new_hub(
+            formatter => Test::Builder::Formatter->new,
+            ipc       => Test2::API::test2_ipc(),
+        );
+
+        $self->reset(%params);
+        $self->_add_ts_hooks;
+    }
+
+    return $self;
+}
+
+sub ctx {
+    my $self = shift;
+    context(
+        # 1 for our frame, another for the -1 off of $Level in our hook at the top.
+        level   => 2,
+        fudge   => 1,
+        stack   => $self->{Stack},
+        hub     => $self->{Hub},
+        wrapped => 1,
+        @_
+    );
+}
+
+sub parent {
+    my $self = shift;
+    my $ctx = $self->ctx;
+    my $chub = $self->{Hub} || $ctx->hub;
+    $ctx->release;
+
+    my $meta = $chub->meta(__PACKAGE__, {});
+    my $parent = $meta->{parent};
+
+    return undef unless $parent;
+
+    return bless {
+        Original_Pid => $$,
+        Stack => $self->{Stack},
+        Hub => $parent,
+    }, blessed($self);
+}
+
+sub child {
+    my( $self, $name ) = @_;
+
+    $name ||= "Child of " . $self->name;
+    my $ctx = $self->ctx;
+
+    my $parent = $ctx->hub;
+    my $pmeta = $parent->meta(__PACKAGE__, {});
+    $self->croak("You already have a child named ($pmeta->{child}) running")
+        if $pmeta->{child};
+
+    $pmeta->{child} = $name;
+
+    # Clear $TODO for the child.
+    my $orig_TODO = $self->find_TODO(undef, 1, undef);
+
+    my $subevents = [];
+
+    my $hub = $ctx->stack->new_hub(
+        class => 'Test2::Hub::Subtest',
+    );
+
+    $hub->pre_filter(sub {
+        my ($active_hub, $e) = @_;
+
+        # Turn a diag into a todo diag
+        return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag';
+
+        return $e;
+    }, inherit => 1) if $orig_TODO;
+
+    $hub->listen(sub { push @$subevents => $_[1] });
+
+    $hub->set_nested( $parent->nested + 1 );
+
+    my $meta = $hub->meta(__PACKAGE__, {});
+    $meta->{Name} = $name;
+    $meta->{TODO} = $orig_TODO;
+    $meta->{TODO_PKG} = $ctx->trace->package;
+    $meta->{parent} = $parent;
+    $meta->{Test_Results} = [];
+    $meta->{subevents} = $subevents;
+    $meta->{subtest_id} = $hub->id;
+    $meta->{subtest_uuid} = $hub->uuid;
+    $meta->{subtest_buffered} = $parent->format ? 0 : 1;
+
+    $self->_add_ts_hooks;
+
+    $ctx->release;
+    return bless { Original_Pid => $$, Stack => $self->{Stack}, Hub => $hub, no_log_results => $self->{no_log_results} }, blessed($self);
+}
+
+sub finalize {
+    my $self = shift;
+    my $ok = 1;
+    ($ok) = @_ if @_;
+
+    my $st_ctx = $self->ctx;
+    my $chub = $self->{Hub} || return $st_ctx->release;
+
+    my $meta = $chub->meta(__PACKAGE__, {});
+    if ($meta->{child}) {
+        $self->croak("Can't call finalize() with child ($meta->{child}) active");
+    }
+
+    local $? = 0;     # don't fail if $subtests happened to set $? nonzero
+
+    $self->{Stack}->pop($chub);
+
+    $self->find_TODO($meta->{TODO_PKG}, 1, $meta->{TODO});
+
+    my $parent = $self->parent;
+    my $ctx = $parent->ctx;
+    my $trace = $ctx->trace;
+    delete $ctx->hub->meta(__PACKAGE__, {})->{child};
+
+    $chub->finalize($trace->snapshot(hid => $chub->hid, nested => $chub->nested), 1)
+        if $ok
+        && $chub->count
+        && !$chub->no_ending
+        && !$chub->ended;
+
+    my $plan   = $chub->plan || 0;
+    my $count  = $chub->count;
+    my $failed = $chub->failed;
+    my $passed = $chub->is_passing;
+
+    my $num_extra = $plan =~ m/\D/ ? 0 : $count - $plan;
+    if ($count && $num_extra != 0) {
+        my $s = $plan == 1 ? '' : 's';
+        $st_ctx->diag(<<"FAIL");
+Looks like you planned $plan test$s but ran $count.
+FAIL
+    }
+
+    if ($failed) {
+        my $s = $failed == 1 ? '' : 's';
+
+        my $qualifier = $num_extra == 0 ? '' : ' run';
+
+        $st_ctx->diag(<<"FAIL");
+Looks like you failed $failed test$s of $count$qualifier.
+FAIL
+    }
+
+    if (!$passed && !$failed && $count && !$num_extra) {
+        $st_ctx->diag(<<"FAIL");
+All assertions inside the subtest passed, but errors were encountered.
+FAIL
+    }
+
+    $st_ctx->release;
+
+    unless ($chub->bailed_out) {
+        my $plan = $chub->plan;
+        if ( $plan && $plan eq 'SKIP' ) {
+            $parent->skip($chub->skip_reason, $meta->{Name});
+        }
+        elsif ( !$chub->count ) {
+            $parent->ok( 0, sprintf q[No tests run for subtest "%s"], $meta->{Name} );
+        }
+        else {
+            $parent->{subevents}  = $meta->{subevents};
+            $parent->{subtest_id} = $meta->{subtest_id};
+            $parent->{subtest_uuid} = $meta->{subtest_uuid};
+            $parent->{subtest_buffered} = $meta->{subtest_buffered};
+            $parent->ok( $chub->is_passing, $meta->{Name} );
+        }
+    }
+
+    $ctx->release;
+    return $chub->is_passing;
+}
+
+sub subtest {
+    my $self = shift;
+    my ($name, $code, @args) = @_;
+    my $ctx = $self->ctx;
+    $ctx->throw("subtest()'s second argument must be a code ref")
+        unless $code && reftype($code) eq 'CODE';
+
+    $name ||= "Child of " . $self->name;
+
+
+    $_->($name,$code,@args)
+        for Test2::API::test2_list_pre_subtest_callbacks();
+
+    $ctx->note("Subtest: $name");
+
+    my $child = $self->child($name);
+
+    my $start_pid = $$;
+    my $st_ctx;
+    my ($ok, $err, $finished, $child_error);
+    T2_SUBTEST_WRAPPER: {
+        my $ctx = $self->ctx;
+        $st_ctx = $ctx->snapshot;
+        $ctx->release;
+        $ok = eval { local $Level = 1; $code->(@args); 1 };
+        ($err, $child_error) = ($@, $?);
+
+        # They might have done 'BEGIN { skip_all => "whatever" }'
+        if (!$ok && $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && blessed($err) eq 'Test::Builder::Exception')) {
+            $ok  = undef;
+            $err = undef;
+        }
+        else {
+            $finished = 1;
+        }
+    }
+
+    if ($start_pid != $$ && !$INC{'Test2/IPC.pm'}) {
+        warn $ok ? "Forked inside subtest, but subtest never finished!\n" : $err;
+        exit 255;
+    }
+
+    my $trace = $ctx->trace;
+
+    if (!$finished) {
+        if(my $bailed = $st_ctx->hub->bailed_out) {
+            my $chub = $child->{Hub};
+            $self->{Stack}->pop($chub);
+            $ctx->bail($bailed->reason);
+        }
+        my $code = $st_ctx->hub->exit_code;
+        $ok = !$code;
+        $err = "Subtest ended with exit code $code" if $code;
+    }
+
+    my $st_hub  = $st_ctx->hub;
+    my $plan  = $st_hub->plan;
+    my $count = $st_hub->count;
+
+    if (!$count && (!defined($plan) || "$plan" ne 'SKIP')) {
+        $st_ctx->plan(0) unless defined $plan;
+        $st_ctx->diag('No tests run!');
+    }
+
+    $child->finalize($st_ctx->trace);
+
+    $ctx->release;
+
+    die $err unless $ok;
+
+    $? = $child_error if defined $child_error;
+
+    return $st_hub->is_passing;
+}
+
+sub name {
+    my $self = shift;
+    my $ctx = $self->ctx;
+    release $ctx, $ctx->hub->meta(__PACKAGE__, {})->{Name};
+}
+
+sub reset {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
+    my ($self, %params) = @_;
+
+    Test2::API::test2_set_is_end(0);
+
+    # We leave this a global because it has to be localized and localizing
+    # hash keys is just asking for pain.  Also, it was documented.
+    $Level = 1;
+
+    $self->{no_log_results} = $ENV{TEST_NO_LOG_RESULTS} ? 1 : 0
+        unless $params{singleton};
+
+    $self->{Original_Pid} = Test2::API::test2_in_preload() ? -1 : $$;
+
+    my $ctx = $self->ctx;
+    my $hub = $ctx->hub;
+    $ctx->release;
+    unless ($params{singleton}) {
+        $hub->reset_state();
+        $hub->_tb_reset();
+    }
+
+    $ctx = $self->ctx;
+
+    my $meta = $ctx->hub->meta(__PACKAGE__, {});
+    %$meta = (
+        Name         => $0,
+        Ending       => 0,
+        Done_Testing => undef,
+        Skip_All     => 0,
+        Test_Results => [],
+        parent       => $meta->{parent},
+    );
+
+    $self->{Exported_To} = undef unless $params{singleton};
+
+    $self->{Orig_Handles} ||= do {
+        my $format = $ctx->hub->format;
+        my $out;
+        if ($format && $format->isa('Test2::Formatter::TAP')) {
+            $out = $format->handles;
+        }
+        $out ? [@$out] : [];
+    };
+
+    $self->use_numbers(1);
+    $self->no_header(0) unless $params{singleton};
+    $self->no_ending(0) unless $params{singleton};
+    $self->reset_outputs;
+
+    $ctx->release;
+
+    return;
+}
+
+
+my %plan_cmds = (
+    no_plan  => \&no_plan,
+    skip_all => \&skip_all,
+    tests    => \&_plan_tests,
+);
+
+sub plan {
+    my( $self, $cmd, $arg ) = @_;
+
+    return unless $cmd;
+
+    my $ctx = $self->ctx;
+    my $hub = $ctx->hub;
+
+    $ctx->throw("You tried to plan twice") if $hub->plan;
+
+    local $Level = $Level + 1;
+
+    if( my $method = $plan_cmds{$cmd} ) {
+        local $Level = $Level + 1;
+        $self->$method($arg);
+    }
+    else {
+        my @args = grep { defined } ( $cmd, $arg );
+        $ctx->throw("plan() doesn't understand @args");
+    }
+
+    release $ctx, 1;
+}
+
+
+sub _plan_tests {
+    my($self, $arg) = @_;
+
+    my $ctx = $self->ctx;
+
+    if($arg) {
+        local $Level = $Level + 1;
+        $self->expected_tests($arg);
+    }
+    elsif( !defined $arg ) {
+        $ctx->throw("Got an undefined number of tests");
+    }
+    else {
+        $ctx->throw("You said to run 0 tests");
+    }
+
+    $ctx->release;
+}
+
+
+sub expected_tests {
+    my $self = shift;
+    my($max) = @_;
+
+    my $ctx = $self->ctx;
+
+    if(@_) {
+        $self->croak("Number of tests must be a positive integer.  You gave it '$max'")
+          unless $max =~ /^\+?\d+$/;
+
+        $ctx->plan($max);
+    }
+
+    my $hub = $ctx->hub;
+
+    $ctx->release;
+
+    my $plan = $hub->plan;
+    return 0 unless $plan;
+    return 0 if $plan =~ m/\D/;
+    return $plan;
+}
+
+
+sub no_plan {
+    my($self, $arg) = @_;
+
+    my $ctx = $self->ctx;
+
+    if (defined $ctx->hub->plan) {
+        warn "Plan already set, no_plan() is a no-op, this will change to a hard failure in the future.";
+        $ctx->release;
+        return;
+    }
+
+    $ctx->alert("no_plan takes no arguments") if $arg;
+
+    $ctx->hub->plan('NO PLAN');
+
+    release $ctx, 1;
+}
+
+
+sub done_testing {
+    my($self, $num_tests) = @_;
+
+    my $ctx = $self->ctx;
+
+    my $meta = $ctx->hub->meta(__PACKAGE__, {});
+
+    if ($meta->{Done_Testing}) {
+        my ($file, $line) = @{$meta->{Done_Testing}}[1,2];
+        local $ctx->hub->{ended}; # OMG This is awful.
+        $self->ok(0, "done_testing() was already called at $file line $line");
+        $ctx->release;
+        return;
+    }
+    $meta->{Done_Testing} = [$ctx->trace->call];
+
+    my $plan = $ctx->hub->plan;
+    my $count = $ctx->hub->count;
+
+    # If done_testing() specified the number of tests, shut off no_plan
+    if( defined $num_tests ) {
+        $ctx->plan($num_tests) if !$plan || $plan eq 'NO PLAN';
+    }
+    elsif ($count && defined $num_tests && $count != $num_tests) {
+        $self->ok(0, "planned to run @{[ $self->expected_tests ]} but done_testing() expects $num_tests");
+    }
+    else {
+        $num_tests = $self->current_test;
+    }
+
+    if( $self->expected_tests && $num_tests != $self->expected_tests ) {
+        $self->ok(0, "planned to run @{[ $self->expected_tests ]} ".
+                     "but done_testing() expects $num_tests");
+    }
+
+    $ctx->plan($num_tests) if $ctx->hub->plan && $ctx->hub->plan eq 'NO PLAN';
+
+    $ctx->hub->finalize($ctx->trace, 1);
+
+    release $ctx, 1;
+}
+
+
+sub has_plan {
+    my $self = shift;
+
+    my $ctx = $self->ctx;
+    my $plan = $ctx->hub->plan;
+    $ctx->release;
+
+    return( $plan ) if $plan && $plan !~ m/\D/;
+    return('no_plan') if $plan && $plan eq 'NO PLAN';
+    return(undef);
+}
+
+
+sub skip_all {
+    my( $self, $reason ) = @_;
+
+    my $ctx = $self->ctx;
+
+    $ctx->hub->meta(__PACKAGE__, {})->{Skip_All} = $reason || 1;
+
+    # Work around old perl bug
+    if ($] < 5.020000) {
+        my $begin = 0;
+        my $level = 0;
+        while (my @call = caller($level++)) {
+            last unless @call && $call[0];
+            next unless $call[3] =~ m/::BEGIN$/;
+            $begin++;
+            last;
+        }
+        # HACK!
+        die 'Label not found for "last T2_SUBTEST_WRAPPER"' if $begin && $ctx->hub->meta(__PACKAGE__, {})->{parent};
+    }
+
+    $ctx->plan(0, SKIP => $reason);
+}
+
+
+sub exported_to {
+    my( $self, $pack ) = @_;
+
+    if( defined $pack ) {
+        $self->{Exported_To} = $pack;
+    }
+    return $self->{Exported_To};
+}
+
+
+sub ok {
+    my( $self, $test, $name ) = @_;
+
+    my $ctx = $self->ctx;
+
+    # $test might contain an object which we don't want to accidentally
+    # store, so we turn it into a boolean.
+    $test = $test ? 1 : 0;
+
+    # In case $name is a string overloaded object, force it to stringify.
+    no  warnings qw/uninitialized numeric/;
+    $name = "$name" if defined $name;
+
+    # Profiling showed that the regex here was a huge time waster, doing the
+    # numeric addition first cuts our profile time from ~300ms to ~50ms
+    $self->diag(<<"    ERR") if 0 + $name && $name =~ /^[\d\s]+$/;
+    You named your test '$name'.  You shouldn't use numbers for your test names.
+    Very confusing.
+    ERR
+    use warnings qw/uninitialized numeric/;
+
+    my $trace = $ctx->{trace};
+    my $hub   = $ctx->{hub};
+
+    my $result = {
+        ok => $test,
+        actual_ok => $test,
+        reason => '',
+        type => '',
+        (name => defined($name) ? $name : ''),
+    };
+
+    $hub->{_meta}->{+__PACKAGE__}->{Test_Results}[ $hub->{count} ] = $result unless $self->{no_log_results};
+
+    my $orig_name = $name;
+
+    my @attrs;
+    my $subevents  = delete $self->{subevents};
+    my $subtest_id = delete $self->{subtest_id};
+    my $subtest_uuid = delete $self->{subtest_uuid};
+    my $subtest_buffered = delete $self->{subtest_buffered};
+    my $epkg = 'Test2::Event::Ok';
+    if ($subevents) {
+        $epkg = 'Test2::Event::Subtest';
+        push @attrs => (subevents => $subevents, subtest_id => $subtest_id, subtest_uuid => $subtest_uuid, buffered => $subtest_buffered);
+    }
+
+    my $e = bless {
+        trace => bless( {%$trace}, 'Test2::EventFacet::Trace'),
+        pass  => $test,
+        name  => $name,
+        _meta => {'Test::Builder' => $result},
+        effective_pass => $test,
+        @attrs,
+    }, $epkg;
+    $hub->send($e);
+
+    $self->_ok_debug($trace, $orig_name) unless($test);
+
+    $ctx->release;
+    return $test;
+}
+
+sub _ok_debug {
+    my $self = shift;
+    my ($trace, $orig_name) = @_;
+
+    my $is_todo = defined($self->todo);
+
+    my $msg = $is_todo ? "Failed (TODO)" : "Failed";
+
+    my (undef, $file, $line) = $trace->call;
+    if (defined $orig_name) {
+        $self->diag(qq[  $msg test '$orig_name'\n  at $file line $line.\n]);
+    }
+    else {
+        $self->diag(qq[  $msg test at $file line $line.\n]);
+    }
+}
+
+sub _diag_fh {
+    my $self = shift;
+    local $Level = $Level + 1;
+    return $self->in_todo ? $self->todo_output : $self->failure_output;
+}
+
+sub _unoverload {
+    my ($self, $type, $thing) = @_;
+
+    return unless ref $$thing;
+    return unless blessed($$thing) || scalar $self->_try(sub{ $$thing->isa('UNIVERSAL') });
+    {
+        local ($!, $@);
+        require overload;
+    }
+    my $string_meth = overload::Method( $$thing, $type ) || return;
+    $$thing = $$thing->$string_meth();
+}
+
+sub _unoverload_str {
+    my $self = shift;
+
+    $self->_unoverload( q[""], $_ ) for @_;
+}
+
+sub _unoverload_num {
+    my $self = shift;
+
+    $self->_unoverload( '0+', $_ ) for @_;
+
+    for my $val (@_) {
+        next unless $self->_is_dualvar($$val);
+        $$val = $$val + 0;
+    }
+}
+
+# This is a hack to detect a dualvar such as $!
+sub _is_dualvar {
+    my( $self, $val ) = @_;
+
+    # Objects are not dualvars.
+    return 0 if ref $val;
+
+    no warnings 'numeric';
+    my $numval = $val + 0;
+    return ($numval != 0 and $numval ne $val ? 1 : 0);
+}
+
+
+sub is_eq {
+    my( $self, $got, $expect, $name ) = @_;
+
+    my $ctx = $self->ctx;
+
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $expect ) {
+        # undef only matches undef and nothing else
+        my $test = !defined $got && !defined $expect;
+
+        $self->ok( $test, $name );
+        $self->_is_diag( $got, 'eq', $expect ) unless $test;
+        $ctx->release;
+        return $test;
+    }
+
+    release $ctx, $self->cmp_ok( $got, 'eq', $expect, $name );
+}
+
+
+sub is_num {
+    my( $self, $got, $expect, $name ) = @_;
+    my $ctx = $self->ctx;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $expect ) {
+        # undef only matches undef and nothing else
+        my $test = !defined $got && !defined $expect;
+
+        $self->ok( $test, $name );
+        $self->_is_diag( $got, '==', $expect ) unless $test;
+        $ctx->release;
+        return $test;
+    }
+
+    release $ctx, $self->cmp_ok( $got, '==', $expect, $name );
+}
+
+
+sub _diag_fmt {
+    my( $self, $type, $val ) = @_;
+
+    if( defined $$val ) {
+        if( $type eq 'eq' or $type eq 'ne' ) {
+            # quote and force string context
+            $$val = "'$$val'";
+        }
+        else {
+            # force numeric context
+            $self->_unoverload_num($val);
+        }
+    }
+    else {
+        $$val = 'undef';
+    }
+
+    return;
+}
+
+
+sub _is_diag {
+    my( $self, $got, $type, $expect ) = @_;
+
+    $self->_diag_fmt( $type, $_ ) for \$got, \$expect;
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+         got: $got
+    expected: $expect
+DIAGNOSTIC
+
+}
+
+sub _isnt_diag {
+    my( $self, $got, $type ) = @_;
+
+    $self->_diag_fmt( $type, \$got );
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+         got: $got
+    expected: anything else
+DIAGNOSTIC
+}
+
+
+sub isnt_eq {
+    my( $self, $got, $dont_expect, $name ) = @_;
+    my $ctx = $self->ctx;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $dont_expect ) {
+        # undef only matches undef and nothing else
+        my $test = defined $got || defined $dont_expect;
+
+        $self->ok( $test, $name );
+        $self->_isnt_diag( $got, 'ne' ) unless $test;
+        $ctx->release;
+        return $test;
+    }
+
+    release $ctx, $self->cmp_ok( $got, 'ne', $dont_expect, $name );
+}
+
+sub isnt_num {
+    my( $self, $got, $dont_expect, $name ) = @_;
+    my $ctx = $self->ctx;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $dont_expect ) {
+        # undef only matches undef and nothing else
+        my $test = defined $got || defined $dont_expect;
+
+        $self->ok( $test, $name );
+        $self->_isnt_diag( $got, '!=' ) unless $test;
+        $ctx->release;
+        return $test;
+    }
+
+    release $ctx, $self->cmp_ok( $got, '!=', $dont_expect, $name );
+}
+
+
+sub like {
+    my( $self, $thing, $regex, $name ) = @_;
+    my $ctx = $self->ctx;
+
+    local $Level = $Level + 1;
+
+    release $ctx, $self->_regex_ok( $thing, $regex, '=~', $name );
+}
+
+sub unlike {
+    my( $self, $thing, $regex, $name ) = @_;
+    my $ctx = $self->ctx;
+
+    local $Level = $Level + 1;
+
+    release $ctx, $self->_regex_ok( $thing, $regex, '!~', $name );
+}
+
+
+my %numeric_cmps = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" );
+
+# Bad, these are not comparison operators. Should we include more?
+my %cmp_ok_bl = map { ( $_, 1 ) } ( "=", "+=", ".=", "x=", "^=", "|=", "||=", "&&=", "...");
+
+sub cmp_ok {
+    my( $self, $got, $type, $expect, $name ) = @_;
+    my $ctx = $self->ctx;
+
+    if ($cmp_ok_bl{$type}) {
+        $ctx->throw("$type is not a valid comparison operator in cmp_ok()");
+    }
+
+    my ($test, $succ);
+    my $error;
+    {
+        ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+        local( $@, $!, $SIG{__DIE__} );    # isolate eval
+
+        my($pack, $file, $line) = $ctx->trace->call();
+
+        # This is so that warnings come out at the caller's level
+        $succ = eval qq[
+#line $line "(eval in cmp_ok) $file"
+\$test = (\$got $type \$expect);
+1;
+];
+        $error = $@;
+    }
+    local $Level = $Level + 1;
+    my $ok = $self->ok( $test, $name );
+
+    # Treat overloaded objects as numbers if we're asked to do a
+    # numeric comparison.
+    my $unoverload
+      = $numeric_cmps{$type}
+      ? '_unoverload_num'
+      : '_unoverload_str';
+
+    $self->diag(<<"END") unless $succ;
+An error occurred while using $type:
+------------------------------------
+$error
+------------------------------------
+END
+
+    unless($ok) {
+        $self->$unoverload( \$got, \$expect );
+
+        if( $type =~ /^(eq|==)$/ ) {
+            $self->_is_diag( $got, $type, $expect );
+        }
+        elsif( $type =~ /^(ne|!=)$/ ) {
+            no warnings;
+            my $eq = ($got eq $expect || $got == $expect)
+                && (
+                    (defined($got) xor defined($expect))
+                 || (length($got)  !=  length($expect))
+                );
+            use warnings;
+
+            if ($eq) {
+                $self->_cmp_diag( $got, $type, $expect );
+            }
+            else {
+                $self->_isnt_diag( $got, $type );
+            }
+        }
+        else {
+            $self->_cmp_diag( $got, $type, $expect );
+        }
+    }
+    return release $ctx, $ok;
+}
+
+sub _cmp_diag {
+    my( $self, $got, $type, $expect ) = @_;
+
+    $got    = defined $got    ? "'$got'"    : 'undef';
+    $expect = defined $expect ? "'$expect'" : 'undef';
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+    $got
+        $type
+    $expect
+DIAGNOSTIC
+}
+
+sub _caller_context {
+    my $self = shift;
+
+    my( $pack, $file, $line ) = $self->caller(1);
+
+    my $code = '';
+    $code .= "#line $line $file\n" if defined $file and defined $line;
+
+    return $code;
+}
+
+
+sub BAIL_OUT {
+    my( $self, $reason ) = @_;
+
+    my $ctx = $self->ctx;
+
+    $self->{Bailed_Out} = 1;
+
+    $ctx->bail($reason);
+}
+
+
+{
+    no warnings 'once';
+    *BAILOUT = \&BAIL_OUT;
+}
+
+sub skip {
+    my( $self, $why, $name ) = @_;
+    $why ||= '';
+    $name = '' unless defined $name;
+    $self->_unoverload_str( \$why );
+
+    my $ctx = $self->ctx;
+
+    $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}[ $ctx->hub->count ] = {
+        'ok'      => 1,
+        actual_ok => 1,
+        name      => $name,
+        type      => 'skip',
+        reason    => $why,
+    } unless $self->{no_log_results};
+
+    $name =~ s|#|\\#|g;    # # in a name can confuse Test::Harness.
+    $name =~ s{\n}{\n# }sg;
+    $why =~ s{\n}{\n# }sg;
+
+    my $tctx = $ctx->snapshot;
+    $tctx->skip('', $why);
+
+    return release $ctx, 1;
+}
+
+
+sub todo_skip {
+    my( $self, $why ) = @_;
+    $why ||= '';
+
+    my $ctx = $self->ctx;
+
+    $ctx->hub->meta(__PACKAGE__, {})->{Test_Results}[ $ctx->hub->count ] = {
+        'ok'      => 1,
+        actual_ok => 0,
+        name      => '',
+        type      => 'todo_skip',
+        reason    => $why,
+    } unless $self->{no_log_results};
+
+    $why =~ s{\n}{\n# }sg;
+    my $tctx = $ctx->snapshot;
+    $tctx->send_event( 'Skip', todo => $why, todo_diag => 1, reason => $why, pass => 0);
+
+    return release $ctx, 1;
+}
+
+
+sub maybe_regex {
+    my( $self, $regex ) = @_;
+    my $usable_regex = undef;
+
+    return $usable_regex unless defined $regex;
+
+    my( $re, $opts );
+
+    # Check for qr/foo/
+    if( _is_qr($regex) ) {
+        $usable_regex = $regex;
+    }
+    # Check for '/foo/' or 'm,foo,'
+    elsif(( $re, $opts )        = $regex =~ m{^ /(.*)/ (\w*) $ }sx              or
+          ( undef, $re, $opts ) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx
+    )
+    {
+        $usable_regex = length $opts ? "(?$opts)$re" : $re;
+    }
+
+    return $usable_regex;
+}
+
+sub _is_qr {
+    my $regex = shift;
+
+    # is_regexp() checks for regexes in a robust manner, say if they're
+    # blessed.
+    return re::is_regexp($regex) if defined &re::is_regexp;
+    return ref $regex eq 'Regexp';
+}
+
+sub _regex_ok {
+    my( $self, $thing, $regex, $cmp, $name ) = @_;
+
+    my $ok           = 0;
+    my $usable_regex = $self->maybe_regex($regex);
+    unless( defined $usable_regex ) {
+        local $Level = $Level + 1;
+        $ok = $self->ok( 0, $name );
+        $self->diag("    '$regex' doesn't look much like a regex to me.");
+        return $ok;
+    }
+
+    {
+        my $test;
+        my $context = $self->_caller_context;
+
+        {
+            ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+            local( $@, $!, $SIG{__DIE__} );    # isolate eval
+
+            # No point in issuing an uninit warning, they'll see it in the diagnostics
+            no warnings 'uninitialized';
+
+            $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0};
+        }
+
+        $test = !$test if $cmp eq '!~';
+
+        local $Level = $Level + 1;
+        $ok = $self->ok( $test, $name );
+    }
+
+    unless($ok) {
+        $thing = defined $thing ? "'$thing'" : 'undef';
+        my $match = $cmp eq '=~' ? "doesn't match" : "matches";
+
+        local $Level = $Level + 1;
+        $self->diag( sprintf <<'DIAGNOSTIC', $thing, $match, $regex );
+                  %s
+    %13s '%s'
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+
+sub is_fh {
+    my $self     = shift;
+    my $maybe_fh = shift;
+    return 0 unless defined $maybe_fh;
+
+    return 1 if ref $maybe_fh  eq 'GLOB';    # its a glob ref
+    return 1 if ref \$maybe_fh eq 'GLOB';    # its a glob
+
+    return eval { $maybe_fh->isa("IO::Handle") } ||
+           eval { tied($maybe_fh)->can('TIEHANDLE') };
+}
+
+
+sub level {
+    my( $self, $level ) = @_;
+
+    if( defined $level ) {
+        $Level = $level;
+    }
+    return $Level;
+}
+
+
+sub use_numbers {
+    my( $self, $use_nums ) = @_;
+
+    my $ctx = $self->ctx;
+    my $format = $ctx->hub->format;
+    unless ($format && $format->can('no_numbers') && $format->can('set_no_numbers')) {
+        warn "The current formatter does not support 'use_numbers'" if $format;
+        return release $ctx, 0;
+    }
+
+    $format->set_no_numbers(!$use_nums) if defined $use_nums;
+
+    return release $ctx, $format->no_numbers ? 0 : 1;
+}
+
+BEGIN {
+    for my $method (qw(no_header no_diag)) {
+        my $set = "set_$method";
+        my $code = sub {
+            my( $self, $no ) = @_;
+
+            my $ctx = $self->ctx;
+            my $format = $ctx->hub->format;
+            unless ($format && $format->can($set)) {
+                warn "The current formatter does not support '$method'" if $format;
+                $ctx->release;
+                return
+            }
+
+            $format->$set($no) if defined $no;
+
+            return release $ctx, $format->$method ? 1 : 0;
+        };
+
+        no strict 'refs';    ## no critic
+        *$method = $code;
+    }
+}
+
+sub no_ending {
+    my( $self, $no ) = @_;
+
+    my $ctx = $self->ctx;
+
+    $ctx->hub->set_no_ending($no) if defined $no;
+
+    return release $ctx, $ctx->hub->no_ending;
+}
+
+sub diag {
+    my $self = shift;
+    return unless @_;
+
+    my $text = join '' => map {defined($_) ? $_ : 'undef'} @_;
+
+    if (Test2::API::test2_in_preload()) {
+        chomp($text);
+        $text =~ s/^/# /msg;
+        print STDERR $text, "\n";
+        return 0;
+    }
+
+    my $ctx = $self->ctx;
+    $ctx->diag($text);
+    $ctx->release;
+    return 0;
+}
+
+
+sub note {
+    my $self = shift;
+    return unless @_;
+
+    my $text = join '' => map {defined($_) ? $_ : 'undef'} @_;
+
+    if (Test2::API::test2_in_preload()) {
+        chomp($text);
+        $text =~ s/^/# /msg;
+        print STDOUT $text, "\n";
+        return 0;
+    }
+
+    my $ctx = $self->ctx;
+    $ctx->note($text);
+    $ctx->release;
+    return 0;
+}
+
+
+sub explain {
+    my $self = shift;
+
+    local ($@, $!);
+    require Data::Dumper;
+
+    return map {
+        ref $_
+          ? do {
+            my $dumper = Data::Dumper->new( [$_] );
+            $dumper->Indent(1)->Terse(1);
+            $dumper->Sortkeys(1) if $dumper->can("Sortkeys");
+            $dumper->Dump;
+          }
+          : $_
+    } @_;
+}
+
+
+sub output {
+    my( $self, $fh ) = @_;
+
+    my $ctx = $self->ctx;
+    my $format = $ctx->hub->format;
+    $ctx->release;
+    return unless $format && $format->isa('Test2::Formatter::TAP');
+
+    $format->handles->[Test2::Formatter::TAP::OUT_STD()] = $self->_new_fh($fh)
+        if defined $fh;
+
+    return $format->handles->[Test2::Formatter::TAP::OUT_STD()];
+}
+
+sub failure_output {
+    my( $self, $fh ) = @_;
+
+    my $ctx = $self->ctx;
+    my $format = $ctx->hub->format;
+    $ctx->release;
+    return unless $format && $format->isa('Test2::Formatter::TAP');
+
+    $format->handles->[Test2::Formatter::TAP::OUT_ERR()] = $self->_new_fh($fh)
+        if defined $fh;
+
+    return $format->handles->[Test2::Formatter::TAP::OUT_ERR()];
+}
+
+sub todo_output {
+    my( $self, $fh ) = @_;
+
+    my $ctx = $self->ctx;
+    my $format = $ctx->hub->format;
+    $ctx->release;
+    return unless $format && $format->isa('Test::Builder::Formatter');
+
+    $format->handles->[Test::Builder::Formatter::OUT_TODO()] = $self->_new_fh($fh)
+        if defined $fh;
+
+    return $format->handles->[Test::Builder::Formatter::OUT_TODO()];
+}
+
+sub _new_fh {
+    my $self = shift;
+    my($file_or_fh) = shift;
+
+    my $fh;
+    if( $self->is_fh($file_or_fh) ) {
+        $fh = $file_or_fh;
+    }
+    elsif( ref $file_or_fh eq 'SCALAR' ) {
+        # Scalar refs as filehandles was added in 5.8.
+        if( $] >= 5.008 ) {
+            open $fh, ">>", $file_or_fh
+              or $self->croak("Can't open scalar ref $file_or_fh: $!");
+        }
+        # Emulate scalar ref filehandles with a tie.
+        else {
+            $fh = Test::Builder::IO::Scalar->new($file_or_fh)
+              or $self->croak("Can't tie scalar ref $file_or_fh");
+        }
+    }
+    else {
+        open $fh, ">", $file_or_fh
+          or $self->croak("Can't open test output log $file_or_fh: $!");
+        _autoflush($fh);
+    }
+
+    return $fh;
+}
+
+sub _autoflush {
+    my($fh) = shift;
+    my $old_fh = select $fh;
+    $| = 1;
+    select $old_fh;
+
+    return;
+}
+
+
+sub reset_outputs {
+    my $self = shift;
+
+    my $ctx = $self->ctx;
+    my $format = $ctx->hub->format;
+    $ctx->release;
+    return unless $format && $format->isa('Test2::Formatter::TAP');
+    $format->set_handles([@{$self->{Orig_Handles}}]) if $self->{Orig_Handles};
+
+    return;
+}
+
+
+sub carp {
+    my $self = shift;
+    my $ctx = $self->ctx;
+    $ctx->alert(join "", @_);
+    $ctx->release;
+}
+
+sub croak {
+    my $self = shift;
+    my $ctx = $self->ctx;
+    $ctx->throw(join "", @_);
+    $ctx->release;
+}
+
+
+sub current_test {
+    my( $self, $num ) = @_;
+
+    my $ctx = $self->ctx;
+    my $hub = $ctx->hub;
+
+    if( defined $num ) {
+        $hub->set_count($num);
+
+        unless ($self->{no_log_results}) {
+            # If the test counter is being pushed forward fill in the details.
+            my $test_results = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results};
+            if ($num > @$test_results) {
+                my $start = @$test_results ? @$test_results : 0;
+                for ($start .. $num - 1) {
+                    $test_results->[$_] = {
+                        'ok'      => 1,
+                        actual_ok => undef,
+                        reason    => 'incrementing test number',
+                        type      => 'unknown',
+                        name      => undef
+                    };
+                }
+            }
+            # If backward, wipe history.  Its their funeral.
+            elsif ($num < @$test_results) {
+                $#{$test_results} = $num - 1;
+            }
+        }
+    }
+    return release $ctx, $hub->count;
+}
+
+
+sub is_passing {
+    my $self = shift;
+
+    my $ctx = $self->ctx;
+    my $hub = $ctx->hub;
+
+    if( @_ ) {
+        my ($bool) = @_;
+        $hub->set_failed(0) if $bool;
+        $hub->is_passing($bool);
+    }
+
+    return release $ctx, $hub->is_passing;
+}
+
+
+sub summary {
+    my($self) = shift;
+
+    return if $self->{no_log_results};
+
+    my $ctx = $self->ctx;
+    my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results};
+    $ctx->release;
+    return map { $_ ? $_->{'ok'} : () } @$data;
+}
+
+
+sub details {
+    my $self = shift;
+
+    return if $self->{no_log_results};
+
+    my $ctx = $self->ctx;
+    my $data = $ctx->hub->meta(__PACKAGE__, {})->{Test_Results};
+    $ctx->release;
+    return @$data;
+}
+
+
+sub find_TODO {
+    my( $self, $pack, $set, $new_value ) = @_;
+
+    my $ctx = $self->ctx;
+
+    $pack ||= $ctx->trace->package || $self->exported_to;
+    $ctx->release;
+
+    return unless $pack;
+
+    no strict 'refs';    ## no critic
+    no warnings 'once';
+    my $old_value = ${ $pack . '::TODO' };
+    $set and ${ $pack . '::TODO' } = $new_value;
+    return $old_value;
+}
+
+sub todo {
+    my( $self, $pack ) = @_;
+
+    local $Level = $Level + 1;
+    my $ctx = $self->ctx;
+    $ctx->release;
+
+    my $meta = $ctx->hub->meta(__PACKAGE__, {todo => []})->{todo};
+    return $meta->[-1]->[1] if $meta && @$meta;
+
+    $pack ||= $ctx->trace->package;
+
+    return unless $pack;
+
+    no strict 'refs';    ## no critic
+    no warnings 'once';
+    return ${ $pack . '::TODO' };
+}
+
+sub in_todo {
+    my $self = shift;
+
+    local $Level = $Level + 1;
+    my $ctx = $self->ctx;
+    $ctx->release;
+
+    my $meta = $ctx->hub->meta(__PACKAGE__, {todo => []})->{todo};
+    return 1 if $meta && @$meta;
+
+    my $pack = $ctx->trace->package || return 0;
+
+    no strict 'refs';    ## no critic
+    no warnings 'once';
+    my $todo = ${ $pack . '::TODO' };
+
+    return 0 unless defined $todo;
+    return 0 if "$todo" eq '';
+    return 1;
+}
+
+sub todo_start {
+    my $self = shift;
+    my $message = @_ ? shift : '';
+
+    my $ctx = $self->ctx;
+
+    my $hub = $ctx->hub;
+    my $filter = $hub->pre_filter(sub {
+        my ($active_hub, $e) = @_;
+
+        # Turn a diag into a todo diag
+        return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag';
+
+        # Set todo on ok's
+        if ($hub == $active_hub && $e->isa('Test2::Event::Ok')) {
+            $e->set_todo($message);
+            $e->set_effective_pass(1);
+
+            if (my $result = $e->get_meta(__PACKAGE__)) {
+                $result->{reason} ||= $message;
+                $result->{type}   ||= 'todo';
+                $result->{ok}       = 1;
+            }
+        }
+
+        return $e;
+    }, inherit => 1);
+
+    push @{$ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}} => [$filter, $message];
+
+    $ctx->release;
+
+    return;
+}
+
+sub todo_end {
+    my $self = shift;
+
+    my $ctx = $self->ctx;
+
+    my $set = pop @{$ctx->hub->meta(__PACKAGE__, {todo => []})->{todo}};
+
+    $ctx->throw('todo_end() called without todo_start()') unless $set;
+
+    $ctx->hub->pre_unfilter($set->[0]);
+
+    $ctx->release;
+
+    return;
+}
+
+
+sub caller {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
+    my( $self ) = @_;
+
+    my $ctx = $self->ctx;
+
+    my $trace = $ctx->trace;
+    $ctx->release;
+    return wantarray ? $trace->call : $trace->package;
+}
+
+
+sub _try {
+    my( $self, $code, %opts ) = @_;
+
+    my $error;
+    my $return;
+    {
+        local $!;               # eval can mess up $!
+        local $@;               # don't set $@ in the test
+        local $SIG{__DIE__};    # don't trip an outside DIE handler.
+        $return = eval { $code->() };
+        $error = $@;
+    }
+
+    die $error if $error and $opts{die_on_fail};
+
+    return wantarray ? ( $return, $error ) : $return;
+}
+
+sub _ending {
+    my $self = shift;
+    my ($ctx, $real_exit_code, $new) = @_;
+
+    unless ($ctx) {
+        my $octx = $self->ctx;
+        $ctx = $octx->snapshot;
+        $octx->release;
+    }
+
+    return if $ctx->hub->no_ending;
+    return if $ctx->hub->meta(__PACKAGE__, {})->{Ending}++;
+
+    # Don't bother with an ending if this is a forked copy.  Only the parent
+    # should do the ending.
+    return unless $self->{Original_Pid} == $$;
+
+    my $hub = $ctx->hub;
+    return if $hub->bailed_out;
+
+    my $plan  = $hub->plan;
+    my $count = $hub->count;
+    my $failed = $hub->failed;
+    my $passed = $hub->is_passing;
+    return unless $plan || $count || $failed;
+
+    # Ran tests but never declared a plan or hit done_testing
+    if( !$hub->plan and $hub->count ) {
+        $self->diag("Tests were run but no plan was declared and done_testing() was not seen.");
+
+        if($real_exit_code) {
+            $self->diag(<<"FAIL");
+Looks like your test exited with $real_exit_code just after $count.
+FAIL
+            $$new ||= $real_exit_code;
+            return;
+        }
+
+        # But if the tests ran, handle exit code.
+        if($failed > 0) {
+            my $exit_code = $failed <= 254 ? $failed : 254;
+            $$new ||= $exit_code;
+            return;
+        }
+
+        $$new ||= 254;
+        return;
+    }
+
+    if ($real_exit_code && !$count) {
+        $self->diag("Looks like your test exited with $real_exit_code before it could output anything.");
+        $$new ||= $real_exit_code;
+        return;
+    }
+
+    return if $plan && "$plan" eq 'SKIP';
+
+    if (!$count) {
+        $self->diag('No tests run!');
+        $$new ||= 255;
+        return;
+    }
+
+    if ($real_exit_code) {
+        $self->diag(<<"FAIL");
+Looks like your test exited with $real_exit_code just after $count.
+FAIL
+        $$new ||= $real_exit_code;
+        return;
+    }
+
+    if ($plan eq 'NO PLAN') {
+        $ctx->plan( $count );
+        $plan = $hub->plan;
+    }
+
+    # Figure out if we passed or failed and print helpful messages.
+    my $num_extra = $count - $plan;
+
+    if ($num_extra != 0) {
+        my $s = $plan == 1 ? '' : 's';
+        $self->diag(<<"FAIL");
+Looks like you planned $plan test$s but ran $count.
+FAIL
+    }
+
+    if ($failed) {
+        my $s = $failed == 1 ? '' : 's';
+
+        my $qualifier = $num_extra == 0 ? '' : ' run';
+
+        $self->diag(<<"FAIL");
+Looks like you failed $failed test$s of $count$qualifier.
+FAIL
+    }
+
+    if (!$passed && !$failed && $count && !$num_extra) {
+        $ctx->diag(<<"FAIL");
+All assertions passed, but errors were encountered.
+FAIL
+    }
+
+    my $exit_code = 0;
+    if ($failed) {
+        $exit_code = $failed <= 254 ? $failed : 254;
+    }
+    elsif ($num_extra != 0) {
+        $exit_code = 255;
+    }
+    elsif (!$passed) {
+        $exit_code = 255;
+    }
+
+    $$new ||= $exit_code;
+    return;
+}
+
+# Some things used this even though it was private... I am looking at you
+# Test::Builder::Prefix...
+sub _print_comment {
+    my( $self, $fh, @msgs ) = @_;
+
+    return if $self->no_diag;
+    return unless @msgs;
+
+    # Prevent printing headers when compiling (i.e. -c)
+    return if $^C;
+
+    # Smash args together like print does.
+    # Convert undef to 'undef' so its readable.
+    my $msg = join '', map { defined($_) ? $_ : 'undef' } @msgs;
+
+    # Escape the beginning, _print will take care of the rest.
+    $msg =~ s/^/# /;
+
+    local( $\, $", $, ) = ( undef, ' ', '' );
+    print $fh $msg;
+
+    return 0;
+}
+
+# This is used by Test::SharedFork to turn on IPC after the fact. Not
+# documenting because I do not want it used. The method name is borrowed from
+# Test::Builder 2
+# Once Test2 stuff goes stable this method will be removed and Test::SharedFork
+# will be made smarter.
+sub coordinate_forks {
+    my $self = shift;
+
+    {
+        local ($@, $!);
+        require Test2::IPC;
+    }
+    Test2::IPC->import;
+    Test2::API::test2_ipc_enable_polling();
+    Test2::API::test2_load();
+    my $ipc = Test2::IPC::apply_ipc($self->{Stack});
+    $ipc->set_no_fatal(1);
+    Test2::API::test2_no_wait(1);
+    Test2::API::test2_ipc_enable_shm();
+}
+
+sub no_log_results { $_[0]->{no_log_results} = 1 }
+
+1;
+
+__END__
+
+
+
+package Test::Simple;
+
+use 5.006;
+
+use strict;
+
+our $VERSION = '1.302133';
+
+use Test::Builder::Module;
+our @ISA    = qw(Test::Builder::Module);
+our @EXPORT = qw(ok);
+
+my $CLASS = __PACKAGE__;
+
+
+sub ok ($;$) {    ## no critic (Subroutines::ProhibitSubroutinePrototypes)
+    return $CLASS->builder->ok(@_);
+}
+
+
+1;
+package Test::Harness;
+
+use 5.006;
+
+use strict;
+use warnings;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => ( $^O eq 'VMS' );
+
+use TAP::Harness                     ();
+use TAP::Parser::Aggregator          ();
+use TAP::Parser::Source              ();
+use TAP::Parser::SourceHandler::Perl ();
+
+use Text::ParseWords qw(shellwords);
+
+use Config;
+use base 'Exporter';
+
+# $ML $Last_ML_Print
+
+BEGIN {
+    eval q{use Time::HiRes 'time'};
+    our $has_time_hires = !$@;
+}
+
+
+our $VERSION = '3.42';
+
+# Backwards compatibility for exportable variable names.
+*verbose  = *Verbose;
+*switches = *Switches;
+*debug    = *Debug;
+
+$ENV{HARNESS_ACTIVE}  = 1;
+$ENV{HARNESS_VERSION} = $VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{HARNESS_ACTIVE};
+    delete $ENV{HARNESS_VERSION};
+}
+
+our @EXPORT    = qw(&runtests);
+our @EXPORT_OK = qw(&execute_tests $verbose $switches);
+
+our $Verbose = $ENV{HARNESS_VERBOSE} || 0;
+our $Debug   = $ENV{HARNESS_DEBUG}   || 0;
+our $Switches = '-w';
+our $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
+$Columns--;    # Some shells have trouble with a full line of text.
+our $Timer      = $ENV{HARNESS_TIMER}       || 0;
+our $Color      = $ENV{HARNESS_COLOR}       || 0;
+our $IgnoreExit = $ENV{HARNESS_IGNORE_EXIT} || 0;
+
+
+sub _has_taint {
+    my $test = shift;
+    return TAP::Parser::SourceHandler::Perl->get_taint(
+        TAP::Parser::Source->shebang($test) );
+}
+
+sub _aggregate {
+    my ( $harness, $aggregate, @tests ) = @_;
+
+    # Don't propagate to our children
+    local $ENV{HARNESS_OPTIONS};
+
+    _apply_extra_INC($harness);
+    _aggregate_tests( $harness, $aggregate, @tests );
+}
+
+# Make sure the child sees all the extra junk in @INC
+sub _apply_extra_INC {
+    my $harness = shift;
+
+    $harness->callback(
+        parser_args => sub {
+            my ( $args, $test ) = @_;
+            push @{ $args->{switches} }, map {"-I$_"} _filtered_inc();
+        }
+    );
+}
+
+sub _aggregate_tests {
+    my ( $harness, $aggregate, @tests ) = @_;
+    $aggregate->start();
+    $harness->aggregate_tests( $aggregate, @tests );
+    $aggregate->stop();
+
+}
+
+sub runtests {
+    my @tests = @_;
+
+    # shield against -l
+    local ( $\, $, );
+
+    my $harness   = _new_harness();
+    my $aggregate = TAP::Parser::Aggregator->new();
+
+    local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC};
+    _aggregate( $harness, $aggregate, @tests );
+
+    $harness->formatter->summary($aggregate);
+
+    my $total  = $aggregate->total;
+    my $passed = $aggregate->passed;
+    my $failed = $aggregate->failed;
+
+    my @parsers = $aggregate->parsers;
+
+    my $num_bad = 0;
+    for my $parser (@parsers) {
+        $num_bad++ if $parser->has_problems;
+    }
+
+    die(sprintf(
+            "Failed %d/%d test programs. %d/%d subtests failed.\n",
+            $num_bad, scalar @parsers, $failed, $total
+        )
+    ) if $num_bad;
+
+    return $total && $total == $passed;
+}
+
+sub _canon {
+    my @list   = sort { $a <=> $b } @_;
+    my @ranges = ();
+    my $count  = scalar @list;
+    my $pos    = 0;
+
+    while ( $pos < $count ) {
+        my $end = $pos + 1;
+        $end++ while $end < $count && $list[$end] <= $list[ $end - 1 ] + 1;
+        push @ranges, ( $end == $pos + 1 )
+          ? $list[$pos]
+          : join( '-', $list[$pos], $list[ $end - 1 ] );
+        $pos = $end;
+    }
+
+    return join( ' ', @ranges );
+}
+
+sub _new_harness {
+    my $sub_args = shift || {};
+
+    my ( @lib, @switches );
+    my @opt = map { shellwords($_) } grep { defined } $Switches, $ENV{HARNESS_PERL_SWITCHES};
+    while ( my $opt = shift @opt ) {
+        if ( $opt =~ /^ -I (.*) $ /x ) {
+            push @lib, length($1) ? $1 : shift @opt;
+        }
+        else {
+            push @switches, $opt;
+        }
+    }
+
+    # Do things the old way on VMS...
+    push @lib, _filtered_inc() if IS_VMS;
+
+    # If $Verbose isn't numeric default to 1. This helps core.
+    my $verbosity = ( $Verbose ? ( $Verbose !~ /\d/ ) ? 1 : $Verbose : 0 );
+
+    my $args = {
+        timer       => $Timer,
+        directives  => our $Directives,
+        lib         => \@lib,
+        switches    => \@switches,
+        color       => $Color,
+        verbosity   => $verbosity,
+        ignore_exit => $IgnoreExit,
+    };
+
+    $args->{stdout} = $sub_args->{out}
+      if exists $sub_args->{out};
+
+    my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
+    if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
+        for my $opt ( split /:/, $env_opt ) {
+            if ( $opt =~ /^j(\d*)$/ ) {
+                $args->{jobs} = $1 || 9;
+            }
+            elsif ( $opt eq 'c' ) {
+                $args->{color} = 1;
+            }
+            elsif ( $opt =~ m/^f(.*)$/ ) {
+                my $fmt = $1;
+                $fmt =~ s/-/::/g;
+                $args->{formatter_class} = $fmt;
+            }
+            elsif ( $opt =~ m/^a(.*)$/ ) {
+                my $archive = $1;
+                $class = "TAP::Harness::Archive";
+                $args->{archive} = $archive;
+            }
+            else {
+                die "Unknown HARNESS_OPTIONS item: $opt\n";
+            }
+        }
+    }
+
+    return TAP::Harness->_construct( $class, $args );
+}
+
+# Get the parts of @INC which are changed from the stock list AND
+# preserve reordering of stock directories.
+sub _filtered_inc {
+    my @inc = grep { !ref } @INC;    #28567
+
+    if (IS_VMS) {
+
+        # VMS has a 255-byte limit on the length of %ENV entries, so
+        # toss the ones that involve perl_root, the install location
+        @inc = grep !/perl_root/i, @inc;
+
+    }
+    elsif (IS_WIN32) {
+
+        # Lose any trailing backslashes in the Win32 paths
+        s/[\\\/]+$// for @inc;
+    }
+
+    my @default_inc = _default_inc();
+
+    my @new_inc;
+    my %seen;
+    for my $dir (@inc) {
+        next if $seen{$dir}++;
+
+        if ( $dir eq ( $default_inc[0] || '' ) ) {
+            shift @default_inc;
+        }
+        else {
+            push @new_inc, $dir;
+        }
+
+        shift @default_inc while @default_inc and $seen{ $default_inc[0] };
+    }
+
+    return @new_inc;
+}
+
+{
+
+    # Cache this to avoid repeatedly shelling out to Perl.
+    my @inc;
+
+    sub _default_inc {
+        return @inc if @inc;
+
+        local $ENV{PERL5LIB};
+        local $ENV{PERLLIB};
+
+        my $perl = $ENV{HARNESS_PERL} || $^X;
+
+        # Avoid using -l for the benefit of Perl 6
+        chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` );
+        return @inc;
+    }
+}
+
+sub _check_sequence {
+    my @list = @_;
+    my $prev;
+    while ( my $next = shift @list ) {
+        return if defined $prev && $next <= $prev;
+        $prev = $next;
+    }
+
+    return 1;
+}
+
+sub execute_tests {
+    my %args = @_;
+
+    my $harness   = _new_harness( \%args );
+    my $aggregate = TAP::Parser::Aggregator->new();
+
+    my %tot = (
+        bonus       => 0,
+        max         => 0,
+        ok          => 0,
+        bad         => 0,
+        good        => 0,
+        files       => 0,
+        tests       => 0,
+        sub_skipped => 0,
+        todo        => 0,
+        skipped     => 0,
+        bench       => undef,
+    );
+
+    # Install a callback so we get to see any plans the
+    # harness executes.
+    $harness->callback(
+        made_parser => sub {
+            my $parser = shift;
+            $parser->callback(
+                plan => sub {
+                    my $plan = shift;
+                    if ( $plan->directive eq 'SKIP' ) {
+                        $tot{skipped}++;
+                    }
+                }
+            );
+        }
+    );
+
+    local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC};
+    _aggregate( $harness, $aggregate, @{ $args{tests} } );
+
+    $tot{bench} = $aggregate->elapsed;
+    my @tests = $aggregate->descriptions;
+
+    # TODO: Work out the circumstances under which the files
+    # and tests totals can differ.
+    $tot{files} = $tot{tests} = scalar @tests;
+
+    my %failedtests = ();
+    my %todo_passed = ();
+
+    for my $test (@tests) {
+        my ($parser) = $aggregate->parsers($test);
+
+        my @failed = $parser->failed;
+
+        my $wstat         = $parser->wait;
+        my $estat         = $parser->exit;
+        my $planned       = $parser->tests_planned;
+        my @errors        = $parser->parse_errors;
+        my $passed        = $parser->passed;
+        my $actual_passed = $parser->actual_passed;
+
+        my $ok_seq = _check_sequence( $parser->actual_passed );
+
+        # Duplicate exit, wait status semantics of old version
+        $estat ||= '' unless $wstat;
+        $wstat ||= '';
+
+        $tot{max} += ( $planned || 0 );
+        $tot{bonus} += $parser->todo_passed;
+        $tot{ok} += $passed > $actual_passed ? $passed : $actual_passed;
+        $tot{sub_skipped} += $parser->skipped;
+        $tot{todo}        += $parser->todo;
+
+        if ( @failed || $estat || @errors ) {
+            $tot{bad}++;
+
+            my $huh_planned = $planned ? undef : '??';
+            my $huh_errors  = $ok_seq  ? undef : '??';
+
+            $failedtests{$test} = {
+                'canon' => $huh_planned
+                  || $huh_errors
+                  || _canon(@failed)
+                  || '??',
+                'estat'  => $estat,
+                'failed' => $huh_planned
+                  || $huh_errors
+                  || scalar @failed,
+                'max' => $huh_planned || $planned,
+                'name'  => $test,
+                'wstat' => $wstat
+            };
+        }
+        else {
+            $tot{good}++;
+        }
+
+        my @todo = $parser->todo_passed;
+        if (@todo) {
+            $todo_passed{$test} = {
+                'canon'  => _canon(@todo),
+                'estat'  => $estat,
+                'failed' => scalar @todo,
+                'max'    => scalar $parser->todo,
+                'name'   => $test,
+                'wstat'  => $wstat
+            };
+        }
+    }
+
+    return ( \%tot, \%failedtests, \%todo_passed );
+}
+
+
+1;
+__END__
+
+use strict;
+
+package Test::Tester;
+
+BEGIN
+{
+	if (*Test::Builder::new{CODE})
+	{
+		warn "You should load Test::Tester before Test::Builder (or anything that loads Test::Builder)"
+	}
+}
+
+use Test::Builder;
+use Test::Tester::CaptureRunner;
+use Test::Tester::Delegate;
+
+require Exporter;
+
+use vars qw( @ISA @EXPORT );
+
+our $VERSION = '1.302133';
+
+@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
+@ISA = qw( Exporter );
+
+my $Test = Test::Builder->new;
+my $Capture = Test::Tester::Capture->new;
+my $Delegator = Test::Tester::Delegate->new;
+$Delegator->{Object} = $Test;
+
+my $runner = Test::Tester::CaptureRunner->new;
+
+my $want_space = $ENV{TESTTESTERSPACE};
+
+sub show_space
+{
+	$want_space = 1;
+}
+
+my $colour = '';
+my $reset = '';
+
+if (my $want_colour = $ENV{TESTTESTERCOLOUR} || $ENV{TESTTESTERCOLOR})
+{
+	if (eval { require Term::ANSIColor; 1 })
+	{
+		eval { require Win32::Console::ANSI } if 'MSWin32' eq $^O;  # support color on windows platforms
+		my ($f, $b) = split(",", $want_colour);
+		$colour = Term::ANSIColor::color($f).Term::ANSIColor::color("on_$b");
+		$reset = Term::ANSIColor::color("reset");
+	}
+
+}
+
+sub new_new
+{
+	return $Delegator;
+}
+
+sub capture
+{
+	return Test::Tester::Capture->new;
+}
+
+sub fh
+{
+	# experiment with capturing output, I don't like it
+	$runner = Test::Tester::FHRunner->new;
+
+	return $Test;
+}
+
+sub find_run_tests
+{
+	my $d = 1;
+	my $found = 0;
+	while ((not $found) and (my ($sub) = (caller($d))[3]) )
+	{
+#		print "$d: $sub\n";
+		$found = ($sub eq "Test::Tester::run_tests");
+		$d++;
+	}
+
+#	die "Didn't find 'run_tests' in caller stack" unless $found;
+	return $d;
+}
+
+sub run_tests
+{
+	local($Delegator->{Object}) = $Capture;
+
+	$runner->run_tests(@_);
+
+	return ($runner->get_premature, $runner->get_results);
+}
+
+sub check_test
+{
+	my $test = shift;
+	my $expect = shift;
+	my $name = shift;
+	$name = "" unless defined($name);
+
+	@_ = ($test, [$expect], $name);
+	goto &check_tests;
+}
+
+sub check_tests
+{
+	my $test = shift;
+	my $expects = shift;
+	my $name = shift;
+	$name = "" unless defined($name);
+
+	my ($prem, @results) = eval { run_tests($test, $name) };
+
+	$Test->ok(! $@, "Test '$name' completed") || $Test->diag($@);
+	$Test->ok(! length($prem), "Test '$name' no premature diagnostication") ||
+		$Test->diag("Before any testing anything, your tests said\n$prem");
+
+	local $Test::Builder::Level = $Test::Builder::Level + 1;
+	cmp_results(\@results, $expects, $name);
+	return ($prem, @results);
+}
+
+sub cmp_field
+{
+	my ($result, $expect, $field, $desc) = @_;
+
+	if (defined $expect->{$field})
+	{
+		$Test->is_eq($result->{$field}, $expect->{$field},
+			"$desc compare $field");
+	}
+}
+
+sub cmp_result
+{
+	my ($result, $expect, $name) = @_;
+
+	my $sub_name = $result->{name};
+	$sub_name = "" unless defined($name);
+
+	my $desc = "subtest '$sub_name' of '$name'";
+
+	{
+		local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+		cmp_field($result, $expect, "ok", $desc);
+
+		cmp_field($result, $expect, "actual_ok", $desc);
+
+		cmp_field($result, $expect, "type", $desc);
+
+		cmp_field($result, $expect, "reason", $desc);
+
+		cmp_field($result, $expect, "name", $desc);
+	}
+
+	# if we got no depth then default to 1
+	my $depth = 1;
+	if (exists $expect->{depth})
+	{
+		$depth = $expect->{depth};
+	}
+
+	# if depth was explicitly undef then don't test it
+	if (defined $depth)
+	{
+		$Test->is_eq($result->{depth}, $depth, "checking depth") ||
+			$Test->diag('You need to change $Test::Builder::Level');
+	}
+
+	if (defined(my $exp = $expect->{diag}))
+	{
+
+        my $got = '';
+        if (ref $exp eq 'Regexp') {
+
+            if (not $Test->like($result->{diag}, $exp,
+                "subtest '$sub_name' of '$name' compare diag"))
+            {
+                $got = $result->{diag};
+            }
+
+        } else {
+
+            # if there actually is some diag then put a \n on the end if it's not
+            # there already
+            $exp .= "\n" if (length($exp) and $exp !~ /\n$/);
+
+            if (not $Test->ok($result->{diag} eq $exp,
+    			"subtest '$sub_name' of '$name' compare diag"))
+            {
+                $got = $result->{diag};
+            }
+        }
+
+        if ($got) {
+    		my $glen = length($got);
+    		my $elen = length($exp);
+    		for ($got, $exp)
+    		{
+    			my @lines = split("\n", $_);
+     			$_ = join("\n", map {
+    				if ($want_space)
+    				{
+    					$_ = $colour.escape($_).$reset;
+    				}
+    				else
+    				{
+    					"'$colour$_$reset'"
+    				}
+    			} @lines);
+    		}
+
+        	$Test->diag(<<EOM);
+Got diag ($glen bytes):
+$got
+Expected diag ($elen bytes):
+$exp
+EOM
+        }
+	}
+}
+
+sub escape
+{
+	my $str = shift;
+	my $res = '';
+	for my $char (split("", $str))
+	{
+		my $c = ord($char);
+		if(($c>32 and $c<125) or $c == 10)
+		{
+			$res .= $char;
+		}
+		else
+		{
+			$res .= sprintf('\x{%x}', $c)
+		}
+	}
+	return $res;
+}
+
+sub cmp_results
+{
+	my ($results, $expects, $name) = @_;
+
+	$Test->is_num(scalar @$results, scalar @$expects, "Test '$name' result count");
+
+	for (my $i = 0; $i < @$expects; $i++)
+	{
+		my $expect = $expects->[$i];
+		my $result = $results->[$i];
+
+		local $Test::Builder::Level = $Test::Builder::Level + 1;
+		cmp_result($result, $expect, $name);
+	}
+}
+
+######## nicked from Test::More
+sub plan {
+	my(@plan) = @_;
+
+	my $caller = caller;
+
+	$Test->exported_to($caller);
+
+	my @imports = ();
+	foreach my $idx (0..$#plan) {
+		if( $plan[$idx] eq 'import' ) {
+			my($tag, $imports) = splice @plan, $idx, 2;
+			@imports = @$imports;
+			last;
+		}
+	}
+
+	$Test->plan(@plan);
+
+	__PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
+}
+
+sub import {
+	my($class) = shift;
+		{
+			no warnings 'redefine';
+			*Test::Builder::new = \&new_new;
+		}
+	goto &plan;
+}
+
+sub _export_to_level
+{
+        my $pkg = shift;
+	my $level = shift;
+	(undef) = shift;	# redundant arg
+	my $callpkg = caller($level);
+	$pkg->export($callpkg, @_);
+}
+
+
+############
+
+1;
+
+__END__
+
+package Test::use::ok;
+use 5.005;
+
+our $VERSION = '1.302133';
+
+
+__END__
+
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2018 -- leonerd@leonerd.org.uk
+
+package Test::Future::Deferred;
+
+use strict;
+use warnings;
+use base qw( Future );
+
+our $VERSION = '0.39';
+
+
+my @deferrals;
+
+sub await
+{
+   while( my $d = shift @deferrals ) {
+      my ( $f, $method, @args ) = @$d;
+      $f->$method( @args );
+   }
+   # TODO: detect if still not done with no more deferrals
+}
+
+
+
+sub done_later
+{
+   my $self = ref $_[0] ? shift : shift->new;
+   push @deferrals, [ $self, done => @_ ];
+   return $self;
+}
+
+
+sub fail_later
+{
+   my $self = ref $_[0] ? shift : shift->new;
+   push @deferrals, [ $self, fail => @_ ];
+   return $self;
+}
+
+
+0x55AA;
+package Test::Builder::Module;
+
+use strict;
+
+use Test::Builder;
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our $VERSION = '1.302133';
+
+
+
+sub import {
+    my($class) = shift;
+
+    Test2::API::test2_load() unless Test2::API::test2_in_preload();
+
+    # Don't run all this when loading ourself.
+    return 1 if $class eq 'Test::Builder::Module';
+
+    my $test = $class->builder;
+
+    my $caller = caller;
+
+    $test->exported_to($caller);
+
+    $class->import_extra( \@_ );
+    my(@imports) = $class->_strip_imports( \@_ );
+
+    $test->plan(@_);
+
+    local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+    $class->Exporter::import(@imports);
+}
+
+sub _strip_imports {
+    my $class = shift;
+    my $list  = shift;
+
+    my @imports = ();
+    my @other   = ();
+    my $idx     = 0;
+    while( $idx <= $#{$list} ) {
+        my $item = $list->[$idx];
+
+        if( defined $item and $item eq 'import' ) {
+            push @imports, @{ $list->[ $idx + 1 ] };
+            $idx++;
+        }
+        else {
+            push @other, $item;
+        }
+
+        $idx++;
+    }
+
+    @$list = @other;
+
+    return @imports;
+}
+
+
+sub import_extra { }
+
+
+sub builder {
+    return Test::Builder->new;
+}
+
+1;
+package Test::Builder::TodoDiag;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
+
+sub diagnostics { 0 }
+
+sub facet_data {
+    my $self = shift;
+    my $out = $self->SUPER::facet_data();
+    $out->{info}->[0]->{debug} = 0;
+    return $out;
+}
+
+1;
+
+__END__
+
+package Test::Builder::Tester;
+
+use strict;
+our $VERSION = '1.302133';
+
+use Test::Builder;
+use Symbol;
+use Carp;
+
+
+####
+# set up testing
+####
+
+my $t = Test::Builder->new;
+
+###
+# make us an exporter
+###
+
+use Exporter;
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(test_out test_err test_fail test_diag test_test line_num);
+
+sub import {
+    my $class = shift;
+    my(@plan) = @_;
+
+    my $caller = caller;
+
+    $t->exported_to($caller);
+    $t->plan(@plan);
+
+    my @imports = ();
+    foreach my $idx ( 0 .. $#plan ) {
+        if( $plan[$idx] eq 'import' ) {
+            @imports = @{ $plan[ $idx + 1 ] };
+            last;
+        }
+    }
+
+    __PACKAGE__->export_to_level( 1, __PACKAGE__, @imports );
+}
+
+###
+# set up file handles
+###
+
+# create some private file handles
+my $output_handle = gensym;
+my $error_handle  = gensym;
+
+# and tie them to this package
+my $out = tie *$output_handle, "Test::Builder::Tester::Tie", "STDOUT";
+my $err = tie *$error_handle,  "Test::Builder::Tester::Tie", "STDERR";
+
+####
+# exported functions
+####
+
+# for remembering that we're testing and where we're testing at
+my $testing = 0;
+my $testing_num;
+my $original_is_passing;
+
+# remembering where the file handles were originally connected
+my $original_output_handle;
+my $original_failure_handle;
+my $original_todo_handle;
+my $original_formatter;
+
+my $original_harness_env;
+
+# function that starts testing and redirects the filehandles for now
+sub _start_testing {
+    # Hack for things that conditioned on Test-Stream being loaded
+    $INC{'Test/Stream.pm'} ||= 'fake' if $INC{'Test/Moose/More.pm'};
+    # even if we're running under Test::Harness pretend we're not
+    # for now.  This needed so Test::Builder doesn't add extra spaces
+    $original_harness_env = $ENV{HARNESS_ACTIVE} || 0;
+    $ENV{HARNESS_ACTIVE} = 0;
+
+    my $hub = $t->{Hub} || ($t->{Stack} ? $t->{Stack}->top : Test2::API::test2_stack->top);
+    $original_formatter = $hub->format;
+    unless ($original_formatter && $original_formatter->isa('Test::Builder::Formatter')) {
+        my $fmt = Test::Builder::Formatter->new;
+        $hub->format($fmt);
+    }
+
+    # remember what the handles were set to
+    $original_output_handle  = $t->output();
+    $original_failure_handle = $t->failure_output();
+    $original_todo_handle    = $t->todo_output();
+
+    # switch out to our own handles
+    $t->output($output_handle);
+    $t->failure_output($error_handle);
+    $t->todo_output($output_handle);
+
+    # clear the expected list
+    $out->reset();
+    $err->reset();
+
+    # remember that we're testing
+    $testing     = 1;
+    $testing_num = $t->current_test;
+    $t->current_test(0);
+    $original_is_passing  = $t->is_passing;
+    $t->is_passing(1);
+
+    # look, we shouldn't do the ending stuff
+    $t->no_ending(1);
+}
+
+
+sub test_out {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    $out->expect(@_);
+}
+
+sub test_err {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    $err->expect(@_);
+}
+
+
+sub test_fail {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    # work out what line we should be on
+    my( $package, $filename, $line ) = caller;
+    $line = $line + ( shift() || 0 );    # prevent warnings
+
+    # expect that on stderr
+    $err->expect("#     Failed test ($filename at line $line)");
+}
+
+
+sub test_diag {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    # expect the same thing, but prepended with "#     "
+    local $_;
+    $err->expect( map { "# $_" } @_ );
+}
+
+
+sub test_test {
+    # END the hack
+    delete $INC{'Test/Stream.pm'} if $INC{'Test/Stream.pm'} && $INC{'Test/Stream.pm'} eq 'fake';
+    # decode the arguments as described in the pod
+    my $mess;
+    my %args;
+    if( @_ == 1 ) {
+        $mess = shift
+    }
+    else {
+        %args = @_;
+        $mess = $args{name} if exists( $args{name} );
+        $mess = $args{title} if exists( $args{title} );
+        $mess = $args{label} if exists( $args{label} );
+    }
+
+    # er, are we testing?
+    croak "Not testing.  You must declare output with a test function first."
+      unless $testing;
+
+
+    my $hub = $t->{Hub} || Test2::API::test2_stack->top;
+    $hub->format($original_formatter);
+
+    # okay, reconnect the test suite back to the saved handles
+    $t->output($original_output_handle);
+    $t->failure_output($original_failure_handle);
+    $t->todo_output($original_todo_handle);
+
+    # restore the test no, etc, back to the original point
+    $t->current_test($testing_num);
+    $testing = 0;
+    $t->is_passing($original_is_passing);
+
+    # re-enable the original setting of the harness
+    $ENV{HARNESS_ACTIVE} = $original_harness_env;
+
+    # check the output we've stashed
+    unless( $t->ok( ( $args{skip_out} || $out->check ) &&
+                    ( $args{skip_err} || $err->check ), $mess ) 
+    )
+    {
+        # print out the diagnostic information about why this
+        # test failed
+
+        local $_;
+
+        $t->diag( map { "$_\n" } $out->complaint )
+          unless $args{skip_out} || $out->check;
+
+        $t->diag( map { "$_\n" } $err->complaint )
+          unless $args{skip_err} || $err->check;
+    }
+}
+
+
+sub line_num {
+    my( $package, $filename, $line ) = caller;
+    return $line + ( shift() || 0 );    # prevent warnings
+}
+
+
+my $color;
+
+sub color {
+    $color = shift if @_;
+    $color;
+}
+
+
+1;
+
+####################################################################
+# Helper class that is used to remember expected and received data
+
+package Test::Builder::Tester::Tie;
+
+##
+# add line(s) to be expected
+
+sub expect {
+    my $self = shift;
+
+    my @checks = @_;
+    foreach my $check (@checks) {
+        $check = $self->_account_for_subtest($check);
+        $check = $self->_translate_Failed_check($check);
+        push @{ $self->{wanted} }, ref $check ? $check : "$check\n";
+    }
+}
+
+sub _account_for_subtest {
+    my( $self, $check ) = @_;
+
+    my $hub = $t->{Stack}->top;
+    my $nesting = $hub->isa('Test2::Hub::Subtest') ? $hub->nested : 0;
+    return ref($check) ? $check : ('    ' x $nesting) . $check;
+}
+
+sub _translate_Failed_check {
+    my( $self, $check ) = @_;
+
+    if( $check =~ /\A(.*)#     (Failed .*test) \((.*?) at line (\d+)\)\Z(?!\n)/ ) {
+        $check = "/\Q$1\E#\\s+\Q$2\E.*?\\n?.*?\Qat $3\E line \Q$4\E.*\\n?/";
+    }
+
+    return $check;
+}
+
+##
+# return true iff the expected data matches the got data
+
+sub check {
+    my $self = shift;
+
+    # turn off warnings as these might be undef
+    local $^W = 0;
+
+    my @checks = @{ $self->{wanted} };
+    my $got    = $self->{got};
+    foreach my $check (@checks) {
+        $check = "\Q$check\E" unless( $check =~ s,^/(.*)/$,$1, or ref $check );
+        return 0 unless $got =~ s/^$check//;
+    }
+
+    return length $got == 0;
+}
+
+##
+# a complaint message about the inputs not matching (to be
+# used for debugging messages)
+
+sub complaint {
+    my $self   = shift;
+    my $type   = $self->type;
+    my $got    = $self->got;
+    my $wanted = join '', @{ $self->wanted };
+
+    # are we running in colour mode?
+    if(Test::Builder::Tester::color) {
+        # get color
+        eval { require Term::ANSIColor };
+        unless($@) {
+            eval { require Win32::Console::ANSI } if 'MSWin32' eq $^O;  # support color on windows platforms
+
+            # colours
+
+            my $green = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_green");
+            my $red   = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_red");
+            my $reset = Term::ANSIColor::color("reset");
+
+            # work out where the two strings start to differ
+            my $char = 0;
+            $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
+
+            # get the start string and the two end strings
+            my $start = $green . substr( $wanted, 0, $char );
+            my $gotend    = $red . substr( $got,    $char ) . $reset;
+            my $wantedend = $red . substr( $wanted, $char ) . $reset;
+
+            # make the start turn green on and off
+            $start =~ s/\n/$reset\n$green/g;
+
+            # make the ends turn red on and off
+            $gotend    =~ s/\n/$reset\n$red/g;
+            $wantedend =~ s/\n/$reset\n$red/g;
+
+            # rebuild the strings
+            $got    = $start . $gotend;
+            $wanted = $start . $wantedend;
+        }
+    }
+
+    my @got = split "\n", $got;
+    my @wanted = split "\n", $wanted;
+
+    $got = "";
+    $wanted = "";
+
+    while (@got || @wanted) {
+        my $g = shift @got    || "";
+        my $w = shift @wanted || "";
+        if ($g ne $w) {
+            if($g =~ s/(\s+)$/    |> /g) {
+                $g .= ($_ eq ' ' ? '_' : '\t') for split '', $1;
+            }
+            if($w =~ s/(\s+)$/    |> /g) {
+                $w .= ($_ eq ' ' ? '_' : '\t') for split '', $1;
+            }
+            $g = "> $g";
+            $w = "> $w";
+        }
+        else {
+            $g = "  $g";
+            $w = "  $w";
+        }
+        $got = $got ? "$got\n$g" : $g;
+        $wanted = $wanted ? "$wanted\n$w" : $w;
+    }
+
+    return "$type is:\n" . "$got\nnot:\n$wanted\nas expected";
+}
+
+##
+# forget all expected and got data
+
+sub reset {
+    my $self = shift;
+    %$self = (
+        type   => $self->{type},
+        got    => '',
+        wanted => [],
+    );
+}
+
+sub got {
+    my $self = shift;
+    return $self->{got};
+}
+
+sub wanted {
+    my $self = shift;
+    return $self->{wanted};
+}
+
+sub type {
+    my $self = shift;
+    return $self->{type};
+}
+
+###
+# tie interface
+###
+
+sub PRINT {
+    my $self = shift;
+    $self->{got} .= join '', @_;
+}
+
+sub TIEHANDLE {
+    my( $class, $type ) = @_;
+
+    my $self = bless { type => $type }, $class;
+
+    $self->reset;
+
+    return $self;
+}
+
+sub READ     { }
+sub READLINE { }
+sub GETC     { }
+sub FILENO   { }
+
+1;
+package Test::Builder::Formatter;
+use strict;
+use warnings;
+
+our $VERSION = '1.302133';
+
+BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
+
+use Test2::Util::HashBase qw/no_header no_diag/;
+
+BEGIN {
+    *OUT_STD = Test2::Formatter::TAP->can('OUT_STD');
+    *OUT_ERR = Test2::Formatter::TAP->can('OUT_ERR');
+
+    my $todo = OUT_ERR() + 1;
+    *OUT_TODO = sub() { $todo };
+}
+
+sub init {
+    my $self = shift;
+    $self->SUPER::init(@_);
+    $self->{+HANDLES}->[OUT_TODO] = $self->{+HANDLES}->[OUT_STD];
+}
+
+sub plan_tap {
+    my ($self, $f) = @_;
+
+    return if $self->{+NO_HEADER};
+    return $self->SUPER::plan_tap($f);
+}
+
+sub debug_tap {
+    my ($self, $f, $num) = @_;
+    return if $self->{+NO_DIAG};
+    my @out = $self->SUPER::debug_tap($f, $num);
+    $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+    return @out;
+}
+
+sub info_tap {
+    my ($self, $f) = @_;
+    return if $self->{+NO_DIAG};
+    my @out = $self->SUPER::info_tap($f);
+    $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+    return @out;
+}
+
+sub redirect {
+    my ($self, $out) = @_;
+    $_->[0] = OUT_TODO for @$out;
+}
+
+sub no_subtest_space { 1 }
+
+1;
+
+__END__
+
+package Test::Builder::IO::Scalar;
+
+
+
+# This is copied code, I don't care.
+##no critic
+
+use Carp;
+use strict;
+use vars qw($VERSION @ISA);
+use IO::Handle;
+
+use 5.005;
+
+### The package version, both in 1.23 style *and* usable by MakeMaker:
+$VERSION = "2.114";
+
+### Inheritance:
+@ISA = qw(IO::Handle);
+
+#==============================
+
+
+#------------------------------
+
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+    my $self = bless \do { local *FH }, $class;
+    tie *$self, $class, $self;
+    $self->open(@_);   ### open on anonymous by default
+    $self;
+}
+sub DESTROY {
+    shift->close;
+}
+
+#------------------------------
+
+
+sub open {
+    my ($self, $sref) = @_;
+
+    ### Sanity:
+    defined($sref) or do {my $s = ''; $sref = \$s};
+    (ref($sref) eq "SCALAR") or croak "open() needs a ref to a scalar";
+
+    ### Setup:
+    *$self->{Pos} = 0;          ### seek position
+    *$self->{SR}  = $sref;      ### scalar reference
+    $self;
+}
+
+#------------------------------
+
+
+sub opened {
+    *{shift()}->{SR};
+}
+
+#------------------------------
+
+
+sub close {
+    my $self = shift;
+    %{*$self} = ();
+    1;
+}
+
+
+
+
+#==============================
+
+
+
+#------------------------------
+
+
+sub flush { "0 but true" }
+
+#------------------------------
+
+
+sub getc {
+    my $self = shift;
+
+    ### Return undef right away if at EOF; else, move pos forward:
+    return undef if $self->eof;
+    substr(${*$self->{SR}}, *$self->{Pos}++, 1);
+}
+
+#------------------------------
+
+
+sub getline {
+    my $self = shift;
+
+    ### Return undef right away if at EOF:
+    return undef if $self->eof;
+
+    ### Get next line:
+    my $sr = *$self->{SR};
+    my $i  = *$self->{Pos};	        ### Start matching at this point.
+
+    ### Minimal impact implementation!
+    ### We do the fast fast thing (no regexps) if using the
+    ### classic input record separator.
+
+    ### Case 1: $/ is undef: slurp all...
+    if    (!defined($/)) {
+	*$self->{Pos} = length $$sr;
+        return substr($$sr, $i);
+    }
+
+    ### Case 2: $/ is "\n": zoom zoom zoom...
+    elsif ($/ eq "\012") {
+
+        ### Seek ahead for "\n"... yes, this really is faster than regexps.
+        my $len = length($$sr);
+        for (; $i < $len; ++$i) {
+           last if ord (substr ($$sr, $i, 1)) == 10;
+        }
+
+        ### Extract the line:
+        my $line;
+        if ($i < $len) {                ### We found a "\n":
+            $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos} + 1);
+            *$self->{Pos} = $i+1;            ### Remember where we finished up.
+        }
+        else {                          ### No "\n"; slurp the remainder:
+            $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos});
+            *$self->{Pos} = $len;
+        }
+        return $line;
+    }
+
+    ### Case 3: $/ is ref to int. Do fixed-size records.
+    ###        (Thanks to Dominique Quatravaux.)
+    elsif (ref($/)) {
+        my $len = length($$sr);
+		my $i = ${$/} + 0;
+		my $line = substr ($$sr, *$self->{Pos}, $i);
+		*$self->{Pos} += $i;
+        *$self->{Pos} = $len if (*$self->{Pos} > $len);
+		return $line;
+    }
+
+    ### Case 4: $/ is either "" (paragraphs) or something weird...
+    ###         This is Graham's general-purpose stuff, which might be
+    ###         a tad slower than Case 2 for typical data, because
+    ###         of the regexps.
+    else {
+        pos($$sr) = $i;
+
+	### If in paragraph mode, skip leading lines (and update i!):
+        length($/) or
+	    (($$sr =~ m/\G\n*/g) and ($i = pos($$sr)));
+
+        ### If we see the separator in the buffer ahead...
+        if (length($/)
+	    ?  $$sr =~ m,\Q$/\E,g          ###   (ordinary sep) TBD: precomp!
+            :  $$sr =~ m,\n\n,g            ###   (a paragraph)
+            ) {
+            *$self->{Pos} = pos $$sr;
+            return substr($$sr, $i, *$self->{Pos}-$i);
+        }
+        ### Else if no separator remains, just slurp the rest:
+        else {
+            *$self->{Pos} = length $$sr;
+            return substr($$sr, $i);
+        }
+    }
+}
+
+#------------------------------
+
+
+sub getlines {
+    my $self = shift;
+    wantarray or croak("can't call getlines in scalar context!");
+    my ($line, @lines);
+    push @lines, $line while (defined($line = $self->getline));
+    @lines;
+}
+
+#------------------------------
+
+
+sub print {
+    my $self = shift;
+    *$self->{Pos} = length(${*$self->{SR}} .= join('', @_) . (defined($\) ? $\ : ""));
+    1;
+}
+sub _unsafe_print {
+    my $self = shift;
+    my $append = join('', @_) . $\;
+    ${*$self->{SR}} .= $append;
+    *$self->{Pos}   += length($append);
+    1;
+}
+sub _old_print {
+    my $self = shift;
+    ${*$self->{SR}} .= join('', @_) . $\;
+    *$self->{Pos} = length(${*$self->{SR}});
+    1;
+}
+
+
+#------------------------------
+
+
+sub read {
+    my $self = $_[0];
+    my $n    = $_[2];
+    my $off  = $_[3] || 0;
+
+    my $read = substr(${*$self->{SR}}, *$self->{Pos}, $n);
+    $n = length($read);
+    *$self->{Pos} += $n;
+    ($off ? substr($_[1], $off) : $_[1]) = $read;
+    return $n;
+}
+
+#------------------------------
+
+
+sub write {
+    my $self = $_[0];
+    my $n    = $_[2];
+    my $off  = $_[3] || 0;
+
+    my $data = substr($_[1], $off, $n);
+    $n = length($data);
+    $self->print($data);
+    return $n;
+}
+
+#------------------------------
+
+
+sub sysread {
+  my $self = shift;
+  $self->read(@_);
+}
+
+#------------------------------
+
+
+sub syswrite {
+  my $self = shift;
+  $self->write(@_);
+}
+
+
+
+#==============================
+
+
+
+#------------------------------
+
+
+sub autoflush {}
+
+#------------------------------
+
+
+sub binmode {}
+
+#------------------------------
+
+
+sub clearerr { 1 }
+
+#------------------------------
+
+
+sub eof {
+    my $self = shift;
+    (*$self->{Pos} >= length(${*$self->{SR}}));
+}
+
+#------------------------------
+
+
+sub seek {
+    my ($self, $pos, $whence) = @_;
+    my $eofpos = length(${*$self->{SR}});
+
+    ### Seek:
+    if    ($whence == 0) { *$self->{Pos} = $pos }             ### SEEK_SET
+    elsif ($whence == 1) { *$self->{Pos} += $pos }            ### SEEK_CUR
+    elsif ($whence == 2) { *$self->{Pos} = $eofpos + $pos}    ### SEEK_END
+    else                 { croak "bad seek whence ($whence)" }
+
+    ### Fixup:
+    if (*$self->{Pos} < 0)       { *$self->{Pos} = 0 }
+    if (*$self->{Pos} > $eofpos) { *$self->{Pos} = $eofpos }
+    return 1;
+}
+
+#------------------------------
+
+
+sub sysseek {
+    my $self = shift;
+    $self->seek (@_);
+}
+
+#------------------------------
+
+
+sub tell { *{shift()}->{Pos} }
+
+#------------------------------
+
+
+sub use_RS {
+    my ($self, $yesno) = @_;
+    carp "use_RS is deprecated and ignored; \$/ is always consulted\n";
+ }
+
+#------------------------------
+
+
+sub setpos { shift->seek($_[0],0) }
+
+#------------------------------
+
+
+*getpos = \&tell;
+
+
+#------------------------------
+
+
+sub sref { *{shift()}->{SR} }
+
+
+#------------------------------
+# Tied handle methods...
+#------------------------------
+
+# Conventional tiehandle interface:
+sub TIEHANDLE {
+    ((defined($_[1]) && UNIVERSAL::isa($_[1], __PACKAGE__))
+     ? $_[1]
+     : shift->new(@_));
+}
+sub GETC      { shift->getc(@_) }
+sub PRINT     { shift->print(@_) }
+sub PRINTF    { shift->print(sprintf(shift, @_)) }
+sub READ      { shift->read(@_) }
+sub READLINE  { wantarray ? shift->getlines(@_) : shift->getline(@_) }
+sub WRITE     { shift->write(@_); }
+sub CLOSE     { shift->close(@_); }
+sub SEEK      { shift->seek(@_); }
+sub TELL      { shift->tell(@_); }
+sub EOF       { shift->eof(@_); }
+sub FILENO    { -1 }
+
+#------------------------------------------------------------
+
+1;
+
+__END__
+
+
+
+
+
+
+package Test::Builder::Tester::Color;
+
+use strict;
+our $VERSION = '1.302133';
+
+require Test::Builder::Tester;
+
+
+
+sub import {
+    Test::Builder::Tester::color(1);
+}
+
+
+1;
+use strict;
+
+package Test::Tester::Capture;
+
+our $VERSION = '1.302133';
+
+
+use Test::Builder;
+
+use vars qw( @ISA );
+@ISA = qw( Test::Builder );
+
+# Make Test::Tester::Capture thread-safe for ithreads.
+BEGIN {
+	use Config;
+	if( $] >= 5.008 && $Config{useithreads} ) {
+		require threads::shared;
+		threads::shared->import;
+	}
+	else {
+		*share = sub { 0 };
+		*lock  = sub { 0 };
+	}
+}
+
+my $Curr_Test = 0;      share($Curr_Test);
+my @Test_Results = ();  share(@Test_Results);
+my $Prem_Diag = {diag => ""};	 share($Curr_Test);
+
+sub new
+{
+  # Test::Tester::Capgture::new used to just return __PACKAGE__
+  # because Test::Builder::new enforced it's singleton nature by
+  # return __PACKAGE__. That has since changed, Test::Builder::new now
+  # returns a blessed has and around version 0.78, Test::Builder::todo
+  # started wanting to modify $self. To cope with this, we now return
+  # a blessed hash. This is a short-term hack, the correct thing to do
+  # is to detect which style of Test::Builder we're dealing with and
+  # act appropriately.
+
+  my $class = shift;
+  return bless {}, $class;
+}
+
+sub ok {
+	my($self, $test, $name) = @_;
+
+	my $ctx = $self->ctx;
+
+	# $test might contain an object which we don't want to accidentally
+	# store, so we turn it into a boolean.
+	$test = $test ? 1 : 0;
+
+	lock $Curr_Test;
+	$Curr_Test++;
+
+	my($pack, $file, $line) = $self->caller;
+
+	my $todo = $self->todo();
+
+	my $result = {};
+	share($result);
+
+	unless( $test ) {
+		@$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
+	}
+	else {
+		@$result{ 'ok', 'actual_ok' } = ( 1, $test );
+	}
+
+	if( defined $name ) {
+		$name =~ s|#|\\#|g;	 # # in a name can confuse Test::Harness.
+		$result->{name} = $name;
+	}
+	else {
+		$result->{name} = '';
+	}
+
+	if( $todo ) {
+		my $what_todo = $todo;
+		$result->{reason} = $what_todo;
+		$result->{type}   = 'todo';
+	}
+	else {
+		$result->{reason} = '';
+		$result->{type}   = '';
+	}
+
+	$Test_Results[$Curr_Test-1] = $result;
+
+	unless( $test ) {
+		my $msg = $todo ? "Failed (TODO)" : "Failed";
+		$result->{fail_diag} = ("	$msg test ($file at line $line)\n");
+	} 
+
+	$result->{diag} = "";
+	$result->{_level} = $Test::Builder::Level;
+	$result->{_depth} = Test::Tester::find_run_tests();
+
+	$ctx->release;
+
+	return $test ? 1 : 0;
+}
+
+sub skip {
+	my($self, $why) = @_;
+	$why ||= '';
+
+	my $ctx = $self->ctx;
+
+	lock($Curr_Test);
+	$Curr_Test++;
+
+	my %result;
+	share(%result);
+	%result = (
+		'ok'	  => 1,
+		actual_ok => 1,
+		name	  => '',
+		type	  => 'skip',
+		reason	=> $why,
+		diag    => "",
+		_level   => $Test::Builder::Level,
+		_depth => Test::Tester::find_run_tests(),
+	);
+	$Test_Results[$Curr_Test-1] = \%result;
+
+	$ctx->release;
+	return 1;
+}
+
+sub todo_skip {
+	my($self, $why) = @_;
+	$why ||= '';
+
+	my $ctx = $self->ctx;
+
+	lock($Curr_Test);
+	$Curr_Test++;
+
+	my %result;
+	share(%result);
+	%result = (
+		'ok'	  => 1,
+		actual_ok => 0,
+		name	  => '',
+		type	  => 'todo_skip',
+		reason	=> $why,
+		diag    => "",
+		_level   => $Test::Builder::Level,
+		_depth => Test::Tester::find_run_tests(),
+	);
+
+	$Test_Results[$Curr_Test-1] = \%result;
+
+	$ctx->release;
+	return 1;
+}
+
+sub diag {
+	my($self, @msgs) = @_;
+	return unless @msgs;
+
+	# Prevent printing headers when compiling (i.e. -c)
+	return if $^C;
+
+	my $ctx = $self->ctx;
+
+	# Escape each line with a #.
+	foreach (@msgs) {
+		$_ = 'undef' unless defined;
+	}
+
+	push @msgs, "\n" unless $msgs[-1] =~ /\n\Z/;
+
+	my $result = $Curr_Test ? $Test_Results[$Curr_Test - 1] : $Prem_Diag;
+
+	$result->{diag} .= join("", @msgs);
+
+	$ctx->release;
+	return 0;
+}
+
+sub details {
+	return @Test_Results;
+}
+
+
+# Stub. Feel free to send me a patch to implement this.
+sub note {
+}
+
+sub explain {
+	return Test::Builder::explain(@_);
+}
+
+sub premature
+{
+	return $Prem_Diag->{diag};
+}
+
+sub current_test
+{
+	if (@_ > 1)
+	{
+		die "Don't try to change the test number!";
+	}
+	else
+	{
+		return $Curr_Test;
+	}
+}
+
+sub reset
+{
+	$Curr_Test = 0;
+	@Test_Results = ();
+	$Prem_Diag = {diag => ""};
+}
+
+1;
+
+__END__
+
+use strict;
+use warnings;
+
+package Test::Tester::Delegate;
+
+our $VERSION = '1.302133';
+
+use Scalar::Util();
+
+use vars '$AUTOLOAD';
+
+sub new
+{
+	my $pkg = shift;
+
+	my $obj = shift;
+	my $self = bless {}, $pkg;
+
+	return $self;
+}
+
+sub AUTOLOAD
+{
+	my ($sub) = $AUTOLOAD =~ /.*::(.*?)$/;
+
+	return if $sub eq "DESTROY";
+
+	my $obj = $_[0]->{Object};
+
+	my $ref = $obj->can($sub);
+	shift(@_);
+	unshift(@_, $obj);
+	goto &$ref;
+}
+
+sub can {
+	my $this = shift;
+	my ($sub) = @_;
+
+	return $this->{Object}->can($sub) if Scalar::Util::blessed($this);
+
+	return $this->SUPER::can(@_);
+}
+
+1;
+# $Header: /home/fergal/my/cvs/Test-Tester/lib/Test/Tester/CaptureRunner.pm,v 1.3 2003/03/05 01:07:55 fergal Exp $
+use strict;
+
+package Test::Tester::CaptureRunner;
+
+our $VERSION = '1.302133';
+
+
+use Test::Tester::Capture;
+require Exporter;
+
+sub new
+{
+	my $pkg = shift;
+	my $self = bless {}, $pkg;
+	return $self;
+}
+
+sub run_tests
+{
+	my $self = shift;
+
+	my $test = shift;
+
+	capture()->reset;
+
+	$self->{StartLevel} = $Test::Builder::Level;
+	&$test();
+}
+
+sub get_results
+{
+	my $self = shift;
+	my @results = capture()->details;
+
+	my $start = $self->{StartLevel};
+	foreach my $res (@results)
+	{
+		next if defined $res->{depth};
+		my $depth = $res->{_depth} - $res->{_level} - $start - 3;
+#		print "my $depth = $res->{_depth} - $res->{_level} - $start - 1\n";
+		$res->{depth} = $depth;
+	}
+
+	return @results;
+}
+
+sub get_premature
+{
+	return capture()->premature;
+}
+
+sub capture
+{
+	return Test::Tester::Capture->new;
+}
+
+__END__
+
+package Digest::base;
+
+use strict;
+use vars qw($VERSION);
+$VERSION = "1.16";
+
+# subclass is supposed to implement at least these
+sub new;
+sub clone;
+sub add;
+sub digest;
+
+sub reset {
+    my $self = shift;
+    $self->new(@_);  # ugly
+}
+
+sub addfile {
+    my ($self, $handle) = @_;
+
+    my $n;
+    my $buf = "";
+
+    while (($n = read($handle, $buf, 4*1024))) {
+        $self->add($buf);
+    }
+    unless (defined $n) {
+	require Carp;
+	Carp::croak("Read failed: $!");
+    }
+
+    $self;
+}
+
+sub add_bits {
+    my $self = shift;
+    my $bits;
+    my $nbits;
+    if (@_ == 1) {
+	my $arg = shift;
+	$bits = pack("B*", $arg);
+	$nbits = length($arg);
+    }
+    else {
+	($bits, $nbits) = @_;
+    }
+    if (($nbits % 8) != 0) {
+	require Carp;
+	Carp::croak("Number of bits must be multiple of 8 for this algorithm");
+    }
+    return $self->add(substr($bits, 0, $nbits/8));
+}
+
+sub hexdigest {
+    my $self = shift;
+    return unpack("H*", $self->digest(@_));
+}
+
+sub b64digest {
+    my $self = shift;
+    require MIME::Base64;
+    my $b64 = MIME::Base64::encode($self->digest(@_), "");
+    $b64 =~ s/=+$//;
+    return $b64;
+}
+
+1;
+
+__END__
+
+package Digest::file;
+
+use strict;
+
+use Exporter ();
+use Carp qw(croak);
+use Digest ();
+
+use vars qw($VERSION @ISA @EXPORT_OK);
+
+$VERSION = "1.16";
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
+
+sub digest_file_ctx {
+    my $file = shift;
+    croak("No digest algorithm specified") unless @_;
+    local *F;
+    open(F, "<", $file) || croak("Can't open '$file': $!");
+    binmode(F);
+    my $ctx = Digest->new(@_);
+    $ctx->addfile(*F);
+    close(F);
+    return $ctx;
+}
+
+sub digest_file {
+    digest_file_ctx(@_)->digest;
+}
+
+sub digest_file_hex {
+    digest_file_ctx(@_)->hexdigest;
+}
+
+sub digest_file_base64 {
+    digest_file_ctx(@_)->b64digest;
+}
+
+1;
+
+__END__
+
diff --git a/lib/webperl/emperl.js b/lib/webperl/emperl.js
new file mode 100644
index 0000000..5ded600
--- /dev/null
+++ b/lib/webperl/emperl.js
@@ -0,0 +1 @@
+var Module=typeof Module!=="undefined"?Module:{};if(!Module.expectedDataFileDownloads){Module.expectedDataFileDownloads=0;Module.finishedDataFileDownloads=0}Module.expectedDataFileDownloads++;(function(){var loadPackage=function(metadata){var PACKAGE_PATH;if(typeof window==="object"){PACKAGE_PATH=window["encodeURIComponent"](window.location.pathname.toString().substring(0,window.location.pathname.toString().lastIndexOf("/"))+"/")}else if(typeof location!=="undefined"){PACKAGE_PATH=encodeURIComponent(location.pathname.toString().substring(0,location.pathname.toString().lastIndexOf("/"))+"/")}else{throw"using preloaded data can only be done on a web page or in a web worker"}var PACKAGE_NAME="emperl.data";var REMOTE_PACKAGE_BASE="emperl.data";if(typeof Module["locateFilePackage"]==="function"&&!Module["locateFile"]){Module["locateFile"]=Module["locateFilePackage"];err("warning: you defined Module.locateFilePackage, that has been renamed to Module.locateFile (using your locateFilePackage for now)")}var REMOTE_PACKAGE_NAME=Module["locateFile"]?Module["locateFile"](REMOTE_PACKAGE_BASE,""):REMOTE_PACKAGE_BASE;var REMOTE_PACKAGE_SIZE=metadata.remote_package_size;var PACKAGE_UUID=metadata.package_uuid;function fetchRemotePackage(packageName,packageSize,callback,errback){var xhr=new XMLHttpRequest;xhr.open("GET",packageName,true);xhr.responseType="arraybuffer";xhr.onprogress=function(event){var url=packageName;var size=packageSize;if(event.total)size=event.total;if(event.loaded){if(!xhr.addedTotal){xhr.addedTotal=true;if(!Module.dataFileDownloads)Module.dataFileDownloads={};Module.dataFileDownloads[url]={loaded:event.loaded,total:size}}else{Module.dataFileDownloads[url].loaded=event.loaded}var total=0;var loaded=0;var num=0;for(var download in Module.dataFileDownloads){var data=Module.dataFileDownloads[download];total+=data.total;loaded+=data.loaded;num++}total=Math.ceil(total*Module.expectedDataFileDownloads/num);if(Module["setStatus"])Module["setStatus"]("Downloading data... ("+loaded+"/"+total+")")}else if(!Module.dataFileDownloads){if(Module["setStatus"])Module["setStatus"]("Downloading data...")}};xhr.onerror=function(event){throw new Error("NetworkError for: "+packageName)};xhr.onload=function(event){if(xhr.status==200||xhr.status==304||xhr.status==206||xhr.status==0&&xhr.response){var packageData=xhr.response;callback(packageData)}else{throw new Error(xhr.statusText+" : "+xhr.responseURL)}};xhr.send(null)}function handleError(error){console.error("package error:",error)}var fetchedCallback=null;var fetched=Module["getPreloadedPackage"]?Module["getPreloadedPackage"](REMOTE_PACKAGE_NAME,REMOTE_PACKAGE_SIZE):null;if(!fetched)fetchRemotePackage(REMOTE_PACKAGE_NAME,REMOTE_PACKAGE_SIZE,function(data){if(fetchedCallback){fetchedCallback(data);fetchedCallback=null}else{fetched=data}},handleError);function runWithFS(){function assert(check,msg){if(!check)throw msg+(new Error).stack}Module["FS_createPath"]("/","opt",true,true);Module["FS_createPath"]("/opt","perl",true,true);Module["FS_createPath"]("/opt/perl","dev",true,true);Module["FS_createPath"]("/opt/perl","lib",true,true);Module["FS_createPath"]("/opt/perl/lib","5.28.1",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","autodie",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/autodie","exception",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/autodie","Scope",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Tie",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","DBM_Filter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Archive",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Archive","Tar",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Config",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Config","Perl",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","ExtUtils",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","MakeMaker",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","Constant",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","CBuilder",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils/CBuilder","Platform",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform","Windows",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","Command",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","ParseXS",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","Typemaps",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/ExtUtils","Liblist",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Filter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","B",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Net",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Net","FTP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Time",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Perl",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","User",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Attribute",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Encode",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Parse",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Parse","CPAN",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Thread",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Future",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","I18N",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/I18N","LangTags",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Pod",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Pod","Text",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Pod","Simple",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Pod","Perldoc",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Class",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","HTTP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","PerlIO",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/PerlIO","via",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Text",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","IPC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Devel",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Devel","StackTrace",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Unicode",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","TAP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP","Formatter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Formatter","Console",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Formatter","File",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP","Harness",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP","Parser",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Parser","Iterator",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Parser","YAMLish",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Parser","Scheduler",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Parser","Result",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/TAP/Parser","SourceHandler",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Search",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","unicore",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore","To",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore","lib",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","QMark",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","IDC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Age",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","BidiC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","XIDS",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","UIdeo",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CE",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Upper",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","XIDC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","NFKDQC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWU",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Sc",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWCM",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","WB",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Nv",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWCF",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Gc",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Perl",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWL",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","In",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Ext",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Ea",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Bc",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","InPC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Lb",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Hst",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Bpt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Hyphen",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Vo",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Dash",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","BidiM",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Hex",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","GrBase",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","PatSyn",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Ideo",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Blk",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","NFDQC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","SB",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","SD",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Nt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Lower",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Dt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","NFCQC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Ccc",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","GCB",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Math",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Cased",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","DI",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","PCM",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","InSC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Jt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","IDS",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CI",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWKCF",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CWT",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Dia",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Term",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","STerm",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Alpha",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Jg",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Scx",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","CompEx",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","NFKCQC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/unicore/lib","Dep",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","IO",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO","Compress",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Compress","Gzip",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Compress","Zip",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Compress","Zlib",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Compress","Adapter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Compress","Base",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO","Uncompress",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO/Uncompress","Adapter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/IO","Socket",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Locale",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Locale","Codes",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Locale","Maketext",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","version",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Math",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Math","BigFloat",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Math","BigInt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Exporter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","encoding",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Module",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Module","Load",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Module","CoreList",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","wasm",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Scalar",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Tie",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Tie","Hash",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Sub",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","B",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Time",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Encode",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode","JP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode","Unicode",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode","KR",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode","CN",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode","MIME",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Encode/MIME","Header",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","I18N",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","PerlIO",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Devel",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Unicode",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","IO",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/IO","Socket",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Hash",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","List",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/List","Util",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Data",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Cpanel",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Cpanel","JSON",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/Cpanel/JSON","XS",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","File",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm/File","Spec",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/wasm","Digest",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","CPAN",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","FTP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","Kwalify",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","Plugin",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","HTTP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","Exception",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","Meta",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/CPAN","LWP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","App",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/App","Prove",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/App/Prove","State",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/App/Prove/State","Result",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","warnings",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","overload",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Memoize",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Getopt",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Params",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Term",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Carp",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Compress",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","File",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","JSON",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/JSON","PP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Test2",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","Tools",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","IPC",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2/IPC","Driver",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","Hub",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2/Hub","Interceptor",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","Formatter",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","Util",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","EventFacet",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","Event",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2/Event","TAP",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test2","API",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Test",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test","use",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test","Future",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test","Builder",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test/Builder","IO",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test/Builder","Tester",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1/Test","Tester",true,true);Module["FS_createPath"]("/opt/perl/lib/5.28.1","Digest",true,true);function DataRequest(start,end,audio){this.start=start;this.end=end;this.audio=audio}DataRequest.prototype={requests:{},open:function(mode,name){this.name=name;this.requests[name]=this;Module["addRunDependency"]("fp "+this.name)},send:function(){},onload:function(){var byteArray=this.byteArray.subarray(this.start,this.end);this.finish(byteArray)},finish:function(byteArray){var that=this;Module["FS_createDataFile"](this.name,null,byteArray,true,true,true);Module["removeRunDependency"]("fp "+that.name);this.requests[this.name]=null}};var files=metadata.files;for(var i=0;i<files.length;++i){new DataRequest(files[i].start,files[i].end,files[i].audio).open("GET",files[i].filename)}function processPackageData(arrayBuffer){Module.finishedDataFileDownloads++;assert(arrayBuffer,"Loading data file failed.");assert(arrayBuffer instanceof ArrayBuffer,"bad input to processPackageData");var byteArray=new Uint8Array(arrayBuffer);DataRequest.prototype.byteArray=byteArray;var files=metadata.files;for(var i=0;i<files.length;++i){DataRequest.prototype.requests[files[i].filename].onload()}Module["removeRunDependency"]("datafile_emperl.data")}Module["addRunDependency"]("datafile_emperl.data");if(!Module.preloadResults)Module.preloadResults={};Module.preloadResults[PACKAGE_NAME]={fromCache:false};if(fetched){processPackageData(fetched);fetched=null}else{fetchedCallback=processPackageData}}if(Module["calledRun"]){runWithFS()}else{if(!Module["preRun"])Module["preRun"]=[];Module["preRun"].push(runWithFS)}};loadPackage({"files":[{"start":0,"audio":0,"end":4278,"filename":"/opt/perl/dev/WebPerl.t"},{"start":4278,"audio":0,"end":28730,"filename":"/opt/perl/lib/5.28.1/warnings.pm"},{"start":28730,"audio":0,"end":34274,"filename":"/opt/perl/lib/5.28.1/DBM_Filter.pm"},{"start":34274,"audio":0,"end":38517,"filename":"/opt/perl/lib/5.28.1/XSLoader.pm"},{"start":38517,"audio":0,"end":44906,"filename":"/opt/perl/lib/5.28.1/bigrat.pm"},{"start":44906,"audio":0,"end":99003,"filename":"/opt/perl/lib/5.28.1/Fatal.pm"},{"start":99003,"audio":0,"end":112367,"filename":"/opt/perl/lib/5.28.1/Test.pm"},{"start":112367,"audio":0,"end":119300,"filename":"/opt/perl/lib/5.28.1/NEXT.pm"},{"start":119300,"audio":0,"end":170294,"filename":"/opt/perl/lib/5.28.1/CPAN.pm"},{"start":170294,"audio":0,"end":171232,"filename":"/opt/perl/lib/5.28.1/vmsish.pm"},{"start":171232,"audio":0,"end":180148,"filename":"/opt/perl/lib/5.28.1/base.pm"},{"start":180148,"audio":0,"end":208157,"filename":"/opt/perl/lib/5.28.1/Future.pm"},{"start":208157,"audio":0,"end":208915,"filename":"/opt/perl/lib/5.28.1/bytes_heavy.pl"},{"start":208915,"audio":0,"end":214652,"filename":"/opt/perl/lib/5.28.1/constant.pm"},{"start":214652,"audio":0,"end":220139,"filename":"/opt/perl/lib/5.28.1/AutoLoader.pm"},{"start":220139,"audio":0,"end":235694,"filename":"/opt/perl/lib/5.28.1/dumpvar.pl"},{"start":235694,"audio":0,"end":237617,"filename":"/opt/perl/lib/5.28.1/deprecate.pm"},{"start":237617,"audio":0,"end":249940,"filename":"/opt/perl/lib/5.28.1/AutoSplit.pm"},{"start":249940,"audio":0,"end":263065,"filename":"/opt/perl/lib/5.28.1/diagnostics.pm"},{"start":263065,"audio":0,"end":263480,"filename":"/opt/perl/lib/5.28.1/ok.pm"},{"start":263480,"audio":0,"end":276462,"filename":"/opt/perl/lib/5.28.1/Safe.pm"},{"start":276462,"audio":0,"end":279953,"filename":"/opt/perl/lib/5.28.1/Env.pm"},{"start":279953,"audio":0,"end":282297,"filename":"/opt/perl/lib/5.28.1/FindBin.pm"},{"start":282297,"audio":0,"end":284398,"filename":"/opt/perl/lib/5.28.1/Symbol.pm"},{"start":284398,"audio":0,"end":285801,"filename":"/opt/perl/lib/5.28.1/blib.pm"},{"start":285801,"audio":0,"end":287828,"filename":"/opt/perl/lib/5.28.1/autouse.pm"},{"start":287828,"audio":0,"end":298018,"filename":"/opt/perl/lib/5.28.1/Memoize.pm"},{"start":298018,"audio":0,"end":300644,"filename":"/opt/perl/lib/5.28.1/charnames.pm"},{"start":300644,"audio":0,"end":305653,"filename":"/opt/perl/lib/5.28.1/fields.pm"},{"start":305653,"audio":0,"end":306315,"filename":"/opt/perl/lib/5.28.1/Thread.pm"},{"start":306315,"audio":0,"end":306793,"filename":"/opt/perl/lib/5.28.1/parent.pm"},{"start":306793,"audio":0,"end":308129,"filename":"/opt/perl/lib/5.28.1/less.pm"},{"start":308129,"audio":0,"end":326103,"filename":"/opt/perl/lib/5.28.1/Benchmark.pm"},{"start":326103,"audio":0,"end":351493,"filename":"/opt/perl/lib/5.28.1/Carp.pm"},{"start":351493,"audio":0,"end":363730,"filename":"/opt/perl/lib/5.28.1/DB.pm"},{"start":363730,"audio":0,"end":365841,"filename":"/opt/perl/lib/5.28.1/FileHandle.pm"},{"start":365841,"audio":0,"end":366270,"filename":"/opt/perl/lib/5.28.1/filetest.pm"},{"start":366270,"audio":0,"end":372997,"filename":"/opt/perl/lib/5.28.1/bignum.pm"},{"start":372997,"audio":0,"end":406163,"filename":"/opt/perl/lib/5.28.1/_charnames.pm"},{"start":406163,"audio":0,"end":409911,"filename":"/opt/perl/lib/5.28.1/open.pm"},{"start":409911,"audio":0,"end":410431,"filename":"/opt/perl/lib/5.28.1/UNIVERSAL.pm"},{"start":410431,"audio":0,"end":639159,"filename":"/opt/perl/lib/5.28.1/perl5db.pl"},{"start":639159,"audio":0,"end":639754,"filename":"/opt/perl/lib/5.28.1/if.pm"},{"start":639754,"audio":0,"end":642642,"filename":"/opt/perl/lib/5.28.1/FileCache.pm"},{"start":642642,"audio":0,"end":644337,"filename":"/opt/perl/lib/5.28.1/Digest.pm"},{"start":644337,"audio":0,"end":644679,"filename":"/opt/perl/lib/5.28.1/utf8.pm"},{"start":644679,"audio":0,"end":645643,"filename":"/opt/perl/lib/5.28.1/overloading.pm"},{"start":645643,"audio":0,"end":645988,"filename":"/opt/perl/lib/5.28.1/SelectSaver.pm"},{"start":645988,"audio":0,"end":646435,"filename":"/opt/perl/lib/5.28.1/bytes.pm"},{"start":646435,"audio":0,"end":649409,"filename":"/opt/perl/lib/5.28.1/experimental.pm"},{"start":649409,"audio":0,"end":649493,"filename":"/opt/perl/lib/5.28.1/Test2.pm"},{"start":649493,"audio":0,"end":681108,"filename":"/opt/perl/lib/5.28.1/utf8_heavy.pl"},{"start":681108,"audio":0,"end":695057,"filename":"/opt/perl/lib/5.28.1/Dumpvalue.pm"},{"start":695057,"audio":0,"end":696294,"filename":"/opt/perl/lib/5.28.1/sort.pm"},{"start":696294,"audio":0,"end":696661,"filename":"/opt/perl/lib/5.28.1/AnyDBM_File.pm"},{"start":696661,"audio":0,"end":701331,"filename":"/opt/perl/lib/5.28.1/feature.pm"},{"start":701331,"audio":0,"end":701568,"filename":"/opt/perl/lib/5.28.1/subs.pm"},{"start":701568,"audio":0,"end":708187,"filename":"/opt/perl/lib/5.28.1/SelfLoader.pm"},{"start":708187,"audio":0,"end":712629,"filename":"/opt/perl/lib/5.28.1/overload.pm"},{"start":712629,"audio":0,"end":714235,"filename":"/opt/perl/lib/5.28.1/strict.pm"},{"start":714235,"audio":0,"end":717561,"filename":"/opt/perl/lib/5.28.1/English.pm"},{"start":717561,"audio":0,"end":717734,"filename":"/opt/perl/lib/5.28.1/integer.pm"},{"start":717734,"audio":0,"end":719710,"filename":"/opt/perl/lib/5.28.1/version.pm"},{"start":719710,"audio":0,"end":730588,"filename":"/opt/perl/lib/5.28.1/bigint.pm"},{"start":730588,"audio":0,"end":732271,"filename":"/opt/perl/lib/5.28.1/autodie.pm"},{"start":732271,"audio":0,"end":732678,"filename":"/opt/perl/lib/5.28.1/PerlIO.pm"},{"start":732678,"audio":0,"end":732756,"filename":"/opt/perl/lib/5.28.1/perlfaq.pm"},{"start":732756,"audio":0,"end":733905,"filename":"/opt/perl/lib/5.28.1/vars.pm"},{"start":733905,"audio":0,"end":736275,"filename":"/opt/perl/lib/5.28.1/Exporter.pm"},{"start":736275,"audio":0,"end":739697,"filename":"/opt/perl/lib/5.28.1/locale.pm"},{"start":739697,"audio":0,"end":742569,"filename":"/opt/perl/lib/5.28.1/sigtrap.pm"},{"start":742569,"audio":0,"end":743516,"filename":"/opt/perl/lib/5.28.1/DirHandle.pm"},{"start":743516,"audio":0,"end":745633,"filename":"/opt/perl/lib/5.28.1/meta_notation.pm"},{"start":745633,"audio":0,"end":750484,"filename":"/opt/perl/lib/5.28.1/autodie/Util.pm"},{"start":750484,"audio":0,"end":750896,"filename":"/opt/perl/lib/5.28.1/autodie/skip.pm"},{"start":750896,"audio":0,"end":755983,"filename":"/opt/perl/lib/5.28.1/autodie/hints.pm"},{"start":755983,"audio":0,"end":771068,"filename":"/opt/perl/lib/5.28.1/autodie/exception.pm"},{"start":771068,"audio":0,"end":771679,"filename":"/opt/perl/lib/5.28.1/autodie/exception/system.pm"},{"start":771679,"audio":0,"end":772127,"filename":"/opt/perl/lib/5.28.1/autodie/Scope/Guard.pm"},{"start":772127,"audio":0,"end":774220,"filename":"/opt/perl/lib/5.28.1/autodie/Scope/GuardStack.pm"},{"start":774220,"audio":0,"end":776737,"filename":"/opt/perl/lib/5.28.1/Tie/Array.pm"},{"start":776737,"audio":0,"end":780759,"filename":"/opt/perl/lib/5.28.1/Tie/SubstrHash.pm"},{"start":780759,"audio":0,"end":781534,"filename":"/opt/perl/lib/5.28.1/Tie/StdHandle.pm"},{"start":781534,"audio":0,"end":783193,"filename":"/opt/perl/lib/5.28.1/Tie/Memoize.pm"},{"start":783193,"audio":0,"end":838533,"filename":"/opt/perl/lib/5.28.1/Tie/File.pm"},{"start":838533,"audio":0,"end":840571,"filename":"/opt/perl/lib/5.28.1/Tie/Hash.pm"},{"start":840571,"audio":0,"end":842218,"filename":"/opt/perl/lib/5.28.1/Tie/Handle.pm"},{"start":842218,"audio":0,"end":846329,"filename":"/opt/perl/lib/5.28.1/Tie/RefHash.pm"},{"start":846329,"audio":0,"end":847710,"filename":"/opt/perl/lib/5.28.1/Tie/Scalar.pm"},{"start":847710,"audio":0,"end":847933,"filename":"/opt/perl/lib/5.28.1/DBM_Filter/null.pm"},{"start":847933,"audio":0,"end":848245,"filename":"/opt/perl/lib/5.28.1/DBM_Filter/compress.pm"},{"start":848245,"audio":0,"end":848529,"filename":"/opt/perl/lib/5.28.1/DBM_Filter/int32.pm"},{"start":848529,"audio":0,"end":848843,"filename":"/opt/perl/lib/5.28.1/DBM_Filter/utf8.pm"},{"start":848843,"audio":0,"end":849442,"filename":"/opt/perl/lib/5.28.1/DBM_Filter/encode.pm"},{"start":849442,"audio":0,"end":893647,"filename":"/opt/perl/lib/5.28.1/Archive/Tar.pm"},{"start":893647,"audio":0,"end":897850,"filename":"/opt/perl/lib/5.28.1/Archive/Tar/Constant.pm"},{"start":897850,"audio":0,"end":910618,"filename":"/opt/perl/lib/5.28.1/Archive/Tar/File.pm"},{"start":910618,"audio":0,"end":910959,"filename":"/opt/perl/lib/5.28.1/Config/Extensions.pm"},{"start":910959,"audio":0,"end":921233,"filename":"/opt/perl/lib/5.28.1/Config/Perl/V.pm"},{"start":921233,"audio":0,"end":921542,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_UWIN.pm"},{"start":921542,"audio":0,"end":937386,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Manifest.pm"},{"start":937386,"audio":0,"end":939655,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Mkbootstrap.pm"},{"start":939655,"audio":0,"end":951125,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Win32.pm"},{"start":951125,"audio":0,"end":958197,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Mksymlists.pm"},{"start":958197,"audio":0,"end":963268,"filename":"/opt/perl/lib/5.28.1/ExtUtils/xsubpp"},{"start":963268,"audio":0,"end":963645,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Win95.pm"},{"start":963645,"audio":0,"end":970332,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Embed.pm"},{"start":970332,"audio":0,"end":981647,"filename":"/opt/perl/lib/5.28.1/ExtUtils/typemap"},{"start":981647,"audio":0,"end":982439,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_AIX.pm"},{"start":982439,"audio":0,"end":991673,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Constant.pm"},{"start":991673,"audio":0,"end":994321,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_OS2.pm"},{"start":994321,"audio":0,"end":995172,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder.pm"},{"start":995172,"audio":0,"end":1020703,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Install.pm"},{"start":1020703,"audio":0,"end":1023662,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Cygwin.pm"},{"start":1023662,"audio":0,"end":1024196,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_BeOS.pm"},{"start":1024196,"audio":0,"end":1028444,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Packlist.pm"},{"start":1028444,"audio":0,"end":1028652,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MY.pm"},{"start":1028652,"audio":0,"end":1045556,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Typemaps.pm"},{"start":1045556,"audio":0,"end":1050265,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Command.pm"},{"start":1050265,"audio":0,"end":1054862,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_NW5.pm"},{"start":1054862,"audio":0,"end":1111435,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Any.pm"},{"start":1111435,"audio":0,"end":1111764,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_QNX.pm"},{"start":1111764,"audio":0,"end":1111971,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_VOS.pm"},{"start":1111971,"audio":0,"end":1112548,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Darwin.pm"},{"start":1112548,"audio":0,"end":1155367,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MakeMaker.pm"},{"start":1155367,"audio":0,"end":1155818,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Liblist.pm"},{"start":1155818,"audio":0,"end":1164519,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Installed.pm"},{"start":1164519,"audio":0,"end":1164699,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_MacOS.pm"},{"start":1164699,"audio":0,"end":1171111,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Miniperl.pm"},{"start":1171111,"audio":0,"end":1171499,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_DOS.pm"},{"start":1171499,"audio":0,"end":1172049,"filename":"/opt/perl/lib/5.28.1/ExtUtils/testlib.pm"},{"start":1172049,"audio":0,"end":1238877,"filename":"/opt/perl/lib/5.28.1/ExtUtils/ParseXS.pm"},{"start":1238877,"audio":0,"end":1296489,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_VMS.pm"},{"start":1296489,"audio":0,"end":1297460,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MANIFEST.SKIP"},{"start":1297460,"audio":0,"end":1392247,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM_Unix.pm"},{"start":1392247,"audio":0,"end":1393854,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MM.pm"},{"start":1393854,"audio":0,"end":1396230,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MakeMaker/version.pm"},{"start":1396230,"audio":0,"end":1396534,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MakeMaker/Config.pm"},{"start":1396534,"audio":0,"end":1401742,"filename":"/opt/perl/lib/5.28.1/ExtUtils/MakeMaker/Locale.pm"},{"start":1401742,"audio":0,"end":1404411,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Constant/Utils.pm"},{"start":1404411,"audio":0,"end":1424153,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Constant/ProxySubs.pm"},{"start":1424153,"audio":0,"end":1449369,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Constant/Base.pm"},{"start":1449369,"audio":0,"end":1455300,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Constant/XS.pm"},{"start":1455300,"audio":0,"end":1466083,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Base.pm"},{"start":1466083,"audio":0,"end":1473553,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/Windows.pm"},{"start":1473553,"audio":0,"end":1483841,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/VMS.pm"},{"start":1483841,"audio":0,"end":1486252,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/os2.pm"},{"start":1486252,"audio":0,"end":1486680,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/dec_osf.pm"},{"start":1486680,"audio":0,"end":1487200,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/darwin.pm"},{"start":1487200,"audio":0,"end":1488132,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/cygwin.pm"},{"start":1488132,"audio":0,"end":1489348,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/android.pm"},{"start":1489348,"audio":0,"end":1489973,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/aix.pm"},{"start":1489973,"audio":0,"end":1491019,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/Unix.pm"},{"start":1491019,"audio":0,"end":1494267,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/Windows/MSVC.pm"},{"start":1494267,"audio":0,"end":1497770,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/Windows/BCC.pm"},{"start":1497770,"audio":0,"end":1502030,"filename":"/opt/perl/lib/5.28.1/ExtUtils/CBuilder/Platform/Windows/GCC.pm"},{"start":1502030,"audio":0,"end":1506793,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Command/MM.pm"},{"start":1506793,"audio":0,"end":1507418,"filename":"/opt/perl/lib/5.28.1/ExtUtils/ParseXS/Constants.pm"},{"start":1507418,"audio":0,"end":1508291,"filename":"/opt/perl/lib/5.28.1/ExtUtils/ParseXS/Eval.pm"},{"start":1508291,"audio":0,"end":1509262,"filename":"/opt/perl/lib/5.28.1/ExtUtils/ParseXS/CountLines.pm"},{"start":1509262,"audio":0,"end":1519862,"filename":"/opt/perl/lib/5.28.1/ExtUtils/ParseXS/Utilities.pm"},{"start":1519862,"audio":0,"end":1520842,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Typemaps/Type.pm"},{"start":1520842,"audio":0,"end":1523006,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Typemaps/OutputMap.pm"},{"start":1523006,"audio":0,"end":1523998,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Typemaps/InputMap.pm"},{"start":1523998,"audio":0,"end":1526330,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Typemaps/Cmd.pm"},{"start":1526330,"audio":0,"end":1551183,"filename":"/opt/perl/lib/5.28.1/ExtUtils/Liblist/Kid.pm"},{"start":1551183,"audio":0,"end":1558971,"filename":"/opt/perl/lib/5.28.1/Filter/Simple.pm"},{"start":1558971,"audio":0,"end":1753592,"filename":"/opt/perl/lib/5.28.1/B/Deparse.pm"},{"start":1753592,"audio":0,"end":1789216,"filename":"/opt/perl/lib/5.28.1/B/Op_private.pm"},{"start":1789216,"audio":0,"end":1799394,"filename":"/opt/perl/lib/5.28.1/B/Debug.pm"},{"start":1799394,"audio":0,"end":1814629,"filename":"/opt/perl/lib/5.28.1/Net/SMTP.pm"},{"start":1814629,"audio":0,"end":1816222,"filename":"/opt/perl/lib/5.28.1/Net/hostent.pm"},{"start":1816222,"audio":0,"end":1823078,"filename":"/opt/perl/lib/5.28.1/Net/Domain.pm"},{"start":1823078,"audio":0,"end":1824205,"filename":"/opt/perl/lib/5.28.1/Net/protoent.pm"},{"start":1824205,"audio":0,"end":1826251,"filename":"/opt/perl/lib/5.28.1/Net/Time.pm"},{"start":1826251,"audio":0,"end":1827453,"filename":"/opt/perl/lib/5.28.1/Net/servent.pm"},{"start":1827453,"audio":0,"end":1888058,"filename":"/opt/perl/lib/5.28.1/Net/Ping.pm"},{"start":1888058,"audio":0,"end":1903830,"filename":"/opt/perl/lib/5.28.1/Net/NNTP.pm"},{"start":1903830,"audio":0,"end":1936553,"filename":"/opt/perl/lib/5.28.1/Net/FTP.pm"},{"start":1936553,"audio":0,"end":1940594,"filename":"/opt/perl/lib/5.28.1/Net/Netrc.pm"},{"start":1940594,"audio":0,"end":1944275,"filename":"/opt/perl/lib/5.28.1/Net/Config.pm"},{"start":1944275,"audio":0,"end":1957388,"filename":"/opt/perl/lib/5.28.1/Net/Cmd.pm"},{"start":1957388,"audio":0,"end":1970503,"filename":"/opt/perl/lib/5.28.1/Net/POP3.pm"},{"start":1970503,"audio":0,"end":1971834,"filename":"/opt/perl/lib/5.28.1/Net/netent.pm"},{"start":1971834,"audio":0,"end":1974275,"filename":"/opt/perl/lib/5.28.1/Net/FTP/dataconn.pm"},{"start":1974275,"audio":0,"end":1975934,"filename":"/opt/perl/lib/5.28.1/Net/FTP/I.pm"},{"start":1975934,"audio":0,"end":1978334,"filename":"/opt/perl/lib/5.28.1/Net/FTP/A.pm"},{"start":1978334,"audio":0,"end":1978471,"filename":"/opt/perl/lib/5.28.1/Net/FTP/L.pm"},{"start":1978471,"audio":0,"end":1978608,"filename":"/opt/perl/lib/5.28.1/Net/FTP/E.pm"},{"start":1978608,"audio":0,"end":1979523,"filename":"/opt/perl/lib/5.28.1/Time/gmtime.pm"},{"start":1979523,"audio":0,"end":1980455,"filename":"/opt/perl/lib/5.28.1/Time/localtime.pm"},{"start":1980455,"audio":0,"end":1986022,"filename":"/opt/perl/lib/5.28.1/Time/Local.pm"},{"start":1986022,"audio":0,"end":1986219,"filename":"/opt/perl/lib/5.28.1/Time/tm.pm"},{"start":1986219,"audio":0,"end":1987877,"filename":"/opt/perl/lib/5.28.1/Perl/OSType.pm"},{"start":1987877,"audio":0,"end":1988917,"filename":"/opt/perl/lib/5.28.1/User/grent.pm"},{"start":1988917,"audio":0,"end":1994441,"filename":"/opt/perl/lib/5.28.1/User/pwent.pm"},{"start":1994441,"audio":0,"end":2002594,"filename":"/opt/perl/lib/5.28.1/Attribute/Handlers.pm"},{"start":2002594,"audio":0,"end":2003147,"filename":"/opt/perl/lib/5.28.1/Encode/README.e2x"},{"start":2003147,"audio":0,"end":2008315,"filename":"/opt/perl/lib/5.28.1/Encode/Makefile_PL.e2x"},{"start":2008315,"audio":0,"end":2008494,"filename":"/opt/perl/lib/5.28.1/Encode/Changes.e2x"},{"start":2008494,"audio":0,"end":2008678,"filename":"/opt/perl/lib/5.28.1/Encode/ConfigLocal_PM.e2x"},{"start":2008678,"audio":0,"end":2008928,"filename":"/opt/perl/lib/5.28.1/Encode/_PM.e2x"},{"start":2008928,"audio":0,"end":2009079,"filename":"/opt/perl/lib/5.28.1/Encode/_T.e2x"},{"start":2009079,"audio":0,"end":2013281,"filename":"/opt/perl/lib/5.28.1/Parse/CPAN/Meta.pm"},{"start":2013281,"audio":0,"end":2020943,"filename":"/opt/perl/lib/5.28.1/Thread/Queue.pm"},{"start":2020943,"audio":0,"end":2023525,"filename":"/opt/perl/lib/5.28.1/Thread/Semaphore.pm"},{"start":2023525,"audio":0,"end":2031446,"filename":"/opt/perl/lib/5.28.1/Future/Utils.pm"},{"start":2031446,"audio":0,"end":2032386,"filename":"/opt/perl/lib/5.28.1/Future/Mutex.pm"},{"start":2032386,"audio":0,"end":2043504,"filename":"/opt/perl/lib/5.28.1/I18N/LangTags.pm"},{"start":2043504,"audio":0,"end":2046997,"filename":"/opt/perl/lib/5.28.1/I18N/Collate.pm"},{"start":2046997,"audio":0,"end":2051315,"filename":"/opt/perl/lib/5.28.1/I18N/LangTags/List.pm"},{"start":2051315,"audio":0,"end":2055944,"filename":"/opt/perl/lib/5.28.1/I18N/LangTags/Detect.pm"},{"start":2055944,"audio":0,"end":2076806,"filename":"/opt/perl/lib/5.28.1/Pod/PlainText.pm"},{"start":2076806,"audio":0,"end":2080561,"filename":"/opt/perl/lib/5.28.1/Pod/ParseLink.pm"},{"start":2080561,"audio":0,"end":2108382,"filename":"/opt/perl/lib/5.28.1/Pod/Text.pm"},{"start":2108382,"audio":0,"end":2120623,"filename":"/opt/perl/lib/5.28.1/Pod/Escapes.pm"},{"start":2120623,"audio":0,"end":2133749,"filename":"/opt/perl/lib/5.28.1/Pod/Usage.pm"},{"start":2133749,"audio":0,"end":2144718,"filename":"/opt/perl/lib/5.28.1/Pod/Find.pm"},{"start":2144718,"audio":0,"end":2158012,"filename":"/opt/perl/lib/5.28.1/Pod/Functions.pm"},{"start":2158012,"audio":0,"end":2211939,"filename":"/opt/perl/lib/5.28.1/Pod/Simple.pm"},{"start":2211939,"audio":0,"end":2224298,"filename":"/opt/perl/lib/5.28.1/Pod/ParseUtils.pm"},{"start":2224298,"audio":0,"end":2249677,"filename":"/opt/perl/lib/5.28.1/Pod/Parser.pm"},{"start":2249677,"audio":0,"end":2271010,"filename":"/opt/perl/lib/5.28.1/Pod/Html.pm"},{"start":2271010,"audio":0,"end":2281315,"filename":"/opt/perl/lib/5.28.1/Pod/Select.pm"},{"start":2281315,"audio":0,"end":2294343,"filename":"/opt/perl/lib/5.28.1/Pod/InputObjects.pm"},{"start":2294343,"audio":0,"end":2313585,"filename":"/opt/perl/lib/5.28.1/Pod/Checker.pm"},{"start":2313585,"audio":0,"end":2377593,"filename":"/opt/perl/lib/5.28.1/Pod/Man.pm"},{"start":2377593,"audio":0,"end":2441374,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc.pm"},{"start":2441374,"audio":0,"end":2444403,"filename":"/opt/perl/lib/5.28.1/Pod/Text/Color.pm"},{"start":2444403,"audio":0,"end":2448798,"filename":"/opt/perl/lib/5.28.1/Pod/Text/Overstrike.pm"},{"start":2448798,"audio":0,"end":2453242,"filename":"/opt/perl/lib/5.28.1/Pod/Text/Termcap.pm"},{"start":2453242,"audio":0,"end":2474884,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Search.pm"},{"start":2474884,"audio":0,"end":2477224,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/DumpAsXML.pm"},{"start":2477224,"audio":0,"end":2480654,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Text.pm"},{"start":2480654,"audio":0,"end":2483405,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/TiedOutFH.pm"},{"start":2483405,"audio":0,"end":2502028,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/RTF.pm"},{"start":2502028,"audio":0,"end":2574626,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/BlackBox.pm"},{"start":2574626,"audio":0,"end":2576900,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/DumpAsText.pm"},{"start":2576900,"audio":0,"end":2577529,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Methody.pm"},{"start":2577529,"audio":0,"end":2591971,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/XHTML.pm"},{"start":2591971,"audio":0,"end":2622775,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/HTMLBatch.pm"},{"start":2622775,"audio":0,"end":2623605,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/TextContent.pm"},{"start":2623605,"audio":0,"end":2625237,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/LinkSection.pm"},{"start":2625237,"audio":0,"end":2627650,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Progress.pm"},{"start":2627650,"audio":0,"end":2629405,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Debug.pm"},{"start":2629405,"audio":0,"end":2629917,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/PullParserEndToken.pm"},{"start":2629917,"audio":0,"end":2648579,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/PullParser.pm"},{"start":2648579,"audio":0,"end":2649506,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/PullParserStartToken.pm"},{"start":2649506,"audio":0,"end":2677214,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/HTML.pm"},{"start":2677214,"audio":0,"end":2677929,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/TranscodeSmart.pm"},{"start":2677929,"audio":0,"end":2681509,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Checker.pm"},{"start":2681509,"audio":0,"end":2684172,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/XMLOutStream.pm"},{"start":2684172,"audio":0,"end":2686930,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/HTMLLegacy.pm"},{"start":2686930,"audio":0,"end":2687346,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/PullParserTextToken.pm"},{"start":2687346,"audio":0,"end":2688082,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/Transcode.pm"},{"start":2688082,"audio":0,"end":2689797,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/SimpleTree.pm"},{"start":2689797,"audio":0,"end":2690725,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/PullParserToken.pm"},{"start":2690725,"audio":0,"end":2693418,"filename":"/opt/perl/lib/5.28.1/Pod/Simple/TranscodeDumb.pm"},{"start":2693418,"audio":0,"end":2693919,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToChecker.pm"},{"start":2693919,"audio":0,"end":2694465,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToRtf.pm"},{"start":2694465,"audio":0,"end":2695521,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToText.pm"},{"start":2695521,"audio":0,"end":2696596,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToANSI.pm"},{"start":2696596,"audio":0,"end":2696868,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToXml.pm"},{"start":2696868,"audio":0,"end":2699103,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/GetOptsOO.pm"},{"start":2699103,"audio":0,"end":2700560,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToNroff.pm"},{"start":2700560,"audio":0,"end":2703070,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToTerm.pm"},{"start":2703070,"audio":0,"end":2703977,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToPod.pm"},{"start":2703977,"audio":0,"end":2707300,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToTk.pm"},{"start":2707300,"audio":0,"end":2709799,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/BaseTo.pm"},{"start":2709799,"audio":0,"end":2722679,"filename":"/opt/perl/lib/5.28.1/Pod/Perldoc/ToMan.pm"},{"start":2722679,"audio":0,"end":2729446,"filename":"/opt/perl/lib/5.28.1/Class/Struct.pm"},{"start":2729446,"audio":0,"end":2784344,"filename":"/opt/perl/lib/5.28.1/HTTP/Tiny.pm"},{"start":2784344,"audio":0,"end":2785743,"filename":"/opt/perl/lib/5.28.1/PerlIO/via/QuotedPrint.pm"},{"start":2785743,"audio":0,"end":2790234,"filename":"/opt/perl/lib/5.28.1/Text/ParseWords.pm"},{"start":2790234,"audio":0,"end":2816110,"filename":"/opt/perl/lib/5.28.1/Text/Balanced.pm"},{"start":2816110,"audio":0,"end":2817813,"filename":"/opt/perl/lib/5.28.1/Text/Tabs.pm"},{"start":2817813,"audio":0,"end":2819291,"filename":"/opt/perl/lib/5.28.1/Text/Abbrev.pm"},{"start":2819291,"audio":0,"end":2822213,"filename":"/opt/perl/lib/5.28.1/Text/Wrap.pm"},{"start":2822213,"audio":0,"end":2831269,"filename":"/opt/perl/lib/5.28.1/IPC/Open3.pm"},{"start":2831269,"audio":0,"end":2882179,"filename":"/opt/perl/lib/5.28.1/IPC/Cmd.pm"},{"start":2882179,"audio":0,"end":2882996,"filename":"/opt/perl/lib/5.28.1/IPC/Open2.pm"},{"start":2882996,"audio":0,"end":2885142,"filename":"/opt/perl/lib/5.28.1/Devel/SelfStubber.pm"},{"start":2885142,"audio":0,"end":2891232,"filename":"/opt/perl/lib/5.28.1/Devel/StackTrace.pm"},{"start":2891232,"audio":0,"end":2895823,"filename":"/opt/perl/lib/5.28.1/Devel/StackTrace/Frame.pm"},{"start":2895823,"audio":0,"end":2983440,"filename":"/opt/perl/lib/5.28.1/Unicode/UCD.pm"},{"start":2983440,"audio":0,"end":3003868,"filename":"/opt/perl/lib/5.28.1/TAP/Parser.pm"},{"start":3003868,"audio":0,"end":3005300,"filename":"/opt/perl/lib/5.28.1/TAP/Base.pm"},{"start":3005300,"audio":0,"end":3018846,"filename":"/opt/perl/lib/5.28.1/TAP/Harness.pm"},{"start":3018846,"audio":0,"end":3019914,"filename":"/opt/perl/lib/5.28.1/TAP/Object.pm"},{"start":3019914,"audio":0,"end":3023986,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Session.pm"},{"start":3023986,"audio":0,"end":3025603,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Console.pm"},{"start":3025603,"audio":0,"end":3026098,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/File.pm"},{"start":3026098,"audio":0,"end":3027190,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Color.pm"},{"start":3027190,"audio":0,"end":3035917,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Base.pm"},{"start":3035917,"audio":0,"end":3041104,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Console/Session.pm"},{"start":3041104,"audio":0,"end":3044759,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/Console/ParallelSession.pm"},{"start":3044759,"audio":0,"end":3046450,"filename":"/opt/perl/lib/5.28.1/TAP/Formatter/File/Session.pm"},{"start":3046450,"audio":0,"end":3049675,"filename":"/opt/perl/lib/5.28.1/TAP/Harness/Env.pm"},{"start":3049675,"audio":0,"end":3054198,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/IteratorFactory.pm"},{"start":3054198,"audio":0,"end":3055081,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Iterator.pm"},{"start":3055081,"audio":0,"end":3057409,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Multiplexer.pm"},{"start":3057409,"audio":0,"end":3058828,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/ResultFactory.pm"},{"start":3058828,"audio":0,"end":3065494,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Scheduler.pm"},{"start":3065494,"audio":0,"end":3075800,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Grammar.pm"},{"start":3075800,"audio":0,"end":3080525,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Source.pm"},{"start":3080525,"audio":0,"end":3082611,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result.pm"},{"start":3082611,"audio":0,"end":3083080,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler.pm"},{"start":3083080,"audio":0,"end":3087781,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Aggregator.pm"},{"start":3087781,"audio":0,"end":3088345,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Iterator/Array.pm"},{"start":3088345,"audio":0,"end":3095657,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Iterator/Process.pm"},{"start":3095657,"audio":0,"end":3096489,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Iterator/Stream.pm"},{"start":3096489,"audio":0,"end":3102745,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/YAMLish/Reader.pm"},{"start":3102745,"audio":0,"end":3105810,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/YAMLish/Writer.pm"},{"start":3105810,"audio":0,"end":3106565,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Scheduler/Job.pm"},{"start":3106565,"audio":0,"end":3106724,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Scheduler/Spinner.pm"},{"start":3106724,"audio":0,"end":3109163,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Test.pm"},{"start":3109163,"audio":0,"end":3109397,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/YAML.pm"},{"start":3109397,"audio":0,"end":3109640,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Version.pm"},{"start":3109640,"audio":0,"end":3109916,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Comment.pm"},{"start":3109916,"audio":0,"end":3110200,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Bailout.pm"},{"start":3110200,"audio":0,"end":3110328,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Unknown.pm"},{"start":3110328,"audio":0,"end":3110639,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Pragma.pm"},{"start":3110639,"audio":0,"end":3111298,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/Result/Plan.pm"},{"start":3111298,"audio":0,"end":3112887,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler/Executable.pm"},{"start":3112887,"audio":0,"end":3113965,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler/RawTAP.pm"},{"start":3113965,"audio":0,"end":3120092,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler/Perl.pm"},{"start":3120092,"audio":0,"end":3121217,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler/File.pm"},{"start":3121217,"audio":0,"end":3122076,"filename":"/opt/perl/lib/5.28.1/TAP/Parser/SourceHandler/Handle.pm"},{"start":3122076,"audio":0,"end":3124211,"filename":"/opt/perl/lib/5.28.1/Search/Dict.pm"},{"start":3124211,"audio":0,"end":3141041,"filename":"/opt/perl/lib/5.28.1/unicore/SpecialCasing.txt"},{"start":3141041,"audio":0,"end":3160046,"filename":"/opt/perl/lib/5.28.1/unicore/NamedSequences.txt"},{"start":3160046,"audio":0,"end":3280008,"filename":"/opt/perl/lib/5.28.1/unicore/UCD.pl"},{"start":3280008,"audio":0,"end":4282714,"filename":"/opt/perl/lib/5.28.1/unicore/Name.pl"},{"start":4282714,"audio":0,"end":4282721,"filename":"/opt/perl/lib/5.28.1/unicore/version"},{"start":4282721,"audio":0,"end":4292312,"filename":"/opt/perl/lib/5.28.1/unicore/Name.pm"},{"start":4292312,"audio":0,"end":4301796,"filename":"/opt/perl/lib/5.28.1/unicore/Blocks.txt"},{"start":4301796,"audio":0,"end":4440015,"filename":"/opt/perl/lib/5.28.1/unicore/Heavy.pl"},{"start":4440015,"audio":0,"end":4549134,"filename":"/opt/perl/lib/5.28.1/unicore/Decomposition.pl"},{"start":4549134,"audio":0,"end":4553501,"filename":"/opt/perl/lib/5.28.1/unicore/CombiningClass.pl"},{"start":4553501,"audio":0,"end":4569014,"filename":"/opt/perl/lib/5.28.1/unicore/To/Cf.pl"},{"start":4569014,"audio":0,"end":4592776,"filename":"/opt/perl/lib/5.28.1/unicore/To/Fold.pl"},{"start":4592776,"audio":0,"end":4612232,"filename":"/opt/perl/lib/5.28.1/unicore/To/_PerlSCX.pl"},{"start":4612232,"audio":0,"end":4631717,"filename":"/opt/perl/lib/5.28.1/unicore/To/GCB.pl"},{"start":4631717,"audio":0,"end":4662639,"filename":"/opt/perl/lib/5.28.1/unicore/To/_PerlLB.pl"},{"start":4662639,"audio":0,"end":5061963,"filename":"/opt/perl/lib/5.28.1/unicore/To/NFKCCF.pl"},{"start":5061963,"audio":0,"end":5075503,"filename":"/opt/perl/lib/5.28.1/unicore/To/Vo.pl"},{"start":5075503,"audio":0,"end":5079359,"filename":"/opt/perl/lib/5.28.1/unicore/To/Ea.pl"},{"start":5079359,"audio":0,"end":5094697,"filename":"/opt/perl/lib/5.28.1/unicore/To/Uc.pl"},{"start":5094697,"audio":0,"end":5111859,"filename":"/opt/perl/lib/5.28.1/unicore/To/WB.pl"},{"start":5111859,"audio":0,"end":5144975,"filename":"/opt/perl/lib/5.28.1/unicore/To/Gc.pl"},{"start":5144975,"audio":0,"end":5148690,"filename":"/opt/perl/lib/5.28.1/unicore/To/NFKCQC.pl"},{"start":5148690,"audio":0,"end":5162306,"filename":"/opt/perl/lib/5.28.1/unicore/To/NameAlia.pl"},{"start":5162306,"audio":0,"end":5170857,"filename":"/opt/perl/lib/5.28.1/unicore/To/InPC.pl"},{"start":5170857,"audio":0,"end":5179385,"filename":"/opt/perl/lib/5.28.1/unicore/To/Bc.pl"},{"start":5179385,"audio":0,"end":5195383,"filename":"/opt/perl/lib/5.28.1/unicore/To/Sc.pl"},{"start":5195383,"audio":0,"end":5214054,"filename":"/opt/perl/lib/5.28.1/unicore/To/Scx.pl"},{"start":5214054,"audio":0,"end":5217458,"filename":"/opt/perl/lib/5.28.1/unicore/To/Jg.pl"},{"start":5217458,"audio":0,"end":5232569,"filename":"/opt/perl/lib/5.28.1/unicore/To/InSC.pl"},{"start":5232569,"audio":0,"end":5238603,"filename":"/opt/perl/lib/5.28.1/unicore/To/Digit.pl"},{"start":5238603,"audio":0,"end":5239402,"filename":"/opt/perl/lib/5.28.1/unicore/To/Isc.pl"},{"start":5239402,"audio":0,"end":5241080,"filename":"/opt/perl/lib/5.28.1/unicore/To/PerlDeci.pl"},{"start":5241080,"audio":0,"end":5242773,"filename":"/opt/perl/lib/5.28.1/unicore/To/Bpt.pl"},{"start":5242773,"audio":0,"end":5250551,"filename":"/opt/perl/lib/5.28.1/unicore/To/Nv.pl"},{"start":5250551,"audio":0,"end":5270471,"filename":"/opt/perl/lib/5.28.1/unicore/To/Title.pl"},{"start":5270471,"audio":0,"end":5275590,"filename":"/opt/perl/lib/5.28.1/unicore/To/Bmg.pl"},{"start":5275590,"audio":0,"end":5307902,"filename":"/opt/perl/lib/5.28.1/unicore/To/SB.pl"},{"start":5307902,"audio":0,"end":5331197,"filename":"/opt/perl/lib/5.28.1/unicore/To/Upper.pl"},{"start":5331197,"audio":0,"end":5335917,"filename":"/opt/perl/lib/5.28.1/unicore/To/NFKDQC.pl"},{"start":5335917,"audio":0,"end":5353275,"filename":"/opt/perl/lib/5.28.1/unicore/To/_PerlWB.pl"},{"start":5353275,"audio":0,"end":5355401,"filename":"/opt/perl/lib/5.28.1/unicore/To/Bpb.pl"},{"start":5355401,"audio":0,"end":5367067,"filename":"/opt/perl/lib/5.28.1/unicore/To/Tc.pl"},{"start":5367067,"audio":0,"end":5377066,"filename":"/opt/perl/lib/5.28.1/unicore/To/Hst.pl"},{"start":5377066,"audio":0,"end":5382304,"filename":"/opt/perl/lib/5.28.1/unicore/To/Jt.pl"},{"start":5382304,"audio":0,"end":5445868,"filename":"/opt/perl/lib/5.28.1/unicore/To/Na1.pl"},{"start":5445868,"audio":0,"end":5448789,"filename":"/opt/perl/lib/5.28.1/unicore/To/NFDQC.pl"},{"start":5448789,"audio":0,"end":5450541,"filename":"/opt/perl/lib/5.28.1/unicore/To/NFCQC.pl"},{"start":5450541,"audio":0,"end":5481465,"filename":"/opt/perl/lib/5.28.1/unicore/To/Lb.pl"},{"start":5481465,"audio":0,"end":5500726,"filename":"/opt/perl/lib/5.28.1/unicore/To/Age.pl"},{"start":5500726,"audio":0,"end":5517172,"filename":"/opt/perl/lib/5.28.1/unicore/To/Lower.pl"},{"start":5517172,"audio":0,"end":5525406,"filename":"/opt/perl/lib/5.28.1/unicore/To/Lc.pl"},{"start":5525406,"audio":0,"end":5529734,"filename":"/opt/perl/lib/5.28.1/unicore/To/Nt.pl"},{"start":5529734,"audio":0,"end":5530357,"filename":"/opt/perl/lib/5.28.1/unicore/lib/QMark/Y.pl"},{"start":5530357,"audio":0,"end":5538615,"filename":"/opt/perl/lib/5.28.1/unicore/lib/IDC/Y.pl"},{"start":5538615,"audio":0,"end":5539941,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V40.pl"},{"start":5539941,"audio":0,"end":5541371,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V41.pl"},{"start":5541371,"audio":0,"end":5543081,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V30.pl"},{"start":5543081,"audio":0,"end":5543923,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V20.pl"},{"start":5543923,"audio":0,"end":5544794,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V50.pl"},{"start":5544794,"audio":0,"end":5546008,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V80.pl"},{"start":5546008,"audio":0,"end":5547149,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V90.pl"},{"start":5547149,"audio":0,"end":5549363,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V70.pl"},{"start":5549363,"audio":0,"end":5552811,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V11.pl"},{"start":5552811,"audio":0,"end":5553927,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V32.pl"},{"start":5553927,"audio":0,"end":5555387,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V51.pl"},{"start":5555387,"audio":0,"end":5563520,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/NA.pl"},{"start":5563520,"audio":0,"end":5565146,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V61.pl"},{"start":5565146,"audio":0,"end":5566686,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V52.pl"},{"start":5566686,"audio":0,"end":5567667,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V100.pl"},{"start":5567667,"audio":0,"end":5568646,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V31.pl"},{"start":5568646,"audio":0,"end":5570462,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Age/V60.pl"},{"start":5570462,"audio":0,"end":5570992,"filename":"/opt/perl/lib/5.28.1/unicore/lib/BidiC/Y.pl"},{"start":5570992,"audio":0,"end":5578164,"filename":"/opt/perl/lib/5.28.1/unicore/lib/XIDS/Y.pl"},{"start":5578164,"audio":0,"end":5578833,"filename":"/opt/perl/lib/5.28.1/unicore/lib/UIdeo/Y.pl"},{"start":5578833,"audio":0,"end":5579680,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CE/Y.pl"},{"start":5579680,"audio":0,"end":5586635,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Upper/Y.pl"},{"start":5586635,"audio":0,"end":5594977,"filename":"/opt/perl/lib/5.28.1/unicore/lib/XIDC/Y.pl"},{"start":5594977,"audio":0,"end":5599769,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFKDQC/N.pl"},{"start":5599769,"audio":0,"end":5604563,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFKDQC/Y.pl"},{"start":5604563,"audio":0,"end":5611116,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWU/Y.pl"},{"start":5611116,"audio":0,"end":5611679,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Cprt.pl"},{"start":5611679,"audio":0,"end":5612481,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Latn.pl"},{"start":5612481,"audio":0,"end":5613322,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Grek.pl"},{"start":5613322,"audio":0,"end":5614029,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Han.pl"},{"start":5614029,"audio":0,"end":5614660,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Gujr.pl"},{"start":5614660,"audio":0,"end":5615331,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Gran.pl"},{"start":5615331,"audio":0,"end":5616545,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Arab.pl"},{"start":5616545,"audio":0,"end":5617196,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Taml.pl"},{"start":5617196,"audio":0,"end":5617749,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Armn.pl"},{"start":5617749,"audio":0,"end":5618310,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Dupl.pl"},{"start":5618310,"audio":0,"end":5618851,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Limb.pl"},{"start":5618851,"audio":0,"end":5619440,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Kana.pl"},{"start":5619440,"audio":0,"end":5620071,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Knda.pl"},{"start":5620071,"audio":0,"end":5620692,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Telu.pl"},{"start":5620692,"audio":0,"end":5623152,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Zyyy.pl"},{"start":5623152,"audio":0,"end":5623783,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Beng.pl"},{"start":5623783,"audio":0,"end":5624313,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Syrc.pl"},{"start":5624313,"audio":0,"end":5624890,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Geor.pl"},{"start":5624890,"audio":0,"end":5625453,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Mong.pl"},{"start":5625453,"audio":0,"end":5626024,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Mlym.pl"},{"start":5626024,"audio":0,"end":5626556,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Deva.pl"},{"start":5626556,"audio":0,"end":5627098,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Hira.pl"},{"start":5627098,"audio":0,"end":5627721,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Sinh.pl"},{"start":5627721,"audio":0,"end":5628272,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Mult.pl"},{"start":5628272,"audio":0,"end":5628847,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Linb.pl"},{"start":5628847,"audio":0,"end":5629504,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Hang.pl"},{"start":5629504,"audio":0,"end":5630135,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Orya.pl"},{"start":5630135,"audio":0,"end":5630926,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Zinh.pl"},{"start":5630926,"audio":0,"end":5631503,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Cyrl.pl"},{"start":5631503,"audio":0,"end":5632088,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Glag.pl"},{"start":5632088,"audio":0,"end":5632739,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Sc/Guru.pl"},{"start":5632739,"audio":0,"end":5634373,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWCM/Y.pl"},{"start":5634373,"audio":0,"end":5635006,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/MN.pl"},{"start":5635006,"audio":0,"end":5635613,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/HL.pl"},{"start":5635613,"audio":0,"end":5639043,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/Extend.pl"},{"start":5639043,"audio":0,"end":5639720,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/FO.pl"},{"start":5639720,"audio":0,"end":5640283,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/EX.pl"},{"start":5640283,"audio":0,"end":5649312,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/XX.pl"},{"start":5649312,"audio":0,"end":5655531,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/LE.pl"},{"start":5655531,"audio":0,"end":5656132,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/KA.pl"},{"start":5656132,"audio":0,"end":5656701,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/ML.pl"},{"start":5656701,"audio":0,"end":5657793,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/NU.pl"},{"start":5657793,"audio":0,"end":5658346,"filename":"/opt/perl/lib/5.28.1/unicore/lib/WB/MB.pl"},{"start":5658346,"audio":0,"end":5658919,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/2_3.pl"},{"start":5658919,"audio":0,"end":5660685,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/4.pl"},{"start":5660685,"audio":0,"end":5662537,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/2.pl"},{"start":5662537,"audio":0,"end":5664105,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/8.pl"},{"start":5664105,"audio":0,"end":5664716,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/90.pl"},{"start":5664716,"audio":0,"end":5665339,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/60.pl"},{"start":5665339,"audio":0,"end":5666194,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/20.pl"},{"start":5666194,"audio":0,"end":5666817,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/70.pl"},{"start":5666817,"audio":0,"end":5667430,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1_4.pl"},{"start":5667430,"audio":0,"end":5668025,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/10000.pl"},{"start":5668025,"audio":0,"end":5668566,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/19.pl"},{"start":5668566,"audio":0,"end":5669177,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/80.pl"},{"start":5669177,"audio":0,"end":5669728,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/11.pl"},{"start":5669728,"audio":0,"end":5670415,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/40.pl"},{"start":5670415,"audio":0,"end":5671040,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1_2.pl"},{"start":5671040,"audio":0,"end":5671578,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/700.pl"},{"start":5671578,"audio":0,"end":5673428,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1.pl"},{"start":5673428,"audio":0,"end":5673966,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/200.pl"},{"start":5673966,"audio":0,"end":5674527,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1_3.pl"},{"start":5674527,"audio":0,"end":5675068,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/16.pl"},{"start":5675068,"audio":0,"end":5675598,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/14.pl"},{"start":5675598,"audio":0,"end":5676136,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/800.pl"},{"start":5676136,"audio":0,"end":5677742,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/7.pl"},{"start":5677742,"audio":0,"end":5678272,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/13.pl"},{"start":5678272,"audio":0,"end":5679912,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/6.pl"},{"start":5679912,"audio":0,"end":5681506,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/9.pl"},{"start":5681506,"audio":0,"end":5682279,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/50.pl"},{"start":5682279,"audio":0,"end":5682834,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1_8.pl"},{"start":5682834,"audio":0,"end":5683372,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/600.pl"},{"start":5683372,"audio":0,"end":5683923,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/900.pl"},{"start":5683923,"audio":0,"end":5684453,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/15.pl"},{"start":5684453,"audio":0,"end":5685018,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/3_4.pl"},{"start":5685018,"audio":0,"end":5685559,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/17.pl"},{"start":5685559,"audio":0,"end":5686110,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/300.pl"},{"start":5686110,"audio":0,"end":5686795,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/30.pl"},{"start":5686795,"audio":0,"end":5687356,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/5000.pl"},{"start":5687356,"audio":0,"end":5689190,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/3.pl"},{"start":5689190,"audio":0,"end":5689901,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1000.pl"},{"start":5689901,"audio":0,"end":5690439,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/400.pl"},{"start":5690439,"audio":0,"end":5690980,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/18.pl"},{"start":5690980,"audio":0,"end":5692056,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/10.pl"},{"start":5692056,"audio":0,"end":5692663,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/500.pl"},{"start":5692663,"audio":0,"end":5693212,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/50000.pl"},{"start":5693212,"audio":0,"end":5694520,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/0.pl"},{"start":5694520,"audio":0,"end":5695052,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/1_16.pl"},{"start":5695052,"audio":0,"end":5695584,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/3_16.pl"},{"start":5695584,"audio":0,"end":5697370,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/5.pl"},{"start":5697370,"audio":0,"end":5698211,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/100.pl"},{"start":5698211,"audio":0,"end":5698762,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nv/12.pl"},{"start":5698762,"audio":0,"end":5705289,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWCF/Y.pl"},{"start":5705289,"audio":0,"end":5705980,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Cf.pl"},{"start":5705980,"audio":0,"end":5706753,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Sk.pl"},{"start":5706753,"audio":0,"end":5714746,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Cn.pl"},{"start":5714746,"audio":0,"end":5715303,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Zs.pl"},{"start":5715303,"audio":0,"end":5715932,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Nl.pl"},{"start":5715932,"audio":0,"end":5722825,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Lu.pl"},{"start":5722825,"audio":0,"end":5725802,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/S.pl"},{"start":5725802,"audio":0,"end":5727156,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Ps.pl"},{"start":5727156,"audio":0,"end":5730550,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/M.pl"},{"start":5730550,"audio":0,"end":5731742,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Sm.pl"},{"start":5731742,"audio":0,"end":5734084,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Po.pl"},{"start":5734084,"audio":0,"end":5735876,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/N.pl"},{"start":5735876,"audio":0,"end":5736980,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Lm.pl"},{"start":5736980,"audio":0,"end":5737647,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Sc.pl"},{"start":5737647,"audio":0,"end":5744731,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/L.pl"},{"start":5744731,"audio":0,"end":5745332,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Pf.pl"},{"start":5745332,"audio":0,"end":5747230,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/LC.pl"},{"start":5747230,"audio":0,"end":5752913,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Lo.pl"},{"start":5752913,"audio":0,"end":5753456,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Me.pl"},{"start":5753456,"audio":0,"end":5757272,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Mn.pl"},{"start":5757272,"audio":0,"end":5764237,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Ll.pl"},{"start":5764237,"audio":0,"end":5766599,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/P.pl"},{"start":5766599,"audio":0,"end":5767771,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/No.pl"},{"start":5767771,"audio":0,"end":5775780,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/C.pl"},{"start":5775780,"audio":0,"end":5777102,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Pe.pl"},{"start":5777102,"audio":0,"end":5777669,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Z.pl"},{"start":5777669,"audio":0,"end":5778280,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Pi.pl"},{"start":5778280,"audio":0,"end":5778959,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Pd.pl"},{"start":5778959,"audio":0,"end":5779512,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Pc.pl"},{"start":5779512,"audio":0,"end":5782023,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/So.pl"},{"start":5782023,"audio":0,"end":5784263,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Mc.pl"},{"start":5784263,"audio":0,"end":5785357,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Gc/Nd.pl"},{"start":5785357,"audio":0,"end":5792545,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlIDS.pl"},{"start":5792545,"audio":0,"end":5799701,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlCha.pl"},{"start":5799701,"audio":0,"end":5801415,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlAny.pl"},{"start":5801415,"audio":0,"end":5809459,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Graph.pl"},{"start":5809459,"audio":0,"end":5817773,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Word.pl"},{"start":5817773,"audio":0,"end":5818368,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlPro.pl"},{"start":5818368,"audio":0,"end":5826710,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlIDC.pl"},{"start":5826710,"audio":0,"end":5827483,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlFol.pl"},{"start":5827483,"audio":0,"end":5828045,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Blank.pl"},{"start":5828045,"audio":0,"end":5828628,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Title.pl"},{"start":5828628,"audio":0,"end":5829158,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlPat.pl"},{"start":5829158,"audio":0,"end":5837153,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Assigned.pl"},{"start":5837153,"audio":0,"end":5845445,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Alnum.pl"},{"start":5845445,"audio":0,"end":5853459,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/Print.pl"},{"start":5853459,"audio":0,"end":5854039,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/SpacePer.pl"},{"start":5854039,"audio":0,"end":5854920,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlQuo.pl"},{"start":5854920,"audio":0,"end":5863280,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlCh2.pl"},{"start":5863280,"audio":0,"end":5863795,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/PerlWord.pl"},{"start":5863795,"audio":0,"end":5864398,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlPr2.pl"},{"start":5864398,"audio":0,"end":5864914,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/PosixPun.pl"},{"start":5864914,"audio":0,"end":5867244,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/XPosixPu.pl"},{"start":5867244,"audio":0,"end":5867987,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Perl/_PerlNch.pl"},{"start":5867987,"audio":0,"end":5874388,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWL/Y.pl"},{"start":5874388,"audio":0,"end":5879129,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/3_2.pl"},{"start":5879129,"audio":0,"end":5886795,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/8_0.pl"},{"start":5886795,"audio":0,"end":5891146,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/3_0.pl"},{"start":5891146,"audio":0,"end":5897408,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/6_0.pl"},{"start":5897408,"audio":0,"end":5905403,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/9_0.pl"},{"start":5905403,"audio":0,"end":5912163,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/6_3.pl"},{"start":5912163,"audio":0,"end":5915910,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/2_1.pl"},{"start":5915910,"audio":0,"end":5922670,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/6_1.pl"},{"start":5922670,"audio":0,"end":5927473,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/3_1.pl"},{"start":5927473,"audio":0,"end":5932644,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/4_1.pl"},{"start":5932644,"audio":0,"end":5937943,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/5_0.pl"},{"start":5937943,"audio":0,"end":5945459,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/7_0.pl"},{"start":5945459,"audio":0,"end":5953594,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/10_0.pl"},{"start":5953594,"audio":0,"end":5959597,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/5_2.pl"},{"start":5959597,"audio":0,"end":5963344,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/2_0.pl"},{"start":5963344,"audio":0,"end":5968269,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/4_0.pl"},{"start":5968269,"audio":0,"end":5975029,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/6_2.pl"},{"start":5975029,"audio":0,"end":5980520,"filename":"/opt/perl/lib/5.28.1/unicore/lib/In/5_1.pl"},{"start":5980520,"audio":0,"end":5981335,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ext/Y.pl"},{"start":5981335,"audio":0,"end":5983554,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ea/A.pl"},{"start":5983554,"audio":0,"end":5985333,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ea/W.pl"},{"start":5985333,"audio":0,"end":5988666,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ea/N.pl"},{"start":5988666,"audio":0,"end":5989239,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ea/H.pl"},{"start":5989239,"audio":0,"end":5989793,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ea/Na.pl"},{"start":5989793,"audio":0,"end":5990408,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/EN.pl"},{"start":5990408,"audio":0,"end":5991271,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/R.pl"},{"start":5991271,"audio":0,"end":5991826,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/WS.pl"},{"start":5991826,"audio":0,"end":5997172,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/L.pl"},{"start":5997172,"audio":0,"end":5997791,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/CS.pl"},{"start":5997791,"audio":0,"end":5998674,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/BN.pl"},{"start":5998674,"audio":0,"end":6001155,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/ON.pl"},{"start":6001155,"audio":0,"end":6004919,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/NSM.pl"},{"start":6004919,"audio":0,"end":6005472,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/AN.pl"},{"start":6005472,"audio":0,"end":6005999,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/B.pl"},{"start":6005999,"audio":0,"end":6006580,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/ES.pl"},{"start":6006580,"audio":0,"end":6007295,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/ET.pl"},{"start":6007295,"audio":0,"end":6008014,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bc/AL.pl"},{"start":6008014,"audio":0,"end":6008941,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/Left.pl"},{"start":6008941,"audio":0,"end":6009473,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/TopAndL2.pl"},{"start":6009473,"audio":0,"end":6010040,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/VisualOr.pl"},{"start":6010040,"audio":0,"end":6012436,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/Top.pl"},{"start":6012436,"audio":0,"end":6012970,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/Overstru.pl"},{"start":6012970,"audio":0,"end":6013599,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/LeftAndR.pl"},{"start":6013599,"audio":0,"end":6016143,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/NA.pl"},{"start":6016143,"audio":0,"end":6018267,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/Right.pl"},{"start":6018267,"audio":0,"end":6020195,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/Bottom.pl"},{"start":6020195,"audio":0,"end":6020780,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/TopAndRi.pl"},{"start":6020780,"audio":0,"end":6021333,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/TopAndBo.pl"},{"start":6021333,"audio":0,"end":6021888,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InPC/TopAndLe.pl"},{"start":6021888,"audio":0,"end":6022509,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/QU.pl"},{"start":6022509,"audio":0,"end":6023963,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/CL.pl"},{"start":6023963,"audio":0,"end":6024558,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/GL.pl"},{"start":6024558,"audio":0,"end":6025485,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/SA.pl"},{"start":6025485,"audio":0,"end":6026188,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/PR.pl"},{"start":6026188,"audio":0,"end":6026935,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/EX.pl"},{"start":6026935,"audio":0,"end":6034361,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/XX.pl"},{"start":6034361,"audio":0,"end":6035817,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/OP.pl"},{"start":6035817,"audio":0,"end":6038308,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/ID.pl"},{"start":6038308,"audio":0,"end":6038999,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/NS.pl"},{"start":6038999,"audio":0,"end":6039692,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/PO.pl"},{"start":6039692,"audio":0,"end":6040226,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/IN.pl"},{"start":6040226,"audio":0,"end":6041017,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/CJ.pl"},{"start":6041017,"audio":0,"end":6042599,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/AI.pl"},{"start":6042599,"audio":0,"end":6044120,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/BA.pl"},{"start":6044120,"audio":0,"end":6047372,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/CM.pl"},{"start":6047372,"audio":0,"end":6048299,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/EB.pl"},{"start":6048299,"audio":0,"end":6048880,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/IS.pl"},{"start":6048880,"audio":0,"end":6057446,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/AL.pl"},{"start":6057446,"audio":0,"end":6058159,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lb/BB.pl"},{"start":6058159,"audio":0,"end":6058710,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Hst/NA.pl"},{"start":6058710,"audio":0,"end":6059888,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bpt/O.pl"},{"start":6059888,"audio":0,"end":6060689,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bpt/N.pl"},{"start":6060689,"audio":0,"end":6061867,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Bpt/C.pl"},{"start":6061867,"audio":0,"end":6062462,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Hyphen/T.pl"},{"start":6062462,"audio":0,"end":6063913,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Vo/R.pl"},{"start":6063913,"audio":0,"end":6064570,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Vo/Tr.pl"},{"start":6064570,"audio":0,"end":6066487,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Vo/U.pl"},{"start":6066487,"audio":0,"end":6067388,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Vo/Tu.pl"},{"start":6067388,"audio":0,"end":6068107,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dash/Y.pl"},{"start":6068107,"audio":0,"end":6069825,"filename":"/opt/perl/lib/5.28.1/unicore/lib/BidiM/Y.pl"},{"start":6069825,"audio":0,"end":6070371,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Hex/Y.pl"},{"start":6070371,"audio":0,"end":6079910,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GrBase/Y.pl"},{"start":6079910,"audio":0,"end":6080658,"filename":"/opt/perl/lib/5.28.1/unicore/lib/PatSyn/Y.pl"},{"start":6080658,"audio":0,"end":6081358,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ideo/Y.pl"},{"start":6081358,"audio":0,"end":6082451,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Blk/NB.pl"},{"start":6082451,"audio":0,"end":6085337,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFDQC/N.pl"},{"start":6085337,"audio":0,"end":6088225,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFDQC/Y.pl"},{"start":6088225,"audio":0,"end":6089188,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/CL.pl"},{"start":6089188,"audio":0,"end":6089875,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/FO.pl"},{"start":6089875,"audio":0,"end":6093305,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/EX.pl"},{"start":6093305,"audio":0,"end":6102364,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/XX.pl"},{"start":6102364,"audio":0,"end":6108291,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/LE.pl"},{"start":6108291,"audio":0,"end":6115276,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/UP.pl"},{"start":6115276,"audio":0,"end":6115971,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/SC.pl"},{"start":6115971,"audio":0,"end":6117063,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/NU.pl"},{"start":6117063,"audio":0,"end":6118285,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/ST.pl"},{"start":6118285,"audio":0,"end":6118815,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/AT.pl"},{"start":6118815,"audio":0,"end":6119383,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/Sp.pl"},{"start":6119383,"audio":0,"end":6126398,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SB/LO.pl"},{"start":6126398,"audio":0,"end":6127241,"filename":"/opt/perl/lib/5.28.1/unicore/lib/SD/Y.pl"},{"start":6127241,"audio":0,"end":6129931,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nt/None.pl"},{"start":6129931,"audio":0,"end":6130634,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nt/Di.pl"},{"start":6130634,"audio":0,"end":6132806,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Nt/Nu.pl"},{"start":6132806,"audio":0,"end":6139829,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Lower/Y.pl"},{"start":6139829,"audio":0,"end":6140392,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Nar.pl"},{"start":6140392,"audio":0,"end":6143050,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/NonCanon.pl"},{"start":6143050,"audio":0,"end":6144718,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Iso.pl"},{"start":6144718,"audio":0,"end":6145858,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Med.pl"},{"start":6145858,"audio":0,"end":6147108,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Com.pl"},{"start":6147108,"audio":0,"end":6148956,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Fin.pl"},{"start":6148956,"audio":0,"end":6149543,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Enc.pl"},{"start":6149543,"audio":0,"end":6150282,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Sup.pl"},{"start":6150282,"audio":0,"end":6151674,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Init.pl"},{"start":6151674,"audio":0,"end":6153054,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Font.pl"},{"start":6153054,"audio":0,"end":6153593,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Nb.pl"},{"start":6153593,"audio":0,"end":6154144,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Vert.pl"},{"start":6154144,"audio":0,"end":6154751,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Sqr.pl"},{"start":6154751,"audio":0,"end":6155283,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dt/Sub.pl"},{"start":6155283,"audio":0,"end":6156178,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFCQC/M.pl"},{"start":6156178,"audio":0,"end":6157820,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFCQC/Y.pl"},{"start":6157820,"audio":0,"end":6158431,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/OV.pl"},{"start":6158431,"audio":0,"end":6160087,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/A.pl"},{"start":6160087,"audio":0,"end":6161112,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/VR.pl"},{"start":6161112,"audio":0,"end":6161636,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/DB.pl"},{"start":6161636,"audio":0,"end":6162168,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/BR.pl"},{"start":6162168,"audio":0,"end":6162705,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/AR.pl"},{"start":6162705,"audio":0,"end":6163241,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/ATAR.pl"},{"start":6163241,"audio":0,"end":6165591,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/NR.pl"},{"start":6165591,"audio":0,"end":6166340,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/NK.pl"},{"start":6166340,"audio":0,"end":6167562,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/B.pl"},{"start":6167562,"audio":0,"end":6168094,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Ccc/AL.pl"},{"start":6168094,"audio":0,"end":6168695,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/PP.pl"},{"start":6168695,"audio":0,"end":6169385,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/CN.pl"},{"start":6169385,"audio":0,"end":6174665,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/LVT.pl"},{"start":6174665,"audio":0,"end":6178685,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/EX.pl"},{"start":6178685,"audio":0,"end":6183e3,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/XX.pl"},{"start":6183e3,"audio":0,"end":6183753,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/GAZ.pl"},{"start":6183753,"audio":0,"end":6189033,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/LV.pl"},{"start":6189033,"audio":0,"end":6191117,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/SM.pl"},{"start":6191117,"audio":0,"end":6192030,"filename":"/opt/perl/lib/5.28.1/unicore/lib/GCB/EB.pl"},{"start":6192030,"audio":0,"end":6194124,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Math/Y.pl"},{"start":6194124,"audio":0,"end":6196110,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Cased/Y.pl"},{"start":6196110,"audio":0,"end":6196789,"filename":"/opt/perl/lib/5.28.1/unicore/lib/DI/Y.pl"},{"start":6196789,"audio":0,"end":6197332,"filename":"/opt/perl/lib/5.28.1/unicore/lib/PCM/Y.pl"},{"start":6197332,"audio":0,"end":6197943,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consona3.pl"},{"start":6197943,"audio":0,"end":6200035,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consonan.pl"},{"start":6200035,"audio":0,"end":6201373,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/VowelInd.pl"},{"start":6201373,"audio":0,"end":6202024,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/ToneMark.pl"},{"start":6202024,"audio":0,"end":6202567,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consona6.pl"},{"start":6202567,"audio":0,"end":6203170,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Invisibl.pl"},{"start":6203170,"audio":0,"end":6203927,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Nukta.pl"},{"start":6203927,"audio":0,"end":6204882,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Number.pl"},{"start":6204882,"audio":0,"end":6205533,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Syllable.pl"},{"start":6205533,"audio":0,"end":6206154,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consona2.pl"},{"start":6206154,"audio":0,"end":6206753,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Cantilla.pl"},{"start":6206753,"audio":0,"end":6207774,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Bindu.pl"},{"start":6207774,"audio":0,"end":6211508,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Other.pl"},{"start":6211508,"audio":0,"end":6212139,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consona4.pl"},{"start":6212139,"audio":0,"end":6212896,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Virama.pl"},{"start":6212896,"audio":0,"end":6213445,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Vowel.pl"},{"start":6213445,"audio":0,"end":6215203,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/VowelDep.pl"},{"start":6215203,"audio":0,"end":6215854,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Avagraha.pl"},{"start":6215854,"audio":0,"end":6216551,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/PureKill.pl"},{"start":6216551,"audio":0,"end":6217150,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Consona5.pl"},{"start":6217150,"audio":0,"end":6218007,"filename":"/opt/perl/lib/5.28.1/unicore/lib/InSC/Visarga.pl"},{"start":6218007,"audio":0,"end":6219059,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jt/R.pl"},{"start":6219059,"audio":0,"end":6223229,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jt/U.pl"},{"start":6223229,"audio":0,"end":6224341,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jt/D.pl"},{"start":6224341,"audio":0,"end":6224871,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jt/C.pl"},{"start":6224871,"audio":0,"end":6228823,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jt/T.pl"},{"start":6228823,"audio":0,"end":6235911,"filename":"/opt/perl/lib/5.28.1/unicore/lib/IDS/Y.pl"},{"start":6235911,"audio":0,"end":6240579,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CI/Y.pl"},{"start":6240579,"audio":0,"end":6249610,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWKCF/Y.pl"},{"start":6249610,"audio":0,"end":6256171,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CWT/Y.pl"},{"start":6256171,"audio":0,"end":6258377,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dia/Y.pl"},{"start":6258377,"audio":0,"end":6259935,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Term/Y.pl"},{"start":6259935,"audio":0,"end":6261187,"filename":"/opt/perl/lib/5.28.1/unicore/lib/STerm/Y.pl"},{"start":6261187,"audio":0,"end":6269093,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Alpha/Y.pl"},{"start":6269093,"audio":0,"end":6269654,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Seen.pl"},{"start":6269654,"audio":0,"end":6270235,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Reh.pl"},{"start":6270235,"audio":0,"end":6270796,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Waw.pl"},{"start":6270796,"audio":0,"end":6271337,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Dal.pl"},{"start":6271337,"audio":0,"end":6271867,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/FarsiYeh.pl"},{"start":6271867,"audio":0,"end":6272438,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Yeh.pl"},{"start":6272438,"audio":0,"end":6272968,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Kaf.pl"},{"start":6272968,"audio":0,"end":6273498,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Qaf.pl"},{"start":6273498,"audio":0,"end":6274028,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Sad.pl"},{"start":6274028,"audio":0,"end":6274558,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Feh.pl"},{"start":6274558,"audio":0,"end":6275129,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Hah.pl"},{"start":6275129,"audio":0,"end":6275690,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Beh.pl"},{"start":6275690,"audio":0,"end":6276231,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Ain.pl"},{"start":6276231,"audio":0,"end":6276966,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/NoJoinin.pl"},{"start":6276966,"audio":0,"end":6277496,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Lam.pl"},{"start":6277496,"audio":0,"end":6278047,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Alef.pl"},{"start":6278047,"audio":0,"end":6278598,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Jg/Gaf.pl"},{"start":6278598,"audio":0,"end":6279197,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Cprt.pl"},{"start":6279197,"audio":0,"end":6280059,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Latn.pl"},{"start":6280059,"audio":0,"end":6280595,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Phlp.pl"},{"start":6280595,"audio":0,"end":6281125,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Tagb.pl"},{"start":6281125,"audio":0,"end":6281700,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Yi.pl"},{"start":6281700,"audio":0,"end":6282238,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Bhks.pl"},{"start":6282238,"audio":0,"end":6283095,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Grek.pl"},{"start":6283095,"audio":0,"end":6283986,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Han.pl"},{"start":6283986,"audio":0,"end":6284649,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Gujr.pl"},{"start":6284649,"audio":0,"end":6285179,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Khmr.pl"},{"start":6285179,"audio":0,"end":6285730,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Hmng.pl"},{"start":6285730,"audio":0,"end":6286291,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Tibt.pl"},{"start":6286291,"audio":0,"end":6287062,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Gran.pl"},{"start":6287062,"audio":0,"end":6288228,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Arab.pl"},{"start":6288228,"audio":0,"end":6288957,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Taml.pl"},{"start":6288957,"audio":0,"end":6289495,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Xsux.pl"},{"start":6289495,"audio":0,"end":6290048,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Armn.pl"},{"start":6290048,"audio":0,"end":6290623,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Gonm.pl"},{"start":6290623,"audio":0,"end":6291184,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Dupl.pl"},{"start":6291184,"audio":0,"end":6291735,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Limb.pl"},{"start":6291735,"audio":0,"end":6292396,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Kana.pl"},{"start":6292396,"audio":0,"end":6293079,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Knda.pl"},{"start":6293079,"audio":0,"end":6293644,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Shrd.pl"},{"start":6293644,"audio":0,"end":6294295,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Telu.pl"},{"start":6294295,"audio":0,"end":6296467,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Zyyy.pl"},{"start":6296467,"audio":0,"end":6297140,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Beng.pl"},{"start":6297140,"audio":0,"end":6297731,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Syrc.pl"},{"start":6297731,"audio":0,"end":6298570,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Ethi.pl"},{"start":6298570,"audio":0,"end":6299106,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Tirh.pl"},{"start":6299106,"audio":0,"end":6299640,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Cakm.pl"},{"start":6299640,"audio":0,"end":6307602,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Zzzz.pl"},{"start":6307602,"audio":0,"end":6308167,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Thaa.pl"},{"start":6308167,"audio":0,"end":6308744,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Geor.pl"},{"start":6308744,"audio":0,"end":6309282,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Lina.pl"},{"start":6309282,"audio":0,"end":6309875,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Hebr.pl"},{"start":6309875,"audio":0,"end":6310506,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Bopo.pl"},{"start":6310506,"audio":0,"end":6311047,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Lana.pl"},{"start":6311047,"audio":0,"end":6311590,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Mong.pl"},{"start":6311590,"audio":0,"end":6312177,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Khar.pl"},{"start":6312177,"audio":0,"end":6312778,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Mlym.pl"},{"start":6312778,"audio":0,"end":6313333,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Deva.pl"},{"start":6313333,"audio":0,"end":6314008,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Hira.pl"},{"start":6314008,"audio":0,"end":6314546,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Cham.pl"},{"start":6314546,"audio":0,"end":6315082,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Takr.pl"},{"start":6315082,"audio":0,"end":6315715,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Sinh.pl"},{"start":6315715,"audio":0,"end":6316276,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Mult.pl"},{"start":6316276,"audio":0,"end":6316806,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Talu.pl"},{"start":6316806,"audio":0,"end":6317342,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Sind.pl"},{"start":6317342,"audio":0,"end":6317877,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Copt.pl"},{"start":6317877,"audio":0,"end":6318488,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Linb.pl"},{"start":6318488,"audio":0,"end":6319030,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Adlm.pl"},{"start":6319030,"audio":0,"end":6319771,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Hang.pl"},{"start":6319771,"audio":0,"end":6320422,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Orya.pl"},{"start":6320422,"audio":0,"end":6320958,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Mymr.pl"},{"start":6320958,"audio":0,"end":6321629,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Zinh.pl"},{"start":6321629,"audio":0,"end":6322208,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Cyrl.pl"},{"start":6322208,"audio":0,"end":6322837,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Glag.pl"},{"start":6322837,"audio":0,"end":6323520,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Guru.pl"},{"start":6323520,"audio":0,"end":6324191,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Scx/Lao.pl"},{"start":6324191,"audio":0,"end":6325451,"filename":"/opt/perl/lib/5.28.1/unicore/lib/CompEx/Y.pl"},{"start":6325451,"audio":0,"end":6328773,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFKCQC/N.pl"},{"start":6328773,"audio":0,"end":6332465,"filename":"/opt/perl/lib/5.28.1/unicore/lib/NFKCQC/Y.pl"},{"start":6332465,"audio":0,"end":6333038,"filename":"/opt/perl/lib/5.28.1/unicore/lib/Dep/Y.pl"},{"start":6333038,"audio":0,"end":6341004,"filename":"/opt/perl/lib/5.28.1/IO/Zlib.pm"},{"start":6341004,"audio":0,"end":6343829,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Bzip2.pm"},{"start":6343829,"audio":0,"end":6351577,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Gzip.pm"},{"start":6351577,"audio":0,"end":6374133,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Base.pm"},{"start":6374133,"audio":0,"end":6401623,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Zip.pm"},{"start":6401623,"audio":0,"end":6406831,"filename":"/opt/perl/lib/5.28.1/IO/Compress/RawDeflate.pm"},{"start":6406831,"audio":0,"end":6410158,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Deflate.pm"},{"start":6410158,"audio":0,"end":6414061,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Gzip/Constants.pm"},{"start":6414061,"audio":0,"end":6417909,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Zip/Constants.pm"},{"start":6417909,"audio":0,"end":6419567,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Zlib/Constants.pm"},{"start":6419567,"audio":0,"end":6425278,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Zlib/Extra.pm"},{"start":6425278,"audio":0,"end":6427874,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Adapter/Bzip2.pm"},{"start":6427874,"audio":0,"end":6429312,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Adapter/Identity.pm"},{"start":6429312,"audio":0,"end":6432456,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Adapter/Deflate.pm"},{"start":6432456,"audio":0,"end":6455555,"filename":"/opt/perl/lib/5.28.1/IO/Compress/Base/Common.pm"},{"start":6455555,"audio":0,"end":6460375,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Inflate.pm"},{"start":6460375,"audio":0,"end":6467785,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Gunzip.pm"},{"start":6467785,"audio":0,"end":6473454,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/AnyUncompress.pm"},{"start":6473454,"audio":0,"end":6502528,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Unzip.pm"},{"start":6502528,"audio":0,"end":6505159,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Bunzip2.pm"},{"start":6505159,"audio":0,"end":6541974,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Base.pm"},{"start":6541974,"audio":0,"end":6550675,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/RawInflate.pm"},{"start":6550675,"audio":0,"end":6553265,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/AnyInflate.pm"},{"start":6553265,"audio":0,"end":6556544,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Adapter/Inflate.pm"},{"start":6556544,"audio":0,"end":6558586,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Adapter/Bunzip2.pm"},{"start":6558586,"audio":0,"end":6563169,"filename":"/opt/perl/lib/5.28.1/IO/Uncompress/Adapter/Identity.pm"},{"start":6563169,"audio":0,"end":6584445,"filename":"/opt/perl/lib/5.28.1/IO/Socket/IP.pm"},{"start":6584445,"audio":0,"end":6614830,"filename":"/opt/perl/lib/5.28.1/Locale/Maketext.pm"},{"start":6614830,"audio":0,"end":6639474,"filename":"/opt/perl/lib/5.28.1/Locale/Codes.pm"},{"start":6639474,"audio":0,"end":6641379,"filename":"/opt/perl/lib/5.28.1/Locale/Currency.pm"},{"start":6641379,"audio":0,"end":6643242,"filename":"/opt/perl/lib/5.28.1/Locale/Script.pm"},{"start":6643242,"audio":0,"end":6645126,"filename":"/opt/perl/lib/5.28.1/Locale/Country.pm"},{"start":6645126,"audio":0,"end":6647031,"filename":"/opt/perl/lib/5.28.1/Locale/Language.pm"},{"start":6647031,"audio":0,"end":6648922,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangVar.pm"},{"start":6648922,"audio":0,"end":6649653,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangExt_Retired.pm"},{"start":6649653,"audio":0,"end":6653211,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Script_Retired.pm"},{"start":6653211,"audio":0,"end":6682183,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Country_Retired.pm"},{"start":6682183,"audio":0,"end":6688488,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Constants.pm"},{"start":6688488,"audio":0,"end":6708649,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Language_Retired.pm"},{"start":6708649,"audio":0,"end":6966449,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Country_Codes.pm"},{"start":6966449,"audio":0,"end":6968361,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Currency.pm"},{"start":6968361,"audio":0,"end":8572579,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Language_Codes.pm"},{"start":8572579,"audio":0,"end":8597467,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangFam_Codes.pm"},{"start":8597467,"audio":0,"end":8599337,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Script.pm"},{"start":8599337,"audio":0,"end":8650331,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Currency_Codes.pm"},{"start":8650331,"audio":0,"end":8701481,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangExt_Codes.pm"},{"start":8701481,"audio":0,"end":8703372,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Country.pm"},{"start":8703372,"audio":0,"end":8726450,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangVar_Codes.pm"},{"start":8726450,"audio":0,"end":8790972,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Script_Codes.pm"},{"start":8790972,"audio":0,"end":8791844,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangVar_Retired.pm"},{"start":8791844,"audio":0,"end":8793735,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangFam.pm"},{"start":8793735,"audio":0,"end":8794148,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangFam_Retired.pm"},{"start":8794148,"audio":0,"end":8796039,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/LangExt.pm"},{"start":8796039,"audio":0,"end":8797951,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Language.pm"},{"start":8797951,"audio":0,"end":8806087,"filename":"/opt/perl/lib/5.28.1/Locale/Codes/Currency_Retired.pm"},{"start":8806087,"audio":0,"end":8810938,"filename":"/opt/perl/lib/5.28.1/Locale/Maketext/Simple.pm"},{"start":8810938,"audio":0,"end":8811059,"filename":"/opt/perl/lib/5.28.1/Locale/Maketext/GutsLoader.pm"},{"start":8811059,"audio":0,"end":8811143,"filename":"/opt/perl/lib/5.28.1/Locale/Maketext/Guts.pm"},{"start":8811143,"audio":0,"end":8815215,"filename":"/opt/perl/lib/5.28.1/version/regex.pm"},{"start":8815215,"audio":0,"end":8820551,"filename":"/opt/perl/lib/5.28.1/Math/Trig.pm"},{"start":8820551,"audio":0,"end":8953191,"filename":"/opt/perl/lib/5.28.1/Math/BigInt.pm"},{"start":8953191,"audio":0,"end":8986107,"filename":"/opt/perl/lib/5.28.1/Math/Complex.pm"},{"start":8986107,"audio":0,"end":9049744,"filename":"/opt/perl/lib/5.28.1/Math/BigRat.pm"},{"start":9049744,"audio":0,"end":9204269,"filename":"/opt/perl/lib/5.28.1/Math/BigFloat.pm"},{"start":9204269,"audio":0,"end":9205538,"filename":"/opt/perl/lib/5.28.1/Math/BigFloat/Trace.pm"},{"start":9205538,"audio":0,"end":9247910,"filename":"/opt/perl/lib/5.28.1/Math/BigInt/Lib.pm"},{"start":9247910,"audio":0,"end":9323640,"filename":"/opt/perl/lib/5.28.1/Math/BigInt/Calc.pm"},{"start":9323640,"audio":0,"end":9331477,"filename":"/opt/perl/lib/5.28.1/Math/BigInt/CalcEmu.pm"},{"start":9331477,"audio":0,"end":9332468,"filename":"/opt/perl/lib/5.28.1/Math/BigInt/Trace.pm"},{"start":9332468,"audio":0,"end":9338875,"filename":"/opt/perl/lib/5.28.1/Exporter/Heavy.pm"},{"start":9338875,"audio":0,"end":9340749,"filename":"/opt/perl/lib/5.28.1/encoding/warnings.pm"},{"start":9340749,"audio":0,"end":9342037,"filename":"/opt/perl/lib/5.28.1/Module/Loaded.pm"},{"start":9342037,"audio":0,"end":10149968,"filename":"/opt/perl/lib/5.28.1/Module/CoreList.pm"},{"start":10149968,"audio":0,"end":10174052,"filename":"/opt/perl/lib/5.28.1/Module/Metadata.pm"},{"start":10174052,"audio":0,"end":10177275,"filename":"/opt/perl/lib/5.28.1/Module/Load.pm"},{"start":10177275,"audio":0,"end":10188491,"filename":"/opt/perl/lib/5.28.1/Module/Load/Conditional.pm"},{"start":10188491,"audio":0,"end":10214738,"filename":"/opt/perl/lib/5.28.1/Module/CoreList/Utils.pm"},{"start":10214738,"audio":0,"end":10217807,"filename":"/opt/perl/lib/5.28.1/wasm/attributes.pm"},{"start":10217807,"audio":0,"end":10259333,"filename":"/opt/perl/lib/5.28.1/wasm/Config_heavy.pl"},{"start":10259333,"audio":0,"end":10259803,"filename":"/opt/perl/lib/5.28.1/wasm/IO.pm"},{"start":10259803,"audio":0,"end":10267089,"filename":"/opt/perl/lib/5.28.1/wasm/encoding.pm"},{"start":10267089,"audio":0,"end":10280380,"filename":"/opt/perl/lib/5.28.1/wasm/WebPerl.pm"},{"start":10280380,"audio":0,"end":10288443,"filename":"/opt/perl/lib/5.28.1/wasm/B.pm"},{"start":10288443,"audio":0,"end":10305966,"filename":"/opt/perl/lib/5.28.1/wasm/Cwd.pm"},{"start":10305966,"audio":0,"end":10306203,"filename":"/opt/perl/lib/5.28.1/wasm/SDBM_File.pm"},{"start":10306203,"audio":0,"end":10307973,"filename":"/opt/perl/lib/5.28.1/wasm/Opcode.pm"},{"start":10307973,"audio":0,"end":10310130,"filename":"/opt/perl/lib/5.28.1/wasm/Fcntl.pm"},{"start":10310130,"audio":0,"end":10310561,"filename":"/opt/perl/lib/5.28.1/wasm/ops.pm"},{"start":10310561,"audio":0,"end":10311824,"filename":"/opt/perl/lib/5.28.1/wasm/O.pm"},{"start":10311824,"audio":0,"end":10325697,"filename":"/opt/perl/lib/5.28.1/wasm/Socket.pm"},{"start":10325697,"audio":0,"end":10326434,"filename":"/opt/perl/lib/5.28.1/wasm/Config_git.pl"},{"start":10326434,"audio":0,"end":10328720,"filename":"/opt/perl/lib/5.28.1/wasm/lib.pm"},{"start":10328720,"audio":0,"end":10349067,"filename":"/opt/perl/lib/5.28.1/wasm/POSIX.pm"},{"start":10349067,"audio":0,"end":10360219,"filename":"/opt/perl/lib/5.28.1/wasm/DynaLoader.pm"},{"start":10360219,"audio":0,"end":10365346,"filename":"/opt/perl/lib/5.28.1/wasm/Errno.pm"},{"start":10365346,"audio":0,"end":10375750,"filename":"/opt/perl/lib/5.28.1/wasm/Encode.pm"},{"start":10375750,"audio":0,"end":10376596,"filename":"/opt/perl/lib/5.28.1/wasm/mro.pm"},{"start":10376596,"audio":0,"end":10385298,"filename":"/opt/perl/lib/5.28.1/wasm/re.pm"},{"start":10385298,"audio":0,"end":10389116,"filename":"/opt/perl/lib/5.28.1/wasm/Config.pm"},{"start":10389116,"audio":0,"end":10390538,"filename":"/opt/perl/lib/5.28.1/wasm/Scalar/Util.pm"},{"start":10390538,"audio":0,"end":10390702,"filename":"/opt/perl/lib/5.28.1/wasm/Tie/Hash/NamedCapture.pm"},{"start":10390702,"audio":0,"end":10391323,"filename":"/opt/perl/lib/5.28.1/wasm/Sub/Util.pm"},{"start":10391323,"audio":0,"end":10392630,"filename":"/opt/perl/lib/5.28.1/wasm/B/Terse.pm"},{"start":10392630,"audio":0,"end":10401243,"filename":"/opt/perl/lib/5.28.1/wasm/B/Xref.pm"},{"start":10401243,"audio":0,"end":10404683,"filename":"/opt/perl/lib/5.28.1/wasm/B/Showlex.pm"},{"start":10404683,"audio":0,"end":10439962,"filename":"/opt/perl/lib/5.28.1/wasm/B/Concise.pm"},{"start":10439962,"audio":0,"end":10442764,"filename":"/opt/perl/lib/5.28.1/wasm/Time/HiRes.pm"},{"start":10442764,"audio":0,"end":10446205,"filename":"/opt/perl/lib/5.28.1/wasm/Time/Seconds.pm"},{"start":10446205,"audio":0,"end":10466980,"filename":"/opt/perl/lib/5.28.1/wasm/Time/Piece.pm"},{"start":10466980,"audio":0,"end":10468155,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Unicode.pm"},{"start":10468155,"audio":0,"end":10468383,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Symbol.pm"},{"start":10468383,"audio":0,"end":10478853,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/GSM0338.pm"},{"start":10478853,"audio":0,"end":10481284,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Encoder.pm"},{"start":10481284,"audio":0,"end":10486364,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Guess.pm"},{"start":10486364,"audio":0,"end":10487959,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/CJKConstants.pm"},{"start":10487959,"audio":0,"end":10497632,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Alias.pm"},{"start":10497632,"audio":0,"end":10497858,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Byte.pm"},{"start":10497858,"audio":0,"end":10499364,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Encoding.pm"},{"start":10499364,"audio":0,"end":10505366,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Config.pm"},{"start":10505366,"audio":0,"end":10509559,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/JP/JIS7.pm"},{"start":10509559,"audio":0,"end":10514623,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/JP/H2Z.pm"},{"start":10514623,"audio":0,"end":10517262,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/Unicode/UTF7.pm"},{"start":10517262,"audio":0,"end":10519167,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/KR/2022_KR.pm"},{"start":10519167,"audio":0,"end":10525184,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/CN/HZ.pm"},{"start":10525184,"audio":0,"end":10536270,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/MIME/Header.pm"},{"start":10536270,"audio":0,"end":10539989,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/MIME/Name.pm"},{"start":10539989,"audio":0,"end":10543189,"filename":"/opt/perl/lib/5.28.1/wasm/Encode/MIME/Header/ISO_2022_JP.pm"},{"start":10543189,"audio":0,"end":10543918,"filename":"/opt/perl/lib/5.28.1/wasm/I18N/Langinfo.pm"},{"start":10543918,"audio":0,"end":10544289,"filename":"/opt/perl/lib/5.28.1/wasm/PerlIO/encoding.pm"},{"start":10544289,"audio":0,"end":10544381,"filename":"/opt/perl/lib/5.28.1/wasm/PerlIO/via.pm"},{"start":10544381,"audio":0,"end":10544476,"filename":"/opt/perl/lib/5.28.1/wasm/PerlIO/scalar.pm"},{"start":10544476,"audio":0,"end":10546389,"filename":"/opt/perl/lib/5.28.1/wasm/Devel/Peek.pm"},{"start":10546389,"audio":0,"end":10549539,"filename":"/opt/perl/lib/5.28.1/wasm/Unicode/Normalize.pm"},{"start":10549539,"audio":0,"end":10552142,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Poll.pm"},{"start":10552142,"audio":0,"end":10552785,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Seekable.pm"},{"start":10552785,"audio":0,"end":10554422,"filename":"/opt/perl/lib/5.28.1/wasm/IO/File.pm"},{"start":10554422,"audio":0,"end":10563858,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Socket.pm"},{"start":10563858,"audio":0,"end":10568198,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Select.pm"},{"start":10568198,"audio":0,"end":10576402,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Handle.pm"},{"start":10576402,"audio":0,"end":10579816,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Pipe.pm"},{"start":10579816,"audio":0,"end":10582520,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Dir.pm"},{"start":10582520,"audio":0,"end":10583856,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Socket/UNIX.pm"},{"start":10583856,"audio":0,"end":10591318,"filename":"/opt/perl/lib/5.28.1/wasm/IO/Socket/INET.pm"},{"start":10591318,"audio":0,"end":10599590,"filename":"/opt/perl/lib/5.28.1/wasm/Hash/Util.pm"},{"start":10599590,"audio":0,"end":10600708,"filename":"/opt/perl/lib/5.28.1/wasm/List/Util.pm"},{"start":10600708,"audio":0,"end":10600862,"filename":"/opt/perl/lib/5.28.1/wasm/List/Util/XS.pm"},{"start":10600862,"audio":0,"end":10625148,"filename":"/opt/perl/lib/5.28.1/wasm/Data/Dumper.pm"},{"start":10625148,"audio":0,"end":10627983,"filename":"/opt/perl/lib/5.28.1/wasm/Cpanel/JSON/XS.pm"},{"start":10627983,"audio":0,"end":10630848,"filename":"/opt/perl/lib/5.28.1/wasm/Cpanel/JSON/XS/Type.pm"},{"start":10630848,"audio":0,"end":10630880,"filename":"/opt/perl/lib/5.28.1/wasm/Cpanel/JSON/XS/Boolean.pm"},{"start":10630880,"audio":0,"end":10631437,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec.pm"},{"start":10631437,"audio":0,"end":10633482,"filename":"/opt/perl/lib/5.28.1/wasm/File/Glob.pm"},{"start":10633482,"audio":0,"end":10641075,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Win32.pm"},{"start":10641075,"audio":0,"end":10643189,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Cygwin.pm"},{"start":10643189,"audio":0,"end":10655989,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/VMS.pm"},{"start":10655989,"audio":0,"end":10657092,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Functions.pm"},{"start":10657092,"audio":0,"end":10657736,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Epoc.pm"},{"start":10657736,"audio":0,"end":10658194,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/AmigaOS.pm"},{"start":10658194,"audio":0,"end":10666276,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Mac.pm"},{"start":10666276,"audio":0,"end":10672266,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/OS2.pm"},{"start":10672266,"audio":0,"end":10681588,"filename":"/opt/perl/lib/5.28.1/wasm/File/Spec/Unix.pm"},{"start":10681588,"audio":0,"end":10687071,"filename":"/opt/perl/lib/5.28.1/wasm/Digest/SHA.pm"},{"start":10687071,"audio":0,"end":10687808,"filename":"/opt/perl/lib/5.28.1/wasm/Digest/MD5.pm"},{"start":10687808,"audio":0,"end":10710198,"filename":"/opt/perl/lib/5.28.1/CPAN/Module.pm"},{"start":10710198,"audio":0,"end":10732414,"filename":"/opt/perl/lib/5.28.1/CPAN/Index.pm"},{"start":10732414,"audio":0,"end":10732981,"filename":"/opt/perl/lib/5.28.1/CPAN/Prompt.pm"},{"start":10732981,"audio":0,"end":10733382,"filename":"/opt/perl/lib/5.28.1/CPAN/Nox.pm"},{"start":10733382,"audio":0,"end":10751077,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta.pm"},{"start":10751077,"audio":0,"end":10754496,"filename":"/opt/perl/lib/5.28.1/CPAN/Version.pm"},{"start":10754496,"audio":0,"end":10763470,"filename":"/opt/perl/lib/5.28.1/CPAN/Distroprefs.pm"},{"start":10763470,"audio":0,"end":10770218,"filename":"/opt/perl/lib/5.28.1/CPAN/Queue.pm"},{"start":10770218,"audio":0,"end":10777060,"filename":"/opt/perl/lib/5.28.1/CPAN/Author.pm"},{"start":10777060,"audio":0,"end":10788576,"filename":"/opt/perl/lib/5.28.1/CPAN/Mirrors.pm"},{"start":10788576,"audio":0,"end":10839191,"filename":"/opt/perl/lib/5.28.1/CPAN/FirstTime.pm"},{"start":10839191,"audio":0,"end":10840163,"filename":"/opt/perl/lib/5.28.1/CPAN/Distrostatus.pm"},{"start":10840163,"audio":0,"end":10840352,"filename":"/opt/perl/lib/5.28.1/CPAN/DeferredCode.pm"},{"start":10840352,"audio":0,"end":10842776,"filename":"/opt/perl/lib/5.28.1/CPAN/Kwalify.pm"},{"start":10842776,"audio":0,"end":10916393,"filename":"/opt/perl/lib/5.28.1/CPAN/Shell.pm"},{"start":10916393,"audio":0,"end":10926219,"filename":"/opt/perl/lib/5.28.1/CPAN/Bundle.pm"},{"start":10926219,"audio":0,"end":10932242,"filename":"/opt/perl/lib/5.28.1/CPAN/Complete.pm"},{"start":10932242,"audio":0,"end":10934154,"filename":"/opt/perl/lib/5.28.1/CPAN/Debug.pm"},{"start":10934154,"audio":0,"end":10956503,"filename":"/opt/perl/lib/5.28.1/CPAN/HandleConfig.pm"},{"start":10956503,"audio":0,"end":10957091,"filename":"/opt/perl/lib/5.28.1/CPAN/URL.pm"},{"start":10957091,"audio":0,"end":11000057,"filename":"/opt/perl/lib/5.28.1/CPAN/FTP.pm"},{"start":11000057,"audio":0,"end":11007721,"filename":"/opt/perl/lib/5.28.1/CPAN/CacheMgr.pm"},{"start":11007721,"audio":0,"end":11014630,"filename":"/opt/perl/lib/5.28.1/CPAN/InfoObj.pm"},{"start":11014630,"audio":0,"end":11179218,"filename":"/opt/perl/lib/5.28.1/CPAN/Distribution.pm"},{"start":11179218,"audio":0,"end":11195727,"filename":"/opt/perl/lib/5.28.1/CPAN/Tarzip.pm"},{"start":11195727,"audio":0,"end":11197959,"filename":"/opt/perl/lib/5.28.1/CPAN/Plugin.pm"},{"start":11197959,"audio":0,"end":11199521,"filename":"/opt/perl/lib/5.28.1/CPAN/FTP/netrc.pm"},{"start":11199521,"audio":0,"end":11201114,"filename":"/opt/perl/lib/5.28.1/CPAN/Kwalify/distroprefs.yml"},{"start":11201114,"audio":0,"end":11204341,"filename":"/opt/perl/lib/5.28.1/CPAN/Kwalify/distroprefs.dd"},{"start":11204341,"audio":0,"end":11211682,"filename":"/opt/perl/lib/5.28.1/CPAN/Plugin/Specfile.pm"},{"start":11211682,"audio":0,"end":11214315,"filename":"/opt/perl/lib/5.28.1/CPAN/HTTP/Credentials.pm"},{"start":11214315,"audio":0,"end":11222266,"filename":"/opt/perl/lib/5.28.1/CPAN/HTTP/Client.pm"},{"start":11222266,"audio":0,"end":11222756,"filename":"/opt/perl/lib/5.28.1/CPAN/Exception/yaml_not_installed.pm"},{"start":11222756,"audio":0,"end":11224459,"filename":"/opt/perl/lib/5.28.1/CPAN/Exception/yaml_process_error.pm"},{"start":11224459,"audio":0,"end":11228345,"filename":"/opt/perl/lib/5.28.1/CPAN/Exception/RecursiveDependency.pm"},{"start":11228345,"audio":0,"end":11229265,"filename":"/opt/perl/lib/5.28.1/CPAN/Exception/blocked_urllist.pm"},{"start":11229265,"audio":0,"end":11229431,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/History.pm"},{"start":11229431,"audio":0,"end":11231068,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Feature.pm"},{"start":11231068,"audio":0,"end":11277209,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Converter.pm"},{"start":11277209,"audio":0,"end":11306662,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Validator.pm"},{"start":11306662,"audio":0,"end":11315573,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Prereqs.pm"},{"start":11315573,"audio":0,"end":11338738,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Requirements.pm"},{"start":11338738,"audio":0,"end":11364009,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/YAML.pm"},{"start":11364009,"audio":0,"end":11370482,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Merge.pm"},{"start":11370482,"audio":0,"end":11370865,"filename":"/opt/perl/lib/5.28.1/CPAN/Meta/Spec.pm"},{"start":11370865,"audio":0,"end":11372899,"filename":"/opt/perl/lib/5.28.1/CPAN/LWP/UserAgent.pm"},{"start":11372899,"audio":0,"end":11404177,"filename":"/opt/perl/lib/5.28.1/App/Cpan.pm"},{"start":11404177,"audio":0,"end":11418350,"filename":"/opt/perl/lib/5.28.1/App/Prove.pm"},{"start":11418350,"audio":0,"end":11427564,"filename":"/opt/perl/lib/5.28.1/App/Prove/State.pm"},{"start":11427564,"audio":0,"end":11430011,"filename":"/opt/perl/lib/5.28.1/App/Prove/State/Result.pm"},{"start":11430011,"audio":0,"end":11431552,"filename":"/opt/perl/lib/5.28.1/App/Prove/State/Result/Test.pm"},{"start":11431552,"audio":0,"end":11432040,"filename":"/opt/perl/lib/5.28.1/warnings/register.pm"},{"start":11432040,"audio":0,"end":11433991,"filename":"/opt/perl/lib/5.28.1/overload/numbers.pm"},{"start":11433991,"audio":0,"end":11435287,"filename":"/opt/perl/lib/5.28.1/Memoize/Storable.pm"},{"start":11435287,"audio":0,"end":11436642,"filename":"/opt/perl/lib/5.28.1/Memoize/SDBM_File.pm"},{"start":11436642,"audio":0,"end":11437568,"filename":"/opt/perl/lib/5.28.1/Memoize/ExpireFile.pm"},{"start":11437568,"audio":0,"end":11441030,"filename":"/opt/perl/lib/5.28.1/Memoize/Expire.pm"},{"start":11441030,"audio":0,"end":11441569,"filename":"/opt/perl/lib/5.28.1/Memoize/AnyDBM_File.pm"},{"start":11441569,"audio":0,"end":11441960,"filename":"/opt/perl/lib/5.28.1/Memoize/ExpireTest.pm"},{"start":11441960,"audio":0,"end":11443317,"filename":"/opt/perl/lib/5.28.1/Memoize/NDBM_File.pm"},{"start":11443317,"audio":0,"end":11486584,"filename":"/opt/perl/lib/5.28.1/Getopt/Long.pm"},{"start":11486584,"audio":0,"end":11491851,"filename":"/opt/perl/lib/5.28.1/Getopt/Std.pm"},{"start":11491851,"audio":0,"end":11500914,"filename":"/opt/perl/lib/5.28.1/Params/Check.pm"},{"start":11500914,"audio":0,"end":11521939,"filename":"/opt/perl/lib/5.28.1/Term/ANSIColor.pm"},{"start":11521939,"audio":0,"end":11525482,"filename":"/opt/perl/lib/5.28.1/Term/Complete.pm"},{"start":11525482,"audio":0,"end":11533204,"filename":"/opt/perl/lib/5.28.1/Term/ReadLine.pm"},{"start":11533204,"audio":0,"end":11546180,"filename":"/opt/perl/lib/5.28.1/Term/Cap.pm"},{"start":11546180,"audio":0,"end":11546953,"filename":"/opt/perl/lib/5.28.1/Carp/Heavy.pm"},{"start":11546953,"audio":0,"end":11562800,"filename":"/opt/perl/lib/5.28.1/Compress/Zlib.pm"},{"start":11562800,"audio":0,"end":11599919,"filename":"/opt/perl/lib/5.28.1/File/Fetch.pm"},{"start":11599919,"audio":0,"end":11620643,"filename":"/opt/perl/lib/5.28.1/File/Path.pm"},{"start":11620643,"audio":0,"end":11629744,"filename":"/opt/perl/lib/5.28.1/File/Copy.pm"},{"start":11629744,"audio":0,"end":11651975,"filename":"/opt/perl/lib/5.28.1/File/Find.pm"},{"start":11651975,"audio":0,"end":11655125,"filename":"/opt/perl/lib/5.28.1/File/Compare.pm"},{"start":11655125,"audio":0,"end":11661459,"filename":"/opt/perl/lib/5.28.1/File/stat.pm"},{"start":11661459,"audio":0,"end":11666908,"filename":"/opt/perl/lib/5.28.1/File/Basename.pm"},{"start":11666908,"audio":0,"end":11713868,"filename":"/opt/perl/lib/5.28.1/File/Temp.pm"},{"start":11713868,"audio":0,"end":11721940,"filename":"/opt/perl/lib/5.28.1/File/GlobMapper.pm"},{"start":11721940,"audio":0,"end":11766635,"filename":"/opt/perl/lib/5.28.1/JSON/PP.pm"},{"start":11766635,"audio":0,"end":11766895,"filename":"/opt/perl/lib/5.28.1/JSON/PP/Boolean.pm"},{"start":11766895,"audio":0,"end":11767322,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet.pm"},{"start":11767322,"audio":0,"end":11786538,"filename":"/opt/perl/lib/5.28.1/Test2/API.pm"},{"start":11786538,"audio":0,"end":11788365,"filename":"/opt/perl/lib/5.28.1/Test2/IPC.pm"},{"start":11788365,"audio":0,"end":11794543,"filename":"/opt/perl/lib/5.28.1/Test2/Util.pm"},{"start":11794543,"audio":0,"end":11802337,"filename":"/opt/perl/lib/5.28.1/Test2/Event.pm"},{"start":11802337,"audio":0,"end":11815219,"filename":"/opt/perl/lib/5.28.1/Test2/Hub.pm"},{"start":11815219,"audio":0,"end":11815633,"filename":"/opt/perl/lib/5.28.1/Test2/Formatter.pm"},{"start":11815633,"audio":0,"end":11822297,"filename":"/opt/perl/lib/5.28.1/Test2/Tools/Tiny.pm"},{"start":11822297,"audio":0,"end":11823654,"filename":"/opt/perl/lib/5.28.1/Test2/IPC/Driver.pm"},{"start":11823654,"audio":0,"end":11835190,"filename":"/opt/perl/lib/5.28.1/Test2/IPC/Driver/Files.pm"},{"start":11835190,"audio":0,"end":11836625,"filename":"/opt/perl/lib/5.28.1/Test2/Hub/Subtest.pm"},{"start":11836625,"audio":0,"end":11837455,"filename":"/opt/perl/lib/5.28.1/Test2/Hub/Interceptor.pm"},{"start":11837455,"audio":0,"end":11837569,"filename":"/opt/perl/lib/5.28.1/Test2/Hub/Interceptor/Terminator.pm"},{"start":11837569,"audio":0,"end":11848413,"filename":"/opt/perl/lib/5.28.1/Test2/Formatter/TAP.pm"},{"start":11848413,"audio":0,"end":11851802,"filename":"/opt/perl/lib/5.28.1/Test2/Util/Facets2Legacy.pm"},{"start":11851802,"audio":0,"end":11856299,"filename":"/opt/perl/lib/5.28.1/Test2/Util/HashBase.pm"},{"start":11856299,"audio":0,"end":11856440,"filename":"/opt/perl/lib/5.28.1/Test2/Util/Trace.pm"},{"start":11856440,"audio":0,"end":11857796,"filename":"/opt/perl/lib/5.28.1/Test2/Util/ExternalMeta.pm"},{"start":11857796,"audio":0,"end":11858177,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Parent.pm"},{"start":11858177,"audio":0,"end":11859104,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Meta.pm"},{"start":11859104,"audio":0,"end":11859347,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Amnesty.pm"},{"start":11859347,"audio":0,"end":11859592,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Info.pm"},{"start":11859592,"audio":0,"end":11859823,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Assert.pm"},{"start":11859823,"audio":0,"end":11860067,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Render.pm"},{"start":11860067,"audio":0,"end":11860330,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Error.pm"},{"start":11860330,"audio":0,"end":11862100,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Trace.pm"},{"start":11862100,"audio":0,"end":11862390,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Hub.pm"},{"start":11862390,"audio":0,"end":11862647,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Control.pm"},{"start":11862647,"audio":0,"end":11862880,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/About.pm"},{"start":11862880,"audio":0,"end":11863104,"filename":"/opt/perl/lib/5.28.1/Test2/EventFacet/Plan.pm"},{"start":11863104,"audio":0,"end":11863594,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Waiting.pm"},{"start":11863594,"audio":0,"end":11865280,"filename":"/opt/perl/lib/5.28.1/Test2/Event/V2.pm"},{"start":11865280,"audio":0,"end":11865988,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Bail.pm"},{"start":11865988,"audio":0,"end":11867578,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Ok.pm"},{"start":11867578,"audio":0,"end":11869740,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Subtest.pm"},{"start":11869740,"audio":0,"end":11870423,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Exception.pm"},{"start":11870423,"audio":0,"end":11871508,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Pass.pm"},{"start":11871508,"audio":0,"end":11872679,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Fail.pm"},{"start":11872679,"audio":0,"end":11875328,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Generic.pm"},{"start":11875328,"audio":0,"end":11875912,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Diag.pm"},{"start":11875912,"audio":0,"end":11876473,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Note.pm"},{"start":11876473,"audio":0,"end":11877332,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Skip.pm"},{"start":11877332,"audio":0,"end":11877926,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Encoding.pm"},{"start":11877926,"audio":0,"end":11880089,"filename":"/opt/perl/lib/5.28.1/Test2/Event/Plan.pm"},{"start":11880089,"audio":0,"end":11880749,"filename":"/opt/perl/lib/5.28.1/Test2/Event/TAP/Version.pm"},{"start":11880749,"audio":0,"end":11898155,"filename":"/opt/perl/lib/5.28.1/Test2/API/Instance.pm"},{"start":11898155,"audio":0,"end":11901068,"filename":"/opt/perl/lib/5.28.1/Test2/API/Breakage.pm"},{"start":11901068,"audio":0,"end":11912438,"filename":"/opt/perl/lib/5.28.1/Test2/API/Context.pm"},{"start":11912438,"audio":0,"end":11914244,"filename":"/opt/perl/lib/5.28.1/Test2/API/Stack.pm"},{"start":11914244,"audio":0,"end":11932642,"filename":"/opt/perl/lib/5.28.1/Test/More.pm"},{"start":11932642,"audio":0,"end":11934595,"filename":"/opt/perl/lib/5.28.1/Test/Future.pm"},{"start":11934595,"audio":0,"end":11977260,"filename":"/opt/perl/lib/5.28.1/Test/Builder.pm"},{"start":11977260,"audio":0,"end":11977572,"filename":"/opt/perl/lib/5.28.1/Test/Simple.pm"},{"start":11977572,"audio":0,"end":11987505,"filename":"/opt/perl/lib/5.28.1/Test/Harness.pm"},{"start":11987505,"audio":0,"end":11993332,"filename":"/opt/perl/lib/5.28.1/Test/Tester.pm"},{"start":11993332,"audio":0,"end":11993405,"filename":"/opt/perl/lib/5.28.1/Test/use/ok.pm"},{"start":11993405,"audio":0,"end":11994169,"filename":"/opt/perl/lib/5.28.1/Test/Future/Deferred.pm"},{"start":11994169,"audio":0,"end":11995357,"filename":"/opt/perl/lib/5.28.1/Test/Builder/Module.pm"},{"start":11995357,"audio":0,"end":11995691,"filename":"/opt/perl/lib/5.28.1/Test/Builder/TodoDiag.pm"},{"start":11995691,"audio":0,"end":12005476,"filename":"/opt/perl/lib/5.28.1/Test/Builder/Tester.pm"},{"start":12005476,"audio":0,"end":12006711,"filename":"/opt/perl/lib/5.28.1/Test/Builder/Formatter.pm"},{"start":12006711,"audio":0,"end":12014269,"filename":"/opt/perl/lib/5.28.1/Test/Builder/IO/Scalar.pm"},{"start":12014269,"audio":0,"end":12014439,"filename":"/opt/perl/lib/5.28.1/Test/Builder/Tester/Color.pm"},{"start":12014439,"audio":0,"end":12018356,"filename":"/opt/perl/lib/5.28.1/Test/Tester/Capture.pm"},{"start":12018356,"audio":0,"end":12018927,"filename":"/opt/perl/lib/5.28.1/Test/Tester/Delegate.pm"},{"start":12018927,"audio":0,"end":12019846,"filename":"/opt/perl/lib/5.28.1/Test/Tester/CaptureRunner.pm"},{"start":12019846,"audio":0,"end":12020972,"filename":"/opt/perl/lib/5.28.1/Digest/base.pm"},{"start":12020972,"audio":0,"end":12021691,"filename":"/opt/perl/lib/5.28.1/Digest/file.pm"}],"remote_package_size":12021691,"package_uuid":"d4d5d231-aa17-434a-ac1f-dd0d6af95261"})})();"use strict";var my_UTF8Decoder=typeof TextDecoder!=="undefined"?new TextDecoder("utf8"):undefined;function my_UTF8ArrayToString(ptr,len){var endPtr=ptr+len;if(len>16&&HEAPU8.subarray&&my_UTF8Decoder){return my_UTF8Decoder.decode(HEAPU8.subarray(ptr,endPtr))}else{var u0,u1,u2,u3,u4,u5;var str="";while(ptr<endPtr){u0=HEAPU8[ptr++];if(!(u0&128)){str+=String.fromCharCode(u0);continue}u1=HEAPU8[ptr++]&63;if((u0&224)==192){str+=String.fromCharCode((u0&31)<<6|u1);continue}u2=HEAPU8[ptr++]&63;if((u0&240)==224){u0=(u0&15)<<12|u1<<6|u2}else{u3=HEAPU8[ptr++]&63;if((u0&248)==240){u0=(u0&7)<<18|u1<<12|u2<<6|u3}else{u4=HEAPU8[ptr++]&63;if((u0&252)==248){u0=(u0&3)<<24|u1<<18|u2<<12|u3<<6|u4}else{u5=HEAPU8[ptr++]&63;u0=(u0&1)<<30|u1<<24|u2<<18|u3<<12|u4<<6|u5}}}if(u0<65536){str+=String.fromCharCode(u0)}else{var ch=u0-65536;str+=String.fromCharCode(55296|ch>>10,56320|ch&1023)}}return str}}var moduleOverrides={};var key;for(key in Module){if(Module.hasOwnProperty(key)){moduleOverrides[key]=Module[key]}}Module["arguments"]=[];Module["thisProgram"]="./this.program";Module["quit"]=function(status,toThrow){throw toThrow};Module["preRun"]=[];Module["postRun"]=[];var ENVIRONMENT_IS_WEB=false;var ENVIRONMENT_IS_WORKER=false;var ENVIRONMENT_IS_NODE=false;var ENVIRONMENT_IS_SHELL=false;ENVIRONMENT_IS_WEB=typeof window==="object";ENVIRONMENT_IS_WORKER=typeof importScripts==="function";ENVIRONMENT_IS_NODE=typeof process==="object"&&typeof require==="function"&&!ENVIRONMENT_IS_WEB&&!ENVIRONMENT_IS_WORKER;ENVIRONMENT_IS_SHELL=!ENVIRONMENT_IS_WEB&&!ENVIRONMENT_IS_NODE&&!ENVIRONMENT_IS_WORKER;var scriptDirectory="";function locateFile(path){if(Module["locateFile"]){return Module["locateFile"](path,scriptDirectory)}else{return scriptDirectory+path}}if(ENVIRONMENT_IS_NODE){scriptDirectory=__dirname+"/";var nodeFS;var nodePath;Module["read"]=function shell_read(filename,binary){var ret;if(!nodeFS)nodeFS=require("fs");if(!nodePath)nodePath=require("path");filename=nodePath["normalize"](filename);ret=nodeFS["readFileSync"](filename);return binary?ret:ret.toString()};Module["readBinary"]=function readBinary(filename){var ret=Module["read"](filename,true);if(!ret.buffer){ret=new Uint8Array(ret)}assert(ret.buffer);return ret};if(process["argv"].length>1){Module["thisProgram"]=process["argv"][1].replace(/\\/g,"/")}Module["arguments"]=process["argv"].slice(2);if(typeof module!=="undefined"){module["exports"]=Module}process["on"]("uncaughtException",function(ex){if(!(ex instanceof ExitStatus)){throw ex}});process["on"]("unhandledRejection",abort);Module["quit"]=function(status){process["exit"](status)};Module["inspect"]=function(){return"[Emscripten Module object]"}}else if(ENVIRONMENT_IS_SHELL){if(typeof read!="undefined"){Module["read"]=function shell_read(f){return read(f)}}Module["readBinary"]=function readBinary(f){var data;if(typeof readbuffer==="function"){return new Uint8Array(readbuffer(f))}data=read(f,"binary");assert(typeof data==="object");return data};if(typeof scriptArgs!="undefined"){Module["arguments"]=scriptArgs}else if(typeof arguments!="undefined"){Module["arguments"]=arguments}if(typeof quit==="function"){Module["quit"]=function(status){quit(status)}}}else if(ENVIRONMENT_IS_WEB||ENVIRONMENT_IS_WORKER){if(ENVIRONMENT_IS_WORKER){scriptDirectory=self.location.href}else if(document.currentScript){scriptDirectory=document.currentScript.src}if(scriptDirectory.indexOf("blob:")!==0){scriptDirectory=scriptDirectory.substr(0,scriptDirectory.lastIndexOf("/")+1)}else{scriptDirectory=""}Module["read"]=function shell_read(url){var xhr=new XMLHttpRequest;xhr.open("GET",url,false);xhr.send(null);return xhr.responseText};if(ENVIRONMENT_IS_WORKER){Module["readBinary"]=function readBinary(url){var xhr=new XMLHttpRequest;xhr.open("GET",url,false);xhr.responseType="arraybuffer";xhr.send(null);return new Uint8Array(xhr.response)}}Module["readAsync"]=function readAsync(url,onload,onerror){var xhr=new XMLHttpRequest;xhr.open("GET",url,true);xhr.responseType="arraybuffer";xhr.onload=function xhr_onload(){if(xhr.status==200||xhr.status==0&&xhr.response){onload(xhr.response);return}onerror()};xhr.onerror=onerror;xhr.send(null)};Module["setWindowTitle"]=function(title){document.title=title}}else{}var out=Module["print"]||(typeof console!=="undefined"?console.log.bind(console):typeof print!=="undefined"?print:null);var err=Module["printErr"]||(typeof printErr!=="undefined"?printErr:typeof console!=="undefined"&&console.warn.bind(console)||out);for(key in moduleOverrides){if(moduleOverrides.hasOwnProperty(key)){Module[key]=moduleOverrides[key]}}moduleOverrides=undefined;var STACK_ALIGN=16;function dynamicAlloc(size){var ret=HEAP32[DYNAMICTOP_PTR>>2];var end=ret+size+15&-16;if(end<=_emscripten_get_heap_size()){HEAP32[DYNAMICTOP_PTR>>2]=end}else{var success=_emscripten_resize_heap(end);if(!success)return 0}return ret}function getNativeTypeSize(type){switch(type){case"i1":case"i8":return 1;case"i16":return 2;case"i32":return 4;case"i64":return 8;case"float":return 4;case"double":return 8;default:{if(type[type.length-1]==="*"){return 4}else if(type[0]==="i"){var bits=parseInt(type.substr(1));assert(bits%8===0,"getNativeTypeSize invalid bits "+bits+", type "+type);return bits/8}else{return 0}}}}function warnOnce(text){if(!warnOnce.shown)warnOnce.shown={};if(!warnOnce.shown[text]){warnOnce.shown[text]=1;err(text)}}var asm2wasmImports={"f64-rem":function(x,y){return x%y},"debugger":function(){debugger}};var jsCallStartIndex=1;var functionPointers=new Array(0);var funcWrappers={};function dynCall(sig,ptr,args){if(args&&args.length){return Module["dynCall_"+sig].apply(null,[ptr].concat(args))}else{return Module["dynCall_"+sig].call(null,ptr)}}var tempRet0=0;var setTempRet0=function(value){tempRet0=value};var getTempRet0=function(){return tempRet0};if(typeof WebAssembly!=="object"){err("no native wasm support detected")}var wasmMemory;var wasmTable;var ABORT=false;var EXITSTATUS=0;function assert(condition,text){if(!condition){abort("Assertion failed: "+text)}}function getCFunc(ident){var func=Module["_"+ident];assert(func,"Cannot call unknown function "+ident+", make sure it is exported");return func}function ccall(ident,returnType,argTypes,args,opts){var toC={"string":function(str){var ret=0;if(str!==null&&str!==undefined&&str!==0){var len=(str.length<<2)+1;ret=stackAlloc(len);stringToUTF8(str,ret,len)}return ret},"array":function(arr){var ret=stackAlloc(arr.length);writeArrayToMemory(arr,ret);return ret}};function convertReturnValue(ret){if(returnType==="string")return UTF8ToString(ret);if(returnType==="boolean")return Boolean(ret);return ret}var func=getCFunc(ident);var cArgs=[];var stack=0;if(args){for(var i=0;i<args.length;i++){var converter=toC[argTypes[i]];if(converter){if(stack===0)stack=stackSave();cArgs[i]=converter(args[i])}else{cArgs[i]=args[i]}}}var ret=func.apply(null,cArgs);ret=convertReturnValue(ret);if(stack!==0)stackRestore(stack);return ret}function cwrap(ident,returnType,argTypes,opts){argTypes=argTypes||[];var numericArgs=argTypes.every(function(type){return type==="number"});var numericRet=returnType!=="string";if(numericRet&&numericArgs&&!opts){return getCFunc(ident)}return function(){return ccall(ident,returnType,argTypes,arguments,opts)}}function setValue(ptr,value,type,noSafe){type=type||"i8";if(type.charAt(type.length-1)==="*")type="i32";switch(type){case"i1":HEAP8[ptr>>0]=value;break;case"i8":HEAP8[ptr>>0]=value;break;case"i16":HEAP16[ptr>>1]=value;break;case"i32":HEAP32[ptr>>2]=value;break;case"i64":tempI64=[value>>>0,(tempDouble=value,+Math_abs(tempDouble)>=1?tempDouble>0?(Math_min(+Math_floor(tempDouble/4294967296),4294967295)|0)>>>0:~~+Math_ceil((tempDouble-+(~~tempDouble>>>0))/4294967296)>>>0:0)],HEAP32[ptr>>2]=tempI64[0],HEAP32[ptr+4>>2]=tempI64[1];break;case"float":HEAPF32[ptr>>2]=value;break;case"double":HEAPF64[ptr>>3]=value;break;default:abort("invalid type for setValue: "+type)}}var ALLOC_NORMAL=0;var ALLOC_NONE=3;function allocate(slab,types,allocator,ptr){var zeroinit,size;if(typeof slab==="number"){zeroinit=true;size=slab}else{zeroinit=false;size=slab.length}var singleType=typeof types==="string"?types:null;var ret;if(allocator==ALLOC_NONE){ret=ptr}else{ret=[_malloc,stackAlloc,dynamicAlloc][allocator](Math.max(size,singleType?1:types.length))}if(zeroinit){var stop;ptr=ret;assert((ret&3)==0);stop=ret+(size&~3);for(;ptr<stop;ptr+=4){HEAP32[ptr>>2]=0}stop=ret+size;while(ptr<stop){HEAP8[ptr++>>0]=0}return ret}if(singleType==="i8"){if(slab.subarray||slab.slice){HEAPU8.set(slab,ret)}else{HEAPU8.set(new Uint8Array(slab),ret)}return ret}var i=0,type,typeSize,previousType;while(i<size){var curr=slab[i];type=singleType||types[i];if(type===0){i++;continue}if(type=="i64")type="i32";setValue(ret+i,curr,type);if(previousType!==type){typeSize=getNativeTypeSize(type);previousType=type}i+=typeSize}return ret}function getMemory(size){if(!runtimeInitialized)return dynamicAlloc(size);return _malloc(size)}var UTF8Decoder=typeof TextDecoder!=="undefined"?new TextDecoder("utf8"):undefined;function UTF8ArrayToString(u8Array,idx,maxBytesToRead){var endIdx=idx+maxBytesToRead;var endPtr=idx;while(u8Array[endPtr]&&!(endPtr>=endIdx))++endPtr;if(endPtr-idx>16&&u8Array.subarray&&UTF8Decoder){return UTF8Decoder.decode(u8Array.subarray(idx,endPtr))}else{var str="";while(idx<endPtr){var u0=u8Array[idx++];if(!(u0&128)){str+=String.fromCharCode(u0);continue}var u1=u8Array[idx++]&63;if((u0&224)==192){str+=String.fromCharCode((u0&31)<<6|u1);continue}var u2=u8Array[idx++]&63;if((u0&240)==224){u0=(u0&15)<<12|u1<<6|u2}else{u0=(u0&7)<<18|u1<<12|u2<<6|u8Array[idx++]&63}if(u0<65536){str+=String.fromCharCode(u0)}else{var ch=u0-65536;str+=String.fromCharCode(55296|ch>>10,56320|ch&1023)}}}return str}function UTF8ToString(ptr,maxBytesToRead){return ptr?UTF8ArrayToString(HEAPU8,ptr,maxBytesToRead):""}function stringToUTF8Array(str,outU8Array,outIdx,maxBytesToWrite){if(!(maxBytesToWrite>0))return 0;var startIdx=outIdx;var endIdx=outIdx+maxBytesToWrite-1;for(var i=0;i<str.length;++i){var u=str.charCodeAt(i);if(u>=55296&&u<=57343){var u1=str.charCodeAt(++i);u=65536+((u&1023)<<10)|u1&1023}if(u<=127){if(outIdx>=endIdx)break;outU8Array[outIdx++]=u}else if(u<=2047){if(outIdx+1>=endIdx)break;outU8Array[outIdx++]=192|u>>6;outU8Array[outIdx++]=128|u&63}else if(u<=65535){if(outIdx+2>=endIdx)break;outU8Array[outIdx++]=224|u>>12;outU8Array[outIdx++]=128|u>>6&63;outU8Array[outIdx++]=128|u&63}else{if(outIdx+3>=endIdx)break;outU8Array[outIdx++]=240|u>>18;outU8Array[outIdx++]=128|u>>12&63;outU8Array[outIdx++]=128|u>>6&63;outU8Array[outIdx++]=128|u&63}}outU8Array[outIdx]=0;return outIdx-startIdx}function stringToUTF8(str,outPtr,maxBytesToWrite){return stringToUTF8Array(str,HEAPU8,outPtr,maxBytesToWrite)}function lengthBytesUTF8(str){var len=0;for(var i=0;i<str.length;++i){var u=str.charCodeAt(i);if(u>=55296&&u<=57343)u=65536+((u&1023)<<10)|str.charCodeAt(++i)&1023;if(u<=127)++len;else if(u<=2047)len+=2;else if(u<=65535)len+=3;else len+=4}return len}var UTF16Decoder=typeof TextDecoder!=="undefined"?new TextDecoder("utf-16le"):undefined;function allocateUTF8(str){var size=lengthBytesUTF8(str)+1;var ret=_malloc(size);if(ret)stringToUTF8Array(str,HEAP8,ret,size);return ret}function allocateUTF8OnStack(str){var size=lengthBytesUTF8(str)+1;var ret=stackAlloc(size);stringToUTF8Array(str,HEAP8,ret,size);return ret}function writeArrayToMemory(array,buffer){HEAP8.set(array,buffer)}function writeAsciiToMemory(str,buffer,dontAddNull){for(var i=0;i<str.length;++i){HEAP8[buffer++>>0]=str.charCodeAt(i)}if(!dontAddNull)HEAP8[buffer>>0]=0}function demangle(func){return func}function demangleAll(text){var regex=/__Z[\w\d_]+/g;return text.replace(regex,function(x){var y=demangle(x);return x===y?x:y+" ["+x+"]"})}function jsStackTrace(){var err=new Error;if(!err.stack){try{throw new Error(0)}catch(e){err=e}if(!err.stack){return"(no stack trace available)"}}return err.stack.toString()}function stackTrace(){var js=jsStackTrace();if(Module["extraStackTrace"])js+="\n"+Module["extraStackTrace"]();return demangleAll(js)}var PAGE_SIZE=16384;var WASM_PAGE_SIZE=65536;function alignUp(x,multiple){if(x%multiple>0){x+=multiple-x%multiple}return x}var buffer,HEAP8,HEAPU8,HEAP16,HEAPU16,HEAP32,HEAPU32,HEAPF32,HEAPF64;function updateGlobalBuffer(buf){Module["buffer"]=buffer=buf}function updateGlobalBufferViews(){Module["HEAP8"]=HEAP8=new Int8Array(buffer);Module["HEAP16"]=HEAP16=new Int16Array(buffer);Module["HEAP32"]=HEAP32=new Int32Array(buffer);Module["HEAPU8"]=HEAPU8=new Uint8Array(buffer);Module["HEAPU16"]=HEAPU16=new Uint16Array(buffer);Module["HEAPU32"]=HEAPU32=new Uint32Array(buffer);Module["HEAPF32"]=HEAPF32=new Float32Array(buffer);Module["HEAPF64"]=HEAPF64=new Float64Array(buffer)}var STACK_BASE=1278416,DYNAMIC_BASE=6521296,DYNAMICTOP_PTR=1278160;var TOTAL_STACK=5242880;var TOTAL_MEMORY=Module["TOTAL_MEMORY"]||16777216;if(TOTAL_MEMORY<TOTAL_STACK)err("TOTAL_MEMORY should be larger than TOTAL_STACK, was "+TOTAL_MEMORY+"! (TOTAL_STACK="+TOTAL_STACK+")");if(Module["buffer"]){buffer=Module["buffer"]}else{if(typeof WebAssembly==="object"&&typeof WebAssembly.Memory==="function"){wasmMemory=new WebAssembly.Memory({"initial":TOTAL_MEMORY/WASM_PAGE_SIZE});buffer=wasmMemory.buffer}else{buffer=new ArrayBuffer(TOTAL_MEMORY)}Module["buffer"]=buffer}updateGlobalBufferViews();HEAP32[DYNAMICTOP_PTR>>2]=DYNAMIC_BASE;function callRuntimeCallbacks(callbacks){while(callbacks.length>0){var callback=callbacks.shift();if(typeof callback=="function"){callback();continue}var func=callback.func;if(typeof func==="number"){if(callback.arg===undefined){Module["dynCall_v"](func)}else{Module["dynCall_vi"](func,callback.arg)}}else{func(callback.arg===undefined?null:callback.arg)}}}var __ATPRERUN__=[];var __ATINIT__=[];var __ATMAIN__=[];var __ATPOSTRUN__=[];var runtimeInitialized=false;var runtimeExited=false;function preRun(){if(Module["preRun"]){if(typeof Module["preRun"]=="function")Module["preRun"]=[Module["preRun"]];while(Module["preRun"].length){addOnPreRun(Module["preRun"].shift())}}callRuntimeCallbacks(__ATPRERUN__)}function ensureInitRuntime(){if(runtimeInitialized)return;runtimeInitialized=true;if(!Module["noFSInit"]&&!FS.init.initialized)FS.init();TTY.init();SOCKFS.root=FS.mount(SOCKFS,{},null);PIPEFS.root=FS.mount(PIPEFS,{},null);callRuntimeCallbacks(__ATINIT__)}function preMain(){FS.ignorePermissions=false;callRuntimeCallbacks(__ATMAIN__)}function exitRuntime(){runtimeExited=true}function postRun(){if(Module["postRun"]){if(typeof Module["postRun"]=="function")Module["postRun"]=[Module["postRun"]];while(Module["postRun"].length){addOnPostRun(Module["postRun"].shift())}}callRuntimeCallbacks(__ATPOSTRUN__)}function addOnPreRun(cb){__ATPRERUN__.unshift(cb)}function addOnPostRun(cb){__ATPOSTRUN__.unshift(cb)}var Math_abs=Math.abs;var Math_ceil=Math.ceil;var Math_floor=Math.floor;var Math_min=Math.min;var Math_trunc=Math.trunc;var runDependencies=0;var runDependencyWatcher=null;var dependenciesFulfilled=null;function getUniqueRunDependency(id){return id}function addRunDependency(id){runDependencies++;if(Module["monitorRunDependencies"]){Module["monitorRunDependencies"](runDependencies)}}function removeRunDependency(id){runDependencies--;if(Module["monitorRunDependencies"]){Module["monitorRunDependencies"](runDependencies)}if(runDependencies==0){if(runDependencyWatcher!==null){clearInterval(runDependencyWatcher);runDependencyWatcher=null}if(dependenciesFulfilled){var callback=dependenciesFulfilled;dependenciesFulfilled=null;callback()}}}Module["preloadedImages"]={};Module["preloadedAudios"]={};var dataURIPrefix="data:application/octet-stream;base64,";function isDataURI(filename){return String.prototype.startsWith?filename.startsWith(dataURIPrefix):filename.indexOf(dataURIPrefix)===0}var wasmBinaryFile="emperl.wasm";if(!isDataURI(wasmBinaryFile)){wasmBinaryFile=locateFile(wasmBinaryFile)}function getBinary(){try{if(Module["wasmBinary"]){return new Uint8Array(Module["wasmBinary"])}if(Module["readBinary"]){return Module["readBinary"](wasmBinaryFile)}else{throw"both async and sync fetching of the wasm failed"}}catch(err){abort(err)}}function getBinaryPromise(){if(!Module["wasmBinary"]&&(ENVIRONMENT_IS_WEB||ENVIRONMENT_IS_WORKER)&&typeof fetch==="function"){return fetch(wasmBinaryFile,{credentials:"same-origin"}).then(function(response){if(!response["ok"]){throw"failed to load wasm binary file at '"+wasmBinaryFile+"'"}return response["arrayBuffer"]()}).catch(function(){return getBinary()})}return new Promise(function(resolve,reject){resolve(getBinary())})}function createWasm(env){var info={"env":env,"global":{"NaN":NaN,Infinity:Infinity},"global.Math":Math,"asm2wasm":asm2wasmImports};function receiveInstance(instance,module){var exports=instance.exports;Module["asm"]=exports;removeRunDependency("wasm-instantiate")}addRunDependency("wasm-instantiate");if(Module["instantiateWasm"]){try{return Module["instantiateWasm"](info,receiveInstance)}catch(e){err("Module.instantiateWasm callback failed with error: "+e);return false}}function receiveInstantiatedSource(output){receiveInstance(output["instance"])}function instantiateArrayBuffer(receiver){getBinaryPromise().then(function(binary){return WebAssembly.instantiate(binary,info)}).then(receiver,function(reason){err("failed to asynchronously prepare wasm: "+reason);abort(reason)})}if(!Module["wasmBinary"]&&typeof WebAssembly.instantiateStreaming==="function"&&!isDataURI(wasmBinaryFile)&&typeof fetch==="function"){WebAssembly.instantiateStreaming(fetch(wasmBinaryFile,{credentials:"same-origin"}),info).then(receiveInstantiatedSource,function(reason){err("wasm streaming compile failed: "+reason);err("falling back to ArrayBuffer instantiation");instantiateArrayBuffer(receiveInstantiatedSource)})}else{instantiateArrayBuffer(receiveInstantiatedSource)}return{}}Module["asm"]=function(global,env,providedBuffer){env["memory"]=wasmMemory;env["table"]=wasmTable=new WebAssembly.Table({"initial":2142,"maximum":2142,"element":"anyfunc"});env["__memory_base"]=1024;env["__table_base"]=0;var exports=createWasm(env);return exports};function _js_eval_js(codestr,ilen,wantrv,olen){var out="";try{var code=my_UTF8ArrayToString(codestr,ilen);if(Perl.trace)console.debug("Perl: eval",code,"- wantrv",wantrv);var rv=eval(code);if(wantrv==0)rv=undefined;switch(typeof rv){case"undefined":out="U";break;case"boolean":out=(rv?"1":"0")+"B";break;case"number":out=String(rv)+"N";break;case"string":out=rv+"S";break;case"function":out=Perl.glue(rv)+"F";break;case"object":if(rv==null)out="U";else if(Array.isArray(rv))out=Perl.glue(rv)+"A";else out=Perl.glue(rv)+"O";break;default:console.warn("js_get_js: unsupported return type",rv);out=typeof rv+"X";break}}catch(ex){out=ex+"E"}if(Perl.trace)console.debug("Perl: returning",out);var lengthBytes=lengthBytesUTF8(out);HEAP32[olen>>2]=lengthBytes;var stringOnWasmHeap=_malloc(lengthBytes+1);stringToUTF8(out,stringOnWasmHeap,lengthBytes+1);return stringOnWasmHeap}__ATINIT__.push({func:function(){___emscripten_environ_constructor()}});var tempDoublePtr=1278400;function ___assert_fail(condition,filename,line,func){abort("Assertion failed: "+UTF8ToString(condition)+", at: "+[filename?UTF8ToString(filename):"unknown filename",line,func?UTF8ToString(func):"unknown function"])}var ENV={};function ___buildEnvironment(environ){var MAX_ENV_VALUES=64;var TOTAL_ENV_SIZE=1024;var poolPtr;var envPtr;if(!___buildEnvironment.called){___buildEnvironment.called=true;ENV["USER"]=ENV["LOGNAME"]="web_user";ENV["PATH"]="/";ENV["PWD"]="/";ENV["HOME"]="/home/web_user";ENV["LANG"]="C.UTF-8";ENV["_"]=Module["thisProgram"];poolPtr=getMemory(TOTAL_ENV_SIZE);envPtr=getMemory(MAX_ENV_VALUES*4);HEAP32[envPtr>>2]=poolPtr;HEAP32[environ>>2]=envPtr}else{envPtr=HEAP32[environ>>2];poolPtr=HEAP32[envPtr>>2]}var strings=[];var totalSize=0;for(var key in ENV){if(typeof ENV[key]==="string"){var line=key+"="+ENV[key];strings.push(line);totalSize+=line.length}}if(totalSize>TOTAL_ENV_SIZE){throw new Error("Environment size exceeded TOTAL_ENV_SIZE!")}var ptrSize=4;for(var i=0;i<strings.length;i++){var line=strings[i];writeAsciiToMemory(line,poolPtr);HEAP32[envPtr+i*ptrSize>>2]=poolPtr;poolPtr+=line.length+1}HEAP32[envPtr+strings.length*ptrSize>>2]=0}function _emscripten_get_now(){abort()}function _emscripten_get_now_is_monotonic(){return 0||ENVIRONMENT_IS_NODE||typeof dateNow!=="undefined"||(ENVIRONMENT_IS_WEB||ENVIRONMENT_IS_WORKER)&&self["performance"]&&self["performance"]["now"]}function ___setErrNo(value){if(Module["___errno_location"])HEAP32[Module["___errno_location"]()>>2]=value;return value}function _clock_gettime(clk_id,tp){var now;if(clk_id===0){now=Date.now()}else if(clk_id===1&&_emscripten_get_now_is_monotonic()){now=_emscripten_get_now()}else{___setErrNo(22);return-1}HEAP32[tp>>2]=now/1e3|0;HEAP32[tp+4>>2]=now%1e3*1e3*1e3|0;return 0}function ___clock_gettime(a0,a1){return _clock_gettime(a0,a1)}function ___lock(){}function ___map_file(pathname,size){___setErrNo(1);return-1}var PATH={splitPath:function(filename){var splitPathRe=/^(\/?|)([\s\S]*?)((?:\.{1,2}|[^\/]+?|)(\.[^.\/]*|))(?:[\/]*)$/;return splitPathRe.exec(filename).slice(1)},normalizeArray:function(parts,allowAboveRoot){var up=0;for(var i=parts.length-1;i>=0;i--){var last=parts[i];if(last==="."){parts.splice(i,1)}else if(last===".."){parts.splice(i,1);up++}else if(up){parts.splice(i,1);up--}}if(allowAboveRoot){for(;up;up--){parts.unshift("..")}}return parts},normalize:function(path){var isAbsolute=path.charAt(0)==="/",trailingSlash=path.substr(-1)==="/";path=PATH.normalizeArray(path.split("/").filter(function(p){return!!p}),!isAbsolute).join("/");if(!path&&!isAbsolute){path="."}if(path&&trailingSlash){path+="/"}return(isAbsolute?"/":"")+path},dirname:function(path){var result=PATH.splitPath(path),root=result[0],dir=result[1];if(!root&&!dir){return"."}if(dir){dir=dir.substr(0,dir.length-1)}return root+dir},basename:function(path){if(path==="/")return"/";var lastSlash=path.lastIndexOf("/");if(lastSlash===-1)return path;return path.substr(lastSlash+1)},extname:function(path){return PATH.splitPath(path)[3]},join:function(){var paths=Array.prototype.slice.call(arguments,0);return PATH.normalize(paths.join("/"))},join2:function(l,r){return PATH.normalize(l+"/"+r)},resolve:function(){var resolvedPath="",resolvedAbsolute=false;for(var i=arguments.length-1;i>=-1&&!resolvedAbsolute;i--){var path=i>=0?arguments[i]:FS.cwd();if(typeof path!=="string"){throw new TypeError("Arguments to path.resolve must be strings")}else if(!path){return""}resolvedPath=path+"/"+resolvedPath;resolvedAbsolute=path.charAt(0)==="/"}resolvedPath=PATH.normalizeArray(resolvedPath.split("/").filter(function(p){return!!p}),!resolvedAbsolute).join("/");return(resolvedAbsolute?"/":"")+resolvedPath||"."},relative:function(from,to){from=PATH.resolve(from).substr(1);to=PATH.resolve(to).substr(1);function trim(arr){var start=0;for(;start<arr.length;start++){if(arr[start]!=="")break}var end=arr.length-1;for(;end>=0;end--){if(arr[end]!=="")break}if(start>end)return[];return arr.slice(start,end-start+1)}var fromParts=trim(from.split("/"));var toParts=trim(to.split("/"));var length=Math.min(fromParts.length,toParts.length);var samePartsLength=length;for(var i=0;i<length;i++){if(fromParts[i]!==toParts[i]){samePartsLength=i;break}}var outputParts=[];for(var i=samePartsLength;i<fromParts.length;i++){outputParts.push("..")}outputParts=outputParts.concat(toParts.slice(samePartsLength));return outputParts.join("/")}};var TTY={ttys:[],init:function(){},shutdown:function(){},register:function(dev,ops){TTY.ttys[dev]={input:[],output:[],ops:ops};FS.registerDevice(dev,TTY.stream_ops)},stream_ops:{open:function(stream){var tty=TTY.ttys[stream.node.rdev];if(!tty){throw new FS.ErrnoError(ERRNO_CODES.ENODEV)}stream.tty=tty;stream.seekable=false},close:function(stream){stream.tty.ops.flush(stream.tty)},flush:function(stream){stream.tty.ops.flush(stream.tty)},read:function(stream,buffer,offset,length,pos){if(!stream.tty||!stream.tty.ops.get_char){throw new FS.ErrnoError(ERRNO_CODES.ENXIO)}var bytesRead=0;for(var i=0;i<length;i++){var result;try{result=stream.tty.ops.get_char(stream.tty)}catch(e){throw new FS.ErrnoError(ERRNO_CODES.EIO)}if(result===undefined&&bytesRead===0){throw new FS.ErrnoError(ERRNO_CODES.EAGAIN)}if(result===null||result===undefined)break;bytesRead++;buffer[offset+i]=result}if(bytesRead){stream.node.timestamp=Date.now()}return bytesRead},write:function(stream,buffer,offset,length,pos){if(!stream.tty||!stream.tty.ops.put_char){throw new FS.ErrnoError(ERRNO_CODES.ENXIO)}try{for(var i=0;i<length;i++){stream.tty.ops.put_char(stream.tty,buffer[offset+i])}}catch(e){throw new FS.ErrnoError(ERRNO_CODES.EIO)}if(length){stream.node.timestamp=Date.now()}return i}},default_tty_ops:{get_char:function(tty){if(!tty.input.length){var result=null;if(ENVIRONMENT_IS_NODE){var BUFSIZE=256;var buf=new Buffer(BUFSIZE);var bytesRead=0;var isPosixPlatform=process.platform!="win32";var fd=process.stdin.fd;if(isPosixPlatform){var usingDevice=false;try{fd=fs.openSync("/dev/stdin","r");usingDevice=true}catch(e){}}try{bytesRead=fs.readSync(fd,buf,0,BUFSIZE,null)}catch(e){if(e.toString().indexOf("EOF")!=-1)bytesRead=0;else throw e}if(usingDevice){fs.closeSync(fd)}if(bytesRead>0){result=buf.slice(0,bytesRead).toString("utf-8")}else{result=null}}else if(typeof window!="undefined"&&typeof window.prompt=="function"){result=window.prompt("Input: ");if(result!==null){result+="\n"}}else if(typeof readline=="function"){result=readline();if(result!==null){result+="\n"}}if(!result){return null}tty.input=intArrayFromString(result,true)}return tty.input.shift()},put_char:function(tty,val){if(val===null||val===10){out(UTF8ArrayToString(tty.output,0));tty.output=[]}else{if(val!=0)tty.output.push(val)}},flush:function(tty){if(tty.output&&tty.output.length>0){out(UTF8ArrayToString(tty.output,0));tty.output=[]}}},default_tty1_ops:{put_char:function(tty,val){if(val===null||val===10){err(UTF8ArrayToString(tty.output,0));tty.output=[]}else{if(val!=0)tty.output.push(val)}},flush:function(tty){if(tty.output&&tty.output.length>0){err(UTF8ArrayToString(tty.output,0));tty.output=[]}}}};var MEMFS={ops_table:null,mount:function(mount){return MEMFS.createNode(null,"/",16384|511,0)},createNode:function(parent,name,mode,dev){if(FS.isBlkdev(mode)||FS.isFIFO(mode)){throw new FS.ErrnoError(ERRNO_CODES.EPERM)}if(!MEMFS.ops_table){MEMFS.ops_table={dir:{node:{getattr:MEMFS.node_ops.getattr,setattr:MEMFS.node_ops.setattr,lookup:MEMFS.node_ops.lookup,mknod:MEMFS.node_ops.mknod,rename:MEMFS.node_ops.rename,unlink:MEMFS.node_ops.unlink,rmdir:MEMFS.node_ops.rmdir,readdir:MEMFS.node_ops.readdir,symlink:MEMFS.node_ops.symlink},stream:{llseek:MEMFS.stream_ops.llseek}},file:{node:{getattr:MEMFS.node_ops.getattr,setattr:MEMFS.node_ops.setattr},stream:{llseek:MEMFS.stream_ops.llseek,read:MEMFS.stream_ops.read,write:MEMFS.stream_ops.write,allocate:MEMFS.stream_ops.allocate,mmap:MEMFS.stream_ops.mmap,msync:MEMFS.stream_ops.msync}},link:{node:{getattr:MEMFS.node_ops.getattr,setattr:MEMFS.node_ops.setattr,readlink:MEMFS.node_ops.readlink},stream:{}},chrdev:{node:{getattr:MEMFS.node_ops.getattr,setattr:MEMFS.node_ops.setattr},stream:FS.chrdev_stream_ops}}}var node=FS.createNode(parent,name,mode,dev);if(FS.isDir(node.mode)){node.node_ops=MEMFS.ops_table.dir.node;node.stream_ops=MEMFS.ops_table.dir.stream;node.contents={}}else if(FS.isFile(node.mode)){node.node_ops=MEMFS.ops_table.file.node;node.stream_ops=MEMFS.ops_table.file.stream;node.usedBytes=0;node.contents=null}else if(FS.isLink(node.mode)){node.node_ops=MEMFS.ops_table.link.node;node.stream_ops=MEMFS.ops_table.link.stream}else if(FS.isChrdev(node.mode)){node.node_ops=MEMFS.ops_table.chrdev.node;node.stream_ops=MEMFS.ops_table.chrdev.stream}node.timestamp=Date.now();if(parent){parent.contents[name]=node}return node},getFileDataAsRegularArray:function(node){if(node.contents&&node.contents.subarray){var arr=[];for(var i=0;i<node.usedBytes;++i)arr.push(node.contents[i]);return arr}return node.contents},getFileDataAsTypedArray:function(node){if(!node.contents)return new Uint8Array;if(node.contents.subarray)return node.contents.subarray(0,node.usedBytes);return new Uint8Array(node.contents)},expandFileStorage:function(node,newCapacity){var prevCapacity=node.contents?node.contents.length:0;if(prevCapacity>=newCapacity)return;var CAPACITY_DOUBLING_MAX=1024*1024;newCapacity=Math.max(newCapacity,prevCapacity*(prevCapacity<CAPACITY_DOUBLING_MAX?2:1.125)|0);if(prevCapacity!=0)newCapacity=Math.max(newCapacity,256);var oldContents=node.contents;node.contents=new Uint8Array(newCapacity);if(node.usedBytes>0)node.contents.set(oldContents.subarray(0,node.usedBytes),0);return},resizeFileStorage:function(node,newSize){if(node.usedBytes==newSize)return;if(newSize==0){node.contents=null;node.usedBytes=0;return}if(!node.contents||node.contents.subarray){var oldContents=node.contents;node.contents=new Uint8Array(new ArrayBuffer(newSize));if(oldContents){node.contents.set(oldContents.subarray(0,Math.min(newSize,node.usedBytes)))}node.usedBytes=newSize;return}if(!node.contents)node.contents=[];if(node.contents.length>newSize)node.contents.length=newSize;else while(node.contents.length<newSize)node.contents.push(0);node.usedBytes=newSize},node_ops:{getattr:function(node){var attr={};attr.dev=FS.isChrdev(node.mode)?node.id:1;attr.ino=node.id;attr.mode=node.mode;attr.nlink=1;attr.uid=0;attr.gid=0;attr.rdev=node.rdev;if(FS.isDir(node.mode)){attr.size=4096}else if(FS.isFile(node.mode)){attr.size=node.usedBytes}else if(FS.isLink(node.mode)){attr.size=node.link.length}else{attr.size=0}attr.atime=new Date(node.timestamp);attr.mtime=new Date(node.timestamp);attr.ctime=new Date(node.timestamp);attr.blksize=4096;attr.blocks=Math.ceil(attr.size/attr.blksize);return attr},setattr:function(node,attr){if(attr.mode!==undefined){node.mode=attr.mode}if(attr.timestamp!==undefined){node.timestamp=attr.timestamp}if(attr.size!==undefined){MEMFS.resizeFileStorage(node,attr.size)}},lookup:function(parent,name){throw FS.genericErrors[ERRNO_CODES.ENOENT]},mknod:function(parent,name,mode,dev){return MEMFS.createNode(parent,name,mode,dev)},rename:function(old_node,new_dir,new_name){if(FS.isDir(old_node.mode)){var new_node;try{new_node=FS.lookupNode(new_dir,new_name)}catch(e){}if(new_node){for(var i in new_node.contents){throw new FS.ErrnoError(ERRNO_CODES.ENOTEMPTY)}}}delete old_node.parent.contents[old_node.name];old_node.name=new_name;new_dir.contents[new_name]=old_node;old_node.parent=new_dir},unlink:function(parent,name){delete parent.contents[name]},rmdir:function(parent,name){var node=FS.lookupNode(parent,name);for(var i in node.contents){throw new FS.ErrnoError(ERRNO_CODES.ENOTEMPTY)}delete parent.contents[name]},readdir:function(node){var entries=[".",".."];for(var key in node.contents){if(!node.contents.hasOwnProperty(key)){continue}entries.push(key)}return entries},symlink:function(parent,newname,oldpath){var node=MEMFS.createNode(parent,newname,511|40960,0);node.link=oldpath;return node},readlink:function(node){if(!FS.isLink(node.mode)){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}return node.link}},stream_ops:{read:function(stream,buffer,offset,length,position){var contents=stream.node.contents;if(position>=stream.node.usedBytes)return 0;var size=Math.min(stream.node.usedBytes-position,length);if(size>8&&contents.subarray){buffer.set(contents.subarray(position,position+size),offset)}else{for(var i=0;i<size;i++)buffer[offset+i]=contents[position+i]}return size},write:function(stream,buffer,offset,length,position,canOwn){canOwn=false;if(!length)return 0;var node=stream.node;node.timestamp=Date.now();if(buffer.subarray&&(!node.contents||node.contents.subarray)){if(canOwn){node.contents=buffer.subarray(offset,offset+length);node.usedBytes=length;return length}else if(node.usedBytes===0&&position===0){node.contents=new Uint8Array(buffer.subarray(offset,offset+length));node.usedBytes=length;return length}else if(position+length<=node.usedBytes){node.contents.set(buffer.subarray(offset,offset+length),position);return length}}MEMFS.expandFileStorage(node,position+length);if(node.contents.subarray&&buffer.subarray)node.contents.set(buffer.subarray(offset,offset+length),position);else{for(var i=0;i<length;i++){node.contents[position+i]=buffer[offset+i]}}node.usedBytes=Math.max(node.usedBytes,position+length);return length},llseek:function(stream,offset,whence){var position=offset;if(whence===1){position+=stream.position}else if(whence===2){if(FS.isFile(stream.node.mode)){position+=stream.node.usedBytes}}if(position<0){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}return position},allocate:function(stream,offset,length){MEMFS.expandFileStorage(stream.node,offset+length);stream.node.usedBytes=Math.max(stream.node.usedBytes,offset+length)},mmap:function(stream,buffer,offset,length,position,prot,flags){if(!FS.isFile(stream.node.mode)){throw new FS.ErrnoError(ERRNO_CODES.ENODEV)}var ptr;var allocated;var contents=stream.node.contents;if(!(flags&2)&&(contents.buffer===buffer||contents.buffer===buffer.buffer)){allocated=false;ptr=contents.byteOffset}else{if(position>0||position+length<stream.node.usedBytes){if(contents.subarray){contents=contents.subarray(position,position+length)}else{contents=Array.prototype.slice.call(contents,position,position+length)}}allocated=true;ptr=_malloc(length);if(!ptr){throw new FS.ErrnoError(ERRNO_CODES.ENOMEM)}buffer.set(contents,ptr)}return{ptr:ptr,allocated:allocated}},msync:function(stream,buffer,offset,length,mmapFlags){if(!FS.isFile(stream.node.mode)){throw new FS.ErrnoError(ERRNO_CODES.ENODEV)}if(mmapFlags&2){return 0}var bytesWritten=MEMFS.stream_ops.write(stream,buffer,0,length,offset,false);return 0}}};var IDBFS={dbs:{},indexedDB:function(){if(typeof indexedDB!=="undefined")return indexedDB;var ret=null;if(typeof window==="object")ret=window.indexedDB||window.mozIndexedDB||window.webkitIndexedDB||window.msIndexedDB;assert(ret,"IDBFS used, but indexedDB not supported");return ret},DB_VERSION:21,DB_STORE_NAME:"FILE_DATA",mount:function(mount){return MEMFS.mount.apply(null,arguments)},syncfs:function(mount,populate,callback){IDBFS.getLocalSet(mount,function(err,local){if(err)return callback(err);IDBFS.getRemoteSet(mount,function(err,remote){if(err)return callback(err);var src=populate?remote:local;var dst=populate?local:remote;IDBFS.reconcile(src,dst,callback)})})},getDB:function(name,callback){var db=IDBFS.dbs[name];if(db){return callback(null,db)}var req;try{req=IDBFS.indexedDB().open(name,IDBFS.DB_VERSION)}catch(e){return callback(e)}if(!req){return callback("Unable to connect to IndexedDB")}req.onupgradeneeded=function(e){var db=e.target.result;var transaction=e.target.transaction;var fileStore;if(db.objectStoreNames.contains(IDBFS.DB_STORE_NAME)){fileStore=transaction.objectStore(IDBFS.DB_STORE_NAME)}else{fileStore=db.createObjectStore(IDBFS.DB_STORE_NAME)}if(!fileStore.indexNames.contains("timestamp")){fileStore.createIndex("timestamp","timestamp",{unique:false})}};req.onsuccess=function(){db=req.result;IDBFS.dbs[name]=db;callback(null,db)};req.onerror=function(e){callback(this.error);e.preventDefault()}},getLocalSet:function(mount,callback){var entries={};function isRealDir(p){return p!=="."&&p!==".."}function toAbsolute(root){return function(p){return PATH.join2(root,p)}}var check=FS.readdir(mount.mountpoint).filter(isRealDir).map(toAbsolute(mount.mountpoint));while(check.length){var path=check.pop();var stat;try{stat=FS.stat(path)}catch(e){return callback(e)}if(FS.isDir(stat.mode)){check.push.apply(check,FS.readdir(path).filter(isRealDir).map(toAbsolute(path)))}entries[path]={timestamp:stat.mtime}}return callback(null,{type:"local",entries:entries})},getRemoteSet:function(mount,callback){var entries={};IDBFS.getDB(mount.mountpoint,function(err,db){if(err)return callback(err);try{var transaction=db.transaction([IDBFS.DB_STORE_NAME],"readonly");transaction.onerror=function(e){callback(this.error);e.preventDefault()};var store=transaction.objectStore(IDBFS.DB_STORE_NAME);var index=store.index("timestamp");index.openKeyCursor().onsuccess=function(event){var cursor=event.target.result;if(!cursor){return callback(null,{type:"remote",db:db,entries:entries})}entries[cursor.primaryKey]={timestamp:cursor.key};cursor.continue()}}catch(e){return callback(e)}})},loadLocalEntry:function(path,callback){var stat,node;try{var lookup=FS.lookupPath(path);node=lookup.node;stat=FS.stat(path)}catch(e){return callback(e)}if(FS.isDir(stat.mode)){return callback(null,{timestamp:stat.mtime,mode:stat.mode})}else if(FS.isFile(stat.mode)){node.contents=MEMFS.getFileDataAsTypedArray(node);return callback(null,{timestamp:stat.mtime,mode:stat.mode,contents:node.contents})}else{return callback(new Error("node type not supported"))}},storeLocalEntry:function(path,entry,callback){try{if(FS.isDir(entry.mode)){FS.mkdir(path,entry.mode)}else if(FS.isFile(entry.mode)){FS.writeFile(path,entry.contents,{canOwn:true})}else{return callback(new Error("node type not supported"))}FS.chmod(path,entry.mode);FS.utime(path,entry.timestamp,entry.timestamp)}catch(e){return callback(e)}callback(null)},removeLocalEntry:function(path,callback){try{var lookup=FS.lookupPath(path);var stat=FS.stat(path);if(FS.isDir(stat.mode)){FS.rmdir(path)}else if(FS.isFile(stat.mode)){FS.unlink(path)}}catch(e){return callback(e)}callback(null)},loadRemoteEntry:function(store,path,callback){var req=store.get(path);req.onsuccess=function(event){callback(null,event.target.result)};req.onerror=function(e){callback(this.error);e.preventDefault()}},storeRemoteEntry:function(store,path,entry,callback){var req=store.put(entry,path);req.onsuccess=function(){callback(null)};req.onerror=function(e){callback(this.error);e.preventDefault()}},removeRemoteEntry:function(store,path,callback){var req=store.delete(path);req.onsuccess=function(){callback(null)};req.onerror=function(e){callback(this.error);e.preventDefault()}},reconcile:function(src,dst,callback){var total=0;var create=[];Object.keys(src.entries).forEach(function(key){var e=src.entries[key];var e2=dst.entries[key];if(!e2||e.timestamp>e2.timestamp){create.push(key);total++}});var remove=[];Object.keys(dst.entries).forEach(function(key){var e=dst.entries[key];var e2=src.entries[key];if(!e2){remove.push(key);total++}});if(!total){return callback(null)}var errored=false;var completed=0;var db=src.type==="remote"?src.db:dst.db;var transaction=db.transaction([IDBFS.DB_STORE_NAME],"readwrite");var store=transaction.objectStore(IDBFS.DB_STORE_NAME);function done(err){if(err){if(!done.errored){done.errored=true;return callback(err)}return}if(++completed>=total){return callback(null)}}transaction.onerror=function(e){done(this.error);e.preventDefault()};create.sort().forEach(function(path){if(dst.type==="local"){IDBFS.loadRemoteEntry(store,path,function(err,entry){if(err)return done(err);IDBFS.storeLocalEntry(path,entry,done)})}else{IDBFS.loadLocalEntry(path,function(err,entry){if(err)return done(err);IDBFS.storeRemoteEntry(store,path,entry,done)})}});remove.sort().reverse().forEach(function(path){if(dst.type==="local"){IDBFS.removeLocalEntry(path,done)}else{IDBFS.removeRemoteEntry(store,path,done)}})}};var NODEFS={isWindows:false,staticInit:function(){NODEFS.isWindows=!!process.platform.match(/^win/);var flags=process["binding"]("constants");if(flags["fs"]){flags=flags["fs"]}NODEFS.flagsForNodeMap={1024:flags["O_APPEND"],64:flags["O_CREAT"],128:flags["O_EXCL"],0:flags["O_RDONLY"],2:flags["O_RDWR"],4096:flags["O_SYNC"],512:flags["O_TRUNC"],1:flags["O_WRONLY"]}},bufferFrom:function(arrayBuffer){return Buffer.alloc?Buffer.from(arrayBuffer):new Buffer(arrayBuffer)},mount:function(mount){assert(ENVIRONMENT_IS_NODE);return NODEFS.createNode(null,"/",NODEFS.getMode(mount.opts.root),0)},createNode:function(parent,name,mode,dev){if(!FS.isDir(mode)&&!FS.isFile(mode)&&!FS.isLink(mode)){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}var node=FS.createNode(parent,name,mode);node.node_ops=NODEFS.node_ops;node.stream_ops=NODEFS.stream_ops;return node},getMode:function(path){var stat;try{stat=fs.lstatSync(path);if(NODEFS.isWindows){stat.mode=stat.mode|(stat.mode&292)>>2}}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}return stat.mode},realPath:function(node){var parts=[];while(node.parent!==node){parts.push(node.name);node=node.parent}parts.push(node.mount.opts.root);parts.reverse();return PATH.join.apply(null,parts)},flagsForNode:function(flags){flags&=~2097152;flags&=~2048;flags&=~32768;flags&=~524288;var newFlags=0;for(var k in NODEFS.flagsForNodeMap){if(flags&k){newFlags|=NODEFS.flagsForNodeMap[k];flags^=k}}if(!flags){return newFlags}else{throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}},node_ops:{getattr:function(node){var path=NODEFS.realPath(node);var stat;try{stat=fs.lstatSync(path)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}if(NODEFS.isWindows&&!stat.blksize){stat.blksize=4096}if(NODEFS.isWindows&&!stat.blocks){stat.blocks=(stat.size+stat.blksize-1)/stat.blksize|0}return{dev:stat.dev,ino:stat.ino,mode:stat.mode,nlink:stat.nlink,uid:stat.uid,gid:stat.gid,rdev:stat.rdev,size:stat.size,atime:stat.atime,mtime:stat.mtime,ctime:stat.ctime,blksize:stat.blksize,blocks:stat.blocks}},setattr:function(node,attr){var path=NODEFS.realPath(node);try{if(attr.mode!==undefined){fs.chmodSync(path,attr.mode);node.mode=attr.mode}if(attr.timestamp!==undefined){var date=new Date(attr.timestamp);fs.utimesSync(path,date,date)}if(attr.size!==undefined){fs.truncateSync(path,attr.size)}}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},lookup:function(parent,name){var path=PATH.join2(NODEFS.realPath(parent),name);var mode=NODEFS.getMode(path);return NODEFS.createNode(parent,name,mode)},mknod:function(parent,name,mode,dev){var node=NODEFS.createNode(parent,name,mode,dev);var path=NODEFS.realPath(node);try{if(FS.isDir(node.mode)){fs.mkdirSync(path,node.mode)}else{fs.writeFileSync(path,"",{mode:node.mode})}}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}return node},rename:function(oldNode,newDir,newName){var oldPath=NODEFS.realPath(oldNode);var newPath=PATH.join2(NODEFS.realPath(newDir),newName);try{fs.renameSync(oldPath,newPath)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},unlink:function(parent,name){var path=PATH.join2(NODEFS.realPath(parent),name);try{fs.unlinkSync(path)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},rmdir:function(parent,name){var path=PATH.join2(NODEFS.realPath(parent),name);try{fs.rmdirSync(path)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},readdir:function(node){var path=NODEFS.realPath(node);try{return fs.readdirSync(path)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},symlink:function(parent,newName,oldPath){var newPath=PATH.join2(NODEFS.realPath(parent),newName);try{fs.symlinkSync(oldPath,newPath)}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},readlink:function(node){var path=NODEFS.realPath(node);try{path=fs.readlinkSync(path);path=NODEJS_PATH.relative(NODEJS_PATH.resolve(node.mount.opts.root),path);return path}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}}},stream_ops:{open:function(stream){var path=NODEFS.realPath(stream.node);try{if(FS.isFile(stream.node.mode)){stream.nfd=fs.openSync(path,NODEFS.flagsForNode(stream.flags))}}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},close:function(stream){try{if(FS.isFile(stream.node.mode)&&stream.nfd){fs.closeSync(stream.nfd)}}catch(e){if(!e.code)throw e;throw new FS.ErrnoError(ERRNO_CODES[e.code])}},read:function(stream,buffer,offset,length,position){if(length===0)return 0;try{return fs.readSync(stream.nfd,NODEFS.bufferFrom(buffer.buffer),offset,length,position)}catch(e){throw new FS.ErrnoError(ERRNO_CODES[e.code])}},write:function(stream,buffer,offset,length,position){try{return fs.writeSync(stream.nfd,NODEFS.bufferFrom(buffer.buffer),offset,length,position)}catch(e){throw new FS.ErrnoError(ERRNO_CODES[e.code])}},llseek:function(stream,offset,whence){var position=offset;if(whence===1){position+=stream.position}else if(whence===2){if(FS.isFile(stream.node.mode)){try{var stat=fs.fstatSync(stream.nfd);position+=stat.size}catch(e){throw new FS.ErrnoError(ERRNO_CODES[e.code])}}}if(position<0){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}return position}}};var WORKERFS={DIR_MODE:16895,FILE_MODE:33279,reader:null,mount:function(mount){assert(ENVIRONMENT_IS_WORKER);if(!WORKERFS.reader)WORKERFS.reader=new FileReaderSync;var root=WORKERFS.createNode(null,"/",WORKERFS.DIR_MODE,0);var createdParents={};function ensureParent(path){var parts=path.split("/");var parent=root;for(var i=0;i<parts.length-1;i++){var curr=parts.slice(0,i+1).join("/");if(!createdParents[curr]){createdParents[curr]=WORKERFS.createNode(parent,parts[i],WORKERFS.DIR_MODE,0)}parent=createdParents[curr]}return parent}function base(path){var parts=path.split("/");return parts[parts.length-1]}Array.prototype.forEach.call(mount.opts["files"]||[],function(file){WORKERFS.createNode(ensureParent(file.name),base(file.name),WORKERFS.FILE_MODE,0,file,file.lastModifiedDate)});(mount.opts["blobs"]||[]).forEach(function(obj){WORKERFS.createNode(ensureParent(obj["name"]),base(obj["name"]),WORKERFS.FILE_MODE,0,obj["data"])});(mount.opts["packages"]||[]).forEach(function(pack){pack["metadata"].files.forEach(function(file){var name=file.filename.substr(1);WORKERFS.createNode(ensureParent(name),base(name),WORKERFS.FILE_MODE,0,pack["blob"].slice(file.start,file.end))})});return root},createNode:function(parent,name,mode,dev,contents,mtime){var node=FS.createNode(parent,name,mode);node.mode=mode;node.node_ops=WORKERFS.node_ops;node.stream_ops=WORKERFS.stream_ops;node.timestamp=(mtime||new Date).getTime();assert(WORKERFS.FILE_MODE!==WORKERFS.DIR_MODE);if(mode===WORKERFS.FILE_MODE){node.size=contents.size;node.contents=contents}else{node.size=4096;node.contents={}}if(parent){parent.contents[name]=node}return node},node_ops:{getattr:function(node){return{dev:1,ino:undefined,mode:node.mode,nlink:1,uid:0,gid:0,rdev:undefined,size:node.size,atime:new Date(node.timestamp),mtime:new Date(node.timestamp),ctime:new Date(node.timestamp),blksize:4096,blocks:Math.ceil(node.size/4096)}},setattr:function(node,attr){if(attr.mode!==undefined){node.mode=attr.mode}if(attr.timestamp!==undefined){node.timestamp=attr.timestamp}},lookup:function(parent,name){throw new FS.ErrnoError(ERRNO_CODES.ENOENT)},mknod:function(parent,name,mode,dev){throw new FS.ErrnoError(ERRNO_CODES.EPERM)},rename:function(oldNode,newDir,newName){throw new FS.ErrnoError(ERRNO_CODES.EPERM)},unlink:function(parent,name){throw new FS.ErrnoError(ERRNO_CODES.EPERM)},rmdir:function(parent,name){throw new FS.ErrnoError(ERRNO_CODES.EPERM)},readdir:function(node){var entries=[".",".."];for(var key in node.contents){if(!node.contents.hasOwnProperty(key)){continue}entries.push(key)}return entries},symlink:function(parent,newName,oldPath){throw new FS.ErrnoError(ERRNO_CODES.EPERM)},readlink:function(node){throw new FS.ErrnoError(ERRNO_CODES.EPERM)}},stream_ops:{read:function(stream,buffer,offset,length,position){if(position>=stream.node.size)return 0;var chunk=stream.node.contents.slice(position,position+length);var ab=WORKERFS.reader.readAsArrayBuffer(chunk);buffer.set(new Uint8Array(ab),offset);return chunk.size},write:function(stream,buffer,offset,length,position){throw new FS.ErrnoError(ERRNO_CODES.EIO)},llseek:function(stream,offset,whence){var position=offset;if(whence===1){position+=stream.position}else if(whence===2){if(FS.isFile(stream.node.mode)){position+=stream.node.size}}if(position<0){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}return position}}};var FS={root:null,mounts:[],devices:{},streams:[],nextInode:1,nameTable:null,currentPath:"/",initialized:false,ignorePermissions:true,trackingDelegate:{},tracking:{openFlags:{READ:1,WRITE:2}},ErrnoError:null,genericErrors:{},filesystems:null,syncFSRequests:0,handleFSError:function(e){if(!(e instanceof FS.ErrnoError))throw e+" : "+stackTrace();return ___setErrNo(e.errno)},lookupPath:function(path,opts){path=PATH.resolve(FS.cwd(),path);opts=opts||{};if(!path)return{path:"",node:null};var defaults={follow_mount:true,recurse_count:0};for(var key in defaults){if(opts[key]===undefined){opts[key]=defaults[key]}}if(opts.recurse_count>8){throw new FS.ErrnoError(40)}var parts=PATH.normalizeArray(path.split("/").filter(function(p){return!!p}),false);var current=FS.root;var current_path="/";for(var i=0;i<parts.length;i++){var islast=i===parts.length-1;if(islast&&opts.parent){break}current=FS.lookupNode(current,parts[i]);current_path=PATH.join2(current_path,parts[i]);if(FS.isMountpoint(current)){if(!islast||islast&&opts.follow_mount){current=current.mounted.root}}if(!islast||opts.follow){var count=0;while(FS.isLink(current.mode)){var link=FS.readlink(current_path);current_path=PATH.resolve(PATH.dirname(current_path),link);var lookup=FS.lookupPath(current_path,{recurse_count:opts.recurse_count});current=lookup.node;if(count++>40){throw new FS.ErrnoError(40)}}}}return{path:current_path,node:current}},getPath:function(node){var path;while(true){if(FS.isRoot(node)){var mount=node.mount.mountpoint;if(!path)return mount;return mount[mount.length-1]!=="/"?mount+"/"+path:mount+path}path=path?node.name+"/"+path:node.name;node=node.parent}},hashName:function(parentid,name){var hash=0;for(var i=0;i<name.length;i++){hash=(hash<<5)-hash+name.charCodeAt(i)|0}return(parentid+hash>>>0)%FS.nameTable.length},hashAddNode:function(node){var hash=FS.hashName(node.parent.id,node.name);node.name_next=FS.nameTable[hash];FS.nameTable[hash]=node},hashRemoveNode:function(node){var hash=FS.hashName(node.parent.id,node.name);if(FS.nameTable[hash]===node){FS.nameTable[hash]=node.name_next}else{var current=FS.nameTable[hash];while(current){if(current.name_next===node){current.name_next=node.name_next;break}current=current.name_next}}},lookupNode:function(parent,name){var err=FS.mayLookup(parent);if(err){throw new FS.ErrnoError(err,parent)}var hash=FS.hashName(parent.id,name);for(var node=FS.nameTable[hash];node;node=node.name_next){var nodeName=node.name;if(node.parent.id===parent.id&&nodeName===name){return node}}return FS.lookup(parent,name)},createNode:function(parent,name,mode,rdev){if(!FS.FSNode){FS.FSNode=function(parent,name,mode,rdev){if(!parent){parent=this}this.parent=parent;this.mount=parent.mount;this.mounted=null;this.id=FS.nextInode++;this.name=name;this.mode=mode;this.node_ops={};this.stream_ops={};this.rdev=rdev};FS.FSNode.prototype={};var readMode=292|73;var writeMode=146;Object.defineProperties(FS.FSNode.prototype,{read:{get:function(){return(this.mode&readMode)===readMode},set:function(val){val?this.mode|=readMode:this.mode&=~readMode}},write:{get:function(){return(this.mode&writeMode)===writeMode},set:function(val){val?this.mode|=writeMode:this.mode&=~writeMode}},isFolder:{get:function(){return FS.isDir(this.mode)}},isDevice:{get:function(){return FS.isChrdev(this.mode)}}})}var node=new FS.FSNode(parent,name,mode,rdev);FS.hashAddNode(node);return node},destroyNode:function(node){FS.hashRemoveNode(node)},isRoot:function(node){return node===node.parent},isMountpoint:function(node){return!!node.mounted},isFile:function(mode){return(mode&61440)===32768},isDir:function(mode){return(mode&61440)===16384},isLink:function(mode){return(mode&61440)===40960},isChrdev:function(mode){return(mode&61440)===8192},isBlkdev:function(mode){return(mode&61440)===24576},isFIFO:function(mode){return(mode&61440)===4096},isSocket:function(mode){return(mode&49152)===49152},flagModes:{"r":0,"rs":1052672,"r+":2,"w":577,"wx":705,"xw":705,"w+":578,"wx+":706,"xw+":706,"a":1089,"ax":1217,"xa":1217,"a+":1090,"ax+":1218,"xa+":1218},modeStringToFlags:function(str){var flags=FS.flagModes[str];if(typeof flags==="undefined"){throw new Error("Unknown file open mode: "+str)}return flags},flagsToPermissionString:function(flag){var perms=["r","w","rw"][flag&3];if(flag&512){perms+="w"}return perms},nodePermissions:function(node,perms){if(FS.ignorePermissions){return 0}if(perms.indexOf("r")!==-1&&!(node.mode&292)){return 13}else if(perms.indexOf("w")!==-1&&!(node.mode&146)){return 13}else if(perms.indexOf("x")!==-1&&!(node.mode&73)){return 13}return 0},mayLookup:function(dir){var err=FS.nodePermissions(dir,"x");if(err)return err;if(!dir.node_ops.lookup)return 13;return 0},mayCreate:function(dir,name){try{var node=FS.lookupNode(dir,name);return 17}catch(e){}return FS.nodePermissions(dir,"wx")},mayDelete:function(dir,name,isdir){var node;try{node=FS.lookupNode(dir,name)}catch(e){return e.errno}var err=FS.nodePermissions(dir,"wx");if(err){return err}if(isdir){if(!FS.isDir(node.mode)){return 20}if(FS.isRoot(node)||FS.getPath(node)===FS.cwd()){return 16}}else{if(FS.isDir(node.mode)){return 21}}return 0},mayOpen:function(node,flags){if(!node){return 2}if(FS.isLink(node.mode)){return 40}else if(FS.isDir(node.mode)){if(FS.flagsToPermissionString(flags)!=="r"||flags&512){return 21}}return FS.nodePermissions(node,FS.flagsToPermissionString(flags))},MAX_OPEN_FDS:4096,nextfd:function(fd_start,fd_end){fd_start=fd_start||0;fd_end=fd_end||FS.MAX_OPEN_FDS;for(var fd=fd_start;fd<=fd_end;fd++){if(!FS.streams[fd]){return fd}}throw new FS.ErrnoError(24)},getStream:function(fd){return FS.streams[fd]},createStream:function(stream,fd_start,fd_end){if(!FS.FSStream){FS.FSStream=function(){};FS.FSStream.prototype={};Object.defineProperties(FS.FSStream.prototype,{object:{get:function(){return this.node},set:function(val){this.node=val}},isRead:{get:function(){return(this.flags&2097155)!==1}},isWrite:{get:function(){return(this.flags&2097155)!==0}},isAppend:{get:function(){return this.flags&1024}}})}var newStream=new FS.FSStream;for(var p in stream){newStream[p]=stream[p]}stream=newStream;var fd=FS.nextfd(fd_start,fd_end);stream.fd=fd;FS.streams[fd]=stream;return stream},closeStream:function(fd){FS.streams[fd]=null},chrdev_stream_ops:{open:function(stream){var device=FS.getDevice(stream.node.rdev);stream.stream_ops=device.stream_ops;if(stream.stream_ops.open){stream.stream_ops.open(stream)}},llseek:function(){throw new FS.ErrnoError(29)}},major:function(dev){return dev>>8},minor:function(dev){return dev&255},makedev:function(ma,mi){return ma<<8|mi},registerDevice:function(dev,ops){FS.devices[dev]={stream_ops:ops}},getDevice:function(dev){return FS.devices[dev]},getMounts:function(mount){var mounts=[];var check=[mount];while(check.length){var m=check.pop();mounts.push(m);check.push.apply(check,m.mounts)}return mounts},syncfs:function(populate,callback){if(typeof populate==="function"){callback=populate;populate=false}FS.syncFSRequests++;if(FS.syncFSRequests>1){console.log("warning: "+FS.syncFSRequests+" FS.syncfs operations in flight at once, probably just doing extra work")}var mounts=FS.getMounts(FS.root.mount);var completed=0;function doCallback(err){FS.syncFSRequests--;return callback(err)}function done(err){if(err){if(!done.errored){done.errored=true;return doCallback(err)}return}if(++completed>=mounts.length){doCallback(null)}}mounts.forEach(function(mount){if(!mount.type.syncfs){return done(null)}mount.type.syncfs(mount,populate,done)})},mount:function(type,opts,mountpoint){var root=mountpoint==="/";var pseudo=!mountpoint;var node;if(root&&FS.root){throw new FS.ErrnoError(16)}else if(!root&&!pseudo){var lookup=FS.lookupPath(mountpoint,{follow_mount:false});mountpoint=lookup.path;node=lookup.node;if(FS.isMountpoint(node)){throw new FS.ErrnoError(16)}if(!FS.isDir(node.mode)){throw new FS.ErrnoError(20)}}var mount={type:type,opts:opts,mountpoint:mountpoint,mounts:[]};var mountRoot=type.mount(mount);mountRoot.mount=mount;mount.root=mountRoot;if(root){FS.root=mountRoot}else if(node){node.mounted=mount;if(node.mount){node.mount.mounts.push(mount)}}return mountRoot},unmount:function(mountpoint){var lookup=FS.lookupPath(mountpoint,{follow_mount:false});if(!FS.isMountpoint(lookup.node)){throw new FS.ErrnoError(22)}var node=lookup.node;var mount=node.mounted;var mounts=FS.getMounts(mount);Object.keys(FS.nameTable).forEach(function(hash){var current=FS.nameTable[hash];while(current){var next=current.name_next;if(mounts.indexOf(current.mount)!==-1){FS.destroyNode(current)}current=next}});node.mounted=null;var idx=node.mount.mounts.indexOf(mount);node.mount.mounts.splice(idx,1)},lookup:function(parent,name){return parent.node_ops.lookup(parent,name)},mknod:function(path,mode,dev){var lookup=FS.lookupPath(path,{parent:true});var parent=lookup.node;var name=PATH.basename(path);if(!name||name==="."||name===".."){throw new FS.ErrnoError(22)}var err=FS.mayCreate(parent,name);if(err){throw new FS.ErrnoError(err)}if(!parent.node_ops.mknod){throw new FS.ErrnoError(1)}return parent.node_ops.mknod(parent,name,mode,dev)},create:function(path,mode){mode=mode!==undefined?mode:438;mode&=4095;mode|=32768;return FS.mknod(path,mode,0)},mkdir:function(path,mode){mode=mode!==undefined?mode:511;mode&=511|512;mode|=16384;return FS.mknod(path,mode,0)},mkdirTree:function(path,mode){var dirs=path.split("/");var d="";for(var i=0;i<dirs.length;++i){if(!dirs[i])continue;d+="/"+dirs[i];try{FS.mkdir(d,mode)}catch(e){if(e.errno!=17)throw e}}},mkdev:function(path,mode,dev){if(typeof dev==="undefined"){dev=mode;mode=438}mode|=8192;return FS.mknod(path,mode,dev)},symlink:function(oldpath,newpath){if(!PATH.resolve(oldpath)){throw new FS.ErrnoError(2)}var lookup=FS.lookupPath(newpath,{parent:true});var parent=lookup.node;if(!parent){throw new FS.ErrnoError(2)}var newname=PATH.basename(newpath);var err=FS.mayCreate(parent,newname);if(err){throw new FS.ErrnoError(err)}if(!parent.node_ops.symlink){throw new FS.ErrnoError(1)}return parent.node_ops.symlink(parent,newname,oldpath)},rename:function(old_path,new_path){var old_dirname=PATH.dirname(old_path);var new_dirname=PATH.dirname(new_path);var old_name=PATH.basename(old_path);var new_name=PATH.basename(new_path);var lookup,old_dir,new_dir;try{lookup=FS.lookupPath(old_path,{parent:true});old_dir=lookup.node;lookup=FS.lookupPath(new_path,{parent:true});new_dir=lookup.node}catch(e){throw new FS.ErrnoError(16)}if(!old_dir||!new_dir)throw new FS.ErrnoError(2);if(old_dir.mount!==new_dir.mount){throw new FS.ErrnoError(18)}var old_node=FS.lookupNode(old_dir,old_name);var relative=PATH.relative(old_path,new_dirname);if(relative.charAt(0)!=="."){throw new FS.ErrnoError(22)}relative=PATH.relative(new_path,old_dirname);if(relative.charAt(0)!=="."){throw new FS.ErrnoError(39)}var new_node;try{new_node=FS.lookupNode(new_dir,new_name)}catch(e){}if(old_node===new_node){return}var isdir=FS.isDir(old_node.mode);var err=FS.mayDelete(old_dir,old_name,isdir);if(err){throw new FS.ErrnoError(err)}err=new_node?FS.mayDelete(new_dir,new_name,isdir):FS.mayCreate(new_dir,new_name);if(err){throw new FS.ErrnoError(err)}if(!old_dir.node_ops.rename){throw new FS.ErrnoError(1)}if(FS.isMountpoint(old_node)||new_node&&FS.isMountpoint(new_node)){throw new FS.ErrnoError(16)}if(new_dir!==old_dir){err=FS.nodePermissions(old_dir,"w");if(err){throw new FS.ErrnoError(err)}}try{if(FS.trackingDelegate["willMovePath"]){FS.trackingDelegate["willMovePath"](old_path,new_path)}}catch(e){console.log("FS.trackingDelegate['willMovePath']('"+old_path+"', '"+new_path+"') threw an exception: "+e.message)}FS.hashRemoveNode(old_node);try{old_dir.node_ops.rename(old_node,new_dir,new_name)}catch(e){throw e}finally{FS.hashAddNode(old_node)}try{if(FS.trackingDelegate["onMovePath"])FS.trackingDelegate["onMovePath"](old_path,new_path)}catch(e){console.log("FS.trackingDelegate['onMovePath']('"+old_path+"', '"+new_path+"') threw an exception: "+e.message)}},rmdir:function(path){var lookup=FS.lookupPath(path,{parent:true});var parent=lookup.node;var name=PATH.basename(path);var node=FS.lookupNode(parent,name);var err=FS.mayDelete(parent,name,true);if(err){throw new FS.ErrnoError(err)}if(!parent.node_ops.rmdir){throw new FS.ErrnoError(1)}if(FS.isMountpoint(node)){throw new FS.ErrnoError(16)}try{if(FS.trackingDelegate["willDeletePath"]){FS.trackingDelegate["willDeletePath"](path)}}catch(e){console.log("FS.trackingDelegate['willDeletePath']('"+path+"') threw an exception: "+e.message)}parent.node_ops.rmdir(parent,name);FS.destroyNode(node);try{if(FS.trackingDelegate["onDeletePath"])FS.trackingDelegate["onDeletePath"](path)}catch(e){console.log("FS.trackingDelegate['onDeletePath']('"+path+"') threw an exception: "+e.message)}},readdir:function(path){var lookup=FS.lookupPath(path,{follow:true});var node=lookup.node;if(!node.node_ops.readdir){throw new FS.ErrnoError(20)}return node.node_ops.readdir(node)},unlink:function(path){var lookup=FS.lookupPath(path,{parent:true});var parent=lookup.node;var name=PATH.basename(path);var node=FS.lookupNode(parent,name);var err=FS.mayDelete(parent,name,false);if(err){throw new FS.ErrnoError(err)}if(!parent.node_ops.unlink){throw new FS.ErrnoError(1)}if(FS.isMountpoint(node)){throw new FS.ErrnoError(16)}try{if(FS.trackingDelegate["willDeletePath"]){FS.trackingDelegate["willDeletePath"](path)}}catch(e){console.log("FS.trackingDelegate['willDeletePath']('"+path+"') threw an exception: "+e.message)}parent.node_ops.unlink(parent,name);FS.destroyNode(node);try{if(FS.trackingDelegate["onDeletePath"])FS.trackingDelegate["onDeletePath"](path)}catch(e){console.log("FS.trackingDelegate['onDeletePath']('"+path+"') threw an exception: "+e.message)}},readlink:function(path){var lookup=FS.lookupPath(path);var link=lookup.node;if(!link){throw new FS.ErrnoError(2)}if(!link.node_ops.readlink){throw new FS.ErrnoError(22)}return PATH.resolve(FS.getPath(link.parent),link.node_ops.readlink(link))},stat:function(path,dontFollow){var lookup=FS.lookupPath(path,{follow:!dontFollow});var node=lookup.node;if(!node){throw new FS.ErrnoError(2)}if(!node.node_ops.getattr){throw new FS.ErrnoError(1)}return node.node_ops.getattr(node)},lstat:function(path){return FS.stat(path,true)},chmod:function(path,mode,dontFollow){var node;if(typeof path==="string"){var lookup=FS.lookupPath(path,{follow:!dontFollow});node=lookup.node}else{node=path}if(!node.node_ops.setattr){throw new FS.ErrnoError(1)}node.node_ops.setattr(node,{mode:mode&4095|node.mode&~4095,timestamp:Date.now()})},lchmod:function(path,mode){FS.chmod(path,mode,true)},fchmod:function(fd,mode){var stream=FS.getStream(fd);if(!stream){throw new FS.ErrnoError(9)}FS.chmod(stream.node,mode)},chown:function(path,uid,gid,dontFollow){var node;if(typeof path==="string"){var lookup=FS.lookupPath(path,{follow:!dontFollow});node=lookup.node}else{node=path}if(!node.node_ops.setattr){throw new FS.ErrnoError(1)}node.node_ops.setattr(node,{timestamp:Date.now()})},lchown:function(path,uid,gid){FS.chown(path,uid,gid,true)},fchown:function(fd,uid,gid){var stream=FS.getStream(fd);if(!stream){throw new FS.ErrnoError(9)}FS.chown(stream.node,uid,gid)},truncate:function(path,len){if(len<0){throw new FS.ErrnoError(22)}var node;if(typeof path==="string"){var lookup=FS.lookupPath(path,{follow:true});node=lookup.node}else{node=path}if(!node.node_ops.setattr){throw new FS.ErrnoError(1)}if(FS.isDir(node.mode)){throw new FS.ErrnoError(21)}if(!FS.isFile(node.mode)){throw new FS.ErrnoError(22)}var err=FS.nodePermissions(node,"w");if(err){throw new FS.ErrnoError(err)}node.node_ops.setattr(node,{size:len,timestamp:Date.now()})},ftruncate:function(fd,len){var stream=FS.getStream(fd);if(!stream){throw new FS.ErrnoError(9)}if((stream.flags&2097155)===0){throw new FS.ErrnoError(22)}FS.truncate(stream.node,len)},utime:function(path,atime,mtime){var lookup=FS.lookupPath(path,{follow:true});var node=lookup.node;node.node_ops.setattr(node,{timestamp:Math.max(atime,mtime)})},open:function(path,flags,mode,fd_start,fd_end){if(path===""){throw new FS.ErrnoError(2)}flags=typeof flags==="string"?FS.modeStringToFlags(flags):flags;mode=typeof mode==="undefined"?438:mode;if(flags&64){mode=mode&4095|32768}else{mode=0}var node;if(typeof path==="object"){node=path}else{path=PATH.normalize(path);try{var lookup=FS.lookupPath(path,{follow:!(flags&131072)});node=lookup.node}catch(e){}}var created=false;if(flags&64){if(node){if(flags&128){throw new FS.ErrnoError(17)}}else{node=FS.mknod(path,mode,0);created=true}}if(!node){throw new FS.ErrnoError(2)}if(FS.isChrdev(node.mode)){flags&=~512}if(flags&65536&&!FS.isDir(node.mode)){throw new FS.ErrnoError(20)}if(!created){var err=FS.mayOpen(node,flags);if(err){throw new FS.ErrnoError(err)}}if(flags&512){FS.truncate(node,0)}flags&=~(128|512);var stream=FS.createStream({node:node,path:FS.getPath(node),flags:flags,seekable:true,position:0,stream_ops:node.stream_ops,ungotten:[],error:false},fd_start,fd_end);if(stream.stream_ops.open){stream.stream_ops.open(stream)}if(Module["logReadFiles"]&&!(flags&1)){if(!FS.readFiles)FS.readFiles={};if(!(path in FS.readFiles)){FS.readFiles[path]=1;console.log("FS.trackingDelegate error on read file: "+path)}}try{if(FS.trackingDelegate["onOpenFile"]){var trackingFlags=0;if((flags&2097155)!==1){trackingFlags|=FS.tracking.openFlags.READ}if((flags&2097155)!==0){trackingFlags|=FS.tracking.openFlags.WRITE}FS.trackingDelegate["onOpenFile"](path,trackingFlags)}}catch(e){console.log("FS.trackingDelegate['onOpenFile']('"+path+"', flags) threw an exception: "+e.message)}return stream},close:function(stream){if(FS.isClosed(stream)){throw new FS.ErrnoError(9)}if(stream.getdents)stream.getdents=null;try{if(stream.stream_ops.close){stream.stream_ops.close(stream)}}catch(e){throw e}finally{FS.closeStream(stream.fd)}stream.fd=null},isClosed:function(stream){return stream.fd===null},llseek:function(stream,offset,whence){if(FS.isClosed(stream)){throw new FS.ErrnoError(9)}if(!stream.seekable||!stream.stream_ops.llseek){throw new FS.ErrnoError(29)}if(whence!=0&&whence!=1&&whence!=2){throw new FS.ErrnoError(22)}stream.position=stream.stream_ops.llseek(stream,offset,whence);stream.ungotten=[];return stream.position},read:function(stream,buffer,offset,length,position){if(length<0||position<0){throw new FS.ErrnoError(22)}if(FS.isClosed(stream)){throw new FS.ErrnoError(9)}if((stream.flags&2097155)===1){throw new FS.ErrnoError(9)}if(FS.isDir(stream.node.mode)){throw new FS.ErrnoError(21)}if(!stream.stream_ops.read){throw new FS.ErrnoError(22)}var seeking=typeof position!=="undefined";if(!seeking){position=stream.position}else if(!stream.seekable){throw new FS.ErrnoError(29)}var bytesRead=stream.stream_ops.read(stream,buffer,offset,length,position);if(!seeking)stream.position+=bytesRead;return bytesRead},write:function(stream,buffer,offset,length,position,canOwn){if(length<0||position<0){throw new FS.ErrnoError(22)}if(FS.isClosed(stream)){throw new FS.ErrnoError(9)}if((stream.flags&2097155)===0){throw new FS.ErrnoError(9)}if(FS.isDir(stream.node.mode)){throw new FS.ErrnoError(21)}if(!stream.stream_ops.write){throw new FS.ErrnoError(22)}if(stream.flags&1024){FS.llseek(stream,0,2)}var seeking=typeof position!=="undefined";if(!seeking){position=stream.position}else if(!stream.seekable){throw new FS.ErrnoError(29)}var bytesWritten=stream.stream_ops.write(stream,buffer,offset,length,position,canOwn);if(!seeking)stream.position+=bytesWritten;try{if(stream.path&&FS.trackingDelegate["onWriteToFile"])FS.trackingDelegate["onWriteToFile"](stream.path)}catch(e){console.log("FS.trackingDelegate['onWriteToFile']('"+stream.path+"') threw an exception: "+e.message)}return bytesWritten},allocate:function(stream,offset,length){if(FS.isClosed(stream)){throw new FS.ErrnoError(9)}if(offset<0||length<=0){throw new FS.ErrnoError(22)}if((stream.flags&2097155)===0){throw new FS.ErrnoError(9)}if(!FS.isFile(stream.node.mode)&&!FS.isDir(stream.node.mode)){throw new FS.ErrnoError(19)}if(!stream.stream_ops.allocate){throw new FS.ErrnoError(95)}stream.stream_ops.allocate(stream,offset,length)},mmap:function(stream,buffer,offset,length,position,prot,flags){if((stream.flags&2097155)===1){throw new FS.ErrnoError(13)}if(!stream.stream_ops.mmap){throw new FS.ErrnoError(19)}return stream.stream_ops.mmap(stream,buffer,offset,length,position,prot,flags)},msync:function(stream,buffer,offset,length,mmapFlags){if(!stream||!stream.stream_ops.msync){return 0}return stream.stream_ops.msync(stream,buffer,offset,length,mmapFlags)},munmap:function(stream){return 0},ioctl:function(stream,cmd,arg){if(!stream.stream_ops.ioctl){throw new FS.ErrnoError(25)}return stream.stream_ops.ioctl(stream,cmd,arg)},readFile:function(path,opts){opts=opts||{};opts.flags=opts.flags||"r";opts.encoding=opts.encoding||"binary";if(opts.encoding!=="utf8"&&opts.encoding!=="binary"){throw new Error('Invalid encoding type "'+opts.encoding+'"')}var ret;var stream=FS.open(path,opts.flags);var stat=FS.stat(path);var length=stat.size;var buf=new Uint8Array(length);FS.read(stream,buf,0,length,0);if(opts.encoding==="utf8"){ret=UTF8ArrayToString(buf,0)}else if(opts.encoding==="binary"){ret=buf}FS.close(stream);return ret},writeFile:function(path,data,opts){opts=opts||{};opts.flags=opts.flags||"w";var stream=FS.open(path,opts.flags,opts.mode);if(typeof data==="string"){var buf=new Uint8Array(lengthBytesUTF8(data)+1);var actualNumBytes=stringToUTF8Array(data,buf,0,buf.length);FS.write(stream,buf,0,actualNumBytes,undefined,opts.canOwn)}else if(ArrayBuffer.isView(data)){FS.write(stream,data,0,data.byteLength,undefined,opts.canOwn)}else{throw new Error("Unsupported data type")}FS.close(stream)},cwd:function(){return FS.currentPath},chdir:function(path){var lookup=FS.lookupPath(path,{follow:true});if(lookup.node===null){throw new FS.ErrnoError(2)}if(!FS.isDir(lookup.node.mode)){throw new FS.ErrnoError(20)}var err=FS.nodePermissions(lookup.node,"x");if(err){throw new FS.ErrnoError(err)}FS.currentPath=lookup.path},createDefaultDirectories:function(){FS.mkdir("/tmp");FS.mkdir("/home");FS.mkdir("/home/web_user")},createDefaultDevices:function(){FS.mkdir("/dev");FS.registerDevice(FS.makedev(1,3),{read:function(){return 0},write:function(stream,buffer,offset,length,pos){return length}});FS.mkdev("/dev/null",FS.makedev(1,3));TTY.register(FS.makedev(5,0),TTY.default_tty_ops);TTY.register(FS.makedev(6,0),TTY.default_tty1_ops);FS.mkdev("/dev/tty",FS.makedev(5,0));FS.mkdev("/dev/tty1",FS.makedev(6,0));var random_device;if(typeof crypto==="object"&&typeof crypto["getRandomValues"]==="function"){var randomBuffer=new Uint8Array(1);random_device=function(){crypto.getRandomValues(randomBuffer);return randomBuffer[0]}}else if(ENVIRONMENT_IS_NODE){try{var crypto_module=require("crypto");random_device=function(){return crypto_module["randomBytes"](1)[0]}}catch(e){random_device=function(){return Math.random()*256|0}}}else{random_device=function(){abort("random_device")}}FS.createDevice("/dev","random",random_device);FS.createDevice("/dev","urandom",random_device);FS.mkdir("/dev/shm");FS.mkdir("/dev/shm/tmp")},createSpecialDirectories:function(){FS.mkdir("/proc");FS.mkdir("/proc/self");FS.mkdir("/proc/self/fd");FS.mount({mount:function(){var node=FS.createNode("/proc/self","fd",16384|511,73);node.node_ops={lookup:function(parent,name){var fd=+name;var stream=FS.getStream(fd);if(!stream)throw new FS.ErrnoError(9);var ret={parent:null,mount:{mountpoint:"fake"},node_ops:{readlink:function(){return stream.path}}};ret.parent=ret;return ret}};return node}},{},"/proc/self/fd")},createStandardStreams:function(){if(Module["stdin"]){FS.createDevice("/dev","stdin",Module["stdin"])}else{FS.symlink("/dev/tty","/dev/stdin")}if(Module["stdout"]){FS.createDevice("/dev","stdout",null,Module["stdout"])}else{FS.symlink("/dev/tty","/dev/stdout")}if(Module["stderr"]){FS.createDevice("/dev","stderr",null,Module["stderr"])}else{FS.symlink("/dev/tty1","/dev/stderr")}var stdin=FS.open("/dev/stdin","r");var stdout=FS.open("/dev/stdout","w");var stderr=FS.open("/dev/stderr","w")},ensureErrnoError:function(){if(FS.ErrnoError)return;FS.ErrnoError=function ErrnoError(errno,node){this.node=node;this.setErrno=function(errno){this.errno=errno};this.setErrno(errno);this.message="FS error";if(this.stack)Object.defineProperty(this,"stack",{value:(new Error).stack,writable:true})};FS.ErrnoError.prototype=new Error;FS.ErrnoError.prototype.constructor=FS.ErrnoError;[2].forEach(function(code){FS.genericErrors[code]=new FS.ErrnoError(code);FS.genericErrors[code].stack="<generic error, no stack>"})},staticInit:function(){FS.ensureErrnoError();FS.nameTable=new Array(4096);FS.mount(MEMFS,{},"/");FS.createDefaultDirectories();FS.createDefaultDevices();FS.createSpecialDirectories();FS.filesystems={"MEMFS":MEMFS,"IDBFS":IDBFS,"NODEFS":NODEFS,"WORKERFS":WORKERFS}},init:function(input,output,error){FS.init.initialized=true;FS.ensureErrnoError();Module["stdin"]=input||Module["stdin"];Module["stdout"]=output||Module["stdout"];Module["stderr"]=error||Module["stderr"];FS.createStandardStreams()},quit:function(){FS.init.initialized=false;var fflush=Module["_fflush"];if(fflush)fflush(0);for(var i=0;i<FS.streams.length;i++){var stream=FS.streams[i];if(!stream){continue}FS.close(stream)}},getMode:function(canRead,canWrite){var mode=0;if(canRead)mode|=292|73;if(canWrite)mode|=146;return mode},joinPath:function(parts,forceRelative){var path=PATH.join.apply(null,parts);if(forceRelative&&path[0]=="/")path=path.substr(1);return path},absolutePath:function(relative,base){return PATH.resolve(base,relative)},standardizePath:function(path){return PATH.normalize(path)},findObject:function(path,dontResolveLastLink){var ret=FS.analyzePath(path,dontResolveLastLink);if(ret.exists){return ret.object}else{___setErrNo(ret.error);return null}},analyzePath:function(path,dontResolveLastLink){try{var lookup=FS.lookupPath(path,{follow:!dontResolveLastLink});path=lookup.path}catch(e){}var ret={isRoot:false,exists:false,error:0,name:null,path:null,object:null,parentExists:false,parentPath:null,parentObject:null};try{var lookup=FS.lookupPath(path,{parent:true});ret.parentExists=true;ret.parentPath=lookup.path;ret.parentObject=lookup.node;ret.name=PATH.basename(path);lookup=FS.lookupPath(path,{follow:!dontResolveLastLink});ret.exists=true;ret.path=lookup.path;ret.object=lookup.node;ret.name=lookup.node.name;ret.isRoot=lookup.path==="/"}catch(e){ret.error=e.errno}return ret},createFolder:function(parent,name,canRead,canWrite){var path=PATH.join2(typeof parent==="string"?parent:FS.getPath(parent),name);var mode=FS.getMode(canRead,canWrite);return FS.mkdir(path,mode)},createPath:function(parent,path,canRead,canWrite){parent=typeof parent==="string"?parent:FS.getPath(parent);var parts=path.split("/").reverse();while(parts.length){var part=parts.pop();if(!part)continue;var current=PATH.join2(parent,part);try{FS.mkdir(current)}catch(e){}parent=current}return current},createFile:function(parent,name,properties,canRead,canWrite){var path=PATH.join2(typeof parent==="string"?parent:FS.getPath(parent),name);var mode=FS.getMode(canRead,canWrite);return FS.create(path,mode)},createDataFile:function(parent,name,data,canRead,canWrite,canOwn){var path=name?PATH.join2(typeof parent==="string"?parent:FS.getPath(parent),name):parent;var mode=FS.getMode(canRead,canWrite);var node=FS.create(path,mode);if(data){if(typeof data==="string"){var arr=new Array(data.length);for(var i=0,len=data.length;i<len;++i)arr[i]=data.charCodeAt(i);data=arr}FS.chmod(node,mode|146);var stream=FS.open(node,"w");FS.write(stream,data,0,data.length,0,canOwn);FS.close(stream);FS.chmod(node,mode)}return node},createDevice:function(parent,name,input,output){var path=PATH.join2(typeof parent==="string"?parent:FS.getPath(parent),name);var mode=FS.getMode(!!input,!!output);if(!FS.createDevice.major)FS.createDevice.major=64;var dev=FS.makedev(FS.createDevice.major++,0);FS.registerDevice(dev,{open:function(stream){stream.seekable=false},close:function(stream){if(output&&output.buffer&&output.buffer.length){output(10)}},read:function(stream,buffer,offset,length,pos){var bytesRead=0;for(var i=0;i<length;i++){var result;try{result=input()}catch(e){throw new FS.ErrnoError(5)}if(result===undefined&&bytesRead===0){throw new FS.ErrnoError(11)}if(result===null||result===undefined)break;bytesRead++;buffer[offset+i]=result}if(bytesRead){stream.node.timestamp=Date.now()}return bytesRead},write:function(stream,buffer,offset,length,pos){for(var i=0;i<length;i++){try{output(buffer[offset+i])}catch(e){throw new FS.ErrnoError(5)}}if(length){stream.node.timestamp=Date.now()}return i}});return FS.mkdev(path,mode,dev)},createLink:function(parent,name,target,canRead,canWrite){var path=PATH.join2(typeof parent==="string"?parent:FS.getPath(parent),name);return FS.symlink(target,path)},forceLoadFile:function(obj){if(obj.isDevice||obj.isFolder||obj.link||obj.contents)return true;var success=true;if(typeof XMLHttpRequest!=="undefined"){throw new Error("Lazy loading should have been performed (contents set) in createLazyFile, but it was not. Lazy loading only works in web workers. Use --embed-file or --preload-file in emcc on the main thread.")}else if(Module["read"]){try{obj.contents=intArrayFromString(Module["read"](obj.url),true);obj.usedBytes=obj.contents.length}catch(e){success=false}}else{throw new Error("Cannot load without read() or XMLHttpRequest.")}if(!success)___setErrNo(5);return success},createLazyFile:function(parent,name,url,canRead,canWrite){function LazyUint8Array(){this.lengthKnown=false;this.chunks=[]}LazyUint8Array.prototype.get=function LazyUint8Array_get(idx){if(idx>this.length-1||idx<0){return undefined}var chunkOffset=idx%this.chunkSize;var chunkNum=idx/this.chunkSize|0;return this.getter(chunkNum)[chunkOffset]};LazyUint8Array.prototype.setDataGetter=function LazyUint8Array_setDataGetter(getter){this.getter=getter};LazyUint8Array.prototype.cacheLength=function LazyUint8Array_cacheLength(){var xhr=new XMLHttpRequest;xhr.open("HEAD",url,false);xhr.send(null);if(!(xhr.status>=200&&xhr.status<300||xhr.status===304))throw new Error("Couldn't load "+url+". Status: "+xhr.status);var datalength=Number(xhr.getResponseHeader("Content-length"));var header;var hasByteServing=(header=xhr.getResponseHeader("Accept-Ranges"))&&header==="bytes";var usesGzip=(header=xhr.getResponseHeader("Content-Encoding"))&&header==="gzip";var chunkSize=1024*1024;if(!hasByteServing)chunkSize=datalength;var doXHR=function(from,to){if(from>to)throw new Error("invalid range ("+from+", "+to+") or no bytes requested!");if(to>datalength-1)throw new Error("only "+datalength+" bytes available! programmer error!");var xhr=new XMLHttpRequest;xhr.open("GET",url,false);if(datalength!==chunkSize)xhr.setRequestHeader("Range","bytes="+from+"-"+to);if(typeof Uint8Array!="undefined")xhr.responseType="arraybuffer";if(xhr.overrideMimeType){xhr.overrideMimeType("text/plain; charset=x-user-defined")}xhr.send(null);if(!(xhr.status>=200&&xhr.status<300||xhr.status===304))throw new Error("Couldn't load "+url+". Status: "+xhr.status);if(xhr.response!==undefined){return new Uint8Array(xhr.response||[])}else{return intArrayFromString(xhr.responseText||"",true)}};var lazyArray=this;lazyArray.setDataGetter(function(chunkNum){var start=chunkNum*chunkSize;var end=(chunkNum+1)*chunkSize-1;end=Math.min(end,datalength-1);if(typeof lazyArray.chunks[chunkNum]==="undefined"){lazyArray.chunks[chunkNum]=doXHR(start,end)}if(typeof lazyArray.chunks[chunkNum]==="undefined")throw new Error("doXHR failed!");return lazyArray.chunks[chunkNum]});if(usesGzip||!datalength){chunkSize=datalength=1;datalength=this.getter(0).length;chunkSize=datalength;console.log("LazyFiles on gzip forces download of the whole file when length is accessed")}this._length=datalength;this._chunkSize=chunkSize;this.lengthKnown=true};if(typeof XMLHttpRequest!=="undefined"){if(!ENVIRONMENT_IS_WORKER)throw"Cannot do synchronous binary XHRs outside webworkers in modern browsers. Use --embed-file or --preload-file in emcc";var lazyArray=new LazyUint8Array;Object.defineProperties(lazyArray,{length:{get:function(){if(!this.lengthKnown){this.cacheLength()}return this._length}},chunkSize:{get:function(){if(!this.lengthKnown){this.cacheLength()}return this._chunkSize}}});var properties={isDevice:false,contents:lazyArray}}else{var properties={isDevice:false,url:url}}var node=FS.createFile(parent,name,properties,canRead,canWrite);if(properties.contents){node.contents=properties.contents}else if(properties.url){node.contents=null;node.url=properties.url}Object.defineProperties(node,{usedBytes:{get:function(){return this.contents.length}}});var stream_ops={};var keys=Object.keys(node.stream_ops);keys.forEach(function(key){var fn=node.stream_ops[key];stream_ops[key]=function forceLoadLazyFile(){if(!FS.forceLoadFile(node)){throw new FS.ErrnoError(5)}return fn.apply(null,arguments)}});stream_ops.read=function stream_ops_read(stream,buffer,offset,length,position){if(!FS.forceLoadFile(node)){throw new FS.ErrnoError(5)}var contents=stream.node.contents;if(position>=contents.length)return 0;var size=Math.min(contents.length-position,length);if(contents.slice){for(var i=0;i<size;i++){buffer[offset+i]=contents[position+i]}}else{for(var i=0;i<size;i++){buffer[offset+i]=contents.get(position+i)}}return size};node.stream_ops=stream_ops;return node},createPreloadedFile:function(parent,name,url,canRead,canWrite,onload,onerror,dontCreateFile,canOwn,preFinish){Browser.init();var fullname=name?PATH.resolve(PATH.join2(parent,name)):parent;var dep=getUniqueRunDependency("cp "+fullname);function processData(byteArray){function finish(byteArray){if(preFinish)preFinish();if(!dontCreateFile){FS.createDataFile(parent,name,byteArray,canRead,canWrite,canOwn)}if(onload)onload();removeRunDependency(dep)}var handled=false;Module["preloadPlugins"].forEach(function(plugin){if(handled)return;if(plugin["canHandle"](fullname)){plugin["handle"](byteArray,fullname,finish,function(){if(onerror)onerror();removeRunDependency(dep)});handled=true}});if(!handled)finish(byteArray)}addRunDependency(dep);if(typeof url=="string"){Browser.asyncLoad(url,function(byteArray){processData(byteArray)},onerror)}else{processData(url)}},indexedDB:function(){return window.indexedDB||window.mozIndexedDB||window.webkitIndexedDB||window.msIndexedDB},DB_NAME:function(){return"EM_FS_"+window.location.pathname},DB_VERSION:20,DB_STORE_NAME:"FILE_DATA",saveFilesToDB:function(paths,onload,onerror){onload=onload||function(){};onerror=onerror||function(){};var indexedDB=FS.indexedDB();try{var openRequest=indexedDB.open(FS.DB_NAME(),FS.DB_VERSION)}catch(e){return onerror(e)}openRequest.onupgradeneeded=function openRequest_onupgradeneeded(){console.log("creating db");var db=openRequest.result;db.createObjectStore(FS.DB_STORE_NAME)};openRequest.onsuccess=function openRequest_onsuccess(){var db=openRequest.result;var transaction=db.transaction([FS.DB_STORE_NAME],"readwrite");var files=transaction.objectStore(FS.DB_STORE_NAME);var ok=0,fail=0,total=paths.length;function finish(){if(fail==0)onload();else onerror()}paths.forEach(function(path){var putRequest=files.put(FS.analyzePath(path).object.contents,path);putRequest.onsuccess=function putRequest_onsuccess(){ok++;if(ok+fail==total)finish()};putRequest.onerror=function putRequest_onerror(){fail++;if(ok+fail==total)finish()}});transaction.onerror=onerror};openRequest.onerror=onerror},loadFilesFromDB:function(paths,onload,onerror){onload=onload||function(){};onerror=onerror||function(){};var indexedDB=FS.indexedDB();try{var openRequest=indexedDB.open(FS.DB_NAME(),FS.DB_VERSION)}catch(e){return onerror(e)}openRequest.onupgradeneeded=onerror;openRequest.onsuccess=function openRequest_onsuccess(){var db=openRequest.result;try{var transaction=db.transaction([FS.DB_STORE_NAME],"readonly")}catch(e){onerror(e);return}var files=transaction.objectStore(FS.DB_STORE_NAME);var ok=0,fail=0,total=paths.length;function finish(){if(fail==0)onload();else onerror()}paths.forEach(function(path){var getRequest=files.get(path);getRequest.onsuccess=function getRequest_onsuccess(){if(FS.analyzePath(path).exists){FS.unlink(path)}FS.createDataFile(PATH.dirname(path),PATH.basename(path),getRequest.result,true,true,true);ok++;if(ok+fail==total)finish()};getRequest.onerror=function getRequest_onerror(){fail++;if(ok+fail==total)finish()}});transaction.onerror=onerror};openRequest.onerror=onerror}};var ERRNO_CODES={EPERM:1,ENOENT:2,ESRCH:3,EINTR:4,EIO:5,ENXIO:6,E2BIG:7,ENOEXEC:8,EBADF:9,ECHILD:10,EAGAIN:11,EWOULDBLOCK:11,ENOMEM:12,EACCES:13,EFAULT:14,ENOTBLK:15,EBUSY:16,EEXIST:17,EXDEV:18,ENODEV:19,ENOTDIR:20,EISDIR:21,EINVAL:22,ENFILE:23,EMFILE:24,ENOTTY:25,ETXTBSY:26,EFBIG:27,ENOSPC:28,ESPIPE:29,EROFS:30,EMLINK:31,EPIPE:32,EDOM:33,ERANGE:34,ENOMSG:42,EIDRM:43,ECHRNG:44,EL2NSYNC:45,EL3HLT:46,EL3RST:47,ELNRNG:48,EUNATCH:49,ENOCSI:50,EL2HLT:51,EDEADLK:35,ENOLCK:37,EBADE:52,EBADR:53,EXFULL:54,ENOANO:55,EBADRQC:56,EBADSLT:57,EDEADLOCK:35,EBFONT:59,ENOSTR:60,ENODATA:61,ETIME:62,ENOSR:63,ENONET:64,ENOPKG:65,EREMOTE:66,ENOLINK:67,EADV:68,ESRMNT:69,ECOMM:70,EPROTO:71,EMULTIHOP:72,EDOTDOT:73,EBADMSG:74,ENOTUNIQ:76,EBADFD:77,EREMCHG:78,ELIBACC:79,ELIBBAD:80,ELIBSCN:81,ELIBMAX:82,ELIBEXEC:83,ENOSYS:38,ENOTEMPTY:39,ENAMETOOLONG:36,ELOOP:40,EOPNOTSUPP:95,EPFNOSUPPORT:96,ECONNRESET:104,ENOBUFS:105,EAFNOSUPPORT:97,EPROTOTYPE:91,ENOTSOCK:88,ENOPROTOOPT:92,ESHUTDOWN:108,ECONNREFUSED:111,EADDRINUSE:98,ECONNABORTED:103,ENETUNREACH:101,ENETDOWN:100,ETIMEDOUT:110,EHOSTDOWN:112,EHOSTUNREACH:113,EINPROGRESS:115,EALREADY:114,EDESTADDRREQ:89,EMSGSIZE:90,EPROTONOSUPPORT:93,ESOCKTNOSUPPORT:94,EADDRNOTAVAIL:99,ENETRESET:102,EISCONN:106,ENOTCONN:107,ETOOMANYREFS:109,EUSERS:87,EDQUOT:122,ESTALE:116,ENOTSUP:95,ENOMEDIUM:123,EILSEQ:84,EOVERFLOW:75,ECANCELED:125,ENOTRECOVERABLE:131,EOWNERDEAD:130,ESTRPIPE:86};var SYSCALLS={DEFAULT_POLLMASK:5,mappings:{},umask:511,calculateAt:function(dirfd,path){if(path[0]!=="/"){var dir;if(dirfd===-100){dir=FS.cwd()}else{var dirstream=FS.getStream(dirfd);if(!dirstream)throw new FS.ErrnoError(ERRNO_CODES.EBADF);dir=dirstream.path}path=PATH.join2(dir,path)}return path},doStat:function(func,path,buf){try{var stat=func(path)}catch(e){if(e&&e.node&&PATH.normalize(path)!==PATH.normalize(FS.getPath(e.node))){return-ERRNO_CODES.ENOTDIR}throw e}HEAP32[buf>>2]=stat.dev;HEAP32[buf+4>>2]=0;HEAP32[buf+8>>2]=stat.ino;HEAP32[buf+12>>2]=stat.mode;HEAP32[buf+16>>2]=stat.nlink;HEAP32[buf+20>>2]=stat.uid;HEAP32[buf+24>>2]=stat.gid;HEAP32[buf+28>>2]=stat.rdev;HEAP32[buf+32>>2]=0;HEAP32[buf+36>>2]=stat.size;HEAP32[buf+40>>2]=4096;HEAP32[buf+44>>2]=stat.blocks;HEAP32[buf+48>>2]=stat.atime.getTime()/1e3|0;HEAP32[buf+52>>2]=0;HEAP32[buf+56>>2]=stat.mtime.getTime()/1e3|0;HEAP32[buf+60>>2]=0;HEAP32[buf+64>>2]=stat.ctime.getTime()/1e3|0;HEAP32[buf+68>>2]=0;HEAP32[buf+72>>2]=stat.ino;return 0},doMsync:function(addr,stream,len,flags){var buffer=new Uint8Array(HEAPU8.subarray(addr,addr+len));FS.msync(stream,buffer,0,len,flags)},doMkdir:function(path,mode){path=PATH.normalize(path);if(path[path.length-1]==="/")path=path.substr(0,path.length-1);FS.mkdir(path,mode,0);return 0},doMknod:function(path,mode,dev){switch(mode&61440){case 32768:case 8192:case 24576:case 4096:case 49152:break;default:return-ERRNO_CODES.EINVAL}FS.mknod(path,mode,dev);return 0},doReadlink:function(path,buf,bufsize){if(bufsize<=0)return-ERRNO_CODES.EINVAL;var ret=FS.readlink(path);var len=Math.min(bufsize,lengthBytesUTF8(ret));var endChar=HEAP8[buf+len];stringToUTF8(ret,buf,bufsize+1);HEAP8[buf+len]=endChar;return len},doAccess:function(path,amode){if(amode&~7){return-ERRNO_CODES.EINVAL}var node;var lookup=FS.lookupPath(path,{follow:true});node=lookup.node;var perms="";if(amode&4)perms+="r";if(amode&2)perms+="w";if(amode&1)perms+="x";if(perms&&FS.nodePermissions(node,perms)){return-ERRNO_CODES.EACCES}return 0},doDup:function(path,flags,suggestFD){var suggest=FS.getStream(suggestFD);if(suggest)FS.close(suggest);return FS.open(path,flags,0,suggestFD,suggestFD).fd},doReadv:function(stream,iov,iovcnt,offset){var ret=0;for(var i=0;i<iovcnt;i++){var ptr=HEAP32[iov+i*8>>2];var len=HEAP32[iov+(i*8+4)>>2];var curr=FS.read(stream,HEAP8,ptr,len,offset);if(curr<0)return-1;ret+=curr;if(curr<len)break}return ret},doWritev:function(stream,iov,iovcnt,offset){var ret=0;for(var i=0;i<iovcnt;i++){var ptr=HEAP32[iov+i*8>>2];var len=HEAP32[iov+(i*8+4)>>2];var curr=FS.write(stream,HEAP8,ptr,len,offset);if(curr<0)return-1;ret+=curr}return ret},varargs:0,get:function(varargs){SYSCALLS.varargs+=4;var ret=HEAP32[SYSCALLS.varargs-4>>2];return ret},getStr:function(){var ret=UTF8ToString(SYSCALLS.get());return ret},getStreamFromFD:function(){var stream=FS.getStream(SYSCALLS.get());if(!stream)throw new FS.ErrnoError(ERRNO_CODES.EBADF);return stream},getSocketFromFD:function(){var socket=SOCKFS.getSocket(SYSCALLS.get());if(!socket)throw new FS.ErrnoError(ERRNO_CODES.EBADF);return socket},getSocketAddress:function(allowNull){var addrp=SYSCALLS.get(),addrlen=SYSCALLS.get();if(allowNull&&addrp===0)return null;var info=__read_sockaddr(addrp,addrlen);if(info.errno)throw new FS.ErrnoError(info.errno);info.addr=DNS.lookup_addr(info.addr)||info.addr;return info},get64:function(){var low=SYSCALLS.get(),high=SYSCALLS.get();return low},getZero:function(){SYSCALLS.get()}};function ___syscall10(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr();FS.unlink(path);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}var SOCKFS={mount:function(mount){Module["websocket"]=Module["websocket"]&&"object"===typeof Module["websocket"]?Module["websocket"]:{};Module["websocket"]._callbacks={};Module["websocket"]["on"]=function(event,callback){if("function"===typeof callback){this._callbacks[event]=callback}return this};Module["websocket"].emit=function(event,param){if("function"===typeof this._callbacks[event]){this._callbacks[event].call(this,param)}};return FS.createNode(null,"/",16384|511,0)},createSocket:function(family,type,protocol){var streaming=type==1;if(protocol){assert(streaming==(protocol==6))}var sock={family:family,type:type,protocol:protocol,server:null,error:null,peers:{},pending:[],recv_queue:[],sock_ops:SOCKFS.websocket_sock_ops};var name=SOCKFS.nextname();var node=FS.createNode(SOCKFS.root,name,49152,0);node.sock=sock;var stream=FS.createStream({path:name,node:node,flags:FS.modeStringToFlags("r+"),seekable:false,stream_ops:SOCKFS.stream_ops});sock.stream=stream;return sock},getSocket:function(fd){var stream=FS.getStream(fd);if(!stream||!FS.isSocket(stream.node.mode)){return null}return stream.node.sock},stream_ops:{poll:function(stream){var sock=stream.node.sock;return sock.sock_ops.poll(sock)},ioctl:function(stream,request,varargs){var sock=stream.node.sock;return sock.sock_ops.ioctl(sock,request,varargs)},read:function(stream,buffer,offset,length,position){var sock=stream.node.sock;var msg=sock.sock_ops.recvmsg(sock,length);if(!msg){return 0}buffer.set(msg.buffer,offset);return msg.buffer.length},write:function(stream,buffer,offset,length,position){var sock=stream.node.sock;return sock.sock_ops.sendmsg(sock,buffer,offset,length)},close:function(stream){var sock=stream.node.sock;sock.sock_ops.close(sock)}},nextname:function(){if(!SOCKFS.nextname.current){SOCKFS.nextname.current=0}return"socket["+SOCKFS.nextname.current+++"]"},websocket_sock_ops:{createPeer:function(sock,addr,port){var ws;if(typeof addr==="object"){ws=addr;addr=null;port=null}if(ws){if(ws._socket){addr=ws._socket.remoteAddress;port=ws._socket.remotePort}else{var result=/ws[s]?:\/\/([^:]+):(\d+)/.exec(ws.url);if(!result){throw new Error("WebSocket URL must be in the format ws(s)://address:port")}addr=result[1];port=parseInt(result[2],10)}}else{try{var runtimeConfig=Module["websocket"]&&"object"===typeof Module["websocket"];var url="ws:#".replace("#","//");if(runtimeConfig){if("string"===typeof Module["websocket"]["url"]){url=Module["websocket"]["url"]}}if(url==="ws://"||url==="wss://"){var parts=addr.split("/");url=url+parts[0]+":"+port+"/"+parts.slice(1).join("/")}var subProtocols="binary";if(runtimeConfig){if("string"===typeof Module["websocket"]["subprotocol"]){subProtocols=Module["websocket"]["subprotocol"]}}subProtocols=subProtocols.replace(/^ +| +$/g,"").split(/ *, */);var opts=ENVIRONMENT_IS_NODE?{"protocol":subProtocols.toString()}:subProtocols;if(runtimeConfig&&null===Module["websocket"]["subprotocol"]){subProtocols="null";opts=undefined}var WebSocketConstructor;if(ENVIRONMENT_IS_NODE){WebSocketConstructor=require("ws")}else if(ENVIRONMENT_IS_WEB){WebSocketConstructor=window["WebSocket"]}else{WebSocketConstructor=WebSocket}ws=new WebSocketConstructor(url,opts);ws.binaryType="arraybuffer"}catch(e){throw new FS.ErrnoError(ERRNO_CODES.EHOSTUNREACH)}}var peer={addr:addr,port:port,socket:ws,dgram_send_queue:[]};SOCKFS.websocket_sock_ops.addPeer(sock,peer);SOCKFS.websocket_sock_ops.handlePeerEvents(sock,peer);if(sock.type===2&&typeof sock.sport!=="undefined"){peer.dgram_send_queue.push(new Uint8Array([255,255,255,255,"p".charCodeAt(0),"o".charCodeAt(0),"r".charCodeAt(0),"t".charCodeAt(0),(sock.sport&65280)>>8,sock.sport&255]))}return peer},getPeer:function(sock,addr,port){return sock.peers[addr+":"+port]},addPeer:function(sock,peer){sock.peers[peer.addr+":"+peer.port]=peer},removePeer:function(sock,peer){delete sock.peers[peer.addr+":"+peer.port]},handlePeerEvents:function(sock,peer){var first=true;var handleOpen=function(){Module["websocket"].emit("open",sock.stream.fd);try{var queued=peer.dgram_send_queue.shift();while(queued){peer.socket.send(queued);queued=peer.dgram_send_queue.shift()}}catch(e){peer.socket.close()}};function handleMessage(data){assert(typeof data!=="string"&&data.byteLength!==undefined);if(data.byteLength==0){return}data=new Uint8Array(data);var wasfirst=first;first=false;if(wasfirst&&data.length===10&&data[0]===255&&data[1]===255&&data[2]===255&&data[3]===255&&data[4]==="p".charCodeAt(0)&&data[5]==="o".charCodeAt(0)&&data[6]==="r".charCodeAt(0)&&data[7]==="t".charCodeAt(0)){var newport=data[8]<<8|data[9];SOCKFS.websocket_sock_ops.removePeer(sock,peer);peer.port=newport;SOCKFS.websocket_sock_ops.addPeer(sock,peer);return}sock.recv_queue.push({addr:peer.addr,port:peer.port,data:data});Module["websocket"].emit("message",sock.stream.fd)}if(ENVIRONMENT_IS_NODE){peer.socket.on("open",handleOpen);peer.socket.on("message",function(data,flags){if(!flags.binary){return}handleMessage(new Uint8Array(data).buffer)});peer.socket.on("close",function(){Module["websocket"].emit("close",sock.stream.fd)});peer.socket.on("error",function(error){sock.error=ERRNO_CODES.ECONNREFUSED;Module["websocket"].emit("error",[sock.stream.fd,sock.error,"ECONNREFUSED: Connection refused"])})}else{peer.socket.onopen=handleOpen;peer.socket.onclose=function(){Module["websocket"].emit("close",sock.stream.fd)};peer.socket.onmessage=function peer_socket_onmessage(event){handleMessage(event.data)};peer.socket.onerror=function(error){sock.error=ERRNO_CODES.ECONNREFUSED;Module["websocket"].emit("error",[sock.stream.fd,sock.error,"ECONNREFUSED: Connection refused"])}}},poll:function(sock){if(sock.type===1&&sock.server){return sock.pending.length?64|1:0}var mask=0;var dest=sock.type===1?SOCKFS.websocket_sock_ops.getPeer(sock,sock.daddr,sock.dport):null;if(sock.recv_queue.length||!dest||dest&&dest.socket.readyState===dest.socket.CLOSING||dest&&dest.socket.readyState===dest.socket.CLOSED){mask|=64|1}if(!dest||dest&&dest.socket.readyState===dest.socket.OPEN){mask|=4}if(dest&&dest.socket.readyState===dest.socket.CLOSING||dest&&dest.socket.readyState===dest.socket.CLOSED){mask|=16}return mask},ioctl:function(sock,request,arg){switch(request){case 21531:var bytes=0;if(sock.recv_queue.length){bytes=sock.recv_queue[0].data.length}HEAP32[arg>>2]=bytes;return 0;default:return ERRNO_CODES.EINVAL}},close:function(sock){if(sock.server){try{sock.server.close()}catch(e){}sock.server=null}var peers=Object.keys(sock.peers);for(var i=0;i<peers.length;i++){var peer=sock.peers[peers[i]];try{peer.socket.close()}catch(e){}SOCKFS.websocket_sock_ops.removePeer(sock,peer)}return 0},bind:function(sock,addr,port){if(typeof sock.saddr!=="undefined"||typeof sock.sport!=="undefined"){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}sock.saddr=addr;sock.sport=port;if(sock.type===2){if(sock.server){sock.server.close();sock.server=null}try{sock.sock_ops.listen(sock,0)}catch(e){if(!(e instanceof FS.ErrnoError))throw e;if(e.errno!==ERRNO_CODES.EOPNOTSUPP)throw e}}},connect:function(sock,addr,port){if(sock.server){throw new FS.ErrnoError(ERRNO_CODES.EOPNOTSUPP)}if(typeof sock.daddr!=="undefined"&&typeof sock.dport!=="undefined"){var dest=SOCKFS.websocket_sock_ops.getPeer(sock,sock.daddr,sock.dport);if(dest){if(dest.socket.readyState===dest.socket.CONNECTING){throw new FS.ErrnoError(ERRNO_CODES.EALREADY)}else{throw new FS.ErrnoError(ERRNO_CODES.EISCONN)}}}var peer=SOCKFS.websocket_sock_ops.createPeer(sock,addr,port);sock.daddr=peer.addr;sock.dport=peer.port;throw new FS.ErrnoError(ERRNO_CODES.EINPROGRESS)},listen:function(sock,backlog){if(!ENVIRONMENT_IS_NODE){throw new FS.ErrnoError(ERRNO_CODES.EOPNOTSUPP)}if(sock.server){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}var WebSocketServer=require("ws").Server;var host=sock.saddr;sock.server=new WebSocketServer({host:host,port:sock.sport});Module["websocket"].emit("listen",sock.stream.fd);sock.server.on("connection",function(ws){if(sock.type===1){var newsock=SOCKFS.createSocket(sock.family,sock.type,sock.protocol);var peer=SOCKFS.websocket_sock_ops.createPeer(newsock,ws);newsock.daddr=peer.addr;newsock.dport=peer.port;sock.pending.push(newsock);Module["websocket"].emit("connection",newsock.stream.fd)}else{SOCKFS.websocket_sock_ops.createPeer(sock,ws);Module["websocket"].emit("connection",sock.stream.fd)}});sock.server.on("closed",function(){Module["websocket"].emit("close",sock.stream.fd);sock.server=null});sock.server.on("error",function(error){sock.error=ERRNO_CODES.EHOSTUNREACH;Module["websocket"].emit("error",[sock.stream.fd,sock.error,"EHOSTUNREACH: Host is unreachable"])})},accept:function(listensock){if(!listensock.server){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}var newsock=listensock.pending.shift();newsock.stream.flags=listensock.stream.flags;return newsock},getname:function(sock,peer){var addr,port;if(peer){if(sock.daddr===undefined||sock.dport===undefined){throw new FS.ErrnoError(ERRNO_CODES.ENOTCONN)}addr=sock.daddr;port=sock.dport}else{addr=sock.saddr||0;port=sock.sport||0}return{addr:addr,port:port}},sendmsg:function(sock,buffer,offset,length,addr,port){if(sock.type===2){if(addr===undefined||port===undefined){addr=sock.daddr;port=sock.dport}if(addr===undefined||port===undefined){throw new FS.ErrnoError(ERRNO_CODES.EDESTADDRREQ)}}else{addr=sock.daddr;port=sock.dport}var dest=SOCKFS.websocket_sock_ops.getPeer(sock,addr,port);if(sock.type===1){if(!dest||dest.socket.readyState===dest.socket.CLOSING||dest.socket.readyState===dest.socket.CLOSED){throw new FS.ErrnoError(ERRNO_CODES.ENOTCONN)}else if(dest.socket.readyState===dest.socket.CONNECTING){throw new FS.ErrnoError(ERRNO_CODES.EAGAIN)}}if(ArrayBuffer.isView(buffer)){offset+=buffer.byteOffset;buffer=buffer.buffer}var data;data=buffer.slice(offset,offset+length);if(sock.type===2){if(!dest||dest.socket.readyState!==dest.socket.OPEN){if(!dest||dest.socket.readyState===dest.socket.CLOSING||dest.socket.readyState===dest.socket.CLOSED){dest=SOCKFS.websocket_sock_ops.createPeer(sock,addr,port)}dest.dgram_send_queue.push(data);return length}}try{dest.socket.send(data);return length}catch(e){throw new FS.ErrnoError(ERRNO_CODES.EINVAL)}},recvmsg:function(sock,length){if(sock.type===1&&sock.server){throw new FS.ErrnoError(ERRNO_CODES.ENOTCONN)}var queued=sock.recv_queue.shift();if(!queued){if(sock.type===1){var dest=SOCKFS.websocket_sock_ops.getPeer(sock,sock.daddr,sock.dport);if(!dest){throw new FS.ErrnoError(ERRNO_CODES.ENOTCONN)}else if(dest.socket.readyState===dest.socket.CLOSING||dest.socket.readyState===dest.socket.CLOSED){return null}else{throw new FS.ErrnoError(ERRNO_CODES.EAGAIN)}}else{throw new FS.ErrnoError(ERRNO_CODES.EAGAIN)}}var queuedLength=queued.data.byteLength||queued.data.length;var queuedOffset=queued.data.byteOffset||0;var queuedBuffer=queued.data.buffer||queued.data;var bytesRead=Math.min(length,queuedLength);var res={buffer:new Uint8Array(queuedBuffer,queuedOffset,bytesRead),addr:queued.addr,port:queued.port};if(sock.type===1&&bytesRead<queuedLength){var bytesRemaining=queuedLength-bytesRead;queued.data=new Uint8Array(queuedBuffer,queuedOffset+bytesRead,bytesRemaining);sock.recv_queue.unshift(queued)}return res}}};function __inet_pton4_raw(str){var b=str.split(".");for(var i=0;i<4;i++){var tmp=Number(b[i]);if(isNaN(tmp))return null;b[i]=tmp}return(b[0]|b[1]<<8|b[2]<<16|b[3]<<24)>>>0}function __inet_pton6_raw(str){var words;var w,offset,z;var valid6regx=/^((?=.*::)(?!.*::.+::)(::)?([\dA-F]{1,4}:(:|\b)|){5}|([\dA-F]{1,4}:){6})((([\dA-F]{1,4}((?!\3)::|:\b|$))|(?!\2\3)){2}|(((2[0-4]|1\d|[1-9])?\d|25[0-5])\.?\b){4})$/i;var parts=[];if(!valid6regx.test(str)){return null}if(str==="::"){return[0,0,0,0,0,0,0,0]}if(str.indexOf("::")===0){str=str.replace("::","Z:")}else{str=str.replace("::",":Z:")}if(str.indexOf(".")>0){str=str.replace(new RegExp("[.]","g"),":");words=str.split(":");words[words.length-4]=parseInt(words[words.length-4])+parseInt(words[words.length-3])*256;words[words.length-3]=parseInt(words[words.length-2])+parseInt(words[words.length-1])*256;words=words.slice(0,words.length-2)}else{words=str.split(":")}offset=0;z=0;for(w=0;w<words.length;w++){if(typeof words[w]==="string"){if(words[w]==="Z"){for(z=0;z<8-words.length+1;z++){parts[w+z]=0}offset=z-1}else{parts[w+offset]=_htons(parseInt(words[w],16))}}else{parts[w+offset]=words[w]}}return[parts[1]<<16|parts[0],parts[3]<<16|parts[2],parts[5]<<16|parts[4],parts[7]<<16|parts[6]]}var DNS={address_map:{id:1,addrs:{},names:{}},lookup_name:function(name){var res=__inet_pton4_raw(name);if(res!==null){return name}res=__inet_pton6_raw(name);if(res!==null){return name}var addr;if(DNS.address_map.addrs[name]){addr=DNS.address_map.addrs[name]}else{var id=DNS.address_map.id++;assert(id<65535,"exceeded max address mappings of 65535");addr="172.29."+(id&255)+"."+(id&65280);DNS.address_map.names[addr]=name;DNS.address_map.addrs[name]=addr}return addr},lookup_addr:function(addr){if(DNS.address_map.names[addr]){return DNS.address_map.names[addr]}return null}};function __inet_ntop4_raw(addr){return(addr&255)+"."+(addr>>8&255)+"."+(addr>>16&255)+"."+(addr>>24&255)}function __inet_ntop6_raw(ints){var str="";var word=0;var longest=0;var lastzero=0;var zstart=0;var len=0;var i=0;var parts=[ints[0]&65535,ints[0]>>16,ints[1]&65535,ints[1]>>16,ints[2]&65535,ints[2]>>16,ints[3]&65535,ints[3]>>16];var hasipv4=true;var v4part="";for(i=0;i<5;i++){if(parts[i]!==0){hasipv4=false;break}}if(hasipv4){v4part=__inet_ntop4_raw(parts[6]|parts[7]<<16);if(parts[5]===-1){str="::ffff:";str+=v4part;return str}if(parts[5]===0){str="::";if(v4part==="0.0.0.0")v4part="";if(v4part==="0.0.0.1")v4part="1";str+=v4part;return str}}for(word=0;word<8;word++){if(parts[word]===0){if(word-lastzero>1){len=0}lastzero=word;len++}if(len>longest){longest=len;zstart=word-longest+1}}for(word=0;word<8;word++){if(longest>1){if(parts[word]===0&&word>=zstart&&word<zstart+longest){if(word===zstart){str+=":";if(zstart===0)str+=":"}continue}}str+=Number(_ntohs(parts[word]&65535)).toString(16);str+=word<7?":":""}return str}function __read_sockaddr(sa,salen){var family=HEAP16[sa>>1];var port=_ntohs(HEAP16[sa+2>>1]);var addr;switch(family){case 2:if(salen!==16){return{errno:22}}addr=HEAP32[sa+4>>2];addr=__inet_ntop4_raw(addr);break;case 10:if(salen!==28){return{errno:22}}addr=[HEAP32[sa+8>>2],HEAP32[sa+12>>2],HEAP32[sa+16>>2],HEAP32[sa+20>>2]];addr=__inet_ntop6_raw(addr);break;default:return{errno:97}}return{family:family,addr:addr,port:port}}function __write_sockaddr(sa,family,addr,port){switch(family){case 2:addr=__inet_pton4_raw(addr);HEAP16[sa>>1]=family;HEAP32[sa+4>>2]=addr;HEAP16[sa+2>>1]=_htons(port);break;case 10:addr=__inet_pton6_raw(addr);HEAP32[sa>>2]=family;HEAP32[sa+8>>2]=addr[0];HEAP32[sa+12>>2]=addr[1];HEAP32[sa+16>>2]=addr[2];HEAP32[sa+20>>2]=addr[3];HEAP16[sa+2>>1]=_htons(port);HEAP32[sa+4>>2]=0;HEAP32[sa+24>>2]=0;break;default:return{errno:97}}return{}}function ___syscall102(which,varargs){SYSCALLS.varargs=varargs;try{var call=SYSCALLS.get(),socketvararg=SYSCALLS.get();SYSCALLS.varargs=socketvararg;switch(call){case 1:{var domain=SYSCALLS.get(),type=SYSCALLS.get(),protocol=SYSCALLS.get();var sock=SOCKFS.createSocket(domain,type,protocol);return sock.stream.fd}case 2:{var sock=SYSCALLS.getSocketFromFD(),info=SYSCALLS.getSocketAddress();sock.sock_ops.bind(sock,info.addr,info.port);return 0}case 3:{var sock=SYSCALLS.getSocketFromFD(),info=SYSCALLS.getSocketAddress();sock.sock_ops.connect(sock,info.addr,info.port);return 0}case 4:{var sock=SYSCALLS.getSocketFromFD(),backlog=SYSCALLS.get();sock.sock_ops.listen(sock,backlog);return 0}case 5:{var sock=SYSCALLS.getSocketFromFD(),addr=SYSCALLS.get(),addrlen=SYSCALLS.get();var newsock=sock.sock_ops.accept(sock);if(addr){var res=__write_sockaddr(addr,newsock.family,DNS.lookup_name(newsock.daddr),newsock.dport)}return newsock.stream.fd}case 6:{var sock=SYSCALLS.getSocketFromFD(),addr=SYSCALLS.get(),addrlen=SYSCALLS.get();var res=__write_sockaddr(addr,sock.family,DNS.lookup_name(sock.saddr||"0.0.0.0"),sock.sport);return 0}case 7:{var sock=SYSCALLS.getSocketFromFD(),addr=SYSCALLS.get(),addrlen=SYSCALLS.get();if(!sock.daddr){return-ERRNO_CODES.ENOTCONN}var res=__write_sockaddr(addr,sock.family,DNS.lookup_name(sock.daddr),sock.dport);return 0}case 11:{var sock=SYSCALLS.getSocketFromFD(),message=SYSCALLS.get(),length=SYSCALLS.get(),flags=SYSCALLS.get(),dest=SYSCALLS.getSocketAddress(true);if(!dest){return FS.write(sock.stream,HEAP8,message,length)}else{return sock.sock_ops.sendmsg(sock,HEAP8,message,length,dest.addr,dest.port)}}case 12:{var sock=SYSCALLS.getSocketFromFD(),buf=SYSCALLS.get(),len=SYSCALLS.get(),flags=SYSCALLS.get(),addr=SYSCALLS.get(),addrlen=SYSCALLS.get();var msg=sock.sock_ops.recvmsg(sock,len);if(!msg)return 0;if(addr){var res=__write_sockaddr(addr,sock.family,DNS.lookup_name(msg.addr),msg.port)}HEAPU8.set(msg.buffer,buf);return msg.buffer.byteLength}case 14:{return-ERRNO_CODES.ENOPROTOOPT}case 15:{var sock=SYSCALLS.getSocketFromFD(),level=SYSCALLS.get(),optname=SYSCALLS.get(),optval=SYSCALLS.get(),optlen=SYSCALLS.get();if(level===1){if(optname===4){HEAP32[optval>>2]=sock.error;HEAP32[optlen>>2]=4;sock.error=null;return 0}}return-ERRNO_CODES.ENOPROTOOPT}case 16:{var sock=SYSCALLS.getSocketFromFD(),message=SYSCALLS.get(),flags=SYSCALLS.get();var iov=HEAP32[message+8>>2];var num=HEAP32[message+12>>2];var addr,port;var name=HEAP32[message>>2];var namelen=HEAP32[message+4>>2];if(name){var info=__read_sockaddr(name,namelen);if(info.errno)return-info.errno;port=info.port;addr=DNS.lookup_addr(info.addr)||info.addr}var total=0;for(var i=0;i<num;i++){total+=HEAP32[iov+(8*i+4)>>2]}var view=new Uint8Array(total);var offset=0;for(var i=0;i<num;i++){var iovbase=HEAP32[iov+(8*i+0)>>2];var iovlen=HEAP32[iov+(8*i+4)>>2];for(var j=0;j<iovlen;j++){view[offset++]=HEAP8[iovbase+j>>0]}}return sock.sock_ops.sendmsg(sock,view,0,total,addr,port)}case 17:{var sock=SYSCALLS.getSocketFromFD(),message=SYSCALLS.get(),flags=SYSCALLS.get();var iov=HEAP32[message+8>>2];var num=HEAP32[message+12>>2];var total=0;for(var i=0;i<num;i++){total+=HEAP32[iov+(8*i+4)>>2]}var msg=sock.sock_ops.recvmsg(sock,total);if(!msg)return 0;var name=HEAP32[message>>2];if(name){var res=__write_sockaddr(name,sock.family,DNS.lookup_name(msg.addr),msg.port)}var bytesRead=0;var bytesRemaining=msg.buffer.byteLength;for(var i=0;bytesRemaining>0&&i<num;i++){var iovbase=HEAP32[iov+(8*i+0)>>2];var iovlen=HEAP32[iov+(8*i+4)>>2];if(!iovlen){continue}var length=Math.min(iovlen,bytesRemaining);var buf=msg.buffer.subarray(bytesRead,bytesRead+length);HEAPU8.set(buf,iovbase+bytesRead);bytesRead+=length;bytesRemaining-=length}return bytesRead}default:abort("unsupported socketcall syscall "+call)}}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall118(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD();return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall12(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr();FS.chdir(path);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall122(which,varargs){SYSCALLS.varargs=varargs;try{var buf=SYSCALLS.get();if(!buf)return-ERRNO_CODES.EFAULT;var layout={"sysname":0,"nodename":65,"domainname":325,"machine":260,"version":195,"release":130,"__size__":390};function copyString(element,value){var offset=layout[element];writeAsciiToMemory(value,buf+offset)}copyString("sysname","Emscripten");copyString("nodename","emscripten");copyString("release","1.0");copyString("version","#1");copyString("machine","x86-JS");return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}var PROCINFO={ppid:1,pid:42,sid:42,pgid:42};function ___syscall132(which,varargs){SYSCALLS.varargs=varargs;try{var pid=SYSCALLS.get();if(pid&&pid!==PROCINFO.pid)return-ERRNO_CODES.ESRCH;return PROCINFO.pgid}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall133(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD();FS.chdir(stream.path);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall14(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),mode=SYSCALLS.get(),dev=SYSCALLS.get();return SYSCALLS.doMknod(path,mode,dev)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall140(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),offset_high=SYSCALLS.get(),offset_low=SYSCALLS.get(),result=SYSCALLS.get(),whence=SYSCALLS.get();var offset=offset_low;FS.llseek(stream,offset,whence);HEAP32[result>>2]=stream.position;if(stream.getdents&&offset===0&&whence===0)stream.getdents=null;return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall142(which,varargs){SYSCALLS.varargs=varargs;try{var nfds=SYSCALLS.get(),readfds=SYSCALLS.get(),writefds=SYSCALLS.get(),exceptfds=SYSCALLS.get(),timeout=SYSCALLS.get();var total=0;var srcReadLow=readfds?HEAP32[readfds>>2]:0,srcReadHigh=readfds?HEAP32[readfds+4>>2]:0;var srcWriteLow=writefds?HEAP32[writefds>>2]:0,srcWriteHigh=writefds?HEAP32[writefds+4>>2]:0;var srcExceptLow=exceptfds?HEAP32[exceptfds>>2]:0,srcExceptHigh=exceptfds?HEAP32[exceptfds+4>>2]:0;var dstReadLow=0,dstReadHigh=0;var dstWriteLow=0,dstWriteHigh=0;var dstExceptLow=0,dstExceptHigh=0;var allLow=(readfds?HEAP32[readfds>>2]:0)|(writefds?HEAP32[writefds>>2]:0)|(exceptfds?HEAP32[exceptfds>>2]:0);var allHigh=(readfds?HEAP32[readfds+4>>2]:0)|(writefds?HEAP32[writefds+4>>2]:0)|(exceptfds?HEAP32[exceptfds+4>>2]:0);function check(fd,low,high,val){return fd<32?low&val:high&val}for(var fd=0;fd<nfds;fd++){var mask=1<<fd%32;if(!check(fd,allLow,allHigh,mask)){continue}var stream=FS.getStream(fd);if(!stream)throw new FS.ErrnoError(ERRNO_CODES.EBADF);var flags=SYSCALLS.DEFAULT_POLLMASK;if(stream.stream_ops.poll){flags=stream.stream_ops.poll(stream)}if(flags&1&&check(fd,srcReadLow,srcReadHigh,mask)){fd<32?dstReadLow=dstReadLow|mask:dstReadHigh=dstReadHigh|mask;total++}if(flags&4&&check(fd,srcWriteLow,srcWriteHigh,mask)){fd<32?dstWriteLow=dstWriteLow|mask:dstWriteHigh=dstWriteHigh|mask;total++}if(flags&2&&check(fd,srcExceptLow,srcExceptHigh,mask)){fd<32?dstExceptLow=dstExceptLow|mask:dstExceptHigh=dstExceptHigh|mask;total++}}if(readfds){HEAP32[readfds>>2]=dstReadLow;HEAP32[readfds+4>>2]=dstReadHigh}if(writefds){HEAP32[writefds>>2]=dstWriteLow;HEAP32[writefds+4>>2]=dstWriteHigh}if(exceptfds){HEAP32[exceptfds>>2]=dstExceptLow;HEAP32[exceptfds+4>>2]=dstExceptHigh}return total}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall145(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),iov=SYSCALLS.get(),iovcnt=SYSCALLS.get();return SYSCALLS.doReadv(stream,iov,iovcnt)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall146(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),iov=SYSCALLS.get(),iovcnt=SYSCALLS.get();return SYSCALLS.doWritev(stream,iov,iovcnt)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall15(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),mode=SYSCALLS.get();FS.chmod(path,mode);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall168(which,varargs){SYSCALLS.varargs=varargs;try{var fds=SYSCALLS.get(),nfds=SYSCALLS.get(),timeout=SYSCALLS.get();var nonzero=0;for(var i=0;i<nfds;i++){var pollfd=fds+8*i;var fd=HEAP32[pollfd>>2];var events=HEAP16[pollfd+4>>1];var mask=32;var stream=FS.getStream(fd);if(stream){mask=SYSCALLS.DEFAULT_POLLMASK;if(stream.stream_ops.poll){mask=stream.stream_ops.poll(stream)}}mask&=events|8|16;if(mask)nonzero++;HEAP16[pollfd+6>>1]=mask}return nonzero}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall183(which,varargs){SYSCALLS.varargs=varargs;try{var buf=SYSCALLS.get(),size=SYSCALLS.get();if(size===0)return-ERRNO_CODES.EINVAL;var cwd=FS.cwd();var cwdLengthInBytes=lengthBytesUTF8(cwd);if(size<cwdLengthInBytes+1)return-ERRNO_CODES.ERANGE;stringToUTF8(cwd,buf,size);return buf}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall193(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),zero=SYSCALLS.getZero(),length=SYSCALLS.get64();FS.truncate(path,length);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall194(which,varargs){SYSCALLS.varargs=varargs;try{var fd=SYSCALLS.get(),zero=SYSCALLS.getZero(),length=SYSCALLS.get64();FS.ftruncate(fd,length);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall195(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),buf=SYSCALLS.get();return SYSCALLS.doStat(FS.stat,path,buf)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall196(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),buf=SYSCALLS.get();return SYSCALLS.doStat(FS.lstat,path,buf)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall197(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),buf=SYSCALLS.get();return SYSCALLS.doStat(FS.stat,stream.path,buf)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall198(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),owner=SYSCALLS.get(),group=SYSCALLS.get();FS.chown(path,owner,group);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall202(which,varargs){SYSCALLS.varargs=varargs;try{return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall199(a0,a1){return ___syscall202(a0,a1)}function ___syscall20(which,varargs){SYSCALLS.varargs=varargs;try{return PROCINFO.pid}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall200(a0,a1){return ___syscall202(a0,a1)}function ___syscall201(a0,a1){return ___syscall202(a0,a1)}function ___syscall205(which,varargs){SYSCALLS.varargs=varargs;try{var size=SYSCALLS.get(),list=SYSCALLS.get();if(size<1)return-ERRNO_CODES.EINVAL;HEAP32[list>>2]=0;return 1}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall207(which,varargs){SYSCALLS.varargs=varargs;try{var fd=SYSCALLS.get(),owner=SYSCALLS.get(),group=SYSCALLS.get();FS.fchown(fd,owner,group);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall212(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),owner=SYSCALLS.get(),group=SYSCALLS.get();FS.chown(path,owner,group);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall220(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),dirp=SYSCALLS.get(),count=SYSCALLS.get();if(!stream.getdents){stream.getdents=FS.readdir(stream.path)}var pos=0;while(stream.getdents.length>0&&pos+268<=count){var id;var type;var name=stream.getdents.pop();if(name[0]==="."){id=1;type=4}else{var child=FS.lookupNode(stream.node,name);id=child.id;type=FS.isChrdev(child.mode)?2:FS.isDir(child.mode)?4:FS.isLink(child.mode)?10:8}HEAP32[dirp+pos>>2]=id;HEAP32[dirp+pos+4>>2]=stream.position;HEAP16[dirp+pos+8>>1]=268;HEAP8[dirp+pos+10>>0]=type;stringToUTF8(name,dirp+pos+11,256);pos+=268}return pos}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall221(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),cmd=SYSCALLS.get();switch(cmd){case 0:{var arg=SYSCALLS.get();if(arg<0){return-ERRNO_CODES.EINVAL}var newStream;newStream=FS.open(stream.path,stream.flags,0,arg);return newStream.fd}case 1:case 2:return 0;case 3:return stream.flags;case 4:{var arg=SYSCALLS.get();stream.flags|=arg;return 0}case 12:{var arg=SYSCALLS.get();var offset=0;HEAP16[arg+offset>>1]=2;return 0}case 13:case 14:return 0;case 16:case 8:return-ERRNO_CODES.EINVAL;case 9:___setErrNo(ERRNO_CODES.EINVAL);return-1;default:{return-ERRNO_CODES.EINVAL}}}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall29(which,varargs){SYSCALLS.varargs=varargs;try{return-ERRNO_CODES.EINTR}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall3(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),buf=SYSCALLS.get(),count=SYSCALLS.get();return FS.read(stream,HEAP8,buf,count)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall301(which,varargs){SYSCALLS.varargs=varargs;try{var dirfd=SYSCALLS.get(),path=SYSCALLS.getStr(),flags=SYSCALLS.get();path=SYSCALLS.calculateAt(dirfd,path);if(flags===0){FS.unlink(path)}else if(flags===512){FS.rmdir(path)}else{abort("Invalid flags passed to unlinkat")}return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall302(which,varargs){SYSCALLS.varargs=varargs;try{var olddirfd=SYSCALLS.get(),oldpath=SYSCALLS.getStr(),newdirfd=SYSCALLS.get(),newpath=SYSCALLS.getStr();oldpath=SYSCALLS.calculateAt(olddirfd,oldpath);newpath=SYSCALLS.calculateAt(newdirfd,newpath);FS.rename(oldpath,newpath);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall303(which,varargs){SYSCALLS.varargs=varargs;try{return-ERRNO_CODES.EMLINK}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall33(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),amode=SYSCALLS.get();return SYSCALLS.doAccess(path,amode)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall330(which,varargs){SYSCALLS.varargs=varargs;try{var old=SYSCALLS.getStreamFromFD(),suggestFD=SYSCALLS.get(),flags=SYSCALLS.get();if(old.fd===suggestFD)return-ERRNO_CODES.EINVAL;return SYSCALLS.doDup(old.path,old.flags,suggestFD)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall331(which,varargs){SYSCALLS.varargs=varargs;try{return-ERRNO_CODES.ENOSYS}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall34(which,varargs){SYSCALLS.varargs=varargs;try{var inc=SYSCALLS.get();return-ERRNO_CODES.EPERM}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall38(which,varargs){SYSCALLS.varargs=varargs;try{var old_path=SYSCALLS.getStr(),new_path=SYSCALLS.getStr();FS.rename(old_path,new_path);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall39(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),mode=SYSCALLS.get();return SYSCALLS.doMkdir(path,mode)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall4(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),buf=SYSCALLS.get(),count=SYSCALLS.get();return FS.write(stream,HEAP8,buf,count)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall40(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr();FS.rmdir(path);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall41(which,varargs){SYSCALLS.varargs=varargs;try{var old=SYSCALLS.getStreamFromFD();return FS.open(old.path,old.flags,0).fd}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}var PIPEFS={BUCKET_BUFFER_SIZE:8192,mount:function(mount){return FS.createNode(null,"/",16384|511,0)},createPipe:function(){var pipe={buckets:[]};pipe.buckets.push({buffer:new Uint8Array(PIPEFS.BUCKET_BUFFER_SIZE),offset:0,roffset:0});var rName=PIPEFS.nextname();var wName=PIPEFS.nextname();var rNode=FS.createNode(PIPEFS.root,rName,4096,0);var wNode=FS.createNode(PIPEFS.root,wName,4096,0);rNode.pipe=pipe;wNode.pipe=pipe;var readableStream=FS.createStream({path:rName,node:rNode,flags:FS.modeStringToFlags("r"),seekable:false,stream_ops:PIPEFS.stream_ops});rNode.stream=readableStream;var writableStream=FS.createStream({path:wName,node:wNode,flags:FS.modeStringToFlags("w"),seekable:false,stream_ops:PIPEFS.stream_ops});wNode.stream=writableStream;return{readable_fd:readableStream.fd,writable_fd:writableStream.fd}},stream_ops:{poll:function(stream){var pipe=stream.node.pipe;if((stream.flags&2097155)===1){return 256|4}else{if(pipe.buckets.length>0){for(var i=0;i<pipe.buckets.length;i++){var bucket=pipe.buckets[i];if(bucket.offset-bucket.roffset>0){return 64|1}}}}return 0},ioctl:function(stream,request,varargs){return ERRNO_CODES.EINVAL},read:function(stream,buffer,offset,length,position){var pipe=stream.node.pipe;var currentLength=0;for(var i=0;i<pipe.buckets.length;i++){var bucket=pipe.buckets[i];currentLength+=bucket.offset-bucket.roffset}assert(buffer instanceof ArrayBuffer||ArrayBuffer.isView(buffer));var data=buffer.subarray(offset,offset+length);if(length<=0){return 0}if(currentLength==0){throw new FS.ErrnoError(ERRNO_CODES.EAGAIN)}var toRead=Math.min(currentLength,length);var totalRead=toRead;var toRemove=0;for(var i=0;i<pipe.buckets.length;i++){var currBucket=pipe.buckets[i];var bucketSize=currBucket.offset-currBucket.roffset;if(toRead<=bucketSize){var tmpSlice=currBucket.buffer.subarray(currBucket.roffset,currBucket.offset);if(toRead<bucketSize){tmpSlice=tmpSlice.subarray(0,toRead);currBucket.roffset+=toRead}else{toRemove++}data.set(tmpSlice);break}else{var tmpSlice=currBucket.buffer.subarray(currBucket.roffset,currBucket.offset);data.set(tmpSlice);data=data.subarray(tmpSlice.byteLength);toRead-=tmpSlice.byteLength;toRemove++}}if(toRemove&&toRemove==pipe.buckets.length){toRemove--;pipe.buckets[toRemove].offset=0;pipe.buckets[toRemove].roffset=0}pipe.buckets.splice(0,toRemove);return totalRead},write:function(stream,buffer,offset,length,position){var pipe=stream.node.pipe;assert(buffer instanceof ArrayBuffer||ArrayBuffer.isView(buffer));var data=buffer.subarray(offset,offset+length);var dataLen=data.byteLength;if(dataLen<=0){return 0}var currBucket=null;if(pipe.buckets.length==0){currBucket={buffer:new Uint8Array(PIPEFS.BUCKET_BUFFER_SIZE),offset:0,roffset:0};pipe.buckets.push(currBucket)}else{currBucket=pipe.buckets[pipe.buckets.length-1]}assert(currBucket.offset<=PIPEFS.BUCKET_BUFFER_SIZE);var freeBytesInCurrBuffer=PIPEFS.BUCKET_BUFFER_SIZE-currBucket.offset;if(freeBytesInCurrBuffer>=dataLen){currBucket.buffer.set(data,currBucket.offset);currBucket.offset+=dataLen;return dataLen}else if(freeBytesInCurrBuffer>0){currBucket.buffer.set(data.subarray(0,freeBytesInCurrBuffer),currBucket.offset);currBucket.offset+=freeBytesInCurrBuffer;data=data.subarray(freeBytesInCurrBuffer,data.byteLength)}var numBuckets=data.byteLength/PIPEFS.BUCKET_BUFFER_SIZE|0;var remElements=data.byteLength%PIPEFS.BUCKET_BUFFER_SIZE;for(var i=0;i<numBuckets;i++){var newBucket={buffer:new Uint8Array(PIPEFS.BUCKET_BUFFER_SIZE),offset:PIPEFS.BUCKET_BUFFER_SIZE,roffset:0};pipe.buckets.push(newBucket);newBucket.buffer.set(data.subarray(0,PIPEFS.BUCKET_BUFFER_SIZE));data=data.subarray(PIPEFS.BUCKET_BUFFER_SIZE,data.byteLength)}if(remElements>0){var newBucket={buffer:new Uint8Array(PIPEFS.BUCKET_BUFFER_SIZE),offset:data.byteLength,roffset:0};pipe.buckets.push(newBucket);newBucket.buffer.set(data)}return dataLen},close:function(stream){var pipe=stream.node.pipe;pipe.buckets=null}},nextname:function(){if(!PIPEFS.nextname.current){PIPEFS.nextname.current=0}return"pipe["+PIPEFS.nextname.current+++"]"}};function ___syscall42(which,varargs){SYSCALLS.varargs=varargs;try{var fdPtr=SYSCALLS.get();if(fdPtr==0){throw new FS.ErrnoError(ERRNO_CODES.EFAULT)}var res=PIPEFS.createPipe();HEAP32[fdPtr>>2]=res.readable_fd;HEAP32[fdPtr+4>>2]=res.writable_fd;return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall5(which,varargs){SYSCALLS.varargs=varargs;try{var pathname=SYSCALLS.getStr(),flags=SYSCALLS.get(),mode=SYSCALLS.get();var stream=FS.open(pathname,flags,mode);return stream.fd}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall54(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD(),op=SYSCALLS.get();switch(op){case 21509:case 21505:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;return 0}case 21510:case 21511:case 21512:case 21506:case 21507:case 21508:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;return 0}case 21519:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;var argp=SYSCALLS.get();HEAP32[argp>>2]=0;return 0}case 21520:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;return-ERRNO_CODES.EINVAL}case 21531:{var argp=SYSCALLS.get();return FS.ioctl(stream,op,argp)}case 21523:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;return 0}case 21524:{if(!stream.tty)return-ERRNO_CODES.ENOTTY;return 0}default:abort("bad ioctl syscall "+op)}}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall57(which,varargs){SYSCALLS.varargs=varargs;try{var pid=SYSCALLS.get(),pgid=SYSCALLS.get();if(pid&&pid!==PROCINFO.pid)return-ERRNO_CODES.ESRCH;if(pgid&&pgid!==PROCINFO.pgid)return-ERRNO_CODES.EPERM;return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall6(which,varargs){SYSCALLS.varargs=varargs;try{var stream=SYSCALLS.getStreamFromFD();FS.close(stream);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall60(which,varargs){SYSCALLS.varargs=varargs;try{var mask=SYSCALLS.get();var old=SYSCALLS.umask;SYSCALLS.umask=mask;return old}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall63(which,varargs){SYSCALLS.varargs=varargs;try{var old=SYSCALLS.getStreamFromFD(),suggestFD=SYSCALLS.get();if(old.fd===suggestFD)return suggestFD;return SYSCALLS.doDup(old.path,old.flags,suggestFD)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall64(which,varargs){SYSCALLS.varargs=varargs;try{return PROCINFO.ppid}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall66(which,varargs){SYSCALLS.varargs=varargs;try{return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall83(which,varargs){SYSCALLS.varargs=varargs;try{var target=SYSCALLS.getStr(),linkpath=SYSCALLS.getStr();FS.symlink(target,linkpath);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall85(which,varargs){SYSCALLS.varargs=varargs;try{var path=SYSCALLS.getStr(),buf=SYSCALLS.get(),bufsize=SYSCALLS.get();return SYSCALLS.doReadlink(path,buf,bufsize)}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall9(which,varargs){SYSCALLS.varargs=varargs;try{var oldpath=SYSCALLS.get(),newpath=SYSCALLS.get();return-ERRNO_CODES.EMLINK}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall91(which,varargs){SYSCALLS.varargs=varargs;try{var addr=SYSCALLS.get(),len=SYSCALLS.get();var info=SYSCALLS.mappings[addr];if(!info)return 0;if(len===info.len){var stream=FS.getStream(info.fd);SYSCALLS.doMsync(addr,stream,len,info.flags);FS.munmap(stream);SYSCALLS.mappings[addr]=null;if(info.allocated){_free(info.malloc)}}return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall94(which,varargs){SYSCALLS.varargs=varargs;try{var fd=SYSCALLS.get(),mode=SYSCALLS.get();FS.fchmod(fd,mode);return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall96(which,varargs){SYSCALLS.varargs=varargs;try{return 0}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___syscall97(which,varargs){SYSCALLS.varargs=varargs;try{return-ERRNO_CODES.EPERM}catch(e){if(typeof FS==="undefined"||!(e instanceof FS.ErrnoError))abort(e);return-e.errno}}function ___unlock(){}function _exit(status){exit(status)}function __exit(a0){return _exit(a0)}function _abort(){Module["abort"]()}var __sigalrm_handler=0;function _alarm(seconds){setTimeout(function(){if(__sigalrm_handler)dynCall_vi(__sigalrm_handler,0)},seconds*1e3)}var ___tm_formatted=1278320;function _tzset(){if(_tzset.called)return;_tzset.called=true;HEAP32[__get_timezone()>>2]=(new Date).getTimezoneOffset()*60;var winter=new Date(2e3,0,1);var summer=new Date(2e3,6,1);HEAP32[__get_daylight()>>2]=Number(winter.getTimezoneOffset()!=summer.getTimezoneOffset());function extractZone(date){var match=date.toTimeString().match(/\(([A-Za-z ]+)\)$/);return match?match[1]:"GMT"}var winterName=extractZone(winter);var summerName=extractZone(summer);var winterNamePtr=allocate(intArrayFromString(winterName),"i8",ALLOC_NORMAL);var summerNamePtr=allocate(intArrayFromString(summerName),"i8",ALLOC_NORMAL);if(summer.getTimezoneOffset()<winter.getTimezoneOffset()){HEAP32[__get_tzname()>>2]=winterNamePtr;HEAP32[__get_tzname()+4>>2]=summerNamePtr}else{HEAP32[__get_tzname()>>2]=summerNamePtr;HEAP32[__get_tzname()+4>>2]=winterNamePtr}}function _mktime(tmPtr){_tzset();var date=new Date(HEAP32[tmPtr+20>>2]+1900,HEAP32[tmPtr+16>>2],HEAP32[tmPtr+12>>2],HEAP32[tmPtr+8>>2],HEAP32[tmPtr+4>>2],HEAP32[tmPtr>>2],0);var dst=HEAP32[tmPtr+32>>2];var guessedOffset=date.getTimezoneOffset();var start=new Date(date.getFullYear(),0,1);var summerOffset=new Date(2e3,6,1).getTimezoneOffset();var winterOffset=start.getTimezoneOffset();var dstOffset=Math.min(winterOffset,summerOffset);if(dst<0){HEAP32[tmPtr+32>>2]=Number(summerOffset!=winterOffset&&dstOffset==guessedOffset)}else if(dst>0!=(dstOffset==guessedOffset)){var nonDstOffset=Math.max(winterOffset,summerOffset);var trueOffset=dst>0?dstOffset:nonDstOffset;date.setTime(date.getTime()+(trueOffset-guessedOffset)*6e4)}HEAP32[tmPtr+24>>2]=date.getDay();var yday=(date.getTime()-start.getTime())/(1e3*60*60*24)|0;HEAP32[tmPtr+28>>2]=yday;return date.getTime()/1e3|0}function _asctime_r(tmPtr,buf){var date={tm_sec:HEAP32[tmPtr>>2],tm_min:HEAP32[tmPtr+4>>2],tm_hour:HEAP32[tmPtr+8>>2],tm_mday:HEAP32[tmPtr+12>>2],tm_mon:HEAP32[tmPtr+16>>2],tm_year:HEAP32[tmPtr+20>>2],tm_wday:HEAP32[tmPtr+24>>2]};var days=["Sun","Mon","Tue","Wed","Thu","Fri","Sat"];var months=["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"];var s=days[date.tm_wday]+" "+months[date.tm_mon]+(date.tm_mday<10?"  ":" ")+date.tm_mday+(date.tm_hour<10?" 0":" ")+date.tm_hour+(date.tm_min<10?":0":":")+date.tm_min+(date.tm_sec<10?":0":":")+date.tm_sec+" "+(1900+date.tm_year)+"\n";stringToUTF8(s,buf,26);return buf}function _asctime(tmPtr){return _asctime_r(tmPtr,___tm_formatted)}function _chroot(path){___setErrNo(13);return-1}function _clearenv(){ENV={};___buildEnvironment(__get_environ());return 0}function _clock(){if(_clock.start===undefined)_clock.start=Date.now();return(Date.now()-_clock.start)*(1e6/1e3)|0}var ___tm_current=1278256;var ___tm_timezone=(stringToUTF8("GMT",1278304,4),1278304);function _localtime_r(time,tmPtr){_tzset();var date=new Date(HEAP32[time>>2]*1e3);HEAP32[tmPtr>>2]=date.getSeconds();HEAP32[tmPtr+4>>2]=date.getMinutes();HEAP32[tmPtr+8>>2]=date.getHours();HEAP32[tmPtr+12>>2]=date.getDate();HEAP32[tmPtr+16>>2]=date.getMonth();HEAP32[tmPtr+20>>2]=date.getFullYear()-1900;HEAP32[tmPtr+24>>2]=date.getDay();var start=new Date(date.getFullYear(),0,1);var yday=(date.getTime()-start.getTime())/(1e3*60*60*24)|0;HEAP32[tmPtr+28>>2]=yday;HEAP32[tmPtr+36>>2]=-(date.getTimezoneOffset()*60);var summerOffset=new Date(2e3,6,1).getTimezoneOffset();var winterOffset=start.getTimezoneOffset();var dst=(summerOffset!=winterOffset&&date.getTimezoneOffset()==Math.min(winterOffset,summerOffset))|0;HEAP32[tmPtr+32>>2]=dst;var zonePtr=HEAP32[__get_tzname()+(dst?4:0)>>2];HEAP32[tmPtr+40>>2]=zonePtr;return tmPtr}function _ctime_r(time,buf){var stack=stackSave();var rv=_asctime_r(_localtime_r(time,stackAlloc(44)),buf);stackRestore(stack);return rv}function _ctime(timer){return _ctime_r(timer,___tm_current)}function _difftime(time1,time0){return time1-time0}function _emscripten_get_heap_size(){return TOTAL_MEMORY}function _longjmp(env,value){_setThrew(env,value||1);throw"longjmp"}function _emscripten_longjmp(env,value){_longjmp(env,value)}function abortOnCannotGrowMemory(requestedSize){abort("OOM")}function emscripten_realloc_buffer(size){var PAGE_MULTIPLE=65536;size=alignUp(size,PAGE_MULTIPLE);var old=Module["buffer"];var oldSize=old.byteLength;try{var result=wasmMemory.grow((size-oldSize)/65536);if(result!==(-1|0)){return Module["buffer"]=wasmMemory.buffer}else{return null}}catch(e){return null}}function _emscripten_resize_heap(requestedSize){var oldSize=_emscripten_get_heap_size();var PAGE_MULTIPLE=65536;var LIMIT=2147483648-PAGE_MULTIPLE;if(requestedSize>LIMIT){return false}var MIN_TOTAL_MEMORY=16777216;var newSize=Math.max(oldSize,MIN_TOTAL_MEMORY);while(newSize<requestedSize){if(newSize<=536870912){newSize=alignUp(2*newSize,PAGE_MULTIPLE)}else{newSize=Math.min(alignUp((3*newSize+2147483648)/4,PAGE_MULTIPLE),LIMIT)}}var replacement=emscripten_realloc_buffer(newSize);if(!replacement||replacement.byteLength!=newSize){return false}updateGlobalBuffer(replacement);updateGlobalBufferViews();TOTAL_MEMORY=newSize;HEAPU32[DYNAMICTOP_PTR>>2]=requestedSize;return true}function _endprotoent(){}function _endpwent(){throw"endpwent: TODO"}function _execl(){___setErrNo(8);return-1}function _execv(){return _execl.apply(null,arguments)}function _execvp(){return _execl.apply(null,arguments)}function _flock(fd,operation){return 0}function _fork(){___setErrNo(95);return-1}function _fpathconf(fildes,name){switch(name){case 0:return 32e3;case 1:case 2:case 3:return 255;case 4:case 5:case 16:case 17:case 18:return 4096;case 6:case 7:case 20:return 1;case 8:return 0;case 9:case 10:case 11:case 12:case 14:case 15:case 19:return-1;case 13:return 64}___setErrNo(22);return-1}var GAI_ERRNO_MESSAGES={};function _gai_strerror(val){var buflen=256;if(!_gai_strerror.buffer){_gai_strerror.buffer=_malloc(buflen);GAI_ERRNO_MESSAGES["0"]="Success";GAI_ERRNO_MESSAGES[""+-1]="Invalid value for 'ai_flags' field";GAI_ERRNO_MESSAGES[""+-2]="NAME or SERVICE is unknown";GAI_ERRNO_MESSAGES[""+-3]="Temporary failure in name resolution";GAI_ERRNO_MESSAGES[""+-4]="Non-recoverable failure in name res";GAI_ERRNO_MESSAGES[""+-6]="'ai_family' not supported";GAI_ERRNO_MESSAGES[""+-7]="'ai_socktype' not supported";GAI_ERRNO_MESSAGES[""+-8]="SERVICE not supported for 'ai_socktype'";GAI_ERRNO_MESSAGES[""+-10]="Memory allocation failure";GAI_ERRNO_MESSAGES[""+-11]="System error returned in 'errno'";GAI_ERRNO_MESSAGES[""+-12]="Argument buffer overflow"}var msg="Unknown error";if(val in GAI_ERRNO_MESSAGES){if(GAI_ERRNO_MESSAGES[val].length>buflen-1){msg="Message too long"}else{msg=GAI_ERRNO_MESSAGES[val]}}writeAsciiToMemory(msg,_gai_strerror.buffer);return _gai_strerror.buffer}function _getaddrinfo(node,service,hint,out){var addr=0;var port=0;var flags=0;var family=0;var type=0;var proto=0;var ai;function allocaddrinfo(family,type,proto,canon,addr,port){var sa,salen,ai;var res;salen=family===10?28:16;addr=family===10?__inet_ntop6_raw(addr):__inet_ntop4_raw(addr);sa=_malloc(salen);res=__write_sockaddr(sa,family,addr,port);assert(!res.errno);ai=_malloc(32);HEAP32[ai+4>>2]=family;HEAP32[ai+8>>2]=type;HEAP32[ai+12>>2]=proto;HEAP32[ai+24>>2]=canon;HEAP32[ai+20>>2]=sa;if(family===10){HEAP32[ai+16>>2]=28}else{HEAP32[ai+16>>2]=16}HEAP32[ai+28>>2]=0;return ai}if(hint){flags=HEAP32[hint>>2];family=HEAP32[hint+4>>2];type=HEAP32[hint+8>>2];proto=HEAP32[hint+12>>2]}if(type&&!proto){proto=type===2?17:6}if(!type&&proto){type=proto===17?2:1}if(proto===0){proto=6}if(type===0){type=1}if(!node&&!service){return-2}if(flags&~(1|2|4|1024|8|16|32)){return-1}if(hint!==0&&HEAP32[hint>>2]&2&&!node){return-1}if(flags&32){return-2}if(type!==0&&type!==1&&type!==2){return-7}if(family!==0&&family!==2&&family!==10){return-6}if(service){service=UTF8ToString(service);port=parseInt(service,10);if(isNaN(port)){if(flags&1024){return-2}return-8}}if(!node){if(family===0){family=2}if((flags&1)===0){if(family===2){addr=_htonl(2130706433)}else{addr=[0,0,0,1]}}ai=allocaddrinfo(family,type,proto,null,addr,port);HEAP32[out>>2]=ai;return 0}node=UTF8ToString(node);addr=__inet_pton4_raw(node);if(addr!==null){if(family===0||family===2){family=2}else if(family===10&&flags&8){addr=[0,0,_htonl(65535),addr];family=10}else{return-2}}else{addr=__inet_pton6_raw(node);if(addr!==null){if(family===0||family===10){family=10}else{return-2}}}if(addr!=null){ai=allocaddrinfo(family,type,proto,node,addr,port);HEAP32[out>>2]=ai;return 0}if(flags&4){return-2}node=DNS.lookup_name(node);addr=__inet_pton4_raw(node);if(family===0){family=2}else if(family===10){addr=[0,0,_htonl(65535),addr]}ai=allocaddrinfo(family,type,proto,null,addr,port);HEAP32[out>>2]=ai;return 0}function _getenv(name){if(name===0)return 0;name=UTF8ToString(name);if(!ENV.hasOwnProperty(name))return 0;if(_getenv.ret)_free(_getenv.ret);_getenv.ret=allocateUTF8(ENV[name]);return _getenv.ret}function _getgrgid(){err("missing function: getgrgid");abort(-1)}function _getgrnam(){err("missing function: getgrnam");abort(-1)}function _gethostbyname(name){name=UTF8ToString(name);var ret=_malloc(20);var nameBuf=_malloc(name.length+1);stringToUTF8(name,nameBuf,name.length+1);HEAP32[ret>>2]=nameBuf;var aliasesBuf=_malloc(4);HEAP32[aliasesBuf>>2]=0;HEAP32[ret+4>>2]=aliasesBuf;var afinet=2;HEAP32[ret+8>>2]=afinet;HEAP32[ret+12>>2]=4;var addrListBuf=_malloc(12);HEAP32[addrListBuf>>2]=addrListBuf+8;HEAP32[addrListBuf+4>>2]=0;HEAP32[addrListBuf+8>>2]=__inet_pton4_raw(DNS.lookup_name(name));HEAP32[ret+16>>2]=addrListBuf;return ret}function _getitimer(){throw"getitimer() is not implemented yet"}function _getnameinfo(sa,salen,node,nodelen,serv,servlen,flags){var info=__read_sockaddr(sa,salen);if(info.errno){return-6}var port=info.port;var addr=info.addr;var overflowed=false;if(node&&nodelen){var lookup;if(flags&1||!(lookup=DNS.lookup_addr(addr))){if(flags&8){return-2}}else{addr=lookup}var numBytesWrittenExclNull=stringToUTF8(addr,node,nodelen);if(numBytesWrittenExclNull+1>=nodelen){overflowed=true}}if(serv&&servlen){port=""+port;var numBytesWrittenExclNull=stringToUTF8(port,serv,servlen);if(numBytesWrittenExclNull+1>=servlen){overflowed=true}}if(overflowed){return-12}return 0}var Protocols={list:[],map:{}};function _setprotoent(stayopen){function allocprotoent(name,proto,aliases){var nameBuf=_malloc(name.length+1);writeAsciiToMemory(name,nameBuf);var j=0;var length=aliases.length;var aliasListBuf=_malloc((length+1)*4);for(var i=0;i<length;i++,j+=4){var alias=aliases[i];var aliasBuf=_malloc(alias.length+1);writeAsciiToMemory(alias,aliasBuf);HEAP32[aliasListBuf+j>>2]=aliasBuf}HEAP32[aliasListBuf+j>>2]=0;var pe=_malloc(12);HEAP32[pe>>2]=nameBuf;HEAP32[pe+4>>2]=aliasListBuf;HEAP32[pe+8>>2]=proto;return pe}var list=Protocols.list;var map=Protocols.map;if(list.length===0){var entry=allocprotoent("tcp",6,["TCP"]);list.push(entry);map["tcp"]=map["6"]=entry;entry=allocprotoent("udp",17,["UDP"]);list.push(entry);map["udp"]=map["17"]=entry}_setprotoent.index=0}function _getprotobyname(name){name=UTF8ToString(name);_setprotoent(true);var result=Protocols.map[name];return result}function _getprotobynumber(number){_setprotoent(true);var result=Protocols.map[number];return result}function _getprotoent(number){if(_setprotoent.index===Protocols.list.length){return 0}else{var result=Protocols.list[_setprotoent.index++];return result}}function _getpwent(){throw"getpwent: TODO"}function _getpwnam(){throw"getpwnam: TODO"}function _getpwuid(uid){return 0}function _gettimeofday(ptr){var now=Date.now();HEAP32[ptr>>2]=now/1e3|0;HEAP32[ptr+4>>2]=now%1e3*1e3|0;return 0}function _gmtime_r(time,tmPtr){var date=new Date(HEAP32[time>>2]*1e3);HEAP32[tmPtr>>2]=date.getUTCSeconds();HEAP32[tmPtr+4>>2]=date.getUTCMinutes();HEAP32[tmPtr+8>>2]=date.getUTCHours();HEAP32[tmPtr+12>>2]=date.getUTCDate();HEAP32[tmPtr+16>>2]=date.getUTCMonth();HEAP32[tmPtr+20>>2]=date.getUTCFullYear()-1900;HEAP32[tmPtr+24>>2]=date.getUTCDay();HEAP32[tmPtr+36>>2]=0;HEAP32[tmPtr+32>>2]=0;var start=Date.UTC(date.getUTCFullYear(),0,1,0,0,0,0);var yday=(date.getTime()-start)/(1e3*60*60*24)|0;HEAP32[tmPtr+28>>2]=yday;HEAP32[tmPtr+40>>2]=___tm_timezone;return tmPtr}function _gmtime(time){return _gmtime_r(time,___tm_current)}function _kill(pid,sig){___setErrNo(ERRNO_CODES.EPERM);return-1}function _llvm_exp2_f32(x){return Math.pow(2,x)}function _llvm_exp2_f64(a0){return _llvm_exp2_f32(a0)}function _llvm_fma_f64(){err("missing function: llvm_fma_f64");abort(-1)}function _llvm_log10_f32(x){return Math.log(x)/Math.LN10}function _llvm_log10_f64(a0){return _llvm_log10_f32(a0)}function _llvm_log2_f32(x){return Math.log(x)/Math.LN2}function _llvm_log2_f64(a0){return _llvm_log2_f32(a0)}function _llvm_trap(){abort("trap!")}var _llvm_trunc_f64=Math_trunc;function _localtime(time){return _localtime_r(time,___tm_current)}function _emscripten_memcpy_big(dest,src,num){HEAPU8.set(HEAPU8.subarray(src,src+num),dest)}function _usleep(useconds){var msec=useconds/1e3;if((ENVIRONMENT_IS_WEB||ENVIRONMENT_IS_WORKER)&&self["performance"]&&self["performance"]["now"]){var start=self["performance"]["now"]();while(self["performance"]["now"]()-start<msec){}}else{var start=Date.now();while(Date.now()-start<msec){}}return 0}Module["_usleep"]=_usleep;function _nanosleep(rqtp,rmtp){var seconds=HEAP32[rqtp>>2];var nanoseconds=HEAP32[rqtp+4>>2];if(rmtp!==0){HEAP32[rmtp>>2]=0;HEAP32[rmtp+4>>2]=0}return _usleep(seconds*1e6+nanoseconds/1e3)}function _pathconf(){return _fpathconf.apply(null,arguments)}function _putenv(string){if(string===0){___setErrNo(22);return-1}string=UTF8ToString(string);var splitPoint=string.indexOf("=");if(string===""||string.indexOf("=")===-1){___setErrNo(22);return-1}var name=string.slice(0,splitPoint);var value=string.slice(splitPoint+1);if(!(name in ENV)||ENV[name]!==value){ENV[name]=value;___buildEnvironment(__get_environ())}return 0}function _sysconf(name){switch(name){case 30:return PAGE_SIZE;case 85:var maxHeapSize=2*1024*1024*1024-65536;return maxHeapSize/PAGE_SIZE;case 132:case 133:case 12:case 137:case 138:case 15:case 235:case 16:case 17:case 18:case 19:case 20:case 149:case 13:case 10:case 236:case 153:case 9:case 21:case 22:case 159:case 154:case 14:case 77:case 78:case 139:case 80:case 81:case 82:case 68:case 67:case 164:case 11:case 29:case 47:case 48:case 95:case 52:case 51:case 46:return 200809;case 79:return 0;case 27:case 246:case 127:case 128:case 23:case 24:case 160:case 161:case 181:case 182:case 242:case 183:case 184:case 243:case 244:case 245:case 165:case 178:case 179:case 49:case 50:case 168:case 169:case 175:case 170:case 171:case 172:case 97:case 76:case 32:case 173:case 35:return-1;case 176:case 177:case 7:case 155:case 8:case 157:case 125:case 126:case 92:case 93:case 129:case 130:case 131:case 94:case 91:return 1;case 74:case 60:case 69:case 70:case 4:return 1024;case 31:case 42:case 72:return 32;case 87:case 26:case 33:return 2147483647;case 34:case 1:return 47839;case 38:case 36:return 99;case 43:case 37:return 2048;case 0:return 2097152;case 3:return 65536;case 28:return 32768;case 44:return 32767;case 75:return 16384;case 39:return 1e3;case 89:return 700;case 71:return 256;case 40:return 255;case 2:return 100;case 180:return 64;case 25:return 20;case 5:return 16;case 6:return 6;case 73:return 4;case 84:{if(typeof navigator==="object")return navigator["hardwareConcurrency"]||1;return 1}}___setErrNo(22);return-1}function _setgroups(ngroups,gidset){if(ngroups<1||ngroups>_sysconf(3)){___setErrNo(22);return-1}else{___setErrNo(1);return-1}}function _setitimer(){throw"setitimer() is not implemented yet"}function _setpwent(){throw"setpwent: TODO"}function _sigaction(signum,act,oldact){return 0}function _sigaddset(set,signum){HEAP32[set>>2]=HEAP32[set>>2]|1<<signum-1;return 0}function _sigdelset(set,signum){HEAP32[set>>2]=HEAP32[set>>2]&~(1<<signum-1);return 0}function _sigemptyset(set){HEAP32[set>>2]=0;return 0}function _sigfillset(set){HEAP32[set>>2]=-1>>>0;return 0}function _sigismember(set,signum){return HEAP32[set>>2]&1<<signum-1}function _signal(sig,func){if(sig==14){__sigalrm_handler=func}else{}return 0}function _sigpending(set){HEAP32[set>>2]=0;return 0}function _sigprocmask(){return 0}function _sigsuspend(){err("missing function: sigsuspend");abort(-1)}function __isLeapYear(year){return year%4===0&&(year%100!==0||year%400===0)}function __arraySum(array,index){var sum=0;for(var i=0;i<=index;sum+=array[i++]);return sum}var __MONTH_DAYS_LEAP=[31,29,31,30,31,30,31,31,30,31,30,31];var __MONTH_DAYS_REGULAR=[31,28,31,30,31,30,31,31,30,31,30,31];function __addDays(date,days){var newDate=new Date(date.getTime());while(days>0){var leap=__isLeapYear(newDate.getFullYear());var currentMonth=newDate.getMonth();var daysInCurrentMonth=(leap?__MONTH_DAYS_LEAP:__MONTH_DAYS_REGULAR)[currentMonth];if(days>daysInCurrentMonth-newDate.getDate()){days-=daysInCurrentMonth-newDate.getDate()+1;newDate.setDate(1);if(currentMonth<11){newDate.setMonth(currentMonth+1)}else{newDate.setMonth(0);newDate.setFullYear(newDate.getFullYear()+1)}}else{newDate.setDate(newDate.getDate()+days);return newDate}}return newDate}function _strftime(s,maxsize,format,tm){var tm_zone=HEAP32[tm+40>>2];var date={tm_sec:HEAP32[tm>>2],tm_min:HEAP32[tm+4>>2],tm_hour:HEAP32[tm+8>>2],tm_mday:HEAP32[tm+12>>2],tm_mon:HEAP32[tm+16>>2],tm_year:HEAP32[tm+20>>2],tm_wday:HEAP32[tm+24>>2],tm_yday:HEAP32[tm+28>>2],tm_isdst:HEAP32[tm+32>>2],tm_gmtoff:HEAP32[tm+36>>2],tm_zone:tm_zone?UTF8ToString(tm_zone):""};var pattern=UTF8ToString(format);var EXPANSION_RULES_1={"%c":"%a %b %d %H:%M:%S %Y","%D":"%m/%d/%y","%F":"%Y-%m-%d","%h":"%b","%r":"%I:%M:%S %p","%R":"%H:%M","%T":"%H:%M:%S","%x":"%m/%d/%y","%X":"%H:%M:%S"};for(var rule in EXPANSION_RULES_1){pattern=pattern.replace(new RegExp(rule,"g"),EXPANSION_RULES_1[rule])}var WEEKDAYS=["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"];var MONTHS=["January","February","March","April","May","June","July","August","September","October","November","December"];function leadingSomething(value,digits,character){var str=typeof value==="number"?value.toString():value||"";while(str.length<digits){str=character[0]+str}return str}function leadingNulls(value,digits){return leadingSomething(value,digits,"0")}function compareByDay(date1,date2){function sgn(value){return value<0?-1:value>0?1:0}var compare;if((compare=sgn(date1.getFullYear()-date2.getFullYear()))===0){if((compare=sgn(date1.getMonth()-date2.getMonth()))===0){compare=sgn(date1.getDate()-date2.getDate())}}return compare}function getFirstWeekStartDate(janFourth){switch(janFourth.getDay()){case 0:return new Date(janFourth.getFullYear()-1,11,29);case 1:return janFourth;case 2:return new Date(janFourth.getFullYear(),0,3);case 3:return new Date(janFourth.getFullYear(),0,2);case 4:return new Date(janFourth.getFullYear(),0,1);case 5:return new Date(janFourth.getFullYear()-1,11,31);case 6:return new Date(janFourth.getFullYear()-1,11,30)}}function getWeekBasedYear(date){var thisDate=__addDays(new Date(date.tm_year+1900,0,1),date.tm_yday);var janFourthThisYear=new Date(thisDate.getFullYear(),0,4);var janFourthNextYear=new Date(thisDate.getFullYear()+1,0,4);var firstWeekStartThisYear=getFirstWeekStartDate(janFourthThisYear);var firstWeekStartNextYear=getFirstWeekStartDate(janFourthNextYear);if(compareByDay(firstWeekStartThisYear,thisDate)<=0){if(compareByDay(firstWeekStartNextYear,thisDate)<=0){return thisDate.getFullYear()+1}else{return thisDate.getFullYear()}}else{return thisDate.getFullYear()-1}}var EXPANSION_RULES_2={"%a":function(date){return WEEKDAYS[date.tm_wday].substring(0,3)},"%A":function(date){return WEEKDAYS[date.tm_wday]},"%b":function(date){return MONTHS[date.tm_mon].substring(0,3)},"%B":function(date){return MONTHS[date.tm_mon]},"%C":function(date){var year=date.tm_year+1900;return leadingNulls(year/100|0,2)},"%d":function(date){return leadingNulls(date.tm_mday,2)},"%e":function(date){return leadingSomething(date.tm_mday,2," ")},"%g":function(date){return getWeekBasedYear(date).toString().substring(2)},"%G":function(date){return getWeekBasedYear(date)},"%H":function(date){return leadingNulls(date.tm_hour,2)},"%I":function(date){var twelveHour=date.tm_hour;if(twelveHour==0)twelveHour=12;else if(twelveHour>12)twelveHour-=12;return leadingNulls(twelveHour,2)},"%j":function(date){return leadingNulls(date.tm_mday+__arraySum(__isLeapYear(date.tm_year+1900)?__MONTH_DAYS_LEAP:__MONTH_DAYS_REGULAR,date.tm_mon-1),3)},"%m":function(date){return leadingNulls(date.tm_mon+1,2)},"%M":function(date){return leadingNulls(date.tm_min,2)},"%n":function(){return"\n"},"%p":function(date){if(date.tm_hour>=0&&date.tm_hour<12){return"AM"}else{return"PM"}},"%S":function(date){return leadingNulls(date.tm_sec,2)},"%t":function(){return"\t"},"%u":function(date){var day=new Date(date.tm_year+1900,date.tm_mon+1,date.tm_mday,0,0,0,0);return day.getDay()||7},"%U":function(date){var janFirst=new Date(date.tm_year+1900,0,1);var firstSunday=janFirst.getDay()===0?janFirst:__addDays(janFirst,7-janFirst.getDay());var endDate=new Date(date.tm_year+1900,date.tm_mon,date.tm_mday);if(compareByDay(firstSunday,endDate)<0){var februaryFirstUntilEndMonth=__arraySum(__isLeapYear(endDate.getFullYear())?__MONTH_DAYS_LEAP:__MONTH_DAYS_REGULAR,endDate.getMonth()-1)-31;var firstSundayUntilEndJanuary=31-firstSunday.getDate();var days=firstSundayUntilEndJanuary+februaryFirstUntilEndMonth+endDate.getDate();return leadingNulls(Math.ceil(days/7),2)}return compareByDay(firstSunday,janFirst)===0?"01":"00"},"%V":function(date){var janFourthThisYear=new Date(date.tm_year+1900,0,4);var janFourthNextYear=new Date(date.tm_year+1901,0,4);var firstWeekStartThisYear=getFirstWeekStartDate(janFourthThisYear);var firstWeekStartNextYear=getFirstWeekStartDate(janFourthNextYear);var endDate=__addDays(new Date(date.tm_year+1900,0,1),date.tm_yday);if(compareByDay(endDate,firstWeekStartThisYear)<0){return"53"}if(compareByDay(firstWeekStartNextYear,endDate)<=0){return"01"}var daysDifference;if(firstWeekStartThisYear.getFullYear()<date.tm_year+1900){daysDifference=date.tm_yday+32-firstWeekStartThisYear.getDate()}else{daysDifference=date.tm_yday+1-firstWeekStartThisYear.getDate()}return leadingNulls(Math.ceil(daysDifference/7),2)},"%w":function(date){var day=new Date(date.tm_year+1900,date.tm_mon+1,date.tm_mday,0,0,0,0);return day.getDay()},"%W":function(date){var janFirst=new Date(date.tm_year,0,1);var firstMonday=janFirst.getDay()===1?janFirst:__addDays(janFirst,janFirst.getDay()===0?1:7-janFirst.getDay()+1);var endDate=new Date(date.tm_year+1900,date.tm_mon,date.tm_mday);if(compareByDay(firstMonday,endDate)<0){var februaryFirstUntilEndMonth=__arraySum(__isLeapYear(endDate.getFullYear())?__MONTH_DAYS_LEAP:__MONTH_DAYS_REGULAR,endDate.getMonth()-1)-31;var firstMondayUntilEndJanuary=31-firstMonday.getDate();var days=firstMondayUntilEndJanuary+februaryFirstUntilEndMonth+endDate.getDate();return leadingNulls(Math.ceil(days/7),2)}return compareByDay(firstMonday,janFirst)===0?"01":"00"},"%y":function(date){return(date.tm_year+1900).toString().substring(2)},"%Y":function(date){return date.tm_year+1900},"%z":function(date){var off=date.tm_gmtoff;var ahead=off>=0;off=Math.abs(off)/60;off=off/60*100+off%60;return(ahead?"+":"-")+String("0000"+off).slice(-4)},"%Z":function(date){return date.tm_zone},"%%":function(){return"%"}};for(var rule in EXPANSION_RULES_2){if(pattern.indexOf(rule)>=0){pattern=pattern.replace(new RegExp(rule,"g"),EXPANSION_RULES_2[rule](date))}}var bytes=intArrayFromString(pattern,false);if(bytes.length>maxsize){return 0}writeArrayToMemory(bytes,s);return bytes.length-1}function _time(ptr){var ret=Date.now()/1e3|0;if(ptr){HEAP32[ptr>>2]=ret}return ret}function _times(buffer){if(buffer!==0){_memset(buffer,0,16)}return 0}function _unsetenv(name){if(name===0){___setErrNo(22);return-1}name=UTF8ToString(name);if(name===""||name.indexOf("=")!==-1){___setErrNo(22);return-1}if(ENV.hasOwnProperty(name)){delete ENV[name];___buildEnvironment(__get_environ())}return 0}function _utime(path,times){var time;if(times){var offset=4;time=HEAP32[times+offset>>2];time*=1e3}else{time=Date.now()}path=UTF8ToString(path);try{FS.utime(path,time,time);return 0}catch(e){FS.handleFSError(e);return-1}}function _wait(stat_loc){___setErrNo(10);return-1}if(ENVIRONMENT_IS_NODE){_emscripten_get_now=function _emscripten_get_now_actual(){var t=process["hrtime"]();return t[0]*1e3+t[1]/1e6}}else if(typeof dateNow!=="undefined"){_emscripten_get_now=dateNow}else if(typeof self==="object"&&self["performance"]&&typeof self["performance"]["now"]==="function"){_emscripten_get_now=function(){return self["performance"]["now"]()}}else if(typeof performance==="object"&&typeof performance["now"]==="function"){_emscripten_get_now=function(){return performance["now"]()}}else{_emscripten_get_now=Date.now}FS.staticInit();Module["FS_createFolder"]=FS.createFolder;Module["FS_createPath"]=FS.createPath;Module["FS_createDataFile"]=FS.createDataFile;Module["FS_createPreloadedFile"]=FS.createPreloadedFile;Module["FS_createLazyFile"]=FS.createLazyFile;Module["FS_createLink"]=FS.createLink;Module["FS_createDevice"]=FS.createDevice;Module["FS_unlink"]=FS.unlink;if(ENVIRONMENT_IS_NODE){var fs=require("fs");var NODEJS_PATH=require("path");NODEFS.staticInit()}var ASSERTIONS=false;function intArrayFromString(stringy,dontAddNull,length){var len=length>0?length:lengthBytesUTF8(stringy)+1;var u8array=new Array(len);var numBytesWritten=stringToUTF8Array(stringy,u8array,0,u8array.length);if(dontAddNull)u8array.length=numBytesWritten;return u8array}function invoke_i(index){var sp=stackSave();try{return dynCall_i(index)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_ii(index,a1){var sp=stackSave();try{return dynCall_ii(index,a1)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_iii(index,a1,a2){var sp=stackSave();try{return dynCall_iii(index,a1,a2)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_iiii(index,a1,a2,a3){var sp=stackSave();try{return dynCall_iiii(index,a1,a2,a3)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_iiiii(index,a1,a2,a3,a4){var sp=stackSave();try{return dynCall_iiiii(index,a1,a2,a3,a4)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_iiiiiii(index,a1,a2,a3,a4,a5,a6){var sp=stackSave();try{return dynCall_iiiiiii(index,a1,a2,a3,a4,a5,a6)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_v(index){var sp=stackSave();try{dynCall_v(index)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_vi(index,a1){var sp=stackSave();try{dynCall_vi(index,a1)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_vii(index,a1,a2){var sp=stackSave();try{dynCall_vii(index,a1,a2)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_viii(index,a1,a2,a3){var sp=stackSave();try{dynCall_viii(index,a1,a2,a3)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}function invoke_viiii(index,a1,a2,a3,a4){var sp=stackSave();try{dynCall_viiii(index,a1,a2,a3,a4)}catch(e){stackRestore(sp);if(e!==e+0&&e!=="longjmp")throw e;_setThrew(1,0)}}var asmGlobalArg={};var asmLibraryArg={"abort":abort,"setTempRet0":setTempRet0,"getTempRet0":getTempRet0,"invoke_i":invoke_i,"invoke_ii":invoke_ii,"invoke_iii":invoke_iii,"invoke_iiii":invoke_iiii,"invoke_iiiii":invoke_iiiii,"invoke_iiiiiii":invoke_iiiiiii,"invoke_v":invoke_v,"invoke_vi":invoke_vi,"invoke_vii":invoke_vii,"invoke_viii":invoke_viii,"invoke_viiii":invoke_viiii,"___assert_fail":___assert_fail,"___buildEnvironment":___buildEnvironment,"___clock_gettime":___clock_gettime,"___lock":___lock,"___map_file":___map_file,"___setErrNo":___setErrNo,"___syscall10":___syscall10,"___syscall102":___syscall102,"___syscall118":___syscall118,"___syscall12":___syscall12,"___syscall122":___syscall122,"___syscall132":___syscall132,"___syscall133":___syscall133,"___syscall14":___syscall14,"___syscall140":___syscall140,"___syscall142":___syscall142,"___syscall145":___syscall145,"___syscall146":___syscall146,"___syscall15":___syscall15,"___syscall168":___syscall168,"___syscall183":___syscall183,"___syscall193":___syscall193,"___syscall194":___syscall194,"___syscall195":___syscall195,"___syscall196":___syscall196,"___syscall197":___syscall197,"___syscall198":___syscall198,"___syscall199":___syscall199,"___syscall20":___syscall20,"___syscall200":___syscall200,"___syscall201":___syscall201,"___syscall202":___syscall202,"___syscall205":___syscall205,"___syscall207":___syscall207,"___syscall212":___syscall212,"___syscall220":___syscall220,"___syscall221":___syscall221,"___syscall29":___syscall29,"___syscall3":___syscall3,"___syscall301":___syscall301,"___syscall302":___syscall302,"___syscall303":___syscall303,"___syscall33":___syscall33,"___syscall330":___syscall330,"___syscall331":___syscall331,"___syscall34":___syscall34,"___syscall38":___syscall38,"___syscall39":___syscall39,"___syscall4":___syscall4,"___syscall40":___syscall40,"___syscall41":___syscall41,"___syscall42":___syscall42,"___syscall5":___syscall5,"___syscall54":___syscall54,"___syscall57":___syscall57,"___syscall6":___syscall6,"___syscall60":___syscall60,"___syscall63":___syscall63,"___syscall64":___syscall64,"___syscall66":___syscall66,"___syscall83":___syscall83,"___syscall85":___syscall85,"___syscall9":___syscall9,"___syscall91":___syscall91,"___syscall94":___syscall94,"___syscall96":___syscall96,"___syscall97":___syscall97,"___unlock":___unlock,"__addDays":__addDays,"__arraySum":__arraySum,"__exit":__exit,"__inet_ntop4_raw":__inet_ntop4_raw,"__inet_ntop6_raw":__inet_ntop6_raw,"__inet_pton4_raw":__inet_pton4_raw,"__inet_pton6_raw":__inet_pton6_raw,"__isLeapYear":__isLeapYear,"__read_sockaddr":__read_sockaddr,"__write_sockaddr":__write_sockaddr,"_abort":_abort,"_alarm":_alarm,"_asctime":_asctime,"_asctime_r":_asctime_r,"_chroot":_chroot,"_clearenv":_clearenv,"_clock":_clock,"_clock_gettime":_clock_gettime,"_ctime":_ctime,"_ctime_r":_ctime_r,"_difftime":_difftime,"_emscripten_get_heap_size":_emscripten_get_heap_size,"_emscripten_get_now":_emscripten_get_now,"_emscripten_get_now_is_monotonic":_emscripten_get_now_is_monotonic,"_emscripten_longjmp":_emscripten_longjmp,"_emscripten_memcpy_big":_emscripten_memcpy_big,"_emscripten_resize_heap":_emscripten_resize_heap,"_endprotoent":_endprotoent,"_endpwent":_endpwent,"_execl":_execl,"_execv":_execv,"_execvp":_execvp,"_exit":_exit,"_flock":_flock,"_fork":_fork,"_fpathconf":_fpathconf,"_gai_strerror":_gai_strerror,"_getaddrinfo":_getaddrinfo,"_getenv":_getenv,"_getgrgid":_getgrgid,"_getgrnam":_getgrnam,"_gethostbyname":_gethostbyname,"_getitimer":_getitimer,"_getnameinfo":_getnameinfo,"_getprotobyname":_getprotobyname,"_getprotobynumber":_getprotobynumber,"_getprotoent":_getprotoent,"_getpwent":_getpwent,"_getpwnam":_getpwnam,"_getpwuid":_getpwuid,"_gettimeofday":_gettimeofday,"_gmtime":_gmtime,"_gmtime_r":_gmtime_r,"_js_eval_js":_js_eval_js,"_kill":_kill,"_llvm_exp2_f32":_llvm_exp2_f32,"_llvm_exp2_f64":_llvm_exp2_f64,"_llvm_fma_f64":_llvm_fma_f64,"_llvm_log10_f32":_llvm_log10_f32,"_llvm_log10_f64":_llvm_log10_f64,"_llvm_log2_f32":_llvm_log2_f32,"_llvm_log2_f64":_llvm_log2_f64,"_llvm_trap":_llvm_trap,"_llvm_trunc_f64":_llvm_trunc_f64,"_localtime":_localtime,"_localtime_r":_localtime_r,"_longjmp":_longjmp,"_mktime":_mktime,"_nanosleep":_nanosleep,"_pathconf":_pathconf,"_putenv":_putenv,"_setgroups":_setgroups,"_setitimer":_setitimer,"_setprotoent":_setprotoent,"_setpwent":_setpwent,"_sigaction":_sigaction,"_sigaddset":_sigaddset,"_sigdelset":_sigdelset,"_sigemptyset":_sigemptyset,"_sigfillset":_sigfillset,"_sigismember":_sigismember,"_signal":_signal,"_sigpending":_sigpending,"_sigprocmask":_sigprocmask,"_sigsuspend":_sigsuspend,"_strftime":_strftime,"_sysconf":_sysconf,"_time":_time,"_times":_times,"_tzset":_tzset,"_unsetenv":_unsetenv,"_usleep":_usleep,"_utime":_utime,"_wait":_wait,"abortOnCannotGrowMemory":abortOnCannotGrowMemory,"emscripten_realloc_buffer":emscripten_realloc_buffer,"tempDoublePtr":tempDoublePtr,"DYNAMICTOP_PTR":DYNAMICTOP_PTR};var asm=Module["asm"](asmGlobalArg,asmLibraryArg,buffer);Module["asm"]=asm;var _Perl_call_argv=Module["_Perl_call_argv"]=function(){return Module["asm"]["_Perl_call_argv"].apply(null,arguments)};var _Perl_call_method=Module["_Perl_call_method"]=function(){return Module["asm"]["_Perl_call_method"].apply(null,arguments)};var _Perl_call_pv=Module["_Perl_call_pv"]=function(){return Module["asm"]["_Perl_call_pv"].apply(null,arguments)};var _Perl_call_sv=Module["_Perl_call_sv"]=function(){return Module["asm"]["_Perl_call_sv"].apply(null,arguments)};var _Perl_eval_pv=Module["_Perl_eval_pv"]=function(){return Module["asm"]["_Perl_eval_pv"].apply(null,arguments)};var _Perl_eval_sv=Module["_Perl_eval_sv"]=function(){return Module["asm"]["_Perl_eval_sv"].apply(null,arguments)};var ___em_js__js_eval_js=Module["___em_js__js_eval_js"]=function(){return Module["asm"]["___em_js__js_eval_js"].apply(null,arguments)};var ___emscripten_environ_constructor=Module["___emscripten_environ_constructor"]=function(){return Module["asm"]["___emscripten_environ_constructor"].apply(null,arguments)};var ___errno_location=Module["___errno_location"]=function(){return Module["asm"]["___errno_location"].apply(null,arguments)};var __get_daylight=Module["__get_daylight"]=function(){return Module["asm"]["__get_daylight"].apply(null,arguments)};var __get_environ=Module["__get_environ"]=function(){return Module["asm"]["__get_environ"].apply(null,arguments)};var __get_timezone=Module["__get_timezone"]=function(){return Module["asm"]["__get_timezone"].apply(null,arguments)};var __get_tzname=Module["__get_tzname"]=function(){return Module["asm"]["__get_tzname"].apply(null,arguments)};var _emperl_end_perl=Module["_emperl_end_perl"]=function(){return Module["asm"]["_emperl_end_perl"].apply(null,arguments)};var _emscripten_replace_memory=Module["_emscripten_replace_memory"]=function(){return Module["asm"]["_emscripten_replace_memory"].apply(null,arguments)};var _free=Module["_free"]=function(){return Module["asm"]["_free"].apply(null,arguments)};var _htonl=Module["_htonl"]=function(){return Module["asm"]["_htonl"].apply(null,arguments)};var _htons=Module["_htons"]=function(){return Module["asm"]["_htons"].apply(null,arguments)};var _llvm_bswap_i16=Module["_llvm_bswap_i16"]=function(){return Module["asm"]["_llvm_bswap_i16"].apply(null,arguments)};var _llvm_bswap_i32=Module["_llvm_bswap_i32"]=function(){return Module["asm"]["_llvm_bswap_i32"].apply(null,arguments)};var _llvm_maxnum_f64=Module["_llvm_maxnum_f64"]=function(){return Module["asm"]["_llvm_maxnum_f64"].apply(null,arguments)};var _llvm_minnum_f64=Module["_llvm_minnum_f64"]=function(){return Module["asm"]["_llvm_minnum_f64"].apply(null,arguments)};var _llvm_nearbyint_f64=Module["_llvm_nearbyint_f64"]=function(){return Module["asm"]["_llvm_nearbyint_f64"].apply(null,arguments)};var _llvm_rint_f64=Module["_llvm_rint_f64"]=function(){return Module["asm"]["_llvm_rint_f64"].apply(null,arguments)};var _llvm_round_f64=Module["_llvm_round_f64"]=function(){return Module["asm"]["_llvm_round_f64"].apply(null,arguments)};var _main=Module["_main"]=function(){return Module["asm"]["_main"].apply(null,arguments)};var _malloc=Module["_malloc"]=function(){return Module["asm"]["_malloc"].apply(null,arguments)};var _memcpy=Module["_memcpy"]=function(){return Module["asm"]["_memcpy"].apply(null,arguments)};var _memmove=Module["_memmove"]=function(){return Module["asm"]["_memmove"].apply(null,arguments)};var _memset=Module["_memset"]=function(){return Module["asm"]["_memset"].apply(null,arguments)};var _ntohs=Module["_ntohs"]=function(){return Module["asm"]["_ntohs"].apply(null,arguments)};var _realloc=Module["_realloc"]=function(){return Module["asm"]["_realloc"].apply(null,arguments)};var _round=Module["_round"]=function(){return Module["asm"]["_round"].apply(null,arguments)};var _saveSetjmp=Module["_saveSetjmp"]=function(){return Module["asm"]["_saveSetjmp"].apply(null,arguments)};var _sbrk=Module["_sbrk"]=function(){return Module["asm"]["_sbrk"].apply(null,arguments)};var _setThrew=Module["_setThrew"]=function(){return Module["asm"]["_setThrew"].apply(null,arguments)};var _testSetjmp=Module["_testSetjmp"]=function(){return Module["asm"]["_testSetjmp"].apply(null,arguments)};var _webperl_eval_perl=Module["_webperl_eval_perl"]=function(){return Module["asm"]["_webperl_eval_perl"].apply(null,arguments)};var establishStackSpace=Module["establishStackSpace"]=function(){return Module["asm"]["establishStackSpace"].apply(null,arguments)};var stackAlloc=Module["stackAlloc"]=function(){return Module["asm"]["stackAlloc"].apply(null,arguments)};var stackRestore=Module["stackRestore"]=function(){return Module["asm"]["stackRestore"].apply(null,arguments)};var stackSave=Module["stackSave"]=function(){return Module["asm"]["stackSave"].apply(null,arguments)};var dynCall_d=Module["dynCall_d"]=function(){return Module["asm"]["dynCall_d"].apply(null,arguments)};var dynCall_i=Module["dynCall_i"]=function(){return Module["asm"]["dynCall_i"].apply(null,arguments)};var dynCall_ii=Module["dynCall_ii"]=function(){return Module["asm"]["dynCall_ii"].apply(null,arguments)};var dynCall_iii=Module["dynCall_iii"]=function(){return Module["asm"]["dynCall_iii"].apply(null,arguments)};var dynCall_iiii=Module["dynCall_iiii"]=function(){return Module["asm"]["dynCall_iiii"].apply(null,arguments)};var dynCall_iiiii=Module["dynCall_iiiii"]=function(){return Module["asm"]["dynCall_iiiii"].apply(null,arguments)};var dynCall_iiiiii=Module["dynCall_iiiiii"]=function(){return Module["asm"]["dynCall_iiiiii"].apply(null,arguments)};var dynCall_iiiiiii=Module["dynCall_iiiiiii"]=function(){return Module["asm"]["dynCall_iiiiiii"].apply(null,arguments)};var dynCall_iiiiiiii=Module["dynCall_iiiiiiii"]=function(){return Module["asm"]["dynCall_iiiiiiii"].apply(null,arguments)};var dynCall_iiiiiiiii=Module["dynCall_iiiiiiiii"]=function(){return Module["asm"]["dynCall_iiiiiiiii"].apply(null,arguments)};var dynCall_iiiiiiiiiii=Module["dynCall_iiiiiiiiiii"]=function(){return Module["asm"]["dynCall_iiiiiiiiiii"].apply(null,arguments)};var dynCall_v=Module["dynCall_v"]=function(){return Module["asm"]["dynCall_v"].apply(null,arguments)};var dynCall_vi=Module["dynCall_vi"]=function(){return Module["asm"]["dynCall_vi"].apply(null,arguments)};var dynCall_vii=Module["dynCall_vii"]=function(){return Module["asm"]["dynCall_vii"].apply(null,arguments)};var dynCall_viii=Module["dynCall_viii"]=function(){return Module["asm"]["dynCall_viii"].apply(null,arguments)};var dynCall_viiii=Module["dynCall_viiii"]=function(){return Module["asm"]["dynCall_viiii"].apply(null,arguments)};Module["asm"]=asm;Module["ccall"]=ccall;Module["cwrap"]=cwrap;Module["getMemory"]=getMemory;Module["addRunDependency"]=addRunDependency;Module["removeRunDependency"]=removeRunDependency;Module["FS_createFolder"]=FS.createFolder;Module["FS_createPath"]=FS.createPath;Module["FS_createDataFile"]=FS.createDataFile;Module["FS_createPreloadedFile"]=FS.createPreloadedFile;Module["FS_createLazyFile"]=FS.createLazyFile;Module["FS_createLink"]=FS.createLink;Module["FS_createDevice"]=FS.createDevice;Module["FS_unlink"]=FS.unlink;function ExitStatus(status){this.name="ExitStatus";this.message="Program terminated with exit("+status+")";this.status=status}ExitStatus.prototype=new Error;ExitStatus.prototype.constructor=ExitStatus;var calledMain=false;dependenciesFulfilled=function runCaller(){if(!Module["calledRun"])run();if(!Module["calledRun"])dependenciesFulfilled=runCaller};Module["callMain"]=function callMain(args){args=args||[];ensureInitRuntime();var argc=args.length+1;var argv=stackAlloc((argc+1)*4);HEAP32[argv>>2]=allocateUTF8OnStack(Module["thisProgram"]);for(var i=1;i<argc;i++){HEAP32[(argv>>2)+i]=allocateUTF8OnStack(args[i-1])}HEAP32[(argv>>2)+argc]=0;try{var ret=Module["_main"](argc,argv,0);exit(ret,true)}catch(e){if(e instanceof ExitStatus){return}else if(e=="SimulateInfiniteLoop"){Module["noExitRuntime"]=true;return}else{var toLog=e;if(e&&typeof e==="object"&&e.stack){toLog=[e,e.stack]}err("exception thrown: "+toLog);Module["quit"](1,e)}}finally{calledMain=true}};function run(args){args=args||Module["arguments"];if(runDependencies>0){return}preRun();if(runDependencies>0)return;if(Module["calledRun"])return;function doRun(){if(Module["calledRun"])return;Module["calledRun"]=true;if(ABORT)return;ensureInitRuntime();preMain();if(Module["onRuntimeInitialized"])Module["onRuntimeInitialized"]();if(Module["_main"]&&shouldRunNow)Module["callMain"](args);postRun()}if(Module["setStatus"]){Module["setStatus"]("Running...");setTimeout(function(){setTimeout(function(){Module["setStatus"]("")},1);doRun()},1)}else{doRun()}}Module["run"]=run;function exit(status,implicit){if(implicit&&Module["noExitRuntime"]&&status===0){return}if(Module["noExitRuntime"]){}else{ABORT=true;EXITSTATUS=status;exitRuntime();if(Module["onExit"])Module["onExit"](status)}Module["quit"](status,new ExitStatus(status))}function abort(what){if(Module["onAbort"]){Module["onAbort"](what)}if(what!==undefined){out(what);err(what);what=JSON.stringify(what)}else{what=""}ABORT=true;EXITSTATUS=1;throw"abort("+what+"). Build with -s ASSERTIONS=1 for more info."}Module["abort"]=abort;if(Module["preInit"]){if(typeof Module["preInit"]=="function")Module["preInit"]=[Module["preInit"]];while(Module["preInit"].length>0){Module["preInit"].pop()()}}var shouldRunNow=true;if(Module["noInitialRun"]){shouldRunNow=false}Module["noExitRuntime"]=true;run();
diff --git a/lib/webperl/emperl.wasm b/lib/webperl/emperl.wasm
new file mode 100644
index 0000000..006a403
Binary files /dev/null and b/lib/webperl/emperl.wasm differ
diff --git a/lib/webperl/webperl.js b/lib/webperl/webperl.js
new file mode 100644
index 0000000..c427043
--- /dev/null
+++ b/lib/webperl/webperl.js
@@ -0,0 +1,388 @@
+"use strict";
+
+/** ***** WebPerl - http://webperl.zero-g.net *****
+ * 
+ * Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
+ * at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
+ * Berlin, Germany, http://www.igb-berlin.de
+ * 
+ * This program is free software; you can redistribute it and/or modify
+ * it under the same terms as Perl 5 itself: either the GNU General Public
+ * License as published by the Free Software Foundation (either version 1,
+ * or, at your option, any later version), or the "Artistic License" which
+ * comes with Perl 5.
+ * 
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ * See the licenses for details.
+ * 
+ * You should have received a copy of the licenses along with this program.
+ * If not, see http://perldoc.perl.org/index-licence.html
+**/
+
+/* -- Please see the documentation at http://webperl.zero-g.net/using.html -- */
+
+var Module;
+var Perl = {
+	trace: false,         // user may enable this
+	endAfterMain: false,  // user may enable this (before Perl.init)
+	noMountIdbfs: false,  // user may enable this (before Perl.start)
+	WebPerlVersion: 'v0.09-beta',  // user may read (only!) this
+	state: "Uninitialized",  // user may read (only!) this
+	exitStatus: undefined,   // user may read (only!) this
+	Util: {},
+	// internal variables:
+	initStepsLeft: 2, // Must match number of Perl.initStepFinished() calls!
+	readyCallback: null,
+	stdout_buf: "", stderr_buf: "", // for our default Perl.output implementation
+	dispatch: function (perl) {
+		Perl._call_code_args = Array.prototype.slice.call(arguments, 1);
+		Perl.eval(perl);
+		if (Perl._call_code_error) {
+			var err = Perl._call_code_error;
+			delete Perl._call_code_error;
+			throw err;
+		}
+		else {
+			var rv = Perl._call_code_rv;
+			delete Perl._call_code_rv;
+			return rv;
+		}
+	},
+};
+
+/* TODO: Embedded script should be able to influence the running of Perl,
+ * the cleanest would probably be to set properties on the Perl object,
+ * such as Perl.autorun = false or Perl.argv = [...]. It should be possible
+ * for the user to do this for embedded scripts also! Will probably need
+ * to change the initialization of Perl so that the user can set its properties
+ * *before* loading webperl.js. */
+
+window.addEventListener("load", function () {
+	// Note: to get the content of script tags with jQuery: $('script[type="text/perl"]').html()
+	var scripts = [];
+	var script_src;
+	document.querySelectorAll("script[type='text/perl']")
+		.forEach(function (el) {
+			if (el.src) {
+				if (script_src || scripts.length)
+					console.error('Only a single Perl script may be loaded via "script src=", ignoring others');
+				else
+					script_src = el.src;
+			}
+			else {
+				if (script_src)
+					console.error('Only a single Perl script may be loaded via "script src=", ignoring others');
+				else
+					scripts.push(el.innerHTML);
+			}
+		});
+	if (script_src) {
+		console.debug("Perl: Found a script with src, fetching and running...", script_src);
+		var xhr = new XMLHttpRequest();
+		xhr.addEventListener("load", function () {
+			//TODO Later: Might be nice to name the script in the virtual FS after the URL instead of a generic name
+			Perl._saveAndRun( this.responseText );
+		});
+		xhr.open("GET", script_src);
+		xhr.send();
+	}
+	else if (scripts.length) {
+		console.debug("Perl: Found",scripts.length,"embedded script(s), autorunning...");
+		var code = scripts.join(";\n");
+		
+		// get the first five lines of code
+		var n = 5 + 1; // the contents of the <script> tag will usually begin with a newline
+		var i = -1;
+		while (n-- && i++ < code.length) {
+			i = code.indexOf("\n", i);
+			if (i < 0) break;
+		}
+		var head = i<0 ? code : code.substring(0,i);
+		// look for a "use WebPerl"
+		const regex = /^\s*use\s+WebPerl(\s|;)/m;
+		if (!regex.exec(head)) { // load WebPerl unless the user loaded it
+			console.debug("Perl: Autoloading WebPerl");
+			code = "use WebPerl 'js';\n" + code;
+		}
+		
+		Perl._saveAndRun(code);
+	}
+	else console.debug("Perl: No embedded scripts");
+});
+Perl._saveAndRun = function (script) {
+	Perl.init(function () {
+		var file = "/tmp/scripts.pl";
+		try {
+			FS.writeFile( file, script );
+			console.debug("Perl: Saved script(s) to ",file,", now running");
+			window.addEventListener("beforeunload", function () {
+				// not really needed because we're unloading anyway, but for good measure, end Perl...
+				console.debug("Perl: beforeunload, ending...");
+				Perl.end();
+			});
+			// run Perl async so that the window has a chance to refresh
+			window.setTimeout(function () { Perl.start( [ file ] ); }, 1);
+		}
+		catch (err) { console.error("Perl:",err); alert("Save to "+file+" failed: "+err); }
+	});
+};
+
+Perl.changeState = function (newState) {
+	if (Perl.state==newState) return;
+	var oldState = Perl.state;
+	Perl.state = newState;
+	if (Perl.stateChanged) {
+		console.info("Perl.stateChanged is deprecated, please use Perl.addStateChangeListener instead");
+		Perl.stateChanged(oldState,newState);
+	}
+	for( var i=0 ; i<Perl.stateChangeListeners.length ; i++ )
+		Perl.stateChangeListeners[i](oldState,newState);
+};
+Perl.stateChangeListeners = [ function (from,to) {
+	console.debug("Perl: state changed from "+from+" to "+to);
+} ];
+Perl.addStateChangeListener = function (handler) {
+	Perl.stateChangeListeners.push(handler);
+};
+
+// chan: 1=STDOUT, 2=STDERR
+// implementations are free to ignore the "chan" argument if they want to merge the two streams
+Perl.output = function (str,chan) { // can be overridden by the user
+	var buf = chan==2 ? 'stderr_buf' : 'stdout_buf';
+	Perl[buf] += str;
+	var pos = Perl[buf].indexOf("\n");
+	while (pos>-1) {
+		console.log( chan==2?"STDERR":"STDOUT", Perl[buf].slice(0,pos) );
+		Perl[buf] = Perl[buf].slice(pos+1);
+		pos = Perl[buf].indexOf("\n");
+	}
+};
+Perl.outputLine = function (chan,text) { // internal function
+	if (arguments.length > 2) text = Array.prototype.slice.call(arguments,1).join(' ');
+	Perl.output(text,chan);
+	Perl.output("\n",chan);
+};
+Perl.outputChar = function (chan,c) { // internal function
+	Perl.output(String.fromCharCode(c),chan);
+};
+
+Perl.makeOutputTextarea = function (id) {
+	var ta = document.createElement('textarea');
+	if (id) ta.id = id;
+	ta.rows = 24; ta.cols = 80;
+	ta.setAttribute("readonly",true);
+	Perl.output = function (str) {
+		ta.value = ta.value + str;
+		ta.scrollTop = ta.scrollHeight;
+	};
+	return ta;
+};
+
+var getScriptURL = (function() { // with thanks to https://stackoverflow.com/a/2976714
+	var scripts = document.getElementsByTagName('script');
+	var index = scripts.length - 1;
+	var myScript = scripts[index];
+	return function() { return myScript.src; };
+})();
+
+Perl.Util.baseurl = function (urlstr) {
+	var url = new URL(urlstr);
+	if (url.protocol=='file:')
+		return url.href.substring(0, url.href.lastIndexOf('/'));
+	else
+		return url.origin + url.pathname.substring(0, url.pathname.lastIndexOf('/'));
+};
+
+Perl.init = function (readyCallback) {
+	if (Perl.state != "Uninitialized")
+		throw "Perl: can't call init in state "+Perl.state;
+	Perl.changeState("Initializing");
+	// Note that a lot of things still won't work for file:// URLs because of the Same-Origin Policy.
+	// see e.g. https://developer.mozilla.org/en-US/docs/Web/HTTP/CORS/Errors/CORSRequestNotHttp
+	var baseurl = Perl.Util.baseurl(getScriptURL());
+	Perl.readyCallback = readyCallback;
+	Module = {
+		noInitialRun: true,
+		noExitRuntime: true,
+		print:  Perl.outputLine.bind(null,1),  printErr: Perl.outputLine.bind(null,2),
+		stdout: Perl.outputChar.bind(null,1),  stderr:   Perl.outputChar.bind(null,2),
+		stdin: function () { return null },
+		arguments: ['--version'],
+		onAbort: function () {
+			console.error("Perl: Aborted (state",Perl.state,")");
+			alert("Perl aborted in state "+Perl.state);
+			Perl.exitStatus = -1;
+			Perl.changeState("Ended");
+		},
+		onExit: function (status) { // note this may be called multiple times
+			if (status==0)
+				console.debug( "Perl: Exit status",status,"(state",Perl.state,")");
+			else {
+				console.error("Perl: Exit status",status,"(state",Perl.state,")");
+				alert("Perl exited with exit status "+status+" in state "+Perl.state);
+			}
+			Perl.exitStatus = status;
+			Perl.changeState("Ended");
+		},
+		onRuntimeInitialized: function () {
+			console.debug("Perl: Module.onRuntimeInitialized");
+			Perl.initStepFinished();
+		},
+		preRun: [
+			function () {
+				if (Perl.noMountIdbfs) {
+					console.debug("Perl: doing preRun, skipping IndexDB filesystem");
+					Perl.initStepFinished();
+					return;
+				}
+				console.debug("Perl: doing preRun, fetching IndexDB filesystem...");
+				try { FS.mkdir('/mnt'); } catch(e) {}
+				try { FS.mkdir('/mnt/idb'); } catch(e) {}
+				FS.mount(IDBFS, {} ,'/mnt/idb');
+				FS.syncfs(true, function (err) {
+					if (err) { console.error("Perl:",err); alert("Perl: Loading IDBFS failed: "+err); return; }
+					console.debug("Perl: IndexDB filesystem ready");
+					Perl.initStepFinished();
+				});
+			}
+		],
+		locateFile: function (file) {
+			var wasmRe = /\.(wast|wasm|asm\.js|data)$/;
+			if (wasmRe.exec(file))
+				return baseurl+"/"+file;
+			return file;
+		},
+	};
+	if (Perl.endAfterMain) {
+		Module.preRun.push(function () {
+			// patch _main so that afterwards we call emperl_end_perl
+			var origMain = Module._main;
+			Module._main = function() {
+				origMain.apply(this, arguments);
+				console.debug("Perl: main() has ended, ending perl...");
+				return Perl.end();
+			};
+		});
+	}
+	console.debug("Perl: Fetching Emscripten/Perl...");
+	var script = document.createElement('script');
+	script.async = true; script.defer = true;
+	script.src = baseurl+"/emperl.js";
+	document.getElementsByTagName('head')[0].appendChild(script);
+};
+
+Perl.initStepFinished = function () {
+	if (Perl.state!="Initializing" || Perl.initStepsLeft<1)
+		throw "Perl: internal error: can't call initStepFinished in state "+Perl.state+" ("+Perl.initStepsLeft+")";
+	if (--Perl.initStepsLeft) {
+		console.debug("Perl: One init step done, but "+Perl.initStepsLeft+" steps left, waiting...");
+		return;
+	} else console.debug("Perl: All init steps done, doing final initialization...");
+	
+	/* NOTE: Apparently, when NO_EXIT_RUNTIME is set, and exit() is called from the main program
+	 * (from Module.callMain), Emscripten doesn't report this back to us via an ExitStatus exception
+	 * like it does from ccall - it doesn't even call the addOnExit/ATEXIT or addOnPostRun/ATPOSTRUN
+	 * handlers! So at the moment, the only reliable way I've found to catch the program exit()ing
+	 * is to patch into Emscripten's (undocumented!) Module.quit... */
+	var origQuit = Module.quit;
+	Module.quit = function (status, exception) {
+		console.debug("Perl: quit with",exception);
+		Module.onExit(status);
+		origQuit(status,exception);
+	}
+	
+	Perl.changeState("Ready");
+	if (Perl.readyCallback) Perl.readyCallback();
+	Perl.readyCallback = null;
+};
+
+Perl.start = function (argv) {
+	if (Perl.state!="Ready")
+		throw "Perl: can't call start in state "+Perl.state;
+	Perl.changeState("Running");
+	try {
+		// Note: currently callMain doesn't seem to throw ExitStatus exceptions, see discussion in Perl.initStepFinished
+		Module.callMain(argv ? argv : Module.arguments);
+	}
+	catch (e) {
+		if (e instanceof ExitStatus) {
+			console.debug("Perl: start:",e);
+			Module.onExit(e.status);
+		} else throw e;
+	}
+};
+
+Perl.eval = function (code) {
+	if (Perl.state!="Running")
+		throw "Perl: can't call eval in state "+Perl.state;
+	if (Perl.trace) console.debug('Perl: ccall webperl_eval_perl',code);
+	try {
+		return ccall("webperl_eval_perl","string",["string"],[code]);
+	}
+	catch (e) {
+		if (e instanceof ExitStatus) {
+			// the code caused perl to (try to) exit - now we need to call
+			// Perl's global destruction via our emperl_end_perl() function
+			Perl.end(); //TODO: Perl.end has already been called at this point (how?)
+		} else throw e;
+	}
+};
+
+/* Note that Emscripten apparently doesn't support re-running the program once it exits (?).
+ * So at the moment, once we end Perl, that's it. The only useful effect of ending Perl is
+ * that global destruction is executed and END blocks are called. But since a user may leave
+ * a webpage at any moment without warning, WebPerl scripts should not rely on normal termination! */
+Perl.end = function () {
+	if (Perl.state!="Running") {
+		if (Perl.state=="Ended") {
+			console.debug("Perl: end called when already Ended");
+			return;
+		}
+		else throw "Perl: can't call end in state "+Perl.state;
+	}
+	var status;
+	try {
+		status = ccall("emperl_end_perl","number",[],[]);
+		// we know that emperl_end_perl only calls exit() on a nonzero exit code,
+		// which means no ExitStatus exception gets thrown on a zero exit code,
+		// so we *should* reach this point only with status==0
+		if (status!=0) console.warn("emperl_end_perl returned with status",status);
+		Module.onExit(status); // does Perl.changeState() for us
+	}
+	catch (e) {
+		if (e instanceof ExitStatus) {
+			console.debug("Perl: end: ",e);
+			status = e.status;
+			Module.onExit(e.status); // does Perl.changeState() for us
+		} else throw e;
+	}
+	return status;
+};
+
+Perl.next_glue_id = 0;
+Perl.GlueTable = {};
+Perl._glue_free_ids = {};
+Perl.glue = function (ref) {
+	var id;
+	var free_ids = Object.keys(Perl._glue_free_ids);
+	if (free_ids.length>0) {
+		id = free_ids[0];
+		delete Perl._glue_free_ids[id];
+		if (Perl.trace) console.debug('Perl: Glue reused id',id,'to',ref);
+	}
+	else {
+		if (Perl.next_glue_id>=Number.MAX_SAFE_INTEGER)
+			throw "Perl.GlueTable is overflowing!"
+		id = ''+(Perl.next_glue_id++);
+		if (Perl.trace) console.debug('Perl: Glue id',id,'to',ref);
+	}
+	Perl.GlueTable[id] = ref;
+	return id;
+}
+Perl.unglue = function (id) {
+	if (Perl.trace) console.debug('Perl: Unglue id',id,'from',Perl.GlueTable[id]);
+	delete Perl.GlueTable[id];
+	Perl._glue_free_ids[id]=1;
+}
diff --git a/sloccount.html b/sloccount.html
new file mode 100644
index 0000000..7bf314e
--- /dev/null
+++ b/sloccount.html
@@ -0,0 +1,821 @@
+<!DOCTYPE html>
+<html lang="en">
+<head>
+    <meta charset="UTF-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1.0">
+    <title>SLOCCount - Count Lines of Code</title>
+    <style>
+        * {
+            box-sizing: border-box;
+        }
+        body {
+            font-family: system-ui, -apple-system, Segoe UI, Roboto, Helvetica, Arial, sans-serif;
+            max-width: 900px;
+            margin: 0 auto;
+            padding: 20px;
+            line-height: 1.6;
+        }
+        h1 {
+            margin-bottom: 10px;
+            font-size: 28px;
+        }
+        p {
+            margin-top: 0;
+            color: #666;
+        }
+        .tabs {
+            display: flex;
+            gap: 10px;
+            margin-bottom: 20px;
+            border-bottom: 2px solid #ddd;
+        }
+        .tab {
+            padding: 10px 20px;
+            cursor: pointer;
+            background: none;
+            border: none;
+            border-bottom: 3px solid transparent;
+            font-size: 16px;
+            color: #666;
+            transition: all 0.3s;
+        }
+        .tab.active {
+            color: #007bff;
+            border-bottom-color: #007bff;
+            font-weight: 600;
+        }
+        .tab:hover {
+            color: #0056b3;
+        }
+        .tab-content {
+            display: none;
+        }
+        .tab-content.active {
+            display: block;
+        }
+        label {
+            display: block;
+            margin-bottom: 8px;
+            font-weight: 600;
+            color: #333;
+        }
+        input[type="text"], textarea {
+            width: 100%;
+            padding: 12px;
+            border: 1px solid #ccc;
+            border-radius: 4px;
+            font-size: 16px;
+            font-family: inherit;
+        }
+        textarea {
+            font-family: ui-monospace, SFMono-Regular, Menlo, Consolas, "Liberation Mono", monospace;
+            min-height: 200px;
+            resize: vertical;
+        }
+        .input-group {
+            margin-bottom: 20px;
+        }
+        .button-group {
+            display: flex;
+            gap: 10px;
+            margin-bottom: 20px;
+        }
+        button {
+            padding: 12px 24px;
+            cursor: pointer;
+            background-color: #007bff;
+            color: white;
+            border: none;
+            border-radius: 4px;
+            font-size: 16px;
+            font-weight: 500;
+            transition: background-color 0.3s;
+        }
+        button:hover:not(:disabled) {
+            background-color: #0056b3;
+        }
+        button:disabled {
+            background-color: #6c757d;
+            cursor: wait;
+            opacity: 0.7;
+        }
+        button.secondary {
+            background-color: #6c757d;
+        }
+        button.secondary:hover:not(:disabled) {
+            background-color: #545b62;
+        }
+        #status {
+            padding: 12px;
+            margin-bottom: 20px;
+            border-radius: 4px;
+            display: none;
+        }
+        #status.visible {
+            display: block;
+        }
+        #status.info {
+            background-color: #d1ecf1;
+            color: #0c5460;
+            border: 1px solid #bee5eb;
+        }
+        #status.error {
+            background-color: #f8d7da;
+            color: #721c24;
+            border: 1px solid #f5c6cb;
+        }
+        #status.success {
+            background-color: #d4edda;
+            color: #155724;
+            border: 1px solid #c3e6cb;
+        }
+        #results {
+            display: none;
+        }
+        #results.visible {
+            display: block;
+        }
+        .results-header {
+            background-color: #f8f9fa;
+            padding: 15px;
+            border-radius: 4px;
+            margin-bottom: 20px;
+        }
+        .results-header h2 {
+            margin: 0 0 10px 0;
+            font-size: 20px;
+        }
+        .summary {
+            display: grid;
+            grid-template-columns: repeat(auto-fit, minmax(150px, 1fr));
+            gap: 15px;
+            margin-bottom: 20px;
+        }
+        .summary-item {
+            background: white;
+            padding: 15px;
+            border-radius: 4px;
+            border: 1px solid #dee2e6;
+            text-align: center;
+        }
+        .summary-item .label {
+            font-size: 14px;
+            color: #666;
+            margin-bottom: 5px;
+        }
+        .summary-item .value {
+            font-size: 28px;
+            font-weight: bold;
+            color: #007bff;
+        }
+        .language-breakdown {
+            background: white;
+            border: 1px solid #dee2e6;
+            border-radius: 4px;
+            overflow: hidden;
+        }
+        .language-breakdown h3 {
+            margin: 0;
+            padding: 15px;
+            background-color: #f8f9fa;
+            font-size: 18px;
+            border-bottom: 1px solid #dee2e6;
+        }
+        .language-table {
+            width: 100%;
+            border-collapse: collapse;
+        }
+        .language-table th {
+            background-color: #f8f9fa;
+            padding: 12px;
+            text-align: left;
+            font-weight: 600;
+            border-bottom: 2px solid #dee2e6;
+        }
+        .language-table td {
+            padding: 12px;
+            border-bottom: 1px solid #dee2e6;
+        }
+        .language-table tr:last-child td {
+            border-bottom: none;
+        }
+        .language-table tr:hover {
+            background-color: #f8f9fa;
+        }
+        .language-name {
+            font-weight: 500;
+        }
+        .percentage {
+            color: #666;
+            font-size: 14px;
+        }
+        @media (max-width: 600px) {
+            body {
+                padding: 10px;
+            }
+            h1 {
+                font-size: 24px;
+            }
+            .tabs {
+                overflow-x: auto;
+            }
+            .tab {
+                padding: 8px 16px;
+                font-size: 14px;
+            }
+            .button-group {
+                flex-direction: column;
+            }
+            button {
+                width: 100%;
+            }
+            .summary {
+                grid-template-columns: 1fr 1fr;
+            }
+            .summary-item .value {
+                font-size: 24px;
+            }
+            .language-table {
+                font-size: 14px;
+            }
+            .language-table th,
+            .language-table td {
+                padding: 8px;
+            }
+        }
+    </style>
+</head>
+<body>
+    <h1>SLOCCount - Count Lines of Code</h1>
+    <p>Analyze source code to count physical Source Lines of Code (SLOC) using the Perl sloccount tool</p>
+
+    <div class="tabs">
+        <button class="tab active" data-tab="paste">Paste Code</button>
+        <!-- <button class="tab" data-tab="github">GitHub Repository</button> -->
+    </div>
+
+    <div id="paste-tab" class="tab-content active">
+        <div class="input-group">
+            <label for="code-input">Paste your code here:</label>
+            <textarea id="code-input" placeholder="Paste source code files here (supports multiple files)..."></textarea>
+        </div>
+        <div class="input-group">
+            <label for="filename-input">Filename (to detect language):</label>
+            <input type="text" id="filename-input" placeholder="e.g., main.py, app.js, index.html">
+        </div>
+        <div class="button-group">
+            <button id="analyze-paste-btn" disabled>Initializing...</button>
+            <button id="clear-paste-btn" class="secondary">Clear</button>
+        </div>
+    </div>
+
+    <!-- GitHub tab commented out - will be fixed later
+    <div id="github-tab" class="tab-content">
+        <div class="input-group">
+            <label for="repo-input">GitHub Repository URL:</label>
+            <input type="text" id="repo-input" placeholder="https://github.com/owner/repo">
+        </div>
+        <div class="button-group">
+            <button id="analyze-repo-btn" disabled>Initializing...</button>
+        </div>
+    </div>
+    -->
+
+    <div id="status"></div>
+
+    <div id="results">
+        <div class="results-header">
+            <h2>Analysis Results</h2>
+        </div>
+        <div class="summary">
+            <div class="summary-item">
+                <div class="label">Total Lines</div>
+                <div class="value" id="total-lines">0</div>
+            </div>
+            <div class="summary-item">
+                <div class="label">Languages</div>
+                <div class="value" id="total-languages">0</div>
+            </div>
+            <div class="summary-item">
+                <div class="label">Files</div>
+                <div class="value" id="total-files">0</div>
+            </div>
+            <div class="summary-item">
+                <div class="label">Est. Cost (USD)</div>
+                <div class="value" id="total-cost">$0</div>
+            </div>
+            <div class="summary-item">
+                <div class="label">Est. Person-Years</div>
+                <div class="value" id="total-effort">0</div>
+            </div>
+        </div>
+        <div class="language-breakdown">
+            <h3>Language Breakdown</h3>
+            <table class="language-table" id="language-table">
+                <thead>
+                    <tr>
+                        <th>Language</th>
+                        <th>Lines</th>
+                        <th>Percentage</th>
+                        <th>Files</th>
+                    </tr>
+                </thead>
+                <tbody id="language-tbody">
+                </tbody>
+            </table>
+        </div>
+    </div>
+
+    <script src="https://cdn.jsdelivr.net/npm/jszip@3.10.1/dist/jszip.min.js"></script>
+    <script src="./lib/webperl/webperl.js"></script>
+    <script>
+        console.log('Script starting...');
+        const tabs = document.querySelectorAll('.tab');
+        const pasteTab = document.getElementById('paste-tab');
+        const githubTab = document.getElementById('github-tab'); // May be null (commented out)
+        const codeInput = document.getElementById('code-input');
+        const filenameInput = document.getElementById('filename-input');
+        const repoInput = document.getElementById('repo-input'); // May be null (commented out)
+        const analyzePasteBtn = document.getElementById('analyze-paste-btn');
+        const analyzeRepoBtn = document.getElementById('analyze-repo-btn'); // May be null (commented out)
+        const clearPasteBtn = document.getElementById('clear-paste-btn');
+        const statusEl = document.getElementById('status');
+        const resultsEl = document.getElementById('results');
+
+        let perlReady = false;
+        let slocScripts = {};
+
+        // Tab switching
+        tabs.forEach(tab => {
+            tab.addEventListener('click', () => {
+                tabs.forEach(t => t.classList.remove('active'));
+                tab.classList.add('active');
+
+                const tabName = tab.dataset.tab;
+                pasteTab.classList.toggle('active', tabName === 'paste');
+                githubTab.classList.toggle('active', tabName === 'github');
+            });
+        });
+
+        // Clear button
+        clearPasteBtn.addEventListener('click', () => {
+            codeInput.value = '';
+            filenameInput.value = '';
+            hideResults();
+        });
+
+        // Status helpers
+        function showStatus(message, type = 'info') {
+            statusEl.textContent = message;
+            statusEl.className = `visible ${type}`;
+        }
+
+        function hideStatus() {
+            statusEl.className = '';
+        }
+
+        function showResults() {
+            resultsEl.classList.add('visible');
+        }
+
+        function hideResults() {
+            resultsEl.classList.remove('visible');
+        }
+
+        // Initialize WebPerl and load sloccount
+        async function initializeWebPerl() {
+            try {
+                console.log('initializeWebPerl() starting...');
+                showStatus('Loading Perl WebAssembly runtime...', 'info');
+
+                // Wait for Perl to reach Running state (triggered by embedded script)
+                console.log('Waiting for Perl to be Running...');
+                while (Perl.state !== 'Running') {
+                    console.log('Current Perl state:', Perl.state);
+                    await new Promise(resolve => setTimeout(resolve, 100));
+                }
+                console.log('Perl is now Running!');
+
+                showStatus('Loading SLOCCount Perl scripts...', 'info');
+
+                // Load sloccount scripts from local zip file
+                const zipUrl = './lib/sloccount-perl.zip';
+
+                // Fetch the zip file
+                const response = await fetch(zipUrl);
+                if (!response.ok) {
+                    throw new Error('Failed to fetch sloccount scripts');
+                }
+
+                const zipBlob = await response.blob();
+                const zip = await JSZip.loadAsync(zipBlob);
+
+                showStatus('Extracting Perl scripts...', 'info');
+
+                // Load key Perl scripts we'll need
+                const scriptsNeeded = ['python_count', 'perl_count', 'ruby_count', 'generic_count'];
+
+                for (const fileName in zip.files) {
+                    const file = zip.files[fileName];
+                    if (!file.dir && !fileName.includes('/')) {
+                        const content = await file.async('text');
+                        slocScripts[fileName] = content;
+                    }
+                }
+
+                console.log('Loaded scripts:', Object.keys(slocScripts));
+
+                perlReady = true;
+
+                analyzePasteBtn.textContent = 'Analyze Code';
+                analyzePasteBtn.disabled = false;
+                if (analyzeRepoBtn) {
+                    analyzeRepoBtn.textContent = 'Analyze Repository';
+                    analyzeRepoBtn.disabled = false;
+                }
+
+                showStatus('Ready to analyze code!', 'success');
+                setTimeout(hideStatus, 2000);
+            } catch (error) {
+                showStatus('Failed to initialize: ' + error.message, 'error');
+                console.error('Initialization error:', error);
+            }
+        }
+
+        // Run sloccount using Perl
+        async function runSloccount(files) {
+            try {
+                // Create a Perl script to count lines using sloccount algorithms
+                const perlScript = `
+                    use strict;
+                    use warnings;
+
+                    my %lang_stats = ();
+                    my $total_lines = 0;
+
+                    # Language detection based on file extension
+                    sub detect_language {
+                        my ($filename) = @_;
+                        if ($filename =~ /\\.([^.]+)$/) {
+                            my $ext = lc($1);
+                            my %lang_map = (
+                                'c' => 'C',
+                                'h' => 'C',
+                                'cpp' => 'C++',
+                                'cc' => 'C++',
+                                'cxx' => 'C++',
+                                'hpp' => 'C++',
+                                'hh' => 'C++',
+                                'py' => 'Python',
+                                'java' => 'Java',
+                                'js' => 'JavaScript',
+                                'ts' => 'TypeScript',
+                                'rb' => 'Ruby',
+                                'pl' => 'Perl',
+                                'pm' => 'Perl',
+                                'php' => 'PHP',
+                                'go' => 'Go',
+                                'rs' => 'Rust',
+                                'cs' => 'C#',
+                                'sh' => 'Shell',
+                                'bash' => 'Shell',
+                                'html' => 'HTML',
+                                'css' => 'CSS',
+                                'sql' => 'SQL',
+                                'r' => 'R',
+                                'swift' => 'Swift',
+                                'kt' => 'Kotlin',
+                                'scala' => 'Scala',
+                                'lua' => 'Lua',
+                                'vim' => 'VimScript',
+                                'md' => 'Markdown',
+                                'json' => 'JSON',
+                                'xml' => 'XML',
+                                'yaml' => 'YAML',
+                                'yml' => 'YAML'
+                            );
+                            return $lang_map{$ext} || 'Unknown';
+                        }
+                        return 'Unknown';
+                    }
+
+                    # Count physical lines (non-blank, non-comment)
+                    sub count_physical_lines {
+                        my ($content, $lang) = @_;
+                        my @lines = split /\\n/, $content;
+                        my $count = 0;
+                        my $in_block_comment = 0;
+
+                        for my $line (@lines) {
+                            # Remove leading/trailing whitespace
+                            $line =~ s/^\\s+|\\s+$//g;
+
+                            # Skip empty lines
+                            next if $line eq '';
+
+                            # Handle block comments based on language
+                            if ($lang =~ /^(C|C\\+\\+|Java|JavaScript|TypeScript|PHP|Go|Rust|C#|CSS|Scala|Kotlin|Swift)$/) {
+                                if ($line =~ /\\/\\*/ && $line !~ /\\*\\//) {
+                                    $in_block_comment = 1;
+                                    next;
+                                }
+                                if ($in_block_comment) {
+                                    if ($line =~ /\\*\\//) {
+                                        $in_block_comment = 0;
+                                    }
+                                    next;
+                                }
+                                # Skip single-line comments
+                                next if $line =~ /^\\/\\// || $line =~ /^\\/\\*/;
+                            } elsif ($lang =~ /^(Python|Ruby|Shell|Perl|R)$/) {
+                                # Skip Python/Ruby/Shell/Perl comments
+                                next if $line =~ /^#/;
+                            } elsif ($lang eq 'HTML' || $lang eq 'XML') {
+                                # Skip HTML/XML comments
+                                next if $line =~ /^<!--/;
+                            }
+
+                            $count++;
+                        }
+
+                        return $count;
+                    }
+
+                    # Process each file
+                    my @file_data = @ARGV;
+
+                    for (my $i = 0; $i < @file_data; $i += 2) {
+                        my $filename = $file_data[$i];
+                        my $content = $file_data[$i + 1];
+
+                        my $lang = detect_language($filename);
+                        my $lines = count_physical_lines($content, $lang);
+
+                        if (!exists $lang_stats{$lang}) {
+                            $lang_stats{$lang} = { lines => 0, files => 0 };
+                        }
+
+                        $lang_stats{$lang}{lines} += $lines;
+                        $lang_stats{$lang}{files}++;
+                        $total_lines += $lines;
+                    }
+
+                    # Output results using JavaScript bridge
+                    use WebPerl qw/js/;
+                    my @results;
+                    for my $lang (sort keys %lang_stats) {
+                        push @results, "$lang|$lang_stats{$lang}{lines}|$lang_stats{$lang}{files}";
+                    }
+                    my $results_str = join("\\n", @results);
+                    js('window')->{perlResults} = $results_str;
+                `;
+
+                // Embed file data directly in the Perl script
+                let dataScript = 'my @file_data = (';
+                for (let i = 0; i < files.length; i++) {
+                    const file = files[i];
+                    // Escape single quotes in the content
+                    const escapedFilename = file.filename.replace(/'/g, "\\'");
+                    const escapedContent = file.content.replace(/\\/g, '\\\\').replace(/'/g, "\\'");
+                    dataScript += `'${escapedFilename}', '${escapedContent}'`;
+                    if (i < files.length - 1) dataScript += ', ';
+                }
+                dataScript += ');\n@ARGV = @file_data;\n';
+
+                // Prepend the data to the Perl script
+                const fullScript = dataScript + perlScript;
+
+                // Execute the Perl script
+                window.perlResults = '';
+                Perl.eval(fullScript);
+
+                // Get the results from the window variable
+                const capturedOutput = window.perlResults;
+                console.log('Perl results:', capturedOutput);
+
+                // Parse the results
+                const results = [];
+                if (capturedOutput && capturedOutput.trim()) {
+                    const lines = capturedOutput.split('\\n');
+                    for (const line of lines) {
+                        if (line.trim()) {
+                            const parts = line.split('|');
+                            if (parts.length === 3) {
+                                results.push({
+                                    language: parts[0],
+                                    lines: parseInt(parts[1]),
+                                    files: parseInt(parts[2])
+                                });
+                            }
+                        }
+                    }
+                }
+
+                return results;
+            } catch (error) {
+                console.error('Perl execution error:', error);
+                throw new Error('Failed to execute Perl sloccount: ' + error.message);
+            }
+        }
+
+        // Analyze pasted code
+        async function analyzePastedCode() {
+            const code = codeInput.value.trim();
+            const filename = filenameInput.value.trim();
+
+            if (!code) {
+                showStatus('Please paste some code to analyze', 'error');
+                return;
+            }
+
+            if (!filename) {
+                showStatus('Please provide a filename to detect the language', 'error');
+                return;
+            }
+
+            try {
+                analyzePasteBtn.disabled = true;
+                showStatus('Analyzing code with Perl sloccount...', 'info');
+
+                const files = [{ filename: filename, content: code }];
+                const results = await runSloccount(files);
+
+                displayResults(results);
+
+                showStatus('Analysis complete!', 'success');
+                setTimeout(hideStatus, 3000);
+            } catch (error) {
+                showStatus('Analysis failed: ' + error.message, 'error');
+                console.error('Analysis error:', error);
+            } finally {
+                analyzePasteBtn.disabled = false;
+            }
+        }
+
+        // Analyze GitHub repository
+        async function analyzeGitHubRepo() {
+            const repoUrl = repoInput.value.trim();
+
+            if (!repoUrl) {
+                showStatus('Please provide a GitHub repository URL', 'error');
+                return;
+            }
+
+            // Parse GitHub URL
+            const match = repoUrl.match(/github\.com\/([^\/]+)\/([^\/]+)/);
+            if (!match) {
+                showStatus('Invalid GitHub URL. Expected format: https://github.com/owner/repo', 'error');
+                return;
+            }
+
+            const owner = match[1];
+            const repo = match[2].replace('.git', '');
+
+            try {
+                analyzeRepoBtn.disabled = true;
+                showStatus('Downloading repository archive...', 'info');
+
+                // Download the repository as a zip
+                const zipUrl = `https://github.com/${owner}/${repo}/archive/HEAD.zip`;
+                const response = await fetch(zipUrl);
+
+                if (!response.ok) {
+                    throw new Error('Failed to fetch repository. Make sure the repository is public.');
+                }
+
+                const zipBlob = await response.blob();
+                const zip = await JSZip.loadAsync(zipBlob);
+
+                showStatus('Extracting and analyzing files...', 'info');
+
+                // Extract all code files
+                const files = [];
+                const codeExtensions = /\\.(c|h|cpp|cc|cxx|hpp|py|java|js|ts|rb|pl|pm|php|go|rs|cs|sh|bash|html|css|sql|r|swift|kt|scala|lua|vim)$/i;
+
+                for (const fileName in zip.files) {
+                    const file = zip.files[fileName];
+                    if (!file.dir && codeExtensions.test(fileName)) {
+                        const content = await file.async('text');
+                        const baseName = fileName.split('/').slice(1).join('/'); // Remove root folder
+                        if (baseName) {
+                            files.push({ filename: baseName, content: content });
+                        }
+                    }
+                }
+
+                if (files.length === 0) {
+                    throw new Error('No code files found in repository');
+                }
+
+                showStatus(`Analyzing ${files.length} files with Perl sloccount...`, 'info');
+
+                const results = await runSloccount(files);
+                displayResults(results);
+
+                showStatus('Analysis complete!', 'success');
+                setTimeout(hideStatus, 3000);
+            } catch (error) {
+                showStatus('Analysis failed: ' + error.message, 'error');
+                console.error('Analysis error:', error);
+            } finally {
+                analyzeRepoBtn.disabled = false;
+            }
+        }
+
+        // Calculate COCOMO estimates (Basic COCOMO model)
+        function calculateCOCOMO(totalLines) {
+            // Convert SLOC to KLOC (thousands of lines)
+            const kloc = totalLines / 1000;
+
+            // Basic COCOMO: Effort = 2.4 * (KLOC)^1.05 person-months
+            const effort = 2.4 * Math.pow(kloc, 1.05);
+
+            // Convert person-months to person-years
+            const personYears = effort / 12;
+
+            // Average salary: $56,286/year (from original sloccount)
+            // Overhead multiplier: 2.4
+            const avgSalary = 56286;
+            const overhead = 2.4;
+            const totalCost = personYears * avgSalary * overhead;
+
+            return {
+                personYears: personYears,
+                cost: totalCost
+            };
+        }
+
+        // Display results
+        function displayResults(results) {
+            const totalLines = results.reduce((sum, r) => sum + r.lines, 0);
+            const totalFiles = results.reduce((sum, r) => sum + r.files, 0);
+            const totalLanguages = results.length;
+
+            // Calculate cost estimates
+            const estimates = calculateCOCOMO(totalLines);
+
+            document.getElementById('total-lines').textContent = totalLines.toLocaleString();
+            document.getElementById('total-languages').textContent = totalLanguages;
+            document.getElementById('total-files').textContent = totalFiles;
+            document.getElementById('total-cost').textContent = '$' + Math.round(estimates.cost).toLocaleString();
+            document.getElementById('total-effort').textContent = estimates.personYears.toFixed(2);
+
+            // Sort by lines descending
+            results.sort((a, b) => b.lines - a.lines);
+
+            const tbody = document.getElementById('language-tbody');
+            tbody.innerHTML = '';
+
+            results.forEach(result => {
+                const percentage = ((result.lines / totalLines) * 100).toFixed(1);
+                const row = document.createElement('tr');
+                row.innerHTML = `
+                    <td class="language-name">${result.language}</td>
+                    <td>${result.lines.toLocaleString()}</td>
+                    <td class="percentage">${percentage}%</td>
+                    <td>${result.files}</td>
+                `;
+                tbody.appendChild(row);
+            });
+
+            showResults();
+        }
+
+        // Event listeners
+        analyzePasteBtn.addEventListener('click', analyzePastedCode);
+        if (analyzeRepoBtn) {
+            analyzeRepoBtn.addEventListener('click', analyzeGitHubRepo);
+        }
+
+        // Initialize when page loads
+        if (document.readyState === 'loading') {
+            document.addEventListener('DOMContentLoaded', initializeWebPerl);
+        } else {
+            initializeWebPerl();
+        }
+    </script>
+
+    <div style="max-width: 900px; margin: 40px auto 20px; padding: 20px; background: #f8f9fa; border-radius: 4px; border-left: 4px solid #007bff;">
+        <h3 style="margin-top: 0;">About Cost Estimates</h3>
+        <p style="margin: 10px 0;">The cost and effort estimates use the <strong>Basic COCOMO model</strong> (Constructive Cost Model), a widely-used software engineering cost estimation method developed by Barry Boehm.</p>
+
+        <p style="margin: 10px 0;"><strong>Key assumptions:</strong></p>
+        <ul style="margin: 5px 0; padding-left: 20px;">
+            <li>Effort = 2.4 × (KLOC)<sup>1.05</sup> person-months</li>
+            <li>Average developer salary: $56,286/year</li>
+            <li>Overhead multiplier: 2.4× (includes benefits, equipment, office space, etc.)</li>
+        </ul>
+
+        <p style="margin: 10px 0; font-size: 14px; color: #666;">These are rough estimates based on industry averages from the early 2000s. Actual costs vary significantly based on project complexity, team experience, geographic location, and development practices. Modern salaries and overhead costs are typically higher.</p>
+
+        <p style="margin: 10px 0; font-size: 14px;"><em>This tool uses the WebAssembly build of Perl running actual SLOCCount algorithms from <a href="https://github.com/licquia/sloccount" target="_blank" rel="noopener">licquia/sloccount</a>.</em></p>
+    </div>
+
+    <!-- Embedded Perl script to initialize Perl into Running state -->
+    <!-- This must come AFTER the main JavaScript to avoid blocking -->
+    <script type="text/perl">
+        # Minimal script to put Perl into Running state
+        1;
+    </script>
+</body>
+</html>